lib/msun/src/w_cabsf.c

   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  * $FreeBSD: src/lib/msun/src/w_cabsf.c,v 1.2.12.1 2001/11/23 16:16:18 dd Exp $
   8  * $DragonFly: src/lib/msun/src/Attic/w_cabsf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
   9  */
  10
  11 #include <complex.h>
  12 #include <math.h>
  13 #include "math_private.h"
  14
  15 float
  16 cabsf(z)
  17         float complex z;
  18 {
  19
  20         return hypotf(crealf(z), cimagf(z));
  21 }