20
20
/* This file was automatically generated --- DO NOT EDIT */
21
/* Generated on Sun Nov 7 20:43:55 EST 1999 */
26
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 9 */
21
/* Generated on Mon Mar 24 02:05:55 EST 2003 */
26
/* Generated by: /homee/stevenj/cvs/fftw/gensrc/genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 9 */
29
29
* This function contains 38 FP additions, 26 FP multiplications,
30
30
* (or, 29 additions, 17 multiplications, 9 fused multiply/add),
31
31
* 21 stack variables, and 18 memory accesses
33
static const fftw_real K342020143 = FFTW_KONST(+0.342020143325668733044099614682259580763083368);
34
static const fftw_real K813797681 = FFTW_KONST(+0.813797681349373692844693217248393223289101568);
35
static const fftw_real K939692620 = FFTW_KONST(+0.939692620785908384054109277324731469936208134);
36
static const fftw_real K296198132 = FFTW_KONST(+0.296198132726023843175338011893050938967728390);
37
static const fftw_real K852868531 = FFTW_KONST(+0.852868531952443209628250963940074071936020296);
38
static const fftw_real K173648177 = FFTW_KONST(+0.173648177666930348851716626769314796000375677);
39
static const fftw_real K556670399 = FFTW_KONST(+0.556670399226419366452912952047023132968291906);
40
static const fftw_real K766044443 = FFTW_KONST(+0.766044443118978035202392650555416673935832457);
41
static const fftw_real K984807753 = FFTW_KONST(+0.984807753012208059366743024589523013670643252);
42
static const fftw_real K150383733 = FFTW_KONST(+0.150383733180435296639271897612501926072238258);
43
static const fftw_real K642787609 = FFTW_KONST(+0.642787609686539326322643409907263432907559884);
44
static const fftw_real K663413948 = FFTW_KONST(+0.663413948168938396205421319635891297216863310);
45
static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
46
static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
33
static const fftw_real K342020143 =
34
FFTW_KONST(+0.342020143325668733044099614682259580763083368);
35
static const fftw_real K813797681 =
36
FFTW_KONST(+0.813797681349373692844693217248393223289101568);
37
static const fftw_real K939692620 =
38
FFTW_KONST(+0.939692620785908384054109277324731469936208134);
39
static const fftw_real K296198132 =
40
FFTW_KONST(+0.296198132726023843175338011893050938967728390);
41
static const fftw_real K852868531 =
42
FFTW_KONST(+0.852868531952443209628250963940074071936020296);
43
static const fftw_real K173648177 =
44
FFTW_KONST(+0.173648177666930348851716626769314796000375677);
45
static const fftw_real K556670399 =
46
FFTW_KONST(+0.556670399226419366452912952047023132968291906);
47
static const fftw_real K766044443 =
48
FFTW_KONST(+0.766044443118978035202392650555416673935832457);
49
static const fftw_real K984807753 =
50
FFTW_KONST(+0.984807753012208059366743024589523013670643252);
51
static const fftw_real K150383733 =
52
FFTW_KONST(+0.150383733180435296639271897612501926072238258);
53
static const fftw_real K642787609 =
54
FFTW_KONST(+0.642787609686539326322643409907263432907559884);
55
static const fftw_real K663413948 =
56
FFTW_KONST(+0.663413948168938396205421319635891297216863310);
57
static const fftw_real K866025403 =
58
FFTW_KONST(+0.866025403784438646763723170752936183471402627);
59
static const fftw_real K500000000 =
60
FFTW_KONST(+0.500000000000000000000000000000000000000000000);
50
* $Id: exprdag.ml,v 1.41 1999/05/26 15:44:14 fftw Exp $
51
* $Id: fft.ml,v 1.43 1999/05/17 19:44:18 fftw Exp $
52
* $Id: to_c.ml,v 1.25 1999/10/26 21:41:32 stevenj Exp $
64
* $Id: exprdag.ml,v 1.43 2003/03/16 23:43:46 stevenj Exp $
65
* $Id: fft.ml,v 1.44 2003/03/16 23:43:46 stevenj Exp $
66
* $Id: to_c.ml,v 1.26 2003/03/16 23:43:46 stevenj Exp $
55
void fftw_real2hc_9(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride)
69
void fftw_real2hc_9(const fftw_real *input, fftw_real *real_output,
70
fftw_real *imag_output, int istride, int real_ostride,
125
141
tmp23 = (K173648177 * tmp20) + (K852868531 * tmp19);
126
142
tmp24 = tmp22 + tmp23;
127
143
real_output[real_ostride] = tmp17 + tmp24;
128
real_output[4 * real_ostride] = tmp17 + (K866025403 * (tmp25 - tmp26)) - (K500000000 * tmp24);
129
real_output[2 * real_ostride] = tmp17 + (K173648177 * tmp18) - (K296198132 * tmp19) - (K939692620 * tmp20) - (K852868531 * tmp21);
144
real_output[4 * real_ostride] =
145
tmp17 + (K866025403 * (tmp25 - tmp26)) -
146
(K500000000 * tmp24);
147
real_output[2 * real_ostride] =
148
tmp17 + (K173648177 * tmp18) - (K296198132 * tmp19) -
149
(K939692620 * tmp20) - (K852868531 * tmp21);
130
150
imag_output[imag_ostride] = tmp29 + tmp28;
131
imag_output[4 * imag_ostride] = (K866025403 * (tmp27 + (tmp23 - tmp22))) - (K500000000 * tmp28);
132
imag_output[2 * imag_ostride] = (K813797681 * tmp19) - (K342020143 * tmp20) - (K150383733 * tmp21) - (K984807753 * tmp18) - tmp29;
151
imag_output[4 * imag_ostride] =
152
(K866025403 * (tmp27 + (tmp23 - tmp22))) -
153
(K500000000 * tmp28);
154
imag_output[2 * imag_ostride] =
155
(K813797681 * tmp19) - (K342020143 * tmp20) -
156
(K150383733 * tmp21) - (K984807753 * tmp18) - tmp29;
136
fftw_codelet_desc fftw_real2hc_9_desc =
160
fftw_codelet_desc fftw_real2hc_9_desc = {
138
161
"fftw_real2hc_9",
139
162
(void (*)()) fftw_real2hc_9,