Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
ef1asc_.c
Go to the documentation of this file.00001
00002
00003 #include "f2c.h"
00004
00005
00006 #define M ( (long) (sizeof(long) - 1) )
00007 #define EVEN(x) ( ( (x)+ M) & (~M) )
00008
00009 #ifdef KR_headers
00010 extern VOID s_copy();
00011 ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
00012 #else
00013 extern void s_copy(char*,char*,ftnlen,ftnlen);
00014 int ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
00015 #endif
00016 {
00017 s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
00018 #ifdef __cplusplus
00019 return 0;
00020 #endif
00021 }