lang/fortran/lib/libF77/s_cat.c

   1 #include "f2c.h"
   2
   3 VOID s_cat(lp, rpp, rnp, np, ll)
   4 char *lp, *rpp[];
   5 ftnlen rnp[], *np, ll;
   6 {
   7 int i, n, nc;
   8 char *rp;
   9
  10 n = *np;
  11 for(i = 0 ; i < n ; ++i)
  12         {
  13         nc = ll;
  14         if(rnp[i] < nc)
  15                 nc = rnp[i];
  16         ll -= nc;
  17         rp = rpp[i];
  18         while(--nc >= 0)
  19                 *lp++ = *rp++;
  20         }
  21 while(--ll >= 0)
  22         *lp++ = ' ';
  23 }