| /* | |
| * cabsf() wrapper for hypotf(). | |
| * | |
| * Written by J.T. Conklin, <jtc@wimsey.com> | |
| * Placed into the Public Domain, 1994. | |
| */ | |
| #ifndef lint | |
| static const char rcsid[] = | |
| "$FreeBSD$"; | |
| #endif /* not lint */ | |
| #include <complex.h> | |
| #include <math.h> | |
| #include "math_private.h" | |
| float | |
| cabsf(z) | |
| float complex z; | |
| { | |
| return hypotf(crealf(z), cimagf(z)); | |
| } |