--- DarthVader/CalorimeterLevel2/src/lastriscia.for 2006/05/19 13:15:50 1.1 +++ DarthVader/CalorimeterLevel2/src/lastriscia.for 2007/01/27 06:22:21 1.2 @@ -50,6 +50,9 @@ IF (IBAR.EQ.0) IBAR = 1 ENDIF C + IF ( IBAR.LE.0 ) IBAR = 1 + IF ( IBAR.GT.96 ) IBAR = 96 +C 500 CONTINUE RETURN END