Commit | Line | Data |
---|---|---|
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 | * Modified by Steven G. Kargl for the long double type. | |
8 | * | |
9 | * $FreeBSD: head/lib/msun/src/w_cabsl.c 177757 2008-03-30 20:02:03Z das $ | |
10 | */ | |
11 | ||
12 | #include <complex.h> | |
13 | #include <math.h> | |
14 | ||
15 | long double | |
16 | cabsl(long double complex z) | |
17 | { | |
18 | return hypotl(creall(z), cimagl(z)); | |
19 | } |