Commit | Line | Data |
---|---|---|
547779a8 WH |
1 | #include "f2c.h" |
2 | ||
3 | #ifdef KR_headers | |
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 | } |