diff options
Diffstat (limited to 'lib/libm/clog10l.c')
| -rw-r--r-- | lib/libm/clog10l.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/libm/clog10l.c b/lib/libm/clog10l.c new file mode 100644 index 00000000..dde228e2 --- /dev/null +++ b/lib/libm/clog10l.c @@ -0,0 +1,11 @@ +#include "__complex.h" + +long double complex clog10l(long double complex z) +{ + long double p, rr; + rr = cabsl(z); + p = log10l(rr); + rr = atan2l(cimagl(z), creall(z)) * + 0.43429448190325182765112891891660508229439700580366656611445378316586464920887L; + return p + rr * (long double complex)I; +} |
