/[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.11 by mocchiut, Tue Aug 4 14:01:32 2009 UTC
# 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.11
  ViewVC Help
Powered by ViewVC 1.1.23