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: releng/11.0/lib/msun/src/w_cabsl.c 177757 2008-03-30 20:02:03Z das $"); 12 13#include <complex.h> 14#include <math.h> 15 16long double 17cabsl(long double complex z) 18{ 19 return hypotl(creall(z), cimagl(z)); 20} 21