home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / utils / f2c / f77lib / ef1asc_.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-09  |  423 b   |  19 lines
  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. VOID ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
  12. #else
  13. extern void s_copy(char*,char*,ftnlen,ftnlen);
  14. void ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
  15. #endif
  16. {
  17. s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
  18. }
  19.