xref: /minix3/lib/libm/complex/cabs.c (revision 2fe8fb192fe7e8720e3e7a77f928da545e872a6a)
1*2fe8fb19SBen Gras /* $NetBSD: cabs.c,v 1.1 2007/08/20 16:01:30 drochner Exp $ */
2*2fe8fb19SBen Gras 
3*2fe8fb19SBen Gras /*
4*2fe8fb19SBen Gras  * Written by Matthias Drochner <drochner@NetBSD.org>.
5*2fe8fb19SBen Gras  * Public domain.
6*2fe8fb19SBen Gras  */
7*2fe8fb19SBen Gras 
8*2fe8fb19SBen Gras #include "../src/namespace.h"
9*2fe8fb19SBen Gras #include <complex.h>
10*2fe8fb19SBen Gras #include <math.h>
11*2fe8fb19SBen Gras 
12*2fe8fb19SBen Gras double
cabs(double complex z)13*2fe8fb19SBen Gras cabs(double complex z)
14*2fe8fb19SBen Gras {
15*2fe8fb19SBen Gras 
16*2fe8fb19SBen Gras 	return hypot(__real__ z, __imag__ z);
17*2fe8fb19SBen Gras }
18