Mercurial > octave
view libcruft/slatec-fn/xdasinh.f @ 4079:c0532bbaefd7
[project @ 2002-09-30 19:08:09 by jwe]
author | jwe |
---|---|
date | Mon, 30 Sep 2002 19:08:09 +0000 |
parents | a2371c4a1d50 |
children |
line wrap: on
line source
subroutine xdasinh (x, result) external dasinh double precision x, result, dasinh result = dasinh (x) return end