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 #ifndef lint 9 static const char rcsid[] = 10 "$FreeBSD: src/lib/msun/src/w_cabsf.c,v 1.3 2001/06/13 15:16:30 ru Exp $"; 11 #endif /* not lint */ 12 13 #include <complex.h> 14 #include <math.h> 15 #include "math_private.h" 16 17 float cabsf(z)18 cabsf(z) 19 float complex z; 20 { 21 22 return hypotf(crealf(z), cimagf(z)); 23 } 24