w_cabs.c revision 174732 
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: head/lib/msun/src/w_cabs.c 174732 2007-12-18 01:15:20Z das $";
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