43 |
c------------------------------------------------------------------------ |
c------------------------------------------------------------------------ |
44 |
c$$$ |
c$$$ |
45 |
c$$$ parameter (ntp_level0=20) !LEVEL0 |
c$$$ parameter (ntp_level0=20) !LEVEL0 |
46 |
parameter (ntp_level1=21) !LEVEL1 |
c parameter (ntp_level1=21) !LEVEL1 |
47 |
parameter (ntp_level2=22) !LEVEL2 |
c parameter (ntp_level2=22) !LEVEL2 |
48 |
|
|
49 |
|
|
50 |
c parameter (nclstrmax=1000) !maximum number of clusters per event |
c parameter (nclstrmax=1000) !maximum number of clusters per event |
100 |
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 |
101 |
|
|
102 |
|
|
103 |
|
c-------------------------------------------------------------------------- |
104 |
|
c common to control messages on standard output |
105 |
|
c-------------------------------------------------------------------------- |
106 |
|
c INTEGER DBUG |
107 |
|
c INTEGER VRBS |
108 |
|
LOGICAL DEBUG |
109 |
|
LOGICAL VERBOSE |
110 |
|
LOGICAL WARNING |
111 |
|
COMMON/DBG/DEBUG,VERBOSE,WARNING |
112 |
|
SAVE/DBG/ |