ran declared external
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 29 Apr 2003 15:52:21 +0000 (15:52 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 29 Apr 2003 15:52:21 +0000 (15:52 +0000)
MEVSIM/multiplicity_gen.F

index 17dcbaceb542fab351bc1e1a8a349ce6f3533ce3..23aa4bdd404908adfaafe0d6296237213b1e80c8 100644 (file)
@@ -1521,6 +1521,8 @@ C-OUT      Close(Unit=10)
       integer reac_plane_cntrl,iphi
       integer n_integ_pts
 
       integer reac_plane_cntrl,iphi
       integer n_integ_pts
 
+      external ran
+
       do i = 1,factorial_max
       do j = 1,4
          pout(pid,j,i) = 0.0
       do i = 1,factorial_max
       do j = 1,4
          pout(pid,j,i) = 0.0