changeset 3120:a2371c4a1d50

[project @ 1997-11-30 23:56:25 by jwe]
author jwe
date Sun, 30 Nov 1997 23:56:37 +0000
parents f3e1da120048
children 923049908004
files libcruft/ChangeLog libcruft/slatec-fn/xdacosh.f libcruft/slatec-fn/xdasinh.f libcruft/slatec-fn/xdatanh.f libcruft/slatec-fn/xdbetai.f libcruft/slatec-fn/xderf.f libcruft/slatec-fn/xderfc.f libcruft/slatec-fn/xdgami.f
diffstat 8 files changed, 41 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/libcruft/ChangeLog
+++ b/libcruft/ChangeLog
@@ -1,3 +1,9 @@
+Sun Nov 30 17:55:20 1997  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* slatec-fn/xdgami.f, slatec-fn/xdbetai.f, slatec-fn/xderfc.f,
+	slatec-fn/xderf.f, slatec-fn/xdatanh.f, slatec-fn/xdasinh.f,
+	slatec-fn/xdacosh.f: New files.
+
 Sat Nov 29 13:02:14 1997  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* specfun/ribesl.f (ribesl): Use d1mach to get machine parameters.
new file mode 100644
--- /dev/null
+++ b/libcruft/slatec-fn/xdacosh.f
@@ -0,0 +1,5 @@
+      subroutine xdacosh (x, result)
+      double precision x, result, dacosh
+      result = dacosh (x)
+      return
+      end
new file mode 100644
--- /dev/null
+++ b/libcruft/slatec-fn/xdasinh.f
@@ -0,0 +1,5 @@
+      subroutine xdasinh (x, result)
+      double precision x, result, dasinh
+      result = dasinh (x)
+      return
+      end
new file mode 100644
--- /dev/null
+++ b/libcruft/slatec-fn/xdatanh.f
@@ -0,0 +1,5 @@
+      subroutine xdatanh (x, result)
+      double precision x, result, datanh
+      result = datanh (x)
+      return
+      end
new file mode 100644
--- /dev/null
+++ b/libcruft/slatec-fn/xdbetai.f
@@ -0,0 +1,5 @@
+      subroutine xdbetai (x, a, b, result)
+      double precision x, a, b, result, dbetai
+      result = dbetai (x, a, b)
+      return
+      end
new file mode 100644
--- /dev/null
+++ b/libcruft/slatec-fn/xderf.f
@@ -0,0 +1,5 @@
+      subroutine xderf (x, result)
+      double precision x, result, derf
+      result = derf (x)
+      return
+      end
new file mode 100644
--- /dev/null
+++ b/libcruft/slatec-fn/xderfc.f
@@ -0,0 +1,5 @@
+      subroutine xderfc (x, result)
+      double precision x, result, derfc
+      result = derfc (x)
+      return
+      end
new file mode 100644
--- /dev/null
+++ b/libcruft/slatec-fn/xdgami.f
@@ -0,0 +1,5 @@
+      subroutine xdgami (x, a, result)
+      double precision x, a, result, dgami
+      result = dgami (x, a)
+      return
+      end