Mercurial > octave-nkf
view libcruft/slatec-fn/xdatanh.f @ 3120:a2371c4a1d50
[project @ 1997-11-30 23:56:25 by jwe]
author | jwe |
---|---|
date | Sun, 30 Nov 1997 23:56:37 +0000 |
parents | |
children | c0532bbaefd7 |
line wrap: on
line source
subroutine xdatanh (x, result) double precision x, result, datanh result = datanh (x) return end