--- DarthVader/CalorimeterLevel2/src/nuclei.for	2007/11/29 14:20:33	1.3
+++ DarthVader/CalorimeterLevel2/src/nuclei.for	2014/01/16 15:29:15	1.6
@@ -71,15 +71,15 @@
 C
            IF (MOD(J,2).EQ.0) THEN
               IF (REVERSE.EQ.0) THEN
-                 SHIFT = +0.5
-              ELSE
                  SHIFT = -0.5
+              ELSE
+                 SHIFT = +0.5
               ENDIF
            ELSE
               IF (REVERSE.EQ.0) THEN
-                 SHIFT = -0.5
-              ELSE
                  SHIFT = +0.5
+              ELSE
+                 SHIFT = -0.5
               ENDIF
            ENDIF
 C
@@ -101,7 +101,7 @@
           NGIR = NCL(M,J) ! number of clusters in layer J of the M View
           IF (NGIR.EQ.0) GOTO 5
 C          IF (NGIR.NE.1) GOTO 5
-          IPP = 0.
+          IPP = 0
           DO L = 1,NGIR
             CALL LASTRISCIA(CLUS(M,J,L),IN)
             RIL(L) = FLOAT(ABS(NN - IN))
@@ -166,7 +166,8 @@
         QQQQ = QQQ / FLOAT(NPIA)  ! Truncated mean .
       ENDIF
 C
-  400 CONTINUE
+c  400 CONTINUE
+      CONTINUE
 
       RETURN
       END