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 17dcbac..23aa4bd 100644 (file)
@@ -1521,6 +1521,8 @@ C-OUT      Close(Unit=10)
       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