--- DarthVader/ToFLevel2/src/tofl2com.for 2009/08/04 14:01:32 1.11 +++ DarthVader/ToFLevel2/src/tofl2com.for 2009/08/11 12:58:24 1.12 @@ -107,7 +107,7 @@ C-- DATA ZTOF/53.74,53.04,23.94,23.44,-23.49,-24.34/ !Sergio 9.05.2006 REAL tofarm12 PARAMETER (tofarm12 = 29.70) ! from 53.39 to 23.69 - REAL tofarm23 + REAL tofarm23 PARAMETER (tofarm23 = 47.61) ! from 23.69 to -23.92 REAL tofarm13 PARAMETER (tofarm13 = 77.31) ! from 53.39 to -23.92 @@ -958,7 +958,7 @@ tdc_c(ch32b(i),hb32b(i))=tof32(right,i,itdc) ENDIF ENDDO - + C--------------------------------------------------------------- C--- calculate track position in paddle using timing difference @@ -1609,7 +1609,7 @@ C icount= icount+1 C if (i.le.4) w_i=1./(0.13**2.) C if ((i.ge.5).and.(i.le.8)) w_i=1./(0.16**2.) -C if (i.ge.9) w_i=1./(0.25**2.) ! to be checked +C if (i.ge.9) w_i=1./(0.25**2.) ! to be checked C sxw=sxw + betatof_a(i)*w_i C sw =sw + w_i C endif