w_cabs.c revision 176451 
12116Sjkh/*
22116Sjkh * cabs() wrapper for hypot().
38870Srgrimes *
42116Sjkh * Written by J.T. Conklin, <jtc@wimsey.com>
52116Sjkh * Placed into the Public Domain, 1994.
62116Sjkh */
72116Sjkh
8176451Sdas#include <sys/cdefs.h>
9176451Sdas__FBSDID("$FreeBSD: head/lib/msun/src/w_cabs.c 176451 2008-02-22 02:30:36Z das $");
1078172Sru
1178172Sru#include <complex.h>
122116Sjkh#include <math.h>
132116Sjkh
142116Sjkhdouble
152116Sjkhcabs(z)
1678172Sru	double complex z;
172116Sjkh{
1878172Sru	return hypot(creal(z), cimag(z));
192116Sjkh}
20