--- DarthVader/CalorimeterLevel2/src/calol2tr.for	2007/01/27 06:22:19	1.13
+++ DarthVader/CalorimeterLevel2/src/calol2tr.for	2007/04/02 14:42:14	1.15
@@ -142,7 +142,7 @@
             TY = TAN(ASIN(AL_P(3))) * SIN(AL_P(4))
             DO I = 1, NPLA
                NN = 0
-C?????               IF (M.EQ.2) NN = 1
+               IF (M.EQ.2) NN = 1
                IF (MOD(I,2).EQ.NN) THEN
                   SHIFT = +0.5
                ELSE
@@ -268,7 +268,7 @@
 C
                DO I = 1,NPLA     
                   NN = 0
-C?????                  IF (M.EQ.2) NN = 1
+                  IF (M.EQ.2) NN = 1
                   IF (MOD(I,2).EQ.NN) THEN
                      SHIFT = +0.5
                   ELSE
@@ -372,7 +372,7 @@
       RNSS = 0.
       QTOTT = 0.
 C
-      PPLANEMAX = 1.01*(LOG(ABS(RIG)/0.0081)-1.)
+      PPLANEMAX = 1.01*(LOG(ABS(RIG)/0.0081)-1.) / 0.74
 C
       IPLANE = INT(ANINT(PPLANEMAX)) + 5
 C
@@ -401,6 +401,8 @@
 C     
       DO J = 1,IPLANE
          NNX = IBAR(1,J)
+         RNSS = 0.               ! BACO!!
+         QTOTT = 0.               ! BACO!!
          IF (NNX.NE.-1) THEN
             IF (NNX.LT.9) NNX = 9
             IF (NNX.GT.88) NNX = 88