Elliott Hughes | a0ee078 | 2013-01-30 19:06:37 -0800 | [diff] [blame] | 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 | |||||
10 | #include <sys/cdefs.h> | ||||
11 | __FBSDID("$FreeBSD$"); | ||||
12 | |||||
13 | #include <complex.h> | ||||
14 | #include <math.h> | ||||
15 | |||||
16 | long double | ||||
17 | cabsl(long double complex z) | ||||
18 | { | ||||
19 | return hypotl(creall(z), cimagl(z)); | ||||
20 | } |