Lines Matching refs:fw
171 double z,fw,f[20],fq[20],q[20];
188 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;
195 fw = (double)((int)(twon24* z));
196 iq[i] = (int)(z-two24*fw);
197 z = q[j-1]+fw;
247 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j];
248 q[i] = fw;
262 fw = (double)((int)(twon24*z));
263 iq[jz] = (int)(z-two24*fw);
265 iq[jz] = (int) fw;
270 fw = ieee_scalbn(one,q0);
272 q[i] = fw*(double)iq[i]; fw*=twon24;
277 for(fw=0.0,k=0;k<=jp&&k<=jz-i;k++) fw += PIo2[k]*q[i+k];
278 fq[jz-i] = fw;
284 fw = 0.0;
285 for (i=jz;i>=0;i--) fw += fq[i];
286 y[0] = (ih==0)? fw: -fw;
290 fw = 0.0;
291 for (i=jz;i>=0;i--) fw += fq[i];
292 y[0] = (ih==0)? fw: -fw;
293 fw = fq[0]-fw;
294 for (i=1;i<=jz;i++) fw += fq[i];
295 y[1] = (ih==0)? fw: -fw;
299 fw = fq[i-1]+fq[i];
300 fq[i] += fq[i-1]-fw;
301 fq[i-1] = fw;
304 fw = fq[i-1]+fq[i];
305 fq[i] += fq[i-1]-fw;
306 fq[i-1] = fw;
308 for (fw=0.0,i=jz;i>=2;i--) fw += fq[i];
310 y[0] = fq[0]; y[1] = fq[1]; y[2] = fw;
312 y[0] = -fq[0]; y[1] = -fq[1]; y[2] = -fw;
