Lines Matching refs:s_h
621 double ss,s2,s_h,s_l,t_h,t_l;635 /* compute ss = s_h+s_l = (x-1)/(x+1) or (x-1.5)/(x+1.5) */639 s_h = ss;640 __LO(s_h) = 0;645 s_l = v*((u-s_h*t_h)-s_h*t_l);649 r += s_l*(s_h+ss);650 s2 = s_h*s_h;655 u = s_h*t_h;