summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.6.17/libf2c/h_indx.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.17/libf2c/h_indx.c')
-rw-r--r--Build/source/utils/pmx/pmx-2.6.17/libf2c/h_indx.c32
1 files changed, 0 insertions, 32 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.17/libf2c/h_indx.c b/Build/source/utils/pmx/pmx-2.6.17/libf2c/h_indx.c
deleted file mode 100644
index 018f2f43861..00000000000
--- a/Build/source/utils/pmx/pmx-2.6.17/libf2c/h_indx.c
+++ /dev/null
@@ -1,32 +0,0 @@
-#include "f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-shortint h_indx(a, b, la, lb) char *a, *b; ftnlen la, lb;
-#else
-shortint h_indx(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-ftnlen i, n;
-char *s, *t, *bend;
-
-n = la - lb + 1;
-bend = b + lb;
-
-for(i = 0 ; i < n ; ++i)
- {
- s = a + i;
- t = b;
- while(t < bend)
- if(*s++ != *t++)
- goto no;
- return((shortint)i+1);
- no: ;
- }
-return(0);
-}
-#ifdef __cplusplus
-}
-#endif