Avoid duplicated SAVE statements for G95

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

diff --git a/HIJING/hijing1_36/hijhrd.F b/HIJING/hijing1_36/hijhrd.F
index 54602dcd894d6f4a56680c70b4db78c0767b983a..1d6c729487994d74750444d67e8a5031e9c663f2 100644 (file)
--- a/HIJING/hijing1_36/hijhrd.F
+++ b/HIJING/hijing1_36/hijhrd.F
@@ -15,6 +15,7 @@ C     /MINJET. ABS(NFP(JP,6)) is the total number jets produced by *
 C    JP. If NFP(JP,6)<0 JP can not produce jet anymore.                   *
 C*******************************************************************
        DIMENSION IP(100,2),IPQ(50),IPB(50),IT(100,2),ITQ(50),ITB(50)
+#define BLANKET_SAVE
 #include "hijcrdn.inc"
 #include "hiparnt.inc"
 #include "hijdat.inc"