Lines Matching full:wk1r
1035 float wk1r, wk1i, wk2r, wk2i, wk3r, wk3i;
1054 wk1r = w[2];
1069 a[10] = wk1r * (x0r - x0i);
1070 a[11] = wk1r * (x0r + x0i);
1073 a[14] = wk1r * (x0i - x0r);
1074 a[15] = wk1r * (x0i + x0r);
1081 wk1r = w[k2];
1083 wk3r = wk1r - 2 * wk2i * wk1i;
1084 wk3i = 2 * wk2i * wk1r - wk1i;
1101 a[j + 2] = wk1r * x0r - wk1i * x0i;
1102 a[j + 3] = wk1r * x0i + wk1i * x0r;
1107 wk1r = w[k2 + 2];
1109 wk3r = wk1r - 2 * wk2r * wk1i;
1110 wk3i = 2 * wk2r * wk1r - wk1i;
1127 a[j + 10] = wk1r * x0r - wk1i * x0i;
1128 a[j + 11] = wk1r * x0i + wk1i * x0r;
1140 float wk1r, wk1i, wk2r, wk2i, wk3r, wk3i;
1165 wk1r = w[2];
1184 a[j1] = wk1r * (x0r - x0i);
1185 a[j1 + 1] = wk1r * (x0r + x0i);
1188 a[j3] = wk1r * (x0i - x0r);
1189 a[j3 + 1] = wk1r * (x0i + x0r);
1198 wk1r = w[k2];
1200 wk3r = wk1r - 2 * wk2i * wk1i;
1201 wk3i = 2 * wk2i * wk1r - wk1i;
1222 a[j1] = wk1r * x0r - wk1i * x0i;
1223 a[j1 + 1] = wk1r * x0i + wk1i * x0r;
1229 wk1r = w[k2 + 2];
1231 wk3r = wk1r - 2 * wk2r * wk1i;
1232 wk3i = 2 * wk2r * wk1r - wk1i;
1253 a[j1] = wk1r * x0r - wk1i * x0i;
1254 a[j1 + 1] = wk1r * x0i + wk1i * x0r;
