5 long double exp10l(long double x
)
7 static const long double p10
[] = {
8 1e-15L, 1e-14L, 1e-13L, 1e-12L, 1e-11L, 1e-10L,
9 1e-9L, 1e-8L, 1e-7L, 1e-6L, 1e-5L, 1e-4L, 1e-3L, 1e-2L, 1e-1L,
10 1, 1e1
, 1e2
, 1e3
, 1e4
, 1e5
, 1e6
, 1e7
, 1e8
, 1e9
,
11 1e10
, 1e11
, 1e12
, 1e13
, 1e14
, 1e15
13 long double n
, y
= modfl(x
, &n
);
15 if (!y
) return p10
[(int)n
+15];
16 y
= exp2l(3.32192809488736234787031942948939L * y
);
17 return y
* p10
[(int)n
+15];
22 weak_alias(exp10l
, pow10l
);