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