Lines Matching refs:s_l
240 let s_l: f32;
268 /* compute s = s_h+s_l = (x-1)/(x+1) or (x-1.5)/(x+1.5) */
279 s_l = v * ((u - s_h * t_h) - s_h * t_l);
283 r += s_l * (s_h + s);
291 v = s_l * t_h + t_l * s;
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) */
850 let s_l: f64 = v * ((u - s_h * t_h) - s_h * t_l);
855 r += s_l * (s_h + ss);
862 let v: f64 = s_l * t_h + t_l * ss;