lang/fortran/lib/libF77/s_copy.c

   1 #include "f2c.h"
   2
   3 VOID s_copy(a, b, la, lb)       /* assign strings:  a = b */
   4 char *a, *b;
   5 long int la, lb;
   6 {
   7 char *aend, *bend;
   8
   9 aend = a + la;
  10
  11 if(la <= lb)
  12         while(a < aend)
  13                 *a++ = *b++;
  14
  15 else
  16         {
  17         bend = b + lb;
  18         while(b < bend)
  19                 *a++ = *b++;
  20         while(a < aend)
  21                 *a++ = ' ';
  22         }
  23 }