/[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.4 by pam-fi, Tue Nov 7 15:55:10 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 99  c--------------------------------------- Line 66  c---------------------------------------
66                                  ! the other side                                  ! the other side
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          parameter (RESYAV=14.5e-4)
70          parameter (RESXAV=4.e-4)
71    
72    c--------------------------------------------------------------------------
73    c     common to control messages on standard output
74    c--------------------------------------------------------------------------
75    c      INTEGER DBUG
76    c      INTEGER VRBS
77          LOGICAL DEBUG
78          LOGICAL VERBOSE
79          LOGICAL WARNING
80          COMMON/DBG/DEBUG,VERBOSE,WARNING
81          SAVE/DBG/
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23