sysdeps/libm-ieee754/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 <math.h>
   9
  10 double
  11 __cabs(z)
  12         struct __cabs_complex z;
  13 {
  14         return __hypot(z.x, z.y);
  15 }
  16 weak_alias (__cabs, cabs)
  17 #ifdef NO_LONG_DOUBLE
  18 strong_alias (__cabs, __cabsl)
  19 weak_alias (__cabs, cabsl)
  20 #endif