w_cabs.c revision 2116
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