lib/libm/complex/cabsf.c

   1 /* $NetBSD: cabsf.c,v 1.1 2007/08/20 16:01:30 drochner Exp $ */
   2
   3 /*
   4  * Written by Matthias Drochner <drochner@NetBSD.org>.
   5  * Public domain.
   6  */
   7
   8 #include <complex.h>
   9 #include <math.h>
  10
  11 float
  12 cabsf(float complex z)
  13 {
  14
  15         return hypotf(__real__ z, __imag__ z);
  16 }