1 void
f(a,b,m,n)2 f (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