--- calo/ground/LEVEL2/src/crcalol2.for 2006/03/09 15:55:30 1.4 +++ calo/ground/LEVEL2/src/crcalol2.for 2006/03/20 10:12:14 1.5 @@ -216,7 +216,7 @@ c ENDIF C IF (M.EQ.1) THEN - DISTX = PIANO(I) - 5.1 + DISTX = PIANO(I) - 5.81 Y(I) = DISTX * TG(1) + CX BAR(M,I) = Y(I) CBAR(M,I) = Y(I) @@ -262,7 +262,7 @@ IF (MOD(M,2).EQ.0) THEN DISTX = PIANO(I) + ZALIG ! Z ALIGNEMENT FACTOR ELSE - DISTX = PIANO(I) - 5.1 + ZALIG ! Z ALIGNEMENT FACTOR + DISTX = PIANO(I) - 5.81 + ZALIG ! Z ALIGNEMENT FACTOR C ENDIF ZIN(I) = distx / 10.