# HG changeset patch
# User David Bateman <dbateman@free.fr>
# Date 1213603755 -7200
# Node ID 0280a546622c42bf60fb8a2839297691996359dd
# Parent  73ef513855e71a0e9066b1de6ae77d38c7fcb680
Fix to use of single precision slatec functions

diff --git a/libcruft/ChangeLog b/libcruft/ChangeLog
--- a/libcruft/ChangeLog
+++ b/libcruft/ChangeLog
@@ -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.
diff --git a/libcruft/slatec-fn/xacosh.f b/libcruft/slatec-fn/xacosh.f
--- a/libcruft/slatec-fn/xacosh.f
+++ b/libcruft/slatec-fn/xacosh.f
@@ -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
diff --git a/libcruft/slatec-fn/xasinh.f b/libcruft/slatec-fn/xasinh.f
--- a/libcruft/slatec-fn/xasinh.f
+++ b/libcruft/slatec-fn/xasinh.f
@@ -1,6 +1,6 @@
       subroutine xasinh (x, result)
       external asinh
-      real x, result, dasinh
+      real x, result, asinh
       result = asinh (x)
       return
       end