1778   integer i, k1, l1, l2, na, nf, ip, iw, ix2, ix3, ix4, nac, ido,   in cfftb1()  local
1811         ix4 = ix3 + idot;  in cfftb1()
1812         passfb5(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4], +1);  in cfftb1()
1857   integer i, k1, l1, l2, na, nf, ip, iw, ix2, ix3, ix4, nac, ido,   in cfftf1()  local
1890         ix4 = ix3 + idot;  in cfftf1()
1891         passfb5(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4], -1);  in cfftf1()
2037   integer i, k1, l1, l2, na, nf, ip, iw, ix2, ix3, ix4, ido, idl1;  in rfftb1()  local
2068         ix4 = ix3 + ido;  in rfftb1()
2069         radb5(ido, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4]);  in rfftb1()
2097   integer i, k1, l1, l2, na, kh, nf, ip, iw, ix2, ix3, ix4, ido, idl1;  in rfftf1()  local
2128         ix4 = ix3 + ido;  in rfftf1()
2129         radf5(ido, l1, na ? ch : c, na ? c : ch, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4]);  in rfftf1()