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