Avoid duplicated SAVE statements for G95

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

diff --git a/HIJING/hijing1_36/gphoton.F b/HIJING/hijing1_36/gphoton.F
index fc81bc5c586ce46688daebc392030d9c5818bfa3..410e6e003a10d4b516dfd31196befc83b3830a8d 100644 (file)
--- a/HIJING/hijing1_36/gphoton.F
+++ b/HIJING/hijing1_36/gphoton.F
@@ -4,6 +4,7 @@ C
 C
        FUNCTION GPHOTON(Y1,Y2,PT2)
        IMPLICIT REAL*8 (A-H,O-Z)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
        DIMENSION F(2,7)
        SAVE