Lines Matching defs:s_h
150 long double s2, s_h, s_l, t_h, t_l;311 /* compute s = s_h+s_l = (x-1)/(x+1) or (x-1.5)/(x+1.5) */315 s_h = s;317 o.value = s_h;320 s_h = o.value;328 s_l = v * ((u - s_h * t_h) - s_h * t_l);334 r += s_l * (s_h + s);335 s2 = s_h * s_h;343 u = s_h * t_h;