Lines Matching refs:wa1
238 static void passb2(integer ido, integer l1, const real *cc, real *ch, const real *wa1) in passb2() argument
256 --wa1; 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()
284 static void passb3(integer ido, integer l1, const real *cc, real *ch, const real *wa1, const real *… in passb3() argument
305 --wa1; 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()
353 const real *wa1, const real *wa2, const real *wa3) in passb4() argument
371 --wa1; 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()
430 const real *wa1, const real *wa2, const real *wa3, const real *wa4, real fsign) in passfb5() argument
454 --wa1; 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()
534 static void passf2(integer ido, integer l1, const real *cc, real *ch, const real *wa1) in passf2() argument
552 --wa1; 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()
582 const real *wa1, const real *wa2) in passf3() argument
603 --wa1; 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()
651 const real *wa1, const real *wa2, const real *wa3) in passf4() argument
669 --wa1; 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()
726 static void radb2(integer ido, integer l1, const real *cc, real *ch, const real *wa1) in radb2() argument
745 --wa1; 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()
780 const real *wa1, const real *wa2) in radb3() argument
804 --wa1; 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()
848 const real *wa1, const real *wa2, const real *wa3) in radb4() argument
871 --wa1; 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()
935 const real *wa1, const real *wa2, const real *wa3, const real *wa4) in radb5() argument
962 --wa1; 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()
1239 const real *wa1) in radf2() argument
1258 --wa1; in radf2()
1271 tr2 = wa1[i - 2] * cc_ref(i - 1, k, 2) + wa1[i - 1] * in radf2()
1273 ti2 = wa1[i - 2] * cc_ref(i, k, 2) - wa1[i - 1] * cc_ref( in radf2()
1296 const real *wa1, const real *wa2) in radf3() argument
1318 --wa1; in radf3()
1335 dr2 = wa1[i - 2] * cc_ref(i - 1, k, 2) + wa1[i - 1] * in radf3()
1337 di2 = wa1[i - 2] * cc_ref(i, k, 2) - wa1[i - 1] * cc_ref( in radf3()
1364 const real *wa1, const real *wa2, const real *wa3) in radf4() argument
1387 --wa1; in radf4()
1406 cr2 = wa1[i - 2] * cc_ref(i - 1, k, 2) + wa1[i - 1] * in radf4()
1408 ci2 = wa1[i - 2] * cc_ref(i, k, 2) - wa1[i - 1] * cc_ref( in radf4()
1455 const real *wa1, const real *wa2, const real *wa3, const real *wa4) in radf5() argument
1482 --wa1; in radf5()
1506 dr2 = wa1[i - 2] * cc_ref(i - 1, k, 2) + wa1[i - 1] * cc_ref(i, k, 2); in radf5()
1507 di2 = wa1[i - 2] * cc_ref(i, k, 2) - wa1[i - 1] * cc_ref(i - 1, k, 2); in radf5()