lib/libm/clog10.c


1
2
3
4
5
6
7
8
9
10
11

#include <math.h>
#include "__complex.h"

double complex clog10(double complex z)
{
	double p, rr;
	rr = cabs(z);
	p = log10(rr);
	rr = atan2(cimag(z), creal(z)) * M_IVLN10;
	return p + rr * (double complex)I;
}