Go to the documentation of this file.00001 #include "f2c.h"
00002 #ifdef __cplusplus
00003 extern "C" {
00004 #endif
00005
00006 #ifdef KR_headers
00007 shortint h_indx(a, b, la, lb) char *a, *b; ftnlen la, lb;
00008 #else
00009 shortint h_indx(char *a, char *b, ftnlen la, ftnlen lb)
00010 #endif
00011 {
00012 ftnlen i, n;
00013 char *s, *t, *bend;
00014
00015 n = la - lb + 1;
00016 bend = b + lb;
00017
00018 for(i = 0 ; i < n ; ++i)
00019 {
00020 s = a + i;
00021 t = b;
00022 while(t < bend)
00023 if(*s++ != *t++)
00024 goto no;
00025 return((shortint)i+1);
00026 no: ;
00027 }
00028 return(0);
00029 }
00030 #ifdef __cplusplus
00031 }
00032 #endif