--- DarthVader/CalorimeterLevel2/src/calol2tr.for	2007/01/22 09:17:01	1.8
+++ DarthVader/CalorimeterLevel2/src/calol2tr.for	2007/01/22 09:44:49	1.9
@@ -277,14 +277,16 @@
                      DISTX = PIANO(I) - 5.81
                      Y(I) = DISTX * TANX + CX
                      BAR(M,I) = Y(I)
-                     CBAR(M,I) = Y(I)         
+c                     CBAR(M,I) = Y(I)
+                     CBAR(M,I) = (Y(I) - XALIG)/10.        
                      IF (I.EQ.22) MX=ABS(Y(1)-Y(22))/ABS(ZIN(1)-ZIN(22))
 C     
                   ELSE
                      DISTY = PIANO(I)                
                      YY(I) = DISTY * TANY + CY
                      BAR(M,I) = YY(I)
-                     CBAR(M,I) = YY(I)
+c                     CBAR(M,I) = YY(I)
+                     CBAR(M,I) = (-YALIG + YY(I))/10. 
                      IF (I.EQ.22) MY=ABS(Y(1)-Y(22))/ABS(ZIN(1)-ZIN(22))
 C     
                   ENDIF