C************************************************************** C* * C* C A L S T R W . C D E * C* * C************************************************************** C--- C--- Common block containing the calibration parameters for the straws. C--- C--- ********************************************************* C C DT0STR1(k,i): t0 for wire k in layer i Straw 1 (STR1) C C DT0STR2(k,i): t0 for wire k in layer i Straw 2 (STR2) C C ITAREA1(j,i): Integral area thru the jth bin for ith layer of straw 1 C normalized to 1. C C ITAREA2(j,i): same as above for straw 2 C Notice: in position 299 and 300 are kept the values of the time C window limits. C---- Brief outline of the method C--- S stands for integral where ^ (_) is the upper (lower) integration limit C Starting from S_0^X (dn/dx)dx = S_0^T (dn/dt)dt, being dn/dx the number C of hits as a function of x ( distance from a wire) and dn/dt the number C of hits as a function of t, one has the following: C dn/dx=k is a constant (flat phi distribution), thus kX= S_0^T (dn/dt)dt. C Then dividing both terms by the total number of events N = kR, R straw C radius, one obtains X/R = S_0^T (dn/dt)dt /N. C ITAREA1 and ITAREA2 are S_0^T (dn/dt)dt /N as a function of T. C dn/dt is the measured time distribution C REAL DT0STR1(64,2),DT0STR2(64,2) REAL ITAREA1(300,2),ITAREA2(300,2) REAL ITL1(2),ITH1(2),ITL2(2),ITH2(2) COMMON /CALSTRW/DT0STR1,DT0STR2,ITAREA1,ITAREA2, & ITL1,ITH1,ITL2,ITH2