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 Sambuccargl(long double complex z) 13*0a6a1f1dSLionel Sambuc { 14*0a6a1f1dSLionel Sambuc 15*0a6a1f1dSLionel Sambuc return atan2l(__imag__ z, __real__ z); 16*0a6a1f1dSLionel Sambuc } 17