newlib/libm/complex/cargf.c

   1 /* $NetBSD: cargf.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  * imported and modified include for newlib 2010/10/03
   8  * Marco Atzeri <marco_atzeri@yahoo.it>
   9  */
  10
  11 #include <complex.h>
  12 #include <math.h>
  13
  14 float
  15 cargf(float complex z)
  16 {
  17
  18         return atan2f( cimagf(z), crealf(z) );
  19 }