/[PAMELA software]/tracker/ground/source/common/commontracker.f
ViewVC logotype

Contents of /tracker/ground/source/common/commontracker.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (download) (vendor branch)
Wed Mar 8 15:00:39 2006 UTC (18 years, 9 months ago) by pam-fi
Branch: MAIN, trk-ground
CVS Tags: R3v02, HEAD
Changes since 1.1: +0 -0 lines
Error occurred while calculating annotation data.
First CVS release of tracker ground software (R3v02) 

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
26
27 c------------------------------------------------------------------------
28 c
29 c HBOOK initialization variable
30 c
31 c------------------------------------------------------------------------
32
33 c parameter (NWPAWC=6500000)
34 INTEGER HMEM
35 parameter (NWPAWC=8500000)
36 common/PAWC/HMEM(NWPAWC)
37
38
39 c------------------------------------------------------------------------
40 c
41 c ntuples id numbers and parameters
42 c
43 c------------------------------------------------------------------------
44
45 parameter (ntp_level0=20) !LEVEL0
46 parameter (ntp_level1=21) !LEVEL1
47 parameter (ntp_level2=22) !LEVEL2
48
49
50 c parameter (nclstrmax=1000) !maximum number of clusters per event
51 parameter (nclstrmax=500)
52 parameter (nclstrp=17) !maximum number of strips to be checked for
53 ! inclusion in the cluster
54 parameter (maxlength=nclstrmax*nclstrp) !maximum number of strip belonging
55 ! to clusters for the whole event
56
57
58 c------------------------------------------------------------------------
59 c
60 c spectrometer parameters
61 c
62 c------------------------------------------------------------------------
63
64 parameter (nviews=12) !number of views
65 parameter (nplanes=nviews/2) !number of planes
66 parameter (nladders_view=3) !number of ladders per view
67 parameter (nva1_ladder=8) !number of VA1s per ladder (per side)
68 parameter (nstrips_va1=128) !number of strips per VA1
69
70 parameter (nstrips_ladder=nstrips_va1*nva1_ladder) !number of strips per ladder
71 parameter (nva1_view=nva1_ladder*nladders_view) !number of VA1s per view
72 parameter (nstrips_view=nstrips_va1*nva1_view) !number of strips per view
73 parameter (nva1=nva1_view*nviews) !number of VA1s
74 parameter (nstrips=nstrips_va1*nva1) !number of strips
75
76 parameter (pitchX=51.) !strip pitch in um
77 parameter (pitchY=66.5)
78
79 parameter (SiDimX=53330.) !Si sensor dimensions in um
80 parameter (SiDimY=70000.)
81
82 * edges of the sensitive areas, in X and Y
83 parameter (edgeX_l=731.5) ! X side
84 parameter (edgeX_r=731.5) !
85 parameter (edgeX_u=900.) !
86 parameter (edgeX_d=1117.) !
87 parameter (edgeY_l=985.) ! Y side
88 parameter (edgeY_r=985.5) !
89 parameter (edgeY_u=1221.) !
90 parameter (edgeY_d=894.) !
91
92
93 parameter (edgeX=edgeX_l) !distance of the first strip from the Si sensor
94 parameter (edgeY=edgeY_l) ! edge in um. NB while X strips a simmetrically
95 ! arranged respect to the Si sensor centre
96 ! (731.5 um on both sides), Y strips are not
97 ! centered: 985.5 um is the distance of the first
98 ! strip on the hybrid side, 985 um is the one on
99 ! the other side
100 parameter (glue=30.) !distance between the two sensors in a ladder in um
101
102
103

  ViewVC Help
Powered by ViewVC 1.1.23