h_indx.c
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


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:50