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 "fdlibm.h"
9 
10 struct complex {
11 	float x;
12 	float y;
13 };
14 
15 float
cabsf(z)16 cabsf(z)
17 	struct complex z;
18 {
19 	return hypotf(z.x, z.y);
20 }
21