xref: /minix/lib/libm/complex/cabsl.c (revision 0a6a1f1d) 
1 /* $NetBSD: cabsl.c,v 1.1 2014/10/10 00:48:18 christos Exp $ */
2 
3 /*
4  * Public domain.
5  */
6 
7 #include "../src/namespace.h"
8 #include <complex.h>
9 #include <math.h>
10 
11 long double
cabsl(long double complex z)12 cabsl(long double complex z)
13 {
14 
15 	return hypotl(__real__ z, __imag__ z);
16 }
17