2 * cabs() wrapper for hypot().
4 * Written by J.T. Conklin, <jtc@wimsey.com>
5 * Placed into the Public Domain, 1994.
7 * Modified by Steven G. Kargl for the long double type.
10 #include <sys/cdefs.h>
11 __FBSDID("$FreeBSD$");
17 cabsl(long double complex z)
19 return hypotl(creall(z), cimagl(z));