/* EFL support routine to copy string b to string a */#include "f2c.h"#ifdef __cplusplusextern "C" {#endif#define M	( (long) (sizeof(long) - 1) )#define EVEN(x)	( ( (x)+ M) & (~M) )#ifdef KR_headersextern VOID s_copy();ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;#elseextern void s_copy(char*,char*,ftnlen,ftnlen);int ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)#endif{s_copy( (char *)a, (char *)b, EVEN(*la), *lb );return 0;	/* ignored return value */}#ifdef __cplusplus}#endif