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 <sys/cdefs.h>
11__FBSDID("$FreeBSD$");
12
13#include <complex.h>
14#include <math.h>
15
16long double
17cabsl(long double complex z)
18{
19	return hypotl(creall(z), cimagl(z));
20}
21