gpamela/gpcdes/gpdgeo.inc

*
* $Id: gpdgeo.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $
*
* $Log: gpdgeo.inc,v $
* Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
* First GPAMELA release on CVS
*
*
*
* gpdgeo.inc
*
*                17/10/2002  22.31.45  by  Jens Lund
*CMZ :  3.00/00 14/11/2000  09.13.05  by  Emiliano Mocchiutti
*CMZ :  2.02/00 12/10/2000  18.43.21  by  Francesco Cafagna
*CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.02/00 04/02/2000  18.40.04  by  Francesco Cafagna
*CMZ :  1.01/00 06/05/96  11.40.48  by  Francesco Cafagna
*CMZ :  1.00/02 02/04/96  16.44.16  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   05/12/95
        DATA PAME/0.,75.,200./
        DATA SHEL/69.8,70.,75./
C        DATA TFLA/126.8,127.,0.,33.45,0.,360./
        DATA TFLA/0.,75.,.125/
        DATA TSPH/0., 150.,0.,0.,0.,360./
        DATA GAPTOP/2./
C TOF data
        DATA S11/22.,19.2,.45/
        DATA S12/22.,19.2,.45/
        DATA S21/9.,7.2,.35/
        DATA S22/9.,7.2,.35/
        DATA S31/9.,7.2,.35/
        DATA S32/9.,7.2,.35/
        DATA S4/18.,16.,.5/
        DATA SCTIC/0.025/
        DATA NS11X/9/
        DATA NS12Y/9/
        DATA NS21X/4/
        DATA NS22Y/4/
        DATA NS31Y/4/
        DATA NS32X/4/
        DATA ZS11,ZS12,ZS21,ZS22,ZS31,ZS32,ZS4
     +       /107.8,106.8,74.9,74.1,27.1,26.3,2.3/
C CAT data
*EM:
*JeL:
        DATA CATA/28.0,0.6,27.165/
*END: JeL.
c        DATA CATB/22.05,21.05,0.55/
        DATA CATB/22.2,21.3,0.5/
c        DATA CATL/15.75,6.675,0.55/
c        DATA CATT/6.3,14.375,0.55/
        DATA CATL/2.6,14.9,0.4/
        DATA CATT/8.45,21.2,0.4/
        DATA CATH/9.4,7.7,0.5/
        DATA CATF/2.6,3.15,0.4/
        DATA CATO/9.3,0.05,0.5/
        DATA CATP/0.05,7.7,0.5/
        DATA ZCAT/75.85/
C CAS data
*EM:
*JeL:
        DATA CASA/21.45,0.6,20.55/
*END: JeL.
C        DATA CASX/15.25,0.55,23./
C        DATA CASY/0.55,14.75,23./
        DATA CSSX/15.7,0.5,21.6/
        DATA CSSY/0.5,15.7,21.6/
        DATA CASX/15.6,0.4,21.5/
        DATA CASY/0.4,15.6,21.5/
        DATA CASXD/2.4/
        DATA CASYD/2.2/
        DATA ZCAS/51.25/
*END: EM.
C TRD data
        DATA TRFR/19,17.5,.2/
        DATA TRFI/15.5,14.,.2/
        DATA TRBS/3.3,18.5,1./
        DATA TRDS/24.,24.5,13.5/
        DATA TRDT/3.,3.,.25/
        DATA TRDB/17.7,18.5,0/
        DATA TRSO/0.197,0.2,14./
C        DATA TRSI/0.,0.197,14./
        DATA TRSI/0.,0.2,14./
        DATA TRRA/13.2,14.,0/
        DATA TRAN/1.75,1.75,1.0/
        DATA TRAI/1.75,1.65,0.9/
        DATA ZTRD/90.55/
        DATA GAPTRD/1.5/
C Spectrometer data
        DATA SPEB/12.,11.4,0./
        DATA MGPL/12.,11.4,4.05/
        DATA MGPI/8.05,6.55,4.05/
        DATA TRPB/12.,11.4,0.4/
        DATA TRPL/0.,7.,0.4/
        DATA TRSL/0.,7.,0./
        DATA TSPA/2.6666,3.5,0.015/
        DATA TRCP/0.005,7.,0.3/
        DATA ZSPEC/50.6/
        DATA NTRSL/3/
C Calorimeter data
*EM:
*        DATA CASI/3.9,3.9,0.019/
        DATA CASI/3.904,3.904,0.019/
*F.V.&ML:
C        DATA CG10/12.1,12.1,0.0875/
C        DATA C10C/12.1,12.1,0.08/
C        DATA CAAB/12.1,12.1,0.133/
C        DATA CAPL/12.1,12.1,0./
C        DATA CAAD/12.1,12.1,0.133/
C        DATA CAPD/12.1,12.1,0./
C        DATA CALB/19.7,19.7,10.2/
        DATA CG10/12.3,12.3,0.0875/
        DATA C10C/12.3,12.3,0.08/
        DATA CAAB/12.3,12.3,0.1315/
        DATA CAPL/12.3,12.3,0./
        DATA CANS/12.3,12.3,0./
        DATA CAAD/12.3,12.3,0.133/
        DATA CAPD/12.3,12.3,0./
*ML:
*       DATA CALB/19.7,19.7,10.45/
        DATA CALB/23.2,23.2,10.589/
*END ML.
*END F.V.&ML.
*ML:
*        DATA CALS/20.,20.,10.5/
        DATA CALS/24.2,24.2,10.639/
        DATA ZCAL/13.05/
C with ZCAL=13.03 the distance between the bottom of the magnet and
C the top of the top silicon strips is about 44.24 mm, as it has to be
C if 37 mm is the height of the base plate and 7.24 mm is the distance 
C between the bottom of the end of the base plate and the top silicium 
C strips. Because of the difference is small and the height of the base
C plate could be approximate, I left ZCAL=13.05.  
C       DATA ZCAL/13.03/
*END ML.
*        DATA CALSTWID/0.36/
        DATA CALSTWID/0.244/
*
* NOTE: IF you change NCAPL, remember to modify the NCPL, NCSI, NOCAPL,
*     NOCASI array dimentions in $GPKEY, $GPDKEY common and data block.
*     The corresponding FFKEY call in GPFFR must be changed as well.
*     The GPDAT loop on these arrays should be checked too.
*
        DATA NCAPL/22/
        DATA NCAPLD/1/
C        DATA DCASIX/0.3/
*F.V.&ML:
C        DATA DCASIX/0.292/
        DATA DCASIX/0.242/
*END F.V.&ML.
C        DATA DCASIY/0.3/
* F.V.&FRA:
C        DATA DCASIY/0.292/
        DATA DCASIY/0.242/
* END F.V.&FRA
        DATA DCASIZ/0.15/
        DATA NCASTR/32/
*
* F.V.&ML:
C        DATA CAKA/12.,12.1,0.005/
C        DATA CAGL/12.,12.1,0.005/
C        DATA CAKP/12.,12.1,0.0025/
        DATA CAKA/12.3,12.3,0.0025/
        DATA CAGL/12.3,12.3,0.005/
        DATA CAKP/12.3,12.3,0.0025/
* END F.V.&ML.
*END EM.
C
1	cafagna	3.1	*
2	pamela	3.2	* $Id: gpdgeo.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $
3			*
4			* $Log: gpdgeo.inc,v $
5			* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna
6			* First GPAMELA release on CVS
7	cafagna	3.1	*
8			*
9			*
10			* gpdgeo.inc
11			*
12	pamela	3.2	* 17/10/2002 22.31.45 by Jens Lund
13	cafagna	3.1	*CMZ : 3.00/00 14/11/2000 09.13.05 by Emiliano Mocchiutti
14			*CMZ : 2.02/00 12/10/2000 18.43.21 by Francesco Cafagna
15			*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
16			*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
17			*CMZ : 1.02/00 04/02/2000 18.40.04 by Francesco Cafagna
18			*CMZ : 1.01/00 06/05/96 11.40.48 by Francesco Cafagna
19			*CMZ : 1.00/02 02/04/96 16.44.16 by Francesco Cafagna
20			*-- Author : Francesco Cafagna 05/12/95
21			DATA PAME/0.,75.,200./
22			DATA SHEL/69.8,70.,75./
23			C DATA TFLA/126.8,127.,0.,33.45,0.,360./
24			DATA TFLA/0.,75.,.125/
25			DATA TSPH/0., 150.,0.,0.,0.,360./
26			DATA GAPTOP/2./
27			C TOF data
28			DATA S11/22.,19.2,.45/
29			DATA S12/22.,19.2,.45/
30			DATA S21/9.,7.2,.35/
31			DATA S22/9.,7.2,.35/
32			DATA S31/9.,7.2,.35/
33			DATA S32/9.,7.2,.35/
34			DATA S4/18.,16.,.5/
35			DATA SCTIC/0.025/
36			DATA NS11X/9/
37			DATA NS12Y/9/
38			DATA NS21X/4/
39			DATA NS22Y/4/
40			DATA NS31Y/4/
41			DATA NS32X/4/
42			DATA ZS11,ZS12,ZS21,ZS22,ZS31,ZS32,ZS4
43			+ /107.8,106.8,74.9,74.1,27.1,26.3,2.3/
44			C CAT data
45			*EM:
46	pamela	3.2	*JeL:
47			DATA CATA/28.0,0.6,27.165/
48			*END: JeL.
49	cafagna	3.1	c DATA CATB/22.05,21.05,0.55/
50			DATA CATB/22.2,21.3,0.5/
51			c DATA CATL/15.75,6.675,0.55/
52			c DATA CATT/6.3,14.375,0.55/
53			DATA CATL/2.6,14.9,0.4/
54			DATA CATT/8.45,21.2,0.4/
55			DATA CATH/9.4,7.7,0.5/
56			DATA CATF/2.6,3.15,0.4/
57			DATA CATO/9.3,0.05,0.5/
58			DATA CATP/0.05,7.7,0.5/
59	pamela	3.2	DATA ZCAT/75.85/
60	cafagna	3.1	C CAS data
61			*EM:
62	pamela	3.2	*JeL:
63			DATA CASA/21.45,0.6,20.55/
64			*END: JeL.
65	cafagna	3.1	C DATA CASX/15.25,0.55,23./
66			C DATA CASY/0.55,14.75,23./
67			DATA CSSX/15.7,0.5,21.6/
68			DATA CSSY/0.5,15.7,21.6/
69			DATA CASX/15.6,0.4,21.5/
70			DATA CASY/0.4,15.6,21.5/
71			DATA CASXD/2.4/
72			DATA CASYD/2.2/
73			DATA ZCAS/51.25/
74			*END: EM.
75			C TRD data
76			DATA TRFR/19,17.5,.2/
77			DATA TRFI/15.5,14.,.2/
78			DATA TRBS/3.3,18.5,1./
79			DATA TRDS/24.,24.5,13.5/
80			DATA TRDT/3.,3.,.25/
81			DATA TRDB/17.7,18.5,0/
82			DATA TRSO/0.197,0.2,14./
83			C DATA TRSI/0.,0.197,14./
84			DATA TRSI/0.,0.2,14./
85			DATA TRRA/13.2,14.,0/
86			DATA TRAN/1.75,1.75,1.0/
87			DATA TRAI/1.75,1.65,0.9/
88			DATA ZTRD/90.55/
89			DATA GAPTRD/1.5/
90			C Spectrometer data
91			DATA SPEB/12.,11.4,0./
92			DATA MGPL/12.,11.4,4.05/
93			DATA MGPI/8.05,6.55,4.05/
94			DATA TRPB/12.,11.4,0.4/
95			DATA TRPL/0.,7.,0.4/
96			DATA TRSL/0.,7.,0./
97			DATA TSPA/2.6666,3.5,0.015/
98			DATA TRCP/0.005,7.,0.3/
99			DATA ZSPEC/50.6/
100			DATA NTRSL/3/
101			C Calorimeter data
102			*EM:
103			* DATA CASI/3.9,3.9,0.019/
104			DATA CASI/3.904,3.904,0.019/
105	pamela	3.2	*F.V.&ML:
106			C DATA CG10/12.1,12.1,0.0875/
107			C DATA C10C/12.1,12.1,0.08/
108			C DATA CAAB/12.1,12.1,0.133/
109			C DATA CAPL/12.1,12.1,0./
110			C DATA CAAD/12.1,12.1,0.133/
111			C DATA CAPD/12.1,12.1,0./
112			C DATA CALB/19.7,19.7,10.2/
113			DATA CG10/12.3,12.3,0.0875/
114			DATA C10C/12.3,12.3,0.08/
115			DATA CAAB/12.3,12.3,0.1315/
116			DATA CAPL/12.3,12.3,0./
117			DATA CANS/12.3,12.3,0./
118			DATA CAAD/12.3,12.3,0.133/
119			DATA CAPD/12.3,12.3,0./
120			*ML:
121			* DATA CALB/19.7,19.7,10.45/
122			DATA CALB/23.2,23.2,10.589/
123			*END ML.
124			*END F.V.&ML.
125			*ML:
126			* DATA CALS/20.,20.,10.5/
127			DATA CALS/24.2,24.2,10.639/
128	cafagna	3.1	DATA ZCAL/13.05/
129	pamela	3.2	C with ZCAL=13.03 the distance between the bottom of the magnet and
130			C the top of the top silicon strips is about 44.24 mm, as it has to be
131			C if 37 mm is the height of the base plate and 7.24 mm is the distance
132			C between the bottom of the end of the base plate and the top silicium
133			C strips. Because of the difference is small and the height of the base
134			C plate could be approximate, I left ZCAL=13.05.
135			C DATA ZCAL/13.03/
136			*END ML.
137	cafagna	3.1	* DATA CALSTWID/0.36/
138			DATA CALSTWID/0.244/
139			*
140			* NOTE: IF you change NCAPL, remember to modify the NCPL, NCSI, NOCAPL,
141			* NOCASI array dimentions in $GPKEY, $GPDKEY common and data block.
142			* The corresponding FFKEY call in GPFFR must be changed as well.
143			* The GPDAT loop on these arrays should be checked too.
144			*
145			DATA NCAPL/22/
146			DATA NCAPLD/1/
147			C DATA DCASIX/0.3/
148	pamela	3.2	*F.V.&ML:
149			C DATA DCASIX/0.292/
150			DATA DCASIX/0.242/
151			*END F.V.&ML.
152	cafagna	3.1	C DATA DCASIY/0.3/
153	pamela	3.2	* F.V.&FRA:
154			C DATA DCASIY/0.292/
155			DATA DCASIY/0.242/
156			* END F.V.&FRA
157	cafagna	3.1	DATA DCASIZ/0.15/
158			DATA NCASTR/32/
159			*
160	pamela	3.2	* F.V.&ML:
161			C DATA CAKA/12.,12.1,0.005/
162			C DATA CAGL/12.,12.1,0.005/
163			C DATA CAKP/12.,12.1,0.0025/
164			DATA CAKA/12.3,12.3,0.0025/
165			DATA CAGL/12.3,12.3,0.005/
166			DATA CAKP/12.3,12.3,0.0025/
167			* END F.V.&ML.
168	cafagna	3.1	*END EM.
169			C