1 |
mocchiut |
1.3 |
c k1 constants for calculation of beta, Z=1, Z=2, Z>2 |
2 |
|
|
REAL k_s11s31(3,24),k_s11s32(3,24),k_s12s31(3,18),k_s12s32(3,18) |
3 |
|
|
REAL k_S21S31(3,6),k_S21S32(3,6),k_S22S31(3,6),k_S22S32(3,6) |
4 |
|
|
REAL k_s11s21(3,16),k_s11s22(3,16),k_s12s21(3,12),k_s12s22(3,12) |
5 |
mocchiut |
1.1 |
|
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 |
mocchiut |
1.2 |
REAL adcx11(2,8,4),adcx12(2,6,4) |
23 |
|
|
REAL adcx21(2,2,4),adcx22(2,2,4) |
24 |
|
|
REAL adcx31(2,3,4),adcx32(2,3,4) |
25 |
mocchiut |
1.1 |
|
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 |
mocchiut |
1.3 |
double precision trkmip |
38 |
mocchiut |
1.1 |
|
39 |
|
|
c------ |
40 |
|
|
|
41 |
|
|
integer adc(4,12),tdc(4,12) |
42 |
|
|
integer patterntrig(6) |
43 |
mocchiut |
1.3 |
COMMON / tofinput /AL_PP,trkmip, |
44 |
mocchiut |
1.1 |
& k_S11S31,k_S11S32,k_S12S31,k_S12S32, |
45 |
|
|
& k_S21S31,k_S21S32,k_S22S31,k_S22S32, |
46 |
|
|
& k_S11S21,k_S11S22,k_S12S21,k_S12S22, |
47 |
|
|
& adcx11,adcx12,adcx21,adcx22,adcx31,adcx32, |
48 |
|
|
& tw11,tw12,tw21,tw22,tw31,tw32, |
49 |
|
|
& y_coor_lin11,x_coor_lin12,x_coor_lin21, |
50 |
|
|
& y_coor_lin22,y_coor_lin31,x_coor_lin32, |
51 |
|
|
& adc,tdc,patterntrig,ntrk |
52 |
|
|
|
53 |
|
|
SAVE /tofinput/ |
54 |
|
|
|
55 |
|
|
|