--- DarthVader/CalorimeterLevel2/src/lastriscia.for	2006/05/19 13:15:50	1.1
+++ DarthVader/CalorimeterLevel2/src/lastriscia.for	2007/08/10 12:31:42	1.3
@@ -7,6 +7,7 @@
       INCLUDE 'INTEST.TXT'
 C
       COMMON / SHIFT / SHIFT
+      SAVE / SHIFT /
 C
 C EM: IF TRACK GO OUT OF THE CALORIMETER GIVE BACK AS STRIP VALUE -1 TO FLAG THE SITUATION
 C
@@ -50,6 +51,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