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)12cargl(long double complex z) 13 { 14 15 return atan2l(__imag__ z, __real__ z); 16 } 17