Avoid duplicated SAVE statements for G95

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

diff --git a/HIJING/hijing1_36/hijwds.F b/HIJING/hijing1_36/hijwds.F
index 0bda2974801bda081b3296a7d752c3b82d5c5f11..f7da0b4a510df80746a84195b1c866d5c70443be 100644 (file)
--- a/HIJING/hijing1_36/hijwds.F
+++ b/HIJING/hijing1_36/hijwds.F
@@ -9,6 +9,7 @@ C ************************              WOOD-SAX
         SUBROUTINE HIJWDS(IA,IDH,XHIGH)
 C     SETS UP HISTOGRAM IDH WITH RADII FOR
 C     NUCLEUS IA DISTRIBUTED ACCORDING TO THREE PARAM WOOD SAXON
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 #include "wood_hijing.inc"
         DIMENSION IAA(20),RR(20),DD(20),WW(20),RMS(20)