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