--- DarthVader/CalorimeterLevel2/src/elio.for	2007/11/29 14:20:32	1.5
+++ DarthVader/CalorimeterLevel2/src/elio.for	2009/08/04 14:01:19	1.7
@@ -69,15 +69,15 @@
         DO J = 1,NPLA
            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
@@ -161,7 +161,8 @@
         QQQQ = QQQ / FLOAT(NPIA)  ! Truncated mean .
       ENDIF
 C
-  400 CONTINUE
+c  400 CONTINUE
+      CONTINUE
 
       RETURN
       END