Lines Matching defs:w1
70 long double t1, t2, t3, t4, w1, w2, t;
92 /* summing r = t1 + t2 + t3 + t4 to w1 + w2 */
93 w1 = t3 + t4;
94 w2 = t4 - (w1 - t3);
95 t = t2 + w1;
96 w2 += w1 - (t - t2);
97 w1 = t + w2;
98 w2 += t - w1;
99 t = t1 + w1;
100 w2 += w1 - (t - t1);
101 w1 = t + w2;
102 *w = w2 - (w1 - t);
103 return (w1);
110 long double t1, t2, t3, t4, x1, x2, y1, y2, u1, v1, b[4], w1, w2;
167 w1 = r + t;
168 w2 = t - (w1 - r);
169 sincospil(w1, &t1, &t2);
222 w1 = b[0] + b[1];
223 w2 = b[1] - (w1 - b[0]);
227 w1 = sum4fpl(b, &w2);
229 sincosl(w1, &t1, &t2);
244 w1 = b[0] + b[1];
245 w2 = b[1] - (w1 - b[0]);
249 w1 = sum4fpl(b, &w2);
251 /* scale back unless w1 is large enough to cause exception */
252 if (k != 0 && fabsl(w1) < 20000.0L) {
253 w1 *= 65536.0L; w2 *= 65536.0L;
255 hx = HI_XWORD(w1);
257 /* compute exp(w1 + w2) */
263 else { /* compute exp(w1 + w2) */
264 k = (int) (invln2 * w1 + ((hx >= 0)? 0.5L : -0.5L));
266 t2 = w1 - t1 * ln2hil;