lib/msun/src/w_cabsf.c

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