Lines Matching defs:fw
262 double z,fw,f[20],fq[20],q[20];
279 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;
286 fw = (double)((int)(twon24* z));
287 iq[i] = (int)(z-two24B*fw);
288 z = q[j-1]+fw;
338 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j];
339 q[i] = fw;
353 fw = (double)((int)(twon24*z));
354 iq[jz] = (int)(z-two24B*fw);
356 iq[jz] = (int) fw;
361 fw = scalbnA(one,q0);
363 q[i] = fw*(double)iq[i]; fw*=twon24;
368 for(fw=0.0,k=0;k<=jp&&k<=jz-i;k++) fw += PIo2[k]*q[i+k];
369 fq[jz-i] = fw;
375 fw = 0.0;
376 for (i=jz;i>=0;i--) fw += fq[i];
377 y[0] = (ih==0)? fw: -fw;
381 fw = 0.0;
382 for (i=jz;i>=0;i--) fw += fq[i];
383 y[0] = (ih==0)? fw: -fw;
384 fw = fq[0]-fw;
385 for (i=1;i<=jz;i++) fw += fq[i];
386 y[1] = (ih==0)? fw: -fw;
390 fw = fq[i-1]+fq[i];
391 fq[i] += fq[i-1]-fw;
392 fq[i-1] = fw;
395 fw = fq[i-1]+fq[i];
396 fq[i] += fq[i-1]-fw;
397 fq[i-1] = fw;
399 for (fw=0.0,i=jz;i>=2;i--) fw += fq[i];
401 y[0] = fq[0]; y[1] = fq[1]; y[2] = fw;
403 y[0] = -fq[0]; y[1] = -fq[1]; y[2] = -fw;