--- DarthVader/CalorimeterLevel2/src/cluster.for 2007/11/29 14:20:31 1.3 +++ DarthVader/CalorimeterLevel2/src/cluster.for 2007/11/29 16:11:53 1.4 @@ -78,15 +78,15 @@ 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)