--- DarthVader/CalorimeterLevel2/src/direction.for 2007/07/20 08:24:53 1.6 +++ DarthVader/CalorimeterLevel2/src/direction.for 2007/11/22 13:53:28 1.7 @@ -78,9 +78,11 @@ DO I = 1,NPLA C IF (MOD(M,2).EQ.0) THEN - X(I) = PIANO(I) - 5.81 + X(I) = PIANO(I) +C X(I) = PIANO(I) - 5.81 ELSE - X(I) = PIANO(I) + X(I) = PIANO(I) - 5.81 +C X(I) = PIANO(I) ENDIF Y(I) = 0. C