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 <openlibm.h> 9 #include <openlibm_complex.h> 10 11 #include "math_private.h" 12 13 DLLEXPORT float 14 cabsf(z) 15 float complex z; 16 { 17 18 return hypotf(crealf(z), cimagf(z)); 19 } 20