From 07511484e1df626d6feb1119c155d8dc829fb370 Mon Sep 17 00:00:00 2001
From: hristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Tue, 29 Apr 2003 15:52:21 +0000
Subject: [PATCH] ran declared external

---
 MEVSIM/multiplicity_gen.F | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/MEVSIM/multiplicity_gen.F b/MEVSIM/multiplicity_gen.F
index 17dcbaceb54..23aa4bdd404 100644
--- 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
-- 
2.31.1