Lines Matching refs:fq
114 * fq[] final product of x*(2/pi) in fq[0],..,fq[jk]
171 double z,fw,f[20],fq[20],q[20];
278 fq[jz-i] = fw;
281 /* compress fq[] into y[] */
285 for (i=jz;i>=0;i--) fw += fq[i];
291 for (i=jz;i>=0;i--) fw += fq[i];
293 fw = fq[0]-fw;
294 for (i=1;i<=jz;i++) fw += fq[i];
299 fw = fq[i-1]+fq[i];
300 fq[i] += fq[i-1]-fw;
301 fq[i-1] = fw;
304 fw = fq[i-1]+fq[i];
305 fq[i] += fq[i-1]-fw;
306 fq[i-1] = fw;
308 for (fw=0.0,i=jz;i>=2;i--) fw += fq[i];
310 y[0] = fq[0]; y[1] = fq[1]; y[2] = fw;
312 y[0] = -fq[0]; y[1] = -fq[1]; y[2] = -fw;
