/[PAMELA software]/gpamela/gpcdes/gpdgeo.inc
ViewVC logotype

Diff of /gpamela/gpcdes/gpdgeo.inc

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.4 by cafagna, Mon Jul 25 11:53:21 2005 UTC revision 3.11 by pam-ba, Tue May 2 11:32:14 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpdgeo.inc,v 3.3 2005/06/21 02:42:08 cafagna Exp $  * $Id: gpdgeo.inc,v 3.10 2006/04/09 23:28:54 cafagna Exp $
3  *  *
4  * $Log: gpdgeo.inc,v $  * $Log: gpdgeo.inc,v $
5  * Revision 3.3  2005/06/21 02:42:08  cafagna  * Revision 3.10  2006/04/09 23:28:54  cafagna
6  * Major modification to the geometry and to the random number chain  * Several new things, among this: ND and CARD
 *  
 * Revision 3.2  2002/12/05 10:17:42  pamela  
 * Update CAS and CALO geometries and positions. Makefile updated as well  
 *  
 * Revision 3.1.1.1  2002/07/11 16:01:59  cafagna  
 * First GPAMELA release on CVS  
 *  
 *  
 *  
 * gpdgeo.inc  
 *  
 *                16/07/2004  16.44.06  by  Alexey Bakaldin  
 *                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.,53.,130./  
 *     AB:  
 C     DATA SHEL/69.8,70.,75./  
 cml             DATA SHEL/40.6,52.35,52.5,43.62253,43.77253/  
 cml             DATA MSHE/52.25,52.5,20./  
 cml             DATA BSPH/52.25,52.5,90.,180.,0.,360./  
 cml:  
         DATA SHEL/38.25,52.5,52.65,43.77,43.92/  
         DATA MSHE/52.5,52.75,20./  
         DATA BSPH/52.5,52.75,90.,180.,0.,360./  
 c     end ml  
 *     END: AB.  
 C     DATA TFLA/126.8,127.,0.,33.45,0.,360./  
         DATA TFLA/0.,43.77253,0.125/  
 *     AB:  
 C     DATA TSPH/0., 150.,0.,0.,0.,360./  
 cml             DATA TSPH/239.83,240.,0.,0.,0.,360./  
 cml:  
         DATA TSPH/239.83,240.,0.,0.,0.,360./  
 c     end ml.  
 *     END: AB.  
         DATA GAPTOP/2./  
 c ml:26/10/04          
 c     DATA S11/22.,19.2,.45/  
         DATA S11/20.4,16.5,.375/  
 c     DATA S12/22.,19.2,.45/  
         DATA S12/20.4,16.5,.375/  
 c     DATA S21/9.,7.2,.35/  
         DATA S21/9.,7.5,.375/  
 c     DATA S22/9.,7.2,.35/  
         DATA S22/9.,7.5,.375/  
 c ml: 28/10/04:  
 c dimensions of top plate. At the moment, it is a reduced version,  
 c i.e. a gap of gas with a surface equal to S21.  
         DATA TPLA/9.,7.5,.25/  
 c end ml.  
 c     DATA S31/9.,7.2,.35/  
         DATA S31/9.,7.5,.40/  
 c     DATA S32/9.,7.2,.35/  
         DATA S32/9.,7.5,.40/  
 c end ml:  
         DATA S4/18.,16.,.5/  
         DATA SCTIC/0.025/  
 c ml:26/10/04:  
 c        DATA NS11X/9/  
         DATA NS11Y/8/  
 c     DATA NS12Y/9/  
         DATA NS12X/6/  
 c     DATA NS21X/4/  
         DATA NS21X/2/  
 c     DATA NS22Y/4/  
         DATA NS22Y/2/  
 c     DATA NS31Y/4/  
         DATA NS31Y/3/  
 c     DATA NS32X/4/  
         DATA NS32X/3/  
 c end ml.  
         DATA ZS11,ZS12,ZS21,ZS22,ZS31,ZS32,ZS4  
 c ml 22/10/04:  
 c     +  /107.8,106.8,74.9,74.1,27.1,26.3,2.3/  
 c ml 28/10/04: introducing the top plate and calculating the zpos of S21, S22  
 c starting from the zpos of CATA:  
 c     +   /106.66,105.66,74.9,74.1,27.1,26.3,2.3/  
      +   /106.66,105.66,74.875,74.125,27.1,26.3,2.3/  
         DATA ZTPLA/73.5/  
 c end ml 28/10/04  
 c end ml 22/10/04:  
 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  
 c ml: 11/11/04  
 c        DATA TRFR/19,17.5,.2/  
         DATA TRFR/21.1,19.0,.275/  
         DATA TRFD/19.75,13.9,.2425/  
         DATA TRFU/19.4,13.55,.2425/  
         DATA TRFM/21.1,19.0,0.1375/  
         DATA TRFL/20.175,14.325,1.13/  
 c        DATA TRFI/15.5,14.,.2/  
         DATA TRR0/21.1,38.5,.25/  
         DATA TRI0/10.65,8.85,.15/  
         DATA TRRF/16.0,15.4,0.1/  
         DATA TRRI/9.8,8.0,0.1/  
 c end ml.  
         DATA TRBS/3.3,18.3,1./  
 *ml: 10/11/66:  
         DATA TRAL/3.3,2.15,1./  
         DATA TRR2/19.025,13.175,1.51/  
 *end ml.  
         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./  
 *ml: 12/11/04:  
 c        DATA TRRA/13.2,14.,0/  
         DATA TRRA/18.25,12.4,0.76/  
 *end ml.  
 *ml: 17/11/04:  
 c        DATA TRAN/1.75,1.75,1.0/  
 c        DATA TRAI/1.75,1.65,0.9/  
         DATA TRAN/1.8,1.8,1.0/  
         DATA TRAI/1.0,1.0,1.0/  
 *end ml.  
         DATA ZTRD/90.55/  
         DATA GAPTRD/1.5/  
 C Spectrometer data, mod by Caf on 20 Jul 2005  
         DATA SPEB/15.,14.4,0./  
 c ml: 26/10/04:  
 c     DATA MGPL/12.,11.4,4.05/  
         DATA MGPL/12.,11.4,4.0/  
         DATA MGFR/14.,13.4,4.0/  
 c     DATA MGPI/8.05,6.55,4.05/  
         DATA MGPI/8.1,6.6,4.0/  
 c ml:17/12/04:  
 c        DATA TRPB/12.,11.4,0.4/  
 c$$$ mod by Caf on 20 Jul 2005  
 c$$$        DATA TRPB/10.49,12.15,0.365/  
         DATA TRPB/15.,14.4,0.365/  
 ccc ml: 20/04/05:  
 cc        DATA TRPL/0.,7.,0.4/  
 c        DATA TRPL/0.,10.125,0.4/  
 ccc        DATA TRPL/8.1,9.75,0.365/  
 C #         DATA TPAI/8.0995,8.5,0.055/  
 C #         DATA TPAS/8.0995,9.75,0.06/  
 C # Mod by CAF on 15 Jul 2005  
         DATA TPAI/8.0995,1.25,0.055/  
         DATA TPAS/8.0995,9.75,0.365/  
 C # End mod  
 c        DATA TRSL/0.,7.,0./  
 C #         DATA TRSL/2.6665,7.,0.015/  
         DATA TRSL/2.6665,3.5,0.015/  
 c        DATA TSPA/2.666,3.5,0.015/  
         DATA TSPA/2.596,3.413,0.015/  
         DATA THBP/2.6665,2.75,0.015/  
 c        DATA TRCP/0.005,7.,0.3/  
         DATA TRCP/0.025,10.125,0.25/  
         DATA ZSPEC/50.6/  
 C #         DATA NTRSL/3/  
         DATA NTRSL/6/  
         DATA NTHBP/3/  
 c     end ml.  
 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/  
 *MA  
         DATA DZM0/0.256/, DZST/0.390/  
         DATA CG10/12.3,12.3,0.0875/  
 C #         DATA C10C/12.3,12.3,0.08/  
 C #         DATA CAAB/12.3,12.3,0.1315/  
         DATA C10C/12.3,12.3,0.06/  
         DATA CAAB/12.3,12.3,0.115/  
 * end MA  
         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/  
7  *  *
8  * NOTE: IF you change NCAPL, remember to modify the NCPL, NCSI, NOCAPL,  * Revision 3.9  2005/12/20 12:21:04  cafagna
9  *     NOCASI array dimentions in $GPKEY, $GPDKEY common and data block.  * gpnd directory added along with ND files
 *     The corresponding FFKEY call in GPFFR must be changed as well.  
 *     The GPDAT loop on these arrays should be checked too.  
10  *  *
11          DATA NCAPL/22/  * Revision 3.8  2005/12/16 10:20:18  cafagna
12          DATA NCAPLD/1/  * Bug fixed in the new update
 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/  
13  *  *
14  * F.V.&ML:  * Revision 3.7  2005/12/16 09:13:55  cafagna
15  C        DATA CAKA/12.,12.1,0.005/  * New small valume added to the tracker frame
16  C        DATA CAGL/12.,12.1,0.005/  *
17  C        DATA CAKP/12.,12.1,0.0025/  * Revision 3.6  2005/12/13 10:31:29  pam-ba
18          DATA CAKA/12.3,12.3,0.0025/  * added a new volume, TPGI, in the spectrometer
19          DATA CAGL/12.3,12.3,0.005/  *
20          DATA CAKP/12.3,12.3,0.0025/  * Revision 3.5  2005/12/05 12:15:20  pam-ba
21  * END F.V.&ML.  * new spectrometer geometry and internal magnetic field
22  *END EM.  *
23  C  * Revision 3.4  2005/07/25 11:53:21  cafagna
24    * Several updates. See history for details
25    *
26    * Revision 3.3  2005/06/21 02:42:08  cafagna
27    * Major modification to the geometry and to the random number chain
28    *
29    * Revision 3.2  2002/12/05 10:17:42  pamela
30    * Update CAS and CALO geometries and positions. Makefile updated as well
31    *
32    * Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
33    * First GPAMELA release on CVS
34    *
35    *
36    *
37    * gpdgeo.inc
38    *
39    *                16/07/2004  16.44.06  by  Alexey Bakaldin
40    *                17/10/2002  22.31.45  by  Jens Lund
41    *CMZ :  3.00/00 14/11/2000  09.13.05  by  Emiliano Mocchiutti
42    *CMZ :  2.02/00 12/10/2000  18.43.21  by  Francesco Cafagna
43    *CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
44    *CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
45    *CMZ :  1.02/00 04/02/2000  18.40.04  by  Francesco Cafagna
46    *CMZ :  1.01/00 06/05/96  11.40.48  by  Francesco Cafagna
47    *CMZ :  1.00/02 02/04/96  16.44.16  by  Francesco Cafagna
48    *-- Author :    Francesco Cafagna   05/12/95
49          DATA PAME/0.,53.,130./
50    *     AB:
51    C     DATA SHEL/69.8,70.,75./
52    cml             DATA SHEL/40.6,52.35,52.5,43.62253,43.77253/
53    cml             DATA MSHE/52.25,52.5,20./
54    cml             DATA BSPH/52.25,52.5,90.,180.,0.,360./
55    cml:
56            DATA SHEL/38.25,52.5,52.65,43.77,43.92/
57            DATA MSHE/52.5,52.75,20./
58            DATA BSPH/52.5,52.75,90.,180.,0.,360./
59    c     end ml
60    *     END: AB.
61    C     DATA TFLA/126.8,127.,0.,33.45,0.,360./
62            DATA TFLA/0.,43.77253,0.125/
63    *     AB:
64    C     DATA TSPH/0., 150.,0.,0.,0.,360./
65    cml             DATA TSPH/239.83,240.,0.,0.,0.,360./
66    cml:
67            DATA TSPH/239.83,240.,0.,0.,0.,360./
68    c     end ml.
69    *     END: AB.
70            DATA GAPTOP/2./
71    c ml:26/10/04        
72    c        DATA S1/20.4,16.5,.375/
73    c        DATA S2/20.4,16.5,.375/
74    c        DATA S1A/9.,7.5,.375/
75    c        DATA S2A/9.,7.5,.375/
76    c        DATA S3A//
77            DATA S4/18.,16.,.5/
78    c        DATA S11M//
79    c        DATA S12M//
80    c        DATA S21M//
81    c        DATA S22M//
82    c        DATA S31M//
83    c        DATA S32M//
84            DATA S11Y/2.55,16.5,0.35/
85            DATA S12X/20.4,2.75,0.35/
86            DATA S21X/9.,3.75,0.25/
87            DATA S22Y/4.5,7.5,0.25/
88            DATA S31Y/3.,7.5,0.35/
89            DATA S32X/9.,2.5,0.35/
90            DATA HMYLTOF/0.0025/
91            DATA HGLUTOF/0.01/
92            DATA HPVCMAX/0.9/
93            DATA HPVCMIN/0.4/
94            DATA HALTOF/0.033/
95            DATA HAIRS3/0.15/
96    c ml: 28/10/04:
97    c dimensions of top plate. At the moment, it is a reduced version,
98    c i.e. a gap of gas with a surface equal to S21.
99            DATA TPLA/9.,7.5,.25/
100    c end ml.
101    c        DATA SCTIC/0.025/
102    c ml:26/10/04:
103            DATA NS11Y/8/
104            DATA NS12X/6/
105            DATA NS21X/2/
106            DATA NS22Y/2/
107            DATA NS31Y/3/
108            DATA NS32X/3/
109    c end ml.
110    C ml 28/03/06: official z coordinates in the PAMELA reference system with
111    c origin in the centre of the central plane of the central magnetic module:
112            DATA ZPAMS31,ZPAMS32/-23.49,-24.34/
113    c        DATA ZS11,ZS12,ZS21,ZS22,ZS31,ZS32,ZS4
114    c ml 22/10/04:
115    c     +  /107.8,106.8,74.9,74.1,27.1,26.3,2.3/
116    c ml 28/10/04: introducing the top plate and calculating the zpos of S21, S22
117    c starting from the zpos of CATA:
118    c     +   /106.66,105.66,74.9,74.1,27.1,26.3,2.3/
119    c     +   /106.66,105.66,74.875,74.125,27.1,26.3,2.3/
120    c        DATA ZTPLA/73.5/
121    C HORMG is the distance beteween the bottom the tracker and the center of
122    c the third magnetic module.
123            DATA HORMG/22.57/
124    c end ml 28/10/04
125    c end ml 22/10/04:
126    C CAT data
127    *EM:
128    *JeL:
129            DATA CATA/28.0,0.6,27.165/
130    *END: JeL.
131    c        DATA CATB/22.05,21.05,0.55/
132            DATA CATB/22.2,21.3,0.5/
133    c        DATA CATL/15.75,6.675,0.55/
134    c        DATA CATT/6.3,14.375,0.55/
135            DATA CATL/2.6,14.9,0.4/
136            DATA CATT/8.45,21.2,0.4/
137            DATA CATH/9.4,7.7,0.5/
138            DATA CATF/2.6,3.15,0.4/
139            DATA CATO/9.3,0.05,0.5/
140            DATA CATP/0.05,7.7,0.5/
141    c        DATA ZCAT/75.85/
142    C CAS data
143    *EM:
144    *JeL:
145            DATA CASA/21.45,0.6,20.55/
146    *END: JeL.
147    C        DATA CASX/15.25,0.55,23./
148    C        DATA CASY/0.55,14.75,23./
149            DATA CSSX/15.7,0.5,21.6/
150            DATA CSSY/0.5,15.7,21.6/
151            DATA CASX/15.6,0.4,21.5/
152            DATA CASY/0.4,15.6,21.5/
153            DATA CASXD/2.4/
154            DATA CASYD/2.2/
155    C       DATA ZCAS/51.25/
156    *END: EM.
157    C CARD data
158            DATA CARDB/10.,10.,10./
159    C TRD data
160    c ml: 11/11/04
161    c        DATA TRFR/19,17.5,.2/
162            DATA TRFR/21.1,19.0,.275/
163            DATA TRFD/19.75,13.9,.2425/
164            DATA TRFU/19.4,13.55,.2425/
165            DATA TRFM/21.1,19.0,0.1375/
166            DATA TRFL/20.175,14.325,1.13/
167    c        DATA TRFI/15.5,14.,.2/
168            DATA TRR0/21.1,38.5,.25/
169            DATA TRI0/10.65,8.85,.15/
170            DATA TRRF/16.0,15.4,0.1/
171            DATA TRRI/9.8,8.0,0.1/
172    c end ml.
173            DATA TRBS/3.3,18.3,1./
174    *ml: 10/11/66:
175            DATA TRAL/3.3,2.15,1./
176            DATA TRR2/19.025,13.175,1.51/
177    *end ml.
178            DATA TRDS/24.,24.5,13.5/
179            DATA TRDT/3.,3.,.25/
180            DATA TRDB/17.7,18.5,0/
181            DATA TRSO/0.197,0.2,14./
182    C        DATA TRSI/0.,0.197,14./
183            DATA TRSI/0.,0.2,14./
184    *ml: 12/11/04:
185    c        DATA TRRA/13.2,14.,0/
186            DATA TRRA/18.25,12.4,0.76/
187    *end ml.
188    *ml: 17/11/04:
189    c        DATA TRAN/1.75,1.75,1.0/
190    c        DATA TRAI/1.75,1.65,0.9/
191            DATA TRAN/1.8,1.8,1.0/
192            DATA TRAI/1.0,1.0,1.0/
193    *end ml.
194            DATA ZTRD/90.55/
195            DATA GAPTRD/1.5/
196    C Spectrometer data, mod by Caf on 20 Jul 2005
197            DATA SPEB/15.,14.4,0./
198    c ml: 31/10/05:
199    c        DATA MGFR/14.,13.4,4.0/
200            DATA MGFR/15.,14.4,4.45/
201    c end ml.
202    c ml: 26/10/04:
203    c     DATA MGPL/12.,11.4,4.05/
204            DATA MGPL/12.,11.4,4.0/
205            DATA MGPA/8.1,6.6,4.0/
206    c     DATA MGPI/8.05,6.55,4.05/
207    c ml: 31/10/05:
208    c        DATA MGPI/8.1,6.6,4.0/
209    C        DATA MGPI/8.07,6.57,4./
210    C        DATA MGPI/8.07,6.57,4.03/
211            DATA MGPI/8.07,6.57,4./
212    C end ml.
213    c ml:31/10/05:
214    c new volumes:
215    C        DATA TPGA/10.5,10.65,0.055/
216            DATA TPGA/10.29,10.65,0.04/
217            DATA TPGU/10.49,12.15,0.01/
218            DATA TPGD/12.,11.4,0.005/
219            DATA TPGI/8.07,6.57,0.015/
220    c end ml.
221    c ml:17/12/04:
222    c        DATA TRPB/12.,11.4,0.4/
223    c$$$ mod by Caf on 20 Jul 2005
224    c$$$        DATA TRPB/10.49,12.15,0.365/
225    c ml 31/10/05:
226    c       DATA TRPB/15.,14.4,0.365/
227            DATA TRPB/10.49,12.15,0.365/
228    c end ml.
229    ccc ml: 20/04/05:
230    cc        DATA TRPL/0.,7.,0.4/
231    C #         DATA TPAI/8.0995,8.5,0.055/
232    C #         DATA TPAS/8.0995,9.75,0.06/
233    C # Mod by CAF on 15 Jul 2005
234    c        DATA TPAI/8.0995,1.25,0.055/
235    c        DATA TPAS/8.0995,9.75,0.365/
236    c ml: 15/12/05:
237    c ml 19/9/05:
238    c        DATA TPAS/8.144,9.9,0.365/
239            DATA TPAS/8.2,9.9,0.365/
240            DATA TPAI/8.144,1.25,0.05/
241    C # End mod
242    c        DATA TRSL/0.,7.,0./
243    C #         DATA TRSL/2.6665,7.,0.015/
244            DATA TRSL/2.6665,3.5,0.015/
245    c        DATA TSPA/2.666,3.5,0.015/
246            DATA TSPA/2.596,3.413,0.015/
247            DATA THBP/2.6665,2.75,0.015/
248    c        DATA TRCP/0.005,7.,0.3/
249    c        DATA TRCP/0.025,10.125,0.25/
250    c ml: 19/9/05: (based on the measure of the final version of the tracker plane)
251            DATA TRCP/0.035,10.125,0.25/
252            DATA TBAL/1.49,2.25,0.365/
253    c ml:16/11/05: distance between the bottom of the tracker and the bottom of
254    c the base plate.
255            DATA ZSPEBP/2.97/
256    c        DATA ZSPEC/50.6/
257    C ml: 15/12/05: xglue is the dimension along x of the glue between each carbon
258    c               fiber barrel and the TRSL volume
259            DATA XGLUE/0.0015/
260    C #         DATA NTRSL/3/
261            DATA NTRSL/6/
262            DATA NTHBP/3/
263    c     end ml.
264    C Calorimeter data
265    *EM:
266    *        DATA CASI/3.9,3.9,0.019/
267            DATA CASI/3.904,3.904,0.019/
268    *F.V.&ML:
269    C        DATA CG10/12.1,12.1,0.0875/
270    C        DATA C10C/12.1,12.1,0.08/
271    C        DATA CAAB/12.1,12.1,0.133/
272    C        DATA CAPL/12.1,12.1,0./
273    C        DATA CAAD/12.1,12.1,0.133/
274    C        DATA CAPD/12.1,12.1,0./
275    C        DATA CALB/19.7,19.7,10.2/
276    *MA
277            DATA DZM0/0.256/, DZST/0.390/
278            DATA CG10/12.3,12.3,0.0875/
279    C #         DATA C10C/12.3,12.3,0.08/
280    C #         DATA CAAB/12.3,12.3,0.1315/
281            DATA C10C/12.3,12.3,0.06/
282            DATA CAAB/12.3,12.3,0.115/
283    * end MA
284            DATA CAPL/12.3,12.3,0./
285            DATA CANS/12.3,12.3,0./
286            DATA CAAD/12.3,12.3,0.133/
287            DATA CAPD/12.3,12.3,0./
288    *ML:
289    *       DATA CALB/19.7,19.7,10.45/
290            DATA CALB/23.2,23.2,10.589/
291    *END ML.
292    *END F.V.&ML.
293    *ML:
294    *        DATA CALS/20.,20.,10.5/
295            DATA CALS/24.2,24.2,10.639/
296            DATA ZCAL/13.05/
297    C with ZCAL=13.03 the distance between the bottom of the magnet and
298    C the top of the top silicon strips is about 44.24 mm, as it has to be
299    C if 37 mm is the height of the base plate and 7.24 mm is the distance
300    C between the bottom of the end of the base plate and the top silicium
301    C strips. Because of the difference is small and the height of the base
302    C plate could be approximate, I left ZCAL=13.05.  
303    C       DATA ZCAL/13.03/
304    *END ML.
305    *        DATA CALSTWID/0.36/
306            DATA CALSTWID/0.244/
307    *
308    * NOTE: IF you change NCAPL, remember to modify the NCPL, NCSI, NOCAPL,
309    *     NOCASI array dimentions in $GPKEY, $GPDKEY common and data block.
310    *     The corresponding FFKEY call in GPFFR must be changed as well.
311    *     The GPDAT loop on these arrays should be checked too.
312    *
313            DATA NCAPL/22/
314            DATA NCAPLD/1/
315    C        DATA DCASIX/0.3/
316    *F.V.&ML:
317    C        DATA DCASIX/0.292/
318            DATA DCASIX/0.242/
319    *END F.V.&ML.
320    C        DATA DCASIY/0.3/
321    * F.V.&FRA:
322    C        DATA DCASIY/0.292/
323            DATA DCASIY/0.242/
324    * END F.V.&FRA
325            DATA DCASIZ/0.15/
326            DATA NCASTR/32/
327    *
328    * F.V.&ML:
329    C        DATA CAKA/12.,12.1,0.005/
330    C        DATA CAGL/12.,12.1,0.005/
331    C        DATA CAKP/12.,12.1,0.0025/
332            DATA CAKA/12.3,12.3,0.0025/
333            DATA CAGL/12.3,12.3,0.005/
334            DATA CAKP/12.3,12.3,0.0025/
335    * END F.V.&ML.
336    *END EM.
337    C
338    ***** Neutron detector
339          DATA NDBI/20.,20.,7.5/,NDTU/0.92,0.925,10./,NDTI/0.,0.92,10./,
340         +     NDPB/20.,20.,1./,NDCD/20.,20.,0.025/,NDBX/20.5,20.5,8./
341    

Legend:
Removed from v.3.4  
changed lines
  Added in v.3.11

  ViewVC Help
Powered by ViewVC 1.1.23