Lines Matching defs:s_h
205 double ss,s2,s_h,s_l,t_h,t_l;
219 /* compute ss = s_h+s_l = (x-1)/(x+1) or (x-1.5)/(x+1.5) */
223 s_h = ss;
224 SET_LOW_WORD(s_h,0);
229 s_l = v*((u-s_h*t_h)-s_h*t_l);
233 r += s_l*(s_h+ss);
234 s2 = s_h*s_h;
239 u = s_h*t_h;
