Fixing the decoding of regional header bits.

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

diff --git a/HIJING/hijing1_36/atrobo.F b/HIJING/hijing1_36/atrobo.F
index 076ed77fec327ad3cf4bac2dd27e28ff569f31ee..0501f8acb9a4879767ec1ddb00f5190d722ded48 100644 (file)
--- a/HIJING/hijing1_36/atrobo.F
+++ b/HIJING/hijing1_36/atrobo.F
@@ -6,6 +6,7 @@ C*******************************************************************
 C      make  boost and rotation to entries from IMIN to IMAX
 C*******************************************************************
        SUBROUTINE ATROBO(THE,PHI,BEX,BEY,BEZ,IMIN,IMAX,IERROR)
+#define BLANKET_SAVE
 #include "lujets_hijing.inc"
        DIMENSION ROT(3,3),PV(3)
        DOUBLE PRECISION DP(4),DBEX,DBEY,DBEZ,DGA,DGA2,DBEP,DGABEP