1 files changed, 17 insertions, 20 deletions
diff --git a/contrib/libf2c/libF77/i_indx.c b/contrib/libf2c/libF77/i_indx.c
index 96e7bc5..5b8e136 100644
--- a/contrib/libf2c/libF77/i_indx.c
+++ b/contrib/libf2c/libF77/i_indx.c
@@ -1,26 +1,23 @@
 #include "f2c.h"
 
-#ifdef KR_headers
-integer i_indx(a, b, la, lb) char *a, *b; ftnlen la, lb;
-#else
-integer i_indx(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
+integer
+i_indx (char *a, char *b, ftnlen la, ftnlen lb)
 {
-ftnlen i, n;
-char *s, *t, *bend;
+  ftnlen i, n;
+  char *s, *t, *bend;
 
-n = la - lb + 1;
-bend = b + lb;
+  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);
+  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);
 }