/[PAMELA software]/DarthVader/TrackerLevel2/inc/F77/commontracker.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/inc/F77/commontracker.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mocchiut, Fri May 19 13:15:53 2006 UTC revision 1.3 by pam-fi, Tue Sep 5 12:52:20 2006 UTC
# Line 22  Line 22 
22  *     - !???  *     - !???
23  *      *    
24  *************************************************************************  *************************************************************************
   
   
 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  
   
   
25  c------------------------------------------------------------------------  c------------------------------------------------------------------------
26  c      c    
27  c     spectrometer parameters  c     spectrometer parameters
# Line 100  c--------------------------------------- Line 67  c---------------------------------------
67        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
68    
69    
70    c--------------------------------------------------------------------------
71    c     common to control messages on standard output
72    c--------------------------------------------------------------------------
73    c      INTEGER DBUG
74    c      INTEGER VRBS
75          LOGICAL DEBUG
76          LOGICAL VERBOSE
77          LOGICAL WARNING
78          COMMON/DBG/DEBUG,VERBOSE,WARNING
79          SAVE/DBG/
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23