Update common block specification to work with new function resolving

hainest · Jan 19, 2018 · 3f4477e · 3f4477e
1 parent b051fea
commit 3f4477e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/IDL/bdtri.pro b/IDL/bdtri.pro
@@ -66,7 +66,7 @@
 
 function incbi, x
     compile_opt idl2, hidden
-    common incbi_parms
+    common incbi_parms, a, b, p
 
 	return, ibeta(b-a, a+1, x) - p
 end
@@ -95,7 +95,7 @@ function bdtri, k, n, y
         message, 'bdtri domain error: y must be in the interval [0,1]'
     endif
 
-	common incbi_parms, a, b, p
+	common incbi_parms
 	a = k
 	b = n
 	p = y

diff --git a/IDL/pdtri.pro b/IDL/pdtri.pro
@@ -69,7 +69,7 @@
 
 function igami, x
     compile_opt idl2, hidden
-    common igami_parms
+    common igami_parms, a, p
 
 	return, 1 - igamma(a+1, x, /double) - p
 end
@@ -88,7 +88,7 @@ function pdtri, k, y
         message, 'pdtri domain error: y must be in the interval [0, 1)'
     endif
 
-	common igami_parms, a, p
+	common igami_parms
 	a = k
 	p = y