| 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,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 |
|
| 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 |
|
Parent Directory
| 
Revision Log