--- calo/flight/CaloDoubleShower/src/dblsc.for	2007/08/10 12:23:35	1.1
+++ calo/flight/CaloDoubleShower/src/dblsc.for	2009/08/04 13:59:09	1.2
@@ -114,7 +114,8 @@
             IF (RIL(LK).LE.10.AND.DBCLUS(J,LK).NE.0) THEN
                YY(J) = DBCLUS(J,LK)
             ENDIF
- 7       ENDIF
+c 7       ENDIF
+        ENDIF
       ENDDO
 C     
       CALL LFIT(XX,YY,2,0,A,B,VAR)
@@ -128,5 +129,6 @@
 C     
       IF (QQQ.GT.30.AND.ISTOP.EQ.0) INDIC = 1
 C     
-  999 RETURN
+c  999 RETURN
+      RETURN
       END