Doxygen Source Code Documentation
i_indx.c File Reference
#include "f2c.h"Go to the source code of this file.
Functions | |
| integer | i_indx (char *a, char *b, ftnlen la, ftnlen lb) |
Function Documentation
|
||||||||||||||||||||
|
Definition at line 6 of file i_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(i+1);
00023 no: ;
00024 }
00025 return(0);
00026 }
|
