w_cabsf.c - vx32 - Local 9vx git repository for patches.
 (HTM) git clone git://r-36.net/vx32
 (DIR) Log
 (DIR) Files
 (DIR) Refs
       ---
       w_cabsf.c (412B)
       ---
            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 
            8 #ifndef lint
            9 static const char rcsid[] =
           10   "$FreeBSD: src/lib/msun/src/w_cabsf.c,v 1.3 2001/06/13 15:16:30 ru Exp $";
           11 #endif /* not lint */
           12 
           13 #include <complex.h>
           14 #include <math.h>
           15 #include "math_private.h"
           16 
           17 float
           18 cabsf(z)
           19         float complex z;
           20 {
           21 
           22         return hypotf(crealf(z), cimagf(z));
           23 }