#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 | |
{ | |
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); | |
} |