Lines Matching refs:fq
130 * fq[] final product of x*(2/pi) in fq[0],..,fq[jk]
170 double z, fw, f[20], fq[20], q[20];
311 fq[jz-i] = fw;
314 /* compress fq[] into y[] */
319 fw += fq[i];
327 fw += fq[i];
329 fw = fq[0] - fw;
331 fw += fq[i];
337 fw = fq[i-1] + fq[i];
338 fq[i] += fq[i-1] - fw;
339 fq[i-1] = fw;
342 fw = fq[i-1] + fq[i];
343 fq[i] += fq[i-1] - fw;
344 fq[i-1] = fw;
347 fw += fq[i];
349 y[0] = fq[0];
350 y[1] = fq[1];
353 y[0] = -fq[0];
354 y[1] = -fq[1];