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