libs/mapm/mapm_fft.c

591     double ew, wn4r, wk1r, wk1i, wk2r, wk2i, wk3r, wk3i;
640         wk3i = 2 * wk2i * wk1r - wk1i;
661         a[j + 6] = wk3r * x0r - wk3i * x0i;
662         a[j + 7] = wk3r * x0i + wk3i * x0r;
667         wk3i = 2 * wk2r * wk1r - wk1i;
688         a[j + 14] = wk3r * x0r - wk3i * x0i;
689         a[j + 15] = wk3r * x0i + wk3i * x0r;
698     double ew, wn4r, wk1r, wk1i, wk2r, wk2i, wk3r, wk3i;
759         wk3i = 2 * wk2i * wk1r - wk1i;
784             a[j3] = wk3r * x0r - wk3i * x0i;
785             a[j3 + 1] = wk3r * x0i + wk3i * x0r;
791         wk3i = 2 * wk2r * wk1r - wk1i;
816             a[j3] = wk3r * x0r - wk3i * x0i;
817             a[j3 + 1] = wk3r * x0i + wk3i * x0r;