libf2c/libF77/ef1asc_.c

   1 /* EFL support routine to copy string b to string a */
   2
   3 #include "f2c.h"
   4
   5
   6 #define M       ( (long) (sizeof(long) - 1) )
   7 #define EVEN(x) ( ( (x)+ M) & (~M) )
   8
   9 extern void s_copy (char *, char *, ftnlen, ftnlen);
  10 int
  11 G77_ef1asc_0 (ftnint * a, ftnlen * la, ftnint * b, ftnlen * lb)
  12 {
  13   s_copy ((char *) a, (char *) b, EVEN (*la), *lb);
  14   return 0;                     /* ignored return value */
  15 }