home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / F2C_SRC.ZIP / F2C / LIBF77 / EF1ASC_.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-10  |  300 b   |  16 lines
  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. }
  16.