blob: dde228e2786b6b463a260b9bf05f18c4d70506b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
#include "__complex.h"
long double complex clog10l(long double complex z)
{
long double p, rr;
rr = cabsl(z);
p = log10l(rr);
rr = atan2l(cimagl(z), creall(z)) *
0.43429448190325182765112891891660508229439700580366656611445378316586464920887L;
return p + rr * (long double complex)I;
}
|
