--- DarthVader/CalorimeterLevel2/src/cluster2.for	2007/11/29 14:20:32	1.2
+++ DarthVader/CalorimeterLevel2/src/cluster2.for	2007/11/29 16:11:54	1.3
@@ -15,6 +15,8 @@
       INCLUDE 'INTEST.TXT'
       REAL QQQ(NCHA)
 
+      COMMON / SHIFT / SHIFT
+      SAVE / SHIFT /
 C
       DO J = 1,2
         DO N = 1,2
@@ -66,15 +68,15 @@
           NN = 0          
           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          
 C