w_cabs.c revision 176451 
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: head/lib/msun/src/w_cabs.c 176451 2008-02-22 02:30:36Z das $");
10
11#include <complex.h>
12#include <math.h>
13
14double
15cabs(z)
16	double complex z;
17{
18	return hypot(creal(z), cimag(z));
19}
20