w_cabs.c revision 8870 
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 <math.h>
9
10struct complex {
11	double x;
12	double y;
13};
14
15double
16cabs(z)
17	struct complex z;
18{
19	return hypot(z.x, z.y);
20}
21
22double
23z_abs(z)
24	struct complex *z;
25{
26	return hypot(z->x, z->y);
27}
28