1 files changed, 23 insertions, 0 deletions
diff --git a/libf2c/libF77/i_indx.c b/libf2c/libF77/i_indx.c
new file mode 100644
index 0000000..5b8e136
--- /dev/null
+++ b/libf2c/libF77/i_indx.c
@@ -0,0 +1,23 @@
+#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);
+}