/* $NetBSD: cargf.c,v 1.1 2007/08/20 16:01:31 drochner Exp $ */ /* * Written by Matthias Drochner <drochner@NetBSD.org>. * Public domain. * * imported and modified include for newlib 2010/10/03 * Marco Atzeri <marco_atzeri@yahoo.it> */ #include <complex.h> #include <math.h> float cargf(float complex z) { return atan2f( cimagf(z), crealf(z) ); }