Lines Matching refs:wk1r
1005 float wk1r, wk1i, wk2r, wk2i, wk3r, wk3i;
1024 wk1r = w[2];
1039 a[10] = wk1r * (x0r - x0i);
1040 a[11] = wk1r * (x0r + x0i);
1043 a[14] = wk1r * (x0i - x0r);
1044 a[15] = wk1r * (x0i + x0r);
1051 wk1r = w[k2];
1053 wk3r = wk1r - 2 * wk2i * wk1i;
1054 wk3i = 2 * wk2i * wk1r - wk1i;
1071 a[j + 2] = wk1r * x0r - wk1i * x0i;
1072 a[j + 3] = wk1r * x0i + wk1i * x0r;
1077 wk1r = w[k2 + 2];
1079 wk3r = wk1r - 2 * wk2r * wk1i;
1080 wk3i = 2 * wk2r * wk1r - wk1i;
1097 a[j + 10] = wk1r * x0r - wk1i * x0i;
1098 a[j + 11] = wk1r * x0i + wk1i * x0r;
1110 float wk1r, wk1i, wk2r, wk2i, wk3r, wk3i;
1135 wk1r = w[2];
1154 a[j1] = wk1r * (x0r - x0i);
1155 a[j1 + 1] = wk1r * (x0r + x0i);
1158 a[j3] = wk1r * (x0i - x0r);
1159 a[j3 + 1] = wk1r * (x0i + x0r);
1168 wk1r = w[k2];
1170 wk3r = wk1r - 2 * wk2i * wk1i;
1171 wk3i = 2 * wk2i * wk1r - wk1i;
1192 a[j1] = wk1r * x0r - wk1i * x0i;
1193 a[j1 + 1] = wk1r * x0i + wk1i * x0r;
1199 wk1r = w[k2 + 2];
1201 wk3r = wk1r - 2 * wk2r * wk1i;
1202 wk3i = 2 * wk2r * wk1r - wk1i;
1223 a[j1] = wk1r * x0r - wk1i * x0i;
1224 a[j1 + 1] = wk1r * x0i + wk1i * x0r;
