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
15double
16cabs(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