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 <complex.h>
9#include <float.h>
10#include <math.h>
11
12double
13cabs(double complex z)
14{
15	return hypot(creal(z), cimag(z));
16}
17
18#if LDBL_MANT_DIG == 53
19__weak_reference(cabs, cabsl);
20#endif
21