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

Legend:
Removed from v.3.6  
changed lines
  Added in v.3.13

  ViewVC Help
Powered by ViewVC 1.1.23