Lines Matching defs:fw
183 double z,fw,f[20],fq[20],q[20];
200 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;
207 fw = (double)((int)(twon24* z));
208 iq[i] = (int)(z-two24*fw);
209 z = q[j-1]+fw;
259 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j];
260 q[i] = fw;
274 fw = (double)((int)(twon24*z));
275 iq[jz] = (int)(z-two24*fw);
277 iq[jz] = (int) fw;
282 fw = scalbn(one,q0);
284 q[i] = fw*(double)iq[i]; fw*=twon24;
289 for(fw=0.0,k=0;k<=jp&&k<=jz-i;k++) fw += PIo2[k]*q[i+k];
290 fq[jz-i] = fw;
296 fw = 0.0;
297 for (i=jz;i>=0;i--) fw += fq[i];
298 y[0] = (ih==0)? fw: -fw;
302 fw = 0.0;
303 for (i=jz;i>=0;i--) fw += fq[i];
304 y[0] = (ih==0)? fw: -fw;
305 fw = fq[0]-fw;
306 for (i=1;i<=jz;i++) fw += fq[i];
307 y[1] = (ih==0)? fw: -fw;
311 fw = fq[i-1]+fq[i];
312 fq[i] += fq[i-1]-fw;
313 fq[i-1] = fw;
316 fw = fq[i-1]+fq[i];
317 fq[i] += fq[i-1]-fw;
318 fq[i-1] = fw;
320 for (fw=0.0,i=jz;i>=2;i--) fw += fq[i];
322 y[0] = fq[0]; y[1] = fq[1]; y[2] = fw;
324 y[0] = -fq[0]; y[1] = -fq[1]; y[2] = -fw;