120 log10l(long double x)  in log10l()  argument
126 if( isnan(x) )  in log10l()
127 	return(x + x);  in log10l()
129 if( x <= 0.0L )  in log10l()
131 	if( x == 0.0L )  in log10l()
134 		return __math_invalidl(x);  in log10l()
136 if( x == (long double) INFINITY )  in log10l()
143 x = frexpl( x, &e );  in log10l()
151 if( x < SQRTH )  in log10l()
154 	z = x - 0.5L;  in log10l()
159 	z = x - 0.5L;  in log10l()
161 	y = 0.5L * x  + 0.5L;  in log10l()
163 x = z / y;  in log10l()
164 z = x*x;  in log10l()
165 y = x * ( z * __polevll( z, R, 3 ) / __p1evll( z, S, 3 ) );  in log10l()
172 if( x < SQRTH )  in log10l()
175 	x = ldexpl( x, 1 ) - 1.0L; /*  2x - 1  */  in log10l()
179 	x = x - 1.0L;  in log10l()
181 z = x*x;  in log10l()
182 y = x * ( z * __polevll( x, P, 6 ) / __p1evll( x, Q, 7 ) );  in log10l()
196 z += x * (L10EB);  in log10l()
199 z += x * (L10EA);  in log10l()