/[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.10 by mocchiut, Fri Nov 28 14:44:22 2008 UTC
# Line 1783  C k2 constant is taken to be the standar Line 1783  C k2 constant is taken to be the standar
1783          REAL  a1,a2          REAL  a1,a2
1784          INTEGER jj          INTEGER jj
1785    
1786    c get rid of warnings EMILIANO
1787            i = 0
1788            slope = 0
1789            offset = 0
1790            none_find = 0
1791            none_ev = 0
1792            adc_ev = 0
1793            tdc_ev = 0
1794            iadc = 0
1795            itdc = 0
1796            right = 0
1797            left = 0
1798            tof12_y(1) = tof12_y(1)
1799            tof11_x(1) = tof11_x(1)
1800            tof21_y(1) = tof21_y(1)
1801            tof22_x(1) = tof22_x(1)
1802            tof32_y(1) = tof32_y(1)
1803            tof31_x(1) = tof31_x(1)
1804    c get rid of warnings
1805    
1806  C-----------------------------------------------------------  C-----------------------------------------------------------
1807  C--- get data  C--- get data
1808  C-----------------------------------------------------------  C-----------------------------------------------------------
# Line 2166  C*************************************** Line 2186  C***************************************
2186          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/
2187          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/
2188    
2189    
2190    c get rid of warnings EMILIANO
2191            slope = 0
2192            offset = 0
2193            none_find = 0
2194            none_ev = 0
2195            adc_ev = 0
2196            tdc_ev = 0
2197            iadc = 0
2198            itdc = 0
2199            right = 0
2200            left = 0
2201            tof12_y(1) = tof12_y(1)
2202            tof11_x(1) = tof11_x(1)
2203            tof21_y(1) = tof21_y(1)
2204            tof22_x(1) = tof22_x(1)
2205            tof32_y(1) = tof32_y(1)
2206            tof31_x(1) = tof31_x(1)
2207    c get rid of warnings
2208    
2209  C====================================================================  C====================================================================
2210    
2211          tof11_i = hitvec(1)          tof11_i = hitvec(1)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.23