Mercurial > hg > octave-nkf

view libcruft/slatec-fn/xatanh.f @ 12408:187d48827b47 release-3-4-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
don't warn about coercing nested functions to subfunctions if yyparse failed
author John W. Eaton <jwe@octave.org>
date Tue, 08 Feb 2011 03:22:12 -0500
parents 82be108cc558
children
line wrap: on
line source

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