2 * cabs() wrapper for hypot().
4 * Written by J.T. Conklin, <jtc@wimsey.com>
5 * Placed into the Public Domain, 1994.
7 * $NetBSD: w_cabs.c,v 1.4 2001/01/06 00:15:00 christos Exp $
8 * $DragonFly: src/lib/libm/src/w_cabs.c,v 1.1 2005/07/26 21:15:20 joerg Exp $
15 cabs(double complex z)
17 return hypot(creal(z), cimag(z));