1177757Sdas/*
2177757Sdas * cabs() wrapper for hypot().
3177757Sdas *
4177757Sdas * Written by J.T. Conklin, <jtc@wimsey.com>
5177757Sdas * Placed into the Public Domain, 1994.
6177757Sdas *
7177757Sdas * Modified by Steven G. Kargl for the long double type.
8177757Sdas */
9177757Sdas
10177757Sdas#include <sys/cdefs.h>
11177757Sdas__FBSDID("$FreeBSD$");
12177757Sdas
13177757Sdas#include <complex.h>
14177757Sdas#include <math.h>
15177757Sdas
16177757Sdaslong double
17177757Sdascabsl(long double complex z)
18177757Sdas{
19177757Sdas	return hypotl(creall(z), cimagl(z));
20177757Sdas}
21