summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.6.17/libf2c/s_copy.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.17/libf2c/s_copy.c')
-rw-r--r--Build/source/utils/pmx/pmx-2.6.17/libf2c/s_copy.c57
1 files changed, 0 insertions, 57 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.17/libf2c/s_copy.c b/Build/source/utils/pmx/pmx-2.6.17/libf2c/s_copy.c
deleted file mode 100644
index 9dacfc7d8d2..00000000000
--- a/Build/source/utils/pmx/pmx-2.6.17/libf2c/s_copy.c
+++ /dev/null
@@ -1,57 +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"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/* 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++ = ' ';
- }
- }
-#ifdef __cplusplus
-}
-#endif