2004-07-15 Toon Moene <toon@moene.indiv.nluug.nl>

[pf3gnuchains/gcc-fork.git] / libf2c / libF77 / i_indx.c

diff --git a/libf2c/libF77/i_indx.c b/libf2c/libF77/i_indx.c
deleted file mode 100644 (file)
index 5b8e136..0000000
--- a/libf2c/libF77/i_indx.c
+++ /dev/null
@@ -1,23 +0,0 @@
-#include "f2c.h"
-
-integer
-i_indx (char *a, char *b, ftnlen la, ftnlen lb)
-{
-  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 (i + 1);
-    no:;
-    }
-  return (0);
-}