Lines Matching refs:yr
389 double xr, xi, yr, yi; in M_bitrv2() local
404 yr = a[k]; in M_bitrv2()
406 a[j] = yr; in M_bitrv2()
414 yr = a[k1]; in M_bitrv2()
416 a[j1] = yr; in M_bitrv2()
424 yr = a[k1]; in M_bitrv2()
426 a[j1] = yr; in M_bitrv2()
434 yr = a[k1]; in M_bitrv2()
436 a[j1] = yr; in M_bitrv2()
446 yr = a[k1]; in M_bitrv2()
448 a[j1] = yr; in M_bitrv2()
462 yr = a[k]; in M_bitrv2()
464 a[j] = yr; in M_bitrv2()
472 yr = a[k1]; in M_bitrv2()
474 a[j1] = yr; in M_bitrv2()
827 double ec, w1r, w1i, wkr, wki, wdr, wdi, ss, xr, xi, yr, yi; in M_rftfsub() local
849 yr = wdr * xr - wdi * xi; in M_rftfsub()
851 a[j + 2] -= yr; in M_rftfsub()
853 a[k - 2] += yr; in M_rftfsub()
859 yr = wkr * xr - wki * xi; in M_rftfsub()
861 a[j] -= yr; in M_rftfsub()
863 a[k] += yr; in M_rftfsub()
880 yr = wdr * xr - wdi * xi; in M_rftfsub()
882 a[2] -= yr; in M_rftfsub()
884 a[n - 2] += yr; in M_rftfsub()
893 double ec, w1r, w1i, wkr, wki, wdr, wdi, ss, xr, xi, yr, yi; in M_rftbsub() local
916 yr = wdr * xr + wdi * xi; in M_rftbsub()
918 a[j + 2] -= yr; in M_rftbsub()
920 a[k - 2] += yr; in M_rftbsub()
926 yr = wkr * xr + wki * xi; in M_rftbsub()
928 a[j] -= yr; in M_rftbsub()
930 a[k] += yr; in M_rftbsub()
947 yr = wdr * xr + wdi * xi; in M_rftbsub()
949 a[2] -= yr; in M_rftbsub()
951 a[n - 2] += yr; in M_rftbsub()