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