1void
2f (a, b, m, n)
3     unsigned short *a, *b;
4     int m, n;
5{
6  unsigned long acc;
7  int qn;
8  int j;
9
10  abort ();
11
12  acc = a[m - 1];
13  a += 0;
14  for (j = qn - 1; j >= 0; j = j - 1)
15    {
16      acc = (acc << 16) | a[j];
17      acc = acc % *b;
18    }
19
20  return;
21}
22