ran declared external

[u/mrichter/AliRoot.git] / MEVSIM / multiplicity_gen.F

diff --git a/MEVSIM/multiplicity_gen.F b/MEVSIM/multiplicity_gen.F
index 17dcbaceb542fab351bc1e1a8a349ce6f3533ce3..23aa4bdd404908adfaafe0d6296237213b1e80c8 100644 (file)
--- a/MEVSIM/multiplicity_gen.F
+++ b/MEVSIM/multiplicity_gen.F
@@ -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