lib/libm/complex/carg.c

   1 /* $NetBSD: carg.c,v 1.1 2007/08/20 16:01:31 drochner Exp $ */
   2
   3 /*
   4  * Written by Matthias Drochner <drochner@NetBSD.org>.
   5  * Public domain.
   6  */
   7
   8
   9 #include <complex.h>
  10 #include <math.h>
  11
  12 double
  13 carg(double complex z)
  14 {
  15
  16         return atan2(cimag(z), creal(z));
  17 }