1 /* $NetBSD: cabsf.c,v 1.1 2007/08/20 16:01:30 drochner Exp $ */
2 
3 /*
4  * Written by Matthias Drochner <drochner@NetBSD.org>.
5  * Public domain.
6  *
7  * imported and modified include for newlib 2010/10/03
8  * Marco Atzeri <marco_atzeri@yahoo.it>
9  */
10 
11 #include <complex.h>
12 #include <math.h>
13 
14 float
cabsf(float complex z)15 cabsf(float complex z)
16 {
17 
18 	return hypotf( crealf(z), cimagf(z) );
19 }
20