Mercurial > hg > octave-lyh

view libcruft/slatec-fn/xatanh.f @ 7971:dd5cc5016487

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
handle private functions in class directories
author John W. Eaton <jwe@octave.org>
date Thu, 24 Jul 2008 15:42:40 -0400
parents 82be108cc558
children
line wrap: on
line source

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