Lines Matching refs:one
24 * 2. 0 <= x <= 2**-55 : ieee_tanh(x) := x*(one+x)
41 static const double one=1.0, two=2.0, tiny = 1.0e-300;
43 static double one=1.0, two=2.0, tiny = 1.0e-300;
62 if (jx>=0) return one/x+one; /* ieee_tanh(+-inf)=+-1 */
63 else return one/x-one; /* ieee_tanh(NaN) = NaN */
69 return x*(one+x); /* ieee_tanh(small) = small */
72 z = one - two/(t+two);
79 z = one - tiny; /* raised inexact flag */
