--- DarthVader/ToFLevel2/src/tofl2com.for 2008/11/27 13:47:54 1.9 +++ 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 @@ -1639,7 +1639,8 @@ c write(*,*) xtr_tof c write(*,*) ytr_tof - 100 continue +c 100 continue + continue C RETURN @@ -1783,6 +1784,26 @@ REAL a1,a2 INTEGER jj +c get rid of warnings EMILIANO + i = 0 + slope = 0 + offset = 0 + none_find = 0 + none_ev = 0 + adc_ev = 0 + tdc_ev = 0 + iadc = 0 + itdc = 0 + right = 0 + left = 0 + tof12_y(1) = tof12_y(1) + tof11_x(1) = tof11_x(1) + tof21_y(1) = tof21_y(1) + tof22_x(1) = tof22_x(1) + tof32_y(1) = tof32_y(1) + tof31_x(1) = tof31_x(1) +c get rid of warnings + C----------------------------------------------------------- C--- get data C----------------------------------------------------------- @@ -2166,6 +2187,26 @@ DATA itop /1,1,2,2,3,3,4,4,1,1,2,2/ DATA ibot /5,6,5,6,5,6,5,6,3,4,3,4/ + +c get rid of warnings EMILIANO + slope = 0 + offset = 0 + none_find = 0 + none_ev = 0 + adc_ev = 0 + tdc_ev = 0 + iadc = 0 + itdc = 0 + right = 0 + left = 0 + tof12_y(1) = tof12_y(1) + tof11_x(1) = tof11_x(1) + tof21_y(1) = tof21_y(1) + tof22_x(1) = tof22_x(1) + tof32_y(1) = tof32_y(1) + tof31_x(1) = tof31_x(1) +c get rid of warnings + C==================================================================== tof11_i = hitvec(1)