xref: /netbsd/lib/libm/complex/cargf.c (revision 9d8b5fa7) 
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 
8 #include "../src/namespace.h"
9 #include <complex.h>
10 #include <math.h>
11 
12 float
cargf(float complex z)13 cargf(float complex z)
14 {
15 
16 	return atan2f(__imag__ z, __real__ z);
17 }
18