1 /*
2  * cabs() wrapper for hypot().
3  *
4  * Written by J.T. Conklin, <jtc@wimsey.com>
5  * Placed into the Public Domain, 1994.
6  */
7 
8 #include <sys/cdefs.h>
9 __FBSDID("$FreeBSD: stable/9/lib/msun/src/w_cabs.c 177758 2008-03-30 20:03:06Z das $");
10 
11 #include <complex.h>
12 #include <float.h>
13 #include <math.h>
14 
15 double
cabs(double complex z)16 cabs(double complex z)
17 {
18 	return hypot(creal(z), cimag(z));
19 }
20 
21 #if LDBL_MANT_DIG == 53
22 __weak_reference(cabs, cabsl);
23 #endif
24