22 |
* - !??? |
* - !??? |
23 |
* |
* |
24 |
************************************************************************* |
************************************************************************* |
|
|
|
|
|
|
|
c------------------------------------------------------------------------ |
|
|
c |
|
|
c HBOOK initialization variable |
|
|
c |
|
|
c------------------------------------------------------------------------ |
|
|
|
|
|
c parameter (NWPAWC=6500000) |
|
|
cele INTEGER HMEM |
|
|
cele parameter (NWPAWC=8500000) |
|
|
cele common/PAWC/HMEM(NWPAWC) |
|
|
|
|
|
|
|
|
c------------------------------------------------------------------------ |
|
|
c |
|
|
c ntuples id numbers and parameters |
|
|
c |
|
|
c------------------------------------------------------------------------ |
|
|
c$$$ |
|
|
c$$$ parameter (ntp_level0=20) !LEVEL0 |
|
|
c parameter (ntp_level1=21) !LEVEL1 |
|
|
c parameter (ntp_level2=22) !LEVEL2 |
|
|
|
|
|
|
|
|
c parameter (nclstrmax=1000) !maximum number of clusters per event |
|
|
parameter (nclstrmax=500) |
|
|
parameter (nclstrp=17) !maximum number of strips to be checked for |
|
|
! inclusion in the cluster |
|
|
parameter (maxlength=nclstrmax*nclstrp) !maximum number of strip belonging |
|
|
! to clusters for the whole event |
|
|
|
|
|
|
|
25 |
c------------------------------------------------------------------------ |
c------------------------------------------------------------------------ |
26 |
c |
c |
27 |
c spectrometer parameters |
c spectrometer parameters |
45 |
|
|
46 |
parameter (SiDimX=53330.) !Si sensor dimensions in um |
parameter (SiDimX=53330.) !Si sensor dimensions in um |
47 |
parameter (SiDimY=70000.) |
parameter (SiDimY=70000.) |
48 |
|
parameter (SiDimZ=300.) |
49 |
|
|
50 |
* edges of the sensitive areas, in X and Y |
* edges of the sensitive areas, in X and Y |
51 |
parameter (edgeX_l=731.5) ! X side |
parameter (edgeX_l=731.5) ! X side |
67 |
! the other side |
! the other side |
68 |
parameter (glue=30.) !distance between the two sensors in a ladder in um |
parameter (glue=30.) !distance between the two sensors in a ladder in um |
69 |
|
|
70 |
|
parameter (RESYAV=14.5e-4) |
71 |
|
parameter (RESXAV=4.e-4) |
72 |
|
|
73 |
|
parameter (pmuH_h=297.61) ! Hall mobility - holes - cm**2 V-1 s-1 |
74 |
|
parameter (pmuH_e=1258.18) ! Hall mobility - electrons - cm**2 V-1 s-1 |
75 |
|
|
76 |
c-------------------------------------------------------------------------- |
c-------------------------------------------------------------------------- |
77 |
c common to control messages on standard output |
c common to control messages on standard output |