home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / g77-0.5.15-src.tgz / tar.out / fsf / g77 / f / runtime / libF77 / ef1asc_.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  453b  |  22 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. ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
  12. #else
  13. extern void s_copy(char*,char*,ftnlen,ftnlen);
  14. int ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
  15. #endif
  16. {
  17. s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
  18. #ifdef __cplusplus
  19. return 0;
  20. #endif
  21. }
  22.