blob: b587c2915a002c2a32222bba5cbc170c3dd526bb [file] [log] [blame]
#include "complex_impl.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 CMPLX(log(r), phi);
}