/* 1 1 inverse hyperbolic tangent
*/
double nf_atanh(const Node *n, const Cell *c)
{
  return atanh( eval_tree( Right(n), c) );
}