summaryrefslogtreecommitdiffstats
path: root/flow/gsl/gslfft.c
diff options
context:
space:
mode:
authortpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2010-01-05 00:01:18 +0000
committertpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2010-01-05 00:01:18 +0000
commit42995d7bf396933ee60c5f89c354ea89cf13df0d (patch)
treecfdcea0ac57420e7baf570bfe435e107bb842541 /flow/gsl/gslfft.c
downloadarts-42995d7bf396933ee60c5f89c354ea89cf13df0d.tar.gz
arts-42995d7bf396933ee60c5f89c354ea89cf13df0d.zip
Copy of aRts for Trinity modifications
git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/dependencies/arts@1070145 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'flow/gsl/gslfft.c')
-rw-r--r--flow/gsl/gslfft.c9052
1 files changed, 9052 insertions, 0 deletions
diff --git a/flow/gsl/gslfft.c b/flow/gsl/gslfft.c
new file mode 100644
index 0000000..48f56ef
--- /dev/null
+++ b/flow/gsl/gslfft.c
@@ -0,0 +1,9052 @@
+#include "gslfft.h"
+#include <math.h>
+
+#define BUTTERFLY_XY(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,Wim) { \
+ register double T1re, T1im, T2re, T2im; \
+ T1re = X2re * Wre; \
+ T1im = X2im * Wre; \
+ T2re = X2im * Wim; \
+ T2im = X2re * Wim; \
+ T1re -= T2re; \
+ T1im += T2im; \
+ T2re = X1re - T1re; \
+ T2im = X1im - T1im; \
+ Y1re = X1re + T1re; \
+ Y1im = X1im + T1im; \
+ Y2re = T2re; \
+ Y2im = T2im; \
+}
+#define BUTTERFLY_Yx(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,Wim) { \
+ register double T1re, T1im, T2re, T2im; \
+ T1re = X2re * Wim; \
+ T1im = X2im * Wim; \
+ T2re = X2im * Wre; \
+ T2im = X2re * Wre; \
+ T1re += T2re; \
+ T1im -= T2im; \
+ T2re = X1re + T1re; \
+ T2im = X1im + T1im; \
+ Y1re = X1re - T1re; \
+ Y1im = X1im - T1im; \
+ Y2re = T2re; \
+ Y2im = T2im; \
+}
+#define BUTTERFLY_yX(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,Wim) { \
+ register double T1re, T1im, T2re, T2im; \
+ T1re = X2re * Wim; \
+ T1im = X2im * Wim; \
+ T2re = X2im * Wre; \
+ T2im = X2re * Wre; \
+ T1re += T2re; \
+ T1im -= T2im; \
+ T2re = X1re - T1re; \
+ T2im = X1im - T1im; \
+ Y1re = X1re + T1re; \
+ Y1im = X1im + T1im; \
+ Y2re = T2re; \
+ Y2im = T2im; \
+}
+#define BUTTERFLY_10(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,_1,_2) { \
+ register double T2re, T2im; \
+ T2re = X1re - X2re; \
+ T2im = X1im - X2im; \
+ Y1re = X1re + X2re; \
+ Y1im = X1im + X2im; \
+ Y2re = T2re; \
+ Y2im = T2im; \
+}
+#define BUTTERFLY_01(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,_1,_2) { \
+ register double T2re, T2im; \
+ T2re = X1re + X2im; \
+ T2im = X1im - X2re; \
+ Y1re = X1re - X2im; \
+ Y1im = X1im + X2re; \
+ Y2re = T2re; \
+ Y2im = T2im; \
+}
+#define BUTTERFLY_0m(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,_1,_2) { \
+ register double T2re, T2im; \
+ T2re = X1re - X2im; \
+ T2im = X1im + X2re; \
+ Y1re = X1re + X2im; \
+ Y1im = X1im - X2re; \
+ Y2re = T2re; \
+ Y2im = T2im; \
+}
+#define BUTTERFLY_XX(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,_2) { \
+ register double T1re, T1im, T2re, T2im; \
+ T1re = X2re * Wre; \
+ T1im = X2im * Wre; \
+ T2re = T1im; \
+ T2im = T1re; \
+ T1re -= T2re; \
+ T1im += T2im; \
+ T2re = X1re - T1re; \
+ T2im = X1im - T1im; \
+ Y1re = X1re + T1re; \
+ Y1im = X1im + T1im; \
+ Y2re = T2re; \
+ Y2im = T2im; \
+}
+#define BUTTERFLY_yY(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,_2) { \
+ register double T1re, T1im, T2re, T2im; \
+ T1re = X2re * Wre; \
+ T1im = X2im * Wre; \
+ T2re = T1im; \
+ T2im = T1re; \
+ T1re += T2re; \
+ T1im -= T2im; \
+ T2re = X1re - T1re; \
+ T2im = X1im - T1im; \
+ Y1re = X1re + T1re; \
+ Y1im = X1im + T1im; \
+ Y2re = T2re; \
+ Y2im = T2im; \
+}
+#define BUTTERFLY_10scale(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,S) { \
+ register double T2re, T2im; \
+ T2re = X1re - X2re; \
+ T2im = X1im - X2im; \
+ Y1re = X1re + X2re; \
+ Y1im = X1im + X2im; \
+ Y2re = T2re * S; \
+ Y2im = T2im * S; \
+ Y1re *= S; \
+ Y1im *= S; \
+}
+
+#define WMULTIPLY(Wre,Wim,Dre,Dim) { \
+ register double T1re, T1im, T2re, T2im; \
+ T1re = Wre * Dre; \
+ T1im = Wim * Dre; \
+ T2re = Wim * Dim; \
+ T2im = Wre * Dim; \
+ T1re -= T2re; \
+ T1im += T2im; \
+ Wre += T1re; \
+ Wim += T1im; \
+}
+static inline void
+bitreverse_fft2analysis (const unsigned int n,
+ const double *X,
+ double *Y)
+{
+ const unsigned int n2 = n >> 1, n1 = n + n2, max = n >> 2;
+ unsigned int i, r;
+
+ BUTTERFLY_10 (X[0], X[1],
+ X[n], X[n + 1],
+ Y[0], Y[1],
+ Y[2], Y[3],
+ __1, __0);
+ BUTTERFLY_10 (X[n2], X[n2 + 1],
+ X[n1], X[n1 + 1],
+ Y[4], Y[5],
+ Y[6], Y[7],
+ __1, __0);
+ for (i = 1, r = 0; i < max; i++)
+ {
+ unsigned int k, j = n >> 1;
+
+ while (r >= j)
+ {
+ r -= j;
+ j >>= 1;
+ }
+ r |= j;
+
+ k = r >> 1;
+ j = i << 3;
+ BUTTERFLY_10 (X[k], X[k + 1],
+ X[k + n], X[k + n + 1],
+ Y[j], Y[j + 1],
+ Y[j + 2], Y[j + 3],
+ __1, __0);
+ k += n2;
+ j += 4;
+ BUTTERFLY_10 (X[k], X[k + 1],
+ X[k + n], X[k + n + 1],
+ Y[j], Y[j + 1],
+ Y[j + 2], Y[j + 3],
+ __1, __0);
+ }
+}
+static inline void
+bitreverse_fft2synthesis (const unsigned int n,
+ const double *X,
+ double *Y)
+{
+ const unsigned int n2 = n >> 1, n1 = n + n2, max = n >> 2;
+ unsigned int i, r;
+ double scale = n;
+
+ scale = 1.0 / scale;
+ BUTTERFLY_10scale (X[0], X[1],
+ X[n], X[n + 1],
+ Y[0], Y[1],
+ Y[2], Y[3],
+ scale);
+ BUTTERFLY_10scale (X[n2], X[n2 + 1],
+ X[n1], X[n1 + 1],
+ Y[4], Y[5],
+ Y[6], Y[7],
+ scale);
+ for (i = 1, r = 0; i < max; i++)
+ {
+ unsigned int k, j = n >> 1;
+
+ while (r >= j)
+ {
+ r -= j;
+ j >>= 1;
+ }
+ r |= j;
+
+ k = r >> 1;
+ j = i << 3;
+ BUTTERFLY_10scale (X[k], X[k + 1],
+ X[k + n], X[k + n + 1],
+ Y[j], Y[j + 1],
+ Y[j + 2], Y[j + 3],
+ scale);
+ k += n2;
+ j += 4;
+ BUTTERFLY_10scale (X[k], X[k + 1],
+ X[k + n], X[k + n + 1],
+ Y[j], Y[j + 1],
+ Y[j + 2], Y[j + 3],
+ scale);
+ }
+}
+/**
+ ** Generated data (by gsl-genfft 2 F)
+ **/
+static void
+gsl_power2_fft2analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 1 times fft2 */
+ BUTTERFLY_10 (X[0], X[0 + 1],
+ X[2], X[2 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ __1, __0);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 4 S F)
+ **/
+static void
+gsl_power2_fft4analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 2 times fft2 */
+
+ /* perform 1 times fft4 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_01 (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 4 F X)
+ **/
+static void
+gsl_power2_fft4analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 2 times fft2 */
+ BUTTERFLY_10 (X[0], X[0 + 1],
+ X[4], X[4 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[2], X[2 + 1],
+ X[6], X[6 + 1],
+ Y[4], Y[4 + 1],
+ Y[6], Y[6 + 1],
+ __1, __0);
+
+ /* perform 1 times fft4 */
+ gsl_power2_fft4analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 8 S F F)
+ **/
+static void
+gsl_power2_fft8analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 4 times fft2 */
+
+ /* perform 2 times fft4 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[8], /* W0 */
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_01 (Y[2], /* W2 */
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[10], /* W2 */
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+
+ /* perform 1 times fft8 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XX (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_01 (Y[4], /* W2 */
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_yY (Y[6], /* W3 */
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 8 F S X)
+ **/
+static void
+gsl_power2_fft8analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 4 times fft2 */
+ BUTTERFLY_10 (X[0], X[0 + 1],
+ X[8], X[8 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[4], X[4 + 1],
+ X[12], X[12 + 1],
+ Y[4], Y[4 + 1],
+ Y[6], Y[6 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[2], X[2 + 1],
+ X[10], X[10 + 1],
+ Y[8], Y[8 + 1],
+ Y[10], Y[10 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[6], X[6 + 1],
+ X[14], X[14 + 1],
+ Y[12], Y[12 + 1],
+ Y[14], Y[14 + 1],
+ __1, __0);
+
+ /* skipping 2 times fft4 */
+
+ /* perform 1 times fft8 */
+ gsl_power2_fft8analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 16 S F F F)
+ **/
+static void
+gsl_power2_fft16analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 8 times fft2 */
+
+ /* perform 4 times fft4 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[8], /* W0 */
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[16], /* W0 */
+ Y[16 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[20],
+ Y[20 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[24], /* W0 */
+ Y[24 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_01 (Y[2], /* W4 */
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[10], /* W4 */
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[18], /* W4 */
+ Y[18 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[22],
+ Y[22 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[26], /* W4 */
+ Y[26 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+
+ /* perform 2 times fft8 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[16], /* W0 */
+ Y[16 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[24],
+ Y[24 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XX (Y[2], /* W2 */
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XX (Y[18], /* W2 */
+ Y[18 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[26],
+ Y[26 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_01 (Y[4], /* W4 */
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[20], /* W4 */
+ Y[20 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_yY (Y[6], /* W6 */
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_yY (Y[22], /* W6 */
+ Y[22 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+
+ /* perform 1 times fft16 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[16],
+ Y[16 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[18],
+ Y[18 + 1],
+ (double) +0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XX (Y[4], /* W2 */
+ Y[4 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[20],
+ Y[20 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XY (Y[6], /* W3 */
+ Y[6 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[22],
+ Y[22 + 1],
+ (double) +0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_01 (Y[8], /* W4 */
+ Y[8 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[24],
+ Y[24 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_XY (Y[10], /* W5 */
+ Y[10 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[26],
+ Y[26 + 1],
+ (double) -0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_yY (Y[12], /* W6 */
+ Y[12 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_XY (Y[14], /* W7 */
+ Y[14 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) -0.923879532511287, (double) +0.382683432365090);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 16 F S S X)
+ **/
+static void
+gsl_power2_fft16analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 8 times fft2 */
+ BUTTERFLY_10 (X[0], X[0 + 1],
+ X[16], X[16 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[8], X[8 + 1],
+ X[24], X[24 + 1],
+ Y[4], Y[4 + 1],
+ Y[6], Y[6 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[4], X[4 + 1],
+ X[20], X[20 + 1],
+ Y[8], Y[8 + 1],
+ Y[10], Y[10 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[12], X[12 + 1],
+ X[28], X[28 + 1],
+ Y[12], Y[12 + 1],
+ Y[14], Y[14 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[2], X[2 + 1],
+ X[18], X[18 + 1],
+ Y[16], Y[16 + 1],
+ Y[18], Y[18 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[10], X[10 + 1],
+ X[26], X[26 + 1],
+ Y[20], Y[20 + 1],
+ Y[22], Y[22 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[6], X[6 + 1],
+ X[22], X[22 + 1],
+ Y[24], Y[24 + 1],
+ Y[26], Y[26 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[14], X[14 + 1],
+ X[30], X[30 + 1],
+ Y[28], Y[28 + 1],
+ Y[30], Y[30 + 1],
+ __1, __0);
+
+ /* skipping 4 times fft4 */
+
+ /* skipping 2 times fft8 */
+
+ /* perform 1 times fft16 */
+ gsl_power2_fft16analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 32 S F F F F)
+ **/
+static void
+gsl_power2_fft32analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 16 times fft2 */
+
+ /* perform 8 times fft4 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[8], /* W0 */
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[16], /* W0 */
+ Y[16 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[20],
+ Y[20 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[24], /* W0 */
+ Y[24 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[32], /* W0 */
+ Y[32 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[36],
+ Y[36 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[40], /* W0 */
+ Y[40 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[44],
+ Y[44 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[48], /* W0 */
+ Y[48 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[52],
+ Y[52 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[56], /* W0 */
+ Y[56 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[60],
+ Y[60 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_01 (Y[2], /* W8 */
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[10], /* W8 */
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[18], /* W8 */
+ Y[18 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[22],
+ Y[22 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[26], /* W8 */
+ Y[26 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[34], /* W8 */
+ Y[34 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[38],
+ Y[38 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[42], /* W8 */
+ Y[42 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[46],
+ Y[46 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[50], /* W8 */
+ Y[50 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[54],
+ Y[54 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[58], /* W8 */
+ Y[58 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[62],
+ Y[62 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+
+ /* perform 4 times fft8 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[16], /* W0 */
+ Y[16 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[24],
+ Y[24 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[32], /* W0 */
+ Y[32 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[40],
+ Y[40 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[48], /* W0 */
+ Y[48 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[56],
+ Y[56 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XX (Y[2], /* W4 */
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XX (Y[18], /* W4 */
+ Y[18 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[26],
+ Y[26 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XX (Y[34], /* W4 */
+ Y[34 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[42],
+ Y[42 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XX (Y[50], /* W4 */
+ Y[50 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[58],
+ Y[58 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_01 (Y[4], /* W8 */
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[20], /* W8 */
+ Y[20 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[36], /* W8 */
+ Y[36 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[44],
+ Y[44 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[52], /* W8 */
+ Y[52 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[60],
+ Y[60 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_yY (Y[6], /* W12 */
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_yY (Y[22], /* W12 */
+ Y[22 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_yY (Y[38], /* W12 */
+ Y[38 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[46],
+ Y[46 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_yY (Y[54], /* W12 */
+ Y[54 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[62],
+ Y[62 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+
+ /* perform 2 times fft16 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[16],
+ Y[16 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[32], /* W0 */
+ Y[32 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[48],
+ Y[48 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[2], /* W2 */
+ Y[2 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[18],
+ Y[18 + 1],
+ (double) +0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[34], /* W2 */
+ Y[34 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[50],
+ Y[50 + 1],
+ (double) +0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XX (Y[4], /* W4 */
+ Y[4 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[20],
+ Y[20 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XX (Y[36], /* W4 */
+ Y[36 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[52],
+ Y[52 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XY (Y[6], /* W6 */
+ Y[6 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[22],
+ Y[22 + 1],
+ (double) +0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[38], /* W6 */
+ Y[38 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[54],
+ Y[54 + 1],
+ (double) +0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_01 (Y[8], /* W8 */
+ Y[8 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[24],
+ Y[24 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_01 (Y[40], /* W8 */
+ Y[40 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[56],
+ Y[56 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_XY (Y[10], /* W10 */
+ Y[10 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[26],
+ Y[26 + 1],
+ (double) -0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[42], /* W10 */
+ Y[42 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[58],
+ Y[58 + 1],
+ (double) -0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_yY (Y[12], /* W12 */
+ Y[12 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_yY (Y[44], /* W12 */
+ Y[44 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[60],
+ Y[60 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_XY (Y[14], /* W14 */
+ Y[14 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) -0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[46], /* W14 */
+ Y[46 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[62],
+ Y[62 + 1],
+ (double) -0.923879532511287, (double) +0.382683432365090);
+
+ /* perform 1 times fft32 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[32],
+ Y[32 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[34],
+ Y[34 + 1],
+ (double) +0.980785280403230, (double) +0.195090322016128);
+ BUTTERFLY_XY (Y[4], /* W2 */
+ Y[4 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[36],
+ Y[36 + 1],
+ (double) +0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[6], /* W3 */
+ Y[6 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[38],
+ Y[38 + 1],
+ (double) +0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XX (Y[8], /* W4 */
+ Y[8 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[40],
+ Y[40 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XY (Y[10], /* W5 */
+ Y[10 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[42],
+ Y[42 + 1],
+ (double) +0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_XY (Y[12], /* W6 */
+ Y[12 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[44],
+ Y[44 + 1],
+ (double) +0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[14], /* W7 */
+ Y[14 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[46],
+ Y[46 + 1],
+ (double) +0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_01 (Y[16], /* W8 */
+ Y[16 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[48],
+ Y[48 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_XY (Y[18], /* W9 */
+ Y[18 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[50],
+ Y[50 + 1],
+ (double) -0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_XY (Y[20], /* W10 */
+ Y[20 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[52],
+ Y[52 + 1],
+ (double) -0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[22], /* W11 */
+ Y[22 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[54],
+ Y[54 + 1],
+ (double) -0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_yY (Y[24], /* W12 */
+ Y[24 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[56],
+ Y[56 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_XY (Y[26], /* W13 */
+ Y[26 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[58],
+ Y[58 + 1],
+ (double) -0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XY (Y[28], /* W14 */
+ Y[28 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[60],
+ Y[60 + 1],
+ (double) -0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[30], /* W15 */
+ Y[30 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[62],
+ Y[62 + 1],
+ (double) -0.980785280403230, (double) +0.195090322016129);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 32 F S S S X)
+ **/
+static void
+gsl_power2_fft32analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 16 times fft2 */
+ BUTTERFLY_10 (X[0], X[0 + 1],
+ X[32], X[32 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[16], X[16 + 1],
+ X[48], X[48 + 1],
+ Y[4], Y[4 + 1],
+ Y[6], Y[6 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[8], X[8 + 1],
+ X[40], X[40 + 1],
+ Y[8], Y[8 + 1],
+ Y[10], Y[10 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[24], X[24 + 1],
+ X[56], X[56 + 1],
+ Y[12], Y[12 + 1],
+ Y[14], Y[14 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[4], X[4 + 1],
+ X[36], X[36 + 1],
+ Y[16], Y[16 + 1],
+ Y[18], Y[18 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[20], X[20 + 1],
+ X[52], X[52 + 1],
+ Y[20], Y[20 + 1],
+ Y[22], Y[22 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[12], X[12 + 1],
+ X[44], X[44 + 1],
+ Y[24], Y[24 + 1],
+ Y[26], Y[26 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[28], X[28 + 1],
+ X[60], X[60 + 1],
+ Y[28], Y[28 + 1],
+ Y[30], Y[30 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[2], X[2 + 1],
+ X[34], X[34 + 1],
+ Y[32], Y[32 + 1],
+ Y[34], Y[34 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[18], X[18 + 1],
+ X[50], X[50 + 1],
+ Y[36], Y[36 + 1],
+ Y[38], Y[38 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[10], X[10 + 1],
+ X[42], X[42 + 1],
+ Y[40], Y[40 + 1],
+ Y[42], Y[42 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[26], X[26 + 1],
+ X[58], X[58 + 1],
+ Y[44], Y[44 + 1],
+ Y[46], Y[46 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[6], X[6 + 1],
+ X[38], X[38 + 1],
+ Y[48], Y[48 + 1],
+ Y[50], Y[50 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[22], X[22 + 1],
+ X[54], X[54 + 1],
+ Y[52], Y[52 + 1],
+ Y[54], Y[54 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[14], X[14 + 1],
+ X[46], X[46 + 1],
+ Y[56], Y[56 + 1],
+ Y[58], Y[58 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[30], X[30 + 1],
+ X[62], X[62 + 1],
+ Y[60], Y[60 + 1],
+ Y[62], Y[62 + 1],
+ __1, __0);
+
+ /* skipping 8 times fft4 */
+
+ /* skipping 4 times fft8 */
+
+ /* skipping 2 times fft16 */
+
+ /* perform 1 times fft32 */
+ gsl_power2_fft32analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 64 S R R R R F)
+ **/
+static void
+gsl_power2_fft64analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 32 times fft2 */
+
+ /* perform 16 times fft4 */
+ for (block = 0; block < 128; block += 8) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_01 (Y[block + 2], /* W16 */
+ Y[block + 2 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ }
+
+ /* perform 8 times fft8 */
+ for (block = 0; block < 128; block += 16) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XX (Y[block + 2], /* W8 */
+ Y[block + 2 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_01 (Y[block + 4], /* W16 */
+ Y[block + 4 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_yY (Y[block + 6], /* W24 */
+ Y[block + 6 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ }
+
+ /* perform 4 times fft16 */
+ for (block = 0; block < 128; block += 32) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[block + 2], /* W4 */
+ Y[block + 2 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ (double) +0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XX (Y[block + 4], /* W8 */
+ Y[block + 4 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XY (Y[block + 6], /* W12 */
+ Y[block + 6 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ (double) +0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_01 (Y[block + 8], /* W16 */
+ Y[block + 8 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_XY (Y[block + 10], /* W20 */
+ Y[block + 10 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ (double) -0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_yY (Y[block + 12], /* W24 */
+ Y[block + 12 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_XY (Y[block + 14], /* W28 */
+ Y[block + 14 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ (double) -0.923879532511287, (double) +0.382683432365090);
+ }
+
+ /* perform 2 times fft32 */
+ for (block = 0; block < 128; block += 64) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 32],
+ Y[block + 32 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 32],
+ Y[block + 32 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[block + 2], /* W2 */
+ Y[block + 2 + 1],
+ Y[block + 34],
+ Y[block + 34 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 34],
+ Y[block + 34 + 1],
+ (double) +0.980785280403230, (double) +0.195090322016128);
+ BUTTERFLY_XY (Y[block + 4], /* W4 */
+ Y[block + 4 + 1],
+ Y[block + 36],
+ Y[block + 36 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 36],
+ Y[block + 36 + 1],
+ (double) +0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[block + 6], /* W6 */
+ Y[block + 6 + 1],
+ Y[block + 38],
+ Y[block + 38 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 38],
+ Y[block + 38 + 1],
+ (double) +0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XX (Y[block + 8], /* W8 */
+ Y[block + 8 + 1],
+ Y[block + 40],
+ Y[block + 40 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 40],
+ Y[block + 40 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XY (Y[block + 10], /* W10 */
+ Y[block + 10 + 1],
+ Y[block + 42],
+ Y[block + 42 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 42],
+ Y[block + 42 + 1],
+ (double) +0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_XY (Y[block + 12], /* W12 */
+ Y[block + 12 + 1],
+ Y[block + 44],
+ Y[block + 44 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 44],
+ Y[block + 44 + 1],
+ (double) +0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[block + 14], /* W14 */
+ Y[block + 14 + 1],
+ Y[block + 46],
+ Y[block + 46 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 46],
+ Y[block + 46 + 1],
+ (double) +0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_01 (Y[block + 16], /* W16 */
+ Y[block + 16 + 1],
+ Y[block + 48],
+ Y[block + 48 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ Y[block + 48],
+ Y[block + 48 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_XY (Y[block + 18], /* W18 */
+ Y[block + 18 + 1],
+ Y[block + 50],
+ Y[block + 50 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ Y[block + 50],
+ Y[block + 50 + 1],
+ (double) -0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_XY (Y[block + 20], /* W20 */
+ Y[block + 20 + 1],
+ Y[block + 52],
+ Y[block + 52 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ Y[block + 52],
+ Y[block + 52 + 1],
+ (double) -0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[block + 22], /* W22 */
+ Y[block + 22 + 1],
+ Y[block + 54],
+ Y[block + 54 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ Y[block + 54],
+ Y[block + 54 + 1],
+ (double) -0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_yY (Y[block + 24], /* W24 */
+ Y[block + 24 + 1],
+ Y[block + 56],
+ Y[block + 56 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ Y[block + 56],
+ Y[block + 56 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_XY (Y[block + 26], /* W26 */
+ Y[block + 26 + 1],
+ Y[block + 58],
+ Y[block + 58 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ Y[block + 58],
+ Y[block + 58 + 1],
+ (double) -0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XY (Y[block + 28], /* W28 */
+ Y[block + 28 + 1],
+ Y[block + 60],
+ Y[block + 60 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ Y[block + 60],
+ Y[block + 60 + 1],
+ (double) -0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[block + 30], /* W30 */
+ Y[block + 30 + 1],
+ Y[block + 62],
+ Y[block + 62 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ Y[block + 62],
+ Y[block + 62 + 1],
+ (double) -0.980785280403230, (double) +0.195090322016129);
+ }
+
+ /* perform 1 times fft64 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[64],
+ Y[64 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[64],
+ Y[64 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[66],
+ Y[66 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[66],
+ Y[66 + 1],
+ (double) +0.995184726672197, (double) +0.098017140329561);
+ BUTTERFLY_XY (Y[4], /* W2 */
+ Y[4 + 1],
+ Y[68],
+ Y[68 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[68],
+ Y[68 + 1],
+ (double) +0.980785280403230, (double) +0.195090322016128);
+ BUTTERFLY_XY (Y[6], /* W3 */
+ Y[6 + 1],
+ Y[70],
+ Y[70 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[70],
+ Y[70 + 1],
+ (double) +0.956940335732209, (double) +0.290284677254462);
+ BUTTERFLY_XY (Y[8], /* W4 */
+ Y[8 + 1],
+ Y[72],
+ Y[72 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[72],
+ Y[72 + 1],
+ (double) +0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[10], /* W5 */
+ Y[10 + 1],
+ Y[74],
+ Y[74 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[74],
+ Y[74 + 1],
+ (double) +0.881921264348355, (double) +0.471396736825998);
+ BUTTERFLY_XY (Y[12], /* W6 */
+ Y[12 + 1],
+ Y[76],
+ Y[76 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[76],
+ Y[76 + 1],
+ (double) +0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XY (Y[14], /* W7 */
+ Y[14 + 1],
+ Y[78],
+ Y[78 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[78],
+ Y[78 + 1],
+ (double) +0.773010453362737, (double) +0.634393284163645);
+ BUTTERFLY_XX (Y[16], /* W8 */
+ Y[16 + 1],
+ Y[80],
+ Y[80 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[80],
+ Y[80 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XY (Y[18], /* W9 */
+ Y[18 + 1],
+ Y[82],
+ Y[82 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[82],
+ Y[82 + 1],
+ (double) +0.634393284163645, (double) +0.773010453362737);
+ BUTTERFLY_XY (Y[20], /* W10 */
+ Y[20 + 1],
+ Y[84],
+ Y[84 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[84],
+ Y[84 + 1],
+ (double) +0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_XY (Y[22], /* W11 */
+ Y[22 + 1],
+ Y[86],
+ Y[86 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[86],
+ Y[86 + 1],
+ (double) +0.471396736825998, (double) +0.881921264348355);
+ BUTTERFLY_XY (Y[24], /* W12 */
+ Y[24 + 1],
+ Y[88],
+ Y[88 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[88],
+ Y[88 + 1],
+ (double) +0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[26], /* W13 */
+ Y[26 + 1],
+ Y[90],
+ Y[90 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[90],
+ Y[90 + 1],
+ (double) +0.290284677254462, (double) +0.956940335732209);
+ BUTTERFLY_XY (Y[28], /* W14 */
+ Y[28 + 1],
+ Y[92],
+ Y[92 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[92],
+ Y[92 + 1],
+ (double) +0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_XY (Y[30], /* W15 */
+ Y[30 + 1],
+ Y[94],
+ Y[94 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[94],
+ Y[94 + 1],
+ (double) +0.098017140329561, (double) +0.995184726672197);
+ BUTTERFLY_01 (Y[32], /* W16 */
+ Y[32 + 1],
+ Y[96],
+ Y[96 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[96],
+ Y[96 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_XY (Y[34], /* W17 */
+ Y[34 + 1],
+ Y[98],
+ Y[98 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[98],
+ Y[98 + 1],
+ (double) -0.098017140329561, (double) +0.995184726672197);
+ BUTTERFLY_XY (Y[36], /* W18 */
+ Y[36 + 1],
+ Y[100],
+ Y[100 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[100],
+ Y[100 + 1],
+ (double) -0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_XY (Y[38], /* W19 */
+ Y[38 + 1],
+ Y[102],
+ Y[102 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[102],
+ Y[102 + 1],
+ (double) -0.290284677254462, (double) +0.956940335732209);
+ BUTTERFLY_XY (Y[40], /* W20 */
+ Y[40 + 1],
+ Y[104],
+ Y[104 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[104],
+ Y[104 + 1],
+ (double) -0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[42], /* W21 */
+ Y[42 + 1],
+ Y[106],
+ Y[106 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[106],
+ Y[106 + 1],
+ (double) -0.471396736825998, (double) +0.881921264348355);
+ BUTTERFLY_XY (Y[44], /* W22 */
+ Y[44 + 1],
+ Y[108],
+ Y[108 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[108],
+ Y[108 + 1],
+ (double) -0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_XY (Y[46], /* W23 */
+ Y[46 + 1],
+ Y[110],
+ Y[110 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[110],
+ Y[110 + 1],
+ (double) -0.634393284163645, (double) +0.773010453362737);
+ BUTTERFLY_yY (Y[48], /* W24 */
+ Y[48 + 1],
+ Y[112],
+ Y[112 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[112],
+ Y[112 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_XY (Y[50], /* W25 */
+ Y[50 + 1],
+ Y[114],
+ Y[114 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[114],
+ Y[114 + 1],
+ (double) -0.773010453362737, (double) +0.634393284163645);
+ BUTTERFLY_XY (Y[52], /* W26 */
+ Y[52 + 1],
+ Y[116],
+ Y[116 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[116],
+ Y[116 + 1],
+ (double) -0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XY (Y[54], /* W27 */
+ Y[54 + 1],
+ Y[118],
+ Y[118 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[118],
+ Y[118 + 1],
+ (double) -0.881921264348355, (double) +0.471396736825998);
+ BUTTERFLY_XY (Y[56], /* W28 */
+ Y[56 + 1],
+ Y[120],
+ Y[120 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[120],
+ Y[120 + 1],
+ (double) -0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[58], /* W29 */
+ Y[58 + 1],
+ Y[122],
+ Y[122 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[122],
+ Y[122 + 1],
+ (double) -0.956940335732209, (double) +0.290284677254462);
+ BUTTERFLY_XY (Y[60], /* W30 */
+ Y[60 + 1],
+ Y[124],
+ Y[124 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[124],
+ Y[124 + 1],
+ (double) -0.980785280403230, (double) +0.195090322016129);
+ BUTTERFLY_XY (Y[62], /* W31 */
+ Y[62 + 1],
+ Y[126],
+ Y[126 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[126],
+ Y[126 + 1],
+ (double) -0.995184726672197, (double) +0.098017140329561);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 64 F S S S S X)
+ **/
+static void
+gsl_power2_fft64analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 32 times fft2 */
+ BUTTERFLY_10 (X[0], X[0 + 1],
+ X[64], X[64 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[32], X[32 + 1],
+ X[96], X[96 + 1],
+ Y[4], Y[4 + 1],
+ Y[6], Y[6 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[16], X[16 + 1],
+ X[80], X[80 + 1],
+ Y[8], Y[8 + 1],
+ Y[10], Y[10 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[48], X[48 + 1],
+ X[112], X[112 + 1],
+ Y[12], Y[12 + 1],
+ Y[14], Y[14 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[8], X[8 + 1],
+ X[72], X[72 + 1],
+ Y[16], Y[16 + 1],
+ Y[18], Y[18 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[40], X[40 + 1],
+ X[104], X[104 + 1],
+ Y[20], Y[20 + 1],
+ Y[22], Y[22 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[24], X[24 + 1],
+ X[88], X[88 + 1],
+ Y[24], Y[24 + 1],
+ Y[26], Y[26 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[56], X[56 + 1],
+ X[120], X[120 + 1],
+ Y[28], Y[28 + 1],
+ Y[30], Y[30 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[4], X[4 + 1],
+ X[68], X[68 + 1],
+ Y[32], Y[32 + 1],
+ Y[34], Y[34 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[36], X[36 + 1],
+ X[100], X[100 + 1],
+ Y[36], Y[36 + 1],
+ Y[38], Y[38 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[20], X[20 + 1],
+ X[84], X[84 + 1],
+ Y[40], Y[40 + 1],
+ Y[42], Y[42 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[52], X[52 + 1],
+ X[116], X[116 + 1],
+ Y[44], Y[44 + 1],
+ Y[46], Y[46 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[12], X[12 + 1],
+ X[76], X[76 + 1],
+ Y[48], Y[48 + 1],
+ Y[50], Y[50 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[44], X[44 + 1],
+ X[108], X[108 + 1],
+ Y[52], Y[52 + 1],
+ Y[54], Y[54 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[28], X[28 + 1],
+ X[92], X[92 + 1],
+ Y[56], Y[56 + 1],
+ Y[58], Y[58 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[60], X[60 + 1],
+ X[124], X[124 + 1],
+ Y[60], Y[60 + 1],
+ Y[62], Y[62 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[2], X[2 + 1],
+ X[66], X[66 + 1],
+ Y[64], Y[64 + 1],
+ Y[66], Y[66 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[34], X[34 + 1],
+ X[98], X[98 + 1],
+ Y[68], Y[68 + 1],
+ Y[70], Y[70 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[18], X[18 + 1],
+ X[82], X[82 + 1],
+ Y[72], Y[72 + 1],
+ Y[74], Y[74 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[50], X[50 + 1],
+ X[114], X[114 + 1],
+ Y[76], Y[76 + 1],
+ Y[78], Y[78 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[10], X[10 + 1],
+ X[74], X[74 + 1],
+ Y[80], Y[80 + 1],
+ Y[82], Y[82 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[42], X[42 + 1],
+ X[106], X[106 + 1],
+ Y[84], Y[84 + 1],
+ Y[86], Y[86 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[26], X[26 + 1],
+ X[90], X[90 + 1],
+ Y[88], Y[88 + 1],
+ Y[90], Y[90 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[58], X[58 + 1],
+ X[122], X[122 + 1],
+ Y[92], Y[92 + 1],
+ Y[94], Y[94 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[6], X[6 + 1],
+ X[70], X[70 + 1],
+ Y[96], Y[96 + 1],
+ Y[98], Y[98 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[38], X[38 + 1],
+ X[102], X[102 + 1],
+ Y[100], Y[100 + 1],
+ Y[102], Y[102 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[22], X[22 + 1],
+ X[86], X[86 + 1],
+ Y[104], Y[104 + 1],
+ Y[106], Y[106 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[54], X[54 + 1],
+ X[118], X[118 + 1],
+ Y[108], Y[108 + 1],
+ Y[110], Y[110 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[14], X[14 + 1],
+ X[78], X[78 + 1],
+ Y[112], Y[112 + 1],
+ Y[114], Y[114 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[46], X[46 + 1],
+ X[110], X[110 + 1],
+ Y[116], Y[116 + 1],
+ Y[118], Y[118 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[30], X[30 + 1],
+ X[94], X[94 + 1],
+ Y[120], Y[120 + 1],
+ Y[122], Y[122 + 1],
+ __1, __0);
+ BUTTERFLY_10 (X[62], X[62 + 1],
+ X[126], X[126 + 1],
+ Y[124], Y[124 + 1],
+ Y[126], Y[126 + 1],
+ __1, __0);
+
+ /* skipping 16 times fft4 */
+
+ /* skipping 8 times fft8 */
+
+ /* skipping 4 times fft16 */
+
+ /* skipping 2 times fft32 */
+
+ /* perform 1 times fft64 */
+ gsl_power2_fft64analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 128 S R R R R R F)
+ **/
+static void
+gsl_power2_fft128analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 64 times fft2 */
+
+ /* perform 32 times fft4 */
+ for (block = 0; block < 256; block += 8) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_01 (Y[block + 2], /* W32 */
+ Y[block + 2 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ }
+
+ /* perform 16 times fft8 */
+ for (block = 0; block < 256; block += 16) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XX (Y[block + 2], /* W16 */
+ Y[block + 2 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_01 (Y[block + 4], /* W32 */
+ Y[block + 4 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_yY (Y[block + 6], /* W48 */
+ Y[block + 6 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ }
+
+ /* perform 8 times fft16 */
+ for (block = 0; block < 256; block += 32) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[block + 2], /* W8 */
+ Y[block + 2 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ (double) +0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XX (Y[block + 4], /* W16 */
+ Y[block + 4 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XY (Y[block + 6], /* W24 */
+ Y[block + 6 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ (double) +0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_01 (Y[block + 8], /* W32 */
+ Y[block + 8 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_XY (Y[block + 10], /* W40 */
+ Y[block + 10 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ (double) -0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_yY (Y[block + 12], /* W48 */
+ Y[block + 12 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_XY (Y[block + 14], /* W56 */
+ Y[block + 14 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ (double) -0.923879532511287, (double) +0.382683432365090);
+ }
+
+ /* perform 4 times fft32 */
+ for (block = 0; block < 256; block += 64) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 32],
+ Y[block + 32 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 32],
+ Y[block + 32 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[block + 2], /* W4 */
+ Y[block + 2 + 1],
+ Y[block + 34],
+ Y[block + 34 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 34],
+ Y[block + 34 + 1],
+ (double) +0.980785280403230, (double) +0.195090322016128);
+ BUTTERFLY_XY (Y[block + 4], /* W8 */
+ Y[block + 4 + 1],
+ Y[block + 36],
+ Y[block + 36 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 36],
+ Y[block + 36 + 1],
+ (double) +0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[block + 6], /* W12 */
+ Y[block + 6 + 1],
+ Y[block + 38],
+ Y[block + 38 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 38],
+ Y[block + 38 + 1],
+ (double) +0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XX (Y[block + 8], /* W16 */
+ Y[block + 8 + 1],
+ Y[block + 40],
+ Y[block + 40 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 40],
+ Y[block + 40 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XY (Y[block + 10], /* W20 */
+ Y[block + 10 + 1],
+ Y[block + 42],
+ Y[block + 42 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 42],
+ Y[block + 42 + 1],
+ (double) +0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_XY (Y[block + 12], /* W24 */
+ Y[block + 12 + 1],
+ Y[block + 44],
+ Y[block + 44 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 44],
+ Y[block + 44 + 1],
+ (double) +0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[block + 14], /* W28 */
+ Y[block + 14 + 1],
+ Y[block + 46],
+ Y[block + 46 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 46],
+ Y[block + 46 + 1],
+ (double) +0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_01 (Y[block + 16], /* W32 */
+ Y[block + 16 + 1],
+ Y[block + 48],
+ Y[block + 48 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ Y[block + 48],
+ Y[block + 48 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_XY (Y[block + 18], /* W36 */
+ Y[block + 18 + 1],
+ Y[block + 50],
+ Y[block + 50 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ Y[block + 50],
+ Y[block + 50 + 1],
+ (double) -0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_XY (Y[block + 20], /* W40 */
+ Y[block + 20 + 1],
+ Y[block + 52],
+ Y[block + 52 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ Y[block + 52],
+ Y[block + 52 + 1],
+ (double) -0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[block + 22], /* W44 */
+ Y[block + 22 + 1],
+ Y[block + 54],
+ Y[block + 54 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ Y[block + 54],
+ Y[block + 54 + 1],
+ (double) -0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_yY (Y[block + 24], /* W48 */
+ Y[block + 24 + 1],
+ Y[block + 56],
+ Y[block + 56 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ Y[block + 56],
+ Y[block + 56 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_XY (Y[block + 26], /* W52 */
+ Y[block + 26 + 1],
+ Y[block + 58],
+ Y[block + 58 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ Y[block + 58],
+ Y[block + 58 + 1],
+ (double) -0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XY (Y[block + 28], /* W56 */
+ Y[block + 28 + 1],
+ Y[block + 60],
+ Y[block + 60 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ Y[block + 60],
+ Y[block + 60 + 1],
+ (double) -0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[block + 30], /* W60 */
+ Y[block + 30 + 1],
+ Y[block + 62],
+ Y[block + 62 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ Y[block + 62],
+ Y[block + 62 + 1],
+ (double) -0.980785280403230, (double) +0.195090322016129);
+ }
+
+ /* perform 2 times fft64 */
+ for (block = 0; block < 256; block += 128) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 64],
+ Y[block + 64 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 64],
+ Y[block + 64 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[block + 2], /* W2 */
+ Y[block + 2 + 1],
+ Y[block + 66],
+ Y[block + 66 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 66],
+ Y[block + 66 + 1],
+ (double) +0.995184726672197, (double) +0.098017140329561);
+ BUTTERFLY_XY (Y[block + 4], /* W4 */
+ Y[block + 4 + 1],
+ Y[block + 68],
+ Y[block + 68 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 68],
+ Y[block + 68 + 1],
+ (double) +0.980785280403230, (double) +0.195090322016128);
+ BUTTERFLY_XY (Y[block + 6], /* W6 */
+ Y[block + 6 + 1],
+ Y[block + 70],
+ Y[block + 70 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 70],
+ Y[block + 70 + 1],
+ (double) +0.956940335732209, (double) +0.290284677254462);
+ BUTTERFLY_XY (Y[block + 8], /* W8 */
+ Y[block + 8 + 1],
+ Y[block + 72],
+ Y[block + 72 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 72],
+ Y[block + 72 + 1],
+ (double) +0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[block + 10], /* W10 */
+ Y[block + 10 + 1],
+ Y[block + 74],
+ Y[block + 74 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 74],
+ Y[block + 74 + 1],
+ (double) +0.881921264348355, (double) +0.471396736825998);
+ BUTTERFLY_XY (Y[block + 12], /* W12 */
+ Y[block + 12 + 1],
+ Y[block + 76],
+ Y[block + 76 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 76],
+ Y[block + 76 + 1],
+ (double) +0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XY (Y[block + 14], /* W14 */
+ Y[block + 14 + 1],
+ Y[block + 78],
+ Y[block + 78 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 78],
+ Y[block + 78 + 1],
+ (double) +0.773010453362737, (double) +0.634393284163645);
+ BUTTERFLY_XX (Y[block + 16], /* W16 */
+ Y[block + 16 + 1],
+ Y[block + 80],
+ Y[block + 80 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ Y[block + 80],
+ Y[block + 80 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XY (Y[block + 18], /* W18 */
+ Y[block + 18 + 1],
+ Y[block + 82],
+ Y[block + 82 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ Y[block + 82],
+ Y[block + 82 + 1],
+ (double) +0.634393284163645, (double) +0.773010453362737);
+ BUTTERFLY_XY (Y[block + 20], /* W20 */
+ Y[block + 20 + 1],
+ Y[block + 84],
+ Y[block + 84 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ Y[block + 84],
+ Y[block + 84 + 1],
+ (double) +0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_XY (Y[block + 22], /* W22 */
+ Y[block + 22 + 1],
+ Y[block + 86],
+ Y[block + 86 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ Y[block + 86],
+ Y[block + 86 + 1],
+ (double) +0.471396736825998, (double) +0.881921264348355);
+ BUTTERFLY_XY (Y[block + 24], /* W24 */
+ Y[block + 24 + 1],
+ Y[block + 88],
+ Y[block + 88 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ Y[block + 88],
+ Y[block + 88 + 1],
+ (double) +0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[block + 26], /* W26 */
+ Y[block + 26 + 1],
+ Y[block + 90],
+ Y[block + 90 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ Y[block + 90],
+ Y[block + 90 + 1],
+ (double) +0.290284677254462, (double) +0.956940335732209);
+ BUTTERFLY_XY (Y[block + 28], /* W28 */
+ Y[block + 28 + 1],
+ Y[block + 92],
+ Y[block + 92 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ Y[block + 92],
+ Y[block + 92 + 1],
+ (double) +0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_XY (Y[block + 30], /* W30 */
+ Y[block + 30 + 1],
+ Y[block + 94],
+ Y[block + 94 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ Y[block + 94],
+ Y[block + 94 + 1],
+ (double) +0.098017140329561, (double) +0.995184726672197);
+ BUTTERFLY_01 (Y[block + 32], /* W32 */
+ Y[block + 32 + 1],
+ Y[block + 96],
+ Y[block + 96 + 1],
+ Y[block + 32],
+ Y[block + 32 + 1],
+ Y[block + 96],
+ Y[block + 96 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_XY (Y[block + 34], /* W34 */
+ Y[block + 34 + 1],
+ Y[block + 98],
+ Y[block + 98 + 1],
+ Y[block + 34],
+ Y[block + 34 + 1],
+ Y[block + 98],
+ Y[block + 98 + 1],
+ (double) -0.098017140329561, (double) +0.995184726672197);
+ BUTTERFLY_XY (Y[block + 36], /* W36 */
+ Y[block + 36 + 1],
+ Y[block + 100],
+ Y[block + 100 + 1],
+ Y[block + 36],
+ Y[block + 36 + 1],
+ Y[block + 100],
+ Y[block + 100 + 1],
+ (double) -0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_XY (Y[block + 38], /* W38 */
+ Y[block + 38 + 1],
+ Y[block + 102],
+ Y[block + 102 + 1],
+ Y[block + 38],
+ Y[block + 38 + 1],
+ Y[block + 102],
+ Y[block + 102 + 1],
+ (double) -0.290284677254462, (double) +0.956940335732209);
+ BUTTERFLY_XY (Y[block + 40], /* W40 */
+ Y[block + 40 + 1],
+ Y[block + 104],
+ Y[block + 104 + 1],
+ Y[block + 40],
+ Y[block + 40 + 1],
+ Y[block + 104],
+ Y[block + 104 + 1],
+ (double) -0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[block + 42], /* W42 */
+ Y[block + 42 + 1],
+ Y[block + 106],
+ Y[block + 106 + 1],
+ Y[block + 42],
+ Y[block + 42 + 1],
+ Y[block + 106],
+ Y[block + 106 + 1],
+ (double) -0.471396736825998, (double) +0.881921264348355);
+ BUTTERFLY_XY (Y[block + 44], /* W44 */
+ Y[block + 44 + 1],
+ Y[block + 108],
+ Y[block + 108 + 1],
+ Y[block + 44],
+ Y[block + 44 + 1],
+ Y[block + 108],
+ Y[block + 108 + 1],
+ (double) -0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_XY (Y[block + 46], /* W46 */
+ Y[block + 46 + 1],
+ Y[block + 110],
+ Y[block + 110 + 1],
+ Y[block + 46],
+ Y[block + 46 + 1],
+ Y[block + 110],
+ Y[block + 110 + 1],
+ (double) -0.634393284163645, (double) +0.773010453362737);
+ BUTTERFLY_yY (Y[block + 48], /* W48 */
+ Y[block + 48 + 1],
+ Y[block + 112],
+ Y[block + 112 + 1],
+ Y[block + 48],
+ Y[block + 48 + 1],
+ Y[block + 112],
+ Y[block + 112 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_XY (Y[block + 50], /* W50 */
+ Y[block + 50 + 1],
+ Y[block + 114],
+ Y[block + 114 + 1],
+ Y[block + 50],
+ Y[block + 50 + 1],
+ Y[block + 114],
+ Y[block + 114 + 1],
+ (double) -0.773010453362737, (double) +0.634393284163645);
+ BUTTERFLY_XY (Y[block + 52], /* W52 */
+ Y[block + 52 + 1],
+ Y[block + 116],
+ Y[block + 116 + 1],
+ Y[block + 52],
+ Y[block + 52 + 1],
+ Y[block + 116],
+ Y[block + 116 + 1],
+ (double) -0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XY (Y[block + 54], /* W54 */
+ Y[block + 54 + 1],
+ Y[block + 118],
+ Y[block + 118 + 1],
+ Y[block + 54],
+ Y[block + 54 + 1],
+ Y[block + 118],
+ Y[block + 118 + 1],
+ (double) -0.881921264348355, (double) +0.471396736825998);
+ BUTTERFLY_XY (Y[block + 56], /* W56 */
+ Y[block + 56 + 1],
+ Y[block + 120],
+ Y[block + 120 + 1],
+ Y[block + 56],
+ Y[block + 56 + 1],
+ Y[block + 120],
+ Y[block + 120 + 1],
+ (double) -0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[block + 58], /* W58 */
+ Y[block + 58 + 1],
+ Y[block + 122],
+ Y[block + 122 + 1],
+ Y[block + 58],
+ Y[block + 58 + 1],
+ Y[block + 122],
+ Y[block + 122 + 1],
+ (double) -0.956940335732209, (double) +0.290284677254462);
+ BUTTERFLY_XY (Y[block + 60], /* W60 */
+ Y[block + 60 + 1],
+ Y[block + 124],
+ Y[block + 124 + 1],
+ Y[block + 60],
+ Y[block + 60 + 1],
+ Y[block + 124],
+ Y[block + 124 + 1],
+ (double) -0.980785280403230, (double) +0.195090322016129);
+ BUTTERFLY_XY (Y[block + 62], /* W62 */
+ Y[block + 62 + 1],
+ Y[block + 126],
+ Y[block + 126 + 1],
+ Y[block + 62],
+ Y[block + 62 + 1],
+ Y[block + 126],
+ Y[block + 126 + 1],
+ (double) -0.995184726672197, (double) +0.098017140329561);
+ }
+
+ /* perform 1 times fft128 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[128],
+ Y[128 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[128],
+ Y[128 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[130],
+ Y[130 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[130],
+ Y[130 + 1],
+ (double) +0.998795456205172, (double) +0.049067674327418);
+ BUTTERFLY_XY (Y[4], /* W2 */
+ Y[4 + 1],
+ Y[132],
+ Y[132 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[132],
+ Y[132 + 1],
+ (double) +0.995184726672197, (double) +0.098017140329561);
+ BUTTERFLY_XY (Y[6], /* W3 */
+ Y[6 + 1],
+ Y[134],
+ Y[134 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[134],
+ Y[134 + 1],
+ (double) +0.989176509964781, (double) +0.146730474455362);
+ BUTTERFLY_XY (Y[8], /* W4 */
+ Y[8 + 1],
+ Y[136],
+ Y[136 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[136],
+ Y[136 + 1],
+ (double) +0.980785280403230, (double) +0.195090322016128);
+ BUTTERFLY_XY (Y[10], /* W5 */
+ Y[10 + 1],
+ Y[138],
+ Y[138 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[138],
+ Y[138 + 1],
+ (double) +0.970031253194544, (double) +0.242980179903264);
+ BUTTERFLY_XY (Y[12], /* W6 */
+ Y[12 + 1],
+ Y[140],
+ Y[140 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[140],
+ Y[140 + 1],
+ (double) +0.956940335732209, (double) +0.290284677254462);
+ BUTTERFLY_XY (Y[14], /* W7 */
+ Y[14 + 1],
+ Y[142],
+ Y[142 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[142],
+ Y[142 + 1],
+ (double) +0.941544065183021, (double) +0.336889853392220);
+ BUTTERFLY_XY (Y[16], /* W8 */
+ Y[16 + 1],
+ Y[144],
+ Y[144 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[144],
+ Y[144 + 1],
+ (double) +0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[18], /* W9 */
+ Y[18 + 1],
+ Y[146],
+ Y[146 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[146],
+ Y[146 + 1],
+ (double) +0.903989293123443, (double) +0.427555093430282);
+ BUTTERFLY_XY (Y[20], /* W10 */
+ Y[20 + 1],
+ Y[148],
+ Y[148 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[148],
+ Y[148 + 1],
+ (double) +0.881921264348355, (double) +0.471396736825998);
+ BUTTERFLY_XY (Y[22], /* W11 */
+ Y[22 + 1],
+ Y[150],
+ Y[150 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[150],
+ Y[150 + 1],
+ (double) +0.857728610000272, (double) +0.514102744193222);
+ BUTTERFLY_XY (Y[24], /* W12 */
+ Y[24 + 1],
+ Y[152],
+ Y[152 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[152],
+ Y[152 + 1],
+ (double) +0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XY (Y[26], /* W13 */
+ Y[26 + 1],
+ Y[154],
+ Y[154 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[154],
+ Y[154 + 1],
+ (double) +0.803207531480645, (double) +0.595699304492433);
+ BUTTERFLY_XY (Y[28], /* W14 */
+ Y[28 + 1],
+ Y[156],
+ Y[156 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[156],
+ Y[156 + 1],
+ (double) +0.773010453362737, (double) +0.634393284163645);
+ BUTTERFLY_XY (Y[30], /* W15 */
+ Y[30 + 1],
+ Y[158],
+ Y[158 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[158],
+ Y[158 + 1],
+ (double) +0.740951125354959, (double) +0.671558954847018);
+ BUTTERFLY_XX (Y[32], /* W16 */
+ Y[32 + 1],
+ Y[160],
+ Y[160 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[160],
+ Y[160 + 1],
+ (double) +0.707106781186548, (double) +0.707106781186547);
+ BUTTERFLY_XY (Y[34], /* W17 */
+ Y[34 + 1],
+ Y[162],
+ Y[162 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[162],
+ Y[162 + 1],
+ (double) +0.671558954847018, (double) +0.740951125354959);
+ BUTTERFLY_XY (Y[36], /* W18 */
+ Y[36 + 1],
+ Y[164],
+ Y[164 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[164],
+ Y[164 + 1],
+ (double) +0.634393284163645, (double) +0.773010453362737);
+ BUTTERFLY_XY (Y[38], /* W19 */
+ Y[38 + 1],
+ Y[166],
+ Y[166 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[166],
+ Y[166 + 1],
+ (double) +0.595699304492433, (double) +0.803207531480645);
+ BUTTERFLY_XY (Y[40], /* W20 */
+ Y[40 + 1],
+ Y[168],
+ Y[168 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[168],
+ Y[168 + 1],
+ (double) +0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_XY (Y[42], /* W21 */
+ Y[42 + 1],
+ Y[170],
+ Y[170 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[170],
+ Y[170 + 1],
+ (double) +0.514102744193222, (double) +0.857728610000272);
+ BUTTERFLY_XY (Y[44], /* W22 */
+ Y[44 + 1],
+ Y[172],
+ Y[172 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[172],
+ Y[172 + 1],
+ (double) +0.471396736825998, (double) +0.881921264348355);
+ BUTTERFLY_XY (Y[46], /* W23 */
+ Y[46 + 1],
+ Y[174],
+ Y[174 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[174],
+ Y[174 + 1],
+ (double) +0.427555093430282, (double) +0.903989293123443);
+ BUTTERFLY_XY (Y[48], /* W24 */
+ Y[48 + 1],
+ Y[176],
+ Y[176 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[176],
+ Y[176 + 1],
+ (double) +0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[50], /* W25 */
+ Y[50 + 1],
+ Y[178],
+ Y[178 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[178],
+ Y[178 + 1],
+ (double) +0.336889853392220, (double) +0.941544065183021);
+ BUTTERFLY_XY (Y[52], /* W26 */
+ Y[52 + 1],
+ Y[180],
+ Y[180 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[180],
+ Y[180 + 1],
+ (double) +0.290284677254462, (double) +0.956940335732209);
+ BUTTERFLY_XY (Y[54], /* W27 */
+ Y[54 + 1],
+ Y[182],
+ Y[182 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[182],
+ Y[182 + 1],
+ (double) +0.242980179903264, (double) +0.970031253194544);
+ BUTTERFLY_XY (Y[56], /* W28 */
+ Y[56 + 1],
+ Y[184],
+ Y[184 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[184],
+ Y[184 + 1],
+ (double) +0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_XY (Y[58], /* W29 */
+ Y[58 + 1],
+ Y[186],
+ Y[186 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[186],
+ Y[186 + 1],
+ (double) +0.146730474455362, (double) +0.989176509964781);
+ BUTTERFLY_XY (Y[60], /* W30 */
+ Y[60 + 1],
+ Y[188],
+ Y[188 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[188],
+ Y[188 + 1],
+ (double) +0.098017140329561, (double) +0.995184726672197);
+ BUTTERFLY_XY (Y[62], /* W31 */
+ Y[62 + 1],
+ Y[190],
+ Y[190 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[190],
+ Y[190 + 1],
+ (double) +0.049067674327418, (double) +0.998795456205172);
+ BUTTERFLY_01 (Y[64], /* W32 */
+ Y[64 + 1],
+ Y[192],
+ Y[192 + 1],
+ Y[64],
+ Y[64 + 1],
+ Y[192],
+ Y[192 + 1],
+ (double) +0.000000000000000, (double) +1.000000000000000);
+ BUTTERFLY_XY (Y[66], /* W33 */
+ Y[66 + 1],
+ Y[194],
+ Y[194 + 1],
+ Y[66],
+ Y[66 + 1],
+ Y[194],
+ Y[194 + 1],
+ (double) -0.049067674327418, (double) +0.998795456205172);
+ BUTTERFLY_XY (Y[68], /* W34 */
+ Y[68 + 1],
+ Y[196],
+ Y[196 + 1],
+ Y[68],
+ Y[68 + 1],
+ Y[196],
+ Y[196 + 1],
+ (double) -0.098017140329561, (double) +0.995184726672197);
+ BUTTERFLY_XY (Y[70], /* W35 */
+ Y[70 + 1],
+ Y[198],
+ Y[198 + 1],
+ Y[70],
+ Y[70 + 1],
+ Y[198],
+ Y[198 + 1],
+ (double) -0.146730474455362, (double) +0.989176509964781);
+ BUTTERFLY_XY (Y[72], /* W36 */
+ Y[72 + 1],
+ Y[200],
+ Y[200 + 1],
+ Y[72],
+ Y[72 + 1],
+ Y[200],
+ Y[200 + 1],
+ (double) -0.195090322016128, (double) +0.980785280403230);
+ BUTTERFLY_XY (Y[74], /* W37 */
+ Y[74 + 1],
+ Y[202],
+ Y[202 + 1],
+ Y[74],
+ Y[74 + 1],
+ Y[202],
+ Y[202 + 1],
+ (double) -0.242980179903264, (double) +0.970031253194544);
+ BUTTERFLY_XY (Y[76], /* W38 */
+ Y[76 + 1],
+ Y[204],
+ Y[204 + 1],
+ Y[76],
+ Y[76 + 1],
+ Y[204],
+ Y[204 + 1],
+ (double) -0.290284677254462, (double) +0.956940335732209);
+ BUTTERFLY_XY (Y[78], /* W39 */
+ Y[78 + 1],
+ Y[206],
+ Y[206 + 1],
+ Y[78],
+ Y[78 + 1],
+ Y[206],
+ Y[206 + 1],
+ (double) -0.336889853392220, (double) +0.941544065183021);
+ BUTTERFLY_XY (Y[80], /* W40 */
+ Y[80 + 1],
+ Y[208],
+ Y[208 + 1],
+ Y[80],
+ Y[80 + 1],
+ Y[208],
+ Y[208 + 1],
+ (double) -0.382683432365090, (double) +0.923879532511287);
+ BUTTERFLY_XY (Y[82], /* W41 */
+ Y[82 + 1],
+ Y[210],
+ Y[210 + 1],
+ Y[82],
+ Y[82 + 1],
+ Y[210],
+ Y[210 + 1],
+ (double) -0.427555093430282, (double) +0.903989293123443);
+ BUTTERFLY_XY (Y[84], /* W42 */
+ Y[84 + 1],
+ Y[212],
+ Y[212 + 1],
+ Y[84],
+ Y[84 + 1],
+ Y[212],
+ Y[212 + 1],
+ (double) -0.471396736825998, (double) +0.881921264348355);
+ BUTTERFLY_XY (Y[86], /* W43 */
+ Y[86 + 1],
+ Y[214],
+ Y[214 + 1],
+ Y[86],
+ Y[86 + 1],
+ Y[214],
+ Y[214 + 1],
+ (double) -0.514102744193222, (double) +0.857728610000272);
+ BUTTERFLY_XY (Y[88], /* W44 */
+ Y[88 + 1],
+ Y[216],
+ Y[216 + 1],
+ Y[88],
+ Y[88 + 1],
+ Y[216],
+ Y[216 + 1],
+ (double) -0.555570233019602, (double) +0.831469612302545);
+ BUTTERFLY_XY (Y[90], /* W45 */
+ Y[90 + 1],
+ Y[218],
+ Y[218 + 1],
+ Y[90],
+ Y[90 + 1],
+ Y[218],
+ Y[218 + 1],
+ (double) -0.595699304492433, (double) +0.803207531480645);
+ BUTTERFLY_XY (Y[92], /* W46 */
+ Y[92 + 1],
+ Y[220],
+ Y[220 + 1],
+ Y[92],
+ Y[92 + 1],
+ Y[220],
+ Y[220 + 1],
+ (double) -0.634393284163645, (double) +0.773010453362737);
+ BUTTERFLY_XY (Y[94], /* W47 */
+ Y[94 + 1],
+ Y[222],
+ Y[222 + 1],
+ Y[94],
+ Y[94 + 1],
+ Y[222],
+ Y[222 + 1],
+ (double) -0.671558954847018, (double) +0.740951125354959);
+ BUTTERFLY_yY (Y[96], /* W48 */
+ Y[96 + 1],
+ Y[224],
+ Y[224 + 1],
+ Y[96],
+ Y[96 + 1],
+ Y[224],
+ Y[224 + 1],
+ (double) -0.707106781186547, (double) +0.707106781186548);
+ BUTTERFLY_XY (Y[98], /* W49 */
+ Y[98 + 1],
+ Y[226],
+ Y[226 + 1],
+ Y[98],
+ Y[98 + 1],
+ Y[226],
+ Y[226 + 1],
+ (double) -0.740951125354959, (double) +0.671558954847019);
+ BUTTERFLY_XY (Y[100], /* W50 */
+ Y[100 + 1],
+ Y[228],
+ Y[228 + 1],
+ Y[100],
+ Y[100 + 1],
+ Y[228],
+ Y[228 + 1],
+ (double) -0.773010453362737, (double) +0.634393284163645);
+ BUTTERFLY_XY (Y[102], /* W51 */
+ Y[102 + 1],
+ Y[230],
+ Y[230 + 1],
+ Y[102],
+ Y[102 + 1],
+ Y[230],
+ Y[230 + 1],
+ (double) -0.803207531480645, (double) +0.595699304492433);
+ BUTTERFLY_XY (Y[104], /* W52 */
+ Y[104 + 1],
+ Y[232],
+ Y[232 + 1],
+ Y[104],
+ Y[104 + 1],
+ Y[232],
+ Y[232 + 1],
+ (double) -0.831469612302545, (double) +0.555570233019602);
+ BUTTERFLY_XY (Y[106], /* W53 */
+ Y[106 + 1],
+ Y[234],
+ Y[234 + 1],
+ Y[106],
+ Y[106 + 1],
+ Y[234],
+ Y[234 + 1],
+ (double) -0.857728610000272, (double) +0.514102744193222);
+ BUTTERFLY_XY (Y[108], /* W54 */
+ Y[108 + 1],
+ Y[236],
+ Y[236 + 1],
+ Y[108],
+ Y[108 + 1],
+ Y[236],
+ Y[236 + 1],
+ (double) -0.881921264348355, (double) +0.471396736825998);
+ BUTTERFLY_XY (Y[110], /* W55 */
+ Y[110 + 1],
+ Y[238],
+ Y[238 + 1],
+ Y[110],
+ Y[110 + 1],
+ Y[238],
+ Y[238 + 1],
+ (double) -0.903989293123443, (double) +0.427555093430282);
+ BUTTERFLY_XY (Y[112], /* W56 */
+ Y[112 + 1],
+ Y[240],
+ Y[240 + 1],
+ Y[112],
+ Y[112 + 1],
+ Y[240],
+ Y[240 + 1],
+ (double) -0.923879532511287, (double) +0.382683432365090);
+ BUTTERFLY_XY (Y[114], /* W57 */
+ Y[114 + 1],
+ Y[242],
+ Y[242 + 1],
+ Y[114],
+ Y[114 + 1],
+ Y[242],
+ Y[242 + 1],
+ (double) -0.941544065183021, (double) +0.336889853392220);
+ BUTTERFLY_XY (Y[116], /* W58 */
+ Y[116 + 1],
+ Y[244],
+ Y[244 + 1],
+ Y[116],
+ Y[116 + 1],
+ Y[244],
+ Y[244 + 1],
+ (double) -0.956940335732209, (double) +0.290284677254462);
+ BUTTERFLY_XY (Y[118], /* W59 */
+ Y[118 + 1],
+ Y[246],
+ Y[246 + 1],
+ Y[118],
+ Y[118 + 1],
+ Y[246],
+ Y[246 + 1],
+ (double) -0.970031253194544, (double) +0.242980179903264);
+ BUTTERFLY_XY (Y[120], /* W60 */
+ Y[120 + 1],
+ Y[248],
+ Y[248 + 1],
+ Y[120],
+ Y[120 + 1],
+ Y[248],
+ Y[248 + 1],
+ (double) -0.980785280403230, (double) +0.195090322016129);
+ BUTTERFLY_XY (Y[122], /* W61 */
+ Y[122 + 1],
+ Y[250],
+ Y[250 + 1],
+ Y[122],
+ Y[122 + 1],
+ Y[250],
+ Y[250 + 1],
+ (double) -0.989176509964781, (double) +0.146730474455362);
+ BUTTERFLY_XY (Y[124], /* W62 */
+ Y[124 + 1],
+ Y[252],
+ Y[252 + 1],
+ Y[124],
+ Y[124 + 1],
+ Y[252],
+ Y[252 + 1],
+ (double) -0.995184726672197, (double) +0.098017140329561);
+ BUTTERFLY_XY (Y[126], /* W63 */
+ Y[126 + 1],
+ Y[254],
+ Y[254 + 1],
+ Y[126],
+ Y[126 + 1],
+ Y[254],
+ Y[254 + 1],
+ (double) -0.998795456205172, (double) +0.049067674327418);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 128 L S S S S S X)
+ **/
+static void
+gsl_power2_fft128analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2analysis (128, X, Y);
+
+ /* skipping 32 times fft4 */
+
+ /* skipping 16 times fft8 */
+
+ /* skipping 8 times fft16 */
+
+ /* skipping 4 times fft32 */
+
+ /* skipping 2 times fft64 */
+
+ /* perform 1 times fft128 */
+ gsl_power2_fft128analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 256 S S S S S S X T)
+ **/
+static void
+gsl_power2_fft256analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 128 times fft2 */
+
+ /* skipping 64 times fft4 */
+
+ /* skipping 32 times fft8 */
+
+ /* skipping 16 times fft16 */
+
+ /* skipping 8 times fft32 */
+
+ /* skipping 4 times fft64 */
+
+ /* perform 2 times fft128 */
+ gsl_power2_fft128analysis_skip2 (X, Y);
+ gsl_power2_fft128analysis_skip2 (X + 256, Y + 256);
+
+ /* perform 1 times fft256 */
+ {
+ static const double Wconst256[] = {
+ +0.999698818696204, +0.024541228522912,
+ +0.998795456205172, +0.049067674327418,
+ +0.997290456678690, +0.073564563599667,
+ +0.995184726672197, +0.098017140329561,
+ +0.992479534598710, +0.122410675199216,
+ +0.989176509964781, +0.146730474455362,
+ +0.985277642388941, +0.170961888760301,
+ +0.980785280403230, +0.195090322016128,
+ +0.975702130038529, +0.219101240156870,
+ +0.970031253194544, +0.242980179903264,
+ +0.963776065795440, +0.266712757474898,
+ +0.956940335732209, +0.290284677254462,
+ +0.949528180593037, +0.313681740398892,
+ +0.941544065183021, +0.336889853392220,
+ +0.932992798834739, +0.359895036534988,
+ +0.923879532511287, +0.382683432365090,
+ +0.914209755703531, +0.405241314004990,
+ +0.903989293123443, +0.427555093430282,
+ +0.893224301195515, +0.449611329654607,
+ +0.881921264348355, +0.471396736825998,
+ +0.870086991108711, +0.492898192229784,
+ +0.857728610000272, +0.514102744193222,
+ +0.844853565249707, +0.534997619887097,
+ +0.831469612302545, +0.555570233019602,
+ +0.817584813151584, +0.575808191417845,
+ +0.803207531480645, +0.595699304492433,
+ +0.788346427626606, +0.615231590580627,
+ +0.773010453362737, +0.634393284163645,
+ +0.757208846506485, +0.653172842953777,
+ +0.740951125354959, +0.671558954847018,
+ +0.724247082951467, +0.689540544737067,
+ +0.707106781186548, +0.707106781186547,
+ +0.689540544737067, +0.724247082951467,
+ +0.671558954847018, +0.740951125354959,
+ +0.653172842953777, +0.757208846506484,
+ +0.634393284163645, +0.773010453362737,
+ +0.615231590580627, +0.788346427626606,
+ +0.595699304492433, +0.803207531480645,
+ +0.575808191417845, +0.817584813151584,
+ +0.555570233019602, +0.831469612302545,
+ +0.534997619887097, +0.844853565249707,
+ +0.514102744193222, +0.857728610000272,
+ +0.492898192229784, +0.870086991108711,
+ +0.471396736825998, +0.881921264348355,
+ +0.449611329654607, +0.893224301195515,
+ +0.427555093430282, +0.903989293123443,
+ +0.405241314004990, +0.914209755703531,
+ +0.382683432365090, +0.923879532511287,
+ +0.359895036534988, +0.932992798834739,
+ +0.336889853392220, +0.941544065183021,
+ +0.313681740398892, +0.949528180593037,
+ +0.290284677254462, +0.956940335732209,
+ +0.266712757474898, +0.963776065795440,
+ +0.242980179903264, +0.970031253194544,
+ +0.219101240156870, +0.975702130038529,
+ +0.195090322016128, +0.980785280403230,
+ +0.170961888760301, +0.985277642388941,
+ +0.146730474455362, +0.989176509964781,
+ +0.122410675199216, +0.992479534598710,
+ +0.098017140329561, +0.995184726672197,
+ +0.073564563599667, +0.997290456678690,
+ +0.049067674327418, +0.998795456205172,
+ +0.024541228522912, +0.999698818696204,
+ };
+ const double *W = Wconst256 - 2;
+ double *Z = Y + 128;
+ for (offset = 0; offset < 512; offset += 512) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ __1, __0);
+ BUTTERFLY_01 (Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ __0, __1);
+ }
+ for (butterfly = 2; butterfly < 128; butterfly += 2) {
+ Wre = W[butterfly]; Wim = W[butterfly + 1];
+ for (block = 0; block < 512; block += 512) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Wre, Wim);
+ BUTTERFLY_Yx (Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Wre, Wim);
+ }
+ }
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 256 L S S S S S S X)
+ **/
+static void
+gsl_power2_fft256analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2analysis (256, X, Y);
+
+ /* skipping 64 times fft4 */
+
+ /* skipping 32 times fft8 */
+
+ /* skipping 16 times fft16 */
+
+ /* skipping 8 times fft32 */
+
+ /* skipping 4 times fft64 */
+
+ /* skipping 2 times fft128 */
+
+ /* perform 1 times fft256 */
+ gsl_power2_fft256analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 512 S S S S S S X T T)
+ **/
+static void
+gsl_power2_fft512analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 256 times fft2 */
+
+ /* skipping 128 times fft4 */
+
+ /* skipping 64 times fft8 */
+
+ /* skipping 32 times fft16 */
+
+ /* skipping 16 times fft32 */
+
+ /* skipping 8 times fft64 */
+
+ /* perform 4 times fft128 */
+ gsl_power2_fft128analysis_skip2 (X, Y);
+ gsl_power2_fft128analysis_skip2 (X + 256, Y + 256);
+ gsl_power2_fft128analysis_skip2 (X + 512, Y + 512);
+ gsl_power2_fft128analysis_skip2 (X + 768, Y + 768);
+
+ /* perform 2 times fft256 */
+ {
+ static const double Wconst256[] = {
+ +0.999698818696204, +0.024541228522912,
+ +0.998795456205172, +0.049067674327418,
+ +0.997290456678690, +0.073564563599667,
+ +0.995184726672197, +0.098017140329561,
+ +0.992479534598710, +0.122410675199216,
+ +0.989176509964781, +0.146730474455362,
+ +0.985277642388941, +0.170961888760301,
+ +0.980785280403230, +0.195090322016128,
+ +0.975702130038529, +0.219101240156870,
+ +0.970031253194544, +0.242980179903264,
+ +0.963776065795440, +0.266712757474898,
+ +0.956940335732209, +0.290284677254462,
+ +0.949528180593037, +0.313681740398892,
+ +0.941544065183021, +0.336889853392220,
+ +0.932992798834739, +0.359895036534988,
+ +0.923879532511287, +0.382683432365090,
+ +0.914209755703531, +0.405241314004990,
+ +0.903989293123443, +0.427555093430282,
+ +0.893224301195515, +0.449611329654607,
+ +0.881921264348355, +0.471396736825998,
+ +0.870086991108711, +0.492898192229784,
+ +0.857728610000272, +0.514102744193222,
+ +0.844853565249707, +0.534997619887097,
+ +0.831469612302545, +0.555570233019602,
+ +0.817584813151584, +0.575808191417845,
+ +0.803207531480645, +0.595699304492433,
+ +0.788346427626606, +0.615231590580627,
+ +0.773010453362737, +0.634393284163645,
+ +0.757208846506485, +0.653172842953777,
+ +0.740951125354959, +0.671558954847018,
+ +0.724247082951467, +0.689540544737067,
+ +0.707106781186548, +0.707106781186547,
+ +0.689540544737067, +0.724247082951467,
+ +0.671558954847018, +0.740951125354959,
+ +0.653172842953777, +0.757208846506484,
+ +0.634393284163645, +0.773010453362737,
+ +0.615231590580627, +0.788346427626606,
+ +0.595699304492433, +0.803207531480645,
+ +0.575808191417845, +0.817584813151584,
+ +0.555570233019602, +0.831469612302545,
+ +0.534997619887097, +0.844853565249707,
+ +0.514102744193222, +0.857728610000272,
+ +0.492898192229784, +0.870086991108711,
+ +0.471396736825998, +0.881921264348355,
+ +0.449611329654607, +0.893224301195515,
+ +0.427555093430282, +0.903989293123443,
+ +0.405241314004990, +0.914209755703531,
+ +0.382683432365090, +0.923879532511287,
+ +0.359895036534988, +0.932992798834739,
+ +0.336889853392220, +0.941544065183021,
+ +0.313681740398892, +0.949528180593037,
+ +0.290284677254462, +0.956940335732209,
+ +0.266712757474898, +0.963776065795440,
+ +0.242980179903264, +0.970031253194544,
+ +0.219101240156870, +0.975702130038529,
+ +0.195090322016128, +0.980785280403230,
+ +0.170961888760301, +0.985277642388941,
+ +0.146730474455362, +0.989176509964781,
+ +0.122410675199216, +0.992479534598710,
+ +0.098017140329561, +0.995184726672197,
+ +0.073564563599667, +0.997290456678690,
+ +0.049067674327418, +0.998795456205172,
+ +0.024541228522912, +0.999698818696204,
+ };
+ const double *W = Wconst256 - 2;
+ double *Z = Y + 128;
+ for (offset = 0; offset < 1024; offset += 512) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ __1, __0);
+ BUTTERFLY_01 (Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ __0, __1);
+ }
+ for (butterfly = 2; butterfly < 128; butterfly += 2) {
+ Wre = W[butterfly]; Wim = W[butterfly + 1];
+ for (block = 0; block < 1024; block += 512) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Wre, Wim);
+ BUTTERFLY_Yx (Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Wre, Wim);
+ }
+ }
+ }
+
+ /* perform 1 times fft512 */
+ {
+ static const double Wconst512[] = {
+ +0.999924701839145, +0.012271538285720,
+ +0.999698818696204, +0.024541228522912,
+ +0.999322384588350, +0.036807222941359,
+ +0.998795456205172, +0.049067674327418,
+ +0.998118112900149, +0.061320736302209,
+ +0.997290456678690, +0.073564563599667,
+ +0.996312612182778, +0.085797312344440,
+ +0.995184726672197, +0.098017140329561,
+ +0.993906970002356, +0.110222207293883,
+ +0.992479534598710, +0.122410675199216,
+ +0.990902635427780, +0.134580708507126,
+ +0.989176509964781, +0.146730474455362,
+ +0.987301418157858, +0.158858143333861,
+ +0.985277642388941, +0.170961888760301,
+ +0.983105487431216, +0.183039887955141,
+ +0.980785280403230, +0.195090322016128,
+ +0.978317370719628, +0.207111376192219,
+ +0.975702130038529, +0.219101240156870,
+ +0.972939952205560, +0.231058108280671,
+ +0.970031253194544, +0.242980179903264,
+ +0.966976471044852, +0.254865659604515,
+ +0.963776065795440, +0.266712757474898,
+ +0.960430519415566, +0.278519689385053,
+ +0.956940335732209, +0.290284677254462,
+ +0.953306040354194, +0.302005949319228,
+ +0.949528180593037, +0.313681740398892,
+ +0.945607325380521, +0.325310292162263,
+ +0.941544065183021, +0.336889853392220,
+ +0.937339011912575, +0.348418680249435,
+ +0.932992798834739, +0.359895036534988,
+ +0.928506080473216, +0.371317193951838,
+ +0.923879532511287, +0.382683432365090,
+ +0.919113851690058, +0.393992040061048,
+ +0.914209755703531, +0.405241314004990,
+ +0.909167983090522, +0.416429560097637,
+ +0.903989293123443, +0.427555093430282,
+ +0.898674465693954, +0.438616238538528,
+ +0.893224301195515, +0.449611329654607,
+ +0.887639620402854, +0.460538710958240,
+ +0.881921264348355, +0.471396736825998,
+ +0.876070094195407, +0.482183772079123,
+ +0.870086991108711, +0.492898192229784,
+ +0.863972856121587, +0.503538383725718,
+ +0.857728610000272, +0.514102744193222,
+ +0.851355193105265, +0.524589682678469,
+ +0.844853565249707, +0.534997619887097,
+ +0.838224705554838, +0.545324988422046,
+ +0.831469612302545, +0.555570233019602,
+ +0.824589302785025, +0.565731810783613,
+ +0.817584813151584, +0.575808191417845,
+ +0.810457198252595, +0.585797857456439,
+ +0.803207531480645, +0.595699304492433,
+ +0.795836904608884, +0.605511041404326,
+ +0.788346427626606, +0.615231590580627,
+ +0.780737228572094, +0.624859488142386,
+ +0.773010453362737, +0.634393284163645,
+ +0.765167265622459, +0.643831542889791,
+ +0.757208846506485, +0.653172842953777,
+ +0.749136394523459, +0.662415777590172,
+ +0.740951125354959, +0.671558954847018,
+ +0.732654271672413, +0.680600997795453,
+ +0.724247082951467, +0.689540544737067,
+ +0.715730825283819, +0.698376249408973,
+ +0.707106781186548, +0.707106781186547,
+ +0.698376249408973, +0.715730825283819,
+ +0.689540544737067, +0.724247082951467,
+ +0.680600997795453, +0.732654271672413,
+ +0.671558954847018, +0.740951125354959,
+ +0.662415777590172, +0.749136394523459,
+ +0.653172842953777, +0.757208846506484,
+ +0.643831542889791, +0.765167265622459,
+ +0.634393284163645, +0.773010453362737,
+ +0.624859488142386, +0.780737228572094,
+ +0.615231590580627, +0.788346427626606,
+ +0.605511041404326, +0.795836904608883,
+ +0.595699304492433, +0.803207531480645,
+ +0.585797857456439, +0.810457198252595,
+ +0.575808191417845, +0.817584813151584,
+ +0.565731810783613, +0.824589302785025,
+ +0.555570233019602, +0.831469612302545,
+ +0.545324988422046, +0.838224705554838,
+ +0.534997619887097, +0.844853565249707,
+ +0.524589682678469, +0.851355193105265,
+ +0.514102744193222, +0.857728610000272,
+ +0.503538383725718, +0.863972856121587,
+ +0.492898192229784, +0.870086991108711,
+ +0.482183772079123, +0.876070094195407,
+ +0.471396736825998, +0.881921264348355,
+ +0.460538710958240, +0.887639620402854,
+ +0.449611329654607, +0.893224301195515,
+ +0.438616238538528, +0.898674465693954,
+ +0.427555093430282, +0.903989293123443,
+ +0.416429560097637, +0.909167983090522,
+ +0.405241314004990, +0.914209755703531,
+ +0.393992040061048, +0.919113851690058,
+ +0.382683432365090, +0.923879532511287,
+ +0.371317193951838, +0.928506080473215,
+ +0.359895036534988, +0.932992798834739,
+ +0.348418680249435, +0.937339011912575,
+ +0.336889853392220, +0.941544065183021,
+ +0.325310292162263, +0.945607325380521,
+ +0.313681740398892, +0.949528180593037,
+ +0.302005949319228, +0.953306040354194,
+ +0.290284677254462, +0.956940335732209,
+ +0.278519689385053, +0.960430519415566,
+ +0.266712757474898, +0.963776065795440,
+ +0.254865659604515, +0.966976471044852,
+ +0.242980179903264, +0.970031253194544,
+ +0.231058108280671, +0.972939952205560,
+ +0.219101240156870, +0.975702130038529,
+ +0.207111376192219, +0.978317370719628,
+ +0.195090322016128, +0.980785280403230,
+ +0.183039887955141, +0.983105487431216,
+ +0.170961888760301, +0.985277642388941,
+ +0.158858143333861, +0.987301418157858,
+ +0.146730474455362, +0.989176509964781,
+ +0.134580708507126, +0.990902635427780,
+ +0.122410675199216, +0.992479534598710,
+ +0.110222207293883, +0.993906970002356,
+ +0.098017140329561, +0.995184726672197,
+ +0.085797312344440, +0.996312612182778,
+ +0.073564563599667, +0.997290456678690,
+ +0.061320736302209, +0.998118112900149,
+ +0.049067674327418, +0.998795456205172,
+ +0.036807222941359, +0.999322384588350,
+ +0.024541228522912, +0.999698818696204,
+ +0.012271538285720, +0.999924701839145,
+ };
+ const double *W = Wconst512 - 2;
+ double *Z = Y + 256;
+ for (offset = 0; offset < 1024; offset += 1024) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 512], Y[offset + 512 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 512], Y[offset + 512 + 1],
+ __1, __0);
+ BUTTERFLY_01 (Z[offset], Z[offset + 1],
+ Z[offset + 512], Z[offset + 512 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 512], Z[offset + 512 + 1],
+ __0, __1);
+ }
+ for (butterfly = 2; butterfly < 256; butterfly += 2) {
+ Wre = W[butterfly]; Wim = W[butterfly + 1];
+ for (block = 0; block < 1024; block += 1024) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 512], Y[offset + 512 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 512], Y[offset + 512 + 1],
+ Wre, Wim);
+ BUTTERFLY_Yx (Z[offset], Z[offset + 1],
+ Z[offset + 512], Z[offset + 512 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 512], Z[offset + 512 + 1],
+ Wre, Wim);
+ }
+ }
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 512 L S S S S S S S X)
+ **/
+static void
+gsl_power2_fft512analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2analysis (512, X, Y);
+
+ /* skipping 128 times fft4 */
+
+ /* skipping 64 times fft8 */
+
+ /* skipping 32 times fft16 */
+
+ /* skipping 16 times fft32 */
+
+ /* skipping 8 times fft64 */
+
+ /* skipping 4 times fft128 */
+
+ /* skipping 2 times fft256 */
+
+ /* perform 1 times fft512 */
+ gsl_power2_fft512analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 1024 S S S S S S S S X L)
+ **/
+static void
+gsl_power2_fft1024analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 512 times fft2 */
+
+ /* skipping 256 times fft4 */
+
+ /* skipping 128 times fft8 */
+
+ /* skipping 64 times fft16 */
+
+ /* skipping 32 times fft32 */
+
+ /* skipping 16 times fft64 */
+
+ /* skipping 8 times fft128 */
+
+ /* skipping 4 times fft256 */
+
+ /* perform 2 times fft512 */
+ gsl_power2_fft512analysis_skip2 (X, Y);
+ gsl_power2_fft512analysis_skip2 (X + 1024, Y + 1024);
+
+ /* perform 1 times fft1024 */
+ for (offset = 0; offset < 2048; offset += 2048) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ __1, __0);
+ }
+ Wre = +0.999981175282601; Wim = +0.006135884649154;
+ for (butterfly = 2; butterfly < 512; butterfly += 2) {
+ for (block = 0; block < 2048; block += 2048) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000018824717399, +0.006135884649154);
+ }
+ for (offset = 512; offset < 2048; offset += 2048) {
+ BUTTERFLY_01 (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ __0, __1);
+ }
+ Wre = -0.006135884649154; Wim = +0.999981175282601;
+ for (butterfly = 514; butterfly < 1024; butterfly += 2) {
+ for (block = 0; block < 2048; block += 2048) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000018824717399, +0.006135884649154);
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 1024 L S S S S S S S S X)
+ **/
+static void
+gsl_power2_fft1024analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2analysis (1024, X, Y);
+
+ /* skipping 256 times fft4 */
+
+ /* skipping 128 times fft8 */
+
+ /* skipping 64 times fft16 */
+
+ /* skipping 32 times fft32 */
+
+ /* skipping 16 times fft64 */
+
+ /* skipping 8 times fft128 */
+
+ /* skipping 4 times fft256 */
+
+ /* skipping 2 times fft512 */
+
+ /* perform 1 times fft1024 */
+ gsl_power2_fft1024analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 2048 S S S S S S S S X L L)
+ **/
+static void
+gsl_power2_fft2048analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 1024 times fft2 */
+
+ /* skipping 512 times fft4 */
+
+ /* skipping 256 times fft8 */
+
+ /* skipping 128 times fft16 */
+
+ /* skipping 64 times fft32 */
+
+ /* skipping 32 times fft64 */
+
+ /* skipping 16 times fft128 */
+
+ /* skipping 8 times fft256 */
+
+ /* perform 4 times fft512 */
+ gsl_power2_fft512analysis_skip2 (X, Y);
+ gsl_power2_fft512analysis_skip2 (X + 1024, Y + 1024);
+ gsl_power2_fft512analysis_skip2 (X + 2048, Y + 2048);
+ gsl_power2_fft512analysis_skip2 (X + 3072, Y + 3072);
+
+ /* perform 2 times fft1024 */
+ for (offset = 0; offset < 4096; offset += 2048) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ __1, __0);
+ }
+ Wre = +0.999981175282601; Wim = +0.006135884649154;
+ for (butterfly = 2; butterfly < 512; butterfly += 2) {
+ for (block = 0; block < 4096; block += 2048) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000018824717399, +0.006135884649154);
+ }
+ for (offset = 512; offset < 4096; offset += 2048) {
+ BUTTERFLY_01 (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ __0, __1);
+ }
+ Wre = -0.006135884649154; Wim = +0.999981175282601;
+ for (butterfly = 514; butterfly < 1024; butterfly += 2) {
+ for (block = 0; block < 4096; block += 2048) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000018824717399, +0.006135884649154);
+ }
+
+ /* perform 1 times fft2048 */
+ for (offset = 0; offset < 4096; offset += 4096) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ __1, __0);
+ }
+ Wre = +0.999995293809576; Wim = +0.003067956762966;
+ for (butterfly = 2; butterfly < 1024; butterfly += 2) {
+ for (block = 0; block < 4096; block += 4096) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000004706190424, +0.003067956762966);
+ }
+ for (offset = 1024; offset < 4096; offset += 4096) {
+ BUTTERFLY_01 (Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ __0, __1);
+ }
+ Wre = -0.003067956762966; Wim = +0.999995293809576;
+ for (butterfly = 1026; butterfly < 2048; butterfly += 2) {
+ for (block = 0; block < 4096; block += 4096) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000004706190424, +0.003067956762966);
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 2048 L S S S S S S S S S X)
+ **/
+static void
+gsl_power2_fft2048analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2analysis (2048, X, Y);
+
+ /* skipping 512 times fft4 */
+
+ /* skipping 256 times fft8 */
+
+ /* skipping 128 times fft16 */
+
+ /* skipping 64 times fft32 */
+
+ /* skipping 32 times fft64 */
+
+ /* skipping 16 times fft128 */
+
+ /* skipping 8 times fft256 */
+
+ /* skipping 4 times fft512 */
+
+ /* skipping 2 times fft1024 */
+
+ /* perform 1 times fft2048 */
+ gsl_power2_fft2048analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 4096 S S S S S S S S S S X L)
+ **/
+static void
+gsl_power2_fft4096analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 2048 times fft2 */
+
+ /* skipping 1024 times fft4 */
+
+ /* skipping 512 times fft8 */
+
+ /* skipping 256 times fft16 */
+
+ /* skipping 128 times fft32 */
+
+ /* skipping 64 times fft64 */
+
+ /* skipping 32 times fft128 */
+
+ /* skipping 16 times fft256 */
+
+ /* skipping 8 times fft512 */
+
+ /* skipping 4 times fft1024 */
+
+ /* perform 2 times fft2048 */
+ gsl_power2_fft2048analysis_skip2 (X, Y);
+ gsl_power2_fft2048analysis_skip2 (X + 4096, Y + 4096);
+
+ /* perform 1 times fft4096 */
+ for (offset = 0; offset < 8192; offset += 8192) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ __1, __0);
+ }
+ Wre = +0.999998823451702; Wim = +0.001533980186285;
+ for (butterfly = 2; butterfly < 2048; butterfly += 2) {
+ for (block = 0; block < 8192; block += 8192) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000001176548298, +0.001533980186285);
+ }
+ for (offset = 2048; offset < 8192; offset += 8192) {
+ BUTTERFLY_01 (Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ __0, __1);
+ }
+ Wre = -0.001533980186285; Wim = +0.999998823451702;
+ for (butterfly = 2050; butterfly < 4096; butterfly += 2) {
+ for (block = 0; block < 8192; block += 8192) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000001176548298, +0.001533980186285);
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 4096 L S S S S S S S S S S X)
+ **/
+static void
+gsl_power2_fft4096analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2analysis (4096, X, Y);
+
+ /* skipping 1024 times fft4 */
+
+ /* skipping 512 times fft8 */
+
+ /* skipping 256 times fft16 */
+
+ /* skipping 128 times fft32 */
+
+ /* skipping 64 times fft64 */
+
+ /* skipping 32 times fft128 */
+
+ /* skipping 16 times fft256 */
+
+ /* skipping 8 times fft512 */
+
+ /* skipping 4 times fft1024 */
+
+ /* skipping 2 times fft2048 */
+
+ /* perform 1 times fft4096 */
+ gsl_power2_fft4096analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 8192 S S S S S S S S S S S X L)
+ **/
+static void
+gsl_power2_fft8192analysis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 4096 times fft2 */
+
+ /* skipping 2048 times fft4 */
+
+ /* skipping 1024 times fft8 */
+
+ /* skipping 512 times fft16 */
+
+ /* skipping 256 times fft32 */
+
+ /* skipping 128 times fft64 */
+
+ /* skipping 64 times fft128 */
+
+ /* skipping 32 times fft256 */
+
+ /* skipping 16 times fft512 */
+
+ /* skipping 8 times fft1024 */
+
+ /* skipping 4 times fft2048 */
+
+ /* perform 2 times fft4096 */
+ gsl_power2_fft4096analysis_skip2 (X, Y);
+ gsl_power2_fft4096analysis_skip2 (X + 8192, Y + 8192);
+
+ /* perform 1 times fft8192 */
+ for (offset = 0; offset < 16384; offset += 16384) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ __1, __0);
+ }
+ Wre = +0.999999705862882; Wim = +0.000766990318743;
+ for (butterfly = 2; butterfly < 4096; butterfly += 2) {
+ for (block = 0; block < 16384; block += 16384) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000000294137118, +0.000766990318743);
+ }
+ for (offset = 4096; offset < 16384; offset += 16384) {
+ BUTTERFLY_01 (Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ __0, __1);
+ }
+ Wre = -0.000766990318743; Wim = +0.999999705862882;
+ for (butterfly = 4098; butterfly < 8192; butterfly += 2) {
+ for (block = 0; block < 16384; block += 16384) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000000294137118, +0.000766990318743);
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 8192 L S S S S S S S S S S S X)
+ **/
+static void
+gsl_power2_fft8192analysis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2analysis (8192, X, Y);
+
+ /* skipping 2048 times fft4 */
+
+ /* skipping 1024 times fft8 */
+
+ /* skipping 512 times fft16 */
+
+ /* skipping 256 times fft32 */
+
+ /* skipping 128 times fft64 */
+
+ /* skipping 64 times fft128 */
+
+ /* skipping 32 times fft256 */
+
+ /* skipping 16 times fft512 */
+
+ /* skipping 8 times fft1024 */
+
+ /* skipping 4 times fft2048 */
+
+ /* skipping 2 times fft4096 */
+
+ /* perform 1 times fft8192 */
+ gsl_power2_fft8192analysis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 2 F)
+ **/
+static void
+gsl_power2_fft2synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 1 times fft2 */
+ BUTTERFLY_10scale (X[0], X[0 + 1],
+ X[2], X[2 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ 1.0 / (double) 2);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 4 S F)
+ **/
+static void
+gsl_power2_fft4synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 2 times fft2 */
+
+ /* perform 1 times fft4 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_0m (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 4 F X)
+ **/
+static void
+gsl_power2_fft4synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 2 times fft2 */
+ BUTTERFLY_10scale (X[0], X[0 + 1],
+ X[4], X[4 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ 1.0 / (double) 4);
+ BUTTERFLY_10scale (X[2], X[2 + 1],
+ X[6], X[6 + 1],
+ Y[4], Y[4 + 1],
+ Y[6], Y[6 + 1],
+ 1.0 / (double) 4);
+
+ /* perform 1 times fft4 */
+ gsl_power2_fft4synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 8 S F F)
+ **/
+static void
+gsl_power2_fft8synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 4 times fft2 */
+
+ /* perform 2 times fft4 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[8], /* W0 */
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_0m (Y[2], /* W2 */
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[10], /* W2 */
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+
+ /* perform 1 times fft8 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_yY (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_0m (Y[4], /* W2 */
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XX (Y[6], /* W3 */
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 8 F S X)
+ **/
+static void
+gsl_power2_fft8synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 4 times fft2 */
+ BUTTERFLY_10scale (X[0], X[0 + 1],
+ X[8], X[8 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ 1.0 / (double) 8);
+ BUTTERFLY_10scale (X[4], X[4 + 1],
+ X[12], X[12 + 1],
+ Y[4], Y[4 + 1],
+ Y[6], Y[6 + 1],
+ 1.0 / (double) 8);
+ BUTTERFLY_10scale (X[2], X[2 + 1],
+ X[10], X[10 + 1],
+ Y[8], Y[8 + 1],
+ Y[10], Y[10 + 1],
+ 1.0 / (double) 8);
+ BUTTERFLY_10scale (X[6], X[6 + 1],
+ X[14], X[14 + 1],
+ Y[12], Y[12 + 1],
+ Y[14], Y[14 + 1],
+ 1.0 / (double) 8);
+
+ /* skipping 2 times fft4 */
+
+ /* perform 1 times fft8 */
+ gsl_power2_fft8synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 16 S F F F)
+ **/
+static void
+gsl_power2_fft16synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 8 times fft2 */
+
+ /* perform 4 times fft4 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[8], /* W0 */
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[16], /* W0 */
+ Y[16 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[20],
+ Y[20 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[24], /* W0 */
+ Y[24 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_0m (Y[2], /* W4 */
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[10], /* W4 */
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[18], /* W4 */
+ Y[18 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[22],
+ Y[22 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[26], /* W4 */
+ Y[26 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+
+ /* perform 2 times fft8 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[16], /* W0 */
+ Y[16 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[24],
+ Y[24 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_yY (Y[2], /* W2 */
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_yY (Y[18], /* W2 */
+ Y[18 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[26],
+ Y[26 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_0m (Y[4], /* W4 */
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[20], /* W4 */
+ Y[20 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XX (Y[6], /* W6 */
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XX (Y[22], /* W6 */
+ Y[22 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+
+ /* perform 1 times fft16 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[16],
+ Y[16 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[18],
+ Y[18 + 1],
+ (double) +0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_yY (Y[4], /* W2 */
+ Y[4 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[20],
+ Y[20 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_XY (Y[6], /* W3 */
+ Y[6 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[22],
+ Y[22 + 1],
+ (double) +0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_0m (Y[8], /* W4 */
+ Y[8 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[24],
+ Y[24 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XY (Y[10], /* W5 */
+ Y[10 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[26],
+ Y[26 + 1],
+ (double) -0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XX (Y[12], /* W6 */
+ Y[12 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XY (Y[14], /* W7 */
+ Y[14 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) -0.923879532511287, (double) -0.382683432365090);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 16 F S S X)
+ **/
+static void
+gsl_power2_fft16synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 8 times fft2 */
+ BUTTERFLY_10scale (X[0], X[0 + 1],
+ X[16], X[16 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ 1.0 / (double) 16);
+ BUTTERFLY_10scale (X[8], X[8 + 1],
+ X[24], X[24 + 1],
+ Y[4], Y[4 + 1],
+ Y[6], Y[6 + 1],
+ 1.0 / (double) 16);
+ BUTTERFLY_10scale (X[4], X[4 + 1],
+ X[20], X[20 + 1],
+ Y[8], Y[8 + 1],
+ Y[10], Y[10 + 1],
+ 1.0 / (double) 16);
+ BUTTERFLY_10scale (X[12], X[12 + 1],
+ X[28], X[28 + 1],
+ Y[12], Y[12 + 1],
+ Y[14], Y[14 + 1],
+ 1.0 / (double) 16);
+ BUTTERFLY_10scale (X[2], X[2 + 1],
+ X[18], X[18 + 1],
+ Y[16], Y[16 + 1],
+ Y[18], Y[18 + 1],
+ 1.0 / (double) 16);
+ BUTTERFLY_10scale (X[10], X[10 + 1],
+ X[26], X[26 + 1],
+ Y[20], Y[20 + 1],
+ Y[22], Y[22 + 1],
+ 1.0 / (double) 16);
+ BUTTERFLY_10scale (X[6], X[6 + 1],
+ X[22], X[22 + 1],
+ Y[24], Y[24 + 1],
+ Y[26], Y[26 + 1],
+ 1.0 / (double) 16);
+ BUTTERFLY_10scale (X[14], X[14 + 1],
+ X[30], X[30 + 1],
+ Y[28], Y[28 + 1],
+ Y[30], Y[30 + 1],
+ 1.0 / (double) 16);
+
+ /* skipping 4 times fft4 */
+
+ /* skipping 2 times fft8 */
+
+ /* perform 1 times fft16 */
+ gsl_power2_fft16synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 32 S F F F F)
+ **/
+static void
+gsl_power2_fft32synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 16 times fft2 */
+
+ /* perform 8 times fft4 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[4],
+ Y[4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[8], /* W0 */
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[16], /* W0 */
+ Y[16 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[20],
+ Y[20 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[24], /* W0 */
+ Y[24 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[32], /* W0 */
+ Y[32 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[36],
+ Y[36 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[40], /* W0 */
+ Y[40 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[44],
+ Y[44 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[48], /* W0 */
+ Y[48 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[52],
+ Y[52 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[56], /* W0 */
+ Y[56 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[60],
+ Y[60 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_0m (Y[2], /* W8 */
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[6],
+ Y[6 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[10], /* W8 */
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[18], /* W8 */
+ Y[18 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[22],
+ Y[22 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[26], /* W8 */
+ Y[26 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[34], /* W8 */
+ Y[34 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[38],
+ Y[38 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[42], /* W8 */
+ Y[42 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[46],
+ Y[46 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[50], /* W8 */
+ Y[50 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[54],
+ Y[54 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[58], /* W8 */
+ Y[58 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[62],
+ Y[62 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+
+ /* perform 4 times fft8 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[8],
+ Y[8 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[16], /* W0 */
+ Y[16 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[24],
+ Y[24 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[32], /* W0 */
+ Y[32 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[40],
+ Y[40 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[48], /* W0 */
+ Y[48 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[56],
+ Y[56 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_yY (Y[2], /* W4 */
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[10],
+ Y[10 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_yY (Y[18], /* W4 */
+ Y[18 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[26],
+ Y[26 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_yY (Y[34], /* W4 */
+ Y[34 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[42],
+ Y[42 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_yY (Y[50], /* W4 */
+ Y[50 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[58],
+ Y[58 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_0m (Y[4], /* W8 */
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[12],
+ Y[12 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[20], /* W8 */
+ Y[20 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[36], /* W8 */
+ Y[36 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[44],
+ Y[44 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[52], /* W8 */
+ Y[52 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[60],
+ Y[60 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XX (Y[6], /* W12 */
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[14],
+ Y[14 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XX (Y[22], /* W12 */
+ Y[22 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XX (Y[38], /* W12 */
+ Y[38 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[46],
+ Y[46 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XX (Y[54], /* W12 */
+ Y[54 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[62],
+ Y[62 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+
+ /* perform 2 times fft16 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[16],
+ Y[16 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_10 (Y[32], /* W0 */
+ Y[32 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[48],
+ Y[48 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[2], /* W2 */
+ Y[2 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[18],
+ Y[18 + 1],
+ (double) +0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[34], /* W2 */
+ Y[34 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[50],
+ Y[50 + 1],
+ (double) +0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_yY (Y[4], /* W4 */
+ Y[4 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[20],
+ Y[20 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_yY (Y[36], /* W4 */
+ Y[36 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[52],
+ Y[52 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_XY (Y[6], /* W6 */
+ Y[6 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[22],
+ Y[22 + 1],
+ (double) +0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[38], /* W6 */
+ Y[38 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[54],
+ Y[54 + 1],
+ (double) +0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_0m (Y[8], /* W8 */
+ Y[8 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[24],
+ Y[24 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_0m (Y[40], /* W8 */
+ Y[40 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[56],
+ Y[56 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XY (Y[10], /* W10 */
+ Y[10 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[26],
+ Y[26 + 1],
+ (double) -0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[42], /* W10 */
+ Y[42 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[58],
+ Y[58 + 1],
+ (double) -0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XX (Y[12], /* W12 */
+ Y[12 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[28],
+ Y[28 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XX (Y[44], /* W12 */
+ Y[44 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[60],
+ Y[60 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XY (Y[14], /* W14 */
+ Y[14 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[30],
+ Y[30 + 1],
+ (double) -0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[46], /* W14 */
+ Y[46 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[62],
+ Y[62 + 1],
+ (double) -0.923879532511287, (double) -0.382683432365090);
+
+ /* perform 1 times fft32 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[32],
+ Y[32 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[34],
+ Y[34 + 1],
+ (double) +0.980785280403230, (double) -0.195090322016128);
+ BUTTERFLY_XY (Y[4], /* W2 */
+ Y[4 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[36],
+ Y[36 + 1],
+ (double) +0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[6], /* W3 */
+ Y[6 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[38],
+ Y[38 + 1],
+ (double) +0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_yY (Y[8], /* W4 */
+ Y[8 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[40],
+ Y[40 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_XY (Y[10], /* W5 */
+ Y[10 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[42],
+ Y[42 + 1],
+ (double) +0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XY (Y[12], /* W6 */
+ Y[12 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[44],
+ Y[44 + 1],
+ (double) +0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[14], /* W7 */
+ Y[14 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[46],
+ Y[46 + 1],
+ (double) +0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_0m (Y[16], /* W8 */
+ Y[16 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[48],
+ Y[48 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XY (Y[18], /* W9 */
+ Y[18 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[50],
+ Y[50 + 1],
+ (double) -0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_XY (Y[20], /* W10 */
+ Y[20 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[52],
+ Y[52 + 1],
+ (double) -0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[22], /* W11 */
+ Y[22 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[54],
+ Y[54 + 1],
+ (double) -0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XX (Y[24], /* W12 */
+ Y[24 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[56],
+ Y[56 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XY (Y[26], /* W13 */
+ Y[26 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[58],
+ Y[58 + 1],
+ (double) -0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_XY (Y[28], /* W14 */
+ Y[28 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[60],
+ Y[60 + 1],
+ (double) -0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[30], /* W15 */
+ Y[30 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[62],
+ Y[62 + 1],
+ (double) -0.980785280403230, (double) -0.195090322016129);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 32 F S S S X)
+ **/
+static void
+gsl_power2_fft32synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 16 times fft2 */
+ BUTTERFLY_10scale (X[0], X[0 + 1],
+ X[32], X[32 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[16], X[16 + 1],
+ X[48], X[48 + 1],
+ Y[4], Y[4 + 1],
+ Y[6], Y[6 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[8], X[8 + 1],
+ X[40], X[40 + 1],
+ Y[8], Y[8 + 1],
+ Y[10], Y[10 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[24], X[24 + 1],
+ X[56], X[56 + 1],
+ Y[12], Y[12 + 1],
+ Y[14], Y[14 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[4], X[4 + 1],
+ X[36], X[36 + 1],
+ Y[16], Y[16 + 1],
+ Y[18], Y[18 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[20], X[20 + 1],
+ X[52], X[52 + 1],
+ Y[20], Y[20 + 1],
+ Y[22], Y[22 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[12], X[12 + 1],
+ X[44], X[44 + 1],
+ Y[24], Y[24 + 1],
+ Y[26], Y[26 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[28], X[28 + 1],
+ X[60], X[60 + 1],
+ Y[28], Y[28 + 1],
+ Y[30], Y[30 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[2], X[2 + 1],
+ X[34], X[34 + 1],
+ Y[32], Y[32 + 1],
+ Y[34], Y[34 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[18], X[18 + 1],
+ X[50], X[50 + 1],
+ Y[36], Y[36 + 1],
+ Y[38], Y[38 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[10], X[10 + 1],
+ X[42], X[42 + 1],
+ Y[40], Y[40 + 1],
+ Y[42], Y[42 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[26], X[26 + 1],
+ X[58], X[58 + 1],
+ Y[44], Y[44 + 1],
+ Y[46], Y[46 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[6], X[6 + 1],
+ X[38], X[38 + 1],
+ Y[48], Y[48 + 1],
+ Y[50], Y[50 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[22], X[22 + 1],
+ X[54], X[54 + 1],
+ Y[52], Y[52 + 1],
+ Y[54], Y[54 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[14], X[14 + 1],
+ X[46], X[46 + 1],
+ Y[56], Y[56 + 1],
+ Y[58], Y[58 + 1],
+ 1.0 / (double) 32);
+ BUTTERFLY_10scale (X[30], X[30 + 1],
+ X[62], X[62 + 1],
+ Y[60], Y[60 + 1],
+ Y[62], Y[62 + 1],
+ 1.0 / (double) 32);
+
+ /* skipping 8 times fft4 */
+
+ /* skipping 4 times fft8 */
+
+ /* skipping 2 times fft16 */
+
+ /* perform 1 times fft32 */
+ gsl_power2_fft32synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 64 S R R R R F)
+ **/
+static void
+gsl_power2_fft64synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 32 times fft2 */
+
+ /* perform 16 times fft4 */
+ for (block = 0; block < 128; block += 8) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_0m (Y[block + 2], /* W16 */
+ Y[block + 2 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ }
+
+ /* perform 8 times fft8 */
+ for (block = 0; block < 128; block += 16) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_yY (Y[block + 2], /* W8 */
+ Y[block + 2 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_0m (Y[block + 4], /* W16 */
+ Y[block + 4 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XX (Y[block + 6], /* W24 */
+ Y[block + 6 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ }
+
+ /* perform 4 times fft16 */
+ for (block = 0; block < 128; block += 32) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[block + 2], /* W4 */
+ Y[block + 2 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ (double) +0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_yY (Y[block + 4], /* W8 */
+ Y[block + 4 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_XY (Y[block + 6], /* W12 */
+ Y[block + 6 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ (double) +0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_0m (Y[block + 8], /* W16 */
+ Y[block + 8 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XY (Y[block + 10], /* W20 */
+ Y[block + 10 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ (double) -0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XX (Y[block + 12], /* W24 */
+ Y[block + 12 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XY (Y[block + 14], /* W28 */
+ Y[block + 14 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ (double) -0.923879532511287, (double) -0.382683432365090);
+ }
+
+ /* perform 2 times fft32 */
+ for (block = 0; block < 128; block += 64) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 32],
+ Y[block + 32 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 32],
+ Y[block + 32 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[block + 2], /* W2 */
+ Y[block + 2 + 1],
+ Y[block + 34],
+ Y[block + 34 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 34],
+ Y[block + 34 + 1],
+ (double) +0.980785280403230, (double) -0.195090322016128);
+ BUTTERFLY_XY (Y[block + 4], /* W4 */
+ Y[block + 4 + 1],
+ Y[block + 36],
+ Y[block + 36 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 36],
+ Y[block + 36 + 1],
+ (double) +0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[block + 6], /* W6 */
+ Y[block + 6 + 1],
+ Y[block + 38],
+ Y[block + 38 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 38],
+ Y[block + 38 + 1],
+ (double) +0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_yY (Y[block + 8], /* W8 */
+ Y[block + 8 + 1],
+ Y[block + 40],
+ Y[block + 40 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 40],
+ Y[block + 40 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_XY (Y[block + 10], /* W10 */
+ Y[block + 10 + 1],
+ Y[block + 42],
+ Y[block + 42 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 42],
+ Y[block + 42 + 1],
+ (double) +0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XY (Y[block + 12], /* W12 */
+ Y[block + 12 + 1],
+ Y[block + 44],
+ Y[block + 44 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 44],
+ Y[block + 44 + 1],
+ (double) +0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[block + 14], /* W14 */
+ Y[block + 14 + 1],
+ Y[block + 46],
+ Y[block + 46 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 46],
+ Y[block + 46 + 1],
+ (double) +0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_0m (Y[block + 16], /* W16 */
+ Y[block + 16 + 1],
+ Y[block + 48],
+ Y[block + 48 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ Y[block + 48],
+ Y[block + 48 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XY (Y[block + 18], /* W18 */
+ Y[block + 18 + 1],
+ Y[block + 50],
+ Y[block + 50 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ Y[block + 50],
+ Y[block + 50 + 1],
+ (double) -0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_XY (Y[block + 20], /* W20 */
+ Y[block + 20 + 1],
+ Y[block + 52],
+ Y[block + 52 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ Y[block + 52],
+ Y[block + 52 + 1],
+ (double) -0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[block + 22], /* W22 */
+ Y[block + 22 + 1],
+ Y[block + 54],
+ Y[block + 54 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ Y[block + 54],
+ Y[block + 54 + 1],
+ (double) -0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XX (Y[block + 24], /* W24 */
+ Y[block + 24 + 1],
+ Y[block + 56],
+ Y[block + 56 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ Y[block + 56],
+ Y[block + 56 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XY (Y[block + 26], /* W26 */
+ Y[block + 26 + 1],
+ Y[block + 58],
+ Y[block + 58 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ Y[block + 58],
+ Y[block + 58 + 1],
+ (double) -0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_XY (Y[block + 28], /* W28 */
+ Y[block + 28 + 1],
+ Y[block + 60],
+ Y[block + 60 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ Y[block + 60],
+ Y[block + 60 + 1],
+ (double) -0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[block + 30], /* W30 */
+ Y[block + 30 + 1],
+ Y[block + 62],
+ Y[block + 62 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ Y[block + 62],
+ Y[block + 62 + 1],
+ (double) -0.980785280403230, (double) -0.195090322016129);
+ }
+
+ /* perform 1 times fft64 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[64],
+ Y[64 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[64],
+ Y[64 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[66],
+ Y[66 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[66],
+ Y[66 + 1],
+ (double) +0.995184726672197, (double) -0.098017140329561);
+ BUTTERFLY_XY (Y[4], /* W2 */
+ Y[4 + 1],
+ Y[68],
+ Y[68 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[68],
+ Y[68 + 1],
+ (double) +0.980785280403230, (double) -0.195090322016128);
+ BUTTERFLY_XY (Y[6], /* W3 */
+ Y[6 + 1],
+ Y[70],
+ Y[70 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[70],
+ Y[70 + 1],
+ (double) +0.956940335732209, (double) -0.290284677254462);
+ BUTTERFLY_XY (Y[8], /* W4 */
+ Y[8 + 1],
+ Y[72],
+ Y[72 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[72],
+ Y[72 + 1],
+ (double) +0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[10], /* W5 */
+ Y[10 + 1],
+ Y[74],
+ Y[74 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[74],
+ Y[74 + 1],
+ (double) +0.881921264348355, (double) -0.471396736825998);
+ BUTTERFLY_XY (Y[12], /* W6 */
+ Y[12 + 1],
+ Y[76],
+ Y[76 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[76],
+ Y[76 + 1],
+ (double) +0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_XY (Y[14], /* W7 */
+ Y[14 + 1],
+ Y[78],
+ Y[78 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[78],
+ Y[78 + 1],
+ (double) +0.773010453362737, (double) -0.634393284163645);
+ BUTTERFLY_yY (Y[16], /* W8 */
+ Y[16 + 1],
+ Y[80],
+ Y[80 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[80],
+ Y[80 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_XY (Y[18], /* W9 */
+ Y[18 + 1],
+ Y[82],
+ Y[82 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[82],
+ Y[82 + 1],
+ (double) +0.634393284163645, (double) -0.773010453362737);
+ BUTTERFLY_XY (Y[20], /* W10 */
+ Y[20 + 1],
+ Y[84],
+ Y[84 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[84],
+ Y[84 + 1],
+ (double) +0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XY (Y[22], /* W11 */
+ Y[22 + 1],
+ Y[86],
+ Y[86 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[86],
+ Y[86 + 1],
+ (double) +0.471396736825998, (double) -0.881921264348355);
+ BUTTERFLY_XY (Y[24], /* W12 */
+ Y[24 + 1],
+ Y[88],
+ Y[88 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[88],
+ Y[88 + 1],
+ (double) +0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[26], /* W13 */
+ Y[26 + 1],
+ Y[90],
+ Y[90 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[90],
+ Y[90 + 1],
+ (double) +0.290284677254462, (double) -0.956940335732209);
+ BUTTERFLY_XY (Y[28], /* W14 */
+ Y[28 + 1],
+ Y[92],
+ Y[92 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[92],
+ Y[92 + 1],
+ (double) +0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_XY (Y[30], /* W15 */
+ Y[30 + 1],
+ Y[94],
+ Y[94 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[94],
+ Y[94 + 1],
+ (double) +0.098017140329561, (double) -0.995184726672197);
+ BUTTERFLY_0m (Y[32], /* W16 */
+ Y[32 + 1],
+ Y[96],
+ Y[96 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[96],
+ Y[96 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XY (Y[34], /* W17 */
+ Y[34 + 1],
+ Y[98],
+ Y[98 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[98],
+ Y[98 + 1],
+ (double) -0.098017140329561, (double) -0.995184726672197);
+ BUTTERFLY_XY (Y[36], /* W18 */
+ Y[36 + 1],
+ Y[100],
+ Y[100 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[100],
+ Y[100 + 1],
+ (double) -0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_XY (Y[38], /* W19 */
+ Y[38 + 1],
+ Y[102],
+ Y[102 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[102],
+ Y[102 + 1],
+ (double) -0.290284677254462, (double) -0.956940335732209);
+ BUTTERFLY_XY (Y[40], /* W20 */
+ Y[40 + 1],
+ Y[104],
+ Y[104 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[104],
+ Y[104 + 1],
+ (double) -0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[42], /* W21 */
+ Y[42 + 1],
+ Y[106],
+ Y[106 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[106],
+ Y[106 + 1],
+ (double) -0.471396736825998, (double) -0.881921264348355);
+ BUTTERFLY_XY (Y[44], /* W22 */
+ Y[44 + 1],
+ Y[108],
+ Y[108 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[108],
+ Y[108 + 1],
+ (double) -0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XY (Y[46], /* W23 */
+ Y[46 + 1],
+ Y[110],
+ Y[110 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[110],
+ Y[110 + 1],
+ (double) -0.634393284163645, (double) -0.773010453362737);
+ BUTTERFLY_XX (Y[48], /* W24 */
+ Y[48 + 1],
+ Y[112],
+ Y[112 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[112],
+ Y[112 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XY (Y[50], /* W25 */
+ Y[50 + 1],
+ Y[114],
+ Y[114 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[114],
+ Y[114 + 1],
+ (double) -0.773010453362737, (double) -0.634393284163645);
+ BUTTERFLY_XY (Y[52], /* W26 */
+ Y[52 + 1],
+ Y[116],
+ Y[116 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[116],
+ Y[116 + 1],
+ (double) -0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_XY (Y[54], /* W27 */
+ Y[54 + 1],
+ Y[118],
+ Y[118 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[118],
+ Y[118 + 1],
+ (double) -0.881921264348355, (double) -0.471396736825998);
+ BUTTERFLY_XY (Y[56], /* W28 */
+ Y[56 + 1],
+ Y[120],
+ Y[120 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[120],
+ Y[120 + 1],
+ (double) -0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[58], /* W29 */
+ Y[58 + 1],
+ Y[122],
+ Y[122 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[122],
+ Y[122 + 1],
+ (double) -0.956940335732209, (double) -0.290284677254462);
+ BUTTERFLY_XY (Y[60], /* W30 */
+ Y[60 + 1],
+ Y[124],
+ Y[124 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[124],
+ Y[124 + 1],
+ (double) -0.980785280403230, (double) -0.195090322016129);
+ BUTTERFLY_XY (Y[62], /* W31 */
+ Y[62 + 1],
+ Y[126],
+ Y[126 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[126],
+ Y[126 + 1],
+ (double) -0.995184726672197, (double) -0.098017140329561);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 64 F S S S S X)
+ **/
+static void
+gsl_power2_fft64synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform 32 times fft2 */
+ BUTTERFLY_10scale (X[0], X[0 + 1],
+ X[64], X[64 + 1],
+ Y[0], Y[0 + 1],
+ Y[2], Y[2 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[32], X[32 + 1],
+ X[96], X[96 + 1],
+ Y[4], Y[4 + 1],
+ Y[6], Y[6 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[16], X[16 + 1],
+ X[80], X[80 + 1],
+ Y[8], Y[8 + 1],
+ Y[10], Y[10 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[48], X[48 + 1],
+ X[112], X[112 + 1],
+ Y[12], Y[12 + 1],
+ Y[14], Y[14 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[8], X[8 + 1],
+ X[72], X[72 + 1],
+ Y[16], Y[16 + 1],
+ Y[18], Y[18 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[40], X[40 + 1],
+ X[104], X[104 + 1],
+ Y[20], Y[20 + 1],
+ Y[22], Y[22 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[24], X[24 + 1],
+ X[88], X[88 + 1],
+ Y[24], Y[24 + 1],
+ Y[26], Y[26 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[56], X[56 + 1],
+ X[120], X[120 + 1],
+ Y[28], Y[28 + 1],
+ Y[30], Y[30 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[4], X[4 + 1],
+ X[68], X[68 + 1],
+ Y[32], Y[32 + 1],
+ Y[34], Y[34 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[36], X[36 + 1],
+ X[100], X[100 + 1],
+ Y[36], Y[36 + 1],
+ Y[38], Y[38 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[20], X[20 + 1],
+ X[84], X[84 + 1],
+ Y[40], Y[40 + 1],
+ Y[42], Y[42 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[52], X[52 + 1],
+ X[116], X[116 + 1],
+ Y[44], Y[44 + 1],
+ Y[46], Y[46 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[12], X[12 + 1],
+ X[76], X[76 + 1],
+ Y[48], Y[48 + 1],
+ Y[50], Y[50 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[44], X[44 + 1],
+ X[108], X[108 + 1],
+ Y[52], Y[52 + 1],
+ Y[54], Y[54 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[28], X[28 + 1],
+ X[92], X[92 + 1],
+ Y[56], Y[56 + 1],
+ Y[58], Y[58 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[60], X[60 + 1],
+ X[124], X[124 + 1],
+ Y[60], Y[60 + 1],
+ Y[62], Y[62 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[2], X[2 + 1],
+ X[66], X[66 + 1],
+ Y[64], Y[64 + 1],
+ Y[66], Y[66 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[34], X[34 + 1],
+ X[98], X[98 + 1],
+ Y[68], Y[68 + 1],
+ Y[70], Y[70 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[18], X[18 + 1],
+ X[82], X[82 + 1],
+ Y[72], Y[72 + 1],
+ Y[74], Y[74 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[50], X[50 + 1],
+ X[114], X[114 + 1],
+ Y[76], Y[76 + 1],
+ Y[78], Y[78 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[10], X[10 + 1],
+ X[74], X[74 + 1],
+ Y[80], Y[80 + 1],
+ Y[82], Y[82 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[42], X[42 + 1],
+ X[106], X[106 + 1],
+ Y[84], Y[84 + 1],
+ Y[86], Y[86 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[26], X[26 + 1],
+ X[90], X[90 + 1],
+ Y[88], Y[88 + 1],
+ Y[90], Y[90 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[58], X[58 + 1],
+ X[122], X[122 + 1],
+ Y[92], Y[92 + 1],
+ Y[94], Y[94 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[6], X[6 + 1],
+ X[70], X[70 + 1],
+ Y[96], Y[96 + 1],
+ Y[98], Y[98 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[38], X[38 + 1],
+ X[102], X[102 + 1],
+ Y[100], Y[100 + 1],
+ Y[102], Y[102 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[22], X[22 + 1],
+ X[86], X[86 + 1],
+ Y[104], Y[104 + 1],
+ Y[106], Y[106 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[54], X[54 + 1],
+ X[118], X[118 + 1],
+ Y[108], Y[108 + 1],
+ Y[110], Y[110 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[14], X[14 + 1],
+ X[78], X[78 + 1],
+ Y[112], Y[112 + 1],
+ Y[114], Y[114 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[46], X[46 + 1],
+ X[110], X[110 + 1],
+ Y[116], Y[116 + 1],
+ Y[118], Y[118 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[30], X[30 + 1],
+ X[94], X[94 + 1],
+ Y[120], Y[120 + 1],
+ Y[122], Y[122 + 1],
+ 1.0 / (double) 64);
+ BUTTERFLY_10scale (X[62], X[62 + 1],
+ X[126], X[126 + 1],
+ Y[124], Y[124 + 1],
+ Y[126], Y[126 + 1],
+ 1.0 / (double) 64);
+
+ /* skipping 16 times fft4 */
+
+ /* skipping 8 times fft8 */
+
+ /* skipping 4 times fft16 */
+
+ /* skipping 2 times fft32 */
+
+ /* perform 1 times fft64 */
+ gsl_power2_fft64synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 128 S R R R R R F)
+ **/
+static void
+gsl_power2_fft128synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 64 times fft2 */
+
+ /* perform 32 times fft4 */
+ for (block = 0; block < 256; block += 8) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_0m (Y[block + 2], /* W32 */
+ Y[block + 2 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ }
+
+ /* perform 16 times fft8 */
+ for (block = 0; block < 256; block += 16) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_yY (Y[block + 2], /* W16 */
+ Y[block + 2 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_0m (Y[block + 4], /* W32 */
+ Y[block + 4 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XX (Y[block + 6], /* W48 */
+ Y[block + 6 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ }
+
+ /* perform 8 times fft16 */
+ for (block = 0; block < 256; block += 32) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[block + 2], /* W8 */
+ Y[block + 2 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ (double) +0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_yY (Y[block + 4], /* W16 */
+ Y[block + 4 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_XY (Y[block + 6], /* W24 */
+ Y[block + 6 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ (double) +0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_0m (Y[block + 8], /* W32 */
+ Y[block + 8 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XY (Y[block + 10], /* W40 */
+ Y[block + 10 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ (double) -0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XX (Y[block + 12], /* W48 */
+ Y[block + 12 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XY (Y[block + 14], /* W56 */
+ Y[block + 14 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ (double) -0.923879532511287, (double) -0.382683432365090);
+ }
+
+ /* perform 4 times fft32 */
+ for (block = 0; block < 256; block += 64) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 32],
+ Y[block + 32 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 32],
+ Y[block + 32 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[block + 2], /* W4 */
+ Y[block + 2 + 1],
+ Y[block + 34],
+ Y[block + 34 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 34],
+ Y[block + 34 + 1],
+ (double) +0.980785280403230, (double) -0.195090322016128);
+ BUTTERFLY_XY (Y[block + 4], /* W8 */
+ Y[block + 4 + 1],
+ Y[block + 36],
+ Y[block + 36 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 36],
+ Y[block + 36 + 1],
+ (double) +0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[block + 6], /* W12 */
+ Y[block + 6 + 1],
+ Y[block + 38],
+ Y[block + 38 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 38],
+ Y[block + 38 + 1],
+ (double) +0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_yY (Y[block + 8], /* W16 */
+ Y[block + 8 + 1],
+ Y[block + 40],
+ Y[block + 40 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 40],
+ Y[block + 40 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_XY (Y[block + 10], /* W20 */
+ Y[block + 10 + 1],
+ Y[block + 42],
+ Y[block + 42 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 42],
+ Y[block + 42 + 1],
+ (double) +0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XY (Y[block + 12], /* W24 */
+ Y[block + 12 + 1],
+ Y[block + 44],
+ Y[block + 44 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 44],
+ Y[block + 44 + 1],
+ (double) +0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[block + 14], /* W28 */
+ Y[block + 14 + 1],
+ Y[block + 46],
+ Y[block + 46 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 46],
+ Y[block + 46 + 1],
+ (double) +0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_0m (Y[block + 16], /* W32 */
+ Y[block + 16 + 1],
+ Y[block + 48],
+ Y[block + 48 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ Y[block + 48],
+ Y[block + 48 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XY (Y[block + 18], /* W36 */
+ Y[block + 18 + 1],
+ Y[block + 50],
+ Y[block + 50 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ Y[block + 50],
+ Y[block + 50 + 1],
+ (double) -0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_XY (Y[block + 20], /* W40 */
+ Y[block + 20 + 1],
+ Y[block + 52],
+ Y[block + 52 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ Y[block + 52],
+ Y[block + 52 + 1],
+ (double) -0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[block + 22], /* W44 */
+ Y[block + 22 + 1],
+ Y[block + 54],
+ Y[block + 54 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ Y[block + 54],
+ Y[block + 54 + 1],
+ (double) -0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XX (Y[block + 24], /* W48 */
+ Y[block + 24 + 1],
+ Y[block + 56],
+ Y[block + 56 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ Y[block + 56],
+ Y[block + 56 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XY (Y[block + 26], /* W52 */
+ Y[block + 26 + 1],
+ Y[block + 58],
+ Y[block + 58 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ Y[block + 58],
+ Y[block + 58 + 1],
+ (double) -0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_XY (Y[block + 28], /* W56 */
+ Y[block + 28 + 1],
+ Y[block + 60],
+ Y[block + 60 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ Y[block + 60],
+ Y[block + 60 + 1],
+ (double) -0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[block + 30], /* W60 */
+ Y[block + 30 + 1],
+ Y[block + 62],
+ Y[block + 62 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ Y[block + 62],
+ Y[block + 62 + 1],
+ (double) -0.980785280403230, (double) -0.195090322016129);
+ }
+
+ /* perform 2 times fft64 */
+ for (block = 0; block < 256; block += 128) {
+ BUTTERFLY_10 (Y[block + 0], /* W0 */
+ Y[block + 0 + 1],
+ Y[block + 64],
+ Y[block + 64 + 1],
+ Y[block + 0],
+ Y[block + 0 + 1],
+ Y[block + 64],
+ Y[block + 64 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[block + 2], /* W2 */
+ Y[block + 2 + 1],
+ Y[block + 66],
+ Y[block + 66 + 1],
+ Y[block + 2],
+ Y[block + 2 + 1],
+ Y[block + 66],
+ Y[block + 66 + 1],
+ (double) +0.995184726672197, (double) -0.098017140329561);
+ BUTTERFLY_XY (Y[block + 4], /* W4 */
+ Y[block + 4 + 1],
+ Y[block + 68],
+ Y[block + 68 + 1],
+ Y[block + 4],
+ Y[block + 4 + 1],
+ Y[block + 68],
+ Y[block + 68 + 1],
+ (double) +0.980785280403230, (double) -0.195090322016128);
+ BUTTERFLY_XY (Y[block + 6], /* W6 */
+ Y[block + 6 + 1],
+ Y[block + 70],
+ Y[block + 70 + 1],
+ Y[block + 6],
+ Y[block + 6 + 1],
+ Y[block + 70],
+ Y[block + 70 + 1],
+ (double) +0.956940335732209, (double) -0.290284677254462);
+ BUTTERFLY_XY (Y[block + 8], /* W8 */
+ Y[block + 8 + 1],
+ Y[block + 72],
+ Y[block + 72 + 1],
+ Y[block + 8],
+ Y[block + 8 + 1],
+ Y[block + 72],
+ Y[block + 72 + 1],
+ (double) +0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[block + 10], /* W10 */
+ Y[block + 10 + 1],
+ Y[block + 74],
+ Y[block + 74 + 1],
+ Y[block + 10],
+ Y[block + 10 + 1],
+ Y[block + 74],
+ Y[block + 74 + 1],
+ (double) +0.881921264348355, (double) -0.471396736825998);
+ BUTTERFLY_XY (Y[block + 12], /* W12 */
+ Y[block + 12 + 1],
+ Y[block + 76],
+ Y[block + 76 + 1],
+ Y[block + 12],
+ Y[block + 12 + 1],
+ Y[block + 76],
+ Y[block + 76 + 1],
+ (double) +0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_XY (Y[block + 14], /* W14 */
+ Y[block + 14 + 1],
+ Y[block + 78],
+ Y[block + 78 + 1],
+ Y[block + 14],
+ Y[block + 14 + 1],
+ Y[block + 78],
+ Y[block + 78 + 1],
+ (double) +0.773010453362737, (double) -0.634393284163645);
+ BUTTERFLY_yY (Y[block + 16], /* W16 */
+ Y[block + 16 + 1],
+ Y[block + 80],
+ Y[block + 80 + 1],
+ Y[block + 16],
+ Y[block + 16 + 1],
+ Y[block + 80],
+ Y[block + 80 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_XY (Y[block + 18], /* W18 */
+ Y[block + 18 + 1],
+ Y[block + 82],
+ Y[block + 82 + 1],
+ Y[block + 18],
+ Y[block + 18 + 1],
+ Y[block + 82],
+ Y[block + 82 + 1],
+ (double) +0.634393284163645, (double) -0.773010453362737);
+ BUTTERFLY_XY (Y[block + 20], /* W20 */
+ Y[block + 20 + 1],
+ Y[block + 84],
+ Y[block + 84 + 1],
+ Y[block + 20],
+ Y[block + 20 + 1],
+ Y[block + 84],
+ Y[block + 84 + 1],
+ (double) +0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XY (Y[block + 22], /* W22 */
+ Y[block + 22 + 1],
+ Y[block + 86],
+ Y[block + 86 + 1],
+ Y[block + 22],
+ Y[block + 22 + 1],
+ Y[block + 86],
+ Y[block + 86 + 1],
+ (double) +0.471396736825998, (double) -0.881921264348355);
+ BUTTERFLY_XY (Y[block + 24], /* W24 */
+ Y[block + 24 + 1],
+ Y[block + 88],
+ Y[block + 88 + 1],
+ Y[block + 24],
+ Y[block + 24 + 1],
+ Y[block + 88],
+ Y[block + 88 + 1],
+ (double) +0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[block + 26], /* W26 */
+ Y[block + 26 + 1],
+ Y[block + 90],
+ Y[block + 90 + 1],
+ Y[block + 26],
+ Y[block + 26 + 1],
+ Y[block + 90],
+ Y[block + 90 + 1],
+ (double) +0.290284677254462, (double) -0.956940335732209);
+ BUTTERFLY_XY (Y[block + 28], /* W28 */
+ Y[block + 28 + 1],
+ Y[block + 92],
+ Y[block + 92 + 1],
+ Y[block + 28],
+ Y[block + 28 + 1],
+ Y[block + 92],
+ Y[block + 92 + 1],
+ (double) +0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_XY (Y[block + 30], /* W30 */
+ Y[block + 30 + 1],
+ Y[block + 94],
+ Y[block + 94 + 1],
+ Y[block + 30],
+ Y[block + 30 + 1],
+ Y[block + 94],
+ Y[block + 94 + 1],
+ (double) +0.098017140329561, (double) -0.995184726672197);
+ BUTTERFLY_0m (Y[block + 32], /* W32 */
+ Y[block + 32 + 1],
+ Y[block + 96],
+ Y[block + 96 + 1],
+ Y[block + 32],
+ Y[block + 32 + 1],
+ Y[block + 96],
+ Y[block + 96 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XY (Y[block + 34], /* W34 */
+ Y[block + 34 + 1],
+ Y[block + 98],
+ Y[block + 98 + 1],
+ Y[block + 34],
+ Y[block + 34 + 1],
+ Y[block + 98],
+ Y[block + 98 + 1],
+ (double) -0.098017140329561, (double) -0.995184726672197);
+ BUTTERFLY_XY (Y[block + 36], /* W36 */
+ Y[block + 36 + 1],
+ Y[block + 100],
+ Y[block + 100 + 1],
+ Y[block + 36],
+ Y[block + 36 + 1],
+ Y[block + 100],
+ Y[block + 100 + 1],
+ (double) -0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_XY (Y[block + 38], /* W38 */
+ Y[block + 38 + 1],
+ Y[block + 102],
+ Y[block + 102 + 1],
+ Y[block + 38],
+ Y[block + 38 + 1],
+ Y[block + 102],
+ Y[block + 102 + 1],
+ (double) -0.290284677254462, (double) -0.956940335732209);
+ BUTTERFLY_XY (Y[block + 40], /* W40 */
+ Y[block + 40 + 1],
+ Y[block + 104],
+ Y[block + 104 + 1],
+ Y[block + 40],
+ Y[block + 40 + 1],
+ Y[block + 104],
+ Y[block + 104 + 1],
+ (double) -0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[block + 42], /* W42 */
+ Y[block + 42 + 1],
+ Y[block + 106],
+ Y[block + 106 + 1],
+ Y[block + 42],
+ Y[block + 42 + 1],
+ Y[block + 106],
+ Y[block + 106 + 1],
+ (double) -0.471396736825998, (double) -0.881921264348355);
+ BUTTERFLY_XY (Y[block + 44], /* W44 */
+ Y[block + 44 + 1],
+ Y[block + 108],
+ Y[block + 108 + 1],
+ Y[block + 44],
+ Y[block + 44 + 1],
+ Y[block + 108],
+ Y[block + 108 + 1],
+ (double) -0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XY (Y[block + 46], /* W46 */
+ Y[block + 46 + 1],
+ Y[block + 110],
+ Y[block + 110 + 1],
+ Y[block + 46],
+ Y[block + 46 + 1],
+ Y[block + 110],
+ Y[block + 110 + 1],
+ (double) -0.634393284163645, (double) -0.773010453362737);
+ BUTTERFLY_XX (Y[block + 48], /* W48 */
+ Y[block + 48 + 1],
+ Y[block + 112],
+ Y[block + 112 + 1],
+ Y[block + 48],
+ Y[block + 48 + 1],
+ Y[block + 112],
+ Y[block + 112 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XY (Y[block + 50], /* W50 */
+ Y[block + 50 + 1],
+ Y[block + 114],
+ Y[block + 114 + 1],
+ Y[block + 50],
+ Y[block + 50 + 1],
+ Y[block + 114],
+ Y[block + 114 + 1],
+ (double) -0.773010453362737, (double) -0.634393284163645);
+ BUTTERFLY_XY (Y[block + 52], /* W52 */
+ Y[block + 52 + 1],
+ Y[block + 116],
+ Y[block + 116 + 1],
+ Y[block + 52],
+ Y[block + 52 + 1],
+ Y[block + 116],
+ Y[block + 116 + 1],
+ (double) -0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_XY (Y[block + 54], /* W54 */
+ Y[block + 54 + 1],
+ Y[block + 118],
+ Y[block + 118 + 1],
+ Y[block + 54],
+ Y[block + 54 + 1],
+ Y[block + 118],
+ Y[block + 118 + 1],
+ (double) -0.881921264348355, (double) -0.471396736825998);
+ BUTTERFLY_XY (Y[block + 56], /* W56 */
+ Y[block + 56 + 1],
+ Y[block + 120],
+ Y[block + 120 + 1],
+ Y[block + 56],
+ Y[block + 56 + 1],
+ Y[block + 120],
+ Y[block + 120 + 1],
+ (double) -0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[block + 58], /* W58 */
+ Y[block + 58 + 1],
+ Y[block + 122],
+ Y[block + 122 + 1],
+ Y[block + 58],
+ Y[block + 58 + 1],
+ Y[block + 122],
+ Y[block + 122 + 1],
+ (double) -0.956940335732209, (double) -0.290284677254462);
+ BUTTERFLY_XY (Y[block + 60], /* W60 */
+ Y[block + 60 + 1],
+ Y[block + 124],
+ Y[block + 124 + 1],
+ Y[block + 60],
+ Y[block + 60 + 1],
+ Y[block + 124],
+ Y[block + 124 + 1],
+ (double) -0.980785280403230, (double) -0.195090322016129);
+ BUTTERFLY_XY (Y[block + 62], /* W62 */
+ Y[block + 62 + 1],
+ Y[block + 126],
+ Y[block + 126 + 1],
+ Y[block + 62],
+ Y[block + 62 + 1],
+ Y[block + 126],
+ Y[block + 126 + 1],
+ (double) -0.995184726672197, (double) -0.098017140329561);
+ }
+
+ /* perform 1 times fft128 */
+ BUTTERFLY_10 (Y[0], /* W0 */
+ Y[0 + 1],
+ Y[128],
+ Y[128 + 1],
+ Y[0],
+ Y[0 + 1],
+ Y[128],
+ Y[128 + 1],
+ (double) +1.000000000000000, (double) +0.000000000000000);
+ BUTTERFLY_XY (Y[2], /* W1 */
+ Y[2 + 1],
+ Y[130],
+ Y[130 + 1],
+ Y[2],
+ Y[2 + 1],
+ Y[130],
+ Y[130 + 1],
+ (double) +0.998795456205172, (double) -0.049067674327418);
+ BUTTERFLY_XY (Y[4], /* W2 */
+ Y[4 + 1],
+ Y[132],
+ Y[132 + 1],
+ Y[4],
+ Y[4 + 1],
+ Y[132],
+ Y[132 + 1],
+ (double) +0.995184726672197, (double) -0.098017140329561);
+ BUTTERFLY_XY (Y[6], /* W3 */
+ Y[6 + 1],
+ Y[134],
+ Y[134 + 1],
+ Y[6],
+ Y[6 + 1],
+ Y[134],
+ Y[134 + 1],
+ (double) +0.989176509964781, (double) -0.146730474455362);
+ BUTTERFLY_XY (Y[8], /* W4 */
+ Y[8 + 1],
+ Y[136],
+ Y[136 + 1],
+ Y[8],
+ Y[8 + 1],
+ Y[136],
+ Y[136 + 1],
+ (double) +0.980785280403230, (double) -0.195090322016128);
+ BUTTERFLY_XY (Y[10], /* W5 */
+ Y[10 + 1],
+ Y[138],
+ Y[138 + 1],
+ Y[10],
+ Y[10 + 1],
+ Y[138],
+ Y[138 + 1],
+ (double) +0.970031253194544, (double) -0.242980179903264);
+ BUTTERFLY_XY (Y[12], /* W6 */
+ Y[12 + 1],
+ Y[140],
+ Y[140 + 1],
+ Y[12],
+ Y[12 + 1],
+ Y[140],
+ Y[140 + 1],
+ (double) +0.956940335732209, (double) -0.290284677254462);
+ BUTTERFLY_XY (Y[14], /* W7 */
+ Y[14 + 1],
+ Y[142],
+ Y[142 + 1],
+ Y[14],
+ Y[14 + 1],
+ Y[142],
+ Y[142 + 1],
+ (double) +0.941544065183021, (double) -0.336889853392220);
+ BUTTERFLY_XY (Y[16], /* W8 */
+ Y[16 + 1],
+ Y[144],
+ Y[144 + 1],
+ Y[16],
+ Y[16 + 1],
+ Y[144],
+ Y[144 + 1],
+ (double) +0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[18], /* W9 */
+ Y[18 + 1],
+ Y[146],
+ Y[146 + 1],
+ Y[18],
+ Y[18 + 1],
+ Y[146],
+ Y[146 + 1],
+ (double) +0.903989293123443, (double) -0.427555093430282);
+ BUTTERFLY_XY (Y[20], /* W10 */
+ Y[20 + 1],
+ Y[148],
+ Y[148 + 1],
+ Y[20],
+ Y[20 + 1],
+ Y[148],
+ Y[148 + 1],
+ (double) +0.881921264348355, (double) -0.471396736825998);
+ BUTTERFLY_XY (Y[22], /* W11 */
+ Y[22 + 1],
+ Y[150],
+ Y[150 + 1],
+ Y[22],
+ Y[22 + 1],
+ Y[150],
+ Y[150 + 1],
+ (double) +0.857728610000272, (double) -0.514102744193222);
+ BUTTERFLY_XY (Y[24], /* W12 */
+ Y[24 + 1],
+ Y[152],
+ Y[152 + 1],
+ Y[24],
+ Y[24 + 1],
+ Y[152],
+ Y[152 + 1],
+ (double) +0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_XY (Y[26], /* W13 */
+ Y[26 + 1],
+ Y[154],
+ Y[154 + 1],
+ Y[26],
+ Y[26 + 1],
+ Y[154],
+ Y[154 + 1],
+ (double) +0.803207531480645, (double) -0.595699304492433);
+ BUTTERFLY_XY (Y[28], /* W14 */
+ Y[28 + 1],
+ Y[156],
+ Y[156 + 1],
+ Y[28],
+ Y[28 + 1],
+ Y[156],
+ Y[156 + 1],
+ (double) +0.773010453362737, (double) -0.634393284163645);
+ BUTTERFLY_XY (Y[30], /* W15 */
+ Y[30 + 1],
+ Y[158],
+ Y[158 + 1],
+ Y[30],
+ Y[30 + 1],
+ Y[158],
+ Y[158 + 1],
+ (double) +0.740951125354959, (double) -0.671558954847018);
+ BUTTERFLY_yY (Y[32], /* W16 */
+ Y[32 + 1],
+ Y[160],
+ Y[160 + 1],
+ Y[32],
+ Y[32 + 1],
+ Y[160],
+ Y[160 + 1],
+ (double) +0.707106781186548, (double) -0.707106781186547);
+ BUTTERFLY_XY (Y[34], /* W17 */
+ Y[34 + 1],
+ Y[162],
+ Y[162 + 1],
+ Y[34],
+ Y[34 + 1],
+ Y[162],
+ Y[162 + 1],
+ (double) +0.671558954847018, (double) -0.740951125354959);
+ BUTTERFLY_XY (Y[36], /* W18 */
+ Y[36 + 1],
+ Y[164],
+ Y[164 + 1],
+ Y[36],
+ Y[36 + 1],
+ Y[164],
+ Y[164 + 1],
+ (double) +0.634393284163645, (double) -0.773010453362737);
+ BUTTERFLY_XY (Y[38], /* W19 */
+ Y[38 + 1],
+ Y[166],
+ Y[166 + 1],
+ Y[38],
+ Y[38 + 1],
+ Y[166],
+ Y[166 + 1],
+ (double) +0.595699304492433, (double) -0.803207531480645);
+ BUTTERFLY_XY (Y[40], /* W20 */
+ Y[40 + 1],
+ Y[168],
+ Y[168 + 1],
+ Y[40],
+ Y[40 + 1],
+ Y[168],
+ Y[168 + 1],
+ (double) +0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XY (Y[42], /* W21 */
+ Y[42 + 1],
+ Y[170],
+ Y[170 + 1],
+ Y[42],
+ Y[42 + 1],
+ Y[170],
+ Y[170 + 1],
+ (double) +0.514102744193222, (double) -0.857728610000272);
+ BUTTERFLY_XY (Y[44], /* W22 */
+ Y[44 + 1],
+ Y[172],
+ Y[172 + 1],
+ Y[44],
+ Y[44 + 1],
+ Y[172],
+ Y[172 + 1],
+ (double) +0.471396736825998, (double) -0.881921264348355);
+ BUTTERFLY_XY (Y[46], /* W23 */
+ Y[46 + 1],
+ Y[174],
+ Y[174 + 1],
+ Y[46],
+ Y[46 + 1],
+ Y[174],
+ Y[174 + 1],
+ (double) +0.427555093430282, (double) -0.903989293123443);
+ BUTTERFLY_XY (Y[48], /* W24 */
+ Y[48 + 1],
+ Y[176],
+ Y[176 + 1],
+ Y[48],
+ Y[48 + 1],
+ Y[176],
+ Y[176 + 1],
+ (double) +0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[50], /* W25 */
+ Y[50 + 1],
+ Y[178],
+ Y[178 + 1],
+ Y[50],
+ Y[50 + 1],
+ Y[178],
+ Y[178 + 1],
+ (double) +0.336889853392220, (double) -0.941544065183021);
+ BUTTERFLY_XY (Y[52], /* W26 */
+ Y[52 + 1],
+ Y[180],
+ Y[180 + 1],
+ Y[52],
+ Y[52 + 1],
+ Y[180],
+ Y[180 + 1],
+ (double) +0.290284677254462, (double) -0.956940335732209);
+ BUTTERFLY_XY (Y[54], /* W27 */
+ Y[54 + 1],
+ Y[182],
+ Y[182 + 1],
+ Y[54],
+ Y[54 + 1],
+ Y[182],
+ Y[182 + 1],
+ (double) +0.242980179903264, (double) -0.970031253194544);
+ BUTTERFLY_XY (Y[56], /* W28 */
+ Y[56 + 1],
+ Y[184],
+ Y[184 + 1],
+ Y[56],
+ Y[56 + 1],
+ Y[184],
+ Y[184 + 1],
+ (double) +0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_XY (Y[58], /* W29 */
+ Y[58 + 1],
+ Y[186],
+ Y[186 + 1],
+ Y[58],
+ Y[58 + 1],
+ Y[186],
+ Y[186 + 1],
+ (double) +0.146730474455362, (double) -0.989176509964781);
+ BUTTERFLY_XY (Y[60], /* W30 */
+ Y[60 + 1],
+ Y[188],
+ Y[188 + 1],
+ Y[60],
+ Y[60 + 1],
+ Y[188],
+ Y[188 + 1],
+ (double) +0.098017140329561, (double) -0.995184726672197);
+ BUTTERFLY_XY (Y[62], /* W31 */
+ Y[62 + 1],
+ Y[190],
+ Y[190 + 1],
+ Y[62],
+ Y[62 + 1],
+ Y[190],
+ Y[190 + 1],
+ (double) +0.049067674327418, (double) -0.998795456205172);
+ BUTTERFLY_0m (Y[64], /* W32 */
+ Y[64 + 1],
+ Y[192],
+ Y[192 + 1],
+ Y[64],
+ Y[64 + 1],
+ Y[192],
+ Y[192 + 1],
+ (double) +0.000000000000000, (double) -1.000000000000000);
+ BUTTERFLY_XY (Y[66], /* W33 */
+ Y[66 + 1],
+ Y[194],
+ Y[194 + 1],
+ Y[66],
+ Y[66 + 1],
+ Y[194],
+ Y[194 + 1],
+ (double) -0.049067674327418, (double) -0.998795456205172);
+ BUTTERFLY_XY (Y[68], /* W34 */
+ Y[68 + 1],
+ Y[196],
+ Y[196 + 1],
+ Y[68],
+ Y[68 + 1],
+ Y[196],
+ Y[196 + 1],
+ (double) -0.098017140329561, (double) -0.995184726672197);
+ BUTTERFLY_XY (Y[70], /* W35 */
+ Y[70 + 1],
+ Y[198],
+ Y[198 + 1],
+ Y[70],
+ Y[70 + 1],
+ Y[198],
+ Y[198 + 1],
+ (double) -0.146730474455362, (double) -0.989176509964781);
+ BUTTERFLY_XY (Y[72], /* W36 */
+ Y[72 + 1],
+ Y[200],
+ Y[200 + 1],
+ Y[72],
+ Y[72 + 1],
+ Y[200],
+ Y[200 + 1],
+ (double) -0.195090322016128, (double) -0.980785280403230);
+ BUTTERFLY_XY (Y[74], /* W37 */
+ Y[74 + 1],
+ Y[202],
+ Y[202 + 1],
+ Y[74],
+ Y[74 + 1],
+ Y[202],
+ Y[202 + 1],
+ (double) -0.242980179903264, (double) -0.970031253194544);
+ BUTTERFLY_XY (Y[76], /* W38 */
+ Y[76 + 1],
+ Y[204],
+ Y[204 + 1],
+ Y[76],
+ Y[76 + 1],
+ Y[204],
+ Y[204 + 1],
+ (double) -0.290284677254462, (double) -0.956940335732209);
+ BUTTERFLY_XY (Y[78], /* W39 */
+ Y[78 + 1],
+ Y[206],
+ Y[206 + 1],
+ Y[78],
+ Y[78 + 1],
+ Y[206],
+ Y[206 + 1],
+ (double) -0.336889853392220, (double) -0.941544065183021);
+ BUTTERFLY_XY (Y[80], /* W40 */
+ Y[80 + 1],
+ Y[208],
+ Y[208 + 1],
+ Y[80],
+ Y[80 + 1],
+ Y[208],
+ Y[208 + 1],
+ (double) -0.382683432365090, (double) -0.923879532511287);
+ BUTTERFLY_XY (Y[82], /* W41 */
+ Y[82 + 1],
+ Y[210],
+ Y[210 + 1],
+ Y[82],
+ Y[82 + 1],
+ Y[210],
+ Y[210 + 1],
+ (double) -0.427555093430282, (double) -0.903989293123443);
+ BUTTERFLY_XY (Y[84], /* W42 */
+ Y[84 + 1],
+ Y[212],
+ Y[212 + 1],
+ Y[84],
+ Y[84 + 1],
+ Y[212],
+ Y[212 + 1],
+ (double) -0.471396736825998, (double) -0.881921264348355);
+ BUTTERFLY_XY (Y[86], /* W43 */
+ Y[86 + 1],
+ Y[214],
+ Y[214 + 1],
+ Y[86],
+ Y[86 + 1],
+ Y[214],
+ Y[214 + 1],
+ (double) -0.514102744193222, (double) -0.857728610000272);
+ BUTTERFLY_XY (Y[88], /* W44 */
+ Y[88 + 1],
+ Y[216],
+ Y[216 + 1],
+ Y[88],
+ Y[88 + 1],
+ Y[216],
+ Y[216 + 1],
+ (double) -0.555570233019602, (double) -0.831469612302545);
+ BUTTERFLY_XY (Y[90], /* W45 */
+ Y[90 + 1],
+ Y[218],
+ Y[218 + 1],
+ Y[90],
+ Y[90 + 1],
+ Y[218],
+ Y[218 + 1],
+ (double) -0.595699304492433, (double) -0.803207531480645);
+ BUTTERFLY_XY (Y[92], /* W46 */
+ Y[92 + 1],
+ Y[220],
+ Y[220 + 1],
+ Y[92],
+ Y[92 + 1],
+ Y[220],
+ Y[220 + 1],
+ (double) -0.634393284163645, (double) -0.773010453362737);
+ BUTTERFLY_XY (Y[94], /* W47 */
+ Y[94 + 1],
+ Y[222],
+ Y[222 + 1],
+ Y[94],
+ Y[94 + 1],
+ Y[222],
+ Y[222 + 1],
+ (double) -0.671558954847018, (double) -0.740951125354959);
+ BUTTERFLY_XX (Y[96], /* W48 */
+ Y[96 + 1],
+ Y[224],
+ Y[224 + 1],
+ Y[96],
+ Y[96 + 1],
+ Y[224],
+ Y[224 + 1],
+ (double) -0.707106781186547, (double) -0.707106781186548);
+ BUTTERFLY_XY (Y[98], /* W49 */
+ Y[98 + 1],
+ Y[226],
+ Y[226 + 1],
+ Y[98],
+ Y[98 + 1],
+ Y[226],
+ Y[226 + 1],
+ (double) -0.740951125354959, (double) -0.671558954847019);
+ BUTTERFLY_XY (Y[100], /* W50 */
+ Y[100 + 1],
+ Y[228],
+ Y[228 + 1],
+ Y[100],
+ Y[100 + 1],
+ Y[228],
+ Y[228 + 1],
+ (double) -0.773010453362737, (double) -0.634393284163645);
+ BUTTERFLY_XY (Y[102], /* W51 */
+ Y[102 + 1],
+ Y[230],
+ Y[230 + 1],
+ Y[102],
+ Y[102 + 1],
+ Y[230],
+ Y[230 + 1],
+ (double) -0.803207531480645, (double) -0.595699304492433);
+ BUTTERFLY_XY (Y[104], /* W52 */
+ Y[104 + 1],
+ Y[232],
+ Y[232 + 1],
+ Y[104],
+ Y[104 + 1],
+ Y[232],
+ Y[232 + 1],
+ (double) -0.831469612302545, (double) -0.555570233019602);
+ BUTTERFLY_XY (Y[106], /* W53 */
+ Y[106 + 1],
+ Y[234],
+ Y[234 + 1],
+ Y[106],
+ Y[106 + 1],
+ Y[234],
+ Y[234 + 1],
+ (double) -0.857728610000272, (double) -0.514102744193222);
+ BUTTERFLY_XY (Y[108], /* W54 */
+ Y[108 + 1],
+ Y[236],
+ Y[236 + 1],
+ Y[108],
+ Y[108 + 1],
+ Y[236],
+ Y[236 + 1],
+ (double) -0.881921264348355, (double) -0.471396736825998);
+ BUTTERFLY_XY (Y[110], /* W55 */
+ Y[110 + 1],
+ Y[238],
+ Y[238 + 1],
+ Y[110],
+ Y[110 + 1],
+ Y[238],
+ Y[238 + 1],
+ (double) -0.903989293123443, (double) -0.427555093430282);
+ BUTTERFLY_XY (Y[112], /* W56 */
+ Y[112 + 1],
+ Y[240],
+ Y[240 + 1],
+ Y[112],
+ Y[112 + 1],
+ Y[240],
+ Y[240 + 1],
+ (double) -0.923879532511287, (double) -0.382683432365090);
+ BUTTERFLY_XY (Y[114], /* W57 */
+ Y[114 + 1],
+ Y[242],
+ Y[242 + 1],
+ Y[114],
+ Y[114 + 1],
+ Y[242],
+ Y[242 + 1],
+ (double) -0.941544065183021, (double) -0.336889853392220);
+ BUTTERFLY_XY (Y[116], /* W58 */
+ Y[116 + 1],
+ Y[244],
+ Y[244 + 1],
+ Y[116],
+ Y[116 + 1],
+ Y[244],
+ Y[244 + 1],
+ (double) -0.956940335732209, (double) -0.290284677254462);
+ BUTTERFLY_XY (Y[118], /* W59 */
+ Y[118 + 1],
+ Y[246],
+ Y[246 + 1],
+ Y[118],
+ Y[118 + 1],
+ Y[246],
+ Y[246 + 1],
+ (double) -0.970031253194544, (double) -0.242980179903264);
+ BUTTERFLY_XY (Y[120], /* W60 */
+ Y[120 + 1],
+ Y[248],
+ Y[248 + 1],
+ Y[120],
+ Y[120 + 1],
+ Y[248],
+ Y[248 + 1],
+ (double) -0.980785280403230, (double) -0.195090322016129);
+ BUTTERFLY_XY (Y[122], /* W61 */
+ Y[122 + 1],
+ Y[250],
+ Y[250 + 1],
+ Y[122],
+ Y[122 + 1],
+ Y[250],
+ Y[250 + 1],
+ (double) -0.989176509964781, (double) -0.146730474455362);
+ BUTTERFLY_XY (Y[124], /* W62 */
+ Y[124 + 1],
+ Y[252],
+ Y[252 + 1],
+ Y[124],
+ Y[124 + 1],
+ Y[252],
+ Y[252 + 1],
+ (double) -0.995184726672197, (double) -0.098017140329561);
+ BUTTERFLY_XY (Y[126], /* W63 */
+ Y[126 + 1],
+ Y[254],
+ Y[254 + 1],
+ Y[126],
+ Y[126 + 1],
+ Y[254],
+ Y[254 + 1],
+ (double) -0.998795456205172, (double) -0.049067674327418);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 128 L S S S S S X)
+ **/
+static void
+gsl_power2_fft128synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2synthesis (128, X, Y);
+
+ /* skipping 32 times fft4 */
+
+ /* skipping 16 times fft8 */
+
+ /* skipping 8 times fft16 */
+
+ /* skipping 4 times fft32 */
+
+ /* skipping 2 times fft64 */
+
+ /* perform 1 times fft128 */
+ gsl_power2_fft128synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 256 S S S S S S X T)
+ **/
+static void
+gsl_power2_fft256synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 128 times fft2 */
+
+ /* skipping 64 times fft4 */
+
+ /* skipping 32 times fft8 */
+
+ /* skipping 16 times fft16 */
+
+ /* skipping 8 times fft32 */
+
+ /* skipping 4 times fft64 */
+
+ /* perform 2 times fft128 */
+ gsl_power2_fft128synthesis_skip2 (X, Y);
+ gsl_power2_fft128synthesis_skip2 (X + 256, Y + 256);
+
+ /* perform 1 times fft256 */
+ {
+ static const double Wconst256[] = {
+ +0.999698818696204, -0.024541228522912,
+ +0.998795456205172, -0.049067674327418,
+ +0.997290456678690, -0.073564563599667,
+ +0.995184726672197, -0.098017140329561,
+ +0.992479534598710, -0.122410675199216,
+ +0.989176509964781, -0.146730474455362,
+ +0.985277642388941, -0.170961888760301,
+ +0.980785280403230, -0.195090322016128,
+ +0.975702130038529, -0.219101240156870,
+ +0.970031253194544, -0.242980179903264,
+ +0.963776065795440, -0.266712757474898,
+ +0.956940335732209, -0.290284677254462,
+ +0.949528180593037, -0.313681740398892,
+ +0.941544065183021, -0.336889853392220,
+ +0.932992798834739, -0.359895036534988,
+ +0.923879532511287, -0.382683432365090,
+ +0.914209755703531, -0.405241314004990,
+ +0.903989293123443, -0.427555093430282,
+ +0.893224301195515, -0.449611329654607,
+ +0.881921264348355, -0.471396736825998,
+ +0.870086991108711, -0.492898192229784,
+ +0.857728610000272, -0.514102744193222,
+ +0.844853565249707, -0.534997619887097,
+ +0.831469612302545, -0.555570233019602,
+ +0.817584813151584, -0.575808191417845,
+ +0.803207531480645, -0.595699304492433,
+ +0.788346427626606, -0.615231590580627,
+ +0.773010453362737, -0.634393284163645,
+ +0.757208846506485, -0.653172842953777,
+ +0.740951125354959, -0.671558954847018,
+ +0.724247082951467, -0.689540544737067,
+ +0.707106781186548, -0.707106781186547,
+ +0.689540544737067, -0.724247082951467,
+ +0.671558954847018, -0.740951125354959,
+ +0.653172842953777, -0.757208846506484,
+ +0.634393284163645, -0.773010453362737,
+ +0.615231590580627, -0.788346427626606,
+ +0.595699304492433, -0.803207531480645,
+ +0.575808191417845, -0.817584813151584,
+ +0.555570233019602, -0.831469612302545,
+ +0.534997619887097, -0.844853565249707,
+ +0.514102744193222, -0.857728610000272,
+ +0.492898192229784, -0.870086991108711,
+ +0.471396736825998, -0.881921264348355,
+ +0.449611329654607, -0.893224301195515,
+ +0.427555093430282, -0.903989293123443,
+ +0.405241314004990, -0.914209755703531,
+ +0.382683432365090, -0.923879532511287,
+ +0.359895036534988, -0.932992798834739,
+ +0.336889853392220, -0.941544065183021,
+ +0.313681740398892, -0.949528180593037,
+ +0.290284677254462, -0.956940335732209,
+ +0.266712757474898, -0.963776065795440,
+ +0.242980179903264, -0.970031253194544,
+ +0.219101240156870, -0.975702130038529,
+ +0.195090322016128, -0.980785280403230,
+ +0.170961888760301, -0.985277642388941,
+ +0.146730474455362, -0.989176509964781,
+ +0.122410675199216, -0.992479534598710,
+ +0.098017140329561, -0.995184726672197,
+ +0.073564563599667, -0.997290456678690,
+ +0.049067674327418, -0.998795456205172,
+ +0.024541228522912, -0.999698818696204,
+ };
+ const double *W = Wconst256 - 2;
+ double *Z = Y + 128;
+ for (offset = 0; offset < 512; offset += 512) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ __1, __0);
+ BUTTERFLY_0m (Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ __0, __1);
+ }
+ for (butterfly = 2; butterfly < 128; butterfly += 2) {
+ Wre = W[butterfly]; Wim = W[butterfly + 1];
+ for (block = 0; block < 512; block += 512) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Wre, Wim);
+ BUTTERFLY_yX (Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Wre, Wim);
+ }
+ }
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 256 L S S S S S S X)
+ **/
+static void
+gsl_power2_fft256synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2synthesis (256, X, Y);
+
+ /* skipping 64 times fft4 */
+
+ /* skipping 32 times fft8 */
+
+ /* skipping 16 times fft16 */
+
+ /* skipping 8 times fft32 */
+
+ /* skipping 4 times fft64 */
+
+ /* skipping 2 times fft128 */
+
+ /* perform 1 times fft256 */
+ gsl_power2_fft256synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 512 S S S S S S X T T)
+ **/
+static void
+gsl_power2_fft512synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 256 times fft2 */
+
+ /* skipping 128 times fft4 */
+
+ /* skipping 64 times fft8 */
+
+ /* skipping 32 times fft16 */
+
+ /* skipping 16 times fft32 */
+
+ /* skipping 8 times fft64 */
+
+ /* perform 4 times fft128 */
+ gsl_power2_fft128synthesis_skip2 (X, Y);
+ gsl_power2_fft128synthesis_skip2 (X + 256, Y + 256);
+ gsl_power2_fft128synthesis_skip2 (X + 512, Y + 512);
+ gsl_power2_fft128synthesis_skip2 (X + 768, Y + 768);
+
+ /* perform 2 times fft256 */
+ {
+ static const double Wconst256[] = {
+ +0.999698818696204, -0.024541228522912,
+ +0.998795456205172, -0.049067674327418,
+ +0.997290456678690, -0.073564563599667,
+ +0.995184726672197, -0.098017140329561,
+ +0.992479534598710, -0.122410675199216,
+ +0.989176509964781, -0.146730474455362,
+ +0.985277642388941, -0.170961888760301,
+ +0.980785280403230, -0.195090322016128,
+ +0.975702130038529, -0.219101240156870,
+ +0.970031253194544, -0.242980179903264,
+ +0.963776065795440, -0.266712757474898,
+ +0.956940335732209, -0.290284677254462,
+ +0.949528180593037, -0.313681740398892,
+ +0.941544065183021, -0.336889853392220,
+ +0.932992798834739, -0.359895036534988,
+ +0.923879532511287, -0.382683432365090,
+ +0.914209755703531, -0.405241314004990,
+ +0.903989293123443, -0.427555093430282,
+ +0.893224301195515, -0.449611329654607,
+ +0.881921264348355, -0.471396736825998,
+ +0.870086991108711, -0.492898192229784,
+ +0.857728610000272, -0.514102744193222,
+ +0.844853565249707, -0.534997619887097,
+ +0.831469612302545, -0.555570233019602,
+ +0.817584813151584, -0.575808191417845,
+ +0.803207531480645, -0.595699304492433,
+ +0.788346427626606, -0.615231590580627,
+ +0.773010453362737, -0.634393284163645,
+ +0.757208846506485, -0.653172842953777,
+ +0.740951125354959, -0.671558954847018,
+ +0.724247082951467, -0.689540544737067,
+ +0.707106781186548, -0.707106781186547,
+ +0.689540544737067, -0.724247082951467,
+ +0.671558954847018, -0.740951125354959,
+ +0.653172842953777, -0.757208846506484,
+ +0.634393284163645, -0.773010453362737,
+ +0.615231590580627, -0.788346427626606,
+ +0.595699304492433, -0.803207531480645,
+ +0.575808191417845, -0.817584813151584,
+ +0.555570233019602, -0.831469612302545,
+ +0.534997619887097, -0.844853565249707,
+ +0.514102744193222, -0.857728610000272,
+ +0.492898192229784, -0.870086991108711,
+ +0.471396736825998, -0.881921264348355,
+ +0.449611329654607, -0.893224301195515,
+ +0.427555093430282, -0.903989293123443,
+ +0.405241314004990, -0.914209755703531,
+ +0.382683432365090, -0.923879532511287,
+ +0.359895036534988, -0.932992798834739,
+ +0.336889853392220, -0.941544065183021,
+ +0.313681740398892, -0.949528180593037,
+ +0.290284677254462, -0.956940335732209,
+ +0.266712757474898, -0.963776065795440,
+ +0.242980179903264, -0.970031253194544,
+ +0.219101240156870, -0.975702130038529,
+ +0.195090322016128, -0.980785280403230,
+ +0.170961888760301, -0.985277642388941,
+ +0.146730474455362, -0.989176509964781,
+ +0.122410675199216, -0.992479534598710,
+ +0.098017140329561, -0.995184726672197,
+ +0.073564563599667, -0.997290456678690,
+ +0.049067674327418, -0.998795456205172,
+ +0.024541228522912, -0.999698818696204,
+ };
+ const double *W = Wconst256 - 2;
+ double *Z = Y + 128;
+ for (offset = 0; offset < 1024; offset += 512) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ __1, __0);
+ BUTTERFLY_0m (Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ __0, __1);
+ }
+ for (butterfly = 2; butterfly < 128; butterfly += 2) {
+ Wre = W[butterfly]; Wim = W[butterfly + 1];
+ for (block = 0; block < 1024; block += 512) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 256], Y[offset + 256 + 1],
+ Wre, Wim);
+ BUTTERFLY_yX (Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 256], Z[offset + 256 + 1],
+ Wre, Wim);
+ }
+ }
+ }
+
+ /* perform 1 times fft512 */
+ {
+ static const double Wconst512[] = {
+ +0.999924701839145, -0.012271538285720,
+ +0.999698818696204, -0.024541228522912,
+ +0.999322384588350, -0.036807222941359,
+ +0.998795456205172, -0.049067674327418,
+ +0.998118112900149, -0.061320736302209,
+ +0.997290456678690, -0.073564563599667,
+ +0.996312612182778, -0.085797312344440,
+ +0.995184726672197, -0.098017140329561,
+ +0.993906970002356, -0.110222207293883,
+ +0.992479534598710, -0.122410675199216,
+ +0.990902635427780, -0.134580708507126,
+ +0.989176509964781, -0.146730474455362,
+ +0.987301418157858, -0.158858143333861,
+ +0.985277642388941, -0.170961888760301,
+ +0.983105487431216, -0.183039887955141,
+ +0.980785280403230, -0.195090322016128,
+ +0.978317370719628, -0.207111376192219,
+ +0.975702130038529, -0.219101240156870,
+ +0.972939952205560, -0.231058108280671,
+ +0.970031253194544, -0.242980179903264,
+ +0.966976471044852, -0.254865659604515,
+ +0.963776065795440, -0.266712757474898,
+ +0.960430519415566, -0.278519689385053,
+ +0.956940335732209, -0.290284677254462,
+ +0.953306040354194, -0.302005949319228,
+ +0.949528180593037, -0.313681740398892,
+ +0.945607325380521, -0.325310292162263,
+ +0.941544065183021, -0.336889853392220,
+ +0.937339011912575, -0.348418680249435,
+ +0.932992798834739, -0.359895036534988,
+ +0.928506080473216, -0.371317193951838,
+ +0.923879532511287, -0.382683432365090,
+ +0.919113851690058, -0.393992040061048,
+ +0.914209755703531, -0.405241314004990,
+ +0.909167983090522, -0.416429560097637,
+ +0.903989293123443, -0.427555093430282,
+ +0.898674465693954, -0.438616238538528,
+ +0.893224301195515, -0.449611329654607,
+ +0.887639620402854, -0.460538710958240,
+ +0.881921264348355, -0.471396736825998,
+ +0.876070094195407, -0.482183772079123,
+ +0.870086991108711, -0.492898192229784,
+ +0.863972856121587, -0.503538383725718,
+ +0.857728610000272, -0.514102744193222,
+ +0.851355193105265, -0.524589682678469,
+ +0.844853565249707, -0.534997619887097,
+ +0.838224705554838, -0.545324988422046,
+ +0.831469612302545, -0.555570233019602,
+ +0.824589302785025, -0.565731810783613,
+ +0.817584813151584, -0.575808191417845,
+ +0.810457198252595, -0.585797857456439,
+ +0.803207531480645, -0.595699304492433,
+ +0.795836904608884, -0.605511041404326,
+ +0.788346427626606, -0.615231590580627,
+ +0.780737228572094, -0.624859488142386,
+ +0.773010453362737, -0.634393284163645,
+ +0.765167265622459, -0.643831542889791,
+ +0.757208846506485, -0.653172842953777,
+ +0.749136394523459, -0.662415777590172,
+ +0.740951125354959, -0.671558954847018,
+ +0.732654271672413, -0.680600997795453,
+ +0.724247082951467, -0.689540544737067,
+ +0.715730825283819, -0.698376249408973,
+ +0.707106781186548, -0.707106781186547,
+ +0.698376249408973, -0.715730825283819,
+ +0.689540544737067, -0.724247082951467,
+ +0.680600997795453, -0.732654271672413,
+ +0.671558954847018, -0.740951125354959,
+ +0.662415777590172, -0.749136394523459,
+ +0.653172842953777, -0.757208846506484,
+ +0.643831542889791, -0.765167265622459,
+ +0.634393284163645, -0.773010453362737,
+ +0.624859488142386, -0.780737228572094,
+ +0.615231590580627, -0.788346427626606,
+ +0.605511041404326, -0.795836904608883,
+ +0.595699304492433, -0.803207531480645,
+ +0.585797857456439, -0.810457198252595,
+ +0.575808191417845, -0.817584813151584,
+ +0.565731810783613, -0.824589302785025,
+ +0.555570233019602, -0.831469612302545,
+ +0.545324988422046, -0.838224705554838,
+ +0.534997619887097, -0.844853565249707,
+ +0.524589682678469, -0.851355193105265,
+ +0.514102744193222, -0.857728610000272,
+ +0.503538383725718, -0.863972856121587,
+ +0.492898192229784, -0.870086991108711,
+ +0.482183772079123, -0.876070094195407,
+ +0.471396736825998, -0.881921264348355,
+ +0.460538710958240, -0.887639620402854,
+ +0.449611329654607, -0.893224301195515,
+ +0.438616238538528, -0.898674465693954,
+ +0.427555093430282, -0.903989293123443,
+ +0.416429560097637, -0.909167983090522,
+ +0.405241314004990, -0.914209755703531,
+ +0.393992040061048, -0.919113851690058,
+ +0.382683432365090, -0.923879532511287,
+ +0.371317193951838, -0.928506080473215,
+ +0.359895036534988, -0.932992798834739,
+ +0.348418680249435, -0.937339011912575,
+ +0.336889853392220, -0.941544065183021,
+ +0.325310292162263, -0.945607325380521,
+ +0.313681740398892, -0.949528180593037,
+ +0.302005949319228, -0.953306040354194,
+ +0.290284677254462, -0.956940335732209,
+ +0.278519689385053, -0.960430519415566,
+ +0.266712757474898, -0.963776065795440,
+ +0.254865659604515, -0.966976471044852,
+ +0.242980179903264, -0.970031253194544,
+ +0.231058108280671, -0.972939952205560,
+ +0.219101240156870, -0.975702130038529,
+ +0.207111376192219, -0.978317370719628,
+ +0.195090322016128, -0.980785280403230,
+ +0.183039887955141, -0.983105487431216,
+ +0.170961888760301, -0.985277642388941,
+ +0.158858143333861, -0.987301418157858,
+ +0.146730474455362, -0.989176509964781,
+ +0.134580708507126, -0.990902635427780,
+ +0.122410675199216, -0.992479534598710,
+ +0.110222207293883, -0.993906970002356,
+ +0.098017140329561, -0.995184726672197,
+ +0.085797312344440, -0.996312612182778,
+ +0.073564563599667, -0.997290456678690,
+ +0.061320736302209, -0.998118112900149,
+ +0.049067674327418, -0.998795456205172,
+ +0.036807222941359, -0.999322384588350,
+ +0.024541228522912, -0.999698818696204,
+ +0.012271538285720, -0.999924701839145,
+ };
+ const double *W = Wconst512 - 2;
+ double *Z = Y + 256;
+ for (offset = 0; offset < 1024; offset += 1024) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 512], Y[offset + 512 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 512], Y[offset + 512 + 1],
+ __1, __0);
+ BUTTERFLY_0m (Z[offset], Z[offset + 1],
+ Z[offset + 512], Z[offset + 512 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 512], Z[offset + 512 + 1],
+ __0, __1);
+ }
+ for (butterfly = 2; butterfly < 256; butterfly += 2) {
+ Wre = W[butterfly]; Wim = W[butterfly + 1];
+ for (block = 0; block < 1024; block += 1024) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 512], Y[offset + 512 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 512], Y[offset + 512 + 1],
+ Wre, Wim);
+ BUTTERFLY_yX (Z[offset], Z[offset + 1],
+ Z[offset + 512], Z[offset + 512 + 1],
+ Z[offset], Z[offset + 1],
+ Z[offset + 512], Z[offset + 512 + 1],
+ Wre, Wim);
+ }
+ }
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 512 L S S S S S S S X)
+ **/
+static void
+gsl_power2_fft512synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2synthesis (512, X, Y);
+
+ /* skipping 128 times fft4 */
+
+ /* skipping 64 times fft8 */
+
+ /* skipping 32 times fft16 */
+
+ /* skipping 16 times fft32 */
+
+ /* skipping 8 times fft64 */
+
+ /* skipping 4 times fft128 */
+
+ /* skipping 2 times fft256 */
+
+ /* perform 1 times fft512 */
+ gsl_power2_fft512synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 1024 S S S S S S S S X L)
+ **/
+static void
+gsl_power2_fft1024synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 512 times fft2 */
+
+ /* skipping 256 times fft4 */
+
+ /* skipping 128 times fft8 */
+
+ /* skipping 64 times fft16 */
+
+ /* skipping 32 times fft32 */
+
+ /* skipping 16 times fft64 */
+
+ /* skipping 8 times fft128 */
+
+ /* skipping 4 times fft256 */
+
+ /* perform 2 times fft512 */
+ gsl_power2_fft512synthesis_skip2 (X, Y);
+ gsl_power2_fft512synthesis_skip2 (X + 1024, Y + 1024);
+
+ /* perform 1 times fft1024 */
+ for (offset = 0; offset < 2048; offset += 2048) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ __1, __0);
+ }
+ Wre = +0.999981175282601; Wim = -0.006135884649154;
+ for (butterfly = 2; butterfly < 512; butterfly += 2) {
+ for (block = 0; block < 2048; block += 2048) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000018824717399, -0.006135884649154);
+ }
+ for (offset = 512; offset < 2048; offset += 2048) {
+ BUTTERFLY_0m (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ __0, __1);
+ }
+ Wre = -0.006135884649154; Wim = -0.999981175282601;
+ for (butterfly = 514; butterfly < 1024; butterfly += 2) {
+ for (block = 0; block < 2048; block += 2048) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000018824717399, -0.006135884649154);
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 1024 L S S S S S S S S X)
+ **/
+static void
+gsl_power2_fft1024synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2synthesis (1024, X, Y);
+
+ /* skipping 256 times fft4 */
+
+ /* skipping 128 times fft8 */
+
+ /* skipping 64 times fft16 */
+
+ /* skipping 32 times fft32 */
+
+ /* skipping 16 times fft64 */
+
+ /* skipping 8 times fft128 */
+
+ /* skipping 4 times fft256 */
+
+ /* skipping 2 times fft512 */
+
+ /* perform 1 times fft1024 */
+ gsl_power2_fft1024synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 2048 S S S S S S S S X L L)
+ **/
+static void
+gsl_power2_fft2048synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 1024 times fft2 */
+
+ /* skipping 512 times fft4 */
+
+ /* skipping 256 times fft8 */
+
+ /* skipping 128 times fft16 */
+
+ /* skipping 64 times fft32 */
+
+ /* skipping 32 times fft64 */
+
+ /* skipping 16 times fft128 */
+
+ /* skipping 8 times fft256 */
+
+ /* perform 4 times fft512 */
+ gsl_power2_fft512synthesis_skip2 (X, Y);
+ gsl_power2_fft512synthesis_skip2 (X + 1024, Y + 1024);
+ gsl_power2_fft512synthesis_skip2 (X + 2048, Y + 2048);
+ gsl_power2_fft512synthesis_skip2 (X + 3072, Y + 3072);
+
+ /* perform 2 times fft1024 */
+ for (offset = 0; offset < 4096; offset += 2048) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ __1, __0);
+ }
+ Wre = +0.999981175282601; Wim = -0.006135884649154;
+ for (butterfly = 2; butterfly < 512; butterfly += 2) {
+ for (block = 0; block < 4096; block += 2048) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000018824717399, -0.006135884649154);
+ }
+ for (offset = 512; offset < 4096; offset += 2048) {
+ BUTTERFLY_0m (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ __0, __1);
+ }
+ Wre = -0.006135884649154; Wim = -0.999981175282601;
+ for (butterfly = 514; butterfly < 1024; butterfly += 2) {
+ for (block = 0; block < 4096; block += 2048) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 1024], Y[offset + 1024 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000018824717399, -0.006135884649154);
+ }
+
+ /* perform 1 times fft2048 */
+ for (offset = 0; offset < 4096; offset += 4096) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ __1, __0);
+ }
+ Wre = +0.999995293809576; Wim = -0.003067956762966;
+ for (butterfly = 2; butterfly < 1024; butterfly += 2) {
+ for (block = 0; block < 4096; block += 4096) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000004706190424, -0.003067956762966);
+ }
+ for (offset = 1024; offset < 4096; offset += 4096) {
+ BUTTERFLY_0m (Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ __0, __1);
+ }
+ Wre = -0.003067956762966; Wim = -0.999995293809576;
+ for (butterfly = 1026; butterfly < 2048; butterfly += 2) {
+ for (block = 0; block < 4096; block += 4096) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 2048], Y[offset + 2048 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000004706190424, -0.003067956762966);
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 2048 L S S S S S S S S S X)
+ **/
+static void
+gsl_power2_fft2048synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2synthesis (2048, X, Y);
+
+ /* skipping 512 times fft4 */
+
+ /* skipping 256 times fft8 */
+
+ /* skipping 128 times fft16 */
+
+ /* skipping 64 times fft32 */
+
+ /* skipping 32 times fft64 */
+
+ /* skipping 16 times fft128 */
+
+ /* skipping 8 times fft256 */
+
+ /* skipping 4 times fft512 */
+
+ /* skipping 2 times fft1024 */
+
+ /* perform 1 times fft2048 */
+ gsl_power2_fft2048synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 4096 S S S S S S S S S S X L)
+ **/
+static void
+gsl_power2_fft4096synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 2048 times fft2 */
+
+ /* skipping 1024 times fft4 */
+
+ /* skipping 512 times fft8 */
+
+ /* skipping 256 times fft16 */
+
+ /* skipping 128 times fft32 */
+
+ /* skipping 64 times fft64 */
+
+ /* skipping 32 times fft128 */
+
+ /* skipping 16 times fft256 */
+
+ /* skipping 8 times fft512 */
+
+ /* skipping 4 times fft1024 */
+
+ /* perform 2 times fft2048 */
+ gsl_power2_fft2048synthesis_skip2 (X, Y);
+ gsl_power2_fft2048synthesis_skip2 (X + 4096, Y + 4096);
+
+ /* perform 1 times fft4096 */
+ for (offset = 0; offset < 8192; offset += 8192) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ __1, __0);
+ }
+ Wre = +0.999998823451702; Wim = -0.001533980186285;
+ for (butterfly = 2; butterfly < 2048; butterfly += 2) {
+ for (block = 0; block < 8192; block += 8192) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000001176548298, -0.001533980186285);
+ }
+ for (offset = 2048; offset < 8192; offset += 8192) {
+ BUTTERFLY_0m (Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ __0, __1);
+ }
+ Wre = -0.001533980186285; Wim = -0.999998823451702;
+ for (butterfly = 2050; butterfly < 4096; butterfly += 2) {
+ for (block = 0; block < 8192; block += 8192) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 4096], Y[offset + 4096 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000001176548298, -0.001533980186285);
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 4096 L S S S S S S S S S S X)
+ **/
+static void
+gsl_power2_fft4096synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2synthesis (4096, X, Y);
+
+ /* skipping 1024 times fft4 */
+
+ /* skipping 512 times fft8 */
+
+ /* skipping 256 times fft16 */
+
+ /* skipping 128 times fft32 */
+
+ /* skipping 64 times fft64 */
+
+ /* skipping 32 times fft128 */
+
+ /* skipping 16 times fft256 */
+
+ /* skipping 8 times fft512 */
+
+ /* skipping 4 times fft1024 */
+
+ /* skipping 2 times fft2048 */
+
+ /* perform 1 times fft4096 */
+ gsl_power2_fft4096synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 8192 S S S S S S S S S S S X L)
+ **/
+static void
+gsl_power2_fft8192synthesis_skip2 (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* skipping 4096 times fft2 */
+
+ /* skipping 2048 times fft4 */
+
+ /* skipping 1024 times fft8 */
+
+ /* skipping 512 times fft16 */
+
+ /* skipping 256 times fft32 */
+
+ /* skipping 128 times fft64 */
+
+ /* skipping 64 times fft128 */
+
+ /* skipping 32 times fft256 */
+
+ /* skipping 16 times fft512 */
+
+ /* skipping 8 times fft1024 */
+
+ /* skipping 4 times fft2048 */
+
+ /* perform 2 times fft4096 */
+ gsl_power2_fft4096synthesis_skip2 (X, Y);
+ gsl_power2_fft4096synthesis_skip2 (X + 8192, Y + 8192);
+
+ /* perform 1 times fft8192 */
+ for (offset = 0; offset < 16384; offset += 16384) {
+ BUTTERFLY_10 (Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ __1, __0);
+ }
+ Wre = +0.999999705862882; Wim = -0.000766990318743;
+ for (butterfly = 2; butterfly < 4096; butterfly += 2) {
+ for (block = 0; block < 16384; block += 16384) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000000294137118, -0.000766990318743);
+ }
+ for (offset = 4096; offset < 16384; offset += 16384) {
+ BUTTERFLY_0m (Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ __0, __1);
+ }
+ Wre = -0.000766990318743; Wim = -0.999999705862882;
+ for (butterfly = 4098; butterfly < 8192; butterfly += 2) {
+ for (block = 0; block < 16384; block += 16384) {
+ offset = butterfly + block;
+ BUTTERFLY_XY (Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Y[offset], Y[offset + 1],
+ Y[offset + 8192], Y[offset + 8192 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, -0.000000294137118, -0.000766990318743);
+ }
+}
+
+/**
+ ** Generated data ends here
+ **/
+/**
+ ** Generated data (by gsl-genfft 8192 L S S S S S S S S S S S X)
+ **/
+static void
+gsl_power2_fft8192synthesis (const double *X, double *Y)
+{
+ register unsigned int butterfly, block, offset;
+ register double Wre, Wim;
+
+ butterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */
+
+ /* perform fft2 and bitreverse input */
+ bitreverse_fft2synthesis (8192, X, Y);
+
+ /* skipping 2048 times fft4 */
+
+ /* skipping 1024 times fft8 */
+
+ /* skipping 512 times fft16 */
+
+ /* skipping 256 times fft32 */
+
+ /* skipping 128 times fft64 */
+
+ /* skipping 64 times fft128 */
+
+ /* skipping 32 times fft256 */
+
+ /* skipping 16 times fft512 */
+
+ /* skipping 8 times fft1024 */
+
+ /* skipping 4 times fft2048 */
+
+ /* skipping 2 times fft4096 */
+
+ /* perform 1 times fft8192 */
+ gsl_power2_fft8192synthesis_skip2 (X, Y);
+}
+
+/**
+ ** Generated data ends here
+ **/
+
+
+/* public FFT frontends and generic handling of huge fft sizes */
+
+
+static void
+gsl_power2_fftc_big (const unsigned int n_values,
+ const double *rivalues_in,
+ double *rivalues,
+ const int esign)
+{
+ const unsigned int n_values2 = n_values << 1;
+ double theta = esign < 0 ? -3.1415926535897932384626433832795029 : 3.1415926535897932384626433832795029;
+ unsigned int i, block_size = 8192 << 1;
+ double last_sin;
+
+ if (esign > 0)
+ {
+ if (rivalues_in)
+ bitreverse_fft2analysis (n_values, rivalues_in, rivalues);
+ for (i = 0; i < n_values; i += 8192)
+ gsl_power2_fft8192analysis_skip2 (rivalues + (i << 1), rivalues + (i << 1));
+ }
+ else
+ {
+ if (rivalues_in)
+ bitreverse_fft2synthesis (n_values, rivalues_in, rivalues);
+ for (i = 0; i < n_values; i += 8192)
+ gsl_power2_fft8192synthesis_skip2 (rivalues + (i << 1), rivalues + (i << 1));
+ }
+ theta *= (double) 1.0 / 8192.;
+ last_sin = sin (theta);
+
+ /* we're not combining the first and second halves coefficients
+ * in the below loop, since for fft sizes beyond 8192, it'd actually
+ * harm performance due to paging
+ */
+ do
+ {
+ double Dre, Dim, Wre, Wim;
+ unsigned int k, i, half_block = block_size >> 1;
+ unsigned int block_size2 = block_size << 1;
+
+ theta *= 0.5;
+ Dim = last_sin;
+ last_sin = sin (theta);
+ Dre = last_sin * last_sin * -2.;
+
+ /* loop over first coefficient in each block ==> w == {1,0} */
+ for (i = 0; i < n_values2; i += block_size2)
+ {
+ unsigned int v1 = i, v2 = i + block_size;
+
+ BUTTERFLY_10 (rivalues[v1], rivalues[v1 + 1],
+ rivalues[v2], rivalues[v2 + 1],
+ rivalues[v1], rivalues[v1 + 1],
+ rivalues[v2], rivalues[v2 + 1],
+ __1, __0);
+ }
+ Wre = Dre + 1.0; /* update Wk */
+ Wim = Dim; /* update Wk */
+ /* loop for every Wk in the first half of each subblock */
+ for (k = 2; k < half_block; k += 2)
+ {
+ /* loop over kth coefficient in each block */
+ for (i = k; i < n_values2; i += block_size2)
+ {
+ unsigned int v1 = i, v2 = i + block_size;
+
+ BUTTERFLY_XY (rivalues[v1], rivalues[v1 + 1],
+ rivalues[v2], rivalues[v2 + 1],
+ rivalues[v1], rivalues[v1 + 1],
+ rivalues[v2], rivalues[v2 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, Dre, Dim); /* update Wk */
+ }
+ /* handle middle coefficient ==> w == {0,+-1} */
+ if (k < block_size)
+ {
+ /* loop over kth coefficient in each block */
+ if (esign > 0)
+ for (i = k; i < n_values2; i += block_size2)
+ {
+ unsigned int v1 = i, v2 = i + block_size;
+
+ BUTTERFLY_01 (rivalues[v1], rivalues[v1 + 1],
+ rivalues[v2], rivalues[v2 + 1],
+ rivalues[v1], rivalues[v1 + 1],
+ rivalues[v2], rivalues[v2 + 1],
+ __0, __1);
+ }
+ else
+ for (i = k; i < n_values2; i += block_size2)
+ {
+ unsigned int v1 = i, v2 = i + block_size;
+
+ BUTTERFLY_0m (rivalues[v1], rivalues[v1 + 1],
+ rivalues[v2], rivalues[v2 + 1],
+ rivalues[v1], rivalues[v1 + 1],
+ rivalues[v2], rivalues[v2 + 1],
+ __0, __1);
+ }
+ /* update Wk */
+ if (esign > 0)
+ {
+ Wre = -Dim;
+ Wim = Dre + 1.0;
+ }
+ else
+ {
+ Wre = Dim;
+ Wim = -Dre - 1.0;
+ }
+ k += 2;
+ }
+ /* loop for every Wk in the second half of each subblock */
+ for (; k < block_size; k += 2)
+ {
+ /* loop over kth coefficient in each block */
+ for (i = k; i < n_values2; i += block_size2)
+ {
+ unsigned int v1 = i, v2 = i + block_size;
+
+ BUTTERFLY_XY (rivalues[v1], rivalues[v1 + 1],
+ rivalues[v2], rivalues[v2 + 1],
+ rivalues[v1], rivalues[v1 + 1],
+ rivalues[v2], rivalues[v2 + 1],
+ Wre, Wim);
+ }
+ WMULTIPLY (Wre, Wim, Dre, Dim); /* update Wk */
+ }
+ block_size = block_size2;
+ }
+ while (block_size <= n_values);
+}
+void
+gsl_power2_fftac (const unsigned int n_values,
+ const double *rivalues_in,
+ double *rivalues_out)
+{
+ g_return_if_fail ((n_values & (n_values - 1)) == 0 && n_values >= 1);
+
+ switch (n_values)
+ {
+ case 1: rivalues_out[0] = rivalues_in[0], rivalues_out[1] = rivalues_in[1]; break;
+ case 2: gsl_power2_fft2analysis (rivalues_in, rivalues_out); break;
+ case 4: gsl_power2_fft4analysis (rivalues_in, rivalues_out); break;
+ case 8: gsl_power2_fft8analysis (rivalues_in, rivalues_out); break;
+ case 16: gsl_power2_fft16analysis (rivalues_in, rivalues_out); break;
+ case 32: gsl_power2_fft32analysis (rivalues_in, rivalues_out); break;
+ case 64: gsl_power2_fft64analysis (rivalues_in, rivalues_out); break;
+ case 128: gsl_power2_fft128analysis (rivalues_in, rivalues_out); break;
+ case 256: gsl_power2_fft256analysis (rivalues_in, rivalues_out); break;
+ case 512: gsl_power2_fft512analysis (rivalues_in, rivalues_out); break;
+ case 1024: gsl_power2_fft1024analysis (rivalues_in, rivalues_out); break;
+ case 2048: gsl_power2_fft2048analysis (rivalues_in, rivalues_out); break;
+ case 4096: gsl_power2_fft4096analysis (rivalues_in, rivalues_out); break;
+ case 8192: gsl_power2_fft8192analysis (rivalues_in, rivalues_out); break;
+ default: gsl_power2_fftc_big (n_values, rivalues_in, rivalues_out, +1);
+ }
+}
+void
+gsl_power2_fftsc (const unsigned int n_values,
+ const double *rivalues_in,
+ double *rivalues_out)
+{
+ g_return_if_fail ((n_values & (n_values - 1)) == 0 && n_values >= 1);
+
+ switch (n_values)
+ {
+ case 1: rivalues_out[0] = rivalues_in[0], rivalues_out[1] = rivalues_in[1]; break;
+ case 2: gsl_power2_fft2synthesis (rivalues_in, rivalues_out); break;
+ case 4: gsl_power2_fft4synthesis (rivalues_in, rivalues_out); break;
+ case 8: gsl_power2_fft8synthesis (rivalues_in, rivalues_out); break;
+ case 16: gsl_power2_fft16synthesis (rivalues_in, rivalues_out); break;
+ case 32: gsl_power2_fft32synthesis (rivalues_in, rivalues_out); break;
+ case 64: gsl_power2_fft64synthesis (rivalues_in, rivalues_out); break;
+ case 128: gsl_power2_fft128synthesis (rivalues_in, rivalues_out); break;
+ case 256: gsl_power2_fft256synthesis (rivalues_in, rivalues_out); break;
+ case 512: gsl_power2_fft512synthesis (rivalues_in, rivalues_out); break;
+ case 1024: gsl_power2_fft1024synthesis (rivalues_in, rivalues_out); break;
+ case 2048: gsl_power2_fft2048synthesis (rivalues_in, rivalues_out); break;
+ case 4096: gsl_power2_fft4096synthesis (rivalues_in, rivalues_out); break;
+ case 8192: gsl_power2_fft8192synthesis (rivalues_in, rivalues_out); break;
+ default: gsl_power2_fftc_big (n_values, rivalues_in, rivalues_out, -1);
+ }
+ /* { unsigned int i; for (i = 0; i < n_values << 1; i++) rivalues_out[i] *= (double) n_values; } */
+}
+void
+gsl_power2_fftar (const unsigned int n_values,
+ const double *r_values_in,
+ double *rivalues_out)
+{
+ unsigned int n_cvalues = n_values >> 1;
+ double Dre, Dim, Wre, Wim, theta;
+ unsigned int i;
+
+ g_return_if_fail ((n_values & (n_values - 1)) == 0 && n_values >= 2);
+
+ gsl_power2_fftac (n_cvalues, r_values_in, rivalues_out);
+ theta = 3.1415926535897932384626433832795029;
+ theta /= (double) n_cvalues;
+
+ Dre = sin (0.5 * theta);
+ Dim = sin (theta);
+ Dre = Dre * Dre;
+ Wre = 0.5 - Dre;
+ Dre *= -2.;
+ Wim = Dim * 0.5;
+ for (i = 2; i < n_values >> 1; i += 2)
+ {
+ double F1re, F1im, F2re, F2im, H1re, H1im, H2re, H2im;
+ unsigned int r = n_values - i;
+ double FEre = rivalues_out[i] + rivalues_out[r];
+ double FEim = rivalues_out[i + 1] - rivalues_out[r + 1];
+ double FOre = rivalues_out[r] - rivalues_out[i];
+ double FOim = rivalues_out[r + 1] + rivalues_out[i + 1];
+
+ FEre *= 0.5;
+ FEim *= 0.5;
+ F2re = FOre * Wim;
+ F2im = FOim * Wim;
+ F1re = FOre * Wre;
+ F1im = FOim * Wre;
+
+ H1im = F2im + F1re;
+ H1re = F1im - F2re;
+ H2re = F2re - F1im;
+ H2im = H1im - FEim;
+ H1re += FEre;
+ H2re += FEre;
+ H1im += FEim;
+ rivalues_out[i] = H1re;
+ rivalues_out[i + 1] = H1im;
+ rivalues_out[r] = H2re;
+ rivalues_out[r + 1] = H2im;
+ WMULTIPLY (Wre, Wim, Dre, Dim);
+ }
+ Dre = rivalues_out[0];
+ rivalues_out[0] = Dre + rivalues_out[1];
+ rivalues_out[1] = Dre - rivalues_out[1];
+}
+void
+gsl_power2_fftsr (const unsigned int n_values,
+ const double *rivalues_in,
+ double *r_values_out)
+{
+ unsigned int n_cvalues = n_values >> 1;
+ double Dre, Dim, Wre, Wim, theta, scale;
+ unsigned int i, ri;
+
+ g_return_if_fail ((n_values & (n_values - 1)) == 0 && n_values >= 2);
+
+ theta = -3.1415926535897932384626433832795029;
+ theta /= (double) n_cvalues;
+
+ Dre = sin (0.5 * theta);
+ Dim = sin (theta);
+ Dre = Dre * Dre;
+ Wre = 0.5 - Dre;
+ Dre *= -2.;
+ Wim = Dim * 0.5;
+ for (i = 2, ri = 0; i < n_values >> 1; i += 2)
+ {
+ double F1re, F1im, F2re, F2im, H1re, H1im, H2re, H2im;
+ unsigned int g = n_values - i, j = n_values >> 2, rg = n_values - (ri << 1) - 2;
+ double FEre = rivalues_in[i] + rivalues_in[g];
+ double FEim = rivalues_in[i + 1] - rivalues_in[g + 1];
+ double FOre = rivalues_in[g] - rivalues_in[i];
+ double FOim = rivalues_in[g + 1] + rivalues_in[i + 1];
+
+ while (ri >= j)
+ {
+ ri -= j;
+ j >>= 1;
+ }
+ ri |= j;
+
+ FOre = -FOre;
+ FOim = -FOim;
+ FEre *= 0.5;
+ FEim *= 0.5;
+ F2re = FOre * Wim;
+ F2im = FOim * Wim;
+ F1re = FOre * Wre;
+ F1im = FOim * Wre;
+
+ H1im = F2im + F1re;
+ H1re = F1im - F2re;
+ H2re = F2re - F1im;
+ H2im = H1im - FEim;
+ H1re += FEre;
+ H2re += FEre;
+ H1im += FEim;
+
+ j = ri << 1;
+ r_values_out[j] = H1re;
+ r_values_out[j + 1] = H1im;
+ r_values_out[rg] = H2re;
+ r_values_out[rg + 1] = H2im;
+ WMULTIPLY (Wre, Wim, Dre, Dim);
+ }
+ Dre = rivalues_in[0];
+ r_values_out[0] = Dre + rivalues_in[1];
+ r_values_out[1] = Dre - rivalues_in[1];
+ r_values_out[0] *= 0.5;
+ r_values_out[1] *= 0.5;
+ if (n_values < 4)
+ return;
+ r_values_out[2] = rivalues_in[i];
+ r_values_out[2 + 1] = rivalues_in[i + 1];
+ scale = n_cvalues;
+ scale = 1.0 / scale;
+ for (i = 0; i < n_values; i += 4)
+ BUTTERFLY_10scale (r_values_out[i], r_values_out[i + 1],
+ r_values_out[i + 2], r_values_out[i + 3],
+ r_values_out[i], r_values_out[i + 1],
+ r_values_out[i + 2], r_values_out[i + 3],
+ scale);
+ switch (n_cvalues)
+ {
+ case 2: break;
+ case 4: gsl_power2_fft4synthesis_skip2 (NULL, r_values_out); break;
+ case 8: gsl_power2_fft8synthesis_skip2 (NULL, r_values_out); break;
+ case 16: gsl_power2_fft16synthesis_skip2 (NULL, r_values_out); break;
+ case 32: gsl_power2_fft32synthesis_skip2 (NULL, r_values_out); break;
+ case 64: gsl_power2_fft64synthesis_skip2 (NULL, r_values_out); break;
+ case 128: gsl_power2_fft128synthesis_skip2 (NULL, r_values_out); break;
+ case 256: gsl_power2_fft256synthesis_skip2 (NULL, r_values_out); break;
+ case 512: gsl_power2_fft512synthesis_skip2 (NULL, r_values_out); break;
+ case 1024: gsl_power2_fft1024synthesis_skip2 (NULL, r_values_out); break;
+ case 2048: gsl_power2_fft2048synthesis_skip2 (NULL, r_values_out); break;
+ case 4096: gsl_power2_fft4096synthesis_skip2 (NULL, r_values_out); break;
+ case 8192: gsl_power2_fft8192synthesis_skip2 (NULL, r_values_out); break;
+ default: gsl_power2_fftc_big (n_cvalues, NULL, r_values_out, -1);
+ }
+}
+void
+gsl_power2_fftar_simple (const unsigned int n_values,
+ const float *real_values,
+ float *complex_values)
+{
+ double *rv, *cv;
+ guint i;
+
+ g_return_if_fail ((n_values & (n_values - 1)) == 0 && n_values >= 2);
+
+ rv = g_new (double, n_values * 2);
+ cv = rv + n_values;
+ i = n_values;
+ while (i--)
+ rv[i] = real_values[i];
+ gsl_power2_fftar (n_values, rv, cv);
+ i = n_values;
+ while (i--)
+ complex_values[i] = cv[i];
+ complex_values[n_values] = complex_values[1];
+ complex_values[1] = 0.0;
+ complex_values[n_values + 1] = 0.0;
+ g_free (rv);
+}
+void
+gsl_power2_fftsr_simple (const unsigned int n_values,
+ const float *complex_values,
+ float *real_values)
+{
+ double *cv, *rv;
+ guint i;
+
+ g_return_if_fail ((n_values & (n_values - 1)) == 0 && n_values >= 2);
+
+ cv = g_new (double, n_values * 2);
+ rv = cv + n_values;
+ i = n_values;
+ while (i--)
+ cv[i] = complex_values[i];
+ cv[1] = complex_values[n_values];
+ gsl_power2_fftsr (n_values, cv, rv);
+ i = n_values;
+ while (i--)
+ real_values[i] = rv[i];
+ g_free (cv);
+}
generated by cgit v1.2.1 (git 2.18.0) at 2024-11-14 16:13:33 +0000