--- DarthVader/CalorimeterLevel2/src/cluster.for	2007/07/20 08:24:53	1.2
+++ DarthVader/CalorimeterLevel2/src/cluster.for	2014/01/16 15:29:12	1.5
@@ -49,7 +49,7 @@
             ENDIF
           ENDDO
 C
-          IGIRO = 0.
+          IGIRO = 0
 C
    50     CONTINUE
 C
@@ -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)