      subroutine xacosh (x, result)
      external acosh
      real x, result, acosh
      result = acosh (x)
      return
      end
