carg.c raw

   1  #include "complex_impl.h"
   2  
   3  double carg(double complex z)
   4  {
   5  	return atan2(cimag(z), creal(z));
   6  }
   7