--- DarthVader/TrackerLevel2/inc/F77/commontracker.f 2006/05/19 13:15:53 1.1 +++ DarthVader/TrackerLevel2/inc/F77/commontracker.f 2006/05/30 16:30:37 1.2 @@ -43,8 +43,8 @@ c------------------------------------------------------------------------ c$$$ c$$$ parameter (ntp_level0=20) !LEVEL0 - parameter (ntp_level1=21) !LEVEL1 - parameter (ntp_level2=22) !LEVEL2 +c parameter (ntp_level1=21) !LEVEL1 +c parameter (ntp_level2=22) !LEVEL2 c parameter (nclstrmax=1000) !maximum number of clusters per event @@ -100,4 +100,13 @@ parameter (glue=30.) !distance between the two sensors in a ladder in um - +c-------------------------------------------------------------------------- +c common to control messages on standard output +c-------------------------------------------------------------------------- +c INTEGER DBUG +c INTEGER VRBS + LOGICAL DEBUG + LOGICAL VERBOSE + LOGICAL WARNING + COMMON/DBG/DEBUG,VERBOSE,WARNING + SAVE/DBG/