--- calo/ground/LEVEL2/src/crcalol2.for	2006/01/13 09:50:11	1.3
+++ calo/ground/LEVEL2/src/crcalol2.for	2006/03/20 10:12:14	1.5
@@ -140,12 +140,12 @@
       DISTX = 0.
       DISTY = 0.
 C
-C      print *,'trigty = ',trigty
-C
+c      print *,'trigty = ',trigty
+C      
       DO I = 1,22
          DO J = 1,96
-C            print *,' i ',i,' j ',j,' x ',ESTRIP(1,I,J)
-C            print *,' i ',i,' j ',j,' y ',ESTRIP(2,I,J)
+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)
@@ -216,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)         
@@ -262,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.