1 /*
2  * cabs() wrapper for hypot().
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 	double x;
12 	double y;
13 };
14 
15 double
cabs(z)16 cabs(z)
17 	struct complex z;
18 {
19 	return hypot(z.x, z.y);
20 }
21