Mercurial > hg > octave-nkf

diff libcruft/slatec-fn/xdgamit.f @ 3278:9c9f0c035309

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-10-12 06:03:49 by jwe]
author jwe
date Tue, 12 Oct 1999 06:07:01 +0000
parents
children c0532bbaefd7
line wrap: on
line diff
new file mode 100644
--- /dev/null
+++ b/libcruft/slatec-fn/xdgamit.f
@@ -0,0 +1,5 @@
+      subroutine xdgamit (a, x, result)
+      double precision a, x, result, dgamit
+      result = dgamit (a, x)
+      return
+      end