Searched refs:wk1r (Results 1 – 1 of 1) sorted by relevance
1041 double wk1r, wk1i, wk2r, wk2i, wk3r, wk3i; in cft1st() local1060 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()[all …]