--- DarthVader/CalorimeterLevel2/src/calol2cm.for	2006/05/23 08:35:45	1.2
+++ DarthVader/CalorimeterLevel2/src/calol2cm.for	2006/08/10 06:32:02	1.4
@@ -170,13 +170,13 @@
                   IMPX = (CX - XALIG)/10.
                   TANX = TG(1)
                ELSE
-                  IMPY =( YALIG - CY)/10. 
+                  IMPY =( CY - YALIG)/10. 
                   TANY = TG(2)
                ENDIF
 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
@@ -193,7 +193,7 @@
                      DISTY = PIANO(I)                
                      YY(I) = DISTY * TG(2) + CY
                      BAR(M,I) = YY(I)
-                     CBAR(M,I) = (YALIG - YY(I))/10.
+                     CBAR(M,I) = (-YALIG + YY(I))/10.
 C     
                   ENDIF
                   CALL LASTRISCIA(BAR(M,I),IBAR(M,I))