Lines Matching defs:fw
178 double z,fw,f[20],fq[20],q[20];
195 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;
202 fw = (double)((int)(twon24* z));
203 iq[i] = (int)(z-two24B*fw);
204 z = q[j-1]+fw;
254 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j];
255 q[i] = fw;
269 fw = (double)((int)(twon24*z));
270 iq[jz] = (int)(z-two24B*fw);
272 iq[jz] = (int) fw;
277 fw = scalbnA(one,q0);
279 q[i] = fw*(double)iq[i]; fw*=twon24;
284 for(fw=0.0,k=0;k<=jp&&k<=jz-i;k++) fw += PIo2[k]*q[i+k];
285 fq[jz-i] = fw;
291 fw = 0.0;
292 for (i=jz;i>=0;i--) fw += fq[i];
293 y[0] = (ih==0)? fw: -fw;
297 fw = 0.0;
298 for (i=jz;i>=0;i--) fw += fq[i];
299 y[0] = (ih==0)? fw: -fw;
300 fw = fq[0]-fw;
301 for (i=1;i<=jz;i++) fw += fq[i];
302 y[1] = (ih==0)? fw: -fw;
306 fw = fq[i-1]+fq[i];
307 fq[i] += fq[i-1]-fw;
308 fq[i-1] = fw;
311 fw = fq[i-1]+fq[i];
312 fq[i] += fq[i-1]-fw;
313 fq[i-1] = fw;
315 for (fw=0.0,i=jz;i>=2;i--) fw += fq[i];
317 y[0] = fq[0]; y[1] = fq[1]; y[2] = fw;
319 y[0] = -fq[0]; y[1] = -fq[1]; y[2] = -fw;