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