C      k1 constants for calculation of beta, Z=1, Z=2, Z>2
       REAL k_s11s31(3,24),k_s11s32(3,24),k_s12s31(3,18),k_s12s32(3,18)
       REAL k_S21S31(3,6),k_S21S32(3,6),k_S22S31(3,6),k_S22S32(3,6)
       REAL k_s11s21(3,16),k_s11s22(3,16),k_s12s21(3,12),k_s12s22(3,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)
       double precision trkmip

c------

      integer adc(4,12),tdc(4,12)
      integer patterntrig(6)
      COMMON / tofinput /AL_PP,trkmip,
     &           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/