--- calo/ground/LEVEL2/src/crcalol2.for 2006/01/13 09:50:11 1.3 +++ calo/ground/LEVEL2/src/crcalol2.for 2006/03/09 15:55:30 1.4 @@ -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)