--- DarthVader/CalorimeterLevel2/src/cluster.for	2007/07/20 08:24:53	1.2
+++ DarthVader/CalorimeterLevel2/src/cluster.for	2007/11/29 16:11:53	1.4
@@ -75,18 +75,18 @@
           IA = MSTR + 1
 C
           NN = 0
-          IF (M.EQ.2) NN = 1
-          IF (MOD(I,2).EQ.NN) THEN
+c          IF (N.EQ.2) NN = 1
+          IF (MOD(J,2).EQ.NN) 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
           CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)