81 static void passfb(integer *nac, integer ido, integer ip, integer l1, integer idl1,   in passfb()  argument
95 #define c2_ref(a_1,a_2) c2[(a_2)*idl1 + a_1]  in passfb()
98 #define ch2_ref(a_1,a_2) ch2[(a_2)*idl1 + a_1]  in passfb()
107   ch2_offset = 1 + idl1;  in passfb()
109   c2_offset = 1 + idl1;  in passfb()
155     for (ik = 1; ik <= idl1; ++ik) {  in passfb()
169       for (ik = 1; ik <= idl1; ++ik) {  in passfb()
176     for (ik = 1; ik <= idl1; ++ik) {  in passfb()
182     for (ik = 2; ik <= idl1; ik += 2) {  in passfb()
194   for (ik = 1; ik <= idl1; ++ik) {  in passfb()
1032 static void radbg(integer ido, integer ip, integer l1, integer idl1,   in radbg()  argument
1048 #define c2_ref(a_1,a_2) c2[(a_2)*idl1 + a_1]  in radbg()
1051 #define ch2_ref(a_1,a_2) ch2[(a_2)*idl1 + a_1]  in radbg()
1060   ch2_offset = 1 + idl1;  in radbg()
1062   c2_offset = 1 + idl1;  in radbg()
1131     for (ik = 1; ik <= idl1; ++ik) {  in radbg()
1144       for (ik = 1; ik <= idl1; ++ik) {  in radbg()
1151     for (ik = 1; ik <= idl1; ++ik) {  in radbg()
1192   for (ik = 1; ik <= idl1; ++ik) {  in radbg()
1548 static void radfg(integer ido, integer ip, integer l1, integer idl1,   in radfg()  argument
1564 #define c2_ref(a_1,a_2) c2[(a_2)*idl1 + a_1]  in radfg()
1567 #define ch2_ref(a_1,a_2) ch2[(a_2)*idl1 + a_1]  in radfg()
1576   ch2_offset = 1 + idl1;  in radfg()
1578   c2_offset = 1 + idl1;  in radfg()
1591     for (ik = 1; ik <= idl1; ++ik) {  in radfg()
1595     for (ik = 1; ik <= idl1; ++ik) {  in radfg()
1681     for (ik = 1; ik <= idl1; ++ik) {  in radfg()
1694       for (ik = 1; ik <= idl1; ++ik) {  in radfg()
1701     for (ik = 1; ik <= idl1; ++ik) {  in radfg()
1779     idl1, idot;  in cfftb1()  local
1791     idl1 = idot * l1;  in cfftb1()
1817           passfb(&nac, idot, ip, l1, idl1, c, c, c, ch, ch, &wa[iw], +1);  in cfftb1()
1819           passfb(&nac, idot, ip, l1, idl1, ch, ch, ch, c, c, &wa[iw], +1);  in cfftb1()
1858     idl1, idot;  in cfftf1()  local
1870     idl1 = idot * l1;  in cfftf1()
1896           passfb(&nac, idot, ip, l1, idl1, c, c, c, ch, ch, &wa[iw], -1);  in cfftf1()
1898           passfb(&nac, idot, ip, l1, idl1, ch, ch, ch, c, c, &wa[iw], -1);  in cfftf1()
2037   integer i, k1, l1, l2, na, nf, ip, iw, ix2, ix3, ix4, ido, idl1;  in rfftb1()  local
2048     idl1 = ido * l1;  in rfftb1()
2074           radbg(ido, ip, l1, idl1, c, c, c, ch, ch, &wa[iw]);  in rfftb1()
2076           radbg(ido, ip, l1, idl1, ch, ch, ch, c, c, &wa[iw]);  in rfftb1()
2097   integer i, k1, l1, l2, na, kh, nf, ip, iw, ix2, ix3, ix4, ido, idl1;  in rfftf1()  local
2109     idl1 = ido * l1;  in rfftf1()
2136           radfg(ido, ip, l1, idl1, c, c, c, ch, ch, &wa[iw]);  in rfftf1()
2139           radfg(ido, ip, l1, idl1, ch, ch, ch, c, c, &wa[iw]);  in rfftf1()