xref: /minix3/lib/libm/complex/cargl.c (revision 0a6a1f1d05b60e214de2f05a7310ddd1f0e590e7) 
1 /* $NetBSD: cargl.c,v 1.1 2014/10/10 00:48:18 christos Exp $ */
2 
3 /*
4  * Public domain.
5  */
6 
7 #include "../src/namespace.h"
8 #include <complex.h>
9 #include <math.h>
10 
11 long double
cargl(long double complex z)12 cargl(long double complex z)
13 {
14 
15 	return atan2l(__imag__ z, __real__ z);
16 }
17