      subroutine xatanh (x, result)
      external atanh
      real x, result, atanh
      result = atanh (x)
      return
      end
