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: releng/11.0/lib/msun/src/w_cabs.c 177758 2008-03-30 20:03:06Z das $");
1078172Sru
1178172Sru#include <complex.h>
12177758Sdas#include <float.h>
132116Sjkh#include <math.h>
142116Sjkh
152116Sjkhdouble
16177758Sdascabs(double complex z)
172116Sjkh{
1878172Sru	return hypot(creal(z), cimag(z));
192116Sjkh}
20177758Sdas
21177758Sdas#if LDBL_MANT_DIG == 53
22177758Sdas__weak_reference(cabs, cabsl);
23177758Sdas#endif
24