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) )
11 G77_ef1asc_0 (a
, la
, b
, lb
) ftnint
*a
, *b
; ftnlen
*la
, *lb
;
13 extern void s_copy(char*,char*,ftnlen
,ftnlen
);
14 int G77_ef1asc_0 (ftnint
*a
, ftnlen
*la
, ftnint
*b
, ftnlen
*lb
)
17 s_copy( (char *)a
, (char *)b
, EVEN(*la
), *lb
);