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#ifndef lint
9static const char rcsid[] =
10  "$FreeBSD: src/lib/msun/src/w_cabs.c,v 1.4 2001/06/13 15:16:30 ru Exp $";
11#endif /* not lint */
12
13#include <complex.h>
14#include <math.h>
15
16double
17cabs(z)
18	double complex z;
19{
20	return hypot(creal(z), cimag(z));
21}
22
23double
24z_abs(z)
25	double complex *z;
26{
27	return hypot(creal(*z), cimag(*z));
28}
29