--- calo/ground/LEVEL2/src/crcalol2.for	2005/12/05 16:13:54	1.1
+++ calo/ground/LEVEL2/src/crcalol2.for	2006/03/09 15:55:30	1.4
@@ -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)