lang/fortran/lib/libF77/h_indx.c

   1 #include "f2c.h"
   2
   3 extern integer s_cmp();
   4
   5 shortint h_indx(a, b, la, lb)
   6 char *a, *b;
   7 long int la, lb;
   8 {
   9 int i, n;
  10 char *s, *t, *bend;
  11
  12 n = la - lb + 1;
  13 bend = b + lb;
  14
  15 for(i = 0 ; i < n ; ++i)
  16         {
  17         s = a + i;
  18         t = b;
  19         while(t < bend)
  20                 if(*s++ != *t++)
  21                         goto no;
  22         return(i+1);
  23         no: ;
  24         }
  25 return(0);
  26 }