Lines Matching refs:p_l
2670 double z, ax, z_h, z_l, p_h, p_l;
2833 p_l = v - (p_h - u);
2835 z_l = cp_l * p_h + p_l * cp + dp_l[k];
2846 p_l = (y - y1) * t1 + y * t2;
2848 z = p_l + p_h;
2854 if (p_l + ovt > z - p_h) return s * huge * huge; /* overflow */
2860 if (p_l <= z - p_h) return s * tiny * tiny; /* underflow */
2864 * compute 2**(p_h+p_l)
2878 t = p_l + p_h;
2881 v = (p_l - (t - p_h)) * lg2 + t * lg2_l;