w_cabs.c - vx32 - Local 9vx git repository for patches.
 (HTM) git clone git://r-36.net/vx32
 (DIR) Log
 (DIR) Files
 (DIR) Refs
       ---
       w_cabs.c (458B)
       ---
            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 
            8 #ifndef lint
            9 static const char rcsid[] =
           10   "$FreeBSD: src/lib/msun/src/w_cabs.c,v 1.4 2001/06/13 15:16:30 ru Exp $";
           11 #endif /* not lint */
           12 
           13 #include <complex.h>
           14 #include <math.h>
           15 
           16 double
           17 cabs(z)
           18         double complex z;
           19 {
           20         return hypot(creal(z), cimag(z));
           21 }
           22 
           23 double
           24 z_abs(z)
           25         double complex *z;
           26 {
           27         return hypot(creal(*z), cimag(*z));
           28 }