Mercurial > octave-nkf

changeset 7891:0280a546622c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
--- a/libcruft/slatec-fn/xasinh.f	Tue Jun 17 13:58:21 2008 -0400
+++ b/libcruft/slatec-fn/xasinh.f	Mon Jun 16 10:09:15 2008 +0200
@@ -1,6 +1,6 @@
       subroutine xasinh (x, result)
       external asinh
-      real x, result, dasinh
+      real x, result, asinh
       result = asinh (x)
       return
       end