144{
146 int u;
151 ya = twiddles[fstride*m];
152 yb = twiddles[fstride*2*m];
153
154 Fout0=Fout;
155 Fout1=Fout0+m;
156 Fout2=Fout0+2*m;
157 Fout3=Fout0+3*m;
158 Fout4=Fout0+4*m;
159
161 for ( u=0; u<m; ++u ) {
163 scratch[0] = *Fout0;
164
165 C_MUL(scratch[1] ,*Fout1, tw[u*fstride]);
166 C_MUL(scratch[2] ,*Fout2, tw[2*u*fstride]);
167 C_MUL(scratch[3] ,*Fout3, tw[3*u*fstride]);
168 C_MUL(scratch[4] ,*Fout4, tw[4*u*fstride]);
169
170 C_ADD( scratch[7],scratch[1],scratch[4]);
171 C_SUB( scratch[10],scratch[1],scratch[4]);
172 C_ADD( scratch[8],scratch[2],scratch[3]);
173 C_SUB( scratch[9],scratch[2],scratch[3]);
174
175 Fout0->
r += scratch[7].
r + scratch[8].
r;
176 Fout0->
i += scratch[7].
i + scratch[8].
i;
177
178 scratch[5].
r = scratch[0].
r +
S_MUL(scratch[7].r,ya.
r) +
S_MUL(scratch[8].r,yb.
r);
179 scratch[5].
i = scratch[0].
i +
S_MUL(scratch[7].i,ya.
r) +
S_MUL(scratch[8].i,yb.
r);
180
181 scratch[6].
r =
S_MUL(scratch[10].i,ya.
i) +
S_MUL(scratch[9].i,yb.
i);
182 scratch[6].
i = -
S_MUL(scratch[10].r,ya.
i) -
S_MUL(scratch[9].r,yb.
i);
183
184 C_SUB(*Fout1,scratch[5],scratch[6]);
185 C_ADD(*Fout4,scratch[5],scratch[6]);
186
187 scratch[11].
r = scratch[0].
r +
S_MUL(scratch[7].r,yb.
r) +
S_MUL(scratch[8].r,ya.
r);
188 scratch[11].
i = scratch[0].
i +
S_MUL(scratch[7].i,yb.
r) +
S_MUL(scratch[8].i,ya.
r);
189 scratch[12].
r = -
S_MUL(scratch[10].i,yb.
i) +
S_MUL(scratch[9].i,ya.
i);
190 scratch[12].
i =
S_MUL(scratch[10].r,yb.
i) -
S_MUL(scratch[9].r,ya.
i);
191
192 C_ADD(*Fout2,scratch[11],scratch[12]);
193 C_SUB(*Fout3,scratch[11],scratch[12]);
194
195 ++Fout0;++Fout1;++Fout2;++Fout3;++Fout4;
196 }
197}