1 |
c k constants (k1, k2) for calculation of beta |
c k1 constants for calculation of beta, Z=1, Z=2, Z>2 |
2 |
REAL k_s11s31(2,24),k_s11s32(2,24),k_s12s31(2,18),k_s12s32(2,18) |
REAL k_s11s31(3,24),k_s11s32(3,24),k_s12s31(3,18),k_s12s32(3,18) |
3 |
REAL k_S21S31(2,6),k_S21S32(2,6),k_S22S31(2,6),k_S22S32(2,6) |
REAL k_S21S31(3,6),k_S21S32(3,6),k_S22S31(3,6),k_S22S32(3,6) |
4 |
REAL k_s11s21(2,16),k_s11s22(2,16),k_s12s21(2,12),k_s12s22(2,12) |
REAL k_s11s21(3,16),k_s11s22(3,16),k_s12s21(3,12),k_s12s22(3,12) |
5 |
|
|
6 |
c relation of time differences in a tof paddle and the location of the |
c relation of time differences in a tof paddle and the location of the |
7 |
c passage of the particle |
c passage of the particle |
34 |
c----- tracker info |
c----- tracker info |
35 |
integer NTRK |
integer NTRK |
36 |
double precision AL_PP(5) |
double precision AL_PP(5) |
37 |
|
double precision trkmip |
38 |
|
|
39 |
c------ |
c------ |
40 |
|
|
41 |
integer adc(4,12),tdc(4,12) |
integer adc(4,12),tdc(4,12) |
42 |
integer patterntrig(6) |
integer patterntrig(6) |
43 |
COMMON / tofinput /AL_PP, |
COMMON / tofinput /AL_PP,trkmip, |
44 |
& k_S11S31,k_S11S32,k_S12S31,k_S12S32, |
& k_S11S31,k_S11S32,k_S12S31,k_S12S32, |
45 |
& k_S21S31,k_S21S32,k_S22S31,k_S22S32, |
& k_S21S31,k_S21S32,k_S22S31,k_S22S32, |
46 |
& k_S11S21,k_S11S22,k_S12S21,k_S12S22, |
& k_S11S21,k_S11S22,k_S12S21,k_S12S22, |