Doxygen Source Code Documentation
h_indx.c File Reference
#include "f2c.h"
Go to the source code of this file.
Functions | |
shortint | h_indx (char *a, char *b, ftnlen la, ftnlen lb) |
Function Documentation
|
Definition at line 6 of file h_indx.c.
00008 { 00009 ftnlen i, n; 00010 char *s, *t, *bend; 00011 00012 n = la - lb + 1; 00013 bend = b + lb; 00014 00015 for(i = 0 ; i < n ; ++i) 00016 { 00017 s = a + i; 00018 t = b; 00019 while(t < bend) 00020 if(*s++ != *t++) 00021 goto no; 00022 return((shortint)i+1); 00023 no: ; 00024 } 00025 return(0); 00026 } |