summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Glover <j@johnglover.net>2012-08-21 18:31:07 +0100
committerJohn Glover <j@johnglover.net>2012-08-21 18:31:07 +0100
commit39e0005e226ed6f04562e9d5d7548782fef81c20 (patch)
tree5f4b23a8563a47ac8740525acc2f96565e88d002
parent4f0a4f251ddbc466f14200202eff2213e30a5919 (diff)
downloadsimpl-39e0005e226ed6f04562e9d5d7548782fef81c20.tar.gz
simpl-39e0005e226ed6f04562e9d5d7548782fef81c20.tar.bz2
simpl-39e0005e226ed6f04562e9d5d7548782fef81c20.zip
[sndobj] Update SndObj to use FFTW v3 (was using v2). Remove unused SndObj files. Whitespace clean up.
-rw-r--r--setup.py57
-rw-r--r--src/sndobj/FFT.cpp143
-rw-r--r--src/sndobj/FFT.h19
-rw-r--r--src/sndobj/IFFT.cpp262
-rw-r--r--src/sndobj/IFFT.h88
-rw-r--r--src/sndobj/IFGram.cpp85
-rw-r--r--src/sndobj/IFGram.h16
-rw-r--r--src/sndobj/PVA.cpp126
-rw-r--r--src/sndobj/PVA.h13
-rw-r--r--src/sndobj/PVS.cpp168
-rw-r--r--src/sndobj/PVS.h67
-rw-r--r--src/sndobj/rfftw/cfft.c939
-rw-r--r--src/sndobj/rfftw/config.c164
-rw-r--r--src/sndobj/rfftw/config.h170
-rw-r--r--src/sndobj/rfftw/executor.c465
-rw-r--r--src/sndobj/rfftw/f77_func.h61
-rw-r--r--src/sndobj/rfftw/fcr_1.c59
-rw-r--r--src/sndobj/rfftw/fcr_10.c154
-rw-r--r--src/sndobj/rfftw/fcr_11.c123
-rw-r--r--src/sndobj/rfftw/fcr_12.c168
-rw-r--r--src/sndobj/rfftw/fcr_128.c2564
-rw-r--r--src/sndobj/rfftw/fcr_13.c273
-rw-r--r--src/sndobj/rfftw/fcr_14.c175
-rw-r--r--src/sndobj/rfftw/fcr_15.c226
-rw-r--r--src/sndobj/rfftw/fcr_16.c226
-rw-r--r--src/sndobj/rfftw/fcr_2.c62
-rw-r--r--src/sndobj/rfftw/fcr_3.c71
-rw-r--r--src/sndobj/rfftw/fcr_32.c490
-rw-r--r--src/sndobj/rfftw/fcr_4.c80
-rw-r--r--src/sndobj/rfftw/fcr_5.c93
-rw-r--r--src/sndobj/rfftw/fcr_6.c95
-rw-r--r--src/sndobj/rfftw/fcr_64.c1111
-rw-r--r--src/sndobj/rfftw/fcr_7.c96
-rw-r--r--src/sndobj/rfftw/fcr_8.c119
-rw-r--r--src/sndobj/rfftw/fcr_9.c155
-rw-r--r--src/sndobj/rfftw/fftw-int.h500
-rw-r--r--src/sndobj/rfftw/fftw.h425
-rw-r--r--src/sndobj/rfftw/fftwnd.c780
-rw-r--r--src/sndobj/rfftw/fhb_10.c581
-rw-r--r--src/sndobj/rfftw/fhb_16.c976
-rw-r--r--src/sndobj/rfftw/fhb_2.c106
-rw-r--r--src/sndobj/rfftw/fhb_3.c158
-rw-r--r--src/sndobj/rfftw/fhb_32.c2303
-rw-r--r--src/sndobj/rfftw/fhb_4.c193
-rw-r--r--src/sndobj/rfftw/fhb_5.c276
-rw-r--r--src/sndobj/rfftw/fhb_6.c301
-rw-r--r--src/sndobj/rfftw/fhb_7.c320
-rw-r--r--src/sndobj/rfftw/fhb_8.c415
-rw-r--r--src/sndobj/rfftw/fhb_9.c564
-rw-r--r--src/sndobj/rfftw/fhf_10.c561
-rw-r--r--src/sndobj/rfftw/fhf_16.c975
-rw-r--r--src/sndobj/rfftw/fhf_2.c108
-rw-r--r--src/sndobj/rfftw/fhf_3.c150
-rw-r--r--src/sndobj/rfftw/fhf_32.c2312
-rw-r--r--src/sndobj/rfftw/fhf_4.c185
-rw-r--r--src/sndobj/rfftw/fhf_5.c268
-rw-r--r--src/sndobj/rfftw/fhf_6.c299
-rw-r--r--src/sndobj/rfftw/fhf_7.c325
-rw-r--r--src/sndobj/rfftw/fhf_8.c415
-rw-r--r--src/sndobj/rfftw/fhf_9.c525
-rw-r--r--src/sndobj/rfftw/fn_1.c62
-rw-r--r--src/sndobj/rfftw/fn_10.c281
-rw-r--r--src/sndobj/rfftw/fn_11.c242
-rw-r--r--src/sndobj/rfftw/fn_12.c322
-rw-r--r--src/sndobj/rfftw/fn_13.c526
-rw-r--r--src/sndobj/rfftw/fn_14.c355
-rw-r--r--src/sndobj/rfftw/fn_15.c446
-rw-r--r--src/sndobj/rfftw/fn_16.c439
-rw-r--r--src/sndobj/rfftw/fn_2.c68
-rw-r--r--src/sndobj/rfftw/fn_3.c91
-rw-r--r--src/sndobj/rfftw/fn_32.c1042
-rw-r--r--src/sndobj/rfftw/fn_4.c102
-rw-r--r--src/sndobj/rfftw/fn_5.c146
-rw-r--r--src/sndobj/rfftw/fn_6.c157
-rw-r--r--src/sndobj/rfftw/fn_64.c2449
-rw-r--r--src/sndobj/rfftw/fn_7.c170
-rw-r--r--src/sndobj/rfftw/fn_8.c201
-rw-r--r--src/sndobj/rfftw/fn_9.c275
-rw-r--r--src/sndobj/rfftw/fni_1.c62
-rw-r--r--src/sndobj/rfftw/fni_10.c281
-rw-r--r--src/sndobj/rfftw/fni_11.c242
-rw-r--r--src/sndobj/rfftw/fni_12.c322
-rw-r--r--src/sndobj/rfftw/fni_13.c526
-rw-r--r--src/sndobj/rfftw/fni_14.c355
-rw-r--r--src/sndobj/rfftw/fni_15.c446
-rw-r--r--src/sndobj/rfftw/fni_16.c439
-rw-r--r--src/sndobj/rfftw/fni_2.c68
-rw-r--r--src/sndobj/rfftw/fni_3.c91
-rw-r--r--src/sndobj/rfftw/fni_32.c1042
-rw-r--r--src/sndobj/rfftw/fni_4.c102
-rw-r--r--src/sndobj/rfftw/fni_5.c146
-rw-r--r--src/sndobj/rfftw/fni_6.c157
-rw-r--r--src/sndobj/rfftw/fni_64.c2449
-rw-r--r--src/sndobj/rfftw/fni_7.c170
-rw-r--r--src/sndobj/rfftw/fni_8.c201
-rw-r--r--src/sndobj/rfftw/fni_9.c275
-rw-r--r--src/sndobj/rfftw/frc_1.c59
-rw-r--r--src/sndobj/rfftw/frc_10.c150
-rw-r--r--src/sndobj/rfftw/frc_11.c125
-rw-r--r--src/sndobj/rfftw/frc_12.c164
-rw-r--r--src/sndobj/rfftw/frc_128.c2574
-rw-r--r--src/sndobj/rfftw/frc_13.c271
-rw-r--r--src/sndobj/rfftw/frc_14.c171
-rw-r--r--src/sndobj/rfftw/frc_15.c233
-rw-r--r--src/sndobj/rfftw/frc_16.c218
-rw-r--r--src/sndobj/rfftw/frc_2.c62
-rw-r--r--src/sndobj/rfftw/frc_3.c69
-rw-r--r--src/sndobj/rfftw/frc_32.c476
-rw-r--r--src/sndobj/rfftw/frc_4.c72
-rw-r--r--src/sndobj/rfftw/frc_5.c92
-rw-r--r--src/sndobj/rfftw/frc_6.c95
-rw-r--r--src/sndobj/rfftw/frc_64.c1109
-rw-r--r--src/sndobj/rfftw/frc_7.c98
-rw-r--r--src/sndobj/rfftw/frc_8.c114
-rw-r--r--src/sndobj/rfftw/frc_9.c146
-rw-r--r--src/sndobj/rfftw/ftw_10.c375
-rw-r--r--src/sndobj/rfftw/ftw_16.c611
-rw-r--r--src/sndobj/rfftw/ftw_2.c86
-rw-r--r--src/sndobj/rfftw/ftw_3.c120
-rw-r--r--src/sndobj/rfftw/ftw_32.c1384
-rw-r--r--src/sndobj/rfftw/ftw_4.c142
-rw-r--r--src/sndobj/rfftw/ftw_5.c194
-rw-r--r--src/sndobj/rfftw/ftw_6.c219
-rw-r--r--src/sndobj/rfftw/ftw_64.c3146
-rw-r--r--src/sndobj/rfftw/ftw_7.c243
-rw-r--r--src/sndobj/rfftw/ftw_8.c285
-rw-r--r--src/sndobj/rfftw/ftw_9.c370
-rw-r--r--src/sndobj/rfftw/ftwi_10.c375
-rw-r--r--src/sndobj/rfftw/ftwi_16.c611
-rw-r--r--src/sndobj/rfftw/ftwi_2.c86
-rw-r--r--src/sndobj/rfftw/ftwi_3.c120
-rw-r--r--src/sndobj/rfftw/ftwi_32.c1384
-rw-r--r--src/sndobj/rfftw/ftwi_4.c142
-rw-r--r--src/sndobj/rfftw/ftwi_5.c194
-rw-r--r--src/sndobj/rfftw/ftwi_6.c219
-rw-r--r--src/sndobj/rfftw/ftwi_64.c3146
-rw-r--r--src/sndobj/rfftw/ftwi_7.c243
-rw-r--r--src/sndobj/rfftw/ftwi_8.c285
-rw-r--r--src/sndobj/rfftw/ftwi_9.c370
-rw-r--r--src/sndobj/rfftw/generic.c102
-rw-r--r--src/sndobj/rfftw/malloc.c245
-rw-r--r--src/sndobj/rfftw/planner.c480
-rw-r--r--src/sndobj/rfftw/putils.c560
-rw-r--r--src/sndobj/rfftw/rader.c370
-rw-r--r--src/sndobj/rfftw/rconfig.c181
-rw-r--r--src/sndobj/rfftw/rexec.c535
-rw-r--r--src/sndobj/rfftw/rexec2.c232
-rw-r--r--src/sndobj/rfftw/rfftw.h99
-rw-r--r--src/sndobj/rfftw/rfftwf77.c130
-rw-r--r--src/sndobj/rfftw/rfftwnd.c570
-rw-r--r--src/sndobj/rfftw/rgeneric.c188
-rw-r--r--src/sndobj/rfftw/rplanner.c471
-rw-r--r--src/sndobj/rfftw/timer.c164
-rw-r--r--src/sndobj/rfftw/twiddle.c223
-rw-r--r--src/sndobj/rfftw/wisdom.c317
-rw-r--r--src/sndobj/rfftw/wisdomio.c104
156 files changed, 207 insertions, 63364 deletions
diff --git a/setup.py b/setup.py
index 9547ae0..4ab35ca 100644
--- a/setup.py
+++ b/setup.py
@@ -9,6 +9,7 @@ as a tool for other researchers in the field, allowing them to easily combine,
compare and contrast many of the published analysis/synthesis algorithms.
"""
import os
+import glob
from distutils.core import setup
from distutils.extension import Extension
from Cython.Distutils import build_ext
@@ -34,51 +35,49 @@ except ImportError:
macros = []
link_args = []
include_dirs = ['simpl', 'src/simpl', 'src/sms', 'src/sndobj',
- 'src/sndobj/rfftw', numpy_include, '/usr/local/include']
+ 'src/loris', numpy_include, '/usr/local/include']
libs = ['m', 'fftw3', 'gsl', 'gslcblas']
sources = []
-
# -----------------------------------------------------------------------------
# SndObj Library
# -----------------------------------------------------------------------------
sndobj_sources = """
- SndObj.cpp SndIO.cpp FFT.cpp IFFT.cpp PVA.cpp PVS.cpp IFGram.cpp
- SinAnal.cpp SinSyn.cpp AdSyn.cpp ReSyn.cpp HarmTable.cpp HammingTable.cpp
+ SndObj.cpp SndIO.cpp FFT.cpp PVA.cpp IFGram.cpp SinAnal.cpp
+ SinSyn.cpp AdSyn.cpp ReSyn.cpp HarmTable.cpp HammingTable.cpp
""".split()
-fftw_sources = """
- config.c fcr_9.c fhf_6.c fn_8.c frc_1.c ftw_16.c ftwi_7.c
- executor.c fftwnd.c fhf_7.c fn_9.c frc_10.c ftw_2.c ftwi_8.c
- fcr_1.c fhb_10.c fhf_8.c fni_1.c frc_11.c ftw_3.c ftwi_9.c
- fcr_10.c fhb_16.c fhf_9.c fni_10.c frc_12.c ftw_32.c generic.c
- fcr_11.c fhb_2.c fn_1.c fni_11.c frc_128.c ftw_4.c malloc.c
- fcr_12.c fhb_3.c fn_10.c fni_12.c frc_13.c ftw_5.c planner.c
- fcr_128.c fhb_32.c fn_11.c fni_13.c frc_14.c ftw_6.c putils.c
- fcr_13.c fhb_4.c fn_12.c fni_14.c frc_15.c ftw_64.c rader.c
- fcr_14.c fhb_5.c fn_13.c fni_15.c frc_16.c ftw_7.c rconfig.c
- fcr_15.c fhb_6.c fn_14.c fni_16.c frc_2.c ftw_8.c rexec.c
- fcr_16.c fhb_7.c fn_15.c fni_2.c frc_3.c ftw_9.c rexec2.c
- fcr_2.c fhb_8.c fn_16.c fni_3.c frc_32.c ftwi_10.c rfftwf77.c
- fcr_3.c fhb_9.c fn_2.c fni_32.c frc_4.c ftwi_16.c rfftwnd.c
- fcr_32.c fhf_10.c fn_3.c fni_4.c frc_5.c ftwi_2.c rgeneric.c
- fcr_4.c fhf_16.c fn_32.c fni_5.c frc_6.c ftwi_3.c rplanner.c
- fcr_5.c fhf_2.c fn_4.c fni_6.c frc_64.c ftwi_32.c timer.c
- fcr_6.c fhf_3.c fn_5.c fni_64.c frc_7.c ftwi_4.c twiddle.c
- fcr_64.c fhf_32.c fn_6.c fni_7.c frc_8.c ftwi_5.c wisdom.c
- fcr_7.c fhf_4.c fn_64.c fni_8.c frc_9.c ftwi_6.c wisdomio.c
- fcr_8.c fhf_5.c fn_7.c fni_9.c ftw_10.c ftwi_64.c cfft.c
- """.split()
+# fftw_sources = """
+# config.c fcr_9.c fhf_6.c fn_8.c frc_1.c ftw_16.c ftwi_7.c
+# executor.c fftwnd.c fhf_7.c fn_9.c frc_10.c ftw_2.c ftwi_8.c
+# fcr_1.c fhb_10.c fhf_8.c fni_1.c frc_11.c ftw_3.c ftwi_9.c
+# fcr_10.c fhb_16.c fhf_9.c fni_10.c frc_12.c ftw_32.c generic.c
+# fcr_11.c fhb_2.c fn_1.c fni_11.c frc_128.c ftw_4.c malloc.c
+# fcr_12.c fhb_3.c fn_10.c fni_12.c frc_13.c ftw_5.c planner.c
+# fcr_128.c fhb_32.c fn_11.c fni_13.c frc_14.c ftw_6.c putils.c
+# fcr_13.c fhb_4.c fn_12.c fni_14.c frc_15.c ftw_64.c rader.c
+# fcr_14.c fhb_5.c fn_13.c fni_15.c frc_16.c ftw_7.c rconfig.c
+# fcr_15.c fhb_6.c fn_14.c fni_16.c frc_2.c ftw_8.c rexec.c
+# fcr_16.c fhb_7.c fn_15.c fni_2.c frc_3.c ftw_9.c rexec2.c
+# fcr_2.c fhb_8.c fn_16.c fni_3.c frc_32.c ftwi_10.c rfftwf77.c
+# fcr_3.c fhb_9.c fn_2.c fni_32.c frc_4.c ftwi_16.c rfftwnd.c
+# fcr_32.c fhf_10.c fn_3.c fni_4.c frc_5.c ftwi_2.c rgeneric.c
+# fcr_4.c fhf_16.c fn_32.c fni_5.c frc_6.c ftwi_3.c rplanner.c
+# fcr_5.c fhf_2.c fn_4.c fni_6.c frc_64.c ftwi_32.c timer.c
+# fcr_6.c fhf_3.c fn_5.c fni_64.c frc_7.c ftwi_4.c twiddle.c
+# fcr_64.c fhf_32.c fn_6.c fni_7.c frc_8.c ftwi_5.c wisdom.c
+# fcr_7.c fhf_4.c fn_64.c fni_8.c frc_9.c ftwi_6.c wisdomio.c
+# fcr_8.c fhf_5.c fn_7.c fni_9.c ftw_10.c ftwi_64.c cfft.c
+# """.split()
sndobj_sources = map(lambda x: 'src/sndobj/' + x, sndobj_sources)
-sndobj_sources.extend(map(lambda x: 'src/sndobj/rfftw/' + x, fftw_sources))
+# sndobj_sources.extend(map(lambda x: 'src/sndobj/rfftw/' + x, fftw_sources))
sources.extend(sndobj_sources)
# -----------------------------------------------------------------------------
# SMS
# -----------------------------------------------------------------------------
-
sms_sources = """
OOURA.c cepstrum.c peakContinuation.c soundIO.c tables.c
fileIO.c peakDetection.c spectralApprox.c transforms.c
@@ -164,7 +163,7 @@ setup(
license='GPL',
author='John Glover',
author_email='j@johnglover.net',
- platforms=["Linux", "Mac OS-X", "Unix", "Windows"],
+ platforms=["Linux", "Mac OS-X", "Unix"],
version='0.3',
ext_modules=[base, peak_detection, partial_tracking, synthesis, residual],
cmdclass={'build_ext': build_ext},
diff --git a/src/sndobj/FFT.cpp b/src/sndobj/FFT.cpp
index a0f16ae..eda4847 100644
--- a/src/sndobj/FFT.cpp
+++ b/src/sndobj/FFT.cpp
@@ -1,4 +1,3 @@
-
////////////////////////////////////////////////////////////////////////
// This file is part of the SndObj library
//
@@ -14,7 +13,7 @@
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
//
// Copyright (c)Victor Lazzarini, 1997-2004
// See License.txt for a disclaimer of all warranties
@@ -28,7 +27,6 @@
#include "FFT.h"
FFT::FFT(){
-
m_table = 0;
// hopsize controls decimation
@@ -46,11 +44,9 @@ FFT::FFT(){
m_frames = m_fftsize/m_hopsize;
m_sigframe = new double*[m_frames];
- m_ffttmp = new double[m_fftsize];
m_counter = new int[m_frames];
m_halfsize = m_fftsize/2;
m_fund = m_sr/m_fftsize;
- memset(m_ffttmp, 0, m_fftsize*sizeof(double));
int i;
for(i = 0; i < m_frames; i++){
m_sigframe[i] = new double[m_fftsize];
@@ -58,7 +54,11 @@ FFT::FFT(){
m_counter[i] = i*m_hopsize;
}
- m_plan = rfftw_create_plan(m_fftsize, FFTW_REAL_TO_COMPLEX, FFTW_ESTIMATE);
+ m_fftIn = (double*) fftw_malloc(sizeof(double) * m_fftsize);
+ m_fftOut = (fftw_complex*) fftw_malloc(sizeof(fftw_complex) * m_fftsize);
+ m_plan = fftw_plan_dft_r2c_1d(m_fftsize, m_fftIn, m_fftOut, FFTW_ESTIMATE);
+ memset(m_fftIn, 0, m_fftsize*sizeof(double));
+
AddMsg("scale", 21);
AddMsg("fft size", 22);
@@ -69,11 +69,9 @@ FFT::FFT(){
m_cur =0;
}
-
-FFT::FFT(Table* window, SndObj* input, double scale,
- int fftsize, int hopsize, double sr):
+FFT::FFT(Table* window, SndObj* input, double scale,
+ int fftsize, int hopsize, double sr):
SndObj(input, fftsize, sr){
-
m_table = window;
m_hopsize = hopsize;
@@ -81,11 +79,9 @@ FFT::FFT(Table* window, SndObj* input, double scale,
m_frames = m_fftsize/m_hopsize;
m_sigframe = new double*[m_frames];
- m_ffttmp = new double[m_fftsize];
m_counter = new int[m_frames];
m_halfsize = m_fftsize/2;
m_fund = m_sr/m_fftsize;
- memset(m_ffttmp, 0, m_fftsize*sizeof(double));
int i;
for(i = 0; i < m_frames; i++){
m_sigframe[i] = new double[m_fftsize];
@@ -93,7 +89,10 @@ FFT::FFT(Table* window, SndObj* input, double scale,
m_counter[i] = i*m_hopsize;
}
- m_plan = rfftw_create_plan(m_fftsize, FFTW_REAL_TO_COMPLEX, FFTW_ESTIMATE);
+ m_fftIn = (double*) fftw_malloc(sizeof(double) * m_fftsize);
+ m_fftOut = (fftw_complex*) fftw_malloc(sizeof(fftw_complex) * m_fftsize);
+ m_plan = fftw_plan_dft_r2c_1d(m_fftsize, m_fftIn, m_fftOut, FFTW_ESTIMATE);
+ memset(m_fftIn, 0, m_fftsize*sizeof(double));
AddMsg("scale", 21);
AddMsg("fft size", 22);
@@ -104,14 +103,12 @@ FFT::FFT(Table* window, SndObj* input, double scale,
m_cur =0;
}
-
FFT::~FFT(){
-#ifndef WIN
- rfftw_destroy_plan(m_plan);
-#endif
+ fftw_destroy_plan(m_plan);
+ fftw_free(m_fftIn);
+ fftw_free(m_fftOut);
delete[] m_counter;
delete[] m_sigframe;
- delete[] m_ffttmp;
}
void
@@ -126,13 +123,14 @@ FFT::SetHopSize(int hopsize){
ReInit();
}
-void
-FFT::ReInit(){
+void
+FFT::ReInit(){
+ fftw_destroy_plan(m_plan);
+ fftw_free(m_fftIn);
+ fftw_free(m_fftOut);
- rfftw_destroy_plan(m_plan);
delete[] m_counter;
delete[] m_sigframe;
- delete[] m_ffttmp;
delete[] m_output;
if(!(m_output = new double[m_vecsize])){
@@ -143,10 +141,8 @@ FFT::ReInit(){
return;
}
-
m_frames = m_fftsize/m_hopsize;
m_sigframe = new double*[m_frames];
- m_ffttmp = new double[m_fftsize];
m_counter = new int[m_frames];
m_halfsize = m_fftsize/2;
m_fund = m_sr/m_fftsize;
@@ -157,15 +153,17 @@ FFT::ReInit(){
m_counter[i] = i*m_hopsize;
}
- m_plan = rfftw_create_plan(m_vecsize, FFTW_REAL_TO_COMPLEX, FFTW_ESTIMATE);
+ m_fftIn = (double*) fftw_malloc(sizeof(double) * m_fftsize);
+ m_fftOut = (fftw_complex*) fftw_malloc(sizeof(fftw_complex) * m_fftsize);
+ m_plan = fftw_plan_dft_r2c_1d(m_fftsize, m_fftIn, m_fftOut, FFTW_ESTIMATE);
+ memset(m_fftIn, 0, m_fftsize*sizeof(double));
+
m_cur =0;
m_norm = m_fftsize/m_scale;
}
-
int
FFT::Set(const char* mess, double value){
-
switch(FindMsg(mess)){
case 21:
@@ -179,16 +177,14 @@ FFT::Set(const char* mess, double value){
case 23:
SetHopSize((int) value);
return 1;
-
- default:
- return SndObj::Set(mess, value);
+ default:
+ return SndObj::Set(mess, value);
}
}
int
FFT::Connect(const char* mess, void *input){
-
switch(FindMsg(mess)){
case 24:
@@ -199,63 +195,66 @@ FFT::Connect(const char* mess, void *input){
return SndObj::Connect(mess, input);
}
-
}
short
FFT::DoProcess(){
-
if(!m_error){
if(m_input && m_table){
if(m_enable){
- int i; double sig = 0.f;
- for(m_vecpos = 0; m_vecpos < m_hopsize; m_vecpos++) {
- // signal input
- sig = m_input->Output(m_vecpos);
- // distribute to the signal fftframes and apply the window
- // according to a time pointer (kept by counter[n])
- for(i=0;i < m_frames; i++){
- m_sigframe[i][m_counter[i]]= sig*m_table->Lookup(m_counter[i]);
- m_counter[i]++;
- }
- }
- // every hopsize samples
- // set the current sigframe to be transformed
- m_cur--; if(m_cur<0) m_cur = m_frames-1;
- // transform it and fill the output buffer
- fft(m_sigframe[m_cur]);
- // zero the current sigframe time pointer
- m_counter[m_cur] = 0;
- return 1;
-
- } else { // if disabled
- for(m_vecpos=0; m_vecpos < m_hopsize; m_vecpos++)
- m_output[m_vecpos] = 0.f;
- return 1;
+ int i; double sig = 0.f;
+
+ for(m_vecpos = 0; m_vecpos < m_hopsize; m_vecpos++){
+ // signal input
+ sig = m_input->Output(m_vecpos);
+ // distribute to the signal fftframes and apply the window
+ // according to a time pointer (kept by counter[n])
+ for(i=0;i < m_frames; i++){
+ m_sigframe[i][m_counter[i]]= sig*m_table->Lookup(m_counter[i]);
+ m_counter[i]++;
+ }
+ }
+
+ // every hopsize samples
+ // set the current sigframe to be transformed
+ m_cur--;
+ if(m_cur<0) m_cur = m_frames-1;
+
+ // transform it and fill the output buffer
+ fft(m_sigframe[m_cur]);
+
+ // zero the current sigframe time pointer
+ m_counter[m_cur] = 0;
+ return 1;
+
+ }
+ else{ // if disabled
+ for(m_vecpos=0; m_vecpos < m_hopsize; m_vecpos++)
+ m_output[m_vecpos] = 0.f;
+ return 1;
}
- } else {
+ }
+ else {
m_error = 3;
return 0;
}
}
- else
+ else
return 0;
}
void
FFT::fft(double* signal){
- // FFT function
- rfftw_one(m_plan, signal, m_ffttmp);
-
- // re-arrange output into re, im format
- // packing re[0] and re[nyquist] together,
- // normalise it and fill the output buffer
-
- m_output[0] = m_ffttmp[0]/m_norm;
- m_output[1] = m_ffttmp[m_halfsize]/m_norm;
- for(int i=2, i2=1; i<m_fftsize; i+=2){
- i2 = i/2;
- m_output[i] = m_ffttmp[i2]/m_norm;
- m_output[i+1] = m_ffttmp[m_fftsize-(i2)]/m_norm;
+ memcpy(m_fftIn, &signal[0], sizeof(double) * m_fftsize);
+ fftw_execute(m_plan);
+
+ m_output[0] = m_fftOut[0][0] / m_norm;
+ m_output[1] = m_fftOut[0][1] / m_norm;
+
+ int i = 2;
+ for(int bin = 1; bin < m_halfsize; bin++){
+ m_output[i] = (m_fftOut[bin][0] * 2) / m_norm;
+ m_output[i+1] = (m_fftOut[bin][1] * 2) / m_norm;
+ i += 2;
}
}
diff --git a/src/sndobj/FFT.h b/src/sndobj/FFT.h
index 9b8c78e..1f8212b 100644
--- a/src/sndobj/FFT.h
+++ b/src/sndobj/FFT.h
@@ -1,4 +1,3 @@
-
////////////////////////////////////////////////////////////////////////
// This file is part of the SndObj library
//
@@ -31,12 +30,10 @@
#define _FFT_H
#include "SndObj.h"
#include "Table.h"
-#include <rfftw/rfftw.h>
+#include <fftw3.h>
class FFT : public SndObj {
-
protected:
-
// m_vecsize is FFT size
// m_hopsize should always be set to the time-domain
// vector size
@@ -44,14 +41,15 @@ class FFT : public SndObj {
int m_hopsize; // hopsize
int m_halfsize; // 1/2 fftsize
int *m_counter; // counter
- rfftw_plan m_plan; // FFTW initialisation
+ double* m_fftIn;
+ fftw_complex* m_fftOut;
+ fftw_plan m_plan;
double m_fund;
double m_scale; // scaling factor
double m_norm; // norm factor
int m_frames; // frame overlaps
double** m_sigframe; // signal frames
- double* m_ffttmp; // tmp vector for fft transform
int m_cur; // index into current frame
Table* m_table; // window
@@ -59,17 +57,14 @@ class FFT : public SndObj {
private:
// fft wrapper method
void inline fft(double* signal);
-
// reset memory and initialisation
void ReInit();
public:
-
FFT();
FFT(Table* window, SndObj* input, double scale=1.f,
int fftsize=DEF_FFTSIZE, int hopsize=DEF_VECSIZE,
double m_sr=DEF_SR);
-
~FFT();
int GetFFTSize() { return m_fftsize; }
@@ -82,12 +77,6 @@ class FFT : public SndObj {
virtual void SetHopSize(int hopsize);
short DoProcess();
-
};
#endif
-
-
-
-
-
diff --git a/src/sndobj/IFFT.cpp b/src/sndobj/IFFT.cpp
deleted file mode 100644
index 01f693b..0000000
--- a/src/sndobj/IFFT.cpp
+++ /dev/null
@@ -1,262 +0,0 @@
-
-////////////////////////////////////////////////////////////////////////
-// This file is part of the SndObj library
-//
-// This program is free software; you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 2 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-//
-// Copyright (c)Victor Lazzarini, 1997-2004
-// See License.txt for a disclaimer of all warranties
-// and licensing information
-
-/////////////////////////////////////////////////
-// IFFT.cpp: implementation of the IFFT class
-// short-time inverse fast fourier transform
-// Victor Lazzarini, 2003
-/////////////////////////////////////////////////
-#include "IFFT.h"
-
-
-IFFT::IFFT(){
-
- m_table = 0;
-
- // vectorsize equals hopsize
- // so that each call of DoProcess adds a
- // new window to the overlap-add process
-
- m_hopsize = DEF_VECSIZE;
- m_fftsize = DEF_FFTSIZE;
- m_frames = m_fftsize/m_hopsize;
-
- m_sigframe = new double*[m_frames];
- m_ffttmp = new double[m_fftsize];
- m_counter = new int[m_frames];
- m_halfsize = m_fftsize/2;
- m_fund = m_sr/m_fftsize;
- int i;
- memset(m_ffttmp, 0, m_fftsize*sizeof(double));
- for(i = 0; i < m_frames; i++){
- m_sigframe[i] = new double[m_fftsize];
- memset(m_sigframe[i], 0, m_fftsize*sizeof(double));
- m_counter[i] = i*m_hopsize;
- }
-
- m_plan = rfftw_create_plan(m_fftsize, FFTW_COMPLEX_TO_REAL, FFTW_ESTIMATE);
-
- AddMsg("fft size", 21);
- AddMsg("hop size", 22);
- AddMsg("window", 23);
-
- m_cur = 0;
-}
-
-IFFT::IFFT(Table* window, SndObj* input, int fftsize, int hopsize,
- double sr):
- SndObj(input,hopsize, sr)
-{
-
- m_table = window;
-
- m_hopsize = hopsize;
- m_fftsize = fftsize;
-
- if(m_fftsize){
- m_frames = m_fftsize/m_hopsize;
-
- m_sigframe = new double*[m_frames];
- m_ffttmp = new double[m_fftsize];
- m_counter = new int[m_frames];
- m_halfsize = m_fftsize/2;
- m_fund = m_sr/m_fftsize;
- memset(m_ffttmp, 0, m_fftsize*sizeof(double));
- int i;
- for(i = 0; i < m_frames; i++){
- m_sigframe[i] = new double[m_fftsize];
- memset(m_sigframe[i], 0, m_fftsize*sizeof(double));
- m_counter[i] = i*m_hopsize;
- }
-
- m_plan = rfftw_create_plan(m_fftsize, FFTW_COMPLEX_TO_REAL, FFTW_ESTIMATE);
- }
-
- AddMsg("fft size", 21);
- AddMsg("hop size", 22);
- AddMsg("window", 23);
-
- m_cur = 0;
-}
-
-IFFT::~IFFT(){
-
- if(m_fftsize){
-#ifndef WIN
- rfftw_destroy_plan(m_plan);
-#endif
- delete[] m_counter;
- delete[] m_ffttmp;
- delete[] m_sigframe;
- }
-}
-
-void
-IFFT::SetFFTSize(int fftsize){
- m_fftsize = fftsize;
- ReInit();
-}
-
-void
-IFFT::SetHopSize(int hopsize){
- SetVectorSize(m_hopsize = hopsize);
- ReInit();
-}
-
-void
-IFFT::ReInit(){
-
- rfftw_destroy_plan(m_plan);
- delete[] m_counter;
- delete[] m_sigframe;
- delete[] m_ffttmp;
- delete[] m_output;
-
- if(!(m_output = new double[m_vecsize])){
- m_error = 1;
-#ifdef DEBUG
- cout << ErrorMessage();
-#endif
- return;
- }
-
-
- m_frames = m_fftsize/m_hopsize;
- m_sigframe = new double*[m_frames];
- m_ffttmp = new double[m_fftsize];
- m_counter = new int[m_frames];
- m_halfsize = m_fftsize/2;
- m_fund = m_sr/m_fftsize;
- int i;
- for(i = 0; i < m_frames; i++){
- m_sigframe[i] = new double[m_fftsize];
- memset(m_sigframe[i], 0, m_fftsize*sizeof(double));
- m_counter[i] = i*m_hopsize;
- }
-
- m_plan = rfftw_create_plan(m_vecsize, FFTW_REAL_TO_COMPLEX, FFTW_ESTIMATE);
- m_cur =0;
-
-}
-
-
-int
-IFFT::Set(char* mess, double value){
-
- switch(FindMsg(mess)){
-
- case 21:
- SetFFTSize((int) value);
- return 1;
-
- case 22:
- SetHopSize((int) value);
- return 1;
-
- default:
- return SndObj::Set(mess, value);
-
- }
-}
-
-int
-IFFT::Connect(char* mess, void *input){
-
- switch(FindMsg(mess)){
-
- case 23:
- SetWindow((Table *) input);
- return 1;
-
- default:
- return SndObj::Connect(mess, input);
-
- }
-
-}
-
-short
-IFFT::DoProcess(){
-
-
- if(!m_error){
- if(m_input && m_table){
- if(m_enable){
- int i; double out = 0.;
- // Put the input fftframe into
- // the current (free) signal frame
- // and transform it
- ifft(m_sigframe[m_cur]);
- // set the current signal frame to the next
- // one in the circular list
- m_counter[m_cur] = 0;
- m_cur--; if(m_cur<0) m_cur = m_frames-1;
-
- for(m_vecpos = 0; m_vecpos < m_vecsize; m_vecpos++){
- // overlap-add the time-domain signal frames
- for(i=0; i < m_frames; i++){
- out += m_sigframe[i][m_counter[i]]*m_table->Lookup(m_counter[i]);
- m_counter[i]++;
- }
- // output it.
- m_output[m_vecpos] = (double) out;
- out = 0.;
- }
-
- return 1;
- } else { // if disabled
- for(m_vecpos = 0; m_vecpos < m_vecsize; m_vecpos++)
- m_output[m_vecpos] = 0.f;
- return 1;
- }
- } else {
- m_error = 3;
- return 0;
- }
- }
- else
- return 0;
-}
-
-
-
-
-void
-IFFT::ifft(double* signal) {
-
- // get input FFT frame and
- // prepare data for fftw
-
- m_ffttmp[0] = m_input->Output(0);
- m_ffttmp[m_halfsize] = m_input->Output(1);
- for(int i=2, i2=1; i<m_fftsize; i+=2){
- i2 = i/2;
- m_ffttmp[i2] = m_input->Output(i);
- m_ffttmp[m_fftsize-(i2)] = m_input->Output(i+1);
- }
-
- // Inverse FFT function
- rfftw_one(m_plan, m_ffttmp, signal);
-
-}
-
-
diff --git a/src/sndobj/IFFT.h b/src/sndobj/IFFT.h
deleted file mode 100644
index e748a68..0000000
--- a/src/sndobj/IFFT.h
+++ /dev/null
@@ -1,88 +0,0 @@
-
-////////////////////////////////////////////////////////////////////////
-// This file is part of the SndObj library
-//
-// This program is free software; you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 2 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-//
-// Copyright (c)Victor Lazzarini, 1997-2004
-// See License.txt for a disclaimer of all warranties
-// and licensing information
-
-//////////////////////////////////////////////////////
-// IFFT.h: interface of the IFFT class:
-// short-time inverse fast fourier transform
-// using the FFTW library (v. 2.1.3)
-// Victor Lazzarini, 2003
-/////////////////////////////////////////////////////////
-
-#ifndef _IFFT_H
-#define _IFFT_H
-#include <rfftw/rfftw.h>
-#include "Table.h"
-#include "SndObj.h"
-
-class IFFT : public SndObj {
-
- protected:
-
- // m_vecsize is hopsize
- // and fftsize is always a whole-number
- // multiple of it.
-
- int m_fftsize;
- int m_hopsize; // hopsize
- int m_halfsize; // 1/2 fftsize
- int *m_counter; // counter
- rfftw_plan m_plan; // FFTW initialisation
- double m_fund;
-
- int m_frames; // frame overlaps
- double** m_sigframe; // signal frames
- double* m_ffttmp; // tmp vector for fft transform
- int m_cur; // index into current frame
-
- Table* m_table; // window
-
- // reset memory and initialisation
- void ReInit();
-
- private:
- // ifft wrapper method
- void inline ifft(double* signal);
-
-
-
- public:
-
- IFFT();
- IFFT(Table* window, SndObj* input, int fftsize = DEF_FFTSIZE,
- int hopsize=DEF_VECSIZE, double sr=DEF_SR);
- ~IFFT();
-
-
- int GetFFTSize() { return m_fftsize; }
- int GetHopSize() { return m_hopsize; }
- void SetWindow(Table* window){ m_table = window;}
- int Connect(char* mess, void* input);
- int Set(char* mess, double value);
- virtual void SetFFTSize(int fftsize);
- virtual void SetHopSize(int hopsize);
-
- short DoProcess();
-
-
-};
-
-#endif
diff --git a/src/sndobj/IFGram.cpp b/src/sndobj/IFGram.cpp
index 2da3ab9..a5b374d 100644
--- a/src/sndobj/IFGram.cpp
+++ b/src/sndobj/IFGram.cpp
@@ -1,4 +1,3 @@
-
////////////////////////////////////////////////////////////////////////
// This file is part of the SndObj library
//
@@ -30,43 +29,43 @@
IFGram::IFGram(){
m_diffwin = new double[m_fftsize];
- m_fftdiff = new double[m_fftsize];
- m_diffsig = new double[m_fftsize];
m_factor = m_sr/TWOPI;
m_pdiff = new double[m_halfsize];
+ m_diffsig = (double*) fftw_malloc(sizeof(double) * m_fftsize);
+ m_fftdiff = (fftw_complex*) fftw_malloc(sizeof(fftw_complex) * m_fftsize);
+ m_diffplan = fftw_plan_dft_r2c_1d(m_fftsize, m_diffsig, m_fftdiff, FFTW_ESTIMATE);
+
memset(m_diffwin, 0, sizeof(double) * m_fftsize);
- memset(m_fftdiff, 0, sizeof(double) * m_fftsize);
- memset(m_diffsig, 0, sizeof(double) * m_fftsize);
memset(m_pdiff, 0, sizeof(double) * m_halfsize);
+ memset(m_diffsig, 0, sizeof(double) * m_fftsize);
}
-
IFGram::IFGram(Table* window, SndObj* input, double scale,
int fftsize, int hopsize, double sr)
- :PVA(window, input, scale, fftsize, hopsize, sr)
-{
+ :PVA(window, input, scale, fftsize, hopsize, sr){
m_diffwin = new double[m_fftsize];
- m_fftdiff = new double[m_fftsize];
- m_diffsig = new double[m_fftsize];
m_pdiff = new double[m_halfsize];
for(int i=0; i<m_fftsize; i++){
m_diffwin[i] = m_table->Lookup(i) - m_table->Lookup(i+1);
}
m_factor = m_sr/TWOPI;
- memset(m_fftdiff, 0, sizeof(double) * m_fftsize);
- memset(m_diffsig, 0, sizeof(double) * m_fftsize);
+ m_diffsig = (double*) fftw_malloc(sizeof(double) * m_fftsize);
+ m_fftdiff = (fftw_complex*) fftw_malloc(sizeof(fftw_complex) * m_fftsize);
+ m_diffplan = fftw_plan_dft_r2c_1d(m_fftsize, m_diffsig, m_fftdiff, FFTW_ESTIMATE);
+
memset(m_pdiff, 0, sizeof(double) * m_halfsize);
+ memset(m_diffsig, 0, sizeof(double) * m_fftsize);
}
-
IFGram::~IFGram(){
delete[] m_diffwin;
- delete[] m_fftdiff;
- delete[] m_diffsig;
-}
+ fftw_destroy_plan(m_diffplan);
+ fftw_free(m_diffsig);
+ fftw_free(m_fftdiff);
+}
int
IFGram::Set(const char* mess, double value){
@@ -103,36 +102,39 @@ IFGram::SetFFTSize(int fftsize){
FFT::SetFFTSize(fftsize);
delete[] m_diffwin;
- delete[] m_fftdiff;
delete[] m_phases;
+ fftw_destroy_plan(m_diffplan);
+ fftw_free(m_diffsig);
+ fftw_free(m_fftdiff);
+
m_factor = m_sr*TWOPI/m_fftsize;
m_diffwin = new double[m_fftsize];
- m_fftdiff = new double[m_fftsize];
m_phases = new double[m_halfsize];
+ m_diffsig = (double*) fftw_malloc(sizeof(double) * m_fftsize);
+ m_fftdiff = (fftw_complex*) fftw_malloc(sizeof(fftw_complex) * m_fftsize);
+
for(int i=0; i<m_fftsize; i++){
m_diffwin[i] = m_table->Lookup(i) - m_table->Lookup(i+1);
}
- memset(m_fftdiff, 0, sizeof(double) * m_fftsize);
- memset(m_diffsig, 0, sizeof(double) * m_fftsize);
memset(m_pdiff, 0, sizeof(double) * m_halfsize);
+ memset(m_diffsig, 0, sizeof(double) * m_fftsize);
}
void
IFGram::IFAnalysis(double* signal){
double powerspec, da,db, a, b, ph,d;
- int i2, i;
- for(i=0; i<m_fftsize; i++){
+ for(int i = 0; i < m_fftsize; i++){
m_diffsig[i] = signal[i]*m_diffwin[i];
signal[i] = signal[i]*m_table->Lookup(i);
}
double tmp1, tmp2;
- for(i=0; i<m_halfsize; i++){
+ for(int i = 0; i < m_halfsize; i++){
tmp1 = m_diffsig[i+m_halfsize];
tmp2 = m_diffsig[i];
m_diffsig[i] = tmp1;
@@ -142,38 +144,37 @@ IFGram::IFAnalysis(double* signal){
tmp2 = signal[i];
signal[i] = tmp1;
signal[i+m_halfsize] = tmp2;
-
}
- rfftw_one(m_plan, signal, m_ffttmp);
- rfftw_one(m_plan, m_diffsig, m_fftdiff);
+ memcpy(m_fftIn, &signal[0], sizeof(double) * m_fftsize);
+ fftw_execute(m_plan);
+ fftw_execute(m_diffplan);
- m_output[0] = m_ffttmp[0]/m_norm;
- m_output[1] = m_ffttmp[m_halfsize]/m_norm;
+ m_output[0] = m_fftOut[0][0] / m_norm;
+ m_output[1] = m_fftOut[0][1] / m_norm;
- for(i=2; i<m_fftsize; i+=2){
-
- i2 = i/2;
- a = m_ffttmp[i2]*2/m_norm;
- b = m_ffttmp[m_fftsize-(i2)]*2/m_norm;
- da = m_fftdiff[i2]*2/m_norm;
- db = m_fftdiff[m_fftsize-(i2)]*2/m_norm;
- powerspec = a*a+b*b;
+ int i = 2;
+ for(int bin = 1; bin < m_halfsize; bin++){
+ a = (m_fftOut[bin][0] * 2) / m_norm;
+ b = (m_fftOut[bin][1] * 2) / m_norm;
+ da = (m_fftdiff[bin][0] * 2) / m_norm;
+ db = (m_fftdiff[bin][1] * 2) / m_norm;
+ powerspec = (a * a) + (b * b);
if((m_output[i] = (double)sqrt(powerspec)) != 0.f){
- m_output[i+1] = ((a*db - b*da)/powerspec)*m_factor + i2*m_fund;
+ m_output[i+1] = ((a*db - b*da)/powerspec)*m_factor + bin*m_fund;
ph = (double) atan2(b, a);
- d = ph - m_phases[i2];
+ d = ph - m_phases[bin];
while(d > PI) d -= TWOPI;
while(d < -PI) d += TWOPI;
- m_phases[i2] += d;
+ m_phases[bin] += d;
}
else{
- m_output[i+1] = i2*m_fund;
- m_phases[i2] = 0.f ;
+ m_output[i+1] = bin*m_fund;
+ m_phases[bin] = 0.f ;
}
+ i += 2;
}
-
}
short
diff --git a/src/sndobj/IFGram.h b/src/sndobj/IFGram.h
index 609ebca..51cb0ab 100644
--- a/src/sndobj/IFGram.h
+++ b/src/sndobj/IFGram.h
@@ -1,4 +1,3 @@
-
////////////////////////////////////////////////////////////////////////
// This file is part of the SndObj library
//
@@ -32,37 +31,26 @@
#include "PVA.h"
class IFGram : public PVA {
-
protected:
-
-
double* m_diffwin; // difference window
- double* m_fftdiff; // holds fft of diff window
double* m_diffsig;
double* m_pdiff;
+ fftw_complex* m_fftdiff; // fft of diff window
+ fftw_plan m_diffplan;
private:
-
void inline IFAnalysis(double* signal);
public:
-
IFGram();
IFGram(Table* window, SndObj* input, double scale=1.f,
int fftsize=DEF_FFTSIZE, int hopsize=DEF_VECSIZE, double sr=DEF_SR);
-
~IFGram();
int Set(const char* mess, double value);
int Connect(const char* mess, void* input);
void SetFFTSize(int fftsize);
short DoProcess();
-
};
#endif
-
-
-
-
-
diff --git a/src/sndobj/PVA.cpp b/src/sndobj/PVA.cpp
index a1bcf0c..8844057 100644
--- a/src/sndobj/PVA.cpp
+++ b/src/sndobj/PVA.cpp
@@ -1,4 +1,3 @@
-
////////////////////////////////////////////////////////////////////////
// This file is part of the SndObj library
//
@@ -14,7 +13,7 @@
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
//
// Copyright (c)Victor Lazzarini, 1997-2004
// See License.txt for a disclaimer of all warranties
@@ -34,27 +33,21 @@ PVA::PVA(){
m_factor = m_sr/(m_hopsize*TWOPI);
}
-
PVA::PVA(Table* window, SndObj* input, double scale,
- int fftsize, int hopsize, double sr)
- :FFT(window, input, scale, fftsize, hopsize, sr)
-{
+ int fftsize, int hopsize, double sr)
+ :FFT(window, input, scale, fftsize, hopsize, sr){
m_rotcount = 0;
m_phases = new double[m_halfsize];
memset(m_phases, 0, sizeof(double)*m_halfsize);
m_factor = m_sr/(m_hopsize*TWOPI);
}
-
PVA::~PVA(){
delete[] m_phases;
-
}
-
int
PVA::Set(const char* mess, double value){
-
switch(FindMsg(mess)){
case 22:
@@ -64,12 +57,12 @@ PVA::Set(const char* mess, double value){
case 23:
SetHopSize((int) value);
return 1;
-
- default:
- return FFT::Set(mess, value);
+ default:
+ return FFT::Set(mess, value);
}
}
+
void
PVA::SetFFTSize(int fftsize){
m_rotcount = 0;
@@ -85,81 +78,78 @@ PVA::SetHopSize(int hopsize){
void
PVA::pvanalysis(double* signal){
+ double re, im, pha, diff;
+
+ memcpy(m_fftIn, &signal[0], sizeof(double) * m_fftsize);
+ fftw_execute(m_plan);
+
+ m_output[0] = m_fftOut[0][0] / m_norm;
+ m_output[1] = m_fftOut[0][1] / m_norm;
- double re, im, pha, diff;
- int i2;
-
- rfftw_one(m_plan, signal, m_ffttmp);
-
- m_output[0] = m_ffttmp[0]/m_norm;
- m_output[1] = m_ffttmp[m_halfsize]/m_norm;
-
- for(int i=2; i<m_fftsize; i+=2){
- i2 = i/2;
- re = m_ffttmp[i2]/m_norm;
- im = m_ffttmp[m_fftsize-(i2)]/m_norm;
-
- if((m_output[i] = sqrt((re*re)+(im*im)))==0.f){
- diff = 0.f;
+ int i = 2;
+ for(int bin = 1; bin < m_halfsize; bin++){
+ re = (m_fftOut[bin][0] * 2) / m_norm;
+ im = (m_fftOut[bin][1] * 2) / m_norm;
+
+ if((m_output[i] = sqrt((re*re)+(im*im))) == 0.f){
+ diff = 0.f;
}
else {
pha = atan2(im,re);
- diff = pha - m_phases[i2];
- m_phases[i2] = (double) pha;
+ diff = pha - m_phases[bin];
+ m_phases[bin] = (double) pha;
while(diff > PI) diff -= TWOPI;
while(diff < -PI) diff += TWOPI;
}
- m_output[i+1] = (double) diff*m_factor + i2*m_fund;
-
+ m_output[i+1] = (double) (diff * m_factor) + (bin * m_fund);
+ i += 2;
}
-
}
-
short
PVA::DoProcess(){
-
if(!m_error){
if(m_input){
if(m_enable){
- int i; double sig = 0.f;
- for(m_vecpos = 0; m_vecpos < m_hopsize; m_vecpos++) {
- // signal input
- sig = m_input->Output(m_vecpos);
- // distribute to the signal fftframes and apply the window
- // according to a time pointer (kept by counter[n])
- // input is also rotated according to the input time.
- for(i=0;i < m_frames; i++){
- m_sigframe[i][m_rotcount]= (double) sig*m_table->Lookup(m_counter[i]);
- m_counter[i]++;
- }
- m_rotcount++;
- }
- m_rotcount %= m_fftsize;
- // every vecsize samples
- // set the current fftframe to be transformed
- m_cur--; if(m_cur<0) m_cur = m_frames-1;
-
- // phase vocoder analysis
- pvanalysis(m_sigframe[m_cur]);
-
- // zero the current fftframe time pointer
- m_counter[m_cur] = 0;
- return 1;
-
- } else { // if disabled, reset the fftframes
- for(m_vecpos =0; m_vecpos < m_hopsize; m_vecpos++)
- m_output[m_vecpos] = 0.f;
- return 1;
+ int i; double sig = 0.f;
+ for(m_vecpos = 0; m_vecpos < m_hopsize; m_vecpos++){
+ // signal input
+ sig = m_input->Output(m_vecpos);
+
+ // distribute to the signal fftframes and apply the window
+ // according to a time pointer (kept by counter[n])
+ // input is also rotated according to the input time.
+ for(i=0;i < m_frames; i++){
+ m_sigframe[i][m_rotcount]= (double) sig*m_table->Lookup(m_counter[i]);
+ m_counter[i]++;
+ }
+ m_rotcount++;
+ }
+
+ m_rotcount %= m_fftsize;
+ // every vecsize samples
+ // set the current fftframe to be transformed
+ m_cur--; if(m_cur<0) m_cur = m_frames-1;
+
+ // phase vocoder analysis
+ pvanalysis(m_sigframe[m_cur]);
+
+ // zero the current fftframe time pointer
+ m_counter[m_cur] = 0;
+ return 1;
}
-
- } else {
+ else{ // if disabled, reset the fftframes
+ for(m_vecpos =0; m_vecpos < m_hopsize; m_vecpos++)
+ m_output[m_vecpos] = 0.f;
+ return 1;
+ }
+ }
+ else {
m_error = 3;
return 0;
}
}
- else
+ else
return 0;
}
-
diff --git a/src/sndobj/PVA.h b/src/sndobj/PVA.h
index 2088367..c5d2b8b 100644
--- a/src/sndobj/PVA.h
+++ b/src/sndobj/PVA.h
@@ -1,4 +1,3 @@
-
////////////////////////////////////////////////////////////////////////
// This file is part of the SndObj library
//
@@ -32,35 +31,25 @@
#include "FFT.h"
class PVA : public FFT {
-
protected:
-
int m_rotcount; // rotation counter
double m_factor; // conversion factor
double* m_phases;
private:
-
void inline pvanalysis(double* signal);
public:
-
PVA();
PVA(Table* window, SndObj* input, double scale=1.f,
int fftsize=DEF_FFTSIZE, int hopsize=DEF_VECSIZE, double sr=DEF_SR);
-
~PVA();
+
double Outphases(int pos){ return m_phases[pos]; } // reads phase output.
int Set(const char* mess, double value);
void SetFFTSize(int fftsize);
void SetHopSize(int hopsize);
short DoProcess();
-
};
#endif
-
-
-
-
-
diff --git a/src/sndobj/PVS.cpp b/src/sndobj/PVS.cpp
deleted file mode 100644
index d38f4e5..0000000
--- a/src/sndobj/PVS.cpp
+++ /dev/null
@@ -1,168 +0,0 @@
-
-////////////////////////////////////////////////////////////////////////
-// This file is part of the SndObj library
-//
-// This program is free software; you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 2 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-//
-// Copyright (c)Victor Lazzarini, 1997-2004
-// See License.txt for a disclaimer of all warranties
-// and licensing information
-
-/////////////////////////////////////////////////
-// PVS.cpp : Phase Vocoder Synthesis Class
-//
-// Victor Lazzarini, 2003
-//
-/////////////////////////////////////////////////
-#include "PVS.h"
-
-
-PVS::PVS(){
- m_rotcount = m_vecsize;
- m_phases = new double[m_halfsize];
- memset(m_phases, 0, sizeof(double)*m_halfsize);
- m_factor = (m_hopsize*TWOPI)/m_sr;
- m_first = true;
-}
-
-PVS::PVS(Table* window, SndObj* input, int fftsize,
- int hopsize, double sr)
- :IFFT(window, input,fftsize,hopsize,sr)
-{
- m_rotcount = m_vecsize;
- if(m_halfsize){
- m_phases = new double[m_halfsize];
- memset(m_phases, 0, sizeof(double)*m_halfsize);
- }
- m_factor = (m_hopsize*TWOPI)/m_sr;
- m_first = true;
-}
-
-PVS::~PVS(){
- if(m_halfsize)
- delete[] m_phases;
-}
-
-
-int
-PVS::Set(char* mess, double value){
-
- switch(FindMsg(mess)){
-
- case 22:
- SetFFTSize((int) value);
- return 1;
-
- case 23:
- SetHopSize((int) value);
- return 1;
-
- default:
- return IFFT::Set(mess, value);
-
- }
-}
-
-void
-PVS::SetFFTSize(int fftsize){
- m_rotcount = m_vecsize;
- IFFT::SetFFTSize(fftsize);
-}
-
-void
-PVS::SetHopSize(int hopsize){
- m_rotcount = m_vecsize;
- m_factor = (m_hopsize*TWOPI)/m_sr;
- IFFT::SetFFTSize(hopsize);
-}
-
-void
-PVS::pvsynthesis(double* signal){
- double pha;
- int i2;
-
- m_ffttmp[0] = m_input->Output(0);
- m_ffttmp[m_halfsize] = m_input->Output(1);
-
- for(int i=0;i<m_fftsize; i+=2){
- i2 = i/2;
- m_phases[i2] += m_input->Output(i+1) - m_fund*i2;
- pha = m_phases[i2]*m_factor;
- m_ffttmp[i2] = m_input->Output(i)*cos(pha);
- m_ffttmp[m_fftsize-(i2)] = m_input->Output(i)*sin(pha);
- }
-
- rfftw_one(m_plan, m_ffttmp, signal);
-}
-
-
-short
-PVS::DoProcess(){
- if(!m_error){
- if(m_input){
- if(m_enable){
- int i; double out = 0.;
- // phase vocoder synthesis
-
- if(m_first) {
- for(m_vecpos = 0; m_vecpos < m_vecsize; m_vecpos++)
- m_output[m_vecpos] = 0.f;
- } else {
- pvsynthesis(m_sigframe[m_cur]);
- }
-
- // set the current signal frame to the next
- // one in the circular list
- m_counter[m_cur] = 0;
- m_cur++; if(m_cur==m_frames) m_cur = 0;
-
-
- for(m_vecpos = 0; m_vecpos < m_vecsize; m_vecpos++){
- // overlap-add the time-domain signal frames
- // also make sure the frames are unrotated
- for(i=0; i < m_frames; i++){
- out += m_sigframe[i][m_rotcount]*m_table->Lookup(m_counter[i]);
- m_counter[i]++;
- }
- m_rotcount++;
- // output it.
- m_output[m_vecpos] = (double) out;
- out = 0.;
- }
- m_rotcount %= m_fftsize;
- m_first = false;
- return 1;
- } else { // if disabled
- for(m_vecpos = 0; m_vecpos < m_vecsize; m_vecpos++)
- m_output[m_vecpos] = 0.f;
- m_first = true;
- return 1;
- }
- } else {
- m_error = 3;
- return 0;
- }
- }
- else
- return 0;
-}
-
-
-
-
-
-
-
-
diff --git a/src/sndobj/PVS.h b/src/sndobj/PVS.h
deleted file mode 100644
index 6108055..0000000
--- a/src/sndobj/PVS.h
+++ /dev/null
@@ -1,67 +0,0 @@
-
-////////////////////////////////////////////////////////////////////////
-// This file is part of the SndObj library
-//
-// This program is free software; you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 2 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-//
-// Copyright (c)Victor Lazzarini, 1997-2004
-// See License.txt for a disclaimer of all warranties
-// and licensing information
-
-//////////////////////////////////////////////////////
-// PVS.h: Phase Vocoder Synthesis Class
-//
-// Victor Lazzarini, 2003
-//
-/////////////////////////////////////////////////////////
-
-#ifndef _PVS_H
-#define _PVS_H
-
-#include "IFFT.h"
-
-class PVS : public IFFT {
-
- protected:
-
- int m_rotcount; // rotation counter
- double m_factor; // conversion factor
- double* m_phases; // old phases
-
- private:
- void inline pvsynthesis(double* signal);
- bool m_first;
-
- public:
-
- PVS();
- PVS(Table* window, SndObj* input, int fftsize=DEF_FFTSIZE,
- int hopsize=DEF_VECSIZE, double sr=DEF_SR);
- ~PVS();
-
-
- int Set(char* mess, double value);
- void SetFFTSize(int fftsize);
- void SetHopSize(int hopsize);
-
- short DoProcess();
-
-
-};
-
-
-
-
-#endif
diff --git a/src/sndobj/rfftw/cfft.c b/src/sndobj/rfftw/cfft.c
deleted file mode 100644
index e87a0b9..0000000
--- a/src/sndobj/rfftw/cfft.c
+++ /dev/null
@@ -1,939 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-#include <stdio.h>
-#include <math.h>
-#include <stdlib.h>
-
-/* some basic definitions */
-#ifndef BOOL
-#define BOOL int
-#define TRUE 1
-#define FALSE 0
-#endif
-
-#define SAMPLE float /* data type used in calculation */
-
-#define SHORT_SIZE sizeof(short)
-#define INT_SIZE sizeof(int)
-#define FLOAT_SIZE sizeof(float)
-#define SAMPLE_SIZE sizeof(SAMPLE)
-#define PNTR_SIZE sizeof(char *)
-
-#define PI 3.1415927
-#define TWO_PI 6.2831854
-
-/* type definitions for I/O buffers */
-#define REAL 0 /* real only */
-#define IMAG 2 /* imaginary only */
-#define RECT 8 /* real and imaginary */
-#define MAG 16 /* magnitude only */
-#define PHASE 32 /* phase only */
-#define POLAR 64 /* magnitude and phase*/
-
-/* scale definitions for I/O buffers */
-#define LINEAR 0
-#define DB 1 /* 20log10 */
-
-/* transform direction definition */
-#define FORWARD 1 /* Forward FFT */
-#define INVERSE 2 /* Inverse FFT */
-
-/* window type definitions */
-#define HANNING 1
-#define RECTANGULAR 0
-
-
-
-/* network structure definition */
-
-typedef struct Tfft_net {
- int n;
- int stages;
- int bps;
- int direction;
- int window_type;
- int *load_index;
- SAMPLE *window, *inv_window;
- SAMPLE *regr;
- SAMPLE *regi;
- SAMPLE **indexpr;
- SAMPLE **indexpi;
- SAMPLE **indexqr;
- SAMPLE **indexqi;
- SAMPLE *coeffr, *inv_coeffr;
- SAMPLE *coeffi, *inv_coeffi;
- struct Tfft_net *next;
-} FFT_NET;
-
-
-void cfft(int trnsfrm_dir, int npnt, int window,
- float *source_buf, int source_form, int source_scale,
- float *result_buf, int result_form, int result_scale, int debug);
-
-
-/*****************************************************************************/
-/* GLOBAL DECLARATIONS */
-/*****************************************************************************/
-
-static FFT_NET *firstnet;
-
-/* prototypes */
-
-void net_alloc(FFT_NET *fft_net);
-void net_dealloc(FFT_NET *fft_net);
-int power_of_two(int n);
-void create_hanning(SAMPLE *window, int n, SAMPLE scale);
-void create_rectangular(SAMPLE *window, int n, SAMPLE scale);
-void short_to_float(short *short_buf, float *float_buf, int n);
-void load_registers(FFT_NET *fft_net, float *buf, int buf_form,
- int buf_scale, int trnsfrm_dir);
-void compute_fft(FFT_NET *fft_net);
-void store_registers(FFT_NET *fft_net, float *buf, int buf_form,
- int buf_scale, int debug);
-void build_fft_network(FFT_NET *fft_net, int n, int window_type);
-
-/*****************************************************************************/
-/* GENERALIZED FAST FOURIER TRANSFORM MODULE */
-/*****************************************************************************/
-
-void cfft(int trnsfrm_dir, int npnt, int window,
- float *source_buf, int source_form, int source_scale,
- float *result_buf, int result_form, int result_scale, int debug)
-
-/* modifies: result_buf
- effects: Computes npnt FFT specified by form, scale, and dir parameters.
- Source samples (single precision float) are taken from soure_buf and
- the transfrmd representation is stored in result_buf (single precision
- float). The parameters are defined as follows:
-
- trnsfrm_dir = FORWARD | INVERSE
- npnt = 2^k for some any positive integer k
- window = HANNING | RECTANGULAR
- (RECT = real and imag parts, POLAR = magnitude and phase)
- source_form = REAL | IMAG | RECT | POLAR
- result_form = REAL | IMAG | RECT | MAG | PHASE | POLAR
- xxxxxx_scale= LINEAR | DB ( 20log10 |mag| )
-
- The input/output buffers are stored in a form appropriate to the type.
- For example: REAL => {real, real, real ...},
- MAG => {mag, mag, mag, ... },
- RECT => {real, imag, real, imag, ... },
- POLAR => {mag, phase, mag, phase, ... }.
-
- To look at the magnitude (in db) of a 1024 point FFT of a real time
- signal we have:
-
- fft(FORWARD, 1024, RECTANGULAR, input, REAL, LINEAR, output, MAG, DB)
-
- All possible input and output combinations are possible given the
- choice of type and scale parameters.
-*/
-
-{
- FFT_NET *thisnet = (FFT_NET *)0;
- FFT_NET *lastnet = (FFT_NET *)0;
-
- /* A linked list of fft networks of different sizes is maintained to
- avoid building with every call. The network is built on the first
- call but reused for subsequent calls requesting the same size
- transformation.
- */
-
- thisnet=firstnet;
- while (thisnet) {
- if (!(thisnet->n == npnt) || !(thisnet->window_type == window)) {
- /* current net doesn't match size or window type */
- lastnet=thisnet;
- thisnet=thisnet->next;
- continue; /* keep looking */
- }
-
- else { /* network matches desired size */
- load_registers(thisnet, source_buf, source_form, source_scale,
- trnsfrm_dir);
- compute_fft(thisnet); /* do transformation */
- store_registers(thisnet, result_buf, result_form, result_scale,debug);
- return;
- }
- }
-
- /* none of existing networks match required size*/
-
- if (lastnet) { /* add new network to end of list */
- thisnet = (FFT_NET *)malloc(sizeof(FFT_NET)); /* allocate */
- thisnet->next = 0;
- lastnet->next = thisnet; /* add to end of list */
- }
- else { /* first network to be created */
- thisnet=firstnet=(FFT_NET *)malloc(sizeof(FFT_NET)); /* alloc. */
- thisnet->next = 0;
- }
-
- /* build new network and compute transformation */
- build_fft_network(thisnet, npnt, window);
- load_registers(thisnet, source_buf, source_form, source_scale,
- trnsfrm_dir);
- compute_fft(thisnet);
- store_registers(thisnet, result_buf, result_form, result_scale,debug);
- return;
-}
-
-void fft_clear(void)
-
-/* effects: Deallocates all preserved FFT networks. Should be used when
- finished with all computations.
-*/
-
-{
- FFT_NET *thisnet, *nextnet;
-
- if (firstnet) {
- thisnet=firstnet;
- do {
- nextnet = thisnet->next;
- net_dealloc(thisnet);
- free((char *)thisnet);
- } while (thisnet = nextnet);
- }
-}
-
-
-/*****************************************************************************/
-/* NETWORK CONSTRUCTION */
-/*****************************************************************************/
-
-void build_fft_network(FFT_NET *fft_net, int n, int window_type)
-
-
-/* modifies:fft_net
- effects: Constructs the fft network as described in fft.h. Butterfly
- coefficients, read/write indicies, bit reversed load indicies,
- and array allocations are computed.
-*/
-
-{
- int cntr, i, j, s;
- int stages, bps;
- int **p, **q, *pp, *qp;
- SAMPLE two_pi_div_n = TWO_PI / n;
-
-
- /* network definition */
- fft_net->n = n;
- fft_net->bps = bps = n/2;
- for (i = 0, j = n; j > 1; j >>= 1, i++);
- fft_net->stages = stages = i;
- fft_net->direction = FORWARD;
- fft_net->window_type = window_type;
- fft_net->next = (FFT_NET *)0;
-
- /* allocate registers, index, coefficient arrays */
- net_alloc(fft_net);
-
-
- /* create appropriate windows */
- if (window_type==HANNING) {
- create_hanning(fft_net->window, n, 1.);
- create_hanning(fft_net->inv_window, n, 1./n);
- }
- else {
- create_rectangular(fft_net->window, n, 1.);
- create_rectangular(fft_net->inv_window, n, 1./n);
- }
-
-
- /* calculate butterfly coefficients */ {
-
- int num_diff_coeffs, power_inc, power;
- SAMPLE *coeffpr = fft_net->coeffr;
- SAMPLE *coeffpi = fft_net->coeffi;
- SAMPLE *inv_coeffpr = fft_net->inv_coeffr;
- SAMPLE *inv_coeffpi = fft_net->inv_coeffi;
-
- /* stage one coeffs are 1 + 0j */
- for (i = 0; i < bps; i++) {
- *coeffpr = *inv_coeffpr = 1.;
- *coeffpi = *inv_coeffpi = 0.;
- coeffpr++; inv_coeffpr++;
- coeffpi++; inv_coeffpi++;
- }
-
- /* stage 2 to last stage coeffs need calculation */
- /* (1<<r <=> 2^r */
- for (s = 2; s <= stages; s++) {
-
- num_diff_coeffs = n / (1 << (stages - s + 1));
- power_inc = 1 << (stages -s);
- cntr = 0;
-
- for (i = bps/num_diff_coeffs; i > 0; i--) {
-
- power = 0;
-
- for (j = num_diff_coeffs; j > 0; j--) {
- *coeffpr = cos(two_pi_div_n*power);
- *inv_coeffpr = cos(two_pi_div_n*power);
-/* AAA change these signs */ *coeffpi = -sin(two_pi_div_n*power);
-/* change back */ *inv_coeffpi = sin(two_pi_div_n*power);
- power += power_inc;
- coeffpr++; inv_coeffpr++;
- coeffpi++; inv_coeffpi++;
- }
- }
- }
- }
-
- /* calculate network indicies: stage exchange indicies are
- calculated and then used as offset values from the base
- register locations. The final addresses are then stored in
- fft_net.
- */ {
-
- int index, inc;
- SAMPLE **indexpr = fft_net->indexpr;
- SAMPLE **indexpi = fft_net->indexpi;
- SAMPLE **indexqr = fft_net->indexqr;
- SAMPLE **indexqi = fft_net->indexqi;
- SAMPLE *regr = fft_net->regr;
- SAMPLE *regi = fft_net->regi;
-
-
- /* allocate temporary 2d stage exchange index, 1d temp
- load index */
- p = (int **)malloc(stages * PNTR_SIZE);
- q = (int **)malloc(stages * PNTR_SIZE);
-
- for (s = 0; s < stages; s++) {
- p[s] = (int *)malloc(bps * INT_SIZE);
- q[s] = (int *)malloc(bps * INT_SIZE);
- }
-
- /* calculate stage exchange indicies: */
- for (s = 0; s < stages; s++) {
- pp = p[s];
- qp = q[s];
- inc = 1 << s;
- cntr = 1 << (stages-s-1);
- i = j = index = 0;
-
- do {
- do {
- qp[i] = index + inc;
- pp[i++] = index++;
- } while (++j < inc);
- index = qp[i-1] + 1;
- j = 0;
- } while (--cntr);
- }
-
- /* compute actual address values using indicies as offsets */
- for (s = 0; s < stages; s++) {
- for (i = 0; i < bps; i++) {
- *indexpr++ = regr + p[s][i];
- *indexpi++ = regi + p[s][i];
- *indexqr++ = regr + q[s][i];
- *indexqi++ = regi + q[s][i];
- }
- }
- }
-
-
- /* calculate load indicies (bit reverse ordering) */
- /* bit reverse ordering achieved by passing normal
- order indicies backwards through the network */
-
- /* init to normal order indicies */ {
- int *load_index,*load_indexp;
- int *temp_indexp, *temp_index;
- temp_index=temp_indexp=(int *)malloc(n * INT_SIZE);
-
- i = 0; j = n;
- load_index = load_indexp = fft_net->load_index;
-
- while (j--)
- *load_indexp++ = i++;
-
- /* pass indicies backwards through net */
- for (s = stages - 1; s > 0; s--) {
- pp = p[s];
- qp = q[s];
-
- for (i = 0; i < bps; i++) {
- temp_index[pp[i]]=load_index[2*i];
- temp_index[qp[i]]=load_index[2*i+1];
- }
- j = n;
- load_indexp = load_index;
- temp_indexp = temp_index;
- while (j--)
- *load_indexp++ = *temp_indexp++;
- }
-
- /* free all temporary arrays */
- free((char *)temp_index);
- for (s = 0; s < stages; s++) {
- free((char *)p[s]);free((char *)q[s]);
- }
- free((char *)p);free((char *)q);
- }
-}
-
-
-
-/*****************************************************************************/
-/* REGISTER LOAD AND STORE */
-/*****************************************************************************/
-
-void load_registers(FFT_NET *fft_net, float *buf, int buf_form,
- int buf_scale, int trnsfrm_dir)
-
-/* effects: Multiplies the input buffer with the appropriate window and
- stores the resulting values in the initial registers of the
- network. Input buffer must contain values appropriate to form.
- For RECT, the buffer contains real num. followed by imag num,
- and for POLAR, it contains magnitude followed by phase. Pure
- inputs are listed normally. Both LINEAR and DB scales are
- interpreted.
-*/
-
-{
- int *load_index = fft_net->load_index;
- SAMPLE *window;
- int index, i = 0, n = fft_net->n;
-
- if (trnsfrm_dir==FORWARD) window = fft_net->window;
- else if (trnsfrm_dir==INVERSE) window = fft_net->inv_window;
- else {
- fprintf(stderr, "load_registers:illegal transform direction\n");
- exit(0);
- }
- fft_net->direction = trnsfrm_dir;
-
- switch(buf_scale) {
- case LINEAR: {
-
- switch (buf_form) {
- case REAL: { /* pure REAL */
- while (i < fft_net->n) {
- index = load_index[i];
- fft_net->regr[i]=(SAMPLE)buf[index] * window[index];
- fft_net->regi[i]=0.;
- i++;
- }
- } break;
-
- case IMAG: { /* pure IMAGinary */
- while (i < fft_net->n) {
- index = load_index[i];
- fft_net->regr[i]=0;
- fft_net->regi[i]=(SAMPLE)buf[index] * window[index];
- i++;
- }
- } break;
-
- case RECT: { /* both REAL and IMAGinary */
- while (i < fft_net->n) {
- index = load_index[i];
- fft_net->regr[i]=(SAMPLE)buf[index*2] * window[index];
- fft_net->regi[i]=(SAMPLE)buf[index*2+1] * window[index];
- i++;
- }
- } break;
-
- case POLAR: { /* magnitude followed by phase */
- while (i < fft_net->n) {
- index = load_index[i];
- fft_net->regr[i]=(SAMPLE)(buf[index*2] * cos(buf[index*2+1]))
- * window[index];
- fft_net->regi[i]=(SAMPLE)(buf[index*2] * sin(buf[index*2+1]))
- * window[index];
- i++;
- }
- } break;
-
- default: {
- fprintf(stderr, "load_registers:illegal input form\n");
- exit(0);
- } break;
- }
- } break;
-
- case DB: {
-
- switch (buf_form) {
- case REAL: { /* log pure REAL */
- while (i < fft_net->n) {
- index = load_index[i];
- fft_net->regr[i]=(SAMPLE)pow(10., (1./20.)*buf[index])
- * window[index]; /* window scaling after linearization */
- fft_net->regi[i]=0.;
- i++;
- }
- } break;
-
- case IMAG: { /* log pure IMAGinary */
- while (i < fft_net->n) {
- index = load_index[i];
- fft_net->regr[i]=0.;
- fft_net->regi[i]=(SAMPLE)pow(10., (1./20.)*buf[index])
- * window[index];
- i++;
- }
- } break;
-
- case RECT: { /* log REAL and log IMAGinary */
- while (i < fft_net->n) {
- index = load_index[i];
- fft_net->regr[i]=(SAMPLE)pow(10., (1./20.)*buf[index*2])
- * window[index];
- fft_net->regi[i]=(SAMPLE)pow(10., (1./20.)*buf[index*2+1])
- * window[index];
- i++;
- }
- } break;
-
- case POLAR: { /* log mag followed by phase */
- while (i < fft_net->n) {
- index = load_index[i];
- fft_net->regr[i]=(SAMPLE)(pow(10., (1./20.)*buf[index*2])
- * cos(buf[index*2+1])) * window[index];
- fft_net->regi[i]=(SAMPLE)(pow(10., (1./20.)*buf[index*2])
- * sin(buf[index*2+1])) * window[index];
- i++;
- }
- } break;
-
- default: {
- fprintf(stderr, "load_registers:illegal input form\n");
- exit(0);
- } break;
- }
- } break;
-
- default: {
- fprintf(stderr, "load_registers:illegal input scale\n");
- exit(0);
- } break;
- }
-}
-
-
-void store_registers(FFT_NET *fft_net, float *buf, int buf_form,
- int buf_scale, int debug)
-
-/* modifies: buf
- effects: Writes the final contents of the network registers into buf in
- either linear or db scale, polar or rectangular form. If any of
- the pure forms(REAL, IMAG, MAG, or PHASE) are used then only the
- corresponding part of the registers is stored in buf.
-*/
-
-{
- int i;
- SAMPLE real, imag, mag, phase;
- int n;
-
- i = 0;
- n = fft_net->n;
-
- switch (buf_scale) {
- case LINEAR: {
-
- switch (buf_form) {
- case REAL: { /* pure REAL */
- do {
- *buf++ = (float)fft_net->regr[i];
- } while (++i < n);
- } break;
-
- case IMAG: { /* pure IMAGinary */
- do {
- *buf++ = (float)fft_net->regi[i];
- } while (++i < n);
- } break;
-
- case RECT: { /* both REAL and IMAGinary */
- do {
- *buf++ = (float)fft_net->regr[i];
- *buf++ = (float)fft_net->regi[i];
- } while (++i < n);
- } break;
-
- case MAG: { /* magnitude only */
- do {
- real = fft_net->regr[i];
- imag = fft_net->regi[i];
- *buf++ = (float)sqrt(real*real+imag*imag);
- } while (++i < n);
- } break;
-
- case PHASE: { /* phase only */
- do {
- real = fft_net->regr[i];
- imag = fft_net->regi[i];
- if (real > .00001)
- *buf++ = (float)atan2(imag, real);
- else { /* deal with bad case */
- if (imag > 0){ *buf++ = PI / 2.;
- if(debug) fprintf(stderr,"real=0 and imag > 0\n");}
- else if (imag < 0){ *buf++ = -PI / 2.;
- if(debug) fprintf(stderr,"real=0 and imag < 0\n");}
- else { *buf++ = 0;
- if(debug) fprintf(stderr,"real=0 and imag=0\n");}
- }
- } while (++i < n);
- } break;
-
- case POLAR: { /* magnitude and phase */
- do {
- real = fft_net->regr[i];
- imag = fft_net->regi[i];
- *buf++ = (float)sqrt(real*real+imag*imag);
- if (real) /* a hack to avoid div by zero */
- *buf++ = (float)atan2(imag, real);
- else { /* deal with bad case */
- if (imag > 0) *buf++ = PI / 2.;
- else if (imag < 0) *buf++ = -PI / 2.;
- else *buf++ = 0;
- }
- } while (++i < n);
- } break;
-
- default: {
- fprintf(stderr, "store_registers:illegal output form\n");
- exit(0);
- } break;
- }
- } break;
-
- case DB: {
-
- switch (buf_form) {
- case REAL: { /* real only */
- do {
- *buf++ = (float)20.*log10(fft_net->regr[i]);
- } while (++i < n);
- } break;
-
- case IMAG: { /* imag only */
- do {
- *buf++ = (float)20.*log10(fft_net->regi[i]);
- } while (++i < n);
- } break;
-
- case RECT: { /* real and imag */
- do {
- *buf++ = (float)20.*log10(fft_net->regr[i]);
- *buf++ = (float)20.*log10(fft_net->regi[i]);
- } while (++i < n);
- } break;
-
- case MAG: { /* magnitude only */
- do {
- real = fft_net->regr[i];
- imag = fft_net->regi[i];
- *buf++ = (float)20.*log10(sqrt(real*real+imag*imag));
- } while (++i < n);
- } break;
-
- case PHASE: { /* phase only */
- do {
- real = fft_net->regr[i];
- imag = fft_net->regi[i];
- if (real)
- *buf++ = (float)atan2(imag, real);
- else { /* deal with bad case */
- if (imag > 0) *buf++ = PI / 2.;
- else if (imag < 0) *buf++ = -PI / 2.;
- else *buf++ = 0;
- }
- } while (++i < n);
- } break;
-
- case POLAR: { /* magnitude and phase */
- do {
- real = fft_net->regr[i];
- imag = fft_net->regi[i];
- *buf++ = (float)20.*log10(sqrt(real*real+imag*imag));
- if (real)
- *buf++ = (float)atan2(imag, real);
- else { /* deal with bad case */
- if (imag > 0) *buf++ = PI / 2.;
- else if (imag < 0) *buf++ = -PI / 2.;
- else *buf++ = 0;
- }
- } while (++i < n);
- } break;
-
- default: {
- fprintf(stderr, "store_registers:illegal output form\n");
- exit(0);
- } break;
- }
- } break;
-
- default: {
- fprintf(stderr, "store_registers:illegal output scale\n");
- exit(0);
- } break;
- }
-}
-
-
-
-/*****************************************************************************/
-/* COMPUTE TRANSFORMATION */
-/*****************************************************************************/
-
-void compute_fft(FFT_NET *fft_net)
-
-
-/* modifies: fft_net
- effects: Passes the values (already loaded) in the registers through
- the network, multiplying with appropriate coefficients at each
- stage. The fft result will be in the registers at the end of
- the computation. The direction of the transformation is indicated
- by the network flag 'direction'. The form of the computation is:
-
- X(pn) = X(p) + C*X(q)
- X(qn) = X(p) - C*X(q)
-
- where X(pn,qn) represents the output of the registers at each stage.
- The calculations are actually done in place. Register pointers are
- used to speed up the calculations.
-
- Register and coefficient addresses involved in the calculations
- are stored sequentially and are accessed as such. fft_net->indexp,
- indexq contain pointers to the relevant addresses, and fft_net->coeffs,
- inv_coeffs points to the appropriate coefficients at each stage of the
- computation.
-*/
-
-{
- SAMPLE **xpr, **xpi, **xqr, **xqi, *cr, *ci;
- int i;
- SAMPLE tpr, tpi, tqr, tqi;
- int bps = fft_net->bps;
- int cnt = bps * (fft_net->stages - 1);
-
- /* predetermined register addresses and coefficients */
- xpr = fft_net->indexpr;
- xpi = fft_net->indexpi;
- xqr = fft_net->indexqr;
- xqi = fft_net->indexqi;
-
- if (fft_net->direction==FORWARD) { /* FORWARD FFT coefficients */
- cr = fft_net->coeffr;
- ci = fft_net->coeffi;
- }
- else { /* INVERSE FFT coefficients */
- cr = fft_net->inv_coeffr;
- ci = fft_net->inv_coeffi;
- }
-
- /* stage one coefficients are 1 + 0j so C*X(q)=X(q) */
- /* bps mults can be avoided */
-
- for (i = 0; i < bps; i++) {
-
- /* add X(p) and X(q) */
- tpr = **xpr + **xqr;
- tpi = **xpi + **xqi;
- tqr = **xpr - **xqr;
- tqi = **xpi - **xqi;
-
- /* exchange register with temp */
- **xpr = tpr;
- **xpi = tpi;
- **xqr = tqr;
- **xqi = tqi;
-
- /* next set of register for calculations: */
- xpr++; xpi++; xqr++; xqi++; cr++; ci++;
-
- }
-
- for (i = 0; i < cnt; i++) {
-
- /* mult X(q) by coeff C */
- tqr = **xqr * *cr - **xqi * *ci;
- tqi = **xqr * *ci + **xqi * *cr;
-
- /* exchange register with temp */
- **xqr = tqr;
- **xqi = tqi;
-
- /* add X(p) and X(q) */
- tpr = **xpr + **xqr;
- tpi = **xpi + **xqi;
- tqr = **xpr - **xqr;
- tqi = **xpi - **xqi;
-
- /* exchange register with temp */
- **xpr = tpr;
- **xpi = tpi;
- **xqr = tqr;
- **xqi = tqi;
- /* next set of register for calculations: */
- xpr++; xpi++; xqr++; xqi++; cr++; ci++;
- }
-}
-
-
-/****************************************************************************/
-/* SUPPORT MODULES */
-/****************************************************************************/
-
-void net_alloc(FFT_NET *fft_net)
-
-
-/* effects: Allocates appropriate two dimensional arrays and assigns
- correct internal pointers.
-*/
-
-{
-
- int stages, bps, n;
-
- n = fft_net->n;
- stages = fft_net->stages;
- bps = fft_net->bps;
-
-
- /* two dimensional arrays with elements stored sequentially */
-
- fft_net->load_index = (int *)malloc(n * INT_SIZE);
- fft_net->regr = (SAMPLE *)malloc(n * SAMPLE_SIZE);
- fft_net->regi = (SAMPLE *)malloc(n * SAMPLE_SIZE);
- fft_net->coeffr = (SAMPLE *)malloc(stages*bps*SAMPLE_SIZE);
- fft_net->coeffi = (SAMPLE *)malloc(stages*bps*SAMPLE_SIZE);
- fft_net->inv_coeffr = (SAMPLE *)malloc(stages*bps*SAMPLE_SIZE);
- fft_net->inv_coeffi = (SAMPLE *)malloc(stages*bps*SAMPLE_SIZE);
- fft_net->indexpr = (SAMPLE **)malloc(stages * bps * PNTR_SIZE);
- fft_net->indexpi = (SAMPLE **)malloc(stages * bps * PNTR_SIZE);
- fft_net->indexqr = (SAMPLE **)malloc(stages * bps * PNTR_SIZE);
- fft_net->indexqi = (SAMPLE **)malloc(stages * bps * PNTR_SIZE);
-
- /* one dimensional load window */
- fft_net->window = (SAMPLE *)malloc(n * SAMPLE_SIZE);
- fft_net->inv_window = (SAMPLE *)malloc(n * SAMPLE_SIZE);
-}
-
-void net_dealloc(FFT_NET *fft_net)
-
-
-/* effects: Deallocates given FFT network.
-*/
-
-{
-
- free((char *)fft_net->load_index);
- free((char *)fft_net->regr);
- free((char *)fft_net->regi);
- free((char *)fft_net->coeffr);
- free((char *)fft_net->coeffi);
- free((char *)fft_net->inv_coeffr);
- free((char *)fft_net->inv_coeffi);
- free((char *)fft_net->indexpr);
- free((char *)fft_net->indexpi);
- free((char *)fft_net->indexqr);
- free((char *)fft_net->indexqi);
- free((char *)fft_net->window);
- free((char *)fft_net->inv_window);
-}
-
-
-BOOL power_of_two(n)
-
-int n;
-
-/* effects: Returns TRUE if n is a power of two, otherwise FALSE.
-*/
-
-{
- int i;
-
- for (i = n; i > 1; i >>= 1)
- if (i & 1) return FALSE; /* more than one bit high */
- return TRUE;
-}
-
-
-void create_hanning(SAMPLE *window, int n, SAMPLE scale)
-
-/* effects: Fills the buffer window with a hanning window of the appropriate
- size scaled by scale.
-*/
-
-{
- SAMPLE a, pi_div_n = PI/n;
- int k;
-
- for (k=1; k <= n; k++) {
- a = sin(k * pi_div_n);
- *window++ = scale * a * a;
- }
-}
-
-
-void create_rectangular(SAMPLE *window, int n, SAMPLE scale)
-
-/* effects: Fills the buffer window with a rectangular window of the
- appropriate size of height scale.
-*/
-
-{
- while (n--)
- *window++ = scale;
-}
-
-
-void short_to_float(short *short_buf, float *float_buf, int n)
-
-/* effects; Converts short_buf to floats and stores them in float_buf.
-*/
-
-{
- while (n--) {
- *float_buf++ = (float)*short_buf++;
- }
-}
-
-void ComplexFFT(float *buf, int npoints)
-{
- float *fp, *fp2;
- int i;
- cfft(FORWARD, npoints, RECTANGULAR,
- buf, RECT, LINEAR, buf, RECT, LINEAR, 0);
-}
-
-void ComplexIFFT(float *buf, int npoints)
-{
- double renorm;
- float *fp, *fp2;
- int i;
- renorm = (double) npoints;
- cfft(INVERSE, npoints, RECTANGULAR,
- buf, RECT, LINEAR, buf, RECT, LINEAR, 0);
- for (i = npoints << 1, fp = buf; i--; fp++) *fp *= renorm;
-}
-
-
-
diff --git a/src/sndobj/rfftw/config.c b/src/sndobj/rfftw/config.c
deleted file mode 100644
index 9e05eeb..0000000
--- a/src/sndobj/rfftw/config.c
+++ /dev/null
@@ -1,164 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* config.c -- this file contains all the codelets the system knows about */
-
-/* $Id: config.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $ */
-
-#include <fftw-int.h>
-
-/* the signature is the same as the size, for now */
-#define NOTW_CODELET(x) \
- &fftw_no_twiddle_##x##_desc
-#define NOTWI_CODELET(x) \
- &fftwi_no_twiddle_##x##_desc
-
-#define TWIDDLE_CODELET(x) \
- &fftw_twiddle_##x##_desc
-
-#define TWIDDLEI_CODELET(x) \
- &fftwi_twiddle_##x##_desc
-
-/* automatically-generated list of codelets */
-
-extern fftw_codelet_desc fftw_no_twiddle_1_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_1_desc;
-extern fftw_codelet_desc fftw_no_twiddle_2_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_2_desc;
-extern fftw_codelet_desc fftw_no_twiddle_3_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_3_desc;
-extern fftw_codelet_desc fftw_no_twiddle_4_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_4_desc;
-extern fftw_codelet_desc fftw_no_twiddle_5_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_5_desc;
-extern fftw_codelet_desc fftw_no_twiddle_6_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_6_desc;
-extern fftw_codelet_desc fftw_no_twiddle_7_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_7_desc;
-extern fftw_codelet_desc fftw_no_twiddle_8_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_8_desc;
-extern fftw_codelet_desc fftw_no_twiddle_9_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_9_desc;
-extern fftw_codelet_desc fftw_no_twiddle_10_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_10_desc;
-extern fftw_codelet_desc fftw_no_twiddle_11_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_11_desc;
-extern fftw_codelet_desc fftw_no_twiddle_12_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_12_desc;
-extern fftw_codelet_desc fftw_no_twiddle_13_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_13_desc;
-extern fftw_codelet_desc fftw_no_twiddle_14_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_14_desc;
-extern fftw_codelet_desc fftw_no_twiddle_15_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_15_desc;
-extern fftw_codelet_desc fftw_no_twiddle_16_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_16_desc;
-extern fftw_codelet_desc fftw_no_twiddle_32_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_32_desc;
-extern fftw_codelet_desc fftw_no_twiddle_64_desc;
-extern fftw_codelet_desc fftwi_no_twiddle_64_desc;
-extern fftw_codelet_desc fftw_twiddle_2_desc;
-extern fftw_codelet_desc fftwi_twiddle_2_desc;
-extern fftw_codelet_desc fftw_twiddle_3_desc;
-extern fftw_codelet_desc fftwi_twiddle_3_desc;
-extern fftw_codelet_desc fftw_twiddle_4_desc;
-extern fftw_codelet_desc fftwi_twiddle_4_desc;
-extern fftw_codelet_desc fftw_twiddle_5_desc;
-extern fftw_codelet_desc fftwi_twiddle_5_desc;
-extern fftw_codelet_desc fftw_twiddle_6_desc;
-extern fftw_codelet_desc fftwi_twiddle_6_desc;
-extern fftw_codelet_desc fftw_twiddle_7_desc;
-extern fftw_codelet_desc fftwi_twiddle_7_desc;
-extern fftw_codelet_desc fftw_twiddle_8_desc;
-extern fftw_codelet_desc fftwi_twiddle_8_desc;
-extern fftw_codelet_desc fftw_twiddle_9_desc;
-extern fftw_codelet_desc fftwi_twiddle_9_desc;
-extern fftw_codelet_desc fftw_twiddle_10_desc;
-extern fftw_codelet_desc fftwi_twiddle_10_desc;
-extern fftw_codelet_desc fftw_twiddle_16_desc;
-extern fftw_codelet_desc fftwi_twiddle_16_desc;
-extern fftw_codelet_desc fftw_twiddle_32_desc;
-extern fftw_codelet_desc fftwi_twiddle_32_desc;
-extern fftw_codelet_desc fftw_twiddle_64_desc;
-extern fftw_codelet_desc fftwi_twiddle_64_desc;
-
-fftw_codelet_desc *fftw_config[] =
-{
- NOTW_CODELET(1),
- NOTWI_CODELET(1),
- NOTW_CODELET(2),
- NOTWI_CODELET(2),
- NOTW_CODELET(3),
- NOTWI_CODELET(3),
- NOTW_CODELET(4),
- NOTWI_CODELET(4),
- NOTW_CODELET(5),
- NOTWI_CODELET(5),
- NOTW_CODELET(6),
- NOTWI_CODELET(6),
- NOTW_CODELET(7),
- NOTWI_CODELET(7),
- NOTW_CODELET(8),
- NOTWI_CODELET(8),
- NOTW_CODELET(9),
- NOTWI_CODELET(9),
- NOTW_CODELET(10),
- NOTWI_CODELET(10),
- NOTW_CODELET(11),
- NOTWI_CODELET(11),
- NOTW_CODELET(12),
- NOTWI_CODELET(12),
- NOTW_CODELET(13),
- NOTWI_CODELET(13),
- NOTW_CODELET(14),
- NOTWI_CODELET(14),
- NOTW_CODELET(15),
- NOTWI_CODELET(15),
- NOTW_CODELET(16),
- NOTWI_CODELET(16),
- NOTW_CODELET(32),
- NOTWI_CODELET(32),
- NOTW_CODELET(64),
- NOTWI_CODELET(64),
- TWIDDLE_CODELET(2),
- TWIDDLEI_CODELET(2),
- TWIDDLE_CODELET(3),
- TWIDDLEI_CODELET(3),
- TWIDDLE_CODELET(4),
- TWIDDLEI_CODELET(4),
- TWIDDLE_CODELET(5),
- TWIDDLEI_CODELET(5),
- TWIDDLE_CODELET(6),
- TWIDDLEI_CODELET(6),
- TWIDDLE_CODELET(7),
- TWIDDLEI_CODELET(7),
- TWIDDLE_CODELET(8),
- TWIDDLEI_CODELET(8),
- TWIDDLE_CODELET(9),
- TWIDDLEI_CODELET(9),
- TWIDDLE_CODELET(10),
- TWIDDLEI_CODELET(10),
- TWIDDLE_CODELET(16),
- TWIDDLEI_CODELET(16),
- TWIDDLE_CODELET(32),
- TWIDDLEI_CODELET(32),
- TWIDDLE_CODELET(64),
- TWIDDLEI_CODELET(64),
- (fftw_codelet_desc *) 0
-};
diff --git a/src/sndobj/rfftw/config.h b/src/sndobj/rfftw/config.h
deleted file mode 100644
index c7b543c..0000000
--- a/src/sndobj/rfftw/config.h
+++ /dev/null
@@ -1,170 +0,0 @@
-/* -*- C -*- */
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* fftw.h -- system-wide definitions */
-/* $Id: config.h,v 1.1 2007/01/08 10:53:29 veplaini Exp $ */
-
-/* configuration options (guessed by configure) */
-
-/* Define to empty if the keyword does not work. */
-/* #undef const */
-
-/* Define if you have the gettimeofday function. */
-/* #undef HAVE_GETTIMEOFDAY */
-
-/* Define if you have the BSDgettimeofday function. */
-/* #undef HAVE_BSDGETTIMEOFDAY */
-
-/* Define if you have the <sys/time.h> header file. */
-/* #undef HAVE_SYS_TIME_H */
-
-/* Define if you have the <unistd.h> header file. */
-/* #undef HAVE_UNISTD_H */
-
-/* Define if you have the <getopt.h> header file. */
-/* #undef HAVE_GETOPT_H */
-
-/* Define if you have the <malloc.h> header file */
-/* #undef HAVE_MALLOC_H */
-
-/* Define if you have gethrtime() a la Solaris 2 */
-/* #undef HAVE_GETHRTIME */
-/* #undef HAVE_HRTIME_T */
-
-/* Define to sizeof int and long long, if available: */
-#define SIZEOF_INT 0
-#define SIZEOF_LONG_LONG 0
-
-#if (SIZEOF_INT != 0) && (SIZEOF_LONG_LONG >= 2 * SIZEOF_INT)
-# define LONGLONG_IS_TWOINTS
-#endif
-
-/* Define to use "unsafe" modular multiply (can cause integer overflow
- and errors for transforms of large prime sizes using Rader). */
-/* #undef FFTW_ENABLE_UNSAFE_MULMOD */
-
-/* Define if you have getopt() */
-/* #undef HAVE_GETOPT */
-
-/* Define if you have getopt_long() */
-/* #undef HAVE_GETOPT_LONG */
-
-/* Define if you have isnan() */
-/* #undef HAVE_ISNAN */
-
-/* Define for enabling the high resolution Pentium timer */
-/* #undef FFTW_ENABLE_PENTIUM_TIMER */
-
-/*
- * When using FFTW_ENABLE_PENTIUM_TIMER, set FFTW_CYCLES_PER_SEC
- * to your real CPU clock speed!
- */
-/* This is for 200 MHz */
-/* #define FFTW_CYCLES_PER_SEC 200000000L */
-
-/*
- * Define to enable a gcc/x86 specific hack that aligns
- * the stack to an 8-byte boundary
- */
-/* #undef FFTW_ENABLE_I386_HACKS */
-
-/* Define when using a version of gcc that aligns the stack properly */
-/* #undef FFTW_GCC_ALIGNS_STACK */
-
-/* Define to enable extra runtime checks for debugging. */
-/* #undef FFTW_DEBUG */
-
-/* Define to enable vector-recurse feature. */
-/* #undef FFTW_ENABLE_VECTOR_RECURSE */
-
-/*
- * Define to enable extra runtime checks for the alignment of variables
- * in the codelets (causes coredump for misaligned double on x86).
- */
-/* #undef FFTW_DEBUG_ALIGNMENT */
-
-#define FFTW_VERSION "2.1.3"
-
-/* Use Win32 high-resolution timer */
-#if defined(__WIN32__) || defined(WIN32) || defined(_WINDOWS)
-# define HAVE_WIN32_TIMER
-# define HAVE_WIN32
-#endif
-
-/* Use MacOS Time Manager timer */
-#if defined(MAC) || defined(macintosh)
-# define HAVE_MAC_TIMER
-# define HAVE_MACOS
-
-/* Define to use nanosecond timer on PCI PowerMacs: */
-/* (WARNING: experimental, use at your own risk.) */
-/* #undef HAVE_MAC_PCI_TIMER */
-#endif
-
-/* define if you have alloca.h: */
-/* #undef HAVE_ALLOCA_H */
-
-/* define if you have the alloca function: */
-/* #undef HAVE_ALLOCA */
-
-/************************** threads configuration ************************/
-
-/* The following preprocessor symbols select which threads library
- to use when compiling the FFTW threads parallel libraries: */
-
-/* #undef FFTW_USING_SOLARIS_THREADS */
-/* #undef FFTW_USING_POSIX_THREADS */
-/* #undef FFTW_USING_BEOS_THREADS */
-/* #undef FFTW_USING_MACH_THREADS */
-
-/* #undef HAVE_PTHREAD_CREATE_UNDETACHED */
-
-/* #undef HAVE_MACH_CTHREADS_H */
-/* #undef HAVE_CTHREADS_H */
-/* #undef HAVE_CTHREAD_H */
-
-#ifdef HAVE_WIN32
-#define FFTW_USING_WIN32_THREADS
-#endif
-
-#ifdef HAVE_MACOS
-#define FFTW_USING_MACOS_THREADS
-#endif
-
-/*********************** fortran wrapper configuration *********************/
-
-/* These symbols select how to mangle function names so that they will
- be recognized by the linker. If none of them are defined, then
- Fortran wrappers will not be compiled. */
-
-/* #undef FFTW_FORTRANIZE_LOWERCASE */
-/* #undef FFTW_FORTRANIZE_LOWERCASE_UNDERSCORE */
-/* #undef FFTW_FORTRANIZE_UPPERCASE */
-/* #undef FFTW_FORTRANIZE_UPPERCASE_UNDERSCORE */
-
-/* define the following if names with an underscore get an extra one: */
-/* #undef FFTW_FORTRANIZE_EXTRA_UNDERSCORE */
-
-/* The following symbols control how MPI_Comm data structures are
- translated between Fortran and C for the fftw_mpi wrappers. See
- the file mpi/fftw_f77_mpi.h for more information. */
-/* #undef HAVE_MPI_COMM_F2C */
-/* #undef FFTW_USE_F77_MPI_COMM */
-/* #undef FFTW_USE_F77_MPI_COMM_P */
diff --git a/src/sndobj/rfftw/executor.c b/src/sndobj/rfftw/executor.c
deleted file mode 100644
index 667910f..0000000
--- a/src/sndobj/rfftw/executor.c
+++ /dev/null
@@ -1,465 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * executor.c -- execute the fft
- */
-
-/* $Id: executor.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $ */
-#include <fftw-int.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-const char *fftw_version = "FFTW V" ;//FFTW_VERSION " ($Id: executor.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $)";
-
-/*
- * This function is called in other files, so we cannot declare
- * it static.
- */
-void fftw_strided_copy(int n, fftw_complex *in, int ostride,
- fftw_complex *out)
-{
- int i;
- fftw_real r0, r1, i0, i1;
- fftw_real r2, r3, i2, i3;
-
- i = 0;
-
- for (; i < (n & 3); ++i) {
- out[i * ostride] = in[i];
- }
-
- for (; i < n; i += 4) {
- r0 = c_re(in[i]);
- i0 = c_im(in[i]);
- r1 = c_re(in[i + 1]);
- i1 = c_im(in[i + 1]);
- r2 = c_re(in[i + 2]);
- i2 = c_im(in[i + 2]);
- r3 = c_re(in[i + 3]);
- i3 = c_im(in[i + 3]);
- c_re(out[i * ostride]) = r0;
- c_im(out[i * ostride]) = i0;
- c_re(out[(i + 1) * ostride]) = r1;
- c_im(out[(i + 1) * ostride]) = i1;
- c_re(out[(i + 2) * ostride]) = r2;
- c_im(out[(i + 2) * ostride]) = i2;
- c_re(out[(i + 3) * ostride]) = r3;
- c_im(out[(i + 3) * ostride]) = i3;
- }
-}
-
-static void executor_many(int n, const fftw_complex *in,
- fftw_complex *out,
- fftw_plan_node *p,
- int istride,
- int ostride,
- int howmany, int idist, int odist,
- fftw_recurse_kind recurse_kind)
-{
- int s;
-
- switch (p->type) {
- case FFTW_NOTW:
- {
- fftw_notw_codelet *codelet = p->nodeu.notw.codelet;
-
- HACK_ALIGN_STACK_ODD;
- for (s = 0; s < howmany; ++s)
- codelet(in + s * idist,
- out + s * odist,
- istride, ostride);
- break;
- }
-
- default:
- for (s = 0; s < howmany; ++s)
- fftw_executor_simple(n, in + s * idist,
- out + s * odist,
- p, istride, ostride,
- recurse_kind);
- }
-}
-
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
-
-/* executor_many_vector is like executor_many, but it pushes the
- howmany loop down to the leaves of the transform: */
-static void executor_many_vector(int n, const fftw_complex *in,
- fftw_complex *out,
- fftw_plan_node *p,
- int istride,
- int ostride,
- int howmany, int idist, int odist)
-{
- int s;
-
- switch (p->type) {
- case FFTW_NOTW:
- {
- fftw_notw_codelet *codelet = p->nodeu.notw.codelet;
-
- HACK_ALIGN_STACK_ODD;
- for (s = 0; s < howmany; ++s)
- codelet(in + s * idist,
- out + s * odist,
- istride, ostride);
- break;
- }
-
- case FFTW_TWIDDLE:
- {
- int r = p->nodeu.twiddle.size;
- int m = n / r;
- fftw_twiddle_codelet *codelet;
- fftw_complex *W;
-
- for (s = 0; s < r; ++s)
- executor_many_vector(m, in + s * istride,
- out + s * (m * ostride),
- p->nodeu.twiddle.recurse,
- istride * r, ostride,
- howmany, idist, odist);
-
- codelet = p->nodeu.twiddle.codelet;
- W = p->nodeu.twiddle.tw->twarray;
-
- /* This may not be the right thing. We maybe should have
- the howmany loop for the twiddle codelets at the
- topmost level of the recursion, since odist is big;
- i.e. separate recursions for twiddle and notwiddle. */
- HACK_ALIGN_STACK_EVEN;
- for (s = 0; s < howmany; ++s)
- codelet(out + s * odist, W, m * ostride, m, ostride);
-
- break;
- }
-
- case FFTW_GENERIC:
- {
- int r = p->nodeu.generic.size;
- int m = n / r;
- fftw_generic_codelet *codelet;
- fftw_complex *W;
-
- for (s = 0; s < r; ++s)
- executor_many_vector(m, in + s * istride,
- out + s * (m * ostride),
- p->nodeu.generic.recurse,
- istride * r, ostride,
- howmany, idist, odist);
-
- codelet = p->nodeu.generic.codelet;
- W = p->nodeu.generic.tw->twarray;
- for (s = 0; s < howmany; ++s)
- codelet(out + s * odist, W, m, r, n, ostride);
-
- break;
- }
-
- case FFTW_RADER:
- {
- int r = p->nodeu.rader.size;
- int m = n / r;
- fftw_rader_codelet *codelet;
- fftw_complex *W;
-
- for (s = 0; s < r; ++s)
- executor_many_vector(m, in + s * istride,
- out + s * (m * ostride),
- p->nodeu.rader.recurse,
- istride * r, ostride,
- howmany, idist, odist);
-
- codelet = p->nodeu.rader.codelet;
- W = p->nodeu.rader.tw->twarray;
- for (s = 0; s < howmany; ++s)
- codelet(out + s * odist, W, m, r, ostride,
- p->nodeu.rader.rader_data);
-
- break;
- }
-
- default:
- fftw_die("BUG in executor: invalid plan\n");
- break;
- }
-}
-
-#endif /* FFTW_ENABLE_VECTOR_RECURSE */
-
-/*
- * Do *not* declare simple executor static--we need to call it
- * from other files...also, preface its name with "fftw_"
- * to avoid any possible name collisions.
- */
-void fftw_executor_simple(int n, const fftw_complex *in,
- fftw_complex *out,
- fftw_plan_node *p,
- int istride,
- int ostride,
- fftw_recurse_kind recurse_kind)
-{
- switch (p->type) {
- case FFTW_NOTW:
- HACK_ALIGN_STACK_ODD;
- (p->nodeu.notw.codelet)(in, out, istride, ostride);
- break;
-
- case FFTW_TWIDDLE:
- {
- int r = p->nodeu.twiddle.size;
- int m = n / r;
- fftw_twiddle_codelet *codelet;
- fftw_complex *W;
-
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- if (recurse_kind == FFTW_NORMAL_RECURSE)
-#endif
- executor_many(m, in, out,
- p->nodeu.twiddle.recurse,
- istride * r, ostride,
- r, istride, m * ostride,
- FFTW_NORMAL_RECURSE);
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- else
- executor_many_vector(m, in, out,
- p->nodeu.twiddle.recurse,
- istride * r, ostride,
- r, istride, m * ostride);
-#endif
-
- codelet = p->nodeu.twiddle.codelet;
- W = p->nodeu.twiddle.tw->twarray;
-
- HACK_ALIGN_STACK_EVEN;
- codelet(out, W, m * ostride, m, ostride);
-
- break;
- }
-
- case FFTW_GENERIC:
- {
- int r = p->nodeu.generic.size;
- int m = n / r;
- fftw_generic_codelet *codelet;
- fftw_complex *W;
-
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- if (recurse_kind == FFTW_NORMAL_RECURSE)
-#endif
- executor_many(m, in, out,
- p->nodeu.generic.recurse,
- istride * r, ostride,
- r, istride, m * ostride,
- FFTW_NORMAL_RECURSE);
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- else
- executor_many_vector(m, in, out,
- p->nodeu.generic.recurse,
- istride * r, ostride,
- r, istride, m * ostride);
-#endif
-
- codelet = p->nodeu.generic.codelet;
- W = p->nodeu.generic.tw->twarray;
- codelet(out, W, m, r, n, ostride);
-
- break;
- }
-
- case FFTW_RADER:
- {
- int r = p->nodeu.rader.size;
- int m = n / r;
- fftw_rader_codelet *codelet;
- fftw_complex *W;
-
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- if (recurse_kind == FFTW_NORMAL_RECURSE)
-#endif
- executor_many(m, in, out,
- p->nodeu.rader.recurse,
- istride * r, ostride,
- r, istride, m * ostride,
- FFTW_NORMAL_RECURSE);
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- else
- executor_many_vector(m, in, out,
- p->nodeu.rader.recurse,
- istride * r, ostride,
- r, istride, m * ostride);
-#endif
-
- codelet = p->nodeu.rader.codelet;
- W = p->nodeu.rader.tw->twarray;
- codelet(out, W, m, r, ostride,
- p->nodeu.rader.rader_data);
-
- break;
- }
-
- default:
- fftw_die("BUG in executor: invalid plan\n");
- break;
- }
-}
-
-static void executor_simple_inplace(int n, fftw_complex *in,
- fftw_complex *out,
- fftw_plan_node *p,
- int istride,
- fftw_recurse_kind recurse_kind)
-{
- switch (p->type) {
- case FFTW_NOTW:
- HACK_ALIGN_STACK_ODD;
- (p->nodeu.notw.codelet)(in, in, istride, istride);
- break;
-
- default:
- {
- fftw_complex *tmp;
-
- if (out)
- tmp = out;
- else
- tmp = (fftw_complex *)
- fftw_malloc(n * sizeof(fftw_complex));
-
- fftw_executor_simple(n, in, tmp, p, istride, 1,
- recurse_kind);
- fftw_strided_copy(n, tmp, istride, in);
-
- if (!out)
- fftw_free(tmp);
- }
- }
-}
-
-static void executor_many_inplace(int n, fftw_complex *in,
- fftw_complex *out,
- fftw_plan_node *p,
- int istride,
- int howmany, int idist,
- fftw_recurse_kind recurse_kind)
-{
- switch (p->type) {
- case FFTW_NOTW:
- {
- fftw_notw_codelet *codelet = p->nodeu.notw.codelet;
- int s;
-
- HACK_ALIGN_STACK_ODD;
- for (s = 0; s < howmany; ++s)
- codelet(in + s * idist,
- in + s * idist,
- istride, istride);
- break;
- }
-
- default:
- {
- int s;
- fftw_complex *tmp;
- if (out)
- tmp = out;
- else
- tmp = (fftw_complex *)
- fftw_malloc(n * sizeof(fftw_complex));
-
- for (s = 0; s < howmany; ++s) {
- fftw_executor_simple(n,
- in + s * idist,
- tmp,
- p, istride, 1, recurse_kind);
- fftw_strided_copy(n, tmp, istride, in + s * idist);
- }
-
- if (!out)
- fftw_free(tmp);
- }
- }
-}
-
-/* user interface */
-void fftw(fftw_plan plan, int howmany, fftw_complex *in, int istride,
- int idist, fftw_complex *out, int ostride, int odist)
-{
- int n = plan->n;
-
- if (plan->flags & FFTW_IN_PLACE) {
- if (howmany == 1) {
- executor_simple_inplace(n, in, out, plan->root, istride,
- plan->recurse_kind);
- } else {
- executor_many_inplace(n, in, out, plan->root, istride, howmany,
- idist, plan->recurse_kind);
- }
- } else {
- if (howmany == 1) {
- fftw_executor_simple(n, in, out, plan->root, istride, ostride,
- plan->recurse_kind);
- } else {
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- int vector_size = plan->vector_size;
- if (vector_size <= 1)
-#endif
- executor_many(n, in, out, plan->root, istride, ostride,
- howmany, idist, odist, plan->recurse_kind);
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- else {
- int s;
- int num_vects = howmany / vector_size;
- fftw_plan_node *root = plan->root;
-
- for (s = 0; s < num_vects; ++s)
- executor_many_vector(n,
- in + s * (vector_size * idist),
- out + s * (vector_size * odist),
- root,
- istride, ostride,
- vector_size, idist, odist);
-
- s = howmany % vector_size;
- if (s > 0)
- executor_many(n,
- in + num_vects * (vector_size * idist),
- out + num_vects * (vector_size * odist),
- root,
- istride, ostride,
- s, idist, odist,
- FFTW_NORMAL_RECURSE);
- }
-#endif
- }
- }
-}
-
-void fftw_one(fftw_plan plan, fftw_complex *in, fftw_complex *out)
-{
- int n = plan->n;
-
- if (plan->flags & FFTW_IN_PLACE)
- executor_simple_inplace(n, in, out, plan->root, 1,
- plan->recurse_kind);
- else
- fftw_executor_simple(n, in, out, plan->root, 1, 1,
- plan->recurse_kind);
-}
diff --git a/src/sndobj/rfftw/f77_func.h b/src/sndobj/rfftw/f77_func.h
deleted file mode 100644
index 00d94b5..0000000
--- a/src/sndobj/rfftw/f77_func.h
+++ /dev/null
@@ -1,61 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-#ifndef F77_FUNC_H
-#define F77_FUNC_H
-
-#include <rfftw/fftw-int.h>
-
-/* Define a macro to mangle function names so that they can be
- recognized by the Fortran linker. Specifically, F77_FUNC_
- is designed to mangle identifiers containing an underscore. */
-
-#ifdef FFTW_FORTRANIZE_LOWERCASE
-# ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE
-# define F77_FUNC_(x,X) x ## _
-# else
-# define F77_FUNC_(x,X) x
-# endif
-#endif
-
-#ifdef FFTW_FORTRANIZE_LOWERCASE_UNDERSCORE
-# ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE
-# define F77_FUNC_(x,X) x ## __
-# else
-# define F77_FUNC_(x,X) x ## _
-# endif
-#endif
-
-#ifdef FFTW_FORTRANIZE_UPPERCASE
-# ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE
-# define F77_FUNC_(x,X) X ## _
-# else
-# define F77_FUNC_(x,X) X
-# endif
-#endif
-
-#ifdef FFTW_FORTRANIZE_UPPERCASE_UNDERSCORE
-# ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE
-# define F77_FUNC_(x,X) X ## __
-# else
-# define F77_FUNC_(x,X) X ## _
-# endif
-#endif
-
-#endif /* F77_FUNC_H */
diff --git a/src/sndobj/rfftw/fcr_1.c b/src/sndobj/rfftw/fcr_1.c
deleted file mode 100644
index c005d34..0000000
--- a/src/sndobj/rfftw/fcr_1.c
+++ /dev/null
@@ -1,59 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:17 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 1 */
-
-/*
- * This function contains 0 FP additions, 0 FP multiplications,
- * (or, 0 additions, 0 multiplications, 0 fused multiply/add),
- * 1 stack variables, and 2 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: fcr_1.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- * $Id: fcr_1.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- * $Id: fcr_1.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- */
-
-void fftw_hc2real_1(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp1;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = real_input[0];
- output[0] = tmp1;
-}
-
-fftw_codelet_desc fftw_hc2real_1_desc =
-{
- "fftw_hc2real_1",
- (void (*)()) fftw_hc2real_1,
- 1,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 37,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_10.c b/src/sndobj/rfftw/fcr_10.c
deleted file mode 100644
index 8fd3284..0000000
--- a/src/sndobj/rfftw/fcr_10.c
+++ /dev/null
@@ -1,154 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:21 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 10 */
-
-/*
- * This function contains 34 FP additions, 14 FP multiplications,
- * (or, 26 additions, 6 multiplications, 8 fused multiply/add),
- * 20 stack variables, and 20 memory accesses
- */
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K1_902113032 = FFTW_KONST(+1.902113032590307144232878666758764286811397268);
-static const fftw_real K1_175570504 = FFTW_KONST(+1.175570504584946258337411909278145537195304875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_118033988 = FFTW_KONST(+1.118033988749894848204586834365638117720309180);
-
-/*
- * Generator Id's :
- * $Id: fcr_10.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fcr_10.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fcr_10.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftw_hc2real_10(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp11;
- fftw_real tmp23;
- fftw_real tmp31;
- fftw_real tmp20;
- fftw_real tmp30;
- fftw_real tmp10;
- fftw_real tmp28;
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp18;
- fftw_real tmp19;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp21;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = real_input[0];
- tmp2 = real_input[5 * real_istride];
- tmp3 = tmp1 - tmp2;
- tmp11 = tmp1 + tmp2;
- tmp21 = imag_input[4 * imag_istride];
- tmp22 = imag_input[imag_istride];
- tmp23 = tmp21 - tmp22;
- tmp31 = tmp21 + tmp22;
- }
- tmp18 = imag_input[2 * imag_istride];
- tmp19 = imag_input[3 * imag_istride];
- tmp20 = tmp18 - tmp19;
- tmp30 = tmp18 + tmp19;
- {
- fftw_real tmp6;
- fftw_real tmp12;
- fftw_real tmp9;
- fftw_real tmp13;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp7;
- fftw_real tmp8;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = real_input[2 * real_istride];
- tmp5 = real_input[3 * real_istride];
- tmp6 = tmp4 - tmp5;
- tmp12 = tmp4 + tmp5;
- tmp7 = real_input[4 * real_istride];
- tmp8 = real_input[real_istride];
- tmp9 = tmp7 - tmp8;
- tmp13 = tmp7 + tmp8;
- }
- tmp10 = tmp6 + tmp9;
- tmp28 = K1_118033988 * (tmp6 - tmp9);
- tmp14 = tmp12 + tmp13;
- tmp16 = K1_118033988 * (tmp12 - tmp13);
- }
- output[5 * ostride] = tmp3 + (K2_000000000 * tmp10);
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp29;
- fftw_real tmp33;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = (K1_175570504 * tmp30) - (K1_902113032 * tmp31);
- tmp34 = (K1_902113032 * tmp30) + (K1_175570504 * tmp31);
- tmp27 = tmp3 - (K500000000 * tmp10);
- tmp29 = tmp27 - tmp28;
- tmp33 = tmp28 + tmp27;
- output[7 * ostride] = tmp29 - tmp32;
- output[3 * ostride] = tmp29 + tmp32;
- output[ostride] = tmp33 - tmp34;
- output[9 * ostride] = tmp33 + tmp34;
- }
- output[0] = tmp11 + (K2_000000000 * tmp14);
- {
- fftw_real tmp24;
- fftw_real tmp26;
- fftw_real tmp17;
- fftw_real tmp25;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp24 = (K1_175570504 * tmp20) - (K1_902113032 * tmp23);
- tmp26 = (K1_902113032 * tmp20) + (K1_175570504 * tmp23);
- tmp15 = tmp11 - (K500000000 * tmp14);
- tmp17 = tmp15 - tmp16;
- tmp25 = tmp16 + tmp15;
- output[2 * ostride] = tmp17 - tmp24;
- output[8 * ostride] = tmp17 + tmp24;
- output[6 * ostride] = tmp25 - tmp26;
- output[4 * ostride] = tmp25 + tmp26;
- }
-}
-
-fftw_codelet_desc fftw_hc2real_10_desc =
-{
- "fftw_hc2real_10",
- (void (*)()) fftw_hc2real_10,
- 10,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 235,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_11.c b/src/sndobj/rfftw/fcr_11.c
deleted file mode 100644
index e03295e..0000000
--- a/src/sndobj/rfftw/fcr_11.c
+++ /dev/null
@@ -1,123 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:22 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 11 */
-
-/*
- * This function contains 60 FP additions, 51 FP multiplications,
- * (or, 59 additions, 50 multiplications, 1 fused multiply/add),
- * 21 stack variables, and 22 memory accesses
- */
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_918985947 = FFTW_KONST(+1.918985947228994779780736114132655398124909697);
-static const fftw_real K1_309721467 = FFTW_KONST(+1.309721467890570128113850144932587106367582399);
-static const fftw_real K284629676 = FFTW_KONST(+0.284629676546570280887585337232739337582102722);
-static const fftw_real K830830026 = FFTW_KONST(+0.830830026003772851058548298459246407048009821);
-static const fftw_real K1_682507065 = FFTW_KONST(+1.682507065662362337723623297838735435026584997);
-static const fftw_real K563465113 = FFTW_KONST(+0.563465113682859395422835830693233798071555798);
-static const fftw_real K1_511499148 = FFTW_KONST(+1.511499148708516567548071687944688840359434890);
-static const fftw_real K1_979642883 = FFTW_KONST(+1.979642883761865464752184075553437574753038744);
-static const fftw_real K1_819263990 = FFTW_KONST(+1.819263990709036742823430766158056920120482102);
-static const fftw_real K1_081281634 = FFTW_KONST(+1.081281634911195164215271908637383390863541216);
-
-/*
- * Generator Id's :
- * $Id: fcr_11.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fcr_11.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fcr_11.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_hc2real_11(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp13;
- fftw_real tmp21;
- fftw_real tmp15;
- fftw_real tmp17;
- fftw_real tmp19;
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp6;
- fftw_real tmp5;
- fftw_real tmp4;
- fftw_real tmp3;
- fftw_real tmp7;
- fftw_real tmp20;
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp18;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp8;
- fftw_real tmp12;
- fftw_real tmp9;
- fftw_real tmp10;
- fftw_real tmp11;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = imag_input[2 * imag_istride];
- tmp12 = imag_input[imag_istride];
- tmp9 = imag_input[4 * imag_istride];
- tmp10 = imag_input[5 * imag_istride];
- tmp11 = imag_input[3 * imag_istride];
- tmp13 = (K1_081281634 * tmp8) + (K1_819263990 * tmp9) - (K1_979642883 * tmp10) - (K1_511499148 * tmp11) - (K563465113 * tmp12);
- tmp21 = (K1_979642883 * tmp8) + (K1_819263990 * tmp10) - (K563465113 * tmp9) - (K1_081281634 * tmp11) - (K1_511499148 * tmp12);
- tmp15 = (K563465113 * tmp8) + (K1_819263990 * tmp11) - (K1_511499148 * tmp10) - (K1_081281634 * tmp9) - (K1_979642883 * tmp12);
- tmp17 = (K1_081281634 * tmp12) + (K1_819263990 * tmp8) + (K1_979642883 * tmp11) + (K1_511499148 * tmp9) + (K563465113 * tmp10);
- tmp19 = (K563465113 * tmp11) + (K1_979642883 * tmp9) + (K1_081281634 * tmp10) - (K1_511499148 * tmp8) - (K1_819263990 * tmp12);
- }
- tmp1 = real_input[0];
- tmp2 = real_input[real_istride];
- tmp6 = real_input[5 * real_istride];
- tmp5 = real_input[4 * real_istride];
- tmp4 = real_input[3 * real_istride];
- tmp3 = real_input[2 * real_istride];
- tmp7 = tmp1 + (K1_682507065 * tmp3) + (K830830026 * tmp5) - (K284629676 * tmp6) - (K1_309721467 * tmp4) - (K1_918985947 * tmp2);
- tmp20 = tmp1 + (K1_682507065 * tmp4) + (K830830026 * tmp6) - (K1_918985947 * tmp5) - (K284629676 * tmp3) - (K1_309721467 * tmp2);
- tmp14 = tmp1 + (K830830026 * tmp4) + (K1_682507065 * tmp5) - (K1_309721467 * tmp6) - (K1_918985947 * tmp3) - (K284629676 * tmp2);
- tmp16 = tmp1 + (K1_682507065 * tmp2) + (K830830026 * tmp3) - (K1_918985947 * tmp6) - (K1_309721467 * tmp5) - (K284629676 * tmp4);
- tmp18 = tmp1 + (K830830026 * tmp2) + (K1_682507065 * tmp6) - (K284629676 * tmp5) - (K1_918985947 * tmp4) - (K1_309721467 * tmp3);
- output[6 * ostride] = tmp7 - tmp13;
- output[5 * ostride] = tmp7 + tmp13;
- output[7 * ostride] = tmp20 - tmp21;
- output[4 * ostride] = tmp20 + tmp21;
- output[0] = tmp1 + (K2_000000000 * (tmp2 + tmp3 + tmp4 + tmp5 + tmp6));
- output[2 * ostride] = tmp18 + tmp19;
- output[9 * ostride] = tmp18 - tmp19;
- output[10 * ostride] = tmp16 + tmp17;
- output[ostride] = tmp16 - tmp17;
- output[8 * ostride] = tmp14 - tmp15;
- output[3 * ostride] = tmp14 + tmp15;
-}
-
-fftw_codelet_desc fftw_hc2real_11_desc =
-{
- "fftw_hc2real_11",
- (void (*)()) fftw_hc2real_11,
- 11,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 257,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_12.c b/src/sndobj/rfftw/fcr_12.c
deleted file mode 100644
index effd9a0..0000000
--- a/src/sndobj/rfftw/fcr_12.c
+++ /dev/null
@@ -1,168 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:23 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 12 */
-
-/*
- * This function contains 38 FP additions, 10 FP multiplications,
- * (or, 34 additions, 6 multiplications, 4 fused multiply/add),
- * 22 stack variables, and 24 memory accesses
- */
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fcr_12.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fcr_12.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fcr_12.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_hc2real_12(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp8;
- fftw_real tmp11;
- fftw_real tmp22;
- fftw_real tmp36;
- fftw_real tmp32;
- fftw_real tmp33;
- fftw_real tmp25;
- fftw_real tmp37;
- fftw_real tmp3;
- fftw_real tmp27;
- fftw_real tmp16;
- fftw_real tmp6;
- fftw_real tmp28;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp9;
- fftw_real tmp10;
- fftw_real tmp23;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = real_input[3 * real_istride];
- tmp9 = real_input[5 * real_istride];
- tmp10 = real_input[real_istride];
- tmp11 = tmp9 + tmp10;
- tmp22 = (K2_000000000 * tmp8) - tmp11;
- tmp36 = K1_732050807 * (tmp9 - tmp10);
- tmp32 = imag_input[3 * imag_istride];
- tmp23 = imag_input[5 * imag_istride];
- tmp24 = imag_input[imag_istride];
- tmp33 = tmp23 + tmp24;
- tmp25 = K1_732050807 * (tmp23 - tmp24);
- tmp37 = (K2_000000000 * tmp32) + tmp33;
- }
- {
- fftw_real tmp15;
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp13;
- fftw_real tmp14;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = imag_input[4 * imag_istride];
- tmp15 = K1_732050807 * tmp14;
- tmp1 = real_input[0];
- tmp2 = real_input[4 * real_istride];
- tmp13 = tmp1 - tmp2;
- tmp3 = tmp1 + (K2_000000000 * tmp2);
- tmp27 = tmp13 - tmp15;
- tmp16 = tmp13 + tmp15;
- }
- {
- fftw_real tmp19;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp17;
- fftw_real tmp18;
- ASSERT_ALIGNED_DOUBLE;
- tmp18 = imag_input[2 * imag_istride];
- tmp19 = K1_732050807 * tmp18;
- tmp4 = real_input[6 * real_istride];
- tmp5 = real_input[2 * real_istride];
- tmp17 = tmp4 - tmp5;
- tmp6 = tmp4 + (K2_000000000 * tmp5);
- tmp28 = tmp17 + tmp19;
- tmp20 = tmp17 - tmp19;
- }
- {
- fftw_real tmp7;
- fftw_real tmp12;
- fftw_real tmp39;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = tmp3 + tmp6;
- tmp12 = K2_000000000 * (tmp8 + tmp11);
- output[6 * ostride] = tmp7 - tmp12;
- output[0] = tmp7 + tmp12;
- {
- fftw_real tmp31;
- fftw_real tmp34;
- fftw_real tmp21;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = tmp3 - tmp6;
- tmp34 = K2_000000000 * (tmp32 - tmp33);
- output[9 * ostride] = tmp31 - tmp34;
- output[3 * ostride] = tmp31 + tmp34;
- tmp21 = tmp16 + tmp20;
- tmp26 = tmp22 - tmp25;
- output[2 * ostride] = tmp21 - tmp26;
- output[8 * ostride] = tmp21 + tmp26;
- }
- tmp39 = tmp16 - tmp20;
- tmp40 = tmp37 - tmp36;
- output[5 * ostride] = tmp39 - tmp40;
- output[11 * ostride] = tmp39 + tmp40;
- {
- fftw_real tmp35;
- fftw_real tmp38;
- fftw_real tmp29;
- fftw_real tmp30;
- ASSERT_ALIGNED_DOUBLE;
- tmp35 = tmp27 - tmp28;
- tmp38 = tmp36 + tmp37;
- output[ostride] = tmp35 - tmp38;
- output[7 * ostride] = tmp35 + tmp38;
- tmp29 = tmp27 + tmp28;
- tmp30 = tmp22 + tmp25;
- output[10 * ostride] = tmp29 - tmp30;
- output[4 * ostride] = tmp29 + tmp30;
- }
- }
-}
-
-fftw_codelet_desc fftw_hc2real_12_desc =
-{
- "fftw_hc2real_12",
- (void (*)()) fftw_hc2real_12,
- 12,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 279,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_128.c b/src/sndobj/rfftw/fcr_128.c
deleted file mode 100644
index 41bf4a2..0000000
--- a/src/sndobj/rfftw/fcr_128.c
+++ /dev/null
@@ -1,2564 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:29 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 128 */
-
-/*
- * This function contains 956 FP additions, 374 FP multiplications,
- * (or, 812 additions, 230 multiplications, 144 fused multiply/add),
- * 176 stack variables, and 256 memory accesses
- */
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K995184726 = FFTW_KONST(+0.995184726672196886244836953109479921575474869);
-static const fftw_real K098017140 = FFTW_KONST(+0.098017140329560601994195563888641845861136673);
-static const fftw_real K471396736 = FFTW_KONST(+0.471396736825997648556387625905254377657460319);
-static const fftw_real K881921264 = FFTW_KONST(+0.881921264348355029712756863660388349508442621);
-static const fftw_real K803207531 = FFTW_KONST(+0.803207531480644909806676512963141923879569427);
-static const fftw_real K595699304 = FFTW_KONST(+0.595699304492433343467036528829969889511926338);
-static const fftw_real K989176509 = FFTW_KONST(+0.989176509964780973451673738016243063983689533);
-static const fftw_real K146730474 = FFTW_KONST(+0.146730474455361751658850129646717819706215317);
-static const fftw_real K773010453 = FFTW_KONST(+0.773010453362736960810906609758469800971041293);
-static const fftw_real K634393284 = FFTW_KONST(+0.634393284163645498215171613225493370675687095);
-static const fftw_real K290284677 = FFTW_KONST(+0.290284677254462367636192375817395274691476278);
-static const fftw_real K956940335 = FFTW_KONST(+0.956940335732208864935797886980269969482849206);
-static const fftw_real K336889853 = FFTW_KONST(+0.336889853392220050689253212619147570477766780);
-static const fftw_real K941544065 = FFTW_KONST(+0.941544065183020778412509402599502357185589796);
-static const fftw_real K903989293 = FFTW_KONST(+0.903989293123443331586200297230537048710132025);
-static const fftw_real K427555093 = FFTW_KONST(+0.427555093430282094320966856888798534304578629);
-static const fftw_real K998795456 = FFTW_KONST(+0.998795456205172392714771604759100694443203615);
-static const fftw_real K049067674 = FFTW_KONST(+0.049067674327418014254954976942682658314745363);
-static const fftw_real K671558954 = FFTW_KONST(+0.671558954847018400625376850427421803228750632);
-static const fftw_real K740951125 = FFTW_KONST(+0.740951125354959091175616897495162729728955309);
-static const fftw_real K514102744 = FFTW_KONST(+0.514102744193221726593693838968815772608049120);
-static const fftw_real K857728610 = FFTW_KONST(+0.857728610000272069902269984284770137042490799);
-static const fftw_real K242980179 = FFTW_KONST(+0.242980179903263889948274162077471118320990783);
-static const fftw_real K970031253 = FFTW_KONST(+0.970031253194543992603984207286100251456865962);
-static const fftw_real K765366864 = FFTW_KONST(+0.765366864730179543456919968060797733522689125);
-static const fftw_real K1_847759065 = FFTW_KONST(+1.847759065022573512256366378793576573644833252);
-static const fftw_real K1_414213562 = FFTW_KONST(+1.414213562373095048801688724209698078569671875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fcr_128.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: fcr_128.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: fcr_128.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- */
-
-void fftw_hc2real_128(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp10;
- fftw_real tmp454;
- fftw_real tmp134;
- fftw_real tmp326;
- fftw_real tmp529;
- fftw_real tmp705;
- fftw_real tmp775;
- fftw_real tmp891;
- fftw_real tmp17;
- fftw_real tmp143;
- fftw_real tmp327;
- fftw_real tmp455;
- fftw_real tmp536;
- fftw_real tmp706;
- fftw_real tmp778;
- fftw_real tmp892;
- fftw_real tmp112;
- fftw_real tmp478;
- fftw_real tmp507;
- fftw_real tmp411;
- fftw_real tmp646;
- fftw_real tmp731;
- fftw_real tmp662;
- fftw_real tmp728;
- fftw_real tmp856;
- fftw_real tmp917;
- fftw_real tmp832;
- fftw_real tmp914;
- fftw_real tmp825;
- fftw_real tmp916;
- fftw_real tmp853;
- fftw_real tmp913;
- fftw_real tmp127;
- fftw_real tmp481;
- fftw_real tmp506;
- fftw_real tmp408;
- fftw_real tmp262;
- fftw_real tmp288;
- fftw_real tmp350;
- fftw_real tmp360;
- fftw_real tmp659;
- fftw_real tmp730;
- fftw_real tmp631;
- fftw_real tmp727;
- fftw_real tmp281;
- fftw_real tmp289;
- fftw_real tmp353;
- fftw_real tmp361;
- fftw_real tmp33;
- fftw_real tmp457;
- fftw_real tmp153;
- fftw_real tmp329;
- fftw_real tmp431;
- fftw_real tmp458;
- fftw_real tmp162;
- fftw_real tmp330;
- fftw_real tmp544;
- fftw_real tmp551;
- fftw_real tmp708;
- fftw_real tmp680;
- fftw_real tmp681;
- fftw_real tmp709;
- fftw_real tmp782;
- fftw_real tmp785;
- fftw_real tmp894;
- fftw_real tmp866;
- fftw_real tmp867;
- fftw_real tmp895;
- fftw_real tmp49;
- fftw_real tmp461;
- fftw_real tmp668;
- fftw_real tmp715;
- fftw_real tmp838;
- fftw_real tmp901;
- fftw_real tmp794;
- fftw_real tmp898;
- fftw_real tmp568;
- fftw_real tmp712;
- fftw_real tmp335;
- fftw_real tmp365;
- fftw_real tmp183;
- fftw_real tmp293;
- fftw_real tmp417;
- fftw_real tmp465;
- fftw_real tmp64;
- fftw_real tmp464;
- fftw_real tmp671;
- fftw_real tmp713;
- fftw_real tmp841;
- fftw_real tmp899;
- fftw_real tmp801;
- fftw_real tmp902;
- fftw_real tmp583;
- fftw_real tmp716;
- fftw_real tmp338;
- fftw_real tmp366;
- fftw_real tmp202;
- fftw_real tmp294;
- fftw_real tmp420;
- fftw_real tmp462;
- fftw_real tmp81;
- fftw_real tmp471;
- fftw_real tmp503;
- fftw_real tmp404;
- fftw_real tmp615;
- fftw_real tmp724;
- fftw_real tmp655;
- fftw_real tmp721;
- fftw_real tmp849;
- fftw_real tmp910;
- fftw_real tmp817;
- fftw_real tmp907;
- fftw_real tmp810;
- fftw_real tmp909;
- fftw_real tmp846;
- fftw_real tmp906;
- fftw_real tmp96;
- fftw_real tmp474;
- fftw_real tmp504;
- fftw_real tmp401;
- fftw_real tmp223;
- fftw_real tmp285;
- fftw_real tmp343;
- fftw_real tmp357;
- fftw_real tmp652;
- fftw_real tmp723;
- fftw_real tmp600;
- fftw_real tmp720;
- fftw_real tmp242;
- fftw_real tmp286;
- fftw_real tmp346;
- fftw_real tmp358;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp5;
- fftw_real tmp524;
- fftw_real tmp3;
- fftw_real tmp522;
- fftw_real tmp9;
- fftw_real tmp526;
- fftw_real tmp133;
- fftw_real tmp527;
- fftw_real tmp6;
- fftw_real tmp130;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp523;
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = real_input[32 * real_istride];
- tmp5 = K2_000000000 * tmp4;
- tmp523 = imag_input[32 * imag_istride];
- tmp524 = K2_000000000 * tmp523;
- tmp1 = real_input[0];
- tmp2 = real_input[64 * real_istride];
- tmp3 = tmp1 + tmp2;
- tmp522 = tmp1 - tmp2;
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp131;
- fftw_real tmp132;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = real_input[16 * real_istride];
- tmp8 = real_input[48 * real_istride];
- tmp9 = K2_000000000 * (tmp7 + tmp8);
- tmp526 = tmp7 - tmp8;
- tmp131 = imag_input[16 * imag_istride];
- tmp132 = imag_input[48 * imag_istride];
- tmp133 = K2_000000000 * (tmp131 - tmp132);
- tmp527 = tmp132 + tmp131;
- }
- }
- tmp6 = tmp3 + tmp5;
- tmp10 = tmp6 + tmp9;
- tmp454 = tmp6 - tmp9;
- tmp130 = tmp3 - tmp5;
- tmp134 = tmp130 - tmp133;
- tmp326 = tmp130 + tmp133;
- {
- fftw_real tmp525;
- fftw_real tmp528;
- fftw_real tmp773;
- fftw_real tmp774;
- ASSERT_ALIGNED_DOUBLE;
- tmp525 = tmp522 - tmp524;
- tmp528 = K1_414213562 * (tmp526 - tmp527);
- tmp529 = tmp525 + tmp528;
- tmp705 = tmp525 - tmp528;
- tmp773 = tmp522 + tmp524;
- tmp774 = K1_414213562 * (tmp526 + tmp527);
- tmp775 = tmp773 - tmp774;
- tmp891 = tmp773 + tmp774;
- }
- }
- {
- fftw_real tmp13;
- fftw_real tmp530;
- fftw_real tmp141;
- fftw_real tmp534;
- fftw_real tmp16;
- fftw_real tmp533;
- fftw_real tmp138;
- fftw_real tmp531;
- fftw_real tmp135;
- fftw_real tmp142;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp139;
- fftw_real tmp140;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = real_input[8 * real_istride];
- tmp12 = real_input[56 * real_istride];
- tmp13 = tmp11 + tmp12;
- tmp530 = tmp11 - tmp12;
- tmp139 = imag_input[8 * imag_istride];
- tmp140 = imag_input[56 * imag_istride];
- tmp141 = tmp139 - tmp140;
- tmp534 = tmp139 + tmp140;
- }
- {
- fftw_real tmp14;
- fftw_real tmp15;
- fftw_real tmp136;
- fftw_real tmp137;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = real_input[24 * real_istride];
- tmp15 = real_input[40 * real_istride];
- tmp16 = tmp14 + tmp15;
- tmp533 = tmp15 - tmp14;
- tmp136 = imag_input[24 * imag_istride];
- tmp137 = imag_input[40 * imag_istride];
- tmp138 = tmp136 - tmp137;
- tmp531 = tmp137 + tmp136;
- }
- tmp17 = K2_000000000 * (tmp13 + tmp16);
- tmp135 = tmp13 - tmp16;
- tmp142 = tmp138 + tmp141;
- tmp143 = K1_414213562 * (tmp135 - tmp142);
- tmp327 = K1_414213562 * (tmp135 + tmp142);
- tmp455 = K2_000000000 * (tmp141 - tmp138);
- {
- fftw_real tmp532;
- fftw_real tmp535;
- fftw_real tmp776;
- fftw_real tmp777;
- ASSERT_ALIGNED_DOUBLE;
- tmp532 = tmp530 - tmp531;
- tmp535 = tmp533 + tmp534;
- tmp536 = (K1_847759065 * tmp532) - (K765366864 * tmp535);
- tmp706 = (K765366864 * tmp532) + (K1_847759065 * tmp535);
- tmp776 = tmp530 + tmp531;
- tmp777 = tmp534 - tmp533;
- tmp778 = (K765366864 * tmp776) - (K1_847759065 * tmp777);
- tmp892 = (K1_847759065 * tmp776) + (K765366864 * tmp777);
- }
- }
- {
- fftw_real tmp104;
- fftw_real tmp244;
- fftw_real tmp260;
- fftw_real tmp406;
- fftw_real tmp619;
- fftw_real tmp819;
- fftw_real tmp622;
- fftw_real tmp820;
- fftw_real tmp126;
- fftw_real tmp272;
- fftw_real tmp270;
- fftw_real tmp410;
- fftw_real tmp641;
- fftw_real tmp829;
- fftw_real tmp644;
- fftw_real tmp830;
- fftw_real tmp111;
- fftw_real tmp253;
- fftw_real tmp251;
- fftw_real tmp407;
- fftw_real tmp626;
- fftw_real tmp822;
- fftw_real tmp629;
- fftw_real tmp823;
- fftw_real tmp119;
- fftw_real tmp263;
- fftw_real tmp279;
- fftw_real tmp409;
- fftw_real tmp634;
- fftw_real tmp826;
- fftw_real tmp637;
- fftw_real tmp827;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp100;
- fftw_real tmp617;
- fftw_real tmp259;
- fftw_real tmp621;
- fftw_real tmp103;
- fftw_real tmp620;
- fftw_real tmp256;
- fftw_real tmp618;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp98;
- fftw_real tmp99;
- fftw_real tmp257;
- fftw_real tmp258;
- ASSERT_ALIGNED_DOUBLE;
- tmp98 = real_input[3 * real_istride];
- tmp99 = real_input[61 * real_istride];
- tmp100 = tmp98 + tmp99;
- tmp617 = tmp98 - tmp99;
- tmp257 = imag_input[3 * imag_istride];
- tmp258 = imag_input[61 * imag_istride];
- tmp259 = tmp257 - tmp258;
- tmp621 = tmp257 + tmp258;
- }
- {
- fftw_real tmp101;
- fftw_real tmp102;
- fftw_real tmp254;
- fftw_real tmp255;
- ASSERT_ALIGNED_DOUBLE;
- tmp101 = real_input[29 * real_istride];
- tmp102 = real_input[35 * real_istride];
- tmp103 = tmp101 + tmp102;
- tmp620 = tmp102 - tmp101;
- tmp254 = imag_input[29 * imag_istride];
- tmp255 = imag_input[35 * imag_istride];
- tmp256 = tmp254 - tmp255;
- tmp618 = tmp255 + tmp254;
- }
- tmp104 = tmp100 + tmp103;
- tmp244 = tmp100 - tmp103;
- tmp260 = tmp256 + tmp259;
- tmp406 = tmp259 - tmp256;
- tmp619 = tmp617 - tmp618;
- tmp819 = tmp617 + tmp618;
- tmp622 = tmp620 + tmp621;
- tmp820 = tmp621 - tmp620;
- }
- {
- fftw_real tmp122;
- fftw_real tmp639;
- fftw_real tmp269;
- fftw_real tmp643;
- fftw_real tmp125;
- fftw_real tmp642;
- fftw_real tmp266;
- fftw_real tmp640;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp120;
- fftw_real tmp121;
- fftw_real tmp267;
- fftw_real tmp268;
- ASSERT_ALIGNED_DOUBLE;
- tmp120 = real_input[11 * real_istride];
- tmp121 = real_input[53 * real_istride];
- tmp122 = tmp120 + tmp121;
- tmp639 = tmp120 - tmp121;
- tmp267 = imag_input[11 * imag_istride];
- tmp268 = imag_input[53 * imag_istride];
- tmp269 = tmp267 - tmp268;
- tmp643 = tmp267 + tmp268;
- }
- {
- fftw_real tmp123;
- fftw_real tmp124;
- fftw_real tmp264;
- fftw_real tmp265;
- ASSERT_ALIGNED_DOUBLE;
- tmp123 = real_input[21 * real_istride];
- tmp124 = real_input[43 * real_istride];
- tmp125 = tmp123 + tmp124;
- tmp642 = tmp124 - tmp123;
- tmp264 = imag_input[21 * imag_istride];
- tmp265 = imag_input[43 * imag_istride];
- tmp266 = tmp264 - tmp265;
- tmp640 = tmp265 + tmp264;
- }
- tmp126 = tmp122 + tmp125;
- tmp272 = tmp125 - tmp122;
- tmp270 = tmp266 + tmp269;
- tmp410 = tmp269 - tmp266;
- tmp641 = tmp639 - tmp640;
- tmp829 = tmp639 + tmp640;
- tmp644 = tmp642 + tmp643;
- tmp830 = tmp643 - tmp642;
- }
- {
- fftw_real tmp107;
- fftw_real tmp624;
- fftw_real tmp250;
- fftw_real tmp628;
- fftw_real tmp110;
- fftw_real tmp627;
- fftw_real tmp247;
- fftw_real tmp625;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp105;
- fftw_real tmp106;
- fftw_real tmp248;
- fftw_real tmp249;
- ASSERT_ALIGNED_DOUBLE;
- tmp105 = real_input[13 * real_istride];
- tmp106 = real_input[51 * real_istride];
- tmp107 = tmp105 + tmp106;
- tmp624 = tmp105 - tmp106;
- tmp248 = imag_input[13 * imag_istride];
- tmp249 = imag_input[51 * imag_istride];
- tmp250 = tmp248 - tmp249;
- tmp628 = tmp248 + tmp249;
- }
- {
- fftw_real tmp108;
- fftw_real tmp109;
- fftw_real tmp245;
- fftw_real tmp246;
- ASSERT_ALIGNED_DOUBLE;
- tmp108 = real_input[19 * real_istride];
- tmp109 = real_input[45 * real_istride];
- tmp110 = tmp108 + tmp109;
- tmp627 = tmp109 - tmp108;
- tmp245 = imag_input[19 * imag_istride];
- tmp246 = imag_input[45 * imag_istride];
- tmp247 = tmp245 - tmp246;
- tmp625 = tmp246 + tmp245;
- }
- tmp111 = tmp107 + tmp110;
- tmp253 = tmp110 - tmp107;
- tmp251 = tmp247 + tmp250;
- tmp407 = tmp250 - tmp247;
- tmp626 = tmp624 - tmp625;
- tmp822 = tmp624 + tmp625;
- tmp629 = tmp627 + tmp628;
- tmp823 = tmp628 - tmp627;
- }
- {
- fftw_real tmp115;
- fftw_real tmp632;
- fftw_real tmp278;
- fftw_real tmp636;
- fftw_real tmp118;
- fftw_real tmp635;
- fftw_real tmp275;
- fftw_real tmp633;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp113;
- fftw_real tmp114;
- fftw_real tmp276;
- fftw_real tmp277;
- ASSERT_ALIGNED_DOUBLE;
- tmp113 = real_input[5 * real_istride];
- tmp114 = real_input[59 * real_istride];
- tmp115 = tmp113 + tmp114;
- tmp632 = tmp113 - tmp114;
- tmp276 = imag_input[5 * imag_istride];
- tmp277 = imag_input[59 * imag_istride];
- tmp278 = tmp276 - tmp277;
- tmp636 = tmp276 + tmp277;
- }
- {
- fftw_real tmp116;
- fftw_real tmp117;
- fftw_real tmp273;
- fftw_real tmp274;
- ASSERT_ALIGNED_DOUBLE;
- tmp116 = real_input[27 * real_istride];
- tmp117 = real_input[37 * real_istride];
- tmp118 = tmp116 + tmp117;
- tmp635 = tmp117 - tmp116;
- tmp273 = imag_input[27 * imag_istride];
- tmp274 = imag_input[37 * imag_istride];
- tmp275 = tmp273 - tmp274;
- tmp633 = tmp274 + tmp273;
- }
- tmp119 = tmp115 + tmp118;
- tmp263 = tmp115 - tmp118;
- tmp279 = tmp275 + tmp278;
- tmp409 = tmp278 - tmp275;
- tmp634 = tmp632 - tmp633;
- tmp826 = tmp632 + tmp633;
- tmp637 = tmp635 + tmp636;
- tmp827 = tmp636 - tmp635;
- }
- {
- fftw_real tmp828;
- fftw_real tmp831;
- fftw_real tmp623;
- fftw_real tmp630;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp476;
- fftw_real tmp477;
- fftw_real tmp638;
- fftw_real tmp645;
- ASSERT_ALIGNED_DOUBLE;
- tmp112 = tmp104 + tmp111;
- tmp476 = tmp104 - tmp111;
- tmp477 = tmp409 + tmp410;
- tmp478 = tmp476 - tmp477;
- tmp507 = tmp476 + tmp477;
- tmp411 = tmp409 - tmp410;
- tmp638 = (K970031253 * tmp634) - (K242980179 * tmp637);
- tmp645 = (K857728610 * tmp641) - (K514102744 * tmp644);
- tmp646 = tmp638 + tmp645;
- tmp731 = tmp645 - tmp638;
- }
- {
- fftw_real tmp660;
- fftw_real tmp661;
- fftw_real tmp854;
- fftw_real tmp855;
- ASSERT_ALIGNED_DOUBLE;
- tmp660 = (K242980179 * tmp634) + (K970031253 * tmp637);
- tmp661 = (K514102744 * tmp641) + (K857728610 * tmp644);
- tmp662 = tmp660 - tmp661;
- tmp728 = tmp660 + tmp661;
- tmp854 = (K740951125 * tmp826) - (K671558954 * tmp827);
- tmp855 = (K049067674 * tmp829) + (K998795456 * tmp830);
- tmp856 = tmp854 - tmp855;
- tmp917 = tmp854 + tmp855;
- }
- tmp828 = (K671558954 * tmp826) + (K740951125 * tmp827);
- tmp831 = (K998795456 * tmp829) - (K049067674 * tmp830);
- tmp832 = tmp828 - tmp831;
- tmp914 = tmp828 + tmp831;
- {
- fftw_real tmp821;
- fftw_real tmp824;
- fftw_real tmp851;
- fftw_real tmp852;
- ASSERT_ALIGNED_DOUBLE;
- tmp821 = (K427555093 * tmp819) + (K903989293 * tmp820);
- tmp824 = (K941544065 * tmp822) - (K336889853 * tmp823);
- tmp825 = tmp821 - tmp824;
- tmp916 = tmp821 + tmp824;
- tmp851 = (K903989293 * tmp819) - (K427555093 * tmp820);
- tmp852 = (K336889853 * tmp822) + (K941544065 * tmp823);
- tmp853 = tmp851 - tmp852;
- tmp913 = tmp851 + tmp852;
- }
- {
- fftw_real tmp479;
- fftw_real tmp480;
- fftw_real tmp252;
- fftw_real tmp261;
- ASSERT_ALIGNED_DOUBLE;
- tmp127 = tmp119 + tmp126;
- tmp479 = tmp126 - tmp119;
- tmp480 = tmp406 + tmp407;
- tmp481 = tmp479 + tmp480;
- tmp506 = tmp480 - tmp479;
- tmp408 = tmp406 - tmp407;
- tmp252 = tmp244 - tmp251;
- tmp261 = tmp253 + tmp260;
- tmp262 = (K956940335 * tmp252) - (K290284677 * tmp261);
- tmp288 = (K956940335 * tmp261) + (K290284677 * tmp252);
- }
- {
- fftw_real tmp348;
- fftw_real tmp349;
- fftw_real tmp657;
- fftw_real tmp658;
- ASSERT_ALIGNED_DOUBLE;
- tmp348 = tmp244 + tmp251;
- tmp349 = tmp260 - tmp253;
- tmp350 = (K634393284 * tmp348) - (K773010453 * tmp349);
- tmp360 = (K634393284 * tmp349) + (K773010453 * tmp348);
- tmp657 = (K146730474 * tmp619) + (K989176509 * tmp622);
- tmp658 = (K595699304 * tmp626) + (K803207531 * tmp629);
- tmp659 = tmp657 - tmp658;
- tmp730 = tmp657 + tmp658;
- }
- tmp623 = (K989176509 * tmp619) - (K146730474 * tmp622);
- tmp630 = (K803207531 * tmp626) - (K595699304 * tmp629);
- tmp631 = tmp623 + tmp630;
- tmp727 = tmp623 - tmp630;
- {
- fftw_real tmp271;
- fftw_real tmp280;
- fftw_real tmp351;
- fftw_real tmp352;
- ASSERT_ALIGNED_DOUBLE;
- tmp271 = tmp263 - tmp270;
- tmp280 = tmp272 + tmp279;
- tmp281 = (K881921264 * tmp271) - (K471396736 * tmp280);
- tmp289 = (K881921264 * tmp280) + (K471396736 * tmp271);
- tmp351 = tmp263 + tmp270;
- tmp352 = tmp279 - tmp272;
- tmp353 = (K098017140 * tmp351) - (K995184726 * tmp352);
- tmp361 = (K098017140 * tmp352) + (K995184726 * tmp351);
- }
- }
- }
- {
- fftw_real tmp21;
- fftw_real tmp780;
- fftw_real tmp540;
- fftw_real tmp157;
- fftw_real tmp24;
- fftw_real tmp781;
- fftw_real tmp543;
- fftw_real tmp160;
- fftw_real tmp28;
- fftw_real tmp783;
- fftw_real tmp547;
- fftw_real tmp148;
- fftw_real tmp31;
- fftw_real tmp784;
- fftw_real tmp550;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp538;
- fftw_real tmp155;
- fftw_real tmp156;
- fftw_real tmp539;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = real_input[4 * real_istride];
- tmp20 = real_input[60 * real_istride];
- tmp538 = tmp19 - tmp20;
- tmp155 = imag_input[28 * imag_istride];
- tmp156 = imag_input[36 * imag_istride];
- tmp539 = tmp156 + tmp155;
- tmp21 = tmp19 + tmp20;
- tmp780 = tmp538 + tmp539;
- tmp540 = tmp538 - tmp539;
- tmp157 = tmp155 - tmp156;
- }
- {
- fftw_real tmp22;
- fftw_real tmp23;
- fftw_real tmp541;
- fftw_real tmp158;
- fftw_real tmp159;
- fftw_real tmp542;
- ASSERT_ALIGNED_DOUBLE;
- tmp22 = real_input[28 * real_istride];
- tmp23 = real_input[36 * real_istride];
- tmp541 = tmp23 - tmp22;
- tmp158 = imag_input[4 * imag_istride];
- tmp159 = imag_input[60 * imag_istride];
- tmp542 = tmp158 + tmp159;
- tmp24 = tmp22 + tmp23;
- tmp781 = tmp542 - tmp541;
- tmp543 = tmp541 + tmp542;
- tmp160 = tmp158 - tmp159;
- }
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp545;
- fftw_real tmp146;
- fftw_real tmp147;
- fftw_real tmp546;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = real_input[12 * real_istride];
- tmp27 = real_input[52 * real_istride];
- tmp545 = tmp26 - tmp27;
- tmp146 = imag_input[20 * imag_istride];
- tmp147 = imag_input[44 * imag_istride];
- tmp546 = tmp147 + tmp146;
- tmp28 = tmp26 + tmp27;
- tmp783 = tmp545 + tmp546;
- tmp547 = tmp545 - tmp546;
- tmp148 = tmp146 - tmp147;
- }
- {
- fftw_real tmp29;
- fftw_real tmp30;
- fftw_real tmp548;
- fftw_real tmp149;
- fftw_real tmp150;
- fftw_real tmp549;
- ASSERT_ALIGNED_DOUBLE;
- tmp29 = real_input[20 * real_istride];
- tmp30 = real_input[44 * real_istride];
- tmp548 = tmp30 - tmp29;
- tmp149 = imag_input[12 * imag_istride];
- tmp150 = imag_input[52 * imag_istride];
- tmp549 = tmp149 + tmp150;
- tmp31 = tmp29 + tmp30;
- tmp784 = tmp549 - tmp548;
- tmp550 = tmp548 + tmp549;
- tmp151 = tmp149 - tmp150;
- }
- {
- fftw_real tmp25;
- fftw_real tmp32;
- fftw_real tmp145;
- fftw_real tmp152;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = tmp21 + tmp24;
- tmp32 = tmp28 + tmp31;
- tmp33 = K2_000000000 * (tmp25 + tmp32);
- tmp457 = tmp25 - tmp32;
- tmp145 = tmp21 - tmp24;
- tmp152 = tmp148 + tmp151;
- tmp153 = tmp145 - tmp152;
- tmp329 = tmp145 + tmp152;
- }
- {
- fftw_real tmp429;
- fftw_real tmp430;
- fftw_real tmp154;
- fftw_real tmp161;
- ASSERT_ALIGNED_DOUBLE;
- tmp429 = tmp160 - tmp157;
- tmp430 = tmp151 - tmp148;
- tmp431 = K2_000000000 * (tmp429 - tmp430);
- tmp458 = tmp429 + tmp430;
- tmp154 = tmp31 - tmp28;
- tmp161 = tmp157 + tmp160;
- tmp162 = tmp154 + tmp161;
- tmp330 = tmp161 - tmp154;
- }
- tmp544 = (K980785280 * tmp540) - (K195090322 * tmp543);
- tmp551 = (K831469612 * tmp547) - (K555570233 * tmp550);
- tmp708 = tmp544 - tmp551;
- tmp680 = (K195090322 * tmp540) + (K980785280 * tmp543);
- tmp681 = (K555570233 * tmp547) + (K831469612 * tmp550);
- tmp709 = tmp680 + tmp681;
- tmp782 = (K831469612 * tmp780) - (K555570233 * tmp781);
- tmp785 = (K195090322 * tmp783) + (K980785280 * tmp784);
- tmp894 = tmp782 + tmp785;
- tmp866 = (K555570233 * tmp780) + (K831469612 * tmp781);
- tmp867 = (K980785280 * tmp783) - (K195090322 * tmp784);
- tmp895 = tmp866 + tmp867;
- }
- {
- fftw_real tmp37;
- fftw_real tmp180;
- fftw_real tmp40;
- fftw_real tmp177;
- fftw_real tmp165;
- fftw_real tmp559;
- fftw_real tmp789;
- fftw_real tmp788;
- fftw_real tmp556;
- fftw_real tmp181;
- fftw_real tmp44;
- fftw_real tmp171;
- fftw_real tmp47;
- fftw_real tmp168;
- fftw_real tmp172;
- fftw_real tmp566;
- fftw_real tmp792;
- fftw_real tmp791;
- fftw_real tmp563;
- fftw_real tmp174;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp554;
- fftw_real tmp558;
- fftw_real tmp557;
- fftw_real tmp555;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp35;
- fftw_real tmp36;
- fftw_real tmp178;
- fftw_real tmp179;
- ASSERT_ALIGNED_DOUBLE;
- tmp35 = real_input[2 * real_istride];
- tmp36 = real_input[62 * real_istride];
- tmp37 = tmp35 + tmp36;
- tmp554 = tmp35 - tmp36;
- tmp178 = imag_input[2 * imag_istride];
- tmp179 = imag_input[62 * imag_istride];
- tmp180 = tmp178 - tmp179;
- tmp558 = tmp178 + tmp179;
- }
- {
- fftw_real tmp38;
- fftw_real tmp39;
- fftw_real tmp175;
- fftw_real tmp176;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = real_input[30 * real_istride];
- tmp39 = real_input[34 * real_istride];
- tmp40 = tmp38 + tmp39;
- tmp557 = tmp39 - tmp38;
- tmp175 = imag_input[30 * imag_istride];
- tmp176 = imag_input[34 * imag_istride];
- tmp177 = tmp175 - tmp176;
- tmp555 = tmp176 + tmp175;
- }
- tmp165 = tmp37 - tmp40;
- tmp559 = tmp557 + tmp558;
- tmp789 = tmp558 - tmp557;
- tmp788 = tmp554 + tmp555;
- tmp556 = tmp554 - tmp555;
- tmp181 = tmp177 + tmp180;
- }
- {
- fftw_real tmp561;
- fftw_real tmp565;
- fftw_real tmp564;
- fftw_real tmp562;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp42;
- fftw_real tmp43;
- fftw_real tmp169;
- fftw_real tmp170;
- ASSERT_ALIGNED_DOUBLE;
- tmp42 = real_input[14 * real_istride];
- tmp43 = real_input[50 * real_istride];
- tmp44 = tmp42 + tmp43;
- tmp561 = tmp42 - tmp43;
- tmp169 = imag_input[14 * imag_istride];
- tmp170 = imag_input[50 * imag_istride];
- tmp171 = tmp169 - tmp170;
- tmp565 = tmp169 + tmp170;
- }
- {
- fftw_real tmp45;
- fftw_real tmp46;
- fftw_real tmp166;
- fftw_real tmp167;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = real_input[18 * real_istride];
- tmp46 = real_input[46 * real_istride];
- tmp47 = tmp45 + tmp46;
- tmp564 = tmp46 - tmp45;
- tmp166 = imag_input[18 * imag_istride];
- tmp167 = imag_input[46 * imag_istride];
- tmp168 = tmp166 - tmp167;
- tmp562 = tmp167 + tmp166;
- }
- tmp172 = tmp168 + tmp171;
- tmp566 = tmp564 + tmp565;
- tmp792 = tmp565 - tmp564;
- tmp791 = tmp561 + tmp562;
- tmp563 = tmp561 - tmp562;
- tmp174 = tmp47 - tmp44;
- }
- {
- fftw_real tmp41;
- fftw_real tmp48;
- fftw_real tmp666;
- fftw_real tmp667;
- ASSERT_ALIGNED_DOUBLE;
- tmp41 = tmp37 + tmp40;
- tmp48 = tmp44 + tmp47;
- tmp49 = tmp41 + tmp48;
- tmp461 = tmp41 - tmp48;
- tmp666 = (K098017140 * tmp556) + (K995184726 * tmp559);
- tmp667 = (K634393284 * tmp563) + (K773010453 * tmp566);
- tmp668 = tmp666 - tmp667;
- tmp715 = tmp666 + tmp667;
- }
- {
- fftw_real tmp836;
- fftw_real tmp837;
- fftw_real tmp790;
- fftw_real tmp793;
- ASSERT_ALIGNED_DOUBLE;
- tmp836 = (K290284677 * tmp788) + (K956940335 * tmp789);
- tmp837 = (K881921264 * tmp791) - (K471396736 * tmp792);
- tmp838 = tmp836 - tmp837;
- tmp901 = tmp836 + tmp837;
- tmp790 = (K956940335 * tmp788) - (K290284677 * tmp789);
- tmp793 = (K471396736 * tmp791) + (K881921264 * tmp792);
- tmp794 = tmp790 - tmp793;
- tmp898 = tmp790 + tmp793;
- }
- {
- fftw_real tmp560;
- fftw_real tmp567;
- fftw_real tmp333;
- fftw_real tmp334;
- ASSERT_ALIGNED_DOUBLE;
- tmp560 = (K995184726 * tmp556) - (K098017140 * tmp559);
- tmp567 = (K773010453 * tmp563) - (K634393284 * tmp566);
- tmp568 = tmp560 + tmp567;
- tmp712 = tmp560 - tmp567;
- tmp333 = tmp165 + tmp172;
- tmp334 = tmp181 - tmp174;
- tmp335 = (K831469612 * tmp333) - (K555570233 * tmp334);
- tmp365 = (K831469612 * tmp334) + (K555570233 * tmp333);
- }
- {
- fftw_real tmp173;
- fftw_real tmp182;
- fftw_real tmp415;
- fftw_real tmp416;
- ASSERT_ALIGNED_DOUBLE;
- tmp173 = tmp165 - tmp172;
- tmp182 = tmp174 + tmp181;
- tmp183 = (K980785280 * tmp173) - (K195090322 * tmp182);
- tmp293 = (K980785280 * tmp182) + (K195090322 * tmp173);
- tmp415 = tmp180 - tmp177;
- tmp416 = tmp171 - tmp168;
- tmp417 = tmp415 - tmp416;
- tmp465 = tmp415 + tmp416;
- }
- }
- {
- fftw_real tmp52;
- fftw_real tmp199;
- fftw_real tmp55;
- fftw_real tmp196;
- fftw_real tmp184;
- fftw_real tmp574;
- fftw_real tmp796;
- fftw_real tmp795;
- fftw_real tmp571;
- fftw_real tmp200;
- fftw_real tmp59;
- fftw_real tmp190;
- fftw_real tmp62;
- fftw_real tmp187;
- fftw_real tmp191;
- fftw_real tmp581;
- fftw_real tmp799;
- fftw_real tmp798;
- fftw_real tmp578;
- fftw_real tmp193;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp569;
- fftw_real tmp573;
- fftw_real tmp572;
- fftw_real tmp570;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp197;
- fftw_real tmp198;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = real_input[6 * real_istride];
- tmp51 = real_input[58 * real_istride];
- tmp52 = tmp50 + tmp51;
- tmp569 = tmp50 - tmp51;
- tmp197 = imag_input[6 * imag_istride];
- tmp198 = imag_input[58 * imag_istride];
- tmp199 = tmp197 - tmp198;
- tmp573 = tmp197 + tmp198;
- }
- {
- fftw_real tmp53;
- fftw_real tmp54;
- fftw_real tmp194;
- fftw_real tmp195;
- ASSERT_ALIGNED_DOUBLE;
- tmp53 = real_input[26 * real_istride];
- tmp54 = real_input[38 * real_istride];
- tmp55 = tmp53 + tmp54;
- tmp572 = tmp54 - tmp53;
- tmp194 = imag_input[26 * imag_istride];
- tmp195 = imag_input[38 * imag_istride];
- tmp196 = tmp194 - tmp195;
- tmp570 = tmp195 + tmp194;
- }
- tmp184 = tmp52 - tmp55;
- tmp574 = tmp572 + tmp573;
- tmp796 = tmp573 - tmp572;
- tmp795 = tmp569 + tmp570;
- tmp571 = tmp569 - tmp570;
- tmp200 = tmp196 + tmp199;
- }
- {
- fftw_real tmp576;
- fftw_real tmp580;
- fftw_real tmp579;
- fftw_real tmp577;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp57;
- fftw_real tmp58;
- fftw_real tmp188;
- fftw_real tmp189;
- ASSERT_ALIGNED_DOUBLE;
- tmp57 = real_input[10 * real_istride];
- tmp58 = real_input[54 * real_istride];
- tmp59 = tmp57 + tmp58;
- tmp576 = tmp57 - tmp58;
- tmp188 = imag_input[10 * imag_istride];
- tmp189 = imag_input[54 * imag_istride];
- tmp190 = tmp188 - tmp189;
- tmp580 = tmp188 + tmp189;
- }
- {
- fftw_real tmp60;
- fftw_real tmp61;
- fftw_real tmp185;
- fftw_real tmp186;
- ASSERT_ALIGNED_DOUBLE;
- tmp60 = real_input[22 * real_istride];
- tmp61 = real_input[42 * real_istride];
- tmp62 = tmp60 + tmp61;
- tmp579 = tmp61 - tmp60;
- tmp185 = imag_input[22 * imag_istride];
- tmp186 = imag_input[42 * imag_istride];
- tmp187 = tmp185 - tmp186;
- tmp577 = tmp186 + tmp185;
- }
- tmp191 = tmp187 + tmp190;
- tmp581 = tmp579 + tmp580;
- tmp799 = tmp580 - tmp579;
- tmp798 = tmp576 + tmp577;
- tmp578 = tmp576 - tmp577;
- tmp193 = tmp62 - tmp59;
- }
- {
- fftw_real tmp56;
- fftw_real tmp63;
- fftw_real tmp669;
- fftw_real tmp670;
- ASSERT_ALIGNED_DOUBLE;
- tmp56 = tmp52 + tmp55;
- tmp63 = tmp59 + tmp62;
- tmp64 = tmp56 + tmp63;
- tmp464 = tmp63 - tmp56;
- tmp669 = (K290284677 * tmp571) + (K956940335 * tmp574);
- tmp670 = (K471396736 * tmp578) + (K881921264 * tmp581);
- tmp671 = tmp669 - tmp670;
- tmp713 = tmp669 + tmp670;
- }
- {
- fftw_real tmp839;
- fftw_real tmp840;
- fftw_real tmp797;
- fftw_real tmp800;
- ASSERT_ALIGNED_DOUBLE;
- tmp839 = (K773010453 * tmp795) + (K634393284 * tmp796);
- tmp840 = (K995184726 * tmp798) + (K098017140 * tmp799);
- tmp841 = tmp839 - tmp840;
- tmp899 = tmp839 + tmp840;
- tmp797 = (K634393284 * tmp795) - (K773010453 * tmp796);
- tmp800 = (K098017140 * tmp798) - (K995184726 * tmp799);
- tmp801 = tmp797 + tmp800;
- tmp902 = tmp800 - tmp797;
- }
- {
- fftw_real tmp575;
- fftw_real tmp582;
- fftw_real tmp336;
- fftw_real tmp337;
- ASSERT_ALIGNED_DOUBLE;
- tmp575 = (K956940335 * tmp571) - (K290284677 * tmp574);
- tmp582 = (K881921264 * tmp578) - (K471396736 * tmp581);
- tmp583 = tmp575 + tmp582;
- tmp716 = tmp582 - tmp575;
- tmp336 = tmp200 - tmp193;
- tmp337 = tmp184 + tmp191;
- tmp338 = (K980785280 * tmp336) + (K195090322 * tmp337);
- tmp366 = (K980785280 * tmp337) - (K195090322 * tmp336);
- }
- {
- fftw_real tmp192;
- fftw_real tmp201;
- fftw_real tmp418;
- fftw_real tmp419;
- ASSERT_ALIGNED_DOUBLE;
- tmp192 = tmp184 - tmp191;
- tmp201 = tmp193 + tmp200;
- tmp202 = (K831469612 * tmp192) - (K555570233 * tmp201);
- tmp294 = (K831469612 * tmp201) + (K555570233 * tmp192);
- tmp418 = tmp199 - tmp196;
- tmp419 = tmp190 - tmp187;
- tmp420 = tmp418 - tmp419;
- tmp462 = tmp418 + tmp419;
- }
- }
- {
- fftw_real tmp73;
- fftw_real tmp205;
- fftw_real tmp221;
- fftw_real tmp399;
- fftw_real tmp588;
- fftw_real tmp804;
- fftw_real tmp591;
- fftw_real tmp805;
- fftw_real tmp95;
- fftw_real tmp233;
- fftw_real tmp231;
- fftw_real tmp403;
- fftw_real tmp610;
- fftw_real tmp814;
- fftw_real tmp613;
- fftw_real tmp815;
- fftw_real tmp80;
- fftw_real tmp214;
- fftw_real tmp212;
- fftw_real tmp400;
- fftw_real tmp595;
- fftw_real tmp807;
- fftw_real tmp598;
- fftw_real tmp808;
- fftw_real tmp88;
- fftw_real tmp224;
- fftw_real tmp240;
- fftw_real tmp402;
- fftw_real tmp603;
- fftw_real tmp811;
- fftw_real tmp606;
- fftw_real tmp812;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp69;
- fftw_real tmp586;
- fftw_real tmp220;
- fftw_real tmp590;
- fftw_real tmp72;
- fftw_real tmp589;
- fftw_real tmp217;
- fftw_real tmp587;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp67;
- fftw_real tmp68;
- fftw_real tmp218;
- fftw_real tmp219;
- ASSERT_ALIGNED_DOUBLE;
- tmp67 = real_input[real_istride];
- tmp68 = real_input[63 * real_istride];
- tmp69 = tmp67 + tmp68;
- tmp586 = tmp67 - tmp68;
- tmp218 = imag_input[imag_istride];
- tmp219 = imag_input[63 * imag_istride];
- tmp220 = tmp218 - tmp219;
- tmp590 = tmp218 + tmp219;
- }
- {
- fftw_real tmp70;
- fftw_real tmp71;
- fftw_real tmp215;
- fftw_real tmp216;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = real_input[31 * real_istride];
- tmp71 = real_input[33 * real_istride];
- tmp72 = tmp70 + tmp71;
- tmp589 = tmp71 - tmp70;
- tmp215 = imag_input[31 * imag_istride];
- tmp216 = imag_input[33 * imag_istride];
- tmp217 = tmp215 - tmp216;
- tmp587 = tmp216 + tmp215;
- }
- tmp73 = tmp69 + tmp72;
- tmp205 = tmp69 - tmp72;
- tmp221 = tmp217 + tmp220;
- tmp399 = tmp220 - tmp217;
- tmp588 = tmp586 - tmp587;
- tmp804 = tmp586 + tmp587;
- tmp591 = tmp589 + tmp590;
- tmp805 = tmp590 - tmp589;
- }
- {
- fftw_real tmp91;
- fftw_real tmp608;
- fftw_real tmp230;
- fftw_real tmp612;
- fftw_real tmp94;
- fftw_real tmp611;
- fftw_real tmp227;
- fftw_real tmp609;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp89;
- fftw_real tmp90;
- fftw_real tmp228;
- fftw_real tmp229;
- ASSERT_ALIGNED_DOUBLE;
- tmp89 = real_input[9 * real_istride];
- tmp90 = real_input[55 * real_istride];
- tmp91 = tmp89 + tmp90;
- tmp608 = tmp89 - tmp90;
- tmp228 = imag_input[9 * imag_istride];
- tmp229 = imag_input[55 * imag_istride];
- tmp230 = tmp228 - tmp229;
- tmp612 = tmp228 + tmp229;
- }
- {
- fftw_real tmp92;
- fftw_real tmp93;
- fftw_real tmp225;
- fftw_real tmp226;
- ASSERT_ALIGNED_DOUBLE;
- tmp92 = real_input[23 * real_istride];
- tmp93 = real_input[41 * real_istride];
- tmp94 = tmp92 + tmp93;
- tmp611 = tmp93 - tmp92;
- tmp225 = imag_input[23 * imag_istride];
- tmp226 = imag_input[41 * imag_istride];
- tmp227 = tmp225 - tmp226;
- tmp609 = tmp226 + tmp225;
- }
- tmp95 = tmp91 + tmp94;
- tmp233 = tmp94 - tmp91;
- tmp231 = tmp227 + tmp230;
- tmp403 = tmp230 - tmp227;
- tmp610 = tmp608 - tmp609;
- tmp814 = tmp608 + tmp609;
- tmp613 = tmp611 + tmp612;
- tmp815 = tmp612 - tmp611;
- }
- {
- fftw_real tmp76;
- fftw_real tmp593;
- fftw_real tmp211;
- fftw_real tmp597;
- fftw_real tmp79;
- fftw_real tmp596;
- fftw_real tmp208;
- fftw_real tmp594;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp74;
- fftw_real tmp75;
- fftw_real tmp209;
- fftw_real tmp210;
- ASSERT_ALIGNED_DOUBLE;
- tmp74 = real_input[15 * real_istride];
- tmp75 = real_input[49 * real_istride];
- tmp76 = tmp74 + tmp75;
- tmp593 = tmp74 - tmp75;
- tmp209 = imag_input[15 * imag_istride];
- tmp210 = imag_input[49 * imag_istride];
- tmp211 = tmp209 - tmp210;
- tmp597 = tmp209 + tmp210;
- }
- {
- fftw_real tmp77;
- fftw_real tmp78;
- fftw_real tmp206;
- fftw_real tmp207;
- ASSERT_ALIGNED_DOUBLE;
- tmp77 = real_input[17 * real_istride];
- tmp78 = real_input[47 * real_istride];
- tmp79 = tmp77 + tmp78;
- tmp596 = tmp78 - tmp77;
- tmp206 = imag_input[17 * imag_istride];
- tmp207 = imag_input[47 * imag_istride];
- tmp208 = tmp206 - tmp207;
- tmp594 = tmp207 + tmp206;
- }
- tmp80 = tmp76 + tmp79;
- tmp214 = tmp79 - tmp76;
- tmp212 = tmp208 + tmp211;
- tmp400 = tmp211 - tmp208;
- tmp595 = tmp593 - tmp594;
- tmp807 = tmp593 + tmp594;
- tmp598 = tmp596 + tmp597;
- tmp808 = tmp597 - tmp596;
- }
- {
- fftw_real tmp84;
- fftw_real tmp601;
- fftw_real tmp239;
- fftw_real tmp605;
- fftw_real tmp87;
- fftw_real tmp604;
- fftw_real tmp236;
- fftw_real tmp602;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp82;
- fftw_real tmp83;
- fftw_real tmp237;
- fftw_real tmp238;
- ASSERT_ALIGNED_DOUBLE;
- tmp82 = real_input[7 * real_istride];
- tmp83 = real_input[57 * real_istride];
- tmp84 = tmp82 + tmp83;
- tmp601 = tmp82 - tmp83;
- tmp237 = imag_input[7 * imag_istride];
- tmp238 = imag_input[57 * imag_istride];
- tmp239 = tmp237 - tmp238;
- tmp605 = tmp237 + tmp238;
- }
- {
- fftw_real tmp85;
- fftw_real tmp86;
- fftw_real tmp234;
- fftw_real tmp235;
- ASSERT_ALIGNED_DOUBLE;
- tmp85 = real_input[25 * real_istride];
- tmp86 = real_input[39 * real_istride];
- tmp87 = tmp85 + tmp86;
- tmp604 = tmp86 - tmp85;
- tmp234 = imag_input[25 * imag_istride];
- tmp235 = imag_input[39 * imag_istride];
- tmp236 = tmp234 - tmp235;
- tmp602 = tmp235 + tmp234;
- }
- tmp88 = tmp84 + tmp87;
- tmp224 = tmp84 - tmp87;
- tmp240 = tmp236 + tmp239;
- tmp402 = tmp239 - tmp236;
- tmp603 = tmp601 - tmp602;
- tmp811 = tmp601 + tmp602;
- tmp606 = tmp604 + tmp605;
- tmp812 = tmp605 - tmp604;
- }
- {
- fftw_real tmp813;
- fftw_real tmp816;
- fftw_real tmp592;
- fftw_real tmp599;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp469;
- fftw_real tmp470;
- fftw_real tmp607;
- fftw_real tmp614;
- ASSERT_ALIGNED_DOUBLE;
- tmp81 = tmp73 + tmp80;
- tmp469 = tmp73 - tmp80;
- tmp470 = tmp402 + tmp403;
- tmp471 = tmp469 - tmp470;
- tmp503 = tmp469 + tmp470;
- tmp404 = tmp402 - tmp403;
- tmp607 = (K941544065 * tmp603) - (K336889853 * tmp606);
- tmp614 = (K903989293 * tmp610) - (K427555093 * tmp613);
- tmp615 = tmp607 + tmp614;
- tmp724 = tmp614 - tmp607;
- }
- {
- fftw_real tmp653;
- fftw_real tmp654;
- fftw_real tmp847;
- fftw_real tmp848;
- ASSERT_ALIGNED_DOUBLE;
- tmp653 = (K336889853 * tmp603) + (K941544065 * tmp606);
- tmp654 = (K427555093 * tmp610) + (K903989293 * tmp613);
- tmp655 = tmp653 - tmp654;
- tmp721 = tmp653 + tmp654;
- tmp847 = (K514102744 * tmp811) - (K857728610 * tmp812);
- tmp848 = (K242980179 * tmp814) - (K970031253 * tmp815);
- tmp849 = tmp847 + tmp848;
- tmp910 = tmp848 - tmp847;
- }
- tmp813 = (K857728610 * tmp811) + (K514102744 * tmp812);
- tmp816 = (K970031253 * tmp814) + (K242980179 * tmp815);
- tmp817 = tmp813 - tmp816;
- tmp907 = tmp813 + tmp816;
- {
- fftw_real tmp806;
- fftw_real tmp809;
- fftw_real tmp844;
- fftw_real tmp845;
- ASSERT_ALIGNED_DOUBLE;
- tmp806 = (K146730474 * tmp804) + (K989176509 * tmp805);
- tmp809 = (K803207531 * tmp807) - (K595699304 * tmp808);
- tmp810 = tmp806 - tmp809;
- tmp909 = tmp806 + tmp809;
- tmp844 = (K989176509 * tmp804) - (K146730474 * tmp805);
- tmp845 = (K595699304 * tmp807) + (K803207531 * tmp808);
- tmp846 = tmp844 - tmp845;
- tmp906 = tmp844 + tmp845;
- }
- {
- fftw_real tmp472;
- fftw_real tmp473;
- fftw_real tmp213;
- fftw_real tmp222;
- ASSERT_ALIGNED_DOUBLE;
- tmp96 = tmp88 + tmp95;
- tmp472 = tmp95 - tmp88;
- tmp473 = tmp399 + tmp400;
- tmp474 = tmp472 + tmp473;
- tmp504 = tmp473 - tmp472;
- tmp401 = tmp399 - tmp400;
- tmp213 = tmp205 - tmp212;
- tmp222 = tmp214 + tmp221;
- tmp223 = (K995184726 * tmp213) - (K098017140 * tmp222);
- tmp285 = (K995184726 * tmp222) + (K098017140 * tmp213);
- }
- {
- fftw_real tmp341;
- fftw_real tmp342;
- fftw_real tmp650;
- fftw_real tmp651;
- ASSERT_ALIGNED_DOUBLE;
- tmp341 = tmp205 + tmp212;
- tmp342 = tmp221 - tmp214;
- tmp343 = (K956940335 * tmp341) - (K290284677 * tmp342);
- tmp357 = (K956940335 * tmp342) + (K290284677 * tmp341);
- tmp650 = (K049067674 * tmp588) + (K998795456 * tmp591);
- tmp651 = (K671558954 * tmp595) + (K740951125 * tmp598);
- tmp652 = tmp650 - tmp651;
- tmp723 = tmp650 + tmp651;
- }
- tmp592 = (K998795456 * tmp588) - (K049067674 * tmp591);
- tmp599 = (K740951125 * tmp595) - (K671558954 * tmp598);
- tmp600 = tmp592 + tmp599;
- tmp720 = tmp592 - tmp599;
- {
- fftw_real tmp232;
- fftw_real tmp241;
- fftw_real tmp344;
- fftw_real tmp345;
- ASSERT_ALIGNED_DOUBLE;
- tmp232 = tmp224 - tmp231;
- tmp241 = tmp233 + tmp240;
- tmp242 = (K773010453 * tmp232) - (K634393284 * tmp241);
- tmp286 = (K773010453 * tmp241) + (K634393284 * tmp232);
- tmp344 = tmp240 - tmp233;
- tmp345 = tmp224 + tmp231;
- tmp346 = (K881921264 * tmp344) + (K471396736 * tmp345);
- tmp358 = (K881921264 * tmp345) - (K471396736 * tmp344);
- }
- }
- }
- {
- fftw_real tmp65;
- fftw_real tmp421;
- fftw_real tmp34;
- fftw_real tmp414;
- fftw_real tmp129;
- fftw_real tmp423;
- fftw_real tmp413;
- fftw_real tmp424;
- fftw_real tmp18;
- fftw_real tmp66;
- fftw_real tmp398;
- ASSERT_ALIGNED_DOUBLE;
- tmp65 = K2_000000000 * (tmp49 + tmp64);
- tmp421 = K2_000000000 * (tmp417 - tmp420);
- tmp18 = tmp10 + tmp17;
- tmp34 = tmp18 + tmp33;
- tmp414 = tmp18 - tmp33;
- {
- fftw_real tmp97;
- fftw_real tmp128;
- fftw_real tmp405;
- fftw_real tmp412;
- ASSERT_ALIGNED_DOUBLE;
- tmp97 = tmp81 + tmp96;
- tmp128 = tmp112 + tmp127;
- tmp129 = K2_000000000 * (tmp97 + tmp128);
- tmp423 = tmp97 - tmp128;
- tmp405 = tmp401 - tmp404;
- tmp412 = tmp408 - tmp411;
- tmp413 = K2_000000000 * (tmp405 - tmp412);
- tmp424 = tmp405 + tmp412;
- }
- tmp66 = tmp34 + tmp65;
- output[64 * ostride] = tmp66 - tmp129;
- output[0] = tmp66 + tmp129;
- tmp398 = tmp34 - tmp65;
- output[32 * ostride] = tmp398 - tmp413;
- output[96 * ostride] = tmp398 + tmp413;
- {
- fftw_real tmp422;
- fftw_real tmp425;
- fftw_real tmp426;
- fftw_real tmp427;
- ASSERT_ALIGNED_DOUBLE;
- tmp422 = tmp414 - tmp421;
- tmp425 = K1_414213562 * (tmp423 - tmp424);
- output[80 * ostride] = tmp422 - tmp425;
- output[16 * ostride] = tmp422 + tmp425;
- tmp426 = tmp414 + tmp421;
- tmp427 = K1_414213562 * (tmp423 + tmp424);
- output[48 * ostride] = tmp426 - tmp427;
- output[112 * ostride] = tmp426 + tmp427;
- }
- }
- {
- fftw_real tmp432;
- fftw_real tmp446;
- fftw_real tmp442;
- fftw_real tmp450;
- fftw_real tmp435;
- fftw_real tmp447;
- fftw_real tmp439;
- fftw_real tmp449;
- fftw_real tmp428;
- fftw_real tmp440;
- fftw_real tmp441;
- ASSERT_ALIGNED_DOUBLE;
- tmp428 = tmp10 - tmp17;
- tmp432 = tmp428 - tmp431;
- tmp446 = tmp428 + tmp431;
- tmp440 = tmp127 - tmp112;
- tmp441 = tmp401 + tmp404;
- tmp442 = tmp440 + tmp441;
- tmp450 = tmp441 - tmp440;
- {
- fftw_real tmp433;
- fftw_real tmp434;
- fftw_real tmp437;
- fftw_real tmp438;
- ASSERT_ALIGNED_DOUBLE;
- tmp433 = tmp49 - tmp64;
- tmp434 = tmp417 + tmp420;
- tmp435 = K1_414213562 * (tmp433 - tmp434);
- tmp447 = K1_414213562 * (tmp433 + tmp434);
- tmp437 = tmp81 - tmp96;
- tmp438 = tmp408 + tmp411;
- tmp439 = tmp437 - tmp438;
- tmp449 = tmp437 + tmp438;
- }
- {
- fftw_real tmp436;
- fftw_real tmp443;
- fftw_real tmp444;
- fftw_real tmp445;
- ASSERT_ALIGNED_DOUBLE;
- tmp436 = tmp432 + tmp435;
- tmp443 = (K1_847759065 * tmp439) - (K765366864 * tmp442);
- output[72 * ostride] = tmp436 - tmp443;
- output[8 * ostride] = tmp436 + tmp443;
- tmp444 = tmp432 - tmp435;
- tmp445 = (K1_847759065 * tmp442) + (K765366864 * tmp439);
- output[40 * ostride] = tmp444 - tmp445;
- output[104 * ostride] = tmp444 + tmp445;
- }
- {
- fftw_real tmp448;
- fftw_real tmp451;
- fftw_real tmp452;
- fftw_real tmp453;
- ASSERT_ALIGNED_DOUBLE;
- tmp448 = tmp446 - tmp447;
- tmp451 = (K765366864 * tmp449) - (K1_847759065 * tmp450);
- output[88 * ostride] = tmp448 - tmp451;
- output[24 * ostride] = tmp448 + tmp451;
- tmp452 = tmp446 + tmp447;
- tmp453 = (K765366864 * tmp450) + (K1_847759065 * tmp449);
- output[56 * ostride] = tmp452 - tmp453;
- output[120 * ostride] = tmp452 + tmp453;
- }
- }
- {
- fftw_real tmp203;
- fftw_real tmp295;
- fftw_real tmp164;
- fftw_real tmp292;
- fftw_real tmp283;
- fftw_real tmp297;
- fftw_real tmp291;
- fftw_real tmp298;
- fftw_real tmp144;
- fftw_real tmp163;
- fftw_real tmp204;
- fftw_real tmp284;
- ASSERT_ALIGNED_DOUBLE;
- tmp203 = K2_000000000 * (tmp183 + tmp202);
- tmp295 = K2_000000000 * (tmp293 - tmp294);
- tmp144 = tmp134 + tmp143;
- tmp163 = (K1_847759065 * tmp153) - (K765366864 * tmp162);
- tmp164 = tmp144 + tmp163;
- tmp292 = tmp144 - tmp163;
- {
- fftw_real tmp243;
- fftw_real tmp282;
- fftw_real tmp287;
- fftw_real tmp290;
- ASSERT_ALIGNED_DOUBLE;
- tmp243 = tmp223 + tmp242;
- tmp282 = tmp262 + tmp281;
- tmp283 = K2_000000000 * (tmp243 + tmp282);
- tmp297 = tmp243 - tmp282;
- tmp287 = tmp285 - tmp286;
- tmp290 = tmp288 - tmp289;
- tmp291 = K2_000000000 * (tmp287 - tmp290);
- tmp298 = tmp287 + tmp290;
- }
- tmp204 = tmp164 + tmp203;
- output[66 * ostride] = tmp204 - tmp283;
- output[2 * ostride] = tmp204 + tmp283;
- tmp284 = tmp164 - tmp203;
- output[34 * ostride] = tmp284 - tmp291;
- output[98 * ostride] = tmp284 + tmp291;
- {
- fftw_real tmp296;
- fftw_real tmp299;
- fftw_real tmp300;
- fftw_real tmp301;
- ASSERT_ALIGNED_DOUBLE;
- tmp296 = tmp292 - tmp295;
- tmp299 = K1_414213562 * (tmp297 - tmp298);
- output[82 * ostride] = tmp296 - tmp299;
- output[18 * ostride] = tmp296 + tmp299;
- tmp300 = tmp292 + tmp295;
- tmp301 = K1_414213562 * (tmp297 + tmp298);
- output[50 * ostride] = tmp300 - tmp301;
- output[114 * ostride] = tmp300 + tmp301;
- }
- }
- {
- fftw_real tmp304;
- fftw_real tmp318;
- fftw_real tmp314;
- fftw_real tmp322;
- fftw_real tmp307;
- fftw_real tmp319;
- fftw_real tmp311;
- fftw_real tmp321;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp302;
- fftw_real tmp303;
- fftw_real tmp312;
- fftw_real tmp313;
- ASSERT_ALIGNED_DOUBLE;
- tmp302 = tmp134 - tmp143;
- tmp303 = (K1_847759065 * tmp162) + (K765366864 * tmp153);
- tmp304 = tmp302 - tmp303;
- tmp318 = tmp302 + tmp303;
- tmp312 = tmp285 + tmp286;
- tmp313 = tmp281 - tmp262;
- tmp314 = tmp312 + tmp313;
- tmp322 = tmp312 - tmp313;
- }
- {
- fftw_real tmp305;
- fftw_real tmp306;
- fftw_real tmp309;
- fftw_real tmp310;
- ASSERT_ALIGNED_DOUBLE;
- tmp305 = tmp183 - tmp202;
- tmp306 = tmp293 + tmp294;
- tmp307 = K1_414213562 * (tmp305 - tmp306);
- tmp319 = K1_414213562 * (tmp305 + tmp306);
- tmp309 = tmp223 - tmp242;
- tmp310 = tmp288 + tmp289;
- tmp311 = tmp309 - tmp310;
- tmp321 = tmp309 + tmp310;
- }
- {
- fftw_real tmp308;
- fftw_real tmp315;
- fftw_real tmp316;
- fftw_real tmp317;
- ASSERT_ALIGNED_DOUBLE;
- tmp308 = tmp304 + tmp307;
- tmp315 = (K1_847759065 * tmp311) - (K765366864 * tmp314);
- output[74 * ostride] = tmp308 - tmp315;
- output[10 * ostride] = tmp308 + tmp315;
- tmp316 = tmp304 - tmp307;
- tmp317 = (K1_847759065 * tmp314) + (K765366864 * tmp311);
- output[42 * ostride] = tmp316 - tmp317;
- output[106 * ostride] = tmp316 + tmp317;
- }
- {
- fftw_real tmp320;
- fftw_real tmp323;
- fftw_real tmp324;
- fftw_real tmp325;
- ASSERT_ALIGNED_DOUBLE;
- tmp320 = tmp318 - tmp319;
- tmp323 = (K765366864 * tmp321) - (K1_847759065 * tmp322);
- output[90 * ostride] = tmp320 - tmp323;
- output[26 * ostride] = tmp320 + tmp323;
- tmp324 = tmp318 + tmp319;
- tmp325 = (K765366864 * tmp322) + (K1_847759065 * tmp321);
- output[58 * ostride] = tmp324 - tmp325;
- output[122 * ostride] = tmp324 + tmp325;
- }
- }
- {
- fftw_real tmp460;
- fftw_real tmp488;
- fftw_real tmp487;
- fftw_real tmp492;
- fftw_real tmp483;
- fftw_real tmp491;
- fftw_real tmp467;
- fftw_real tmp489;
- fftw_real tmp468;
- fftw_real tmp484;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp456;
- fftw_real tmp459;
- fftw_real tmp485;
- fftw_real tmp486;
- ASSERT_ALIGNED_DOUBLE;
- tmp456 = tmp454 - tmp455;
- tmp459 = K1_414213562 * (tmp457 - tmp458);
- tmp460 = tmp456 + tmp459;
- tmp488 = tmp456 - tmp459;
- tmp485 = (K980785280 * tmp474) + (K195090322 * tmp471);
- tmp486 = (K831469612 * tmp481) + (K555570233 * tmp478);
- tmp487 = K2_000000000 * (tmp485 - tmp486);
- tmp492 = tmp485 + tmp486;
- }
- {
- fftw_real tmp475;
- fftw_real tmp482;
- fftw_real tmp463;
- fftw_real tmp466;
- ASSERT_ALIGNED_DOUBLE;
- tmp475 = (K980785280 * tmp471) - (K195090322 * tmp474);
- tmp482 = (K831469612 * tmp478) - (K555570233 * tmp481);
- tmp483 = K2_000000000 * (tmp475 + tmp482);
- tmp491 = tmp475 - tmp482;
- tmp463 = tmp461 - tmp462;
- tmp466 = tmp464 + tmp465;
- tmp467 = (K1_847759065 * tmp463) - (K765366864 * tmp466);
- tmp489 = (K1_847759065 * tmp466) + (K765366864 * tmp463);
- }
- tmp468 = tmp460 + tmp467;
- output[68 * ostride] = tmp468 - tmp483;
- output[4 * ostride] = tmp468 + tmp483;
- tmp484 = tmp460 - tmp467;
- output[36 * ostride] = tmp484 - tmp487;
- output[100 * ostride] = tmp484 + tmp487;
- {
- fftw_real tmp490;
- fftw_real tmp493;
- fftw_real tmp494;
- fftw_real tmp495;
- ASSERT_ALIGNED_DOUBLE;
- tmp490 = tmp488 - tmp489;
- tmp493 = K1_414213562 * (tmp491 - tmp492);
- output[84 * ostride] = tmp490 - tmp493;
- output[20 * ostride] = tmp490 + tmp493;
- tmp494 = tmp488 + tmp489;
- tmp495 = K1_414213562 * (tmp491 + tmp492);
- output[52 * ostride] = tmp494 - tmp495;
- output[116 * ostride] = tmp494 + tmp495;
- }
- }
- {
- fftw_real tmp498;
- fftw_real tmp514;
- fftw_real tmp513;
- fftw_real tmp518;
- fftw_real tmp509;
- fftw_real tmp517;
- fftw_real tmp501;
- fftw_real tmp515;
- fftw_real tmp502;
- fftw_real tmp510;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp496;
- fftw_real tmp497;
- fftw_real tmp511;
- fftw_real tmp512;
- ASSERT_ALIGNED_DOUBLE;
- tmp496 = tmp454 + tmp455;
- tmp497 = K1_414213562 * (tmp457 + tmp458);
- tmp498 = tmp496 - tmp497;
- tmp514 = tmp496 + tmp497;
- tmp511 = (K831469612 * tmp504) + (K555570233 * tmp503);
- tmp512 = (K980785280 * tmp507) - (K195090322 * tmp506);
- tmp513 = K2_000000000 * (tmp511 - tmp512);
- tmp518 = tmp511 + tmp512;
- }
- {
- fftw_real tmp505;
- fftw_real tmp508;
- fftw_real tmp499;
- fftw_real tmp500;
- ASSERT_ALIGNED_DOUBLE;
- tmp505 = (K831469612 * tmp503) - (K555570233 * tmp504);
- tmp508 = (K980785280 * tmp506) + (K195090322 * tmp507);
- tmp509 = K2_000000000 * (tmp505 - tmp508);
- tmp517 = tmp505 + tmp508;
- tmp499 = tmp461 + tmp462;
- tmp500 = tmp465 - tmp464;
- tmp501 = (K765366864 * tmp499) - (K1_847759065 * tmp500);
- tmp515 = (K765366864 * tmp500) + (K1_847759065 * tmp499);
- }
- tmp502 = tmp498 + tmp501;
- output[76 * ostride] = tmp502 - tmp509;
- output[12 * ostride] = tmp502 + tmp509;
- tmp510 = tmp498 - tmp501;
- output[44 * ostride] = tmp510 - tmp513;
- output[108 * ostride] = tmp510 + tmp513;
- {
- fftw_real tmp516;
- fftw_real tmp519;
- fftw_real tmp520;
- fftw_real tmp521;
- ASSERT_ALIGNED_DOUBLE;
- tmp516 = tmp514 - tmp515;
- tmp519 = K1_414213562 * (tmp517 - tmp518);
- output[92 * ostride] = tmp516 - tmp519;
- output[28 * ostride] = tmp516 + tmp519;
- tmp520 = tmp514 + tmp515;
- tmp521 = K1_414213562 * (tmp517 + tmp518);
- output[60 * ostride] = tmp520 - tmp521;
- output[124 * ostride] = tmp520 + tmp521;
- }
- }
- {
- fftw_real tmp339;
- fftw_real tmp367;
- fftw_real tmp332;
- fftw_real tmp364;
- fftw_real tmp355;
- fftw_real tmp369;
- fftw_real tmp363;
- fftw_real tmp370;
- fftw_real tmp328;
- fftw_real tmp331;
- fftw_real tmp340;
- fftw_real tmp356;
- ASSERT_ALIGNED_DOUBLE;
- tmp339 = K2_000000000 * (tmp335 - tmp338);
- tmp367 = K2_000000000 * (tmp365 - tmp366);
- tmp328 = tmp326 - tmp327;
- tmp331 = (K765366864 * tmp329) - (K1_847759065 * tmp330);
- tmp332 = tmp328 + tmp331;
- tmp364 = tmp328 - tmp331;
- {
- fftw_real tmp347;
- fftw_real tmp354;
- fftw_real tmp359;
- fftw_real tmp362;
- ASSERT_ALIGNED_DOUBLE;
- tmp347 = tmp343 - tmp346;
- tmp354 = tmp350 + tmp353;
- tmp355 = K2_000000000 * (tmp347 + tmp354);
- tmp369 = tmp347 - tmp354;
- tmp359 = tmp357 - tmp358;
- tmp362 = tmp360 - tmp361;
- tmp363 = K2_000000000 * (tmp359 - tmp362);
- tmp370 = tmp359 + tmp362;
- }
- tmp340 = tmp332 + tmp339;
- output[70 * ostride] = tmp340 - tmp355;
- output[6 * ostride] = tmp340 + tmp355;
- tmp356 = tmp332 - tmp339;
- output[38 * ostride] = tmp356 - tmp363;
- output[102 * ostride] = tmp356 + tmp363;
- {
- fftw_real tmp368;
- fftw_real tmp371;
- fftw_real tmp372;
- fftw_real tmp373;
- ASSERT_ALIGNED_DOUBLE;
- tmp368 = tmp364 - tmp367;
- tmp371 = K1_414213562 * (tmp369 - tmp370);
- output[86 * ostride] = tmp368 - tmp371;
- output[22 * ostride] = tmp368 + tmp371;
- tmp372 = tmp364 + tmp367;
- tmp373 = K1_414213562 * (tmp369 + tmp370);
- output[54 * ostride] = tmp372 - tmp373;
- output[118 * ostride] = tmp372 + tmp373;
- }
- }
- {
- fftw_real tmp376;
- fftw_real tmp390;
- fftw_real tmp386;
- fftw_real tmp394;
- fftw_real tmp379;
- fftw_real tmp391;
- fftw_real tmp383;
- fftw_real tmp393;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp374;
- fftw_real tmp375;
- fftw_real tmp384;
- fftw_real tmp385;
- ASSERT_ALIGNED_DOUBLE;
- tmp374 = tmp326 + tmp327;
- tmp375 = (K765366864 * tmp330) + (K1_847759065 * tmp329);
- tmp376 = tmp374 - tmp375;
- tmp390 = tmp374 + tmp375;
- tmp384 = tmp357 + tmp358;
- tmp385 = tmp353 - tmp350;
- tmp386 = tmp384 + tmp385;
- tmp394 = tmp384 - tmp385;
- }
- {
- fftw_real tmp377;
- fftw_real tmp378;
- fftw_real tmp381;
- fftw_real tmp382;
- ASSERT_ALIGNED_DOUBLE;
- tmp377 = tmp335 + tmp338;
- tmp378 = tmp365 + tmp366;
- tmp379 = K1_414213562 * (tmp377 - tmp378);
- tmp391 = K1_414213562 * (tmp377 + tmp378);
- tmp381 = tmp343 + tmp346;
- tmp382 = tmp360 + tmp361;
- tmp383 = tmp381 - tmp382;
- tmp393 = tmp381 + tmp382;
- }
- {
- fftw_real tmp380;
- fftw_real tmp387;
- fftw_real tmp388;
- fftw_real tmp389;
- ASSERT_ALIGNED_DOUBLE;
- tmp380 = tmp376 + tmp379;
- tmp387 = (K1_847759065 * tmp383) - (K765366864 * tmp386);
- output[78 * ostride] = tmp380 - tmp387;
- output[14 * ostride] = tmp380 + tmp387;
- tmp388 = tmp376 - tmp379;
- tmp389 = (K1_847759065 * tmp386) + (K765366864 * tmp383);
- output[46 * ostride] = tmp388 - tmp389;
- output[110 * ostride] = tmp388 + tmp389;
- }
- {
- fftw_real tmp392;
- fftw_real tmp395;
- fftw_real tmp396;
- fftw_real tmp397;
- ASSERT_ALIGNED_DOUBLE;
- tmp392 = tmp390 - tmp391;
- tmp395 = (K765366864 * tmp393) - (K1_847759065 * tmp394);
- output[94 * ostride] = tmp392 - tmp395;
- output[30 * ostride] = tmp392 + tmp395;
- tmp396 = tmp390 + tmp391;
- tmp397 = (K765366864 * tmp394) + (K1_847759065 * tmp393);
- output[62 * ostride] = tmp396 - tmp397;
- output[126 * ostride] = tmp396 + tmp397;
- }
- }
- {
- fftw_real tmp584;
- fftw_real tmp672;
- fftw_real tmp553;
- fftw_real tmp665;
- fftw_real tmp648;
- fftw_real tmp674;
- fftw_real tmp664;
- fftw_real tmp675;
- fftw_real tmp537;
- fftw_real tmp552;
- fftw_real tmp585;
- fftw_real tmp649;
- ASSERT_ALIGNED_DOUBLE;
- tmp584 = K2_000000000 * (tmp568 + tmp583);
- tmp672 = K2_000000000 * (tmp668 - tmp671);
- tmp537 = tmp529 + tmp536;
- tmp552 = K2_000000000 * (tmp544 + tmp551);
- tmp553 = tmp537 + tmp552;
- tmp665 = tmp537 - tmp552;
- {
- fftw_real tmp616;
- fftw_real tmp647;
- fftw_real tmp656;
- fftw_real tmp663;
- ASSERT_ALIGNED_DOUBLE;
- tmp616 = tmp600 + tmp615;
- tmp647 = tmp631 + tmp646;
- tmp648 = K2_000000000 * (tmp616 + tmp647);
- tmp674 = tmp616 - tmp647;
- tmp656 = tmp652 - tmp655;
- tmp663 = tmp659 - tmp662;
- tmp664 = K2_000000000 * (tmp656 - tmp663);
- tmp675 = tmp656 + tmp663;
- }
- tmp585 = tmp553 + tmp584;
- output[65 * ostride] = tmp585 - tmp648;
- output[ostride] = tmp585 + tmp648;
- tmp649 = tmp553 - tmp584;
- output[33 * ostride] = tmp649 - tmp664;
- output[97 * ostride] = tmp649 + tmp664;
- {
- fftw_real tmp673;
- fftw_real tmp676;
- fftw_real tmp677;
- fftw_real tmp678;
- ASSERT_ALIGNED_DOUBLE;
- tmp673 = tmp665 - tmp672;
- tmp676 = K1_414213562 * (tmp674 - tmp675);
- output[81 * ostride] = tmp673 - tmp676;
- output[17 * ostride] = tmp673 + tmp676;
- tmp677 = tmp665 + tmp672;
- tmp678 = K1_414213562 * (tmp674 + tmp675);
- output[49 * ostride] = tmp677 - tmp678;
- output[113 * ostride] = tmp677 + tmp678;
- }
- }
- {
- fftw_real tmp683;
- fftw_real tmp697;
- fftw_real tmp693;
- fftw_real tmp701;
- fftw_real tmp686;
- fftw_real tmp698;
- fftw_real tmp690;
- fftw_real tmp700;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp679;
- fftw_real tmp682;
- fftw_real tmp691;
- fftw_real tmp692;
- ASSERT_ALIGNED_DOUBLE;
- tmp679 = tmp529 - tmp536;
- tmp682 = K2_000000000 * (tmp680 - tmp681);
- tmp683 = tmp679 - tmp682;
- tmp697 = tmp679 + tmp682;
- tmp691 = tmp652 + tmp655;
- tmp692 = tmp646 - tmp631;
- tmp693 = tmp691 + tmp692;
- tmp701 = tmp691 - tmp692;
- }
- {
- fftw_real tmp684;
- fftw_real tmp685;
- fftw_real tmp688;
- fftw_real tmp689;
- ASSERT_ALIGNED_DOUBLE;
- tmp684 = tmp568 - tmp583;
- tmp685 = tmp668 + tmp671;
- tmp686 = K1_414213562 * (tmp684 - tmp685);
- tmp698 = K1_414213562 * (tmp684 + tmp685);
- tmp688 = tmp600 - tmp615;
- tmp689 = tmp659 + tmp662;
- tmp690 = tmp688 - tmp689;
- tmp700 = tmp688 + tmp689;
- }
- {
- fftw_real tmp687;
- fftw_real tmp694;
- fftw_real tmp695;
- fftw_real tmp696;
- ASSERT_ALIGNED_DOUBLE;
- tmp687 = tmp683 + tmp686;
- tmp694 = (K1_847759065 * tmp690) - (K765366864 * tmp693);
- output[73 * ostride] = tmp687 - tmp694;
- output[9 * ostride] = tmp687 + tmp694;
- tmp695 = tmp683 - tmp686;
- tmp696 = (K1_847759065 * tmp693) + (K765366864 * tmp690);
- output[41 * ostride] = tmp695 - tmp696;
- output[105 * ostride] = tmp695 + tmp696;
- }
- {
- fftw_real tmp699;
- fftw_real tmp702;
- fftw_real tmp703;
- fftw_real tmp704;
- ASSERT_ALIGNED_DOUBLE;
- tmp699 = tmp697 - tmp698;
- tmp702 = (K765366864 * tmp700) - (K1_847759065 * tmp701);
- output[89 * ostride] = tmp699 - tmp702;
- output[25 * ostride] = tmp699 + tmp702;
- tmp703 = tmp697 + tmp698;
- tmp704 = (K765366864 * tmp701) + (K1_847759065 * tmp700);
- output[57 * ostride] = tmp703 - tmp704;
- output[121 * ostride] = tmp703 + tmp704;
- }
- }
- {
- fftw_real tmp711;
- fftw_real tmp739;
- fftw_real tmp718;
- fftw_real tmp740;
- fftw_real tmp726;
- fftw_real tmp736;
- fftw_real tmp733;
- fftw_real tmp737;
- fftw_real tmp742;
- fftw_real tmp743;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp707;
- fftw_real tmp710;
- fftw_real tmp714;
- fftw_real tmp717;
- ASSERT_ALIGNED_DOUBLE;
- tmp707 = tmp705 - tmp706;
- tmp710 = K1_414213562 * (tmp708 - tmp709);
- tmp711 = tmp707 + tmp710;
- tmp739 = tmp707 - tmp710;
- tmp714 = tmp712 - tmp713;
- tmp717 = tmp715 + tmp716;
- tmp718 = (K1_847759065 * tmp714) - (K765366864 * tmp717);
- tmp740 = (K1_847759065 * tmp717) + (K765366864 * tmp714);
- {
- fftw_real tmp722;
- fftw_real tmp725;
- fftw_real tmp729;
- fftw_real tmp732;
- ASSERT_ALIGNED_DOUBLE;
- tmp722 = tmp720 - tmp721;
- tmp725 = tmp723 + tmp724;
- tmp726 = (K980785280 * tmp722) - (K195090322 * tmp725);
- tmp736 = (K980785280 * tmp725) + (K195090322 * tmp722);
- tmp729 = tmp727 - tmp728;
- tmp732 = tmp730 + tmp731;
- tmp733 = (K831469612 * tmp729) - (K555570233 * tmp732);
- tmp737 = (K831469612 * tmp732) + (K555570233 * tmp729);
- }
- tmp742 = tmp726 - tmp733;
- tmp743 = tmp736 + tmp737;
- }
- {
- fftw_real tmp719;
- fftw_real tmp734;
- fftw_real tmp735;
- fftw_real tmp738;
- ASSERT_ALIGNED_DOUBLE;
- tmp719 = tmp711 + tmp718;
- tmp734 = K2_000000000 * (tmp726 + tmp733);
- output[69 * ostride] = tmp719 - tmp734;
- output[5 * ostride] = tmp719 + tmp734;
- tmp735 = tmp711 - tmp718;
- tmp738 = K2_000000000 * (tmp736 - tmp737);
- output[37 * ostride] = tmp735 - tmp738;
- output[101 * ostride] = tmp735 + tmp738;
- }
- {
- fftw_real tmp741;
- fftw_real tmp744;
- fftw_real tmp745;
- fftw_real tmp746;
- ASSERT_ALIGNED_DOUBLE;
- tmp741 = tmp739 - tmp740;
- tmp744 = K1_414213562 * (tmp742 - tmp743);
- output[85 * ostride] = tmp741 - tmp744;
- output[21 * ostride] = tmp741 + tmp744;
- tmp745 = tmp739 + tmp740;
- tmp746 = K1_414213562 * (tmp742 + tmp743);
- output[53 * ostride] = tmp745 - tmp746;
- output[117 * ostride] = tmp745 + tmp746;
- }
- }
- {
- fftw_real tmp749;
- fftw_real tmp765;
- fftw_real tmp752;
- fftw_real tmp766;
- fftw_real tmp756;
- fftw_real tmp762;
- fftw_real tmp759;
- fftw_real tmp763;
- fftw_real tmp768;
- fftw_real tmp769;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp747;
- fftw_real tmp748;
- fftw_real tmp750;
- fftw_real tmp751;
- ASSERT_ALIGNED_DOUBLE;
- tmp747 = tmp705 + tmp706;
- tmp748 = K1_414213562 * (tmp708 + tmp709);
- tmp749 = tmp747 - tmp748;
- tmp765 = tmp747 + tmp748;
- tmp750 = tmp712 + tmp713;
- tmp751 = tmp715 - tmp716;
- tmp752 = (K765366864 * tmp750) - (K1_847759065 * tmp751);
- tmp766 = (K765366864 * tmp751) + (K1_847759065 * tmp750);
- {
- fftw_real tmp754;
- fftw_real tmp755;
- fftw_real tmp757;
- fftw_real tmp758;
- ASSERT_ALIGNED_DOUBLE;
- tmp754 = tmp720 + tmp721;
- tmp755 = tmp723 - tmp724;
- tmp756 = (K831469612 * tmp754) - (K555570233 * tmp755);
- tmp762 = (K831469612 * tmp755) + (K555570233 * tmp754);
- tmp757 = tmp730 - tmp731;
- tmp758 = tmp727 + tmp728;
- tmp759 = (K980785280 * tmp757) + (K195090322 * tmp758);
- tmp763 = (K980785280 * tmp758) - (K195090322 * tmp757);
- }
- tmp768 = tmp756 + tmp759;
- tmp769 = tmp762 + tmp763;
- }
- {
- fftw_real tmp753;
- fftw_real tmp760;
- fftw_real tmp761;
- fftw_real tmp764;
- ASSERT_ALIGNED_DOUBLE;
- tmp753 = tmp749 + tmp752;
- tmp760 = K2_000000000 * (tmp756 - tmp759);
- output[77 * ostride] = tmp753 - tmp760;
- output[13 * ostride] = tmp753 + tmp760;
- tmp761 = tmp749 - tmp752;
- tmp764 = K2_000000000 * (tmp762 - tmp763);
- output[45 * ostride] = tmp761 - tmp764;
- output[109 * ostride] = tmp761 + tmp764;
- }
- {
- fftw_real tmp767;
- fftw_real tmp770;
- fftw_real tmp771;
- fftw_real tmp772;
- ASSERT_ALIGNED_DOUBLE;
- tmp767 = tmp765 - tmp766;
- tmp770 = K1_414213562 * (tmp768 - tmp769);
- output[93 * ostride] = tmp767 - tmp770;
- output[29 * ostride] = tmp767 + tmp770;
- tmp771 = tmp765 + tmp766;
- tmp772 = K1_414213562 * (tmp768 + tmp769);
- output[61 * ostride] = tmp771 - tmp772;
- output[125 * ostride] = tmp771 + tmp772;
- }
- }
- {
- fftw_real tmp802;
- fftw_real tmp858;
- fftw_real tmp864;
- fftw_real tmp842;
- fftw_real tmp834;
- fftw_real tmp859;
- fftw_real tmp787;
- fftw_real tmp835;
- fftw_real tmp850;
- fftw_real tmp857;
- fftw_real tmp803;
- fftw_real tmp863;
- ASSERT_ALIGNED_DOUBLE;
- tmp802 = K2_000000000 * (tmp794 + tmp801);
- tmp850 = tmp846 + tmp849;
- tmp857 = tmp853 + tmp856;
- tmp858 = tmp850 - tmp857;
- tmp864 = K2_000000000 * (tmp850 + tmp857);
- tmp842 = K2_000000000 * (tmp838 - tmp841);
- {
- fftw_real tmp818;
- fftw_real tmp833;
- fftw_real tmp779;
- fftw_real tmp786;
- ASSERT_ALIGNED_DOUBLE;
- tmp818 = tmp810 - tmp817;
- tmp833 = tmp825 - tmp832;
- tmp834 = K2_000000000 * (tmp818 - tmp833);
- tmp859 = tmp818 + tmp833;
- tmp779 = tmp775 + tmp778;
- tmp786 = K2_000000000 * (tmp782 - tmp785);
- tmp787 = tmp779 + tmp786;
- tmp835 = tmp779 - tmp786;
- }
- tmp803 = tmp787 - tmp802;
- output[35 * ostride] = tmp803 - tmp834;
- output[99 * ostride] = tmp803 + tmp834;
- tmp863 = tmp787 + tmp802;
- output[67 * ostride] = tmp863 - tmp864;
- output[3 * ostride] = tmp863 + tmp864;
- {
- fftw_real tmp843;
- fftw_real tmp860;
- fftw_real tmp861;
- fftw_real tmp862;
- ASSERT_ALIGNED_DOUBLE;
- tmp843 = tmp835 - tmp842;
- tmp860 = K1_414213562 * (tmp858 - tmp859);
- output[83 * ostride] = tmp843 - tmp860;
- output[19 * ostride] = tmp843 + tmp860;
- tmp861 = tmp835 + tmp842;
- tmp862 = K1_414213562 * (tmp859 + tmp858);
- output[51 * ostride] = tmp861 - tmp862;
- output[115 * ostride] = tmp861 + tmp862;
- }
- }
- {
- fftw_real tmp869;
- fftw_real tmp883;
- fftw_real tmp879;
- fftw_real tmp887;
- fftw_real tmp872;
- fftw_real tmp884;
- fftw_real tmp876;
- fftw_real tmp886;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp865;
- fftw_real tmp868;
- fftw_real tmp877;
- fftw_real tmp878;
- ASSERT_ALIGNED_DOUBLE;
- tmp865 = tmp775 - tmp778;
- tmp868 = K2_000000000 * (tmp866 - tmp867);
- tmp869 = tmp865 + tmp868;
- tmp883 = tmp865 - tmp868;
- tmp877 = tmp810 + tmp817;
- tmp878 = tmp856 - tmp853;
- tmp879 = tmp877 - tmp878;
- tmp887 = tmp877 + tmp878;
- }
- {
- fftw_real tmp870;
- fftw_real tmp871;
- fftw_real tmp874;
- fftw_real tmp875;
- ASSERT_ALIGNED_DOUBLE;
- tmp870 = tmp794 - tmp801;
- tmp871 = tmp838 + tmp841;
- tmp872 = K1_414213562 * (tmp870 + tmp871);
- tmp884 = K1_414213562 * (tmp870 - tmp871);
- tmp874 = tmp846 - tmp849;
- tmp875 = tmp825 + tmp832;
- tmp876 = tmp874 + tmp875;
- tmp886 = tmp874 - tmp875;
- }
- {
- fftw_real tmp873;
- fftw_real tmp880;
- fftw_real tmp881;
- fftw_real tmp882;
- ASSERT_ALIGNED_DOUBLE;
- tmp873 = tmp869 - tmp872;
- tmp880 = (K765366864 * tmp876) - (K1_847759065 * tmp879);
- output[91 * ostride] = tmp873 - tmp880;
- output[27 * ostride] = tmp873 + tmp880;
- tmp881 = tmp869 + tmp872;
- tmp882 = (K1_847759065 * tmp876) + (K765366864 * tmp879);
- output[59 * ostride] = tmp881 - tmp882;
- output[123 * ostride] = tmp881 + tmp882;
- }
- {
- fftw_real tmp885;
- fftw_real tmp888;
- fftw_real tmp889;
- fftw_real tmp890;
- ASSERT_ALIGNED_DOUBLE;
- tmp885 = tmp883 + tmp884;
- tmp888 = (K1_847759065 * tmp886) - (K765366864 * tmp887);
- output[75 * ostride] = tmp885 - tmp888;
- output[11 * ostride] = tmp885 + tmp888;
- tmp889 = tmp883 - tmp884;
- tmp890 = (K765366864 * tmp886) + (K1_847759065 * tmp887);
- output[43 * ostride] = tmp889 - tmp890;
- output[107 * ostride] = tmp889 + tmp890;
- }
- }
- {
- fftw_real tmp897;
- fftw_real tmp925;
- fftw_real tmp904;
- fftw_real tmp926;
- fftw_real tmp912;
- fftw_real tmp922;
- fftw_real tmp919;
- fftw_real tmp923;
- fftw_real tmp928;
- fftw_real tmp929;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp893;
- fftw_real tmp896;
- fftw_real tmp900;
- fftw_real tmp903;
- ASSERT_ALIGNED_DOUBLE;
- tmp893 = tmp891 - tmp892;
- tmp896 = K1_414213562 * (tmp894 - tmp895);
- tmp897 = tmp893 + tmp896;
- tmp925 = tmp893 - tmp896;
- tmp900 = tmp898 - tmp899;
- tmp903 = tmp901 + tmp902;
- tmp904 = (K1_847759065 * tmp900) - (K765366864 * tmp903);
- tmp926 = (K1_847759065 * tmp903) + (K765366864 * tmp900);
- {
- fftw_real tmp908;
- fftw_real tmp911;
- fftw_real tmp915;
- fftw_real tmp918;
- ASSERT_ALIGNED_DOUBLE;
- tmp908 = tmp906 - tmp907;
- tmp911 = tmp909 + tmp910;
- tmp912 = (K980785280 * tmp908) - (K195090322 * tmp911);
- tmp922 = (K980785280 * tmp911) + (K195090322 * tmp908);
- tmp915 = tmp913 - tmp914;
- tmp918 = tmp916 - tmp917;
- tmp919 = (K831469612 * tmp915) - (K555570233 * tmp918);
- tmp923 = (K555570233 * tmp915) + (K831469612 * tmp918);
- }
- tmp928 = tmp912 - tmp919;
- tmp929 = tmp922 + tmp923;
- }
- {
- fftw_real tmp905;
- fftw_real tmp920;
- fftw_real tmp921;
- fftw_real tmp924;
- ASSERT_ALIGNED_DOUBLE;
- tmp905 = tmp897 + tmp904;
- tmp920 = K2_000000000 * (tmp912 + tmp919);
- output[71 * ostride] = tmp905 - tmp920;
- output[7 * ostride] = tmp905 + tmp920;
- tmp921 = tmp897 - tmp904;
- tmp924 = K2_000000000 * (tmp922 - tmp923);
- output[39 * ostride] = tmp921 - tmp924;
- output[103 * ostride] = tmp921 + tmp924;
- }
- {
- fftw_real tmp927;
- fftw_real tmp930;
- fftw_real tmp931;
- fftw_real tmp932;
- ASSERT_ALIGNED_DOUBLE;
- tmp927 = tmp925 - tmp926;
- tmp930 = K1_414213562 * (tmp928 - tmp929);
- output[87 * ostride] = tmp927 - tmp930;
- output[23 * ostride] = tmp927 + tmp930;
- tmp931 = tmp925 + tmp926;
- tmp932 = K1_414213562 * (tmp928 + tmp929);
- output[55 * ostride] = tmp931 - tmp932;
- output[119 * ostride] = tmp931 + tmp932;
- }
- }
- {
- fftw_real tmp935;
- fftw_real tmp951;
- fftw_real tmp938;
- fftw_real tmp952;
- fftw_real tmp942;
- fftw_real tmp948;
- fftw_real tmp945;
- fftw_real tmp949;
- fftw_real tmp954;
- fftw_real tmp955;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp933;
- fftw_real tmp934;
- fftw_real tmp936;
- fftw_real tmp937;
- ASSERT_ALIGNED_DOUBLE;
- tmp933 = tmp891 + tmp892;
- tmp934 = K1_414213562 * (tmp895 + tmp894);
- tmp935 = tmp933 - tmp934;
- tmp951 = tmp933 + tmp934;
- tmp936 = tmp898 + tmp899;
- tmp937 = tmp901 - tmp902;
- tmp938 = (K765366864 * tmp936) - (K1_847759065 * tmp937);
- tmp952 = (K765366864 * tmp937) + (K1_847759065 * tmp936);
- {
- fftw_real tmp940;
- fftw_real tmp941;
- fftw_real tmp943;
- fftw_real tmp944;
- ASSERT_ALIGNED_DOUBLE;
- tmp940 = tmp909 - tmp910;
- tmp941 = tmp906 + tmp907;
- tmp942 = (K831469612 * tmp940) + (K555570233 * tmp941);
- tmp948 = (K831469612 * tmp941) - (K555570233 * tmp940);
- tmp943 = tmp913 + tmp914;
- tmp944 = tmp916 + tmp917;
- tmp945 = (K980785280 * tmp943) - (K195090322 * tmp944);
- tmp949 = (K195090322 * tmp943) + (K980785280 * tmp944);
- }
- tmp954 = tmp948 + tmp949;
- tmp955 = tmp942 + tmp945;
- }
- {
- fftw_real tmp939;
- fftw_real tmp946;
- fftw_real tmp947;
- fftw_real tmp950;
- ASSERT_ALIGNED_DOUBLE;
- tmp939 = tmp935 - tmp938;
- tmp946 = K2_000000000 * (tmp942 - tmp945);
- output[47 * ostride] = tmp939 - tmp946;
- output[111 * ostride] = tmp939 + tmp946;
- tmp947 = tmp935 + tmp938;
- tmp950 = K2_000000000 * (tmp948 - tmp949);
- output[79 * ostride] = tmp947 - tmp950;
- output[15 * ostride] = tmp947 + tmp950;
- }
- {
- fftw_real tmp953;
- fftw_real tmp956;
- fftw_real tmp957;
- fftw_real tmp958;
- ASSERT_ALIGNED_DOUBLE;
- tmp953 = tmp951 - tmp952;
- tmp956 = K1_414213562 * (tmp954 - tmp955);
- output[95 * ostride] = tmp953 - tmp956;
- output[31 * ostride] = tmp953 + tmp956;
- tmp957 = tmp951 + tmp952;
- tmp958 = K1_414213562 * (tmp955 + tmp954);
- output[63 * ostride] = tmp957 - tmp958;
- output[127 * ostride] = tmp957 + tmp958;
- }
- }
-}
-
-fftw_codelet_desc fftw_hc2real_128_desc =
-{
- "fftw_hc2real_128",
- (void (*)()) fftw_hc2real_128,
- 128,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 2831,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_13.c b/src/sndobj/rfftw/fcr_13.c
deleted file mode 100644
index f832626..0000000
--- a/src/sndobj/rfftw/fcr_13.c
+++ /dev/null
@@ -1,273 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:23 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 13 */
-
-/*
- * This function contains 76 FP additions, 35 FP multiplications,
- * (or, 56 additions, 15 multiplications, 20 fused multiply/add),
- * 36 stack variables, and 26 memory accesses
- */
-static const fftw_real K531932498 = FFTW_KONST(+0.531932498429674575175042127684371897596660533);
-static const fftw_real K774781170 = FFTW_KONST(+0.774781170935234584261351932853525703557550433);
-static const fftw_real K1_007074065 = FFTW_KONST(+1.007074065727533254493747707736933954186697125);
-static const fftw_real K227708958 = FFTW_KONST(+0.227708958111581597949308691735310621069285120);
-static const fftw_real K265966249 = FFTW_KONST(+0.265966249214837287587521063842185948798330267);
-static const fftw_real K516520780 = FFTW_KONST(+0.516520780623489722840901288569017135705033622);
-static const fftw_real K151805972 = FFTW_KONST(+0.151805972074387731966205794490207080712856746);
-static const fftw_real K503537032 = FFTW_KONST(+0.503537032863766627246873853868466977093348562);
-static const fftw_real K166666666 = FFTW_KONST(+0.166666666666666666666666666666666666666666667);
-static const fftw_real K600925212 = FFTW_KONST(+0.600925212577331548853203544578415991041882762);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K348277202 = FFTW_KONST(+0.348277202304271810011321589858529485233929352);
-static const fftw_real K1_150281458 = FFTW_KONST(+1.150281458948006242736771094910906776922003215);
-static const fftw_real K256247671 = FFTW_KONST(+0.256247671582936600958684654061725059144125175);
-static const fftw_real K156891391 = FFTW_KONST(+0.156891391051584611046832726756003269660212636);
-static const fftw_real K300238635 = FFTW_KONST(+0.300238635966332641462884626667381504676006424);
-static const fftw_real K011599105 = FFTW_KONST(+0.011599105605768290721655456654083252189827041);
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fcr_13.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fcr_13.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fcr_13.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_hc2real_13(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp42;
- fftw_real tmp52;
- fftw_real tmp45;
- fftw_real tmp51;
- fftw_real tmp56;
- fftw_real tmp67;
- fftw_real tmp1;
- fftw_real tmp22;
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp16;
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp25;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp28;
- fftw_real tmp31;
- fftw_real tmp32;
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp38;
- fftw_real tmp35;
- fftw_real tmp40;
- fftw_real tmp36;
- fftw_real tmp41;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp29;
- fftw_real tmp30;
- fftw_real tmp33;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- tmp28 = imag_input[imag_istride];
- tmp29 = imag_input[3 * imag_istride];
- tmp30 = imag_input[4 * imag_istride];
- tmp31 = tmp29 - tmp30;
- tmp32 = (K2_000000000 * tmp28) - tmp31;
- tmp37 = K1_732050807 * (tmp29 + tmp30);
- tmp39 = imag_input[5 * imag_istride];
- tmp33 = imag_input[6 * imag_istride];
- tmp34 = imag_input[2 * imag_istride];
- tmp38 = tmp33 + tmp34;
- tmp35 = K1_732050807 * (tmp33 - tmp34);
- tmp40 = tmp38 - (K2_000000000 * tmp39);
- }
- tmp36 = tmp32 + tmp35;
- tmp41 = tmp37 - tmp40;
- tmp42 = (K011599105 * tmp36) - (K300238635 * tmp41);
- tmp52 = (K300238635 * tmp36) + (K011599105 * tmp41);
- {
- fftw_real tmp43;
- fftw_real tmp44;
- fftw_real tmp54;
- fftw_real tmp55;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = tmp32 - tmp35;
- tmp44 = tmp37 + tmp40;
- tmp45 = (K156891391 * tmp43) + (K256247671 * tmp44);
- tmp51 = (K256247671 * tmp43) - (K156891391 * tmp44);
- tmp54 = tmp28 + tmp31;
- tmp55 = tmp38 + tmp39;
- tmp56 = (K1_150281458 * tmp54) - (K348277202 * tmp55);
- tmp67 = (K348277202 * tmp54) + (K1_150281458 * tmp55);
- }
- }
- {
- fftw_real tmp11;
- fftw_real tmp18;
- fftw_real tmp15;
- fftw_real tmp6;
- fftw_real tmp17;
- fftw_real tmp14;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = real_input[0];
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = real_input[5 * real_istride];
- tmp8 = real_input[6 * real_istride];
- tmp9 = real_input[2 * real_istride];
- tmp10 = tmp8 + tmp9;
- tmp11 = tmp7 + tmp10;
- tmp18 = tmp7 - (K500000000 * tmp10);
- tmp15 = tmp8 - tmp9;
- }
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- fftw_real tmp5;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = real_input[real_istride];
- tmp3 = real_input[3 * real_istride];
- tmp4 = real_input[4 * real_istride];
- tmp5 = tmp3 + tmp4;
- tmp6 = tmp2 + tmp5;
- tmp17 = tmp2 - (K500000000 * tmp5);
- tmp14 = tmp3 - tmp4;
- }
- tmp22 = K600925212 * (tmp6 - tmp11);
- tmp12 = tmp6 + tmp11;
- tmp13 = tmp1 - (K166666666 * tmp12);
- tmp16 = tmp14 - tmp15;
- tmp19 = tmp17 + tmp18;
- tmp20 = (K503537032 * tmp16) + (K151805972 * tmp19);
- tmp23 = tmp17 - tmp18;
- tmp24 = tmp14 + tmp15;
- tmp25 = (K516520780 * tmp23) - (K265966249 * tmp24);
- }
- output[0] = tmp1 + (K2_000000000 * tmp12);
- {
- fftw_real tmp46;
- fftw_real tmp68;
- fftw_real tmp70;
- fftw_real tmp27;
- fftw_real tmp69;
- fftw_real tmp73;
- fftw_real tmp57;
- fftw_real tmp64;
- fftw_real tmp63;
- fftw_real tmp65;
- fftw_real tmp50;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp66;
- fftw_real tmp21;
- fftw_real tmp26;
- fftw_real tmp53;
- ASSERT_ALIGNED_DOUBLE;
- tmp46 = K1_732050807 * (tmp42 + tmp45);
- tmp66 = tmp42 - tmp45;
- tmp68 = (K2_000000000 * tmp66) - tmp67;
- tmp70 = tmp66 + tmp67;
- tmp21 = tmp13 - tmp20;
- tmp26 = tmp22 - tmp25;
- tmp27 = tmp21 - tmp26;
- tmp69 = tmp26 + tmp21;
- tmp73 = K1_732050807 * (tmp52 + tmp51);
- tmp53 = tmp51 - tmp52;
- tmp57 = tmp53 + tmp56;
- tmp64 = tmp56 - (K2_000000000 * tmp53);
- {
- fftw_real tmp61;
- fftw_real tmp62;
- fftw_real tmp48;
- fftw_real tmp49;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = (K2_000000000 * tmp20) + tmp13;
- tmp62 = (K2_000000000 * tmp25) + tmp22;
- tmp63 = tmp61 - tmp62;
- tmp65 = tmp62 + tmp61;
- tmp48 = (K227708958 * tmp16) - (K1_007074065 * tmp19);
- tmp49 = (K774781170 * tmp24) + (K531932498 * tmp23);
- tmp50 = tmp48 - tmp49;
- tmp72 = tmp49 + tmp48;
- }
- }
- output[5 * ostride] = tmp63 - tmp64;
- output[8 * ostride] = tmp63 + tmp64;
- {
- fftw_real tmp47;
- fftw_real tmp58;
- fftw_real tmp59;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = tmp27 - tmp46;
- tmp58 = tmp50 + tmp57;
- output[2 * ostride] = tmp47 - tmp58;
- output[7 * ostride] = tmp47 + tmp58;
- tmp59 = tmp27 + tmp46;
- tmp60 = tmp57 - tmp50;
- output[6 * ostride] = tmp59 - tmp60;
- output[11 * ostride] = tmp59 + tmp60;
- }
- output[12 * ostride] = tmp65 - tmp68;
- output[ostride] = tmp65 + tmp68;
- {
- fftw_real tmp71;
- fftw_real tmp74;
- fftw_real tmp75;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- tmp71 = tmp69 - tmp70;
- tmp74 = tmp72 + tmp73;
- output[3 * ostride] = tmp71 - tmp74;
- output[9 * ostride] = tmp74 + tmp71;
- tmp75 = tmp69 + tmp70;
- tmp76 = tmp73 - tmp72;
- output[4 * ostride] = tmp75 - tmp76;
- output[10 * ostride] = tmp76 + tmp75;
- }
- }
-}
-
-fftw_codelet_desc fftw_hc2real_13_desc =
-{
- "fftw_hc2real_13",
- (void (*)()) fftw_hc2real_13,
- 13,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 301,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_14.c b/src/sndobj/rfftw/fcr_14.c
deleted file mode 100644
index 8f3492a..0000000
--- a/src/sndobj/rfftw/fcr_14.c
+++ /dev/null
@@ -1,175 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:25 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 14 */
-
-/*
- * This function contains 62 FP additions, 38 FP multiplications,
- * (or, 60 additions, 36 multiplications, 2 fused multiply/add),
- * 24 stack variables, and 28 memory accesses
- */
-static const fftw_real K445041867 = FFTW_KONST(+0.445041867912628808577805128993589518932711138);
-static const fftw_real K1_801937735 = FFTW_KONST(+1.801937735804838252472204639014890102331838324);
-static const fftw_real K1_246979603 = FFTW_KONST(+1.246979603717467061050009768008479621264549462);
-static const fftw_real K867767478 = FFTW_KONST(+0.867767478235116240951536665696717509219981456);
-static const fftw_real K1_949855824 = FFTW_KONST(+1.949855824363647214036263365987862434465571601);
-static const fftw_real K1_563662964 = FFTW_KONST(+1.563662964936059617416889053348115500464669037);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fcr_14.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fcr_14.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fcr_14.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftw_hc2real_14(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp13;
- fftw_real tmp6;
- fftw_real tmp14;
- fftw_real tmp26;
- fftw_real tmp35;
- fftw_real tmp23;
- fftw_real tmp34;
- fftw_real tmp12;
- fftw_real tmp16;
- fftw_real tmp20;
- fftw_real tmp33;
- fftw_real tmp9;
- fftw_real tmp15;
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = real_input[0];
- tmp2 = real_input[7 * real_istride];
- tmp3 = tmp1 - tmp2;
- tmp13 = tmp1 + tmp2;
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp24;
- fftw_real tmp25;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = real_input[2 * real_istride];
- tmp5 = real_input[5 * real_istride];
- tmp6 = tmp4 - tmp5;
- tmp14 = tmp4 + tmp5;
- tmp24 = imag_input[2 * imag_istride];
- tmp25 = imag_input[5 * imag_istride];
- tmp26 = tmp24 - tmp25;
- tmp35 = tmp24 + tmp25;
- }
- {
- fftw_real tmp21;
- fftw_real tmp22;
- fftw_real tmp10;
- fftw_real tmp11;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = imag_input[6 * imag_istride];
- tmp22 = imag_input[imag_istride];
- tmp23 = tmp21 - tmp22;
- tmp34 = tmp21 + tmp22;
- tmp10 = real_input[6 * real_istride];
- tmp11 = real_input[real_istride];
- tmp12 = tmp10 - tmp11;
- tmp16 = tmp10 + tmp11;
- }
- {
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp7;
- fftw_real tmp8;
- ASSERT_ALIGNED_DOUBLE;
- tmp18 = imag_input[4 * imag_istride];
- tmp19 = imag_input[3 * imag_istride];
- tmp20 = tmp18 - tmp19;
- tmp33 = tmp18 + tmp19;
- tmp7 = real_input[4 * real_istride];
- tmp8 = real_input[3 * real_istride];
- tmp9 = tmp7 - tmp8;
- tmp15 = tmp7 + tmp8;
- }
- {
- fftw_real tmp38;
- fftw_real tmp37;
- fftw_real tmp29;
- fftw_real tmp28;
- ASSERT_ALIGNED_DOUBLE;
- output[7 * ostride] = tmp3 + (K2_000000000 * (tmp6 + tmp9 + tmp12));
- tmp38 = (K1_563662964 * tmp35) + (K1_949855824 * tmp33) + (K867767478 * tmp34);
- tmp37 = tmp3 + (K1_246979603 * tmp6) - (K1_801937735 * tmp12) - (K445041867 * tmp9);
- output[ostride] = tmp37 - tmp38;
- output[13 * ostride] = tmp37 + tmp38;
- {
- fftw_real tmp40;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- tmp40 = (K867767478 * tmp33) + (K1_563662964 * tmp34) - (K1_949855824 * tmp35);
- tmp39 = tmp3 + (K1_246979603 * tmp12) - (K1_801937735 * tmp9) - (K445041867 * tmp6);
- output[5 * ostride] = tmp39 - tmp40;
- output[9 * ostride] = tmp39 + tmp40;
- tmp36 = (K1_563662964 * tmp33) - (K1_949855824 * tmp34) - (K867767478 * tmp35);
- tmp32 = tmp3 + (K1_246979603 * tmp9) - (K445041867 * tmp12) - (K1_801937735 * tmp6);
- output[11 * ostride] = tmp32 - tmp36;
- output[3 * ostride] = tmp32 + tmp36;
- }
- output[0] = tmp13 + (K2_000000000 * (tmp14 + tmp15 + tmp16));
- tmp29 = (K867767478 * tmp20) + (K1_563662964 * tmp23) - (K1_949855824 * tmp26);
- tmp28 = tmp13 + (K1_246979603 * tmp16) - (K1_801937735 * tmp15) - (K445041867 * tmp14);
- output[12 * ostride] = tmp28 - tmp29;
- output[2 * ostride] = tmp28 + tmp29;
- {
- fftw_real tmp31;
- fftw_real tmp30;
- fftw_real tmp27;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = (K1_563662964 * tmp26) + (K1_949855824 * tmp20) + (K867767478 * tmp23);
- tmp30 = tmp13 + (K1_246979603 * tmp14) - (K1_801937735 * tmp16) - (K445041867 * tmp15);
- output[8 * ostride] = tmp30 - tmp31;
- output[6 * ostride] = tmp30 + tmp31;
- tmp27 = (K1_563662964 * tmp20) - (K1_949855824 * tmp23) - (K867767478 * tmp26);
- tmp17 = tmp13 + (K1_246979603 * tmp15) - (K445041867 * tmp16) - (K1_801937735 * tmp14);
- output[4 * ostride] = tmp17 - tmp27;
- output[10 * ostride] = tmp17 + tmp27;
- }
- }
-}
-
-fftw_codelet_desc fftw_hc2real_14_desc =
-{
- "fftw_hc2real_14",
- (void (*)()) fftw_hc2real_14,
- 14,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 323,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_15.c b/src/sndobj/rfftw/fcr_15.c
deleted file mode 100644
index 4c6c504..0000000
--- a/src/sndobj/rfftw/fcr_15.c
+++ /dev/null
@@ -1,226 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:26 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 15 */
-
-/*
- * This function contains 64 FP additions, 31 FP multiplications,
- * (or, 47 additions, 14 multiplications, 17 fused multiply/add),
- * 36 stack variables, and 30 memory accesses
- */
-static const fftw_real K1_118033988 = FFTW_KONST(+1.118033988749894848204586834365638117720309180);
-static const fftw_real K1_902113032 = FFTW_KONST(+1.902113032590307144232878666758764286811397268);
-static const fftw_real K1_175570504 = FFTW_KONST(+1.175570504584946258337411909278145537195304875);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-
-/*
- * Generator Id's :
- * $Id: fcr_15.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fcr_15.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fcr_15.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- */
-
-void fftw_hc2real_15(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp30;
- fftw_real tmp18;
- fftw_real tmp37;
- fftw_real tmp61;
- fftw_real tmp62;
- fftw_real tmp45;
- fftw_real tmp40;
- fftw_real tmp23;
- fftw_real tmp31;
- fftw_real tmp42;
- fftw_real tmp28;
- fftw_real tmp32;
- fftw_real tmp8;
- fftw_real tmp13;
- fftw_real tmp14;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp17;
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp15;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = imag_input[5 * imag_istride];
- tmp17 = K1_732050807 * tmp16;
- tmp1 = real_input[0];
- tmp2 = real_input[5 * real_istride];
- tmp15 = tmp1 - tmp2;
- tmp3 = tmp1 + (K2_000000000 * tmp2);
- tmp30 = tmp15 - tmp17;
- tmp18 = tmp15 + tmp17;
- }
- {
- fftw_real tmp4;
- fftw_real tmp39;
- fftw_real tmp5;
- fftw_real tmp6;
- fftw_real tmp7;
- fftw_real tmp22;
- fftw_real tmp38;
- fftw_real tmp9;
- fftw_real tmp44;
- fftw_real tmp10;
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp27;
- fftw_real tmp43;
- fftw_real tmp19;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp20;
- fftw_real tmp21;
- fftw_real tmp25;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = real_input[3 * real_istride];
- tmp39 = imag_input[3 * imag_istride];
- tmp5 = real_input[7 * real_istride];
- tmp6 = real_input[2 * real_istride];
- tmp7 = tmp5 + tmp6;
- tmp20 = imag_input[7 * imag_istride];
- tmp21 = imag_input[2 * imag_istride];
- tmp22 = K866025403 * (tmp20 - tmp21);
- tmp38 = tmp20 + tmp21;
- tmp9 = real_input[6 * real_istride];
- tmp44 = imag_input[6 * imag_istride];
- tmp10 = real_input[4 * real_istride];
- tmp11 = real_input[real_istride];
- tmp12 = tmp10 + tmp11;
- tmp25 = imag_input[4 * imag_istride];
- tmp26 = imag_input[imag_istride];
- tmp27 = K866025403 * (tmp25 + tmp26);
- tmp43 = tmp25 - tmp26;
- }
- tmp37 = K866025403 * (tmp5 - tmp6);
- tmp61 = tmp39 - tmp38;
- tmp62 = tmp44 - tmp43;
- tmp45 = (K500000000 * tmp43) + tmp44;
- tmp40 = (K500000000 * tmp38) + tmp39;
- tmp19 = tmp4 - (K500000000 * tmp7);
- tmp23 = tmp19 - tmp22;
- tmp31 = tmp19 + tmp22;
- tmp42 = K866025403 * (tmp10 - tmp11);
- tmp24 = tmp9 - (K500000000 * tmp12);
- tmp28 = tmp24 - tmp27;
- tmp32 = tmp24 + tmp27;
- tmp8 = tmp4 + tmp7;
- tmp13 = tmp9 + tmp12;
- tmp14 = tmp8 + tmp13;
- }
- output[0] = tmp3 + (K2_000000000 * tmp14);
- {
- fftw_real tmp63;
- fftw_real tmp65;
- fftw_real tmp60;
- fftw_real tmp64;
- fftw_real tmp58;
- fftw_real tmp59;
- ASSERT_ALIGNED_DOUBLE;
- tmp63 = (K1_175570504 * tmp61) - (K1_902113032 * tmp62);
- tmp65 = (K1_902113032 * tmp61) + (K1_175570504 * tmp62);
- tmp58 = tmp3 - (K500000000 * tmp14);
- tmp59 = K1_118033988 * (tmp8 - tmp13);
- tmp60 = tmp58 - tmp59;
- tmp64 = tmp59 + tmp58;
- output[12 * ostride] = tmp60 - tmp63;
- output[3 * ostride] = tmp60 + tmp63;
- output[6 * ostride] = tmp64 - tmp65;
- output[9 * ostride] = tmp64 + tmp65;
- }
- {
- fftw_real tmp51;
- fftw_real tmp29;
- fftw_real tmp50;
- fftw_real tmp55;
- fftw_real tmp57;
- fftw_real tmp53;
- fftw_real tmp54;
- fftw_real tmp56;
- fftw_real tmp52;
- ASSERT_ALIGNED_DOUBLE;
- tmp51 = K1_118033988 * (tmp23 - tmp28);
- tmp29 = tmp23 + tmp28;
- tmp50 = tmp18 - (K500000000 * tmp29);
- tmp53 = tmp40 - tmp37;
- tmp54 = tmp45 - tmp42;
- tmp55 = (K1_175570504 * tmp53) - (K1_902113032 * tmp54);
- tmp57 = (K1_902113032 * tmp53) + (K1_175570504 * tmp54);
- output[5 * ostride] = tmp18 + (K2_000000000 * tmp29);
- tmp56 = tmp51 + tmp50;
- output[11 * ostride] = tmp56 - tmp57;
- output[14 * ostride] = tmp56 + tmp57;
- tmp52 = tmp50 - tmp51;
- output[2 * ostride] = tmp52 - tmp55;
- output[8 * ostride] = tmp52 + tmp55;
- }
- {
- fftw_real tmp35;
- fftw_real tmp33;
- fftw_real tmp34;
- fftw_real tmp47;
- fftw_real tmp49;
- fftw_real tmp41;
- fftw_real tmp46;
- fftw_real tmp48;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp35 = K1_118033988 * (tmp31 - tmp32);
- tmp33 = tmp31 + tmp32;
- tmp34 = tmp30 - (K500000000 * tmp33);
- tmp41 = tmp37 + tmp40;
- tmp46 = tmp42 + tmp45;
- tmp47 = (K1_175570504 * tmp41) - (K1_902113032 * tmp46);
- tmp49 = (K1_902113032 * tmp41) + (K1_175570504 * tmp46);
- output[10 * ostride] = tmp30 + (K2_000000000 * tmp33);
- tmp48 = tmp35 + tmp34;
- output[ostride] = tmp48 - tmp49;
- output[4 * ostride] = tmp48 + tmp49;
- tmp36 = tmp34 - tmp35;
- output[7 * ostride] = tmp36 - tmp47;
- output[13 * ostride] = tmp36 + tmp47;
- }
-}
-
-fftw_codelet_desc fftw_hc2real_15_desc =
-{
- "fftw_hc2real_15",
- (void (*)()) fftw_hc2real_15,
- 15,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 345,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_16.c b/src/sndobj/rfftw/fcr_16.c
deleted file mode 100644
index d1e6c1d..0000000
--- a/src/sndobj/rfftw/fcr_16.c
+++ /dev/null
@@ -1,226 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:27 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 16 */
-
-/*
- * This function contains 58 FP additions, 18 FP multiplications,
- * (or, 54 additions, 14 multiplications, 4 fused multiply/add),
- * 26 stack variables, and 32 memory accesses
- */
-static const fftw_real K765366864 = FFTW_KONST(+0.765366864730179543456919968060797733522689125);
-static const fftw_real K1_847759065 = FFTW_KONST(+1.847759065022573512256366378793576573644833252);
-static const fftw_real K1_414213562 = FFTW_KONST(+1.414213562373095048801688724209698078569671875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fcr_16.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fcr_16.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fcr_16.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- */
-
-void fftw_hc2real_16(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp9;
- fftw_real tmp54;
- fftw_real tmp42;
- fftw_real tmp21;
- fftw_real tmp6;
- fftw_real tmp18;
- fftw_real tmp39;
- fftw_real tmp53;
- fftw_real tmp13;
- fftw_real tmp29;
- fftw_real tmp16;
- fftw_real tmp26;
- fftw_real tmp23;
- fftw_real tmp49;
- fftw_real tmp57;
- fftw_real tmp56;
- fftw_real tmp46;
- fftw_real tmp30;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp40;
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp41;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = real_input[2 * real_istride];
- tmp8 = real_input[6 * real_istride];
- tmp40 = tmp7 - tmp8;
- tmp19 = imag_input[2 * imag_istride];
- tmp20 = imag_input[6 * imag_istride];
- tmp41 = tmp20 + tmp19;
- tmp9 = K2_000000000 * (tmp7 + tmp8);
- tmp54 = K1_414213562 * (tmp40 + tmp41);
- tmp42 = K1_414213562 * (tmp40 - tmp41);
- tmp21 = K2_000000000 * (tmp19 - tmp20);
- }
- {
- fftw_real tmp5;
- fftw_real tmp38;
- fftw_real tmp3;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp37;
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = real_input[4 * real_istride];
- tmp5 = K2_000000000 * tmp4;
- tmp37 = imag_input[4 * imag_istride];
- tmp38 = K2_000000000 * tmp37;
- tmp1 = real_input[0];
- tmp2 = real_input[8 * real_istride];
- tmp3 = tmp1 + tmp2;
- tmp36 = tmp1 - tmp2;
- }
- tmp6 = tmp3 + tmp5;
- tmp18 = tmp3 - tmp5;
- tmp39 = tmp36 - tmp38;
- tmp53 = tmp36 + tmp38;
- }
- {
- fftw_real tmp44;
- fftw_real tmp48;
- fftw_real tmp47;
- fftw_real tmp45;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp27;
- fftw_real tmp28;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = real_input[real_istride];
- tmp12 = real_input[7 * real_istride];
- tmp13 = tmp11 + tmp12;
- tmp44 = tmp11 - tmp12;
- tmp27 = imag_input[imag_istride];
- tmp28 = imag_input[7 * imag_istride];
- tmp29 = tmp27 - tmp28;
- tmp48 = tmp27 + tmp28;
- }
- {
- fftw_real tmp14;
- fftw_real tmp15;
- fftw_real tmp24;
- fftw_real tmp25;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = real_input[3 * real_istride];
- tmp15 = real_input[5 * real_istride];
- tmp16 = tmp14 + tmp15;
- tmp47 = tmp15 - tmp14;
- tmp24 = imag_input[3 * imag_istride];
- tmp25 = imag_input[5 * imag_istride];
- tmp26 = tmp24 - tmp25;
- tmp45 = tmp25 + tmp24;
- }
- tmp23 = tmp13 - tmp16;
- tmp49 = tmp47 + tmp48;
- tmp57 = tmp48 - tmp47;
- tmp56 = tmp44 + tmp45;
- tmp46 = tmp44 - tmp45;
- tmp30 = tmp26 + tmp29;
- }
- {
- fftw_real tmp10;
- fftw_real tmp17;
- fftw_real tmp34;
- fftw_real tmp35;
- ASSERT_ALIGNED_DOUBLE;
- tmp10 = tmp6 + tmp9;
- tmp17 = K2_000000000 * (tmp13 + tmp16);
- output[8 * ostride] = tmp10 - tmp17;
- output[0] = tmp10 + tmp17;
- tmp34 = tmp6 - tmp9;
- tmp35 = K2_000000000 * (tmp29 - tmp26);
- output[4 * ostride] = tmp34 - tmp35;
- output[12 * ostride] = tmp34 + tmp35;
- }
- {
- fftw_real tmp22;
- fftw_real tmp31;
- fftw_real tmp32;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp22 = tmp18 - tmp21;
- tmp31 = K1_414213562 * (tmp23 - tmp30);
- output[10 * ostride] = tmp22 - tmp31;
- output[2 * ostride] = tmp22 + tmp31;
- tmp32 = tmp18 + tmp21;
- tmp33 = K1_414213562 * (tmp23 + tmp30);
- output[6 * ostride] = tmp32 - tmp33;
- output[14 * ostride] = tmp32 + tmp33;
- }
- {
- fftw_real tmp43;
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp52;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = tmp39 + tmp42;
- tmp50 = (K1_847759065 * tmp46) - (K765366864 * tmp49);
- output[9 * ostride] = tmp43 - tmp50;
- output[ostride] = tmp43 + tmp50;
- tmp51 = tmp39 - tmp42;
- tmp52 = (K765366864 * tmp46) + (K1_847759065 * tmp49);
- output[5 * ostride] = tmp51 - tmp52;
- output[13 * ostride] = tmp51 + tmp52;
- }
- {
- fftw_real tmp55;
- fftw_real tmp58;
- fftw_real tmp59;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- tmp55 = tmp53 - tmp54;
- tmp58 = (K765366864 * tmp56) - (K1_847759065 * tmp57);
- output[11 * ostride] = tmp55 - tmp58;
- output[3 * ostride] = tmp55 + tmp58;
- tmp59 = tmp53 + tmp54;
- tmp60 = (K1_847759065 * tmp56) + (K765366864 * tmp57);
- output[7 * ostride] = tmp59 - tmp60;
- output[15 * ostride] = tmp59 + tmp60;
- }
-}
-
-fftw_codelet_desc fftw_hc2real_16_desc =
-{
- "fftw_hc2real_16",
- (void (*)()) fftw_hc2real_16,
- 16,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 367,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_2.c b/src/sndobj/rfftw/fcr_2.c
deleted file mode 100644
index 070857b..0000000
--- a/src/sndobj/rfftw/fcr_2.c
+++ /dev/null
@@ -1,62 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:18 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 2 */
-
-/*
- * This function contains 2 FP additions, 0 FP multiplications,
- * (or, 2 additions, 0 multiplications, 0 fused multiply/add),
- * 2 stack variables, and 4 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: fcr_2.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: fcr_2.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: fcr_2.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- */
-
-void fftw_hc2real_2(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = real_input[0];
- tmp2 = real_input[real_istride];
- output[ostride] = tmp1 - tmp2;
- output[0] = tmp1 + tmp2;
-}
-
-fftw_codelet_desc fftw_hc2real_2_desc =
-{
- "fftw_hc2real_2",
- (void (*)()) fftw_hc2real_2,
- 2,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 59,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_3.c b/src/sndobj/rfftw/fcr_3.c
deleted file mode 100644
index c120dd4..0000000
--- a/src/sndobj/rfftw/fcr_3.c
+++ /dev/null
@@ -1,71 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:18 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 3 */
-
-/*
- * This function contains 4 FP additions, 2 FP multiplications,
- * (or, 3 additions, 1 multiplications, 1 fused multiply/add),
- * 5 stack variables, and 6 memory accesses
- */
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-
-/*
- * Generator Id's :
- * $Id: fcr_3.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- * $Id: fcr_3.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- * $Id: fcr_3.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- */
-
-void fftw_hc2real_3(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp5;
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = imag_input[imag_istride];
- tmp5 = K1_732050807 * tmp4;
- tmp1 = real_input[0];
- tmp2 = real_input[real_istride];
- tmp3 = tmp1 - tmp2;
- output[0] = tmp1 + (K2_000000000 * tmp2);
- output[2 * ostride] = tmp3 + tmp5;
- output[ostride] = tmp3 - tmp5;
-}
-
-fftw_codelet_desc fftw_hc2real_3_desc =
-{
- "fftw_hc2real_3",
- (void (*)()) fftw_hc2real_3,
- 3,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 81,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_32.c b/src/sndobj/rfftw/fcr_32.c
deleted file mode 100644
index 7a21b13..0000000
--- a/src/sndobj/rfftw/fcr_32.c
+++ /dev/null
@@ -1,490 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:27 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 32 */
-
-/*
- * This function contains 156 FP additions, 54 FP multiplications,
- * (or, 140 additions, 38 multiplications, 16 fused multiply/add),
- * 44 stack variables, and 64 memory accesses
- */
-static const fftw_real K765366864 = FFTW_KONST(+0.765366864730179543456919968060797733522689125);
-static const fftw_real K1_847759065 = FFTW_KONST(+1.847759065022573512256366378793576573644833252);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K1_414213562 = FFTW_KONST(+1.414213562373095048801688724209698078569671875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fcr_32.c,v 1.1.1.1 2006/05/12 15:14:44 veplaini Exp $
- * $Id: fcr_32.c,v 1.1.1.1 2006/05/12 15:14:44 veplaini Exp $
- * $Id: fcr_32.c,v 1.1.1.1 2006/05/12 15:14:44 veplaini Exp $
- */
-
-void fftw_hc2real_32(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp9;
- fftw_real tmp134;
- fftw_real tmp96;
- fftw_real tmp37;
- fftw_real tmp32;
- fftw_real tmp58;
- fftw_real tmp56;
- fftw_real tmp80;
- fftw_real tmp145;
- fftw_real tmp149;
- fftw_real tmp119;
- fftw_real tmp123;
- fftw_real tmp6;
- fftw_real tmp34;
- fftw_real tmp93;
- fftw_real tmp133;
- fftw_real tmp17;
- fftw_real tmp39;
- fftw_real tmp46;
- fftw_real tmp83;
- fftw_real tmp100;
- fftw_real tmp136;
- fftw_real tmp103;
- fftw_real tmp137;
- fftw_real tmp25;
- fftw_real tmp49;
- fftw_real tmp65;
- fftw_real tmp79;
- fftw_real tmp142;
- fftw_real tmp148;
- fftw_real tmp112;
- fftw_real tmp122;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp94;
- fftw_real tmp35;
- fftw_real tmp36;
- fftw_real tmp95;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = real_input[4 * real_istride];
- tmp8 = real_input[12 * real_istride];
- tmp94 = tmp7 - tmp8;
- tmp35 = imag_input[4 * imag_istride];
- tmp36 = imag_input[12 * imag_istride];
- tmp95 = tmp36 + tmp35;
- tmp9 = K2_000000000 * (tmp7 + tmp8);
- tmp134 = K1_414213562 * (tmp94 + tmp95);
- tmp96 = K1_414213562 * (tmp94 - tmp95);
- tmp37 = K2_000000000 * (tmp35 - tmp36);
- }
- {
- fftw_real tmp28;
- fftw_real tmp113;
- fftw_real tmp55;
- fftw_real tmp117;
- fftw_real tmp31;
- fftw_real tmp116;
- fftw_real tmp52;
- fftw_real tmp114;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp53;
- fftw_real tmp54;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = real_input[3 * real_istride];
- tmp27 = real_input[13 * real_istride];
- tmp28 = tmp26 + tmp27;
- tmp113 = tmp26 - tmp27;
- tmp53 = imag_input[3 * imag_istride];
- tmp54 = imag_input[13 * imag_istride];
- tmp55 = tmp53 - tmp54;
- tmp117 = tmp53 + tmp54;
- }
- {
- fftw_real tmp29;
- fftw_real tmp30;
- fftw_real tmp50;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp29 = real_input[5 * real_istride];
- tmp30 = real_input[11 * real_istride];
- tmp31 = tmp29 + tmp30;
- tmp116 = tmp30 - tmp29;
- tmp50 = imag_input[5 * imag_istride];
- tmp51 = imag_input[11 * imag_istride];
- tmp52 = tmp50 - tmp51;
- tmp114 = tmp51 + tmp50;
- }
- tmp32 = tmp28 + tmp31;
- tmp58 = tmp31 - tmp28;
- tmp56 = tmp52 + tmp55;
- tmp80 = tmp55 - tmp52;
- {
- fftw_real tmp143;
- fftw_real tmp144;
- fftw_real tmp115;
- fftw_real tmp118;
- ASSERT_ALIGNED_DOUBLE;
- tmp143 = tmp113 + tmp114;
- tmp144 = tmp117 - tmp116;
- tmp145 = (K980785280 * tmp143) - (K195090322 * tmp144);
- tmp149 = (K195090322 * tmp143) + (K980785280 * tmp144);
- tmp115 = tmp113 - tmp114;
- tmp118 = tmp116 + tmp117;
- tmp119 = (K831469612 * tmp115) - (K555570233 * tmp118);
- tmp123 = (K555570233 * tmp115) + (K831469612 * tmp118);
- }
- }
- {
- fftw_real tmp5;
- fftw_real tmp92;
- fftw_real tmp3;
- fftw_real tmp90;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp91;
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = real_input[8 * real_istride];
- tmp5 = K2_000000000 * tmp4;
- tmp91 = imag_input[8 * imag_istride];
- tmp92 = K2_000000000 * tmp91;
- tmp1 = real_input[0];
- tmp2 = real_input[16 * real_istride];
- tmp3 = tmp1 + tmp2;
- tmp90 = tmp1 - tmp2;
- }
- tmp6 = tmp3 + tmp5;
- tmp34 = tmp3 - tmp5;
- tmp93 = tmp90 - tmp92;
- tmp133 = tmp90 + tmp92;
- }
- {
- fftw_real tmp13;
- fftw_real tmp98;
- fftw_real tmp45;
- fftw_real tmp102;
- fftw_real tmp16;
- fftw_real tmp101;
- fftw_real tmp42;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp43;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = real_input[2 * real_istride];
- tmp12 = real_input[14 * real_istride];
- tmp13 = tmp11 + tmp12;
- tmp98 = tmp11 - tmp12;
- tmp43 = imag_input[2 * imag_istride];
- tmp44 = imag_input[14 * imag_istride];
- tmp45 = tmp43 - tmp44;
- tmp102 = tmp43 + tmp44;
- }
- {
- fftw_real tmp14;
- fftw_real tmp15;
- fftw_real tmp40;
- fftw_real tmp41;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = real_input[6 * real_istride];
- tmp15 = real_input[10 * real_istride];
- tmp16 = tmp14 + tmp15;
- tmp101 = tmp15 - tmp14;
- tmp40 = imag_input[6 * imag_istride];
- tmp41 = imag_input[10 * imag_istride];
- tmp42 = tmp40 - tmp41;
- tmp99 = tmp41 + tmp40;
- }
- tmp17 = K2_000000000 * (tmp13 + tmp16);
- tmp39 = tmp13 - tmp16;
- tmp46 = tmp42 + tmp45;
- tmp83 = K2_000000000 * (tmp45 - tmp42);
- tmp100 = tmp98 - tmp99;
- tmp136 = tmp98 + tmp99;
- tmp103 = tmp101 + tmp102;
- tmp137 = tmp102 - tmp101;
- }
- {
- fftw_real tmp21;
- fftw_real tmp106;
- fftw_real tmp64;
- fftw_real tmp110;
- fftw_real tmp24;
- fftw_real tmp109;
- fftw_real tmp61;
- fftw_real tmp107;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp62;
- fftw_real tmp63;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = real_input[real_istride];
- tmp20 = real_input[15 * real_istride];
- tmp21 = tmp19 + tmp20;
- tmp106 = tmp19 - tmp20;
- tmp62 = imag_input[imag_istride];
- tmp63 = imag_input[15 * imag_istride];
- tmp64 = tmp62 - tmp63;
- tmp110 = tmp62 + tmp63;
- }
- {
- fftw_real tmp22;
- fftw_real tmp23;
- fftw_real tmp59;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- tmp22 = real_input[7 * real_istride];
- tmp23 = real_input[9 * real_istride];
- tmp24 = tmp22 + tmp23;
- tmp109 = tmp23 - tmp22;
- tmp59 = imag_input[7 * imag_istride];
- tmp60 = imag_input[9 * imag_istride];
- tmp61 = tmp59 - tmp60;
- tmp107 = tmp60 + tmp59;
- }
- tmp25 = tmp21 + tmp24;
- tmp49 = tmp21 - tmp24;
- tmp65 = tmp61 + tmp64;
- tmp79 = tmp64 - tmp61;
- {
- fftw_real tmp140;
- fftw_real tmp141;
- fftw_real tmp108;
- fftw_real tmp111;
- ASSERT_ALIGNED_DOUBLE;
- tmp140 = tmp106 + tmp107;
- tmp141 = tmp110 - tmp109;
- tmp142 = (K555570233 * tmp140) + (K831469612 * tmp141);
- tmp148 = (K831469612 * tmp140) - (K555570233 * tmp141);
- tmp108 = tmp106 - tmp107;
- tmp111 = tmp109 + tmp110;
- tmp112 = (K980785280 * tmp108) - (K195090322 * tmp111);
- tmp122 = (K195090322 * tmp108) + (K980785280 * tmp111);
- }
- }
- {
- fftw_real tmp33;
- fftw_real tmp81;
- fftw_real tmp18;
- fftw_real tmp78;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp33 = K2_000000000 * (tmp25 + tmp32);
- tmp81 = K2_000000000 * (tmp79 - tmp80);
- tmp10 = tmp6 + tmp9;
- tmp18 = tmp10 + tmp17;
- tmp78 = tmp10 - tmp17;
- output[16 * ostride] = tmp18 - tmp33;
- output[0] = tmp18 + tmp33;
- output[8 * ostride] = tmp78 - tmp81;
- output[24 * ostride] = tmp78 + tmp81;
- }
- {
- fftw_real tmp84;
- fftw_real tmp88;
- fftw_real tmp87;
- fftw_real tmp89;
- fftw_real tmp82;
- fftw_real tmp85;
- fftw_real tmp86;
- ASSERT_ALIGNED_DOUBLE;
- tmp82 = tmp6 - tmp9;
- tmp84 = tmp82 - tmp83;
- tmp88 = tmp82 + tmp83;
- tmp85 = tmp25 - tmp32;
- tmp86 = tmp79 + tmp80;
- tmp87 = K1_414213562 * (tmp85 - tmp86);
- tmp89 = K1_414213562 * (tmp85 + tmp86);
- output[20 * ostride] = tmp84 - tmp87;
- output[4 * ostride] = tmp84 + tmp87;
- output[12 * ostride] = tmp88 - tmp89;
- output[28 * ostride] = tmp88 + tmp89;
- }
- {
- fftw_real tmp48;
- fftw_real tmp68;
- fftw_real tmp67;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp38;
- fftw_real tmp47;
- fftw_real tmp57;
- fftw_real tmp66;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = tmp34 - tmp37;
- tmp47 = K1_414213562 * (tmp39 - tmp46);
- tmp48 = tmp38 + tmp47;
- tmp68 = tmp38 - tmp47;
- tmp57 = tmp49 - tmp56;
- tmp66 = tmp58 + tmp65;
- tmp67 = (K1_847759065 * tmp57) - (K765366864 * tmp66);
- tmp69 = (K1_847759065 * tmp66) + (K765366864 * tmp57);
- }
- output[18 * ostride] = tmp48 - tmp67;
- output[2 * ostride] = tmp48 + tmp67;
- output[10 * ostride] = tmp68 - tmp69;
- output[26 * ostride] = tmp68 + tmp69;
- }
- {
- fftw_real tmp72;
- fftw_real tmp76;
- fftw_real tmp75;
- fftw_real tmp77;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp70;
- fftw_real tmp71;
- fftw_real tmp73;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = tmp34 + tmp37;
- tmp71 = K1_414213562 * (tmp39 + tmp46);
- tmp72 = tmp70 - tmp71;
- tmp76 = tmp70 + tmp71;
- tmp73 = tmp49 + tmp56;
- tmp74 = tmp65 - tmp58;
- tmp75 = (K765366864 * tmp73) - (K1_847759065 * tmp74);
- tmp77 = (K765366864 * tmp74) + (K1_847759065 * tmp73);
- }
- output[22 * ostride] = tmp72 - tmp75;
- output[6 * ostride] = tmp72 + tmp75;
- output[14 * ostride] = tmp76 - tmp77;
- output[30 * ostride] = tmp76 + tmp77;
- }
- {
- fftw_real tmp120;
- fftw_real tmp124;
- fftw_real tmp105;
- fftw_real tmp121;
- fftw_real tmp97;
- fftw_real tmp104;
- ASSERT_ALIGNED_DOUBLE;
- tmp120 = K2_000000000 * (tmp112 + tmp119);
- tmp124 = K2_000000000 * (tmp122 - tmp123);
- tmp97 = tmp93 + tmp96;
- tmp104 = (K1_847759065 * tmp100) - (K765366864 * tmp103);
- tmp105 = tmp97 + tmp104;
- tmp121 = tmp97 - tmp104;
- output[17 * ostride] = tmp105 - tmp120;
- output[ostride] = tmp105 + tmp120;
- output[9 * ostride] = tmp121 - tmp124;
- output[25 * ostride] = tmp121 + tmp124;
- }
- {
- fftw_real tmp127;
- fftw_real tmp131;
- fftw_real tmp130;
- fftw_real tmp132;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp125;
- fftw_real tmp126;
- fftw_real tmp128;
- fftw_real tmp129;
- ASSERT_ALIGNED_DOUBLE;
- tmp125 = tmp93 - tmp96;
- tmp126 = (K765366864 * tmp100) + (K1_847759065 * tmp103);
- tmp127 = tmp125 - tmp126;
- tmp131 = tmp125 + tmp126;
- tmp128 = tmp112 - tmp119;
- tmp129 = tmp122 + tmp123;
- tmp130 = K1_414213562 * (tmp128 - tmp129);
- tmp132 = K1_414213562 * (tmp128 + tmp129);
- }
- output[21 * ostride] = tmp127 - tmp130;
- output[5 * ostride] = tmp127 + tmp130;
- output[13 * ostride] = tmp131 - tmp132;
- output[29 * ostride] = tmp131 + tmp132;
- }
- {
- fftw_real tmp146;
- fftw_real tmp150;
- fftw_real tmp139;
- fftw_real tmp147;
- fftw_real tmp135;
- fftw_real tmp138;
- ASSERT_ALIGNED_DOUBLE;
- tmp146 = K2_000000000 * (tmp142 - tmp145);
- tmp150 = K2_000000000 * (tmp148 - tmp149);
- tmp135 = tmp133 - tmp134;
- tmp138 = (K765366864 * tmp136) - (K1_847759065 * tmp137);
- tmp139 = tmp135 - tmp138;
- tmp147 = tmp135 + tmp138;
- output[11 * ostride] = tmp139 - tmp146;
- output[27 * ostride] = tmp139 + tmp146;
- output[19 * ostride] = tmp147 - tmp150;
- output[3 * ostride] = tmp147 + tmp150;
- }
- {
- fftw_real tmp153;
- fftw_real tmp157;
- fftw_real tmp156;
- fftw_real tmp158;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp151;
- fftw_real tmp152;
- fftw_real tmp154;
- fftw_real tmp155;
- ASSERT_ALIGNED_DOUBLE;
- tmp151 = tmp133 + tmp134;
- tmp152 = (K1_847759065 * tmp136) + (K765366864 * tmp137);
- tmp153 = tmp151 - tmp152;
- tmp157 = tmp151 + tmp152;
- tmp154 = tmp148 + tmp149;
- tmp155 = tmp142 + tmp145;
- tmp156 = K1_414213562 * (tmp154 - tmp155);
- tmp158 = K1_414213562 * (tmp155 + tmp154);
- }
- output[23 * ostride] = tmp153 - tmp156;
- output[7 * ostride] = tmp153 + tmp156;
- output[15 * ostride] = tmp157 - tmp158;
- output[31 * ostride] = tmp157 + tmp158;
- }
-}
-
-fftw_codelet_desc fftw_hc2real_32_desc =
-{
- "fftw_hc2real_32",
- (void (*)()) fftw_hc2real_32,
- 32,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 719,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_4.c b/src/sndobj/rfftw/fcr_4.c
deleted file mode 100644
index 6543a34..0000000
--- a/src/sndobj/rfftw/fcr_4.c
+++ /dev/null
@@ -1,80 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:18 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 4 */
-
-/*
- * This function contains 6 FP additions, 2 FP multiplications,
- * (or, 6 additions, 2 multiplications, 0 fused multiply/add),
- * 8 stack variables, and 8 memory accesses
- */
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fcr_4.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fcr_4.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fcr_4.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- */
-
-void fftw_hc2real_4(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp5;
- fftw_real tmp8;
- fftw_real tmp3;
- fftw_real tmp6;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp7;
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = real_input[real_istride];
- tmp5 = K2_000000000 * tmp4;
- tmp7 = imag_input[imag_istride];
- tmp8 = K2_000000000 * tmp7;
- tmp1 = real_input[0];
- tmp2 = real_input[2 * real_istride];
- tmp3 = tmp1 + tmp2;
- tmp6 = tmp1 - tmp2;
- }
- output[2 * ostride] = tmp3 - tmp5;
- output[0] = tmp3 + tmp5;
- output[ostride] = tmp6 - tmp8;
- output[3 * ostride] = tmp6 + tmp8;
-}
-
-fftw_codelet_desc fftw_hc2real_4_desc =
-{
- "fftw_hc2real_4",
- (void (*)()) fftw_hc2real_4,
- 4,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 103,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_5.c b/src/sndobj/rfftw/fcr_5.c
deleted file mode 100644
index bb494de..0000000
--- a/src/sndobj/rfftw/fcr_5.c
+++ /dev/null
@@ -1,93 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:19 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 5 */
-
-/*
- * This function contains 12 FP additions, 7 FP multiplications,
- * (or, 8 additions, 3 multiplications, 4 fused multiply/add),
- * 12 stack variables, and 10 memory accesses
- */
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_118033988 = FFTW_KONST(+1.118033988749894848204586834365638117720309180);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K1_902113032 = FFTW_KONST(+1.902113032590307144232878666758764286811397268);
-static const fftw_real K1_175570504 = FFTW_KONST(+1.175570504584946258337411909278145537195304875);
-
-/*
- * Generator Id's :
- * $Id: fcr_5.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fcr_5.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fcr_5.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- */
-
-void fftw_hc2real_5(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp10;
- fftw_real tmp12;
- fftw_real tmp1;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp6;
- fftw_real tmp11;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp2;
- fftw_real tmp3;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = imag_input[imag_istride];
- tmp9 = imag_input[2 * imag_istride];
- tmp10 = (K1_175570504 * tmp8) - (K1_902113032 * tmp9);
- tmp12 = (K1_902113032 * tmp8) + (K1_175570504 * tmp9);
- tmp1 = real_input[0];
- tmp2 = real_input[real_istride];
- tmp3 = real_input[2 * real_istride];
- tmp4 = tmp2 + tmp3;
- tmp5 = tmp1 - (K500000000 * tmp4);
- tmp6 = K1_118033988 * (tmp2 - tmp3);
- }
- output[0] = tmp1 + (K2_000000000 * tmp4);
- tmp11 = tmp6 + tmp5;
- output[ostride] = tmp11 - tmp12;
- output[4 * ostride] = tmp11 + tmp12;
- tmp7 = tmp5 - tmp6;
- output[2 * ostride] = tmp7 - tmp10;
- output[3 * ostride] = tmp7 + tmp10;
-}
-
-fftw_codelet_desc fftw_hc2real_5_desc =
-{
- "fftw_hc2real_5",
- (void (*)()) fftw_hc2real_5,
- 5,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 125,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_6.c b/src/sndobj/rfftw/fcr_6.c
deleted file mode 100644
index 10865c9..0000000
--- a/src/sndobj/rfftw/fcr_6.c
+++ /dev/null
@@ -1,95 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:19 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 6 */
-
-/*
- * This function contains 14 FP additions, 4 FP multiplications,
- * (or, 12 additions, 2 multiplications, 2 fused multiply/add),
- * 14 stack variables, and 12 memory accesses
- */
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-
-/*
- * Generator Id's :
- * $Id: fcr_6.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fcr_6.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fcr_6.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftw_hc2real_6(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp7;
- fftw_real tmp12;
- fftw_real tmp14;
- fftw_real tmp6;
- fftw_real tmp8;
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp13;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = real_input[0];
- tmp2 = real_input[3 * real_istride];
- tmp3 = tmp1 - tmp2;
- tmp7 = tmp1 + tmp2;
- {
- fftw_real tmp10;
- fftw_real tmp11;
- fftw_real tmp4;
- fftw_real tmp5;
- ASSERT_ALIGNED_DOUBLE;
- tmp10 = imag_input[2 * imag_istride];
- tmp11 = imag_input[imag_istride];
- tmp12 = K1_732050807 * (tmp10 - tmp11);
- tmp14 = K1_732050807 * (tmp10 + tmp11);
- tmp4 = real_input[2 * real_istride];
- tmp5 = real_input[real_istride];
- tmp6 = tmp4 - tmp5;
- tmp8 = tmp4 + tmp5;
- }
- output[3 * ostride] = tmp3 + (K2_000000000 * tmp6);
- tmp13 = tmp3 - tmp6;
- output[ostride] = tmp13 - tmp14;
- output[5 * ostride] = tmp13 + tmp14;
- output[0] = tmp7 + (K2_000000000 * tmp8);
- tmp9 = tmp7 - tmp8;
- output[4 * ostride] = tmp9 - tmp12;
- output[2 * ostride] = tmp9 + tmp12;
-}
-
-fftw_codelet_desc fftw_hc2real_6_desc =
-{
- "fftw_hc2real_6",
- (void (*)()) fftw_hc2real_6,
- 6,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 147,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_64.c b/src/sndobj/rfftw/fcr_64.c
deleted file mode 100644
index 68055be..0000000
--- a/src/sndobj/rfftw/fcr_64.c
+++ /dev/null
@@ -1,1111 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:28 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 64 */
-
-/*
- * This function contains 394 FP additions, 146 FP multiplications,
- * (or, 342 additions, 94 multiplications, 52 fused multiply/add),
- * 86 stack variables, and 128 memory accesses
- */
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K765366864 = FFTW_KONST(+0.765366864730179543456919968060797733522689125);
-static const fftw_real K1_847759065 = FFTW_KONST(+1.847759065022573512256366378793576573644833252);
-static const fftw_real K995184726 = FFTW_KONST(+0.995184726672196886244836953109479921575474869);
-static const fftw_real K098017140 = FFTW_KONST(+0.098017140329560601994195563888641845861136673);
-static const fftw_real K471396736 = FFTW_KONST(+0.471396736825997648556387625905254377657460319);
-static const fftw_real K881921264 = FFTW_KONST(+0.881921264348355029712756863660388349508442621);
-static const fftw_real K773010453 = FFTW_KONST(+0.773010453362736960810906609758469800971041293);
-static const fftw_real K634393284 = FFTW_KONST(+0.634393284163645498215171613225493370675687095);
-static const fftw_real K290284677 = FFTW_KONST(+0.290284677254462367636192375817395274691476278);
-static const fftw_real K956940335 = FFTW_KONST(+0.956940335732208864935797886980269969482849206);
-static const fftw_real K1_414213562 = FFTW_KONST(+1.414213562373095048801688724209698078569671875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fcr_64.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fcr_64.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fcr_64.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_hc2real_64(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp10;
- fftw_real tmp196;
- fftw_real tmp70;
- fftw_real tmp152;
- fftw_real tmp227;
- fftw_real tmp301;
- fftw_real tmp327;
- fftw_real tmp373;
- fftw_real tmp64;
- fftw_real tmp206;
- fftw_real tmp128;
- fftw_real tmp163;
- fftw_real tmp184;
- fftw_real tmp204;
- fftw_real tmp137;
- fftw_real tmp162;
- fftw_real tmp273;
- fftw_real tmp287;
- fftw_real tmp349;
- fftw_real tmp359;
- fftw_real tmp280;
- fftw_real tmp288;
- fftw_real tmp352;
- fftw_real tmp360;
- fftw_real tmp17;
- fftw_real tmp79;
- fftw_real tmp153;
- fftw_real tmp197;
- fftw_real tmp234;
- fftw_real tmp302;
- fftw_real tmp330;
- fftw_real tmp374;
- fftw_real tmp25;
- fftw_real tmp32;
- fftw_real tmp199;
- fftw_real tmp89;
- fftw_real tmp155;
- fftw_real tmp187;
- fftw_real tmp188;
- fftw_real tmp200;
- fftw_real tmp98;
- fftw_real tmp156;
- fftw_real tmp242;
- fftw_real tmp292;
- fftw_real tmp334;
- fftw_real tmp364;
- fftw_real tmp249;
- fftw_real tmp293;
- fftw_real tmp337;
- fftw_real tmp365;
- fftw_real tmp49;
- fftw_real tmp203;
- fftw_real tmp109;
- fftw_real tmp159;
- fftw_real tmp181;
- fftw_real tmp207;
- fftw_real tmp118;
- fftw_real tmp160;
- fftw_real tmp258;
- fftw_real tmp284;
- fftw_real tmp342;
- fftw_real tmp356;
- fftw_real tmp265;
- fftw_real tmp285;
- fftw_real tmp345;
- fftw_real tmp357;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp5;
- fftw_real tmp222;
- fftw_real tmp3;
- fftw_real tmp220;
- fftw_real tmp9;
- fftw_real tmp224;
- fftw_real tmp69;
- fftw_real tmp225;
- fftw_real tmp6;
- fftw_real tmp66;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp221;
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = real_input[16 * real_istride];
- tmp5 = K2_000000000 * tmp4;
- tmp221 = imag_input[16 * imag_istride];
- tmp222 = K2_000000000 * tmp221;
- tmp1 = real_input[0];
- tmp2 = real_input[32 * real_istride];
- tmp3 = tmp1 + tmp2;
- tmp220 = tmp1 - tmp2;
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp67;
- fftw_real tmp68;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = real_input[8 * real_istride];
- tmp8 = real_input[24 * real_istride];
- tmp9 = K2_000000000 * (tmp7 + tmp8);
- tmp224 = tmp7 - tmp8;
- tmp67 = imag_input[8 * imag_istride];
- tmp68 = imag_input[24 * imag_istride];
- tmp69 = K2_000000000 * (tmp67 - tmp68);
- tmp225 = tmp68 + tmp67;
- }
- }
- tmp6 = tmp3 + tmp5;
- tmp10 = tmp6 + tmp9;
- tmp196 = tmp6 - tmp9;
- tmp66 = tmp3 - tmp5;
- tmp70 = tmp66 - tmp69;
- tmp152 = tmp66 + tmp69;
- {
- fftw_real tmp223;
- fftw_real tmp226;
- fftw_real tmp325;
- fftw_real tmp326;
- ASSERT_ALIGNED_DOUBLE;
- tmp223 = tmp220 - tmp222;
- tmp226 = K1_414213562 * (tmp224 - tmp225);
- tmp227 = tmp223 + tmp226;
- tmp301 = tmp223 - tmp226;
- tmp325 = tmp220 + tmp222;
- tmp326 = K1_414213562 * (tmp224 + tmp225);
- tmp327 = tmp325 - tmp326;
- tmp373 = tmp325 + tmp326;
- }
- }
- {
- fftw_real tmp52;
- fftw_real tmp267;
- fftw_real tmp135;
- fftw_real tmp271;
- fftw_real tmp55;
- fftw_real tmp270;
- fftw_real tmp132;
- fftw_real tmp268;
- fftw_real tmp59;
- fftw_real tmp274;
- fftw_real tmp126;
- fftw_real tmp278;
- fftw_real tmp62;
- fftw_real tmp277;
- fftw_real tmp123;
- fftw_real tmp275;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp133;
- fftw_real tmp134;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = real_input[3 * real_istride];
- tmp51 = real_input[29 * real_istride];
- tmp52 = tmp50 + tmp51;
- tmp267 = tmp50 - tmp51;
- tmp133 = imag_input[3 * imag_istride];
- tmp134 = imag_input[29 * imag_istride];
- tmp135 = tmp133 - tmp134;
- tmp271 = tmp133 + tmp134;
- }
- {
- fftw_real tmp53;
- fftw_real tmp54;
- fftw_real tmp130;
- fftw_real tmp131;
- ASSERT_ALIGNED_DOUBLE;
- tmp53 = real_input[13 * real_istride];
- tmp54 = real_input[19 * real_istride];
- tmp55 = tmp53 + tmp54;
- tmp270 = tmp54 - tmp53;
- tmp130 = imag_input[13 * imag_istride];
- tmp131 = imag_input[19 * imag_istride];
- tmp132 = tmp130 - tmp131;
- tmp268 = tmp131 + tmp130;
- }
- {
- fftw_real tmp57;
- fftw_real tmp58;
- fftw_real tmp124;
- fftw_real tmp125;
- ASSERT_ALIGNED_DOUBLE;
- tmp57 = real_input[5 * real_istride];
- tmp58 = real_input[27 * real_istride];
- tmp59 = tmp57 + tmp58;
- tmp274 = tmp57 - tmp58;
- tmp124 = imag_input[5 * imag_istride];
- tmp125 = imag_input[27 * imag_istride];
- tmp126 = tmp124 - tmp125;
- tmp278 = tmp124 + tmp125;
- }
- {
- fftw_real tmp60;
- fftw_real tmp61;
- fftw_real tmp121;
- fftw_real tmp122;
- ASSERT_ALIGNED_DOUBLE;
- tmp60 = real_input[11 * real_istride];
- tmp61 = real_input[21 * real_istride];
- tmp62 = tmp60 + tmp61;
- tmp277 = tmp61 - tmp60;
- tmp121 = imag_input[11 * imag_istride];
- tmp122 = imag_input[21 * imag_istride];
- tmp123 = tmp121 - tmp122;
- tmp275 = tmp122 + tmp121;
- }
- {
- fftw_real tmp56;
- fftw_real tmp63;
- fftw_real tmp120;
- fftw_real tmp127;
- ASSERT_ALIGNED_DOUBLE;
- tmp56 = tmp52 + tmp55;
- tmp63 = tmp59 + tmp62;
- tmp64 = tmp56 + tmp63;
- tmp206 = tmp63 - tmp56;
- tmp120 = tmp52 - tmp55;
- tmp127 = tmp123 + tmp126;
- tmp128 = tmp120 - tmp127;
- tmp163 = tmp120 + tmp127;
- }
- {
- fftw_real tmp182;
- fftw_real tmp183;
- fftw_real tmp129;
- fftw_real tmp136;
- ASSERT_ALIGNED_DOUBLE;
- tmp182 = tmp135 - tmp132;
- tmp183 = tmp126 - tmp123;
- tmp184 = tmp182 - tmp183;
- tmp204 = tmp182 + tmp183;
- tmp129 = tmp62 - tmp59;
- tmp136 = tmp132 + tmp135;
- tmp137 = tmp129 + tmp136;
- tmp162 = tmp136 - tmp129;
- }
- {
- fftw_real tmp269;
- fftw_real tmp272;
- fftw_real tmp347;
- fftw_real tmp348;
- ASSERT_ALIGNED_DOUBLE;
- tmp269 = tmp267 - tmp268;
- tmp272 = tmp270 + tmp271;
- tmp273 = (K956940335 * tmp269) - (K290284677 * tmp272);
- tmp287 = (K290284677 * tmp269) + (K956940335 * tmp272);
- tmp347 = tmp267 + tmp268;
- tmp348 = tmp271 - tmp270;
- tmp349 = (K634393284 * tmp347) - (K773010453 * tmp348);
- tmp359 = (K773010453 * tmp347) + (K634393284 * tmp348);
- }
- {
- fftw_real tmp276;
- fftw_real tmp279;
- fftw_real tmp350;
- fftw_real tmp351;
- ASSERT_ALIGNED_DOUBLE;
- tmp276 = tmp274 - tmp275;
- tmp279 = tmp277 + tmp278;
- tmp280 = (K881921264 * tmp276) - (K471396736 * tmp279);
- tmp288 = (K471396736 * tmp276) + (K881921264 * tmp279);
- tmp350 = tmp274 + tmp275;
- tmp351 = tmp278 - tmp277;
- tmp352 = (K098017140 * tmp350) - (K995184726 * tmp351);
- tmp360 = (K995184726 * tmp350) + (K098017140 * tmp351);
- }
- }
- {
- fftw_real tmp13;
- fftw_real tmp228;
- fftw_real tmp77;
- fftw_real tmp232;
- fftw_real tmp16;
- fftw_real tmp231;
- fftw_real tmp74;
- fftw_real tmp229;
- fftw_real tmp71;
- fftw_real tmp78;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp75;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = real_input[4 * real_istride];
- tmp12 = real_input[28 * real_istride];
- tmp13 = tmp11 + tmp12;
- tmp228 = tmp11 - tmp12;
- tmp75 = imag_input[4 * imag_istride];
- tmp76 = imag_input[28 * imag_istride];
- tmp77 = tmp75 - tmp76;
- tmp232 = tmp75 + tmp76;
- }
- {
- fftw_real tmp14;
- fftw_real tmp15;
- fftw_real tmp72;
- fftw_real tmp73;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = real_input[12 * real_istride];
- tmp15 = real_input[20 * real_istride];
- tmp16 = tmp14 + tmp15;
- tmp231 = tmp15 - tmp14;
- tmp72 = imag_input[12 * imag_istride];
- tmp73 = imag_input[20 * imag_istride];
- tmp74 = tmp72 - tmp73;
- tmp229 = tmp73 + tmp72;
- }
- tmp17 = K2_000000000 * (tmp13 + tmp16);
- tmp71 = tmp13 - tmp16;
- tmp78 = tmp74 + tmp77;
- tmp79 = K1_414213562 * (tmp71 - tmp78);
- tmp153 = K1_414213562 * (tmp71 + tmp78);
- tmp197 = K2_000000000 * (tmp77 - tmp74);
- {
- fftw_real tmp230;
- fftw_real tmp233;
- fftw_real tmp328;
- fftw_real tmp329;
- ASSERT_ALIGNED_DOUBLE;
- tmp230 = tmp228 - tmp229;
- tmp233 = tmp231 + tmp232;
- tmp234 = (K1_847759065 * tmp230) - (K765366864 * tmp233);
- tmp302 = (K765366864 * tmp230) + (K1_847759065 * tmp233);
- tmp328 = tmp228 + tmp229;
- tmp329 = tmp232 - tmp231;
- tmp330 = (K765366864 * tmp328) - (K1_847759065 * tmp329);
- tmp374 = (K1_847759065 * tmp328) + (K765366864 * tmp329);
- }
- }
- {
- fftw_real tmp21;
- fftw_real tmp236;
- fftw_real tmp96;
- fftw_real tmp240;
- fftw_real tmp24;
- fftw_real tmp239;
- fftw_real tmp93;
- fftw_real tmp237;
- fftw_real tmp28;
- fftw_real tmp243;
- fftw_real tmp87;
- fftw_real tmp247;
- fftw_real tmp31;
- fftw_real tmp246;
- fftw_real tmp84;
- fftw_real tmp244;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp94;
- fftw_real tmp95;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = real_input[2 * real_istride];
- tmp20 = real_input[30 * real_istride];
- tmp21 = tmp19 + tmp20;
- tmp236 = tmp19 - tmp20;
- tmp94 = imag_input[2 * imag_istride];
- tmp95 = imag_input[30 * imag_istride];
- tmp96 = tmp94 - tmp95;
- tmp240 = tmp94 + tmp95;
- }
- {
- fftw_real tmp22;
- fftw_real tmp23;
- fftw_real tmp91;
- fftw_real tmp92;
- ASSERT_ALIGNED_DOUBLE;
- tmp22 = real_input[14 * real_istride];
- tmp23 = real_input[18 * real_istride];
- tmp24 = tmp22 + tmp23;
- tmp239 = tmp23 - tmp22;
- tmp91 = imag_input[14 * imag_istride];
- tmp92 = imag_input[18 * imag_istride];
- tmp93 = tmp91 - tmp92;
- tmp237 = tmp92 + tmp91;
- }
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp85;
- fftw_real tmp86;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = real_input[6 * real_istride];
- tmp27 = real_input[26 * real_istride];
- tmp28 = tmp26 + tmp27;
- tmp243 = tmp26 - tmp27;
- tmp85 = imag_input[6 * imag_istride];
- tmp86 = imag_input[26 * imag_istride];
- tmp87 = tmp85 - tmp86;
- tmp247 = tmp85 + tmp86;
- }
- {
- fftw_real tmp29;
- fftw_real tmp30;
- fftw_real tmp82;
- fftw_real tmp83;
- ASSERT_ALIGNED_DOUBLE;
- tmp29 = real_input[10 * real_istride];
- tmp30 = real_input[22 * real_istride];
- tmp31 = tmp29 + tmp30;
- tmp246 = tmp30 - tmp29;
- tmp82 = imag_input[10 * imag_istride];
- tmp83 = imag_input[22 * imag_istride];
- tmp84 = tmp82 - tmp83;
- tmp244 = tmp83 + tmp82;
- }
- {
- fftw_real tmp81;
- fftw_real tmp88;
- fftw_real tmp90;
- fftw_real tmp97;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = tmp21 + tmp24;
- tmp32 = tmp28 + tmp31;
- tmp199 = tmp25 - tmp32;
- tmp81 = tmp21 - tmp24;
- tmp88 = tmp84 + tmp87;
- tmp89 = tmp81 - tmp88;
- tmp155 = tmp81 + tmp88;
- tmp187 = tmp96 - tmp93;
- tmp188 = tmp87 - tmp84;
- tmp200 = tmp187 + tmp188;
- tmp90 = tmp31 - tmp28;
- tmp97 = tmp93 + tmp96;
- tmp98 = tmp90 + tmp97;
- tmp156 = tmp97 - tmp90;
- }
- {
- fftw_real tmp238;
- fftw_real tmp241;
- fftw_real tmp332;
- fftw_real tmp333;
- ASSERT_ALIGNED_DOUBLE;
- tmp238 = tmp236 - tmp237;
- tmp241 = tmp239 + tmp240;
- tmp242 = (K980785280 * tmp238) - (K195090322 * tmp241);
- tmp292 = (K195090322 * tmp238) + (K980785280 * tmp241);
- tmp332 = tmp236 + tmp237;
- tmp333 = tmp240 - tmp239;
- tmp334 = (K831469612 * tmp332) - (K555570233 * tmp333);
- tmp364 = (K555570233 * tmp332) + (K831469612 * tmp333);
- }
- {
- fftw_real tmp245;
- fftw_real tmp248;
- fftw_real tmp335;
- fftw_real tmp336;
- ASSERT_ALIGNED_DOUBLE;
- tmp245 = tmp243 - tmp244;
- tmp248 = tmp246 + tmp247;
- tmp249 = (K831469612 * tmp245) - (K555570233 * tmp248);
- tmp293 = (K555570233 * tmp245) + (K831469612 * tmp248);
- tmp335 = tmp243 + tmp244;
- tmp336 = tmp247 - tmp246;
- tmp337 = (K195090322 * tmp335) + (K980785280 * tmp336);
- tmp365 = (K980785280 * tmp335) - (K195090322 * tmp336);
- }
- }
- {
- fftw_real tmp37;
- fftw_real tmp252;
- fftw_real tmp116;
- fftw_real tmp256;
- fftw_real tmp40;
- fftw_real tmp255;
- fftw_real tmp113;
- fftw_real tmp253;
- fftw_real tmp44;
- fftw_real tmp259;
- fftw_real tmp107;
- fftw_real tmp263;
- fftw_real tmp47;
- fftw_real tmp262;
- fftw_real tmp104;
- fftw_real tmp260;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp35;
- fftw_real tmp36;
- fftw_real tmp114;
- fftw_real tmp115;
- ASSERT_ALIGNED_DOUBLE;
- tmp35 = real_input[real_istride];
- tmp36 = real_input[31 * real_istride];
- tmp37 = tmp35 + tmp36;
- tmp252 = tmp35 - tmp36;
- tmp114 = imag_input[imag_istride];
- tmp115 = imag_input[31 * imag_istride];
- tmp116 = tmp114 - tmp115;
- tmp256 = tmp114 + tmp115;
- }
- {
- fftw_real tmp38;
- fftw_real tmp39;
- fftw_real tmp111;
- fftw_real tmp112;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = real_input[15 * real_istride];
- tmp39 = real_input[17 * real_istride];
- tmp40 = tmp38 + tmp39;
- tmp255 = tmp39 - tmp38;
- tmp111 = imag_input[15 * imag_istride];
- tmp112 = imag_input[17 * imag_istride];
- tmp113 = tmp111 - tmp112;
- tmp253 = tmp112 + tmp111;
- }
- {
- fftw_real tmp42;
- fftw_real tmp43;
- fftw_real tmp105;
- fftw_real tmp106;
- ASSERT_ALIGNED_DOUBLE;
- tmp42 = real_input[7 * real_istride];
- tmp43 = real_input[25 * real_istride];
- tmp44 = tmp42 + tmp43;
- tmp259 = tmp42 - tmp43;
- tmp105 = imag_input[7 * imag_istride];
- tmp106 = imag_input[25 * imag_istride];
- tmp107 = tmp105 - tmp106;
- tmp263 = tmp105 + tmp106;
- }
- {
- fftw_real tmp45;
- fftw_real tmp46;
- fftw_real tmp102;
- fftw_real tmp103;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = real_input[9 * real_istride];
- tmp46 = real_input[23 * real_istride];
- tmp47 = tmp45 + tmp46;
- tmp262 = tmp46 - tmp45;
- tmp102 = imag_input[9 * imag_istride];
- tmp103 = imag_input[23 * imag_istride];
- tmp104 = tmp102 - tmp103;
- tmp260 = tmp103 + tmp102;
- }
- {
- fftw_real tmp41;
- fftw_real tmp48;
- fftw_real tmp101;
- fftw_real tmp108;
- ASSERT_ALIGNED_DOUBLE;
- tmp41 = tmp37 + tmp40;
- tmp48 = tmp44 + tmp47;
- tmp49 = tmp41 + tmp48;
- tmp203 = tmp41 - tmp48;
- tmp101 = tmp37 - tmp40;
- tmp108 = tmp104 + tmp107;
- tmp109 = tmp101 - tmp108;
- tmp159 = tmp101 + tmp108;
- }
- {
- fftw_real tmp179;
- fftw_real tmp180;
- fftw_real tmp110;
- fftw_real tmp117;
- ASSERT_ALIGNED_DOUBLE;
- tmp179 = tmp116 - tmp113;
- tmp180 = tmp107 - tmp104;
- tmp181 = tmp179 - tmp180;
- tmp207 = tmp179 + tmp180;
- tmp110 = tmp47 - tmp44;
- tmp117 = tmp113 + tmp116;
- tmp118 = tmp110 + tmp117;
- tmp160 = tmp117 - tmp110;
- }
- {
- fftw_real tmp254;
- fftw_real tmp257;
- fftw_real tmp340;
- fftw_real tmp341;
- ASSERT_ALIGNED_DOUBLE;
- tmp254 = tmp252 - tmp253;
- tmp257 = tmp255 + tmp256;
- tmp258 = (K995184726 * tmp254) - (K098017140 * tmp257);
- tmp284 = (K098017140 * tmp254) + (K995184726 * tmp257);
- tmp340 = tmp252 + tmp253;
- tmp341 = tmp256 - tmp255;
- tmp342 = (K956940335 * tmp340) - (K290284677 * tmp341);
- tmp356 = (K290284677 * tmp340) + (K956940335 * tmp341);
- }
- {
- fftw_real tmp261;
- fftw_real tmp264;
- fftw_real tmp343;
- fftw_real tmp344;
- ASSERT_ALIGNED_DOUBLE;
- tmp261 = tmp259 - tmp260;
- tmp264 = tmp262 + tmp263;
- tmp265 = (K773010453 * tmp261) - (K634393284 * tmp264);
- tmp285 = (K634393284 * tmp261) + (K773010453 * tmp264);
- tmp343 = tmp259 + tmp260;
- tmp344 = tmp263 - tmp262;
- tmp345 = (K471396736 * tmp343) + (K881921264 * tmp344);
- tmp357 = (K881921264 * tmp343) - (K471396736 * tmp344);
- }
- }
- {
- fftw_real tmp65;
- fftw_real tmp185;
- fftw_real tmp34;
- fftw_real tmp178;
- fftw_real tmp18;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp65 = K2_000000000 * (tmp49 + tmp64);
- tmp185 = K2_000000000 * (tmp181 - tmp184);
- tmp18 = tmp10 + tmp17;
- tmp33 = K2_000000000 * (tmp25 + tmp32);
- tmp34 = tmp18 + tmp33;
- tmp178 = tmp18 - tmp33;
- output[32 * ostride] = tmp34 - tmp65;
- output[0] = tmp34 + tmp65;
- output[16 * ostride] = tmp178 - tmp185;
- output[48 * ostride] = tmp178 + tmp185;
- }
- {
- fftw_real tmp190;
- fftw_real tmp194;
- fftw_real tmp193;
- fftw_real tmp195;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp186;
- fftw_real tmp189;
- fftw_real tmp191;
- fftw_real tmp192;
- ASSERT_ALIGNED_DOUBLE;
- tmp186 = tmp10 - tmp17;
- tmp189 = K2_000000000 * (tmp187 - tmp188);
- tmp190 = tmp186 - tmp189;
- tmp194 = tmp186 + tmp189;
- tmp191 = tmp49 - tmp64;
- tmp192 = tmp181 + tmp184;
- tmp193 = K1_414213562 * (tmp191 - tmp192);
- tmp195 = K1_414213562 * (tmp191 + tmp192);
- }
- output[40 * ostride] = tmp190 - tmp193;
- output[8 * ostride] = tmp190 + tmp193;
- output[24 * ostride] = tmp194 - tmp195;
- output[56 * ostride] = tmp194 + tmp195;
- }
- {
- fftw_real tmp100;
- fftw_real tmp140;
- fftw_real tmp146;
- fftw_real tmp150;
- fftw_real tmp139;
- fftw_real tmp147;
- fftw_real tmp143;
- fftw_real tmp148;
- fftw_real tmp151;
- fftw_real tmp149;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp80;
- fftw_real tmp99;
- fftw_real tmp144;
- fftw_real tmp145;
- ASSERT_ALIGNED_DOUBLE;
- tmp80 = tmp70 + tmp79;
- tmp99 = (K1_847759065 * tmp89) - (K765366864 * tmp98);
- tmp100 = tmp80 + tmp99;
- tmp140 = tmp80 - tmp99;
- tmp144 = tmp70 - tmp79;
- tmp145 = (K1_847759065 * tmp98) + (K765366864 * tmp89);
- tmp146 = tmp144 - tmp145;
- tmp150 = tmp144 + tmp145;
- }
- {
- fftw_real tmp119;
- fftw_real tmp138;
- fftw_real tmp141;
- fftw_real tmp142;
- ASSERT_ALIGNED_DOUBLE;
- tmp119 = (K980785280 * tmp109) - (K195090322 * tmp118);
- tmp138 = (K831469612 * tmp128) - (K555570233 * tmp137);
- tmp139 = K2_000000000 * (tmp119 + tmp138);
- tmp147 = tmp119 - tmp138;
- tmp141 = (K980785280 * tmp118) + (K195090322 * tmp109);
- tmp142 = (K831469612 * tmp137) + (K555570233 * tmp128);
- tmp143 = K2_000000000 * (tmp141 - tmp142);
- tmp148 = tmp141 + tmp142;
- }
- output[34 * ostride] = tmp100 - tmp139;
- output[2 * ostride] = tmp100 + tmp139;
- output[18 * ostride] = tmp140 - tmp143;
- output[50 * ostride] = tmp140 + tmp143;
- tmp151 = K1_414213562 * (tmp147 + tmp148);
- output[26 * ostride] = tmp150 - tmp151;
- output[58 * ostride] = tmp150 + tmp151;
- tmp149 = K1_414213562 * (tmp147 - tmp148);
- output[42 * ostride] = tmp146 - tmp149;
- output[10 * ostride] = tmp146 + tmp149;
- }
- {
- fftw_real tmp339;
- fftw_real tmp355;
- fftw_real tmp367;
- fftw_real tmp371;
- fftw_real tmp354;
- fftw_real tmp368;
- fftw_real tmp362;
- fftw_real tmp369;
- fftw_real tmp372;
- fftw_real tmp370;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp331;
- fftw_real tmp338;
- fftw_real tmp363;
- fftw_real tmp366;
- ASSERT_ALIGNED_DOUBLE;
- tmp331 = tmp327 + tmp330;
- tmp338 = K2_000000000 * (tmp334 - tmp337);
- tmp339 = tmp331 + tmp338;
- tmp355 = tmp331 - tmp338;
- tmp363 = tmp327 - tmp330;
- tmp366 = K2_000000000 * (tmp364 - tmp365);
- tmp367 = tmp363 - tmp366;
- tmp371 = tmp363 + tmp366;
- }
- {
- fftw_real tmp346;
- fftw_real tmp353;
- fftw_real tmp358;
- fftw_real tmp361;
- ASSERT_ALIGNED_DOUBLE;
- tmp346 = tmp342 - tmp345;
- tmp353 = tmp349 + tmp352;
- tmp354 = K2_000000000 * (tmp346 + tmp353);
- tmp368 = tmp346 - tmp353;
- tmp358 = tmp356 - tmp357;
- tmp361 = tmp359 - tmp360;
- tmp362 = K2_000000000 * (tmp358 - tmp361);
- tmp369 = tmp358 + tmp361;
- }
- output[35 * ostride] = tmp339 - tmp354;
- output[3 * ostride] = tmp339 + tmp354;
- output[19 * ostride] = tmp355 - tmp362;
- output[51 * ostride] = tmp355 + tmp362;
- tmp372 = K1_414213562 * (tmp368 + tmp369);
- output[27 * ostride] = tmp371 - tmp372;
- output[59 * ostride] = tmp371 + tmp372;
- tmp370 = K1_414213562 * (tmp368 - tmp369);
- output[43 * ostride] = tmp367 - tmp370;
- output[11 * ostride] = tmp367 + tmp370;
- }
- {
- fftw_real tmp375;
- fftw_real tmp389;
- fftw_real tmp378;
- fftw_real tmp390;
- fftw_real tmp382;
- fftw_real tmp392;
- fftw_real tmp385;
- fftw_real tmp393;
- fftw_real tmp376;
- fftw_real tmp377;
- ASSERT_ALIGNED_DOUBLE;
- tmp375 = tmp373 - tmp374;
- tmp389 = tmp373 + tmp374;
- tmp376 = tmp334 + tmp337;
- tmp377 = tmp364 + tmp365;
- tmp378 = K1_414213562 * (tmp376 - tmp377);
- tmp390 = K1_414213562 * (tmp377 + tmp376);
- {
- fftw_real tmp380;
- fftw_real tmp381;
- fftw_real tmp383;
- fftw_real tmp384;
- ASSERT_ALIGNED_DOUBLE;
- tmp380 = tmp342 + tmp345;
- tmp381 = tmp359 + tmp360;
- tmp382 = tmp380 - tmp381;
- tmp392 = tmp380 + tmp381;
- tmp383 = tmp356 + tmp357;
- tmp384 = tmp352 - tmp349;
- tmp385 = tmp383 + tmp384;
- tmp393 = tmp383 - tmp384;
- }
- {
- fftw_real tmp379;
- fftw_real tmp386;
- fftw_real tmp387;
- fftw_real tmp388;
- ASSERT_ALIGNED_DOUBLE;
- tmp379 = tmp375 + tmp378;
- tmp386 = (K1_847759065 * tmp382) - (K765366864 * tmp385);
- output[39 * ostride] = tmp379 - tmp386;
- output[7 * ostride] = tmp379 + tmp386;
- tmp387 = tmp375 - tmp378;
- tmp388 = (K1_847759065 * tmp385) + (K765366864 * tmp382);
- output[23 * ostride] = tmp387 - tmp388;
- output[55 * ostride] = tmp387 + tmp388;
- }
- {
- fftw_real tmp391;
- fftw_real tmp394;
- fftw_real tmp395;
- fftw_real tmp396;
- ASSERT_ALIGNED_DOUBLE;
- tmp391 = tmp389 - tmp390;
- tmp394 = (K765366864 * tmp392) - (K1_847759065 * tmp393);
- output[47 * ostride] = tmp391 - tmp394;
- output[15 * ostride] = tmp391 + tmp394;
- tmp395 = tmp389 + tmp390;
- tmp396 = (K765366864 * tmp393) + (K1_847759065 * tmp392);
- output[31 * ostride] = tmp395 - tmp396;
- output[63 * ostride] = tmp395 + tmp396;
- }
- }
- {
- fftw_real tmp214;
- fftw_real tmp218;
- fftw_real tmp217;
- fftw_real tmp219;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp212;
- fftw_real tmp213;
- fftw_real tmp215;
- fftw_real tmp216;
- ASSERT_ALIGNED_DOUBLE;
- tmp212 = tmp196 + tmp197;
- tmp213 = K1_414213562 * (tmp199 + tmp200);
- tmp214 = tmp212 - tmp213;
- tmp218 = tmp212 + tmp213;
- tmp215 = tmp203 + tmp204;
- tmp216 = tmp207 - tmp206;
- tmp217 = (K765366864 * tmp215) - (K1_847759065 * tmp216);
- tmp219 = (K765366864 * tmp216) + (K1_847759065 * tmp215);
- }
- output[44 * ostride] = tmp214 - tmp217;
- output[12 * ostride] = tmp214 + tmp217;
- output[28 * ostride] = tmp218 - tmp219;
- output[60 * ostride] = tmp218 + tmp219;
- }
- {
- fftw_real tmp202;
- fftw_real tmp210;
- fftw_real tmp209;
- fftw_real tmp211;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp198;
- fftw_real tmp201;
- fftw_real tmp205;
- fftw_real tmp208;
- ASSERT_ALIGNED_DOUBLE;
- tmp198 = tmp196 - tmp197;
- tmp201 = K1_414213562 * (tmp199 - tmp200);
- tmp202 = tmp198 + tmp201;
- tmp210 = tmp198 - tmp201;
- tmp205 = tmp203 - tmp204;
- tmp208 = tmp206 + tmp207;
- tmp209 = (K1_847759065 * tmp205) - (K765366864 * tmp208);
- tmp211 = (K1_847759065 * tmp208) + (K765366864 * tmp205);
- }
- output[36 * ostride] = tmp202 - tmp209;
- output[4 * ostride] = tmp202 + tmp209;
- output[20 * ostride] = tmp210 - tmp211;
- output[52 * ostride] = tmp210 + tmp211;
- }
- {
- fftw_real tmp158;
- fftw_real tmp166;
- fftw_real tmp172;
- fftw_real tmp176;
- fftw_real tmp165;
- fftw_real tmp173;
- fftw_real tmp169;
- fftw_real tmp174;
- fftw_real tmp177;
- fftw_real tmp175;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp154;
- fftw_real tmp157;
- fftw_real tmp170;
- fftw_real tmp171;
- ASSERT_ALIGNED_DOUBLE;
- tmp154 = tmp152 - tmp153;
- tmp157 = (K765366864 * tmp155) - (K1_847759065 * tmp156);
- tmp158 = tmp154 + tmp157;
- tmp166 = tmp154 - tmp157;
- tmp170 = tmp152 + tmp153;
- tmp171 = (K765366864 * tmp156) + (K1_847759065 * tmp155);
- tmp172 = tmp170 - tmp171;
- tmp176 = tmp170 + tmp171;
- }
- {
- fftw_real tmp161;
- fftw_real tmp164;
- fftw_real tmp167;
- fftw_real tmp168;
- ASSERT_ALIGNED_DOUBLE;
- tmp161 = (K831469612 * tmp159) - (K555570233 * tmp160);
- tmp164 = (K980785280 * tmp162) + (K195090322 * tmp163);
- tmp165 = K2_000000000 * (tmp161 - tmp164);
- tmp173 = tmp161 + tmp164;
- tmp167 = (K831469612 * tmp160) + (K555570233 * tmp159);
- tmp168 = (K980785280 * tmp163) - (K195090322 * tmp162);
- tmp169 = K2_000000000 * (tmp167 - tmp168);
- tmp174 = tmp167 + tmp168;
- }
- output[38 * ostride] = tmp158 - tmp165;
- output[6 * ostride] = tmp158 + tmp165;
- output[22 * ostride] = tmp166 - tmp169;
- output[54 * ostride] = tmp166 + tmp169;
- tmp177 = K1_414213562 * (tmp173 + tmp174);
- output[30 * ostride] = tmp176 - tmp177;
- output[62 * ostride] = tmp176 + tmp177;
- tmp175 = K1_414213562 * (tmp173 - tmp174);
- output[46 * ostride] = tmp172 - tmp175;
- output[14 * ostride] = tmp172 + tmp175;
- }
- {
- fftw_real tmp251;
- fftw_real tmp283;
- fftw_real tmp295;
- fftw_real tmp299;
- fftw_real tmp282;
- fftw_real tmp296;
- fftw_real tmp290;
- fftw_real tmp297;
- fftw_real tmp300;
- fftw_real tmp298;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp235;
- fftw_real tmp250;
- fftw_real tmp291;
- fftw_real tmp294;
- ASSERT_ALIGNED_DOUBLE;
- tmp235 = tmp227 + tmp234;
- tmp250 = K2_000000000 * (tmp242 + tmp249);
- tmp251 = tmp235 + tmp250;
- tmp283 = tmp235 - tmp250;
- tmp291 = tmp227 - tmp234;
- tmp294 = K2_000000000 * (tmp292 - tmp293);
- tmp295 = tmp291 - tmp294;
- tmp299 = tmp291 + tmp294;
- }
- {
- fftw_real tmp266;
- fftw_real tmp281;
- fftw_real tmp286;
- fftw_real tmp289;
- ASSERT_ALIGNED_DOUBLE;
- tmp266 = tmp258 + tmp265;
- tmp281 = tmp273 + tmp280;
- tmp282 = K2_000000000 * (tmp266 + tmp281);
- tmp296 = tmp266 - tmp281;
- tmp286 = tmp284 - tmp285;
- tmp289 = tmp287 - tmp288;
- tmp290 = K2_000000000 * (tmp286 - tmp289);
- tmp297 = tmp286 + tmp289;
- }
- output[33 * ostride] = tmp251 - tmp282;
- output[ostride] = tmp251 + tmp282;
- output[17 * ostride] = tmp283 - tmp290;
- output[49 * ostride] = tmp283 + tmp290;
- tmp300 = K1_414213562 * (tmp296 + tmp297);
- output[25 * ostride] = tmp299 - tmp300;
- output[57 * ostride] = tmp299 + tmp300;
- tmp298 = K1_414213562 * (tmp296 - tmp297);
- output[41 * ostride] = tmp295 - tmp298;
- output[9 * ostride] = tmp295 + tmp298;
- }
- {
- fftw_real tmp303;
- fftw_real tmp317;
- fftw_real tmp306;
- fftw_real tmp318;
- fftw_real tmp310;
- fftw_real tmp320;
- fftw_real tmp313;
- fftw_real tmp321;
- fftw_real tmp304;
- fftw_real tmp305;
- ASSERT_ALIGNED_DOUBLE;
- tmp303 = tmp301 - tmp302;
- tmp317 = tmp301 + tmp302;
- tmp304 = tmp242 - tmp249;
- tmp305 = tmp292 + tmp293;
- tmp306 = K1_414213562 * (tmp304 - tmp305);
- tmp318 = K1_414213562 * (tmp304 + tmp305);
- {
- fftw_real tmp308;
- fftw_real tmp309;
- fftw_real tmp311;
- fftw_real tmp312;
- ASSERT_ALIGNED_DOUBLE;
- tmp308 = tmp258 - tmp265;
- tmp309 = tmp287 + tmp288;
- tmp310 = tmp308 - tmp309;
- tmp320 = tmp308 + tmp309;
- tmp311 = tmp284 + tmp285;
- tmp312 = tmp280 - tmp273;
- tmp313 = tmp311 + tmp312;
- tmp321 = tmp311 - tmp312;
- }
- {
- fftw_real tmp307;
- fftw_real tmp314;
- fftw_real tmp315;
- fftw_real tmp316;
- ASSERT_ALIGNED_DOUBLE;
- tmp307 = tmp303 + tmp306;
- tmp314 = (K1_847759065 * tmp310) - (K765366864 * tmp313);
- output[37 * ostride] = tmp307 - tmp314;
- output[5 * ostride] = tmp307 + tmp314;
- tmp315 = tmp303 - tmp306;
- tmp316 = (K1_847759065 * tmp313) + (K765366864 * tmp310);
- output[21 * ostride] = tmp315 - tmp316;
- output[53 * ostride] = tmp315 + tmp316;
- }
- {
- fftw_real tmp319;
- fftw_real tmp322;
- fftw_real tmp323;
- fftw_real tmp324;
- ASSERT_ALIGNED_DOUBLE;
- tmp319 = tmp317 - tmp318;
- tmp322 = (K765366864 * tmp320) - (K1_847759065 * tmp321);
- output[45 * ostride] = tmp319 - tmp322;
- output[13 * ostride] = tmp319 + tmp322;
- tmp323 = tmp317 + tmp318;
- tmp324 = (K765366864 * tmp321) + (K1_847759065 * tmp320);
- output[29 * ostride] = tmp323 - tmp324;
- output[61 * ostride] = tmp323 + tmp324;
- }
- }
-}
-
-fftw_codelet_desc fftw_hc2real_64_desc =
-{
- "fftw_hc2real_64",
- (void (*)()) fftw_hc2real_64,
- 64,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 1423,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_7.c b/src/sndobj/rfftw/fcr_7.c
deleted file mode 100644
index 311fd7f..0000000
--- a/src/sndobj/rfftw/fcr_7.c
+++ /dev/null
@@ -1,96 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:19 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 7 */
-
-/*
- * This function contains 24 FP additions, 19 FP multiplications,
- * (or, 23 additions, 18 multiplications, 1 fused multiply/add),
- * 13 stack variables, and 14 memory accesses
- */
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_801937735 = FFTW_KONST(+1.801937735804838252472204639014890102331838324);
-static const fftw_real K445041867 = FFTW_KONST(+0.445041867912628808577805128993589518932711138);
-static const fftw_real K1_246979603 = FFTW_KONST(+1.246979603717467061050009768008479621264549462);
-static const fftw_real K867767478 = FFTW_KONST(+0.867767478235116240951536665696717509219981456);
-static const fftw_real K1_949855824 = FFTW_KONST(+1.949855824363647214036263365987862434465571601);
-static const fftw_real K1_563662964 = FFTW_KONST(+1.563662964936059617416889053348115500464669037);
-
-/*
- * Generator Id's :
- * $Id: fcr_7.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fcr_7.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fcr_7.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- */
-
-void fftw_hc2real_7(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp9;
- fftw_real tmp13;
- fftw_real tmp11;
- fftw_real tmp1;
- fftw_real tmp4;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp12;
- fftw_real tmp10;
- fftw_real tmp6;
- fftw_real tmp8;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = imag_input[2 * imag_istride];
- tmp8 = imag_input[imag_istride];
- tmp7 = imag_input[3 * imag_istride];
- tmp9 = (K1_563662964 * tmp6) - (K1_949855824 * tmp7) - (K867767478 * tmp8);
- tmp13 = (K867767478 * tmp6) + (K1_563662964 * tmp7) - (K1_949855824 * tmp8);
- tmp11 = (K1_563662964 * tmp8) + (K1_949855824 * tmp6) + (K867767478 * tmp7);
- tmp1 = real_input[0];
- tmp4 = real_input[3 * real_istride];
- tmp2 = real_input[real_istride];
- tmp3 = real_input[2 * real_istride];
- tmp5 = tmp1 + (K1_246979603 * tmp3) - (K445041867 * tmp4) - (K1_801937735 * tmp2);
- tmp12 = tmp1 + (K1_246979603 * tmp4) - (K1_801937735 * tmp3) - (K445041867 * tmp2);
- tmp10 = tmp1 + (K1_246979603 * tmp2) - (K1_801937735 * tmp4) - (K445041867 * tmp3);
- output[4 * ostride] = tmp5 - tmp9;
- output[3 * ostride] = tmp5 + tmp9;
- output[0] = tmp1 + (K2_000000000 * (tmp2 + tmp3 + tmp4));
- output[2 * ostride] = tmp12 + tmp13;
- output[5 * ostride] = tmp12 - tmp13;
- output[6 * ostride] = tmp10 + tmp11;
- output[ostride] = tmp10 - tmp11;
-}
-
-fftw_codelet_desc fftw_hc2real_7_desc =
-{
- "fftw_hc2real_7",
- (void (*)()) fftw_hc2real_7,
- 7,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 169,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_8.c b/src/sndobj/rfftw/fcr_8.c
deleted file mode 100644
index 8bd5b02..0000000
--- a/src/sndobj/rfftw/fcr_8.c
+++ /dev/null
@@ -1,119 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:20 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 8 */
-
-/*
- * This function contains 20 FP additions, 6 FP multiplications,
- * (or, 20 additions, 6 multiplications, 0 fused multiply/add),
- * 18 stack variables, and 16 memory accesses
- */
-static const fftw_real K1_414213562 = FFTW_KONST(+1.414213562373095048801688724209698078569671875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fcr_8.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: fcr_8.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: fcr_8.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- */
-
-void fftw_hc2real_8(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp5;
- fftw_real tmp12;
- fftw_real tmp3;
- fftw_real tmp10;
- fftw_real tmp9;
- fftw_real tmp14;
- fftw_real tmp17;
- fftw_real tmp22;
- fftw_real tmp6;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp11;
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = real_input[2 * real_istride];
- tmp5 = K2_000000000 * tmp4;
- tmp11 = imag_input[2 * imag_istride];
- tmp12 = K2_000000000 * tmp11;
- tmp1 = real_input[0];
- tmp2 = real_input[4 * real_istride];
- tmp3 = tmp1 + tmp2;
- tmp10 = tmp1 - tmp2;
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp15;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = real_input[real_istride];
- tmp8 = real_input[3 * real_istride];
- tmp9 = K2_000000000 * (tmp7 + tmp8);
- tmp14 = tmp7 - tmp8;
- tmp15 = imag_input[3 * imag_istride];
- tmp16 = imag_input[imag_istride];
- tmp17 = tmp15 + tmp16;
- tmp22 = K2_000000000 * (tmp16 - tmp15);
- }
- }
- tmp6 = tmp3 + tmp5;
- output[4 * ostride] = tmp6 - tmp9;
- output[0] = tmp6 + tmp9;
- tmp21 = tmp3 - tmp5;
- output[2 * ostride] = tmp21 - tmp22;
- output[6 * ostride] = tmp21 + tmp22;
- {
- fftw_real tmp13;
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp13 = tmp10 - tmp12;
- tmp18 = K1_414213562 * (tmp14 - tmp17);
- output[5 * ostride] = tmp13 - tmp18;
- output[ostride] = tmp13 + tmp18;
- tmp19 = tmp10 + tmp12;
- tmp20 = K1_414213562 * (tmp14 + tmp17);
- output[3 * ostride] = tmp19 - tmp20;
- output[7 * ostride] = tmp19 + tmp20;
- }
-}
-
-fftw_codelet_desc fftw_hc2real_8_desc =
-{
- "fftw_hc2real_8",
- (void (*)()) fftw_hc2real_8,
- 8,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 191,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fcr_9.c b/src/sndobj/rfftw/fcr_9.c
deleted file mode 100644
index 68500ce..0000000
--- a/src/sndobj/rfftw/fcr_9.c
+++ /dev/null
@@ -1,155 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:21 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 9 */
-
-/*
- * This function contains 32 FP additions, 18 FP multiplications,
- * (or, 22 additions, 8 multiplications, 10 fused multiply/add),
- * 22 stack variables, and 18 memory accesses
- */
-static const fftw_real K984807753 = FFTW_KONST(+0.984807753012208059366743024589523013670643252);
-static const fftw_real K173648177 = FFTW_KONST(+0.173648177666930348851716626769314796000375677);
-static const fftw_real K300767466 = FFTW_KONST(+0.300767466360870593278543795225003852144476517);
-static const fftw_real K1_705737063 = FFTW_KONST(+1.705737063904886419256501927880148143872040591);
-static const fftw_real K642787609 = FFTW_KONST(+0.642787609686539326322643409907263432907559884);
-static const fftw_real K766044443 = FFTW_KONST(+0.766044443118978035202392650555416673935832457);
-static const fftw_real K1_326827896 = FFTW_KONST(+1.326827896337876792410842639271782594433726619);
-static const fftw_real K1_113340798 = FFTW_KONST(+1.113340798452838732905825904094046265936583811);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-
-/*
- * Generator Id's :
- * $Id: fcr_9.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fcr_9.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fcr_9.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_hc2real_9(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp26;
- fftw_real tmp12;
- fftw_real tmp20;
- fftw_real tmp19;
- fftw_real tmp8;
- fftw_real tmp17;
- fftw_real tmp27;
- fftw_real tmp22;
- fftw_real tmp28;
- fftw_real tmp32;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp11;
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp9;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp10 = imag_input[3 * imag_istride];
- tmp11 = K1_732050807 * tmp10;
- tmp1 = real_input[0];
- tmp2 = real_input[3 * real_istride];
- tmp9 = tmp1 - tmp2;
- tmp3 = tmp1 + (K2_000000000 * tmp2);
- tmp26 = tmp9 + tmp11;
- tmp12 = tmp9 - tmp11;
- }
- {
- fftw_real tmp4;
- fftw_real tmp7;
- fftw_real tmp18;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = real_input[real_istride];
- tmp20 = imag_input[imag_istride];
- {
- fftw_real tmp5;
- fftw_real tmp6;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp5 = real_input[4 * real_istride];
- tmp6 = real_input[2 * real_istride];
- tmp7 = tmp5 + tmp6;
- tmp18 = K866025403 * (tmp5 - tmp6);
- tmp14 = imag_input[4 * imag_istride];
- tmp15 = imag_input[2 * imag_istride];
- tmp16 = K866025403 * (tmp14 + tmp15);
- tmp19 = tmp15 - tmp14;
- }
- tmp8 = tmp4 + tmp7;
- tmp13 = tmp4 - (K500000000 * tmp7);
- tmp17 = tmp13 - tmp16;
- tmp27 = tmp13 + tmp16;
- tmp21 = (K500000000 * tmp19) + tmp20;
- tmp22 = tmp18 + tmp21;
- tmp28 = tmp21 - tmp18;
- }
- output[0] = tmp3 + (K2_000000000 * tmp8);
- tmp32 = tmp3 - tmp8;
- tmp33 = K1_732050807 * (tmp20 - tmp19);
- output[3 * ostride] = tmp32 - tmp33;
- output[6 * ostride] = tmp32 + tmp33;
- {
- fftw_real tmp25;
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp31;
- fftw_real tmp29;
- fftw_real tmp30;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = (K1_113340798 * tmp17) + (K1_326827896 * tmp22);
- tmp23 = (K766044443 * tmp17) - (K642787609 * tmp22);
- tmp24 = tmp12 - tmp23;
- output[ostride] = tmp12 + (K2_000000000 * tmp23);
- output[7 * ostride] = tmp24 + tmp25;
- output[4 * ostride] = tmp24 - tmp25;
- tmp31 = (K1_705737063 * tmp27) + (K300767466 * tmp28);
- tmp29 = (K173648177 * tmp27) - (K984807753 * tmp28);
- tmp30 = tmp26 - tmp29;
- output[2 * ostride] = tmp26 + (K2_000000000 * tmp29);
- output[8 * ostride] = tmp30 + tmp31;
- output[5 * ostride] = tmp30 - tmp31;
- }
-}
-
-fftw_codelet_desc fftw_hc2real_9_desc =
-{
- "fftw_hc2real_9",
- (void (*)()) fftw_hc2real_9,
- 9,
- FFTW_BACKWARD,
- FFTW_HC2REAL,
- 213,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fftw-int.h b/src/sndobj/rfftw/fftw-int.h
deleted file mode 100644
index d0dcdb2..0000000
--- a/src/sndobj/rfftw/fftw-int.h
+++ /dev/null
@@ -1,500 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* fftw.h -- system-wide definitions */
-/* $Id: fftw-int.h,v 1.2 2007/01/08 10:53:29 veplaini Exp $ */
-
-#ifndef FFTW_INT_H
-#define FFTW_INT_H
-#include <rfftw/config.h>
-#include <rfftw/fftw.h>
-
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-/****************************************************************************/
-/* Private Functions */
-/****************************************************************************/
-
-extern fftw_twiddle *fftw_create_twiddle(int n, const fftw_codelet_desc *d);
-extern void fftw_destroy_twiddle(fftw_twiddle *tw);
-
-extern void fftw_strided_copy(int, fftw_complex *, int, fftw_complex *);
-extern void fftw_executor_simple(int, const fftw_complex *, fftw_complex *,
- fftw_plan_node *, int, int,
- fftw_recurse_kind recurse_kind);
-
-extern fftwnd_plan fftwnd_create_plan_aux(int rank, const int *n,
- fftw_direction dir, int flags);
-extern fftw_plan *fftwnd_new_plan_array(int rank);
-extern fftw_plan *fftwnd_create_plans_generic(fftw_plan *plans,
- int rank, const int *n,
- fftw_direction dir, int flags);
-extern fftw_plan *fftwnd_create_plans_specific(fftw_plan *plans,
- int rank, const int *n,
- const int *n_after,
- fftw_direction dir, int flags,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride);
-extern int fftwnd_work_size(int rank, const int *n, int flags, int ncopies);
-
-extern void fftwnd_aux(fftwnd_plan p, int cur_dim,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride,
- fftw_complex *work);
-extern void fftwnd_aux_howmany(fftwnd_plan p, int cur_dim,
- int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_complex *out, int ostride, int odist,
- fftw_complex *work);
-
-/* wisdom prototypes */
-enum fftw_wisdom_category {
- FFTW_WISDOM, RFFTW_WISDOM
-};
-
-extern int fftw_wisdom_lookup(int n, int flags, fftw_direction dir,
- enum fftw_wisdom_category category,
- int istride, int ostride,
- enum fftw_node_type *type,
- int *signature,
- fftw_recurse_kind *recurse_kind, int replace_p);
-extern void fftw_wisdom_add(int n, int flags, fftw_direction dir,
- enum fftw_wisdom_category cat,
- int istride, int ostride,
- enum fftw_node_type type,
- int signature,
- fftw_recurse_kind recurse_kind);
-
-/* Private planner functions: */
-extern double fftw_estimate_node(fftw_plan_node *p);
-extern fftw_plan_node *fftw_make_node_notw(int size,
- const fftw_codelet_desc *config);
-extern fftw_plan_node *fftw_make_node_real2hc(int size,
- const fftw_codelet_desc *config);
-extern fftw_plan_node *fftw_make_node_hc2real(int size,
- const fftw_codelet_desc *config);
-extern fftw_plan_node *fftw_make_node_twiddle(int n,
- const fftw_codelet_desc *config,
- fftw_plan_node *recurse,
- int flags);
-extern fftw_plan_node *fftw_make_node_hc2hc(int n,
- fftw_direction dir,
- const fftw_codelet_desc *config,
- fftw_plan_node *recurse,
- int flags);
-extern fftw_plan_node *fftw_make_node_generic(int n, int size,
- fftw_generic_codelet *codelet,
- fftw_plan_node *recurse,
- int flags);
-extern fftw_plan_node *fftw_make_node_rgeneric(int n, int size,
- fftw_direction dir,
- fftw_rgeneric_codelet * codelet,
- fftw_plan_node *recurse,
- int flags);
-extern int fftw_factor(int n);
-extern fftw_plan_node *fftw_make_node(void);
-extern fftw_plan fftw_make_plan(int n, fftw_direction dir,
- fftw_plan_node *root, int flags,
- enum fftw_node_type wisdom_type,
- int wisdom_signature,
- fftw_recurse_kind recurse_kind,
- int vector_size);
-extern void fftw_use_plan(fftw_plan p);
-extern void fftw_use_node(fftw_plan_node *p);
-extern void fftw_destroy_plan_internal(fftw_plan p);
-extern fftw_plan fftw_pick_better(fftw_plan p1, fftw_plan p2);
-extern fftw_plan fftw_lookup(fftw_plan *table, int n, int flags,
- int vector_size);
-extern void fftw_insert(fftw_plan *table, fftw_plan this_plan);
-extern void fftw_make_empty_table(fftw_plan *table);
-extern void fftw_destroy_table(fftw_plan *table);
-extern void fftw_complete_twiddle(fftw_plan_node *p, int n);
-
-extern fftw_plan_node *fftw_make_node_rader(int n, int size,
- fftw_direction dir,
- fftw_plan_node *recurse,
- int flags);
-extern fftw_rader_data *fftw_rader_top;
-
-/* undocumented debugging hook */
-typedef void (*fftw_plan_hook_ptr) (fftw_plan plan);
-extern DL_IMPORT(fftw_plan_hook_ptr) fftw_plan_hook;
-extern DL_IMPORT(fftw_plan_hook_ptr) rfftw_plan_hook;
-
-/****************************************************************************/
-/* Overflow-safe multiply */
-/****************************************************************************/
-
-/* The Rader routines do a lot of operations of the form (x * y) % p, which
- are vulnerable to overflow problems for large p. To get around this,
- we either use "long long" arithmetic (if it is available and double
- the size of int), or default to a subroutine defined in twiddle.c. */
-
-#if defined(FFTW_ENABLE_UNSAFE_MULMOD)
-# define MULMOD(x,y,p) (((x) * (y)) % (p))
-#elif defined(LONGLONG_IS_TWOINTS)
-# define MULMOD(x,y,p) ((int) ((((long long) (x)) * ((long long) (y))) \
- % ((long long) (p))))
-#else
-# define USE_FFTW_SAFE_MULMOD
-# define MULMOD(x,y,p) fftw_safe_mulmod(x,y,p)
-extern int fftw_safe_mulmod(int x, int y, int p);
-#endif
-
-/****************************************************************************/
-/* Floating Point Types */
-/****************************************************************************/
-
-/*
- * We use these definitions to make it easier for people to change
- * FFTW to use long double and similar types. You shouldn't have to
- * change this just to use float or double.
- */
-
-/*
- * Change this if your floating-point constants need to be expressed
- * in a special way. For example, if fftw_real is long double, you
- * will need to append L to your fp constants to make them of the
- * same precision. Do this by changing "x" below to "x##L".
- */
-#define FFTW_KONST(x) ((fftw_real) x)
-
-/*
- * Ordinarily, we use the standard sin/cos functions to compute trig.
- * constants. You'll need to change these if fftw_real has more
- * than double precision.
- */
-#define FFTW_TRIG_SIN sin
-#define FFTW_TRIG_COS cos
-typedef double FFTW_TRIG_REAL; /* the argument type for sin and cos */
-
-#define FFTW_K2PI FFTW_KONST(6.2831853071795864769252867665590057683943388)
-
-/****************************************************************************/
-/* gcc/x86 hacks */
-/****************************************************************************/
-
-/*
- * gcc 2.[78].x and x86 specific hacks. These macros align the stack
- * pointer so that the double precision temporary variables in the
- * codelets will be aligned to a multiple of 8 bytes (*way* faster on
- * pentium and pentiumpro)
- */
-#ifdef __GNUC__
-# ifdef __i386__
-# ifdef FFTW_ENABLE_I386_HACKS
-# ifndef FFTW_GCC_ALIGNS_STACK
-# ifndef FFTW_ENABLE_FLOAT
-# define FFTW_USING_I386_HACKS
-# define HACK_ALIGN_STACK_EVEN { \
- if ((((long) (__builtin_alloca(0))) & 0x7)) __builtin_alloca(4); \
- }
-
-# define HACK_ALIGN_STACK_ODD { \
- if (!(((long) (__builtin_alloca(0))) & 0x7)) __builtin_alloca(4); \
- }
-
-# endif /* ! FFTW_ENABLE_FLOAT */
-# endif /* ! FFTW_GCC_ALIGNS_STACK */
-# endif /* FFTW_ENABLE_I386_HACKS */
-
-# ifdef FFTW_DEBUG_ALIGNMENT
-# define ASSERT_ALIGNED_DOUBLE { \
- double __foo; \
- if ((((long) &__foo) & 0x7)) abort(); \
- }
-# endif /* FFTW_DEBUG_ALIGNMENT */
-
-# endif /* __i386__ */
-#endif /* __GNUC__ */
-
-#ifndef HACK_ALIGN_STACK_EVEN
-# define HACK_ALIGN_STACK_EVEN {}
-#endif
-#ifndef HACK_ALIGN_STACK_ODD
-# define HACK_ALIGN_STACK_ODD {}
-#endif
-#ifndef ASSERT_ALIGNED_DOUBLE
-# define ASSERT_ALIGNED_DOUBLE {}
-#endif
-
-/****************************************************************************/
-/* Timers */
-/****************************************************************************/
-
-/*
- * Here, you can use all the nice timers available in your machine.
- */
-
-/*
- *
- Things you should define to include your own clock:
-
- fftw_time -- the data type used to store a time
-
- extern fftw_time fftw_get_time(void);
- -- a function returning the current time. (We have
- implemented this as a macro in most cases.)
-
- extern fftw_time fftw_time_diff(fftw_time t1, fftw_time t2);
- -- returns the time difference (t1 - t2).
- If t1 < t2, it may simply return zero (although this
- is not required). (We have implemented this as a macro
- in most cases.)
-
- extern double fftw_time_to_sec(fftw_time t);
- -- returns the time t expressed in seconds, as a double.
- (Implemented as a macro in most cases.)
-
- FFTW_TIME_MIN -- a double-precision macro holding the minimum
- time interval (in seconds) for accurate time measurements.
- This should probably be at least 100 times the precision of
- your clock (we use even longer intervals, to be conservative).
- This will determine how long the planner takes to measure
- the speeds of different possible plans.
-
- Bracket all of your definitions with an appropriate #ifdef so that
- they will be enabled on your machine. If you do add your own
- high-precision timer code, let us know (at fftw@fftw.org).
-
- Only declarations should go in this file. Any function definitions
- that you need should go into timer.c.
- */
-
-/*
- * define a symbol so that we know that we have the fftw_time_diff
- * function/macro (it did not exist prior to FFTW 1.2)
- */
-#define FFTW_HAS_TIME_DIFF
-
-/**********************************************
- * SOLARIS
- **********************************************/
-#if defined(HAVE_GETHRTIME) && defined(HAVE_HRTIME_T)
-
-/* we use the nanosecond virtual timer */
-#ifdef HAVE_SYS_TIME_H
-#include <sys/time.h>
-#endif
-
-typedef hrtime_t fftw_time;
-
-#define fftw_get_time() gethrtime()
-#define fftw_time_diff(t1,t2) ((t1) - (t2))
-#define fftw_time_to_sec(t) ((double) t / 1.0e9)
-
-/*
- * a measurement is valid if it runs for at least
- * FFTW_TIME_MIN seconds.
- */
-#define FFTW_TIME_MIN (1.0e-4) /* for Solaris nanosecond timer */
-#define FFTW_TIME_REPEAT 8
-
-/**********************************************
- * Pentium time stamp counter
- **********************************************/
-#elif defined(__GNUC__) && defined(__i386__) && defined(FFTW_ENABLE_PENTIUM_TIMER)
-
-/*
- * Use internal Pentium register (time stamp counter). Resolution
- * is 1/FFTW_CYCLES_PER_SEC seconds (e.g. 5 ns for Pentium 200 MHz).
- * (This code was contributed by Wolfgang Reimer)
- */
-
-#ifndef FFTW_CYCLES_PER_SEC
-#error "Must define FFTW_CYCLES_PER_SEC in fftw/config.h to use the Pentium cycle counter"
-#endif
-
-typedef unsigned long long fftw_time;
-
-static __inline__ fftw_time read_tsc()
-{
- fftw_time ret;
-
- __asm__ __volatile__("rdtsc": "=A" (ret));
- /* no input, nothing else clobbered */
- return ret;
-}
-
-#define fftw_get_time() read_tsc()
-#define fftw_time_diff(t1,t2) ((t1) - (t2))
-#define fftw_time_to_sec(t) (((double) (t)) / FFTW_CYCLES_PER_SEC)
-#define FFTW_TIME_MIN (1.0e-4) /* for Pentium TSC register */
-
-/************* generic systems having gettimeofday ************/
-#elif defined(HAVE_GETTIMEOFDAY) || defined(HAVE_BSDGETTIMEOFDAY)
-#ifdef HAVE_SYS_TIME_H
-#include <sys/time.h>
-#endif
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#endif
-#define FFTW_USE_GETTIMEOFDAY
-
-typedef struct timeval fftw_time;
-
-extern fftw_time fftw_gettimeofday_get_time(void);
-extern fftw_time fftw_gettimeofday_time_diff(fftw_time t1, fftw_time t2);
-#define fftw_get_time() fftw_gettimeofday_get_time()
-#define fftw_time_diff(t1, t2) fftw_gettimeofday_time_diff(t1, t2)
-#define fftw_time_to_sec(t) ((double)(t).tv_sec + (double)(t).tv_usec * 1.0E-6)
-
-#ifndef FFTW_TIME_MIN
-/* this should be fine on any system claiming a microsecond timer */
-#define FFTW_TIME_MIN (1.0e-2)
-#endif
-
-/**********************************************
- * MACINTOSH
- **********************************************/
-#elif defined(HAVE_MAC_TIMER)
-
-/*
- * By default, use the microsecond-timer in the Mac Time Manager.
- * Alternatively, by changing the following #if 1 to #if 0, you
- * can use the nanosecond timer available *only* on PCI PowerMacs.
- * WARNING: the nanosecond timer was just a little experiment;
- * I haven't gotten it to work reliably. Tips/patches are welcome.
- */
-#ifndef HAVE_MAC_PCI_TIMER /* use time manager */
-
-/*
- * Use Macintosh Time Manager routines (maximum resolution is about 20
- * microseconds).
- */
-typedef struct fftw_time_struct {
- unsigned long hi, lo;
-} fftw_time;
-
-extern fftw_time get_Mac_microseconds(void);
-
-#define fftw_get_time() get_Mac_microseconds()
-
-/* define as a function instead of a macro: */
-extern fftw_time fftw_time_diff(fftw_time t1, fftw_time t2);
-
-#define fftw_time_to_sec(t) ((t).lo * 1.0e-6 + 4294967295.0e-6 * (t).hi)
-
-/* very conservative, since timer should be accurate to 20e-6: */
-/* (although this seems not to be the case in practice) */
-#define FFTW_TIME_MIN (5.0e-2) /* for MacOS Time Manager timer */
-
-#else /* use nanosecond timer */
-
-/* Use the nanosecond timer available on PCI PowerMacs. */
-
-#include <DriverServices.h>
-
-typedef AbsoluteTime fftw_time;
-#define fftw_get_time() UpTime()
-#define fftw_time_diff(t1,t2) SubAbsoluteFromAbsolute(t1,t2)
-#define fftw_time_to_sec(t) (AbsoluteToNanoseconds(t).lo * 1.0e-9)
-
-/* Extremely conservative minimum time: */
-/* for MacOS PCI PowerMac nanosecond timer */
-#define FFTW_TIME_MIN (5.0e-3)
-
-#endif /* use nanosecond timer */
-
-/**********************************************
- * WINDOWS
- **********************************************/
-#elif defined(HAVE_WIN32_TIMER)
-
-#include <time.h>
-
-typedef unsigned long fftw_time;
-extern unsigned long GetPerfTime(void);
-extern double GetPerfSec(double ticks);
-
-#define fftw_get_time() GetPerfTime()
-#define fftw_time_diff(t1,t2) ((t1) - (t2))
-#define fftw_time_to_sec(t) GetPerfSec(t)
-
-#define FFTW_TIME_MIN (5.0e-2) /* for Win32 timer */
-
-/**********************************************
- * CRAY
- **********************************************/
-#elif defined(_CRAYMPP) /* Cray MPP system */
-
-double SECONDR(void); /*
- * I think you have to link with -lsci to
- * get this
- */
-
-typedef double fftw_time;
-#define fftw_get_time() SECONDR()
-#define fftw_time_diff(t1,t2) ((t1) - (t2))
-#define fftw_time_to_sec(t) (t)
-
-#define FFTW_TIME_MIN (1.0e-1) /* for Cray MPP SECONDR timer */
-
-/**********************************************
- * VANILLA UNIX/ISO C SYSTEMS
- **********************************************/
-/* last resort: use good old Unix clock() */
-#else
-
-#include <time.h>
-
-typedef clock_t fftw_time;
-
-#ifndef CLOCKS_PER_SEC
-#ifdef sun
-/* stupid sunos4 prototypes */
-#define CLOCKS_PER_SEC 1000000
-extern long clock(void);
-#else /* not sun, we don't know CLOCKS_PER_SEC */
-#error Please define CLOCKS_PER_SEC
-#endif
-#endif
-
-#define fftw_get_time() clock()
-#define fftw_time_diff(t1,t2) ((t1) - (t2))
-#define fftw_time_to_sec(t) (((double) (t)) / CLOCKS_PER_SEC)
-
-/*
- * ***VERY*** conservative constant: this says that a
- * measurement must run for 200ms in order to be valid.
- * You had better check the manual of your machine
- * to discover if it can do better than this
- */
-#define FFTW_TIME_MIN (2.0e-1) /* for default clock() timer */
-
-#endif /* UNIX clock() */
-
-/* take FFTW_TIME_REPEAT measurements... */
-#ifndef FFTW_TIME_REPEAT
-#define FFTW_TIME_REPEAT 4
-#endif
-
-/* but do not run for more than TIME_LIMIT seconds while measuring one FFT */
-#ifndef FFTW_TIME_LIMIT
-#define FFTW_TIME_LIMIT 2.0
-#endif
-
-#ifdef __cplusplus
-} /* extern "C" */
-
-#endif /* __cplusplus */
-
-#endif /* FFTW_INT_H */
diff --git a/src/sndobj/rfftw/fftw.h b/src/sndobj/rfftw/fftw.h
deleted file mode 100644
index 41af839..0000000
--- a/src/sndobj/rfftw/fftw.h
+++ /dev/null
@@ -1,425 +0,0 @@
-/* -*- C -*- */
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* fftw.h -- system-wide definitions */
-/* $Id: fftw.h,v 1.1 2007/01/05 19:26:43 veplaini Exp $ */
-
-#ifndef FFTW_H
-#define FFTW_H
-
-#include <stdlib.h>
-#include <stdio.h>
-
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-/* Define for using single precision */
-/*
- * If you can, use configure --enable-float instead of changing this
- * flag directly
- */
-/* #undef FFTW_ENABLE_FLOAT*/
-//#define FFTW_ENABLE_FLOAT
-
-/* our real numbers */
-#ifdef FFTW_ENABLE_FLOAT
-typedef float fftw_real;
-#else
-typedef double fftw_real;
-#endif
-
-/*********************************************
- * Complex numbers and operations
- *********************************************/
-typedef struct {
- fftw_real re, im;
-} fftw_complex;
-
-#define c_re(c) ((c).re)
-#define c_im(c) ((c).im)
-
-typedef enum {
- FFTW_FORWARD = -1, FFTW_BACKWARD = 1
-} fftw_direction;
-
-/* backward compatibility with FFTW-1.3 */
-typedef fftw_complex FFTW_COMPLEX;
-typedef fftw_real FFTW_REAL;
-
-#ifndef FFTW_1_0_COMPATIBILITY
-#define FFTW_1_0_COMPATIBILITY 0
-#endif
-
-#if FFTW_1_0_COMPATIBILITY
-/* backward compatibility with FFTW-1.0 */
-#define REAL fftw_real
-#define COMPLEX fftw_complex
-#endif
-
-/*********************************************
- * Success or failure status
- *********************************************/
-
-typedef enum {
- FFTW_SUCCESS = 0, FFTW_FAILURE = -1
-} fftw_status;
-
-/*********************************************
- * Codelets
- *********************************************/
-typedef void (fftw_notw_codelet)
- (const fftw_complex *, fftw_complex *, int, int);
-typedef void (fftw_twiddle_codelet)
- (fftw_complex *, const fftw_complex *, int,
- int, int);
-typedef void (fftw_generic_codelet)
- (fftw_complex *, const fftw_complex *, int,
- int, int, int);
-typedef void (fftw_real2hc_codelet)
- (const fftw_real *, fftw_real *, fftw_real *,
- int, int, int);
-typedef void (fftw_hc2real_codelet)
- (const fftw_real *, const fftw_real *,
- fftw_real *, int, int, int);
-typedef void (fftw_hc2hc_codelet)
- (fftw_real *, const fftw_complex *,
- int, int, int);
-typedef void (fftw_rgeneric_codelet)
- (fftw_real *, const fftw_complex *, int,
- int, int, int);
-
-/*********************************************
- * Configurations
- *********************************************/
-/*
- * A configuration is a database of all known codelets
- */
-
-enum fftw_node_type {
- FFTW_NOTW, FFTW_TWIDDLE, FFTW_GENERIC, FFTW_RADER,
- FFTW_REAL2HC, FFTW_HC2REAL, FFTW_HC2HC, FFTW_RGENERIC
-};
-
-/* description of a codelet */
-typedef struct {
- const char *name; /* name of the codelet */
- void (*codelet) (); /* pointer to the codelet itself */
- int size; /* size of the codelet */
- fftw_direction dir; /* direction */
- enum fftw_node_type type; /* TWIDDLE or NO_TWIDDLE */
- int signature; /* unique id */
- int ntwiddle; /* number of twiddle factors */
- const int *twiddle_order; /*
- * array that determines the order
- * in which the codelet expects
- * the twiddle factors
- */
-} fftw_codelet_desc;
-
-/* On Win32, you need to do funny things to access global variables
- in shared libraries. Thanks to Andrew Sterian for this hack. */
-#ifdef HAVE_WIN32
-# if defined(BUILD_FFTW_DLL)
-# define DL_IMPORT(type) __declspec(dllexport) type
-# elif defined(USE_FFTW_DLL)
-# define DL_IMPORT(type) __declspec(dllimport) type
-# else
-# define DL_IMPORT(type) type
-# endif
-#else
-#ifndef SWIGPYTHON
-# define DL_IMPORT(type) type
-#endif
-#endif
-
-extern DL_IMPORT(const char *) fftw_version;
-
-/*****************************
- * Plans
- *****************************/
-/*
- * A plan is a sequence of reductions to compute a FFT of
- * a given size. At each step, the FFT algorithm can:
- *
- * 1) apply a notw codelet, or
- * 2) recurse and apply a twiddle codelet, or
- * 3) apply the generic codelet.
- */
-
-/* structure that contains twiddle factors */
-typedef struct fftw_twiddle_struct {
- int n;
- const fftw_codelet_desc *cdesc;
- fftw_complex *twarray;
- struct fftw_twiddle_struct *next;
- int refcnt;
-} fftw_twiddle;
-
-typedef struct fftw_rader_data_struct {
- struct fftw_plan_struct *plan;
- fftw_complex *omega;
- int g, ginv;
- int p, flags, refcount;
- struct fftw_rader_data_struct *next;
- fftw_codelet_desc *cdesc;
-} fftw_rader_data;
-
-typedef void (fftw_rader_codelet)
- (fftw_complex *, const fftw_complex *, int,
- int, int, fftw_rader_data *);
-
-/* structure that holds all the data needed for a given step */
-typedef struct fftw_plan_node_struct {
- enum fftw_node_type type;
-
- union {
- /* nodes of type FFTW_NOTW */
- struct {
- int size;
- fftw_notw_codelet *codelet;
- const fftw_codelet_desc *codelet_desc;
- } notw;
-
- /* nodes of type FFTW_TWIDDLE */
- struct {
- int size;
- fftw_twiddle_codelet *codelet;
- fftw_twiddle *tw;
- struct fftw_plan_node_struct *recurse;
- const fftw_codelet_desc *codelet_desc;
- } twiddle;
-
- /* nodes of type FFTW_GENERIC */
- struct {
- int size;
- fftw_generic_codelet *codelet;
- fftw_twiddle *tw;
- struct fftw_plan_node_struct *recurse;
- } generic;
-
- /* nodes of type FFTW_RADER */
- struct {
- int size;
- fftw_rader_codelet *codelet;
- fftw_rader_data *rader_data;
- fftw_twiddle *tw;
- struct fftw_plan_node_struct *recurse;
- } rader;
-
- /* nodes of type FFTW_REAL2HC */
- struct {
- int size;
- fftw_real2hc_codelet *codelet;
- const fftw_codelet_desc *codelet_desc;
- } real2hc;
-
- /* nodes of type FFTW_HC2REAL */
- struct {
- int size;
- fftw_hc2real_codelet *codelet;
- const fftw_codelet_desc *codelet_desc;
- } hc2real;
-
- /* nodes of type FFTW_HC2HC */
- struct {
- int size;
- fftw_direction dir;
- fftw_hc2hc_codelet *codelet;
- fftw_twiddle *tw;
- struct fftw_plan_node_struct *recurse;
- const fftw_codelet_desc *codelet_desc;
- } hc2hc;
-
- /* nodes of type FFTW_RGENERIC */
- struct {
- int size;
- fftw_direction dir;
- fftw_rgeneric_codelet *codelet;
- fftw_twiddle *tw;
- struct fftw_plan_node_struct *recurse;
- } rgeneric;
- } nodeu;
-
- int refcnt;
-} fftw_plan_node;
-
-typedef enum {
- FFTW_NORMAL_RECURSE = 0,
- FFTW_VECTOR_RECURSE = 1
-} fftw_recurse_kind;
-
-struct fftw_plan_struct {
- int n;
- int refcnt;
- fftw_direction dir;
- int flags;
- int wisdom_signature;
- enum fftw_node_type wisdom_type;
- struct fftw_plan_struct *next;
- fftw_plan_node *root;
- double cost;
- fftw_recurse_kind recurse_kind;
- int vector_size;
-};
-
-typedef struct fftw_plan_struct *fftw_plan;
-
-/* flags for the planner */
-#define FFTW_ESTIMATE (0)
-#define FFTW_MEASURE (1)
-
-#define FFTW_OUT_OF_PLACE (0)
-#define FFTW_IN_PLACE (8)
-#define FFTW_USE_WISDOM (16)
-
-#define FFTW_THREADSAFE (128) /* guarantee plan is read-only so that the
- same plan can be used in parallel by
- multiple threads */
-
-#define FFTWND_FORCE_BUFFERED (256) /* internal flag, forces buffering
- in fftwnd transforms */
-
-#define FFTW_NO_VECTOR_RECURSE (512) /* internal flag, prevents use
- of vector recursion */
-
-extern fftw_plan fftw_create_plan_specific(int n, fftw_direction dir,
- int flags,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride);
-#define FFTW_HAS_PLAN_SPECIFIC
-extern fftw_plan fftw_create_plan(int n, fftw_direction dir, int flags);
-extern void fftw_print_plan(fftw_plan plan);
-extern void fftw_destroy_plan(fftw_plan plan);
-extern void fftw(fftw_plan plan, int howmany, fftw_complex *in, int istride,
- int idist, fftw_complex *out, int ostride, int odist);
-extern void fftw_one(fftw_plan plan, fftw_complex *in, fftw_complex *out);
-extern void fftw_die(const char *s);
-extern void *fftw_malloc(size_t n);
-extern void fftw_free(void *p);
-extern void fftw_check_memory_leaks(void);
-extern void fftw_print_max_memory_usage(void);
-
-typedef void *(*fftw_malloc_type_function) (size_t n);
-typedef void (*fftw_free_type_function) (void *p);
-typedef void (*fftw_die_type_function) (const char *errString);
-extern DL_IMPORT(fftw_malloc_type_function) fftw_malloc_hook;
-extern DL_IMPORT(fftw_free_type_function) fftw_free_hook;
-extern DL_IMPORT(fftw_die_type_function) fftw_die_hook;
-
-extern size_t fftw_sizeof_fftw_real(void);
-
-/* Wisdom: */
-/*
- * define this symbol so that users know we are using a version of FFTW
- * with wisdom
- */
-#define FFTW_HAS_WISDOM
-extern void fftw_forget_wisdom(void);
-extern void fftw_export_wisdom(void (*emitter) (char c, void *), void *data);
-extern fftw_status fftw_import_wisdom(int (*g) (void *), void *data);
-extern void fftw_export_wisdom_to_file(FILE *output_file);
-extern fftw_status fftw_import_wisdom_from_file(FILE *input_file);
-extern char *fftw_export_wisdom_to_string(void);
-extern fftw_status fftw_import_wisdom_from_string(const char *input_string);
-
-/*
- * define symbol so we know this function is available (it is not in
- * older FFTWs)
- */
-#define FFTW_HAS_FPRINT_PLAN
-extern void fftw_fprint_plan(FILE *f, fftw_plan plan);
-
-/*****************************
- * N-dimensional code
- *****************************/
-typedef struct {
- int is_in_place; /* 1 if for in-place FFTs, 0 otherwise */
-
- int rank; /*
- * the rank (number of dimensions) of the
- * array to be FFTed
- */
- int *n; /*
- * the dimensions of the array to the
- * FFTed
- */
- fftw_direction dir;
-
- int *n_before; /*
- * n_before[i] = product of n[j] for j < i
- */
- int *n_after; /* n_after[i] = product of n[j] for j > i */
-
- fftw_plan *plans; /* 1d fftw plans for each dimension */
-
- int nbuffers, nwork;
- fftw_complex *work; /*
- * work array big enough to hold
- * nbuffers+1 of the largest dimension
- * (has nwork elements)
- */
-} fftwnd_data;
-
-typedef fftwnd_data *fftwnd_plan;
-
-/* Initializing the FFTWND plan: */
-extern fftwnd_plan fftw2d_create_plan(int nx, int ny, fftw_direction dir,
- int flags);
-extern fftwnd_plan fftw3d_create_plan(int nx, int ny, int nz,
- fftw_direction dir, int flags);
-extern fftwnd_plan fftwnd_create_plan(int rank, const int *n,
- fftw_direction dir,
- int flags);
-
-extern fftwnd_plan fftw2d_create_plan_specific(int nx, int ny,
- fftw_direction dir,
- int flags,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride);
-extern fftwnd_plan fftw3d_create_plan_specific(int nx, int ny, int nz,
- fftw_direction dir, int flags,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride);
-extern fftwnd_plan fftwnd_create_plan_specific(int rank, const int *n,
- fftw_direction dir,
- int flags,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride);
-
-/* Freeing the FFTWND plan: */
-extern void fftwnd_destroy_plan(fftwnd_plan plan);
-
-/* Printing the plan: */
-extern void fftwnd_fprint_plan(FILE *f, fftwnd_plan p);
-extern void fftwnd_print_plan(fftwnd_plan p);
-#define FFTWND_HAS_PRINT_PLAN
-
-/* Computing the N-Dimensional FFT */
-extern void fftwnd(fftwnd_plan plan, int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_complex *out, int ostride, int odist);
-extern void fftwnd_one(fftwnd_plan p, fftw_complex *in, fftw_complex *out);
-
-#ifdef __cplusplus
-} /* extern "C" */
-
-#endif /* __cplusplus */
-#endif /* FFTW_H */
diff --git a/src/sndobj/rfftw/fftwnd.c b/src/sndobj/rfftw/fftwnd.c
deleted file mode 100644
index 83bd7c8..0000000
--- a/src/sndobj/rfftw/fftwnd.c
+++ /dev/null
@@ -1,780 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* $Id: fftwnd.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $ */
-
-#include <fftw-int.h>
-
-/* the number of buffers to use for buffered transforms: */
-#define FFTWND_NBUFFERS 8
-
-/* the default number of buffers to use: */
-#define FFTWND_DEFAULT_NBUFFERS 0
-
-/* the number of "padding" elements between consecutive buffer lines */
-#define FFTWND_BUFFER_PADDING 8
-
-static void destroy_plan_array(int rank, fftw_plan *plans);
-
-static void init_test_array(fftw_complex *arr, int stride, int n)
-{
- int j;
-
- for (j = 0; j < n; ++j) {
- c_re(arr[stride * j]) = 0.0;
- c_im(arr[stride * j]) = 0.0;
- }
-}
-
-/*
- * Same as fftw_measure_runtime, except for fftwnd plan.
- */
-double fftwnd_measure_runtime(fftwnd_plan plan,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride)
-{
- fftw_time begin, end, start;
- double t, tmax, tmin;
- int i, iter;
- int n;
- int repeat;
-
- if (plan->rank == 0)
- return 0.0;
-
- n = 1;
- for (i = 0; i < plan->rank; ++i)
- n *= plan->n[i];
-
- iter = 1;
-
- for (;;) {
- tmin = 1.0E10;
- tmax = -1.0E10;
- init_test_array(in, istride, n);
-
- start = fftw_get_time();
- /* repeat the measurement FFTW_TIME_REPEAT times */
- for (repeat = 0; repeat < FFTW_TIME_REPEAT; ++repeat) {
- begin = fftw_get_time();
- for (i = 0; i < iter; ++i) {
- fftwnd(plan, 1, in, istride, 0, out, ostride, 0);
- }
- end = fftw_get_time();
-
- t = fftw_time_to_sec(fftw_time_diff(end, begin));
- if (t < tmin)
- tmin = t;
- if (t > tmax)
- tmax = t;
-
- /* do not run for too long */
- t = fftw_time_to_sec(fftw_time_diff(end, start));
- if (t > FFTW_TIME_LIMIT)
- break;
- }
-
- if (tmin >= FFTW_TIME_MIN)
- break;
-
- iter *= 2;
- }
-
- tmin /= (double) iter;
- tmax /= (double) iter;
-
- return tmin;
-}
-
-/********************** Initializing the FFTWND Plan ***********************/
-
-/* Initialize everything except for the 1D plans and the work array: */
-fftwnd_plan fftwnd_create_plan_aux(int rank, const int *n,
- fftw_direction dir, int flags)
-{
- int i;
- fftwnd_plan p;
-
- if (rank < 0)
- return 0;
-
- for (i = 0; i < rank; ++i)
- if (n[i] <= 0)
- return 0;
-
- p = (fftwnd_plan) fftw_malloc(sizeof(fftwnd_data));
- p->n = 0;
- p->n_before = 0;
- p->n_after = 0;
- p->plans = 0;
- p->work = 0;
- p->dir = dir;
-
- p->rank = rank;
- p->is_in_place = flags & FFTW_IN_PLACE;
-
- p->nwork = 0;
- p->nbuffers = 0;
-
- if (rank == 0)
- return 0;
-
- p->n = (int *) fftw_malloc(sizeof(int) * rank);
- p->n_before = (int *) fftw_malloc(sizeof(int) * rank);
- p->n_after = (int *) fftw_malloc(sizeof(int) * rank);
- p->n_before[0] = 1;
- p->n_after[rank - 1] = 1;
-
- for (i = 0; i < rank; ++i) {
- p->n[i] = n[i];
-
- if (i) {
- p->n_before[i] = p->n_before[i - 1] * n[i - 1];
- p->n_after[rank - 1 - i] = p->n_after[rank - i] * n[rank - i];
- }
- }
-
- return p;
-}
-
-/* create an empty new array of rank 1d plans */
-fftw_plan *fftwnd_new_plan_array(int rank)
-{
- fftw_plan *plans;
- int i;
-
- plans = (fftw_plan *) fftw_malloc(rank * sizeof(fftw_plan));
- if (!plans)
- return 0;
- for (i = 0; i < rank; ++i)
- plans[i] = 0;
- return plans;
-}
-
-/*
- * create an array of plans using the ordinary 1d fftw_create_plan,
- * which allocates its own array and creates plans optimized for
- * contiguous data.
- */
-fftw_plan *fftwnd_create_plans_generic(fftw_plan *plans,
- int rank, const int *n,
- fftw_direction dir, int flags)
-{
- if (rank <= 0)
- return 0;
-
- if (plans) {
- int i, j;
- int cur_flags;
-
- for (i = 0; i < rank; ++i) {
- if (i < rank - 1 || (flags & FFTW_IN_PLACE)) {
- /*
- * fft's except the last dimension are always in-place
- */
- cur_flags = flags | FFTW_IN_PLACE;
- for (j = i - 1; j >= 0 && n[i] != n[j]; --j);
- } else {
- cur_flags = flags;
- /*
- * we must create a separate plan for the last
- * dimension
- */
- j = -1;
- }
-
- if (j >= 0) {
- /*
- * If a plan already exists for this size
- * array, reuse it:
- */
- plans[i] = plans[j];
- } else {
- /* generate a new plan: */
- plans[i] = fftw_create_plan(n[i], dir, cur_flags);
- if (!plans[i]) {
- destroy_plan_array(rank, plans);
- return 0;
- }
- }
- }
- }
- return plans;
-}
-
-static int get_maxdim(int rank, const int *n, int flags)
-{
- int i;
- int maxdim = 0;
-
- for (i = 0; i < rank - 1; ++i)
- if (n[i] > maxdim)
- maxdim = n[i];
- if (rank > 0 && flags & FFTW_IN_PLACE && n[rank - 1] > maxdim)
- maxdim = n[rank - 1];
-
- return maxdim;
-}
-
-/* compute number of elements required for work array (has to
- be big enough to hold ncopies of the largest dimension in
- n that will need an in-place transform. */
-int fftwnd_work_size(int rank, const int *n, int flags, int ncopies)
-{
- return (ncopies * get_maxdim(rank, n, flags)
- + (ncopies - 1) * FFTWND_BUFFER_PADDING);
-}
-
-/*
- * create plans using the fftw_create_plan_specific planner, which
- * allows us to create plans for each dimension that are specialized
- * for the strides that we are going to use.
- */
-fftw_plan *fftwnd_create_plans_specific(fftw_plan *plans,
- int rank, const int *n,
- const int *n_after,
- fftw_direction dir, int flags,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride)
-{
- if (rank <= 0)
- return 0;
-
- if (plans) {
- int i, stride, cur_flags;
- fftw_complex *work = 0;
- int nwork;
-
- nwork = fftwnd_work_size(rank, n, flags, 1);
- if (nwork)
- work = (fftw_complex*)fftw_malloc(nwork * sizeof(fftw_complex));
-
- for (i = 0; i < rank; ++i) {
- /* fft's except the last dimension are always in-place */
- if (i < rank - 1)
- cur_flags = flags | FFTW_IN_PLACE;
- else
- cur_flags = flags;
-
- /* stride for transforming ith dimension */
- stride = n_after[i];
-
- if (cur_flags & FFTW_IN_PLACE)
- plans[i] = fftw_create_plan_specific(n[i], dir, cur_flags,
- in, istride * stride,
- work, 1);
- else
- plans[i] = fftw_create_plan_specific(n[i], dir, cur_flags,
- in, istride * stride,
- out, ostride * stride);
- if (!plans[i]) {
- destroy_plan_array(rank, plans);
- fftw_free(work);
- return 0;
- }
- }
-
- if (work)
- fftw_free(work);
- }
- return plans;
-}
-
-/*
- * Create an fftwnd_plan specialized for specific arrays. (These
- * arrays are ignored, however, if they are NULL or if the flags do
- * not include FFTW_MEASURE.) The main advantage of being provided
- * arrays like this is that we can do runtime timing measurements of
- * our options, without worrying about allocating excessive scratch
- * space.
- */
-fftwnd_plan fftwnd_create_plan_specific(int rank, const int *n,
- fftw_direction dir, int flags,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride)
-{
- fftwnd_plan p;
-
- if (!(p = fftwnd_create_plan_aux(rank, n, dir, flags)))
- return 0;
-
- if (!(flags & FFTW_MEASURE) || in == 0
- || (!p->is_in_place && out == 0)) {
-
-/**** use default plan ****/
-
- p->plans = fftwnd_create_plans_generic(fftwnd_new_plan_array(rank),
- rank, n, dir, flags);
- if (!p->plans) {
- fftwnd_destroy_plan(p);
- return 0;
- }
- if (flags & FFTWND_FORCE_BUFFERED)
- p->nbuffers = FFTWND_NBUFFERS;
- else
- p->nbuffers = FFTWND_DEFAULT_NBUFFERS;
-
- p->nwork = fftwnd_work_size(rank, n, flags, p->nbuffers + 1);
- if (p->nwork && !(flags & FFTW_THREADSAFE)) {
- p->work = (fftw_complex*) fftw_malloc(p->nwork
- * sizeof(fftw_complex));
- if (!p->work) {
- fftwnd_destroy_plan(p);
- return 0;
- }
- }
- } else {
-/**** use runtime measurements to pick plan ****/
-
- fftw_plan *plans_buf, *plans_nobuf;
- double t_buf, t_nobuf;
-
- p->nwork = fftwnd_work_size(rank, n, flags, FFTWND_NBUFFERS + 1);
- if (p->nwork && !(flags & FFTW_THREADSAFE)) {
- p->work = (fftw_complex*) fftw_malloc(p->nwork
- * sizeof(fftw_complex));
- if (!p->work) {
- fftwnd_destroy_plan(p);
- return 0;
- }
- }
- else
- p->work = (fftw_complex*) NULL;
-
- /* two possible sets of 1D plans: */
- plans_buf = fftwnd_create_plans_generic(fftwnd_new_plan_array(rank),
- rank, n, dir, flags);
- plans_nobuf =
- fftwnd_create_plans_specific(fftwnd_new_plan_array(rank),
- rank, n, p->n_after, dir,
- flags, in, istride,
- out, ostride);
- if (!plans_buf || !plans_nobuf) {
- destroy_plan_array(rank, plans_nobuf);
- destroy_plan_array(rank, plans_buf);
- fftwnd_destroy_plan(p);
- return 0;
- }
- /* time the two possible plans */
- p->plans = plans_nobuf;
- p->nbuffers = 0;
- p->nwork = fftwnd_work_size(rank, n, flags, p->nbuffers + 1);
- t_nobuf = fftwnd_measure_runtime(p, in, istride, out, ostride);
- p->plans = plans_buf;
- p->nbuffers = FFTWND_NBUFFERS;
- p->nwork = fftwnd_work_size(rank, n, flags, p->nbuffers + 1);
- t_buf = fftwnd_measure_runtime(p, in, istride, out, ostride);
-
- /* pick the better one: */
- if (t_nobuf < t_buf) { /* use unbuffered transform */
- p->plans = plans_nobuf;
- p->nbuffers = 0;
-
- /* work array is unnecessarily large */
- if (p->work)
- fftw_free(p->work);
- p->work = 0;
-
- destroy_plan_array(rank, plans_buf);
-
- /* allocate a work array of the correct size: */
- p->nwork = fftwnd_work_size(rank, n, flags, p->nbuffers + 1);
- if (p->nwork && !(flags & FFTW_THREADSAFE)) {
- p->work = (fftw_complex*) fftw_malloc(p->nwork
- * sizeof(fftw_complex));
- if (!p->work) {
- fftwnd_destroy_plan(p);
- return 0;
- }
- }
- } else { /* use buffered transform */
- destroy_plan_array(rank, plans_nobuf);
- }
- }
-
- return p;
-}
-
-fftwnd_plan fftw2d_create_plan_specific(int nx, int ny,
- fftw_direction dir, int flags,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride)
-{
- int n[2];
-
- n[0] = nx;
- n[1] = ny;
-
- return fftwnd_create_plan_specific(2, n, dir, flags,
- in, istride, out, ostride);
-}
-
-fftwnd_plan fftw3d_create_plan_specific(int nx, int ny, int nz,
- fftw_direction dir, int flags,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride)
-{
- int n[3];
-
- n[0] = nx;
- n[1] = ny;
- n[2] = nz;
-
- return fftwnd_create_plan_specific(3, n, dir, flags,
- in, istride, out, ostride);
-}
-
-/* Create a generic fftwnd plan: */
-
-fftwnd_plan fftwnd_create_plan(int rank, const int *n,
- fftw_direction dir, int flags)
-{
- return fftwnd_create_plan_specific(rank, n, dir, flags, 0, 1, 0, 1);
-}
-
-fftwnd_plan fftw2d_create_plan(int nx, int ny,
- fftw_direction dir, int flags)
-{
- return fftw2d_create_plan_specific(nx, ny, dir, flags, 0, 1, 0, 1);
-}
-
-fftwnd_plan fftw3d_create_plan(int nx, int ny, int nz,
- fftw_direction dir, int flags)
-{
- return fftw3d_create_plan_specific(nx, ny, nz, dir, flags, 0, 1, 0, 1);
-}
-
-/************************ Freeing the FFTWND Plan ************************/
-
-static void destroy_plan_array(int rank, fftw_plan *plans)
-{
- if (plans) {
- int i, j;
-
- for (i = 0; i < rank; ++i) {
- for (j = i - 1;
- j >= 0 && plans[i] != plans[j];
- --j);
- if (j < 0 && plans[i])
- fftw_destroy_plan(plans[i]);
- }
- fftw_free(plans);
- }
-}
-
-void fftwnd_destroy_plan(fftwnd_plan plan)
-{
- if (plan) {
- destroy_plan_array(plan->rank, plan->plans);
-
- if (plan->n)
- fftw_free(plan->n);
-
- if (plan->n_before)
- fftw_free(plan->n_before);
-
- if (plan->n_after)
- fftw_free(plan->n_after);
-
- if (plan->work)
- fftw_free(plan->work);
-
- fftw_free(plan);
- }
-}
-
-/************************ Printing the FFTWND Plan ************************/
-
-void fftwnd_fprint_plan(FILE *f, fftwnd_plan plan)
-{
- if (plan) {
- int i, j;
-
- if (plan->rank == 0) {
- fprintf(f, "plan for rank 0 (null) transform.\n");
- return;
- }
- fprintf(f, "plan for ");
- for (i = 0; i < plan->rank; ++i)
- fprintf(f, "%s%d", i ? "x" : "", plan->n[i]);
- fprintf(f, " transform:\n");
-
- if (plan->nbuffers > 0)
- fprintf(f, " -- using buffered transforms (%d buffers)\n",
- plan->nbuffers);
- else
- fprintf(f, " -- using unbuffered transform\n");
-
- for (i = 0; i < plan->rank; ++i) {
- fprintf(f, "* dimension %d (size %d) ", i, plan->n[i]);
-
- for (j = i - 1; j >= 0; --j)
- if (plan->plans[j] == plan->plans[i])
- break;
-
- if (j < 0)
- fftw_fprint_plan(f, plan->plans[i]);
- else
- fprintf(f, "plan is same as dimension %d plan.\n", j);
- }
- }
-}
-
-void fftwnd_print_plan(fftwnd_plan plan)
-{
- fftwnd_fprint_plan(stdout, plan);
-}
-
-/********************* Buffered FFTW (in-place) *********************/
-
-void fftw_buffered(fftw_plan p, int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_complex *work,
- int nbuffers, fftw_complex *buffers)
-{
- int i = 0, n, nb;
-
- n = p->n;
- nb = n + FFTWND_BUFFER_PADDING;
-
- do {
- for (; i <= howmany - nbuffers; i += nbuffers) {
- fftw_complex *cur_in = in + i * idist;
- int j, buf;
-
- /*
- * First, copy nbuffers strided arrays to the
- * contiguous buffer arrays (reading consecutive
- * locations, assuming that idist is 1):
- */
- for (j = 0; j < n; ++j) {
- fftw_complex *cur_in2 = cur_in + j * istride;
- fftw_complex *cur_buffers = buffers + j;
-
- for (buf = 0; buf <= nbuffers - 4; buf += 4) {
- *cur_buffers = *cur_in2;
- *(cur_buffers += nb) = *(cur_in2 += idist);
- *(cur_buffers += nb) = *(cur_in2 += idist);
- *(cur_buffers += nb) = *(cur_in2 += idist);
- cur_buffers += nb;
- cur_in2 += idist;
- }
- for (; buf < nbuffers; ++buf) {
- *cur_buffers = *cur_in2;
- cur_buffers += nb;
- cur_in2 += idist;
- }
- }
-
- /*
- * Now, compute the FFTs in the buffers (in-place
- * using work):
- */
- fftw(p, nbuffers, buffers, 1, nb, work, 1, 0);
-
- /*
- * Finally, copy the results back from the contiguous
- * buffers to the strided arrays (writing consecutive
- * locations):
- */
- for (j = 0; j < n; ++j) {
- fftw_complex *cur_in2 = cur_in + j * istride;
- fftw_complex *cur_buffers = buffers + j;
-
- for (buf = 0; buf <= nbuffers - 4; buf += 4) {
- *cur_in2 = *cur_buffers;
- *(cur_in2 += idist) = *(cur_buffers += nb);
- *(cur_in2 += idist) = *(cur_buffers += nb);
- *(cur_in2 += idist) = *(cur_buffers += nb);
- cur_buffers += nb;
- cur_in2 += idist;
- }
- for (; buf < nbuffers; ++buf) {
- *cur_in2 = *cur_buffers;
- cur_buffers += nb;
- cur_in2 += idist;
- }
- }
- }
-
- /*
- * we skip howmany % nbuffers ffts at the end of the loop,
- * so we have to go back and do them:
- */
- nbuffers = howmany - i;
- } while (i < howmany);
-}
-
-/********************* Computing the N-Dimensional FFT *********************/
-
-void fftwnd_aux(fftwnd_plan p, int cur_dim,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride,
- fftw_complex *work)
-{
- int n_after = p->n_after[cur_dim], n = p->n[cur_dim];
-
- if (cur_dim == p->rank - 2) {
- /* just do the last dimension directly: */
- if (p->is_in_place)
- fftw(p->plans[p->rank - 1], n,
- in, istride, n_after * istride,
- work, 1, 0);
- else
- fftw(p->plans[p->rank - 1], n,
- in, istride, n_after * istride,
- out, ostride, n_after * ostride);
- } else { /* we have at least two dimensions to go */
- int i;
-
- /*
- * process the subsequent dimensions recursively, in hyperslabs,
- * to get maximum locality:
- */
- for (i = 0; i < n; ++i)
- fftwnd_aux(p, cur_dim + 1,
- in + i * n_after * istride, istride,
- out + i * n_after * ostride, ostride, work);
- }
-
- /* do the current dimension (in-place): */
- if (p->nbuffers == 0) {
- fftw(p->plans[cur_dim], n_after,
- out, n_after * ostride, ostride,
- work, 1, 0);
- } else /* using contiguous copy buffers: */
- fftw_buffered(p->plans[cur_dim], n_after,
- out, n_after * ostride, ostride,
- work, p->nbuffers, work + n);
-}
-
-/*
- * alternate version of fftwnd_aux -- this version pushes the howmany
- * loop down to the leaves of the computation, for greater locality in
- * cases where dist < stride
- */
-void fftwnd_aux_howmany(fftwnd_plan p, int cur_dim,
- int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_complex *out, int ostride, int odist,
- fftw_complex *work)
-{
- int n_after = p->n_after[cur_dim], n = p->n[cur_dim];
- int k;
-
- if (cur_dim == p->rank - 2) {
- /* just do the last dimension directly: */
- if (p->is_in_place)
- for (k = 0; k < n; ++k)
- fftw(p->plans[p->rank - 1], howmany,
- in + k * n_after * istride, istride, idist,
- work, 1, 0);
- else
- for (k = 0; k < n; ++k)
- fftw(p->plans[p->rank - 1], howmany,
- in + k * n_after * istride, istride, idist,
- out + k * n_after * ostride, ostride, odist);
- } else { /* we have at least two dimensions to go */
- int i;
-
- /*
- * process the subsequent dimensions recursively, in
- * hyperslabs, to get maximum locality:
- */
- for (i = 0; i < n; ++i)
- fftwnd_aux_howmany(p, cur_dim + 1, howmany,
- in + i * n_after * istride, istride, idist,
- out + i * n_after * ostride, ostride, odist,
- work);
- }
-
- /* do the current dimension (in-place): */
- if (p->nbuffers == 0)
- for (k = 0; k < n_after; ++k)
- fftw(p->plans[cur_dim], howmany,
- out + k * ostride, n_after * ostride, odist,
- work, 1, 0);
- else /* using contiguous copy buffers: */
- for (k = 0; k < n_after; ++k)
- fftw_buffered(p->plans[cur_dim], howmany,
- out + k * ostride, n_after * ostride, odist,
- work, p->nbuffers, work + n);
-}
-
-void fftwnd(fftwnd_plan p, int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_complex *out, int ostride, int odist)
-{
- fftw_complex *work;
-
-#ifdef FFTW_DEBUG
- if (p->rank > 0 && (p->plans[0]->flags & FFTW_THREADSAFE)
- && p->nwork && p->work)
- fftw_die("bug with FFTW_THREADSAFE flag\n");
-#endif
-
- if (p->nwork && !p->work)
- work = (fftw_complex *) fftw_malloc(p->nwork * sizeof(fftw_complex));
- else
- work = p->work;
-
- switch (p->rank) {
- case 0:
- break;
- case 1:
- if (p->is_in_place) /* fft is in-place */
- fftw(p->plans[0], howmany, in, istride, idist,
- work, 1, 0);
- else
- fftw(p->plans[0], howmany, in, istride, idist,
- out, ostride, odist);
- break;
- default: /* rank >= 2 */
- {
- if (p->is_in_place) {
- out = in;
- ostride = istride;
- odist = idist;
- }
- if (howmany > 1 && odist < ostride)
- fftwnd_aux_howmany(p, 0, howmany,
- in, istride, idist,
- out, ostride, odist,
- work);
- else {
- int i;
-
- for (i = 0; i < howmany; ++i)
- fftwnd_aux(p, 0,
- in + i * idist, istride,
- out + i * odist, ostride,
- work);
- }
- }
- }
-
- if (p->nwork && !p->work)
- fftw_free(work);
-
-}
-
-void fftwnd_one(fftwnd_plan p, fftw_complex *in, fftw_complex *out)
-{
- fftwnd(p, 1, in, 1, 1, out, 1, 1);
-}
diff --git a/src/sndobj/rfftw/fhb_10.c b/src/sndobj/rfftw/fhb_10.c
deleted file mode 100644
index 35c615d..0000000
--- a/src/sndobj/rfftw/fhb_10.c
+++ /dev/null
@@ -1,581 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:15 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 10 */
-
-/*
- * This function contains 168 FP additions, 90 FP multiplications,
- * (or, 124 additions, 46 multiplications, 44 fused multiply/add),
- * 37 stack variables, and 80 memory accesses
- */
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K1_902113032 = FFTW_KONST(+1.902113032590307144232878666758764286811397268);
-static const fftw_real K1_175570504 = FFTW_KONST(+1.175570504584946258337411909278145537195304875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_118033988 = FFTW_KONST(+1.118033988749894848204586834365638117720309180);
-
-/*
- * Generator Id's :
- * $Id: fhb_10.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fhb_10.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fhb_10.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_hc2hc_backward_10(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (10 * iostride);
- {
- fftw_real tmp155;
- fftw_real tmp163;
- fftw_real tmp175;
- fftw_real tmp183;
- fftw_real tmp172;
- fftw_real tmp182;
- fftw_real tmp162;
- fftw_real tmp180;
- fftw_real tmp166;
- fftw_real tmp167;
- fftw_real tmp170;
- fftw_real tmp171;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp153;
- fftw_real tmp154;
- fftw_real tmp173;
- fftw_real tmp174;
- ASSERT_ALIGNED_DOUBLE;
- tmp153 = X[0];
- tmp154 = X[5 * iostride];
- tmp155 = tmp153 - tmp154;
- tmp163 = tmp153 + tmp154;
- tmp173 = Y[-4 * iostride];
- tmp174 = Y[-iostride];
- tmp175 = tmp173 - tmp174;
- tmp183 = tmp173 + tmp174;
- }
- tmp170 = Y[-2 * iostride];
- tmp171 = Y[-3 * iostride];
- tmp172 = tmp170 - tmp171;
- tmp182 = tmp170 + tmp171;
- {
- fftw_real tmp158;
- fftw_real tmp164;
- fftw_real tmp161;
- fftw_real tmp165;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp156;
- fftw_real tmp157;
- fftw_real tmp159;
- fftw_real tmp160;
- ASSERT_ALIGNED_DOUBLE;
- tmp156 = X[2 * iostride];
- tmp157 = X[3 * iostride];
- tmp158 = tmp156 - tmp157;
- tmp164 = tmp156 + tmp157;
- tmp159 = X[4 * iostride];
- tmp160 = X[iostride];
- tmp161 = tmp159 - tmp160;
- tmp165 = tmp159 + tmp160;
- }
- tmp162 = tmp158 + tmp161;
- tmp180 = K1_118033988 * (tmp158 - tmp161);
- tmp166 = tmp164 + tmp165;
- tmp167 = K1_118033988 * (tmp164 - tmp165);
- }
- X[5 * iostride] = tmp155 + (K2_000000000 * tmp162);
- {
- fftw_real tmp184;
- fftw_real tmp186;
- fftw_real tmp181;
- fftw_real tmp185;
- fftw_real tmp179;
- ASSERT_ALIGNED_DOUBLE;
- tmp184 = (K1_175570504 * tmp182) - (K1_902113032 * tmp183);
- tmp186 = (K1_902113032 * tmp182) + (K1_175570504 * tmp183);
- tmp179 = tmp155 - (K500000000 * tmp162);
- tmp181 = tmp179 - tmp180;
- tmp185 = tmp179 + tmp180;
- X[7 * iostride] = tmp181 - tmp184;
- X[3 * iostride] = tmp181 + tmp184;
- X[iostride] = tmp185 - tmp186;
- X[9 * iostride] = tmp185 + tmp186;
- }
- X[0] = tmp163 + (K2_000000000 * tmp166);
- {
- fftw_real tmp176;
- fftw_real tmp178;
- fftw_real tmp169;
- fftw_real tmp177;
- fftw_real tmp168;
- ASSERT_ALIGNED_DOUBLE;
- tmp176 = (K1_902113032 * tmp172) + (K1_175570504 * tmp175);
- tmp178 = (K1_902113032 * tmp175) - (K1_175570504 * tmp172);
- tmp168 = tmp163 - (K500000000 * tmp166);
- tmp169 = tmp167 + tmp168;
- tmp177 = tmp168 - tmp167;
- X[4 * iostride] = tmp169 + tmp176;
- X[6 * iostride] = tmp169 - tmp176;
- X[8 * iostride] = tmp177 - tmp178;
- X[2 * iostride] = tmp177 + tmp178;
- }
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 9) {
- fftw_real tmp35;
- fftw_real tmp102;
- fftw_real tmp77;
- fftw_real tmp112;
- fftw_real tmp72;
- fftw_real tmp73;
- fftw_real tmp50;
- fftw_real tmp53;
- fftw_real tmp123;
- fftw_real tmp122;
- fftw_real tmp109;
- fftw_real tmp131;
- fftw_real tmp61;
- fftw_real tmp68;
- fftw_real tmp80;
- fftw_real tmp82;
- fftw_real tmp134;
- fftw_real tmp133;
- fftw_real tmp119;
- fftw_real tmp126;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp33;
- fftw_real tmp34;
- fftw_real tmp75;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- tmp33 = X[0];
- tmp34 = Y[-5 * iostride];
- tmp35 = tmp33 + tmp34;
- tmp102 = tmp33 - tmp34;
- tmp75 = Y[0];
- tmp76 = X[5 * iostride];
- tmp77 = tmp75 - tmp76;
- tmp112 = tmp75 + tmp76;
- }
- {
- fftw_real tmp38;
- fftw_real tmp103;
- fftw_real tmp48;
- fftw_real tmp107;
- fftw_real tmp41;
- fftw_real tmp104;
- fftw_real tmp45;
- fftw_real tmp106;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp36;
- fftw_real tmp37;
- fftw_real tmp46;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- tmp36 = X[2 * iostride];
- tmp37 = Y[-7 * iostride];
- tmp38 = tmp36 + tmp37;
- tmp103 = tmp36 - tmp37;
- tmp46 = Y[-6 * iostride];
- tmp47 = X[iostride];
- tmp48 = tmp46 + tmp47;
- tmp107 = tmp46 - tmp47;
- }
- {
- fftw_real tmp39;
- fftw_real tmp40;
- fftw_real tmp43;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- tmp39 = Y[-8 * iostride];
- tmp40 = X[3 * iostride];
- tmp41 = tmp39 + tmp40;
- tmp104 = tmp39 - tmp40;
- tmp43 = X[4 * iostride];
- tmp44 = Y[-9 * iostride];
- tmp45 = tmp43 + tmp44;
- tmp106 = tmp43 - tmp44;
- }
- {
- fftw_real tmp42;
- fftw_real tmp49;
- fftw_real tmp105;
- fftw_real tmp108;
- ASSERT_ALIGNED_DOUBLE;
- tmp72 = tmp38 - tmp41;
- tmp73 = tmp45 - tmp48;
- tmp42 = tmp38 + tmp41;
- tmp49 = tmp45 + tmp48;
- tmp50 = tmp42 + tmp49;
- tmp53 = K559016994 * (tmp42 - tmp49);
- tmp123 = tmp106 - tmp107;
- tmp122 = tmp103 - tmp104;
- tmp105 = tmp103 + tmp104;
- tmp108 = tmp106 + tmp107;
- tmp109 = tmp105 + tmp108;
- tmp131 = K559016994 * (tmp105 - tmp108);
- }
- }
- {
- fftw_real tmp57;
- fftw_real tmp113;
- fftw_real tmp67;
- fftw_real tmp117;
- fftw_real tmp60;
- fftw_real tmp114;
- fftw_real tmp64;
- fftw_real tmp116;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp55;
- fftw_real tmp56;
- fftw_real tmp65;
- fftw_real tmp66;
- ASSERT_ALIGNED_DOUBLE;
- tmp55 = Y[-2 * iostride];
- tmp56 = X[7 * iostride];
- tmp57 = tmp55 - tmp56;
- tmp113 = tmp55 + tmp56;
- tmp65 = Y[-iostride];
- tmp66 = X[6 * iostride];
- tmp67 = tmp65 - tmp66;
- tmp117 = tmp65 + tmp66;
- }
- {
- fftw_real tmp58;
- fftw_real tmp59;
- fftw_real tmp62;
- fftw_real tmp63;
- ASSERT_ALIGNED_DOUBLE;
- tmp58 = Y[-3 * iostride];
- tmp59 = X[8 * iostride];
- tmp60 = tmp58 - tmp59;
- tmp114 = tmp58 + tmp59;
- tmp62 = Y[-4 * iostride];
- tmp63 = X[9 * iostride];
- tmp64 = tmp62 - tmp63;
- tmp116 = tmp62 + tmp63;
- }
- {
- fftw_real tmp78;
- fftw_real tmp79;
- fftw_real tmp115;
- fftw_real tmp118;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = tmp57 - tmp60;
- tmp68 = tmp64 - tmp67;
- tmp78 = tmp57 + tmp60;
- tmp79 = tmp64 + tmp67;
- tmp80 = tmp78 + tmp79;
- tmp82 = K559016994 * (tmp78 - tmp79);
- tmp134 = tmp116 + tmp117;
- tmp133 = tmp113 + tmp114;
- tmp115 = tmp113 - tmp114;
- tmp118 = tmp116 - tmp117;
- tmp119 = tmp115 + tmp118;
- tmp126 = K559016994 * (tmp115 - tmp118);
- }
- }
- X[0] = tmp35 + tmp50;
- {
- fftw_real tmp69;
- fftw_real tmp91;
- fftw_real tmp54;
- fftw_real tmp90;
- fftw_real tmp95;
- fftw_real tmp74;
- fftw_real tmp83;
- fftw_real tmp94;
- fftw_real tmp52;
- fftw_real tmp81;
- ASSERT_ALIGNED_DOUBLE;
- tmp69 = (K587785252 * tmp61) - (K951056516 * tmp68);
- tmp91 = (K951056516 * tmp61) + (K587785252 * tmp68);
- tmp52 = tmp35 - (K250000000 * tmp50);
- tmp54 = tmp52 - tmp53;
- tmp90 = tmp53 + tmp52;
- tmp95 = (K951056516 * tmp72) + (K587785252 * tmp73);
- tmp74 = (K587785252 * tmp72) - (K951056516 * tmp73);
- tmp81 = tmp77 - (K250000000 * tmp80);
- tmp83 = tmp81 - tmp82;
- tmp94 = tmp82 + tmp81;
- {
- fftw_real tmp70;
- fftw_real tmp84;
- fftw_real tmp51;
- fftw_real tmp71;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = tmp54 - tmp69;
- tmp84 = tmp74 + tmp83;
- tmp51 = c_re(W[1]);
- tmp71 = c_im(W[1]);
- X[2 * iostride] = (tmp51 * tmp70) + (tmp71 * tmp84);
- Y[-7 * iostride] = (tmp51 * tmp84) - (tmp71 * tmp70);
- }
- {
- fftw_real tmp86;
- fftw_real tmp88;
- fftw_real tmp85;
- fftw_real tmp87;
- ASSERT_ALIGNED_DOUBLE;
- tmp86 = tmp54 + tmp69;
- tmp88 = tmp83 - tmp74;
- tmp85 = c_re(W[7]);
- tmp87 = c_im(W[7]);
- X[8 * iostride] = (tmp85 * tmp86) + (tmp87 * tmp88);
- Y[-iostride] = (tmp85 * tmp88) - (tmp87 * tmp86);
- }
- {
- fftw_real tmp92;
- fftw_real tmp96;
- fftw_real tmp89;
- fftw_real tmp93;
- ASSERT_ALIGNED_DOUBLE;
- tmp92 = tmp90 + tmp91;
- tmp96 = tmp94 - tmp95;
- tmp89 = c_re(W[3]);
- tmp93 = c_im(W[3]);
- X[4 * iostride] = (tmp89 * tmp92) + (tmp93 * tmp96);
- Y[-5 * iostride] = (tmp89 * tmp96) - (tmp93 * tmp92);
- }
- {
- fftw_real tmp98;
- fftw_real tmp100;
- fftw_real tmp97;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- tmp98 = tmp90 - tmp91;
- tmp100 = tmp95 + tmp94;
- tmp97 = c_re(W[5]);
- tmp99 = c_im(W[5]);
- X[6 * iostride] = (tmp97 * tmp98) + (tmp99 * tmp100);
- Y[-3 * iostride] = (tmp97 * tmp100) - (tmp99 * tmp98);
- }
- }
- Y[-9 * iostride] = tmp77 + tmp80;
- {
- fftw_real tmp110;
- fftw_real tmp120;
- fftw_real tmp101;
- fftw_real tmp111;
- ASSERT_ALIGNED_DOUBLE;
- tmp110 = tmp102 + tmp109;
- tmp120 = tmp112 + tmp119;
- tmp101 = c_re(W[4]);
- tmp111 = c_im(W[4]);
- X[5 * iostride] = (tmp101 * tmp110) + (tmp111 * tmp120);
- Y[-4 * iostride] = (tmp101 * tmp120) - (tmp111 * tmp110);
- }
- {
- fftw_real tmp124;
- fftw_real tmp142;
- fftw_real tmp127;
- fftw_real tmp143;
- fftw_real tmp147;
- fftw_real tmp135;
- fftw_real tmp132;
- fftw_real tmp146;
- fftw_real tmp125;
- fftw_real tmp130;
- ASSERT_ALIGNED_DOUBLE;
- tmp124 = (K587785252 * tmp122) - (K951056516 * tmp123);
- tmp142 = (K951056516 * tmp122) + (K587785252 * tmp123);
- tmp125 = tmp112 - (K250000000 * tmp119);
- tmp127 = tmp125 - tmp126;
- tmp143 = tmp126 + tmp125;
- tmp147 = (K951056516 * tmp133) + (K587785252 * tmp134);
- tmp135 = (K587785252 * tmp133) - (K951056516 * tmp134);
- tmp130 = tmp102 - (K250000000 * tmp109);
- tmp132 = tmp130 - tmp131;
- tmp146 = tmp131 + tmp130;
- {
- fftw_real tmp128;
- fftw_real tmp136;
- fftw_real tmp121;
- fftw_real tmp129;
- ASSERT_ALIGNED_DOUBLE;
- tmp128 = tmp124 + tmp127;
- tmp136 = tmp132 - tmp135;
- tmp121 = c_re(W[6]);
- tmp129 = c_im(W[6]);
- Y[-2 * iostride] = (tmp121 * tmp128) - (tmp129 * tmp136);
- X[7 * iostride] = (tmp129 * tmp128) + (tmp121 * tmp136);
- }
- {
- fftw_real tmp138;
- fftw_real tmp140;
- fftw_real tmp137;
- fftw_real tmp139;
- ASSERT_ALIGNED_DOUBLE;
- tmp138 = tmp127 - tmp124;
- tmp140 = tmp132 + tmp135;
- tmp137 = c_re(W[2]);
- tmp139 = c_im(W[2]);
- Y[-6 * iostride] = (tmp137 * tmp138) - (tmp139 * tmp140);
- X[3 * iostride] = (tmp139 * tmp138) + (tmp137 * tmp140);
- }
- {
- fftw_real tmp144;
- fftw_real tmp148;
- fftw_real tmp141;
- fftw_real tmp145;
- ASSERT_ALIGNED_DOUBLE;
- tmp144 = tmp142 + tmp143;
- tmp148 = tmp146 - tmp147;
- tmp141 = c_re(W[0]);
- tmp145 = c_im(W[0]);
- Y[-8 * iostride] = (tmp141 * tmp144) - (tmp145 * tmp148);
- X[iostride] = (tmp145 * tmp144) + (tmp141 * tmp148);
- }
- {
- fftw_real tmp150;
- fftw_real tmp152;
- fftw_real tmp149;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- tmp150 = tmp143 - tmp142;
- tmp152 = tmp146 + tmp147;
- tmp149 = c_re(W[8]);
- tmp151 = c_im(W[8]);
- Y[0] = (tmp149 * tmp150) - (tmp151 * tmp152);
- X[9 * iostride] = (tmp151 * tmp150) + (tmp149 * tmp152);
- }
- }
- }
- if (i == m) {
- fftw_real tmp1;
- fftw_real tmp24;
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp25;
- fftw_real tmp26;
- fftw_real tmp14;
- fftw_real tmp28;
- fftw_real tmp23;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[2 * iostride];
- tmp24 = Y[-2 * iostride];
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp6;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = X[4 * iostride];
- tmp3 = X[0];
- tmp4 = tmp2 + tmp3;
- tmp5 = X[3 * iostride];
- tmp6 = X[iostride];
- tmp7 = tmp5 + tmp6;
- tmp8 = tmp4 + tmp7;
- tmp10 = K1_118033988 * (tmp7 - tmp4);
- tmp25 = tmp2 - tmp3;
- tmp26 = tmp5 - tmp6;
- }
- {
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp22;
- fftw_real tmp15;
- fftw_real tmp16;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp12 = Y[-4 * iostride];
- tmp13 = Y[0];
- tmp22 = tmp12 + tmp13;
- tmp15 = Y[-iostride];
- tmp16 = Y[-3 * iostride];
- tmp21 = tmp16 + tmp15;
- tmp14 = tmp12 - tmp13;
- tmp28 = K1_118033988 * (tmp21 + tmp22);
- tmp23 = tmp21 - tmp22;
- tmp17 = tmp15 - tmp16;
- }
- X[0] = K2_000000000 * (tmp1 + tmp8);
- {
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp11;
- fftw_real tmp20;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp18 = (K1_175570504 * tmp14) - (K1_902113032 * tmp17);
- tmp19 = (K1_175570504 * tmp17) + (K1_902113032 * tmp14);
- tmp9 = (K500000000 * tmp8) - (K2_000000000 * tmp1);
- tmp11 = tmp9 - tmp10;
- tmp20 = tmp9 + tmp10;
- X[2 * iostride] = tmp11 + tmp18;
- X[8 * iostride] = tmp18 - tmp11;
- X[4 * iostride] = tmp19 - tmp20;
- X[6 * iostride] = tmp20 + tmp19;
- }
- X[5 * iostride] = K2_000000000 * (tmp23 - tmp24);
- {
- fftw_real tmp27;
- fftw_real tmp31;
- fftw_real tmp30;
- fftw_real tmp32;
- fftw_real tmp29;
- ASSERT_ALIGNED_DOUBLE;
- tmp27 = (K1_902113032 * tmp25) + (K1_175570504 * tmp26);
- tmp31 = (K1_902113032 * tmp26) - (K1_175570504 * tmp25);
- tmp29 = (K500000000 * tmp23) + (K2_000000000 * tmp24);
- tmp30 = tmp28 + tmp29;
- tmp32 = tmp29 - tmp28;
- X[iostride] = -(tmp27 + tmp30);
- X[9 * iostride] = tmp27 - tmp30;
- X[3 * iostride] = tmp31 + tmp32;
- X[7 * iostride] = tmp32 - tmp31;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9};
-fftw_codelet_desc fftw_hc2hc_backward_10_desc =
-{
- "fftw_hc2hc_backward_10",
- (void (*)()) fftw_hc2hc_backward_10,
- 10,
- FFTW_BACKWARD,
- FFTW_HC2HC,
- 234,
- 9,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhb_16.c b/src/sndobj/rfftw/fhb_16.c
deleted file mode 100644
index 83c828b..0000000
--- a/src/sndobj/rfftw/fhb_16.c
+++ /dev/null
@@ -1,976 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:16 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 16 */
-
-/*
- * This function contains 298 FP additions, 134 FP multiplications,
- * (or, 244 additions, 80 multiplications, 54 fused multiply/add),
- * 49 stack variables, and 128 memory accesses
- */
-static const fftw_real K1_961570560 = FFTW_KONST(+1.961570560806460898252364472268478073947867462);
-static const fftw_real K390180644 = FFTW_KONST(+0.390180644032256535696569736954044481855383236);
-static const fftw_real K1_111140466 = FFTW_KONST(+1.111140466039204449485661627897065748749874382);
-static const fftw_real K1_662939224 = FFTW_KONST(+1.662939224605090474157576755235811513477121624);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K765366864 = FFTW_KONST(+0.765366864730179543456919968060797733522689125);
-static const fftw_real K1_847759065 = FFTW_KONST(+1.847759065022573512256366378793576573644833252);
-static const fftw_real K1_414213562 = FFTW_KONST(+1.414213562373095048801688724209698078569671875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fhb_16.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- * $Id: fhb_16.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- * $Id: fhb_16.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- */
-
-void fftw_hc2hc_backward_16(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (16 * iostride);
- {
- fftw_real tmp279;
- fftw_real tmp324;
- fftw_real tmp312;
- fftw_real tmp299;
- fftw_real tmp276;
- fftw_real tmp296;
- fftw_real tmp309;
- fftw_real tmp323;
- fftw_real tmp283;
- fftw_real tmp291;
- fftw_real tmp286;
- fftw_real tmp294;
- fftw_real tmp301;
- fftw_real tmp319;
- fftw_real tmp327;
- fftw_real tmp326;
- fftw_real tmp316;
- fftw_real tmp302;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp277;
- fftw_real tmp278;
- fftw_real tmp310;
- fftw_real tmp297;
- fftw_real tmp298;
- fftw_real tmp311;
- ASSERT_ALIGNED_DOUBLE;
- tmp277 = X[2 * iostride];
- tmp278 = X[6 * iostride];
- tmp310 = tmp277 - tmp278;
- tmp297 = Y[-2 * iostride];
- tmp298 = Y[-6 * iostride];
- tmp311 = tmp298 + tmp297;
- tmp279 = K2_000000000 * (tmp277 + tmp278);
- tmp324 = K1_414213562 * (tmp310 + tmp311);
- tmp312 = K1_414213562 * (tmp310 - tmp311);
- tmp299 = K2_000000000 * (tmp297 - tmp298);
- }
- {
- fftw_real tmp275;
- fftw_real tmp308;
- fftw_real tmp273;
- fftw_real tmp306;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp274;
- fftw_real tmp307;
- fftw_real tmp271;
- fftw_real tmp272;
- ASSERT_ALIGNED_DOUBLE;
- tmp274 = X[4 * iostride];
- tmp275 = K2_000000000 * tmp274;
- tmp307 = Y[-4 * iostride];
- tmp308 = K2_000000000 * tmp307;
- tmp271 = X[0];
- tmp272 = X[8 * iostride];
- tmp273 = tmp271 + tmp272;
- tmp306 = tmp271 - tmp272;
- }
- tmp276 = tmp273 + tmp275;
- tmp296 = tmp273 - tmp275;
- tmp309 = tmp306 - tmp308;
- tmp323 = tmp306 + tmp308;
- }
- {
- fftw_real tmp314;
- fftw_real tmp318;
- fftw_real tmp317;
- fftw_real tmp315;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp281;
- fftw_real tmp282;
- fftw_real tmp289;
- fftw_real tmp290;
- ASSERT_ALIGNED_DOUBLE;
- tmp281 = X[iostride];
- tmp282 = X[7 * iostride];
- tmp283 = tmp281 + tmp282;
- tmp314 = tmp281 - tmp282;
- tmp289 = Y[-iostride];
- tmp290 = Y[-7 * iostride];
- tmp291 = tmp289 - tmp290;
- tmp318 = tmp289 + tmp290;
- }
- {
- fftw_real tmp284;
- fftw_real tmp285;
- fftw_real tmp292;
- fftw_real tmp293;
- ASSERT_ALIGNED_DOUBLE;
- tmp284 = X[3 * iostride];
- tmp285 = X[5 * iostride];
- tmp286 = tmp284 + tmp285;
- tmp317 = tmp285 - tmp284;
- tmp292 = Y[-3 * iostride];
- tmp293 = Y[-5 * iostride];
- tmp294 = tmp292 - tmp293;
- tmp315 = tmp293 + tmp292;
- }
- tmp301 = tmp283 - tmp286;
- tmp319 = tmp317 + tmp318;
- tmp327 = tmp318 - tmp317;
- tmp326 = tmp314 + tmp315;
- tmp316 = tmp314 - tmp315;
- tmp302 = tmp294 + tmp291;
- }
- {
- fftw_real tmp280;
- fftw_real tmp287;
- fftw_real tmp288;
- fftw_real tmp295;
- ASSERT_ALIGNED_DOUBLE;
- tmp280 = tmp276 + tmp279;
- tmp287 = K2_000000000 * (tmp283 + tmp286);
- X[8 * iostride] = tmp280 - tmp287;
- X[0] = tmp280 + tmp287;
- tmp288 = tmp276 - tmp279;
- tmp295 = K2_000000000 * (tmp291 - tmp294);
- X[12 * iostride] = tmp288 + tmp295;
- X[4 * iostride] = tmp288 - tmp295;
- }
- {
- fftw_real tmp300;
- fftw_real tmp303;
- fftw_real tmp304;
- fftw_real tmp305;
- ASSERT_ALIGNED_DOUBLE;
- tmp300 = tmp296 - tmp299;
- tmp303 = K1_414213562 * (tmp301 - tmp302);
- X[10 * iostride] = tmp300 - tmp303;
- X[2 * iostride] = tmp300 + tmp303;
- tmp304 = tmp296 + tmp299;
- tmp305 = K1_414213562 * (tmp301 + tmp302);
- X[6 * iostride] = tmp304 - tmp305;
- X[14 * iostride] = tmp304 + tmp305;
- }
- {
- fftw_real tmp313;
- fftw_real tmp320;
- fftw_real tmp321;
- fftw_real tmp322;
- ASSERT_ALIGNED_DOUBLE;
- tmp313 = tmp309 + tmp312;
- tmp320 = (K1_847759065 * tmp316) - (K765366864 * tmp319);
- X[9 * iostride] = tmp313 - tmp320;
- X[iostride] = tmp313 + tmp320;
- tmp321 = tmp309 - tmp312;
- tmp322 = (K765366864 * tmp316) + (K1_847759065 * tmp319);
- X[5 * iostride] = tmp321 - tmp322;
- X[13 * iostride] = tmp321 + tmp322;
- }
- {
- fftw_real tmp325;
- fftw_real tmp328;
- fftw_real tmp329;
- fftw_real tmp330;
- ASSERT_ALIGNED_DOUBLE;
- tmp325 = tmp323 - tmp324;
- tmp328 = (K765366864 * tmp326) - (K1_847759065 * tmp327);
- X[11 * iostride] = tmp325 - tmp328;
- X[3 * iostride] = tmp325 + tmp328;
- tmp329 = tmp323 + tmp324;
- tmp330 = (K1_847759065 * tmp326) + (K765366864 * tmp327);
- X[7 * iostride] = tmp329 - tmp330;
- X[15 * iostride] = tmp329 + tmp330;
- }
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 15) {
- fftw_real tmp73;
- fftw_real tmp98;
- fftw_real tmp135;
- fftw_real tmp160;
- fftw_real tmp182;
- fftw_real tmp236;
- fftw_real tmp210;
- fftw_real tmp248;
- fftw_real tmp95;
- fftw_real tmp124;
- fftw_real tmp138;
- fftw_real tmp164;
- fftw_real tmp197;
- fftw_real tmp216;
- fftw_real tmp244;
- fftw_real tmp252;
- fftw_real tmp80;
- fftw_real tmp128;
- fftw_real tmp105;
- fftw_real tmp161;
- fftw_real tmp213;
- fftw_real tmp237;
- fftw_real tmp189;
- fftw_real tmp249;
- fftw_real tmp88;
- fftw_real tmp115;
- fftw_real tmp137;
- fftw_real tmp163;
- fftw_real tmp204;
- fftw_real tmp215;
- fftw_real tmp241;
- fftw_real tmp251;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp69;
- fftw_real tmp180;
- fftw_real tmp131;
- fftw_real tmp209;
- fftw_real tmp72;
- fftw_real tmp208;
- fftw_real tmp134;
- fftw_real tmp181;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp67;
- fftw_real tmp68;
- fftw_real tmp129;
- fftw_real tmp130;
- ASSERT_ALIGNED_DOUBLE;
- tmp67 = X[0];
- tmp68 = Y[-8 * iostride];
- tmp69 = tmp67 + tmp68;
- tmp180 = tmp67 - tmp68;
- tmp129 = Y[0];
- tmp130 = X[8 * iostride];
- tmp131 = tmp129 - tmp130;
- tmp209 = tmp129 + tmp130;
- }
- {
- fftw_real tmp70;
- fftw_real tmp71;
- fftw_real tmp132;
- fftw_real tmp133;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = X[4 * iostride];
- tmp71 = Y[-12 * iostride];
- tmp72 = tmp70 + tmp71;
- tmp208 = tmp70 - tmp71;
- tmp132 = Y[-4 * iostride];
- tmp133 = X[12 * iostride];
- tmp134 = tmp132 - tmp133;
- tmp181 = tmp132 + tmp133;
- }
- tmp73 = tmp69 + tmp72;
- tmp98 = tmp69 - tmp72;
- tmp135 = tmp131 - tmp134;
- tmp160 = tmp131 + tmp134;
- tmp182 = tmp180 - tmp181;
- tmp236 = tmp180 + tmp181;
- tmp210 = tmp208 + tmp209;
- tmp248 = tmp209 - tmp208;
- }
- {
- fftw_real tmp91;
- fftw_real tmp194;
- fftw_real tmp119;
- fftw_real tmp192;
- fftw_real tmp94;
- fftw_real tmp191;
- fftw_real tmp122;
- fftw_real tmp195;
- fftw_real tmp116;
- fftw_real tmp123;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp89;
- fftw_real tmp90;
- fftw_real tmp117;
- fftw_real tmp118;
- ASSERT_ALIGNED_DOUBLE;
- tmp89 = Y[-15 * iostride];
- tmp90 = X[7 * iostride];
- tmp91 = tmp89 + tmp90;
- tmp194 = tmp89 - tmp90;
- tmp117 = Y[-7 * iostride];
- tmp118 = X[15 * iostride];
- tmp119 = tmp117 - tmp118;
- tmp192 = tmp117 + tmp118;
- }
- {
- fftw_real tmp92;
- fftw_real tmp93;
- fftw_real tmp120;
- fftw_real tmp121;
- ASSERT_ALIGNED_DOUBLE;
- tmp92 = X[3 * iostride];
- tmp93 = Y[-11 * iostride];
- tmp94 = tmp92 + tmp93;
- tmp191 = tmp92 - tmp93;
- tmp120 = Y[-3 * iostride];
- tmp121 = X[11 * iostride];
- tmp122 = tmp120 - tmp121;
- tmp195 = tmp120 + tmp121;
- }
- tmp95 = tmp91 + tmp94;
- tmp116 = tmp91 - tmp94;
- tmp123 = tmp119 - tmp122;
- tmp124 = tmp116 + tmp123;
- tmp138 = tmp123 - tmp116;
- tmp164 = tmp119 + tmp122;
- {
- fftw_real tmp193;
- fftw_real tmp196;
- fftw_real tmp242;
- fftw_real tmp243;
- ASSERT_ALIGNED_DOUBLE;
- tmp193 = tmp191 - tmp192;
- tmp196 = tmp194 - tmp195;
- tmp197 = (K923879532 * tmp193) - (K382683432 * tmp196);
- tmp216 = (K382683432 * tmp193) + (K923879532 * tmp196);
- tmp242 = tmp194 + tmp195;
- tmp243 = tmp191 + tmp192;
- tmp244 = (K382683432 * tmp242) - (K923879532 * tmp243);
- tmp252 = (K382683432 * tmp243) + (K923879532 * tmp242);
- }
- }
- {
- fftw_real tmp76;
- fftw_real tmp183;
- fftw_real tmp104;
- fftw_real tmp184;
- fftw_real tmp79;
- fftw_real tmp186;
- fftw_real tmp101;
- fftw_real tmp187;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp74;
- fftw_real tmp75;
- fftw_real tmp102;
- fftw_real tmp103;
- ASSERT_ALIGNED_DOUBLE;
- tmp74 = X[2 * iostride];
- tmp75 = Y[-10 * iostride];
- tmp76 = tmp74 + tmp75;
- tmp183 = tmp74 - tmp75;
- tmp102 = Y[-2 * iostride];
- tmp103 = X[10 * iostride];
- tmp104 = tmp102 - tmp103;
- tmp184 = tmp102 + tmp103;
- }
- {
- fftw_real tmp77;
- fftw_real tmp78;
- fftw_real tmp99;
- fftw_real tmp100;
- ASSERT_ALIGNED_DOUBLE;
- tmp77 = Y[-14 * iostride];
- tmp78 = X[6 * iostride];
- tmp79 = tmp77 + tmp78;
- tmp186 = tmp77 - tmp78;
- tmp99 = Y[-6 * iostride];
- tmp100 = X[14 * iostride];
- tmp101 = tmp99 - tmp100;
- tmp187 = tmp99 + tmp100;
- }
- tmp80 = tmp76 + tmp79;
- tmp128 = tmp76 - tmp79;
- tmp105 = tmp101 - tmp104;
- tmp161 = tmp104 + tmp101;
- {
- fftw_real tmp211;
- fftw_real tmp212;
- fftw_real tmp185;
- fftw_real tmp188;
- ASSERT_ALIGNED_DOUBLE;
- tmp211 = tmp183 + tmp184;
- tmp212 = tmp186 + tmp187;
- tmp213 = K707106781 * (tmp211 - tmp212);
- tmp237 = K707106781 * (tmp211 + tmp212);
- tmp185 = tmp183 - tmp184;
- tmp188 = tmp186 - tmp187;
- tmp189 = K707106781 * (tmp185 + tmp188);
- tmp249 = K707106781 * (tmp185 - tmp188);
- }
- }
- {
- fftw_real tmp84;
- fftw_real tmp201;
- fftw_real tmp110;
- fftw_real tmp199;
- fftw_real tmp87;
- fftw_real tmp198;
- fftw_real tmp113;
- fftw_real tmp202;
- fftw_real tmp107;
- fftw_real tmp114;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp82;
- fftw_real tmp83;
- fftw_real tmp108;
- fftw_real tmp109;
- ASSERT_ALIGNED_DOUBLE;
- tmp82 = X[iostride];
- tmp83 = Y[-9 * iostride];
- tmp84 = tmp82 + tmp83;
- tmp201 = tmp82 - tmp83;
- tmp108 = Y[-iostride];
- tmp109 = X[9 * iostride];
- tmp110 = tmp108 - tmp109;
- tmp199 = tmp108 + tmp109;
- }
- {
- fftw_real tmp85;
- fftw_real tmp86;
- fftw_real tmp111;
- fftw_real tmp112;
- ASSERT_ALIGNED_DOUBLE;
- tmp85 = X[5 * iostride];
- tmp86 = Y[-13 * iostride];
- tmp87 = tmp85 + tmp86;
- tmp198 = tmp85 - tmp86;
- tmp111 = Y[-5 * iostride];
- tmp112 = X[13 * iostride];
- tmp113 = tmp111 - tmp112;
- tmp202 = tmp111 + tmp112;
- }
- tmp88 = tmp84 + tmp87;
- tmp107 = tmp84 - tmp87;
- tmp114 = tmp110 - tmp113;
- tmp115 = tmp107 - tmp114;
- tmp137 = tmp107 + tmp114;
- tmp163 = tmp110 + tmp113;
- {
- fftw_real tmp200;
- fftw_real tmp203;
- fftw_real tmp239;
- fftw_real tmp240;
- ASSERT_ALIGNED_DOUBLE;
- tmp200 = tmp198 + tmp199;
- tmp203 = tmp201 - tmp202;
- tmp204 = (K923879532 * tmp200) + (K382683432 * tmp203);
- tmp215 = (K923879532 * tmp203) - (K382683432 * tmp200);
- tmp239 = tmp201 + tmp202;
- tmp240 = tmp199 - tmp198;
- tmp241 = (K382683432 * tmp239) - (K923879532 * tmp240);
- tmp251 = (K382683432 * tmp240) + (K923879532 * tmp239);
- }
- }
- {
- fftw_real tmp81;
- fftw_real tmp96;
- fftw_real tmp158;
- fftw_real tmp162;
- fftw_real tmp165;
- fftw_real tmp166;
- fftw_real tmp157;
- fftw_real tmp159;
- ASSERT_ALIGNED_DOUBLE;
- tmp81 = tmp73 + tmp80;
- tmp96 = tmp88 + tmp95;
- tmp158 = tmp81 - tmp96;
- tmp162 = tmp160 + tmp161;
- tmp165 = tmp163 + tmp164;
- tmp166 = tmp162 - tmp165;
- X[0] = tmp81 + tmp96;
- Y[-15 * iostride] = tmp162 + tmp165;
- tmp157 = c_re(W[7]);
- tmp159 = c_im(W[7]);
- X[8 * iostride] = (tmp157 * tmp158) + (tmp159 * tmp166);
- Y[-7 * iostride] = (tmp157 * tmp166) - (tmp159 * tmp158);
- }
- {
- fftw_real tmp170;
- fftw_real tmp176;
- fftw_real tmp174;
- fftw_real tmp178;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp168;
- fftw_real tmp169;
- fftw_real tmp172;
- fftw_real tmp173;
- ASSERT_ALIGNED_DOUBLE;
- tmp168 = tmp160 - tmp161;
- tmp169 = tmp88 - tmp95;
- tmp170 = tmp168 - tmp169;
- tmp176 = tmp169 + tmp168;
- tmp172 = tmp73 - tmp80;
- tmp173 = tmp164 - tmp163;
- tmp174 = tmp172 - tmp173;
- tmp178 = tmp172 + tmp173;
- }
- {
- fftw_real tmp167;
- fftw_real tmp171;
- fftw_real tmp175;
- fftw_real tmp177;
- ASSERT_ALIGNED_DOUBLE;
- tmp167 = c_re(W[11]);
- tmp171 = c_im(W[11]);
- Y[-3 * iostride] = (tmp167 * tmp170) - (tmp171 * tmp174);
- X[12 * iostride] = (tmp171 * tmp170) + (tmp167 * tmp174);
- tmp175 = c_re(W[3]);
- tmp177 = c_im(W[3]);
- Y[-11 * iostride] = (tmp175 * tmp176) - (tmp177 * tmp178);
- X[4 * iostride] = (tmp177 * tmp176) + (tmp175 * tmp178);
- }
- }
- {
- fftw_real tmp126;
- fftw_real tmp142;
- fftw_real tmp140;
- fftw_real tmp144;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp106;
- fftw_real tmp125;
- fftw_real tmp136;
- fftw_real tmp139;
- ASSERT_ALIGNED_DOUBLE;
- tmp106 = tmp98 + tmp105;
- tmp125 = K707106781 * (tmp115 + tmp124);
- tmp126 = tmp106 - tmp125;
- tmp142 = tmp106 + tmp125;
- tmp136 = tmp128 + tmp135;
- tmp139 = K707106781 * (tmp137 + tmp138);
- tmp140 = tmp136 - tmp139;
- tmp144 = tmp136 + tmp139;
- }
- {
- fftw_real tmp97;
- fftw_real tmp127;
- fftw_real tmp141;
- fftw_real tmp143;
- ASSERT_ALIGNED_DOUBLE;
- tmp97 = c_re(W[9]);
- tmp127 = c_im(W[9]);
- X[10 * iostride] = (tmp97 * tmp126) + (tmp127 * tmp140);
- Y[-5 * iostride] = (tmp97 * tmp140) - (tmp127 * tmp126);
- tmp141 = c_re(W[1]);
- tmp143 = c_im(W[1]);
- X[2 * iostride] = (tmp141 * tmp142) + (tmp143 * tmp144);
- Y[-13 * iostride] = (tmp141 * tmp144) - (tmp143 * tmp142);
- }
- }
- {
- fftw_real tmp148;
- fftw_real tmp154;
- fftw_real tmp152;
- fftw_real tmp156;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp146;
- fftw_real tmp147;
- fftw_real tmp150;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- tmp146 = tmp135 - tmp128;
- tmp147 = K707106781 * (tmp115 - tmp124);
- tmp148 = tmp146 - tmp147;
- tmp154 = tmp146 + tmp147;
- tmp150 = tmp98 - tmp105;
- tmp151 = K707106781 * (tmp138 - tmp137);
- tmp152 = tmp150 - tmp151;
- tmp156 = tmp150 + tmp151;
- }
- {
- fftw_real tmp145;
- fftw_real tmp149;
- fftw_real tmp153;
- fftw_real tmp155;
- ASSERT_ALIGNED_DOUBLE;
- tmp145 = c_re(W[13]);
- tmp149 = c_im(W[13]);
- Y[-iostride] = (tmp145 * tmp148) - (tmp149 * tmp152);
- X[14 * iostride] = (tmp149 * tmp148) + (tmp145 * tmp152);
- tmp153 = c_re(W[5]);
- tmp155 = c_im(W[5]);
- Y[-9 * iostride] = (tmp153 * tmp154) - (tmp155 * tmp156);
- X[6 * iostride] = (tmp155 * tmp154) + (tmp153 * tmp156);
- }
- }
- {
- fftw_real tmp206;
- fftw_real tmp220;
- fftw_real tmp218;
- fftw_real tmp222;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp190;
- fftw_real tmp205;
- fftw_real tmp214;
- fftw_real tmp217;
- ASSERT_ALIGNED_DOUBLE;
- tmp190 = tmp182 - tmp189;
- tmp205 = tmp197 - tmp204;
- tmp206 = tmp190 - tmp205;
- tmp220 = tmp190 + tmp205;
- tmp214 = tmp210 - tmp213;
- tmp217 = tmp215 - tmp216;
- tmp218 = tmp214 - tmp217;
- tmp222 = tmp214 + tmp217;
- }
- {
- fftw_real tmp179;
- fftw_real tmp207;
- fftw_real tmp219;
- fftw_real tmp221;
- ASSERT_ALIGNED_DOUBLE;
- tmp179 = c_re(W[12]);
- tmp207 = c_im(W[12]);
- X[13 * iostride] = (tmp179 * tmp206) + (tmp207 * tmp218);
- Y[-2 * iostride] = (tmp179 * tmp218) - (tmp207 * tmp206);
- tmp219 = c_re(W[4]);
- tmp221 = c_im(W[4]);
- X[5 * iostride] = (tmp219 * tmp220) + (tmp221 * tmp222);
- Y[-10 * iostride] = (tmp219 * tmp222) - (tmp221 * tmp220);
- }
- }
- {
- fftw_real tmp226;
- fftw_real tmp232;
- fftw_real tmp230;
- fftw_real tmp234;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp224;
- fftw_real tmp225;
- fftw_real tmp228;
- fftw_real tmp229;
- ASSERT_ALIGNED_DOUBLE;
- tmp224 = tmp210 + tmp213;
- tmp225 = tmp204 + tmp197;
- tmp226 = tmp224 - tmp225;
- tmp232 = tmp224 + tmp225;
- tmp228 = tmp182 + tmp189;
- tmp229 = tmp215 + tmp216;
- tmp230 = tmp228 - tmp229;
- tmp234 = tmp228 + tmp229;
- }
- {
- fftw_real tmp223;
- fftw_real tmp227;
- fftw_real tmp231;
- fftw_real tmp233;
- ASSERT_ALIGNED_DOUBLE;
- tmp223 = c_re(W[8]);
- tmp227 = c_im(W[8]);
- Y[-6 * iostride] = (tmp223 * tmp226) - (tmp227 * tmp230);
- X[9 * iostride] = (tmp227 * tmp226) + (tmp223 * tmp230);
- tmp231 = c_re(W[0]);
- tmp233 = c_im(W[0]);
- Y[-14 * iostride] = (tmp231 * tmp232) - (tmp233 * tmp234);
- X[iostride] = (tmp233 * tmp232) + (tmp231 * tmp234);
- }
- }
- {
- fftw_real tmp246;
- fftw_real tmp256;
- fftw_real tmp254;
- fftw_real tmp258;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp238;
- fftw_real tmp245;
- fftw_real tmp250;
- fftw_real tmp253;
- ASSERT_ALIGNED_DOUBLE;
- tmp238 = tmp236 - tmp237;
- tmp245 = tmp241 + tmp244;
- tmp246 = tmp238 - tmp245;
- tmp256 = tmp238 + tmp245;
- tmp250 = tmp248 + tmp249;
- tmp253 = tmp251 - tmp252;
- tmp254 = tmp250 - tmp253;
- tmp258 = tmp250 + tmp253;
- }
- {
- fftw_real tmp235;
- fftw_real tmp247;
- fftw_real tmp255;
- fftw_real tmp257;
- ASSERT_ALIGNED_DOUBLE;
- tmp235 = c_re(W[10]);
- tmp247 = c_im(W[10]);
- X[11 * iostride] = (tmp235 * tmp246) + (tmp247 * tmp254);
- Y[-4 * iostride] = (tmp235 * tmp254) - (tmp247 * tmp246);
- tmp255 = c_re(W[2]);
- tmp257 = c_im(W[2]);
- X[3 * iostride] = (tmp255 * tmp256) + (tmp257 * tmp258);
- Y[-12 * iostride] = (tmp255 * tmp258) - (tmp257 * tmp256);
- }
- }
- {
- fftw_real tmp262;
- fftw_real tmp268;
- fftw_real tmp266;
- fftw_real tmp270;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp260;
- fftw_real tmp261;
- fftw_real tmp264;
- fftw_real tmp265;
- ASSERT_ALIGNED_DOUBLE;
- tmp260 = tmp248 - tmp249;
- tmp261 = tmp241 - tmp244;
- tmp262 = tmp260 + tmp261;
- tmp268 = tmp260 - tmp261;
- tmp264 = tmp236 + tmp237;
- tmp265 = tmp251 + tmp252;
- tmp266 = tmp264 - tmp265;
- tmp270 = tmp264 + tmp265;
- }
- {
- fftw_real tmp259;
- fftw_real tmp263;
- fftw_real tmp267;
- fftw_real tmp269;
- ASSERT_ALIGNED_DOUBLE;
- tmp259 = c_re(W[6]);
- tmp263 = c_im(W[6]);
- Y[-8 * iostride] = (tmp259 * tmp262) - (tmp263 * tmp266);
- X[7 * iostride] = (tmp263 * tmp262) + (tmp259 * tmp266);
- tmp267 = c_re(W[14]);
- tmp269 = c_im(W[14]);
- Y[0] = (tmp267 * tmp268) - (tmp269 * tmp270);
- X[15 * iostride] = (tmp269 * tmp268) + (tmp267 * tmp270);
- }
- }
- }
- if (i == m) {
- fftw_real tmp7;
- fftw_real tmp51;
- fftw_real tmp19;
- fftw_real tmp43;
- fftw_real tmp39;
- fftw_real tmp47;
- fftw_real tmp59;
- fftw_real tmp64;
- fftw_real tmp14;
- fftw_real tmp56;
- fftw_real tmp24;
- fftw_real tmp32;
- fftw_real tmp29;
- fftw_real tmp33;
- fftw_real tmp54;
- fftw_real tmp65;
- fftw_real tmp63;
- fftw_real tmp66;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp15;
- fftw_real tmp38;
- fftw_real tmp57;
- fftw_real tmp6;
- fftw_real tmp35;
- fftw_real tmp18;
- fftw_real tmp58;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp36;
- fftw_real tmp37;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp2 = X[7 * iostride];
- tmp3 = tmp1 + tmp2;
- tmp15 = tmp1 - tmp2;
- tmp36 = Y[0];
- tmp37 = Y[-7 * iostride];
- tmp38 = tmp36 + tmp37;
- tmp57 = tmp36 - tmp37;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp16;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = X[4 * iostride];
- tmp5 = X[3 * iostride];
- tmp6 = tmp4 + tmp5;
- tmp35 = tmp4 - tmp5;
- tmp16 = Y[-4 * iostride];
- tmp17 = Y[-3 * iostride];
- tmp18 = tmp16 + tmp17;
- tmp58 = tmp16 - tmp17;
- }
- tmp7 = tmp3 + tmp6;
- tmp51 = tmp3 - tmp6;
- tmp19 = tmp15 - tmp18;
- tmp43 = tmp15 + tmp18;
- tmp39 = tmp35 + tmp38;
- tmp47 = tmp38 - tmp35;
- tmp59 = tmp57 - tmp58;
- tmp64 = tmp58 + tmp57;
- }
- {
- fftw_real tmp10;
- fftw_real tmp20;
- fftw_real tmp23;
- fftw_real tmp53;
- fftw_real tmp13;
- fftw_real tmp25;
- fftw_real tmp28;
- fftw_real tmp52;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp21;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = X[2 * iostride];
- tmp9 = X[5 * iostride];
- tmp10 = tmp8 + tmp9;
- tmp20 = tmp8 - tmp9;
- tmp21 = Y[-2 * iostride];
- tmp22 = Y[-5 * iostride];
- tmp23 = tmp21 + tmp22;
- tmp53 = tmp21 - tmp22;
- }
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp26;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = X[iostride];
- tmp12 = X[6 * iostride];
- tmp13 = tmp11 + tmp12;
- tmp25 = tmp11 - tmp12;
- tmp26 = Y[-iostride];
- tmp27 = Y[-6 * iostride];
- tmp28 = tmp26 + tmp27;
- tmp52 = tmp27 - tmp26;
- }
- tmp14 = tmp10 + tmp13;
- tmp56 = tmp10 - tmp13;
- tmp24 = tmp20 - tmp23;
- tmp32 = tmp20 + tmp23;
- tmp29 = tmp25 - tmp28;
- tmp33 = tmp25 + tmp28;
- tmp54 = tmp52 - tmp53;
- tmp65 = tmp53 + tmp52;
- }
- X[0] = K2_000000000 * (tmp7 + tmp14);
- X[8 * iostride] = -(K2_000000000 * (tmp65 + tmp64));
- tmp63 = tmp7 - tmp14;
- tmp66 = tmp64 - tmp65;
- X[4 * iostride] = K1_414213562 * (tmp63 - tmp66);
- X[12 * iostride] = -(K1_414213562 * (tmp63 + tmp66));
- {
- fftw_real tmp61;
- fftw_real tmp62;
- fftw_real tmp55;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = tmp51 - tmp54;
- tmp62 = tmp59 - tmp56;
- X[6 * iostride] = (K765366864 * tmp61) - (K1_847759065 * tmp62);
- X[14 * iostride] = -((K1_847759065 * tmp61) + (K765366864 * tmp62));
- tmp55 = tmp51 + tmp54;
- tmp60 = tmp56 + tmp59;
- X[2 * iostride] = (K1_847759065 * tmp55) - (K765366864 * tmp60);
- X[10 * iostride] = -((K765366864 * tmp55) + (K1_847759065 * tmp60));
- }
- {
- fftw_real tmp45;
- fftw_real tmp49;
- fftw_real tmp48;
- fftw_real tmp50;
- fftw_real tmp44;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp44 = K707106781 * (tmp32 + tmp33);
- tmp45 = tmp43 - tmp44;
- tmp49 = tmp43 + tmp44;
- tmp46 = K707106781 * (tmp24 - tmp29);
- tmp48 = tmp46 + tmp47;
- tmp50 = tmp47 - tmp46;
- X[3 * iostride] = (K1_662939224 * tmp45) - (K1_111140466 * tmp48);
- X[11 * iostride] = -((K1_111140466 * tmp45) + (K1_662939224 * tmp48));
- X[7 * iostride] = (K390180644 * tmp49) - (K1_961570560 * tmp50);
- X[15 * iostride] = -((K1_961570560 * tmp49) + (K390180644 * tmp50));
- }
- {
- fftw_real tmp31;
- fftw_real tmp41;
- fftw_real tmp40;
- fftw_real tmp42;
- fftw_real tmp30;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = K707106781 * (tmp24 + tmp29);
- tmp31 = tmp19 + tmp30;
- tmp41 = tmp19 - tmp30;
- tmp34 = K707106781 * (tmp32 - tmp33);
- tmp40 = tmp34 + tmp39;
- tmp42 = tmp39 - tmp34;
- X[iostride] = (K1_961570560 * tmp31) - (K390180644 * tmp40);
- X[9 * iostride] = -((K390180644 * tmp31) + (K1_961570560 * tmp40));
- X[5 * iostride] = (K1_111140466 * tmp41) - (K1_662939224 * tmp42);
- X[13 * iostride] = -((K1_662939224 * tmp41) + (K1_111140466 * tmp42));
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15};
-fftw_codelet_desc fftw_hc2hc_backward_16_desc =
-{
- "fftw_hc2hc_backward_16",
- (void (*)()) fftw_hc2hc_backward_16,
- 16,
- FFTW_BACKWARD,
- FFTW_HC2HC,
- 366,
- 15,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhb_2.c b/src/sndobj/rfftw/fhb_2.c
deleted file mode 100644
index fbf786b..0000000
--- a/src/sndobj/rfftw/fhb_2.c
+++ /dev/null
@@ -1,106 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:09 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 2 */
-
-/*
- * This function contains 8 FP additions, 6 FP multiplications,
- * (or, 6 additions, 4 multiplications, 2 fused multiply/add),
- * 11 stack variables, and 16 memory accesses
- */
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fhb_2.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fhb_2.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fhb_2.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_hc2hc_backward_2(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (2 * iostride);
- {
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = X[0];
- tmp12 = X[iostride];
- X[iostride] = tmp11 - tmp12;
- X[0] = tmp11 + tmp12;
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 1) {
- fftw_real tmp3;
- fftw_real tmp4;
- fftw_real tmp8;
- fftw_real tmp5;
- fftw_real tmp6;
- fftw_real tmp10;
- fftw_real tmp7;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = X[0];
- tmp4 = Y[-iostride];
- tmp8 = tmp3 - tmp4;
- tmp5 = Y[0];
- tmp6 = X[iostride];
- tmp10 = tmp5 + tmp6;
- X[0] = tmp3 + tmp4;
- Y[-iostride] = tmp5 - tmp6;
- tmp7 = c_re(W[0]);
- tmp9 = c_im(W[0]);
- X[iostride] = (tmp7 * tmp8) + (tmp9 * tmp10);
- Y[0] = (tmp7 * tmp10) - (tmp9 * tmp8);
- }
- if (i == m) {
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- X[0] = K2_000000000 * tmp1;
- tmp2 = Y[0];
- X[iostride] = -(K2_000000000 * tmp2);
- }
-}
-
-static const int twiddle_order[] =
-{1};
-fftw_codelet_desc fftw_hc2hc_backward_2_desc =
-{
- "fftw_hc2hc_backward_2",
- (void (*)()) fftw_hc2hc_backward_2,
- 2,
- FFTW_BACKWARD,
- FFTW_HC2HC,
- 58,
- 1,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhb_3.c b/src/sndobj/rfftw/fhb_3.c
deleted file mode 100644
index abde8d0..0000000
--- a/src/sndobj/rfftw/fhb_3.c
+++ /dev/null
@@ -1,158 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:09 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 3 */
-
-/*
- * This function contains 24 FP additions, 16 FP multiplications,
- * (or, 16 additions, 8 multiplications, 8 fused multiply/add),
- * 15 stack variables, and 24 memory accesses
- */
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-
-/*
- * Generator Id's :
- * $Id: fhb_3.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: fhb_3.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: fhb_3.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- */
-
-void fftw_hc2hc_backward_3(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (3 * iostride);
- {
- fftw_real tmp30;
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp28;
- fftw_real tmp29;
- ASSERT_ALIGNED_DOUBLE;
- tmp29 = Y[-iostride];
- tmp30 = K1_732050807 * tmp29;
- tmp26 = X[0];
- tmp27 = X[iostride];
- tmp28 = tmp26 - tmp27;
- X[0] = tmp26 + (K2_000000000 * tmp27);
- X[iostride] = tmp28 - tmp30;
- X[2 * iostride] = tmp28 + tmp30;
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 2) {
- fftw_real tmp6;
- fftw_real tmp9;
- fftw_real tmp15;
- fftw_real tmp19;
- fftw_real tmp10;
- fftw_real tmp13;
- fftw_real tmp16;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = X[0];
- tmp7 = X[iostride];
- tmp8 = Y[-2 * iostride];
- tmp9 = tmp7 + tmp8;
- tmp15 = K866025403 * (tmp7 - tmp8);
- tmp19 = tmp6 - (K500000000 * tmp9);
- tmp10 = Y[0];
- tmp11 = Y[-iostride];
- tmp12 = X[2 * iostride];
- tmp13 = tmp11 - tmp12;
- tmp16 = tmp10 - (K500000000 * tmp13);
- tmp20 = K866025403 * (tmp11 + tmp12);
- }
- X[0] = tmp6 + tmp9;
- {
- fftw_real tmp23;
- fftw_real tmp25;
- fftw_real tmp22;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = tmp16 - tmp15;
- tmp25 = tmp19 + tmp20;
- tmp22 = c_re(W[1]);
- tmp24 = c_im(W[1]);
- Y[0] = (tmp22 * tmp23) - (tmp24 * tmp25);
- X[2 * iostride] = (tmp24 * tmp23) + (tmp22 * tmp25);
- }
- Y[-2 * iostride] = tmp10 + tmp13;
- {
- fftw_real tmp17;
- fftw_real tmp21;
- fftw_real tmp14;
- fftw_real tmp18;
- ASSERT_ALIGNED_DOUBLE;
- tmp17 = tmp15 + tmp16;
- tmp21 = tmp19 - tmp20;
- tmp14 = c_re(W[0]);
- tmp18 = c_im(W[0]);
- Y[-iostride] = (tmp14 * tmp17) - (tmp18 * tmp21);
- X[iostride] = (tmp18 * tmp17) + (tmp14 * tmp21);
- }
- }
- if (i == m) {
- fftw_real tmp5;
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = Y[0];
- tmp5 = K1_732050807 * tmp4;
- tmp1 = X[iostride];
- tmp2 = X[0];
- tmp3 = tmp2 - tmp1;
- X[0] = tmp1 + (K2_000000000 * tmp2);
- X[2 * iostride] = -(tmp3 + tmp5);
- X[iostride] = tmp3 - tmp5;
- }
-}
-
-static const int twiddle_order[] =
-{1, 2};
-fftw_codelet_desc fftw_hc2hc_backward_3_desc =
-{
- "fftw_hc2hc_backward_3",
- (void (*)()) fftw_hc2hc_backward_3,
- 3,
- FFTW_BACKWARD,
- FFTW_HC2HC,
- 80,
- 2,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhb_32.c b/src/sndobj/rfftw/fhb_32.c
deleted file mode 100644
index 7ba3270..0000000
--- a/src/sndobj/rfftw/fhb_32.c
+++ /dev/null
@@ -1,2303 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:18 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 32 */
-
-/*
- * This function contains 764 FP additions, 346 FP multiplications,
- * (or, 618 additions, 200 multiplications, 146 fused multiply/add),
- * 93 stack variables, and 256 memory accesses
- */
-static const fftw_real K1_662939224 = FFTW_KONST(+1.662939224605090474157576755235811513477121624);
-static const fftw_real K1_111140466 = FFTW_KONST(+1.111140466039204449485661627897065748749874382);
-static const fftw_real K390180644 = FFTW_KONST(+0.390180644032256535696569736954044481855383236);
-static const fftw_real K1_961570560 = FFTW_KONST(+1.961570560806460898252364472268478073947867462);
-static const fftw_real K1_913880671 = FFTW_KONST(+1.913880671464417729871595773960539938965698411);
-static const fftw_real K580569354 = FFTW_KONST(+0.580569354508924735272384751634790549382952557);
-static const fftw_real K942793473 = FFTW_KONST(+0.942793473651995297112775251810508755314920638);
-static const fftw_real K1_763842528 = FFTW_KONST(+1.763842528696710059425513727320776699016885241);
-static const fftw_real K1_546020906 = FFTW_KONST(+1.546020906725473921621813219516939601942082586);
-static const fftw_real K1_268786568 = FFTW_KONST(+1.268786568327290996430343226450986741351374190);
-static const fftw_real K196034280 = FFTW_KONST(+0.196034280659121203988391127777283691722273346);
-static const fftw_real K1_990369453 = FFTW_KONST(+1.990369453344393772489673906218959843150949737);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-static const fftw_real K765366864 = FFTW_KONST(+0.765366864730179543456919968060797733522689125);
-static const fftw_real K1_847759065 = FFTW_KONST(+1.847759065022573512256366378793576573644833252);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K1_414213562 = FFTW_KONST(+1.414213562373095048801688724209698078569671875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fhb_32.c,v 1.1.1.1 2006/05/12 15:14:57 veplaini Exp $
- * $Id: fhb_32.c,v 1.1.1.1 2006/05/12 15:14:57 veplaini Exp $
- * $Id: fhb_32.c,v 1.1.1.1 2006/05/12 15:14:57 veplaini Exp $
- */
-
-void fftw_hc2hc_backward_32(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (32 * iostride);
- {
- fftw_real tmp679;
- fftw_real tmp804;
- fftw_real tmp766;
- fftw_real tmp707;
- fftw_real tmp702;
- fftw_real tmp728;
- fftw_real tmp726;
- fftw_real tmp753;
- fftw_real tmp815;
- fftw_real tmp819;
- fftw_real tmp789;
- fftw_real tmp793;
- fftw_real tmp676;
- fftw_real tmp704;
- fftw_real tmp763;
- fftw_real tmp803;
- fftw_real tmp687;
- fftw_real tmp709;
- fftw_real tmp716;
- fftw_real tmp749;
- fftw_real tmp770;
- fftw_real tmp806;
- fftw_real tmp773;
- fftw_real tmp807;
- fftw_real tmp695;
- fftw_real tmp719;
- fftw_real tmp735;
- fftw_real tmp752;
- fftw_real tmp812;
- fftw_real tmp818;
- fftw_real tmp782;
- fftw_real tmp792;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp677;
- fftw_real tmp678;
- fftw_real tmp764;
- fftw_real tmp705;
- fftw_real tmp706;
- fftw_real tmp765;
- ASSERT_ALIGNED_DOUBLE;
- tmp677 = X[4 * iostride];
- tmp678 = X[12 * iostride];
- tmp764 = tmp677 - tmp678;
- tmp705 = Y[-4 * iostride];
- tmp706 = Y[-12 * iostride];
- tmp765 = tmp706 + tmp705;
- tmp679 = K2_000000000 * (tmp677 + tmp678);
- tmp804 = K1_414213562 * (tmp764 + tmp765);
- tmp766 = K1_414213562 * (tmp764 - tmp765);
- tmp707 = K2_000000000 * (tmp705 - tmp706);
- }
- {
- fftw_real tmp698;
- fftw_real tmp783;
- fftw_real tmp725;
- fftw_real tmp787;
- fftw_real tmp701;
- fftw_real tmp786;
- fftw_real tmp722;
- fftw_real tmp784;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp696;
- fftw_real tmp697;
- fftw_real tmp723;
- fftw_real tmp724;
- ASSERT_ALIGNED_DOUBLE;
- tmp696 = X[3 * iostride];
- tmp697 = X[13 * iostride];
- tmp698 = tmp696 + tmp697;
- tmp783 = tmp696 - tmp697;
- tmp723 = Y[-3 * iostride];
- tmp724 = Y[-13 * iostride];
- tmp725 = tmp723 - tmp724;
- tmp787 = tmp723 + tmp724;
- }
- {
- fftw_real tmp699;
- fftw_real tmp700;
- fftw_real tmp720;
- fftw_real tmp721;
- ASSERT_ALIGNED_DOUBLE;
- tmp699 = X[5 * iostride];
- tmp700 = X[11 * iostride];
- tmp701 = tmp699 + tmp700;
- tmp786 = tmp700 - tmp699;
- tmp720 = Y[-5 * iostride];
- tmp721 = Y[-11 * iostride];
- tmp722 = tmp720 - tmp721;
- tmp784 = tmp721 + tmp720;
- }
- tmp702 = tmp698 + tmp701;
- tmp728 = tmp701 - tmp698;
- tmp726 = tmp722 + tmp725;
- tmp753 = tmp725 - tmp722;
- {
- fftw_real tmp813;
- fftw_real tmp814;
- fftw_real tmp785;
- fftw_real tmp788;
- ASSERT_ALIGNED_DOUBLE;
- tmp813 = tmp783 + tmp784;
- tmp814 = tmp787 - tmp786;
- tmp815 = (K980785280 * tmp813) - (K195090322 * tmp814);
- tmp819 = (K195090322 * tmp813) + (K980785280 * tmp814);
- tmp785 = tmp783 - tmp784;
- tmp788 = tmp786 + tmp787;
- tmp789 = (K831469612 * tmp785) - (K555570233 * tmp788);
- tmp793 = (K555570233 * tmp785) + (K831469612 * tmp788);
- }
- }
- {
- fftw_real tmp675;
- fftw_real tmp762;
- fftw_real tmp673;
- fftw_real tmp760;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp674;
- fftw_real tmp761;
- fftw_real tmp671;
- fftw_real tmp672;
- ASSERT_ALIGNED_DOUBLE;
- tmp674 = X[8 * iostride];
- tmp675 = K2_000000000 * tmp674;
- tmp761 = Y[-8 * iostride];
- tmp762 = K2_000000000 * tmp761;
- tmp671 = X[0];
- tmp672 = X[16 * iostride];
- tmp673 = tmp671 + tmp672;
- tmp760 = tmp671 - tmp672;
- }
- tmp676 = tmp673 + tmp675;
- tmp704 = tmp673 - tmp675;
- tmp763 = tmp760 - tmp762;
- tmp803 = tmp760 + tmp762;
- }
- {
- fftw_real tmp683;
- fftw_real tmp768;
- fftw_real tmp715;
- fftw_real tmp772;
- fftw_real tmp686;
- fftw_real tmp771;
- fftw_real tmp712;
- fftw_real tmp769;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp681;
- fftw_real tmp682;
- fftw_real tmp713;
- fftw_real tmp714;
- ASSERT_ALIGNED_DOUBLE;
- tmp681 = X[2 * iostride];
- tmp682 = X[14 * iostride];
- tmp683 = tmp681 + tmp682;
- tmp768 = tmp681 - tmp682;
- tmp713 = Y[-2 * iostride];
- tmp714 = Y[-14 * iostride];
- tmp715 = tmp713 - tmp714;
- tmp772 = tmp713 + tmp714;
- }
- {
- fftw_real tmp684;
- fftw_real tmp685;
- fftw_real tmp710;
- fftw_real tmp711;
- ASSERT_ALIGNED_DOUBLE;
- tmp684 = X[6 * iostride];
- tmp685 = X[10 * iostride];
- tmp686 = tmp684 + tmp685;
- tmp771 = tmp685 - tmp684;
- tmp710 = Y[-6 * iostride];
- tmp711 = Y[-10 * iostride];
- tmp712 = tmp710 - tmp711;
- tmp769 = tmp711 + tmp710;
- }
- tmp687 = K2_000000000 * (tmp683 + tmp686);
- tmp709 = tmp683 - tmp686;
- tmp716 = tmp712 + tmp715;
- tmp749 = K2_000000000 * (tmp715 - tmp712);
- tmp770 = tmp768 - tmp769;
- tmp806 = tmp768 + tmp769;
- tmp773 = tmp771 + tmp772;
- tmp807 = tmp772 - tmp771;
- }
- {
- fftw_real tmp691;
- fftw_real tmp776;
- fftw_real tmp734;
- fftw_real tmp780;
- fftw_real tmp694;
- fftw_real tmp779;
- fftw_real tmp731;
- fftw_real tmp777;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp689;
- fftw_real tmp690;
- fftw_real tmp732;
- fftw_real tmp733;
- ASSERT_ALIGNED_DOUBLE;
- tmp689 = X[iostride];
- tmp690 = X[15 * iostride];
- tmp691 = tmp689 + tmp690;
- tmp776 = tmp689 - tmp690;
- tmp732 = Y[-iostride];
- tmp733 = Y[-15 * iostride];
- tmp734 = tmp732 - tmp733;
- tmp780 = tmp732 + tmp733;
- }
- {
- fftw_real tmp692;
- fftw_real tmp693;
- fftw_real tmp729;
- fftw_real tmp730;
- ASSERT_ALIGNED_DOUBLE;
- tmp692 = X[7 * iostride];
- tmp693 = X[9 * iostride];
- tmp694 = tmp692 + tmp693;
- tmp779 = tmp693 - tmp692;
- tmp729 = Y[-7 * iostride];
- tmp730 = Y[-9 * iostride];
- tmp731 = tmp729 - tmp730;
- tmp777 = tmp730 + tmp729;
- }
- tmp695 = tmp691 + tmp694;
- tmp719 = tmp691 - tmp694;
- tmp735 = tmp731 + tmp734;
- tmp752 = tmp734 - tmp731;
- {
- fftw_real tmp810;
- fftw_real tmp811;
- fftw_real tmp778;
- fftw_real tmp781;
- ASSERT_ALIGNED_DOUBLE;
- tmp810 = tmp776 + tmp777;
- tmp811 = tmp780 - tmp779;
- tmp812 = (K555570233 * tmp810) + (K831469612 * tmp811);
- tmp818 = (K831469612 * tmp810) - (K555570233 * tmp811);
- tmp778 = tmp776 - tmp777;
- tmp781 = tmp779 + tmp780;
- tmp782 = (K980785280 * tmp778) - (K195090322 * tmp781);
- tmp792 = (K195090322 * tmp778) + (K980785280 * tmp781);
- }
- }
- {
- fftw_real tmp703;
- fftw_real tmp759;
- fftw_real tmp688;
- fftw_real tmp758;
- fftw_real tmp680;
- ASSERT_ALIGNED_DOUBLE;
- tmp703 = K2_000000000 * (tmp695 + tmp702);
- tmp759 = K2_000000000 * (tmp752 - tmp753);
- tmp680 = tmp676 + tmp679;
- tmp688 = tmp680 + tmp687;
- tmp758 = tmp680 - tmp687;
- X[16 * iostride] = tmp688 - tmp703;
- X[0] = tmp688 + tmp703;
- X[24 * iostride] = tmp758 + tmp759;
- X[8 * iostride] = tmp758 - tmp759;
- }
- {
- fftw_real tmp750;
- fftw_real tmp756;
- fftw_real tmp755;
- fftw_real tmp757;
- fftw_real tmp748;
- fftw_real tmp751;
- fftw_real tmp754;
- ASSERT_ALIGNED_DOUBLE;
- tmp748 = tmp676 - tmp679;
- tmp750 = tmp748 - tmp749;
- tmp756 = tmp748 + tmp749;
- tmp751 = tmp695 - tmp702;
- tmp754 = tmp752 + tmp753;
- tmp755 = K1_414213562 * (tmp751 - tmp754);
- tmp757 = K1_414213562 * (tmp751 + tmp754);
- X[20 * iostride] = tmp750 - tmp755;
- X[4 * iostride] = tmp750 + tmp755;
- X[12 * iostride] = tmp756 - tmp757;
- X[28 * iostride] = tmp756 + tmp757;
- }
- {
- fftw_real tmp718;
- fftw_real tmp738;
- fftw_real tmp737;
- fftw_real tmp739;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp708;
- fftw_real tmp717;
- fftw_real tmp727;
- fftw_real tmp736;
- ASSERT_ALIGNED_DOUBLE;
- tmp708 = tmp704 - tmp707;
- tmp717 = K1_414213562 * (tmp709 - tmp716);
- tmp718 = tmp708 + tmp717;
- tmp738 = tmp708 - tmp717;
- tmp727 = tmp719 - tmp726;
- tmp736 = tmp728 + tmp735;
- tmp737 = (K1_847759065 * tmp727) - (K765366864 * tmp736);
- tmp739 = (K1_847759065 * tmp736) + (K765366864 * tmp727);
- }
- X[18 * iostride] = tmp718 - tmp737;
- X[2 * iostride] = tmp718 + tmp737;
- X[10 * iostride] = tmp738 - tmp739;
- X[26 * iostride] = tmp738 + tmp739;
- }
- {
- fftw_real tmp742;
- fftw_real tmp746;
- fftw_real tmp745;
- fftw_real tmp747;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp740;
- fftw_real tmp741;
- fftw_real tmp743;
- fftw_real tmp744;
- ASSERT_ALIGNED_DOUBLE;
- tmp740 = tmp704 + tmp707;
- tmp741 = K1_414213562 * (tmp709 + tmp716);
- tmp742 = tmp740 - tmp741;
- tmp746 = tmp740 + tmp741;
- tmp743 = tmp719 + tmp726;
- tmp744 = tmp735 - tmp728;
- tmp745 = (K765366864 * tmp743) - (K1_847759065 * tmp744);
- tmp747 = (K765366864 * tmp744) + (K1_847759065 * tmp743);
- }
- X[22 * iostride] = tmp742 - tmp745;
- X[6 * iostride] = tmp742 + tmp745;
- X[14 * iostride] = tmp746 - tmp747;
- X[30 * iostride] = tmp746 + tmp747;
- }
- {
- fftw_real tmp790;
- fftw_real tmp794;
- fftw_real tmp775;
- fftw_real tmp791;
- fftw_real tmp767;
- fftw_real tmp774;
- ASSERT_ALIGNED_DOUBLE;
- tmp790 = K2_000000000 * (tmp782 + tmp789);
- tmp794 = K2_000000000 * (tmp792 - tmp793);
- tmp767 = tmp763 + tmp766;
- tmp774 = (K1_847759065 * tmp770) - (K765366864 * tmp773);
- tmp775 = tmp767 + tmp774;
- tmp791 = tmp767 - tmp774;
- X[17 * iostride] = tmp775 - tmp790;
- X[iostride] = tmp775 + tmp790;
- X[9 * iostride] = tmp791 - tmp794;
- X[25 * iostride] = tmp791 + tmp794;
- }
- {
- fftw_real tmp797;
- fftw_real tmp801;
- fftw_real tmp800;
- fftw_real tmp802;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp795;
- fftw_real tmp796;
- fftw_real tmp798;
- fftw_real tmp799;
- ASSERT_ALIGNED_DOUBLE;
- tmp795 = tmp763 - tmp766;
- tmp796 = (K765366864 * tmp770) + (K1_847759065 * tmp773);
- tmp797 = tmp795 - tmp796;
- tmp801 = tmp795 + tmp796;
- tmp798 = tmp782 - tmp789;
- tmp799 = tmp792 + tmp793;
- tmp800 = K1_414213562 * (tmp798 - tmp799);
- tmp802 = K1_414213562 * (tmp798 + tmp799);
- }
- X[21 * iostride] = tmp797 - tmp800;
- X[5 * iostride] = tmp797 + tmp800;
- X[13 * iostride] = tmp801 - tmp802;
- X[29 * iostride] = tmp801 + tmp802;
- }
- {
- fftw_real tmp816;
- fftw_real tmp820;
- fftw_real tmp809;
- fftw_real tmp817;
- fftw_real tmp805;
- fftw_real tmp808;
- ASSERT_ALIGNED_DOUBLE;
- tmp816 = K2_000000000 * (tmp812 - tmp815);
- tmp820 = K2_000000000 * (tmp818 - tmp819);
- tmp805 = tmp803 - tmp804;
- tmp808 = (K765366864 * tmp806) - (K1_847759065 * tmp807);
- tmp809 = tmp805 - tmp808;
- tmp817 = tmp805 + tmp808;
- X[11 * iostride] = tmp809 - tmp816;
- X[27 * iostride] = tmp809 + tmp816;
- X[19 * iostride] = tmp817 - tmp820;
- X[3 * iostride] = tmp817 + tmp820;
- }
- {
- fftw_real tmp823;
- fftw_real tmp827;
- fftw_real tmp826;
- fftw_real tmp828;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp821;
- fftw_real tmp822;
- fftw_real tmp824;
- fftw_real tmp825;
- ASSERT_ALIGNED_DOUBLE;
- tmp821 = tmp803 + tmp804;
- tmp822 = (K1_847759065 * tmp806) + (K765366864 * tmp807);
- tmp823 = tmp821 - tmp822;
- tmp827 = tmp821 + tmp822;
- tmp824 = tmp818 + tmp819;
- tmp825 = tmp812 + tmp815;
- tmp826 = K1_414213562 * (tmp824 - tmp825);
- tmp828 = K1_414213562 * (tmp825 + tmp824);
- }
- X[23 * iostride] = tmp823 - tmp826;
- X[7 * iostride] = tmp823 + tmp826;
- X[15 * iostride] = tmp827 - tmp828;
- X[31 * iostride] = tmp827 + tmp828;
- }
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 31) {
- fftw_real tmp446;
- fftw_real tmp580;
- fftw_real tmp189;
- fftw_real tmp238;
- fftw_real tmp382;
- fftw_real tmp420;
- fftw_real tmp307;
- fftw_real tmp332;
- fftw_real tmp514;
- fftw_real tmp608;
- fftw_real tmp354;
- fftw_real tmp408;
- fftw_real tmp453;
- fftw_real tmp609;
- fftw_real tmp517;
- fftw_real tmp581;
- fftw_real tmp235;
- fftw_real tmp272;
- fftw_real tmp365;
- fftw_real tmp411;
- fftw_real tmp287;
- fftw_real tmp336;
- fftw_real tmp368;
- fftw_real tmp412;
- fftw_real tmp500;
- fftw_real tmp550;
- fftw_real tmp593;
- fftw_real tmp643;
- fftw_real tmp507;
- fftw_real tmp551;
- fftw_real tmp596;
- fftw_real tmp642;
- fftw_real tmp204;
- fftw_real tmp292;
- fftw_real tmp357;
- fftw_real tmp384;
- fftw_real tmp253;
- fftw_real tmp333;
- fftw_real tmp360;
- fftw_real tmp383;
- fftw_real tmp461;
- fftw_real tmp520;
- fftw_real tmp588;
- fftw_real tmp612;
- fftw_real tmp468;
- fftw_real tmp519;
- fftw_real tmp585;
- fftw_real tmp611;
- fftw_real tmp220;
- fftw_real tmp255;
- fftw_real tmp372;
- fftw_real tmp414;
- fftw_real tmp270;
- fftw_real tmp335;
- fftw_real tmp375;
- fftw_real tmp415;
- fftw_real tmp481;
- fftw_real tmp547;
- fftw_real tmp600;
- fftw_real tmp640;
- fftw_real tmp488;
- fftw_real tmp548;
- fftw_real tmp603;
- fftw_real tmp639;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp177;
- fftw_real tmp444;
- fftw_real tmp295;
- fftw_real tmp513;
- fftw_real tmp180;
- fftw_real tmp512;
- fftw_real tmp298;
- fftw_real tmp445;
- fftw_real tmp184;
- fftw_real tmp447;
- fftw_real tmp302;
- fftw_real tmp448;
- fftw_real tmp187;
- fftw_real tmp450;
- fftw_real tmp305;
- fftw_real tmp451;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp175;
- fftw_real tmp176;
- fftw_real tmp293;
- fftw_real tmp294;
- ASSERT_ALIGNED_DOUBLE;
- tmp175 = X[0];
- tmp176 = Y[-16 * iostride];
- tmp177 = tmp175 + tmp176;
- tmp444 = tmp175 - tmp176;
- tmp293 = Y[0];
- tmp294 = X[16 * iostride];
- tmp295 = tmp293 - tmp294;
- tmp513 = tmp293 + tmp294;
- }
- {
- fftw_real tmp178;
- fftw_real tmp179;
- fftw_real tmp296;
- fftw_real tmp297;
- ASSERT_ALIGNED_DOUBLE;
- tmp178 = X[8 * iostride];
- tmp179 = Y[-24 * iostride];
- tmp180 = tmp178 + tmp179;
- tmp512 = tmp178 - tmp179;
- tmp296 = Y[-8 * iostride];
- tmp297 = X[24 * iostride];
- tmp298 = tmp296 - tmp297;
- tmp445 = tmp296 + tmp297;
- }
- {
- fftw_real tmp182;
- fftw_real tmp183;
- fftw_real tmp300;
- fftw_real tmp301;
- ASSERT_ALIGNED_DOUBLE;
- tmp182 = X[4 * iostride];
- tmp183 = Y[-20 * iostride];
- tmp184 = tmp182 + tmp183;
- tmp447 = tmp182 - tmp183;
- tmp300 = Y[-4 * iostride];
- tmp301 = X[20 * iostride];
- tmp302 = tmp300 - tmp301;
- tmp448 = tmp300 + tmp301;
- }
- {
- fftw_real tmp185;
- fftw_real tmp186;
- fftw_real tmp303;
- fftw_real tmp304;
- ASSERT_ALIGNED_DOUBLE;
- tmp185 = Y[-28 * iostride];
- tmp186 = X[12 * iostride];
- tmp187 = tmp185 + tmp186;
- tmp450 = tmp185 - tmp186;
- tmp303 = Y[-12 * iostride];
- tmp304 = X[28 * iostride];
- tmp305 = tmp303 - tmp304;
- tmp451 = tmp303 + tmp304;
- }
- {
- fftw_real tmp181;
- fftw_real tmp188;
- fftw_real tmp352;
- fftw_real tmp353;
- ASSERT_ALIGNED_DOUBLE;
- tmp446 = tmp444 - tmp445;
- tmp580 = tmp444 + tmp445;
- tmp181 = tmp177 + tmp180;
- tmp188 = tmp184 + tmp187;
- tmp189 = tmp181 + tmp188;
- tmp238 = tmp181 - tmp188;
- {
- fftw_real tmp380;
- fftw_real tmp381;
- fftw_real tmp299;
- fftw_real tmp306;
- ASSERT_ALIGNED_DOUBLE;
- tmp380 = tmp295 - tmp298;
- tmp381 = tmp184 - tmp187;
- tmp382 = tmp380 - tmp381;
- tmp420 = tmp381 + tmp380;
- tmp299 = tmp295 + tmp298;
- tmp306 = tmp302 + tmp305;
- tmp307 = tmp299 - tmp306;
- tmp332 = tmp299 + tmp306;
- }
- tmp514 = tmp512 + tmp513;
- tmp608 = tmp513 - tmp512;
- tmp352 = tmp177 - tmp180;
- tmp353 = tmp305 - tmp302;
- tmp354 = tmp352 - tmp353;
- tmp408 = tmp352 + tmp353;
- {
- fftw_real tmp449;
- fftw_real tmp452;
- fftw_real tmp515;
- fftw_real tmp516;
- ASSERT_ALIGNED_DOUBLE;
- tmp449 = tmp447 - tmp448;
- tmp452 = tmp450 - tmp451;
- tmp453 = K707106781 * (tmp449 + tmp452);
- tmp609 = K707106781 * (tmp449 - tmp452);
- tmp515 = tmp447 + tmp448;
- tmp516 = tmp450 + tmp451;
- tmp517 = K707106781 * (tmp515 - tmp516);
- tmp581 = K707106781 * (tmp515 + tmp516);
- }
- }
- }
- {
- fftw_real tmp223;
- fftw_real tmp490;
- fftw_real tmp275;
- fftw_real tmp502;
- fftw_real tmp226;
- fftw_real tmp501;
- fftw_real tmp278;
- fftw_real tmp491;
- fftw_real tmp233;
- fftw_real tmp505;
- fftw_real tmp498;
- fftw_real tmp285;
- fftw_real tmp230;
- fftw_real tmp504;
- fftw_real tmp495;
- fftw_real tmp282;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp221;
- fftw_real tmp222;
- fftw_real tmp276;
- fftw_real tmp277;
- ASSERT_ALIGNED_DOUBLE;
- tmp221 = Y[-31 * iostride];
- tmp222 = X[15 * iostride];
- tmp223 = tmp221 + tmp222;
- tmp490 = tmp221 - tmp222;
- {
- fftw_real tmp273;
- fftw_real tmp274;
- fftw_real tmp224;
- fftw_real tmp225;
- ASSERT_ALIGNED_DOUBLE;
- tmp273 = Y[-15 * iostride];
- tmp274 = X[31 * iostride];
- tmp275 = tmp273 - tmp274;
- tmp502 = tmp273 + tmp274;
- tmp224 = X[7 * iostride];
- tmp225 = Y[-23 * iostride];
- tmp226 = tmp224 + tmp225;
- tmp501 = tmp224 - tmp225;
- }
- tmp276 = Y[-7 * iostride];
- tmp277 = X[23 * iostride];
- tmp278 = tmp276 - tmp277;
- tmp491 = tmp276 + tmp277;
- {
- fftw_real tmp231;
- fftw_real tmp232;
- fftw_real tmp496;
- fftw_real tmp283;
- fftw_real tmp284;
- fftw_real tmp497;
- ASSERT_ALIGNED_DOUBLE;
- tmp231 = Y[-27 * iostride];
- tmp232 = X[11 * iostride];
- tmp496 = tmp231 - tmp232;
- tmp283 = Y[-11 * iostride];
- tmp284 = X[27 * iostride];
- tmp497 = tmp283 + tmp284;
- tmp233 = tmp231 + tmp232;
- tmp505 = tmp496 + tmp497;
- tmp498 = tmp496 - tmp497;
- tmp285 = tmp283 - tmp284;
- }
- {
- fftw_real tmp228;
- fftw_real tmp229;
- fftw_real tmp493;
- fftw_real tmp280;
- fftw_real tmp281;
- fftw_real tmp494;
- ASSERT_ALIGNED_DOUBLE;
- tmp228 = X[3 * iostride];
- tmp229 = Y[-19 * iostride];
- tmp493 = tmp228 - tmp229;
- tmp280 = Y[-3 * iostride];
- tmp281 = X[19 * iostride];
- tmp494 = tmp280 + tmp281;
- tmp230 = tmp228 + tmp229;
- tmp504 = tmp493 + tmp494;
- tmp495 = tmp493 - tmp494;
- tmp282 = tmp280 - tmp281;
- }
- }
- {
- fftw_real tmp227;
- fftw_real tmp234;
- fftw_real tmp363;
- fftw_real tmp364;
- ASSERT_ALIGNED_DOUBLE;
- tmp227 = tmp223 + tmp226;
- tmp234 = tmp230 + tmp233;
- tmp235 = tmp227 + tmp234;
- tmp272 = tmp227 - tmp234;
- tmp363 = tmp275 - tmp278;
- tmp364 = tmp230 - tmp233;
- tmp365 = tmp363 - tmp364;
- tmp411 = tmp364 + tmp363;
- }
- {
- fftw_real tmp279;
- fftw_real tmp286;
- fftw_real tmp366;
- fftw_real tmp367;
- ASSERT_ALIGNED_DOUBLE;
- tmp279 = tmp275 + tmp278;
- tmp286 = tmp282 + tmp285;
- tmp287 = tmp279 - tmp286;
- tmp336 = tmp279 + tmp286;
- tmp366 = tmp223 - tmp226;
- tmp367 = tmp285 - tmp282;
- tmp368 = tmp366 - tmp367;
- tmp412 = tmp366 + tmp367;
- }
- {
- fftw_real tmp492;
- fftw_real tmp499;
- fftw_real tmp591;
- fftw_real tmp592;
- ASSERT_ALIGNED_DOUBLE;
- tmp492 = tmp490 - tmp491;
- tmp499 = K707106781 * (tmp495 + tmp498);
- tmp500 = tmp492 - tmp499;
- tmp550 = tmp492 + tmp499;
- tmp591 = K707106781 * (tmp495 - tmp498);
- tmp592 = tmp501 + tmp502;
- tmp593 = tmp591 - tmp592;
- tmp643 = tmp592 + tmp591;
- }
- {
- fftw_real tmp503;
- fftw_real tmp506;
- fftw_real tmp594;
- fftw_real tmp595;
- ASSERT_ALIGNED_DOUBLE;
- tmp503 = tmp501 - tmp502;
- tmp506 = K707106781 * (tmp504 - tmp505);
- tmp507 = tmp503 - tmp506;
- tmp551 = tmp503 + tmp506;
- tmp594 = tmp490 + tmp491;
- tmp595 = K707106781 * (tmp504 + tmp505);
- tmp596 = tmp594 - tmp595;
- tmp642 = tmp594 + tmp595;
- }
- }
- {
- fftw_real tmp192;
- fftw_real tmp465;
- fftw_real tmp248;
- fftw_real tmp463;
- fftw_real tmp195;
- fftw_real tmp462;
- fftw_real tmp251;
- fftw_real tmp466;
- fftw_real tmp199;
- fftw_real tmp458;
- fftw_real tmp241;
- fftw_real tmp456;
- fftw_real tmp202;
- fftw_real tmp455;
- fftw_real tmp244;
- fftw_real tmp459;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp190;
- fftw_real tmp191;
- fftw_real tmp246;
- fftw_real tmp247;
- ASSERT_ALIGNED_DOUBLE;
- tmp190 = X[2 * iostride];
- tmp191 = Y[-18 * iostride];
- tmp192 = tmp190 + tmp191;
- tmp465 = tmp190 - tmp191;
- tmp246 = Y[-2 * iostride];
- tmp247 = X[18 * iostride];
- tmp248 = tmp246 - tmp247;
- tmp463 = tmp246 + tmp247;
- }
- {
- fftw_real tmp193;
- fftw_real tmp194;
- fftw_real tmp249;
- fftw_real tmp250;
- ASSERT_ALIGNED_DOUBLE;
- tmp193 = X[10 * iostride];
- tmp194 = Y[-26 * iostride];
- tmp195 = tmp193 + tmp194;
- tmp462 = tmp193 - tmp194;
- tmp249 = Y[-10 * iostride];
- tmp250 = X[26 * iostride];
- tmp251 = tmp249 - tmp250;
- tmp466 = tmp249 + tmp250;
- }
- {
- fftw_real tmp197;
- fftw_real tmp198;
- fftw_real tmp239;
- fftw_real tmp240;
- ASSERT_ALIGNED_DOUBLE;
- tmp197 = Y[-30 * iostride];
- tmp198 = X[14 * iostride];
- tmp199 = tmp197 + tmp198;
- tmp458 = tmp197 - tmp198;
- tmp239 = Y[-14 * iostride];
- tmp240 = X[30 * iostride];
- tmp241 = tmp239 - tmp240;
- tmp456 = tmp239 + tmp240;
- }
- {
- fftw_real tmp200;
- fftw_real tmp201;
- fftw_real tmp242;
- fftw_real tmp243;
- ASSERT_ALIGNED_DOUBLE;
- tmp200 = X[6 * iostride];
- tmp201 = Y[-22 * iostride];
- tmp202 = tmp200 + tmp201;
- tmp455 = tmp200 - tmp201;
- tmp242 = Y[-6 * iostride];
- tmp243 = X[22 * iostride];
- tmp244 = tmp242 - tmp243;
- tmp459 = tmp242 + tmp243;
- }
- {
- fftw_real tmp196;
- fftw_real tmp203;
- fftw_real tmp355;
- fftw_real tmp356;
- ASSERT_ALIGNED_DOUBLE;
- tmp196 = tmp192 + tmp195;
- tmp203 = tmp199 + tmp202;
- tmp204 = tmp196 + tmp203;
- tmp292 = tmp196 - tmp203;
- tmp355 = tmp241 - tmp244;
- tmp356 = tmp199 - tmp202;
- tmp357 = tmp355 - tmp356;
- tmp384 = tmp356 + tmp355;
- }
- {
- fftw_real tmp245;
- fftw_real tmp252;
- fftw_real tmp358;
- fftw_real tmp359;
- ASSERT_ALIGNED_DOUBLE;
- tmp245 = tmp241 + tmp244;
- tmp252 = tmp248 + tmp251;
- tmp253 = tmp245 - tmp252;
- tmp333 = tmp252 + tmp245;
- tmp358 = tmp192 - tmp195;
- tmp359 = tmp248 - tmp251;
- tmp360 = tmp358 + tmp359;
- tmp383 = tmp358 - tmp359;
- }
- {
- fftw_real tmp457;
- fftw_real tmp460;
- fftw_real tmp586;
- fftw_real tmp587;
- ASSERT_ALIGNED_DOUBLE;
- tmp457 = tmp455 - tmp456;
- tmp460 = tmp458 - tmp459;
- tmp461 = (K923879532 * tmp457) - (K382683432 * tmp460);
- tmp520 = (K382683432 * tmp457) + (K923879532 * tmp460);
- tmp586 = tmp458 + tmp459;
- tmp587 = tmp455 + tmp456;
- tmp588 = (K382683432 * tmp586) - (K923879532 * tmp587);
- tmp612 = (K382683432 * tmp587) + (K923879532 * tmp586);
- }
- {
- fftw_real tmp464;
- fftw_real tmp467;
- fftw_real tmp583;
- fftw_real tmp584;
- ASSERT_ALIGNED_DOUBLE;
- tmp464 = tmp462 + tmp463;
- tmp467 = tmp465 - tmp466;
- tmp468 = (K923879532 * tmp464) + (K382683432 * tmp467);
- tmp519 = (K923879532 * tmp467) - (K382683432 * tmp464);
- tmp583 = tmp465 + tmp466;
- tmp584 = tmp463 - tmp462;
- tmp585 = (K382683432 * tmp583) - (K923879532 * tmp584);
- tmp611 = (K382683432 * tmp584) + (K923879532 * tmp583);
- }
- }
- {
- fftw_real tmp208;
- fftw_real tmp471;
- fftw_real tmp258;
- fftw_real tmp483;
- fftw_real tmp211;
- fftw_real tmp482;
- fftw_real tmp261;
- fftw_real tmp472;
- fftw_real tmp218;
- fftw_real tmp486;
- fftw_real tmp479;
- fftw_real tmp268;
- fftw_real tmp215;
- fftw_real tmp485;
- fftw_real tmp476;
- fftw_real tmp265;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp206;
- fftw_real tmp207;
- fftw_real tmp259;
- fftw_real tmp260;
- ASSERT_ALIGNED_DOUBLE;
- tmp206 = X[iostride];
- tmp207 = Y[-17 * iostride];
- tmp208 = tmp206 + tmp207;
- tmp471 = tmp206 - tmp207;
- {
- fftw_real tmp256;
- fftw_real tmp257;
- fftw_real tmp209;
- fftw_real tmp210;
- ASSERT_ALIGNED_DOUBLE;
- tmp256 = Y[-iostride];
- tmp257 = X[17 * iostride];
- tmp258 = tmp256 - tmp257;
- tmp483 = tmp256 + tmp257;
- tmp209 = X[9 * iostride];
- tmp210 = Y[-25 * iostride];
- tmp211 = tmp209 + tmp210;
- tmp482 = tmp209 - tmp210;
- }
- tmp259 = Y[-9 * iostride];
- tmp260 = X[25 * iostride];
- tmp261 = tmp259 - tmp260;
- tmp472 = tmp259 + tmp260;
- {
- fftw_real tmp216;
- fftw_real tmp217;
- fftw_real tmp477;
- fftw_real tmp266;
- fftw_real tmp267;
- fftw_real tmp478;
- ASSERT_ALIGNED_DOUBLE;
- tmp216 = Y[-29 * iostride];
- tmp217 = X[13 * iostride];
- tmp477 = tmp216 - tmp217;
- tmp266 = Y[-13 * iostride];
- tmp267 = X[29 * iostride];
- tmp478 = tmp266 + tmp267;
- tmp218 = tmp216 + tmp217;
- tmp486 = tmp477 + tmp478;
- tmp479 = tmp477 - tmp478;
- tmp268 = tmp266 - tmp267;
- }
- {
- fftw_real tmp213;
- fftw_real tmp214;
- fftw_real tmp474;
- fftw_real tmp263;
- fftw_real tmp264;
- fftw_real tmp475;
- ASSERT_ALIGNED_DOUBLE;
- tmp213 = X[5 * iostride];
- tmp214 = Y[-21 * iostride];
- tmp474 = tmp213 - tmp214;
- tmp263 = Y[-5 * iostride];
- tmp264 = X[21 * iostride];
- tmp475 = tmp263 + tmp264;
- tmp215 = tmp213 + tmp214;
- tmp485 = tmp474 + tmp475;
- tmp476 = tmp474 - tmp475;
- tmp265 = tmp263 - tmp264;
- }
- }
- {
- fftw_real tmp212;
- fftw_real tmp219;
- fftw_real tmp370;
- fftw_real tmp371;
- ASSERT_ALIGNED_DOUBLE;
- tmp212 = tmp208 + tmp211;
- tmp219 = tmp215 + tmp218;
- tmp220 = tmp212 + tmp219;
- tmp255 = tmp212 - tmp219;
- tmp370 = tmp258 - tmp261;
- tmp371 = tmp215 - tmp218;
- tmp372 = tmp370 - tmp371;
- tmp414 = tmp371 + tmp370;
- }
- {
- fftw_real tmp262;
- fftw_real tmp269;
- fftw_real tmp373;
- fftw_real tmp374;
- ASSERT_ALIGNED_DOUBLE;
- tmp262 = tmp258 + tmp261;
- tmp269 = tmp265 + tmp268;
- tmp270 = tmp262 - tmp269;
- tmp335 = tmp262 + tmp269;
- tmp373 = tmp208 - tmp211;
- tmp374 = tmp268 - tmp265;
- tmp375 = tmp373 - tmp374;
- tmp415 = tmp373 + tmp374;
- }
- {
- fftw_real tmp473;
- fftw_real tmp480;
- fftw_real tmp598;
- fftw_real tmp599;
- ASSERT_ALIGNED_DOUBLE;
- tmp473 = tmp471 - tmp472;
- tmp480 = K707106781 * (tmp476 + tmp479);
- tmp481 = tmp473 - tmp480;
- tmp547 = tmp473 + tmp480;
- tmp598 = tmp483 - tmp482;
- tmp599 = K707106781 * (tmp476 - tmp479);
- tmp600 = tmp598 + tmp599;
- tmp640 = tmp598 - tmp599;
- }
- {
- fftw_real tmp484;
- fftw_real tmp487;
- fftw_real tmp601;
- fftw_real tmp602;
- ASSERT_ALIGNED_DOUBLE;
- tmp484 = tmp482 + tmp483;
- tmp487 = K707106781 * (tmp485 - tmp486);
- tmp488 = tmp484 - tmp487;
- tmp548 = tmp484 + tmp487;
- tmp601 = tmp471 + tmp472;
- tmp602 = K707106781 * (tmp485 + tmp486);
- tmp603 = tmp601 - tmp602;
- tmp639 = tmp601 + tmp602;
- }
- }
- {
- fftw_real tmp205;
- fftw_real tmp236;
- fftw_real tmp330;
- fftw_real tmp334;
- fftw_real tmp337;
- fftw_real tmp338;
- fftw_real tmp329;
- fftw_real tmp331;
- ASSERT_ALIGNED_DOUBLE;
- tmp205 = tmp189 + tmp204;
- tmp236 = tmp220 + tmp235;
- tmp330 = tmp205 - tmp236;
- tmp334 = tmp332 + tmp333;
- tmp337 = tmp335 + tmp336;
- tmp338 = tmp334 - tmp337;
- X[0] = tmp205 + tmp236;
- Y[-31 * iostride] = tmp334 + tmp337;
- tmp329 = c_re(W[15]);
- tmp331 = c_im(W[15]);
- X[16 * iostride] = (tmp329 * tmp330) + (tmp331 * tmp338);
- Y[-15 * iostride] = (tmp329 * tmp338) - (tmp331 * tmp330);
- }
- {
- fftw_real tmp342;
- fftw_real tmp348;
- fftw_real tmp346;
- fftw_real tmp350;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp340;
- fftw_real tmp341;
- fftw_real tmp344;
- fftw_real tmp345;
- ASSERT_ALIGNED_DOUBLE;
- tmp340 = tmp332 - tmp333;
- tmp341 = tmp220 - tmp235;
- tmp342 = tmp340 - tmp341;
- tmp348 = tmp341 + tmp340;
- tmp344 = tmp189 - tmp204;
- tmp345 = tmp336 - tmp335;
- tmp346 = tmp344 - tmp345;
- tmp350 = tmp344 + tmp345;
- }
- {
- fftw_real tmp339;
- fftw_real tmp343;
- fftw_real tmp347;
- fftw_real tmp349;
- ASSERT_ALIGNED_DOUBLE;
- tmp339 = c_re(W[23]);
- tmp343 = c_im(W[23]);
- Y[-7 * iostride] = (tmp339 * tmp342) - (tmp343 * tmp346);
- X[24 * iostride] = (tmp343 * tmp342) + (tmp339 * tmp346);
- tmp347 = c_re(W[7]);
- tmp349 = c_im(W[7]);
- Y[-23 * iostride] = (tmp347 * tmp348) - (tmp349 * tmp350);
- X[8 * iostride] = (tmp349 * tmp348) + (tmp347 * tmp350);
- }
- }
- {
- fftw_real tmp254;
- fftw_real tmp322;
- fftw_real tmp289;
- fftw_real tmp319;
- fftw_real tmp308;
- fftw_real tmp318;
- fftw_real tmp311;
- fftw_real tmp323;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp271;
- fftw_real tmp288;
- fftw_real tmp309;
- fftw_real tmp310;
- ASSERT_ALIGNED_DOUBLE;
- tmp254 = tmp238 + tmp253;
- tmp322 = tmp238 - tmp253;
- tmp271 = tmp255 - tmp270;
- tmp288 = tmp272 + tmp287;
- tmp289 = K707106781 * (tmp271 + tmp288);
- tmp319 = K707106781 * (tmp271 - tmp288);
- tmp308 = tmp292 + tmp307;
- tmp318 = tmp307 - tmp292;
- tmp309 = tmp255 + tmp270;
- tmp310 = tmp287 - tmp272;
- tmp311 = K707106781 * (tmp309 + tmp310);
- tmp323 = K707106781 * (tmp310 - tmp309);
- }
- {
- fftw_real tmp290;
- fftw_real tmp312;
- fftw_real tmp237;
- fftw_real tmp291;
- ASSERT_ALIGNED_DOUBLE;
- tmp290 = tmp254 - tmp289;
- tmp312 = tmp308 - tmp311;
- tmp237 = c_re(W[19]);
- tmp291 = c_im(W[19]);
- X[20 * iostride] = (tmp237 * tmp290) + (tmp291 * tmp312);
- Y[-11 * iostride] = (tmp237 * tmp312) - (tmp291 * tmp290);
- }
- {
- fftw_real tmp314;
- fftw_real tmp316;
- fftw_real tmp313;
- fftw_real tmp315;
- ASSERT_ALIGNED_DOUBLE;
- tmp314 = tmp254 + tmp289;
- tmp316 = tmp308 + tmp311;
- tmp313 = c_re(W[3]);
- tmp315 = c_im(W[3]);
- X[4 * iostride] = (tmp313 * tmp314) + (tmp315 * tmp316);
- Y[-27 * iostride] = (tmp313 * tmp316) - (tmp315 * tmp314);
- }
- {
- fftw_real tmp320;
- fftw_real tmp324;
- fftw_real tmp317;
- fftw_real tmp321;
- ASSERT_ALIGNED_DOUBLE;
- tmp320 = tmp318 - tmp319;
- tmp324 = tmp322 - tmp323;
- tmp317 = c_re(W[27]);
- tmp321 = c_im(W[27]);
- Y[-3 * iostride] = (tmp317 * tmp320) - (tmp321 * tmp324);
- X[28 * iostride] = (tmp321 * tmp320) + (tmp317 * tmp324);
- }
- {
- fftw_real tmp326;
- fftw_real tmp328;
- fftw_real tmp325;
- fftw_real tmp327;
- ASSERT_ALIGNED_DOUBLE;
- tmp326 = tmp318 + tmp319;
- tmp328 = tmp322 + tmp323;
- tmp325 = c_re(W[11]);
- tmp327 = c_im(W[11]);
- Y[-19 * iostride] = (tmp325 * tmp326) - (tmp327 * tmp328);
- X[12 * iostride] = (tmp327 * tmp326) + (tmp325 * tmp328);
- }
- }
- {
- fftw_real tmp638;
- fftw_real tmp664;
- fftw_real tmp653;
- fftw_real tmp665;
- fftw_real tmp645;
- fftw_real tmp661;
- fftw_real tmp650;
- fftw_real tmp660;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp636;
- fftw_real tmp637;
- fftw_real tmp651;
- fftw_real tmp652;
- ASSERT_ALIGNED_DOUBLE;
- tmp636 = tmp580 + tmp581;
- tmp637 = tmp611 + tmp612;
- tmp638 = tmp636 - tmp637;
- tmp664 = tmp636 + tmp637;
- tmp651 = (K195090322 * tmp640) + (K980785280 * tmp639);
- tmp652 = (K195090322 * tmp643) + (K980785280 * tmp642);
- tmp653 = tmp651 - tmp652;
- tmp665 = tmp651 + tmp652;
- }
- {
- fftw_real tmp641;
- fftw_real tmp644;
- fftw_real tmp648;
- fftw_real tmp649;
- ASSERT_ALIGNED_DOUBLE;
- tmp641 = (K195090322 * tmp639) - (K980785280 * tmp640);
- tmp644 = (K195090322 * tmp642) - (K980785280 * tmp643);
- tmp645 = tmp641 + tmp644;
- tmp661 = tmp641 - tmp644;
- tmp648 = tmp608 - tmp609;
- tmp649 = tmp585 - tmp588;
- tmp650 = tmp648 + tmp649;
- tmp660 = tmp648 - tmp649;
- }
- {
- fftw_real tmp646;
- fftw_real tmp654;
- fftw_real tmp635;
- fftw_real tmp647;
- ASSERT_ALIGNED_DOUBLE;
- tmp646 = tmp638 - tmp645;
- tmp654 = tmp650 - tmp653;
- tmp635 = c_re(W[22]);
- tmp647 = c_im(W[22]);
- X[23 * iostride] = (tmp635 * tmp646) + (tmp647 * tmp654);
- Y[-8 * iostride] = (tmp635 * tmp654) - (tmp647 * tmp646);
- }
- {
- fftw_real tmp656;
- fftw_real tmp658;
- fftw_real tmp655;
- fftw_real tmp657;
- ASSERT_ALIGNED_DOUBLE;
- tmp656 = tmp638 + tmp645;
- tmp658 = tmp650 + tmp653;
- tmp655 = c_re(W[6]);
- tmp657 = c_im(W[6]);
- X[7 * iostride] = (tmp655 * tmp656) + (tmp657 * tmp658);
- Y[-24 * iostride] = (tmp655 * tmp658) - (tmp657 * tmp656);
- }
- {
- fftw_real tmp662;
- fftw_real tmp666;
- fftw_real tmp659;
- fftw_real tmp663;
- ASSERT_ALIGNED_DOUBLE;
- tmp662 = tmp660 + tmp661;
- tmp666 = tmp664 - tmp665;
- tmp659 = c_re(W[14]);
- tmp663 = c_im(W[14]);
- Y[-16 * iostride] = (tmp659 * tmp662) - (tmp663 * tmp666);
- X[15 * iostride] = (tmp663 * tmp662) + (tmp659 * tmp666);
- }
- {
- fftw_real tmp668;
- fftw_real tmp670;
- fftw_real tmp667;
- fftw_real tmp669;
- ASSERT_ALIGNED_DOUBLE;
- tmp668 = tmp660 - tmp661;
- tmp670 = tmp664 + tmp665;
- tmp667 = c_re(W[30]);
- tmp669 = c_im(W[30]);
- Y[0] = (tmp667 * tmp668) - (tmp669 * tmp670);
- X[31 * iostride] = (tmp669 * tmp668) + (tmp667 * tmp670);
- }
- }
- {
- fftw_real tmp410;
- fftw_real tmp436;
- fftw_real tmp425;
- fftw_real tmp437;
- fftw_real tmp422;
- fftw_real tmp432;
- fftw_real tmp417;
- fftw_real tmp433;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp409;
- fftw_real tmp423;
- fftw_real tmp424;
- fftw_real tmp421;
- fftw_real tmp413;
- fftw_real tmp416;
- ASSERT_ALIGNED_DOUBLE;
- tmp409 = K707106781 * (tmp383 + tmp384);
- tmp410 = tmp408 - tmp409;
- tmp436 = tmp408 + tmp409;
- tmp423 = (K923879532 * tmp415) - (K382683432 * tmp414);
- tmp424 = (K382683432 * tmp411) + (K923879532 * tmp412);
- tmp425 = tmp423 - tmp424;
- tmp437 = tmp423 + tmp424;
- tmp421 = K707106781 * (tmp360 + tmp357);
- tmp422 = tmp420 - tmp421;
- tmp432 = tmp420 + tmp421;
- tmp413 = (K923879532 * tmp411) - (K382683432 * tmp412);
- tmp416 = (K923879532 * tmp414) + (K382683432 * tmp415);
- tmp417 = tmp413 - tmp416;
- tmp433 = tmp416 + tmp413;
- }
- {
- fftw_real tmp418;
- fftw_real tmp426;
- fftw_real tmp407;
- fftw_real tmp419;
- ASSERT_ALIGNED_DOUBLE;
- tmp418 = tmp410 - tmp417;
- tmp426 = tmp422 - tmp425;
- tmp407 = c_re(W[25]);
- tmp419 = c_im(W[25]);
- X[26 * iostride] = (tmp407 * tmp418) + (tmp419 * tmp426);
- Y[-5 * iostride] = (tmp407 * tmp426) - (tmp419 * tmp418);
- }
- {
- fftw_real tmp428;
- fftw_real tmp430;
- fftw_real tmp427;
- fftw_real tmp429;
- ASSERT_ALIGNED_DOUBLE;
- tmp428 = tmp410 + tmp417;
- tmp430 = tmp422 + tmp425;
- tmp427 = c_re(W[9]);
- tmp429 = c_im(W[9]);
- X[10 * iostride] = (tmp427 * tmp428) + (tmp429 * tmp430);
- Y[-21 * iostride] = (tmp427 * tmp430) - (tmp429 * tmp428);
- }
- {
- fftw_real tmp434;
- fftw_real tmp438;
- fftw_real tmp431;
- fftw_real tmp435;
- ASSERT_ALIGNED_DOUBLE;
- tmp434 = tmp432 - tmp433;
- tmp438 = tmp436 - tmp437;
- tmp431 = c_re(W[17]);
- tmp435 = c_im(W[17]);
- Y[-13 * iostride] = (tmp431 * tmp434) - (tmp435 * tmp438);
- X[18 * iostride] = (tmp435 * tmp434) + (tmp431 * tmp438);
- }
- {
- fftw_real tmp440;
- fftw_real tmp442;
- fftw_real tmp439;
- fftw_real tmp441;
- ASSERT_ALIGNED_DOUBLE;
- tmp440 = tmp432 + tmp433;
- tmp442 = tmp436 + tmp437;
- tmp439 = c_re(W[1]);
- tmp441 = c_im(W[1]);
- Y[-29 * iostride] = (tmp439 * tmp440) - (tmp441 * tmp442);
- X[2 * iostride] = (tmp441 * tmp440) + (tmp439 * tmp442);
- }
- }
- {
- fftw_real tmp362;
- fftw_real tmp400;
- fftw_real tmp389;
- fftw_real tmp401;
- fftw_real tmp386;
- fftw_real tmp396;
- fftw_real tmp377;
- fftw_real tmp397;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp361;
- fftw_real tmp387;
- fftw_real tmp388;
- fftw_real tmp385;
- fftw_real tmp369;
- fftw_real tmp376;
- ASSERT_ALIGNED_DOUBLE;
- tmp361 = K707106781 * (tmp357 - tmp360);
- tmp362 = tmp354 - tmp361;
- tmp400 = tmp354 + tmp361;
- tmp387 = (K382683432 * tmp375) - (K923879532 * tmp372);
- tmp388 = (K923879532 * tmp365) + (K382683432 * tmp368);
- tmp389 = tmp387 - tmp388;
- tmp401 = tmp387 + tmp388;
- tmp385 = K707106781 * (tmp383 - tmp384);
- tmp386 = tmp382 - tmp385;
- tmp396 = tmp382 + tmp385;
- tmp369 = (K382683432 * tmp365) - (K923879532 * tmp368);
- tmp376 = (K382683432 * tmp372) + (K923879532 * tmp375);
- tmp377 = tmp369 - tmp376;
- tmp397 = tmp376 + tmp369;
- }
- {
- fftw_real tmp378;
- fftw_real tmp390;
- fftw_real tmp351;
- fftw_real tmp379;
- ASSERT_ALIGNED_DOUBLE;
- tmp378 = tmp362 - tmp377;
- tmp390 = tmp386 - tmp389;
- tmp351 = c_re(W[29]);
- tmp379 = c_im(W[29]);
- X[30 * iostride] = (tmp351 * tmp378) + (tmp379 * tmp390);
- Y[-iostride] = (tmp351 * tmp390) - (tmp379 * tmp378);
- }
- {
- fftw_real tmp392;
- fftw_real tmp394;
- fftw_real tmp391;
- fftw_real tmp393;
- ASSERT_ALIGNED_DOUBLE;
- tmp392 = tmp362 + tmp377;
- tmp394 = tmp386 + tmp389;
- tmp391 = c_re(W[13]);
- tmp393 = c_im(W[13]);
- X[14 * iostride] = (tmp391 * tmp392) + (tmp393 * tmp394);
- Y[-17 * iostride] = (tmp391 * tmp394) - (tmp393 * tmp392);
- }
- {
- fftw_real tmp398;
- fftw_real tmp402;
- fftw_real tmp395;
- fftw_real tmp399;
- ASSERT_ALIGNED_DOUBLE;
- tmp398 = tmp396 - tmp397;
- tmp402 = tmp400 - tmp401;
- tmp395 = c_re(W[21]);
- tmp399 = c_im(W[21]);
- Y[-9 * iostride] = (tmp395 * tmp398) - (tmp399 * tmp402);
- X[22 * iostride] = (tmp399 * tmp398) + (tmp395 * tmp402);
- }
- {
- fftw_real tmp404;
- fftw_real tmp406;
- fftw_real tmp403;
- fftw_real tmp405;
- ASSERT_ALIGNED_DOUBLE;
- tmp404 = tmp396 + tmp397;
- tmp406 = tmp400 + tmp401;
- tmp403 = c_re(W[5]);
- tmp405 = c_im(W[5]);
- Y[-25 * iostride] = (tmp403 * tmp404) - (tmp405 * tmp406);
- X[6 * iostride] = (tmp405 * tmp404) + (tmp403 * tmp406);
- }
- }
- {
- fftw_real tmp590;
- fftw_real tmp628;
- fftw_real tmp617;
- fftw_real tmp629;
- fftw_real tmp605;
- fftw_real tmp625;
- fftw_real tmp614;
- fftw_real tmp624;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp582;
- fftw_real tmp589;
- fftw_real tmp615;
- fftw_real tmp616;
- ASSERT_ALIGNED_DOUBLE;
- tmp582 = tmp580 - tmp581;
- tmp589 = tmp585 + tmp588;
- tmp590 = tmp582 - tmp589;
- tmp628 = tmp582 + tmp589;
- tmp615 = (K831469612 * tmp603) - (K555570233 * tmp600);
- tmp616 = (K555570233 * tmp593) + (K831469612 * tmp596);
- tmp617 = tmp615 - tmp616;
- tmp629 = tmp615 + tmp616;
- }
- {
- fftw_real tmp597;
- fftw_real tmp604;
- fftw_real tmp610;
- fftw_real tmp613;
- ASSERT_ALIGNED_DOUBLE;
- tmp597 = (K831469612 * tmp593) - (K555570233 * tmp596);
- tmp604 = (K831469612 * tmp600) + (K555570233 * tmp603);
- tmp605 = tmp597 - tmp604;
- tmp625 = tmp604 + tmp597;
- tmp610 = tmp608 + tmp609;
- tmp613 = tmp611 - tmp612;
- tmp614 = tmp610 - tmp613;
- tmp624 = tmp610 + tmp613;
- }
- {
- fftw_real tmp606;
- fftw_real tmp618;
- fftw_real tmp579;
- fftw_real tmp607;
- ASSERT_ALIGNED_DOUBLE;
- tmp606 = tmp590 - tmp605;
- tmp618 = tmp614 - tmp617;
- tmp579 = c_re(W[26]);
- tmp607 = c_im(W[26]);
- X[27 * iostride] = (tmp579 * tmp606) + (tmp607 * tmp618);
- Y[-4 * iostride] = (tmp579 * tmp618) - (tmp607 * tmp606);
- }
- {
- fftw_real tmp620;
- fftw_real tmp622;
- fftw_real tmp619;
- fftw_real tmp621;
- ASSERT_ALIGNED_DOUBLE;
- tmp620 = tmp590 + tmp605;
- tmp622 = tmp614 + tmp617;
- tmp619 = c_re(W[10]);
- tmp621 = c_im(W[10]);
- X[11 * iostride] = (tmp619 * tmp620) + (tmp621 * tmp622);
- Y[-20 * iostride] = (tmp619 * tmp622) - (tmp621 * tmp620);
- }
- {
- fftw_real tmp626;
- fftw_real tmp630;
- fftw_real tmp623;
- fftw_real tmp627;
- ASSERT_ALIGNED_DOUBLE;
- tmp626 = tmp624 - tmp625;
- tmp630 = tmp628 - tmp629;
- tmp623 = c_re(W[18]);
- tmp627 = c_im(W[18]);
- Y[-12 * iostride] = (tmp623 * tmp626) - (tmp627 * tmp630);
- X[19 * iostride] = (tmp627 * tmp626) + (tmp623 * tmp630);
- }
- {
- fftw_real tmp632;
- fftw_real tmp634;
- fftw_real tmp631;
- fftw_real tmp633;
- ASSERT_ALIGNED_DOUBLE;
- tmp632 = tmp624 + tmp625;
- tmp634 = tmp628 + tmp629;
- tmp631 = c_re(W[2]);
- tmp633 = c_im(W[2]);
- Y[-28 * iostride] = (tmp631 * tmp632) - (tmp633 * tmp634);
- X[3 * iostride] = (tmp633 * tmp632) + (tmp631 * tmp634);
- }
- }
- {
- fftw_real tmp546;
- fftw_real tmp572;
- fftw_real tmp561;
- fftw_real tmp573;
- fftw_real tmp553;
- fftw_real tmp569;
- fftw_real tmp558;
- fftw_real tmp568;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp544;
- fftw_real tmp545;
- fftw_real tmp559;
- fftw_real tmp560;
- ASSERT_ALIGNED_DOUBLE;
- tmp544 = tmp446 + tmp453;
- tmp545 = tmp519 + tmp520;
- tmp546 = tmp544 + tmp545;
- tmp572 = tmp544 - tmp545;
- tmp559 = (K195090322 * tmp547) + (K980785280 * tmp548);
- tmp560 = (K980785280 * tmp551) - (K195090322 * tmp550);
- tmp561 = tmp559 + tmp560;
- tmp573 = tmp560 - tmp559;
- }
- {
- fftw_real tmp549;
- fftw_real tmp552;
- fftw_real tmp556;
- fftw_real tmp557;
- ASSERT_ALIGNED_DOUBLE;
- tmp549 = (K980785280 * tmp547) - (K195090322 * tmp548);
- tmp552 = (K980785280 * tmp550) + (K195090322 * tmp551);
- tmp553 = tmp549 + tmp552;
- tmp569 = tmp549 - tmp552;
- tmp556 = tmp514 + tmp517;
- tmp557 = tmp468 + tmp461;
- tmp558 = tmp556 + tmp557;
- tmp568 = tmp556 - tmp557;
- }
- {
- fftw_real tmp554;
- fftw_real tmp562;
- fftw_real tmp543;
- fftw_real tmp555;
- ASSERT_ALIGNED_DOUBLE;
- tmp554 = tmp546 - tmp553;
- tmp562 = tmp558 - tmp561;
- tmp543 = c_re(W[16]);
- tmp555 = c_im(W[16]);
- X[17 * iostride] = (tmp543 * tmp554) + (tmp555 * tmp562);
- Y[-14 * iostride] = (tmp543 * tmp562) - (tmp555 * tmp554);
- }
- {
- fftw_real tmp564;
- fftw_real tmp566;
- fftw_real tmp563;
- fftw_real tmp565;
- ASSERT_ALIGNED_DOUBLE;
- tmp564 = tmp546 + tmp553;
- tmp566 = tmp558 + tmp561;
- tmp563 = c_re(W[0]);
- tmp565 = c_im(W[0]);
- X[iostride] = (tmp563 * tmp564) + (tmp565 * tmp566);
- Y[-30 * iostride] = (tmp563 * tmp566) - (tmp565 * tmp564);
- }
- {
- fftw_real tmp570;
- fftw_real tmp574;
- fftw_real tmp567;
- fftw_real tmp571;
- ASSERT_ALIGNED_DOUBLE;
- tmp570 = tmp568 - tmp569;
- tmp574 = tmp572 - tmp573;
- tmp567 = c_re(W[24]);
- tmp571 = c_im(W[24]);
- Y[-6 * iostride] = (tmp567 * tmp570) - (tmp571 * tmp574);
- X[25 * iostride] = (tmp571 * tmp570) + (tmp567 * tmp574);
- }
- {
- fftw_real tmp576;
- fftw_real tmp578;
- fftw_real tmp575;
- fftw_real tmp577;
- ASSERT_ALIGNED_DOUBLE;
- tmp576 = tmp568 + tmp569;
- tmp578 = tmp572 + tmp573;
- tmp575 = c_re(W[8]);
- tmp577 = c_im(W[8]);
- Y[-22 * iostride] = (tmp575 * tmp576) - (tmp577 * tmp578);
- X[9 * iostride] = (tmp577 * tmp576) + (tmp575 * tmp578);
- }
- }
- {
- fftw_real tmp470;
- fftw_real tmp536;
- fftw_real tmp525;
- fftw_real tmp537;
- fftw_real tmp509;
- fftw_real tmp533;
- fftw_real tmp522;
- fftw_real tmp532;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp454;
- fftw_real tmp469;
- fftw_real tmp523;
- fftw_real tmp524;
- ASSERT_ALIGNED_DOUBLE;
- tmp454 = tmp446 - tmp453;
- tmp469 = tmp461 - tmp468;
- tmp470 = tmp454 + tmp469;
- tmp536 = tmp454 - tmp469;
- tmp523 = (K831469612 * tmp481) + (K555570233 * tmp488);
- tmp524 = (K555570233 * tmp507) - (K831469612 * tmp500);
- tmp525 = tmp523 + tmp524;
- tmp537 = tmp524 - tmp523;
- }
- {
- fftw_real tmp489;
- fftw_real tmp508;
- fftw_real tmp518;
- fftw_real tmp521;
- ASSERT_ALIGNED_DOUBLE;
- tmp489 = (K555570233 * tmp481) - (K831469612 * tmp488);
- tmp508 = (K555570233 * tmp500) + (K831469612 * tmp507);
- tmp509 = tmp489 + tmp508;
- tmp533 = tmp489 - tmp508;
- tmp518 = tmp514 - tmp517;
- tmp521 = tmp519 - tmp520;
- tmp522 = tmp518 + tmp521;
- tmp532 = tmp518 - tmp521;
- }
- {
- fftw_real tmp510;
- fftw_real tmp526;
- fftw_real tmp443;
- fftw_real tmp511;
- ASSERT_ALIGNED_DOUBLE;
- tmp510 = tmp470 - tmp509;
- tmp526 = tmp522 - tmp525;
- tmp443 = c_re(W[20]);
- tmp511 = c_im(W[20]);
- X[21 * iostride] = (tmp443 * tmp510) + (tmp511 * tmp526);
- Y[-10 * iostride] = (tmp443 * tmp526) - (tmp511 * tmp510);
- }
- {
- fftw_real tmp528;
- fftw_real tmp530;
- fftw_real tmp527;
- fftw_real tmp529;
- ASSERT_ALIGNED_DOUBLE;
- tmp528 = tmp470 + tmp509;
- tmp530 = tmp522 + tmp525;
- tmp527 = c_re(W[4]);
- tmp529 = c_im(W[4]);
- X[5 * iostride] = (tmp527 * tmp528) + (tmp529 * tmp530);
- Y[-26 * iostride] = (tmp527 * tmp530) - (tmp529 * tmp528);
- }
- {
- fftw_real tmp534;
- fftw_real tmp538;
- fftw_real tmp531;
- fftw_real tmp535;
- ASSERT_ALIGNED_DOUBLE;
- tmp534 = tmp532 - tmp533;
- tmp538 = tmp536 - tmp537;
- tmp531 = c_re(W[28]);
- tmp535 = c_im(W[28]);
- Y[-2 * iostride] = (tmp531 * tmp534) - (tmp535 * tmp538);
- X[29 * iostride] = (tmp535 * tmp534) + (tmp531 * tmp538);
- }
- {
- fftw_real tmp540;
- fftw_real tmp542;
- fftw_real tmp539;
- fftw_real tmp541;
- ASSERT_ALIGNED_DOUBLE;
- tmp540 = tmp532 + tmp533;
- tmp542 = tmp536 + tmp537;
- tmp539 = c_re(W[12]);
- tmp541 = c_im(W[12]);
- Y[-18 * iostride] = (tmp539 * tmp540) - (tmp541 * tmp542);
- X[13 * iostride] = (tmp541 * tmp540) + (tmp539 * tmp542);
- }
- }
- }
- if (i == m) {
- fftw_real tmp7;
- fftw_real tmp123;
- fftw_real tmp35;
- fftw_real tmp95;
- fftw_real tmp82;
- fftw_real tmp110;
- fftw_real tmp146;
- fftw_real tmp165;
- fftw_real tmp29;
- fftw_real tmp137;
- fftw_real tmp141;
- fftw_real tmp160;
- fftw_real tmp69;
- fftw_real tmp73;
- fftw_real tmp103;
- fftw_real tmp107;
- fftw_real tmp14;
- fftw_real tmp143;
- fftw_real tmp46;
- fftw_real tmp109;
- fftw_real tmp126;
- fftw_real tmp166;
- fftw_real tmp77;
- fftw_real tmp96;
- fftw_real tmp22;
- fftw_real tmp132;
- fftw_real tmp140;
- fftw_real tmp161;
- fftw_real tmp58;
- fftw_real tmp72;
- fftw_real tmp100;
- fftw_real tmp106;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp31;
- fftw_real tmp81;
- fftw_real tmp144;
- fftw_real tmp6;
- fftw_real tmp78;
- fftw_real tmp34;
- fftw_real tmp145;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp79;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp2 = X[15 * iostride];
- tmp3 = tmp1 + tmp2;
- tmp31 = tmp1 - tmp2;
- tmp79 = Y[0];
- tmp80 = Y[-15 * iostride];
- tmp81 = tmp79 + tmp80;
- tmp144 = tmp79 - tmp80;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp32;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = X[8 * iostride];
- tmp5 = X[7 * iostride];
- tmp6 = tmp4 + tmp5;
- tmp78 = tmp4 - tmp5;
- tmp32 = Y[-8 * iostride];
- tmp33 = Y[-7 * iostride];
- tmp34 = tmp32 + tmp33;
- tmp145 = tmp32 - tmp33;
- }
- tmp7 = tmp3 + tmp6;
- tmp123 = tmp3 - tmp6;
- tmp35 = tmp31 - tmp34;
- tmp95 = tmp31 + tmp34;
- tmp82 = tmp78 + tmp81;
- tmp110 = tmp81 - tmp78;
- tmp146 = tmp144 - tmp145;
- tmp165 = tmp145 + tmp144;
- }
- {
- fftw_real tmp25;
- fftw_real tmp59;
- fftw_real tmp67;
- fftw_real tmp134;
- fftw_real tmp28;
- fftw_real tmp64;
- fftw_real tmp62;
- fftw_real tmp135;
- fftw_real tmp133;
- fftw_real tmp136;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp65;
- fftw_real tmp66;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = X[iostride];
- tmp24 = X[14 * iostride];
- tmp25 = tmp23 + tmp24;
- tmp59 = tmp23 - tmp24;
- tmp65 = Y[-iostride];
- tmp66 = Y[-14 * iostride];
- tmp67 = tmp65 + tmp66;
- tmp134 = tmp66 - tmp65;
- }
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp60;
- fftw_real tmp61;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = X[6 * iostride];
- tmp27 = X[9 * iostride];
- tmp28 = tmp26 + tmp27;
- tmp64 = tmp26 - tmp27;
- tmp60 = Y[-6 * iostride];
- tmp61 = Y[-9 * iostride];
- tmp62 = tmp60 + tmp61;
- tmp135 = tmp60 - tmp61;
- }
- tmp29 = tmp25 + tmp28;
- tmp133 = tmp25 - tmp28;
- tmp136 = tmp134 - tmp135;
- tmp137 = tmp133 + tmp136;
- tmp141 = tmp136 - tmp133;
- tmp160 = tmp135 + tmp134;
- {
- fftw_real tmp63;
- fftw_real tmp68;
- fftw_real tmp101;
- fftw_real tmp102;
- ASSERT_ALIGNED_DOUBLE;
- tmp63 = tmp59 - tmp62;
- tmp68 = tmp64 - tmp67;
- tmp69 = (K923879532 * tmp63) + (K382683432 * tmp68);
- tmp73 = (K923879532 * tmp68) - (K382683432 * tmp63);
- tmp101 = tmp59 + tmp62;
- tmp102 = tmp64 + tmp67;
- tmp103 = (K382683432 * tmp101) - (K923879532 * tmp102);
- tmp107 = (K923879532 * tmp101) + (K382683432 * tmp102);
- }
- }
- {
- fftw_real tmp10;
- fftw_real tmp36;
- fftw_real tmp39;
- fftw_real tmp125;
- fftw_real tmp13;
- fftw_real tmp41;
- fftw_real tmp44;
- fftw_real tmp124;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp37;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = X[4 * iostride];
- tmp9 = X[11 * iostride];
- tmp10 = tmp8 + tmp9;
- tmp36 = tmp8 - tmp9;
- tmp37 = Y[-4 * iostride];
- tmp38 = Y[-11 * iostride];
- tmp39 = tmp37 + tmp38;
- tmp125 = tmp37 - tmp38;
- }
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp42;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = X[3 * iostride];
- tmp12 = X[12 * iostride];
- tmp13 = tmp11 + tmp12;
- tmp41 = tmp11 - tmp12;
- tmp42 = Y[-3 * iostride];
- tmp43 = Y[-12 * iostride];
- tmp44 = tmp42 + tmp43;
- tmp124 = tmp43 - tmp42;
- }
- {
- fftw_real tmp40;
- fftw_real tmp45;
- fftw_real tmp75;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = tmp10 + tmp13;
- tmp143 = tmp10 - tmp13;
- tmp40 = tmp36 - tmp39;
- tmp45 = tmp41 - tmp44;
- tmp46 = K707106781 * (tmp40 + tmp45);
- tmp109 = K707106781 * (tmp40 - tmp45);
- tmp126 = tmp124 - tmp125;
- tmp166 = tmp125 + tmp124;
- tmp75 = tmp36 + tmp39;
- tmp76 = tmp41 + tmp44;
- tmp77 = K707106781 * (tmp75 - tmp76);
- tmp96 = K707106781 * (tmp75 + tmp76);
- }
- }
- {
- fftw_real tmp18;
- fftw_real tmp48;
- fftw_real tmp56;
- fftw_real tmp129;
- fftw_real tmp21;
- fftw_real tmp53;
- fftw_real tmp51;
- fftw_real tmp130;
- fftw_real tmp128;
- fftw_real tmp131;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp54;
- fftw_real tmp55;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = X[2 * iostride];
- tmp17 = X[13 * iostride];
- tmp18 = tmp16 + tmp17;
- tmp48 = tmp16 - tmp17;
- tmp54 = Y[-2 * iostride];
- tmp55 = Y[-13 * iostride];
- tmp56 = tmp54 + tmp55;
- tmp129 = tmp54 - tmp55;
- }
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp49;
- fftw_real tmp50;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = X[10 * iostride];
- tmp20 = X[5 * iostride];
- tmp21 = tmp19 + tmp20;
- tmp53 = tmp19 - tmp20;
- tmp49 = Y[-10 * iostride];
- tmp50 = Y[-5 * iostride];
- tmp51 = tmp49 + tmp50;
- tmp130 = tmp49 - tmp50;
- }
- tmp22 = tmp18 + tmp21;
- tmp128 = tmp18 - tmp21;
- tmp131 = tmp129 - tmp130;
- tmp132 = tmp128 - tmp131;
- tmp140 = tmp128 + tmp131;
- tmp161 = tmp130 + tmp129;
- {
- fftw_real tmp52;
- fftw_real tmp57;
- fftw_real tmp98;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- tmp52 = tmp48 - tmp51;
- tmp57 = tmp53 + tmp56;
- tmp58 = (K923879532 * tmp52) - (K382683432 * tmp57);
- tmp72 = (K382683432 * tmp52) + (K923879532 * tmp57);
- tmp98 = tmp48 + tmp51;
- tmp99 = tmp56 - tmp53;
- tmp100 = (K382683432 * tmp98) - (K923879532 * tmp99);
- tmp106 = (K923879532 * tmp98) + (K382683432 * tmp99);
- }
- }
- {
- fftw_real tmp15;
- fftw_real tmp30;
- fftw_real tmp171;
- fftw_real tmp172;
- fftw_real tmp173;
- fftw_real tmp174;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = tmp7 + tmp14;
- tmp30 = tmp22 + tmp29;
- tmp171 = tmp15 - tmp30;
- tmp172 = tmp166 + tmp165;
- tmp173 = tmp161 + tmp160;
- tmp174 = tmp172 - tmp173;
- X[0] = K2_000000000 * (tmp15 + tmp30);
- X[16 * iostride] = -(K2_000000000 * (tmp173 + tmp172));
- X[8 * iostride] = K1_414213562 * (tmp171 - tmp174);
- X[24 * iostride] = -(K1_414213562 * (tmp171 + tmp174));
- }
- {
- fftw_real tmp163;
- fftw_real tmp169;
- fftw_real tmp168;
- fftw_real tmp170;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp159;
- fftw_real tmp162;
- fftw_real tmp164;
- fftw_real tmp167;
- ASSERT_ALIGNED_DOUBLE;
- tmp159 = tmp7 - tmp14;
- tmp162 = tmp160 - tmp161;
- tmp163 = tmp159 + tmp162;
- tmp169 = tmp159 - tmp162;
- tmp164 = tmp22 - tmp29;
- tmp167 = tmp165 - tmp166;
- tmp168 = tmp164 + tmp167;
- tmp170 = tmp167 - tmp164;
- }
- X[4 * iostride] = (K1_847759065 * tmp163) - (K765366864 * tmp168);
- X[20 * iostride] = -((K765366864 * tmp163) + (K1_847759065 * tmp168));
- X[12 * iostride] = (K765366864 * tmp169) - (K1_847759065 * tmp170);
- X[28 * iostride] = -((K1_847759065 * tmp169) + (K765366864 * tmp170));
- }
- {
- fftw_real tmp71;
- fftw_real tmp85;
- fftw_real tmp84;
- fftw_real tmp86;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp47;
- fftw_real tmp70;
- fftw_real tmp74;
- fftw_real tmp83;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = tmp35 + tmp46;
- tmp70 = tmp58 + tmp69;
- tmp71 = tmp47 + tmp70;
- tmp85 = tmp47 - tmp70;
- tmp74 = tmp72 + tmp73;
- tmp83 = tmp77 + tmp82;
- tmp84 = tmp74 + tmp83;
- tmp86 = tmp83 - tmp74;
- }
- X[iostride] = (K1_990369453 * tmp71) - (K196034280 * tmp84);
- X[17 * iostride] = -((K196034280 * tmp71) + (K1_990369453 * tmp84));
- X[9 * iostride] = (K1_268786568 * tmp85) - (K1_546020906 * tmp86);
- X[25 * iostride] = -((K1_546020906 * tmp85) + (K1_268786568 * tmp86));
- }
- {
- fftw_real tmp89;
- fftw_real tmp93;
- fftw_real tmp92;
- fftw_real tmp94;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp87;
- fftw_real tmp88;
- fftw_real tmp90;
- fftw_real tmp91;
- ASSERT_ALIGNED_DOUBLE;
- tmp87 = tmp35 - tmp46;
- tmp88 = tmp73 - tmp72;
- tmp89 = tmp87 + tmp88;
- tmp93 = tmp87 - tmp88;
- tmp90 = tmp58 - tmp69;
- tmp91 = tmp82 - tmp77;
- tmp92 = tmp90 + tmp91;
- tmp94 = tmp91 - tmp90;
- }
- X[5 * iostride] = (K1_763842528 * tmp89) - (K942793473 * tmp92);
- X[21 * iostride] = -((K942793473 * tmp89) + (K1_763842528 * tmp92));
- X[13 * iostride] = (K580569354 * tmp93) - (K1_913880671 * tmp94);
- X[29 * iostride] = -((K1_913880671 * tmp93) + (K580569354 * tmp94));
- }
- {
- fftw_real tmp105;
- fftw_real tmp113;
- fftw_real tmp112;
- fftw_real tmp114;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp97;
- fftw_real tmp104;
- fftw_real tmp108;
- fftw_real tmp111;
- ASSERT_ALIGNED_DOUBLE;
- tmp97 = tmp95 - tmp96;
- tmp104 = tmp100 + tmp103;
- tmp105 = tmp97 + tmp104;
- tmp113 = tmp97 - tmp104;
- tmp108 = tmp106 - tmp107;
- tmp111 = tmp109 + tmp110;
- tmp112 = tmp108 + tmp111;
- tmp114 = tmp111 - tmp108;
- }
- X[3 * iostride] = (K1_913880671 * tmp105) - (K580569354 * tmp112);
- X[19 * iostride] = -((K580569354 * tmp105) + (K1_913880671 * tmp112));
- X[11 * iostride] = (K942793473 * tmp113) - (K1_763842528 * tmp114);
- X[27 * iostride] = -((K1_763842528 * tmp113) + (K942793473 * tmp114));
- }
- {
- fftw_real tmp117;
- fftw_real tmp121;
- fftw_real tmp120;
- fftw_real tmp122;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp115;
- fftw_real tmp116;
- fftw_real tmp118;
- fftw_real tmp119;
- ASSERT_ALIGNED_DOUBLE;
- tmp115 = tmp95 + tmp96;
- tmp116 = tmp106 + tmp107;
- tmp117 = tmp115 - tmp116;
- tmp121 = tmp115 + tmp116;
- tmp118 = tmp100 - tmp103;
- tmp119 = tmp110 - tmp109;
- tmp120 = tmp118 + tmp119;
- tmp122 = tmp119 - tmp118;
- }
- X[7 * iostride] = (K1_546020906 * tmp117) - (K1_268786568 * tmp120);
- X[23 * iostride] = -((K1_268786568 * tmp117) + (K1_546020906 * tmp120));
- X[15 * iostride] = (K196034280 * tmp121) - (K1_990369453 * tmp122);
- X[31 * iostride] = -((K1_990369453 * tmp121) + (K196034280 * tmp122));
- }
- {
- fftw_real tmp139;
- fftw_real tmp149;
- fftw_real tmp148;
- fftw_real tmp150;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp127;
- fftw_real tmp138;
- fftw_real tmp142;
- fftw_real tmp147;
- ASSERT_ALIGNED_DOUBLE;
- tmp127 = tmp123 + tmp126;
- tmp138 = K707106781 * (tmp132 + tmp137);
- tmp139 = tmp127 + tmp138;
- tmp149 = tmp127 - tmp138;
- tmp142 = K707106781 * (tmp140 + tmp141);
- tmp147 = tmp143 + tmp146;
- tmp148 = tmp142 + tmp147;
- tmp150 = tmp147 - tmp142;
- }
- X[2 * iostride] = (K1_961570560 * tmp139) - (K390180644 * tmp148);
- X[18 * iostride] = -((K390180644 * tmp139) + (K1_961570560 * tmp148));
- X[10 * iostride] = (K1_111140466 * tmp149) - (K1_662939224 * tmp150);
- X[26 * iostride] = -((K1_662939224 * tmp149) + (K1_111140466 * tmp150));
- }
- {
- fftw_real tmp153;
- fftw_real tmp157;
- fftw_real tmp156;
- fftw_real tmp158;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp151;
- fftw_real tmp152;
- fftw_real tmp154;
- fftw_real tmp155;
- ASSERT_ALIGNED_DOUBLE;
- tmp151 = tmp123 - tmp126;
- tmp152 = K707106781 * (tmp141 - tmp140);
- tmp153 = tmp151 + tmp152;
- tmp157 = tmp151 - tmp152;
- tmp154 = K707106781 * (tmp132 - tmp137);
- tmp155 = tmp146 - tmp143;
- tmp156 = tmp154 + tmp155;
- tmp158 = tmp155 - tmp154;
- }
- X[6 * iostride] = (K1_662939224 * tmp153) - (K1_111140466 * tmp156);
- X[22 * iostride] = -((K1_111140466 * tmp153) + (K1_662939224 * tmp156));
- X[14 * iostride] = (K390180644 * tmp157) - (K1_961570560 * tmp158);
- X[30 * iostride] = -((K1_961570560 * tmp157) + (K390180644 * tmp158));
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31};
-fftw_codelet_desc fftw_hc2hc_backward_32_desc =
-{
- "fftw_hc2hc_backward_32",
- (void (*)()) fftw_hc2hc_backward_32,
- 32,
- FFTW_BACKWARD,
- FFTW_HC2HC,
- 718,
- 31,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhb_4.c b/src/sndobj/rfftw/fhb_4.c
deleted file mode 100644
index 5400df3..0000000
--- a/src/sndobj/rfftw/fhb_4.c
+++ /dev/null
@@ -1,193 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:10 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 4 */
-
-/*
- * This function contains 34 FP additions, 18 FP multiplications,
- * (or, 28 additions, 12 multiplications, 6 fused multiply/add),
- * 15 stack variables, and 32 memory accesses
- */
-static const fftw_real K1_414213562 = FFTW_KONST(+1.414213562373095048801688724209698078569671875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fhb_4.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fhb_4.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fhb_4.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- */
-
-void fftw_hc2hc_backward_4(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (4 * iostride);
- {
- fftw_real tmp39;
- fftw_real tmp42;
- fftw_real tmp37;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp38;
- fftw_real tmp41;
- fftw_real tmp35;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = X[iostride];
- tmp39 = K2_000000000 * tmp38;
- tmp41 = Y[-iostride];
- tmp42 = K2_000000000 * tmp41;
- tmp35 = X[0];
- tmp36 = X[2 * iostride];
- tmp37 = tmp35 + tmp36;
- tmp40 = tmp35 - tmp36;
- }
- X[2 * iostride] = tmp37 - tmp39;
- X[0] = tmp37 + tmp39;
- X[3 * iostride] = tmp40 + tmp42;
- X[iostride] = tmp40 - tmp42;
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 3) {
- fftw_real tmp9;
- fftw_real tmp28;
- fftw_real tmp18;
- fftw_real tmp25;
- fftw_real tmp12;
- fftw_real tmp24;
- fftw_real tmp21;
- fftw_real tmp29;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp16;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = X[0];
- tmp8 = Y[-2 * iostride];
- tmp9 = tmp7 + tmp8;
- tmp28 = tmp7 - tmp8;
- tmp16 = Y[0];
- tmp17 = X[2 * iostride];
- tmp18 = tmp16 - tmp17;
- tmp25 = tmp16 + tmp17;
- }
- {
- fftw_real tmp10;
- fftw_real tmp11;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp10 = X[iostride];
- tmp11 = Y[-3 * iostride];
- tmp12 = tmp10 + tmp11;
- tmp24 = tmp10 - tmp11;
- tmp19 = Y[-iostride];
- tmp20 = X[3 * iostride];
- tmp21 = tmp19 - tmp20;
- tmp29 = tmp19 + tmp20;
- }
- X[0] = tmp9 + tmp12;
- {
- fftw_real tmp14;
- fftw_real tmp22;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = tmp9 - tmp12;
- tmp22 = tmp18 - tmp21;
- tmp13 = c_re(W[1]);
- tmp15 = c_im(W[1]);
- X[2 * iostride] = (tmp13 * tmp14) + (tmp15 * tmp22);
- Y[-iostride] = (tmp13 * tmp22) - (tmp15 * tmp14);
- }
- Y[-3 * iostride] = tmp18 + tmp21;
- {
- fftw_real tmp26;
- fftw_real tmp30;
- fftw_real tmp23;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = tmp24 + tmp25;
- tmp30 = tmp28 - tmp29;
- tmp23 = c_re(W[0]);
- tmp27 = c_im(W[0]);
- Y[-2 * iostride] = (tmp23 * tmp26) - (tmp27 * tmp30);
- X[iostride] = (tmp27 * tmp26) + (tmp23 * tmp30);
- }
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = tmp25 - tmp24;
- tmp34 = tmp28 + tmp29;
- tmp31 = c_re(W[2]);
- tmp33 = c_im(W[2]);
- Y[0] = (tmp31 * tmp32) - (tmp33 * tmp34);
- X[3 * iostride] = (tmp33 * tmp32) + (tmp31 * tmp34);
- }
- }
- if (i == m) {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp6;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp2 = X[iostride];
- tmp3 = tmp1 - tmp2;
- tmp4 = Y[0];
- tmp5 = Y[-iostride];
- tmp6 = tmp4 + tmp5;
- X[0] = K2_000000000 * (tmp1 + tmp2);
- X[2 * iostride] = -(K2_000000000 * (tmp4 - tmp5));
- X[iostride] = K1_414213562 * (tmp3 - tmp6);
- X[3 * iostride] = -(K1_414213562 * (tmp3 + tmp6));
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3};
-fftw_codelet_desc fftw_hc2hc_backward_4_desc =
-{
- "fftw_hc2hc_backward_4",
- (void (*)()) fftw_hc2hc_backward_4,
- 4,
- FFTW_BACKWARD,
- FFTW_HC2HC,
- 102,
- 3,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhb_5.c b/src/sndobj/rfftw/fhb_5.c
deleted file mode 100644
index 59b57c9..0000000
--- a/src/sndobj/rfftw/fhb_5.c
+++ /dev/null
@@ -1,276 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:10 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 5 */
-
-/*
- * This function contains 64 FP additions, 42 FP multiplications,
- * (or, 42 additions, 20 multiplications, 22 fused multiply/add),
- * 25 stack variables, and 40 memory accesses
- */
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K1_118033988 = FFTW_KONST(+1.118033988749894848204586834365638117720309180);
-static const fftw_real K1_175570504 = FFTW_KONST(+1.175570504584946258337411909278145537195304875);
-static const fftw_real K1_902113032 = FFTW_KONST(+1.902113032590307144232878666758764286811397268);
-
-/*
- * Generator Id's :
- * $Id: fhb_5.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fhb_5.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fhb_5.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftw_hc2hc_backward_5(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (5 * iostride);
- {
- fftw_real tmp70;
- fftw_real tmp72;
- fftw_real tmp61;
- fftw_real tmp64;
- fftw_real tmp65;
- fftw_real tmp66;
- fftw_real tmp71;
- fftw_real tmp67;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp68;
- fftw_real tmp69;
- fftw_real tmp62;
- fftw_real tmp63;
- ASSERT_ALIGNED_DOUBLE;
- tmp68 = Y[-iostride];
- tmp69 = Y[-2 * iostride];
- tmp70 = (K1_902113032 * tmp68) + (K1_175570504 * tmp69);
- tmp72 = (K1_902113032 * tmp69) - (K1_175570504 * tmp68);
- tmp61 = X[0];
- tmp62 = X[iostride];
- tmp63 = X[2 * iostride];
- tmp64 = tmp62 + tmp63;
- tmp65 = K1_118033988 * (tmp62 - tmp63);
- tmp66 = tmp61 - (K500000000 * tmp64);
- }
- X[0] = tmp61 + (K2_000000000 * tmp64);
- tmp71 = tmp66 - tmp65;
- X[3 * iostride] = tmp71 - tmp72;
- X[2 * iostride] = tmp71 + tmp72;
- tmp67 = tmp65 + tmp66;
- X[4 * iostride] = tmp67 + tmp70;
- X[iostride] = tmp67 - tmp70;
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 4) {
- fftw_real tmp13;
- fftw_real tmp32;
- fftw_real tmp50;
- fftw_real tmp39;
- fftw_real tmp20;
- fftw_real tmp38;
- fftw_real tmp21;
- fftw_real tmp34;
- fftw_real tmp28;
- fftw_real tmp33;
- fftw_real tmp43;
- fftw_real tmp55;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp19;
- fftw_real tmp31;
- fftw_real tmp16;
- fftw_real tmp30;
- ASSERT_ALIGNED_DOUBLE;
- tmp13 = X[0];
- {
- fftw_real tmp17;
- fftw_real tmp18;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp17 = X[2 * iostride];
- tmp18 = Y[-3 * iostride];
- tmp19 = tmp17 + tmp18;
- tmp31 = tmp17 - tmp18;
- tmp14 = X[iostride];
- tmp15 = Y[-4 * iostride];
- tmp16 = tmp14 + tmp15;
- tmp30 = tmp14 - tmp15;
- }
- tmp32 = (K587785252 * tmp30) - (K951056516 * tmp31);
- tmp50 = (K951056516 * tmp30) + (K587785252 * tmp31);
- tmp39 = K559016994 * (tmp16 - tmp19);
- tmp20 = tmp16 + tmp19;
- tmp38 = tmp13 - (K250000000 * tmp20);
- }
- {
- fftw_real tmp27;
- fftw_real tmp42;
- fftw_real tmp24;
- fftw_real tmp41;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = Y[0];
- {
- fftw_real tmp25;
- fftw_real tmp26;
- fftw_real tmp22;
- fftw_real tmp23;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = Y[-2 * iostride];
- tmp26 = X[3 * iostride];
- tmp27 = tmp25 - tmp26;
- tmp42 = tmp25 + tmp26;
- tmp22 = Y[-iostride];
- tmp23 = X[4 * iostride];
- tmp24 = tmp22 - tmp23;
- tmp41 = tmp22 + tmp23;
- }
- tmp34 = K559016994 * (tmp24 - tmp27);
- tmp28 = tmp24 + tmp27;
- tmp33 = tmp21 - (K250000000 * tmp28);
- tmp43 = (K587785252 * tmp41) - (K951056516 * tmp42);
- tmp55 = (K951056516 * tmp41) + (K587785252 * tmp42);
- }
- X[0] = tmp13 + tmp20;
- {
- fftw_real tmp52;
- fftw_real tmp58;
- fftw_real tmp56;
- fftw_real tmp60;
- fftw_real tmp51;
- fftw_real tmp54;
- ASSERT_ALIGNED_DOUBLE;
- tmp51 = tmp34 + tmp33;
- tmp52 = tmp50 + tmp51;
- tmp58 = tmp51 - tmp50;
- tmp54 = tmp39 + tmp38;
- tmp56 = tmp54 - tmp55;
- tmp60 = tmp54 + tmp55;
- {
- fftw_real tmp49;
- fftw_real tmp53;
- fftw_real tmp57;
- fftw_real tmp59;
- ASSERT_ALIGNED_DOUBLE;
- tmp49 = c_re(W[0]);
- tmp53 = c_im(W[0]);
- Y[-3 * iostride] = (tmp49 * tmp52) - (tmp53 * tmp56);
- X[iostride] = (tmp53 * tmp52) + (tmp49 * tmp56);
- tmp57 = c_re(W[3]);
- tmp59 = c_im(W[3]);
- Y[0] = (tmp57 * tmp58) - (tmp59 * tmp60);
- X[4 * iostride] = (tmp59 * tmp58) + (tmp57 * tmp60);
- }
- }
- Y[-4 * iostride] = tmp21 + tmp28;
- {
- fftw_real tmp36;
- fftw_real tmp46;
- fftw_real tmp44;
- fftw_real tmp48;
- fftw_real tmp35;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp35 = tmp33 - tmp34;
- tmp36 = tmp32 + tmp35;
- tmp46 = tmp35 - tmp32;
- tmp40 = tmp38 - tmp39;
- tmp44 = tmp40 - tmp43;
- tmp48 = tmp40 + tmp43;
- {
- fftw_real tmp29;
- fftw_real tmp37;
- fftw_real tmp45;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- tmp29 = c_re(W[1]);
- tmp37 = c_im(W[1]);
- Y[-2 * iostride] = (tmp29 * tmp36) - (tmp37 * tmp44);
- X[2 * iostride] = (tmp37 * tmp36) + (tmp29 * tmp44);
- tmp45 = c_re(W[2]);
- tmp47 = c_im(W[2]);
- Y[-iostride] = (tmp45 * tmp46) - (tmp47 * tmp48);
- X[3 * iostride] = (tmp47 * tmp46) + (tmp45 * tmp48);
- }
- }
- }
- if (i == m) {
- fftw_real tmp10;
- fftw_real tmp12;
- fftw_real tmp1;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp6;
- fftw_real tmp11;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp2;
- fftw_real tmp3;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = Y[-iostride];
- tmp9 = Y[0];
- tmp10 = (K1_902113032 * tmp8) + (K1_175570504 * tmp9);
- tmp12 = (K1_175570504 * tmp8) - (K1_902113032 * tmp9);
- tmp1 = X[2 * iostride];
- tmp2 = X[iostride];
- tmp3 = X[0];
- tmp4 = tmp2 + tmp3;
- tmp5 = (K500000000 * tmp4) - tmp1;
- tmp6 = K1_118033988 * (tmp3 - tmp2);
- }
- X[0] = tmp1 + (K2_000000000 * tmp4);
- tmp11 = tmp6 - tmp5;
- X[2 * iostride] = tmp11 + tmp12;
- X[3 * iostride] = tmp12 - tmp11;
- tmp7 = tmp5 + tmp6;
- X[iostride] = tmp7 - tmp10;
- X[4 * iostride] = -(tmp7 + tmp10);
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4};
-fftw_codelet_desc fftw_hc2hc_backward_5_desc =
-{
- "fftw_hc2hc_backward_5",
- (void (*)()) fftw_hc2hc_backward_5,
- 5,
- FFTW_BACKWARD,
- FFTW_HC2HC,
- 124,
- 4,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhb_6.c b/src/sndobj/rfftw/fhb_6.c
deleted file mode 100644
index 5c062a8..0000000
--- a/src/sndobj/rfftw/fhb_6.c
+++ /dev/null
@@ -1,301 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:10 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 6 */
-
-/*
- * This function contains 72 FP additions, 38 FP multiplications,
- * (or, 54 additions, 20 multiplications, 18 fused multiply/add),
- * 25 stack variables, and 48 memory accesses
- */
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-
-/*
- * Generator Id's :
- * $Id: fhb_6.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fhb_6.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fhb_6.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftw_hc2hc_backward_6(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (6 * iostride);
- {
- fftw_real tmp71;
- fftw_real tmp75;
- fftw_real tmp80;
- fftw_real tmp82;
- fftw_real tmp74;
- fftw_real tmp76;
- fftw_real tmp69;
- fftw_real tmp70;
- fftw_real tmp77;
- fftw_real tmp81;
- ASSERT_ALIGNED_DOUBLE;
- tmp69 = X[0];
- tmp70 = X[3 * iostride];
- tmp71 = tmp69 - tmp70;
- tmp75 = tmp69 + tmp70;
- {
- fftw_real tmp78;
- fftw_real tmp79;
- fftw_real tmp72;
- fftw_real tmp73;
- ASSERT_ALIGNED_DOUBLE;
- tmp78 = Y[-2 * iostride];
- tmp79 = Y[-iostride];
- tmp80 = K1_732050807 * (tmp78 + tmp79);
- tmp82 = K1_732050807 * (tmp78 - tmp79);
- tmp72 = X[2 * iostride];
- tmp73 = X[iostride];
- tmp74 = tmp72 - tmp73;
- tmp76 = tmp72 + tmp73;
- }
- X[3 * iostride] = tmp71 + (K2_000000000 * tmp74);
- tmp77 = tmp71 - tmp74;
- X[iostride] = tmp77 - tmp80;
- X[5 * iostride] = tmp77 + tmp80;
- X[0] = tmp75 + (K2_000000000 * tmp76);
- tmp81 = tmp75 - tmp76;
- X[2 * iostride] = tmp81 + tmp82;
- X[4 * iostride] = tmp81 - tmp82;
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 5) {
- fftw_real tmp15;
- fftw_real tmp46;
- fftw_real tmp25;
- fftw_real tmp52;
- fftw_real tmp22;
- fftw_real tmp35;
- fftw_real tmp49;
- fftw_real tmp62;
- fftw_real tmp32;
- fftw_real tmp39;
- fftw_real tmp55;
- fftw_real tmp59;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp13;
- fftw_real tmp14;
- fftw_real tmp23;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- tmp13 = X[0];
- tmp14 = Y[-3 * iostride];
- tmp15 = tmp13 + tmp14;
- tmp46 = tmp13 - tmp14;
- tmp23 = Y[0];
- tmp24 = X[3 * iostride];
- tmp25 = tmp23 - tmp24;
- tmp52 = tmp23 + tmp24;
- }
- {
- fftw_real tmp18;
- fftw_real tmp47;
- fftw_real tmp21;
- fftw_real tmp48;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = X[2 * iostride];
- tmp17 = Y[-5 * iostride];
- tmp18 = tmp16 + tmp17;
- tmp47 = tmp16 - tmp17;
- tmp19 = Y[-4 * iostride];
- tmp20 = X[iostride];
- tmp21 = tmp19 + tmp20;
- tmp48 = tmp19 - tmp20;
- }
- tmp22 = tmp18 + tmp21;
- tmp35 = K866025403 * (tmp18 - tmp21);
- tmp49 = tmp47 + tmp48;
- tmp62 = K866025403 * (tmp47 - tmp48);
- }
- {
- fftw_real tmp28;
- fftw_real tmp54;
- fftw_real tmp31;
- fftw_real tmp53;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp29;
- fftw_real tmp30;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = Y[-2 * iostride];
- tmp27 = X[5 * iostride];
- tmp28 = tmp26 - tmp27;
- tmp54 = tmp26 + tmp27;
- tmp29 = Y[-iostride];
- tmp30 = X[4 * iostride];
- tmp31 = tmp29 - tmp30;
- tmp53 = tmp29 + tmp30;
- }
- tmp32 = tmp28 + tmp31;
- tmp39 = K866025403 * (tmp31 - tmp28);
- tmp55 = tmp53 - tmp54;
- tmp59 = K866025403 * (tmp54 + tmp53);
- }
- X[0] = tmp15 + tmp22;
- {
- fftw_real tmp36;
- fftw_real tmp42;
- fftw_real tmp40;
- fftw_real tmp44;
- fftw_real tmp34;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp34 = tmp25 - (K500000000 * tmp32);
- tmp36 = tmp34 - tmp35;
- tmp42 = tmp35 + tmp34;
- tmp38 = tmp15 - (K500000000 * tmp22);
- tmp40 = tmp38 - tmp39;
- tmp44 = tmp38 + tmp39;
- {
- fftw_real tmp33;
- fftw_real tmp37;
- fftw_real tmp41;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- tmp33 = c_re(W[1]);
- tmp37 = c_im(W[1]);
- Y[-3 * iostride] = (tmp33 * tmp36) - (tmp37 * tmp40);
- X[2 * iostride] = (tmp37 * tmp36) + (tmp33 * tmp40);
- tmp41 = c_re(W[3]);
- tmp43 = c_im(W[3]);
- Y[-iostride] = (tmp41 * tmp42) - (tmp43 * tmp44);
- X[4 * iostride] = (tmp43 * tmp42) + (tmp41 * tmp44);
- }
- }
- Y[-5 * iostride] = tmp25 + tmp32;
- {
- fftw_real tmp50;
- fftw_real tmp56;
- fftw_real tmp45;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = tmp46 + tmp49;
- tmp56 = tmp52 - tmp55;
- tmp45 = c_re(W[2]);
- tmp51 = c_im(W[2]);
- X[3 * iostride] = (tmp45 * tmp50) + (tmp51 * tmp56);
- Y[-2 * iostride] = (tmp45 * tmp56) - (tmp51 * tmp50);
- }
- {
- fftw_real tmp60;
- fftw_real tmp66;
- fftw_real tmp64;
- fftw_real tmp68;
- fftw_real tmp58;
- fftw_real tmp63;
- ASSERT_ALIGNED_DOUBLE;
- tmp58 = tmp46 - (K500000000 * tmp49);
- tmp60 = tmp58 - tmp59;
- tmp66 = tmp58 + tmp59;
- tmp63 = tmp52 + (K500000000 * tmp55);
- tmp64 = tmp62 + tmp63;
- tmp68 = tmp63 - tmp62;
- {
- fftw_real tmp57;
- fftw_real tmp61;
- fftw_real tmp65;
- fftw_real tmp67;
- ASSERT_ALIGNED_DOUBLE;
- tmp57 = c_re(W[0]);
- tmp61 = c_im(W[0]);
- X[iostride] = (tmp57 * tmp60) + (tmp61 * tmp64);
- Y[-4 * iostride] = (tmp57 * tmp64) - (tmp61 * tmp60);
- tmp65 = c_re(W[4]);
- tmp67 = c_im(W[4]);
- X[5 * iostride] = (tmp65 * tmp66) + (tmp67 * tmp68);
- Y[0] = (tmp65 * tmp68) - (tmp67 * tmp66);
- }
- }
- }
- if (i == m) {
- fftw_real tmp1;
- fftw_real tmp6;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[iostride];
- tmp6 = Y[-iostride];
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp7;
- fftw_real tmp8;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = X[2 * iostride];
- tmp3 = X[0];
- tmp4 = tmp2 + tmp3;
- tmp5 = K1_732050807 * (tmp2 - tmp3);
- tmp7 = Y[-2 * iostride];
- tmp8 = Y[0];
- tmp9 = tmp7 + tmp8;
- tmp11 = K1_732050807 * (tmp7 - tmp8);
- }
- X[0] = K2_000000000 * (tmp1 + tmp4);
- tmp12 = (K2_000000000 * tmp1) - tmp4;
- X[2 * iostride] = tmp11 - tmp12;
- X[4 * iostride] = tmp12 + tmp11;
- X[3 * iostride] = K2_000000000 * (tmp6 - tmp9);
- tmp10 = (K2_000000000 * tmp6) + tmp9;
- X[iostride] = -(tmp5 + tmp10);
- X[5 * iostride] = tmp5 - tmp10;
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5};
-fftw_codelet_desc fftw_hc2hc_backward_6_desc =
-{
- "fftw_hc2hc_backward_6",
- (void (*)()) fftw_hc2hc_backward_6,
- 6,
- FFTW_BACKWARD,
- FFTW_HC2HC,
- 146,
- 5,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhb_7.c b/src/sndobj/rfftw/fhb_7.c
deleted file mode 100644
index f69be92..0000000
--- a/src/sndobj/rfftw/fhb_7.c
+++ /dev/null
@@ -1,320 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:11 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 7 */
-
-/*
- * This function contains 120 FP additions, 98 FP multiplications,
- * (or, 106 additions, 84 multiplications, 14 fused multiply/add),
- * 32 stack variables, and 56 memory accesses
- */
-static const fftw_real K222520933 = FFTW_KONST(+0.222520933956314404288902564496794759466355569);
-static const fftw_real K900968867 = FFTW_KONST(+0.900968867902419126236102319507445051165919162);
-static const fftw_real K623489801 = FFTW_KONST(+0.623489801858733530525004884004239810632274731);
-static const fftw_real K781831482 = FFTW_KONST(+0.781831482468029808708444526674057750232334519);
-static const fftw_real K974927912 = FFTW_KONST(+0.974927912181823607018131682993931217232785801);
-static const fftw_real K433883739 = FFTW_KONST(+0.433883739117558120475768332848358754609990728);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_801937735 = FFTW_KONST(+1.801937735804838252472204639014890102331838324);
-static const fftw_real K445041867 = FFTW_KONST(+0.445041867912628808577805128993589518932711138);
-static const fftw_real K1_246979603 = FFTW_KONST(+1.246979603717467061050009768008479621264549462);
-static const fftw_real K867767478 = FFTW_KONST(+0.867767478235116240951536665696717509219981456);
-static const fftw_real K1_949855824 = FFTW_KONST(+1.949855824363647214036263365987862434465571601);
-static const fftw_real K1_563662964 = FFTW_KONST(+1.563662964936059617416889053348115500464669037);
-
-/*
- * Generator Id's :
- * $Id: fhb_7.c,v 1.1.1.1 2006/05/12 15:14:57 veplaini Exp $
- * $Id: fhb_7.c,v 1.1.1.1 2006/05/12 15:14:57 veplaini Exp $
- * $Id: fhb_7.c,v 1.1.1.1 2006/05/12 15:14:57 veplaini Exp $
- */
-
-void fftw_hc2hc_backward_7(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (7 * iostride);
- {
- fftw_real tmp84;
- fftw_real tmp88;
- fftw_real tmp86;
- fftw_real tmp76;
- fftw_real tmp79;
- fftw_real tmp77;
- fftw_real tmp78;
- fftw_real tmp80;
- fftw_real tmp87;
- fftw_real tmp85;
- fftw_real tmp81;
- fftw_real tmp83;
- fftw_real tmp82;
- ASSERT_ALIGNED_DOUBLE;
- tmp81 = Y[-2 * iostride];
- tmp83 = Y[-iostride];
- tmp82 = Y[-3 * iostride];
- tmp84 = (K1_563662964 * tmp81) - (K1_949855824 * tmp82) - (K867767478 * tmp83);
- tmp88 = (K867767478 * tmp81) + (K1_563662964 * tmp82) - (K1_949855824 * tmp83);
- tmp86 = (K1_563662964 * tmp83) + (K1_949855824 * tmp81) + (K867767478 * tmp82);
- tmp76 = X[0];
- tmp79 = X[3 * iostride];
- tmp77 = X[iostride];
- tmp78 = X[2 * iostride];
- tmp80 = tmp76 + (K1_246979603 * tmp78) - (K445041867 * tmp79) - (K1_801937735 * tmp77);
- tmp87 = tmp76 + (K1_246979603 * tmp79) - (K1_801937735 * tmp78) - (K445041867 * tmp77);
- tmp85 = tmp76 + (K1_246979603 * tmp77) - (K1_801937735 * tmp79) - (K445041867 * tmp78);
- X[4 * iostride] = tmp80 - tmp84;
- X[3 * iostride] = tmp80 + tmp84;
- X[0] = tmp76 + (K2_000000000 * (tmp77 + tmp78 + tmp79));
- X[2 * iostride] = tmp87 + tmp88;
- X[5 * iostride] = tmp87 - tmp88;
- X[iostride] = tmp85 - tmp86;
- X[6 * iostride] = tmp85 + tmp86;
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 6) {
- fftw_real tmp14;
- fftw_real tmp23;
- fftw_real tmp17;
- fftw_real tmp20;
- fftw_real tmp39;
- fftw_real tmp53;
- fftw_real tmp66;
- fftw_real tmp69;
- fftw_real tmp57;
- fftw_real tmp42;
- fftw_real tmp24;
- fftw_real tmp33;
- fftw_real tmp27;
- fftw_real tmp30;
- fftw_real tmp46;
- fftw_real tmp58;
- fftw_real tmp70;
- fftw_real tmp65;
- fftw_real tmp54;
- fftw_real tmp35;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp37;
- fftw_real tmp36;
- fftw_real tmp38;
- fftw_real tmp21;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = X[0];
- tmp21 = X[3 * iostride];
- tmp22 = Y[-4 * iostride];
- tmp23 = tmp21 + tmp22;
- tmp37 = tmp21 - tmp22;
- {
- fftw_real tmp15;
- fftw_real tmp16;
- fftw_real tmp18;
- fftw_real tmp19;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = X[iostride];
- tmp16 = Y[-6 * iostride];
- tmp17 = tmp15 + tmp16;
- tmp36 = tmp15 - tmp16;
- tmp18 = X[2 * iostride];
- tmp19 = Y[-5 * iostride];
- tmp20 = tmp18 + tmp19;
- tmp38 = tmp18 - tmp19;
- }
- tmp39 = (K433883739 * tmp36) + (K974927912 * tmp37) - (K781831482 * tmp38);
- tmp53 = (K781831482 * tmp36) + (K974927912 * tmp38) + (K433883739 * tmp37);
- tmp66 = (K974927912 * tmp36) - (K781831482 * tmp37) - (K433883739 * tmp38);
- tmp69 = tmp14 + (K623489801 * tmp23) - (K900968867 * tmp20) - (K222520933 * tmp17);
- tmp57 = tmp14 + (K623489801 * tmp17) - (K900968867 * tmp23) - (K222520933 * tmp20);
- tmp42 = tmp14 + (K623489801 * tmp20) - (K222520933 * tmp23) - (K900968867 * tmp17);
- }
- {
- fftw_real tmp44;
- fftw_real tmp45;
- fftw_real tmp43;
- fftw_real tmp31;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- tmp24 = Y[0];
- tmp31 = Y[-3 * iostride];
- tmp32 = X[4 * iostride];
- tmp33 = tmp31 - tmp32;
- tmp44 = tmp31 + tmp32;
- {
- fftw_real tmp25;
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp29;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = Y[-iostride];
- tmp26 = X[6 * iostride];
- tmp27 = tmp25 - tmp26;
- tmp45 = tmp25 + tmp26;
- tmp28 = Y[-2 * iostride];
- tmp29 = X[5 * iostride];
- tmp30 = tmp28 - tmp29;
- tmp43 = tmp28 + tmp29;
- }
- tmp46 = (K781831482 * tmp43) - (K974927912 * tmp44) - (K433883739 * tmp45);
- tmp58 = (K781831482 * tmp45) + (K974927912 * tmp43) + (K433883739 * tmp44);
- tmp70 = (K433883739 * tmp43) + (K781831482 * tmp44) - (K974927912 * tmp45);
- tmp65 = tmp24 + (K623489801 * tmp33) - (K900968867 * tmp30) - (K222520933 * tmp27);
- tmp54 = tmp24 + (K623489801 * tmp27) - (K900968867 * tmp33) - (K222520933 * tmp30);
- tmp35 = tmp24 + (K623489801 * tmp30) - (K222520933 * tmp33) - (K900968867 * tmp27);
- }
- X[0] = tmp14 + tmp17 + tmp20 + tmp23;
- {
- fftw_real tmp61;
- fftw_real tmp63;
- fftw_real tmp60;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = tmp54 - tmp53;
- tmp63 = tmp57 + tmp58;
- tmp60 = c_re(W[5]);
- tmp62 = c_im(W[5]);
- Y[0] = (tmp60 * tmp61) - (tmp62 * tmp63);
- X[6 * iostride] = (tmp62 * tmp61) + (tmp60 * tmp63);
- }
- {
- fftw_real tmp73;
- fftw_real tmp75;
- fftw_real tmp72;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = tmp66 + tmp65;
- tmp75 = tmp69 + tmp70;
- tmp72 = c_re(W[1]);
- tmp74 = c_im(W[1]);
- Y[-4 * iostride] = (tmp72 * tmp73) - (tmp74 * tmp75);
- X[2 * iostride] = (tmp74 * tmp73) + (tmp72 * tmp75);
- }
- {
- fftw_real tmp67;
- fftw_real tmp71;
- fftw_real tmp64;
- fftw_real tmp68;
- ASSERT_ALIGNED_DOUBLE;
- tmp67 = tmp65 - tmp66;
- tmp71 = tmp69 - tmp70;
- tmp64 = c_re(W[4]);
- tmp68 = c_im(W[4]);
- Y[-iostride] = (tmp64 * tmp67) - (tmp68 * tmp71);
- X[5 * iostride] = (tmp68 * tmp67) + (tmp64 * tmp71);
- }
- Y[-6 * iostride] = tmp24 + tmp27 + tmp30 + tmp33;
- {
- fftw_real tmp40;
- fftw_real tmp47;
- fftw_real tmp34;
- fftw_real tmp41;
- ASSERT_ALIGNED_DOUBLE;
- tmp40 = tmp35 - tmp39;
- tmp47 = tmp42 - tmp46;
- tmp34 = c_re(W[3]);
- tmp41 = c_im(W[3]);
- Y[-2 * iostride] = (tmp34 * tmp40) - (tmp41 * tmp47);
- X[4 * iostride] = (tmp41 * tmp40) + (tmp34 * tmp47);
- }
- {
- fftw_real tmp49;
- fftw_real tmp51;
- fftw_real tmp48;
- fftw_real tmp50;
- ASSERT_ALIGNED_DOUBLE;
- tmp49 = tmp39 + tmp35;
- tmp51 = tmp42 + tmp46;
- tmp48 = c_re(W[2]);
- tmp50 = c_im(W[2]);
- Y[-3 * iostride] = (tmp48 * tmp49) - (tmp50 * tmp51);
- X[3 * iostride] = (tmp50 * tmp49) + (tmp48 * tmp51);
- }
- {
- fftw_real tmp55;
- fftw_real tmp59;
- fftw_real tmp52;
- fftw_real tmp56;
- ASSERT_ALIGNED_DOUBLE;
- tmp55 = tmp53 + tmp54;
- tmp59 = tmp57 - tmp58;
- tmp52 = c_re(W[0]);
- tmp56 = c_im(W[0]);
- Y[-5 * iostride] = (tmp52 * tmp55) - (tmp56 * tmp59);
- X[iostride] = (tmp56 * tmp55) + (tmp52 * tmp59);
- }
- }
- if (i == m) {
- fftw_real tmp9;
- fftw_real tmp13;
- fftw_real tmp11;
- fftw_real tmp1;
- fftw_real tmp4;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp12;
- fftw_real tmp10;
- fftw_real tmp6;
- fftw_real tmp8;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = Y[-2 * iostride];
- tmp8 = Y[0];
- tmp7 = Y[-iostride];
- tmp9 = (K1_563662964 * tmp6) + (K1_949855824 * tmp7) + (K867767478 * tmp8);
- tmp13 = (K1_563662964 * tmp7) - (K1_949855824 * tmp8) - (K867767478 * tmp6);
- tmp11 = (K1_949855824 * tmp6) - (K1_563662964 * tmp8) - (K867767478 * tmp7);
- tmp1 = X[3 * iostride];
- tmp4 = X[0];
- tmp2 = X[2 * iostride];
- tmp3 = X[iostride];
- tmp5 = (K445041867 * tmp3) + (K1_801937735 * tmp4) - (K1_246979603 * tmp2) - tmp1;
- tmp12 = (K1_801937735 * tmp2) + (K445041867 * tmp4) - (K1_246979603 * tmp3) - tmp1;
- tmp10 = tmp1 + (K1_246979603 * tmp4) - (K1_801937735 * tmp3) - (K445041867 * tmp2);
- X[iostride] = tmp5 - tmp9;
- X[6 * iostride] = -(tmp5 + tmp9);
- X[0] = tmp1 + (K2_000000000 * (tmp2 + tmp3 + tmp4));
- X[4 * iostride] = tmp13 - tmp12;
- X[3 * iostride] = tmp12 + tmp13;
- X[5 * iostride] = tmp11 - tmp10;
- X[2 * iostride] = tmp10 + tmp11;
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6};
-fftw_codelet_desc fftw_hc2hc_backward_7_desc =
-{
- "fftw_hc2hc_backward_7",
- (void (*)()) fftw_hc2hc_backward_7,
- 7,
- FFTW_BACKWARD,
- FFTW_HC2HC,
- 168,
- 6,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhb_8.c b/src/sndobj/rfftw/fhb_8.c
deleted file mode 100644
index a6d7e2c..0000000
--- a/src/sndobj/rfftw/fhb_8.c
+++ /dev/null
@@ -1,415 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:12 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 8 */
-
-/*
- * This function contains 108 FP additions, 50 FP multiplications,
- * (or, 90 additions, 32 multiplications, 18 fused multiply/add),
- * 31 stack variables, and 64 memory accesses
- */
-static const fftw_real K765366864 = FFTW_KONST(+0.765366864730179543456919968060797733522689125);
-static const fftw_real K1_847759065 = FFTW_KONST(+1.847759065022573512256366378793576573644833252);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-static const fftw_real K1_414213562 = FFTW_KONST(+1.414213562373095048801688724209698078569671875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fhb_8.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fhb_8.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fhb_8.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- */
-
-void fftw_hc2hc_backward_8(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (8 * iostride);
- {
- fftw_real tmp107;
- fftw_real tmp118;
- fftw_real tmp105;
- fftw_real tmp116;
- fftw_real tmp111;
- fftw_real tmp120;
- fftw_real tmp115;
- fftw_real tmp121;
- fftw_real tmp108;
- fftw_real tmp112;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp106;
- fftw_real tmp117;
- fftw_real tmp103;
- fftw_real tmp104;
- ASSERT_ALIGNED_DOUBLE;
- tmp106 = X[2 * iostride];
- tmp107 = K2_000000000 * tmp106;
- tmp117 = Y[-2 * iostride];
- tmp118 = K2_000000000 * tmp117;
- tmp103 = X[0];
- tmp104 = X[4 * iostride];
- tmp105 = tmp103 + tmp104;
- tmp116 = tmp103 - tmp104;
- {
- fftw_real tmp109;
- fftw_real tmp110;
- fftw_real tmp113;
- fftw_real tmp114;
- ASSERT_ALIGNED_DOUBLE;
- tmp109 = X[iostride];
- tmp110 = X[3 * iostride];
- tmp111 = K2_000000000 * (tmp109 + tmp110);
- tmp120 = tmp109 - tmp110;
- tmp113 = Y[-iostride];
- tmp114 = Y[-3 * iostride];
- tmp115 = K2_000000000 * (tmp113 - tmp114);
- tmp121 = tmp114 + tmp113;
- }
- }
- tmp108 = tmp105 + tmp107;
- X[4 * iostride] = tmp108 - tmp111;
- X[0] = tmp108 + tmp111;
- tmp112 = tmp105 - tmp107;
- X[6 * iostride] = tmp112 + tmp115;
- X[2 * iostride] = tmp112 - tmp115;
- {
- fftw_real tmp119;
- fftw_real tmp122;
- fftw_real tmp123;
- fftw_real tmp124;
- ASSERT_ALIGNED_DOUBLE;
- tmp119 = tmp116 - tmp118;
- tmp122 = K1_414213562 * (tmp120 - tmp121);
- X[5 * iostride] = tmp119 - tmp122;
- X[iostride] = tmp119 + tmp122;
- tmp123 = tmp116 + tmp118;
- tmp124 = K1_414213562 * (tmp120 + tmp121);
- X[3 * iostride] = tmp123 - tmp124;
- X[7 * iostride] = tmp123 + tmp124;
- }
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 7) {
- fftw_real tmp29;
- fftw_real tmp60;
- fftw_real tmp46;
- fftw_real tmp56;
- fftw_real tmp70;
- fftw_real tmp96;
- fftw_real tmp82;
- fftw_real tmp92;
- fftw_real tmp36;
- fftw_real tmp57;
- fftw_real tmp53;
- fftw_real tmp61;
- fftw_real tmp73;
- fftw_real tmp83;
- fftw_real tmp76;
- fftw_real tmp84;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp25;
- fftw_real tmp68;
- fftw_real tmp42;
- fftw_real tmp81;
- fftw_real tmp28;
- fftw_real tmp80;
- fftw_real tmp45;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp40;
- fftw_real tmp41;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = X[0];
- tmp24 = Y[-4 * iostride];
- tmp25 = tmp23 + tmp24;
- tmp68 = tmp23 - tmp24;
- tmp40 = Y[0];
- tmp41 = X[4 * iostride];
- tmp42 = tmp40 - tmp41;
- tmp81 = tmp40 + tmp41;
- }
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp43;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = X[2 * iostride];
- tmp27 = Y[-6 * iostride];
- tmp28 = tmp26 + tmp27;
- tmp80 = tmp26 - tmp27;
- tmp43 = Y[-2 * iostride];
- tmp44 = X[6 * iostride];
- tmp45 = tmp43 - tmp44;
- tmp69 = tmp43 + tmp44;
- }
- tmp29 = tmp25 + tmp28;
- tmp60 = tmp25 - tmp28;
- tmp46 = tmp42 + tmp45;
- tmp56 = tmp42 - tmp45;
- tmp70 = tmp68 - tmp69;
- tmp96 = tmp68 + tmp69;
- tmp82 = tmp80 + tmp81;
- tmp92 = tmp81 - tmp80;
- }
- {
- fftw_real tmp32;
- fftw_real tmp71;
- fftw_real tmp49;
- fftw_real tmp72;
- fftw_real tmp35;
- fftw_real tmp74;
- fftw_real tmp52;
- fftw_real tmp75;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp30;
- fftw_real tmp31;
- fftw_real tmp47;
- fftw_real tmp48;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = X[iostride];
- tmp31 = Y[-5 * iostride];
- tmp32 = tmp30 + tmp31;
- tmp71 = tmp30 - tmp31;
- tmp47 = Y[-iostride];
- tmp48 = X[5 * iostride];
- tmp49 = tmp47 - tmp48;
- tmp72 = tmp47 + tmp48;
- }
- {
- fftw_real tmp33;
- fftw_real tmp34;
- fftw_real tmp50;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp33 = Y[-7 * iostride];
- tmp34 = X[3 * iostride];
- tmp35 = tmp33 + tmp34;
- tmp74 = tmp33 - tmp34;
- tmp50 = Y[-3 * iostride];
- tmp51 = X[7 * iostride];
- tmp52 = tmp50 - tmp51;
- tmp75 = tmp50 + tmp51;
- }
- tmp36 = tmp32 + tmp35;
- tmp57 = tmp32 - tmp35;
- tmp53 = tmp49 + tmp52;
- tmp61 = tmp52 - tmp49;
- tmp73 = tmp71 - tmp72;
- tmp83 = tmp71 + tmp72;
- tmp76 = tmp74 - tmp75;
- tmp84 = tmp74 + tmp75;
- }
- X[0] = tmp29 + tmp36;
- Y[-7 * iostride] = tmp46 + tmp53;
- {
- fftw_real tmp38;
- fftw_real tmp54;
- fftw_real tmp37;
- fftw_real tmp39;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = tmp29 - tmp36;
- tmp54 = tmp46 - tmp53;
- tmp37 = c_re(W[3]);
- tmp39 = c_im(W[3]);
- X[4 * iostride] = (tmp37 * tmp38) + (tmp39 * tmp54);
- Y[-3 * iostride] = (tmp37 * tmp54) - (tmp39 * tmp38);
- }
- {
- fftw_real tmp64;
- fftw_real tmp66;
- fftw_real tmp63;
- fftw_real tmp65;
- ASSERT_ALIGNED_DOUBLE;
- tmp64 = tmp57 + tmp56;
- tmp66 = tmp60 + tmp61;
- tmp63 = c_re(W[1]);
- tmp65 = c_im(W[1]);
- Y[-5 * iostride] = (tmp63 * tmp64) - (tmp65 * tmp66);
- X[2 * iostride] = (tmp65 * tmp64) + (tmp63 * tmp66);
- }
- {
- fftw_real tmp58;
- fftw_real tmp62;
- fftw_real tmp55;
- fftw_real tmp59;
- ASSERT_ALIGNED_DOUBLE;
- tmp58 = tmp56 - tmp57;
- tmp62 = tmp60 - tmp61;
- tmp55 = c_re(W[5]);
- tmp59 = c_im(W[5]);
- Y[-iostride] = (tmp55 * tmp58) - (tmp59 * tmp62);
- X[6 * iostride] = (tmp59 * tmp58) + (tmp55 * tmp62);
- }
- {
- fftw_real tmp94;
- fftw_real tmp100;
- fftw_real tmp98;
- fftw_real tmp102;
- fftw_real tmp93;
- fftw_real tmp97;
- ASSERT_ALIGNED_DOUBLE;
- tmp93 = K707106781 * (tmp73 - tmp76);
- tmp94 = tmp92 + tmp93;
- tmp100 = tmp92 - tmp93;
- tmp97 = K707106781 * (tmp83 + tmp84);
- tmp98 = tmp96 - tmp97;
- tmp102 = tmp96 + tmp97;
- {
- fftw_real tmp91;
- fftw_real tmp95;
- fftw_real tmp99;
- fftw_real tmp101;
- ASSERT_ALIGNED_DOUBLE;
- tmp91 = c_re(W[2]);
- tmp95 = c_im(W[2]);
- Y[-4 * iostride] = (tmp91 * tmp94) - (tmp95 * tmp98);
- X[3 * iostride] = (tmp95 * tmp94) + (tmp91 * tmp98);
- tmp99 = c_re(W[6]);
- tmp101 = c_im(W[6]);
- Y[0] = (tmp99 * tmp100) - (tmp101 * tmp102);
- X[7 * iostride] = (tmp101 * tmp100) + (tmp99 * tmp102);
- }
- }
- {
- fftw_real tmp78;
- fftw_real tmp88;
- fftw_real tmp86;
- fftw_real tmp90;
- fftw_real tmp77;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- tmp77 = K707106781 * (tmp73 + tmp76);
- tmp78 = tmp70 - tmp77;
- tmp88 = tmp70 + tmp77;
- tmp85 = K707106781 * (tmp83 - tmp84);
- tmp86 = tmp82 - tmp85;
- tmp90 = tmp82 + tmp85;
- {
- fftw_real tmp67;
- fftw_real tmp79;
- fftw_real tmp87;
- fftw_real tmp89;
- ASSERT_ALIGNED_DOUBLE;
- tmp67 = c_re(W[4]);
- tmp79 = c_im(W[4]);
- X[5 * iostride] = (tmp67 * tmp78) + (tmp79 * tmp86);
- Y[-2 * iostride] = (tmp67 * tmp86) - (tmp79 * tmp78);
- tmp87 = c_re(W[0]);
- tmp89 = c_im(W[0]);
- X[iostride] = (tmp87 * tmp88) + (tmp89 * tmp90);
- Y[-6 * iostride] = (tmp87 * tmp90) - (tmp89 * tmp88);
- }
- }
- }
- if (i == m) {
- fftw_real tmp3;
- fftw_real tmp7;
- fftw_real tmp15;
- fftw_real tmp20;
- fftw_real tmp6;
- fftw_real tmp12;
- fftw_real tmp10;
- fftw_real tmp21;
- fftw_real tmp19;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp13;
- fftw_real tmp14;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp2 = X[3 * iostride];
- tmp3 = tmp1 + tmp2;
- tmp7 = tmp1 - tmp2;
- tmp13 = Y[0];
- tmp14 = Y[-3 * iostride];
- tmp15 = tmp13 + tmp14;
- tmp20 = tmp13 - tmp14;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp8;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = X[2 * iostride];
- tmp5 = X[iostride];
- tmp6 = tmp4 + tmp5;
- tmp12 = tmp4 - tmp5;
- tmp8 = Y[-2 * iostride];
- tmp9 = Y[-iostride];
- tmp10 = tmp8 + tmp9;
- tmp21 = tmp8 - tmp9;
- }
- X[0] = K2_000000000 * (tmp3 + tmp6);
- tmp19 = tmp3 - tmp6;
- tmp22 = tmp20 - tmp21;
- X[2 * iostride] = K1_414213562 * (tmp19 - tmp22);
- X[6 * iostride] = -(K1_414213562 * (tmp19 + tmp22));
- X[4 * iostride] = -(K2_000000000 * (tmp21 + tmp20));
- {
- fftw_real tmp11;
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp18;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = tmp7 - tmp10;
- tmp16 = tmp12 + tmp15;
- X[iostride] = (K1_847759065 * tmp11) - (K765366864 * tmp16);
- X[5 * iostride] = -((K765366864 * tmp11) + (K1_847759065 * tmp16));
- tmp17 = tmp7 + tmp10;
- tmp18 = tmp15 - tmp12;
- X[3 * iostride] = (K765366864 * tmp17) - (K1_847759065 * tmp18);
- X[7 * iostride] = -((K1_847759065 * tmp17) + (K765366864 * tmp18));
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7};
-fftw_codelet_desc fftw_hc2hc_backward_8_desc =
-{
- "fftw_hc2hc_backward_8",
- (void (*)()) fftw_hc2hc_backward_8,
- 8,
- FFTW_BACKWARD,
- FFTW_HC2HC,
- 190,
- 7,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhb_9.c b/src/sndobj/rfftw/fhb_9.c
deleted file mode 100644
index 6451692..0000000
--- a/src/sndobj/rfftw/fhb_9.c
+++ /dev/null
@@ -1,564 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:14 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 9 */
-
-/*
- * This function contains 183 FP additions, 122 FP multiplications,
- * (or, 130 additions, 69 multiplications, 53 fused multiply/add),
- * 43 stack variables, and 72 memory accesses
- */
-static const fftw_real K663413948 = FFTW_KONST(+0.663413948168938396205421319635891297216863310);
-static const fftw_real K556670399 = FFTW_KONST(+0.556670399226419366452912952047023132968291906);
-static const fftw_real K296198132 = FFTW_KONST(+0.296198132726023843175338011893050938967728390);
-static const fftw_real K150383733 = FFTW_KONST(+0.150383733180435296639271897612501926072238258);
-static const fftw_real K813797681 = FFTW_KONST(+0.813797681349373692844693217248393223289101568);
-static const fftw_real K852868531 = FFTW_KONST(+0.852868531952443209628250963940074071936020296);
-static const fftw_real K939692620 = FFTW_KONST(+0.939692620785908384054109277324731469936208134);
-static const fftw_real K342020143 = FFTW_KONST(+0.342020143325668733044099614682259580763083368);
-static const fftw_real K984807753 = FFTW_KONST(+0.984807753012208059366743024589523013670643252);
-static const fftw_real K173648177 = FFTW_KONST(+0.173648177666930348851716626769314796000375677);
-static const fftw_real K300767466 = FFTW_KONST(+0.300767466360870593278543795225003852144476517);
-static const fftw_real K1_705737063 = FFTW_KONST(+1.705737063904886419256501927880148143872040591);
-static const fftw_real K642787609 = FFTW_KONST(+0.642787609686539326322643409907263432907559884);
-static const fftw_real K766044443 = FFTW_KONST(+0.766044443118978035202392650555416673935832457);
-static const fftw_real K1_326827896 = FFTW_KONST(+1.326827896337876792410842639271782594433726619);
-static const fftw_real K1_113340798 = FFTW_KONST(+1.113340798452838732905825904094046265936583811);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-
-/*
- * Generator Id's :
- * $Id: fhb_9.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fhb_9.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fhb_9.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- */
-
-void fftw_hc2hc_backward_9(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (9 * iostride);
- {
- fftw_real tmp153;
- fftw_real tmp181;
- fftw_real tmp175;
- fftw_real tmp160;
- fftw_real tmp163;
- fftw_real tmp158;
- fftw_real tmp167;
- fftw_real tmp178;
- fftw_real tmp170;
- fftw_real tmp179;
- fftw_real tmp159;
- fftw_real tmp164;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp174;
- fftw_real tmp151;
- fftw_real tmp152;
- fftw_real tmp172;
- fftw_real tmp173;
- ASSERT_ALIGNED_DOUBLE;
- tmp173 = Y[-3 * iostride];
- tmp174 = K1_732050807 * tmp173;
- tmp151 = X[0];
- tmp152 = X[3 * iostride];
- tmp172 = tmp152 - tmp151;
- tmp153 = tmp151 + (K2_000000000 * tmp152);
- tmp181 = tmp174 - tmp172;
- tmp175 = tmp172 + tmp174;
- }
- {
- fftw_real tmp154;
- fftw_real tmp157;
- fftw_real tmp168;
- fftw_real tmp166;
- fftw_real tmp165;
- fftw_real tmp169;
- ASSERT_ALIGNED_DOUBLE;
- tmp154 = X[iostride];
- tmp160 = Y[-iostride];
- {
- fftw_real tmp155;
- fftw_real tmp156;
- fftw_real tmp161;
- fftw_real tmp162;
- ASSERT_ALIGNED_DOUBLE;
- tmp155 = X[4 * iostride];
- tmp156 = X[2 * iostride];
- tmp157 = tmp155 + tmp156;
- tmp168 = K866025403 * (tmp155 - tmp156);
- tmp161 = Y[-2 * iostride];
- tmp162 = Y[-4 * iostride];
- tmp163 = tmp161 - tmp162;
- tmp166 = K866025403 * (tmp162 + tmp161);
- }
- tmp158 = tmp154 + tmp157;
- tmp165 = tmp154 - (K500000000 * tmp157);
- tmp167 = tmp165 - tmp166;
- tmp178 = tmp165 + tmp166;
- tmp169 = (K500000000 * tmp163) + tmp160;
- tmp170 = tmp168 + tmp169;
- tmp179 = tmp169 - tmp168;
- }
- X[0] = tmp153 + (K2_000000000 * tmp158);
- tmp159 = tmp153 - tmp158;
- tmp164 = K1_732050807 * (tmp160 - tmp163);
- X[6 * iostride] = tmp159 + tmp164;
- X[3 * iostride] = tmp159 - tmp164;
- {
- fftw_real tmp176;
- fftw_real tmp171;
- fftw_real tmp177;
- fftw_real tmp183;
- fftw_real tmp180;
- fftw_real tmp182;
- ASSERT_ALIGNED_DOUBLE;
- tmp176 = (K1_113340798 * tmp167) + (K1_326827896 * tmp170);
- tmp171 = (K766044443 * tmp167) - (K642787609 * tmp170);
- tmp177 = tmp171 + tmp175;
- X[iostride] = (K2_000000000 * tmp171) - tmp175;
- X[7 * iostride] = tmp176 - tmp177;
- X[4 * iostride] = -(tmp176 + tmp177);
- tmp183 = (K1_705737063 * tmp178) + (K300767466 * tmp179);
- tmp180 = (K173648177 * tmp178) - (K984807753 * tmp179);
- tmp182 = tmp181 - tmp180;
- X[2 * iostride] = (K2_000000000 * tmp180) + tmp181;
- X[8 * iostride] = tmp183 + tmp182;
- X[5 * iostride] = tmp182 - tmp183;
- }
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 8) {
- fftw_real tmp43;
- fftw_real tmp86;
- fftw_real tmp134;
- fftw_real tmp59;
- fftw_real tmp106;
- fftw_real tmp124;
- fftw_real tmp48;
- fftw_real tmp53;
- fftw_real tmp54;
- fftw_real tmp100;
- fftw_real tmp108;
- fftw_real tmp130;
- fftw_real tmp136;
- fftw_real tmp127;
- fftw_real tmp135;
- fftw_real tmp93;
- fftw_real tmp107;
- fftw_real tmp64;
- fftw_real tmp69;
- fftw_real tmp70;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp39;
- fftw_real tmp55;
- fftw_real tmp42;
- fftw_real tmp104;
- fftw_real tmp58;
- fftw_real tmp85;
- fftw_real tmp84;
- fftw_real tmp105;
- ASSERT_ALIGNED_DOUBLE;
- tmp39 = X[0];
- tmp55 = Y[0];
- {
- fftw_real tmp40;
- fftw_real tmp41;
- fftw_real tmp56;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp40 = X[3 * iostride];
- tmp41 = Y[-6 * iostride];
- tmp42 = tmp40 + tmp41;
- tmp104 = K866025403 * (tmp40 - tmp41);
- tmp56 = Y[-3 * iostride];
- tmp57 = X[6 * iostride];
- tmp58 = tmp56 - tmp57;
- tmp85 = K866025403 * (tmp56 + tmp57);
- }
- tmp43 = tmp39 + tmp42;
- tmp84 = tmp39 - (K500000000 * tmp42);
- tmp86 = tmp84 - tmp85;
- tmp134 = tmp84 + tmp85;
- tmp59 = tmp55 + tmp58;
- tmp105 = tmp55 - (K500000000 * tmp58);
- tmp106 = tmp104 + tmp105;
- tmp124 = tmp105 - tmp104;
- }
- {
- fftw_real tmp44;
- fftw_real tmp47;
- fftw_real tmp87;
- fftw_real tmp90;
- fftw_real tmp60;
- fftw_real tmp63;
- fftw_real tmp88;
- fftw_real tmp91;
- fftw_real tmp49;
- fftw_real tmp52;
- fftw_real tmp94;
- fftw_real tmp97;
- fftw_real tmp65;
- fftw_real tmp68;
- fftw_real tmp95;
- fftw_real tmp98;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp45;
- fftw_real tmp46;
- fftw_real tmp61;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp44 = X[iostride];
- tmp45 = X[4 * iostride];
- tmp46 = Y[-7 * iostride];
- tmp47 = tmp45 + tmp46;
- tmp87 = tmp44 - (K500000000 * tmp47);
- tmp90 = K866025403 * (tmp45 - tmp46);
- tmp60 = Y[-iostride];
- tmp61 = Y[-4 * iostride];
- tmp62 = X[7 * iostride];
- tmp63 = tmp61 - tmp62;
- tmp88 = K866025403 * (tmp61 + tmp62);
- tmp91 = tmp60 - (K500000000 * tmp63);
- }
- {
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp66;
- fftw_real tmp67;
- ASSERT_ALIGNED_DOUBLE;
- tmp49 = X[2 * iostride];
- tmp50 = Y[-5 * iostride];
- tmp51 = Y[-8 * iostride];
- tmp52 = tmp50 + tmp51;
- tmp94 = tmp49 - (K500000000 * tmp52);
- tmp97 = K866025403 * (tmp50 - tmp51);
- tmp65 = Y[-2 * iostride];
- tmp66 = X[5 * iostride];
- tmp67 = X[8 * iostride];
- tmp68 = tmp66 + tmp67;
- tmp95 = K866025403 * (tmp66 - tmp67);
- tmp98 = tmp65 + (K500000000 * tmp68);
- }
- tmp48 = tmp44 + tmp47;
- tmp53 = tmp49 + tmp52;
- tmp54 = tmp48 + tmp53;
- {
- fftw_real tmp96;
- fftw_real tmp99;
- fftw_real tmp128;
- fftw_real tmp129;
- ASSERT_ALIGNED_DOUBLE;
- tmp96 = tmp94 + tmp95;
- tmp99 = tmp97 + tmp98;
- tmp100 = (K173648177 * tmp96) - (K984807753 * tmp99);
- tmp108 = (K984807753 * tmp96) + (K173648177 * tmp99);
- tmp128 = tmp94 - tmp95;
- tmp129 = tmp98 - tmp97;
- tmp130 = (K342020143 * tmp128) - (K939692620 * tmp129);
- tmp136 = (K939692620 * tmp128) + (K342020143 * tmp129);
- }
- {
- fftw_real tmp125;
- fftw_real tmp126;
- fftw_real tmp89;
- fftw_real tmp92;
- ASSERT_ALIGNED_DOUBLE;
- tmp125 = tmp91 - tmp90;
- tmp126 = tmp87 + tmp88;
- tmp127 = (K173648177 * tmp125) + (K984807753 * tmp126);
- tmp135 = (K173648177 * tmp126) - (K984807753 * tmp125);
- tmp89 = tmp87 - tmp88;
- tmp92 = tmp90 + tmp91;
- tmp93 = (K766044443 * tmp89) - (K642787609 * tmp92);
- tmp107 = (K766044443 * tmp92) + (K642787609 * tmp89);
- tmp64 = tmp60 + tmp63;
- tmp69 = tmp65 - tmp68;
- tmp70 = tmp64 + tmp69;
- }
- }
- X[0] = tmp43 + tmp54;
- {
- fftw_real tmp74;
- fftw_real tmp80;
- fftw_real tmp78;
- fftw_real tmp82;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp72;
- fftw_real tmp73;
- fftw_real tmp76;
- fftw_real tmp77;
- ASSERT_ALIGNED_DOUBLE;
- tmp72 = tmp59 - (K500000000 * tmp70);
- tmp73 = K866025403 * (tmp48 - tmp53);
- tmp74 = tmp72 - tmp73;
- tmp80 = tmp73 + tmp72;
- tmp76 = tmp43 - (K500000000 * tmp54);
- tmp77 = K866025403 * (tmp69 - tmp64);
- tmp78 = tmp76 - tmp77;
- tmp82 = tmp76 + tmp77;
- }
- {
- fftw_real tmp71;
- fftw_real tmp75;
- fftw_real tmp79;
- fftw_real tmp81;
- ASSERT_ALIGNED_DOUBLE;
- tmp71 = c_re(W[5]);
- tmp75 = c_im(W[5]);
- Y[-2 * iostride] = (tmp71 * tmp74) - (tmp75 * tmp78);
- X[6 * iostride] = (tmp75 * tmp74) + (tmp71 * tmp78);
- tmp79 = c_re(W[2]);
- tmp81 = c_im(W[2]);
- Y[-5 * iostride] = (tmp79 * tmp80) - (tmp81 * tmp82);
- X[3 * iostride] = (tmp81 * tmp80) + (tmp79 * tmp82);
- }
- }
- Y[-8 * iostride] = tmp59 + tmp70;
- {
- fftw_real tmp113;
- fftw_real tmp102;
- fftw_real tmp116;
- fftw_real tmp117;
- fftw_real tmp110;
- fftw_real tmp112;
- fftw_real tmp101;
- fftw_real tmp109;
- fftw_real tmp83;
- fftw_real tmp103;
- ASSERT_ALIGNED_DOUBLE;
- tmp113 = K866025403 * (tmp93 - tmp100);
- tmp101 = tmp93 + tmp100;
- tmp102 = tmp86 + tmp101;
- tmp116 = tmp86 - (K500000000 * tmp101);
- tmp117 = K866025403 * (tmp108 - tmp107);
- tmp109 = tmp107 + tmp108;
- tmp110 = tmp106 + tmp109;
- tmp112 = tmp106 - (K500000000 * tmp109);
- tmp83 = c_re(W[0]);
- tmp103 = c_im(W[0]);
- X[iostride] = (tmp83 * tmp102) + (tmp103 * tmp110);
- Y[-7 * iostride] = (tmp83 * tmp110) - (tmp103 * tmp102);
- {
- fftw_real tmp120;
- fftw_real tmp122;
- fftw_real tmp119;
- fftw_real tmp121;
- ASSERT_ALIGNED_DOUBLE;
- tmp120 = tmp113 + tmp112;
- tmp122 = tmp116 + tmp117;
- tmp119 = c_re(W[3]);
- tmp121 = c_im(W[3]);
- Y[-4 * iostride] = (tmp119 * tmp120) - (tmp121 * tmp122);
- X[4 * iostride] = (tmp121 * tmp120) + (tmp119 * tmp122);
- }
- {
- fftw_real tmp114;
- fftw_real tmp118;
- fftw_real tmp111;
- fftw_real tmp115;
- ASSERT_ALIGNED_DOUBLE;
- tmp114 = tmp112 - tmp113;
- tmp118 = tmp116 - tmp117;
- tmp111 = c_re(W[6]);
- tmp115 = c_im(W[6]);
- Y[-iostride] = (tmp111 * tmp114) - (tmp115 * tmp118);
- X[7 * iostride] = (tmp115 * tmp114) + (tmp111 * tmp118);
- }
- }
- {
- fftw_real tmp141;
- fftw_real tmp132;
- fftw_real tmp144;
- fftw_real tmp145;
- fftw_real tmp138;
- fftw_real tmp140;
- fftw_real tmp131;
- fftw_real tmp137;
- fftw_real tmp123;
- fftw_real tmp133;
- ASSERT_ALIGNED_DOUBLE;
- tmp141 = K866025403 * (tmp130 - tmp127);
- tmp131 = tmp127 + tmp130;
- tmp132 = tmp124 + tmp131;
- tmp144 = tmp124 - (K500000000 * tmp131);
- tmp145 = K866025403 * (tmp135 + tmp136);
- tmp137 = tmp135 - tmp136;
- tmp138 = tmp134 + tmp137;
- tmp140 = tmp134 - (K500000000 * tmp137);
- tmp123 = c_re(W[1]);
- tmp133 = c_im(W[1]);
- Y[-6 * iostride] = (tmp123 * tmp132) - (tmp133 * tmp138);
- X[2 * iostride] = (tmp133 * tmp132) + (tmp123 * tmp138);
- {
- fftw_real tmp148;
- fftw_real tmp150;
- fftw_real tmp147;
- fftw_real tmp149;
- ASSERT_ALIGNED_DOUBLE;
- tmp148 = tmp141 + tmp140;
- tmp150 = tmp144 + tmp145;
- tmp147 = c_re(W[4]);
- tmp149 = c_im(W[4]);
- X[5 * iostride] = (tmp147 * tmp148) + (tmp149 * tmp150);
- Y[-3 * iostride] = (tmp147 * tmp150) - (tmp149 * tmp148);
- }
- {
- fftw_real tmp142;
- fftw_real tmp146;
- fftw_real tmp139;
- fftw_real tmp143;
- ASSERT_ALIGNED_DOUBLE;
- tmp142 = tmp140 - tmp141;
- tmp146 = tmp144 - tmp145;
- tmp139 = c_re(W[7]);
- tmp143 = c_im(W[7]);
- X[8 * iostride] = (tmp139 * tmp142) + (tmp143 * tmp146);
- Y[0] = (tmp139 * tmp146) - (tmp143 * tmp142);
- }
- }
- }
- if (i == m) {
- fftw_real tmp3;
- fftw_real tmp31;
- fftw_real tmp28;
- fftw_real tmp17;
- fftw_real tmp34;
- fftw_real tmp7;
- fftw_real tmp33;
- fftw_real tmp23;
- fftw_real tmp20;
- fftw_real tmp35;
- fftw_real tmp12;
- fftw_real tmp14;
- fftw_real tmp32;
- fftw_real tmp8;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp27;
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp25;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = Y[-iostride];
- tmp27 = K1_732050807 * tmp26;
- tmp1 = X[4 * iostride];
- tmp2 = X[iostride];
- tmp25 = tmp2 - tmp1;
- tmp3 = tmp1 + (K2_000000000 * tmp2);
- tmp31 = tmp25 - tmp27;
- tmp28 = tmp25 + tmp27;
- }
- {
- fftw_real tmp4;
- fftw_real tmp6;
- fftw_real tmp5;
- fftw_real tmp13;
- fftw_real tmp15;
- fftw_real tmp18;
- fftw_real tmp22;
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp10;
- fftw_real tmp21;
- fftw_real tmp19;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = X[3 * iostride];
- tmp6 = X[2 * iostride];
- tmp5 = X[0];
- tmp13 = K500000000 * (tmp5 + tmp6);
- tmp15 = K866025403 * (tmp6 - tmp5);
- tmp18 = K866025403 * (tmp4 - tmp5);
- tmp22 = K500000000 * (tmp4 + tmp5);
- tmp9 = Y[-2 * iostride];
- tmp11 = Y[0];
- tmp10 = Y[-3 * iostride];
- tmp21 = K866025403 * (tmp11 - tmp10);
- tmp19 = (K500000000 * (tmp11 + tmp10)) + tmp9;
- tmp16 = (K500000000 * (tmp9 - tmp11)) + tmp10;
- tmp17 = tmp15 - tmp16;
- tmp34 = tmp15 + tmp16;
- tmp7 = tmp4 + tmp5 + tmp6;
- tmp33 = tmp22 + tmp21 - tmp6;
- tmp23 = (tmp6 + tmp21) - tmp22;
- tmp20 = tmp18 - tmp19;
- tmp35 = tmp18 + tmp19;
- tmp12 = (K1_732050807 * (tmp9 - tmp10)) - (K1_732050807 * tmp11);
- tmp14 = tmp4 - (K866025403 * (tmp11 + tmp9)) - tmp13;
- tmp32 = tmp13 - (K866025403 * (tmp11 + tmp9)) - tmp4;
- }
- X[0] = tmp3 + (K2_000000000 * tmp7);
- tmp8 = tmp7 - tmp3;
- X[3 * iostride] = tmp8 + tmp12;
- X[6 * iostride] = tmp12 - tmp8;
- {
- fftw_real tmp30;
- fftw_real tmp24;
- fftw_real tmp29;
- fftw_real tmp38;
- fftw_real tmp36;
- fftw_real tmp37;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = (K852868531 * tmp14) + (K813797681 * tmp20) + (K150383733 * tmp17) - (K296198132 * tmp23);
- tmp24 = (K173648177 * tmp14) - (K984807753 * tmp17) - (K342020143 * tmp20) - (K939692620 * tmp23);
- tmp29 = tmp28 + (K500000000 * tmp24);
- X[2 * iostride] = tmp24 - tmp28;
- X[8 * iostride] = tmp30 - tmp29;
- X[5 * iostride] = tmp29 + tmp30;
- tmp38 = (K556670399 * tmp32) + (K663413948 * tmp34) - (K150383733 * tmp35) - (K852868531 * tmp33);
- tmp36 = (K766044443 * tmp32) + (K173648177 * tmp33) - (K642787609 * tmp34) - (K984807753 * tmp35);
- tmp37 = (K500000000 * tmp36) - tmp31;
- X[iostride] = tmp31 + tmp36;
- X[7 * iostride] = tmp38 - tmp37;
- X[4 * iostride] = tmp37 + tmp38;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8};
-fftw_codelet_desc fftw_hc2hc_backward_9_desc =
-{
- "fftw_hc2hc_backward_9",
- (void (*)()) fftw_hc2hc_backward_9,
- 9,
- FFTW_BACKWARD,
- FFTW_HC2HC,
- 212,
- 8,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhf_10.c b/src/sndobj/rfftw/fhf_10.c
deleted file mode 100644
index f0eb13b..0000000
--- a/src/sndobj/rfftw/fhf_10.c
+++ /dev/null
@@ -1,561 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:49 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 10 */
-
-/*
- * This function contains 168 FP additions, 84 FP multiplications,
- * (or, 126 additions, 42 multiplications, 42 fused multiply/add),
- * 43 stack variables, and 80 memory accesses
- */
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-
-/*
- * Generator Id's :
- * $Id: fhf_10.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- * $Id: fhf_10.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- * $Id: fhf_10.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- */
-
-void fftw_hc2hc_forward_10(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (10 * iostride);
- {
- fftw_real tmp170;
- fftw_real tmp181;
- fftw_real tmp162;
- fftw_real tmp175;
- fftw_real tmp165;
- fftw_real tmp176;
- fftw_real tmp166;
- fftw_real tmp183;
- fftw_real tmp155;
- fftw_real tmp178;
- fftw_real tmp158;
- fftw_real tmp179;
- fftw_real tmp159;
- fftw_real tmp182;
- fftw_real tmp168;
- fftw_real tmp169;
- ASSERT_ALIGNED_DOUBLE;
- tmp168 = X[0];
- tmp169 = X[5 * iostride];
- tmp170 = tmp168 - tmp169;
- tmp181 = tmp168 + tmp169;
- {
- fftw_real tmp160;
- fftw_real tmp161;
- fftw_real tmp163;
- fftw_real tmp164;
- ASSERT_ALIGNED_DOUBLE;
- tmp160 = X[4 * iostride];
- tmp161 = X[9 * iostride];
- tmp162 = tmp160 - tmp161;
- tmp175 = tmp160 + tmp161;
- tmp163 = X[6 * iostride];
- tmp164 = X[iostride];
- tmp165 = tmp163 - tmp164;
- tmp176 = tmp163 + tmp164;
- }
- tmp166 = tmp162 + tmp165;
- tmp183 = tmp175 + tmp176;
- {
- fftw_real tmp153;
- fftw_real tmp154;
- fftw_real tmp156;
- fftw_real tmp157;
- ASSERT_ALIGNED_DOUBLE;
- tmp153 = X[2 * iostride];
- tmp154 = X[7 * iostride];
- tmp155 = tmp153 - tmp154;
- tmp178 = tmp153 + tmp154;
- tmp156 = X[8 * iostride];
- tmp157 = X[3 * iostride];
- tmp158 = tmp156 - tmp157;
- tmp179 = tmp156 + tmp157;
- }
- tmp159 = tmp155 + tmp158;
- tmp182 = tmp178 + tmp179;
- {
- fftw_real tmp167;
- fftw_real tmp171;
- fftw_real tmp172;
- fftw_real tmp186;
- fftw_real tmp184;
- fftw_real tmp185;
- ASSERT_ALIGNED_DOUBLE;
- tmp167 = K559016994 * (tmp159 - tmp166);
- tmp171 = tmp159 + tmp166;
- tmp172 = tmp170 - (K250000000 * tmp171);
- X[iostride] = tmp167 + tmp172;
- X[3 * iostride] = tmp172 - tmp167;
- X[5 * iostride] = tmp170 + tmp171;
- tmp186 = K559016994 * (tmp182 - tmp183);
- tmp184 = tmp182 + tmp183;
- tmp185 = tmp181 - (K250000000 * tmp184);
- X[2 * iostride] = tmp185 - tmp186;
- X[4 * iostride] = tmp186 + tmp185;
- X[0] = tmp181 + tmp184;
- }
- {
- fftw_real tmp173;
- fftw_real tmp174;
- fftw_real tmp177;
- fftw_real tmp180;
- ASSERT_ALIGNED_DOUBLE;
- tmp173 = tmp155 - tmp158;
- tmp174 = tmp162 - tmp165;
- Y[-iostride] = -((K951056516 * tmp173) + (K587785252 * tmp174));
- Y[-3 * iostride] = (K587785252 * tmp173) - (K951056516 * tmp174);
- tmp177 = tmp175 - tmp176;
- tmp180 = tmp178 - tmp179;
- Y[-2 * iostride] = (K951056516 * tmp177) - (K587785252 * tmp180);
- Y[-4 * iostride] = (K951056516 * tmp180) + (K587785252 * tmp177);
- }
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 9) {
- fftw_real tmp39;
- fftw_real tmp87;
- fftw_real tmp132;
- fftw_real tmp144;
- fftw_real tmp73;
- fftw_real tmp84;
- fftw_real tmp85;
- fftw_real tmp91;
- fftw_real tmp92;
- fftw_real tmp93;
- fftw_real tmp100;
- fftw_real tmp103;
- fftw_real tmp128;
- fftw_real tmp121;
- fftw_real tmp122;
- fftw_real tmp142;
- fftw_real tmp50;
- fftw_real tmp61;
- fftw_real tmp62;
- fftw_real tmp88;
- fftw_real tmp89;
- fftw_real tmp90;
- fftw_real tmp107;
- fftw_real tmp110;
- fftw_real tmp127;
- fftw_real tmp118;
- fftw_real tmp119;
- fftw_real tmp141;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp33;
- fftw_real tmp131;
- fftw_real tmp38;
- fftw_real tmp130;
- ASSERT_ALIGNED_DOUBLE;
- tmp33 = X[0];
- tmp131 = Y[-9 * iostride];
- {
- fftw_real tmp35;
- fftw_real tmp37;
- fftw_real tmp34;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp35 = X[5 * iostride];
- tmp37 = Y[-4 * iostride];
- tmp34 = c_re(W[4]);
- tmp36 = c_im(W[4]);
- tmp38 = (tmp34 * tmp35) - (tmp36 * tmp37);
- tmp130 = (tmp36 * tmp35) + (tmp34 * tmp37);
- }
- tmp39 = tmp33 - tmp38;
- tmp87 = tmp33 + tmp38;
- tmp132 = tmp130 + tmp131;
- tmp144 = tmp131 - tmp130;
- }
- {
- fftw_real tmp67;
- fftw_real tmp98;
- fftw_real tmp83;
- fftw_real tmp102;
- fftw_real tmp72;
- fftw_real tmp99;
- fftw_real tmp78;
- fftw_real tmp101;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp64;
- fftw_real tmp66;
- fftw_real tmp63;
- fftw_real tmp65;
- ASSERT_ALIGNED_DOUBLE;
- tmp64 = X[4 * iostride];
- tmp66 = Y[-5 * iostride];
- tmp63 = c_re(W[3]);
- tmp65 = c_im(W[3]);
- tmp67 = (tmp63 * tmp64) - (tmp65 * tmp66);
- tmp98 = (tmp65 * tmp64) + (tmp63 * tmp66);
- }
- {
- fftw_real tmp80;
- fftw_real tmp82;
- fftw_real tmp79;
- fftw_real tmp81;
- ASSERT_ALIGNED_DOUBLE;
- tmp80 = X[iostride];
- tmp82 = Y[-8 * iostride];
- tmp79 = c_re(W[0]);
- tmp81 = c_im(W[0]);
- tmp83 = (tmp79 * tmp80) - (tmp81 * tmp82);
- tmp102 = (tmp81 * tmp80) + (tmp79 * tmp82);
- }
- {
- fftw_real tmp69;
- fftw_real tmp71;
- fftw_real tmp68;
- fftw_real tmp70;
- ASSERT_ALIGNED_DOUBLE;
- tmp69 = X[9 * iostride];
- tmp71 = Y[0];
- tmp68 = c_re(W[8]);
- tmp70 = c_im(W[8]);
- tmp72 = (tmp68 * tmp69) - (tmp70 * tmp71);
- tmp99 = (tmp70 * tmp69) + (tmp68 * tmp71);
- }
- {
- fftw_real tmp75;
- fftw_real tmp77;
- fftw_real tmp74;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- tmp75 = X[6 * iostride];
- tmp77 = Y[-3 * iostride];
- tmp74 = c_re(W[5]);
- tmp76 = c_im(W[5]);
- tmp78 = (tmp74 * tmp75) - (tmp76 * tmp77);
- tmp101 = (tmp76 * tmp75) + (tmp74 * tmp77);
- }
- tmp73 = tmp67 - tmp72;
- tmp84 = tmp78 - tmp83;
- tmp85 = tmp73 + tmp84;
- tmp91 = tmp67 + tmp72;
- tmp92 = tmp78 + tmp83;
- tmp93 = tmp91 + tmp92;
- tmp100 = tmp98 + tmp99;
- tmp103 = tmp101 + tmp102;
- tmp128 = tmp100 + tmp103;
- tmp121 = tmp98 - tmp99;
- tmp122 = tmp101 - tmp102;
- tmp142 = tmp121 + tmp122;
- }
- {
- fftw_real tmp44;
- fftw_real tmp105;
- fftw_real tmp60;
- fftw_real tmp109;
- fftw_real tmp49;
- fftw_real tmp106;
- fftw_real tmp55;
- fftw_real tmp108;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp41;
- fftw_real tmp43;
- fftw_real tmp40;
- fftw_real tmp42;
- ASSERT_ALIGNED_DOUBLE;
- tmp41 = X[2 * iostride];
- tmp43 = Y[-7 * iostride];
- tmp40 = c_re(W[1]);
- tmp42 = c_im(W[1]);
- tmp44 = (tmp40 * tmp41) - (tmp42 * tmp43);
- tmp105 = (tmp42 * tmp41) + (tmp40 * tmp43);
- }
- {
- fftw_real tmp57;
- fftw_real tmp59;
- fftw_real tmp56;
- fftw_real tmp58;
- ASSERT_ALIGNED_DOUBLE;
- tmp57 = X[3 * iostride];
- tmp59 = Y[-6 * iostride];
- tmp56 = c_re(W[2]);
- tmp58 = c_im(W[2]);
- tmp60 = (tmp56 * tmp57) - (tmp58 * tmp59);
- tmp109 = (tmp58 * tmp57) + (tmp56 * tmp59);
- }
- {
- fftw_real tmp46;
- fftw_real tmp48;
- fftw_real tmp45;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- tmp46 = X[7 * iostride];
- tmp48 = Y[-2 * iostride];
- tmp45 = c_re(W[6]);
- tmp47 = c_im(W[6]);
- tmp49 = (tmp45 * tmp46) - (tmp47 * tmp48);
- tmp106 = (tmp47 * tmp46) + (tmp45 * tmp48);
- }
- {
- fftw_real tmp52;
- fftw_real tmp54;
- fftw_real tmp51;
- fftw_real tmp53;
- ASSERT_ALIGNED_DOUBLE;
- tmp52 = X[8 * iostride];
- tmp54 = Y[-iostride];
- tmp51 = c_re(W[7]);
- tmp53 = c_im(W[7]);
- tmp55 = (tmp51 * tmp52) - (tmp53 * tmp54);
- tmp108 = (tmp53 * tmp52) + (tmp51 * tmp54);
- }
- tmp50 = tmp44 - tmp49;
- tmp61 = tmp55 - tmp60;
- tmp62 = tmp50 + tmp61;
- tmp88 = tmp44 + tmp49;
- tmp89 = tmp55 + tmp60;
- tmp90 = tmp88 + tmp89;
- tmp107 = tmp105 + tmp106;
- tmp110 = tmp108 + tmp109;
- tmp127 = tmp107 + tmp110;
- tmp118 = tmp105 - tmp106;
- tmp119 = tmp108 - tmp109;
- tmp141 = tmp118 + tmp119;
- }
- {
- fftw_real tmp115;
- fftw_real tmp86;
- fftw_real tmp116;
- fftw_real tmp124;
- fftw_real tmp126;
- fftw_real tmp120;
- fftw_real tmp123;
- fftw_real tmp125;
- fftw_real tmp117;
- ASSERT_ALIGNED_DOUBLE;
- tmp115 = K559016994 * (tmp62 - tmp85);
- tmp86 = tmp62 + tmp85;
- tmp116 = tmp39 - (K250000000 * tmp86);
- tmp120 = tmp118 - tmp119;
- tmp123 = tmp121 - tmp122;
- tmp124 = (K951056516 * tmp120) + (K587785252 * tmp123);
- tmp126 = (K951056516 * tmp123) - (K587785252 * tmp120);
- Y[-5 * iostride] = tmp39 + tmp86;
- tmp125 = tmp116 - tmp115;
- Y[-7 * iostride] = tmp125 - tmp126;
- X[3 * iostride] = tmp125 + tmp126;
- tmp117 = tmp115 + tmp116;
- Y[-9 * iostride] = tmp117 - tmp124;
- X[iostride] = tmp117 + tmp124;
- }
- {
- fftw_real tmp148;
- fftw_real tmp143;
- fftw_real tmp149;
- fftw_real tmp147;
- fftw_real tmp151;
- fftw_real tmp145;
- fftw_real tmp146;
- fftw_real tmp152;
- fftw_real tmp150;
- ASSERT_ALIGNED_DOUBLE;
- tmp148 = K559016994 * (tmp141 - tmp142);
- tmp143 = tmp141 + tmp142;
- tmp149 = tmp144 - (K250000000 * tmp143);
- tmp145 = tmp50 - tmp61;
- tmp146 = tmp73 - tmp84;
- tmp147 = (K951056516 * tmp145) + (K587785252 * tmp146);
- tmp151 = (K587785252 * tmp145) - (K951056516 * tmp146);
- X[5 * iostride] = -(tmp143 + tmp144);
- tmp152 = tmp149 - tmp148;
- X[7 * iostride] = tmp151 - tmp152;
- Y[-3 * iostride] = tmp151 + tmp152;
- tmp150 = tmp148 + tmp149;
- X[9 * iostride] = -(tmp147 + tmp150);
- Y[-iostride] = tmp150 - tmp147;
- }
- {
- fftw_real tmp96;
- fftw_real tmp94;
- fftw_real tmp95;
- fftw_real tmp112;
- fftw_real tmp114;
- fftw_real tmp104;
- fftw_real tmp111;
- fftw_real tmp113;
- fftw_real tmp97;
- ASSERT_ALIGNED_DOUBLE;
- tmp96 = K559016994 * (tmp90 - tmp93);
- tmp94 = tmp90 + tmp93;
- tmp95 = tmp87 - (K250000000 * tmp94);
- tmp104 = tmp100 - tmp103;
- tmp111 = tmp107 - tmp110;
- tmp112 = (K951056516 * tmp104) - (K587785252 * tmp111);
- tmp114 = (K951056516 * tmp111) + (K587785252 * tmp104);
- X[0] = tmp87 + tmp94;
- tmp113 = tmp96 + tmp95;
- X[4 * iostride] = tmp113 - tmp114;
- Y[-6 * iostride] = tmp113 + tmp114;
- tmp97 = tmp95 - tmp96;
- X[2 * iostride] = tmp97 - tmp112;
- Y[-8 * iostride] = tmp97 + tmp112;
- }
- {
- fftw_real tmp134;
- fftw_real tmp129;
- fftw_real tmp133;
- fftw_real tmp138;
- fftw_real tmp140;
- fftw_real tmp136;
- fftw_real tmp137;
- fftw_real tmp139;
- fftw_real tmp135;
- ASSERT_ALIGNED_DOUBLE;
- tmp134 = K559016994 * (tmp127 - tmp128);
- tmp129 = tmp127 + tmp128;
- tmp133 = tmp132 - (K250000000 * tmp129);
- tmp136 = tmp91 - tmp92;
- tmp137 = tmp88 - tmp89;
- tmp138 = (K951056516 * tmp136) - (K587785252 * tmp137);
- tmp140 = (K951056516 * tmp137) + (K587785252 * tmp136);
- Y[0] = tmp129 + tmp132;
- tmp139 = tmp134 + tmp133;
- X[6 * iostride] = -(tmp139 - tmp140);
- Y[-4 * iostride] = tmp140 + tmp139;
- tmp135 = tmp133 - tmp134;
- X[8 * iostride] = -(tmp135 - tmp138);
- Y[-2 * iostride] = tmp138 + tmp135;
- }
- }
- if (i == m) {
- fftw_real tmp1;
- fftw_real tmp24;
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp25;
- fftw_real tmp26;
- fftw_real tmp14;
- fftw_real tmp28;
- fftw_real tmp23;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp24 = X[5 * iostride];
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp6;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = X[4 * iostride];
- tmp3 = X[6 * iostride];
- tmp4 = tmp2 - tmp3;
- tmp5 = X[8 * iostride];
- tmp6 = X[2 * iostride];
- tmp7 = tmp5 - tmp6;
- tmp8 = tmp4 + tmp7;
- tmp10 = K559016994 * (tmp4 - tmp7);
- tmp25 = tmp2 + tmp3;
- tmp26 = tmp5 + tmp6;
- }
- {
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp22;
- fftw_real tmp15;
- fftw_real tmp16;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp12 = X[iostride];
- tmp13 = X[9 * iostride];
- tmp22 = tmp12 + tmp13;
- tmp15 = X[3 * iostride];
- tmp16 = X[7 * iostride];
- tmp21 = tmp15 + tmp16;
- tmp14 = tmp12 - tmp13;
- tmp28 = K559016994 * (tmp22 + tmp21);
- tmp23 = tmp21 - tmp22;
- tmp17 = tmp15 - tmp16;
- }
- X[2 * iostride] = tmp1 + tmp8;
- {
- fftw_real tmp18;
- fftw_real tmp20;
- fftw_real tmp11;
- fftw_real tmp19;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp18 = (K587785252 * tmp14) - (K951056516 * tmp17);
- tmp20 = (K951056516 * tmp14) + (K587785252 * tmp17);
- tmp9 = tmp1 - (K250000000 * tmp8);
- tmp11 = tmp9 - tmp10;
- tmp19 = tmp10 + tmp9;
- X[3 * iostride] = tmp11 - tmp18;
- X[iostride] = tmp11 + tmp18;
- X[4 * iostride] = tmp19 - tmp20;
- X[0] = tmp19 + tmp20;
- }
- Y[-2 * iostride] = tmp23 - tmp24;
- {
- fftw_real tmp27;
- fftw_real tmp32;
- fftw_real tmp30;
- fftw_real tmp31;
- fftw_real tmp29;
- ASSERT_ALIGNED_DOUBLE;
- tmp27 = (K951056516 * tmp25) + (K587785252 * tmp26);
- tmp32 = (K951056516 * tmp26) - (K587785252 * tmp25);
- tmp29 = (K250000000 * tmp23) + tmp24;
- tmp30 = tmp28 + tmp29;
- tmp31 = tmp29 - tmp28;
- Y[0] = -(tmp27 + tmp30);
- Y[-4 * iostride] = tmp27 - tmp30;
- Y[-iostride] = tmp31 - tmp32;
- Y[-3 * iostride] = tmp32 + tmp31;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9};
-fftw_codelet_desc fftw_hc2hc_forward_10_desc =
-{
- "fftw_hc2hc_forward_10",
- (void (*)()) fftw_hc2hc_forward_10,
- 10,
- FFTW_FORWARD,
- FFTW_HC2HC,
- 223,
- 9,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhf_16.c b/src/sndobj/rfftw/fhf_16.c
deleted file mode 100644
index 0c64bba..0000000
--- a/src/sndobj/rfftw/fhf_16.c
+++ /dev/null
@@ -1,975 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:51 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 16 */
-
-/*
- * This function contains 298 FP additions, 130 FP multiplications,
- * (or, 244 additions, 76 multiplications, 54 fused multiply/add),
- * 51 stack variables, and 128 memory accesses
- */
-static const fftw_real K277785116 = FFTW_KONST(+0.277785116509801112371415406974266437187468595);
-static const fftw_real K415734806 = FFTW_KONST(+0.415734806151272618539394188808952878369280406);
-static const fftw_real K490392640 = FFTW_KONST(+0.490392640201615224563091118067119518486966865);
-static const fftw_real K097545161 = FFTW_KONST(+0.097545161008064133924142434238511120463845809);
-static const fftw_real K1_414213562 = FFTW_KONST(+1.414213562373095048801688724209698078569671875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-
-/*
- * Generator Id's :
- * $Id: fhf_16.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: fhf_16.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: fhf_16.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- */
-
-void fftw_hc2hc_forward_16(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (16 * iostride);
- {
- fftw_real tmp277;
- fftw_real tmp280;
- fftw_real tmp281;
- fftw_real tmp309;
- fftw_real tmp292;
- fftw_real tmp307;
- fftw_real tmp314;
- fftw_real tmp322;
- fftw_real tmp330;
- fftw_real tmp284;
- fftw_real tmp287;
- fftw_real tmp288;
- fftw_real tmp310;
- fftw_real tmp291;
- fftw_real tmp300;
- fftw_real tmp315;
- fftw_real tmp325;
- fftw_real tmp331;
- fftw_real tmp290;
- fftw_real tmp289;
- fftw_real tmp317;
- fftw_real tmp318;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp275;
- fftw_real tmp276;
- fftw_real tmp278;
- fftw_real tmp279;
- ASSERT_ALIGNED_DOUBLE;
- tmp275 = X[0];
- tmp276 = X[8 * iostride];
- tmp277 = tmp275 + tmp276;
- tmp278 = X[4 * iostride];
- tmp279 = X[12 * iostride];
- tmp280 = tmp278 + tmp279;
- tmp281 = tmp277 + tmp280;
- tmp309 = tmp275 - tmp276;
- tmp292 = tmp278 - tmp279;
- }
- {
- fftw_real tmp303;
- fftw_real tmp320;
- fftw_real tmp306;
- fftw_real tmp321;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp301;
- fftw_real tmp302;
- fftw_real tmp304;
- fftw_real tmp305;
- ASSERT_ALIGNED_DOUBLE;
- tmp301 = X[iostride];
- tmp302 = X[9 * iostride];
- tmp303 = tmp301 - tmp302;
- tmp320 = tmp301 + tmp302;
- tmp304 = X[5 * iostride];
- tmp305 = X[13 * iostride];
- tmp306 = tmp304 - tmp305;
- tmp321 = tmp304 + tmp305;
- }
- tmp307 = (K382683432 * tmp303) + (K923879532 * tmp306);
- tmp314 = (K923879532 * tmp303) - (K382683432 * tmp306);
- tmp322 = tmp320 - tmp321;
- tmp330 = tmp320 + tmp321;
- }
- {
- fftw_real tmp282;
- fftw_real tmp283;
- fftw_real tmp285;
- fftw_real tmp286;
- ASSERT_ALIGNED_DOUBLE;
- tmp282 = X[2 * iostride];
- tmp283 = X[10 * iostride];
- tmp284 = tmp282 + tmp283;
- tmp290 = tmp282 - tmp283;
- tmp285 = X[14 * iostride];
- tmp286 = X[6 * iostride];
- tmp287 = tmp285 + tmp286;
- tmp289 = tmp285 - tmp286;
- }
- tmp288 = tmp284 + tmp287;
- tmp310 = K707106781 * (tmp290 + tmp289);
- tmp291 = K707106781 * (tmp289 - tmp290);
- {
- fftw_real tmp296;
- fftw_real tmp323;
- fftw_real tmp299;
- fftw_real tmp324;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp294;
- fftw_real tmp295;
- fftw_real tmp297;
- fftw_real tmp298;
- ASSERT_ALIGNED_DOUBLE;
- tmp294 = X[15 * iostride];
- tmp295 = X[7 * iostride];
- tmp296 = tmp294 - tmp295;
- tmp323 = tmp294 + tmp295;
- tmp297 = X[3 * iostride];
- tmp298 = X[11 * iostride];
- tmp299 = tmp297 - tmp298;
- tmp324 = tmp297 + tmp298;
- }
- tmp300 = (K382683432 * tmp296) - (K923879532 * tmp299);
- tmp315 = (K923879532 * tmp296) + (K382683432 * tmp299);
- tmp325 = tmp323 - tmp324;
- tmp331 = tmp323 + tmp324;
- }
- {
- fftw_real tmp329;
- fftw_real tmp332;
- fftw_real tmp327;
- fftw_real tmp328;
- ASSERT_ALIGNED_DOUBLE;
- X[4 * iostride] = tmp281 - tmp288;
- tmp329 = tmp281 + tmp288;
- tmp332 = tmp330 + tmp331;
- X[8 * iostride] = tmp329 - tmp332;
- X[0] = tmp329 + tmp332;
- Y[-4 * iostride] = tmp331 - tmp330;
- tmp327 = tmp287 - tmp284;
- tmp328 = K707106781 * (tmp325 - tmp322);
- Y[-2 * iostride] = tmp327 + tmp328;
- Y[-6 * iostride] = tmp328 - tmp327;
- }
- {
- fftw_real tmp319;
- fftw_real tmp326;
- fftw_real tmp313;
- fftw_real tmp316;
- ASSERT_ALIGNED_DOUBLE;
- tmp319 = tmp277 - tmp280;
- tmp326 = K707106781 * (tmp322 + tmp325);
- X[6 * iostride] = tmp319 - tmp326;
- X[2 * iostride] = tmp319 + tmp326;
- tmp313 = tmp309 + tmp310;
- tmp316 = tmp314 + tmp315;
- X[7 * iostride] = tmp313 - tmp316;
- X[iostride] = tmp313 + tmp316;
- }
- tmp317 = tmp292 + tmp291;
- tmp318 = tmp315 - tmp314;
- Y[-3 * iostride] = tmp317 + tmp318;
- Y[-5 * iostride] = tmp318 - tmp317;
- {
- fftw_real tmp293;
- fftw_real tmp308;
- fftw_real tmp311;
- fftw_real tmp312;
- ASSERT_ALIGNED_DOUBLE;
- tmp293 = tmp291 - tmp292;
- tmp308 = tmp300 - tmp307;
- Y[-iostride] = tmp293 + tmp308;
- Y[-7 * iostride] = tmp308 - tmp293;
- tmp311 = tmp309 - tmp310;
- tmp312 = tmp307 + tmp300;
- X[5 * iostride] = tmp311 - tmp312;
- X[3 * iostride] = tmp311 + tmp312;
- }
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 15) {
- fftw_real tmp77;
- fftw_real tmp161;
- fftw_real tmp249;
- fftw_real tmp262;
- fftw_real tmp88;
- fftw_real tmp263;
- fftw_real tmp164;
- fftw_real tmp246;
- fftw_real tmp147;
- fftw_real tmp158;
- fftw_real tmp231;
- fftw_real tmp198;
- fftw_real tmp214;
- fftw_real tmp232;
- fftw_real tmp233;
- fftw_real tmp234;
- fftw_real tmp193;
- fftw_real tmp213;
- fftw_real tmp100;
- fftw_real tmp222;
- fftw_real tmp170;
- fftw_real tmp206;
- fftw_real tmp111;
- fftw_real tmp223;
- fftw_real tmp175;
- fftw_real tmp207;
- fftw_real tmp124;
- fftw_real tmp135;
- fftw_real tmp226;
- fftw_real tmp187;
- fftw_real tmp211;
- fftw_real tmp227;
- fftw_real tmp228;
- fftw_real tmp229;
- fftw_real tmp182;
- fftw_real tmp210;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp71;
- fftw_real tmp248;
- fftw_real tmp76;
- fftw_real tmp247;
- ASSERT_ALIGNED_DOUBLE;
- tmp71 = X[0];
- tmp248 = Y[-15 * iostride];
- {
- fftw_real tmp73;
- fftw_real tmp75;
- fftw_real tmp72;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = X[8 * iostride];
- tmp75 = Y[-7 * iostride];
- tmp72 = c_re(W[7]);
- tmp74 = c_im(W[7]);
- tmp76 = (tmp72 * tmp73) - (tmp74 * tmp75);
- tmp247 = (tmp74 * tmp73) + (tmp72 * tmp75);
- }
- tmp77 = tmp71 + tmp76;
- tmp161 = tmp71 - tmp76;
- tmp249 = tmp247 + tmp248;
- tmp262 = tmp248 - tmp247;
- }
- {
- fftw_real tmp82;
- fftw_real tmp162;
- fftw_real tmp87;
- fftw_real tmp163;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp79;
- fftw_real tmp81;
- fftw_real tmp78;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp79 = X[4 * iostride];
- tmp81 = Y[-11 * iostride];
- tmp78 = c_re(W[3]);
- tmp80 = c_im(W[3]);
- tmp82 = (tmp78 * tmp79) - (tmp80 * tmp81);
- tmp162 = (tmp80 * tmp79) + (tmp78 * tmp81);
- }
- {
- fftw_real tmp84;
- fftw_real tmp86;
- fftw_real tmp83;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- tmp84 = X[12 * iostride];
- tmp86 = Y[-3 * iostride];
- tmp83 = c_re(W[11]);
- tmp85 = c_im(W[11]);
- tmp87 = (tmp83 * tmp84) - (tmp85 * tmp86);
- tmp163 = (tmp85 * tmp84) + (tmp83 * tmp86);
- }
- tmp88 = tmp82 + tmp87;
- tmp263 = tmp82 - tmp87;
- tmp164 = tmp162 - tmp163;
- tmp246 = tmp162 + tmp163;
- }
- {
- fftw_real tmp141;
- fftw_real tmp194;
- fftw_real tmp157;
- fftw_real tmp191;
- fftw_real tmp146;
- fftw_real tmp195;
- fftw_real tmp152;
- fftw_real tmp190;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp138;
- fftw_real tmp140;
- fftw_real tmp137;
- fftw_real tmp139;
- ASSERT_ALIGNED_DOUBLE;
- tmp138 = X[15 * iostride];
- tmp140 = Y[0];
- tmp137 = c_re(W[14]);
- tmp139 = c_im(W[14]);
- tmp141 = (tmp137 * tmp138) - (tmp139 * tmp140);
- tmp194 = (tmp139 * tmp138) + (tmp137 * tmp140);
- }
- {
- fftw_real tmp154;
- fftw_real tmp156;
- fftw_real tmp153;
- fftw_real tmp155;
- ASSERT_ALIGNED_DOUBLE;
- tmp154 = X[11 * iostride];
- tmp156 = Y[-4 * iostride];
- tmp153 = c_re(W[10]);
- tmp155 = c_im(W[10]);
- tmp157 = (tmp153 * tmp154) - (tmp155 * tmp156);
- tmp191 = (tmp155 * tmp154) + (tmp153 * tmp156);
- }
- {
- fftw_real tmp143;
- fftw_real tmp145;
- fftw_real tmp142;
- fftw_real tmp144;
- ASSERT_ALIGNED_DOUBLE;
- tmp143 = X[7 * iostride];
- tmp145 = Y[-8 * iostride];
- tmp142 = c_re(W[6]);
- tmp144 = c_im(W[6]);
- tmp146 = (tmp142 * tmp143) - (tmp144 * tmp145);
- tmp195 = (tmp144 * tmp143) + (tmp142 * tmp145);
- }
- {
- fftw_real tmp149;
- fftw_real tmp151;
- fftw_real tmp148;
- fftw_real tmp150;
- ASSERT_ALIGNED_DOUBLE;
- tmp149 = X[3 * iostride];
- tmp151 = Y[-12 * iostride];
- tmp148 = c_re(W[2]);
- tmp150 = c_im(W[2]);
- tmp152 = (tmp148 * tmp149) - (tmp150 * tmp151);
- tmp190 = (tmp150 * tmp149) + (tmp148 * tmp151);
- }
- {
- fftw_real tmp196;
- fftw_real tmp197;
- fftw_real tmp189;
- fftw_real tmp192;
- ASSERT_ALIGNED_DOUBLE;
- tmp147 = tmp141 + tmp146;
- tmp158 = tmp152 + tmp157;
- tmp231 = tmp147 - tmp158;
- tmp196 = tmp194 - tmp195;
- tmp197 = tmp152 - tmp157;
- tmp198 = tmp196 + tmp197;
- tmp214 = tmp196 - tmp197;
- tmp232 = tmp194 + tmp195;
- tmp233 = tmp190 + tmp191;
- tmp234 = tmp232 - tmp233;
- tmp189 = tmp141 - tmp146;
- tmp192 = tmp190 - tmp191;
- tmp193 = tmp189 - tmp192;
- tmp213 = tmp189 + tmp192;
- }
- }
- {
- fftw_real tmp94;
- fftw_real tmp166;
- fftw_real tmp99;
- fftw_real tmp167;
- fftw_real tmp168;
- fftw_real tmp169;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp91;
- fftw_real tmp93;
- fftw_real tmp90;
- fftw_real tmp92;
- ASSERT_ALIGNED_DOUBLE;
- tmp91 = X[2 * iostride];
- tmp93 = Y[-13 * iostride];
- tmp90 = c_re(W[1]);
- tmp92 = c_im(W[1]);
- tmp94 = (tmp90 * tmp91) - (tmp92 * tmp93);
- tmp166 = (tmp92 * tmp91) + (tmp90 * tmp93);
- }
- {
- fftw_real tmp96;
- fftw_real tmp98;
- fftw_real tmp95;
- fftw_real tmp97;
- ASSERT_ALIGNED_DOUBLE;
- tmp96 = X[10 * iostride];
- tmp98 = Y[-5 * iostride];
- tmp95 = c_re(W[9]);
- tmp97 = c_im(W[9]);
- tmp99 = (tmp95 * tmp96) - (tmp97 * tmp98);
- tmp167 = (tmp97 * tmp96) + (tmp95 * tmp98);
- }
- tmp100 = tmp94 + tmp99;
- tmp222 = tmp166 + tmp167;
- tmp168 = tmp166 - tmp167;
- tmp169 = tmp94 - tmp99;
- tmp170 = tmp168 - tmp169;
- tmp206 = tmp169 + tmp168;
- }
- {
- fftw_real tmp105;
- fftw_real tmp172;
- fftw_real tmp110;
- fftw_real tmp173;
- fftw_real tmp171;
- fftw_real tmp174;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp102;
- fftw_real tmp104;
- fftw_real tmp101;
- fftw_real tmp103;
- ASSERT_ALIGNED_DOUBLE;
- tmp102 = X[14 * iostride];
- tmp104 = Y[-iostride];
- tmp101 = c_re(W[13]);
- tmp103 = c_im(W[13]);
- tmp105 = (tmp101 * tmp102) - (tmp103 * tmp104);
- tmp172 = (tmp103 * tmp102) + (tmp101 * tmp104);
- }
- {
- fftw_real tmp107;
- fftw_real tmp109;
- fftw_real tmp106;
- fftw_real tmp108;
- ASSERT_ALIGNED_DOUBLE;
- tmp107 = X[6 * iostride];
- tmp109 = Y[-9 * iostride];
- tmp106 = c_re(W[5]);
- tmp108 = c_im(W[5]);
- tmp110 = (tmp106 * tmp107) - (tmp108 * tmp109);
- tmp173 = (tmp108 * tmp107) + (tmp106 * tmp109);
- }
- tmp111 = tmp105 + tmp110;
- tmp223 = tmp172 + tmp173;
- tmp171 = tmp105 - tmp110;
- tmp174 = tmp172 - tmp173;
- tmp175 = tmp171 + tmp174;
- tmp207 = tmp171 - tmp174;
- }
- {
- fftw_real tmp118;
- fftw_real tmp178;
- fftw_real tmp134;
- fftw_real tmp185;
- fftw_real tmp123;
- fftw_real tmp179;
- fftw_real tmp129;
- fftw_real tmp184;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp115;
- fftw_real tmp117;
- fftw_real tmp114;
- fftw_real tmp116;
- ASSERT_ALIGNED_DOUBLE;
- tmp115 = X[iostride];
- tmp117 = Y[-14 * iostride];
- tmp114 = c_re(W[0]);
- tmp116 = c_im(W[0]);
- tmp118 = (tmp114 * tmp115) - (tmp116 * tmp117);
- tmp178 = (tmp116 * tmp115) + (tmp114 * tmp117);
- }
- {
- fftw_real tmp131;
- fftw_real tmp133;
- fftw_real tmp130;
- fftw_real tmp132;
- ASSERT_ALIGNED_DOUBLE;
- tmp131 = X[13 * iostride];
- tmp133 = Y[-2 * iostride];
- tmp130 = c_re(W[12]);
- tmp132 = c_im(W[12]);
- tmp134 = (tmp130 * tmp131) - (tmp132 * tmp133);
- tmp185 = (tmp132 * tmp131) + (tmp130 * tmp133);
- }
- {
- fftw_real tmp120;
- fftw_real tmp122;
- fftw_real tmp119;
- fftw_real tmp121;
- ASSERT_ALIGNED_DOUBLE;
- tmp120 = X[9 * iostride];
- tmp122 = Y[-6 * iostride];
- tmp119 = c_re(W[8]);
- tmp121 = c_im(W[8]);
- tmp123 = (tmp119 * tmp120) - (tmp121 * tmp122);
- tmp179 = (tmp121 * tmp120) + (tmp119 * tmp122);
- }
- {
- fftw_real tmp126;
- fftw_real tmp128;
- fftw_real tmp125;
- fftw_real tmp127;
- ASSERT_ALIGNED_DOUBLE;
- tmp126 = X[5 * iostride];
- tmp128 = Y[-10 * iostride];
- tmp125 = c_re(W[4]);
- tmp127 = c_im(W[4]);
- tmp129 = (tmp125 * tmp126) - (tmp127 * tmp128);
- tmp184 = (tmp127 * tmp126) + (tmp125 * tmp128);
- }
- {
- fftw_real tmp183;
- fftw_real tmp186;
- fftw_real tmp180;
- fftw_real tmp181;
- ASSERT_ALIGNED_DOUBLE;
- tmp124 = tmp118 + tmp123;
- tmp135 = tmp129 + tmp134;
- tmp226 = tmp124 - tmp135;
- tmp183 = tmp118 - tmp123;
- tmp186 = tmp184 - tmp185;
- tmp187 = tmp183 - tmp186;
- tmp211 = tmp183 + tmp186;
- tmp227 = tmp178 + tmp179;
- tmp228 = tmp184 + tmp185;
- tmp229 = tmp227 - tmp228;
- tmp180 = tmp178 - tmp179;
- tmp181 = tmp129 - tmp134;
- tmp182 = tmp180 + tmp181;
- tmp210 = tmp180 - tmp181;
- }
- }
- {
- fftw_real tmp177;
- fftw_real tmp201;
- fftw_real tmp271;
- fftw_real tmp273;
- fftw_real tmp200;
- fftw_real tmp274;
- fftw_real tmp204;
- fftw_real tmp272;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp165;
- fftw_real tmp176;
- fftw_real tmp269;
- fftw_real tmp270;
- ASSERT_ALIGNED_DOUBLE;
- tmp165 = tmp161 - tmp164;
- tmp176 = K707106781 * (tmp170 - tmp175);
- tmp177 = tmp165 + tmp176;
- tmp201 = tmp165 - tmp176;
- tmp269 = K707106781 * (tmp207 - tmp206);
- tmp270 = tmp263 + tmp262;
- tmp271 = tmp269 + tmp270;
- tmp273 = tmp270 - tmp269;
- }
- {
- fftw_real tmp188;
- fftw_real tmp199;
- fftw_real tmp202;
- fftw_real tmp203;
- ASSERT_ALIGNED_DOUBLE;
- tmp188 = (K923879532 * tmp182) + (K382683432 * tmp187);
- tmp199 = (K382683432 * tmp193) - (K923879532 * tmp198);
- tmp200 = tmp188 + tmp199;
- tmp274 = tmp199 - tmp188;
- tmp202 = (K382683432 * tmp182) - (K923879532 * tmp187);
- tmp203 = (K382683432 * tmp198) + (K923879532 * tmp193);
- tmp204 = tmp202 - tmp203;
- tmp272 = tmp202 + tmp203;
- }
- Y[-11 * iostride] = tmp177 - tmp200;
- X[3 * iostride] = tmp177 + tmp200;
- Y[-15 * iostride] = tmp201 - tmp204;
- X[7 * iostride] = tmp201 + tmp204;
- X[11 * iostride] = -(tmp271 - tmp272);
- Y[-3 * iostride] = tmp272 + tmp271;
- X[15 * iostride] = -(tmp273 - tmp274);
- Y[-7 * iostride] = tmp274 + tmp273;
- }
- {
- fftw_real tmp209;
- fftw_real tmp217;
- fftw_real tmp265;
- fftw_real tmp267;
- fftw_real tmp216;
- fftw_real tmp268;
- fftw_real tmp220;
- fftw_real tmp266;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp205;
- fftw_real tmp208;
- fftw_real tmp261;
- fftw_real tmp264;
- ASSERT_ALIGNED_DOUBLE;
- tmp205 = tmp161 + tmp164;
- tmp208 = K707106781 * (tmp206 + tmp207);
- tmp209 = tmp205 + tmp208;
- tmp217 = tmp205 - tmp208;
- tmp261 = K707106781 * (tmp170 + tmp175);
- tmp264 = tmp262 - tmp263;
- tmp265 = tmp261 + tmp264;
- tmp267 = tmp264 - tmp261;
- }
- {
- fftw_real tmp212;
- fftw_real tmp215;
- fftw_real tmp218;
- fftw_real tmp219;
- ASSERT_ALIGNED_DOUBLE;
- tmp212 = (K382683432 * tmp210) + (K923879532 * tmp211);
- tmp215 = (K923879532 * tmp213) - (K382683432 * tmp214);
- tmp216 = tmp212 + tmp215;
- tmp268 = tmp215 - tmp212;
- tmp218 = (K923879532 * tmp210) - (K382683432 * tmp211);
- tmp219 = (K923879532 * tmp214) + (K382683432 * tmp213);
- tmp220 = tmp218 - tmp219;
- tmp266 = tmp218 + tmp219;
- }
- Y[-9 * iostride] = tmp209 - tmp216;
- X[iostride] = tmp209 + tmp216;
- Y[-13 * iostride] = tmp217 - tmp220;
- X[5 * iostride] = tmp217 + tmp220;
- X[9 * iostride] = -(tmp265 - tmp266);
- Y[-iostride] = tmp266 + tmp265;
- X[13 * iostride] = -(tmp267 - tmp268);
- Y[-5 * iostride] = tmp268 + tmp267;
- }
- {
- fftw_real tmp225;
- fftw_real tmp237;
- fftw_real tmp257;
- fftw_real tmp259;
- fftw_real tmp236;
- fftw_real tmp260;
- fftw_real tmp240;
- fftw_real tmp258;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp221;
- fftw_real tmp224;
- fftw_real tmp255;
- fftw_real tmp256;
- ASSERT_ALIGNED_DOUBLE;
- tmp221 = tmp77 - tmp88;
- tmp224 = tmp222 - tmp223;
- tmp225 = tmp221 + tmp224;
- tmp237 = tmp221 - tmp224;
- tmp255 = tmp111 - tmp100;
- tmp256 = tmp249 - tmp246;
- tmp257 = tmp255 + tmp256;
- tmp259 = tmp256 - tmp255;
- }
- {
- fftw_real tmp230;
- fftw_real tmp235;
- fftw_real tmp238;
- fftw_real tmp239;
- ASSERT_ALIGNED_DOUBLE;
- tmp230 = tmp226 + tmp229;
- tmp235 = tmp231 - tmp234;
- tmp236 = K707106781 * (tmp230 + tmp235);
- tmp260 = K707106781 * (tmp235 - tmp230);
- tmp238 = tmp229 - tmp226;
- tmp239 = tmp231 + tmp234;
- tmp240 = K707106781 * (tmp238 - tmp239);
- tmp258 = K707106781 * (tmp238 + tmp239);
- }
- Y[-10 * iostride] = tmp225 - tmp236;
- X[2 * iostride] = tmp225 + tmp236;
- Y[-14 * iostride] = tmp237 - tmp240;
- X[6 * iostride] = tmp237 + tmp240;
- X[10 * iostride] = -(tmp257 - tmp258);
- Y[-2 * iostride] = tmp258 + tmp257;
- X[14 * iostride] = -(tmp259 - tmp260);
- Y[-6 * iostride] = tmp260 + tmp259;
- }
- {
- fftw_real tmp113;
- fftw_real tmp241;
- fftw_real tmp251;
- fftw_real tmp253;
- fftw_real tmp160;
- fftw_real tmp254;
- fftw_real tmp244;
- fftw_real tmp252;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp89;
- fftw_real tmp112;
- fftw_real tmp245;
- fftw_real tmp250;
- ASSERT_ALIGNED_DOUBLE;
- tmp89 = tmp77 + tmp88;
- tmp112 = tmp100 + tmp111;
- tmp113 = tmp89 + tmp112;
- tmp241 = tmp89 - tmp112;
- tmp245 = tmp222 + tmp223;
- tmp250 = tmp246 + tmp249;
- tmp251 = tmp245 + tmp250;
- tmp253 = tmp250 - tmp245;
- }
- {
- fftw_real tmp136;
- fftw_real tmp159;
- fftw_real tmp242;
- fftw_real tmp243;
- ASSERT_ALIGNED_DOUBLE;
- tmp136 = tmp124 + tmp135;
- tmp159 = tmp147 + tmp158;
- tmp160 = tmp136 + tmp159;
- tmp254 = tmp159 - tmp136;
- tmp242 = tmp227 + tmp228;
- tmp243 = tmp232 + tmp233;
- tmp244 = tmp242 - tmp243;
- tmp252 = tmp242 + tmp243;
- }
- Y[-8 * iostride] = tmp113 - tmp160;
- X[0] = tmp113 + tmp160;
- Y[-12 * iostride] = tmp241 - tmp244;
- X[4 * iostride] = tmp241 + tmp244;
- X[8 * iostride] = -(tmp251 - tmp252);
- Y[0] = tmp252 + tmp251;
- X[12 * iostride] = -(tmp253 - tmp254);
- Y[-4 * iostride] = tmp254 + tmp253;
- }
- }
- if (i == m) {
- fftw_real tmp5;
- fftw_real tmp41;
- fftw_real tmp61;
- fftw_real tmp67;
- fftw_real tmp30;
- fftw_real tmp49;
- fftw_real tmp34;
- fftw_real tmp50;
- fftw_real tmp12;
- fftw_real tmp66;
- fftw_real tmp44;
- fftw_real tmp58;
- fftw_real tmp19;
- fftw_real tmp46;
- fftw_real tmp23;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp60;
- fftw_real tmp4;
- fftw_real tmp59;
- fftw_real tmp2;
- fftw_real tmp3;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp60 = X[8 * iostride];
- tmp2 = X[4 * iostride];
- tmp3 = X[12 * iostride];
- tmp4 = K707106781 * (tmp2 - tmp3);
- tmp59 = K707106781 * (tmp2 + tmp3);
- tmp5 = tmp1 + tmp4;
- tmp41 = tmp1 - tmp4;
- tmp61 = tmp59 + tmp60;
- tmp67 = tmp60 - tmp59;
- }
- {
- fftw_real tmp29;
- fftw_real tmp33;
- fftw_real tmp27;
- fftw_real tmp31;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp28;
- fftw_real tmp32;
- fftw_real tmp25;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp28 = X[15 * iostride];
- tmp29 = K2_000000000 * tmp28;
- tmp32 = X[7 * iostride];
- tmp33 = K2_000000000 * tmp32;
- tmp25 = X[3 * iostride];
- tmp26 = X[11 * iostride];
- tmp27 = K1_414213562 * (tmp25 - tmp26);
- tmp31 = K1_414213562 * (tmp25 + tmp26);
- }
- tmp30 = tmp27 - tmp29;
- tmp49 = tmp27 + tmp29;
- tmp34 = tmp31 + tmp33;
- tmp50 = tmp33 - tmp31;
- }
- {
- fftw_real tmp8;
- fftw_real tmp42;
- fftw_real tmp11;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp6;
- fftw_real tmp7;
- fftw_real tmp9;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = X[2 * iostride];
- tmp7 = X[10 * iostride];
- tmp8 = (K923879532 * tmp6) - (K382683432 * tmp7);
- tmp42 = (K382683432 * tmp6) + (K923879532 * tmp7);
- tmp9 = X[6 * iostride];
- tmp10 = X[14 * iostride];
- tmp11 = (K382683432 * tmp9) - (K923879532 * tmp10);
- tmp43 = (K923879532 * tmp9) + (K382683432 * tmp10);
- }
- tmp12 = tmp8 + tmp11;
- tmp66 = tmp11 - tmp8;
- tmp44 = tmp42 - tmp43;
- tmp58 = tmp42 + tmp43;
- }
- {
- fftw_real tmp15;
- fftw_real tmp22;
- fftw_real tmp18;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp14;
- fftw_real tmp21;
- fftw_real tmp16;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = X[iostride];
- tmp15 = K2_000000000 * tmp14;
- tmp21 = X[9 * iostride];
- tmp22 = K2_000000000 * tmp21;
- tmp16 = X[5 * iostride];
- tmp17 = X[13 * iostride];
- tmp18 = K1_414213562 * (tmp16 - tmp17);
- tmp20 = K1_414213562 * (tmp16 + tmp17);
- }
- tmp19 = tmp15 + tmp18;
- tmp46 = tmp15 - tmp18;
- tmp23 = tmp20 + tmp22;
- tmp47 = tmp22 - tmp20;
- }
- {
- fftw_real tmp13;
- fftw_real tmp62;
- fftw_real tmp36;
- fftw_real tmp57;
- fftw_real tmp24;
- fftw_real tmp35;
- ASSERT_ALIGNED_DOUBLE;
- tmp13 = tmp5 - tmp12;
- tmp62 = tmp58 + tmp61;
- tmp24 = (K097545161 * tmp19) + (K490392640 * tmp23);
- tmp35 = (K097545161 * tmp30) - (K490392640 * tmp34);
- tmp36 = tmp24 + tmp35;
- tmp57 = tmp35 - tmp24;
- X[4 * iostride] = tmp13 - tmp36;
- X[3 * iostride] = tmp13 + tmp36;
- Y[0] = tmp57 - tmp62;
- Y[-7 * iostride] = tmp57 + tmp62;
- }
- {
- fftw_real tmp37;
- fftw_real tmp64;
- fftw_real tmp40;
- fftw_real tmp63;
- fftw_real tmp38;
- fftw_real tmp39;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = tmp5 + tmp12;
- tmp64 = tmp61 - tmp58;
- tmp38 = (K490392640 * tmp19) - (K097545161 * tmp23);
- tmp39 = (K490392640 * tmp30) + (K097545161 * tmp34);
- tmp40 = tmp38 + tmp39;
- tmp63 = tmp39 - tmp38;
- X[7 * iostride] = tmp37 - tmp40;
- X[0] = tmp37 + tmp40;
- Y[-4 * iostride] = tmp63 - tmp64;
- Y[-3 * iostride] = tmp63 + tmp64;
- }
- {
- fftw_real tmp45;
- fftw_real tmp68;
- fftw_real tmp52;
- fftw_real tmp65;
- fftw_real tmp48;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = tmp41 + tmp44;
- tmp68 = tmp66 - tmp67;
- tmp48 = (K415734806 * tmp46) + (K277785116 * tmp47);
- tmp51 = (K415734806 * tmp49) + (K277785116 * tmp50);
- tmp52 = tmp48 - tmp51;
- tmp65 = tmp48 + tmp51;
- X[6 * iostride] = tmp45 - tmp52;
- X[iostride] = tmp45 + tmp52;
- Y[-5 * iostride] = -(tmp65 + tmp68);
- Y[-2 * iostride] = tmp68 - tmp65;
- }
- {
- fftw_real tmp53;
- fftw_real tmp70;
- fftw_real tmp56;
- fftw_real tmp69;
- fftw_real tmp54;
- fftw_real tmp55;
- ASSERT_ALIGNED_DOUBLE;
- tmp53 = tmp41 - tmp44;
- tmp70 = tmp66 + tmp67;
- tmp54 = (K415734806 * tmp50) - (K277785116 * tmp49);
- tmp55 = (K415734806 * tmp47) - (K277785116 * tmp46);
- tmp56 = tmp54 - tmp55;
- tmp69 = tmp55 + tmp54;
- X[5 * iostride] = tmp53 - tmp56;
- X[2 * iostride] = tmp53 + tmp56;
- Y[-6 * iostride] = tmp69 - tmp70;
- Y[-iostride] = tmp69 + tmp70;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15};
-fftw_codelet_desc fftw_hc2hc_forward_16_desc =
-{
- "fftw_hc2hc_forward_16",
- (void (*)()) fftw_hc2hc_forward_16,
- 16,
- FFTW_FORWARD,
- FFTW_HC2HC,
- 355,
- 15,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhf_2.c b/src/sndobj/rfftw/fhf_2.c
deleted file mode 100644
index 60808be..0000000
--- a/src/sndobj/rfftw/fhf_2.c
+++ /dev/null
@@ -1,108 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:42 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 2 */
-
-/*
- * This function contains 8 FP additions, 4 FP multiplications,
- * (or, 6 additions, 2 multiplications, 2 fused multiply/add),
- * 11 stack variables, and 16 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: fhf_2.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fhf_2.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fhf_2.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftw_hc2hc_forward_2(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (2 * iostride);
- {
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = X[0];
- tmp12 = X[iostride];
- X[iostride] = tmp11 - tmp12;
- X[0] = tmp11 + tmp12;
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 1) {
- fftw_real tmp3;
- fftw_real tmp9;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = X[0];
- tmp9 = Y[-iostride];
- {
- fftw_real tmp5;
- fftw_real tmp7;
- fftw_real tmp4;
- fftw_real tmp6;
- ASSERT_ALIGNED_DOUBLE;
- tmp5 = X[iostride];
- tmp7 = Y[0];
- tmp4 = c_re(W[0]);
- tmp6 = c_im(W[0]);
- tmp8 = (tmp4 * tmp5) - (tmp6 * tmp7);
- tmp10 = (tmp6 * tmp5) + (tmp4 * tmp7);
- }
- Y[-iostride] = tmp3 - tmp8;
- X[0] = tmp3 + tmp8;
- X[iostride] = -(tmp9 - tmp10);
- Y[0] = tmp10 + tmp9;
- }
- if (i == m) {
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- X[0] = tmp1;
- tmp2 = X[iostride];
- Y[0] = -tmp2;
- }
-}
-
-static const int twiddle_order[] =
-{1};
-fftw_codelet_desc fftw_hc2hc_forward_2_desc =
-{
- "fftw_hc2hc_forward_2",
- (void (*)()) fftw_hc2hc_forward_2,
- 2,
- FFTW_FORWARD,
- FFTW_HC2HC,
- 47,
- 1,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhf_3.c b/src/sndobj/rfftw/fhf_3.c
deleted file mode 100644
index e7defaf..0000000
--- a/src/sndobj/rfftw/fhf_3.c
+++ /dev/null
@@ -1,150 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:43 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 3 */
-
-/*
- * This function contains 25 FP additions, 16 FP multiplications,
- * (or, 17 additions, 8 multiplications, 8 fused multiply/add),
- * 15 stack variables, and 24 memory accesses
- */
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fhf_3.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- * $Id: fhf_3.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- * $Id: fhf_3.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- */
-
-void fftw_hc2hc_forward_3(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (3 * iostride);
- {
- fftw_real tmp24;
- fftw_real tmp25;
- fftw_real tmp26;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp24 = X[0];
- tmp25 = X[iostride];
- tmp26 = X[2 * iostride];
- tmp27 = tmp25 + tmp26;
- X[iostride] = tmp24 - (K500000000 * tmp27);
- X[0] = tmp24 + tmp27;
- Y[-iostride] = K866025403 * (tmp26 - tmp25);
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 2) {
- fftw_real tmp4;
- fftw_real tmp21;
- fftw_real tmp9;
- fftw_real tmp17;
- fftw_real tmp14;
- fftw_real tmp18;
- fftw_real tmp15;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = X[0];
- tmp21 = Y[-2 * iostride];
- {
- fftw_real tmp6;
- fftw_real tmp8;
- fftw_real tmp5;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = X[iostride];
- tmp8 = Y[-iostride];
- tmp5 = c_re(W[0]);
- tmp7 = c_im(W[0]);
- tmp9 = (tmp5 * tmp6) - (tmp7 * tmp8);
- tmp17 = (tmp7 * tmp6) + (tmp5 * tmp8);
- }
- {
- fftw_real tmp11;
- fftw_real tmp13;
- fftw_real tmp10;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = X[2 * iostride];
- tmp13 = Y[0];
- tmp10 = c_re(W[1]);
- tmp12 = c_im(W[1]);
- tmp14 = (tmp10 * tmp11) - (tmp12 * tmp13);
- tmp18 = (tmp12 * tmp11) + (tmp10 * tmp13);
- }
- tmp15 = tmp9 + tmp14;
- tmp20 = tmp17 + tmp18;
- {
- fftw_real tmp16;
- fftw_real tmp19;
- fftw_real tmp22;
- fftw_real tmp23;
- ASSERT_ALIGNED_DOUBLE;
- X[0] = tmp4 + tmp15;
- tmp16 = tmp4 - (K500000000 * tmp15);
- tmp19 = K866025403 * (tmp17 - tmp18);
- Y[-2 * iostride] = tmp16 - tmp19;
- X[iostride] = tmp16 + tmp19;
- Y[0] = tmp20 + tmp21;
- tmp22 = tmp21 - (K500000000 * tmp20);
- tmp23 = K866025403 * (tmp14 - tmp9);
- X[2 * iostride] = -(tmp22 - tmp23);
- Y[-iostride] = tmp23 + tmp22;
- }
- }
- if (i == m) {
- fftw_real tmp1;
- fftw_real tmp3;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[iostride];
- tmp3 = X[0];
- tmp2 = X[2 * iostride];
- Y[0] = -(K866025403 * (tmp1 + tmp2));
- X[iostride] = tmp3 + tmp2 - tmp1;
- X[0] = tmp3 - (K500000000 * (tmp2 - tmp1));
- }
-}
-
-static const int twiddle_order[] =
-{1, 2};
-fftw_codelet_desc fftw_hc2hc_forward_3_desc =
-{
- "fftw_hc2hc_forward_3",
- (void (*)()) fftw_hc2hc_forward_3,
- 3,
- FFTW_FORWARD,
- FFTW_HC2HC,
- 69,
- 2,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhf_32.c b/src/sndobj/rfftw/fhf_32.c
deleted file mode 100644
index 879f427..0000000
--- a/src/sndobj/rfftw/fhf_32.c
+++ /dev/null
@@ -1,2312 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:52 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 32 */
-
-/*
- * This function contains 764 FP additions, 340 FP multiplications,
- * (or, 618 additions, 194 multiplications, 146 fused multiply/add),
- * 91 stack variables, and 256 memory accesses
- */
-static const fftw_real K145142338 = FFTW_KONST(+0.145142338627231183818096187908697637345738139);
-static const fftw_real K478470167 = FFTW_KONST(+0.478470167866104432467898943490134984741424603);
-static const fftw_real K235698368 = FFTW_KONST(+0.235698368412998824278193812952627188828730159);
-static const fftw_real K440960632 = FFTW_KONST(+0.440960632174177514856378431830194174754221310);
-static const fftw_real K317196642 = FFTW_KONST(+0.317196642081822749107585806612746685337843547);
-static const fftw_real K386505226 = FFTW_KONST(+0.386505226681368480405453304879234900485520646);
-static const fftw_real K497592363 = FFTW_KONST(+0.497592363336098443122418476554739960787737434);
-static const fftw_real K049008570 = FFTW_KONST(+0.049008570164780300997097781944320922930568337);
-static const fftw_real K277785116 = FFTW_KONST(+0.277785116509801112371415406974266437187468595);
-static const fftw_real K415734806 = FFTW_KONST(+0.415734806151272618539394188808952878369280406);
-static const fftw_real K097545161 = FFTW_KONST(+0.097545161008064133924142434238511120463845809);
-static const fftw_real K490392640 = FFTW_KONST(+0.490392640201615224563091118067119518486966865);
-static const fftw_real K765366864 = FFTW_KONST(+0.765366864730179543456919968060797733522689125);
-static const fftw_real K1_847759065 = FFTW_KONST(+1.847759065022573512256366378793576573644833252);
-static const fftw_real K1_414213562 = FFTW_KONST(+1.414213562373095048801688724209698078569671875);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: fhf_32.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fhf_32.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fhf_32.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftw_hc2hc_forward_32(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (32 * iostride);
- {
- fftw_real tmp685;
- fftw_real tmp813;
- fftw_real tmp709;
- fftw_real tmp761;
- fftw_real tmp692;
- fftw_real tmp826;
- fftw_real tmp712;
- fftw_real tmp760;
- fftw_real tmp801;
- fftw_real tmp821;
- fftw_real tmp749;
- fftw_real tmp777;
- fftw_real tmp804;
- fftw_real tmp822;
- fftw_real tmp754;
- fftw_real tmp778;
- fftw_real tmp700;
- fftw_real tmp814;
- fftw_real tmp716;
- fftw_real tmp758;
- fftw_real tmp707;
- fftw_real tmp815;
- fftw_real tmp719;
- fftw_real tmp757;
- fftw_real tmp794;
- fftw_real tmp818;
- fftw_real tmp732;
- fftw_real tmp774;
- fftw_real tmp797;
- fftw_real tmp819;
- fftw_real tmp737;
- fftw_real tmp775;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp679;
- fftw_real tmp680;
- fftw_real tmp681;
- fftw_real tmp682;
- fftw_real tmp683;
- fftw_real tmp684;
- ASSERT_ALIGNED_DOUBLE;
- tmp679 = X[0];
- tmp680 = X[16 * iostride];
- tmp681 = tmp679 + tmp680;
- tmp682 = X[8 * iostride];
- tmp683 = X[24 * iostride];
- tmp684 = tmp682 + tmp683;
- tmp685 = tmp681 + tmp684;
- tmp813 = tmp681 - tmp684;
- tmp709 = tmp679 - tmp680;
- tmp761 = tmp682 - tmp683;
- }
- {
- fftw_real tmp688;
- fftw_real tmp710;
- fftw_real tmp691;
- fftw_real tmp711;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp686;
- fftw_real tmp687;
- fftw_real tmp689;
- fftw_real tmp690;
- ASSERT_ALIGNED_DOUBLE;
- tmp686 = X[4 * iostride];
- tmp687 = X[20 * iostride];
- tmp688 = tmp686 + tmp687;
- tmp710 = tmp686 - tmp687;
- tmp689 = X[28 * iostride];
- tmp690 = X[12 * iostride];
- tmp691 = tmp689 + tmp690;
- tmp711 = tmp689 - tmp690;
- }
- tmp692 = tmp688 + tmp691;
- tmp826 = tmp691 - tmp688;
- tmp712 = K707106781 * (tmp710 + tmp711);
- tmp760 = K707106781 * (tmp711 - tmp710);
- }
- {
- fftw_real tmp741;
- fftw_real tmp799;
- fftw_real tmp753;
- fftw_real tmp800;
- fftw_real tmp744;
- fftw_real tmp802;
- fftw_real tmp747;
- fftw_real tmp803;
- fftw_real tmp748;
- fftw_real tmp750;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp739;
- fftw_real tmp740;
- fftw_real tmp751;
- fftw_real tmp752;
- ASSERT_ALIGNED_DOUBLE;
- tmp739 = X[31 * iostride];
- tmp740 = X[15 * iostride];
- tmp741 = tmp739 - tmp740;
- tmp799 = tmp739 + tmp740;
- tmp751 = X[7 * iostride];
- tmp752 = X[23 * iostride];
- tmp753 = tmp751 - tmp752;
- tmp800 = tmp751 + tmp752;
- }
- {
- fftw_real tmp742;
- fftw_real tmp743;
- fftw_real tmp745;
- fftw_real tmp746;
- ASSERT_ALIGNED_DOUBLE;
- tmp742 = X[3 * iostride];
- tmp743 = X[19 * iostride];
- tmp744 = tmp742 - tmp743;
- tmp802 = tmp742 + tmp743;
- tmp745 = X[27 * iostride];
- tmp746 = X[11 * iostride];
- tmp747 = tmp745 - tmp746;
- tmp803 = tmp745 + tmp746;
- }
- tmp801 = tmp799 + tmp800;
- tmp821 = tmp799 - tmp800;
- tmp748 = K707106781 * (tmp744 + tmp747);
- tmp749 = tmp741 + tmp748;
- tmp777 = tmp741 - tmp748;
- tmp804 = tmp802 + tmp803;
- tmp822 = tmp803 - tmp802;
- tmp750 = K707106781 * (tmp747 - tmp744);
- tmp754 = tmp750 - tmp753;
- tmp778 = tmp753 + tmp750;
- }
- {
- fftw_real tmp696;
- fftw_real tmp714;
- fftw_real tmp699;
- fftw_real tmp715;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp694;
- fftw_real tmp695;
- fftw_real tmp697;
- fftw_real tmp698;
- ASSERT_ALIGNED_DOUBLE;
- tmp694 = X[2 * iostride];
- tmp695 = X[18 * iostride];
- tmp696 = tmp694 + tmp695;
- tmp714 = tmp694 - tmp695;
- tmp697 = X[10 * iostride];
- tmp698 = X[26 * iostride];
- tmp699 = tmp697 + tmp698;
- tmp715 = tmp697 - tmp698;
- }
- tmp700 = tmp696 + tmp699;
- tmp814 = tmp696 - tmp699;
- tmp716 = (K923879532 * tmp714) - (K382683432 * tmp715);
- tmp758 = (K382683432 * tmp714) + (K923879532 * tmp715);
- }
- {
- fftw_real tmp703;
- fftw_real tmp717;
- fftw_real tmp706;
- fftw_real tmp718;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp701;
- fftw_real tmp702;
- fftw_real tmp704;
- fftw_real tmp705;
- ASSERT_ALIGNED_DOUBLE;
- tmp701 = X[30 * iostride];
- tmp702 = X[14 * iostride];
- tmp703 = tmp701 + tmp702;
- tmp717 = tmp701 - tmp702;
- tmp704 = X[6 * iostride];
- tmp705 = X[22 * iostride];
- tmp706 = tmp704 + tmp705;
- tmp718 = tmp704 - tmp705;
- }
- tmp707 = tmp703 + tmp706;
- tmp815 = tmp703 - tmp706;
- tmp719 = (K923879532 * tmp717) + (K382683432 * tmp718);
- tmp757 = (K382683432 * tmp717) - (K923879532 * tmp718);
- }
- {
- fftw_real tmp724;
- fftw_real tmp792;
- fftw_real tmp736;
- fftw_real tmp793;
- fftw_real tmp727;
- fftw_real tmp795;
- fftw_real tmp730;
- fftw_real tmp796;
- fftw_real tmp731;
- fftw_real tmp733;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp722;
- fftw_real tmp723;
- fftw_real tmp734;
- fftw_real tmp735;
- ASSERT_ALIGNED_DOUBLE;
- tmp722 = X[iostride];
- tmp723 = X[17 * iostride];
- tmp724 = tmp722 - tmp723;
- tmp792 = tmp722 + tmp723;
- tmp734 = X[9 * iostride];
- tmp735 = X[25 * iostride];
- tmp736 = tmp734 - tmp735;
- tmp793 = tmp734 + tmp735;
- }
- {
- fftw_real tmp725;
- fftw_real tmp726;
- fftw_real tmp728;
- fftw_real tmp729;
- ASSERT_ALIGNED_DOUBLE;
- tmp725 = X[5 * iostride];
- tmp726 = X[21 * iostride];
- tmp727 = tmp725 - tmp726;
- tmp795 = tmp725 + tmp726;
- tmp728 = X[29 * iostride];
- tmp729 = X[13 * iostride];
- tmp730 = tmp728 - tmp729;
- tmp796 = tmp728 + tmp729;
- }
- tmp794 = tmp792 + tmp793;
- tmp818 = tmp792 - tmp793;
- tmp731 = K707106781 * (tmp727 + tmp730);
- tmp732 = tmp724 + tmp731;
- tmp774 = tmp724 - tmp731;
- tmp797 = tmp795 + tmp796;
- tmp819 = tmp796 - tmp795;
- tmp733 = K707106781 * (tmp730 - tmp727);
- tmp737 = tmp733 - tmp736;
- tmp775 = tmp736 + tmp733;
- }
- {
- fftw_real tmp693;
- fftw_real tmp708;
- fftw_real tmp809;
- fftw_real tmp810;
- fftw_real tmp811;
- fftw_real tmp812;
- ASSERT_ALIGNED_DOUBLE;
- tmp693 = tmp685 + tmp692;
- tmp708 = tmp700 + tmp707;
- tmp809 = tmp693 + tmp708;
- tmp810 = tmp794 + tmp797;
- tmp811 = tmp801 + tmp804;
- tmp812 = tmp810 + tmp811;
- X[8 * iostride] = tmp693 - tmp708;
- Y[-8 * iostride] = tmp811 - tmp810;
- X[16 * iostride] = tmp809 - tmp812;
- X[0] = tmp809 + tmp812;
- }
- {
- fftw_real tmp791;
- fftw_real tmp807;
- fftw_real tmp806;
- fftw_real tmp808;
- fftw_real tmp798;
- fftw_real tmp805;
- ASSERT_ALIGNED_DOUBLE;
- tmp791 = tmp685 - tmp692;
- tmp807 = tmp707 - tmp700;
- tmp798 = tmp794 - tmp797;
- tmp805 = tmp801 - tmp804;
- tmp806 = K707106781 * (tmp798 + tmp805);
- tmp808 = K707106781 * (tmp805 - tmp798);
- X[12 * iostride] = tmp791 - tmp806;
- X[4 * iostride] = tmp791 + tmp806;
- Y[-4 * iostride] = tmp807 + tmp808;
- Y[-12 * iostride] = tmp808 - tmp807;
- }
- {
- fftw_real tmp817;
- fftw_real tmp833;
- fftw_real tmp827;
- fftw_real tmp829;
- fftw_real tmp824;
- fftw_real tmp828;
- fftw_real tmp832;
- fftw_real tmp834;
- fftw_real tmp816;
- fftw_real tmp825;
- ASSERT_ALIGNED_DOUBLE;
- tmp816 = K707106781 * (tmp814 + tmp815);
- tmp817 = tmp813 + tmp816;
- tmp833 = tmp813 - tmp816;
- tmp825 = K707106781 * (tmp815 - tmp814);
- tmp827 = tmp825 - tmp826;
- tmp829 = tmp826 + tmp825;
- {
- fftw_real tmp820;
- fftw_real tmp823;
- fftw_real tmp830;
- fftw_real tmp831;
- ASSERT_ALIGNED_DOUBLE;
- tmp820 = (K923879532 * tmp818) + (K382683432 * tmp819);
- tmp823 = (K923879532 * tmp821) - (K382683432 * tmp822);
- tmp824 = tmp820 + tmp823;
- tmp828 = tmp823 - tmp820;
- tmp830 = (K923879532 * tmp819) - (K382683432 * tmp818);
- tmp831 = (K382683432 * tmp821) + (K923879532 * tmp822);
- tmp832 = tmp830 + tmp831;
- tmp834 = tmp831 - tmp830;
- }
- X[14 * iostride] = tmp817 - tmp824;
- X[2 * iostride] = tmp817 + tmp824;
- Y[-6 * iostride] = tmp827 + tmp828;
- Y[-10 * iostride] = tmp828 - tmp827;
- Y[-2 * iostride] = tmp829 + tmp832;
- Y[-14 * iostride] = tmp832 - tmp829;
- X[10 * iostride] = tmp833 - tmp834;
- X[6 * iostride] = tmp833 + tmp834;
- }
- {
- fftw_real tmp773;
- fftw_real tmp789;
- fftw_real tmp788;
- fftw_real tmp790;
- fftw_real tmp780;
- fftw_real tmp784;
- fftw_real tmp783;
- fftw_real tmp785;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp771;
- fftw_real tmp772;
- fftw_real tmp786;
- fftw_real tmp787;
- ASSERT_ALIGNED_DOUBLE;
- tmp771 = tmp709 - tmp712;
- tmp772 = tmp758 + tmp757;
- tmp773 = tmp771 + tmp772;
- tmp789 = tmp771 - tmp772;
- tmp786 = (K831469612 * tmp775) - (K555570233 * tmp774);
- tmp787 = (K555570233 * tmp777) + (K831469612 * tmp778);
- tmp788 = tmp786 + tmp787;
- tmp790 = tmp787 - tmp786;
- }
- {
- fftw_real tmp776;
- fftw_real tmp779;
- fftw_real tmp781;
- fftw_real tmp782;
- ASSERT_ALIGNED_DOUBLE;
- tmp776 = (K831469612 * tmp774) + (K555570233 * tmp775);
- tmp779 = (K831469612 * tmp777) - (K555570233 * tmp778);
- tmp780 = tmp776 + tmp779;
- tmp784 = tmp779 - tmp776;
- tmp781 = tmp719 - tmp716;
- tmp782 = tmp761 + tmp760;
- tmp783 = tmp781 - tmp782;
- tmp785 = tmp782 + tmp781;
- }
- X[13 * iostride] = tmp773 - tmp780;
- X[3 * iostride] = tmp773 + tmp780;
- Y[-5 * iostride] = tmp783 + tmp784;
- Y[-11 * iostride] = tmp784 - tmp783;
- Y[-3 * iostride] = tmp785 + tmp788;
- Y[-13 * iostride] = tmp788 - tmp785;
- X[11 * iostride] = tmp789 - tmp790;
- X[5 * iostride] = tmp789 + tmp790;
- }
- {
- fftw_real tmp721;
- fftw_real tmp769;
- fftw_real tmp768;
- fftw_real tmp770;
- fftw_real tmp756;
- fftw_real tmp764;
- fftw_real tmp763;
- fftw_real tmp765;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp713;
- fftw_real tmp720;
- fftw_real tmp766;
- fftw_real tmp767;
- ASSERT_ALIGNED_DOUBLE;
- tmp713 = tmp709 + tmp712;
- tmp720 = tmp716 + tmp719;
- tmp721 = tmp713 + tmp720;
- tmp769 = tmp713 - tmp720;
- tmp766 = (K980785280 * tmp737) - (K195090322 * tmp732);
- tmp767 = (K195090322 * tmp749) + (K980785280 * tmp754);
- tmp768 = tmp766 + tmp767;
- tmp770 = tmp767 - tmp766;
- }
- {
- fftw_real tmp738;
- fftw_real tmp755;
- fftw_real tmp759;
- fftw_real tmp762;
- ASSERT_ALIGNED_DOUBLE;
- tmp738 = (K980785280 * tmp732) + (K195090322 * tmp737);
- tmp755 = (K980785280 * tmp749) - (K195090322 * tmp754);
- tmp756 = tmp738 + tmp755;
- tmp764 = tmp755 - tmp738;
- tmp759 = tmp757 - tmp758;
- tmp762 = tmp760 - tmp761;
- tmp763 = tmp759 - tmp762;
- tmp765 = tmp762 + tmp759;
- }
- X[15 * iostride] = tmp721 - tmp756;
- X[iostride] = tmp721 + tmp756;
- Y[-7 * iostride] = tmp763 + tmp764;
- Y[-9 * iostride] = tmp764 - tmp763;
- Y[-iostride] = tmp765 + tmp768;
- Y[-15 * iostride] = tmp768 - tmp765;
- X[9 * iostride] = tmp769 - tmp770;
- X[7 * iostride] = tmp769 + tmp770;
- }
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 31) {
- fftw_real tmp201;
- fftw_real tmp533;
- fftw_real tmp653;
- fftw_real tmp667;
- fftw_real tmp623;
- fftw_real tmp637;
- fftw_real tmp373;
- fftw_real tmp485;
- fftw_real tmp343;
- fftw_real tmp561;
- fftw_real tmp458;
- fftw_real tmp508;
- fftw_real tmp568;
- fftw_real tmp604;
- fftw_real tmp441;
- fftw_real tmp505;
- fftw_real tmp224;
- fftw_real tmp636;
- fftw_real tmp383;
- fftw_real tmp487;
- fftw_real tmp536;
- fftw_real tmp618;
- fftw_real tmp378;
- fftw_real tmp486;
- fftw_real tmp366;
- fftw_real tmp569;
- fftw_real tmp564;
- fftw_real tmp605;
- fftw_real tmp452;
- fftw_real tmp509;
- fftw_real tmp461;
- fftw_real tmp506;
- fftw_real tmp248;
- fftw_real tmp541;
- fftw_real tmp395;
- fftw_real tmp491;
- fftw_real tmp540;
- fftw_real tmp594;
- fftw_real tmp390;
- fftw_real tmp490;
- fftw_real tmp296;
- fftw_real tmp555;
- fftw_real tmp431;
- fftw_real tmp498;
- fftw_real tmp552;
- fftw_real tmp599;
- fftw_real tmp414;
- fftw_real tmp501;
- fftw_real tmp271;
- fftw_real tmp543;
- fftw_real tmp406;
- fftw_real tmp494;
- fftw_real tmp546;
- fftw_real tmp595;
- fftw_real tmp401;
- fftw_real tmp493;
- fftw_real tmp319;
- fftw_real tmp553;
- fftw_real tmp558;
- fftw_real tmp600;
- fftw_real tmp425;
- fftw_real tmp499;
- fftw_real tmp434;
- fftw_real tmp502;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp183;
- fftw_real tmp621;
- fftw_real tmp188;
- fftw_real tmp620;
- fftw_real tmp194;
- fftw_real tmp370;
- fftw_real tmp199;
- fftw_real tmp371;
- ASSERT_ALIGNED_DOUBLE;
- tmp183 = X[0];
- tmp621 = Y[-31 * iostride];
- {
- fftw_real tmp185;
- fftw_real tmp187;
- fftw_real tmp184;
- fftw_real tmp186;
- ASSERT_ALIGNED_DOUBLE;
- tmp185 = X[16 * iostride];
- tmp187 = Y[-15 * iostride];
- tmp184 = c_re(W[15]);
- tmp186 = c_im(W[15]);
- tmp188 = (tmp184 * tmp185) - (tmp186 * tmp187);
- tmp620 = (tmp186 * tmp185) + (tmp184 * tmp187);
- }
- {
- fftw_real tmp191;
- fftw_real tmp193;
- fftw_real tmp190;
- fftw_real tmp192;
- ASSERT_ALIGNED_DOUBLE;
- tmp191 = X[8 * iostride];
- tmp193 = Y[-23 * iostride];
- tmp190 = c_re(W[7]);
- tmp192 = c_im(W[7]);
- tmp194 = (tmp190 * tmp191) - (tmp192 * tmp193);
- tmp370 = (tmp192 * tmp191) + (tmp190 * tmp193);
- }
- {
- fftw_real tmp196;
- fftw_real tmp198;
- fftw_real tmp195;
- fftw_real tmp197;
- ASSERT_ALIGNED_DOUBLE;
- tmp196 = X[24 * iostride];
- tmp198 = Y[-7 * iostride];
- tmp195 = c_re(W[23]);
- tmp197 = c_im(W[23]);
- tmp199 = (tmp195 * tmp196) - (tmp197 * tmp198);
- tmp371 = (tmp197 * tmp196) + (tmp195 * tmp198);
- }
- {
- fftw_real tmp189;
- fftw_real tmp200;
- fftw_real tmp651;
- fftw_real tmp652;
- ASSERT_ALIGNED_DOUBLE;
- tmp189 = tmp183 + tmp188;
- tmp200 = tmp194 + tmp199;
- tmp201 = tmp189 + tmp200;
- tmp533 = tmp189 - tmp200;
- tmp651 = tmp621 - tmp620;
- tmp652 = tmp194 - tmp199;
- tmp653 = tmp651 - tmp652;
- tmp667 = tmp652 + tmp651;
- }
- {
- fftw_real tmp619;
- fftw_real tmp622;
- fftw_real tmp369;
- fftw_real tmp372;
- ASSERT_ALIGNED_DOUBLE;
- tmp619 = tmp370 + tmp371;
- tmp622 = tmp620 + tmp621;
- tmp623 = tmp619 + tmp622;
- tmp637 = tmp622 - tmp619;
- tmp369 = tmp183 - tmp188;
- tmp372 = tmp370 - tmp371;
- tmp373 = tmp369 - tmp372;
- tmp485 = tmp369 + tmp372;
- }
- }
- {
- fftw_real tmp325;
- fftw_real tmp454;
- fftw_real tmp341;
- fftw_real tmp439;
- fftw_real tmp330;
- fftw_real tmp455;
- fftw_real tmp336;
- fftw_real tmp438;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp322;
- fftw_real tmp324;
- fftw_real tmp321;
- fftw_real tmp323;
- ASSERT_ALIGNED_DOUBLE;
- tmp322 = X[31 * iostride];
- tmp324 = Y[0];
- tmp321 = c_re(W[30]);
- tmp323 = c_im(W[30]);
- tmp325 = (tmp321 * tmp322) - (tmp323 * tmp324);
- tmp454 = (tmp323 * tmp322) + (tmp321 * tmp324);
- }
- {
- fftw_real tmp338;
- fftw_real tmp340;
- fftw_real tmp337;
- fftw_real tmp339;
- ASSERT_ALIGNED_DOUBLE;
- tmp338 = X[23 * iostride];
- tmp340 = Y[-8 * iostride];
- tmp337 = c_re(W[22]);
- tmp339 = c_im(W[22]);
- tmp341 = (tmp337 * tmp338) - (tmp339 * tmp340);
- tmp439 = (tmp339 * tmp338) + (tmp337 * tmp340);
- }
- {
- fftw_real tmp327;
- fftw_real tmp329;
- fftw_real tmp326;
- fftw_real tmp328;
- ASSERT_ALIGNED_DOUBLE;
- tmp327 = X[15 * iostride];
- tmp329 = Y[-16 * iostride];
- tmp326 = c_re(W[14]);
- tmp328 = c_im(W[14]);
- tmp330 = (tmp326 * tmp327) - (tmp328 * tmp329);
- tmp455 = (tmp328 * tmp327) + (tmp326 * tmp329);
- }
- {
- fftw_real tmp333;
- fftw_real tmp335;
- fftw_real tmp332;
- fftw_real tmp334;
- ASSERT_ALIGNED_DOUBLE;
- tmp333 = X[7 * iostride];
- tmp335 = Y[-24 * iostride];
- tmp332 = c_re(W[6]);
- tmp334 = c_im(W[6]);
- tmp336 = (tmp332 * tmp333) - (tmp334 * tmp335);
- tmp438 = (tmp334 * tmp333) + (tmp332 * tmp335);
- }
- {
- fftw_real tmp331;
- fftw_real tmp342;
- fftw_real tmp456;
- fftw_real tmp457;
- ASSERT_ALIGNED_DOUBLE;
- tmp331 = tmp325 + tmp330;
- tmp342 = tmp336 + tmp341;
- tmp343 = tmp331 + tmp342;
- tmp561 = tmp331 - tmp342;
- tmp456 = tmp454 - tmp455;
- tmp457 = tmp336 - tmp341;
- tmp458 = tmp456 + tmp457;
- tmp508 = tmp456 - tmp457;
- }
- {
- fftw_real tmp566;
- fftw_real tmp567;
- fftw_real tmp437;
- fftw_real tmp440;
- ASSERT_ALIGNED_DOUBLE;
- tmp566 = tmp454 + tmp455;
- tmp567 = tmp438 + tmp439;
- tmp568 = tmp566 - tmp567;
- tmp604 = tmp566 + tmp567;
- tmp437 = tmp325 - tmp330;
- tmp440 = tmp438 - tmp439;
- tmp441 = tmp437 - tmp440;
- tmp505 = tmp437 + tmp440;
- }
- }
- {
- fftw_real tmp206;
- fftw_real tmp374;
- fftw_real tmp222;
- fftw_real tmp381;
- fftw_real tmp211;
- fftw_real tmp375;
- fftw_real tmp217;
- fftw_real tmp380;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp203;
- fftw_real tmp205;
- fftw_real tmp202;
- fftw_real tmp204;
- ASSERT_ALIGNED_DOUBLE;
- tmp203 = X[4 * iostride];
- tmp205 = Y[-27 * iostride];
- tmp202 = c_re(W[3]);
- tmp204 = c_im(W[3]);
- tmp206 = (tmp202 * tmp203) - (tmp204 * tmp205);
- tmp374 = (tmp204 * tmp203) + (tmp202 * tmp205);
- }
- {
- fftw_real tmp219;
- fftw_real tmp221;
- fftw_real tmp218;
- fftw_real tmp220;
- ASSERT_ALIGNED_DOUBLE;
- tmp219 = X[12 * iostride];
- tmp221 = Y[-19 * iostride];
- tmp218 = c_re(W[11]);
- tmp220 = c_im(W[11]);
- tmp222 = (tmp218 * tmp219) - (tmp220 * tmp221);
- tmp381 = (tmp220 * tmp219) + (tmp218 * tmp221);
- }
- {
- fftw_real tmp208;
- fftw_real tmp210;
- fftw_real tmp207;
- fftw_real tmp209;
- ASSERT_ALIGNED_DOUBLE;
- tmp208 = X[20 * iostride];
- tmp210 = Y[-11 * iostride];
- tmp207 = c_re(W[19]);
- tmp209 = c_im(W[19]);
- tmp211 = (tmp207 * tmp208) - (tmp209 * tmp210);
- tmp375 = (tmp209 * tmp208) + (tmp207 * tmp210);
- }
- {
- fftw_real tmp214;
- fftw_real tmp216;
- fftw_real tmp213;
- fftw_real tmp215;
- ASSERT_ALIGNED_DOUBLE;
- tmp214 = X[28 * iostride];
- tmp216 = Y[-3 * iostride];
- tmp213 = c_re(W[27]);
- tmp215 = c_im(W[27]);
- tmp217 = (tmp213 * tmp214) - (tmp215 * tmp216);
- tmp380 = (tmp215 * tmp214) + (tmp213 * tmp216);
- }
- {
- fftw_real tmp212;
- fftw_real tmp223;
- fftw_real tmp379;
- fftw_real tmp382;
- ASSERT_ALIGNED_DOUBLE;
- tmp212 = tmp206 + tmp211;
- tmp223 = tmp217 + tmp222;
- tmp224 = tmp212 + tmp223;
- tmp636 = tmp223 - tmp212;
- tmp379 = tmp217 - tmp222;
- tmp382 = tmp380 - tmp381;
- tmp383 = tmp379 + tmp382;
- tmp487 = tmp379 - tmp382;
- }
- {
- fftw_real tmp534;
- fftw_real tmp535;
- fftw_real tmp376;
- fftw_real tmp377;
- ASSERT_ALIGNED_DOUBLE;
- tmp534 = tmp374 + tmp375;
- tmp535 = tmp380 + tmp381;
- tmp536 = tmp534 - tmp535;
- tmp618 = tmp534 + tmp535;
- tmp376 = tmp374 - tmp375;
- tmp377 = tmp206 - tmp211;
- tmp378 = tmp376 - tmp377;
- tmp486 = tmp377 + tmp376;
- }
- }
- {
- fftw_real tmp348;
- fftw_real tmp442;
- fftw_real tmp353;
- fftw_real tmp443;
- fftw_real tmp444;
- fftw_real tmp445;
- fftw_real tmp359;
- fftw_real tmp448;
- fftw_real tmp364;
- fftw_real tmp449;
- fftw_real tmp447;
- fftw_real tmp450;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp345;
- fftw_real tmp347;
- fftw_real tmp344;
- fftw_real tmp346;
- ASSERT_ALIGNED_DOUBLE;
- tmp345 = X[3 * iostride];
- tmp347 = Y[-28 * iostride];
- tmp344 = c_re(W[2]);
- tmp346 = c_im(W[2]);
- tmp348 = (tmp344 * tmp345) - (tmp346 * tmp347);
- tmp442 = (tmp346 * tmp345) + (tmp344 * tmp347);
- }
- {
- fftw_real tmp350;
- fftw_real tmp352;
- fftw_real tmp349;
- fftw_real tmp351;
- ASSERT_ALIGNED_DOUBLE;
- tmp350 = X[19 * iostride];
- tmp352 = Y[-12 * iostride];
- tmp349 = c_re(W[18]);
- tmp351 = c_im(W[18]);
- tmp353 = (tmp349 * tmp350) - (tmp351 * tmp352);
- tmp443 = (tmp351 * tmp350) + (tmp349 * tmp352);
- }
- tmp444 = tmp442 - tmp443;
- tmp445 = tmp348 - tmp353;
- {
- fftw_real tmp356;
- fftw_real tmp358;
- fftw_real tmp355;
- fftw_real tmp357;
- ASSERT_ALIGNED_DOUBLE;
- tmp356 = X[27 * iostride];
- tmp358 = Y[-4 * iostride];
- tmp355 = c_re(W[26]);
- tmp357 = c_im(W[26]);
- tmp359 = (tmp355 * tmp356) - (tmp357 * tmp358);
- tmp448 = (tmp357 * tmp356) + (tmp355 * tmp358);
- }
- {
- fftw_real tmp361;
- fftw_real tmp363;
- fftw_real tmp360;
- fftw_real tmp362;
- ASSERT_ALIGNED_DOUBLE;
- tmp361 = X[11 * iostride];
- tmp363 = Y[-20 * iostride];
- tmp360 = c_re(W[10]);
- tmp362 = c_im(W[10]);
- tmp364 = (tmp360 * tmp361) - (tmp362 * tmp363);
- tmp449 = (tmp362 * tmp361) + (tmp360 * tmp363);
- }
- tmp447 = tmp359 - tmp364;
- tmp450 = tmp448 - tmp449;
- {
- fftw_real tmp354;
- fftw_real tmp365;
- fftw_real tmp562;
- fftw_real tmp563;
- ASSERT_ALIGNED_DOUBLE;
- tmp354 = tmp348 + tmp353;
- tmp365 = tmp359 + tmp364;
- tmp366 = tmp354 + tmp365;
- tmp569 = tmp365 - tmp354;
- tmp562 = tmp442 + tmp443;
- tmp563 = tmp448 + tmp449;
- tmp564 = tmp562 - tmp563;
- tmp605 = tmp562 + tmp563;
- }
- {
- fftw_real tmp446;
- fftw_real tmp451;
- fftw_real tmp459;
- fftw_real tmp460;
- ASSERT_ALIGNED_DOUBLE;
- tmp446 = tmp444 - tmp445;
- tmp451 = tmp447 + tmp450;
- tmp452 = K707106781 * (tmp446 - tmp451);
- tmp509 = K707106781 * (tmp446 + tmp451);
- tmp459 = tmp447 - tmp450;
- tmp460 = tmp445 + tmp444;
- tmp461 = K707106781 * (tmp459 - tmp460);
- tmp506 = K707106781 * (tmp460 + tmp459);
- }
- }
- {
- fftw_real tmp230;
- fftw_real tmp386;
- fftw_real tmp246;
- fftw_real tmp393;
- fftw_real tmp235;
- fftw_real tmp387;
- fftw_real tmp241;
- fftw_real tmp392;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp227;
- fftw_real tmp229;
- fftw_real tmp226;
- fftw_real tmp228;
- ASSERT_ALIGNED_DOUBLE;
- tmp227 = X[2 * iostride];
- tmp229 = Y[-29 * iostride];
- tmp226 = c_re(W[1]);
- tmp228 = c_im(W[1]);
- tmp230 = (tmp226 * tmp227) - (tmp228 * tmp229);
- tmp386 = (tmp228 * tmp227) + (tmp226 * tmp229);
- }
- {
- fftw_real tmp243;
- fftw_real tmp245;
- fftw_real tmp242;
- fftw_real tmp244;
- ASSERT_ALIGNED_DOUBLE;
- tmp243 = X[26 * iostride];
- tmp245 = Y[-5 * iostride];
- tmp242 = c_re(W[25]);
- tmp244 = c_im(W[25]);
- tmp246 = (tmp242 * tmp243) - (tmp244 * tmp245);
- tmp393 = (tmp244 * tmp243) + (tmp242 * tmp245);
- }
- {
- fftw_real tmp232;
- fftw_real tmp234;
- fftw_real tmp231;
- fftw_real tmp233;
- ASSERT_ALIGNED_DOUBLE;
- tmp232 = X[18 * iostride];
- tmp234 = Y[-13 * iostride];
- tmp231 = c_re(W[17]);
- tmp233 = c_im(W[17]);
- tmp235 = (tmp231 * tmp232) - (tmp233 * tmp234);
- tmp387 = (tmp233 * tmp232) + (tmp231 * tmp234);
- }
- {
- fftw_real tmp238;
- fftw_real tmp240;
- fftw_real tmp237;
- fftw_real tmp239;
- ASSERT_ALIGNED_DOUBLE;
- tmp238 = X[10 * iostride];
- tmp240 = Y[-21 * iostride];
- tmp237 = c_re(W[9]);
- tmp239 = c_im(W[9]);
- tmp241 = (tmp237 * tmp238) - (tmp239 * tmp240);
- tmp392 = (tmp239 * tmp238) + (tmp237 * tmp240);
- }
- {
- fftw_real tmp236;
- fftw_real tmp247;
- fftw_real tmp391;
- fftw_real tmp394;
- ASSERT_ALIGNED_DOUBLE;
- tmp236 = tmp230 + tmp235;
- tmp247 = tmp241 + tmp246;
- tmp248 = tmp236 + tmp247;
- tmp541 = tmp236 - tmp247;
- tmp391 = tmp230 - tmp235;
- tmp394 = tmp392 - tmp393;
- tmp395 = tmp391 - tmp394;
- tmp491 = tmp391 + tmp394;
- }
- {
- fftw_real tmp538;
- fftw_real tmp539;
- fftw_real tmp388;
- fftw_real tmp389;
- ASSERT_ALIGNED_DOUBLE;
- tmp538 = tmp386 + tmp387;
- tmp539 = tmp392 + tmp393;
- tmp540 = tmp538 - tmp539;
- tmp594 = tmp538 + tmp539;
- tmp388 = tmp386 - tmp387;
- tmp389 = tmp241 - tmp246;
- tmp390 = tmp388 + tmp389;
- tmp490 = tmp388 - tmp389;
- }
- }
- {
- fftw_real tmp278;
- fftw_real tmp410;
- fftw_real tmp294;
- fftw_real tmp429;
- fftw_real tmp283;
- fftw_real tmp411;
- fftw_real tmp289;
- fftw_real tmp428;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp275;
- fftw_real tmp277;
- fftw_real tmp274;
- fftw_real tmp276;
- ASSERT_ALIGNED_DOUBLE;
- tmp275 = X[iostride];
- tmp277 = Y[-30 * iostride];
- tmp274 = c_re(W[0]);
- tmp276 = c_im(W[0]);
- tmp278 = (tmp274 * tmp275) - (tmp276 * tmp277);
- tmp410 = (tmp276 * tmp275) + (tmp274 * tmp277);
- }
- {
- fftw_real tmp291;
- fftw_real tmp293;
- fftw_real tmp290;
- fftw_real tmp292;
- ASSERT_ALIGNED_DOUBLE;
- tmp291 = X[25 * iostride];
- tmp293 = Y[-6 * iostride];
- tmp290 = c_re(W[24]);
- tmp292 = c_im(W[24]);
- tmp294 = (tmp290 * tmp291) - (tmp292 * tmp293);
- tmp429 = (tmp292 * tmp291) + (tmp290 * tmp293);
- }
- {
- fftw_real tmp280;
- fftw_real tmp282;
- fftw_real tmp279;
- fftw_real tmp281;
- ASSERT_ALIGNED_DOUBLE;
- tmp280 = X[17 * iostride];
- tmp282 = Y[-14 * iostride];
- tmp279 = c_re(W[16]);
- tmp281 = c_im(W[16]);
- tmp283 = (tmp279 * tmp280) - (tmp281 * tmp282);
- tmp411 = (tmp281 * tmp280) + (tmp279 * tmp282);
- }
- {
- fftw_real tmp286;
- fftw_real tmp288;
- fftw_real tmp285;
- fftw_real tmp287;
- ASSERT_ALIGNED_DOUBLE;
- tmp286 = X[9 * iostride];
- tmp288 = Y[-22 * iostride];
- tmp285 = c_re(W[8]);
- tmp287 = c_im(W[8]);
- tmp289 = (tmp285 * tmp286) - (tmp287 * tmp288);
- tmp428 = (tmp287 * tmp286) + (tmp285 * tmp288);
- }
- {
- fftw_real tmp284;
- fftw_real tmp295;
- fftw_real tmp427;
- fftw_real tmp430;
- ASSERT_ALIGNED_DOUBLE;
- tmp284 = tmp278 + tmp283;
- tmp295 = tmp289 + tmp294;
- tmp296 = tmp284 + tmp295;
- tmp555 = tmp284 - tmp295;
- tmp427 = tmp278 - tmp283;
- tmp430 = tmp428 - tmp429;
- tmp431 = tmp427 - tmp430;
- tmp498 = tmp427 + tmp430;
- }
- {
- fftw_real tmp550;
- fftw_real tmp551;
- fftw_real tmp412;
- fftw_real tmp413;
- ASSERT_ALIGNED_DOUBLE;
- tmp550 = tmp410 + tmp411;
- tmp551 = tmp428 + tmp429;
- tmp552 = tmp550 - tmp551;
- tmp599 = tmp550 + tmp551;
- tmp412 = tmp410 - tmp411;
- tmp413 = tmp289 - tmp294;
- tmp414 = tmp412 + tmp413;
- tmp501 = tmp412 - tmp413;
- }
- }
- {
- fftw_real tmp253;
- fftw_real tmp397;
- fftw_real tmp269;
- fftw_real tmp404;
- fftw_real tmp258;
- fftw_real tmp398;
- fftw_real tmp264;
- fftw_real tmp403;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp250;
- fftw_real tmp252;
- fftw_real tmp249;
- fftw_real tmp251;
- ASSERT_ALIGNED_DOUBLE;
- tmp250 = X[30 * iostride];
- tmp252 = Y[-iostride];
- tmp249 = c_re(W[29]);
- tmp251 = c_im(W[29]);
- tmp253 = (tmp249 * tmp250) - (tmp251 * tmp252);
- tmp397 = (tmp251 * tmp250) + (tmp249 * tmp252);
- }
- {
- fftw_real tmp266;
- fftw_real tmp268;
- fftw_real tmp265;
- fftw_real tmp267;
- ASSERT_ALIGNED_DOUBLE;
- tmp266 = X[22 * iostride];
- tmp268 = Y[-9 * iostride];
- tmp265 = c_re(W[21]);
- tmp267 = c_im(W[21]);
- tmp269 = (tmp265 * tmp266) - (tmp267 * tmp268);
- tmp404 = (tmp267 * tmp266) + (tmp265 * tmp268);
- }
- {
- fftw_real tmp255;
- fftw_real tmp257;
- fftw_real tmp254;
- fftw_real tmp256;
- ASSERT_ALIGNED_DOUBLE;
- tmp255 = X[14 * iostride];
- tmp257 = Y[-17 * iostride];
- tmp254 = c_re(W[13]);
- tmp256 = c_im(W[13]);
- tmp258 = (tmp254 * tmp255) - (tmp256 * tmp257);
- tmp398 = (tmp256 * tmp255) + (tmp254 * tmp257);
- }
- {
- fftw_real tmp261;
- fftw_real tmp263;
- fftw_real tmp260;
- fftw_real tmp262;
- ASSERT_ALIGNED_DOUBLE;
- tmp261 = X[6 * iostride];
- tmp263 = Y[-25 * iostride];
- tmp260 = c_re(W[5]);
- tmp262 = c_im(W[5]);
- tmp264 = (tmp260 * tmp261) - (tmp262 * tmp263);
- tmp403 = (tmp262 * tmp261) + (tmp260 * tmp263);
- }
- {
- fftw_real tmp259;
- fftw_real tmp270;
- fftw_real tmp402;
- fftw_real tmp405;
- ASSERT_ALIGNED_DOUBLE;
- tmp259 = tmp253 + tmp258;
- tmp270 = tmp264 + tmp269;
- tmp271 = tmp259 + tmp270;
- tmp543 = tmp259 - tmp270;
- tmp402 = tmp253 - tmp258;
- tmp405 = tmp403 - tmp404;
- tmp406 = tmp402 - tmp405;
- tmp494 = tmp402 + tmp405;
- }
- {
- fftw_real tmp544;
- fftw_real tmp545;
- fftw_real tmp399;
- fftw_real tmp400;
- ASSERT_ALIGNED_DOUBLE;
- tmp544 = tmp397 + tmp398;
- tmp545 = tmp403 + tmp404;
- tmp546 = tmp544 - tmp545;
- tmp595 = tmp544 + tmp545;
- tmp399 = tmp397 - tmp398;
- tmp400 = tmp264 - tmp269;
- tmp401 = tmp399 + tmp400;
- tmp493 = tmp399 - tmp400;
- }
- }
- {
- fftw_real tmp301;
- fftw_real tmp421;
- fftw_real tmp306;
- fftw_real tmp422;
- fftw_real tmp420;
- fftw_real tmp423;
- fftw_real tmp312;
- fftw_real tmp416;
- fftw_real tmp317;
- fftw_real tmp417;
- fftw_real tmp415;
- fftw_real tmp418;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp298;
- fftw_real tmp300;
- fftw_real tmp297;
- fftw_real tmp299;
- ASSERT_ALIGNED_DOUBLE;
- tmp298 = X[5 * iostride];
- tmp300 = Y[-26 * iostride];
- tmp297 = c_re(W[4]);
- tmp299 = c_im(W[4]);
- tmp301 = (tmp297 * tmp298) - (tmp299 * tmp300);
- tmp421 = (tmp299 * tmp298) + (tmp297 * tmp300);
- }
- {
- fftw_real tmp303;
- fftw_real tmp305;
- fftw_real tmp302;
- fftw_real tmp304;
- ASSERT_ALIGNED_DOUBLE;
- tmp303 = X[21 * iostride];
- tmp305 = Y[-10 * iostride];
- tmp302 = c_re(W[20]);
- tmp304 = c_im(W[20]);
- tmp306 = (tmp302 * tmp303) - (tmp304 * tmp305);
- tmp422 = (tmp304 * tmp303) + (tmp302 * tmp305);
- }
- tmp420 = tmp301 - tmp306;
- tmp423 = tmp421 - tmp422;
- {
- fftw_real tmp309;
- fftw_real tmp311;
- fftw_real tmp308;
- fftw_real tmp310;
- ASSERT_ALIGNED_DOUBLE;
- tmp309 = X[29 * iostride];
- tmp311 = Y[-2 * iostride];
- tmp308 = c_re(W[28]);
- tmp310 = c_im(W[28]);
- tmp312 = (tmp308 * tmp309) - (tmp310 * tmp311);
- tmp416 = (tmp310 * tmp309) + (tmp308 * tmp311);
- }
- {
- fftw_real tmp314;
- fftw_real tmp316;
- fftw_real tmp313;
- fftw_real tmp315;
- ASSERT_ALIGNED_DOUBLE;
- tmp314 = X[13 * iostride];
- tmp316 = Y[-18 * iostride];
- tmp313 = c_re(W[12]);
- tmp315 = c_im(W[12]);
- tmp317 = (tmp313 * tmp314) - (tmp315 * tmp316);
- tmp417 = (tmp315 * tmp314) + (tmp313 * tmp316);
- }
- tmp415 = tmp312 - tmp317;
- tmp418 = tmp416 - tmp417;
- {
- fftw_real tmp307;
- fftw_real tmp318;
- fftw_real tmp556;
- fftw_real tmp557;
- ASSERT_ALIGNED_DOUBLE;
- tmp307 = tmp301 + tmp306;
- tmp318 = tmp312 + tmp317;
- tmp319 = tmp307 + tmp318;
- tmp553 = tmp318 - tmp307;
- tmp556 = tmp421 + tmp422;
- tmp557 = tmp416 + tmp417;
- tmp558 = tmp556 - tmp557;
- tmp600 = tmp556 + tmp557;
- }
- {
- fftw_real tmp419;
- fftw_real tmp424;
- fftw_real tmp432;
- fftw_real tmp433;
- ASSERT_ALIGNED_DOUBLE;
- tmp419 = tmp415 - tmp418;
- tmp424 = tmp420 + tmp423;
- tmp425 = K707106781 * (tmp419 - tmp424);
- tmp499 = K707106781 * (tmp424 + tmp419);
- tmp432 = tmp423 - tmp420;
- tmp433 = tmp415 + tmp418;
- tmp434 = K707106781 * (tmp432 - tmp433);
- tmp502 = K707106781 * (tmp432 + tmp433);
- }
- }
- {
- fftw_real tmp273;
- fftw_real tmp613;
- fftw_real tmp625;
- fftw_real tmp627;
- fftw_real tmp368;
- fftw_real tmp628;
- fftw_real tmp616;
- fftw_real tmp626;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp225;
- fftw_real tmp272;
- fftw_real tmp617;
- fftw_real tmp624;
- ASSERT_ALIGNED_DOUBLE;
- tmp225 = tmp201 + tmp224;
- tmp272 = tmp248 + tmp271;
- tmp273 = tmp225 + tmp272;
- tmp613 = tmp225 - tmp272;
- tmp617 = tmp594 + tmp595;
- tmp624 = tmp618 + tmp623;
- tmp625 = tmp617 + tmp624;
- tmp627 = tmp624 - tmp617;
- }
- {
- fftw_real tmp320;
- fftw_real tmp367;
- fftw_real tmp614;
- fftw_real tmp615;
- ASSERT_ALIGNED_DOUBLE;
- tmp320 = tmp296 + tmp319;
- tmp367 = tmp343 + tmp366;
- tmp368 = tmp320 + tmp367;
- tmp628 = tmp367 - tmp320;
- tmp614 = tmp599 + tmp600;
- tmp615 = tmp604 + tmp605;
- tmp616 = tmp614 - tmp615;
- tmp626 = tmp614 + tmp615;
- }
- Y[-16 * iostride] = tmp273 - tmp368;
- X[0] = tmp273 + tmp368;
- Y[-24 * iostride] = tmp613 - tmp616;
- X[8 * iostride] = tmp613 + tmp616;
- X[16 * iostride] = -(tmp625 - tmp626);
- Y[0] = tmp626 + tmp625;
- X[24 * iostride] = -(tmp627 - tmp628);
- Y[-8 * iostride] = tmp628 + tmp627;
- }
- {
- fftw_real tmp597;
- fftw_real tmp609;
- fftw_real tmp631;
- fftw_real tmp633;
- fftw_real tmp602;
- fftw_real tmp610;
- fftw_real tmp607;
- fftw_real tmp611;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp593;
- fftw_real tmp596;
- fftw_real tmp629;
- fftw_real tmp630;
- ASSERT_ALIGNED_DOUBLE;
- tmp593 = tmp201 - tmp224;
- tmp596 = tmp594 - tmp595;
- tmp597 = tmp593 + tmp596;
- tmp609 = tmp593 - tmp596;
- tmp629 = tmp271 - tmp248;
- tmp630 = tmp623 - tmp618;
- tmp631 = tmp629 + tmp630;
- tmp633 = tmp630 - tmp629;
- }
- {
- fftw_real tmp598;
- fftw_real tmp601;
- fftw_real tmp603;
- fftw_real tmp606;
- ASSERT_ALIGNED_DOUBLE;
- tmp598 = tmp296 - tmp319;
- tmp601 = tmp599 - tmp600;
- tmp602 = tmp598 + tmp601;
- tmp610 = tmp601 - tmp598;
- tmp603 = tmp343 - tmp366;
- tmp606 = tmp604 - tmp605;
- tmp607 = tmp603 - tmp606;
- tmp611 = tmp603 + tmp606;
- }
- {
- fftw_real tmp608;
- fftw_real tmp634;
- fftw_real tmp612;
- fftw_real tmp632;
- ASSERT_ALIGNED_DOUBLE;
- tmp608 = K707106781 * (tmp602 + tmp607);
- Y[-20 * iostride] = tmp597 - tmp608;
- X[4 * iostride] = tmp597 + tmp608;
- tmp634 = K707106781 * (tmp607 - tmp602);
- X[28 * iostride] = -(tmp633 - tmp634);
- Y[-12 * iostride] = tmp634 + tmp633;
- tmp612 = K707106781 * (tmp610 - tmp611);
- Y[-28 * iostride] = tmp609 - tmp612;
- X[12 * iostride] = tmp609 + tmp612;
- tmp632 = K707106781 * (tmp610 + tmp611);
- X[20 * iostride] = -(tmp631 - tmp632);
- Y[-4 * iostride] = tmp632 + tmp631;
- }
- }
- {
- fftw_real tmp537;
- fftw_real tmp577;
- fftw_real tmp548;
- fftw_real tmp635;
- fftw_real tmp580;
- fftw_real tmp643;
- fftw_real tmp560;
- fftw_real tmp574;
- fftw_real tmp638;
- fftw_real tmp644;
- fftw_real tmp584;
- fftw_real tmp590;
- fftw_real tmp571;
- fftw_real tmp575;
- fftw_real tmp587;
- fftw_real tmp591;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp542;
- fftw_real tmp547;
- fftw_real tmp582;
- fftw_real tmp583;
- ASSERT_ALIGNED_DOUBLE;
- tmp537 = tmp533 - tmp536;
- tmp577 = tmp533 + tmp536;
- tmp542 = tmp540 - tmp541;
- tmp547 = tmp543 + tmp546;
- tmp548 = K707106781 * (tmp542 - tmp547);
- tmp635 = K707106781 * (tmp542 + tmp547);
- {
- fftw_real tmp578;
- fftw_real tmp579;
- fftw_real tmp554;
- fftw_real tmp559;
- ASSERT_ALIGNED_DOUBLE;
- tmp578 = tmp541 + tmp540;
- tmp579 = tmp543 - tmp546;
- tmp580 = K707106781 * (tmp578 + tmp579);
- tmp643 = K707106781 * (tmp579 - tmp578);
- tmp554 = tmp552 - tmp553;
- tmp559 = tmp555 - tmp558;
- tmp560 = (K923879532 * tmp554) + (K382683432 * tmp559);
- tmp574 = (K382683432 * tmp554) - (K923879532 * tmp559);
- }
- tmp638 = tmp636 + tmp637;
- tmp644 = tmp637 - tmp636;
- tmp582 = tmp552 + tmp553;
- tmp583 = tmp555 + tmp558;
- tmp584 = (K382683432 * tmp582) + (K923879532 * tmp583);
- tmp590 = (K923879532 * tmp582) - (K382683432 * tmp583);
- {
- fftw_real tmp565;
- fftw_real tmp570;
- fftw_real tmp585;
- fftw_real tmp586;
- ASSERT_ALIGNED_DOUBLE;
- tmp565 = tmp561 - tmp564;
- tmp570 = tmp568 - tmp569;
- tmp571 = (K382683432 * tmp565) - (K923879532 * tmp570);
- tmp575 = (K382683432 * tmp570) + (K923879532 * tmp565);
- tmp585 = tmp561 + tmp564;
- tmp586 = tmp568 + tmp569;
- tmp587 = (K923879532 * tmp585) - (K382683432 * tmp586);
- tmp591 = (K923879532 * tmp586) + (K382683432 * tmp585);
- }
- }
- {
- fftw_real tmp549;
- fftw_real tmp572;
- fftw_real tmp573;
- fftw_real tmp576;
- ASSERT_ALIGNED_DOUBLE;
- tmp549 = tmp537 + tmp548;
- tmp572 = tmp560 + tmp571;
- Y[-22 * iostride] = tmp549 - tmp572;
- X[6 * iostride] = tmp549 + tmp572;
- tmp573 = tmp537 - tmp548;
- tmp576 = tmp574 - tmp575;
- Y[-30 * iostride] = tmp573 - tmp576;
- X[14 * iostride] = tmp573 + tmp576;
- }
- {
- fftw_real tmp645;
- fftw_real tmp646;
- fftw_real tmp647;
- fftw_real tmp648;
- ASSERT_ALIGNED_DOUBLE;
- tmp645 = tmp643 + tmp644;
- tmp646 = tmp574 + tmp575;
- X[22 * iostride] = -(tmp645 - tmp646);
- Y[-6 * iostride] = tmp646 + tmp645;
- tmp647 = tmp644 - tmp643;
- tmp648 = tmp571 - tmp560;
- X[30 * iostride] = -(tmp647 - tmp648);
- Y[-14 * iostride] = tmp648 + tmp647;
- }
- {
- fftw_real tmp581;
- fftw_real tmp588;
- fftw_real tmp589;
- fftw_real tmp592;
- ASSERT_ALIGNED_DOUBLE;
- tmp581 = tmp577 + tmp580;
- tmp588 = tmp584 + tmp587;
- Y[-18 * iostride] = tmp581 - tmp588;
- X[2 * iostride] = tmp581 + tmp588;
- tmp589 = tmp577 - tmp580;
- tmp592 = tmp590 - tmp591;
- Y[-26 * iostride] = tmp589 - tmp592;
- X[10 * iostride] = tmp589 + tmp592;
- }
- {
- fftw_real tmp639;
- fftw_real tmp640;
- fftw_real tmp641;
- fftw_real tmp642;
- ASSERT_ALIGNED_DOUBLE;
- tmp639 = tmp635 + tmp638;
- tmp640 = tmp590 + tmp591;
- X[18 * iostride] = -(tmp639 - tmp640);
- Y[-2 * iostride] = tmp640 + tmp639;
- tmp641 = tmp638 - tmp635;
- tmp642 = tmp587 - tmp584;
- X[26 * iostride] = -(tmp641 - tmp642);
- Y[-10 * iostride] = tmp642 + tmp641;
- }
- }
- {
- fftw_real tmp489;
- fftw_real tmp517;
- fftw_real tmp520;
- fftw_real tmp659;
- fftw_real tmp654;
- fftw_real tmp660;
- fftw_real tmp496;
- fftw_real tmp649;
- fftw_real tmp504;
- fftw_real tmp514;
- fftw_real tmp524;
- fftw_real tmp530;
- fftw_real tmp511;
- fftw_real tmp515;
- fftw_real tmp527;
- fftw_real tmp531;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp488;
- fftw_real tmp518;
- fftw_real tmp519;
- fftw_real tmp650;
- fftw_real tmp492;
- fftw_real tmp495;
- ASSERT_ALIGNED_DOUBLE;
- tmp488 = K707106781 * (tmp486 + tmp487);
- tmp489 = tmp485 - tmp488;
- tmp517 = tmp485 + tmp488;
- tmp518 = (K382683432 * tmp490) + (K923879532 * tmp491);
- tmp519 = (K923879532 * tmp494) - (K382683432 * tmp493);
- tmp520 = tmp518 + tmp519;
- tmp659 = tmp519 - tmp518;
- tmp650 = K707106781 * (tmp378 + tmp383);
- tmp654 = tmp650 + tmp653;
- tmp660 = tmp653 - tmp650;
- tmp492 = (K923879532 * tmp490) - (K382683432 * tmp491);
- tmp495 = (K923879532 * tmp493) + (K382683432 * tmp494);
- tmp496 = tmp492 - tmp495;
- tmp649 = tmp492 + tmp495;
- }
- {
- fftw_real tmp500;
- fftw_real tmp503;
- fftw_real tmp522;
- fftw_real tmp523;
- ASSERT_ALIGNED_DOUBLE;
- tmp500 = tmp498 - tmp499;
- tmp503 = tmp501 - tmp502;
- tmp504 = (K555570233 * tmp500) + (K831469612 * tmp503);
- tmp514 = (K555570233 * tmp503) - (K831469612 * tmp500);
- tmp522 = tmp498 + tmp499;
- tmp523 = tmp501 + tmp502;
- tmp524 = (K980785280 * tmp522) + (K195090322 * tmp523);
- tmp530 = (K980785280 * tmp523) - (K195090322 * tmp522);
- }
- {
- fftw_real tmp507;
- fftw_real tmp510;
- fftw_real tmp525;
- fftw_real tmp526;
- ASSERT_ALIGNED_DOUBLE;
- tmp507 = tmp505 - tmp506;
- tmp510 = tmp508 - tmp509;
- tmp511 = (K555570233 * tmp507) - (K831469612 * tmp510);
- tmp515 = (K831469612 * tmp507) + (K555570233 * tmp510);
- tmp525 = tmp505 + tmp506;
- tmp526 = tmp508 + tmp509;
- tmp527 = (K980785280 * tmp525) - (K195090322 * tmp526);
- tmp531 = (K195090322 * tmp525) + (K980785280 * tmp526);
- }
- {
- fftw_real tmp497;
- fftw_real tmp512;
- fftw_real tmp513;
- fftw_real tmp516;
- ASSERT_ALIGNED_DOUBLE;
- tmp497 = tmp489 + tmp496;
- tmp512 = tmp504 + tmp511;
- Y[-21 * iostride] = tmp497 - tmp512;
- X[5 * iostride] = tmp497 + tmp512;
- tmp513 = tmp489 - tmp496;
- tmp516 = tmp514 - tmp515;
- Y[-29 * iostride] = tmp513 - tmp516;
- X[13 * iostride] = tmp513 + tmp516;
- }
- {
- fftw_real tmp661;
- fftw_real tmp662;
- fftw_real tmp663;
- fftw_real tmp664;
- ASSERT_ALIGNED_DOUBLE;
- tmp661 = tmp659 + tmp660;
- tmp662 = tmp514 + tmp515;
- X[21 * iostride] = -(tmp661 - tmp662);
- Y[-5 * iostride] = tmp662 + tmp661;
- tmp663 = tmp660 - tmp659;
- tmp664 = tmp511 - tmp504;
- X[29 * iostride] = -(tmp663 - tmp664);
- Y[-13 * iostride] = tmp664 + tmp663;
- }
- {
- fftw_real tmp521;
- fftw_real tmp528;
- fftw_real tmp529;
- fftw_real tmp532;
- ASSERT_ALIGNED_DOUBLE;
- tmp521 = tmp517 + tmp520;
- tmp528 = tmp524 + tmp527;
- Y[-17 * iostride] = tmp521 - tmp528;
- X[iostride] = tmp521 + tmp528;
- tmp529 = tmp517 - tmp520;
- tmp532 = tmp530 - tmp531;
- Y[-25 * iostride] = tmp529 - tmp532;
- X[9 * iostride] = tmp529 + tmp532;
- }
- {
- fftw_real tmp655;
- fftw_real tmp656;
- fftw_real tmp657;
- fftw_real tmp658;
- ASSERT_ALIGNED_DOUBLE;
- tmp655 = tmp649 + tmp654;
- tmp656 = tmp530 + tmp531;
- X[17 * iostride] = -(tmp655 - tmp656);
- Y[-iostride] = tmp656 + tmp655;
- tmp657 = tmp654 - tmp649;
- tmp658 = tmp527 - tmp524;
- X[25 * iostride] = -(tmp657 - tmp658);
- Y[-9 * iostride] = tmp658 + tmp657;
- }
- }
- {
- fftw_real tmp385;
- fftw_real tmp469;
- fftw_real tmp472;
- fftw_real tmp673;
- fftw_real tmp668;
- fftw_real tmp674;
- fftw_real tmp408;
- fftw_real tmp665;
- fftw_real tmp436;
- fftw_real tmp466;
- fftw_real tmp476;
- fftw_real tmp482;
- fftw_real tmp463;
- fftw_real tmp467;
- fftw_real tmp479;
- fftw_real tmp483;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp384;
- fftw_real tmp470;
- fftw_real tmp471;
- fftw_real tmp666;
- fftw_real tmp396;
- fftw_real tmp407;
- ASSERT_ALIGNED_DOUBLE;
- tmp384 = K707106781 * (tmp378 - tmp383);
- tmp385 = tmp373 - tmp384;
- tmp469 = tmp373 + tmp384;
- tmp470 = (K923879532 * tmp390) + (K382683432 * tmp395);
- tmp471 = (K382683432 * tmp406) - (K923879532 * tmp401);
- tmp472 = tmp470 + tmp471;
- tmp673 = tmp471 - tmp470;
- tmp666 = K707106781 * (tmp487 - tmp486);
- tmp668 = tmp666 + tmp667;
- tmp674 = tmp667 - tmp666;
- tmp396 = (K382683432 * tmp390) - (K923879532 * tmp395);
- tmp407 = (K382683432 * tmp401) + (K923879532 * tmp406);
- tmp408 = tmp396 - tmp407;
- tmp665 = tmp396 + tmp407;
- }
- {
- fftw_real tmp426;
- fftw_real tmp435;
- fftw_real tmp474;
- fftw_real tmp475;
- ASSERT_ALIGNED_DOUBLE;
- tmp426 = tmp414 - tmp425;
- tmp435 = tmp431 - tmp434;
- tmp436 = (K980785280 * tmp426) + (K195090322 * tmp435);
- tmp466 = (K195090322 * tmp426) - (K980785280 * tmp435);
- tmp474 = tmp414 + tmp425;
- tmp475 = tmp431 + tmp434;
- tmp476 = (K555570233 * tmp474) + (K831469612 * tmp475);
- tmp482 = (K831469612 * tmp474) - (K555570233 * tmp475);
- }
- {
- fftw_real tmp453;
- fftw_real tmp462;
- fftw_real tmp477;
- fftw_real tmp478;
- ASSERT_ALIGNED_DOUBLE;
- tmp453 = tmp441 - tmp452;
- tmp462 = tmp458 - tmp461;
- tmp463 = (K195090322 * tmp453) - (K980785280 * tmp462);
- tmp467 = (K195090322 * tmp462) + (K980785280 * tmp453);
- tmp477 = tmp441 + tmp452;
- tmp478 = tmp458 + tmp461;
- tmp479 = (K831469612 * tmp477) - (K555570233 * tmp478);
- tmp483 = (K831469612 * tmp478) + (K555570233 * tmp477);
- }
- {
- fftw_real tmp409;
- fftw_real tmp464;
- fftw_real tmp465;
- fftw_real tmp468;
- ASSERT_ALIGNED_DOUBLE;
- tmp409 = tmp385 + tmp408;
- tmp464 = tmp436 + tmp463;
- Y[-23 * iostride] = tmp409 - tmp464;
- X[7 * iostride] = tmp409 + tmp464;
- tmp465 = tmp385 - tmp408;
- tmp468 = tmp466 - tmp467;
- Y[-31 * iostride] = tmp465 - tmp468;
- X[15 * iostride] = tmp465 + tmp468;
- }
- {
- fftw_real tmp675;
- fftw_real tmp676;
- fftw_real tmp677;
- fftw_real tmp678;
- ASSERT_ALIGNED_DOUBLE;
- tmp675 = tmp673 + tmp674;
- tmp676 = tmp466 + tmp467;
- X[23 * iostride] = -(tmp675 - tmp676);
- Y[-7 * iostride] = tmp676 + tmp675;
- tmp677 = tmp674 - tmp673;
- tmp678 = tmp463 - tmp436;
- X[31 * iostride] = -(tmp677 - tmp678);
- Y[-15 * iostride] = tmp678 + tmp677;
- }
- {
- fftw_real tmp473;
- fftw_real tmp480;
- fftw_real tmp481;
- fftw_real tmp484;
- ASSERT_ALIGNED_DOUBLE;
- tmp473 = tmp469 + tmp472;
- tmp480 = tmp476 + tmp479;
- Y[-19 * iostride] = tmp473 - tmp480;
- X[3 * iostride] = tmp473 + tmp480;
- tmp481 = tmp469 - tmp472;
- tmp484 = tmp482 - tmp483;
- Y[-27 * iostride] = tmp481 - tmp484;
- X[11 * iostride] = tmp481 + tmp484;
- }
- {
- fftw_real tmp669;
- fftw_real tmp670;
- fftw_real tmp671;
- fftw_real tmp672;
- ASSERT_ALIGNED_DOUBLE;
- tmp669 = tmp665 + tmp668;
- tmp670 = tmp482 + tmp483;
- X[19 * iostride] = -(tmp669 - tmp670);
- Y[-3 * iostride] = tmp670 + tmp669;
- tmp671 = tmp668 - tmp665;
- tmp672 = tmp479 - tmp476;
- X[27 * iostride] = -(tmp671 - tmp672);
- Y[-11 * iostride] = tmp672 + tmp671;
- }
- }
- }
- if (i == m) {
- fftw_real tmp5;
- fftw_real tmp105;
- fftw_real tmp158;
- fftw_real tmp171;
- fftw_real tmp12;
- fftw_real tmp170;
- fftw_real tmp108;
- fftw_real tmp155;
- fftw_real tmp74;
- fftw_real tmp97;
- fftw_real tmp130;
- fftw_real tmp146;
- fftw_real tmp82;
- fftw_real tmp98;
- fftw_real tmp127;
- fftw_real tmp145;
- fftw_real tmp24;
- fftw_real tmp90;
- fftw_real tmp115;
- fftw_real tmp138;
- fftw_real tmp35;
- fftw_real tmp91;
- fftw_real tmp112;
- fftw_real tmp139;
- fftw_real tmp51;
- fftw_real tmp94;
- fftw_real tmp123;
- fftw_real tmp143;
- fftw_real tmp59;
- fftw_real tmp95;
- fftw_real tmp120;
- fftw_real tmp142;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp157;
- fftw_real tmp4;
- fftw_real tmp156;
- fftw_real tmp2;
- fftw_real tmp3;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp157 = X[16 * iostride];
- tmp2 = X[8 * iostride];
- tmp3 = X[24 * iostride];
- tmp4 = K707106781 * (tmp2 - tmp3);
- tmp156 = K707106781 * (tmp2 + tmp3);
- tmp5 = tmp1 + tmp4;
- tmp105 = tmp1 - tmp4;
- tmp158 = tmp156 + tmp157;
- tmp171 = tmp157 - tmp156;
- }
- {
- fftw_real tmp8;
- fftw_real tmp106;
- fftw_real tmp11;
- fftw_real tmp107;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp6;
- fftw_real tmp7;
- fftw_real tmp9;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = X[4 * iostride];
- tmp7 = X[20 * iostride];
- tmp8 = (K923879532 * tmp6) - (K382683432 * tmp7);
- tmp106 = (K382683432 * tmp6) + (K923879532 * tmp7);
- tmp9 = X[12 * iostride];
- tmp10 = X[28 * iostride];
- tmp11 = (K382683432 * tmp9) - (K923879532 * tmp10);
- tmp107 = (K923879532 * tmp9) + (K382683432 * tmp10);
- }
- tmp12 = tmp8 + tmp11;
- tmp170 = tmp11 - tmp8;
- tmp108 = tmp106 - tmp107;
- tmp155 = tmp106 + tmp107;
- }
- {
- fftw_real tmp65;
- fftw_real tmp80;
- fftw_real tmp63;
- fftw_real tmp78;
- fftw_real tmp69;
- fftw_real tmp75;
- fftw_real tmp72;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp64;
- fftw_real tmp79;
- fftw_real tmp61;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp64 = X[31 * iostride];
- tmp65 = K2_000000000 * tmp64;
- tmp79 = X[15 * iostride];
- tmp80 = K2_000000000 * tmp79;
- tmp61 = X[7 * iostride];
- tmp62 = X[23 * iostride];
- tmp63 = K1_414213562 * (tmp61 - tmp62);
- tmp78 = K1_414213562 * (tmp61 + tmp62);
- {
- fftw_real tmp67;
- fftw_real tmp68;
- fftw_real tmp70;
- fftw_real tmp71;
- ASSERT_ALIGNED_DOUBLE;
- tmp67 = X[3 * iostride];
- tmp68 = X[19 * iostride];
- tmp69 = (K1_847759065 * tmp67) - (K765366864 * tmp68);
- tmp75 = (K765366864 * tmp67) + (K1_847759065 * tmp68);
- tmp70 = X[11 * iostride];
- tmp71 = X[27 * iostride];
- tmp72 = (K765366864 * tmp70) - (K1_847759065 * tmp71);
- tmp76 = (K1_847759065 * tmp70) + (K765366864 * tmp71);
- }
- }
- {
- fftw_real tmp66;
- fftw_real tmp73;
- fftw_real tmp128;
- fftw_real tmp129;
- ASSERT_ALIGNED_DOUBLE;
- tmp66 = tmp63 - tmp65;
- tmp73 = tmp69 + tmp72;
- tmp74 = tmp66 + tmp73;
- tmp97 = tmp66 - tmp73;
- tmp128 = tmp72 - tmp69;
- tmp129 = tmp80 - tmp78;
- tmp130 = tmp128 - tmp129;
- tmp146 = tmp128 + tmp129;
- }
- {
- fftw_real tmp77;
- fftw_real tmp81;
- fftw_real tmp125;
- fftw_real tmp126;
- ASSERT_ALIGNED_DOUBLE;
- tmp77 = tmp75 + tmp76;
- tmp81 = tmp78 + tmp80;
- tmp82 = tmp77 + tmp81;
- tmp98 = tmp81 - tmp77;
- tmp125 = tmp63 + tmp65;
- tmp126 = tmp75 - tmp76;
- tmp127 = tmp125 + tmp126;
- tmp145 = tmp126 - tmp125;
- }
- }
- {
- fftw_real tmp15;
- fftw_real tmp22;
- fftw_real tmp18;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp14;
- fftw_real tmp21;
- fftw_real tmp16;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = X[2 * iostride];
- tmp15 = K2_000000000 * tmp14;
- tmp21 = X[18 * iostride];
- tmp22 = K2_000000000 * tmp21;
- tmp16 = X[10 * iostride];
- tmp17 = X[26 * iostride];
- tmp18 = K1_414213562 * (tmp16 - tmp17);
- tmp20 = K1_414213562 * (tmp16 + tmp17);
- }
- {
- fftw_real tmp19;
- fftw_real tmp23;
- fftw_real tmp113;
- fftw_real tmp114;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = tmp15 + tmp18;
- tmp23 = tmp20 + tmp22;
- tmp24 = (K490392640 * tmp19) - (K097545161 * tmp23);
- tmp90 = (K097545161 * tmp19) + (K490392640 * tmp23);
- tmp113 = tmp22 - tmp20;
- tmp114 = tmp15 - tmp18;
- tmp115 = (K415734806 * tmp113) - (K277785116 * tmp114);
- tmp138 = (K415734806 * tmp114) + (K277785116 * tmp113);
- }
- }
- {
- fftw_real tmp29;
- fftw_real tmp33;
- fftw_real tmp27;
- fftw_real tmp31;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp28;
- fftw_real tmp32;
- fftw_real tmp25;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp28 = X[30 * iostride];
- tmp29 = K2_000000000 * tmp28;
- tmp32 = X[14 * iostride];
- tmp33 = K2_000000000 * tmp32;
- tmp25 = X[6 * iostride];
- tmp26 = X[22 * iostride];
- tmp27 = K1_414213562 * (tmp25 - tmp26);
- tmp31 = K1_414213562 * (tmp25 + tmp26);
- }
- {
- fftw_real tmp30;
- fftw_real tmp34;
- fftw_real tmp110;
- fftw_real tmp111;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = tmp27 - tmp29;
- tmp34 = tmp31 + tmp33;
- tmp35 = (K490392640 * tmp30) + (K097545161 * tmp34);
- tmp91 = (K097545161 * tmp30) - (K490392640 * tmp34);
- tmp110 = tmp33 - tmp31;
- tmp111 = tmp27 + tmp29;
- tmp112 = (K415734806 * tmp110) - (K277785116 * tmp111);
- tmp139 = (K415734806 * tmp111) + (K277785116 * tmp110);
- }
- }
- {
- fftw_real tmp39;
- fftw_real tmp57;
- fftw_real tmp42;
- fftw_real tmp55;
- fftw_real tmp46;
- fftw_real tmp52;
- fftw_real tmp49;
- fftw_real tmp53;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp38;
- fftw_real tmp56;
- fftw_real tmp40;
- fftw_real tmp41;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = X[iostride];
- tmp39 = K2_000000000 * tmp38;
- tmp56 = X[17 * iostride];
- tmp57 = K2_000000000 * tmp56;
- tmp40 = X[9 * iostride];
- tmp41 = X[25 * iostride];
- tmp42 = K1_414213562 * (tmp40 - tmp41);
- tmp55 = K1_414213562 * (tmp40 + tmp41);
- {
- fftw_real tmp44;
- fftw_real tmp45;
- fftw_real tmp47;
- fftw_real tmp48;
- ASSERT_ALIGNED_DOUBLE;
- tmp44 = X[5 * iostride];
- tmp45 = X[21 * iostride];
- tmp46 = (K1_847759065 * tmp44) - (K765366864 * tmp45);
- tmp52 = (K765366864 * tmp44) + (K1_847759065 * tmp45);
- tmp47 = X[13 * iostride];
- tmp48 = X[29 * iostride];
- tmp49 = (K765366864 * tmp47) - (K1_847759065 * tmp48);
- tmp53 = (K1_847759065 * tmp47) + (K765366864 * tmp48);
- }
- }
- {
- fftw_real tmp43;
- fftw_real tmp50;
- fftw_real tmp121;
- fftw_real tmp122;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = tmp39 + tmp42;
- tmp50 = tmp46 + tmp49;
- tmp51 = tmp43 + tmp50;
- tmp94 = tmp43 - tmp50;
- tmp121 = tmp49 - tmp46;
- tmp122 = tmp57 - tmp55;
- tmp123 = tmp121 - tmp122;
- tmp143 = tmp121 + tmp122;
- }
- {
- fftw_real tmp54;
- fftw_real tmp58;
- fftw_real tmp118;
- fftw_real tmp119;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = tmp52 + tmp53;
- tmp58 = tmp55 + tmp57;
- tmp59 = tmp54 + tmp58;
- tmp95 = tmp58 - tmp54;
- tmp118 = tmp39 - tmp42;
- tmp119 = tmp52 - tmp53;
- tmp120 = tmp118 - tmp119;
- tmp142 = tmp118 + tmp119;
- }
- }
- {
- fftw_real tmp37;
- fftw_real tmp85;
- fftw_real tmp160;
- fftw_real tmp162;
- fftw_real tmp84;
- fftw_real tmp153;
- fftw_real tmp88;
- fftw_real tmp161;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp13;
- fftw_real tmp36;
- fftw_real tmp154;
- fftw_real tmp159;
- ASSERT_ALIGNED_DOUBLE;
- tmp13 = tmp5 + tmp12;
- tmp36 = tmp24 + tmp35;
- tmp37 = tmp13 - tmp36;
- tmp85 = tmp13 + tmp36;
- tmp154 = tmp91 - tmp90;
- tmp159 = tmp155 + tmp158;
- tmp160 = tmp154 - tmp159;
- tmp162 = tmp154 + tmp159;
- }
- {
- fftw_real tmp60;
- fftw_real tmp83;
- fftw_real tmp86;
- fftw_real tmp87;
- ASSERT_ALIGNED_DOUBLE;
- tmp60 = (K049008570 * tmp51) + (K497592363 * tmp59);
- tmp83 = (K049008570 * tmp74) - (K497592363 * tmp82);
- tmp84 = tmp60 + tmp83;
- tmp153 = tmp83 - tmp60;
- tmp86 = (K497592363 * tmp51) - (K049008570 * tmp59);
- tmp87 = (K497592363 * tmp74) + (K049008570 * tmp82);
- tmp88 = tmp86 + tmp87;
- tmp161 = tmp87 - tmp86;
- }
- X[8 * iostride] = tmp37 - tmp84;
- X[7 * iostride] = tmp37 + tmp84;
- X[15 * iostride] = tmp85 - tmp88;
- X[0] = tmp85 + tmp88;
- Y[-15 * iostride] = tmp153 - tmp160;
- Y[0] = tmp153 + tmp160;
- Y[-8 * iostride] = tmp161 - tmp162;
- Y[-7 * iostride] = tmp161 + tmp162;
- }
- {
- fftw_real tmp93;
- fftw_real tmp101;
- fftw_real tmp166;
- fftw_real tmp168;
- fftw_real tmp100;
- fftw_real tmp163;
- fftw_real tmp104;
- fftw_real tmp167;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp89;
- fftw_real tmp92;
- fftw_real tmp164;
- fftw_real tmp165;
- ASSERT_ALIGNED_DOUBLE;
- tmp89 = tmp5 - tmp12;
- tmp92 = tmp90 + tmp91;
- tmp93 = tmp89 + tmp92;
- tmp101 = tmp89 - tmp92;
- tmp164 = tmp35 - tmp24;
- tmp165 = tmp158 - tmp155;
- tmp166 = tmp164 - tmp165;
- tmp168 = tmp164 + tmp165;
- }
- {
- fftw_real tmp96;
- fftw_real tmp99;
- fftw_real tmp102;
- fftw_real tmp103;
- ASSERT_ALIGNED_DOUBLE;
- tmp96 = (K386505226 * tmp94) + (K317196642 * tmp95);
- tmp99 = (K386505226 * tmp97) - (K317196642 * tmp98);
- tmp100 = tmp96 + tmp99;
- tmp163 = tmp99 - tmp96;
- tmp102 = (K317196642 * tmp97) + (K386505226 * tmp98);
- tmp103 = (K386505226 * tmp95) - (K317196642 * tmp94);
- tmp104 = tmp102 - tmp103;
- tmp167 = tmp103 + tmp102;
- }
- X[12 * iostride] = tmp93 - tmp100;
- X[3 * iostride] = tmp93 + tmp100;
- X[11 * iostride] = tmp101 - tmp104;
- X[4 * iostride] = tmp101 + tmp104;
- Y[-11 * iostride] = tmp163 - tmp166;
- Y[-4 * iostride] = tmp163 + tmp166;
- Y[-12 * iostride] = tmp167 - tmp168;
- Y[-3 * iostride] = tmp167 + tmp168;
- }
- {
- fftw_real tmp117;
- fftw_real tmp133;
- fftw_real tmp174;
- fftw_real tmp176;
- fftw_real tmp132;
- fftw_real tmp175;
- fftw_real tmp136;
- fftw_real tmp169;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp109;
- fftw_real tmp116;
- fftw_real tmp172;
- fftw_real tmp173;
- ASSERT_ALIGNED_DOUBLE;
- tmp109 = tmp105 - tmp108;
- tmp116 = tmp112 - tmp115;
- tmp117 = tmp109 + tmp116;
- tmp133 = tmp109 - tmp116;
- tmp172 = tmp170 - tmp171;
- tmp173 = tmp138 + tmp139;
- tmp174 = tmp172 - tmp173;
- tmp176 = tmp173 + tmp172;
- }
- {
- fftw_real tmp124;
- fftw_real tmp131;
- fftw_real tmp134;
- fftw_real tmp135;
- ASSERT_ALIGNED_DOUBLE;
- tmp124 = (K440960632 * tmp120) + (K235698368 * tmp123);
- tmp131 = (K440960632 * tmp127) + (K235698368 * tmp130);
- tmp132 = tmp124 - tmp131;
- tmp175 = tmp124 + tmp131;
- tmp134 = (K440960632 * tmp130) - (K235698368 * tmp127);
- tmp135 = (K440960632 * tmp123) - (K235698368 * tmp120);
- tmp136 = tmp134 - tmp135;
- tmp169 = tmp135 + tmp134;
- }
- X[13 * iostride] = tmp117 - tmp132;
- X[2 * iostride] = tmp117 + tmp132;
- X[10 * iostride] = tmp133 - tmp136;
- X[5 * iostride] = tmp133 + tmp136;
- Y[-13 * iostride] = tmp169 - tmp174;
- Y[-2 * iostride] = tmp169 + tmp174;
- Y[-5 * iostride] = -(tmp175 + tmp176);
- Y[-10 * iostride] = tmp176 - tmp175;
- }
- {
- fftw_real tmp141;
- fftw_real tmp149;
- fftw_real tmp180;
- fftw_real tmp182;
- fftw_real tmp148;
- fftw_real tmp177;
- fftw_real tmp152;
- fftw_real tmp181;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp137;
- fftw_real tmp140;
- fftw_real tmp178;
- fftw_real tmp179;
- ASSERT_ALIGNED_DOUBLE;
- tmp137 = tmp105 + tmp108;
- tmp140 = tmp138 - tmp139;
- tmp141 = tmp137 + tmp140;
- tmp149 = tmp137 - tmp140;
- tmp178 = tmp115 + tmp112;
- tmp179 = tmp170 + tmp171;
- tmp180 = tmp178 - tmp179;
- tmp182 = tmp178 + tmp179;
- }
- {
- fftw_real tmp144;
- fftw_real tmp147;
- fftw_real tmp150;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- tmp144 = (K478470167 * tmp142) + (K145142338 * tmp143);
- tmp147 = (K478470167 * tmp145) - (K145142338 * tmp146);
- tmp148 = tmp144 + tmp147;
- tmp177 = tmp147 - tmp144;
- tmp150 = (K145142338 * tmp145) + (K478470167 * tmp146);
- tmp151 = (K478470167 * tmp143) - (K145142338 * tmp142);
- tmp152 = tmp150 - tmp151;
- tmp181 = tmp151 + tmp150;
- }
- X[14 * iostride] = tmp141 - tmp148;
- X[iostride] = tmp141 + tmp148;
- X[9 * iostride] = tmp149 - tmp152;
- X[6 * iostride] = tmp149 + tmp152;
- Y[-9 * iostride] = tmp177 - tmp180;
- Y[-6 * iostride] = tmp177 + tmp180;
- Y[-14 * iostride] = tmp181 - tmp182;
- Y[-iostride] = tmp181 + tmp182;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31};
-fftw_codelet_desc fftw_hc2hc_forward_32_desc =
-{
- "fftw_hc2hc_forward_32",
- (void (*)()) fftw_hc2hc_forward_32,
- 32,
- FFTW_FORWARD,
- FFTW_HC2HC,
- 707,
- 31,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhf_4.c b/src/sndobj/rfftw/fhf_4.c
deleted file mode 100644
index cc1a8ae..0000000
--- a/src/sndobj/rfftw/fhf_4.c
+++ /dev/null
@@ -1,185 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:43 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 4 */
-
-/*
- * This function contains 34 FP additions, 14 FP multiplications,
- * (or, 28 additions, 8 multiplications, 6 fused multiply/add),
- * 15 stack variables, and 32 memory accesses
- */
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: fhf_4.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: fhf_4.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: fhf_4.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- */
-
-void fftw_hc2hc_forward_4(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (4 * iostride);
- {
- fftw_real tmp35;
- fftw_real tmp36;
- fftw_real tmp37;
- fftw_real tmp38;
- fftw_real tmp39;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp35 = X[0];
- tmp36 = X[2 * iostride];
- tmp37 = tmp35 + tmp36;
- tmp38 = X[iostride];
- tmp39 = X[3 * iostride];
- tmp40 = tmp38 + tmp39;
- X[iostride] = tmp35 - tmp36;
- Y[-iostride] = -(tmp38 - tmp39);
- X[2 * iostride] = tmp37 - tmp40;
- X[0] = tmp37 + tmp40;
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 3) {
- fftw_real tmp7;
- fftw_real tmp30;
- fftw_real tmp12;
- fftw_real tmp29;
- fftw_real tmp18;
- fftw_real tmp26;
- fftw_real tmp23;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = X[0];
- tmp30 = Y[-3 * iostride];
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = X[2 * iostride];
- tmp11 = Y[-iostride];
- tmp8 = c_re(W[1]);
- tmp10 = c_im(W[1]);
- tmp12 = (tmp8 * tmp9) - (tmp10 * tmp11);
- tmp29 = (tmp10 * tmp9) + (tmp8 * tmp11);
- }
- {
- fftw_real tmp15;
- fftw_real tmp17;
- fftw_real tmp14;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = X[iostride];
- tmp17 = Y[-2 * iostride];
- tmp14 = c_re(W[0]);
- tmp16 = c_im(W[0]);
- tmp18 = (tmp14 * tmp15) - (tmp16 * tmp17);
- tmp26 = (tmp16 * tmp15) + (tmp14 * tmp17);
- }
- {
- fftw_real tmp20;
- fftw_real tmp22;
- fftw_real tmp19;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp20 = X[3 * iostride];
- tmp22 = Y[0];
- tmp19 = c_re(W[2]);
- tmp21 = c_im(W[2]);
- tmp23 = (tmp19 * tmp20) - (tmp21 * tmp22);
- tmp27 = (tmp21 * tmp20) + (tmp19 * tmp22);
- }
- {
- fftw_real tmp13;
- fftw_real tmp24;
- fftw_real tmp33;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- tmp13 = tmp7 + tmp12;
- tmp24 = tmp18 + tmp23;
- Y[-2 * iostride] = tmp13 - tmp24;
- X[0] = tmp13 + tmp24;
- tmp33 = tmp18 - tmp23;
- tmp34 = tmp30 - tmp29;
- X[3 * iostride] = -(tmp33 + tmp34);
- Y[-iostride] = tmp34 - tmp33;
- }
- {
- fftw_real tmp31;
- fftw_real tmp32;
- fftw_real tmp25;
- fftw_real tmp28;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = tmp29 + tmp30;
- tmp32 = tmp26 + tmp27;
- X[2 * iostride] = -(tmp31 - tmp32);
- Y[0] = tmp32 + tmp31;
- tmp25 = tmp7 - tmp12;
- tmp28 = tmp26 - tmp27;
- Y[-3 * iostride] = tmp25 - tmp28;
- X[iostride] = tmp25 + tmp28;
- }
- }
- if (i == m) {
- fftw_real tmp1;
- fftw_real tmp6;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp3;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp6 = X[2 * iostride];
- tmp2 = X[iostride];
- tmp3 = X[3 * iostride];
- tmp4 = K707106781 * (tmp2 - tmp3);
- tmp5 = K707106781 * (tmp2 + tmp3);
- X[iostride] = tmp1 - tmp4;
- X[0] = tmp1 + tmp4;
- Y[0] = -(tmp5 + tmp6);
- Y[-iostride] = tmp6 - tmp5;
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3};
-fftw_codelet_desc fftw_hc2hc_forward_4_desc =
-{
- "fftw_hc2hc_forward_4",
- (void (*)()) fftw_hc2hc_forward_4,
- 4,
- FFTW_FORWARD,
- FFTW_HC2HC,
- 91,
- 3,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhf_5.c b/src/sndobj/rfftw/fhf_5.c
deleted file mode 100644
index 5594c2f..0000000
--- a/src/sndobj/rfftw/fhf_5.c
+++ /dev/null
@@ -1,268 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:44 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 5 */
-
-/*
- * This function contains 64 FP additions, 40 FP multiplications,
- * (or, 44 additions, 20 multiplications, 20 fused multiply/add),
- * 27 stack variables, and 40 memory accesses
- */
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-
-/*
- * Generator Id's :
- * $Id: fhf_5.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fhf_5.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fhf_5.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_hc2hc_forward_5(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (5 * iostride);
- {
- fftw_real tmp70;
- fftw_real tmp67;
- fftw_real tmp68;
- fftw_real tmp63;
- fftw_real tmp71;
- fftw_real tmp66;
- fftw_real tmp69;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = X[0];
- {
- fftw_real tmp61;
- fftw_real tmp62;
- fftw_real tmp64;
- fftw_real tmp65;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = X[4 * iostride];
- tmp62 = X[iostride];
- tmp67 = tmp62 + tmp61;
- tmp64 = X[2 * iostride];
- tmp65 = X[3 * iostride];
- tmp68 = tmp64 + tmp65;
- tmp63 = tmp61 - tmp62;
- tmp71 = tmp67 + tmp68;
- tmp66 = tmp64 - tmp65;
- }
- Y[-iostride] = (K951056516 * tmp63) - (K587785252 * tmp66);
- Y[-2 * iostride] = (K587785252 * tmp63) + (K951056516 * tmp66);
- X[0] = tmp70 + tmp71;
- tmp69 = K559016994 * (tmp67 - tmp68);
- tmp72 = tmp70 - (K250000000 * tmp71);
- X[iostride] = tmp69 + tmp72;
- X[2 * iostride] = tmp72 - tmp69;
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 4) {
- fftw_real tmp13;
- fftw_real tmp52;
- fftw_real tmp42;
- fftw_real tmp45;
- fftw_real tmp49;
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp54;
- fftw_real tmp53;
- fftw_real tmp24;
- fftw_real tmp35;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp13 = X[0];
- tmp52 = Y[-4 * iostride];
- {
- fftw_real tmp18;
- fftw_real tmp40;
- fftw_real tmp34;
- fftw_real tmp44;
- fftw_real tmp23;
- fftw_real tmp41;
- fftw_real tmp29;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp15;
- fftw_real tmp17;
- fftw_real tmp14;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = X[iostride];
- tmp17 = Y[-3 * iostride];
- tmp14 = c_re(W[0]);
- tmp16 = c_im(W[0]);
- tmp18 = (tmp14 * tmp15) - (tmp16 * tmp17);
- tmp40 = (tmp16 * tmp15) + (tmp14 * tmp17);
- }
- {
- fftw_real tmp31;
- fftw_real tmp33;
- fftw_real tmp30;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = X[3 * iostride];
- tmp33 = Y[-iostride];
- tmp30 = c_re(W[2]);
- tmp32 = c_im(W[2]);
- tmp34 = (tmp30 * tmp31) - (tmp32 * tmp33);
- tmp44 = (tmp32 * tmp31) + (tmp30 * tmp33);
- }
- {
- fftw_real tmp20;
- fftw_real tmp22;
- fftw_real tmp19;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp20 = X[4 * iostride];
- tmp22 = Y[0];
- tmp19 = c_re(W[3]);
- tmp21 = c_im(W[3]);
- tmp23 = (tmp19 * tmp20) - (tmp21 * tmp22);
- tmp41 = (tmp21 * tmp20) + (tmp19 * tmp22);
- }
- {
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp25;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = X[2 * iostride];
- tmp28 = Y[-2 * iostride];
- tmp25 = c_re(W[1]);
- tmp27 = c_im(W[1]);
- tmp29 = (tmp25 * tmp26) - (tmp27 * tmp28);
- tmp43 = (tmp27 * tmp26) + (tmp25 * tmp28);
- }
- tmp42 = tmp40 - tmp41;
- tmp45 = tmp43 - tmp44;
- tmp49 = tmp40 + tmp41;
- tmp50 = tmp43 + tmp44;
- tmp51 = tmp49 + tmp50;
- tmp54 = tmp29 - tmp34;
- tmp53 = tmp18 - tmp23;
- tmp24 = tmp18 + tmp23;
- tmp35 = tmp29 + tmp34;
- tmp36 = tmp24 + tmp35;
- }
- X[0] = tmp13 + tmp36;
- {
- fftw_real tmp46;
- fftw_real tmp48;
- fftw_real tmp39;
- fftw_real tmp47;
- fftw_real tmp37;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp46 = (K951056516 * tmp42) + (K587785252 * tmp45);
- tmp48 = (K951056516 * tmp45) - (K587785252 * tmp42);
- tmp37 = K559016994 * (tmp24 - tmp35);
- tmp38 = tmp13 - (K250000000 * tmp36);
- tmp39 = tmp37 + tmp38;
- tmp47 = tmp38 - tmp37;
- Y[-4 * iostride] = tmp39 - tmp46;
- X[iostride] = tmp39 + tmp46;
- X[2 * iostride] = tmp47 - tmp48;
- Y[-3 * iostride] = tmp47 + tmp48;
- }
- Y[0] = tmp51 + tmp52;
- {
- fftw_real tmp55;
- fftw_real tmp60;
- fftw_real tmp58;
- fftw_real tmp59;
- fftw_real tmp56;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp55 = (K951056516 * tmp53) + (K587785252 * tmp54);
- tmp60 = (K951056516 * tmp54) - (K587785252 * tmp53);
- tmp56 = K559016994 * (tmp49 - tmp50);
- tmp57 = tmp52 - (K250000000 * tmp51);
- tmp58 = tmp56 + tmp57;
- tmp59 = tmp57 - tmp56;
- X[4 * iostride] = -(tmp55 + tmp58);
- Y[-iostride] = tmp58 - tmp55;
- X[3 * iostride] = -(tmp59 - tmp60);
- Y[-2 * iostride] = tmp60 + tmp59;
- }
- }
- if (i == m) {
- fftw_real tmp8;
- fftw_real tmp3;
- fftw_real tmp6;
- fftw_real tmp9;
- fftw_real tmp12;
- fftw_real tmp11;
- fftw_real tmp7;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = X[0];
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp4;
- fftw_real tmp5;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[2 * iostride];
- tmp2 = X[3 * iostride];
- tmp3 = tmp1 - tmp2;
- tmp4 = X[4 * iostride];
- tmp5 = X[iostride];
- tmp6 = tmp4 - tmp5;
- tmp9 = tmp3 + tmp6;
- tmp12 = tmp4 + tmp5;
- tmp11 = tmp1 + tmp2;
- }
- X[2 * iostride] = tmp8 + tmp9;
- tmp7 = K559016994 * (tmp3 - tmp6);
- tmp10 = tmp8 - (K250000000 * tmp9);
- X[0] = tmp7 + tmp10;
- X[iostride] = tmp10 - tmp7;
- Y[0] = -((K951056516 * tmp11) + (K587785252 * tmp12));
- Y[-iostride] = -((K951056516 * tmp12) - (K587785252 * tmp11));
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4};
-fftw_codelet_desc fftw_hc2hc_forward_5_desc =
-{
- "fftw_hc2hc_forward_5",
- (void (*)()) fftw_hc2hc_forward_5,
- 5,
- FFTW_FORWARD,
- FFTW_HC2HC,
- 113,
- 4,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhf_6.c b/src/sndobj/rfftw/fhf_6.c
deleted file mode 100644
index 62c31f1..0000000
--- a/src/sndobj/rfftw/fhf_6.c
+++ /dev/null
@@ -1,299 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:45 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 6 */
-
-/*
- * This function contains 72 FP additions, 36 FP multiplications,
- * (or, 54 additions, 18 multiplications, 18 fused multiply/add),
- * 23 stack variables, and 48 memory accesses
- */
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-
-/*
- * Generator Id's :
- * $Id: fhf_6.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fhf_6.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fhf_6.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- */
-
-void fftw_hc2hc_forward_6(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (6 * iostride);
- {
- fftw_real tmp71;
- fftw_real tmp81;
- fftw_real tmp77;
- fftw_real tmp79;
- fftw_real tmp74;
- fftw_real tmp80;
- fftw_real tmp69;
- fftw_real tmp70;
- fftw_real tmp78;
- fftw_real tmp82;
- ASSERT_ALIGNED_DOUBLE;
- tmp69 = X[0];
- tmp70 = X[3 * iostride];
- tmp71 = tmp69 - tmp70;
- tmp81 = tmp69 + tmp70;
- {
- fftw_real tmp75;
- fftw_real tmp76;
- fftw_real tmp72;
- fftw_real tmp73;
- ASSERT_ALIGNED_DOUBLE;
- tmp75 = X[4 * iostride];
- tmp76 = X[iostride];
- tmp77 = tmp75 - tmp76;
- tmp79 = tmp75 + tmp76;
- tmp72 = X[2 * iostride];
- tmp73 = X[5 * iostride];
- tmp74 = tmp72 - tmp73;
- tmp80 = tmp72 + tmp73;
- }
- Y[-iostride] = K866025403 * (tmp77 - tmp74);
- tmp78 = tmp74 + tmp77;
- X[iostride] = tmp71 - (K500000000 * tmp78);
- X[3 * iostride] = tmp71 + tmp78;
- Y[-2 * iostride] = -(K866025403 * (tmp79 - tmp80));
- tmp82 = tmp80 + tmp79;
- X[2 * iostride] = tmp81 - (K500000000 * tmp82);
- X[0] = tmp81 + tmp82;
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 5) {
- fftw_real tmp19;
- fftw_real tmp43;
- fftw_real tmp62;
- fftw_real tmp66;
- fftw_real tmp41;
- fftw_real tmp45;
- fftw_real tmp53;
- fftw_real tmp57;
- fftw_real tmp30;
- fftw_real tmp44;
- fftw_real tmp50;
- fftw_real tmp56;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp13;
- fftw_real tmp61;
- fftw_real tmp18;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- tmp13 = X[0];
- tmp61 = Y[-5 * iostride];
- {
- fftw_real tmp15;
- fftw_real tmp17;
- fftw_real tmp14;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = X[3 * iostride];
- tmp17 = Y[-2 * iostride];
- tmp14 = c_re(W[2]);
- tmp16 = c_im(W[2]);
- tmp18 = (tmp14 * tmp15) - (tmp16 * tmp17);
- tmp60 = (tmp16 * tmp15) + (tmp14 * tmp17);
- }
- tmp19 = tmp13 - tmp18;
- tmp43 = tmp13 + tmp18;
- tmp62 = tmp60 + tmp61;
- tmp66 = tmp61 - tmp60;
- }
- {
- fftw_real tmp35;
- fftw_real tmp51;
- fftw_real tmp40;
- fftw_real tmp52;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = X[4 * iostride];
- tmp34 = Y[-iostride];
- tmp31 = c_re(W[3]);
- tmp33 = c_im(W[3]);
- tmp35 = (tmp31 * tmp32) - (tmp33 * tmp34);
- tmp51 = (tmp33 * tmp32) + (tmp31 * tmp34);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = X[iostride];
- tmp39 = Y[-4 * iostride];
- tmp36 = c_re(W[0]);
- tmp38 = c_im(W[0]);
- tmp40 = (tmp36 * tmp37) - (tmp38 * tmp39);
- tmp52 = (tmp38 * tmp37) + (tmp36 * tmp39);
- }
- tmp41 = tmp35 - tmp40;
- tmp45 = tmp35 + tmp40;
- tmp53 = tmp51 + tmp52;
- tmp57 = tmp51 - tmp52;
- }
- {
- fftw_real tmp24;
- fftw_real tmp48;
- fftw_real tmp29;
- fftw_real tmp49;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp21;
- fftw_real tmp23;
- fftw_real tmp20;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = X[2 * iostride];
- tmp23 = Y[-3 * iostride];
- tmp20 = c_re(W[1]);
- tmp22 = c_im(W[1]);
- tmp24 = (tmp20 * tmp21) - (tmp22 * tmp23);
- tmp48 = (tmp22 * tmp21) + (tmp20 * tmp23);
- }
- {
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp25;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = X[5 * iostride];
- tmp28 = Y[0];
- tmp25 = c_re(W[4]);
- tmp27 = c_im(W[4]);
- tmp29 = (tmp25 * tmp26) - (tmp27 * tmp28);
- tmp49 = (tmp27 * tmp26) + (tmp25 * tmp28);
- }
- tmp30 = tmp24 - tmp29;
- tmp44 = tmp24 + tmp29;
- tmp50 = tmp48 + tmp49;
- tmp56 = tmp48 - tmp49;
- }
- {
- fftw_real tmp58;
- fftw_real tmp42;
- fftw_real tmp55;
- fftw_real tmp68;
- fftw_real tmp65;
- fftw_real tmp67;
- ASSERT_ALIGNED_DOUBLE;
- tmp58 = K866025403 * (tmp56 - tmp57);
- tmp42 = tmp30 + tmp41;
- tmp55 = tmp19 - (K500000000 * tmp42);
- Y[-3 * iostride] = tmp19 + tmp42;
- X[iostride] = tmp55 + tmp58;
- Y[-5 * iostride] = tmp55 - tmp58;
- tmp68 = K866025403 * (tmp41 - tmp30);
- tmp65 = tmp56 + tmp57;
- tmp67 = tmp66 - (K500000000 * tmp65);
- X[3 * iostride] = -(tmp65 + tmp66);
- Y[-iostride] = tmp68 + tmp67;
- X[5 * iostride] = -(tmp67 - tmp68);
- }
- {
- fftw_real tmp54;
- fftw_real tmp46;
- fftw_real tmp47;
- fftw_real tmp63;
- fftw_real tmp59;
- fftw_real tmp64;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = K866025403 * (tmp50 - tmp53);
- tmp46 = tmp44 + tmp45;
- tmp47 = tmp43 - (K500000000 * tmp46);
- X[0] = tmp43 + tmp46;
- Y[-4 * iostride] = tmp47 + tmp54;
- X[2 * iostride] = tmp47 - tmp54;
- tmp63 = K866025403 * (tmp45 - tmp44);
- tmp59 = tmp50 + tmp53;
- tmp64 = tmp62 - (K500000000 * tmp59);
- Y[0] = tmp59 + tmp62;
- Y[-2 * iostride] = tmp64 - tmp63;
- X[4 * iostride] = -(tmp63 + tmp64);
- }
- }
- if (i == m) {
- fftw_real tmp1;
- fftw_real tmp11;
- fftw_real tmp4;
- fftw_real tmp9;
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp5;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp11 = X[3 * iostride];
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp6;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = X[2 * iostride];
- tmp3 = X[4 * iostride];
- tmp4 = tmp2 - tmp3;
- tmp9 = K866025403 * (tmp2 + tmp3);
- tmp6 = X[iostride];
- tmp7 = X[5 * iostride];
- tmp8 = K866025403 * (tmp6 - tmp7);
- tmp10 = tmp6 + tmp7;
- }
- X[iostride] = tmp1 - tmp4;
- tmp5 = tmp1 + (K500000000 * tmp4);
- X[2 * iostride] = tmp5 - tmp8;
- X[0] = tmp5 + tmp8;
- Y[-iostride] = tmp11 - tmp10;
- tmp12 = (K500000000 * tmp10) + tmp11;
- Y[0] = -(tmp9 + tmp12);
- Y[-2 * iostride] = tmp9 - tmp12;
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5};
-fftw_codelet_desc fftw_hc2hc_forward_6_desc =
-{
- "fftw_hc2hc_forward_6",
- (void (*)()) fftw_hc2hc_forward_6,
- 6,
- FFTW_FORWARD,
- FFTW_HC2HC,
- 135,
- 5,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhf_7.c b/src/sndobj/rfftw/fhf_7.c
deleted file mode 100644
index f45d487..0000000
--- a/src/sndobj/rfftw/fhf_7.c
+++ /dev/null
@@ -1,325 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:46 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 7 */
-
-/*
- * This function contains 120 FP additions, 96 FP multiplications,
- * (or, 108 additions, 84 multiplications, 12 fused multiply/add),
- * 25 stack variables, and 56 memory accesses
- */
-static const fftw_real K222520933 = FFTW_KONST(+0.222520933956314404288902564496794759466355569);
-static const fftw_real K900968867 = FFTW_KONST(+0.900968867902419126236102319507445051165919162);
-static const fftw_real K623489801 = FFTW_KONST(+0.623489801858733530525004884004239810632274731);
-static const fftw_real K433883739 = FFTW_KONST(+0.433883739117558120475768332848358754609990728);
-static const fftw_real K974927912 = FFTW_KONST(+0.974927912181823607018131682993931217232785801);
-static const fftw_real K781831482 = FFTW_KONST(+0.781831482468029808708444526674057750232334519);
-
-/*
- * Generator Id's :
- * $Id: fhf_7.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fhf_7.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fhf_7.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- */
-
-void fftw_hc2hc_forward_7(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (7 * iostride);
- {
- fftw_real tmp85;
- fftw_real tmp84;
- fftw_real tmp88;
- fftw_real tmp78;
- fftw_real tmp86;
- fftw_real tmp81;
- fftw_real tmp87;
- fftw_real tmp82;
- fftw_real tmp83;
- ASSERT_ALIGNED_DOUBLE;
- tmp85 = X[0];
- tmp82 = X[iostride];
- tmp83 = X[6 * iostride];
- tmp84 = tmp82 - tmp83;
- tmp88 = tmp82 + tmp83;
- {
- fftw_real tmp76;
- fftw_real tmp77;
- fftw_real tmp79;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp76 = X[2 * iostride];
- tmp77 = X[5 * iostride];
- tmp78 = tmp76 - tmp77;
- tmp86 = tmp76 + tmp77;
- tmp79 = X[3 * iostride];
- tmp80 = X[4 * iostride];
- tmp81 = tmp79 - tmp80;
- tmp87 = tmp79 + tmp80;
- }
- Y[-3 * iostride] = (K781831482 * tmp78) - (K974927912 * tmp81) - (K433883739 * tmp84);
- Y[-iostride] = -((K781831482 * tmp84) + (K974927912 * tmp78) + (K433883739 * tmp81));
- Y[-2 * iostride] = (K433883739 * tmp78) + (K781831482 * tmp81) - (K974927912 * tmp84);
- X[2 * iostride] = tmp85 + (K623489801 * tmp87) - (K900968867 * tmp86) - (K222520933 * tmp88);
- X[iostride] = tmp85 + (K623489801 * tmp88) - (K900968867 * tmp87) - (K222520933 * tmp86);
- X[3 * iostride] = tmp85 + (K623489801 * tmp86) - (K222520933 * tmp87) - (K900968867 * tmp88);
- X[0] = tmp85 + tmp88 + tmp86 + tmp87;
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 6) {
- fftw_real tmp14;
- fftw_real tmp66;
- fftw_real tmp25;
- fftw_real tmp68;
- fftw_real tmp51;
- fftw_real tmp63;
- fftw_real tmp36;
- fftw_real tmp69;
- fftw_real tmp57;
- fftw_real tmp64;
- fftw_real tmp47;
- fftw_real tmp70;
- fftw_real tmp54;
- fftw_real tmp65;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = X[0];
- tmp66 = Y[-6 * iostride];
- {
- fftw_real tmp19;
- fftw_real tmp49;
- fftw_real tmp24;
- fftw_real tmp50;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp18;
- fftw_real tmp15;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = X[iostride];
- tmp18 = Y[-5 * iostride];
- tmp15 = c_re(W[0]);
- tmp17 = c_im(W[0]);
- tmp19 = (tmp15 * tmp16) - (tmp17 * tmp18);
- tmp49 = (tmp17 * tmp16) + (tmp15 * tmp18);
- }
- {
- fftw_real tmp21;
- fftw_real tmp23;
- fftw_real tmp20;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = X[6 * iostride];
- tmp23 = Y[0];
- tmp20 = c_re(W[5]);
- tmp22 = c_im(W[5]);
- tmp24 = (tmp20 * tmp21) - (tmp22 * tmp23);
- tmp50 = (tmp22 * tmp21) + (tmp20 * tmp23);
- }
- tmp25 = tmp19 + tmp24;
- tmp68 = tmp24 - tmp19;
- tmp51 = tmp49 - tmp50;
- tmp63 = tmp49 + tmp50;
- }
- {
- fftw_real tmp30;
- fftw_real tmp55;
- fftw_real tmp35;
- fftw_real tmp56;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp27;
- fftw_real tmp29;
- fftw_real tmp26;
- fftw_real tmp28;
- ASSERT_ALIGNED_DOUBLE;
- tmp27 = X[2 * iostride];
- tmp29 = Y[-4 * iostride];
- tmp26 = c_re(W[1]);
- tmp28 = c_im(W[1]);
- tmp30 = (tmp26 * tmp27) - (tmp28 * tmp29);
- tmp55 = (tmp28 * tmp27) + (tmp26 * tmp29);
- }
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = X[5 * iostride];
- tmp34 = Y[-iostride];
- tmp31 = c_re(W[4]);
- tmp33 = c_im(W[4]);
- tmp35 = (tmp31 * tmp32) - (tmp33 * tmp34);
- tmp56 = (tmp33 * tmp32) + (tmp31 * tmp34);
- }
- tmp36 = tmp30 + tmp35;
- tmp69 = tmp35 - tmp30;
- tmp57 = tmp55 - tmp56;
- tmp64 = tmp55 + tmp56;
- }
- {
- fftw_real tmp41;
- fftw_real tmp52;
- fftw_real tmp46;
- fftw_real tmp53;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp38;
- fftw_real tmp40;
- fftw_real tmp37;
- fftw_real tmp39;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = X[3 * iostride];
- tmp40 = Y[-3 * iostride];
- tmp37 = c_re(W[2]);
- tmp39 = c_im(W[2]);
- tmp41 = (tmp37 * tmp38) - (tmp39 * tmp40);
- tmp52 = (tmp39 * tmp38) + (tmp37 * tmp40);
- }
- {
- fftw_real tmp43;
- fftw_real tmp45;
- fftw_real tmp42;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = X[4 * iostride];
- tmp45 = Y[-2 * iostride];
- tmp42 = c_re(W[3]);
- tmp44 = c_im(W[3]);
- tmp46 = (tmp42 * tmp43) - (tmp44 * tmp45);
- tmp53 = (tmp44 * tmp43) + (tmp42 * tmp45);
- }
- tmp47 = tmp41 + tmp46;
- tmp70 = tmp46 - tmp41;
- tmp54 = tmp52 - tmp53;
- tmp65 = tmp52 + tmp53;
- }
- {
- fftw_real tmp60;
- fftw_real tmp59;
- fftw_real tmp73;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- X[0] = tmp14 + tmp25 + tmp36 + tmp47;
- tmp60 = (K781831482 * tmp51) + (K974927912 * tmp57) + (K433883739 * tmp54);
- tmp59 = tmp14 + (K623489801 * tmp25) - (K900968867 * tmp47) - (K222520933 * tmp36);
- Y[-6 * iostride] = tmp59 - tmp60;
- X[iostride] = tmp59 + tmp60;
- {
- fftw_real tmp62;
- fftw_real tmp61;
- fftw_real tmp58;
- fftw_real tmp48;
- ASSERT_ALIGNED_DOUBLE;
- tmp62 = (K433883739 * tmp51) + (K974927912 * tmp54) - (K781831482 * tmp57);
- tmp61 = tmp14 + (K623489801 * tmp36) - (K222520933 * tmp47) - (K900968867 * tmp25);
- Y[-4 * iostride] = tmp61 - tmp62;
- X[3 * iostride] = tmp61 + tmp62;
- tmp58 = (K974927912 * tmp51) - (K781831482 * tmp54) - (K433883739 * tmp57);
- tmp48 = tmp14 + (K623489801 * tmp47) - (K900968867 * tmp36) - (K222520933 * tmp25);
- Y[-5 * iostride] = tmp48 - tmp58;
- X[2 * iostride] = tmp48 + tmp58;
- }
- Y[0] = tmp63 + tmp64 + tmp65 + tmp66;
- tmp73 = (K974927912 * tmp68) - (K781831482 * tmp70) - (K433883739 * tmp69);
- tmp72 = (K623489801 * tmp65) + tmp66 - (K900968867 * tmp64) - (K222520933 * tmp63);
- X[5 * iostride] = -(tmp72 - tmp73);
- Y[-2 * iostride] = tmp73 + tmp72;
- {
- fftw_real tmp75;
- fftw_real tmp74;
- fftw_real tmp71;
- fftw_real tmp67;
- ASSERT_ALIGNED_DOUBLE;
- tmp75 = (K433883739 * tmp68) + (K974927912 * tmp70) - (K781831482 * tmp69);
- tmp74 = (K623489801 * tmp64) + tmp66 - (K222520933 * tmp65) - (K900968867 * tmp63);
- X[4 * iostride] = -(tmp74 - tmp75);
- Y[-3 * iostride] = tmp75 + tmp74;
- tmp71 = (K781831482 * tmp68) + (K974927912 * tmp69) + (K433883739 * tmp70);
- tmp67 = (K623489801 * tmp63) + tmp66 - (K900968867 * tmp65) - (K222520933 * tmp64);
- X[6 * iostride] = -(tmp67 - tmp71);
- Y[-iostride] = tmp71 + tmp67;
- }
- }
- }
- if (i == m) {
- fftw_real tmp1;
- fftw_real tmp10;
- fftw_real tmp13;
- fftw_real tmp4;
- fftw_real tmp11;
- fftw_real tmp7;
- fftw_real tmp12;
- fftw_real tmp8;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp8 = X[iostride];
- tmp9 = X[6 * iostride];
- tmp10 = tmp8 - tmp9;
- tmp13 = tmp8 + tmp9;
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp6;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = X[2 * iostride];
- tmp3 = X[5 * iostride];
- tmp4 = tmp2 - tmp3;
- tmp11 = tmp2 + tmp3;
- tmp5 = X[3 * iostride];
- tmp6 = X[4 * iostride];
- tmp7 = tmp5 - tmp6;
- tmp12 = tmp5 + tmp6;
- }
- Y[0] = -((K781831482 * tmp11) + (K974927912 * tmp12) + (K433883739 * tmp13));
- Y[-iostride] = (K781831482 * tmp12) - (K974927912 * tmp13) - (K433883739 * tmp11);
- Y[-2 * iostride] = (K974927912 * tmp11) - (K781831482 * tmp13) - (K433883739 * tmp12);
- X[iostride] = tmp1 + (K222520933 * tmp10) - (K623489801 * tmp7) - (K900968867 * tmp4);
- X[2 * iostride] = tmp1 + (K900968867 * tmp7) - (K623489801 * tmp10) - (K222520933 * tmp4);
- X[3 * iostride] = tmp1 + tmp4 - (tmp7 + tmp10);
- X[0] = tmp1 + (K623489801 * tmp4) + (K222520933 * tmp7) + (K900968867 * tmp10);
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6};
-fftw_codelet_desc fftw_hc2hc_forward_7_desc =
-{
- "fftw_hc2hc_forward_7",
- (void (*)()) fftw_hc2hc_forward_7,
- 7,
- FFTW_FORWARD,
- FFTW_HC2HC,
- 157,
- 6,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhf_8.c b/src/sndobj/rfftw/fhf_8.c
deleted file mode 100644
index a9b21a0..0000000
--- a/src/sndobj/rfftw/fhf_8.c
+++ /dev/null
@@ -1,415 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:46 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 8 */
-
-/*
- * This function contains 108 FP additions, 44 FP multiplications,
- * (or, 90 additions, 26 multiplications, 18 fused multiply/add),
- * 29 stack variables, and 64 memory accesses
- */
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: fhf_8.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fhf_8.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fhf_8.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- */
-
-void fftw_hc2hc_forward_8(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (8 * iostride);
- {
- fftw_real tmp105;
- fftw_real tmp109;
- fftw_real tmp115;
- fftw_real tmp121;
- fftw_real tmp108;
- fftw_real tmp118;
- fftw_real tmp112;
- fftw_real tmp120;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp103;
- fftw_real tmp104;
- fftw_real tmp113;
- fftw_real tmp114;
- ASSERT_ALIGNED_DOUBLE;
- tmp103 = X[0];
- tmp104 = X[4 * iostride];
- tmp105 = tmp103 + tmp104;
- tmp109 = tmp103 - tmp104;
- tmp113 = X[7 * iostride];
- tmp114 = X[3 * iostride];
- tmp115 = tmp113 - tmp114;
- tmp121 = tmp113 + tmp114;
- }
- {
- fftw_real tmp106;
- fftw_real tmp107;
- fftw_real tmp110;
- fftw_real tmp111;
- ASSERT_ALIGNED_DOUBLE;
- tmp106 = X[2 * iostride];
- tmp107 = X[6 * iostride];
- tmp108 = tmp106 + tmp107;
- tmp118 = tmp106 - tmp107;
- tmp110 = X[iostride];
- tmp111 = X[5 * iostride];
- tmp112 = tmp110 - tmp111;
- tmp120 = tmp110 + tmp111;
- }
- {
- fftw_real tmp119;
- fftw_real tmp122;
- fftw_real tmp116;
- fftw_real tmp117;
- ASSERT_ALIGNED_DOUBLE;
- X[2 * iostride] = tmp105 - tmp108;
- tmp119 = tmp105 + tmp108;
- tmp122 = tmp120 + tmp121;
- X[4 * iostride] = tmp119 - tmp122;
- X[0] = tmp119 + tmp122;
- Y[-2 * iostride] = tmp121 - tmp120;
- tmp116 = K707106781 * (tmp112 + tmp115);
- X[3 * iostride] = tmp109 - tmp116;
- X[iostride] = tmp109 + tmp116;
- tmp117 = K707106781 * (tmp115 - tmp112);
- Y[-iostride] = tmp117 - tmp118;
- Y[-3 * iostride] = tmp118 + tmp117;
- }
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 7) {
- fftw_real tmp29;
- fftw_real tmp65;
- fftw_real tmp92;
- fftw_real tmp97;
- fftw_real tmp63;
- fftw_real tmp75;
- fftw_real tmp78;
- fftw_real tmp87;
- fftw_real tmp40;
- fftw_real tmp98;
- fftw_real tmp68;
- fftw_real tmp89;
- fftw_real tmp52;
- fftw_real tmp70;
- fftw_real tmp73;
- fftw_real tmp86;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp23;
- fftw_real tmp91;
- fftw_real tmp28;
- fftw_real tmp90;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = X[0];
- tmp91 = Y[-7 * iostride];
- {
- fftw_real tmp25;
- fftw_real tmp27;
- fftw_real tmp24;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = X[4 * iostride];
- tmp27 = Y[-3 * iostride];
- tmp24 = c_re(W[3]);
- tmp26 = c_im(W[3]);
- tmp28 = (tmp24 * tmp25) - (tmp26 * tmp27);
- tmp90 = (tmp26 * tmp25) + (tmp24 * tmp27);
- }
- tmp29 = tmp23 + tmp28;
- tmp65 = tmp23 - tmp28;
- tmp92 = tmp90 + tmp91;
- tmp97 = tmp91 - tmp90;
- }
- {
- fftw_real tmp57;
- fftw_real tmp76;
- fftw_real tmp62;
- fftw_real tmp77;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp54;
- fftw_real tmp56;
- fftw_real tmp53;
- fftw_real tmp55;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = X[7 * iostride];
- tmp56 = Y[0];
- tmp53 = c_re(W[6]);
- tmp55 = c_im(W[6]);
- tmp57 = (tmp53 * tmp54) - (tmp55 * tmp56);
- tmp76 = (tmp55 * tmp54) + (tmp53 * tmp56);
- }
- {
- fftw_real tmp59;
- fftw_real tmp61;
- fftw_real tmp58;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- tmp59 = X[3 * iostride];
- tmp61 = Y[-4 * iostride];
- tmp58 = c_re(W[2]);
- tmp60 = c_im(W[2]);
- tmp62 = (tmp58 * tmp59) - (tmp60 * tmp61);
- tmp77 = (tmp60 * tmp59) + (tmp58 * tmp61);
- }
- tmp63 = tmp57 + tmp62;
- tmp75 = tmp57 - tmp62;
- tmp78 = tmp76 - tmp77;
- tmp87 = tmp76 + tmp77;
- }
- {
- fftw_real tmp34;
- fftw_real tmp66;
- fftw_real tmp39;
- fftw_real tmp67;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp31;
- fftw_real tmp33;
- fftw_real tmp30;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = X[2 * iostride];
- tmp33 = Y[-5 * iostride];
- tmp30 = c_re(W[1]);
- tmp32 = c_im(W[1]);
- tmp34 = (tmp30 * tmp31) - (tmp32 * tmp33);
- tmp66 = (tmp32 * tmp31) + (tmp30 * tmp33);
- }
- {
- fftw_real tmp36;
- fftw_real tmp38;
- fftw_real tmp35;
- fftw_real tmp37;
- ASSERT_ALIGNED_DOUBLE;
- tmp36 = X[6 * iostride];
- tmp38 = Y[-iostride];
- tmp35 = c_re(W[5]);
- tmp37 = c_im(W[5]);
- tmp39 = (tmp35 * tmp36) - (tmp37 * tmp38);
- tmp67 = (tmp37 * tmp36) + (tmp35 * tmp38);
- }
- tmp40 = tmp34 + tmp39;
- tmp98 = tmp34 - tmp39;
- tmp68 = tmp66 - tmp67;
- tmp89 = tmp66 + tmp67;
- }
- {
- fftw_real tmp46;
- fftw_real tmp71;
- fftw_real tmp51;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp43;
- fftw_real tmp45;
- fftw_real tmp42;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = X[iostride];
- tmp45 = Y[-6 * iostride];
- tmp42 = c_re(W[0]);
- tmp44 = c_im(W[0]);
- tmp46 = (tmp42 * tmp43) - (tmp44 * tmp45);
- tmp71 = (tmp44 * tmp43) + (tmp42 * tmp45);
- }
- {
- fftw_real tmp48;
- fftw_real tmp50;
- fftw_real tmp47;
- fftw_real tmp49;
- ASSERT_ALIGNED_DOUBLE;
- tmp48 = X[5 * iostride];
- tmp50 = Y[-2 * iostride];
- tmp47 = c_re(W[4]);
- tmp49 = c_im(W[4]);
- tmp51 = (tmp47 * tmp48) - (tmp49 * tmp50);
- tmp72 = (tmp49 * tmp48) + (tmp47 * tmp50);
- }
- tmp52 = tmp46 + tmp51;
- tmp70 = tmp46 - tmp51;
- tmp73 = tmp71 - tmp72;
- tmp86 = tmp71 + tmp72;
- }
- {
- fftw_real tmp41;
- fftw_real tmp64;
- fftw_real tmp85;
- fftw_real tmp88;
- ASSERT_ALIGNED_DOUBLE;
- tmp41 = tmp29 + tmp40;
- tmp64 = tmp52 + tmp63;
- Y[-4 * iostride] = tmp41 - tmp64;
- X[0] = tmp41 + tmp64;
- {
- fftw_real tmp95;
- fftw_real tmp96;
- fftw_real tmp93;
- fftw_real tmp94;
- ASSERT_ALIGNED_DOUBLE;
- tmp95 = tmp92 - tmp89;
- tmp96 = tmp63 - tmp52;
- X[6 * iostride] = -(tmp95 - tmp96);
- Y[-2 * iostride] = tmp96 + tmp95;
- tmp93 = tmp89 + tmp92;
- tmp94 = tmp86 + tmp87;
- X[4 * iostride] = -(tmp93 - tmp94);
- Y[0] = tmp94 + tmp93;
- }
- tmp85 = tmp29 - tmp40;
- tmp88 = tmp86 - tmp87;
- Y[-6 * iostride] = tmp85 - tmp88;
- X[2 * iostride] = tmp85 + tmp88;
- {
- fftw_real tmp81;
- fftw_real tmp99;
- fftw_real tmp84;
- fftw_real tmp100;
- fftw_real tmp82;
- fftw_real tmp83;
- ASSERT_ALIGNED_DOUBLE;
- tmp81 = tmp65 - tmp68;
- tmp99 = tmp97 - tmp98;
- tmp82 = tmp73 - tmp70;
- tmp83 = tmp75 + tmp78;
- tmp84 = K707106781 * (tmp82 - tmp83);
- tmp100 = K707106781 * (tmp82 + tmp83);
- Y[-7 * iostride] = tmp81 - tmp84;
- X[3 * iostride] = tmp81 + tmp84;
- X[5 * iostride] = -(tmp99 - tmp100);
- Y[-iostride] = tmp100 + tmp99;
- }
- {
- fftw_real tmp69;
- fftw_real tmp101;
- fftw_real tmp80;
- fftw_real tmp102;
- fftw_real tmp74;
- fftw_real tmp79;
- ASSERT_ALIGNED_DOUBLE;
- tmp69 = tmp65 + tmp68;
- tmp101 = tmp98 + tmp97;
- tmp74 = tmp70 + tmp73;
- tmp79 = tmp75 - tmp78;
- tmp80 = K707106781 * (tmp74 + tmp79);
- tmp102 = K707106781 * (tmp79 - tmp74);
- Y[-5 * iostride] = tmp69 - tmp80;
- X[iostride] = tmp69 + tmp80;
- X[7 * iostride] = -(tmp101 - tmp102);
- Y[-3 * iostride] = tmp102 + tmp101;
- }
- }
- }
- if (i == m) {
- fftw_real tmp1;
- fftw_real tmp19;
- fftw_real tmp4;
- fftw_real tmp18;
- fftw_real tmp8;
- fftw_real tmp14;
- fftw_real tmp11;
- fftw_real tmp15;
- fftw_real tmp2;
- fftw_real tmp3;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp19 = X[4 * iostride];
- tmp2 = X[2 * iostride];
- tmp3 = X[6 * iostride];
- tmp4 = K707106781 * (tmp2 - tmp3);
- tmp18 = K707106781 * (tmp2 + tmp3);
- {
- fftw_real tmp6;
- fftw_real tmp7;
- fftw_real tmp9;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = X[iostride];
- tmp7 = X[5 * iostride];
- tmp8 = (K923879532 * tmp6) - (K382683432 * tmp7);
- tmp14 = (K382683432 * tmp6) + (K923879532 * tmp7);
- tmp9 = X[3 * iostride];
- tmp10 = X[7 * iostride];
- tmp11 = (K382683432 * tmp9) - (K923879532 * tmp10);
- tmp15 = (K923879532 * tmp9) + (K382683432 * tmp10);
- }
- {
- fftw_real tmp5;
- fftw_real tmp12;
- fftw_real tmp21;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp5 = tmp1 + tmp4;
- tmp12 = tmp8 + tmp11;
- X[3 * iostride] = tmp5 - tmp12;
- X[0] = tmp5 + tmp12;
- tmp21 = tmp11 - tmp8;
- tmp22 = tmp19 - tmp18;
- Y[-2 * iostride] = tmp21 - tmp22;
- Y[-iostride] = tmp21 + tmp22;
- }
- {
- fftw_real tmp17;
- fftw_real tmp20;
- fftw_real tmp13;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- tmp17 = tmp14 + tmp15;
- tmp20 = tmp18 + tmp19;
- Y[0] = -(tmp17 + tmp20);
- Y[-3 * iostride] = tmp20 - tmp17;
- tmp13 = tmp1 - tmp4;
- tmp16 = tmp14 - tmp15;
- X[2 * iostride] = tmp13 - tmp16;
- X[iostride] = tmp13 + tmp16;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7};
-fftw_codelet_desc fftw_hc2hc_forward_8_desc =
-{
- "fftw_hc2hc_forward_8",
- (void (*)()) fftw_hc2hc_forward_8,
- 8,
- FFTW_FORWARD,
- FFTW_HC2HC,
- 179,
- 7,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fhf_9.c b/src/sndobj/rfftw/fhf_9.c
deleted file mode 100644
index d4d2315..0000000
--- a/src/sndobj/rfftw/fhf_9.c
+++ /dev/null
@@ -1,525 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:48 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 9 */
-
-/*
- * This function contains 188 FP additions, 136 FP multiplications,
- * (or, 139 additions, 87 multiplications, 49 fused multiply/add),
- * 35 stack variables, and 72 memory accesses
- */
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K433012701 = FFTW_KONST(+0.433012701892219323381861585376468091735701313);
-static const fftw_real K1_532088886 = FFTW_KONST(+1.532088886237956070404785301110833347871664914);
-static const fftw_real K1_879385241 = FFTW_KONST(+1.879385241571816768108218554649462939872416269);
-static const fftw_real K347296355 = FFTW_KONST(+0.347296355333860697703433253538629592000751354);
-static const fftw_real K1_285575219 = FFTW_KONST(+1.285575219373078652645286819814526865815119768);
-static const fftw_real K684040286 = FFTW_KONST(+0.684040286651337466088199229364519161526166735);
-static const fftw_real K1_969615506 = FFTW_KONST(+1.969615506024416118733486049179046027341286503);
-static const fftw_real K342020143 = FFTW_KONST(+0.342020143325668733044099614682259580763083368);
-static const fftw_real K813797681 = FFTW_KONST(+0.813797681349373692844693217248393223289101568);
-static const fftw_real K939692620 = FFTW_KONST(+0.939692620785908384054109277324731469936208134);
-static const fftw_real K296198132 = FFTW_KONST(+0.296198132726023843175338011893050938967728390);
-static const fftw_real K852868531 = FFTW_KONST(+0.852868531952443209628250963940074071936020296);
-static const fftw_real K173648177 = FFTW_KONST(+0.173648177666930348851716626769314796000375677);
-static const fftw_real K556670399 = FFTW_KONST(+0.556670399226419366452912952047023132968291906);
-static const fftw_real K766044443 = FFTW_KONST(+0.766044443118978035202392650555416673935832457);
-static const fftw_real K984807753 = FFTW_KONST(+0.984807753012208059366743024589523013670643252);
-static const fftw_real K150383733 = FFTW_KONST(+0.150383733180435296639271897612501926072238258);
-static const fftw_real K642787609 = FFTW_KONST(+0.642787609686539326322643409907263432907559884);
-static const fftw_real K663413948 = FFTW_KONST(+0.663413948168938396205421319635891297216863310);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fhf_9.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: fhf_9.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: fhf_9.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- */
-
-void fftw_hc2hc_forward_9(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_real *X;
- fftw_real *Y;
- X = A;
- Y = A + (9 * iostride);
- {
- fftw_real tmp136;
- fftw_real tmp150;
- fftw_real tmp155;
- fftw_real tmp154;
- fftw_real tmp139;
- fftw_real tmp162;
- fftw_real tmp145;
- fftw_real tmp153;
- fftw_real tmp156;
- fftw_real tmp137;
- fftw_real tmp138;
- fftw_real tmp140;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- tmp136 = X[0];
- {
- fftw_real tmp146;
- fftw_real tmp147;
- fftw_real tmp148;
- fftw_real tmp149;
- ASSERT_ALIGNED_DOUBLE;
- tmp146 = X[2 * iostride];
- tmp147 = X[5 * iostride];
- tmp148 = X[8 * iostride];
- tmp149 = tmp147 + tmp148;
- tmp150 = tmp146 + tmp149;
- tmp155 = tmp146 - (K500000000 * tmp149);
- tmp154 = tmp148 - tmp147;
- }
- tmp137 = X[3 * iostride];
- tmp138 = X[6 * iostride];
- tmp139 = tmp137 + tmp138;
- tmp162 = tmp138 - tmp137;
- {
- fftw_real tmp141;
- fftw_real tmp142;
- fftw_real tmp143;
- fftw_real tmp144;
- ASSERT_ALIGNED_DOUBLE;
- tmp141 = X[iostride];
- tmp142 = X[4 * iostride];
- tmp143 = X[7 * iostride];
- tmp144 = tmp142 + tmp143;
- tmp145 = tmp141 + tmp144;
- tmp153 = tmp141 - (K500000000 * tmp144);
- tmp156 = tmp143 - tmp142;
- }
- Y[-3 * iostride] = K866025403 * (tmp150 - tmp145);
- tmp140 = tmp136 + tmp139;
- tmp151 = tmp145 + tmp150;
- X[3 * iostride] = tmp140 - (K500000000 * tmp151);
- X[0] = tmp140 + tmp151;
- {
- fftw_real tmp164;
- fftw_real tmp160;
- fftw_real tmp161;
- fftw_real tmp163;
- fftw_real tmp152;
- fftw_real tmp157;
- fftw_real tmp158;
- fftw_real tmp159;
- ASSERT_ALIGNED_DOUBLE;
- tmp164 = K866025403 * tmp162;
- tmp160 = (K663413948 * tmp156) - (K642787609 * tmp153);
- tmp161 = (K150383733 * tmp154) - (K984807753 * tmp155);
- tmp163 = tmp160 + tmp161;
- tmp152 = tmp136 - (K500000000 * tmp139);
- tmp157 = (K766044443 * tmp153) + (K556670399 * tmp156);
- tmp158 = (K173648177 * tmp155) + (K852868531 * tmp154);
- tmp159 = tmp157 + tmp158;
- X[iostride] = tmp152 + tmp159;
- X[4 * iostride] = tmp152 + (K866025403 * (tmp160 - tmp161)) - (K500000000 * tmp159);
- X[2 * iostride] = tmp152 + (K173648177 * tmp153) - (K296198132 * tmp154) - (K939692620 * tmp155) - (K852868531 * tmp156);
- Y[-iostride] = tmp164 + tmp163;
- Y[-4 * iostride] = (K866025403 * (tmp162 + (tmp158 - tmp157))) - (K500000000 * tmp163);
- Y[-2 * iostride] = (K813797681 * tmp154) - (K342020143 * tmp155) - (K150383733 * tmp156) - (K984807753 * tmp153) - tmp164;
- }
- }
- X = X + dist;
- Y = Y - dist;
- for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 8) {
- fftw_real tmp24;
- fftw_real tmp122;
- fftw_real tmp75;
- fftw_real tmp121;
- fftw_real tmp128;
- fftw_real tmp127;
- fftw_real tmp35;
- fftw_real tmp72;
- fftw_real tmp70;
- fftw_real tmp92;
- fftw_real tmp109;
- fftw_real tmp118;
- fftw_real tmp97;
- fftw_real tmp108;
- fftw_real tmp53;
- fftw_real tmp81;
- fftw_real tmp105;
- fftw_real tmp117;
- fftw_real tmp86;
- fftw_real tmp106;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp29;
- fftw_real tmp73;
- fftw_real tmp34;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp24 = X[0];
- tmp122 = Y[-8 * iostride];
- {
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp25;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = X[3 * iostride];
- tmp28 = Y[-5 * iostride];
- tmp25 = c_re(W[2]);
- tmp27 = c_im(W[2]);
- tmp29 = (tmp25 * tmp26) - (tmp27 * tmp28);
- tmp73 = (tmp27 * tmp26) + (tmp25 * tmp28);
- }
- {
- fftw_real tmp31;
- fftw_real tmp33;
- fftw_real tmp30;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = X[6 * iostride];
- tmp33 = Y[-2 * iostride];
- tmp30 = c_re(W[5]);
- tmp32 = c_im(W[5]);
- tmp34 = (tmp30 * tmp31) - (tmp32 * tmp33);
- tmp74 = (tmp32 * tmp31) + (tmp30 * tmp33);
- }
- tmp75 = K866025403 * (tmp73 - tmp74);
- tmp121 = tmp73 + tmp74;
- tmp128 = tmp122 - (K500000000 * tmp121);
- tmp127 = K866025403 * (tmp34 - tmp29);
- tmp35 = tmp29 + tmp34;
- tmp72 = tmp24 - (K500000000 * tmp35);
- }
- {
- fftw_real tmp58;
- fftw_real tmp94;
- fftw_real tmp63;
- fftw_real tmp89;
- fftw_real tmp68;
- fftw_real tmp90;
- fftw_real tmp69;
- fftw_real tmp95;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp55;
- fftw_real tmp57;
- fftw_real tmp54;
- fftw_real tmp56;
- ASSERT_ALIGNED_DOUBLE;
- tmp55 = X[2 * iostride];
- tmp57 = Y[-6 * iostride];
- tmp54 = c_re(W[1]);
- tmp56 = c_im(W[1]);
- tmp58 = (tmp54 * tmp55) - (tmp56 * tmp57);
- tmp94 = (tmp56 * tmp55) + (tmp54 * tmp57);
- }
- {
- fftw_real tmp60;
- fftw_real tmp62;
- fftw_real tmp59;
- fftw_real tmp61;
- ASSERT_ALIGNED_DOUBLE;
- tmp60 = X[5 * iostride];
- tmp62 = Y[-3 * iostride];
- tmp59 = c_re(W[4]);
- tmp61 = c_im(W[4]);
- tmp63 = (tmp59 * tmp60) - (tmp61 * tmp62);
- tmp89 = (tmp61 * tmp60) + (tmp59 * tmp62);
- }
- {
- fftw_real tmp65;
- fftw_real tmp67;
- fftw_real tmp64;
- fftw_real tmp66;
- ASSERT_ALIGNED_DOUBLE;
- tmp65 = X[8 * iostride];
- tmp67 = Y[0];
- tmp64 = c_re(W[7]);
- tmp66 = c_im(W[7]);
- tmp68 = (tmp64 * tmp65) - (tmp66 * tmp67);
- tmp90 = (tmp66 * tmp65) + (tmp64 * tmp67);
- }
- tmp69 = tmp63 + tmp68;
- tmp95 = tmp89 + tmp90;
- {
- fftw_real tmp88;
- fftw_real tmp91;
- fftw_real tmp93;
- fftw_real tmp96;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = tmp58 + tmp69;
- tmp88 = tmp58 - (K500000000 * tmp69);
- tmp91 = K866025403 * (tmp89 - tmp90);
- tmp92 = tmp88 + tmp91;
- tmp109 = tmp88 - tmp91;
- tmp118 = tmp94 + tmp95;
- tmp93 = K866025403 * (tmp68 - tmp63);
- tmp96 = tmp94 - (K500000000 * tmp95);
- tmp97 = tmp93 + tmp96;
- tmp108 = tmp96 - tmp93;
- }
- }
- {
- fftw_real tmp41;
- fftw_real tmp83;
- fftw_real tmp46;
- fftw_real tmp78;
- fftw_real tmp51;
- fftw_real tmp79;
- fftw_real tmp52;
- fftw_real tmp84;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp38;
- fftw_real tmp40;
- fftw_real tmp37;
- fftw_real tmp39;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = X[iostride];
- tmp40 = Y[-7 * iostride];
- tmp37 = c_re(W[0]);
- tmp39 = c_im(W[0]);
- tmp41 = (tmp37 * tmp38) - (tmp39 * tmp40);
- tmp83 = (tmp39 * tmp38) + (tmp37 * tmp40);
- }
- {
- fftw_real tmp43;
- fftw_real tmp45;
- fftw_real tmp42;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = X[4 * iostride];
- tmp45 = Y[-4 * iostride];
- tmp42 = c_re(W[3]);
- tmp44 = c_im(W[3]);
- tmp46 = (tmp42 * tmp43) - (tmp44 * tmp45);
- tmp78 = (tmp44 * tmp43) + (tmp42 * tmp45);
- }
- {
- fftw_real tmp48;
- fftw_real tmp50;
- fftw_real tmp47;
- fftw_real tmp49;
- ASSERT_ALIGNED_DOUBLE;
- tmp48 = X[7 * iostride];
- tmp50 = Y[-iostride];
- tmp47 = c_re(W[6]);
- tmp49 = c_im(W[6]);
- tmp51 = (tmp47 * tmp48) - (tmp49 * tmp50);
- tmp79 = (tmp49 * tmp48) + (tmp47 * tmp50);
- }
- tmp52 = tmp46 + tmp51;
- tmp84 = tmp78 + tmp79;
- {
- fftw_real tmp77;
- fftw_real tmp80;
- fftw_real tmp82;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- tmp53 = tmp41 + tmp52;
- tmp77 = tmp41 - (K500000000 * tmp52);
- tmp80 = K866025403 * (tmp78 - tmp79);
- tmp81 = tmp77 + tmp80;
- tmp105 = tmp77 - tmp80;
- tmp117 = tmp83 + tmp84;
- tmp82 = K866025403 * (tmp51 - tmp46);
- tmp85 = tmp83 - (K500000000 * tmp84);
- tmp86 = tmp82 + tmp85;
- tmp106 = tmp85 - tmp82;
- }
- }
- {
- fftw_real tmp119;
- fftw_real tmp36;
- fftw_real tmp71;
- fftw_real tmp116;
- ASSERT_ALIGNED_DOUBLE;
- tmp119 = K866025403 * (tmp117 - tmp118);
- tmp36 = tmp24 + tmp35;
- tmp71 = tmp53 + tmp70;
- tmp116 = tmp36 - (K500000000 * tmp71);
- X[0] = tmp36 + tmp71;
- X[3 * iostride] = tmp116 + tmp119;
- Y[-6 * iostride] = tmp116 - tmp119;
- }
- {
- fftw_real tmp125;
- fftw_real tmp120;
- fftw_real tmp123;
- fftw_real tmp124;
- ASSERT_ALIGNED_DOUBLE;
- tmp125 = K866025403 * (tmp70 - tmp53);
- tmp120 = tmp117 + tmp118;
- tmp123 = tmp121 + tmp122;
- tmp124 = tmp123 - (K500000000 * tmp120);
- Y[0] = tmp120 + tmp123;
- Y[-3 * iostride] = tmp125 + tmp124;
- X[6 * iostride] = -(tmp124 - tmp125);
- }
- {
- fftw_real tmp76;
- fftw_real tmp129;
- fftw_real tmp99;
- fftw_real tmp131;
- fftw_real tmp103;
- fftw_real tmp126;
- fftw_real tmp100;
- fftw_real tmp130;
- ASSERT_ALIGNED_DOUBLE;
- tmp76 = tmp72 + tmp75;
- tmp129 = tmp127 + tmp128;
- {
- fftw_real tmp87;
- fftw_real tmp98;
- fftw_real tmp101;
- fftw_real tmp102;
- ASSERT_ALIGNED_DOUBLE;
- tmp87 = (K766044443 * tmp81) + (K642787609 * tmp86);
- tmp98 = (K173648177 * tmp92) + (K984807753 * tmp97);
- tmp99 = tmp87 + tmp98;
- tmp131 = K866025403 * (tmp98 - tmp87);
- tmp101 = (K766044443 * tmp86) - (K642787609 * tmp81);
- tmp102 = (K173648177 * tmp97) - (K984807753 * tmp92);
- tmp103 = K866025403 * (tmp101 - tmp102);
- tmp126 = tmp101 + tmp102;
- }
- X[iostride] = tmp76 + tmp99;
- tmp100 = tmp76 - (K500000000 * tmp99);
- Y[-7 * iostride] = tmp100 - tmp103;
- X[4 * iostride] = tmp100 + tmp103;
- Y[-iostride] = tmp126 + tmp129;
- tmp130 = tmp129 - (K500000000 * tmp126);
- X[7 * iostride] = -(tmp130 - tmp131);
- Y[-4 * iostride] = tmp131 + tmp130;
- }
- {
- fftw_real tmp104;
- fftw_real tmp133;
- fftw_real tmp111;
- fftw_real tmp132;
- fftw_real tmp115;
- fftw_real tmp134;
- fftw_real tmp112;
- fftw_real tmp135;
- ASSERT_ALIGNED_DOUBLE;
- tmp104 = tmp72 - tmp75;
- tmp133 = tmp128 - tmp127;
- {
- fftw_real tmp107;
- fftw_real tmp110;
- fftw_real tmp113;
- fftw_real tmp114;
- ASSERT_ALIGNED_DOUBLE;
- tmp107 = (K173648177 * tmp105) + (K984807753 * tmp106);
- tmp110 = (K342020143 * tmp108) - (K939692620 * tmp109);
- tmp111 = tmp107 + tmp110;
- tmp132 = K866025403 * (tmp110 - tmp107);
- tmp113 = (K173648177 * tmp106) - (K984807753 * tmp105);
- tmp114 = (K342020143 * tmp109) + (K939692620 * tmp108);
- tmp115 = K866025403 * (tmp113 + tmp114);
- tmp134 = tmp113 - tmp114;
- }
- X[2 * iostride] = tmp104 + tmp111;
- tmp112 = tmp104 - (K500000000 * tmp111);
- Y[-8 * iostride] = tmp112 - tmp115;
- Y[-5 * iostride] = tmp112 + tmp115;
- Y[-2 * iostride] = tmp134 + tmp133;
- tmp135 = tmp133 - (K500000000 * tmp134);
- X[5 * iostride] = -(tmp132 + tmp135);
- X[8 * iostride] = -(tmp135 - tmp132);
- }
- }
- if (i == m) {
- fftw_real tmp12;
- fftw_real tmp18;
- fftw_real tmp4;
- fftw_real tmp7;
- fftw_real tmp10;
- fftw_real tmp9;
- fftw_real tmp14;
- fftw_real tmp23;
- fftw_real tmp16;
- fftw_real tmp21;
- fftw_real tmp5;
- fftw_real tmp8;
- fftw_real tmp6;
- fftw_real tmp11;
- fftw_real tmp22;
- fftw_real tmp13;
- fftw_real tmp17;
- fftw_real tmp20;
- fftw_real tmp1;
- fftw_real tmp3;
- fftw_real tmp2;
- fftw_real tmp15;
- fftw_real tmp19;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = X[0];
- tmp3 = X[3 * iostride];
- tmp2 = X[6 * iostride];
- tmp12 = K866025403 * (tmp3 + tmp2);
- tmp18 = tmp1 - (K500000000 * (tmp2 - tmp3));
- tmp4 = tmp1 + tmp2 - tmp3;
- tmp7 = X[4 * iostride];
- tmp10 = X[7 * iostride];
- tmp9 = X[iostride];
- tmp14 = (K1_969615506 * tmp7) + (K684040286 * tmp9) + (K1_285575219 * tmp10);
- tmp23 = (K1_285575219 * tmp9) - (K1_969615506 * tmp10) - (K684040286 * tmp7);
- tmp16 = (K347296355 * tmp7) + (K1_879385241 * tmp9) - (K1_532088886 * tmp10);
- tmp21 = (K1_879385241 * tmp7) + (K1_532088886 * tmp9) + (K347296355 * tmp10);
- tmp5 = X[2 * iostride];
- tmp8 = X[5 * iostride];
- tmp6 = X[8 * iostride];
- tmp11 = tmp8 - (tmp5 + tmp6);
- tmp22 = (K1_285575219 * tmp6) - (K684040286 * tmp8) - (K1_969615506 * tmp5);
- tmp13 = (K1_285575219 * tmp5) + (K1_969615506 * tmp8) + (K684040286 * tmp6);
- tmp17 = (K1_532088886 * tmp5) - (K1_879385241 * tmp6) - (K347296355 * tmp8);
- tmp20 = (K347296355 * tmp5) + (K1_879385241 * tmp8) + (K1_532088886 * tmp6);
- Y[-iostride] = K866025403 * (tmp11 + tmp7 - (tmp9 + tmp10));
- X[iostride] = tmp4 + (K500000000 * (tmp11 + tmp9 + tmp10 - tmp7));
- X[4 * iostride] = tmp4 + tmp5 + tmp6 + tmp7 - (tmp8 + tmp9 + tmp10);
- X[2 * iostride] = tmp18 + (K433012701 * (tmp22 - tmp23)) + (K250000000 * (tmp21 - tmp20));
- Y[-2 * iostride] = tmp12 - (K433012701 * (tmp20 + tmp21)) - (K250000000 * (tmp22 + tmp23));
- tmp15 = tmp13 + tmp14;
- Y[0] = -(tmp12 + (K500000000 * tmp15));
- Y[-3 * iostride] = (K250000000 * tmp15) - (K433012701 * (tmp16 - tmp17)) - tmp12;
- tmp19 = tmp17 + tmp16;
- X[0] = tmp18 + (K500000000 * tmp19);
- X[3 * iostride] = tmp18 + (K433012701 * (tmp13 - tmp14)) - (K250000000 * tmp19);
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8};
-fftw_codelet_desc fftw_hc2hc_forward_9_desc =
-{
- "fftw_hc2hc_forward_9",
- (void (*)()) fftw_hc2hc_forward_9,
- 9,
- FFTW_FORWARD,
- FFTW_HC2HC,
- 201,
- 8,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/fn_1.c b/src/sndobj/rfftw/fn_1.c
deleted file mode 100644
index 64f011d..0000000
--- a/src/sndobj/rfftw/fn_1.c
+++ /dev/null
@@ -1,62 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:47 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 1 */
-
-/*
- * This function contains 0 FP additions, 0 FP multiplications,
- * (or, 0 additions, 0 multiplications, 0 fused multiply/add),
- * 2 stack variables, and 4 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: fn_1.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fn_1.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fn_1.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_no_twiddle_1(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- c_re(output[0]) = tmp1;
- tmp2 = c_im(input[0]);
- c_im(output[0]) = tmp2;
-}
-
-fftw_codelet_desc fftw_no_twiddle_1_desc =
-{
- "fftw_no_twiddle_1",
- (void (*)()) fftw_no_twiddle_1,
- 1,
- FFTW_FORWARD,
- FFTW_NOTW,
- 23,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_10.c b/src/sndobj/rfftw/fn_10.c
deleted file mode 100644
index c162c39..0000000
--- a/src/sndobj/rfftw/fn_10.c
+++ /dev/null
@@ -1,281 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:48 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 10 */
-
-/*
- * This function contains 84 FP additions, 24 FP multiplications,
- * (or, 72 additions, 12 multiplications, 12 fused multiply/add),
- * 36 stack variables, and 40 memory accesses
- */
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-
-/*
- * Generator Id's :
- * $Id: fn_10.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fn_10.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fn_10.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- */
-
-void fftw_no_twiddle_10(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp19;
- fftw_real tmp52;
- fftw_real tmp76;
- fftw_real tmp56;
- fftw_real tmp57;
- fftw_real tmp10;
- fftw_real tmp17;
- fftw_real tmp18;
- fftw_real tmp74;
- fftw_real tmp73;
- fftw_real tmp22;
- fftw_real tmp25;
- fftw_real tmp26;
- fftw_real tmp36;
- fftw_real tmp43;
- fftw_real tmp47;
- fftw_real tmp48;
- fftw_real tmp53;
- fftw_real tmp66;
- fftw_real tmp69;
- fftw_real tmp77;
- fftw_real tmp78;
- fftw_real tmp79;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp50;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[5 * istride]);
- tmp3 = tmp1 - tmp2;
- tmp19 = tmp1 + tmp2;
- tmp50 = c_im(input[0]);
- tmp51 = c_im(input[5 * istride]);
- tmp52 = tmp50 - tmp51;
- tmp76 = tmp50 + tmp51;
- }
- {
- fftw_real tmp6;
- fftw_real tmp20;
- fftw_real tmp16;
- fftw_real tmp24;
- fftw_real tmp9;
- fftw_real tmp21;
- fftw_real tmp13;
- fftw_real tmp23;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[2 * istride]);
- tmp5 = c_re(input[7 * istride]);
- tmp6 = tmp4 - tmp5;
- tmp20 = tmp4 + tmp5;
- tmp14 = c_re(input[6 * istride]);
- tmp15 = c_re(input[istride]);
- tmp16 = tmp14 - tmp15;
- tmp24 = tmp14 + tmp15;
- }
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = c_re(input[8 * istride]);
- tmp8 = c_re(input[3 * istride]);
- tmp9 = tmp7 - tmp8;
- tmp21 = tmp7 + tmp8;
- tmp11 = c_re(input[4 * istride]);
- tmp12 = c_re(input[9 * istride]);
- tmp13 = tmp11 - tmp12;
- tmp23 = tmp11 + tmp12;
- }
- tmp56 = tmp6 - tmp9;
- tmp57 = tmp13 - tmp16;
- tmp10 = tmp6 + tmp9;
- tmp17 = tmp13 + tmp16;
- tmp18 = tmp10 + tmp17;
- tmp74 = tmp20 - tmp21;
- tmp73 = tmp23 - tmp24;
- tmp22 = tmp20 + tmp21;
- tmp25 = tmp23 + tmp24;
- tmp26 = tmp22 + tmp25;
- }
- {
- fftw_real tmp32;
- fftw_real tmp67;
- fftw_real tmp42;
- fftw_real tmp65;
- fftw_real tmp35;
- fftw_real tmp68;
- fftw_real tmp39;
- fftw_real tmp64;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp30;
- fftw_real tmp31;
- fftw_real tmp40;
- fftw_real tmp41;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = c_im(input[2 * istride]);
- tmp31 = c_im(input[7 * istride]);
- tmp32 = tmp30 - tmp31;
- tmp67 = tmp30 + tmp31;
- tmp40 = c_im(input[6 * istride]);
- tmp41 = c_im(input[istride]);
- tmp42 = tmp40 - tmp41;
- tmp65 = tmp40 + tmp41;
- }
- {
- fftw_real tmp33;
- fftw_real tmp34;
- fftw_real tmp37;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp33 = c_im(input[8 * istride]);
- tmp34 = c_im(input[3 * istride]);
- tmp35 = tmp33 - tmp34;
- tmp68 = tmp33 + tmp34;
- tmp37 = c_im(input[4 * istride]);
- tmp38 = c_im(input[9 * istride]);
- tmp39 = tmp37 - tmp38;
- tmp64 = tmp37 + tmp38;
- }
- tmp36 = tmp32 - tmp35;
- tmp43 = tmp39 - tmp42;
- tmp47 = tmp32 + tmp35;
- tmp48 = tmp39 + tmp42;
- tmp53 = tmp47 + tmp48;
- tmp66 = tmp64 - tmp65;
- tmp69 = tmp67 - tmp68;
- tmp77 = tmp67 + tmp68;
- tmp78 = tmp64 + tmp65;
- tmp79 = tmp77 + tmp78;
- }
- c_re(output[5 * ostride]) = tmp3 + tmp18;
- {
- fftw_real tmp44;
- fftw_real tmp46;
- fftw_real tmp29;
- fftw_real tmp45;
- fftw_real tmp27;
- fftw_real tmp28;
- ASSERT_ALIGNED_DOUBLE;
- tmp44 = (K951056516 * tmp36) + (K587785252 * tmp43);
- tmp46 = (K951056516 * tmp43) - (K587785252 * tmp36);
- tmp27 = K559016994 * (tmp10 - tmp17);
- tmp28 = tmp3 - (K250000000 * tmp18);
- tmp29 = tmp27 + tmp28;
- tmp45 = tmp28 - tmp27;
- c_re(output[9 * ostride]) = tmp29 - tmp44;
- c_re(output[ostride]) = tmp29 + tmp44;
- c_re(output[7 * ostride]) = tmp45 - tmp46;
- c_re(output[3 * ostride]) = tmp45 + tmp46;
- }
- c_re(output[0]) = tmp19 + tmp26;
- {
- fftw_real tmp70;
- fftw_real tmp72;
- fftw_real tmp63;
- fftw_real tmp71;
- fftw_real tmp61;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = (K951056516 * tmp66) - (K587785252 * tmp69);
- tmp72 = (K951056516 * tmp69) + (K587785252 * tmp66);
- tmp61 = tmp19 - (K250000000 * tmp26);
- tmp62 = K559016994 * (tmp22 - tmp25);
- tmp63 = tmp61 - tmp62;
- tmp71 = tmp62 + tmp61;
- c_re(output[2 * ostride]) = tmp63 - tmp70;
- c_re(output[8 * ostride]) = tmp63 + tmp70;
- c_re(output[4 * ostride]) = tmp71 - tmp72;
- c_re(output[6 * ostride]) = tmp71 + tmp72;
- }
- c_im(output[5 * ostride]) = tmp52 + tmp53;
- {
- fftw_real tmp58;
- fftw_real tmp60;
- fftw_real tmp55;
- fftw_real tmp59;
- fftw_real tmp49;
- fftw_real tmp54;
- ASSERT_ALIGNED_DOUBLE;
- tmp58 = (K951056516 * tmp56) + (K587785252 * tmp57);
- tmp60 = (K951056516 * tmp57) - (K587785252 * tmp56);
- tmp49 = K559016994 * (tmp47 - tmp48);
- tmp54 = tmp52 - (K250000000 * tmp53);
- tmp55 = tmp49 + tmp54;
- tmp59 = tmp54 - tmp49;
- c_im(output[ostride]) = tmp55 - tmp58;
- c_im(output[9 * ostride]) = tmp58 + tmp55;
- c_im(output[3 * ostride]) = tmp59 - tmp60;
- c_im(output[7 * ostride]) = tmp60 + tmp59;
- }
- c_im(output[0]) = tmp76 + tmp79;
- {
- fftw_real tmp75;
- fftw_real tmp83;
- fftw_real tmp82;
- fftw_real tmp84;
- fftw_real tmp80;
- fftw_real tmp81;
- ASSERT_ALIGNED_DOUBLE;
- tmp75 = (K951056516 * tmp73) - (K587785252 * tmp74);
- tmp83 = (K951056516 * tmp74) + (K587785252 * tmp73);
- tmp80 = tmp76 - (K250000000 * tmp79);
- tmp81 = K559016994 * (tmp77 - tmp78);
- tmp82 = tmp80 - tmp81;
- tmp84 = tmp81 + tmp80;
- c_im(output[2 * ostride]) = tmp75 + tmp82;
- c_im(output[8 * ostride]) = tmp82 - tmp75;
- c_im(output[4 * ostride]) = tmp83 + tmp84;
- c_im(output[6 * ostride]) = tmp84 - tmp83;
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_10_desc =
-{
- "fftw_no_twiddle_10",
- (void (*)()) fftw_no_twiddle_10,
- 10,
- FFTW_FORWARD,
- FFTW_NOTW,
- 221,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_11.c b/src/sndobj/rfftw/fn_11.c
deleted file mode 100644
index 9cdbf1f..0000000
--- a/src/sndobj/rfftw/fn_11.c
+++ /dev/null
@@ -1,242 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:48 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 11 */
-
-/*
- * This function contains 140 FP additions, 100 FP multiplications,
- * (or, 140 additions, 100 multiplications, 0 fused multiply/add),
- * 30 stack variables, and 44 memory accesses
- */
-static const fftw_real K959492973 = FFTW_KONST(+0.959492973614497389890368057066327699062454848);
-static const fftw_real K654860733 = FFTW_KONST(+0.654860733945285064056925072466293553183791199);
-static const fftw_real K142314838 = FFTW_KONST(+0.142314838273285140443792668616369668791051361);
-static const fftw_real K415415013 = FFTW_KONST(+0.415415013001886425529274149229623203524004910);
-static const fftw_real K841253532 = FFTW_KONST(+0.841253532831181168861811648919367717513292498);
-static const fftw_real K540640817 = FFTW_KONST(+0.540640817455597582107635954318691695431770608);
-static const fftw_real K909631995 = FFTW_KONST(+0.909631995354518371411715383079028460060241051);
-static const fftw_real K989821441 = FFTW_KONST(+0.989821441880932732376092037776718787376519372);
-static const fftw_real K755749574 = FFTW_KONST(+0.755749574354258283774035843972344420179717445);
-static const fftw_real K281732556 = FFTW_KONST(+0.281732556841429697711417915346616899035777899);
-
-/*
- * Generator Id's :
- * $Id: fn_11.c,v 1.1.1.1 2006/05/12 15:14:53 veplaini Exp $
- * $Id: fn_11.c,v 1.1.1.1 2006/05/12 15:14:53 veplaini Exp $
- * $Id: fn_11.c,v 1.1.1.1 2006/05/12 15:14:53 veplaini Exp $
- */
-
-void fftw_no_twiddle_11(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp48;
- fftw_real tmp4;
- fftw_real tmp42;
- fftw_real tmp20;
- fftw_real tmp53;
- fftw_real tmp32;
- fftw_real tmp49;
- fftw_real tmp7;
- fftw_real tmp46;
- fftw_real tmp10;
- fftw_real tmp43;
- fftw_real tmp23;
- fftw_real tmp52;
- fftw_real tmp13;
- fftw_real tmp45;
- fftw_real tmp26;
- fftw_real tmp50;
- fftw_real tmp29;
- fftw_real tmp51;
- fftw_real tmp16;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp18;
- fftw_real tmp19;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp48 = c_im(input[0]);
- tmp2 = c_re(input[istride]);
- tmp3 = c_re(input[10 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp42 = tmp3 - tmp2;
- tmp18 = c_im(input[istride]);
- tmp19 = c_im(input[10 * istride]);
- tmp20 = tmp18 - tmp19;
- tmp53 = tmp18 + tmp19;
- {
- fftw_real tmp30;
- fftw_real tmp31;
- fftw_real tmp5;
- fftw_real tmp6;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = c_im(input[2 * istride]);
- tmp31 = c_im(input[9 * istride]);
- tmp32 = tmp30 - tmp31;
- tmp49 = tmp30 + tmp31;
- tmp5 = c_re(input[2 * istride]);
- tmp6 = c_re(input[9 * istride]);
- tmp7 = tmp5 + tmp6;
- tmp46 = tmp6 - tmp5;
- }
- }
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp24;
- fftw_real tmp25;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[3 * istride]);
- tmp9 = c_re(input[8 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp43 = tmp9 - tmp8;
- {
- fftw_real tmp21;
- fftw_real tmp22;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = c_im(input[3 * istride]);
- tmp22 = c_im(input[8 * istride]);
- tmp23 = tmp21 - tmp22;
- tmp52 = tmp21 + tmp22;
- tmp11 = c_re(input[4 * istride]);
- tmp12 = c_re(input[7 * istride]);
- tmp13 = tmp11 + tmp12;
- tmp45 = tmp12 - tmp11;
- }
- tmp24 = c_im(input[4 * istride]);
- tmp25 = c_im(input[7 * istride]);
- tmp26 = tmp24 - tmp25;
- tmp50 = tmp24 + tmp25;
- {
- fftw_real tmp27;
- fftw_real tmp28;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp27 = c_im(input[5 * istride]);
- tmp28 = c_im(input[6 * istride]);
- tmp29 = tmp27 - tmp28;
- tmp51 = tmp27 + tmp28;
- tmp14 = c_re(input[5 * istride]);
- tmp15 = c_re(input[6 * istride]);
- tmp16 = tmp14 + tmp15;
- tmp44 = tmp15 - tmp14;
- }
- }
- {
- fftw_real tmp35;
- fftw_real tmp34;
- fftw_real tmp59;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- c_re(output[0]) = tmp1 + tmp4 + tmp7 + tmp10 + tmp13 + tmp16;
- {
- fftw_real tmp41;
- fftw_real tmp40;
- fftw_real tmp37;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp41 = (K281732556 * tmp20) + (K755749574 * tmp23) + (K989821441 * tmp29) - (K909631995 * tmp26) - (K540640817 * tmp32);
- tmp40 = tmp1 + (K841253532 * tmp7) + (K415415013 * tmp13) - (K142314838 * tmp16) - (K654860733 * tmp10) - (K959492973 * tmp4);
- c_re(output[6 * ostride]) = tmp40 - tmp41;
- c_re(output[5 * ostride]) = tmp40 + tmp41;
- tmp37 = (K540640817 * tmp20) + (K909631995 * tmp32) + (K989821441 * tmp23) + (K755749574 * tmp26) + (K281732556 * tmp29);
- tmp36 = tmp1 + (K841253532 * tmp4) + (K415415013 * tmp7) - (K959492973 * tmp16) - (K654860733 * tmp13) - (K142314838 * tmp10);
- c_re(output[10 * ostride]) = tmp36 - tmp37;
- c_re(output[ostride]) = tmp36 + tmp37;
- }
- tmp35 = (K909631995 * tmp20) + (K755749574 * tmp32) - (K540640817 * tmp29) - (K989821441 * tmp26) - (K281732556 * tmp23);
- tmp34 = tmp1 + (K415415013 * tmp4) + (K841253532 * tmp16) - (K142314838 * tmp13) - (K959492973 * tmp10) - (K654860733 * tmp7);
- c_re(output[9 * ostride]) = tmp34 - tmp35;
- c_re(output[2 * ostride]) = tmp34 + tmp35;
- {
- fftw_real tmp39;
- fftw_real tmp38;
- fftw_real tmp33;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp39 = (K989821441 * tmp20) + (K540640817 * tmp26) + (K755749574 * tmp29) - (K909631995 * tmp23) - (K281732556 * tmp32);
- tmp38 = tmp1 + (K415415013 * tmp10) + (K841253532 * tmp13) - (K654860733 * tmp16) - (K959492973 * tmp7) - (K142314838 * tmp4);
- c_re(output[8 * ostride]) = tmp38 - tmp39;
- c_re(output[3 * ostride]) = tmp38 + tmp39;
- tmp33 = (K755749574 * tmp20) + (K540640817 * tmp23) + (K281732556 * tmp26) - (K909631995 * tmp29) - (K989821441 * tmp32);
- tmp17 = tmp1 + (K841253532 * tmp10) + (K415415013 * tmp16) - (K959492973 * tmp13) - (K142314838 * tmp7) - (K654860733 * tmp4);
- c_re(output[7 * ostride]) = tmp17 - tmp33;
- c_re(output[4 * ostride]) = tmp17 + tmp33;
- }
- c_im(output[0]) = tmp48 + tmp53 + tmp49 + tmp52 + tmp50 + tmp51;
- {
- fftw_real tmp47;
- fftw_real tmp54;
- fftw_real tmp57;
- fftw_real tmp58;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = (K281732556 * tmp42) + (K755749574 * tmp43) + (K989821441 * tmp44) - (K909631995 * tmp45) - (K540640817 * tmp46);
- tmp54 = tmp48 + (K841253532 * tmp49) + (K415415013 * tmp50) - (K142314838 * tmp51) - (K654860733 * tmp52) - (K959492973 * tmp53);
- c_im(output[5 * ostride]) = tmp47 + tmp54;
- c_im(output[6 * ostride]) = tmp54 - tmp47;
- tmp57 = (K540640817 * tmp42) + (K909631995 * tmp46) + (K989821441 * tmp43) + (K755749574 * tmp45) + (K281732556 * tmp44);
- tmp58 = tmp48 + (K841253532 * tmp53) + (K415415013 * tmp49) - (K959492973 * tmp51) - (K654860733 * tmp50) - (K142314838 * tmp52);
- c_im(output[ostride]) = tmp57 + tmp58;
- c_im(output[10 * ostride]) = tmp58 - tmp57;
- }
- tmp59 = (K909631995 * tmp42) + (K755749574 * tmp46) - (K540640817 * tmp44) - (K989821441 * tmp45) - (K281732556 * tmp43);
- tmp60 = tmp48 + (K415415013 * tmp53) + (K841253532 * tmp51) - (K142314838 * tmp50) - (K959492973 * tmp52) - (K654860733 * tmp49);
- c_im(output[2 * ostride]) = tmp59 + tmp60;
- c_im(output[9 * ostride]) = tmp60 - tmp59;
- {
- fftw_real tmp55;
- fftw_real tmp56;
- fftw_real tmp61;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp55 = (K989821441 * tmp42) + (K540640817 * tmp45) + (K755749574 * tmp44) - (K909631995 * tmp43) - (K281732556 * tmp46);
- tmp56 = tmp48 + (K415415013 * tmp52) + (K841253532 * tmp50) - (K654860733 * tmp51) - (K959492973 * tmp49) - (K142314838 * tmp53);
- c_im(output[3 * ostride]) = tmp55 + tmp56;
- c_im(output[8 * ostride]) = tmp56 - tmp55;
- tmp61 = (K755749574 * tmp42) + (K540640817 * tmp43) + (K281732556 * tmp45) - (K909631995 * tmp44) - (K989821441 * tmp46);
- tmp62 = tmp48 + (K841253532 * tmp52) + (K415415013 * tmp51) - (K959492973 * tmp50) - (K142314838 * tmp49) - (K654860733 * tmp53);
- c_im(output[4 * ostride]) = tmp61 + tmp62;
- c_im(output[7 * ostride]) = tmp62 - tmp61;
- }
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_11_desc =
-{
- "fftw_no_twiddle_11",
- (void (*)()) fftw_no_twiddle_11,
- 11,
- FFTW_FORWARD,
- FFTW_NOTW,
- 243,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_12.c b/src/sndobj/rfftw/fn_12.c
deleted file mode 100644
index 47e89e4..0000000
--- a/src/sndobj/rfftw/fn_12.c
+++ /dev/null
@@ -1,322 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:48 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 12 */
-
-/*
- * This function contains 96 FP additions, 16 FP multiplications,
- * (or, 88 additions, 8 multiplications, 8 fused multiply/add),
- * 40 stack variables, and 48 memory accesses
- */
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fn_12.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fn_12.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fn_12.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- */
-
-void fftw_no_twiddle_12(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp5;
- fftw_real tmp53;
- fftw_real tmp36;
- fftw_real tmp28;
- fftw_real tmp35;
- fftw_real tmp54;
- fftw_real tmp10;
- fftw_real tmp56;
- fftw_real tmp39;
- fftw_real tmp33;
- fftw_real tmp38;
- fftw_real tmp57;
- fftw_real tmp16;
- fftw_real tmp42;
- fftw_real tmp72;
- fftw_real tmp45;
- fftw_real tmp92;
- fftw_real tmp75;
- fftw_real tmp21;
- fftw_real tmp47;
- fftw_real tmp77;
- fftw_real tmp50;
- fftw_real tmp93;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[4 * istride]);
- tmp3 = c_re(input[8 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp5 = tmp1 + tmp4;
- tmp53 = tmp1 - (K500000000 * tmp4);
- tmp36 = K866025403 * (tmp3 - tmp2);
- }
- {
- fftw_real tmp24;
- fftw_real tmp25;
- fftw_real tmp26;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp24 = c_im(input[0]);
- tmp25 = c_im(input[4 * istride]);
- tmp26 = c_im(input[8 * istride]);
- tmp27 = tmp25 + tmp26;
- tmp28 = tmp24 + tmp27;
- tmp35 = tmp24 - (K500000000 * tmp27);
- tmp54 = K866025403 * (tmp25 - tmp26);
- }
- {
- fftw_real tmp6;
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = c_re(input[6 * istride]);
- tmp7 = c_re(input[10 * istride]);
- tmp8 = c_re(input[2 * istride]);
- tmp9 = tmp7 + tmp8;
- tmp10 = tmp6 + tmp9;
- tmp56 = tmp6 - (K500000000 * tmp9);
- tmp39 = K866025403 * (tmp8 - tmp7);
- }
- {
- fftw_real tmp29;
- fftw_real tmp30;
- fftw_real tmp31;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- tmp29 = c_im(input[6 * istride]);
- tmp30 = c_im(input[10 * istride]);
- tmp31 = c_im(input[2 * istride]);
- tmp32 = tmp30 + tmp31;
- tmp33 = tmp29 + tmp32;
- tmp38 = tmp29 - (K500000000 * tmp32);
- tmp57 = K866025403 * (tmp30 - tmp31);
- }
- {
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp12 = c_re(input[3 * istride]);
- tmp13 = c_re(input[7 * istride]);
- tmp14 = c_re(input[11 * istride]);
- tmp15 = tmp13 + tmp14;
- tmp16 = tmp12 + tmp15;
- tmp42 = tmp12 - (K500000000 * tmp15);
- tmp72 = K866025403 * (tmp14 - tmp13);
- }
- {
- fftw_real tmp73;
- fftw_real tmp43;
- fftw_real tmp44;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = c_im(input[3 * istride]);
- tmp43 = c_im(input[7 * istride]);
- tmp44 = c_im(input[11 * istride]);
- tmp74 = tmp43 + tmp44;
- tmp45 = K866025403 * (tmp43 - tmp44);
- tmp92 = tmp73 + tmp74;
- tmp75 = tmp73 - (K500000000 * tmp74);
- }
- {
- fftw_real tmp17;
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp17 = c_re(input[9 * istride]);
- tmp18 = c_re(input[istride]);
- tmp19 = c_re(input[5 * istride]);
- tmp20 = tmp18 + tmp19;
- tmp21 = tmp17 + tmp20;
- tmp47 = tmp17 - (K500000000 * tmp20);
- tmp77 = K866025403 * (tmp19 - tmp18);
- }
- {
- fftw_real tmp78;
- fftw_real tmp48;
- fftw_real tmp49;
- fftw_real tmp79;
- ASSERT_ALIGNED_DOUBLE;
- tmp78 = c_im(input[9 * istride]);
- tmp48 = c_im(input[istride]);
- tmp49 = c_im(input[5 * istride]);
- tmp79 = tmp48 + tmp49;
- tmp50 = K866025403 * (tmp48 - tmp49);
- tmp93 = tmp78 + tmp79;
- tmp80 = tmp78 - (K500000000 * tmp79);
- }
- {
- fftw_real tmp11;
- fftw_real tmp22;
- fftw_real tmp23;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = tmp5 + tmp10;
- tmp22 = tmp16 + tmp21;
- c_re(output[6 * ostride]) = tmp11 - tmp22;
- c_re(output[0]) = tmp11 + tmp22;
- {
- fftw_real tmp91;
- fftw_real tmp94;
- fftw_real tmp95;
- fftw_real tmp96;
- ASSERT_ALIGNED_DOUBLE;
- tmp91 = tmp5 - tmp10;
- tmp94 = tmp92 - tmp93;
- c_re(output[3 * ostride]) = tmp91 - tmp94;
- c_re(output[9 * ostride]) = tmp91 + tmp94;
- tmp95 = tmp28 + tmp33;
- tmp96 = tmp92 + tmp93;
- c_im(output[6 * ostride]) = tmp95 - tmp96;
- c_im(output[0]) = tmp95 + tmp96;
- }
- tmp23 = tmp16 - tmp21;
- tmp34 = tmp28 - tmp33;
- c_im(output[3 * ostride]) = tmp23 + tmp34;
- c_im(output[9 * ostride]) = tmp34 - tmp23;
- {
- fftw_real tmp63;
- fftw_real tmp83;
- fftw_real tmp82;
- fftw_real tmp84;
- fftw_real tmp66;
- fftw_real tmp70;
- fftw_real tmp69;
- fftw_real tmp71;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp61;
- fftw_real tmp62;
- fftw_real tmp76;
- fftw_real tmp81;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = tmp36 + tmp35;
- tmp62 = tmp39 + tmp38;
- tmp63 = tmp61 - tmp62;
- tmp83 = tmp61 + tmp62;
- tmp76 = tmp72 + tmp75;
- tmp81 = tmp77 + tmp80;
- tmp82 = tmp76 - tmp81;
- tmp84 = tmp76 + tmp81;
- }
- {
- fftw_real tmp64;
- fftw_real tmp65;
- fftw_real tmp67;
- fftw_real tmp68;
- ASSERT_ALIGNED_DOUBLE;
- tmp64 = tmp42 + tmp45;
- tmp65 = tmp47 + tmp50;
- tmp66 = tmp64 - tmp65;
- tmp70 = tmp64 + tmp65;
- tmp67 = tmp53 + tmp54;
- tmp68 = tmp56 + tmp57;
- tmp69 = tmp67 + tmp68;
- tmp71 = tmp67 - tmp68;
- }
- c_im(output[ostride]) = tmp63 - tmp66;
- c_im(output[7 * ostride]) = tmp63 + tmp66;
- c_re(output[10 * ostride]) = tmp69 - tmp70;
- c_re(output[4 * ostride]) = tmp69 + tmp70;
- c_re(output[7 * ostride]) = tmp71 - tmp82;
- c_re(output[ostride]) = tmp71 + tmp82;
- c_im(output[10 * ostride]) = tmp83 - tmp84;
- c_im(output[4 * ostride]) = tmp83 + tmp84;
- }
- {
- fftw_real tmp41;
- fftw_real tmp89;
- fftw_real tmp88;
- fftw_real tmp90;
- fftw_real tmp52;
- fftw_real tmp60;
- fftw_real tmp59;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp37;
- fftw_real tmp40;
- fftw_real tmp86;
- fftw_real tmp87;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = tmp35 - tmp36;
- tmp40 = tmp38 - tmp39;
- tmp41 = tmp37 - tmp40;
- tmp89 = tmp37 + tmp40;
- tmp86 = tmp75 - tmp72;
- tmp87 = tmp80 - tmp77;
- tmp88 = tmp86 - tmp87;
- tmp90 = tmp86 + tmp87;
- }
- {
- fftw_real tmp46;
- fftw_real tmp51;
- fftw_real tmp55;
- fftw_real tmp58;
- ASSERT_ALIGNED_DOUBLE;
- tmp46 = tmp42 - tmp45;
- tmp51 = tmp47 - tmp50;
- tmp52 = tmp46 - tmp51;
- tmp60 = tmp46 + tmp51;
- tmp55 = tmp53 - tmp54;
- tmp58 = tmp56 - tmp57;
- tmp59 = tmp55 + tmp58;
- tmp85 = tmp55 - tmp58;
- }
- c_im(output[5 * ostride]) = tmp41 - tmp52;
- c_im(output[11 * ostride]) = tmp41 + tmp52;
- c_re(output[2 * ostride]) = tmp59 - tmp60;
- c_re(output[8 * ostride]) = tmp59 + tmp60;
- c_re(output[11 * ostride]) = tmp85 - tmp88;
- c_re(output[5 * ostride]) = tmp85 + tmp88;
- c_im(output[2 * ostride]) = tmp89 - tmp90;
- c_im(output[8 * ostride]) = tmp89 + tmp90;
- }
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_12_desc =
-{
- "fftw_no_twiddle_12",
- (void (*)()) fftw_no_twiddle_12,
- 12,
- FFTW_FORWARD,
- FFTW_NOTW,
- 265,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_13.c b/src/sndobj/rfftw/fn_13.c
deleted file mode 100644
index 2af61ae..0000000
--- a/src/sndobj/rfftw/fn_13.c
+++ /dev/null
@@ -1,526 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:48 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 13 */
-
-/*
- * This function contains 176 FP additions, 68 FP multiplications,
- * (or, 138 additions, 30 multiplications, 38 fused multiply/add),
- * 50 stack variables, and 52 memory accesses
- */
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-static const fftw_real K256247671 = FFTW_KONST(+0.256247671582936600958684654061725059144125175);
-static const fftw_real K156891391 = FFTW_KONST(+0.156891391051584611046832726756003269660212636);
-static const fftw_real K300238635 = FFTW_KONST(+0.300238635966332641462884626667381504676006424);
-static const fftw_real K011599105 = FFTW_KONST(+0.011599105605768290721655456654083252189827041);
-static const fftw_real K174138601 = FFTW_KONST(+0.174138601152135905005660794929264742616964676);
-static const fftw_real K575140729 = FFTW_KONST(+0.575140729474003121368385547455453388461001608);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K083333333 = FFTW_KONST(+0.083333333333333333333333333333333333333333333);
-static const fftw_real K075902986 = FFTW_KONST(+0.075902986037193865983102897245103540356428373);
-static const fftw_real K251768516 = FFTW_KONST(+0.251768516431883313623436926934233488546674281);
-static const fftw_real K258260390 = FFTW_KONST(+0.258260390311744861420450644284508567852516811);
-static const fftw_real K132983124 = FFTW_KONST(+0.132983124607418643793760531921092974399165133);
-static const fftw_real K265966249 = FFTW_KONST(+0.265966249214837287587521063842185948798330267);
-static const fftw_real K387390585 = FFTW_KONST(+0.387390585467617292130675966426762851778775217);
-static const fftw_real K503537032 = FFTW_KONST(+0.503537032863766627246873853868466977093348562);
-static const fftw_real K113854479 = FFTW_KONST(+0.113854479055790798974654345867655310534642560);
-static const fftw_real K300462606 = FFTW_KONST(+0.300462606288665774426601772289207995520941381);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fn_13.c,v 1.1.1.1 2006/05/12 15:14:47 veplaini Exp $
- * $Id: fn_13.c,v 1.1.1.1 2006/05/12 15:14:47 veplaini Exp $
- * $Id: fn_13.c,v 1.1.1.1 2006/05/12 15:14:47 veplaini Exp $
- */
-
-void fftw_no_twiddle_13(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp88;
- fftw_real tmp29;
- fftw_real tmp36;
- fftw_real tmp43;
- fftw_real tmp121;
- fftw_real tmp128;
- fftw_real tmp30;
- fftw_real tmp24;
- fftw_real tmp131;
- fftw_real tmp124;
- fftw_real tmp129;
- fftw_real tmp41;
- fftw_real tmp44;
- fftw_real tmp134;
- fftw_real tmp83;
- fftw_real tmp89;
- fftw_real tmp70;
- fftw_real tmp85;
- fftw_real tmp137;
- fftw_real tmp141;
- fftw_real tmp146;
- fftw_real tmp77;
- fftw_real tmp86;
- fftw_real tmp144;
- fftw_real tmp147;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp88 = c_im(input[0]);
- {
- fftw_real tmp15;
- fftw_real tmp25;
- fftw_real tmp18;
- fftw_real tmp26;
- fftw_real tmp21;
- fftw_real tmp27;
- fftw_real tmp22;
- fftw_real tmp28;
- fftw_real tmp6;
- fftw_real tmp37;
- fftw_real tmp33;
- fftw_real tmp11;
- fftw_real tmp38;
- fftw_real tmp34;
- fftw_real tmp13;
- fftw_real tmp14;
- fftw_real tmp12;
- fftw_real tmp23;
- ASSERT_ALIGNED_DOUBLE;
- tmp13 = c_re(input[8 * istride]);
- tmp14 = c_re(input[5 * istride]);
- tmp15 = tmp13 + tmp14;
- tmp25 = tmp13 - tmp14;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_re(input[6 * istride]);
- tmp17 = c_re(input[11 * istride]);
- tmp18 = tmp16 + tmp17;
- tmp26 = tmp16 - tmp17;
- tmp19 = c_re(input[2 * istride]);
- tmp20 = c_re(input[7 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp27 = tmp19 - tmp20;
- }
- tmp22 = tmp18 + tmp21;
- tmp28 = tmp26 + tmp27;
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- fftw_real tmp5;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = c_re(input[istride]);
- tmp3 = c_re(input[3 * istride]);
- tmp4 = c_re(input[9 * istride]);
- tmp5 = tmp3 + tmp4;
- tmp6 = tmp2 + tmp5;
- tmp37 = tmp2 - (K500000000 * tmp5);
- tmp33 = tmp3 - tmp4;
- }
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = c_re(input[12 * istride]);
- tmp8 = c_re(input[4 * istride]);
- tmp9 = c_re(input[10 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp11 = tmp7 + tmp10;
- tmp38 = tmp7 - (K500000000 * tmp10);
- tmp34 = tmp8 - tmp9;
- }
- tmp29 = tmp25 - tmp28;
- {
- fftw_real tmp32;
- fftw_real tmp35;
- fftw_real tmp119;
- fftw_real tmp120;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = tmp25 + (K500000000 * tmp28);
- tmp35 = K866025403 * (tmp33 + tmp34);
- tmp36 = tmp32 - tmp35;
- tmp43 = tmp35 + tmp32;
- tmp119 = tmp33 - tmp34;
- tmp120 = tmp27 - tmp26;
- tmp121 = tmp119 + tmp120;
- tmp128 = tmp120 - tmp119;
- }
- tmp30 = tmp6 - tmp11;
- tmp12 = tmp6 + tmp11;
- tmp23 = tmp15 + tmp22;
- tmp24 = tmp12 + tmp23;
- tmp131 = K300462606 * (tmp12 - tmp23);
- {
- fftw_real tmp122;
- fftw_real tmp123;
- fftw_real tmp39;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp122 = tmp37 + tmp38;
- tmp123 = tmp15 - (K500000000 * tmp22);
- tmp124 = tmp122 + tmp123;
- tmp129 = tmp122 - tmp123;
- tmp39 = tmp37 - tmp38;
- tmp40 = K866025403 * (tmp18 - tmp21);
- tmp41 = tmp39 + tmp40;
- tmp44 = tmp39 - tmp40;
- }
- }
- {
- fftw_real tmp61;
- fftw_real tmp135;
- fftw_real tmp64;
- fftw_real tmp71;
- fftw_real tmp67;
- fftw_real tmp72;
- fftw_real tmp68;
- fftw_real tmp136;
- fftw_real tmp52;
- fftw_real tmp79;
- fftw_real tmp75;
- fftw_real tmp57;
- fftw_real tmp80;
- fftw_real tmp74;
- fftw_real tmp59;
- fftw_real tmp60;
- fftw_real tmp139;
- fftw_real tmp140;
- ASSERT_ALIGNED_DOUBLE;
- tmp59 = c_im(input[8 * istride]);
- tmp60 = c_im(input[5 * istride]);
- tmp61 = tmp59 + tmp60;
- tmp135 = tmp59 - tmp60;
- {
- fftw_real tmp62;
- fftw_real tmp63;
- fftw_real tmp65;
- fftw_real tmp66;
- ASSERT_ALIGNED_DOUBLE;
- tmp62 = c_im(input[6 * istride]);
- tmp63 = c_im(input[11 * istride]);
- tmp64 = tmp62 + tmp63;
- tmp71 = tmp62 - tmp63;
- tmp65 = c_im(input[2 * istride]);
- tmp66 = c_im(input[7 * istride]);
- tmp67 = tmp65 + tmp66;
- tmp72 = tmp65 - tmp66;
- }
- tmp68 = tmp64 + tmp67;
- tmp136 = tmp71 + tmp72;
- {
- fftw_real tmp48;
- fftw_real tmp49;
- fftw_real tmp50;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp48 = c_im(input[istride]);
- tmp49 = c_im(input[3 * istride]);
- tmp50 = c_im(input[9 * istride]);
- tmp51 = tmp49 + tmp50;
- tmp52 = tmp48 - (K500000000 * tmp51);
- tmp79 = tmp48 + tmp51;
- tmp75 = tmp49 - tmp50;
- }
- {
- fftw_real tmp53;
- fftw_real tmp54;
- fftw_real tmp55;
- fftw_real tmp56;
- ASSERT_ALIGNED_DOUBLE;
- tmp53 = c_im(input[12 * istride]);
- tmp54 = c_im(input[4 * istride]);
- tmp55 = c_im(input[10 * istride]);
- tmp56 = tmp54 + tmp55;
- tmp57 = tmp53 - (K500000000 * tmp56);
- tmp80 = tmp53 + tmp56;
- tmp74 = tmp54 - tmp55;
- }
- tmp134 = tmp79 - tmp80;
- {
- fftw_real tmp81;
- fftw_real tmp82;
- fftw_real tmp58;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- tmp81 = tmp79 + tmp80;
- tmp82 = tmp61 + tmp68;
- tmp83 = K300462606 * (tmp81 - tmp82);
- tmp89 = tmp81 + tmp82;
- tmp58 = tmp52 + tmp57;
- tmp69 = tmp61 - (K500000000 * tmp68);
- tmp70 = tmp58 - tmp69;
- tmp85 = tmp58 + tmp69;
- }
- tmp137 = tmp135 - tmp136;
- tmp139 = K866025403 * (tmp75 + tmp74);
- tmp140 = tmp135 + (K500000000 * tmp136);
- tmp141 = tmp139 - tmp140;
- tmp146 = tmp139 + tmp140;
- {
- fftw_real tmp73;
- fftw_real tmp76;
- fftw_real tmp142;
- fftw_real tmp143;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = tmp71 - tmp72;
- tmp76 = tmp74 - tmp75;
- tmp77 = tmp73 - tmp76;
- tmp86 = tmp76 + tmp73;
- tmp142 = tmp52 - tmp57;
- tmp143 = K866025403 * (tmp67 - tmp64);
- tmp144 = tmp142 - tmp143;
- tmp147 = tmp142 + tmp143;
- }
- }
- c_re(output[0]) = tmp1 + tmp24;
- {
- fftw_real tmp163;
- fftw_real tmp173;
- fftw_real tmp127;
- fftw_real tmp169;
- fftw_real tmp153;
- fftw_real tmp132;
- fftw_real tmp138;
- fftw_real tmp149;
- fftw_real tmp160;
- fftw_real tmp172;
- fftw_real tmp154;
- fftw_real tmp157;
- fftw_real tmp158;
- fftw_real tmp170;
- fftw_real tmp161;
- fftw_real tmp162;
- ASSERT_ALIGNED_DOUBLE;
- tmp161 = (K113854479 * tmp121) - (K503537032 * tmp124);
- tmp162 = (K387390585 * tmp128) - (K265966249 * tmp129);
- tmp163 = tmp161 - tmp162;
- tmp173 = tmp162 + tmp161;
- {
- fftw_real tmp130;
- fftw_real tmp151;
- fftw_real tmp125;
- fftw_real tmp126;
- fftw_real tmp152;
- ASSERT_ALIGNED_DOUBLE;
- tmp130 = (K132983124 * tmp128) + (K258260390 * tmp129);
- tmp151 = tmp131 - tmp130;
- tmp125 = (K251768516 * tmp121) + (K075902986 * tmp124);
- tmp126 = tmp1 - (K083333333 * tmp24);
- tmp152 = tmp126 - tmp125;
- tmp127 = (K2_000000000 * tmp125) + tmp126;
- tmp169 = tmp152 - tmp151;
- tmp153 = tmp151 + tmp152;
- tmp132 = (K2_000000000 * tmp130) + tmp131;
- }
- {
- fftw_real tmp145;
- fftw_real tmp148;
- fftw_real tmp155;
- fftw_real tmp156;
- ASSERT_ALIGNED_DOUBLE;
- tmp138 = (K575140729 * tmp134) + (K174138601 * tmp137);
- tmp145 = (K011599105 * tmp141) + (K300238635 * tmp144);
- tmp148 = (K156891391 * tmp146) - (K256247671 * tmp147);
- tmp149 = tmp145 + tmp148;
- tmp160 = K1_732050807 * (tmp148 - tmp145);
- tmp172 = tmp149 - tmp138;
- tmp154 = (K174138601 * tmp134) - (K575140729 * tmp137);
- tmp155 = (K300238635 * tmp141) - (K011599105 * tmp144);
- tmp156 = (K256247671 * tmp146) + (K156891391 * tmp147);
- tmp157 = tmp155 + tmp156;
- tmp158 = tmp154 - tmp157;
- tmp170 = K1_732050807 * (tmp156 - tmp155);
- }
- {
- fftw_real tmp133;
- fftw_real tmp150;
- fftw_real tmp165;
- fftw_real tmp166;
- ASSERT_ALIGNED_DOUBLE;
- tmp133 = tmp127 - tmp132;
- tmp150 = tmp138 + (K2_000000000 * tmp149);
- c_re(output[8 * ostride]) = tmp133 - tmp150;
- c_re(output[5 * ostride]) = tmp133 + tmp150;
- {
- fftw_real tmp167;
- fftw_real tmp168;
- fftw_real tmp159;
- fftw_real tmp164;
- ASSERT_ALIGNED_DOUBLE;
- tmp167 = tmp132 + tmp127;
- tmp168 = tmp154 + (K2_000000000 * tmp157);
- c_re(output[12 * ostride]) = tmp167 - tmp168;
- c_re(output[ostride]) = tmp167 + tmp168;
- tmp159 = tmp153 - tmp158;
- tmp164 = tmp160 - tmp163;
- c_re(output[4 * ostride]) = tmp159 - tmp164;
- c_re(output[10 * ostride]) = tmp164 + tmp159;
- }
- tmp165 = tmp153 + tmp158;
- tmp166 = tmp163 + tmp160;
- c_re(output[3 * ostride]) = tmp165 - tmp166;
- c_re(output[9 * ostride]) = tmp166 + tmp165;
- {
- fftw_real tmp175;
- fftw_real tmp176;
- fftw_real tmp171;
- fftw_real tmp174;
- ASSERT_ALIGNED_DOUBLE;
- tmp175 = tmp169 + tmp170;
- tmp176 = tmp173 + tmp172;
- c_re(output[2 * ostride]) = tmp175 - tmp176;
- c_re(output[7 * ostride]) = tmp176 + tmp175;
- tmp171 = tmp169 - tmp170;
- tmp174 = tmp172 - tmp173;
- c_re(output[6 * ostride]) = tmp171 - tmp174;
- c_re(output[11 * ostride]) = tmp174 + tmp171;
- }
- }
- }
- c_im(output[0]) = tmp88 + tmp89;
- {
- fftw_real tmp102;
- fftw_real tmp115;
- fftw_real tmp84;
- fftw_real tmp112;
- fftw_real tmp106;
- fftw_real tmp91;
- fftw_real tmp31;
- fftw_real tmp46;
- fftw_real tmp107;
- fftw_real tmp111;
- fftw_real tmp94;
- fftw_real tmp97;
- fftw_real tmp99;
- fftw_real tmp114;
- fftw_real tmp100;
- fftw_real tmp101;
- ASSERT_ALIGNED_DOUBLE;
- tmp100 = (K387390585 * tmp77) + (K265966249 * tmp70);
- tmp101 = (K113854479 * tmp86) + (K503537032 * tmp85);
- tmp102 = tmp100 + tmp101;
- tmp115 = tmp100 - tmp101;
- {
- fftw_real tmp78;
- fftw_real tmp105;
- fftw_real tmp87;
- fftw_real tmp90;
- fftw_real tmp104;
- ASSERT_ALIGNED_DOUBLE;
- tmp78 = (K258260390 * tmp70) - (K132983124 * tmp77);
- tmp105 = tmp83 - tmp78;
- tmp87 = (K075902986 * tmp85) - (K251768516 * tmp86);
- tmp90 = tmp88 - (K083333333 * tmp89);
- tmp104 = tmp90 - tmp87;
- tmp84 = (K2_000000000 * tmp78) + tmp83;
- tmp112 = tmp105 + tmp104;
- tmp106 = tmp104 - tmp105;
- tmp91 = (K2_000000000 * tmp87) + tmp90;
- }
- {
- fftw_real tmp42;
- fftw_real tmp45;
- fftw_real tmp95;
- fftw_real tmp96;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = (K575140729 * tmp29) - (K174138601 * tmp30);
- tmp42 = (K300238635 * tmp36) + (K011599105 * tmp41);
- tmp45 = (K256247671 * tmp43) + (K156891391 * tmp44);
- tmp46 = tmp42 - tmp45;
- tmp107 = K1_732050807 * (tmp45 + tmp42);
- tmp111 = tmp31 - tmp46;
- tmp94 = (K575140729 * tmp30) + (K174138601 * tmp29);
- tmp95 = (K156891391 * tmp43) - (K256247671 * tmp44);
- tmp96 = (K300238635 * tmp41) - (K011599105 * tmp36);
- tmp97 = tmp95 + tmp96;
- tmp99 = tmp97 - tmp94;
- tmp114 = K1_732050807 * (tmp96 - tmp95);
- }
- {
- fftw_real tmp47;
- fftw_real tmp92;
- fftw_real tmp109;
- fftw_real tmp110;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = tmp31 + (K2_000000000 * tmp46);
- tmp92 = tmp84 + tmp91;
- c_im(output[ostride]) = tmp47 + tmp92;
- c_im(output[12 * ostride]) = tmp92 - tmp47;
- {
- fftw_real tmp93;
- fftw_real tmp98;
- fftw_real tmp103;
- fftw_real tmp108;
- ASSERT_ALIGNED_DOUBLE;
- tmp93 = tmp91 - tmp84;
- tmp98 = tmp94 + (K2_000000000 * tmp97);
- c_im(output[5 * ostride]) = tmp93 - tmp98;
- c_im(output[8 * ostride]) = tmp98 + tmp93;
- tmp103 = tmp99 + tmp102;
- tmp108 = tmp106 - tmp107;
- c_im(output[2 * ostride]) = tmp103 + tmp108;
- c_im(output[7 * ostride]) = tmp108 - tmp103;
- }
- tmp109 = tmp107 + tmp106;
- tmp110 = tmp102 - tmp99;
- c_im(output[6 * ostride]) = tmp109 - tmp110;
- c_im(output[11 * ostride]) = tmp110 + tmp109;
- {
- fftw_real tmp117;
- fftw_real tmp118;
- fftw_real tmp113;
- fftw_real tmp116;
- ASSERT_ALIGNED_DOUBLE;
- tmp117 = tmp112 - tmp111;
- tmp118 = tmp114 - tmp115;
- c_im(output[4 * ostride]) = tmp117 - tmp118;
- c_im(output[10 * ostride]) = tmp118 + tmp117;
- tmp113 = tmp111 + tmp112;
- tmp116 = tmp114 + tmp115;
- c_im(output[3 * ostride]) = tmp113 - tmp116;
- c_im(output[9 * ostride]) = tmp116 + tmp113;
- }
- }
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_13_desc =
-{
- "fftw_no_twiddle_13",
- (void (*)()) fftw_no_twiddle_13,
- 13,
- FFTW_FORWARD,
- FFTW_NOTW,
- 287,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_14.c b/src/sndobj/rfftw/fn_14.c
deleted file mode 100644
index bb61195..0000000
--- a/src/sndobj/rfftw/fn_14.c
+++ /dev/null
@@ -1,355 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:49 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 14 */
-
-/*
- * This function contains 148 FP additions, 72 FP multiplications,
- * (or, 148 additions, 72 multiplications, 0 fused multiply/add),
- * 36 stack variables, and 56 memory accesses
- */
-static const fftw_real K222520933 = FFTW_KONST(+0.222520933956314404288902564496794759466355569);
-static const fftw_real K900968867 = FFTW_KONST(+0.900968867902419126236102319507445051165919162);
-static const fftw_real K623489801 = FFTW_KONST(+0.623489801858733530525004884004239810632274731);
-static const fftw_real K433883739 = FFTW_KONST(+0.433883739117558120475768332848358754609990728);
-static const fftw_real K781831482 = FFTW_KONST(+0.781831482468029808708444526674057750232334519);
-static const fftw_real K974927912 = FFTW_KONST(+0.974927912181823607018131682993931217232785801);
-
-/*
- * Generator Id's :
- * $Id: fn_14.c,v 1.1.1.1 2006/05/12 15:14:57 veplaini Exp $
- * $Id: fn_14.c,v 1.1.1.1 2006/05/12 15:14:57 veplaini Exp $
- * $Id: fn_14.c,v 1.1.1.1 2006/05/12 15:14:57 veplaini Exp $
- */
-
-void fftw_no_twiddle_14(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp25;
- fftw_real tmp68;
- fftw_real tmp77;
- fftw_real tmp10;
- fftw_real tmp62;
- fftw_real tmp28;
- fftw_real tmp88;
- fftw_real tmp42;
- fftw_real tmp71;
- fftw_real tmp80;
- fftw_real tmp97;
- fftw_real tmp17;
- fftw_real tmp64;
- fftw_real tmp31;
- fftw_real tmp90;
- fftw_real tmp56;
- fftw_real tmp69;
- fftw_real tmp86;
- fftw_real tmp99;
- fftw_real tmp24;
- fftw_real tmp63;
- fftw_real tmp34;
- fftw_real tmp89;
- fftw_real tmp49;
- fftw_real tmp70;
- fftw_real tmp83;
- fftw_real tmp98;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp66;
- fftw_real tmp67;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[7 * istride]);
- tmp3 = tmp1 - tmp2;
- tmp25 = tmp1 + tmp2;
- tmp66 = c_im(input[0]);
- tmp67 = c_im(input[7 * istride]);
- tmp68 = tmp66 - tmp67;
- tmp77 = tmp66 + tmp67;
- }
- {
- fftw_real tmp6;
- fftw_real tmp26;
- fftw_real tmp9;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp7;
- fftw_real tmp8;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[2 * istride]);
- tmp5 = c_re(input[9 * istride]);
- tmp6 = tmp4 - tmp5;
- tmp26 = tmp4 + tmp5;
- tmp7 = c_re(input[12 * istride]);
- tmp8 = c_re(input[5 * istride]);
- tmp9 = tmp7 - tmp8;
- tmp27 = tmp7 + tmp8;
- }
- tmp10 = tmp6 + tmp9;
- tmp62 = tmp9 - tmp6;
- tmp28 = tmp26 + tmp27;
- tmp88 = tmp27 - tmp26;
- }
- {
- fftw_real tmp38;
- fftw_real tmp78;
- fftw_real tmp41;
- fftw_real tmp79;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp36;
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp36 = c_im(input[2 * istride]);
- tmp37 = c_im(input[9 * istride]);
- tmp38 = tmp36 - tmp37;
- tmp78 = tmp36 + tmp37;
- tmp39 = c_im(input[12 * istride]);
- tmp40 = c_im(input[5 * istride]);
- tmp41 = tmp39 - tmp40;
- tmp79 = tmp39 + tmp40;
- }
- tmp42 = tmp38 - tmp41;
- tmp71 = tmp38 + tmp41;
- tmp80 = tmp78 + tmp79;
- tmp97 = tmp78 - tmp79;
- }
- {
- fftw_real tmp13;
- fftw_real tmp29;
- fftw_real tmp16;
- fftw_real tmp30;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[4 * istride]);
- tmp12 = c_re(input[11 * istride]);
- tmp13 = tmp11 - tmp12;
- tmp29 = tmp11 + tmp12;
- tmp14 = c_re(input[10 * istride]);
- tmp15 = c_re(input[3 * istride]);
- tmp16 = tmp14 - tmp15;
- tmp30 = tmp14 + tmp15;
- }
- tmp17 = tmp13 + tmp16;
- tmp64 = tmp16 - tmp13;
- tmp31 = tmp29 + tmp30;
- tmp90 = tmp29 - tmp30;
- }
- {
- fftw_real tmp52;
- fftw_real tmp84;
- fftw_real tmp55;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp53;
- fftw_real tmp54;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = c_im(input[4 * istride]);
- tmp51 = c_im(input[11 * istride]);
- tmp52 = tmp50 - tmp51;
- tmp84 = tmp50 + tmp51;
- tmp53 = c_im(input[10 * istride]);
- tmp54 = c_im(input[3 * istride]);
- tmp55 = tmp53 - tmp54;
- tmp85 = tmp53 + tmp54;
- }
- tmp56 = tmp52 - tmp55;
- tmp69 = tmp52 + tmp55;
- tmp86 = tmp84 + tmp85;
- tmp99 = tmp85 - tmp84;
- }
- {
- fftw_real tmp20;
- fftw_real tmp32;
- fftw_real tmp23;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp21;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp18 = c_re(input[6 * istride]);
- tmp19 = c_re(input[13 * istride]);
- tmp20 = tmp18 - tmp19;
- tmp32 = tmp18 + tmp19;
- tmp21 = c_re(input[8 * istride]);
- tmp22 = c_re(input[istride]);
- tmp23 = tmp21 - tmp22;
- tmp33 = tmp21 + tmp22;
- }
- tmp24 = tmp20 + tmp23;
- tmp63 = tmp23 - tmp20;
- tmp34 = tmp32 + tmp33;
- tmp89 = tmp32 - tmp33;
- }
- {
- fftw_real tmp45;
- fftw_real tmp81;
- fftw_real tmp48;
- fftw_real tmp82;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp43;
- fftw_real tmp44;
- fftw_real tmp46;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = c_im(input[6 * istride]);
- tmp44 = c_im(input[13 * istride]);
- tmp45 = tmp43 - tmp44;
- tmp81 = tmp43 + tmp44;
- tmp46 = c_im(input[8 * istride]);
- tmp47 = c_im(input[istride]);
- tmp48 = tmp46 - tmp47;
- tmp82 = tmp46 + tmp47;
- }
- tmp49 = tmp45 - tmp48;
- tmp70 = tmp45 + tmp48;
- tmp83 = tmp81 + tmp82;
- tmp98 = tmp82 - tmp81;
- }
- {
- fftw_real tmp57;
- fftw_real tmp35;
- fftw_real tmp100;
- fftw_real tmp96;
- ASSERT_ALIGNED_DOUBLE;
- c_re(output[7 * ostride]) = tmp3 + tmp10 + tmp17 + tmp24;
- tmp57 = (K974927912 * tmp42) - (K781831482 * tmp49) - (K433883739 * tmp56);
- tmp35 = tmp3 + (K623489801 * tmp24) - (K900968867 * tmp17) - (K222520933 * tmp10);
- c_re(output[5 * ostride]) = tmp35 - tmp57;
- c_re(output[9 * ostride]) = tmp35 + tmp57;
- {
- fftw_real tmp59;
- fftw_real tmp58;
- fftw_real tmp61;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- tmp59 = (K781831482 * tmp42) + (K974927912 * tmp56) + (K433883739 * tmp49);
- tmp58 = tmp3 + (K623489801 * tmp10) - (K900968867 * tmp24) - (K222520933 * tmp17);
- c_re(output[13 * ostride]) = tmp58 - tmp59;
- c_re(output[ostride]) = tmp58 + tmp59;
- tmp61 = (K433883739 * tmp42) + (K974927912 * tmp49) - (K781831482 * tmp56);
- tmp60 = tmp3 + (K623489801 * tmp17) - (K222520933 * tmp24) - (K900968867 * tmp10);
- c_re(output[11 * ostride]) = tmp60 - tmp61;
- c_re(output[3 * ostride]) = tmp60 + tmp61;
- }
- c_re(output[0]) = tmp25 + tmp28 + tmp31 + tmp34;
- tmp100 = (K781831482 * tmp97) - (K433883739 * tmp98) - (K974927912 * tmp99);
- tmp96 = tmp25 + (K623489801 * tmp28) - (K900968867 * tmp34) - (K222520933 * tmp31);
- c_re(output[6 * ostride]) = tmp96 - tmp100;
- c_re(output[8 * ostride]) = tmp96 + tmp100;
- {
- fftw_real tmp102;
- fftw_real tmp101;
- fftw_real tmp104;
- fftw_real tmp103;
- ASSERT_ALIGNED_DOUBLE;
- tmp102 = (K433883739 * tmp97) + (K781831482 * tmp99) - (K974927912 * tmp98);
- tmp101 = tmp25 + (K623489801 * tmp31) - (K222520933 * tmp34) - (K900968867 * tmp28);
- c_re(output[4 * ostride]) = tmp101 - tmp102;
- c_re(output[10 * ostride]) = tmp101 + tmp102;
- tmp104 = (K974927912 * tmp97) + (K433883739 * tmp99) + (K781831482 * tmp98);
- tmp103 = tmp25 + (K623489801 * tmp34) - (K900968867 * tmp31) - (K222520933 * tmp28);
- c_re(output[12 * ostride]) = tmp103 - tmp104;
- c_re(output[2 * ostride]) = tmp103 + tmp104;
- }
- }
- {
- fftw_real tmp76;
- fftw_real tmp75;
- fftw_real tmp94;
- fftw_real tmp95;
- ASSERT_ALIGNED_DOUBLE;
- c_im(output[7 * ostride]) = tmp68 + tmp71 + tmp69 + tmp70;
- tmp76 = (K974927912 * tmp62) - (K781831482 * tmp63) - (K433883739 * tmp64);
- tmp75 = tmp68 + (K623489801 * tmp70) - (K900968867 * tmp69) - (K222520933 * tmp71);
- c_im(output[5 * ostride]) = tmp75 - tmp76;
- c_im(output[9 * ostride]) = tmp76 + tmp75;
- {
- fftw_real tmp73;
- fftw_real tmp74;
- fftw_real tmp65;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = (K781831482 * tmp62) + (K974927912 * tmp64) + (K433883739 * tmp63);
- tmp74 = tmp68 + (K623489801 * tmp71) - (K900968867 * tmp70) - (K222520933 * tmp69);
- c_im(output[ostride]) = tmp73 + tmp74;
- c_im(output[13 * ostride]) = tmp74 - tmp73;
- tmp65 = (K433883739 * tmp62) + (K974927912 * tmp63) - (K781831482 * tmp64);
- tmp72 = tmp68 + (K623489801 * tmp69) - (K222520933 * tmp70) - (K900968867 * tmp71);
- c_im(output[3 * ostride]) = tmp65 + tmp72;
- c_im(output[11 * ostride]) = tmp72 - tmp65;
- }
- c_im(output[0]) = tmp77 + tmp80 + tmp86 + tmp83;
- tmp94 = (K974927912 * tmp88) + (K433883739 * tmp90) + (K781831482 * tmp89);
- tmp95 = tmp77 + (K623489801 * tmp83) - (K900968867 * tmp86) - (K222520933 * tmp80);
- c_im(output[2 * ostride]) = tmp94 + tmp95;
- c_im(output[12 * ostride]) = tmp95 - tmp94;
- {
- fftw_real tmp91;
- fftw_real tmp87;
- fftw_real tmp93;
- fftw_real tmp92;
- ASSERT_ALIGNED_DOUBLE;
- tmp91 = (K781831482 * tmp88) - (K433883739 * tmp89) - (K974927912 * tmp90);
- tmp87 = tmp77 + (K623489801 * tmp80) - (K900968867 * tmp83) - (K222520933 * tmp86);
- c_im(output[6 * ostride]) = tmp87 - tmp91;
- c_im(output[8 * ostride]) = tmp91 + tmp87;
- tmp93 = (K433883739 * tmp88) + (K781831482 * tmp90) - (K974927912 * tmp89);
- tmp92 = tmp77 + (K623489801 * tmp86) - (K222520933 * tmp83) - (K900968867 * tmp80);
- c_im(output[4 * ostride]) = tmp92 - tmp93;
- c_im(output[10 * ostride]) = tmp93 + tmp92;
- }
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_14_desc =
-{
- "fftw_no_twiddle_14",
- (void (*)()) fftw_no_twiddle_14,
- 14,
- FFTW_FORWARD,
- FFTW_NOTW,
- 309,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_15.c b/src/sndobj/rfftw/fn_15.c
deleted file mode 100644
index e324734..0000000
--- a/src/sndobj/rfftw/fn_15.c
+++ /dev/null
@@ -1,446 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:49 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 15 */
-
-/*
- * This function contains 156 FP additions, 56 FP multiplications,
- * (or, 128 additions, 28 multiplications, 28 fused multiply/add),
- * 62 stack variables, and 60 memory accesses
- */
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-
-/*
- * Generator Id's :
- * $Id: fn_15.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- * $Id: fn_15.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- * $Id: fn_15.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- */
-
-void fftw_no_twiddle_15(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp5;
- fftw_real tmp33;
- fftw_real tmp57;
- fftw_real tmp145;
- fftw_real tmp100;
- fftw_real tmp124;
- fftw_real tmp21;
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp49;
- fftw_real tmp54;
- fftw_real tmp55;
- fftw_real tmp136;
- fftw_real tmp137;
- fftw_real tmp147;
- fftw_real tmp61;
- fftw_real tmp62;
- fftw_real tmp63;
- fftw_real tmp112;
- fftw_real tmp113;
- fftw_real tmp126;
- fftw_real tmp83;
- fftw_real tmp88;
- fftw_real tmp94;
- fftw_real tmp10;
- fftw_real tmp15;
- fftw_real tmp16;
- fftw_real tmp38;
- fftw_real tmp43;
- fftw_real tmp44;
- fftw_real tmp139;
- fftw_real tmp140;
- fftw_real tmp146;
- fftw_real tmp58;
- fftw_real tmp59;
- fftw_real tmp60;
- fftw_real tmp115;
- fftw_real tmp116;
- fftw_real tmp125;
- fftw_real tmp72;
- fftw_real tmp77;
- fftw_real tmp93;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp97;
- fftw_real tmp4;
- fftw_real tmp96;
- fftw_real tmp32;
- fftw_real tmp98;
- fftw_real tmp29;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp97 = c_im(input[0]);
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp30;
- fftw_real tmp31;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = c_re(input[5 * istride]);
- tmp3 = c_re(input[10 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp96 = K866025403 * (tmp3 - tmp2);
- tmp30 = c_im(input[5 * istride]);
- tmp31 = c_im(input[10 * istride]);
- tmp32 = K866025403 * (tmp30 - tmp31);
- tmp98 = tmp30 + tmp31;
- }
- tmp5 = tmp1 + tmp4;
- tmp29 = tmp1 - (K500000000 * tmp4);
- tmp33 = tmp29 - tmp32;
- tmp57 = tmp29 + tmp32;
- tmp145 = tmp97 + tmp98;
- tmp99 = tmp97 - (K500000000 * tmp98);
- tmp100 = tmp96 + tmp99;
- tmp124 = tmp99 - tmp96;
- }
- {
- fftw_real tmp17;
- fftw_real tmp20;
- fftw_real tmp45;
- fftw_real tmp79;
- fftw_real tmp80;
- fftw_real tmp81;
- fftw_real tmp48;
- fftw_real tmp82;
- fftw_real tmp22;
- fftw_real tmp25;
- fftw_real tmp50;
- fftw_real tmp84;
- fftw_real tmp85;
- fftw_real tmp86;
- fftw_real tmp53;
- fftw_real tmp87;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp46;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- tmp17 = c_re(input[6 * istride]);
- tmp18 = c_re(input[11 * istride]);
- tmp19 = c_re(input[istride]);
- tmp20 = tmp18 + tmp19;
- tmp45 = tmp17 - (K500000000 * tmp20);
- tmp79 = K866025403 * (tmp19 - tmp18);
- tmp80 = c_im(input[6 * istride]);
- tmp46 = c_im(input[11 * istride]);
- tmp47 = c_im(input[istride]);
- tmp81 = tmp46 + tmp47;
- tmp48 = K866025403 * (tmp46 - tmp47);
- tmp82 = tmp80 - (K500000000 * tmp81);
- }
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp51;
- fftw_real tmp52;
- ASSERT_ALIGNED_DOUBLE;
- tmp22 = c_re(input[9 * istride]);
- tmp23 = c_re(input[14 * istride]);
- tmp24 = c_re(input[4 * istride]);
- tmp25 = tmp23 + tmp24;
- tmp50 = tmp22 - (K500000000 * tmp25);
- tmp84 = K866025403 * (tmp24 - tmp23);
- tmp85 = c_im(input[9 * istride]);
- tmp51 = c_im(input[14 * istride]);
- tmp52 = c_im(input[4 * istride]);
- tmp86 = tmp51 + tmp52;
- tmp53 = K866025403 * (tmp51 - tmp52);
- tmp87 = tmp85 - (K500000000 * tmp86);
- }
- tmp21 = tmp17 + tmp20;
- tmp26 = tmp22 + tmp25;
- tmp27 = tmp21 + tmp26;
- tmp49 = tmp45 - tmp48;
- tmp54 = tmp50 - tmp53;
- tmp55 = tmp49 + tmp54;
- tmp136 = tmp80 + tmp81;
- tmp137 = tmp85 + tmp86;
- tmp147 = tmp136 + tmp137;
- tmp61 = tmp45 + tmp48;
- tmp62 = tmp50 + tmp53;
- tmp63 = tmp61 + tmp62;
- tmp112 = tmp82 - tmp79;
- tmp113 = tmp87 - tmp84;
- tmp126 = tmp112 + tmp113;
- tmp83 = tmp79 + tmp82;
- tmp88 = tmp84 + tmp87;
- tmp94 = tmp83 + tmp88;
- }
- {
- fftw_real tmp6;
- fftw_real tmp9;
- fftw_real tmp34;
- fftw_real tmp68;
- fftw_real tmp69;
- fftw_real tmp70;
- fftw_real tmp37;
- fftw_real tmp71;
- fftw_real tmp11;
- fftw_real tmp14;
- fftw_real tmp39;
- fftw_real tmp73;
- fftw_real tmp74;
- fftw_real tmp75;
- fftw_real tmp42;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp35;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = c_re(input[3 * istride]);
- tmp7 = c_re(input[8 * istride]);
- tmp8 = c_re(input[13 * istride]);
- tmp9 = tmp7 + tmp8;
- tmp34 = tmp6 - (K500000000 * tmp9);
- tmp68 = K866025403 * (tmp8 - tmp7);
- tmp69 = c_im(input[3 * istride]);
- tmp35 = c_im(input[8 * istride]);
- tmp36 = c_im(input[13 * istride]);
- tmp70 = tmp35 + tmp36;
- tmp37 = K866025403 * (tmp35 - tmp36);
- tmp71 = tmp69 - (K500000000 * tmp70);
- }
- {
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp40;
- fftw_real tmp41;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[12 * istride]);
- tmp12 = c_re(input[2 * istride]);
- tmp13 = c_re(input[7 * istride]);
- tmp14 = tmp12 + tmp13;
- tmp39 = tmp11 - (K500000000 * tmp14);
- tmp73 = K866025403 * (tmp13 - tmp12);
- tmp74 = c_im(input[12 * istride]);
- tmp40 = c_im(input[2 * istride]);
- tmp41 = c_im(input[7 * istride]);
- tmp75 = tmp40 + tmp41;
- tmp42 = K866025403 * (tmp40 - tmp41);
- tmp76 = tmp74 - (K500000000 * tmp75);
- }
- tmp10 = tmp6 + tmp9;
- tmp15 = tmp11 + tmp14;
- tmp16 = tmp10 + tmp15;
- tmp38 = tmp34 - tmp37;
- tmp43 = tmp39 - tmp42;
- tmp44 = tmp38 + tmp43;
- tmp139 = tmp69 + tmp70;
- tmp140 = tmp74 + tmp75;
- tmp146 = tmp139 + tmp140;
- tmp58 = tmp34 + tmp37;
- tmp59 = tmp39 + tmp42;
- tmp60 = tmp58 + tmp59;
- tmp115 = tmp71 - tmp68;
- tmp116 = tmp76 - tmp73;
- tmp125 = tmp115 + tmp116;
- tmp72 = tmp68 + tmp71;
- tmp77 = tmp73 + tmp76;
- tmp93 = tmp72 + tmp77;
- }
- {
- fftw_real tmp134;
- fftw_real tmp28;
- fftw_real tmp133;
- fftw_real tmp142;
- fftw_real tmp144;
- fftw_real tmp138;
- fftw_real tmp141;
- fftw_real tmp143;
- fftw_real tmp135;
- ASSERT_ALIGNED_DOUBLE;
- tmp134 = K559016994 * (tmp16 - tmp27);
- tmp28 = tmp16 + tmp27;
- tmp133 = tmp5 - (K250000000 * tmp28);
- tmp138 = tmp136 - tmp137;
- tmp141 = tmp139 - tmp140;
- tmp142 = (K951056516 * tmp138) - (K587785252 * tmp141);
- tmp144 = (K951056516 * tmp141) + (K587785252 * tmp138);
- c_re(output[0]) = tmp5 + tmp28;
- tmp143 = tmp134 + tmp133;
- c_re(output[9 * ostride]) = tmp143 - tmp144;
- c_re(output[6 * ostride]) = tmp143 + tmp144;
- tmp135 = tmp133 - tmp134;
- c_re(output[12 * ostride]) = tmp135 - tmp142;
- c_re(output[3 * ostride]) = tmp135 + tmp142;
- }
- {
- fftw_real tmp110;
- fftw_real tmp56;
- fftw_real tmp109;
- fftw_real tmp118;
- fftw_real tmp120;
- fftw_real tmp114;
- fftw_real tmp117;
- fftw_real tmp119;
- fftw_real tmp111;
- ASSERT_ALIGNED_DOUBLE;
- tmp110 = K559016994 * (tmp44 - tmp55);
- tmp56 = tmp44 + tmp55;
- tmp109 = tmp33 - (K250000000 * tmp56);
- tmp114 = tmp112 - tmp113;
- tmp117 = tmp115 - tmp116;
- tmp118 = (K951056516 * tmp114) - (K587785252 * tmp117);
- tmp120 = (K951056516 * tmp117) + (K587785252 * tmp114);
- c_re(output[5 * ostride]) = tmp33 + tmp56;
- tmp119 = tmp110 + tmp109;
- c_re(output[14 * ostride]) = tmp119 - tmp120;
- c_re(output[11 * ostride]) = tmp119 + tmp120;
- tmp111 = tmp109 - tmp110;
- c_re(output[2 * ostride]) = tmp111 - tmp118;
- c_re(output[8 * ostride]) = tmp111 + tmp118;
- }
- {
- fftw_real tmp150;
- fftw_real tmp148;
- fftw_real tmp149;
- fftw_real tmp154;
- fftw_real tmp156;
- fftw_real tmp152;
- fftw_real tmp153;
- fftw_real tmp155;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- tmp150 = K559016994 * (tmp146 - tmp147);
- tmp148 = tmp146 + tmp147;
- tmp149 = tmp145 - (K250000000 * tmp148);
- tmp152 = tmp21 - tmp26;
- tmp153 = tmp10 - tmp15;
- tmp154 = (K951056516 * tmp152) - (K587785252 * tmp153);
- tmp156 = (K951056516 * tmp153) + (K587785252 * tmp152);
- c_im(output[0]) = tmp145 + tmp148;
- tmp155 = tmp150 + tmp149;
- c_im(output[6 * ostride]) = tmp155 - tmp156;
- c_im(output[9 * ostride]) = tmp156 + tmp155;
- tmp151 = tmp149 - tmp150;
- c_im(output[3 * ostride]) = tmp151 - tmp154;
- c_im(output[12 * ostride]) = tmp154 + tmp151;
- }
- {
- fftw_real tmp129;
- fftw_real tmp127;
- fftw_real tmp128;
- fftw_real tmp123;
- fftw_real tmp132;
- fftw_real tmp121;
- fftw_real tmp122;
- fftw_real tmp131;
- fftw_real tmp130;
- ASSERT_ALIGNED_DOUBLE;
- tmp129 = K559016994 * (tmp125 - tmp126);
- tmp127 = tmp125 + tmp126;
- tmp128 = tmp124 - (K250000000 * tmp127);
- tmp121 = tmp49 - tmp54;
- tmp122 = tmp38 - tmp43;
- tmp123 = (K951056516 * tmp121) - (K587785252 * tmp122);
- tmp132 = (K951056516 * tmp122) + (K587785252 * tmp121);
- c_im(output[5 * ostride]) = tmp124 + tmp127;
- tmp131 = tmp129 + tmp128;
- c_im(output[11 * ostride]) = tmp131 - tmp132;
- c_im(output[14 * ostride]) = tmp132 + tmp131;
- tmp130 = tmp128 - tmp129;
- c_im(output[2 * ostride]) = tmp123 + tmp130;
- c_im(output[8 * ostride]) = tmp130 - tmp123;
- }
- {
- fftw_real tmp95;
- fftw_real tmp101;
- fftw_real tmp102;
- fftw_real tmp106;
- fftw_real tmp107;
- fftw_real tmp104;
- fftw_real tmp105;
- fftw_real tmp108;
- fftw_real tmp103;
- ASSERT_ALIGNED_DOUBLE;
- tmp95 = K559016994 * (tmp93 - tmp94);
- tmp101 = tmp93 + tmp94;
- tmp102 = tmp100 - (K250000000 * tmp101);
- tmp104 = tmp58 - tmp59;
- tmp105 = tmp61 - tmp62;
- tmp106 = (K951056516 * tmp104) + (K587785252 * tmp105);
- tmp107 = (K951056516 * tmp105) - (K587785252 * tmp104);
- c_im(output[10 * ostride]) = tmp100 + tmp101;
- tmp108 = tmp102 - tmp95;
- c_im(output[7 * ostride]) = tmp107 + tmp108;
- c_im(output[13 * ostride]) = tmp108 - tmp107;
- tmp103 = tmp95 + tmp102;
- c_im(output[ostride]) = tmp103 - tmp106;
- c_im(output[4 * ostride]) = tmp106 + tmp103;
- }
- {
- fftw_real tmp65;
- fftw_real tmp64;
- fftw_real tmp66;
- fftw_real tmp90;
- fftw_real tmp92;
- fftw_real tmp78;
- fftw_real tmp89;
- fftw_real tmp91;
- fftw_real tmp67;
- ASSERT_ALIGNED_DOUBLE;
- tmp65 = K559016994 * (tmp60 - tmp63);
- tmp64 = tmp60 + tmp63;
- tmp66 = tmp57 - (K250000000 * tmp64);
- tmp78 = tmp72 - tmp77;
- tmp89 = tmp83 - tmp88;
- tmp90 = (K951056516 * tmp78) + (K587785252 * tmp89);
- tmp92 = (K951056516 * tmp89) - (K587785252 * tmp78);
- c_re(output[10 * ostride]) = tmp57 + tmp64;
- tmp91 = tmp66 - tmp65;
- c_re(output[7 * ostride]) = tmp91 - tmp92;
- c_re(output[13 * ostride]) = tmp91 + tmp92;
- tmp67 = tmp65 + tmp66;
- c_re(output[4 * ostride]) = tmp67 - tmp90;
- c_re(output[ostride]) = tmp67 + tmp90;
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_15_desc =
-{
- "fftw_no_twiddle_15",
- (void (*)()) fftw_no_twiddle_15,
- 15,
- FFTW_FORWARD,
- FFTW_NOTW,
- 331,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_16.c b/src/sndobj/rfftw/fn_16.c
deleted file mode 100644
index cbe06fd..0000000
--- a/src/sndobj/rfftw/fn_16.c
+++ /dev/null
@@ -1,439 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:51 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 16 */
-
-/*
- * This function contains 144 FP additions, 24 FP multiplications,
- * (or, 136 additions, 16 multiplications, 8 fused multiply/add),
- * 46 stack variables, and 64 memory accesses
- */
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: fn_16.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fn_16.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fn_16.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- */
-
-void fftw_no_twiddle_16(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp7;
- fftw_real tmp115;
- fftw_real tmp38;
- fftw_real tmp129;
- fftw_real tmp49;
- fftw_real tmp95;
- fftw_real tmp83;
- fftw_real tmp105;
- fftw_real tmp29;
- fftw_real tmp123;
- fftw_real tmp73;
- fftw_real tmp101;
- fftw_real tmp78;
- fftw_real tmp102;
- fftw_real tmp126;
- fftw_real tmp141;
- fftw_real tmp14;
- fftw_real tmp130;
- fftw_real tmp45;
- fftw_real tmp116;
- fftw_real tmp52;
- fftw_real tmp85;
- fftw_real tmp55;
- fftw_real tmp84;
- fftw_real tmp22;
- fftw_real tmp118;
- fftw_real tmp62;
- fftw_real tmp98;
- fftw_real tmp67;
- fftw_real tmp99;
- fftw_real tmp121;
- fftw_real tmp140;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp47;
- fftw_real tmp34;
- fftw_real tmp82;
- fftw_real tmp6;
- fftw_real tmp81;
- fftw_real tmp37;
- fftw_real tmp48;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp32;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[8 * istride]);
- tmp3 = tmp1 + tmp2;
- tmp47 = tmp1 - tmp2;
- tmp32 = c_im(input[0]);
- tmp33 = c_im(input[8 * istride]);
- tmp34 = tmp32 + tmp33;
- tmp82 = tmp32 - tmp33;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp35;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[4 * istride]);
- tmp5 = c_re(input[12 * istride]);
- tmp6 = tmp4 + tmp5;
- tmp81 = tmp4 - tmp5;
- tmp35 = c_im(input[4 * istride]);
- tmp36 = c_im(input[12 * istride]);
- tmp37 = tmp35 + tmp36;
- tmp48 = tmp35 - tmp36;
- }
- tmp7 = tmp3 + tmp6;
- tmp115 = tmp3 - tmp6;
- tmp38 = tmp34 + tmp37;
- tmp129 = tmp34 - tmp37;
- tmp49 = tmp47 - tmp48;
- tmp95 = tmp47 + tmp48;
- tmp83 = tmp81 + tmp82;
- tmp105 = tmp82 - tmp81;
- }
- {
- fftw_real tmp25;
- fftw_real tmp69;
- fftw_real tmp77;
- fftw_real tmp124;
- fftw_real tmp28;
- fftw_real tmp74;
- fftw_real tmp72;
- fftw_real tmp125;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp75;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = c_re(input[15 * istride]);
- tmp24 = c_re(input[7 * istride]);
- tmp25 = tmp23 + tmp24;
- tmp69 = tmp23 - tmp24;
- tmp75 = c_im(input[15 * istride]);
- tmp76 = c_im(input[7 * istride]);
- tmp77 = tmp75 - tmp76;
- tmp124 = tmp75 + tmp76;
- }
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp70;
- fftw_real tmp71;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(input[3 * istride]);
- tmp27 = c_re(input[11 * istride]);
- tmp28 = tmp26 + tmp27;
- tmp74 = tmp26 - tmp27;
- tmp70 = c_im(input[3 * istride]);
- tmp71 = c_im(input[11 * istride]);
- tmp72 = tmp70 - tmp71;
- tmp125 = tmp70 + tmp71;
- }
- tmp29 = tmp25 + tmp28;
- tmp123 = tmp25 - tmp28;
- tmp73 = tmp69 - tmp72;
- tmp101 = tmp69 + tmp72;
- tmp78 = tmp74 + tmp77;
- tmp102 = tmp77 - tmp74;
- tmp126 = tmp124 - tmp125;
- tmp141 = tmp124 + tmp125;
- }
- {
- fftw_real tmp10;
- fftw_real tmp51;
- fftw_real tmp41;
- fftw_real tmp50;
- fftw_real tmp13;
- fftw_real tmp53;
- fftw_real tmp44;
- fftw_real tmp54;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp39;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[2 * istride]);
- tmp9 = c_re(input[10 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp51 = tmp8 - tmp9;
- tmp39 = c_im(input[2 * istride]);
- tmp40 = c_im(input[10 * istride]);
- tmp41 = tmp39 + tmp40;
- tmp50 = tmp39 - tmp40;
- }
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp42;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[14 * istride]);
- tmp12 = c_re(input[6 * istride]);
- tmp13 = tmp11 + tmp12;
- tmp53 = tmp11 - tmp12;
- tmp42 = c_im(input[14 * istride]);
- tmp43 = c_im(input[6 * istride]);
- tmp44 = tmp42 + tmp43;
- tmp54 = tmp42 - tmp43;
- }
- tmp14 = tmp10 + tmp13;
- tmp130 = tmp13 - tmp10;
- tmp45 = tmp41 + tmp44;
- tmp116 = tmp41 - tmp44;
- tmp52 = tmp50 - tmp51;
- tmp85 = tmp51 + tmp50;
- tmp55 = tmp53 + tmp54;
- tmp84 = tmp53 - tmp54;
- }
- {
- fftw_real tmp18;
- fftw_real tmp63;
- fftw_real tmp61;
- fftw_real tmp119;
- fftw_real tmp21;
- fftw_real tmp58;
- fftw_real tmp66;
- fftw_real tmp120;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp59;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_re(input[istride]);
- tmp17 = c_re(input[9 * istride]);
- tmp18 = tmp16 + tmp17;
- tmp63 = tmp16 - tmp17;
- tmp59 = c_im(input[istride]);
- tmp60 = c_im(input[9 * istride]);
- tmp61 = tmp59 - tmp60;
- tmp119 = tmp59 + tmp60;
- }
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp64;
- fftw_real tmp65;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = c_re(input[5 * istride]);
- tmp20 = c_re(input[13 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp58 = tmp19 - tmp20;
- tmp64 = c_im(input[5 * istride]);
- tmp65 = c_im(input[13 * istride]);
- tmp66 = tmp64 - tmp65;
- tmp120 = tmp64 + tmp65;
- }
- tmp22 = tmp18 + tmp21;
- tmp118 = tmp18 - tmp21;
- tmp62 = tmp58 + tmp61;
- tmp98 = tmp61 - tmp58;
- tmp67 = tmp63 - tmp66;
- tmp99 = tmp63 + tmp66;
- tmp121 = tmp119 - tmp120;
- tmp140 = tmp119 + tmp120;
- }
- {
- fftw_real tmp15;
- fftw_real tmp30;
- fftw_real tmp31;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = tmp7 + tmp14;
- tmp30 = tmp22 + tmp29;
- c_re(output[8 * ostride]) = tmp15 - tmp30;
- c_re(output[0]) = tmp15 + tmp30;
- tmp31 = tmp29 - tmp22;
- tmp46 = tmp38 - tmp45;
- c_im(output[4 * ostride]) = tmp31 + tmp46;
- c_im(output[12 * ostride]) = tmp46 - tmp31;
- }
- {
- fftw_real tmp143;
- fftw_real tmp144;
- fftw_real tmp139;
- fftw_real tmp142;
- ASSERT_ALIGNED_DOUBLE;
- tmp143 = tmp38 + tmp45;
- tmp144 = tmp140 + tmp141;
- c_im(output[8 * ostride]) = tmp143 - tmp144;
- c_im(output[0]) = tmp143 + tmp144;
- tmp139 = tmp7 - tmp14;
- tmp142 = tmp140 - tmp141;
- c_re(output[12 * ostride]) = tmp139 - tmp142;
- c_re(output[4 * ostride]) = tmp139 + tmp142;
- }
- {
- fftw_real tmp117;
- fftw_real tmp131;
- fftw_real tmp128;
- fftw_real tmp132;
- fftw_real tmp122;
- fftw_real tmp127;
- ASSERT_ALIGNED_DOUBLE;
- tmp117 = tmp115 + tmp116;
- tmp131 = tmp129 - tmp130;
- tmp122 = tmp118 + tmp121;
- tmp127 = tmp123 - tmp126;
- tmp128 = K707106781 * (tmp122 + tmp127);
- tmp132 = K707106781 * (tmp127 - tmp122);
- c_re(output[10 * ostride]) = tmp117 - tmp128;
- c_re(output[2 * ostride]) = tmp117 + tmp128;
- c_im(output[14 * ostride]) = tmp131 - tmp132;
- c_im(output[6 * ostride]) = tmp131 + tmp132;
- }
- {
- fftw_real tmp133;
- fftw_real tmp137;
- fftw_real tmp136;
- fftw_real tmp138;
- fftw_real tmp134;
- fftw_real tmp135;
- ASSERT_ALIGNED_DOUBLE;
- tmp133 = tmp115 - tmp116;
- tmp137 = tmp130 + tmp129;
- tmp134 = tmp121 - tmp118;
- tmp135 = tmp123 + tmp126;
- tmp136 = K707106781 * (tmp134 - tmp135);
- tmp138 = K707106781 * (tmp134 + tmp135);
- c_re(output[14 * ostride]) = tmp133 - tmp136;
- c_re(output[6 * ostride]) = tmp133 + tmp136;
- c_im(output[10 * ostride]) = tmp137 - tmp138;
- c_im(output[2 * ostride]) = tmp137 + tmp138;
- }
- {
- fftw_real tmp57;
- fftw_real tmp89;
- fftw_real tmp92;
- fftw_real tmp94;
- fftw_real tmp87;
- fftw_real tmp93;
- fftw_real tmp80;
- fftw_real tmp88;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp56;
- fftw_real tmp90;
- fftw_real tmp91;
- fftw_real tmp86;
- fftw_real tmp68;
- fftw_real tmp79;
- ASSERT_ALIGNED_DOUBLE;
- tmp56 = K707106781 * (tmp52 - tmp55);
- tmp57 = tmp49 + tmp56;
- tmp89 = tmp49 - tmp56;
- tmp90 = (K382683432 * tmp62) - (K923879532 * tmp67);
- tmp91 = (K382683432 * tmp78) + (K923879532 * tmp73);
- tmp92 = tmp90 - tmp91;
- tmp94 = tmp90 + tmp91;
- tmp86 = K707106781 * (tmp84 - tmp85);
- tmp87 = tmp83 - tmp86;
- tmp93 = tmp83 + tmp86;
- tmp68 = (K923879532 * tmp62) + (K382683432 * tmp67);
- tmp79 = (K382683432 * tmp73) - (K923879532 * tmp78);
- tmp80 = tmp68 + tmp79;
- tmp88 = tmp79 - tmp68;
- }
- c_re(output[11 * ostride]) = tmp57 - tmp80;
- c_re(output[3 * ostride]) = tmp57 + tmp80;
- c_im(output[15 * ostride]) = tmp87 - tmp88;
- c_im(output[7 * ostride]) = tmp87 + tmp88;
- c_re(output[15 * ostride]) = tmp89 - tmp92;
- c_re(output[7 * ostride]) = tmp89 + tmp92;
- c_im(output[11 * ostride]) = tmp93 - tmp94;
- c_im(output[3 * ostride]) = tmp93 + tmp94;
- }
- {
- fftw_real tmp97;
- fftw_real tmp109;
- fftw_real tmp112;
- fftw_real tmp114;
- fftw_real tmp107;
- fftw_real tmp113;
- fftw_real tmp104;
- fftw_real tmp108;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp96;
- fftw_real tmp110;
- fftw_real tmp111;
- fftw_real tmp106;
- fftw_real tmp100;
- fftw_real tmp103;
- ASSERT_ALIGNED_DOUBLE;
- tmp96 = K707106781 * (tmp85 + tmp84);
- tmp97 = tmp95 + tmp96;
- tmp109 = tmp95 - tmp96;
- tmp110 = (K923879532 * tmp98) - (K382683432 * tmp99);
- tmp111 = (K923879532 * tmp102) + (K382683432 * tmp101);
- tmp112 = tmp110 - tmp111;
- tmp114 = tmp110 + tmp111;
- tmp106 = K707106781 * (tmp52 + tmp55);
- tmp107 = tmp105 - tmp106;
- tmp113 = tmp105 + tmp106;
- tmp100 = (K382683432 * tmp98) + (K923879532 * tmp99);
- tmp103 = (K923879532 * tmp101) - (K382683432 * tmp102);
- tmp104 = tmp100 + tmp103;
- tmp108 = tmp103 - tmp100;
- }
- c_re(output[9 * ostride]) = tmp97 - tmp104;
- c_re(output[ostride]) = tmp97 + tmp104;
- c_im(output[13 * ostride]) = tmp107 - tmp108;
- c_im(output[5 * ostride]) = tmp107 + tmp108;
- c_re(output[13 * ostride]) = tmp109 - tmp112;
- c_re(output[5 * ostride]) = tmp109 + tmp112;
- c_im(output[9 * ostride]) = tmp113 - tmp114;
- c_im(output[ostride]) = tmp113 + tmp114;
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_16_desc =
-{
- "fftw_no_twiddle_16",
- (void (*)()) fftw_no_twiddle_16,
- 16,
- FFTW_FORWARD,
- FFTW_NOTW,
- 353,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_2.c b/src/sndobj/rfftw/fn_2.c
deleted file mode 100644
index 216a5d5..0000000
--- a/src/sndobj/rfftw/fn_2.c
+++ /dev/null
@@ -1,68 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:47 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 2 */
-
-/*
- * This function contains 4 FP additions, 0 FP multiplications,
- * (or, 4 additions, 0 multiplications, 0 fused multiply/add),
- * 4 stack variables, and 8 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: fn_2.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fn_2.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fn_2.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftw_no_twiddle_2(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[istride]);
- c_re(output[ostride]) = tmp1 - tmp2;
- c_re(output[0]) = tmp1 + tmp2;
- tmp3 = c_im(input[0]);
- tmp4 = c_im(input[istride]);
- c_im(output[ostride]) = tmp3 - tmp4;
- c_im(output[0]) = tmp3 + tmp4;
-}
-
-fftw_codelet_desc fftw_no_twiddle_2_desc =
-{
- "fftw_no_twiddle_2",
- (void (*)()) fftw_no_twiddle_2,
- 2,
- FFTW_FORWARD,
- FFTW_NOTW,
- 45,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_3.c b/src/sndobj/rfftw/fn_3.c
deleted file mode 100644
index 92718aa..0000000
--- a/src/sndobj/rfftw/fn_3.c
+++ /dev/null
@@ -1,91 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:47 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 3 */
-
-/*
- * This function contains 12 FP additions, 4 FP multiplications,
- * (or, 10 additions, 2 multiplications, 2 fused multiply/add),
- * 12 stack variables, and 12 memory accesses
- */
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-
-/*
- * Generator Id's :
- * $Id: fn_3.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fn_3.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fn_3.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- */
-
-void fftw_no_twiddle_3(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp10;
- fftw_real tmp4;
- fftw_real tmp9;
- fftw_real tmp8;
- fftw_real tmp11;
- fftw_real tmp5;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp10 = c_im(input[0]);
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp6;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = c_re(input[istride]);
- tmp3 = c_re(input[2 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp9 = K866025403 * (tmp3 - tmp2);
- tmp6 = c_im(input[istride]);
- tmp7 = c_im(input[2 * istride]);
- tmp8 = K866025403 * (tmp6 - tmp7);
- tmp11 = tmp6 + tmp7;
- }
- c_re(output[0]) = tmp1 + tmp4;
- tmp5 = tmp1 - (K500000000 * tmp4);
- c_re(output[2 * ostride]) = tmp5 - tmp8;
- c_re(output[ostride]) = tmp5 + tmp8;
- c_im(output[0]) = tmp10 + tmp11;
- tmp12 = tmp10 - (K500000000 * tmp11);
- c_im(output[ostride]) = tmp9 + tmp12;
- c_im(output[2 * ostride]) = tmp12 - tmp9;
-}
-
-fftw_codelet_desc fftw_no_twiddle_3_desc =
-{
- "fftw_no_twiddle_3",
- (void (*)()) fftw_no_twiddle_3,
- 3,
- FFTW_FORWARD,
- FFTW_NOTW,
- 67,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_32.c b/src/sndobj/rfftw/fn_32.c
deleted file mode 100644
index 231a98e..0000000
--- a/src/sndobj/rfftw/fn_32.c
+++ /dev/null
@@ -1,1042 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:51 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 32 */
-
-/*
- * This function contains 372 FP additions, 84 FP multiplications,
- * (or, 340 additions, 52 multiplications, 32 fused multiply/add),
- * 92 stack variables, and 128 memory accesses
- */
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: fn_32.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fn_32.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fn_32.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- */
-
-void fftw_no_twiddle_32(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp7;
- fftw_real tmp275;
- fftw_real tmp70;
- fftw_real tmp309;
- fftw_real tmp97;
- fftw_real tmp215;
- fftw_real tmp179;
- fftw_real tmp241;
- fftw_real tmp14;
- fftw_real tmp310;
- fftw_real tmp77;
- fftw_real tmp276;
- fftw_real tmp182;
- fftw_real tmp216;
- fftw_real tmp104;
- fftw_real tmp242;
- fftw_real tmp153;
- fftw_real tmp233;
- fftw_real tmp53;
- fftw_real tmp60;
- fftw_real tmp351;
- fftw_real tmp306;
- fftw_real tmp330;
- fftw_real tmp352;
- fftw_real tmp353;
- fftw_real tmp354;
- fftw_real tmp170;
- fftw_real tmp236;
- fftw_real tmp301;
- fftw_real tmp329;
- fftw_real tmp164;
- fftw_real tmp237;
- fftw_real tmp173;
- fftw_real tmp234;
- fftw_real tmp22;
- fftw_real tmp280;
- fftw_real tmp313;
- fftw_real tmp85;
- fftw_real tmp112;
- fftw_real tmp185;
- fftw_real tmp220;
- fftw_real tmp245;
- fftw_real tmp29;
- fftw_real tmp283;
- fftw_real tmp312;
- fftw_real tmp92;
- fftw_real tmp119;
- fftw_real tmp184;
- fftw_real tmp223;
- fftw_real tmp244;
- fftw_real tmp126;
- fftw_real tmp229;
- fftw_real tmp38;
- fftw_real tmp45;
- fftw_real tmp346;
- fftw_real tmp295;
- fftw_real tmp327;
- fftw_real tmp347;
- fftw_real tmp348;
- fftw_real tmp349;
- fftw_real tmp143;
- fftw_real tmp226;
- fftw_real tmp290;
- fftw_real tmp326;
- fftw_real tmp137;
- fftw_real tmp227;
- fftw_real tmp146;
- fftw_real tmp230;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp95;
- fftw_real tmp66;
- fftw_real tmp178;
- fftw_real tmp6;
- fftw_real tmp177;
- fftw_real tmp69;
- fftw_real tmp96;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp64;
- fftw_real tmp65;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[16 * istride]);
- tmp3 = tmp1 + tmp2;
- tmp95 = tmp1 - tmp2;
- tmp64 = c_im(input[0]);
- tmp65 = c_im(input[16 * istride]);
- tmp66 = tmp64 + tmp65;
- tmp178 = tmp64 - tmp65;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp67;
- fftw_real tmp68;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[8 * istride]);
- tmp5 = c_re(input[24 * istride]);
- tmp6 = tmp4 + tmp5;
- tmp177 = tmp4 - tmp5;
- tmp67 = c_im(input[8 * istride]);
- tmp68 = c_im(input[24 * istride]);
- tmp69 = tmp67 + tmp68;
- tmp96 = tmp67 - tmp68;
- }
- tmp7 = tmp3 + tmp6;
- tmp275 = tmp3 - tmp6;
- tmp70 = tmp66 + tmp69;
- tmp309 = tmp66 - tmp69;
- tmp97 = tmp95 - tmp96;
- tmp215 = tmp95 + tmp96;
- tmp179 = tmp177 + tmp178;
- tmp241 = tmp178 - tmp177;
- }
- {
- fftw_real tmp10;
- fftw_real tmp99;
- fftw_real tmp73;
- fftw_real tmp98;
- fftw_real tmp13;
- fftw_real tmp101;
- fftw_real tmp76;
- fftw_real tmp102;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp71;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[4 * istride]);
- tmp9 = c_re(input[20 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp99 = tmp8 - tmp9;
- tmp71 = c_im(input[4 * istride]);
- tmp72 = c_im(input[20 * istride]);
- tmp73 = tmp71 + tmp72;
- tmp98 = tmp71 - tmp72;
- }
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp74;
- fftw_real tmp75;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[28 * istride]);
- tmp12 = c_re(input[12 * istride]);
- tmp13 = tmp11 + tmp12;
- tmp101 = tmp11 - tmp12;
- tmp74 = c_im(input[28 * istride]);
- tmp75 = c_im(input[12 * istride]);
- tmp76 = tmp74 + tmp75;
- tmp102 = tmp74 - tmp75;
- }
- tmp14 = tmp10 + tmp13;
- tmp310 = tmp13 - tmp10;
- tmp77 = tmp73 + tmp76;
- tmp276 = tmp73 - tmp76;
- {
- fftw_real tmp180;
- fftw_real tmp181;
- fftw_real tmp100;
- fftw_real tmp103;
- ASSERT_ALIGNED_DOUBLE;
- tmp180 = tmp101 - tmp102;
- tmp181 = tmp99 + tmp98;
- tmp182 = K707106781 * (tmp180 - tmp181);
- tmp216 = K707106781 * (tmp181 + tmp180);
- tmp100 = tmp98 - tmp99;
- tmp103 = tmp101 + tmp102;
- tmp104 = K707106781 * (tmp100 - tmp103);
- tmp242 = K707106781 * (tmp100 + tmp103);
- }
- }
- {
- fftw_real tmp49;
- fftw_real tmp149;
- fftw_real tmp169;
- fftw_real tmp302;
- fftw_real tmp52;
- fftw_real tmp166;
- fftw_real tmp152;
- fftw_real tmp303;
- fftw_real tmp56;
- fftw_real tmp157;
- fftw_real tmp156;
- fftw_real tmp298;
- fftw_real tmp59;
- fftw_real tmp159;
- fftw_real tmp162;
- fftw_real tmp299;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp47;
- fftw_real tmp48;
- fftw_real tmp167;
- fftw_real tmp168;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = c_re(input[31 * istride]);
- tmp48 = c_re(input[15 * istride]);
- tmp49 = tmp47 + tmp48;
- tmp149 = tmp47 - tmp48;
- tmp167 = c_im(input[31 * istride]);
- tmp168 = c_im(input[15 * istride]);
- tmp169 = tmp167 - tmp168;
- tmp302 = tmp167 + tmp168;
- }
- {
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp150;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = c_re(input[7 * istride]);
- tmp51 = c_re(input[23 * istride]);
- tmp52 = tmp50 + tmp51;
- tmp166 = tmp50 - tmp51;
- tmp150 = c_im(input[7 * istride]);
- tmp151 = c_im(input[23 * istride]);
- tmp152 = tmp150 - tmp151;
- tmp303 = tmp150 + tmp151;
- }
- {
- fftw_real tmp54;
- fftw_real tmp55;
- fftw_real tmp154;
- fftw_real tmp155;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = c_re(input[3 * istride]);
- tmp55 = c_re(input[19 * istride]);
- tmp56 = tmp54 + tmp55;
- tmp157 = tmp54 - tmp55;
- tmp154 = c_im(input[3 * istride]);
- tmp155 = c_im(input[19 * istride]);
- tmp156 = tmp154 - tmp155;
- tmp298 = tmp154 + tmp155;
- }
- {
- fftw_real tmp57;
- fftw_real tmp58;
- fftw_real tmp160;
- fftw_real tmp161;
- ASSERT_ALIGNED_DOUBLE;
- tmp57 = c_re(input[27 * istride]);
- tmp58 = c_re(input[11 * istride]);
- tmp59 = tmp57 + tmp58;
- tmp159 = tmp57 - tmp58;
- tmp160 = c_im(input[27 * istride]);
- tmp161 = c_im(input[11 * istride]);
- tmp162 = tmp160 - tmp161;
- tmp299 = tmp160 + tmp161;
- }
- {
- fftw_real tmp304;
- fftw_real tmp305;
- fftw_real tmp297;
- fftw_real tmp300;
- ASSERT_ALIGNED_DOUBLE;
- tmp153 = tmp149 - tmp152;
- tmp233 = tmp149 + tmp152;
- tmp53 = tmp49 + tmp52;
- tmp60 = tmp56 + tmp59;
- tmp351 = tmp53 - tmp60;
- tmp304 = tmp302 - tmp303;
- tmp305 = tmp59 - tmp56;
- tmp306 = tmp304 - tmp305;
- tmp330 = tmp305 + tmp304;
- tmp352 = tmp302 + tmp303;
- tmp353 = tmp298 + tmp299;
- tmp354 = tmp352 - tmp353;
- tmp170 = tmp166 + tmp169;
- tmp236 = tmp169 - tmp166;
- tmp297 = tmp49 - tmp52;
- tmp300 = tmp298 - tmp299;
- tmp301 = tmp297 - tmp300;
- tmp329 = tmp297 + tmp300;
- {
- fftw_real tmp158;
- fftw_real tmp163;
- fftw_real tmp171;
- fftw_real tmp172;
- ASSERT_ALIGNED_DOUBLE;
- tmp158 = tmp156 - tmp157;
- tmp163 = tmp159 + tmp162;
- tmp164 = K707106781 * (tmp158 - tmp163);
- tmp237 = K707106781 * (tmp158 + tmp163);
- tmp171 = tmp159 - tmp162;
- tmp172 = tmp157 + tmp156;
- tmp173 = K707106781 * (tmp171 - tmp172);
- tmp234 = K707106781 * (tmp172 + tmp171);
- }
- }
- }
- {
- fftw_real tmp18;
- fftw_real tmp109;
- fftw_real tmp81;
- fftw_real tmp107;
- fftw_real tmp21;
- fftw_real tmp106;
- fftw_real tmp84;
- fftw_real tmp110;
- fftw_real tmp278;
- fftw_real tmp279;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp79;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_re(input[2 * istride]);
- tmp17 = c_re(input[18 * istride]);
- tmp18 = tmp16 + tmp17;
- tmp109 = tmp16 - tmp17;
- tmp79 = c_im(input[2 * istride]);
- tmp80 = c_im(input[18 * istride]);
- tmp81 = tmp79 + tmp80;
- tmp107 = tmp79 - tmp80;
- }
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp82;
- fftw_real tmp83;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = c_re(input[10 * istride]);
- tmp20 = c_re(input[26 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp106 = tmp19 - tmp20;
- tmp82 = c_im(input[10 * istride]);
- tmp83 = c_im(input[26 * istride]);
- tmp84 = tmp82 + tmp83;
- tmp110 = tmp82 - tmp83;
- }
- tmp22 = tmp18 + tmp21;
- tmp278 = tmp81 - tmp84;
- tmp279 = tmp18 - tmp21;
- tmp280 = tmp278 - tmp279;
- tmp313 = tmp279 + tmp278;
- tmp85 = tmp81 + tmp84;
- {
- fftw_real tmp108;
- fftw_real tmp111;
- fftw_real tmp218;
- fftw_real tmp219;
- ASSERT_ALIGNED_DOUBLE;
- tmp108 = tmp106 + tmp107;
- tmp111 = tmp109 - tmp110;
- tmp112 = (K382683432 * tmp108) - (K923879532 * tmp111);
- tmp185 = (K923879532 * tmp108) + (K382683432 * tmp111);
- tmp218 = tmp107 - tmp106;
- tmp219 = tmp109 + tmp110;
- tmp220 = (K923879532 * tmp218) - (K382683432 * tmp219);
- tmp245 = (K382683432 * tmp218) + (K923879532 * tmp219);
- }
- }
- {
- fftw_real tmp25;
- fftw_real tmp116;
- fftw_real tmp88;
- fftw_real tmp114;
- fftw_real tmp28;
- fftw_real tmp113;
- fftw_real tmp91;
- fftw_real tmp117;
- fftw_real tmp281;
- fftw_real tmp282;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp86;
- fftw_real tmp87;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = c_re(input[30 * istride]);
- tmp24 = c_re(input[14 * istride]);
- tmp25 = tmp23 + tmp24;
- tmp116 = tmp23 - tmp24;
- tmp86 = c_im(input[30 * istride]);
- tmp87 = c_im(input[14 * istride]);
- tmp88 = tmp86 + tmp87;
- tmp114 = tmp86 - tmp87;
- }
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp89;
- fftw_real tmp90;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(input[6 * istride]);
- tmp27 = c_re(input[22 * istride]);
- tmp28 = tmp26 + tmp27;
- tmp113 = tmp26 - tmp27;
- tmp89 = c_im(input[6 * istride]);
- tmp90 = c_im(input[22 * istride]);
- tmp91 = tmp89 + tmp90;
- tmp117 = tmp89 - tmp90;
- }
- tmp29 = tmp25 + tmp28;
- tmp281 = tmp25 - tmp28;
- tmp282 = tmp88 - tmp91;
- tmp283 = tmp281 + tmp282;
- tmp312 = tmp281 - tmp282;
- tmp92 = tmp88 + tmp91;
- {
- fftw_real tmp115;
- fftw_real tmp118;
- fftw_real tmp221;
- fftw_real tmp222;
- ASSERT_ALIGNED_DOUBLE;
- tmp115 = tmp113 + tmp114;
- tmp118 = tmp116 - tmp117;
- tmp119 = (K382683432 * tmp115) + (K923879532 * tmp118);
- tmp184 = (K382683432 * tmp118) - (K923879532 * tmp115);
- tmp221 = tmp114 - tmp113;
- tmp222 = tmp116 + tmp117;
- tmp223 = (K923879532 * tmp221) + (K382683432 * tmp222);
- tmp244 = (K923879532 * tmp222) - (K382683432 * tmp221);
- }
- }
- {
- fftw_real tmp34;
- fftw_real tmp139;
- fftw_real tmp125;
- fftw_real tmp286;
- fftw_real tmp37;
- fftw_real tmp122;
- fftw_real tmp142;
- fftw_real tmp287;
- fftw_real tmp41;
- fftw_real tmp132;
- fftw_real tmp135;
- fftw_real tmp292;
- fftw_real tmp44;
- fftw_real tmp127;
- fftw_real tmp130;
- fftw_real tmp293;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp33;
- fftw_real tmp123;
- fftw_real tmp124;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(input[istride]);
- tmp33 = c_re(input[17 * istride]);
- tmp34 = tmp32 + tmp33;
- tmp139 = tmp32 - tmp33;
- tmp123 = c_im(input[istride]);
- tmp124 = c_im(input[17 * istride]);
- tmp125 = tmp123 - tmp124;
- tmp286 = tmp123 + tmp124;
- }
- {
- fftw_real tmp35;
- fftw_real tmp36;
- fftw_real tmp140;
- fftw_real tmp141;
- ASSERT_ALIGNED_DOUBLE;
- tmp35 = c_re(input[9 * istride]);
- tmp36 = c_re(input[25 * istride]);
- tmp37 = tmp35 + tmp36;
- tmp122 = tmp35 - tmp36;
- tmp140 = c_im(input[9 * istride]);
- tmp141 = c_im(input[25 * istride]);
- tmp142 = tmp140 - tmp141;
- tmp287 = tmp140 + tmp141;
- }
- {
- fftw_real tmp39;
- fftw_real tmp40;
- fftw_real tmp133;
- fftw_real tmp134;
- ASSERT_ALIGNED_DOUBLE;
- tmp39 = c_re(input[5 * istride]);
- tmp40 = c_re(input[21 * istride]);
- tmp41 = tmp39 + tmp40;
- tmp132 = tmp39 - tmp40;
- tmp133 = c_im(input[5 * istride]);
- tmp134 = c_im(input[21 * istride]);
- tmp135 = tmp133 - tmp134;
- tmp292 = tmp133 + tmp134;
- }
- {
- fftw_real tmp42;
- fftw_real tmp43;
- fftw_real tmp128;
- fftw_real tmp129;
- ASSERT_ALIGNED_DOUBLE;
- tmp42 = c_re(input[29 * istride]);
- tmp43 = c_re(input[13 * istride]);
- tmp44 = tmp42 + tmp43;
- tmp127 = tmp42 - tmp43;
- tmp128 = c_im(input[29 * istride]);
- tmp129 = c_im(input[13 * istride]);
- tmp130 = tmp128 - tmp129;
- tmp293 = tmp128 + tmp129;
- }
- {
- fftw_real tmp291;
- fftw_real tmp294;
- fftw_real tmp288;
- fftw_real tmp289;
- ASSERT_ALIGNED_DOUBLE;
- tmp126 = tmp122 + tmp125;
- tmp229 = tmp125 - tmp122;
- tmp38 = tmp34 + tmp37;
- tmp45 = tmp41 + tmp44;
- tmp346 = tmp38 - tmp45;
- tmp291 = tmp34 - tmp37;
- tmp294 = tmp292 - tmp293;
- tmp295 = tmp291 - tmp294;
- tmp327 = tmp291 + tmp294;
- tmp347 = tmp286 + tmp287;
- tmp348 = tmp292 + tmp293;
- tmp349 = tmp347 - tmp348;
- tmp143 = tmp139 - tmp142;
- tmp226 = tmp139 + tmp142;
- tmp288 = tmp286 - tmp287;
- tmp289 = tmp44 - tmp41;
- tmp290 = tmp288 - tmp289;
- tmp326 = tmp289 + tmp288;
- {
- fftw_real tmp131;
- fftw_real tmp136;
- fftw_real tmp144;
- fftw_real tmp145;
- ASSERT_ALIGNED_DOUBLE;
- tmp131 = tmp127 - tmp130;
- tmp136 = tmp132 + tmp135;
- tmp137 = K707106781 * (tmp131 - tmp136);
- tmp227 = K707106781 * (tmp136 + tmp131);
- tmp144 = tmp135 - tmp132;
- tmp145 = tmp127 + tmp130;
- tmp146 = K707106781 * (tmp144 - tmp145);
- tmp230 = K707106781 * (tmp144 + tmp145);
- }
- }
- }
- {
- fftw_real tmp285;
- fftw_real tmp317;
- fftw_real tmp320;
- fftw_real tmp322;
- fftw_real tmp308;
- fftw_real tmp316;
- fftw_real tmp315;
- fftw_real tmp321;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp277;
- fftw_real tmp284;
- fftw_real tmp318;
- fftw_real tmp319;
- ASSERT_ALIGNED_DOUBLE;
- tmp277 = tmp275 - tmp276;
- tmp284 = K707106781 * (tmp280 - tmp283);
- tmp285 = tmp277 + tmp284;
- tmp317 = tmp277 - tmp284;
- tmp318 = (K382683432 * tmp290) - (K923879532 * tmp295);
- tmp319 = (K382683432 * tmp306) + (K923879532 * tmp301);
- tmp320 = tmp318 - tmp319;
- tmp322 = tmp318 + tmp319;
- }
- {
- fftw_real tmp296;
- fftw_real tmp307;
- fftw_real tmp311;
- fftw_real tmp314;
- ASSERT_ALIGNED_DOUBLE;
- tmp296 = (K923879532 * tmp290) + (K382683432 * tmp295);
- tmp307 = (K382683432 * tmp301) - (K923879532 * tmp306);
- tmp308 = tmp296 + tmp307;
- tmp316 = tmp307 - tmp296;
- tmp311 = tmp309 - tmp310;
- tmp314 = K707106781 * (tmp312 - tmp313);
- tmp315 = tmp311 - tmp314;
- tmp321 = tmp311 + tmp314;
- }
- c_re(output[22 * ostride]) = tmp285 - tmp308;
- c_re(output[6 * ostride]) = tmp285 + tmp308;
- c_im(output[30 * ostride]) = tmp315 - tmp316;
- c_im(output[14 * ostride]) = tmp315 + tmp316;
- c_re(output[30 * ostride]) = tmp317 - tmp320;
- c_re(output[14 * ostride]) = tmp317 + tmp320;
- c_im(output[22 * ostride]) = tmp321 - tmp322;
- c_im(output[6 * ostride]) = tmp321 + tmp322;
- }
- {
- fftw_real tmp325;
- fftw_real tmp337;
- fftw_real tmp340;
- fftw_real tmp342;
- fftw_real tmp332;
- fftw_real tmp336;
- fftw_real tmp335;
- fftw_real tmp341;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp323;
- fftw_real tmp324;
- fftw_real tmp338;
- fftw_real tmp339;
- ASSERT_ALIGNED_DOUBLE;
- tmp323 = tmp275 + tmp276;
- tmp324 = K707106781 * (tmp313 + tmp312);
- tmp325 = tmp323 + tmp324;
- tmp337 = tmp323 - tmp324;
- tmp338 = (K923879532 * tmp326) - (K382683432 * tmp327);
- tmp339 = (K923879532 * tmp330) + (K382683432 * tmp329);
- tmp340 = tmp338 - tmp339;
- tmp342 = tmp338 + tmp339;
- }
- {
- fftw_real tmp328;
- fftw_real tmp331;
- fftw_real tmp333;
- fftw_real tmp334;
- ASSERT_ALIGNED_DOUBLE;
- tmp328 = (K382683432 * tmp326) + (K923879532 * tmp327);
- tmp331 = (K923879532 * tmp329) - (K382683432 * tmp330);
- tmp332 = tmp328 + tmp331;
- tmp336 = tmp331 - tmp328;
- tmp333 = tmp310 + tmp309;
- tmp334 = K707106781 * (tmp280 + tmp283);
- tmp335 = tmp333 - tmp334;
- tmp341 = tmp333 + tmp334;
- }
- c_re(output[18 * ostride]) = tmp325 - tmp332;
- c_re(output[2 * ostride]) = tmp325 + tmp332;
- c_im(output[26 * ostride]) = tmp335 - tmp336;
- c_im(output[10 * ostride]) = tmp335 + tmp336;
- c_re(output[26 * ostride]) = tmp337 - tmp340;
- c_re(output[10 * ostride]) = tmp337 + tmp340;
- c_im(output[18 * ostride]) = tmp341 - tmp342;
- c_im(output[2 * ostride]) = tmp341 + tmp342;
- }
- {
- fftw_real tmp345;
- fftw_real tmp361;
- fftw_real tmp364;
- fftw_real tmp366;
- fftw_real tmp356;
- fftw_real tmp360;
- fftw_real tmp359;
- fftw_real tmp365;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp343;
- fftw_real tmp344;
- fftw_real tmp362;
- fftw_real tmp363;
- ASSERT_ALIGNED_DOUBLE;
- tmp343 = tmp7 - tmp14;
- tmp344 = tmp85 - tmp92;
- tmp345 = tmp343 + tmp344;
- tmp361 = tmp343 - tmp344;
- tmp362 = tmp349 - tmp346;
- tmp363 = tmp351 + tmp354;
- tmp364 = K707106781 * (tmp362 - tmp363);
- tmp366 = K707106781 * (tmp362 + tmp363);
- }
- {
- fftw_real tmp350;
- fftw_real tmp355;
- fftw_real tmp357;
- fftw_real tmp358;
- ASSERT_ALIGNED_DOUBLE;
- tmp350 = tmp346 + tmp349;
- tmp355 = tmp351 - tmp354;
- tmp356 = K707106781 * (tmp350 + tmp355);
- tmp360 = K707106781 * (tmp355 - tmp350);
- tmp357 = tmp70 - tmp77;
- tmp358 = tmp29 - tmp22;
- tmp359 = tmp357 - tmp358;
- tmp365 = tmp358 + tmp357;
- }
- c_re(output[20 * ostride]) = tmp345 - tmp356;
- c_re(output[4 * ostride]) = tmp345 + tmp356;
- c_im(output[28 * ostride]) = tmp359 - tmp360;
- c_im(output[12 * ostride]) = tmp359 + tmp360;
- c_re(output[28 * ostride]) = tmp361 - tmp364;
- c_re(output[12 * ostride]) = tmp361 + tmp364;
- c_im(output[20 * ostride]) = tmp365 - tmp366;
- c_im(output[4 * ostride]) = tmp365 + tmp366;
- }
- {
- fftw_real tmp31;
- fftw_real tmp367;
- fftw_real tmp370;
- fftw_real tmp372;
- fftw_real tmp62;
- fftw_real tmp63;
- fftw_real tmp94;
- fftw_real tmp371;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp15;
- fftw_real tmp30;
- fftw_real tmp368;
- fftw_real tmp369;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = tmp7 + tmp14;
- tmp30 = tmp22 + tmp29;
- tmp31 = tmp15 + tmp30;
- tmp367 = tmp15 - tmp30;
- tmp368 = tmp347 + tmp348;
- tmp369 = tmp352 + tmp353;
- tmp370 = tmp368 - tmp369;
- tmp372 = tmp368 + tmp369;
- }
- {
- fftw_real tmp46;
- fftw_real tmp61;
- fftw_real tmp78;
- fftw_real tmp93;
- ASSERT_ALIGNED_DOUBLE;
- tmp46 = tmp38 + tmp45;
- tmp61 = tmp53 + tmp60;
- tmp62 = tmp46 + tmp61;
- tmp63 = tmp61 - tmp46;
- tmp78 = tmp70 + tmp77;
- tmp93 = tmp85 + tmp92;
- tmp94 = tmp78 - tmp93;
- tmp371 = tmp78 + tmp93;
- }
- c_re(output[16 * ostride]) = tmp31 - tmp62;
- c_re(output[0]) = tmp31 + tmp62;
- c_im(output[8 * ostride]) = tmp63 + tmp94;
- c_im(output[24 * ostride]) = tmp94 - tmp63;
- c_re(output[24 * ostride]) = tmp367 - tmp370;
- c_re(output[8 * ostride]) = tmp367 + tmp370;
- c_im(output[16 * ostride]) = tmp371 - tmp372;
- c_im(output[0]) = tmp371 + tmp372;
- }
- {
- fftw_real tmp121;
- fftw_real tmp189;
- fftw_real tmp187;
- fftw_real tmp193;
- fftw_real tmp148;
- fftw_real tmp190;
- fftw_real tmp175;
- fftw_real tmp191;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp105;
- fftw_real tmp120;
- fftw_real tmp183;
- fftw_real tmp186;
- ASSERT_ALIGNED_DOUBLE;
- tmp105 = tmp97 - tmp104;
- tmp120 = tmp112 - tmp119;
- tmp121 = tmp105 + tmp120;
- tmp189 = tmp105 - tmp120;
- tmp183 = tmp179 - tmp182;
- tmp186 = tmp184 - tmp185;
- tmp187 = tmp183 - tmp186;
- tmp193 = tmp183 + tmp186;
- }
- {
- fftw_real tmp138;
- fftw_real tmp147;
- fftw_real tmp165;
- fftw_real tmp174;
- ASSERT_ALIGNED_DOUBLE;
- tmp138 = tmp126 - tmp137;
- tmp147 = tmp143 - tmp146;
- tmp148 = (K980785280 * tmp138) + (K195090322 * tmp147);
- tmp190 = (K195090322 * tmp138) - (K980785280 * tmp147);
- tmp165 = tmp153 - tmp164;
- tmp174 = tmp170 - tmp173;
- tmp175 = (K195090322 * tmp165) - (K980785280 * tmp174);
- tmp191 = (K195090322 * tmp174) + (K980785280 * tmp165);
- }
- {
- fftw_real tmp176;
- fftw_real tmp188;
- fftw_real tmp192;
- fftw_real tmp194;
- ASSERT_ALIGNED_DOUBLE;
- tmp176 = tmp148 + tmp175;
- c_re(output[23 * ostride]) = tmp121 - tmp176;
- c_re(output[7 * ostride]) = tmp121 + tmp176;
- tmp188 = tmp175 - tmp148;
- c_im(output[31 * ostride]) = tmp187 - tmp188;
- c_im(output[15 * ostride]) = tmp187 + tmp188;
- tmp192 = tmp190 - tmp191;
- c_re(output[31 * ostride]) = tmp189 - tmp192;
- c_re(output[15 * ostride]) = tmp189 + tmp192;
- tmp194 = tmp190 + tmp191;
- c_im(output[23 * ostride]) = tmp193 - tmp194;
- c_im(output[7 * ostride]) = tmp193 + tmp194;
- }
- }
- {
- fftw_real tmp197;
- fftw_real tmp209;
- fftw_real tmp207;
- fftw_real tmp213;
- fftw_real tmp200;
- fftw_real tmp210;
- fftw_real tmp203;
- fftw_real tmp211;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp195;
- fftw_real tmp196;
- fftw_real tmp205;
- fftw_real tmp206;
- ASSERT_ALIGNED_DOUBLE;
- tmp195 = tmp97 + tmp104;
- tmp196 = tmp185 + tmp184;
- tmp197 = tmp195 + tmp196;
- tmp209 = tmp195 - tmp196;
- tmp205 = tmp179 + tmp182;
- tmp206 = tmp112 + tmp119;
- tmp207 = tmp205 - tmp206;
- tmp213 = tmp205 + tmp206;
- }
- {
- fftw_real tmp198;
- fftw_real tmp199;
- fftw_real tmp201;
- fftw_real tmp202;
- ASSERT_ALIGNED_DOUBLE;
- tmp198 = tmp126 + tmp137;
- tmp199 = tmp143 + tmp146;
- tmp200 = (K555570233 * tmp198) + (K831469612 * tmp199);
- tmp210 = (K831469612 * tmp198) - (K555570233 * tmp199);
- tmp201 = tmp153 + tmp164;
- tmp202 = tmp170 + tmp173;
- tmp203 = (K831469612 * tmp201) - (K555570233 * tmp202);
- tmp211 = (K831469612 * tmp202) + (K555570233 * tmp201);
- }
- {
- fftw_real tmp204;
- fftw_real tmp208;
- fftw_real tmp212;
- fftw_real tmp214;
- ASSERT_ALIGNED_DOUBLE;
- tmp204 = tmp200 + tmp203;
- c_re(output[19 * ostride]) = tmp197 - tmp204;
- c_re(output[3 * ostride]) = tmp197 + tmp204;
- tmp208 = tmp203 - tmp200;
- c_im(output[27 * ostride]) = tmp207 - tmp208;
- c_im(output[11 * ostride]) = tmp207 + tmp208;
- tmp212 = tmp210 - tmp211;
- c_re(output[27 * ostride]) = tmp209 - tmp212;
- c_re(output[11 * ostride]) = tmp209 + tmp212;
- tmp214 = tmp210 + tmp211;
- c_im(output[19 * ostride]) = tmp213 - tmp214;
- c_im(output[3 * ostride]) = tmp213 + tmp214;
- }
- }
- {
- fftw_real tmp225;
- fftw_real tmp249;
- fftw_real tmp247;
- fftw_real tmp253;
- fftw_real tmp232;
- fftw_real tmp250;
- fftw_real tmp239;
- fftw_real tmp251;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp217;
- fftw_real tmp224;
- fftw_real tmp243;
- fftw_real tmp246;
- ASSERT_ALIGNED_DOUBLE;
- tmp217 = tmp215 - tmp216;
- tmp224 = tmp220 - tmp223;
- tmp225 = tmp217 + tmp224;
- tmp249 = tmp217 - tmp224;
- tmp243 = tmp241 - tmp242;
- tmp246 = tmp244 - tmp245;
- tmp247 = tmp243 - tmp246;
- tmp253 = tmp243 + tmp246;
- }
- {
- fftw_real tmp228;
- fftw_real tmp231;
- fftw_real tmp235;
- fftw_real tmp238;
- ASSERT_ALIGNED_DOUBLE;
- tmp228 = tmp226 - tmp227;
- tmp231 = tmp229 - tmp230;
- tmp232 = (K555570233 * tmp228) + (K831469612 * tmp231);
- tmp250 = (K555570233 * tmp231) - (K831469612 * tmp228);
- tmp235 = tmp233 - tmp234;
- tmp238 = tmp236 - tmp237;
- tmp239 = (K555570233 * tmp235) - (K831469612 * tmp238);
- tmp251 = (K831469612 * tmp235) + (K555570233 * tmp238);
- }
- {
- fftw_real tmp240;
- fftw_real tmp248;
- fftw_real tmp252;
- fftw_real tmp254;
- ASSERT_ALIGNED_DOUBLE;
- tmp240 = tmp232 + tmp239;
- c_re(output[21 * ostride]) = tmp225 - tmp240;
- c_re(output[5 * ostride]) = tmp225 + tmp240;
- tmp248 = tmp239 - tmp232;
- c_im(output[29 * ostride]) = tmp247 - tmp248;
- c_im(output[13 * ostride]) = tmp247 + tmp248;
- tmp252 = tmp250 - tmp251;
- c_re(output[29 * ostride]) = tmp249 - tmp252;
- c_re(output[13 * ostride]) = tmp249 + tmp252;
- tmp254 = tmp250 + tmp251;
- c_im(output[21 * ostride]) = tmp253 - tmp254;
- c_im(output[5 * ostride]) = tmp253 + tmp254;
- }
- }
- {
- fftw_real tmp257;
- fftw_real tmp269;
- fftw_real tmp267;
- fftw_real tmp273;
- fftw_real tmp260;
- fftw_real tmp270;
- fftw_real tmp263;
- fftw_real tmp271;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp255;
- fftw_real tmp256;
- fftw_real tmp265;
- fftw_real tmp266;
- ASSERT_ALIGNED_DOUBLE;
- tmp255 = tmp215 + tmp216;
- tmp256 = tmp245 + tmp244;
- tmp257 = tmp255 + tmp256;
- tmp269 = tmp255 - tmp256;
- tmp265 = tmp241 + tmp242;
- tmp266 = tmp220 + tmp223;
- tmp267 = tmp265 - tmp266;
- tmp273 = tmp265 + tmp266;
- }
- {
- fftw_real tmp258;
- fftw_real tmp259;
- fftw_real tmp261;
- fftw_real tmp262;
- ASSERT_ALIGNED_DOUBLE;
- tmp258 = tmp226 + tmp227;
- tmp259 = tmp229 + tmp230;
- tmp260 = (K980785280 * tmp258) + (K195090322 * tmp259);
- tmp270 = (K980785280 * tmp259) - (K195090322 * tmp258);
- tmp261 = tmp233 + tmp234;
- tmp262 = tmp236 + tmp237;
- tmp263 = (K980785280 * tmp261) - (K195090322 * tmp262);
- tmp271 = (K195090322 * tmp261) + (K980785280 * tmp262);
- }
- {
- fftw_real tmp264;
- fftw_real tmp268;
- fftw_real tmp272;
- fftw_real tmp274;
- ASSERT_ALIGNED_DOUBLE;
- tmp264 = tmp260 + tmp263;
- c_re(output[17 * ostride]) = tmp257 - tmp264;
- c_re(output[ostride]) = tmp257 + tmp264;
- tmp268 = tmp263 - tmp260;
- c_im(output[25 * ostride]) = tmp267 - tmp268;
- c_im(output[9 * ostride]) = tmp267 + tmp268;
- tmp272 = tmp270 - tmp271;
- c_re(output[25 * ostride]) = tmp269 - tmp272;
- c_re(output[9 * ostride]) = tmp269 + tmp272;
- tmp274 = tmp270 + tmp271;
- c_im(output[17 * ostride]) = tmp273 - tmp274;
- c_im(output[ostride]) = tmp273 + tmp274;
- }
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_32_desc =
-{
- "fftw_no_twiddle_32",
- (void (*)()) fftw_no_twiddle_32,
- 32,
- FFTW_FORWARD,
- FFTW_NOTW,
- 705,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_4.c b/src/sndobj/rfftw/fn_4.c
deleted file mode 100644
index 496667b..0000000
--- a/src/sndobj/rfftw/fn_4.c
+++ /dev/null
@@ -1,102 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:47 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 4 */
-
-/*
- * This function contains 16 FP additions, 0 FP multiplications,
- * (or, 16 additions, 0 multiplications, 0 fused multiply/add),
- * 12 stack variables, and 16 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: fn_4.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fn_4.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fn_4.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_no_twiddle_4(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp11;
- fftw_real tmp9;
- fftw_real tmp15;
- fftw_real tmp6;
- fftw_real tmp10;
- fftw_real tmp14;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp7;
- fftw_real tmp8;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[2 * istride]);
- tmp3 = tmp1 + tmp2;
- tmp11 = tmp1 - tmp2;
- tmp7 = c_im(input[0]);
- tmp8 = c_im(input[2 * istride]);
- tmp9 = tmp7 - tmp8;
- tmp15 = tmp7 + tmp8;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp12;
- fftw_real tmp13;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[istride]);
- tmp5 = c_re(input[3 * istride]);
- tmp6 = tmp4 + tmp5;
- tmp10 = tmp4 - tmp5;
- tmp12 = c_im(input[istride]);
- tmp13 = c_im(input[3 * istride]);
- tmp14 = tmp12 - tmp13;
- tmp16 = tmp12 + tmp13;
- }
- c_re(output[2 * ostride]) = tmp3 - tmp6;
- c_re(output[0]) = tmp3 + tmp6;
- c_im(output[ostride]) = tmp9 - tmp10;
- c_im(output[3 * ostride]) = tmp10 + tmp9;
- c_re(output[3 * ostride]) = tmp11 - tmp14;
- c_re(output[ostride]) = tmp11 + tmp14;
- c_im(output[2 * ostride]) = tmp15 - tmp16;
- c_im(output[0]) = tmp15 + tmp16;
-}
-
-fftw_codelet_desc fftw_no_twiddle_4_desc =
-{
- "fftw_no_twiddle_4",
- (void (*)()) fftw_no_twiddle_4,
- 4,
- FFTW_FORWARD,
- FFTW_NOTW,
- 89,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_5.c b/src/sndobj/rfftw/fn_5.c
deleted file mode 100644
index 5001163..0000000
--- a/src/sndobj/rfftw/fn_5.c
+++ /dev/null
@@ -1,146 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:47 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 5 */
-
-/*
- * This function contains 32 FP additions, 12 FP multiplications,
- * (or, 26 additions, 6 multiplications, 6 fused multiply/add),
- * 16 stack variables, and 20 memory accesses
- */
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-
-/*
- * Generator Id's :
- * $Id: fn_5.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fn_5.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fn_5.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- */
-
-void fftw_no_twiddle_5(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp24;
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp28;
- fftw_real tmp29;
- fftw_real tmp14;
- fftw_real tmp25;
- fftw_real tmp23;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp24 = c_im(input[0]);
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp6;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = c_re(input[istride]);
- tmp3 = c_re(input[4 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp5 = c_re(input[2 * istride]);
- tmp6 = c_re(input[3 * istride]);
- tmp7 = tmp5 + tmp6;
- tmp8 = tmp4 + tmp7;
- tmp9 = K559016994 * (tmp4 - tmp7);
- tmp28 = tmp2 - tmp3;
- tmp29 = tmp5 - tmp6;
- }
- {
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp21;
- fftw_real tmp15;
- fftw_real tmp16;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp12 = c_im(input[istride]);
- tmp13 = c_im(input[4 * istride]);
- tmp21 = tmp12 + tmp13;
- tmp15 = c_im(input[2 * istride]);
- tmp16 = c_im(input[3 * istride]);
- tmp22 = tmp15 + tmp16;
- tmp14 = tmp12 - tmp13;
- tmp25 = tmp21 + tmp22;
- tmp23 = K559016994 * (tmp21 - tmp22);
- tmp17 = tmp15 - tmp16;
- }
- c_re(output[0]) = tmp1 + tmp8;
- {
- fftw_real tmp18;
- fftw_real tmp20;
- fftw_real tmp11;
- fftw_real tmp19;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp18 = (K951056516 * tmp14) + (K587785252 * tmp17);
- tmp20 = (K951056516 * tmp17) - (K587785252 * tmp14);
- tmp10 = tmp1 - (K250000000 * tmp8);
- tmp11 = tmp9 + tmp10;
- tmp19 = tmp10 - tmp9;
- c_re(output[4 * ostride]) = tmp11 - tmp18;
- c_re(output[ostride]) = tmp11 + tmp18;
- c_re(output[2 * ostride]) = tmp19 - tmp20;
- c_re(output[3 * ostride]) = tmp19 + tmp20;
- }
- c_im(output[0]) = tmp24 + tmp25;
- {
- fftw_real tmp30;
- fftw_real tmp31;
- fftw_real tmp27;
- fftw_real tmp32;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = (K951056516 * tmp28) + (K587785252 * tmp29);
- tmp31 = (K951056516 * tmp29) - (K587785252 * tmp28);
- tmp26 = tmp24 - (K250000000 * tmp25);
- tmp27 = tmp23 + tmp26;
- tmp32 = tmp26 - tmp23;
- c_im(output[ostride]) = tmp27 - tmp30;
- c_im(output[4 * ostride]) = tmp30 + tmp27;
- c_im(output[2 * ostride]) = tmp31 + tmp32;
- c_im(output[3 * ostride]) = tmp32 - tmp31;
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_5_desc =
-{
- "fftw_no_twiddle_5",
- (void (*)()) fftw_no_twiddle_5,
- 5,
- FFTW_FORWARD,
- FFTW_NOTW,
- 111,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_6.c b/src/sndobj/rfftw/fn_6.c
deleted file mode 100644
index 0f2c7e3..0000000
--- a/src/sndobj/rfftw/fn_6.c
+++ /dev/null
@@ -1,157 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:47 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 6 */
-
-/*
- * This function contains 36 FP additions, 8 FP multiplications,
- * (or, 32 additions, 4 multiplications, 4 fused multiply/add),
- * 20 stack variables, and 24 memory accesses
- */
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fn_6.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- * $Id: fn_6.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- * $Id: fn_6.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- */
-
-void fftw_no_twiddle_6(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp11;
- fftw_real tmp26;
- fftw_real tmp33;
- fftw_real tmp6;
- fftw_real tmp12;
- fftw_real tmp9;
- fftw_real tmp13;
- fftw_real tmp10;
- fftw_real tmp14;
- fftw_real tmp18;
- fftw_real tmp30;
- fftw_real tmp21;
- fftw_real tmp31;
- fftw_real tmp27;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp24;
- fftw_real tmp25;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[3 * istride]);
- tmp3 = tmp1 - tmp2;
- tmp11 = tmp1 + tmp2;
- tmp24 = c_im(input[0]);
- tmp25 = c_im(input[3 * istride]);
- tmp26 = tmp24 - tmp25;
- tmp33 = tmp24 + tmp25;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp7;
- fftw_real tmp8;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[2 * istride]);
- tmp5 = c_re(input[5 * istride]);
- tmp6 = tmp4 - tmp5;
- tmp12 = tmp4 + tmp5;
- tmp7 = c_re(input[4 * istride]);
- tmp8 = c_re(input[istride]);
- tmp9 = tmp7 - tmp8;
- tmp13 = tmp7 + tmp8;
- }
- tmp10 = tmp6 + tmp9;
- tmp14 = tmp12 + tmp13;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_im(input[2 * istride]);
- tmp17 = c_im(input[5 * istride]);
- tmp18 = tmp16 - tmp17;
- tmp30 = tmp16 + tmp17;
- tmp19 = c_im(input[4 * istride]);
- tmp20 = c_im(input[istride]);
- tmp21 = tmp19 - tmp20;
- tmp31 = tmp19 + tmp20;
- }
- tmp27 = tmp18 + tmp21;
- tmp34 = tmp30 + tmp31;
- {
- fftw_real tmp15;
- fftw_real tmp22;
- fftw_real tmp29;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- c_re(output[3 * ostride]) = tmp3 + tmp10;
- tmp15 = tmp3 - (K500000000 * tmp10);
- tmp22 = K866025403 * (tmp18 - tmp21);
- c_re(output[5 * ostride]) = tmp15 - tmp22;
- c_re(output[ostride]) = tmp15 + tmp22;
- c_re(output[0]) = tmp11 + tmp14;
- tmp29 = tmp11 - (K500000000 * tmp14);
- tmp32 = K866025403 * (tmp30 - tmp31);
- c_re(output[2 * ostride]) = tmp29 - tmp32;
- c_re(output[4 * ostride]) = tmp29 + tmp32;
- }
- {
- fftw_real tmp23;
- fftw_real tmp28;
- fftw_real tmp35;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- c_im(output[3 * ostride]) = tmp26 + tmp27;
- tmp23 = K866025403 * (tmp9 - tmp6);
- tmp28 = tmp26 - (K500000000 * tmp27);
- c_im(output[ostride]) = tmp23 + tmp28;
- c_im(output[5 * ostride]) = tmp28 - tmp23;
- c_im(output[0]) = tmp33 + tmp34;
- tmp35 = tmp33 - (K500000000 * tmp34);
- tmp36 = K866025403 * (tmp13 - tmp12);
- c_im(output[2 * ostride]) = tmp35 - tmp36;
- c_im(output[4 * ostride]) = tmp36 + tmp35;
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_6_desc =
-{
- "fftw_no_twiddle_6",
- (void (*)()) fftw_no_twiddle_6,
- 6,
- FFTW_FORWARD,
- FFTW_NOTW,
- 133,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_64.c b/src/sndobj/rfftw/fn_64.c
deleted file mode 100644
index b07eeab..0000000
--- a/src/sndobj/rfftw/fn_64.c
+++ /dev/null
@@ -1,2449 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:52 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 64 */
-
-/*
- * This function contains 912 FP additions, 248 FP multiplications,
- * (or, 808 additions, 144 multiplications, 104 fused multiply/add),
- * 156 stack variables, and 256 memory accesses
- */
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K881921264 = FFTW_KONST(+0.881921264348355029712756863660388349508442621);
-static const fftw_real K471396736 = FFTW_KONST(+0.471396736825997648556387625905254377657460319);
-static const fftw_real K290284677 = FFTW_KONST(+0.290284677254462367636192375817395274691476278);
-static const fftw_real K956940335 = FFTW_KONST(+0.956940335732208864935797886980269969482849206);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K995184726 = FFTW_KONST(+0.995184726672196886244836953109479921575474869);
-static const fftw_real K098017140 = FFTW_KONST(+0.098017140329560601994195563888641845861136673);
-static const fftw_real K773010453 = FFTW_KONST(+0.773010453362736960810906609758469800971041293);
-static const fftw_real K634393284 = FFTW_KONST(+0.634393284163645498215171613225493370675687095);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: fn_64.c,v 1.1.1.1 2006/05/12 15:14:47 veplaini Exp $
- * $Id: fn_64.c,v 1.1.1.1 2006/05/12 15:14:47 veplaini Exp $
- * $Id: fn_64.c,v 1.1.1.1 2006/05/12 15:14:47 veplaini Exp $
- */
-
-void fftw_no_twiddle_64(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp193;
- fftw_real tmp471;
- fftw_real tmp15;
- fftw_real tmp815;
- fftw_real tmp719;
- fftw_real tmp781;
- fftw_real tmp142;
- fftw_real tmp849;
- fftw_real tmp371;
- fftw_real tmp537;
- fftw_real tmp637;
- fftw_real tmp755;
- fftw_real tmp200;
- fftw_real tmp538;
- fftw_real tmp374;
- fftw_real tmp472;
- fftw_real tmp109;
- fftw_real tmp837;
- fftw_real tmp693;
- fftw_real tmp773;
- fftw_real tmp844;
- fftw_real tmp892;
- fftw_real tmp710;
- fftw_real tmp776;
- fftw_real tmp329;
- fftw_real tmp429;
- fftw_real tmp519;
- fftw_real tmp593;
- fftw_real tmp362;
- fftw_real tmp432;
- fftw_real tmp530;
- fftw_real tmp596;
- fftw_real tmp30;
- fftw_real tmp850;
- fftw_real tmp640;
- fftw_real tmp721;
- fftw_real tmp157;
- fftw_real tmp816;
- fftw_real tmp643;
- fftw_real tmp720;
- fftw_real tmp208;
- fftw_real tmp377;
- fftw_real tmp476;
- fftw_real tmp541;
- fftw_real tmp215;
- fftw_real tmp376;
- fftw_real tmp479;
- fftw_real tmp540;
- fftw_real tmp124;
- fftw_real tmp845;
- fftw_real tmp365;
- fftw_real tmp430;
- fftw_real tmp352;
- fftw_real tmp433;
- fftw_real tmp840;
- fftw_real tmp893;
- fftw_real tmp526;
- fftw_real tmp597;
- fftw_real tmp533;
- fftw_real tmp594;
- fftw_real tmp704;
- fftw_real tmp777;
- fftw_real tmp713;
- fftw_real tmp774;
- fftw_real tmp46;
- fftw_real tmp819;
- fftw_real tmp648;
- fftw_real tmp758;
- fftw_real tmp173;
- fftw_real tmp818;
- fftw_real tmp651;
- fftw_real tmp759;
- fftw_real tmp228;
- fftw_real tmp414;
- fftw_real tmp484;
- fftw_real tmp578;
- fftw_real tmp235;
- fftw_real tmp415;
- fftw_real tmp487;
- fftw_real tmp579;
- fftw_real tmp78;
- fftw_real tmp831;
- fftw_real tmp666;
- fftw_real tmp769;
- fftw_real tmp828;
- fftw_real tmp887;
- fftw_real tmp683;
- fftw_real tmp766;
- fftw_real tmp274;
- fftw_real tmp425;
- fftw_real tmp500;
- fftw_real tmp589;
- fftw_real tmp307;
- fftw_real tmp422;
- fftw_real tmp511;
- fftw_real tmp586;
- fftw_real tmp61;
- fftw_real tmp821;
- fftw_real tmp655;
- fftw_real tmp761;
- fftw_real tmp188;
- fftw_real tmp822;
- fftw_real tmp658;
- fftw_real tmp762;
- fftw_real tmp247;
- fftw_real tmp417;
- fftw_real tmp491;
- fftw_real tmp581;
- fftw_real tmp254;
- fftw_real tmp418;
- fftw_real tmp494;
- fftw_real tmp582;
- fftw_real tmp93;
- fftw_real tmp829;
- fftw_real tmp310;
- fftw_real tmp426;
- fftw_real tmp297;
- fftw_real tmp423;
- fftw_real tmp834;
- fftw_real tmp888;
- fftw_real tmp507;
- fftw_real tmp587;
- fftw_real tmp514;
- fftw_real tmp590;
- fftw_real tmp677;
- fftw_real tmp767;
- fftw_real tmp686;
- fftw_real tmp770;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp191;
- fftw_real tmp130;
- fftw_real tmp370;
- fftw_real tmp6;
- fftw_real tmp369;
- fftw_real tmp133;
- fftw_real tmp192;
- fftw_real tmp10;
- fftw_real tmp195;
- fftw_real tmp137;
- fftw_real tmp194;
- fftw_real tmp13;
- fftw_real tmp197;
- fftw_real tmp140;
- fftw_real tmp198;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp128;
- fftw_real tmp129;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[32 * istride]);
- tmp3 = tmp1 + tmp2;
- tmp191 = tmp1 - tmp2;
- tmp128 = c_im(input[0]);
- tmp129 = c_im(input[32 * istride]);
- tmp130 = tmp128 + tmp129;
- tmp370 = tmp128 - tmp129;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp131;
- fftw_real tmp132;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[16 * istride]);
- tmp5 = c_re(input[48 * istride]);
- tmp6 = tmp4 + tmp5;
- tmp369 = tmp4 - tmp5;
- tmp131 = c_im(input[16 * istride]);
- tmp132 = c_im(input[48 * istride]);
- tmp133 = tmp131 + tmp132;
- tmp192 = tmp131 - tmp132;
- }
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp135;
- fftw_real tmp136;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[8 * istride]);
- tmp9 = c_re(input[40 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp195 = tmp8 - tmp9;
- tmp135 = c_im(input[8 * istride]);
- tmp136 = c_im(input[40 * istride]);
- tmp137 = tmp135 + tmp136;
- tmp194 = tmp135 - tmp136;
- }
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp138;
- fftw_real tmp139;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[56 * istride]);
- tmp12 = c_re(input[24 * istride]);
- tmp13 = tmp11 + tmp12;
- tmp197 = tmp11 - tmp12;
- tmp138 = c_im(input[56 * istride]);
- tmp139 = c_im(input[24 * istride]);
- tmp140 = tmp138 + tmp139;
- tmp198 = tmp138 - tmp139;
- }
- {
- fftw_real tmp7;
- fftw_real tmp14;
- fftw_real tmp635;
- fftw_real tmp636;
- ASSERT_ALIGNED_DOUBLE;
- tmp193 = tmp191 - tmp192;
- tmp471 = tmp191 + tmp192;
- tmp7 = tmp3 + tmp6;
- tmp14 = tmp10 + tmp13;
- tmp15 = tmp7 + tmp14;
- tmp815 = tmp7 - tmp14;
- {
- fftw_real tmp717;
- fftw_real tmp718;
- fftw_real tmp134;
- fftw_real tmp141;
- ASSERT_ALIGNED_DOUBLE;
- tmp717 = tmp130 - tmp133;
- tmp718 = tmp13 - tmp10;
- tmp719 = tmp717 - tmp718;
- tmp781 = tmp718 + tmp717;
- tmp134 = tmp130 + tmp133;
- tmp141 = tmp137 + tmp140;
- tmp142 = tmp134 + tmp141;
- tmp849 = tmp134 - tmp141;
- }
- tmp371 = tmp369 + tmp370;
- tmp537 = tmp370 - tmp369;
- tmp635 = tmp3 - tmp6;
- tmp636 = tmp137 - tmp140;
- tmp637 = tmp635 - tmp636;
- tmp755 = tmp635 + tmp636;
- {
- fftw_real tmp196;
- fftw_real tmp199;
- fftw_real tmp372;
- fftw_real tmp373;
- ASSERT_ALIGNED_DOUBLE;
- tmp196 = tmp194 - tmp195;
- tmp199 = tmp197 + tmp198;
- tmp200 = K707106781 * (tmp196 - tmp199);
- tmp538 = K707106781 * (tmp196 + tmp199);
- tmp372 = tmp197 - tmp198;
- tmp373 = tmp195 + tmp194;
- tmp374 = K707106781 * (tmp372 - tmp373);
- tmp472 = K707106781 * (tmp373 + tmp372);
- }
- }
- }
- {
- fftw_real tmp97;
- fftw_real tmp313;
- fftw_real tmp357;
- fftw_real tmp706;
- fftw_real tmp100;
- fftw_real tmp354;
- fftw_real tmp316;
- fftw_real tmp707;
- fftw_real tmp107;
- fftw_real tmp691;
- fftw_real tmp327;
- fftw_real tmp359;
- fftw_real tmp104;
- fftw_real tmp690;
- fftw_real tmp322;
- fftw_real tmp360;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp95;
- fftw_real tmp96;
- fftw_real tmp314;
- fftw_real tmp315;
- ASSERT_ALIGNED_DOUBLE;
- tmp95 = c_re(input[63 * istride]);
- tmp96 = c_re(input[31 * istride]);
- tmp97 = tmp95 + tmp96;
- tmp313 = tmp95 - tmp96;
- {
- fftw_real tmp355;
- fftw_real tmp356;
- fftw_real tmp98;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- tmp355 = c_im(input[63 * istride]);
- tmp356 = c_im(input[31 * istride]);
- tmp357 = tmp355 - tmp356;
- tmp706 = tmp355 + tmp356;
- tmp98 = c_re(input[15 * istride]);
- tmp99 = c_re(input[47 * istride]);
- tmp100 = tmp98 + tmp99;
- tmp354 = tmp98 - tmp99;
- }
- tmp314 = c_im(input[15 * istride]);
- tmp315 = c_im(input[47 * istride]);
- tmp316 = tmp314 - tmp315;
- tmp707 = tmp314 + tmp315;
- {
- fftw_real tmp105;
- fftw_real tmp106;
- fftw_real tmp323;
- fftw_real tmp324;
- fftw_real tmp325;
- fftw_real tmp326;
- ASSERT_ALIGNED_DOUBLE;
- tmp105 = c_re(input[55 * istride]);
- tmp106 = c_re(input[23 * istride]);
- tmp323 = tmp105 - tmp106;
- tmp324 = c_im(input[55 * istride]);
- tmp325 = c_im(input[23 * istride]);
- tmp326 = tmp324 - tmp325;
- tmp107 = tmp105 + tmp106;
- tmp691 = tmp324 + tmp325;
- tmp327 = tmp323 + tmp326;
- tmp359 = tmp323 - tmp326;
- }
- {
- fftw_real tmp102;
- fftw_real tmp103;
- fftw_real tmp321;
- fftw_real tmp318;
- fftw_real tmp319;
- fftw_real tmp320;
- ASSERT_ALIGNED_DOUBLE;
- tmp102 = c_re(input[7 * istride]);
- tmp103 = c_re(input[39 * istride]);
- tmp321 = tmp102 - tmp103;
- tmp318 = c_im(input[7 * istride]);
- tmp319 = c_im(input[39 * istride]);
- tmp320 = tmp318 - tmp319;
- tmp104 = tmp102 + tmp103;
- tmp690 = tmp318 + tmp319;
- tmp322 = tmp320 - tmp321;
- tmp360 = tmp321 + tmp320;
- }
- }
- {
- fftw_real tmp101;
- fftw_real tmp108;
- fftw_real tmp689;
- fftw_real tmp692;
- ASSERT_ALIGNED_DOUBLE;
- tmp101 = tmp97 + tmp100;
- tmp108 = tmp104 + tmp107;
- tmp109 = tmp101 + tmp108;
- tmp837 = tmp101 - tmp108;
- tmp689 = tmp97 - tmp100;
- tmp692 = tmp690 - tmp691;
- tmp693 = tmp689 - tmp692;
- tmp773 = tmp689 + tmp692;
- }
- {
- fftw_real tmp842;
- fftw_real tmp843;
- fftw_real tmp708;
- fftw_real tmp709;
- ASSERT_ALIGNED_DOUBLE;
- tmp842 = tmp706 + tmp707;
- tmp843 = tmp690 + tmp691;
- tmp844 = tmp842 - tmp843;
- tmp892 = tmp842 + tmp843;
- tmp708 = tmp706 - tmp707;
- tmp709 = tmp107 - tmp104;
- tmp710 = tmp708 - tmp709;
- tmp776 = tmp709 + tmp708;
- }
- {
- fftw_real tmp317;
- fftw_real tmp328;
- fftw_real tmp517;
- fftw_real tmp518;
- ASSERT_ALIGNED_DOUBLE;
- tmp317 = tmp313 - tmp316;
- tmp328 = K707106781 * (tmp322 - tmp327);
- tmp329 = tmp317 - tmp328;
- tmp429 = tmp317 + tmp328;
- tmp517 = tmp313 + tmp316;
- tmp518 = K707106781 * (tmp360 + tmp359);
- tmp519 = tmp517 - tmp518;
- tmp593 = tmp517 + tmp518;
- }
- {
- fftw_real tmp358;
- fftw_real tmp361;
- fftw_real tmp528;
- fftw_real tmp529;
- ASSERT_ALIGNED_DOUBLE;
- tmp358 = tmp354 + tmp357;
- tmp361 = K707106781 * (tmp359 - tmp360);
- tmp362 = tmp358 - tmp361;
- tmp432 = tmp358 + tmp361;
- tmp528 = tmp357 - tmp354;
- tmp529 = K707106781 * (tmp322 + tmp327);
- tmp530 = tmp528 - tmp529;
- tmp596 = tmp528 + tmp529;
- }
- }
- {
- fftw_real tmp18;
- fftw_real tmp205;
- fftw_real tmp145;
- fftw_real tmp203;
- fftw_real tmp21;
- fftw_real tmp202;
- fftw_real tmp148;
- fftw_real tmp206;
- fftw_real tmp25;
- fftw_real tmp212;
- fftw_real tmp152;
- fftw_real tmp210;
- fftw_real tmp28;
- fftw_real tmp209;
- fftw_real tmp155;
- fftw_real tmp213;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp143;
- fftw_real tmp144;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_re(input[4 * istride]);
- tmp17 = c_re(input[36 * istride]);
- tmp18 = tmp16 + tmp17;
- tmp205 = tmp16 - tmp17;
- tmp143 = c_im(input[4 * istride]);
- tmp144 = c_im(input[36 * istride]);
- tmp145 = tmp143 + tmp144;
- tmp203 = tmp143 - tmp144;
- }
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp146;
- fftw_real tmp147;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = c_re(input[20 * istride]);
- tmp20 = c_re(input[52 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp202 = tmp19 - tmp20;
- tmp146 = c_im(input[20 * istride]);
- tmp147 = c_im(input[52 * istride]);
- tmp148 = tmp146 + tmp147;
- tmp206 = tmp146 - tmp147;
- }
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp150;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = c_re(input[60 * istride]);
- tmp24 = c_re(input[28 * istride]);
- tmp25 = tmp23 + tmp24;
- tmp212 = tmp23 - tmp24;
- tmp150 = c_im(input[60 * istride]);
- tmp151 = c_im(input[28 * istride]);
- tmp152 = tmp150 + tmp151;
- tmp210 = tmp150 - tmp151;
- }
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp153;
- fftw_real tmp154;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(input[12 * istride]);
- tmp27 = c_re(input[44 * istride]);
- tmp28 = tmp26 + tmp27;
- tmp209 = tmp26 - tmp27;
- tmp153 = c_im(input[12 * istride]);
- tmp154 = c_im(input[44 * istride]);
- tmp155 = tmp153 + tmp154;
- tmp213 = tmp153 - tmp154;
- }
- {
- fftw_real tmp22;
- fftw_real tmp29;
- fftw_real tmp638;
- fftw_real tmp639;
- ASSERT_ALIGNED_DOUBLE;
- tmp22 = tmp18 + tmp21;
- tmp29 = tmp25 + tmp28;
- tmp30 = tmp22 + tmp29;
- tmp850 = tmp29 - tmp22;
- tmp638 = tmp145 - tmp148;
- tmp639 = tmp18 - tmp21;
- tmp640 = tmp638 - tmp639;
- tmp721 = tmp639 + tmp638;
- }
- {
- fftw_real tmp149;
- fftw_real tmp156;
- fftw_real tmp641;
- fftw_real tmp642;
- ASSERT_ALIGNED_DOUBLE;
- tmp149 = tmp145 + tmp148;
- tmp156 = tmp152 + tmp155;
- tmp157 = tmp149 + tmp156;
- tmp816 = tmp149 - tmp156;
- tmp641 = tmp25 - tmp28;
- tmp642 = tmp152 - tmp155;
- tmp643 = tmp641 + tmp642;
- tmp720 = tmp641 - tmp642;
- }
- {
- fftw_real tmp204;
- fftw_real tmp207;
- fftw_real tmp474;
- fftw_real tmp475;
- ASSERT_ALIGNED_DOUBLE;
- tmp204 = tmp202 + tmp203;
- tmp207 = tmp205 - tmp206;
- tmp208 = (K382683432 * tmp204) - (K923879532 * tmp207);
- tmp377 = (K923879532 * tmp204) + (K382683432 * tmp207);
- tmp474 = tmp203 - tmp202;
- tmp475 = tmp205 + tmp206;
- tmp476 = (K923879532 * tmp474) - (K382683432 * tmp475);
- tmp541 = (K382683432 * tmp474) + (K923879532 * tmp475);
- }
- {
- fftw_real tmp211;
- fftw_real tmp214;
- fftw_real tmp477;
- fftw_real tmp478;
- ASSERT_ALIGNED_DOUBLE;
- tmp211 = tmp209 + tmp210;
- tmp214 = tmp212 - tmp213;
- tmp215 = (K382683432 * tmp211) + (K923879532 * tmp214);
- tmp376 = (K382683432 * tmp214) - (K923879532 * tmp211);
- tmp477 = tmp210 - tmp209;
- tmp478 = tmp212 + tmp213;
- tmp479 = (K923879532 * tmp477) + (K382683432 * tmp478);
- tmp540 = (K923879532 * tmp478) - (K382683432 * tmp477);
- }
- }
- {
- fftw_real tmp112;
- fftw_real tmp694;
- fftw_real tmp115;
- fftw_real tmp695;
- fftw_real tmp334;
- fftw_real tmp520;
- fftw_real tmp339;
- fftw_real tmp521;
- fftw_real tmp697;
- fftw_real tmp696;
- fftw_real tmp119;
- fftw_real tmp700;
- fftw_real tmp122;
- fftw_real tmp701;
- fftw_real tmp345;
- fftw_real tmp523;
- fftw_real tmp350;
- fftw_real tmp524;
- fftw_real tmp702;
- fftw_real tmp699;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp335;
- fftw_real tmp333;
- fftw_real tmp330;
- fftw_real tmp338;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp110;
- fftw_real tmp111;
- fftw_real tmp331;
- fftw_real tmp332;
- ASSERT_ALIGNED_DOUBLE;
- tmp110 = c_re(input[3 * istride]);
- tmp111 = c_re(input[35 * istride]);
- tmp112 = tmp110 + tmp111;
- tmp335 = tmp110 - tmp111;
- tmp331 = c_im(input[3 * istride]);
- tmp332 = c_im(input[35 * istride]);
- tmp333 = tmp331 - tmp332;
- tmp694 = tmp331 + tmp332;
- }
- {
- fftw_real tmp113;
- fftw_real tmp114;
- fftw_real tmp336;
- fftw_real tmp337;
- ASSERT_ALIGNED_DOUBLE;
- tmp113 = c_re(input[19 * istride]);
- tmp114 = c_re(input[51 * istride]);
- tmp115 = tmp113 + tmp114;
- tmp330 = tmp113 - tmp114;
- tmp336 = c_im(input[19 * istride]);
- tmp337 = c_im(input[51 * istride]);
- tmp338 = tmp336 - tmp337;
- tmp695 = tmp336 + tmp337;
- }
- tmp334 = tmp330 + tmp333;
- tmp520 = tmp333 - tmp330;
- tmp339 = tmp335 - tmp338;
- tmp521 = tmp335 + tmp338;
- tmp697 = tmp112 - tmp115;
- tmp696 = tmp694 - tmp695;
- }
- {
- fftw_real tmp346;
- fftw_real tmp344;
- fftw_real tmp341;
- fftw_real tmp349;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp117;
- fftw_real tmp118;
- fftw_real tmp342;
- fftw_real tmp343;
- ASSERT_ALIGNED_DOUBLE;
- tmp117 = c_re(input[59 * istride]);
- tmp118 = c_re(input[27 * istride]);
- tmp119 = tmp117 + tmp118;
- tmp346 = tmp117 - tmp118;
- tmp342 = c_im(input[59 * istride]);
- tmp343 = c_im(input[27 * istride]);
- tmp344 = tmp342 - tmp343;
- tmp700 = tmp342 + tmp343;
- }
- {
- fftw_real tmp120;
- fftw_real tmp121;
- fftw_real tmp347;
- fftw_real tmp348;
- ASSERT_ALIGNED_DOUBLE;
- tmp120 = c_re(input[11 * istride]);
- tmp121 = c_re(input[43 * istride]);
- tmp122 = tmp120 + tmp121;
- tmp341 = tmp120 - tmp121;
- tmp347 = c_im(input[11 * istride]);
- tmp348 = c_im(input[43 * istride]);
- tmp349 = tmp347 - tmp348;
- tmp701 = tmp347 + tmp348;
- }
- tmp345 = tmp341 + tmp344;
- tmp523 = tmp344 - tmp341;
- tmp350 = tmp346 - tmp349;
- tmp524 = tmp346 + tmp349;
- tmp702 = tmp700 - tmp701;
- tmp699 = tmp119 - tmp122;
- }
- {
- fftw_real tmp116;
- fftw_real tmp123;
- fftw_real tmp363;
- fftw_real tmp364;
- ASSERT_ALIGNED_DOUBLE;
- tmp116 = tmp112 + tmp115;
- tmp123 = tmp119 + tmp122;
- tmp124 = tmp116 + tmp123;
- tmp845 = tmp123 - tmp116;
- tmp363 = (K382683432 * tmp350) - (K923879532 * tmp345);
- tmp364 = (K923879532 * tmp334) + (K382683432 * tmp339);
- tmp365 = tmp363 - tmp364;
- tmp430 = tmp364 + tmp363;
- }
- {
- fftw_real tmp340;
- fftw_real tmp351;
- fftw_real tmp838;
- fftw_real tmp839;
- ASSERT_ALIGNED_DOUBLE;
- tmp340 = (K382683432 * tmp334) - (K923879532 * tmp339);
- tmp351 = (K382683432 * tmp345) + (K923879532 * tmp350);
- tmp352 = tmp340 - tmp351;
- tmp433 = tmp340 + tmp351;
- tmp838 = tmp694 + tmp695;
- tmp839 = tmp700 + tmp701;
- tmp840 = tmp838 - tmp839;
- tmp893 = tmp838 + tmp839;
- }
- {
- fftw_real tmp522;
- fftw_real tmp525;
- fftw_real tmp531;
- fftw_real tmp532;
- ASSERT_ALIGNED_DOUBLE;
- tmp522 = (K923879532 * tmp520) - (K382683432 * tmp521);
- tmp525 = (K923879532 * tmp523) + (K382683432 * tmp524);
- tmp526 = tmp522 - tmp525;
- tmp597 = tmp522 + tmp525;
- tmp531 = (K923879532 * tmp524) - (K382683432 * tmp523);
- tmp532 = (K382683432 * tmp520) + (K923879532 * tmp521);
- tmp533 = tmp531 - tmp532;
- tmp594 = tmp532 + tmp531;
- }
- {
- fftw_real tmp698;
- fftw_real tmp703;
- fftw_real tmp711;
- fftw_real tmp712;
- ASSERT_ALIGNED_DOUBLE;
- tmp698 = tmp696 - tmp697;
- tmp703 = tmp699 + tmp702;
- tmp704 = K707106781 * (tmp698 - tmp703);
- tmp777 = K707106781 * (tmp698 + tmp703);
- tmp711 = tmp699 - tmp702;
- tmp712 = tmp697 + tmp696;
- tmp713 = K707106781 * (tmp711 - tmp712);
- tmp774 = K707106781 * (tmp712 + tmp711);
- }
- }
- {
- fftw_real tmp34;
- fftw_real tmp229;
- fftw_real tmp161;
- fftw_real tmp219;
- fftw_real tmp37;
- fftw_real tmp218;
- fftw_real tmp164;
- fftw_real tmp230;
- fftw_real tmp44;
- fftw_real tmp233;
- fftw_real tmp223;
- fftw_real tmp171;
- fftw_real tmp41;
- fftw_real tmp232;
- fftw_real tmp226;
- fftw_real tmp168;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp33;
- fftw_real tmp162;
- fftw_real tmp163;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(input[2 * istride]);
- tmp33 = c_re(input[34 * istride]);
- tmp34 = tmp32 + tmp33;
- tmp229 = tmp32 - tmp33;
- {
- fftw_real tmp159;
- fftw_real tmp160;
- fftw_real tmp35;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp159 = c_im(input[2 * istride]);
- tmp160 = c_im(input[34 * istride]);
- tmp161 = tmp159 + tmp160;
- tmp219 = tmp159 - tmp160;
- tmp35 = c_re(input[18 * istride]);
- tmp36 = c_re(input[50 * istride]);
- tmp37 = tmp35 + tmp36;
- tmp218 = tmp35 - tmp36;
- }
- tmp162 = c_im(input[18 * istride]);
- tmp163 = c_im(input[50 * istride]);
- tmp164 = tmp162 + tmp163;
- tmp230 = tmp162 - tmp163;
- {
- fftw_real tmp42;
- fftw_real tmp43;
- fftw_real tmp221;
- fftw_real tmp169;
- fftw_real tmp170;
- fftw_real tmp222;
- ASSERT_ALIGNED_DOUBLE;
- tmp42 = c_re(input[58 * istride]);
- tmp43 = c_re(input[26 * istride]);
- tmp221 = tmp42 - tmp43;
- tmp169 = c_im(input[58 * istride]);
- tmp170 = c_im(input[26 * istride]);
- tmp222 = tmp169 - tmp170;
- tmp44 = tmp42 + tmp43;
- tmp233 = tmp221 + tmp222;
- tmp223 = tmp221 - tmp222;
- tmp171 = tmp169 + tmp170;
- }
- {
- fftw_real tmp39;
- fftw_real tmp40;
- fftw_real tmp224;
- fftw_real tmp166;
- fftw_real tmp167;
- fftw_real tmp225;
- ASSERT_ALIGNED_DOUBLE;
- tmp39 = c_re(input[10 * istride]);
- tmp40 = c_re(input[42 * istride]);
- tmp224 = tmp39 - tmp40;
- tmp166 = c_im(input[10 * istride]);
- tmp167 = c_im(input[42 * istride]);
- tmp225 = tmp166 - tmp167;
- tmp41 = tmp39 + tmp40;
- tmp232 = tmp225 - tmp224;
- tmp226 = tmp224 + tmp225;
- tmp168 = tmp166 + tmp167;
- }
- }
- {
- fftw_real tmp38;
- fftw_real tmp45;
- fftw_real tmp646;
- fftw_real tmp647;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = tmp34 + tmp37;
- tmp45 = tmp41 + tmp44;
- tmp46 = tmp38 + tmp45;
- tmp819 = tmp38 - tmp45;
- tmp646 = tmp161 - tmp164;
- tmp647 = tmp44 - tmp41;
- tmp648 = tmp646 - tmp647;
- tmp758 = tmp647 + tmp646;
- }
- {
- fftw_real tmp165;
- fftw_real tmp172;
- fftw_real tmp649;
- fftw_real tmp650;
- ASSERT_ALIGNED_DOUBLE;
- tmp165 = tmp161 + tmp164;
- tmp172 = tmp168 + tmp171;
- tmp173 = tmp165 + tmp172;
- tmp818 = tmp165 - tmp172;
- tmp649 = tmp34 - tmp37;
- tmp650 = tmp168 - tmp171;
- tmp651 = tmp649 - tmp650;
- tmp759 = tmp649 + tmp650;
- }
- {
- fftw_real tmp220;
- fftw_real tmp227;
- fftw_real tmp482;
- fftw_real tmp483;
- ASSERT_ALIGNED_DOUBLE;
- tmp220 = tmp218 + tmp219;
- tmp227 = K707106781 * (tmp223 - tmp226);
- tmp228 = tmp220 - tmp227;
- tmp414 = tmp220 + tmp227;
- tmp482 = tmp219 - tmp218;
- tmp483 = K707106781 * (tmp232 + tmp233);
- tmp484 = tmp482 - tmp483;
- tmp578 = tmp482 + tmp483;
- }
- {
- fftw_real tmp231;
- fftw_real tmp234;
- fftw_real tmp485;
- fftw_real tmp486;
- ASSERT_ALIGNED_DOUBLE;
- tmp231 = tmp229 - tmp230;
- tmp234 = K707106781 * (tmp232 - tmp233);
- tmp235 = tmp231 - tmp234;
- tmp415 = tmp231 + tmp234;
- tmp485 = tmp229 + tmp230;
- tmp486 = K707106781 * (tmp226 + tmp223);
- tmp487 = tmp485 - tmp486;
- tmp579 = tmp485 + tmp486;
- }
- }
- {
- fftw_real tmp66;
- fftw_real tmp299;
- fftw_real tmp261;
- fftw_real tmp662;
- fftw_real tmp69;
- fftw_real tmp258;
- fftw_real tmp302;
- fftw_real tmp663;
- fftw_real tmp76;
- fftw_real tmp681;
- fftw_real tmp267;
- fftw_real tmp305;
- fftw_real tmp73;
- fftw_real tmp680;
- fftw_real tmp272;
- fftw_real tmp304;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp64;
- fftw_real tmp65;
- fftw_real tmp300;
- fftw_real tmp301;
- ASSERT_ALIGNED_DOUBLE;
- tmp64 = c_re(input[istride]);
- tmp65 = c_re(input[33 * istride]);
- tmp66 = tmp64 + tmp65;
- tmp299 = tmp64 - tmp65;
- {
- fftw_real tmp259;
- fftw_real tmp260;
- fftw_real tmp67;
- fftw_real tmp68;
- ASSERT_ALIGNED_DOUBLE;
- tmp259 = c_im(input[istride]);
- tmp260 = c_im(input[33 * istride]);
- tmp261 = tmp259 - tmp260;
- tmp662 = tmp259 + tmp260;
- tmp67 = c_re(input[17 * istride]);
- tmp68 = c_re(input[49 * istride]);
- tmp69 = tmp67 + tmp68;
- tmp258 = tmp67 - tmp68;
- }
- tmp300 = c_im(input[17 * istride]);
- tmp301 = c_im(input[49 * istride]);
- tmp302 = tmp300 - tmp301;
- tmp663 = tmp300 + tmp301;
- {
- fftw_real tmp74;
- fftw_real tmp75;
- fftw_real tmp263;
- fftw_real tmp264;
- fftw_real tmp265;
- fftw_real tmp266;
- ASSERT_ALIGNED_DOUBLE;
- tmp74 = c_re(input[57 * istride]);
- tmp75 = c_re(input[25 * istride]);
- tmp263 = tmp74 - tmp75;
- tmp264 = c_im(input[57 * istride]);
- tmp265 = c_im(input[25 * istride]);
- tmp266 = tmp264 - tmp265;
- tmp76 = tmp74 + tmp75;
- tmp681 = tmp264 + tmp265;
- tmp267 = tmp263 - tmp266;
- tmp305 = tmp263 + tmp266;
- }
- {
- fftw_real tmp71;
- fftw_real tmp72;
- fftw_real tmp268;
- fftw_real tmp269;
- fftw_real tmp270;
- fftw_real tmp271;
- ASSERT_ALIGNED_DOUBLE;
- tmp71 = c_re(input[9 * istride]);
- tmp72 = c_re(input[41 * istride]);
- tmp268 = tmp71 - tmp72;
- tmp269 = c_im(input[9 * istride]);
- tmp270 = c_im(input[41 * istride]);
- tmp271 = tmp269 - tmp270;
- tmp73 = tmp71 + tmp72;
- tmp680 = tmp269 + tmp270;
- tmp272 = tmp268 + tmp271;
- tmp304 = tmp271 - tmp268;
- }
- }
- {
- fftw_real tmp70;
- fftw_real tmp77;
- fftw_real tmp664;
- fftw_real tmp665;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = tmp66 + tmp69;
- tmp77 = tmp73 + tmp76;
- tmp78 = tmp70 + tmp77;
- tmp831 = tmp70 - tmp77;
- tmp664 = tmp662 - tmp663;
- tmp665 = tmp76 - tmp73;
- tmp666 = tmp664 - tmp665;
- tmp769 = tmp665 + tmp664;
- }
- {
- fftw_real tmp826;
- fftw_real tmp827;
- fftw_real tmp679;
- fftw_real tmp682;
- ASSERT_ALIGNED_DOUBLE;
- tmp826 = tmp662 + tmp663;
- tmp827 = tmp680 + tmp681;
- tmp828 = tmp826 - tmp827;
- tmp887 = tmp826 + tmp827;
- tmp679 = tmp66 - tmp69;
- tmp682 = tmp680 - tmp681;
- tmp683 = tmp679 - tmp682;
- tmp766 = tmp679 + tmp682;
- }
- {
- fftw_real tmp262;
- fftw_real tmp273;
- fftw_real tmp498;
- fftw_real tmp499;
- ASSERT_ALIGNED_DOUBLE;
- tmp262 = tmp258 + tmp261;
- tmp273 = K707106781 * (tmp267 - tmp272);
- tmp274 = tmp262 - tmp273;
- tmp425 = tmp262 + tmp273;
- tmp498 = tmp261 - tmp258;
- tmp499 = K707106781 * (tmp304 + tmp305);
- tmp500 = tmp498 - tmp499;
- tmp589 = tmp498 + tmp499;
- }
- {
- fftw_real tmp303;
- fftw_real tmp306;
- fftw_real tmp509;
- fftw_real tmp510;
- ASSERT_ALIGNED_DOUBLE;
- tmp303 = tmp299 - tmp302;
- tmp306 = K707106781 * (tmp304 - tmp305);
- tmp307 = tmp303 - tmp306;
- tmp422 = tmp303 + tmp306;
- tmp509 = tmp299 + tmp302;
- tmp510 = K707106781 * (tmp272 + tmp267);
- tmp511 = tmp509 - tmp510;
- tmp586 = tmp509 + tmp510;
- }
- }
- {
- fftw_real tmp49;
- fftw_real tmp248;
- fftw_real tmp176;
- fftw_real tmp238;
- fftw_real tmp52;
- fftw_real tmp237;
- fftw_real tmp179;
- fftw_real tmp249;
- fftw_real tmp59;
- fftw_real tmp252;
- fftw_real tmp242;
- fftw_real tmp186;
- fftw_real tmp56;
- fftw_real tmp251;
- fftw_real tmp245;
- fftw_real tmp183;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp47;
- fftw_real tmp48;
- fftw_real tmp177;
- fftw_real tmp178;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = c_re(input[62 * istride]);
- tmp48 = c_re(input[30 * istride]);
- tmp49 = tmp47 + tmp48;
- tmp248 = tmp47 - tmp48;
- {
- fftw_real tmp174;
- fftw_real tmp175;
- fftw_real tmp50;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp174 = c_im(input[62 * istride]);
- tmp175 = c_im(input[30 * istride]);
- tmp176 = tmp174 + tmp175;
- tmp238 = tmp174 - tmp175;
- tmp50 = c_re(input[14 * istride]);
- tmp51 = c_re(input[46 * istride]);
- tmp52 = tmp50 + tmp51;
- tmp237 = tmp50 - tmp51;
- }
- tmp177 = c_im(input[14 * istride]);
- tmp178 = c_im(input[46 * istride]);
- tmp179 = tmp177 + tmp178;
- tmp249 = tmp177 - tmp178;
- {
- fftw_real tmp57;
- fftw_real tmp58;
- fftw_real tmp240;
- fftw_real tmp184;
- fftw_real tmp185;
- fftw_real tmp241;
- ASSERT_ALIGNED_DOUBLE;
- tmp57 = c_re(input[54 * istride]);
- tmp58 = c_re(input[22 * istride]);
- tmp240 = tmp57 - tmp58;
- tmp184 = c_im(input[54 * istride]);
- tmp185 = c_im(input[22 * istride]);
- tmp241 = tmp184 - tmp185;
- tmp59 = tmp57 + tmp58;
- tmp252 = tmp240 + tmp241;
- tmp242 = tmp240 - tmp241;
- tmp186 = tmp184 + tmp185;
- }
- {
- fftw_real tmp54;
- fftw_real tmp55;
- fftw_real tmp243;
- fftw_real tmp181;
- fftw_real tmp182;
- fftw_real tmp244;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = c_re(input[6 * istride]);
- tmp55 = c_re(input[38 * istride]);
- tmp243 = tmp54 - tmp55;
- tmp181 = c_im(input[6 * istride]);
- tmp182 = c_im(input[38 * istride]);
- tmp244 = tmp181 - tmp182;
- tmp56 = tmp54 + tmp55;
- tmp251 = tmp244 - tmp243;
- tmp245 = tmp243 + tmp244;
- tmp183 = tmp181 + tmp182;
- }
- }
- {
- fftw_real tmp53;
- fftw_real tmp60;
- fftw_real tmp653;
- fftw_real tmp654;
- ASSERT_ALIGNED_DOUBLE;
- tmp53 = tmp49 + tmp52;
- tmp60 = tmp56 + tmp59;
- tmp61 = tmp53 + tmp60;
- tmp821 = tmp53 - tmp60;
- tmp653 = tmp176 - tmp179;
- tmp654 = tmp59 - tmp56;
- tmp655 = tmp653 - tmp654;
- tmp761 = tmp654 + tmp653;
- }
- {
- fftw_real tmp180;
- fftw_real tmp187;
- fftw_real tmp656;
- fftw_real tmp657;
- ASSERT_ALIGNED_DOUBLE;
- tmp180 = tmp176 + tmp179;
- tmp187 = tmp183 + tmp186;
- tmp188 = tmp180 + tmp187;
- tmp822 = tmp180 - tmp187;
- tmp656 = tmp49 - tmp52;
- tmp657 = tmp183 - tmp186;
- tmp658 = tmp656 - tmp657;
- tmp762 = tmp656 + tmp657;
- }
- {
- fftw_real tmp239;
- fftw_real tmp246;
- fftw_real tmp489;
- fftw_real tmp490;
- ASSERT_ALIGNED_DOUBLE;
- tmp239 = tmp237 + tmp238;
- tmp246 = K707106781 * (tmp242 - tmp245);
- tmp247 = tmp239 - tmp246;
- tmp417 = tmp239 + tmp246;
- tmp489 = tmp248 + tmp249;
- tmp490 = K707106781 * (tmp245 + tmp242);
- tmp491 = tmp489 - tmp490;
- tmp581 = tmp489 + tmp490;
- }
- {
- fftw_real tmp250;
- fftw_real tmp253;
- fftw_real tmp492;
- fftw_real tmp493;
- ASSERT_ALIGNED_DOUBLE;
- tmp250 = tmp248 - tmp249;
- tmp253 = K707106781 * (tmp251 - tmp252);
- tmp254 = tmp250 - tmp253;
- tmp418 = tmp250 + tmp253;
- tmp492 = tmp238 - tmp237;
- tmp493 = K707106781 * (tmp251 + tmp252);
- tmp494 = tmp492 - tmp493;
- tmp582 = tmp492 + tmp493;
- }
- }
- {
- fftw_real tmp81;
- fftw_real tmp673;
- fftw_real tmp84;
- fftw_real tmp674;
- fftw_real tmp290;
- fftw_real tmp504;
- fftw_real tmp295;
- fftw_real tmp505;
- fftw_real tmp675;
- fftw_real tmp672;
- fftw_real tmp88;
- fftw_real tmp668;
- fftw_real tmp91;
- fftw_real tmp669;
- fftw_real tmp279;
- fftw_real tmp501;
- fftw_real tmp284;
- fftw_real tmp502;
- fftw_real tmp670;
- fftw_real tmp667;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp291;
- fftw_real tmp289;
- fftw_real tmp286;
- fftw_real tmp294;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp79;
- fftw_real tmp80;
- fftw_real tmp287;
- fftw_real tmp288;
- ASSERT_ALIGNED_DOUBLE;
- tmp79 = c_re(input[5 * istride]);
- tmp80 = c_re(input[37 * istride]);
- tmp81 = tmp79 + tmp80;
- tmp291 = tmp79 - tmp80;
- tmp287 = c_im(input[5 * istride]);
- tmp288 = c_im(input[37 * istride]);
- tmp289 = tmp287 - tmp288;
- tmp673 = tmp287 + tmp288;
- }
- {
- fftw_real tmp82;
- fftw_real tmp83;
- fftw_real tmp292;
- fftw_real tmp293;
- ASSERT_ALIGNED_DOUBLE;
- tmp82 = c_re(input[21 * istride]);
- tmp83 = c_re(input[53 * istride]);
- tmp84 = tmp82 + tmp83;
- tmp286 = tmp82 - tmp83;
- tmp292 = c_im(input[21 * istride]);
- tmp293 = c_im(input[53 * istride]);
- tmp294 = tmp292 - tmp293;
- tmp674 = tmp292 + tmp293;
- }
- tmp290 = tmp286 + tmp289;
- tmp504 = tmp289 - tmp286;
- tmp295 = tmp291 - tmp294;
- tmp505 = tmp291 + tmp294;
- tmp675 = tmp673 - tmp674;
- tmp672 = tmp81 - tmp84;
- }
- {
- fftw_real tmp275;
- fftw_real tmp283;
- fftw_real tmp280;
- fftw_real tmp278;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp86;
- fftw_real tmp87;
- fftw_real tmp281;
- fftw_real tmp282;
- ASSERT_ALIGNED_DOUBLE;
- tmp86 = c_re(input[61 * istride]);
- tmp87 = c_re(input[29 * istride]);
- tmp88 = tmp86 + tmp87;
- tmp275 = tmp86 - tmp87;
- tmp281 = c_im(input[61 * istride]);
- tmp282 = c_im(input[29 * istride]);
- tmp283 = tmp281 - tmp282;
- tmp668 = tmp281 + tmp282;
- }
- {
- fftw_real tmp89;
- fftw_real tmp90;
- fftw_real tmp276;
- fftw_real tmp277;
- ASSERT_ALIGNED_DOUBLE;
- tmp89 = c_re(input[13 * istride]);
- tmp90 = c_re(input[45 * istride]);
- tmp91 = tmp89 + tmp90;
- tmp280 = tmp89 - tmp90;
- tmp276 = c_im(input[13 * istride]);
- tmp277 = c_im(input[45 * istride]);
- tmp278 = tmp276 - tmp277;
- tmp669 = tmp276 + tmp277;
- }
- tmp279 = tmp275 - tmp278;
- tmp501 = tmp275 + tmp278;
- tmp284 = tmp280 + tmp283;
- tmp502 = tmp283 - tmp280;
- tmp670 = tmp668 - tmp669;
- tmp667 = tmp88 - tmp91;
- }
- {
- fftw_real tmp85;
- fftw_real tmp92;
- fftw_real tmp308;
- fftw_real tmp309;
- ASSERT_ALIGNED_DOUBLE;
- tmp85 = tmp81 + tmp84;
- tmp92 = tmp88 + tmp91;
- tmp93 = tmp85 + tmp92;
- tmp829 = tmp92 - tmp85;
- tmp308 = (K382683432 * tmp290) - (K923879532 * tmp295);
- tmp309 = (K382683432 * tmp284) + (K923879532 * tmp279);
- tmp310 = tmp308 - tmp309;
- tmp426 = tmp308 + tmp309;
- }
- {
- fftw_real tmp285;
- fftw_real tmp296;
- fftw_real tmp832;
- fftw_real tmp833;
- ASSERT_ALIGNED_DOUBLE;
- tmp285 = (K382683432 * tmp279) - (K923879532 * tmp284);
- tmp296 = (K923879532 * tmp290) + (K382683432 * tmp295);
- tmp297 = tmp285 - tmp296;
- tmp423 = tmp296 + tmp285;
- tmp832 = tmp673 + tmp674;
- tmp833 = tmp668 + tmp669;
- tmp834 = tmp832 - tmp833;
- tmp888 = tmp832 + tmp833;
- }
- {
- fftw_real tmp503;
- fftw_real tmp506;
- fftw_real tmp512;
- fftw_real tmp513;
- ASSERT_ALIGNED_DOUBLE;
- tmp503 = (K923879532 * tmp501) - (K382683432 * tmp502);
- tmp506 = (K382683432 * tmp504) + (K923879532 * tmp505);
- tmp507 = tmp503 - tmp506;
- tmp587 = tmp506 + tmp503;
- tmp512 = (K923879532 * tmp504) - (K382683432 * tmp505);
- tmp513 = (K923879532 * tmp502) + (K382683432 * tmp501);
- tmp514 = tmp512 - tmp513;
- tmp590 = tmp512 + tmp513;
- }
- {
- fftw_real tmp671;
- fftw_real tmp676;
- fftw_real tmp684;
- fftw_real tmp685;
- ASSERT_ALIGNED_DOUBLE;
- tmp671 = tmp667 - tmp670;
- tmp676 = tmp672 + tmp675;
- tmp677 = K707106781 * (tmp671 - tmp676);
- tmp767 = K707106781 * (tmp676 + tmp671);
- tmp684 = tmp675 - tmp672;
- tmp685 = tmp667 + tmp670;
- tmp686 = K707106781 * (tmp684 - tmp685);
- tmp770 = K707106781 * (tmp684 + tmp685);
- }
- }
- {
- fftw_real tmp63;
- fftw_real tmp907;
- fftw_real tmp910;
- fftw_real tmp912;
- fftw_real tmp126;
- fftw_real tmp127;
- fftw_real tmp190;
- fftw_real tmp911;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp31;
- fftw_real tmp62;
- fftw_real tmp908;
- fftw_real tmp909;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = tmp15 + tmp30;
- tmp62 = tmp46 + tmp61;
- tmp63 = tmp31 + tmp62;
- tmp907 = tmp31 - tmp62;
- tmp908 = tmp887 + tmp888;
- tmp909 = tmp892 + tmp893;
- tmp910 = tmp908 - tmp909;
- tmp912 = tmp908 + tmp909;
- }
- {
- fftw_real tmp94;
- fftw_real tmp125;
- fftw_real tmp158;
- fftw_real tmp189;
- ASSERT_ALIGNED_DOUBLE;
- tmp94 = tmp78 + tmp93;
- tmp125 = tmp109 + tmp124;
- tmp126 = tmp94 + tmp125;
- tmp127 = tmp125 - tmp94;
- tmp158 = tmp142 + tmp157;
- tmp189 = tmp173 + tmp188;
- tmp190 = tmp158 - tmp189;
- tmp911 = tmp158 + tmp189;
- }
- c_re(output[32 * ostride]) = tmp63 - tmp126;
- c_re(output[0]) = tmp63 + tmp126;
- c_im(output[16 * ostride]) = tmp127 + tmp190;
- c_im(output[48 * ostride]) = tmp190 - tmp127;
- c_re(output[48 * ostride]) = tmp907 - tmp910;
- c_re(output[16 * ostride]) = tmp907 + tmp910;
- c_im(output[32 * ostride]) = tmp911 - tmp912;
- c_im(output[0]) = tmp911 + tmp912;
- }
- {
- fftw_real tmp885;
- fftw_real tmp901;
- fftw_real tmp899;
- fftw_real tmp905;
- fftw_real tmp890;
- fftw_real tmp902;
- fftw_real tmp895;
- fftw_real tmp903;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp883;
- fftw_real tmp884;
- fftw_real tmp897;
- fftw_real tmp898;
- ASSERT_ALIGNED_DOUBLE;
- tmp883 = tmp15 - tmp30;
- tmp884 = tmp173 - tmp188;
- tmp885 = tmp883 + tmp884;
- tmp901 = tmp883 - tmp884;
- tmp897 = tmp142 - tmp157;
- tmp898 = tmp61 - tmp46;
- tmp899 = tmp897 - tmp898;
- tmp905 = tmp898 + tmp897;
- }
- {
- fftw_real tmp886;
- fftw_real tmp889;
- fftw_real tmp891;
- fftw_real tmp894;
- ASSERT_ALIGNED_DOUBLE;
- tmp886 = tmp78 - tmp93;
- tmp889 = tmp887 - tmp888;
- tmp890 = tmp886 + tmp889;
- tmp902 = tmp889 - tmp886;
- tmp891 = tmp109 - tmp124;
- tmp894 = tmp892 - tmp893;
- tmp895 = tmp891 - tmp894;
- tmp903 = tmp891 + tmp894;
- }
- {
- fftw_real tmp896;
- fftw_real tmp900;
- fftw_real tmp904;
- fftw_real tmp906;
- ASSERT_ALIGNED_DOUBLE;
- tmp896 = K707106781 * (tmp890 + tmp895);
- c_re(output[40 * ostride]) = tmp885 - tmp896;
- c_re(output[8 * ostride]) = tmp885 + tmp896;
- tmp900 = K707106781 * (tmp895 - tmp890);
- c_im(output[56 * ostride]) = tmp899 - tmp900;
- c_im(output[24 * ostride]) = tmp899 + tmp900;
- tmp904 = K707106781 * (tmp902 - tmp903);
- c_re(output[56 * ostride]) = tmp901 - tmp904;
- c_re(output[24 * ostride]) = tmp901 + tmp904;
- tmp906 = K707106781 * (tmp902 + tmp903);
- c_im(output[40 * ostride]) = tmp905 - tmp906;
- c_im(output[8 * ostride]) = tmp905 + tmp906;
- }
- }
- {
- fftw_real tmp217;
- fftw_real tmp391;
- fftw_real tmp396;
- fftw_real tmp406;
- fftw_real tmp399;
- fftw_real tmp407;
- fftw_real tmp367;
- fftw_real tmp387;
- fftw_real tmp312;
- fftw_real tmp386;
- fftw_real tmp379;
- fftw_real tmp401;
- fftw_real tmp382;
- fftw_real tmp392;
- fftw_real tmp256;
- fftw_real tmp402;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp201;
- fftw_real tmp216;
- fftw_real tmp394;
- fftw_real tmp395;
- ASSERT_ALIGNED_DOUBLE;
- tmp201 = tmp193 - tmp200;
- tmp216 = tmp208 - tmp215;
- tmp217 = tmp201 - tmp216;
- tmp391 = tmp201 + tmp216;
- tmp394 = tmp274 + tmp297;
- tmp395 = tmp307 + tmp310;
- tmp396 = (K634393284 * tmp394) + (K773010453 * tmp395);
- tmp406 = (K773010453 * tmp394) - (K634393284 * tmp395);
- }
- {
- fftw_real tmp397;
- fftw_real tmp398;
- fftw_real tmp353;
- fftw_real tmp366;
- ASSERT_ALIGNED_DOUBLE;
- tmp397 = tmp329 + tmp352;
- tmp398 = tmp362 + tmp365;
- tmp399 = (K773010453 * tmp397) - (K634393284 * tmp398);
- tmp407 = (K773010453 * tmp398) + (K634393284 * tmp397);
- tmp353 = tmp329 - tmp352;
- tmp366 = tmp362 - tmp365;
- tmp367 = (K098017140 * tmp353) - (K995184726 * tmp366);
- tmp387 = (K098017140 * tmp366) + (K995184726 * tmp353);
- }
- {
- fftw_real tmp298;
- fftw_real tmp311;
- fftw_real tmp375;
- fftw_real tmp378;
- ASSERT_ALIGNED_DOUBLE;
- tmp298 = tmp274 - tmp297;
- tmp311 = tmp307 - tmp310;
- tmp312 = (K995184726 * tmp298) + (K098017140 * tmp311);
- tmp386 = (K098017140 * tmp298) - (K995184726 * tmp311);
- tmp375 = tmp371 - tmp374;
- tmp378 = tmp376 - tmp377;
- tmp379 = tmp375 - tmp378;
- tmp401 = tmp375 + tmp378;
- }
- {
- fftw_real tmp380;
- fftw_real tmp381;
- fftw_real tmp236;
- fftw_real tmp255;
- ASSERT_ALIGNED_DOUBLE;
- tmp380 = (K195090322 * tmp254) - (K980785280 * tmp247);
- tmp381 = (K980785280 * tmp228) + (K195090322 * tmp235);
- tmp382 = tmp380 - tmp381;
- tmp392 = tmp381 + tmp380;
- tmp236 = (K195090322 * tmp228) - (K980785280 * tmp235);
- tmp255 = (K195090322 * tmp247) + (K980785280 * tmp254);
- tmp256 = tmp236 - tmp255;
- tmp402 = tmp236 + tmp255;
- }
- {
- fftw_real tmp257;
- fftw_real tmp368;
- fftw_real tmp383;
- fftw_real tmp384;
- ASSERT_ALIGNED_DOUBLE;
- tmp257 = tmp217 + tmp256;
- tmp368 = tmp312 + tmp367;
- c_re(output[47 * ostride]) = tmp257 - tmp368;
- c_re(output[15 * ostride]) = tmp257 + tmp368;
- tmp383 = tmp379 - tmp382;
- tmp384 = tmp367 - tmp312;
- c_im(output[63 * ostride]) = tmp383 - tmp384;
- c_im(output[31 * ostride]) = tmp383 + tmp384;
- }
- {
- fftw_real tmp389;
- fftw_real tmp390;
- fftw_real tmp385;
- fftw_real tmp388;
- ASSERT_ALIGNED_DOUBLE;
- tmp389 = tmp379 + tmp382;
- tmp390 = tmp386 + tmp387;
- c_im(output[47 * ostride]) = tmp389 - tmp390;
- c_im(output[15 * ostride]) = tmp389 + tmp390;
- tmp385 = tmp217 - tmp256;
- tmp388 = tmp386 - tmp387;
- c_re(output[63 * ostride]) = tmp385 - tmp388;
- c_re(output[31 * ostride]) = tmp385 + tmp388;
- }
- {
- fftw_real tmp393;
- fftw_real tmp400;
- fftw_real tmp403;
- fftw_real tmp404;
- ASSERT_ALIGNED_DOUBLE;
- tmp393 = tmp391 + tmp392;
- tmp400 = tmp396 + tmp399;
- c_re(output[39 * ostride]) = tmp393 - tmp400;
- c_re(output[7 * ostride]) = tmp393 + tmp400;
- tmp403 = tmp401 - tmp402;
- tmp404 = tmp399 - tmp396;
- c_im(output[55 * ostride]) = tmp403 - tmp404;
- c_im(output[23 * ostride]) = tmp403 + tmp404;
- }
- {
- fftw_real tmp409;
- fftw_real tmp410;
- fftw_real tmp405;
- fftw_real tmp408;
- ASSERT_ALIGNED_DOUBLE;
- tmp409 = tmp401 + tmp402;
- tmp410 = tmp406 + tmp407;
- c_im(output[39 * ostride]) = tmp409 - tmp410;
- c_im(output[7 * ostride]) = tmp409 + tmp410;
- tmp405 = tmp391 - tmp392;
- tmp408 = tmp406 - tmp407;
- c_re(output[55 * ostride]) = tmp405 - tmp408;
- c_re(output[23 * ostride]) = tmp405 + tmp408;
- }
- }
- {
- fftw_real tmp413;
- fftw_real tmp451;
- fftw_real tmp456;
- fftw_real tmp466;
- fftw_real tmp459;
- fftw_real tmp467;
- fftw_real tmp435;
- fftw_real tmp447;
- fftw_real tmp428;
- fftw_real tmp446;
- fftw_real tmp439;
- fftw_real tmp461;
- fftw_real tmp442;
- fftw_real tmp452;
- fftw_real tmp420;
- fftw_real tmp462;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp411;
- fftw_real tmp412;
- fftw_real tmp454;
- fftw_real tmp455;
- ASSERT_ALIGNED_DOUBLE;
- tmp411 = tmp193 + tmp200;
- tmp412 = tmp377 + tmp376;
- tmp413 = tmp411 - tmp412;
- tmp451 = tmp411 + tmp412;
- tmp454 = tmp422 + tmp423;
- tmp455 = tmp425 + tmp426;
- tmp456 = (K956940335 * tmp454) + (K290284677 * tmp455);
- tmp466 = (K956940335 * tmp455) - (K290284677 * tmp454);
- }
- {
- fftw_real tmp457;
- fftw_real tmp458;
- fftw_real tmp431;
- fftw_real tmp434;
- ASSERT_ALIGNED_DOUBLE;
- tmp457 = tmp429 + tmp430;
- tmp458 = tmp432 + tmp433;
- tmp459 = (K956940335 * tmp457) - (K290284677 * tmp458);
- tmp467 = (K290284677 * tmp457) + (K956940335 * tmp458);
- tmp431 = tmp429 - tmp430;
- tmp434 = tmp432 - tmp433;
- tmp435 = (K471396736 * tmp431) - (K881921264 * tmp434);
- tmp447 = (K881921264 * tmp431) + (K471396736 * tmp434);
- }
- {
- fftw_real tmp424;
- fftw_real tmp427;
- fftw_real tmp437;
- fftw_real tmp438;
- ASSERT_ALIGNED_DOUBLE;
- tmp424 = tmp422 - tmp423;
- tmp427 = tmp425 - tmp426;
- tmp428 = (K471396736 * tmp424) + (K881921264 * tmp427);
- tmp446 = (K471396736 * tmp427) - (K881921264 * tmp424);
- tmp437 = tmp371 + tmp374;
- tmp438 = tmp208 + tmp215;
- tmp439 = tmp437 - tmp438;
- tmp461 = tmp437 + tmp438;
- }
- {
- fftw_real tmp440;
- fftw_real tmp441;
- fftw_real tmp416;
- fftw_real tmp419;
- ASSERT_ALIGNED_DOUBLE;
- tmp440 = (K831469612 * tmp418) - (K555570233 * tmp417);
- tmp441 = (K555570233 * tmp414) + (K831469612 * tmp415);
- tmp442 = tmp440 - tmp441;
- tmp452 = tmp441 + tmp440;
- tmp416 = (K831469612 * tmp414) - (K555570233 * tmp415);
- tmp419 = (K831469612 * tmp417) + (K555570233 * tmp418);
- tmp420 = tmp416 - tmp419;
- tmp462 = tmp416 + tmp419;
- }
- {
- fftw_real tmp421;
- fftw_real tmp436;
- fftw_real tmp443;
- fftw_real tmp444;
- ASSERT_ALIGNED_DOUBLE;
- tmp421 = tmp413 + tmp420;
- tmp436 = tmp428 + tmp435;
- c_re(output[43 * ostride]) = tmp421 - tmp436;
- c_re(output[11 * ostride]) = tmp421 + tmp436;
- tmp443 = tmp439 - tmp442;
- tmp444 = tmp435 - tmp428;
- c_im(output[59 * ostride]) = tmp443 - tmp444;
- c_im(output[27 * ostride]) = tmp443 + tmp444;
- }
- {
- fftw_real tmp449;
- fftw_real tmp450;
- fftw_real tmp445;
- fftw_real tmp448;
- ASSERT_ALIGNED_DOUBLE;
- tmp449 = tmp439 + tmp442;
- tmp450 = tmp446 + tmp447;
- c_im(output[43 * ostride]) = tmp449 - tmp450;
- c_im(output[11 * ostride]) = tmp449 + tmp450;
- tmp445 = tmp413 - tmp420;
- tmp448 = tmp446 - tmp447;
- c_re(output[59 * ostride]) = tmp445 - tmp448;
- c_re(output[27 * ostride]) = tmp445 + tmp448;
- }
- {
- fftw_real tmp453;
- fftw_real tmp460;
- fftw_real tmp463;
- fftw_real tmp464;
- ASSERT_ALIGNED_DOUBLE;
- tmp453 = tmp451 + tmp452;
- tmp460 = tmp456 + tmp459;
- c_re(output[35 * ostride]) = tmp453 - tmp460;
- c_re(output[3 * ostride]) = tmp453 + tmp460;
- tmp463 = tmp461 - tmp462;
- tmp464 = tmp459 - tmp456;
- c_im(output[51 * ostride]) = tmp463 - tmp464;
- c_im(output[19 * ostride]) = tmp463 + tmp464;
- }
- {
- fftw_real tmp469;
- fftw_real tmp470;
- fftw_real tmp465;
- fftw_real tmp468;
- ASSERT_ALIGNED_DOUBLE;
- tmp469 = tmp461 + tmp462;
- tmp470 = tmp466 + tmp467;
- c_im(output[35 * ostride]) = tmp469 - tmp470;
- c_im(output[3 * ostride]) = tmp469 + tmp470;
- tmp465 = tmp451 - tmp452;
- tmp468 = tmp466 - tmp467;
- c_re(output[51 * ostride]) = tmp465 - tmp468;
- c_re(output[19 * ostride]) = tmp465 + tmp468;
- }
- }
- {
- fftw_real tmp817;
- fftw_real tmp863;
- fftw_real tmp824;
- fftw_real tmp874;
- fftw_real tmp854;
- fftw_real tmp864;
- fftw_real tmp836;
- fftw_real tmp858;
- fftw_real tmp851;
- fftw_real tmp873;
- fftw_real tmp868;
- fftw_real tmp878;
- fftw_real tmp847;
- fftw_real tmp859;
- fftw_real tmp871;
- fftw_real tmp879;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp820;
- fftw_real tmp823;
- fftw_real tmp866;
- fftw_real tmp867;
- ASSERT_ALIGNED_DOUBLE;
- tmp817 = tmp815 - tmp816;
- tmp863 = tmp815 + tmp816;
- tmp820 = tmp818 - tmp819;
- tmp823 = tmp821 + tmp822;
- tmp824 = K707106781 * (tmp820 - tmp823);
- tmp874 = K707106781 * (tmp820 + tmp823);
- {
- fftw_real tmp852;
- fftw_real tmp853;
- fftw_real tmp830;
- fftw_real tmp835;
- ASSERT_ALIGNED_DOUBLE;
- tmp852 = tmp821 - tmp822;
- tmp853 = tmp819 + tmp818;
- tmp854 = K707106781 * (tmp852 - tmp853);
- tmp864 = K707106781 * (tmp853 + tmp852);
- tmp830 = tmp828 - tmp829;
- tmp835 = tmp831 - tmp834;
- tmp836 = (K923879532 * tmp830) + (K382683432 * tmp835);
- tmp858 = (K382683432 * tmp830) - (K923879532 * tmp835);
- }
- tmp851 = tmp849 - tmp850;
- tmp873 = tmp850 + tmp849;
- tmp866 = tmp829 + tmp828;
- tmp867 = tmp831 + tmp834;
- tmp868 = (K382683432 * tmp866) + (K923879532 * tmp867);
- tmp878 = (K923879532 * tmp866) - (K382683432 * tmp867);
- {
- fftw_real tmp841;
- fftw_real tmp846;
- fftw_real tmp869;
- fftw_real tmp870;
- ASSERT_ALIGNED_DOUBLE;
- tmp841 = tmp837 - tmp840;
- tmp846 = tmp844 - tmp845;
- tmp847 = (K382683432 * tmp841) - (K923879532 * tmp846);
- tmp859 = (K382683432 * tmp846) + (K923879532 * tmp841);
- tmp869 = tmp837 + tmp840;
- tmp870 = tmp845 + tmp844;
- tmp871 = (K923879532 * tmp869) - (K382683432 * tmp870);
- tmp879 = (K923879532 * tmp870) + (K382683432 * tmp869);
- }
- }
- {
- fftw_real tmp825;
- fftw_real tmp848;
- fftw_real tmp855;
- fftw_real tmp856;
- ASSERT_ALIGNED_DOUBLE;
- tmp825 = tmp817 + tmp824;
- tmp848 = tmp836 + tmp847;
- c_re(output[44 * ostride]) = tmp825 - tmp848;
- c_re(output[12 * ostride]) = tmp825 + tmp848;
- tmp855 = tmp851 - tmp854;
- tmp856 = tmp847 - tmp836;
- c_im(output[60 * ostride]) = tmp855 - tmp856;
- c_im(output[28 * ostride]) = tmp855 + tmp856;
- }
- {
- fftw_real tmp861;
- fftw_real tmp862;
- fftw_real tmp857;
- fftw_real tmp860;
- ASSERT_ALIGNED_DOUBLE;
- tmp861 = tmp851 + tmp854;
- tmp862 = tmp858 + tmp859;
- c_im(output[44 * ostride]) = tmp861 - tmp862;
- c_im(output[12 * ostride]) = tmp861 + tmp862;
- tmp857 = tmp817 - tmp824;
- tmp860 = tmp858 - tmp859;
- c_re(output[60 * ostride]) = tmp857 - tmp860;
- c_re(output[28 * ostride]) = tmp857 + tmp860;
- }
- {
- fftw_real tmp865;
- fftw_real tmp872;
- fftw_real tmp875;
- fftw_real tmp876;
- ASSERT_ALIGNED_DOUBLE;
- tmp865 = tmp863 + tmp864;
- tmp872 = tmp868 + tmp871;
- c_re(output[36 * ostride]) = tmp865 - tmp872;
- c_re(output[4 * ostride]) = tmp865 + tmp872;
- tmp875 = tmp873 - tmp874;
- tmp876 = tmp871 - tmp868;
- c_im(output[52 * ostride]) = tmp875 - tmp876;
- c_im(output[20 * ostride]) = tmp875 + tmp876;
- }
- {
- fftw_real tmp881;
- fftw_real tmp882;
- fftw_real tmp877;
- fftw_real tmp880;
- ASSERT_ALIGNED_DOUBLE;
- tmp881 = tmp873 + tmp874;
- tmp882 = tmp878 + tmp879;
- c_im(output[36 * ostride]) = tmp881 - tmp882;
- c_im(output[4 * ostride]) = tmp881 + tmp882;
- tmp877 = tmp863 - tmp864;
- tmp880 = tmp878 - tmp879;
- c_re(output[52 * ostride]) = tmp877 - tmp880;
- c_re(output[20 * ostride]) = tmp877 + tmp880;
- }
- }
- {
- fftw_real tmp757;
- fftw_real tmp795;
- fftw_real tmp800;
- fftw_real tmp810;
- fftw_real tmp803;
- fftw_real tmp811;
- fftw_real tmp779;
- fftw_real tmp791;
- fftw_real tmp783;
- fftw_real tmp805;
- fftw_real tmp764;
- fftw_real tmp806;
- fftw_real tmp786;
- fftw_real tmp796;
- fftw_real tmp772;
- fftw_real tmp790;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp756;
- fftw_real tmp798;
- fftw_real tmp799;
- fftw_real tmp782;
- fftw_real tmp760;
- fftw_real tmp763;
- ASSERT_ALIGNED_DOUBLE;
- tmp756 = K707106781 * (tmp721 + tmp720);
- tmp757 = tmp755 - tmp756;
- tmp795 = tmp755 + tmp756;
- tmp798 = tmp766 + tmp767;
- tmp799 = tmp769 + tmp770;
- tmp800 = (K980785280 * tmp798) + (K195090322 * tmp799);
- tmp810 = (K980785280 * tmp799) - (K195090322 * tmp798);
- {
- fftw_real tmp801;
- fftw_real tmp802;
- fftw_real tmp775;
- fftw_real tmp778;
- ASSERT_ALIGNED_DOUBLE;
- tmp801 = tmp773 + tmp774;
- tmp802 = tmp776 + tmp777;
- tmp803 = (K980785280 * tmp801) - (K195090322 * tmp802);
- tmp811 = (K195090322 * tmp801) + (K980785280 * tmp802);
- tmp775 = tmp773 - tmp774;
- tmp778 = tmp776 - tmp777;
- tmp779 = (K555570233 * tmp775) - (K831469612 * tmp778);
- tmp791 = (K831469612 * tmp775) + (K555570233 * tmp778);
- }
- tmp782 = K707106781 * (tmp640 + tmp643);
- tmp783 = tmp781 - tmp782;
- tmp805 = tmp781 + tmp782;
- tmp760 = (K923879532 * tmp758) - (K382683432 * tmp759);
- tmp763 = (K923879532 * tmp761) + (K382683432 * tmp762);
- tmp764 = tmp760 - tmp763;
- tmp806 = tmp760 + tmp763;
- {
- fftw_real tmp784;
- fftw_real tmp785;
- fftw_real tmp768;
- fftw_real tmp771;
- ASSERT_ALIGNED_DOUBLE;
- tmp784 = (K923879532 * tmp762) - (K382683432 * tmp761);
- tmp785 = (K382683432 * tmp758) + (K923879532 * tmp759);
- tmp786 = tmp784 - tmp785;
- tmp796 = tmp785 + tmp784;
- tmp768 = tmp766 - tmp767;
- tmp771 = tmp769 - tmp770;
- tmp772 = (K555570233 * tmp768) + (K831469612 * tmp771);
- tmp790 = (K555570233 * tmp771) - (K831469612 * tmp768);
- }
- }
- {
- fftw_real tmp765;
- fftw_real tmp780;
- fftw_real tmp787;
- fftw_real tmp788;
- ASSERT_ALIGNED_DOUBLE;
- tmp765 = tmp757 + tmp764;
- tmp780 = tmp772 + tmp779;
- c_re(output[42 * ostride]) = tmp765 - tmp780;
- c_re(output[10 * ostride]) = tmp765 + tmp780;
- tmp787 = tmp783 - tmp786;
- tmp788 = tmp779 - tmp772;
- c_im(output[58 * ostride]) = tmp787 - tmp788;
- c_im(output[26 * ostride]) = tmp787 + tmp788;
- }
- {
- fftw_real tmp793;
- fftw_real tmp794;
- fftw_real tmp789;
- fftw_real tmp792;
- ASSERT_ALIGNED_DOUBLE;
- tmp793 = tmp783 + tmp786;
- tmp794 = tmp790 + tmp791;
- c_im(output[42 * ostride]) = tmp793 - tmp794;
- c_im(output[10 * ostride]) = tmp793 + tmp794;
- tmp789 = tmp757 - tmp764;
- tmp792 = tmp790 - tmp791;
- c_re(output[58 * ostride]) = tmp789 - tmp792;
- c_re(output[26 * ostride]) = tmp789 + tmp792;
- }
- {
- fftw_real tmp797;
- fftw_real tmp804;
- fftw_real tmp807;
- fftw_real tmp808;
- ASSERT_ALIGNED_DOUBLE;
- tmp797 = tmp795 + tmp796;
- tmp804 = tmp800 + tmp803;
- c_re(output[34 * ostride]) = tmp797 - tmp804;
- c_re(output[2 * ostride]) = tmp797 + tmp804;
- tmp807 = tmp805 - tmp806;
- tmp808 = tmp803 - tmp800;
- c_im(output[50 * ostride]) = tmp807 - tmp808;
- c_im(output[18 * ostride]) = tmp807 + tmp808;
- }
- {
- fftw_real tmp813;
- fftw_real tmp814;
- fftw_real tmp809;
- fftw_real tmp812;
- ASSERT_ALIGNED_DOUBLE;
- tmp813 = tmp805 + tmp806;
- tmp814 = tmp810 + tmp811;
- c_im(output[34 * ostride]) = tmp813 - tmp814;
- c_im(output[2 * ostride]) = tmp813 + tmp814;
- tmp809 = tmp795 - tmp796;
- tmp812 = tmp810 - tmp811;
- c_re(output[50 * ostride]) = tmp809 - tmp812;
- c_re(output[18 * ostride]) = tmp809 + tmp812;
- }
- }
- {
- fftw_real tmp645;
- fftw_real tmp735;
- fftw_real tmp740;
- fftw_real tmp750;
- fftw_real tmp743;
- fftw_real tmp751;
- fftw_real tmp715;
- fftw_real tmp731;
- fftw_real tmp723;
- fftw_real tmp745;
- fftw_real tmp660;
- fftw_real tmp746;
- fftw_real tmp726;
- fftw_real tmp736;
- fftw_real tmp688;
- fftw_real tmp730;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp644;
- fftw_real tmp738;
- fftw_real tmp739;
- fftw_real tmp722;
- fftw_real tmp652;
- fftw_real tmp659;
- ASSERT_ALIGNED_DOUBLE;
- tmp644 = K707106781 * (tmp640 - tmp643);
- tmp645 = tmp637 - tmp644;
- tmp735 = tmp637 + tmp644;
- tmp738 = tmp666 + tmp677;
- tmp739 = tmp683 + tmp686;
- tmp740 = (K555570233 * tmp738) + (K831469612 * tmp739);
- tmp750 = (K831469612 * tmp738) - (K555570233 * tmp739);
- {
- fftw_real tmp741;
- fftw_real tmp742;
- fftw_real tmp705;
- fftw_real tmp714;
- ASSERT_ALIGNED_DOUBLE;
- tmp741 = tmp693 + tmp704;
- tmp742 = tmp710 + tmp713;
- tmp743 = (K831469612 * tmp741) - (K555570233 * tmp742);
- tmp751 = (K831469612 * tmp742) + (K555570233 * tmp741);
- tmp705 = tmp693 - tmp704;
- tmp714 = tmp710 - tmp713;
- tmp715 = (K195090322 * tmp705) - (K980785280 * tmp714);
- tmp731 = (K195090322 * tmp714) + (K980785280 * tmp705);
- }
- tmp722 = K707106781 * (tmp720 - tmp721);
- tmp723 = tmp719 - tmp722;
- tmp745 = tmp719 + tmp722;
- tmp652 = (K382683432 * tmp648) - (K923879532 * tmp651);
- tmp659 = (K382683432 * tmp655) + (K923879532 * tmp658);
- tmp660 = tmp652 - tmp659;
- tmp746 = tmp652 + tmp659;
- {
- fftw_real tmp724;
- fftw_real tmp725;
- fftw_real tmp678;
- fftw_real tmp687;
- ASSERT_ALIGNED_DOUBLE;
- tmp724 = (K382683432 * tmp658) - (K923879532 * tmp655);
- tmp725 = (K923879532 * tmp648) + (K382683432 * tmp651);
- tmp726 = tmp724 - tmp725;
- tmp736 = tmp725 + tmp724;
- tmp678 = tmp666 - tmp677;
- tmp687 = tmp683 - tmp686;
- tmp688 = (K980785280 * tmp678) + (K195090322 * tmp687);
- tmp730 = (K195090322 * tmp678) - (K980785280 * tmp687);
- }
- }
- {
- fftw_real tmp661;
- fftw_real tmp716;
- fftw_real tmp727;
- fftw_real tmp728;
- ASSERT_ALIGNED_DOUBLE;
- tmp661 = tmp645 + tmp660;
- tmp716 = tmp688 + tmp715;
- c_re(output[46 * ostride]) = tmp661 - tmp716;
- c_re(output[14 * ostride]) = tmp661 + tmp716;
- tmp727 = tmp723 - tmp726;
- tmp728 = tmp715 - tmp688;
- c_im(output[62 * ostride]) = tmp727 - tmp728;
- c_im(output[30 * ostride]) = tmp727 + tmp728;
- }
- {
- fftw_real tmp733;
- fftw_real tmp734;
- fftw_real tmp729;
- fftw_real tmp732;
- ASSERT_ALIGNED_DOUBLE;
- tmp733 = tmp723 + tmp726;
- tmp734 = tmp730 + tmp731;
- c_im(output[46 * ostride]) = tmp733 - tmp734;
- c_im(output[14 * ostride]) = tmp733 + tmp734;
- tmp729 = tmp645 - tmp660;
- tmp732 = tmp730 - tmp731;
- c_re(output[62 * ostride]) = tmp729 - tmp732;
- c_re(output[30 * ostride]) = tmp729 + tmp732;
- }
- {
- fftw_real tmp737;
- fftw_real tmp744;
- fftw_real tmp747;
- fftw_real tmp748;
- ASSERT_ALIGNED_DOUBLE;
- tmp737 = tmp735 + tmp736;
- tmp744 = tmp740 + tmp743;
- c_re(output[38 * ostride]) = tmp737 - tmp744;
- c_re(output[6 * ostride]) = tmp737 + tmp744;
- tmp747 = tmp745 - tmp746;
- tmp748 = tmp743 - tmp740;
- c_im(output[54 * ostride]) = tmp747 - tmp748;
- c_im(output[22 * ostride]) = tmp747 + tmp748;
- }
- {
- fftw_real tmp753;
- fftw_real tmp754;
- fftw_real tmp749;
- fftw_real tmp752;
- ASSERT_ALIGNED_DOUBLE;
- tmp753 = tmp745 + tmp746;
- tmp754 = tmp750 + tmp751;
- c_im(output[38 * ostride]) = tmp753 - tmp754;
- c_im(output[6 * ostride]) = tmp753 + tmp754;
- tmp749 = tmp735 - tmp736;
- tmp752 = tmp750 - tmp751;
- c_re(output[54 * ostride]) = tmp749 - tmp752;
- c_re(output[22 * ostride]) = tmp749 + tmp752;
- }
- }
- {
- fftw_real tmp481;
- fftw_real tmp555;
- fftw_real tmp560;
- fftw_real tmp570;
- fftw_real tmp563;
- fftw_real tmp571;
- fftw_real tmp535;
- fftw_real tmp551;
- fftw_real tmp516;
- fftw_real tmp550;
- fftw_real tmp543;
- fftw_real tmp565;
- fftw_real tmp546;
- fftw_real tmp556;
- fftw_real tmp496;
- fftw_real tmp566;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp473;
- fftw_real tmp480;
- fftw_real tmp558;
- fftw_real tmp559;
- ASSERT_ALIGNED_DOUBLE;
- tmp473 = tmp471 - tmp472;
- tmp480 = tmp476 - tmp479;
- tmp481 = tmp473 - tmp480;
- tmp555 = tmp473 + tmp480;
- tmp558 = tmp500 + tmp507;
- tmp559 = tmp511 + tmp514;
- tmp560 = (K471396736 * tmp558) + (K881921264 * tmp559);
- tmp570 = (K881921264 * tmp558) - (K471396736 * tmp559);
- }
- {
- fftw_real tmp561;
- fftw_real tmp562;
- fftw_real tmp527;
- fftw_real tmp534;
- ASSERT_ALIGNED_DOUBLE;
- tmp561 = tmp519 + tmp526;
- tmp562 = tmp530 + tmp533;
- tmp563 = (K881921264 * tmp561) - (K471396736 * tmp562);
- tmp571 = (K881921264 * tmp562) + (K471396736 * tmp561);
- tmp527 = tmp519 - tmp526;
- tmp534 = tmp530 - tmp533;
- tmp535 = (K290284677 * tmp527) - (K956940335 * tmp534);
- tmp551 = (K290284677 * tmp534) + (K956940335 * tmp527);
- }
- {
- fftw_real tmp508;
- fftw_real tmp515;
- fftw_real tmp539;
- fftw_real tmp542;
- ASSERT_ALIGNED_DOUBLE;
- tmp508 = tmp500 - tmp507;
- tmp515 = tmp511 - tmp514;
- tmp516 = (K956940335 * tmp508) + (K290284677 * tmp515);
- tmp550 = (K290284677 * tmp508) - (K956940335 * tmp515);
- tmp539 = tmp537 - tmp538;
- tmp542 = tmp540 - tmp541;
- tmp543 = tmp539 - tmp542;
- tmp565 = tmp539 + tmp542;
- }
- {
- fftw_real tmp544;
- fftw_real tmp545;
- fftw_real tmp488;
- fftw_real tmp495;
- ASSERT_ALIGNED_DOUBLE;
- tmp544 = (K555570233 * tmp491) - (K831469612 * tmp494);
- tmp545 = (K555570233 * tmp487) + (K831469612 * tmp484);
- tmp546 = tmp544 - tmp545;
- tmp556 = tmp545 + tmp544;
- tmp488 = (K555570233 * tmp484) - (K831469612 * tmp487);
- tmp495 = (K831469612 * tmp491) + (K555570233 * tmp494);
- tmp496 = tmp488 - tmp495;
- tmp566 = tmp488 + tmp495;
- }
- {
- fftw_real tmp497;
- fftw_real tmp536;
- fftw_real tmp547;
- fftw_real tmp548;
- ASSERT_ALIGNED_DOUBLE;
- tmp497 = tmp481 + tmp496;
- tmp536 = tmp516 + tmp535;
- c_re(output[45 * ostride]) = tmp497 - tmp536;
- c_re(output[13 * ostride]) = tmp497 + tmp536;
- tmp547 = tmp543 - tmp546;
- tmp548 = tmp535 - tmp516;
- c_im(output[61 * ostride]) = tmp547 - tmp548;
- c_im(output[29 * ostride]) = tmp547 + tmp548;
- }
- {
- fftw_real tmp553;
- fftw_real tmp554;
- fftw_real tmp549;
- fftw_real tmp552;
- ASSERT_ALIGNED_DOUBLE;
- tmp553 = tmp543 + tmp546;
- tmp554 = tmp550 + tmp551;
- c_im(output[45 * ostride]) = tmp553 - tmp554;
- c_im(output[13 * ostride]) = tmp553 + tmp554;
- tmp549 = tmp481 - tmp496;
- tmp552 = tmp550 - tmp551;
- c_re(output[61 * ostride]) = tmp549 - tmp552;
- c_re(output[29 * ostride]) = tmp549 + tmp552;
- }
- {
- fftw_real tmp557;
- fftw_real tmp564;
- fftw_real tmp567;
- fftw_real tmp568;
- ASSERT_ALIGNED_DOUBLE;
- tmp557 = tmp555 + tmp556;
- tmp564 = tmp560 + tmp563;
- c_re(output[37 * ostride]) = tmp557 - tmp564;
- c_re(output[5 * ostride]) = tmp557 + tmp564;
- tmp567 = tmp565 - tmp566;
- tmp568 = tmp563 - tmp560;
- c_im(output[53 * ostride]) = tmp567 - tmp568;
- c_im(output[21 * ostride]) = tmp567 + tmp568;
- }
- {
- fftw_real tmp573;
- fftw_real tmp574;
- fftw_real tmp569;
- fftw_real tmp572;
- ASSERT_ALIGNED_DOUBLE;
- tmp573 = tmp565 + tmp566;
- tmp574 = tmp570 + tmp571;
- c_im(output[37 * ostride]) = tmp573 - tmp574;
- c_im(output[5 * ostride]) = tmp573 + tmp574;
- tmp569 = tmp555 - tmp556;
- tmp572 = tmp570 - tmp571;
- c_re(output[53 * ostride]) = tmp569 - tmp572;
- c_re(output[21 * ostride]) = tmp569 + tmp572;
- }
- }
- {
- fftw_real tmp577;
- fftw_real tmp615;
- fftw_real tmp620;
- fftw_real tmp630;
- fftw_real tmp623;
- fftw_real tmp631;
- fftw_real tmp599;
- fftw_real tmp611;
- fftw_real tmp592;
- fftw_real tmp610;
- fftw_real tmp603;
- fftw_real tmp625;
- fftw_real tmp606;
- fftw_real tmp616;
- fftw_real tmp584;
- fftw_real tmp626;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp575;
- fftw_real tmp576;
- fftw_real tmp618;
- fftw_real tmp619;
- ASSERT_ALIGNED_DOUBLE;
- tmp575 = tmp471 + tmp472;
- tmp576 = tmp541 + tmp540;
- tmp577 = tmp575 - tmp576;
- tmp615 = tmp575 + tmp576;
- tmp618 = tmp586 + tmp587;
- tmp619 = tmp589 + tmp590;
- tmp620 = (K995184726 * tmp618) + (K098017140 * tmp619);
- tmp630 = (K995184726 * tmp619) - (K098017140 * tmp618);
- }
- {
- fftw_real tmp621;
- fftw_real tmp622;
- fftw_real tmp595;
- fftw_real tmp598;
- ASSERT_ALIGNED_DOUBLE;
- tmp621 = tmp593 + tmp594;
- tmp622 = tmp596 + tmp597;
- tmp623 = (K995184726 * tmp621) - (K098017140 * tmp622);
- tmp631 = (K098017140 * tmp621) + (K995184726 * tmp622);
- tmp595 = tmp593 - tmp594;
- tmp598 = tmp596 - tmp597;
- tmp599 = (K634393284 * tmp595) - (K773010453 * tmp598);
- tmp611 = (K773010453 * tmp595) + (K634393284 * tmp598);
- }
- {
- fftw_real tmp588;
- fftw_real tmp591;
- fftw_real tmp601;
- fftw_real tmp602;
- ASSERT_ALIGNED_DOUBLE;
- tmp588 = tmp586 - tmp587;
- tmp591 = tmp589 - tmp590;
- tmp592 = (K634393284 * tmp588) + (K773010453 * tmp591);
- tmp610 = (K634393284 * tmp591) - (K773010453 * tmp588);
- tmp601 = tmp537 + tmp538;
- tmp602 = tmp476 + tmp479;
- tmp603 = tmp601 - tmp602;
- tmp625 = tmp601 + tmp602;
- }
- {
- fftw_real tmp604;
- fftw_real tmp605;
- fftw_real tmp580;
- fftw_real tmp583;
- ASSERT_ALIGNED_DOUBLE;
- tmp604 = (K980785280 * tmp581) - (K195090322 * tmp582);
- tmp605 = (K980785280 * tmp579) + (K195090322 * tmp578);
- tmp606 = tmp604 - tmp605;
- tmp616 = tmp605 + tmp604;
- tmp580 = (K980785280 * tmp578) - (K195090322 * tmp579);
- tmp583 = (K195090322 * tmp581) + (K980785280 * tmp582);
- tmp584 = tmp580 - tmp583;
- tmp626 = tmp580 + tmp583;
- }
- {
- fftw_real tmp585;
- fftw_real tmp600;
- fftw_real tmp607;
- fftw_real tmp608;
- ASSERT_ALIGNED_DOUBLE;
- tmp585 = tmp577 + tmp584;
- tmp600 = tmp592 + tmp599;
- c_re(output[41 * ostride]) = tmp585 - tmp600;
- c_re(output[9 * ostride]) = tmp585 + tmp600;
- tmp607 = tmp603 - tmp606;
- tmp608 = tmp599 - tmp592;
- c_im(output[57 * ostride]) = tmp607 - tmp608;
- c_im(output[25 * ostride]) = tmp607 + tmp608;
- }
- {
- fftw_real tmp613;
- fftw_real tmp614;
- fftw_real tmp609;
- fftw_real tmp612;
- ASSERT_ALIGNED_DOUBLE;
- tmp613 = tmp603 + tmp606;
- tmp614 = tmp610 + tmp611;
- c_im(output[41 * ostride]) = tmp613 - tmp614;
- c_im(output[9 * ostride]) = tmp613 + tmp614;
- tmp609 = tmp577 - tmp584;
- tmp612 = tmp610 - tmp611;
- c_re(output[57 * ostride]) = tmp609 - tmp612;
- c_re(output[25 * ostride]) = tmp609 + tmp612;
- }
- {
- fftw_real tmp617;
- fftw_real tmp624;
- fftw_real tmp627;
- fftw_real tmp628;
- ASSERT_ALIGNED_DOUBLE;
- tmp617 = tmp615 + tmp616;
- tmp624 = tmp620 + tmp623;
- c_re(output[33 * ostride]) = tmp617 - tmp624;
- c_re(output[ostride]) = tmp617 + tmp624;
- tmp627 = tmp625 - tmp626;
- tmp628 = tmp623 - tmp620;
- c_im(output[49 * ostride]) = tmp627 - tmp628;
- c_im(output[17 * ostride]) = tmp627 + tmp628;
- }
- {
- fftw_real tmp633;
- fftw_real tmp634;
- fftw_real tmp629;
- fftw_real tmp632;
- ASSERT_ALIGNED_DOUBLE;
- tmp633 = tmp625 + tmp626;
- tmp634 = tmp630 + tmp631;
- c_im(output[33 * ostride]) = tmp633 - tmp634;
- c_im(output[ostride]) = tmp633 + tmp634;
- tmp629 = tmp615 - tmp616;
- tmp632 = tmp630 - tmp631;
- c_re(output[49 * ostride]) = tmp629 - tmp632;
- c_re(output[17 * ostride]) = tmp629 + tmp632;
- }
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_64_desc =
-{
- "fftw_no_twiddle_64",
- (void (*)()) fftw_no_twiddle_64,
- 64,
- FFTW_FORWARD,
- FFTW_NOTW,
- 1409,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_7.c b/src/sndobj/rfftw/fn_7.c
deleted file mode 100644
index c852679..0000000
--- a/src/sndobj/rfftw/fn_7.c
+++ /dev/null
@@ -1,170 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:47 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 7 */
-
-/*
- * This function contains 60 FP additions, 36 FP multiplications,
- * (or, 60 additions, 36 multiplications, 0 fused multiply/add),
- * 22 stack variables, and 28 memory accesses
- */
-static const fftw_real K222520933 = FFTW_KONST(+0.222520933956314404288902564496794759466355569);
-static const fftw_real K900968867 = FFTW_KONST(+0.900968867902419126236102319507445051165919162);
-static const fftw_real K623489801 = FFTW_KONST(+0.623489801858733530525004884004239810632274731);
-static const fftw_real K433883739 = FFTW_KONST(+0.433883739117558120475768332848358754609990728);
-static const fftw_real K974927912 = FFTW_KONST(+0.974927912181823607018131682993931217232785801);
-static const fftw_real K781831482 = FFTW_KONST(+0.781831482468029808708444526674057750232334519);
-
-/*
- * Generator Id's :
- * $Id: fn_7.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- * $Id: fn_7.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- * $Id: fn_7.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- */
-
-void fftw_no_twiddle_7(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp30;
- fftw_real tmp4;
- fftw_real tmp26;
- fftw_real tmp14;
- fftw_real tmp33;
- fftw_real tmp7;
- fftw_real tmp28;
- fftw_real tmp20;
- fftw_real tmp31;
- fftw_real tmp10;
- fftw_real tmp27;
- fftw_real tmp17;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp30 = c_im(input[0]);
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp12;
- fftw_real tmp13;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = c_re(input[istride]);
- tmp3 = c_re(input[6 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp26 = tmp3 - tmp2;
- tmp12 = c_im(input[istride]);
- tmp13 = c_im(input[6 * istride]);
- tmp14 = tmp12 - tmp13;
- tmp33 = tmp12 + tmp13;
- }
- {
- fftw_real tmp5;
- fftw_real tmp6;
- fftw_real tmp18;
- fftw_real tmp19;
- ASSERT_ALIGNED_DOUBLE;
- tmp5 = c_re(input[2 * istride]);
- tmp6 = c_re(input[5 * istride]);
- tmp7 = tmp5 + tmp6;
- tmp28 = tmp6 - tmp5;
- tmp18 = c_im(input[2 * istride]);
- tmp19 = c_im(input[5 * istride]);
- tmp20 = tmp18 - tmp19;
- tmp31 = tmp18 + tmp19;
- }
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp15;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[3 * istride]);
- tmp9 = c_re(input[4 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp27 = tmp9 - tmp8;
- tmp15 = c_im(input[3 * istride]);
- tmp16 = c_im(input[4 * istride]);
- tmp17 = tmp15 - tmp16;
- tmp32 = tmp15 + tmp16;
- }
- {
- fftw_real tmp23;
- fftw_real tmp22;
- fftw_real tmp35;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- c_re(output[0]) = tmp1 + tmp4 + tmp7 + tmp10;
- tmp23 = (K781831482 * tmp14) + (K974927912 * tmp20) + (K433883739 * tmp17);
- tmp22 = tmp1 + (K623489801 * tmp4) - (K900968867 * tmp10) - (K222520933 * tmp7);
- c_re(output[6 * ostride]) = tmp22 - tmp23;
- c_re(output[ostride]) = tmp22 + tmp23;
- {
- fftw_real tmp25;
- fftw_real tmp24;
- fftw_real tmp21;
- fftw_real tmp11;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = (K433883739 * tmp14) + (K974927912 * tmp17) - (K781831482 * tmp20);
- tmp24 = tmp1 + (K623489801 * tmp7) - (K222520933 * tmp10) - (K900968867 * tmp4);
- c_re(output[4 * ostride]) = tmp24 - tmp25;
- c_re(output[3 * ostride]) = tmp24 + tmp25;
- tmp21 = (K974927912 * tmp14) - (K781831482 * tmp17) - (K433883739 * tmp20);
- tmp11 = tmp1 + (K623489801 * tmp10) - (K900968867 * tmp7) - (K222520933 * tmp4);
- c_re(output[5 * ostride]) = tmp11 - tmp21;
- c_re(output[2 * ostride]) = tmp11 + tmp21;
- }
- c_im(output[0]) = tmp30 + tmp33 + tmp31 + tmp32;
- tmp35 = (K781831482 * tmp26) + (K974927912 * tmp28) + (K433883739 * tmp27);
- tmp36 = tmp30 + (K623489801 * tmp33) - (K900968867 * tmp32) - (K222520933 * tmp31);
- c_im(output[ostride]) = tmp35 + tmp36;
- c_im(output[6 * ostride]) = tmp36 - tmp35;
- {
- fftw_real tmp29;
- fftw_real tmp34;
- fftw_real tmp37;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp29 = (K433883739 * tmp26) + (K974927912 * tmp27) - (K781831482 * tmp28);
- tmp34 = tmp30 + (K623489801 * tmp31) - (K222520933 * tmp32) - (K900968867 * tmp33);
- c_im(output[3 * ostride]) = tmp29 + tmp34;
- c_im(output[4 * ostride]) = tmp34 - tmp29;
- tmp37 = (K974927912 * tmp26) - (K781831482 * tmp27) - (K433883739 * tmp28);
- tmp38 = tmp30 + (K623489801 * tmp32) - (K900968867 * tmp31) - (K222520933 * tmp33);
- c_im(output[2 * ostride]) = tmp37 + tmp38;
- c_im(output[5 * ostride]) = tmp38 - tmp37;
- }
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_7_desc =
-{
- "fftw_no_twiddle_7",
- (void (*)()) fftw_no_twiddle_7,
- 7,
- FFTW_FORWARD,
- FFTW_NOTW,
- 155,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_8.c b/src/sndobj/rfftw/fn_8.c
deleted file mode 100644
index 1421eab..0000000
--- a/src/sndobj/rfftw/fn_8.c
+++ /dev/null
@@ -1,201 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:47 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 8 */
-
-/*
- * This function contains 52 FP additions, 4 FP multiplications,
- * (or, 52 additions, 4 multiplications, 0 fused multiply/add),
- * 26 stack variables, and 32 memory accesses
- */
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: fn_8.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fn_8.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fn_8.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- */
-
-void fftw_no_twiddle_8(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp23;
- fftw_real tmp18;
- fftw_real tmp38;
- fftw_real tmp6;
- fftw_real tmp37;
- fftw_real tmp21;
- fftw_real tmp24;
- fftw_real tmp13;
- fftw_real tmp49;
- fftw_real tmp35;
- fftw_real tmp43;
- fftw_real tmp10;
- fftw_real tmp48;
- fftw_real tmp30;
- fftw_real tmp42;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[4 * istride]);
- tmp3 = tmp1 + tmp2;
- tmp23 = tmp1 - tmp2;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp4;
- fftw_real tmp5;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_im(input[0]);
- tmp17 = c_im(input[4 * istride]);
- tmp18 = tmp16 + tmp17;
- tmp38 = tmp16 - tmp17;
- tmp4 = c_re(input[2 * istride]);
- tmp5 = c_re(input[6 * istride]);
- tmp6 = tmp4 + tmp5;
- tmp37 = tmp4 - tmp5;
- }
- tmp19 = c_im(input[2 * istride]);
- tmp20 = c_im(input[6 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp24 = tmp19 - tmp20;
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp31;
- fftw_real tmp32;
- fftw_real tmp33;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[7 * istride]);
- tmp12 = c_re(input[3 * istride]);
- tmp31 = tmp11 - tmp12;
- tmp32 = c_im(input[7 * istride]);
- tmp33 = c_im(input[3 * istride]);
- tmp34 = tmp32 - tmp33;
- tmp13 = tmp11 + tmp12;
- tmp49 = tmp32 + tmp33;
- tmp35 = tmp31 - tmp34;
- tmp43 = tmp31 + tmp34;
- }
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp28;
- fftw_real tmp29;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[istride]);
- tmp9 = c_re(input[5 * istride]);
- tmp26 = tmp8 - tmp9;
- tmp27 = c_im(input[istride]);
- tmp28 = c_im(input[5 * istride]);
- tmp29 = tmp27 - tmp28;
- tmp10 = tmp8 + tmp9;
- tmp48 = tmp27 + tmp28;
- tmp30 = tmp26 + tmp29;
- tmp42 = tmp29 - tmp26;
- }
- }
- {
- fftw_real tmp7;
- fftw_real tmp14;
- fftw_real tmp15;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = tmp3 + tmp6;
- tmp14 = tmp10 + tmp13;
- c_re(output[4 * ostride]) = tmp7 - tmp14;
- c_re(output[0]) = tmp7 + tmp14;
- tmp15 = tmp13 - tmp10;
- tmp22 = tmp18 - tmp21;
- c_im(output[2 * ostride]) = tmp15 + tmp22;
- c_im(output[6 * ostride]) = tmp22 - tmp15;
- }
- {
- fftw_real tmp51;
- fftw_real tmp52;
- fftw_real tmp47;
- fftw_real tmp50;
- ASSERT_ALIGNED_DOUBLE;
- tmp51 = tmp18 + tmp21;
- tmp52 = tmp48 + tmp49;
- c_im(output[4 * ostride]) = tmp51 - tmp52;
- c_im(output[0]) = tmp51 + tmp52;
- tmp47 = tmp3 - tmp6;
- tmp50 = tmp48 - tmp49;
- c_re(output[6 * ostride]) = tmp47 - tmp50;
- c_re(output[2 * ostride]) = tmp47 + tmp50;
- }
- {
- fftw_real tmp25;
- fftw_real tmp36;
- fftw_real tmp39;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = tmp23 + tmp24;
- tmp36 = K707106781 * (tmp30 + tmp35);
- c_re(output[5 * ostride]) = tmp25 - tmp36;
- c_re(output[ostride]) = tmp25 + tmp36;
- tmp39 = tmp37 + tmp38;
- tmp40 = K707106781 * (tmp35 - tmp30);
- c_im(output[7 * ostride]) = tmp39 - tmp40;
- c_im(output[3 * ostride]) = tmp39 + tmp40;
- }
- {
- fftw_real tmp45;
- fftw_real tmp46;
- fftw_real tmp41;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = tmp38 - tmp37;
- tmp46 = K707106781 * (tmp42 + tmp43);
- c_im(output[5 * ostride]) = tmp45 - tmp46;
- c_im(output[ostride]) = tmp45 + tmp46;
- tmp41 = tmp23 - tmp24;
- tmp44 = K707106781 * (tmp42 - tmp43);
- c_re(output[7 * ostride]) = tmp41 - tmp44;
- c_re(output[3 * ostride]) = tmp41 + tmp44;
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_8_desc =
-{
- "fftw_no_twiddle_8",
- (void (*)()) fftw_no_twiddle_8,
- 8,
- FFTW_FORWARD,
- FFTW_NOTW,
- 177,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fn_9.c b/src/sndobj/rfftw/fn_9.c
deleted file mode 100644
index 4475465..0000000
--- a/src/sndobj/rfftw/fn_9.c
+++ /dev/null
@@ -1,275 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:47 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 9 */
-
-/*
- * This function contains 80 FP additions, 40 FP multiplications,
- * (or, 60 additions, 20 multiplications, 20 fused multiply/add),
- * 30 stack variables, and 36 memory accesses
- */
-static const fftw_real K939692620 = FFTW_KONST(+0.939692620785908384054109277324731469936208134);
-static const fftw_real K342020143 = FFTW_KONST(+0.342020143325668733044099614682259580763083368);
-static const fftw_real K984807753 = FFTW_KONST(+0.984807753012208059366743024589523013670643252);
-static const fftw_real K173648177 = FFTW_KONST(+0.173648177666930348851716626769314796000375677);
-static const fftw_real K642787609 = FFTW_KONST(+0.642787609686539326322643409907263432907559884);
-static const fftw_real K766044443 = FFTW_KONST(+0.766044443118978035202392650555416673935832457);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fn_9.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fn_9.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fn_9.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- */
-
-void fftw_no_twiddle_9(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp5;
- fftw_real tmp17;
- fftw_real tmp50;
- fftw_real tmp20;
- fftw_real tmp78;
- fftw_real tmp53;
- fftw_real tmp10;
- fftw_real tmp26;
- fftw_real tmp58;
- fftw_real tmp74;
- fftw_real tmp31;
- fftw_real tmp59;
- fftw_real tmp15;
- fftw_real tmp37;
- fftw_real tmp62;
- fftw_real tmp75;
- fftw_real tmp42;
- fftw_real tmp61;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[3 * istride]);
- tmp3 = c_re(input[6 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp5 = tmp1 + tmp4;
- tmp17 = tmp1 - (K500000000 * tmp4);
- tmp50 = K866025403 * (tmp3 - tmp2);
- }
- {
- fftw_real tmp51;
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp52;
- ASSERT_ALIGNED_DOUBLE;
- tmp51 = c_im(input[0]);
- tmp18 = c_im(input[3 * istride]);
- tmp19 = c_im(input[6 * istride]);
- tmp52 = tmp18 + tmp19;
- tmp20 = K866025403 * (tmp18 - tmp19);
- tmp78 = tmp51 + tmp52;
- tmp53 = tmp51 - (K500000000 * tmp52);
- }
- {
- fftw_real tmp6;
- fftw_real tmp28;
- fftw_real tmp9;
- fftw_real tmp27;
- fftw_real tmp25;
- fftw_real tmp29;
- fftw_real tmp22;
- fftw_real tmp30;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = c_re(input[istride]);
- tmp28 = c_im(input[istride]);
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp23;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = c_re(input[4 * istride]);
- tmp8 = c_re(input[7 * istride]);
- tmp9 = tmp7 + tmp8;
- tmp27 = K866025403 * (tmp8 - tmp7);
- tmp23 = c_im(input[4 * istride]);
- tmp24 = c_im(input[7 * istride]);
- tmp25 = K866025403 * (tmp23 - tmp24);
- tmp29 = tmp23 + tmp24;
- }
- tmp10 = tmp6 + tmp9;
- tmp22 = tmp6 - (K500000000 * tmp9);
- tmp26 = tmp22 + tmp25;
- tmp58 = tmp22 - tmp25;
- tmp74 = tmp28 + tmp29;
- tmp30 = tmp28 - (K500000000 * tmp29);
- tmp31 = tmp27 + tmp30;
- tmp59 = tmp30 - tmp27;
- }
- {
- fftw_real tmp11;
- fftw_real tmp39;
- fftw_real tmp14;
- fftw_real tmp38;
- fftw_real tmp36;
- fftw_real tmp40;
- fftw_real tmp33;
- fftw_real tmp41;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[2 * istride]);
- tmp39 = c_im(input[2 * istride]);
- {
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp34;
- fftw_real tmp35;
- ASSERT_ALIGNED_DOUBLE;
- tmp12 = c_re(input[5 * istride]);
- tmp13 = c_re(input[8 * istride]);
- tmp14 = tmp12 + tmp13;
- tmp38 = K866025403 * (tmp13 - tmp12);
- tmp34 = c_im(input[5 * istride]);
- tmp35 = c_im(input[8 * istride]);
- tmp36 = K866025403 * (tmp34 - tmp35);
- tmp40 = tmp34 + tmp35;
- }
- tmp15 = tmp11 + tmp14;
- tmp33 = tmp11 - (K500000000 * tmp14);
- tmp37 = tmp33 + tmp36;
- tmp62 = tmp33 - tmp36;
- tmp75 = tmp39 + tmp40;
- tmp41 = tmp39 - (K500000000 * tmp40);
- tmp42 = tmp38 + tmp41;
- tmp61 = tmp41 - tmp38;
- }
- {
- fftw_real tmp76;
- fftw_real tmp16;
- fftw_real tmp73;
- fftw_real tmp77;
- fftw_real tmp79;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp76 = K866025403 * (tmp74 - tmp75);
- tmp16 = tmp10 + tmp15;
- tmp73 = tmp5 - (K500000000 * tmp16);
- c_re(output[0]) = tmp5 + tmp16;
- c_re(output[3 * ostride]) = tmp73 + tmp76;
- c_re(output[6 * ostride]) = tmp73 - tmp76;
- tmp77 = K866025403 * (tmp15 - tmp10);
- tmp79 = tmp74 + tmp75;
- tmp80 = tmp78 - (K500000000 * tmp79);
- c_im(output[3 * ostride]) = tmp77 + tmp80;
- c_im(output[6 * ostride]) = tmp80 - tmp77;
- c_im(output[0]) = tmp78 + tmp79;
- }
- {
- fftw_real tmp21;
- fftw_real tmp54;
- fftw_real tmp44;
- fftw_real tmp49;
- fftw_real tmp48;
- fftw_real tmp55;
- fftw_real tmp45;
- fftw_real tmp56;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = tmp17 + tmp20;
- tmp54 = tmp50 + tmp53;
- {
- fftw_real tmp32;
- fftw_real tmp43;
- fftw_real tmp46;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = (K766044443 * tmp26) + (K642787609 * tmp31);
- tmp43 = (K173648177 * tmp37) + (K984807753 * tmp42);
- tmp44 = tmp32 + tmp43;
- tmp49 = K866025403 * (tmp43 - tmp32);
- tmp46 = (K766044443 * tmp31) - (K642787609 * tmp26);
- tmp47 = (K173648177 * tmp42) - (K984807753 * tmp37);
- tmp48 = K866025403 * (tmp46 - tmp47);
- tmp55 = tmp46 + tmp47;
- }
- c_re(output[ostride]) = tmp21 + tmp44;
- tmp45 = tmp21 - (K500000000 * tmp44);
- c_re(output[7 * ostride]) = tmp45 - tmp48;
- c_re(output[4 * ostride]) = tmp45 + tmp48;
- c_im(output[ostride]) = tmp54 + tmp55;
- tmp56 = tmp54 - (K500000000 * tmp55);
- c_im(output[4 * ostride]) = tmp49 + tmp56;
- c_im(output[7 * ostride]) = tmp56 - tmp49;
- }
- {
- fftw_real tmp57;
- fftw_real tmp69;
- fftw_real tmp72;
- fftw_real tmp66;
- fftw_real tmp64;
- fftw_real tmp65;
- fftw_real tmp71;
- fftw_real tmp70;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp67;
- fftw_real tmp68;
- fftw_real tmp60;
- fftw_real tmp63;
- ASSERT_ALIGNED_DOUBLE;
- tmp57 = tmp17 - tmp20;
- tmp67 = (K173648177 * tmp59) - (K984807753 * tmp58);
- tmp68 = (K342020143 * tmp62) + (K939692620 * tmp61);
- tmp69 = tmp67 - tmp68;
- tmp72 = K866025403 * (tmp67 + tmp68);
- tmp66 = tmp53 - tmp50;
- tmp60 = (K173648177 * tmp58) + (K984807753 * tmp59);
- tmp63 = (K342020143 * tmp61) - (K939692620 * tmp62);
- tmp64 = tmp60 + tmp63;
- tmp65 = K866025403 * (tmp63 - tmp60);
- }
- c_re(output[2 * ostride]) = tmp57 + tmp64;
- tmp71 = tmp57 - (K500000000 * tmp64);
- c_re(output[8 * ostride]) = tmp71 - tmp72;
- c_re(output[5 * ostride]) = tmp71 + tmp72;
- c_im(output[2 * ostride]) = tmp66 + tmp69;
- tmp70 = tmp66 - (K500000000 * tmp69);
- c_im(output[5 * ostride]) = tmp65 + tmp70;
- c_im(output[8 * ostride]) = tmp70 - tmp65;
- }
-}
-
-fftw_codelet_desc fftw_no_twiddle_9_desc =
-{
- "fftw_no_twiddle_9",
- (void (*)()) fftw_no_twiddle_9,
- 9,
- FFTW_FORWARD,
- FFTW_NOTW,
- 199,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_1.c b/src/sndobj/rfftw/fni_1.c
deleted file mode 100644
index fd24544..0000000
--- a/src/sndobj/rfftw/fni_1.c
+++ /dev/null
@@ -1,62 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:02 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 1 */
-
-/*
- * This function contains 0 FP additions, 0 FP multiplications,
- * (or, 0 additions, 0 multiplications, 0 fused multiply/add),
- * 2 stack variables, and 4 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: fni_1.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fni_1.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fni_1.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftwi_no_twiddle_1(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- c_re(output[0]) = tmp1;
- tmp2 = c_im(input[0]);
- c_im(output[0]) = tmp2;
-}
-
-fftw_codelet_desc fftwi_no_twiddle_1_desc =
-{
- "fftwi_no_twiddle_1",
- (void (*)()) fftwi_no_twiddle_1,
- 1,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 34,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_10.c b/src/sndobj/rfftw/fni_10.c
deleted file mode 100644
index 8dc01b8..0000000
--- a/src/sndobj/rfftw/fni_10.c
+++ /dev/null
@@ -1,281 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:08 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 10 */
-
-/*
- * This function contains 84 FP additions, 24 FP multiplications,
- * (or, 72 additions, 12 multiplications, 12 fused multiply/add),
- * 36 stack variables, and 40 memory accesses
- */
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-
-/*
- * Generator Id's :
- * $Id: fni_10.c,v 1.1.1.1 2006/05/12 15:14:44 veplaini Exp $
- * $Id: fni_10.c,v 1.1.1.1 2006/05/12 15:14:44 veplaini Exp $
- * $Id: fni_10.c,v 1.1.1.1 2006/05/12 15:14:44 veplaini Exp $
- */
-
-void fftwi_no_twiddle_10(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp19;
- fftw_real tmp55;
- fftw_real tmp76;
- fftw_real tmp47;
- fftw_real tmp48;
- fftw_real tmp10;
- fftw_real tmp17;
- fftw_real tmp18;
- fftw_real tmp74;
- fftw_real tmp73;
- fftw_real tmp22;
- fftw_real tmp25;
- fftw_real tmp26;
- fftw_real tmp36;
- fftw_real tmp43;
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp56;
- fftw_real tmp66;
- fftw_real tmp69;
- fftw_real tmp77;
- fftw_real tmp78;
- fftw_real tmp79;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp53;
- fftw_real tmp54;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[5 * istride]);
- tmp3 = tmp1 - tmp2;
- tmp19 = tmp1 + tmp2;
- tmp53 = c_im(input[0]);
- tmp54 = c_im(input[5 * istride]);
- tmp55 = tmp53 - tmp54;
- tmp76 = tmp53 + tmp54;
- }
- {
- fftw_real tmp6;
- fftw_real tmp20;
- fftw_real tmp16;
- fftw_real tmp24;
- fftw_real tmp9;
- fftw_real tmp21;
- fftw_real tmp13;
- fftw_real tmp23;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[2 * istride]);
- tmp5 = c_re(input[7 * istride]);
- tmp6 = tmp4 - tmp5;
- tmp20 = tmp4 + tmp5;
- tmp14 = c_re(input[6 * istride]);
- tmp15 = c_re(input[istride]);
- tmp16 = tmp14 - tmp15;
- tmp24 = tmp14 + tmp15;
- }
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = c_re(input[8 * istride]);
- tmp8 = c_re(input[3 * istride]);
- tmp9 = tmp7 - tmp8;
- tmp21 = tmp7 + tmp8;
- tmp11 = c_re(input[4 * istride]);
- tmp12 = c_re(input[9 * istride]);
- tmp13 = tmp11 - tmp12;
- tmp23 = tmp11 + tmp12;
- }
- tmp47 = tmp6 - tmp9;
- tmp48 = tmp13 - tmp16;
- tmp10 = tmp6 + tmp9;
- tmp17 = tmp13 + tmp16;
- tmp18 = tmp10 + tmp17;
- tmp74 = tmp23 - tmp24;
- tmp73 = tmp20 - tmp21;
- tmp22 = tmp20 + tmp21;
- tmp25 = tmp23 + tmp24;
- tmp26 = tmp22 + tmp25;
- }
- {
- fftw_real tmp32;
- fftw_real tmp64;
- fftw_real tmp42;
- fftw_real tmp68;
- fftw_real tmp35;
- fftw_real tmp65;
- fftw_real tmp39;
- fftw_real tmp67;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp30;
- fftw_real tmp31;
- fftw_real tmp40;
- fftw_real tmp41;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = c_im(input[2 * istride]);
- tmp31 = c_im(input[7 * istride]);
- tmp32 = tmp30 - tmp31;
- tmp64 = tmp30 + tmp31;
- tmp40 = c_im(input[6 * istride]);
- tmp41 = c_im(input[istride]);
- tmp42 = tmp40 - tmp41;
- tmp68 = tmp40 + tmp41;
- }
- {
- fftw_real tmp33;
- fftw_real tmp34;
- fftw_real tmp37;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp33 = c_im(input[8 * istride]);
- tmp34 = c_im(input[3 * istride]);
- tmp35 = tmp33 - tmp34;
- tmp65 = tmp33 + tmp34;
- tmp37 = c_im(input[4 * istride]);
- tmp38 = c_im(input[9 * istride]);
- tmp39 = tmp37 - tmp38;
- tmp67 = tmp37 + tmp38;
- }
- tmp36 = tmp32 - tmp35;
- tmp43 = tmp39 - tmp42;
- tmp50 = tmp32 + tmp35;
- tmp51 = tmp39 + tmp42;
- tmp56 = tmp50 + tmp51;
- tmp66 = tmp64 - tmp65;
- tmp69 = tmp67 - tmp68;
- tmp77 = tmp64 + tmp65;
- tmp78 = tmp67 + tmp68;
- tmp79 = tmp77 + tmp78;
- }
- c_re(output[5 * ostride]) = tmp3 + tmp18;
- {
- fftw_real tmp44;
- fftw_real tmp46;
- fftw_real tmp29;
- fftw_real tmp45;
- fftw_real tmp27;
- fftw_real tmp28;
- ASSERT_ALIGNED_DOUBLE;
- tmp44 = (K587785252 * tmp36) - (K951056516 * tmp43);
- tmp46 = (K951056516 * tmp36) + (K587785252 * tmp43);
- tmp27 = tmp3 - (K250000000 * tmp18);
- tmp28 = K559016994 * (tmp10 - tmp17);
- tmp29 = tmp27 - tmp28;
- tmp45 = tmp28 + tmp27;
- c_re(output[7 * ostride]) = tmp29 - tmp44;
- c_re(output[3 * ostride]) = tmp29 + tmp44;
- c_re(output[ostride]) = tmp45 - tmp46;
- c_re(output[9 * ostride]) = tmp45 + tmp46;
- }
- c_re(output[0]) = tmp19 + tmp26;
- {
- fftw_real tmp70;
- fftw_real tmp72;
- fftw_real tmp63;
- fftw_real tmp71;
- fftw_real tmp61;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = (K587785252 * tmp66) - (K951056516 * tmp69);
- tmp72 = (K951056516 * tmp66) + (K587785252 * tmp69);
- tmp61 = tmp19 - (K250000000 * tmp26);
- tmp62 = K559016994 * (tmp22 - tmp25);
- tmp63 = tmp61 - tmp62;
- tmp71 = tmp62 + tmp61;
- c_re(output[2 * ostride]) = tmp63 - tmp70;
- c_re(output[8 * ostride]) = tmp63 + tmp70;
- c_re(output[6 * ostride]) = tmp71 - tmp72;
- c_re(output[4 * ostride]) = tmp71 + tmp72;
- }
- c_im(output[5 * ostride]) = tmp55 + tmp56;
- {
- fftw_real tmp49;
- fftw_real tmp60;
- fftw_real tmp58;
- fftw_real tmp59;
- fftw_real tmp52;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp49 = (K951056516 * tmp47) + (K587785252 * tmp48);
- tmp60 = (K587785252 * tmp47) - (K951056516 * tmp48);
- tmp52 = K559016994 * (tmp50 - tmp51);
- tmp57 = tmp55 - (K250000000 * tmp56);
- tmp58 = tmp52 + tmp57;
- tmp59 = tmp57 - tmp52;
- c_im(output[ostride]) = tmp49 + tmp58;
- c_im(output[9 * ostride]) = tmp58 - tmp49;
- c_im(output[3 * ostride]) = tmp59 - tmp60;
- c_im(output[7 * ostride]) = tmp60 + tmp59;
- }
- c_im(output[0]) = tmp76 + tmp79;
- {
- fftw_real tmp75;
- fftw_real tmp84;
- fftw_real tmp82;
- fftw_real tmp83;
- fftw_real tmp80;
- fftw_real tmp81;
- ASSERT_ALIGNED_DOUBLE;
- tmp75 = (K587785252 * tmp73) - (K951056516 * tmp74);
- tmp84 = (K951056516 * tmp73) + (K587785252 * tmp74);
- tmp80 = tmp76 - (K250000000 * tmp79);
- tmp81 = K559016994 * (tmp77 - tmp78);
- tmp82 = tmp80 - tmp81;
- tmp83 = tmp81 + tmp80;
- c_im(output[2 * ostride]) = tmp75 + tmp82;
- c_im(output[8 * ostride]) = tmp82 - tmp75;
- c_im(output[4 * ostride]) = tmp83 - tmp84;
- c_im(output[6 * ostride]) = tmp84 + tmp83;
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_10_desc =
-{
- "fftwi_no_twiddle_10",
- (void (*)()) fftwi_no_twiddle_10,
- 10,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 232,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_11.c b/src/sndobj/rfftw/fni_11.c
deleted file mode 100644
index 59c9dc3..0000000
--- a/src/sndobj/rfftw/fni_11.c
+++ /dev/null
@@ -1,242 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:08 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 11 */
-
-/*
- * This function contains 140 FP additions, 100 FP multiplications,
- * (or, 140 additions, 100 multiplications, 0 fused multiply/add),
- * 30 stack variables, and 44 memory accesses
- */
-static const fftw_real K959492973 = FFTW_KONST(+0.959492973614497389890368057066327699062454848);
-static const fftw_real K654860733 = FFTW_KONST(+0.654860733945285064056925072466293553183791199);
-static const fftw_real K142314838 = FFTW_KONST(+0.142314838273285140443792668616369668791051361);
-static const fftw_real K415415013 = FFTW_KONST(+0.415415013001886425529274149229623203524004910);
-static const fftw_real K841253532 = FFTW_KONST(+0.841253532831181168861811648919367717513292498);
-static const fftw_real K540640817 = FFTW_KONST(+0.540640817455597582107635954318691695431770608);
-static const fftw_real K909631995 = FFTW_KONST(+0.909631995354518371411715383079028460060241051);
-static const fftw_real K989821441 = FFTW_KONST(+0.989821441880932732376092037776718787376519372);
-static const fftw_real K755749574 = FFTW_KONST(+0.755749574354258283774035843972344420179717445);
-static const fftw_real K281732556 = FFTW_KONST(+0.281732556841429697711417915346616899035777899);
-
-/*
- * Generator Id's :
- * $Id: fni_11.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: fni_11.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: fni_11.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- */
-
-void fftwi_no_twiddle_11(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp23;
- fftw_real tmp4;
- fftw_real tmp17;
- fftw_real tmp38;
- fftw_real tmp49;
- fftw_real tmp26;
- fftw_real tmp53;
- fftw_real tmp7;
- fftw_real tmp21;
- fftw_real tmp10;
- fftw_real tmp18;
- fftw_real tmp35;
- fftw_real tmp50;
- fftw_real tmp13;
- fftw_real tmp20;
- fftw_real tmp29;
- fftw_real tmp51;
- fftw_real tmp32;
- fftw_real tmp52;
- fftw_real tmp16;
- fftw_real tmp19;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp36;
- fftw_real tmp37;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp23 = c_im(input[0]);
- tmp2 = c_re(input[istride]);
- tmp3 = c_re(input[10 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp17 = tmp2 - tmp3;
- tmp36 = c_im(input[istride]);
- tmp37 = c_im(input[10 * istride]);
- tmp38 = tmp36 + tmp37;
- tmp49 = tmp37 - tmp36;
- {
- fftw_real tmp24;
- fftw_real tmp25;
- fftw_real tmp5;
- fftw_real tmp6;
- ASSERT_ALIGNED_DOUBLE;
- tmp24 = c_im(input[2 * istride]);
- tmp25 = c_im(input[9 * istride]);
- tmp26 = tmp24 + tmp25;
- tmp53 = tmp25 - tmp24;
- tmp5 = c_re(input[2 * istride]);
- tmp6 = c_re(input[9 * istride]);
- tmp7 = tmp5 + tmp6;
- tmp21 = tmp5 - tmp6;
- }
- }
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp27;
- fftw_real tmp28;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[3 * istride]);
- tmp9 = c_re(input[8 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp18 = tmp8 - tmp9;
- {
- fftw_real tmp33;
- fftw_real tmp34;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp33 = c_im(input[3 * istride]);
- tmp34 = c_im(input[8 * istride]);
- tmp35 = tmp33 + tmp34;
- tmp50 = tmp34 - tmp33;
- tmp11 = c_re(input[4 * istride]);
- tmp12 = c_re(input[7 * istride]);
- tmp13 = tmp11 + tmp12;
- tmp20 = tmp11 - tmp12;
- }
- tmp27 = c_im(input[4 * istride]);
- tmp28 = c_im(input[7 * istride]);
- tmp29 = tmp27 + tmp28;
- tmp51 = tmp28 - tmp27;
- {
- fftw_real tmp30;
- fftw_real tmp31;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = c_im(input[5 * istride]);
- tmp31 = c_im(input[6 * istride]);
- tmp32 = tmp30 + tmp31;
- tmp52 = tmp31 - tmp30;
- tmp14 = c_re(input[5 * istride]);
- tmp15 = c_re(input[6 * istride]);
- tmp16 = tmp14 + tmp15;
- tmp19 = tmp14 - tmp15;
- }
- }
- {
- fftw_real tmp56;
- fftw_real tmp55;
- fftw_real tmp44;
- fftw_real tmp45;
- ASSERT_ALIGNED_DOUBLE;
- c_re(output[0]) = tmp1 + tmp4 + tmp7 + tmp10 + tmp13 + tmp16;
- {
- fftw_real tmp62;
- fftw_real tmp61;
- fftw_real tmp58;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp62 = (K281732556 * tmp49) + (K755749574 * tmp50) + (K989821441 * tmp52) - (K909631995 * tmp51) - (K540640817 * tmp53);
- tmp61 = tmp1 + (K841253532 * tmp7) + (K415415013 * tmp13) - (K142314838 * tmp16) - (K654860733 * tmp10) - (K959492973 * tmp4);
- c_re(output[6 * ostride]) = tmp61 - tmp62;
- c_re(output[5 * ostride]) = tmp61 + tmp62;
- tmp58 = (K540640817 * tmp49) + (K909631995 * tmp53) + (K989821441 * tmp50) + (K755749574 * tmp51) + (K281732556 * tmp52);
- tmp57 = tmp1 + (K841253532 * tmp4) + (K415415013 * tmp7) - (K959492973 * tmp16) - (K654860733 * tmp13) - (K142314838 * tmp10);
- c_re(output[10 * ostride]) = tmp57 - tmp58;
- c_re(output[ostride]) = tmp57 + tmp58;
- }
- tmp56 = (K909631995 * tmp49) + (K755749574 * tmp53) - (K540640817 * tmp52) - (K989821441 * tmp51) - (K281732556 * tmp50);
- tmp55 = tmp1 + (K415415013 * tmp4) + (K841253532 * tmp16) - (K142314838 * tmp13) - (K959492973 * tmp10) - (K654860733 * tmp7);
- c_re(output[9 * ostride]) = tmp55 - tmp56;
- c_re(output[2 * ostride]) = tmp55 + tmp56;
- {
- fftw_real tmp60;
- fftw_real tmp59;
- fftw_real tmp54;
- fftw_real tmp48;
- ASSERT_ALIGNED_DOUBLE;
- tmp60 = (K989821441 * tmp49) + (K540640817 * tmp51) + (K755749574 * tmp52) - (K909631995 * tmp50) - (K281732556 * tmp53);
- tmp59 = tmp1 + (K415415013 * tmp10) + (K841253532 * tmp13) - (K654860733 * tmp16) - (K959492973 * tmp7) - (K142314838 * tmp4);
- c_re(output[8 * ostride]) = tmp59 - tmp60;
- c_re(output[3 * ostride]) = tmp59 + tmp60;
- tmp54 = (K755749574 * tmp49) + (K540640817 * tmp50) + (K281732556 * tmp51) - (K909631995 * tmp52) - (K989821441 * tmp53);
- tmp48 = tmp1 + (K841253532 * tmp10) + (K415415013 * tmp16) - (K959492973 * tmp13) - (K142314838 * tmp7) - (K654860733 * tmp4);
- c_re(output[7 * ostride]) = tmp48 - tmp54;
- c_re(output[4 * ostride]) = tmp48 + tmp54;
- }
- c_im(output[0]) = tmp23 + tmp38 + tmp26 + tmp35 + tmp29 + tmp32;
- {
- fftw_real tmp22;
- fftw_real tmp39;
- fftw_real tmp42;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- tmp22 = (K281732556 * tmp17) + (K755749574 * tmp18) + (K989821441 * tmp19) - (K909631995 * tmp20) - (K540640817 * tmp21);
- tmp39 = tmp23 + (K841253532 * tmp26) + (K415415013 * tmp29) - (K142314838 * tmp32) - (K654860733 * tmp35) - (K959492973 * tmp38);
- c_im(output[5 * ostride]) = tmp22 + tmp39;
- c_im(output[6 * ostride]) = tmp39 - tmp22;
- tmp42 = (K540640817 * tmp17) + (K909631995 * tmp21) + (K989821441 * tmp18) + (K755749574 * tmp20) + (K281732556 * tmp19);
- tmp43 = tmp23 + (K841253532 * tmp38) + (K415415013 * tmp26) - (K959492973 * tmp32) - (K654860733 * tmp29) - (K142314838 * tmp35);
- c_im(output[ostride]) = tmp42 + tmp43;
- c_im(output[10 * ostride]) = tmp43 - tmp42;
- }
- tmp44 = (K909631995 * tmp17) + (K755749574 * tmp21) - (K540640817 * tmp19) - (K989821441 * tmp20) - (K281732556 * tmp18);
- tmp45 = tmp23 + (K415415013 * tmp38) + (K841253532 * tmp32) - (K142314838 * tmp29) - (K959492973 * tmp35) - (K654860733 * tmp26);
- c_im(output[2 * ostride]) = tmp44 + tmp45;
- c_im(output[9 * ostride]) = tmp45 - tmp44;
- {
- fftw_real tmp40;
- fftw_real tmp41;
- fftw_real tmp46;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- tmp40 = (K989821441 * tmp17) + (K540640817 * tmp20) + (K755749574 * tmp19) - (K909631995 * tmp18) - (K281732556 * tmp21);
- tmp41 = tmp23 + (K415415013 * tmp35) + (K841253532 * tmp29) - (K654860733 * tmp32) - (K959492973 * tmp26) - (K142314838 * tmp38);
- c_im(output[3 * ostride]) = tmp40 + tmp41;
- c_im(output[8 * ostride]) = tmp41 - tmp40;
- tmp46 = (K755749574 * tmp17) + (K540640817 * tmp18) + (K281732556 * tmp20) - (K909631995 * tmp19) - (K989821441 * tmp21);
- tmp47 = tmp23 + (K841253532 * tmp35) + (K415415013 * tmp32) - (K959492973 * tmp29) - (K142314838 * tmp26) - (K654860733 * tmp38);
- c_im(output[4 * ostride]) = tmp46 + tmp47;
- c_im(output[7 * ostride]) = tmp47 - tmp46;
- }
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_11_desc =
-{
- "fftwi_no_twiddle_11",
- (void (*)()) fftwi_no_twiddle_11,
- 11,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 254,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_12.c b/src/sndobj/rfftw/fni_12.c
deleted file mode 100644
index 192a2cf..0000000
--- a/src/sndobj/rfftw/fni_12.c
+++ /dev/null
@@ -1,322 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:09 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 12 */
-
-/*
- * This function contains 96 FP additions, 16 FP multiplications,
- * (or, 88 additions, 8 multiplications, 8 fused multiply/add),
- * 40 stack variables, and 48 memory accesses
- */
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fni_12.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- * $Id: fni_12.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- * $Id: fni_12.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- */
-
-void fftwi_no_twiddle_12(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp5;
- fftw_real tmp35;
- fftw_real tmp57;
- fftw_real tmp27;
- fftw_real tmp58;
- fftw_real tmp36;
- fftw_real tmp10;
- fftw_real tmp38;
- fftw_real tmp60;
- fftw_real tmp32;
- fftw_real tmp61;
- fftw_real tmp39;
- fftw_real tmp16;
- fftw_real tmp82;
- fftw_real tmp42;
- fftw_real tmp47;
- fftw_real tmp76;
- fftw_real tmp83;
- fftw_real tmp21;
- fftw_real tmp85;
- fftw_real tmp49;
- fftw_real tmp54;
- fftw_real tmp77;
- fftw_real tmp86;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[4 * istride]);
- tmp3 = c_re(input[8 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp5 = tmp1 + tmp4;
- tmp35 = tmp1 - (K500000000 * tmp4);
- tmp57 = K866025403 * (tmp2 - tmp3);
- }
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp25;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = c_im(input[0]);
- tmp24 = c_im(input[4 * istride]);
- tmp25 = c_im(input[8 * istride]);
- tmp26 = tmp24 + tmp25;
- tmp27 = tmp23 + tmp26;
- tmp58 = tmp23 - (K500000000 * tmp26);
- tmp36 = K866025403 * (tmp25 - tmp24);
- }
- {
- fftw_real tmp6;
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = c_re(input[6 * istride]);
- tmp7 = c_re(input[10 * istride]);
- tmp8 = c_re(input[2 * istride]);
- tmp9 = tmp7 + tmp8;
- tmp10 = tmp6 + tmp9;
- tmp38 = tmp6 - (K500000000 * tmp9);
- tmp60 = K866025403 * (tmp7 - tmp8);
- }
- {
- fftw_real tmp28;
- fftw_real tmp29;
- fftw_real tmp30;
- fftw_real tmp31;
- ASSERT_ALIGNED_DOUBLE;
- tmp28 = c_im(input[6 * istride]);
- tmp29 = c_im(input[10 * istride]);
- tmp30 = c_im(input[2 * istride]);
- tmp31 = tmp29 + tmp30;
- tmp32 = tmp28 + tmp31;
- tmp61 = tmp28 - (K500000000 * tmp31);
- tmp39 = K866025403 * (tmp30 - tmp29);
- }
- {
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp12 = c_re(input[3 * istride]);
- tmp13 = c_re(input[7 * istride]);
- tmp14 = c_re(input[11 * istride]);
- tmp15 = tmp13 + tmp14;
- tmp16 = tmp12 + tmp15;
- tmp82 = tmp12 - (K500000000 * tmp15);
- tmp42 = K866025403 * (tmp13 - tmp14);
- }
- {
- fftw_real tmp43;
- fftw_real tmp44;
- fftw_real tmp45;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = c_im(input[3 * istride]);
- tmp44 = c_im(input[7 * istride]);
- tmp45 = c_im(input[11 * istride]);
- tmp46 = tmp44 + tmp45;
- tmp47 = tmp43 - (K500000000 * tmp46);
- tmp76 = tmp43 + tmp46;
- tmp83 = K866025403 * (tmp45 - tmp44);
- }
- {
- fftw_real tmp17;
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp17 = c_re(input[9 * istride]);
- tmp18 = c_re(input[istride]);
- tmp19 = c_re(input[5 * istride]);
- tmp20 = tmp18 + tmp19;
- tmp21 = tmp17 + tmp20;
- tmp85 = tmp17 - (K500000000 * tmp20);
- tmp49 = K866025403 * (tmp18 - tmp19);
- }
- {
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp52;
- fftw_real tmp53;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = c_im(input[9 * istride]);
- tmp51 = c_im(input[istride]);
- tmp52 = c_im(input[5 * istride]);
- tmp53 = tmp51 + tmp52;
- tmp54 = tmp50 - (K500000000 * tmp53);
- tmp77 = tmp50 + tmp53;
- tmp86 = K866025403 * (tmp52 - tmp51);
- }
- {
- fftw_real tmp11;
- fftw_real tmp22;
- fftw_real tmp33;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = tmp5 + tmp10;
- tmp22 = tmp16 + tmp21;
- c_re(output[6 * ostride]) = tmp11 - tmp22;
- c_re(output[0]) = tmp11 + tmp22;
- {
- fftw_real tmp75;
- fftw_real tmp78;
- fftw_real tmp79;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp75 = tmp5 - tmp10;
- tmp78 = tmp76 - tmp77;
- c_re(output[9 * ostride]) = tmp75 - tmp78;
- c_re(output[3 * ostride]) = tmp75 + tmp78;
- tmp79 = tmp27 + tmp32;
- tmp80 = tmp76 + tmp77;
- c_im(output[6 * ostride]) = tmp79 - tmp80;
- c_im(output[0]) = tmp79 + tmp80;
- }
- tmp33 = tmp27 - tmp32;
- tmp34 = tmp16 - tmp21;
- c_im(output[3 * ostride]) = tmp33 - tmp34;
- c_im(output[9 * ostride]) = tmp34 + tmp33;
- {
- fftw_real tmp67;
- fftw_real tmp89;
- fftw_real tmp88;
- fftw_real tmp90;
- fftw_real tmp70;
- fftw_real tmp74;
- fftw_real tmp73;
- fftw_real tmp81;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp65;
- fftw_real tmp66;
- fftw_real tmp84;
- fftw_real tmp87;
- ASSERT_ALIGNED_DOUBLE;
- tmp65 = tmp35 - tmp36;
- tmp66 = tmp38 - tmp39;
- tmp67 = tmp65 - tmp66;
- tmp89 = tmp65 + tmp66;
- tmp84 = tmp82 - tmp83;
- tmp87 = tmp85 - tmp86;
- tmp88 = tmp84 - tmp87;
- tmp90 = tmp84 + tmp87;
- }
- {
- fftw_real tmp68;
- fftw_real tmp69;
- fftw_real tmp71;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- tmp68 = tmp47 - tmp42;
- tmp69 = tmp54 - tmp49;
- tmp70 = tmp68 - tmp69;
- tmp74 = tmp68 + tmp69;
- tmp71 = tmp58 - tmp57;
- tmp72 = tmp61 - tmp60;
- tmp73 = tmp71 + tmp72;
- tmp81 = tmp71 - tmp72;
- }
- c_re(output[5 * ostride]) = tmp67 - tmp70;
- c_re(output[11 * ostride]) = tmp67 + tmp70;
- c_im(output[2 * ostride]) = tmp73 - tmp74;
- c_im(output[8 * ostride]) = tmp73 + tmp74;
- c_im(output[11 * ostride]) = tmp81 - tmp88;
- c_im(output[5 * ostride]) = tmp81 + tmp88;
- c_re(output[2 * ostride]) = tmp89 - tmp90;
- c_re(output[8 * ostride]) = tmp89 + tmp90;
- }
- {
- fftw_real tmp41;
- fftw_real tmp95;
- fftw_real tmp94;
- fftw_real tmp96;
- fftw_real tmp56;
- fftw_real tmp64;
- fftw_real tmp63;
- fftw_real tmp91;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp37;
- fftw_real tmp40;
- fftw_real tmp92;
- fftw_real tmp93;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = tmp35 + tmp36;
- tmp40 = tmp38 + tmp39;
- tmp41 = tmp37 - tmp40;
- tmp95 = tmp37 + tmp40;
- tmp92 = tmp82 + tmp83;
- tmp93 = tmp85 + tmp86;
- tmp94 = tmp92 - tmp93;
- tmp96 = tmp92 + tmp93;
- }
- {
- fftw_real tmp48;
- fftw_real tmp55;
- fftw_real tmp59;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp48 = tmp42 + tmp47;
- tmp55 = tmp49 + tmp54;
- tmp56 = tmp48 - tmp55;
- tmp64 = tmp48 + tmp55;
- tmp59 = tmp57 + tmp58;
- tmp62 = tmp60 + tmp61;
- tmp63 = tmp59 + tmp62;
- tmp91 = tmp59 - tmp62;
- }
- c_re(output[ostride]) = tmp41 - tmp56;
- c_re(output[7 * ostride]) = tmp41 + tmp56;
- c_im(output[10 * ostride]) = tmp63 - tmp64;
- c_im(output[4 * ostride]) = tmp63 + tmp64;
- c_im(output[7 * ostride]) = tmp91 - tmp94;
- c_im(output[ostride]) = tmp91 + tmp94;
- c_re(output[10 * ostride]) = tmp95 - tmp96;
- c_re(output[4 * ostride]) = tmp95 + tmp96;
- }
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_12_desc =
-{
- "fftwi_no_twiddle_12",
- (void (*)()) fftwi_no_twiddle_12,
- 12,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 276,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_13.c b/src/sndobj/rfftw/fni_13.c
deleted file mode 100644
index 3aede90..0000000
--- a/src/sndobj/rfftw/fni_13.c
+++ /dev/null
@@ -1,526 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:10 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 13 */
-
-/*
- * This function contains 176 FP additions, 68 FP multiplications,
- * (or, 138 additions, 30 multiplications, 38 fused multiply/add),
- * 50 stack variables, and 52 memory accesses
- */
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-static const fftw_real K156891391 = FFTW_KONST(+0.156891391051584611046832726756003269660212636);
-static const fftw_real K256247671 = FFTW_KONST(+0.256247671582936600958684654061725059144125175);
-static const fftw_real K300238635 = FFTW_KONST(+0.300238635966332641462884626667381504676006424);
-static const fftw_real K011599105 = FFTW_KONST(+0.011599105605768290721655456654083252189827041);
-static const fftw_real K174138601 = FFTW_KONST(+0.174138601152135905005660794929264742616964676);
-static const fftw_real K575140729 = FFTW_KONST(+0.575140729474003121368385547455453388461001608);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K083333333 = FFTW_KONST(+0.083333333333333333333333333333333333333333333);
-static const fftw_real K075902986 = FFTW_KONST(+0.075902986037193865983102897245103540356428373);
-static const fftw_real K251768516 = FFTW_KONST(+0.251768516431883313623436926934233488546674281);
-static const fftw_real K258260390 = FFTW_KONST(+0.258260390311744861420450644284508567852516811);
-static const fftw_real K132983124 = FFTW_KONST(+0.132983124607418643793760531921092974399165133);
-static const fftw_real K503537032 = FFTW_KONST(+0.503537032863766627246873853868466977093348562);
-static const fftw_real K113854479 = FFTW_KONST(+0.113854479055790798974654345867655310534642560);
-static const fftw_real K265966249 = FFTW_KONST(+0.265966249214837287587521063842185948798330267);
-static const fftw_real K387390585 = FFTW_KONST(+0.387390585467617292130675966426762851778775217);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K300462606 = FFTW_KONST(+0.300462606288665774426601772289207995520941381);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fni_13.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fni_13.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fni_13.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- */
-
-void fftwi_no_twiddle_13(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp88;
- fftw_real tmp25;
- fftw_real tmp24;
- fftw_real tmp126;
- fftw_real tmp124;
- fftw_real tmp129;
- fftw_real tmp30;
- fftw_real tmp36;
- fftw_real tmp43;
- fftw_real tmp121;
- fftw_real tmp128;
- fftw_real tmp41;
- fftw_real tmp44;
- fftw_real tmp136;
- fftw_real tmp144;
- fftw_real tmp146;
- fftw_real tmp77;
- fftw_real tmp86;
- fftw_real tmp137;
- fftw_real tmp83;
- fftw_real tmp89;
- fftw_real tmp70;
- fftw_real tmp85;
- fftw_real tmp141;
- fftw_real tmp147;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp88 = c_im(input[0]);
- {
- fftw_real tmp15;
- fftw_real tmp26;
- fftw_real tmp18;
- fftw_real tmp27;
- fftw_real tmp21;
- fftw_real tmp28;
- fftw_real tmp22;
- fftw_real tmp29;
- fftw_real tmp6;
- fftw_real tmp37;
- fftw_real tmp32;
- fftw_real tmp11;
- fftw_real tmp38;
- fftw_real tmp33;
- fftw_real tmp13;
- fftw_real tmp14;
- fftw_real tmp34;
- fftw_real tmp35;
- ASSERT_ALIGNED_DOUBLE;
- tmp13 = c_re(input[8 * istride]);
- tmp14 = c_re(input[5 * istride]);
- tmp15 = tmp13 + tmp14;
- tmp26 = tmp13 - tmp14;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_re(input[6 * istride]);
- tmp17 = c_re(input[11 * istride]);
- tmp18 = tmp16 + tmp17;
- tmp27 = tmp16 - tmp17;
- tmp19 = c_re(input[2 * istride]);
- tmp20 = c_re(input[7 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp28 = tmp19 - tmp20;
- }
- tmp22 = tmp18 + tmp21;
- tmp29 = tmp27 + tmp28;
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- fftw_real tmp5;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = c_re(input[istride]);
- tmp3 = c_re(input[3 * istride]);
- tmp4 = c_re(input[9 * istride]);
- tmp5 = tmp3 + tmp4;
- tmp6 = tmp2 + tmp5;
- tmp37 = tmp2 - (K500000000 * tmp5);
- tmp32 = tmp3 - tmp4;
- }
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = c_re(input[12 * istride]);
- tmp8 = c_re(input[4 * istride]);
- tmp9 = c_re(input[10 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp11 = tmp7 + tmp10;
- tmp38 = tmp7 - (K500000000 * tmp10);
- tmp33 = tmp8 - tmp9;
- }
- tmp25 = tmp6 - tmp11;
- {
- fftw_real tmp12;
- fftw_real tmp23;
- fftw_real tmp122;
- fftw_real tmp123;
- ASSERT_ALIGNED_DOUBLE;
- tmp12 = tmp6 + tmp11;
- tmp23 = tmp15 + tmp22;
- tmp24 = tmp12 + tmp23;
- tmp126 = K300462606 * (tmp12 - tmp23);
- tmp122 = tmp37 + tmp38;
- tmp123 = tmp15 - (K500000000 * tmp22);
- tmp124 = tmp122 - tmp123;
- tmp129 = tmp122 + tmp123;
- }
- tmp30 = tmp26 - tmp29;
- tmp34 = K866025403 * (tmp32 + tmp33);
- tmp35 = tmp26 + (K500000000 * tmp29);
- tmp36 = tmp34 + tmp35;
- tmp43 = tmp35 - tmp34;
- {
- fftw_real tmp119;
- fftw_real tmp120;
- fftw_real tmp39;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp119 = tmp28 - tmp27;
- tmp120 = tmp32 - tmp33;
- tmp121 = tmp119 - tmp120;
- tmp128 = tmp120 + tmp119;
- tmp39 = tmp37 - tmp38;
- tmp40 = K866025403 * (tmp18 - tmp21);
- tmp41 = tmp39 - tmp40;
- tmp44 = tmp39 + tmp40;
- }
- }
- {
- fftw_real tmp61;
- fftw_real tmp134;
- fftw_real tmp64;
- fftw_real tmp71;
- fftw_real tmp67;
- fftw_real tmp72;
- fftw_real tmp68;
- fftw_real tmp135;
- fftw_real tmp52;
- fftw_real tmp79;
- fftw_real tmp75;
- fftw_real tmp57;
- fftw_real tmp80;
- fftw_real tmp74;
- fftw_real tmp59;
- fftw_real tmp60;
- fftw_real tmp81;
- fftw_real tmp82;
- ASSERT_ALIGNED_DOUBLE;
- tmp59 = c_im(input[8 * istride]);
- tmp60 = c_im(input[5 * istride]);
- tmp61 = tmp59 + tmp60;
- tmp134 = tmp59 - tmp60;
- {
- fftw_real tmp62;
- fftw_real tmp63;
- fftw_real tmp65;
- fftw_real tmp66;
- ASSERT_ALIGNED_DOUBLE;
- tmp62 = c_im(input[6 * istride]);
- tmp63 = c_im(input[11 * istride]);
- tmp64 = tmp62 + tmp63;
- tmp71 = tmp62 - tmp63;
- tmp65 = c_im(input[2 * istride]);
- tmp66 = c_im(input[7 * istride]);
- tmp67 = tmp65 + tmp66;
- tmp72 = tmp65 - tmp66;
- }
- tmp68 = tmp64 + tmp67;
- tmp135 = tmp71 + tmp72;
- {
- fftw_real tmp48;
- fftw_real tmp49;
- fftw_real tmp50;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp48 = c_im(input[istride]);
- tmp49 = c_im(input[3 * istride]);
- tmp50 = c_im(input[9 * istride]);
- tmp51 = tmp49 + tmp50;
- tmp52 = tmp48 - (K500000000 * tmp51);
- tmp79 = tmp48 + tmp51;
- tmp75 = tmp49 - tmp50;
- }
- {
- fftw_real tmp53;
- fftw_real tmp54;
- fftw_real tmp55;
- fftw_real tmp56;
- ASSERT_ALIGNED_DOUBLE;
- tmp53 = c_im(input[12 * istride]);
- tmp54 = c_im(input[4 * istride]);
- tmp55 = c_im(input[10 * istride]);
- tmp56 = tmp54 + tmp55;
- tmp57 = tmp53 - (K500000000 * tmp56);
- tmp80 = tmp53 + tmp56;
- tmp74 = tmp54 - tmp55;
- }
- tmp136 = tmp134 - tmp135;
- {
- fftw_real tmp142;
- fftw_real tmp143;
- fftw_real tmp73;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- tmp142 = K866025403 * (tmp75 + tmp74);
- tmp143 = tmp134 + (K500000000 * tmp135);
- tmp144 = tmp142 - tmp143;
- tmp146 = tmp142 + tmp143;
- tmp73 = tmp71 - tmp72;
- tmp76 = tmp74 - tmp75;
- tmp77 = tmp73 - tmp76;
- tmp86 = tmp76 + tmp73;
- }
- tmp137 = tmp79 - tmp80;
- tmp81 = tmp79 + tmp80;
- tmp82 = tmp61 + tmp68;
- tmp83 = K300462606 * (tmp81 - tmp82);
- tmp89 = tmp81 + tmp82;
- {
- fftw_real tmp58;
- fftw_real tmp69;
- fftw_real tmp139;
- fftw_real tmp140;
- ASSERT_ALIGNED_DOUBLE;
- tmp58 = tmp52 + tmp57;
- tmp69 = tmp61 - (K500000000 * tmp68);
- tmp70 = tmp58 - tmp69;
- tmp85 = tmp58 + tmp69;
- tmp139 = tmp52 - tmp57;
- tmp140 = K866025403 * (tmp67 - tmp64);
- tmp141 = tmp139 - tmp140;
- tmp147 = tmp139 + tmp140;
- }
- }
- c_re(output[0]) = tmp1 + tmp24;
- {
- fftw_real tmp164;
- fftw_real tmp172;
- fftw_real tmp127;
- fftw_real tmp169;
- fftw_real tmp159;
- fftw_real tmp132;
- fftw_real tmp138;
- fftw_real tmp149;
- fftw_real tmp160;
- fftw_real tmp170;
- fftw_real tmp152;
- fftw_real tmp155;
- fftw_real tmp165;
- fftw_real tmp173;
- fftw_real tmp162;
- fftw_real tmp163;
- ASSERT_ALIGNED_DOUBLE;
- tmp162 = (K387390585 * tmp121) - (K265966249 * tmp124);
- tmp163 = (K113854479 * tmp128) - (K503537032 * tmp129);
- tmp164 = tmp162 + tmp163;
- tmp172 = tmp163 - tmp162;
- {
- fftw_real tmp125;
- fftw_real tmp158;
- fftw_real tmp130;
- fftw_real tmp131;
- fftw_real tmp157;
- ASSERT_ALIGNED_DOUBLE;
- tmp125 = (K132983124 * tmp121) + (K258260390 * tmp124);
- tmp158 = tmp126 - tmp125;
- tmp130 = (K251768516 * tmp128) + (K075902986 * tmp129);
- tmp131 = tmp1 - (K083333333 * tmp24);
- tmp157 = tmp131 - tmp130;
- tmp127 = (K2_000000000 * tmp125) + tmp126;
- tmp169 = tmp158 + tmp157;
- tmp159 = tmp157 - tmp158;
- tmp132 = (K2_000000000 * tmp130) + tmp131;
- }
- {
- fftw_real tmp145;
- fftw_real tmp148;
- fftw_real tmp153;
- fftw_real tmp154;
- ASSERT_ALIGNED_DOUBLE;
- tmp138 = (K575140729 * tmp136) - (K174138601 * tmp137);
- tmp145 = (K011599105 * tmp141) - (K300238635 * tmp144);
- tmp148 = (K256247671 * tmp146) + (K156891391 * tmp147);
- tmp149 = tmp145 - tmp148;
- tmp160 = K1_732050807 * (tmp145 + tmp148);
- tmp170 = tmp138 - tmp149;
- tmp152 = (K575140729 * tmp137) + (K174138601 * tmp136);
- tmp153 = (K256247671 * tmp147) - (K156891391 * tmp146);
- tmp154 = (K011599105 * tmp144) + (K300238635 * tmp141);
- tmp155 = tmp153 - tmp154;
- tmp165 = tmp152 + tmp155;
- tmp173 = K1_732050807 * (tmp154 + tmp153);
- }
- {
- fftw_real tmp133;
- fftw_real tmp150;
- fftw_real tmp167;
- fftw_real tmp168;
- ASSERT_ALIGNED_DOUBLE;
- tmp133 = tmp127 + tmp132;
- tmp150 = tmp138 + (K2_000000000 * tmp149);
- c_re(output[12 * ostride]) = tmp133 - tmp150;
- c_re(output[ostride]) = tmp133 + tmp150;
- {
- fftw_real tmp151;
- fftw_real tmp156;
- fftw_real tmp161;
- fftw_real tmp166;
- ASSERT_ALIGNED_DOUBLE;
- tmp151 = tmp132 - tmp127;
- tmp156 = tmp152 - (K2_000000000 * tmp155);
- c_re(output[5 * ostride]) = tmp151 - tmp156;
- c_re(output[8 * ostride]) = tmp151 + tmp156;
- tmp161 = tmp159 - tmp160;
- tmp166 = tmp164 + tmp165;
- c_re(output[2 * ostride]) = tmp161 - tmp166;
- c_re(output[7 * ostride]) = tmp161 + tmp166;
- }
- tmp167 = tmp159 + tmp160;
- tmp168 = tmp165 - tmp164;
- c_re(output[6 * ostride]) = tmp167 - tmp168;
- c_re(output[11 * ostride]) = tmp167 + tmp168;
- {
- fftw_real tmp175;
- fftw_real tmp176;
- fftw_real tmp171;
- fftw_real tmp174;
- ASSERT_ALIGNED_DOUBLE;
- tmp175 = tmp169 - tmp170;
- tmp176 = tmp173 - tmp172;
- c_re(output[4 * ostride]) = tmp175 - tmp176;
- c_re(output[10 * ostride]) = tmp175 + tmp176;
- tmp171 = tmp169 + tmp170;
- tmp174 = tmp172 + tmp173;
- c_re(output[3 * ostride]) = tmp171 - tmp174;
- c_re(output[9 * ostride]) = tmp171 + tmp174;
- }
- }
- }
- c_im(output[0]) = tmp88 + tmp89;
- {
- fftw_real tmp102;
- fftw_real tmp115;
- fftw_real tmp84;
- fftw_real tmp112;
- fftw_real tmp107;
- fftw_real tmp91;
- fftw_real tmp31;
- fftw_real tmp46;
- fftw_real tmp104;
- fftw_real tmp111;
- fftw_real tmp93;
- fftw_real tmp96;
- fftw_real tmp99;
- fftw_real tmp114;
- fftw_real tmp100;
- fftw_real tmp101;
- ASSERT_ALIGNED_DOUBLE;
- tmp100 = (K387390585 * tmp77) + (K265966249 * tmp70);
- tmp101 = (K113854479 * tmp86) + (K503537032 * tmp85);
- tmp102 = tmp100 + tmp101;
- tmp115 = tmp100 - tmp101;
- {
- fftw_real tmp78;
- fftw_real tmp106;
- fftw_real tmp87;
- fftw_real tmp90;
- fftw_real tmp105;
- ASSERT_ALIGNED_DOUBLE;
- tmp78 = (K258260390 * tmp70) - (K132983124 * tmp77);
- tmp106 = tmp83 - tmp78;
- tmp87 = (K075902986 * tmp85) - (K251768516 * tmp86);
- tmp90 = tmp88 - (K083333333 * tmp89);
- tmp105 = tmp90 - tmp87;
- tmp84 = (K2_000000000 * tmp78) + tmp83;
- tmp112 = tmp106 + tmp105;
- tmp107 = tmp105 - tmp106;
- tmp91 = (K2_000000000 * tmp87) + tmp90;
- }
- {
- fftw_real tmp42;
- fftw_real tmp45;
- fftw_real tmp94;
- fftw_real tmp95;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = (K174138601 * tmp25) - (K575140729 * tmp30);
- tmp42 = (K256247671 * tmp36) + (K156891391 * tmp41);
- tmp45 = (K300238635 * tmp43) + (K011599105 * tmp44);
- tmp46 = tmp42 - tmp45;
- tmp104 = K1_732050807 * (tmp42 + tmp45);
- tmp111 = tmp31 - tmp46;
- tmp93 = (K575140729 * tmp25) + (K174138601 * tmp30);
- tmp94 = (K256247671 * tmp41) - (K156891391 * tmp36);
- tmp95 = (K011599105 * tmp43) - (K300238635 * tmp44);
- tmp96 = tmp94 + tmp95;
- tmp99 = tmp93 + tmp96;
- tmp114 = K1_732050807 * (tmp95 - tmp94);
- }
- {
- fftw_real tmp47;
- fftw_real tmp92;
- fftw_real tmp109;
- fftw_real tmp110;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = tmp31 + (K2_000000000 * tmp46);
- tmp92 = tmp84 + tmp91;
- c_im(output[ostride]) = tmp47 + tmp92;
- c_im(output[12 * ostride]) = tmp92 - tmp47;
- {
- fftw_real tmp97;
- fftw_real tmp98;
- fftw_real tmp103;
- fftw_real tmp108;
- ASSERT_ALIGNED_DOUBLE;
- tmp97 = tmp93 - (K2_000000000 * tmp96);
- tmp98 = tmp91 - tmp84;
- c_im(output[5 * ostride]) = tmp97 + tmp98;
- c_im(output[8 * ostride]) = tmp98 - tmp97;
- tmp103 = tmp99 + tmp102;
- tmp108 = tmp104 + tmp107;
- c_im(output[2 * ostride]) = tmp103 + tmp108;
- c_im(output[7 * ostride]) = tmp108 - tmp103;
- }
- tmp109 = tmp107 - tmp104;
- tmp110 = tmp102 - tmp99;
- c_im(output[6 * ostride]) = tmp109 - tmp110;
- c_im(output[11 * ostride]) = tmp110 + tmp109;
- {
- fftw_real tmp117;
- fftw_real tmp118;
- fftw_real tmp113;
- fftw_real tmp116;
- ASSERT_ALIGNED_DOUBLE;
- tmp117 = tmp112 - tmp111;
- tmp118 = tmp114 - tmp115;
- c_im(output[4 * ostride]) = tmp117 - tmp118;
- c_im(output[10 * ostride]) = tmp118 + tmp117;
- tmp113 = tmp111 + tmp112;
- tmp116 = tmp114 + tmp115;
- c_im(output[3 * ostride]) = tmp113 - tmp116;
- c_im(output[9 * ostride]) = tmp116 + tmp113;
- }
- }
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_13_desc =
-{
- "fftwi_no_twiddle_13",
- (void (*)()) fftwi_no_twiddle_13,
- 13,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 298,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_14.c b/src/sndobj/rfftw/fni_14.c
deleted file mode 100644
index 78bc7e8..0000000
--- a/src/sndobj/rfftw/fni_14.c
+++ /dev/null
@@ -1,355 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:12 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 14 */
-
-/*
- * This function contains 148 FP additions, 72 FP multiplications,
- * (or, 148 additions, 72 multiplications, 0 fused multiply/add),
- * 36 stack variables, and 56 memory accesses
- */
-static const fftw_real K222520933 = FFTW_KONST(+0.222520933956314404288902564496794759466355569);
-static const fftw_real K900968867 = FFTW_KONST(+0.900968867902419126236102319507445051165919162);
-static const fftw_real K623489801 = FFTW_KONST(+0.623489801858733530525004884004239810632274731);
-static const fftw_real K433883739 = FFTW_KONST(+0.433883739117558120475768332848358754609990728);
-static const fftw_real K781831482 = FFTW_KONST(+0.781831482468029808708444526674057750232334519);
-static const fftw_real K974927912 = FFTW_KONST(+0.974927912181823607018131682993931217232785801);
-
-/*
- * Generator Id's :
- * $Id: fni_14.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fni_14.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fni_14.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- */
-
-void fftwi_no_twiddle_14(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp25;
- fftw_real tmp68;
- fftw_real tmp92;
- fftw_real tmp10;
- fftw_real tmp62;
- fftw_real tmp28;
- fftw_real tmp97;
- fftw_real tmp42;
- fftw_real tmp71;
- fftw_real tmp80;
- fftw_real tmp93;
- fftw_real tmp17;
- fftw_real tmp64;
- fftw_real tmp31;
- fftw_real tmp99;
- fftw_real tmp56;
- fftw_real tmp69;
- fftw_real tmp86;
- fftw_real tmp95;
- fftw_real tmp24;
- fftw_real tmp63;
- fftw_real tmp34;
- fftw_real tmp98;
- fftw_real tmp49;
- fftw_real tmp70;
- fftw_real tmp83;
- fftw_real tmp94;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp66;
- fftw_real tmp67;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[7 * istride]);
- tmp3 = tmp1 - tmp2;
- tmp25 = tmp1 + tmp2;
- tmp66 = c_im(input[0]);
- tmp67 = c_im(input[7 * istride]);
- tmp68 = tmp66 - tmp67;
- tmp92 = tmp66 + tmp67;
- }
- {
- fftw_real tmp6;
- fftw_real tmp26;
- fftw_real tmp9;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp7;
- fftw_real tmp8;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[2 * istride]);
- tmp5 = c_re(input[9 * istride]);
- tmp6 = tmp4 - tmp5;
- tmp26 = tmp4 + tmp5;
- tmp7 = c_re(input[12 * istride]);
- tmp8 = c_re(input[5 * istride]);
- tmp9 = tmp7 - tmp8;
- tmp27 = tmp7 + tmp8;
- }
- tmp10 = tmp6 + tmp9;
- tmp62 = tmp6 - tmp9;
- tmp28 = tmp26 + tmp27;
- tmp97 = tmp26 - tmp27;
- }
- {
- fftw_real tmp38;
- fftw_real tmp78;
- fftw_real tmp41;
- fftw_real tmp79;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp36;
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp36 = c_im(input[12 * istride]);
- tmp37 = c_im(input[5 * istride]);
- tmp38 = tmp36 - tmp37;
- tmp78 = tmp36 + tmp37;
- tmp39 = c_im(input[2 * istride]);
- tmp40 = c_im(input[9 * istride]);
- tmp41 = tmp39 - tmp40;
- tmp79 = tmp39 + tmp40;
- }
- tmp42 = tmp38 - tmp41;
- tmp71 = tmp41 + tmp38;
- tmp80 = tmp78 - tmp79;
- tmp93 = tmp79 + tmp78;
- }
- {
- fftw_real tmp13;
- fftw_real tmp29;
- fftw_real tmp16;
- fftw_real tmp30;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[4 * istride]);
- tmp12 = c_re(input[11 * istride]);
- tmp13 = tmp11 - tmp12;
- tmp29 = tmp11 + tmp12;
- tmp14 = c_re(input[10 * istride]);
- tmp15 = c_re(input[3 * istride]);
- tmp16 = tmp14 - tmp15;
- tmp30 = tmp14 + tmp15;
- }
- tmp17 = tmp13 + tmp16;
- tmp64 = tmp13 - tmp16;
- tmp31 = tmp29 + tmp30;
- tmp99 = tmp30 - tmp29;
- }
- {
- fftw_real tmp52;
- fftw_real tmp85;
- fftw_real tmp55;
- fftw_real tmp84;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp53;
- fftw_real tmp54;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = c_im(input[10 * istride]);
- tmp51 = c_im(input[3 * istride]);
- tmp52 = tmp50 - tmp51;
- tmp85 = tmp50 + tmp51;
- tmp53 = c_im(input[4 * istride]);
- tmp54 = c_im(input[11 * istride]);
- tmp55 = tmp53 - tmp54;
- tmp84 = tmp53 + tmp54;
- }
- tmp56 = tmp52 - tmp55;
- tmp69 = tmp55 + tmp52;
- tmp86 = tmp84 - tmp85;
- tmp95 = tmp84 + tmp85;
- }
- {
- fftw_real tmp20;
- fftw_real tmp32;
- fftw_real tmp23;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp21;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp18 = c_re(input[6 * istride]);
- tmp19 = c_re(input[13 * istride]);
- tmp20 = tmp18 - tmp19;
- tmp32 = tmp18 + tmp19;
- tmp21 = c_re(input[8 * istride]);
- tmp22 = c_re(input[istride]);
- tmp23 = tmp21 - tmp22;
- tmp33 = tmp21 + tmp22;
- }
- tmp24 = tmp20 + tmp23;
- tmp63 = tmp20 - tmp23;
- tmp34 = tmp32 + tmp33;
- tmp98 = tmp33 - tmp32;
- }
- {
- fftw_real tmp45;
- fftw_real tmp82;
- fftw_real tmp48;
- fftw_real tmp81;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp43;
- fftw_real tmp44;
- fftw_real tmp46;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = c_im(input[8 * istride]);
- tmp44 = c_im(input[istride]);
- tmp45 = tmp43 - tmp44;
- tmp82 = tmp43 + tmp44;
- tmp46 = c_im(input[6 * istride]);
- tmp47 = c_im(input[13 * istride]);
- tmp48 = tmp46 - tmp47;
- tmp81 = tmp46 + tmp47;
- }
- tmp49 = tmp45 - tmp48;
- tmp70 = tmp48 + tmp45;
- tmp83 = tmp81 - tmp82;
- tmp94 = tmp81 + tmp82;
- }
- {
- fftw_real tmp57;
- fftw_real tmp35;
- fftw_real tmp87;
- fftw_real tmp77;
- ASSERT_ALIGNED_DOUBLE;
- c_re(output[7 * ostride]) = tmp3 + tmp10 + tmp17 + tmp24;
- tmp57 = (K974927912 * tmp42) - (K781831482 * tmp49) - (K433883739 * tmp56);
- tmp35 = tmp3 + (K623489801 * tmp24) - (K900968867 * tmp17) - (K222520933 * tmp10);
- c_re(output[5 * ostride]) = tmp35 - tmp57;
- c_re(output[9 * ostride]) = tmp35 + tmp57;
- {
- fftw_real tmp59;
- fftw_real tmp58;
- fftw_real tmp61;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- tmp59 = (K781831482 * tmp42) + (K974927912 * tmp56) + (K433883739 * tmp49);
- tmp58 = tmp3 + (K623489801 * tmp10) - (K900968867 * tmp24) - (K222520933 * tmp17);
- c_re(output[13 * ostride]) = tmp58 - tmp59;
- c_re(output[ostride]) = tmp58 + tmp59;
- tmp61 = (K433883739 * tmp42) + (K974927912 * tmp49) - (K781831482 * tmp56);
- tmp60 = tmp3 + (K623489801 * tmp17) - (K222520933 * tmp24) - (K900968867 * tmp10);
- c_re(output[11 * ostride]) = tmp60 - tmp61;
- c_re(output[3 * ostride]) = tmp60 + tmp61;
- }
- c_re(output[0]) = tmp25 + tmp28 + tmp31 + tmp34;
- tmp87 = (K781831482 * tmp80) - (K433883739 * tmp83) - (K974927912 * tmp86);
- tmp77 = tmp25 + (K623489801 * tmp28) - (K900968867 * tmp34) - (K222520933 * tmp31);
- c_re(output[6 * ostride]) = tmp77 - tmp87;
- c_re(output[8 * ostride]) = tmp77 + tmp87;
- {
- fftw_real tmp89;
- fftw_real tmp88;
- fftw_real tmp91;
- fftw_real tmp90;
- ASSERT_ALIGNED_DOUBLE;
- tmp89 = (K433883739 * tmp80) + (K781831482 * tmp86) - (K974927912 * tmp83);
- tmp88 = tmp25 + (K623489801 * tmp31) - (K222520933 * tmp34) - (K900968867 * tmp28);
- c_re(output[4 * ostride]) = tmp88 - tmp89;
- c_re(output[10 * ostride]) = tmp88 + tmp89;
- tmp91 = (K974927912 * tmp80) + (K433883739 * tmp86) + (K781831482 * tmp83);
- tmp90 = tmp25 + (K623489801 * tmp34) - (K900968867 * tmp31) - (K222520933 * tmp28);
- c_re(output[12 * ostride]) = tmp90 - tmp91;
- c_re(output[2 * ostride]) = tmp90 + tmp91;
- }
- }
- {
- fftw_real tmp76;
- fftw_real tmp75;
- fftw_real tmp103;
- fftw_real tmp104;
- ASSERT_ALIGNED_DOUBLE;
- c_im(output[7 * ostride]) = tmp68 + tmp71 + tmp69 + tmp70;
- tmp76 = (K974927912 * tmp62) - (K781831482 * tmp63) - (K433883739 * tmp64);
- tmp75 = tmp68 + (K623489801 * tmp70) - (K900968867 * tmp69) - (K222520933 * tmp71);
- c_im(output[5 * ostride]) = tmp75 - tmp76;
- c_im(output[9 * ostride]) = tmp76 + tmp75;
- {
- fftw_real tmp73;
- fftw_real tmp74;
- fftw_real tmp65;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = (K781831482 * tmp62) + (K974927912 * tmp64) + (K433883739 * tmp63);
- tmp74 = tmp68 + (K623489801 * tmp71) - (K900968867 * tmp70) - (K222520933 * tmp69);
- c_im(output[ostride]) = tmp73 + tmp74;
- c_im(output[13 * ostride]) = tmp74 - tmp73;
- tmp65 = (K433883739 * tmp62) + (K974927912 * tmp63) - (K781831482 * tmp64);
- tmp72 = tmp68 + (K623489801 * tmp69) - (K222520933 * tmp70) - (K900968867 * tmp71);
- c_im(output[3 * ostride]) = tmp65 + tmp72;
- c_im(output[11 * ostride]) = tmp72 - tmp65;
- }
- c_im(output[0]) = tmp92 + tmp93 + tmp95 + tmp94;
- tmp103 = (K974927912 * tmp97) + (K433883739 * tmp99) + (K781831482 * tmp98);
- tmp104 = tmp92 + (K623489801 * tmp94) - (K900968867 * tmp95) - (K222520933 * tmp93);
- c_im(output[2 * ostride]) = tmp103 + tmp104;
- c_im(output[12 * ostride]) = tmp104 - tmp103;
- {
- fftw_real tmp100;
- fftw_real tmp96;
- fftw_real tmp102;
- fftw_real tmp101;
- ASSERT_ALIGNED_DOUBLE;
- tmp100 = (K781831482 * tmp97) - (K433883739 * tmp98) - (K974927912 * tmp99);
- tmp96 = tmp92 + (K623489801 * tmp93) - (K900968867 * tmp94) - (K222520933 * tmp95);
- c_im(output[6 * ostride]) = tmp96 - tmp100;
- c_im(output[8 * ostride]) = tmp100 + tmp96;
- tmp102 = (K433883739 * tmp97) + (K781831482 * tmp99) - (K974927912 * tmp98);
- tmp101 = tmp92 + (K623489801 * tmp95) - (K222520933 * tmp94) - (K900968867 * tmp93);
- c_im(output[4 * ostride]) = tmp101 - tmp102;
- c_im(output[10 * ostride]) = tmp102 + tmp101;
- }
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_14_desc =
-{
- "fftwi_no_twiddle_14",
- (void (*)()) fftwi_no_twiddle_14,
- 14,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 320,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_15.c b/src/sndobj/rfftw/fni_15.c
deleted file mode 100644
index c7e147d..0000000
--- a/src/sndobj/rfftw/fni_15.c
+++ /dev/null
@@ -1,446 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:14 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 15 */
-
-/*
- * This function contains 156 FP additions, 56 FP multiplications,
- * (or, 128 additions, 28 multiplications, 28 fused multiply/add),
- * 62 stack variables, and 60 memory accesses
- */
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-
-/*
- * Generator Id's :
- * $Id: fni_15.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fni_15.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- * $Id: fni_15.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $
- */
-
-void fftwi_no_twiddle_15(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp5;
- fftw_real tmp121;
- fftw_real tmp148;
- fftw_real tmp87;
- fftw_real tmp35;
- fftw_real tmp67;
- fftw_real tmp21;
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp111;
- fftw_real tmp114;
- fftw_real tmp123;
- fftw_real tmp139;
- fftw_real tmp140;
- fftw_real tmp146;
- fftw_real tmp81;
- fftw_real tmp82;
- fftw_real tmp89;
- fftw_real tmp71;
- fftw_real tmp72;
- fftw_real tmp73;
- fftw_real tmp57;
- fftw_real tmp64;
- fftw_real tmp65;
- fftw_real tmp10;
- fftw_real tmp15;
- fftw_real tmp16;
- fftw_real tmp104;
- fftw_real tmp107;
- fftw_real tmp122;
- fftw_real tmp136;
- fftw_real tmp137;
- fftw_real tmp145;
- fftw_real tmp78;
- fftw_real tmp79;
- fftw_real tmp88;
- fftw_real tmp68;
- fftw_real tmp69;
- fftw_real tmp70;
- fftw_real tmp42;
- fftw_real tmp49;
- fftw_real tmp50;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp30;
- fftw_real tmp4;
- fftw_real tmp29;
- fftw_real tmp33;
- fftw_real tmp120;
- fftw_real tmp119;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp30 = c_im(input[0]);
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp31;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = c_re(input[5 * istride]);
- tmp3 = c_re(input[10 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp29 = K866025403 * (tmp2 - tmp3);
- tmp31 = c_im(input[5 * istride]);
- tmp32 = c_im(input[10 * istride]);
- tmp33 = tmp31 + tmp32;
- tmp120 = K866025403 * (tmp32 - tmp31);
- }
- tmp5 = tmp1 + tmp4;
- tmp119 = tmp1 - (K500000000 * tmp4);
- tmp121 = tmp119 - tmp120;
- tmp148 = tmp119 + tmp120;
- tmp87 = tmp30 + tmp33;
- tmp34 = tmp30 - (K500000000 * tmp33);
- tmp35 = tmp29 + tmp34;
- tmp67 = tmp34 - tmp29;
- }
- {
- fftw_real tmp17;
- fftw_real tmp20;
- fftw_real tmp51;
- fftw_real tmp109;
- fftw_real tmp52;
- fftw_real tmp55;
- fftw_real tmp56;
- fftw_real tmp110;
- fftw_real tmp22;
- fftw_real tmp25;
- fftw_real tmp58;
- fftw_real tmp112;
- fftw_real tmp59;
- fftw_real tmp62;
- fftw_real tmp63;
- fftw_real tmp113;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp53;
- fftw_real tmp54;
- ASSERT_ALIGNED_DOUBLE;
- tmp17 = c_re(input[6 * istride]);
- tmp18 = c_re(input[11 * istride]);
- tmp19 = c_re(input[istride]);
- tmp20 = tmp18 + tmp19;
- tmp51 = K866025403 * (tmp18 - tmp19);
- tmp109 = tmp17 - (K500000000 * tmp20);
- tmp52 = c_im(input[6 * istride]);
- tmp53 = c_im(input[11 * istride]);
- tmp54 = c_im(input[istride]);
- tmp55 = tmp53 + tmp54;
- tmp56 = tmp52 - (K500000000 * tmp55);
- tmp110 = K866025403 * (tmp54 - tmp53);
- }
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp60;
- fftw_real tmp61;
- ASSERT_ALIGNED_DOUBLE;
- tmp22 = c_re(input[9 * istride]);
- tmp23 = c_re(input[14 * istride]);
- tmp24 = c_re(input[4 * istride]);
- tmp25 = tmp23 + tmp24;
- tmp58 = K866025403 * (tmp23 - tmp24);
- tmp112 = tmp22 - (K500000000 * tmp25);
- tmp59 = c_im(input[9 * istride]);
- tmp60 = c_im(input[14 * istride]);
- tmp61 = c_im(input[4 * istride]);
- tmp62 = tmp60 + tmp61;
- tmp63 = tmp59 - (K500000000 * tmp62);
- tmp113 = K866025403 * (tmp61 - tmp60);
- }
- tmp21 = tmp17 + tmp20;
- tmp26 = tmp22 + tmp25;
- tmp27 = tmp21 + tmp26;
- tmp111 = tmp109 - tmp110;
- tmp114 = tmp112 - tmp113;
- tmp123 = tmp111 + tmp114;
- tmp139 = tmp109 + tmp110;
- tmp140 = tmp112 + tmp113;
- tmp146 = tmp139 + tmp140;
- tmp81 = tmp52 + tmp55;
- tmp82 = tmp59 + tmp62;
- tmp89 = tmp81 + tmp82;
- tmp71 = tmp56 - tmp51;
- tmp72 = tmp63 - tmp58;
- tmp73 = tmp71 + tmp72;
- tmp57 = tmp51 + tmp56;
- tmp64 = tmp58 + tmp63;
- tmp65 = tmp57 + tmp64;
- }
- {
- fftw_real tmp6;
- fftw_real tmp9;
- fftw_real tmp36;
- fftw_real tmp102;
- fftw_real tmp37;
- fftw_real tmp40;
- fftw_real tmp41;
- fftw_real tmp103;
- fftw_real tmp11;
- fftw_real tmp14;
- fftw_real tmp43;
- fftw_real tmp105;
- fftw_real tmp44;
- fftw_real tmp47;
- fftw_real tmp48;
- fftw_real tmp106;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp38;
- fftw_real tmp39;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = c_re(input[3 * istride]);
- tmp7 = c_re(input[8 * istride]);
- tmp8 = c_re(input[13 * istride]);
- tmp9 = tmp7 + tmp8;
- tmp36 = K866025403 * (tmp7 - tmp8);
- tmp102 = tmp6 - (K500000000 * tmp9);
- tmp37 = c_im(input[3 * istride]);
- tmp38 = c_im(input[8 * istride]);
- tmp39 = c_im(input[13 * istride]);
- tmp40 = tmp38 + tmp39;
- tmp41 = tmp37 - (K500000000 * tmp40);
- tmp103 = K866025403 * (tmp39 - tmp38);
- }
- {
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp45;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[12 * istride]);
- tmp12 = c_re(input[2 * istride]);
- tmp13 = c_re(input[7 * istride]);
- tmp14 = tmp12 + tmp13;
- tmp43 = K866025403 * (tmp12 - tmp13);
- tmp105 = tmp11 - (K500000000 * tmp14);
- tmp44 = c_im(input[12 * istride]);
- tmp45 = c_im(input[2 * istride]);
- tmp46 = c_im(input[7 * istride]);
- tmp47 = tmp45 + tmp46;
- tmp48 = tmp44 - (K500000000 * tmp47);
- tmp106 = K866025403 * (tmp46 - tmp45);
- }
- tmp10 = tmp6 + tmp9;
- tmp15 = tmp11 + tmp14;
- tmp16 = tmp10 + tmp15;
- tmp104 = tmp102 - tmp103;
- tmp107 = tmp105 - tmp106;
- tmp122 = tmp104 + tmp107;
- tmp136 = tmp102 + tmp103;
- tmp137 = tmp105 + tmp106;
- tmp145 = tmp136 + tmp137;
- tmp78 = tmp37 + tmp40;
- tmp79 = tmp44 + tmp47;
- tmp88 = tmp78 + tmp79;
- tmp68 = tmp41 - tmp36;
- tmp69 = tmp48 - tmp43;
- tmp70 = tmp68 + tmp69;
- tmp42 = tmp36 + tmp41;
- tmp49 = tmp43 + tmp48;
- tmp50 = tmp42 + tmp49;
- }
- {
- fftw_real tmp76;
- fftw_real tmp28;
- fftw_real tmp75;
- fftw_real tmp84;
- fftw_real tmp86;
- fftw_real tmp80;
- fftw_real tmp83;
- fftw_real tmp85;
- fftw_real tmp77;
- ASSERT_ALIGNED_DOUBLE;
- tmp76 = K559016994 * (tmp16 - tmp27);
- tmp28 = tmp16 + tmp27;
- tmp75 = tmp5 - (K250000000 * tmp28);
- tmp80 = tmp78 - tmp79;
- tmp83 = tmp81 - tmp82;
- tmp84 = (K587785252 * tmp80) - (K951056516 * tmp83);
- tmp86 = (K951056516 * tmp80) + (K587785252 * tmp83);
- c_re(output[0]) = tmp5 + tmp28;
- tmp85 = tmp76 + tmp75;
- c_re(output[6 * ostride]) = tmp85 - tmp86;
- c_re(output[9 * ostride]) = tmp85 + tmp86;
- tmp77 = tmp75 - tmp76;
- c_re(output[12 * ostride]) = tmp77 - tmp84;
- c_re(output[3 * ostride]) = tmp77 + tmp84;
- }
- {
- fftw_real tmp134;
- fftw_real tmp66;
- fftw_real tmp133;
- fftw_real tmp142;
- fftw_real tmp144;
- fftw_real tmp138;
- fftw_real tmp141;
- fftw_real tmp143;
- fftw_real tmp135;
- ASSERT_ALIGNED_DOUBLE;
- tmp134 = K559016994 * (tmp50 - tmp65);
- tmp66 = tmp50 + tmp65;
- tmp133 = tmp35 - (K250000000 * tmp66);
- tmp138 = tmp136 - tmp137;
- tmp141 = tmp139 - tmp140;
- tmp142 = (K587785252 * tmp138) - (K951056516 * tmp141);
- tmp144 = (K951056516 * tmp138) + (K587785252 * tmp141);
- c_im(output[10 * ostride]) = tmp35 + tmp66;
- tmp143 = tmp134 + tmp133;
- c_im(output[4 * ostride]) = tmp143 - tmp144;
- c_im(output[ostride]) = tmp143 + tmp144;
- tmp135 = tmp133 - tmp134;
- c_im(output[13 * ostride]) = tmp135 - tmp142;
- c_im(output[7 * ostride]) = tmp135 + tmp142;
- }
- {
- fftw_real tmp147;
- fftw_real tmp149;
- fftw_real tmp150;
- fftw_real tmp154;
- fftw_real tmp156;
- fftw_real tmp152;
- fftw_real tmp153;
- fftw_real tmp155;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- tmp147 = K559016994 * (tmp145 - tmp146);
- tmp149 = tmp145 + tmp146;
- tmp150 = tmp148 - (K250000000 * tmp149);
- tmp152 = tmp42 - tmp49;
- tmp153 = tmp57 - tmp64;
- tmp154 = (K951056516 * tmp152) + (K587785252 * tmp153);
- tmp156 = (K587785252 * tmp152) - (K951056516 * tmp153);
- c_re(output[10 * ostride]) = tmp148 + tmp149;
- tmp155 = tmp150 - tmp147;
- c_re(output[7 * ostride]) = tmp155 - tmp156;
- c_re(output[13 * ostride]) = tmp156 + tmp155;
- tmp151 = tmp147 + tmp150;
- c_re(output[ostride]) = tmp151 - tmp154;
- c_re(output[4 * ostride]) = tmp154 + tmp151;
- }
- {
- fftw_real tmp126;
- fftw_real tmp124;
- fftw_real tmp125;
- fftw_real tmp130;
- fftw_real tmp132;
- fftw_real tmp128;
- fftw_real tmp129;
- fftw_real tmp131;
- fftw_real tmp127;
- ASSERT_ALIGNED_DOUBLE;
- tmp126 = K559016994 * (tmp122 - tmp123);
- tmp124 = tmp122 + tmp123;
- tmp125 = tmp121 - (K250000000 * tmp124);
- tmp128 = tmp68 - tmp69;
- tmp129 = tmp71 - tmp72;
- tmp130 = (K587785252 * tmp128) - (K951056516 * tmp129);
- tmp132 = (K951056516 * tmp128) + (K587785252 * tmp129);
- c_re(output[5 * ostride]) = tmp121 + tmp124;
- tmp131 = tmp126 + tmp125;
- c_re(output[11 * ostride]) = tmp131 - tmp132;
- c_re(output[14 * ostride]) = tmp132 + tmp131;
- tmp127 = tmp125 - tmp126;
- c_re(output[2 * ostride]) = tmp127 - tmp130;
- c_re(output[8 * ostride]) = tmp130 + tmp127;
- }
- {
- fftw_real tmp92;
- fftw_real tmp90;
- fftw_real tmp91;
- fftw_real tmp96;
- fftw_real tmp97;
- fftw_real tmp94;
- fftw_real tmp95;
- fftw_real tmp98;
- fftw_real tmp93;
- ASSERT_ALIGNED_DOUBLE;
- tmp92 = K559016994 * (tmp88 - tmp89);
- tmp90 = tmp88 + tmp89;
- tmp91 = tmp87 - (K250000000 * tmp90);
- tmp94 = tmp10 - tmp15;
- tmp95 = tmp21 - tmp26;
- tmp96 = (K587785252 * tmp94) - (K951056516 * tmp95);
- tmp97 = (K951056516 * tmp94) + (K587785252 * tmp95);
- c_im(output[0]) = tmp87 + tmp90;
- tmp98 = tmp92 + tmp91;
- c_im(output[6 * ostride]) = tmp97 + tmp98;
- c_im(output[9 * ostride]) = tmp98 - tmp97;
- tmp93 = tmp91 - tmp92;
- c_im(output[3 * ostride]) = tmp93 - tmp96;
- c_im(output[12 * ostride]) = tmp96 + tmp93;
- }
- {
- fftw_real tmp100;
- fftw_real tmp74;
- fftw_real tmp99;
- fftw_real tmp116;
- fftw_real tmp118;
- fftw_real tmp108;
- fftw_real tmp115;
- fftw_real tmp117;
- fftw_real tmp101;
- ASSERT_ALIGNED_DOUBLE;
- tmp100 = K559016994 * (tmp70 - tmp73);
- tmp74 = tmp70 + tmp73;
- tmp99 = tmp67 - (K250000000 * tmp74);
- tmp108 = tmp104 - tmp107;
- tmp115 = tmp111 - tmp114;
- tmp116 = (K587785252 * tmp108) - (K951056516 * tmp115);
- tmp118 = (K951056516 * tmp108) + (K587785252 * tmp115);
- c_im(output[5 * ostride]) = tmp67 + tmp74;
- tmp117 = tmp100 + tmp99;
- c_im(output[14 * ostride]) = tmp117 - tmp118;
- c_im(output[11 * ostride]) = tmp117 + tmp118;
- tmp101 = tmp99 - tmp100;
- c_im(output[8 * ostride]) = tmp101 - tmp116;
- c_im(output[2 * ostride]) = tmp101 + tmp116;
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_15_desc =
-{
- "fftwi_no_twiddle_15",
- (void (*)()) fftwi_no_twiddle_15,
- 15,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 342,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_16.c b/src/sndobj/rfftw/fni_16.c
deleted file mode 100644
index 3e761e0..0000000
--- a/src/sndobj/rfftw/fni_16.c
+++ /dev/null
@@ -1,439 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:15 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 16 */
-
-/*
- * This function contains 144 FP additions, 24 FP multiplications,
- * (or, 136 additions, 16 multiplications, 8 fused multiply/add),
- * 46 stack variables, and 64 memory accesses
- */
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: fni_16.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fni_16.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fni_16.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- */
-
-void fftwi_no_twiddle_16(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp7;
- fftw_real tmp129;
- fftw_real tmp38;
- fftw_real tmp115;
- fftw_real tmp49;
- fftw_real tmp95;
- fftw_real tmp83;
- fftw_real tmp105;
- fftw_real tmp29;
- fftw_real tmp123;
- fftw_real tmp73;
- fftw_real tmp101;
- fftw_real tmp78;
- fftw_real tmp102;
- fftw_real tmp126;
- fftw_real tmp141;
- fftw_real tmp14;
- fftw_real tmp116;
- fftw_real tmp45;
- fftw_real tmp130;
- fftw_real tmp52;
- fftw_real tmp84;
- fftw_real tmp55;
- fftw_real tmp85;
- fftw_real tmp22;
- fftw_real tmp118;
- fftw_real tmp62;
- fftw_real tmp98;
- fftw_real tmp67;
- fftw_real tmp99;
- fftw_real tmp121;
- fftw_real tmp140;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp81;
- fftw_real tmp34;
- fftw_real tmp48;
- fftw_real tmp6;
- fftw_real tmp47;
- fftw_real tmp37;
- fftw_real tmp82;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp32;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[8 * istride]);
- tmp3 = tmp1 + tmp2;
- tmp81 = tmp1 - tmp2;
- tmp32 = c_im(input[0]);
- tmp33 = c_im(input[8 * istride]);
- tmp34 = tmp32 + tmp33;
- tmp48 = tmp32 - tmp33;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp35;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[4 * istride]);
- tmp5 = c_re(input[12 * istride]);
- tmp6 = tmp4 + tmp5;
- tmp47 = tmp4 - tmp5;
- tmp35 = c_im(input[4 * istride]);
- tmp36 = c_im(input[12 * istride]);
- tmp37 = tmp35 + tmp36;
- tmp82 = tmp35 - tmp36;
- }
- tmp7 = tmp3 + tmp6;
- tmp129 = tmp3 - tmp6;
- tmp38 = tmp34 + tmp37;
- tmp115 = tmp34 - tmp37;
- tmp49 = tmp47 + tmp48;
- tmp95 = tmp48 - tmp47;
- tmp83 = tmp81 - tmp82;
- tmp105 = tmp81 + tmp82;
- }
- {
- fftw_real tmp25;
- fftw_real tmp74;
- fftw_real tmp72;
- fftw_real tmp124;
- fftw_real tmp28;
- fftw_real tmp69;
- fftw_real tmp77;
- fftw_real tmp125;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp70;
- fftw_real tmp71;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = c_re(input[15 * istride]);
- tmp24 = c_re(input[7 * istride]);
- tmp25 = tmp23 + tmp24;
- tmp74 = tmp23 - tmp24;
- tmp70 = c_im(input[15 * istride]);
- tmp71 = c_im(input[7 * istride]);
- tmp72 = tmp70 - tmp71;
- tmp124 = tmp70 + tmp71;
- }
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp75;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(input[3 * istride]);
- tmp27 = c_re(input[11 * istride]);
- tmp28 = tmp26 + tmp27;
- tmp69 = tmp26 - tmp27;
- tmp75 = c_im(input[3 * istride]);
- tmp76 = c_im(input[11 * istride]);
- tmp77 = tmp75 - tmp76;
- tmp125 = tmp75 + tmp76;
- }
- tmp29 = tmp25 + tmp28;
- tmp123 = tmp25 - tmp28;
- tmp73 = tmp69 + tmp72;
- tmp101 = tmp72 - tmp69;
- tmp78 = tmp74 - tmp77;
- tmp102 = tmp74 + tmp77;
- tmp126 = tmp124 - tmp125;
- tmp141 = tmp124 + tmp125;
- }
- {
- fftw_real tmp10;
- fftw_real tmp50;
- fftw_real tmp41;
- fftw_real tmp51;
- fftw_real tmp13;
- fftw_real tmp54;
- fftw_real tmp44;
- fftw_real tmp53;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp39;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[2 * istride]);
- tmp9 = c_re(input[10 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp50 = tmp8 - tmp9;
- tmp39 = c_im(input[2 * istride]);
- tmp40 = c_im(input[10 * istride]);
- tmp41 = tmp39 + tmp40;
- tmp51 = tmp39 - tmp40;
- }
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp42;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[14 * istride]);
- tmp12 = c_re(input[6 * istride]);
- tmp13 = tmp11 + tmp12;
- tmp54 = tmp11 - tmp12;
- tmp42 = c_im(input[14 * istride]);
- tmp43 = c_im(input[6 * istride]);
- tmp44 = tmp42 + tmp43;
- tmp53 = tmp42 - tmp43;
- }
- tmp14 = tmp10 + tmp13;
- tmp116 = tmp10 - tmp13;
- tmp45 = tmp41 + tmp44;
- tmp130 = tmp44 - tmp41;
- tmp52 = tmp50 + tmp51;
- tmp84 = tmp50 - tmp51;
- tmp55 = tmp53 - tmp54;
- tmp85 = tmp54 + tmp53;
- }
- {
- fftw_real tmp18;
- fftw_real tmp63;
- fftw_real tmp61;
- fftw_real tmp119;
- fftw_real tmp21;
- fftw_real tmp58;
- fftw_real tmp66;
- fftw_real tmp120;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp59;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_re(input[istride]);
- tmp17 = c_re(input[9 * istride]);
- tmp18 = tmp16 + tmp17;
- tmp63 = tmp16 - tmp17;
- tmp59 = c_im(input[istride]);
- tmp60 = c_im(input[9 * istride]);
- tmp61 = tmp59 - tmp60;
- tmp119 = tmp59 + tmp60;
- }
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp64;
- fftw_real tmp65;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = c_re(input[5 * istride]);
- tmp20 = c_re(input[13 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp58 = tmp19 - tmp20;
- tmp64 = c_im(input[5 * istride]);
- tmp65 = c_im(input[13 * istride]);
- tmp66 = tmp64 - tmp65;
- tmp120 = tmp64 + tmp65;
- }
- tmp22 = tmp18 + tmp21;
- tmp118 = tmp18 - tmp21;
- tmp62 = tmp58 + tmp61;
- tmp98 = tmp61 - tmp58;
- tmp67 = tmp63 - tmp66;
- tmp99 = tmp63 + tmp66;
- tmp121 = tmp119 - tmp120;
- tmp140 = tmp119 + tmp120;
- }
- {
- fftw_real tmp15;
- fftw_real tmp30;
- fftw_real tmp31;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = tmp7 + tmp14;
- tmp30 = tmp22 + tmp29;
- c_re(output[8 * ostride]) = tmp15 - tmp30;
- c_re(output[0]) = tmp15 + tmp30;
- tmp31 = tmp22 - tmp29;
- tmp46 = tmp38 - tmp45;
- c_im(output[4 * ostride]) = tmp31 + tmp46;
- c_im(output[12 * ostride]) = tmp46 - tmp31;
- }
- {
- fftw_real tmp139;
- fftw_real tmp142;
- fftw_real tmp143;
- fftw_real tmp144;
- ASSERT_ALIGNED_DOUBLE;
- tmp139 = tmp38 + tmp45;
- tmp142 = tmp140 + tmp141;
- c_im(output[8 * ostride]) = tmp139 - tmp142;
- c_im(output[0]) = tmp139 + tmp142;
- tmp143 = tmp7 - tmp14;
- tmp144 = tmp141 - tmp140;
- c_re(output[12 * ostride]) = tmp143 - tmp144;
- c_re(output[4 * ostride]) = tmp143 + tmp144;
- }
- {
- fftw_real tmp117;
- fftw_real tmp131;
- fftw_real tmp128;
- fftw_real tmp132;
- fftw_real tmp122;
- fftw_real tmp127;
- ASSERT_ALIGNED_DOUBLE;
- tmp117 = tmp115 - tmp116;
- tmp131 = tmp129 + tmp130;
- tmp122 = tmp118 - tmp121;
- tmp127 = tmp123 + tmp126;
- tmp128 = K707106781 * (tmp122 - tmp127);
- tmp132 = K707106781 * (tmp122 + tmp127);
- c_im(output[14 * ostride]) = tmp117 - tmp128;
- c_im(output[6 * ostride]) = tmp117 + tmp128;
- c_re(output[10 * ostride]) = tmp131 - tmp132;
- c_re(output[2 * ostride]) = tmp131 + tmp132;
- }
- {
- fftw_real tmp133;
- fftw_real tmp137;
- fftw_real tmp136;
- fftw_real tmp138;
- fftw_real tmp134;
- fftw_real tmp135;
- ASSERT_ALIGNED_DOUBLE;
- tmp133 = tmp116 + tmp115;
- tmp137 = tmp129 - tmp130;
- tmp134 = tmp118 + tmp121;
- tmp135 = tmp126 - tmp123;
- tmp136 = K707106781 * (tmp134 + tmp135);
- tmp138 = K707106781 * (tmp135 - tmp134);
- c_im(output[10 * ostride]) = tmp133 - tmp136;
- c_im(output[2 * ostride]) = tmp133 + tmp136;
- c_re(output[14 * ostride]) = tmp137 - tmp138;
- c_re(output[6 * ostride]) = tmp137 + tmp138;
- }
- {
- fftw_real tmp57;
- fftw_real tmp89;
- fftw_real tmp92;
- fftw_real tmp94;
- fftw_real tmp87;
- fftw_real tmp93;
- fftw_real tmp80;
- fftw_real tmp88;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp56;
- fftw_real tmp90;
- fftw_real tmp91;
- fftw_real tmp86;
- fftw_real tmp68;
- fftw_real tmp79;
- ASSERT_ALIGNED_DOUBLE;
- tmp56 = K707106781 * (tmp52 + tmp55);
- tmp57 = tmp49 + tmp56;
- tmp89 = tmp49 - tmp56;
- tmp90 = (K923879532 * tmp67) - (K382683432 * tmp62);
- tmp91 = (K382683432 * tmp73) + (K923879532 * tmp78);
- tmp92 = tmp90 - tmp91;
- tmp94 = tmp90 + tmp91;
- tmp86 = K707106781 * (tmp84 + tmp85);
- tmp87 = tmp83 - tmp86;
- tmp93 = tmp83 + tmp86;
- tmp68 = (K923879532 * tmp62) + (K382683432 * tmp67);
- tmp79 = (K923879532 * tmp73) - (K382683432 * tmp78);
- tmp80 = tmp68 + tmp79;
- tmp88 = tmp79 - tmp68;
- }
- c_im(output[9 * ostride]) = tmp57 - tmp80;
- c_im(output[ostride]) = tmp57 + tmp80;
- c_re(output[13 * ostride]) = tmp87 - tmp88;
- c_re(output[5 * ostride]) = tmp87 + tmp88;
- c_im(output[13 * ostride]) = tmp89 - tmp92;
- c_im(output[5 * ostride]) = tmp89 + tmp92;
- c_re(output[9 * ostride]) = tmp93 - tmp94;
- c_re(output[ostride]) = tmp93 + tmp94;
- }
- {
- fftw_real tmp97;
- fftw_real tmp109;
- fftw_real tmp112;
- fftw_real tmp114;
- fftw_real tmp107;
- fftw_real tmp113;
- fftw_real tmp104;
- fftw_real tmp108;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp96;
- fftw_real tmp110;
- fftw_real tmp111;
- fftw_real tmp106;
- fftw_real tmp100;
- fftw_real tmp103;
- ASSERT_ALIGNED_DOUBLE;
- tmp96 = K707106781 * (tmp84 - tmp85);
- tmp97 = tmp95 + tmp96;
- tmp109 = tmp95 - tmp96;
- tmp110 = (K382683432 * tmp99) - (K923879532 * tmp98);
- tmp111 = (K923879532 * tmp101) + (K382683432 * tmp102);
- tmp112 = tmp110 - tmp111;
- tmp114 = tmp110 + tmp111;
- tmp106 = K707106781 * (tmp55 - tmp52);
- tmp107 = tmp105 - tmp106;
- tmp113 = tmp105 + tmp106;
- tmp100 = (K382683432 * tmp98) + (K923879532 * tmp99);
- tmp103 = (K382683432 * tmp101) - (K923879532 * tmp102);
- tmp104 = tmp100 + tmp103;
- tmp108 = tmp103 - tmp100;
- }
- c_im(output[11 * ostride]) = tmp97 - tmp104;
- c_im(output[3 * ostride]) = tmp97 + tmp104;
- c_re(output[15 * ostride]) = tmp107 - tmp108;
- c_re(output[7 * ostride]) = tmp107 + tmp108;
- c_im(output[15 * ostride]) = tmp109 - tmp112;
- c_im(output[7 * ostride]) = tmp109 + tmp112;
- c_re(output[11 * ostride]) = tmp113 - tmp114;
- c_re(output[3 * ostride]) = tmp113 + tmp114;
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_16_desc =
-{
- "fftwi_no_twiddle_16",
- (void (*)()) fftwi_no_twiddle_16,
- 16,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 364,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_2.c b/src/sndobj/rfftw/fni_2.c
deleted file mode 100644
index 357427f..0000000
--- a/src/sndobj/rfftw/fni_2.c
+++ /dev/null
@@ -1,68 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:02 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 2 */
-
-/*
- * This function contains 4 FP additions, 0 FP multiplications,
- * (or, 4 additions, 0 multiplications, 0 fused multiply/add),
- * 4 stack variables, and 8 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: fni_2.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- * $Id: fni_2.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- * $Id: fni_2.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- */
-
-void fftwi_no_twiddle_2(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[istride]);
- c_re(output[ostride]) = tmp1 - tmp2;
- c_re(output[0]) = tmp1 + tmp2;
- tmp3 = c_im(input[0]);
- tmp4 = c_im(input[istride]);
- c_im(output[ostride]) = tmp3 - tmp4;
- c_im(output[0]) = tmp3 + tmp4;
-}
-
-fftw_codelet_desc fftwi_no_twiddle_2_desc =
-{
- "fftwi_no_twiddle_2",
- (void (*)()) fftwi_no_twiddle_2,
- 2,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 56,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_3.c b/src/sndobj/rfftw/fni_3.c
deleted file mode 100644
index a541423..0000000
--- a/src/sndobj/rfftw/fni_3.c
+++ /dev/null
@@ -1,91 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:03 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 3 */
-
-/*
- * This function contains 12 FP additions, 4 FP multiplications,
- * (or, 10 additions, 2 multiplications, 2 fused multiply/add),
- * 12 stack variables, and 12 memory accesses
- */
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-
-/*
- * Generator Id's :
- * $Id: fni_3.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fni_3.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: fni_3.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftwi_no_twiddle_3(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp6;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp9;
- fftw_real tmp12;
- fftw_real tmp11;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp6 = c_im(input[0]);
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp7;
- fftw_real tmp8;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = c_re(input[istride]);
- tmp3 = c_re(input[2 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp5 = K866025403 * (tmp2 - tmp3);
- tmp7 = c_im(input[istride]);
- tmp8 = c_im(input[2 * istride]);
- tmp9 = tmp7 + tmp8;
- tmp12 = K866025403 * (tmp8 - tmp7);
- }
- c_re(output[0]) = tmp1 + tmp4;
- tmp11 = tmp1 - (K500000000 * tmp4);
- c_re(output[2 * ostride]) = tmp11 - tmp12;
- c_re(output[ostride]) = tmp11 + tmp12;
- c_im(output[0]) = tmp6 + tmp9;
- tmp10 = tmp6 - (K500000000 * tmp9);
- c_im(output[ostride]) = tmp5 + tmp10;
- c_im(output[2 * ostride]) = tmp10 - tmp5;
-}
-
-fftw_codelet_desc fftwi_no_twiddle_3_desc =
-{
- "fftwi_no_twiddle_3",
- (void (*)()) fftwi_no_twiddle_3,
- 3,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 78,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_32.c b/src/sndobj/rfftw/fni_32.c
deleted file mode 100644
index afffec9..0000000
--- a/src/sndobj/rfftw/fni_32.c
+++ /dev/null
@@ -1,1042 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:16 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 32 */
-
-/*
- * This function contains 372 FP additions, 84 FP multiplications,
- * (or, 340 additions, 52 multiplications, 32 fused multiply/add),
- * 92 stack variables, and 128 memory accesses
- */
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: fni_32.c,v 1.1.1.1 2006/05/12 15:14:51 veplaini Exp $
- * $Id: fni_32.c,v 1.1.1.1 2006/05/12 15:14:51 veplaini Exp $
- * $Id: fni_32.c,v 1.1.1.1 2006/05/12 15:14:51 veplaini Exp $
- */
-
-void fftwi_no_twiddle_32(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp7;
- fftw_real tmp339;
- fftw_real tmp70;
- fftw_real tmp313;
- fftw_real tmp97;
- fftw_real tmp215;
- fftw_real tmp179;
- fftw_real tmp241;
- fftw_real tmp14;
- fftw_real tmp314;
- fftw_real tmp77;
- fftw_real tmp340;
- fftw_real tmp182;
- fftw_real tmp216;
- fftw_real tmp104;
- fftw_real tmp242;
- fftw_real tmp153;
- fftw_real tmp236;
- fftw_real tmp53;
- fftw_real tmp60;
- fftw_real tmp287;
- fftw_real tmp336;
- fftw_real tmp360;
- fftw_real tmp290;
- fftw_real tmp293;
- fftw_real tmp294;
- fftw_real tmp170;
- fftw_real tmp233;
- fftw_real tmp333;
- fftw_real tmp359;
- fftw_real tmp164;
- fftw_real tmp234;
- fftw_real tmp173;
- fftw_real tmp237;
- fftw_real tmp22;
- fftw_real tmp318;
- fftw_real tmp343;
- fftw_real tmp85;
- fftw_real tmp112;
- fftw_real tmp185;
- fftw_real tmp220;
- fftw_real tmp245;
- fftw_real tmp29;
- fftw_real tmp321;
- fftw_real tmp342;
- fftw_real tmp92;
- fftw_real tmp119;
- fftw_real tmp184;
- fftw_real tmp223;
- fftw_real tmp244;
- fftw_real tmp126;
- fftw_real tmp229;
- fftw_real tmp38;
- fftw_real tmp45;
- fftw_real tmp278;
- fftw_real tmp329;
- fftw_real tmp357;
- fftw_real tmp281;
- fftw_real tmp284;
- fftw_real tmp285;
- fftw_real tmp143;
- fftw_real tmp226;
- fftw_real tmp326;
- fftw_real tmp356;
- fftw_real tmp137;
- fftw_real tmp227;
- fftw_real tmp146;
- fftw_real tmp230;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp177;
- fftw_real tmp66;
- fftw_real tmp96;
- fftw_real tmp6;
- fftw_real tmp95;
- fftw_real tmp69;
- fftw_real tmp178;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp64;
- fftw_real tmp65;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[16 * istride]);
- tmp3 = tmp1 + tmp2;
- tmp177 = tmp1 - tmp2;
- tmp64 = c_im(input[0]);
- tmp65 = c_im(input[16 * istride]);
- tmp66 = tmp64 + tmp65;
- tmp96 = tmp64 - tmp65;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp67;
- fftw_real tmp68;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[8 * istride]);
- tmp5 = c_re(input[24 * istride]);
- tmp6 = tmp4 + tmp5;
- tmp95 = tmp4 - tmp5;
- tmp67 = c_im(input[8 * istride]);
- tmp68 = c_im(input[24 * istride]);
- tmp69 = tmp67 + tmp68;
- tmp178 = tmp67 - tmp68;
- }
- tmp7 = tmp3 + tmp6;
- tmp339 = tmp3 - tmp6;
- tmp70 = tmp66 + tmp69;
- tmp313 = tmp66 - tmp69;
- tmp97 = tmp95 + tmp96;
- tmp215 = tmp96 - tmp95;
- tmp179 = tmp177 - tmp178;
- tmp241 = tmp177 + tmp178;
- }
- {
- fftw_real tmp10;
- fftw_real tmp98;
- fftw_real tmp73;
- fftw_real tmp99;
- fftw_real tmp13;
- fftw_real tmp102;
- fftw_real tmp76;
- fftw_real tmp101;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp71;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[4 * istride]);
- tmp9 = c_re(input[20 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp98 = tmp8 - tmp9;
- tmp71 = c_im(input[4 * istride]);
- tmp72 = c_im(input[20 * istride]);
- tmp73 = tmp71 + tmp72;
- tmp99 = tmp71 - tmp72;
- }
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp74;
- fftw_real tmp75;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[28 * istride]);
- tmp12 = c_re(input[12 * istride]);
- tmp13 = tmp11 + tmp12;
- tmp102 = tmp11 - tmp12;
- tmp74 = c_im(input[28 * istride]);
- tmp75 = c_im(input[12 * istride]);
- tmp76 = tmp74 + tmp75;
- tmp101 = tmp74 - tmp75;
- }
- tmp14 = tmp10 + tmp13;
- tmp314 = tmp10 - tmp13;
- tmp77 = tmp73 + tmp76;
- tmp340 = tmp76 - tmp73;
- {
- fftw_real tmp180;
- fftw_real tmp181;
- fftw_real tmp100;
- fftw_real tmp103;
- ASSERT_ALIGNED_DOUBLE;
- tmp180 = tmp98 - tmp99;
- tmp181 = tmp102 + tmp101;
- tmp182 = K707106781 * (tmp180 + tmp181);
- tmp216 = K707106781 * (tmp180 - tmp181);
- tmp100 = tmp98 + tmp99;
- tmp103 = tmp101 - tmp102;
- tmp104 = K707106781 * (tmp100 + tmp103);
- tmp242 = K707106781 * (tmp103 - tmp100);
- }
- }
- {
- fftw_real tmp49;
- fftw_real tmp149;
- fftw_real tmp169;
- fftw_real tmp288;
- fftw_real tmp52;
- fftw_real tmp166;
- fftw_real tmp152;
- fftw_real tmp289;
- fftw_real tmp56;
- fftw_real tmp154;
- fftw_real tmp157;
- fftw_real tmp291;
- fftw_real tmp59;
- fftw_real tmp159;
- fftw_real tmp162;
- fftw_real tmp292;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp47;
- fftw_real tmp48;
- fftw_real tmp167;
- fftw_real tmp168;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = c_re(input[31 * istride]);
- tmp48 = c_re(input[15 * istride]);
- tmp49 = tmp47 + tmp48;
- tmp149 = tmp47 - tmp48;
- tmp167 = c_im(input[31 * istride]);
- tmp168 = c_im(input[15 * istride]);
- tmp169 = tmp167 - tmp168;
- tmp288 = tmp167 + tmp168;
- }
- {
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp150;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = c_re(input[7 * istride]);
- tmp51 = c_re(input[23 * istride]);
- tmp52 = tmp50 + tmp51;
- tmp166 = tmp50 - tmp51;
- tmp150 = c_im(input[7 * istride]);
- tmp151 = c_im(input[23 * istride]);
- tmp152 = tmp150 - tmp151;
- tmp289 = tmp150 + tmp151;
- }
- {
- fftw_real tmp54;
- fftw_real tmp55;
- fftw_real tmp155;
- fftw_real tmp156;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = c_re(input[3 * istride]);
- tmp55 = c_re(input[19 * istride]);
- tmp56 = tmp54 + tmp55;
- tmp154 = tmp54 - tmp55;
- tmp155 = c_im(input[3 * istride]);
- tmp156 = c_im(input[19 * istride]);
- tmp157 = tmp155 - tmp156;
- tmp291 = tmp155 + tmp156;
- }
- {
- fftw_real tmp57;
- fftw_real tmp58;
- fftw_real tmp160;
- fftw_real tmp161;
- ASSERT_ALIGNED_DOUBLE;
- tmp57 = c_re(input[27 * istride]);
- tmp58 = c_re(input[11 * istride]);
- tmp59 = tmp57 + tmp58;
- tmp159 = tmp57 - tmp58;
- tmp160 = c_im(input[27 * istride]);
- tmp161 = c_im(input[11 * istride]);
- tmp162 = tmp160 - tmp161;
- tmp292 = tmp160 + tmp161;
- }
- {
- fftw_real tmp334;
- fftw_real tmp335;
- fftw_real tmp331;
- fftw_real tmp332;
- ASSERT_ALIGNED_DOUBLE;
- tmp153 = tmp149 - tmp152;
- tmp236 = tmp149 + tmp152;
- tmp53 = tmp49 + tmp52;
- tmp60 = tmp56 + tmp59;
- tmp287 = tmp53 - tmp60;
- tmp334 = tmp49 - tmp52;
- tmp335 = tmp292 - tmp291;
- tmp336 = tmp334 - tmp335;
- tmp360 = tmp334 + tmp335;
- tmp290 = tmp288 + tmp289;
- tmp293 = tmp291 + tmp292;
- tmp294 = tmp290 - tmp293;
- tmp170 = tmp166 + tmp169;
- tmp233 = tmp169 - tmp166;
- tmp331 = tmp288 - tmp289;
- tmp332 = tmp56 - tmp59;
- tmp333 = tmp331 - tmp332;
- tmp359 = tmp332 + tmp331;
- {
- fftw_real tmp158;
- fftw_real tmp163;
- fftw_real tmp171;
- fftw_real tmp172;
- ASSERT_ALIGNED_DOUBLE;
- tmp158 = tmp154 - tmp157;
- tmp163 = tmp159 + tmp162;
- tmp164 = K707106781 * (tmp158 + tmp163);
- tmp234 = K707106781 * (tmp158 - tmp163);
- tmp171 = tmp154 + tmp157;
- tmp172 = tmp162 - tmp159;
- tmp173 = K707106781 * (tmp171 + tmp172);
- tmp237 = K707106781 * (tmp172 - tmp171);
- }
- }
- }
- {
- fftw_real tmp18;
- fftw_real tmp106;
- fftw_real tmp81;
- fftw_real tmp110;
- fftw_real tmp21;
- fftw_real tmp109;
- fftw_real tmp84;
- fftw_real tmp107;
- fftw_real tmp316;
- fftw_real tmp317;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp79;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_re(input[2 * istride]);
- tmp17 = c_re(input[18 * istride]);
- tmp18 = tmp16 + tmp17;
- tmp106 = tmp16 - tmp17;
- tmp79 = c_im(input[2 * istride]);
- tmp80 = c_im(input[18 * istride]);
- tmp81 = tmp79 + tmp80;
- tmp110 = tmp79 - tmp80;
- }
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp82;
- fftw_real tmp83;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = c_re(input[10 * istride]);
- tmp20 = c_re(input[26 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp109 = tmp19 - tmp20;
- tmp82 = c_im(input[10 * istride]);
- tmp83 = c_im(input[26 * istride]);
- tmp84 = tmp82 + tmp83;
- tmp107 = tmp82 - tmp83;
- }
- tmp22 = tmp18 + tmp21;
- tmp316 = tmp18 - tmp21;
- tmp317 = tmp81 - tmp84;
- tmp318 = tmp316 - tmp317;
- tmp343 = tmp316 + tmp317;
- tmp85 = tmp81 + tmp84;
- {
- fftw_real tmp108;
- fftw_real tmp111;
- fftw_real tmp218;
- fftw_real tmp219;
- ASSERT_ALIGNED_DOUBLE;
- tmp108 = tmp106 - tmp107;
- tmp111 = tmp109 + tmp110;
- tmp112 = (K923879532 * tmp108) - (K382683432 * tmp111);
- tmp185 = (K923879532 * tmp111) + (K382683432 * tmp108);
- tmp218 = tmp106 + tmp107;
- tmp219 = tmp110 - tmp109;
- tmp220 = (K382683432 * tmp218) - (K923879532 * tmp219);
- tmp245 = (K382683432 * tmp219) + (K923879532 * tmp218);
- }
- }
- {
- fftw_real tmp25;
- fftw_real tmp116;
- fftw_real tmp88;
- fftw_real tmp114;
- fftw_real tmp28;
- fftw_real tmp113;
- fftw_real tmp91;
- fftw_real tmp117;
- fftw_real tmp319;
- fftw_real tmp320;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp86;
- fftw_real tmp87;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = c_re(input[30 * istride]);
- tmp24 = c_re(input[14 * istride]);
- tmp25 = tmp23 + tmp24;
- tmp116 = tmp23 - tmp24;
- tmp86 = c_im(input[30 * istride]);
- tmp87 = c_im(input[14 * istride]);
- tmp88 = tmp86 + tmp87;
- tmp114 = tmp86 - tmp87;
- }
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp89;
- fftw_real tmp90;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(input[6 * istride]);
- tmp27 = c_re(input[22 * istride]);
- tmp28 = tmp26 + tmp27;
- tmp113 = tmp26 - tmp27;
- tmp89 = c_im(input[6 * istride]);
- tmp90 = c_im(input[22 * istride]);
- tmp91 = tmp89 + tmp90;
- tmp117 = tmp89 - tmp90;
- }
- tmp29 = tmp25 + tmp28;
- tmp319 = tmp25 - tmp28;
- tmp320 = tmp88 - tmp91;
- tmp321 = tmp319 + tmp320;
- tmp342 = tmp320 - tmp319;
- tmp92 = tmp88 + tmp91;
- {
- fftw_real tmp115;
- fftw_real tmp118;
- fftw_real tmp221;
- fftw_real tmp222;
- ASSERT_ALIGNED_DOUBLE;
- tmp115 = tmp113 + tmp114;
- tmp118 = tmp116 - tmp117;
- tmp119 = (K382683432 * tmp115) + (K923879532 * tmp118);
- tmp184 = (K923879532 * tmp115) - (K382683432 * tmp118);
- tmp221 = tmp114 - tmp113;
- tmp222 = tmp116 + tmp117;
- tmp223 = (K923879532 * tmp221) + (K382683432 * tmp222);
- tmp244 = (K382683432 * tmp221) - (K923879532 * tmp222);
- }
- }
- {
- fftw_real tmp34;
- fftw_real tmp122;
- fftw_real tmp142;
- fftw_real tmp279;
- fftw_real tmp37;
- fftw_real tmp139;
- fftw_real tmp125;
- fftw_real tmp280;
- fftw_real tmp41;
- fftw_real tmp127;
- fftw_real tmp130;
- fftw_real tmp282;
- fftw_real tmp44;
- fftw_real tmp132;
- fftw_real tmp135;
- fftw_real tmp283;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp33;
- fftw_real tmp140;
- fftw_real tmp141;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(input[istride]);
- tmp33 = c_re(input[17 * istride]);
- tmp34 = tmp32 + tmp33;
- tmp122 = tmp32 - tmp33;
- tmp140 = c_im(input[istride]);
- tmp141 = c_im(input[17 * istride]);
- tmp142 = tmp140 - tmp141;
- tmp279 = tmp140 + tmp141;
- }
- {
- fftw_real tmp35;
- fftw_real tmp36;
- fftw_real tmp123;
- fftw_real tmp124;
- ASSERT_ALIGNED_DOUBLE;
- tmp35 = c_re(input[9 * istride]);
- tmp36 = c_re(input[25 * istride]);
- tmp37 = tmp35 + tmp36;
- tmp139 = tmp35 - tmp36;
- tmp123 = c_im(input[9 * istride]);
- tmp124 = c_im(input[25 * istride]);
- tmp125 = tmp123 - tmp124;
- tmp280 = tmp123 + tmp124;
- }
- {
- fftw_real tmp39;
- fftw_real tmp40;
- fftw_real tmp128;
- fftw_real tmp129;
- ASSERT_ALIGNED_DOUBLE;
- tmp39 = c_re(input[5 * istride]);
- tmp40 = c_re(input[21 * istride]);
- tmp41 = tmp39 + tmp40;
- tmp127 = tmp39 - tmp40;
- tmp128 = c_im(input[5 * istride]);
- tmp129 = c_im(input[21 * istride]);
- tmp130 = tmp128 - tmp129;
- tmp282 = tmp128 + tmp129;
- }
- {
- fftw_real tmp42;
- fftw_real tmp43;
- fftw_real tmp133;
- fftw_real tmp134;
- ASSERT_ALIGNED_DOUBLE;
- tmp42 = c_re(input[29 * istride]);
- tmp43 = c_re(input[13 * istride]);
- tmp44 = tmp42 + tmp43;
- tmp132 = tmp42 - tmp43;
- tmp133 = c_im(input[29 * istride]);
- tmp134 = c_im(input[13 * istride]);
- tmp135 = tmp133 - tmp134;
- tmp283 = tmp133 + tmp134;
- }
- {
- fftw_real tmp327;
- fftw_real tmp328;
- fftw_real tmp324;
- fftw_real tmp325;
- ASSERT_ALIGNED_DOUBLE;
- tmp126 = tmp122 - tmp125;
- tmp229 = tmp122 + tmp125;
- tmp38 = tmp34 + tmp37;
- tmp45 = tmp41 + tmp44;
- tmp278 = tmp38 - tmp45;
- tmp327 = tmp34 - tmp37;
- tmp328 = tmp283 - tmp282;
- tmp329 = tmp327 - tmp328;
- tmp357 = tmp327 + tmp328;
- tmp281 = tmp279 + tmp280;
- tmp284 = tmp282 + tmp283;
- tmp285 = tmp281 - tmp284;
- tmp143 = tmp139 + tmp142;
- tmp226 = tmp142 - tmp139;
- tmp324 = tmp279 - tmp280;
- tmp325 = tmp41 - tmp44;
- tmp326 = tmp324 - tmp325;
- tmp356 = tmp325 + tmp324;
- {
- fftw_real tmp131;
- fftw_real tmp136;
- fftw_real tmp144;
- fftw_real tmp145;
- ASSERT_ALIGNED_DOUBLE;
- tmp131 = tmp127 - tmp130;
- tmp136 = tmp132 + tmp135;
- tmp137 = K707106781 * (tmp131 + tmp136);
- tmp227 = K707106781 * (tmp131 - tmp136);
- tmp144 = tmp127 + tmp130;
- tmp145 = tmp135 - tmp132;
- tmp146 = K707106781 * (tmp144 + tmp145);
- tmp230 = K707106781 * (tmp145 - tmp144);
- }
- }
- }
- {
- fftw_real tmp277;
- fftw_real tmp301;
- fftw_real tmp304;
- fftw_real tmp306;
- fftw_real tmp296;
- fftw_real tmp300;
- fftw_real tmp299;
- fftw_real tmp305;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp275;
- fftw_real tmp276;
- fftw_real tmp302;
- fftw_real tmp303;
- ASSERT_ALIGNED_DOUBLE;
- tmp275 = tmp70 - tmp77;
- tmp276 = tmp22 - tmp29;
- tmp277 = tmp275 - tmp276;
- tmp301 = tmp276 + tmp275;
- tmp302 = tmp278 + tmp285;
- tmp303 = tmp294 - tmp287;
- tmp304 = K707106781 * (tmp302 + tmp303);
- tmp306 = K707106781 * (tmp303 - tmp302);
- }
- {
- fftw_real tmp286;
- fftw_real tmp295;
- fftw_real tmp297;
- fftw_real tmp298;
- ASSERT_ALIGNED_DOUBLE;
- tmp286 = tmp278 - tmp285;
- tmp295 = tmp287 + tmp294;
- tmp296 = K707106781 * (tmp286 - tmp295);
- tmp300 = K707106781 * (tmp286 + tmp295);
- tmp297 = tmp7 - tmp14;
- tmp298 = tmp92 - tmp85;
- tmp299 = tmp297 + tmp298;
- tmp305 = tmp297 - tmp298;
- }
- c_im(output[28 * ostride]) = tmp277 - tmp296;
- c_im(output[12 * ostride]) = tmp277 + tmp296;
- c_re(output[20 * ostride]) = tmp299 - tmp300;
- c_re(output[4 * ostride]) = tmp299 + tmp300;
- c_im(output[20 * ostride]) = tmp301 - tmp304;
- c_im(output[4 * ostride]) = tmp301 + tmp304;
- c_re(output[28 * ostride]) = tmp305 - tmp306;
- c_re(output[12 * ostride]) = tmp305 + tmp306;
- }
- {
- fftw_real tmp31;
- fftw_real tmp311;
- fftw_real tmp310;
- fftw_real tmp312;
- fftw_real tmp62;
- fftw_real tmp63;
- fftw_real tmp94;
- fftw_real tmp307;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp15;
- fftw_real tmp30;
- fftw_real tmp308;
- fftw_real tmp309;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = tmp7 + tmp14;
- tmp30 = tmp22 + tmp29;
- tmp31 = tmp15 + tmp30;
- tmp311 = tmp15 - tmp30;
- tmp308 = tmp281 + tmp284;
- tmp309 = tmp290 + tmp293;
- tmp310 = tmp308 + tmp309;
- tmp312 = tmp309 - tmp308;
- }
- {
- fftw_real tmp46;
- fftw_real tmp61;
- fftw_real tmp78;
- fftw_real tmp93;
- ASSERT_ALIGNED_DOUBLE;
- tmp46 = tmp38 + tmp45;
- tmp61 = tmp53 + tmp60;
- tmp62 = tmp46 + tmp61;
- tmp63 = tmp46 - tmp61;
- tmp78 = tmp70 + tmp77;
- tmp93 = tmp85 + tmp92;
- tmp94 = tmp78 - tmp93;
- tmp307 = tmp78 + tmp93;
- }
- c_re(output[16 * ostride]) = tmp31 - tmp62;
- c_re(output[0]) = tmp31 + tmp62;
- c_im(output[8 * ostride]) = tmp63 + tmp94;
- c_im(output[24 * ostride]) = tmp94 - tmp63;
- c_im(output[16 * ostride]) = tmp307 - tmp310;
- c_im(output[0]) = tmp307 + tmp310;
- c_re(output[24 * ostride]) = tmp311 - tmp312;
- c_re(output[8 * ostride]) = tmp311 + tmp312;
- }
- {
- fftw_real tmp121;
- fftw_real tmp189;
- fftw_real tmp187;
- fftw_real tmp193;
- fftw_real tmp148;
- fftw_real tmp190;
- fftw_real tmp175;
- fftw_real tmp191;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp105;
- fftw_real tmp120;
- fftw_real tmp183;
- fftw_real tmp186;
- ASSERT_ALIGNED_DOUBLE;
- tmp105 = tmp97 - tmp104;
- tmp120 = tmp112 - tmp119;
- tmp121 = tmp105 - tmp120;
- tmp189 = tmp105 + tmp120;
- tmp183 = tmp179 - tmp182;
- tmp186 = tmp184 - tmp185;
- tmp187 = tmp183 + tmp186;
- tmp193 = tmp183 - tmp186;
- }
- {
- fftw_real tmp138;
- fftw_real tmp147;
- fftw_real tmp165;
- fftw_real tmp174;
- ASSERT_ALIGNED_DOUBLE;
- tmp138 = tmp126 - tmp137;
- tmp147 = tmp143 - tmp146;
- tmp148 = (K555570233 * tmp138) - (K831469612 * tmp147);
- tmp190 = (K831469612 * tmp138) + (K555570233 * tmp147);
- tmp165 = tmp153 - tmp164;
- tmp174 = tmp170 - tmp173;
- tmp175 = (K555570233 * tmp165) + (K831469612 * tmp174);
- tmp191 = (K555570233 * tmp174) - (K831469612 * tmp165);
- }
- {
- fftw_real tmp176;
- fftw_real tmp188;
- fftw_real tmp192;
- fftw_real tmp194;
- ASSERT_ALIGNED_DOUBLE;
- tmp176 = tmp148 - tmp175;
- c_im(output[29 * ostride]) = tmp121 - tmp176;
- c_im(output[13 * ostride]) = tmp121 + tmp176;
- tmp188 = tmp148 + tmp175;
- c_re(output[21 * ostride]) = tmp187 - tmp188;
- c_re(output[5 * ostride]) = tmp187 + tmp188;
- tmp192 = tmp190 + tmp191;
- c_im(output[21 * ostride]) = tmp189 - tmp192;
- c_im(output[5 * ostride]) = tmp189 + tmp192;
- tmp194 = tmp191 - tmp190;
- c_re(output[29 * ostride]) = tmp193 - tmp194;
- c_re(output[13 * ostride]) = tmp193 + tmp194;
- }
- }
- {
- fftw_real tmp197;
- fftw_real tmp209;
- fftw_real tmp207;
- fftw_real tmp213;
- fftw_real tmp200;
- fftw_real tmp210;
- fftw_real tmp203;
- fftw_real tmp211;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp195;
- fftw_real tmp196;
- fftw_real tmp205;
- fftw_real tmp206;
- ASSERT_ALIGNED_DOUBLE;
- tmp195 = tmp97 + tmp104;
- tmp196 = tmp185 + tmp184;
- tmp197 = tmp195 - tmp196;
- tmp209 = tmp195 + tmp196;
- tmp205 = tmp179 + tmp182;
- tmp206 = tmp112 + tmp119;
- tmp207 = tmp205 + tmp206;
- tmp213 = tmp205 - tmp206;
- }
- {
- fftw_real tmp198;
- fftw_real tmp199;
- fftw_real tmp201;
- fftw_real tmp202;
- ASSERT_ALIGNED_DOUBLE;
- tmp198 = tmp126 + tmp137;
- tmp199 = tmp143 + tmp146;
- tmp200 = (K980785280 * tmp198) - (K195090322 * tmp199);
- tmp210 = (K195090322 * tmp198) + (K980785280 * tmp199);
- tmp201 = tmp153 + tmp164;
- tmp202 = tmp170 + tmp173;
- tmp203 = (K980785280 * tmp201) + (K195090322 * tmp202);
- tmp211 = (K980785280 * tmp202) - (K195090322 * tmp201);
- }
- {
- fftw_real tmp204;
- fftw_real tmp208;
- fftw_real tmp212;
- fftw_real tmp214;
- ASSERT_ALIGNED_DOUBLE;
- tmp204 = tmp200 - tmp203;
- c_im(output[25 * ostride]) = tmp197 - tmp204;
- c_im(output[9 * ostride]) = tmp197 + tmp204;
- tmp208 = tmp200 + tmp203;
- c_re(output[17 * ostride]) = tmp207 - tmp208;
- c_re(output[ostride]) = tmp207 + tmp208;
- tmp212 = tmp210 + tmp211;
- c_im(output[17 * ostride]) = tmp209 - tmp212;
- c_im(output[ostride]) = tmp209 + tmp212;
- tmp214 = tmp211 - tmp210;
- c_re(output[25 * ostride]) = tmp213 - tmp214;
- c_re(output[9 * ostride]) = tmp213 + tmp214;
- }
- }
- {
- fftw_real tmp323;
- fftw_real tmp347;
- fftw_real tmp350;
- fftw_real tmp352;
- fftw_real tmp338;
- fftw_real tmp346;
- fftw_real tmp345;
- fftw_real tmp351;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp315;
- fftw_real tmp322;
- fftw_real tmp348;
- fftw_real tmp349;
- ASSERT_ALIGNED_DOUBLE;
- tmp315 = tmp313 - tmp314;
- tmp322 = K707106781 * (tmp318 - tmp321);
- tmp323 = tmp315 + tmp322;
- tmp347 = tmp315 - tmp322;
- tmp348 = (K382683432 * tmp329) - (K923879532 * tmp326);
- tmp349 = (K923879532 * tmp333) + (K382683432 * tmp336);
- tmp350 = tmp348 - tmp349;
- tmp352 = tmp348 + tmp349;
- }
- {
- fftw_real tmp330;
- fftw_real tmp337;
- fftw_real tmp341;
- fftw_real tmp344;
- ASSERT_ALIGNED_DOUBLE;
- tmp330 = (K382683432 * tmp326) + (K923879532 * tmp329);
- tmp337 = (K382683432 * tmp333) - (K923879532 * tmp336);
- tmp338 = tmp330 + tmp337;
- tmp346 = tmp337 - tmp330;
- tmp341 = tmp339 - tmp340;
- tmp344 = K707106781 * (tmp342 - tmp343);
- tmp345 = tmp341 - tmp344;
- tmp351 = tmp341 + tmp344;
- }
- c_im(output[22 * ostride]) = tmp323 - tmp338;
- c_im(output[6 * ostride]) = tmp323 + tmp338;
- c_re(output[30 * ostride]) = tmp345 - tmp346;
- c_re(output[14 * ostride]) = tmp345 + tmp346;
- c_im(output[30 * ostride]) = tmp347 - tmp350;
- c_im(output[14 * ostride]) = tmp347 + tmp350;
- c_re(output[22 * ostride]) = tmp351 - tmp352;
- c_re(output[6 * ostride]) = tmp351 + tmp352;
- }
- {
- fftw_real tmp355;
- fftw_real tmp367;
- fftw_real tmp370;
- fftw_real tmp372;
- fftw_real tmp362;
- fftw_real tmp366;
- fftw_real tmp365;
- fftw_real tmp371;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp353;
- fftw_real tmp354;
- fftw_real tmp368;
- fftw_real tmp369;
- ASSERT_ALIGNED_DOUBLE;
- tmp353 = tmp314 + tmp313;
- tmp354 = K707106781 * (tmp343 + tmp342);
- tmp355 = tmp353 + tmp354;
- tmp367 = tmp353 - tmp354;
- tmp368 = (K923879532 * tmp357) - (K382683432 * tmp356);
- tmp369 = (K382683432 * tmp359) + (K923879532 * tmp360);
- tmp370 = tmp368 - tmp369;
- tmp372 = tmp368 + tmp369;
- }
- {
- fftw_real tmp358;
- fftw_real tmp361;
- fftw_real tmp363;
- fftw_real tmp364;
- ASSERT_ALIGNED_DOUBLE;
- tmp358 = (K923879532 * tmp356) + (K382683432 * tmp357);
- tmp361 = (K923879532 * tmp359) - (K382683432 * tmp360);
- tmp362 = tmp358 + tmp361;
- tmp366 = tmp361 - tmp358;
- tmp363 = tmp339 + tmp340;
- tmp364 = K707106781 * (tmp318 + tmp321);
- tmp365 = tmp363 - tmp364;
- tmp371 = tmp363 + tmp364;
- }
- c_im(output[18 * ostride]) = tmp355 - tmp362;
- c_im(output[2 * ostride]) = tmp355 + tmp362;
- c_re(output[26 * ostride]) = tmp365 - tmp366;
- c_re(output[10 * ostride]) = tmp365 + tmp366;
- c_im(output[26 * ostride]) = tmp367 - tmp370;
- c_im(output[10 * ostride]) = tmp367 + tmp370;
- c_re(output[18 * ostride]) = tmp371 - tmp372;
- c_re(output[2 * ostride]) = tmp371 + tmp372;
- }
- {
- fftw_real tmp225;
- fftw_real tmp249;
- fftw_real tmp247;
- fftw_real tmp253;
- fftw_real tmp232;
- fftw_real tmp250;
- fftw_real tmp239;
- fftw_real tmp251;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp217;
- fftw_real tmp224;
- fftw_real tmp243;
- fftw_real tmp246;
- ASSERT_ALIGNED_DOUBLE;
- tmp217 = tmp215 - tmp216;
- tmp224 = tmp220 - tmp223;
- tmp225 = tmp217 + tmp224;
- tmp249 = tmp217 - tmp224;
- tmp243 = tmp241 - tmp242;
- tmp246 = tmp244 - tmp245;
- tmp247 = tmp243 - tmp246;
- tmp253 = tmp243 + tmp246;
- }
- {
- fftw_real tmp228;
- fftw_real tmp231;
- fftw_real tmp235;
- fftw_real tmp238;
- ASSERT_ALIGNED_DOUBLE;
- tmp228 = tmp226 - tmp227;
- tmp231 = tmp229 - tmp230;
- tmp232 = (K195090322 * tmp228) + (K980785280 * tmp231);
- tmp250 = (K195090322 * tmp231) - (K980785280 * tmp228);
- tmp235 = tmp233 - tmp234;
- tmp238 = tmp236 - tmp237;
- tmp239 = (K195090322 * tmp235) - (K980785280 * tmp238);
- tmp251 = (K980785280 * tmp235) + (K195090322 * tmp238);
- }
- {
- fftw_real tmp240;
- fftw_real tmp248;
- fftw_real tmp252;
- fftw_real tmp254;
- ASSERT_ALIGNED_DOUBLE;
- tmp240 = tmp232 + tmp239;
- c_im(output[23 * ostride]) = tmp225 - tmp240;
- c_im(output[7 * ostride]) = tmp225 + tmp240;
- tmp248 = tmp239 - tmp232;
- c_re(output[31 * ostride]) = tmp247 - tmp248;
- c_re(output[15 * ostride]) = tmp247 + tmp248;
- tmp252 = tmp250 - tmp251;
- c_im(output[31 * ostride]) = tmp249 - tmp252;
- c_im(output[15 * ostride]) = tmp249 + tmp252;
- tmp254 = tmp250 + tmp251;
- c_re(output[23 * ostride]) = tmp253 - tmp254;
- c_re(output[7 * ostride]) = tmp253 + tmp254;
- }
- }
- {
- fftw_real tmp257;
- fftw_real tmp269;
- fftw_real tmp267;
- fftw_real tmp273;
- fftw_real tmp260;
- fftw_real tmp270;
- fftw_real tmp263;
- fftw_real tmp271;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp255;
- fftw_real tmp256;
- fftw_real tmp265;
- fftw_real tmp266;
- ASSERT_ALIGNED_DOUBLE;
- tmp255 = tmp215 + tmp216;
- tmp256 = tmp245 + tmp244;
- tmp257 = tmp255 + tmp256;
- tmp269 = tmp255 - tmp256;
- tmp265 = tmp241 + tmp242;
- tmp266 = tmp220 + tmp223;
- tmp267 = tmp265 - tmp266;
- tmp273 = tmp265 + tmp266;
- }
- {
- fftw_real tmp258;
- fftw_real tmp259;
- fftw_real tmp261;
- fftw_real tmp262;
- ASSERT_ALIGNED_DOUBLE;
- tmp258 = tmp226 + tmp227;
- tmp259 = tmp229 + tmp230;
- tmp260 = (K831469612 * tmp258) + (K555570233 * tmp259);
- tmp270 = (K831469612 * tmp259) - (K555570233 * tmp258);
- tmp261 = tmp233 + tmp234;
- tmp262 = tmp236 + tmp237;
- tmp263 = (K831469612 * tmp261) - (K555570233 * tmp262);
- tmp271 = (K555570233 * tmp261) + (K831469612 * tmp262);
- }
- {
- fftw_real tmp264;
- fftw_real tmp268;
- fftw_real tmp272;
- fftw_real tmp274;
- ASSERT_ALIGNED_DOUBLE;
- tmp264 = tmp260 + tmp263;
- c_im(output[19 * ostride]) = tmp257 - tmp264;
- c_im(output[3 * ostride]) = tmp257 + tmp264;
- tmp268 = tmp263 - tmp260;
- c_re(output[27 * ostride]) = tmp267 - tmp268;
- c_re(output[11 * ostride]) = tmp267 + tmp268;
- tmp272 = tmp270 - tmp271;
- c_im(output[27 * ostride]) = tmp269 - tmp272;
- c_im(output[11 * ostride]) = tmp269 + tmp272;
- tmp274 = tmp270 + tmp271;
- c_re(output[19 * ostride]) = tmp273 - tmp274;
- c_re(output[3 * ostride]) = tmp273 + tmp274;
- }
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_32_desc =
-{
- "fftwi_no_twiddle_32",
- (void (*)()) fftwi_no_twiddle_32,
- 32,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 716,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_4.c b/src/sndobj/rfftw/fni_4.c
deleted file mode 100644
index 778ea5b..0000000
--- a/src/sndobj/rfftw/fni_4.c
+++ /dev/null
@@ -1,102 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:03 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 4 */
-
-/*
- * This function contains 16 FP additions, 0 FP multiplications,
- * (or, 16 additions, 0 multiplications, 0 fused multiply/add),
- * 12 stack variables, and 16 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: fni_4.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fni_4.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fni_4.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- */
-
-void fftwi_no_twiddle_4(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp11;
- fftw_real tmp10;
- fftw_real tmp15;
- fftw_real tmp6;
- fftw_real tmp7;
- fftw_real tmp14;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp8;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[2 * istride]);
- tmp3 = tmp1 + tmp2;
- tmp11 = tmp1 - tmp2;
- tmp8 = c_im(input[0]);
- tmp9 = c_im(input[2 * istride]);
- tmp10 = tmp8 - tmp9;
- tmp15 = tmp8 + tmp9;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp12;
- fftw_real tmp13;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[istride]);
- tmp5 = c_re(input[3 * istride]);
- tmp6 = tmp4 + tmp5;
- tmp7 = tmp4 - tmp5;
- tmp12 = c_im(input[istride]);
- tmp13 = c_im(input[3 * istride]);
- tmp14 = tmp12 - tmp13;
- tmp16 = tmp12 + tmp13;
- }
- c_re(output[2 * ostride]) = tmp3 - tmp6;
- c_re(output[0]) = tmp3 + tmp6;
- c_im(output[ostride]) = tmp7 + tmp10;
- c_im(output[3 * ostride]) = tmp10 - tmp7;
- c_re(output[ostride]) = tmp11 - tmp14;
- c_re(output[3 * ostride]) = tmp11 + tmp14;
- c_im(output[2 * ostride]) = tmp15 - tmp16;
- c_im(output[0]) = tmp15 + tmp16;
-}
-
-fftw_codelet_desc fftwi_no_twiddle_4_desc =
-{
- "fftwi_no_twiddle_4",
- (void (*)()) fftwi_no_twiddle_4,
- 4,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 100,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_5.c b/src/sndobj/rfftw/fni_5.c
deleted file mode 100644
index adcad0c..0000000
--- a/src/sndobj/rfftw/fni_5.c
+++ /dev/null
@@ -1,146 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:04 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 5 */
-
-/*
- * This function contains 32 FP additions, 12 FP multiplications,
- * (or, 26 additions, 6 multiplications, 6 fused multiply/add),
- * 16 stack variables, and 20 memory accesses
- */
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-
-/*
- * Generator Id's :
- * $Id: fni_5.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fni_5.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: fni_5.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftwi_no_twiddle_5(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp27;
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp21;
- fftw_real tmp22;
- fftw_real tmp14;
- fftw_real tmp28;
- fftw_real tmp26;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp27 = c_im(input[0]);
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp6;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = c_re(input[istride]);
- tmp3 = c_re(input[4 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp5 = c_re(input[2 * istride]);
- tmp6 = c_re(input[3 * istride]);
- tmp7 = tmp5 + tmp6;
- tmp8 = tmp4 + tmp7;
- tmp10 = K559016994 * (tmp4 - tmp7);
- tmp21 = tmp2 - tmp3;
- tmp22 = tmp5 - tmp6;
- }
- {
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp24;
- fftw_real tmp15;
- fftw_real tmp16;
- fftw_real tmp25;
- ASSERT_ALIGNED_DOUBLE;
- tmp12 = c_im(input[istride]);
- tmp13 = c_im(input[4 * istride]);
- tmp24 = tmp12 + tmp13;
- tmp15 = c_im(input[2 * istride]);
- tmp16 = c_im(input[3 * istride]);
- tmp25 = tmp15 + tmp16;
- tmp14 = tmp12 - tmp13;
- tmp28 = tmp24 + tmp25;
- tmp26 = K559016994 * (tmp24 - tmp25);
- tmp17 = tmp15 - tmp16;
- }
- c_re(output[0]) = tmp1 + tmp8;
- {
- fftw_real tmp18;
- fftw_real tmp20;
- fftw_real tmp11;
- fftw_real tmp19;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp18 = (K587785252 * tmp14) - (K951056516 * tmp17);
- tmp20 = (K951056516 * tmp14) + (K587785252 * tmp17);
- tmp9 = tmp1 - (K250000000 * tmp8);
- tmp11 = tmp9 - tmp10;
- tmp19 = tmp10 + tmp9;
- c_re(output[2 * ostride]) = tmp11 - tmp18;
- c_re(output[3 * ostride]) = tmp11 + tmp18;
- c_re(output[ostride]) = tmp19 - tmp20;
- c_re(output[4 * ostride]) = tmp19 + tmp20;
- }
- c_im(output[0]) = tmp27 + tmp28;
- {
- fftw_real tmp23;
- fftw_real tmp31;
- fftw_real tmp30;
- fftw_real tmp32;
- fftw_real tmp29;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = (K951056516 * tmp21) + (K587785252 * tmp22);
- tmp31 = (K587785252 * tmp21) - (K951056516 * tmp22);
- tmp29 = tmp27 - (K250000000 * tmp28);
- tmp30 = tmp26 + tmp29;
- tmp32 = tmp29 - tmp26;
- c_im(output[ostride]) = tmp23 + tmp30;
- c_im(output[4 * ostride]) = tmp30 - tmp23;
- c_im(output[2 * ostride]) = tmp31 + tmp32;
- c_im(output[3 * ostride]) = tmp32 - tmp31;
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_5_desc =
-{
- "fftwi_no_twiddle_5",
- (void (*)()) fftwi_no_twiddle_5,
- 5,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 122,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_6.c b/src/sndobj/rfftw/fni_6.c
deleted file mode 100644
index 1e01cae..0000000
--- a/src/sndobj/rfftw/fni_6.c
+++ /dev/null
@@ -1,157 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:04 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 6 */
-
-/*
- * This function contains 36 FP additions, 8 FP multiplications,
- * (or, 32 additions, 4 multiplications, 4 fused multiply/add),
- * 20 stack variables, and 24 memory accesses
- */
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fni_6.c,v 1.1.1.1 2006/05/12 15:15:00 veplaini Exp $
- * $Id: fni_6.c,v 1.1.1.1 2006/05/12 15:15:00 veplaini Exp $
- * $Id: fni_6.c,v 1.1.1.1 2006/05/12 15:15:00 veplaini Exp $
- */
-
-void fftwi_no_twiddle_6(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp11;
- fftw_real tmp26;
- fftw_real tmp29;
- fftw_real tmp6;
- fftw_real tmp12;
- fftw_real tmp9;
- fftw_real tmp13;
- fftw_real tmp10;
- fftw_real tmp14;
- fftw_real tmp18;
- fftw_real tmp31;
- fftw_real tmp21;
- fftw_real tmp30;
- fftw_real tmp27;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp24;
- fftw_real tmp25;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[3 * istride]);
- tmp3 = tmp1 - tmp2;
- tmp11 = tmp1 + tmp2;
- tmp24 = c_im(input[0]);
- tmp25 = c_im(input[3 * istride]);
- tmp26 = tmp24 - tmp25;
- tmp29 = tmp24 + tmp25;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp7;
- fftw_real tmp8;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[2 * istride]);
- tmp5 = c_re(input[5 * istride]);
- tmp6 = tmp4 - tmp5;
- tmp12 = tmp4 + tmp5;
- tmp7 = c_re(input[4 * istride]);
- tmp8 = c_re(input[istride]);
- tmp9 = tmp7 - tmp8;
- tmp13 = tmp7 + tmp8;
- }
- tmp10 = tmp6 + tmp9;
- tmp14 = tmp12 + tmp13;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_im(input[4 * istride]);
- tmp17 = c_im(input[istride]);
- tmp18 = tmp16 - tmp17;
- tmp31 = tmp16 + tmp17;
- tmp19 = c_im(input[2 * istride]);
- tmp20 = c_im(input[5 * istride]);
- tmp21 = tmp19 - tmp20;
- tmp30 = tmp19 + tmp20;
- }
- tmp27 = tmp21 + tmp18;
- tmp32 = tmp30 + tmp31;
- {
- fftw_real tmp15;
- fftw_real tmp22;
- fftw_real tmp35;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- c_re(output[3 * ostride]) = tmp3 + tmp10;
- tmp15 = tmp3 - (K500000000 * tmp10);
- tmp22 = K866025403 * (tmp18 - tmp21);
- c_re(output[5 * ostride]) = tmp15 - tmp22;
- c_re(output[ostride]) = tmp15 + tmp22;
- c_re(output[0]) = tmp11 + tmp14;
- tmp35 = tmp11 - (K500000000 * tmp14);
- tmp36 = K866025403 * (tmp31 - tmp30);
- c_re(output[2 * ostride]) = tmp35 - tmp36;
- c_re(output[4 * ostride]) = tmp35 + tmp36;
- }
- {
- fftw_real tmp23;
- fftw_real tmp28;
- fftw_real tmp33;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- c_im(output[3 * ostride]) = tmp26 + tmp27;
- tmp23 = K866025403 * (tmp6 - tmp9);
- tmp28 = tmp26 - (K500000000 * tmp27);
- c_im(output[ostride]) = tmp23 + tmp28;
- c_im(output[5 * ostride]) = tmp28 - tmp23;
- c_im(output[0]) = tmp29 + tmp32;
- tmp33 = tmp29 - (K500000000 * tmp32);
- tmp34 = K866025403 * (tmp12 - tmp13);
- c_im(output[2 * ostride]) = tmp33 - tmp34;
- c_im(output[4 * ostride]) = tmp34 + tmp33;
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_6_desc =
-{
- "fftwi_no_twiddle_6",
- (void (*)()) fftwi_no_twiddle_6,
- 6,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 144,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_64.c b/src/sndobj/rfftw/fni_64.c
deleted file mode 100644
index 2dd3376..0000000
--- a/src/sndobj/rfftw/fni_64.c
+++ /dev/null
@@ -1,2449 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:17 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 64 */
-
-/*
- * This function contains 912 FP additions, 248 FP multiplications,
- * (or, 808 additions, 144 multiplications, 104 fused multiply/add),
- * 156 stack variables, and 256 memory accesses
- */
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K773010453 = FFTW_KONST(+0.773010453362736960810906609758469800971041293);
-static const fftw_real K634393284 = FFTW_KONST(+0.634393284163645498215171613225493370675687095);
-static const fftw_real K098017140 = FFTW_KONST(+0.098017140329560601994195563888641845861136673);
-static const fftw_real K995184726 = FFTW_KONST(+0.995184726672196886244836953109479921575474869);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K956940335 = FFTW_KONST(+0.956940335732208864935797886980269969482849206);
-static const fftw_real K290284677 = FFTW_KONST(+0.290284677254462367636192375817395274691476278);
-static const fftw_real K471396736 = FFTW_KONST(+0.471396736825997648556387625905254377657460319);
-static const fftw_real K881921264 = FFTW_KONST(+0.881921264348355029712756863660388349508442621);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: fni_64.c,v 1.1.1.1 2006/05/12 15:14:53 veplaini Exp $
- * $Id: fni_64.c,v 1.1.1.1 2006/05/12 15:14:53 veplaini Exp $
- * $Id: fni_64.c,v 1.1.1.1 2006/05/12 15:14:53 veplaini Exp $
- */
-
-void fftwi_no_twiddle_64(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp193;
- fftw_real tmp471;
- fftw_real tmp15;
- fftw_real tmp879;
- fftw_real tmp719;
- fftw_real tmp781;
- fftw_real tmp142;
- fftw_real tmp853;
- fftw_real tmp371;
- fftw_real tmp537;
- fftw_real tmp637;
- fftw_real tmp755;
- fftw_real tmp200;
- fftw_real tmp538;
- fftw_real tmp374;
- fftw_real tmp472;
- fftw_real tmp109;
- fftw_real tmp874;
- fftw_real tmp693;
- fftw_real tmp776;
- fftw_real tmp830;
- fftw_real tmp871;
- fftw_real tmp710;
- fftw_real tmp773;
- fftw_real tmp329;
- fftw_real tmp432;
- fftw_real tmp519;
- fftw_real tmp596;
- fftw_real tmp362;
- fftw_real tmp429;
- fftw_real tmp530;
- fftw_real tmp593;
- fftw_real tmp30;
- fftw_real tmp854;
- fftw_real tmp640;
- fftw_real tmp720;
- fftw_real tmp157;
- fftw_real tmp880;
- fftw_real tmp643;
- fftw_real tmp721;
- fftw_real tmp208;
- fftw_real tmp377;
- fftw_real tmp476;
- fftw_real tmp541;
- fftw_real tmp215;
- fftw_real tmp376;
- fftw_real tmp479;
- fftw_real tmp540;
- fftw_real tmp124;
- fftw_real tmp872;
- fftw_real tmp365;
- fftw_real tmp433;
- fftw_real tmp352;
- fftw_real tmp430;
- fftw_real tmp833;
- fftw_real tmp875;
- fftw_real tmp526;
- fftw_real tmp594;
- fftw_real tmp533;
- fftw_real tmp597;
- fftw_real tmp704;
- fftw_real tmp774;
- fftw_real tmp713;
- fftw_real tmp777;
- fftw_real tmp46;
- fftw_real tmp856;
- fftw_real tmp648;
- fftw_real tmp758;
- fftw_real tmp173;
- fftw_real tmp857;
- fftw_real tmp651;
- fftw_real tmp759;
- fftw_real tmp228;
- fftw_real tmp414;
- fftw_real tmp484;
- fftw_real tmp578;
- fftw_real tmp235;
- fftw_real tmp415;
- fftw_real tmp487;
- fftw_real tmp579;
- fftw_real tmp78;
- fftw_real tmp867;
- fftw_real tmp666;
- fftw_real tmp769;
- fftw_real tmp821;
- fftw_real tmp864;
- fftw_real tmp683;
- fftw_real tmp766;
- fftw_real tmp274;
- fftw_real tmp425;
- fftw_real tmp500;
- fftw_real tmp589;
- fftw_real tmp307;
- fftw_real tmp422;
- fftw_real tmp511;
- fftw_real tmp586;
- fftw_real tmp61;
- fftw_real tmp859;
- fftw_real tmp655;
- fftw_real tmp761;
- fftw_real tmp188;
- fftw_real tmp860;
- fftw_real tmp658;
- fftw_real tmp762;
- fftw_real tmp247;
- fftw_real tmp417;
- fftw_real tmp491;
- fftw_real tmp581;
- fftw_real tmp254;
- fftw_real tmp418;
- fftw_real tmp494;
- fftw_real tmp582;
- fftw_real tmp93;
- fftw_real tmp865;
- fftw_real tmp310;
- fftw_real tmp426;
- fftw_real tmp297;
- fftw_real tmp423;
- fftw_real tmp824;
- fftw_real tmp868;
- fftw_real tmp507;
- fftw_real tmp587;
- fftw_real tmp514;
- fftw_real tmp590;
- fftw_real tmp677;
- fftw_real tmp767;
- fftw_real tmp686;
- fftw_real tmp770;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp369;
- fftw_real tmp130;
- fftw_real tmp192;
- fftw_real tmp6;
- fftw_real tmp191;
- fftw_real tmp133;
- fftw_real tmp370;
- fftw_real tmp10;
- fftw_real tmp194;
- fftw_real tmp137;
- fftw_real tmp195;
- fftw_real tmp13;
- fftw_real tmp198;
- fftw_real tmp140;
- fftw_real tmp197;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp128;
- fftw_real tmp129;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[32 * istride]);
- tmp3 = tmp1 + tmp2;
- tmp369 = tmp1 - tmp2;
- tmp128 = c_im(input[0]);
- tmp129 = c_im(input[32 * istride]);
- tmp130 = tmp128 + tmp129;
- tmp192 = tmp128 - tmp129;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp131;
- fftw_real tmp132;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = c_re(input[16 * istride]);
- tmp5 = c_re(input[48 * istride]);
- tmp6 = tmp4 + tmp5;
- tmp191 = tmp4 - tmp5;
- tmp131 = c_im(input[16 * istride]);
- tmp132 = c_im(input[48 * istride]);
- tmp133 = tmp131 + tmp132;
- tmp370 = tmp131 - tmp132;
- }
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp135;
- fftw_real tmp136;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[8 * istride]);
- tmp9 = c_re(input[40 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp194 = tmp8 - tmp9;
- tmp135 = c_im(input[8 * istride]);
- tmp136 = c_im(input[40 * istride]);
- tmp137 = tmp135 + tmp136;
- tmp195 = tmp135 - tmp136;
- }
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp138;
- fftw_real tmp139;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[56 * istride]);
- tmp12 = c_re(input[24 * istride]);
- tmp13 = tmp11 + tmp12;
- tmp198 = tmp11 - tmp12;
- tmp138 = c_im(input[56 * istride]);
- tmp139 = c_im(input[24 * istride]);
- tmp140 = tmp138 + tmp139;
- tmp197 = tmp138 - tmp139;
- }
- {
- fftw_real tmp7;
- fftw_real tmp14;
- fftw_real tmp635;
- fftw_real tmp636;
- ASSERT_ALIGNED_DOUBLE;
- tmp193 = tmp191 + tmp192;
- tmp471 = tmp192 - tmp191;
- tmp7 = tmp3 + tmp6;
- tmp14 = tmp10 + tmp13;
- tmp15 = tmp7 + tmp14;
- tmp879 = tmp7 - tmp14;
- {
- fftw_real tmp717;
- fftw_real tmp718;
- fftw_real tmp134;
- fftw_real tmp141;
- ASSERT_ALIGNED_DOUBLE;
- tmp717 = tmp3 - tmp6;
- tmp718 = tmp140 - tmp137;
- tmp719 = tmp717 + tmp718;
- tmp781 = tmp717 - tmp718;
- tmp134 = tmp130 + tmp133;
- tmp141 = tmp137 + tmp140;
- tmp142 = tmp134 + tmp141;
- tmp853 = tmp134 - tmp141;
- }
- tmp371 = tmp369 - tmp370;
- tmp537 = tmp369 + tmp370;
- tmp635 = tmp10 - tmp13;
- tmp636 = tmp130 - tmp133;
- tmp637 = tmp635 + tmp636;
- tmp755 = tmp636 - tmp635;
- {
- fftw_real tmp196;
- fftw_real tmp199;
- fftw_real tmp372;
- fftw_real tmp373;
- ASSERT_ALIGNED_DOUBLE;
- tmp196 = tmp194 + tmp195;
- tmp199 = tmp197 - tmp198;
- tmp200 = K707106781 * (tmp196 + tmp199);
- tmp538 = K707106781 * (tmp199 - tmp196);
- tmp372 = tmp194 - tmp195;
- tmp373 = tmp198 + tmp197;
- tmp374 = K707106781 * (tmp372 + tmp373);
- tmp472 = K707106781 * (tmp372 - tmp373);
- }
- }
- }
- {
- fftw_real tmp97;
- fftw_real tmp313;
- fftw_real tmp357;
- fftw_real tmp707;
- fftw_real tmp100;
- fftw_real tmp354;
- fftw_real tmp316;
- fftw_real tmp708;
- fftw_real tmp107;
- fftw_real tmp690;
- fftw_real tmp327;
- fftw_real tmp360;
- fftw_real tmp104;
- fftw_real tmp691;
- fftw_real tmp322;
- fftw_real tmp359;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp95;
- fftw_real tmp96;
- fftw_real tmp314;
- fftw_real tmp315;
- ASSERT_ALIGNED_DOUBLE;
- tmp95 = c_re(input[63 * istride]);
- tmp96 = c_re(input[31 * istride]);
- tmp97 = tmp95 + tmp96;
- tmp313 = tmp95 - tmp96;
- {
- fftw_real tmp355;
- fftw_real tmp356;
- fftw_real tmp98;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- tmp355 = c_im(input[63 * istride]);
- tmp356 = c_im(input[31 * istride]);
- tmp357 = tmp355 - tmp356;
- tmp707 = tmp355 + tmp356;
- tmp98 = c_re(input[15 * istride]);
- tmp99 = c_re(input[47 * istride]);
- tmp100 = tmp98 + tmp99;
- tmp354 = tmp98 - tmp99;
- }
- tmp314 = c_im(input[15 * istride]);
- tmp315 = c_im(input[47 * istride]);
- tmp316 = tmp314 - tmp315;
- tmp708 = tmp314 + tmp315;
- {
- fftw_real tmp105;
- fftw_real tmp106;
- fftw_real tmp323;
- fftw_real tmp324;
- fftw_real tmp325;
- fftw_real tmp326;
- ASSERT_ALIGNED_DOUBLE;
- tmp105 = c_re(input[55 * istride]);
- tmp106 = c_re(input[23 * istride]);
- tmp323 = tmp105 - tmp106;
- tmp324 = c_im(input[55 * istride]);
- tmp325 = c_im(input[23 * istride]);
- tmp326 = tmp324 - tmp325;
- tmp107 = tmp105 + tmp106;
- tmp690 = tmp324 + tmp325;
- tmp327 = tmp323 + tmp326;
- tmp360 = tmp326 - tmp323;
- }
- {
- fftw_real tmp102;
- fftw_real tmp103;
- fftw_real tmp318;
- fftw_real tmp319;
- fftw_real tmp320;
- fftw_real tmp321;
- ASSERT_ALIGNED_DOUBLE;
- tmp102 = c_re(input[7 * istride]);
- tmp103 = c_re(input[39 * istride]);
- tmp318 = tmp102 - tmp103;
- tmp319 = c_im(input[7 * istride]);
- tmp320 = c_im(input[39 * istride]);
- tmp321 = tmp319 - tmp320;
- tmp104 = tmp102 + tmp103;
- tmp691 = tmp319 + tmp320;
- tmp322 = tmp318 - tmp321;
- tmp359 = tmp318 + tmp321;
- }
- }
- {
- fftw_real tmp101;
- fftw_real tmp108;
- fftw_real tmp689;
- fftw_real tmp692;
- ASSERT_ALIGNED_DOUBLE;
- tmp101 = tmp97 + tmp100;
- tmp108 = tmp104 + tmp107;
- tmp109 = tmp101 + tmp108;
- tmp874 = tmp101 - tmp108;
- tmp689 = tmp97 - tmp100;
- tmp692 = tmp690 - tmp691;
- tmp693 = tmp689 + tmp692;
- tmp776 = tmp689 - tmp692;
- }
- {
- fftw_real tmp828;
- fftw_real tmp829;
- fftw_real tmp706;
- fftw_real tmp709;
- ASSERT_ALIGNED_DOUBLE;
- tmp828 = tmp707 + tmp708;
- tmp829 = tmp691 + tmp690;
- tmp830 = tmp828 + tmp829;
- tmp871 = tmp828 - tmp829;
- tmp706 = tmp104 - tmp107;
- tmp709 = tmp707 - tmp708;
- tmp710 = tmp706 + tmp709;
- tmp773 = tmp709 - tmp706;
- }
- {
- fftw_real tmp317;
- fftw_real tmp328;
- fftw_real tmp517;
- fftw_real tmp518;
- ASSERT_ALIGNED_DOUBLE;
- tmp317 = tmp313 - tmp316;
- tmp328 = K707106781 * (tmp322 + tmp327);
- tmp329 = tmp317 - tmp328;
- tmp432 = tmp317 + tmp328;
- tmp517 = tmp313 + tmp316;
- tmp518 = K707106781 * (tmp360 - tmp359);
- tmp519 = tmp517 - tmp518;
- tmp596 = tmp517 + tmp518;
- }
- {
- fftw_real tmp358;
- fftw_real tmp361;
- fftw_real tmp528;
- fftw_real tmp529;
- ASSERT_ALIGNED_DOUBLE;
- tmp358 = tmp354 + tmp357;
- tmp361 = K707106781 * (tmp359 + tmp360);
- tmp362 = tmp358 - tmp361;
- tmp429 = tmp358 + tmp361;
- tmp528 = tmp357 - tmp354;
- tmp529 = K707106781 * (tmp322 - tmp327);
- tmp530 = tmp528 - tmp529;
- tmp593 = tmp528 + tmp529;
- }
- }
- {
- fftw_real tmp18;
- fftw_real tmp202;
- fftw_real tmp145;
- fftw_real tmp206;
- fftw_real tmp21;
- fftw_real tmp205;
- fftw_real tmp148;
- fftw_real tmp203;
- fftw_real tmp25;
- fftw_real tmp212;
- fftw_real tmp152;
- fftw_real tmp210;
- fftw_real tmp28;
- fftw_real tmp209;
- fftw_real tmp155;
- fftw_real tmp213;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp143;
- fftw_real tmp144;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_re(input[4 * istride]);
- tmp17 = c_re(input[36 * istride]);
- tmp18 = tmp16 + tmp17;
- tmp202 = tmp16 - tmp17;
- tmp143 = c_im(input[4 * istride]);
- tmp144 = c_im(input[36 * istride]);
- tmp145 = tmp143 + tmp144;
- tmp206 = tmp143 - tmp144;
- }
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp146;
- fftw_real tmp147;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = c_re(input[20 * istride]);
- tmp20 = c_re(input[52 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp205 = tmp19 - tmp20;
- tmp146 = c_im(input[20 * istride]);
- tmp147 = c_im(input[52 * istride]);
- tmp148 = tmp146 + tmp147;
- tmp203 = tmp146 - tmp147;
- }
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp150;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = c_re(input[60 * istride]);
- tmp24 = c_re(input[28 * istride]);
- tmp25 = tmp23 + tmp24;
- tmp212 = tmp23 - tmp24;
- tmp150 = c_im(input[60 * istride]);
- tmp151 = c_im(input[28 * istride]);
- tmp152 = tmp150 + tmp151;
- tmp210 = tmp150 - tmp151;
- }
- {
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp153;
- fftw_real tmp154;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(input[12 * istride]);
- tmp27 = c_re(input[44 * istride]);
- tmp28 = tmp26 + tmp27;
- tmp209 = tmp26 - tmp27;
- tmp153 = c_im(input[12 * istride]);
- tmp154 = c_im(input[44 * istride]);
- tmp155 = tmp153 + tmp154;
- tmp213 = tmp153 - tmp154;
- }
- {
- fftw_real tmp22;
- fftw_real tmp29;
- fftw_real tmp638;
- fftw_real tmp639;
- ASSERT_ALIGNED_DOUBLE;
- tmp22 = tmp18 + tmp21;
- tmp29 = tmp25 + tmp28;
- tmp30 = tmp22 + tmp29;
- tmp854 = tmp22 - tmp29;
- tmp638 = tmp18 - tmp21;
- tmp639 = tmp145 - tmp148;
- tmp640 = tmp638 + tmp639;
- tmp720 = tmp638 - tmp639;
- }
- {
- fftw_real tmp149;
- fftw_real tmp156;
- fftw_real tmp641;
- fftw_real tmp642;
- ASSERT_ALIGNED_DOUBLE;
- tmp149 = tmp145 + tmp148;
- tmp156 = tmp152 + tmp155;
- tmp157 = tmp149 + tmp156;
- tmp880 = tmp156 - tmp149;
- tmp641 = tmp152 - tmp155;
- tmp642 = tmp25 - tmp28;
- tmp643 = tmp641 - tmp642;
- tmp721 = tmp642 + tmp641;
- }
- {
- fftw_real tmp204;
- fftw_real tmp207;
- fftw_real tmp474;
- fftw_real tmp475;
- ASSERT_ALIGNED_DOUBLE;
- tmp204 = tmp202 - tmp203;
- tmp207 = tmp205 + tmp206;
- tmp208 = (K923879532 * tmp204) - (K382683432 * tmp207);
- tmp377 = (K923879532 * tmp207) + (K382683432 * tmp204);
- tmp474 = tmp202 + tmp203;
- tmp475 = tmp206 - tmp205;
- tmp476 = (K382683432 * tmp474) - (K923879532 * tmp475);
- tmp541 = (K382683432 * tmp475) + (K923879532 * tmp474);
- }
- {
- fftw_real tmp211;
- fftw_real tmp214;
- fftw_real tmp477;
- fftw_real tmp478;
- ASSERT_ALIGNED_DOUBLE;
- tmp211 = tmp209 + tmp210;
- tmp214 = tmp212 - tmp213;
- tmp215 = (K382683432 * tmp211) + (K923879532 * tmp214);
- tmp376 = (K923879532 * tmp211) - (K382683432 * tmp214);
- tmp477 = tmp210 - tmp209;
- tmp478 = tmp212 + tmp213;
- tmp479 = (K923879532 * tmp477) + (K382683432 * tmp478);
- tmp540 = (K382683432 * tmp477) - (K923879532 * tmp478);
- }
- }
- {
- fftw_real tmp112;
- fftw_real tmp695;
- fftw_real tmp115;
- fftw_real tmp696;
- fftw_real tmp345;
- fftw_real tmp523;
- fftw_real tmp350;
- fftw_real tmp524;
- fftw_real tmp697;
- fftw_real tmp694;
- fftw_real tmp119;
- fftw_real tmp700;
- fftw_real tmp122;
- fftw_real tmp701;
- fftw_real tmp334;
- fftw_real tmp520;
- fftw_real tmp339;
- fftw_real tmp521;
- fftw_real tmp702;
- fftw_real tmp699;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp346;
- fftw_real tmp344;
- fftw_real tmp341;
- fftw_real tmp349;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp110;
- fftw_real tmp111;
- fftw_real tmp342;
- fftw_real tmp343;
- ASSERT_ALIGNED_DOUBLE;
- tmp110 = c_re(input[3 * istride]);
- tmp111 = c_re(input[35 * istride]);
- tmp112 = tmp110 + tmp111;
- tmp346 = tmp110 - tmp111;
- tmp342 = c_im(input[3 * istride]);
- tmp343 = c_im(input[35 * istride]);
- tmp344 = tmp342 - tmp343;
- tmp695 = tmp342 + tmp343;
- }
- {
- fftw_real tmp113;
- fftw_real tmp114;
- fftw_real tmp347;
- fftw_real tmp348;
- ASSERT_ALIGNED_DOUBLE;
- tmp113 = c_re(input[19 * istride]);
- tmp114 = c_re(input[51 * istride]);
- tmp115 = tmp113 + tmp114;
- tmp341 = tmp113 - tmp114;
- tmp347 = c_im(input[19 * istride]);
- tmp348 = c_im(input[51 * istride]);
- tmp349 = tmp347 - tmp348;
- tmp696 = tmp347 + tmp348;
- }
- tmp345 = tmp341 + tmp344;
- tmp523 = tmp344 - tmp341;
- tmp350 = tmp346 - tmp349;
- tmp524 = tmp346 + tmp349;
- tmp697 = tmp695 - tmp696;
- tmp694 = tmp112 - tmp115;
- }
- {
- fftw_real tmp335;
- fftw_real tmp333;
- fftw_real tmp330;
- fftw_real tmp338;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp117;
- fftw_real tmp118;
- fftw_real tmp331;
- fftw_real tmp332;
- ASSERT_ALIGNED_DOUBLE;
- tmp117 = c_re(input[59 * istride]);
- tmp118 = c_re(input[27 * istride]);
- tmp119 = tmp117 + tmp118;
- tmp335 = tmp117 - tmp118;
- tmp331 = c_im(input[59 * istride]);
- tmp332 = c_im(input[27 * istride]);
- tmp333 = tmp331 - tmp332;
- tmp700 = tmp331 + tmp332;
- }
- {
- fftw_real tmp120;
- fftw_real tmp121;
- fftw_real tmp336;
- fftw_real tmp337;
- ASSERT_ALIGNED_DOUBLE;
- tmp120 = c_re(input[11 * istride]);
- tmp121 = c_re(input[43 * istride]);
- tmp122 = tmp120 + tmp121;
- tmp330 = tmp120 - tmp121;
- tmp336 = c_im(input[11 * istride]);
- tmp337 = c_im(input[43 * istride]);
- tmp338 = tmp336 - tmp337;
- tmp701 = tmp336 + tmp337;
- }
- tmp334 = tmp330 + tmp333;
- tmp520 = tmp333 - tmp330;
- tmp339 = tmp335 - tmp338;
- tmp521 = tmp335 + tmp338;
- tmp702 = tmp700 - tmp701;
- tmp699 = tmp119 - tmp122;
- }
- {
- fftw_real tmp116;
- fftw_real tmp123;
- fftw_real tmp363;
- fftw_real tmp364;
- ASSERT_ALIGNED_DOUBLE;
- tmp116 = tmp112 + tmp115;
- tmp123 = tmp119 + tmp122;
- tmp124 = tmp116 + tmp123;
- tmp872 = tmp116 - tmp123;
- tmp363 = (K923879532 * tmp350) - (K382683432 * tmp345);
- tmp364 = (K382683432 * tmp334) + (K923879532 * tmp339);
- tmp365 = tmp363 - tmp364;
- tmp433 = tmp363 + tmp364;
- }
- {
- fftw_real tmp340;
- fftw_real tmp351;
- fftw_real tmp831;
- fftw_real tmp832;
- ASSERT_ALIGNED_DOUBLE;
- tmp340 = (K923879532 * tmp334) - (K382683432 * tmp339);
- tmp351 = (K923879532 * tmp345) + (K382683432 * tmp350);
- tmp352 = tmp340 - tmp351;
- tmp430 = tmp351 + tmp340;
- tmp831 = tmp695 + tmp696;
- tmp832 = tmp700 + tmp701;
- tmp833 = tmp831 + tmp832;
- tmp875 = tmp832 - tmp831;
- }
- {
- fftw_real tmp522;
- fftw_real tmp525;
- fftw_real tmp531;
- fftw_real tmp532;
- ASSERT_ALIGNED_DOUBLE;
- tmp522 = (K382683432 * tmp520) - (K923879532 * tmp521);
- tmp525 = (K382683432 * tmp523) + (K923879532 * tmp524);
- tmp526 = tmp522 - tmp525;
- tmp594 = tmp525 + tmp522;
- tmp531 = (K382683432 * tmp524) - (K923879532 * tmp523);
- tmp532 = (K923879532 * tmp520) + (K382683432 * tmp521);
- tmp533 = tmp531 - tmp532;
- tmp597 = tmp531 + tmp532;
- }
- {
- fftw_real tmp698;
- fftw_real tmp703;
- fftw_real tmp711;
- fftw_real tmp712;
- ASSERT_ALIGNED_DOUBLE;
- tmp698 = tmp694 - tmp697;
- tmp703 = tmp699 + tmp702;
- tmp704 = K707106781 * (tmp698 + tmp703);
- tmp774 = K707106781 * (tmp698 - tmp703);
- tmp711 = tmp694 + tmp697;
- tmp712 = tmp702 - tmp699;
- tmp713 = K707106781 * (tmp711 + tmp712);
- tmp777 = K707106781 * (tmp712 - tmp711);
- }
- }
- {
- fftw_real tmp34;
- fftw_real tmp218;
- fftw_real tmp161;
- fftw_real tmp230;
- fftw_real tmp37;
- fftw_real tmp229;
- fftw_real tmp164;
- fftw_real tmp219;
- fftw_real tmp44;
- fftw_real tmp233;
- fftw_real tmp226;
- fftw_real tmp171;
- fftw_real tmp41;
- fftw_real tmp232;
- fftw_real tmp223;
- fftw_real tmp168;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp33;
- fftw_real tmp162;
- fftw_real tmp163;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(input[2 * istride]);
- tmp33 = c_re(input[34 * istride]);
- tmp34 = tmp32 + tmp33;
- tmp218 = tmp32 - tmp33;
- {
- fftw_real tmp159;
- fftw_real tmp160;
- fftw_real tmp35;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp159 = c_im(input[2 * istride]);
- tmp160 = c_im(input[34 * istride]);
- tmp161 = tmp159 + tmp160;
- tmp230 = tmp159 - tmp160;
- tmp35 = c_re(input[18 * istride]);
- tmp36 = c_re(input[50 * istride]);
- tmp37 = tmp35 + tmp36;
- tmp229 = tmp35 - tmp36;
- }
- tmp162 = c_im(input[18 * istride]);
- tmp163 = c_im(input[50 * istride]);
- tmp164 = tmp162 + tmp163;
- tmp219 = tmp162 - tmp163;
- {
- fftw_real tmp42;
- fftw_real tmp43;
- fftw_real tmp224;
- fftw_real tmp169;
- fftw_real tmp170;
- fftw_real tmp225;
- ASSERT_ALIGNED_DOUBLE;
- tmp42 = c_re(input[58 * istride]);
- tmp43 = c_re(input[26 * istride]);
- tmp224 = tmp42 - tmp43;
- tmp169 = c_im(input[58 * istride]);
- tmp170 = c_im(input[26 * istride]);
- tmp225 = tmp169 - tmp170;
- tmp44 = tmp42 + tmp43;
- tmp233 = tmp225 - tmp224;
- tmp226 = tmp224 + tmp225;
- tmp171 = tmp169 + tmp170;
- }
- {
- fftw_real tmp39;
- fftw_real tmp40;
- fftw_real tmp221;
- fftw_real tmp166;
- fftw_real tmp167;
- fftw_real tmp222;
- ASSERT_ALIGNED_DOUBLE;
- tmp39 = c_re(input[10 * istride]);
- tmp40 = c_re(input[42 * istride]);
- tmp221 = tmp39 - tmp40;
- tmp166 = c_im(input[10 * istride]);
- tmp167 = c_im(input[42 * istride]);
- tmp222 = tmp166 - tmp167;
- tmp41 = tmp39 + tmp40;
- tmp232 = tmp221 + tmp222;
- tmp223 = tmp221 - tmp222;
- tmp168 = tmp166 + tmp167;
- }
- }
- {
- fftw_real tmp38;
- fftw_real tmp45;
- fftw_real tmp646;
- fftw_real tmp647;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = tmp34 + tmp37;
- tmp45 = tmp41 + tmp44;
- tmp46 = tmp38 + tmp45;
- tmp856 = tmp38 - tmp45;
- tmp646 = tmp34 - tmp37;
- tmp647 = tmp171 - tmp168;
- tmp648 = tmp646 + tmp647;
- tmp758 = tmp646 - tmp647;
- }
- {
- fftw_real tmp165;
- fftw_real tmp172;
- fftw_real tmp649;
- fftw_real tmp650;
- ASSERT_ALIGNED_DOUBLE;
- tmp165 = tmp161 + tmp164;
- tmp172 = tmp168 + tmp171;
- tmp173 = tmp165 + tmp172;
- tmp857 = tmp165 - tmp172;
- tmp649 = tmp41 - tmp44;
- tmp650 = tmp161 - tmp164;
- tmp651 = tmp649 + tmp650;
- tmp759 = tmp650 - tmp649;
- }
- {
- fftw_real tmp220;
- fftw_real tmp227;
- fftw_real tmp482;
- fftw_real tmp483;
- ASSERT_ALIGNED_DOUBLE;
- tmp220 = tmp218 - tmp219;
- tmp227 = K707106781 * (tmp223 + tmp226);
- tmp228 = tmp220 - tmp227;
- tmp414 = tmp220 + tmp227;
- tmp482 = tmp218 + tmp219;
- tmp483 = K707106781 * (tmp233 - tmp232);
- tmp484 = tmp482 - tmp483;
- tmp578 = tmp482 + tmp483;
- }
- {
- fftw_real tmp231;
- fftw_real tmp234;
- fftw_real tmp485;
- fftw_real tmp486;
- ASSERT_ALIGNED_DOUBLE;
- tmp231 = tmp229 + tmp230;
- tmp234 = K707106781 * (tmp232 + tmp233);
- tmp235 = tmp231 - tmp234;
- tmp415 = tmp231 + tmp234;
- tmp485 = tmp230 - tmp229;
- tmp486 = K707106781 * (tmp223 - tmp226);
- tmp487 = tmp485 - tmp486;
- tmp579 = tmp485 + tmp486;
- }
- }
- {
- fftw_real tmp66;
- fftw_real tmp258;
- fftw_real tmp302;
- fftw_real tmp680;
- fftw_real tmp69;
- fftw_real tmp299;
- fftw_real tmp261;
- fftw_real tmp681;
- fftw_real tmp76;
- fftw_real tmp663;
- fftw_real tmp272;
- fftw_real tmp305;
- fftw_real tmp73;
- fftw_real tmp664;
- fftw_real tmp267;
- fftw_real tmp304;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp64;
- fftw_real tmp65;
- fftw_real tmp259;
- fftw_real tmp260;
- ASSERT_ALIGNED_DOUBLE;
- tmp64 = c_re(input[istride]);
- tmp65 = c_re(input[33 * istride]);
- tmp66 = tmp64 + tmp65;
- tmp258 = tmp64 - tmp65;
- {
- fftw_real tmp300;
- fftw_real tmp301;
- fftw_real tmp67;
- fftw_real tmp68;
- ASSERT_ALIGNED_DOUBLE;
- tmp300 = c_im(input[istride]);
- tmp301 = c_im(input[33 * istride]);
- tmp302 = tmp300 - tmp301;
- tmp680 = tmp300 + tmp301;
- tmp67 = c_re(input[17 * istride]);
- tmp68 = c_re(input[49 * istride]);
- tmp69 = tmp67 + tmp68;
- tmp299 = tmp67 - tmp68;
- }
- tmp259 = c_im(input[17 * istride]);
- tmp260 = c_im(input[49 * istride]);
- tmp261 = tmp259 - tmp260;
- tmp681 = tmp259 + tmp260;
- {
- fftw_real tmp74;
- fftw_real tmp75;
- fftw_real tmp268;
- fftw_real tmp269;
- fftw_real tmp270;
- fftw_real tmp271;
- ASSERT_ALIGNED_DOUBLE;
- tmp74 = c_re(input[57 * istride]);
- tmp75 = c_re(input[25 * istride]);
- tmp268 = tmp74 - tmp75;
- tmp269 = c_im(input[57 * istride]);
- tmp270 = c_im(input[25 * istride]);
- tmp271 = tmp269 - tmp270;
- tmp76 = tmp74 + tmp75;
- tmp663 = tmp269 + tmp270;
- tmp272 = tmp268 + tmp271;
- tmp305 = tmp271 - tmp268;
- }
- {
- fftw_real tmp71;
- fftw_real tmp72;
- fftw_real tmp263;
- fftw_real tmp264;
- fftw_real tmp265;
- fftw_real tmp266;
- ASSERT_ALIGNED_DOUBLE;
- tmp71 = c_re(input[9 * istride]);
- tmp72 = c_re(input[41 * istride]);
- tmp263 = tmp71 - tmp72;
- tmp264 = c_im(input[9 * istride]);
- tmp265 = c_im(input[41 * istride]);
- tmp266 = tmp264 - tmp265;
- tmp73 = tmp71 + tmp72;
- tmp664 = tmp264 + tmp265;
- tmp267 = tmp263 - tmp266;
- tmp304 = tmp263 + tmp266;
- }
- }
- {
- fftw_real tmp70;
- fftw_real tmp77;
- fftw_real tmp662;
- fftw_real tmp665;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = tmp66 + tmp69;
- tmp77 = tmp73 + tmp76;
- tmp78 = tmp70 + tmp77;
- tmp867 = tmp70 - tmp77;
- tmp662 = tmp66 - tmp69;
- tmp665 = tmp663 - tmp664;
- tmp666 = tmp662 + tmp665;
- tmp769 = tmp662 - tmp665;
- }
- {
- fftw_real tmp819;
- fftw_real tmp820;
- fftw_real tmp679;
- fftw_real tmp682;
- ASSERT_ALIGNED_DOUBLE;
- tmp819 = tmp680 + tmp681;
- tmp820 = tmp664 + tmp663;
- tmp821 = tmp819 + tmp820;
- tmp864 = tmp819 - tmp820;
- tmp679 = tmp73 - tmp76;
- tmp682 = tmp680 - tmp681;
- tmp683 = tmp679 + tmp682;
- tmp766 = tmp682 - tmp679;
- }
- {
- fftw_real tmp262;
- fftw_real tmp273;
- fftw_real tmp498;
- fftw_real tmp499;
- ASSERT_ALIGNED_DOUBLE;
- tmp262 = tmp258 - tmp261;
- tmp273 = K707106781 * (tmp267 + tmp272);
- tmp274 = tmp262 - tmp273;
- tmp425 = tmp262 + tmp273;
- tmp498 = tmp258 + tmp261;
- tmp499 = K707106781 * (tmp305 - tmp304);
- tmp500 = tmp498 - tmp499;
- tmp589 = tmp498 + tmp499;
- }
- {
- fftw_real tmp303;
- fftw_real tmp306;
- fftw_real tmp509;
- fftw_real tmp510;
- ASSERT_ALIGNED_DOUBLE;
- tmp303 = tmp299 + tmp302;
- tmp306 = K707106781 * (tmp304 + tmp305);
- tmp307 = tmp303 - tmp306;
- tmp422 = tmp303 + tmp306;
- tmp509 = tmp302 - tmp299;
- tmp510 = K707106781 * (tmp267 - tmp272);
- tmp511 = tmp509 - tmp510;
- tmp586 = tmp509 + tmp510;
- }
- }
- {
- fftw_real tmp49;
- fftw_real tmp237;
- fftw_real tmp176;
- fftw_real tmp249;
- fftw_real tmp52;
- fftw_real tmp248;
- fftw_real tmp179;
- fftw_real tmp238;
- fftw_real tmp59;
- fftw_real tmp252;
- fftw_real tmp245;
- fftw_real tmp186;
- fftw_real tmp56;
- fftw_real tmp251;
- fftw_real tmp242;
- fftw_real tmp183;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp47;
- fftw_real tmp48;
- fftw_real tmp177;
- fftw_real tmp178;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = c_re(input[62 * istride]);
- tmp48 = c_re(input[30 * istride]);
- tmp49 = tmp47 + tmp48;
- tmp237 = tmp47 - tmp48;
- {
- fftw_real tmp174;
- fftw_real tmp175;
- fftw_real tmp50;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp174 = c_im(input[62 * istride]);
- tmp175 = c_im(input[30 * istride]);
- tmp176 = tmp174 + tmp175;
- tmp249 = tmp174 - tmp175;
- tmp50 = c_re(input[14 * istride]);
- tmp51 = c_re(input[46 * istride]);
- tmp52 = tmp50 + tmp51;
- tmp248 = tmp50 - tmp51;
- }
- tmp177 = c_im(input[14 * istride]);
- tmp178 = c_im(input[46 * istride]);
- tmp179 = tmp177 + tmp178;
- tmp238 = tmp177 - tmp178;
- {
- fftw_real tmp57;
- fftw_real tmp58;
- fftw_real tmp243;
- fftw_real tmp184;
- fftw_real tmp185;
- fftw_real tmp244;
- ASSERT_ALIGNED_DOUBLE;
- tmp57 = c_re(input[54 * istride]);
- tmp58 = c_re(input[22 * istride]);
- tmp243 = tmp57 - tmp58;
- tmp184 = c_im(input[54 * istride]);
- tmp185 = c_im(input[22 * istride]);
- tmp244 = tmp184 - tmp185;
- tmp59 = tmp57 + tmp58;
- tmp252 = tmp244 - tmp243;
- tmp245 = tmp243 + tmp244;
- tmp186 = tmp184 + tmp185;
- }
- {
- fftw_real tmp54;
- fftw_real tmp55;
- fftw_real tmp240;
- fftw_real tmp181;
- fftw_real tmp182;
- fftw_real tmp241;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = c_re(input[6 * istride]);
- tmp55 = c_re(input[38 * istride]);
- tmp240 = tmp54 - tmp55;
- tmp181 = c_im(input[6 * istride]);
- tmp182 = c_im(input[38 * istride]);
- tmp241 = tmp181 - tmp182;
- tmp56 = tmp54 + tmp55;
- tmp251 = tmp240 + tmp241;
- tmp242 = tmp240 - tmp241;
- tmp183 = tmp181 + tmp182;
- }
- }
- {
- fftw_real tmp53;
- fftw_real tmp60;
- fftw_real tmp653;
- fftw_real tmp654;
- ASSERT_ALIGNED_DOUBLE;
- tmp53 = tmp49 + tmp52;
- tmp60 = tmp56 + tmp59;
- tmp61 = tmp53 + tmp60;
- tmp859 = tmp53 - tmp60;
- tmp653 = tmp56 - tmp59;
- tmp654 = tmp176 - tmp179;
- tmp655 = tmp653 + tmp654;
- tmp761 = tmp654 - tmp653;
- }
- {
- fftw_real tmp180;
- fftw_real tmp187;
- fftw_real tmp656;
- fftw_real tmp657;
- ASSERT_ALIGNED_DOUBLE;
- tmp180 = tmp176 + tmp179;
- tmp187 = tmp183 + tmp186;
- tmp188 = tmp180 + tmp187;
- tmp860 = tmp180 - tmp187;
- tmp656 = tmp49 - tmp52;
- tmp657 = tmp186 - tmp183;
- tmp658 = tmp656 + tmp657;
- tmp762 = tmp656 - tmp657;
- }
- {
- fftw_real tmp239;
- fftw_real tmp246;
- fftw_real tmp489;
- fftw_real tmp490;
- ASSERT_ALIGNED_DOUBLE;
- tmp239 = tmp237 - tmp238;
- tmp246 = K707106781 * (tmp242 + tmp245);
- tmp247 = tmp239 - tmp246;
- tmp417 = tmp239 + tmp246;
- tmp489 = tmp249 - tmp248;
- tmp490 = K707106781 * (tmp242 - tmp245);
- tmp491 = tmp489 - tmp490;
- tmp581 = tmp489 + tmp490;
- }
- {
- fftw_real tmp250;
- fftw_real tmp253;
- fftw_real tmp492;
- fftw_real tmp493;
- ASSERT_ALIGNED_DOUBLE;
- tmp250 = tmp248 + tmp249;
- tmp253 = K707106781 * (tmp251 + tmp252);
- tmp254 = tmp250 - tmp253;
- tmp418 = tmp250 + tmp253;
- tmp492 = tmp237 + tmp238;
- tmp493 = K707106781 * (tmp252 - tmp251);
- tmp494 = tmp492 - tmp493;
- tmp582 = tmp492 + tmp493;
- }
- }
- {
- fftw_real tmp81;
- fftw_real tmp668;
- fftw_real tmp84;
- fftw_real tmp669;
- fftw_real tmp290;
- fftw_real tmp504;
- fftw_real tmp295;
- fftw_real tmp505;
- fftw_real tmp670;
- fftw_real tmp667;
- fftw_real tmp88;
- fftw_real tmp673;
- fftw_real tmp91;
- fftw_real tmp674;
- fftw_real tmp279;
- fftw_real tmp501;
- fftw_real tmp284;
- fftw_real tmp502;
- fftw_real tmp675;
- fftw_real tmp672;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp291;
- fftw_real tmp289;
- fftw_real tmp286;
- fftw_real tmp294;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp79;
- fftw_real tmp80;
- fftw_real tmp287;
- fftw_real tmp288;
- ASSERT_ALIGNED_DOUBLE;
- tmp79 = c_re(input[5 * istride]);
- tmp80 = c_re(input[37 * istride]);
- tmp81 = tmp79 + tmp80;
- tmp291 = tmp79 - tmp80;
- tmp287 = c_im(input[5 * istride]);
- tmp288 = c_im(input[37 * istride]);
- tmp289 = tmp287 - tmp288;
- tmp668 = tmp287 + tmp288;
- }
- {
- fftw_real tmp82;
- fftw_real tmp83;
- fftw_real tmp292;
- fftw_real tmp293;
- ASSERT_ALIGNED_DOUBLE;
- tmp82 = c_re(input[21 * istride]);
- tmp83 = c_re(input[53 * istride]);
- tmp84 = tmp82 + tmp83;
- tmp286 = tmp82 - tmp83;
- tmp292 = c_im(input[21 * istride]);
- tmp293 = c_im(input[53 * istride]);
- tmp294 = tmp292 - tmp293;
- tmp669 = tmp292 + tmp293;
- }
- tmp290 = tmp286 + tmp289;
- tmp504 = tmp289 - tmp286;
- tmp295 = tmp291 - tmp294;
- tmp505 = tmp291 + tmp294;
- tmp670 = tmp668 - tmp669;
- tmp667 = tmp81 - tmp84;
- }
- {
- fftw_real tmp280;
- fftw_real tmp278;
- fftw_real tmp275;
- fftw_real tmp283;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp86;
- fftw_real tmp87;
- fftw_real tmp276;
- fftw_real tmp277;
- ASSERT_ALIGNED_DOUBLE;
- tmp86 = c_re(input[61 * istride]);
- tmp87 = c_re(input[29 * istride]);
- tmp88 = tmp86 + tmp87;
- tmp280 = tmp86 - tmp87;
- tmp276 = c_im(input[61 * istride]);
- tmp277 = c_im(input[29 * istride]);
- tmp278 = tmp276 - tmp277;
- tmp673 = tmp276 + tmp277;
- }
- {
- fftw_real tmp89;
- fftw_real tmp90;
- fftw_real tmp281;
- fftw_real tmp282;
- ASSERT_ALIGNED_DOUBLE;
- tmp89 = c_re(input[13 * istride]);
- tmp90 = c_re(input[45 * istride]);
- tmp91 = tmp89 + tmp90;
- tmp275 = tmp89 - tmp90;
- tmp281 = c_im(input[13 * istride]);
- tmp282 = c_im(input[45 * istride]);
- tmp283 = tmp281 - tmp282;
- tmp674 = tmp281 + tmp282;
- }
- tmp279 = tmp275 + tmp278;
- tmp501 = tmp278 - tmp275;
- tmp284 = tmp280 - tmp283;
- tmp502 = tmp280 + tmp283;
- tmp675 = tmp673 - tmp674;
- tmp672 = tmp88 - tmp91;
- }
- {
- fftw_real tmp85;
- fftw_real tmp92;
- fftw_real tmp308;
- fftw_real tmp309;
- ASSERT_ALIGNED_DOUBLE;
- tmp85 = tmp81 + tmp84;
- tmp92 = tmp88 + tmp91;
- tmp93 = tmp85 + tmp92;
- tmp865 = tmp85 - tmp92;
- tmp308 = (K923879532 * tmp295) - (K382683432 * tmp290);
- tmp309 = (K382683432 * tmp279) + (K923879532 * tmp284);
- tmp310 = tmp308 - tmp309;
- tmp426 = tmp308 + tmp309;
- }
- {
- fftw_real tmp285;
- fftw_real tmp296;
- fftw_real tmp822;
- fftw_real tmp823;
- ASSERT_ALIGNED_DOUBLE;
- tmp285 = (K923879532 * tmp279) - (K382683432 * tmp284);
- tmp296 = (K923879532 * tmp290) + (K382683432 * tmp295);
- tmp297 = tmp285 - tmp296;
- tmp423 = tmp296 + tmp285;
- tmp822 = tmp668 + tmp669;
- tmp823 = tmp673 + tmp674;
- tmp824 = tmp822 + tmp823;
- tmp868 = tmp823 - tmp822;
- }
- {
- fftw_real tmp503;
- fftw_real tmp506;
- fftw_real tmp512;
- fftw_real tmp513;
- ASSERT_ALIGNED_DOUBLE;
- tmp503 = (K382683432 * tmp501) - (K923879532 * tmp502);
- tmp506 = (K382683432 * tmp504) + (K923879532 * tmp505);
- tmp507 = tmp503 - tmp506;
- tmp587 = tmp506 + tmp503;
- tmp512 = (K382683432 * tmp505) - (K923879532 * tmp504);
- tmp513 = (K923879532 * tmp501) + (K382683432 * tmp502);
- tmp514 = tmp512 - tmp513;
- tmp590 = tmp512 + tmp513;
- }
- {
- fftw_real tmp671;
- fftw_real tmp676;
- fftw_real tmp684;
- fftw_real tmp685;
- ASSERT_ALIGNED_DOUBLE;
- tmp671 = tmp667 - tmp670;
- tmp676 = tmp672 + tmp675;
- tmp677 = K707106781 * (tmp671 + tmp676);
- tmp767 = K707106781 * (tmp671 - tmp676);
- tmp684 = tmp667 + tmp670;
- tmp685 = tmp675 - tmp672;
- tmp686 = K707106781 * (tmp684 + tmp685);
- tmp770 = K707106781 * (tmp685 - tmp684);
- }
- }
- {
- fftw_real tmp63;
- fftw_real tmp851;
- fftw_real tmp850;
- fftw_real tmp852;
- fftw_real tmp126;
- fftw_real tmp127;
- fftw_real tmp190;
- fftw_real tmp847;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp31;
- fftw_real tmp62;
- fftw_real tmp848;
- fftw_real tmp849;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = tmp15 + tmp30;
- tmp62 = tmp46 + tmp61;
- tmp63 = tmp31 + tmp62;
- tmp851 = tmp31 - tmp62;
- tmp848 = tmp821 + tmp824;
- tmp849 = tmp830 + tmp833;
- tmp850 = tmp848 + tmp849;
- tmp852 = tmp849 - tmp848;
- }
- {
- fftw_real tmp94;
- fftw_real tmp125;
- fftw_real tmp158;
- fftw_real tmp189;
- ASSERT_ALIGNED_DOUBLE;
- tmp94 = tmp78 + tmp93;
- tmp125 = tmp109 + tmp124;
- tmp126 = tmp94 + tmp125;
- tmp127 = tmp94 - tmp125;
- tmp158 = tmp142 + tmp157;
- tmp189 = tmp173 + tmp188;
- tmp190 = tmp158 - tmp189;
- tmp847 = tmp158 + tmp189;
- }
- c_re(output[32 * ostride]) = tmp63 - tmp126;
- c_re(output[0]) = tmp63 + tmp126;
- c_im(output[16 * ostride]) = tmp127 + tmp190;
- c_im(output[48 * ostride]) = tmp190 - tmp127;
- c_im(output[32 * ostride]) = tmp847 - tmp850;
- c_im(output[0]) = tmp847 + tmp850;
- c_re(output[48 * ostride]) = tmp851 - tmp852;
- c_re(output[16 * ostride]) = tmp851 + tmp852;
- }
- {
- fftw_real tmp817;
- fftw_real tmp841;
- fftw_real tmp839;
- fftw_real tmp845;
- fftw_real tmp826;
- fftw_real tmp842;
- fftw_real tmp835;
- fftw_real tmp843;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp815;
- fftw_real tmp816;
- fftw_real tmp837;
- fftw_real tmp838;
- ASSERT_ALIGNED_DOUBLE;
- tmp815 = tmp142 - tmp157;
- tmp816 = tmp46 - tmp61;
- tmp817 = tmp815 - tmp816;
- tmp841 = tmp816 + tmp815;
- tmp837 = tmp15 - tmp30;
- tmp838 = tmp188 - tmp173;
- tmp839 = tmp837 + tmp838;
- tmp845 = tmp837 - tmp838;
- }
- {
- fftw_real tmp818;
- fftw_real tmp825;
- fftw_real tmp827;
- fftw_real tmp834;
- ASSERT_ALIGNED_DOUBLE;
- tmp818 = tmp78 - tmp93;
- tmp825 = tmp821 - tmp824;
- tmp826 = tmp818 - tmp825;
- tmp842 = tmp818 + tmp825;
- tmp827 = tmp109 - tmp124;
- tmp834 = tmp830 - tmp833;
- tmp835 = tmp827 + tmp834;
- tmp843 = tmp834 - tmp827;
- }
- {
- fftw_real tmp836;
- fftw_real tmp840;
- fftw_real tmp844;
- fftw_real tmp846;
- ASSERT_ALIGNED_DOUBLE;
- tmp836 = K707106781 * (tmp826 - tmp835);
- c_im(output[56 * ostride]) = tmp817 - tmp836;
- c_im(output[24 * ostride]) = tmp817 + tmp836;
- tmp840 = K707106781 * (tmp826 + tmp835);
- c_re(output[40 * ostride]) = tmp839 - tmp840;
- c_re(output[8 * ostride]) = tmp839 + tmp840;
- tmp844 = K707106781 * (tmp842 + tmp843);
- c_im(output[40 * ostride]) = tmp841 - tmp844;
- c_im(output[8 * ostride]) = tmp841 + tmp844;
- tmp846 = K707106781 * (tmp843 - tmp842);
- c_re(output[56 * ostride]) = tmp845 - tmp846;
- c_re(output[24 * ostride]) = tmp845 + tmp846;
- }
- }
- {
- fftw_real tmp217;
- fftw_real tmp391;
- fftw_real tmp396;
- fftw_real tmp406;
- fftw_real tmp399;
- fftw_real tmp407;
- fftw_real tmp367;
- fftw_real tmp387;
- fftw_real tmp312;
- fftw_real tmp386;
- fftw_real tmp379;
- fftw_real tmp401;
- fftw_real tmp382;
- fftw_real tmp392;
- fftw_real tmp256;
- fftw_real tmp402;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp201;
- fftw_real tmp216;
- fftw_real tmp394;
- fftw_real tmp395;
- ASSERT_ALIGNED_DOUBLE;
- tmp201 = tmp193 - tmp200;
- tmp216 = tmp208 - tmp215;
- tmp217 = tmp201 - tmp216;
- tmp391 = tmp201 + tmp216;
- tmp394 = tmp274 + tmp297;
- tmp395 = tmp307 + tmp310;
- tmp396 = (K881921264 * tmp394) - (K471396736 * tmp395);
- tmp406 = (K471396736 * tmp394) + (K881921264 * tmp395);
- }
- {
- fftw_real tmp397;
- fftw_real tmp398;
- fftw_real tmp353;
- fftw_real tmp366;
- ASSERT_ALIGNED_DOUBLE;
- tmp397 = tmp329 + tmp352;
- tmp398 = tmp362 + tmp365;
- tmp399 = (K881921264 * tmp397) + (K471396736 * tmp398);
- tmp407 = (K881921264 * tmp398) - (K471396736 * tmp397);
- tmp353 = tmp329 - tmp352;
- tmp366 = tmp362 - tmp365;
- tmp367 = (K290284677 * tmp353) + (K956940335 * tmp366);
- tmp387 = (K290284677 * tmp366) - (K956940335 * tmp353);
- }
- {
- fftw_real tmp298;
- fftw_real tmp311;
- fftw_real tmp375;
- fftw_real tmp378;
- ASSERT_ALIGNED_DOUBLE;
- tmp298 = tmp274 - tmp297;
- tmp311 = tmp307 - tmp310;
- tmp312 = (K290284677 * tmp298) - (K956940335 * tmp311);
- tmp386 = (K956940335 * tmp298) + (K290284677 * tmp311);
- tmp375 = tmp371 - tmp374;
- tmp378 = tmp376 - tmp377;
- tmp379 = tmp375 - tmp378;
- tmp401 = tmp375 + tmp378;
- }
- {
- fftw_real tmp380;
- fftw_real tmp381;
- fftw_real tmp236;
- fftw_real tmp255;
- ASSERT_ALIGNED_DOUBLE;
- tmp380 = (K555570233 * tmp254) - (K831469612 * tmp247);
- tmp381 = (K831469612 * tmp228) + (K555570233 * tmp235);
- tmp382 = tmp380 - tmp381;
- tmp392 = tmp381 + tmp380;
- tmp236 = (K555570233 * tmp228) - (K831469612 * tmp235);
- tmp255 = (K555570233 * tmp247) + (K831469612 * tmp254);
- tmp256 = tmp236 - tmp255;
- tmp402 = tmp236 + tmp255;
- }
- {
- fftw_real tmp257;
- fftw_real tmp368;
- fftw_real tmp383;
- fftw_real tmp384;
- ASSERT_ALIGNED_DOUBLE;
- tmp257 = tmp217 - tmp256;
- tmp368 = tmp312 - tmp367;
- c_im(output[61 * ostride]) = tmp257 - tmp368;
- c_im(output[29 * ostride]) = tmp257 + tmp368;
- tmp383 = tmp379 + tmp382;
- tmp384 = tmp312 + tmp367;
- c_re(output[45 * ostride]) = tmp383 - tmp384;
- c_re(output[13 * ostride]) = tmp383 + tmp384;
- }
- {
- fftw_real tmp389;
- fftw_real tmp390;
- fftw_real tmp385;
- fftw_real tmp388;
- ASSERT_ALIGNED_DOUBLE;
- tmp389 = tmp379 - tmp382;
- tmp390 = tmp387 - tmp386;
- c_re(output[61 * ostride]) = tmp389 - tmp390;
- c_re(output[29 * ostride]) = tmp389 + tmp390;
- tmp385 = tmp217 + tmp256;
- tmp388 = tmp386 + tmp387;
- c_im(output[45 * ostride]) = tmp385 - tmp388;
- c_im(output[13 * ostride]) = tmp385 + tmp388;
- }
- {
- fftw_real tmp393;
- fftw_real tmp400;
- fftw_real tmp403;
- fftw_real tmp404;
- ASSERT_ALIGNED_DOUBLE;
- tmp393 = tmp391 - tmp392;
- tmp400 = tmp396 - tmp399;
- c_im(output[53 * ostride]) = tmp393 - tmp400;
- c_im(output[21 * ostride]) = tmp393 + tmp400;
- tmp403 = tmp401 + tmp402;
- tmp404 = tmp396 + tmp399;
- c_re(output[37 * ostride]) = tmp403 - tmp404;
- c_re(output[5 * ostride]) = tmp403 + tmp404;
- }
- {
- fftw_real tmp409;
- fftw_real tmp410;
- fftw_real tmp405;
- fftw_real tmp408;
- ASSERT_ALIGNED_DOUBLE;
- tmp409 = tmp401 - tmp402;
- tmp410 = tmp407 - tmp406;
- c_re(output[53 * ostride]) = tmp409 - tmp410;
- c_re(output[21 * ostride]) = tmp409 + tmp410;
- tmp405 = tmp391 + tmp392;
- tmp408 = tmp406 + tmp407;
- c_im(output[37 * ostride]) = tmp405 - tmp408;
- c_im(output[5 * ostride]) = tmp405 + tmp408;
- }
- }
- {
- fftw_real tmp413;
- fftw_real tmp451;
- fftw_real tmp456;
- fftw_real tmp466;
- fftw_real tmp459;
- fftw_real tmp467;
- fftw_real tmp435;
- fftw_real tmp447;
- fftw_real tmp428;
- fftw_real tmp446;
- fftw_real tmp439;
- fftw_real tmp461;
- fftw_real tmp442;
- fftw_real tmp452;
- fftw_real tmp420;
- fftw_real tmp462;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp411;
- fftw_real tmp412;
- fftw_real tmp454;
- fftw_real tmp455;
- ASSERT_ALIGNED_DOUBLE;
- tmp411 = tmp193 + tmp200;
- tmp412 = tmp377 + tmp376;
- tmp413 = tmp411 - tmp412;
- tmp451 = tmp411 + tmp412;
- tmp454 = tmp422 + tmp423;
- tmp455 = tmp425 + tmp426;
- tmp456 = (K995184726 * tmp454) + (K098017140 * tmp455);
- tmp466 = (K995184726 * tmp455) - (K098017140 * tmp454);
- }
- {
- fftw_real tmp457;
- fftw_real tmp458;
- fftw_real tmp431;
- fftw_real tmp434;
- ASSERT_ALIGNED_DOUBLE;
- tmp457 = tmp429 + tmp430;
- tmp458 = tmp432 + tmp433;
- tmp459 = (K995184726 * tmp457) - (K098017140 * tmp458);
- tmp467 = (K098017140 * tmp457) + (K995184726 * tmp458);
- tmp431 = tmp429 - tmp430;
- tmp434 = tmp432 - tmp433;
- tmp435 = (K634393284 * tmp431) - (K773010453 * tmp434);
- tmp447 = (K773010453 * tmp431) + (K634393284 * tmp434);
- }
- {
- fftw_real tmp424;
- fftw_real tmp427;
- fftw_real tmp437;
- fftw_real tmp438;
- ASSERT_ALIGNED_DOUBLE;
- tmp424 = tmp422 - tmp423;
- tmp427 = tmp425 - tmp426;
- tmp428 = (K634393284 * tmp424) + (K773010453 * tmp427);
- tmp446 = (K634393284 * tmp427) - (K773010453 * tmp424);
- tmp437 = tmp371 + tmp374;
- tmp438 = tmp208 + tmp215;
- tmp439 = tmp437 - tmp438;
- tmp461 = tmp437 + tmp438;
- }
- {
- fftw_real tmp440;
- fftw_real tmp441;
- fftw_real tmp416;
- fftw_real tmp419;
- ASSERT_ALIGNED_DOUBLE;
- tmp440 = (K980785280 * tmp418) - (K195090322 * tmp417);
- tmp441 = (K195090322 * tmp414) + (K980785280 * tmp415);
- tmp442 = tmp440 - tmp441;
- tmp452 = tmp441 + tmp440;
- tmp416 = (K980785280 * tmp414) - (K195090322 * tmp415);
- tmp419 = (K980785280 * tmp417) + (K195090322 * tmp418);
- tmp420 = tmp416 - tmp419;
- tmp462 = tmp416 + tmp419;
- }
- {
- fftw_real tmp421;
- fftw_real tmp436;
- fftw_real tmp443;
- fftw_real tmp444;
- ASSERT_ALIGNED_DOUBLE;
- tmp421 = tmp413 + tmp420;
- tmp436 = tmp428 + tmp435;
- c_im(output[41 * ostride]) = tmp421 - tmp436;
- c_im(output[9 * ostride]) = tmp421 + tmp436;
- tmp443 = tmp439 - tmp442;
- tmp444 = tmp435 - tmp428;
- c_re(output[57 * ostride]) = tmp443 - tmp444;
- c_re(output[25 * ostride]) = tmp443 + tmp444;
- }
- {
- fftw_real tmp449;
- fftw_real tmp450;
- fftw_real tmp445;
- fftw_real tmp448;
- ASSERT_ALIGNED_DOUBLE;
- tmp449 = tmp439 + tmp442;
- tmp450 = tmp446 + tmp447;
- c_re(output[41 * ostride]) = tmp449 - tmp450;
- c_re(output[9 * ostride]) = tmp449 + tmp450;
- tmp445 = tmp413 - tmp420;
- tmp448 = tmp446 - tmp447;
- c_im(output[57 * ostride]) = tmp445 - tmp448;
- c_im(output[25 * ostride]) = tmp445 + tmp448;
- }
- {
- fftw_real tmp453;
- fftw_real tmp460;
- fftw_real tmp463;
- fftw_real tmp464;
- ASSERT_ALIGNED_DOUBLE;
- tmp453 = tmp451 + tmp452;
- tmp460 = tmp456 + tmp459;
- c_im(output[33 * ostride]) = tmp453 - tmp460;
- c_im(output[ostride]) = tmp453 + tmp460;
- tmp463 = tmp461 - tmp462;
- tmp464 = tmp459 - tmp456;
- c_re(output[49 * ostride]) = tmp463 - tmp464;
- c_re(output[17 * ostride]) = tmp463 + tmp464;
- }
- {
- fftw_real tmp469;
- fftw_real tmp470;
- fftw_real tmp465;
- fftw_real tmp468;
- ASSERT_ALIGNED_DOUBLE;
- tmp469 = tmp461 + tmp462;
- tmp470 = tmp466 + tmp467;
- c_re(output[33 * ostride]) = tmp469 - tmp470;
- c_re(output[ostride]) = tmp469 + tmp470;
- tmp465 = tmp451 - tmp452;
- tmp468 = tmp466 - tmp467;
- c_im(output[49 * ostride]) = tmp465 - tmp468;
- c_im(output[17 * ostride]) = tmp465 + tmp468;
- }
- }
- {
- fftw_real tmp855;
- fftw_real tmp893;
- fftw_real tmp862;
- fftw_real tmp904;
- fftw_real tmp884;
- fftw_real tmp894;
- fftw_real tmp870;
- fftw_real tmp888;
- fftw_real tmp881;
- fftw_real tmp903;
- fftw_real tmp898;
- fftw_real tmp908;
- fftw_real tmp877;
- fftw_real tmp889;
- fftw_real tmp901;
- fftw_real tmp909;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp858;
- fftw_real tmp861;
- fftw_real tmp896;
- fftw_real tmp897;
- ASSERT_ALIGNED_DOUBLE;
- tmp855 = tmp853 - tmp854;
- tmp893 = tmp854 + tmp853;
- tmp858 = tmp856 - tmp857;
- tmp861 = tmp859 + tmp860;
- tmp862 = K707106781 * (tmp858 - tmp861);
- tmp904 = K707106781 * (tmp858 + tmp861);
- {
- fftw_real tmp882;
- fftw_real tmp883;
- fftw_real tmp866;
- fftw_real tmp869;
- ASSERT_ALIGNED_DOUBLE;
- tmp882 = tmp860 - tmp859;
- tmp883 = tmp856 + tmp857;
- tmp884 = K707106781 * (tmp882 - tmp883);
- tmp894 = K707106781 * (tmp883 + tmp882);
- tmp866 = tmp864 - tmp865;
- tmp869 = tmp867 - tmp868;
- tmp870 = (K382683432 * tmp866) + (K923879532 * tmp869);
- tmp888 = (K382683432 * tmp869) - (K923879532 * tmp866);
- }
- tmp881 = tmp879 - tmp880;
- tmp903 = tmp879 + tmp880;
- tmp896 = tmp865 + tmp864;
- tmp897 = tmp867 + tmp868;
- tmp898 = (K923879532 * tmp896) + (K382683432 * tmp897);
- tmp908 = (K923879532 * tmp897) - (K382683432 * tmp896);
- {
- fftw_real tmp873;
- fftw_real tmp876;
- fftw_real tmp899;
- fftw_real tmp900;
- ASSERT_ALIGNED_DOUBLE;
- tmp873 = tmp871 - tmp872;
- tmp876 = tmp874 - tmp875;
- tmp877 = (K382683432 * tmp873) - (K923879532 * tmp876);
- tmp889 = (K923879532 * tmp873) + (K382683432 * tmp876);
- tmp899 = tmp872 + tmp871;
- tmp900 = tmp874 + tmp875;
- tmp901 = (K923879532 * tmp899) - (K382683432 * tmp900);
- tmp909 = (K382683432 * tmp899) + (K923879532 * tmp900);
- }
- }
- {
- fftw_real tmp863;
- fftw_real tmp878;
- fftw_real tmp885;
- fftw_real tmp886;
- ASSERT_ALIGNED_DOUBLE;
- tmp863 = tmp855 + tmp862;
- tmp878 = tmp870 + tmp877;
- c_im(output[44 * ostride]) = tmp863 - tmp878;
- c_im(output[12 * ostride]) = tmp863 + tmp878;
- tmp885 = tmp881 - tmp884;
- tmp886 = tmp877 - tmp870;
- c_re(output[60 * ostride]) = tmp885 - tmp886;
- c_re(output[28 * ostride]) = tmp885 + tmp886;
- }
- {
- fftw_real tmp891;
- fftw_real tmp892;
- fftw_real tmp887;
- fftw_real tmp890;
- ASSERT_ALIGNED_DOUBLE;
- tmp891 = tmp881 + tmp884;
- tmp892 = tmp888 + tmp889;
- c_re(output[44 * ostride]) = tmp891 - tmp892;
- c_re(output[12 * ostride]) = tmp891 + tmp892;
- tmp887 = tmp855 - tmp862;
- tmp890 = tmp888 - tmp889;
- c_im(output[60 * ostride]) = tmp887 - tmp890;
- c_im(output[28 * ostride]) = tmp887 + tmp890;
- }
- {
- fftw_real tmp895;
- fftw_real tmp902;
- fftw_real tmp905;
- fftw_real tmp906;
- ASSERT_ALIGNED_DOUBLE;
- tmp895 = tmp893 + tmp894;
- tmp902 = tmp898 + tmp901;
- c_im(output[36 * ostride]) = tmp895 - tmp902;
- c_im(output[4 * ostride]) = tmp895 + tmp902;
- tmp905 = tmp903 - tmp904;
- tmp906 = tmp901 - tmp898;
- c_re(output[52 * ostride]) = tmp905 - tmp906;
- c_re(output[20 * ostride]) = tmp905 + tmp906;
- }
- {
- fftw_real tmp911;
- fftw_real tmp912;
- fftw_real tmp907;
- fftw_real tmp910;
- ASSERT_ALIGNED_DOUBLE;
- tmp911 = tmp903 + tmp904;
- tmp912 = tmp908 + tmp909;
- c_re(output[36 * ostride]) = tmp911 - tmp912;
- c_re(output[4 * ostride]) = tmp911 + tmp912;
- tmp907 = tmp893 - tmp894;
- tmp910 = tmp908 - tmp909;
- c_im(output[52 * ostride]) = tmp907 - tmp910;
- c_im(output[20 * ostride]) = tmp907 + tmp910;
- }
- }
- {
- fftw_real tmp757;
- fftw_real tmp795;
- fftw_real tmp800;
- fftw_real tmp810;
- fftw_real tmp803;
- fftw_real tmp811;
- fftw_real tmp779;
- fftw_real tmp791;
- fftw_real tmp783;
- fftw_real tmp805;
- fftw_real tmp764;
- fftw_real tmp806;
- fftw_real tmp786;
- fftw_real tmp796;
- fftw_real tmp772;
- fftw_real tmp790;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp756;
- fftw_real tmp798;
- fftw_real tmp799;
- fftw_real tmp782;
- fftw_real tmp760;
- fftw_real tmp763;
- ASSERT_ALIGNED_DOUBLE;
- tmp756 = K707106781 * (tmp720 - tmp721);
- tmp757 = tmp755 - tmp756;
- tmp795 = tmp755 + tmp756;
- tmp798 = tmp766 + tmp767;
- tmp799 = tmp769 + tmp770;
- tmp800 = (K831469612 * tmp798) + (K555570233 * tmp799);
- tmp810 = (K831469612 * tmp799) - (K555570233 * tmp798);
- {
- fftw_real tmp801;
- fftw_real tmp802;
- fftw_real tmp775;
- fftw_real tmp778;
- ASSERT_ALIGNED_DOUBLE;
- tmp801 = tmp773 + tmp774;
- tmp802 = tmp776 + tmp777;
- tmp803 = (K831469612 * tmp801) - (K555570233 * tmp802);
- tmp811 = (K555570233 * tmp801) + (K831469612 * tmp802);
- tmp775 = tmp773 - tmp774;
- tmp778 = tmp776 - tmp777;
- tmp779 = (K195090322 * tmp775) - (K980785280 * tmp778);
- tmp791 = (K980785280 * tmp775) + (K195090322 * tmp778);
- }
- tmp782 = K707106781 * (tmp643 - tmp640);
- tmp783 = tmp781 - tmp782;
- tmp805 = tmp781 + tmp782;
- tmp760 = (K382683432 * tmp758) - (K923879532 * tmp759);
- tmp763 = (K923879532 * tmp761) + (K382683432 * tmp762);
- tmp764 = tmp760 - tmp763;
- tmp806 = tmp760 + tmp763;
- {
- fftw_real tmp784;
- fftw_real tmp785;
- fftw_real tmp768;
- fftw_real tmp771;
- ASSERT_ALIGNED_DOUBLE;
- tmp784 = (K382683432 * tmp761) - (K923879532 * tmp762);
- tmp785 = (K382683432 * tmp759) + (K923879532 * tmp758);
- tmp786 = tmp784 - tmp785;
- tmp796 = tmp785 + tmp784;
- tmp768 = tmp766 - tmp767;
- tmp771 = tmp769 - tmp770;
- tmp772 = (K195090322 * tmp768) + (K980785280 * tmp771);
- tmp790 = (K195090322 * tmp771) - (K980785280 * tmp768);
- }
- }
- {
- fftw_real tmp765;
- fftw_real tmp780;
- fftw_real tmp787;
- fftw_real tmp788;
- ASSERT_ALIGNED_DOUBLE;
- tmp765 = tmp757 + tmp764;
- tmp780 = tmp772 + tmp779;
- c_im(output[46 * ostride]) = tmp765 - tmp780;
- c_im(output[14 * ostride]) = tmp765 + tmp780;
- tmp787 = tmp783 - tmp786;
- tmp788 = tmp779 - tmp772;
- c_re(output[62 * ostride]) = tmp787 - tmp788;
- c_re(output[30 * ostride]) = tmp787 + tmp788;
- }
- {
- fftw_real tmp793;
- fftw_real tmp794;
- fftw_real tmp789;
- fftw_real tmp792;
- ASSERT_ALIGNED_DOUBLE;
- tmp793 = tmp783 + tmp786;
- tmp794 = tmp790 + tmp791;
- c_re(output[46 * ostride]) = tmp793 - tmp794;
- c_re(output[14 * ostride]) = tmp793 + tmp794;
- tmp789 = tmp757 - tmp764;
- tmp792 = tmp790 - tmp791;
- c_im(output[62 * ostride]) = tmp789 - tmp792;
- c_im(output[30 * ostride]) = tmp789 + tmp792;
- }
- {
- fftw_real tmp797;
- fftw_real tmp804;
- fftw_real tmp807;
- fftw_real tmp808;
- ASSERT_ALIGNED_DOUBLE;
- tmp797 = tmp795 + tmp796;
- tmp804 = tmp800 + tmp803;
- c_im(output[38 * ostride]) = tmp797 - tmp804;
- c_im(output[6 * ostride]) = tmp797 + tmp804;
- tmp807 = tmp805 - tmp806;
- tmp808 = tmp803 - tmp800;
- c_re(output[54 * ostride]) = tmp807 - tmp808;
- c_re(output[22 * ostride]) = tmp807 + tmp808;
- }
- {
- fftw_real tmp813;
- fftw_real tmp814;
- fftw_real tmp809;
- fftw_real tmp812;
- ASSERT_ALIGNED_DOUBLE;
- tmp813 = tmp805 + tmp806;
- tmp814 = tmp810 + tmp811;
- c_re(output[38 * ostride]) = tmp813 - tmp814;
- c_re(output[6 * ostride]) = tmp813 + tmp814;
- tmp809 = tmp795 - tmp796;
- tmp812 = tmp810 - tmp811;
- c_im(output[54 * ostride]) = tmp809 - tmp812;
- c_im(output[22 * ostride]) = tmp809 + tmp812;
- }
- }
- {
- fftw_real tmp645;
- fftw_real tmp735;
- fftw_real tmp740;
- fftw_real tmp750;
- fftw_real tmp743;
- fftw_real tmp751;
- fftw_real tmp715;
- fftw_real tmp731;
- fftw_real tmp723;
- fftw_real tmp745;
- fftw_real tmp660;
- fftw_real tmp746;
- fftw_real tmp726;
- fftw_real tmp736;
- fftw_real tmp688;
- fftw_real tmp730;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp644;
- fftw_real tmp738;
- fftw_real tmp739;
- fftw_real tmp722;
- fftw_real tmp652;
- fftw_real tmp659;
- ASSERT_ALIGNED_DOUBLE;
- tmp644 = K707106781 * (tmp640 + tmp643);
- tmp645 = tmp637 - tmp644;
- tmp735 = tmp637 + tmp644;
- tmp738 = tmp666 + tmp677;
- tmp739 = tmp683 + tmp686;
- tmp740 = (K980785280 * tmp738) - (K195090322 * tmp739);
- tmp750 = (K195090322 * tmp738) + (K980785280 * tmp739);
- {
- fftw_real tmp741;
- fftw_real tmp742;
- fftw_real tmp705;
- fftw_real tmp714;
- ASSERT_ALIGNED_DOUBLE;
- tmp741 = tmp693 + tmp704;
- tmp742 = tmp710 + tmp713;
- tmp743 = (K980785280 * tmp741) + (K195090322 * tmp742);
- tmp751 = (K980785280 * tmp742) - (K195090322 * tmp741);
- tmp705 = tmp693 - tmp704;
- tmp714 = tmp710 - tmp713;
- tmp715 = (K555570233 * tmp705) + (K831469612 * tmp714);
- tmp731 = (K555570233 * tmp714) - (K831469612 * tmp705);
- }
- tmp722 = K707106781 * (tmp720 + tmp721);
- tmp723 = tmp719 - tmp722;
- tmp745 = tmp719 + tmp722;
- tmp652 = (K923879532 * tmp648) - (K382683432 * tmp651);
- tmp659 = (K382683432 * tmp655) + (K923879532 * tmp658);
- tmp660 = tmp652 - tmp659;
- tmp746 = tmp652 + tmp659;
- {
- fftw_real tmp724;
- fftw_real tmp725;
- fftw_real tmp678;
- fftw_real tmp687;
- ASSERT_ALIGNED_DOUBLE;
- tmp724 = (K923879532 * tmp655) - (K382683432 * tmp658);
- tmp725 = (K923879532 * tmp651) + (K382683432 * tmp648);
- tmp726 = tmp724 - tmp725;
- tmp736 = tmp725 + tmp724;
- tmp678 = tmp666 - tmp677;
- tmp687 = tmp683 - tmp686;
- tmp688 = (K555570233 * tmp678) - (K831469612 * tmp687);
- tmp730 = (K831469612 * tmp678) + (K555570233 * tmp687);
- }
- }
- {
- fftw_real tmp661;
- fftw_real tmp716;
- fftw_real tmp727;
- fftw_real tmp728;
- ASSERT_ALIGNED_DOUBLE;
- tmp661 = tmp645 - tmp660;
- tmp716 = tmp688 - tmp715;
- c_im(output[58 * ostride]) = tmp661 - tmp716;
- c_im(output[26 * ostride]) = tmp661 + tmp716;
- tmp727 = tmp723 + tmp726;
- tmp728 = tmp688 + tmp715;
- c_re(output[42 * ostride]) = tmp727 - tmp728;
- c_re(output[10 * ostride]) = tmp727 + tmp728;
- }
- {
- fftw_real tmp733;
- fftw_real tmp734;
- fftw_real tmp729;
- fftw_real tmp732;
- ASSERT_ALIGNED_DOUBLE;
- tmp733 = tmp723 - tmp726;
- tmp734 = tmp731 - tmp730;
- c_re(output[58 * ostride]) = tmp733 - tmp734;
- c_re(output[26 * ostride]) = tmp733 + tmp734;
- tmp729 = tmp645 + tmp660;
- tmp732 = tmp730 + tmp731;
- c_im(output[42 * ostride]) = tmp729 - tmp732;
- c_im(output[10 * ostride]) = tmp729 + tmp732;
- }
- {
- fftw_real tmp737;
- fftw_real tmp744;
- fftw_real tmp747;
- fftw_real tmp748;
- ASSERT_ALIGNED_DOUBLE;
- tmp737 = tmp735 - tmp736;
- tmp744 = tmp740 - tmp743;
- c_im(output[50 * ostride]) = tmp737 - tmp744;
- c_im(output[18 * ostride]) = tmp737 + tmp744;
- tmp747 = tmp745 + tmp746;
- tmp748 = tmp740 + tmp743;
- c_re(output[34 * ostride]) = tmp747 - tmp748;
- c_re(output[2 * ostride]) = tmp747 + tmp748;
- }
- {
- fftw_real tmp753;
- fftw_real tmp754;
- fftw_real tmp749;
- fftw_real tmp752;
- ASSERT_ALIGNED_DOUBLE;
- tmp753 = tmp745 - tmp746;
- tmp754 = tmp751 - tmp750;
- c_re(output[50 * ostride]) = tmp753 - tmp754;
- c_re(output[18 * ostride]) = tmp753 + tmp754;
- tmp749 = tmp735 + tmp736;
- tmp752 = tmp750 + tmp751;
- c_im(output[34 * ostride]) = tmp749 - tmp752;
- c_im(output[2 * ostride]) = tmp749 + tmp752;
- }
- }
- {
- fftw_real tmp481;
- fftw_real tmp555;
- fftw_real tmp560;
- fftw_real tmp570;
- fftw_real tmp563;
- fftw_real tmp571;
- fftw_real tmp535;
- fftw_real tmp551;
- fftw_real tmp516;
- fftw_real tmp550;
- fftw_real tmp543;
- fftw_real tmp565;
- fftw_real tmp546;
- fftw_real tmp556;
- fftw_real tmp496;
- fftw_real tmp566;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp473;
- fftw_real tmp480;
- fftw_real tmp558;
- fftw_real tmp559;
- ASSERT_ALIGNED_DOUBLE;
- tmp473 = tmp471 - tmp472;
- tmp480 = tmp476 - tmp479;
- tmp481 = tmp473 - tmp480;
- tmp555 = tmp473 + tmp480;
- tmp558 = tmp500 + tmp507;
- tmp559 = tmp511 + tmp514;
- tmp560 = (K773010453 * tmp558) - (K634393284 * tmp559);
- tmp570 = (K634393284 * tmp558) + (K773010453 * tmp559);
- }
- {
- fftw_real tmp561;
- fftw_real tmp562;
- fftw_real tmp527;
- fftw_real tmp534;
- ASSERT_ALIGNED_DOUBLE;
- tmp561 = tmp519 + tmp526;
- tmp562 = tmp530 + tmp533;
- tmp563 = (K773010453 * tmp561) + (K634393284 * tmp562);
- tmp571 = (K773010453 * tmp562) - (K634393284 * tmp561);
- tmp527 = tmp519 - tmp526;
- tmp534 = tmp530 - tmp533;
- tmp535 = (K098017140 * tmp527) + (K995184726 * tmp534);
- tmp551 = (K098017140 * tmp534) - (K995184726 * tmp527);
- }
- {
- fftw_real tmp508;
- fftw_real tmp515;
- fftw_real tmp539;
- fftw_real tmp542;
- ASSERT_ALIGNED_DOUBLE;
- tmp508 = tmp500 - tmp507;
- tmp515 = tmp511 - tmp514;
- tmp516 = (K098017140 * tmp508) - (K995184726 * tmp515);
- tmp550 = (K995184726 * tmp508) + (K098017140 * tmp515);
- tmp539 = tmp537 - tmp538;
- tmp542 = tmp540 - tmp541;
- tmp543 = tmp539 - tmp542;
- tmp565 = tmp539 + tmp542;
- }
- {
- fftw_real tmp544;
- fftw_real tmp545;
- fftw_real tmp488;
- fftw_real tmp495;
- ASSERT_ALIGNED_DOUBLE;
- tmp544 = (K195090322 * tmp491) - (K980785280 * tmp494);
- tmp545 = (K195090322 * tmp487) + (K980785280 * tmp484);
- tmp546 = tmp544 - tmp545;
- tmp556 = tmp545 + tmp544;
- tmp488 = (K195090322 * tmp484) - (K980785280 * tmp487);
- tmp495 = (K980785280 * tmp491) + (K195090322 * tmp494);
- tmp496 = tmp488 - tmp495;
- tmp566 = tmp488 + tmp495;
- }
- {
- fftw_real tmp497;
- fftw_real tmp536;
- fftw_real tmp547;
- fftw_real tmp548;
- ASSERT_ALIGNED_DOUBLE;
- tmp497 = tmp481 - tmp496;
- tmp536 = tmp516 - tmp535;
- c_im(output[63 * ostride]) = tmp497 - tmp536;
- c_im(output[31 * ostride]) = tmp497 + tmp536;
- tmp547 = tmp543 + tmp546;
- tmp548 = tmp516 + tmp535;
- c_re(output[47 * ostride]) = tmp547 - tmp548;
- c_re(output[15 * ostride]) = tmp547 + tmp548;
- }
- {
- fftw_real tmp553;
- fftw_real tmp554;
- fftw_real tmp549;
- fftw_real tmp552;
- ASSERT_ALIGNED_DOUBLE;
- tmp553 = tmp543 - tmp546;
- tmp554 = tmp551 - tmp550;
- c_re(output[63 * ostride]) = tmp553 - tmp554;
- c_re(output[31 * ostride]) = tmp553 + tmp554;
- tmp549 = tmp481 + tmp496;
- tmp552 = tmp550 + tmp551;
- c_im(output[47 * ostride]) = tmp549 - tmp552;
- c_im(output[15 * ostride]) = tmp549 + tmp552;
- }
- {
- fftw_real tmp557;
- fftw_real tmp564;
- fftw_real tmp567;
- fftw_real tmp568;
- ASSERT_ALIGNED_DOUBLE;
- tmp557 = tmp555 - tmp556;
- tmp564 = tmp560 - tmp563;
- c_im(output[55 * ostride]) = tmp557 - tmp564;
- c_im(output[23 * ostride]) = tmp557 + tmp564;
- tmp567 = tmp565 + tmp566;
- tmp568 = tmp560 + tmp563;
- c_re(output[39 * ostride]) = tmp567 - tmp568;
- c_re(output[7 * ostride]) = tmp567 + tmp568;
- }
- {
- fftw_real tmp573;
- fftw_real tmp574;
- fftw_real tmp569;
- fftw_real tmp572;
- ASSERT_ALIGNED_DOUBLE;
- tmp573 = tmp565 - tmp566;
- tmp574 = tmp571 - tmp570;
- c_re(output[55 * ostride]) = tmp573 - tmp574;
- c_re(output[23 * ostride]) = tmp573 + tmp574;
- tmp569 = tmp555 + tmp556;
- tmp572 = tmp570 + tmp571;
- c_im(output[39 * ostride]) = tmp569 - tmp572;
- c_im(output[7 * ostride]) = tmp569 + tmp572;
- }
- }
- {
- fftw_real tmp577;
- fftw_real tmp615;
- fftw_real tmp620;
- fftw_real tmp630;
- fftw_real tmp623;
- fftw_real tmp631;
- fftw_real tmp599;
- fftw_real tmp611;
- fftw_real tmp592;
- fftw_real tmp610;
- fftw_real tmp603;
- fftw_real tmp625;
- fftw_real tmp606;
- fftw_real tmp616;
- fftw_real tmp584;
- fftw_real tmp626;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp575;
- fftw_real tmp576;
- fftw_real tmp618;
- fftw_real tmp619;
- ASSERT_ALIGNED_DOUBLE;
- tmp575 = tmp471 + tmp472;
- tmp576 = tmp541 + tmp540;
- tmp577 = tmp575 - tmp576;
- tmp615 = tmp575 + tmp576;
- tmp618 = tmp586 + tmp587;
- tmp619 = tmp589 + tmp590;
- tmp620 = (K956940335 * tmp618) + (K290284677 * tmp619);
- tmp630 = (K956940335 * tmp619) - (K290284677 * tmp618);
- }
- {
- fftw_real tmp621;
- fftw_real tmp622;
- fftw_real tmp595;
- fftw_real tmp598;
- ASSERT_ALIGNED_DOUBLE;
- tmp621 = tmp593 + tmp594;
- tmp622 = tmp596 + tmp597;
- tmp623 = (K956940335 * tmp621) - (K290284677 * tmp622);
- tmp631 = (K290284677 * tmp621) + (K956940335 * tmp622);
- tmp595 = tmp593 - tmp594;
- tmp598 = tmp596 - tmp597;
- tmp599 = (K471396736 * tmp595) - (K881921264 * tmp598);
- tmp611 = (K881921264 * tmp595) + (K471396736 * tmp598);
- }
- {
- fftw_real tmp588;
- fftw_real tmp591;
- fftw_real tmp601;
- fftw_real tmp602;
- ASSERT_ALIGNED_DOUBLE;
- tmp588 = tmp586 - tmp587;
- tmp591 = tmp589 - tmp590;
- tmp592 = (K471396736 * tmp588) + (K881921264 * tmp591);
- tmp610 = (K471396736 * tmp591) - (K881921264 * tmp588);
- tmp601 = tmp537 + tmp538;
- tmp602 = tmp476 + tmp479;
- tmp603 = tmp601 - tmp602;
- tmp625 = tmp601 + tmp602;
- }
- {
- fftw_real tmp604;
- fftw_real tmp605;
- fftw_real tmp580;
- fftw_real tmp583;
- ASSERT_ALIGNED_DOUBLE;
- tmp604 = (K831469612 * tmp581) - (K555570233 * tmp582);
- tmp605 = (K831469612 * tmp579) + (K555570233 * tmp578);
- tmp606 = tmp604 - tmp605;
- tmp616 = tmp605 + tmp604;
- tmp580 = (K831469612 * tmp578) - (K555570233 * tmp579);
- tmp583 = (K555570233 * tmp581) + (K831469612 * tmp582);
- tmp584 = tmp580 - tmp583;
- tmp626 = tmp580 + tmp583;
- }
- {
- fftw_real tmp585;
- fftw_real tmp600;
- fftw_real tmp607;
- fftw_real tmp608;
- ASSERT_ALIGNED_DOUBLE;
- tmp585 = tmp577 + tmp584;
- tmp600 = tmp592 + tmp599;
- c_im(output[43 * ostride]) = tmp585 - tmp600;
- c_im(output[11 * ostride]) = tmp585 + tmp600;
- tmp607 = tmp603 - tmp606;
- tmp608 = tmp599 - tmp592;
- c_re(output[59 * ostride]) = tmp607 - tmp608;
- c_re(output[27 * ostride]) = tmp607 + tmp608;
- }
- {
- fftw_real tmp613;
- fftw_real tmp614;
- fftw_real tmp609;
- fftw_real tmp612;
- ASSERT_ALIGNED_DOUBLE;
- tmp613 = tmp603 + tmp606;
- tmp614 = tmp610 + tmp611;
- c_re(output[43 * ostride]) = tmp613 - tmp614;
- c_re(output[11 * ostride]) = tmp613 + tmp614;
- tmp609 = tmp577 - tmp584;
- tmp612 = tmp610 - tmp611;
- c_im(output[59 * ostride]) = tmp609 - tmp612;
- c_im(output[27 * ostride]) = tmp609 + tmp612;
- }
- {
- fftw_real tmp617;
- fftw_real tmp624;
- fftw_real tmp627;
- fftw_real tmp628;
- ASSERT_ALIGNED_DOUBLE;
- tmp617 = tmp615 + tmp616;
- tmp624 = tmp620 + tmp623;
- c_im(output[35 * ostride]) = tmp617 - tmp624;
- c_im(output[3 * ostride]) = tmp617 + tmp624;
- tmp627 = tmp625 - tmp626;
- tmp628 = tmp623 - tmp620;
- c_re(output[51 * ostride]) = tmp627 - tmp628;
- c_re(output[19 * ostride]) = tmp627 + tmp628;
- }
- {
- fftw_real tmp633;
- fftw_real tmp634;
- fftw_real tmp629;
- fftw_real tmp632;
- ASSERT_ALIGNED_DOUBLE;
- tmp633 = tmp625 + tmp626;
- tmp634 = tmp630 + tmp631;
- c_re(output[35 * ostride]) = tmp633 - tmp634;
- c_re(output[3 * ostride]) = tmp633 + tmp634;
- tmp629 = tmp615 - tmp616;
- tmp632 = tmp630 - tmp631;
- c_im(output[51 * ostride]) = tmp629 - tmp632;
- c_im(output[19 * ostride]) = tmp629 + tmp632;
- }
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_64_desc =
-{
- "fftwi_no_twiddle_64",
- (void (*)()) fftwi_no_twiddle_64,
- 64,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 1420,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_7.c b/src/sndobj/rfftw/fni_7.c
deleted file mode 100644
index 32b4a30..0000000
--- a/src/sndobj/rfftw/fni_7.c
+++ /dev/null
@@ -1,170 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:05 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 7 */
-
-/*
- * This function contains 60 FP additions, 36 FP multiplications,
- * (or, 60 additions, 36 multiplications, 0 fused multiply/add),
- * 22 stack variables, and 28 memory accesses
- */
-static const fftw_real K222520933 = FFTW_KONST(+0.222520933956314404288902564496794759466355569);
-static const fftw_real K900968867 = FFTW_KONST(+0.900968867902419126236102319507445051165919162);
-static const fftw_real K623489801 = FFTW_KONST(+0.623489801858733530525004884004239810632274731);
-static const fftw_real K433883739 = FFTW_KONST(+0.433883739117558120475768332848358754609990728);
-static const fftw_real K974927912 = FFTW_KONST(+0.974927912181823607018131682993931217232785801);
-static const fftw_real K781831482 = FFTW_KONST(+0.781831482468029808708444526674057750232334519);
-
-/*
- * Generator Id's :
- * $Id: fni_7.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fni_7.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: fni_7.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- */
-
-void fftwi_no_twiddle_7(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp1;
- fftw_real tmp15;
- fftw_real tmp4;
- fftw_real tmp11;
- fftw_real tmp24;
- fftw_real tmp31;
- fftw_real tmp7;
- fftw_real tmp13;
- fftw_real tmp18;
- fftw_real tmp33;
- fftw_real tmp10;
- fftw_real tmp12;
- fftw_real tmp21;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp15 = c_im(input[0]);
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp22;
- fftw_real tmp23;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = c_re(input[istride]);
- tmp3 = c_re(input[6 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp11 = tmp2 - tmp3;
- tmp22 = c_im(input[istride]);
- tmp23 = c_im(input[6 * istride]);
- tmp24 = tmp22 + tmp23;
- tmp31 = tmp23 - tmp22;
- }
- {
- fftw_real tmp5;
- fftw_real tmp6;
- fftw_real tmp16;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp5 = c_re(input[2 * istride]);
- tmp6 = c_re(input[5 * istride]);
- tmp7 = tmp5 + tmp6;
- tmp13 = tmp5 - tmp6;
- tmp16 = c_im(input[2 * istride]);
- tmp17 = c_im(input[5 * istride]);
- tmp18 = tmp16 + tmp17;
- tmp33 = tmp17 - tmp16;
- }
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[3 * istride]);
- tmp9 = c_re(input[4 * istride]);
- tmp10 = tmp8 + tmp9;
- tmp12 = tmp8 - tmp9;
- tmp19 = c_im(input[3 * istride]);
- tmp20 = c_im(input[4 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp32 = tmp20 - tmp19;
- }
- {
- fftw_real tmp36;
- fftw_real tmp35;
- fftw_real tmp26;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- c_re(output[0]) = tmp1 + tmp4 + tmp7 + tmp10;
- tmp36 = (K781831482 * tmp31) + (K974927912 * tmp33) + (K433883739 * tmp32);
- tmp35 = tmp1 + (K623489801 * tmp4) - (K900968867 * tmp10) - (K222520933 * tmp7);
- c_re(output[6 * ostride]) = tmp35 - tmp36;
- c_re(output[ostride]) = tmp35 + tmp36;
- {
- fftw_real tmp38;
- fftw_real tmp37;
- fftw_real tmp34;
- fftw_real tmp30;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = (K433883739 * tmp31) + (K974927912 * tmp32) - (K781831482 * tmp33);
- tmp37 = tmp1 + (K623489801 * tmp7) - (K222520933 * tmp10) - (K900968867 * tmp4);
- c_re(output[4 * ostride]) = tmp37 - tmp38;
- c_re(output[3 * ostride]) = tmp37 + tmp38;
- tmp34 = (K974927912 * tmp31) - (K781831482 * tmp32) - (K433883739 * tmp33);
- tmp30 = tmp1 + (K623489801 * tmp10) - (K900968867 * tmp7) - (K222520933 * tmp4);
- c_re(output[5 * ostride]) = tmp30 - tmp34;
- c_re(output[2 * ostride]) = tmp30 + tmp34;
- }
- c_im(output[0]) = tmp15 + tmp24 + tmp18 + tmp21;
- tmp26 = (K781831482 * tmp11) + (K974927912 * tmp13) + (K433883739 * tmp12);
- tmp27 = tmp15 + (K623489801 * tmp24) - (K900968867 * tmp21) - (K222520933 * tmp18);
- c_im(output[ostride]) = tmp26 + tmp27;
- c_im(output[6 * ostride]) = tmp27 - tmp26;
- {
- fftw_real tmp14;
- fftw_real tmp25;
- fftw_real tmp28;
- fftw_real tmp29;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = (K433883739 * tmp11) + (K974927912 * tmp12) - (K781831482 * tmp13);
- tmp25 = tmp15 + (K623489801 * tmp18) - (K222520933 * tmp21) - (K900968867 * tmp24);
- c_im(output[3 * ostride]) = tmp14 + tmp25;
- c_im(output[4 * ostride]) = tmp25 - tmp14;
- tmp28 = (K974927912 * tmp11) - (K781831482 * tmp12) - (K433883739 * tmp13);
- tmp29 = tmp15 + (K623489801 * tmp21) - (K900968867 * tmp18) - (K222520933 * tmp24);
- c_im(output[2 * ostride]) = tmp28 + tmp29;
- c_im(output[5 * ostride]) = tmp29 - tmp28;
- }
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_7_desc =
-{
- "fftwi_no_twiddle_7",
- (void (*)()) fftwi_no_twiddle_7,
- 7,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 166,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_8.c b/src/sndobj/rfftw/fni_8.c
deleted file mode 100644
index 75857c5..0000000
--- a/src/sndobj/rfftw/fni_8.c
+++ /dev/null
@@ -1,201 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:06 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 8 */
-
-/*
- * This function contains 52 FP additions, 4 FP multiplications,
- * (or, 52 additions, 4 multiplications, 0 fused multiply/add),
- * 26 stack variables, and 32 memory accesses
- */
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: fni_8.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fni_8.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: fni_8.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- */
-
-void fftwi_no_twiddle_8(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp3;
- fftw_real tmp37;
- fftw_real tmp18;
- fftw_real tmp23;
- fftw_real tmp6;
- fftw_real tmp24;
- fftw_real tmp21;
- fftw_real tmp38;
- fftw_real tmp13;
- fftw_real tmp49;
- fftw_real tmp35;
- fftw_real tmp43;
- fftw_real tmp10;
- fftw_real tmp48;
- fftw_real tmp30;
- fftw_real tmp42;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[4 * istride]);
- tmp3 = tmp1 + tmp2;
- tmp37 = tmp1 - tmp2;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp4;
- fftw_real tmp5;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = c_im(input[0]);
- tmp17 = c_im(input[4 * istride]);
- tmp18 = tmp16 + tmp17;
- tmp23 = tmp16 - tmp17;
- tmp4 = c_re(input[2 * istride]);
- tmp5 = c_re(input[6 * istride]);
- tmp6 = tmp4 + tmp5;
- tmp24 = tmp4 - tmp5;
- }
- tmp19 = c_im(input[2 * istride]);
- tmp20 = c_im(input[6 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp38 = tmp19 - tmp20;
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp31;
- fftw_real tmp32;
- fftw_real tmp33;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[7 * istride]);
- tmp12 = c_re(input[3 * istride]);
- tmp31 = tmp11 - tmp12;
- tmp32 = c_im(input[7 * istride]);
- tmp33 = c_im(input[3 * istride]);
- tmp34 = tmp32 - tmp33;
- tmp13 = tmp11 + tmp12;
- tmp49 = tmp32 + tmp33;
- tmp35 = tmp31 + tmp34;
- tmp43 = tmp34 - tmp31;
- }
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp26;
- fftw_real tmp27;
- fftw_real tmp28;
- fftw_real tmp29;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(input[istride]);
- tmp9 = c_re(input[5 * istride]);
- tmp26 = tmp8 - tmp9;
- tmp27 = c_im(input[istride]);
- tmp28 = c_im(input[5 * istride]);
- tmp29 = tmp27 - tmp28;
- tmp10 = tmp8 + tmp9;
- tmp48 = tmp27 + tmp28;
- tmp30 = tmp26 - tmp29;
- tmp42 = tmp26 + tmp29;
- }
- }
- {
- fftw_real tmp7;
- fftw_real tmp14;
- fftw_real tmp15;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = tmp3 + tmp6;
- tmp14 = tmp10 + tmp13;
- c_re(output[4 * ostride]) = tmp7 - tmp14;
- c_re(output[0]) = tmp7 + tmp14;
- tmp15 = tmp10 - tmp13;
- tmp22 = tmp18 - tmp21;
- c_im(output[2 * ostride]) = tmp15 + tmp22;
- c_im(output[6 * ostride]) = tmp22 - tmp15;
- }
- {
- fftw_real tmp47;
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp52;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = tmp18 + tmp21;
- tmp50 = tmp48 + tmp49;
- c_im(output[4 * ostride]) = tmp47 - tmp50;
- c_im(output[0]) = tmp47 + tmp50;
- tmp51 = tmp3 - tmp6;
- tmp52 = tmp49 - tmp48;
- c_re(output[6 * ostride]) = tmp51 - tmp52;
- c_re(output[2 * ostride]) = tmp51 + tmp52;
- }
- {
- fftw_real tmp25;
- fftw_real tmp36;
- fftw_real tmp39;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = tmp23 - tmp24;
- tmp36 = K707106781 * (tmp30 - tmp35);
- c_im(output[7 * ostride]) = tmp25 - tmp36;
- c_im(output[3 * ostride]) = tmp25 + tmp36;
- tmp39 = tmp37 - tmp38;
- tmp40 = K707106781 * (tmp30 + tmp35);
- c_re(output[5 * ostride]) = tmp39 - tmp40;
- c_re(output[ostride]) = tmp39 + tmp40;
- }
- {
- fftw_real tmp45;
- fftw_real tmp46;
- fftw_real tmp41;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = tmp37 + tmp38;
- tmp46 = K707106781 * (tmp43 - tmp42);
- c_re(output[7 * ostride]) = tmp45 - tmp46;
- c_re(output[3 * ostride]) = tmp45 + tmp46;
- tmp41 = tmp24 + tmp23;
- tmp44 = K707106781 * (tmp42 + tmp43);
- c_im(output[5 * ostride]) = tmp41 - tmp44;
- c_im(output[ostride]) = tmp41 + tmp44;
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_8_desc =
-{
- "fftwi_no_twiddle_8",
- (void (*)()) fftwi_no_twiddle_8,
- 8,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 188,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/fni_9.c b/src/sndobj/rfftw/fni_9.c
deleted file mode 100644
index 4ce257e..0000000
--- a/src/sndobj/rfftw/fni_9.c
+++ /dev/null
@@ -1,275 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:07 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 9 */
-
-/*
- * This function contains 80 FP additions, 40 FP multiplications,
- * (or, 60 additions, 20 multiplications, 20 fused multiply/add),
- * 30 stack variables, and 36 memory accesses
- */
-static const fftw_real K642787609 = FFTW_KONST(+0.642787609686539326322643409907263432907559884);
-static const fftw_real K766044443 = FFTW_KONST(+0.766044443118978035202392650555416673935832457);
-static const fftw_real K939692620 = FFTW_KONST(+0.939692620785908384054109277324731469936208134);
-static const fftw_real K342020143 = FFTW_KONST(+0.342020143325668733044099614682259580763083368);
-static const fftw_real K984807753 = FFTW_KONST(+0.984807753012208059366743024589523013670643252);
-static const fftw_real K173648177 = FFTW_KONST(+0.173648177666930348851716626769314796000375677);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: fni_9.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fni_9.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: fni_9.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- */
-
-void fftwi_no_twiddle_9(const fftw_complex *input, fftw_complex *output, int istride, int ostride)
-{
- fftw_real tmp5;
- fftw_real tmp37;
- fftw_real tmp57;
- fftw_real tmp22;
- fftw_real tmp56;
- fftw_real tmp38;
- fftw_real tmp10;
- fftw_real tmp42;
- fftw_real tmp66;
- fftw_real tmp27;
- fftw_real tmp45;
- fftw_real tmp67;
- fftw_real tmp15;
- fftw_real tmp52;
- fftw_real tmp69;
- fftw_real tmp32;
- fftw_real tmp49;
- fftw_real tmp70;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(input[0]);
- tmp2 = c_re(input[3 * istride]);
- tmp3 = c_re(input[6 * istride]);
- tmp4 = tmp2 + tmp3;
- tmp5 = tmp1 + tmp4;
- tmp37 = tmp1 - (K500000000 * tmp4);
- tmp57 = K866025403 * (tmp2 - tmp3);
- }
- {
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp18 = c_im(input[0]);
- tmp19 = c_im(input[3 * istride]);
- tmp20 = c_im(input[6 * istride]);
- tmp21 = tmp19 + tmp20;
- tmp22 = tmp18 + tmp21;
- tmp56 = tmp18 - (K500000000 * tmp21);
- tmp38 = K866025403 * (tmp20 - tmp19);
- }
- {
- fftw_real tmp6;
- fftw_real tmp23;
- fftw_real tmp9;
- fftw_real tmp44;
- fftw_real tmp26;
- fftw_real tmp41;
- fftw_real tmp40;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = c_re(input[istride]);
- tmp23 = c_im(input[istride]);
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp24;
- fftw_real tmp25;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = c_re(input[4 * istride]);
- tmp8 = c_re(input[7 * istride]);
- tmp9 = tmp7 + tmp8;
- tmp44 = K866025403 * (tmp7 - tmp8);
- tmp24 = c_im(input[4 * istride]);
- tmp25 = c_im(input[7 * istride]);
- tmp26 = tmp24 + tmp25;
- tmp41 = K866025403 * (tmp25 - tmp24);
- }
- tmp10 = tmp6 + tmp9;
- tmp40 = tmp6 - (K500000000 * tmp9);
- tmp42 = tmp40 - tmp41;
- tmp66 = tmp40 + tmp41;
- tmp27 = tmp23 + tmp26;
- tmp43 = tmp23 - (K500000000 * tmp26);
- tmp45 = tmp43 - tmp44;
- tmp67 = tmp44 + tmp43;
- }
- {
- fftw_real tmp11;
- fftw_real tmp28;
- fftw_real tmp14;
- fftw_real tmp48;
- fftw_real tmp31;
- fftw_real tmp51;
- fftw_real tmp50;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = c_re(input[2 * istride]);
- tmp28 = c_im(input[2 * istride]);
- {
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp29;
- fftw_real tmp30;
- ASSERT_ALIGNED_DOUBLE;
- tmp12 = c_re(input[5 * istride]);
- tmp13 = c_re(input[8 * istride]);
- tmp14 = tmp12 + tmp13;
- tmp48 = K866025403 * (tmp12 - tmp13);
- tmp29 = c_im(input[5 * istride]);
- tmp30 = c_im(input[8 * istride]);
- tmp31 = tmp29 + tmp30;
- tmp51 = K866025403 * (tmp30 - tmp29);
- }
- tmp15 = tmp11 + tmp14;
- tmp50 = tmp11 - (K500000000 * tmp14);
- tmp52 = tmp50 - tmp51;
- tmp69 = tmp50 + tmp51;
- tmp32 = tmp28 + tmp31;
- tmp47 = tmp28 - (K500000000 * tmp31);
- tmp49 = tmp47 - tmp48;
- tmp70 = tmp48 + tmp47;
- }
- {
- fftw_real tmp36;
- fftw_real tmp16;
- fftw_real tmp35;
- fftw_real tmp17;
- fftw_real tmp33;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- tmp36 = K866025403 * (tmp32 - tmp27);
- tmp16 = tmp10 + tmp15;
- tmp35 = tmp5 - (K500000000 * tmp16);
- c_re(output[0]) = tmp5 + tmp16;
- c_re(output[3 * ostride]) = tmp35 + tmp36;
- c_re(output[6 * ostride]) = tmp35 - tmp36;
- tmp17 = K866025403 * (tmp10 - tmp15);
- tmp33 = tmp27 + tmp32;
- tmp34 = tmp22 - (K500000000 * tmp33);
- c_im(output[3 * ostride]) = tmp17 + tmp34;
- c_im(output[6 * ostride]) = tmp34 - tmp17;
- c_im(output[0]) = tmp22 + tmp33;
- }
- {
- fftw_real tmp39;
- fftw_real tmp61;
- fftw_real tmp64;
- fftw_real tmp58;
- fftw_real tmp54;
- fftw_real tmp55;
- fftw_real tmp63;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp59;
- fftw_real tmp60;
- fftw_real tmp46;
- fftw_real tmp53;
- ASSERT_ALIGNED_DOUBLE;
- tmp39 = tmp37 - tmp38;
- tmp59 = (K173648177 * tmp45) + (K984807753 * tmp42);
- tmp60 = (K342020143 * tmp52) - (K939692620 * tmp49);
- tmp61 = tmp59 + tmp60;
- tmp64 = K866025403 * (tmp60 - tmp59);
- tmp58 = tmp56 - tmp57;
- tmp46 = (K173648177 * tmp42) - (K984807753 * tmp45);
- tmp53 = (K342020143 * tmp49) + (K939692620 * tmp52);
- tmp54 = tmp46 - tmp53;
- tmp55 = K866025403 * (tmp46 + tmp53);
- }
- c_re(output[2 * ostride]) = tmp39 + tmp54;
- tmp63 = tmp39 - (K500000000 * tmp54);
- c_re(output[8 * ostride]) = tmp63 - tmp64;
- c_re(output[5 * ostride]) = tmp63 + tmp64;
- c_im(output[2 * ostride]) = tmp58 + tmp61;
- tmp62 = tmp58 - (K500000000 * tmp61);
- c_im(output[5 * ostride]) = tmp55 + tmp62;
- c_im(output[8 * ostride]) = tmp62 - tmp55;
- }
- {
- fftw_real tmp65;
- fftw_real tmp77;
- fftw_real tmp80;
- fftw_real tmp74;
- fftw_real tmp72;
- fftw_real tmp73;
- fftw_real tmp79;
- fftw_real tmp78;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp75;
- fftw_real tmp76;
- fftw_real tmp68;
- fftw_real tmp71;
- ASSERT_ALIGNED_DOUBLE;
- tmp65 = tmp37 + tmp38;
- tmp75 = (K766044443 * tmp67) + (K642787609 * tmp66);
- tmp76 = (K173648177 * tmp70) + (K984807753 * tmp69);
- tmp77 = tmp75 + tmp76;
- tmp80 = K866025403 * (tmp76 - tmp75);
- tmp74 = tmp57 + tmp56;
- tmp68 = (K766044443 * tmp66) - (K642787609 * tmp67);
- tmp71 = (K173648177 * tmp69) - (K984807753 * tmp70);
- tmp72 = tmp68 + tmp71;
- tmp73 = K866025403 * (tmp68 - tmp71);
- }
- c_re(output[ostride]) = tmp65 + tmp72;
- tmp79 = tmp65 - (K500000000 * tmp72);
- c_re(output[7 * ostride]) = tmp79 - tmp80;
- c_re(output[4 * ostride]) = tmp79 + tmp80;
- c_im(output[ostride]) = tmp74 + tmp77;
- tmp78 = tmp74 - (K500000000 * tmp77);
- c_im(output[4 * ostride]) = tmp73 + tmp78;
- c_im(output[7 * ostride]) = tmp78 - tmp73;
- }
-}
-
-fftw_codelet_desc fftwi_no_twiddle_9_desc =
-{
- "fftwi_no_twiddle_9",
- (void (*)()) fftwi_no_twiddle_9,
- 9,
- FFTW_BACKWARD,
- FFTW_NOTW,
- 210,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_1.c b/src/sndobj/rfftw/frc_1.c
deleted file mode 100644
index 59c70bb..0000000
--- a/src/sndobj/rfftw/frc_1.c
+++ /dev/null
@@ -1,59 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:52 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 1 */
-
-/*
- * This function contains 0 FP additions, 0 FP multiplications,
- * (or, 0 additions, 0 multiplications, 0 fused multiply/add),
- * 1 stack variables, and 2 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: frc_1.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: frc_1.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: frc_1.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- */
-
-void fftw_real2hc_1(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp1;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- real_output[0] = tmp1;
-}
-
-fftw_codelet_desc fftw_real2hc_1_desc =
-{
- "fftw_real2hc_1",
- (void (*)()) fftw_real2hc_1,
- 1,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 24,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_10.c b/src/sndobj/rfftw/frc_10.c
deleted file mode 100644
index 985d92d..0000000
--- a/src/sndobj/rfftw/frc_10.c
+++ /dev/null
@@ -1,150 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:55 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 10 */
-
-/*
- * This function contains 34 FP additions, 12 FP multiplications,
- * (or, 28 additions, 6 multiplications, 6 fused multiply/add),
- * 22 stack variables, and 20 memory accesses
- */
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-
-/*
- * Generator Id's :
- * $Id: frc_10.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: frc_10.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: frc_10.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- */
-
-void fftw_real2hc_10(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp18;
- fftw_real tmp29;
- fftw_real tmp10;
- fftw_real tmp23;
- fftw_real tmp13;
- fftw_real tmp24;
- fftw_real tmp14;
- fftw_real tmp31;
- fftw_real tmp3;
- fftw_real tmp26;
- fftw_real tmp6;
- fftw_real tmp27;
- fftw_real tmp7;
- fftw_real tmp30;
- fftw_real tmp16;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = input[0];
- tmp17 = input[5 * istride];
- tmp18 = tmp16 - tmp17;
- tmp29 = tmp16 + tmp17;
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = input[4 * istride];
- tmp9 = input[9 * istride];
- tmp10 = tmp8 - tmp9;
- tmp23 = tmp8 + tmp9;
- tmp11 = input[6 * istride];
- tmp12 = input[istride];
- tmp13 = tmp11 - tmp12;
- tmp24 = tmp11 + tmp12;
- }
- tmp14 = tmp10 + tmp13;
- tmp31 = tmp23 + tmp24;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp4;
- fftw_real tmp5;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[2 * istride];
- tmp2 = input[7 * istride];
- tmp3 = tmp1 - tmp2;
- tmp26 = tmp1 + tmp2;
- tmp4 = input[8 * istride];
- tmp5 = input[3 * istride];
- tmp6 = tmp4 - tmp5;
- tmp27 = tmp4 + tmp5;
- }
- tmp7 = tmp3 + tmp6;
- tmp30 = tmp26 + tmp27;
- {
- fftw_real tmp15;
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp34;
- fftw_real tmp32;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = K559016994 * (tmp7 - tmp14);
- tmp19 = tmp7 + tmp14;
- tmp20 = tmp18 - (K250000000 * tmp19);
- real_output[real_ostride] = tmp15 + tmp20;
- real_output[3 * real_ostride] = tmp20 - tmp15;
- real_output[5 * real_ostride] = tmp18 + tmp19;
- tmp34 = K559016994 * (tmp30 - tmp31);
- tmp32 = tmp30 + tmp31;
- tmp33 = tmp29 - (K250000000 * tmp32);
- real_output[2 * real_ostride] = tmp33 - tmp34;
- real_output[4 * real_ostride] = tmp34 + tmp33;
- real_output[0] = tmp29 + tmp32;
- }
- {
- fftw_real tmp21;
- fftw_real tmp22;
- fftw_real tmp25;
- fftw_real tmp28;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = tmp3 - tmp6;
- tmp22 = tmp10 - tmp13;
- imag_output[imag_ostride] = -((K951056516 * tmp21) + (K587785252 * tmp22));
- imag_output[3 * imag_ostride] = (K587785252 * tmp21) - (K951056516 * tmp22);
- tmp25 = tmp23 - tmp24;
- tmp28 = tmp26 - tmp27;
- imag_output[2 * imag_ostride] = (K951056516 * tmp25) - (K587785252 * tmp28);
- imag_output[4 * imag_ostride] = (K951056516 * tmp28) + (K587785252 * tmp25);
- }
-}
-
-fftw_codelet_desc fftw_real2hc_10_desc =
-{
- "fftw_real2hc_10",
- (void (*)()) fftw_real2hc_10,
- 10,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 222,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_11.c b/src/sndobj/rfftw/frc_11.c
deleted file mode 100644
index 2b86e25..0000000
--- a/src/sndobj/rfftw/frc_11.c
+++ /dev/null
@@ -1,125 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:55 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 11 */
-
-/*
- * This function contains 60 FP additions, 50 FP multiplications,
- * (or, 60 additions, 50 multiplications, 0 fused multiply/add),
- * 17 stack variables, and 22 memory accesses
- */
-static const fftw_real K654860733 = FFTW_KONST(+0.654860733945285064056925072466293553183791199);
-static const fftw_real K142314838 = FFTW_KONST(+0.142314838273285140443792668616369668791051361);
-static const fftw_real K959492973 = FFTW_KONST(+0.959492973614497389890368057066327699062454848);
-static const fftw_real K415415013 = FFTW_KONST(+0.415415013001886425529274149229623203524004910);
-static const fftw_real K841253532 = FFTW_KONST(+0.841253532831181168861811648919367717513292498);
-static const fftw_real K989821441 = FFTW_KONST(+0.989821441880932732376092037776718787376519372);
-static const fftw_real K909631995 = FFTW_KONST(+0.909631995354518371411715383079028460060241051);
-static const fftw_real K281732556 = FFTW_KONST(+0.281732556841429697711417915346616899035777899);
-static const fftw_real K540640817 = FFTW_KONST(+0.540640817455597582107635954318691695431770608);
-static const fftw_real K755749574 = FFTW_KONST(+0.755749574354258283774035843972344420179717445);
-
-/*
- * Generator Id's :
- * $Id: frc_11.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: frc_11.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: frc_11.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- */
-
-void fftw_real2hc_11(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp1;
- fftw_real tmp4;
- fftw_real tmp21;
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp13;
- fftw_real tmp18;
- fftw_real tmp10;
- fftw_real tmp20;
- fftw_real tmp7;
- fftw_real tmp19;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = input[2 * istride];
- tmp3 = input[9 * istride];
- tmp4 = tmp2 + tmp3;
- tmp21 = tmp3 - tmp2;
- tmp14 = input[istride];
- tmp15 = input[10 * istride];
- tmp16 = tmp14 + tmp15;
- tmp17 = tmp15 - tmp14;
- }
- tmp11 = input[3 * istride];
- tmp12 = input[8 * istride];
- tmp13 = tmp11 + tmp12;
- tmp18 = tmp12 - tmp11;
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp5;
- fftw_real tmp6;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = input[5 * istride];
- tmp9 = input[6 * istride];
- tmp10 = tmp8 + tmp9;
- tmp20 = tmp9 - tmp8;
- tmp5 = input[4 * istride];
- tmp6 = input[7 * istride];
- tmp7 = tmp5 + tmp6;
- tmp19 = tmp6 - tmp5;
- }
- imag_output[4 * imag_ostride] = (K755749574 * tmp17) + (K540640817 * tmp18) + (K281732556 * tmp19) - (K909631995 * tmp20) - (K989821441 * tmp21);
- imag_output[imag_ostride] = (K540640817 * tmp17) + (K909631995 * tmp21) + (K989821441 * tmp18) + (K755749574 * tmp19) + (K281732556 * tmp20);
- imag_output[5 * imag_ostride] = (K281732556 * tmp17) + (K755749574 * tmp18) + (K989821441 * tmp20) - (K909631995 * tmp19) - (K540640817 * tmp21);
- imag_output[2 * imag_ostride] = (K909631995 * tmp17) + (K755749574 * tmp21) - (K540640817 * tmp20) - (K989821441 * tmp19) - (K281732556 * tmp18);
- imag_output[3 * imag_ostride] = (K989821441 * tmp17) + (K540640817 * tmp19) + (K755749574 * tmp20) - (K909631995 * tmp18) - (K281732556 * tmp21);
- real_output[4 * real_ostride] = tmp1 + (K841253532 * tmp13) + (K415415013 * tmp10) - (K959492973 * tmp7) - (K142314838 * tmp4) - (K654860733 * tmp16);
- real_output[5 * real_ostride] = tmp1 + (K841253532 * tmp4) + (K415415013 * tmp7) - (K142314838 * tmp10) - (K654860733 * tmp13) - (K959492973 * tmp16);
- real_output[real_ostride] = tmp1 + (K841253532 * tmp16) + (K415415013 * tmp4) - (K959492973 * tmp10) - (K654860733 * tmp7) - (K142314838 * tmp13);
- real_output[0] = tmp1 + tmp16 + tmp4 + tmp13 + tmp7 + tmp10;
- real_output[3 * real_ostride] = tmp1 + (K415415013 * tmp13) + (K841253532 * tmp7) - (K654860733 * tmp10) - (K959492973 * tmp4) - (K142314838 * tmp16);
- real_output[2 * real_ostride] = tmp1 + (K415415013 * tmp16) + (K841253532 * tmp10) - (K142314838 * tmp7) - (K959492973 * tmp13) - (K654860733 * tmp4);
-}
-
-fftw_codelet_desc fftw_real2hc_11_desc =
-{
- "fftw_real2hc_11",
- (void (*)()) fftw_real2hc_11,
- 11,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 244,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_12.c b/src/sndobj/rfftw/frc_12.c
deleted file mode 100644
index 3e573bf..0000000
--- a/src/sndobj/rfftw/frc_12.c
+++ /dev/null
@@ -1,164 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:55 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 12 */
-
-/*
- * This function contains 38 FP additions, 8 FP multiplications,
- * (or, 34 additions, 4 multiplications, 4 fused multiply/add),
- * 18 stack variables, and 24 memory accesses
- */
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: frc_12.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: frc_12.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: frc_12.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- */
-
-void fftw_real2hc_12(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp5;
- fftw_real tmp25;
- fftw_real tmp11;
- fftw_real tmp23;
- fftw_real tmp30;
- fftw_real tmp35;
- fftw_real tmp10;
- fftw_real tmp26;
- fftw_real tmp12;
- fftw_real tmp18;
- fftw_real tmp29;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp32;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp2 = input[4 * istride];
- tmp3 = input[8 * istride];
- tmp4 = tmp2 + tmp3;
- tmp5 = tmp1 + tmp4;
- tmp25 = tmp1 - (K500000000 * tmp4);
- tmp11 = tmp3 - tmp2;
- }
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp21;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = input[9 * istride];
- tmp20 = input[istride];
- tmp21 = input[5 * istride];
- tmp22 = tmp20 + tmp21;
- tmp23 = tmp19 - (K500000000 * tmp22);
- tmp30 = tmp19 + tmp22;
- tmp35 = tmp21 - tmp20;
- }
- {
- fftw_real tmp6;
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = input[6 * istride];
- tmp7 = input[10 * istride];
- tmp8 = input[2 * istride];
- tmp9 = tmp7 + tmp8;
- tmp10 = tmp6 + tmp9;
- tmp26 = tmp6 - (K500000000 * tmp9);
- tmp12 = tmp8 - tmp7;
- }
- {
- fftw_real tmp14;
- fftw_real tmp15;
- fftw_real tmp16;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = input[3 * istride];
- tmp15 = input[7 * istride];
- tmp16 = input[11 * istride];
- tmp17 = tmp15 + tmp16;
- tmp18 = tmp14 - (K500000000 * tmp17);
- tmp29 = tmp14 + tmp17;
- tmp34 = tmp16 - tmp15;
- }
- real_output[3 * real_ostride] = tmp5 - tmp10;
- imag_output[3 * imag_ostride] = tmp29 - tmp30;
- tmp31 = tmp5 + tmp10;
- tmp32 = tmp29 + tmp30;
- real_output[6 * real_ostride] = tmp31 - tmp32;
- real_output[0] = tmp31 + tmp32;
- {
- fftw_real tmp37;
- fftw_real tmp38;
- fftw_real tmp33;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = tmp34 + tmp35;
- tmp38 = tmp11 + tmp12;
- imag_output[2 * imag_ostride] = K866025403 * (tmp37 - tmp38);
- imag_output[4 * imag_ostride] = K866025403 * (tmp38 + tmp37);
- tmp33 = tmp25 - tmp26;
- tmp36 = K866025403 * (tmp34 - tmp35);
- real_output[5 * real_ostride] = tmp33 - tmp36;
- real_output[real_ostride] = tmp33 + tmp36;
- }
- {
- fftw_real tmp27;
- fftw_real tmp28;
- fftw_real tmp13;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- tmp27 = tmp25 + tmp26;
- tmp28 = tmp18 + tmp23;
- real_output[2 * real_ostride] = tmp27 - tmp28;
- real_output[4 * real_ostride] = tmp27 + tmp28;
- tmp13 = K866025403 * (tmp11 - tmp12);
- tmp24 = tmp18 - tmp23;
- imag_output[imag_ostride] = tmp13 - tmp24;
- imag_output[5 * imag_ostride] = -(tmp13 + tmp24);
- }
-}
-
-fftw_codelet_desc fftw_real2hc_12_desc =
-{
- "fftw_real2hc_12",
- (void (*)()) fftw_real2hc_12,
- 12,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 266,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_128.c b/src/sndobj/rfftw/frc_128.c
deleted file mode 100644
index 0cef0ac..0000000
--- a/src/sndobj/rfftw/frc_128.c
+++ /dev/null
@@ -1,2574 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:59 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 128 */
-
-/*
- * This function contains 956 FP additions, 330 FP multiplications,
- * (or, 812 additions, 186 multiplications, 144 fused multiply/add),
- * 156 stack variables, and 256 memory accesses
- */
-static const fftw_real K242980179 = FFTW_KONST(+0.242980179903263889948274162077471118320990783);
-static const fftw_real K970031253 = FFTW_KONST(+0.970031253194543992603984207286100251456865962);
-static const fftw_real K514102744 = FFTW_KONST(+0.514102744193221726593693838968815772608049120);
-static const fftw_real K857728610 = FFTW_KONST(+0.857728610000272069902269984284770137042490799);
-static const fftw_real K595699304 = FFTW_KONST(+0.595699304492433343467036528829969889511926338);
-static const fftw_real K803207531 = FFTW_KONST(+0.803207531480644909806676512963141923879569427);
-static const fftw_real K146730474 = FFTW_KONST(+0.146730474455361751658850129646717819706215317);
-static const fftw_real K989176509 = FFTW_KONST(+0.989176509964780973451673738016243063983689533);
-static const fftw_real K471396736 = FFTW_KONST(+0.471396736825997648556387625905254377657460319);
-static const fftw_real K881921264 = FFTW_KONST(+0.881921264348355029712756863660388349508442621);
-static const fftw_real K956940335 = FFTW_KONST(+0.956940335732208864935797886980269969482849206);
-static const fftw_real K290284677 = FFTW_KONST(+0.290284677254462367636192375817395274691476278);
-static const fftw_real K336889853 = FFTW_KONST(+0.336889853392220050689253212619147570477766780);
-static const fftw_real K941544065 = FFTW_KONST(+0.941544065183020778412509402599502357185589796);
-static const fftw_real K427555093 = FFTW_KONST(+0.427555093430282094320966856888798534304578629);
-static const fftw_real K903989293 = FFTW_KONST(+0.903989293123443331586200297230537048710132025);
-static const fftw_real K634393284 = FFTW_KONST(+0.634393284163645498215171613225493370675687095);
-static const fftw_real K773010453 = FFTW_KONST(+0.773010453362736960810906609758469800971041293);
-static const fftw_real K671558954 = FFTW_KONST(+0.671558954847018400625376850427421803228750632);
-static const fftw_real K740951125 = FFTW_KONST(+0.740951125354959091175616897495162729728955309);
-static const fftw_real K049067674 = FFTW_KONST(+0.049067674327418014254954976942682658314745363);
-static const fftw_real K998795456 = FFTW_KONST(+0.998795456205172392714771604759100694443203615);
-static const fftw_real K995184726 = FFTW_KONST(+0.995184726672196886244836953109479921575474869);
-static const fftw_real K098017140 = FFTW_KONST(+0.098017140329560601994195563888641845861136673);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: frc_128.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- * $Id: frc_128.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- * $Id: frc_128.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- */
-
-void fftw_real2hc_128(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp783;
- fftw_real tmp15;
- fftw_real tmp625;
- fftw_real tmp862;
- fftw_real tmp131;
- fftw_real tmp461;
- fftw_real tmp364;
- fftw_real tmp530;
- fftw_real tmp46;
- fftw_real tmp626;
- fftw_real tmp790;
- fftw_real tmp865;
- fftw_real tmp148;
- fftw_real tmp369;
- fftw_real tmp466;
- fftw_real tmp533;
- fftw_real tmp30;
- fftw_real tmp708;
- fftw_real tmp786;
- fftw_real tmp863;
- fftw_real tmp138;
- fftw_real tmp531;
- fftw_real tmp367;
- fftw_real tmp462;
- fftw_real tmp307;
- fftw_real tmp419;
- fftw_real tmp509;
- fftw_real tmp583;
- fftw_real tmp352;
- fftw_real tmp423;
- fftw_real tmp520;
- fftw_real tmp587;
- fftw_real tmp677;
- fftw_real tmp747;
- fftw_real tmp841;
- fftw_real tmp915;
- fftw_real tmp852;
- fftw_real tmp919;
- fftw_real tmp700;
- fftw_real tmp748;
- fftw_real tmp750;
- fftw_real tmp692;
- fftw_real tmp701;
- fftw_real tmp751;
- fftw_real tmp855;
- fftw_real tmp916;
- fftw_real tmp848;
- fftw_real tmp918;
- fftw_real tmp324;
- fftw_real tmp353;
- fftw_real tmp512;
- fftw_real tmp521;
- fftw_real tmp515;
- fftw_real tmp522;
- fftw_real tmp341;
- fftw_real tmp354;
- fftw_real tmp61;
- fftw_real tmp627;
- fftw_real tmp793;
- fftw_real tmp866;
- fftw_real tmp157;
- fftw_real tmp370;
- fftw_real tmp469;
- fftw_real tmp534;
- fftw_real tmp109;
- fftw_real tmp633;
- fftw_real tmp809;
- fftw_real tmp900;
- fftw_real tmp812;
- fftw_real tmp901;
- fftw_real tmp484;
- fftw_real tmp569;
- fftw_real tmp193;
- fftw_real tmp405;
- fftw_real tmp481;
- fftw_real tmp568;
- fftw_real tmp200;
- fftw_real tmp404;
- fftw_real tmp124;
- fftw_real tmp634;
- fftw_real tmp78;
- fftw_real tmp630;
- fftw_real tmp800;
- fftw_real tmp904;
- fftw_real tmp803;
- fftw_real tmp903;
- fftw_real tmp477;
- fftw_real tmp571;
- fftw_real tmp172;
- fftw_real tmp407;
- fftw_real tmp474;
- fftw_real tmp572;
- fftw_real tmp179;
- fftw_real tmp408;
- fftw_real tmp93;
- fftw_real tmp631;
- fftw_real tmp230;
- fftw_real tmp415;
- fftw_real tmp490;
- fftw_real tmp579;
- fftw_real tmp275;
- fftw_real tmp413;
- fftw_real tmp501;
- fftw_real tmp577;
- fftw_real tmp644;
- fftw_real tmp740;
- fftw_real tmp820;
- fftw_real tmp911;
- fftw_real tmp831;
- fftw_real tmp909;
- fftw_real tmp667;
- fftw_real tmp741;
- fftw_real tmp743;
- fftw_real tmp659;
- fftw_real tmp668;
- fftw_real tmp744;
- fftw_real tmp834;
- fftw_real tmp912;
- fftw_real tmp827;
- fftw_real tmp908;
- fftw_real tmp247;
- fftw_real tmp276;
- fftw_real tmp493;
- fftw_real tmp502;
- fftw_real tmp496;
- fftw_real tmp503;
- fftw_real tmp264;
- fftw_real tmp277;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp127;
- fftw_real tmp13;
- fftw_real tmp129;
- fftw_real tmp6;
- fftw_real tmp363;
- fftw_real tmp10;
- fftw_real tmp128;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp2 = input[64 * istride];
- tmp3 = tmp1 + tmp2;
- tmp127 = tmp1 - tmp2;
- tmp11 = input[112 * istride];
- tmp12 = input[48 * istride];
- tmp13 = tmp11 + tmp12;
- tmp129 = tmp11 - tmp12;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp8;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = input[32 * istride];
- tmp5 = input[96 * istride];
- tmp6 = tmp4 + tmp5;
- tmp363 = tmp4 - tmp5;
- tmp8 = input[16 * istride];
- tmp9 = input[80 * istride];
- tmp10 = tmp8 + tmp9;
- tmp128 = tmp8 - tmp9;
- }
- {
- fftw_real tmp7;
- fftw_real tmp14;
- fftw_real tmp130;
- fftw_real tmp362;
- ASSERT_ALIGNED_DOUBLE;
- tmp783 = tmp3 - tmp6;
- tmp7 = tmp3 + tmp6;
- tmp14 = tmp10 + tmp13;
- tmp15 = tmp7 + tmp14;
- tmp625 = tmp7 - tmp14;
- tmp862 = tmp13 - tmp10;
- tmp130 = K707106781 * (tmp128 + tmp129);
- tmp131 = tmp127 + tmp130;
- tmp461 = tmp127 - tmp130;
- tmp362 = K707106781 * (tmp129 - tmp128);
- tmp364 = tmp362 - tmp363;
- tmp530 = tmp363 + tmp362;
- }
- }
- {
- fftw_real tmp34;
- fftw_real tmp140;
- fftw_real tmp37;
- fftw_real tmp146;
- fftw_real tmp41;
- fftw_real tmp145;
- fftw_real tmp143;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp33;
- fftw_real tmp35;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = input[4 * istride];
- tmp33 = input[68 * istride];
- tmp34 = tmp32 + tmp33;
- tmp140 = tmp32 - tmp33;
- tmp35 = input[36 * istride];
- tmp36 = input[100 * istride];
- tmp37 = tmp35 + tmp36;
- tmp146 = tmp35 - tmp36;
- {
- fftw_real tmp39;
- fftw_real tmp40;
- fftw_real tmp141;
- fftw_real tmp42;
- fftw_real tmp43;
- fftw_real tmp142;
- ASSERT_ALIGNED_DOUBLE;
- tmp39 = input[20 * istride];
- tmp40 = input[84 * istride];
- tmp141 = tmp39 - tmp40;
- tmp42 = input[116 * istride];
- tmp43 = input[52 * istride];
- tmp142 = tmp42 - tmp43;
- tmp41 = tmp39 + tmp40;
- tmp145 = K707106781 * (tmp142 - tmp141);
- tmp143 = K707106781 * (tmp141 + tmp142);
- tmp44 = tmp42 + tmp43;
- }
- }
- {
- fftw_real tmp38;
- fftw_real tmp45;
- fftw_real tmp788;
- fftw_real tmp789;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = tmp34 + tmp37;
- tmp45 = tmp41 + tmp44;
- tmp46 = tmp38 + tmp45;
- tmp626 = tmp38 - tmp45;
- tmp788 = tmp34 - tmp37;
- tmp789 = tmp44 - tmp41;
- tmp790 = (K923879532 * tmp788) + (K382683432 * tmp789);
- tmp865 = (K923879532 * tmp789) - (K382683432 * tmp788);
- }
- {
- fftw_real tmp144;
- fftw_real tmp147;
- fftw_real tmp464;
- fftw_real tmp465;
- ASSERT_ALIGNED_DOUBLE;
- tmp144 = tmp140 + tmp143;
- tmp147 = tmp145 - tmp146;
- tmp148 = (K980785280 * tmp144) + (K195090322 * tmp147);
- tmp369 = (K980785280 * tmp147) - (K195090322 * tmp144);
- tmp464 = tmp140 - tmp143;
- tmp465 = tmp146 + tmp145;
- tmp466 = (K831469612 * tmp464) + (K555570233 * tmp465);
- tmp533 = (K831469612 * tmp465) - (K555570233 * tmp464);
- }
- }
- {
- fftw_real tmp18;
- fftw_real tmp132;
- fftw_real tmp28;
- fftw_real tmp136;
- fftw_real tmp21;
- fftw_real tmp133;
- fftw_real tmp25;
- fftw_real tmp135;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp26;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = input[8 * istride];
- tmp17 = input[72 * istride];
- tmp18 = tmp16 + tmp17;
- tmp132 = tmp16 - tmp17;
- tmp26 = input[24 * istride];
- tmp27 = input[88 * istride];
- tmp28 = tmp26 + tmp27;
- tmp136 = tmp26 - tmp27;
- }
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp23;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = input[40 * istride];
- tmp20 = input[104 * istride];
- tmp21 = tmp19 + tmp20;
- tmp133 = tmp19 - tmp20;
- tmp23 = input[120 * istride];
- tmp24 = input[56 * istride];
- tmp25 = tmp23 + tmp24;
- tmp135 = tmp23 - tmp24;
- }
- {
- fftw_real tmp22;
- fftw_real tmp29;
- fftw_real tmp784;
- fftw_real tmp785;
- ASSERT_ALIGNED_DOUBLE;
- tmp22 = tmp18 + tmp21;
- tmp29 = tmp25 + tmp28;
- tmp30 = tmp22 + tmp29;
- tmp708 = tmp29 - tmp22;
- tmp784 = tmp18 - tmp21;
- tmp785 = tmp25 - tmp28;
- tmp786 = K707106781 * (tmp784 + tmp785);
- tmp863 = K707106781 * (tmp785 - tmp784);
- }
- {
- fftw_real tmp134;
- fftw_real tmp137;
- fftw_real tmp365;
- fftw_real tmp366;
- ASSERT_ALIGNED_DOUBLE;
- tmp134 = (K923879532 * tmp132) - (K382683432 * tmp133);
- tmp137 = (K923879532 * tmp135) + (K382683432 * tmp136);
- tmp138 = tmp134 + tmp137;
- tmp531 = tmp137 - tmp134;
- tmp365 = (K382683432 * tmp135) - (K923879532 * tmp136);
- tmp366 = (K382683432 * tmp132) + (K923879532 * tmp133);
- tmp367 = tmp365 - tmp366;
- tmp462 = tmp366 + tmp365;
- }
- }
- {
- fftw_real tmp283;
- fftw_real tmp671;
- fftw_real tmp347;
- fftw_real tmp672;
- fftw_real tmp290;
- fftw_real tmp344;
- fftw_real tmp674;
- fftw_real tmp675;
- fftw_real tmp697;
- fftw_real tmp698;
- fftw_real tmp298;
- fftw_real tmp350;
- fftw_real tmp838;
- fftw_real tmp694;
- fftw_real tmp695;
- fftw_real tmp305;
- fftw_real tmp349;
- fftw_real tmp839;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp281;
- fftw_real tmp282;
- fftw_real tmp345;
- fftw_real tmp346;
- ASSERT_ALIGNED_DOUBLE;
- tmp281 = input[127 * istride];
- tmp282 = input[63 * istride];
- tmp283 = tmp281 - tmp282;
- tmp671 = tmp281 + tmp282;
- tmp345 = input[31 * istride];
- tmp346 = input[95 * istride];
- tmp347 = tmp345 - tmp346;
- tmp672 = tmp345 + tmp346;
- }
- {
- fftw_real tmp284;
- fftw_real tmp285;
- fftw_real tmp286;
- fftw_real tmp287;
- fftw_real tmp288;
- fftw_real tmp289;
- ASSERT_ALIGNED_DOUBLE;
- tmp284 = input[15 * istride];
- tmp285 = input[79 * istride];
- tmp286 = tmp284 - tmp285;
- tmp287 = input[111 * istride];
- tmp288 = input[47 * istride];
- tmp289 = tmp287 - tmp288;
- tmp290 = K707106781 * (tmp286 + tmp289);
- tmp344 = K707106781 * (tmp289 - tmp286);
- tmp674 = tmp284 + tmp285;
- tmp675 = tmp287 + tmp288;
- }
- {
- fftw_real tmp294;
- fftw_real tmp297;
- fftw_real tmp301;
- fftw_real tmp304;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp292;
- fftw_real tmp293;
- fftw_real tmp295;
- fftw_real tmp296;
- ASSERT_ALIGNED_DOUBLE;
- tmp292 = input[7 * istride];
- tmp293 = input[71 * istride];
- tmp294 = tmp292 - tmp293;
- tmp697 = tmp292 + tmp293;
- tmp295 = input[39 * istride];
- tmp296 = input[103 * istride];
- tmp297 = tmp295 - tmp296;
- tmp698 = tmp295 + tmp296;
- }
- tmp298 = (K923879532 * tmp294) - (K382683432 * tmp297);
- tmp350 = (K382683432 * tmp294) + (K923879532 * tmp297);
- tmp838 = tmp697 - tmp698;
- {
- fftw_real tmp299;
- fftw_real tmp300;
- fftw_real tmp302;
- fftw_real tmp303;
- ASSERT_ALIGNED_DOUBLE;
- tmp299 = input[119 * istride];
- tmp300 = input[55 * istride];
- tmp301 = tmp299 - tmp300;
- tmp694 = tmp299 + tmp300;
- tmp302 = input[23 * istride];
- tmp303 = input[87 * istride];
- tmp304 = tmp302 - tmp303;
- tmp695 = tmp302 + tmp303;
- }
- tmp305 = (K923879532 * tmp301) + (K382683432 * tmp304);
- tmp349 = (K382683432 * tmp301) - (K923879532 * tmp304);
- tmp839 = tmp694 - tmp695;
- }
- {
- fftw_real tmp291;
- fftw_real tmp306;
- fftw_real tmp507;
- fftw_real tmp508;
- ASSERT_ALIGNED_DOUBLE;
- tmp291 = tmp283 + tmp290;
- tmp306 = tmp298 + tmp305;
- tmp307 = tmp291 + tmp306;
- tmp419 = tmp291 - tmp306;
- tmp507 = tmp283 - tmp290;
- tmp508 = tmp350 + tmp349;
- tmp509 = tmp507 + tmp508;
- tmp583 = tmp507 - tmp508;
- }
- {
- fftw_real tmp348;
- fftw_real tmp351;
- fftw_real tmp518;
- fftw_real tmp519;
- ASSERT_ALIGNED_DOUBLE;
- tmp348 = tmp344 - tmp347;
- tmp351 = tmp349 - tmp350;
- tmp352 = tmp348 + tmp351;
- tmp423 = tmp351 - tmp348;
- tmp518 = tmp347 + tmp344;
- tmp519 = tmp305 - tmp298;
- tmp520 = tmp518 + tmp519;
- tmp587 = tmp519 - tmp518;
- }
- {
- fftw_real tmp673;
- fftw_real tmp676;
- fftw_real tmp837;
- fftw_real tmp840;
- ASSERT_ALIGNED_DOUBLE;
- tmp673 = tmp671 + tmp672;
- tmp676 = tmp674 + tmp675;
- tmp677 = tmp673 - tmp676;
- tmp747 = tmp673 + tmp676;
- tmp837 = tmp671 - tmp672;
- tmp840 = K707106781 * (tmp838 + tmp839);
- tmp841 = tmp837 + tmp840;
- tmp915 = tmp837 - tmp840;
- }
- {
- fftw_real tmp850;
- fftw_real tmp851;
- fftw_real tmp696;
- fftw_real tmp699;
- ASSERT_ALIGNED_DOUBLE;
- tmp850 = tmp675 - tmp674;
- tmp851 = K707106781 * (tmp839 - tmp838);
- tmp852 = tmp850 + tmp851;
- tmp919 = tmp851 - tmp850;
- tmp696 = tmp694 + tmp695;
- tmp699 = tmp697 + tmp698;
- tmp700 = tmp696 - tmp699;
- tmp748 = tmp699 + tmp696;
- }
- }
- {
- fftw_real tmp310;
- fftw_real tmp842;
- fftw_real tmp680;
- fftw_real tmp322;
- fftw_real tmp334;
- fftw_real tmp336;
- fftw_real tmp690;
- fftw_real tmp846;
- fftw_real tmp327;
- fftw_real tmp845;
- fftw_real tmp687;
- fftw_real tmp339;
- fftw_real tmp317;
- fftw_real tmp319;
- fftw_real tmp683;
- fftw_real tmp843;
- fftw_real tmp510;
- fftw_real tmp511;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp308;
- fftw_real tmp309;
- fftw_real tmp678;
- fftw_real tmp320;
- fftw_real tmp321;
- fftw_real tmp679;
- ASSERT_ALIGNED_DOUBLE;
- tmp308 = input[3 * istride];
- tmp309 = input[67 * istride];
- tmp678 = tmp308 + tmp309;
- tmp320 = input[35 * istride];
- tmp321 = input[99 * istride];
- tmp679 = tmp320 + tmp321;
- tmp310 = tmp308 - tmp309;
- tmp842 = tmp678 - tmp679;
- tmp680 = tmp678 + tmp679;
- tmp322 = tmp320 - tmp321;
- }
- {
- fftw_real tmp330;
- fftw_real tmp688;
- fftw_real tmp333;
- fftw_real tmp689;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp328;
- fftw_real tmp329;
- fftw_real tmp331;
- fftw_real tmp332;
- ASSERT_ALIGNED_DOUBLE;
- tmp328 = input[11 * istride];
- tmp329 = input[75 * istride];
- tmp330 = tmp328 - tmp329;
- tmp688 = tmp328 + tmp329;
- tmp331 = input[107 * istride];
- tmp332 = input[43 * istride];
- tmp333 = tmp331 - tmp332;
- tmp689 = tmp331 + tmp332;
- }
- tmp334 = K707106781 * (tmp330 + tmp333);
- tmp336 = K707106781 * (tmp333 - tmp330);
- tmp690 = tmp688 + tmp689;
- tmp846 = tmp689 - tmp688;
- }
- {
- fftw_real tmp325;
- fftw_real tmp326;
- fftw_real tmp685;
- fftw_real tmp337;
- fftw_real tmp338;
- fftw_real tmp686;
- ASSERT_ALIGNED_DOUBLE;
- tmp325 = input[123 * istride];
- tmp326 = input[59 * istride];
- tmp685 = tmp325 + tmp326;
- tmp337 = input[27 * istride];
- tmp338 = input[91 * istride];
- tmp686 = tmp337 + tmp338;
- tmp327 = tmp325 - tmp326;
- tmp845 = tmp685 - tmp686;
- tmp687 = tmp685 + tmp686;
- tmp339 = tmp337 - tmp338;
- }
- {
- fftw_real tmp313;
- fftw_real tmp681;
- fftw_real tmp316;
- fftw_real tmp682;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp311;
- fftw_real tmp312;
- fftw_real tmp314;
- fftw_real tmp315;
- ASSERT_ALIGNED_DOUBLE;
- tmp311 = input[19 * istride];
- tmp312 = input[83 * istride];
- tmp313 = tmp311 - tmp312;
- tmp681 = tmp311 + tmp312;
- tmp314 = input[115 * istride];
- tmp315 = input[51 * istride];
- tmp316 = tmp314 - tmp315;
- tmp682 = tmp314 + tmp315;
- }
- tmp317 = K707106781 * (tmp313 + tmp316);
- tmp319 = K707106781 * (tmp316 - tmp313);
- tmp683 = tmp681 + tmp682;
- tmp843 = tmp682 - tmp681;
- }
- {
- fftw_real tmp684;
- fftw_real tmp691;
- fftw_real tmp853;
- fftw_real tmp854;
- ASSERT_ALIGNED_DOUBLE;
- tmp750 = tmp680 + tmp683;
- tmp684 = tmp680 - tmp683;
- tmp691 = tmp687 - tmp690;
- tmp692 = K707106781 * (tmp684 + tmp691);
- tmp701 = K707106781 * (tmp691 - tmp684);
- tmp751 = tmp687 + tmp690;
- tmp853 = (K923879532 * tmp843) - (K382683432 * tmp842);
- tmp854 = (K382683432 * tmp845) + (K923879532 * tmp846);
- tmp855 = tmp853 + tmp854;
- tmp916 = tmp854 - tmp853;
- }
- {
- fftw_real tmp844;
- fftw_real tmp847;
- fftw_real tmp318;
- fftw_real tmp323;
- ASSERT_ALIGNED_DOUBLE;
- tmp844 = (K923879532 * tmp842) + (K382683432 * tmp843);
- tmp847 = (K923879532 * tmp845) - (K382683432 * tmp846);
- tmp848 = tmp844 + tmp847;
- tmp918 = tmp847 - tmp844;
- tmp318 = tmp310 + tmp317;
- tmp323 = tmp319 - tmp322;
- tmp324 = (K980785280 * tmp318) + (K195090322 * tmp323);
- tmp353 = (K980785280 * tmp323) - (K195090322 * tmp318);
- }
- tmp510 = tmp310 - tmp317;
- tmp511 = tmp322 + tmp319;
- tmp512 = (K831469612 * tmp510) + (K555570233 * tmp511);
- tmp521 = (K831469612 * tmp511) - (K555570233 * tmp510);
- {
- fftw_real tmp513;
- fftw_real tmp514;
- fftw_real tmp335;
- fftw_real tmp340;
- ASSERT_ALIGNED_DOUBLE;
- tmp513 = tmp327 - tmp334;
- tmp514 = tmp339 + tmp336;
- tmp515 = (K831469612 * tmp513) - (K555570233 * tmp514);
- tmp522 = (K555570233 * tmp513) + (K831469612 * tmp514);
- tmp335 = tmp327 + tmp334;
- tmp340 = tmp336 - tmp339;
- tmp341 = (K980785280 * tmp335) - (K195090322 * tmp340);
- tmp354 = (K195090322 * tmp335) + (K980785280 * tmp340);
- }
- }
- {
- fftw_real tmp49;
- fftw_real tmp149;
- fftw_real tmp52;
- fftw_real tmp155;
- fftw_real tmp56;
- fftw_real tmp154;
- fftw_real tmp152;
- fftw_real tmp59;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp47;
- fftw_real tmp48;
- fftw_real tmp50;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = input[124 * istride];
- tmp48 = input[60 * istride];
- tmp49 = tmp47 + tmp48;
- tmp149 = tmp47 - tmp48;
- tmp50 = input[28 * istride];
- tmp51 = input[92 * istride];
- tmp52 = tmp50 + tmp51;
- tmp155 = tmp50 - tmp51;
- {
- fftw_real tmp54;
- fftw_real tmp55;
- fftw_real tmp150;
- fftw_real tmp57;
- fftw_real tmp58;
- fftw_real tmp151;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = input[12 * istride];
- tmp55 = input[76 * istride];
- tmp150 = tmp54 - tmp55;
- tmp57 = input[108 * istride];
- tmp58 = input[44 * istride];
- tmp151 = tmp57 - tmp58;
- tmp56 = tmp54 + tmp55;
- tmp154 = K707106781 * (tmp151 - tmp150);
- tmp152 = K707106781 * (tmp150 + tmp151);
- tmp59 = tmp57 + tmp58;
- }
- }
- {
- fftw_real tmp53;
- fftw_real tmp60;
- fftw_real tmp791;
- fftw_real tmp792;
- ASSERT_ALIGNED_DOUBLE;
- tmp53 = tmp49 + tmp52;
- tmp60 = tmp56 + tmp59;
- tmp61 = tmp53 + tmp60;
- tmp627 = tmp53 - tmp60;
- tmp791 = tmp49 - tmp52;
- tmp792 = tmp59 - tmp56;
- tmp793 = (K923879532 * tmp791) - (K382683432 * tmp792);
- tmp866 = (K382683432 * tmp791) + (K923879532 * tmp792);
- }
- {
- fftw_real tmp153;
- fftw_real tmp156;
- fftw_real tmp467;
- fftw_real tmp468;
- ASSERT_ALIGNED_DOUBLE;
- tmp153 = tmp149 + tmp152;
- tmp156 = tmp154 - tmp155;
- tmp157 = (K980785280 * tmp153) - (K195090322 * tmp156);
- tmp370 = (K195090322 * tmp153) + (K980785280 * tmp156);
- tmp467 = tmp149 - tmp152;
- tmp468 = tmp155 + tmp154;
- tmp469 = (K831469612 * tmp467) - (K555570233 * tmp468);
- tmp534 = (K555570233 * tmp467) + (K831469612 * tmp468);
- }
- }
- {
- fftw_real tmp97;
- fftw_real tmp181;
- fftw_real tmp119;
- fftw_real tmp122;
- fftw_real tmp191;
- fftw_real tmp197;
- fftw_real tmp807;
- fftw_real tmp100;
- fftw_real tmp195;
- fftw_real tmp104;
- fftw_real tmp194;
- fftw_real tmp184;
- fftw_real tmp107;
- fftw_real tmp112;
- fftw_real tmp115;
- fftw_real tmp188;
- fftw_real tmp198;
- fftw_real tmp806;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp95;
- fftw_real tmp96;
- fftw_real tmp189;
- fftw_real tmp190;
- ASSERT_ALIGNED_DOUBLE;
- tmp95 = input[126 * istride];
- tmp96 = input[62 * istride];
- tmp97 = tmp95 + tmp96;
- tmp181 = tmp95 - tmp96;
- {
- fftw_real tmp117;
- fftw_real tmp118;
- fftw_real tmp120;
- fftw_real tmp121;
- ASSERT_ALIGNED_DOUBLE;
- tmp117 = input[118 * istride];
- tmp118 = input[54 * istride];
- tmp119 = tmp117 + tmp118;
- tmp189 = tmp117 - tmp118;
- tmp120 = input[22 * istride];
- tmp121 = input[86 * istride];
- tmp122 = tmp120 + tmp121;
- tmp190 = tmp120 - tmp121;
- }
- tmp191 = (K923879532 * tmp189) + (K382683432 * tmp190);
- tmp197 = (K382683432 * tmp189) - (K923879532 * tmp190);
- tmp807 = tmp119 - tmp122;
- }
- {
- fftw_real tmp98;
- fftw_real tmp99;
- fftw_real tmp186;
- fftw_real tmp187;
- ASSERT_ALIGNED_DOUBLE;
- tmp98 = input[30 * istride];
- tmp99 = input[94 * istride];
- tmp100 = tmp98 + tmp99;
- tmp195 = tmp98 - tmp99;
- {
- fftw_real tmp102;
- fftw_real tmp103;
- fftw_real tmp182;
- fftw_real tmp105;
- fftw_real tmp106;
- fftw_real tmp183;
- ASSERT_ALIGNED_DOUBLE;
- tmp102 = input[14 * istride];
- tmp103 = input[78 * istride];
- tmp182 = tmp102 - tmp103;
- tmp105 = input[110 * istride];
- tmp106 = input[46 * istride];
- tmp183 = tmp105 - tmp106;
- tmp104 = tmp102 + tmp103;
- tmp194 = K707106781 * (tmp183 - tmp182);
- tmp184 = K707106781 * (tmp182 + tmp183);
- tmp107 = tmp105 + tmp106;
- }
- {
- fftw_real tmp110;
- fftw_real tmp111;
- fftw_real tmp113;
- fftw_real tmp114;
- ASSERT_ALIGNED_DOUBLE;
- tmp110 = input[6 * istride];
- tmp111 = input[70 * istride];
- tmp112 = tmp110 + tmp111;
- tmp186 = tmp110 - tmp111;
- tmp113 = input[38 * istride];
- tmp114 = input[102 * istride];
- tmp115 = tmp113 + tmp114;
- tmp187 = tmp113 - tmp114;
- }
- tmp188 = (K923879532 * tmp186) - (K382683432 * tmp187);
- tmp198 = (K382683432 * tmp186) + (K923879532 * tmp187);
- tmp806 = tmp112 - tmp115;
- }
- {
- fftw_real tmp101;
- fftw_real tmp108;
- fftw_real tmp805;
- fftw_real tmp808;
- ASSERT_ALIGNED_DOUBLE;
- tmp101 = tmp97 + tmp100;
- tmp108 = tmp104 + tmp107;
- tmp109 = tmp101 + tmp108;
- tmp633 = tmp101 - tmp108;
- tmp805 = tmp97 - tmp100;
- tmp808 = K707106781 * (tmp806 + tmp807);
- tmp809 = tmp805 + tmp808;
- tmp900 = tmp805 - tmp808;
- }
- {
- fftw_real tmp810;
- fftw_real tmp811;
- fftw_real tmp482;
- fftw_real tmp483;
- ASSERT_ALIGNED_DOUBLE;
- tmp810 = tmp107 - tmp104;
- tmp811 = K707106781 * (tmp807 - tmp806);
- tmp812 = tmp810 + tmp811;
- tmp901 = tmp811 - tmp810;
- tmp482 = tmp195 + tmp194;
- tmp483 = tmp191 - tmp188;
- tmp484 = tmp482 + tmp483;
- tmp569 = tmp483 - tmp482;
- }
- {
- fftw_real tmp185;
- fftw_real tmp192;
- fftw_real tmp479;
- fftw_real tmp480;
- ASSERT_ALIGNED_DOUBLE;
- tmp185 = tmp181 + tmp184;
- tmp192 = tmp188 + tmp191;
- tmp193 = tmp185 + tmp192;
- tmp405 = tmp185 - tmp192;
- tmp479 = tmp181 - tmp184;
- tmp480 = tmp198 + tmp197;
- tmp481 = tmp479 + tmp480;
- tmp568 = tmp479 - tmp480;
- }
- {
- fftw_real tmp196;
- fftw_real tmp199;
- fftw_real tmp116;
- fftw_real tmp123;
- ASSERT_ALIGNED_DOUBLE;
- tmp196 = tmp194 - tmp195;
- tmp199 = tmp197 - tmp198;
- tmp200 = tmp196 + tmp199;
- tmp404 = tmp199 - tmp196;
- tmp116 = tmp112 + tmp115;
- tmp123 = tmp119 + tmp122;
- tmp124 = tmp116 + tmp123;
- tmp634 = tmp123 - tmp116;
- }
- }
- {
- fftw_real tmp66;
- fftw_real tmp173;
- fftw_real tmp88;
- fftw_real tmp91;
- fftw_real tmp167;
- fftw_real tmp177;
- fftw_real tmp798;
- fftw_real tmp69;
- fftw_real tmp163;
- fftw_real tmp73;
- fftw_real tmp174;
- fftw_real tmp162;
- fftw_real tmp76;
- fftw_real tmp81;
- fftw_real tmp84;
- fftw_real tmp170;
- fftw_real tmp176;
- fftw_real tmp797;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp64;
- fftw_real tmp65;
- fftw_real tmp165;
- fftw_real tmp166;
- ASSERT_ALIGNED_DOUBLE;
- tmp64 = input[2 * istride];
- tmp65 = input[66 * istride];
- tmp66 = tmp64 + tmp65;
- tmp173 = tmp64 - tmp65;
- {
- fftw_real tmp86;
- fftw_real tmp87;
- fftw_real tmp89;
- fftw_real tmp90;
- ASSERT_ALIGNED_DOUBLE;
- tmp86 = input[122 * istride];
- tmp87 = input[58 * istride];
- tmp88 = tmp86 + tmp87;
- tmp165 = tmp86 - tmp87;
- tmp89 = input[26 * istride];
- tmp90 = input[90 * istride];
- tmp91 = tmp89 + tmp90;
- tmp166 = tmp89 - tmp90;
- }
- tmp167 = (K382683432 * tmp165) - (K923879532 * tmp166);
- tmp177 = (K923879532 * tmp165) + (K382683432 * tmp166);
- tmp798 = tmp88 - tmp91;
- }
- {
- fftw_real tmp67;
- fftw_real tmp68;
- fftw_real tmp168;
- fftw_real tmp169;
- ASSERT_ALIGNED_DOUBLE;
- tmp67 = input[34 * istride];
- tmp68 = input[98 * istride];
- tmp69 = tmp67 + tmp68;
- tmp163 = tmp67 - tmp68;
- {
- fftw_real tmp71;
- fftw_real tmp72;
- fftw_real tmp161;
- fftw_real tmp74;
- fftw_real tmp75;
- fftw_real tmp160;
- ASSERT_ALIGNED_DOUBLE;
- tmp71 = input[18 * istride];
- tmp72 = input[82 * istride];
- tmp161 = tmp71 - tmp72;
- tmp74 = input[114 * istride];
- tmp75 = input[50 * istride];
- tmp160 = tmp74 - tmp75;
- tmp73 = tmp71 + tmp72;
- tmp174 = K707106781 * (tmp161 + tmp160);
- tmp162 = K707106781 * (tmp160 - tmp161);
- tmp76 = tmp74 + tmp75;
- }
- {
- fftw_real tmp79;
- fftw_real tmp80;
- fftw_real tmp82;
- fftw_real tmp83;
- ASSERT_ALIGNED_DOUBLE;
- tmp79 = input[10 * istride];
- tmp80 = input[74 * istride];
- tmp81 = tmp79 + tmp80;
- tmp168 = tmp79 - tmp80;
- tmp82 = input[42 * istride];
- tmp83 = input[106 * istride];
- tmp84 = tmp82 + tmp83;
- tmp169 = tmp82 - tmp83;
- }
- tmp170 = (K382683432 * tmp168) + (K923879532 * tmp169);
- tmp176 = (K923879532 * tmp168) - (K382683432 * tmp169);
- tmp797 = tmp81 - tmp84;
- }
- {
- fftw_real tmp70;
- fftw_real tmp77;
- fftw_real tmp796;
- fftw_real tmp799;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = tmp66 + tmp69;
- tmp77 = tmp73 + tmp76;
- tmp78 = tmp70 + tmp77;
- tmp630 = tmp70 - tmp77;
- tmp796 = tmp66 - tmp69;
- tmp799 = K707106781 * (tmp797 + tmp798);
- tmp800 = tmp796 + tmp799;
- tmp904 = tmp796 - tmp799;
- }
- {
- fftw_real tmp801;
- fftw_real tmp802;
- fftw_real tmp475;
- fftw_real tmp476;
- ASSERT_ALIGNED_DOUBLE;
- tmp801 = tmp76 - tmp73;
- tmp802 = K707106781 * (tmp798 - tmp797);
- tmp803 = tmp801 + tmp802;
- tmp903 = tmp802 - tmp801;
- tmp475 = tmp163 + tmp162;
- tmp476 = tmp177 - tmp176;
- tmp477 = tmp475 + tmp476;
- tmp571 = tmp476 - tmp475;
- }
- {
- fftw_real tmp164;
- fftw_real tmp171;
- fftw_real tmp472;
- fftw_real tmp473;
- ASSERT_ALIGNED_DOUBLE;
- tmp164 = tmp162 - tmp163;
- tmp171 = tmp167 - tmp170;
- tmp172 = tmp164 + tmp171;
- tmp407 = tmp171 - tmp164;
- tmp472 = tmp173 - tmp174;
- tmp473 = tmp170 + tmp167;
- tmp474 = tmp472 + tmp473;
- tmp572 = tmp472 - tmp473;
- }
- {
- fftw_real tmp175;
- fftw_real tmp178;
- fftw_real tmp85;
- fftw_real tmp92;
- ASSERT_ALIGNED_DOUBLE;
- tmp175 = tmp173 + tmp174;
- tmp178 = tmp176 + tmp177;
- tmp179 = tmp175 + tmp178;
- tmp408 = tmp175 - tmp178;
- tmp85 = tmp81 + tmp84;
- tmp92 = tmp88 + tmp91;
- tmp93 = tmp85 + tmp92;
- tmp631 = tmp92 - tmp85;
- }
- }
- {
- fftw_real tmp206;
- fftw_real tmp638;
- fftw_real tmp270;
- fftw_real tmp639;
- fftw_real tmp213;
- fftw_real tmp267;
- fftw_real tmp641;
- fftw_real tmp642;
- fftw_real tmp664;
- fftw_real tmp665;
- fftw_real tmp221;
- fftw_real tmp273;
- fftw_real tmp817;
- fftw_real tmp661;
- fftw_real tmp662;
- fftw_real tmp228;
- fftw_real tmp272;
- fftw_real tmp818;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp204;
- fftw_real tmp205;
- fftw_real tmp268;
- fftw_real tmp269;
- ASSERT_ALIGNED_DOUBLE;
- tmp204 = input[istride];
- tmp205 = input[65 * istride];
- tmp206 = tmp204 - tmp205;
- tmp638 = tmp204 + tmp205;
- tmp268 = input[33 * istride];
- tmp269 = input[97 * istride];
- tmp270 = tmp268 - tmp269;
- tmp639 = tmp268 + tmp269;
- }
- {
- fftw_real tmp207;
- fftw_real tmp208;
- fftw_real tmp209;
- fftw_real tmp210;
- fftw_real tmp211;
- fftw_real tmp212;
- ASSERT_ALIGNED_DOUBLE;
- tmp207 = input[17 * istride];
- tmp208 = input[81 * istride];
- tmp209 = tmp207 - tmp208;
- tmp210 = input[113 * istride];
- tmp211 = input[49 * istride];
- tmp212 = tmp210 - tmp211;
- tmp213 = K707106781 * (tmp209 + tmp212);
- tmp267 = K707106781 * (tmp212 - tmp209);
- tmp641 = tmp207 + tmp208;
- tmp642 = tmp210 + tmp211;
- }
- {
- fftw_real tmp217;
- fftw_real tmp220;
- fftw_real tmp224;
- fftw_real tmp227;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp215;
- fftw_real tmp216;
- fftw_real tmp218;
- fftw_real tmp219;
- ASSERT_ALIGNED_DOUBLE;
- tmp215 = input[9 * istride];
- tmp216 = input[73 * istride];
- tmp217 = tmp215 - tmp216;
- tmp664 = tmp215 + tmp216;
- tmp218 = input[41 * istride];
- tmp219 = input[105 * istride];
- tmp220 = tmp218 - tmp219;
- tmp665 = tmp218 + tmp219;
- }
- tmp221 = (K923879532 * tmp217) - (K382683432 * tmp220);
- tmp273 = (K382683432 * tmp217) + (K923879532 * tmp220);
- tmp817 = tmp664 - tmp665;
- {
- fftw_real tmp222;
- fftw_real tmp223;
- fftw_real tmp225;
- fftw_real tmp226;
- ASSERT_ALIGNED_DOUBLE;
- tmp222 = input[121 * istride];
- tmp223 = input[57 * istride];
- tmp224 = tmp222 - tmp223;
- tmp661 = tmp222 + tmp223;
- tmp225 = input[25 * istride];
- tmp226 = input[89 * istride];
- tmp227 = tmp225 - tmp226;
- tmp662 = tmp225 + tmp226;
- }
- tmp228 = (K923879532 * tmp224) + (K382683432 * tmp227);
- tmp272 = (K382683432 * tmp224) - (K923879532 * tmp227);
- tmp818 = tmp661 - tmp662;
- }
- {
- fftw_real tmp214;
- fftw_real tmp229;
- fftw_real tmp488;
- fftw_real tmp489;
- ASSERT_ALIGNED_DOUBLE;
- tmp214 = tmp206 + tmp213;
- tmp229 = tmp221 + tmp228;
- tmp230 = tmp214 + tmp229;
- tmp415 = tmp214 - tmp229;
- tmp488 = tmp206 - tmp213;
- tmp489 = tmp273 + tmp272;
- tmp490 = tmp488 + tmp489;
- tmp579 = tmp488 - tmp489;
- }
- {
- fftw_real tmp271;
- fftw_real tmp274;
- fftw_real tmp499;
- fftw_real tmp500;
- ASSERT_ALIGNED_DOUBLE;
- tmp271 = tmp267 - tmp270;
- tmp274 = tmp272 - tmp273;
- tmp275 = tmp271 + tmp274;
- tmp413 = tmp274 - tmp271;
- tmp499 = tmp270 + tmp267;
- tmp500 = tmp228 - tmp221;
- tmp501 = tmp499 + tmp500;
- tmp577 = tmp500 - tmp499;
- }
- {
- fftw_real tmp640;
- fftw_real tmp643;
- fftw_real tmp816;
- fftw_real tmp819;
- ASSERT_ALIGNED_DOUBLE;
- tmp640 = tmp638 + tmp639;
- tmp643 = tmp641 + tmp642;
- tmp644 = tmp640 - tmp643;
- tmp740 = tmp640 + tmp643;
- tmp816 = tmp638 - tmp639;
- tmp819 = K707106781 * (tmp817 + tmp818);
- tmp820 = tmp816 + tmp819;
- tmp911 = tmp816 - tmp819;
- }
- {
- fftw_real tmp829;
- fftw_real tmp830;
- fftw_real tmp663;
- fftw_real tmp666;
- ASSERT_ALIGNED_DOUBLE;
- tmp829 = tmp642 - tmp641;
- tmp830 = K707106781 * (tmp818 - tmp817);
- tmp831 = tmp829 + tmp830;
- tmp909 = tmp830 - tmp829;
- tmp663 = tmp661 + tmp662;
- tmp666 = tmp664 + tmp665;
- tmp667 = tmp663 - tmp666;
- tmp741 = tmp666 + tmp663;
- }
- }
- {
- fftw_real tmp233;
- fftw_real tmp821;
- fftw_real tmp647;
- fftw_real tmp245;
- fftw_real tmp257;
- fftw_real tmp259;
- fftw_real tmp657;
- fftw_real tmp825;
- fftw_real tmp250;
- fftw_real tmp824;
- fftw_real tmp654;
- fftw_real tmp262;
- fftw_real tmp240;
- fftw_real tmp242;
- fftw_real tmp650;
- fftw_real tmp822;
- fftw_real tmp491;
- fftw_real tmp492;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp231;
- fftw_real tmp232;
- fftw_real tmp645;
- fftw_real tmp243;
- fftw_real tmp244;
- fftw_real tmp646;
- ASSERT_ALIGNED_DOUBLE;
- tmp231 = input[5 * istride];
- tmp232 = input[69 * istride];
- tmp645 = tmp231 + tmp232;
- tmp243 = input[37 * istride];
- tmp244 = input[101 * istride];
- tmp646 = tmp243 + tmp244;
- tmp233 = tmp231 - tmp232;
- tmp821 = tmp645 - tmp646;
- tmp647 = tmp645 + tmp646;
- tmp245 = tmp243 - tmp244;
- }
- {
- fftw_real tmp253;
- fftw_real tmp655;
- fftw_real tmp256;
- fftw_real tmp656;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp251;
- fftw_real tmp252;
- fftw_real tmp254;
- fftw_real tmp255;
- ASSERT_ALIGNED_DOUBLE;
- tmp251 = input[13 * istride];
- tmp252 = input[77 * istride];
- tmp253 = tmp251 - tmp252;
- tmp655 = tmp251 + tmp252;
- tmp254 = input[109 * istride];
- tmp255 = input[45 * istride];
- tmp256 = tmp254 - tmp255;
- tmp656 = tmp254 + tmp255;
- }
- tmp257 = K707106781 * (tmp253 + tmp256);
- tmp259 = K707106781 * (tmp256 - tmp253);
- tmp657 = tmp655 + tmp656;
- tmp825 = tmp656 - tmp655;
- }
- {
- fftw_real tmp248;
- fftw_real tmp249;
- fftw_real tmp652;
- fftw_real tmp260;
- fftw_real tmp261;
- fftw_real tmp653;
- ASSERT_ALIGNED_DOUBLE;
- tmp248 = input[125 * istride];
- tmp249 = input[61 * istride];
- tmp652 = tmp248 + tmp249;
- tmp260 = input[29 * istride];
- tmp261 = input[93 * istride];
- tmp653 = tmp260 + tmp261;
- tmp250 = tmp248 - tmp249;
- tmp824 = tmp652 - tmp653;
- tmp654 = tmp652 + tmp653;
- tmp262 = tmp260 - tmp261;
- }
- {
- fftw_real tmp236;
- fftw_real tmp648;
- fftw_real tmp239;
- fftw_real tmp649;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp234;
- fftw_real tmp235;
- fftw_real tmp237;
- fftw_real tmp238;
- ASSERT_ALIGNED_DOUBLE;
- tmp234 = input[21 * istride];
- tmp235 = input[85 * istride];
- tmp236 = tmp234 - tmp235;
- tmp648 = tmp234 + tmp235;
- tmp237 = input[117 * istride];
- tmp238 = input[53 * istride];
- tmp239 = tmp237 - tmp238;
- tmp649 = tmp237 + tmp238;
- }
- tmp240 = K707106781 * (tmp236 + tmp239);
- tmp242 = K707106781 * (tmp239 - tmp236);
- tmp650 = tmp648 + tmp649;
- tmp822 = tmp649 - tmp648;
- }
- {
- fftw_real tmp651;
- fftw_real tmp658;
- fftw_real tmp832;
- fftw_real tmp833;
- ASSERT_ALIGNED_DOUBLE;
- tmp743 = tmp647 + tmp650;
- tmp651 = tmp647 - tmp650;
- tmp658 = tmp654 - tmp657;
- tmp659 = K707106781 * (tmp651 + tmp658);
- tmp668 = K707106781 * (tmp658 - tmp651);
- tmp744 = tmp654 + tmp657;
- tmp832 = (K923879532 * tmp822) - (K382683432 * tmp821);
- tmp833 = (K382683432 * tmp824) + (K923879532 * tmp825);
- tmp834 = tmp832 + tmp833;
- tmp912 = tmp833 - tmp832;
- }
- {
- fftw_real tmp823;
- fftw_real tmp826;
- fftw_real tmp241;
- fftw_real tmp246;
- ASSERT_ALIGNED_DOUBLE;
- tmp823 = (K923879532 * tmp821) + (K382683432 * tmp822);
- tmp826 = (K923879532 * tmp824) - (K382683432 * tmp825);
- tmp827 = tmp823 + tmp826;
- tmp908 = tmp826 - tmp823;
- tmp241 = tmp233 + tmp240;
- tmp246 = tmp242 - tmp245;
- tmp247 = (K980785280 * tmp241) + (K195090322 * tmp246);
- tmp276 = (K980785280 * tmp246) - (K195090322 * tmp241);
- }
- tmp491 = tmp233 - tmp240;
- tmp492 = tmp245 + tmp242;
- tmp493 = (K831469612 * tmp491) + (K555570233 * tmp492);
- tmp502 = (K831469612 * tmp492) - (K555570233 * tmp491);
- {
- fftw_real tmp494;
- fftw_real tmp495;
- fftw_real tmp258;
- fftw_real tmp263;
- ASSERT_ALIGNED_DOUBLE;
- tmp494 = tmp250 - tmp257;
- tmp495 = tmp262 + tmp259;
- tmp496 = (K831469612 * tmp494) - (K555570233 * tmp495);
- tmp503 = (K555570233 * tmp494) + (K831469612 * tmp495);
- tmp258 = tmp250 + tmp257;
- tmp263 = tmp259 - tmp262;
- tmp264 = (K980785280 * tmp258) - (K195090322 * tmp263);
- tmp277 = (K195090322 * tmp258) + (K980785280 * tmp263);
- }
- }
- {
- fftw_real tmp63;
- fftw_real tmp739;
- fftw_real tmp753;
- fftw_real tmp759;
- fftw_real tmp126;
- fftw_real tmp755;
- fftw_real tmp746;
- fftw_real tmp758;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp31;
- fftw_real tmp62;
- fftw_real tmp749;
- fftw_real tmp752;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = tmp15 + tmp30;
- tmp62 = tmp46 + tmp61;
- tmp63 = tmp31 + tmp62;
- tmp739 = tmp31 - tmp62;
- tmp749 = tmp747 + tmp748;
- tmp752 = tmp750 + tmp751;
- tmp753 = tmp749 - tmp752;
- tmp759 = tmp749 + tmp752;
- }
- {
- fftw_real tmp94;
- fftw_real tmp125;
- fftw_real tmp742;
- fftw_real tmp745;
- ASSERT_ALIGNED_DOUBLE;
- tmp94 = tmp78 + tmp93;
- tmp125 = tmp109 + tmp124;
- tmp126 = tmp94 + tmp125;
- tmp755 = tmp125 - tmp94;
- tmp742 = tmp740 + tmp741;
- tmp745 = tmp743 + tmp744;
- tmp746 = tmp742 - tmp745;
- tmp758 = tmp742 + tmp745;
- }
- {
- fftw_real tmp757;
- fftw_real tmp760;
- fftw_real tmp754;
- fftw_real tmp756;
- ASSERT_ALIGNED_DOUBLE;
- real_output[32 * real_ostride] = tmp63 - tmp126;
- tmp757 = tmp63 + tmp126;
- tmp760 = tmp758 + tmp759;
- real_output[64 * real_ostride] = tmp757 - tmp760;
- real_output[0] = tmp757 + tmp760;
- imag_output[32 * imag_ostride] = tmp759 - tmp758;
- tmp754 = K707106781 * (tmp746 + tmp753);
- real_output[48 * real_ostride] = tmp739 - tmp754;
- real_output[16 * real_ostride] = tmp739 + tmp754;
- tmp756 = K707106781 * (tmp753 - tmp746);
- imag_output[16 * imag_ostride] = tmp755 + tmp756;
- imag_output[48 * imag_ostride] = tmp756 - tmp755;
- }
- }
- {
- fftw_real tmp761;
- fftw_real tmp774;
- fftw_real tmp764;
- fftw_real tmp773;
- fftw_real tmp768;
- fftw_real tmp778;
- fftw_real tmp771;
- fftw_real tmp779;
- fftw_real tmp762;
- fftw_real tmp763;
- ASSERT_ALIGNED_DOUBLE;
- tmp761 = tmp15 - tmp30;
- tmp774 = tmp61 - tmp46;
- tmp762 = tmp78 - tmp93;
- tmp763 = tmp109 - tmp124;
- tmp764 = K707106781 * (tmp762 + tmp763);
- tmp773 = K707106781 * (tmp763 - tmp762);
- {
- fftw_real tmp766;
- fftw_real tmp767;
- fftw_real tmp769;
- fftw_real tmp770;
- ASSERT_ALIGNED_DOUBLE;
- tmp766 = tmp740 - tmp741;
- tmp767 = tmp744 - tmp743;
- tmp768 = (K923879532 * tmp766) + (K382683432 * tmp767);
- tmp778 = (K923879532 * tmp767) - (K382683432 * tmp766);
- tmp769 = tmp747 - tmp748;
- tmp770 = tmp751 - tmp750;
- tmp771 = (K923879532 * tmp769) - (K382683432 * tmp770);
- tmp779 = (K382683432 * tmp769) + (K923879532 * tmp770);
- }
- {
- fftw_real tmp765;
- fftw_real tmp772;
- fftw_real tmp781;
- fftw_real tmp782;
- ASSERT_ALIGNED_DOUBLE;
- tmp765 = tmp761 + tmp764;
- tmp772 = tmp768 + tmp771;
- real_output[56 * real_ostride] = tmp765 - tmp772;
- real_output[8 * real_ostride] = tmp765 + tmp772;
- tmp781 = tmp761 - tmp764;
- tmp782 = tmp779 - tmp778;
- real_output[40 * real_ostride] = tmp781 - tmp782;
- real_output[24 * real_ostride] = tmp781 + tmp782;
- }
- {
- fftw_real tmp777;
- fftw_real tmp780;
- fftw_real tmp775;
- fftw_real tmp776;
- ASSERT_ALIGNED_DOUBLE;
- tmp777 = tmp774 + tmp773;
- tmp780 = tmp778 + tmp779;
- imag_output[8 * imag_ostride] = tmp777 + tmp780;
- imag_output[56 * imag_ostride] = tmp780 - tmp777;
- tmp775 = tmp773 - tmp774;
- tmp776 = tmp771 - tmp768;
- imag_output[24 * imag_ostride] = tmp775 + tmp776;
- imag_output[40 * imag_ostride] = tmp776 - tmp775;
- }
- }
- {
- fftw_real tmp159;
- fftw_real tmp381;
- fftw_real tmp202;
- fftw_real tmp391;
- fftw_real tmp372;
- fftw_real tmp392;
- fftw_real tmp361;
- fftw_real tmp382;
- fftw_real tmp357;
- fftw_real tmp377;
- fftw_real tmp389;
- fftw_real tmp397;
- fftw_real tmp280;
- fftw_real tmp376;
- fftw_real tmp386;
- fftw_real tmp396;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp139;
- fftw_real tmp158;
- fftw_real tmp359;
- fftw_real tmp360;
- ASSERT_ALIGNED_DOUBLE;
- tmp139 = tmp131 + tmp138;
- tmp158 = tmp148 + tmp157;
- tmp159 = tmp139 + tmp158;
- tmp381 = tmp139 - tmp158;
- {
- fftw_real tmp180;
- fftw_real tmp201;
- fftw_real tmp368;
- fftw_real tmp371;
- ASSERT_ALIGNED_DOUBLE;
- tmp180 = (K098017140 * tmp172) + (K995184726 * tmp179);
- tmp201 = (K995184726 * tmp193) - (K098017140 * tmp200);
- tmp202 = tmp180 + tmp201;
- tmp391 = tmp201 - tmp180;
- tmp368 = tmp364 + tmp367;
- tmp371 = tmp369 + tmp370;
- tmp372 = tmp368 + tmp371;
- tmp392 = tmp371 - tmp368;
- }
- tmp359 = (K995184726 * tmp172) - (K098017140 * tmp179);
- tmp360 = (K995184726 * tmp200) + (K098017140 * tmp193);
- tmp361 = tmp359 + tmp360;
- tmp382 = tmp360 - tmp359;
- {
- fftw_real tmp343;
- fftw_real tmp387;
- fftw_real tmp356;
- fftw_real tmp388;
- fftw_real tmp342;
- fftw_real tmp355;
- ASSERT_ALIGNED_DOUBLE;
- tmp342 = tmp324 + tmp341;
- tmp343 = tmp307 + tmp342;
- tmp387 = tmp307 - tmp342;
- tmp355 = tmp353 + tmp354;
- tmp356 = tmp352 + tmp355;
- tmp388 = tmp355 - tmp352;
- tmp357 = (K998795456 * tmp343) - (K049067674 * tmp356);
- tmp377 = (K049067674 * tmp343) + (K998795456 * tmp356);
- tmp389 = (K740951125 * tmp387) - (K671558954 * tmp388);
- tmp397 = (K671558954 * tmp387) + (K740951125 * tmp388);
- }
- {
- fftw_real tmp266;
- fftw_real tmp384;
- fftw_real tmp279;
- fftw_real tmp385;
- fftw_real tmp265;
- fftw_real tmp278;
- ASSERT_ALIGNED_DOUBLE;
- tmp265 = tmp247 + tmp264;
- tmp266 = tmp230 + tmp265;
- tmp384 = tmp230 - tmp265;
- tmp278 = tmp276 + tmp277;
- tmp279 = tmp275 + tmp278;
- tmp385 = tmp278 - tmp275;
- tmp280 = (K998795456 * tmp266) + (K049067674 * tmp279);
- tmp376 = (K998795456 * tmp279) - (K049067674 * tmp266);
- tmp386 = (K740951125 * tmp384) + (K671558954 * tmp385);
- tmp396 = (K740951125 * tmp385) - (K671558954 * tmp384);
- }
- }
- {
- fftw_real tmp203;
- fftw_real tmp358;
- fftw_real tmp373;
- fftw_real tmp374;
- ASSERT_ALIGNED_DOUBLE;
- tmp203 = tmp159 + tmp202;
- tmp358 = tmp280 + tmp357;
- real_output[63 * real_ostride] = tmp203 - tmp358;
- real_output[real_ostride] = tmp203 + tmp358;
- tmp373 = tmp361 - tmp372;
- tmp374 = tmp357 - tmp280;
- imag_output[31 * imag_ostride] = tmp373 + tmp374;
- imag_output[33 * imag_ostride] = tmp374 - tmp373;
- }
- {
- fftw_real tmp375;
- fftw_real tmp378;
- fftw_real tmp379;
- fftw_real tmp380;
- ASSERT_ALIGNED_DOUBLE;
- tmp375 = tmp372 + tmp361;
- tmp378 = tmp376 + tmp377;
- imag_output[imag_ostride] = tmp375 + tmp378;
- imag_output[63 * imag_ostride] = tmp378 - tmp375;
- tmp379 = tmp159 - tmp202;
- tmp380 = tmp377 - tmp376;
- real_output[33 * real_ostride] = tmp379 - tmp380;
- real_output[31 * real_ostride] = tmp379 + tmp380;
- }
- {
- fftw_real tmp383;
- fftw_real tmp390;
- fftw_real tmp393;
- fftw_real tmp394;
- ASSERT_ALIGNED_DOUBLE;
- tmp383 = tmp381 + tmp382;
- tmp390 = tmp386 + tmp389;
- real_output[49 * real_ostride] = tmp383 - tmp390;
- real_output[15 * real_ostride] = tmp383 + tmp390;
- tmp393 = tmp391 - tmp392;
- tmp394 = tmp389 - tmp386;
- imag_output[17 * imag_ostride] = tmp393 + tmp394;
- imag_output[47 * imag_ostride] = tmp394 - tmp393;
- }
- {
- fftw_real tmp395;
- fftw_real tmp398;
- fftw_real tmp399;
- fftw_real tmp400;
- ASSERT_ALIGNED_DOUBLE;
- tmp395 = tmp392 + tmp391;
- tmp398 = tmp396 + tmp397;
- imag_output[15 * imag_ostride] = tmp395 + tmp398;
- imag_output[49 * imag_ostride] = tmp398 - tmp395;
- tmp399 = tmp381 - tmp382;
- tmp400 = tmp397 - tmp396;
- real_output[47 * real_ostride] = tmp399 - tmp400;
- real_output[17 * real_ostride] = tmp399 + tmp400;
- }
- }
- {
- fftw_real tmp403;
- fftw_real tmp441;
- fftw_real tmp410;
- fftw_real tmp451;
- fftw_real tmp432;
- fftw_real tmp452;
- fftw_real tmp429;
- fftw_real tmp442;
- fftw_real tmp425;
- fftw_real tmp437;
- fftw_real tmp449;
- fftw_real tmp457;
- fftw_real tmp418;
- fftw_real tmp436;
- fftw_real tmp446;
- fftw_real tmp456;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp401;
- fftw_real tmp402;
- fftw_real tmp427;
- fftw_real tmp428;
- ASSERT_ALIGNED_DOUBLE;
- tmp401 = tmp131 - tmp138;
- tmp402 = tmp370 - tmp369;
- tmp403 = tmp401 - tmp402;
- tmp441 = tmp401 + tmp402;
- {
- fftw_real tmp406;
- fftw_real tmp409;
- fftw_real tmp430;
- fftw_real tmp431;
- ASSERT_ALIGNED_DOUBLE;
- tmp406 = (K773010453 * tmp404) + (K634393284 * tmp405);
- tmp409 = (K773010453 * tmp407) - (K634393284 * tmp408);
- tmp410 = tmp406 - tmp409;
- tmp451 = tmp409 + tmp406;
- tmp430 = tmp157 - tmp148;
- tmp431 = tmp367 - tmp364;
- tmp432 = tmp430 - tmp431;
- tmp452 = tmp431 + tmp430;
- }
- tmp427 = (K773010453 * tmp405) - (K634393284 * tmp404);
- tmp428 = (K634393284 * tmp407) + (K773010453 * tmp408);
- tmp429 = tmp427 - tmp428;
- tmp442 = tmp428 + tmp427;
- {
- fftw_real tmp421;
- fftw_real tmp447;
- fftw_real tmp424;
- fftw_real tmp448;
- fftw_real tmp420;
- fftw_real tmp422;
- ASSERT_ALIGNED_DOUBLE;
- tmp420 = tmp354 - tmp353;
- tmp421 = tmp419 - tmp420;
- tmp447 = tmp419 + tmp420;
- tmp422 = tmp341 - tmp324;
- tmp424 = tmp422 - tmp423;
- tmp448 = tmp423 + tmp422;
- tmp425 = (K903989293 * tmp421) - (K427555093 * tmp424);
- tmp437 = (K903989293 * tmp424) + (K427555093 * tmp421);
- tmp449 = (K941544065 * tmp447) - (K336889853 * tmp448);
- tmp457 = (K941544065 * tmp448) + (K336889853 * tmp447);
- }
- {
- fftw_real tmp414;
- fftw_real tmp444;
- fftw_real tmp417;
- fftw_real tmp445;
- fftw_real tmp412;
- fftw_real tmp416;
- ASSERT_ALIGNED_DOUBLE;
- tmp412 = tmp264 - tmp247;
- tmp414 = tmp412 - tmp413;
- tmp444 = tmp413 + tmp412;
- tmp416 = tmp277 - tmp276;
- tmp417 = tmp415 - tmp416;
- tmp445 = tmp415 + tmp416;
- tmp418 = (K427555093 * tmp414) + (K903989293 * tmp417);
- tmp436 = (K903989293 * tmp414) - (K427555093 * tmp417);
- tmp446 = (K336889853 * tmp444) + (K941544065 * tmp445);
- tmp456 = (K941544065 * tmp444) - (K336889853 * tmp445);
- }
- }
- {
- fftw_real tmp411;
- fftw_real tmp426;
- fftw_real tmp433;
- fftw_real tmp434;
- ASSERT_ALIGNED_DOUBLE;
- tmp411 = tmp403 + tmp410;
- tmp426 = tmp418 + tmp425;
- real_output[55 * real_ostride] = tmp411 - tmp426;
- real_output[9 * real_ostride] = tmp411 + tmp426;
- tmp433 = tmp429 - tmp432;
- tmp434 = tmp425 - tmp418;
- imag_output[23 * imag_ostride] = tmp433 + tmp434;
- imag_output[41 * imag_ostride] = tmp434 - tmp433;
- }
- {
- fftw_real tmp435;
- fftw_real tmp438;
- fftw_real tmp439;
- fftw_real tmp440;
- ASSERT_ALIGNED_DOUBLE;
- tmp435 = tmp432 + tmp429;
- tmp438 = tmp436 + tmp437;
- imag_output[9 * imag_ostride] = tmp435 + tmp438;
- imag_output[55 * imag_ostride] = tmp438 - tmp435;
- tmp439 = tmp403 - tmp410;
- tmp440 = tmp437 - tmp436;
- real_output[41 * real_ostride] = tmp439 - tmp440;
- real_output[23 * real_ostride] = tmp439 + tmp440;
- }
- {
- fftw_real tmp443;
- fftw_real tmp450;
- fftw_real tmp453;
- fftw_real tmp454;
- ASSERT_ALIGNED_DOUBLE;
- tmp443 = tmp441 + tmp442;
- tmp450 = tmp446 + tmp449;
- real_output[57 * real_ostride] = tmp443 - tmp450;
- real_output[7 * real_ostride] = tmp443 + tmp450;
- tmp453 = tmp451 - tmp452;
- tmp454 = tmp449 - tmp446;
- imag_output[25 * imag_ostride] = tmp453 + tmp454;
- imag_output[39 * imag_ostride] = tmp454 - tmp453;
- }
- {
- fftw_real tmp455;
- fftw_real tmp458;
- fftw_real tmp459;
- fftw_real tmp460;
- ASSERT_ALIGNED_DOUBLE;
- tmp455 = tmp452 + tmp451;
- tmp458 = tmp456 + tmp457;
- imag_output[7 * imag_ostride] = tmp455 + tmp458;
- imag_output[57 * imag_ostride] = tmp458 - tmp455;
- tmp459 = tmp441 - tmp442;
- tmp460 = tmp457 - tmp456;
- real_output[39 * real_ostride] = tmp459 - tmp460;
- real_output[25 * real_ostride] = tmp459 + tmp460;
- }
- }
- {
- fftw_real tmp629;
- fftw_real tmp719;
- fftw_real tmp710;
- fftw_real tmp730;
- fftw_real tmp636;
- fftw_real tmp729;
- fftw_real tmp707;
- fftw_real tmp720;
- fftw_real tmp670;
- fftw_real tmp714;
- fftw_real tmp724;
- fftw_real tmp734;
- fftw_real tmp703;
- fftw_real tmp715;
- fftw_real tmp727;
- fftw_real tmp735;
- fftw_real tmp628;
- fftw_real tmp709;
- ASSERT_ALIGNED_DOUBLE;
- tmp628 = K707106781 * (tmp626 + tmp627);
- tmp629 = tmp625 + tmp628;
- tmp719 = tmp625 - tmp628;
- tmp709 = K707106781 * (tmp627 - tmp626);
- tmp710 = tmp708 + tmp709;
- tmp730 = tmp709 - tmp708;
- {
- fftw_real tmp632;
- fftw_real tmp635;
- fftw_real tmp705;
- fftw_real tmp706;
- ASSERT_ALIGNED_DOUBLE;
- tmp632 = (K923879532 * tmp630) + (K382683432 * tmp631);
- tmp635 = (K923879532 * tmp633) - (K382683432 * tmp634);
- tmp636 = tmp632 + tmp635;
- tmp729 = tmp635 - tmp632;
- tmp705 = (K923879532 * tmp631) - (K382683432 * tmp630);
- tmp706 = (K382683432 * tmp633) + (K923879532 * tmp634);
- tmp707 = tmp705 + tmp706;
- tmp720 = tmp706 - tmp705;
- }
- {
- fftw_real tmp660;
- fftw_real tmp669;
- fftw_real tmp722;
- fftw_real tmp723;
- ASSERT_ALIGNED_DOUBLE;
- tmp660 = tmp644 + tmp659;
- tmp669 = tmp667 + tmp668;
- tmp670 = (K980785280 * tmp660) + (K195090322 * tmp669);
- tmp714 = (K980785280 * tmp669) - (K195090322 * tmp660);
- tmp722 = tmp644 - tmp659;
- tmp723 = tmp668 - tmp667;
- tmp724 = (K831469612 * tmp722) + (K555570233 * tmp723);
- tmp734 = (K831469612 * tmp723) - (K555570233 * tmp722);
- }
- {
- fftw_real tmp693;
- fftw_real tmp702;
- fftw_real tmp725;
- fftw_real tmp726;
- ASSERT_ALIGNED_DOUBLE;
- tmp693 = tmp677 + tmp692;
- tmp702 = tmp700 + tmp701;
- tmp703 = (K980785280 * tmp693) - (K195090322 * tmp702);
- tmp715 = (K195090322 * tmp693) + (K980785280 * tmp702);
- tmp725 = tmp677 - tmp692;
- tmp726 = tmp701 - tmp700;
- tmp727 = (K831469612 * tmp725) - (K555570233 * tmp726);
- tmp735 = (K555570233 * tmp725) + (K831469612 * tmp726);
- }
- {
- fftw_real tmp637;
- fftw_real tmp704;
- fftw_real tmp711;
- fftw_real tmp712;
- ASSERT_ALIGNED_DOUBLE;
- tmp637 = tmp629 + tmp636;
- tmp704 = tmp670 + tmp703;
- real_output[60 * real_ostride] = tmp637 - tmp704;
- real_output[4 * real_ostride] = tmp637 + tmp704;
- tmp711 = tmp707 - tmp710;
- tmp712 = tmp703 - tmp670;
- imag_output[28 * imag_ostride] = tmp711 + tmp712;
- imag_output[36 * imag_ostride] = tmp712 - tmp711;
- }
- {
- fftw_real tmp713;
- fftw_real tmp716;
- fftw_real tmp717;
- fftw_real tmp718;
- ASSERT_ALIGNED_DOUBLE;
- tmp713 = tmp710 + tmp707;
- tmp716 = tmp714 + tmp715;
- imag_output[4 * imag_ostride] = tmp713 + tmp716;
- imag_output[60 * imag_ostride] = tmp716 - tmp713;
- tmp717 = tmp629 - tmp636;
- tmp718 = tmp715 - tmp714;
- real_output[36 * real_ostride] = tmp717 - tmp718;
- real_output[28 * real_ostride] = tmp717 + tmp718;
- }
- {
- fftw_real tmp721;
- fftw_real tmp728;
- fftw_real tmp731;
- fftw_real tmp732;
- ASSERT_ALIGNED_DOUBLE;
- tmp721 = tmp719 + tmp720;
- tmp728 = tmp724 + tmp727;
- real_output[52 * real_ostride] = tmp721 - tmp728;
- real_output[12 * real_ostride] = tmp721 + tmp728;
- tmp731 = tmp729 - tmp730;
- tmp732 = tmp727 - tmp724;
- imag_output[20 * imag_ostride] = tmp731 + tmp732;
- imag_output[44 * imag_ostride] = tmp732 - tmp731;
- }
- {
- fftw_real tmp733;
- fftw_real tmp736;
- fftw_real tmp737;
- fftw_real tmp738;
- ASSERT_ALIGNED_DOUBLE;
- tmp733 = tmp730 + tmp729;
- tmp736 = tmp734 + tmp735;
- imag_output[12 * imag_ostride] = tmp733 + tmp736;
- imag_output[52 * imag_ostride] = tmp736 - tmp733;
- tmp737 = tmp719 - tmp720;
- tmp738 = tmp735 - tmp734;
- real_output[44 * real_ostride] = tmp737 - tmp738;
- real_output[20 * real_ostride] = tmp737 + tmp738;
- }
- }
- {
- fftw_real tmp795;
- fftw_real tmp877;
- fftw_real tmp882;
- fftw_real tmp892;
- fftw_real tmp885;
- fftw_real tmp893;
- fftw_real tmp857;
- fftw_real tmp873;
- fftw_real tmp836;
- fftw_real tmp872;
- fftw_real tmp861;
- fftw_real tmp878;
- fftw_real tmp814;
- fftw_real tmp887;
- fftw_real tmp868;
- fftw_real tmp888;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp787;
- fftw_real tmp794;
- fftw_real tmp880;
- fftw_real tmp881;
- ASSERT_ALIGNED_DOUBLE;
- tmp787 = tmp783 + tmp786;
- tmp794 = tmp790 + tmp793;
- tmp795 = tmp787 + tmp794;
- tmp877 = tmp787 - tmp794;
- tmp880 = tmp820 - tmp827;
- tmp881 = tmp834 - tmp831;
- tmp882 = (K773010453 * tmp880) + (K634393284 * tmp881);
- tmp892 = (K773010453 * tmp881) - (K634393284 * tmp880);
- }
- {
- fftw_real tmp883;
- fftw_real tmp884;
- fftw_real tmp849;
- fftw_real tmp856;
- ASSERT_ALIGNED_DOUBLE;
- tmp883 = tmp841 - tmp848;
- tmp884 = tmp855 - tmp852;
- tmp885 = (K773010453 * tmp883) - (K634393284 * tmp884);
- tmp893 = (K634393284 * tmp883) + (K773010453 * tmp884);
- tmp849 = tmp841 + tmp848;
- tmp856 = tmp852 + tmp855;
- tmp857 = (K995184726 * tmp849) - (K098017140 * tmp856);
- tmp873 = (K098017140 * tmp849) + (K995184726 * tmp856);
- }
- {
- fftw_real tmp828;
- fftw_real tmp835;
- fftw_real tmp859;
- fftw_real tmp860;
- ASSERT_ALIGNED_DOUBLE;
- tmp828 = tmp820 + tmp827;
- tmp835 = tmp831 + tmp834;
- tmp836 = (K995184726 * tmp828) + (K098017140 * tmp835);
- tmp872 = (K995184726 * tmp835) - (K098017140 * tmp828);
- tmp859 = (K980785280 * tmp803) - (K195090322 * tmp800);
- tmp860 = (K195090322 * tmp809) + (K980785280 * tmp812);
- tmp861 = tmp859 + tmp860;
- tmp878 = tmp860 - tmp859;
- }
- {
- fftw_real tmp804;
- fftw_real tmp813;
- fftw_real tmp864;
- fftw_real tmp867;
- ASSERT_ALIGNED_DOUBLE;
- tmp804 = (K980785280 * tmp800) + (K195090322 * tmp803);
- tmp813 = (K980785280 * tmp809) - (K195090322 * tmp812);
- tmp814 = tmp804 + tmp813;
- tmp887 = tmp813 - tmp804;
- tmp864 = tmp862 + tmp863;
- tmp867 = tmp865 + tmp866;
- tmp868 = tmp864 + tmp867;
- tmp888 = tmp867 - tmp864;
- }
- {
- fftw_real tmp815;
- fftw_real tmp858;
- fftw_real tmp869;
- fftw_real tmp870;
- ASSERT_ALIGNED_DOUBLE;
- tmp815 = tmp795 + tmp814;
- tmp858 = tmp836 + tmp857;
- real_output[62 * real_ostride] = tmp815 - tmp858;
- real_output[2 * real_ostride] = tmp815 + tmp858;
- tmp869 = tmp861 - tmp868;
- tmp870 = tmp857 - tmp836;
- imag_output[30 * imag_ostride] = tmp869 + tmp870;
- imag_output[34 * imag_ostride] = tmp870 - tmp869;
- }
- {
- fftw_real tmp871;
- fftw_real tmp874;
- fftw_real tmp875;
- fftw_real tmp876;
- ASSERT_ALIGNED_DOUBLE;
- tmp871 = tmp868 + tmp861;
- tmp874 = tmp872 + tmp873;
- imag_output[2 * imag_ostride] = tmp871 + tmp874;
- imag_output[62 * imag_ostride] = tmp874 - tmp871;
- tmp875 = tmp795 - tmp814;
- tmp876 = tmp873 - tmp872;
- real_output[34 * real_ostride] = tmp875 - tmp876;
- real_output[30 * real_ostride] = tmp875 + tmp876;
- }
- {
- fftw_real tmp879;
- fftw_real tmp886;
- fftw_real tmp889;
- fftw_real tmp890;
- ASSERT_ALIGNED_DOUBLE;
- tmp879 = tmp877 + tmp878;
- tmp886 = tmp882 + tmp885;
- real_output[50 * real_ostride] = tmp879 - tmp886;
- real_output[14 * real_ostride] = tmp879 + tmp886;
- tmp889 = tmp887 - tmp888;
- tmp890 = tmp885 - tmp882;
- imag_output[18 * imag_ostride] = tmp889 + tmp890;
- imag_output[46 * imag_ostride] = tmp890 - tmp889;
- }
- {
- fftw_real tmp891;
- fftw_real tmp894;
- fftw_real tmp895;
- fftw_real tmp896;
- ASSERT_ALIGNED_DOUBLE;
- tmp891 = tmp888 + tmp887;
- tmp894 = tmp892 + tmp893;
- imag_output[14 * imag_ostride] = tmp891 + tmp894;
- imag_output[50 * imag_ostride] = tmp894 - tmp891;
- tmp895 = tmp877 - tmp878;
- tmp896 = tmp893 - tmp892;
- real_output[46 * real_ostride] = tmp895 - tmp896;
- real_output[18 * real_ostride] = tmp895 + tmp896;
- }
- }
- {
- fftw_real tmp899;
- fftw_real tmp937;
- fftw_real tmp942;
- fftw_real tmp952;
- fftw_real tmp945;
- fftw_real tmp953;
- fftw_real tmp921;
- fftw_real tmp933;
- fftw_real tmp914;
- fftw_real tmp932;
- fftw_real tmp925;
- fftw_real tmp938;
- fftw_real tmp906;
- fftw_real tmp947;
- fftw_real tmp928;
- fftw_real tmp948;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp897;
- fftw_real tmp898;
- fftw_real tmp940;
- fftw_real tmp941;
- ASSERT_ALIGNED_DOUBLE;
- tmp897 = tmp783 - tmp786;
- tmp898 = tmp866 - tmp865;
- tmp899 = tmp897 - tmp898;
- tmp937 = tmp897 + tmp898;
- tmp940 = tmp909 + tmp908;
- tmp941 = tmp911 + tmp912;
- tmp942 = (K290284677 * tmp940) + (K956940335 * tmp941);
- tmp952 = (K956940335 * tmp940) - (K290284677 * tmp941);
- }
- {
- fftw_real tmp943;
- fftw_real tmp944;
- fftw_real tmp917;
- fftw_real tmp920;
- ASSERT_ALIGNED_DOUBLE;
- tmp943 = tmp915 + tmp916;
- tmp944 = tmp919 + tmp918;
- tmp945 = (K956940335 * tmp943) - (K290284677 * tmp944);
- tmp953 = (K956940335 * tmp944) + (K290284677 * tmp943);
- tmp917 = tmp915 - tmp916;
- tmp920 = tmp918 - tmp919;
- tmp921 = (K881921264 * tmp917) - (K471396736 * tmp920);
- tmp933 = (K881921264 * tmp920) + (K471396736 * tmp917);
- }
- {
- fftw_real tmp910;
- fftw_real tmp913;
- fftw_real tmp923;
- fftw_real tmp924;
- ASSERT_ALIGNED_DOUBLE;
- tmp910 = tmp908 - tmp909;
- tmp913 = tmp911 - tmp912;
- tmp914 = (K471396736 * tmp910) + (K881921264 * tmp913);
- tmp932 = (K881921264 * tmp910) - (K471396736 * tmp913);
- tmp923 = (K831469612 * tmp900) - (K555570233 * tmp901);
- tmp924 = (K831469612 * tmp904) + (K555570233 * tmp903);
- tmp925 = tmp923 - tmp924;
- tmp938 = tmp924 + tmp923;
- }
- {
- fftw_real tmp902;
- fftw_real tmp905;
- fftw_real tmp926;
- fftw_real tmp927;
- ASSERT_ALIGNED_DOUBLE;
- tmp902 = (K555570233 * tmp900) + (K831469612 * tmp901);
- tmp905 = (K831469612 * tmp903) - (K555570233 * tmp904);
- tmp906 = tmp902 - tmp905;
- tmp947 = tmp905 + tmp902;
- tmp926 = tmp793 - tmp790;
- tmp927 = tmp863 - tmp862;
- tmp928 = tmp926 - tmp927;
- tmp948 = tmp927 + tmp926;
- }
- {
- fftw_real tmp907;
- fftw_real tmp922;
- fftw_real tmp929;
- fftw_real tmp930;
- ASSERT_ALIGNED_DOUBLE;
- tmp907 = tmp899 + tmp906;
- tmp922 = tmp914 + tmp921;
- real_output[54 * real_ostride] = tmp907 - tmp922;
- real_output[10 * real_ostride] = tmp907 + tmp922;
- tmp929 = tmp925 - tmp928;
- tmp930 = tmp921 - tmp914;
- imag_output[22 * imag_ostride] = tmp929 + tmp930;
- imag_output[42 * imag_ostride] = tmp930 - tmp929;
- }
- {
- fftw_real tmp931;
- fftw_real tmp934;
- fftw_real tmp935;
- fftw_real tmp936;
- ASSERT_ALIGNED_DOUBLE;
- tmp931 = tmp928 + tmp925;
- tmp934 = tmp932 + tmp933;
- imag_output[10 * imag_ostride] = tmp931 + tmp934;
- imag_output[54 * imag_ostride] = tmp934 - tmp931;
- tmp935 = tmp899 - tmp906;
- tmp936 = tmp933 - tmp932;
- real_output[42 * real_ostride] = tmp935 - tmp936;
- real_output[22 * real_ostride] = tmp935 + tmp936;
- }
- {
- fftw_real tmp939;
- fftw_real tmp946;
- fftw_real tmp949;
- fftw_real tmp950;
- ASSERT_ALIGNED_DOUBLE;
- tmp939 = tmp937 + tmp938;
- tmp946 = tmp942 + tmp945;
- real_output[58 * real_ostride] = tmp939 - tmp946;
- real_output[6 * real_ostride] = tmp939 + tmp946;
- tmp949 = tmp947 - tmp948;
- tmp950 = tmp945 - tmp942;
- imag_output[26 * imag_ostride] = tmp949 + tmp950;
- imag_output[38 * imag_ostride] = tmp950 - tmp949;
- }
- {
- fftw_real tmp951;
- fftw_real tmp954;
- fftw_real tmp955;
- fftw_real tmp956;
- ASSERT_ALIGNED_DOUBLE;
- tmp951 = tmp948 + tmp947;
- tmp954 = tmp952 + tmp953;
- imag_output[6 * imag_ostride] = tmp951 + tmp954;
- imag_output[58 * imag_ostride] = tmp954 - tmp951;
- tmp955 = tmp937 - tmp938;
- tmp956 = tmp953 - tmp952;
- real_output[38 * real_ostride] = tmp955 - tmp956;
- real_output[26 * real_ostride] = tmp955 + tmp956;
- }
- }
- {
- fftw_real tmp471;
- fftw_real tmp545;
- fftw_real tmp486;
- fftw_real tmp555;
- fftw_real tmp536;
- fftw_real tmp556;
- fftw_real tmp529;
- fftw_real tmp546;
- fftw_real tmp525;
- fftw_real tmp541;
- fftw_real tmp553;
- fftw_real tmp561;
- fftw_real tmp506;
- fftw_real tmp540;
- fftw_real tmp550;
- fftw_real tmp560;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp463;
- fftw_real tmp470;
- fftw_real tmp527;
- fftw_real tmp528;
- ASSERT_ALIGNED_DOUBLE;
- tmp463 = tmp461 + tmp462;
- tmp470 = tmp466 + tmp469;
- tmp471 = tmp463 + tmp470;
- tmp545 = tmp463 - tmp470;
- {
- fftw_real tmp478;
- fftw_real tmp485;
- fftw_real tmp532;
- fftw_real tmp535;
- ASSERT_ALIGNED_DOUBLE;
- tmp478 = (K956940335 * tmp474) + (K290284677 * tmp477);
- tmp485 = (K956940335 * tmp481) - (K290284677 * tmp484);
- tmp486 = tmp478 + tmp485;
- tmp555 = tmp485 - tmp478;
- tmp532 = tmp530 + tmp531;
- tmp535 = tmp533 + tmp534;
- tmp536 = tmp532 + tmp535;
- tmp556 = tmp535 - tmp532;
- }
- tmp527 = (K956940335 * tmp477) - (K290284677 * tmp474);
- tmp528 = (K290284677 * tmp481) + (K956940335 * tmp484);
- tmp529 = tmp527 + tmp528;
- tmp546 = tmp528 - tmp527;
- {
- fftw_real tmp517;
- fftw_real tmp551;
- fftw_real tmp524;
- fftw_real tmp552;
- fftw_real tmp516;
- fftw_real tmp523;
- ASSERT_ALIGNED_DOUBLE;
- tmp516 = tmp512 + tmp515;
- tmp517 = tmp509 + tmp516;
- tmp551 = tmp509 - tmp516;
- tmp523 = tmp521 + tmp522;
- tmp524 = tmp520 + tmp523;
- tmp552 = tmp523 - tmp520;
- tmp525 = (K989176509 * tmp517) - (K146730474 * tmp524);
- tmp541 = (K146730474 * tmp517) + (K989176509 * tmp524);
- tmp553 = (K803207531 * tmp551) - (K595699304 * tmp552);
- tmp561 = (K595699304 * tmp551) + (K803207531 * tmp552);
- }
- {
- fftw_real tmp498;
- fftw_real tmp548;
- fftw_real tmp505;
- fftw_real tmp549;
- fftw_real tmp497;
- fftw_real tmp504;
- ASSERT_ALIGNED_DOUBLE;
- tmp497 = tmp493 + tmp496;
- tmp498 = tmp490 + tmp497;
- tmp548 = tmp490 - tmp497;
- tmp504 = tmp502 + tmp503;
- tmp505 = tmp501 + tmp504;
- tmp549 = tmp504 - tmp501;
- tmp506 = (K989176509 * tmp498) + (K146730474 * tmp505);
- tmp540 = (K989176509 * tmp505) - (K146730474 * tmp498);
- tmp550 = (K803207531 * tmp548) + (K595699304 * tmp549);
- tmp560 = (K803207531 * tmp549) - (K595699304 * tmp548);
- }
- }
- {
- fftw_real tmp487;
- fftw_real tmp526;
- fftw_real tmp537;
- fftw_real tmp538;
- ASSERT_ALIGNED_DOUBLE;
- tmp487 = tmp471 + tmp486;
- tmp526 = tmp506 + tmp525;
- real_output[61 * real_ostride] = tmp487 - tmp526;
- real_output[3 * real_ostride] = tmp487 + tmp526;
- tmp537 = tmp529 - tmp536;
- tmp538 = tmp525 - tmp506;
- imag_output[29 * imag_ostride] = tmp537 + tmp538;
- imag_output[35 * imag_ostride] = tmp538 - tmp537;
- }
- {
- fftw_real tmp539;
- fftw_real tmp542;
- fftw_real tmp543;
- fftw_real tmp544;
- ASSERT_ALIGNED_DOUBLE;
- tmp539 = tmp536 + tmp529;
- tmp542 = tmp540 + tmp541;
- imag_output[3 * imag_ostride] = tmp539 + tmp542;
- imag_output[61 * imag_ostride] = tmp542 - tmp539;
- tmp543 = tmp471 - tmp486;
- tmp544 = tmp541 - tmp540;
- real_output[35 * real_ostride] = tmp543 - tmp544;
- real_output[29 * real_ostride] = tmp543 + tmp544;
- }
- {
- fftw_real tmp547;
- fftw_real tmp554;
- fftw_real tmp557;
- fftw_real tmp558;
- ASSERT_ALIGNED_DOUBLE;
- tmp547 = tmp545 + tmp546;
- tmp554 = tmp550 + tmp553;
- real_output[51 * real_ostride] = tmp547 - tmp554;
- real_output[13 * real_ostride] = tmp547 + tmp554;
- tmp557 = tmp555 - tmp556;
- tmp558 = tmp553 - tmp550;
- imag_output[19 * imag_ostride] = tmp557 + tmp558;
- imag_output[45 * imag_ostride] = tmp558 - tmp557;
- }
- {
- fftw_real tmp559;
- fftw_real tmp562;
- fftw_real tmp563;
- fftw_real tmp564;
- ASSERT_ALIGNED_DOUBLE;
- tmp559 = tmp556 + tmp555;
- tmp562 = tmp560 + tmp561;
- imag_output[13 * imag_ostride] = tmp559 + tmp562;
- imag_output[51 * imag_ostride] = tmp562 - tmp559;
- tmp563 = tmp545 - tmp546;
- tmp564 = tmp561 - tmp560;
- real_output[45 * real_ostride] = tmp563 - tmp564;
- real_output[19 * real_ostride] = tmp563 + tmp564;
- }
- }
- {
- fftw_real tmp567;
- fftw_real tmp605;
- fftw_real tmp574;
- fftw_real tmp615;
- fftw_real tmp596;
- fftw_real tmp616;
- fftw_real tmp593;
- fftw_real tmp606;
- fftw_real tmp589;
- fftw_real tmp601;
- fftw_real tmp613;
- fftw_real tmp621;
- fftw_real tmp582;
- fftw_real tmp600;
- fftw_real tmp610;
- fftw_real tmp620;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp565;
- fftw_real tmp566;
- fftw_real tmp591;
- fftw_real tmp592;
- ASSERT_ALIGNED_DOUBLE;
- tmp565 = tmp461 - tmp462;
- tmp566 = tmp534 - tmp533;
- tmp567 = tmp565 - tmp566;
- tmp605 = tmp565 + tmp566;
- {
- fftw_real tmp570;
- fftw_real tmp573;
- fftw_real tmp594;
- fftw_real tmp595;
- ASSERT_ALIGNED_DOUBLE;
- tmp570 = (K471396736 * tmp568) + (K881921264 * tmp569);
- tmp573 = (K881921264 * tmp571) - (K471396736 * tmp572);
- tmp574 = tmp570 - tmp573;
- tmp615 = tmp573 + tmp570;
- tmp594 = tmp469 - tmp466;
- tmp595 = tmp531 - tmp530;
- tmp596 = tmp594 - tmp595;
- tmp616 = tmp595 + tmp594;
- }
- tmp591 = (K881921264 * tmp568) - (K471396736 * tmp569);
- tmp592 = (K881921264 * tmp572) + (K471396736 * tmp571);
- tmp593 = tmp591 - tmp592;
- tmp606 = tmp592 + tmp591;
- {
- fftw_real tmp585;
- fftw_real tmp611;
- fftw_real tmp588;
- fftw_real tmp612;
- fftw_real tmp584;
- fftw_real tmp586;
- ASSERT_ALIGNED_DOUBLE;
- tmp584 = tmp522 - tmp521;
- tmp585 = tmp583 - tmp584;
- tmp611 = tmp583 + tmp584;
- tmp586 = tmp515 - tmp512;
- tmp588 = tmp586 - tmp587;
- tmp612 = tmp587 + tmp586;
- tmp589 = (K857728610 * tmp585) - (K514102744 * tmp588);
- tmp601 = (K857728610 * tmp588) + (K514102744 * tmp585);
- tmp613 = (K970031253 * tmp611) - (K242980179 * tmp612);
- tmp621 = (K970031253 * tmp612) + (K242980179 * tmp611);
- }
- {
- fftw_real tmp578;
- fftw_real tmp608;
- fftw_real tmp581;
- fftw_real tmp609;
- fftw_real tmp576;
- fftw_real tmp580;
- ASSERT_ALIGNED_DOUBLE;
- tmp576 = tmp496 - tmp493;
- tmp578 = tmp576 - tmp577;
- tmp608 = tmp577 + tmp576;
- tmp580 = tmp503 - tmp502;
- tmp581 = tmp579 - tmp580;
- tmp609 = tmp579 + tmp580;
- tmp582 = (K514102744 * tmp578) + (K857728610 * tmp581);
- tmp600 = (K857728610 * tmp578) - (K514102744 * tmp581);
- tmp610 = (K242980179 * tmp608) + (K970031253 * tmp609);
- tmp620 = (K970031253 * tmp608) - (K242980179 * tmp609);
- }
- }
- {
- fftw_real tmp575;
- fftw_real tmp590;
- fftw_real tmp597;
- fftw_real tmp598;
- ASSERT_ALIGNED_DOUBLE;
- tmp575 = tmp567 + tmp574;
- tmp590 = tmp582 + tmp589;
- real_output[53 * real_ostride] = tmp575 - tmp590;
- real_output[11 * real_ostride] = tmp575 + tmp590;
- tmp597 = tmp593 - tmp596;
- tmp598 = tmp589 - tmp582;
- imag_output[21 * imag_ostride] = tmp597 + tmp598;
- imag_output[43 * imag_ostride] = tmp598 - tmp597;
- }
- {
- fftw_real tmp599;
- fftw_real tmp602;
- fftw_real tmp603;
- fftw_real tmp604;
- ASSERT_ALIGNED_DOUBLE;
- tmp599 = tmp596 + tmp593;
- tmp602 = tmp600 + tmp601;
- imag_output[11 * imag_ostride] = tmp599 + tmp602;
- imag_output[53 * imag_ostride] = tmp602 - tmp599;
- tmp603 = tmp567 - tmp574;
- tmp604 = tmp601 - tmp600;
- real_output[43 * real_ostride] = tmp603 - tmp604;
- real_output[21 * real_ostride] = tmp603 + tmp604;
- }
- {
- fftw_real tmp607;
- fftw_real tmp614;
- fftw_real tmp617;
- fftw_real tmp618;
- ASSERT_ALIGNED_DOUBLE;
- tmp607 = tmp605 + tmp606;
- tmp614 = tmp610 + tmp613;
- real_output[59 * real_ostride] = tmp607 - tmp614;
- real_output[5 * real_ostride] = tmp607 + tmp614;
- tmp617 = tmp615 - tmp616;
- tmp618 = tmp613 - tmp610;
- imag_output[27 * imag_ostride] = tmp617 + tmp618;
- imag_output[37 * imag_ostride] = tmp618 - tmp617;
- }
- {
- fftw_real tmp619;
- fftw_real tmp622;
- fftw_real tmp623;
- fftw_real tmp624;
- ASSERT_ALIGNED_DOUBLE;
- tmp619 = tmp616 + tmp615;
- tmp622 = tmp620 + tmp621;
- imag_output[5 * imag_ostride] = tmp619 + tmp622;
- imag_output[59 * imag_ostride] = tmp622 - tmp619;
- tmp623 = tmp605 - tmp606;
- tmp624 = tmp621 - tmp620;
- real_output[37 * real_ostride] = tmp623 - tmp624;
- real_output[27 * real_ostride] = tmp623 + tmp624;
- }
- }
-}
-
-fftw_codelet_desc fftw_real2hc_128_desc =
-{
- "fftw_real2hc_128",
- (void (*)()) fftw_real2hc_128,
- 128,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 2818,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_13.c b/src/sndobj/rfftw/frc_13.c
deleted file mode 100644
index 270372f..0000000
--- a/src/sndobj/rfftw/frc_13.c
+++ /dev/null
@@ -1,271 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:56 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 13 */
-
-/*
- * This function contains 76 FP additions, 34 FP multiplications,
- * (or, 57 additions, 15 multiplications, 19 fused multiply/add),
- * 34 stack variables, and 26 memory accesses
- */
-static const fftw_real K083333333 = FFTW_KONST(+0.083333333333333333333333333333333333333333333);
-static const fftw_real K075902986 = FFTW_KONST(+0.075902986037193865983102897245103540356428373);
-static const fftw_real K251768516 = FFTW_KONST(+0.251768516431883313623436926934233488546674281);
-static const fftw_real K503537032 = FFTW_KONST(+0.503537032863766627246873853868466977093348562);
-static const fftw_real K113854479 = FFTW_KONST(+0.113854479055790798974654345867655310534642560);
-static const fftw_real K265966249 = FFTW_KONST(+0.265966249214837287587521063842185948798330267);
-static const fftw_real K387390585 = FFTW_KONST(+0.387390585467617292130675966426762851778775217);
-static const fftw_real K300462606 = FFTW_KONST(+0.300462606288665774426601772289207995520941381);
-static const fftw_real K258260390 = FFTW_KONST(+0.258260390311744861420450644284508567852516811);
-static const fftw_real K132983124 = FFTW_KONST(+0.132983124607418643793760531921092974399165133);
-static const fftw_real K2_000000000 = FFTW_KONST(+2.000000000000000000000000000000000000000000000);
-static const fftw_real K1_732050807 = FFTW_KONST(+1.732050807568877293527446341505872366942805254);
-static const fftw_real K156891391 = FFTW_KONST(+0.156891391051584611046832726756003269660212636);
-static const fftw_real K256247671 = FFTW_KONST(+0.256247671582936600958684654061725059144125175);
-static const fftw_real K011599105 = FFTW_KONST(+0.011599105605768290721655456654083252189827041);
-static const fftw_real K300238635 = FFTW_KONST(+0.300238635966332641462884626667381504676006424);
-static const fftw_real K174138601 = FFTW_KONST(+0.174138601152135905005660794929264742616964676);
-static const fftw_real K575140729 = FFTW_KONST(+0.575140729474003121368385547455453388461001608);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: frc_13.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: frc_13.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: frc_13.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftw_real2hc_13(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp65;
- fftw_real tmp11;
- fftw_real tmp28;
- fftw_real tmp37;
- fftw_real tmp51;
- fftw_real tmp62;
- fftw_real tmp22;
- fftw_real tmp58;
- fftw_real tmp59;
- fftw_real tmp66;
- fftw_real tmp56;
- fftw_real tmp63;
- fftw_real tmp35;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp65 = input[0];
- {
- fftw_real tmp3;
- fftw_real tmp53;
- fftw_real tmp21;
- fftw_real tmp30;
- fftw_real tmp26;
- fftw_real tmp16;
- fftw_real tmp29;
- fftw_real tmp25;
- fftw_real tmp6;
- fftw_real tmp32;
- fftw_real tmp9;
- fftw_real tmp33;
- fftw_real tmp10;
- fftw_real tmp54;
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[8 * istride];
- tmp2 = input[5 * istride];
- tmp3 = tmp1 - tmp2;
- tmp53 = tmp1 + tmp2;
- {
- fftw_real tmp17;
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp17 = input[12 * istride];
- tmp18 = input[4 * istride];
- tmp19 = input[10 * istride];
- tmp20 = tmp18 + tmp19;
- tmp21 = tmp17 + tmp20;
- tmp30 = tmp17 - (K500000000 * tmp20);
- tmp26 = tmp18 - tmp19;
- }
- {
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp12 = input[istride];
- tmp13 = input[3 * istride];
- tmp14 = input[9 * istride];
- tmp15 = tmp13 + tmp14;
- tmp16 = tmp12 + tmp15;
- tmp29 = tmp12 - (K500000000 * tmp15);
- tmp25 = tmp13 - tmp14;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp7;
- fftw_real tmp8;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = input[6 * istride];
- tmp5 = input[11 * istride];
- tmp6 = tmp4 - tmp5;
- tmp32 = tmp4 + tmp5;
- tmp7 = input[2 * istride];
- tmp8 = input[7 * istride];
- tmp9 = tmp7 - tmp8;
- tmp33 = tmp7 + tmp8;
- }
- tmp10 = tmp6 + tmp9;
- tmp54 = tmp32 + tmp33;
- tmp11 = tmp3 - tmp10;
- {
- fftw_real tmp24;
- fftw_real tmp27;
- fftw_real tmp49;
- fftw_real tmp50;
- ASSERT_ALIGNED_DOUBLE;
- tmp24 = tmp3 + (K500000000 * tmp10);
- tmp27 = K866025403 * (tmp25 + tmp26);
- tmp28 = tmp24 - tmp27;
- tmp37 = tmp27 + tmp24;
- tmp49 = tmp9 - tmp6;
- tmp50 = tmp25 - tmp26;
- tmp51 = tmp49 - tmp50;
- tmp62 = tmp50 + tmp49;
- }
- tmp22 = tmp16 - tmp21;
- tmp58 = tmp16 + tmp21;
- tmp59 = tmp53 + tmp54;
- tmp66 = tmp58 + tmp59;
- {
- fftw_real tmp52;
- fftw_real tmp55;
- fftw_real tmp31;
- fftw_real tmp34;
- ASSERT_ALIGNED_DOUBLE;
- tmp52 = tmp29 + tmp30;
- tmp55 = tmp53 - (K500000000 * tmp54);
- tmp56 = tmp52 - tmp55;
- tmp63 = tmp52 + tmp55;
- tmp31 = tmp29 - tmp30;
- tmp34 = K866025403 * (tmp32 - tmp33);
- tmp35 = tmp31 + tmp34;
- tmp38 = tmp31 - tmp34;
- }
- }
- real_output[0] = tmp65 + tmp66;
- {
- fftw_real tmp23;
- fftw_real tmp45;
- fftw_real tmp40;
- fftw_real tmp48;
- fftw_real tmp44;
- fftw_real tmp46;
- fftw_real tmp41;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = (K575140729 * tmp11) - (K174138601 * tmp22);
- tmp45 = (K575140729 * tmp22) + (K174138601 * tmp11);
- {
- fftw_real tmp36;
- fftw_real tmp39;
- fftw_real tmp42;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- tmp36 = (K300238635 * tmp28) + (K011599105 * tmp35);
- tmp39 = (K256247671 * tmp37) + (K156891391 * tmp38);
- tmp40 = tmp36 - tmp39;
- tmp48 = K1_732050807 * (tmp39 + tmp36);
- tmp42 = (K300238635 * tmp35) - (K011599105 * tmp28);
- tmp43 = (K156891391 * tmp37) - (K256247671 * tmp38);
- tmp44 = K1_732050807 * (tmp42 - tmp43);
- tmp46 = tmp43 + tmp42;
- }
- imag_output[imag_ostride] = tmp23 + (K2_000000000 * tmp40);
- tmp41 = tmp23 - tmp40;
- imag_output[3 * imag_ostride] = tmp41 - tmp44;
- imag_output[4 * imag_ostride] = -(tmp41 + tmp44);
- imag_output[5 * imag_ostride] = -(tmp45 + (K2_000000000 * tmp46));
- tmp47 = tmp46 - tmp45;
- imag_output[2 * imag_ostride] = tmp47 - tmp48;
- imag_output[6 * imag_ostride] = tmp48 + tmp47;
- }
- {
- fftw_real tmp61;
- fftw_real tmp70;
- fftw_real tmp74;
- fftw_real tmp76;
- fftw_real tmp68;
- fftw_real tmp69;
- fftw_real tmp57;
- fftw_real tmp60;
- fftw_real tmp71;
- fftw_real tmp75;
- ASSERT_ALIGNED_DOUBLE;
- tmp57 = (K132983124 * tmp51) + (K258260390 * tmp56);
- tmp60 = K300462606 * (tmp58 - tmp59);
- tmp61 = (K2_000000000 * tmp57) + tmp60;
- tmp70 = tmp60 - tmp57;
- {
- fftw_real tmp72;
- fftw_real tmp73;
- fftw_real tmp64;
- fftw_real tmp67;
- ASSERT_ALIGNED_DOUBLE;
- tmp72 = (K387390585 * tmp51) - (K265966249 * tmp56);
- tmp73 = (K113854479 * tmp62) - (K503537032 * tmp63);
- tmp74 = tmp72 + tmp73;
- tmp76 = tmp73 - tmp72;
- tmp64 = (K251768516 * tmp62) + (K075902986 * tmp63);
- tmp67 = tmp65 - (K083333333 * tmp66);
- tmp68 = (K2_000000000 * tmp64) + tmp67;
- tmp69 = tmp67 - tmp64;
- }
- real_output[real_ostride] = tmp61 + tmp68;
- real_output[5 * real_ostride] = tmp68 - tmp61;
- tmp71 = tmp69 - tmp70;
- real_output[2 * real_ostride] = tmp71 - tmp74;
- real_output[6 * real_ostride] = tmp74 + tmp71;
- tmp75 = tmp70 + tmp69;
- real_output[3 * real_ostride] = tmp75 - tmp76;
- real_output[4 * real_ostride] = tmp76 + tmp75;
- }
-}
-
-fftw_codelet_desc fftw_real2hc_13_desc =
-{
- "fftw_real2hc_13",
- (void (*)()) fftw_real2hc_13,
- 13,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 288,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_14.c b/src/sndobj/rfftw/frc_14.c
deleted file mode 100644
index 75b1dba..0000000
--- a/src/sndobj/rfftw/frc_14.c
+++ /dev/null
@@ -1,171 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:58 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 14 */
-
-/*
- * This function contains 62 FP additions, 36 FP multiplications,
- * (or, 62 additions, 36 multiplications, 0 fused multiply/add),
- * 22 stack variables, and 28 memory accesses
- */
-static const fftw_real K900968867 = FFTW_KONST(+0.900968867902419126236102319507445051165919162);
-static const fftw_real K222520933 = FFTW_KONST(+0.222520933956314404288902564496794759466355569);
-static const fftw_real K623489801 = FFTW_KONST(+0.623489801858733530525004884004239810632274731);
-static const fftw_real K433883739 = FFTW_KONST(+0.433883739117558120475768332848358754609990728);
-static const fftw_real K974927912 = FFTW_KONST(+0.974927912181823607018131682993931217232785801);
-static const fftw_real K781831482 = FFTW_KONST(+0.781831482468029808708444526674057750232334519);
-
-/*
- * Generator Id's :
- * $Id: frc_14.c,v 1.1.1.1 2006/05/12 15:14:47 veplaini Exp $
- * $Id: frc_14.c,v 1.1.1.1 2006/05/12 15:14:47 veplaini Exp $
- * $Id: frc_14.c,v 1.1.1.1 2006/05/12 15:14:47 veplaini Exp $
- */
-
-void fftw_real2hc_14(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp3;
- fftw_real tmp37;
- fftw_real tmp6;
- fftw_real tmp31;
- fftw_real tmp23;
- fftw_real tmp28;
- fftw_real tmp20;
- fftw_real tmp29;
- fftw_real tmp13;
- fftw_real tmp34;
- fftw_real tmp9;
- fftw_real tmp32;
- fftw_real tmp16;
- fftw_real tmp35;
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp2 = input[7 * istride];
- tmp3 = tmp1 - tmp2;
- tmp37 = tmp1 + tmp2;
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp21;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = input[4 * istride];
- tmp5 = input[11 * istride];
- tmp6 = tmp4 - tmp5;
- tmp31 = tmp4 + tmp5;
- tmp21 = input[12 * istride];
- tmp22 = input[5 * istride];
- tmp23 = tmp21 - tmp22;
- tmp28 = tmp21 + tmp22;
- }
- {
- fftw_real tmp18;
- fftw_real tmp19;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp18 = input[2 * istride];
- tmp19 = input[9 * istride];
- tmp20 = tmp18 - tmp19;
- tmp29 = tmp18 + tmp19;
- tmp11 = input[6 * istride];
- tmp12 = input[13 * istride];
- tmp13 = tmp11 - tmp12;
- tmp34 = tmp11 + tmp12;
- }
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = input[10 * istride];
- tmp8 = input[3 * istride];
- tmp9 = tmp7 - tmp8;
- tmp32 = tmp7 + tmp8;
- tmp14 = input[8 * istride];
- tmp15 = input[istride];
- tmp16 = tmp14 - tmp15;
- tmp35 = tmp14 + tmp15;
- }
- {
- fftw_real tmp25;
- fftw_real tmp27;
- fftw_real tmp26;
- fftw_real tmp10;
- fftw_real tmp24;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = tmp23 - tmp20;
- tmp27 = tmp16 - tmp13;
- tmp26 = tmp9 - tmp6;
- imag_output[imag_ostride] = (K781831482 * tmp25) + (K974927912 * tmp26) + (K433883739 * tmp27);
- imag_output[5 * imag_ostride] = -((K974927912 * tmp25) - (K781831482 * tmp27) - (K433883739 * tmp26));
- imag_output[3 * imag_ostride] = (K433883739 * tmp25) + (K974927912 * tmp27) - (K781831482 * tmp26);
- tmp10 = tmp6 + tmp9;
- tmp24 = tmp20 + tmp23;
- tmp17 = tmp13 + tmp16;
- real_output[3 * real_ostride] = tmp3 + (K623489801 * tmp10) - (K222520933 * tmp17) - (K900968867 * tmp24);
- real_output[7 * real_ostride] = tmp3 + tmp24 + tmp10 + tmp17;
- real_output[real_ostride] = tmp3 + (K623489801 * tmp24) - (K900968867 * tmp17) - (K222520933 * tmp10);
- real_output[5 * real_ostride] = tmp3 + (K623489801 * tmp17) - (K900968867 * tmp10) - (K222520933 * tmp24);
- }
- {
- fftw_real tmp30;
- fftw_real tmp36;
- fftw_real tmp33;
- fftw_real tmp38;
- fftw_real tmp40;
- fftw_real tmp39;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = tmp28 - tmp29;
- tmp36 = tmp34 - tmp35;
- tmp33 = tmp31 - tmp32;
- imag_output[2 * imag_ostride] = (K974927912 * tmp30) + (K433883739 * tmp33) + (K781831482 * tmp36);
- imag_output[6 * imag_ostride] = -((K781831482 * tmp30) - (K433883739 * tmp36) - (K974927912 * tmp33));
- imag_output[4 * imag_ostride] = -((K433883739 * tmp30) + (K781831482 * tmp33) - (K974927912 * tmp36));
- tmp38 = tmp29 + tmp28;
- tmp40 = tmp31 + tmp32;
- tmp39 = tmp34 + tmp35;
- real_output[6 * real_ostride] = tmp37 + (K623489801 * tmp38) - (K900968867 * tmp39) - (K222520933 * tmp40);
- real_output[2 * real_ostride] = tmp37 + (K623489801 * tmp39) - (K900968867 * tmp40) - (K222520933 * tmp38);
- real_output[4 * real_ostride] = tmp37 + (K623489801 * tmp40) - (K222520933 * tmp39) - (K900968867 * tmp38);
- real_output[0] = tmp37 + tmp38 + tmp40 + tmp39;
- }
-}
-
-fftw_codelet_desc fftw_real2hc_14_desc =
-{
- "fftw_real2hc_14",
- (void (*)()) fftw_real2hc_14,
- 14,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 310,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_15.c b/src/sndobj/rfftw/frc_15.c
deleted file mode 100644
index 7f307db..0000000
--- a/src/sndobj/rfftw/frc_15.c
+++ /dev/null
@@ -1,233 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:58 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 15 */
-
-/*
- * This function contains 64 FP additions, 25 FP multiplications,
- * (or, 50 additions, 11 multiplications, 14 fused multiply/add),
- * 40 stack variables, and 30 memory accesses
- */
-static const fftw_real K509036960 = FFTW_KONST(+0.509036960455127183450980863393907648510733164);
-static const fftw_real K823639103 = FFTW_KONST(+0.823639103546331925877420039278190003029660514);
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K484122918 = FFTW_KONST(+0.484122918275927110647408174972799951354115213);
-static const fftw_real K216506350 = FFTW_KONST(+0.216506350946109661690930792688234045867850657);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: frc_15.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- * $Id: frc_15.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- * $Id: frc_15.c,v 1.1.1.1 2006/05/12 15:14:58 veplaini Exp $
- */
-
-void fftw_real2hc_15(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp3;
- fftw_real tmp53;
- fftw_real tmp47;
- fftw_real tmp39;
- fftw_real tmp40;
- fftw_real tmp10;
- fftw_real tmp17;
- fftw_real tmp18;
- fftw_real tmp57;
- fftw_real tmp58;
- fftw_real tmp59;
- fftw_real tmp31;
- fftw_real tmp34;
- fftw_real tmp43;
- fftw_real tmp54;
- fftw_real tmp55;
- fftw_real tmp56;
- fftw_real tmp24;
- fftw_real tmp27;
- fftw_real tmp42;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp45;
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = input[0];
- tmp1 = input[10 * istride];
- tmp2 = input[5 * istride];
- tmp46 = tmp2 + tmp1;
- tmp3 = tmp1 - tmp2;
- tmp53 = tmp45 + tmp46;
- tmp47 = tmp45 - (K500000000 * tmp46);
- }
- {
- fftw_real tmp22;
- fftw_real tmp29;
- fftw_real tmp32;
- fftw_real tmp6;
- fftw_real tmp23;
- fftw_real tmp25;
- fftw_real tmp16;
- fftw_real tmp33;
- fftw_real tmp9;
- fftw_real tmp26;
- fftw_real tmp13;
- fftw_real tmp30;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp22 = input[3 * istride];
- tmp29 = input[6 * istride];
- tmp32 = input[9 * istride];
- tmp4 = input[13 * istride];
- tmp5 = input[8 * istride];
- tmp6 = tmp4 - tmp5;
- tmp23 = tmp5 + tmp4;
- tmp25 = input[12 * istride];
- tmp14 = input[4 * istride];
- tmp15 = input[14 * istride];
- tmp16 = tmp14 - tmp15;
- tmp33 = tmp15 + tmp14;
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = input[7 * istride];
- tmp8 = input[2 * istride];
- tmp9 = tmp7 - tmp8;
- tmp26 = tmp8 + tmp7;
- tmp11 = input[istride];
- tmp12 = input[11 * istride];
- tmp13 = tmp11 - tmp12;
- tmp30 = tmp12 + tmp11;
- }
- }
- tmp39 = tmp6 - tmp9;
- tmp40 = tmp13 - tmp16;
- tmp10 = tmp6 + tmp9;
- tmp17 = tmp13 + tmp16;
- tmp18 = tmp10 + tmp17;
- tmp57 = tmp29 + tmp30;
- tmp58 = tmp32 + tmp33;
- tmp59 = tmp57 + tmp58;
- tmp31 = tmp29 - (K500000000 * tmp30);
- tmp34 = tmp32 - (K500000000 * tmp33);
- tmp43 = tmp31 + tmp34;
- tmp54 = tmp22 + tmp23;
- tmp55 = tmp25 + tmp26;
- tmp56 = tmp54 + tmp55;
- tmp24 = tmp22 - (K500000000 * tmp23);
- tmp27 = tmp25 - (K500000000 * tmp26);
- tmp42 = tmp24 + tmp27;
- }
- imag_output[5 * imag_ostride] = -(K866025403 * (tmp3 + tmp18));
- {
- fftw_real tmp21;
- fftw_real tmp37;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp28;
- fftw_real tmp35;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = (K866025403 * tmp3) - (K216506350 * tmp18);
- tmp20 = K484122918 * (tmp10 - tmp17);
- tmp21 = tmp19 + tmp20;
- tmp37 = tmp20 - tmp19;
- tmp28 = tmp24 - tmp27;
- tmp35 = tmp31 - tmp34;
- tmp36 = (K951056516 * tmp28) + (K587785252 * tmp35);
- tmp38 = (K951056516 * tmp35) - (K587785252 * tmp28);
- }
- imag_output[imag_ostride] = tmp21 - tmp36;
- imag_output[4 * imag_ostride] = tmp21 + tmp36;
- imag_output[2 * imag_ostride] = tmp37 + tmp38;
- imag_output[7 * imag_ostride] = tmp38 - tmp37;
- }
- {
- fftw_real tmp63;
- fftw_real tmp64;
- fftw_real tmp62;
- fftw_real tmp60;
- fftw_real tmp61;
- ASSERT_ALIGNED_DOUBLE;
- tmp63 = tmp54 - tmp55;
- tmp64 = tmp57 - tmp58;
- imag_output[3 * imag_ostride] = (K587785252 * tmp63) - (K951056516 * tmp64);
- imag_output[6 * imag_ostride] = -((K951056516 * tmp63) + (K587785252 * tmp64));
- tmp62 = K559016994 * (tmp56 - tmp59);
- tmp60 = tmp56 + tmp59;
- tmp61 = tmp53 - (K250000000 * tmp60);
- real_output[3 * real_ostride] = tmp61 - tmp62;
- real_output[6 * real_ostride] = tmp62 + tmp61;
- real_output[0] = tmp53 + tmp60;
- {
- fftw_real tmp41;
- fftw_real tmp52;
- fftw_real tmp44;
- fftw_real tmp48;
- fftw_real tmp49;
- fftw_real tmp51;
- fftw_real tmp50;
- ASSERT_ALIGNED_DOUBLE;
- tmp41 = (K823639103 * tmp39) + (K509036960 * tmp40);
- tmp52 = (K509036960 * tmp39) - (K823639103 * tmp40);
- tmp44 = K559016994 * (tmp42 - tmp43);
- tmp48 = tmp42 + tmp43;
- tmp49 = tmp47 - (K250000000 * tmp48);
- real_output[5 * real_ostride] = tmp47 + tmp48;
- tmp51 = tmp49 - tmp44;
- real_output[2 * real_ostride] = tmp51 - tmp52;
- real_output[7 * real_ostride] = tmp52 + tmp51;
- tmp50 = tmp44 + tmp49;
- real_output[real_ostride] = tmp41 + tmp50;
- real_output[4 * real_ostride] = tmp50 - tmp41;
- }
- }
-}
-
-fftw_codelet_desc fftw_real2hc_15_desc =
-{
- "fftw_real2hc_15",
- (void (*)()) fftw_real2hc_15,
- 15,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 332,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_16.c b/src/sndobj/rfftw/frc_16.c
deleted file mode 100644
index fc4c6ba..0000000
--- a/src/sndobj/rfftw/frc_16.c
+++ /dev/null
@@ -1,218 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:58 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 16 */
-
-/*
- * This function contains 58 FP additions, 12 FP multiplications,
- * (or, 54 additions, 8 multiplications, 4 fused multiply/add),
- * 30 stack variables, and 32 memory accesses
- */
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-
-/*
- * Generator Id's :
- * $Id: frc_16.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: frc_16.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: frc_16.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- */
-
-void fftw_real2hc_16(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp3;
- fftw_real tmp6;
- fftw_real tmp7;
- fftw_real tmp35;
- fftw_real tmp18;
- fftw_real tmp33;
- fftw_real tmp40;
- fftw_real tmp48;
- fftw_real tmp56;
- fftw_real tmp10;
- fftw_real tmp13;
- fftw_real tmp14;
- fftw_real tmp36;
- fftw_real tmp17;
- fftw_real tmp26;
- fftw_real tmp41;
- fftw_real tmp51;
- fftw_real tmp57;
- fftw_real tmp16;
- fftw_real tmp15;
- fftw_real tmp43;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp4;
- fftw_real tmp5;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp2 = input[8 * istride];
- tmp3 = tmp1 + tmp2;
- tmp4 = input[4 * istride];
- tmp5 = input[12 * istride];
- tmp6 = tmp4 + tmp5;
- tmp7 = tmp3 + tmp6;
- tmp35 = tmp1 - tmp2;
- tmp18 = tmp4 - tmp5;
- }
- {
- fftw_real tmp29;
- fftw_real tmp46;
- fftw_real tmp32;
- fftw_real tmp47;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp27;
- fftw_real tmp28;
- fftw_real tmp30;
- fftw_real tmp31;
- ASSERT_ALIGNED_DOUBLE;
- tmp27 = input[istride];
- tmp28 = input[9 * istride];
- tmp29 = tmp27 - tmp28;
- tmp46 = tmp27 + tmp28;
- tmp30 = input[5 * istride];
- tmp31 = input[13 * istride];
- tmp32 = tmp30 - tmp31;
- tmp47 = tmp30 + tmp31;
- }
- tmp33 = (K382683432 * tmp29) + (K923879532 * tmp32);
- tmp40 = (K923879532 * tmp29) - (K382683432 * tmp32);
- tmp48 = tmp46 - tmp47;
- tmp56 = tmp46 + tmp47;
- }
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = input[2 * istride];
- tmp9 = input[10 * istride];
- tmp10 = tmp8 + tmp9;
- tmp16 = tmp8 - tmp9;
- tmp11 = input[14 * istride];
- tmp12 = input[6 * istride];
- tmp13 = tmp11 + tmp12;
- tmp15 = tmp11 - tmp12;
- }
- tmp14 = tmp10 + tmp13;
- tmp36 = K707106781 * (tmp16 + tmp15);
- tmp17 = K707106781 * (tmp15 - tmp16);
- {
- fftw_real tmp22;
- fftw_real tmp49;
- fftw_real tmp25;
- fftw_real tmp50;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp20;
- fftw_real tmp21;
- fftw_real tmp23;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- tmp20 = input[15 * istride];
- tmp21 = input[7 * istride];
- tmp22 = tmp20 - tmp21;
- tmp49 = tmp20 + tmp21;
- tmp23 = input[3 * istride];
- tmp24 = input[11 * istride];
- tmp25 = tmp23 - tmp24;
- tmp50 = tmp23 + tmp24;
- }
- tmp26 = (K382683432 * tmp22) - (K923879532 * tmp25);
- tmp41 = (K923879532 * tmp22) + (K382683432 * tmp25);
- tmp51 = tmp49 - tmp50;
- tmp57 = tmp49 + tmp50;
- }
- {
- fftw_real tmp55;
- fftw_real tmp58;
- fftw_real tmp53;
- fftw_real tmp54;
- ASSERT_ALIGNED_DOUBLE;
- real_output[4 * real_ostride] = tmp7 - tmp14;
- tmp55 = tmp7 + tmp14;
- tmp58 = tmp56 + tmp57;
- real_output[8 * real_ostride] = tmp55 - tmp58;
- real_output[0] = tmp55 + tmp58;
- imag_output[4 * imag_ostride] = tmp57 - tmp56;
- tmp53 = tmp13 - tmp10;
- tmp54 = K707106781 * (tmp51 - tmp48);
- imag_output[2 * imag_ostride] = tmp53 + tmp54;
- imag_output[6 * imag_ostride] = tmp54 - tmp53;
- }
- {
- fftw_real tmp45;
- fftw_real tmp52;
- fftw_real tmp39;
- fftw_real tmp42;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = tmp3 - tmp6;
- tmp52 = K707106781 * (tmp48 + tmp51);
- real_output[6 * real_ostride] = tmp45 - tmp52;
- real_output[2 * real_ostride] = tmp45 + tmp52;
- tmp39 = tmp35 + tmp36;
- tmp42 = tmp40 + tmp41;
- real_output[7 * real_ostride] = tmp39 - tmp42;
- real_output[real_ostride] = tmp39 + tmp42;
- }
- tmp43 = tmp18 + tmp17;
- tmp44 = tmp41 - tmp40;
- imag_output[3 * imag_ostride] = tmp43 + tmp44;
- imag_output[5 * imag_ostride] = tmp44 - tmp43;
- {
- fftw_real tmp19;
- fftw_real tmp34;
- fftw_real tmp37;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = tmp17 - tmp18;
- tmp34 = tmp26 - tmp33;
- imag_output[imag_ostride] = tmp19 + tmp34;
- imag_output[7 * imag_ostride] = tmp34 - tmp19;
- tmp37 = tmp35 - tmp36;
- tmp38 = tmp33 + tmp26;
- real_output[5 * real_ostride] = tmp37 - tmp38;
- real_output[3 * real_ostride] = tmp37 + tmp38;
- }
-}
-
-fftw_codelet_desc fftw_real2hc_16_desc =
-{
- "fftw_real2hc_16",
- (void (*)()) fftw_real2hc_16,
- 16,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 354,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_2.c b/src/sndobj/rfftw/frc_2.c
deleted file mode 100644
index e4ede7e..0000000
--- a/src/sndobj/rfftw/frc_2.c
+++ /dev/null
@@ -1,62 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:53 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 2 */
-
-/*
- * This function contains 2 FP additions, 0 FP multiplications,
- * (or, 2 additions, 0 multiplications, 0 fused multiply/add),
- * 2 stack variables, and 4 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: frc_2.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: frc_2.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: frc_2.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- */
-
-void fftw_real2hc_2(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp1;
- fftw_real tmp2;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp2 = input[istride];
- real_output[real_ostride] = tmp1 - tmp2;
- real_output[0] = tmp1 + tmp2;
-}
-
-fftw_codelet_desc fftw_real2hc_2_desc =
-{
- "fftw_real2hc_2",
- (void (*)()) fftw_real2hc_2,
- 2,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 46,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_3.c b/src/sndobj/rfftw/frc_3.c
deleted file mode 100644
index c7ed409..0000000
--- a/src/sndobj/rfftw/frc_3.c
+++ /dev/null
@@ -1,69 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:53 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 3 */
-
-/*
- * This function contains 4 FP additions, 2 FP multiplications,
- * (or, 3 additions, 1 multiplications, 1 fused multiply/add),
- * 4 stack variables, and 6 memory accesses
- */
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: frc_3.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: frc_3.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: frc_3.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- */
-
-void fftw_real2hc_3(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp2 = input[istride];
- tmp3 = input[2 * istride];
- tmp4 = tmp2 + tmp3;
- real_output[real_ostride] = tmp1 - (K500000000 * tmp4);
- real_output[0] = tmp1 + tmp4;
- imag_output[imag_ostride] = K866025403 * (tmp3 - tmp2);
-}
-
-fftw_codelet_desc fftw_real2hc_3_desc =
-{
- "fftw_real2hc_3",
- (void (*)()) fftw_real2hc_3,
- 3,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 68,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_32.c b/src/sndobj/rfftw/frc_32.c
deleted file mode 100644
index 32bc892..0000000
--- a/src/sndobj/rfftw/frc_32.c
+++ /dev/null
@@ -1,476 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:59 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 32 */
-
-/*
- * This function contains 156 FP additions, 42 FP multiplications,
- * (or, 140 additions, 26 multiplications, 16 fused multiply/add),
- * 46 stack variables, and 64 memory accesses
- */
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: frc_32.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: frc_32.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: frc_32.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- */
-
-void fftw_real2hc_32(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp7;
- fftw_real tmp135;
- fftw_real tmp31;
- fftw_real tmp83;
- fftw_real tmp14;
- fftw_real tmp148;
- fftw_real tmp34;
- fftw_real tmp82;
- fftw_real tmp123;
- fftw_real tmp143;
- fftw_real tmp71;
- fftw_real tmp99;
- fftw_real tmp126;
- fftw_real tmp144;
- fftw_real tmp76;
- fftw_real tmp100;
- fftw_real tmp22;
- fftw_real tmp136;
- fftw_real tmp38;
- fftw_real tmp80;
- fftw_real tmp29;
- fftw_real tmp137;
- fftw_real tmp41;
- fftw_real tmp79;
- fftw_real tmp116;
- fftw_real tmp140;
- fftw_real tmp54;
- fftw_real tmp96;
- fftw_real tmp119;
- fftw_real tmp141;
- fftw_real tmp59;
- fftw_real tmp97;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp6;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp2 = input[16 * istride];
- tmp3 = tmp1 + tmp2;
- tmp4 = input[8 * istride];
- tmp5 = input[24 * istride];
- tmp6 = tmp4 + tmp5;
- tmp7 = tmp3 + tmp6;
- tmp135 = tmp3 - tmp6;
- tmp31 = tmp1 - tmp2;
- tmp83 = tmp4 - tmp5;
- }
- {
- fftw_real tmp10;
- fftw_real tmp32;
- fftw_real tmp13;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp8;
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = input[4 * istride];
- tmp9 = input[20 * istride];
- tmp10 = tmp8 + tmp9;
- tmp32 = tmp8 - tmp9;
- tmp11 = input[28 * istride];
- tmp12 = input[12 * istride];
- tmp13 = tmp11 + tmp12;
- tmp33 = tmp11 - tmp12;
- }
- tmp14 = tmp10 + tmp13;
- tmp148 = tmp13 - tmp10;
- tmp34 = K707106781 * (tmp32 + tmp33);
- tmp82 = K707106781 * (tmp33 - tmp32);
- }
- {
- fftw_real tmp63;
- fftw_real tmp121;
- fftw_real tmp75;
- fftw_real tmp122;
- fftw_real tmp66;
- fftw_real tmp124;
- fftw_real tmp69;
- fftw_real tmp125;
- fftw_real tmp70;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp61;
- fftw_real tmp62;
- fftw_real tmp73;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = input[31 * istride];
- tmp62 = input[15 * istride];
- tmp63 = tmp61 - tmp62;
- tmp121 = tmp61 + tmp62;
- tmp73 = input[7 * istride];
- tmp74 = input[23 * istride];
- tmp75 = tmp73 - tmp74;
- tmp122 = tmp73 + tmp74;
- }
- {
- fftw_real tmp64;
- fftw_real tmp65;
- fftw_real tmp67;
- fftw_real tmp68;
- ASSERT_ALIGNED_DOUBLE;
- tmp64 = input[3 * istride];
- tmp65 = input[19 * istride];
- tmp66 = tmp64 - tmp65;
- tmp124 = tmp64 + tmp65;
- tmp67 = input[27 * istride];
- tmp68 = input[11 * istride];
- tmp69 = tmp67 - tmp68;
- tmp125 = tmp67 + tmp68;
- }
- tmp123 = tmp121 + tmp122;
- tmp143 = tmp121 - tmp122;
- tmp70 = K707106781 * (tmp66 + tmp69);
- tmp71 = tmp63 + tmp70;
- tmp99 = tmp63 - tmp70;
- tmp126 = tmp124 + tmp125;
- tmp144 = tmp125 - tmp124;
- tmp72 = K707106781 * (tmp69 - tmp66);
- tmp76 = tmp72 - tmp75;
- tmp100 = tmp75 + tmp72;
- }
- {
- fftw_real tmp18;
- fftw_real tmp36;
- fftw_real tmp21;
- fftw_real tmp37;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = input[2 * istride];
- tmp17 = input[18 * istride];
- tmp18 = tmp16 + tmp17;
- tmp36 = tmp16 - tmp17;
- tmp19 = input[10 * istride];
- tmp20 = input[26 * istride];
- tmp21 = tmp19 + tmp20;
- tmp37 = tmp19 - tmp20;
- }
- tmp22 = tmp18 + tmp21;
- tmp136 = tmp18 - tmp21;
- tmp38 = (K923879532 * tmp36) - (K382683432 * tmp37);
- tmp80 = (K382683432 * tmp36) + (K923879532 * tmp37);
- }
- {
- fftw_real tmp25;
- fftw_real tmp39;
- fftw_real tmp28;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp23;
- fftw_real tmp24;
- fftw_real tmp26;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = input[30 * istride];
- tmp24 = input[14 * istride];
- tmp25 = tmp23 + tmp24;
- tmp39 = tmp23 - tmp24;
- tmp26 = input[6 * istride];
- tmp27 = input[22 * istride];
- tmp28 = tmp26 + tmp27;
- tmp40 = tmp26 - tmp27;
- }
- tmp29 = tmp25 + tmp28;
- tmp137 = tmp25 - tmp28;
- tmp41 = (K923879532 * tmp39) + (K382683432 * tmp40);
- tmp79 = (K382683432 * tmp39) - (K923879532 * tmp40);
- }
- {
- fftw_real tmp46;
- fftw_real tmp114;
- fftw_real tmp58;
- fftw_real tmp115;
- fftw_real tmp49;
- fftw_real tmp117;
- fftw_real tmp52;
- fftw_real tmp118;
- fftw_real tmp53;
- fftw_real tmp55;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp44;
- fftw_real tmp45;
- fftw_real tmp56;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp44 = input[istride];
- tmp45 = input[17 * istride];
- tmp46 = tmp44 - tmp45;
- tmp114 = tmp44 + tmp45;
- tmp56 = input[9 * istride];
- tmp57 = input[25 * istride];
- tmp58 = tmp56 - tmp57;
- tmp115 = tmp56 + tmp57;
- }
- {
- fftw_real tmp47;
- fftw_real tmp48;
- fftw_real tmp50;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = input[5 * istride];
- tmp48 = input[21 * istride];
- tmp49 = tmp47 - tmp48;
- tmp117 = tmp47 + tmp48;
- tmp50 = input[29 * istride];
- tmp51 = input[13 * istride];
- tmp52 = tmp50 - tmp51;
- tmp118 = tmp50 + tmp51;
- }
- tmp116 = tmp114 + tmp115;
- tmp140 = tmp114 - tmp115;
- tmp53 = K707106781 * (tmp49 + tmp52);
- tmp54 = tmp46 + tmp53;
- tmp96 = tmp46 - tmp53;
- tmp119 = tmp117 + tmp118;
- tmp141 = tmp118 - tmp117;
- tmp55 = K707106781 * (tmp52 - tmp49);
- tmp59 = tmp55 - tmp58;
- tmp97 = tmp58 + tmp55;
- }
- {
- fftw_real tmp15;
- fftw_real tmp30;
- fftw_real tmp131;
- fftw_real tmp132;
- fftw_real tmp133;
- fftw_real tmp134;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = tmp7 + tmp14;
- tmp30 = tmp22 + tmp29;
- tmp131 = tmp15 + tmp30;
- tmp132 = tmp116 + tmp119;
- tmp133 = tmp123 + tmp126;
- tmp134 = tmp132 + tmp133;
- real_output[8 * real_ostride] = tmp15 - tmp30;
- imag_output[8 * imag_ostride] = tmp133 - tmp132;
- real_output[16 * real_ostride] = tmp131 - tmp134;
- real_output[0] = tmp131 + tmp134;
- }
- {
- fftw_real tmp113;
- fftw_real tmp129;
- fftw_real tmp128;
- fftw_real tmp130;
- fftw_real tmp120;
- fftw_real tmp127;
- ASSERT_ALIGNED_DOUBLE;
- tmp113 = tmp7 - tmp14;
- tmp129 = tmp29 - tmp22;
- tmp120 = tmp116 - tmp119;
- tmp127 = tmp123 - tmp126;
- tmp128 = K707106781 * (tmp120 + tmp127);
- tmp130 = K707106781 * (tmp127 - tmp120);
- real_output[12 * real_ostride] = tmp113 - tmp128;
- real_output[4 * real_ostride] = tmp113 + tmp128;
- imag_output[4 * imag_ostride] = tmp129 + tmp130;
- imag_output[12 * imag_ostride] = tmp130 - tmp129;
- }
- {
- fftw_real tmp139;
- fftw_real tmp155;
- fftw_real tmp149;
- fftw_real tmp151;
- fftw_real tmp146;
- fftw_real tmp150;
- fftw_real tmp154;
- fftw_real tmp156;
- fftw_real tmp138;
- fftw_real tmp147;
- ASSERT_ALIGNED_DOUBLE;
- tmp138 = K707106781 * (tmp136 + tmp137);
- tmp139 = tmp135 + tmp138;
- tmp155 = tmp135 - tmp138;
- tmp147 = K707106781 * (tmp137 - tmp136);
- tmp149 = tmp147 - tmp148;
- tmp151 = tmp148 + tmp147;
- {
- fftw_real tmp142;
- fftw_real tmp145;
- fftw_real tmp152;
- fftw_real tmp153;
- ASSERT_ALIGNED_DOUBLE;
- tmp142 = (K923879532 * tmp140) + (K382683432 * tmp141);
- tmp145 = (K923879532 * tmp143) - (K382683432 * tmp144);
- tmp146 = tmp142 + tmp145;
- tmp150 = tmp145 - tmp142;
- tmp152 = (K923879532 * tmp141) - (K382683432 * tmp140);
- tmp153 = (K382683432 * tmp143) + (K923879532 * tmp144);
- tmp154 = tmp152 + tmp153;
- tmp156 = tmp153 - tmp152;
- }
- real_output[14 * real_ostride] = tmp139 - tmp146;
- real_output[2 * real_ostride] = tmp139 + tmp146;
- imag_output[6 * imag_ostride] = tmp149 + tmp150;
- imag_output[10 * imag_ostride] = tmp150 - tmp149;
- imag_output[2 * imag_ostride] = tmp151 + tmp154;
- imag_output[14 * imag_ostride] = tmp154 - tmp151;
- real_output[10 * real_ostride] = tmp155 - tmp156;
- real_output[6 * real_ostride] = tmp155 + tmp156;
- }
- {
- fftw_real tmp95;
- fftw_real tmp111;
- fftw_real tmp110;
- fftw_real tmp112;
- fftw_real tmp102;
- fftw_real tmp106;
- fftw_real tmp105;
- fftw_real tmp107;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp93;
- fftw_real tmp94;
- fftw_real tmp108;
- fftw_real tmp109;
- ASSERT_ALIGNED_DOUBLE;
- tmp93 = tmp31 - tmp34;
- tmp94 = tmp80 + tmp79;
- tmp95 = tmp93 + tmp94;
- tmp111 = tmp93 - tmp94;
- tmp108 = (K831469612 * tmp97) - (K555570233 * tmp96);
- tmp109 = (K555570233 * tmp99) + (K831469612 * tmp100);
- tmp110 = tmp108 + tmp109;
- tmp112 = tmp109 - tmp108;
- }
- {
- fftw_real tmp98;
- fftw_real tmp101;
- fftw_real tmp103;
- fftw_real tmp104;
- ASSERT_ALIGNED_DOUBLE;
- tmp98 = (K831469612 * tmp96) + (K555570233 * tmp97);
- tmp101 = (K831469612 * tmp99) - (K555570233 * tmp100);
- tmp102 = tmp98 + tmp101;
- tmp106 = tmp101 - tmp98;
- tmp103 = tmp41 - tmp38;
- tmp104 = tmp83 + tmp82;
- tmp105 = tmp103 - tmp104;
- tmp107 = tmp104 + tmp103;
- }
- real_output[13 * real_ostride] = tmp95 - tmp102;
- real_output[3 * real_ostride] = tmp95 + tmp102;
- imag_output[5 * imag_ostride] = tmp105 + tmp106;
- imag_output[11 * imag_ostride] = tmp106 - tmp105;
- imag_output[3 * imag_ostride] = tmp107 + tmp110;
- imag_output[13 * imag_ostride] = tmp110 - tmp107;
- real_output[11 * real_ostride] = tmp111 - tmp112;
- real_output[5 * real_ostride] = tmp111 + tmp112;
- }
- {
- fftw_real tmp43;
- fftw_real tmp91;
- fftw_real tmp90;
- fftw_real tmp92;
- fftw_real tmp78;
- fftw_real tmp86;
- fftw_real tmp85;
- fftw_real tmp87;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp35;
- fftw_real tmp42;
- fftw_real tmp88;
- fftw_real tmp89;
- ASSERT_ALIGNED_DOUBLE;
- tmp35 = tmp31 + tmp34;
- tmp42 = tmp38 + tmp41;
- tmp43 = tmp35 + tmp42;
- tmp91 = tmp35 - tmp42;
- tmp88 = (K980785280 * tmp59) - (K195090322 * tmp54);
- tmp89 = (K195090322 * tmp71) + (K980785280 * tmp76);
- tmp90 = tmp88 + tmp89;
- tmp92 = tmp89 - tmp88;
- }
- {
- fftw_real tmp60;
- fftw_real tmp77;
- fftw_real tmp81;
- fftw_real tmp84;
- ASSERT_ALIGNED_DOUBLE;
- tmp60 = (K980785280 * tmp54) + (K195090322 * tmp59);
- tmp77 = (K980785280 * tmp71) - (K195090322 * tmp76);
- tmp78 = tmp60 + tmp77;
- tmp86 = tmp77 - tmp60;
- tmp81 = tmp79 - tmp80;
- tmp84 = tmp82 - tmp83;
- tmp85 = tmp81 - tmp84;
- tmp87 = tmp84 + tmp81;
- }
- real_output[15 * real_ostride] = tmp43 - tmp78;
- real_output[real_ostride] = tmp43 + tmp78;
- imag_output[7 * imag_ostride] = tmp85 + tmp86;
- imag_output[9 * imag_ostride] = tmp86 - tmp85;
- imag_output[imag_ostride] = tmp87 + tmp90;
- imag_output[15 * imag_ostride] = tmp90 - tmp87;
- real_output[9 * real_ostride] = tmp91 - tmp92;
- real_output[7 * real_ostride] = tmp91 + tmp92;
- }
-}
-
-fftw_codelet_desc fftw_real2hc_32_desc =
-{
- "fftw_real2hc_32",
- (void (*)()) fftw_real2hc_32,
- 32,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 706,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_4.c b/src/sndobj/rfftw/frc_4.c
deleted file mode 100644
index ff43ac5..0000000
--- a/src/sndobj/rfftw/frc_4.c
+++ /dev/null
@@ -1,72 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:53 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 4 */
-
-/*
- * This function contains 6 FP additions, 0 FP multiplications,
- * (or, 6 additions, 0 multiplications, 0 fused multiply/add),
- * 6 stack variables, and 8 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: frc_4.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: frc_4.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: frc_4.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- */
-
-void fftw_real2hc_4(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp6;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp2 = input[2 * istride];
- tmp3 = tmp1 + tmp2;
- tmp4 = input[istride];
- tmp5 = input[3 * istride];
- tmp6 = tmp4 + tmp5;
- real_output[real_ostride] = tmp1 - tmp2;
- imag_output[imag_ostride] = -(tmp4 - tmp5);
- real_output[2 * real_ostride] = tmp3 - tmp6;
- real_output[0] = tmp3 + tmp6;
-}
-
-fftw_codelet_desc fftw_real2hc_4_desc =
-{
- "fftw_real2hc_4",
- (void (*)()) fftw_real2hc_4,
- 4,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 90,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_5.c b/src/sndobj/rfftw/frc_5.c
deleted file mode 100644
index 41e9fc9..0000000
--- a/src/sndobj/rfftw/frc_5.c
+++ /dev/null
@@ -1,92 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:53 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 5 */
-
-/*
- * This function contains 12 FP additions, 6 FP multiplications,
- * (or, 9 additions, 3 multiplications, 3 fused multiply/add),
- * 12 stack variables, and 10 memory accesses
- */
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-
-/*
- * Generator Id's :
- * $Id: frc_5.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: frc_5.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: frc_5.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- */
-
-void fftw_real2hc_5(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp10;
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp3;
- fftw_real tmp11;
- fftw_real tmp6;
- fftw_real tmp9;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp10 = input[0];
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp4;
- fftw_real tmp5;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[istride];
- tmp2 = input[4 * istride];
- tmp7 = tmp1 + tmp2;
- tmp4 = input[2 * istride];
- tmp5 = input[3 * istride];
- tmp8 = tmp4 + tmp5;
- tmp3 = tmp1 - tmp2;
- tmp11 = tmp7 + tmp8;
- tmp6 = tmp4 - tmp5;
- }
- imag_output[imag_ostride] = -((K951056516 * tmp3) + (K587785252 * tmp6));
- imag_output[2 * imag_ostride] = (K951056516 * tmp6) - (K587785252 * tmp3);
- real_output[0] = tmp10 + tmp11;
- tmp9 = K559016994 * (tmp7 - tmp8);
- tmp12 = tmp10 - (K250000000 * tmp11);
- real_output[real_ostride] = tmp9 + tmp12;
- real_output[2 * real_ostride] = tmp12 - tmp9;
-}
-
-fftw_codelet_desc fftw_real2hc_5_desc =
-{
- "fftw_real2hc_5",
- (void (*)()) fftw_real2hc_5,
- 5,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 112,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_6.c b/src/sndobj/rfftw/frc_6.c
deleted file mode 100644
index 1d5b669..0000000
--- a/src/sndobj/rfftw/frc_6.c
+++ /dev/null
@@ -1,95 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:54 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 6 */
-
-/*
- * This function contains 14 FP additions, 4 FP multiplications,
- * (or, 12 additions, 2 multiplications, 2 fused multiply/add),
- * 14 stack variables, and 12 memory accesses
- */
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-
-/*
- * Generator Id's :
- * $Id: frc_6.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: frc_6.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: frc_6.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- */
-
-void fftw_real2hc_6(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp3;
- fftw_real tmp13;
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp6;
- fftw_real tmp12;
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp10;
- fftw_real tmp14;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp2 = input[3 * istride];
- tmp3 = tmp1 - tmp2;
- tmp13 = tmp1 + tmp2;
- {
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp4;
- fftw_real tmp5;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = input[4 * istride];
- tmp8 = input[istride];
- tmp9 = tmp7 - tmp8;
- tmp11 = tmp7 + tmp8;
- tmp4 = input[2 * istride];
- tmp5 = input[5 * istride];
- tmp6 = tmp4 - tmp5;
- tmp12 = tmp4 + tmp5;
- }
- imag_output[imag_ostride] = K866025403 * (tmp9 - tmp6);
- tmp10 = tmp6 + tmp9;
- real_output[real_ostride] = tmp3 - (K500000000 * tmp10);
- real_output[3 * real_ostride] = tmp3 + tmp10;
- imag_output[2 * imag_ostride] = -(K866025403 * (tmp11 - tmp12));
- tmp14 = tmp12 + tmp11;
- real_output[2 * real_ostride] = tmp13 - (K500000000 * tmp14);
- real_output[0] = tmp13 + tmp14;
-}
-
-fftw_codelet_desc fftw_real2hc_6_desc =
-{
- "fftw_real2hc_6",
- (void (*)()) fftw_real2hc_6,
- 6,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 134,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_64.c b/src/sndobj/rfftw/frc_64.c
deleted file mode 100644
index 71ab867..0000000
--- a/src/sndobj/rfftw/frc_64.c
+++ /dev/null
@@ -1,1109 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:59 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 64 */
-
-/*
- * This function contains 394 FP additions, 124 FP multiplications,
- * (or, 342 additions, 72 multiplications, 52 fused multiply/add),
- * 90 stack variables, and 128 memory accesses
- */
-static const fftw_real K471396736 = FFTW_KONST(+0.471396736825997648556387625905254377657460319);
-static const fftw_real K881921264 = FFTW_KONST(+0.881921264348355029712756863660388349508442621);
-static const fftw_real K290284677 = FFTW_KONST(+0.290284677254462367636192375817395274691476278);
-static const fftw_real K956940335 = FFTW_KONST(+0.956940335732208864935797886980269969482849206);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K995184726 = FFTW_KONST(+0.995184726672196886244836953109479921575474869);
-static const fftw_real K098017140 = FFTW_KONST(+0.098017140329560601994195563888641845861136673);
-static const fftw_real K773010453 = FFTW_KONST(+0.773010453362736960810906609758469800971041293);
-static const fftw_real K634393284 = FFTW_KONST(+0.634393284163645498215171613225493370675687095);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: frc_64.c,v 1.1.1.1 2006/05/12 15:14:44 veplaini Exp $
- * $Id: frc_64.c,v 1.1.1.1 2006/05/12 15:14:44 veplaini Exp $
- * $Id: frc_64.c,v 1.1.1.1 2006/05/12 15:14:44 veplaini Exp $
- */
-
-void fftw_real2hc_64(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp269;
- fftw_real tmp7;
- fftw_real tmp14;
- fftw_real tmp15;
- fftw_real tmp320;
- fftw_real tmp67;
- fftw_real tmp209;
- fftw_real tmp179;
- fftw_real tmp238;
- fftw_real tmp301;
- fftw_real tmp361;
- fftw_real tmp381;
- fftw_real tmp312;
- fftw_real tmp143;
- fftw_real tmp227;
- fftw_real tmp167;
- fftw_real tmp230;
- fftw_real tmp158;
- fftw_real tmp231;
- fftw_real tmp162;
- fftw_real tmp228;
- fftw_real tmp308;
- fftw_real tmp313;
- fftw_real tmp364;
- fftw_real tmp382;
- fftw_real tmp22;
- fftw_real tmp29;
- fftw_real tmp30;
- fftw_real tmp272;
- fftw_real tmp321;
- fftw_real tmp74;
- fftw_real tmp239;
- fftw_real tmp176;
- fftw_real tmp210;
- fftw_real tmp284;
- fftw_real tmp354;
- fftw_real tmp378;
- fftw_real tmp295;
- fftw_real tmp121;
- fftw_real tmp223;
- fftw_real tmp127;
- fftw_real tmp220;
- fftw_real tmp110;
- fftw_real tmp221;
- fftw_real tmp130;
- fftw_real tmp224;
- fftw_real tmp291;
- fftw_real tmp296;
- fftw_real tmp357;
- fftw_real tmp379;
- fftw_real tmp89;
- fftw_real tmp213;
- fftw_real tmp92;
- fftw_real tmp212;
- fftw_real tmp46;
- fftw_real tmp374;
- fftw_real tmp276;
- fftw_real tmp317;
- fftw_real tmp80;
- fftw_real tmp215;
- fftw_real tmp83;
- fftw_real tmp216;
- fftw_real tmp61;
- fftw_real tmp375;
- fftw_real tmp279;
- fftw_real tmp318;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp63;
- fftw_real tmp13;
- fftw_real tmp65;
- fftw_real tmp6;
- fftw_real tmp178;
- fftw_real tmp10;
- fftw_real tmp64;
- fftw_real tmp66;
- fftw_real tmp177;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp2 = input[32 * istride];
- tmp3 = tmp1 + tmp2;
- tmp63 = tmp1 - tmp2;
- tmp11 = input[56 * istride];
- tmp12 = input[24 * istride];
- tmp13 = tmp11 + tmp12;
- tmp65 = tmp11 - tmp12;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp8;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = input[16 * istride];
- tmp5 = input[48 * istride];
- tmp6 = tmp4 + tmp5;
- tmp178 = tmp4 - tmp5;
- tmp8 = input[8 * istride];
- tmp9 = input[40 * istride];
- tmp10 = tmp8 + tmp9;
- tmp64 = tmp8 - tmp9;
- }
- tmp269 = tmp3 - tmp6;
- tmp7 = tmp3 + tmp6;
- tmp14 = tmp10 + tmp13;
- tmp15 = tmp7 + tmp14;
- tmp320 = tmp13 - tmp10;
- tmp66 = K707106781 * (tmp64 + tmp65);
- tmp67 = tmp63 + tmp66;
- tmp209 = tmp63 - tmp66;
- tmp177 = K707106781 * (tmp65 - tmp64);
- tmp179 = tmp177 - tmp178;
- tmp238 = tmp178 + tmp177;
- }
- {
- fftw_real tmp135;
- fftw_real tmp299;
- fftw_real tmp166;
- fftw_real tmp300;
- fftw_real tmp138;
- fftw_real tmp311;
- fftw_real tmp141;
- fftw_real tmp310;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp133;
- fftw_real tmp134;
- fftw_real tmp164;
- fftw_real tmp165;
- ASSERT_ALIGNED_DOUBLE;
- tmp133 = input[63 * istride];
- tmp134 = input[31 * istride];
- tmp135 = tmp133 - tmp134;
- tmp299 = tmp133 + tmp134;
- tmp164 = input[15 * istride];
- tmp165 = input[47 * istride];
- tmp166 = tmp164 - tmp165;
- tmp300 = tmp164 + tmp165;
- }
- {
- fftw_real tmp136;
- fftw_real tmp137;
- fftw_real tmp139;
- fftw_real tmp140;
- ASSERT_ALIGNED_DOUBLE;
- tmp136 = input[7 * istride];
- tmp137 = input[39 * istride];
- tmp138 = tmp136 - tmp137;
- tmp311 = tmp136 + tmp137;
- tmp139 = input[55 * istride];
- tmp140 = input[23 * istride];
- tmp141 = tmp139 - tmp140;
- tmp310 = tmp139 + tmp140;
- }
- {
- fftw_real tmp359;
- fftw_real tmp360;
- fftw_real tmp142;
- fftw_real tmp163;
- ASSERT_ALIGNED_DOUBLE;
- tmp301 = tmp299 - tmp300;
- tmp359 = tmp299 + tmp300;
- tmp360 = tmp311 + tmp310;
- tmp361 = tmp359 + tmp360;
- tmp381 = tmp359 - tmp360;
- tmp312 = tmp310 - tmp311;
- tmp142 = K707106781 * (tmp138 + tmp141);
- tmp143 = tmp135 + tmp142;
- tmp227 = tmp135 - tmp142;
- tmp163 = K707106781 * (tmp141 - tmp138);
- tmp167 = tmp163 - tmp166;
- tmp230 = tmp166 + tmp163;
- }
- }
- {
- fftw_real tmp146;
- fftw_real tmp302;
- fftw_real tmp156;
- fftw_real tmp306;
- fftw_real tmp149;
- fftw_real tmp303;
- fftw_real tmp153;
- fftw_real tmp305;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp144;
- fftw_real tmp145;
- fftw_real tmp154;
- fftw_real tmp155;
- ASSERT_ALIGNED_DOUBLE;
- tmp144 = input[3 * istride];
- tmp145 = input[35 * istride];
- tmp146 = tmp144 - tmp145;
- tmp302 = tmp144 + tmp145;
- tmp154 = input[11 * istride];
- tmp155 = input[43 * istride];
- tmp156 = tmp154 - tmp155;
- tmp306 = tmp154 + tmp155;
- }
- {
- fftw_real tmp147;
- fftw_real tmp148;
- fftw_real tmp151;
- fftw_real tmp152;
- ASSERT_ALIGNED_DOUBLE;
- tmp147 = input[19 * istride];
- tmp148 = input[51 * istride];
- tmp149 = tmp147 - tmp148;
- tmp303 = tmp147 + tmp148;
- tmp151 = input[59 * istride];
- tmp152 = input[27 * istride];
- tmp153 = tmp151 - tmp152;
- tmp305 = tmp151 + tmp152;
- }
- {
- fftw_real tmp150;
- fftw_real tmp157;
- fftw_real tmp160;
- fftw_real tmp161;
- ASSERT_ALIGNED_DOUBLE;
- tmp150 = (K923879532 * tmp146) - (K382683432 * tmp149);
- tmp157 = (K923879532 * tmp153) + (K382683432 * tmp156);
- tmp158 = tmp150 + tmp157;
- tmp231 = tmp157 - tmp150;
- tmp160 = (K382683432 * tmp153) - (K923879532 * tmp156);
- tmp161 = (K382683432 * tmp146) + (K923879532 * tmp149);
- tmp162 = tmp160 - tmp161;
- tmp228 = tmp161 + tmp160;
- }
- {
- fftw_real tmp304;
- fftw_real tmp307;
- fftw_real tmp362;
- fftw_real tmp363;
- ASSERT_ALIGNED_DOUBLE;
- tmp304 = tmp302 - tmp303;
- tmp307 = tmp305 - tmp306;
- tmp308 = K707106781 * (tmp304 + tmp307);
- tmp313 = K707106781 * (tmp307 - tmp304);
- tmp362 = tmp302 + tmp303;
- tmp363 = tmp305 + tmp306;
- tmp364 = tmp362 + tmp363;
- tmp382 = tmp363 - tmp362;
- }
- }
- {
- fftw_real tmp18;
- fftw_real tmp68;
- fftw_real tmp28;
- fftw_real tmp72;
- fftw_real tmp21;
- fftw_real tmp69;
- fftw_real tmp25;
- fftw_real tmp71;
- fftw_real tmp270;
- fftw_real tmp271;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp16;
- fftw_real tmp17;
- fftw_real tmp26;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp16 = input[4 * istride];
- tmp17 = input[36 * istride];
- tmp18 = tmp16 + tmp17;
- tmp68 = tmp16 - tmp17;
- tmp26 = input[12 * istride];
- tmp27 = input[44 * istride];
- tmp28 = tmp26 + tmp27;
- tmp72 = tmp26 - tmp27;
- }
- {
- fftw_real tmp19;
- fftw_real tmp20;
- fftw_real tmp23;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = input[20 * istride];
- tmp20 = input[52 * istride];
- tmp21 = tmp19 + tmp20;
- tmp69 = tmp19 - tmp20;
- tmp23 = input[60 * istride];
- tmp24 = input[28 * istride];
- tmp25 = tmp23 + tmp24;
- tmp71 = tmp23 - tmp24;
- }
- tmp22 = tmp18 + tmp21;
- tmp29 = tmp25 + tmp28;
- tmp30 = tmp22 + tmp29;
- tmp270 = tmp18 - tmp21;
- tmp271 = tmp25 - tmp28;
- tmp272 = K707106781 * (tmp270 + tmp271);
- tmp321 = K707106781 * (tmp271 - tmp270);
- {
- fftw_real tmp70;
- fftw_real tmp73;
- fftw_real tmp174;
- fftw_real tmp175;
- ASSERT_ALIGNED_DOUBLE;
- tmp70 = (K923879532 * tmp68) - (K382683432 * tmp69);
- tmp73 = (K923879532 * tmp71) + (K382683432 * tmp72);
- tmp74 = tmp70 + tmp73;
- tmp239 = tmp73 - tmp70;
- tmp174 = (K382683432 * tmp71) - (K923879532 * tmp72);
- tmp175 = (K382683432 * tmp68) + (K923879532 * tmp69);
- tmp176 = tmp174 - tmp175;
- tmp210 = tmp175 + tmp174;
- }
- }
- {
- fftw_real tmp113;
- fftw_real tmp293;
- fftw_real tmp125;
- fftw_real tmp282;
- fftw_real tmp116;
- fftw_real tmp294;
- fftw_real tmp120;
- fftw_real tmp283;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp111;
- fftw_real tmp112;
- fftw_real tmp123;
- fftw_real tmp124;
- ASSERT_ALIGNED_DOUBLE;
- tmp111 = input[57 * istride];
- tmp112 = input[25 * istride];
- tmp113 = tmp111 - tmp112;
- tmp293 = tmp111 + tmp112;
- tmp123 = input[istride];
- tmp124 = input[33 * istride];
- tmp125 = tmp123 - tmp124;
- tmp282 = tmp123 + tmp124;
- }
- {
- fftw_real tmp114;
- fftw_real tmp115;
- fftw_real tmp118;
- fftw_real tmp119;
- ASSERT_ALIGNED_DOUBLE;
- tmp114 = input[9 * istride];
- tmp115 = input[41 * istride];
- tmp116 = tmp114 - tmp115;
- tmp294 = tmp114 + tmp115;
- tmp118 = input[17 * istride];
- tmp119 = input[49 * istride];
- tmp120 = tmp118 - tmp119;
- tmp283 = tmp118 + tmp119;
- }
- {
- fftw_real tmp352;
- fftw_real tmp353;
- fftw_real tmp117;
- fftw_real tmp126;
- ASSERT_ALIGNED_DOUBLE;
- tmp284 = tmp282 - tmp283;
- tmp352 = tmp282 + tmp283;
- tmp353 = tmp294 + tmp293;
- tmp354 = tmp352 + tmp353;
- tmp378 = tmp352 - tmp353;
- tmp295 = tmp293 - tmp294;
- tmp117 = K707106781 * (tmp113 - tmp116);
- tmp121 = tmp117 - tmp120;
- tmp223 = tmp120 + tmp117;
- tmp126 = K707106781 * (tmp116 + tmp113);
- tmp127 = tmp125 + tmp126;
- tmp220 = tmp125 - tmp126;
- }
- }
- {
- fftw_real tmp98;
- fftw_real tmp288;
- fftw_real tmp108;
- fftw_real tmp286;
- fftw_real tmp101;
- fftw_real tmp289;
- fftw_real tmp105;
- fftw_real tmp285;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp96;
- fftw_real tmp97;
- fftw_real tmp106;
- fftw_real tmp107;
- ASSERT_ALIGNED_DOUBLE;
- tmp96 = input[61 * istride];
- tmp97 = input[29 * istride];
- tmp98 = tmp96 - tmp97;
- tmp288 = tmp96 + tmp97;
- tmp106 = input[21 * istride];
- tmp107 = input[53 * istride];
- tmp108 = tmp106 - tmp107;
- tmp286 = tmp106 + tmp107;
- }
- {
- fftw_real tmp99;
- fftw_real tmp100;
- fftw_real tmp103;
- fftw_real tmp104;
- ASSERT_ALIGNED_DOUBLE;
- tmp99 = input[13 * istride];
- tmp100 = input[45 * istride];
- tmp101 = tmp99 - tmp100;
- tmp289 = tmp99 + tmp100;
- tmp103 = input[5 * istride];
- tmp104 = input[37 * istride];
- tmp105 = tmp103 - tmp104;
- tmp285 = tmp103 + tmp104;
- }
- {
- fftw_real tmp102;
- fftw_real tmp109;
- fftw_real tmp128;
- fftw_real tmp129;
- ASSERT_ALIGNED_DOUBLE;
- tmp102 = (K382683432 * tmp98) - (K923879532 * tmp101);
- tmp109 = (K382683432 * tmp105) + (K923879532 * tmp108);
- tmp110 = tmp102 - tmp109;
- tmp221 = tmp109 + tmp102;
- tmp128 = (K923879532 * tmp105) - (K382683432 * tmp108);
- tmp129 = (K923879532 * tmp98) + (K382683432 * tmp101);
- tmp130 = tmp128 + tmp129;
- tmp224 = tmp129 - tmp128;
- }
- {
- fftw_real tmp287;
- fftw_real tmp290;
- fftw_real tmp355;
- fftw_real tmp356;
- ASSERT_ALIGNED_DOUBLE;
- tmp287 = tmp285 - tmp286;
- tmp290 = tmp288 - tmp289;
- tmp291 = K707106781 * (tmp287 + tmp290);
- tmp296 = K707106781 * (tmp290 - tmp287);
- tmp355 = tmp285 + tmp286;
- tmp356 = tmp288 + tmp289;
- tmp357 = tmp355 + tmp356;
- tmp379 = tmp356 - tmp355;
- }
- }
- {
- fftw_real tmp34;
- fftw_real tmp90;
- fftw_real tmp44;
- fftw_real tmp85;
- fftw_real tmp37;
- fftw_real tmp88;
- fftw_real tmp41;
- fftw_real tmp86;
- fftw_real tmp87;
- fftw_real tmp91;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp33;
- fftw_real tmp42;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = input[2 * istride];
- tmp33 = input[34 * istride];
- tmp34 = tmp32 + tmp33;
- tmp90 = tmp32 - tmp33;
- tmp42 = input[58 * istride];
- tmp43 = input[26 * istride];
- tmp44 = tmp42 + tmp43;
- tmp85 = tmp42 - tmp43;
- }
- {
- fftw_real tmp35;
- fftw_real tmp36;
- fftw_real tmp39;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- tmp35 = input[18 * istride];
- tmp36 = input[50 * istride];
- tmp37 = tmp35 + tmp36;
- tmp88 = tmp35 - tmp36;
- tmp39 = input[10 * istride];
- tmp40 = input[42 * istride];
- tmp41 = tmp39 + tmp40;
- tmp86 = tmp39 - tmp40;
- }
- tmp87 = K707106781 * (tmp85 - tmp86);
- tmp89 = tmp87 - tmp88;
- tmp213 = tmp88 + tmp87;
- tmp91 = K707106781 * (tmp86 + tmp85);
- tmp92 = tmp90 + tmp91;
- tmp212 = tmp90 - tmp91;
- {
- fftw_real tmp38;
- fftw_real tmp45;
- fftw_real tmp274;
- fftw_real tmp275;
- ASSERT_ALIGNED_DOUBLE;
- tmp38 = tmp34 + tmp37;
- tmp45 = tmp41 + tmp44;
- tmp46 = tmp38 + tmp45;
- tmp374 = tmp38 - tmp45;
- tmp274 = tmp34 - tmp37;
- tmp275 = tmp44 - tmp41;
- tmp276 = (K923879532 * tmp274) + (K382683432 * tmp275);
- tmp317 = (K923879532 * tmp275) - (K382683432 * tmp274);
- }
- }
- {
- fftw_real tmp49;
- fftw_real tmp76;
- fftw_real tmp59;
- fftw_real tmp78;
- fftw_real tmp52;
- fftw_real tmp82;
- fftw_real tmp56;
- fftw_real tmp77;
- fftw_real tmp79;
- fftw_real tmp81;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp47;
- fftw_real tmp48;
- fftw_real tmp57;
- fftw_real tmp58;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = input[62 * istride];
- tmp48 = input[30 * istride];
- tmp49 = tmp47 + tmp48;
- tmp76 = tmp47 - tmp48;
- tmp57 = input[54 * istride];
- tmp58 = input[22 * istride];
- tmp59 = tmp57 + tmp58;
- tmp78 = tmp57 - tmp58;
- }
- {
- fftw_real tmp50;
- fftw_real tmp51;
- fftw_real tmp54;
- fftw_real tmp55;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = input[14 * istride];
- tmp51 = input[46 * istride];
- tmp52 = tmp50 + tmp51;
- tmp82 = tmp50 - tmp51;
- tmp54 = input[6 * istride];
- tmp55 = input[38 * istride];
- tmp56 = tmp54 + tmp55;
- tmp77 = tmp54 - tmp55;
- }
- tmp79 = K707106781 * (tmp77 + tmp78);
- tmp80 = tmp76 + tmp79;
- tmp215 = tmp76 - tmp79;
- tmp81 = K707106781 * (tmp78 - tmp77);
- tmp83 = tmp81 - tmp82;
- tmp216 = tmp82 + tmp81;
- {
- fftw_real tmp53;
- fftw_real tmp60;
- fftw_real tmp277;
- fftw_real tmp278;
- ASSERT_ALIGNED_DOUBLE;
- tmp53 = tmp49 + tmp52;
- tmp60 = tmp56 + tmp59;
- tmp61 = tmp53 + tmp60;
- tmp375 = tmp53 - tmp60;
- tmp277 = tmp49 - tmp52;
- tmp278 = tmp59 - tmp56;
- tmp279 = (K923879532 * tmp277) - (K382683432 * tmp278);
- tmp318 = (K382683432 * tmp277) + (K923879532 * tmp278);
- }
- }
- {
- fftw_real tmp31;
- fftw_real tmp62;
- fftw_real tmp369;
- fftw_real tmp370;
- fftw_real tmp371;
- fftw_real tmp372;
- ASSERT_ALIGNED_DOUBLE;
- tmp31 = tmp15 + tmp30;
- tmp62 = tmp46 + tmp61;
- tmp369 = tmp31 + tmp62;
- tmp370 = tmp354 + tmp357;
- tmp371 = tmp361 + tmp364;
- tmp372 = tmp370 + tmp371;
- real_output[16 * real_ostride] = tmp31 - tmp62;
- imag_output[16 * imag_ostride] = tmp371 - tmp370;
- real_output[32 * real_ostride] = tmp369 - tmp372;
- real_output[0] = tmp369 + tmp372;
- }
- {
- fftw_real tmp351;
- fftw_real tmp367;
- fftw_real tmp366;
- fftw_real tmp368;
- fftw_real tmp358;
- fftw_real tmp365;
- ASSERT_ALIGNED_DOUBLE;
- tmp351 = tmp15 - tmp30;
- tmp367 = tmp61 - tmp46;
- tmp358 = tmp354 - tmp357;
- tmp365 = tmp361 - tmp364;
- tmp366 = K707106781 * (tmp358 + tmp365);
- tmp368 = K707106781 * (tmp365 - tmp358);
- real_output[24 * real_ostride] = tmp351 - tmp366;
- real_output[8 * real_ostride] = tmp351 + tmp366;
- imag_output[8 * imag_ostride] = tmp367 + tmp368;
- imag_output[24 * imag_ostride] = tmp368 - tmp367;
- }
- {
- fftw_real tmp75;
- fftw_real tmp189;
- fftw_real tmp94;
- fftw_real tmp199;
- fftw_real tmp173;
- fftw_real tmp190;
- fftw_real tmp132;
- fftw_real tmp184;
- fftw_real tmp180;
- fftw_real tmp200;
- fftw_real tmp194;
- fftw_real tmp204;
- fftw_real tmp169;
- fftw_real tmp185;
- fftw_real tmp197;
- fftw_real tmp205;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp84;
- fftw_real tmp93;
- fftw_real tmp192;
- fftw_real tmp193;
- ASSERT_ALIGNED_DOUBLE;
- tmp75 = tmp67 - tmp74;
- tmp189 = tmp67 + tmp74;
- tmp84 = (K195090322 * tmp80) + (K980785280 * tmp83);
- tmp93 = (K980785280 * tmp89) - (K195090322 * tmp92);
- tmp94 = tmp84 - tmp93;
- tmp199 = tmp93 + tmp84;
- {
- fftw_real tmp171;
- fftw_real tmp172;
- fftw_real tmp122;
- fftw_real tmp131;
- ASSERT_ALIGNED_DOUBLE;
- tmp171 = (K980785280 * tmp80) - (K195090322 * tmp83);
- tmp172 = (K980785280 * tmp92) + (K195090322 * tmp89);
- tmp173 = tmp171 - tmp172;
- tmp190 = tmp172 + tmp171;
- tmp122 = tmp110 - tmp121;
- tmp131 = tmp127 - tmp130;
- tmp132 = (K634393284 * tmp122) + (K773010453 * tmp131);
- tmp184 = (K773010453 * tmp122) - (K634393284 * tmp131);
- }
- tmp180 = tmp176 - tmp179;
- tmp200 = tmp179 + tmp176;
- tmp192 = tmp121 + tmp110;
- tmp193 = tmp127 + tmp130;
- tmp194 = (K098017140 * tmp192) + (K995184726 * tmp193);
- tmp204 = (K995184726 * tmp192) - (K098017140 * tmp193);
- {
- fftw_real tmp159;
- fftw_real tmp168;
- fftw_real tmp195;
- fftw_real tmp196;
- ASSERT_ALIGNED_DOUBLE;
- tmp159 = tmp143 - tmp158;
- tmp168 = tmp162 - tmp167;
- tmp169 = (K773010453 * tmp159) - (K634393284 * tmp168);
- tmp185 = (K773010453 * tmp168) + (K634393284 * tmp159);
- tmp195 = tmp143 + tmp158;
- tmp196 = tmp167 + tmp162;
- tmp197 = (K995184726 * tmp195) - (K098017140 * tmp196);
- tmp205 = (K995184726 * tmp196) + (K098017140 * tmp195);
- }
- }
- {
- fftw_real tmp95;
- fftw_real tmp170;
- fftw_real tmp181;
- fftw_real tmp182;
- ASSERT_ALIGNED_DOUBLE;
- tmp95 = tmp75 + tmp94;
- tmp170 = tmp132 + tmp169;
- real_output[25 * real_ostride] = tmp95 - tmp170;
- real_output[7 * real_ostride] = tmp95 + tmp170;
- tmp181 = tmp173 - tmp180;
- tmp182 = tmp169 - tmp132;
- imag_output[9 * imag_ostride] = tmp181 + tmp182;
- imag_output[23 * imag_ostride] = tmp182 - tmp181;
- }
- {
- fftw_real tmp183;
- fftw_real tmp186;
- fftw_real tmp187;
- fftw_real tmp188;
- ASSERT_ALIGNED_DOUBLE;
- tmp183 = tmp180 + tmp173;
- tmp186 = tmp184 + tmp185;
- imag_output[7 * imag_ostride] = tmp183 + tmp186;
- imag_output[25 * imag_ostride] = tmp186 - tmp183;
- tmp187 = tmp75 - tmp94;
- tmp188 = tmp185 - tmp184;
- real_output[23 * real_ostride] = tmp187 - tmp188;
- real_output[9 * real_ostride] = tmp187 + tmp188;
- }
- {
- fftw_real tmp191;
- fftw_real tmp198;
- fftw_real tmp201;
- fftw_real tmp202;
- ASSERT_ALIGNED_DOUBLE;
- tmp191 = tmp189 + tmp190;
- tmp198 = tmp194 + tmp197;
- real_output[31 * real_ostride] = tmp191 - tmp198;
- real_output[real_ostride] = tmp191 + tmp198;
- tmp201 = tmp199 - tmp200;
- tmp202 = tmp197 - tmp194;
- imag_output[15 * imag_ostride] = tmp201 + tmp202;
- imag_output[17 * imag_ostride] = tmp202 - tmp201;
- }
- {
- fftw_real tmp203;
- fftw_real tmp206;
- fftw_real tmp207;
- fftw_real tmp208;
- ASSERT_ALIGNED_DOUBLE;
- tmp203 = tmp200 + tmp199;
- tmp206 = tmp204 + tmp205;
- imag_output[imag_ostride] = tmp203 + tmp206;
- imag_output[31 * imag_ostride] = tmp206 - tmp203;
- tmp207 = tmp189 - tmp190;
- tmp208 = tmp205 - tmp204;
- real_output[17 * real_ostride] = tmp207 - tmp208;
- real_output[15 * real_ostride] = tmp207 + tmp208;
- }
- }
- {
- fftw_real tmp377;
- fftw_real tmp393;
- fftw_real tmp387;
- fftw_real tmp389;
- fftw_real tmp384;
- fftw_real tmp388;
- fftw_real tmp392;
- fftw_real tmp394;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp373;
- fftw_real tmp376;
- fftw_real tmp385;
- fftw_real tmp386;
- ASSERT_ALIGNED_DOUBLE;
- tmp373 = tmp7 - tmp14;
- tmp376 = K707106781 * (tmp374 + tmp375);
- tmp377 = tmp373 + tmp376;
- tmp393 = tmp373 - tmp376;
- tmp385 = K707106781 * (tmp375 - tmp374);
- tmp386 = tmp29 - tmp22;
- tmp387 = tmp385 - tmp386;
- tmp389 = tmp386 + tmp385;
- }
- {
- fftw_real tmp380;
- fftw_real tmp383;
- fftw_real tmp390;
- fftw_real tmp391;
- ASSERT_ALIGNED_DOUBLE;
- tmp380 = (K923879532 * tmp378) + (K382683432 * tmp379);
- tmp383 = (K923879532 * tmp381) - (K382683432 * tmp382);
- tmp384 = tmp380 + tmp383;
- tmp388 = tmp383 - tmp380;
- tmp390 = (K923879532 * tmp379) - (K382683432 * tmp378);
- tmp391 = (K382683432 * tmp381) + (K923879532 * tmp382);
- tmp392 = tmp390 + tmp391;
- tmp394 = tmp391 - tmp390;
- }
- real_output[28 * real_ostride] = tmp377 - tmp384;
- real_output[4 * real_ostride] = tmp377 + tmp384;
- imag_output[12 * imag_ostride] = tmp387 + tmp388;
- imag_output[20 * imag_ostride] = tmp388 - tmp387;
- imag_output[4 * imag_ostride] = tmp389 + tmp392;
- imag_output[28 * imag_ostride] = tmp392 - tmp389;
- real_output[20 * real_ostride] = tmp393 - tmp394;
- real_output[12 * real_ostride] = tmp393 + tmp394;
- }
- {
- fftw_real tmp281;
- fftw_real tmp329;
- fftw_real tmp323;
- fftw_real tmp325;
- fftw_real tmp298;
- fftw_real tmp326;
- fftw_real tmp315;
- fftw_real tmp327;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp273;
- fftw_real tmp280;
- fftw_real tmp319;
- fftw_real tmp322;
- ASSERT_ALIGNED_DOUBLE;
- tmp273 = tmp269 + tmp272;
- tmp280 = tmp276 + tmp279;
- tmp281 = tmp273 + tmp280;
- tmp329 = tmp273 - tmp280;
- tmp319 = tmp317 + tmp318;
- tmp322 = tmp320 + tmp321;
- tmp323 = tmp319 - tmp322;
- tmp325 = tmp322 + tmp319;
- }
- {
- fftw_real tmp292;
- fftw_real tmp297;
- fftw_real tmp309;
- fftw_real tmp314;
- ASSERT_ALIGNED_DOUBLE;
- tmp292 = tmp284 + tmp291;
- tmp297 = tmp295 + tmp296;
- tmp298 = (K980785280 * tmp292) + (K195090322 * tmp297);
- tmp326 = (K980785280 * tmp297) - (K195090322 * tmp292);
- tmp309 = tmp301 + tmp308;
- tmp314 = tmp312 + tmp313;
- tmp315 = (K980785280 * tmp309) - (K195090322 * tmp314);
- tmp327 = (K195090322 * tmp309) + (K980785280 * tmp314);
- }
- {
- fftw_real tmp316;
- fftw_real tmp324;
- fftw_real tmp328;
- fftw_real tmp330;
- ASSERT_ALIGNED_DOUBLE;
- tmp316 = tmp298 + tmp315;
- real_output[30 * real_ostride] = tmp281 - tmp316;
- real_output[2 * real_ostride] = tmp281 + tmp316;
- tmp324 = tmp315 - tmp298;
- imag_output[14 * imag_ostride] = tmp323 + tmp324;
- imag_output[18 * imag_ostride] = tmp324 - tmp323;
- tmp328 = tmp326 + tmp327;
- imag_output[2 * imag_ostride] = tmp325 + tmp328;
- imag_output[30 * imag_ostride] = tmp328 - tmp325;
- tmp330 = tmp327 - tmp326;
- real_output[18 * real_ostride] = tmp329 - tmp330;
- real_output[14 * real_ostride] = tmp329 + tmp330;
- }
- }
- {
- fftw_real tmp333;
- fftw_real tmp349;
- fftw_real tmp343;
- fftw_real tmp345;
- fftw_real tmp336;
- fftw_real tmp346;
- fftw_real tmp339;
- fftw_real tmp347;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp331;
- fftw_real tmp332;
- fftw_real tmp341;
- fftw_real tmp342;
- ASSERT_ALIGNED_DOUBLE;
- tmp331 = tmp269 - tmp272;
- tmp332 = tmp318 - tmp317;
- tmp333 = tmp331 + tmp332;
- tmp349 = tmp331 - tmp332;
- tmp341 = tmp279 - tmp276;
- tmp342 = tmp321 - tmp320;
- tmp343 = tmp341 - tmp342;
- tmp345 = tmp342 + tmp341;
- }
- {
- fftw_real tmp334;
- fftw_real tmp335;
- fftw_real tmp337;
- fftw_real tmp338;
- ASSERT_ALIGNED_DOUBLE;
- tmp334 = tmp284 - tmp291;
- tmp335 = tmp296 - tmp295;
- tmp336 = (K831469612 * tmp334) + (K555570233 * tmp335);
- tmp346 = (K831469612 * tmp335) - (K555570233 * tmp334);
- tmp337 = tmp301 - tmp308;
- tmp338 = tmp313 - tmp312;
- tmp339 = (K831469612 * tmp337) - (K555570233 * tmp338);
- tmp347 = (K555570233 * tmp337) + (K831469612 * tmp338);
- }
- {
- fftw_real tmp340;
- fftw_real tmp344;
- fftw_real tmp348;
- fftw_real tmp350;
- ASSERT_ALIGNED_DOUBLE;
- tmp340 = tmp336 + tmp339;
- real_output[26 * real_ostride] = tmp333 - tmp340;
- real_output[6 * real_ostride] = tmp333 + tmp340;
- tmp344 = tmp339 - tmp336;
- imag_output[10 * imag_ostride] = tmp343 + tmp344;
- imag_output[22 * imag_ostride] = tmp344 - tmp343;
- tmp348 = tmp346 + tmp347;
- imag_output[6 * imag_ostride] = tmp345 + tmp348;
- imag_output[26 * imag_ostride] = tmp348 - tmp345;
- tmp350 = tmp347 - tmp346;
- real_output[22 * real_ostride] = tmp349 - tmp350;
- real_output[10 * real_ostride] = tmp349 + tmp350;
- }
- }
- {
- fftw_real tmp211;
- fftw_real tmp249;
- fftw_real tmp218;
- fftw_real tmp259;
- fftw_real tmp237;
- fftw_real tmp250;
- fftw_real tmp226;
- fftw_real tmp244;
- fftw_real tmp240;
- fftw_real tmp260;
- fftw_real tmp254;
- fftw_real tmp264;
- fftw_real tmp233;
- fftw_real tmp245;
- fftw_real tmp257;
- fftw_real tmp265;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp214;
- fftw_real tmp217;
- fftw_real tmp252;
- fftw_real tmp253;
- ASSERT_ALIGNED_DOUBLE;
- tmp211 = tmp209 + tmp210;
- tmp249 = tmp209 - tmp210;
- tmp214 = (K831469612 * tmp212) + (K555570233 * tmp213);
- tmp217 = (K831469612 * tmp215) - (K555570233 * tmp216);
- tmp218 = tmp214 + tmp217;
- tmp259 = tmp217 - tmp214;
- {
- fftw_real tmp235;
- fftw_real tmp236;
- fftw_real tmp222;
- fftw_real tmp225;
- ASSERT_ALIGNED_DOUBLE;
- tmp235 = (K831469612 * tmp213) - (K555570233 * tmp212);
- tmp236 = (K555570233 * tmp215) + (K831469612 * tmp216);
- tmp237 = tmp235 + tmp236;
- tmp250 = tmp236 - tmp235;
- tmp222 = tmp220 + tmp221;
- tmp225 = tmp223 + tmp224;
- tmp226 = (K956940335 * tmp222) + (K290284677 * tmp225);
- tmp244 = (K956940335 * tmp225) - (K290284677 * tmp222);
- }
- tmp240 = tmp238 + tmp239;
- tmp260 = tmp239 - tmp238;
- tmp252 = tmp220 - tmp221;
- tmp253 = tmp224 - tmp223;
- tmp254 = (K881921264 * tmp252) + (K471396736 * tmp253);
- tmp264 = (K881921264 * tmp253) - (K471396736 * tmp252);
- {
- fftw_real tmp229;
- fftw_real tmp232;
- fftw_real tmp255;
- fftw_real tmp256;
- ASSERT_ALIGNED_DOUBLE;
- tmp229 = tmp227 + tmp228;
- tmp232 = tmp230 + tmp231;
- tmp233 = (K956940335 * tmp229) - (K290284677 * tmp232);
- tmp245 = (K290284677 * tmp229) + (K956940335 * tmp232);
- tmp255 = tmp227 - tmp228;
- tmp256 = tmp231 - tmp230;
- tmp257 = (K881921264 * tmp255) - (K471396736 * tmp256);
- tmp265 = (K471396736 * tmp255) + (K881921264 * tmp256);
- }
- }
- {
- fftw_real tmp219;
- fftw_real tmp234;
- fftw_real tmp241;
- fftw_real tmp242;
- ASSERT_ALIGNED_DOUBLE;
- tmp219 = tmp211 + tmp218;
- tmp234 = tmp226 + tmp233;
- real_output[29 * real_ostride] = tmp219 - tmp234;
- real_output[3 * real_ostride] = tmp219 + tmp234;
- tmp241 = tmp237 - tmp240;
- tmp242 = tmp233 - tmp226;
- imag_output[13 * imag_ostride] = tmp241 + tmp242;
- imag_output[19 * imag_ostride] = tmp242 - tmp241;
- }
- {
- fftw_real tmp243;
- fftw_real tmp246;
- fftw_real tmp247;
- fftw_real tmp248;
- ASSERT_ALIGNED_DOUBLE;
- tmp243 = tmp240 + tmp237;
- tmp246 = tmp244 + tmp245;
- imag_output[3 * imag_ostride] = tmp243 + tmp246;
- imag_output[29 * imag_ostride] = tmp246 - tmp243;
- tmp247 = tmp211 - tmp218;
- tmp248 = tmp245 - tmp244;
- real_output[19 * real_ostride] = tmp247 - tmp248;
- real_output[13 * real_ostride] = tmp247 + tmp248;
- }
- {
- fftw_real tmp251;
- fftw_real tmp258;
- fftw_real tmp261;
- fftw_real tmp262;
- ASSERT_ALIGNED_DOUBLE;
- tmp251 = tmp249 + tmp250;
- tmp258 = tmp254 + tmp257;
- real_output[27 * real_ostride] = tmp251 - tmp258;
- real_output[5 * real_ostride] = tmp251 + tmp258;
- tmp261 = tmp259 - tmp260;
- tmp262 = tmp257 - tmp254;
- imag_output[11 * imag_ostride] = tmp261 + tmp262;
- imag_output[21 * imag_ostride] = tmp262 - tmp261;
- }
- {
- fftw_real tmp263;
- fftw_real tmp266;
- fftw_real tmp267;
- fftw_real tmp268;
- ASSERT_ALIGNED_DOUBLE;
- tmp263 = tmp260 + tmp259;
- tmp266 = tmp264 + tmp265;
- imag_output[5 * imag_ostride] = tmp263 + tmp266;
- imag_output[27 * imag_ostride] = tmp266 - tmp263;
- tmp267 = tmp249 - tmp250;
- tmp268 = tmp265 - tmp264;
- real_output[21 * real_ostride] = tmp267 - tmp268;
- real_output[11 * real_ostride] = tmp267 + tmp268;
- }
- }
-}
-
-fftw_codelet_desc fftw_real2hc_64_desc =
-{
- "fftw_real2hc_64",
- (void (*)()) fftw_real2hc_64,
- 64,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 1410,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_7.c b/src/sndobj/rfftw/frc_7.c
deleted file mode 100644
index 3760736..0000000
--- a/src/sndobj/rfftw/frc_7.c
+++ /dev/null
@@ -1,98 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:54 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 7 */
-
-/*
- * This function contains 24 FP additions, 18 FP multiplications,
- * (or, 24 additions, 18 multiplications, 0 fused multiply/add),
- * 13 stack variables, and 14 memory accesses
- */
-static const fftw_real K222520933 = FFTW_KONST(+0.222520933956314404288902564496794759466355569);
-static const fftw_real K900968867 = FFTW_KONST(+0.900968867902419126236102319507445051165919162);
-static const fftw_real K623489801 = FFTW_KONST(+0.623489801858733530525004884004239810632274731);
-static const fftw_real K433883739 = FFTW_KONST(+0.433883739117558120475768332848358754609990728);
-static const fftw_real K781831482 = FFTW_KONST(+0.781831482468029808708444526674057750232334519);
-static const fftw_real K974927912 = FFTW_KONST(+0.974927912181823607018131682993931217232785801);
-
-/*
- * Generator Id's :
- * $Id: frc_7.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: frc_7.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: frc_7.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_real2hc_7(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp1;
- fftw_real tmp10;
- fftw_real tmp11;
- fftw_real tmp4;
- fftw_real tmp13;
- fftw_real tmp7;
- fftw_real tmp12;
- fftw_real tmp8;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp8 = input[istride];
- tmp9 = input[6 * istride];
- tmp10 = tmp8 + tmp9;
- tmp11 = tmp9 - tmp8;
- {
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp6;
- ASSERT_ALIGNED_DOUBLE;
- tmp2 = input[2 * istride];
- tmp3 = input[5 * istride];
- tmp4 = tmp2 + tmp3;
- tmp13 = tmp3 - tmp2;
- tmp5 = input[3 * istride];
- tmp6 = input[4 * istride];
- tmp7 = tmp5 + tmp6;
- tmp12 = tmp6 - tmp5;
- }
- imag_output[2 * imag_ostride] = (K974927912 * tmp11) - (K781831482 * tmp12) - (K433883739 * tmp13);
- imag_output[imag_ostride] = (K781831482 * tmp11) + (K974927912 * tmp13) + (K433883739 * tmp12);
- imag_output[3 * imag_ostride] = (K433883739 * tmp11) + (K974927912 * tmp12) - (K781831482 * tmp13);
- real_output[2 * real_ostride] = tmp1 + (K623489801 * tmp7) - (K900968867 * tmp4) - (K222520933 * tmp10);
- real_output[real_ostride] = tmp1 + (K623489801 * tmp10) - (K900968867 * tmp7) - (K222520933 * tmp4);
- real_output[3 * real_ostride] = tmp1 + (K623489801 * tmp4) - (K222520933 * tmp7) - (K900968867 * tmp10);
- real_output[0] = tmp1 + tmp10 + tmp4 + tmp7;
-}
-
-fftw_codelet_desc fftw_real2hc_7_desc =
-{
- "fftw_real2hc_7",
- (void (*)()) fftw_real2hc_7,
- 7,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 156,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_8.c b/src/sndobj/rfftw/frc_8.c
deleted file mode 100644
index 660c9e1..0000000
--- a/src/sndobj/rfftw/frc_8.c
+++ /dev/null
@@ -1,114 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:54 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 8 */
-
-/*
- * This function contains 20 FP additions, 2 FP multiplications,
- * (or, 20 additions, 2 multiplications, 0 fused multiply/add),
- * 12 stack variables, and 16 memory accesses
- */
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: frc_8.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: frc_8.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- * $Id: frc_8.c,v 1.1.1.1 2006/05/12 15:14:59 veplaini Exp $
- */
-
-void fftw_real2hc_8(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp3;
- fftw_real tmp7;
- fftw_real tmp13;
- fftw_real tmp19;
- fftw_real tmp6;
- fftw_real tmp16;
- fftw_real tmp10;
- fftw_real tmp18;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp2;
- fftw_real tmp11;
- fftw_real tmp12;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- tmp2 = input[4 * istride];
- tmp3 = tmp1 + tmp2;
- tmp7 = tmp1 - tmp2;
- tmp11 = input[7 * istride];
- tmp12 = input[3 * istride];
- tmp13 = tmp11 - tmp12;
- tmp19 = tmp11 + tmp12;
- }
- {
- fftw_real tmp4;
- fftw_real tmp5;
- fftw_real tmp8;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp4 = input[2 * istride];
- tmp5 = input[6 * istride];
- tmp6 = tmp4 + tmp5;
- tmp16 = tmp4 - tmp5;
- tmp8 = input[istride];
- tmp9 = input[5 * istride];
- tmp10 = tmp8 - tmp9;
- tmp18 = tmp8 + tmp9;
- }
- {
- fftw_real tmp17;
- fftw_real tmp20;
- fftw_real tmp14;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- real_output[2 * real_ostride] = tmp3 - tmp6;
- tmp17 = tmp3 + tmp6;
- tmp20 = tmp18 + tmp19;
- real_output[4 * real_ostride] = tmp17 - tmp20;
- real_output[0] = tmp17 + tmp20;
- imag_output[2 * imag_ostride] = tmp19 - tmp18;
- tmp14 = K707106781 * (tmp10 + tmp13);
- real_output[3 * real_ostride] = tmp7 - tmp14;
- real_output[real_ostride] = tmp7 + tmp14;
- tmp15 = K707106781 * (tmp13 - tmp10);
- imag_output[imag_ostride] = tmp15 - tmp16;
- imag_output[3 * imag_ostride] = tmp16 + tmp15;
- }
-}
-
-fftw_codelet_desc fftw_real2hc_8_desc =
-{
- "fftw_real2hc_8",
- (void (*)()) fftw_real2hc_8,
- 8,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 178,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/frc_9.c b/src/sndobj/rfftw/frc_9.c
deleted file mode 100644
index 1e9b2e4..0000000
--- a/src/sndobj/rfftw/frc_9.c
+++ /dev/null
@@ -1,146 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:43:55 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 9 */
-
-/*
- * This function contains 38 FP additions, 26 FP multiplications,
- * (or, 29 additions, 17 multiplications, 9 fused multiply/add),
- * 21 stack variables, and 18 memory accesses
- */
-static const fftw_real K342020143 = FFTW_KONST(+0.342020143325668733044099614682259580763083368);
-static const fftw_real K813797681 = FFTW_KONST(+0.813797681349373692844693217248393223289101568);
-static const fftw_real K939692620 = FFTW_KONST(+0.939692620785908384054109277324731469936208134);
-static const fftw_real K296198132 = FFTW_KONST(+0.296198132726023843175338011893050938967728390);
-static const fftw_real K852868531 = FFTW_KONST(+0.852868531952443209628250963940074071936020296);
-static const fftw_real K173648177 = FFTW_KONST(+0.173648177666930348851716626769314796000375677);
-static const fftw_real K556670399 = FFTW_KONST(+0.556670399226419366452912952047023132968291906);
-static const fftw_real K766044443 = FFTW_KONST(+0.766044443118978035202392650555416673935832457);
-static const fftw_real K984807753 = FFTW_KONST(+0.984807753012208059366743024589523013670643252);
-static const fftw_real K150383733 = FFTW_KONST(+0.150383733180435296639271897612501926072238258);
-static const fftw_real K642787609 = FFTW_KONST(+0.642787609686539326322643409907263432907559884);
-static const fftw_real K663413948 = FFTW_KONST(+0.663413948168938396205421319635891297216863310);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: frc_9.c,v 1.1.1.1 2006/05/12 15:15:02 veplaini Exp $
- * $Id: frc_9.c,v 1.1.1.1 2006/05/12 15:15:02 veplaini Exp $
- * $Id: frc_9.c,v 1.1.1.1 2006/05/12 15:15:02 veplaini Exp $
- */
-
-void fftw_real2hc_9(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
-{
- fftw_real tmp1;
- fftw_real tmp15;
- fftw_real tmp20;
- fftw_real tmp19;
- fftw_real tmp4;
- fftw_real tmp27;
- fftw_real tmp10;
- fftw_real tmp18;
- fftw_real tmp21;
- fftw_real tmp2;
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = input[0];
- {
- fftw_real tmp11;
- fftw_real tmp12;
- fftw_real tmp13;
- fftw_real tmp14;
- ASSERT_ALIGNED_DOUBLE;
- tmp11 = input[2 * istride];
- tmp12 = input[5 * istride];
- tmp13 = input[8 * istride];
- tmp14 = tmp12 + tmp13;
- tmp15 = tmp11 + tmp14;
- tmp20 = tmp11 - (K500000000 * tmp14);
- tmp19 = tmp13 - tmp12;
- }
- tmp2 = input[3 * istride];
- tmp3 = input[6 * istride];
- tmp4 = tmp2 + tmp3;
- tmp27 = tmp3 - tmp2;
- {
- fftw_real tmp6;
- fftw_real tmp7;
- fftw_real tmp8;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp6 = input[istride];
- tmp7 = input[4 * istride];
- tmp8 = input[7 * istride];
- tmp9 = tmp7 + tmp8;
- tmp10 = tmp6 + tmp9;
- tmp18 = tmp6 - (K500000000 * tmp9);
- tmp21 = tmp8 - tmp7;
- }
- imag_output[3 * imag_ostride] = K866025403 * (tmp15 - tmp10);
- tmp5 = tmp1 + tmp4;
- tmp16 = tmp10 + tmp15;
- real_output[3 * real_ostride] = tmp5 - (K500000000 * tmp16);
- real_output[0] = tmp5 + tmp16;
- {
- fftw_real tmp29;
- fftw_real tmp25;
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp17;
- fftw_real tmp22;
- fftw_real tmp23;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- tmp29 = K866025403 * tmp27;
- tmp25 = (K663413948 * tmp21) - (K642787609 * tmp18);
- tmp26 = (K150383733 * tmp19) - (K984807753 * tmp20);
- tmp28 = tmp25 + tmp26;
- tmp17 = tmp1 - (K500000000 * tmp4);
- tmp22 = (K766044443 * tmp18) + (K556670399 * tmp21);
- tmp23 = (K173648177 * tmp20) + (K852868531 * tmp19);
- tmp24 = tmp22 + tmp23;
- real_output[real_ostride] = tmp17 + tmp24;
- real_output[4 * real_ostride] = tmp17 + (K866025403 * (tmp25 - tmp26)) - (K500000000 * tmp24);
- real_output[2 * real_ostride] = tmp17 + (K173648177 * tmp18) - (K296198132 * tmp19) - (K939692620 * tmp20) - (K852868531 * tmp21);
- imag_output[imag_ostride] = tmp29 + tmp28;
- imag_output[4 * imag_ostride] = (K866025403 * (tmp27 + (tmp23 - tmp22))) - (K500000000 * tmp28);
- imag_output[2 * imag_ostride] = (K813797681 * tmp19) - (K342020143 * tmp20) - (K150383733 * tmp21) - (K984807753 * tmp18) - tmp29;
- }
-}
-
-fftw_codelet_desc fftw_real2hc_9_desc =
-{
- "fftw_real2hc_9",
- (void (*)()) fftw_real2hc_9,
- 9,
- FFTW_FORWARD,
- FFTW_REAL2HC,
- 200,
- 0,
- (const int *) 0,
-};
diff --git a/src/sndobj/rfftw/ftw_10.c b/src/sndobj/rfftw/ftw_10.c
deleted file mode 100644
index dc97aae..0000000
--- a/src/sndobj/rfftw/ftw_10.c
+++ /dev/null
@@ -1,375 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:36 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 10 */
-
-/*
- * This function contains 102 FP additions, 60 FP multiplications,
- * (or, 72 additions, 30 multiplications, 30 fused multiply/add),
- * 42 stack variables, and 40 memory accesses
- */
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-
-/*
- * Generator Id's :
- * $Id: ftw_10.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: ftw_10.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: ftw_10.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- */
-
-void fftw_twiddle_10(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 9) {
- fftw_real tmp7;
- fftw_real tmp55;
- fftw_real tmp100;
- fftw_real tmp112;
- fftw_real tmp41;
- fftw_real tmp52;
- fftw_real tmp53;
- fftw_real tmp59;
- fftw_real tmp60;
- fftw_real tmp61;
- fftw_real tmp75;
- fftw_real tmp78;
- fftw_real tmp110;
- fftw_real tmp86;
- fftw_real tmp87;
- fftw_real tmp96;
- fftw_real tmp18;
- fftw_real tmp29;
- fftw_real tmp30;
- fftw_real tmp56;
- fftw_real tmp57;
- fftw_real tmp58;
- fftw_real tmp68;
- fftw_real tmp71;
- fftw_real tmp109;
- fftw_real tmp89;
- fftw_real tmp90;
- fftw_real tmp95;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp99;
- fftw_real tmp6;
- fftw_real tmp98;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp99 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[5 * iostride]);
- tmp5 = c_im(inout[5 * iostride]);
- tmp2 = c_re(W[4]);
- tmp4 = c_im(W[4]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp98 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- tmp7 = tmp1 - tmp6;
- tmp55 = tmp1 + tmp6;
- tmp100 = tmp98 + tmp99;
- tmp112 = tmp99 - tmp98;
- }
- {
- fftw_real tmp35;
- fftw_real tmp73;
- fftw_real tmp51;
- fftw_real tmp77;
- fftw_real tmp40;
- fftw_real tmp74;
- fftw_real tmp46;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[4 * iostride]);
- tmp34 = c_im(inout[4 * iostride]);
- tmp31 = c_re(W[3]);
- tmp33 = c_im(W[3]);
- tmp35 = (tmp31 * tmp32) - (tmp33 * tmp34);
- tmp73 = (tmp33 * tmp32) + (tmp31 * tmp34);
- }
- {
- fftw_real tmp48;
- fftw_real tmp50;
- fftw_real tmp47;
- fftw_real tmp49;
- ASSERT_ALIGNED_DOUBLE;
- tmp48 = c_re(inout[iostride]);
- tmp50 = c_im(inout[iostride]);
- tmp47 = c_re(W[0]);
- tmp49 = c_im(W[0]);
- tmp51 = (tmp47 * tmp48) - (tmp49 * tmp50);
- tmp77 = (tmp49 * tmp48) + (tmp47 * tmp50);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[9 * iostride]);
- tmp39 = c_im(inout[9 * iostride]);
- tmp36 = c_re(W[8]);
- tmp38 = c_im(W[8]);
- tmp40 = (tmp36 * tmp37) - (tmp38 * tmp39);
- tmp74 = (tmp38 * tmp37) + (tmp36 * tmp39);
- }
- {
- fftw_real tmp43;
- fftw_real tmp45;
- fftw_real tmp42;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = c_re(inout[6 * iostride]);
- tmp45 = c_im(inout[6 * iostride]);
- tmp42 = c_re(W[5]);
- tmp44 = c_im(W[5]);
- tmp46 = (tmp42 * tmp43) - (tmp44 * tmp45);
- tmp76 = (tmp44 * tmp43) + (tmp42 * tmp45);
- }
- tmp41 = tmp35 - tmp40;
- tmp52 = tmp46 - tmp51;
- tmp53 = tmp41 + tmp52;
- tmp59 = tmp35 + tmp40;
- tmp60 = tmp46 + tmp51;
- tmp61 = tmp59 + tmp60;
- tmp75 = tmp73 - tmp74;
- tmp78 = tmp76 - tmp77;
- tmp110 = tmp75 + tmp78;
- tmp86 = tmp73 + tmp74;
- tmp87 = tmp76 + tmp77;
- tmp96 = tmp86 + tmp87;
- }
- {
- fftw_real tmp12;
- fftw_real tmp66;
- fftw_real tmp28;
- fftw_real tmp70;
- fftw_real tmp17;
- fftw_real tmp67;
- fftw_real tmp23;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[2 * iostride]);
- tmp11 = c_im(inout[2 * iostride]);
- tmp8 = c_re(W[1]);
- tmp10 = c_im(W[1]);
- tmp12 = (tmp8 * tmp9) - (tmp10 * tmp11);
- tmp66 = (tmp10 * tmp9) + (tmp8 * tmp11);
- }
- {
- fftw_real tmp25;
- fftw_real tmp27;
- fftw_real tmp24;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = c_re(inout[3 * iostride]);
- tmp27 = c_im(inout[3 * iostride]);
- tmp24 = c_re(W[2]);
- tmp26 = c_im(W[2]);
- tmp28 = (tmp24 * tmp25) - (tmp26 * tmp27);
- tmp70 = (tmp26 * tmp25) + (tmp24 * tmp27);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[7 * iostride]);
- tmp16 = c_im(inout[7 * iostride]);
- tmp13 = c_re(W[6]);
- tmp15 = c_im(W[6]);
- tmp17 = (tmp13 * tmp14) - (tmp15 * tmp16);
- tmp67 = (tmp15 * tmp14) + (tmp13 * tmp16);
- }
- {
- fftw_real tmp20;
- fftw_real tmp22;
- fftw_real tmp19;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp20 = c_re(inout[8 * iostride]);
- tmp22 = c_im(inout[8 * iostride]);
- tmp19 = c_re(W[7]);
- tmp21 = c_im(W[7]);
- tmp23 = (tmp19 * tmp20) - (tmp21 * tmp22);
- tmp69 = (tmp21 * tmp20) + (tmp19 * tmp22);
- }
- tmp18 = tmp12 - tmp17;
- tmp29 = tmp23 - tmp28;
- tmp30 = tmp18 + tmp29;
- tmp56 = tmp12 + tmp17;
- tmp57 = tmp23 + tmp28;
- tmp58 = tmp56 + tmp57;
- tmp68 = tmp66 - tmp67;
- tmp71 = tmp69 - tmp70;
- tmp109 = tmp68 + tmp71;
- tmp89 = tmp66 + tmp67;
- tmp90 = tmp69 + tmp70;
- tmp95 = tmp89 + tmp90;
- }
- {
- fftw_real tmp63;
- fftw_real tmp54;
- fftw_real tmp64;
- fftw_real tmp80;
- fftw_real tmp82;
- fftw_real tmp72;
- fftw_real tmp79;
- fftw_real tmp81;
- fftw_real tmp65;
- ASSERT_ALIGNED_DOUBLE;
- tmp63 = K559016994 * (tmp30 - tmp53);
- tmp54 = tmp30 + tmp53;
- tmp64 = tmp7 - (K250000000 * tmp54);
- tmp72 = tmp68 - tmp71;
- tmp79 = tmp75 - tmp78;
- tmp80 = (K951056516 * tmp72) + (K587785252 * tmp79);
- tmp82 = (K951056516 * tmp79) - (K587785252 * tmp72);
- c_re(inout[5 * iostride]) = tmp7 + tmp54;
- tmp81 = tmp64 - tmp63;
- c_re(inout[7 * iostride]) = tmp81 - tmp82;
- c_re(inout[3 * iostride]) = tmp81 + tmp82;
- tmp65 = tmp63 + tmp64;
- c_re(inout[9 * iostride]) = tmp65 - tmp80;
- c_re(inout[iostride]) = tmp65 + tmp80;
- }
- {
- fftw_real tmp111;
- fftw_real tmp113;
- fftw_real tmp114;
- fftw_real tmp118;
- fftw_real tmp120;
- fftw_real tmp116;
- fftw_real tmp117;
- fftw_real tmp119;
- fftw_real tmp115;
- ASSERT_ALIGNED_DOUBLE;
- tmp111 = K559016994 * (tmp109 - tmp110);
- tmp113 = tmp109 + tmp110;
- tmp114 = tmp112 - (K250000000 * tmp113);
- tmp116 = tmp18 - tmp29;
- tmp117 = tmp41 - tmp52;
- tmp118 = (K951056516 * tmp116) + (K587785252 * tmp117);
- tmp120 = (K951056516 * tmp117) - (K587785252 * tmp116);
- c_im(inout[5 * iostride]) = tmp113 + tmp112;
- tmp119 = tmp114 - tmp111;
- c_im(inout[3 * iostride]) = tmp119 - tmp120;
- c_im(inout[7 * iostride]) = tmp120 + tmp119;
- tmp115 = tmp111 + tmp114;
- c_im(inout[iostride]) = tmp115 - tmp118;
- c_im(inout[9 * iostride]) = tmp118 + tmp115;
- }
- {
- fftw_real tmp84;
- fftw_real tmp62;
- fftw_real tmp83;
- fftw_real tmp92;
- fftw_real tmp94;
- fftw_real tmp88;
- fftw_real tmp91;
- fftw_real tmp93;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- tmp84 = K559016994 * (tmp58 - tmp61);
- tmp62 = tmp58 + tmp61;
- tmp83 = tmp55 - (K250000000 * tmp62);
- tmp88 = tmp86 - tmp87;
- tmp91 = tmp89 - tmp90;
- tmp92 = (K951056516 * tmp88) - (K587785252 * tmp91);
- tmp94 = (K951056516 * tmp91) + (K587785252 * tmp88);
- c_re(inout[0]) = tmp55 + tmp62;
- tmp93 = tmp84 + tmp83;
- c_re(inout[4 * iostride]) = tmp93 - tmp94;
- c_re(inout[6 * iostride]) = tmp93 + tmp94;
- tmp85 = tmp83 - tmp84;
- c_re(inout[2 * iostride]) = tmp85 - tmp92;
- c_re(inout[8 * iostride]) = tmp85 + tmp92;
- }
- {
- fftw_real tmp105;
- fftw_real tmp97;
- fftw_real tmp104;
- fftw_real tmp103;
- fftw_real tmp107;
- fftw_real tmp101;
- fftw_real tmp102;
- fftw_real tmp108;
- fftw_real tmp106;
- ASSERT_ALIGNED_DOUBLE;
- tmp105 = K559016994 * (tmp95 - tmp96);
- tmp97 = tmp95 + tmp96;
- tmp104 = tmp100 - (K250000000 * tmp97);
- tmp101 = tmp59 - tmp60;
- tmp102 = tmp56 - tmp57;
- tmp103 = (K951056516 * tmp101) - (K587785252 * tmp102);
- tmp107 = (K951056516 * tmp102) + (K587785252 * tmp101);
- c_im(inout[0]) = tmp97 + tmp100;
- tmp108 = tmp105 + tmp104;
- c_im(inout[4 * iostride]) = tmp107 + tmp108;
- c_im(inout[6 * iostride]) = tmp108 - tmp107;
- tmp106 = tmp104 - tmp105;
- c_im(inout[2 * iostride]) = tmp103 + tmp106;
- c_im(inout[8 * iostride]) = tmp106 - tmp103;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9};
-fftw_codelet_desc fftw_twiddle_10_desc =
-{
- "fftw_twiddle_10",
- (void (*)()) fftw_twiddle_10,
- 10,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 220,
- 9,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftw_16.c b/src/sndobj/rfftw/ftw_16.c
deleted file mode 100644
index 722b1f4..0000000
--- a/src/sndobj/rfftw/ftw_16.c
+++ /dev/null
@@ -1,611 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:36 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 16 */
-
-/*
- * This function contains 174 FP additions, 84 FP multiplications,
- * (or, 136 additions, 46 multiplications, 38 fused multiply/add),
- * 50 stack variables, and 64 memory accesses
- */
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: ftw_16.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: ftw_16.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: ftw_16.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- */
-
-void fftw_twiddle_16(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 15) {
- fftw_real tmp7;
- fftw_real tmp91;
- fftw_real tmp180;
- fftw_real tmp193;
- fftw_real tmp18;
- fftw_real tmp194;
- fftw_real tmp94;
- fftw_real tmp177;
- fftw_real tmp77;
- fftw_real tmp88;
- fftw_real tmp161;
- fftw_real tmp128;
- fftw_real tmp144;
- fftw_real tmp162;
- fftw_real tmp163;
- fftw_real tmp164;
- fftw_real tmp123;
- fftw_real tmp143;
- fftw_real tmp30;
- fftw_real tmp152;
- fftw_real tmp100;
- fftw_real tmp136;
- fftw_real tmp41;
- fftw_real tmp153;
- fftw_real tmp105;
- fftw_real tmp137;
- fftw_real tmp54;
- fftw_real tmp65;
- fftw_real tmp156;
- fftw_real tmp117;
- fftw_real tmp141;
- fftw_real tmp157;
- fftw_real tmp158;
- fftw_real tmp159;
- fftw_real tmp112;
- fftw_real tmp140;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp179;
- fftw_real tmp6;
- fftw_real tmp178;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp179 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[8 * iostride]);
- tmp5 = c_im(inout[8 * iostride]);
- tmp2 = c_re(W[7]);
- tmp4 = c_im(W[7]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp178 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- tmp7 = tmp1 + tmp6;
- tmp91 = tmp1 - tmp6;
- tmp180 = tmp178 + tmp179;
- tmp193 = tmp179 - tmp178;
- }
- {
- fftw_real tmp12;
- fftw_real tmp92;
- fftw_real tmp17;
- fftw_real tmp93;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[4 * iostride]);
- tmp11 = c_im(inout[4 * iostride]);
- tmp8 = c_re(W[3]);
- tmp10 = c_im(W[3]);
- tmp12 = (tmp8 * tmp9) - (tmp10 * tmp11);
- tmp92 = (tmp10 * tmp9) + (tmp8 * tmp11);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[12 * iostride]);
- tmp16 = c_im(inout[12 * iostride]);
- tmp13 = c_re(W[11]);
- tmp15 = c_im(W[11]);
- tmp17 = (tmp13 * tmp14) - (tmp15 * tmp16);
- tmp93 = (tmp15 * tmp14) + (tmp13 * tmp16);
- }
- tmp18 = tmp12 + tmp17;
- tmp194 = tmp12 - tmp17;
- tmp94 = tmp92 - tmp93;
- tmp177 = tmp92 + tmp93;
- }
- {
- fftw_real tmp71;
- fftw_real tmp124;
- fftw_real tmp87;
- fftw_real tmp121;
- fftw_real tmp76;
- fftw_real tmp125;
- fftw_real tmp82;
- fftw_real tmp120;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp68;
- fftw_real tmp70;
- fftw_real tmp67;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- tmp68 = c_re(inout[15 * iostride]);
- tmp70 = c_im(inout[15 * iostride]);
- tmp67 = c_re(W[14]);
- tmp69 = c_im(W[14]);
- tmp71 = (tmp67 * tmp68) - (tmp69 * tmp70);
- tmp124 = (tmp69 * tmp68) + (tmp67 * tmp70);
- }
- {
- fftw_real tmp84;
- fftw_real tmp86;
- fftw_real tmp83;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- tmp84 = c_re(inout[11 * iostride]);
- tmp86 = c_im(inout[11 * iostride]);
- tmp83 = c_re(W[10]);
- tmp85 = c_im(W[10]);
- tmp87 = (tmp83 * tmp84) - (tmp85 * tmp86);
- tmp121 = (tmp85 * tmp84) + (tmp83 * tmp86);
- }
- {
- fftw_real tmp73;
- fftw_real tmp75;
- fftw_real tmp72;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = c_re(inout[7 * iostride]);
- tmp75 = c_im(inout[7 * iostride]);
- tmp72 = c_re(W[6]);
- tmp74 = c_im(W[6]);
- tmp76 = (tmp72 * tmp73) - (tmp74 * tmp75);
- tmp125 = (tmp74 * tmp73) + (tmp72 * tmp75);
- }
- {
- fftw_real tmp79;
- fftw_real tmp81;
- fftw_real tmp78;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp79 = c_re(inout[3 * iostride]);
- tmp81 = c_im(inout[3 * iostride]);
- tmp78 = c_re(W[2]);
- tmp80 = c_im(W[2]);
- tmp82 = (tmp78 * tmp79) - (tmp80 * tmp81);
- tmp120 = (tmp80 * tmp79) + (tmp78 * tmp81);
- }
- {
- fftw_real tmp126;
- fftw_real tmp127;
- fftw_real tmp119;
- fftw_real tmp122;
- ASSERT_ALIGNED_DOUBLE;
- tmp77 = tmp71 + tmp76;
- tmp88 = tmp82 + tmp87;
- tmp161 = tmp77 - tmp88;
- tmp126 = tmp124 - tmp125;
- tmp127 = tmp82 - tmp87;
- tmp128 = tmp126 + tmp127;
- tmp144 = tmp126 - tmp127;
- tmp162 = tmp124 + tmp125;
- tmp163 = tmp120 + tmp121;
- tmp164 = tmp162 - tmp163;
- tmp119 = tmp71 - tmp76;
- tmp122 = tmp120 - tmp121;
- tmp123 = tmp119 - tmp122;
- tmp143 = tmp119 + tmp122;
- }
- }
- {
- fftw_real tmp24;
- fftw_real tmp96;
- fftw_real tmp29;
- fftw_real tmp97;
- fftw_real tmp98;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp21;
- fftw_real tmp23;
- fftw_real tmp20;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = c_re(inout[2 * iostride]);
- tmp23 = c_im(inout[2 * iostride]);
- tmp20 = c_re(W[1]);
- tmp22 = c_im(W[1]);
- tmp24 = (tmp20 * tmp21) - (tmp22 * tmp23);
- tmp96 = (tmp22 * tmp21) + (tmp20 * tmp23);
- }
- {
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp25;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(inout[10 * iostride]);
- tmp28 = c_im(inout[10 * iostride]);
- tmp25 = c_re(W[9]);
- tmp27 = c_im(W[9]);
- tmp29 = (tmp25 * tmp26) - (tmp27 * tmp28);
- tmp97 = (tmp27 * tmp26) + (tmp25 * tmp28);
- }
- tmp30 = tmp24 + tmp29;
- tmp152 = tmp96 + tmp97;
- tmp98 = tmp96 - tmp97;
- tmp99 = tmp24 - tmp29;
- tmp100 = tmp98 - tmp99;
- tmp136 = tmp99 + tmp98;
- }
- {
- fftw_real tmp35;
- fftw_real tmp102;
- fftw_real tmp40;
- fftw_real tmp103;
- fftw_real tmp101;
- fftw_real tmp104;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[14 * iostride]);
- tmp34 = c_im(inout[14 * iostride]);
- tmp31 = c_re(W[13]);
- tmp33 = c_im(W[13]);
- tmp35 = (tmp31 * tmp32) - (tmp33 * tmp34);
- tmp102 = (tmp33 * tmp32) + (tmp31 * tmp34);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[6 * iostride]);
- tmp39 = c_im(inout[6 * iostride]);
- tmp36 = c_re(W[5]);
- tmp38 = c_im(W[5]);
- tmp40 = (tmp36 * tmp37) - (tmp38 * tmp39);
- tmp103 = (tmp38 * tmp37) + (tmp36 * tmp39);
- }
- tmp41 = tmp35 + tmp40;
- tmp153 = tmp102 + tmp103;
- tmp101 = tmp35 - tmp40;
- tmp104 = tmp102 - tmp103;
- tmp105 = tmp101 + tmp104;
- tmp137 = tmp101 - tmp104;
- }
- {
- fftw_real tmp48;
- fftw_real tmp108;
- fftw_real tmp64;
- fftw_real tmp115;
- fftw_real tmp53;
- fftw_real tmp109;
- fftw_real tmp59;
- fftw_real tmp114;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp45;
- fftw_real tmp47;
- fftw_real tmp44;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = c_re(inout[iostride]);
- tmp47 = c_im(inout[iostride]);
- tmp44 = c_re(W[0]);
- tmp46 = c_im(W[0]);
- tmp48 = (tmp44 * tmp45) - (tmp46 * tmp47);
- tmp108 = (tmp46 * tmp45) + (tmp44 * tmp47);
- }
- {
- fftw_real tmp61;
- fftw_real tmp63;
- fftw_real tmp60;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = c_re(inout[13 * iostride]);
- tmp63 = c_im(inout[13 * iostride]);
- tmp60 = c_re(W[12]);
- tmp62 = c_im(W[12]);
- tmp64 = (tmp60 * tmp61) - (tmp62 * tmp63);
- tmp115 = (tmp62 * tmp61) + (tmp60 * tmp63);
- }
- {
- fftw_real tmp50;
- fftw_real tmp52;
- fftw_real tmp49;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = c_re(inout[9 * iostride]);
- tmp52 = c_im(inout[9 * iostride]);
- tmp49 = c_re(W[8]);
- tmp51 = c_im(W[8]);
- tmp53 = (tmp49 * tmp50) - (tmp51 * tmp52);
- tmp109 = (tmp51 * tmp50) + (tmp49 * tmp52);
- }
- {
- fftw_real tmp56;
- fftw_real tmp58;
- fftw_real tmp55;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp56 = c_re(inout[5 * iostride]);
- tmp58 = c_im(inout[5 * iostride]);
- tmp55 = c_re(W[4]);
- tmp57 = c_im(W[4]);
- tmp59 = (tmp55 * tmp56) - (tmp57 * tmp58);
- tmp114 = (tmp57 * tmp56) + (tmp55 * tmp58);
- }
- {
- fftw_real tmp113;
- fftw_real tmp116;
- fftw_real tmp110;
- fftw_real tmp111;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = tmp48 + tmp53;
- tmp65 = tmp59 + tmp64;
- tmp156 = tmp54 - tmp65;
- tmp113 = tmp48 - tmp53;
- tmp116 = tmp114 - tmp115;
- tmp117 = tmp113 - tmp116;
- tmp141 = tmp113 + tmp116;
- tmp157 = tmp108 + tmp109;
- tmp158 = tmp114 + tmp115;
- tmp159 = tmp157 - tmp158;
- tmp110 = tmp108 - tmp109;
- tmp111 = tmp59 - tmp64;
- tmp112 = tmp110 + tmp111;
- tmp140 = tmp110 - tmp111;
- }
- }
- {
- fftw_real tmp107;
- fftw_real tmp131;
- fftw_real tmp202;
- fftw_real tmp204;
- fftw_real tmp130;
- fftw_real tmp203;
- fftw_real tmp134;
- fftw_real tmp199;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp95;
- fftw_real tmp106;
- fftw_real tmp200;
- fftw_real tmp201;
- ASSERT_ALIGNED_DOUBLE;
- tmp95 = tmp91 - tmp94;
- tmp106 = K707106781 * (tmp100 - tmp105);
- tmp107 = tmp95 + tmp106;
- tmp131 = tmp95 - tmp106;
- tmp200 = K707106781 * (tmp137 - tmp136);
- tmp201 = tmp194 + tmp193;
- tmp202 = tmp200 + tmp201;
- tmp204 = tmp201 - tmp200;
- }
- {
- fftw_real tmp118;
- fftw_real tmp129;
- fftw_real tmp132;
- fftw_real tmp133;
- ASSERT_ALIGNED_DOUBLE;
- tmp118 = (K923879532 * tmp112) + (K382683432 * tmp117);
- tmp129 = (K382683432 * tmp123) - (K923879532 * tmp128);
- tmp130 = tmp118 + tmp129;
- tmp203 = tmp129 - tmp118;
- tmp132 = (K382683432 * tmp112) - (K923879532 * tmp117);
- tmp133 = (K382683432 * tmp128) + (K923879532 * tmp123);
- tmp134 = tmp132 - tmp133;
- tmp199 = tmp132 + tmp133;
- }
- c_re(inout[11 * iostride]) = tmp107 - tmp130;
- c_re(inout[3 * iostride]) = tmp107 + tmp130;
- c_re(inout[15 * iostride]) = tmp131 - tmp134;
- c_re(inout[7 * iostride]) = tmp131 + tmp134;
- c_im(inout[3 * iostride]) = tmp199 + tmp202;
- c_im(inout[11 * iostride]) = tmp202 - tmp199;
- c_im(inout[7 * iostride]) = tmp203 + tmp204;
- c_im(inout[15 * iostride]) = tmp204 - tmp203;
- }
- {
- fftw_real tmp139;
- fftw_real tmp147;
- fftw_real tmp196;
- fftw_real tmp198;
- fftw_real tmp146;
- fftw_real tmp197;
- fftw_real tmp150;
- fftw_real tmp191;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp135;
- fftw_real tmp138;
- fftw_real tmp192;
- fftw_real tmp195;
- ASSERT_ALIGNED_DOUBLE;
- tmp135 = tmp91 + tmp94;
- tmp138 = K707106781 * (tmp136 + tmp137);
- tmp139 = tmp135 + tmp138;
- tmp147 = tmp135 - tmp138;
- tmp192 = K707106781 * (tmp100 + tmp105);
- tmp195 = tmp193 - tmp194;
- tmp196 = tmp192 + tmp195;
- tmp198 = tmp195 - tmp192;
- }
- {
- fftw_real tmp142;
- fftw_real tmp145;
- fftw_real tmp148;
- fftw_real tmp149;
- ASSERT_ALIGNED_DOUBLE;
- tmp142 = (K382683432 * tmp140) + (K923879532 * tmp141);
- tmp145 = (K923879532 * tmp143) - (K382683432 * tmp144);
- tmp146 = tmp142 + tmp145;
- tmp197 = tmp145 - tmp142;
- tmp148 = (K923879532 * tmp140) - (K382683432 * tmp141);
- tmp149 = (K923879532 * tmp144) + (K382683432 * tmp143);
- tmp150 = tmp148 - tmp149;
- tmp191 = tmp148 + tmp149;
- }
- c_re(inout[9 * iostride]) = tmp139 - tmp146;
- c_re(inout[iostride]) = tmp139 + tmp146;
- c_re(inout[13 * iostride]) = tmp147 - tmp150;
- c_re(inout[5 * iostride]) = tmp147 + tmp150;
- c_im(inout[iostride]) = tmp191 + tmp196;
- c_im(inout[9 * iostride]) = tmp196 - tmp191;
- c_im(inout[5 * iostride]) = tmp197 + tmp198;
- c_im(inout[13 * iostride]) = tmp198 - tmp197;
- }
- {
- fftw_real tmp155;
- fftw_real tmp167;
- fftw_real tmp188;
- fftw_real tmp190;
- fftw_real tmp166;
- fftw_real tmp189;
- fftw_real tmp170;
- fftw_real tmp185;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp151;
- fftw_real tmp154;
- fftw_real tmp186;
- fftw_real tmp187;
- ASSERT_ALIGNED_DOUBLE;
- tmp151 = tmp7 - tmp18;
- tmp154 = tmp152 - tmp153;
- tmp155 = tmp151 + tmp154;
- tmp167 = tmp151 - tmp154;
- tmp186 = tmp41 - tmp30;
- tmp187 = tmp180 - tmp177;
- tmp188 = tmp186 + tmp187;
- tmp190 = tmp187 - tmp186;
- }
- {
- fftw_real tmp160;
- fftw_real tmp165;
- fftw_real tmp168;
- fftw_real tmp169;
- ASSERT_ALIGNED_DOUBLE;
- tmp160 = tmp156 + tmp159;
- tmp165 = tmp161 - tmp164;
- tmp166 = K707106781 * (tmp160 + tmp165);
- tmp189 = K707106781 * (tmp165 - tmp160);
- tmp168 = tmp159 - tmp156;
- tmp169 = tmp161 + tmp164;
- tmp170 = K707106781 * (tmp168 - tmp169);
- tmp185 = K707106781 * (tmp168 + tmp169);
- }
- c_re(inout[10 * iostride]) = tmp155 - tmp166;
- c_re(inout[2 * iostride]) = tmp155 + tmp166;
- c_re(inout[14 * iostride]) = tmp167 - tmp170;
- c_re(inout[6 * iostride]) = tmp167 + tmp170;
- c_im(inout[2 * iostride]) = tmp185 + tmp188;
- c_im(inout[10 * iostride]) = tmp188 - tmp185;
- c_im(inout[6 * iostride]) = tmp189 + tmp190;
- c_im(inout[14 * iostride]) = tmp190 - tmp189;
- }
- {
- fftw_real tmp43;
- fftw_real tmp171;
- fftw_real tmp182;
- fftw_real tmp184;
- fftw_real tmp90;
- fftw_real tmp183;
- fftw_real tmp174;
- fftw_real tmp175;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp19;
- fftw_real tmp42;
- fftw_real tmp176;
- fftw_real tmp181;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = tmp7 + tmp18;
- tmp42 = tmp30 + tmp41;
- tmp43 = tmp19 + tmp42;
- tmp171 = tmp19 - tmp42;
- tmp176 = tmp152 + tmp153;
- tmp181 = tmp177 + tmp180;
- tmp182 = tmp176 + tmp181;
- tmp184 = tmp181 - tmp176;
- }
- {
- fftw_real tmp66;
- fftw_real tmp89;
- fftw_real tmp172;
- fftw_real tmp173;
- ASSERT_ALIGNED_DOUBLE;
- tmp66 = tmp54 + tmp65;
- tmp89 = tmp77 + tmp88;
- tmp90 = tmp66 + tmp89;
- tmp183 = tmp89 - tmp66;
- tmp172 = tmp157 + tmp158;
- tmp173 = tmp162 + tmp163;
- tmp174 = tmp172 - tmp173;
- tmp175 = tmp172 + tmp173;
- }
- c_re(inout[8 * iostride]) = tmp43 - tmp90;
- c_re(inout[0]) = tmp43 + tmp90;
- c_re(inout[12 * iostride]) = tmp171 - tmp174;
- c_re(inout[4 * iostride]) = tmp171 + tmp174;
- c_im(inout[0]) = tmp175 + tmp182;
- c_im(inout[8 * iostride]) = tmp182 - tmp175;
- c_im(inout[4 * iostride]) = tmp183 + tmp184;
- c_im(inout[12 * iostride]) = tmp184 - tmp183;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15};
-fftw_codelet_desc fftw_twiddle_16_desc =
-{
- "fftw_twiddle_16",
- (void (*)()) fftw_twiddle_16,
- 16,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 352,
- 15,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftw_2.c b/src/sndobj/rfftw/ftw_2.c
deleted file mode 100644
index a103be2..0000000
--- a/src/sndobj/rfftw/ftw_2.c
+++ /dev/null
@@ -1,86 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:30 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 2 */
-
-/*
- * This function contains 6 FP additions, 4 FP multiplications,
- * (or, 4 additions, 2 multiplications, 2 fused multiply/add),
- * 10 stack variables, and 8 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: ftw_2.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: ftw_2.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: ftw_2.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftw_twiddle_2(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 1) {
- fftw_real tmp1;
- fftw_real tmp8;
- fftw_real tmp6;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp8 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[iostride]);
- tmp5 = c_im(inout[iostride]);
- tmp2 = c_re(W[0]);
- tmp4 = c_im(W[0]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp7 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- c_re(inout[iostride]) = tmp1 - tmp6;
- c_re(inout[0]) = tmp1 + tmp6;
- c_im(inout[0]) = tmp7 + tmp8;
- c_im(inout[iostride]) = tmp8 - tmp7;
- }
-}
-
-static const int twiddle_order[] =
-{1};
-fftw_codelet_desc fftw_twiddle_2_desc =
-{
- "fftw_twiddle_2",
- (void (*)()) fftw_twiddle_2,
- 2,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 44,
- 1,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftw_3.c b/src/sndobj/rfftw/ftw_3.c
deleted file mode 100644
index ddee822..0000000
--- a/src/sndobj/rfftw/ftw_3.c
+++ /dev/null
@@ -1,120 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:30 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 3 */
-
-/*
- * This function contains 16 FP additions, 12 FP multiplications,
- * (or, 10 additions, 6 multiplications, 6 fused multiply/add),
- * 14 stack variables, and 12 memory accesses
- */
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: ftw_3.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: ftw_3.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: ftw_3.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- */
-
-void fftw_twiddle_3(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 2) {
- fftw_real tmp1;
- fftw_real tmp18;
- fftw_real tmp6;
- fftw_real tmp14;
- fftw_real tmp11;
- fftw_real tmp15;
- fftw_real tmp12;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp18 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[iostride]);
- tmp5 = c_im(inout[iostride]);
- tmp2 = c_re(W[0]);
- tmp4 = c_im(W[0]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp14 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- {
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp7;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(inout[2 * iostride]);
- tmp10 = c_im(inout[2 * iostride]);
- tmp7 = c_re(W[1]);
- tmp9 = c_im(W[1]);
- tmp11 = (tmp7 * tmp8) - (tmp9 * tmp10);
- tmp15 = (tmp9 * tmp8) + (tmp7 * tmp10);
- }
- tmp12 = tmp6 + tmp11;
- tmp17 = tmp14 + tmp15;
- {
- fftw_real tmp13;
- fftw_real tmp16;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- c_re(inout[0]) = tmp1 + tmp12;
- tmp13 = tmp1 - (K500000000 * tmp12);
- tmp16 = K866025403 * (tmp14 - tmp15);
- c_re(inout[2 * iostride]) = tmp13 - tmp16;
- c_re(inout[iostride]) = tmp13 + tmp16;
- c_im(inout[0]) = tmp17 + tmp18;
- tmp19 = K866025403 * (tmp11 - tmp6);
- tmp20 = tmp18 - (K500000000 * tmp17);
- c_im(inout[iostride]) = tmp19 + tmp20;
- c_im(inout[2 * iostride]) = tmp20 - tmp19;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2};
-fftw_codelet_desc fftw_twiddle_3_desc =
-{
- "fftw_twiddle_3",
- (void (*)()) fftw_twiddle_3,
- 3,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 66,
- 2,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftw_32.c b/src/sndobj/rfftw/ftw_32.c
deleted file mode 100644
index b2cddd4..0000000
--- a/src/sndobj/rfftw/ftw_32.c
+++ /dev/null
@@ -1,1384 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:37 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 32 */
-
-/*
- * This function contains 434 FP additions, 208 FP multiplications,
- * (or, 340 additions, 114 multiplications, 94 fused multiply/add),
- * 90 stack variables, and 128 memory accesses
- */
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: ftw_32.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: ftw_32.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: ftw_32.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- */
-
-void fftw_twiddle_32(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 31) {
- fftw_real tmp19;
- fftw_real tmp351;
- fftw_real tmp472;
- fftw_real tmp486;
- fftw_real tmp442;
- fftw_real tmp456;
- fftw_real tmp191;
- fftw_real tmp303;
- fftw_real tmp161;
- fftw_real tmp379;
- fftw_real tmp276;
- fftw_real tmp326;
- fftw_real tmp386;
- fftw_real tmp422;
- fftw_real tmp259;
- fftw_real tmp323;
- fftw_real tmp42;
- fftw_real tmp455;
- fftw_real tmp201;
- fftw_real tmp305;
- fftw_real tmp354;
- fftw_real tmp437;
- fftw_real tmp196;
- fftw_real tmp304;
- fftw_real tmp184;
- fftw_real tmp387;
- fftw_real tmp382;
- fftw_real tmp423;
- fftw_real tmp270;
- fftw_real tmp327;
- fftw_real tmp279;
- fftw_real tmp324;
- fftw_real tmp66;
- fftw_real tmp359;
- fftw_real tmp213;
- fftw_real tmp309;
- fftw_real tmp358;
- fftw_real tmp412;
- fftw_real tmp208;
- fftw_real tmp308;
- fftw_real tmp114;
- fftw_real tmp373;
- fftw_real tmp249;
- fftw_real tmp316;
- fftw_real tmp370;
- fftw_real tmp417;
- fftw_real tmp232;
- fftw_real tmp319;
- fftw_real tmp89;
- fftw_real tmp361;
- fftw_real tmp224;
- fftw_real tmp312;
- fftw_real tmp364;
- fftw_real tmp413;
- fftw_real tmp219;
- fftw_real tmp311;
- fftw_real tmp137;
- fftw_real tmp371;
- fftw_real tmp376;
- fftw_real tmp418;
- fftw_real tmp243;
- fftw_real tmp317;
- fftw_real tmp252;
- fftw_real tmp320;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp440;
- fftw_real tmp6;
- fftw_real tmp439;
- fftw_real tmp12;
- fftw_real tmp188;
- fftw_real tmp17;
- fftw_real tmp189;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp440 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[16 * iostride]);
- tmp5 = c_im(inout[16 * iostride]);
- tmp2 = c_re(W[15]);
- tmp4 = c_im(W[15]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp439 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[8 * iostride]);
- tmp11 = c_im(inout[8 * iostride]);
- tmp8 = c_re(W[7]);
- tmp10 = c_im(W[7]);
- tmp12 = (tmp8 * tmp9) - (tmp10 * tmp11);
- tmp188 = (tmp10 * tmp9) + (tmp8 * tmp11);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[24 * iostride]);
- tmp16 = c_im(inout[24 * iostride]);
- tmp13 = c_re(W[23]);
- tmp15 = c_im(W[23]);
- tmp17 = (tmp13 * tmp14) - (tmp15 * tmp16);
- tmp189 = (tmp15 * tmp14) + (tmp13 * tmp16);
- }
- {
- fftw_real tmp7;
- fftw_real tmp18;
- fftw_real tmp470;
- fftw_real tmp471;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = tmp1 + tmp6;
- tmp18 = tmp12 + tmp17;
- tmp19 = tmp7 + tmp18;
- tmp351 = tmp7 - tmp18;
- tmp470 = tmp440 - tmp439;
- tmp471 = tmp12 - tmp17;
- tmp472 = tmp470 - tmp471;
- tmp486 = tmp471 + tmp470;
- }
- {
- fftw_real tmp438;
- fftw_real tmp441;
- fftw_real tmp187;
- fftw_real tmp190;
- ASSERT_ALIGNED_DOUBLE;
- tmp438 = tmp188 + tmp189;
- tmp441 = tmp439 + tmp440;
- tmp442 = tmp438 + tmp441;
- tmp456 = tmp441 - tmp438;
- tmp187 = tmp1 - tmp6;
- tmp190 = tmp188 - tmp189;
- tmp191 = tmp187 - tmp190;
- tmp303 = tmp187 + tmp190;
- }
- }
- {
- fftw_real tmp143;
- fftw_real tmp272;
- fftw_real tmp159;
- fftw_real tmp257;
- fftw_real tmp148;
- fftw_real tmp273;
- fftw_real tmp154;
- fftw_real tmp256;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp140;
- fftw_real tmp142;
- fftw_real tmp139;
- fftw_real tmp141;
- ASSERT_ALIGNED_DOUBLE;
- tmp140 = c_re(inout[31 * iostride]);
- tmp142 = c_im(inout[31 * iostride]);
- tmp139 = c_re(W[30]);
- tmp141 = c_im(W[30]);
- tmp143 = (tmp139 * tmp140) - (tmp141 * tmp142);
- tmp272 = (tmp141 * tmp140) + (tmp139 * tmp142);
- }
- {
- fftw_real tmp156;
- fftw_real tmp158;
- fftw_real tmp155;
- fftw_real tmp157;
- ASSERT_ALIGNED_DOUBLE;
- tmp156 = c_re(inout[23 * iostride]);
- tmp158 = c_im(inout[23 * iostride]);
- tmp155 = c_re(W[22]);
- tmp157 = c_im(W[22]);
- tmp159 = (tmp155 * tmp156) - (tmp157 * tmp158);
- tmp257 = (tmp157 * tmp156) + (tmp155 * tmp158);
- }
- {
- fftw_real tmp145;
- fftw_real tmp147;
- fftw_real tmp144;
- fftw_real tmp146;
- ASSERT_ALIGNED_DOUBLE;
- tmp145 = c_re(inout[15 * iostride]);
- tmp147 = c_im(inout[15 * iostride]);
- tmp144 = c_re(W[14]);
- tmp146 = c_im(W[14]);
- tmp148 = (tmp144 * tmp145) - (tmp146 * tmp147);
- tmp273 = (tmp146 * tmp145) + (tmp144 * tmp147);
- }
- {
- fftw_real tmp151;
- fftw_real tmp153;
- fftw_real tmp150;
- fftw_real tmp152;
- ASSERT_ALIGNED_DOUBLE;
- tmp151 = c_re(inout[7 * iostride]);
- tmp153 = c_im(inout[7 * iostride]);
- tmp150 = c_re(W[6]);
- tmp152 = c_im(W[6]);
- tmp154 = (tmp150 * tmp151) - (tmp152 * tmp153);
- tmp256 = (tmp152 * tmp151) + (tmp150 * tmp153);
- }
- {
- fftw_real tmp149;
- fftw_real tmp160;
- fftw_real tmp274;
- fftw_real tmp275;
- ASSERT_ALIGNED_DOUBLE;
- tmp149 = tmp143 + tmp148;
- tmp160 = tmp154 + tmp159;
- tmp161 = tmp149 + tmp160;
- tmp379 = tmp149 - tmp160;
- tmp274 = tmp272 - tmp273;
- tmp275 = tmp154 - tmp159;
- tmp276 = tmp274 + tmp275;
- tmp326 = tmp274 - tmp275;
- }
- {
- fftw_real tmp384;
- fftw_real tmp385;
- fftw_real tmp255;
- fftw_real tmp258;
- ASSERT_ALIGNED_DOUBLE;
- tmp384 = tmp272 + tmp273;
- tmp385 = tmp256 + tmp257;
- tmp386 = tmp384 - tmp385;
- tmp422 = tmp384 + tmp385;
- tmp255 = tmp143 - tmp148;
- tmp258 = tmp256 - tmp257;
- tmp259 = tmp255 - tmp258;
- tmp323 = tmp255 + tmp258;
- }
- }
- {
- fftw_real tmp24;
- fftw_real tmp192;
- fftw_real tmp40;
- fftw_real tmp199;
- fftw_real tmp29;
- fftw_real tmp193;
- fftw_real tmp35;
- fftw_real tmp198;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp21;
- fftw_real tmp23;
- fftw_real tmp20;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = c_re(inout[4 * iostride]);
- tmp23 = c_im(inout[4 * iostride]);
- tmp20 = c_re(W[3]);
- tmp22 = c_im(W[3]);
- tmp24 = (tmp20 * tmp21) - (tmp22 * tmp23);
- tmp192 = (tmp22 * tmp21) + (tmp20 * tmp23);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[12 * iostride]);
- tmp39 = c_im(inout[12 * iostride]);
- tmp36 = c_re(W[11]);
- tmp38 = c_im(W[11]);
- tmp40 = (tmp36 * tmp37) - (tmp38 * tmp39);
- tmp199 = (tmp38 * tmp37) + (tmp36 * tmp39);
- }
- {
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp25;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(inout[20 * iostride]);
- tmp28 = c_im(inout[20 * iostride]);
- tmp25 = c_re(W[19]);
- tmp27 = c_im(W[19]);
- tmp29 = (tmp25 * tmp26) - (tmp27 * tmp28);
- tmp193 = (tmp27 * tmp26) + (tmp25 * tmp28);
- }
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[28 * iostride]);
- tmp34 = c_im(inout[28 * iostride]);
- tmp31 = c_re(W[27]);
- tmp33 = c_im(W[27]);
- tmp35 = (tmp31 * tmp32) - (tmp33 * tmp34);
- tmp198 = (tmp33 * tmp32) + (tmp31 * tmp34);
- }
- {
- fftw_real tmp30;
- fftw_real tmp41;
- fftw_real tmp197;
- fftw_real tmp200;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = tmp24 + tmp29;
- tmp41 = tmp35 + tmp40;
- tmp42 = tmp30 + tmp41;
- tmp455 = tmp41 - tmp30;
- tmp197 = tmp35 - tmp40;
- tmp200 = tmp198 - tmp199;
- tmp201 = tmp197 + tmp200;
- tmp305 = tmp197 - tmp200;
- }
- {
- fftw_real tmp352;
- fftw_real tmp353;
- fftw_real tmp194;
- fftw_real tmp195;
- ASSERT_ALIGNED_DOUBLE;
- tmp352 = tmp192 + tmp193;
- tmp353 = tmp198 + tmp199;
- tmp354 = tmp352 - tmp353;
- tmp437 = tmp352 + tmp353;
- tmp194 = tmp192 - tmp193;
- tmp195 = tmp24 - tmp29;
- tmp196 = tmp194 - tmp195;
- tmp304 = tmp195 + tmp194;
- }
- }
- {
- fftw_real tmp166;
- fftw_real tmp260;
- fftw_real tmp171;
- fftw_real tmp261;
- fftw_real tmp262;
- fftw_real tmp263;
- fftw_real tmp177;
- fftw_real tmp266;
- fftw_real tmp182;
- fftw_real tmp267;
- fftw_real tmp265;
- fftw_real tmp268;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp163;
- fftw_real tmp165;
- fftw_real tmp162;
- fftw_real tmp164;
- ASSERT_ALIGNED_DOUBLE;
- tmp163 = c_re(inout[3 * iostride]);
- tmp165 = c_im(inout[3 * iostride]);
- tmp162 = c_re(W[2]);
- tmp164 = c_im(W[2]);
- tmp166 = (tmp162 * tmp163) - (tmp164 * tmp165);
- tmp260 = (tmp164 * tmp163) + (tmp162 * tmp165);
- }
- {
- fftw_real tmp168;
- fftw_real tmp170;
- fftw_real tmp167;
- fftw_real tmp169;
- ASSERT_ALIGNED_DOUBLE;
- tmp168 = c_re(inout[19 * iostride]);
- tmp170 = c_im(inout[19 * iostride]);
- tmp167 = c_re(W[18]);
- tmp169 = c_im(W[18]);
- tmp171 = (tmp167 * tmp168) - (tmp169 * tmp170);
- tmp261 = (tmp169 * tmp168) + (tmp167 * tmp170);
- }
- tmp262 = tmp260 - tmp261;
- tmp263 = tmp166 - tmp171;
- {
- fftw_real tmp174;
- fftw_real tmp176;
- fftw_real tmp173;
- fftw_real tmp175;
- ASSERT_ALIGNED_DOUBLE;
- tmp174 = c_re(inout[27 * iostride]);
- tmp176 = c_im(inout[27 * iostride]);
- tmp173 = c_re(W[26]);
- tmp175 = c_im(W[26]);
- tmp177 = (tmp173 * tmp174) - (tmp175 * tmp176);
- tmp266 = (tmp175 * tmp174) + (tmp173 * tmp176);
- }
- {
- fftw_real tmp179;
- fftw_real tmp181;
- fftw_real tmp178;
- fftw_real tmp180;
- ASSERT_ALIGNED_DOUBLE;
- tmp179 = c_re(inout[11 * iostride]);
- tmp181 = c_im(inout[11 * iostride]);
- tmp178 = c_re(W[10]);
- tmp180 = c_im(W[10]);
- tmp182 = (tmp178 * tmp179) - (tmp180 * tmp181);
- tmp267 = (tmp180 * tmp179) + (tmp178 * tmp181);
- }
- tmp265 = tmp177 - tmp182;
- tmp268 = tmp266 - tmp267;
- {
- fftw_real tmp172;
- fftw_real tmp183;
- fftw_real tmp380;
- fftw_real tmp381;
- ASSERT_ALIGNED_DOUBLE;
- tmp172 = tmp166 + tmp171;
- tmp183 = tmp177 + tmp182;
- tmp184 = tmp172 + tmp183;
- tmp387 = tmp183 - tmp172;
- tmp380 = tmp260 + tmp261;
- tmp381 = tmp266 + tmp267;
- tmp382 = tmp380 - tmp381;
- tmp423 = tmp380 + tmp381;
- }
- {
- fftw_real tmp264;
- fftw_real tmp269;
- fftw_real tmp277;
- fftw_real tmp278;
- ASSERT_ALIGNED_DOUBLE;
- tmp264 = tmp262 - tmp263;
- tmp269 = tmp265 + tmp268;
- tmp270 = K707106781 * (tmp264 - tmp269);
- tmp327 = K707106781 * (tmp264 + tmp269);
- tmp277 = tmp265 - tmp268;
- tmp278 = tmp263 + tmp262;
- tmp279 = K707106781 * (tmp277 - tmp278);
- tmp324 = K707106781 * (tmp278 + tmp277);
- }
- }
- {
- fftw_real tmp48;
- fftw_real tmp204;
- fftw_real tmp64;
- fftw_real tmp211;
- fftw_real tmp53;
- fftw_real tmp205;
- fftw_real tmp59;
- fftw_real tmp210;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp45;
- fftw_real tmp47;
- fftw_real tmp44;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = c_re(inout[2 * iostride]);
- tmp47 = c_im(inout[2 * iostride]);
- tmp44 = c_re(W[1]);
- tmp46 = c_im(W[1]);
- tmp48 = (tmp44 * tmp45) - (tmp46 * tmp47);
- tmp204 = (tmp46 * tmp45) + (tmp44 * tmp47);
- }
- {
- fftw_real tmp61;
- fftw_real tmp63;
- fftw_real tmp60;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = c_re(inout[26 * iostride]);
- tmp63 = c_im(inout[26 * iostride]);
- tmp60 = c_re(W[25]);
- tmp62 = c_im(W[25]);
- tmp64 = (tmp60 * tmp61) - (tmp62 * tmp63);
- tmp211 = (tmp62 * tmp61) + (tmp60 * tmp63);
- }
- {
- fftw_real tmp50;
- fftw_real tmp52;
- fftw_real tmp49;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = c_re(inout[18 * iostride]);
- tmp52 = c_im(inout[18 * iostride]);
- tmp49 = c_re(W[17]);
- tmp51 = c_im(W[17]);
- tmp53 = (tmp49 * tmp50) - (tmp51 * tmp52);
- tmp205 = (tmp51 * tmp50) + (tmp49 * tmp52);
- }
- {
- fftw_real tmp56;
- fftw_real tmp58;
- fftw_real tmp55;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp56 = c_re(inout[10 * iostride]);
- tmp58 = c_im(inout[10 * iostride]);
- tmp55 = c_re(W[9]);
- tmp57 = c_im(W[9]);
- tmp59 = (tmp55 * tmp56) - (tmp57 * tmp58);
- tmp210 = (tmp57 * tmp56) + (tmp55 * tmp58);
- }
- {
- fftw_real tmp54;
- fftw_real tmp65;
- fftw_real tmp209;
- fftw_real tmp212;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = tmp48 + tmp53;
- tmp65 = tmp59 + tmp64;
- tmp66 = tmp54 + tmp65;
- tmp359 = tmp54 - tmp65;
- tmp209 = tmp48 - tmp53;
- tmp212 = tmp210 - tmp211;
- tmp213 = tmp209 - tmp212;
- tmp309 = tmp209 + tmp212;
- }
- {
- fftw_real tmp356;
- fftw_real tmp357;
- fftw_real tmp206;
- fftw_real tmp207;
- ASSERT_ALIGNED_DOUBLE;
- tmp356 = tmp204 + tmp205;
- tmp357 = tmp210 + tmp211;
- tmp358 = tmp356 - tmp357;
- tmp412 = tmp356 + tmp357;
- tmp206 = tmp204 - tmp205;
- tmp207 = tmp59 - tmp64;
- tmp208 = tmp206 + tmp207;
- tmp308 = tmp206 - tmp207;
- }
- }
- {
- fftw_real tmp96;
- fftw_real tmp228;
- fftw_real tmp112;
- fftw_real tmp247;
- fftw_real tmp101;
- fftw_real tmp229;
- fftw_real tmp107;
- fftw_real tmp246;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp93;
- fftw_real tmp95;
- fftw_real tmp92;
- fftw_real tmp94;
- ASSERT_ALIGNED_DOUBLE;
- tmp93 = c_re(inout[iostride]);
- tmp95 = c_im(inout[iostride]);
- tmp92 = c_re(W[0]);
- tmp94 = c_im(W[0]);
- tmp96 = (tmp92 * tmp93) - (tmp94 * tmp95);
- tmp228 = (tmp94 * tmp93) + (tmp92 * tmp95);
- }
- {
- fftw_real tmp109;
- fftw_real tmp111;
- fftw_real tmp108;
- fftw_real tmp110;
- ASSERT_ALIGNED_DOUBLE;
- tmp109 = c_re(inout[25 * iostride]);
- tmp111 = c_im(inout[25 * iostride]);
- tmp108 = c_re(W[24]);
- tmp110 = c_im(W[24]);
- tmp112 = (tmp108 * tmp109) - (tmp110 * tmp111);
- tmp247 = (tmp110 * tmp109) + (tmp108 * tmp111);
- }
- {
- fftw_real tmp98;
- fftw_real tmp100;
- fftw_real tmp97;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- tmp98 = c_re(inout[17 * iostride]);
- tmp100 = c_im(inout[17 * iostride]);
- tmp97 = c_re(W[16]);
- tmp99 = c_im(W[16]);
- tmp101 = (tmp97 * tmp98) - (tmp99 * tmp100);
- tmp229 = (tmp99 * tmp98) + (tmp97 * tmp100);
- }
- {
- fftw_real tmp104;
- fftw_real tmp106;
- fftw_real tmp103;
- fftw_real tmp105;
- ASSERT_ALIGNED_DOUBLE;
- tmp104 = c_re(inout[9 * iostride]);
- tmp106 = c_im(inout[9 * iostride]);
- tmp103 = c_re(W[8]);
- tmp105 = c_im(W[8]);
- tmp107 = (tmp103 * tmp104) - (tmp105 * tmp106);
- tmp246 = (tmp105 * tmp104) + (tmp103 * tmp106);
- }
- {
- fftw_real tmp102;
- fftw_real tmp113;
- fftw_real tmp245;
- fftw_real tmp248;
- ASSERT_ALIGNED_DOUBLE;
- tmp102 = tmp96 + tmp101;
- tmp113 = tmp107 + tmp112;
- tmp114 = tmp102 + tmp113;
- tmp373 = tmp102 - tmp113;
- tmp245 = tmp96 - tmp101;
- tmp248 = tmp246 - tmp247;
- tmp249 = tmp245 - tmp248;
- tmp316 = tmp245 + tmp248;
- }
- {
- fftw_real tmp368;
- fftw_real tmp369;
- fftw_real tmp230;
- fftw_real tmp231;
- ASSERT_ALIGNED_DOUBLE;
- tmp368 = tmp228 + tmp229;
- tmp369 = tmp246 + tmp247;
- tmp370 = tmp368 - tmp369;
- tmp417 = tmp368 + tmp369;
- tmp230 = tmp228 - tmp229;
- tmp231 = tmp107 - tmp112;
- tmp232 = tmp230 + tmp231;
- tmp319 = tmp230 - tmp231;
- }
- }
- {
- fftw_real tmp71;
- fftw_real tmp215;
- fftw_real tmp87;
- fftw_real tmp222;
- fftw_real tmp76;
- fftw_real tmp216;
- fftw_real tmp82;
- fftw_real tmp221;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp68;
- fftw_real tmp70;
- fftw_real tmp67;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- tmp68 = c_re(inout[30 * iostride]);
- tmp70 = c_im(inout[30 * iostride]);
- tmp67 = c_re(W[29]);
- tmp69 = c_im(W[29]);
- tmp71 = (tmp67 * tmp68) - (tmp69 * tmp70);
- tmp215 = (tmp69 * tmp68) + (tmp67 * tmp70);
- }
- {
- fftw_real tmp84;
- fftw_real tmp86;
- fftw_real tmp83;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- tmp84 = c_re(inout[22 * iostride]);
- tmp86 = c_im(inout[22 * iostride]);
- tmp83 = c_re(W[21]);
- tmp85 = c_im(W[21]);
- tmp87 = (tmp83 * tmp84) - (tmp85 * tmp86);
- tmp222 = (tmp85 * tmp84) + (tmp83 * tmp86);
- }
- {
- fftw_real tmp73;
- fftw_real tmp75;
- fftw_real tmp72;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = c_re(inout[14 * iostride]);
- tmp75 = c_im(inout[14 * iostride]);
- tmp72 = c_re(W[13]);
- tmp74 = c_im(W[13]);
- tmp76 = (tmp72 * tmp73) - (tmp74 * tmp75);
- tmp216 = (tmp74 * tmp73) + (tmp72 * tmp75);
- }
- {
- fftw_real tmp79;
- fftw_real tmp81;
- fftw_real tmp78;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp79 = c_re(inout[6 * iostride]);
- tmp81 = c_im(inout[6 * iostride]);
- tmp78 = c_re(W[5]);
- tmp80 = c_im(W[5]);
- tmp82 = (tmp78 * tmp79) - (tmp80 * tmp81);
- tmp221 = (tmp80 * tmp79) + (tmp78 * tmp81);
- }
- {
- fftw_real tmp77;
- fftw_real tmp88;
- fftw_real tmp220;
- fftw_real tmp223;
- ASSERT_ALIGNED_DOUBLE;
- tmp77 = tmp71 + tmp76;
- tmp88 = tmp82 + tmp87;
- tmp89 = tmp77 + tmp88;
- tmp361 = tmp77 - tmp88;
- tmp220 = tmp71 - tmp76;
- tmp223 = tmp221 - tmp222;
- tmp224 = tmp220 - tmp223;
- tmp312 = tmp220 + tmp223;
- }
- {
- fftw_real tmp362;
- fftw_real tmp363;
- fftw_real tmp217;
- fftw_real tmp218;
- ASSERT_ALIGNED_DOUBLE;
- tmp362 = tmp215 + tmp216;
- tmp363 = tmp221 + tmp222;
- tmp364 = tmp362 - tmp363;
- tmp413 = tmp362 + tmp363;
- tmp217 = tmp215 - tmp216;
- tmp218 = tmp82 - tmp87;
- tmp219 = tmp217 + tmp218;
- tmp311 = tmp217 - tmp218;
- }
- }
- {
- fftw_real tmp119;
- fftw_real tmp239;
- fftw_real tmp124;
- fftw_real tmp240;
- fftw_real tmp238;
- fftw_real tmp241;
- fftw_real tmp130;
- fftw_real tmp234;
- fftw_real tmp135;
- fftw_real tmp235;
- fftw_real tmp233;
- fftw_real tmp236;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp116;
- fftw_real tmp118;
- fftw_real tmp115;
- fftw_real tmp117;
- ASSERT_ALIGNED_DOUBLE;
- tmp116 = c_re(inout[5 * iostride]);
- tmp118 = c_im(inout[5 * iostride]);
- tmp115 = c_re(W[4]);
- tmp117 = c_im(W[4]);
- tmp119 = (tmp115 * tmp116) - (tmp117 * tmp118);
- tmp239 = (tmp117 * tmp116) + (tmp115 * tmp118);
- }
- {
- fftw_real tmp121;
- fftw_real tmp123;
- fftw_real tmp120;
- fftw_real tmp122;
- ASSERT_ALIGNED_DOUBLE;
- tmp121 = c_re(inout[21 * iostride]);
- tmp123 = c_im(inout[21 * iostride]);
- tmp120 = c_re(W[20]);
- tmp122 = c_im(W[20]);
- tmp124 = (tmp120 * tmp121) - (tmp122 * tmp123);
- tmp240 = (tmp122 * tmp121) + (tmp120 * tmp123);
- }
- tmp238 = tmp119 - tmp124;
- tmp241 = tmp239 - tmp240;
- {
- fftw_real tmp127;
- fftw_real tmp129;
- fftw_real tmp126;
- fftw_real tmp128;
- ASSERT_ALIGNED_DOUBLE;
- tmp127 = c_re(inout[29 * iostride]);
- tmp129 = c_im(inout[29 * iostride]);
- tmp126 = c_re(W[28]);
- tmp128 = c_im(W[28]);
- tmp130 = (tmp126 * tmp127) - (tmp128 * tmp129);
- tmp234 = (tmp128 * tmp127) + (tmp126 * tmp129);
- }
- {
- fftw_real tmp132;
- fftw_real tmp134;
- fftw_real tmp131;
- fftw_real tmp133;
- ASSERT_ALIGNED_DOUBLE;
- tmp132 = c_re(inout[13 * iostride]);
- tmp134 = c_im(inout[13 * iostride]);
- tmp131 = c_re(W[12]);
- tmp133 = c_im(W[12]);
- tmp135 = (tmp131 * tmp132) - (tmp133 * tmp134);
- tmp235 = (tmp133 * tmp132) + (tmp131 * tmp134);
- }
- tmp233 = tmp130 - tmp135;
- tmp236 = tmp234 - tmp235;
- {
- fftw_real tmp125;
- fftw_real tmp136;
- fftw_real tmp374;
- fftw_real tmp375;
- ASSERT_ALIGNED_DOUBLE;
- tmp125 = tmp119 + tmp124;
- tmp136 = tmp130 + tmp135;
- tmp137 = tmp125 + tmp136;
- tmp371 = tmp136 - tmp125;
- tmp374 = tmp239 + tmp240;
- tmp375 = tmp234 + tmp235;
- tmp376 = tmp374 - tmp375;
- tmp418 = tmp374 + tmp375;
- }
- {
- fftw_real tmp237;
- fftw_real tmp242;
- fftw_real tmp250;
- fftw_real tmp251;
- ASSERT_ALIGNED_DOUBLE;
- tmp237 = tmp233 - tmp236;
- tmp242 = tmp238 + tmp241;
- tmp243 = K707106781 * (tmp237 - tmp242);
- tmp317 = K707106781 * (tmp242 + tmp237);
- tmp250 = tmp241 - tmp238;
- tmp251 = tmp233 + tmp236;
- tmp252 = K707106781 * (tmp250 - tmp251);
- tmp320 = K707106781 * (tmp250 + tmp251);
- }
- }
- {
- fftw_real tmp91;
- fftw_real tmp431;
- fftw_real tmp444;
- fftw_real tmp446;
- fftw_real tmp186;
- fftw_real tmp445;
- fftw_real tmp434;
- fftw_real tmp435;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp43;
- fftw_real tmp90;
- fftw_real tmp436;
- fftw_real tmp443;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = tmp19 + tmp42;
- tmp90 = tmp66 + tmp89;
- tmp91 = tmp43 + tmp90;
- tmp431 = tmp43 - tmp90;
- tmp436 = tmp412 + tmp413;
- tmp443 = tmp437 + tmp442;
- tmp444 = tmp436 + tmp443;
- tmp446 = tmp443 - tmp436;
- }
- {
- fftw_real tmp138;
- fftw_real tmp185;
- fftw_real tmp432;
- fftw_real tmp433;
- ASSERT_ALIGNED_DOUBLE;
- tmp138 = tmp114 + tmp137;
- tmp185 = tmp161 + tmp184;
- tmp186 = tmp138 + tmp185;
- tmp445 = tmp185 - tmp138;
- tmp432 = tmp417 + tmp418;
- tmp433 = tmp422 + tmp423;
- tmp434 = tmp432 - tmp433;
- tmp435 = tmp432 + tmp433;
- }
- c_re(inout[16 * iostride]) = tmp91 - tmp186;
- c_re(inout[0]) = tmp91 + tmp186;
- c_re(inout[24 * iostride]) = tmp431 - tmp434;
- c_re(inout[8 * iostride]) = tmp431 + tmp434;
- c_im(inout[0]) = tmp435 + tmp444;
- c_im(inout[16 * iostride]) = tmp444 - tmp435;
- c_im(inout[8 * iostride]) = tmp445 + tmp446;
- c_im(inout[24 * iostride]) = tmp446 - tmp445;
- }
- {
- fftw_real tmp415;
- fftw_real tmp427;
- fftw_real tmp450;
- fftw_real tmp452;
- fftw_real tmp420;
- fftw_real tmp428;
- fftw_real tmp425;
- fftw_real tmp429;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp411;
- fftw_real tmp414;
- fftw_real tmp448;
- fftw_real tmp449;
- ASSERT_ALIGNED_DOUBLE;
- tmp411 = tmp19 - tmp42;
- tmp414 = tmp412 - tmp413;
- tmp415 = tmp411 + tmp414;
- tmp427 = tmp411 - tmp414;
- tmp448 = tmp89 - tmp66;
- tmp449 = tmp442 - tmp437;
- tmp450 = tmp448 + tmp449;
- tmp452 = tmp449 - tmp448;
- }
- {
- fftw_real tmp416;
- fftw_real tmp419;
- fftw_real tmp421;
- fftw_real tmp424;
- ASSERT_ALIGNED_DOUBLE;
- tmp416 = tmp114 - tmp137;
- tmp419 = tmp417 - tmp418;
- tmp420 = tmp416 + tmp419;
- tmp428 = tmp419 - tmp416;
- tmp421 = tmp161 - tmp184;
- tmp424 = tmp422 - tmp423;
- tmp425 = tmp421 - tmp424;
- tmp429 = tmp421 + tmp424;
- }
- {
- fftw_real tmp426;
- fftw_real tmp451;
- fftw_real tmp430;
- fftw_real tmp447;
- ASSERT_ALIGNED_DOUBLE;
- tmp426 = K707106781 * (tmp420 + tmp425);
- c_re(inout[20 * iostride]) = tmp415 - tmp426;
- c_re(inout[4 * iostride]) = tmp415 + tmp426;
- tmp451 = K707106781 * (tmp425 - tmp420);
- c_im(inout[12 * iostride]) = tmp451 + tmp452;
- c_im(inout[28 * iostride]) = tmp452 - tmp451;
- tmp430 = K707106781 * (tmp428 - tmp429);
- c_re(inout[28 * iostride]) = tmp427 - tmp430;
- c_re(inout[12 * iostride]) = tmp427 + tmp430;
- tmp447 = K707106781 * (tmp428 + tmp429);
- c_im(inout[4 * iostride]) = tmp447 + tmp450;
- c_im(inout[20 * iostride]) = tmp450 - tmp447;
- }
- }
- {
- fftw_real tmp355;
- fftw_real tmp395;
- fftw_real tmp366;
- fftw_real tmp454;
- fftw_real tmp398;
- fftw_real tmp462;
- fftw_real tmp378;
- fftw_real tmp392;
- fftw_real tmp457;
- fftw_real tmp463;
- fftw_real tmp402;
- fftw_real tmp408;
- fftw_real tmp389;
- fftw_real tmp393;
- fftw_real tmp405;
- fftw_real tmp409;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp360;
- fftw_real tmp365;
- fftw_real tmp400;
- fftw_real tmp401;
- ASSERT_ALIGNED_DOUBLE;
- tmp355 = tmp351 - tmp354;
- tmp395 = tmp351 + tmp354;
- tmp360 = tmp358 - tmp359;
- tmp365 = tmp361 + tmp364;
- tmp366 = K707106781 * (tmp360 - tmp365);
- tmp454 = K707106781 * (tmp360 + tmp365);
- {
- fftw_real tmp396;
- fftw_real tmp397;
- fftw_real tmp372;
- fftw_real tmp377;
- ASSERT_ALIGNED_DOUBLE;
- tmp396 = tmp359 + tmp358;
- tmp397 = tmp361 - tmp364;
- tmp398 = K707106781 * (tmp396 + tmp397);
- tmp462 = K707106781 * (tmp397 - tmp396);
- tmp372 = tmp370 - tmp371;
- tmp377 = tmp373 - tmp376;
- tmp378 = (K923879532 * tmp372) + (K382683432 * tmp377);
- tmp392 = (K382683432 * tmp372) - (K923879532 * tmp377);
- }
- tmp457 = tmp455 + tmp456;
- tmp463 = tmp456 - tmp455;
- tmp400 = tmp370 + tmp371;
- tmp401 = tmp373 + tmp376;
- tmp402 = (K382683432 * tmp400) + (K923879532 * tmp401);
- tmp408 = (K923879532 * tmp400) - (K382683432 * tmp401);
- {
- fftw_real tmp383;
- fftw_real tmp388;
- fftw_real tmp403;
- fftw_real tmp404;
- ASSERT_ALIGNED_DOUBLE;
- tmp383 = tmp379 - tmp382;
- tmp388 = tmp386 - tmp387;
- tmp389 = (K382683432 * tmp383) - (K923879532 * tmp388);
- tmp393 = (K382683432 * tmp388) + (K923879532 * tmp383);
- tmp403 = tmp379 + tmp382;
- tmp404 = tmp386 + tmp387;
- tmp405 = (K923879532 * tmp403) - (K382683432 * tmp404);
- tmp409 = (K923879532 * tmp404) + (K382683432 * tmp403);
- }
- }
- {
- fftw_real tmp367;
- fftw_real tmp390;
- fftw_real tmp391;
- fftw_real tmp394;
- ASSERT_ALIGNED_DOUBLE;
- tmp367 = tmp355 + tmp366;
- tmp390 = tmp378 + tmp389;
- c_re(inout[22 * iostride]) = tmp367 - tmp390;
- c_re(inout[6 * iostride]) = tmp367 + tmp390;
- tmp391 = tmp355 - tmp366;
- tmp394 = tmp392 - tmp393;
- c_re(inout[30 * iostride]) = tmp391 - tmp394;
- c_re(inout[14 * iostride]) = tmp391 + tmp394;
- }
- {
- fftw_real tmp461;
- fftw_real tmp464;
- fftw_real tmp465;
- fftw_real tmp466;
- ASSERT_ALIGNED_DOUBLE;
- tmp461 = tmp392 + tmp393;
- tmp464 = tmp462 + tmp463;
- c_im(inout[6 * iostride]) = tmp461 + tmp464;
- c_im(inout[22 * iostride]) = tmp464 - tmp461;
- tmp465 = tmp389 - tmp378;
- tmp466 = tmp463 - tmp462;
- c_im(inout[14 * iostride]) = tmp465 + tmp466;
- c_im(inout[30 * iostride]) = tmp466 - tmp465;
- }
- {
- fftw_real tmp399;
- fftw_real tmp406;
- fftw_real tmp407;
- fftw_real tmp410;
- ASSERT_ALIGNED_DOUBLE;
- tmp399 = tmp395 + tmp398;
- tmp406 = tmp402 + tmp405;
- c_re(inout[18 * iostride]) = tmp399 - tmp406;
- c_re(inout[2 * iostride]) = tmp399 + tmp406;
- tmp407 = tmp395 - tmp398;
- tmp410 = tmp408 - tmp409;
- c_re(inout[26 * iostride]) = tmp407 - tmp410;
- c_re(inout[10 * iostride]) = tmp407 + tmp410;
- }
- {
- fftw_real tmp453;
- fftw_real tmp458;
- fftw_real tmp459;
- fftw_real tmp460;
- ASSERT_ALIGNED_DOUBLE;
- tmp453 = tmp408 + tmp409;
- tmp458 = tmp454 + tmp457;
- c_im(inout[2 * iostride]) = tmp453 + tmp458;
- c_im(inout[18 * iostride]) = tmp458 - tmp453;
- tmp459 = tmp405 - tmp402;
- tmp460 = tmp457 - tmp454;
- c_im(inout[10 * iostride]) = tmp459 + tmp460;
- c_im(inout[26 * iostride]) = tmp460 - tmp459;
- }
- }
- {
- fftw_real tmp307;
- fftw_real tmp335;
- fftw_real tmp338;
- fftw_real tmp478;
- fftw_real tmp473;
- fftw_real tmp479;
- fftw_real tmp314;
- fftw_real tmp468;
- fftw_real tmp322;
- fftw_real tmp332;
- fftw_real tmp342;
- fftw_real tmp348;
- fftw_real tmp329;
- fftw_real tmp333;
- fftw_real tmp345;
- fftw_real tmp349;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp306;
- fftw_real tmp336;
- fftw_real tmp337;
- fftw_real tmp469;
- fftw_real tmp310;
- fftw_real tmp313;
- ASSERT_ALIGNED_DOUBLE;
- tmp306 = K707106781 * (tmp304 + tmp305);
- tmp307 = tmp303 - tmp306;
- tmp335 = tmp303 + tmp306;
- tmp336 = (K382683432 * tmp308) + (K923879532 * tmp309);
- tmp337 = (K923879532 * tmp312) - (K382683432 * tmp311);
- tmp338 = tmp336 + tmp337;
- tmp478 = tmp337 - tmp336;
- tmp469 = K707106781 * (tmp196 + tmp201);
- tmp473 = tmp469 + tmp472;
- tmp479 = tmp472 - tmp469;
- tmp310 = (K923879532 * tmp308) - (K382683432 * tmp309);
- tmp313 = (K923879532 * tmp311) + (K382683432 * tmp312);
- tmp314 = tmp310 - tmp313;
- tmp468 = tmp310 + tmp313;
- }
- {
- fftw_real tmp318;
- fftw_real tmp321;
- fftw_real tmp340;
- fftw_real tmp341;
- ASSERT_ALIGNED_DOUBLE;
- tmp318 = tmp316 - tmp317;
- tmp321 = tmp319 - tmp320;
- tmp322 = (K555570233 * tmp318) + (K831469612 * tmp321);
- tmp332 = (K555570233 * tmp321) - (K831469612 * tmp318);
- tmp340 = tmp316 + tmp317;
- tmp341 = tmp319 + tmp320;
- tmp342 = (K980785280 * tmp340) + (K195090322 * tmp341);
- tmp348 = (K980785280 * tmp341) - (K195090322 * tmp340);
- }
- {
- fftw_real tmp325;
- fftw_real tmp328;
- fftw_real tmp343;
- fftw_real tmp344;
- ASSERT_ALIGNED_DOUBLE;
- tmp325 = tmp323 - tmp324;
- tmp328 = tmp326 - tmp327;
- tmp329 = (K555570233 * tmp325) - (K831469612 * tmp328);
- tmp333 = (K831469612 * tmp325) + (K555570233 * tmp328);
- tmp343 = tmp323 + tmp324;
- tmp344 = tmp326 + tmp327;
- tmp345 = (K980785280 * tmp343) - (K195090322 * tmp344);
- tmp349 = (K195090322 * tmp343) + (K980785280 * tmp344);
- }
- {
- fftw_real tmp315;
- fftw_real tmp330;
- fftw_real tmp331;
- fftw_real tmp334;
- ASSERT_ALIGNED_DOUBLE;
- tmp315 = tmp307 + tmp314;
- tmp330 = tmp322 + tmp329;
- c_re(inout[21 * iostride]) = tmp315 - tmp330;
- c_re(inout[5 * iostride]) = tmp315 + tmp330;
- tmp331 = tmp307 - tmp314;
- tmp334 = tmp332 - tmp333;
- c_re(inout[29 * iostride]) = tmp331 - tmp334;
- c_re(inout[13 * iostride]) = tmp331 + tmp334;
- }
- {
- fftw_real tmp477;
- fftw_real tmp480;
- fftw_real tmp481;
- fftw_real tmp482;
- ASSERT_ALIGNED_DOUBLE;
- tmp477 = tmp332 + tmp333;
- tmp480 = tmp478 + tmp479;
- c_im(inout[5 * iostride]) = tmp477 + tmp480;
- c_im(inout[21 * iostride]) = tmp480 - tmp477;
- tmp481 = tmp329 - tmp322;
- tmp482 = tmp479 - tmp478;
- c_im(inout[13 * iostride]) = tmp481 + tmp482;
- c_im(inout[29 * iostride]) = tmp482 - tmp481;
- }
- {
- fftw_real tmp339;
- fftw_real tmp346;
- fftw_real tmp347;
- fftw_real tmp350;
- ASSERT_ALIGNED_DOUBLE;
- tmp339 = tmp335 + tmp338;
- tmp346 = tmp342 + tmp345;
- c_re(inout[17 * iostride]) = tmp339 - tmp346;
- c_re(inout[iostride]) = tmp339 + tmp346;
- tmp347 = tmp335 - tmp338;
- tmp350 = tmp348 - tmp349;
- c_re(inout[25 * iostride]) = tmp347 - tmp350;
- c_re(inout[9 * iostride]) = tmp347 + tmp350;
- }
- {
- fftw_real tmp467;
- fftw_real tmp474;
- fftw_real tmp475;
- fftw_real tmp476;
- ASSERT_ALIGNED_DOUBLE;
- tmp467 = tmp348 + tmp349;
- tmp474 = tmp468 + tmp473;
- c_im(inout[iostride]) = tmp467 + tmp474;
- c_im(inout[17 * iostride]) = tmp474 - tmp467;
- tmp475 = tmp345 - tmp342;
- tmp476 = tmp473 - tmp468;
- c_im(inout[9 * iostride]) = tmp475 + tmp476;
- c_im(inout[25 * iostride]) = tmp476 - tmp475;
- }
- }
- {
- fftw_real tmp203;
- fftw_real tmp287;
- fftw_real tmp290;
- fftw_real tmp492;
- fftw_real tmp487;
- fftw_real tmp493;
- fftw_real tmp226;
- fftw_real tmp484;
- fftw_real tmp254;
- fftw_real tmp284;
- fftw_real tmp294;
- fftw_real tmp300;
- fftw_real tmp281;
- fftw_real tmp285;
- fftw_real tmp297;
- fftw_real tmp301;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp202;
- fftw_real tmp288;
- fftw_real tmp289;
- fftw_real tmp485;
- fftw_real tmp214;
- fftw_real tmp225;
- ASSERT_ALIGNED_DOUBLE;
- tmp202 = K707106781 * (tmp196 - tmp201);
- tmp203 = tmp191 - tmp202;
- tmp287 = tmp191 + tmp202;
- tmp288 = (K923879532 * tmp208) + (K382683432 * tmp213);
- tmp289 = (K382683432 * tmp224) - (K923879532 * tmp219);
- tmp290 = tmp288 + tmp289;
- tmp492 = tmp289 - tmp288;
- tmp485 = K707106781 * (tmp305 - tmp304);
- tmp487 = tmp485 + tmp486;
- tmp493 = tmp486 - tmp485;
- tmp214 = (K382683432 * tmp208) - (K923879532 * tmp213);
- tmp225 = (K382683432 * tmp219) + (K923879532 * tmp224);
- tmp226 = tmp214 - tmp225;
- tmp484 = tmp214 + tmp225;
- }
- {
- fftw_real tmp244;
- fftw_real tmp253;
- fftw_real tmp292;
- fftw_real tmp293;
- ASSERT_ALIGNED_DOUBLE;
- tmp244 = tmp232 - tmp243;
- tmp253 = tmp249 - tmp252;
- tmp254 = (K980785280 * tmp244) + (K195090322 * tmp253);
- tmp284 = (K195090322 * tmp244) - (K980785280 * tmp253);
- tmp292 = tmp232 + tmp243;
- tmp293 = tmp249 + tmp252;
- tmp294 = (K555570233 * tmp292) + (K831469612 * tmp293);
- tmp300 = (K831469612 * tmp292) - (K555570233 * tmp293);
- }
- {
- fftw_real tmp271;
- fftw_real tmp280;
- fftw_real tmp295;
- fftw_real tmp296;
- ASSERT_ALIGNED_DOUBLE;
- tmp271 = tmp259 - tmp270;
- tmp280 = tmp276 - tmp279;
- tmp281 = (K195090322 * tmp271) - (K980785280 * tmp280);
- tmp285 = (K195090322 * tmp280) + (K980785280 * tmp271);
- tmp295 = tmp259 + tmp270;
- tmp296 = tmp276 + tmp279;
- tmp297 = (K831469612 * tmp295) - (K555570233 * tmp296);
- tmp301 = (K831469612 * tmp296) + (K555570233 * tmp295);
- }
- {
- fftw_real tmp227;
- fftw_real tmp282;
- fftw_real tmp283;
- fftw_real tmp286;
- ASSERT_ALIGNED_DOUBLE;
- tmp227 = tmp203 + tmp226;
- tmp282 = tmp254 + tmp281;
- c_re(inout[23 * iostride]) = tmp227 - tmp282;
- c_re(inout[7 * iostride]) = tmp227 + tmp282;
- tmp283 = tmp203 - tmp226;
- tmp286 = tmp284 - tmp285;
- c_re(inout[31 * iostride]) = tmp283 - tmp286;
- c_re(inout[15 * iostride]) = tmp283 + tmp286;
- }
- {
- fftw_real tmp491;
- fftw_real tmp494;
- fftw_real tmp495;
- fftw_real tmp496;
- ASSERT_ALIGNED_DOUBLE;
- tmp491 = tmp284 + tmp285;
- tmp494 = tmp492 + tmp493;
- c_im(inout[7 * iostride]) = tmp491 + tmp494;
- c_im(inout[23 * iostride]) = tmp494 - tmp491;
- tmp495 = tmp281 - tmp254;
- tmp496 = tmp493 - tmp492;
- c_im(inout[15 * iostride]) = tmp495 + tmp496;
- c_im(inout[31 * iostride]) = tmp496 - tmp495;
- }
- {
- fftw_real tmp291;
- fftw_real tmp298;
- fftw_real tmp299;
- fftw_real tmp302;
- ASSERT_ALIGNED_DOUBLE;
- tmp291 = tmp287 + tmp290;
- tmp298 = tmp294 + tmp297;
- c_re(inout[19 * iostride]) = tmp291 - tmp298;
- c_re(inout[3 * iostride]) = tmp291 + tmp298;
- tmp299 = tmp287 - tmp290;
- tmp302 = tmp300 - tmp301;
- c_re(inout[27 * iostride]) = tmp299 - tmp302;
- c_re(inout[11 * iostride]) = tmp299 + tmp302;
- }
- {
- fftw_real tmp483;
- fftw_real tmp488;
- fftw_real tmp489;
- fftw_real tmp490;
- ASSERT_ALIGNED_DOUBLE;
- tmp483 = tmp300 + tmp301;
- tmp488 = tmp484 + tmp487;
- c_im(inout[3 * iostride]) = tmp483 + tmp488;
- c_im(inout[19 * iostride]) = tmp488 - tmp483;
- tmp489 = tmp297 - tmp294;
- tmp490 = tmp487 - tmp484;
- c_im(inout[11 * iostride]) = tmp489 + tmp490;
- c_im(inout[27 * iostride]) = tmp490 - tmp489;
- }
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31};
-fftw_codelet_desc fftw_twiddle_32_desc =
-{
- "fftw_twiddle_32",
- (void (*)()) fftw_twiddle_32,
- 32,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 704,
- 31,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftw_4.c b/src/sndobj/rfftw/ftw_4.c
deleted file mode 100644
index 8c242b9..0000000
--- a/src/sndobj/rfftw/ftw_4.c
+++ /dev/null
@@ -1,142 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:31 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 4 */
-
-/*
- * This function contains 22 FP additions, 12 FP multiplications,
- * (or, 16 additions, 6 multiplications, 6 fused multiply/add),
- * 14 stack variables, and 16 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: ftw_4.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: ftw_4.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: ftw_4.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- */
-
-void fftw_twiddle_4(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 3) {
- fftw_real tmp1;
- fftw_real tmp25;
- fftw_real tmp6;
- fftw_real tmp24;
- fftw_real tmp12;
- fftw_real tmp20;
- fftw_real tmp17;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp25 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[2 * iostride]);
- tmp5 = c_im(inout[2 * iostride]);
- tmp2 = c_re(W[1]);
- tmp4 = c_im(W[1]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp24 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[iostride]);
- tmp11 = c_im(inout[iostride]);
- tmp8 = c_re(W[0]);
- tmp10 = c_im(W[0]);
- tmp12 = (tmp8 * tmp9) - (tmp10 * tmp11);
- tmp20 = (tmp10 * tmp9) + (tmp8 * tmp11);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[3 * iostride]);
- tmp16 = c_im(inout[3 * iostride]);
- tmp13 = c_re(W[2]);
- tmp15 = c_im(W[2]);
- tmp17 = (tmp13 * tmp14) - (tmp15 * tmp16);
- tmp21 = (tmp15 * tmp14) + (tmp13 * tmp16);
- }
- {
- fftw_real tmp7;
- fftw_real tmp18;
- fftw_real tmp27;
- fftw_real tmp28;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = tmp1 + tmp6;
- tmp18 = tmp12 + tmp17;
- c_re(inout[2 * iostride]) = tmp7 - tmp18;
- c_re(inout[0]) = tmp7 + tmp18;
- tmp27 = tmp25 - tmp24;
- tmp28 = tmp12 - tmp17;
- c_im(inout[iostride]) = tmp27 - tmp28;
- c_im(inout[3 * iostride]) = tmp28 + tmp27;
- }
- {
- fftw_real tmp23;
- fftw_real tmp26;
- fftw_real tmp19;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = tmp20 + tmp21;
- tmp26 = tmp24 + tmp25;
- c_im(inout[0]) = tmp23 + tmp26;
- c_im(inout[2 * iostride]) = tmp26 - tmp23;
- tmp19 = tmp1 - tmp6;
- tmp22 = tmp20 - tmp21;
- c_re(inout[3 * iostride]) = tmp19 - tmp22;
- c_re(inout[iostride]) = tmp19 + tmp22;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3};
-fftw_codelet_desc fftw_twiddle_4_desc =
-{
- "fftw_twiddle_4",
- (void (*)()) fftw_twiddle_4,
- 4,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 88,
- 3,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftw_5.c b/src/sndobj/rfftw/ftw_5.c
deleted file mode 100644
index af67ce9..0000000
--- a/src/sndobj/rfftw/ftw_5.c
+++ /dev/null
@@ -1,194 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:31 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 5 */
-
-/*
- * This function contains 40 FP additions, 28 FP multiplications,
- * (or, 26 additions, 14 multiplications, 14 fused multiply/add),
- * 26 stack variables, and 20 memory accesses
- */
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-
-/*
- * Generator Id's :
- * $Id: ftw_5.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: ftw_5.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: ftw_5.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- */
-
-void fftw_twiddle_5(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 4) {
- fftw_real tmp1;
- fftw_real tmp40;
- fftw_real tmp30;
- fftw_real tmp33;
- fftw_real tmp37;
- fftw_real tmp38;
- fftw_real tmp39;
- fftw_real tmp45;
- fftw_real tmp44;
- fftw_real tmp12;
- fftw_real tmp23;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp40 = c_im(inout[0]);
- {
- fftw_real tmp6;
- fftw_real tmp28;
- fftw_real tmp22;
- fftw_real tmp32;
- fftw_real tmp11;
- fftw_real tmp29;
- fftw_real tmp17;
- fftw_real tmp31;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[iostride]);
- tmp5 = c_im(inout[iostride]);
- tmp2 = c_re(W[0]);
- tmp4 = c_im(W[0]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp28 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- {
- fftw_real tmp19;
- fftw_real tmp21;
- fftw_real tmp18;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = c_re(inout[3 * iostride]);
- tmp21 = c_im(inout[3 * iostride]);
- tmp18 = c_re(W[2]);
- tmp20 = c_im(W[2]);
- tmp22 = (tmp18 * tmp19) - (tmp20 * tmp21);
- tmp32 = (tmp20 * tmp19) + (tmp18 * tmp21);
- }
- {
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp7;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(inout[4 * iostride]);
- tmp10 = c_im(inout[4 * iostride]);
- tmp7 = c_re(W[3]);
- tmp9 = c_im(W[3]);
- tmp11 = (tmp7 * tmp8) - (tmp9 * tmp10);
- tmp29 = (tmp9 * tmp8) + (tmp7 * tmp10);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[2 * iostride]);
- tmp16 = c_im(inout[2 * iostride]);
- tmp13 = c_re(W[1]);
- tmp15 = c_im(W[1]);
- tmp17 = (tmp13 * tmp14) - (tmp15 * tmp16);
- tmp31 = (tmp15 * tmp14) + (tmp13 * tmp16);
- }
- tmp30 = tmp28 - tmp29;
- tmp33 = tmp31 - tmp32;
- tmp37 = tmp28 + tmp29;
- tmp38 = tmp31 + tmp32;
- tmp39 = tmp37 + tmp38;
- tmp45 = tmp17 - tmp22;
- tmp44 = tmp6 - tmp11;
- tmp12 = tmp6 + tmp11;
- tmp23 = tmp17 + tmp22;
- tmp24 = tmp12 + tmp23;
- }
- c_re(inout[0]) = tmp1 + tmp24;
- {
- fftw_real tmp34;
- fftw_real tmp36;
- fftw_real tmp27;
- fftw_real tmp35;
- fftw_real tmp25;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp34 = (K951056516 * tmp30) + (K587785252 * tmp33);
- tmp36 = (K951056516 * tmp33) - (K587785252 * tmp30);
- tmp25 = K559016994 * (tmp12 - tmp23);
- tmp26 = tmp1 - (K250000000 * tmp24);
- tmp27 = tmp25 + tmp26;
- tmp35 = tmp26 - tmp25;
- c_re(inout[4 * iostride]) = tmp27 - tmp34;
- c_re(inout[iostride]) = tmp27 + tmp34;
- c_re(inout[2 * iostride]) = tmp35 - tmp36;
- c_re(inout[3 * iostride]) = tmp35 + tmp36;
- }
- c_im(inout[0]) = tmp39 + tmp40;
- {
- fftw_real tmp46;
- fftw_real tmp47;
- fftw_real tmp43;
- fftw_real tmp48;
- fftw_real tmp41;
- fftw_real tmp42;
- ASSERT_ALIGNED_DOUBLE;
- tmp46 = (K951056516 * tmp44) + (K587785252 * tmp45);
- tmp47 = (K951056516 * tmp45) - (K587785252 * tmp44);
- tmp41 = K559016994 * (tmp37 - tmp38);
- tmp42 = tmp40 - (K250000000 * tmp39);
- tmp43 = tmp41 + tmp42;
- tmp48 = tmp42 - tmp41;
- c_im(inout[iostride]) = tmp43 - tmp46;
- c_im(inout[4 * iostride]) = tmp46 + tmp43;
- c_im(inout[2 * iostride]) = tmp47 + tmp48;
- c_im(inout[3 * iostride]) = tmp48 - tmp47;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4};
-fftw_codelet_desc fftw_twiddle_5_desc =
-{
- "fftw_twiddle_5",
- (void (*)()) fftw_twiddle_5,
- 5,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 110,
- 4,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftw_6.c b/src/sndobj/rfftw/ftw_6.c
deleted file mode 100644
index d239476..0000000
--- a/src/sndobj/rfftw/ftw_6.c
+++ /dev/null
@@ -1,219 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:32 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 6 */
-
-/*
- * This function contains 46 FP additions, 28 FP multiplications,
- * (or, 32 additions, 14 multiplications, 14 fused multiply/add),
- * 22 stack variables, and 24 memory accesses
- */
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-
-/*
- * Generator Id's :
- * $Id: ftw_6.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: ftw_6.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- * $Id: ftw_6.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $
- */
-
-void fftw_twiddle_6(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 5) {
- fftw_real tmp7;
- fftw_real tmp31;
- fftw_real tmp50;
- fftw_real tmp54;
- fftw_real tmp29;
- fftw_real tmp33;
- fftw_real tmp41;
- fftw_real tmp45;
- fftw_real tmp18;
- fftw_real tmp32;
- fftw_real tmp38;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp49;
- fftw_real tmp6;
- fftw_real tmp48;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp49 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[3 * iostride]);
- tmp5 = c_im(inout[3 * iostride]);
- tmp2 = c_re(W[2]);
- tmp4 = c_im(W[2]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp48 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- tmp7 = tmp1 - tmp6;
- tmp31 = tmp1 + tmp6;
- tmp50 = tmp48 + tmp49;
- tmp54 = tmp49 - tmp48;
- }
- {
- fftw_real tmp23;
- fftw_real tmp39;
- fftw_real tmp28;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp20;
- fftw_real tmp22;
- fftw_real tmp19;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp20 = c_re(inout[4 * iostride]);
- tmp22 = c_im(inout[4 * iostride]);
- tmp19 = c_re(W[3]);
- tmp21 = c_im(W[3]);
- tmp23 = (tmp19 * tmp20) - (tmp21 * tmp22);
- tmp39 = (tmp21 * tmp20) + (tmp19 * tmp22);
- }
- {
- fftw_real tmp25;
- fftw_real tmp27;
- fftw_real tmp24;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = c_re(inout[iostride]);
- tmp27 = c_im(inout[iostride]);
- tmp24 = c_re(W[0]);
- tmp26 = c_im(W[0]);
- tmp28 = (tmp24 * tmp25) - (tmp26 * tmp27);
- tmp40 = (tmp26 * tmp25) + (tmp24 * tmp27);
- }
- tmp29 = tmp23 - tmp28;
- tmp33 = tmp23 + tmp28;
- tmp41 = tmp39 - tmp40;
- tmp45 = tmp39 + tmp40;
- }
- {
- fftw_real tmp12;
- fftw_real tmp36;
- fftw_real tmp17;
- fftw_real tmp37;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[2 * iostride]);
- tmp11 = c_im(inout[2 * iostride]);
- tmp8 = c_re(W[1]);
- tmp10 = c_im(W[1]);
- tmp12 = (tmp8 * tmp9) - (tmp10 * tmp11);
- tmp36 = (tmp10 * tmp9) + (tmp8 * tmp11);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[5 * iostride]);
- tmp16 = c_im(inout[5 * iostride]);
- tmp13 = c_re(W[4]);
- tmp15 = c_im(W[4]);
- tmp17 = (tmp13 * tmp14) - (tmp15 * tmp16);
- tmp37 = (tmp15 * tmp14) + (tmp13 * tmp16);
- }
- tmp18 = tmp12 - tmp17;
- tmp32 = tmp12 + tmp17;
- tmp38 = tmp36 - tmp37;
- tmp44 = tmp36 + tmp37;
- }
- {
- fftw_real tmp42;
- fftw_real tmp30;
- fftw_real tmp35;
- fftw_real tmp53;
- fftw_real tmp55;
- fftw_real tmp56;
- ASSERT_ALIGNED_DOUBLE;
- tmp42 = K866025403 * (tmp38 - tmp41);
- tmp30 = tmp18 + tmp29;
- tmp35 = tmp7 - (K500000000 * tmp30);
- c_re(inout[3 * iostride]) = tmp7 + tmp30;
- c_re(inout[iostride]) = tmp35 + tmp42;
- c_re(inout[5 * iostride]) = tmp35 - tmp42;
- tmp53 = K866025403 * (tmp29 - tmp18);
- tmp55 = tmp38 + tmp41;
- tmp56 = tmp54 - (K500000000 * tmp55);
- c_im(inout[iostride]) = tmp53 + tmp56;
- c_im(inout[5 * iostride]) = tmp56 - tmp53;
- c_im(inout[3 * iostride]) = tmp55 + tmp54;
- }
- {
- fftw_real tmp46;
- fftw_real tmp34;
- fftw_real tmp43;
- fftw_real tmp52;
- fftw_real tmp47;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp46 = K866025403 * (tmp44 - tmp45);
- tmp34 = tmp32 + tmp33;
- tmp43 = tmp31 - (K500000000 * tmp34);
- c_re(inout[0]) = tmp31 + tmp34;
- c_re(inout[4 * iostride]) = tmp43 + tmp46;
- c_re(inout[2 * iostride]) = tmp43 - tmp46;
- tmp52 = K866025403 * (tmp33 - tmp32);
- tmp47 = tmp44 + tmp45;
- tmp51 = tmp50 - (K500000000 * tmp47);
- c_im(inout[0]) = tmp47 + tmp50;
- c_im(inout[4 * iostride]) = tmp52 + tmp51;
- c_im(inout[2 * iostride]) = tmp51 - tmp52;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5};
-fftw_codelet_desc fftw_twiddle_6_desc =
-{
- "fftw_twiddle_6",
- (void (*)()) fftw_twiddle_6,
- 6,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 132,
- 5,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftw_64.c b/src/sndobj/rfftw/ftw_64.c
deleted file mode 100644
index 32a0e0b..0000000
--- a/src/sndobj/rfftw/ftw_64.c
+++ /dev/null
@@ -1,3146 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:39 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 64 */
-
-/*
- * This function contains 1038 FP additions, 500 FP multiplications,
- * (or, 808 additions, 270 multiplications, 230 fused multiply/add),
- * 162 stack variables, and 256 memory accesses
- */
-static const fftw_real K290284677 = FFTW_KONST(+0.290284677254462367636192375817395274691476278);
-static const fftw_real K956940335 = FFTW_KONST(+0.956940335732208864935797886980269969482849206);
-static const fftw_real K881921264 = FFTW_KONST(+0.881921264348355029712756863660388349508442621);
-static const fftw_real K471396736 = FFTW_KONST(+0.471396736825997648556387625905254377657460319);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K773010453 = FFTW_KONST(+0.773010453362736960810906609758469800971041293);
-static const fftw_real K634393284 = FFTW_KONST(+0.634393284163645498215171613225493370675687095);
-static const fftw_real K098017140 = FFTW_KONST(+0.098017140329560601994195563888641845861136673);
-static const fftw_real K995184726 = FFTW_KONST(+0.995184726672196886244836953109479921575474869);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-
-/*
- * Generator Id's :
- * $Id: ftw_64.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- * $Id: ftw_64.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- * $Id: ftw_64.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- */
-
-void fftw_twiddle_64(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 63) {
- fftw_real tmp19;
- fftw_real tmp791;
- fftw_real tmp1109;
- fftw_real tmp1139;
- fftw_real tmp1047;
- fftw_real tmp1077;
- fftw_real tmp383;
- fftw_real tmp655;
- fftw_real tmp66;
- fftw_real tmp800;
- fftw_real tmp908;
- fftw_real tmp956;
- fftw_real tmp406;
- fftw_real tmp608;
- fftw_real tmp662;
- fftw_real tmp744;
- fftw_real tmp42;
- fftw_real tmp1076;
- fftw_real tmp794;
- fftw_real tmp1042;
- fftw_real tmp394;
- fftw_real tmp1106;
- fftw_real tmp658;
- fftw_real tmp1138;
- fftw_real tmp329;
- fftw_real tmp983;
- fftw_real tmp863;
- fftw_real tmp927;
- fftw_real tmp990;
- fftw_real tmp1026;
- fftw_real tmp880;
- fftw_real tmp930;
- fftw_real tmp535;
- fftw_real tmp703;
- fftw_real tmp576;
- fftw_real tmp714;
- fftw_real tmp579;
- fftw_real tmp704;
- fftw_real tmp546;
- fftw_real tmp715;
- fftw_real tmp376;
- fftw_real tmp991;
- fftw_real tmp868;
- fftw_real tmp882;
- fftw_real tmp986;
- fftw_real tmp1027;
- fftw_real tmp873;
- fftw_real tmp881;
- fftw_real tmp558;
- fftw_real tmp582;
- fftw_real tmp708;
- fftw_real tmp718;
- fftw_real tmp569;
- fftw_real tmp581;
- fftw_real tmp711;
- fftw_real tmp717;
- fftw_real tmp89;
- fftw_real tmp805;
- fftw_real tmp909;
- fftw_real tmp957;
- fftw_real tmp417;
- fftw_real tmp609;
- fftw_real tmp665;
- fftw_real tmp745;
- fftw_real tmp161;
- fftw_real tmp184;
- fftw_real tmp965;
- fftw_real tmp823;
- fftw_real tmp915;
- fftw_real tmp966;
- fftw_real tmp967;
- fftw_real tmp968;
- fftw_real tmp828;
- fftw_real tmp916;
- fftw_real tmp451;
- fftw_real tmp678;
- fftw_real tmp468;
- fftw_real tmp675;
- fftw_real tmp471;
- fftw_real tmp679;
- fftw_real tmp462;
- fftw_real tmp676;
- fftw_real tmp114;
- fftw_real tmp137;
- fftw_real tmp963;
- fftw_real tmp812;
- fftw_real tmp912;
- fftw_real tmp960;
- fftw_real tmp961;
- fftw_real tmp962;
- fftw_real tmp817;
- fftw_real tmp913;
- fftw_real tmp424;
- fftw_real tmp668;
- fftw_real tmp441;
- fftw_real tmp671;
- fftw_real tmp444;
- fftw_real tmp669;
- fftw_real tmp435;
- fftw_real tmp672;
- fftw_real tmp234;
- fftw_real tmp977;
- fftw_real tmp836;
- fftw_real tmp923;
- fftw_real tmp974;
- fftw_real tmp1021;
- fftw_real tmp853;
- fftw_real tmp920;
- fftw_real tmp480;
- fftw_real tmp684;
- fftw_real tmp521;
- fftw_real tmp695;
- fftw_real tmp524;
- fftw_real tmp685;
- fftw_real tmp491;
- fftw_real tmp696;
- fftw_real tmp281;
- fftw_real tmp975;
- fftw_real tmp841;
- fftw_real tmp855;
- fftw_real tmp980;
- fftw_real tmp1022;
- fftw_real tmp846;
- fftw_real tmp854;
- fftw_real tmp503;
- fftw_real tmp527;
- fftw_real tmp689;
- fftw_real tmp699;
- fftw_real tmp514;
- fftw_real tmp526;
- fftw_real tmp692;
- fftw_real tmp698;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp1045;
- fftw_real tmp6;
- fftw_real tmp1044;
- fftw_real tmp12;
- fftw_real tmp380;
- fftw_real tmp17;
- fftw_real tmp381;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp1045 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[32 * iostride]);
- tmp5 = c_im(inout[32 * iostride]);
- tmp2 = c_re(W[31]);
- tmp4 = c_im(W[31]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp1044 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[16 * iostride]);
- tmp11 = c_im(inout[16 * iostride]);
- tmp8 = c_re(W[15]);
- tmp10 = c_im(W[15]);
- tmp12 = (tmp8 * tmp9) - (tmp10 * tmp11);
- tmp380 = (tmp10 * tmp9) + (tmp8 * tmp11);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[48 * iostride]);
- tmp16 = c_im(inout[48 * iostride]);
- tmp13 = c_re(W[47]);
- tmp15 = c_im(W[47]);
- tmp17 = (tmp13 * tmp14) - (tmp15 * tmp16);
- tmp381 = (tmp15 * tmp14) + (tmp13 * tmp16);
- }
- {
- fftw_real tmp7;
- fftw_real tmp18;
- fftw_real tmp1107;
- fftw_real tmp1108;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = tmp1 + tmp6;
- tmp18 = tmp12 + tmp17;
- tmp19 = tmp7 + tmp18;
- tmp791 = tmp7 - tmp18;
- tmp1107 = tmp1045 - tmp1044;
- tmp1108 = tmp12 - tmp17;
- tmp1109 = tmp1107 - tmp1108;
- tmp1139 = tmp1108 + tmp1107;
- }
- {
- fftw_real tmp1043;
- fftw_real tmp1046;
- fftw_real tmp379;
- fftw_real tmp382;
- ASSERT_ALIGNED_DOUBLE;
- tmp1043 = tmp380 + tmp381;
- tmp1046 = tmp1044 + tmp1045;
- tmp1047 = tmp1043 + tmp1046;
- tmp1077 = tmp1046 - tmp1043;
- tmp379 = tmp1 - tmp6;
- tmp382 = tmp380 - tmp381;
- tmp383 = tmp379 - tmp382;
- tmp655 = tmp379 + tmp382;
- }
- }
- {
- fftw_real tmp54;
- fftw_real tmp401;
- fftw_real tmp398;
- fftw_real tmp796;
- fftw_real tmp65;
- fftw_real tmp399;
- fftw_real tmp404;
- fftw_real tmp797;
- fftw_real tmp798;
- fftw_real tmp799;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp48;
- fftw_real tmp396;
- fftw_real tmp53;
- fftw_real tmp397;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp45;
- fftw_real tmp47;
- fftw_real tmp44;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = c_re(inout[4 * iostride]);
- tmp47 = c_im(inout[4 * iostride]);
- tmp44 = c_re(W[3]);
- tmp46 = c_im(W[3]);
- tmp48 = (tmp44 * tmp45) - (tmp46 * tmp47);
- tmp396 = (tmp46 * tmp45) + (tmp44 * tmp47);
- }
- {
- fftw_real tmp50;
- fftw_real tmp52;
- fftw_real tmp49;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = c_re(inout[36 * iostride]);
- tmp52 = c_im(inout[36 * iostride]);
- tmp49 = c_re(W[35]);
- tmp51 = c_im(W[35]);
- tmp53 = (tmp49 * tmp50) - (tmp51 * tmp52);
- tmp397 = (tmp51 * tmp50) + (tmp49 * tmp52);
- }
- tmp54 = tmp48 + tmp53;
- tmp401 = tmp48 - tmp53;
- tmp398 = tmp396 - tmp397;
- tmp796 = tmp396 + tmp397;
- }
- {
- fftw_real tmp59;
- fftw_real tmp402;
- fftw_real tmp64;
- fftw_real tmp403;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp56;
- fftw_real tmp58;
- fftw_real tmp55;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp56 = c_re(inout[20 * iostride]);
- tmp58 = c_im(inout[20 * iostride]);
- tmp55 = c_re(W[19]);
- tmp57 = c_im(W[19]);
- tmp59 = (tmp55 * tmp56) - (tmp57 * tmp58);
- tmp402 = (tmp57 * tmp56) + (tmp55 * tmp58);
- }
- {
- fftw_real tmp61;
- fftw_real tmp63;
- fftw_real tmp60;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = c_re(inout[52 * iostride]);
- tmp63 = c_im(inout[52 * iostride]);
- tmp60 = c_re(W[51]);
- tmp62 = c_im(W[51]);
- tmp64 = (tmp60 * tmp61) - (tmp62 * tmp63);
- tmp403 = (tmp62 * tmp61) + (tmp60 * tmp63);
- }
- tmp65 = tmp59 + tmp64;
- tmp399 = tmp59 - tmp64;
- tmp404 = tmp402 - tmp403;
- tmp797 = tmp402 + tmp403;
- }
- tmp66 = tmp54 + tmp65;
- tmp798 = tmp796 - tmp797;
- tmp799 = tmp54 - tmp65;
- tmp800 = tmp798 - tmp799;
- tmp908 = tmp799 + tmp798;
- tmp956 = tmp796 + tmp797;
- {
- fftw_real tmp400;
- fftw_real tmp405;
- fftw_real tmp660;
- fftw_real tmp661;
- ASSERT_ALIGNED_DOUBLE;
- tmp400 = tmp398 + tmp399;
- tmp405 = tmp401 - tmp404;
- tmp406 = (K382683432 * tmp400) - (K923879532 * tmp405);
- tmp608 = (K923879532 * tmp400) + (K382683432 * tmp405);
- tmp660 = tmp398 - tmp399;
- tmp661 = tmp401 + tmp404;
- tmp662 = (K923879532 * tmp660) - (K382683432 * tmp661);
- tmp744 = (K382683432 * tmp660) + (K923879532 * tmp661);
- }
- }
- {
- fftw_real tmp24;
- fftw_real tmp384;
- fftw_real tmp29;
- fftw_real tmp385;
- fftw_real tmp386;
- fftw_real tmp387;
- fftw_real tmp35;
- fftw_real tmp390;
- fftw_real tmp40;
- fftw_real tmp391;
- fftw_real tmp389;
- fftw_real tmp392;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp21;
- fftw_real tmp23;
- fftw_real tmp20;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = c_re(inout[8 * iostride]);
- tmp23 = c_im(inout[8 * iostride]);
- tmp20 = c_re(W[7]);
- tmp22 = c_im(W[7]);
- tmp24 = (tmp20 * tmp21) - (tmp22 * tmp23);
- tmp384 = (tmp22 * tmp21) + (tmp20 * tmp23);
- }
- {
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp25;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(inout[40 * iostride]);
- tmp28 = c_im(inout[40 * iostride]);
- tmp25 = c_re(W[39]);
- tmp27 = c_im(W[39]);
- tmp29 = (tmp25 * tmp26) - (tmp27 * tmp28);
- tmp385 = (tmp27 * tmp26) + (tmp25 * tmp28);
- }
- tmp386 = tmp384 - tmp385;
- tmp387 = tmp24 - tmp29;
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[56 * iostride]);
- tmp34 = c_im(inout[56 * iostride]);
- tmp31 = c_re(W[55]);
- tmp33 = c_im(W[55]);
- tmp35 = (tmp31 * tmp32) - (tmp33 * tmp34);
- tmp390 = (tmp33 * tmp32) + (tmp31 * tmp34);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[24 * iostride]);
- tmp39 = c_im(inout[24 * iostride]);
- tmp36 = c_re(W[23]);
- tmp38 = c_im(W[23]);
- tmp40 = (tmp36 * tmp37) - (tmp38 * tmp39);
- tmp391 = (tmp38 * tmp37) + (tmp36 * tmp39);
- }
- tmp389 = tmp35 - tmp40;
- tmp392 = tmp390 - tmp391;
- {
- fftw_real tmp30;
- fftw_real tmp41;
- fftw_real tmp792;
- fftw_real tmp793;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = tmp24 + tmp29;
- tmp41 = tmp35 + tmp40;
- tmp42 = tmp30 + tmp41;
- tmp1076 = tmp41 - tmp30;
- tmp792 = tmp384 + tmp385;
- tmp793 = tmp390 + tmp391;
- tmp794 = tmp792 - tmp793;
- tmp1042 = tmp792 + tmp793;
- }
- {
- fftw_real tmp388;
- fftw_real tmp393;
- fftw_real tmp656;
- fftw_real tmp657;
- ASSERT_ALIGNED_DOUBLE;
- tmp388 = tmp386 - tmp387;
- tmp393 = tmp389 + tmp392;
- tmp394 = K707106781 * (tmp388 - tmp393);
- tmp1106 = K707106781 * (tmp388 + tmp393);
- tmp656 = tmp387 + tmp386;
- tmp657 = tmp389 - tmp392;
- tmp658 = K707106781 * (tmp656 + tmp657);
- tmp1138 = K707106781 * (tmp657 - tmp656);
- }
- }
- {
- fftw_real tmp287;
- fftw_real tmp572;
- fftw_real tmp292;
- fftw_real tmp573;
- fftw_real tmp293;
- fftw_real tmp876;
- fftw_real tmp327;
- fftw_real tmp541;
- fftw_real tmp544;
- fftw_real tmp861;
- fftw_real tmp298;
- fftw_real tmp532;
- fftw_real tmp303;
- fftw_real tmp533;
- fftw_real tmp304;
- fftw_real tmp877;
- fftw_real tmp316;
- fftw_real tmp539;
- fftw_real tmp538;
- fftw_real tmp860;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp284;
- fftw_real tmp286;
- fftw_real tmp283;
- fftw_real tmp285;
- ASSERT_ALIGNED_DOUBLE;
- tmp284 = c_re(inout[63 * iostride]);
- tmp286 = c_im(inout[63 * iostride]);
- tmp283 = c_re(W[62]);
- tmp285 = c_im(W[62]);
- tmp287 = (tmp283 * tmp284) - (tmp285 * tmp286);
- tmp572 = (tmp285 * tmp284) + (tmp283 * tmp286);
- }
- {
- fftw_real tmp289;
- fftw_real tmp291;
- fftw_real tmp288;
- fftw_real tmp290;
- ASSERT_ALIGNED_DOUBLE;
- tmp289 = c_re(inout[31 * iostride]);
- tmp291 = c_im(inout[31 * iostride]);
- tmp288 = c_re(W[30]);
- tmp290 = c_im(W[30]);
- tmp292 = (tmp288 * tmp289) - (tmp290 * tmp291);
- tmp573 = (tmp290 * tmp289) + (tmp288 * tmp291);
- }
- tmp293 = tmp287 + tmp292;
- tmp876 = tmp572 + tmp573;
- {
- fftw_real tmp321;
- fftw_real tmp542;
- fftw_real tmp326;
- fftw_real tmp543;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp318;
- fftw_real tmp320;
- fftw_real tmp317;
- fftw_real tmp319;
- ASSERT_ALIGNED_DOUBLE;
- tmp318 = c_re(inout[55 * iostride]);
- tmp320 = c_im(inout[55 * iostride]);
- tmp317 = c_re(W[54]);
- tmp319 = c_im(W[54]);
- tmp321 = (tmp317 * tmp318) - (tmp319 * tmp320);
- tmp542 = (tmp319 * tmp318) + (tmp317 * tmp320);
- }
- {
- fftw_real tmp323;
- fftw_real tmp325;
- fftw_real tmp322;
- fftw_real tmp324;
- ASSERT_ALIGNED_DOUBLE;
- tmp323 = c_re(inout[23 * iostride]);
- tmp325 = c_im(inout[23 * iostride]);
- tmp322 = c_re(W[22]);
- tmp324 = c_im(W[22]);
- tmp326 = (tmp322 * tmp323) - (tmp324 * tmp325);
- tmp543 = (tmp324 * tmp323) + (tmp322 * tmp325);
- }
- tmp327 = tmp321 + tmp326;
- tmp541 = tmp321 - tmp326;
- tmp544 = tmp542 - tmp543;
- tmp861 = tmp542 + tmp543;
- }
- {
- fftw_real tmp295;
- fftw_real tmp297;
- fftw_real tmp294;
- fftw_real tmp296;
- ASSERT_ALIGNED_DOUBLE;
- tmp295 = c_re(inout[15 * iostride]);
- tmp297 = c_im(inout[15 * iostride]);
- tmp294 = c_re(W[14]);
- tmp296 = c_im(W[14]);
- tmp298 = (tmp294 * tmp295) - (tmp296 * tmp297);
- tmp532 = (tmp296 * tmp295) + (tmp294 * tmp297);
- }
- {
- fftw_real tmp300;
- fftw_real tmp302;
- fftw_real tmp299;
- fftw_real tmp301;
- ASSERT_ALIGNED_DOUBLE;
- tmp300 = c_re(inout[47 * iostride]);
- tmp302 = c_im(inout[47 * iostride]);
- tmp299 = c_re(W[46]);
- tmp301 = c_im(W[46]);
- tmp303 = (tmp299 * tmp300) - (tmp301 * tmp302);
- tmp533 = (tmp301 * tmp300) + (tmp299 * tmp302);
- }
- tmp304 = tmp298 + tmp303;
- tmp877 = tmp532 + tmp533;
- {
- fftw_real tmp310;
- fftw_real tmp536;
- fftw_real tmp315;
- fftw_real tmp537;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp307;
- fftw_real tmp309;
- fftw_real tmp306;
- fftw_real tmp308;
- ASSERT_ALIGNED_DOUBLE;
- tmp307 = c_re(inout[7 * iostride]);
- tmp309 = c_im(inout[7 * iostride]);
- tmp306 = c_re(W[6]);
- tmp308 = c_im(W[6]);
- tmp310 = (tmp306 * tmp307) - (tmp308 * tmp309);
- tmp536 = (tmp308 * tmp307) + (tmp306 * tmp309);
- }
- {
- fftw_real tmp312;
- fftw_real tmp314;
- fftw_real tmp311;
- fftw_real tmp313;
- ASSERT_ALIGNED_DOUBLE;
- tmp312 = c_re(inout[39 * iostride]);
- tmp314 = c_im(inout[39 * iostride]);
- tmp311 = c_re(W[38]);
- tmp313 = c_im(W[38]);
- tmp315 = (tmp311 * tmp312) - (tmp313 * tmp314);
- tmp537 = (tmp313 * tmp312) + (tmp311 * tmp314);
- }
- tmp316 = tmp310 + tmp315;
- tmp539 = tmp310 - tmp315;
- tmp538 = tmp536 - tmp537;
- tmp860 = tmp536 + tmp537;
- }
- {
- fftw_real tmp305;
- fftw_real tmp328;
- fftw_real tmp859;
- fftw_real tmp862;
- ASSERT_ALIGNED_DOUBLE;
- tmp305 = tmp293 + tmp304;
- tmp328 = tmp316 + tmp327;
- tmp329 = tmp305 + tmp328;
- tmp983 = tmp305 - tmp328;
- tmp859 = tmp293 - tmp304;
- tmp862 = tmp860 - tmp861;
- tmp863 = tmp859 - tmp862;
- tmp927 = tmp859 + tmp862;
- }
- {
- fftw_real tmp988;
- fftw_real tmp989;
- fftw_real tmp878;
- fftw_real tmp879;
- ASSERT_ALIGNED_DOUBLE;
- tmp988 = tmp876 + tmp877;
- tmp989 = tmp860 + tmp861;
- tmp990 = tmp988 - tmp989;
- tmp1026 = tmp988 + tmp989;
- tmp878 = tmp876 - tmp877;
- tmp879 = tmp327 - tmp316;
- tmp880 = tmp878 - tmp879;
- tmp930 = tmp878 + tmp879;
- }
- {
- fftw_real tmp531;
- fftw_real tmp534;
- fftw_real tmp574;
- fftw_real tmp575;
- ASSERT_ALIGNED_DOUBLE;
- tmp531 = tmp287 - tmp292;
- tmp534 = tmp532 - tmp533;
- tmp535 = tmp531 - tmp534;
- tmp703 = tmp531 + tmp534;
- tmp574 = tmp572 - tmp573;
- tmp575 = tmp298 - tmp303;
- tmp576 = tmp574 + tmp575;
- tmp714 = tmp574 - tmp575;
- }
- {
- fftw_real tmp577;
- fftw_real tmp578;
- fftw_real tmp540;
- fftw_real tmp545;
- ASSERT_ALIGNED_DOUBLE;
- tmp577 = tmp541 - tmp544;
- tmp578 = tmp539 + tmp538;
- tmp579 = K707106781 * (tmp577 - tmp578);
- tmp704 = K707106781 * (tmp578 + tmp577);
- tmp540 = tmp538 - tmp539;
- tmp545 = tmp541 + tmp544;
- tmp546 = K707106781 * (tmp540 - tmp545);
- tmp715 = K707106781 * (tmp540 + tmp545);
- }
- }
- {
- fftw_real tmp340;
- fftw_real tmp553;
- fftw_real tmp550;
- fftw_real tmp864;
- fftw_real tmp374;
- fftw_real tmp562;
- fftw_real tmp567;
- fftw_real tmp871;
- fftw_real tmp351;
- fftw_real tmp551;
- fftw_real tmp556;
- fftw_real tmp865;
- fftw_real tmp363;
- fftw_real tmp564;
- fftw_real tmp561;
- fftw_real tmp870;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp334;
- fftw_real tmp548;
- fftw_real tmp339;
- fftw_real tmp549;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp331;
- fftw_real tmp333;
- fftw_real tmp330;
- fftw_real tmp332;
- ASSERT_ALIGNED_DOUBLE;
- tmp331 = c_re(inout[3 * iostride]);
- tmp333 = c_im(inout[3 * iostride]);
- tmp330 = c_re(W[2]);
- tmp332 = c_im(W[2]);
- tmp334 = (tmp330 * tmp331) - (tmp332 * tmp333);
- tmp548 = (tmp332 * tmp331) + (tmp330 * tmp333);
- }
- {
- fftw_real tmp336;
- fftw_real tmp338;
- fftw_real tmp335;
- fftw_real tmp337;
- ASSERT_ALIGNED_DOUBLE;
- tmp336 = c_re(inout[35 * iostride]);
- tmp338 = c_im(inout[35 * iostride]);
- tmp335 = c_re(W[34]);
- tmp337 = c_im(W[34]);
- tmp339 = (tmp335 * tmp336) - (tmp337 * tmp338);
- tmp549 = (tmp337 * tmp336) + (tmp335 * tmp338);
- }
- tmp340 = tmp334 + tmp339;
- tmp553 = tmp334 - tmp339;
- tmp550 = tmp548 - tmp549;
- tmp864 = tmp548 + tmp549;
- }
- {
- fftw_real tmp368;
- fftw_real tmp565;
- fftw_real tmp373;
- fftw_real tmp566;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp365;
- fftw_real tmp367;
- fftw_real tmp364;
- fftw_real tmp366;
- ASSERT_ALIGNED_DOUBLE;
- tmp365 = c_re(inout[11 * iostride]);
- tmp367 = c_im(inout[11 * iostride]);
- tmp364 = c_re(W[10]);
- tmp366 = c_im(W[10]);
- tmp368 = (tmp364 * tmp365) - (tmp366 * tmp367);
- tmp565 = (tmp366 * tmp365) + (tmp364 * tmp367);
- }
- {
- fftw_real tmp370;
- fftw_real tmp372;
- fftw_real tmp369;
- fftw_real tmp371;
- ASSERT_ALIGNED_DOUBLE;
- tmp370 = c_re(inout[43 * iostride]);
- tmp372 = c_im(inout[43 * iostride]);
- tmp369 = c_re(W[42]);
- tmp371 = c_im(W[42]);
- tmp373 = (tmp369 * tmp370) - (tmp371 * tmp372);
- tmp566 = (tmp371 * tmp370) + (tmp369 * tmp372);
- }
- tmp374 = tmp368 + tmp373;
- tmp562 = tmp368 - tmp373;
- tmp567 = tmp565 - tmp566;
- tmp871 = tmp565 + tmp566;
- }
- {
- fftw_real tmp345;
- fftw_real tmp554;
- fftw_real tmp350;
- fftw_real tmp555;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp342;
- fftw_real tmp344;
- fftw_real tmp341;
- fftw_real tmp343;
- ASSERT_ALIGNED_DOUBLE;
- tmp342 = c_re(inout[19 * iostride]);
- tmp344 = c_im(inout[19 * iostride]);
- tmp341 = c_re(W[18]);
- tmp343 = c_im(W[18]);
- tmp345 = (tmp341 * tmp342) - (tmp343 * tmp344);
- tmp554 = (tmp343 * tmp342) + (tmp341 * tmp344);
- }
- {
- fftw_real tmp347;
- fftw_real tmp349;
- fftw_real tmp346;
- fftw_real tmp348;
- ASSERT_ALIGNED_DOUBLE;
- tmp347 = c_re(inout[51 * iostride]);
- tmp349 = c_im(inout[51 * iostride]);
- tmp346 = c_re(W[50]);
- tmp348 = c_im(W[50]);
- tmp350 = (tmp346 * tmp347) - (tmp348 * tmp349);
- tmp555 = (tmp348 * tmp347) + (tmp346 * tmp349);
- }
- tmp351 = tmp345 + tmp350;
- tmp551 = tmp345 - tmp350;
- tmp556 = tmp554 - tmp555;
- tmp865 = tmp554 + tmp555;
- }
- {
- fftw_real tmp357;
- fftw_real tmp559;
- fftw_real tmp362;
- fftw_real tmp560;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp354;
- fftw_real tmp356;
- fftw_real tmp353;
- fftw_real tmp355;
- ASSERT_ALIGNED_DOUBLE;
- tmp354 = c_re(inout[59 * iostride]);
- tmp356 = c_im(inout[59 * iostride]);
- tmp353 = c_re(W[58]);
- tmp355 = c_im(W[58]);
- tmp357 = (tmp353 * tmp354) - (tmp355 * tmp356);
- tmp559 = (tmp355 * tmp354) + (tmp353 * tmp356);
- }
- {
- fftw_real tmp359;
- fftw_real tmp361;
- fftw_real tmp358;
- fftw_real tmp360;
- ASSERT_ALIGNED_DOUBLE;
- tmp359 = c_re(inout[27 * iostride]);
- tmp361 = c_im(inout[27 * iostride]);
- tmp358 = c_re(W[26]);
- tmp360 = c_im(W[26]);
- tmp362 = (tmp358 * tmp359) - (tmp360 * tmp361);
- tmp560 = (tmp360 * tmp359) + (tmp358 * tmp361);
- }
- tmp363 = tmp357 + tmp362;
- tmp564 = tmp357 - tmp362;
- tmp561 = tmp559 - tmp560;
- tmp870 = tmp559 + tmp560;
- }
- {
- fftw_real tmp352;
- fftw_real tmp375;
- fftw_real tmp866;
- fftw_real tmp867;
- ASSERT_ALIGNED_DOUBLE;
- tmp352 = tmp340 + tmp351;
- tmp375 = tmp363 + tmp374;
- tmp376 = tmp352 + tmp375;
- tmp991 = tmp375 - tmp352;
- tmp866 = tmp864 - tmp865;
- tmp867 = tmp340 - tmp351;
- tmp868 = tmp866 - tmp867;
- tmp882 = tmp867 + tmp866;
- }
- {
- fftw_real tmp984;
- fftw_real tmp985;
- fftw_real tmp869;
- fftw_real tmp872;
- ASSERT_ALIGNED_DOUBLE;
- tmp984 = tmp864 + tmp865;
- tmp985 = tmp870 + tmp871;
- tmp986 = tmp984 - tmp985;
- tmp1027 = tmp984 + tmp985;
- tmp869 = tmp363 - tmp374;
- tmp872 = tmp870 - tmp871;
- tmp873 = tmp869 + tmp872;
- tmp881 = tmp869 - tmp872;
- }
- {
- fftw_real tmp552;
- fftw_real tmp557;
- fftw_real tmp706;
- fftw_real tmp707;
- ASSERT_ALIGNED_DOUBLE;
- tmp552 = tmp550 + tmp551;
- tmp557 = tmp553 - tmp556;
- tmp558 = (K382683432 * tmp552) - (K923879532 * tmp557);
- tmp582 = (K923879532 * tmp552) + (K382683432 * tmp557);
- tmp706 = tmp550 - tmp551;
- tmp707 = tmp553 + tmp556;
- tmp708 = (K923879532 * tmp706) - (K382683432 * tmp707);
- tmp718 = (K382683432 * tmp706) + (K923879532 * tmp707);
- }
- {
- fftw_real tmp563;
- fftw_real tmp568;
- fftw_real tmp709;
- fftw_real tmp710;
- ASSERT_ALIGNED_DOUBLE;
- tmp563 = tmp561 + tmp562;
- tmp568 = tmp564 - tmp567;
- tmp569 = (K382683432 * tmp563) + (K923879532 * tmp568);
- tmp581 = (K382683432 * tmp568) - (K923879532 * tmp563);
- tmp709 = tmp561 - tmp562;
- tmp710 = tmp564 + tmp567;
- tmp711 = (K923879532 * tmp709) + (K382683432 * tmp710);
- tmp717 = (K923879532 * tmp710) - (K382683432 * tmp709);
- }
- }
- {
- fftw_real tmp77;
- fftw_real tmp412;
- fftw_real tmp409;
- fftw_real tmp802;
- fftw_real tmp88;
- fftw_real tmp410;
- fftw_real tmp415;
- fftw_real tmp803;
- fftw_real tmp801;
- fftw_real tmp804;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp71;
- fftw_real tmp407;
- fftw_real tmp76;
- fftw_real tmp408;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp68;
- fftw_real tmp70;
- fftw_real tmp67;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- tmp68 = c_re(inout[60 * iostride]);
- tmp70 = c_im(inout[60 * iostride]);
- tmp67 = c_re(W[59]);
- tmp69 = c_im(W[59]);
- tmp71 = (tmp67 * tmp68) - (tmp69 * tmp70);
- tmp407 = (tmp69 * tmp68) + (tmp67 * tmp70);
- }
- {
- fftw_real tmp73;
- fftw_real tmp75;
- fftw_real tmp72;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = c_re(inout[28 * iostride]);
- tmp75 = c_im(inout[28 * iostride]);
- tmp72 = c_re(W[27]);
- tmp74 = c_im(W[27]);
- tmp76 = (tmp72 * tmp73) - (tmp74 * tmp75);
- tmp408 = (tmp74 * tmp73) + (tmp72 * tmp75);
- }
- tmp77 = tmp71 + tmp76;
- tmp412 = tmp71 - tmp76;
- tmp409 = tmp407 - tmp408;
- tmp802 = tmp407 + tmp408;
- }
- {
- fftw_real tmp82;
- fftw_real tmp413;
- fftw_real tmp87;
- fftw_real tmp414;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp79;
- fftw_real tmp81;
- fftw_real tmp78;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp79 = c_re(inout[12 * iostride]);
- tmp81 = c_im(inout[12 * iostride]);
- tmp78 = c_re(W[11]);
- tmp80 = c_im(W[11]);
- tmp82 = (tmp78 * tmp79) - (tmp80 * tmp81);
- tmp413 = (tmp80 * tmp79) + (tmp78 * tmp81);
- }
- {
- fftw_real tmp84;
- fftw_real tmp86;
- fftw_real tmp83;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- tmp84 = c_re(inout[44 * iostride]);
- tmp86 = c_im(inout[44 * iostride]);
- tmp83 = c_re(W[43]);
- tmp85 = c_im(W[43]);
- tmp87 = (tmp83 * tmp84) - (tmp85 * tmp86);
- tmp414 = (tmp85 * tmp84) + (tmp83 * tmp86);
- }
- tmp88 = tmp82 + tmp87;
- tmp410 = tmp82 - tmp87;
- tmp415 = tmp413 - tmp414;
- tmp803 = tmp413 + tmp414;
- }
- tmp89 = tmp77 + tmp88;
- tmp801 = tmp77 - tmp88;
- tmp804 = tmp802 - tmp803;
- tmp805 = tmp801 + tmp804;
- tmp909 = tmp801 - tmp804;
- tmp957 = tmp802 + tmp803;
- {
- fftw_real tmp411;
- fftw_real tmp416;
- fftw_real tmp663;
- fftw_real tmp664;
- ASSERT_ALIGNED_DOUBLE;
- tmp411 = tmp409 + tmp410;
- tmp416 = tmp412 - tmp415;
- tmp417 = (K382683432 * tmp411) + (K923879532 * tmp416);
- tmp609 = (K382683432 * tmp416) - (K923879532 * tmp411);
- tmp663 = tmp409 - tmp410;
- tmp664 = tmp412 + tmp415;
- tmp665 = (K923879532 * tmp663) + (K382683432 * tmp664);
- tmp745 = (K923879532 * tmp664) - (K382683432 * tmp663);
- }
- }
- {
- fftw_real tmp143;
- fftw_real tmp447;
- fftw_real tmp148;
- fftw_real tmp448;
- fftw_real tmp149;
- fftw_real tmp819;
- fftw_real tmp183;
- fftw_real tmp452;
- fftw_real tmp455;
- fftw_real tmp826;
- fftw_real tmp154;
- fftw_real tmp465;
- fftw_real tmp159;
- fftw_real tmp466;
- fftw_real tmp160;
- fftw_real tmp820;
- fftw_real tmp172;
- fftw_real tmp457;
- fftw_real tmp460;
- fftw_real tmp825;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp140;
- fftw_real tmp142;
- fftw_real tmp139;
- fftw_real tmp141;
- ASSERT_ALIGNED_DOUBLE;
- tmp140 = c_re(inout[62 * iostride]);
- tmp142 = c_im(inout[62 * iostride]);
- tmp139 = c_re(W[61]);
- tmp141 = c_im(W[61]);
- tmp143 = (tmp139 * tmp140) - (tmp141 * tmp142);
- tmp447 = (tmp141 * tmp140) + (tmp139 * tmp142);
- }
- {
- fftw_real tmp145;
- fftw_real tmp147;
- fftw_real tmp144;
- fftw_real tmp146;
- ASSERT_ALIGNED_DOUBLE;
- tmp145 = c_re(inout[30 * iostride]);
- tmp147 = c_im(inout[30 * iostride]);
- tmp144 = c_re(W[29]);
- tmp146 = c_im(W[29]);
- tmp148 = (tmp144 * tmp145) - (tmp146 * tmp147);
- tmp448 = (tmp146 * tmp145) + (tmp144 * tmp147);
- }
- tmp149 = tmp143 + tmp148;
- tmp819 = tmp447 + tmp448;
- {
- fftw_real tmp177;
- fftw_real tmp453;
- fftw_real tmp182;
- fftw_real tmp454;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp174;
- fftw_real tmp176;
- fftw_real tmp173;
- fftw_real tmp175;
- ASSERT_ALIGNED_DOUBLE;
- tmp174 = c_re(inout[54 * iostride]);
- tmp176 = c_im(inout[54 * iostride]);
- tmp173 = c_re(W[53]);
- tmp175 = c_im(W[53]);
- tmp177 = (tmp173 * tmp174) - (tmp175 * tmp176);
- tmp453 = (tmp175 * tmp174) + (tmp173 * tmp176);
- }
- {
- fftw_real tmp179;
- fftw_real tmp181;
- fftw_real tmp178;
- fftw_real tmp180;
- ASSERT_ALIGNED_DOUBLE;
- tmp179 = c_re(inout[22 * iostride]);
- tmp181 = c_im(inout[22 * iostride]);
- tmp178 = c_re(W[21]);
- tmp180 = c_im(W[21]);
- tmp182 = (tmp178 * tmp179) - (tmp180 * tmp181);
- tmp454 = (tmp180 * tmp179) + (tmp178 * tmp181);
- }
- tmp183 = tmp177 + tmp182;
- tmp452 = tmp177 - tmp182;
- tmp455 = tmp453 - tmp454;
- tmp826 = tmp453 + tmp454;
- }
- {
- fftw_real tmp151;
- fftw_real tmp153;
- fftw_real tmp150;
- fftw_real tmp152;
- ASSERT_ALIGNED_DOUBLE;
- tmp151 = c_re(inout[14 * iostride]);
- tmp153 = c_im(inout[14 * iostride]);
- tmp150 = c_re(W[13]);
- tmp152 = c_im(W[13]);
- tmp154 = (tmp150 * tmp151) - (tmp152 * tmp153);
- tmp465 = (tmp152 * tmp151) + (tmp150 * tmp153);
- }
- {
- fftw_real tmp156;
- fftw_real tmp158;
- fftw_real tmp155;
- fftw_real tmp157;
- ASSERT_ALIGNED_DOUBLE;
- tmp156 = c_re(inout[46 * iostride]);
- tmp158 = c_im(inout[46 * iostride]);
- tmp155 = c_re(W[45]);
- tmp157 = c_im(W[45]);
- tmp159 = (tmp155 * tmp156) - (tmp157 * tmp158);
- tmp466 = (tmp157 * tmp156) + (tmp155 * tmp158);
- }
- tmp160 = tmp154 + tmp159;
- tmp820 = tmp465 + tmp466;
- {
- fftw_real tmp166;
- fftw_real tmp458;
- fftw_real tmp171;
- fftw_real tmp459;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp163;
- fftw_real tmp165;
- fftw_real tmp162;
- fftw_real tmp164;
- ASSERT_ALIGNED_DOUBLE;
- tmp163 = c_re(inout[6 * iostride]);
- tmp165 = c_im(inout[6 * iostride]);
- tmp162 = c_re(W[5]);
- tmp164 = c_im(W[5]);
- tmp166 = (tmp162 * tmp163) - (tmp164 * tmp165);
- tmp458 = (tmp164 * tmp163) + (tmp162 * tmp165);
- }
- {
- fftw_real tmp168;
- fftw_real tmp170;
- fftw_real tmp167;
- fftw_real tmp169;
- ASSERT_ALIGNED_DOUBLE;
- tmp168 = c_re(inout[38 * iostride]);
- tmp170 = c_im(inout[38 * iostride]);
- tmp167 = c_re(W[37]);
- tmp169 = c_im(W[37]);
- tmp171 = (tmp167 * tmp168) - (tmp169 * tmp170);
- tmp459 = (tmp169 * tmp168) + (tmp167 * tmp170);
- }
- tmp172 = tmp166 + tmp171;
- tmp457 = tmp166 - tmp171;
- tmp460 = tmp458 - tmp459;
- tmp825 = tmp458 + tmp459;
- }
- {
- fftw_real tmp821;
- fftw_real tmp822;
- fftw_real tmp824;
- fftw_real tmp827;
- ASSERT_ALIGNED_DOUBLE;
- tmp161 = tmp149 + tmp160;
- tmp184 = tmp172 + tmp183;
- tmp965 = tmp161 - tmp184;
- tmp821 = tmp819 - tmp820;
- tmp822 = tmp183 - tmp172;
- tmp823 = tmp821 - tmp822;
- tmp915 = tmp821 + tmp822;
- tmp966 = tmp819 + tmp820;
- tmp967 = tmp825 + tmp826;
- tmp968 = tmp966 - tmp967;
- tmp824 = tmp149 - tmp160;
- tmp827 = tmp825 - tmp826;
- tmp828 = tmp824 - tmp827;
- tmp916 = tmp824 + tmp827;
- }
- {
- fftw_real tmp449;
- fftw_real tmp450;
- fftw_real tmp464;
- fftw_real tmp467;
- ASSERT_ALIGNED_DOUBLE;
- tmp449 = tmp447 - tmp448;
- tmp450 = tmp154 - tmp159;
- tmp451 = tmp449 + tmp450;
- tmp678 = tmp449 - tmp450;
- tmp464 = tmp143 - tmp148;
- tmp467 = tmp465 - tmp466;
- tmp468 = tmp464 - tmp467;
- tmp675 = tmp464 + tmp467;
- }
- {
- fftw_real tmp469;
- fftw_real tmp470;
- fftw_real tmp456;
- fftw_real tmp461;
- ASSERT_ALIGNED_DOUBLE;
- tmp469 = tmp460 - tmp457;
- tmp470 = tmp452 + tmp455;
- tmp471 = K707106781 * (tmp469 - tmp470);
- tmp679 = K707106781 * (tmp469 + tmp470);
- tmp456 = tmp452 - tmp455;
- tmp461 = tmp457 + tmp460;
- tmp462 = K707106781 * (tmp456 - tmp461);
- tmp676 = K707106781 * (tmp461 + tmp456);
- }
- }
- {
- fftw_real tmp96;
- fftw_real tmp420;
- fftw_real tmp101;
- fftw_real tmp421;
- fftw_real tmp102;
- fftw_real tmp808;
- fftw_real tmp136;
- fftw_real tmp425;
- fftw_real tmp428;
- fftw_real tmp815;
- fftw_real tmp107;
- fftw_real tmp438;
- fftw_real tmp112;
- fftw_real tmp439;
- fftw_real tmp113;
- fftw_real tmp809;
- fftw_real tmp125;
- fftw_real tmp430;
- fftw_real tmp433;
- fftw_real tmp814;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp93;
- fftw_real tmp95;
- fftw_real tmp92;
- fftw_real tmp94;
- ASSERT_ALIGNED_DOUBLE;
- tmp93 = c_re(inout[2 * iostride]);
- tmp95 = c_im(inout[2 * iostride]);
- tmp92 = c_re(W[1]);
- tmp94 = c_im(W[1]);
- tmp96 = (tmp92 * tmp93) - (tmp94 * tmp95);
- tmp420 = (tmp94 * tmp93) + (tmp92 * tmp95);
- }
- {
- fftw_real tmp98;
- fftw_real tmp100;
- fftw_real tmp97;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- tmp98 = c_re(inout[34 * iostride]);
- tmp100 = c_im(inout[34 * iostride]);
- tmp97 = c_re(W[33]);
- tmp99 = c_im(W[33]);
- tmp101 = (tmp97 * tmp98) - (tmp99 * tmp100);
- tmp421 = (tmp99 * tmp98) + (tmp97 * tmp100);
- }
- tmp102 = tmp96 + tmp101;
- tmp808 = tmp420 + tmp421;
- {
- fftw_real tmp130;
- fftw_real tmp426;
- fftw_real tmp135;
- fftw_real tmp427;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp127;
- fftw_real tmp129;
- fftw_real tmp126;
- fftw_real tmp128;
- ASSERT_ALIGNED_DOUBLE;
- tmp127 = c_re(inout[58 * iostride]);
- tmp129 = c_im(inout[58 * iostride]);
- tmp126 = c_re(W[57]);
- tmp128 = c_im(W[57]);
- tmp130 = (tmp126 * tmp127) - (tmp128 * tmp129);
- tmp426 = (tmp128 * tmp127) + (tmp126 * tmp129);
- }
- {
- fftw_real tmp132;
- fftw_real tmp134;
- fftw_real tmp131;
- fftw_real tmp133;
- ASSERT_ALIGNED_DOUBLE;
- tmp132 = c_re(inout[26 * iostride]);
- tmp134 = c_im(inout[26 * iostride]);
- tmp131 = c_re(W[25]);
- tmp133 = c_im(W[25]);
- tmp135 = (tmp131 * tmp132) - (tmp133 * tmp134);
- tmp427 = (tmp133 * tmp132) + (tmp131 * tmp134);
- }
- tmp136 = tmp130 + tmp135;
- tmp425 = tmp130 - tmp135;
- tmp428 = tmp426 - tmp427;
- tmp815 = tmp426 + tmp427;
- }
- {
- fftw_real tmp104;
- fftw_real tmp106;
- fftw_real tmp103;
- fftw_real tmp105;
- ASSERT_ALIGNED_DOUBLE;
- tmp104 = c_re(inout[18 * iostride]);
- tmp106 = c_im(inout[18 * iostride]);
- tmp103 = c_re(W[17]);
- tmp105 = c_im(W[17]);
- tmp107 = (tmp103 * tmp104) - (tmp105 * tmp106);
- tmp438 = (tmp105 * tmp104) + (tmp103 * tmp106);
- }
- {
- fftw_real tmp109;
- fftw_real tmp111;
- fftw_real tmp108;
- fftw_real tmp110;
- ASSERT_ALIGNED_DOUBLE;
- tmp109 = c_re(inout[50 * iostride]);
- tmp111 = c_im(inout[50 * iostride]);
- tmp108 = c_re(W[49]);
- tmp110 = c_im(W[49]);
- tmp112 = (tmp108 * tmp109) - (tmp110 * tmp111);
- tmp439 = (tmp110 * tmp109) + (tmp108 * tmp111);
- }
- tmp113 = tmp107 + tmp112;
- tmp809 = tmp438 + tmp439;
- {
- fftw_real tmp119;
- fftw_real tmp431;
- fftw_real tmp124;
- fftw_real tmp432;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp116;
- fftw_real tmp118;
- fftw_real tmp115;
- fftw_real tmp117;
- ASSERT_ALIGNED_DOUBLE;
- tmp116 = c_re(inout[10 * iostride]);
- tmp118 = c_im(inout[10 * iostride]);
- tmp115 = c_re(W[9]);
- tmp117 = c_im(W[9]);
- tmp119 = (tmp115 * tmp116) - (tmp117 * tmp118);
- tmp431 = (tmp117 * tmp116) + (tmp115 * tmp118);
- }
- {
- fftw_real tmp121;
- fftw_real tmp123;
- fftw_real tmp120;
- fftw_real tmp122;
- ASSERT_ALIGNED_DOUBLE;
- tmp121 = c_re(inout[42 * iostride]);
- tmp123 = c_im(inout[42 * iostride]);
- tmp120 = c_re(W[41]);
- tmp122 = c_im(W[41]);
- tmp124 = (tmp120 * tmp121) - (tmp122 * tmp123);
- tmp432 = (tmp122 * tmp121) + (tmp120 * tmp123);
- }
- tmp125 = tmp119 + tmp124;
- tmp430 = tmp119 - tmp124;
- tmp433 = tmp431 - tmp432;
- tmp814 = tmp431 + tmp432;
- }
- {
- fftw_real tmp810;
- fftw_real tmp811;
- fftw_real tmp813;
- fftw_real tmp816;
- ASSERT_ALIGNED_DOUBLE;
- tmp114 = tmp102 + tmp113;
- tmp137 = tmp125 + tmp136;
- tmp963 = tmp114 - tmp137;
- tmp810 = tmp808 - tmp809;
- tmp811 = tmp136 - tmp125;
- tmp812 = tmp810 - tmp811;
- tmp912 = tmp810 + tmp811;
- tmp960 = tmp808 + tmp809;
- tmp961 = tmp814 + tmp815;
- tmp962 = tmp960 - tmp961;
- tmp813 = tmp102 - tmp113;
- tmp816 = tmp814 - tmp815;
- tmp817 = tmp813 - tmp816;
- tmp913 = tmp813 + tmp816;
- }
- {
- fftw_real tmp422;
- fftw_real tmp423;
- fftw_real tmp437;
- fftw_real tmp440;
- ASSERT_ALIGNED_DOUBLE;
- tmp422 = tmp420 - tmp421;
- tmp423 = tmp107 - tmp112;
- tmp424 = tmp422 + tmp423;
- tmp668 = tmp422 - tmp423;
- tmp437 = tmp96 - tmp101;
- tmp440 = tmp438 - tmp439;
- tmp441 = tmp437 - tmp440;
- tmp671 = tmp437 + tmp440;
- }
- {
- fftw_real tmp442;
- fftw_real tmp443;
- fftw_real tmp429;
- fftw_real tmp434;
- ASSERT_ALIGNED_DOUBLE;
- tmp442 = tmp433 - tmp430;
- tmp443 = tmp425 + tmp428;
- tmp444 = K707106781 * (tmp442 - tmp443);
- tmp669 = K707106781 * (tmp442 + tmp443);
- tmp429 = tmp425 - tmp428;
- tmp434 = tmp430 + tmp433;
- tmp435 = K707106781 * (tmp429 - tmp434);
- tmp672 = K707106781 * (tmp434 + tmp429);
- }
- }
- {
- fftw_real tmp192;
- fftw_real tmp476;
- fftw_real tmp197;
- fftw_real tmp477;
- fftw_real tmp198;
- fftw_real tmp832;
- fftw_real tmp232;
- fftw_real tmp481;
- fftw_real tmp484;
- fftw_real tmp851;
- fftw_real tmp203;
- fftw_real tmp518;
- fftw_real tmp208;
- fftw_real tmp519;
- fftw_real tmp209;
- fftw_real tmp833;
- fftw_real tmp221;
- fftw_real tmp486;
- fftw_real tmp489;
- fftw_real tmp850;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp189;
- fftw_real tmp191;
- fftw_real tmp188;
- fftw_real tmp190;
- ASSERT_ALIGNED_DOUBLE;
- tmp189 = c_re(inout[iostride]);
- tmp191 = c_im(inout[iostride]);
- tmp188 = c_re(W[0]);
- tmp190 = c_im(W[0]);
- tmp192 = (tmp188 * tmp189) - (tmp190 * tmp191);
- tmp476 = (tmp190 * tmp189) + (tmp188 * tmp191);
- }
- {
- fftw_real tmp194;
- fftw_real tmp196;
- fftw_real tmp193;
- fftw_real tmp195;
- ASSERT_ALIGNED_DOUBLE;
- tmp194 = c_re(inout[33 * iostride]);
- tmp196 = c_im(inout[33 * iostride]);
- tmp193 = c_re(W[32]);
- tmp195 = c_im(W[32]);
- tmp197 = (tmp193 * tmp194) - (tmp195 * tmp196);
- tmp477 = (tmp195 * tmp194) + (tmp193 * tmp196);
- }
- tmp198 = tmp192 + tmp197;
- tmp832 = tmp476 + tmp477;
- {
- fftw_real tmp226;
- fftw_real tmp482;
- fftw_real tmp231;
- fftw_real tmp483;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp223;
- fftw_real tmp225;
- fftw_real tmp222;
- fftw_real tmp224;
- ASSERT_ALIGNED_DOUBLE;
- tmp223 = c_re(inout[57 * iostride]);
- tmp225 = c_im(inout[57 * iostride]);
- tmp222 = c_re(W[56]);
- tmp224 = c_im(W[56]);
- tmp226 = (tmp222 * tmp223) - (tmp224 * tmp225);
- tmp482 = (tmp224 * tmp223) + (tmp222 * tmp225);
- }
- {
- fftw_real tmp228;
- fftw_real tmp230;
- fftw_real tmp227;
- fftw_real tmp229;
- ASSERT_ALIGNED_DOUBLE;
- tmp228 = c_re(inout[25 * iostride]);
- tmp230 = c_im(inout[25 * iostride]);
- tmp227 = c_re(W[24]);
- tmp229 = c_im(W[24]);
- tmp231 = (tmp227 * tmp228) - (tmp229 * tmp230);
- tmp483 = (tmp229 * tmp228) + (tmp227 * tmp230);
- }
- tmp232 = tmp226 + tmp231;
- tmp481 = tmp226 - tmp231;
- tmp484 = tmp482 - tmp483;
- tmp851 = tmp482 + tmp483;
- }
- {
- fftw_real tmp200;
- fftw_real tmp202;
- fftw_real tmp199;
- fftw_real tmp201;
- ASSERT_ALIGNED_DOUBLE;
- tmp200 = c_re(inout[17 * iostride]);
- tmp202 = c_im(inout[17 * iostride]);
- tmp199 = c_re(W[16]);
- tmp201 = c_im(W[16]);
- tmp203 = (tmp199 * tmp200) - (tmp201 * tmp202);
- tmp518 = (tmp201 * tmp200) + (tmp199 * tmp202);
- }
- {
- fftw_real tmp205;
- fftw_real tmp207;
- fftw_real tmp204;
- fftw_real tmp206;
- ASSERT_ALIGNED_DOUBLE;
- tmp205 = c_re(inout[49 * iostride]);
- tmp207 = c_im(inout[49 * iostride]);
- tmp204 = c_re(W[48]);
- tmp206 = c_im(W[48]);
- tmp208 = (tmp204 * tmp205) - (tmp206 * tmp207);
- tmp519 = (tmp206 * tmp205) + (tmp204 * tmp207);
- }
- tmp209 = tmp203 + tmp208;
- tmp833 = tmp518 + tmp519;
- {
- fftw_real tmp215;
- fftw_real tmp487;
- fftw_real tmp220;
- fftw_real tmp488;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp212;
- fftw_real tmp214;
- fftw_real tmp211;
- fftw_real tmp213;
- ASSERT_ALIGNED_DOUBLE;
- tmp212 = c_re(inout[9 * iostride]);
- tmp214 = c_im(inout[9 * iostride]);
- tmp211 = c_re(W[8]);
- tmp213 = c_im(W[8]);
- tmp215 = (tmp211 * tmp212) - (tmp213 * tmp214);
- tmp487 = (tmp213 * tmp212) + (tmp211 * tmp214);
- }
- {
- fftw_real tmp217;
- fftw_real tmp219;
- fftw_real tmp216;
- fftw_real tmp218;
- ASSERT_ALIGNED_DOUBLE;
- tmp217 = c_re(inout[41 * iostride]);
- tmp219 = c_im(inout[41 * iostride]);
- tmp216 = c_re(W[40]);
- tmp218 = c_im(W[40]);
- tmp220 = (tmp216 * tmp217) - (tmp218 * tmp219);
- tmp488 = (tmp218 * tmp217) + (tmp216 * tmp219);
- }
- tmp221 = tmp215 + tmp220;
- tmp486 = tmp215 - tmp220;
- tmp489 = tmp487 - tmp488;
- tmp850 = tmp487 + tmp488;
- }
- {
- fftw_real tmp210;
- fftw_real tmp233;
- fftw_real tmp834;
- fftw_real tmp835;
- ASSERT_ALIGNED_DOUBLE;
- tmp210 = tmp198 + tmp209;
- tmp233 = tmp221 + tmp232;
- tmp234 = tmp210 + tmp233;
- tmp977 = tmp210 - tmp233;
- tmp834 = tmp832 - tmp833;
- tmp835 = tmp232 - tmp221;
- tmp836 = tmp834 - tmp835;
- tmp923 = tmp834 + tmp835;
- }
- {
- fftw_real tmp972;
- fftw_real tmp973;
- fftw_real tmp849;
- fftw_real tmp852;
- ASSERT_ALIGNED_DOUBLE;
- tmp972 = tmp832 + tmp833;
- tmp973 = tmp850 + tmp851;
- tmp974 = tmp972 - tmp973;
- tmp1021 = tmp972 + tmp973;
- tmp849 = tmp198 - tmp209;
- tmp852 = tmp850 - tmp851;
- tmp853 = tmp849 - tmp852;
- tmp920 = tmp849 + tmp852;
- }
- {
- fftw_real tmp478;
- fftw_real tmp479;
- fftw_real tmp517;
- fftw_real tmp520;
- ASSERT_ALIGNED_DOUBLE;
- tmp478 = tmp476 - tmp477;
- tmp479 = tmp203 - tmp208;
- tmp480 = tmp478 + tmp479;
- tmp684 = tmp478 - tmp479;
- tmp517 = tmp192 - tmp197;
- tmp520 = tmp518 - tmp519;
- tmp521 = tmp517 - tmp520;
- tmp695 = tmp517 + tmp520;
- }
- {
- fftw_real tmp522;
- fftw_real tmp523;
- fftw_real tmp485;
- fftw_real tmp490;
- ASSERT_ALIGNED_DOUBLE;
- tmp522 = tmp489 - tmp486;
- tmp523 = tmp481 + tmp484;
- tmp524 = K707106781 * (tmp522 - tmp523);
- tmp685 = K707106781 * (tmp522 + tmp523);
- tmp485 = tmp481 - tmp484;
- tmp490 = tmp486 + tmp489;
- tmp491 = K707106781 * (tmp485 - tmp490);
- tmp696 = K707106781 * (tmp490 + tmp485);
- }
- }
- {
- fftw_real tmp245;
- fftw_real tmp509;
- fftw_real tmp506;
- fftw_real tmp843;
- fftw_real tmp279;
- fftw_real tmp501;
- fftw_real tmp496;
- fftw_real tmp839;
- fftw_real tmp256;
- fftw_real tmp507;
- fftw_real tmp512;
- fftw_real tmp844;
- fftw_real tmp268;
- fftw_real tmp493;
- fftw_real tmp500;
- fftw_real tmp838;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp239;
- fftw_real tmp504;
- fftw_real tmp244;
- fftw_real tmp505;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp236;
- fftw_real tmp238;
- fftw_real tmp235;
- fftw_real tmp237;
- ASSERT_ALIGNED_DOUBLE;
- tmp236 = c_re(inout[5 * iostride]);
- tmp238 = c_im(inout[5 * iostride]);
- tmp235 = c_re(W[4]);
- tmp237 = c_im(W[4]);
- tmp239 = (tmp235 * tmp236) - (tmp237 * tmp238);
- tmp504 = (tmp237 * tmp236) + (tmp235 * tmp238);
- }
- {
- fftw_real tmp241;
- fftw_real tmp243;
- fftw_real tmp240;
- fftw_real tmp242;
- ASSERT_ALIGNED_DOUBLE;
- tmp241 = c_re(inout[37 * iostride]);
- tmp243 = c_im(inout[37 * iostride]);
- tmp240 = c_re(W[36]);
- tmp242 = c_im(W[36]);
- tmp244 = (tmp240 * tmp241) - (tmp242 * tmp243);
- tmp505 = (tmp242 * tmp241) + (tmp240 * tmp243);
- }
- tmp245 = tmp239 + tmp244;
- tmp509 = tmp239 - tmp244;
- tmp506 = tmp504 - tmp505;
- tmp843 = tmp504 + tmp505;
- }
- {
- fftw_real tmp273;
- fftw_real tmp494;
- fftw_real tmp278;
- fftw_real tmp495;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp270;
- fftw_real tmp272;
- fftw_real tmp269;
- fftw_real tmp271;
- ASSERT_ALIGNED_DOUBLE;
- tmp270 = c_re(inout[13 * iostride]);
- tmp272 = c_im(inout[13 * iostride]);
- tmp269 = c_re(W[12]);
- tmp271 = c_im(W[12]);
- tmp273 = (tmp269 * tmp270) - (tmp271 * tmp272);
- tmp494 = (tmp271 * tmp270) + (tmp269 * tmp272);
- }
- {
- fftw_real tmp275;
- fftw_real tmp277;
- fftw_real tmp274;
- fftw_real tmp276;
- ASSERT_ALIGNED_DOUBLE;
- tmp275 = c_re(inout[45 * iostride]);
- tmp277 = c_im(inout[45 * iostride]);
- tmp274 = c_re(W[44]);
- tmp276 = c_im(W[44]);
- tmp278 = (tmp274 * tmp275) - (tmp276 * tmp277);
- tmp495 = (tmp276 * tmp275) + (tmp274 * tmp277);
- }
- tmp279 = tmp273 + tmp278;
- tmp501 = tmp273 - tmp278;
- tmp496 = tmp494 - tmp495;
- tmp839 = tmp494 + tmp495;
- }
- {
- fftw_real tmp250;
- fftw_real tmp510;
- fftw_real tmp255;
- fftw_real tmp511;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp247;
- fftw_real tmp249;
- fftw_real tmp246;
- fftw_real tmp248;
- ASSERT_ALIGNED_DOUBLE;
- tmp247 = c_re(inout[21 * iostride]);
- tmp249 = c_im(inout[21 * iostride]);
- tmp246 = c_re(W[20]);
- tmp248 = c_im(W[20]);
- tmp250 = (tmp246 * tmp247) - (tmp248 * tmp249);
- tmp510 = (tmp248 * tmp247) + (tmp246 * tmp249);
- }
- {
- fftw_real tmp252;
- fftw_real tmp254;
- fftw_real tmp251;
- fftw_real tmp253;
- ASSERT_ALIGNED_DOUBLE;
- tmp252 = c_re(inout[53 * iostride]);
- tmp254 = c_im(inout[53 * iostride]);
- tmp251 = c_re(W[52]);
- tmp253 = c_im(W[52]);
- tmp255 = (tmp251 * tmp252) - (tmp253 * tmp254);
- tmp511 = (tmp253 * tmp252) + (tmp251 * tmp254);
- }
- tmp256 = tmp250 + tmp255;
- tmp507 = tmp250 - tmp255;
- tmp512 = tmp510 - tmp511;
- tmp844 = tmp510 + tmp511;
- }
- {
- fftw_real tmp262;
- fftw_real tmp498;
- fftw_real tmp267;
- fftw_real tmp499;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp259;
- fftw_real tmp261;
- fftw_real tmp258;
- fftw_real tmp260;
- ASSERT_ALIGNED_DOUBLE;
- tmp259 = c_re(inout[61 * iostride]);
- tmp261 = c_im(inout[61 * iostride]);
- tmp258 = c_re(W[60]);
- tmp260 = c_im(W[60]);
- tmp262 = (tmp258 * tmp259) - (tmp260 * tmp261);
- tmp498 = (tmp260 * tmp259) + (tmp258 * tmp261);
- }
- {
- fftw_real tmp264;
- fftw_real tmp266;
- fftw_real tmp263;
- fftw_real tmp265;
- ASSERT_ALIGNED_DOUBLE;
- tmp264 = c_re(inout[29 * iostride]);
- tmp266 = c_im(inout[29 * iostride]);
- tmp263 = c_re(W[28]);
- tmp265 = c_im(W[28]);
- tmp267 = (tmp263 * tmp264) - (tmp265 * tmp266);
- tmp499 = (tmp265 * tmp264) + (tmp263 * tmp266);
- }
- tmp268 = tmp262 + tmp267;
- tmp493 = tmp262 - tmp267;
- tmp500 = tmp498 - tmp499;
- tmp838 = tmp498 + tmp499;
- }
- {
- fftw_real tmp257;
- fftw_real tmp280;
- fftw_real tmp837;
- fftw_real tmp840;
- ASSERT_ALIGNED_DOUBLE;
- tmp257 = tmp245 + tmp256;
- tmp280 = tmp268 + tmp279;
- tmp281 = tmp257 + tmp280;
- tmp975 = tmp280 - tmp257;
- tmp837 = tmp268 - tmp279;
- tmp840 = tmp838 - tmp839;
- tmp841 = tmp837 - tmp840;
- tmp855 = tmp837 + tmp840;
- }
- {
- fftw_real tmp978;
- fftw_real tmp979;
- fftw_real tmp842;
- fftw_real tmp845;
- ASSERT_ALIGNED_DOUBLE;
- tmp978 = tmp843 + tmp844;
- tmp979 = tmp838 + tmp839;
- tmp980 = tmp978 - tmp979;
- tmp1022 = tmp978 + tmp979;
- tmp842 = tmp245 - tmp256;
- tmp845 = tmp843 - tmp844;
- tmp846 = tmp842 + tmp845;
- tmp854 = tmp845 - tmp842;
- }
- {
- fftw_real tmp497;
- fftw_real tmp502;
- fftw_real tmp687;
- fftw_real tmp688;
- ASSERT_ALIGNED_DOUBLE;
- tmp497 = tmp493 - tmp496;
- tmp502 = tmp500 + tmp501;
- tmp503 = (K382683432 * tmp497) - (K923879532 * tmp502);
- tmp527 = (K382683432 * tmp502) + (K923879532 * tmp497);
- tmp687 = tmp493 + tmp496;
- tmp688 = tmp500 - tmp501;
- tmp689 = (K923879532 * tmp687) - (K382683432 * tmp688);
- tmp699 = (K923879532 * tmp688) + (K382683432 * tmp687);
- }
- {
- fftw_real tmp508;
- fftw_real tmp513;
- fftw_real tmp690;
- fftw_real tmp691;
- ASSERT_ALIGNED_DOUBLE;
- tmp508 = tmp506 + tmp507;
- tmp513 = tmp509 - tmp512;
- tmp514 = (K923879532 * tmp508) + (K382683432 * tmp513);
- tmp526 = (K382683432 * tmp508) - (K923879532 * tmp513);
- tmp690 = tmp506 - tmp507;
- tmp691 = tmp509 + tmp512;
- tmp692 = (K382683432 * tmp690) + (K923879532 * tmp691);
- tmp698 = (K923879532 * tmp690) - (K382683432 * tmp691);
- }
- }
- {
- fftw_real tmp91;
- fftw_real tmp1015;
- fftw_real tmp1038;
- fftw_real tmp1039;
- fftw_real tmp1049;
- fftw_real tmp1055;
- fftw_real tmp186;
- fftw_real tmp1054;
- fftw_real tmp1024;
- fftw_real tmp1032;
- fftw_real tmp378;
- fftw_real tmp1051;
- fftw_real tmp1029;
- fftw_real tmp1033;
- fftw_real tmp1018;
- fftw_real tmp1040;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp43;
- fftw_real tmp90;
- fftw_real tmp1036;
- fftw_real tmp1037;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = tmp19 + tmp42;
- tmp90 = tmp66 + tmp89;
- tmp91 = tmp43 + tmp90;
- tmp1015 = tmp43 - tmp90;
- tmp1036 = tmp1021 + tmp1022;
- tmp1037 = tmp1026 + tmp1027;
- tmp1038 = tmp1036 - tmp1037;
- tmp1039 = tmp1036 + tmp1037;
- }
- {
- fftw_real tmp1041;
- fftw_real tmp1048;
- fftw_real tmp138;
- fftw_real tmp185;
- ASSERT_ALIGNED_DOUBLE;
- tmp1041 = tmp956 + tmp957;
- tmp1048 = tmp1042 + tmp1047;
- tmp1049 = tmp1041 + tmp1048;
- tmp1055 = tmp1048 - tmp1041;
- tmp138 = tmp114 + tmp137;
- tmp185 = tmp161 + tmp184;
- tmp186 = tmp138 + tmp185;
- tmp1054 = tmp185 - tmp138;
- }
- {
- fftw_real tmp1020;
- fftw_real tmp1023;
- fftw_real tmp282;
- fftw_real tmp377;
- ASSERT_ALIGNED_DOUBLE;
- tmp1020 = tmp234 - tmp281;
- tmp1023 = tmp1021 - tmp1022;
- tmp1024 = tmp1020 + tmp1023;
- tmp1032 = tmp1023 - tmp1020;
- tmp282 = tmp234 + tmp281;
- tmp377 = tmp329 + tmp376;
- tmp378 = tmp282 + tmp377;
- tmp1051 = tmp377 - tmp282;
- }
- {
- fftw_real tmp1025;
- fftw_real tmp1028;
- fftw_real tmp1016;
- fftw_real tmp1017;
- ASSERT_ALIGNED_DOUBLE;
- tmp1025 = tmp329 - tmp376;
- tmp1028 = tmp1026 - tmp1027;
- tmp1029 = tmp1025 - tmp1028;
- tmp1033 = tmp1025 + tmp1028;
- tmp1016 = tmp960 + tmp961;
- tmp1017 = tmp966 + tmp967;
- tmp1018 = tmp1016 - tmp1017;
- tmp1040 = tmp1016 + tmp1017;
- }
- {
- fftw_real tmp187;
- fftw_real tmp1035;
- fftw_real tmp1050;
- fftw_real tmp1052;
- ASSERT_ALIGNED_DOUBLE;
- tmp187 = tmp91 + tmp186;
- c_re(inout[32 * iostride]) = tmp187 - tmp378;
- c_re(inout[0]) = tmp187 + tmp378;
- tmp1035 = tmp91 - tmp186;
- c_re(inout[48 * iostride]) = tmp1035 - tmp1038;
- c_re(inout[16 * iostride]) = tmp1035 + tmp1038;
- {
- fftw_real tmp1019;
- fftw_real tmp1030;
- fftw_real tmp1057;
- fftw_real tmp1058;
- ASSERT_ALIGNED_DOUBLE;
- tmp1019 = tmp1015 + tmp1018;
- tmp1030 = K707106781 * (tmp1024 + tmp1029);
- c_re(inout[40 * iostride]) = tmp1019 - tmp1030;
- c_re(inout[8 * iostride]) = tmp1019 + tmp1030;
- tmp1057 = K707106781 * (tmp1029 - tmp1024);
- tmp1058 = tmp1055 - tmp1054;
- c_im(inout[24 * iostride]) = tmp1057 + tmp1058;
- c_im(inout[56 * iostride]) = tmp1058 - tmp1057;
- }
- tmp1050 = tmp1040 + tmp1049;
- c_im(inout[0]) = tmp1039 + tmp1050;
- c_im(inout[32 * iostride]) = tmp1050 - tmp1039;
- tmp1052 = tmp1049 - tmp1040;
- c_im(inout[16 * iostride]) = tmp1051 + tmp1052;
- c_im(inout[48 * iostride]) = tmp1052 - tmp1051;
- {
- fftw_real tmp1053;
- fftw_real tmp1056;
- fftw_real tmp1031;
- fftw_real tmp1034;
- ASSERT_ALIGNED_DOUBLE;
- tmp1053 = K707106781 * (tmp1032 + tmp1033);
- tmp1056 = tmp1054 + tmp1055;
- c_im(inout[8 * iostride]) = tmp1053 + tmp1056;
- c_im(inout[40 * iostride]) = tmp1056 - tmp1053;
- tmp1031 = tmp1015 - tmp1018;
- tmp1034 = K707106781 * (tmp1032 - tmp1033);
- c_re(inout[56 * iostride]) = tmp1031 - tmp1034;
- c_re(inout[24 * iostride]) = tmp1031 + tmp1034;
- }
- }
- }
- {
- fftw_real tmp959;
- fftw_real tmp999;
- fftw_real tmp1002;
- fftw_real tmp1068;
- fftw_real tmp970;
- fftw_real tmp1060;
- fftw_real tmp1063;
- fftw_real tmp1069;
- fftw_real tmp982;
- fftw_real tmp996;
- fftw_real tmp1006;
- fftw_real tmp1012;
- fftw_real tmp993;
- fftw_real tmp997;
- fftw_real tmp1009;
- fftw_real tmp1013;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp955;
- fftw_real tmp958;
- fftw_real tmp1000;
- fftw_real tmp1001;
- ASSERT_ALIGNED_DOUBLE;
- tmp955 = tmp19 - tmp42;
- tmp958 = tmp956 - tmp957;
- tmp959 = tmp955 - tmp958;
- tmp999 = tmp955 + tmp958;
- tmp1000 = tmp963 + tmp962;
- tmp1001 = tmp965 - tmp968;
- tmp1002 = K707106781 * (tmp1000 + tmp1001);
- tmp1068 = K707106781 * (tmp1001 - tmp1000);
- }
- {
- fftw_real tmp964;
- fftw_real tmp969;
- fftw_real tmp1061;
- fftw_real tmp1062;
- ASSERT_ALIGNED_DOUBLE;
- tmp964 = tmp962 - tmp963;
- tmp969 = tmp965 + tmp968;
- tmp970 = K707106781 * (tmp964 - tmp969);
- tmp1060 = K707106781 * (tmp964 + tmp969);
- tmp1061 = tmp89 - tmp66;
- tmp1062 = tmp1047 - tmp1042;
- tmp1063 = tmp1061 + tmp1062;
- tmp1069 = tmp1062 - tmp1061;
- }
- {
- fftw_real tmp976;
- fftw_real tmp981;
- fftw_real tmp1004;
- fftw_real tmp1005;
- ASSERT_ALIGNED_DOUBLE;
- tmp976 = tmp974 - tmp975;
- tmp981 = tmp977 - tmp980;
- tmp982 = (K923879532 * tmp976) + (K382683432 * tmp981);
- tmp996 = (K382683432 * tmp976) - (K923879532 * tmp981);
- tmp1004 = tmp974 + tmp975;
- tmp1005 = tmp977 + tmp980;
- tmp1006 = (K382683432 * tmp1004) + (K923879532 * tmp1005);
- tmp1012 = (K923879532 * tmp1004) - (K382683432 * tmp1005);
- }
- {
- fftw_real tmp987;
- fftw_real tmp992;
- fftw_real tmp1007;
- fftw_real tmp1008;
- ASSERT_ALIGNED_DOUBLE;
- tmp987 = tmp983 - tmp986;
- tmp992 = tmp990 - tmp991;
- tmp993 = (K382683432 * tmp987) - (K923879532 * tmp992);
- tmp997 = (K382683432 * tmp992) + (K923879532 * tmp987);
- tmp1007 = tmp983 + tmp986;
- tmp1008 = tmp990 + tmp991;
- tmp1009 = (K923879532 * tmp1007) - (K382683432 * tmp1008);
- tmp1013 = (K923879532 * tmp1008) + (K382683432 * tmp1007);
- }
- {
- fftw_real tmp971;
- fftw_real tmp994;
- fftw_real tmp995;
- fftw_real tmp998;
- ASSERT_ALIGNED_DOUBLE;
- tmp971 = tmp959 + tmp970;
- tmp994 = tmp982 + tmp993;
- c_re(inout[44 * iostride]) = tmp971 - tmp994;
- c_re(inout[12 * iostride]) = tmp971 + tmp994;
- tmp995 = tmp959 - tmp970;
- tmp998 = tmp996 - tmp997;
- c_re(inout[60 * iostride]) = tmp995 - tmp998;
- c_re(inout[28 * iostride]) = tmp995 + tmp998;
- }
- {
- fftw_real tmp1067;
- fftw_real tmp1070;
- fftw_real tmp1071;
- fftw_real tmp1072;
- ASSERT_ALIGNED_DOUBLE;
- tmp1067 = tmp996 + tmp997;
- tmp1070 = tmp1068 + tmp1069;
- c_im(inout[12 * iostride]) = tmp1067 + tmp1070;
- c_im(inout[44 * iostride]) = tmp1070 - tmp1067;
- tmp1071 = tmp993 - tmp982;
- tmp1072 = tmp1069 - tmp1068;
- c_im(inout[28 * iostride]) = tmp1071 + tmp1072;
- c_im(inout[60 * iostride]) = tmp1072 - tmp1071;
- }
- {
- fftw_real tmp1003;
- fftw_real tmp1010;
- fftw_real tmp1011;
- fftw_real tmp1014;
- ASSERT_ALIGNED_DOUBLE;
- tmp1003 = tmp999 + tmp1002;
- tmp1010 = tmp1006 + tmp1009;
- c_re(inout[36 * iostride]) = tmp1003 - tmp1010;
- c_re(inout[4 * iostride]) = tmp1003 + tmp1010;
- tmp1011 = tmp999 - tmp1002;
- tmp1014 = tmp1012 - tmp1013;
- c_re(inout[52 * iostride]) = tmp1011 - tmp1014;
- c_re(inout[20 * iostride]) = tmp1011 + tmp1014;
- }
- {
- fftw_real tmp1059;
- fftw_real tmp1064;
- fftw_real tmp1065;
- fftw_real tmp1066;
- ASSERT_ALIGNED_DOUBLE;
- tmp1059 = tmp1012 + tmp1013;
- tmp1064 = tmp1060 + tmp1063;
- c_im(inout[4 * iostride]) = tmp1059 + tmp1064;
- c_im(inout[36 * iostride]) = tmp1064 - tmp1059;
- tmp1065 = tmp1009 - tmp1006;
- tmp1066 = tmp1063 - tmp1060;
- c_im(inout[20 * iostride]) = tmp1065 + tmp1066;
- c_im(inout[52 * iostride]) = tmp1066 - tmp1065;
- }
- }
- {
- fftw_real tmp419;
- fftw_real tmp591;
- fftw_real tmp1155;
- fftw_real tmp1161;
- fftw_real tmp474;
- fftw_real tmp1152;
- fftw_real tmp594;
- fftw_real tmp1160;
- fftw_real tmp530;
- fftw_real tmp588;
- fftw_real tmp598;
- fftw_real tmp604;
- fftw_real tmp585;
- fftw_real tmp589;
- fftw_real tmp601;
- fftw_real tmp605;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp395;
- fftw_real tmp418;
- fftw_real tmp1153;
- fftw_real tmp1154;
- ASSERT_ALIGNED_DOUBLE;
- tmp395 = tmp383 - tmp394;
- tmp418 = tmp406 - tmp417;
- tmp419 = tmp395 - tmp418;
- tmp591 = tmp395 + tmp418;
- tmp1153 = tmp609 - tmp608;
- tmp1154 = tmp1139 - tmp1138;
- tmp1155 = tmp1153 + tmp1154;
- tmp1161 = tmp1154 - tmp1153;
- }
- {
- fftw_real tmp446;
- fftw_real tmp592;
- fftw_real tmp473;
- fftw_real tmp593;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp436;
- fftw_real tmp445;
- fftw_real tmp463;
- fftw_real tmp472;
- ASSERT_ALIGNED_DOUBLE;
- tmp436 = tmp424 - tmp435;
- tmp445 = tmp441 - tmp444;
- tmp446 = (K195090322 * tmp436) - (K980785280 * tmp445);
- tmp592 = (K980785280 * tmp436) + (K195090322 * tmp445);
- tmp463 = tmp451 - tmp462;
- tmp472 = tmp468 - tmp471;
- tmp473 = (K195090322 * tmp463) + (K980785280 * tmp472);
- tmp593 = (K195090322 * tmp472) - (K980785280 * tmp463);
- }
- tmp474 = tmp446 - tmp473;
- tmp1152 = tmp446 + tmp473;
- tmp594 = tmp592 + tmp593;
- tmp1160 = tmp593 - tmp592;
- }
- {
- fftw_real tmp516;
- fftw_real tmp596;
- fftw_real tmp529;
- fftw_real tmp597;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp492;
- fftw_real tmp515;
- fftw_real tmp525;
- fftw_real tmp528;
- ASSERT_ALIGNED_DOUBLE;
- tmp492 = tmp480 - tmp491;
- tmp515 = tmp503 - tmp514;
- tmp516 = tmp492 - tmp515;
- tmp596 = tmp492 + tmp515;
- tmp525 = tmp521 - tmp524;
- tmp528 = tmp526 - tmp527;
- tmp529 = tmp525 - tmp528;
- tmp597 = tmp525 + tmp528;
- }
- tmp530 = (K995184726 * tmp516) + (K098017140 * tmp529);
- tmp588 = (K098017140 * tmp516) - (K995184726 * tmp529);
- tmp598 = (K634393284 * tmp596) + (K773010453 * tmp597);
- tmp604 = (K773010453 * tmp596) - (K634393284 * tmp597);
- }
- {
- fftw_real tmp571;
- fftw_real tmp599;
- fftw_real tmp584;
- fftw_real tmp600;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp547;
- fftw_real tmp570;
- fftw_real tmp580;
- fftw_real tmp583;
- ASSERT_ALIGNED_DOUBLE;
- tmp547 = tmp535 - tmp546;
- tmp570 = tmp558 - tmp569;
- tmp571 = tmp547 - tmp570;
- tmp599 = tmp547 + tmp570;
- tmp580 = tmp576 - tmp579;
- tmp583 = tmp581 - tmp582;
- tmp584 = tmp580 - tmp583;
- tmp600 = tmp580 + tmp583;
- }
- tmp585 = (K098017140 * tmp571) - (K995184726 * tmp584);
- tmp589 = (K098017140 * tmp584) + (K995184726 * tmp571);
- tmp601 = (K773010453 * tmp599) - (K634393284 * tmp600);
- tmp605 = (K773010453 * tmp600) + (K634393284 * tmp599);
- }
- {
- fftw_real tmp475;
- fftw_real tmp586;
- fftw_real tmp587;
- fftw_real tmp590;
- ASSERT_ALIGNED_DOUBLE;
- tmp475 = tmp419 + tmp474;
- tmp586 = tmp530 + tmp585;
- c_re(inout[47 * iostride]) = tmp475 - tmp586;
- c_re(inout[15 * iostride]) = tmp475 + tmp586;
- tmp587 = tmp419 - tmp474;
- tmp590 = tmp588 - tmp589;
- c_re(inout[63 * iostride]) = tmp587 - tmp590;
- c_re(inout[31 * iostride]) = tmp587 + tmp590;
- }
- {
- fftw_real tmp1159;
- fftw_real tmp1162;
- fftw_real tmp1163;
- fftw_real tmp1164;
- ASSERT_ALIGNED_DOUBLE;
- tmp1159 = tmp588 + tmp589;
- tmp1162 = tmp1160 + tmp1161;
- c_im(inout[15 * iostride]) = tmp1159 + tmp1162;
- c_im(inout[47 * iostride]) = tmp1162 - tmp1159;
- tmp1163 = tmp585 - tmp530;
- tmp1164 = tmp1161 - tmp1160;
- c_im(inout[31 * iostride]) = tmp1163 + tmp1164;
- c_im(inout[63 * iostride]) = tmp1164 - tmp1163;
- }
- {
- fftw_real tmp595;
- fftw_real tmp602;
- fftw_real tmp603;
- fftw_real tmp606;
- ASSERT_ALIGNED_DOUBLE;
- tmp595 = tmp591 + tmp594;
- tmp602 = tmp598 + tmp601;
- c_re(inout[39 * iostride]) = tmp595 - tmp602;
- c_re(inout[7 * iostride]) = tmp595 + tmp602;
- tmp603 = tmp591 - tmp594;
- tmp606 = tmp604 - tmp605;
- c_re(inout[55 * iostride]) = tmp603 - tmp606;
- c_re(inout[23 * iostride]) = tmp603 + tmp606;
- }
- {
- fftw_real tmp1151;
- fftw_real tmp1156;
- fftw_real tmp1157;
- fftw_real tmp1158;
- ASSERT_ALIGNED_DOUBLE;
- tmp1151 = tmp604 + tmp605;
- tmp1156 = tmp1152 + tmp1155;
- c_im(inout[7 * iostride]) = tmp1151 + tmp1156;
- c_im(inout[39 * iostride]) = tmp1156 - tmp1151;
- tmp1157 = tmp601 - tmp598;
- tmp1158 = tmp1155 - tmp1152;
- c_im(inout[23 * iostride]) = tmp1157 + tmp1158;
- c_im(inout[55 * iostride]) = tmp1158 - tmp1157;
- }
- }
- {
- fftw_real tmp611;
- fftw_real tmp639;
- fftw_real tmp1141;
- fftw_real tmp1147;
- fftw_real tmp618;
- fftw_real tmp1136;
- fftw_real tmp642;
- fftw_real tmp1146;
- fftw_real tmp626;
- fftw_real tmp636;
- fftw_real tmp646;
- fftw_real tmp652;
- fftw_real tmp633;
- fftw_real tmp637;
- fftw_real tmp649;
- fftw_real tmp653;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp607;
- fftw_real tmp610;
- fftw_real tmp1137;
- fftw_real tmp1140;
- ASSERT_ALIGNED_DOUBLE;
- tmp607 = tmp383 + tmp394;
- tmp610 = tmp608 + tmp609;
- tmp611 = tmp607 - tmp610;
- tmp639 = tmp607 + tmp610;
- tmp1137 = tmp406 + tmp417;
- tmp1140 = tmp1138 + tmp1139;
- tmp1141 = tmp1137 + tmp1140;
- tmp1147 = tmp1140 - tmp1137;
- }
- {
- fftw_real tmp614;
- fftw_real tmp640;
- fftw_real tmp617;
- fftw_real tmp641;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp612;
- fftw_real tmp613;
- fftw_real tmp615;
- fftw_real tmp616;
- ASSERT_ALIGNED_DOUBLE;
- tmp612 = tmp424 + tmp435;
- tmp613 = tmp441 + tmp444;
- tmp614 = (K831469612 * tmp612) - (K555570233 * tmp613);
- tmp640 = (K555570233 * tmp612) + (K831469612 * tmp613);
- tmp615 = tmp451 + tmp462;
- tmp616 = tmp468 + tmp471;
- tmp617 = (K831469612 * tmp615) + (K555570233 * tmp616);
- tmp641 = (K831469612 * tmp616) - (K555570233 * tmp615);
- }
- tmp618 = tmp614 - tmp617;
- tmp1136 = tmp614 + tmp617;
- tmp642 = tmp640 + tmp641;
- tmp1146 = tmp641 - tmp640;
- }
- {
- fftw_real tmp622;
- fftw_real tmp644;
- fftw_real tmp625;
- fftw_real tmp645;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp620;
- fftw_real tmp621;
- fftw_real tmp623;
- fftw_real tmp624;
- ASSERT_ALIGNED_DOUBLE;
- tmp620 = tmp521 + tmp524;
- tmp621 = tmp514 + tmp503;
- tmp622 = tmp620 - tmp621;
- tmp644 = tmp620 + tmp621;
- tmp623 = tmp480 + tmp491;
- tmp624 = tmp526 + tmp527;
- tmp625 = tmp623 - tmp624;
- tmp645 = tmp623 + tmp624;
- }
- tmp626 = (K471396736 * tmp622) + (K881921264 * tmp625);
- tmp636 = (K471396736 * tmp625) - (K881921264 * tmp622);
- tmp646 = (K956940335 * tmp644) + (K290284677 * tmp645);
- tmp652 = (K956940335 * tmp645) - (K290284677 * tmp644);
- }
- {
- fftw_real tmp629;
- fftw_real tmp647;
- fftw_real tmp632;
- fftw_real tmp648;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp627;
- fftw_real tmp628;
- fftw_real tmp630;
- fftw_real tmp631;
- ASSERT_ALIGNED_DOUBLE;
- tmp627 = tmp535 + tmp546;
- tmp628 = tmp582 + tmp581;
- tmp629 = tmp627 - tmp628;
- tmp647 = tmp627 + tmp628;
- tmp630 = tmp576 + tmp579;
- tmp631 = tmp558 + tmp569;
- tmp632 = tmp630 - tmp631;
- tmp648 = tmp630 + tmp631;
- }
- tmp633 = (K471396736 * tmp629) - (K881921264 * tmp632);
- tmp637 = (K881921264 * tmp629) + (K471396736 * tmp632);
- tmp649 = (K956940335 * tmp647) - (K290284677 * tmp648);
- tmp653 = (K290284677 * tmp647) + (K956940335 * tmp648);
- }
- {
- fftw_real tmp619;
- fftw_real tmp634;
- fftw_real tmp635;
- fftw_real tmp638;
- ASSERT_ALIGNED_DOUBLE;
- tmp619 = tmp611 + tmp618;
- tmp634 = tmp626 + tmp633;
- c_re(inout[43 * iostride]) = tmp619 - tmp634;
- c_re(inout[11 * iostride]) = tmp619 + tmp634;
- tmp635 = tmp611 - tmp618;
- tmp638 = tmp636 - tmp637;
- c_re(inout[59 * iostride]) = tmp635 - tmp638;
- c_re(inout[27 * iostride]) = tmp635 + tmp638;
- }
- {
- fftw_real tmp1145;
- fftw_real tmp1148;
- fftw_real tmp1149;
- fftw_real tmp1150;
- ASSERT_ALIGNED_DOUBLE;
- tmp1145 = tmp636 + tmp637;
- tmp1148 = tmp1146 + tmp1147;
- c_im(inout[11 * iostride]) = tmp1145 + tmp1148;
- c_im(inout[43 * iostride]) = tmp1148 - tmp1145;
- tmp1149 = tmp633 - tmp626;
- tmp1150 = tmp1147 - tmp1146;
- c_im(inout[27 * iostride]) = tmp1149 + tmp1150;
- c_im(inout[59 * iostride]) = tmp1150 - tmp1149;
- }
- {
- fftw_real tmp643;
- fftw_real tmp650;
- fftw_real tmp651;
- fftw_real tmp654;
- ASSERT_ALIGNED_DOUBLE;
- tmp643 = tmp639 + tmp642;
- tmp650 = tmp646 + tmp649;
- c_re(inout[35 * iostride]) = tmp643 - tmp650;
- c_re(inout[3 * iostride]) = tmp643 + tmp650;
- tmp651 = tmp639 - tmp642;
- tmp654 = tmp652 - tmp653;
- c_re(inout[51 * iostride]) = tmp651 - tmp654;
- c_re(inout[19 * iostride]) = tmp651 + tmp654;
- }
- {
- fftw_real tmp1135;
- fftw_real tmp1142;
- fftw_real tmp1143;
- fftw_real tmp1144;
- ASSERT_ALIGNED_DOUBLE;
- tmp1135 = tmp652 + tmp653;
- tmp1142 = tmp1136 + tmp1141;
- c_im(inout[3 * iostride]) = tmp1135 + tmp1142;
- c_im(inout[35 * iostride]) = tmp1142 - tmp1135;
- tmp1143 = tmp649 - tmp646;
- tmp1144 = tmp1141 - tmp1136;
- c_im(inout[19 * iostride]) = tmp1143 + tmp1144;
- c_im(inout[51 * iostride]) = tmp1144 - tmp1143;
- }
- }
- {
- fftw_real tmp807;
- fftw_real tmp891;
- fftw_real tmp830;
- fftw_real tmp1090;
- fftw_real tmp1093;
- fftw_real tmp1099;
- fftw_real tmp894;
- fftw_real tmp1098;
- fftw_real tmp885;
- fftw_real tmp889;
- fftw_real tmp901;
- fftw_real tmp905;
- fftw_real tmp858;
- fftw_real tmp888;
- fftw_real tmp898;
- fftw_real tmp904;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp795;
- fftw_real tmp806;
- fftw_real tmp892;
- fftw_real tmp893;
- ASSERT_ALIGNED_DOUBLE;
- tmp795 = tmp791 - tmp794;
- tmp806 = K707106781 * (tmp800 - tmp805);
- tmp807 = tmp795 - tmp806;
- tmp891 = tmp795 + tmp806;
- {
- fftw_real tmp818;
- fftw_real tmp829;
- fftw_real tmp1091;
- fftw_real tmp1092;
- ASSERT_ALIGNED_DOUBLE;
- tmp818 = (K382683432 * tmp812) - (K923879532 * tmp817);
- tmp829 = (K382683432 * tmp823) + (K923879532 * tmp828);
- tmp830 = tmp818 - tmp829;
- tmp1090 = tmp818 + tmp829;
- tmp1091 = K707106781 * (tmp909 - tmp908);
- tmp1092 = tmp1077 - tmp1076;
- tmp1093 = tmp1091 + tmp1092;
- tmp1099 = tmp1092 - tmp1091;
- }
- tmp892 = (K923879532 * tmp812) + (K382683432 * tmp817);
- tmp893 = (K382683432 * tmp828) - (K923879532 * tmp823);
- tmp894 = tmp892 + tmp893;
- tmp1098 = tmp893 - tmp892;
- {
- fftw_real tmp875;
- fftw_real tmp899;
- fftw_real tmp884;
- fftw_real tmp900;
- fftw_real tmp874;
- fftw_real tmp883;
- ASSERT_ALIGNED_DOUBLE;
- tmp874 = K707106781 * (tmp868 - tmp873);
- tmp875 = tmp863 - tmp874;
- tmp899 = tmp863 + tmp874;
- tmp883 = K707106781 * (tmp881 - tmp882);
- tmp884 = tmp880 - tmp883;
- tmp900 = tmp880 + tmp883;
- tmp885 = (K195090322 * tmp875) - (K980785280 * tmp884);
- tmp889 = (K195090322 * tmp884) + (K980785280 * tmp875);
- tmp901 = (K831469612 * tmp899) - (K555570233 * tmp900);
- tmp905 = (K831469612 * tmp900) + (K555570233 * tmp899);
- }
- {
- fftw_real tmp848;
- fftw_real tmp896;
- fftw_real tmp857;
- fftw_real tmp897;
- fftw_real tmp847;
- fftw_real tmp856;
- ASSERT_ALIGNED_DOUBLE;
- tmp847 = K707106781 * (tmp841 - tmp846);
- tmp848 = tmp836 - tmp847;
- tmp896 = tmp836 + tmp847;
- tmp856 = K707106781 * (tmp854 - tmp855);
- tmp857 = tmp853 - tmp856;
- tmp897 = tmp853 + tmp856;
- tmp858 = (K980785280 * tmp848) + (K195090322 * tmp857);
- tmp888 = (K195090322 * tmp848) - (K980785280 * tmp857);
- tmp898 = (K555570233 * tmp896) + (K831469612 * tmp897);
- tmp904 = (K831469612 * tmp896) - (K555570233 * tmp897);
- }
- }
- {
- fftw_real tmp831;
- fftw_real tmp886;
- fftw_real tmp887;
- fftw_real tmp890;
- ASSERT_ALIGNED_DOUBLE;
- tmp831 = tmp807 + tmp830;
- tmp886 = tmp858 + tmp885;
- c_re(inout[46 * iostride]) = tmp831 - tmp886;
- c_re(inout[14 * iostride]) = tmp831 + tmp886;
- tmp887 = tmp807 - tmp830;
- tmp890 = tmp888 - tmp889;
- c_re(inout[62 * iostride]) = tmp887 - tmp890;
- c_re(inout[30 * iostride]) = tmp887 + tmp890;
- }
- {
- fftw_real tmp1097;
- fftw_real tmp1100;
- fftw_real tmp1101;
- fftw_real tmp1102;
- ASSERT_ALIGNED_DOUBLE;
- tmp1097 = tmp888 + tmp889;
- tmp1100 = tmp1098 + tmp1099;
- c_im(inout[14 * iostride]) = tmp1097 + tmp1100;
- c_im(inout[46 * iostride]) = tmp1100 - tmp1097;
- tmp1101 = tmp885 - tmp858;
- tmp1102 = tmp1099 - tmp1098;
- c_im(inout[30 * iostride]) = tmp1101 + tmp1102;
- c_im(inout[62 * iostride]) = tmp1102 - tmp1101;
- }
- {
- fftw_real tmp895;
- fftw_real tmp902;
- fftw_real tmp903;
- fftw_real tmp906;
- ASSERT_ALIGNED_DOUBLE;
- tmp895 = tmp891 + tmp894;
- tmp902 = tmp898 + tmp901;
- c_re(inout[38 * iostride]) = tmp895 - tmp902;
- c_re(inout[6 * iostride]) = tmp895 + tmp902;
- tmp903 = tmp891 - tmp894;
- tmp906 = tmp904 - tmp905;
- c_re(inout[54 * iostride]) = tmp903 - tmp906;
- c_re(inout[22 * iostride]) = tmp903 + tmp906;
- }
- {
- fftw_real tmp1089;
- fftw_real tmp1094;
- fftw_real tmp1095;
- fftw_real tmp1096;
- ASSERT_ALIGNED_DOUBLE;
- tmp1089 = tmp904 + tmp905;
- tmp1094 = tmp1090 + tmp1093;
- c_im(inout[6 * iostride]) = tmp1089 + tmp1094;
- c_im(inout[38 * iostride]) = tmp1094 - tmp1089;
- tmp1095 = tmp901 - tmp898;
- tmp1096 = tmp1093 - tmp1090;
- c_im(inout[22 * iostride]) = tmp1095 + tmp1096;
- c_im(inout[54 * iostride]) = tmp1096 - tmp1095;
- }
- }
- {
- fftw_real tmp911;
- fftw_real tmp939;
- fftw_real tmp918;
- fftw_real tmp1074;
- fftw_real tmp1079;
- fftw_real tmp1085;
- fftw_real tmp942;
- fftw_real tmp1084;
- fftw_real tmp933;
- fftw_real tmp937;
- fftw_real tmp949;
- fftw_real tmp953;
- fftw_real tmp926;
- fftw_real tmp936;
- fftw_real tmp946;
- fftw_real tmp952;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp907;
- fftw_real tmp910;
- fftw_real tmp940;
- fftw_real tmp941;
- ASSERT_ALIGNED_DOUBLE;
- tmp907 = tmp791 + tmp794;
- tmp910 = K707106781 * (tmp908 + tmp909);
- tmp911 = tmp907 - tmp910;
- tmp939 = tmp907 + tmp910;
- {
- fftw_real tmp914;
- fftw_real tmp917;
- fftw_real tmp1075;
- fftw_real tmp1078;
- ASSERT_ALIGNED_DOUBLE;
- tmp914 = (K923879532 * tmp912) - (K382683432 * tmp913);
- tmp917 = (K923879532 * tmp915) + (K382683432 * tmp916);
- tmp918 = tmp914 - tmp917;
- tmp1074 = tmp914 + tmp917;
- tmp1075 = K707106781 * (tmp800 + tmp805);
- tmp1078 = tmp1076 + tmp1077;
- tmp1079 = tmp1075 + tmp1078;
- tmp1085 = tmp1078 - tmp1075;
- }
- tmp940 = (K382683432 * tmp912) + (K923879532 * tmp913);
- tmp941 = (K923879532 * tmp916) - (K382683432 * tmp915);
- tmp942 = tmp940 + tmp941;
- tmp1084 = tmp941 - tmp940;
- {
- fftw_real tmp929;
- fftw_real tmp947;
- fftw_real tmp932;
- fftw_real tmp948;
- fftw_real tmp928;
- fftw_real tmp931;
- ASSERT_ALIGNED_DOUBLE;
- tmp928 = K707106781 * (tmp882 + tmp881);
- tmp929 = tmp927 - tmp928;
- tmp947 = tmp927 + tmp928;
- tmp931 = K707106781 * (tmp868 + tmp873);
- tmp932 = tmp930 - tmp931;
- tmp948 = tmp930 + tmp931;
- tmp933 = (K555570233 * tmp929) - (K831469612 * tmp932);
- tmp937 = (K831469612 * tmp929) + (K555570233 * tmp932);
- tmp949 = (K980785280 * tmp947) - (K195090322 * tmp948);
- tmp953 = (K195090322 * tmp947) + (K980785280 * tmp948);
- }
- {
- fftw_real tmp922;
- fftw_real tmp944;
- fftw_real tmp925;
- fftw_real tmp945;
- fftw_real tmp921;
- fftw_real tmp924;
- ASSERT_ALIGNED_DOUBLE;
- tmp921 = K707106781 * (tmp846 + tmp841);
- tmp922 = tmp920 - tmp921;
- tmp944 = tmp920 + tmp921;
- tmp924 = K707106781 * (tmp854 + tmp855);
- tmp925 = tmp923 - tmp924;
- tmp945 = tmp923 + tmp924;
- tmp926 = (K555570233 * tmp922) + (K831469612 * tmp925);
- tmp936 = (K555570233 * tmp925) - (K831469612 * tmp922);
- tmp946 = (K980785280 * tmp944) + (K195090322 * tmp945);
- tmp952 = (K980785280 * tmp945) - (K195090322 * tmp944);
- }
- }
- {
- fftw_real tmp919;
- fftw_real tmp934;
- fftw_real tmp935;
- fftw_real tmp938;
- ASSERT_ALIGNED_DOUBLE;
- tmp919 = tmp911 + tmp918;
- tmp934 = tmp926 + tmp933;
- c_re(inout[42 * iostride]) = tmp919 - tmp934;
- c_re(inout[10 * iostride]) = tmp919 + tmp934;
- tmp935 = tmp911 - tmp918;
- tmp938 = tmp936 - tmp937;
- c_re(inout[58 * iostride]) = tmp935 - tmp938;
- c_re(inout[26 * iostride]) = tmp935 + tmp938;
- }
- {
- fftw_real tmp1083;
- fftw_real tmp1086;
- fftw_real tmp1087;
- fftw_real tmp1088;
- ASSERT_ALIGNED_DOUBLE;
- tmp1083 = tmp936 + tmp937;
- tmp1086 = tmp1084 + tmp1085;
- c_im(inout[10 * iostride]) = tmp1083 + tmp1086;
- c_im(inout[42 * iostride]) = tmp1086 - tmp1083;
- tmp1087 = tmp933 - tmp926;
- tmp1088 = tmp1085 - tmp1084;
- c_im(inout[26 * iostride]) = tmp1087 + tmp1088;
- c_im(inout[58 * iostride]) = tmp1088 - tmp1087;
- }
- {
- fftw_real tmp943;
- fftw_real tmp950;
- fftw_real tmp951;
- fftw_real tmp954;
- ASSERT_ALIGNED_DOUBLE;
- tmp943 = tmp939 + tmp942;
- tmp950 = tmp946 + tmp949;
- c_re(inout[34 * iostride]) = tmp943 - tmp950;
- c_re(inout[2 * iostride]) = tmp943 + tmp950;
- tmp951 = tmp939 - tmp942;
- tmp954 = tmp952 - tmp953;
- c_re(inout[50 * iostride]) = tmp951 - tmp954;
- c_re(inout[18 * iostride]) = tmp951 + tmp954;
- }
- {
- fftw_real tmp1073;
- fftw_real tmp1080;
- fftw_real tmp1081;
- fftw_real tmp1082;
- ASSERT_ALIGNED_DOUBLE;
- tmp1073 = tmp952 + tmp953;
- tmp1080 = tmp1074 + tmp1079;
- c_im(inout[2 * iostride]) = tmp1073 + tmp1080;
- c_im(inout[34 * iostride]) = tmp1080 - tmp1073;
- tmp1081 = tmp949 - tmp946;
- tmp1082 = tmp1079 - tmp1074;
- c_im(inout[18 * iostride]) = tmp1081 + tmp1082;
- c_im(inout[50 * iostride]) = tmp1082 - tmp1081;
- }
- }
- {
- fftw_real tmp667;
- fftw_real tmp727;
- fftw_real tmp1125;
- fftw_real tmp1131;
- fftw_real tmp682;
- fftw_real tmp1122;
- fftw_real tmp730;
- fftw_real tmp1130;
- fftw_real tmp702;
- fftw_real tmp724;
- fftw_real tmp734;
- fftw_real tmp740;
- fftw_real tmp721;
- fftw_real tmp725;
- fftw_real tmp737;
- fftw_real tmp741;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp659;
- fftw_real tmp666;
- fftw_real tmp1123;
- fftw_real tmp1124;
- ASSERT_ALIGNED_DOUBLE;
- tmp659 = tmp655 - tmp658;
- tmp666 = tmp662 - tmp665;
- tmp667 = tmp659 - tmp666;
- tmp727 = tmp659 + tmp666;
- tmp1123 = tmp745 - tmp744;
- tmp1124 = tmp1109 - tmp1106;
- tmp1125 = tmp1123 + tmp1124;
- tmp1131 = tmp1124 - tmp1123;
- }
- {
- fftw_real tmp674;
- fftw_real tmp728;
- fftw_real tmp681;
- fftw_real tmp729;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp670;
- fftw_real tmp673;
- fftw_real tmp677;
- fftw_real tmp680;
- ASSERT_ALIGNED_DOUBLE;
- tmp670 = tmp668 - tmp669;
- tmp673 = tmp671 - tmp672;
- tmp674 = (K555570233 * tmp670) - (K831469612 * tmp673);
- tmp728 = (K555570233 * tmp673) + (K831469612 * tmp670);
- tmp677 = tmp675 - tmp676;
- tmp680 = tmp678 - tmp679;
- tmp681 = (K831469612 * tmp677) + (K555570233 * tmp680);
- tmp729 = (K555570233 * tmp677) - (K831469612 * tmp680);
- }
- tmp682 = tmp674 - tmp681;
- tmp1122 = tmp674 + tmp681;
- tmp730 = tmp728 + tmp729;
- tmp1130 = tmp729 - tmp728;
- }
- {
- fftw_real tmp694;
- fftw_real tmp732;
- fftw_real tmp701;
- fftw_real tmp733;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp686;
- fftw_real tmp693;
- fftw_real tmp697;
- fftw_real tmp700;
- ASSERT_ALIGNED_DOUBLE;
- tmp686 = tmp684 - tmp685;
- tmp693 = tmp689 - tmp692;
- tmp694 = tmp686 - tmp693;
- tmp732 = tmp686 + tmp693;
- tmp697 = tmp695 - tmp696;
- tmp700 = tmp698 - tmp699;
- tmp701 = tmp697 - tmp700;
- tmp733 = tmp697 + tmp700;
- }
- tmp702 = (K956940335 * tmp694) + (K290284677 * tmp701);
- tmp724 = (K290284677 * tmp694) - (K956940335 * tmp701);
- tmp734 = (K471396736 * tmp732) + (K881921264 * tmp733);
- tmp740 = (K881921264 * tmp732) - (K471396736 * tmp733);
- }
- {
- fftw_real tmp713;
- fftw_real tmp735;
- fftw_real tmp720;
- fftw_real tmp736;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp705;
- fftw_real tmp712;
- fftw_real tmp716;
- fftw_real tmp719;
- ASSERT_ALIGNED_DOUBLE;
- tmp705 = tmp703 - tmp704;
- tmp712 = tmp708 - tmp711;
- tmp713 = tmp705 - tmp712;
- tmp735 = tmp705 + tmp712;
- tmp716 = tmp714 - tmp715;
- tmp719 = tmp717 - tmp718;
- tmp720 = tmp716 - tmp719;
- tmp736 = tmp716 + tmp719;
- }
- tmp721 = (K290284677 * tmp713) - (K956940335 * tmp720);
- tmp725 = (K290284677 * tmp720) + (K956940335 * tmp713);
- tmp737 = (K881921264 * tmp735) - (K471396736 * tmp736);
- tmp741 = (K881921264 * tmp736) + (K471396736 * tmp735);
- }
- {
- fftw_real tmp683;
- fftw_real tmp722;
- fftw_real tmp723;
- fftw_real tmp726;
- ASSERT_ALIGNED_DOUBLE;
- tmp683 = tmp667 + tmp682;
- tmp722 = tmp702 + tmp721;
- c_re(inout[45 * iostride]) = tmp683 - tmp722;
- c_re(inout[13 * iostride]) = tmp683 + tmp722;
- tmp723 = tmp667 - tmp682;
- tmp726 = tmp724 - tmp725;
- c_re(inout[61 * iostride]) = tmp723 - tmp726;
- c_re(inout[29 * iostride]) = tmp723 + tmp726;
- }
- {
- fftw_real tmp1129;
- fftw_real tmp1132;
- fftw_real tmp1133;
- fftw_real tmp1134;
- ASSERT_ALIGNED_DOUBLE;
- tmp1129 = tmp724 + tmp725;
- tmp1132 = tmp1130 + tmp1131;
- c_im(inout[13 * iostride]) = tmp1129 + tmp1132;
- c_im(inout[45 * iostride]) = tmp1132 - tmp1129;
- tmp1133 = tmp721 - tmp702;
- tmp1134 = tmp1131 - tmp1130;
- c_im(inout[29 * iostride]) = tmp1133 + tmp1134;
- c_im(inout[61 * iostride]) = tmp1134 - tmp1133;
- }
- {
- fftw_real tmp731;
- fftw_real tmp738;
- fftw_real tmp739;
- fftw_real tmp742;
- ASSERT_ALIGNED_DOUBLE;
- tmp731 = tmp727 + tmp730;
- tmp738 = tmp734 + tmp737;
- c_re(inout[37 * iostride]) = tmp731 - tmp738;
- c_re(inout[5 * iostride]) = tmp731 + tmp738;
- tmp739 = tmp727 - tmp730;
- tmp742 = tmp740 - tmp741;
- c_re(inout[53 * iostride]) = tmp739 - tmp742;
- c_re(inout[21 * iostride]) = tmp739 + tmp742;
- }
- {
- fftw_real tmp1121;
- fftw_real tmp1126;
- fftw_real tmp1127;
- fftw_real tmp1128;
- ASSERT_ALIGNED_DOUBLE;
- tmp1121 = tmp740 + tmp741;
- tmp1126 = tmp1122 + tmp1125;
- c_im(inout[5 * iostride]) = tmp1121 + tmp1126;
- c_im(inout[37 * iostride]) = tmp1126 - tmp1121;
- tmp1127 = tmp737 - tmp734;
- tmp1128 = tmp1125 - tmp1122;
- c_im(inout[21 * iostride]) = tmp1127 + tmp1128;
- c_im(inout[53 * iostride]) = tmp1128 - tmp1127;
- }
- }
- {
- fftw_real tmp747;
- fftw_real tmp775;
- fftw_real tmp1111;
- fftw_real tmp1117;
- fftw_real tmp754;
- fftw_real tmp1104;
- fftw_real tmp778;
- fftw_real tmp1116;
- fftw_real tmp762;
- fftw_real tmp772;
- fftw_real tmp782;
- fftw_real tmp788;
- fftw_real tmp769;
- fftw_real tmp773;
- fftw_real tmp785;
- fftw_real tmp789;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp743;
- fftw_real tmp746;
- fftw_real tmp1105;
- fftw_real tmp1110;
- ASSERT_ALIGNED_DOUBLE;
- tmp743 = tmp655 + tmp658;
- tmp746 = tmp744 + tmp745;
- tmp747 = tmp743 - tmp746;
- tmp775 = tmp743 + tmp746;
- tmp1105 = tmp662 + tmp665;
- tmp1110 = tmp1106 + tmp1109;
- tmp1111 = tmp1105 + tmp1110;
- tmp1117 = tmp1110 - tmp1105;
- }
- {
- fftw_real tmp750;
- fftw_real tmp776;
- fftw_real tmp753;
- fftw_real tmp777;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp748;
- fftw_real tmp749;
- fftw_real tmp751;
- fftw_real tmp752;
- ASSERT_ALIGNED_DOUBLE;
- tmp748 = tmp668 + tmp669;
- tmp749 = tmp671 + tmp672;
- tmp750 = (K980785280 * tmp748) - (K195090322 * tmp749);
- tmp776 = (K980785280 * tmp749) + (K195090322 * tmp748);
- tmp751 = tmp675 + tmp676;
- tmp752 = tmp678 + tmp679;
- tmp753 = (K195090322 * tmp751) + (K980785280 * tmp752);
- tmp777 = (K980785280 * tmp751) - (K195090322 * tmp752);
- }
- tmp754 = tmp750 - tmp753;
- tmp1104 = tmp750 + tmp753;
- tmp778 = tmp776 + tmp777;
- tmp1116 = tmp777 - tmp776;
- }
- {
- fftw_real tmp758;
- fftw_real tmp780;
- fftw_real tmp761;
- fftw_real tmp781;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp756;
- fftw_real tmp757;
- fftw_real tmp759;
- fftw_real tmp760;
- ASSERT_ALIGNED_DOUBLE;
- tmp756 = tmp695 + tmp696;
- tmp757 = tmp692 + tmp689;
- tmp758 = tmp756 - tmp757;
- tmp780 = tmp756 + tmp757;
- tmp759 = tmp684 + tmp685;
- tmp760 = tmp698 + tmp699;
- tmp761 = tmp759 - tmp760;
- tmp781 = tmp759 + tmp760;
- }
- tmp762 = (K634393284 * tmp758) + (K773010453 * tmp761);
- tmp772 = (K634393284 * tmp761) - (K773010453 * tmp758);
- tmp782 = (K995184726 * tmp780) + (K098017140 * tmp781);
- tmp788 = (K995184726 * tmp781) - (K098017140 * tmp780);
- }
- {
- fftw_real tmp765;
- fftw_real tmp783;
- fftw_real tmp768;
- fftw_real tmp784;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp763;
- fftw_real tmp764;
- fftw_real tmp766;
- fftw_real tmp767;
- ASSERT_ALIGNED_DOUBLE;
- tmp763 = tmp703 + tmp704;
- tmp764 = tmp718 + tmp717;
- tmp765 = tmp763 - tmp764;
- tmp783 = tmp763 + tmp764;
- tmp766 = tmp714 + tmp715;
- tmp767 = tmp708 + tmp711;
- tmp768 = tmp766 - tmp767;
- tmp784 = tmp766 + tmp767;
- }
- tmp769 = (K634393284 * tmp765) - (K773010453 * tmp768);
- tmp773 = (K773010453 * tmp765) + (K634393284 * tmp768);
- tmp785 = (K995184726 * tmp783) - (K098017140 * tmp784);
- tmp789 = (K098017140 * tmp783) + (K995184726 * tmp784);
- }
- {
- fftw_real tmp755;
- fftw_real tmp770;
- fftw_real tmp771;
- fftw_real tmp774;
- ASSERT_ALIGNED_DOUBLE;
- tmp755 = tmp747 + tmp754;
- tmp770 = tmp762 + tmp769;
- c_re(inout[41 * iostride]) = tmp755 - tmp770;
- c_re(inout[9 * iostride]) = tmp755 + tmp770;
- tmp771 = tmp747 - tmp754;
- tmp774 = tmp772 - tmp773;
- c_re(inout[57 * iostride]) = tmp771 - tmp774;
- c_re(inout[25 * iostride]) = tmp771 + tmp774;
- }
- {
- fftw_real tmp1115;
- fftw_real tmp1118;
- fftw_real tmp1119;
- fftw_real tmp1120;
- ASSERT_ALIGNED_DOUBLE;
- tmp1115 = tmp772 + tmp773;
- tmp1118 = tmp1116 + tmp1117;
- c_im(inout[9 * iostride]) = tmp1115 + tmp1118;
- c_im(inout[41 * iostride]) = tmp1118 - tmp1115;
- tmp1119 = tmp769 - tmp762;
- tmp1120 = tmp1117 - tmp1116;
- c_im(inout[25 * iostride]) = tmp1119 + tmp1120;
- c_im(inout[57 * iostride]) = tmp1120 - tmp1119;
- }
- {
- fftw_real tmp779;
- fftw_real tmp786;
- fftw_real tmp787;
- fftw_real tmp790;
- ASSERT_ALIGNED_DOUBLE;
- tmp779 = tmp775 + tmp778;
- tmp786 = tmp782 + tmp785;
- c_re(inout[33 * iostride]) = tmp779 - tmp786;
- c_re(inout[iostride]) = tmp779 + tmp786;
- tmp787 = tmp775 - tmp778;
- tmp790 = tmp788 - tmp789;
- c_re(inout[49 * iostride]) = tmp787 - tmp790;
- c_re(inout[17 * iostride]) = tmp787 + tmp790;
- }
- {
- fftw_real tmp1103;
- fftw_real tmp1112;
- fftw_real tmp1113;
- fftw_real tmp1114;
- ASSERT_ALIGNED_DOUBLE;
- tmp1103 = tmp788 + tmp789;
- tmp1112 = tmp1104 + tmp1111;
- c_im(inout[iostride]) = tmp1103 + tmp1112;
- c_im(inout[33 * iostride]) = tmp1112 - tmp1103;
- tmp1113 = tmp785 - tmp782;
- tmp1114 = tmp1111 - tmp1104;
- c_im(inout[17 * iostride]) = tmp1113 + tmp1114;
- c_im(inout[49 * iostride]) = tmp1114 - tmp1113;
- }
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63};
-fftw_codelet_desc fftw_twiddle_64_desc =
-{
- "fftw_twiddle_64",
- (void (*)()) fftw_twiddle_64,
- 64,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 1408,
- 63,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftw_7.c b/src/sndobj/rfftw/ftw_7.c
deleted file mode 100644
index 58c1f9b..0000000
--- a/src/sndobj/rfftw/ftw_7.c
+++ /dev/null
@@ -1,243 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:33 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 7 */
-
-/*
- * This function contains 72 FP additions, 60 FP multiplications,
- * (or, 60 additions, 48 multiplications, 12 fused multiply/add),
- * 24 stack variables, and 28 memory accesses
- */
-static const fftw_real K222520933 = FFTW_KONST(+0.222520933956314404288902564496794759466355569);
-static const fftw_real K900968867 = FFTW_KONST(+0.900968867902419126236102319507445051165919162);
-static const fftw_real K623489801 = FFTW_KONST(+0.623489801858733530525004884004239810632274731);
-static const fftw_real K433883739 = FFTW_KONST(+0.433883739117558120475768332848358754609990728);
-static const fftw_real K974927912 = FFTW_KONST(+0.974927912181823607018131682993931217232785801);
-static const fftw_real K781831482 = FFTW_KONST(+0.781831482468029808708444526674057750232334519);
-
-/*
- * Generator Id's :
- * $Id: ftw_7.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: ftw_7.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: ftw_7.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- */
-
-void fftw_twiddle_7(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 6) {
- fftw_real tmp1;
- fftw_real tmp53;
- fftw_real tmp12;
- fftw_real tmp54;
- fftw_real tmp38;
- fftw_real tmp50;
- fftw_real tmp23;
- fftw_real tmp55;
- fftw_real tmp44;
- fftw_real tmp51;
- fftw_real tmp34;
- fftw_real tmp56;
- fftw_real tmp41;
- fftw_real tmp52;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp53 = c_im(inout[0]);
- {
- fftw_real tmp6;
- fftw_real tmp36;
- fftw_real tmp11;
- fftw_real tmp37;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[iostride]);
- tmp5 = c_im(inout[iostride]);
- tmp2 = c_re(W[0]);
- tmp4 = c_im(W[0]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp36 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- {
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp7;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(inout[6 * iostride]);
- tmp10 = c_im(inout[6 * iostride]);
- tmp7 = c_re(W[5]);
- tmp9 = c_im(W[5]);
- tmp11 = (tmp7 * tmp8) - (tmp9 * tmp10);
- tmp37 = (tmp9 * tmp8) + (tmp7 * tmp10);
- }
- tmp12 = tmp6 + tmp11;
- tmp54 = tmp11 - tmp6;
- tmp38 = tmp36 - tmp37;
- tmp50 = tmp36 + tmp37;
- }
- {
- fftw_real tmp17;
- fftw_real tmp42;
- fftw_real tmp22;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[2 * iostride]);
- tmp16 = c_im(inout[2 * iostride]);
- tmp13 = c_re(W[1]);
- tmp15 = c_im(W[1]);
- tmp17 = (tmp13 * tmp14) - (tmp15 * tmp16);
- tmp42 = (tmp15 * tmp14) + (tmp13 * tmp16);
- }
- {
- fftw_real tmp19;
- fftw_real tmp21;
- fftw_real tmp18;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = c_re(inout[5 * iostride]);
- tmp21 = c_im(inout[5 * iostride]);
- tmp18 = c_re(W[4]);
- tmp20 = c_im(W[4]);
- tmp22 = (tmp18 * tmp19) - (tmp20 * tmp21);
- tmp43 = (tmp20 * tmp19) + (tmp18 * tmp21);
- }
- tmp23 = tmp17 + tmp22;
- tmp55 = tmp22 - tmp17;
- tmp44 = tmp42 - tmp43;
- tmp51 = tmp42 + tmp43;
- }
- {
- fftw_real tmp28;
- fftw_real tmp39;
- fftw_real tmp33;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp25;
- fftw_real tmp27;
- fftw_real tmp24;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = c_re(inout[3 * iostride]);
- tmp27 = c_im(inout[3 * iostride]);
- tmp24 = c_re(W[2]);
- tmp26 = c_im(W[2]);
- tmp28 = (tmp24 * tmp25) - (tmp26 * tmp27);
- tmp39 = (tmp26 * tmp25) + (tmp24 * tmp27);
- }
- {
- fftw_real tmp30;
- fftw_real tmp32;
- fftw_real tmp29;
- fftw_real tmp31;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = c_re(inout[4 * iostride]);
- tmp32 = c_im(inout[4 * iostride]);
- tmp29 = c_re(W[3]);
- tmp31 = c_im(W[3]);
- tmp33 = (tmp29 * tmp30) - (tmp31 * tmp32);
- tmp40 = (tmp31 * tmp30) + (tmp29 * tmp32);
- }
- tmp34 = tmp28 + tmp33;
- tmp56 = tmp33 - tmp28;
- tmp41 = tmp39 - tmp40;
- tmp52 = tmp39 + tmp40;
- }
- {
- fftw_real tmp47;
- fftw_real tmp46;
- fftw_real tmp59;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- c_re(inout[0]) = tmp1 + tmp12 + tmp23 + tmp34;
- tmp47 = (K781831482 * tmp38) + (K974927912 * tmp44) + (K433883739 * tmp41);
- tmp46 = tmp1 + (K623489801 * tmp12) - (K900968867 * tmp34) - (K222520933 * tmp23);
- c_re(inout[6 * iostride]) = tmp46 - tmp47;
- c_re(inout[iostride]) = tmp46 + tmp47;
- {
- fftw_real tmp49;
- fftw_real tmp48;
- fftw_real tmp45;
- fftw_real tmp35;
- ASSERT_ALIGNED_DOUBLE;
- tmp49 = (K433883739 * tmp38) + (K974927912 * tmp41) - (K781831482 * tmp44);
- tmp48 = tmp1 + (K623489801 * tmp23) - (K222520933 * tmp34) - (K900968867 * tmp12);
- c_re(inout[4 * iostride]) = tmp48 - tmp49;
- c_re(inout[3 * iostride]) = tmp48 + tmp49;
- tmp45 = (K974927912 * tmp38) - (K781831482 * tmp41) - (K433883739 * tmp44);
- tmp35 = tmp1 + (K623489801 * tmp34) - (K900968867 * tmp23) - (K222520933 * tmp12);
- c_re(inout[5 * iostride]) = tmp35 - tmp45;
- c_re(inout[2 * iostride]) = tmp35 + tmp45;
- }
- c_im(inout[0]) = tmp50 + tmp51 + tmp52 + tmp53;
- tmp59 = (K974927912 * tmp54) - (K781831482 * tmp56) - (K433883739 * tmp55);
- tmp60 = (K623489801 * tmp52) + tmp53 - (K900968867 * tmp51) - (K222520933 * tmp50);
- c_im(inout[2 * iostride]) = tmp59 + tmp60;
- c_im(inout[5 * iostride]) = tmp60 - tmp59;
- {
- fftw_real tmp61;
- fftw_real tmp62;
- fftw_real tmp57;
- fftw_real tmp58;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = (K433883739 * tmp54) + (K974927912 * tmp56) - (K781831482 * tmp55);
- tmp62 = (K623489801 * tmp51) + tmp53 - (K222520933 * tmp52) - (K900968867 * tmp50);
- c_im(inout[3 * iostride]) = tmp61 + tmp62;
- c_im(inout[4 * iostride]) = tmp62 - tmp61;
- tmp57 = (K781831482 * tmp54) + (K974927912 * tmp55) + (K433883739 * tmp56);
- tmp58 = (K623489801 * tmp50) + tmp53 - (K900968867 * tmp52) - (K222520933 * tmp51);
- c_im(inout[iostride]) = tmp57 + tmp58;
- c_im(inout[6 * iostride]) = tmp58 - tmp57;
- }
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6};
-fftw_codelet_desc fftw_twiddle_7_desc =
-{
- "fftw_twiddle_7",
- (void (*)()) fftw_twiddle_7,
- 7,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 154,
- 6,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftw_8.c b/src/sndobj/rfftw/ftw_8.c
deleted file mode 100644
index a25651d..0000000
--- a/src/sndobj/rfftw/ftw_8.c
+++ /dev/null
@@ -1,285 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:34 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 8 */
-
-/*
- * This function contains 66 FP additions, 32 FP multiplications,
- * (or, 52 additions, 18 multiplications, 14 fused multiply/add),
- * 28 stack variables, and 32 memory accesses
- */
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: ftw_8.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: ftw_8.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: ftw_8.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftw_twiddle_8(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 7) {
- fftw_real tmp7;
- fftw_real tmp43;
- fftw_real tmp71;
- fftw_real tmp76;
- fftw_real tmp41;
- fftw_real tmp53;
- fftw_real tmp56;
- fftw_real tmp65;
- fftw_real tmp18;
- fftw_real tmp77;
- fftw_real tmp46;
- fftw_real tmp68;
- fftw_real tmp30;
- fftw_real tmp48;
- fftw_real tmp51;
- fftw_real tmp64;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp70;
- fftw_real tmp6;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp70 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[4 * iostride]);
- tmp5 = c_im(inout[4 * iostride]);
- tmp2 = c_re(W[3]);
- tmp4 = c_im(W[3]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp69 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- tmp7 = tmp1 + tmp6;
- tmp43 = tmp1 - tmp6;
- tmp71 = tmp69 + tmp70;
- tmp76 = tmp70 - tmp69;
- }
- {
- fftw_real tmp35;
- fftw_real tmp54;
- fftw_real tmp40;
- fftw_real tmp55;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[7 * iostride]);
- tmp34 = c_im(inout[7 * iostride]);
- tmp31 = c_re(W[6]);
- tmp33 = c_im(W[6]);
- tmp35 = (tmp31 * tmp32) - (tmp33 * tmp34);
- tmp54 = (tmp33 * tmp32) + (tmp31 * tmp34);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[3 * iostride]);
- tmp39 = c_im(inout[3 * iostride]);
- tmp36 = c_re(W[2]);
- tmp38 = c_im(W[2]);
- tmp40 = (tmp36 * tmp37) - (tmp38 * tmp39);
- tmp55 = (tmp38 * tmp37) + (tmp36 * tmp39);
- }
- tmp41 = tmp35 + tmp40;
- tmp53 = tmp35 - tmp40;
- tmp56 = tmp54 - tmp55;
- tmp65 = tmp54 + tmp55;
- }
- {
- fftw_real tmp12;
- fftw_real tmp44;
- fftw_real tmp17;
- fftw_real tmp45;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[2 * iostride]);
- tmp11 = c_im(inout[2 * iostride]);
- tmp8 = c_re(W[1]);
- tmp10 = c_im(W[1]);
- tmp12 = (tmp8 * tmp9) - (tmp10 * tmp11);
- tmp44 = (tmp10 * tmp9) + (tmp8 * tmp11);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[6 * iostride]);
- tmp16 = c_im(inout[6 * iostride]);
- tmp13 = c_re(W[5]);
- tmp15 = c_im(W[5]);
- tmp17 = (tmp13 * tmp14) - (tmp15 * tmp16);
- tmp45 = (tmp15 * tmp14) + (tmp13 * tmp16);
- }
- tmp18 = tmp12 + tmp17;
- tmp77 = tmp12 - tmp17;
- tmp46 = tmp44 - tmp45;
- tmp68 = tmp44 + tmp45;
- }
- {
- fftw_real tmp24;
- fftw_real tmp49;
- fftw_real tmp29;
- fftw_real tmp50;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp21;
- fftw_real tmp23;
- fftw_real tmp20;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = c_re(inout[iostride]);
- tmp23 = c_im(inout[iostride]);
- tmp20 = c_re(W[0]);
- tmp22 = c_im(W[0]);
- tmp24 = (tmp20 * tmp21) - (tmp22 * tmp23);
- tmp49 = (tmp22 * tmp21) + (tmp20 * tmp23);
- }
- {
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp25;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(inout[5 * iostride]);
- tmp28 = c_im(inout[5 * iostride]);
- tmp25 = c_re(W[4]);
- tmp27 = c_im(W[4]);
- tmp29 = (tmp25 * tmp26) - (tmp27 * tmp28);
- tmp50 = (tmp27 * tmp26) + (tmp25 * tmp28);
- }
- tmp30 = tmp24 + tmp29;
- tmp48 = tmp24 - tmp29;
- tmp51 = tmp49 - tmp50;
- tmp64 = tmp49 + tmp50;
- }
- {
- fftw_real tmp19;
- fftw_real tmp42;
- fftw_real tmp63;
- fftw_real tmp66;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = tmp7 + tmp18;
- tmp42 = tmp30 + tmp41;
- c_re(inout[4 * iostride]) = tmp19 - tmp42;
- c_re(inout[0]) = tmp19 + tmp42;
- {
- fftw_real tmp73;
- fftw_real tmp74;
- fftw_real tmp67;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = tmp41 - tmp30;
- tmp74 = tmp71 - tmp68;
- c_im(inout[2 * iostride]) = tmp73 + tmp74;
- c_im(inout[6 * iostride]) = tmp74 - tmp73;
- tmp67 = tmp64 + tmp65;
- tmp72 = tmp68 + tmp71;
- c_im(inout[0]) = tmp67 + tmp72;
- c_im(inout[4 * iostride]) = tmp72 - tmp67;
- }
- tmp63 = tmp7 - tmp18;
- tmp66 = tmp64 - tmp65;
- c_re(inout[6 * iostride]) = tmp63 - tmp66;
- c_re(inout[2 * iostride]) = tmp63 + tmp66;
- {
- fftw_real tmp59;
- fftw_real tmp78;
- fftw_real tmp62;
- fftw_real tmp75;
- fftw_real tmp60;
- fftw_real tmp61;
- ASSERT_ALIGNED_DOUBLE;
- tmp59 = tmp43 - tmp46;
- tmp78 = tmp76 - tmp77;
- tmp60 = tmp51 - tmp48;
- tmp61 = tmp53 + tmp56;
- tmp62 = K707106781 * (tmp60 - tmp61);
- tmp75 = K707106781 * (tmp60 + tmp61);
- c_re(inout[7 * iostride]) = tmp59 - tmp62;
- c_re(inout[3 * iostride]) = tmp59 + tmp62;
- c_im(inout[iostride]) = tmp75 + tmp78;
- c_im(inout[5 * iostride]) = tmp78 - tmp75;
- }
- {
- fftw_real tmp47;
- fftw_real tmp80;
- fftw_real tmp58;
- fftw_real tmp79;
- fftw_real tmp52;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = tmp43 + tmp46;
- tmp80 = tmp77 + tmp76;
- tmp52 = tmp48 + tmp51;
- tmp57 = tmp53 - tmp56;
- tmp58 = K707106781 * (tmp52 + tmp57);
- tmp79 = K707106781 * (tmp57 - tmp52);
- c_re(inout[5 * iostride]) = tmp47 - tmp58;
- c_re(inout[iostride]) = tmp47 + tmp58;
- c_im(inout[3 * iostride]) = tmp79 + tmp80;
- c_im(inout[7 * iostride]) = tmp80 - tmp79;
- }
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7};
-fftw_codelet_desc fftw_twiddle_8_desc =
-{
- "fftw_twiddle_8",
- (void (*)()) fftw_twiddle_8,
- 8,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 176,
- 7,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftw_9.c b/src/sndobj/rfftw/ftw_9.c
deleted file mode 100644
index 05a01b7..0000000
--- a/src/sndobj/rfftw/ftw_9.c
+++ /dev/null
@@ -1,370 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:35 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 9 */
-
-/*
- * This function contains 96 FP additions, 72 FP multiplications,
- * (or, 60 additions, 36 multiplications, 36 fused multiply/add),
- * 34 stack variables, and 36 memory accesses
- */
-static const fftw_real K939692620 = FFTW_KONST(+0.939692620785908384054109277324731469936208134);
-static const fftw_real K342020143 = FFTW_KONST(+0.342020143325668733044099614682259580763083368);
-static const fftw_real K984807753 = FFTW_KONST(+0.984807753012208059366743024589523013670643252);
-static const fftw_real K173648177 = FFTW_KONST(+0.173648177666930348851716626769314796000375677);
-static const fftw_real K642787609 = FFTW_KONST(+0.642787609686539326322643409907263432907559884);
-static const fftw_real K766044443 = FFTW_KONST(+0.766044443118978035202392650555416673935832457);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-
-/*
- * Generator Id's :
- * $Id: ftw_9.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: ftw_9.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: ftw_9.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- */
-
-void fftw_twiddle_9(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 8) {
- fftw_real tmp1;
- fftw_real tmp99;
- fftw_real tmp52;
- fftw_real tmp98;
- fftw_real tmp105;
- fftw_real tmp104;
- fftw_real tmp12;
- fftw_real tmp49;
- fftw_real tmp47;
- fftw_real tmp69;
- fftw_real tmp86;
- fftw_real tmp95;
- fftw_real tmp74;
- fftw_real tmp85;
- fftw_real tmp30;
- fftw_real tmp58;
- fftw_real tmp82;
- fftw_real tmp94;
- fftw_real tmp63;
- fftw_real tmp83;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp6;
- fftw_real tmp50;
- fftw_real tmp11;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp99 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[3 * iostride]);
- tmp5 = c_im(inout[3 * iostride]);
- tmp2 = c_re(W[2]);
- tmp4 = c_im(W[2]);
- tmp6 = (tmp2 * tmp3) - (tmp4 * tmp5);
- tmp50 = (tmp4 * tmp3) + (tmp2 * tmp5);
- }
- {
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp7;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(inout[6 * iostride]);
- tmp10 = c_im(inout[6 * iostride]);
- tmp7 = c_re(W[5]);
- tmp9 = c_im(W[5]);
- tmp11 = (tmp7 * tmp8) - (tmp9 * tmp10);
- tmp51 = (tmp9 * tmp8) + (tmp7 * tmp10);
- }
- tmp52 = K866025403 * (tmp50 - tmp51);
- tmp98 = tmp50 + tmp51;
- tmp105 = tmp99 - (K500000000 * tmp98);
- tmp104 = K866025403 * (tmp11 - tmp6);
- tmp12 = tmp6 + tmp11;
- tmp49 = tmp1 - (K500000000 * tmp12);
- }
- {
- fftw_real tmp35;
- fftw_real tmp71;
- fftw_real tmp40;
- fftw_real tmp66;
- fftw_real tmp45;
- fftw_real tmp67;
- fftw_real tmp46;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[2 * iostride]);
- tmp34 = c_im(inout[2 * iostride]);
- tmp31 = c_re(W[1]);
- tmp33 = c_im(W[1]);
- tmp35 = (tmp31 * tmp32) - (tmp33 * tmp34);
- tmp71 = (tmp33 * tmp32) + (tmp31 * tmp34);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[5 * iostride]);
- tmp39 = c_im(inout[5 * iostride]);
- tmp36 = c_re(W[4]);
- tmp38 = c_im(W[4]);
- tmp40 = (tmp36 * tmp37) - (tmp38 * tmp39);
- tmp66 = (tmp38 * tmp37) + (tmp36 * tmp39);
- }
- {
- fftw_real tmp42;
- fftw_real tmp44;
- fftw_real tmp41;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- tmp42 = c_re(inout[8 * iostride]);
- tmp44 = c_im(inout[8 * iostride]);
- tmp41 = c_re(W[7]);
- tmp43 = c_im(W[7]);
- tmp45 = (tmp41 * tmp42) - (tmp43 * tmp44);
- tmp67 = (tmp43 * tmp42) + (tmp41 * tmp44);
- }
- tmp46 = tmp40 + tmp45;
- tmp72 = tmp66 + tmp67;
- {
- fftw_real tmp65;
- fftw_real tmp68;
- fftw_real tmp70;
- fftw_real tmp73;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = tmp35 + tmp46;
- tmp65 = tmp35 - (K500000000 * tmp46);
- tmp68 = K866025403 * (tmp66 - tmp67);
- tmp69 = tmp65 + tmp68;
- tmp86 = tmp65 - tmp68;
- tmp95 = tmp71 + tmp72;
- tmp70 = K866025403 * (tmp45 - tmp40);
- tmp73 = tmp71 - (K500000000 * tmp72);
- tmp74 = tmp70 + tmp73;
- tmp85 = tmp73 - tmp70;
- }
- }
- {
- fftw_real tmp18;
- fftw_real tmp60;
- fftw_real tmp23;
- fftw_real tmp55;
- fftw_real tmp28;
- fftw_real tmp56;
- fftw_real tmp29;
- fftw_real tmp61;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp15;
- fftw_real tmp17;
- fftw_real tmp14;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = c_re(inout[iostride]);
- tmp17 = c_im(inout[iostride]);
- tmp14 = c_re(W[0]);
- tmp16 = c_im(W[0]);
- tmp18 = (tmp14 * tmp15) - (tmp16 * tmp17);
- tmp60 = (tmp16 * tmp15) + (tmp14 * tmp17);
- }
- {
- fftw_real tmp20;
- fftw_real tmp22;
- fftw_real tmp19;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp20 = c_re(inout[4 * iostride]);
- tmp22 = c_im(inout[4 * iostride]);
- tmp19 = c_re(W[3]);
- tmp21 = c_im(W[3]);
- tmp23 = (tmp19 * tmp20) - (tmp21 * tmp22);
- tmp55 = (tmp21 * tmp20) + (tmp19 * tmp22);
- }
- {
- fftw_real tmp25;
- fftw_real tmp27;
- fftw_real tmp24;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = c_re(inout[7 * iostride]);
- tmp27 = c_im(inout[7 * iostride]);
- tmp24 = c_re(W[6]);
- tmp26 = c_im(W[6]);
- tmp28 = (tmp24 * tmp25) - (tmp26 * tmp27);
- tmp56 = (tmp26 * tmp25) + (tmp24 * tmp27);
- }
- tmp29 = tmp23 + tmp28;
- tmp61 = tmp55 + tmp56;
- {
- fftw_real tmp54;
- fftw_real tmp57;
- fftw_real tmp59;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = tmp18 + tmp29;
- tmp54 = tmp18 - (K500000000 * tmp29);
- tmp57 = K866025403 * (tmp55 - tmp56);
- tmp58 = tmp54 + tmp57;
- tmp82 = tmp54 - tmp57;
- tmp94 = tmp60 + tmp61;
- tmp59 = K866025403 * (tmp28 - tmp23);
- tmp62 = tmp60 - (K500000000 * tmp61);
- tmp63 = tmp59 + tmp62;
- tmp83 = tmp62 - tmp59;
- }
- }
- {
- fftw_real tmp96;
- fftw_real tmp13;
- fftw_real tmp48;
- fftw_real tmp93;
- ASSERT_ALIGNED_DOUBLE;
- tmp96 = K866025403 * (tmp94 - tmp95);
- tmp13 = tmp1 + tmp12;
- tmp48 = tmp30 + tmp47;
- tmp93 = tmp13 - (K500000000 * tmp48);
- c_re(inout[0]) = tmp13 + tmp48;
- c_re(inout[3 * iostride]) = tmp93 + tmp96;
- c_re(inout[6 * iostride]) = tmp93 - tmp96;
- }
- {
- fftw_real tmp101;
- fftw_real tmp97;
- fftw_real tmp100;
- fftw_real tmp102;
- ASSERT_ALIGNED_DOUBLE;
- tmp101 = K866025403 * (tmp47 - tmp30);
- tmp97 = tmp94 + tmp95;
- tmp100 = tmp98 + tmp99;
- tmp102 = tmp100 - (K500000000 * tmp97);
- c_im(inout[0]) = tmp97 + tmp100;
- c_im(inout[6 * iostride]) = tmp102 - tmp101;
- c_im(inout[3 * iostride]) = tmp101 + tmp102;
- }
- {
- fftw_real tmp53;
- fftw_real tmp106;
- fftw_real tmp76;
- fftw_real tmp107;
- fftw_real tmp80;
- fftw_real tmp103;
- fftw_real tmp77;
- fftw_real tmp108;
- ASSERT_ALIGNED_DOUBLE;
- tmp53 = tmp49 + tmp52;
- tmp106 = tmp104 + tmp105;
- {
- fftw_real tmp64;
- fftw_real tmp75;
- fftw_real tmp78;
- fftw_real tmp79;
- ASSERT_ALIGNED_DOUBLE;
- tmp64 = (K766044443 * tmp58) + (K642787609 * tmp63);
- tmp75 = (K173648177 * tmp69) + (K984807753 * tmp74);
- tmp76 = tmp64 + tmp75;
- tmp107 = K866025403 * (tmp75 - tmp64);
- tmp78 = (K766044443 * tmp63) - (K642787609 * tmp58);
- tmp79 = (K173648177 * tmp74) - (K984807753 * tmp69);
- tmp80 = K866025403 * (tmp78 - tmp79);
- tmp103 = tmp78 + tmp79;
- }
- c_re(inout[iostride]) = tmp53 + tmp76;
- tmp77 = tmp53 - (K500000000 * tmp76);
- c_re(inout[7 * iostride]) = tmp77 - tmp80;
- c_re(inout[4 * iostride]) = tmp77 + tmp80;
- c_im(inout[iostride]) = tmp103 + tmp106;
- tmp108 = tmp106 - (K500000000 * tmp103);
- c_im(inout[4 * iostride]) = tmp107 + tmp108;
- c_im(inout[7 * iostride]) = tmp108 - tmp107;
- }
- {
- fftw_real tmp81;
- fftw_real tmp110;
- fftw_real tmp88;
- fftw_real tmp111;
- fftw_real tmp92;
- fftw_real tmp109;
- fftw_real tmp89;
- fftw_real tmp112;
- ASSERT_ALIGNED_DOUBLE;
- tmp81 = tmp49 - tmp52;
- tmp110 = tmp105 - tmp104;
- {
- fftw_real tmp84;
- fftw_real tmp87;
- fftw_real tmp90;
- fftw_real tmp91;
- ASSERT_ALIGNED_DOUBLE;
- tmp84 = (K173648177 * tmp82) + (K984807753 * tmp83);
- tmp87 = (K342020143 * tmp85) - (K939692620 * tmp86);
- tmp88 = tmp84 + tmp87;
- tmp111 = K866025403 * (tmp87 - tmp84);
- tmp90 = (K173648177 * tmp83) - (K984807753 * tmp82);
- tmp91 = (K342020143 * tmp86) + (K939692620 * tmp85);
- tmp92 = K866025403 * (tmp90 + tmp91);
- tmp109 = tmp90 - tmp91;
- }
- c_re(inout[2 * iostride]) = tmp81 + tmp88;
- tmp89 = tmp81 - (K500000000 * tmp88);
- c_re(inout[8 * iostride]) = tmp89 - tmp92;
- c_re(inout[5 * iostride]) = tmp89 + tmp92;
- c_im(inout[2 * iostride]) = tmp109 + tmp110;
- tmp112 = tmp110 - (K500000000 * tmp109);
- c_im(inout[5 * iostride]) = tmp111 + tmp112;
- c_im(inout[8 * iostride]) = tmp112 - tmp111;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8};
-fftw_codelet_desc fftw_twiddle_9_desc =
-{
- "fftw_twiddle_9",
- (void (*)()) fftw_twiddle_9,
- 9,
- FFTW_FORWARD,
- FFTW_TWIDDLE,
- 198,
- 8,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_10.c b/src/sndobj/rfftw/ftwi_10.c
deleted file mode 100644
index 7a9595c..0000000
--- a/src/sndobj/rfftw/ftwi_10.c
+++ /dev/null
@@ -1,375 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:59 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 10 */
-
-/*
- * This function contains 102 FP additions, 60 FP multiplications,
- * (or, 72 additions, 30 multiplications, 30 fused multiply/add),
- * 42 stack variables, and 40 memory accesses
- */
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-
-/*
- * Generator Id's :
- * $Id: ftwi_10.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: ftwi_10.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: ftwi_10.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- */
-
-void fftwi_twiddle_10(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 9) {
- fftw_real tmp7;
- fftw_real tmp55;
- fftw_real tmp100;
- fftw_real tmp115;
- fftw_real tmp41;
- fftw_real tmp52;
- fftw_real tmp53;
- fftw_real tmp59;
- fftw_real tmp60;
- fftw_real tmp61;
- fftw_real tmp75;
- fftw_real tmp78;
- fftw_real tmp113;
- fftw_real tmp89;
- fftw_real tmp90;
- fftw_real tmp96;
- fftw_real tmp18;
- fftw_real tmp29;
- fftw_real tmp30;
- fftw_real tmp56;
- fftw_real tmp57;
- fftw_real tmp58;
- fftw_real tmp68;
- fftw_real tmp71;
- fftw_real tmp112;
- fftw_real tmp86;
- fftw_real tmp87;
- fftw_real tmp95;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp99;
- fftw_real tmp6;
- fftw_real tmp98;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp99 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[5 * iostride]);
- tmp5 = c_im(inout[5 * iostride]);
- tmp2 = c_re(W[4]);
- tmp4 = c_im(W[4]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp98 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- tmp7 = tmp1 - tmp6;
- tmp55 = tmp1 + tmp6;
- tmp100 = tmp98 + tmp99;
- tmp115 = tmp99 - tmp98;
- }
- {
- fftw_real tmp35;
- fftw_real tmp73;
- fftw_real tmp51;
- fftw_real tmp77;
- fftw_real tmp40;
- fftw_real tmp74;
- fftw_real tmp46;
- fftw_real tmp76;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[4 * iostride]);
- tmp34 = c_im(inout[4 * iostride]);
- tmp31 = c_re(W[3]);
- tmp33 = c_im(W[3]);
- tmp35 = (tmp31 * tmp32) + (tmp33 * tmp34);
- tmp73 = (tmp31 * tmp34) - (tmp33 * tmp32);
- }
- {
- fftw_real tmp48;
- fftw_real tmp50;
- fftw_real tmp47;
- fftw_real tmp49;
- ASSERT_ALIGNED_DOUBLE;
- tmp48 = c_re(inout[iostride]);
- tmp50 = c_im(inout[iostride]);
- tmp47 = c_re(W[0]);
- tmp49 = c_im(W[0]);
- tmp51 = (tmp47 * tmp48) + (tmp49 * tmp50);
- tmp77 = (tmp47 * tmp50) - (tmp49 * tmp48);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[9 * iostride]);
- tmp39 = c_im(inout[9 * iostride]);
- tmp36 = c_re(W[8]);
- tmp38 = c_im(W[8]);
- tmp40 = (tmp36 * tmp37) + (tmp38 * tmp39);
- tmp74 = (tmp36 * tmp39) - (tmp38 * tmp37);
- }
- {
- fftw_real tmp43;
- fftw_real tmp45;
- fftw_real tmp42;
- fftw_real tmp44;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = c_re(inout[6 * iostride]);
- tmp45 = c_im(inout[6 * iostride]);
- tmp42 = c_re(W[5]);
- tmp44 = c_im(W[5]);
- tmp46 = (tmp42 * tmp43) + (tmp44 * tmp45);
- tmp76 = (tmp42 * tmp45) - (tmp44 * tmp43);
- }
- tmp41 = tmp35 - tmp40;
- tmp52 = tmp46 - tmp51;
- tmp53 = tmp41 + tmp52;
- tmp59 = tmp35 + tmp40;
- tmp60 = tmp46 + tmp51;
- tmp61 = tmp59 + tmp60;
- tmp75 = tmp73 - tmp74;
- tmp78 = tmp76 - tmp77;
- tmp113 = tmp75 + tmp78;
- tmp89 = tmp73 + tmp74;
- tmp90 = tmp76 + tmp77;
- tmp96 = tmp89 + tmp90;
- }
- {
- fftw_real tmp12;
- fftw_real tmp66;
- fftw_real tmp28;
- fftw_real tmp70;
- fftw_real tmp17;
- fftw_real tmp67;
- fftw_real tmp23;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[2 * iostride]);
- tmp11 = c_im(inout[2 * iostride]);
- tmp8 = c_re(W[1]);
- tmp10 = c_im(W[1]);
- tmp12 = (tmp8 * tmp9) + (tmp10 * tmp11);
- tmp66 = (tmp8 * tmp11) - (tmp10 * tmp9);
- }
- {
- fftw_real tmp25;
- fftw_real tmp27;
- fftw_real tmp24;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = c_re(inout[3 * iostride]);
- tmp27 = c_im(inout[3 * iostride]);
- tmp24 = c_re(W[2]);
- tmp26 = c_im(W[2]);
- tmp28 = (tmp24 * tmp25) + (tmp26 * tmp27);
- tmp70 = (tmp24 * tmp27) - (tmp26 * tmp25);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[7 * iostride]);
- tmp16 = c_im(inout[7 * iostride]);
- tmp13 = c_re(W[6]);
- tmp15 = c_im(W[6]);
- tmp17 = (tmp13 * tmp14) + (tmp15 * tmp16);
- tmp67 = (tmp13 * tmp16) - (tmp15 * tmp14);
- }
- {
- fftw_real tmp20;
- fftw_real tmp22;
- fftw_real tmp19;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp20 = c_re(inout[8 * iostride]);
- tmp22 = c_im(inout[8 * iostride]);
- tmp19 = c_re(W[7]);
- tmp21 = c_im(W[7]);
- tmp23 = (tmp19 * tmp20) + (tmp21 * tmp22);
- tmp69 = (tmp19 * tmp22) - (tmp21 * tmp20);
- }
- tmp18 = tmp12 - tmp17;
- tmp29 = tmp23 - tmp28;
- tmp30 = tmp18 + tmp29;
- tmp56 = tmp12 + tmp17;
- tmp57 = tmp23 + tmp28;
- tmp58 = tmp56 + tmp57;
- tmp68 = tmp66 - tmp67;
- tmp71 = tmp69 - tmp70;
- tmp112 = tmp68 + tmp71;
- tmp86 = tmp66 + tmp67;
- tmp87 = tmp69 + tmp70;
- tmp95 = tmp86 + tmp87;
- }
- {
- fftw_real tmp64;
- fftw_real tmp54;
- fftw_real tmp63;
- fftw_real tmp80;
- fftw_real tmp82;
- fftw_real tmp72;
- fftw_real tmp79;
- fftw_real tmp81;
- fftw_real tmp65;
- ASSERT_ALIGNED_DOUBLE;
- tmp64 = K559016994 * (tmp30 - tmp53);
- tmp54 = tmp30 + tmp53;
- tmp63 = tmp7 - (K250000000 * tmp54);
- tmp72 = tmp68 - tmp71;
- tmp79 = tmp75 - tmp78;
- tmp80 = (K587785252 * tmp72) - (K951056516 * tmp79);
- tmp82 = (K951056516 * tmp72) + (K587785252 * tmp79);
- c_re(inout[5 * iostride]) = tmp7 + tmp54;
- tmp81 = tmp64 + tmp63;
- c_re(inout[iostride]) = tmp81 - tmp82;
- c_re(inout[9 * iostride]) = tmp81 + tmp82;
- tmp65 = tmp63 - tmp64;
- c_re(inout[7 * iostride]) = tmp65 - tmp80;
- c_re(inout[3 * iostride]) = tmp65 + tmp80;
- }
- {
- fftw_real tmp114;
- fftw_real tmp116;
- fftw_real tmp117;
- fftw_real tmp111;
- fftw_real tmp120;
- fftw_real tmp109;
- fftw_real tmp110;
- fftw_real tmp119;
- fftw_real tmp118;
- ASSERT_ALIGNED_DOUBLE;
- tmp114 = K559016994 * (tmp112 - tmp113);
- tmp116 = tmp112 + tmp113;
- tmp117 = tmp115 - (K250000000 * tmp116);
- tmp109 = tmp18 - tmp29;
- tmp110 = tmp41 - tmp52;
- tmp111 = (K951056516 * tmp109) + (K587785252 * tmp110);
- tmp120 = (K587785252 * tmp109) - (K951056516 * tmp110);
- c_im(inout[5 * iostride]) = tmp116 + tmp115;
- tmp119 = tmp117 - tmp114;
- c_im(inout[3 * iostride]) = tmp119 - tmp120;
- c_im(inout[7 * iostride]) = tmp120 + tmp119;
- tmp118 = tmp114 + tmp117;
- c_im(inout[iostride]) = tmp111 + tmp118;
- c_im(inout[9 * iostride]) = tmp118 - tmp111;
- }
- {
- fftw_real tmp84;
- fftw_real tmp62;
- fftw_real tmp83;
- fftw_real tmp92;
- fftw_real tmp94;
- fftw_real tmp88;
- fftw_real tmp91;
- fftw_real tmp93;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- tmp84 = K559016994 * (tmp58 - tmp61);
- tmp62 = tmp58 + tmp61;
- tmp83 = tmp55 - (K250000000 * tmp62);
- tmp88 = tmp86 - tmp87;
- tmp91 = tmp89 - tmp90;
- tmp92 = (K587785252 * tmp88) - (K951056516 * tmp91);
- tmp94 = (K951056516 * tmp88) + (K587785252 * tmp91);
- c_re(inout[0]) = tmp55 + tmp62;
- tmp93 = tmp84 + tmp83;
- c_re(inout[6 * iostride]) = tmp93 - tmp94;
- c_re(inout[4 * iostride]) = tmp93 + tmp94;
- tmp85 = tmp83 - tmp84;
- c_re(inout[2 * iostride]) = tmp85 - tmp92;
- c_re(inout[8 * iostride]) = tmp85 + tmp92;
- }
- {
- fftw_real tmp105;
- fftw_real tmp97;
- fftw_real tmp104;
- fftw_real tmp103;
- fftw_real tmp108;
- fftw_real tmp101;
- fftw_real tmp102;
- fftw_real tmp107;
- fftw_real tmp106;
- ASSERT_ALIGNED_DOUBLE;
- tmp105 = K559016994 * (tmp95 - tmp96);
- tmp97 = tmp95 + tmp96;
- tmp104 = tmp100 - (K250000000 * tmp97);
- tmp101 = tmp56 - tmp57;
- tmp102 = tmp59 - tmp60;
- tmp103 = (K587785252 * tmp101) - (K951056516 * tmp102);
- tmp108 = (K951056516 * tmp101) + (K587785252 * tmp102);
- c_im(inout[0]) = tmp97 + tmp100;
- tmp107 = tmp105 + tmp104;
- c_im(inout[4 * iostride]) = tmp107 - tmp108;
- c_im(inout[6 * iostride]) = tmp108 + tmp107;
- tmp106 = tmp104 - tmp105;
- c_im(inout[2 * iostride]) = tmp103 + tmp106;
- c_im(inout[8 * iostride]) = tmp106 - tmp103;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9};
-fftw_codelet_desc fftwi_twiddle_10_desc =
-{
- "fftwi_twiddle_10",
- (void (*)()) fftwi_twiddle_10,
- 10,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 231,
- 9,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_16.c b/src/sndobj/rfftw/ftwi_16.c
deleted file mode 100644
index 65cd1e3..0000000
--- a/src/sndobj/rfftw/ftwi_16.c
+++ /dev/null
@@ -1,611 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:01 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 16 */
-
-/*
- * This function contains 174 FP additions, 84 FP multiplications,
- * (or, 136 additions, 46 multiplications, 38 fused multiply/add),
- * 50 stack variables, and 64 memory accesses
- */
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: ftwi_16.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: ftwi_16.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: ftwi_16.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- */
-
-void fftwi_twiddle_16(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 15) {
- fftw_real tmp7;
- fftw_real tmp91;
- fftw_real tmp180;
- fftw_real tmp194;
- fftw_real tmp18;
- fftw_real tmp193;
- fftw_real tmp94;
- fftw_real tmp177;
- fftw_real tmp77;
- fftw_real tmp88;
- fftw_real tmp161;
- fftw_real tmp117;
- fftw_real tmp141;
- fftw_real tmp162;
- fftw_real tmp163;
- fftw_real tmp164;
- fftw_real tmp112;
- fftw_real tmp140;
- fftw_real tmp30;
- fftw_real tmp153;
- fftw_real tmp100;
- fftw_real tmp137;
- fftw_real tmp41;
- fftw_real tmp152;
- fftw_real tmp105;
- fftw_real tmp136;
- fftw_real tmp54;
- fftw_real tmp65;
- fftw_real tmp156;
- fftw_real tmp128;
- fftw_real tmp144;
- fftw_real tmp157;
- fftw_real tmp158;
- fftw_real tmp159;
- fftw_real tmp123;
- fftw_real tmp143;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp179;
- fftw_real tmp6;
- fftw_real tmp178;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp179 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[8 * iostride]);
- tmp5 = c_im(inout[8 * iostride]);
- tmp2 = c_re(W[7]);
- tmp4 = c_im(W[7]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp178 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- tmp7 = tmp1 + tmp6;
- tmp91 = tmp1 - tmp6;
- tmp180 = tmp178 + tmp179;
- tmp194 = tmp179 - tmp178;
- }
- {
- fftw_real tmp12;
- fftw_real tmp92;
- fftw_real tmp17;
- fftw_real tmp93;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[4 * iostride]);
- tmp11 = c_im(inout[4 * iostride]);
- tmp8 = c_re(W[3]);
- tmp10 = c_im(W[3]);
- tmp12 = (tmp8 * tmp9) + (tmp10 * tmp11);
- tmp92 = (tmp8 * tmp11) - (tmp10 * tmp9);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[12 * iostride]);
- tmp16 = c_im(inout[12 * iostride]);
- tmp13 = c_re(W[11]);
- tmp15 = c_im(W[11]);
- tmp17 = (tmp13 * tmp14) + (tmp15 * tmp16);
- tmp93 = (tmp13 * tmp16) - (tmp15 * tmp14);
- }
- tmp18 = tmp12 + tmp17;
- tmp193 = tmp12 - tmp17;
- tmp94 = tmp92 - tmp93;
- tmp177 = tmp92 + tmp93;
- }
- {
- fftw_real tmp71;
- fftw_real tmp108;
- fftw_real tmp87;
- fftw_real tmp115;
- fftw_real tmp76;
- fftw_real tmp109;
- fftw_real tmp82;
- fftw_real tmp114;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp68;
- fftw_real tmp70;
- fftw_real tmp67;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- tmp68 = c_re(inout[15 * iostride]);
- tmp70 = c_im(inout[15 * iostride]);
- tmp67 = c_re(W[14]);
- tmp69 = c_im(W[14]);
- tmp71 = (tmp67 * tmp68) + (tmp69 * tmp70);
- tmp108 = (tmp67 * tmp70) - (tmp69 * tmp68);
- }
- {
- fftw_real tmp84;
- fftw_real tmp86;
- fftw_real tmp83;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- tmp84 = c_re(inout[11 * iostride]);
- tmp86 = c_im(inout[11 * iostride]);
- tmp83 = c_re(W[10]);
- tmp85 = c_im(W[10]);
- tmp87 = (tmp83 * tmp84) + (tmp85 * tmp86);
- tmp115 = (tmp83 * tmp86) - (tmp85 * tmp84);
- }
- {
- fftw_real tmp73;
- fftw_real tmp75;
- fftw_real tmp72;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = c_re(inout[7 * iostride]);
- tmp75 = c_im(inout[7 * iostride]);
- tmp72 = c_re(W[6]);
- tmp74 = c_im(W[6]);
- tmp76 = (tmp72 * tmp73) + (tmp74 * tmp75);
- tmp109 = (tmp72 * tmp75) - (tmp74 * tmp73);
- }
- {
- fftw_real tmp79;
- fftw_real tmp81;
- fftw_real tmp78;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp79 = c_re(inout[3 * iostride]);
- tmp81 = c_im(inout[3 * iostride]);
- tmp78 = c_re(W[2]);
- tmp80 = c_im(W[2]);
- tmp82 = (tmp78 * tmp79) + (tmp80 * tmp81);
- tmp114 = (tmp78 * tmp81) - (tmp80 * tmp79);
- }
- {
- fftw_real tmp113;
- fftw_real tmp116;
- fftw_real tmp110;
- fftw_real tmp111;
- ASSERT_ALIGNED_DOUBLE;
- tmp77 = tmp71 + tmp76;
- tmp88 = tmp82 + tmp87;
- tmp161 = tmp77 - tmp88;
- tmp113 = tmp71 - tmp76;
- tmp116 = tmp114 - tmp115;
- tmp117 = tmp113 - tmp116;
- tmp141 = tmp113 + tmp116;
- tmp162 = tmp108 + tmp109;
- tmp163 = tmp114 + tmp115;
- tmp164 = tmp162 - tmp163;
- tmp110 = tmp108 - tmp109;
- tmp111 = tmp82 - tmp87;
- tmp112 = tmp110 + tmp111;
- tmp140 = tmp110 - tmp111;
- }
- }
- {
- fftw_real tmp24;
- fftw_real tmp97;
- fftw_real tmp29;
- fftw_real tmp98;
- fftw_real tmp96;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp21;
- fftw_real tmp23;
- fftw_real tmp20;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = c_re(inout[2 * iostride]);
- tmp23 = c_im(inout[2 * iostride]);
- tmp20 = c_re(W[1]);
- tmp22 = c_im(W[1]);
- tmp24 = (tmp20 * tmp21) + (tmp22 * tmp23);
- tmp97 = (tmp20 * tmp23) - (tmp22 * tmp21);
- }
- {
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp25;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(inout[10 * iostride]);
- tmp28 = c_im(inout[10 * iostride]);
- tmp25 = c_re(W[9]);
- tmp27 = c_im(W[9]);
- tmp29 = (tmp25 * tmp26) + (tmp27 * tmp28);
- tmp98 = (tmp25 * tmp28) - (tmp27 * tmp26);
- }
- tmp30 = tmp24 + tmp29;
- tmp153 = tmp97 + tmp98;
- tmp96 = tmp24 - tmp29;
- tmp99 = tmp97 - tmp98;
- tmp100 = tmp96 - tmp99;
- tmp137 = tmp96 + tmp99;
- }
- {
- fftw_real tmp35;
- fftw_real tmp102;
- fftw_real tmp40;
- fftw_real tmp103;
- fftw_real tmp101;
- fftw_real tmp104;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[14 * iostride]);
- tmp34 = c_im(inout[14 * iostride]);
- tmp31 = c_re(W[13]);
- tmp33 = c_im(W[13]);
- tmp35 = (tmp31 * tmp32) + (tmp33 * tmp34);
- tmp102 = (tmp31 * tmp34) - (tmp33 * tmp32);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[6 * iostride]);
- tmp39 = c_im(inout[6 * iostride]);
- tmp36 = c_re(W[5]);
- tmp38 = c_im(W[5]);
- tmp40 = (tmp36 * tmp37) + (tmp38 * tmp39);
- tmp103 = (tmp36 * tmp39) - (tmp38 * tmp37);
- }
- tmp41 = tmp35 + tmp40;
- tmp152 = tmp102 + tmp103;
- tmp101 = tmp35 - tmp40;
- tmp104 = tmp102 - tmp103;
- tmp105 = tmp101 + tmp104;
- tmp136 = tmp104 - tmp101;
- }
- {
- fftw_real tmp48;
- fftw_real tmp119;
- fftw_real tmp64;
- fftw_real tmp126;
- fftw_real tmp53;
- fftw_real tmp120;
- fftw_real tmp59;
- fftw_real tmp125;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp45;
- fftw_real tmp47;
- fftw_real tmp44;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = c_re(inout[iostride]);
- tmp47 = c_im(inout[iostride]);
- tmp44 = c_re(W[0]);
- tmp46 = c_im(W[0]);
- tmp48 = (tmp44 * tmp45) + (tmp46 * tmp47);
- tmp119 = (tmp44 * tmp47) - (tmp46 * tmp45);
- }
- {
- fftw_real tmp61;
- fftw_real tmp63;
- fftw_real tmp60;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = c_re(inout[13 * iostride]);
- tmp63 = c_im(inout[13 * iostride]);
- tmp60 = c_re(W[12]);
- tmp62 = c_im(W[12]);
- tmp64 = (tmp60 * tmp61) + (tmp62 * tmp63);
- tmp126 = (tmp60 * tmp63) - (tmp62 * tmp61);
- }
- {
- fftw_real tmp50;
- fftw_real tmp52;
- fftw_real tmp49;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = c_re(inout[9 * iostride]);
- tmp52 = c_im(inout[9 * iostride]);
- tmp49 = c_re(W[8]);
- tmp51 = c_im(W[8]);
- tmp53 = (tmp49 * tmp50) + (tmp51 * tmp52);
- tmp120 = (tmp49 * tmp52) - (tmp51 * tmp50);
- }
- {
- fftw_real tmp56;
- fftw_real tmp58;
- fftw_real tmp55;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp56 = c_re(inout[5 * iostride]);
- tmp58 = c_im(inout[5 * iostride]);
- tmp55 = c_re(W[4]);
- tmp57 = c_im(W[4]);
- tmp59 = (tmp55 * tmp56) + (tmp57 * tmp58);
- tmp125 = (tmp55 * tmp58) - (tmp57 * tmp56);
- }
- {
- fftw_real tmp124;
- fftw_real tmp127;
- fftw_real tmp121;
- fftw_real tmp122;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = tmp48 + tmp53;
- tmp65 = tmp59 + tmp64;
- tmp156 = tmp54 - tmp65;
- tmp124 = tmp48 - tmp53;
- tmp127 = tmp125 - tmp126;
- tmp128 = tmp124 - tmp127;
- tmp144 = tmp124 + tmp127;
- tmp157 = tmp119 + tmp120;
- tmp158 = tmp125 + tmp126;
- tmp159 = tmp157 - tmp158;
- tmp121 = tmp119 - tmp120;
- tmp122 = tmp59 - tmp64;
- tmp123 = tmp121 + tmp122;
- tmp143 = tmp121 - tmp122;
- }
- }
- {
- fftw_real tmp107;
- fftw_real tmp131;
- fftw_real tmp196;
- fftw_real tmp198;
- fftw_real tmp130;
- fftw_real tmp191;
- fftw_real tmp134;
- fftw_real tmp197;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp95;
- fftw_real tmp106;
- fftw_real tmp192;
- fftw_real tmp195;
- ASSERT_ALIGNED_DOUBLE;
- tmp95 = tmp91 - tmp94;
- tmp106 = K707106781 * (tmp100 + tmp105);
- tmp107 = tmp95 - tmp106;
- tmp131 = tmp95 + tmp106;
- tmp192 = K707106781 * (tmp137 + tmp136);
- tmp195 = tmp193 + tmp194;
- tmp196 = tmp192 + tmp195;
- tmp198 = tmp195 - tmp192;
- }
- {
- fftw_real tmp118;
- fftw_real tmp129;
- fftw_real tmp132;
- fftw_real tmp133;
- ASSERT_ALIGNED_DOUBLE;
- tmp118 = (K923879532 * tmp112) - (K382683432 * tmp117);
- tmp129 = (K923879532 * tmp123) + (K382683432 * tmp128);
- tmp130 = tmp118 - tmp129;
- tmp191 = tmp129 + tmp118;
- tmp132 = (K923879532 * tmp128) - (K382683432 * tmp123);
- tmp133 = (K382683432 * tmp112) + (K923879532 * tmp117);
- tmp134 = tmp132 + tmp133;
- tmp197 = tmp132 - tmp133;
- }
- c_re(inout[13 * iostride]) = tmp107 - tmp130;
- c_re(inout[5 * iostride]) = tmp107 + tmp130;
- c_re(inout[9 * iostride]) = tmp131 - tmp134;
- c_re(inout[iostride]) = tmp131 + tmp134;
- c_im(inout[iostride]) = tmp191 + tmp196;
- c_im(inout[9 * iostride]) = tmp196 - tmp191;
- c_im(inout[5 * iostride]) = tmp197 + tmp198;
- c_im(inout[13 * iostride]) = tmp198 - tmp197;
- }
- {
- fftw_real tmp139;
- fftw_real tmp147;
- fftw_real tmp202;
- fftw_real tmp204;
- fftw_real tmp146;
- fftw_real tmp199;
- fftw_real tmp150;
- fftw_real tmp203;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp135;
- fftw_real tmp138;
- fftw_real tmp200;
- fftw_real tmp201;
- ASSERT_ALIGNED_DOUBLE;
- tmp135 = tmp91 + tmp94;
- tmp138 = K707106781 * (tmp136 - tmp137);
- tmp139 = tmp135 - tmp138;
- tmp147 = tmp135 + tmp138;
- tmp200 = K707106781 * (tmp100 - tmp105);
- tmp201 = tmp194 - tmp193;
- tmp202 = tmp200 + tmp201;
- tmp204 = tmp201 - tmp200;
- }
- {
- fftw_real tmp142;
- fftw_real tmp145;
- fftw_real tmp148;
- fftw_real tmp149;
- ASSERT_ALIGNED_DOUBLE;
- tmp142 = (K382683432 * tmp140) - (K923879532 * tmp141);
- tmp145 = (K382683432 * tmp143) + (K923879532 * tmp144);
- tmp146 = tmp142 - tmp145;
- tmp199 = tmp145 + tmp142;
- tmp148 = (K382683432 * tmp144) - (K923879532 * tmp143);
- tmp149 = (K923879532 * tmp140) + (K382683432 * tmp141);
- tmp150 = tmp148 + tmp149;
- tmp203 = tmp148 - tmp149;
- }
- c_re(inout[15 * iostride]) = tmp139 - tmp146;
- c_re(inout[7 * iostride]) = tmp139 + tmp146;
- c_re(inout[11 * iostride]) = tmp147 - tmp150;
- c_re(inout[3 * iostride]) = tmp147 + tmp150;
- c_im(inout[3 * iostride]) = tmp199 + tmp202;
- c_im(inout[11 * iostride]) = tmp202 - tmp199;
- c_im(inout[7 * iostride]) = tmp203 + tmp204;
- c_im(inout[15 * iostride]) = tmp204 - tmp203;
- }
- {
- fftw_real tmp155;
- fftw_real tmp167;
- fftw_real tmp188;
- fftw_real tmp190;
- fftw_real tmp166;
- fftw_real tmp189;
- fftw_real tmp170;
- fftw_real tmp185;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp151;
- fftw_real tmp154;
- fftw_real tmp186;
- fftw_real tmp187;
- ASSERT_ALIGNED_DOUBLE;
- tmp151 = tmp7 - tmp18;
- tmp154 = tmp152 - tmp153;
- tmp155 = tmp151 + tmp154;
- tmp167 = tmp151 - tmp154;
- tmp186 = tmp30 - tmp41;
- tmp187 = tmp180 - tmp177;
- tmp188 = tmp186 + tmp187;
- tmp190 = tmp187 - tmp186;
- }
- {
- fftw_real tmp160;
- fftw_real tmp165;
- fftw_real tmp168;
- fftw_real tmp169;
- ASSERT_ALIGNED_DOUBLE;
- tmp160 = tmp156 - tmp159;
- tmp165 = tmp161 + tmp164;
- tmp166 = K707106781 * (tmp160 + tmp165);
- tmp189 = K707106781 * (tmp160 - tmp165);
- tmp168 = tmp164 - tmp161;
- tmp169 = tmp156 + tmp159;
- tmp170 = K707106781 * (tmp168 - tmp169);
- tmp185 = K707106781 * (tmp169 + tmp168);
- }
- c_re(inout[10 * iostride]) = tmp155 - tmp166;
- c_re(inout[2 * iostride]) = tmp155 + tmp166;
- c_re(inout[14 * iostride]) = tmp167 - tmp170;
- c_re(inout[6 * iostride]) = tmp167 + tmp170;
- c_im(inout[2 * iostride]) = tmp185 + tmp188;
- c_im(inout[10 * iostride]) = tmp188 - tmp185;
- c_im(inout[6 * iostride]) = tmp189 + tmp190;
- c_im(inout[14 * iostride]) = tmp190 - tmp189;
- }
- {
- fftw_real tmp43;
- fftw_real tmp171;
- fftw_real tmp182;
- fftw_real tmp184;
- fftw_real tmp90;
- fftw_real tmp183;
- fftw_real tmp174;
- fftw_real tmp175;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp19;
- fftw_real tmp42;
- fftw_real tmp176;
- fftw_real tmp181;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = tmp7 + tmp18;
- tmp42 = tmp30 + tmp41;
- tmp43 = tmp19 + tmp42;
- tmp171 = tmp19 - tmp42;
- tmp176 = tmp153 + tmp152;
- tmp181 = tmp177 + tmp180;
- tmp182 = tmp176 + tmp181;
- tmp184 = tmp181 - tmp176;
- }
- {
- fftw_real tmp66;
- fftw_real tmp89;
- fftw_real tmp172;
- fftw_real tmp173;
- ASSERT_ALIGNED_DOUBLE;
- tmp66 = tmp54 + tmp65;
- tmp89 = tmp77 + tmp88;
- tmp90 = tmp66 + tmp89;
- tmp183 = tmp66 - tmp89;
- tmp172 = tmp162 + tmp163;
- tmp173 = tmp157 + tmp158;
- tmp174 = tmp172 - tmp173;
- tmp175 = tmp173 + tmp172;
- }
- c_re(inout[8 * iostride]) = tmp43 - tmp90;
- c_re(inout[0]) = tmp43 + tmp90;
- c_re(inout[12 * iostride]) = tmp171 - tmp174;
- c_re(inout[4 * iostride]) = tmp171 + tmp174;
- c_im(inout[0]) = tmp175 + tmp182;
- c_im(inout[8 * iostride]) = tmp182 - tmp175;
- c_im(inout[4 * iostride]) = tmp183 + tmp184;
- c_im(inout[12 * iostride]) = tmp184 - tmp183;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15};
-fftw_codelet_desc fftwi_twiddle_16_desc =
-{
- "fftwi_twiddle_16",
- (void (*)()) fftwi_twiddle_16,
- 16,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 363,
- 15,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_2.c b/src/sndobj/rfftw/ftwi_2.c
deleted file mode 100644
index c4d8468..0000000
--- a/src/sndobj/rfftw/ftwi_2.c
+++ /dev/null
@@ -1,86 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:57 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 2 */
-
-/*
- * This function contains 6 FP additions, 4 FP multiplications,
- * (or, 4 additions, 2 multiplications, 2 fused multiply/add),
- * 10 stack variables, and 8 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: ftwi_2.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: ftwi_2.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- * $Id: ftwi_2.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $
- */
-
-void fftwi_twiddle_2(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 1) {
- fftw_real tmp1;
- fftw_real tmp8;
- fftw_real tmp6;
- fftw_real tmp7;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp8 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[iostride]);
- tmp5 = c_im(inout[iostride]);
- tmp2 = c_re(W[0]);
- tmp4 = c_im(W[0]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp7 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- c_re(inout[iostride]) = tmp1 - tmp6;
- c_re(inout[0]) = tmp1 + tmp6;
- c_im(inout[0]) = tmp7 + tmp8;
- c_im(inout[iostride]) = tmp8 - tmp7;
- }
-}
-
-static const int twiddle_order[] =
-{1};
-fftw_codelet_desc fftwi_twiddle_2_desc =
-{
- "fftwi_twiddle_2",
- (void (*)()) fftwi_twiddle_2,
- 2,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 55,
- 1,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_3.c b/src/sndobj/rfftw/ftwi_3.c
deleted file mode 100644
index 154f030..0000000
--- a/src/sndobj/rfftw/ftwi_3.c
+++ /dev/null
@@ -1,120 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:57 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 3 */
-
-/*
- * This function contains 16 FP additions, 12 FP multiplications,
- * (or, 10 additions, 6 multiplications, 6 fused multiply/add),
- * 14 stack variables, and 12 memory accesses
- */
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-
-/*
- * Generator Id's :
- * $Id: ftwi_3.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- * $Id: ftwi_3.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- * $Id: ftwi_3.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $
- */
-
-void fftwi_twiddle_3(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 2) {
- fftw_real tmp1;
- fftw_real tmp18;
- fftw_real tmp6;
- fftw_real tmp15;
- fftw_real tmp11;
- fftw_real tmp14;
- fftw_real tmp12;
- fftw_real tmp17;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp18 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[iostride]);
- tmp5 = c_im(inout[iostride]);
- tmp2 = c_re(W[0]);
- tmp4 = c_im(W[0]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp15 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- {
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp7;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(inout[2 * iostride]);
- tmp10 = c_im(inout[2 * iostride]);
- tmp7 = c_re(W[1]);
- tmp9 = c_im(W[1]);
- tmp11 = (tmp7 * tmp8) + (tmp9 * tmp10);
- tmp14 = (tmp7 * tmp10) - (tmp9 * tmp8);
- }
- tmp12 = tmp6 + tmp11;
- tmp17 = tmp15 + tmp14;
- {
- fftw_real tmp13;
- fftw_real tmp16;
- fftw_real tmp19;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- c_re(inout[0]) = tmp1 + tmp12;
- tmp13 = tmp1 - (K500000000 * tmp12);
- tmp16 = K866025403 * (tmp14 - tmp15);
- c_re(inout[2 * iostride]) = tmp13 - tmp16;
- c_re(inout[iostride]) = tmp13 + tmp16;
- c_im(inout[0]) = tmp17 + tmp18;
- tmp19 = K866025403 * (tmp6 - tmp11);
- tmp20 = tmp18 - (K500000000 * tmp17);
- c_im(inout[iostride]) = tmp19 + tmp20;
- c_im(inout[2 * iostride]) = tmp20 - tmp19;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2};
-fftw_codelet_desc fftwi_twiddle_3_desc =
-{
- "fftwi_twiddle_3",
- (void (*)()) fftwi_twiddle_3,
- 3,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 77,
- 2,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_32.c b/src/sndobj/rfftw/ftwi_32.c
deleted file mode 100644
index 33a1241..0000000
--- a/src/sndobj/rfftw/ftwi_32.c
+++ /dev/null
@@ -1,1384 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:01 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 32 */
-
-/*
- * This function contains 434 FP additions, 208 FP multiplications,
- * (or, 340 additions, 114 multiplications, 94 fused multiply/add),
- * 90 stack variables, and 128 memory accesses
- */
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: ftwi_32.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: ftwi_32.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: ftwi_32.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- */
-
-void fftwi_twiddle_32(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 31) {
- fftw_real tmp19;
- fftw_real tmp387;
- fftw_real tmp472;
- fftw_real tmp486;
- fftw_real tmp442;
- fftw_real tmp456;
- fftw_real tmp191;
- fftw_real tmp303;
- fftw_real tmp161;
- fftw_real tmp403;
- fftw_real tmp276;
- fftw_real tmp316;
- fftw_real tmp372;
- fftw_real tmp400;
- fftw_real tmp259;
- fftw_real tmp319;
- fftw_real tmp42;
- fftw_real tmp455;
- fftw_real tmp201;
- fftw_real tmp304;
- fftw_real tmp390;
- fftw_real tmp437;
- fftw_real tmp196;
- fftw_real tmp305;
- fftw_real tmp184;
- fftw_real tmp401;
- fftw_real tmp375;
- fftw_real tmp404;
- fftw_real tmp270;
- fftw_real tmp317;
- fftw_real tmp279;
- fftw_real tmp320;
- fftw_real tmp66;
- fftw_real tmp395;
- fftw_real tmp224;
- fftw_real tmp312;
- fftw_real tmp357;
- fftw_real tmp396;
- fftw_real tmp219;
- fftw_real tmp311;
- fftw_real tmp114;
- fftw_real tmp410;
- fftw_real tmp249;
- fftw_real tmp323;
- fftw_real tmp363;
- fftw_real tmp407;
- fftw_real tmp232;
- fftw_real tmp326;
- fftw_real tmp89;
- fftw_real tmp393;
- fftw_real tmp213;
- fftw_real tmp309;
- fftw_real tmp354;
- fftw_real tmp392;
- fftw_real tmp208;
- fftw_real tmp308;
- fftw_real tmp137;
- fftw_real tmp408;
- fftw_real tmp366;
- fftw_real tmp411;
- fftw_real tmp243;
- fftw_real tmp324;
- fftw_real tmp252;
- fftw_real tmp327;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp440;
- fftw_real tmp6;
- fftw_real tmp439;
- fftw_real tmp12;
- fftw_real tmp188;
- fftw_real tmp17;
- fftw_real tmp189;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp440 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[16 * iostride]);
- tmp5 = c_im(inout[16 * iostride]);
- tmp2 = c_re(W[15]);
- tmp4 = c_im(W[15]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp439 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[8 * iostride]);
- tmp11 = c_im(inout[8 * iostride]);
- tmp8 = c_re(W[7]);
- tmp10 = c_im(W[7]);
- tmp12 = (tmp8 * tmp9) + (tmp10 * tmp11);
- tmp188 = (tmp8 * tmp11) - (tmp10 * tmp9);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[24 * iostride]);
- tmp16 = c_im(inout[24 * iostride]);
- tmp13 = c_re(W[23]);
- tmp15 = c_im(W[23]);
- tmp17 = (tmp13 * tmp14) + (tmp15 * tmp16);
- tmp189 = (tmp13 * tmp16) - (tmp15 * tmp14);
- }
- {
- fftw_real tmp7;
- fftw_real tmp18;
- fftw_real tmp470;
- fftw_real tmp471;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = tmp1 + tmp6;
- tmp18 = tmp12 + tmp17;
- tmp19 = tmp7 + tmp18;
- tmp387 = tmp7 - tmp18;
- tmp470 = tmp12 - tmp17;
- tmp471 = tmp440 - tmp439;
- tmp472 = tmp470 + tmp471;
- tmp486 = tmp471 - tmp470;
- }
- {
- fftw_real tmp438;
- fftw_real tmp441;
- fftw_real tmp187;
- fftw_real tmp190;
- ASSERT_ALIGNED_DOUBLE;
- tmp438 = tmp188 + tmp189;
- tmp441 = tmp439 + tmp440;
- tmp442 = tmp438 + tmp441;
- tmp456 = tmp441 - tmp438;
- tmp187 = tmp1 - tmp6;
- tmp190 = tmp188 - tmp189;
- tmp191 = tmp187 - tmp190;
- tmp303 = tmp187 + tmp190;
- }
- }
- {
- fftw_real tmp143;
- fftw_real tmp272;
- fftw_real tmp159;
- fftw_real tmp257;
- fftw_real tmp148;
- fftw_real tmp273;
- fftw_real tmp154;
- fftw_real tmp256;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp140;
- fftw_real tmp142;
- fftw_real tmp139;
- fftw_real tmp141;
- ASSERT_ALIGNED_DOUBLE;
- tmp140 = c_re(inout[31 * iostride]);
- tmp142 = c_im(inout[31 * iostride]);
- tmp139 = c_re(W[30]);
- tmp141 = c_im(W[30]);
- tmp143 = (tmp139 * tmp140) + (tmp141 * tmp142);
- tmp272 = (tmp139 * tmp142) - (tmp141 * tmp140);
- }
- {
- fftw_real tmp156;
- fftw_real tmp158;
- fftw_real tmp155;
- fftw_real tmp157;
- ASSERT_ALIGNED_DOUBLE;
- tmp156 = c_re(inout[23 * iostride]);
- tmp158 = c_im(inout[23 * iostride]);
- tmp155 = c_re(W[22]);
- tmp157 = c_im(W[22]);
- tmp159 = (tmp155 * tmp156) + (tmp157 * tmp158);
- tmp257 = (tmp155 * tmp158) - (tmp157 * tmp156);
- }
- {
- fftw_real tmp145;
- fftw_real tmp147;
- fftw_real tmp144;
- fftw_real tmp146;
- ASSERT_ALIGNED_DOUBLE;
- tmp145 = c_re(inout[15 * iostride]);
- tmp147 = c_im(inout[15 * iostride]);
- tmp144 = c_re(W[14]);
- tmp146 = c_im(W[14]);
- tmp148 = (tmp144 * tmp145) + (tmp146 * tmp147);
- tmp273 = (tmp144 * tmp147) - (tmp146 * tmp145);
- }
- {
- fftw_real tmp151;
- fftw_real tmp153;
- fftw_real tmp150;
- fftw_real tmp152;
- ASSERT_ALIGNED_DOUBLE;
- tmp151 = c_re(inout[7 * iostride]);
- tmp153 = c_im(inout[7 * iostride]);
- tmp150 = c_re(W[6]);
- tmp152 = c_im(W[6]);
- tmp154 = (tmp150 * tmp151) + (tmp152 * tmp153);
- tmp256 = (tmp150 * tmp153) - (tmp152 * tmp151);
- }
- {
- fftw_real tmp149;
- fftw_real tmp160;
- fftw_real tmp274;
- fftw_real tmp275;
- ASSERT_ALIGNED_DOUBLE;
- tmp149 = tmp143 + tmp148;
- tmp160 = tmp154 + tmp159;
- tmp161 = tmp149 + tmp160;
- tmp403 = tmp149 - tmp160;
- tmp274 = tmp272 - tmp273;
- tmp275 = tmp154 - tmp159;
- tmp276 = tmp274 + tmp275;
- tmp316 = tmp274 - tmp275;
- }
- {
- fftw_real tmp370;
- fftw_real tmp371;
- fftw_real tmp255;
- fftw_real tmp258;
- ASSERT_ALIGNED_DOUBLE;
- tmp370 = tmp272 + tmp273;
- tmp371 = tmp256 + tmp257;
- tmp372 = tmp370 + tmp371;
- tmp400 = tmp370 - tmp371;
- tmp255 = tmp143 - tmp148;
- tmp258 = tmp256 - tmp257;
- tmp259 = tmp255 - tmp258;
- tmp319 = tmp255 + tmp258;
- }
- }
- {
- fftw_real tmp24;
- fftw_real tmp193;
- fftw_real tmp40;
- fftw_real tmp199;
- fftw_real tmp29;
- fftw_real tmp194;
- fftw_real tmp35;
- fftw_real tmp198;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp21;
- fftw_real tmp23;
- fftw_real tmp20;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = c_re(inout[4 * iostride]);
- tmp23 = c_im(inout[4 * iostride]);
- tmp20 = c_re(W[3]);
- tmp22 = c_im(W[3]);
- tmp24 = (tmp20 * tmp21) + (tmp22 * tmp23);
- tmp193 = (tmp20 * tmp23) - (tmp22 * tmp21);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[12 * iostride]);
- tmp39 = c_im(inout[12 * iostride]);
- tmp36 = c_re(W[11]);
- tmp38 = c_im(W[11]);
- tmp40 = (tmp36 * tmp37) + (tmp38 * tmp39);
- tmp199 = (tmp36 * tmp39) - (tmp38 * tmp37);
- }
- {
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp25;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(inout[20 * iostride]);
- tmp28 = c_im(inout[20 * iostride]);
- tmp25 = c_re(W[19]);
- tmp27 = c_im(W[19]);
- tmp29 = (tmp25 * tmp26) + (tmp27 * tmp28);
- tmp194 = (tmp25 * tmp28) - (tmp27 * tmp26);
- }
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[28 * iostride]);
- tmp34 = c_im(inout[28 * iostride]);
- tmp31 = c_re(W[27]);
- tmp33 = c_im(W[27]);
- tmp35 = (tmp31 * tmp32) + (tmp33 * tmp34);
- tmp198 = (tmp31 * tmp34) - (tmp33 * tmp32);
- }
- {
- fftw_real tmp30;
- fftw_real tmp41;
- fftw_real tmp197;
- fftw_real tmp200;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = tmp24 + tmp29;
- tmp41 = tmp35 + tmp40;
- tmp42 = tmp30 + tmp41;
- tmp455 = tmp30 - tmp41;
- tmp197 = tmp35 - tmp40;
- tmp200 = tmp198 - tmp199;
- tmp201 = tmp197 + tmp200;
- tmp304 = tmp200 - tmp197;
- }
- {
- fftw_real tmp388;
- fftw_real tmp389;
- fftw_real tmp192;
- fftw_real tmp195;
- ASSERT_ALIGNED_DOUBLE;
- tmp388 = tmp198 + tmp199;
- tmp389 = tmp193 + tmp194;
- tmp390 = tmp388 - tmp389;
- tmp437 = tmp389 + tmp388;
- tmp192 = tmp24 - tmp29;
- tmp195 = tmp193 - tmp194;
- tmp196 = tmp192 - tmp195;
- tmp305 = tmp192 + tmp195;
- }
- }
- {
- fftw_real tmp166;
- fftw_real tmp261;
- fftw_real tmp171;
- fftw_real tmp262;
- fftw_real tmp260;
- fftw_real tmp263;
- fftw_real tmp177;
- fftw_real tmp266;
- fftw_real tmp182;
- fftw_real tmp267;
- fftw_real tmp265;
- fftw_real tmp268;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp163;
- fftw_real tmp165;
- fftw_real tmp162;
- fftw_real tmp164;
- ASSERT_ALIGNED_DOUBLE;
- tmp163 = c_re(inout[3 * iostride]);
- tmp165 = c_im(inout[3 * iostride]);
- tmp162 = c_re(W[2]);
- tmp164 = c_im(W[2]);
- tmp166 = (tmp162 * tmp163) + (tmp164 * tmp165);
- tmp261 = (tmp162 * tmp165) - (tmp164 * tmp163);
- }
- {
- fftw_real tmp168;
- fftw_real tmp170;
- fftw_real tmp167;
- fftw_real tmp169;
- ASSERT_ALIGNED_DOUBLE;
- tmp168 = c_re(inout[19 * iostride]);
- tmp170 = c_im(inout[19 * iostride]);
- tmp167 = c_re(W[18]);
- tmp169 = c_im(W[18]);
- tmp171 = (tmp167 * tmp168) + (tmp169 * tmp170);
- tmp262 = (tmp167 * tmp170) - (tmp169 * tmp168);
- }
- tmp260 = tmp166 - tmp171;
- tmp263 = tmp261 - tmp262;
- {
- fftw_real tmp174;
- fftw_real tmp176;
- fftw_real tmp173;
- fftw_real tmp175;
- ASSERT_ALIGNED_DOUBLE;
- tmp174 = c_re(inout[27 * iostride]);
- tmp176 = c_im(inout[27 * iostride]);
- tmp173 = c_re(W[26]);
- tmp175 = c_im(W[26]);
- tmp177 = (tmp173 * tmp174) + (tmp175 * tmp176);
- tmp266 = (tmp173 * tmp176) - (tmp175 * tmp174);
- }
- {
- fftw_real tmp179;
- fftw_real tmp181;
- fftw_real tmp178;
- fftw_real tmp180;
- ASSERT_ALIGNED_DOUBLE;
- tmp179 = c_re(inout[11 * iostride]);
- tmp181 = c_im(inout[11 * iostride]);
- tmp178 = c_re(W[10]);
- tmp180 = c_im(W[10]);
- tmp182 = (tmp178 * tmp179) + (tmp180 * tmp181);
- tmp267 = (tmp178 * tmp181) - (tmp180 * tmp179);
- }
- tmp265 = tmp177 - tmp182;
- tmp268 = tmp266 - tmp267;
- {
- fftw_real tmp172;
- fftw_real tmp183;
- fftw_real tmp373;
- fftw_real tmp374;
- ASSERT_ALIGNED_DOUBLE;
- tmp172 = tmp166 + tmp171;
- tmp183 = tmp177 + tmp182;
- tmp184 = tmp172 + tmp183;
- tmp401 = tmp172 - tmp183;
- tmp373 = tmp261 + tmp262;
- tmp374 = tmp266 + tmp267;
- tmp375 = tmp373 + tmp374;
- tmp404 = tmp374 - tmp373;
- }
- {
- fftw_real tmp264;
- fftw_real tmp269;
- fftw_real tmp277;
- fftw_real tmp278;
- ASSERT_ALIGNED_DOUBLE;
- tmp264 = tmp260 - tmp263;
- tmp269 = tmp265 + tmp268;
- tmp270 = K707106781 * (tmp264 + tmp269);
- tmp317 = K707106781 * (tmp264 - tmp269);
- tmp277 = tmp260 + tmp263;
- tmp278 = tmp268 - tmp265;
- tmp279 = K707106781 * (tmp277 + tmp278);
- tmp320 = K707106781 * (tmp278 - tmp277);
- }
- }
- {
- fftw_real tmp48;
- fftw_real tmp215;
- fftw_real tmp64;
- fftw_real tmp222;
- fftw_real tmp53;
- fftw_real tmp216;
- fftw_real tmp59;
- fftw_real tmp221;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp45;
- fftw_real tmp47;
- fftw_real tmp44;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = c_re(inout[2 * iostride]);
- tmp47 = c_im(inout[2 * iostride]);
- tmp44 = c_re(W[1]);
- tmp46 = c_im(W[1]);
- tmp48 = (tmp44 * tmp45) + (tmp46 * tmp47);
- tmp215 = (tmp44 * tmp47) - (tmp46 * tmp45);
- }
- {
- fftw_real tmp61;
- fftw_real tmp63;
- fftw_real tmp60;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = c_re(inout[26 * iostride]);
- tmp63 = c_im(inout[26 * iostride]);
- tmp60 = c_re(W[25]);
- tmp62 = c_im(W[25]);
- tmp64 = (tmp60 * tmp61) + (tmp62 * tmp63);
- tmp222 = (tmp60 * tmp63) - (tmp62 * tmp61);
- }
- {
- fftw_real tmp50;
- fftw_real tmp52;
- fftw_real tmp49;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = c_re(inout[18 * iostride]);
- tmp52 = c_im(inout[18 * iostride]);
- tmp49 = c_re(W[17]);
- tmp51 = c_im(W[17]);
- tmp53 = (tmp49 * tmp50) + (tmp51 * tmp52);
- tmp216 = (tmp49 * tmp52) - (tmp51 * tmp50);
- }
- {
- fftw_real tmp56;
- fftw_real tmp58;
- fftw_real tmp55;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp56 = c_re(inout[10 * iostride]);
- tmp58 = c_im(inout[10 * iostride]);
- tmp55 = c_re(W[9]);
- tmp57 = c_im(W[9]);
- tmp59 = (tmp55 * tmp56) + (tmp57 * tmp58);
- tmp221 = (tmp55 * tmp58) - (tmp57 * tmp56);
- }
- {
- fftw_real tmp54;
- fftw_real tmp65;
- fftw_real tmp220;
- fftw_real tmp223;
- ASSERT_ALIGNED_DOUBLE;
- tmp54 = tmp48 + tmp53;
- tmp65 = tmp59 + tmp64;
- tmp66 = tmp54 + tmp65;
- tmp395 = tmp54 - tmp65;
- tmp220 = tmp48 - tmp53;
- tmp223 = tmp221 - tmp222;
- tmp224 = tmp220 - tmp223;
- tmp312 = tmp220 + tmp223;
- }
- {
- fftw_real tmp355;
- fftw_real tmp356;
- fftw_real tmp217;
- fftw_real tmp218;
- ASSERT_ALIGNED_DOUBLE;
- tmp355 = tmp215 + tmp216;
- tmp356 = tmp221 + tmp222;
- tmp357 = tmp355 + tmp356;
- tmp396 = tmp355 - tmp356;
- tmp217 = tmp215 - tmp216;
- tmp218 = tmp59 - tmp64;
- tmp219 = tmp217 + tmp218;
- tmp311 = tmp217 - tmp218;
- }
- }
- {
- fftw_real tmp96;
- fftw_real tmp245;
- fftw_real tmp112;
- fftw_real tmp230;
- fftw_real tmp101;
- fftw_real tmp246;
- fftw_real tmp107;
- fftw_real tmp229;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp93;
- fftw_real tmp95;
- fftw_real tmp92;
- fftw_real tmp94;
- ASSERT_ALIGNED_DOUBLE;
- tmp93 = c_re(inout[iostride]);
- tmp95 = c_im(inout[iostride]);
- tmp92 = c_re(W[0]);
- tmp94 = c_im(W[0]);
- tmp96 = (tmp92 * tmp93) + (tmp94 * tmp95);
- tmp245 = (tmp92 * tmp95) - (tmp94 * tmp93);
- }
- {
- fftw_real tmp109;
- fftw_real tmp111;
- fftw_real tmp108;
- fftw_real tmp110;
- ASSERT_ALIGNED_DOUBLE;
- tmp109 = c_re(inout[25 * iostride]);
- tmp111 = c_im(inout[25 * iostride]);
- tmp108 = c_re(W[24]);
- tmp110 = c_im(W[24]);
- tmp112 = (tmp108 * tmp109) + (tmp110 * tmp111);
- tmp230 = (tmp108 * tmp111) - (tmp110 * tmp109);
- }
- {
- fftw_real tmp98;
- fftw_real tmp100;
- fftw_real tmp97;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- tmp98 = c_re(inout[17 * iostride]);
- tmp100 = c_im(inout[17 * iostride]);
- tmp97 = c_re(W[16]);
- tmp99 = c_im(W[16]);
- tmp101 = (tmp97 * tmp98) + (tmp99 * tmp100);
- tmp246 = (tmp97 * tmp100) - (tmp99 * tmp98);
- }
- {
- fftw_real tmp104;
- fftw_real tmp106;
- fftw_real tmp103;
- fftw_real tmp105;
- ASSERT_ALIGNED_DOUBLE;
- tmp104 = c_re(inout[9 * iostride]);
- tmp106 = c_im(inout[9 * iostride]);
- tmp103 = c_re(W[8]);
- tmp105 = c_im(W[8]);
- tmp107 = (tmp103 * tmp104) + (tmp105 * tmp106);
- tmp229 = (tmp103 * tmp106) - (tmp105 * tmp104);
- }
- {
- fftw_real tmp102;
- fftw_real tmp113;
- fftw_real tmp247;
- fftw_real tmp248;
- ASSERT_ALIGNED_DOUBLE;
- tmp102 = tmp96 + tmp101;
- tmp113 = tmp107 + tmp112;
- tmp114 = tmp102 + tmp113;
- tmp410 = tmp102 - tmp113;
- tmp247 = tmp245 - tmp246;
- tmp248 = tmp107 - tmp112;
- tmp249 = tmp247 + tmp248;
- tmp323 = tmp247 - tmp248;
- }
- {
- fftw_real tmp361;
- fftw_real tmp362;
- fftw_real tmp228;
- fftw_real tmp231;
- ASSERT_ALIGNED_DOUBLE;
- tmp361 = tmp245 + tmp246;
- tmp362 = tmp229 + tmp230;
- tmp363 = tmp361 + tmp362;
- tmp407 = tmp361 - tmp362;
- tmp228 = tmp96 - tmp101;
- tmp231 = tmp229 - tmp230;
- tmp232 = tmp228 - tmp231;
- tmp326 = tmp228 + tmp231;
- }
- }
- {
- fftw_real tmp71;
- fftw_real tmp204;
- fftw_real tmp87;
- fftw_real tmp211;
- fftw_real tmp76;
- fftw_real tmp205;
- fftw_real tmp82;
- fftw_real tmp210;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp68;
- fftw_real tmp70;
- fftw_real tmp67;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- tmp68 = c_re(inout[30 * iostride]);
- tmp70 = c_im(inout[30 * iostride]);
- tmp67 = c_re(W[29]);
- tmp69 = c_im(W[29]);
- tmp71 = (tmp67 * tmp68) + (tmp69 * tmp70);
- tmp204 = (tmp67 * tmp70) - (tmp69 * tmp68);
- }
- {
- fftw_real tmp84;
- fftw_real tmp86;
- fftw_real tmp83;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- tmp84 = c_re(inout[22 * iostride]);
- tmp86 = c_im(inout[22 * iostride]);
- tmp83 = c_re(W[21]);
- tmp85 = c_im(W[21]);
- tmp87 = (tmp83 * tmp84) + (tmp85 * tmp86);
- tmp211 = (tmp83 * tmp86) - (tmp85 * tmp84);
- }
- {
- fftw_real tmp73;
- fftw_real tmp75;
- fftw_real tmp72;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = c_re(inout[14 * iostride]);
- tmp75 = c_im(inout[14 * iostride]);
- tmp72 = c_re(W[13]);
- tmp74 = c_im(W[13]);
- tmp76 = (tmp72 * tmp73) + (tmp74 * tmp75);
- tmp205 = (tmp72 * tmp75) - (tmp74 * tmp73);
- }
- {
- fftw_real tmp79;
- fftw_real tmp81;
- fftw_real tmp78;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp79 = c_re(inout[6 * iostride]);
- tmp81 = c_im(inout[6 * iostride]);
- tmp78 = c_re(W[5]);
- tmp80 = c_im(W[5]);
- tmp82 = (tmp78 * tmp79) + (tmp80 * tmp81);
- tmp210 = (tmp78 * tmp81) - (tmp80 * tmp79);
- }
- {
- fftw_real tmp77;
- fftw_real tmp88;
- fftw_real tmp209;
- fftw_real tmp212;
- ASSERT_ALIGNED_DOUBLE;
- tmp77 = tmp71 + tmp76;
- tmp88 = tmp82 + tmp87;
- tmp89 = tmp77 + tmp88;
- tmp393 = tmp77 - tmp88;
- tmp209 = tmp71 - tmp76;
- tmp212 = tmp210 - tmp211;
- tmp213 = tmp209 - tmp212;
- tmp309 = tmp209 + tmp212;
- }
- {
- fftw_real tmp352;
- fftw_real tmp353;
- fftw_real tmp206;
- fftw_real tmp207;
- ASSERT_ALIGNED_DOUBLE;
- tmp352 = tmp204 + tmp205;
- tmp353 = tmp210 + tmp211;
- tmp354 = tmp352 + tmp353;
- tmp392 = tmp352 - tmp353;
- tmp206 = tmp204 - tmp205;
- tmp207 = tmp82 - tmp87;
- tmp208 = tmp206 + tmp207;
- tmp308 = tmp206 - tmp207;
- }
- }
- {
- fftw_real tmp119;
- fftw_real tmp234;
- fftw_real tmp124;
- fftw_real tmp235;
- fftw_real tmp233;
- fftw_real tmp236;
- fftw_real tmp130;
- fftw_real tmp239;
- fftw_real tmp135;
- fftw_real tmp240;
- fftw_real tmp238;
- fftw_real tmp241;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp116;
- fftw_real tmp118;
- fftw_real tmp115;
- fftw_real tmp117;
- ASSERT_ALIGNED_DOUBLE;
- tmp116 = c_re(inout[5 * iostride]);
- tmp118 = c_im(inout[5 * iostride]);
- tmp115 = c_re(W[4]);
- tmp117 = c_im(W[4]);
- tmp119 = (tmp115 * tmp116) + (tmp117 * tmp118);
- tmp234 = (tmp115 * tmp118) - (tmp117 * tmp116);
- }
- {
- fftw_real tmp121;
- fftw_real tmp123;
- fftw_real tmp120;
- fftw_real tmp122;
- ASSERT_ALIGNED_DOUBLE;
- tmp121 = c_re(inout[21 * iostride]);
- tmp123 = c_im(inout[21 * iostride]);
- tmp120 = c_re(W[20]);
- tmp122 = c_im(W[20]);
- tmp124 = (tmp120 * tmp121) + (tmp122 * tmp123);
- tmp235 = (tmp120 * tmp123) - (tmp122 * tmp121);
- }
- tmp233 = tmp119 - tmp124;
- tmp236 = tmp234 - tmp235;
- {
- fftw_real tmp127;
- fftw_real tmp129;
- fftw_real tmp126;
- fftw_real tmp128;
- ASSERT_ALIGNED_DOUBLE;
- tmp127 = c_re(inout[29 * iostride]);
- tmp129 = c_im(inout[29 * iostride]);
- tmp126 = c_re(W[28]);
- tmp128 = c_im(W[28]);
- tmp130 = (tmp126 * tmp127) + (tmp128 * tmp129);
- tmp239 = (tmp126 * tmp129) - (tmp128 * tmp127);
- }
- {
- fftw_real tmp132;
- fftw_real tmp134;
- fftw_real tmp131;
- fftw_real tmp133;
- ASSERT_ALIGNED_DOUBLE;
- tmp132 = c_re(inout[13 * iostride]);
- tmp134 = c_im(inout[13 * iostride]);
- tmp131 = c_re(W[12]);
- tmp133 = c_im(W[12]);
- tmp135 = (tmp131 * tmp132) + (tmp133 * tmp134);
- tmp240 = (tmp131 * tmp134) - (tmp133 * tmp132);
- }
- tmp238 = tmp130 - tmp135;
- tmp241 = tmp239 - tmp240;
- {
- fftw_real tmp125;
- fftw_real tmp136;
- fftw_real tmp364;
- fftw_real tmp365;
- ASSERT_ALIGNED_DOUBLE;
- tmp125 = tmp119 + tmp124;
- tmp136 = tmp130 + tmp135;
- tmp137 = tmp125 + tmp136;
- tmp408 = tmp125 - tmp136;
- tmp364 = tmp234 + tmp235;
- tmp365 = tmp239 + tmp240;
- tmp366 = tmp364 + tmp365;
- tmp411 = tmp365 - tmp364;
- }
- {
- fftw_real tmp237;
- fftw_real tmp242;
- fftw_real tmp250;
- fftw_real tmp251;
- ASSERT_ALIGNED_DOUBLE;
- tmp237 = tmp233 - tmp236;
- tmp242 = tmp238 + tmp241;
- tmp243 = K707106781 * (tmp237 + tmp242);
- tmp324 = K707106781 * (tmp237 - tmp242);
- tmp250 = tmp233 + tmp236;
- tmp251 = tmp241 - tmp238;
- tmp252 = K707106781 * (tmp250 + tmp251);
- tmp327 = K707106781 * (tmp251 - tmp250);
- }
- }
- {
- fftw_real tmp91;
- fftw_real tmp383;
- fftw_real tmp444;
- fftw_real tmp446;
- fftw_real tmp186;
- fftw_real tmp445;
- fftw_real tmp386;
- fftw_real tmp435;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp43;
- fftw_real tmp90;
- fftw_real tmp436;
- fftw_real tmp443;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = tmp19 + tmp42;
- tmp90 = tmp66 + tmp89;
- tmp91 = tmp43 + tmp90;
- tmp383 = tmp43 - tmp90;
- tmp436 = tmp357 + tmp354;
- tmp443 = tmp437 + tmp442;
- tmp444 = tmp436 + tmp443;
- tmp446 = tmp443 - tmp436;
- }
- {
- fftw_real tmp138;
- fftw_real tmp185;
- fftw_real tmp384;
- fftw_real tmp385;
- ASSERT_ALIGNED_DOUBLE;
- tmp138 = tmp114 + tmp137;
- tmp185 = tmp161 + tmp184;
- tmp186 = tmp138 + tmp185;
- tmp445 = tmp138 - tmp185;
- tmp384 = tmp372 + tmp375;
- tmp385 = tmp363 + tmp366;
- tmp386 = tmp384 - tmp385;
- tmp435 = tmp385 + tmp384;
- }
- c_re(inout[16 * iostride]) = tmp91 - tmp186;
- c_re(inout[0]) = tmp91 + tmp186;
- c_re(inout[24 * iostride]) = tmp383 - tmp386;
- c_re(inout[8 * iostride]) = tmp383 + tmp386;
- c_im(inout[0]) = tmp435 + tmp444;
- c_im(inout[16 * iostride]) = tmp444 - tmp435;
- c_im(inout[8 * iostride]) = tmp445 + tmp446;
- c_im(inout[24 * iostride]) = tmp446 - tmp445;
- }
- {
- fftw_real tmp359;
- fftw_real tmp379;
- fftw_real tmp450;
- fftw_real tmp452;
- fftw_real tmp368;
- fftw_real tmp381;
- fftw_real tmp377;
- fftw_real tmp380;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp351;
- fftw_real tmp358;
- fftw_real tmp448;
- fftw_real tmp449;
- ASSERT_ALIGNED_DOUBLE;
- tmp351 = tmp19 - tmp42;
- tmp358 = tmp354 - tmp357;
- tmp359 = tmp351 + tmp358;
- tmp379 = tmp351 - tmp358;
- tmp448 = tmp66 - tmp89;
- tmp449 = tmp442 - tmp437;
- tmp450 = tmp448 + tmp449;
- tmp452 = tmp449 - tmp448;
- }
- {
- fftw_real tmp360;
- fftw_real tmp367;
- fftw_real tmp369;
- fftw_real tmp376;
- ASSERT_ALIGNED_DOUBLE;
- tmp360 = tmp114 - tmp137;
- tmp367 = tmp363 - tmp366;
- tmp368 = tmp360 - tmp367;
- tmp381 = tmp360 + tmp367;
- tmp369 = tmp161 - tmp184;
- tmp376 = tmp372 - tmp375;
- tmp377 = tmp369 + tmp376;
- tmp380 = tmp376 - tmp369;
- }
- {
- fftw_real tmp378;
- fftw_real tmp451;
- fftw_real tmp382;
- fftw_real tmp447;
- ASSERT_ALIGNED_DOUBLE;
- tmp378 = K707106781 * (tmp368 + tmp377);
- c_re(inout[20 * iostride]) = tmp359 - tmp378;
- c_re(inout[4 * iostride]) = tmp359 + tmp378;
- tmp451 = K707106781 * (tmp368 - tmp377);
- c_im(inout[12 * iostride]) = tmp451 + tmp452;
- c_im(inout[28 * iostride]) = tmp452 - tmp451;
- tmp382 = K707106781 * (tmp380 - tmp381);
- c_re(inout[28 * iostride]) = tmp379 - tmp382;
- c_re(inout[12 * iostride]) = tmp379 + tmp382;
- tmp447 = K707106781 * (tmp381 + tmp380);
- c_im(inout[4 * iostride]) = tmp447 + tmp450;
- c_im(inout[20 * iostride]) = tmp450 - tmp447;
- }
- }
- {
- fftw_real tmp391;
- fftw_real tmp419;
- fftw_real tmp398;
- fftw_real tmp454;
- fftw_real tmp422;
- fftw_real tmp462;
- fftw_real tmp406;
- fftw_real tmp417;
- fftw_real tmp457;
- fftw_real tmp463;
- fftw_real tmp426;
- fftw_real tmp433;
- fftw_real tmp413;
- fftw_real tmp416;
- fftw_real tmp429;
- fftw_real tmp432;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp394;
- fftw_real tmp397;
- fftw_real tmp424;
- fftw_real tmp425;
- ASSERT_ALIGNED_DOUBLE;
- tmp391 = tmp387 - tmp390;
- tmp419 = tmp387 + tmp390;
- tmp394 = tmp392 - tmp393;
- tmp397 = tmp395 + tmp396;
- tmp398 = K707106781 * (tmp394 - tmp397);
- tmp454 = K707106781 * (tmp397 + tmp394);
- {
- fftw_real tmp420;
- fftw_real tmp421;
- fftw_real tmp402;
- fftw_real tmp405;
- ASSERT_ALIGNED_DOUBLE;
- tmp420 = tmp395 - tmp396;
- tmp421 = tmp393 + tmp392;
- tmp422 = K707106781 * (tmp420 + tmp421);
- tmp462 = K707106781 * (tmp420 - tmp421);
- tmp402 = tmp400 - tmp401;
- tmp405 = tmp403 - tmp404;
- tmp406 = (K382683432 * tmp402) - (K923879532 * tmp405);
- tmp417 = (K923879532 * tmp402) + (K382683432 * tmp405);
- }
- tmp457 = tmp455 + tmp456;
- tmp463 = tmp456 - tmp455;
- tmp424 = tmp400 + tmp401;
- tmp425 = tmp403 + tmp404;
- tmp426 = (K923879532 * tmp424) - (K382683432 * tmp425);
- tmp433 = (K382683432 * tmp424) + (K923879532 * tmp425);
- {
- fftw_real tmp409;
- fftw_real tmp412;
- fftw_real tmp427;
- fftw_real tmp428;
- ASSERT_ALIGNED_DOUBLE;
- tmp409 = tmp407 - tmp408;
- tmp412 = tmp410 - tmp411;
- tmp413 = (K382683432 * tmp409) + (K923879532 * tmp412);
- tmp416 = (K382683432 * tmp412) - (K923879532 * tmp409);
- tmp427 = tmp407 + tmp408;
- tmp428 = tmp410 + tmp411;
- tmp429 = (K923879532 * tmp427) + (K382683432 * tmp428);
- tmp432 = (K923879532 * tmp428) - (K382683432 * tmp427);
- }
- }
- {
- fftw_real tmp399;
- fftw_real tmp414;
- fftw_real tmp415;
- fftw_real tmp418;
- ASSERT_ALIGNED_DOUBLE;
- tmp399 = tmp391 - tmp398;
- tmp414 = tmp406 - tmp413;
- c_re(inout[30 * iostride]) = tmp399 - tmp414;
- c_re(inout[14 * iostride]) = tmp399 + tmp414;
- tmp415 = tmp391 + tmp398;
- tmp418 = tmp416 + tmp417;
- c_re(inout[22 * iostride]) = tmp415 - tmp418;
- c_re(inout[6 * iostride]) = tmp415 + tmp418;
- }
- {
- fftw_real tmp465;
- fftw_real tmp466;
- fftw_real tmp461;
- fftw_real tmp464;
- ASSERT_ALIGNED_DOUBLE;
- tmp465 = tmp416 - tmp417;
- tmp466 = tmp463 - tmp462;
- c_im(inout[14 * iostride]) = tmp465 + tmp466;
- c_im(inout[30 * iostride]) = tmp466 - tmp465;
- tmp461 = tmp413 + tmp406;
- tmp464 = tmp462 + tmp463;
- c_im(inout[6 * iostride]) = tmp461 + tmp464;
- c_im(inout[22 * iostride]) = tmp464 - tmp461;
- }
- {
- fftw_real tmp423;
- fftw_real tmp430;
- fftw_real tmp431;
- fftw_real tmp434;
- ASSERT_ALIGNED_DOUBLE;
- tmp423 = tmp419 - tmp422;
- tmp430 = tmp426 - tmp429;
- c_re(inout[26 * iostride]) = tmp423 - tmp430;
- c_re(inout[10 * iostride]) = tmp423 + tmp430;
- tmp431 = tmp419 + tmp422;
- tmp434 = tmp432 + tmp433;
- c_re(inout[18 * iostride]) = tmp431 - tmp434;
- c_re(inout[2 * iostride]) = tmp431 + tmp434;
- }
- {
- fftw_real tmp459;
- fftw_real tmp460;
- fftw_real tmp453;
- fftw_real tmp458;
- ASSERT_ALIGNED_DOUBLE;
- tmp459 = tmp432 - tmp433;
- tmp460 = tmp457 - tmp454;
- c_im(inout[10 * iostride]) = tmp459 + tmp460;
- c_im(inout[26 * iostride]) = tmp460 - tmp459;
- tmp453 = tmp429 + tmp426;
- tmp458 = tmp454 + tmp457;
- c_im(inout[2 * iostride]) = tmp453 + tmp458;
- c_im(inout[18 * iostride]) = tmp458 - tmp453;
- }
- }
- {
- fftw_real tmp307;
- fftw_real tmp335;
- fftw_real tmp338;
- fftw_real tmp492;
- fftw_real tmp487;
- fftw_real tmp493;
- fftw_real tmp314;
- fftw_real tmp484;
- fftw_real tmp322;
- fftw_real tmp333;
- fftw_real tmp342;
- fftw_real tmp349;
- fftw_real tmp329;
- fftw_real tmp332;
- fftw_real tmp345;
- fftw_real tmp348;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp306;
- fftw_real tmp336;
- fftw_real tmp337;
- fftw_real tmp485;
- fftw_real tmp310;
- fftw_real tmp313;
- ASSERT_ALIGNED_DOUBLE;
- tmp306 = K707106781 * (tmp304 - tmp305);
- tmp307 = tmp303 - tmp306;
- tmp335 = tmp303 + tmp306;
- tmp336 = (K382683432 * tmp312) - (K923879532 * tmp311);
- tmp337 = (K923879532 * tmp308) + (K382683432 * tmp309);
- tmp338 = tmp336 + tmp337;
- tmp492 = tmp336 - tmp337;
- tmp485 = K707106781 * (tmp196 - tmp201);
- tmp487 = tmp485 + tmp486;
- tmp493 = tmp486 - tmp485;
- tmp310 = (K382683432 * tmp308) - (K923879532 * tmp309);
- tmp313 = (K382683432 * tmp311) + (K923879532 * tmp312);
- tmp314 = tmp310 - tmp313;
- tmp484 = tmp313 + tmp310;
- }
- {
- fftw_real tmp318;
- fftw_real tmp321;
- fftw_real tmp340;
- fftw_real tmp341;
- ASSERT_ALIGNED_DOUBLE;
- tmp318 = tmp316 - tmp317;
- tmp321 = tmp319 - tmp320;
- tmp322 = (K195090322 * tmp318) - (K980785280 * tmp321);
- tmp333 = (K980785280 * tmp318) + (K195090322 * tmp321);
- tmp340 = tmp316 + tmp317;
- tmp341 = tmp319 + tmp320;
- tmp342 = (K831469612 * tmp340) - (K555570233 * tmp341);
- tmp349 = (K555570233 * tmp340) + (K831469612 * tmp341);
- }
- {
- fftw_real tmp325;
- fftw_real tmp328;
- fftw_real tmp343;
- fftw_real tmp344;
- ASSERT_ALIGNED_DOUBLE;
- tmp325 = tmp323 - tmp324;
- tmp328 = tmp326 - tmp327;
- tmp329 = (K195090322 * tmp325) + (K980785280 * tmp328);
- tmp332 = (K195090322 * tmp328) - (K980785280 * tmp325);
- tmp343 = tmp323 + tmp324;
- tmp344 = tmp326 + tmp327;
- tmp345 = (K831469612 * tmp343) + (K555570233 * tmp344);
- tmp348 = (K831469612 * tmp344) - (K555570233 * tmp343);
- }
- {
- fftw_real tmp315;
- fftw_real tmp330;
- fftw_real tmp331;
- fftw_real tmp334;
- ASSERT_ALIGNED_DOUBLE;
- tmp315 = tmp307 - tmp314;
- tmp330 = tmp322 - tmp329;
- c_re(inout[31 * iostride]) = tmp315 - tmp330;
- c_re(inout[15 * iostride]) = tmp315 + tmp330;
- tmp331 = tmp307 + tmp314;
- tmp334 = tmp332 + tmp333;
- c_re(inout[23 * iostride]) = tmp331 - tmp334;
- c_re(inout[7 * iostride]) = tmp331 + tmp334;
- }
- {
- fftw_real tmp495;
- fftw_real tmp496;
- fftw_real tmp491;
- fftw_real tmp494;
- ASSERT_ALIGNED_DOUBLE;
- tmp495 = tmp332 - tmp333;
- tmp496 = tmp493 - tmp492;
- c_im(inout[15 * iostride]) = tmp495 + tmp496;
- c_im(inout[31 * iostride]) = tmp496 - tmp495;
- tmp491 = tmp329 + tmp322;
- tmp494 = tmp492 + tmp493;
- c_im(inout[7 * iostride]) = tmp491 + tmp494;
- c_im(inout[23 * iostride]) = tmp494 - tmp491;
- }
- {
- fftw_real tmp339;
- fftw_real tmp346;
- fftw_real tmp347;
- fftw_real tmp350;
- ASSERT_ALIGNED_DOUBLE;
- tmp339 = tmp335 - tmp338;
- tmp346 = tmp342 - tmp345;
- c_re(inout[27 * iostride]) = tmp339 - tmp346;
- c_re(inout[11 * iostride]) = tmp339 + tmp346;
- tmp347 = tmp335 + tmp338;
- tmp350 = tmp348 + tmp349;
- c_re(inout[19 * iostride]) = tmp347 - tmp350;
- c_re(inout[3 * iostride]) = tmp347 + tmp350;
- }
- {
- fftw_real tmp489;
- fftw_real tmp490;
- fftw_real tmp483;
- fftw_real tmp488;
- ASSERT_ALIGNED_DOUBLE;
- tmp489 = tmp348 - tmp349;
- tmp490 = tmp487 - tmp484;
- c_im(inout[11 * iostride]) = tmp489 + tmp490;
- c_im(inout[27 * iostride]) = tmp490 - tmp489;
- tmp483 = tmp345 + tmp342;
- tmp488 = tmp484 + tmp487;
- c_im(inout[3 * iostride]) = tmp483 + tmp488;
- c_im(inout[19 * iostride]) = tmp488 - tmp483;
- }
- }
- {
- fftw_real tmp203;
- fftw_real tmp287;
- fftw_real tmp290;
- fftw_real tmp478;
- fftw_real tmp473;
- fftw_real tmp479;
- fftw_real tmp226;
- fftw_real tmp468;
- fftw_real tmp254;
- fftw_real tmp285;
- fftw_real tmp294;
- fftw_real tmp301;
- fftw_real tmp281;
- fftw_real tmp284;
- fftw_real tmp297;
- fftw_real tmp300;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp202;
- fftw_real tmp288;
- fftw_real tmp289;
- fftw_real tmp469;
- fftw_real tmp214;
- fftw_real tmp225;
- ASSERT_ALIGNED_DOUBLE;
- tmp202 = K707106781 * (tmp196 + tmp201);
- tmp203 = tmp191 - tmp202;
- tmp287 = tmp191 + tmp202;
- tmp288 = (K923879532 * tmp224) - (K382683432 * tmp219);
- tmp289 = (K382683432 * tmp208) + (K923879532 * tmp213);
- tmp290 = tmp288 + tmp289;
- tmp478 = tmp288 - tmp289;
- tmp469 = K707106781 * (tmp305 + tmp304);
- tmp473 = tmp469 + tmp472;
- tmp479 = tmp472 - tmp469;
- tmp214 = (K923879532 * tmp208) - (K382683432 * tmp213);
- tmp225 = (K923879532 * tmp219) + (K382683432 * tmp224);
- tmp226 = tmp214 - tmp225;
- tmp468 = tmp225 + tmp214;
- }
- {
- fftw_real tmp244;
- fftw_real tmp253;
- fftw_real tmp292;
- fftw_real tmp293;
- ASSERT_ALIGNED_DOUBLE;
- tmp244 = tmp232 - tmp243;
- tmp253 = tmp249 - tmp252;
- tmp254 = (K555570233 * tmp244) - (K831469612 * tmp253);
- tmp285 = (K831469612 * tmp244) + (K555570233 * tmp253);
- tmp292 = tmp232 + tmp243;
- tmp293 = tmp249 + tmp252;
- tmp294 = (K980785280 * tmp292) - (K195090322 * tmp293);
- tmp301 = (K195090322 * tmp292) + (K980785280 * tmp293);
- }
- {
- fftw_real tmp271;
- fftw_real tmp280;
- fftw_real tmp295;
- fftw_real tmp296;
- ASSERT_ALIGNED_DOUBLE;
- tmp271 = tmp259 - tmp270;
- tmp280 = tmp276 - tmp279;
- tmp281 = (K555570233 * tmp271) + (K831469612 * tmp280);
- tmp284 = (K555570233 * tmp280) - (K831469612 * tmp271);
- tmp295 = tmp259 + tmp270;
- tmp296 = tmp276 + tmp279;
- tmp297 = (K980785280 * tmp295) + (K195090322 * tmp296);
- tmp300 = (K980785280 * tmp296) - (K195090322 * tmp295);
- }
- {
- fftw_real tmp227;
- fftw_real tmp282;
- fftw_real tmp283;
- fftw_real tmp286;
- ASSERT_ALIGNED_DOUBLE;
- tmp227 = tmp203 + tmp226;
- tmp282 = tmp254 + tmp281;
- c_re(inout[21 * iostride]) = tmp227 - tmp282;
- c_re(inout[5 * iostride]) = tmp227 + tmp282;
- tmp283 = tmp203 - tmp226;
- tmp286 = tmp284 - tmp285;
- c_re(inout[29 * iostride]) = tmp283 - tmp286;
- c_re(inout[13 * iostride]) = tmp283 + tmp286;
- }
- {
- fftw_real tmp477;
- fftw_real tmp480;
- fftw_real tmp481;
- fftw_real tmp482;
- ASSERT_ALIGNED_DOUBLE;
- tmp477 = tmp285 + tmp284;
- tmp480 = tmp478 + tmp479;
- c_im(inout[5 * iostride]) = tmp477 + tmp480;
- c_im(inout[21 * iostride]) = tmp480 - tmp477;
- tmp481 = tmp254 - tmp281;
- tmp482 = tmp479 - tmp478;
- c_im(inout[13 * iostride]) = tmp481 + tmp482;
- c_im(inout[29 * iostride]) = tmp482 - tmp481;
- }
- {
- fftw_real tmp291;
- fftw_real tmp298;
- fftw_real tmp299;
- fftw_real tmp302;
- ASSERT_ALIGNED_DOUBLE;
- tmp291 = tmp287 + tmp290;
- tmp298 = tmp294 + tmp297;
- c_re(inout[17 * iostride]) = tmp291 - tmp298;
- c_re(inout[iostride]) = tmp291 + tmp298;
- tmp299 = tmp287 - tmp290;
- tmp302 = tmp300 - tmp301;
- c_re(inout[25 * iostride]) = tmp299 - tmp302;
- c_re(inout[9 * iostride]) = tmp299 + tmp302;
- }
- {
- fftw_real tmp467;
- fftw_real tmp474;
- fftw_real tmp475;
- fftw_real tmp476;
- ASSERT_ALIGNED_DOUBLE;
- tmp467 = tmp301 + tmp300;
- tmp474 = tmp468 + tmp473;
- c_im(inout[iostride]) = tmp467 + tmp474;
- c_im(inout[17 * iostride]) = tmp474 - tmp467;
- tmp475 = tmp294 - tmp297;
- tmp476 = tmp473 - tmp468;
- c_im(inout[9 * iostride]) = tmp475 + tmp476;
- c_im(inout[25 * iostride]) = tmp476 - tmp475;
- }
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31};
-fftw_codelet_desc fftwi_twiddle_32_desc =
-{
- "fftwi_twiddle_32",
- (void (*)()) fftwi_twiddle_32,
- 32,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 715,
- 31,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_4.c b/src/sndobj/rfftw/ftwi_4.c
deleted file mode 100644
index dcdcb8e..0000000
--- a/src/sndobj/rfftw/ftwi_4.c
+++ /dev/null
@@ -1,142 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:57 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 4 */
-
-/*
- * This function contains 22 FP additions, 12 FP multiplications,
- * (or, 16 additions, 6 multiplications, 6 fused multiply/add),
- * 14 stack variables, and 16 memory accesses
- */
-
-/*
- * Generator Id's :
- * $Id: ftwi_4.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: ftwi_4.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- * $Id: ftwi_4.c,v 1.1.1.1 2006/05/12 15:14:45 veplaini Exp $
- */
-
-void fftwi_twiddle_4(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 3) {
- fftw_real tmp1;
- fftw_real tmp25;
- fftw_real tmp6;
- fftw_real tmp24;
- fftw_real tmp12;
- fftw_real tmp20;
- fftw_real tmp17;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp25 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[2 * iostride]);
- tmp5 = c_im(inout[2 * iostride]);
- tmp2 = c_re(W[1]);
- tmp4 = c_im(W[1]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp24 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[iostride]);
- tmp11 = c_im(inout[iostride]);
- tmp8 = c_re(W[0]);
- tmp10 = c_im(W[0]);
- tmp12 = (tmp8 * tmp9) + (tmp10 * tmp11);
- tmp20 = (tmp8 * tmp11) - (tmp10 * tmp9);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[3 * iostride]);
- tmp16 = c_im(inout[3 * iostride]);
- tmp13 = c_re(W[2]);
- tmp15 = c_im(W[2]);
- tmp17 = (tmp13 * tmp14) + (tmp15 * tmp16);
- tmp21 = (tmp13 * tmp16) - (tmp15 * tmp14);
- }
- {
- fftw_real tmp7;
- fftw_real tmp18;
- fftw_real tmp27;
- fftw_real tmp28;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = tmp1 + tmp6;
- tmp18 = tmp12 + tmp17;
- c_re(inout[2 * iostride]) = tmp7 - tmp18;
- c_re(inout[0]) = tmp7 + tmp18;
- tmp27 = tmp12 - tmp17;
- tmp28 = tmp25 - tmp24;
- c_im(inout[iostride]) = tmp27 + tmp28;
- c_im(inout[3 * iostride]) = tmp28 - tmp27;
- }
- {
- fftw_real tmp23;
- fftw_real tmp26;
- fftw_real tmp19;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp23 = tmp20 + tmp21;
- tmp26 = tmp24 + tmp25;
- c_im(inout[0]) = tmp23 + tmp26;
- c_im(inout[2 * iostride]) = tmp26 - tmp23;
- tmp19 = tmp1 - tmp6;
- tmp22 = tmp20 - tmp21;
- c_re(inout[iostride]) = tmp19 - tmp22;
- c_re(inout[3 * iostride]) = tmp19 + tmp22;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3};
-fftw_codelet_desc fftwi_twiddle_4_desc =
-{
- "fftwi_twiddle_4",
- (void (*)()) fftwi_twiddle_4,
- 4,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 99,
- 3,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_5.c b/src/sndobj/rfftw/ftwi_5.c
deleted file mode 100644
index 322f116..0000000
--- a/src/sndobj/rfftw/ftwi_5.c
+++ /dev/null
@@ -1,194 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:57 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 5 */
-
-/*
- * This function contains 40 FP additions, 28 FP multiplications,
- * (or, 26 additions, 14 multiplications, 14 fused multiply/add),
- * 26 stack variables, and 20 memory accesses
- */
-static const fftw_real K559016994 = FFTW_KONST(+0.559016994374947424102293417182819058860154590);
-static const fftw_real K250000000 = FFTW_KONST(+0.250000000000000000000000000000000000000000000);
-static const fftw_real K951056516 = FFTW_KONST(+0.951056516295153572116439333379382143405698634);
-static const fftw_real K587785252 = FFTW_KONST(+0.587785252292473129168705954639072768597652438);
-
-/*
- * Generator Id's :
- * $Id: ftwi_5.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: ftwi_5.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- * $Id: ftwi_5.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $
- */
-
-void fftwi_twiddle_5(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 4) {
- fftw_real tmp1;
- fftw_real tmp40;
- fftw_real tmp30;
- fftw_real tmp33;
- fftw_real tmp37;
- fftw_real tmp38;
- fftw_real tmp39;
- fftw_real tmp42;
- fftw_real tmp41;
- fftw_real tmp12;
- fftw_real tmp23;
- fftw_real tmp24;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp40 = c_im(inout[0]);
- {
- fftw_real tmp6;
- fftw_real tmp28;
- fftw_real tmp22;
- fftw_real tmp32;
- fftw_real tmp11;
- fftw_real tmp29;
- fftw_real tmp17;
- fftw_real tmp31;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[iostride]);
- tmp5 = c_im(inout[iostride]);
- tmp2 = c_re(W[0]);
- tmp4 = c_im(W[0]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp28 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- {
- fftw_real tmp19;
- fftw_real tmp21;
- fftw_real tmp18;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = c_re(inout[3 * iostride]);
- tmp21 = c_im(inout[3 * iostride]);
- tmp18 = c_re(W[2]);
- tmp20 = c_im(W[2]);
- tmp22 = (tmp18 * tmp19) + (tmp20 * tmp21);
- tmp32 = (tmp18 * tmp21) - (tmp20 * tmp19);
- }
- {
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp7;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(inout[4 * iostride]);
- tmp10 = c_im(inout[4 * iostride]);
- tmp7 = c_re(W[3]);
- tmp9 = c_im(W[3]);
- tmp11 = (tmp7 * tmp8) + (tmp9 * tmp10);
- tmp29 = (tmp7 * tmp10) - (tmp9 * tmp8);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[2 * iostride]);
- tmp16 = c_im(inout[2 * iostride]);
- tmp13 = c_re(W[1]);
- tmp15 = c_im(W[1]);
- tmp17 = (tmp13 * tmp14) + (tmp15 * tmp16);
- tmp31 = (tmp13 * tmp16) - (tmp15 * tmp14);
- }
- tmp30 = tmp28 - tmp29;
- tmp33 = tmp31 - tmp32;
- tmp37 = tmp28 + tmp29;
- tmp38 = tmp31 + tmp32;
- tmp39 = tmp37 + tmp38;
- tmp42 = tmp17 - tmp22;
- tmp41 = tmp6 - tmp11;
- tmp12 = tmp6 + tmp11;
- tmp23 = tmp17 + tmp22;
- tmp24 = tmp12 + tmp23;
- }
- c_re(inout[0]) = tmp1 + tmp24;
- {
- fftw_real tmp34;
- fftw_real tmp36;
- fftw_real tmp27;
- fftw_real tmp35;
- fftw_real tmp25;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp34 = (K587785252 * tmp30) - (K951056516 * tmp33);
- tmp36 = (K951056516 * tmp30) + (K587785252 * tmp33);
- tmp25 = tmp1 - (K250000000 * tmp24);
- tmp26 = K559016994 * (tmp12 - tmp23);
- tmp27 = tmp25 - tmp26;
- tmp35 = tmp26 + tmp25;
- c_re(inout[2 * iostride]) = tmp27 - tmp34;
- c_re(inout[3 * iostride]) = tmp27 + tmp34;
- c_re(inout[iostride]) = tmp35 - tmp36;
- c_re(inout[4 * iostride]) = tmp35 + tmp36;
- }
- c_im(inout[0]) = tmp39 + tmp40;
- {
- fftw_real tmp43;
- fftw_real tmp47;
- fftw_real tmp46;
- fftw_real tmp48;
- fftw_real tmp44;
- fftw_real tmp45;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = (K951056516 * tmp41) + (K587785252 * tmp42);
- tmp47 = (K587785252 * tmp41) - (K951056516 * tmp42);
- tmp44 = K559016994 * (tmp37 - tmp38);
- tmp45 = tmp40 - (K250000000 * tmp39);
- tmp46 = tmp44 + tmp45;
- tmp48 = tmp45 - tmp44;
- c_im(inout[iostride]) = tmp43 + tmp46;
- c_im(inout[4 * iostride]) = tmp46 - tmp43;
- c_im(inout[2 * iostride]) = tmp47 + tmp48;
- c_im(inout[3 * iostride]) = tmp48 - tmp47;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4};
-fftw_codelet_desc fftwi_twiddle_5_desc =
-{
- "fftwi_twiddle_5",
- (void (*)()) fftwi_twiddle_5,
- 5,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 121,
- 4,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_6.c b/src/sndobj/rfftw/ftwi_6.c
deleted file mode 100644
index 17aa81b..0000000
--- a/src/sndobj/rfftw/ftwi_6.c
+++ /dev/null
@@ -1,219 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:57 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 6 */
-
-/*
- * This function contains 46 FP additions, 28 FP multiplications,
- * (or, 32 additions, 14 multiplications, 14 fused multiply/add),
- * 22 stack variables, and 24 memory accesses
- */
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-
-/*
- * Generator Id's :
- * $Id: ftwi_6.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: ftwi_6.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- * $Id: ftwi_6.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $
- */
-
-void fftwi_twiddle_6(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 5) {
- fftw_real tmp7;
- fftw_real tmp31;
- fftw_real tmp50;
- fftw_real tmp54;
- fftw_real tmp29;
- fftw_real tmp33;
- fftw_real tmp38;
- fftw_real tmp44;
- fftw_real tmp18;
- fftw_real tmp32;
- fftw_real tmp41;
- fftw_real tmp45;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp49;
- fftw_real tmp6;
- fftw_real tmp48;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp49 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[3 * iostride]);
- tmp5 = c_im(inout[3 * iostride]);
- tmp2 = c_re(W[2]);
- tmp4 = c_im(W[2]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp48 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- tmp7 = tmp1 - tmp6;
- tmp31 = tmp1 + tmp6;
- tmp50 = tmp48 + tmp49;
- tmp54 = tmp49 - tmp48;
- }
- {
- fftw_real tmp23;
- fftw_real tmp36;
- fftw_real tmp28;
- fftw_real tmp37;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp20;
- fftw_real tmp22;
- fftw_real tmp19;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp20 = c_re(inout[4 * iostride]);
- tmp22 = c_im(inout[4 * iostride]);
- tmp19 = c_re(W[3]);
- tmp21 = c_im(W[3]);
- tmp23 = (tmp19 * tmp20) + (tmp21 * tmp22);
- tmp36 = (tmp19 * tmp22) - (tmp21 * tmp20);
- }
- {
- fftw_real tmp25;
- fftw_real tmp27;
- fftw_real tmp24;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = c_re(inout[iostride]);
- tmp27 = c_im(inout[iostride]);
- tmp24 = c_re(W[0]);
- tmp26 = c_im(W[0]);
- tmp28 = (tmp24 * tmp25) + (tmp26 * tmp27);
- tmp37 = (tmp24 * tmp27) - (tmp26 * tmp25);
- }
- tmp29 = tmp23 - tmp28;
- tmp33 = tmp23 + tmp28;
- tmp38 = tmp36 - tmp37;
- tmp44 = tmp36 + tmp37;
- }
- {
- fftw_real tmp12;
- fftw_real tmp39;
- fftw_real tmp17;
- fftw_real tmp40;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[2 * iostride]);
- tmp11 = c_im(inout[2 * iostride]);
- tmp8 = c_re(W[1]);
- tmp10 = c_im(W[1]);
- tmp12 = (tmp8 * tmp9) + (tmp10 * tmp11);
- tmp39 = (tmp8 * tmp11) - (tmp10 * tmp9);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[5 * iostride]);
- tmp16 = c_im(inout[5 * iostride]);
- tmp13 = c_re(W[4]);
- tmp15 = c_im(W[4]);
- tmp17 = (tmp13 * tmp14) + (tmp15 * tmp16);
- tmp40 = (tmp13 * tmp16) - (tmp15 * tmp14);
- }
- tmp18 = tmp12 - tmp17;
- tmp32 = tmp12 + tmp17;
- tmp41 = tmp39 - tmp40;
- tmp45 = tmp39 + tmp40;
- }
- {
- fftw_real tmp42;
- fftw_real tmp30;
- fftw_real tmp35;
- fftw_real tmp53;
- fftw_real tmp55;
- fftw_real tmp56;
- ASSERT_ALIGNED_DOUBLE;
- tmp42 = K866025403 * (tmp38 - tmp41);
- tmp30 = tmp18 + tmp29;
- tmp35 = tmp7 - (K500000000 * tmp30);
- c_re(inout[3 * iostride]) = tmp7 + tmp30;
- c_re(inout[iostride]) = tmp35 + tmp42;
- c_re(inout[5 * iostride]) = tmp35 - tmp42;
- tmp53 = K866025403 * (tmp18 - tmp29);
- tmp55 = tmp41 + tmp38;
- tmp56 = tmp54 - (K500000000 * tmp55);
- c_im(inout[iostride]) = tmp53 + tmp56;
- c_im(inout[5 * iostride]) = tmp56 - tmp53;
- c_im(inout[3 * iostride]) = tmp55 + tmp54;
- }
- {
- fftw_real tmp46;
- fftw_real tmp34;
- fftw_real tmp43;
- fftw_real tmp52;
- fftw_real tmp47;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp46 = K866025403 * (tmp44 - tmp45);
- tmp34 = tmp32 + tmp33;
- tmp43 = tmp31 - (K500000000 * tmp34);
- c_re(inout[0]) = tmp31 + tmp34;
- c_re(inout[4 * iostride]) = tmp43 + tmp46;
- c_re(inout[2 * iostride]) = tmp43 - tmp46;
- tmp52 = K866025403 * (tmp32 - tmp33);
- tmp47 = tmp45 + tmp44;
- tmp51 = tmp50 - (K500000000 * tmp47);
- c_im(inout[0]) = tmp47 + tmp50;
- c_im(inout[4 * iostride]) = tmp52 + tmp51;
- c_im(inout[2 * iostride]) = tmp51 - tmp52;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5};
-fftw_codelet_desc fftwi_twiddle_6_desc =
-{
- "fftwi_twiddle_6",
- (void (*)()) fftwi_twiddle_6,
- 6,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 143,
- 5,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_64.c b/src/sndobj/rfftw/ftwi_64.c
deleted file mode 100644
index 8b49da0..0000000
--- a/src/sndobj/rfftw/ftwi_64.c
+++ /dev/null
@@ -1,3146 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:45:03 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 64 */
-
-/*
- * This function contains 1038 FP additions, 500 FP multiplications,
- * (or, 808 additions, 270 multiplications, 230 fused multiply/add),
- * 162 stack variables, and 256 memory accesses
- */
-static const fftw_real K098017140 = FFTW_KONST(+0.098017140329560601994195563888641845861136673);
-static const fftw_real K995184726 = FFTW_KONST(+0.995184726672196886244836953109479921575474869);
-static const fftw_real K773010453 = FFTW_KONST(+0.773010453362736960810906609758469800971041293);
-static const fftw_real K634393284 = FFTW_KONST(+0.634393284163645498215171613225493370675687095);
-static const fftw_real K195090322 = FFTW_KONST(+0.195090322016128267848284868477022240927691618);
-static const fftw_real K980785280 = FFTW_KONST(+0.980785280403230449126182236134239036973933731);
-static const fftw_real K471396736 = FFTW_KONST(+0.471396736825997648556387625905254377657460319);
-static const fftw_real K881921264 = FFTW_KONST(+0.881921264348355029712756863660388349508442621);
-static const fftw_real K956940335 = FFTW_KONST(+0.956940335732208864935797886980269969482849206);
-static const fftw_real K290284677 = FFTW_KONST(+0.290284677254462367636192375817395274691476278);
-static const fftw_real K831469612 = FFTW_KONST(+0.831469612302545237078788377617905756738560812);
-static const fftw_real K555570233 = FFTW_KONST(+0.555570233019602224742830813948532874374937191);
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-static const fftw_real K382683432 = FFTW_KONST(+0.382683432365089771728459984030398866761344562);
-static const fftw_real K923879532 = FFTW_KONST(+0.923879532511286756128183189396788286822416626);
-
-/*
- * Generator Id's :
- * $Id: ftwi_64.c,v 1.1.1.1 2006/05/12 15:15:00 veplaini Exp $
- * $Id: ftwi_64.c,v 1.1.1.1 2006/05/12 15:15:00 veplaini Exp $
- * $Id: ftwi_64.c,v 1.1.1.1 2006/05/12 15:15:00 veplaini Exp $
- */
-
-void fftwi_twiddle_64(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 63) {
- fftw_real tmp19;
- fftw_real tmp791;
- fftw_real tmp1109;
- fftw_real tmp1139;
- fftw_real tmp1047;
- fftw_real tmp1077;
- fftw_real tmp383;
- fftw_real tmp655;
- fftw_real tmp66;
- fftw_real tmp800;
- fftw_real tmp909;
- fftw_real tmp993;
- fftw_real tmp417;
- fftw_real tmp608;
- fftw_real tmp665;
- fftw_real tmp744;
- fftw_real tmp42;
- fftw_real tmp1076;
- fftw_real tmp794;
- fftw_real tmp1042;
- fftw_real tmp394;
- fftw_real tmp1138;
- fftw_real tmp658;
- fftw_real tmp1106;
- fftw_real tmp329;
- fftw_real tmp1007;
- fftw_real tmp863;
- fftw_real tmp923;
- fftw_real tmp976;
- fftw_real tmp1004;
- fftw_real tmp880;
- fftw_real tmp920;
- fftw_real tmp535;
- fftw_real tmp703;
- fftw_real tmp576;
- fftw_real tmp714;
- fftw_real tmp579;
- fftw_real tmp704;
- fftw_real tmp546;
- fftw_real tmp715;
- fftw_real tmp376;
- fftw_real tmp1005;
- fftw_real tmp868;
- fftw_real tmp881;
- fftw_real tmp979;
- fftw_real tmp1008;
- fftw_real tmp873;
- fftw_real tmp882;
- fftw_real tmp558;
- fftw_real tmp582;
- fftw_real tmp708;
- fftw_real tmp718;
- fftw_real tmp569;
- fftw_real tmp581;
- fftw_real tmp711;
- fftw_real tmp717;
- fftw_real tmp89;
- fftw_real tmp805;
- fftw_real tmp908;
- fftw_real tmp992;
- fftw_real tmp406;
- fftw_real tmp609;
- fftw_real tmp662;
- fftw_real tmp745;
- fftw_real tmp161;
- fftw_real tmp184;
- fftw_real tmp997;
- fftw_real tmp812;
- fftw_real tmp912;
- fftw_real tmp956;
- fftw_real tmp957;
- fftw_real tmp996;
- fftw_real tmp817;
- fftw_real tmp913;
- fftw_real tmp424;
- fftw_real tmp668;
- fftw_real tmp441;
- fftw_real tmp671;
- fftw_real tmp444;
- fftw_real tmp669;
- fftw_real tmp435;
- fftw_real tmp672;
- fftw_real tmp114;
- fftw_real tmp137;
- fftw_real tmp999;
- fftw_real tmp823;
- fftw_real tmp915;
- fftw_real tmp959;
- fftw_real tmp960;
- fftw_real tmp1000;
- fftw_real tmp828;
- fftw_real tmp916;
- fftw_real tmp451;
- fftw_real tmp678;
- fftw_real tmp468;
- fftw_real tmp675;
- fftw_real tmp471;
- fftw_real tmp679;
- fftw_real tmp462;
- fftw_real tmp676;
- fftw_real tmp234;
- fftw_real tmp1014;
- fftw_real tmp836;
- fftw_real tmp930;
- fftw_real tmp967;
- fftw_real tmp1011;
- fftw_real tmp853;
- fftw_real tmp927;
- fftw_real tmp480;
- fftw_real tmp684;
- fftw_real tmp521;
- fftw_real tmp695;
- fftw_real tmp524;
- fftw_real tmp685;
- fftw_real tmp491;
- fftw_real tmp696;
- fftw_real tmp281;
- fftw_real tmp1012;
- fftw_real tmp841;
- fftw_real tmp854;
- fftw_real tmp970;
- fftw_real tmp1015;
- fftw_real tmp846;
- fftw_real tmp855;
- fftw_real tmp503;
- fftw_real tmp527;
- fftw_real tmp689;
- fftw_real tmp699;
- fftw_real tmp514;
- fftw_real tmp526;
- fftw_real tmp692;
- fftw_real tmp698;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp1045;
- fftw_real tmp6;
- fftw_real tmp1044;
- fftw_real tmp12;
- fftw_real tmp380;
- fftw_real tmp17;
- fftw_real tmp381;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp1045 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[32 * iostride]);
- tmp5 = c_im(inout[32 * iostride]);
- tmp2 = c_re(W[31]);
- tmp4 = c_im(W[31]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp1044 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[16 * iostride]);
- tmp11 = c_im(inout[16 * iostride]);
- tmp8 = c_re(W[15]);
- tmp10 = c_im(W[15]);
- tmp12 = (tmp8 * tmp9) + (tmp10 * tmp11);
- tmp380 = (tmp8 * tmp11) - (tmp10 * tmp9);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[48 * iostride]);
- tmp16 = c_im(inout[48 * iostride]);
- tmp13 = c_re(W[47]);
- tmp15 = c_im(W[47]);
- tmp17 = (tmp13 * tmp14) + (tmp15 * tmp16);
- tmp381 = (tmp13 * tmp16) - (tmp15 * tmp14);
- }
- {
- fftw_real tmp7;
- fftw_real tmp18;
- fftw_real tmp1107;
- fftw_real tmp1108;
- ASSERT_ALIGNED_DOUBLE;
- tmp7 = tmp1 + tmp6;
- tmp18 = tmp12 + tmp17;
- tmp19 = tmp7 + tmp18;
- tmp791 = tmp7 - tmp18;
- tmp1107 = tmp12 - tmp17;
- tmp1108 = tmp1045 - tmp1044;
- tmp1109 = tmp1107 + tmp1108;
- tmp1139 = tmp1108 - tmp1107;
- }
- {
- fftw_real tmp1043;
- fftw_real tmp1046;
- fftw_real tmp379;
- fftw_real tmp382;
- ASSERT_ALIGNED_DOUBLE;
- tmp1043 = tmp380 + tmp381;
- tmp1046 = tmp1044 + tmp1045;
- tmp1047 = tmp1043 + tmp1046;
- tmp1077 = tmp1046 - tmp1043;
- tmp379 = tmp1 - tmp6;
- tmp382 = tmp380 - tmp381;
- tmp383 = tmp379 - tmp382;
- tmp655 = tmp379 + tmp382;
- }
- }
- {
- fftw_real tmp54;
- fftw_real tmp412;
- fftw_real tmp409;
- fftw_real tmp797;
- fftw_real tmp65;
- fftw_real tmp410;
- fftw_real tmp415;
- fftw_real tmp798;
- fftw_real tmp796;
- fftw_real tmp799;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp48;
- fftw_real tmp407;
- fftw_real tmp53;
- fftw_real tmp408;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp45;
- fftw_real tmp47;
- fftw_real tmp44;
- fftw_real tmp46;
- ASSERT_ALIGNED_DOUBLE;
- tmp45 = c_re(inout[4 * iostride]);
- tmp47 = c_im(inout[4 * iostride]);
- tmp44 = c_re(W[3]);
- tmp46 = c_im(W[3]);
- tmp48 = (tmp44 * tmp45) + (tmp46 * tmp47);
- tmp407 = (tmp44 * tmp47) - (tmp46 * tmp45);
- }
- {
- fftw_real tmp50;
- fftw_real tmp52;
- fftw_real tmp49;
- fftw_real tmp51;
- ASSERT_ALIGNED_DOUBLE;
- tmp50 = c_re(inout[36 * iostride]);
- tmp52 = c_im(inout[36 * iostride]);
- tmp49 = c_re(W[35]);
- tmp51 = c_im(W[35]);
- tmp53 = (tmp49 * tmp50) + (tmp51 * tmp52);
- tmp408 = (tmp49 * tmp52) - (tmp51 * tmp50);
- }
- tmp54 = tmp48 + tmp53;
- tmp412 = tmp48 - tmp53;
- tmp409 = tmp407 - tmp408;
- tmp797 = tmp407 + tmp408;
- }
- {
- fftw_real tmp59;
- fftw_real tmp413;
- fftw_real tmp64;
- fftw_real tmp414;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp56;
- fftw_real tmp58;
- fftw_real tmp55;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp56 = c_re(inout[20 * iostride]);
- tmp58 = c_im(inout[20 * iostride]);
- tmp55 = c_re(W[19]);
- tmp57 = c_im(W[19]);
- tmp59 = (tmp55 * tmp56) + (tmp57 * tmp58);
- tmp413 = (tmp55 * tmp58) - (tmp57 * tmp56);
- }
- {
- fftw_real tmp61;
- fftw_real tmp63;
- fftw_real tmp60;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = c_re(inout[52 * iostride]);
- tmp63 = c_im(inout[52 * iostride]);
- tmp60 = c_re(W[51]);
- tmp62 = c_im(W[51]);
- tmp64 = (tmp60 * tmp61) + (tmp62 * tmp63);
- tmp414 = (tmp60 * tmp63) - (tmp62 * tmp61);
- }
- tmp65 = tmp59 + tmp64;
- tmp410 = tmp59 - tmp64;
- tmp415 = tmp413 - tmp414;
- tmp798 = tmp413 + tmp414;
- }
- tmp66 = tmp54 + tmp65;
- tmp796 = tmp54 - tmp65;
- tmp799 = tmp797 - tmp798;
- tmp800 = tmp796 - tmp799;
- tmp909 = tmp796 + tmp799;
- tmp993 = tmp797 + tmp798;
- {
- fftw_real tmp411;
- fftw_real tmp416;
- fftw_real tmp663;
- fftw_real tmp664;
- ASSERT_ALIGNED_DOUBLE;
- tmp411 = tmp409 + tmp410;
- tmp416 = tmp412 - tmp415;
- tmp417 = (K923879532 * tmp411) + (K382683432 * tmp416);
- tmp608 = (K923879532 * tmp416) - (K382683432 * tmp411);
- tmp663 = tmp409 - tmp410;
- tmp664 = tmp412 + tmp415;
- tmp665 = (K382683432 * tmp663) + (K923879532 * tmp664);
- tmp744 = (K382683432 * tmp664) - (K923879532 * tmp663);
- }
- }
- {
- fftw_real tmp24;
- fftw_real tmp385;
- fftw_real tmp29;
- fftw_real tmp386;
- fftw_real tmp384;
- fftw_real tmp387;
- fftw_real tmp35;
- fftw_real tmp390;
- fftw_real tmp40;
- fftw_real tmp391;
- fftw_real tmp389;
- fftw_real tmp392;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp21;
- fftw_real tmp23;
- fftw_real tmp20;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = c_re(inout[8 * iostride]);
- tmp23 = c_im(inout[8 * iostride]);
- tmp20 = c_re(W[7]);
- tmp22 = c_im(W[7]);
- tmp24 = (tmp20 * tmp21) + (tmp22 * tmp23);
- tmp385 = (tmp20 * tmp23) - (tmp22 * tmp21);
- }
- {
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp25;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(inout[40 * iostride]);
- tmp28 = c_im(inout[40 * iostride]);
- tmp25 = c_re(W[39]);
- tmp27 = c_im(W[39]);
- tmp29 = (tmp25 * tmp26) + (tmp27 * tmp28);
- tmp386 = (tmp25 * tmp28) - (tmp27 * tmp26);
- }
- tmp384 = tmp24 - tmp29;
- tmp387 = tmp385 - tmp386;
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[56 * iostride]);
- tmp34 = c_im(inout[56 * iostride]);
- tmp31 = c_re(W[55]);
- tmp33 = c_im(W[55]);
- tmp35 = (tmp31 * tmp32) + (tmp33 * tmp34);
- tmp390 = (tmp31 * tmp34) - (tmp33 * tmp32);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[24 * iostride]);
- tmp39 = c_im(inout[24 * iostride]);
- tmp36 = c_re(W[23]);
- tmp38 = c_im(W[23]);
- tmp40 = (tmp36 * tmp37) + (tmp38 * tmp39);
- tmp391 = (tmp36 * tmp39) - (tmp38 * tmp37);
- }
- tmp389 = tmp35 - tmp40;
- tmp392 = tmp390 - tmp391;
- {
- fftw_real tmp30;
- fftw_real tmp41;
- fftw_real tmp792;
- fftw_real tmp793;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = tmp24 + tmp29;
- tmp41 = tmp35 + tmp40;
- tmp42 = tmp30 + tmp41;
- tmp1076 = tmp30 - tmp41;
- tmp792 = tmp390 + tmp391;
- tmp793 = tmp385 + tmp386;
- tmp794 = tmp792 - tmp793;
- tmp1042 = tmp793 + tmp792;
- }
- {
- fftw_real tmp388;
- fftw_real tmp393;
- fftw_real tmp656;
- fftw_real tmp657;
- ASSERT_ALIGNED_DOUBLE;
- tmp388 = tmp384 - tmp387;
- tmp393 = tmp389 + tmp392;
- tmp394 = K707106781 * (tmp388 + tmp393);
- tmp1138 = K707106781 * (tmp388 - tmp393);
- tmp656 = tmp392 - tmp389;
- tmp657 = tmp384 + tmp387;
- tmp658 = K707106781 * (tmp656 - tmp657);
- tmp1106 = K707106781 * (tmp657 + tmp656);
- }
- }
- {
- fftw_real tmp287;
- fftw_real tmp572;
- fftw_real tmp292;
- fftw_real tmp573;
- fftw_real tmp293;
- fftw_real tmp876;
- fftw_real tmp327;
- fftw_real tmp541;
- fftw_real tmp544;
- fftw_real tmp860;
- fftw_real tmp298;
- fftw_real tmp532;
- fftw_real tmp303;
- fftw_real tmp533;
- fftw_real tmp304;
- fftw_real tmp877;
- fftw_real tmp316;
- fftw_real tmp536;
- fftw_real tmp539;
- fftw_real tmp861;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp284;
- fftw_real tmp286;
- fftw_real tmp283;
- fftw_real tmp285;
- ASSERT_ALIGNED_DOUBLE;
- tmp284 = c_re(inout[63 * iostride]);
- tmp286 = c_im(inout[63 * iostride]);
- tmp283 = c_re(W[62]);
- tmp285 = c_im(W[62]);
- tmp287 = (tmp283 * tmp284) + (tmp285 * tmp286);
- tmp572 = (tmp283 * tmp286) - (tmp285 * tmp284);
- }
- {
- fftw_real tmp289;
- fftw_real tmp291;
- fftw_real tmp288;
- fftw_real tmp290;
- ASSERT_ALIGNED_DOUBLE;
- tmp289 = c_re(inout[31 * iostride]);
- tmp291 = c_im(inout[31 * iostride]);
- tmp288 = c_re(W[30]);
- tmp290 = c_im(W[30]);
- tmp292 = (tmp288 * tmp289) + (tmp290 * tmp291);
- tmp573 = (tmp288 * tmp291) - (tmp290 * tmp289);
- }
- tmp293 = tmp287 + tmp292;
- tmp876 = tmp572 + tmp573;
- {
- fftw_real tmp321;
- fftw_real tmp542;
- fftw_real tmp326;
- fftw_real tmp543;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp318;
- fftw_real tmp320;
- fftw_real tmp317;
- fftw_real tmp319;
- ASSERT_ALIGNED_DOUBLE;
- tmp318 = c_re(inout[55 * iostride]);
- tmp320 = c_im(inout[55 * iostride]);
- tmp317 = c_re(W[54]);
- tmp319 = c_im(W[54]);
- tmp321 = (tmp317 * tmp318) + (tmp319 * tmp320);
- tmp542 = (tmp317 * tmp320) - (tmp319 * tmp318);
- }
- {
- fftw_real tmp323;
- fftw_real tmp325;
- fftw_real tmp322;
- fftw_real tmp324;
- ASSERT_ALIGNED_DOUBLE;
- tmp323 = c_re(inout[23 * iostride]);
- tmp325 = c_im(inout[23 * iostride]);
- tmp322 = c_re(W[22]);
- tmp324 = c_im(W[22]);
- tmp326 = (tmp322 * tmp323) + (tmp324 * tmp325);
- tmp543 = (tmp322 * tmp325) - (tmp324 * tmp323);
- }
- tmp327 = tmp321 + tmp326;
- tmp541 = tmp321 - tmp326;
- tmp544 = tmp542 - tmp543;
- tmp860 = tmp542 + tmp543;
- }
- {
- fftw_real tmp295;
- fftw_real tmp297;
- fftw_real tmp294;
- fftw_real tmp296;
- ASSERT_ALIGNED_DOUBLE;
- tmp295 = c_re(inout[15 * iostride]);
- tmp297 = c_im(inout[15 * iostride]);
- tmp294 = c_re(W[14]);
- tmp296 = c_im(W[14]);
- tmp298 = (tmp294 * tmp295) + (tmp296 * tmp297);
- tmp532 = (tmp294 * tmp297) - (tmp296 * tmp295);
- }
- {
- fftw_real tmp300;
- fftw_real tmp302;
- fftw_real tmp299;
- fftw_real tmp301;
- ASSERT_ALIGNED_DOUBLE;
- tmp300 = c_re(inout[47 * iostride]);
- tmp302 = c_im(inout[47 * iostride]);
- tmp299 = c_re(W[46]);
- tmp301 = c_im(W[46]);
- tmp303 = (tmp299 * tmp300) + (tmp301 * tmp302);
- tmp533 = (tmp299 * tmp302) - (tmp301 * tmp300);
- }
- tmp304 = tmp298 + tmp303;
- tmp877 = tmp532 + tmp533;
- {
- fftw_real tmp310;
- fftw_real tmp537;
- fftw_real tmp315;
- fftw_real tmp538;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp307;
- fftw_real tmp309;
- fftw_real tmp306;
- fftw_real tmp308;
- ASSERT_ALIGNED_DOUBLE;
- tmp307 = c_re(inout[7 * iostride]);
- tmp309 = c_im(inout[7 * iostride]);
- tmp306 = c_re(W[6]);
- tmp308 = c_im(W[6]);
- tmp310 = (tmp306 * tmp307) + (tmp308 * tmp309);
- tmp537 = (tmp306 * tmp309) - (tmp308 * tmp307);
- }
- {
- fftw_real tmp312;
- fftw_real tmp314;
- fftw_real tmp311;
- fftw_real tmp313;
- ASSERT_ALIGNED_DOUBLE;
- tmp312 = c_re(inout[39 * iostride]);
- tmp314 = c_im(inout[39 * iostride]);
- tmp311 = c_re(W[38]);
- tmp313 = c_im(W[38]);
- tmp315 = (tmp311 * tmp312) + (tmp313 * tmp314);
- tmp538 = (tmp311 * tmp314) - (tmp313 * tmp312);
- }
- tmp316 = tmp310 + tmp315;
- tmp536 = tmp310 - tmp315;
- tmp539 = tmp537 - tmp538;
- tmp861 = tmp537 + tmp538;
- }
- {
- fftw_real tmp305;
- fftw_real tmp328;
- fftw_real tmp859;
- fftw_real tmp862;
- ASSERT_ALIGNED_DOUBLE;
- tmp305 = tmp293 + tmp304;
- tmp328 = tmp316 + tmp327;
- tmp329 = tmp305 + tmp328;
- tmp1007 = tmp305 - tmp328;
- tmp859 = tmp293 - tmp304;
- tmp862 = tmp860 - tmp861;
- tmp863 = tmp859 + tmp862;
- tmp923 = tmp859 - tmp862;
- }
- {
- fftw_real tmp974;
- fftw_real tmp975;
- fftw_real tmp878;
- fftw_real tmp879;
- ASSERT_ALIGNED_DOUBLE;
- tmp974 = tmp876 + tmp877;
- tmp975 = tmp861 + tmp860;
- tmp976 = tmp974 + tmp975;
- tmp1004 = tmp974 - tmp975;
- tmp878 = tmp876 - tmp877;
- tmp879 = tmp316 - tmp327;
- tmp880 = tmp878 + tmp879;
- tmp920 = tmp878 - tmp879;
- }
- {
- fftw_real tmp531;
- fftw_real tmp534;
- fftw_real tmp574;
- fftw_real tmp575;
- ASSERT_ALIGNED_DOUBLE;
- tmp531 = tmp287 - tmp292;
- tmp534 = tmp532 - tmp533;
- tmp535 = tmp531 - tmp534;
- tmp703 = tmp531 + tmp534;
- tmp574 = tmp572 - tmp573;
- tmp575 = tmp298 - tmp303;
- tmp576 = tmp574 + tmp575;
- tmp714 = tmp574 - tmp575;
- }
- {
- fftw_real tmp577;
- fftw_real tmp578;
- fftw_real tmp540;
- fftw_real tmp545;
- ASSERT_ALIGNED_DOUBLE;
- tmp577 = tmp536 + tmp539;
- tmp578 = tmp544 - tmp541;
- tmp579 = K707106781 * (tmp577 + tmp578);
- tmp704 = K707106781 * (tmp578 - tmp577);
- tmp540 = tmp536 - tmp539;
- tmp545 = tmp541 + tmp544;
- tmp546 = K707106781 * (tmp540 + tmp545);
- tmp715 = K707106781 * (tmp540 - tmp545);
- }
- }
- {
- fftw_real tmp340;
- fftw_real tmp564;
- fftw_real tmp561;
- fftw_real tmp865;
- fftw_real tmp374;
- fftw_real tmp551;
- fftw_real tmp556;
- fftw_real tmp871;
- fftw_real tmp351;
- fftw_real tmp562;
- fftw_real tmp567;
- fftw_real tmp866;
- fftw_real tmp363;
- fftw_real tmp553;
- fftw_real tmp550;
- fftw_real tmp870;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp334;
- fftw_real tmp559;
- fftw_real tmp339;
- fftw_real tmp560;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp331;
- fftw_real tmp333;
- fftw_real tmp330;
- fftw_real tmp332;
- ASSERT_ALIGNED_DOUBLE;
- tmp331 = c_re(inout[3 * iostride]);
- tmp333 = c_im(inout[3 * iostride]);
- tmp330 = c_re(W[2]);
- tmp332 = c_im(W[2]);
- tmp334 = (tmp330 * tmp331) + (tmp332 * tmp333);
- tmp559 = (tmp330 * tmp333) - (tmp332 * tmp331);
- }
- {
- fftw_real tmp336;
- fftw_real tmp338;
- fftw_real tmp335;
- fftw_real tmp337;
- ASSERT_ALIGNED_DOUBLE;
- tmp336 = c_re(inout[35 * iostride]);
- tmp338 = c_im(inout[35 * iostride]);
- tmp335 = c_re(W[34]);
- tmp337 = c_im(W[34]);
- tmp339 = (tmp335 * tmp336) + (tmp337 * tmp338);
- tmp560 = (tmp335 * tmp338) - (tmp337 * tmp336);
- }
- tmp340 = tmp334 + tmp339;
- tmp564 = tmp334 - tmp339;
- tmp561 = tmp559 - tmp560;
- tmp865 = tmp559 + tmp560;
- }
- {
- fftw_real tmp368;
- fftw_real tmp554;
- fftw_real tmp373;
- fftw_real tmp555;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp365;
- fftw_real tmp367;
- fftw_real tmp364;
- fftw_real tmp366;
- ASSERT_ALIGNED_DOUBLE;
- tmp365 = c_re(inout[11 * iostride]);
- tmp367 = c_im(inout[11 * iostride]);
- tmp364 = c_re(W[10]);
- tmp366 = c_im(W[10]);
- tmp368 = (tmp364 * tmp365) + (tmp366 * tmp367);
- tmp554 = (tmp364 * tmp367) - (tmp366 * tmp365);
- }
- {
- fftw_real tmp370;
- fftw_real tmp372;
- fftw_real tmp369;
- fftw_real tmp371;
- ASSERT_ALIGNED_DOUBLE;
- tmp370 = c_re(inout[43 * iostride]);
- tmp372 = c_im(inout[43 * iostride]);
- tmp369 = c_re(W[42]);
- tmp371 = c_im(W[42]);
- tmp373 = (tmp369 * tmp370) + (tmp371 * tmp372);
- tmp555 = (tmp369 * tmp372) - (tmp371 * tmp370);
- }
- tmp374 = tmp368 + tmp373;
- tmp551 = tmp368 - tmp373;
- tmp556 = tmp554 - tmp555;
- tmp871 = tmp554 + tmp555;
- }
- {
- fftw_real tmp345;
- fftw_real tmp565;
- fftw_real tmp350;
- fftw_real tmp566;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp342;
- fftw_real tmp344;
- fftw_real tmp341;
- fftw_real tmp343;
- ASSERT_ALIGNED_DOUBLE;
- tmp342 = c_re(inout[19 * iostride]);
- tmp344 = c_im(inout[19 * iostride]);
- tmp341 = c_re(W[18]);
- tmp343 = c_im(W[18]);
- tmp345 = (tmp341 * tmp342) + (tmp343 * tmp344);
- tmp565 = (tmp341 * tmp344) - (tmp343 * tmp342);
- }
- {
- fftw_real tmp347;
- fftw_real tmp349;
- fftw_real tmp346;
- fftw_real tmp348;
- ASSERT_ALIGNED_DOUBLE;
- tmp347 = c_re(inout[51 * iostride]);
- tmp349 = c_im(inout[51 * iostride]);
- tmp346 = c_re(W[50]);
- tmp348 = c_im(W[50]);
- tmp350 = (tmp346 * tmp347) + (tmp348 * tmp349);
- tmp566 = (tmp346 * tmp349) - (tmp348 * tmp347);
- }
- tmp351 = tmp345 + tmp350;
- tmp562 = tmp345 - tmp350;
- tmp567 = tmp565 - tmp566;
- tmp866 = tmp565 + tmp566;
- }
- {
- fftw_real tmp357;
- fftw_real tmp548;
- fftw_real tmp362;
- fftw_real tmp549;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp354;
- fftw_real tmp356;
- fftw_real tmp353;
- fftw_real tmp355;
- ASSERT_ALIGNED_DOUBLE;
- tmp354 = c_re(inout[59 * iostride]);
- tmp356 = c_im(inout[59 * iostride]);
- tmp353 = c_re(W[58]);
- tmp355 = c_im(W[58]);
- tmp357 = (tmp353 * tmp354) + (tmp355 * tmp356);
- tmp548 = (tmp353 * tmp356) - (tmp355 * tmp354);
- }
- {
- fftw_real tmp359;
- fftw_real tmp361;
- fftw_real tmp358;
- fftw_real tmp360;
- ASSERT_ALIGNED_DOUBLE;
- tmp359 = c_re(inout[27 * iostride]);
- tmp361 = c_im(inout[27 * iostride]);
- tmp358 = c_re(W[26]);
- tmp360 = c_im(W[26]);
- tmp362 = (tmp358 * tmp359) + (tmp360 * tmp361);
- tmp549 = (tmp358 * tmp361) - (tmp360 * tmp359);
- }
- tmp363 = tmp357 + tmp362;
- tmp553 = tmp357 - tmp362;
- tmp550 = tmp548 - tmp549;
- tmp870 = tmp548 + tmp549;
- }
- {
- fftw_real tmp352;
- fftw_real tmp375;
- fftw_real tmp864;
- fftw_real tmp867;
- ASSERT_ALIGNED_DOUBLE;
- tmp352 = tmp340 + tmp351;
- tmp375 = tmp363 + tmp374;
- tmp376 = tmp352 + tmp375;
- tmp1005 = tmp352 - tmp375;
- tmp864 = tmp340 - tmp351;
- tmp867 = tmp865 - tmp866;
- tmp868 = tmp864 - tmp867;
- tmp881 = tmp864 + tmp867;
- }
- {
- fftw_real tmp977;
- fftw_real tmp978;
- fftw_real tmp869;
- fftw_real tmp872;
- ASSERT_ALIGNED_DOUBLE;
- tmp977 = tmp865 + tmp866;
- tmp978 = tmp870 + tmp871;
- tmp979 = tmp977 + tmp978;
- tmp1008 = tmp978 - tmp977;
- tmp869 = tmp363 - tmp374;
- tmp872 = tmp870 - tmp871;
- tmp873 = tmp869 + tmp872;
- tmp882 = tmp872 - tmp869;
- }
- {
- fftw_real tmp552;
- fftw_real tmp557;
- fftw_real tmp706;
- fftw_real tmp707;
- ASSERT_ALIGNED_DOUBLE;
- tmp552 = tmp550 + tmp551;
- tmp557 = tmp553 - tmp556;
- tmp558 = (K923879532 * tmp552) - (K382683432 * tmp557);
- tmp582 = (K382683432 * tmp552) + (K923879532 * tmp557);
- tmp706 = tmp550 - tmp551;
- tmp707 = tmp553 + tmp556;
- tmp708 = (K382683432 * tmp706) - (K923879532 * tmp707);
- tmp718 = (K923879532 * tmp706) + (K382683432 * tmp707);
- }
- {
- fftw_real tmp563;
- fftw_real tmp568;
- fftw_real tmp709;
- fftw_real tmp710;
- ASSERT_ALIGNED_DOUBLE;
- tmp563 = tmp561 + tmp562;
- tmp568 = tmp564 - tmp567;
- tmp569 = (K923879532 * tmp563) + (K382683432 * tmp568);
- tmp581 = (K923879532 * tmp568) - (K382683432 * tmp563);
- tmp709 = tmp561 - tmp562;
- tmp710 = tmp564 + tmp567;
- tmp711 = (K382683432 * tmp709) + (K923879532 * tmp710);
- tmp717 = (K382683432 * tmp710) - (K923879532 * tmp709);
- }
- }
- {
- fftw_real tmp77;
- fftw_real tmp401;
- fftw_real tmp398;
- fftw_real tmp802;
- fftw_real tmp88;
- fftw_real tmp399;
- fftw_real tmp404;
- fftw_real tmp803;
- fftw_real tmp801;
- fftw_real tmp804;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp71;
- fftw_real tmp396;
- fftw_real tmp76;
- fftw_real tmp397;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp68;
- fftw_real tmp70;
- fftw_real tmp67;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- tmp68 = c_re(inout[60 * iostride]);
- tmp70 = c_im(inout[60 * iostride]);
- tmp67 = c_re(W[59]);
- tmp69 = c_im(W[59]);
- tmp71 = (tmp67 * tmp68) + (tmp69 * tmp70);
- tmp396 = (tmp67 * tmp70) - (tmp69 * tmp68);
- }
- {
- fftw_real tmp73;
- fftw_real tmp75;
- fftw_real tmp72;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = c_re(inout[28 * iostride]);
- tmp75 = c_im(inout[28 * iostride]);
- tmp72 = c_re(W[27]);
- tmp74 = c_im(W[27]);
- tmp76 = (tmp72 * tmp73) + (tmp74 * tmp75);
- tmp397 = (tmp72 * tmp75) - (tmp74 * tmp73);
- }
- tmp77 = tmp71 + tmp76;
- tmp401 = tmp71 - tmp76;
- tmp398 = tmp396 - tmp397;
- tmp802 = tmp396 + tmp397;
- }
- {
- fftw_real tmp82;
- fftw_real tmp402;
- fftw_real tmp87;
- fftw_real tmp403;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp79;
- fftw_real tmp81;
- fftw_real tmp78;
- fftw_real tmp80;
- ASSERT_ALIGNED_DOUBLE;
- tmp79 = c_re(inout[12 * iostride]);
- tmp81 = c_im(inout[12 * iostride]);
- tmp78 = c_re(W[11]);
- tmp80 = c_im(W[11]);
- tmp82 = (tmp78 * tmp79) + (tmp80 * tmp81);
- tmp402 = (tmp78 * tmp81) - (tmp80 * tmp79);
- }
- {
- fftw_real tmp84;
- fftw_real tmp86;
- fftw_real tmp83;
- fftw_real tmp85;
- ASSERT_ALIGNED_DOUBLE;
- tmp84 = c_re(inout[44 * iostride]);
- tmp86 = c_im(inout[44 * iostride]);
- tmp83 = c_re(W[43]);
- tmp85 = c_im(W[43]);
- tmp87 = (tmp83 * tmp84) + (tmp85 * tmp86);
- tmp403 = (tmp83 * tmp86) - (tmp85 * tmp84);
- }
- tmp88 = tmp82 + tmp87;
- tmp399 = tmp82 - tmp87;
- tmp404 = tmp402 - tmp403;
- tmp803 = tmp402 + tmp403;
- }
- tmp89 = tmp77 + tmp88;
- tmp801 = tmp77 - tmp88;
- tmp804 = tmp802 - tmp803;
- tmp805 = tmp801 + tmp804;
- tmp908 = tmp804 - tmp801;
- tmp992 = tmp802 + tmp803;
- {
- fftw_real tmp400;
- fftw_real tmp405;
- fftw_real tmp660;
- fftw_real tmp661;
- ASSERT_ALIGNED_DOUBLE;
- tmp400 = tmp398 + tmp399;
- tmp405 = tmp401 - tmp404;
- tmp406 = (K923879532 * tmp400) - (K382683432 * tmp405);
- tmp609 = (K382683432 * tmp400) + (K923879532 * tmp405);
- tmp660 = tmp398 - tmp399;
- tmp661 = tmp401 + tmp404;
- tmp662 = (K382683432 * tmp660) - (K923879532 * tmp661);
- tmp745 = (K923879532 * tmp660) + (K382683432 * tmp661);
- }
- }
- {
- fftw_real tmp143;
- fftw_real tmp420;
- fftw_real tmp148;
- fftw_real tmp421;
- fftw_real tmp149;
- fftw_real tmp808;
- fftw_real tmp183;
- fftw_real tmp433;
- fftw_real tmp432;
- fftw_real tmp814;
- fftw_real tmp154;
- fftw_real tmp438;
- fftw_real tmp159;
- fftw_real tmp439;
- fftw_real tmp160;
- fftw_real tmp809;
- fftw_real tmp172;
- fftw_real tmp425;
- fftw_real tmp428;
- fftw_real tmp815;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp140;
- fftw_real tmp142;
- fftw_real tmp139;
- fftw_real tmp141;
- ASSERT_ALIGNED_DOUBLE;
- tmp140 = c_re(inout[62 * iostride]);
- tmp142 = c_im(inout[62 * iostride]);
- tmp139 = c_re(W[61]);
- tmp141 = c_im(W[61]);
- tmp143 = (tmp139 * tmp140) + (tmp141 * tmp142);
- tmp420 = (tmp139 * tmp142) - (tmp141 * tmp140);
- }
- {
- fftw_real tmp145;
- fftw_real tmp147;
- fftw_real tmp144;
- fftw_real tmp146;
- ASSERT_ALIGNED_DOUBLE;
- tmp145 = c_re(inout[30 * iostride]);
- tmp147 = c_im(inout[30 * iostride]);
- tmp144 = c_re(W[29]);
- tmp146 = c_im(W[29]);
- tmp148 = (tmp144 * tmp145) + (tmp146 * tmp147);
- tmp421 = (tmp144 * tmp147) - (tmp146 * tmp145);
- }
- tmp149 = tmp143 + tmp148;
- tmp808 = tmp420 + tmp421;
- {
- fftw_real tmp177;
- fftw_real tmp430;
- fftw_real tmp182;
- fftw_real tmp431;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp174;
- fftw_real tmp176;
- fftw_real tmp173;
- fftw_real tmp175;
- ASSERT_ALIGNED_DOUBLE;
- tmp174 = c_re(inout[54 * iostride]);
- tmp176 = c_im(inout[54 * iostride]);
- tmp173 = c_re(W[53]);
- tmp175 = c_im(W[53]);
- tmp177 = (tmp173 * tmp174) + (tmp175 * tmp176);
- tmp430 = (tmp173 * tmp176) - (tmp175 * tmp174);
- }
- {
- fftw_real tmp179;
- fftw_real tmp181;
- fftw_real tmp178;
- fftw_real tmp180;
- ASSERT_ALIGNED_DOUBLE;
- tmp179 = c_re(inout[22 * iostride]);
- tmp181 = c_im(inout[22 * iostride]);
- tmp178 = c_re(W[21]);
- tmp180 = c_im(W[21]);
- tmp182 = (tmp178 * tmp179) + (tmp180 * tmp181);
- tmp431 = (tmp178 * tmp181) - (tmp180 * tmp179);
- }
- tmp183 = tmp177 + tmp182;
- tmp433 = tmp177 - tmp182;
- tmp432 = tmp430 - tmp431;
- tmp814 = tmp430 + tmp431;
- }
- {
- fftw_real tmp151;
- fftw_real tmp153;
- fftw_real tmp150;
- fftw_real tmp152;
- ASSERT_ALIGNED_DOUBLE;
- tmp151 = c_re(inout[14 * iostride]);
- tmp153 = c_im(inout[14 * iostride]);
- tmp150 = c_re(W[13]);
- tmp152 = c_im(W[13]);
- tmp154 = (tmp150 * tmp151) + (tmp152 * tmp153);
- tmp438 = (tmp150 * tmp153) - (tmp152 * tmp151);
- }
- {
- fftw_real tmp156;
- fftw_real tmp158;
- fftw_real tmp155;
- fftw_real tmp157;
- ASSERT_ALIGNED_DOUBLE;
- tmp156 = c_re(inout[46 * iostride]);
- tmp158 = c_im(inout[46 * iostride]);
- tmp155 = c_re(W[45]);
- tmp157 = c_im(W[45]);
- tmp159 = (tmp155 * tmp156) + (tmp157 * tmp158);
- tmp439 = (tmp155 * tmp158) - (tmp157 * tmp156);
- }
- tmp160 = tmp154 + tmp159;
- tmp809 = tmp438 + tmp439;
- {
- fftw_real tmp166;
- fftw_real tmp426;
- fftw_real tmp171;
- fftw_real tmp427;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp163;
- fftw_real tmp165;
- fftw_real tmp162;
- fftw_real tmp164;
- ASSERT_ALIGNED_DOUBLE;
- tmp163 = c_re(inout[6 * iostride]);
- tmp165 = c_im(inout[6 * iostride]);
- tmp162 = c_re(W[5]);
- tmp164 = c_im(W[5]);
- tmp166 = (tmp162 * tmp163) + (tmp164 * tmp165);
- tmp426 = (tmp162 * tmp165) - (tmp164 * tmp163);
- }
- {
- fftw_real tmp168;
- fftw_real tmp170;
- fftw_real tmp167;
- fftw_real tmp169;
- ASSERT_ALIGNED_DOUBLE;
- tmp168 = c_re(inout[38 * iostride]);
- tmp170 = c_im(inout[38 * iostride]);
- tmp167 = c_re(W[37]);
- tmp169 = c_im(W[37]);
- tmp171 = (tmp167 * tmp168) + (tmp169 * tmp170);
- tmp427 = (tmp167 * tmp170) - (tmp169 * tmp168);
- }
- tmp172 = tmp166 + tmp171;
- tmp425 = tmp166 - tmp171;
- tmp428 = tmp426 - tmp427;
- tmp815 = tmp426 + tmp427;
- }
- {
- fftw_real tmp810;
- fftw_real tmp811;
- fftw_real tmp813;
- fftw_real tmp816;
- ASSERT_ALIGNED_DOUBLE;
- tmp161 = tmp149 + tmp160;
- tmp184 = tmp172 + tmp183;
- tmp997 = tmp161 - tmp184;
- tmp810 = tmp808 - tmp809;
- tmp811 = tmp172 - tmp183;
- tmp812 = tmp810 + tmp811;
- tmp912 = tmp810 - tmp811;
- tmp956 = tmp808 + tmp809;
- tmp957 = tmp815 + tmp814;
- tmp996 = tmp956 - tmp957;
- tmp813 = tmp149 - tmp160;
- tmp816 = tmp814 - tmp815;
- tmp817 = tmp813 + tmp816;
- tmp913 = tmp813 - tmp816;
- }
- {
- fftw_real tmp422;
- fftw_real tmp423;
- fftw_real tmp437;
- fftw_real tmp440;
- ASSERT_ALIGNED_DOUBLE;
- tmp422 = tmp420 - tmp421;
- tmp423 = tmp154 - tmp159;
- tmp424 = tmp422 + tmp423;
- tmp668 = tmp422 - tmp423;
- tmp437 = tmp143 - tmp148;
- tmp440 = tmp438 - tmp439;
- tmp441 = tmp437 - tmp440;
- tmp671 = tmp437 + tmp440;
- }
- {
- fftw_real tmp442;
- fftw_real tmp443;
- fftw_real tmp429;
- fftw_real tmp434;
- ASSERT_ALIGNED_DOUBLE;
- tmp442 = tmp425 - tmp428;
- tmp443 = tmp433 + tmp432;
- tmp444 = K707106781 * (tmp442 + tmp443);
- tmp669 = K707106781 * (tmp442 - tmp443);
- tmp429 = tmp425 + tmp428;
- tmp434 = tmp432 - tmp433;
- tmp435 = K707106781 * (tmp429 + tmp434);
- tmp672 = K707106781 * (tmp434 - tmp429);
- }
- }
- {
- fftw_real tmp96;
- fftw_real tmp464;
- fftw_real tmp101;
- fftw_real tmp465;
- fftw_real tmp102;
- fftw_real tmp819;
- fftw_real tmp136;
- fftw_real tmp457;
- fftw_real tmp460;
- fftw_real tmp825;
- fftw_real tmp107;
- fftw_real tmp448;
- fftw_real tmp112;
- fftw_real tmp449;
- fftw_real tmp113;
- fftw_real tmp820;
- fftw_real tmp125;
- fftw_real tmp452;
- fftw_real tmp455;
- fftw_real tmp826;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp93;
- fftw_real tmp95;
- fftw_real tmp92;
- fftw_real tmp94;
- ASSERT_ALIGNED_DOUBLE;
- tmp93 = c_re(inout[2 * iostride]);
- tmp95 = c_im(inout[2 * iostride]);
- tmp92 = c_re(W[1]);
- tmp94 = c_im(W[1]);
- tmp96 = (tmp92 * tmp93) + (tmp94 * tmp95);
- tmp464 = (tmp92 * tmp95) - (tmp94 * tmp93);
- }
- {
- fftw_real tmp98;
- fftw_real tmp100;
- fftw_real tmp97;
- fftw_real tmp99;
- ASSERT_ALIGNED_DOUBLE;
- tmp98 = c_re(inout[34 * iostride]);
- tmp100 = c_im(inout[34 * iostride]);
- tmp97 = c_re(W[33]);
- tmp99 = c_im(W[33]);
- tmp101 = (tmp97 * tmp98) + (tmp99 * tmp100);
- tmp465 = (tmp97 * tmp100) - (tmp99 * tmp98);
- }
- tmp102 = tmp96 + tmp101;
- tmp819 = tmp464 + tmp465;
- {
- fftw_real tmp130;
- fftw_real tmp458;
- fftw_real tmp135;
- fftw_real tmp459;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp127;
- fftw_real tmp129;
- fftw_real tmp126;
- fftw_real tmp128;
- ASSERT_ALIGNED_DOUBLE;
- tmp127 = c_re(inout[58 * iostride]);
- tmp129 = c_im(inout[58 * iostride]);
- tmp126 = c_re(W[57]);
- tmp128 = c_im(W[57]);
- tmp130 = (tmp126 * tmp127) + (tmp128 * tmp129);
- tmp458 = (tmp126 * tmp129) - (tmp128 * tmp127);
- }
- {
- fftw_real tmp132;
- fftw_real tmp134;
- fftw_real tmp131;
- fftw_real tmp133;
- ASSERT_ALIGNED_DOUBLE;
- tmp132 = c_re(inout[26 * iostride]);
- tmp134 = c_im(inout[26 * iostride]);
- tmp131 = c_re(W[25]);
- tmp133 = c_im(W[25]);
- tmp135 = (tmp131 * tmp132) + (tmp133 * tmp134);
- tmp459 = (tmp131 * tmp134) - (tmp133 * tmp132);
- }
- tmp136 = tmp130 + tmp135;
- tmp457 = tmp130 - tmp135;
- tmp460 = tmp458 - tmp459;
- tmp825 = tmp458 + tmp459;
- }
- {
- fftw_real tmp104;
- fftw_real tmp106;
- fftw_real tmp103;
- fftw_real tmp105;
- ASSERT_ALIGNED_DOUBLE;
- tmp104 = c_re(inout[18 * iostride]);
- tmp106 = c_im(inout[18 * iostride]);
- tmp103 = c_re(W[17]);
- tmp105 = c_im(W[17]);
- tmp107 = (tmp103 * tmp104) + (tmp105 * tmp106);
- tmp448 = (tmp103 * tmp106) - (tmp105 * tmp104);
- }
- {
- fftw_real tmp109;
- fftw_real tmp111;
- fftw_real tmp108;
- fftw_real tmp110;
- ASSERT_ALIGNED_DOUBLE;
- tmp109 = c_re(inout[50 * iostride]);
- tmp111 = c_im(inout[50 * iostride]);
- tmp108 = c_re(W[49]);
- tmp110 = c_im(W[49]);
- tmp112 = (tmp108 * tmp109) + (tmp110 * tmp111);
- tmp449 = (tmp108 * tmp111) - (tmp110 * tmp109);
- }
- tmp113 = tmp107 + tmp112;
- tmp820 = tmp448 + tmp449;
- {
- fftw_real tmp119;
- fftw_real tmp453;
- fftw_real tmp124;
- fftw_real tmp454;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp116;
- fftw_real tmp118;
- fftw_real tmp115;
- fftw_real tmp117;
- ASSERT_ALIGNED_DOUBLE;
- tmp116 = c_re(inout[10 * iostride]);
- tmp118 = c_im(inout[10 * iostride]);
- tmp115 = c_re(W[9]);
- tmp117 = c_im(W[9]);
- tmp119 = (tmp115 * tmp116) + (tmp117 * tmp118);
- tmp453 = (tmp115 * tmp118) - (tmp117 * tmp116);
- }
- {
- fftw_real tmp121;
- fftw_real tmp123;
- fftw_real tmp120;
- fftw_real tmp122;
- ASSERT_ALIGNED_DOUBLE;
- tmp121 = c_re(inout[42 * iostride]);
- tmp123 = c_im(inout[42 * iostride]);
- tmp120 = c_re(W[41]);
- tmp122 = c_im(W[41]);
- tmp124 = (tmp120 * tmp121) + (tmp122 * tmp123);
- tmp454 = (tmp120 * tmp123) - (tmp122 * tmp121);
- }
- tmp125 = tmp119 + tmp124;
- tmp452 = tmp119 - tmp124;
- tmp455 = tmp453 - tmp454;
- tmp826 = tmp453 + tmp454;
- }
- {
- fftw_real tmp821;
- fftw_real tmp822;
- fftw_real tmp824;
- fftw_real tmp827;
- ASSERT_ALIGNED_DOUBLE;
- tmp114 = tmp102 + tmp113;
- tmp137 = tmp125 + tmp136;
- tmp999 = tmp114 - tmp137;
- tmp821 = tmp819 - tmp820;
- tmp822 = tmp125 - tmp136;
- tmp823 = tmp821 + tmp822;
- tmp915 = tmp821 - tmp822;
- tmp959 = tmp819 + tmp820;
- tmp960 = tmp826 + tmp825;
- tmp1000 = tmp959 - tmp960;
- tmp824 = tmp102 - tmp113;
- tmp827 = tmp825 - tmp826;
- tmp828 = tmp824 + tmp827;
- tmp916 = tmp824 - tmp827;
- }
- {
- fftw_real tmp447;
- fftw_real tmp450;
- fftw_real tmp466;
- fftw_real tmp467;
- ASSERT_ALIGNED_DOUBLE;
- tmp447 = tmp96 - tmp101;
- tmp450 = tmp448 - tmp449;
- tmp451 = tmp447 - tmp450;
- tmp678 = tmp447 + tmp450;
- tmp466 = tmp464 - tmp465;
- tmp467 = tmp107 - tmp112;
- tmp468 = tmp466 + tmp467;
- tmp675 = tmp466 - tmp467;
- }
- {
- fftw_real tmp469;
- fftw_real tmp470;
- fftw_real tmp456;
- fftw_real tmp461;
- ASSERT_ALIGNED_DOUBLE;
- tmp469 = tmp452 + tmp455;
- tmp470 = tmp460 - tmp457;
- tmp471 = K707106781 * (tmp469 + tmp470);
- tmp679 = K707106781 * (tmp470 - tmp469);
- tmp456 = tmp452 - tmp455;
- tmp461 = tmp457 + tmp460;
- tmp462 = K707106781 * (tmp456 + tmp461);
- tmp676 = K707106781 * (tmp456 - tmp461);
- }
- }
- {
- fftw_real tmp192;
- fftw_real tmp517;
- fftw_real tmp197;
- fftw_real tmp518;
- fftw_real tmp198;
- fftw_real tmp849;
- fftw_real tmp232;
- fftw_real tmp486;
- fftw_real tmp489;
- fftw_real tmp833;
- fftw_real tmp203;
- fftw_real tmp477;
- fftw_real tmp208;
- fftw_real tmp478;
- fftw_real tmp209;
- fftw_real tmp850;
- fftw_real tmp221;
- fftw_real tmp481;
- fftw_real tmp484;
- fftw_real tmp834;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp189;
- fftw_real tmp191;
- fftw_real tmp188;
- fftw_real tmp190;
- ASSERT_ALIGNED_DOUBLE;
- tmp189 = c_re(inout[iostride]);
- tmp191 = c_im(inout[iostride]);
- tmp188 = c_re(W[0]);
- tmp190 = c_im(W[0]);
- tmp192 = (tmp188 * tmp189) + (tmp190 * tmp191);
- tmp517 = (tmp188 * tmp191) - (tmp190 * tmp189);
- }
- {
- fftw_real tmp194;
- fftw_real tmp196;
- fftw_real tmp193;
- fftw_real tmp195;
- ASSERT_ALIGNED_DOUBLE;
- tmp194 = c_re(inout[33 * iostride]);
- tmp196 = c_im(inout[33 * iostride]);
- tmp193 = c_re(W[32]);
- tmp195 = c_im(W[32]);
- tmp197 = (tmp193 * tmp194) + (tmp195 * tmp196);
- tmp518 = (tmp193 * tmp196) - (tmp195 * tmp194);
- }
- tmp198 = tmp192 + tmp197;
- tmp849 = tmp517 + tmp518;
- {
- fftw_real tmp226;
- fftw_real tmp487;
- fftw_real tmp231;
- fftw_real tmp488;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp223;
- fftw_real tmp225;
- fftw_real tmp222;
- fftw_real tmp224;
- ASSERT_ALIGNED_DOUBLE;
- tmp223 = c_re(inout[57 * iostride]);
- tmp225 = c_im(inout[57 * iostride]);
- tmp222 = c_re(W[56]);
- tmp224 = c_im(W[56]);
- tmp226 = (tmp222 * tmp223) + (tmp224 * tmp225);
- tmp487 = (tmp222 * tmp225) - (tmp224 * tmp223);
- }
- {
- fftw_real tmp228;
- fftw_real tmp230;
- fftw_real tmp227;
- fftw_real tmp229;
- ASSERT_ALIGNED_DOUBLE;
- tmp228 = c_re(inout[25 * iostride]);
- tmp230 = c_im(inout[25 * iostride]);
- tmp227 = c_re(W[24]);
- tmp229 = c_im(W[24]);
- tmp231 = (tmp227 * tmp228) + (tmp229 * tmp230);
- tmp488 = (tmp227 * tmp230) - (tmp229 * tmp228);
- }
- tmp232 = tmp226 + tmp231;
- tmp486 = tmp226 - tmp231;
- tmp489 = tmp487 - tmp488;
- tmp833 = tmp487 + tmp488;
- }
- {
- fftw_real tmp200;
- fftw_real tmp202;
- fftw_real tmp199;
- fftw_real tmp201;
- ASSERT_ALIGNED_DOUBLE;
- tmp200 = c_re(inout[17 * iostride]);
- tmp202 = c_im(inout[17 * iostride]);
- tmp199 = c_re(W[16]);
- tmp201 = c_im(W[16]);
- tmp203 = (tmp199 * tmp200) + (tmp201 * tmp202);
- tmp477 = (tmp199 * tmp202) - (tmp201 * tmp200);
- }
- {
- fftw_real tmp205;
- fftw_real tmp207;
- fftw_real tmp204;
- fftw_real tmp206;
- ASSERT_ALIGNED_DOUBLE;
- tmp205 = c_re(inout[49 * iostride]);
- tmp207 = c_im(inout[49 * iostride]);
- tmp204 = c_re(W[48]);
- tmp206 = c_im(W[48]);
- tmp208 = (tmp204 * tmp205) + (tmp206 * tmp207);
- tmp478 = (tmp204 * tmp207) - (tmp206 * tmp205);
- }
- tmp209 = tmp203 + tmp208;
- tmp850 = tmp477 + tmp478;
- {
- fftw_real tmp215;
- fftw_real tmp482;
- fftw_real tmp220;
- fftw_real tmp483;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp212;
- fftw_real tmp214;
- fftw_real tmp211;
- fftw_real tmp213;
- ASSERT_ALIGNED_DOUBLE;
- tmp212 = c_re(inout[9 * iostride]);
- tmp214 = c_im(inout[9 * iostride]);
- tmp211 = c_re(W[8]);
- tmp213 = c_im(W[8]);
- tmp215 = (tmp211 * tmp212) + (tmp213 * tmp214);
- tmp482 = (tmp211 * tmp214) - (tmp213 * tmp212);
- }
- {
- fftw_real tmp217;
- fftw_real tmp219;
- fftw_real tmp216;
- fftw_real tmp218;
- ASSERT_ALIGNED_DOUBLE;
- tmp217 = c_re(inout[41 * iostride]);
- tmp219 = c_im(inout[41 * iostride]);
- tmp216 = c_re(W[40]);
- tmp218 = c_im(W[40]);
- tmp220 = (tmp216 * tmp217) + (tmp218 * tmp219);
- tmp483 = (tmp216 * tmp219) - (tmp218 * tmp217);
- }
- tmp221 = tmp215 + tmp220;
- tmp481 = tmp215 - tmp220;
- tmp484 = tmp482 - tmp483;
- tmp834 = tmp482 + tmp483;
- }
- {
- fftw_real tmp210;
- fftw_real tmp233;
- fftw_real tmp832;
- fftw_real tmp835;
- ASSERT_ALIGNED_DOUBLE;
- tmp210 = tmp198 + tmp209;
- tmp233 = tmp221 + tmp232;
- tmp234 = tmp210 + tmp233;
- tmp1014 = tmp210 - tmp233;
- tmp832 = tmp198 - tmp209;
- tmp835 = tmp833 - tmp834;
- tmp836 = tmp832 + tmp835;
- tmp930 = tmp832 - tmp835;
- }
- {
- fftw_real tmp965;
- fftw_real tmp966;
- fftw_real tmp851;
- fftw_real tmp852;
- ASSERT_ALIGNED_DOUBLE;
- tmp965 = tmp849 + tmp850;
- tmp966 = tmp834 + tmp833;
- tmp967 = tmp965 + tmp966;
- tmp1011 = tmp965 - tmp966;
- tmp851 = tmp849 - tmp850;
- tmp852 = tmp221 - tmp232;
- tmp853 = tmp851 + tmp852;
- tmp927 = tmp851 - tmp852;
- }
- {
- fftw_real tmp476;
- fftw_real tmp479;
- fftw_real tmp519;
- fftw_real tmp520;
- ASSERT_ALIGNED_DOUBLE;
- tmp476 = tmp192 - tmp197;
- tmp479 = tmp477 - tmp478;
- tmp480 = tmp476 - tmp479;
- tmp684 = tmp476 + tmp479;
- tmp519 = tmp517 - tmp518;
- tmp520 = tmp203 - tmp208;
- tmp521 = tmp519 + tmp520;
- tmp695 = tmp519 - tmp520;
- }
- {
- fftw_real tmp522;
- fftw_real tmp523;
- fftw_real tmp485;
- fftw_real tmp490;
- ASSERT_ALIGNED_DOUBLE;
- tmp522 = tmp481 + tmp484;
- tmp523 = tmp489 - tmp486;
- tmp524 = K707106781 * (tmp522 + tmp523);
- tmp685 = K707106781 * (tmp523 - tmp522);
- tmp485 = tmp481 - tmp484;
- tmp490 = tmp486 + tmp489;
- tmp491 = K707106781 * (tmp485 + tmp490);
- tmp696 = K707106781 * (tmp485 - tmp490);
- }
- }
- {
- fftw_real tmp245;
- fftw_real tmp509;
- fftw_real tmp506;
- fftw_real tmp838;
- fftw_real tmp279;
- fftw_real tmp496;
- fftw_real tmp501;
- fftw_real tmp844;
- fftw_real tmp256;
- fftw_real tmp507;
- fftw_real tmp512;
- fftw_real tmp839;
- fftw_real tmp268;
- fftw_real tmp498;
- fftw_real tmp495;
- fftw_real tmp843;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp239;
- fftw_real tmp504;
- fftw_real tmp244;
- fftw_real tmp505;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp236;
- fftw_real tmp238;
- fftw_real tmp235;
- fftw_real tmp237;
- ASSERT_ALIGNED_DOUBLE;
- tmp236 = c_re(inout[5 * iostride]);
- tmp238 = c_im(inout[5 * iostride]);
- tmp235 = c_re(W[4]);
- tmp237 = c_im(W[4]);
- tmp239 = (tmp235 * tmp236) + (tmp237 * tmp238);
- tmp504 = (tmp235 * tmp238) - (tmp237 * tmp236);
- }
- {
- fftw_real tmp241;
- fftw_real tmp243;
- fftw_real tmp240;
- fftw_real tmp242;
- ASSERT_ALIGNED_DOUBLE;
- tmp241 = c_re(inout[37 * iostride]);
- tmp243 = c_im(inout[37 * iostride]);
- tmp240 = c_re(W[36]);
- tmp242 = c_im(W[36]);
- tmp244 = (tmp240 * tmp241) + (tmp242 * tmp243);
- tmp505 = (tmp240 * tmp243) - (tmp242 * tmp241);
- }
- tmp245 = tmp239 + tmp244;
- tmp509 = tmp239 - tmp244;
- tmp506 = tmp504 - tmp505;
- tmp838 = tmp504 + tmp505;
- }
- {
- fftw_real tmp273;
- fftw_real tmp499;
- fftw_real tmp278;
- fftw_real tmp500;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp270;
- fftw_real tmp272;
- fftw_real tmp269;
- fftw_real tmp271;
- ASSERT_ALIGNED_DOUBLE;
- tmp270 = c_re(inout[13 * iostride]);
- tmp272 = c_im(inout[13 * iostride]);
- tmp269 = c_re(W[12]);
- tmp271 = c_im(W[12]);
- tmp273 = (tmp269 * tmp270) + (tmp271 * tmp272);
- tmp499 = (tmp269 * tmp272) - (tmp271 * tmp270);
- }
- {
- fftw_real tmp275;
- fftw_real tmp277;
- fftw_real tmp274;
- fftw_real tmp276;
- ASSERT_ALIGNED_DOUBLE;
- tmp275 = c_re(inout[45 * iostride]);
- tmp277 = c_im(inout[45 * iostride]);
- tmp274 = c_re(W[44]);
- tmp276 = c_im(W[44]);
- tmp278 = (tmp274 * tmp275) + (tmp276 * tmp277);
- tmp500 = (tmp274 * tmp277) - (tmp276 * tmp275);
- }
- tmp279 = tmp273 + tmp278;
- tmp496 = tmp273 - tmp278;
- tmp501 = tmp499 - tmp500;
- tmp844 = tmp499 + tmp500;
- }
- {
- fftw_real tmp250;
- fftw_real tmp510;
- fftw_real tmp255;
- fftw_real tmp511;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp247;
- fftw_real tmp249;
- fftw_real tmp246;
- fftw_real tmp248;
- ASSERT_ALIGNED_DOUBLE;
- tmp247 = c_re(inout[21 * iostride]);
- tmp249 = c_im(inout[21 * iostride]);
- tmp246 = c_re(W[20]);
- tmp248 = c_im(W[20]);
- tmp250 = (tmp246 * tmp247) + (tmp248 * tmp249);
- tmp510 = (tmp246 * tmp249) - (tmp248 * tmp247);
- }
- {
- fftw_real tmp252;
- fftw_real tmp254;
- fftw_real tmp251;
- fftw_real tmp253;
- ASSERT_ALIGNED_DOUBLE;
- tmp252 = c_re(inout[53 * iostride]);
- tmp254 = c_im(inout[53 * iostride]);
- tmp251 = c_re(W[52]);
- tmp253 = c_im(W[52]);
- tmp255 = (tmp251 * tmp252) + (tmp253 * tmp254);
- tmp511 = (tmp251 * tmp254) - (tmp253 * tmp252);
- }
- tmp256 = tmp250 + tmp255;
- tmp507 = tmp250 - tmp255;
- tmp512 = tmp510 - tmp511;
- tmp839 = tmp510 + tmp511;
- }
- {
- fftw_real tmp262;
- fftw_real tmp493;
- fftw_real tmp267;
- fftw_real tmp494;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp259;
- fftw_real tmp261;
- fftw_real tmp258;
- fftw_real tmp260;
- ASSERT_ALIGNED_DOUBLE;
- tmp259 = c_re(inout[61 * iostride]);
- tmp261 = c_im(inout[61 * iostride]);
- tmp258 = c_re(W[60]);
- tmp260 = c_im(W[60]);
- tmp262 = (tmp258 * tmp259) + (tmp260 * tmp261);
- tmp493 = (tmp258 * tmp261) - (tmp260 * tmp259);
- }
- {
- fftw_real tmp264;
- fftw_real tmp266;
- fftw_real tmp263;
- fftw_real tmp265;
- ASSERT_ALIGNED_DOUBLE;
- tmp264 = c_re(inout[29 * iostride]);
- tmp266 = c_im(inout[29 * iostride]);
- tmp263 = c_re(W[28]);
- tmp265 = c_im(W[28]);
- tmp267 = (tmp263 * tmp264) + (tmp265 * tmp266);
- tmp494 = (tmp263 * tmp266) - (tmp265 * tmp264);
- }
- tmp268 = tmp262 + tmp267;
- tmp498 = tmp262 - tmp267;
- tmp495 = tmp493 - tmp494;
- tmp843 = tmp493 + tmp494;
- }
- {
- fftw_real tmp257;
- fftw_real tmp280;
- fftw_real tmp837;
- fftw_real tmp840;
- ASSERT_ALIGNED_DOUBLE;
- tmp257 = tmp245 + tmp256;
- tmp280 = tmp268 + tmp279;
- tmp281 = tmp257 + tmp280;
- tmp1012 = tmp257 - tmp280;
- tmp837 = tmp245 - tmp256;
- tmp840 = tmp838 - tmp839;
- tmp841 = tmp837 - tmp840;
- tmp854 = tmp837 + tmp840;
- }
- {
- fftw_real tmp968;
- fftw_real tmp969;
- fftw_real tmp842;
- fftw_real tmp845;
- ASSERT_ALIGNED_DOUBLE;
- tmp968 = tmp838 + tmp839;
- tmp969 = tmp843 + tmp844;
- tmp970 = tmp968 + tmp969;
- tmp1015 = tmp969 - tmp968;
- tmp842 = tmp268 - tmp279;
- tmp845 = tmp843 - tmp844;
- tmp846 = tmp842 + tmp845;
- tmp855 = tmp845 - tmp842;
- }
- {
- fftw_real tmp497;
- fftw_real tmp502;
- fftw_real tmp687;
- fftw_real tmp688;
- ASSERT_ALIGNED_DOUBLE;
- tmp497 = tmp495 + tmp496;
- tmp502 = tmp498 - tmp501;
- tmp503 = (K923879532 * tmp497) - (K382683432 * tmp502);
- tmp527 = (K382683432 * tmp497) + (K923879532 * tmp502);
- tmp687 = tmp495 - tmp496;
- tmp688 = tmp498 + tmp501;
- tmp689 = (K382683432 * tmp687) - (K923879532 * tmp688);
- tmp699 = (K923879532 * tmp687) + (K382683432 * tmp688);
- }
- {
- fftw_real tmp508;
- fftw_real tmp513;
- fftw_real tmp690;
- fftw_real tmp691;
- ASSERT_ALIGNED_DOUBLE;
- tmp508 = tmp506 + tmp507;
- tmp513 = tmp509 - tmp512;
- tmp514 = (K923879532 * tmp508) + (K382683432 * tmp513);
- tmp526 = (K923879532 * tmp513) - (K382683432 * tmp508);
- tmp690 = tmp506 - tmp507;
- tmp691 = tmp509 + tmp512;
- tmp692 = (K382683432 * tmp690) + (K923879532 * tmp691);
- tmp698 = (K382683432 * tmp691) - (K923879532 * tmp690);
- }
- }
- {
- fftw_real tmp91;
- fftw_real tmp955;
- fftw_real tmp990;
- fftw_real tmp1039;
- fftw_real tmp1049;
- fftw_real tmp1055;
- fftw_real tmp186;
- fftw_real tmp1054;
- fftw_real tmp972;
- fftw_real tmp985;
- fftw_real tmp378;
- fftw_real tmp1051;
- fftw_real tmp981;
- fftw_real tmp984;
- fftw_real tmp962;
- fftw_real tmp1040;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp43;
- fftw_real tmp90;
- fftw_real tmp988;
- fftw_real tmp989;
- ASSERT_ALIGNED_DOUBLE;
- tmp43 = tmp19 + tmp42;
- tmp90 = tmp66 + tmp89;
- tmp91 = tmp43 + tmp90;
- tmp955 = tmp43 - tmp90;
- tmp988 = tmp976 + tmp979;
- tmp989 = tmp967 + tmp970;
- tmp990 = tmp988 - tmp989;
- tmp1039 = tmp989 + tmp988;
- }
- {
- fftw_real tmp1041;
- fftw_real tmp1048;
- fftw_real tmp138;
- fftw_real tmp185;
- ASSERT_ALIGNED_DOUBLE;
- tmp1041 = tmp993 + tmp992;
- tmp1048 = tmp1042 + tmp1047;
- tmp1049 = tmp1041 + tmp1048;
- tmp1055 = tmp1048 - tmp1041;
- tmp138 = tmp114 + tmp137;
- tmp185 = tmp161 + tmp184;
- tmp186 = tmp138 + tmp185;
- tmp1054 = tmp138 - tmp185;
- }
- {
- fftw_real tmp964;
- fftw_real tmp971;
- fftw_real tmp282;
- fftw_real tmp377;
- ASSERT_ALIGNED_DOUBLE;
- tmp964 = tmp234 - tmp281;
- tmp971 = tmp967 - tmp970;
- tmp972 = tmp964 - tmp971;
- tmp985 = tmp964 + tmp971;
- tmp282 = tmp234 + tmp281;
- tmp377 = tmp329 + tmp376;
- tmp378 = tmp282 + tmp377;
- tmp1051 = tmp282 - tmp377;
- }
- {
- fftw_real tmp973;
- fftw_real tmp980;
- fftw_real tmp958;
- fftw_real tmp961;
- ASSERT_ALIGNED_DOUBLE;
- tmp973 = tmp329 - tmp376;
- tmp980 = tmp976 - tmp979;
- tmp981 = tmp973 + tmp980;
- tmp984 = tmp980 - tmp973;
- tmp958 = tmp956 + tmp957;
- tmp961 = tmp959 + tmp960;
- tmp962 = tmp958 - tmp961;
- tmp1040 = tmp961 + tmp958;
- }
- {
- fftw_real tmp187;
- fftw_real tmp987;
- fftw_real tmp1050;
- fftw_real tmp1052;
- ASSERT_ALIGNED_DOUBLE;
- tmp187 = tmp91 + tmp186;
- c_re(inout[32 * iostride]) = tmp187 - tmp378;
- c_re(inout[0]) = tmp187 + tmp378;
- tmp987 = tmp91 - tmp186;
- c_re(inout[48 * iostride]) = tmp987 - tmp990;
- c_re(inout[16 * iostride]) = tmp987 + tmp990;
- {
- fftw_real tmp963;
- fftw_real tmp982;
- fftw_real tmp1057;
- fftw_real tmp1058;
- ASSERT_ALIGNED_DOUBLE;
- tmp963 = tmp955 + tmp962;
- tmp982 = K707106781 * (tmp972 + tmp981);
- c_re(inout[40 * iostride]) = tmp963 - tmp982;
- c_re(inout[8 * iostride]) = tmp963 + tmp982;
- tmp1057 = K707106781 * (tmp972 - tmp981);
- tmp1058 = tmp1055 - tmp1054;
- c_im(inout[24 * iostride]) = tmp1057 + tmp1058;
- c_im(inout[56 * iostride]) = tmp1058 - tmp1057;
- }
- tmp1050 = tmp1040 + tmp1049;
- c_im(inout[0]) = tmp1039 + tmp1050;
- c_im(inout[32 * iostride]) = tmp1050 - tmp1039;
- tmp1052 = tmp1049 - tmp1040;
- c_im(inout[16 * iostride]) = tmp1051 + tmp1052;
- c_im(inout[48 * iostride]) = tmp1052 - tmp1051;
- {
- fftw_real tmp1053;
- fftw_real tmp1056;
- fftw_real tmp983;
- fftw_real tmp986;
- ASSERT_ALIGNED_DOUBLE;
- tmp1053 = K707106781 * (tmp985 + tmp984);
- tmp1056 = tmp1054 + tmp1055;
- c_im(inout[8 * iostride]) = tmp1053 + tmp1056;
- c_im(inout[40 * iostride]) = tmp1056 - tmp1053;
- tmp983 = tmp955 - tmp962;
- tmp986 = K707106781 * (tmp984 - tmp985);
- c_re(inout[56 * iostride]) = tmp983 - tmp986;
- c_re(inout[24 * iostride]) = tmp983 + tmp986;
- }
- }
- }
- {
- fftw_real tmp995;
- fftw_real tmp1023;
- fftw_real tmp1026;
- fftw_real tmp1068;
- fftw_real tmp1002;
- fftw_real tmp1060;
- fftw_real tmp1063;
- fftw_real tmp1069;
- fftw_real tmp1010;
- fftw_real tmp1021;
- fftw_real tmp1030;
- fftw_real tmp1037;
- fftw_real tmp1017;
- fftw_real tmp1020;
- fftw_real tmp1033;
- fftw_real tmp1036;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp991;
- fftw_real tmp994;
- fftw_real tmp1024;
- fftw_real tmp1025;
- ASSERT_ALIGNED_DOUBLE;
- tmp991 = tmp19 - tmp42;
- tmp994 = tmp992 - tmp993;
- tmp995 = tmp991 - tmp994;
- tmp1023 = tmp991 + tmp994;
- tmp1024 = tmp999 - tmp1000;
- tmp1025 = tmp997 + tmp996;
- tmp1026 = K707106781 * (tmp1024 + tmp1025);
- tmp1068 = K707106781 * (tmp1024 - tmp1025);
- }
- {
- fftw_real tmp998;
- fftw_real tmp1001;
- fftw_real tmp1061;
- fftw_real tmp1062;
- ASSERT_ALIGNED_DOUBLE;
- tmp998 = tmp996 - tmp997;
- tmp1001 = tmp999 + tmp1000;
- tmp1002 = K707106781 * (tmp998 - tmp1001);
- tmp1060 = K707106781 * (tmp1001 + tmp998);
- tmp1061 = tmp66 - tmp89;
- tmp1062 = tmp1047 - tmp1042;
- tmp1063 = tmp1061 + tmp1062;
- tmp1069 = tmp1062 - tmp1061;
- }
- {
- fftw_real tmp1006;
- fftw_real tmp1009;
- fftw_real tmp1028;
- fftw_real tmp1029;
- ASSERT_ALIGNED_DOUBLE;
- tmp1006 = tmp1004 - tmp1005;
- tmp1009 = tmp1007 - tmp1008;
- tmp1010 = (K382683432 * tmp1006) - (K923879532 * tmp1009);
- tmp1021 = (K923879532 * tmp1006) + (K382683432 * tmp1009);
- tmp1028 = tmp1004 + tmp1005;
- tmp1029 = tmp1007 + tmp1008;
- tmp1030 = (K923879532 * tmp1028) - (K382683432 * tmp1029);
- tmp1037 = (K382683432 * tmp1028) + (K923879532 * tmp1029);
- }
- {
- fftw_real tmp1013;
- fftw_real tmp1016;
- fftw_real tmp1031;
- fftw_real tmp1032;
- ASSERT_ALIGNED_DOUBLE;
- tmp1013 = tmp1011 - tmp1012;
- tmp1016 = tmp1014 - tmp1015;
- tmp1017 = (K382683432 * tmp1013) + (K923879532 * tmp1016);
- tmp1020 = (K382683432 * tmp1016) - (K923879532 * tmp1013);
- tmp1031 = tmp1011 + tmp1012;
- tmp1032 = tmp1014 + tmp1015;
- tmp1033 = (K923879532 * tmp1031) + (K382683432 * tmp1032);
- tmp1036 = (K923879532 * tmp1032) - (K382683432 * tmp1031);
- }
- {
- fftw_real tmp1003;
- fftw_real tmp1018;
- fftw_real tmp1019;
- fftw_real tmp1022;
- ASSERT_ALIGNED_DOUBLE;
- tmp1003 = tmp995 - tmp1002;
- tmp1018 = tmp1010 - tmp1017;
- c_re(inout[60 * iostride]) = tmp1003 - tmp1018;
- c_re(inout[28 * iostride]) = tmp1003 + tmp1018;
- tmp1019 = tmp995 + tmp1002;
- tmp1022 = tmp1020 + tmp1021;
- c_re(inout[44 * iostride]) = tmp1019 - tmp1022;
- c_re(inout[12 * iostride]) = tmp1019 + tmp1022;
- }
- {
- fftw_real tmp1071;
- fftw_real tmp1072;
- fftw_real tmp1067;
- fftw_real tmp1070;
- ASSERT_ALIGNED_DOUBLE;
- tmp1071 = tmp1020 - tmp1021;
- tmp1072 = tmp1069 - tmp1068;
- c_im(inout[28 * iostride]) = tmp1071 + tmp1072;
- c_im(inout[60 * iostride]) = tmp1072 - tmp1071;
- tmp1067 = tmp1017 + tmp1010;
- tmp1070 = tmp1068 + tmp1069;
- c_im(inout[12 * iostride]) = tmp1067 + tmp1070;
- c_im(inout[44 * iostride]) = tmp1070 - tmp1067;
- }
- {
- fftw_real tmp1027;
- fftw_real tmp1034;
- fftw_real tmp1035;
- fftw_real tmp1038;
- ASSERT_ALIGNED_DOUBLE;
- tmp1027 = tmp1023 - tmp1026;
- tmp1034 = tmp1030 - tmp1033;
- c_re(inout[52 * iostride]) = tmp1027 - tmp1034;
- c_re(inout[20 * iostride]) = tmp1027 + tmp1034;
- tmp1035 = tmp1023 + tmp1026;
- tmp1038 = tmp1036 + tmp1037;
- c_re(inout[36 * iostride]) = tmp1035 - tmp1038;
- c_re(inout[4 * iostride]) = tmp1035 + tmp1038;
- }
- {
- fftw_real tmp1065;
- fftw_real tmp1066;
- fftw_real tmp1059;
- fftw_real tmp1064;
- ASSERT_ALIGNED_DOUBLE;
- tmp1065 = tmp1036 - tmp1037;
- tmp1066 = tmp1063 - tmp1060;
- c_im(inout[20 * iostride]) = tmp1065 + tmp1066;
- c_im(inout[52 * iostride]) = tmp1066 - tmp1065;
- tmp1059 = tmp1033 + tmp1030;
- tmp1064 = tmp1060 + tmp1063;
- c_im(inout[4 * iostride]) = tmp1059 + tmp1064;
- c_im(inout[36 * iostride]) = tmp1064 - tmp1059;
- }
- }
- {
- fftw_real tmp419;
- fftw_real tmp591;
- fftw_real tmp1125;
- fftw_real tmp1131;
- fftw_real tmp474;
- fftw_real tmp1122;
- fftw_real tmp594;
- fftw_real tmp1130;
- fftw_real tmp530;
- fftw_real tmp589;
- fftw_real tmp598;
- fftw_real tmp605;
- fftw_real tmp585;
- fftw_real tmp588;
- fftw_real tmp601;
- fftw_real tmp604;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp395;
- fftw_real tmp418;
- fftw_real tmp1123;
- fftw_real tmp1124;
- ASSERT_ALIGNED_DOUBLE;
- tmp395 = tmp383 - tmp394;
- tmp418 = tmp406 - tmp417;
- tmp419 = tmp395 - tmp418;
- tmp591 = tmp395 + tmp418;
- tmp1123 = tmp608 - tmp609;
- tmp1124 = tmp1109 - tmp1106;
- tmp1125 = tmp1123 + tmp1124;
- tmp1131 = tmp1124 - tmp1123;
- }
- {
- fftw_real tmp446;
- fftw_real tmp593;
- fftw_real tmp473;
- fftw_real tmp592;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp436;
- fftw_real tmp445;
- fftw_real tmp463;
- fftw_real tmp472;
- ASSERT_ALIGNED_DOUBLE;
- tmp436 = tmp424 - tmp435;
- tmp445 = tmp441 - tmp444;
- tmp446 = (K555570233 * tmp436) - (K831469612 * tmp445);
- tmp593 = (K555570233 * tmp445) + (K831469612 * tmp436);
- tmp463 = tmp451 - tmp462;
- tmp472 = tmp468 - tmp471;
- tmp473 = (K831469612 * tmp463) + (K555570233 * tmp472);
- tmp592 = (K555570233 * tmp463) - (K831469612 * tmp472);
- }
- tmp474 = tmp446 - tmp473;
- tmp1122 = tmp473 + tmp446;
- tmp594 = tmp592 + tmp593;
- tmp1130 = tmp592 - tmp593;
- }
- {
- fftw_real tmp516;
- fftw_real tmp596;
- fftw_real tmp529;
- fftw_real tmp597;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp492;
- fftw_real tmp515;
- fftw_real tmp525;
- fftw_real tmp528;
- ASSERT_ALIGNED_DOUBLE;
- tmp492 = tmp480 - tmp491;
- tmp515 = tmp503 - tmp514;
- tmp516 = tmp492 - tmp515;
- tmp596 = tmp492 + tmp515;
- tmp525 = tmp521 - tmp524;
- tmp528 = tmp526 - tmp527;
- tmp529 = tmp525 - tmp528;
- tmp597 = tmp525 + tmp528;
- }
- tmp530 = (K290284677 * tmp516) - (K956940335 * tmp529);
- tmp589 = (K956940335 * tmp516) + (K290284677 * tmp529);
- tmp598 = (K881921264 * tmp596) - (K471396736 * tmp597);
- tmp605 = (K471396736 * tmp596) + (K881921264 * tmp597);
- }
- {
- fftw_real tmp571;
- fftw_real tmp599;
- fftw_real tmp584;
- fftw_real tmp600;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp547;
- fftw_real tmp570;
- fftw_real tmp580;
- fftw_real tmp583;
- ASSERT_ALIGNED_DOUBLE;
- tmp547 = tmp535 - tmp546;
- tmp570 = tmp558 - tmp569;
- tmp571 = tmp547 - tmp570;
- tmp599 = tmp547 + tmp570;
- tmp580 = tmp576 - tmp579;
- tmp583 = tmp581 - tmp582;
- tmp584 = tmp580 - tmp583;
- tmp600 = tmp580 + tmp583;
- }
- tmp585 = (K290284677 * tmp571) + (K956940335 * tmp584);
- tmp588 = (K290284677 * tmp584) - (K956940335 * tmp571);
- tmp601 = (K881921264 * tmp599) + (K471396736 * tmp600);
- tmp604 = (K881921264 * tmp600) - (K471396736 * tmp599);
- }
- {
- fftw_real tmp475;
- fftw_real tmp586;
- fftw_real tmp587;
- fftw_real tmp590;
- ASSERT_ALIGNED_DOUBLE;
- tmp475 = tmp419 + tmp474;
- tmp586 = tmp530 + tmp585;
- c_re(inout[45 * iostride]) = tmp475 - tmp586;
- c_re(inout[13 * iostride]) = tmp475 + tmp586;
- tmp587 = tmp419 - tmp474;
- tmp590 = tmp588 - tmp589;
- c_re(inout[61 * iostride]) = tmp587 - tmp590;
- c_re(inout[29 * iostride]) = tmp587 + tmp590;
- }
- {
- fftw_real tmp1129;
- fftw_real tmp1132;
- fftw_real tmp1133;
- fftw_real tmp1134;
- ASSERT_ALIGNED_DOUBLE;
- tmp1129 = tmp589 + tmp588;
- tmp1132 = tmp1130 + tmp1131;
- c_im(inout[13 * iostride]) = tmp1129 + tmp1132;
- c_im(inout[45 * iostride]) = tmp1132 - tmp1129;
- tmp1133 = tmp530 - tmp585;
- tmp1134 = tmp1131 - tmp1130;
- c_im(inout[29 * iostride]) = tmp1133 + tmp1134;
- c_im(inout[61 * iostride]) = tmp1134 - tmp1133;
- }
- {
- fftw_real tmp595;
- fftw_real tmp602;
- fftw_real tmp603;
- fftw_real tmp606;
- ASSERT_ALIGNED_DOUBLE;
- tmp595 = tmp591 + tmp594;
- tmp602 = tmp598 + tmp601;
- c_re(inout[37 * iostride]) = tmp595 - tmp602;
- c_re(inout[5 * iostride]) = tmp595 + tmp602;
- tmp603 = tmp591 - tmp594;
- tmp606 = tmp604 - tmp605;
- c_re(inout[53 * iostride]) = tmp603 - tmp606;
- c_re(inout[21 * iostride]) = tmp603 + tmp606;
- }
- {
- fftw_real tmp1121;
- fftw_real tmp1126;
- fftw_real tmp1127;
- fftw_real tmp1128;
- ASSERT_ALIGNED_DOUBLE;
- tmp1121 = tmp605 + tmp604;
- tmp1126 = tmp1122 + tmp1125;
- c_im(inout[5 * iostride]) = tmp1121 + tmp1126;
- c_im(inout[37 * iostride]) = tmp1126 - tmp1121;
- tmp1127 = tmp598 - tmp601;
- tmp1128 = tmp1125 - tmp1122;
- c_im(inout[21 * iostride]) = tmp1127 + tmp1128;
- c_im(inout[53 * iostride]) = tmp1128 - tmp1127;
- }
- }
- {
- fftw_real tmp611;
- fftw_real tmp639;
- fftw_real tmp1111;
- fftw_real tmp1117;
- fftw_real tmp618;
- fftw_real tmp1104;
- fftw_real tmp642;
- fftw_real tmp1116;
- fftw_real tmp626;
- fftw_real tmp637;
- fftw_real tmp646;
- fftw_real tmp653;
- fftw_real tmp633;
- fftw_real tmp636;
- fftw_real tmp649;
- fftw_real tmp652;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp607;
- fftw_real tmp610;
- fftw_real tmp1105;
- fftw_real tmp1110;
- ASSERT_ALIGNED_DOUBLE;
- tmp607 = tmp383 + tmp394;
- tmp610 = tmp608 + tmp609;
- tmp611 = tmp607 - tmp610;
- tmp639 = tmp607 + tmp610;
- tmp1105 = tmp417 + tmp406;
- tmp1110 = tmp1106 + tmp1109;
- tmp1111 = tmp1105 + tmp1110;
- tmp1117 = tmp1110 - tmp1105;
- }
- {
- fftw_real tmp614;
- fftw_real tmp641;
- fftw_real tmp617;
- fftw_real tmp640;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp612;
- fftw_real tmp613;
- fftw_real tmp615;
- fftw_real tmp616;
- ASSERT_ALIGNED_DOUBLE;
- tmp612 = tmp424 + tmp435;
- tmp613 = tmp441 + tmp444;
- tmp614 = (K980785280 * tmp612) - (K195090322 * tmp613);
- tmp641 = (K980785280 * tmp613) + (K195090322 * tmp612);
- tmp615 = tmp451 + tmp462;
- tmp616 = tmp468 + tmp471;
- tmp617 = (K195090322 * tmp615) + (K980785280 * tmp616);
- tmp640 = (K980785280 * tmp615) - (K195090322 * tmp616);
- }
- tmp618 = tmp614 - tmp617;
- tmp1104 = tmp617 + tmp614;
- tmp642 = tmp640 + tmp641;
- tmp1116 = tmp640 - tmp641;
- }
- {
- fftw_real tmp622;
- fftw_real tmp644;
- fftw_real tmp625;
- fftw_real tmp645;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp620;
- fftw_real tmp621;
- fftw_real tmp623;
- fftw_real tmp624;
- ASSERT_ALIGNED_DOUBLE;
- tmp620 = tmp576 + tmp579;
- tmp621 = tmp569 + tmp558;
- tmp622 = tmp620 - tmp621;
- tmp644 = tmp620 + tmp621;
- tmp623 = tmp535 + tmp546;
- tmp624 = tmp581 + tmp582;
- tmp625 = tmp623 - tmp624;
- tmp645 = tmp623 + tmp624;
- }
- tmp626 = (K634393284 * tmp622) - (K773010453 * tmp625);
- tmp637 = (K773010453 * tmp622) + (K634393284 * tmp625);
- tmp646 = (K995184726 * tmp644) - (K098017140 * tmp645);
- tmp653 = (K098017140 * tmp644) + (K995184726 * tmp645);
- }
- {
- fftw_real tmp629;
- fftw_real tmp647;
- fftw_real tmp632;
- fftw_real tmp648;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp627;
- fftw_real tmp628;
- fftw_real tmp630;
- fftw_real tmp631;
- ASSERT_ALIGNED_DOUBLE;
- tmp627 = tmp521 + tmp524;
- tmp628 = tmp514 + tmp503;
- tmp629 = tmp627 - tmp628;
- tmp647 = tmp627 + tmp628;
- tmp630 = tmp480 + tmp491;
- tmp631 = tmp526 + tmp527;
- tmp632 = tmp630 - tmp631;
- tmp648 = tmp630 + tmp631;
- }
- tmp633 = (K634393284 * tmp629) + (K773010453 * tmp632);
- tmp636 = (K634393284 * tmp632) - (K773010453 * tmp629);
- tmp649 = (K995184726 * tmp647) + (K098017140 * tmp648);
- tmp652 = (K995184726 * tmp648) - (K098017140 * tmp647);
- }
- {
- fftw_real tmp619;
- fftw_real tmp634;
- fftw_real tmp635;
- fftw_real tmp638;
- ASSERT_ALIGNED_DOUBLE;
- tmp619 = tmp611 - tmp618;
- tmp634 = tmp626 - tmp633;
- c_re(inout[57 * iostride]) = tmp619 - tmp634;
- c_re(inout[25 * iostride]) = tmp619 + tmp634;
- tmp635 = tmp611 + tmp618;
- tmp638 = tmp636 + tmp637;
- c_re(inout[41 * iostride]) = tmp635 - tmp638;
- c_re(inout[9 * iostride]) = tmp635 + tmp638;
- }
- {
- fftw_real tmp1119;
- fftw_real tmp1120;
- fftw_real tmp1115;
- fftw_real tmp1118;
- ASSERT_ALIGNED_DOUBLE;
- tmp1119 = tmp636 - tmp637;
- tmp1120 = tmp1117 - tmp1116;
- c_im(inout[25 * iostride]) = tmp1119 + tmp1120;
- c_im(inout[57 * iostride]) = tmp1120 - tmp1119;
- tmp1115 = tmp633 + tmp626;
- tmp1118 = tmp1116 + tmp1117;
- c_im(inout[9 * iostride]) = tmp1115 + tmp1118;
- c_im(inout[41 * iostride]) = tmp1118 - tmp1115;
- }
- {
- fftw_real tmp643;
- fftw_real tmp650;
- fftw_real tmp651;
- fftw_real tmp654;
- ASSERT_ALIGNED_DOUBLE;
- tmp643 = tmp639 - tmp642;
- tmp650 = tmp646 - tmp649;
- c_re(inout[49 * iostride]) = tmp643 - tmp650;
- c_re(inout[17 * iostride]) = tmp643 + tmp650;
- tmp651 = tmp639 + tmp642;
- tmp654 = tmp652 + tmp653;
- c_re(inout[33 * iostride]) = tmp651 - tmp654;
- c_re(inout[iostride]) = tmp651 + tmp654;
- }
- {
- fftw_real tmp1113;
- fftw_real tmp1114;
- fftw_real tmp1103;
- fftw_real tmp1112;
- ASSERT_ALIGNED_DOUBLE;
- tmp1113 = tmp652 - tmp653;
- tmp1114 = tmp1111 - tmp1104;
- c_im(inout[17 * iostride]) = tmp1113 + tmp1114;
- c_im(inout[49 * iostride]) = tmp1114 - tmp1113;
- tmp1103 = tmp649 + tmp646;
- tmp1112 = tmp1104 + tmp1111;
- c_im(inout[iostride]) = tmp1103 + tmp1112;
- c_im(inout[33 * iostride]) = tmp1112 - tmp1103;
- }
- }
- {
- fftw_real tmp807;
- fftw_real tmp891;
- fftw_real tmp830;
- fftw_real tmp1074;
- fftw_real tmp1079;
- fftw_real tmp1085;
- fftw_real tmp894;
- fftw_real tmp1084;
- fftw_real tmp885;
- fftw_real tmp888;
- fftw_real tmp901;
- fftw_real tmp904;
- fftw_real tmp858;
- fftw_real tmp889;
- fftw_real tmp898;
- fftw_real tmp905;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp795;
- fftw_real tmp806;
- fftw_real tmp892;
- fftw_real tmp893;
- ASSERT_ALIGNED_DOUBLE;
- tmp795 = tmp791 + tmp794;
- tmp806 = K707106781 * (tmp800 + tmp805);
- tmp807 = tmp795 - tmp806;
- tmp891 = tmp795 + tmp806;
- {
- fftw_real tmp818;
- fftw_real tmp829;
- fftw_real tmp1075;
- fftw_real tmp1078;
- ASSERT_ALIGNED_DOUBLE;
- tmp818 = (K923879532 * tmp812) - (K382683432 * tmp817);
- tmp829 = (K923879532 * tmp823) + (K382683432 * tmp828);
- tmp830 = tmp818 - tmp829;
- tmp1074 = tmp829 + tmp818;
- tmp1075 = K707106781 * (tmp909 + tmp908);
- tmp1078 = tmp1076 + tmp1077;
- tmp1079 = tmp1075 + tmp1078;
- tmp1085 = tmp1078 - tmp1075;
- }
- tmp892 = (K923879532 * tmp828) - (K382683432 * tmp823);
- tmp893 = (K382683432 * tmp812) + (K923879532 * tmp817);
- tmp894 = tmp892 + tmp893;
- tmp1084 = tmp892 - tmp893;
- {
- fftw_real tmp875;
- fftw_real tmp899;
- fftw_real tmp884;
- fftw_real tmp900;
- fftw_real tmp874;
- fftw_real tmp883;
- ASSERT_ALIGNED_DOUBLE;
- tmp874 = K707106781 * (tmp868 + tmp873);
- tmp875 = tmp863 - tmp874;
- tmp899 = tmp863 + tmp874;
- tmp883 = K707106781 * (tmp881 + tmp882);
- tmp884 = tmp880 - tmp883;
- tmp900 = tmp880 + tmp883;
- tmp885 = (K555570233 * tmp875) + (K831469612 * tmp884);
- tmp888 = (K555570233 * tmp884) - (K831469612 * tmp875);
- tmp901 = (K980785280 * tmp899) + (K195090322 * tmp900);
- tmp904 = (K980785280 * tmp900) - (K195090322 * tmp899);
- }
- {
- fftw_real tmp848;
- fftw_real tmp896;
- fftw_real tmp857;
- fftw_real tmp897;
- fftw_real tmp847;
- fftw_real tmp856;
- ASSERT_ALIGNED_DOUBLE;
- tmp847 = K707106781 * (tmp841 + tmp846);
- tmp848 = tmp836 - tmp847;
- tmp896 = tmp836 + tmp847;
- tmp856 = K707106781 * (tmp854 + tmp855);
- tmp857 = tmp853 - tmp856;
- tmp897 = tmp853 + tmp856;
- tmp858 = (K555570233 * tmp848) - (K831469612 * tmp857);
- tmp889 = (K831469612 * tmp848) + (K555570233 * tmp857);
- tmp898 = (K980785280 * tmp896) - (K195090322 * tmp897);
- tmp905 = (K195090322 * tmp896) + (K980785280 * tmp897);
- }
- }
- {
- fftw_real tmp831;
- fftw_real tmp886;
- fftw_real tmp887;
- fftw_real tmp890;
- ASSERT_ALIGNED_DOUBLE;
- tmp831 = tmp807 + tmp830;
- tmp886 = tmp858 + tmp885;
- c_re(inout[42 * iostride]) = tmp831 - tmp886;
- c_re(inout[10 * iostride]) = tmp831 + tmp886;
- tmp887 = tmp807 - tmp830;
- tmp890 = tmp888 - tmp889;
- c_re(inout[58 * iostride]) = tmp887 - tmp890;
- c_re(inout[26 * iostride]) = tmp887 + tmp890;
- }
- {
- fftw_real tmp1083;
- fftw_real tmp1086;
- fftw_real tmp1087;
- fftw_real tmp1088;
- ASSERT_ALIGNED_DOUBLE;
- tmp1083 = tmp889 + tmp888;
- tmp1086 = tmp1084 + tmp1085;
- c_im(inout[10 * iostride]) = tmp1083 + tmp1086;
- c_im(inout[42 * iostride]) = tmp1086 - tmp1083;
- tmp1087 = tmp858 - tmp885;
- tmp1088 = tmp1085 - tmp1084;
- c_im(inout[26 * iostride]) = tmp1087 + tmp1088;
- c_im(inout[58 * iostride]) = tmp1088 - tmp1087;
- }
- {
- fftw_real tmp895;
- fftw_real tmp902;
- fftw_real tmp903;
- fftw_real tmp906;
- ASSERT_ALIGNED_DOUBLE;
- tmp895 = tmp891 + tmp894;
- tmp902 = tmp898 + tmp901;
- c_re(inout[34 * iostride]) = tmp895 - tmp902;
- c_re(inout[2 * iostride]) = tmp895 + tmp902;
- tmp903 = tmp891 - tmp894;
- tmp906 = tmp904 - tmp905;
- c_re(inout[50 * iostride]) = tmp903 - tmp906;
- c_re(inout[18 * iostride]) = tmp903 + tmp906;
- }
- {
- fftw_real tmp1073;
- fftw_real tmp1080;
- fftw_real tmp1081;
- fftw_real tmp1082;
- ASSERT_ALIGNED_DOUBLE;
- tmp1073 = tmp905 + tmp904;
- tmp1080 = tmp1074 + tmp1079;
- c_im(inout[2 * iostride]) = tmp1073 + tmp1080;
- c_im(inout[34 * iostride]) = tmp1080 - tmp1073;
- tmp1081 = tmp898 - tmp901;
- tmp1082 = tmp1079 - tmp1074;
- c_im(inout[18 * iostride]) = tmp1081 + tmp1082;
- c_im(inout[50 * iostride]) = tmp1082 - tmp1081;
- }
- }
- {
- fftw_real tmp911;
- fftw_real tmp939;
- fftw_real tmp918;
- fftw_real tmp1090;
- fftw_real tmp1093;
- fftw_real tmp1099;
- fftw_real tmp942;
- fftw_real tmp1098;
- fftw_real tmp933;
- fftw_real tmp936;
- fftw_real tmp949;
- fftw_real tmp952;
- fftw_real tmp926;
- fftw_real tmp937;
- fftw_real tmp946;
- fftw_real tmp953;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp907;
- fftw_real tmp910;
- fftw_real tmp940;
- fftw_real tmp941;
- ASSERT_ALIGNED_DOUBLE;
- tmp907 = tmp791 - tmp794;
- tmp910 = K707106781 * (tmp908 - tmp909);
- tmp911 = tmp907 - tmp910;
- tmp939 = tmp907 + tmp910;
- {
- fftw_real tmp914;
- fftw_real tmp917;
- fftw_real tmp1091;
- fftw_real tmp1092;
- ASSERT_ALIGNED_DOUBLE;
- tmp914 = (K382683432 * tmp912) - (K923879532 * tmp913);
- tmp917 = (K382683432 * tmp915) + (K923879532 * tmp916);
- tmp918 = tmp914 - tmp917;
- tmp1090 = tmp917 + tmp914;
- tmp1091 = K707106781 * (tmp800 - tmp805);
- tmp1092 = tmp1077 - tmp1076;
- tmp1093 = tmp1091 + tmp1092;
- tmp1099 = tmp1092 - tmp1091;
- }
- tmp940 = (K382683432 * tmp916) - (K923879532 * tmp915);
- tmp941 = (K923879532 * tmp912) + (K382683432 * tmp913);
- tmp942 = tmp940 + tmp941;
- tmp1098 = tmp940 - tmp941;
- {
- fftw_real tmp929;
- fftw_real tmp947;
- fftw_real tmp932;
- fftw_real tmp948;
- fftw_real tmp928;
- fftw_real tmp931;
- ASSERT_ALIGNED_DOUBLE;
- tmp928 = K707106781 * (tmp841 - tmp846);
- tmp929 = tmp927 - tmp928;
- tmp947 = tmp927 + tmp928;
- tmp931 = K707106781 * (tmp855 - tmp854);
- tmp932 = tmp930 - tmp931;
- tmp948 = tmp930 + tmp931;
- tmp933 = (K195090322 * tmp929) + (K980785280 * tmp932);
- tmp936 = (K195090322 * tmp932) - (K980785280 * tmp929);
- tmp949 = (K831469612 * tmp947) + (K555570233 * tmp948);
- tmp952 = (K831469612 * tmp948) - (K555570233 * tmp947);
- }
- {
- fftw_real tmp922;
- fftw_real tmp944;
- fftw_real tmp925;
- fftw_real tmp945;
- fftw_real tmp921;
- fftw_real tmp924;
- ASSERT_ALIGNED_DOUBLE;
- tmp921 = K707106781 * (tmp868 - tmp873);
- tmp922 = tmp920 - tmp921;
- tmp944 = tmp920 + tmp921;
- tmp924 = K707106781 * (tmp882 - tmp881);
- tmp925 = tmp923 - tmp924;
- tmp945 = tmp923 + tmp924;
- tmp926 = (K195090322 * tmp922) - (K980785280 * tmp925);
- tmp937 = (K980785280 * tmp922) + (K195090322 * tmp925);
- tmp946 = (K831469612 * tmp944) - (K555570233 * tmp945);
- tmp953 = (K555570233 * tmp944) + (K831469612 * tmp945);
- }
- }
- {
- fftw_real tmp919;
- fftw_real tmp934;
- fftw_real tmp935;
- fftw_real tmp938;
- ASSERT_ALIGNED_DOUBLE;
- tmp919 = tmp911 - tmp918;
- tmp934 = tmp926 - tmp933;
- c_re(inout[62 * iostride]) = tmp919 - tmp934;
- c_re(inout[30 * iostride]) = tmp919 + tmp934;
- tmp935 = tmp911 + tmp918;
- tmp938 = tmp936 + tmp937;
- c_re(inout[46 * iostride]) = tmp935 - tmp938;
- c_re(inout[14 * iostride]) = tmp935 + tmp938;
- }
- {
- fftw_real tmp1101;
- fftw_real tmp1102;
- fftw_real tmp1097;
- fftw_real tmp1100;
- ASSERT_ALIGNED_DOUBLE;
- tmp1101 = tmp936 - tmp937;
- tmp1102 = tmp1099 - tmp1098;
- c_im(inout[30 * iostride]) = tmp1101 + tmp1102;
- c_im(inout[62 * iostride]) = tmp1102 - tmp1101;
- tmp1097 = tmp933 + tmp926;
- tmp1100 = tmp1098 + tmp1099;
- c_im(inout[14 * iostride]) = tmp1097 + tmp1100;
- c_im(inout[46 * iostride]) = tmp1100 - tmp1097;
- }
- {
- fftw_real tmp943;
- fftw_real tmp950;
- fftw_real tmp951;
- fftw_real tmp954;
- ASSERT_ALIGNED_DOUBLE;
- tmp943 = tmp939 - tmp942;
- tmp950 = tmp946 - tmp949;
- c_re(inout[54 * iostride]) = tmp943 - tmp950;
- c_re(inout[22 * iostride]) = tmp943 + tmp950;
- tmp951 = tmp939 + tmp942;
- tmp954 = tmp952 + tmp953;
- c_re(inout[38 * iostride]) = tmp951 - tmp954;
- c_re(inout[6 * iostride]) = tmp951 + tmp954;
- }
- {
- fftw_real tmp1095;
- fftw_real tmp1096;
- fftw_real tmp1089;
- fftw_real tmp1094;
- ASSERT_ALIGNED_DOUBLE;
- tmp1095 = tmp952 - tmp953;
- tmp1096 = tmp1093 - tmp1090;
- c_im(inout[22 * iostride]) = tmp1095 + tmp1096;
- c_im(inout[54 * iostride]) = tmp1096 - tmp1095;
- tmp1089 = tmp949 + tmp946;
- tmp1094 = tmp1090 + tmp1093;
- c_im(inout[6 * iostride]) = tmp1089 + tmp1094;
- c_im(inout[38 * iostride]) = tmp1094 - tmp1089;
- }
- }
- {
- fftw_real tmp667;
- fftw_real tmp727;
- fftw_real tmp1155;
- fftw_real tmp1161;
- fftw_real tmp682;
- fftw_real tmp1152;
- fftw_real tmp730;
- fftw_real tmp1160;
- fftw_real tmp702;
- fftw_real tmp725;
- fftw_real tmp734;
- fftw_real tmp741;
- fftw_real tmp721;
- fftw_real tmp724;
- fftw_real tmp737;
- fftw_real tmp740;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp659;
- fftw_real tmp666;
- fftw_real tmp1153;
- fftw_real tmp1154;
- ASSERT_ALIGNED_DOUBLE;
- tmp659 = tmp655 - tmp658;
- tmp666 = tmp662 - tmp665;
- tmp667 = tmp659 - tmp666;
- tmp727 = tmp659 + tmp666;
- tmp1153 = tmp744 - tmp745;
- tmp1154 = tmp1139 - tmp1138;
- tmp1155 = tmp1153 + tmp1154;
- tmp1161 = tmp1154 - tmp1153;
- }
- {
- fftw_real tmp674;
- fftw_real tmp729;
- fftw_real tmp681;
- fftw_real tmp728;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp670;
- fftw_real tmp673;
- fftw_real tmp677;
- fftw_real tmp680;
- ASSERT_ALIGNED_DOUBLE;
- tmp670 = tmp668 - tmp669;
- tmp673 = tmp671 - tmp672;
- tmp674 = (K195090322 * tmp670) - (K980785280 * tmp673);
- tmp729 = (K980785280 * tmp670) + (K195090322 * tmp673);
- tmp677 = tmp675 - tmp676;
- tmp680 = tmp678 - tmp679;
- tmp681 = (K195090322 * tmp677) + (K980785280 * tmp680);
- tmp728 = (K195090322 * tmp680) - (K980785280 * tmp677);
- }
- tmp682 = tmp674 - tmp681;
- tmp1152 = tmp681 + tmp674;
- tmp730 = tmp728 + tmp729;
- tmp1160 = tmp728 - tmp729;
- }
- {
- fftw_real tmp694;
- fftw_real tmp732;
- fftw_real tmp701;
- fftw_real tmp733;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp686;
- fftw_real tmp693;
- fftw_real tmp697;
- fftw_real tmp700;
- ASSERT_ALIGNED_DOUBLE;
- tmp686 = tmp684 - tmp685;
- tmp693 = tmp689 - tmp692;
- tmp694 = tmp686 - tmp693;
- tmp732 = tmp686 + tmp693;
- tmp697 = tmp695 - tmp696;
- tmp700 = tmp698 - tmp699;
- tmp701 = tmp697 - tmp700;
- tmp733 = tmp697 + tmp700;
- }
- tmp702 = (K098017140 * tmp694) - (K995184726 * tmp701);
- tmp725 = (K995184726 * tmp694) + (K098017140 * tmp701);
- tmp734 = (K773010453 * tmp732) - (K634393284 * tmp733);
- tmp741 = (K634393284 * tmp732) + (K773010453 * tmp733);
- }
- {
- fftw_real tmp713;
- fftw_real tmp735;
- fftw_real tmp720;
- fftw_real tmp736;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp705;
- fftw_real tmp712;
- fftw_real tmp716;
- fftw_real tmp719;
- ASSERT_ALIGNED_DOUBLE;
- tmp705 = tmp703 - tmp704;
- tmp712 = tmp708 - tmp711;
- tmp713 = tmp705 - tmp712;
- tmp735 = tmp705 + tmp712;
- tmp716 = tmp714 - tmp715;
- tmp719 = tmp717 - tmp718;
- tmp720 = tmp716 - tmp719;
- tmp736 = tmp716 + tmp719;
- }
- tmp721 = (K098017140 * tmp713) + (K995184726 * tmp720);
- tmp724 = (K098017140 * tmp720) - (K995184726 * tmp713);
- tmp737 = (K773010453 * tmp735) + (K634393284 * tmp736);
- tmp740 = (K773010453 * tmp736) - (K634393284 * tmp735);
- }
- {
- fftw_real tmp683;
- fftw_real tmp722;
- fftw_real tmp723;
- fftw_real tmp726;
- ASSERT_ALIGNED_DOUBLE;
- tmp683 = tmp667 + tmp682;
- tmp722 = tmp702 + tmp721;
- c_re(inout[47 * iostride]) = tmp683 - tmp722;
- c_re(inout[15 * iostride]) = tmp683 + tmp722;
- tmp723 = tmp667 - tmp682;
- tmp726 = tmp724 - tmp725;
- c_re(inout[63 * iostride]) = tmp723 - tmp726;
- c_re(inout[31 * iostride]) = tmp723 + tmp726;
- }
- {
- fftw_real tmp1159;
- fftw_real tmp1162;
- fftw_real tmp1163;
- fftw_real tmp1164;
- ASSERT_ALIGNED_DOUBLE;
- tmp1159 = tmp725 + tmp724;
- tmp1162 = tmp1160 + tmp1161;
- c_im(inout[15 * iostride]) = tmp1159 + tmp1162;
- c_im(inout[47 * iostride]) = tmp1162 - tmp1159;
- tmp1163 = tmp702 - tmp721;
- tmp1164 = tmp1161 - tmp1160;
- c_im(inout[31 * iostride]) = tmp1163 + tmp1164;
- c_im(inout[63 * iostride]) = tmp1164 - tmp1163;
- }
- {
- fftw_real tmp731;
- fftw_real tmp738;
- fftw_real tmp739;
- fftw_real tmp742;
- ASSERT_ALIGNED_DOUBLE;
- tmp731 = tmp727 + tmp730;
- tmp738 = tmp734 + tmp737;
- c_re(inout[39 * iostride]) = tmp731 - tmp738;
- c_re(inout[7 * iostride]) = tmp731 + tmp738;
- tmp739 = tmp727 - tmp730;
- tmp742 = tmp740 - tmp741;
- c_re(inout[55 * iostride]) = tmp739 - tmp742;
- c_re(inout[23 * iostride]) = tmp739 + tmp742;
- }
- {
- fftw_real tmp1151;
- fftw_real tmp1156;
- fftw_real tmp1157;
- fftw_real tmp1158;
- ASSERT_ALIGNED_DOUBLE;
- tmp1151 = tmp741 + tmp740;
- tmp1156 = tmp1152 + tmp1155;
- c_im(inout[7 * iostride]) = tmp1151 + tmp1156;
- c_im(inout[39 * iostride]) = tmp1156 - tmp1151;
- tmp1157 = tmp734 - tmp737;
- tmp1158 = tmp1155 - tmp1152;
- c_im(inout[23 * iostride]) = tmp1157 + tmp1158;
- c_im(inout[55 * iostride]) = tmp1158 - tmp1157;
- }
- }
- {
- fftw_real tmp747;
- fftw_real tmp775;
- fftw_real tmp1141;
- fftw_real tmp1147;
- fftw_real tmp754;
- fftw_real tmp1136;
- fftw_real tmp778;
- fftw_real tmp1146;
- fftw_real tmp762;
- fftw_real tmp773;
- fftw_real tmp782;
- fftw_real tmp789;
- fftw_real tmp769;
- fftw_real tmp772;
- fftw_real tmp785;
- fftw_real tmp788;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp743;
- fftw_real tmp746;
- fftw_real tmp1137;
- fftw_real tmp1140;
- ASSERT_ALIGNED_DOUBLE;
- tmp743 = tmp655 + tmp658;
- tmp746 = tmp744 + tmp745;
- tmp747 = tmp743 - tmp746;
- tmp775 = tmp743 + tmp746;
- tmp1137 = tmp665 + tmp662;
- tmp1140 = tmp1138 + tmp1139;
- tmp1141 = tmp1137 + tmp1140;
- tmp1147 = tmp1140 - tmp1137;
- }
- {
- fftw_real tmp750;
- fftw_real tmp777;
- fftw_real tmp753;
- fftw_real tmp776;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp748;
- fftw_real tmp749;
- fftw_real tmp751;
- fftw_real tmp752;
- ASSERT_ALIGNED_DOUBLE;
- tmp748 = tmp668 + tmp669;
- tmp749 = tmp671 + tmp672;
- tmp750 = (K831469612 * tmp748) - (K555570233 * tmp749);
- tmp777 = (K555570233 * tmp748) + (K831469612 * tmp749);
- tmp751 = tmp675 + tmp676;
- tmp752 = tmp678 + tmp679;
- tmp753 = (K831469612 * tmp751) + (K555570233 * tmp752);
- tmp776 = (K831469612 * tmp752) - (K555570233 * tmp751);
- }
- tmp754 = tmp750 - tmp753;
- tmp1136 = tmp753 + tmp750;
- tmp778 = tmp776 + tmp777;
- tmp1146 = tmp776 - tmp777;
- }
- {
- fftw_real tmp758;
- fftw_real tmp780;
- fftw_real tmp761;
- fftw_real tmp781;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp756;
- fftw_real tmp757;
- fftw_real tmp759;
- fftw_real tmp760;
- ASSERT_ALIGNED_DOUBLE;
- tmp756 = tmp714 + tmp715;
- tmp757 = tmp711 + tmp708;
- tmp758 = tmp756 - tmp757;
- tmp780 = tmp756 + tmp757;
- tmp759 = tmp703 + tmp704;
- tmp760 = tmp717 + tmp718;
- tmp761 = tmp759 - tmp760;
- tmp781 = tmp759 + tmp760;
- }
- tmp762 = (K471396736 * tmp758) - (K881921264 * tmp761);
- tmp773 = (K881921264 * tmp758) + (K471396736 * tmp761);
- tmp782 = (K956940335 * tmp780) - (K290284677 * tmp781);
- tmp789 = (K290284677 * tmp780) + (K956940335 * tmp781);
- }
- {
- fftw_real tmp765;
- fftw_real tmp783;
- fftw_real tmp768;
- fftw_real tmp784;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp763;
- fftw_real tmp764;
- fftw_real tmp766;
- fftw_real tmp767;
- ASSERT_ALIGNED_DOUBLE;
- tmp763 = tmp695 + tmp696;
- tmp764 = tmp692 + tmp689;
- tmp765 = tmp763 - tmp764;
- tmp783 = tmp763 + tmp764;
- tmp766 = tmp684 + tmp685;
- tmp767 = tmp698 + tmp699;
- tmp768 = tmp766 - tmp767;
- tmp784 = tmp766 + tmp767;
- }
- tmp769 = (K471396736 * tmp765) + (K881921264 * tmp768);
- tmp772 = (K471396736 * tmp768) - (K881921264 * tmp765);
- tmp785 = (K956940335 * tmp783) + (K290284677 * tmp784);
- tmp788 = (K956940335 * tmp784) - (K290284677 * tmp783);
- }
- {
- fftw_real tmp755;
- fftw_real tmp770;
- fftw_real tmp771;
- fftw_real tmp774;
- ASSERT_ALIGNED_DOUBLE;
- tmp755 = tmp747 - tmp754;
- tmp770 = tmp762 - tmp769;
- c_re(inout[59 * iostride]) = tmp755 - tmp770;
- c_re(inout[27 * iostride]) = tmp755 + tmp770;
- tmp771 = tmp747 + tmp754;
- tmp774 = tmp772 + tmp773;
- c_re(inout[43 * iostride]) = tmp771 - tmp774;
- c_re(inout[11 * iostride]) = tmp771 + tmp774;
- }
- {
- fftw_real tmp1149;
- fftw_real tmp1150;
- fftw_real tmp1145;
- fftw_real tmp1148;
- ASSERT_ALIGNED_DOUBLE;
- tmp1149 = tmp772 - tmp773;
- tmp1150 = tmp1147 - tmp1146;
- c_im(inout[27 * iostride]) = tmp1149 + tmp1150;
- c_im(inout[59 * iostride]) = tmp1150 - tmp1149;
- tmp1145 = tmp769 + tmp762;
- tmp1148 = tmp1146 + tmp1147;
- c_im(inout[11 * iostride]) = tmp1145 + tmp1148;
- c_im(inout[43 * iostride]) = tmp1148 - tmp1145;
- }
- {
- fftw_real tmp779;
- fftw_real tmp786;
- fftw_real tmp787;
- fftw_real tmp790;
- ASSERT_ALIGNED_DOUBLE;
- tmp779 = tmp775 - tmp778;
- tmp786 = tmp782 - tmp785;
- c_re(inout[51 * iostride]) = tmp779 - tmp786;
- c_re(inout[19 * iostride]) = tmp779 + tmp786;
- tmp787 = tmp775 + tmp778;
- tmp790 = tmp788 + tmp789;
- c_re(inout[35 * iostride]) = tmp787 - tmp790;
- c_re(inout[3 * iostride]) = tmp787 + tmp790;
- }
- {
- fftw_real tmp1143;
- fftw_real tmp1144;
- fftw_real tmp1135;
- fftw_real tmp1142;
- ASSERT_ALIGNED_DOUBLE;
- tmp1143 = tmp788 - tmp789;
- tmp1144 = tmp1141 - tmp1136;
- c_im(inout[19 * iostride]) = tmp1143 + tmp1144;
- c_im(inout[51 * iostride]) = tmp1144 - tmp1143;
- tmp1135 = tmp785 + tmp782;
- tmp1142 = tmp1136 + tmp1141;
- c_im(inout[3 * iostride]) = tmp1135 + tmp1142;
- c_im(inout[35 * iostride]) = tmp1142 - tmp1135;
- }
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63};
-fftw_codelet_desc fftwi_twiddle_64_desc =
-{
- "fftwi_twiddle_64",
- (void (*)()) fftwi_twiddle_64,
- 64,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 1419,
- 63,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_7.c b/src/sndobj/rfftw/ftwi_7.c
deleted file mode 100644
index 1162b4a..0000000
--- a/src/sndobj/rfftw/ftwi_7.c
+++ /dev/null
@@ -1,243 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:58 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 7 */
-
-/*
- * This function contains 72 FP additions, 60 FP multiplications,
- * (or, 60 additions, 48 multiplications, 12 fused multiply/add),
- * 24 stack variables, and 28 memory accesses
- */
-static const fftw_real K222520933 = FFTW_KONST(+0.222520933956314404288902564496794759466355569);
-static const fftw_real K900968867 = FFTW_KONST(+0.900968867902419126236102319507445051165919162);
-static const fftw_real K623489801 = FFTW_KONST(+0.623489801858733530525004884004239810632274731);
-static const fftw_real K433883739 = FFTW_KONST(+0.433883739117558120475768332848358754609990728);
-static const fftw_real K974927912 = FFTW_KONST(+0.974927912181823607018131682993931217232785801);
-static const fftw_real K781831482 = FFTW_KONST(+0.781831482468029808708444526674057750232334519);
-
-/*
- * Generator Id's :
- * $Id: ftwi_7.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: ftwi_7.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- * $Id: ftwi_7.c,v 1.1.1.1 2006/05/12 15:15:01 veplaini Exp $
- */
-
-void fftwi_twiddle_7(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 6) {
- fftw_real tmp1;
- fftw_real tmp53;
- fftw_real tmp12;
- fftw_real tmp54;
- fftw_real tmp38;
- fftw_real tmp50;
- fftw_real tmp23;
- fftw_real tmp55;
- fftw_real tmp44;
- fftw_real tmp51;
- fftw_real tmp34;
- fftw_real tmp56;
- fftw_real tmp41;
- fftw_real tmp52;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp53 = c_im(inout[0]);
- {
- fftw_real tmp6;
- fftw_real tmp37;
- fftw_real tmp11;
- fftw_real tmp36;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[iostride]);
- tmp5 = c_im(inout[iostride]);
- tmp2 = c_re(W[0]);
- tmp4 = c_im(W[0]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp37 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- {
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp7;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(inout[6 * iostride]);
- tmp10 = c_im(inout[6 * iostride]);
- tmp7 = c_re(W[5]);
- tmp9 = c_im(W[5]);
- tmp11 = (tmp7 * tmp8) + (tmp9 * tmp10);
- tmp36 = (tmp7 * tmp10) - (tmp9 * tmp8);
- }
- tmp12 = tmp6 + tmp11;
- tmp54 = tmp6 - tmp11;
- tmp38 = tmp36 - tmp37;
- tmp50 = tmp37 + tmp36;
- }
- {
- fftw_real tmp17;
- fftw_real tmp43;
- fftw_real tmp22;
- fftw_real tmp42;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[2 * iostride]);
- tmp16 = c_im(inout[2 * iostride]);
- tmp13 = c_re(W[1]);
- tmp15 = c_im(W[1]);
- tmp17 = (tmp13 * tmp14) + (tmp15 * tmp16);
- tmp43 = (tmp13 * tmp16) - (tmp15 * tmp14);
- }
- {
- fftw_real tmp19;
- fftw_real tmp21;
- fftw_real tmp18;
- fftw_real tmp20;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = c_re(inout[5 * iostride]);
- tmp21 = c_im(inout[5 * iostride]);
- tmp18 = c_re(W[4]);
- tmp20 = c_im(W[4]);
- tmp22 = (tmp18 * tmp19) + (tmp20 * tmp21);
- tmp42 = (tmp18 * tmp21) - (tmp20 * tmp19);
- }
- tmp23 = tmp17 + tmp22;
- tmp55 = tmp17 - tmp22;
- tmp44 = tmp42 - tmp43;
- tmp51 = tmp43 + tmp42;
- }
- {
- fftw_real tmp28;
- fftw_real tmp40;
- fftw_real tmp33;
- fftw_real tmp39;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp25;
- fftw_real tmp27;
- fftw_real tmp24;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = c_re(inout[3 * iostride]);
- tmp27 = c_im(inout[3 * iostride]);
- tmp24 = c_re(W[2]);
- tmp26 = c_im(W[2]);
- tmp28 = (tmp24 * tmp25) + (tmp26 * tmp27);
- tmp40 = (tmp24 * tmp27) - (tmp26 * tmp25);
- }
- {
- fftw_real tmp30;
- fftw_real tmp32;
- fftw_real tmp29;
- fftw_real tmp31;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = c_re(inout[4 * iostride]);
- tmp32 = c_im(inout[4 * iostride]);
- tmp29 = c_re(W[3]);
- tmp31 = c_im(W[3]);
- tmp33 = (tmp29 * tmp30) + (tmp31 * tmp32);
- tmp39 = (tmp29 * tmp32) - (tmp31 * tmp30);
- }
- tmp34 = tmp28 + tmp33;
- tmp56 = tmp28 - tmp33;
- tmp41 = tmp39 - tmp40;
- tmp52 = tmp40 + tmp39;
- }
- {
- fftw_real tmp47;
- fftw_real tmp46;
- fftw_real tmp59;
- fftw_real tmp60;
- ASSERT_ALIGNED_DOUBLE;
- c_re(inout[0]) = tmp1 + tmp12 + tmp23 + tmp34;
- tmp47 = (K781831482 * tmp38) + (K974927912 * tmp44) + (K433883739 * tmp41);
- tmp46 = tmp1 + (K623489801 * tmp12) - (K900968867 * tmp34) - (K222520933 * tmp23);
- c_re(inout[6 * iostride]) = tmp46 - tmp47;
- c_re(inout[iostride]) = tmp46 + tmp47;
- {
- fftw_real tmp49;
- fftw_real tmp48;
- fftw_real tmp45;
- fftw_real tmp35;
- ASSERT_ALIGNED_DOUBLE;
- tmp49 = (K433883739 * tmp38) + (K974927912 * tmp41) - (K781831482 * tmp44);
- tmp48 = tmp1 + (K623489801 * tmp23) - (K222520933 * tmp34) - (K900968867 * tmp12);
- c_re(inout[4 * iostride]) = tmp48 - tmp49;
- c_re(inout[3 * iostride]) = tmp48 + tmp49;
- tmp45 = (K974927912 * tmp38) - (K781831482 * tmp41) - (K433883739 * tmp44);
- tmp35 = tmp1 + (K623489801 * tmp34) - (K900968867 * tmp23) - (K222520933 * tmp12);
- c_re(inout[5 * iostride]) = tmp35 - tmp45;
- c_re(inout[2 * iostride]) = tmp35 + tmp45;
- }
- c_im(inout[0]) = tmp50 + tmp51 + tmp52 + tmp53;
- tmp59 = (K974927912 * tmp54) - (K781831482 * tmp56) - (K433883739 * tmp55);
- tmp60 = (K623489801 * tmp52) + tmp53 - (K900968867 * tmp51) - (K222520933 * tmp50);
- c_im(inout[2 * iostride]) = tmp59 + tmp60;
- c_im(inout[5 * iostride]) = tmp60 - tmp59;
- {
- fftw_real tmp61;
- fftw_real tmp62;
- fftw_real tmp57;
- fftw_real tmp58;
- ASSERT_ALIGNED_DOUBLE;
- tmp61 = (K433883739 * tmp54) + (K974927912 * tmp56) - (K781831482 * tmp55);
- tmp62 = (K623489801 * tmp51) + tmp53 - (K222520933 * tmp52) - (K900968867 * tmp50);
- c_im(inout[3 * iostride]) = tmp61 + tmp62;
- c_im(inout[4 * iostride]) = tmp62 - tmp61;
- tmp57 = (K781831482 * tmp54) + (K974927912 * tmp55) + (K433883739 * tmp56);
- tmp58 = (K623489801 * tmp50) + tmp53 - (K900968867 * tmp52) - (K222520933 * tmp51);
- c_im(inout[iostride]) = tmp57 + tmp58;
- c_im(inout[6 * iostride]) = tmp58 - tmp57;
- }
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6};
-fftw_codelet_desc fftwi_twiddle_7_desc =
-{
- "fftwi_twiddle_7",
- (void (*)()) fftwi_twiddle_7,
- 7,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 165,
- 6,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_8.c b/src/sndobj/rfftw/ftwi_8.c
deleted file mode 100644
index a8fd4b8..0000000
--- a/src/sndobj/rfftw/ftwi_8.c
+++ /dev/null
@@ -1,285 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:58 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 8 */
-
-/*
- * This function contains 66 FP additions, 32 FP multiplications,
- * (or, 52 additions, 18 multiplications, 14 fused multiply/add),
- * 28 stack variables, and 32 memory accesses
- */
-static const fftw_real K707106781 = FFTW_KONST(+0.707106781186547524400844362104849039284835938);
-
-/*
- * Generator Id's :
- * $Id: ftwi_8.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: ftwi_8.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- * $Id: ftwi_8.c,v 1.1.1.1 2006/05/12 15:14:50 veplaini Exp $
- */
-
-void fftwi_twiddle_8(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 7) {
- fftw_real tmp7;
- fftw_real tmp43;
- fftw_real tmp71;
- fftw_real tmp77;
- fftw_real tmp41;
- fftw_real tmp53;
- fftw_real tmp56;
- fftw_real tmp64;
- fftw_real tmp18;
- fftw_real tmp76;
- fftw_real tmp46;
- fftw_real tmp68;
- fftw_real tmp30;
- fftw_real tmp48;
- fftw_real tmp51;
- fftw_real tmp65;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp1;
- fftw_real tmp70;
- fftw_real tmp6;
- fftw_real tmp69;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp70 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[4 * iostride]);
- tmp5 = c_im(inout[4 * iostride]);
- tmp2 = c_re(W[3]);
- tmp4 = c_im(W[3]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp69 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- tmp7 = tmp1 + tmp6;
- tmp43 = tmp1 - tmp6;
- tmp71 = tmp69 + tmp70;
- tmp77 = tmp70 - tmp69;
- }
- {
- fftw_real tmp35;
- fftw_real tmp54;
- fftw_real tmp40;
- fftw_real tmp55;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[7 * iostride]);
- tmp34 = c_im(inout[7 * iostride]);
- tmp31 = c_re(W[6]);
- tmp33 = c_im(W[6]);
- tmp35 = (tmp31 * tmp32) + (tmp33 * tmp34);
- tmp54 = (tmp31 * tmp34) - (tmp33 * tmp32);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[3 * iostride]);
- tmp39 = c_im(inout[3 * iostride]);
- tmp36 = c_re(W[2]);
- tmp38 = c_im(W[2]);
- tmp40 = (tmp36 * tmp37) + (tmp38 * tmp39);
- tmp55 = (tmp36 * tmp39) - (tmp38 * tmp37);
- }
- tmp41 = tmp35 + tmp40;
- tmp53 = tmp35 - tmp40;
- tmp56 = tmp54 - tmp55;
- tmp64 = tmp54 + tmp55;
- }
- {
- fftw_real tmp12;
- fftw_real tmp44;
- fftw_real tmp17;
- fftw_real tmp45;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp9;
- fftw_real tmp11;
- fftw_real tmp8;
- fftw_real tmp10;
- ASSERT_ALIGNED_DOUBLE;
- tmp9 = c_re(inout[2 * iostride]);
- tmp11 = c_im(inout[2 * iostride]);
- tmp8 = c_re(W[1]);
- tmp10 = c_im(W[1]);
- tmp12 = (tmp8 * tmp9) + (tmp10 * tmp11);
- tmp44 = (tmp8 * tmp11) - (tmp10 * tmp9);
- }
- {
- fftw_real tmp14;
- fftw_real tmp16;
- fftw_real tmp13;
- fftw_real tmp15;
- ASSERT_ALIGNED_DOUBLE;
- tmp14 = c_re(inout[6 * iostride]);
- tmp16 = c_im(inout[6 * iostride]);
- tmp13 = c_re(W[5]);
- tmp15 = c_im(W[5]);
- tmp17 = (tmp13 * tmp14) + (tmp15 * tmp16);
- tmp45 = (tmp13 * tmp16) - (tmp15 * tmp14);
- }
- tmp18 = tmp12 + tmp17;
- tmp76 = tmp12 - tmp17;
- tmp46 = tmp44 - tmp45;
- tmp68 = tmp44 + tmp45;
- }
- {
- fftw_real tmp24;
- fftw_real tmp49;
- fftw_real tmp29;
- fftw_real tmp50;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp21;
- fftw_real tmp23;
- fftw_real tmp20;
- fftw_real tmp22;
- ASSERT_ALIGNED_DOUBLE;
- tmp21 = c_re(inout[iostride]);
- tmp23 = c_im(inout[iostride]);
- tmp20 = c_re(W[0]);
- tmp22 = c_im(W[0]);
- tmp24 = (tmp20 * tmp21) + (tmp22 * tmp23);
- tmp49 = (tmp20 * tmp23) - (tmp22 * tmp21);
- }
- {
- fftw_real tmp26;
- fftw_real tmp28;
- fftw_real tmp25;
- fftw_real tmp27;
- ASSERT_ALIGNED_DOUBLE;
- tmp26 = c_re(inout[5 * iostride]);
- tmp28 = c_im(inout[5 * iostride]);
- tmp25 = c_re(W[4]);
- tmp27 = c_im(W[4]);
- tmp29 = (tmp25 * tmp26) + (tmp27 * tmp28);
- tmp50 = (tmp25 * tmp28) - (tmp27 * tmp26);
- }
- tmp30 = tmp24 + tmp29;
- tmp48 = tmp24 - tmp29;
- tmp51 = tmp49 - tmp50;
- tmp65 = tmp49 + tmp50;
- }
- {
- fftw_real tmp19;
- fftw_real tmp42;
- fftw_real tmp63;
- fftw_real tmp66;
- ASSERT_ALIGNED_DOUBLE;
- tmp19 = tmp7 + tmp18;
- tmp42 = tmp30 + tmp41;
- c_re(inout[4 * iostride]) = tmp19 - tmp42;
- c_re(inout[0]) = tmp19 + tmp42;
- {
- fftw_real tmp73;
- fftw_real tmp74;
- fftw_real tmp67;
- fftw_real tmp72;
- ASSERT_ALIGNED_DOUBLE;
- tmp73 = tmp30 - tmp41;
- tmp74 = tmp71 - tmp68;
- c_im(inout[2 * iostride]) = tmp73 + tmp74;
- c_im(inout[6 * iostride]) = tmp74 - tmp73;
- tmp67 = tmp65 + tmp64;
- tmp72 = tmp68 + tmp71;
- c_im(inout[0]) = tmp67 + tmp72;
- c_im(inout[4 * iostride]) = tmp72 - tmp67;
- }
- tmp63 = tmp7 - tmp18;
- tmp66 = tmp64 - tmp65;
- c_re(inout[6 * iostride]) = tmp63 - tmp66;
- c_re(inout[2 * iostride]) = tmp63 + tmp66;
- {
- fftw_real tmp59;
- fftw_real tmp78;
- fftw_real tmp62;
- fftw_real tmp75;
- fftw_real tmp60;
- fftw_real tmp61;
- ASSERT_ALIGNED_DOUBLE;
- tmp59 = tmp43 + tmp46;
- tmp78 = tmp76 + tmp77;
- tmp60 = tmp56 - tmp53;
- tmp61 = tmp48 + tmp51;
- tmp62 = K707106781 * (tmp60 - tmp61);
- tmp75 = K707106781 * (tmp61 + tmp60);
- c_re(inout[7 * iostride]) = tmp59 - tmp62;
- c_re(inout[3 * iostride]) = tmp59 + tmp62;
- c_im(inout[iostride]) = tmp75 + tmp78;
- c_im(inout[5 * iostride]) = tmp78 - tmp75;
- }
- {
- fftw_real tmp47;
- fftw_real tmp80;
- fftw_real tmp58;
- fftw_real tmp79;
- fftw_real tmp52;
- fftw_real tmp57;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = tmp43 - tmp46;
- tmp80 = tmp77 - tmp76;
- tmp52 = tmp48 - tmp51;
- tmp57 = tmp53 + tmp56;
- tmp58 = K707106781 * (tmp52 + tmp57);
- tmp79 = K707106781 * (tmp52 - tmp57);
- c_re(inout[5 * iostride]) = tmp47 - tmp58;
- c_re(inout[iostride]) = tmp47 + tmp58;
- c_im(inout[3 * iostride]) = tmp79 + tmp80;
- c_im(inout[7 * iostride]) = tmp80 - tmp79;
- }
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7};
-fftw_codelet_desc fftwi_twiddle_8_desc =
-{
- "fftwi_twiddle_8",
- (void (*)()) fftwi_twiddle_8,
- 8,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 187,
- 7,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/ftwi_9.c b/src/sndobj/rfftw/ftwi_9.c
deleted file mode 100644
index efdb9a4..0000000
--- a/src/sndobj/rfftw/ftwi_9.c
+++ /dev/null
@@ -1,370 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* This file was automatically generated --- DO NOT EDIT */
-/* Generated on Sun Nov 7 20:44:59 EST 1999 */
-
-#include <fftw-int.h>
-#include <fftw.h>
-
-/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 9 */
-
-/*
- * This function contains 96 FP additions, 72 FP multiplications,
- * (or, 60 additions, 36 multiplications, 36 fused multiply/add),
- * 34 stack variables, and 36 memory accesses
- */
-static const fftw_real K642787609 = FFTW_KONST(+0.642787609686539326322643409907263432907559884);
-static const fftw_real K766044443 = FFTW_KONST(+0.766044443118978035202392650555416673935832457);
-static const fftw_real K939692620 = FFTW_KONST(+0.939692620785908384054109277324731469936208134);
-static const fftw_real K342020143 = FFTW_KONST(+0.342020143325668733044099614682259580763083368);
-static const fftw_real K984807753 = FFTW_KONST(+0.984807753012208059366743024589523013670643252);
-static const fftw_real K173648177 = FFTW_KONST(+0.173648177666930348851716626769314796000375677);
-static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
-static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
-
-/*
- * Generator Id's :
- * $Id: ftwi_9.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- * $Id: ftwi_9.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- * $Id: ftwi_9.c,v 1.1.1.1 2006/05/12 15:14:49 veplaini Exp $
- */
-
-void fftwi_twiddle_9(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist)
-{
- int i;
- fftw_complex *inout;
- inout = A;
- for (i = m; i > 0; i = i - 1, inout = inout + dist, W = W + 8) {
- fftw_real tmp1;
- fftw_real tmp99;
- fftw_real tmp64;
- fftw_real tmp98;
- fftw_real tmp105;
- fftw_real tmp104;
- fftw_real tmp12;
- fftw_real tmp61;
- fftw_real tmp47;
- fftw_real tmp78;
- fftw_real tmp89;
- fftw_real tmp54;
- fftw_real tmp75;
- fftw_real tmp90;
- fftw_real tmp30;
- fftw_real tmp68;
- fftw_real tmp86;
- fftw_real tmp59;
- fftw_real tmp71;
- fftw_real tmp87;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp6;
- fftw_real tmp63;
- fftw_real tmp11;
- fftw_real tmp62;
- ASSERT_ALIGNED_DOUBLE;
- tmp1 = c_re(inout[0]);
- tmp99 = c_im(inout[0]);
- {
- fftw_real tmp3;
- fftw_real tmp5;
- fftw_real tmp2;
- fftw_real tmp4;
- ASSERT_ALIGNED_DOUBLE;
- tmp3 = c_re(inout[3 * iostride]);
- tmp5 = c_im(inout[3 * iostride]);
- tmp2 = c_re(W[2]);
- tmp4 = c_im(W[2]);
- tmp6 = (tmp2 * tmp3) + (tmp4 * tmp5);
- tmp63 = (tmp2 * tmp5) - (tmp4 * tmp3);
- }
- {
- fftw_real tmp8;
- fftw_real tmp10;
- fftw_real tmp7;
- fftw_real tmp9;
- ASSERT_ALIGNED_DOUBLE;
- tmp8 = c_re(inout[6 * iostride]);
- tmp10 = c_im(inout[6 * iostride]);
- tmp7 = c_re(W[5]);
- tmp9 = c_im(W[5]);
- tmp11 = (tmp7 * tmp8) + (tmp9 * tmp10);
- tmp62 = (tmp7 * tmp10) - (tmp9 * tmp8);
- }
- tmp64 = K866025403 * (tmp62 - tmp63);
- tmp98 = tmp63 + tmp62;
- tmp105 = tmp99 - (K500000000 * tmp98);
- tmp104 = K866025403 * (tmp6 - tmp11);
- tmp12 = tmp6 + tmp11;
- tmp61 = tmp1 - (K500000000 * tmp12);
- }
- {
- fftw_real tmp35;
- fftw_real tmp50;
- fftw_real tmp40;
- fftw_real tmp51;
- fftw_real tmp45;
- fftw_real tmp52;
- fftw_real tmp46;
- fftw_real tmp53;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp32;
- fftw_real tmp34;
- fftw_real tmp31;
- fftw_real tmp33;
- ASSERT_ALIGNED_DOUBLE;
- tmp32 = c_re(inout[2 * iostride]);
- tmp34 = c_im(inout[2 * iostride]);
- tmp31 = c_re(W[1]);
- tmp33 = c_im(W[1]);
- tmp35 = (tmp31 * tmp32) + (tmp33 * tmp34);
- tmp50 = (tmp31 * tmp34) - (tmp33 * tmp32);
- }
- {
- fftw_real tmp37;
- fftw_real tmp39;
- fftw_real tmp36;
- fftw_real tmp38;
- ASSERT_ALIGNED_DOUBLE;
- tmp37 = c_re(inout[5 * iostride]);
- tmp39 = c_im(inout[5 * iostride]);
- tmp36 = c_re(W[4]);
- tmp38 = c_im(W[4]);
- tmp40 = (tmp36 * tmp37) + (tmp38 * tmp39);
- tmp51 = (tmp36 * tmp39) - (tmp38 * tmp37);
- }
- {
- fftw_real tmp42;
- fftw_real tmp44;
- fftw_real tmp41;
- fftw_real tmp43;
- ASSERT_ALIGNED_DOUBLE;
- tmp42 = c_re(inout[8 * iostride]);
- tmp44 = c_im(inout[8 * iostride]);
- tmp41 = c_re(W[7]);
- tmp43 = c_im(W[7]);
- tmp45 = (tmp41 * tmp42) + (tmp43 * tmp44);
- tmp52 = (tmp41 * tmp44) - (tmp43 * tmp42);
- }
- tmp46 = tmp40 + tmp45;
- tmp53 = tmp51 + tmp52;
- {
- fftw_real tmp76;
- fftw_real tmp77;
- fftw_real tmp73;
- fftw_real tmp74;
- ASSERT_ALIGNED_DOUBLE;
- tmp47 = tmp35 + tmp46;
- tmp76 = tmp35 - (K500000000 * tmp46);
- tmp77 = K866025403 * (tmp52 - tmp51);
- tmp78 = tmp76 - tmp77;
- tmp89 = tmp76 + tmp77;
- tmp54 = tmp50 + tmp53;
- tmp73 = tmp50 - (K500000000 * tmp53);
- tmp74 = K866025403 * (tmp40 - tmp45);
- tmp75 = tmp73 - tmp74;
- tmp90 = tmp74 + tmp73;
- }
- }
- {
- fftw_real tmp18;
- fftw_real tmp55;
- fftw_real tmp23;
- fftw_real tmp56;
- fftw_real tmp28;
- fftw_real tmp57;
- fftw_real tmp29;
- fftw_real tmp58;
- ASSERT_ALIGNED_DOUBLE;
- {
- fftw_real tmp15;
- fftw_real tmp17;
- fftw_real tmp14;
- fftw_real tmp16;
- ASSERT_ALIGNED_DOUBLE;
- tmp15 = c_re(inout[iostride]);
- tmp17 = c_im(inout[iostride]);
- tmp14 = c_re(W[0]);
- tmp16 = c_im(W[0]);
- tmp18 = (tmp14 * tmp15) + (tmp16 * tmp17);
- tmp55 = (tmp14 * tmp17) - (tmp16 * tmp15);
- }
- {
- fftw_real tmp20;
- fftw_real tmp22;
- fftw_real tmp19;
- fftw_real tmp21;
- ASSERT_ALIGNED_DOUBLE;
- tmp20 = c_re(inout[4 * iostride]);
- tmp22 = c_im(inout[4 * iostride]);
- tmp19 = c_re(W[3]);
- tmp21 = c_im(W[3]);
- tmp23 = (tmp19 * tmp20) + (tmp21 * tmp22);
- tmp56 = (tmp19 * tmp22) - (tmp21 * tmp20);
- }
- {
- fftw_real tmp25;
- fftw_real tmp27;
- fftw_real tmp24;
- fftw_real tmp26;
- ASSERT_ALIGNED_DOUBLE;
- tmp25 = c_re(inout[7 * iostride]);
- tmp27 = c_im(inout[7 * iostride]);
- tmp24 = c_re(W[6]);
- tmp26 = c_im(W[6]);
- tmp28 = (tmp24 * tmp25) + (tmp26 * tmp27);
- tmp57 = (tmp24 * tmp27) - (tmp26 * tmp25);
- }
- tmp29 = tmp23 + tmp28;
- tmp58 = tmp56 + tmp57;
- {
- fftw_real tmp66;
- fftw_real tmp67;
- fftw_real tmp69;
- fftw_real tmp70;
- ASSERT_ALIGNED_DOUBLE;
- tmp30 = tmp18 + tmp29;
- tmp66 = tmp18 - (K500000000 * tmp29);
- tmp67 = K866025403 * (tmp57 - tmp56);
- tmp68 = tmp66 - tmp67;
- tmp86 = tmp66 + tmp67;
- tmp59 = tmp55 + tmp58;
- tmp69 = tmp55 - (K500000000 * tmp58);
- tmp70 = K866025403 * (tmp23 - tmp28);
- tmp71 = tmp69 - tmp70;
- tmp87 = tmp70 + tmp69;
- }
- }
- {
- fftw_real tmp60;
- fftw_real tmp13;
- fftw_real tmp48;
- fftw_real tmp49;
- ASSERT_ALIGNED_DOUBLE;
- tmp60 = K866025403 * (tmp54 - tmp59);
- tmp13 = tmp1 + tmp12;
- tmp48 = tmp30 + tmp47;
- tmp49 = tmp13 - (K500000000 * tmp48);
- c_re(inout[0]) = tmp13 + tmp48;
- c_re(inout[3 * iostride]) = tmp49 + tmp60;
- c_re(inout[6 * iostride]) = tmp49 - tmp60;
- }
- {
- fftw_real tmp101;
- fftw_real tmp97;
- fftw_real tmp100;
- fftw_real tmp102;
- ASSERT_ALIGNED_DOUBLE;
- tmp101 = K866025403 * (tmp30 - tmp47);
- tmp97 = tmp59 + tmp54;
- tmp100 = tmp98 + tmp99;
- tmp102 = tmp100 - (K500000000 * tmp97);
- c_im(inout[0]) = tmp97 + tmp100;
- c_im(inout[6 * iostride]) = tmp102 - tmp101;
- c_im(inout[3 * iostride]) = tmp101 + tmp102;
- }
- {
- fftw_real tmp65;
- fftw_real tmp110;
- fftw_real tmp80;
- fftw_real tmp111;
- fftw_real tmp84;
- fftw_real tmp109;
- fftw_real tmp81;
- fftw_real tmp112;
- ASSERT_ALIGNED_DOUBLE;
- tmp65 = tmp61 - tmp64;
- tmp110 = tmp105 - tmp104;
- {
- fftw_real tmp72;
- fftw_real tmp79;
- fftw_real tmp82;
- fftw_real tmp83;
- ASSERT_ALIGNED_DOUBLE;
- tmp72 = (K173648177 * tmp68) - (K984807753 * tmp71);
- tmp79 = (K342020143 * tmp75) + (K939692620 * tmp78);
- tmp80 = tmp72 - tmp79;
- tmp111 = K866025403 * (tmp72 + tmp79);
- tmp82 = (K342020143 * tmp78) - (K939692620 * tmp75);
- tmp83 = (K173648177 * tmp71) + (K984807753 * tmp68);
- tmp84 = K866025403 * (tmp82 - tmp83);
- tmp109 = tmp83 + tmp82;
- }
- c_re(inout[2 * iostride]) = tmp65 + tmp80;
- tmp81 = tmp65 - (K500000000 * tmp80);
- c_re(inout[8 * iostride]) = tmp81 - tmp84;
- c_re(inout[5 * iostride]) = tmp81 + tmp84;
- c_im(inout[2 * iostride]) = tmp109 + tmp110;
- tmp112 = tmp110 - (K500000000 * tmp109);
- c_im(inout[5 * iostride]) = tmp111 + tmp112;
- c_im(inout[8 * iostride]) = tmp112 - tmp111;
- }
- {
- fftw_real tmp85;
- fftw_real tmp106;
- fftw_real tmp92;
- fftw_real tmp107;
- fftw_real tmp96;
- fftw_real tmp103;
- fftw_real tmp93;
- fftw_real tmp108;
- ASSERT_ALIGNED_DOUBLE;
- tmp85 = tmp61 + tmp64;
- tmp106 = tmp104 + tmp105;
- {
- fftw_real tmp88;
- fftw_real tmp91;
- fftw_real tmp94;
- fftw_real tmp95;
- ASSERT_ALIGNED_DOUBLE;
- tmp88 = (K766044443 * tmp86) - (K642787609 * tmp87);
- tmp91 = (K173648177 * tmp89) - (K984807753 * tmp90);
- tmp92 = tmp88 + tmp91;
- tmp107 = K866025403 * (tmp88 - tmp91);
- tmp94 = (K173648177 * tmp90) + (K984807753 * tmp89);
- tmp95 = (K766044443 * tmp87) + (K642787609 * tmp86);
- tmp96 = K866025403 * (tmp94 - tmp95);
- tmp103 = tmp95 + tmp94;
- }
- c_re(inout[iostride]) = tmp85 + tmp92;
- tmp93 = tmp85 - (K500000000 * tmp92);
- c_re(inout[7 * iostride]) = tmp93 - tmp96;
- c_re(inout[4 * iostride]) = tmp93 + tmp96;
- c_im(inout[iostride]) = tmp103 + tmp106;
- tmp108 = tmp106 - (K500000000 * tmp103);
- c_im(inout[4 * iostride]) = tmp107 + tmp108;
- c_im(inout[7 * iostride]) = tmp108 - tmp107;
- }
- }
-}
-
-static const int twiddle_order[] =
-{1, 2, 3, 4, 5, 6, 7, 8};
-fftw_codelet_desc fftwi_twiddle_9_desc =
-{
- "fftwi_twiddle_9",
- (void (*)()) fftwi_twiddle_9,
- 9,
- FFTW_BACKWARD,
- FFTW_TWIDDLE,
- 209,
- 8,
- twiddle_order,
-};
diff --git a/src/sndobj/rfftw/generic.c b/src/sndobj/rfftw/generic.c
deleted file mode 100644
index e0a2435..0000000
--- a/src/sndobj/rfftw/generic.c
+++ /dev/null
@@ -1,102 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- *
- * generic.c -- "generic" codelets. They work for all n (and they are
- * slow)
- */
-#include <fftw-int.h>
-#include <stdlib.h>
-
-void fftw_twiddle_generic(fftw_complex *A, const fftw_complex *W,
- int m, int r, int n, int stride)
-{
- int i, j, k;
- const fftw_complex *jp;
- fftw_complex *kp;
- fftw_complex *tmp = (fftw_complex *)
- fftw_malloc(r * sizeof(fftw_complex));
-
- for (i = 0; i < m; ++i) {
- for (k = 0, kp = tmp; k < r; ++k, kp++) {
- fftw_real r0, i0, rt, it, rw, iw;
- int l1 = i + m * k;
- int l0;
-
- r0 = i0 = 0.0;
- for (j = 0, jp = A + i * stride, l0 = 0; j < r; ++j,
- jp += m * stride) {
- rw = c_re(W[l0]);
- iw = c_im(W[l0]);
- rt = c_re(*jp);
- it = c_im(*jp);
- r0 += rt * rw - it * iw;
- i0 += rt * iw + it * rw;
- l0 += l1;
- if (l0 >= n)
- l0 -= n;
- }
- c_re(*kp) = r0;
- c_im(*kp) = i0;
- }
- for (k = 0, kp = A + i * stride; k < r; ++k, kp += m * stride)
- *kp = tmp[k];
- }
-
- fftw_free(tmp);
-}
-
-void fftwi_twiddle_generic(fftw_complex *A, const fftw_complex *W,
- int m, int r, int n, int stride)
-{
- int i, j, k;
- const fftw_complex *jp;
- fftw_complex *kp;
- fftw_complex *tmp = (fftw_complex *)
- fftw_malloc(r * sizeof(fftw_complex));
-
- for (i = 0; i < m; ++i) {
- for (k = 0, kp = tmp; k < r; ++k, kp++) {
- fftw_real r0, i0, rt, it, rw, iw;
- int l1 = i + m * k;
- int l0;
-
- r0 = i0 = 0.0;
- for (j = 0, jp = A + i * stride, l0 = 0; j < r; ++j,
- jp += m * stride) {
- rw = c_re(W[l0]);
- iw = c_im(W[l0]);
- rt = c_re(*jp);
- it = c_im(*jp);
- r0 += rt * rw + it * iw;
- i0 += it * rw - rt * iw;
- l0 += l1;
- if (l0 >= n)
- l0 -= n;
- }
- c_re(*kp) = r0;
- c_im(*kp) = i0;
- }
- for (k = 0, kp = A + i * stride; k < r; ++k, kp += m * stride)
- *kp = tmp[k];
- }
-
- fftw_free(tmp);
-}
diff --git a/src/sndobj/rfftw/malloc.c b/src/sndobj/rfftw/malloc.c
deleted file mode 100644
index 0c2f8fc..0000000
--- a/src/sndobj/rfftw/malloc.c
+++ /dev/null
@@ -1,245 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * malloc.c -- memory allocation related functions
- */
-
-/* $Id: malloc.c,v 1.1.1.1 2006/05/12 15:14:55 veplaini Exp $ */
-#ifdef FFTW_USING_CILK
-#include <cilk.h>
-#include <cilk-compat.h>
-#endif
-
-#include <fftw-int.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-#ifdef HAVE_MALLOC_H
-#include <malloc.h>
-#endif
-
-fftw_malloc_type_function fftw_malloc_hook = 0;
-fftw_free_type_function fftw_free_hook = 0;
-fftw_die_type_function fftw_die_hook = 0;
-
-/**********************************************************
- * DEBUGGING CODE
- **********************************************************/
-#ifdef FFTW_DEBUG
-static int fftw_malloc_cnt = 0;
-
-/*
- * debugging malloc/free. Initialize every malloced and freed area to
- * random values, just to make sure we are not using uninitialized
- * pointers. Also check for writes past the ends of allocated blocks,
- * and a couple of other things.
- *
- * This code is a quick and dirty hack -- use at your own risk.
- */
-
-static int fftw_malloc_total = 0, fftw_malloc_max = 0, fftw_malloc_cnt_max = 0;
-
-#define MAGIC 0xABadCafe
-#define PAD_FACTOR 2
-#define TWOINTS (2 * sizeof(int))
-
-#define VERBOSE_ALLOCATION 0
-
-#if VERBOSE_ALLOCATION
-#define WHEN_VERBOSE(a) a
-#else
-#define WHEN_VERBOSE(a)
-#endif
-
-void *fftw_malloc(size_t n)
-{
- char *p;
- int i;
-
- fftw_malloc_total += n;
-
- if (fftw_malloc_total > fftw_malloc_max)
- fftw_malloc_max = fftw_malloc_total;
-
- p = (char *) malloc(PAD_FACTOR * n + TWOINTS);
- if (!p)
- fftw_die("fftw_malloc: out of memory\n");
-
- /* store the size in a known position */
- ((int *) p)[0] = n;
- ((int *) p)[1] = MAGIC;
- for (i = 0; i < PAD_FACTOR * n; ++i)
- p[i + TWOINTS] = (char) (i ^ 0xDEADBEEF);
-
- ++fftw_malloc_cnt;
-
- if (fftw_malloc_cnt > fftw_malloc_cnt_max)
- fftw_malloc_cnt_max = fftw_malloc_cnt;
-
- /* skip the size we stored previously */
- return (void *) (p + TWOINTS);
-}
-
-void fftw_free(void *p)
-{
- char *q;
-
- if (!p)
- return;
-
- q = ((char *) p) - TWOINTS;
- if (!q)
- fftw_die("fftw_free: tried to free NULL+TWOINTS pointer!\n");
-
- {
- int n = ((int *) q)[0];
- int magic = ((int *) q)[1];
- int i;
-
- WHEN_VERBOSE( {
- printf("FFTW_FREE %d\n", n);
- fflush(stdout);
- })
-
- *((int *) q) = 0; /* set to zero to detect duplicate free's */
-
- if (magic != MAGIC)
- fftw_die("Wrong magic in fftw_free()!\n");
- ((int *) q)[1] = ~MAGIC;
-
- if (n < 0)
- fftw_die("Tried to free block with corrupt size descriptor!\n");
-
- fftw_malloc_total -= n;
-
- if (fftw_malloc_total < 0)
- fftw_die("fftw_malloc_total went negative!\n");
-
- /* check for writing past end of array: */
- for (i = n; i < PAD_FACTOR * n; ++i)
- if (q[i + TWOINTS] != (char) (i ^ 0xDEADBEEF)) {
- fflush(stdout);
- fprintf(stderr, "Byte %d past end of array has changed!\n",
- i - n + 1);
- fftw_die("Array bounds overwritten!\n");
- }
- for (i = 0; i < PAD_FACTOR * n; ++i)
- q[i + TWOINTS] = (char) (i ^ 0xBEEFDEAD);
-
- --fftw_malloc_cnt;
-
- if (fftw_malloc_cnt < 0)
- fftw_die("fftw_malloc_cnt went negative!\n");
-
- if (fftw_malloc_cnt == 0 && fftw_malloc_total > 0 ||
- fftw_malloc_cnt > 0 && fftw_malloc_total == 0)
- fftw_die("fftw_malloc_cnt/total not zero at the same time!\n");
-
- free(q);
- }
-}
-
-#else
-/**********************************************************
- * NON DEBUGGING CODE
- **********************************************************/
-/* production version, no hacks */
-
-void *fftw_malloc(size_t n)
-{
- void *p;
-
- if (fftw_malloc_hook)
- return fftw_malloc_hook(n);
-
- if (n == 0)
- n = 1;
-
- p = malloc(n);
-
- if (!p)
- fftw_die("fftw_malloc: out of memory\n");
-
- return p;
-}
-
-void fftw_free(void *p)
-{
- if (p) {
- if (fftw_free_hook) {
- fftw_free_hook(p);
- return;
- }
- free(p);
- }
-}
-
-#endif
-
-/* die when fatal errors occur */
-void fftw_die(const char *s)
-{
- if (fftw_die_hook)
- fftw_die_hook(s);
-
- fflush(stdout);
- fprintf(stderr, "fftw: %s", s);
- exit(EXIT_FAILURE);
-}
-
-/* check for memory leaks when debugging */
-void fftw_check_memory_leaks(void)
-{
- extern int fftw_node_cnt, fftw_plan_cnt, fftw_twiddle_size;
-
-#ifdef FFTW_DEBUG
- if (fftw_malloc_cnt || fftw_malloc_total ||
- fftw_node_cnt || fftw_plan_cnt || fftw_twiddle_size) {
- fflush(stdout);
- fprintf(stderr,
- "MEMORY LEAK!!!\n"
- "fftw_malloc = %d"
- " node=%d plan=%d twiddle=%d\n"
- "fftw_malloc_total = %d\n",
- fftw_malloc_cnt,
- fftw_node_cnt, fftw_plan_cnt, fftw_twiddle_size,
- fftw_malloc_total);
- exit(EXIT_FAILURE);
- }
-#else
- if (fftw_node_cnt || fftw_plan_cnt || fftw_twiddle_size) {
- fflush(stdout);
- fprintf(stderr,
- "MEMORY LEAK!!!\n"
- " node=%d plan=%d twiddle=%d\n",
- fftw_node_cnt, fftw_plan_cnt, fftw_twiddle_size);
- exit(EXIT_FAILURE);
- }
-#endif
-}
-
-void fftw_print_max_memory_usage(void)
-{
-#ifdef FFTW_DEBUG
- printf("\nMaximum number of blocks allocated = %d\n"
- "Maximum number of bytes allocated = %0.3f kB\n",
- fftw_malloc_cnt_max, fftw_malloc_max / 1024.0);
-#endif
-}
diff --git a/src/sndobj/rfftw/planner.c b/src/sndobj/rfftw/planner.c
deleted file mode 100644
index dab545c..0000000
--- a/src/sndobj/rfftw/planner.c
+++ /dev/null
@@ -1,480 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * planner.c -- find the optimal plan
- */
-
-/* $Id: planner.c,v 1.1.1.1 2006/05/12 15:14:56 veplaini Exp $ */
-#ifdef FFTW_USING_CILK
-#include <cilk.h>
-#include <cilk-compat.h>
-#endif
-
-#include <fftw-int.h>
-#include <stdlib.h>
-#include <stdio.h>
-
-extern fftw_generic_codelet fftw_twiddle_generic;
-extern fftw_generic_codelet fftwi_twiddle_generic;
-extern fftw_codelet_desc *fftw_config[];
-
-fftw_plan_hook_ptr fftw_plan_hook = (fftw_plan_hook_ptr) NULL;
-
-static void init_test_array(fftw_complex *arr, int stride, int n)
-{
- int j;
-
- for (j = 0; j < n; ++j) {
- c_re(arr[stride * j]) = 0.0;
- c_im(arr[stride * j]) = 0.0;
- }
-}
-
-/*
- * The timer keeps doubling the number of iterations
- * until the program runs for more than FFTW_TIME_MIN
- */
-static double fftw_measure_runtime(fftw_plan plan,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride)
-{
- fftw_time begin, end, start;
- double t, tmax, tmin;
- int i, iter;
- int n;
- int repeat;
- int howmany = plan->vector_size;
-
- n = plan->n;
-
- iter = 1;
-
- for (;;) {
- tmin = 1.0E10;
- tmax = -1.0E10;
- init_test_array(in, istride, n * howmany);
-
- start = fftw_get_time();
- /* repeat the measurement FFTW_TIME_REPEAT times */
- for (repeat = 0; repeat < FFTW_TIME_REPEAT; ++repeat) {
- begin = fftw_get_time();
- for (i = 0; i < iter; ++i) {
- fftw(plan, howmany, in, istride, istride,
- out, ostride, ostride);
- }
- end = fftw_get_time();
-
- t = fftw_time_to_sec(fftw_time_diff(end, begin));
- if (t < tmin)
- tmin = t;
- if (t > tmax)
- tmax = t;
-
- /* do not run for too long */
- t = fftw_time_to_sec(fftw_time_diff(end, start));
- if (t > FFTW_TIME_LIMIT)
- break;
- }
-
- if (tmin >= FFTW_TIME_MIN)
- break;
-
- iter *= 2;
- }
-
- tmin /= (double) iter;
- tmax /= (double) iter;
-
- return tmin;
-}
-
-/* auxiliary functions */
-static void compute_cost(fftw_plan plan,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride)
-{
- if (plan->flags & FFTW_MEASURE)
- plan->cost = fftw_measure_runtime(plan, in, istride, out, ostride);
- else {
- double c;
- c = plan->n * fftw_estimate_node(plan->root) * plan->vector_size;
- plan->cost = c;
- }
-}
-
-static void run_plan_hooks(fftw_plan p)
-{
- if (fftw_plan_hook && p) {
- fftw_complete_twiddle(p->root, p->n);
- fftw_plan_hook(p);
- }
-}
-
-
-/* macrology */
-#define FOR_ALL_CODELETS(p) \
- fftw_codelet_desc **__q, *p; \
- for (__q = &fftw_config[0]; (p = (*__q)); ++__q)
-
-/******************************************
- * Recursive planner *
- ******************************************/
-static fftw_plan planner(fftw_plan *table, int n, fftw_direction dir,
- int flags, int vector_size,
- fftw_complex *, int, fftw_complex *, int);
-
-/*
- * the planner consists of two parts: one that tries to
- * use accumulated wisdom, and one that does not.
- * A small driver invokes both parts in sequence
- */
-
-/* planner with wisdom: look up the codelet suggested by the wisdom */
-static fftw_plan planner_wisdom(fftw_plan *table, int n,
- fftw_direction dir, int flags,
- int vector_size,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride)
-{
- fftw_plan best = (fftw_plan) 0;
- fftw_plan_node *node;
- int have_wisdom;
- enum fftw_node_type wisdom_type;
- int wisdom_signature;
- fftw_recurse_kind wisdom_recurse_kind;
-
- /* see if we remember any wisdom for this case */
- have_wisdom = fftw_wisdom_lookup(n, flags, dir, FFTW_WISDOM,
- istride, ostride,
- &wisdom_type, &wisdom_signature,
- &wisdom_recurse_kind, 0);
-
- if (!have_wisdom)
- return best;
-
- if (wisdom_type == FFTW_NOTW) {
- FOR_ALL_CODELETS(p) {
- if (p->dir == dir && p->type == wisdom_type) {
- /* see if wisdom applies */
- if (wisdom_signature == p->signature &&
- p->size == n) {
- node = fftw_make_node_notw(n, p);
- best = fftw_make_plan(n, dir, node, flags,
- p->type, p->signature,
- FFTW_NORMAL_RECURSE,
- vector_size);
- fftw_use_plan(best);
- run_plan_hooks(best);
- return best;
- }
- }
- }
- }
- if (wisdom_type == FFTW_TWIDDLE) {
- FOR_ALL_CODELETS(p) {
- if (p->dir == dir && p->type == wisdom_type) {
-
- /* see if wisdom applies */
- if (wisdom_signature == p->signature &&
- p->size > 1 &&
- (n % p->size) == 0) {
- fftw_plan r = planner(table, n / p->size, dir,
- flags | FFTW_NO_VECTOR_RECURSE,
- wisdom_recurse_kind ==
- FFTW_VECTOR_RECURSE ?
- p->size : vector_size,
- in, istride, out, ostride);
- node = fftw_make_node_twiddle(n, p,
- r->root, flags);
- best = fftw_make_plan(n, dir, node, flags,
- p->type, p->signature,
- wisdom_recurse_kind,
- vector_size);
- fftw_use_plan(best);
- run_plan_hooks(best);
- fftw_destroy_plan_internal(r);
- return best;
- }
- }
- }
- }
- /*
- * BUG (or: TODO) Can we have generic wisdom? This is probably
- * an academic question
- */
-
- return best;
-}
-
-/*
- * planner with no wisdom: try all combinations and pick
- * the best
- */
-static fftw_plan planner_normal(fftw_plan *table, int n, fftw_direction dir,
- int flags, int vector_size,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride)
-{
- fftw_plan best = (fftw_plan) 0;
- fftw_plan newplan;
- fftw_plan_node *node;
-
- /* see if we have any codelet that solves the problem */
- {
- FOR_ALL_CODELETS(p) {
- if (p->dir == dir && p->type == FFTW_NOTW) {
- if (p->size == n) {
- node = fftw_make_node_notw(n, p);
- newplan = fftw_make_plan(n, dir, node, flags,
- p->type, p->signature,
- FFTW_NORMAL_RECURSE,
- vector_size);
- fftw_use_plan(newplan);
- compute_cost(newplan, in, istride, out, ostride);
- run_plan_hooks(newplan);
- best = fftw_pick_better(newplan, best);
- }
- }
- }
- }
-
- /* Then, try all available twiddle codelets */
- {
- FOR_ALL_CODELETS(p) {
- if (p->dir == dir && p->type == FFTW_TWIDDLE) {
- if ((n % p->size) == 0 &&
- p->size > 1 &&
- (!best || n != p->size)) {
- fftw_plan r = planner(table, n / p->size, dir,
- flags | FFTW_NO_VECTOR_RECURSE,
- vector_size,
- in, istride, out, ostride);
- node = fftw_make_node_twiddle(n, p,
- r->root, flags);
- newplan = fftw_make_plan(n, dir, node, flags,
- p->type, p->signature,
- FFTW_NORMAL_RECURSE,
- vector_size);
- fftw_use_plan(newplan);
- fftw_destroy_plan_internal(r);
- compute_cost(newplan, in, istride, out, ostride);
- run_plan_hooks(newplan);
- best = fftw_pick_better(newplan, best);
- }
- }
- }
- }
-
- /* try vector recursion unless prohibited by the flags: */
- if (! (flags & FFTW_NO_VECTOR_RECURSE)) {
- FOR_ALL_CODELETS(p) {
- if (p->dir == dir && p->type == FFTW_TWIDDLE) {
- if ((n % p->size) == 0 &&
- p->size > 1 &&
- (!best || n != p->size)) {
- fftw_plan r = planner(table, n / p->size, dir,
- flags | FFTW_NO_VECTOR_RECURSE,
- p->size,
- in, istride, out, ostride);
- node = fftw_make_node_twiddle(n, p,
- r->root, flags);
- newplan = fftw_make_plan(n, dir, node, flags,
- p->type, p->signature,
- FFTW_VECTOR_RECURSE,
- vector_size);
- fftw_use_plan(newplan);
- fftw_destroy_plan_internal(r);
- compute_cost(newplan, in, istride, out, ostride);
- run_plan_hooks(newplan);
- best = fftw_pick_better(newplan, best);
- }
- }
- }
- }
-
- /*
- * resort to generic or rader codelets for unknown factors
- */
- {
- fftw_generic_codelet *codelet = (dir == FFTW_FORWARD ?
- fftw_twiddle_generic :
- fftwi_twiddle_generic);
- int size, prev_size = 0, remaining_factors = n;
- fftw_plan r;
-
- while (remaining_factors > 1) {
- size = fftw_factor(remaining_factors);
- remaining_factors /= size;
-
- /* don't try the same factor more than once */
- if (size == prev_size)
- continue;
- prev_size = size;
-
- /* Look for codelets corresponding to this factor. */
- {
- FOR_ALL_CODELETS(p) {
- if (p->dir == dir && p->type == FFTW_TWIDDLE
- && p->size == size) {
- size = 0;
- break;
- }
- }
- }
-
- /*
- * only try a generic/rader codelet if there were no
- * twiddle codelets for this factor
- */
- if (!size)
- continue;
-
- r = planner(table, n / size, dir,
- flags | FFTW_NO_VECTOR_RECURSE,
- vector_size,
- in, istride, out, ostride);
-
- /* Try Rader codelet: */
- node = fftw_make_node_rader(n, size, dir, r->root, flags);
- newplan = fftw_make_plan(n, dir, node, flags, FFTW_RADER, 0,
- FFTW_NORMAL_RECURSE, vector_size);
- fftw_use_plan(newplan);
- compute_cost(newplan, in, istride, out, ostride);
- run_plan_hooks(newplan);
- best = fftw_pick_better(newplan, best);
-
- if (size < 100) { /*
- * only try generic for small
- * sizes
- */
- /* Try generic codelet: */
- node = fftw_make_node_generic(n, size, codelet,
- r->root, flags);
- newplan = fftw_make_plan(n, dir, node, flags,
- FFTW_GENERIC, 0,
- FFTW_NORMAL_RECURSE, vector_size);
- fftw_use_plan(newplan);
- compute_cost(newplan, in, istride, out, ostride);
- run_plan_hooks(newplan);
- best = fftw_pick_better(newplan, best);
- }
- fftw_destroy_plan_internal(r);
- }
- }
-
- if (!best)
- fftw_die("bug in planner\n");
-
- return best;
-}
-
-static fftw_plan planner(fftw_plan *table, int n, fftw_direction dir,
- int flags, int vector_size,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride)
-{
- fftw_plan best = (fftw_plan) 0;
-
- if (vector_size > 1)
- flags |= FFTW_NO_VECTOR_RECURSE;
-
- /* see if plan has already been computed */
- best = fftw_lookup(table, n, flags, vector_size);
- if (best) {
- fftw_use_plan(best);
- return best;
- }
- /* try a wise plan */
- best = planner_wisdom(table, n, dir, flags, vector_size,
- in, istride, out, ostride);
-
- if (!best) {
- /* No wisdom. Plan normally. */
- best = planner_normal(table, n, dir, flags,
- vector_size,
- in, istride, out, ostride);
- }
- if (best) {
- fftw_insert(table, best);
-
- /* remember the wisdom */
- fftw_wisdom_add(n, flags, dir, FFTW_WISDOM, istride, ostride,
- best->wisdom_type,
- best->wisdom_signature,
- best->recurse_kind);
- }
- return best;
-}
-
-fftw_plan fftw_create_plan_specific(int n, fftw_direction dir, int flags,
- fftw_complex *in, int istride,
- fftw_complex *out, int ostride)
-{
- fftw_plan table;
- fftw_plan p1;
-
- /* validate parameters */
- if (n <= 0)
- return (fftw_plan) 0;
-
-#ifndef FFTW_ENABLE_VECTOR_RECURSE
- /* TEMPORARY: disable vector recursion until it is more tested. */
- flags |= FFTW_NO_VECTOR_RECURSE;
-#endif
-
- if ((dir != FFTW_FORWARD) && (dir != FFTW_BACKWARD))
- return (fftw_plan) 0;
-
- fftw_make_empty_table(&table);
- p1 = planner(&table, n, dir, flags, 1,
- in, istride, out, ostride);
- fftw_destroy_table(&table);
-
- if (p1)
- fftw_complete_twiddle(p1->root, n);
- return p1;
-}
-
-fftw_plan fftw_create_plan(int n, fftw_direction dir, int flags)
-{
- fftw_complex *tmp_in, *tmp_out;
- fftw_plan p;
-
- if (flags & FFTW_MEASURE) {
- tmp_in = (fftw_complex *) fftw_malloc(2 * n * sizeof(fftw_complex));
- if (!tmp_in)
- return 0;
- tmp_out = tmp_in + n;
-
- p = fftw_create_plan_specific(n, dir, flags,
- tmp_in, 1, tmp_out, 1);
-
- fftw_free(tmp_in);
- } else
- p = fftw_create_plan_specific(n, dir, flags,
- (fftw_complex *) 0, 1, (fftw_complex *) 0, 1);
-
- return p;
-}
-
-void fftw_destroy_plan(fftw_plan plan)
-{
- fftw_destroy_plan_internal(plan);
-}
diff --git a/src/sndobj/rfftw/putils.c b/src/sndobj/rfftw/putils.c
deleted file mode 100644
index f696e4c..0000000
--- a/src/sndobj/rfftw/putils.c
+++ /dev/null
@@ -1,560 +0,0 @@
-
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * putils.c -- plan utilities shared by planner.c and rplanner.c
- */
-
-/* $Id: putils.c,v 1.1.1.1 2006/05/12 15:14:46 veplaini Exp $ */
-#ifdef FFTW_USING_CILK
-#include <cilk.h>
-#include <cilk-compat.h>
-#endif
-
-#include <fftw-int.h>
-#include <stdlib.h>
-#include <stdio.h>
-
-int fftw_node_cnt = 0;
-int fftw_plan_cnt = 0;
-
-/*
- * These two constants are used for the FFTW_ESTIMATE flag to help
- * create a heuristic plan. They don't affect FFTW_MEASURE.
- */
-#define NOTW_OPTIMAL_SIZE 32
-#define TWIDDLE_OPTIMAL_SIZE 12
-
-#define IS_POWER_OF_TWO(n) (((n) & ((n) - 1)) == 0)
-
-/* constructors --- I wish I had ML */
-fftw_plan_node *fftw_make_node(void)
-{
- fftw_plan_node *p = (fftw_plan_node *)
- fftw_malloc(sizeof(fftw_plan_node));
- p->refcnt = 0;
- fftw_node_cnt++;
- return p;
-}
-
-void fftw_use_node(fftw_plan_node *p)
-{
- ++p->refcnt;
-}
-
-fftw_plan_node *fftw_make_node_notw(int size, const fftw_codelet_desc *config)
-{
- fftw_plan_node *p = fftw_make_node();
-
- p->type = config->type;
- p->nodeu.notw.size = size;
- p->nodeu.notw.codelet = (fftw_notw_codelet *) config->codelet;
- p->nodeu.notw.codelet_desc = config;
- return p;
-}
-
-fftw_plan_node *fftw_make_node_real2hc(int size,
- const fftw_codelet_desc *config)
-{
- fftw_plan_node *p = fftw_make_node();
-
- p->type = config->type;
- p->nodeu.real2hc.size = size;
- p->nodeu.real2hc.codelet = (fftw_real2hc_codelet *) config->codelet;
- p->nodeu.real2hc.codelet_desc = config;
- return p;
-}
-
-fftw_plan_node *fftw_make_node_hc2real(int size,
- const fftw_codelet_desc *config)
-{
- fftw_plan_node *p = fftw_make_node();
-
- p->type = config->type;
- p->nodeu.hc2real.size = size;
- p->nodeu.hc2real.codelet = (fftw_hc2real_codelet *) config->codelet;
- p->nodeu.hc2real.codelet_desc = config;
- return p;
-}
-
-fftw_plan_node *fftw_make_node_twiddle(int n,
- const fftw_codelet_desc *config,
- fftw_plan_node *recurse,
- int flags)
-{
- fftw_plan_node *p = fftw_make_node();
-
- p->type = config->type;
- p->nodeu.twiddle.size = config->size;
- p->nodeu.twiddle.codelet = (fftw_twiddle_codelet *) config->codelet;
- p->nodeu.twiddle.recurse = recurse;
- p->nodeu.twiddle.codelet_desc = config;
- fftw_use_node(recurse);
- if (flags & FFTW_MEASURE)
- p->nodeu.twiddle.tw = fftw_create_twiddle(n, config);
- else
- p->nodeu.twiddle.tw = 0;
- return p;
-}
-
-fftw_plan_node *fftw_make_node_hc2hc(int n, fftw_direction dir,
- const fftw_codelet_desc *config,
- fftw_plan_node *recurse,
- int flags)
-{
- fftw_plan_node *p = fftw_make_node();
-
- p->type = config->type;
- p->nodeu.hc2hc.size = config->size;
- p->nodeu.hc2hc.dir = dir;
- p->nodeu.hc2hc.codelet = (fftw_hc2hc_codelet *) config->codelet;
- p->nodeu.hc2hc.recurse = recurse;
- p->nodeu.hc2hc.codelet_desc = config;
- fftw_use_node(recurse);
- if (flags & FFTW_MEASURE)
- p->nodeu.hc2hc.tw = fftw_create_twiddle(n, config);
- else
- p->nodeu.hc2hc.tw = 0;
- return p;
-}
-
-fftw_plan_node *fftw_make_node_generic(int n, int size,
- fftw_generic_codelet *codelet,
- fftw_plan_node *recurse,
- int flags)
-{
- fftw_plan_node *p = fftw_make_node();
-
- p->type = FFTW_GENERIC;
- p->nodeu.generic.size = size;
- p->nodeu.generic.codelet = codelet;
- p->nodeu.generic.recurse = recurse;
- fftw_use_node(recurse);
-
- if (flags & FFTW_MEASURE)
- p->nodeu.generic.tw = fftw_create_twiddle(n,
- (const fftw_codelet_desc *) 0);
- else
- p->nodeu.generic.tw = 0;
- return p;
-}
-
-fftw_plan_node *fftw_make_node_rgeneric(int n, int size,
- fftw_direction dir,
- fftw_rgeneric_codelet *codelet,
- fftw_plan_node *recurse,
- int flags)
-{
- fftw_plan_node *p = fftw_make_node();
-
- if (size % 2 == 0 || (n / size) % 2 == 0)
- fftw_die("invalid size for rgeneric codelet\n");
-
- p->type = FFTW_RGENERIC;
- p->nodeu.rgeneric.size = size;
- p->nodeu.rgeneric.dir = dir;
- p->nodeu.rgeneric.codelet = codelet;
- p->nodeu.rgeneric.recurse = recurse;
- fftw_use_node(recurse);
-
- if (flags & FFTW_MEASURE)
- p->nodeu.rgeneric.tw = fftw_create_twiddle(n,
- (const fftw_codelet_desc *) 0);
- else
- p->nodeu.rgeneric.tw = 0;
- return p;
-}
-
-/*
- * Note that these two Rader-related things must go here, rather than
- * in rader.c, in order that putils.c (and rplanner.c) won't depend
- * upon rader.c.
- */
-
-fftw_rader_data *fftw_rader_top = NULL;
-
-static void fftw_destroy_rader(fftw_rader_data * d)
-{
- if (d) {
- d->refcount--;
- if (d->refcount <= 0) {
- fftw_rader_data *cur = fftw_rader_top, *prev = NULL;
-
- while (cur && cur != d) {
- prev = cur;
- cur = cur->next;
- }
- if (!cur)
- fftw_die("invalid Rader data pointer\n");
-
- if (prev)
- prev->next = d->next;
- else
- fftw_rader_top = d->next;
-
- fftw_destroy_plan_internal(d->plan);
- fftw_free(d->omega);
- fftw_free(d->cdesc);
- fftw_free(d);
- }
- }
-}
-
-static void destroy_tree(fftw_plan_node *p)
-{
- if (p) {
- --p->refcnt;
- if (p->refcnt == 0) {
- switch (p->type) {
- case FFTW_NOTW:
- case FFTW_REAL2HC:
- case FFTW_HC2REAL:
- break;
-
- case FFTW_TWIDDLE:
- if (p->nodeu.twiddle.tw)
- fftw_destroy_twiddle(p->nodeu.twiddle.tw);
- destroy_tree(p->nodeu.twiddle.recurse);
- break;
-
- case FFTW_HC2HC:
- if (p->nodeu.hc2hc.tw)
- fftw_destroy_twiddle(p->nodeu.hc2hc.tw);
- destroy_tree(p->nodeu.hc2hc.recurse);
- break;
-
- case FFTW_GENERIC:
- if (p->nodeu.generic.tw)
- fftw_destroy_twiddle(p->nodeu.generic.tw);
- destroy_tree(p->nodeu.generic.recurse);
- break;
-
- case FFTW_RADER:
- if (p->nodeu.rader.tw)
- fftw_destroy_twiddle(p->nodeu.rader.tw);
- if (p->nodeu.rader.rader_data)
- fftw_destroy_rader(p->nodeu.rader.rader_data);
- destroy_tree(p->nodeu.rader.recurse);
- break;
-
- case FFTW_RGENERIC:
- if (p->nodeu.rgeneric.tw)
- fftw_destroy_twiddle(p->nodeu.rgeneric.tw);
- destroy_tree(p->nodeu.rgeneric.recurse);
- break;
- }
-
- fftw_free(p);
- fftw_node_cnt--;
- }
- }
-}
-
-/* create a plan with twiddle factors, and other bells and whistles */
-fftw_plan fftw_make_plan(int n, fftw_direction dir,
- fftw_plan_node *root, int flags,
- enum fftw_node_type wisdom_type,
- int wisdom_signature,
- fftw_recurse_kind recurse_kind, int vector_size)
-{
- fftw_plan p = (fftw_plan) fftw_malloc(sizeof(struct fftw_plan_struct));
-
- p->n = n;
- p->dir = dir;
- p->flags = flags;
- fftw_use_node(root);
- p->root = root;
- p->cost = 0.0;
- p->wisdom_type = wisdom_type;
- p->wisdom_signature = wisdom_signature;
- p->recurse_kind = recurse_kind;
- p->vector_size = vector_size;
- if (recurse_kind == FFTW_VECTOR_RECURSE && vector_size > 1)
- fftw_die("invalid vector-recurse plan attempted\n");
- p->next = (fftw_plan) 0;
- p->refcnt = 0;
- fftw_plan_cnt++;
- return p;
-}
-
-/*
- * complete with twiddle factors (because nodes don't have
- * them when FFTW_ESTIMATE is set)
- */
-void fftw_complete_twiddle(fftw_plan_node *p, int n)
-{
- int r;
- switch (p->type) {
- case FFTW_NOTW:
- case FFTW_REAL2HC:
- case FFTW_HC2REAL:
- break;
-
- case FFTW_TWIDDLE:
- r = p->nodeu.twiddle.size;
- if (!p->nodeu.twiddle.tw)
- p->nodeu.twiddle.tw =
- fftw_create_twiddle(n, p->nodeu.twiddle.codelet_desc);
- fftw_complete_twiddle(p->nodeu.twiddle.recurse, n / r);
- break;
-
- case FFTW_HC2HC:
- r = p->nodeu.hc2hc.size;
- if (!p->nodeu.hc2hc.tw)
- p->nodeu.hc2hc.tw =
- fftw_create_twiddle(n, p->nodeu.hc2hc.codelet_desc);
- fftw_complete_twiddle(p->nodeu.hc2hc.recurse, n / r);
- break;
-
- case FFTW_GENERIC:
- r = p->nodeu.generic.size;
- if (!p->nodeu.generic.tw)
- p->nodeu.generic.tw =
- fftw_create_twiddle(n, (const fftw_codelet_desc *) 0);
- fftw_complete_twiddle(p->nodeu.generic.recurse, n / r);
- break;
-
- case FFTW_RADER:
- r = p->nodeu.rader.size;
- if (!p->nodeu.rader.tw)
- p->nodeu.rader.tw =
- fftw_create_twiddle(n, p->nodeu.rader.rader_data->cdesc);
- fftw_complete_twiddle(p->nodeu.rader.recurse, n / r);
- break;
-
- case FFTW_RGENERIC:
- r = p->nodeu.rgeneric.size;
- if (!p->nodeu.rgeneric.tw)
- p->nodeu.rgeneric.tw =
- fftw_create_twiddle(n, (const fftw_codelet_desc *) 0);
- fftw_complete_twiddle(p->nodeu.rgeneric.recurse, n / r);
- break;
-
- }
-}
-
-void fftw_use_plan(fftw_plan p)
-{
- ++p->refcnt;
-}
-
-void fftw_destroy_plan_internal(fftw_plan p)
-{
- --p->refcnt;
-
- if (p->refcnt == 0) {
- destroy_tree(p->root);
- fftw_plan_cnt--;
- fftw_free(p);
- }
-}
-
-/* end of constructors */
-
-/* management of plan tables */
-void fftw_make_empty_table(fftw_plan *table)
-{
- *table = (fftw_plan) 0;
-}
-
-void fftw_insert(fftw_plan *table, fftw_plan this_plan)
-{
- fftw_use_plan(this_plan);
- this_plan->next = *table;
- *table = this_plan;
-}
-
-fftw_plan fftw_lookup(fftw_plan *table, int n, int flags, int vector_size)
-{
- fftw_plan p;
-
- for (p = *table; p &&
- (p->n != n || p->flags != flags || p->vector_size != vector_size);
- p = p->next);
-
- return p;
-}
-
-void fftw_destroy_table(fftw_plan *table)
-{
- fftw_plan p, q;
-
- for (p = *table; p; p = q) {
- q = p->next;
- fftw_destroy_plan_internal(p);
- }
-}
-
-double fftw_estimate_node(fftw_plan_node *p)
-{
- int k;
-
- switch (p->type) {
- case FFTW_NOTW:
- k = p->nodeu.notw.size;
- goto common1;
-
- case FFTW_REAL2HC:
- k = p->nodeu.real2hc.size;
- goto common1;
-
- case FFTW_HC2REAL:
- k = p->nodeu.hc2real.size;
- common1:
- return 1.0 + 0.1 * (k - NOTW_OPTIMAL_SIZE) *
- (k - NOTW_OPTIMAL_SIZE);
-
- case FFTW_TWIDDLE:
- k = p->nodeu.twiddle.size;
- return 1.0 + 0.1 * (k - TWIDDLE_OPTIMAL_SIZE) *
- (k - TWIDDLE_OPTIMAL_SIZE)
- + fftw_estimate_node(p->nodeu.twiddle.recurse);
-
- case FFTW_HC2HC:
- k = p->nodeu.hc2hc.size;
- return 1.0 + 0.1 * (k - TWIDDLE_OPTIMAL_SIZE) *
- (k - TWIDDLE_OPTIMAL_SIZE)
- + fftw_estimate_node(p->nodeu.hc2hc.recurse);
-
- case FFTW_GENERIC:
- k = p->nodeu.generic.size;
- return 10.0 + k * k
- + fftw_estimate_node(p->nodeu.generic.recurse);
-
- case FFTW_RADER:
- k = p->nodeu.rader.size;
- return 10.0 + 10 * k
- + fftw_estimate_node(p->nodeu.rader.recurse);
-
- case FFTW_RGENERIC:
- k = p->nodeu.rgeneric.size;
- return 10.0 + k * k
- + fftw_estimate_node(p->nodeu.rgeneric.recurse);
- }
- return 1.0E20;
-}
-
-/* pick the better of two plans and destroy the other one. */
-fftw_plan fftw_pick_better(fftw_plan p1, fftw_plan p2)
-{
- if (!p1)
- return p2;
-
- if (!p2)
- return p1;
-
- if (p1->cost > p2->cost) {
- fftw_destroy_plan_internal(p1);
- return p2;
- } else {
- fftw_destroy_plan_internal(p2);
- return p1;
- }
-}
-
-/* find the smallest prime factor of n */
-int fftw_factor(int n)
-{
- int r;
-
- /* try 2 */
- if ((n & 1) == 0)
- return 2;
-
- /* try odd numbers up to sqrt(n) */
- for (r = 3; r * r <= n; r += 2)
- if (n % r == 0)
- return r;
-
- /* n is prime */
- return n;
-}
-
-static void print_node(FILE *f, fftw_plan_node *p, int indent)
-{
- if (p) {
- switch (p->type) {
- case FFTW_NOTW:
- fprintf(f, "%*sFFTW_NOTW %d\n", indent, "",
- p->nodeu.notw.size);
- break;
- case FFTW_REAL2HC:
- fprintf(f, "%*sFFTW_REAL2HC %d\n", indent, "",
- p->nodeu.real2hc.size);
- break;
- case FFTW_HC2REAL:
- fprintf(f, "%*sFFTW_HC2REAL %d\n", indent, "",
- p->nodeu.hc2real.size);
- break;
- case FFTW_TWIDDLE:
- fprintf(f, "%*sFFTW_TWIDDLE %d\n", indent, "",
- p->nodeu.twiddle.size);
- print_node(f, p->nodeu.twiddle.recurse, indent);
- break;
- case FFTW_HC2HC:
- fprintf(f, "%*sFFTW_HC2HC %d\n", indent, "",
- p->nodeu.hc2hc.size);
- print_node(f, p->nodeu.hc2hc.recurse, indent);
- break;
- case FFTW_GENERIC:
- fprintf(f, "%*sFFTW_GENERIC %d\n", indent, "",
- p->nodeu.generic.size);
- print_node(f, p->nodeu.generic.recurse, indent);
- break;
- case FFTW_RADER:
- fprintf(f, "%*sFFTW_RADER %d\n", indent, "",
- p->nodeu.rader.size);
-
- fprintf(f, "%*splan for size %d convolution:\n",
- indent + 4, "", p->nodeu.rader.size - 1);
- print_node(f, p->nodeu.rader.rader_data->plan->root,
- indent + 6);
-
- print_node(f, p->nodeu.rader.recurse, indent);
- break;
- case FFTW_RGENERIC:
- fprintf(f, "%*sFFTW_RGENERIC %d\n", indent, "",
- p->nodeu.rgeneric.size);
- print_node(f, p->nodeu.rgeneric.recurse, indent);
- break;
- }
- }
-}
-
-void fftw_fprint_plan(FILE *f, fftw_plan p)
-{
-
- fprintf(f, "plan: (cost = %e)\n", p->cost);
- if (p->recurse_kind == FFTW_VECTOR_RECURSE)
- fprintf(f, "(vector recursion)\n");
- else if (p->vector_size > 1)
- fprintf(f, "(vector-size %d)\n", p->vector_size);
- print_node(f, p->root, 0);
-}
-
-void fftw_print_plan(fftw_plan p)
-{
- fftw_fprint_plan(stdout, p);
-}
-
-size_t fftw_sizeof_fftw_real(void)
-{
- return(sizeof(fftw_real));
-}
diff --git a/src/sndobj/rfftw/rader.c b/src/sndobj/rfftw/rader.c
deleted file mode 100644
index 6783580..0000000
--- a/src/sndobj/rfftw/rader.c
+++ /dev/null
@@ -1,370 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * Compute transforms of prime sizes using Rader's trick: turn them
- * into convolutions of size n - 1, which you then perform via a pair
- * of FFTs.
- */
-
-#include <stdlib.h>
-#include <math.h>
-
-#include <fftw-int.h>
-
-#ifdef FFTW_USING_CILK
-#include <cilk.h>
-#include <cilk-compat.h>
-#endif
-
-#ifdef FFTW_DEBUG
-#define WHEN_DEBUG(a) a
-#else
-#define WHEN_DEBUG(a)
-#endif
-
-/* compute n^m mod p, where m >= 0 and p > 0. */
-static int power_mod(int n, int m, int p)
-{
- if (m == 0)
- return 1;
- else if (m % 2 == 0) {
- int x = power_mod(n, m / 2, p);
- return MULMOD(x, x, p);
- }
- else
- return MULMOD(n, power_mod(n, m - 1, p), p);
-}
-
-/*
- * Find the period of n in the multiplicative group mod p (p prime).
- * That is, return the smallest m such that n^m == 1 mod p.
- */
-static int period(int n, int p)
-{
- int prod = n, period = 1;
-
- while (prod != 1) {
- prod = MULMOD(prod, n, p);
- ++period;
- if (prod == 0)
- fftw_die("non-prime order in Rader\n");
- }
- return period;
-}
-
-/* find a generator for the multiplicative group mod p, where p is prime */
-static int find_generator(int p)
-{
- int g;
-
- for (g = 1; g < p; ++g)
- if (period(g, p) == p - 1)
- break;
- if (g == p)
- fftw_die("couldn't find generator for Rader\n");
- return g;
-}
-
-/***************************************************************************/
-
-static fftw_rader_data *create_rader_aux(int p, int flags)
-{
- fftw_complex *omega, *work;
- int g, ginv, gpower;
- int i;
- FFTW_TRIG_REAL twoPiOverN;
- fftw_real scale = 1.0 / (p - 1); /* for convolution */
- fftw_plan plan;
- fftw_rader_data *d;
-
- if (p < 2)
- fftw_die("non-prime order in Rader\n");
-
- flags &= ~FFTW_IN_PLACE;
-
- d = (fftw_rader_data *) fftw_malloc(sizeof(fftw_rader_data));
-
- g = find_generator(p);
- ginv = power_mod(g, p - 2, p);
-
- omega = (fftw_complex *) fftw_malloc((p - 1) * sizeof(fftw_complex));
-
- plan = fftw_create_plan(p - 1, FFTW_FORWARD,
- flags & ~FFTW_NO_VECTOR_RECURSE);
-
- work = (fftw_complex *) fftw_malloc((p - 1) * sizeof(fftw_complex));
-
- twoPiOverN = FFTW_K2PI / (FFTW_TRIG_REAL) p;
- gpower = 1;
- for (i = 0; i < p - 1; ++i) {
- c_re(work[i]) = scale * FFTW_TRIG_COS(twoPiOverN * gpower);
- c_im(work[i]) = FFTW_FORWARD * scale * FFTW_TRIG_SIN(twoPiOverN
- * gpower);
- gpower = MULMOD(gpower, ginv, p);
- }
-
- /* fft permuted roots of unity */
- fftw_executor_simple(p - 1, work, omega, plan->root, 1, 1,
- plan->recurse_kind);
-
- fftw_free(work);
-
- d->plan = plan;
- d->omega = omega;
- d->g = g;
- d->ginv = ginv;
- d->p = p;
- d->flags = flags;
- d->refcount = 1;
- d->next = NULL;
-
- d->cdesc = (fftw_codelet_desc *) fftw_malloc(sizeof(fftw_codelet_desc));
- d->cdesc->name = NULL;
- d->cdesc->codelet = NULL;
- d->cdesc->size = p;
- d->cdesc->dir = FFTW_FORWARD;
- d->cdesc->type = FFTW_RADER;
- d->cdesc->signature = g;
- d->cdesc->ntwiddle = 0;
- d->cdesc->twiddle_order = NULL;
- return d;
-}
-
-/***************************************************************************/
-
-static fftw_rader_data *fftw_create_rader(int p, int flags)
-{
- fftw_rader_data *d = fftw_rader_top;
-
- flags &= ~FFTW_IN_PLACE;
- while (d && (d->p != p || d->flags != flags))
- d = d->next;
- if (d) {
- d->refcount++;
- return d;
- }
- d = create_rader_aux(p, flags);
- d->next = fftw_rader_top;
- fftw_rader_top = d;
- return d;
-}
-
-/***************************************************************************/
-
-/* Compute the prime FFTs, premultiplied by twiddle factors. Below, we
- * extensively use the identity that fft(x*)* = ifft(x) in order to
- * share data between forward and backward transforms and to obviate
- * the necessity of having separate forward and backward plans. */
-
-void fftw_twiddle_rader(fftw_complex *A, const fftw_complex *W,
- int m, int r, int stride,
- fftw_rader_data * d)
-{
- fftw_complex *tmp = (fftw_complex *)
- fftw_malloc((r - 1) * sizeof(fftw_complex));
- int i, k, gpower = 1, g = d->g, ginv = d->ginv;
- fftw_real a0r, a0i;
- fftw_complex *omega = d->omega;
-
- for (i = 0; i < m; ++i, A += stride, W += r - 1) {
- /*
- * Here, we fft W[k-1] * A[k*(m*stride)], using Rader.
- * (Actually, W is pre-permuted to match the permutation that we
- * will do on A.)
- */
-
- /* First, permute the input and multiply by W, storing in tmp: */
- /* gpower == g^k mod r in the following loop */
- for (k = 0; k < r - 1; ++k, gpower = MULMOD(gpower, g, r)) {
- fftw_real rA, iA, rW, iW;
- rW = c_re(W[k]);
- iW = c_im(W[k]);
- rA = c_re(A[gpower * (m * stride)]);
- iA = c_im(A[gpower * (m * stride)]);
- c_re(tmp[k]) = rW * rA - iW * iA;
- c_im(tmp[k]) = rW * iA + iW * rA;
- }
-
- WHEN_DEBUG( {
- if (gpower != 1)
- fftw_die("incorrect generator in Rader\n");
- }
- );
-
- /* FFT tmp to A: */
- fftw_executor_simple(r - 1, tmp, A + (m * stride),
- d->plan->root, 1, m * stride,
- d->plan->recurse_kind);
-
- /* set output DC component: */
- a0r = c_re(A[0]);
- a0i = c_im(A[0]);
- c_re(A[0]) += c_re(A[(m * stride)]);
- c_im(A[0]) += c_im(A[(m * stride)]);
-
- /* now, multiply by omega: */
- for (k = 0; k < r - 1; ++k) {
- fftw_real rA, iA, rW, iW;
- rW = c_re(omega[k]);
- iW = c_im(omega[k]);
- rA = c_re(A[(k + 1) * (m * stride)]);
- iA = c_im(A[(k + 1) * (m * stride)]);
- c_re(A[(k + 1) * (m * stride)]) = rW * rA - iW * iA;
- c_im(A[(k + 1) * (m * stride)]) = -(rW * iA + iW * rA);
- }
-
- /* this will add A[0] to all of the outputs after the ifft */
- c_re(A[(m * stride)]) += a0r;
- c_im(A[(m * stride)]) -= a0i;
-
- /* inverse FFT: */
- fftw_executor_simple(r - 1, A + (m * stride), tmp,
- d->plan->root, m * stride, 1,
- d->plan->recurse_kind);
-
- /* finally, do inverse permutation to unshuffle the output: */
- for (k = 0; k < r - 1; ++k, gpower = MULMOD(gpower, ginv, r)) {
- c_re(A[gpower * (m * stride)]) = c_re(tmp[k]);
- c_im(A[gpower * (m * stride)]) = -c_im(tmp[k]);
- }
-
- WHEN_DEBUG( {
- if (gpower != 1)
- fftw_die("incorrect generator in Rader\n");
- }
- );
-
- }
-
- fftw_free(tmp);
-}
-
-void fftwi_twiddle_rader(fftw_complex *A, const fftw_complex *W,
- int m, int r, int stride,
- fftw_rader_data * d)
-{
- fftw_complex *tmp = (fftw_complex *)
- fftw_malloc((r - 1) * sizeof(fftw_complex));
- int i, k, gpower = 1, g = d->g, ginv = d->ginv;
- fftw_real a0r, a0i;
- fftw_complex *omega = d->omega;
-
- for (i = 0; i < m; ++i, A += stride, W += r - 1) {
- /*
- * Here, we fft W[k-1]* * A[k*(m*stride)], using Rader.
- * (Actually, W is pre-permuted to match the permutation that
- * we will do on A.)
- */
-
- /* First, permute the input and multiply by W*, storing in tmp: */
- /* gpower == g^k mod r in the following loop */
- for (k = 0; k < r - 1; ++k, gpower = MULMOD(gpower, g, r)) {
- fftw_real rA, iA, rW, iW;
- rW = c_re(W[k]);
- iW = c_im(W[k]);
- rA = c_re(A[gpower * (m * stride)]);
- iA = c_im(A[gpower * (m * stride)]);
- c_re(tmp[k]) = rW * rA + iW * iA;
- c_im(tmp[k]) = iW * rA - rW * iA;
- }
-
- WHEN_DEBUG( {
- if (gpower != 1)
- fftw_die("incorrect generator in Rader\n");
- }
- );
-
- /* FFT tmp to A: */
- fftw_executor_simple(r - 1, tmp, A + (m * stride),
- d->plan->root, 1, m * stride,
- d->plan->recurse_kind);
-
- /* set output DC component: */
- a0r = c_re(A[0]);
- a0i = c_im(A[0]);
- c_re(A[0]) += c_re(A[(m * stride)]);
- c_im(A[0]) -= c_im(A[(m * stride)]);
-
- /* now, multiply by omega: */
- for (k = 0; k < r - 1; ++k) {
- fftw_real rA, iA, rW, iW;
- rW = c_re(omega[k]);
- iW = c_im(omega[k]);
- rA = c_re(A[(k + 1) * (m * stride)]);
- iA = c_im(A[(k + 1) * (m * stride)]);
- c_re(A[(k + 1) * (m * stride)]) = rW * rA - iW * iA;
- c_im(A[(k + 1) * (m * stride)]) = -(rW * iA + iW * rA);
- }
-
- /* this will add A[0] to all of the outputs after the ifft */
- c_re(A[(m * stride)]) += a0r;
- c_im(A[(m * stride)]) += a0i;
-
- /* inverse FFT: */
- fftw_executor_simple(r - 1, A + (m * stride), tmp,
- d->plan->root, m * stride, 1,
- d->plan->recurse_kind);
-
- /* finally, do inverse permutation to unshuffle the output: */
- for (k = 0; k < r - 1; ++k, gpower = MULMOD(gpower, ginv, r)) {
- A[gpower * (m * stride)] = tmp[k];
- }
-
- WHEN_DEBUG( {
- if (gpower != 1)
- fftw_die("incorrect generator in Rader\n");
- }
- );
- }
-
- fftw_free(tmp);
-}
-
-/***************************************************************************/
-
-/*
- * Make an FFTW_RADER plan node. Note that this function must go
- * here, rather than in putils.c, because it indirectly calls the
- * fftw_planner. If we included it in putils.c, which is also used
- * by rfftw, then any program using rfftw would be linked with all
- * of the FFTW codelets, even if they were not needed. I wish that the
- * darn linkers operated on a function rather than a file granularity.
- */
-fftw_plan_node *fftw_make_node_rader(int n, int size, fftw_direction dir,
- fftw_plan_node *recurse,
- int flags)
-{
- fftw_plan_node *p = fftw_make_node();
-
- p->type = FFTW_RADER;
- p->nodeu.rader.size = size;
- p->nodeu.rader.codelet = dir == FFTW_FORWARD ?
- fftw_twiddle_rader : fftwi_twiddle_rader;
- p->nodeu.rader.rader_data = fftw_create_rader(size, flags);
- p->nodeu.rader.recurse = recurse;
- fftw_use_node(recurse);
-
- if (flags & FFTW_MEASURE)
- p->nodeu.rader.tw =
- fftw_create_twiddle(n, p->nodeu.rader.rader_data->cdesc);
- else
- p->nodeu.rader.tw = 0;
- return p;
-}
diff --git a/src/sndobj/rfftw/rconfig.c b/src/sndobj/rfftw/rconfig.c
deleted file mode 100644
index 417c471..0000000
--- a/src/sndobj/rfftw/rconfig.c
+++ /dev/null
@@ -1,181 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* rconfig.c -- this file contains all the real-complex codelets
- * the system knows about */
-
-#include <fftw-int.h>
-#include <rfftw.h>
-
-#define NOTW_CODELET(x) \
- &fftw_real2hc_##x##_desc
-#define NOTWI_CODELET(x) \
- &fftw_hc2real_##x##_desc
-
-#define TWIDDLE_CODELET(x) \
- &fftw_hc2hc_forward_##x##_desc
-#define TWIDDLEI_CODELET(x) \
- &fftw_hc2hc_backward_##x##_desc
-
-/* automatically-generated list of codelets */
-
-extern fftw_codelet_desc fftw_real2hc_1_desc;
-extern fftw_codelet_desc fftw_hc2real_1_desc;
-extern fftw_codelet_desc fftw_real2hc_2_desc;
-extern fftw_codelet_desc fftw_hc2real_2_desc;
-extern fftw_codelet_desc fftw_real2hc_3_desc;
-extern fftw_codelet_desc fftw_hc2real_3_desc;
-extern fftw_codelet_desc fftw_real2hc_4_desc;
-extern fftw_codelet_desc fftw_hc2real_4_desc;
-extern fftw_codelet_desc fftw_real2hc_5_desc;
-extern fftw_codelet_desc fftw_hc2real_5_desc;
-extern fftw_codelet_desc fftw_real2hc_6_desc;
-extern fftw_codelet_desc fftw_hc2real_6_desc;
-extern fftw_codelet_desc fftw_real2hc_7_desc;
-extern fftw_codelet_desc fftw_hc2real_7_desc;
-extern fftw_codelet_desc fftw_real2hc_8_desc;
-extern fftw_codelet_desc fftw_hc2real_8_desc;
-extern fftw_codelet_desc fftw_real2hc_9_desc;
-extern fftw_codelet_desc fftw_hc2real_9_desc;
-extern fftw_codelet_desc fftw_real2hc_10_desc;
-extern fftw_codelet_desc fftw_hc2real_10_desc;
-extern fftw_codelet_desc fftw_real2hc_11_desc;
-extern fftw_codelet_desc fftw_hc2real_11_desc;
-extern fftw_codelet_desc fftw_real2hc_12_desc;
-extern fftw_codelet_desc fftw_hc2real_12_desc;
-extern fftw_codelet_desc fftw_real2hc_13_desc;
-extern fftw_codelet_desc fftw_hc2real_13_desc;
-extern fftw_codelet_desc fftw_real2hc_14_desc;
-extern fftw_codelet_desc fftw_hc2real_14_desc;
-extern fftw_codelet_desc fftw_real2hc_15_desc;
-extern fftw_codelet_desc fftw_hc2real_15_desc;
-extern fftw_codelet_desc fftw_real2hc_16_desc;
-extern fftw_codelet_desc fftw_hc2real_16_desc;
-extern fftw_codelet_desc fftw_real2hc_32_desc;
-extern fftw_codelet_desc fftw_hc2real_32_desc;
-extern fftw_codelet_desc fftw_real2hc_64_desc;
-extern fftw_codelet_desc fftw_hc2real_64_desc;
-extern fftw_codelet_desc fftw_real2hc_128_desc;
-extern fftw_codelet_desc fftw_hc2real_128_desc;
-extern fftw_codelet_desc fftw_hc2hc_forward_2_desc;
-extern fftw_codelet_desc fftw_hc2hc_backward_2_desc;
-extern fftw_codelet_desc fftw_hc2hc_forward_3_desc;
-extern fftw_codelet_desc fftw_hc2hc_backward_3_desc;
-extern fftw_codelet_desc fftw_hc2hc_forward_4_desc;
-extern fftw_codelet_desc fftw_hc2hc_backward_4_desc;
-extern fftw_codelet_desc fftw_hc2hc_forward_5_desc;
-extern fftw_codelet_desc fftw_hc2hc_backward_5_desc;
-extern fftw_codelet_desc fftw_hc2hc_forward_6_desc;
-extern fftw_codelet_desc fftw_hc2hc_backward_6_desc;
-extern fftw_codelet_desc fftw_hc2hc_forward_7_desc;
-extern fftw_codelet_desc fftw_hc2hc_backward_7_desc;
-extern fftw_codelet_desc fftw_hc2hc_forward_8_desc;
-extern fftw_codelet_desc fftw_hc2hc_backward_8_desc;
-extern fftw_codelet_desc fftw_hc2hc_forward_9_desc;
-extern fftw_codelet_desc fftw_hc2hc_backward_9_desc;
-extern fftw_codelet_desc fftw_hc2hc_forward_10_desc;
-extern fftw_codelet_desc fftw_hc2hc_backward_10_desc;
-extern fftw_codelet_desc fftw_hc2hc_forward_16_desc;
-extern fftw_codelet_desc fftw_hc2hc_backward_16_desc;
-extern fftw_codelet_desc fftw_hc2hc_forward_32_desc;
-extern fftw_codelet_desc fftw_hc2hc_backward_32_desc;
-
-fftw_codelet_desc *rfftw_config[] =
-{
- NOTW_CODELET(1),
- NOTWI_CODELET(1),
- NOTW_CODELET(2),
- NOTWI_CODELET(2),
- NOTW_CODELET(3),
- NOTWI_CODELET(3),
- NOTW_CODELET(4),
- NOTWI_CODELET(4),
- NOTW_CODELET(5),
- NOTWI_CODELET(5),
- NOTW_CODELET(6),
- NOTWI_CODELET(6),
- NOTW_CODELET(7),
- NOTWI_CODELET(7),
- NOTW_CODELET(8),
- NOTWI_CODELET(8),
- NOTW_CODELET(9),
- NOTWI_CODELET(9),
- NOTW_CODELET(10),
- NOTWI_CODELET(10),
- NOTW_CODELET(11),
- NOTWI_CODELET(11),
- NOTW_CODELET(12),
- NOTWI_CODELET(12),
- NOTW_CODELET(13),
- NOTWI_CODELET(13),
- NOTW_CODELET(14),
- NOTWI_CODELET(14),
- NOTW_CODELET(15),
- NOTWI_CODELET(15),
- NOTW_CODELET(16),
- NOTWI_CODELET(16),
- NOTW_CODELET(32),
- NOTWI_CODELET(32),
- NOTW_CODELET(64),
- NOTWI_CODELET(64),
- NOTW_CODELET(128),
- NOTWI_CODELET(128),
- TWIDDLE_CODELET(2),
- TWIDDLEI_CODELET(2),
- TWIDDLE_CODELET(3),
- TWIDDLEI_CODELET(3),
- TWIDDLE_CODELET(4),
- TWIDDLEI_CODELET(4),
- TWIDDLE_CODELET(5),
- TWIDDLEI_CODELET(5),
- TWIDDLE_CODELET(6),
- TWIDDLEI_CODELET(6),
- TWIDDLE_CODELET(7),
- TWIDDLEI_CODELET(7),
- TWIDDLE_CODELET(8),
- TWIDDLEI_CODELET(8),
- TWIDDLE_CODELET(9),
- TWIDDLEI_CODELET(9),
- TWIDDLE_CODELET(10),
- TWIDDLEI_CODELET(10),
- TWIDDLE_CODELET(16),
- TWIDDLEI_CODELET(16),
- TWIDDLE_CODELET(32),
- TWIDDLEI_CODELET(32),
- (fftw_codelet_desc *) 0
-};
diff --git a/src/sndobj/rfftw/rexec.c b/src/sndobj/rfftw/rexec.c
deleted file mode 100644
index b92beb1..0000000
--- a/src/sndobj/rfftw/rexec.c
+++ /dev/null
@@ -1,535 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * rexec.c -- execute the fft
- */
-
-/* $Id: rexec.c,v 1.1.1.1 2006/05/12 15:14:54 veplaini Exp $ */
-#include <stdio.h>
-#include <stdlib.h>
-
-#include <fftw-int.h>
-#include <rfftw.h>
-
-void rfftw_strided_copy(int n, fftw_real *in, int ostride,
- fftw_real *out)
-{
- int i;
- fftw_real r0, r1, r2, r3;
-
- i = 0;
- for (; i < (n & 3); ++i) {
- out[i * ostride] = in[i];
- }
- for (; i < n; i += 4) {
- r0 = in[i];
- r1 = in[i + 1];
- r2 = in[i + 2];
- r3 = in[i + 3];
- out[i * ostride] = r0;
- out[(i + 1) * ostride] = r1;
- out[(i + 2) * ostride] = r2;
- out[(i + 3) * ostride] = r3;
- }
-}
-
-static void rexecutor_many(int n, fftw_real *in,
- fftw_real *out,
- fftw_plan_node *p,
- int istride,
- int ostride,
- int howmany, int idist, int odist,
- fftw_recurse_kind recurse_kind)
-{
- int s;
-
- switch (p->type) {
- case FFTW_REAL2HC:
- {
- fftw_real2hc_codelet *codelet = p->nodeu.real2hc.codelet;
-
- HACK_ALIGN_STACK_ODD;
- for (s = 0; s < howmany; ++s)
- codelet(in + s * idist, out + s * odist,
- out + n * ostride + s * odist,
- istride, ostride, -ostride);
- break;
- }
-
- case FFTW_HC2REAL:
- {
- fftw_hc2real_codelet *codelet = p->nodeu.hc2real.codelet;
-
- HACK_ALIGN_STACK_ODD;
- for (s = 0; s < howmany; ++s)
- codelet(in + s * idist, in + n * istride + s * idist,
- out + s * odist,
- istride, -istride, ostride);
- break;
- }
-
- default:
- for (s = 0; s < howmany; ++s)
- rfftw_executor_simple(n, in + s * idist,
- out + s * odist,
- p, istride, ostride,
- recurse_kind);
- }
-}
-
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
-
-/* rexecutor_many_vector is like rexecutor_many, but it pushes the
- howmany loop down to the leaves of the transform: */
-static void rexecutor_many_vector(int n, fftw_real *in,
- fftw_real *out,
- fftw_plan_node *p,
- int istride,
- int ostride,
- int howmany, int idist, int odist)
-{
- switch (p->type) {
- case FFTW_REAL2HC:
- {
- fftw_real2hc_codelet *codelet = p->nodeu.real2hc.codelet;
- int s;
-
- HACK_ALIGN_STACK_ODD;
- for (s = 0; s < howmany; ++s)
- codelet(in + s * idist, out + s * odist,
- out + n * ostride + s * odist,
- istride, ostride, -ostride);
- break;
- }
-
- case FFTW_HC2REAL:
- {
- fftw_hc2real_codelet *codelet = p->nodeu.hc2real.codelet;
- int s;
-
- HACK_ALIGN_STACK_ODD;
- for (s = 0; s < howmany; ++s)
- codelet(in + s * idist, in + n * istride + s * idist,
- out + s * odist,
- istride, -istride, ostride);
- break;
- }
-
- case FFTW_HC2HC:
- {
- int r = p->nodeu.hc2hc.size;
- int m = n / r;
- int i;
- fftw_hc2hc_codelet *codelet;
- fftw_complex *W;
-
- switch (p->nodeu.hc2hc.dir) {
- case FFTW_REAL_TO_COMPLEX:
- for (i = 0; i < r; ++i)
- rexecutor_many_vector(m, in + i * istride,
- out + i * (m*ostride),
- p->nodeu.hc2hc.recurse,
- istride * r, ostride,
- howmany, idist, odist);
-
- W = p->nodeu.hc2hc.tw->twarray;
- codelet = p->nodeu.hc2hc.codelet;
- HACK_ALIGN_STACK_EVEN;
- for (i = 0; i < howmany; ++i)
- codelet(out + i * odist,
- W, m * ostride, m, ostride);
- break;
- case FFTW_COMPLEX_TO_REAL:
- W = p->nodeu.hc2hc.tw->twarray;
- codelet = p->nodeu.hc2hc.codelet;
- HACK_ALIGN_STACK_EVEN;
- for (i = 0; i < howmany; ++i)
- codelet(in + i * idist,
- W, m * istride, m, istride);
-
- for (i = 0; i < r; ++i)
- rexecutor_many_vector(m, in + i * (m*istride),
- out + i * ostride,
- p->nodeu.hc2hc.recurse,
- istride, ostride * r,
- howmany, idist, odist);
- break;
- default:
- goto bug;
- }
-
- break;
- }
-
- case FFTW_RGENERIC:
- {
- int r = p->nodeu.rgeneric.size;
- int m = n / r;
- int i;
- fftw_rgeneric_codelet *codelet = p->nodeu.rgeneric.codelet;
- fftw_complex *W = p->nodeu.rgeneric.tw->twarray;
-
- switch (p->nodeu.rgeneric.dir) {
- case FFTW_REAL_TO_COMPLEX:
- for (i = 0; i < r; ++i)
- rexecutor_many_vector(m, in + i * istride,
- out + i * (m * ostride),
- p->nodeu.rgeneric.recurse,
- istride * r, ostride,
- howmany, idist, odist);
-
- for (i = 0; i < howmany; ++i)
- codelet(out + i * odist, W, m, r, n, ostride);
- break;
- case FFTW_COMPLEX_TO_REAL:
- for (i = 0; i < howmany; ++i)
- codelet(in + i * idist, W, m, r, n, istride);
-
- for (i = 0; i < r; ++i)
- rexecutor_many_vector(m, in + i * m * istride,
- out + i * ostride,
- p->nodeu.rgeneric.recurse,
- istride, ostride * r,
- howmany, idist, odist);
- break;
- default:
- goto bug;
- }
-
- break;
- }
-
- default:
- bug:
- fftw_die("BUG in rexecutor: invalid plan\n");
- break;
- }
-}
-
-#endif /* FFTW_ENABLE_VECTOR_RECURSE */
-
-void rfftw_executor_simple(int n, fftw_real *in,
- fftw_real *out,
- fftw_plan_node *p,
- int istride,
- int ostride,
- fftw_recurse_kind recurse_kind)
-{
- switch (p->type) {
- case FFTW_REAL2HC:
- HACK_ALIGN_STACK_ODD;
- (p->nodeu.real2hc.codelet) (in, out, out + n * ostride,
- istride, ostride, -ostride);
- break;
-
- case FFTW_HC2REAL:
- HACK_ALIGN_STACK_ODD;
- (p->nodeu.hc2real.codelet) (in, in + n * istride, out,
- istride, -istride, ostride);
- break;
-
- case FFTW_HC2HC:
- {
- int r = p->nodeu.hc2hc.size;
- int m = n / r;
- /*
- * please do resist the temptation of initializing
- * these variables here. Doing so forces the
- * compiler to keep a live variable across the
- * recursive call.
- */
- fftw_hc2hc_codelet *codelet;
- fftw_complex *W;
-
- switch (p->nodeu.hc2hc.dir) {
- case FFTW_REAL_TO_COMPLEX:
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- if (recurse_kind == FFTW_NORMAL_RECURSE)
-#endif
- rexecutor_many(m, in, out,
- p->nodeu.hc2hc.recurse,
- istride * r, ostride,
- r, istride, m * ostride,
- FFTW_NORMAL_RECURSE);
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- else
- rexecutor_many_vector(m, in, out,
- p->nodeu.hc2hc.recurse,
- istride * r, ostride,
- r, istride, m * ostride);
-#endif
-
- W = p->nodeu.hc2hc.tw->twarray;
- codelet = p->nodeu.hc2hc.codelet;
- HACK_ALIGN_STACK_EVEN;
- codelet(out, W, m * ostride, m, ostride);
- break;
- case FFTW_COMPLEX_TO_REAL:
- W = p->nodeu.hc2hc.tw->twarray;
- codelet = p->nodeu.hc2hc.codelet;
- HACK_ALIGN_STACK_EVEN;
- codelet(in, W, m * istride, m, istride);
-
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- if (recurse_kind == FFTW_NORMAL_RECURSE)
-#endif
- rexecutor_many(m, in, out,
- p->nodeu.hc2hc.recurse,
- istride, ostride * r,
- r, m * istride, ostride,
- FFTW_NORMAL_RECURSE);
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- else
- rexecutor_many_vector(m, in, out,
- p->nodeu.hc2hc.recurse,
- istride, ostride * r,
- r, m * istride, ostride);
-#endif
- break;
- default:
- goto bug;
- }
-
- break;
- }
-
- case FFTW_RGENERIC:
- {
- int r = p->nodeu.rgeneric.size;
- int m = n / r;
- fftw_rgeneric_codelet *codelet = p->nodeu.rgeneric.codelet;
- fftw_complex *W = p->nodeu.rgeneric.tw->twarray;
-
- switch (p->nodeu.rgeneric.dir) {
- case FFTW_REAL_TO_COMPLEX:
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- if (recurse_kind == FFTW_NORMAL_RECURSE)
-#endif
- rexecutor_many(m, in, out,
- p->nodeu.rgeneric.recurse,
- istride * r, ostride,
- r, istride, m * ostride,
- FFTW_NORMAL_RECURSE);
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- else
- rexecutor_many_vector(m, in, out,
- p->nodeu.rgeneric.recurse,
- istride * r, ostride,
- r, istride, m * ostride);
-#endif
-
- codelet(out, W, m, r, n, ostride);
- break;
- case FFTW_COMPLEX_TO_REAL:
- codelet(in, W, m, r, n, istride);
-
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- if (recurse_kind == FFTW_NORMAL_RECURSE)
-#endif
- rexecutor_many(m, in, out,
- p->nodeu.rgeneric.recurse,
- istride, ostride * r,
- r, m * istride, ostride,
- FFTW_NORMAL_RECURSE);
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- else
- rexecutor_many_vector(m, in, out,
- p->nodeu.rgeneric.recurse,
- istride, ostride * r,
- r, m * istride, ostride);
-#endif
- break;
- default:
- goto bug;
- }
-
- break;
- }
-
- default:
- bug:
- fftw_die("BUG in rexecutor: invalid plan\n");
- break;
- }
-}
-
-static void rexecutor_simple_inplace(int n, fftw_real *in,
- fftw_real *out,
- fftw_plan_node *p,
- int istride,
- fftw_recurse_kind recurse_kind)
-{
- switch (p->type) {
- case FFTW_REAL2HC:
- HACK_ALIGN_STACK_ODD;
- (p->nodeu.real2hc.codelet) (in, in, in + n * istride,
- istride, istride, -istride);
- break;
-
- case FFTW_HC2REAL:
- HACK_ALIGN_STACK_ODD;
- (p->nodeu.hc2real.codelet) (in, in + n * istride, in,
- istride, -istride, istride);
- break;
-
- default:
- {
- fftw_real *tmp;
-
- if (out)
- tmp = out;
- else
- tmp = (fftw_real *) fftw_malloc(n * sizeof(fftw_real));
-
- rfftw_executor_simple(n, in, tmp, p, istride, 1,
- recurse_kind);
- rfftw_strided_copy(n, tmp, istride, in);
-
- if (!out)
- fftw_free(tmp);
- }
- }
-}
-
-static void rexecutor_many_inplace(int n, fftw_real *in,
- fftw_real *out,
- fftw_plan_node *p,
- int istride,
- int howmany, int idist,
- fftw_recurse_kind recurse_kind)
-{
- switch (p->type) {
- case FFTW_REAL2HC:
- {
- fftw_real2hc_codelet *codelet = p->nodeu.real2hc.codelet;
- int s;
-
- HACK_ALIGN_STACK_ODD;
- for (s = 0; s < howmany; ++s)
- codelet(in + s * idist, in + s * idist,
- in + n * istride + s * idist,
- istride, istride, -istride);
-
- break;
- }
-
- case FFTW_HC2REAL:
- {
- fftw_hc2real_codelet *codelet = p->nodeu.hc2real.codelet;
- int s;
-
- HACK_ALIGN_STACK_ODD;
- for (s = 0; s < howmany; ++s)
- codelet(in + s * idist, in + n * istride + s * idist,
- in + s * idist,
- istride, -istride, istride);
-
- break;
- }
-
- default:
- {
- int s;
- fftw_real *tmp;
- if (out)
- tmp = out;
- else
- tmp = (fftw_real *) fftw_malloc(n * sizeof(fftw_real));
-
- for (s = 0; s < howmany; ++s) {
- rfftw_executor_simple(n,
- in + s * idist,
- tmp,
- p, istride, 1, recurse_kind);
- rfftw_strided_copy(n, tmp, istride, in + s * idist);
- }
-
- if (!out)
- fftw_free(tmp);
- }
- }
-}
-
-/* user interface */
-void rfftw(fftw_plan plan, int howmany, fftw_real *in, int istride,
- int idist, fftw_real *out, int ostride, int odist)
-{
- int n = plan->n;
-
- if (plan->flags & FFTW_IN_PLACE) {
- if (howmany == 1) {
- rexecutor_simple_inplace(n, in, out, plan->root, istride,
- plan->recurse_kind);
- } else {
- rexecutor_many_inplace(n, in, out, plan->root, istride, howmany,
- idist, plan->recurse_kind);
- }
- } else {
- if (howmany == 1) {
- rfftw_executor_simple(n, in, out, plan->root, istride, ostride,
- plan->recurse_kind);
- } else {
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- int vector_size = plan->vector_size;
- if (vector_size <= 1)
-#endif
- rexecutor_many(n, in, out, plan->root, istride, ostride,
- howmany, idist, odist,
- plan->recurse_kind);
-#ifdef FFTW_ENABLE_VECTOR_RECURSE
- else {
- int s;
- int num_vects = howmany / vector_size;
- fftw_plan_node *root = plan->root;
-
- for (s = 0; s < num_vects; ++s)
- rexecutor_many_vector(n,
- in + s * (vector_size * idist),
- out + s * (vector_size * odist),
- root,
- istride, ostride,
- vector_size, idist, odist);
-
- s = howmany % vector_size;
- if (s > 0)
- rexecutor_many(n,
- in + num_vects * (vector_size*idist),
- out + num_vects * (vector_size*odist),
- root,
- istride, ostride,
- s, idist, odist,
- FFTW_NORMAL_RECURSE);
- }
-#endif
- }
- }
-}
-
-void rfftw_one(fftw_plan plan, fftw_real *in, fftw_real *out)
-{
- int n = plan->n;
-
- if (plan->flags & FFTW_IN_PLACE)
- rexecutor_simple_inplace(n, in, out, plan->root, 1,
- plan->recurse_kind);
- else
- rfftw_executor_simple(n, in, out, plan->root, 1, 1,
- plan->recurse_kind);
-}
diff --git a/src/sndobj/rfftw/rexec2.c b/src/sndobj/rfftw/rexec2.c
deleted file mode 100644
index ffdcf00..0000000
--- a/src/sndobj/rfftw/rexec2.c
+++ /dev/null
@@ -1,232 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* $Id: rexec2.c,v 1.1.1.1 2006/05/12 15:14:52 veplaini Exp $ */
-/*
- * rexec2.c -- alternate rfftw executor, specifically designed for the
- * multidimensional transforms. Given an extra work array,
- * expects complex data in FFTW_COMPLEX format, and does
- * not destroy the input in hc2real transforms.
- */
-
-#include <fftw-int.h>
-#include <rfftw.h>
-
-/* copies halfcomplex array in (contiguous) to fftw_complex array out. */
-void rfftw_hc2c(int n, fftw_real *in, fftw_complex *out, int ostride)
-{
- int n2 = (n + 1) / 2;
- int i = 1;
-
- c_re(out[0]) = in[0];
- c_im(out[0]) = 0.0;
- for (; i < ((n2 - 1) & 3) + 1; ++i) {
- c_re(out[i * ostride]) = in[i];
- c_im(out[i * ostride]) = in[n - i];
- }
- for (; i < n2; i += 4) {
- fftw_real r0, r1, r2, r3;
- fftw_real i0, i1, i2, i3;
- r0 = in[i];
- r1 = in[i + 1];
- r2 = in[i + 2];
- r3 = in[i + 3];
- i3 = in[n - (i + 3)];
- i2 = in[n - (i + 2)];
- i1 = in[n - (i + 1)];
- i0 = in[n - i];
- c_re(out[i * ostride]) = r0;
- c_im(out[i * ostride]) = i0;
- c_re(out[(i + 1) * ostride]) = r1;
- c_im(out[(i + 1) * ostride]) = i1;
- c_re(out[(i + 2) * ostride]) = r2;
- c_im(out[(i + 2) * ostride]) = i2;
- c_re(out[(i + 3) * ostride]) = r3;
- c_im(out[(i + 3) * ostride]) = i3;
- }
- if ((n & 1) == 0) { /* store the Nyquist frequency */
- c_re(out[n2 * ostride]) = in[n2];
- c_im(out[n2 * ostride]) = 0.0;
- }
-}
-
-/* reverse of rfftw_hc2c */
-void rfftw_c2hc(int n, fftw_complex *in, int istride, fftw_real *out)
-{
- int n2 = (n + 1) / 2;
- int i = 1;
-
- out[0] = c_re(in[0]);
- for (; i < ((n2 - 1) & 3) + 1; ++i) {
- out[i] = c_re(in[i * istride]);
- out[n - i] = c_im(in[i * istride]);
- }
- for (; i < n2; i += 4) {
- fftw_real r0, r1, r2, r3;
- fftw_real i0, i1, i2, i3;
- r0 = c_re(in[i * istride]);
- i0 = c_im(in[i * istride]);
- r1 = c_re(in[(i + 1) * istride]);
- i1 = c_im(in[(i + 1) * istride]);
- r2 = c_re(in[(i + 2) * istride]);
- i2 = c_im(in[(i + 2) * istride]);
- r3 = c_re(in[(i + 3) * istride]);
- i3 = c_im(in[(i + 3) * istride]);
- out[i] = r0;
- out[i + 1] = r1;
- out[i + 2] = r2;
- out[i + 3] = r3;
- out[n - (i + 3)] = i3;
- out[n - (i + 2)] = i2;
- out[n - (i + 1)] = i1;
- out[n - i] = i0;
- }
- if ((n & 1) == 0) /* store the Nyquist frequency */
- out[n2] = c_re(in[n2 * istride]);
-}
-
-/*
- * in: array of n real numbers (* howmany).
- * out: array of n/2 + 1 complex numbers (* howmany).
- * work: array of n real numbers (stride 1)
- *
- * We must have out != in if dist < stride.
- */
-void rfftw_real2c_aux(fftw_plan plan, int howmany,
- fftw_real *in, int istride, int idist,
- fftw_complex *out, int ostride, int odist,
- fftw_real *work)
-{
- fftw_plan_node *p = plan->root;
- int j;
-
- switch (p->type) {
- case FFTW_REAL2HC:
- {
- fftw_real2hc_codelet *codelet = p->nodeu.real2hc.codelet;
- int n = plan->n;
- int n2 = (n & 1) ? 0 : (n + 1) / 2;
-
- HACK_ALIGN_STACK_ODD;
- for (j = 0; j < howmany; ++j, out += odist) {
- codelet(in + j * idist,
- &c_re(*out),
- &c_im(*out),
- istride, ostride * 2, ostride * 2);
- c_im(out[0]) = 0.0;
- c_im(out[n2 * ostride]) = 0.0;
- }
- break;
- }
-
- default:
- {
- int n = plan->n;
- fftw_recurse_kind recurse_kind = plan->recurse_kind;
-
- for (j = 0; j < howmany; ++j, in += idist, out += odist) {
- rfftw_executor_simple(n, in, work, p, istride, 1,
- recurse_kind);
- rfftw_hc2c(n, work, out, ostride);
- }
- break;
- }
- }
-}
-
-/*
- * in: array of n/2 + 1 complex numbers (* howmany).
- * out: array of n real numbers (* howmany).
- * work: array of n real numbers (stride 1)
- *
- * We must have out != in if dist < stride.
- */
-void rfftw_c2real_aux(fftw_plan plan, int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_real *out, int ostride, int odist,
- fftw_real *work)
-{
- fftw_plan_node *p = plan->root;
-
- switch (p->type) {
- case FFTW_HC2REAL:
- {
- fftw_hc2real_codelet *codelet = p->nodeu.hc2real.codelet;
- int j;
-
- HACK_ALIGN_STACK_ODD;
- for (j = 0; j < howmany; ++j)
- codelet(&c_re(*(in + j * idist)),
- &c_im(*(in + j * idist)),
- out + j * odist,
- istride * 2, istride * 2, ostride);
- break;
- }
-
- default:
- {
- int j, n = plan->n;
- fftw_recurse_kind recurse_kind = plan->recurse_kind;
-
- for (j = 0; j < howmany; ++j, in += idist, out += odist) {
- rfftw_c2hc(n, in, istride, work);
- rfftw_executor_simple(n, work, out, p, 1, ostride,
- recurse_kind);
- }
- break;
- }
- }
-}
-
-/*
- * The following two functions are similar to the ones above, BUT:
- *
- * work must contain n * howmany elements (stride 1)
- *
- * Can handle out == in for any stride/dist.
- */
-void rfftw_real2c_overlap_aux(fftw_plan plan, int howmany,
- fftw_real *in, int istride, int idist,
- fftw_complex *out, int ostride, int odist,
- fftw_real *work)
-{
- int n = plan->n;
- int j;
-
- rfftw(plan, howmany, in, istride, idist, work, 1, n);
-
- /* copy from work to out: */
- for (j = 0; j < howmany; ++j, work += n, out += odist)
- rfftw_hc2c(n, work, out, ostride);
-}
-
-void rfftw_c2real_overlap_aux(fftw_plan plan, int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_real *out, int ostride, int odist,
- fftw_real *work)
-{
- int n = plan->n;
- int j;
-
- /* copy from in to work: */
- for (j = 0; j < howmany; ++j, in += idist)
- rfftw_c2hc(n, in, istride, work + j * n);
-
- rfftw(plan, howmany, work, 1, n, out, ostride, odist);
-}
diff --git a/src/sndobj/rfftw/rfftw.h b/src/sndobj/rfftw/rfftw.h
deleted file mode 100644
index 5af4b87..0000000
--- a/src/sndobj/rfftw/rfftw.h
+++ /dev/null
@@ -1,99 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* rfftw.h -- system-wide definitions for rfftw */
-#ifndef RFFTW_H
-#define RFFTW_H
-
-#include <rfftw/fftw.h>
-
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-/****************************************************************************/
-
-#define RFFTW_V2
-
-typedef fftw_plan rfftw_plan;
-typedef fftwnd_plan rfftwnd_plan;
-
-#define FFTW_REAL_TO_COMPLEX FFTW_FORWARD
-#define FFTW_COMPLEX_TO_REAL FFTW_BACKWARD
-
-extern void rfftw(rfftw_plan plan, int howmany, fftw_real *in, int istride,
- int idist, fftw_real *out, int ostride, int odist);
-extern void rfftw_one(rfftw_plan plan, fftw_real *in, fftw_real *out);
-
-extern rfftw_plan rfftw_create_plan_specific(int n, fftw_direction dir,
- int flags,
- fftw_real *in, int istride,
- fftw_real *out, int ostride);
-
-extern rfftw_plan rfftw_create_plan(int n, fftw_direction dir, int flags);
-extern void rfftw_destroy_plan(rfftw_plan plan);
-
-extern void rfftw_fprint_plan(FILE *f, rfftw_plan p);
-extern void rfftw_print_plan(rfftw_plan p);
-
-extern void rfftw_executor_simple(int n, fftw_real *in,
- fftw_real *out,
- fftw_plan_node *p,
- int istride,
- int ostride,
- fftw_recurse_kind recurse_kind);
-
-extern rfftwnd_plan rfftwnd_create_plan_specific(int rank, const int *n,
- fftw_direction dir, int flags,
- fftw_real *in, int istride,
- fftw_real *out, int ostride);
-extern rfftwnd_plan rfftw2d_create_plan_specific(int nx, int ny,
- fftw_direction dir, int flags,
- fftw_real *in, int istride,
- fftw_real *out, int ostride);
-extern rfftwnd_plan rfftw3d_create_plan_specific(int nx, int ny, int nz,
- fftw_direction dir, int flags,
- fftw_real *in, int istride,
- fftw_real *out, int ostride);
-extern rfftwnd_plan rfftwnd_create_plan(int rank, const int *n,
- fftw_direction dir, int flags);
-extern rfftwnd_plan rfftw2d_create_plan(int nx, int ny,
- fftw_direction dir, int flags);
-extern rfftwnd_plan rfftw3d_create_plan(int nx, int ny, int nz,
- fftw_direction dir, int flags);
-extern void rfftwnd_destroy_plan(rfftwnd_plan plan);
-extern void rfftwnd_fprint_plan(FILE *f, rfftwnd_plan plan);
-extern void rfftwnd_print_plan(rfftwnd_plan plan);
-extern void rfftwnd_real_to_complex(rfftwnd_plan p, int howmany,
- fftw_real *in, int istride, int idist,
- fftw_complex *out, int ostride, int odist);
-extern void rfftwnd_complex_to_real(rfftwnd_plan p, int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_real *out, int ostride, int odist);
-extern void rfftwnd_one_real_to_complex(rfftwnd_plan p,
- fftw_real *in, fftw_complex *out);
-extern void rfftwnd_one_complex_to_real(rfftwnd_plan p,
- fftw_complex *in, fftw_real *out);
-
-/****************************************************************************/
-
-#ifdef __cplusplus
-} /* extern "C" */
-#endif /* __cplusplus */
-#endif /* RFFTW_H */
diff --git a/src/sndobj/rfftw/rfftwf77.c b/src/sndobj/rfftw/rfftwf77.c
deleted file mode 100644
index 23d2eda..0000000
--- a/src/sndobj/rfftw/rfftwf77.c
+++ /dev/null
@@ -1,130 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-#include <rfftw.h>
-#include <f77_func.h>
-
-#ifdef F77_FUNC_ /* only compile wrappers if fortran mangling is known */
-
-/* rfftwf77.c: FORTRAN-callable "wrappers" for some of the RFFTW routines.
-
- See also fftwf77.c. */
-
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-/************************************************************************/
-
-void F77_FUNC_(rfftw_f77_create_plan,RFFTW_F77_CREATE_PLAN)
-(fftw_plan *p, int *n, int *idir, int *flags)
-{
- fftw_direction dir = *idir < 0 ? FFTW_FORWARD : FFTW_BACKWARD;
-
- *p = rfftw_create_plan(*n,dir,*flags);
-}
-
-void F77_FUNC_(rfftw_f77_destroy_plan,RFFTW_F77_DESTROY_PLAN)
-(fftw_plan *p)
-{
- rfftw_destroy_plan(*p);
-}
-
-void F77_FUNC_(rfftw_f77,RFFTW_F77)
-(fftw_plan *p, int *howmany, fftw_real *in, int *istride, int *idist,
- fftw_real *out, int *ostride, int *odist)
-{
- rfftw(*p,*howmany,in,*istride,*idist,out,*ostride,*odist);
-}
-
-void F77_FUNC_(rfftw_f77_one,RFFTW_F77_ONE)
-(fftw_plan *p, fftw_real *in, fftw_real *out)
-{
- rfftw_one(*p,in,out);
-}
-
-extern void fftw_reverse_int_array(int *a, int n);
-
-void F77_FUNC_(rfftwnd_f77_create_plan,RFFTWND_F77_CREATE_PLAN)
-(fftwnd_plan *p, int *rank, int *n, int *idir, int *flags)
-{
- fftw_direction dir = *idir < 0 ? FFTW_FORWARD : FFTW_BACKWARD;
-
- fftw_reverse_int_array(n,*rank); /* column-major -> row-major */
- *p = rfftwnd_create_plan(*rank,n,dir,*flags);
- fftw_reverse_int_array(n,*rank); /* reverse back */
-}
-
-void F77_FUNC_(rfftw2d_f77_create_plan,RFFTW2D_F77_CREATE_PLAN)
-(fftwnd_plan *p, int *nx, int *ny, int *idir, int *flags)
-{
- fftw_direction dir = *idir < 0 ? FFTW_FORWARD : FFTW_BACKWARD;
-
- *p = rfftw2d_create_plan(*ny,*nx,dir,*flags);
-}
-
-void F77_FUNC_(rfftw3d_f77_create_plan,RFFTW3D_F77_CREATE_PLAN)
-(fftwnd_plan *p, int *nx, int *ny, int *nz, int *idir, int *flags)
-{
- fftw_direction dir = *idir < 0 ? FFTW_FORWARD : FFTW_BACKWARD;
-
- *p = rfftw3d_create_plan(*nz,*ny,*nx,dir,*flags);
-}
-
-void F77_FUNC_(rfftwnd_f77_destroy_plan,RFFTWND_F77_DESTROY_PLAN)
-(fftwnd_plan *p)
-{
- rfftwnd_destroy_plan(*p);
-}
-
-void F77_FUNC_(rfftwnd_f77_real_to_complex,RFFTWND_F77_REAL_TO_COMPLEX)
-(fftwnd_plan *p, int *howmany, fftw_real *in, int *istride, int *idist,
- fftw_complex *out, int *ostride, int *odist)
-{
- rfftwnd_real_to_complex(*p,*howmany,in,*istride,*idist,
- out,*ostride,*odist);
-}
-
-void F77_FUNC_(rfftwnd_f77_one_real_to_complex,RFFTWND_F77_ONE_REAL_TO_COMPLEX)
-(fftwnd_plan *p, fftw_real *in, fftw_complex *out)
-{
- rfftwnd_one_real_to_complex(*p,in,out);
-}
-
-void F77_FUNC_(rfftwnd_f77_complex_to_real,RFFTWND_F77_COMPLEX_TO_REAL)
-(fftwnd_plan *p, int *howmany, fftw_complex *in, int *istride, int *idist,
- fftw_real *out, int *ostride, int *odist)
-{
- rfftwnd_complex_to_real(*p,*howmany,in,*istride,*idist,
- out,*ostride,*odist);
-}
-
-void F77_FUNC_(rfftwnd_f77_one_complex_to_real,RFFTWND_F77_ONE_COMPLEX_TO_REAL)
-(fftwnd_plan *p, fftw_complex *in, fftw_real *out)
-{
- rfftwnd_one_complex_to_real(*p,in,out);
-}
-
-/****************************************************************************/
-
-#ifdef __cplusplus
-} /* extern "C" */
-#endif /* __cplusplus */
-
-#endif /* defined(F77_FUNC_) */
diff --git a/src/sndobj/rfftw/rfftwnd.c b/src/sndobj/rfftw/rfftwnd.c
deleted file mode 100644
index 91814f9..0000000
--- a/src/sndobj/rfftw/rfftwnd.c
+++ /dev/null
@@ -1,570 +0,0 @@
-
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/* $Id: rfftwnd.c,v 1.1.1.1 2006/05/12 15:14:48 veplaini Exp $ */
-
-#include <fftw-int.h>
-#include <rfftw.h>
-
-/********************** prototypes for rexec2 routines **********************/
-
-extern void rfftw_real2c_aux(fftw_plan plan, int howmany,
- fftw_real *in, int istride, int idist,
- fftw_complex *out, int ostride, int odist,
- fftw_real *work);
-extern void rfftw_c2real_aux(fftw_plan plan, int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_real *out, int ostride, int odist,
- fftw_real *work);
-extern void rfftw_real2c_overlap_aux(fftw_plan plan, int howmany,
- fftw_real *in, int istride, int idist,
- fftw_complex *out, int ostride, int odist,
- fftw_real *work);
-extern void rfftw_c2real_overlap_aux(fftw_plan plan, int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_real *out, int ostride, int odist,
- fftw_real *work);
-
-/********************** Initializing the RFFTWND Plan ***********************/
-
-/*
- * Create an fftwnd_plan specialized for specific arrays. (These
- * arrays are ignored, however, if they are NULL or if the flags
- * do not include FFTW_MEASURE.) The main advantage of being
- * provided arrays like this is that we can do runtime timing
- * measurements of our options, without worrying about allocating
- * excessive scratch space.
- */
-fftwnd_plan rfftwnd_create_plan_specific(int rank, const int *n,
- fftw_direction dir, int flags,
- fftw_real *in, int istride,
- fftw_real *out, int ostride)
-{
- fftwnd_plan p;
- int i;
- int rflags = flags & ~FFTW_IN_PLACE;
- /* note that we always do rfftw transforms out-of-place in rexec2.c */
-
- if (flags & FFTW_IN_PLACE) {
- out = NULL;
- ostride = istride;
- }
- istride = ostride = 1; /*
- * strides don't work yet, since it is not
- * clear whether they apply to real
- * or complex data
- */
-
- if (!(p = fftwnd_create_plan_aux(rank, n, dir, flags)))
- return 0;
-
- for (i = 0; i < rank - 1; ++i)
- p->n_after[i] = (n[rank - 1]/2 + 1) * (p->n_after[i] / n[rank - 1]);
- if (rank > 0)
- p->n[rank - 1] = n[rank - 1] / 2 + 1;
-
- p->plans = fftwnd_new_plan_array(rank);
- if (rank > 0 && !p->plans) {
- rfftwnd_destroy_plan(p);
- return 0;
- }
- if (rank > 0) {
- p->plans[rank - 1] = rfftw_create_plan(n[rank - 1], dir, rflags);
- if (!p->plans[rank - 1]) {
- rfftwnd_destroy_plan(p);
- return 0;
- }
- }
- if (rank > 1) {
- if (!(flags & FFTW_MEASURE) || in == 0
- || (!p->is_in_place && out == 0)) {
- if (!fftwnd_create_plans_generic(p->plans, rank - 1, n,
- dir, flags | FFTW_IN_PLACE)) {
- rfftwnd_destroy_plan(p);
- return 0;
- }
- } else if (dir == FFTW_COMPLEX_TO_REAL || (flags & FFTW_IN_PLACE)) {
- if (!fftwnd_create_plans_specific(p->plans, rank - 1, n,
- p->n_after,
- dir, flags | FFTW_IN_PLACE,
- (fftw_complex *) in,
- istride,
- 0, 0)) {
- rfftwnd_destroy_plan(p);
- return 0;
- }
- } else {
- if (!fftwnd_create_plans_specific(p->plans, rank - 1, n,
- p->n_after,
- dir, flags | FFTW_IN_PLACE,
- (fftw_complex *) out,
- ostride,
- 0, 0)) {
- rfftwnd_destroy_plan(p);
- return 0;
- }
- }
- }
- p->nbuffers = 0;
- p->nwork = fftwnd_work_size(rank, p->n, flags | FFTW_IN_PLACE,
- p->nbuffers + 1);
- if (p->nwork && !(flags & FFTW_THREADSAFE)) {
- p->work = (fftw_complex *) fftw_malloc(p->nwork
- * sizeof(fftw_complex));
- if (!p->work) {
- rfftwnd_destroy_plan(p);
- return 0;
- }
- }
- return p;
-}
-
-fftwnd_plan rfftw2d_create_plan_specific(int nx, int ny,
- fftw_direction dir, int flags,
- fftw_real *in, int istride,
- fftw_real *out, int ostride)
-{
- int n[2];
-
- n[0] = nx;
- n[1] = ny;
-
- return rfftwnd_create_plan_specific(2, n, dir, flags,
- in, istride, out, ostride);
-}
-
-fftwnd_plan rfftw3d_create_plan_specific(int nx, int ny, int nz,
- fftw_direction dir, int flags,
- fftw_real *in, int istride,
- fftw_real *out, int ostride)
-{
- int n[3];
-
- n[0] = nx;
- n[1] = ny;
- n[2] = nz;
-
- return rfftwnd_create_plan_specific(3, n, dir, flags,
- in, istride, out, ostride);
-}
-
-/* Create a generic fftwnd plan: */
-
-fftwnd_plan rfftwnd_create_plan(int rank, const int *n,
- fftw_direction dir, int flags)
-{
- return rfftwnd_create_plan_specific(rank, n, dir, flags, 0, 1, 0, 1);
-}
-
-fftwnd_plan rfftw2d_create_plan(int nx, int ny,
- fftw_direction dir, int flags)
-{
- return rfftw2d_create_plan_specific(nx, ny, dir, flags, 0, 1, 0, 1);
-}
-
-fftwnd_plan rfftw3d_create_plan(int nx, int ny, int nz,
- fftw_direction dir, int flags)
-{
- return rfftw3d_create_plan_specific(nx, ny, nz, dir, flags, 0, 1, 0, 1);
-}
-
-/************************ Freeing the RFFTWND Plan ************************/
-
-void rfftwnd_destroy_plan(fftwnd_plan plan)
-{
- fftwnd_destroy_plan(plan);
-}
-
-/************************ Printing the RFFTWND Plan ************************/
-
-void rfftwnd_fprint_plan(FILE *f, fftwnd_plan plan)
-{
- fftwnd_fprint_plan(f, plan);
-}
-
-void rfftwnd_print_plan(fftwnd_plan plan)
-{
- rfftwnd_fprint_plan(stdout, plan);
-}
-
-/*********** Computing the N-Dimensional FFT: Auxiliary Routines ************/
-
-void rfftwnd_real2c_aux(fftwnd_plan p, int cur_dim,
- fftw_real *in, int istride,
- fftw_complex *out, int ostride,
- fftw_real *work)
-{
- int n_after = p->n_after[cur_dim], n = p->n[cur_dim];
-
- if (cur_dim == p->rank - 2) {
- /* just do the last dimension directly: */
- if (p->is_in_place)
- rfftw_real2c_aux(p->plans[p->rank - 1], n,
- in, istride, (n_after * istride) * 2,
- out, istride, n_after * istride,
- work);
- else
- rfftw_real2c_aux(p->plans[p->rank - 1], n,
- in, istride, p->plans[p->rank - 1]->n * istride,
- out, ostride, n_after * ostride,
- work);
- } else { /* we have at least two dimensions to go */
- int nr = p->plans[p->rank - 1]->n;
- int n_after_r = p->is_in_place ? n_after * 2
- : nr * (n_after / (nr/2 + 1));
- int i;
-
- /*
- * process the subsequent dimensions recursively, in hyperslabs,
- * to get maximum locality:
- */
- for (i = 0; i < n; ++i)
- rfftwnd_real2c_aux(p, cur_dim + 1,
- in + i * n_after_r * istride, istride,
- out + i * n_after * ostride, ostride, work);
- }
-
- /* do the current dimension (in-place): */
- fftw(p->plans[cur_dim], n_after,
- out, n_after * ostride, ostride,
- (fftw_complex *) work, 1, 0);
- /* I hate this cast */
-}
-
-void rfftwnd_c2real_aux(fftwnd_plan p, int cur_dim,
- fftw_complex *in, int istride,
- fftw_real *out, int ostride,
- fftw_real *work)
-{
- int n_after = p->n_after[cur_dim], n = p->n[cur_dim];
-
- /* do the current dimension (in-place): */
- fftw(p->plans[cur_dim], n_after,
- in, n_after * istride, istride,
- (fftw_complex *) work, 1, 0);
-
- if (cur_dim == p->rank - 2) {
- /* just do the last dimension directly: */
- if (p->is_in_place)
- rfftw_c2real_aux(p->plans[p->rank - 1], n,
- in, istride, n_after * istride,
- out, istride, (n_after * istride) * 2,
- work);
- else
- rfftw_c2real_aux(p->plans[p->rank - 1], n,
- in, istride, n_after * istride,
- out, ostride, p->plans[p->rank - 1]->n * ostride,
- work);
- } else { /* we have at least two dimensions to go */
- int nr = p->plans[p->rank - 1]->n;
- int n_after_r = p->is_in_place ? n_after * 2 :
- nr * (n_after / (nr/2 + 1));
- int i;
-
- /*
- * process the subsequent dimensions recursively, in hyperslabs,
- * to get maximum locality:
- */
- for (i = 0; i < n; ++i)
- rfftwnd_c2real_aux(p, cur_dim + 1,
- in + i * n_after * istride, istride,
- out + i * n_after_r * ostride, ostride, work);
- }
-}
-
-/*
- * alternate version of rfftwnd_aux -- this version pushes the howmany
- * loop down to the leaves of the computation, for greater locality
- * in cases where dist < stride. It is also required for correctness
- * if in==out, and we must call a special version of the executor.
- * Note that work must point to 'howmany' copies of its data
- * if in == out.
- */
-
-void rfftwnd_real2c_aux_howmany(fftwnd_plan p, int cur_dim,
- int howmany,
- fftw_real *in, int istride, int idist,
- fftw_complex *out, int ostride, int odist,
- fftw_complex *work)
-{
- int n_after = p->n_after[cur_dim], n = p->n[cur_dim];
- int k;
-
- if (cur_dim == p->rank - 2) {
- /* just do the last dimension directly: */
- if (p->is_in_place)
- for (k = 0; k < n; ++k)
- rfftw_real2c_overlap_aux(p->plans[p->rank - 1], howmany,
- in + (k * n_after * istride) * 2,
- istride, idist,
- out + (k * n_after * ostride),
- ostride, odist,
- (fftw_real *) work);
- else {
- int nlast = p->plans[p->rank - 1]->n;
- for (k = 0; k < n; ++k)
- rfftw_real2c_aux(p->plans[p->rank - 1], howmany,
- in + k * nlast * istride,
- istride, idist,
- out + k * n_after * ostride,
- ostride, odist,
- (fftw_real *) work);
- }
- } else { /* we have at least two dimensions to go */
- int nr = p->plans[p->rank - 1]->n;
- int n_after_r = p->is_in_place ? n_after * 2 :
- nr * (n_after / (nr/2 + 1));
- int i;
-
- /*
- * process the subsequent dimensions recursively, in hyperslabs,
- * to get maximum locality:
- */
- for (i = 0; i < n; ++i)
- rfftwnd_real2c_aux_howmany(p, cur_dim + 1, howmany,
- in + i * n_after_r * istride, istride, idist,
- out + i * n_after * ostride, ostride, odist,
- work);
- }
-
- /* do the current dimension (in-place): */
- for (k = 0; k < n_after; ++k)
- fftw(p->plans[cur_dim], howmany,
- out + k * ostride, n_after * ostride, odist,
- work, 1, 0);
-}
-
-void rfftwnd_c2real_aux_howmany(fftwnd_plan p, int cur_dim,
- int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_real *out, int ostride, int odist,
- fftw_complex *work)
-{
- int n_after = p->n_after[cur_dim], n = p->n[cur_dim];
- int k;
-
- /* do the current dimension (in-place): */
- for (k = 0; k < n_after; ++k)
- fftw(p->plans[cur_dim], howmany,
- in + k * istride, n_after * istride, idist,
- work, 1, 0);
-
- if (cur_dim == p->rank - 2) {
- /* just do the last dimension directly: */
- if (p->is_in_place)
- for (k = 0; k < n; ++k)
- rfftw_c2real_overlap_aux(p->plans[p->rank - 1], howmany,
- in + (k * n_after * istride),
- istride, idist,
- out + (k * n_after * ostride) * 2,
- ostride, odist,
- (fftw_real *) work);
- else {
- int nlast = p->plans[p->rank - 1]->n;
- for (k = 0; k < n; ++k)
- rfftw_c2real_aux(p->plans[p->rank - 1], howmany,
- in + k * n_after * istride,
- istride, idist,
- out + k * nlast * ostride,
- ostride, odist,
- (fftw_real *) work);
- }
- } else { /* we have at least two dimensions to go */
- int nr = p->plans[p->rank - 1]->n;
- int n_after_r = p->is_in_place ? n_after * 2
- : nr * (n_after / (nr/2 + 1));
- int i;
-
- /*
- * process the subsequent dimensions recursively, in hyperslabs,
- * to get maximum locality:
- */
- for (i = 0; i < n; ++i)
- rfftwnd_c2real_aux_howmany(p, cur_dim + 1, howmany,
- in + i * n_after * istride, istride, idist,
- out + i * n_after_r * ostride, ostride, odist,
- work);
- }
-}
-
-/********** Computing the N-Dimensional FFT: User-Visible Routines **********/
-
-void rfftwnd_real_to_complex(fftwnd_plan p, int howmany,
- fftw_real *in, int istride, int idist,
- fftw_complex *out, int ostride, int odist)
-{
- fftw_complex *work = p->work;
- int rank = p->rank;
- int free_work = 0;
-
- if (p->dir != FFTW_REAL_TO_COMPLEX)
- fftw_die("rfftwnd_real_to_complex with complex-to-real plan");
-
-#ifdef FFTW_DEBUG
- if (p->rank > 0 && (p->plans[0]->flags & FFTW_THREADSAFE)
- && p->nwork && p->work)
- fftw_die("bug with FFTW_THREADSAFE flag");
-#endif
-
- if (p->is_in_place) {
- ostride = istride;
- odist = (idist == 1 && idist < istride) ? 1 : (idist / 2); /* ugh */
- out = (fftw_complex *) in;
- if (howmany > 1 && istride > idist && rank > 0) {
- int new_nwork;
-
- new_nwork = p->n[rank - 1] * howmany;
- if (new_nwork > p->nwork) {
- work = (fftw_complex *)
- fftw_malloc(sizeof(fftw_complex) * new_nwork);
- if (!work)
- fftw_die("error allocating work array");
- free_work = 1;
- }
- }
- }
- if (p->nwork && !work) {
- work = (fftw_complex *) fftw_malloc(sizeof(fftw_complex) * p->nwork);
- free_work = 1;
- }
- switch (rank) {
- case 0:
- break;
- case 1:
- if (p->is_in_place && howmany > 1 && istride > idist)
- rfftw_real2c_overlap_aux(p->plans[0], howmany,
- in, istride, idist,
- out, ostride, odist,
- (fftw_real *) work);
- else
- rfftw_real2c_aux(p->plans[0], howmany,
- in, istride, idist,
- out, ostride, odist,
- (fftw_real *) work);
- break;
- default: /* rank >= 2 */
- {
- if (howmany > 1 && ostride > odist)
- rfftwnd_real2c_aux_howmany(p, 0, howmany,
- in, istride, idist,
- out, ostride, odist,
- work);
- else {
- int i;
-
- for (i = 0; i < howmany; ++i)
- rfftwnd_real2c_aux(p, 0,
- in + i * idist, istride,
- out + i * odist, ostride,
- (fftw_real *) work);
- }
- }
- }
-
- if (free_work)
- fftw_free(work);
-}
-
-void rfftwnd_complex_to_real(fftwnd_plan p, int howmany,
- fftw_complex *in, int istride, int idist,
- fftw_real *out, int ostride, int odist)
-{
- fftw_complex *work = p->work;
- int rank = p->rank;
- int free_work = 0;
-
- if (p->dir != FFTW_COMPLEX_TO_REAL)
- fftw_die("rfftwnd_complex_to_real with real-to-complex plan");
-
-#ifdef FFTW_DEBUG
- if (p->rank > 0 && (p->plans[0]->flags & FFTW_THREADSAFE)
- && p->nwork && p->work)
- fftw_die("bug with FFTW_THREADSAFE flag");
-#endif
-
- if (p->is_in_place) {
- ostride = istride;
- odist = idist;
- odist = (idist == 1 && idist < istride) ? 1 : (idist * 2); /* ugh */
- out = (fftw_real *) in;
- if (howmany > 1 && istride > idist && rank > 0) {
- int new_nwork = p->n[rank - 1] * howmany;
- if (new_nwork > p->nwork) {
- work = (fftw_complex *)
- fftw_malloc(sizeof(fftw_complex) * new_nwork);
- if (!work)
- fftw_die("error allocating work array");
- free_work = 1;
- }
- }
- }
- if (p->nwork && !work) {
- work = (fftw_complex *) fftw_malloc(sizeof(fftw_complex) * p->nwork);
- free_work = 1;
- }
- switch (rank) {
- case 0:
- break;
- case 1:
- if (p->is_in_place && howmany > 1 && istride > idist)
- rfftw_c2real_overlap_aux(p->plans[0], howmany,
- in, istride, idist,
- out, ostride, odist,
- (fftw_real *) work);
- else
- rfftw_c2real_aux(p->plans[0], howmany,
- in, istride, idist,
- out, ostride, odist,
- (fftw_real *) work);
- break;
- default: /* rank >= 2 */
- {
- if (howmany > 1 && ostride > odist)
- rfftwnd_c2real_aux_howmany(p, 0, howmany,
- in, istride, idist,
- out, ostride, odist,
- work);
- else {
- int i;
-
- for (i = 0; i < howmany; ++i)
- rfftwnd_c2real_aux(p, 0,
- in + i * idist, istride,
- out + i * odist, ostride,
- (fftw_real *) work);
- }
- }
- }
-
- if (free_work)
- fftw_free(work);
-}
-
-void rfftwnd_one_real_to_complex(fftwnd_plan p,
- fftw_real *in, fftw_complex *out)
-{
- rfftwnd_real_to_complex(p, 1, in, 1, 1, out, 1, 1);
-}
-
-void rfftwnd_one_complex_to_real(fftwnd_plan p,
- fftw_complex *in, fftw_real *out)
-{
- rfftwnd_complex_to_real(p, 1, in, 1, 1, out, 1, 1);
-}
diff --git a/src/sndobj/rfftw/rgeneric.c b/src/sndobj/rfftw/rgeneric.c
deleted file mode 100644
index 7feb92d..0000000
--- a/src/sndobj/rfftw/rgeneric.c
+++ /dev/null
@@ -1,188 +0,0 @@
-
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * rgeneric.c -- "generic" rfftw codelets. They work for all n (and
- * they are slow)
- */
-#include <fftw-int.h>
-#include <rfftw.h>
-
-/* this code assumes that r and m are both odd */
-void fftw_hc2hc_forward_generic(fftw_real *A, const fftw_complex *W,
- int m, int r, int n, int dist)
-{
- int i, j, k;
- fftw_complex *tmp = (fftw_complex *)
- fftw_malloc(r * sizeof(fftw_complex));
- fftw_real rsum, isum;
- fftw_real *X, *YO, *YI;
- int wp, wincr;
- int iostride = m * dist;
- X = A;
- YO = A + r * iostride;
- YI = A + iostride;
-
- /* compute the transform of the r 0th elements (which are real) */
- for (i = 0; i + i < r; ++i) {
- rsum = 0.0;
- isum = 0.0;
- wincr = m * i;
- for (j = 0, wp = 0; j < r; ++j) {
- fftw_real tw_r = c_re(W[wp]);
- fftw_real tw_i = c_im(W[wp]);
- fftw_real re = X[j * iostride];
- rsum += re * tw_r;
- isum += re * tw_i;
- wp += wincr;
- if (wp >= n)
- wp -= n;
- }
- c_re(tmp[i]) = rsum;
- c_im(tmp[i]) = isum;
- }
-
- /* store the transform back onto the A array */
- X[0] = c_re(tmp[0]);
- for (i = 1; i + i < r; ++i) {
- X[i * iostride] = c_re(tmp[i]);
- YO[-i * iostride] = c_im(tmp[i]);
- }
-
- X += dist;
- YI -= dist;
- YO -= dist;
-
- /* compute the transform of the middle elements (which are complex) */
- for (k = 1; k + k < m; ++k, X += dist, YI -= dist, YO -= dist) {
- for (i = 0; i < r; ++i) {
- rsum = 0.0;
- isum = 0.0;
- wincr = k + m * i;
- for (j = 0, wp = 0; j < r; ++j) {
- fftw_real tw_r = c_re(W[wp]);
- fftw_real tw_i = c_im(W[wp]);
- fftw_real re = X[j * iostride];
- fftw_real im = YI[j * iostride];
- rsum += re * tw_r - im * tw_i;
- isum += re * tw_i + im * tw_r;
- wp += wincr;
- if (wp >= n)
- wp -= n;
- }
- c_re(tmp[i]) = rsum;
- c_im(tmp[i]) = isum;
- }
-
- /* store the transform back onto the A array */
- for (i = 0; i + i < r; ++i) {
- X[i * iostride] = c_re(tmp[i]);
- YO[-i * iostride] = c_im(tmp[i]);
- }
- for (; i < r; ++i) {
- X[i * iostride] = -c_im(tmp[i]);
- YO[-i * iostride] = c_re(tmp[i]);
- }
- }
-
- /* no final element, since m is odd */
- fftw_free(tmp);
-}
-
-void fftw_hc2hc_backward_generic(fftw_real *A, const fftw_complex *W,
- int m, int r, int n, int dist)
-{
- int i, j, k;
- int wp, wincr;
- fftw_complex *tmp = (fftw_complex *)
- fftw_malloc(r * sizeof(fftw_complex));
- fftw_real rsum, isum;
- fftw_real *X, *YO, *YI;
- int iostride = m * dist;
- X = A;
- YO = A + iostride;
- YI = A + r * iostride;
-
- /*
- * compute the transform of the r 0th elements (which are halfcomplex)
- * yielding real numbers
- */
- /* copy the input into the temporary array */
- c_re(tmp[0]) = X[0];
- for (i = 1; i + i < r; ++i) {
- c_re(tmp[i]) = X[i * iostride];
- c_im(tmp[i]) = YI[-i * iostride];
- }
-
- for (i = 0; i < r; ++i) {
- rsum = 0.0;
- wincr = m * i;
- for (j = 1, wp = wincr; j + j < r; ++j) {
- fftw_real tw_r = c_re(W[wp]);
- fftw_real tw_i = c_im(W[wp]);
- fftw_real re = c_re(tmp[j]);
- fftw_real im = c_im(tmp[j]);
- rsum += re * tw_r + im * tw_i;
- wp += wincr;
- if (wp >= n)
- wp -= n;
- }
- X[i * iostride] = 2.0 * rsum + c_re(tmp[0]);
- }
-
- X += dist;
- YI -= dist;
- YO -= dist;
-
- /* compute the transform of the middle elements (which are complex) */
- for (k = 1; k + k < m; ++k, X += dist, YI -= dist, YO -= dist) {
- /* copy the input into the temporary array */
- for (i = 0; i + i < r; ++i) {
- c_re(tmp[i]) = X[i * iostride];
- c_im(tmp[i]) = YI[-i * iostride];
- }
- for (; i < r; ++i) {
- c_im(tmp[i]) = -X[i * iostride];
- c_re(tmp[i]) = YI[-i * iostride];
- }
-
- for (i = 0; i < r; ++i) {
- rsum = 0.0;
- isum = 0.0;
- wincr = m * i;
- for (j = 0, wp = k * i; j < r; ++j) {
- fftw_real tw_r = c_re(W[wp]);
- fftw_real tw_i = c_im(W[wp]);
- fftw_real re = c_re(tmp[j]);
- fftw_real im = c_im(tmp[j]);
- rsum += re * tw_r + im * tw_i;
- isum += im * tw_r - re * tw_i;
- wp += wincr;
- if (wp >= n)
- wp -= n;
- }
- X[i * iostride] = rsum;
- YO[i * iostride] = isum;
- }
- }
-
- /* no final element, since m is odd */
- fftw_free(tmp);
-}
diff --git a/src/sndobj/rfftw/rplanner.c b/src/sndobj/rfftw/rplanner.c
deleted file mode 100644
index 643dc02..0000000
--- a/src/sndobj/rfftw/rplanner.c
+++ /dev/null
@@ -1,471 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * planner.c -- find the optimal plan
- */
-
-/* $Id: rplanner.c,v 1.1.1.1 2006/05/12 15:14:53 veplaini Exp $ */
-#ifdef FFTW_USING_CILK
-#include <cilk.h>
-#include <cilk-compat.h>
-#endif
-
-#include <stdlib.h>
-#include <stdio.h>
-
-#include <fftw-int.h>
-#include <rfftw.h>
-
-extern fftw_codelet_desc *rfftw_config[]; /* global from rconfig.c */
-extern fftw_rgeneric_codelet fftw_hc2hc_forward_generic;
-extern fftw_rgeneric_codelet fftw_hc2hc_backward_generic;
-
-fftw_plan_hook_ptr rfftw_plan_hook = (fftw_plan_hook_ptr) NULL;
-
-/* timing rfftw plans: */
-static double rfftw_measure_runtime(fftw_plan plan,
- fftw_real *in, int istride,
- fftw_real *out, int ostride)
-{
- fftw_time begin, end, start;
- double t, tmin;
- int i, iter;
- int n;
- int repeat;
- int howmany = plan->vector_size;
-
- n = plan->n;
-
- iter = 1;
-
- for (;;) {
- tmin = 1.0E10;
- for (i = 0; i < n * howmany; ++i)
- in[istride * i] = 0.0;
-
- start = fftw_get_time();
- /* repeat the measurement FFTW_TIME_REPEAT times */
- for (repeat = 0; repeat < FFTW_TIME_REPEAT; ++repeat) {
- begin = fftw_get_time();
- for (i = 0; i < iter; ++i)
- rfftw(plan, howmany, in, istride, istride,
- out, ostride, ostride);
- end = fftw_get_time();
-
- t = fftw_time_to_sec(fftw_time_diff(end, begin));
- if (t < tmin)
- tmin = t;
-
- /* do not run for too long */
- t = fftw_time_to_sec(fftw_time_diff(end, start));
- if (t > FFTW_TIME_LIMIT)
- break;
- }
-
- if (tmin >= FFTW_TIME_MIN)
- break;
-
- iter *= 2;
- }
-
- tmin /= (double) iter;
- return tmin;
-}
-
-/* auxiliary functions */
-static void rcompute_cost(fftw_plan plan,
- fftw_real *in, int istride,
- fftw_real *out, int ostride)
-{
- if (plan->flags & FFTW_MEASURE)
- plan->cost = rfftw_measure_runtime(plan, in, istride, out, ostride);
- else {
- double c;
- c = plan->n * fftw_estimate_node(plan->root) * plan->vector_size;
- plan->cost = c;
- }
-}
-
-static void run_plan_hooks(fftw_plan p)
-{
- if (rfftw_plan_hook && p) {
- fftw_complete_twiddle(p->root, p->n);
- rfftw_plan_hook(p);
- }
-}
-
-/* macrology */
-#define FOR_ALL_RCODELETS(p) \
- fftw_codelet_desc **__q, *p; \
- for (__q = &rfftw_config[0]; (p = (*__q)); ++__q)
-
-/******************************************
- * Recursive planner *
- ******************************************/
-static fftw_plan rplanner(fftw_plan *table, int n,
- fftw_direction dir, int flags, int vector_size,
- fftw_real *, int, fftw_real *, int);
-
-/*
- * the planner consists of two parts: one that tries to
- * use accumulated wisdom, and one that does not.
- * A small driver invokes both parts in sequence
- */
-
-/* planner with wisdom: look up the codelet suggested by the wisdom */
-static fftw_plan rplanner_wisdom(fftw_plan *table, int n,
- fftw_direction dir, int flags,
- int vector_size,
- fftw_real *in, int istride,
- fftw_real *out, int ostride)
-{
- fftw_plan best = (fftw_plan) 0;
- fftw_plan_node *node;
- int have_wisdom;
- enum fftw_node_type wisdom_type;
- int wisdom_signature;
- fftw_recurse_kind wisdom_recurse_kind;
-
- /* see if we remember any wisdom for this case */
- have_wisdom = fftw_wisdom_lookup(n, flags, dir, RFFTW_WISDOM,
- istride, ostride,
- &wisdom_type, &wisdom_signature,
- &wisdom_recurse_kind, 0);
-
- if (!have_wisdom)
- return best;
-
- if (wisdom_type == FFTW_REAL2HC || wisdom_type == FFTW_HC2REAL) {
- FOR_ALL_RCODELETS(p) {
- if (p->dir == dir && p->type == wisdom_type) {
- /* see if wisdom applies */
- if (wisdom_signature == p->signature &&
- p->size == n) {
- if (wisdom_type == FFTW_REAL2HC)
- node = fftw_make_node_real2hc(n, p);
- else
- node = fftw_make_node_hc2real(n, p);
- best = fftw_make_plan(n, dir, node, flags,
- p->type, p->signature,
- FFTW_NORMAL_RECURSE,
- vector_size);
- fftw_use_plan(best);
- run_plan_hooks(best);
- return best;
- }
- }
- }
- }
- if (wisdom_type == FFTW_HC2HC) {
- FOR_ALL_RCODELETS(p) {
- if (p->dir == dir && p->type == wisdom_type) {
-
- /* see if wisdom applies */
- if (wisdom_signature == p->signature &&
- p->size > 1 &&
- (n % p->size) == 0) {
- fftw_plan r = rplanner(table, n / p->size, dir,
- flags | FFTW_NO_VECTOR_RECURSE,
- wisdom_recurse_kind ==
- FFTW_VECTOR_RECURSE ?
- p->size : vector_size,
- in, istride, out,
- ostride);
- if (!r)
- continue;
- node = fftw_make_node_hc2hc(n, dir, p,
- r->root, flags);
- best = fftw_make_plan(n, dir, node, flags,
- p->type, p->signature,
- wisdom_recurse_kind,
- vector_size);
- fftw_use_plan(best);
- run_plan_hooks(best);
- fftw_destroy_plan_internal(r);
- return best;
- }
- }
- }
- }
- /*
- * BUG (or: TODO) Can we have generic wisdom? This is probably
- * an academic question
- */
-
- return best;
-}
-
-/*
- * planner with no wisdom: try all combinations and pick
- * the best
- */
-
-static fftw_plan rplanner_normal(fftw_plan *table, int n, fftw_direction dir,
- int flags, int vector_size,
- fftw_real *in, int istride,
- fftw_real *out, int ostride)
-{
- fftw_plan best = (fftw_plan) 0;
- fftw_plan newplan;
- fftw_plan_node *node;
-
- /* see if we have any codelet that solves the problem */
- {
- FOR_ALL_RCODELETS(p) {
- if (p->dir == dir &&
- (p->type == FFTW_REAL2HC || p->type == FFTW_HC2REAL)) {
- if (p->size == n) {
- if (p->type == FFTW_REAL2HC)
- node = fftw_make_node_real2hc(n, p);
- else
- node = fftw_make_node_hc2real(n, p);
- newplan = fftw_make_plan(n, dir, node, flags,
- p->type, p->signature,
- FFTW_NORMAL_RECURSE,
- vector_size);
- fftw_use_plan(newplan);
- run_plan_hooks(newplan);
- rcompute_cost(newplan, in, istride, out, ostride);
- best = fftw_pick_better(newplan, best);
- }
- }
- }
- }
-
- /* Then, try all available twiddle codelets */
- {
- FOR_ALL_RCODELETS(p) {
- if (p->dir == dir && p->type == FFTW_HC2HC) {
- if ((n % p->size) == 0 &&
- p->size > 1 &&
- (!best || n != p->size)) {
- fftw_plan r = rplanner(table, n / p->size, dir,
- flags | FFTW_NO_VECTOR_RECURSE,
- vector_size,
- in, istride, out, ostride);
- if (!r)
- continue;
- node = fftw_make_node_hc2hc(n, dir, p,
- r->root, flags);
- newplan = fftw_make_plan(n, dir, node, flags,
- p->type, p->signature,
- FFTW_NORMAL_RECURSE,
- vector_size);
- fftw_use_plan(newplan);
- run_plan_hooks(newplan);
- fftw_destroy_plan_internal(r);
- rcompute_cost(newplan, in, istride, out, ostride);
- best = fftw_pick_better(newplan, best);
- }
- }
- }
- }
-
- /* try vector recursion unless prohibited by the flags: */
- if (! (flags & FFTW_NO_VECTOR_RECURSE)) {
- FOR_ALL_RCODELETS(p) {
- if (p->dir == dir && p->type == FFTW_HC2HC) {
- if ((n % p->size) == 0 &&
- p->size > 1 &&
- (!best || n != p->size)) {
- fftw_plan r = rplanner(table, n / p->size, dir,
- flags | FFTW_NO_VECTOR_RECURSE,
- p->size,
- in, istride, out, ostride);
- if (!r)
- continue;
- node = fftw_make_node_hc2hc(n, dir, p,
- r->root, flags);
- newplan = fftw_make_plan(n, dir, node, flags,
- p->type, p->signature,
- FFTW_VECTOR_RECURSE,
- vector_size);
- fftw_use_plan(newplan);
- run_plan_hooks(newplan);
- fftw_destroy_plan_internal(r);
- rcompute_cost(newplan, in, istride, out, ostride);
- best = fftw_pick_better(newplan, best);
- }
- }
- }
- }
-
- /*
- * Resort to generic codelets for unknown factors, but only if
- * n is odd--the rgeneric codelets can't handle even n's.
- */
- if (n % 2 != 0) {
- fftw_rgeneric_codelet *codelet = (dir == FFTW_FORWARD ?
- fftw_hc2hc_forward_generic :
- fftw_hc2hc_backward_generic);
- int size, prev_size = 0, remaining_factors = n;
- fftw_plan r;
-
- while (remaining_factors > 1) {
- size = fftw_factor(remaining_factors);
- remaining_factors /= size;
-
- /* don't try the same factor more than once */
- if (size == prev_size)
- continue;
- prev_size = size;
-
- /* Look for codelets corresponding to this factor. */
- {
- FOR_ALL_RCODELETS(p) {
- if (p->dir == dir && p->type == FFTW_HC2HC
- && p->size == size) {
- size = 0;
- break;
- }
- }
- }
-
- /*
- * only try a generic/rader codelet if there were no
- * twiddle codelets for this factor
- */
- if (!size)
- continue;
-
- r = rplanner(table, n / size, dir,
- flags | FFTW_NO_VECTOR_RECURSE,
- vector_size,
- in, istride, out, ostride);
-
- node = fftw_make_node_rgeneric(n, size, dir, codelet,
- r->root, flags);
- newplan = fftw_make_plan(n, dir, node, flags, FFTW_RGENERIC, 0,
- FFTW_NORMAL_RECURSE, vector_size);
- fftw_use_plan(newplan);
- run_plan_hooks(newplan);
- fftw_destroy_plan_internal(r);
- rcompute_cost(newplan, in, istride, out, ostride);
- best = fftw_pick_better(newplan, best);
- }
- }
- return best;
-}
-
-static fftw_plan rplanner(fftw_plan *table, int n, fftw_direction dir,
- int flags, int vector_size,
- fftw_real *in, int istride,
- fftw_real *out, int ostride)
-{
- fftw_plan best = (fftw_plan) 0;
-
- if (vector_size > 1)
- flags |= FFTW_NO_VECTOR_RECURSE;
-
- /* see if plan has already been computed */
- best = fftw_lookup(table, n, flags, vector_size);
- if (best) {
- fftw_use_plan(best);
- return best;
- }
- /* try a wise plan */
- best = rplanner_wisdom(table, n, dir, flags, vector_size,
- in, istride, out, ostride);
-
- if (!best) {
- /* No wisdom. Plan normally. */
- best = rplanner_normal(table, n, dir, flags,
- vector_size,
- in, istride, out, ostride);
- }
- if (best) {
- fftw_insert(table, best);
-
- /* remember the wisdom */
- fftw_wisdom_add(n, flags, dir, RFFTW_WISDOM,
- istride, ostride,
- best->wisdom_type,
- best->wisdom_signature,
- best->recurse_kind);
- }
- return best;
-}
-
-fftw_plan rfftw_create_plan_specific(int n, fftw_direction dir, int flags,
- fftw_real *in, int istride,
- fftw_real *out, int ostride)
-{
- fftw_plan table;
- fftw_plan p1;
-
- /* validate parameters */
- if (n <= 0)
- return (fftw_plan) 0;
-
-#ifndef FFTW_ENABLE_VECTOR_RECURSE
- /* TEMPORARY: disable vector recursion until it is more tested. */
- flags |= FFTW_NO_VECTOR_RECURSE;
-#endif
-
- if ((dir != FFTW_FORWARD) && (dir != FFTW_BACKWARD))
- return (fftw_plan) 0;
-
- fftw_make_empty_table(&table);
- p1 = rplanner(&table, n, dir, flags, 1,
- in, istride, out, ostride);
- fftw_destroy_table(&table);
-
- if (p1)
- fftw_complete_twiddle(p1->root, n);
- return p1;
-}
-
-fftw_plan rfftw_create_plan(int n, fftw_direction dir, int flags)
-{
- fftw_real *tmp_in;
- fftw_real *tmp_out;
- fftw_plan p;
-
- if (flags & FFTW_MEASURE) {
- tmp_in = (fftw_real *) fftw_malloc(2 * n * sizeof(fftw_real));
- if (!tmp_in)
- return 0;
- tmp_out = tmp_in + n;
-
- p = rfftw_create_plan_specific(n, dir, flags,
- tmp_in, 1, tmp_out, 1);
-
- fftw_free(tmp_in);
- } else
- p = rfftw_create_plan_specific(n, dir, flags,
- (fftw_real *) 0, 1, (fftw_real *) 0, 1);
-
- return p;
-}
-
-void rfftw_destroy_plan(fftw_plan plan)
-{
- fftw_destroy_plan_internal(plan);
-}
-
-void rfftw_fprint_plan(FILE *f, fftw_plan p)
-{
- fftw_fprint_plan(f, p);
-}
-
-void rfftw_print_plan(fftw_plan p)
-{
- rfftw_fprint_plan(stdout, p);
-}
diff --git a/src/sndobj/rfftw/timer.c b/src/sndobj/rfftw/timer.c
deleted file mode 100644
index 642a7f2..0000000
--- a/src/sndobj/rfftw/timer.c
+++ /dev/null
@@ -1,164 +0,0 @@
-
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * timer.c -- this file measures the execution time of
- * ffts. This information is used by the planner.
- */
-
-/* $Id: timer.c,v 1.1.1.1 2006/05/12 15:14:53 veplaini Exp $ */
-
-#include <time.h>
-#include <fftw-int.h>
-#include <math.h>
-#include <stdlib.h>
-
-/********************* System-specific Timing Support *********************/
-
-#if defined(HAVE_MAC_TIMER) && !defined(HAVE_MAC_PCI_TIMER)
-
-/* Use Macintosh Time Manager to get the time: */
-
-/*
- * make sure compiler (CW) recognizes the pascal keywords that are in
- * Timer.h
- */
-#pragma only_std_keywords off
-
-#include <Timer.h>
-
-#pragma only_std_keywords reset
-
-fftw_time get_Mac_microseconds(void)
-{
- fftw_time t;
- UnsignedWide microsec; /*
- * microsec.lo and microsec.hi are
- * unsigned long's, and are the two parts
- * of a 64 bit unsigned integer
- */
-
- Microseconds(&microsec); /* get time in microseconds */
-
- /* store lo and hi words into our structure: */
- t.lo = microsec.lo;
- t.hi = microsec.hi;
-
- return t;
-}
-
-fftw_time fftw_time_diff(fftw_time t1, fftw_time t2)
-/*
- * This function takes the difference t1 - t2 of two 64 bit
- * integers, represented by the 32 bit lo and hi words.
- * if t1 < t2, returns 0.
- */
-{
- fftw_time diff;
-
- if (t1.hi < t2.hi) { /* something is wrong...t1 < t2! */
- diff.hi = diff.lo = 0;
- return diff;
- } else
- diff.hi = t1.hi - t2.hi;
-
- if (t1.lo < t2.lo) {
- if (diff.hi > 0)
- diff.hi -= 1; /* carry */
- else { /* something is wrong...t1 < t2! */
- diff.hi = diff.lo = 0;
- return diff;
- }
- }
- diff.lo = t1.lo - t2.lo;
-
- return diff;
-}
-
-#endif
-
-#ifdef HAVE_WIN32_TIMER
-#include <windows.h>
-
-static LARGE_INTEGER gFreq;
-static int gHaveHiResTimer = 0;
-static int gFirstTime = 1;
-
-unsigned long GetPerfTime(void)
-{
- LARGE_INTEGER lCounter;
-
- if (gFirstTime) {
- gFirstTime = 0;
-
- if (QueryPerformanceFrequency(&gFreq)) {
- gHaveHiResTimer = 1;
- }
- }
- if (gHaveHiResTimer) {
- QueryPerformanceCounter(&lCounter);
- return lCounter.u.LowPart;
- } else {
- return (unsigned long) clock();
- }
-}
-
-double GetPerfSec(double pTime)
-{
- if (gHaveHiResTimer) {
- return pTime / gFreq.u.LowPart; // assumes HighPart==0
-
- } else {
- return pTime / CLOCKS_PER_SEC;
- }
-}
-
-#endif /* HAVE_WIN32_TIMER */
-
-#if defined(FFTW_USE_GETTIMEOFDAY)
-
-/* timer support routines for systems having gettimeofday */
-
-#if defined(HAVE_BSDGETTIMEOFDAY) && ! defined(HAVE_GETTIMEOFDAY)
-#define gettimeofday BSDgettimeofday
-#endif
-
-fftw_time fftw_gettimeofday_get_time(void)
-{
- struct timeval tv;
- gettimeofday(&tv, 0);
- return tv;
-}
-
-fftw_time fftw_gettimeofday_time_diff(fftw_time t1, fftw_time t2)
-{
- fftw_time diff;
-
- diff.tv_sec = t1.tv_sec - t2.tv_sec;
- diff.tv_usec = t1.tv_usec - t2.tv_usec;
- /* normalize */
- while (diff.tv_usec < 0) {
- diff.tv_usec += 1000000L;
- diff.tv_sec -= 1;
- }
-
- return diff;
-}
-#endif
diff --git a/src/sndobj/rfftw/twiddle.c b/src/sndobj/rfftw/twiddle.c
deleted file mode 100644
index 46938f6..0000000
--- a/src/sndobj/rfftw/twiddle.c
+++ /dev/null
@@ -1,223 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * twiddle.c -- compute twiddle factors
- * These are the twiddle factors for *direct* fft. Flip sign to get
- * the inverse
- */
-
-/* $Id: twiddle.c,v 1.1.1.1 2006/05/12 15:14:43 veplaini Exp $ */
-#ifdef FFTW_USING_CILK
-#include <cilk.h>
-#include <cilk-compat.h>
-#endif
-
-#include <fftw-int.h>
-#include <math.h>
-#include <stdlib.h>
-#include <limits.h>
-
-#ifndef TRUE
-#define TRUE (1 == 1)
-#endif
-
-#ifndef FALSE
-#define FALSE (1 == 0)
-#endif
-
-#ifdef USE_FFTW_SAFE_MULMOD
-/* compute (x * y) mod p, but watch out for integer overflows; we must
- have x, y >= 0, p > 0. This routine is slow. */
-int fftw_safe_mulmod(int x, int y, int p)
-{
- if (y == 0 || x <= INT_MAX / y)
- return((x * y) % p);
- else {
- int y2 = y/2;
- return((fftw_safe_mulmod(x, y2, p) +
- fftw_safe_mulmod(x, y - y2, p)) % p);
- }
-}
-#endif /* USE_FFTW_SAFE_MULMOD */
-
-static fftw_complex *fftw_compute_rader_twiddle(int n, int r, int g)
-{
- FFTW_TRIG_REAL twoPiOverN;
- int m = n / r;
- int i, j, gpower;
- fftw_complex *W;
-
- twoPiOverN = FFTW_K2PI / (FFTW_TRIG_REAL) n;
- W = (fftw_complex *) fftw_malloc((r - 1) * m * sizeof(fftw_complex));
- for (i = 0; i < m; ++i)
- for (gpower = 1, j = 0; j < r - 1; ++j,
- gpower = MULMOD(gpower, g, r)) {
- int k = i * (r - 1) + j;
- FFTW_TRIG_REAL
- ij = (FFTW_TRIG_REAL) (i * gpower);
- c_re(W[k]) = FFTW_TRIG_COS(twoPiOverN * ij);
- c_im(W[k]) = FFTW_FORWARD * FFTW_TRIG_SIN(twoPiOverN * ij);
- }
-
- return W;
-}
-
-/*
- * compute the W coefficients (that is, powers of the root of 1)
- * and store them into an array.
- */
-static fftw_complex *fftw_compute_twiddle(int n, const fftw_codelet_desc *d)
-{
- FFTW_TRIG_REAL twoPiOverN;
- int i, j;
- fftw_complex *W;
-
- twoPiOverN = FFTW_K2PI / (FFTW_TRIG_REAL) n;
-
- if (!d) {
- /* generic codelet, needs all twiddles in order */
- W = (fftw_complex *) fftw_malloc(n * sizeof(fftw_complex));
- for (i = 0; i < n; ++i) {
- c_re(W[i]) = FFTW_TRIG_COS(twoPiOverN * (FFTW_TRIG_REAL) i);
- c_im(W[i]) = FFTW_FORWARD * FFTW_TRIG_SIN(twoPiOverN * (FFTW_TRIG_REAL) i);
- }
- } else if (d->type == FFTW_RADER)
- W = fftw_compute_rader_twiddle(n, d->size, d->signature);
- else {
- int r = d->size;
- int m = n / r, m_alloc;
- int r1 = d->ntwiddle;
- int istart;
-
- if (d->type == FFTW_TWIDDLE) {
- istart = 0;
- m_alloc = m;
- } else if (d->type == FFTW_HC2HC) {
- /*
- * This is tricky, do not change lightly.
- */
- m = (m + 1) / 2;
- m_alloc = m - 1;
- istart = 1;
- } else {
- fftw_die("compute_twiddle: invalid argument\n");
- /* paranoia for gcc */
- m_alloc = 0;
- istart = 0;
- }
-
- W = (fftw_complex *) fftw_malloc(r1 * m_alloc * sizeof(fftw_complex));
- for (i = istart; i < m; ++i)
- for (j = 0; j < r1; ++j) {
- int k = (i - istart) * r1 + j;
- FFTW_TRIG_REAL
- ij = (FFTW_TRIG_REAL) (i * d->twiddle_order[j]);
- c_re(W[k]) = FFTW_TRIG_COS(twoPiOverN * ij);
- c_im(W[k]) = FFTW_FORWARD * FFTW_TRIG_SIN(twoPiOverN * ij);
- }
- }
-
- return W;
-}
-
-/*
- * these routines implement a simple reference-count-based
- * management of twiddle structures
- */
-static fftw_twiddle *twlist = (fftw_twiddle *) 0;
-int fftw_twiddle_size = 0; /* total allocated size, for debugging */
-
-/* true if the two codelets can share the same twiddle factors */
-static int compatible(const fftw_codelet_desc *d1, const fftw_codelet_desc *d2)
-{
- int i;
-
- /* true if they are the same codelet */
- if (d1 == d2)
- return TRUE;
-
- /* false if one is null and the other is not */
- if (!d1 || !d2)
- return FALSE;
-
- /* false if size is different */
- if (d1->size != d2->size)
- return FALSE;
-
- /* false if different types (FFTW_TWIDDLE/FFTW_HC2HC/FFTW_RADER) */
- if (d1->type != d2->type)
- return FALSE;
-
- /* false if they need different # of twiddles */
- if (d1->ntwiddle != d2->ntwiddle)
- return FALSE;
-
- /* false if the twiddle orders are different */
- for (i = 0; i < d1->ntwiddle; ++i)
- if (d1->twiddle_order[i] != d2->twiddle_order[i])
- return FALSE;
-
- return TRUE;
-}
-
-fftw_twiddle *fftw_create_twiddle(int n, const fftw_codelet_desc *d)
-{
- fftw_twiddle *tw;
-
- /* lookup this n in the twiddle list */
- for (tw = twlist; tw; tw = tw->next)
- if (n == tw->n && compatible(d, tw->cdesc)) {
- ++tw->refcnt;
- return tw;
- }
- /* not found --- allocate a new struct twiddle */
- tw = (fftw_twiddle *) fftw_malloc(sizeof(fftw_twiddle));
- fftw_twiddle_size += n;
-
- tw->n = n;
- tw->cdesc = d;
- tw->twarray = fftw_compute_twiddle(n, d);
- tw->refcnt = 1;
-
- /* enqueue the new struct */
- tw->next = twlist;
- twlist = tw;
-
- return tw;
-}
-
-void fftw_destroy_twiddle(fftw_twiddle * tw)
-{
- fftw_twiddle **p;
- --tw->refcnt;
-
- if (tw->refcnt == 0) {
- /* remove from the list of known twiddle factors */
- for (p = &twlist; p; p = &((*p)->next))
- if (*p == tw) {
- *p = tw->next;
- fftw_twiddle_size -= tw->n;
- fftw_free(tw->twarray);
- fftw_free(tw);
- return;
- }
- fftw_die("BUG in fftw_destroy_twiddle\n");
- }
-}
diff --git a/src/sndobj/rfftw/wisdom.c b/src/sndobj/rfftw/wisdom.c
deleted file mode 100644
index f6f1adf..0000000
--- a/src/sndobj/rfftw/wisdom.c
+++ /dev/null
@@ -1,317 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-/*
- * wisdom.c -- manage the wisdom
- */
-
-#include <fftw-int.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <ctype.h>
-
-struct wisdom {
- int n;
- int flags;
- fftw_direction dir;
- enum fftw_wisdom_category category;
- int istride;
- int ostride;
- int vector_size;
- enum fftw_node_type type; /* this is the wisdom */
- int signature; /* this is the wisdom */
- fftw_recurse_kind recurse_kind; /* this is the wisdom */
- struct wisdom *next;
-};
-
-/* list of wisdom */
-static struct wisdom *wisdom_list = (struct wisdom *) 0;
-
-int fftw_wisdom_lookup(int n, int flags, fftw_direction dir,
- enum fftw_wisdom_category category,
- int istride, int ostride,
- enum fftw_node_type *type,
- int *signature, fftw_recurse_kind *recurse_kind,
- int replacep)
-{
- struct wisdom *p;
-
- if (!(flags & FFTW_USE_WISDOM))
- return 0; /* simply ignore if wisdom is disabled */
-
- flags |= FFTW_MEASURE; /*
- * always use (only) wisdom from
- * measurements
- */
-
- for (p = wisdom_list; p; p = p->next) {
- if (p->n == n && p->flags == flags && p->dir == dir &&
- p->istride == istride && p->ostride == ostride &&
- p->category == category) {
- /* found wisdom */
- if (replacep) {
- /* replace old wisdom with new */
- p->type = *type;
- p->signature = *signature;
- p->recurse_kind = *recurse_kind;
- } else {
- *type = p->type;
- *signature = p->signature;
- *recurse_kind = p->recurse_kind;
- }
- return 1;
- }
- }
-
- return 0;
-}
-
-void fftw_wisdom_add(int n, int flags, fftw_direction dir,
- enum fftw_wisdom_category category,
- int istride, int ostride,
- enum fftw_node_type type,
- int signature,
- fftw_recurse_kind recurse_kind)
-{
- struct wisdom *p;
-
- if ((flags & FFTW_NO_VECTOR_RECURSE) &&
- recurse_kind == FFTW_VECTOR_RECURSE)
- fftw_die("bug in planner (conflicting plan options)\n");
-
- if (!(flags & FFTW_USE_WISDOM))
- return; /* simply ignore if wisdom is disabled */
-
- if (!(flags & FFTW_MEASURE))
- return; /* only measurements produce wisdom */
-
- if (fftw_wisdom_lookup(n, flags, dir, category, istride, ostride,
- &type, &signature, &recurse_kind, 1))
- return; /* wisdom overwrote old wisdom */
-
- p = (struct wisdom *) fftw_malloc(sizeof(struct wisdom));
-
- p->n = n;
- p->flags = flags;
- p->dir = dir;
- p->category = category;
- p->istride = istride;
- p->ostride = ostride;
- p->type = type;
- p->signature = signature;
- p->recurse_kind = recurse_kind;
-
- /* remember this wisdom */
- p->next = wisdom_list;
- wisdom_list = p;
-}
-
-void fftw_forget_wisdom(void)
-{
- while (wisdom_list) {
- struct wisdom *p;
-
- p = wisdom_list;
- wisdom_list = wisdom_list->next;
- fftw_free(p);
- }
-}
-
-/*
- * user-visible routines, to convert wisdom into strings etc.
- */
-static const char *WISDOM_FORMAT_VERSION = "FFTW-";// FFTW_VERSION;
-
-static void (*emit) (char c, void *data);
-
-static void emit_string(const char *s, void *data)
-{
- while (*s)
- emit(*s++, data);
-}
-
-static void emit_int(int n, void *data)
-{
- char buf[128];
-
- sprintf(buf, "%d", n);
- emit_string(buf, data);
-}
-
-/* dump wisdom in lisp-like format */
-void fftw_export_wisdom(void (*emitter) (char c, void *), void *data)
-{
- struct wisdom *p;
-
- /* install the output handler */
- emit = emitter;
-
- emit('(', data);
- emit_string(WISDOM_FORMAT_VERSION, data);
-
- for (p = wisdom_list; p; p = p->next) {
- emit(' ', data); /* separator to make the output nicer */
- emit('(', data);
- emit_int((int) p->n, data);
- emit(' ', data);
- emit_int((int) p->flags, data);
- emit(' ', data);
- emit_int((int) p->dir, data);
- emit(' ', data);
- emit_int((int) p->category, data);
- emit(' ', data);
- emit_int((int) p->istride, data);
- emit(' ', data);
- emit_int((int) p->ostride, data);
- emit(' ', data);
- emit_int((int) p->type, data);
- emit(' ', data);
- emit_int((int) p->signature, data);
- emit(' ', data);
- emit_int((int) p->recurse_kind, data);
- emit(')', data);
- }
- emit(')', data);
-}
-
-/* input part */
-static int next_char;
-static int (*get_input) (void *data);
-static fftw_status input_error;
-
-static void read_char(void *data)
-{
- next_char = get_input(data);
- if (next_char == 0 ||
- next_char == EOF)
- input_error = FFTW_FAILURE;
-}
-
-/* skip blanks, newlines, tabs, etc */
-static void eat_blanks(void *data)
-{
- while (isspace(next_char))
- read_char(data);
-}
-
-static int read_int(void *data)
-{
- int sign = 1;
- int n = 0;
-
- eat_blanks(data);
- if (next_char == '-') {
- sign = -1;
- read_char(data);
- eat_blanks(data);
- }
- if (!isdigit(next_char)) {
- /* error, no digit */
- input_error = FFTW_FAILURE;
- return 0;
- }
- while (isdigit(next_char)) {
- n = n * 10 + (next_char - '0');
- read_char(data);
- }
-
- return sign * n;
-}
-
-#define EXPECT(c) \
-{ \
- eat_blanks(data); \
- if (input_error == FFTW_FAILURE || \
- next_char != c) \
- return FFTW_FAILURE; \
- read_char(data); \
-}
-
-#define EXPECT_INT(n) \
-{ \
- n = read_int(data); \
- if (input_error == FFTW_FAILURE) \
- return FFTW_FAILURE; \
-}
-
-#define EXPECT_STRING(s) \
-{ \
- const char *s1 = s; \
- while (*s1) { \
- EXPECT(*s1); \
- ++s1; \
- } \
-}
-
-fftw_status fftw_import_wisdom(int (*g) (void *), void *data)
-{
- int n;
- int flags;
- fftw_direction dir;
- int dir_int;
- enum fftw_wisdom_category category;
- int category_int;
- enum fftw_node_type type;
- int recurse_kind_int;
- fftw_recurse_kind recurse_kind;
- int type_int;
- int signature;
- int istride, ostride;
-
- get_input = g;
- input_error = FFTW_SUCCESS;
-
- read_char(data);
-
- eat_blanks(data);
- EXPECT('(');
- eat_blanks(data);
- EXPECT_STRING(WISDOM_FORMAT_VERSION);
- eat_blanks(data);
-
- while (next_char != ')') {
- EXPECT('(');
- EXPECT_INT(n);
- EXPECT_INT(flags);
- /* paranoid respect for enumerated types */
- EXPECT_INT(dir_int);
- dir = (fftw_direction) dir_int;
- EXPECT_INT(category_int);
- category = (enum fftw_wisdom_category) category_int;
- EXPECT_INT(istride);
- EXPECT_INT(ostride);
- EXPECT_INT(type_int);
- type = (enum fftw_node_type) type_int;
- EXPECT_INT(signature);
- EXPECT_INT(recurse_kind_int);
- recurse_kind = (fftw_recurse_kind) recurse_kind_int;
- eat_blanks(data);
- EXPECT(')');
-
- /* the wisdom has been read properly. Add it */
- fftw_wisdom_add(n, flags, dir, category,
- istride, ostride,
- type, signature, recurse_kind);
-
- /* prepare for next morsel of wisdom */
- eat_blanks(data);
- }
-
- return FFTW_SUCCESS;
-}
diff --git a/src/sndobj/rfftw/wisdomio.c b/src/sndobj/rfftw/wisdomio.c
deleted file mode 100644
index 5762166..0000000
--- a/src/sndobj/rfftw/wisdomio.c
+++ /dev/null
@@ -1,104 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-
-#include <fftw-int.h>
-
-/**************** import/export using file ***************/
-
-static void file_emitter(char c, void *data)
-{
- putc(c, (FILE *) data);
-}
-
-void fftw_export_wisdom_to_file(FILE *output_file)
-{
- if (output_file)
- fftw_export_wisdom(file_emitter, (void *) output_file);
-}
-
-static int file_get_input(void *data)
-{
- return getc((FILE *) data);
-}
-
-fftw_status fftw_import_wisdom_from_file(FILE *input_file)
-{
- if (!input_file)
- return FFTW_FAILURE;
- return fftw_import_wisdom(file_get_input, (void *) input_file);
-}
-
-/*************** import/export using string **************/
-
-static void emission_counter(char c, void *data)
-{
- int *counter = (int *) data;
-
- ++*counter;
-}
-
-static void string_emitter(char c, void *data)
-{
- char **output_string = (char **) data;
-
- *((*output_string)++) = c;
- **output_string = 0;
-}
-
-char *fftw_export_wisdom_to_string(void)
-{
- int string_length = 0;
- char *s, *s2;
-
- fftw_export_wisdom(emission_counter, (void *) &string_length);
-
- s = (char *) fftw_malloc(sizeof(char) * (string_length + 1));
- if (!s)
- return 0;
- s2 = s;
-
- fftw_export_wisdom(string_emitter, (void *) &s2);
-
- if (s + string_length != s2)
- fftw_die("Unexpected output string length!\n");
-
- return s;
-}
-
-static int string_get_input(void *data)
-{
- char **input_string = (char **) data;
-
- if (**input_string)
- return *((*input_string)++);
- else
- return 0;
-}
-
-fftw_status fftw_import_wisdom_from_string(const char *input_string)
-{
- const char *s = input_string;
-
- if (!input_string)
- return FFTW_FAILURE;
- return fftw_import_wisdom(string_get_input, (void *) &s);
-}