/* EFL support routine to copy string b to string a */
#define M ( (long) (sizeof(long) - 1) )
#define EVEN(x) ( ( (x)+ M) & (~M) )
ef1asc_(a
, la
, b
, lb
) ftnint
*a
, *b
; ftnlen
*la
, *lb
;
extern void s_copy(char*,char*,ftnlen
,ftnlen
);
int ef1asc_(ftnint
*a
, ftnlen
*la
, ftnint
*b
, ftnlen
*lb
)
s_copy( (char *)a
, (char *)b
, EVEN(*la
), *lb
);