xref: /freebsd/lib/msun/src/w_cabs.c (revision 3a8617a83f16ffc9db4f96e1f0f21af94078e6b1)
13a8617a8SJordan K. Hubbard /*
23a8617a8SJordan K. Hubbard  * cabs() wrapper for hypot().
33a8617a8SJordan K. Hubbard  *
43a8617a8SJordan K. Hubbard  * Written by J.T. Conklin, <jtc@wimsey.com>
53a8617a8SJordan K. Hubbard  * Placed into the Public Domain, 1994.
63a8617a8SJordan K. Hubbard  */
73a8617a8SJordan K. Hubbard 
83a8617a8SJordan K. Hubbard #include <math.h>
93a8617a8SJordan K. Hubbard 
103a8617a8SJordan K. Hubbard struct complex {
113a8617a8SJordan K. Hubbard 	double x;
123a8617a8SJordan K. Hubbard 	double y;
133a8617a8SJordan K. Hubbard };
143a8617a8SJordan K. Hubbard 
153a8617a8SJordan K. Hubbard double
163a8617a8SJordan K. Hubbard cabs(z)
173a8617a8SJordan K. Hubbard 	struct complex z;
183a8617a8SJordan K. Hubbard {
193a8617a8SJordan K. Hubbard 	return hypot(z.x, z.y);
203a8617a8SJordan K. Hubbard }
21