lib/libm/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  * $FreeBSD: head/lib/msun/src/w_cabsf.c 78172 2001-06-13 15:16:30Z ru $
   8  */
   9
  10 #include <complex.h>
  11 #include <math.h>
  12 #include "math_private.h"
  13
  14 float
  15 cabsf(z)
  16         float complex z;
  17 {
  18
  19         return hypotf(crealf(z), cimagf(z));
  20 }