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