1 /* $NetBSD: carg.c,v 1.1 2007/08/20 16:01:31 drochner Exp $ */ 2 3 /* 4 * Written by Matthias Drochner <drochner@NetBSD.org>. 5 * Public domain. 6 */ 7 8 #include "../src/namespace.h" 9 #include <complex.h> 10 #include <math.h> 11 12 double 13 carg(double complex z) 14 { 15 16 return atan2(__imag__ z, __real__ z); 17 } 18