newlib-cygwin/newlib/libm/machine/spu/headers/atanh.h

#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;
}