b69f695a
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#include "libm.h" // FIXME /* log(z) = log(|z|) + i arg(z) */ double complex clog(double complex z) { double r, phi; r = cabs(z); phi = carg(z); return cpack(log(r), phi); }