Home | History | Annotate | Line # | Download | only in complex 
      1 /* $NetBSD: cabs.c,v 1.1 2007/08/20 16:01:30 drochner Exp $ */
      2 
      3 /*
      4  * Written by Matthias Drochner <drochner (at) NetBSD.org>.
      5  * Public domain.
      6  */
      7 
      8 #include "../src/namespace.h"
      9 #include <complex.h>
     10 #include <math.h>
     11 
     12 double
     13 cabs(double complex z)
     14 {
     15 
     16 	return hypot(__real__ z, __imag__ z);
     17 }
     18