360   real ci2, ci3, ci4, cr2, cr3, cr4, ti1, ti2, ti3, ti4, tr1, tr2, tr3, tr4;  in passb4()  local
413         ci4 = ti1 - ti4;  in passb4()
418         ch_ref(i - 1, k, 4) = wa3[i - 1] * cr4 - wa3[i] * ci4;  in passb4()
419         ch_ref(i, k, 4) = wa3[i - 1] * ci4 + wa3[i] * cr4;  in passb4()
442   real ci2, ci3, ci4, ci5, di3, di4, di5, di2, cr2, cr3, cr5, cr4, ti2, ti3,  in passfb5()  local
479       ci4 = ti12 * ti5 - ti11 * ti4;  in passfb5()
484       ch_ref(1, k, 3) = cr3 - ci4;  in passfb5()
485       ch_ref(1, k, 4) = cr3 + ci4;  in passfb5()
509         ci4 = ti12 * ti5 - ti11 * ti4;  in passfb5()
510         dr3 = cr3 - ci4;  in passfb5()
511         dr4 = cr3 + ci4;  in passfb5()
658   real ci2, ci3, ci4, cr2, cr3, cr4, ti1, ti2, ti3, ti4, tr1, tr2, tr3, tr4;  in passf4()  local
711         ci4 = ti1 - ti4;  in passf4()
716         ch_ref(i - 1, k, 4) = wa3[i - 1] * cr4 + wa3[i] * ci4;  in passf4()
717         ch_ref(i, k, 4) = wa3[i - 1] * ci4 - wa3[i] * cr4;  in passf4()
859   real ci2, ci3, ci4, cr2, cr3, cr4, ti1, ti2, ti3, ti4, tr1, tr2, tr3, tr4;  in radb4()  local
907         ci4 = ti1 - ti4;  in radb4()
912         ch_ref(i - 1, k, 4) = wa3[i - 2] * cr4 - wa3[i - 1] * ci4;  in radb4()
913         ch_ref(i, k, 4) = wa3[i - 2] * ci4 + wa3[i - 1] * cr4;  in radb4()
949   real ci2, ci3, ci4, ci5, di3, di4, di5, di2, cr2, cr3, cr5, cr4, ti2, ti3,  in radb5()  local
977     ci4 = ti12 * ti5 - ti11 * ti4;  in radb5()
979     ch_ref(1, k, 3) = cr3 - ci4;  in radb5()
980     ch_ref(1, k, 4) = cr3 + ci4;  in radb5()
1007       ci4 = ti12 * ti5 - ti11 * ti4;  in radb5()
1008       dr3 = cr3 - ci4;  in radb5()
1009       dr4 = cr3 + ci4;  in radb5()
1375   real ci2, ci3, ci4, cr2, cr3, cr4, ti1, ti2, ti3, ti4, tr1, tr2, tr3, tr4;  in radf4()  local
1416         ci4 = wa3[i - 2] * cc_ref(i, k, 4) - wa3[i - 1] * cc_ref(  in radf4()
1420         ti1 = ci2 + ci4;  in radf4()
1421         ti4 = ci2 - ci4;  in radf4()
1469   real ci2, di2, ci4, ci5, di3, di4, di5, ci3, cr2, cr3, dr2, dr3, dr4, dr5,  in radf5()  local
1492     ci4 = cc_ref(1, k, 4) - cc_ref(1, k, 3);  in radf5()
1495     ch_ref(1, 3, k) = ti11 * ci5 + ti12 * ci4;  in radf5()
1497     ch_ref(1, 5, k) = ti12 * ci5 - ti11 * ci4;  in radf5()
1519       ci4 = dr4 - dr3;  in radf5()
1529       ti5 = ti11 * ci5 + ti12 * ci4;  in radf5()
1531       ti4 = ti12 * ci5 - ti11 * ci4;  in radf5()