ToFLevel2/inc/input_tof.txt

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,2),adcx12(2,6,2)
       REAL adcx21(2,2,2),adcx22(2,2,2)
       REAL adcx31(2,3,2),adcx32(2,3,2)


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/


1	c k constants (k1, k2) for calculation of beta
2	REAL k_s11s31(2,24),k_s11s32(2,24),k_s12s31(2,18),k_s12s32(2,18)
3	REAL k_S21S31(2,6),k_S21S32(2,6),k_S22S31(2,6),k_S22S32(2,6)
4	REAL k_s11s21(2,16),k_s11s22(2,16),k_s12s21(2,12),k_s12s22(2,12)
5
6	c relation of time differences in a tof paddle and the location of the
7	c passage of the particle
8	c first index : 1... number of paddle
9	c second index : 1 = offset, 2 = slope
10	REAL y_coor_lin11(8,2),x_coor_lin12(6,2)
11	REAL x_coor_lin21(2,2),y_coor_lin22(2,2)
12	REAL y_coor_lin31(3,2),x_coor_lin32(3,2)
13
14	c ADC(x) - correction
15	c first index : 1 = left, 2 = right
16	c second index : 1..8 number of paddle
17	c third index: parameter as follows
18	c left: xkorr=par(1)*exp(-x/par(2))
19	c right:xkorr=par(1)*exp(x/par(2))
20	c then:adc(x,right/left)=adc(x,right/left)/xkorr
21	c normalize to x=0 (middle of paddle)
22	REAL adcx11(2,8,2),adcx12(2,6,2)
23	REAL adcx21(2,2,2),adcx22(2,2,2)
24	REAL adcx31(2,3,2),adcx32(2,3,2)
25
26
27	c Time Walk - correction
28	c first index : 1 = left, 2 = right
29	c second index : 1..8 number of paddle
30	REAL tw11(2,8),tw12(2,6)
31	REAL tw21(2,2),tw22(2,2)
32	REAL tw31(2,3),tw32(2,3)
33
34	c----- tracker info
35	integer NTRK
36	double precision AL_PP(5)
37
38	c------
39
40	integer adc(4,12),tdc(4,12)
41	integer patterntrig(6)
42	COMMON / tofinput /AL_PP,
43	& k_S11S31,k_S11S32,k_S12S31,k_S12S32,
44	& k_S21S31,k_S21S32,k_S22S31,k_S22S32,
45	& k_S11S21,k_S11S22,k_S12S21,k_S12S22,
46	& adcx11,adcx12,adcx21,adcx22,adcx31,adcx32,
47	& tw11,tw12,tw21,tw22,tw31,tw32,
48	& y_coor_lin11,x_coor_lin12,x_coor_lin21,
49	& y_coor_lin22,y_coor_lin31,x_coor_lin32,
50	& adc,tdc,patterntrig,ntrk
51
52	SAVE /tofinput/
53
54