Avoid duplicated SAVE statements for G95

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

diff --git a/HIJING/hijing1_36/hijset.F b/HIJING/hijing1_36/hijset.F
index c688615a17849d02e781fbe654c4c83c6051ad3f..0e0b1b2abcf8ff603d075e935f83b2070d99223f 100644 (file)
--- a/HIJING/hijing1_36/hijset.F
+++ b/HIJING/hijing1_36/hijset.F
@@ -5,6 +5,7 @@ C
        SUBROUTINE HIJSET(EFRM,FRAME,PROJ,TARG,IAP,IZP,IAT,IZT)
        CHARACTER FRAME*4,PROJ*4,TARG*4,EFRAME*4
        DOUBLE PRECISION  DD1,DD2,DD3,DD4
+#define BLANKET_SAVE
 #include "histrng.inc"
 #include "hijcrdn.inc"
 #include "hiparnt.inc"