1 /* EFL support routine to copy string b to string a */
6 #define M ( (long) (sizeof(long) - 1) )
7 #define EVEN(x) ( ( (x)+ M) & (~M) )
9 extern void s_copy (char *, char *, ftnlen, ftnlen);
11 G77_ef1asc_0 (ftnint * a, ftnlen * la, ftnint * b, ftnlen * lb)
13 s_copy ((char *) a, (char *) b, EVEN (*la), *lb);
14 return 0; /* ignored return value */