Lines Matching refs:pr
172 double z, t, p, q[20], r[21], *pr;
279 /* set pr and nq so that pr[0,...,nq] is the part of r remaining */
280 pr = &r[j];
283 /* compute pio2 * pr[0,...,nq]; note that nq >= 4 here */
284 q[0] = pio2[0] * pr[0];
285 q[1] = pio2[0] * pr[1] + pio2[1] * pr[0];
286 q[2] = pio2[0] * pr[2] + pio2[1] * pr[1] + pio2[2] * pr[0];
287 q[3] = pio2[0] * pr[3] + pio2[1] * pr[2] + pio2[2] * pr[1]
288 + pio2[3] * pr[0];
290 q[i] = pio2[0] * pr[i] + pio2[1] * pr[i-1] + pio2[2] * pr[i-2]
291 + pio2[3] * pr[i-3] + pio2[4] * pr[i-4];