diff options
Diffstat (limited to 'lib/libm/clog.c')
| -rw-r--r-- | lib/libm/clog.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/libm/clog.c b/lib/libm/clog.c new file mode 100644 index 00000000..a119934b --- /dev/null +++ b/lib/libm/clog.c @@ -0,0 +1,10 @@ +#include "__complex.h" + +double complex clog(double complex z) +{ + double p, rr; + rr = cabs(z); + p = log(rr); + rr = atan2(cimag(z), creal(z)); + return p + rr * (double complex)I; +} |
