| 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/ |