98 #define ch2_ref(a_1,a_2) ch2[(a_2)*idl1 + a_1]  in passfb()  macro
156       c2_ref(ik, l) = ch2_ref(ik, 1) + wa[idl - 1] * ch2_ref(ik, 2);  in passfb()
157       c2_ref(ik, lc) = fsign*wa[idl] * ch2_ref(ik, ip);  in passfb()
170         c2_ref(ik, l) = c2_ref(ik, l) + war * ch2_ref(ik, j);  in passfb()
171         c2_ref(ik, lc) = c2_ref(ik, lc) + fsign*wai * ch2_ref(ik, jc);  in passfb()
177       ch2_ref(ik, 1) = ch2_ref(ik, 1) + ch2_ref(ik, j);  in passfb()
183       ch2_ref(ik - 1, j) = c2_ref(ik - 1, j) - c2_ref(ik, jc);  in passfb()
184       ch2_ref(ik - 1, jc) = c2_ref(ik - 1, j) + c2_ref(ik, jc);  in passfb()
185       ch2_ref(ik, j) = c2_ref(ik, j) + c2_ref(ik - 1, jc);  in passfb()
186       ch2_ref(ik, jc) = c2_ref(ik, j) - c2_ref(ik - 1, jc);  in passfb()
195     c2_ref(ik, 1) = ch2_ref(ik, 1);  in passfb()
231 #undef ch2_ref
1051 #define ch2_ref(a_1,a_2) ch2[(a_2)*idl1 + a_1]  in radbg()  macro
1132       c2_ref(ik, l) = ch2_ref(ik, 1) + ar1 * ch2_ref(ik, 2);  in radbg()
1133       c2_ref(ik, lc) = ai1 * ch2_ref(ik, ip);  in radbg()
1145         c2_ref(ik, l) = c2_ref(ik, l) + ar2 * ch2_ref(ik, j);  in radbg()
1146         c2_ref(ik, lc) = c2_ref(ik, lc) + ai2 * ch2_ref(ik, jc);  in radbg()
1152       ch2_ref(ik, 1) = ch2_ref(ik, 1) + ch2_ref(ik, j);  in radbg()
1193     c2_ref(ik, 1) = ch2_ref(ik, 1);  in radbg()
1231 #undef ch2_ref
1567 #define ch2_ref(a_1,a_2) ch2[(a_2)*idl1 + a_1]  in radfg()  macro
1592       c2_ref(ik, 1) = ch2_ref(ik, 1);  in radfg()
1596       ch2_ref(ik, 1) = c2_ref(ik, 1);  in radfg()
1682       ch2_ref(ik, l) = c2_ref(ik, 1) + ar1 * c2_ref(ik, 2);  in radfg()
1683       ch2_ref(ik, lc) = ai1 * c2_ref(ik, ip);  in radfg()
1695         ch2_ref(ik, l) = ch2_ref(ik, l) + ar2 * c2_ref(ik, j);  in radfg()
1696         ch2_ref(ik, lc) = ch2_ref(ik, lc) + ai2 * c2_ref(ik, jc);  in radfg()
1702       ch2_ref(ik, 1) = ch2_ref(ik, 1) + c2_ref(ik, j);  in radfg()
1769 #undef ch2_ref