1 /*
2  * cabsf() wrapper for hypotf().
3  *
4  * Written by J.T. Conklin, <jtc@wimsey.com>
5  * Placed into the Public Domain, 1994.
6  */
7 
8 #ifndef lint
9 static const char rcsid[] =
10   "$FreeBSD$";
11 #endif /* not lint */
12 
13 #include <complex.h>
14 #include <math.h>
15 #include "math_private.h"
16 
17 float
cabsf(z)18 cabsf(z)
19 	float complex z;
20 {
21 
22 	return hypotf(crealf(z), cimagf(z));
23 }
24