xref: /minix3/lib/libm/complex/cargf.c (revision 2fe8fb192fe7e8720e3e7a77f928da545e872a6a) 
1*2fe8fb19SBen Gras /* $NetBSD: cargf.c,v 1.1 2007/08/20 16:01:31 drochner Exp $ */
2*2fe8fb19SBen Gras 
3*2fe8fb19SBen Gras /*
4*2fe8fb19SBen Gras  * Written by Matthias Drochner <drochner@NetBSD.org>.
5*2fe8fb19SBen Gras  * Public domain.
6*2fe8fb19SBen Gras  */
7*2fe8fb19SBen Gras 
8*2fe8fb19SBen Gras #include "../src/namespace.h"
9*2fe8fb19SBen Gras #include <complex.h>
10*2fe8fb19SBen Gras #include <math.h>
11*2fe8fb19SBen Gras 
12*2fe8fb19SBen Gras float
cargf(float complex z)13*2fe8fb19SBen Gras cargf(float complex z)
14*2fe8fb19SBen Gras {
15*2fe8fb19SBen Gras 
16*2fe8fb19SBen Gras 	return atan2f(__imag__ z, __real__ z);
17*2fe8fb19SBen Gras }
18