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 }
 | 
 
                             
                             
                             
                             
                             
                             
                             
                             
                             
                             
                             
                             
 
 
 
 
       
	   
	   
	   
	  