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 * Modified by Steven G. Kargl for the long double type. 8 */ 9 10 #include "cdefs-compat.h" 11 //__FBSDID("$FreeBSD: src/lib/msun/src/w_cabsl.c,v 1.1 2008/03/30 20:02:03 das Exp $"); 12 13 #include <openlibm_complex.h> 14 #include <openlibm_math.h> 15 16 #include "math_private.h" 17 18 OLM_DLLEXPORT long double 19 cabsl(long double complex z) 20 { 21 return hypotl(creall(z), cimagl(z)); 22 } 23