Lines Matching refs:fw
297 double z,fw,f[20],fq[20],q[20];
314 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;
321 fw = (double)((int32_t)(twon24* z));
322 iq[i] = (int32_t)(z-two24*fw);
323 z = q[j-1]+fw;
373 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j];
374 q[i] = fw;
388 fw = (double)((int32_t)(twon24*z));
389 iq[jz] = (int32_t)(z-two24*fw);
391 iq[jz] = (int32_t) fw;
396 fw = scalbn(one,q0);
398 q[i] = fw*(double)iq[i]; fw*=twon24;
403 for(fw=0.0,k=0;k<=jp&&k<=jz-i;k++) fw += PIo2[k]*q[i+k];
404 fq[jz-i] = fw;
410 fw = 0.0;
411 for (i=jz;i>=0;i--) fw += fq[i];
412 y[0] = (ih==0)? fw: -fw;
416 fw = 0.0;
417 for (i=jz;i>=0;i--) fw += fq[i];
418 STRICT_ASSIGN(double,fw,fw);
419 y[0] = (ih==0)? fw: -fw;
420 fw = fq[0]-fw;
421 for (i=1;i<=jz;i++) fw += fq[i];
422 y[1] = (ih==0)? fw: -fw;
426 fw = fq[i-1]+fq[i];
427 fq[i] += fq[i-1]-fw;
428 fq[i-1] = fw;
431 fw = fq[i-1]+fq[i];
432 fq[i] += fq[i-1]-fw;
433 fq[i-1] = fw;
435 for (fw=0.0,i=jz;i>=2;i--) fw += fq[i];
437 y[0] = fq[0]; y[1] = fq[1]; y[2] = fw;
439 y[0] = -fq[0]; y[1] = -fq[1]; y[2] = -fw;
