--- DarthVader/CalorimeterLevel2/src/cluster2.for	2006/05/19 13:15:50	1.1
+++ DarthVader/CalorimeterLevel2/src/cluster2.for	2007/11/29 14:20:32	1.2
@@ -63,6 +63,21 @@
    66     CONTINUE
           IA = MSTR + 1
 C
+          NN = 0          
+          IF (MOD(J,2).EQ.NN) THEN
+             IF (REVERSE.EQ.0) THEN
+                SHIFT = +0.5
+             ELSE
+                SHIFT = -0.5
+             ENDIF
+          ELSE
+             IF (REVERSE.EQ.0) THEN
+                SHIFT = -0.5
+             ELSE
+                SHIFT = +0.5
+             ENDIF          
+          ENDIF          
+C
           CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)
           IGIRO = IGIRO + 1
           IGI = IGIRO + NCHA / 2