Lines Matching defs:w_l
631 long double u2, ss_h, ss_l, r_h, w_h, w_l, t4;
703 w_l = z * (GP[0] + z2 * t1) + w;
704 k = (int) ((w_h + w_l) * invln2_32 + half);
706 /* compute the exponential of w_h+w_l */
712 /* perform w - k*ln2_32 (represent as w_h - w_l) */
715 w = t2 - w_l;
717 w_l = w - (t1 - w_h);
719 /* compute exp(w_h-w_l) */
720 z = w_h - w_l;
723 t3 = w_h - (w_l - (z * z) * t1); /* t3 = expm1(z) */