--- DarthVader/TrackerLevel2/inc/F77/commontracker.f 2006/05/19 13:15:53 1.1 +++ DarthVader/TrackerLevel2/inc/F77/commontracker.f 2006/11/07 15:55:10 1.4 @@ -22,39 +22,6 @@ * - !??? * ************************************************************************* - - -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 - parameter (ntp_level1=21) !LEVEL1 - 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 - - c------------------------------------------------------------------------ c c spectrometer parameters @@ -99,5 +66,16 @@ ! the other side parameter (glue=30.) !distance between the two sensors in a ladder in um + parameter (RESYAV=14.5e-4) + parameter (RESXAV=4.e-4) - +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/