1/* Return the complex absolute value of double complex value.
2   Copyright (C) 1997-2015 Free Software Foundation, Inc.
3   This file is part of the GNU C Library.
4   Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
5
6   The GNU C Library is free software; you can redistribute it and/or
7   modify it under the terms of the GNU Lesser General Public
8   License as published by the Free Software Foundation; either
9   version 2.1 of the License, or (at your option) any later version.
10
11   The GNU C Library is distributed in the hope that it will be useful,
12   but WITHOUT ANY WARRANTY; without even the implied warranty of
13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14   Lesser General Public License for more details.
15
16   You should have received a copy of the GNU Lesser General Public
17   License along with the GNU C Library; if not, see
18   <http://www.gnu.org/licenses/>.  */
19
20#include <complex.h>
21#include <math.h>
22
23double
24__cabs (double _Complex z)
25{
26  return hypot (__real__ z, __imag__ z);
27}
28weak_alias (__cabs, cabs)
29#ifdef NO_LONG_DOUBLE
30strong_alias (__cabs, __cabsl)
31weak_alias (__cabs, cabsl)
32#endif
33