      subroutine xasinh (x, result)
      external asinh
      real x, result, asinh
      result = asinh (x)
      return
      end
