Lines Matching defs:s_h
239 let mut s_h: f32;
268 /* compute s = s_h+s_l = (x-1)/(x+1) or (x-1.5)/(x+1.5) */
272 s_h = s;
273 is = s_h.to_bits() as i32;
274 s_h = f32::from_bits(is as u32 & 0xfffff000);
279 s_l = v * ((u - s_h * t_h) - s_h * t_l);
283 r += s_l * (s_h + s);
284 s2 = s_h * s_h;
290 u = s_h * t_h;
809 // double ss,s2,s_h,s_l,t_h,t_l;
838 /* compute ss = s_h+s_l = (x-1)/(x+1) or (x-1.5)/(x+1.5) */
842 let s_h = with_set_low_word(ss, 0);
850 let s_l: f64 = v * ((u - s_h * t_h) - s_h * t_l);
855 r += s_l * (s_h + ss);
856 let s2: f64 = s_h * s_h;
861 let u: f64 = s_h * t_h;