/[PAMELA software]/DarthVader/ToFLevel2/src/tofl2com.for
ViewVC logotype

Diff of /DarthVader/ToFLevel2/src/tofl2com.for

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by pamelats, Thu Nov 27 13:47:54 2008 UTC revision 1.12 by mocchiut, Tue Aug 11 12:58:24 2009 UTC
# Line 107  c     second index : 1... number of padd Line 107  c     second index : 1... number of padd
107  C--   DATA ZTOF/53.74,53.04,23.94,23.44,-23.49,-24.34/ !Sergio 9.05.2006  C--   DATA ZTOF/53.74,53.04,23.94,23.44,-23.49,-24.34/ !Sergio 9.05.2006
108        REAL tofarm12        REAL tofarm12
109        PARAMETER (tofarm12 = 29.70) ! from 53.39 to 23.69        PARAMETER (tofarm12 = 29.70) ! from 53.39 to 23.69
110        REAL tofarm23                REAL tofarm23        
111        PARAMETER (tofarm23 = 47.61)  ! from 23.69 to -23.92        PARAMETER (tofarm23 = 47.61)  ! from 23.69 to -23.92
112        REAL tofarm13        REAL tofarm13
113        PARAMETER (tofarm13 = 77.31)  ! from 53.39 to -23.92        PARAMETER (tofarm13 = 77.31)  ! from 53.39 to -23.92
# Line 958  C---- Line 958  C----
958           tdc_c(ch32b(i),hb32b(i))=tof32(right,i,itdc)           tdc_c(ch32b(i),hb32b(i))=tof32(right,i,itdc)
959                                               ENDIF                                               ENDIF
960        ENDDO        ENDDO
961                  
962    
963  C---------------------------------------------------------------  C---------------------------------------------------------------
964  C--- calculate track position in paddle using timing difference  C--- calculate track position in paddle using timing difference
# Line 1609  C         if ((betatof_a(i).gt.-1.5).and Line 1609  C         if ((betatof_a(i).gt.-1.5).and
1609  C            icount= icount+1  C            icount= icount+1
1610  C            if (i.le.4) w_i=1./(0.13**2.)  C            if (i.le.4) w_i=1./(0.13**2.)
1611  C            if ((i.ge.5).and.(i.le.8)) w_i=1./(0.16**2.)  C            if ((i.ge.5).and.(i.le.8)) w_i=1./(0.16**2.)
1612  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
1613  C            sxw=sxw + betatof_a(i)*w_i  C            sxw=sxw + betatof_a(i)*w_i
1614  C            sw =sw + w_i  C            sw =sw + w_i
1615  C         endif  C         endif
# Line 1639  c      write(*,*) ytofpos Line 1639  c      write(*,*) ytofpos
1639  c      write(*,*) xtr_tof  c      write(*,*) xtr_tof
1640  c      write(*,*) ytr_tof  c      write(*,*) ytr_tof
1641                
1642   100  continue  c 100  continue
1643            continue
1644    
1645  C  C
1646        RETURN        RETURN
# Line 1783  C k2 constant is taken to be the standar Line 1784  C k2 constant is taken to be the standar
1784          REAL  a1,a2          REAL  a1,a2
1785          INTEGER jj          INTEGER jj
1786    
1787    c get rid of warnings EMILIANO
1788            i = 0
1789            slope = 0
1790            offset = 0
1791            none_find = 0
1792            none_ev = 0
1793            adc_ev = 0
1794            tdc_ev = 0
1795            iadc = 0
1796            itdc = 0
1797            right = 0
1798            left = 0
1799            tof12_y(1) = tof12_y(1)
1800            tof11_x(1) = tof11_x(1)
1801            tof21_y(1) = tof21_y(1)
1802            tof22_x(1) = tof22_x(1)
1803            tof32_y(1) = tof32_y(1)
1804            tof31_x(1) = tof31_x(1)
1805    c get rid of warnings
1806    
1807  C-----------------------------------------------------------  C-----------------------------------------------------------
1808  C--- get data  C--- get data
1809  C-----------------------------------------------------------  C-----------------------------------------------------------
# Line 2166  C*************************************** Line 2187  C***************************************
2187          DATA itop /1,1,2,2,3,3,4,4,1,1,2,2/          DATA itop /1,1,2,2,3,3,4,4,1,1,2,2/
2188          DATA ibot /5,6,5,6,5,6,5,6,3,4,3,4/          DATA ibot /5,6,5,6,5,6,5,6,3,4,3,4/
2189    
2190    
2191    c get rid of warnings EMILIANO
2192            slope = 0
2193            offset = 0
2194            none_find = 0
2195            none_ev = 0
2196            adc_ev = 0
2197            tdc_ev = 0
2198            iadc = 0
2199            itdc = 0
2200            right = 0
2201            left = 0
2202            tof12_y(1) = tof12_y(1)
2203            tof11_x(1) = tof11_x(1)
2204            tof21_y(1) = tof21_y(1)
2205            tof22_x(1) = tof22_x(1)
2206            tof32_y(1) = tof32_y(1)
2207            tof31_x(1) = tof31_x(1)
2208    c get rid of warnings
2209    
2210  C====================================================================  C====================================================================
2211    
2212          tof11_i = hitvec(1)          tof11_i = hitvec(1)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.23