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