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