Lines Matching defs:fw
160 double z,fw,f[20],fq[20],q[20];
177 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;
184 fw = (double)((int32_t)(twon24* z));
185 iq[i] = (int32_t)(z-two24*fw);
186 z = q[j-1]+fw;
236 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j];
237 q[i] = fw;
251 fw = (double)((int32_t)(twon24*z));
252 iq[jz] = (int32_t)(z-two24*fw);
254 iq[jz] = (int32_t) fw;
259 fw = scalbn(one,q0);
261 q[i] = fw*(double)iq[i]; fw*=twon24;
266 for(fw=0.0,k=0;k<=jp&&k<=jz-i;k++) fw += PIo2[k]*q[i+k];
267 fq[jz-i] = fw;
273 fw = 0.0;
274 for (i=jz;i>=0;i--) fw += fq[i];
275 y[0] = (ih==0)? fw: -fw;
279 fw = 0.0;
280 for (i=jz;i>=0;i--) fw += fq[i];
281 y[0] = (ih==0)? fw: -fw;
282 fw = fq[0]-fw;
283 for (i=1;i<=jz;i++) fw += fq[i];
284 y[1] = (ih==0)? fw: -fw;
288 fw = fq[i-1]+fq[i];
289 fq[i] += fq[i-1]-fw;
290 fq[i-1] = fw;
293 fw = fq[i-1]+fq[i];
294 fq[i] += fq[i-1]-fw;
295 fq[i-1] = fw;
297 for (fw=0.0,i=jz;i>=2;i--) fw += fq[i];
299 y[0] = fq[0]; y[1] = fq[1]; y[2] = fw;
301 y[0] = -fq[0]; y[1] = -fq[1]; y[2] = -fw;
