Home | History | Annotate | Line # | Download | only in complex
cargl.c revision 1.1.2.2 
      1  1.1.2.2  martin /* $NetBSD: cargl.c,v 1.1.2.2 2014/10/13 19:34:58 martin Exp $ */
      2  1.1.2.2  martin 
      3  1.1.2.2  martin /*
      4  1.1.2.2  martin  * Public domain.
      5  1.1.2.2  martin  */
      6  1.1.2.2  martin 
      7  1.1.2.2  martin #include "../src/namespace.h"
      8  1.1.2.2  martin #include <complex.h>
      9  1.1.2.2  martin #include <math.h>
     10  1.1.2.2  martin 
     11  1.1.2.2  martin long double
     12  1.1.2.2  martin cargl(long double complex z)
     13  1.1.2.2  martin {
     14  1.1.2.2  martin 
     15  1.1.2.2  martin 	return atan2l(__imag__ z, __real__ z);
     16  1.1.2.2  martin }
     17