diff libcruft/slatec-fn/xdbetai.f @ 3120:a2371c4a1d50

[project @ 1997-11-30 23:56:25 by jwe]
author jwe
date Sun, 30 Nov 1997 23:56:37 +0000
parents
children c0532bbaefd7
line wrap: on
line diff
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