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$"); 10 11 #include <complex.h> 12 #include <float.h> 13 #include <math.h> 14 15 double 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