if (is_scaled)
{
- NE10_FFT_SCALING<RADIX> (out);
+ NE10_FFT_SCALING<RADIX> () (out);
}
NE10_STORE_BY_STEP<RADIX, CPLX> (Fout, out, out_step);
scratch_in[3].i = -scratch_in[3].i;
}
+ if (is_scaled)
+ {
+ scratch_in[0].r = scratch_in[0].r >> 2;
+ scratch_in[1].r = scratch_in[1].r >> 2;
+ scratch_in[2].r = scratch_in[2].r >> 2;
+ scratch_in[3].r = scratch_in[3].r >> 2;
+
+ scratch_in[0].i = scratch_in[0].i >> 2;
+ scratch_in[1].i = scratch_in[1].i >> 2;
+ scratch_in[2].i = scratch_in[2].i >> 2;
+ scratch_in[3].i = scratch_in[3].i >> 2;
+ }
+
Fout_s[0 * out_step] = scratch_in[0];
Fout_s[1 * out_step] = scratch_in[1];
Fout_s[2 * out_step] = scratch_in[2];