Lines Matching refs:wk1r
1041 double wk1r, wk1i, wk2r, wk2i, wk3r, wk3i; in cft1st() local
1060 wk1r = w[2]; in cft1st()
1075 a[10] = wk1r * (x0r - x0i); in cft1st()
1076 a[11] = wk1r * (x0r + x0i); in cft1st()
1079 a[14] = wk1r * (x0i - x0r); in cft1st()
1080 a[15] = wk1r * (x0i + x0r); in cft1st()
1087 wk1r = w[k2]; in cft1st()
1089 wk3r = wk1r - 2 * wk2i * wk1i; in cft1st()
1090 wk3i = 2 * wk2i * wk1r - wk1i; in cft1st()
1107 a[j + 2] = wk1r * x0r - wk1i * x0i; in cft1st()
1108 a[j + 3] = wk1r * x0i + wk1i * x0r; in cft1st()
1113 wk1r = w[k2 + 2]; in cft1st()
1115 wk3r = wk1r - 2 * wk2r * wk1i; in cft1st()
1116 wk3i = 2 * wk2r * wk1r - wk1i; in cft1st()
1133 a[j + 10] = wk1r * x0r - wk1i * x0i; in cft1st()
1134 a[j + 11] = wk1r * x0i + wk1i * x0r; in cft1st()
1146 double wk1r, wk1i, wk2r, wk2i, wk3r, wk3i; in cftmdl() local
1171 wk1r = w[2]; in cftmdl()
1190 a[j1] = wk1r * (x0r - x0i); in cftmdl()
1191 a[j1 + 1] = wk1r * (x0r + x0i); in cftmdl()
1194 a[j3] = wk1r * (x0i - x0r); in cftmdl()
1195 a[j3 + 1] = wk1r * (x0i + x0r); in cftmdl()
1204 wk1r = w[k2]; in cftmdl()
1206 wk3r = wk1r - 2 * wk2i * wk1i; in cftmdl()
1207 wk3i = 2 * wk2i * wk1r - wk1i; in cftmdl()
1228 a[j1] = wk1r * x0r - wk1i * x0i; in cftmdl()
1229 a[j1 + 1] = wk1r * x0i + wk1i * x0r; in cftmdl()
1235 wk1r = w[k2 + 2]; in cftmdl()
1237 wk3r = wk1r - 2 * wk2r * wk1i; in cftmdl()
1238 wk3i = 2 * wk2r * wk1r - wk1i; in cftmdl()
1259 a[j1] = wk1r * x0r - wk1i * x0i; in cftmdl()
1260 a[j1 + 1] = wk1r * x0i + wk1i * x0r; in cftmdl()