contrib/libf2c/libF77/h_indx.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#include "f2c.h"

shortint
h_indx (char *a, char *b, ftnlen la, ftnlen lb)
{
  ftnlen 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 ((shortint) i + 1);
    no:;
    }
  return (0);
}