c

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

diff --git a/HIJING/hijing1_36/hijcsc.F b/HIJING/hijing1_36/hijcsc.F
index 5671b5431ba50d77137e41315b1851156bda5b69..4cdc7fb5d5fc540687a0d203b4e96d3004e8cb1c 100644 (file)
--- a/HIJING/hijing1_36/hijcsc.F
+++ b/HIJING/hijing1_36/hijcsc.F
@@ -6,6 +6,7 @@ C       elastic cascading within their own nuclei
 c*******************************************************************
        SUBROUTINE HIJCSC(JP,JT)
        DIMENSION PSC1(5),PSC2(5)
+#define BLANKET_SAVE
 #include "hijcrdn.inc"
 #include "hiparnt.inc"
 #include "histrng.inc"