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