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