Lines Matching refs:w2
115 double t1, t2, t3, t4, w1, w2, t;
137 /* summing r = t1 + t2 + t3 + t4 to w1 + w2 */
139 w2 = t4 - (w1 - t3);
141 w2 += w1 - (t - t2);
142 w1 = t + w2;
143 w2 += t - w1;
145 w2 += w1 - (t - t1);
146 w1 = t + w2;
147 *w = w2 - (w1 - t);
155 double b[4], t1, t2, t3, t4, w1, w2, u1, v1, x1, y1;
218 w2 = t - (w1 - r);
220 sincospi(w2, &t3, &t4);
276 w2 = b[1] - (w1 - b[0]);
280 w1 = sum4fp(b, &w2);
283 sincos(w2, &t3, &t4);
302 w2 = b[1] - (w1 - b[0]);
306 w1 = sum4fp(b, &w2);
308 /* check over/underflow for exp(w1 + w2) */
310 w1 *= 1024; w2 *= 1024; k = 0;
315 /* compute exp(w1 + w2) */
320 else { /* compute exp(w1 + w2) */
324 t3 = w2 - t1 * ln2lo;