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)16cabsf(z) 17 struct complex z; 18 { 19 return hypotf(z.x, z.y); 20 } 21