newlib/libm/complex/clog10f.c

   1 #include <complex.h>
   2 #include <math.h>
   3
   4 float complex
   5 clog10f(float complex z)
   6 {
   7         float complex w;
   8         float p, rr;
   9
  10         rr = cabsf(z);
  11         p = log10f(rr);
  12         rr = atan2f(cimagf(z), crealf(z)) * (float) M_IVLN10;
  13         w = p + rr * I;
  14         return w;
  15 }