Mercurial > hg > octave-avbm

view libcruft/slatec-fn/xacosh.f @ 8377:25bc2d31e1bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improve OCTAVE_LOCAL_BUFFER
author Jaroslav Hajek <highegg@gmail.com>
date Wed, 29 Oct 2008 16:52:10 +0100
parents 0280a546622c
children
line wrap: on
line source

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