Lines Matching defs:w1
115 double t1, t2, t3, t4, w1, w2, t;
137 /* summing r = t1 + t2 + t3 + t4 to w1 + w2 */
138 w1 = t3 + t4;
139 w2 = t4 - (w1 - t3);
140 t = t2 + w1;
141 w2 += w1 - (t - t2);
142 w1 = t + w2;
143 w2 += t - w1;
144 t = t1 + w1;
145 w2 += w1 - (t - t1);
146 w1 = t + w2;
147 *w = w2 - (w1 - t);
148 return (w1);
155 double b[4], t1, t2, t3, t4, w1, w2, u1, v1, x1, y1;
217 w1 = r + t;
218 w2 = t - (w1 - r);
219 sincospi(w1, &t1, &t2);
275 w1 = b[0] + b[1];
276 w2 = b[1] - (w1 - b[0]);
280 w1 = sum4fp(b, &w2);
282 sincos(w1, &t1, &t2);
301 w1 = b[0] + b[1];
302 w2 = b[1] - (w1 - b[0]);
306 w1 = sum4fp(b, &w2);
308 /* check over/underflow for exp(w1 + w2) */
309 if (k && fabs(w1) < 1000.0) {
310 w1 *= 1024; w2 *= 1024; k = 0;
312 hx = ((int *) &w1)[HIWORD];
313 lx = ((int *) &w1)[LOWORD];
315 /* compute exp(w1 + w2) */
320 else { /* compute exp(w1 + w2) */
321 k = (int) (invln2 * w1 + ((hx >= 0)? 0.5 : -0.5));
323 t2 = w1 - t1 * ln2hi;