/[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.1.1.1 by cafagna, Thu Jul 11 16:01:59 2002 UTC revision 3.22 by cafagna, Sun Dec 17 14:53:11 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id$  * $Id: gpdgeo.inc,v 3.21 2006/11/30 12:29:14 cafagna Exp $
3  *  *
4  * $Log$  * $Log: gpdgeo.inc,v $
5  *  * Revision 3.21  2006/11/30 12:29:14  cafagna
6  *  * CARD geometry updated. New S1 "table", legs included, added. Top magnetic screen has been added as well.
7  * gpdgeo.inc  *
8  *  * Revision 3.20  2006/11/28 10:26:14  pam-ba
9  *CMZ :  3.00/00 14/11/2000  09.13.05  by  Emiliano Mocchiutti  * S3 positioning completed
10  *CMZ :  2.02/00 12/10/2000  18.43.21  by  Francesco Cafagna  *
11  *CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola  * Revision 3.19  2006/11/16 18:45:29  pam-ba
12  *CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna  * Simulated an aluminum container for S4
13  *CMZ :  1.02/00 04/02/2000  18.40.04  by  Francesco Cafagna  *
14  *CMZ :  1.01/00 06/05/96  11.40.48  by  Francesco Cafagna  * Revision 3.18  2006/11/16 12:01:13  pam-ba
15  *CMZ :  1.00/02 02/04/96  16.44.16  by  Francesco Cafagna  * S4 dimensions corrected.
16  *-- Author :    Francesco Cafagna   05/12/95  *
17          DATA PAME/0.,75.,200./  * Revision 3.17  2006/11/10 11:39:34  pam-ba
18          DATA SHEL/69.8,70.,75./  * S2 and S1 z-positions corrected, He3 and plystyrene mixture added, Top Plate geometry simulated and titanium mixture added.
19  C        DATA TFLA/126.8,127.,0.,33.45,0.,360./  *
20          DATA TFLA/0.,75.,.125/  * Revision 3.16  2006/10/12 11:11:21  pam-ba
21          DATA TSPH/0., 150.,0.,0.,0.,360./  * ND geometry updated.
22          DATA GAPTOP/2./  *
23  C TOF data  * Revision 3.15  2006/06/30 15:38:16  pam-ba
24          DATA S11/22.,19.2,.45/  * S22 and S12 heights positioned in GPAMELA at the nominal heights in PAMELA (see document: Main geometrical parameters of the PAMELA sub-detectors, 20 December 2005)
25          DATA S12/22.,19.2,.45/  *
26          DATA S21/9.,7.2,.35/  * Revision 3.14  2006/05/18 10:52:31  pam-ba
27          DATA S22/9.,7.2,.35/  * TOF geometry completed and a new material, the polystyrene (density 35 g/l), added
28          DATA S31/9.,7.2,.35/  *
29          DATA S32/9.,7.2,.35/  * Revision 3.13  2006/05/09 12:01:16  cafagna
30          DATA S4/18.,16.,.5/  * Calo geometry updated
31          DATA SCTIC/0.025/  *
32          DATA NS11X/9/  * Revision 3.12  2006/05/02 12:30:02  bottai
33          DATA NS12Y/9/  *  change in trcp dimension in order to not overlap with its mother
34          DATA NS21X/4/  *
35          DATA NS22Y/4/  * Revision 3.11  2006/05/02 11:32:14  pam-ba
36          DATA NS31Y/4/  * TOF geometry and position updated and a new material, the mylar, added
37          DATA NS32X/4/  *
38          DATA ZS11,ZS12,ZS21,ZS22,ZS31,ZS32,ZS4  * Revision 3.10  2006/04/09 23:28:54  cafagna
39       +       /107.8,106.8,74.9,74.1,27.1,26.3,2.3/  * Several new things, among this: ND and CARD
40  C CAT data  *
41  *EM:  * Revision 3.9  2005/12/20 12:21:04  cafagna
42  c        DATA CATB/22.05,21.05,0.55/  * gpnd directory added along with ND files
43          DATA CATB/22.2,21.3,0.5/  *
44  c        DATA CATL/15.75,6.675,0.55/  * Revision 3.8  2005/12/16 10:20:18  cafagna
45  c        DATA CATT/6.3,14.375,0.55/  * Bug fixed in the new update
46          DATA CATL/2.6,14.9,0.4/  *
47          DATA CATT/8.45,21.2,0.4/  * Revision 3.7  2005/12/16 09:13:55  cafagna
48          DATA CATH/9.4,7.7,0.5/  * New small valume added to the tracker frame
49          DATA CATF/2.6,3.15,0.4/  *
50          DATA CATO/9.3,0.05,0.5/  * Revision 3.6  2005/12/13 10:31:29  pam-ba
51          DATA CATP/0.05,7.7,0.5/  * added a new volume, TPGI, in the spectrometer
52          DATA ZCAT/75.75/  *
53  C CAS data  * Revision 3.5  2005/12/05 12:15:20  pam-ba
54  *EM:  * new spectrometer geometry and internal magnetic field
55  C        DATA CASX/15.25,0.55,23./  *
56  C        DATA CASY/0.55,14.75,23./  * Revision 3.4  2005/07/25 11:53:21  cafagna
57          DATA CSSX/15.7,0.5,21.6/  * Several updates. See history for details
58          DATA CSSY/0.5,15.7,21.6/  *
59          DATA CASX/15.6,0.4,21.5/  * Revision 3.3  2005/06/21 02:42:08  cafagna
60          DATA CASY/0.4,15.6,21.5/  * Major modification to the geometry and to the random number chain
61          DATA CASXD/2.4/  *
62          DATA CASYD/2.2/  * Revision 3.2  2002/12/05 10:17:42  pamela
63          DATA ZCAS/51.25/  * Update CAS and CALO geometries and positions. Makefile updated as well
64  *END: EM.  *
65  C TRD data  * Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
66          DATA TRFR/19,17.5,.2/  * First GPAMELA release on CVS
67          DATA TRFI/15.5,14.,.2/  *
68          DATA TRBS/3.3,18.5,1./  *
69          DATA TRDS/24.,24.5,13.5/  *
70          DATA TRDT/3.,3.,.25/  * gpdgeo.inc
71          DATA TRDB/17.7,18.5,0/  *
72          DATA TRSO/0.197,0.2,14./  *                16/07/2004  16.44.06  by  Alexey Bakaldin
73  C        DATA TRSI/0.,0.197,14./  *                17/10/2002  22.31.45  by  Jens Lund
74          DATA TRSI/0.,0.2,14./  *CMZ :  3.00/00 14/11/2000  09.13.05  by  Emiliano Mocchiutti
75          DATA TRRA/13.2,14.,0/  *CMZ :  2.02/00 12/10/2000  18.43.21  by  Francesco Cafagna
76          DATA TRAN/1.75,1.75,1.0/  *CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
77          DATA TRAI/1.75,1.65,0.9/  *CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
78          DATA ZTRD/90.55/  *CMZ :  1.02/00 04/02/2000  18.40.04  by  Francesco Cafagna
79          DATA GAPTRD/1.5/  *CMZ :  1.01/00 06/05/96  11.40.48  by  Francesco Cafagna
80  C Spectrometer data  *CMZ :  1.00/02 02/04/96  16.44.16  by  Francesco Cafagna
81          DATA SPEB/12.,11.4,0./  *-- Author :    Francesco Cafagna   05/12/95
82          DATA MGPL/12.,11.4,4.05/        DATA PAME/0.,53.,130./
83          DATA MGPI/8.05,6.55,4.05/  *     AB:
84          DATA TRPB/12.,11.4,0.4/  C     DATA SHEL/69.8,70.,75./
85          DATA TRPL/0.,7.,0.4/  cml     DATA SHEL/40.6,52.35,52.5,43.62253,43.77253/
86          DATA TRSL/0.,7.,0./  cml     DATA MSHE/52.25,52.5,20./
87          DATA TSPA/2.6666,3.5,0.015/  cml     DATA BSPH/52.25,52.5,90.,180.,0.,360./
88          DATA TRCP/0.005,7.,0.3/  cml:
89          DATA ZSPEC/50.6/          DATA SHEL/38.25,52.5,52.65,43.77,43.92/
90          DATA NTRSL/3/          DATA MSHE/52.5,52.75,20./
91  C Calorimeter data          DATA BSPH/52.5,52.75,90.,180.,0.,360./
92  *EM:  c     end ml
93  *        DATA CASI/3.9,3.9,0.019/  *     END: AB.
94          DATA CASI/3.904,3.904,0.019/  C     DATA TFLA/126.8,127.,0.,33.45,0.,360./
95          DATA CG10/12.1,12.1,0.0875/          DATA TFLA/0.,43.77253,0.125/
96          DATA C10C/12.1,12.1,0.08/  *     AB:
97          DATA CAAB/12.1,12.1,0.133/  C     DATA TSPH/0., 150.,0.,0.,0.,360./
98          DATA CAPL/12.1,12.1,0./  cml     DATA TSPH/239.83,240.,0.,0.,0.,360./
99          DATA CAAD/12.1,12.1,0.133/  cml:
100          DATA CAPD/12.1,12.1,0./          DATA TSPH/239.83,240.,0.,0.,0.,360./
101          DATA CALB/19.7,19.7,10.2/  c     end ml.
102          DATA CALS/20.,20.,10.5/  *     END: AB.
103          DATA ZCAL/13.05/          DATA GAPTOP/2./
104  *        DATA CALSTWID/0.36/  c ml:26/10/04        
105          DATA CALSTWID/0.244/  c        DATA S1/20.4,16.5,.375/
106  *  c        DATA S2/20.4,16.5,.375/
107  * NOTE: IF you change NCAPL, remember to modify the NCPL, NCSI, NOCAPL,  c        DATA S1A/9.,7.5,.375/
108  *     NOCASI array dimentions in $GPKEY, $GPDKEY common and data block.  c        DATA S2A/9.,7.5,.375/
109  *     The corresponding FFKEY call in GPFFR must be changed as well.          DATA S3/0.,0.,0./
110  *     The GPDAT loop on these arrays should be checked too.  c        DATA S4/18.,16.,.5/
111  *          DATA S4/24.1,24.1,0.5/
112          DATA NCAPL/22/          DATA S4AL/24.2,24.2,0.6/
113          DATA NCAPLD/1/          DATA S11M/0.,0.,0./
114  C        DATA DCASIX/0.3/          DATA S12M/0.,0.,0./
115          DATA DCASIX/0.292/          DATA S21M/0.,0.,0./
116  C        DATA DCASIY/0.3/          DATA S22M/0.,0.,0./
117          DATA DCASIY/0.292/          DATA S31M/0.,0.,0./
118          DATA DCASIZ/0.15/          DATA S32M/0.,0.,0./
119          DATA NCASTR/32/          DATA POL1/0.,0.,0./
120  *          DATA POL2/0.,0.,0./
121          DATA CAKA/12.,12.1,0.005/          DATA POLY/0.,0.,0./
122          DATA CAGL/12.,12.1,0.005/          DATA S11Y/2.55,16.5,0.35/
123          DATA CAKP/12.,12.1,0.0025/          DATA S12X/20.4,2.75,0.35/
124  *END EM.          DATA S21X/9.,3.75,0.25/
125  C          DATA S22Y/4.5,7.5,0.25/
126            DATA S31Y/3.,7.5,0.35/
127            DATA S32X/9.,2.5,0.35/
128    c        DATA HMYLTOF/0.0025/
129            DATA HMYLTOF/0.0023/
130            DATA HGLUTOF/0.01/
131            DATA HPVCMAX/0.9/
132            DATA HPVCMIN/0.4/
133            DATA HALTOF/0.033/
134            DATA HAIRS3/0.15/
135            DATA HTABLE/24.7/
136            DATA DTABLEAL/1.7/
137            DATA XTPLA/23.2/
138            DATA YTPLA/22.1/
139    c ml: 28/10/04:
140    c dimensions of top plate. At the moment, it is a reduced version,
141    c i.e. a gap of gas with a surface equal to S21.
142    c        DATA TPLA/9.,7.5,.25/
143    c dimensions of top plate from CAD draws:
144    c        DATA TPLA/21.9,21.1,1.6/
145            DATA TPLA/28.,27.165,1.6/
146    C        DATA TPCA/18.1,18.2,0.6/
147    C        DATA TPS2/10.,8.1,0.75/
148            DATA TPCV/8.5,7.,0.25/
149            DATA TPTU/2.55,1.95,0.6/
150            DATA TPTM/3.45,3.3,0.75/
151            DATA TPTL/21.9,21.1,.25/
152    c end ml.
153    c        DATA SCTIC/0.025/
154    c ml:26/10/04:
155            DATA NS11Y/8/
156            DATA NS12X/6/
157            DATA NS21X/2/
158            DATA NS22Y/2/
159            DATA NS31Y/3/
160            DATA NS32X/3/
161    c end ml.
162    C ml 28/03/06: official z coordinates in the PAMELA reference system with
163    c origin in the centre of the central plane of the central magnetic module:
164    c        DATA ZPAMS31,ZPAMS32/-23.49,-24.34/
165            DATA DTPS3/0.845/
166    c        DATA ZS11,ZS12,ZS21,ZS22,ZS31,ZS32,ZS4
167    c ml 22/10/04:
168    c     +  /107.8,106.8,74.9,74.1,27.1,26.3,2.3/
169    c ml 28/10/04: introducing the top plate and calculating the zpos of S21, S22
170    c starting from the zpos of CATA:
171    c     +   /106.66,105.66,74.9,74.1,27.1,26.3,2.3/
172    c     +   /106.66,105.66,74.875,74.125,27.1,26.3,2.3/
173    c        DATA ZTPLA/73.5/
174    C HORMG is the distance beteween the bottom the tracker and the center of
175    c the third magnetic module.
176            DATA HORMG/22.57/
177    c end ml 28/10/04
178    c end ml 22/10/04:
179    C CAT data
180    *EM:
181    *JeL:
182            DATA CATA/28.0,0.6,27.165/
183    *END: JeL.
184    c        DATA CATB/22.05,21.05,0.55/
185            DATA CATB/22.2,21.3,0.5/
186    c        DATA CATL/15.75,6.675,0.55/
187    c        DATA CATT/6.3,14.375,0.55/
188            DATA CATL/2.6,14.9,0.4/
189            DATA CATT/8.45,21.2,0.4/
190            DATA CATH/9.4,7.7,0.5/
191            DATA CATF/2.6,3.15,0.4/
192            DATA CATO/9.3,0.05,0.5/
193            DATA CATP/0.05,7.7,0.5/
194    c        DATA ZCAT/75.85/
195    C CAS data
196    *EM:
197    *JeL:
198            DATA CASA/21.45,0.6,20.55/
199    *END: JeL.
200    C        DATA CASX/15.25,0.55,23./
201    C        DATA CASY/0.55,14.75,23./
202            DATA CSSX/15.7,0.5,21.6/
203            DATA CSSY/0.5,15.7,21.6/
204            DATA CASX/15.6,0.4,21.5/
205            DATA CASY/0.4,15.6,21.5/
206            DATA CASXD/2.4/
207            DATA CASYD/2.2/
208    C   DATA ZCAS/51.25/
209    *END: EM.
210    C CARD data
211          DATA CARDB/27.,22.8,12.35/,
212         +     CAR/18.15,4.8,1.8,3.6,5.8,0.4,76.,19.45/,
213         +     ATZ/1.1/,   ! aluminium box thickness
214         +     ATY/0.15/,  ! aluminium box thickness
215         +     PT/0.9/,    ! plastic box thickness
216         +     CARA/31.98273,17.45,20.,19.123,16.80,47.358,30.4/,
217         +     CARB/37.18273,20.95,17.,18.67,16.014,47.661,35.6/,
218         +     LEGB/2.15,3.575,11.85/,
219         +     LEG1/0.65,0.,0.,0.15,6.85,6.85,0.,0.15,10.85,10.85,0./,
220         +     LEG2/0.65,1.65,11.35/,
221         +     LEG3/0.1,1.3,0.325/,
222         +     LEG4/0.65,1.625,11.85/,
223         +     LEG5/1.125,2.575,11.85/,
224         +     LEG6/0.1,0.55,11.2/,
225         +     LEG7/1.1,0.75,3.25/,
226         +     LEG8/1.1,0.75,4.35/,
227         +     LEG9/1.1,0.75,3.25/,
228         +     LEGP/1.95,0.65,1.125,0.375,11.85,3.8,0.7,0.6/,          
229         +     TPLT/27.,22.8,0.5/,
230         +     TOPC/20.4,16.,0.5/,
231         +     TOPT/0.5,0.,0.,2.25,2.25,0.,-26.565,2.25,2.25,0.,-26.565/,
232         +     TOHO/0.7,0.7,0.5/,
233         +     TH11/2.8,3.2,0.5/,
234         +     TH12/2.8,5.3,0.5/,
235         +     TH21/1.7,3.,0.5/,
236         +     TH22/4.9,3.,0.5/,  
237         +     TOPP/23.6,14.4,5.5,17.2,19.4,10.2,4.5,6.2,4.1/,
238         +     MGSC/16.,15.4,0.12456/,
239         +     MGSH/9.8,8.,0.12456/
240    C TRD data
241    c ml: 11/11/04
242    c        DATA TRFR/19,17.5,.2/
243            DATA TRFR/21.1,19.0,.275/
244            DATA TRFD/19.75,13.9,.2425/
245            DATA TRFU/19.4,13.55,.2425/
246            DATA TRFM/21.1,19.0,0.1375/
247            DATA TRFL/20.175,14.325,1.13/
248    c        DATA TRFI/15.5,14.,.2/
249            DATA TRR0/21.1,38.5,.25/
250            DATA TRI0/10.65,8.85,.15/
251            DATA TRRF/16.0,15.4,0.1/
252            DATA TRRI/9.8,8.0,0.1/
253    c end ml.
254            DATA TRBS/3.3,18.3,1./
255    *ml: 10/11/66:
256            DATA TRAL/3.3,2.15,1./
257            DATA TRR2/19.025,13.175,1.51/
258    *end ml.
259            DATA TRDS/24.,24.5,13.5/
260            DATA TRDT/3.,3.,.25/
261            DATA TRDB/17.7,18.5,0/
262            DATA TRSO/0.197,0.2,14./
263    C        DATA TRSI/0.,0.197,14./
264            DATA TRSI/0.,0.2,14./
265    *ml: 12/11/04:
266    c        DATA TRRA/13.2,14.,0/
267            DATA TRRA/18.25,12.4,0.76/
268    *end ml.
269    *ml: 17/11/04:
270    c        DATA TRAN/1.75,1.75,1.0/
271    c        DATA TRAI/1.75,1.65,0.9/
272            DATA TRAN/1.8,1.8,1.0/
273            DATA TRAI/1.0,1.0,1.0/
274    *end ml.
275            DATA ZTRD/90.55/
276            DATA GAPTRD/1.5/
277    C Spectrometer data, mod by Caf on 20 Jul 2005
278            DATA SPEB/15.,14.4,22.615/
279    c ml: 31/10/05:
280    c        DATA MGFR/14.,13.4,4.0/
281            DATA MGFR/15.,14.4,4.45/
282    c end ml.
283    c ml: 26/10/04:
284    c     DATA MGPL/12.,11.4,4.05/
285            DATA MGPL/12.,11.4,4.0/
286            DATA MGPA/8.1,6.6,4.0/
287    c     DATA MGPI/8.05,6.55,4.05/
288    c ml: 31/10/05:
289    c        DATA MGPI/8.1,6.6,4.0/
290    C        DATA MGPI/8.07,6.57,4./
291    C        DATA MGPI/8.07,6.57,4.03/
292            DATA MGPI/8.07,6.57,4./
293    C end ml.
294    c ml:31/10/05:
295    c new volumes:
296    C        DATA TPGA/10.5,10.65,0.055/
297            DATA TPGA/10.29,10.65,0.04/
298            DATA TPGU/10.49,12.15,0.01/
299            DATA TPGD/12.,11.4,0.005/
300            DATA TPGI/8.07,6.57,0.015/
301    c end ml.
302    c ml:17/12/04:
303    c        DATA TRPB/12.,11.4,0.4/
304    c$$$ mod by Caf on 20 Jul 2005
305    c$$$        DATA TRPB/10.49,12.15,0.365/
306    c ml 31/10/05:
307    c       DATA TRPB/15.,14.4,0.365/
308            DATA TRPB/10.49,12.15,0.365/
309    c end ml.
310    ccc ml: 20/04/05:
311    cc        DATA TRPL/0.,7.,0.4/
312    C #         DATA TPAI/8.0995,8.5,0.055/
313    C #         DATA TPAS/8.0995,9.75,0.06/
314    C # Mod by CAF on 15 Jul 2005
315    c        DATA TPAI/8.0995,1.25,0.055/
316    c        DATA TPAS/8.0995,9.75,0.365/
317    c ml: 15/12/05:
318    c ml 19/9/05:
319    c        DATA TPAS/8.144,9.9,0.365/
320            DATA TPAS/8.2,9.9,0.365/
321            DATA TPAI/8.144,1.25,0.05/
322    C # End mod
323    c        DATA TRSL/0.,7.,0./
324    C #         DATA TRSL/2.6665,7.,0.015/
325            DATA TRSL/2.6665,3.5,0.015/
326    c        DATA TSPA/2.666,3.5,0.015/
327            DATA TSPA/2.596,3.413,0.015/
328            DATA THBP/2.6665,2.75,0.015/
329    c        DATA TRCP/0.005,7.,0.3/
330    c        DATA TRCP/0.025,10.125,0.25/
331    c ml: 19/9/05: (based on the measure of the final version of the tracker plane)
332    c        DATA TRCP/0.035,10.125,0.25/
333    c change TRCP in order to not overla with mother
334            DATA TRCP/0.035,9.9,0.25/
335            DATA TBAL/1.49,2.25,0.365/
336    c ml:16/11/05: distance between the bottom of the tracker and the bottom of
337    c the base plate.
338            DATA ZSPEBP/2.97/
339    c        DATA ZSPEC/50.6/
340    C ml: 15/12/05: xglue is the dimension along x of the glue between each carbon
341    c               fiber barrel and the TRSL volume
342            DATA XGLUE/0.0015/
343    C #         DATA NTRSL/3/
344            DATA NTRSL/6/
345            DATA NTHBP/3/
346    c     end ml.
347    C Calorimeter data
348    *EM:
349    *        DATA CASI/3.9,3.9,0.019/
350            DATA CASI/3.904,3.904,0.019/
351    *F.V.&ML:
352    C        DATA CG10/12.1,12.1,0.0875/
353    C        DATA C10C/12.1,12.1,0.08/
354    C        DATA CAAB/12.1,12.1,0.133/
355    C        DATA CAPL/12.1,12.1,0./
356    C        DATA CAAD/12.1,12.1,0.133/
357    C        DATA CAPD/12.1,12.1,0./
358    C        DATA CALB/19.7,19.7,10.2/
359    *MA
360            DATA DZM0/0.19/, DZST/0.390/
361            DATA CG10/12.3,12.3,0.0875/
362    C #         DATA C10C/12.3,12.3,0.08/
363    C #         DATA CAAB/12.3,12.3,0.1315/
364            DATA C10C/12.3,12.3,0.06/
365            DATA CAAB/12.3,12.3,0.1315/
366    * end MA
367            DATA CAPL/12.3,12.3,0./
368            DATA CANS/12.3,12.3,0./
369            DATA CAAD/12.3,12.3,0.133/
370            DATA CAPD/12.3,12.3,0./
371    *ML:
372    *   DATA CALB/19.7,19.7,10.45/
373            DATA CALB/23.2,23.2,10.589/
374    *END ML.
375    *END F.V.&ML.
376    *ML:
377    *        DATA CALS/20.,20.,10.5/
378            DATA CALS/24.2,24.2,10.639/
379            DATA ZCAL/13.05/
380    C with ZCAL=13.03 the distance between the bottom of the magnet and
381    C the top of the top silicon strips is about 44.24 mm, as it has to be
382    C if 37 mm is the height of the base plate and 7.24 mm is the distance
383    C between the bottom of the end of the base plate and the top silicium
384    C strips. Because of the difference is small and the height of the base
385    C plate could be approximate, I left ZCAL=13.05.  
386    C   DATA ZCAL/13.03/
387    *END ML.
388    *        DATA CALSTWID/0.36/
389            DATA CALSTWID/0.244/
390    *
391    * NOTE: IF you change NCAPL, remember to modify the NCPL, NCSI, NOCAPL,
392    *     NOCASI array dimentions in $GPKEY, $GPDKEY common and data block.
393    *     The corresponding FFKEY call in GPFFR must be changed as well.
394    *     The GPDAT loop on these arrays should be checked too.
395    *
396            DATA NCAPL/22/
397            DATA NCAPLD/1/
398            DATA DCASIX/0.242/
399            DATA DCASIY/0.242/
400            DATA DCASIZ/0.694/
401            DATA NCASTR/32/
402            DATA CAKA/12.3,12.3,0.0025/
403            DATA CAGL/12.3,12.3,0.005/
404            DATA CAKP/12.3,12.3,0.0025/
405    C
406    ***** Neutron detector
407          DATA NDBI/21.2,21.2,6.875/,NDTU/0.92,0.925,10./,NDTI/0.,0.92,10./,
408         +     NDPB/21.2,21.2,1.0/,NDCD/21.25,21.25,6.9/
409          DATA NDBX/21.45,21.45,7./
410          DATA NDCO/27.5,30.,0.5/
411          DATA NDBO/27.5,30.,7.5/
412          DATA NDBS/15.,4.275,7./
413          DATA NDSS/14.8,4.075,6.8/
414          DATA NDCI/21.2,11.3,0.325/
415          DATA NDCM/21.2,4.25,0.325/
416          DATA NDCE/14.6,2.875,0.325/
417          DATA NDSI/1.,7.26,0.325/
418          DATA NDSM/1.,5.8,0.325/
419          DATA NDSE/4.2,1.05,0.325/
420          DATA TNDBX/0.2/
421          DATA TNDCD/0.05/
422          DATA GNDTU/0.5/

Legend:
Removed from v.3.1.1.1  
changed lines
  Added in v.3.22

  ViewVC Help
Powered by ViewVC 1.1.23