lib/libm/clog.c


1
2
3
4
5
6
7
8
9
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;
}