corrections by Bob Corbett. DLW

[unix-history] / usr / src / usr.bin / f77 / libF77 / i_indx.c

/*
*      "@(#)i_indx.c   1.1"
*/

long int i_indx(a, b, la, lb)
char *a, *b;
long int la, lb;
{
long int i, n;
char *s, *t, *bend;

n = la - lb + 1;
bend = b + lb;

for(i = 0 ; i < n ; ++i)
       {
       s = a + i;
       t = b;
       while(t < bend)
               if(*s++ != *t++)
                       goto no;
       return(i+1);
       no: ;
       }
return(0);
}