Mercurial > octave-nkf
changeset 7891:0280a546622c
Fix to use of single precision slatec functions
author | David Bateman <dbateman@free.fr> |
---|---|
date | Mon, 16 Jun 2008 10:09:15 +0200 |
parents | 73ef513855e7 |
children | 7ca2735d74c2 |
files | libcruft/ChangeLog libcruft/slatec-fn/xacosh.f libcruft/slatec-fn/xasinh.f |
diffstat | 3 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/libcruft/ChangeLog Tue Jun 17 13:58:21 2008 -0400 +++ b/libcruft/ChangeLog Mon Jun 16 10:09:15 2008 +0200 @@ -1,3 +1,8 @@ +2008-06-16 David Bateman <dbateman@free.fr> + + * slatec-fn/xacosh.f, slatec-fn/xasinh.f: Replace xsacosh with + xacosh, xdacosh with xacosh and xdasinh with xasinh. + 2008-06-12 Jaroslav Hajek <highegg@gmail.com> * misc/Makefile.in (MAKEDEPS): Remove CEXTRA.
--- a/libcruft/slatec-fn/xacosh.f Tue Jun 17 13:58:21 2008 -0400 +++ b/libcruft/slatec-fn/xacosh.f Mon Jun 16 10:09:15 2008 +0200 @@ -1,6 +1,6 @@ - subroutine xsacosh (x, result) + subroutine xacosh (x, result) external acosh - real x, result, dacosh + real x, result, acosh result = acosh (x) return end