c      k constants  (k1, k2) for calculation of beta
       REAL k_s11s31(2,24),k_s11s32(2,24),k_s12s31(2,18),k_s12s32(2,18)
       REAL k_S21S31(2,6),k_S21S32(2,6),k_S22S31(2,6),k_S22S32(2,6)
       REAL k_s11s21(2,16),k_s11s22(2,16),k_s12s21(2,12),k_s12s22(2,12)

c   relation of time differences in a tof paddle and the location of the
c   passage of the particle
c   first index : 1... number of paddle
c   second index  : 1 = offset, 2 = slope
       REAL y_coor_lin11(8,2),x_coor_lin12(6,2)
       REAL x_coor_lin21(2,2),y_coor_lin22(2,2)
       REAL y_coor_lin31(3,2),x_coor_lin32(3,2)

c   ADC(x) - correction 
c   first index  : 1 = left, 2 = right
c   second index : 1..8 number of paddle
c   third index: parameter as follows
c   left: xkorr=par(1)*exp(-x/par(2))
c   right:xkorr=par(1)*exp(x/par(2))
c   then:adc(x,right/left)=adc(x,right/left)/xkorr
c   normalize to x=0 (middle of paddle)
       REAL adcx11(2,8,4),adcx12(2,6,4)
       REAL adcx21(2,2,4),adcx22(2,2,4)
       REAL adcx31(2,3,4),adcx32(2,3,4)


c   Time Walk - correction 
c   first index  : 1 = left, 2 = right
c   second index : 1..8 number of paddle
       REAL tw11(2,8),tw12(2,6)
       REAL tw21(2,2),tw22(2,2)
       REAL tw31(2,3),tw32(2,3)

c----- tracker info  
       integer  NTRK
       double precision AL_PP(5)

c------

      integer adc(4,12),tdc(4,12)
      integer patterntrig(6)
      COMMON / tofinput /AL_PP,
     &           k_S11S31,k_S11S32,k_S12S31,k_S12S32,
     &           k_S21S31,k_S21S32,k_S22S31,k_S22S32,
     &           k_S11S21,k_S11S22,k_S12S21,k_S12S22,
     &           adcx11,adcx12,adcx21,adcx22,adcx31,adcx32,
     &           tw11,tw12,tw21,tw22,tw31,tw32,
     &           y_coor_lin11,x_coor_lin12,x_coor_lin21,
     &           y_coor_lin22,y_coor_lin31,x_coor_lin32,
     &           adc,tdc,patterntrig,ntrk

      SAVE  /tofinput/


