/[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.2 by pam-fi, Tue May 30 16:30:37 2006 UTC revision 1.8 by bongi, Tue Sep 4 15:44:29 2007 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  
 c      parameter (ntp_level1=21) !LEVEL1  
 c      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
28  c      c    
29  c------------------------------------------------------------------------  c------------------------------------------------------------------------
   
30        parameter (nviews=12)     !number of views        parameter (nviews=12)     !number of views
31        parameter (nplanes=nviews/2) !number of planes        parameter (nplanes=nviews/2) !number of planes
32        parameter (nladders_view=3) !number of ladders per view        parameter (nladders_view=3) !number of ladders per view
# Line 73  c--------------------------------------- Line 39  c---------------------------------------
39        parameter (nva1=nva1_view*nviews) !number of VA1s        parameter (nva1=nva1_view*nviews) !number of VA1s
40        parameter (nstrips=nstrips_va1*nva1) !number of strips        parameter (nstrips=nstrips_va1*nva1) !number of strips
41    
42          double precision pitchX
43        parameter (pitchX=51.)    !strip pitch in um        parameter (pitchX=51.)    !strip pitch in um
44          double precision pitchY
45        parameter (pitchY=66.5)        parameter (pitchY=66.5)
46    
47          double precision SiDimX
48        parameter (SiDimX=53330.)  !Si sensor dimensions in um        parameter (SiDimX=53330.)  !Si sensor dimensions in um
49          double precision SiDimY
50        parameter (SiDimY=70000.)        parameter (SiDimY=70000.)
51          double precision SiDimZ
52          parameter (SiDimZ=300.)
53    
54  *     edges of the sensitive areas, in X and Y  *     edges of the sensitive areas, in X and Y
55          double precision edgeX_l
56        parameter (edgeX_l=731.5) ! X side        parameter (edgeX_l=731.5) ! X side
57          double precision edgeX_r
58        parameter (edgeX_r=731.5) !        parameter (edgeX_r=731.5) !
59          double precision edgeX_u
60        parameter (edgeX_u=900.)  !        parameter (edgeX_u=900.)  !
61          double precision edgeX_d
62        parameter (edgeX_d=1117.) !        parameter (edgeX_d=1117.) !
63          double precision edgeY_l
64        parameter (edgeY_l=985.)  ! Y side        parameter (edgeY_l=985.)  ! Y side
65          double precision edgeY_r
66        parameter (edgeY_r=985.5) !        parameter (edgeY_r=985.5) !
67          double precision edgeY_u
68        parameter (edgeY_u=1221.) !        parameter (edgeY_u=1221.) !
69          double precision edgeY_d
70        parameter (edgeY_d=894.)  !        parameter (edgeY_d=894.)  !
71    
72    
73          double precision edgeX
74        parameter (edgeX=edgeX_l) !distance of the first strip from the Si sensor        parameter (edgeX=edgeX_l) !distance of the first strip from the Si sensor
75          double precision edgeY
76        parameter (edgeY=edgeY_l) ! edge in um. NB while X strips a simmetrically        parameter (edgeY=edgeY_l) ! edge in um. NB while X strips a simmetrically
77                                  ! arranged respect to the Si sensor centre                                  ! arranged respect to the Si sensor centre
78                                  ! (731.5 um on both sides), Y strips are not                                  ! (731.5 um on both sides), Y strips are not
79                                  ! centered: 985.5 um is the distance of the first                                  ! centered: 985.5 um is the distance of the first
80                                  ! strip on the hybrid side, 985 um is the one on                                  ! strip on the hybrid side, 985 um is the one on
81                                  ! the other side                                  ! the other side
82          double precision glue
83        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
84    
85          double precision RESYAV
86          parameter (RESYAV=14.5e-4)
87          double precision RESXAV
88          parameter (RESXAV=4.e-4)
89    
90          parameter (ADCsatx=80)    !saturation limit x-side
91          parameter (ADCsaty=2980)  !saturation limit y-side
92    c      parameter (ADCsatx=2000)    !saturation limit x-side
93    c      parameter (ADCsaty=2000)  !saturation limit y-side
94          
95          
96          double precision pmuH_h
97          parameter (pmuH_h=297.61)  ! Hall mobility - holes     - cm**2 V-1 s-1
98          double precision pmuH_e
99          parameter (pmuH_e=1258.18) ! Hall mobility - electrons - cm**2 V-1 s-1
100    
101  c--------------------------------------------------------------------------  c--------------------------------------------------------------------------
102  c     common to control messages on standard output  c     common to control messages on standard output
103  c--------------------------------------------------------------------------  c--------------------------------------------------------------------------
104  c      INTEGER DBUG  c      INTEGER DBUG
105  c      INTEGER VRBS  c      INTEGER VRBS
106        LOGICAL DEBUG  c$$$      LOGICAL DEBUG
107        LOGICAL VERBOSE  c$$$      LOGICAL VERBOSE
108        LOGICAL WARNING  c$$$      LOGICAL WARNING
109        COMMON/DBG/DEBUG,VERBOSE,WARNING        INTEGER debug
110        SAVE/DBG/        INTEGER verbose
111          INTEGER warning
112          COMMON/dbg/debug,verbose,warning
113          SAVE/dbg/
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23