From 39e0005e226ed6f04562e9d5d7548782fef81c20 Mon Sep 17 00:00:00 2001 From: John Glover Date: Tue, 21 Aug 2012 18:31:07 +0100 Subject: [sndobj] Update SndObj to use FFTW v3 (was using v2). Remove unused SndObj files. Whitespace clean up. --- src/sndobj/FFT.cpp | 143 +- src/sndobj/FFT.h | 19 +- src/sndobj/IFFT.cpp | 262 ---- src/sndobj/IFFT.h | 88 -- src/sndobj/IFGram.cpp | 85 +- src/sndobj/IFGram.h | 16 +- src/sndobj/PVA.cpp | 126 +- src/sndobj/PVA.h | 13 +- src/sndobj/PVS.cpp | 168 --- src/sndobj/PVS.h | 67 - src/sndobj/rfftw/cfft.c | 939 ------------- src/sndobj/rfftw/config.c | 164 --- src/sndobj/rfftw/config.h | 170 --- src/sndobj/rfftw/executor.c | 465 ------- src/sndobj/rfftw/f77_func.h | 61 - src/sndobj/rfftw/fcr_1.c | 59 - src/sndobj/rfftw/fcr_10.c | 154 --- src/sndobj/rfftw/fcr_11.c | 123 -- src/sndobj/rfftw/fcr_12.c | 168 --- src/sndobj/rfftw/fcr_128.c | 2564 ----------------------------------- src/sndobj/rfftw/fcr_13.c | 273 ---- src/sndobj/rfftw/fcr_14.c | 175 --- src/sndobj/rfftw/fcr_15.c | 226 ---- src/sndobj/rfftw/fcr_16.c | 226 ---- src/sndobj/rfftw/fcr_2.c | 62 - src/sndobj/rfftw/fcr_3.c | 71 - src/sndobj/rfftw/fcr_32.c | 490 ------- src/sndobj/rfftw/fcr_4.c | 80 -- src/sndobj/rfftw/fcr_5.c | 93 -- src/sndobj/rfftw/fcr_6.c | 95 -- src/sndobj/rfftw/fcr_64.c | 1111 --------------- src/sndobj/rfftw/fcr_7.c | 96 -- src/sndobj/rfftw/fcr_8.c | 119 -- src/sndobj/rfftw/fcr_9.c | 155 --- src/sndobj/rfftw/fftw-int.h | 500 ------- src/sndobj/rfftw/fftw.h | 425 ------ src/sndobj/rfftw/fftwnd.c | 780 ----------- src/sndobj/rfftw/fhb_10.c | 581 -------- src/sndobj/rfftw/fhb_16.c | 976 -------------- src/sndobj/rfftw/fhb_2.c | 106 -- src/sndobj/rfftw/fhb_3.c | 158 --- src/sndobj/rfftw/fhb_32.c | 2303 ------------------------------- src/sndobj/rfftw/fhb_4.c | 193 --- src/sndobj/rfftw/fhb_5.c | 276 ---- src/sndobj/rfftw/fhb_6.c | 301 ----- src/sndobj/rfftw/fhb_7.c | 320 ----- src/sndobj/rfftw/fhb_8.c | 415 ------ src/sndobj/rfftw/fhb_9.c | 564 -------- src/sndobj/rfftw/fhf_10.c | 561 -------- src/sndobj/rfftw/fhf_16.c | 975 -------------- src/sndobj/rfftw/fhf_2.c | 108 -- src/sndobj/rfftw/fhf_3.c | 150 --- src/sndobj/rfftw/fhf_32.c | 2312 ------------------------------- src/sndobj/rfftw/fhf_4.c | 185 --- src/sndobj/rfftw/fhf_5.c | 268 ---- src/sndobj/rfftw/fhf_6.c | 299 ---- src/sndobj/rfftw/fhf_7.c | 325 ----- src/sndobj/rfftw/fhf_8.c | 415 ------ src/sndobj/rfftw/fhf_9.c | 525 -------- src/sndobj/rfftw/fn_1.c | 62 - src/sndobj/rfftw/fn_10.c | 281 ---- src/sndobj/rfftw/fn_11.c | 242 ---- src/sndobj/rfftw/fn_12.c | 322 ----- src/sndobj/rfftw/fn_13.c | 526 -------- src/sndobj/rfftw/fn_14.c | 355 ----- src/sndobj/rfftw/fn_15.c | 446 ------ src/sndobj/rfftw/fn_16.c | 439 ------ src/sndobj/rfftw/fn_2.c | 68 - src/sndobj/rfftw/fn_3.c | 91 -- src/sndobj/rfftw/fn_32.c | 1042 -------------- src/sndobj/rfftw/fn_4.c | 102 -- src/sndobj/rfftw/fn_5.c | 146 -- src/sndobj/rfftw/fn_6.c | 157 --- src/sndobj/rfftw/fn_64.c | 2449 --------------------------------- src/sndobj/rfftw/fn_7.c | 170 --- src/sndobj/rfftw/fn_8.c | 201 --- src/sndobj/rfftw/fn_9.c | 275 ---- src/sndobj/rfftw/fni_1.c | 62 - src/sndobj/rfftw/fni_10.c | 281 ---- src/sndobj/rfftw/fni_11.c | 242 ---- src/sndobj/rfftw/fni_12.c | 322 ----- src/sndobj/rfftw/fni_13.c | 526 -------- src/sndobj/rfftw/fni_14.c | 355 ----- src/sndobj/rfftw/fni_15.c | 446 ------ src/sndobj/rfftw/fni_16.c | 439 ------ src/sndobj/rfftw/fni_2.c | 68 - src/sndobj/rfftw/fni_3.c | 91 -- src/sndobj/rfftw/fni_32.c | 1042 -------------- src/sndobj/rfftw/fni_4.c | 102 -- src/sndobj/rfftw/fni_5.c | 146 -- src/sndobj/rfftw/fni_6.c | 157 --- src/sndobj/rfftw/fni_64.c | 2449 --------------------------------- src/sndobj/rfftw/fni_7.c | 170 --- src/sndobj/rfftw/fni_8.c | 201 --- src/sndobj/rfftw/fni_9.c | 275 ---- src/sndobj/rfftw/frc_1.c | 59 - src/sndobj/rfftw/frc_10.c | 150 --- src/sndobj/rfftw/frc_11.c | 125 -- src/sndobj/rfftw/frc_12.c | 164 --- src/sndobj/rfftw/frc_128.c | 2574 ----------------------------------- src/sndobj/rfftw/frc_13.c | 271 ---- src/sndobj/rfftw/frc_14.c | 171 --- src/sndobj/rfftw/frc_15.c | 233 ---- src/sndobj/rfftw/frc_16.c | 218 --- src/sndobj/rfftw/frc_2.c | 62 - src/sndobj/rfftw/frc_3.c | 69 - src/sndobj/rfftw/frc_32.c | 476 ------- src/sndobj/rfftw/frc_4.c | 72 - src/sndobj/rfftw/frc_5.c | 92 -- src/sndobj/rfftw/frc_6.c | 95 -- src/sndobj/rfftw/frc_64.c | 1109 --------------- src/sndobj/rfftw/frc_7.c | 98 -- src/sndobj/rfftw/frc_8.c | 114 -- src/sndobj/rfftw/frc_9.c | 146 -- src/sndobj/rfftw/ftw_10.c | 375 ------ src/sndobj/rfftw/ftw_16.c | 611 --------- src/sndobj/rfftw/ftw_2.c | 86 -- src/sndobj/rfftw/ftw_3.c | 120 -- src/sndobj/rfftw/ftw_32.c | 1384 ------------------- src/sndobj/rfftw/ftw_4.c | 142 -- src/sndobj/rfftw/ftw_5.c | 194 --- src/sndobj/rfftw/ftw_6.c | 219 --- src/sndobj/rfftw/ftw_64.c | 3146 ------------------------------------------- src/sndobj/rfftw/ftw_7.c | 243 ---- src/sndobj/rfftw/ftw_8.c | 285 ---- src/sndobj/rfftw/ftw_9.c | 370 ----- src/sndobj/rfftw/ftwi_10.c | 375 ------ src/sndobj/rfftw/ftwi_16.c | 611 --------- src/sndobj/rfftw/ftwi_2.c | 86 -- src/sndobj/rfftw/ftwi_3.c | 120 -- src/sndobj/rfftw/ftwi_32.c | 1384 ------------------- src/sndobj/rfftw/ftwi_4.c | 142 -- src/sndobj/rfftw/ftwi_5.c | 194 --- src/sndobj/rfftw/ftwi_6.c | 219 --- src/sndobj/rfftw/ftwi_64.c | 3146 ------------------------------------------- src/sndobj/rfftw/ftwi_7.c | 243 ---- src/sndobj/rfftw/ftwi_8.c | 285 ---- src/sndobj/rfftw/ftwi_9.c | 370 ----- src/sndobj/rfftw/generic.c | 102 -- src/sndobj/rfftw/malloc.c | 245 ---- src/sndobj/rfftw/planner.c | 480 ------- src/sndobj/rfftw/putils.c | 560 -------- src/sndobj/rfftw/rader.c | 370 ----- src/sndobj/rfftw/rconfig.c | 181 --- src/sndobj/rfftw/rexec.c | 535 -------- src/sndobj/rfftw/rexec2.c | 232 ---- src/sndobj/rfftw/rfftw.h | 99 -- src/sndobj/rfftw/rfftwf77.c | 130 -- src/sndobj/rfftw/rfftwnd.c | 570 -------- src/sndobj/rfftw/rgeneric.c | 188 --- src/sndobj/rfftw/rplanner.c | 471 ------- src/sndobj/rfftw/timer.c | 164 --- src/sndobj/rfftw/twiddle.c | 223 --- src/sndobj/rfftw/wisdom.c | 317 ----- src/sndobj/rfftw/wisdomio.c | 104 -- 155 files changed, 179 insertions(+), 63335 deletions(-) delete mode 100644 src/sndobj/IFFT.cpp delete mode 100644 src/sndobj/IFFT.h delete mode 100644 src/sndobj/PVS.cpp delete mode 100644 src/sndobj/PVS.h delete mode 100644 src/sndobj/rfftw/cfft.c delete mode 100644 src/sndobj/rfftw/config.c delete mode 100644 src/sndobj/rfftw/config.h delete mode 100644 src/sndobj/rfftw/executor.c delete mode 100644 src/sndobj/rfftw/f77_func.h delete mode 100644 src/sndobj/rfftw/fcr_1.c delete mode 100644 src/sndobj/rfftw/fcr_10.c delete mode 100644 src/sndobj/rfftw/fcr_11.c delete mode 100644 src/sndobj/rfftw/fcr_12.c delete mode 100644 src/sndobj/rfftw/fcr_128.c delete mode 100644 src/sndobj/rfftw/fcr_13.c delete mode 100644 src/sndobj/rfftw/fcr_14.c delete mode 100644 src/sndobj/rfftw/fcr_15.c delete mode 100644 src/sndobj/rfftw/fcr_16.c delete mode 100644 src/sndobj/rfftw/fcr_2.c delete mode 100644 src/sndobj/rfftw/fcr_3.c delete mode 100644 src/sndobj/rfftw/fcr_32.c delete mode 100644 src/sndobj/rfftw/fcr_4.c delete mode 100644 src/sndobj/rfftw/fcr_5.c delete mode 100644 src/sndobj/rfftw/fcr_6.c delete mode 100644 src/sndobj/rfftw/fcr_64.c delete mode 100644 src/sndobj/rfftw/fcr_7.c delete mode 100644 src/sndobj/rfftw/fcr_8.c delete mode 100644 src/sndobj/rfftw/fcr_9.c delete mode 100644 src/sndobj/rfftw/fftw-int.h delete mode 100644 src/sndobj/rfftw/fftw.h delete mode 100644 src/sndobj/rfftw/fftwnd.c delete mode 100644 src/sndobj/rfftw/fhb_10.c delete mode 100644 src/sndobj/rfftw/fhb_16.c delete mode 100644 src/sndobj/rfftw/fhb_2.c delete mode 100644 src/sndobj/rfftw/fhb_3.c delete mode 100644 src/sndobj/rfftw/fhb_32.c delete mode 100644 src/sndobj/rfftw/fhb_4.c delete mode 100644 src/sndobj/rfftw/fhb_5.c delete mode 100644 src/sndobj/rfftw/fhb_6.c delete mode 100644 src/sndobj/rfftw/fhb_7.c delete mode 100644 src/sndobj/rfftw/fhb_8.c delete mode 100644 src/sndobj/rfftw/fhb_9.c delete mode 100644 src/sndobj/rfftw/fhf_10.c delete mode 100644 src/sndobj/rfftw/fhf_16.c delete mode 100644 src/sndobj/rfftw/fhf_2.c delete mode 100644 src/sndobj/rfftw/fhf_3.c delete mode 100644 src/sndobj/rfftw/fhf_32.c delete mode 100644 src/sndobj/rfftw/fhf_4.c delete mode 100644 src/sndobj/rfftw/fhf_5.c delete mode 100644 src/sndobj/rfftw/fhf_6.c delete mode 100644 src/sndobj/rfftw/fhf_7.c delete mode 100644 src/sndobj/rfftw/fhf_8.c delete mode 100644 src/sndobj/rfftw/fhf_9.c delete mode 100644 src/sndobj/rfftw/fn_1.c delete mode 100644 src/sndobj/rfftw/fn_10.c delete mode 100644 src/sndobj/rfftw/fn_11.c delete mode 100644 src/sndobj/rfftw/fn_12.c delete mode 100644 src/sndobj/rfftw/fn_13.c delete mode 100644 src/sndobj/rfftw/fn_14.c delete mode 100644 src/sndobj/rfftw/fn_15.c delete mode 100644 src/sndobj/rfftw/fn_16.c delete mode 100644 src/sndobj/rfftw/fn_2.c delete mode 100644 src/sndobj/rfftw/fn_3.c delete mode 100644 src/sndobj/rfftw/fn_32.c delete mode 100644 src/sndobj/rfftw/fn_4.c delete mode 100644 src/sndobj/rfftw/fn_5.c delete mode 100644 src/sndobj/rfftw/fn_6.c delete mode 100644 src/sndobj/rfftw/fn_64.c delete mode 100644 src/sndobj/rfftw/fn_7.c delete mode 100644 src/sndobj/rfftw/fn_8.c delete mode 100644 src/sndobj/rfftw/fn_9.c delete mode 100644 src/sndobj/rfftw/fni_1.c delete mode 100644 src/sndobj/rfftw/fni_10.c delete mode 100644 src/sndobj/rfftw/fni_11.c delete mode 100644 src/sndobj/rfftw/fni_12.c delete mode 100644 src/sndobj/rfftw/fni_13.c delete mode 100644 src/sndobj/rfftw/fni_14.c delete mode 100644 src/sndobj/rfftw/fni_15.c delete mode 100644 src/sndobj/rfftw/fni_16.c delete mode 100644 src/sndobj/rfftw/fni_2.c delete mode 100644 src/sndobj/rfftw/fni_3.c delete mode 100644 src/sndobj/rfftw/fni_32.c delete mode 100644 src/sndobj/rfftw/fni_4.c delete mode 100644 src/sndobj/rfftw/fni_5.c delete mode 100644 src/sndobj/rfftw/fni_6.c delete mode 100644 src/sndobj/rfftw/fni_64.c delete mode 100644 src/sndobj/rfftw/fni_7.c delete mode 100644 src/sndobj/rfftw/fni_8.c delete mode 100644 src/sndobj/rfftw/fni_9.c delete mode 100644 src/sndobj/rfftw/frc_1.c delete mode 100644 src/sndobj/rfftw/frc_10.c delete mode 100644 src/sndobj/rfftw/frc_11.c delete mode 100644 src/sndobj/rfftw/frc_12.c delete mode 100644 src/sndobj/rfftw/frc_128.c delete mode 100644 src/sndobj/rfftw/frc_13.c delete mode 100644 src/sndobj/rfftw/frc_14.c delete mode 100644 src/sndobj/rfftw/frc_15.c delete mode 100644 src/sndobj/rfftw/frc_16.c delete mode 100644 src/sndobj/rfftw/frc_2.c delete mode 100644 src/sndobj/rfftw/frc_3.c delete mode 100644 src/sndobj/rfftw/frc_32.c delete mode 100644 src/sndobj/rfftw/frc_4.c delete mode 100644 src/sndobj/rfftw/frc_5.c delete mode 100644 src/sndobj/rfftw/frc_6.c delete mode 100644 src/sndobj/rfftw/frc_64.c delete mode 100644 src/sndobj/rfftw/frc_7.c delete mode 100644 src/sndobj/rfftw/frc_8.c delete mode 100644 src/sndobj/rfftw/frc_9.c delete mode 100644 src/sndobj/rfftw/ftw_10.c delete mode 100644 src/sndobj/rfftw/ftw_16.c delete mode 100644 src/sndobj/rfftw/ftw_2.c delete mode 100644 src/sndobj/rfftw/ftw_3.c delete mode 100644 src/sndobj/rfftw/ftw_32.c delete mode 100644 src/sndobj/rfftw/ftw_4.c delete mode 100644 src/sndobj/rfftw/ftw_5.c delete mode 100644 src/sndobj/rfftw/ftw_6.c delete mode 100644 src/sndobj/rfftw/ftw_64.c delete mode 100644 src/sndobj/rfftw/ftw_7.c delete mode 100644 src/sndobj/rfftw/ftw_8.c delete mode 100644 src/sndobj/rfftw/ftw_9.c delete mode 100644 src/sndobj/rfftw/ftwi_10.c delete mode 100644 src/sndobj/rfftw/ftwi_16.c delete mode 100644 src/sndobj/rfftw/ftwi_2.c delete mode 100644 src/sndobj/rfftw/ftwi_3.c delete mode 100644 src/sndobj/rfftw/ftwi_32.c delete mode 100644 src/sndobj/rfftw/ftwi_4.c delete mode 100644 src/sndobj/rfftw/ftwi_5.c delete mode 100644 src/sndobj/rfftw/ftwi_6.c delete mode 100644 src/sndobj/rfftw/ftwi_64.c delete mode 100644 src/sndobj/rfftw/ftwi_7.c delete mode 100644 src/sndobj/rfftw/ftwi_8.c delete mode 100644 src/sndobj/rfftw/ftwi_9.c delete mode 100644 src/sndobj/rfftw/generic.c delete mode 100644 src/sndobj/rfftw/malloc.c delete mode 100644 src/sndobj/rfftw/planner.c delete mode 100644 src/sndobj/rfftw/putils.c delete mode 100644 src/sndobj/rfftw/rader.c delete mode 100644 src/sndobj/rfftw/rconfig.c delete mode 100644 src/sndobj/rfftw/rexec.c delete mode 100644 src/sndobj/rfftw/rexec2.c delete mode 100644 src/sndobj/rfftw/rfftw.h delete mode 100644 src/sndobj/rfftw/rfftwf77.c delete mode 100644 src/sndobj/rfftw/rfftwnd.c delete mode 100644 src/sndobj/rfftw/rgeneric.c delete mode 100644 src/sndobj/rfftw/rplanner.c delete mode 100644 src/sndobj/rfftw/timer.c delete mode 100644 src/sndobj/rfftw/twiddle.c delete mode 100644 src/sndobj/rfftw/wisdom.c delete mode 100644 src/sndobj/rfftw/wisdomio.c (limited to 'src') 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 +#include 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; iOutput(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 -#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; iLookup(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; iLookup(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; iLookup(i); } double tmp1, tmp2; - for(i=0; i 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 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;iOutput(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 -#include -#include - -/* 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< 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 - -/* 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 header file. */ -/* #undef HAVE_SYS_TIME_H */ - -/* Define if you have the header file. */ -/* #undef HAVE_UNISTD_H */ - -/* Define if you have the header file. */ -/* #undef HAVE_GETOPT_H */ - -/* Define if you have the 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 -#include -#include - -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 - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -#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 -#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 -#endif -#ifdef HAVE_UNISTD_H -#include -#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 - -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 - -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 - -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 -#include - -#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 - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -/* 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 -#include - -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 -#include -#endif - -#include -#include -#include - -#ifdef HAVE_MALLOC_H -#include -#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 -#include -#endif - -#include -#include -#include - -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 -#include -#endif - -#include -#include -#include - -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 -#include - -#include - -#ifdef FFTW_USING_CILK -#include -#include -#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 -#include - -#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 -#include - -#include -#include - -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 -#include - -/* 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 - -#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 -#include - -#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 -#include - -/********************** 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 -#include - -/* 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 -#include -#endif - -#include -#include - -#include -#include - -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 -#include -#include -#include - -/********************* 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 - -#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(µsec); /* 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 - -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 -#include -#endif - -#include -#include -#include -#include - -#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 -#include -#include -#include - -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 -#include - -#include - -/**************** 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); -} -- cgit v1.2.3