lib/libm/complex/cargl.c

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