Lines Matching refs:p_h
510 double z,ax,z_h,z_l,p_h,p_l;
658 p_h = u+v;
659 __LO(p_h) = 0;
660 p_l = v-(p_h-u);
661 z_h = cp_h*p_h; /* cp_h+cp_l = 2/(3*log2) */
662 z_l = cp_l*p_h+p_l*cp+dp_l[k];
674 p_h = y1*t1;
675 z = p_l+p_h;
682 if(p_l+ovt>z-p_h) return s*hugeX*hugeX; /* overflow */
688 if(p_l<=z-p_h) return s*tiny*tiny; /* underflow */
692 * compute 2**(p_h+p_l)
704 p_h -= t;
706 t = p_l+p_h;
709 v = (p_l-(t-p_h))*lg2+t*lg2_l;