--- DarthVader/CalorimeterLevel2/src/calol2tr.for	2006/05/31 09:31:11	1.3
+++ DarthVader/CalorimeterLevel2/src/calol2tr.for	2006/08/10 06:32:02	1.6
@@ -121,7 +121,7 @@
             al_p(m) = al_pp(t,m)
          enddo
          if (al_p(5).eq.0.) THEN
-            PRINT *,' CALORIMETER - WARNING F77: track with R = 0, discarded'
+       PRINT *,' CALORIMETER - WARNING F77: track with R = 0, discarded'
             GOOD2 = 0
             GOTO 969
          ENDIF
@@ -149,7 +149,7 @@
             TY = TAN(ASIN(AL_P(3))) * SIN(AL_P(4))
             DO I = 1, NPLA
                NN = 0
-               IF (M.EQ.2) NN = 1
+C?????               IF (M.EQ.2) NN = 1
                IF (MOD(I,2).EQ.NN) THEN
                   SHIFT = +0.5
                ELSE
@@ -166,7 +166,7 @@
                ENDIF
 C
                CX = XOUT(I)*10. + XALIG 
-               CY = -YOUT(I)*10. + YALIG 
+               CY = YOUT(I)*10. + YALIG 
 C     
                IF (I.EQ.1) THEN
                   TIMPX = CX
@@ -180,7 +180,7 @@
                ELSE
                   YY(I) = CY 
                   BAR(M,I) = YY(I)                   
-                  TBAR(M,I) = (YALIG - YY(I))/10.    
+                  TBAR(M,I) = (-YALIG + YY(I))/10.    
                   IF (I.EQ.22) MY=ABS(Y(1)-Y(22))/ABS(ZIN(1)-ZIN(22))
                ENDIF
                CALL LASTRISCIA(BAR(M,I),IBAR(M,I))
@@ -261,7 +261,7 @@
 C
                DO I = 1,NPLA     
                   NN = 0
-                  IF (M.EQ.2) NN = 1
+C?????                  IF (M.EQ.2) NN = 1
                   IF (MOD(I,2).EQ.NN) THEN
                      SHIFT = +0.5
                   ELSE