Avoid duplicated SAVE statements for G95

[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / hirnd2.F

diff --git a/HIJING/hijing1_36/hirnd2.F b/HIJING/hijing1_36/hirnd2.F
index a30275751b20cb6d78d5822df1accbb96b3f08b5..136db30d975f901215c2ac3df5c68f376996a7ad 100644 (file)
--- a/HIJING/hijing1_36/hirnd2.F
+++ b/HIJING/hijing1_36/hirnd2.F
@@ -5,6 +5,7 @@ C
 C
 C      This generate random number between XMIN and XMAX
        FUNCTION HIRND2(I,XMIN,XMAX)
+#define BLANKET_SAVE
 #include "hijhb.inc"
        SAVE
        IF(XMIN.LT.XX(I,1)) XMIN=XX(I,1)