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