Implement cabsl() in terms of hypotl().
Submitted by: Steve Kargl <sgk@troutmask.apl.washington.edu>
This commit is contained in:
parent
d23166b015
commit
2264157a42
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=177757
20
lib/msun/src/w_cabsl.c
Normal file
20
lib/msun/src/w_cabsl.c
Normal file
@ -0,0 +1,20 @@
|
||||
/*
|
||||
* cabs() wrapper for hypot().
|
||||
*
|
||||
* Written by J.T. Conklin, <jtc@wimsey.com>
|
||||
* Placed into the Public Domain, 1994.
|
||||
*
|
||||
* Modified by Steven G. Kargl for the long double type.
|
||||
*/
|
||||
|
||||
#include <sys/cdefs.h>
|
||||
__FBSDID("$FreeBSD$");
|
||||
|
||||
#include <complex.h>
|
||||
#include <math.h>
|
||||
|
||||
long double
|
||||
cabsl(long double complex z)
|
||||
{
|
||||
return hypotl(creall(z), cimagl(z));
|
||||
}
|
Loading…
Reference in New Issue
Block a user