Lines Matching refs:wdr
827 double ec, w1r, w1i, wkr, wki, wdr, wdi, ss, xr, xi, yr, yi; in M_rftfsub() local
833 wdr = sin(ec); in M_rftfsub()
834 wdi *= wdr; in M_rftfsub()
835 wdr *= wdr; in M_rftfsub()
836 w1r = 1 - 2 * wdr; in M_rftfsub()
849 yr = wdr * xr - wdi * xi; in M_rftfsub()
850 yi = wdr * xi + wdi * xr; in M_rftfsub()
856 wki += ss * (0.5 - wdr); in M_rftfsub()
865 wdr += ss * wki; in M_rftfsub()
873 wdr = 0.5 - (wkr * w1r - wki * w1i); in M_rftfsub()
880 yr = wdr * xr - wdi * xi; in M_rftfsub()
881 yi = wdr * xi + wdi * xr; in M_rftfsub()
893 double ec, w1r, w1i, wkr, wki, wdr, wdi, ss, xr, xi, yr, yi; in M_rftbsub() local
899 wdr = sin(ec); in M_rftbsub()
900 wdi *= wdr; in M_rftbsub()
901 wdr *= wdr; in M_rftbsub()
902 w1r = 1 - 2 * wdr; in M_rftbsub()
916 yr = wdr * xr + wdi * xi; in M_rftbsub()
917 yi = wdr * xi - wdi * xr; in M_rftbsub()
923 wki += ss * (0.5 - wdr); in M_rftbsub()
932 wdr += ss * wki; in M_rftbsub()
940 wdr = 0.5 - (wkr * w1r - wki * w1i); in M_rftbsub()
947 yr = wdr * xr + wdi * xi; in M_rftbsub()
948 yi = wdr * xi - wdi * xr; in M_rftbsub()