gpamela/gpcdes/gpdgeo.inc

*
* $Id: gpdgeo.inc,v 3.3 2005/06/21 02:42:08 cafagna Exp $
*
* $Log: gpdgeo.inc,v $
* 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
*
* 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/
*
* 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	cafagna	3.4	* $Id: gpdgeo.inc,v 3.3 2005/06/21 02:42:08 cafagna Exp $
3	pamela	3.2	*
4			* $Log: gpdgeo.inc,v $
5	cafagna	3.4	* Revision 3.3 2005/06/21 02:42:08 cafagna
6			* Major modification to the geometry and to the random number chain
7			*
8	cafagna	3.3	* Revision 3.2 2002/12/05 10:17:42 pamela
9			* Update CAS and CALO geometries and positions. Makefile updated as well
10			*
11	pamela	3.2	* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna
12			* First GPAMELA release on CVS
13	cafagna	3.1	*
14			*
15			*
16			* gpdgeo.inc
17	cafagna	3.4	*
18	cafagna	3.3	* 16/07/2004 16.44.06 by Alexey Bakaldin
19	pamela	3.2	* 17/10/2002 22.31.45 by Jens Lund
20	cafagna	3.1	*CMZ : 3.00/00 14/11/2000 09.13.05 by Emiliano Mocchiutti
21			*CMZ : 2.02/00 12/10/2000 18.43.21 by Francesco Cafagna
22			*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
23			*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
24			*CMZ : 1.02/00 04/02/2000 18.40.04 by Francesco Cafagna
25			*CMZ : 1.01/00 06/05/96 11.40.48 by Francesco Cafagna
26			*CMZ : 1.00/02 02/04/96 16.44.16 by Francesco Cafagna
27			*-- Author : Francesco Cafagna 05/12/95
28	cafagna	3.3	DATA PAME/0.,53.,130./
29			* AB:
30			C DATA SHEL/69.8,70.,75./
31			cml DATA SHEL/40.6,52.35,52.5,43.62253,43.77253/
32			cml DATA MSHE/52.25,52.5,20./
33			cml DATA BSPH/52.25,52.5,90.,180.,0.,360./
34			cml:
35			DATA SHEL/38.25,52.5,52.65,43.77,43.92/
36			DATA MSHE/52.5,52.75,20./
37			DATA BSPH/52.5,52.75,90.,180.,0.,360./
38			c end ml
39			* END: AB.
40			C DATA TFLA/126.8,127.,0.,33.45,0.,360./
41			DATA TFLA/0.,43.77253,0.125/
42			* AB:
43			C DATA TSPH/0., 150.,0.,0.,0.,360./
44			cml DATA TSPH/239.83,240.,0.,0.,0.,360./
45			cml:
46			DATA TSPH/239.83,240.,0.,0.,0.,360./
47			c end ml.
48			* END: AB.
49	cafagna	3.1	DATA GAPTOP/2./
50	cafagna	3.3	c ml:26/10/04
51			c DATA S11/22.,19.2,.45/
52			DATA S11/20.4,16.5,.375/
53			c DATA S12/22.,19.2,.45/
54			DATA S12/20.4,16.5,.375/
55			c DATA S21/9.,7.2,.35/
56			DATA S21/9.,7.5,.375/
57			c DATA S22/9.,7.2,.35/
58			DATA S22/9.,7.5,.375/
59			c ml: 28/10/04:
60			c dimensions of top plate. At the moment, it is a reduced version,
61			c i.e. a gap of gas with a surface equal to S21.
62			DATA TPLA/9.,7.5,.25/
63			c end ml.
64			c DATA S31/9.,7.2,.35/
65			DATA S31/9.,7.5,.40/
66			c DATA S32/9.,7.2,.35/
67			DATA S32/9.,7.5,.40/
68			c end ml:
69	cafagna	3.1	DATA S4/18.,16.,.5/
70			DATA SCTIC/0.025/
71	cafagna	3.3	c ml:26/10/04:
72			c DATA NS11X/9/
73			DATA NS11Y/8/
74			c DATA NS12Y/9/
75			DATA NS12X/6/
76			c DATA NS21X/4/
77			DATA NS21X/2/
78			c DATA NS22Y/4/
79			DATA NS22Y/2/
80			c DATA NS31Y/4/
81			DATA NS31Y/3/
82			c DATA NS32X/4/
83			DATA NS32X/3/
84			c end ml.
85	cafagna	3.1	DATA ZS11,ZS12,ZS21,ZS22,ZS31,ZS32,ZS4
86	cafagna	3.3	c ml 22/10/04:
87			c + /107.8,106.8,74.9,74.1,27.1,26.3,2.3/
88			c ml 28/10/04: introducing the top plate and calculating the zpos of S21, S22
89			c starting from the zpos of CATA:
90			c + /106.66,105.66,74.9,74.1,27.1,26.3,2.3/
91			+ /106.66,105.66,74.875,74.125,27.1,26.3,2.3/
92			DATA ZTPLA/73.5/
93			c end ml 28/10/04
94			c end ml 22/10/04:
95	cafagna	3.1	C CAT data
96			*EM:
97	pamela	3.2	*JeL:
98			DATA CATA/28.0,0.6,27.165/
99			*END: JeL.
100	cafagna	3.1	c DATA CATB/22.05,21.05,0.55/
101			DATA CATB/22.2,21.3,0.5/
102			c DATA CATL/15.75,6.675,0.55/
103			c DATA CATT/6.3,14.375,0.55/
104			DATA CATL/2.6,14.9,0.4/
105			DATA CATT/8.45,21.2,0.4/
106			DATA CATH/9.4,7.7,0.5/
107			DATA CATF/2.6,3.15,0.4/
108			DATA CATO/9.3,0.05,0.5/
109			DATA CATP/0.05,7.7,0.5/
110	pamela	3.2	DATA ZCAT/75.85/
111	cafagna	3.1	C CAS data
112			*EM:
113	pamela	3.2	*JeL:
114			DATA CASA/21.45,0.6,20.55/
115			*END: JeL.
116	cafagna	3.1	C DATA CASX/15.25,0.55,23./
117			C DATA CASY/0.55,14.75,23./
118			DATA CSSX/15.7,0.5,21.6/
119			DATA CSSY/0.5,15.7,21.6/
120			DATA CASX/15.6,0.4,21.5/
121			DATA CASY/0.4,15.6,21.5/
122			DATA CASXD/2.4/
123			DATA CASYD/2.2/
124			DATA ZCAS/51.25/
125			*END: EM.
126			C TRD data
127	cafagna	3.3	c ml: 11/11/04
128			c DATA TRFR/19,17.5,.2/
129			DATA TRFR/21.1,19.0,.275/
130			DATA TRFD/19.75,13.9,.2425/
131			DATA TRFU/19.4,13.55,.2425/
132			DATA TRFM/21.1,19.0,0.1375/
133			DATA TRFL/20.175,14.325,1.13/
134			c DATA TRFI/15.5,14.,.2/
135			DATA TRR0/21.1,38.5,.25/
136			DATA TRI0/10.65,8.85,.15/
137			DATA TRRF/16.0,15.4,0.1/
138			DATA TRRI/9.8,8.0,0.1/
139			c end ml.
140			DATA TRBS/3.3,18.3,1./
141			*ml: 10/11/66:
142			DATA TRAL/3.3,2.15,1./
143			DATA TRR2/19.025,13.175,1.51/
144			*end ml.
145	cafagna	3.1	DATA TRDS/24.,24.5,13.5/
146			DATA TRDT/3.,3.,.25/
147			DATA TRDB/17.7,18.5,0/
148			DATA TRSO/0.197,0.2,14./
149			C DATA TRSI/0.,0.197,14./
150			DATA TRSI/0.,0.2,14./
151	cafagna	3.3	*ml: 12/11/04:
152			c DATA TRRA/13.2,14.,0/
153			DATA TRRA/18.25,12.4,0.76/
154			*end ml.
155			*ml: 17/11/04:
156			c DATA TRAN/1.75,1.75,1.0/
157			c DATA TRAI/1.75,1.65,0.9/
158			DATA TRAN/1.8,1.8,1.0/
159			DATA TRAI/1.0,1.0,1.0/
160			*end ml.
161	cafagna	3.1	DATA ZTRD/90.55/
162			DATA GAPTRD/1.5/
163	cafagna	3.4	C Spectrometer data, mod by Caf on 20 Jul 2005
164			DATA SPEB/15.,14.4,0./
165	cafagna	3.3	c ml: 26/10/04:
166			c DATA MGPL/12.,11.4,4.05/
167			DATA MGPL/12.,11.4,4.0/
168	cafagna	3.4	DATA MGFR/14.,13.4,4.0/
169	cafagna	3.3	c DATA MGPI/8.05,6.55,4.05/
170			DATA MGPI/8.1,6.6,4.0/
171			c ml:17/12/04:
172			c DATA TRPB/12.,11.4,0.4/
173	cafagna	3.4	c$$$ mod by Caf on 20 Jul 2005
174			c$$$ DATA TRPB/10.49,12.15,0.365/
175			DATA TRPB/15.,14.4,0.365/
176	cafagna	3.3	ccc ml: 20/04/05:
177			cc DATA TRPL/0.,7.,0.4/
178			c DATA TRPL/0.,10.125,0.4/
179			ccc DATA TRPL/8.1,9.75,0.365/
180	cafagna	3.4	C # DATA TPAI/8.0995,8.5,0.055/
181			C # DATA TPAS/8.0995,9.75,0.06/
182			C # Mod by CAF on 15 Jul 2005
183			DATA TPAI/8.0995,1.25,0.055/
184			DATA TPAS/8.0995,9.75,0.365/
185			C # End mod
186	cafagna	3.3	c DATA TRSL/0.,7.,0./
187	cafagna	3.4	C # DATA TRSL/2.6665,7.,0.015/
188			DATA TRSL/2.6665,3.5,0.015/
189	cafagna	3.3	c DATA TSPA/2.666,3.5,0.015/
190			DATA TSPA/2.596,3.413,0.015/
191			DATA THBP/2.6665,2.75,0.015/
192			c DATA TRCP/0.005,7.,0.3/
193			DATA TRCP/0.025,10.125,0.25/
194	cafagna	3.1	DATA ZSPEC/50.6/
195	cafagna	3.4	C # DATA NTRSL/3/
196			DATA NTRSL/6/
197	cafagna	3.3	DATA NTHBP/3/
198			c end ml.
199	cafagna	3.1	C Calorimeter data
200			*EM:
201			* DATA CASI/3.9,3.9,0.019/
202			DATA CASI/3.904,3.904,0.019/
203	pamela	3.2	*F.V.&ML:
204			C DATA CG10/12.1,12.1,0.0875/
205			C DATA C10C/12.1,12.1,0.08/
206			C DATA CAAB/12.1,12.1,0.133/
207			C DATA CAPL/12.1,12.1,0./
208			C DATA CAAD/12.1,12.1,0.133/
209			C DATA CAPD/12.1,12.1,0./
210			C DATA CALB/19.7,19.7,10.2/
211	cafagna	3.4	*MA
212			DATA DZM0/0.256/, DZST/0.390/
213	pamela	3.2	DATA CG10/12.3,12.3,0.0875/
214	cafagna	3.4	C # DATA C10C/12.3,12.3,0.08/
215			C # DATA CAAB/12.3,12.3,0.1315/
216			DATA C10C/12.3,12.3,0.06/
217			DATA CAAB/12.3,12.3,0.115/
218			* end MA
219	pamela	3.2	DATA CAPL/12.3,12.3,0./
220			DATA CANS/12.3,12.3,0./
221			DATA CAAD/12.3,12.3,0.133/
222			DATA CAPD/12.3,12.3,0./
223			*ML:
224			* DATA CALB/19.7,19.7,10.45/
225			DATA CALB/23.2,23.2,10.589/
226			*END ML.
227			*END F.V.&ML.
228			*ML:
229			* DATA CALS/20.,20.,10.5/
230			DATA CALS/24.2,24.2,10.639/
231	cafagna	3.1	DATA ZCAL/13.05/
232	pamela	3.2	C with ZCAL=13.03 the distance between the bottom of the magnet and
233			C the top of the top silicon strips is about 44.24 mm, as it has to be
234			C if 37 mm is the height of the base plate and 7.24 mm is the distance
235			C between the bottom of the end of the base plate and the top silicium
236			C strips. Because of the difference is small and the height of the base
237			C plate could be approximate, I left ZCAL=13.05.
238			C DATA ZCAL/13.03/
239			*END ML.
240	cafagna	3.1	* DATA CALSTWID/0.36/
241			DATA CALSTWID/0.244/
242			*
243			* NOTE: IF you change NCAPL, remember to modify the NCPL, NCSI, NOCAPL,
244			* NOCASI array dimentions in $GPKEY, $GPDKEY common and data block.
245			* The corresponding FFKEY call in GPFFR must be changed as well.
246			* The GPDAT loop on these arrays should be checked too.
247			*
248			DATA NCAPL/22/
249			DATA NCAPLD/1/
250			C DATA DCASIX/0.3/
251	pamela	3.2	*F.V.&ML:
252			C DATA DCASIX/0.292/
253			DATA DCASIX/0.242/
254			*END F.V.&ML.
255	cafagna	3.1	C DATA DCASIY/0.3/
256	pamela	3.2	* F.V.&FRA:
257			C DATA DCASIY/0.292/
258			DATA DCASIY/0.242/
259			* END F.V.&FRA
260	cafagna	3.1	DATA DCASIZ/0.15/
261			DATA NCASTR/32/
262			*
263	pamela	3.2	* F.V.&ML:
264			C DATA CAKA/12.,12.1,0.005/
265			C DATA CAGL/12.,12.1,0.005/
266			C DATA CAKP/12.,12.1,0.0025/
267			DATA CAKA/12.3,12.3,0.0025/
268			DATA CAGL/12.3,12.3,0.005/
269			DATA CAKP/12.3,12.3,0.0025/
270			* END F.V.&ML.
271	cafagna	3.1	*END EM.
272			C