/* * cabs() wrapper for hypot(). * * Written by J.T. Conklin, * Placed into the Public Domain, 1994. */ #include #if defined(LIBM_SCCS) && !defined(lint) __RCSID("$NetBSD: w_cabs.c,v 1.4 2001/01/06 00:15:00 christos Exp $"); #endif #define __MATH_PRIVATE__ #include struct complex { double x; double y; }; double cabs __P((struct complex)); double cabs(z) struct complex z; { return hypot(z.x, z.y); }