Mercurial > hg > octave-nkf

view libcruft/slatec-fn/xdasinh.f @ 3845:d68c34dc9c25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2001-07-26 02:11:05 by jwe]
author jwe
date Thu, 26 Jul 2001 02:11:05 +0000
parents a2371c4a1d50
children c0532bbaefd7
line wrap: on
line source

      subroutine xdasinh (x, result)
      double precision x, result, dasinh
      result = dasinh (x)
      return
      end