contrib/libf2c/libF77/ef1asc_.c

   1 /* EFL support routine to copy string b to string a */
   2
   3 #include "f2c.h"
   4
   5
   6 #define M       ( (long) (sizeof(long) - 1) )
   7 #define EVEN(x) ( ( (x)+ M) & (~M) )
   8
   9 #ifdef KR_headers
  10 extern VOID s_copy();
  11 G77_ef1asc_0 (a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
  12 #else
  13 extern void s_copy(char*,char*,ftnlen,ftnlen);
  14 int G77_ef1asc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
  15 #endif
  16 {
  17 s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
  18 return 0;       /* ignored return value */
  19 }