1void
2f1 (o1, o2, o3, i, j, k)
3     long long *o1, *o2, *o3;
4     int i, j, k;
5{
6  while (--i)
7    o1[i] = o2[j >>= 1] + o3[k >>= 1];
8}
9
10void
11f2 (o1, o2, o3, i, j, k)
12     long long *o1, *o2, *o3;
13     int i, j, k;
14{
15  while (--i)
16    o1[i] = o2[j >>= 1] - o3[k >>= 1];
17}
18
19void
20f3 (o1, o2, o3, i, j, k)
21     long long *o1, *o3;
22     unsigned *o2;
23     int i, j, k;
24{
25  while (--i)
26    o1[i] = o2[j >>= 1] + o3[k >>= 1];
27}
28
29void
30f4 (o1, o2, o3, i, j, k)
31     long long *o1, *o2;
32     unsigned *o3;
33     int i, j, k;
34{
35  while (--i)
36    o1[i] = o2[j >>= 1] - o3[k >>= 1];
37}
38