-rw-r--r-- | src/math/significandl.c | 7 |
diff --git a/src/math/significandl.c b/src/math/significandl.c new file mode 100644 index 00000000..c1d68cd7 --- /dev/null +++ b/src/math/significandl.c @@ -0,0 +1,7 @@ +#define _GNU_SOURCE +#include <math.h> + +long double significandl(long double x) +{ + return scalbnl(x, -ilogbl(x)); +} |