Lines Matching refs:ch_ref
97 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in passfb() macro
124 ch_ref(i, k, j) = cc_ref(i, j, k) + cc_ref(i, jc, k); in passfb()
125 ch_ref(i, k, jc) = cc_ref(i, j, k) - cc_ref(i, jc, k); in passfb()
131 ch_ref(i, k, 1) = cc_ref(i, 1, k); in passfb()
139 ch_ref(i, k, j) = cc_ref(i, j, k) + cc_ref(i, jc, k); in passfb()
140 ch_ref(i, k, jc) = cc_ref(i, j, k) - cc_ref(i, jc, k); in passfb()
146 ch_ref(i, k, 1) = cc_ref(i, 1, k); in passfb()
199 c1_ref(1, k, j) = ch_ref(1, k, j); in passfb()
200 c1_ref(2, k, j) = ch_ref(2, k, j); in passfb()
210 … c1_ref(i - 1, k, j) = wa[idij - 1] * ch_ref(i - 1, k, j) - fsign*wa[idij] * ch_ref(i, k, j); in passfb()
211 c1_ref(i, k, j) = wa[idij - 1] * ch_ref(i, k, j) + fsign*wa[idij] * ch_ref(i - 1, k, j); in passfb()
224 c1_ref(i - 1, k, j) = wa[idij - 1] * ch_ref(i - 1, k, j) - fsign*wa[idij] * ch_ref(i, k, j); in passfb()
225 c1_ref(i, k, j) = wa[idij - 1] * ch_ref(i, k, j) + fsign*wa[idij] * ch_ref(i - 1, k, j); in passfb()
232 #undef ch_ref
249 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in passb2() macro
261 ch_ref(1, k, 1) = cc_ref(1, 1, k) + cc_ref(1, 2, k); in passb2()
262 ch_ref(1, k, 2) = cc_ref(1, 1, k) - cc_ref(1, 2, k); in passb2()
263 ch_ref(2, k, 1) = cc_ref(2, 1, k) + cc_ref(2, 2, k); in passb2()
264 ch_ref(2, k, 2) = cc_ref(2, 1, k) - cc_ref(2, 2, k); in passb2()
270 ch_ref(i - 1, k, 1) = cc_ref(i - 1, 1, k) + cc_ref(i - 1, 2, k); in passb2()
272 ch_ref(i, k, 1) = cc_ref(i, 1, k) + cc_ref(i, 2, k); in passb2()
274 ch_ref(i, k, 2) = wa1[i - 1] * ti2 + wa1[i] * tr2; in passb2()
275 ch_ref(i - 1, k, 2) = wa1[i - 1] * tr2 - wa1[i] * ti2; in passb2()
280 #undef ch_ref
298 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in passb3() macro
313 ch_ref(1, k, 1) = cc_ref(1, 1, k) + tr2; in passb3()
316 ch_ref(2, k, 1) = cc_ref(2, 1, k) + ti2; in passb3()
319 ch_ref(1, k, 2) = cr2 - ci3; in passb3()
320 ch_ref(1, k, 3) = cr2 + ci3; in passb3()
321 ch_ref(2, k, 2) = ci2 + cr3; in passb3()
322 ch_ref(2, k, 3) = ci2 - cr3; in passb3()
329 ch_ref(i - 1, k, 1) = cc_ref(i - 1, 1, k) + tr2; in passb3()
332 ch_ref(i, k, 1) = cc_ref(i, 1, k) + ti2; in passb3()
339 ch_ref(i, k, 2) = wa1[i - 1] * di2 + wa1[i] * dr2; in passb3()
340 ch_ref(i - 1, k, 2) = wa1[i - 1] * dr2 - wa1[i] * di2; in passb3()
341 ch_ref(i, k, 3) = wa2[i - 1] * di3 + wa2[i] * dr3; in passb3()
342 ch_ref(i - 1, k, 3) = wa2[i - 1] * dr3 - wa2[i] * di3; in passb3()
348 #undef ch_ref
364 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in passb4() macro
386 ch_ref(1, k, 1) = tr2 + tr3; in passb4()
387 ch_ref(1, k, 3) = tr2 - tr3; in passb4()
388 ch_ref(2, k, 1) = ti2 + ti3; in passb4()
389 ch_ref(2, k, 3) = ti2 - ti3; in passb4()
390 ch_ref(1, k, 2) = tr1 + tr4; in passb4()
391 ch_ref(1, k, 4) = tr1 - tr4; in passb4()
392 ch_ref(2, k, 2) = ti1 + ti4; in passb4()
393 ch_ref(2, k, 4) = ti1 - ti4; in passb4()
406 ch_ref(i - 1, k, 1) = tr2 + tr3; in passb4()
408 ch_ref(i, k, 1) = ti2 + ti3; in passb4()
414 ch_ref(i - 1, k, 2) = wa1[i - 1] * cr2 - wa1[i] * ci2; in passb4()
415 ch_ref(i, k, 2) = wa1[i - 1] * ci2 + wa1[i] * cr2; in passb4()
416 ch_ref(i - 1, k, 3) = wa2[i - 1] * cr3 - wa2[i] * ci3; in passb4()
417 ch_ref(i, k, 3) = wa2[i - 1] * ci3 + wa2[i] * cr3; 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()
425 #undef ch_ref
447 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in passfb5() macro
470 ch_ref(1, k, 1) = cc_ref(1, 1, k) + tr2 + tr3; in passfb5()
471 ch_ref(2, k, 1) = cc_ref(2, 1, k) + ti2 + ti3; in passfb5()
480 ch_ref(1, k, 2) = cr2 - ci5; in passfb5()
481 ch_ref(1, k, 5) = cr2 + ci5; in passfb5()
482 ch_ref(2, k, 2) = ci2 + cr5; in passfb5()
483 ch_ref(2, k, 3) = ci3 + cr4; in passfb5()
484 ch_ref(1, k, 3) = cr3 - ci4; in passfb5()
485 ch_ref(1, k, 4) = cr3 + ci4; in passfb5()
486 ch_ref(2, k, 4) = ci3 - cr4; in passfb5()
487 ch_ref(2, k, 5) = ci2 - cr5; in passfb5()
500 ch_ref(i - 1, k, 1) = cc_ref(i - 1, 1, k) + tr2 + tr3; in passfb5()
501 ch_ref(i, k, 1) = cc_ref(i, 1, k) + ti2 + ti3; in passfb5()
518 ch_ref(i - 1, k, 2) = wa1[i - 1] * dr2 - fsign*wa1[i] * di2; in passfb5()
519 ch_ref(i, k, 2) = wa1[i - 1] * di2 + fsign*wa1[i] * dr2; in passfb5()
520 ch_ref(i - 1, k, 3) = wa2[i - 1] * dr3 - fsign*wa2[i] * di3; in passfb5()
521 ch_ref(i, k, 3) = wa2[i - 1] * di3 + fsign*wa2[i] * dr3; in passfb5()
522 ch_ref(i - 1, k, 4) = wa3[i - 1] * dr4 - fsign*wa3[i] * di4; in passfb5()
523 ch_ref(i, k, 4) = wa3[i - 1] * di4 + fsign*wa3[i] * dr4; in passfb5()
524 ch_ref(i - 1, k, 5) = wa4[i - 1] * dr5 - fsign*wa4[i] * di5; in passfb5()
525 ch_ref(i, k, 5) = wa4[i - 1] * di5 + fsign*wa4[i] * dr5; in passfb5()
531 #undef ch_ref
545 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in passf2() macro
557 ch_ref(1, k, 1) = cc_ref(1, 1, k) + cc_ref(1, 2, k); in passf2()
558 ch_ref(1, k, 2) = cc_ref(1, 1, k) - cc_ref(1, 2, k); in passf2()
559 ch_ref(2, k, 1) = cc_ref(2, 1, k) + cc_ref(2, 2, k); in passf2()
560 ch_ref(2, k, 2) = cc_ref(2, 1, k) - cc_ref(2, 2, k); in passf2()
565 ch_ref(i - 1, k, 1) = cc_ref(i - 1, 1, k) + cc_ref(i - 1, 2, in passf2()
568 ch_ref(i, k, 1) = cc_ref(i, 1, k) + cc_ref(i, 2, k); in passf2()
570 ch_ref(i, k, 2) = wa1[i - 1] * ti2 - wa1[i] * tr2; in passf2()
571 ch_ref(i - 1, k, 2) = wa1[i - 1] * tr2 + wa1[i] * ti2; in passf2()
577 #undef ch_ref
596 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in passf3() macro
611 ch_ref(1, k, 1) = cc_ref(1, 1, k) + tr2; in passf3()
614 ch_ref(2, k, 1) = cc_ref(2, 1, k) + ti2; in passf3()
617 ch_ref(1, k, 2) = cr2 - ci3; in passf3()
618 ch_ref(1, k, 3) = cr2 + ci3; in passf3()
619 ch_ref(2, k, 2) = ci2 + cr3; in passf3()
620 ch_ref(2, k, 3) = ci2 - cr3; in passf3()
627 ch_ref(i - 1, k, 1) = cc_ref(i - 1, 1, k) + tr2; in passf3()
630 ch_ref(i, k, 1) = cc_ref(i, 1, k) + ti2; in passf3()
637 ch_ref(i, k, 2) = wa1[i - 1] * di2 - wa1[i] * dr2; in passf3()
638 ch_ref(i - 1, k, 2) = wa1[i - 1] * dr2 + wa1[i] * di2; in passf3()
639 ch_ref(i, k, 3) = wa2[i - 1] * di3 - wa2[i] * dr3; in passf3()
640 ch_ref(i - 1, k, 3) = wa2[i - 1] * dr3 + wa2[i] * di3; in passf3()
646 #undef ch_ref
662 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in passf4() macro
684 ch_ref(1, k, 1) = tr2 + tr3; in passf4()
685 ch_ref(1, k, 3) = tr2 - tr3; in passf4()
686 ch_ref(2, k, 1) = ti2 + ti3; in passf4()
687 ch_ref(2, k, 3) = ti2 - ti3; in passf4()
688 ch_ref(1, k, 2) = tr1 + tr4; in passf4()
689 ch_ref(1, k, 4) = tr1 - tr4; in passf4()
690 ch_ref(2, k, 2) = ti1 + ti4; in passf4()
691 ch_ref(2, k, 4) = ti1 - ti4; in passf4()
704 ch_ref(i - 1, k, 1) = tr2 + tr3; in passf4()
706 ch_ref(i, k, 1) = ti2 + ti3; in passf4()
712 ch_ref(i - 1, k, 2) = wa1[i - 1] * cr2 + wa1[i] * ci2; in passf4()
713 ch_ref(i, k, 2) = wa1[i - 1] * ci2 - wa1[i] * cr2; in passf4()
714 ch_ref(i - 1, k, 3) = wa2[i - 1] * cr3 + wa2[i] * ci3; in passf4()
715 ch_ref(i, k, 3) = wa2[i - 1] * ci3 - wa2[i] * cr3; 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()
723 #undef ch_ref
738 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in radb2() macro
749 ch_ref(1, k, 1) = cc_ref(1, 1, k) + cc_ref(ido, 2, k); in radb2()
750 ch_ref(1, k, 2) = cc_ref(1, 1, k) - cc_ref(ido, 2, k); in radb2()
758 ch_ref(i - 1, k, 1) = cc_ref(i - 1, 1, k) + cc_ref(ic - 1, 2, in radb2()
761 ch_ref(i, k, 1) = cc_ref(i, 1, k) - cc_ref(ic, 2, k); in radb2()
763 ch_ref(i - 1, k, 2) = wa1[i - 2] * tr2 - wa1[i - 1] * ti2; in radb2()
764 ch_ref(i, k, 2) = wa1[i - 2] * ti2 + wa1[i - 1] * tr2; in radb2()
770 ch_ref(ido, k, 1) = cc_ref(ido, 1, k) + cc_ref(ido, 1, k); in radb2()
771 ch_ref(ido, k, 2) = -(cc_ref(1, 2, k) + cc_ref(1, 2, k)); in radb2()
775 #undef ch_ref
797 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in radb3() macro
811 ch_ref(1, k, 1) = cc_ref(1, 1, k) + tr2; in radb3()
813 ch_ref(1, k, 2) = cr2 - ci3; in radb3()
814 ch_ref(1, k, 3) = cr2 + ci3; in radb3()
825 ch_ref(i - 1, k, 1) = cc_ref(i - 1, 1, k) + tr2; in radb3()
828 ch_ref(i, k, 1) = cc_ref(i, 1, k) + ti2; in radb3()
835 ch_ref(i - 1, k, 2) = wa1[i - 2] * dr2 - wa1[i - 1] * di2; in radb3()
836 ch_ref(i, k, 2) = wa1[i - 2] * di2 + wa1[i - 1] * dr2; in radb3()
837 ch_ref(i - 1, k, 3) = wa2[i - 2] * dr3 - wa2[i - 1] * di3; in radb3()
838 ch_ref(i, k, 3) = wa2[i - 2] * di3 + wa2[i - 1] * dr3; in radb3()
843 #undef ch_ref
864 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in radb4() macro
881 ch_ref(1, k, 1) = tr2 + tr3; in radb4()
882 ch_ref(1, k, 2) = tr1 - tr4; in radb4()
883 ch_ref(1, k, 3) = tr2 - tr3; in radb4()
884 ch_ref(1, k, 4) = tr1 + tr4; in radb4()
900 ch_ref(i - 1, k, 1) = tr2 + tr3; in radb4()
902 ch_ref(i, k, 1) = ti2 + ti3; in radb4()
908 ch_ref(i - 1, k, 2) = wa1[i - 2] * cr2 - wa1[i - 1] * ci2; in radb4()
909 ch_ref(i, k, 2) = wa1[i - 2] * ci2 + wa1[i - 1] * cr2; in radb4()
910 ch_ref(i - 1, k, 3) = wa2[i - 2] * cr3 - wa2[i - 1] * ci3; in radb4()
911 ch_ref(i, k, 3) = wa2[i - 2] * ci3 + wa2[i - 1] * cr3; 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()
923 ch_ref(ido, k, 1) = tr2 + tr2; in radb4()
924 ch_ref(ido, k, 2) = sqrt2 * (tr1 - ti1); in radb4()
925 ch_ref(ido, k, 3) = ti2 + ti2; in radb4()
926 ch_ref(ido, k, 4) = -sqrt2 * (tr1 + ti1); in radb4()
930 #undef ch_ref
955 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in radb5() macro
973 ch_ref(1, k, 1) = cc_ref(1, 1, k) + tr2 + tr3; in radb5()
978 ch_ref(1, k, 2) = cr2 - ci5; in radb5()
979 ch_ref(1, k, 3) = cr3 - ci4; in radb5()
980 ch_ref(1, k, 4) = cr3 + ci4; in radb5()
981 ch_ref(1, k, 5) = cr2 + ci5; in radb5()
998 ch_ref(i - 1, k, 1) = cc_ref(i - 1, 1, k) + tr2 + tr3; in radb5()
999 ch_ref(i, k, 1) = cc_ref(i, 1, k) + ti2 + ti3; in radb5()
1016 ch_ref(i - 1, k, 2) = wa1[i - 2] * dr2 - wa1[i - 1] * di2; in radb5()
1017 ch_ref(i, k, 2) = wa1[i - 2] * di2 + wa1[i - 1] * dr2; in radb5()
1018 ch_ref(i - 1, k, 3) = wa2[i - 2] * dr3 - wa2[i - 1] * di3; in radb5()
1019 ch_ref(i, k, 3) = wa2[i - 2] * di3 + wa2[i - 1] * dr3; in radb5()
1020 ch_ref(i - 1, k, 4) = wa3[i - 2] * dr4 - wa3[i - 1] * di4; in radb5()
1021 ch_ref(i, k, 4) = wa3[i - 2] * di4 + wa3[i - 1] * dr4; in radb5()
1022 ch_ref(i - 1, k, 5) = wa4[i - 2] * dr5 - wa4[i - 1] * di5; in radb5()
1023 ch_ref(i, k, 5) = wa4[i - 2] * di5 + wa4[i - 1] * dr5; in radb5()
1028 #undef ch_ref
1050 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in radbg() macro
1077 ch_ref(i, k, 1) = cc_ref(i, 1, k); in radbg()
1083 ch_ref(i, k, 1) = cc_ref(i, 1, k); in radbg()
1091 ch_ref(1, k, j) = cc_ref(ido, j2 - 2, k) + cc_ref(ido, j2 - 2, k); in radbg()
1092 ch_ref(1, k, jc) = cc_ref(1, j2 - 1, k) + cc_ref(1, j2 - 1, k); in radbg()
1102 ch_ref(i - 1, k, j) = cc_ref(i - 1, (j << 1) - 1, k) + cc_ref(ic - 1, (j << 1) - 2, k); in radbg()
1103 ch_ref(i - 1, k, jc) = cc_ref(i - 1, (j << 1) - 1, k) - cc_ref(ic - 1, (j << 1) - 2, k); in radbg()
1104 ch_ref(i, k, j) = cc_ref(i, (j << 1) - 1, k) - cc_ref(ic, (j << 1) - 2, k); in radbg()
1105 ch_ref(i, k, jc) = cc_ref(i, (j << 1) - 1, k) + cc_ref(ic, (j << 1) - 2, k); in radbg()
1115 ch_ref(i - 1, k, j) = cc_ref(i - 1, (j << 1) - 1, k) + cc_ref(ic - 1, (j << 1) - 2, k); in radbg()
1116 ch_ref(i - 1, k, jc) = cc_ref(i - 1, (j << 1) - 1, k) - cc_ref(ic - 1, (j << 1) - 2, k); in radbg()
1117 ch_ref(i, k, j) = cc_ref(i, (j << 1) - 1, k) - cc_ref(ic, (j << 1) - 2, k); in radbg()
1118 ch_ref(i, k, jc) = cc_ref(i, (j << 1) - 1, k) + cc_ref(ic, (j << 1) - 2, k); in radbg()
1158 ch_ref(1, k, j) = c1_ref(1, k, j) - c1_ref(1, k, jc); in radbg()
1159 ch_ref(1, k, jc) = c1_ref(1, k, j) + c1_ref(1, k, jc); in radbg()
1168 ch_ref(i - 1, k, j) = c1_ref(i - 1, k, j) - c1_ref(i, k, jc); in radbg()
1169 ch_ref(i - 1, k, jc) = c1_ref(i - 1, k, j) + c1_ref(i, k, jc); in radbg()
1170 ch_ref(i, k, j) = c1_ref(i, k, j) + c1_ref(i - 1, k, jc); in radbg()
1171 ch_ref(i, k, jc) = c1_ref(i, k, j) - c1_ref(i - 1, k, jc); in radbg()
1180 ch_ref(i - 1, k, j) = c1_ref(i - 1, k, j) - c1_ref(i, k, jc); in radbg()
1181 ch_ref(i - 1, k, jc) = c1_ref(i - 1, k, j) + c1_ref(i, k, jc); in radbg()
1182 ch_ref(i, k, j) = c1_ref(i, k, j) + c1_ref(i - 1, k, jc); in radbg()
1183 ch_ref(i, k, jc) = c1_ref(i, k, j) - c1_ref(i - 1, k, jc); in radbg()
1197 c1_ref(1, k, j) = ch_ref(1, k, j); in radbg()
1208 c1_ref(i - 1, k, j) = wa[idij - 1] * ch_ref(i - 1, k, j) in radbg()
1209 - wa[idij] * ch_ref(i, k, j); in radbg()
1210 c1_ref(i, k, j) = wa[idij - 1] * ch_ref(i, k, j) + wa[idij] * ch_ref(i - 1, k, j); in radbg()
1222 c1_ref(i - 1, k, j) = wa[idij - 1] * ch_ref(i - 1, k, j) in radbg()
1223 - wa[idij] * ch_ref(i, k, j); in radbg()
1224 c1_ref(i, k, j) = wa[idij - 1] * ch_ref(i, k, j) + wa[idij] * ch_ref(i - 1, k, j); in radbg()
1232 #undef ch_ref
1251 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*2 + (a_2))*ido + a_1] in radf2() macro
1262 ch_ref(1, 1, k) = cc_ref(1, k, 1) + cc_ref(1, k, 2); in radf2()
1263 ch_ref(ido, 2, k) = cc_ref(1, k, 1) - cc_ref(1, k, 2); in radf2()
1275 ch_ref(i, 1, k) = cc_ref(i, k, 1) + ti2; in radf2()
1276 ch_ref(ic, 2, k) = ti2 - cc_ref(i, k, 1); in radf2()
1277 ch_ref(i - 1, 1, k) = cc_ref(i - 1, k, 1) + tr2; in radf2()
1278 ch_ref(ic - 1, 2, k) = cc_ref(i - 1, k, 1) - tr2; in radf2()
1286 ch_ref(1, 2, k) = -cc_ref(ido, k, 2); in radf2()
1287 ch_ref(ido, 1, k) = cc_ref(ido, k, 1); in radf2()
1291 #undef ch_ref
1311 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*3 + (a_2))*ido + a_1] in radf3() macro
1324 ch_ref(1, 1, k) = cc_ref(1, k, 1) + cr2; in radf3()
1325 ch_ref(1, 3, k) = taui * (cc_ref(1, k, 3) - cc_ref(1, k, 2)); in radf3()
1326 ch_ref(ido, 2, k) = cc_ref(1, k, 1) + taur * cr2; in radf3()
1345 ch_ref(i - 1, 1, k) = cc_ref(i - 1, k, 1) + cr2; in radf3()
1346 ch_ref(i, 1, k) = cc_ref(i, k, 1) + ci2; in radf3()
1351 ch_ref(i - 1, 3, k) = tr2 + tr3; in radf3()
1352 ch_ref(ic - 1, 2, k) = tr2 - tr3; in radf3()
1353 ch_ref(i, 3, k) = ti2 + ti3; in radf3()
1354 ch_ref(ic, 2, k) = ti3 - ti2; in radf3()
1359 #undef ch_ref
1380 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*4 + (a_2))*ido + a_1] in radf4() macro
1395 ch_ref(1, 1, k) = tr1 + tr2; in radf4()
1396 ch_ref(ido, 4, k) = tr2 - tr1; in radf4()
1397 ch_ref(ido, 2, k) = cc_ref(1, k, 1) - cc_ref(1, k, 3); in radf4()
1398 ch_ref(1, 3, k) = cc_ref(1, k, 4) - cc_ref(1, k, 2); in radf4()
1426 ch_ref(i - 1, 1, k) = tr1 + tr2; in radf4()
1427 ch_ref(ic - 1, 4, k) = tr2 - tr1; in radf4()
1428 ch_ref(i, 1, k) = ti1 + ti2; in radf4()
1429 ch_ref(ic, 4, k) = ti1 - ti2; in radf4()
1430 ch_ref(i - 1, 3, k) = ti4 + tr3; in radf4()
1431 ch_ref(ic - 1, 2, k) = tr3 - ti4; in radf4()
1432 ch_ref(i, 3, k) = tr4 + ti3; in radf4()
1433 ch_ref(ic, 2, k) = tr4 - ti3; in radf4()
1443 ch_ref(ido, 1, k) = tr1 + cc_ref(ido, k, 1); in radf4()
1444 ch_ref(ido, 3, k) = cc_ref(ido, k, 1) - tr1; in radf4()
1445 ch_ref(1, 2, k) = ti1 - cc_ref(ido, k, 3); in radf4()
1446 ch_ref(1, 4, k) = ti1 + cc_ref(ido, k, 3); in radf4()
1450 #undef ch_ref
1475 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*5 + (a_2))*ido + a_1] in radf5() macro
1493 ch_ref(1, 1, k) = cc_ref(1, k, 1) + cr2 + cr3; in radf5()
1494 ch_ref(ido, 2, k) = cc_ref(1, k, 1) + tr11 * cr2 + tr12 * cr3; in radf5()
1495 ch_ref(1, 3, k) = ti11 * ci5 + ti12 * ci4; in radf5()
1496 ch_ref(ido, 4, k) = cc_ref(1, k, 1) + tr12 * cr2 + tr11 * cr3; in radf5()
1497 ch_ref(1, 5, k) = ti12 * ci5 - ti11 * ci4; in radf5()
1522 ch_ref(i - 1, 1, k) = cc_ref(i - 1, k, 1) + cr2 + cr3; in radf5()
1523 ch_ref(i, 1, k) = cc_ref(i, k, 1) + ci2 + ci3; in radf5()
1532 ch_ref(i - 1, 3, k) = tr2 + tr5; in radf5()
1533 ch_ref(ic - 1, 2, k) = tr2 - tr5; in radf5()
1534 ch_ref(i, 3, k) = ti2 + ti5; in radf5()
1535 ch_ref(ic, 2, k) = ti5 - ti2; in radf5()
1536 ch_ref(i - 1, 5, k) = tr3 + tr4; in radf5()
1537 ch_ref(ic - 1, 4, k) = tr3 - tr4; in radf5()
1538 ch_ref(i, 5, k) = ti3 + ti4; in radf5()
1539 ch_ref(ic, 4, k) = ti4 - ti3; in radf5()
1544 #undef ch_ref
1566 #define ch_ref(a_1,a_2,a_3) ch[((a_3)*l1 + (a_2))*ido + a_1] in radfg() macro
1600 ch_ref(1, k, j) = c1_ref(1, k, j); in radfg()
1611 ch_ref(i - 1, k, j) = wa[idij - 1] * c1_ref(i - 1, k, j) in radfg()
1613 ch_ref(i, k, j) = wa[idij - 1] * c1_ref(i, k, j) - wa[ in radfg()
1626 ch_ref(i - 1, k, j) = wa[idij - 1] * c1_ref(i - 1, k, j) in radfg()
1628 ch_ref(i, k, j) = wa[idij - 1] * c1_ref(i, k, j) - wa[ in radfg()
1639 c1_ref(i - 1, k, j) = ch_ref(i - 1, k, j) + ch_ref(i - in radfg()
1641 c1_ref(i - 1, k, jc) = ch_ref(i, k, j) - ch_ref(i, k, in radfg()
1643 c1_ref(i, k, j) = ch_ref(i, k, j) + ch_ref(i, k, jc); in radfg()
1644 c1_ref(i, k, jc) = ch_ref(i - 1, k, jc) - ch_ref(i - 1, in radfg()
1654 c1_ref(i - 1, k, j) = ch_ref(i - 1, k, j) + ch_ref(i - in radfg()
1656 c1_ref(i - 1, k, jc) = ch_ref(i, k, j) - ch_ref(i, k, in radfg()
1658 c1_ref(i, k, j) = ch_ref(i, k, j) + ch_ref(i, k, jc); in radfg()
1659 c1_ref(i, k, jc) = ch_ref(i - 1, k, jc) - ch_ref(i - 1, in radfg()
1669 c1_ref(1, k, j) = ch_ref(1, k, j) + ch_ref(1, k, jc); in radfg()
1670 c1_ref(1, k, jc) = ch_ref(1, k, jc) - ch_ref(1, k, j); in radfg()
1709 cc_ref(i, 1, k) = ch_ref(i, k, 1); in radfg()
1715 cc_ref(i, 1, k) = ch_ref(i, k, 1); in radfg()
1723 cc_ref(ido, j2 - 2, k) = ch_ref(1, k, j); in radfg()
1724 cc_ref(1, j2 - 1, k) = ch_ref(1, k, jc); in radfg()
1737 cc_ref(i - 1, j2 - 1, k) = ch_ref(i - 1, k, j) + ch_ref( in radfg()
1739 cc_ref(ic - 1, j2 - 2, k) = ch_ref(i - 1, k, j) - ch_ref( in radfg()
1741 cc_ref(i, j2 - 1, k) = ch_ref(i, k, j) + ch_ref(i, k, in radfg()
1743 cc_ref(ic, j2 - 2, k) = ch_ref(i, k, jc) - ch_ref(i, k, j) in radfg()
1755 cc_ref(i - 1, j2 - 1, k) = ch_ref(i - 1, k, j) + ch_ref( in radfg()
1757 cc_ref(ic - 1, j2 - 2, k) = ch_ref(i - 1, k, j) - ch_ref( in radfg()
1759 cc_ref(i, j2 - 1, k) = ch_ref(i, k, j) + ch_ref(i, k, in radfg()
1761 cc_ref(ic, j2 - 2, k) = ch_ref(i, k, jc) - ch_ref(i, k, j) in radfg()
1770 #undef ch_ref