TDE
/
arts
mirror of https://mirror.git.trinitydesktop.org/gitea/TDE/arts
0
0
Fork 0
Code Issues Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '1c150210ec'
${ noResults }
arts/flow/gsl/gslfft.c

9053 lines
300 KiB
Raw Blame History

#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);
}
View Git Blame Copy Permalink