Lines Matching refs:wki
827 double ec, w1r, w1i, wkr, wki, wdr, wdi, ss, xr, xi, yr, yi; in M_rftfsub() local
831 wki = 0; in M_rftfsub()
856 wki += ss * (0.5 - wdr); in M_rftfsub()
859 yr = wkr * xr - wki * xi; in M_rftfsub()
860 yi = wkr * xi + wki * xr; in M_rftfsub()
865 wdr += ss * wki; in M_rftfsub()
872 wki = 0.5 * cos(ec * i0); in M_rftfsub()
873 wdr = 0.5 - (wkr * w1r - wki * w1i); in M_rftfsub()
874 wdi = wkr * w1i + wki * w1r; in M_rftfsub()
893 double ec, w1r, w1i, wkr, wki, wdr, wdi, ss, xr, xi, yr, yi; in M_rftbsub() local
897 wki = 0; in M_rftbsub()
923 wki += ss * (0.5 - wdr); in M_rftbsub()
926 yr = wkr * xr + wki * xi; in M_rftbsub()
927 yi = wkr * xi - wki * xr; in M_rftbsub()
932 wdr += ss * wki; in M_rftbsub()
939 wki = 0.5 * cos(ec * i0); in M_rftbsub()
940 wdr = 0.5 - (wkr * w1r - wki * w1i); in M_rftbsub()
941 wdi = wkr * w1i + wki * w1r; in M_rftbsub()