diff options
author | obrien <obrien@FreeBSD.org> | 1999-04-21 16:43:03 +0000 |
---|---|---|
committer | obrien <obrien@FreeBSD.org> | 1999-04-21 16:43:03 +0000 |
commit | 947085f7082572209374107061ccfc79a12a7397 (patch) | |
tree | 37660d67894f66b335d19dab8b118860ed9b4aee /lib/libF77/s_copy.c | |
parent | b77bb336f91d563c94043b1d50ae78da2d23490c (diff) | |
download | FreeBSD-src-947085f7082572209374107061ccfc79a12a7397.zip FreeBSD-src-947085f7082572209374107061ccfc79a12a7397.tar.gz |
Remove the old libf2c. libg2c is now serving us well.
Diffstat (limited to 'lib/libF77/s_copy.c')
-rw-r--r-- | lib/libF77/s_copy.c | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/lib/libF77/s_copy.c b/lib/libF77/s_copy.c deleted file mode 100644 index d167351..0000000 --- a/lib/libF77/s_copy.c +++ /dev/null @@ -1,51 +0,0 @@ -/* Unless compiled with -DNO_OVERWRITE, this variant of s_copy allows the - * target of an assignment to appear on its right-hand side (contrary - * to the Fortran 77 Standard, but in accordance with Fortran 90), - * as in a(2:5) = a(4:7) . - */ - -#include "f2c.h" - -/* assign strings: a = b */ - -#ifdef KR_headers -VOID s_copy(a, b, la, lb) register char *a, *b; ftnlen la, lb; -#else -void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb) -#endif -{ - register char *aend, *bend; - - aend = a + la; - - if(la <= lb) -#ifndef NO_OVERWRITE - if (a <= b || a >= b + la) -#endif - while(a < aend) - *a++ = *b++; -#ifndef NO_OVERWRITE - else - for(b += la; a < aend; ) - *--aend = *--b; -#endif - - else { - bend = b + lb; -#ifndef NO_OVERWRITE - if (a <= b || a >= bend) -#endif - while(b < bend) - *a++ = *b++; -#ifndef NO_OVERWRITE - else { - a += lb; - while(b < bend) - *--a = *--bend; - a += lb; - } -#endif - while(a < aend) - *a++ = ' '; - } - } |