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