1 #include "f2c.h" 2 3 #ifdef KR_headers i_indx(a,b,la,lb)4integer 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