19 lines
338 B
C
19 lines
338 B
C
#include "headers/atanhd2.h"
|
|
#include "headers/dom_chkd_negone_one.h"
|
|
|
|
static __inline double _atanh(double x)
|
|
{
|
|
double res;
|
|
vector double vx;
|
|
|
|
vx = spu_splats(x);
|
|
res = spu_extract(_atanhd2(vx), 0);
|
|
#ifndef _IEEE_LIBM
|
|
/*
|
|
* Domain error if not in the interval [-1, +1]
|
|
*/
|
|
dom_chkd_negone_one(vx);
|
|
#endif
|
|
return res;
|
|
}
|