compiler/stdc/math/w_cabsl.c

   1 /*
   2  * cabs() wrapper for hypot().
   3  *
   4  * Written by J.T. Conklin, <jtc@wimsey.com>
   5  * Placed into the Public Domain, 1994.
   6  *
   7  * Modified by Steven G. Kargl for the long double type.
   8  */
   9
  10 #ifndef lint
  11 static const char rcsid[] =
  12   "$FreeBSD: src/lib/msun/src/w_cabsl.c,v 1.1 2008/03/30 20:02:03 das Exp $";
  13 #endif /* not lint */
  14
  15 #include <complex.h>
  16 #include "math.h"
  17
  18 long double
  19 cabsl(long double complex z)
  20 {
  21         return hypotl(creall(z), cimagl(z));
  22 }