1778   integer i, k1, l1, l2, na, nf, ip, iw, ix2, ix3, ix4, nac, ido,   in cfftb1()  local
1794         ix2 = iw + idot;  in cfftb1()
1795         ix3 = ix2 + idot;  in cfftb1()
1796         passb4(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2], &wa[ix3]);  in cfftb1()
1804         ix2 = iw + idot;  in cfftb1()
1805         passb3(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2]);  in cfftb1()
1809         ix2 = iw + idot;  in cfftb1()
1810         ix3 = ix2 + 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
1873         ix2 = iw + idot;  in cfftf1()
1874         ix3 = ix2 + idot;  in cfftf1()
1875         passf4(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2], &wa[ix3]);  in cfftf1()
1883         ix2 = iw + idot;  in cfftf1()
1884         passf3(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2]);  in cfftf1()
1888         ix2 = iw + idot;  in cfftf1()
1889         ix3 = ix2 + 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
2051         ix2 = iw + ido;  in rfftb1()
2052         ix3 = ix2 + ido;  in rfftb1()
2053         radb4(ido, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2], &wa[ix3]);  in rfftb1()
2061         ix2 = iw + ido;  in rfftb1()
2062         radb3(ido, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2]);  in rfftb1()
2066         ix2 = iw + ido;  in rfftb1()
2067         ix3 = ix2 + 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
2114         ix2 = iw + ido;  in rfftf1()
2115         ix3 = ix2 + ido;  in rfftf1()
2116         radf4(ido, l1, na ? ch : c, na ? c : ch, &wa[iw], &wa[ix2], &wa[ix3]);  in rfftf1()
2122         ix2 = iw + ido;  in rfftf1()
2123         radf3(ido, l1, na ? ch : c, na ? c : ch, &wa[iw], &wa[ix2]);  in rfftf1()
2126         ix2 = iw + ido;  in rfftf1()
2127         ix3 = ix2 + ido;  in rfftf1()
2129         radf5(ido, l1, na ? ch : c, na ? c : ch, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4]);  in rfftf1()