[thirdparty/glibc.git] / sysdeps / libm-ieee754 / w_cabs.c

/*
 * cabs() wrapper for hypot().
 *
 * Written by J.T. Conklin, <jtc@wimsey.com>
 * Placed into the Public Domain, 1994.
 */

#include <math.h>

double
__cabs(z)
	struct __cabs_complex z;
{
	return __hypot(z.x, z.y);
}
weak_alias (__cabs, cabs)
#ifdef NO_LONG_DOUBLE
strong_alias (__cabs, __cabsl)
weak_alias (__cabs, cabsl)
#endif
Commit	Line	Data
f7eac6eb RM	1	/*
f7eac6eb RM	2	* cabs() wrapper for hypot().
cccda09f	3	*
f7eac6eb RM	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)
cccda09f UD	17	#ifdef NO_LONG_DOUBLE
	18	strong_alias (__cabs, __cabsl)
	19	weak_alias (__cabs, cabsl)
	20	#endif