Return to ef1asc_.c CVS log

Up to [Research Unix] / researchv10no / libF77

Annotation of researchv10no/libF77/ef1asc_.c, revision 1.1.1.1

1.1       root        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: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.