gcc/f/runtime/libF77/i_indx.c

   1 #include "f2c.h"
   2
   3 #ifdef KR_headers
   4 integer i_indx(a, b, la, lb) char *a, *b; ftnlen la, lb;
   5 #else
   6 integer i_indx(char *a, char *b, ftnlen la, ftnlen lb)
   7 #endif
   8 {
   9 ftnlen 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 }