--- DarthVader/CalorimeterLevel2/src/nuclei.for 2007/07/20 08:24:55 1.2 +++ DarthVader/CalorimeterLevel2/src/nuclei.for 2007/11/29 16:11:55 1.4 @@ -68,6 +68,7 @@ RPIANO(M) = 0. C DO J = 1,NPLA +C IF (MOD(J,2).EQ.0) THEN IF (REVERSE.EQ.0) THEN SHIFT = -0.5