libm/w_cabs.c

   1 /*
   2  * cabs() wrapper for hypot().
   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
  11
  12 double cabs(double _Complex z)
  13 {
  14         return hypot(__real__ z, __imag__ z);
  15 }
  16 libm_hidden_def(cabs)