Lines Matching refs:w2
70 long double t1, t2, t3, t4, w1, w2, t;
92 /* summing r = t1 + t2 + t3 + t4 to w1 + w2 */
94 w2 = t4 - (w1 - t3);
96 w2 += w1 - (t - t2);
97 w1 = t + w2;
98 w2 += t - w1;
100 w2 += w1 - (t - t1);
101 w1 = t + w2;
102 *w = w2 - (w1 - t);
110 long double t1, t2, t3, t4, x1, x2, y1, y2, u1, v1, b[4], w1, w2;
168 w2 = t - (w1 - r);
170 sincospil(w2, &t3, &t4);
223 w2 = b[1] - (w1 - b[0]);
227 w1 = sum4fpl(b, &w2);
230 sincosl(w2, &t3, &t4);
245 w2 = b[1] - (w1 - b[0]);
249 w1 = sum4fpl(b, &w2);
253 w1 *= 65536.0L; w2 *= 65536.0L;
257 /* compute exp(w1 + w2) */
263 else { /* compute exp(w1 + w2) */
267 t3 = w2 - t1 * ln2lol;