1*2fe8fb19SBen Gras /* $NetBSD: cabsf.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 float cabsf(float complex z)13*2fe8fb19SBen Grascabsf(float complex z) 14*2fe8fb19SBen Gras { 15*2fe8fb19SBen Gras 16*2fe8fb19SBen Gras return hypotf(__real__ z, __imag__ z); 17*2fe8fb19SBen Gras } 18