--- DarthVader/CalorimeterLevel2/src/nuclei.for	2007/11/29 16:11:55	1.4
+++ DarthVader/CalorimeterLevel2/src/nuclei.for	2009/08/04 14:01:22	1.5
@@ -166,7 +166,8 @@
         QQQQ = QQQ / FLOAT(NPIA)  ! Truncated mean .
       ENDIF
 C
-  400 CONTINUE
+c  400 CONTINUE
+      CONTINUE
 
       RETURN
       END