lang/fortran/lib/libF77/ef1asc_.c

   1 /* EFL support routine to copy string b to string a */
   2
   3 #include "f2c.h"
   4
   5 extern VOID s_copy();
   6
   7 #define M       ( (long) (sizeof(long) - 1) )
   8 #define EVEN(x) ( ( (x)+ M) & (~M) )
   9
  10 VOID ef1asc_(a, la, b, lb)
  11 int *a, *b;
  12 long int *la, *lb;
  13 {
  14 s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
  15 }