xref: /freebsd/lib/msun/src/w_cabsf.c (revision 7963e4115453c0aa003023386cbbc635de242150)
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 #include <complex.h>
9 #include <math.h>
10 #include "math_private.h"
11 
12 float
13 cabsf(float complex z)
14 {
15 
16 	return hypotf(crealf(z), cimagf(z));
17 }
18