--- DarthVader/CalorimeterLevel2/src/nuclei.for	2007/07/20 08:24:55	1.2
+++ DarthVader/CalorimeterLevel2/src/nuclei.for	2009/08/04 14:01:22	1.5
@@ -68,6 +68,7 @@
         RPIANO(M) = 0.
 C
         DO J = 1,NPLA
+C
            IF (MOD(J,2).EQ.0) THEN
               IF (REVERSE.EQ.0) THEN
                  SHIFT = -0.5
@@ -165,7 +166,8 @@
         QQQQ = QQQ / FLOAT(NPIA)  ! Truncated mean .
       ENDIF
 C
-  400 CONTINUE
+c  400 CONTINUE
+      CONTINUE
 
       RETURN
       END