diff libcruft/slatec-fn/xdbetai.f @ 4079:c0532bbaefd7

[project @ 2002-09-30 19:08:09 by jwe]
author jwe
date Mon, 30 Sep 2002 19:08:09 +0000
parents a2371c4a1d50
children
line wrap: on
line diff
--- a/libcruft/slatec-fn/xdbetai.f
+++ b/libcruft/slatec-fn/xdbetai.f
@@ -1,4 +1,5 @@
       subroutine xdbetai (x, a, b, result)
+      external dbetai
       double precision x, a, b, result, dbetai
       result = dbetai (x, a, b)
       return