swiftnav: ef1asc_.c Source File

Go to the documentation of this file.
00001 /* EFL support routine to copy string b to string a */
00002 
00003 #include "f2c.h"
00004 #ifdef __cplusplus
00005 extern "C" {
00006 #endif
00007 
00008 
00009 #define M       ( (long) (sizeof(long) - 1) )
00010 #define EVEN(x) ( ( (x)+ M) & (~M) )
00011 
00012 #ifdef KR_headers
00013 extern VOID s_copy();
00014 ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
00015 #else
00016 extern void s_copy(char*,char*,ftnlen,ftnlen);
00017 int ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
00018 #endif
00019 {
00020 s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
00021 return 0;       /* ignored return value */
00022 }
00023 #ifdef __cplusplus
00024 }
00025 #endif