--- DarthVader/CalorimeterLevel2/src/calol2tr.for 2007/01/22 09:44:49 1.9 +++ DarthVader/CalorimeterLevel2/src/calol2tr.for 2007/01/22 10:02:27 1.10 @@ -260,7 +260,7 @@ TANX = BX ELSE VARCFIT(2) = CHI2Y - IMPY = 10. * ( AY + 12.2 ) + IMPY = 10. * ( AY + 12.1 ) TANY = BY ENDIF C @@ -275,17 +275,17 @@ C IF (M.EQ.1) THEN DISTX = PIANO(I) - 5.81 - Y(I) = DISTX * TANX + CX - BAR(M,I) = Y(I) + Y(I) = DISTX * TANX + IMPX c CBAR(M,I) = Y(I) + BAR(M,I) = Y(I) CBAR(M,I) = (Y(I) - XALIG)/10. IF (I.EQ.22) MX=ABS(Y(1)-Y(22))/ABS(ZIN(1)-ZIN(22)) C ELSE DISTY = PIANO(I) - YY(I) = DISTY * TANY + CY - BAR(M,I) = YY(I) + YY(I) = DISTY * TANY + IMPY c CBAR(M,I) = YY(I) + BAR(M,I) = YY(I) CBAR(M,I) = (-YALIG + YY(I))/10. IF (I.EQ.22) MY=ABS(Y(1)-Y(22))/ABS(ZIN(1)-ZIN(22)) C