Lines Matching refs:w_l
1216 double u2, ss_h, ss_l, r_h, w_h, w_l, t4;
1289 w_l = z * (GP0 + t1) + w;
1290 k = (int) ((w_h + w_l) * invln2_32 + half);
1292 /* compute the exponential of w_h+w_l */
1297 /* perform w - k*ln2_32 (represent as w_h - w_l) */
1300 w = w_l - t2;
1301 w_h = t1 + w_l;
1302 w_l = t2 - (w_l - (w_h - t1));
1304 /* compute exp(w_h+w_l) */
1305 z = w_h - w_l;
1309 t3 = w_h - (w_l - (t1 + z * t2));