inc/F77/commontracker.f

************************************************************************
*     
*     Common commontracker.f
*     
*     contains tracker general variables definitions
*     
*     to be included in:
*     - ../readraw/readraw.F
*     - ../reduction/reduction.f
*     - ../reduction/fillpedsig.f
*     - ../reduction/filladc.f
*     - ../reduction/cncomp.f
*     - ../reduction/cnoise.f
*     - ../reduction/cutcn.f
*     - ../analysis/preanalysis.f
*     - ../analysis/analysis.f
*     - ../align/align.f
*     - ../magnet/read_B.f
*     - !???
*     
*     parameters:
*     - !???
*     
*************************************************************************
c------------------------------------------------------------------------
c     
c     spectrometer parameters
c     
c------------------------------------------------------------------------
      parameter (nviews=12)     !number of views
      parameter (nplanes=nviews/2) !number of planes
      parameter (nladders_view=3) !number of ladders per view
      parameter (nva1_ladder=8) !number of VA1s per ladder (per side)
      parameter (nstrips_va1=128) !number of strips per VA1

      parameter (nstrips_ladder=nstrips_va1*nva1_ladder) !number of strips per ladder
      parameter (nva1_view=nva1_ladder*nladders_view) !number of VA1s per view
      parameter (nstrips_view=nstrips_va1*nva1_view) !number of strips per view
      parameter (nva1=nva1_view*nviews) !number of VA1s
      parameter (nstrips=nstrips_va1*nva1) !number of strips

      double precision pitchX
      parameter (pitchX=51.)    !strip pitch in um
      double precision pitchY
      parameter (pitchY=66.5)

      double precision SiDimX
      parameter (SiDimX=53330.)  !Si sensor dimensions in um
      double precision SiDimY
      parameter (SiDimY=70000.)
      double precision SiDimZ
      parameter (SiDimZ=300.)

*     edges of the sensitive areas, in X and Y
      double precision edgeX_l
      parameter (edgeX_l=731.5) ! X side
      double precision edgeX_r
      parameter (edgeX_r=731.5) !
      double precision edgeX_u
      parameter (edgeX_u=900.)  !
      double precision edgeX_d
      parameter (edgeX_d=1117.) !
      double precision edgeY_l
      parameter (edgeY_l=985.)  ! Y side
      double precision edgeY_r
      parameter (edgeY_r=985.5) !
      double precision edgeY_u
      parameter (edgeY_u=1221.) !
      double precision edgeY_d
      parameter (edgeY_d=894.)  !


      double precision edgeX
      parameter (edgeX=edgeX_l) !distance of the first strip from the Si sensor
      double precision edgeY
      parameter (edgeY=edgeY_l) ! edge in um. NB while X strips a simmetrically
                                ! arranged respect to the Si sensor centre 
                                ! (731.5 um on both sides), Y strips are not
                                ! centered: 985.5 um is the distance of the first
                                ! strip on the hybrid side, 985 um is the one on
                                ! the other side
      double precision glue
      parameter (glue=30.)      !distance between the two sensors in a ladder in um

      double precision RESYAV
      parameter (RESYAV=14.5e-4)
      double precision RESXAV
      parameter (RESXAV=4.e-4)

      parameter (ADCsatx=80)    !saturation limit x-side 
      parameter (ADCsaty=2980)  !saturation limit y-side
c      parameter (ADCsatx=2000)    !saturation limit x-side 
c      parameter (ADCsaty=2000)  !saturation limit y-side
      
      
      double precision pmuH_h
      parameter (pmuH_h=297.61)  ! Hall mobility - holes     - cm**2 V-1 s-1
      double precision pmuH_e
      parameter (pmuH_e=1258.18) ! Hall mobility - electrons - cm**2 V-1 s-1

c--------------------------------------------------------------------------
c     common to control messages on standard output
c--------------------------------------------------------------------------
c      INTEGER DBUG
c      INTEGER VRBS
c$$$      LOGICAL DEBUG
c$$$      LOGICAL VERBOSE
c$$$      LOGICAL WARNING
      INTEGER debug
      INTEGER verbose
      INTEGER warning
      COMMON/dbg/debug,verbose,warning
      SAVE/dbg/
1	************************************************************************
2	*
3	* Common commontracker.f
4	*
5	* contains tracker general variables definitions
6	*
7	* to be included in:
8	* - ../readraw/readraw.F
9	* - ../reduction/reduction.f
10	* - ../reduction/fillpedsig.f
11	* - ../reduction/filladc.f
12	* - ../reduction/cncomp.f
13	* - ../reduction/cnoise.f
14	* - ../reduction/cutcn.f
15	* - ../analysis/preanalysis.f
16	* - ../analysis/analysis.f
17	* - ../align/align.f
18	* - ../magnet/read_B.f
19	* - !???
20	*
21	* parameters:
22	* - !???
23	*
24	*************************************************************************
25	c------------------------------------------------------------------------
26	c
27	c spectrometer parameters
28	c
29	c------------------------------------------------------------------------
30	parameter (nviews=12) !number of views
31	parameter (nplanes=nviews/2) !number of planes
32	parameter (nladders_view=3) !number of ladders per view
33	parameter (nva1_ladder=8) !number of VA1s per ladder (per side)
34	parameter (nstrips_va1=128) !number of strips per VA1
35
36	parameter (nstrips_ladder=nstrips_va1*nva1_ladder) !number of strips per ladder
37	parameter (nva1_view=nva1_ladder*nladders_view) !number of VA1s per view
38	parameter (nstrips_view=nstrips_va1*nva1_view) !number of strips per view
39	parameter (nva1=nva1_view*nviews) !number of VA1s
40	parameter (nstrips=nstrips_va1*nva1) !number of strips
41
42	double precision pitchX
43	parameter (pitchX=51.) !strip pitch in um
44	double precision pitchY
45	parameter (pitchY=66.5)
46
47	double precision SiDimX
48	parameter (SiDimX=53330.) !Si sensor dimensions in um
49	double precision SiDimY
50	parameter (SiDimY=70000.)
51	double precision SiDimZ
52	parameter (SiDimZ=300.)
53
54	* edges of the sensitive areas, in X and Y
55	double precision edgeX_l
56	parameter (edgeX_l=731.5) ! X side
57	double precision edgeX_r
58	parameter (edgeX_r=731.5) !
59	double precision edgeX_u
60	parameter (edgeX_u=900.) !
61	double precision edgeX_d
62	parameter (edgeX_d=1117.) !
63	double precision edgeY_l
64	parameter (edgeY_l=985.) ! Y side
65	double precision edgeY_r
66	parameter (edgeY_r=985.5) !
67	double precision edgeY_u
68	parameter (edgeY_u=1221.) !
69	double precision edgeY_d
70	parameter (edgeY_d=894.) !
71
72
73	double precision edgeX
74	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
77	! arranged respect to the Si sensor centre
78	! (731.5 um on both sides), Y strips are not
79	! centered: 985.5 um is the distance of the first
80	! strip on the hybrid side, 985 um is the one on
81	! the other side
82	double precision glue
83	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--------------------------------------------------------------------------
102	c common to control messages on standard output
103	c--------------------------------------------------------------------------
104	c INTEGER DBUG
105	c INTEGER VRBS
106	c$$$ LOGICAL DEBUG
107	c$$$ LOGICAL VERBOSE
108	c$$$ LOGICAL WARNING
109	INTEGER debug
110	INTEGER verbose
111	INTEGER warning
112	COMMON/dbg/debug,verbose,warning
113	SAVE/dbg/