lib/libm/complex/cabsl.c

   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
  12 cabsl(long double complex z)
  13 {
  14
  15         return hypotl(__real__ z, __imag__ z);
  16 }