--- calo/ground/LEVEL2/src/crcalol2.for	2005/12/05 16:13:54	1.1.1.1
+++ calo/ground/LEVEL2/src/crcalol2.for	2006/03/20 10:12:14	1.5
@@ -89,9 +89,9 @@
       PIANO(1) = 0.
       DO I = 2, 22
          IF ( MOD(I,2).EQ.0 ) THEN 
-            PIANO(I) = PIANO(I-1) - 8.42
+            PIANO(I) = PIANO(I-1) - 8.09
          ELSE
-            PIANO(I) = PIANO(I-1) - 9.76
+            PIANO(I) = PIANO(I-1) - 10.09
          ENDIF 
       ENDDO
 C
@@ -140,8 +140,12 @@
       DISTX = 0.
       DISTY = 0.
 C
+c      print *,'trigty = ',trigty
+C      
       DO I = 1,22
          DO J = 1,96
+c            print *,i,j,' x ',ESTRIP(1,I,J),' y ',ESTRIP(2,I,J)
+c            print *,' i ',i,' j ',j,' y ',ESTRIP(2,I,J)
             IF ( MOD(I,2).NE.0 ) THEN
                IF ( ESTRIP(2,I,J).GT.EMIN ) THEN
                   DEXY(2,I,J) = ESTRIP(2,I,J)
@@ -212,7 +216,7 @@
 c               ENDIF
 C     
                IF (M.EQ.1) THEN
-                  DISTX = PIANO(I) - 5.1
+                  DISTX = PIANO(I) - 5.81
                   Y(I) = DISTX * TG(1) + CX
                   BAR(M,I) = Y(I)
                   CBAR(M,I) = Y(I)         
@@ -258,7 +262,7 @@
                   IF (MOD(M,2).EQ.0) THEN
                      DISTX = PIANO(I) + ZALIG !  Z ALIGNEMENT FACTOR
                   ELSE
-                     DISTX = PIANO(I) - 5.1 + ZALIG !  Z ALIGNEMENT FACTOR               
+                     DISTX = PIANO(I) - 5.81 + ZALIG !  Z ALIGNEMENT FACTOR               
 C     
                   ENDIF               
                   ZIN(I) = distx / 10.