w_cabsl.c revision 177757
1177757Sdas/* 2177757Sdas * cabs() wrapper for hypot(). 3177757Sdas * 4177757Sdas * Written by J.T. Conklin, <jtc@wimsey.com> 5177757Sdas * Placed into the Public Domain, 1994. 6177757Sdas * 7177757Sdas * Modified by Steven G. Kargl for the long double type. 8177757Sdas */ 9177757Sdas 10177757Sdas#include <sys/cdefs.h> 11177757Sdas__FBSDID("$FreeBSD: head/lib/msun/src/w_cabsl.c 177757 2008-03-30 20:02:03Z das $"); 12177757Sdas 13177757Sdas#include <complex.h> 14177757Sdas#include <math.h> 15177757Sdas 16177757Sdaslong double 17177757Sdascabsl(long double complex z) 18177757Sdas{ 19177757Sdas return hypotl(creall(z), cimagl(z)); 20177757Sdas} 21