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