1 #include "f2c.h"
2 
3 #ifdef KR_headers
i_indx(a,b,la,lb)4 integer i_indx(a, b, la, lb) char *a, *b; ftnlen la, lb;
5 #else
6 integer i_indx(char *a, char *b, ftnlen la, ftnlen lb)
7 #endif
8 {
9 ftnlen i, n;
10 char *s, *t, *bend;
11 
12 n = la - lb + 1;
13 bend = b + lb;
14 
15 for(i = 0 ; i < n ; ++i)
16 	{
17 	s = a + i;
18 	t = b;
19 	while(t < bend)
20 		if(*s++ != *t++)
21 			goto no;
22 	return(i+1);
23 	no: ;
24 	}
25 return(0);
26 }
27