Return to h_indx.c CVS log

Up to [Research Unix] / researchv10no / libF77

Annotation of researchv10no/libF77/h_indx.c, revision 1.1.1.1

1.1       root        1: #include "f2c.h"
                      2: 
                      3: #ifdef KR_headers
                      4: shortint h_indx(a, b, la, lb) char *a, *b; ftnlen la, lb;
                      5: #else
                      6: shortint h_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((shortint)i+1);
                     23:        no: ;
                     24:        }
                     25: return(0);
                     26: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.