Lines Matching refs:s
67 float y1,t1,t2,r,s,t,u,v,w; local
168 s = u*v;
169 s_h = s;
177 s2 = s*s;
179 r += s_l*(s_h+s);
187 v = s_l*t_h+t_l*s;
203 s = one; /* s (sign of result -ve**odd) = -1 else = 1 */
205 s = -one; /* (-ve)**(odd int) */
217 return s*huge*huge; /* overflow */
219 if(p_l+ovt>z-p_h) return s*huge*huge; /* overflow */
222 return s*tiny*tiny; /* underflow */
224 if(p_l<=z-p_h) return s*tiny*tiny; /* underflow */
254 return s*z;