/[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.4 by pam-fi, Tue Nov 7 15:55:10 2006 UTC revision 1.8 by bongi, Tue Sep 4 15:44:29 2007 UTC
# Line 27  c     Line 27  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 40  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)        parameter (RESYAV=14.5e-4)
87          double precision RESXAV
88        parameter (RESXAV=4.e-4)        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.4  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23