w_cabs.c revision 78172
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#ifndef lint 9static const char rcsid[] = 10 "$FreeBSD: head/lib/msun/src/w_cabs.c 78172 2001-06-13 15:16:30Z ru $"; 11#endif /* not lint */ 12 13#include <complex.h> 14#include <math.h> 15 16double 17cabs(z) 18 double complex z; 19{ 20 return hypot(creal(z), cimag(z)); 21} 22 23double 24z_abs(z) 25 double complex *z; 26{ 27 return hypot(creal(*z), cimag(*z)); 28} 29