Home | History | Annotate | Download | only in src
      1 /*
      2  * cabsf() wrapper for hypotf().
      3  *
      4  * Written by J.T. Conklin, <jtc (at) wimsey.com>
      5  * Placed into the Public Domain, 1994.
      6  */
      7 
      8 #ifndef lint
      9 static const char rcsid[] =
     10   "$FreeBSD$";
     11 #endif /* not lint */
     12 
     13 #include <complex.h>
     14 #include <math.h>
     15 #include "math_private.h"
     16 
     17 float
     18 cabsf(z)
     19 	float complex z;
     20 {
     21 
     22 	return hypotf(crealf(z), cimagf(z));
     23 }
     24