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