| /* |
| * cabs() wrapper for hypot(). |
| * |
| * Written by J.T. Conklin, <jtc@wimsey.com> |
| * Placed into the Public Domain, 1994. |
| */ |
| |
| #include <complex.h> |
| #include <math.h> |
| |
| double cabs(double _Complex z) |
| { |
| return hypot(__real__ z, __imag__ z); |
| } |
| libm_hidden_def(cabs) |
| |
| libm_hidden_proto(cabsf) |
| float cabsf(float _Complex z) |
| { |
| return (float) hypot(__real__ z, __imag__ z); |
| } |
| libm_hidden_def(cabsf) |
| |
| #if defined __UCLIBC_HAS_LONG_DOUBLE_MATH__ && !defined __NO_LONG_DOUBLE_MATH |
| libm_hidden_proto(cabsl) |
| long double cabsl(long double _Complex z) |
| { |
| return hypotl(__real__ z, __imag__ z); |
| } |
| libm_hidden_def(cabsl) |
| #endif |