xref: /minix3/lib/libm/complex/carg.c (revision 2fe8fb192fe7e8720e3e7a77f928da545e872a6a)
1*2fe8fb19SBen Gras /* $NetBSD: carg.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 double
carg(double complex z)13*2fe8fb19SBen Gras carg(double complex z)
14*2fe8fb19SBen Gras {
15*2fe8fb19SBen Gras 
16*2fe8fb19SBen Gras 	return atan2(__imag__ z, __real__ z);
17*2fe8fb19SBen Gras }
18