1/*
2 * cabsf() wrapper for hypotf().
3 *
4 * Written by J.T. Conklin, <jtc@wimsey.com>
5 * Placed into the Public Domain, 1994.
6 */
7
8#ifndef lint
9static const char rcsid[] =
10  "$FreeBSD$";
11#endif /* not lint */
12
13#include <complex.h>
14#include <math.h>
15#include "math_private.h"
16
17float
18cabsf(z)
19	float complex z;
20{
21
22	return hypotf(crealf(z), cimagf(z));
23}
24