--- calo/flight/CaloDoubleShower/src/dubsc.for	2007/08/10 12:23:35	1.1
+++ calo/flight/CaloDoubleShower/src/dubsc.for	2009/08/04 13:59:10	1.2
@@ -84,7 +84,8 @@
          DO LL = 1,NGIR
             IF (DBCLUS(1,LL).GT.0) RIL(LL) = DBCLUS(1,LL+NCHA/2)
          ENDDO
- 7    ENDIF
+c 7    ENDIF
+      ENDIF
       LK = LVMAX(RIL,NCHA/2)
       QQQ = QQQ + DBCLUS(1,LK+NCHA/2)
       RRR = DBCLUS(1,LK)
@@ -104,9 +105,11 @@
       IF (QQQ.GT.30.AND.ISTOP.EQ.0) INDIC = 1
 C     
 C     
- 400  CONTINUE
+c 400  CONTINUE
+      CONTINUE
       
 C----------------------------------------------------------------------
- 999  RETURN
+c999  RETURN
+      RETURN
       END