Avoid duplicated SAVE statements for G95

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

diff --git a/HIJING/hijing1_36/hijels.F b/HIJING/hijing1_36/hijels.F
index 6b7a1d08b316a8f769561c1f57dd92417426b672..81c4c5711b02e367e11c05ad6b226bef1cde1527 100644 (file)
--- a/HIJING/hijing1_36/hijels.F
+++ b/HIJING/hijing1_36/hijels.F
@@ -8,6 +8,7 @@ C*******************************************************************
        SUBROUTINE HIJELS(PSC1,PSC2)
        IMPLICIT DOUBLE PRECISION(D)
        DIMENSION PSC1(5),PSC2(5)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
        SAVE
 C