Lines Matching refs:wn4r
591 double ew, wn4r, wk1r, wk1i, wk2r, wk2i, wk3r, wk3i; in M_cft1st() local
610 wn4r = WR5000; in M_cft1st()
625 a[10] = wn4r * (x0r - x0i); in M_cft1st()
626 a[11] = wn4r * (x0r + x0i); in M_cft1st()
629 a[14] = wn4r * (x0i - x0r); in M_cft1st()
630 a[15] = wn4r * (x0i + x0r); in M_cft1st()
663 x0r = wn4r * (wk1r - wk1i); in M_cft1st()
664 wk1i = wn4r * (wk1r + wk1i); in M_cft1st()
698 double ew, wn4r, wk1r, wk1i, wk2r, wk2i, wk3r, wk3i; in M_cftmdl() local
723 wn4r = WR5000; in M_cftmdl()
742 a[j1] = wn4r * (x0r - x0i); in M_cftmdl()
743 a[j1 + 1] = wn4r * (x0r + x0i); in M_cftmdl()
746 a[j3] = wn4r * (x0i - x0r); in M_cftmdl()
747 a[j3 + 1] = wn4r * (x0i + x0r); in M_cftmdl()
787 x0r = wn4r * (wk1r - wk1i); in M_cftmdl()
788 wk1i = wn4r * (wk1r + wk1i); in M_cftmdl()