TALK=T;RUN(1,1) ************************************************************ Group 1. Run Title and Number ************************************************************ ************************************************************ TEXT(3-phase Rising Bubble - Case 3 ) ************************************************************ ************************************************************ IRUNN = 1 ;LIBREF = 0 ************************************************************ Group 2. Time dependence STEADY = F * Set overall time and no. of steps TFIRST =0. ;TLAST =0.5 FSTEP = 1 ;LSTEP = 2000 TFRAC(1)=5.0E-04 ;TFRAC(2)=1.0E-03 TFRAC(3)=1.5E-03 ;TFRAC(4)=2.0E-03 TFRAC(5)=2.5E-03 ;TFRAC(6)=3.0E-03 TFRAC(7)=3.5E-03 ;TFRAC(8)=4.0E-03 TFRAC(9)=4.5E-03 ;TFRAC(10)=5.0E-03 TFRAC(11)=5.5E-03 ;TFRAC(12)=6.0E-03 TFRAC(13)=6.5E-03 ;TFRAC(14)=7.0E-03 TFRAC(15)=7.5E-03 ;TFRAC(16)=8.0E-03 TFRAC(17)=8.5E-03 ;TFRAC(18)=9.0E-03 TFRAC(19)=9.5E-03 ;TFRAC(20)=1.0E-02 TFRAC(21)=0.0105 ;TFRAC(22)=0.011 TFRAC(23)=0.0115 ;TFRAC(24)=0.012 TFRAC(25)=0.0125 ;TFRAC(26)=0.013 TFRAC(27)=0.0135 ;TFRAC(28)=0.014 TFRAC(29)=0.0145 ;TFRAC(30)=0.015 TFRAC(31)=0.0155 ;TFRAC(32)=0.016 TFRAC(33)=0.0165 ;TFRAC(34)=0.017 TFRAC(35)=0.0175 ;TFRAC(36)=0.018 TFRAC(37)=0.0185 ;TFRAC(38)=0.019 TFRAC(39)=0.0195 ;TFRAC(40)=0.02 TFRAC(41)=0.0205 ;TFRAC(42)=0.021 TFRAC(43)=0.0215 ;TFRAC(44)=0.022 TFRAC(45)=0.0225 ;TFRAC(46)=0.023 TFRAC(47)=0.0235 ;TFRAC(48)=0.024 TFRAC(49)=0.0245 ;TFRAC(50)=0.025 TFRAC(51)=0.0255 ;TFRAC(52)=0.026 TFRAC(53)=0.0265 ;TFRAC(54)=0.027 TFRAC(55)=0.0275 ;TFRAC(56)=0.028 TFRAC(57)=0.0285 ;TFRAC(58)=0.029 TFRAC(59)=0.0295 ;TFRAC(60)=0.03 TFRAC(61)=0.0305 ;TFRAC(62)=0.031 TFRAC(63)=0.0315 ;TFRAC(64)=0.032 TFRAC(65)=0.0325 ;TFRAC(66)=0.033 TFRAC(67)=0.0335 ;TFRAC(68)=0.034 TFRAC(69)=0.0345 ;TFRAC(70)=0.035 TFRAC(71)=0.0355 ;TFRAC(72)=0.036 TFRAC(73)=0.0365 ;TFRAC(74)=0.037 TFRAC(75)=0.0375 ;TFRAC(76)=0.038 TFRAC(77)=0.0385 ;TFRAC(78)=0.039 TFRAC(79)=0.0395 ;TFRAC(80)=0.04 TFRAC(81)=0.0405 ;TFRAC(82)=0.041 TFRAC(83)=0.0415 ;TFRAC(84)=0.042 TFRAC(85)=0.0425 ;TFRAC(86)=0.043 TFRAC(87)=0.0435 ;TFRAC(88)=0.044 TFRAC(89)=0.0445 ;TFRAC(90)=0.045 TFRAC(91)=0.0455 ;TFRAC(92)=0.046 TFRAC(93)=0.0465 ;TFRAC(94)=0.047 TFRAC(95)=0.0475 ;TFRAC(96)=0.048 TFRAC(97)=0.0485 ;TFRAC(98)=0.049 TFRAC(99)=0.0495 ;TFRAC(100)=0.05 TFRAC(101)=0.0505 ;TFRAC(102)=0.051 TFRAC(103)=0.0515 ;TFRAC(104)=0.052 TFRAC(105)=0.0525 ;TFRAC(106)=0.053 TFRAC(107)=0.0535 ;TFRAC(108)=0.054 TFRAC(109)=0.0545 ;TFRAC(110)=0.055 TFRAC(111)=0.0555 ;TFRAC(112)=0.056 TFRAC(113)=0.0565 ;TFRAC(114)=0.057 TFRAC(115)=0.0575 ;TFRAC(116)=0.058 TFRAC(117)=0.0585 ;TFRAC(118)=0.059 TFRAC(119)=0.0595 ;TFRAC(120)=0.06 TFRAC(121)=0.0605 ;TFRAC(122)=0.061 TFRAC(123)=0.0615 ;TFRAC(124)=0.062 TFRAC(125)=0.0625 ;TFRAC(126)=0.063 TFRAC(127)=0.0635 ;TFRAC(128)=0.064 TFRAC(129)=0.0645 ;TFRAC(130)=0.065 TFRAC(131)=0.0655 ;TFRAC(132)=0.066 TFRAC(133)=0.0665 ;TFRAC(134)=0.067 TFRAC(135)=0.0675 ;TFRAC(136)=0.068 TFRAC(137)=0.0685 ;TFRAC(138)=0.069 TFRAC(139)=0.0695 ;TFRAC(140)=0.07 TFRAC(141)=0.0705 ;TFRAC(142)=0.071 TFRAC(143)=0.0715 ;TFRAC(144)=0.072 TFRAC(145)=0.0725 ;TFRAC(146)=0.073 TFRAC(147)=0.0735 ;TFRAC(148)=0.074 TFRAC(149)=0.0745 ;TFRAC(150)=0.075 TFRAC(151)=0.0755 ;TFRAC(152)=0.076 TFRAC(153)=0.0765 ;TFRAC(154)=0.077 TFRAC(155)=0.0775 ;TFRAC(156)=0.078 TFRAC(157)=0.0785 ;TFRAC(158)=0.079 TFRAC(159)=0.0795 ;TFRAC(160)=0.08 TFRAC(161)=0.0805 ;TFRAC(162)=0.081 TFRAC(163)=0.0815 ;TFRAC(164)=0.082 TFRAC(165)=0.0825 ;TFRAC(166)=0.083 TFRAC(167)=0.0835 ;TFRAC(168)=0.084 TFRAC(169)=0.0845 ;TFRAC(170)=0.085 TFRAC(171)=0.0855 ;TFRAC(172)=0.086 TFRAC(173)=0.0865 ;TFRAC(174)=0.087 TFRAC(175)=0.0875 ;TFRAC(176)=0.088 TFRAC(177)=0.0885 ;TFRAC(178)=0.089 TFRAC(179)=0.0895 ;TFRAC(180)=0.09 TFRAC(181)=0.0905 ;TFRAC(182)=0.091 TFRAC(183)=0.0915 ;TFRAC(184)=0.092 TFRAC(185)=0.0925 ;TFRAC(186)=0.093 TFRAC(187)=0.0935 ;TFRAC(188)=0.094 TFRAC(189)=0.0945 ;TFRAC(190)=0.095 TFRAC(191)=0.0955 ;TFRAC(192)=0.096 TFRAC(193)=0.0965 ;TFRAC(194)=0.097 TFRAC(195)=0.0975 ;TFRAC(196)=0.098 TFRAC(197)=0.0985 ;TFRAC(198)=0.099 TFRAC(199)=0.0995 ;TFRAC(200)=0.1 TFRAC(201)=0.1005 ;TFRAC(202)=0.101 TFRAC(203)=0.1015 ;TFRAC(204)=0.102 TFRAC(205)=0.1025 ;TFRAC(206)=0.103 TFRAC(207)=0.1035 ;TFRAC(208)=0.104 TFRAC(209)=0.1045 ;TFRAC(210)=0.105 TFRAC(211)=0.1055 ;TFRAC(212)=0.106 TFRAC(213)=0.1065 ;TFRAC(214)=0.107 TFRAC(215)=0.1075 ;TFRAC(216)=0.108 TFRAC(217)=0.1085 ;TFRAC(218)=0.109 TFRAC(219)=0.1095 ;TFRAC(220)=0.11 TFRAC(221)=0.1105 ;TFRAC(222)=0.111 TFRAC(223)=0.1115 ;TFRAC(224)=0.112 TFRAC(225)=0.1125 ;TFRAC(226)=0.113 TFRAC(227)=0.1135 ;TFRAC(228)=0.114 TFRAC(229)=0.1145 ;TFRAC(230)=0.115 TFRAC(231)=0.1155 ;TFRAC(232)=0.116 TFRAC(233)=0.1165 ;TFRAC(234)=0.117 TFRAC(235)=0.1175 ;TFRAC(236)=0.118 TFRAC(237)=0.1185 ;TFRAC(238)=0.119 TFRAC(239)=0.1195 ;TFRAC(240)=0.12 TFRAC(241)=0.1205 ;TFRAC(242)=0.121 TFRAC(243)=0.1215 ;TFRAC(244)=0.122 TFRAC(245)=0.1225 ;TFRAC(246)=0.123 TFRAC(247)=0.1235 ;TFRAC(248)=0.124 TFRAC(249)=0.1245 ;TFRAC(250)=0.125 TFRAC(251)=0.1255 ;TFRAC(252)=0.126 TFRAC(253)=0.1265 ;TFRAC(254)=0.127 TFRAC(255)=0.1275 ;TFRAC(256)=0.128 TFRAC(257)=0.1285 ;TFRAC(258)=0.129 TFRAC(259)=0.1295 ;TFRAC(260)=0.13 TFRAC(261)=0.1305 ;TFRAC(262)=0.131 TFRAC(263)=0.1315 ;TFRAC(264)=0.132 TFRAC(265)=0.1325 ;TFRAC(266)=0.133 TFRAC(267)=0.1335 ;TFRAC(268)=0.134 TFRAC(269)=0.1345 ;TFRAC(270)=0.135 TFRAC(271)=0.1355 ;TFRAC(272)=0.136 TFRAC(273)=0.1365 ;TFRAC(274)=0.137 TFRAC(275)=0.1375 ;TFRAC(276)=0.138 TFRAC(277)=0.1385 ;TFRAC(278)=0.139 TFRAC(279)=0.1395 ;TFRAC(280)=0.14 TFRAC(281)=0.1405 ;TFRAC(282)=0.141 TFRAC(283)=0.1415 ;TFRAC(284)=0.142 TFRAC(285)=0.1425 ;TFRAC(286)=0.143 TFRAC(287)=0.1435 ;TFRAC(288)=0.144 TFRAC(289)=0.1445 ;TFRAC(290)=0.145 TFRAC(291)=0.1455 ;TFRAC(292)=0.146 TFRAC(293)=0.1465 ;TFRAC(294)=0.147 TFRAC(295)=0.1475 ;TFRAC(296)=0.148 TFRAC(297)=0.1485 ;TFRAC(298)=0.149 TFRAC(299)=0.1495 ;TFRAC(300)=0.15 TFRAC(301)=0.1505 ;TFRAC(302)=0.151 TFRAC(303)=0.1515 ;TFRAC(304)=0.152 TFRAC(305)=0.1525 ;TFRAC(306)=0.153 TFRAC(307)=0.1535 ;TFRAC(308)=0.154 TFRAC(309)=0.1545 ;TFRAC(310)=0.155 TFRAC(311)=0.1555 ;TFRAC(312)=0.156 TFRAC(313)=0.1565 ;TFRAC(314)=0.157 TFRAC(315)=0.1575 ;TFRAC(316)=0.158 TFRAC(317)=0.1585 ;TFRAC(318)=0.159 TFRAC(319)=0.1595 ;TFRAC(320)=0.16 TFRAC(321)=0.1605 ;TFRAC(322)=0.161 TFRAC(323)=0.1615 ;TFRAC(324)=0.162 TFRAC(325)=0.1625 ;TFRAC(326)=0.163 TFRAC(327)=0.1635 ;TFRAC(328)=0.164 TFRAC(329)=0.1645 ;TFRAC(330)=0.165 TFRAC(331)=0.1655 ;TFRAC(332)=0.166 TFRAC(333)=0.1665 ;TFRAC(334)=0.167 TFRAC(335)=0.1675 ;TFRAC(336)=0.168 TFRAC(337)=0.1685 ;TFRAC(338)=0.169 TFRAC(339)=0.1695 ;TFRAC(340)=0.17 TFRAC(341)=0.1705 ;TFRAC(342)=0.171 TFRAC(343)=0.1715 ;TFRAC(344)=0.172 TFRAC(345)=0.1725 ;TFRAC(346)=0.173 TFRAC(347)=0.1735 ;TFRAC(348)=0.174 TFRAC(349)=0.1745 ;TFRAC(350)=0.175 TFRAC(351)=0.1755 ;TFRAC(352)=0.176 TFRAC(353)=0.1765 ;TFRAC(354)=0.177 TFRAC(355)=0.1775 ;TFRAC(356)=0.178 TFRAC(357)=0.1785 ;TFRAC(358)=0.179 TFRAC(359)=0.1795 ;TFRAC(360)=0.18 TFRAC(361)=0.1805 ;TFRAC(362)=0.181 TFRAC(363)=0.1815 ;TFRAC(364)=0.182 TFRAC(365)=0.1825 ;TFRAC(366)=0.183 TFRAC(367)=0.1835 ;TFRAC(368)=0.184 TFRAC(369)=0.1845 ;TFRAC(370)=0.185 TFRAC(371)=0.1855 ;TFRAC(372)=0.186 TFRAC(373)=0.1865 ;TFRAC(374)=0.187 TFRAC(375)=0.1875 ;TFRAC(376)=0.188 TFRAC(377)=0.1885 ;TFRAC(378)=0.189 TFRAC(379)=0.1895 ;TFRAC(380)=0.19 TFRAC(381)=0.1905 ;TFRAC(382)=0.191 TFRAC(383)=0.1915 ;TFRAC(384)=0.192 TFRAC(385)=0.1925 ;TFRAC(386)=0.193 TFRAC(387)=0.1935 ;TFRAC(388)=0.194 TFRAC(389)=0.1945 ;TFRAC(390)=0.195 TFRAC(391)=0.1955 ;TFRAC(392)=0.196 TFRAC(393)=0.1965 ;TFRAC(394)=0.197 TFRAC(395)=0.1975 ;TFRAC(396)=0.198 TFRAC(397)=0.1985 ;TFRAC(398)=0.199 TFRAC(399)=0.1995 ;TFRAC(400)=0.2 TFRAC(401)=0.2005 ;TFRAC(402)=0.201 TFRAC(403)=0.2015 ;TFRAC(404)=0.202 TFRAC(405)=0.2025 ;TFRAC(406)=0.203 TFRAC(407)=0.2035 ;TFRAC(408)=0.204 TFRAC(409)=0.2045 ;TFRAC(410)=0.205 TFRAC(411)=0.2055 ;TFRAC(412)=0.206 TFRAC(413)=0.2065 ;TFRAC(414)=0.207 TFRAC(415)=0.2075 ;TFRAC(416)=0.208 TFRAC(417)=0.2085 ;TFRAC(418)=0.209 TFRAC(419)=0.2095 ;TFRAC(420)=0.21 TFRAC(421)=0.2105 ;TFRAC(422)=0.211 TFRAC(423)=0.2115 ;TFRAC(424)=0.212 TFRAC(425)=0.2125 ;TFRAC(426)=0.213 TFRAC(427)=0.2135 ;TFRAC(428)=0.214 TFRAC(429)=0.2145 ;TFRAC(430)=0.215 TFRAC(431)=0.2155 ;TFRAC(432)=0.216 TFRAC(433)=0.2165 ;TFRAC(434)=0.217 TFRAC(435)=0.2175 ;TFRAC(436)=0.218 TFRAC(437)=0.2185 ;TFRAC(438)=0.219 TFRAC(439)=0.2195 ;TFRAC(440)=0.22 TFRAC(441)=0.2205 ;TFRAC(442)=0.221 TFRAC(443)=0.2215 ;TFRAC(444)=0.222 TFRAC(445)=0.2225 ;TFRAC(446)=0.223 TFRAC(447)=0.2235 ;TFRAC(448)=0.224 TFRAC(449)=0.2245 ;TFRAC(450)=0.225 TFRAC(451)=0.2255 ;TFRAC(452)=0.226 TFRAC(453)=0.2265 ;TFRAC(454)=0.227 TFRAC(455)=0.2275 ;TFRAC(456)=0.228 TFRAC(457)=0.2285 ;TFRAC(458)=0.229 TFRAC(459)=0.2295 ;TFRAC(460)=0.23 TFRAC(461)=0.2305 ;TFRAC(462)=0.231 TFRAC(463)=0.2315 ;TFRAC(464)=0.232 TFRAC(465)=0.2325 ;TFRAC(466)=0.233 TFRAC(467)=0.2335 ;TFRAC(468)=0.234 TFRAC(469)=0.2345 ;TFRAC(470)=0.235 TFRAC(471)=0.2355 ;TFRAC(472)=0.236 TFRAC(473)=0.2365 ;TFRAC(474)=0.237 TFRAC(475)=0.2375 ;TFRAC(476)=0.238 TFRAC(477)=0.2385 ;TFRAC(478)=0.239 TFRAC(479)=0.2395 ;TFRAC(480)=0.24 TFRAC(481)=0.2405 ;TFRAC(482)=0.241 TFRAC(483)=0.2415 ;TFRAC(484)=0.242 TFRAC(485)=0.2425 ;TFRAC(486)=0.243 TFRAC(487)=0.2435 ;TFRAC(488)=0.244 TFRAC(489)=0.2445 ;TFRAC(490)=0.245 TFRAC(491)=0.2455 ;TFRAC(492)=0.246 TFRAC(493)=0.2465 ;TFRAC(494)=0.247 TFRAC(495)=0.2475 ;TFRAC(496)=0.248 TFRAC(497)=0.2485 ;TFRAC(498)=0.249 TFRAC(499)=0.2495 ;TFRAC(500)=0.25 TFRAC(501)=0.2505 ;TFRAC(502)=0.251 TFRAC(503)=0.2515 ;TFRAC(504)=0.252 TFRAC(505)=0.2525 ;TFRAC(506)=0.253 TFRAC(507)=0.2535 ;TFRAC(508)=0.254 TFRAC(509)=0.2545 ;TFRAC(510)=0.255 TFRAC(511)=0.2555 ;TFRAC(512)=0.256 TFRAC(513)=0.2565 ;TFRAC(514)=0.257 TFRAC(515)=0.2575 ;TFRAC(516)=0.258 TFRAC(517)=0.2585 ;TFRAC(518)=0.259 TFRAC(519)=0.2595 ;TFRAC(520)=0.26 TFRAC(521)=0.2605 ;TFRAC(522)=0.261 TFRAC(523)=0.2615 ;TFRAC(524)=0.262 TFRAC(525)=0.2625 ;TFRAC(526)=0.263 TFRAC(527)=0.2635 ;TFRAC(528)=0.264 TFRAC(529)=0.2645 ;TFRAC(530)=0.265 TFRAC(531)=0.2655 ;TFRAC(532)=0.266 TFRAC(533)=0.2665 ;TFRAC(534)=0.267 TFRAC(535)=0.2675 ;TFRAC(536)=0.268 TFRAC(537)=0.2685 ;TFRAC(538)=0.269 TFRAC(539)=0.2695 ;TFRAC(540)=0.27 TFRAC(541)=0.2705 ;TFRAC(542)=0.271 TFRAC(543)=0.2715 ;TFRAC(544)=0.272 TFRAC(545)=0.2725 ;TFRAC(546)=0.273 TFRAC(547)=0.2735 ;TFRAC(548)=0.274 TFRAC(549)=0.2745 ;TFRAC(550)=0.275 TFRAC(551)=0.2755 ;TFRAC(552)=0.276 TFRAC(553)=0.2765 ;TFRAC(554)=0.277 TFRAC(555)=0.2775 ;TFRAC(556)=0.278 TFRAC(557)=0.2785 ;TFRAC(558)=0.279 TFRAC(559)=0.2795 ;TFRAC(560)=0.28 TFRAC(561)=0.2805 ;TFRAC(562)=0.281 TFRAC(563)=0.2815 ;TFRAC(564)=0.282 TFRAC(565)=0.2825 ;TFRAC(566)=0.283 TFRAC(567)=0.2835 ;TFRAC(568)=0.284 TFRAC(569)=0.2845 ;TFRAC(570)=0.285 TFRAC(571)=0.2855 ;TFRAC(572)=0.286 TFRAC(573)=0.2865 ;TFRAC(574)=0.287 TFRAC(575)=0.2875 ;TFRAC(576)=0.288 TFRAC(577)=0.2885 ;TFRAC(578)=0.289 TFRAC(579)=0.2895 ;TFRAC(580)=0.29 TFRAC(581)=0.2905 ;TFRAC(582)=0.291 TFRAC(583)=0.2915 ;TFRAC(584)=0.292 TFRAC(585)=0.2925 ;TFRAC(586)=0.293 TFRAC(587)=0.2935 ;TFRAC(588)=0.294 TFRAC(589)=0.2945 ;TFRAC(590)=0.295 TFRAC(591)=0.2955 ;TFRAC(592)=0.296 TFRAC(593)=0.2965 ;TFRAC(594)=0.297 TFRAC(595)=0.2975 ;TFRAC(596)=0.298 TFRAC(597)=0.2985 ;TFRAC(598)=0.299 TFRAC(599)=0.2995 ;TFRAC(600)=0.3 TFRAC(601)=0.3005 ;TFRAC(602)=0.301 TFRAC(603)=0.3015 ;TFRAC(604)=0.302 TFRAC(605)=0.3025 ;TFRAC(606)=0.303 TFRAC(607)=0.3035 ;TFRAC(608)=0.304 TFRAC(609)=0.3045 ;TFRAC(610)=0.305 TFRAC(611)=0.3055 ;TFRAC(612)=0.306 TFRAC(613)=0.3065 ;TFRAC(614)=0.307 TFRAC(615)=0.3075 ;TFRAC(616)=0.308 TFRAC(617)=0.3085 ;TFRAC(618)=0.309 TFRAC(619)=0.3095 ;TFRAC(620)=0.31 TFRAC(621)=0.3105 ;TFRAC(622)=0.311 TFRAC(623)=0.3115 ;TFRAC(624)=0.312 TFRAC(625)=0.3125 ;TFRAC(626)=0.313 TFRAC(627)=0.3135 ;TFRAC(628)=0.314 TFRAC(629)=0.3145 ;TFRAC(630)=0.315 TFRAC(631)=0.3155 ;TFRAC(632)=0.316 TFRAC(633)=0.3165 ;TFRAC(634)=0.317 TFRAC(635)=0.3175 ;TFRAC(636)=0.318 TFRAC(637)=0.3185 ;TFRAC(638)=0.319 TFRAC(639)=0.3195 ;TFRAC(640)=0.32 TFRAC(641)=0.3205 ;TFRAC(642)=0.321 TFRAC(643)=0.3215 ;TFRAC(644)=0.322 TFRAC(645)=0.3225 ;TFRAC(646)=0.323 TFRAC(647)=0.3235 ;TFRAC(648)=0.324 TFRAC(649)=0.3245 ;TFRAC(650)=0.325 TFRAC(651)=0.3255 ;TFRAC(652)=0.326 TFRAC(653)=0.3265 ;TFRAC(654)=0.327 TFRAC(655)=0.3275 ;TFRAC(656)=0.328 TFRAC(657)=0.3285 ;TFRAC(658)=0.329 TFRAC(659)=0.3295 ;TFRAC(660)=0.33 TFRAC(661)=0.3305 ;TFRAC(662)=0.331 TFRAC(663)=0.3315 ;TFRAC(664)=0.332 TFRAC(665)=0.3325 ;TFRAC(666)=0.333 TFRAC(667)=0.3335 ;TFRAC(668)=0.334 TFRAC(669)=0.3345 ;TFRAC(670)=0.335 TFRAC(671)=0.3355 ;TFRAC(672)=0.336 TFRAC(673)=0.3365 ;TFRAC(674)=0.337 TFRAC(675)=0.3375 ;TFRAC(676)=0.338 TFRAC(677)=0.3385 ;TFRAC(678)=0.339 TFRAC(679)=0.3395 ;TFRAC(680)=0.34 TFRAC(681)=0.3405 ;TFRAC(682)=0.341 TFRAC(683)=0.3415 ;TFRAC(684)=0.342 TFRAC(685)=0.3425 ;TFRAC(686)=0.343 TFRAC(687)=0.3435 ;TFRAC(688)=0.344 TFRAC(689)=0.3445 ;TFRAC(690)=0.345 TFRAC(691)=0.3455 ;TFRAC(692)=0.346 TFRAC(693)=0.3465 ;TFRAC(694)=0.347 TFRAC(695)=0.3475 ;TFRAC(696)=0.348 TFRAC(697)=0.3485 ;TFRAC(698)=0.349 TFRAC(699)=0.3495 ;TFRAC(700)=0.35 TFRAC(701)=0.3505 ;TFRAC(702)=0.351 TFRAC(703)=0.3515 ;TFRAC(704)=0.352 TFRAC(705)=0.3525 ;TFRAC(706)=0.353 TFRAC(707)=0.3535 ;TFRAC(708)=0.354 TFRAC(709)=0.3545 ;TFRAC(710)=0.355 TFRAC(711)=0.3555 ;TFRAC(712)=0.356 TFRAC(713)=0.3565 ;TFRAC(714)=0.357 TFRAC(715)=0.3575 ;TFRAC(716)=0.358 TFRAC(717)=0.3585 ;TFRAC(718)=0.359 TFRAC(719)=0.3595 ;TFRAC(720)=0.36 TFRAC(721)=0.3605 ;TFRAC(722)=0.361 TFRAC(723)=0.3615 ;TFRAC(724)=0.362 TFRAC(725)=0.3625 ;TFRAC(726)=0.363 TFRAC(727)=0.3635 ;TFRAC(728)=0.364 TFRAC(729)=0.3645 ;TFRAC(730)=0.365 TFRAC(731)=0.3655 ;TFRAC(732)=0.366 TFRAC(733)=0.3665 ;TFRAC(734)=0.367 TFRAC(735)=0.3675 ;TFRAC(736)=0.368 TFRAC(737)=0.3685 ;TFRAC(738)=0.369 TFRAC(739)=0.3695 ;TFRAC(740)=0.37 TFRAC(741)=0.3705 ;TFRAC(742)=0.371 TFRAC(743)=0.3715 ;TFRAC(744)=0.372 TFRAC(745)=0.3725 ;TFRAC(746)=0.373 TFRAC(747)=0.3735 ;TFRAC(748)=0.374 TFRAC(749)=0.3745 ;TFRAC(750)=0.375 TFRAC(751)=0.3755 ;TFRAC(752)=0.376 TFRAC(753)=0.3765 ;TFRAC(754)=0.377 TFRAC(755)=0.3775 ;TFRAC(756)=0.378 TFRAC(757)=0.3785 ;TFRAC(758)=0.379 TFRAC(759)=0.3795 ;TFRAC(760)=0.38 TFRAC(761)=0.3805 ;TFRAC(762)=0.381 TFRAC(763)=0.3815 ;TFRAC(764)=0.382 TFRAC(765)=0.3825 ;TFRAC(766)=0.383 TFRAC(767)=0.3835 ;TFRAC(768)=0.384 TFRAC(769)=0.3845 ;TFRAC(770)=0.385 TFRAC(771)=0.3855 ;TFRAC(772)=0.386 TFRAC(773)=0.3865 ;TFRAC(774)=0.387 TFRAC(775)=0.3875 ;TFRAC(776)=0.388 TFRAC(777)=0.3885 ;TFRAC(778)=0.389 TFRAC(779)=0.3895 ;TFRAC(780)=0.39 TFRAC(781)=0.3905 ;TFRAC(782)=0.391 TFRAC(783)=0.3915 ;TFRAC(784)=0.392 TFRAC(785)=0.3925 ;TFRAC(786)=0.393 TFRAC(787)=0.3935 ;TFRAC(788)=0.394 TFRAC(789)=0.3945 ;TFRAC(790)=0.395 TFRAC(791)=0.3955 ;TFRAC(792)=0.396 TFRAC(793)=0.3965 ;TFRAC(794)=0.397 TFRAC(795)=0.3975 ;TFRAC(796)=0.398 TFRAC(797)=0.3985 ;TFRAC(798)=0.399 TFRAC(799)=0.3995 ;TFRAC(800)=0.4 TFRAC(801)=0.4005 ;TFRAC(802)=0.401 TFRAC(803)=0.4015 ;TFRAC(804)=0.402 TFRAC(805)=0.4025 ;TFRAC(806)=0.403 TFRAC(807)=0.4035 ;TFRAC(808)=0.404 TFRAC(809)=0.4045 ;TFRAC(810)=0.405 TFRAC(811)=0.4055 ;TFRAC(812)=0.406 TFRAC(813)=0.4065 ;TFRAC(814)=0.407 TFRAC(815)=0.4075 ;TFRAC(816)=0.408 TFRAC(817)=0.4085 ;TFRAC(818)=0.409 TFRAC(819)=0.4095 ;TFRAC(820)=0.41 TFRAC(821)=0.4105 ;TFRAC(822)=0.411 TFRAC(823)=0.4115 ;TFRAC(824)=0.412 TFRAC(825)=0.4125 ;TFRAC(826)=0.413 TFRAC(827)=0.4135 ;TFRAC(828)=0.414 TFRAC(829)=0.4145 ;TFRAC(830)=0.415 TFRAC(831)=0.4155 ;TFRAC(832)=0.416 TFRAC(833)=0.4165 ;TFRAC(834)=0.417 TFRAC(835)=0.4175 ;TFRAC(836)=0.418 TFRAC(837)=0.4185 ;TFRAC(838)=0.419 TFRAC(839)=0.4195 ;TFRAC(840)=0.42 TFRAC(841)=0.4205 ;TFRAC(842)=0.421 TFRAC(843)=0.4215 ;TFRAC(844)=0.422 TFRAC(845)=0.4225 ;TFRAC(846)=0.423 TFRAC(847)=0.4235 ;TFRAC(848)=0.424 TFRAC(849)=0.4245 ;TFRAC(850)=0.425 TFRAC(851)=0.4255 ;TFRAC(852)=0.426 TFRAC(853)=0.4265 ;TFRAC(854)=0.427 TFRAC(855)=0.4275 ;TFRAC(856)=0.428 TFRAC(857)=0.4285 ;TFRAC(858)=0.429 TFRAC(859)=0.4295 ;TFRAC(860)=0.43 TFRAC(861)=0.4305 ;TFRAC(862)=0.431 TFRAC(863)=0.4315 ;TFRAC(864)=0.432 TFRAC(865)=0.4325 ;TFRAC(866)=0.433 TFRAC(867)=0.4335 ;TFRAC(868)=0.434 TFRAC(869)=0.4345 ;TFRAC(870)=0.435 TFRAC(871)=0.4355 ;TFRAC(872)=0.436 TFRAC(873)=0.4365 ;TFRAC(874)=0.437 TFRAC(875)=0.4375 ;TFRAC(876)=0.438 TFRAC(877)=0.4385 ;TFRAC(878)=0.439 TFRAC(879)=0.4395 ;TFRAC(880)=0.44 TFRAC(881)=0.4405 ;TFRAC(882)=0.441 TFRAC(883)=0.4415 ;TFRAC(884)=0.442 TFRAC(885)=0.4425 ;TFRAC(886)=0.443 TFRAC(887)=0.4435 ;TFRAC(888)=0.444 TFRAC(889)=0.4445 ;TFRAC(890)=0.445 TFRAC(891)=0.4455 ;TFRAC(892)=0.446 TFRAC(893)=0.4465 ;TFRAC(894)=0.447 TFRAC(895)=0.4475 ;TFRAC(896)=0.448 TFRAC(897)=0.4485 ;TFRAC(898)=0.449 TFRAC(899)=0.4495 ;TFRAC(900)=0.45 TFRAC(901)=0.4505 ;TFRAC(902)=0.451 TFRAC(903)=0.4515 ;TFRAC(904)=0.452 TFRAC(905)=0.4525 ;TFRAC(906)=0.453 TFRAC(907)=0.4535 ;TFRAC(908)=0.454 TFRAC(909)=0.4545 ;TFRAC(910)=0.455 TFRAC(911)=0.4555 ;TFRAC(912)=0.456 TFRAC(913)=0.4565 ;TFRAC(914)=0.457 TFRAC(915)=0.4575 ;TFRAC(916)=0.458 TFRAC(917)=0.4585 ;TFRAC(918)=0.459 TFRAC(919)=0.4595 ;TFRAC(920)=0.46 TFRAC(921)=0.4605 ;TFRAC(922)=0.461 TFRAC(923)=0.4615 ;TFRAC(924)=0.462 TFRAC(925)=0.4625 ;TFRAC(926)=0.463 TFRAC(927)=0.4635 ;TFRAC(928)=0.464 TFRAC(929)=0.4645 ;TFRAC(930)=0.465 TFRAC(931)=0.4655 ;TFRAC(932)=0.466 TFRAC(933)=0.4665 ;TFRAC(934)=0.467 TFRAC(935)=0.4675 ;TFRAC(936)=0.468 TFRAC(937)=0.4685 ;TFRAC(938)=0.469 TFRAC(939)=0.4695 ;TFRAC(940)=0.47 TFRAC(941)=0.4705 ;TFRAC(942)=0.471 TFRAC(943)=0.4715 ;TFRAC(944)=0.472 TFRAC(945)=0.4725 ;TFRAC(946)=0.473 TFRAC(947)=0.4735 ;TFRAC(948)=0.474 TFRAC(949)=0.4745 ;TFRAC(950)=0.475 TFRAC(951)=0.4755 ;TFRAC(952)=0.476 TFRAC(953)=0.4765 ;TFRAC(954)=0.477 TFRAC(955)=0.4775 ;TFRAC(956)=0.478 TFRAC(957)=0.4785 ;TFRAC(958)=0.479 TFRAC(959)=0.4795 ;TFRAC(960)=0.48 TFRAC(961)=0.4805 ;TFRAC(962)=0.481 TFRAC(963)=0.4815 ;TFRAC(964)=0.482 TFRAC(965)=0.4825 ;TFRAC(966)=0.483 TFRAC(967)=0.4835 ;TFRAC(968)=0.484 TFRAC(969)=0.4845 ;TFRAC(970)=0.485 TFRAC(971)=0.4855 ;TFRAC(972)=0.486 TFRAC(973)=0.4865 ;TFRAC(974)=0.487 TFRAC(975)=0.4875 ;TFRAC(976)=0.488 TFRAC(977)=0.4885 ;TFRAC(978)=0.489 TFRAC(979)=0.4895 ;TFRAC(980)=0.49 TFRAC(981)=0.4905 ;TFRAC(982)=0.491 TFRAC(983)=0.4915 ;TFRAC(984)=0.492 TFRAC(985)=0.4925 ;TFRAC(986)=0.493 TFRAC(987)=0.4935 ;TFRAC(988)=0.494 TFRAC(989)=0.4945 ;TFRAC(990)=0.495 TFRAC(991)=0.4955 ;TFRAC(992)=0.496 TFRAC(993)=0.4965 ;TFRAC(994)=0.497 TFRAC(995)=0.4975 ;TFRAC(996)=0.498 TFRAC(997)=0.4985 ;TFRAC(998)=0.499 TFRAC(999)=0.4995 ;TFRAC(1000)=0.5 TFRAC(1001)=0.5005 ;TFRAC(1002)=0.501 TFRAC(1003)=0.5015 ;TFRAC(1004)=0.502 TFRAC(1005)=0.5025 ;TFRAC(1006)=0.503 TFRAC(1007)=0.5035 ;TFRAC(1008)=0.504 TFRAC(1009)=0.5045 ;TFRAC(1010)=0.505 TFRAC(1011)=0.5055 ;TFRAC(1012)=0.506 TFRAC(1013)=0.5065 ;TFRAC(1014)=0.507 TFRAC(1015)=0.5075 ;TFRAC(1016)=0.508 TFRAC(1017)=0.5085 ;TFRAC(1018)=0.509 TFRAC(1019)=0.5095 ;TFRAC(1020)=0.51 TFRAC(1021)=0.5105 ;TFRAC(1022)=0.511 TFRAC(1023)=0.5115 ;TFRAC(1024)=0.512 TFRAC(1025)=0.5125 ;TFRAC(1026)=0.513 TFRAC(1027)=0.5135 ;TFRAC(1028)=0.514 TFRAC(1029)=0.5145 ;TFRAC(1030)=0.515 TFRAC(1031)=0.5155 ;TFRAC(1032)=0.516 TFRAC(1033)=0.5165 ;TFRAC(1034)=0.517 TFRAC(1035)=0.5175 ;TFRAC(1036)=0.518 TFRAC(1037)=0.5185 ;TFRAC(1038)=0.519 TFRAC(1039)=0.5195 ;TFRAC(1040)=0.52 TFRAC(1041)=0.5205 ;TFRAC(1042)=0.521 TFRAC(1043)=0.5215 ;TFRAC(1044)=0.522 TFRAC(1045)=0.5225 ;TFRAC(1046)=0.523 TFRAC(1047)=0.5235 ;TFRAC(1048)=0.524 TFRAC(1049)=0.5245 ;TFRAC(1050)=0.525 TFRAC(1051)=0.5255 ;TFRAC(1052)=0.526 TFRAC(1053)=0.5265 ;TFRAC(1054)=0.527 TFRAC(1055)=0.5275 ;TFRAC(1056)=0.528 TFRAC(1057)=0.5285 ;TFRAC(1058)=0.529 TFRAC(1059)=0.5295 ;TFRAC(1060)=0.53 TFRAC(1061)=0.5305 ;TFRAC(1062)=0.531 TFRAC(1063)=0.5315 ;TFRAC(1064)=0.532 TFRAC(1065)=0.5325 ;TFRAC(1066)=0.533 TFRAC(1067)=0.5335 ;TFRAC(1068)=0.534 TFRAC(1069)=0.5345 ;TFRAC(1070)=0.535 TFRAC(1071)=0.5355 ;TFRAC(1072)=0.536 TFRAC(1073)=0.5365 ;TFRAC(1074)=0.537 TFRAC(1075)=0.5375 ;TFRAC(1076)=0.538 TFRAC(1077)=0.5385 ;TFRAC(1078)=0.539 TFRAC(1079)=0.5395 ;TFRAC(1080)=0.54 TFRAC(1081)=0.5405 ;TFRAC(1082)=0.541 TFRAC(1083)=0.5415 ;TFRAC(1084)=0.542 TFRAC(1085)=0.5425 ;TFRAC(1086)=0.543 TFRAC(1087)=0.5435 ;TFRAC(1088)=0.544 TFRAC(1089)=0.5445 ;TFRAC(1090)=0.545 TFRAC(1091)=0.5455 ;TFRAC(1092)=0.546 TFRAC(1093)=0.5465 ;TFRAC(1094)=0.547 TFRAC(1095)=0.5475 ;TFRAC(1096)=0.548 TFRAC(1097)=0.5485 ;TFRAC(1098)=0.549 TFRAC(1099)=0.5495 ;TFRAC(1100)=0.55 TFRAC(1101)=0.5505 ;TFRAC(1102)=0.551 TFRAC(1103)=0.5515 ;TFRAC(1104)=0.552 TFRAC(1105)=0.5525 ;TFRAC(1106)=0.553 TFRAC(1107)=0.5535 ;TFRAC(1108)=0.554 TFRAC(1109)=0.5545 ;TFRAC(1110)=0.555 TFRAC(1111)=0.5555 ;TFRAC(1112)=0.556 TFRAC(1113)=0.5565 ;TFRAC(1114)=0.557 TFRAC(1115)=0.5575 ;TFRAC(1116)=0.558 TFRAC(1117)=0.5585 ;TFRAC(1118)=0.559 TFRAC(1119)=0.5595 ;TFRAC(1120)=0.56 TFRAC(1121)=0.5605 ;TFRAC(1122)=0.561 TFRAC(1123)=0.5615 ;TFRAC(1124)=0.562 TFRAC(1125)=0.5625 ;TFRAC(1126)=0.563 TFRAC(1127)=0.5635 ;TFRAC(1128)=0.564 TFRAC(1129)=0.5645 ;TFRAC(1130)=0.565 TFRAC(1131)=0.5655 ;TFRAC(1132)=0.566 TFRAC(1133)=0.5665 ;TFRAC(1134)=0.567 TFRAC(1135)=0.5675 ;TFRAC(1136)=0.568 TFRAC(1137)=0.5685 ;TFRAC(1138)=0.569 TFRAC(1139)=0.5695 ;TFRAC(1140)=0.57 TFRAC(1141)=0.5705 ;TFRAC(1142)=0.571 TFRAC(1143)=0.5715 ;TFRAC(1144)=0.572 TFRAC(1145)=0.5725 ;TFRAC(1146)=0.573 TFRAC(1147)=0.5735 ;TFRAC(1148)=0.574 TFRAC(1149)=0.5745 ;TFRAC(1150)=0.575 TFRAC(1151)=0.5755 ;TFRAC(1152)=0.576 TFRAC(1153)=0.5765 ;TFRAC(1154)=0.577 TFRAC(1155)=0.5775 ;TFRAC(1156)=0.578 TFRAC(1157)=0.5785 ;TFRAC(1158)=0.579 TFRAC(1159)=0.5795 ;TFRAC(1160)=0.58 TFRAC(1161)=0.5805 ;TFRAC(1162)=0.581 TFRAC(1163)=0.5815 ;TFRAC(1164)=0.582 TFRAC(1165)=0.5825 ;TFRAC(1166)=0.583 TFRAC(1167)=0.5835 ;TFRAC(1168)=0.584 TFRAC(1169)=0.5845 ;TFRAC(1170)=0.585 TFRAC(1171)=0.5855 ;TFRAC(1172)=0.586 TFRAC(1173)=0.5865 ;TFRAC(1174)=0.587 TFRAC(1175)=0.5875 ;TFRAC(1176)=0.588 TFRAC(1177)=0.5885 ;TFRAC(1178)=0.589 TFRAC(1179)=0.5895 ;TFRAC(1180)=0.59 TFRAC(1181)=0.5905 ;TFRAC(1182)=0.591 TFRAC(1183)=0.5915 ;TFRAC(1184)=0.592 TFRAC(1185)=0.5925 ;TFRAC(1186)=0.593 TFRAC(1187)=0.5935 ;TFRAC(1188)=0.594 TFRAC(1189)=0.5945 ;TFRAC(1190)=0.595 TFRAC(1191)=0.5955 ;TFRAC(1192)=0.596 TFRAC(1193)=0.5965 ;TFRAC(1194)=0.597 TFRAC(1195)=0.5975 ;TFRAC(1196)=0.598 TFRAC(1197)=0.5985 ;TFRAC(1198)=0.599 TFRAC(1199)=0.5995 ;TFRAC(1200)=0.6 TFRAC(1201)=0.6005 ;TFRAC(1202)=0.601 TFRAC(1203)=0.6015 ;TFRAC(1204)=0.602 TFRAC(1205)=0.6025 ;TFRAC(1206)=0.603 TFRAC(1207)=0.6035 ;TFRAC(1208)=0.604 TFRAC(1209)=0.6045 ;TFRAC(1210)=0.605 TFRAC(1211)=0.6055 ;TFRAC(1212)=0.606 TFRAC(1213)=0.6065 ;TFRAC(1214)=0.607 TFRAC(1215)=0.6075 ;TFRAC(1216)=0.608 TFRAC(1217)=0.6085 ;TFRAC(1218)=0.609 TFRAC(1219)=0.6095 ;TFRAC(1220)=0.61 TFRAC(1221)=0.6105 ;TFRAC(1222)=0.611 TFRAC(1223)=0.6115 ;TFRAC(1224)=0.612 TFRAC(1225)=0.6125 ;TFRAC(1226)=0.613 TFRAC(1227)=0.6135 ;TFRAC(1228)=0.614 TFRAC(1229)=0.6145 ;TFRAC(1230)=0.615 TFRAC(1231)=0.6155 ;TFRAC(1232)=0.616 TFRAC(1233)=0.6165 ;TFRAC(1234)=0.617 TFRAC(1235)=0.6175 ;TFRAC(1236)=0.618 TFRAC(1237)=0.6185 ;TFRAC(1238)=0.619 TFRAC(1239)=0.6195 ;TFRAC(1240)=0.62 TFRAC(1241)=0.6205 ;TFRAC(1242)=0.621 TFRAC(1243)=0.6215 ;TFRAC(1244)=0.622 TFRAC(1245)=0.6225 ;TFRAC(1246)=0.623 TFRAC(1247)=0.6235 ;TFRAC(1248)=0.624 TFRAC(1249)=0.6245 ;TFRAC(1250)=0.625 TFRAC(1251)=0.6255 ;TFRAC(1252)=0.626 TFRAC(1253)=0.6265 ;TFRAC(1254)=0.627 TFRAC(1255)=0.6275 ;TFRAC(1256)=0.628 TFRAC(1257)=0.6285 ;TFRAC(1258)=0.629 TFRAC(1259)=0.6295 ;TFRAC(1260)=0.63 TFRAC(1261)=0.6305 ;TFRAC(1262)=0.631 TFRAC(1263)=0.6315 ;TFRAC(1264)=0.632 TFRAC(1265)=0.6325 ;TFRAC(1266)=0.633 TFRAC(1267)=0.6335 ;TFRAC(1268)=0.634 TFRAC(1269)=0.6345 ;TFRAC(1270)=0.635 TFRAC(1271)=0.6355 ;TFRAC(1272)=0.636 TFRAC(1273)=0.6365 ;TFRAC(1274)=0.637 TFRAC(1275)=0.6375 ;TFRAC(1276)=0.638 TFRAC(1277)=0.6385 ;TFRAC(1278)=0.639 TFRAC(1279)=0.6395 ;TFRAC(1280)=0.64 TFRAC(1281)=0.6405 ;TFRAC(1282)=0.641 TFRAC(1283)=0.6415 ;TFRAC(1284)=0.642 TFRAC(1285)=0.6425 ;TFRAC(1286)=0.643 TFRAC(1287)=0.6435 ;TFRAC(1288)=0.644 TFRAC(1289)=0.6445 ;TFRAC(1290)=0.645 TFRAC(1291)=0.6455 ;TFRAC(1292)=0.646 TFRAC(1293)=0.6465 ;TFRAC(1294)=0.647 TFRAC(1295)=0.6475 ;TFRAC(1296)=0.648 TFRAC(1297)=0.6485 ;TFRAC(1298)=0.649 TFRAC(1299)=0.6495 ;TFRAC(1300)=0.65 TFRAC(1301)=0.6505 ;TFRAC(1302)=0.651 TFRAC(1303)=0.6515 ;TFRAC(1304)=0.652 TFRAC(1305)=0.6525 ;TFRAC(1306)=0.653 TFRAC(1307)=0.6535 ;TFRAC(1308)=0.654 TFRAC(1309)=0.6545 ;TFRAC(1310)=0.655 TFRAC(1311)=0.6555 ;TFRAC(1312)=0.656 TFRAC(1313)=0.6565 ;TFRAC(1314)=0.657 TFRAC(1315)=0.6575 ;TFRAC(1316)=0.658 TFRAC(1317)=0.6585 ;TFRAC(1318)=0.659 TFRAC(1319)=0.6595 ;TFRAC(1320)=0.66 TFRAC(1321)=0.6605 ;TFRAC(1322)=0.661 TFRAC(1323)=0.6615 ;TFRAC(1324)=0.662 TFRAC(1325)=0.6625 ;TFRAC(1326)=0.663 TFRAC(1327)=0.6635 ;TFRAC(1328)=0.664 TFRAC(1329)=0.6645 ;TFRAC(1330)=0.665 TFRAC(1331)=0.6655 ;TFRAC(1332)=0.666 TFRAC(1333)=0.6665 ;TFRAC(1334)=0.667 TFRAC(1335)=0.6675 ;TFRAC(1336)=0.668 TFRAC(1337)=0.6685 ;TFRAC(1338)=0.669 TFRAC(1339)=0.6695 ;TFRAC(1340)=0.67 TFRAC(1341)=0.6705 ;TFRAC(1342)=0.671 TFRAC(1343)=0.6715 ;TFRAC(1344)=0.672 TFRAC(1345)=0.6725 ;TFRAC(1346)=0.673 TFRAC(1347)=0.6735 ;TFRAC(1348)=0.674 TFRAC(1349)=0.6745 ;TFRAC(1350)=0.675 TFRAC(1351)=0.6755 ;TFRAC(1352)=0.676 TFRAC(1353)=0.6765 ;TFRAC(1354)=0.677 TFRAC(1355)=0.6775 ;TFRAC(1356)=0.678 TFRAC(1357)=0.6785 ;TFRAC(1358)=0.679 TFRAC(1359)=0.6795 ;TFRAC(1360)=0.68 TFRAC(1361)=0.6805 ;TFRAC(1362)=0.681 TFRAC(1363)=0.6815 ;TFRAC(1364)=0.682 TFRAC(1365)=0.6825 ;TFRAC(1366)=0.683 TFRAC(1367)=0.6835 ;TFRAC(1368)=0.684 TFRAC(1369)=0.6845 ;TFRAC(1370)=0.685 TFRAC(1371)=0.6855 ;TFRAC(1372)=0.686 TFRAC(1373)=0.6865 ;TFRAC(1374)=0.687 TFRAC(1375)=0.6875 ;TFRAC(1376)=0.688 TFRAC(1377)=0.6885 ;TFRAC(1378)=0.689 TFRAC(1379)=0.6895 ;TFRAC(1380)=0.69 TFRAC(1381)=0.6905 ;TFRAC(1382)=0.691 TFRAC(1383)=0.6915 ;TFRAC(1384)=0.692 TFRAC(1385)=0.6925 ;TFRAC(1386)=0.693 TFRAC(1387)=0.6935 ;TFRAC(1388)=0.694 TFRAC(1389)=0.6945 ;TFRAC(1390)=0.695 TFRAC(1391)=0.6955 ;TFRAC(1392)=0.696 TFRAC(1393)=0.6965 ;TFRAC(1394)=0.697 TFRAC(1395)=0.6975 ;TFRAC(1396)=0.698 TFRAC(1397)=0.6985 ;TFRAC(1398)=0.699 TFRAC(1399)=0.6995 ;TFRAC(1400)=0.7 TFRAC(1401)=0.7005 ;TFRAC(1402)=0.701 TFRAC(1403)=0.7015 ;TFRAC(1404)=0.702 TFRAC(1405)=0.7025 ;TFRAC(1406)=0.703 TFRAC(1407)=0.7035 ;TFRAC(1408)=0.704 TFRAC(1409)=0.7045 ;TFRAC(1410)=0.705 TFRAC(1411)=0.7055 ;TFRAC(1412)=0.706 TFRAC(1413)=0.7065 ;TFRAC(1414)=0.707 TFRAC(1415)=0.7075 ;TFRAC(1416)=0.708 TFRAC(1417)=0.7085 ;TFRAC(1418)=0.709 TFRAC(1419)=0.7095 ;TFRAC(1420)=0.71 TFRAC(1421)=0.7105 ;TFRAC(1422)=0.711 TFRAC(1423)=0.7115 ;TFRAC(1424)=0.712 TFRAC(1425)=0.7125 ;TFRAC(1426)=0.713 TFRAC(1427)=0.7135 ;TFRAC(1428)=0.714 TFRAC(1429)=0.7145 ;TFRAC(1430)=0.715 TFRAC(1431)=0.7155 ;TFRAC(1432)=0.716 TFRAC(1433)=0.7165 ;TFRAC(1434)=0.717 TFRAC(1435)=0.7175 ;TFRAC(1436)=0.718 TFRAC(1437)=0.7185 ;TFRAC(1438)=0.719 TFRAC(1439)=0.7195 ;TFRAC(1440)=0.72 TFRAC(1441)=0.7205 ;TFRAC(1442)=0.721 TFRAC(1443)=0.7215 ;TFRAC(1444)=0.722 TFRAC(1445)=0.7225 ;TFRAC(1446)=0.723 TFRAC(1447)=0.7235 ;TFRAC(1448)=0.724 TFRAC(1449)=0.7245 ;TFRAC(1450)=0.725 TFRAC(1451)=0.7255 ;TFRAC(1452)=0.726 TFRAC(1453)=0.7265 ;TFRAC(1454)=0.727 TFRAC(1455)=0.7275 ;TFRAC(1456)=0.728 TFRAC(1457)=0.7285 ;TFRAC(1458)=0.729 TFRAC(1459)=0.7295 ;TFRAC(1460)=0.73 TFRAC(1461)=0.7305 ;TFRAC(1462)=0.731 TFRAC(1463)=0.7315 ;TFRAC(1464)=0.732 TFRAC(1465)=0.7325 ;TFRAC(1466)=0.733 TFRAC(1467)=0.7335 ;TFRAC(1468)=0.734 TFRAC(1469)=0.7345 ;TFRAC(1470)=0.735 TFRAC(1471)=0.7355 ;TFRAC(1472)=0.736 TFRAC(1473)=0.7365 ;TFRAC(1474)=0.737 TFRAC(1475)=0.7375 ;TFRAC(1476)=0.738 TFRAC(1477)=0.7385 ;TFRAC(1478)=0.739 TFRAC(1479)=0.7395 ;TFRAC(1480)=0.74 TFRAC(1481)=0.7405 ;TFRAC(1482)=0.741 TFRAC(1483)=0.7415 ;TFRAC(1484)=0.742 TFRAC(1485)=0.7425 ;TFRAC(1486)=0.743 TFRAC(1487)=0.7435 ;TFRAC(1488)=0.744 TFRAC(1489)=0.7445 ;TFRAC(1490)=0.745 TFRAC(1491)=0.7455 ;TFRAC(1492)=0.746 TFRAC(1493)=0.7465 ;TFRAC(1494)=0.747 TFRAC(1495)=0.7475 ;TFRAC(1496)=0.748 TFRAC(1497)=0.7485 ;TFRAC(1498)=0.749 TFRAC(1499)=0.7495 ;TFRAC(1500)=0.75 TFRAC(1501)=0.7505 ;TFRAC(1502)=0.751 TFRAC(1503)=0.7515 ;TFRAC(1504)=0.752 TFRAC(1505)=0.7525 ;TFRAC(1506)=0.753 TFRAC(1507)=0.7535 ;TFRAC(1508)=0.754 TFRAC(1509)=0.7545 ;TFRAC(1510)=0.755 TFRAC(1511)=0.7555 ;TFRAC(1512)=0.756 TFRAC(1513)=0.7565 ;TFRAC(1514)=0.757 TFRAC(1515)=0.7575 ;TFRAC(1516)=0.758 TFRAC(1517)=0.7585 ;TFRAC(1518)=0.759 TFRAC(1519)=0.7595 ;TFRAC(1520)=0.76 TFRAC(1521)=0.7605 ;TFRAC(1522)=0.761 TFRAC(1523)=0.7615 ;TFRAC(1524)=0.762 TFRAC(1525)=0.7625 ;TFRAC(1526)=0.763 TFRAC(1527)=0.7635 ;TFRAC(1528)=0.764 TFRAC(1529)=0.7645 ;TFRAC(1530)=0.765 TFRAC(1531)=0.7655 ;TFRAC(1532)=0.766 TFRAC(1533)=0.7665 ;TFRAC(1534)=0.767 TFRAC(1535)=0.7675 ;TFRAC(1536)=0.768 TFRAC(1537)=0.7685 ;TFRAC(1538)=0.769 TFRAC(1539)=0.7695 ;TFRAC(1540)=0.77 TFRAC(1541)=0.7705 ;TFRAC(1542)=0.771 TFRAC(1543)=0.7715 ;TFRAC(1544)=0.772 TFRAC(1545)=0.7725 ;TFRAC(1546)=0.773 TFRAC(1547)=0.7735 ;TFRAC(1548)=0.774 TFRAC(1549)=0.7745 ;TFRAC(1550)=0.775 TFRAC(1551)=0.7755 ;TFRAC(1552)=0.776 TFRAC(1553)=0.7765 ;TFRAC(1554)=0.777 TFRAC(1555)=0.7775 ;TFRAC(1556)=0.778 TFRAC(1557)=0.7785 ;TFRAC(1558)=0.779 TFRAC(1559)=0.7795 ;TFRAC(1560)=0.78 TFRAC(1561)=0.7805 ;TFRAC(1562)=0.781 TFRAC(1563)=0.7815 ;TFRAC(1564)=0.782 TFRAC(1565)=0.7825 ;TFRAC(1566)=0.783 TFRAC(1567)=0.7835 ;TFRAC(1568)=0.784 TFRAC(1569)=0.7845 ;TFRAC(1570)=0.785 TFRAC(1571)=0.7855 ;TFRAC(1572)=0.786 TFRAC(1573)=0.7865 ;TFRAC(1574)=0.787 TFRAC(1575)=0.7875 ;TFRAC(1576)=0.788 TFRAC(1577)=0.7885 ;TFRAC(1578)=0.789 TFRAC(1579)=0.7895 ;TFRAC(1580)=0.79 TFRAC(1581)=0.7905 ;TFRAC(1582)=0.791 TFRAC(1583)=0.7915 ;TFRAC(1584)=0.792 TFRAC(1585)=0.7925 ;TFRAC(1586)=0.793 TFRAC(1587)=0.7935 ;TFRAC(1588)=0.794 TFRAC(1589)=0.7945 ;TFRAC(1590)=0.795 TFRAC(1591)=0.7955 ;TFRAC(1592)=0.796 TFRAC(1593)=0.7965 ;TFRAC(1594)=0.797 TFRAC(1595)=0.7975 ;TFRAC(1596)=0.798 TFRAC(1597)=0.7985 ;TFRAC(1598)=0.799 TFRAC(1599)=0.7995 ;TFRAC(1600)=0.8 TFRAC(1601)=0.8005 ;TFRAC(1602)=0.801 TFRAC(1603)=0.8015 ;TFRAC(1604)=0.802 TFRAC(1605)=0.8025 ;TFRAC(1606)=0.803 TFRAC(1607)=0.8035 ;TFRAC(1608)=0.804 TFRAC(1609)=0.8045 ;TFRAC(1610)=0.805 TFRAC(1611)=0.8055 ;TFRAC(1612)=0.806 TFRAC(1613)=0.8065 ;TFRAC(1614)=0.807 TFRAC(1615)=0.8075 ;TFRAC(1616)=0.808 TFRAC(1617)=0.8085 ;TFRAC(1618)=0.809 TFRAC(1619)=0.8095 ;TFRAC(1620)=0.81 TFRAC(1621)=0.8105 ;TFRAC(1622)=0.811 TFRAC(1623)=0.8115 ;TFRAC(1624)=0.812 TFRAC(1625)=0.8125 ;TFRAC(1626)=0.813 TFRAC(1627)=0.8135 ;TFRAC(1628)=0.814 TFRAC(1629)=0.8145 ;TFRAC(1630)=0.815 TFRAC(1631)=0.8155 ;TFRAC(1632)=0.816 TFRAC(1633)=0.8165 ;TFRAC(1634)=0.817 TFRAC(1635)=0.8175 ;TFRAC(1636)=0.818 TFRAC(1637)=0.8185 ;TFRAC(1638)=0.819 TFRAC(1639)=0.8195 ;TFRAC(1640)=0.82 TFRAC(1641)=0.8205 ;TFRAC(1642)=0.821 TFRAC(1643)=0.8215 ;TFRAC(1644)=0.822 TFRAC(1645)=0.8225 ;TFRAC(1646)=0.823 TFRAC(1647)=0.8235 ;TFRAC(1648)=0.824 TFRAC(1649)=0.8245 ;TFRAC(1650)=0.825 TFRAC(1651)=0.8255 ;TFRAC(1652)=0.826 TFRAC(1653)=0.8265 ;TFRAC(1654)=0.827 TFRAC(1655)=0.8275 ;TFRAC(1656)=0.828 TFRAC(1657)=0.8285 ;TFRAC(1658)=0.829 TFRAC(1659)=0.8295 ;TFRAC(1660)=0.83 TFRAC(1661)=0.8305 ;TFRAC(1662)=0.831 TFRAC(1663)=0.8315 ;TFRAC(1664)=0.832 TFRAC(1665)=0.8325 ;TFRAC(1666)=0.833 TFRAC(1667)=0.8335 ;TFRAC(1668)=0.834 TFRAC(1669)=0.8345 ;TFRAC(1670)=0.835 TFRAC(1671)=0.8355 ;TFRAC(1672)=0.836 TFRAC(1673)=0.8365 ;TFRAC(1674)=0.837 TFRAC(1675)=0.8375 ;TFRAC(1676)=0.838 TFRAC(1677)=0.8385 ;TFRAC(1678)=0.839 TFRAC(1679)=0.8395 ;TFRAC(1680)=0.84 TFRAC(1681)=0.8405 ;TFRAC(1682)=0.841 TFRAC(1683)=0.8415 ;TFRAC(1684)=0.842 TFRAC(1685)=0.8425 ;TFRAC(1686)=0.843 TFRAC(1687)=0.8435 ;TFRAC(1688)=0.844 TFRAC(1689)=0.8445 ;TFRAC(1690)=0.845 TFRAC(1691)=0.8455 ;TFRAC(1692)=0.846 TFRAC(1693)=0.8465 ;TFRAC(1694)=0.847 TFRAC(1695)=0.8475 ;TFRAC(1696)=0.848 TFRAC(1697)=0.8485 ;TFRAC(1698)=0.849 TFRAC(1699)=0.8495 ;TFRAC(1700)=0.85 TFRAC(1701)=0.8505 ;TFRAC(1702)=0.851 TFRAC(1703)=0.8515 ;TFRAC(1704)=0.852 TFRAC(1705)=0.8525 ;TFRAC(1706)=0.853 TFRAC(1707)=0.8535 ;TFRAC(1708)=0.854 TFRAC(1709)=0.8545 ;TFRAC(1710)=0.855 TFRAC(1711)=0.8555 ;TFRAC(1712)=0.856 TFRAC(1713)=0.8565 ;TFRAC(1714)=0.857 TFRAC(1715)=0.8575 ;TFRAC(1716)=0.858 TFRAC(1717)=0.8585 ;TFRAC(1718)=0.859 TFRAC(1719)=0.8595 ;TFRAC(1720)=0.86 TFRAC(1721)=0.8605 ;TFRAC(1722)=0.861 TFRAC(1723)=0.8615 ;TFRAC(1724)=0.862 TFRAC(1725)=0.8625 ;TFRAC(1726)=0.863 TFRAC(1727)=0.8635 ;TFRAC(1728)=0.864 TFRAC(1729)=0.8645 ;TFRAC(1730)=0.865 TFRAC(1731)=0.8655 ;TFRAC(1732)=0.866 TFRAC(1733)=0.8665 ;TFRAC(1734)=0.867 TFRAC(1735)=0.8675 ;TFRAC(1736)=0.868 TFRAC(1737)=0.8685 ;TFRAC(1738)=0.869 TFRAC(1739)=0.8695 ;TFRAC(1740)=0.87 TFRAC(1741)=0.8705 ;TFRAC(1742)=0.871 TFRAC(1743)=0.8715 ;TFRAC(1744)=0.872 TFRAC(1745)=0.8725 ;TFRAC(1746)=0.873 TFRAC(1747)=0.8735 ;TFRAC(1748)=0.874 TFRAC(1749)=0.8745 ;TFRAC(1750)=0.875 TFRAC(1751)=0.8755 ;TFRAC(1752)=0.876 TFRAC(1753)=0.8765 ;TFRAC(1754)=0.877 TFRAC(1755)=0.8775 ;TFRAC(1756)=0.878 TFRAC(1757)=0.8785 ;TFRAC(1758)=0.879 TFRAC(1759)=0.8795 ;TFRAC(1760)=0.88 TFRAC(1761)=0.8805 ;TFRAC(1762)=0.881 TFRAC(1763)=0.8815 ;TFRAC(1764)=0.882 TFRAC(1765)=0.8825 ;TFRAC(1766)=0.883 TFRAC(1767)=0.8835 ;TFRAC(1768)=0.884 TFRAC(1769)=0.8845 ;TFRAC(1770)=0.885 TFRAC(1771)=0.8855 ;TFRAC(1772)=0.886 TFRAC(1773)=0.8865 ;TFRAC(1774)=0.887 TFRAC(1775)=0.8875 ;TFRAC(1776)=0.888 TFRAC(1777)=0.8885 ;TFRAC(1778)=0.889 TFRAC(1779)=0.8895 ;TFRAC(1780)=0.89 TFRAC(1781)=0.8905 ;TFRAC(1782)=0.891 TFRAC(1783)=0.8915 ;TFRAC(1784)=0.892 TFRAC(1785)=0.8925 ;TFRAC(1786)=0.893 TFRAC(1787)=0.8935 ;TFRAC(1788)=0.894 TFRAC(1789)=0.8945 ;TFRAC(1790)=0.895 TFRAC(1791)=0.8955 ;TFRAC(1792)=0.896 TFRAC(1793)=0.8965 ;TFRAC(1794)=0.897 TFRAC(1795)=0.8975 ;TFRAC(1796)=0.898 TFRAC(1797)=0.8985 ;TFRAC(1798)=0.899 TFRAC(1799)=0.8995 ;TFRAC(1800)=0.9 TFRAC(1801)=0.9005 ;TFRAC(1802)=0.901 TFRAC(1803)=0.9015 ;TFRAC(1804)=0.902 TFRAC(1805)=0.9025 ;TFRAC(1806)=0.903 TFRAC(1807)=0.9035 ;TFRAC(1808)=0.904 TFRAC(1809)=0.9045 ;TFRAC(1810)=0.905 TFRAC(1811)=0.9055 ;TFRAC(1812)=0.906 TFRAC(1813)=0.9065 ;TFRAC(1814)=0.907 TFRAC(1815)=0.9075 ;TFRAC(1816)=0.908 TFRAC(1817)=0.9085 ;TFRAC(1818)=0.909 TFRAC(1819)=0.9095 ;TFRAC(1820)=0.91 TFRAC(1821)=0.9105 ;TFRAC(1822)=0.911 TFRAC(1823)=0.9115 ;TFRAC(1824)=0.912 TFRAC(1825)=0.9125 ;TFRAC(1826)=0.913 TFRAC(1827)=0.9135 ;TFRAC(1828)=0.914 TFRAC(1829)=0.9145 ;TFRAC(1830)=0.915 TFRAC(1831)=0.9155 ;TFRAC(1832)=0.916 TFRAC(1833)=0.9165 ;TFRAC(1834)=0.917 TFRAC(1835)=0.9175 ;TFRAC(1836)=0.918 TFRAC(1837)=0.9185 ;TFRAC(1838)=0.919 TFRAC(1839)=0.9195 ;TFRAC(1840)=0.92 TFRAC(1841)=0.9205 ;TFRAC(1842)=0.921 TFRAC(1843)=0.9215 ;TFRAC(1844)=0.922 TFRAC(1845)=0.9225 ;TFRAC(1846)=0.923 TFRAC(1847)=0.9235 ;TFRAC(1848)=0.924 TFRAC(1849)=0.9245 ;TFRAC(1850)=0.925 TFRAC(1851)=0.9255 ;TFRAC(1852)=0.926 TFRAC(1853)=0.9265 ;TFRAC(1854)=0.927 TFRAC(1855)=0.9275 ;TFRAC(1856)=0.928 TFRAC(1857)=0.9285 ;TFRAC(1858)=0.929 TFRAC(1859)=0.9295 ;TFRAC(1860)=0.93 TFRAC(1861)=0.9305 ;TFRAC(1862)=0.931 TFRAC(1863)=0.9315 ;TFRAC(1864)=0.932 TFRAC(1865)=0.9325 ;TFRAC(1866)=0.933 TFRAC(1867)=0.9335 ;TFRAC(1868)=0.934 TFRAC(1869)=0.9345 ;TFRAC(1870)=0.935 TFRAC(1871)=0.9355 ;TFRAC(1872)=0.936 TFRAC(1873)=0.9365 ;TFRAC(1874)=0.937 TFRAC(1875)=0.9375 ;TFRAC(1876)=0.938 TFRAC(1877)=0.9385 ;TFRAC(1878)=0.939 TFRAC(1879)=0.9395 ;TFRAC(1880)=0.94 TFRAC(1881)=0.9405 ;TFRAC(1882)=0.941 TFRAC(1883)=0.9415 ;TFRAC(1884)=0.942 TFRAC(1885)=0.9425 ;TFRAC(1886)=0.943 TFRAC(1887)=0.9435 ;TFRAC(1888)=0.944 TFRAC(1889)=0.9445 ;TFRAC(1890)=0.945 TFRAC(1891)=0.9455 ;TFRAC(1892)=0.946 TFRAC(1893)=0.9465 ;TFRAC(1894)=0.947 TFRAC(1895)=0.9475 ;TFRAC(1896)=0.948 TFRAC(1897)=0.9485 ;TFRAC(1898)=0.949 TFRAC(1899)=0.9495 ;TFRAC(1900)=0.95 TFRAC(1901)=0.9505 ;TFRAC(1902)=0.951 TFRAC(1903)=0.9515 ;TFRAC(1904)=0.952 TFRAC(1905)=0.9525 ;TFRAC(1906)=0.953 TFRAC(1907)=0.9535 ;TFRAC(1908)=0.954 TFRAC(1909)=0.9545 ;TFRAC(1910)=0.955 TFRAC(1911)=0.9555 ;TFRAC(1912)=0.956 TFRAC(1913)=0.9565 ;TFRAC(1914)=0.957 TFRAC(1915)=0.9575 ;TFRAC(1916)=0.958 TFRAC(1917)=0.9585 ;TFRAC(1918)=0.959 TFRAC(1919)=0.9595 ;TFRAC(1920)=0.96 TFRAC(1921)=0.9605 ;TFRAC(1922)=0.961 TFRAC(1923)=0.9615 ;TFRAC(1924)=0.962 TFRAC(1925)=0.9625 ;TFRAC(1926)=0.963 TFRAC(1927)=0.9635 ;TFRAC(1928)=0.964 TFRAC(1929)=0.9645 ;TFRAC(1930)=0.965 TFRAC(1931)=0.9655 ;TFRAC(1932)=0.966 TFRAC(1933)=0.9665 ;TFRAC(1934)=0.967 TFRAC(1935)=0.9675 ;TFRAC(1936)=0.968 TFRAC(1937)=0.9685 ;TFRAC(1938)=0.969 TFRAC(1939)=0.9695 ;TFRAC(1940)=0.97 TFRAC(1941)=0.9705 ;TFRAC(1942)=0.971 TFRAC(1943)=0.9715 ;TFRAC(1944)=0.972 TFRAC(1945)=0.9725 ;TFRAC(1946)=0.973 TFRAC(1947)=0.9735 ;TFRAC(1948)=0.974 TFRAC(1949)=0.9745 ;TFRAC(1950)=0.975 TFRAC(1951)=0.9755 ;TFRAC(1952)=0.976 TFRAC(1953)=0.9765 ;TFRAC(1954)=0.977 TFRAC(1955)=0.9775 ;TFRAC(1956)=0.978 TFRAC(1957)=0.9785 ;TFRAC(1958)=0.979 TFRAC(1959)=0.9795 ;TFRAC(1960)=0.98 TFRAC(1961)=0.9805 ;TFRAC(1962)=0.981 TFRAC(1963)=0.9815 ;TFRAC(1964)=0.982 TFRAC(1965)=0.9825 ;TFRAC(1966)=0.983 TFRAC(1967)=0.9835 ;TFRAC(1968)=0.984 TFRAC(1969)=0.9845 ;TFRAC(1970)=0.985 TFRAC(1971)=0.9855 ;TFRAC(1972)=0.986 TFRAC(1973)=0.9865 ;TFRAC(1974)=0.987 TFRAC(1975)=0.9875 ;TFRAC(1976)=0.988 TFRAC(1977)=0.9885 ;TFRAC(1978)=0.989 TFRAC(1979)=0.9895 ;TFRAC(1980)=0.99 TFRAC(1981)=0.9905 ;TFRAC(1982)=0.991 TFRAC(1983)=0.9915 ;TFRAC(1984)=0.992 TFRAC(1985)=0.9925 ;TFRAC(1986)=0.993 TFRAC(1987)=0.9935 ;TFRAC(1988)=0.994 TFRAC(1989)=0.9945 ;TFRAC(1990)=0.995 TFRAC(1991)=0.9955 ;TFRAC(1992)=0.996 TFRAC(1993)=0.9965 ;TFRAC(1994)=0.997 TFRAC(1995)=0.9975 ;TFRAC(1996)=0.998 TFRAC(1997)=0.9985 ;TFRAC(1998)=0.999 TFRAC(1999)=0.9995 ;TFRAC(2000)=1. ************************************************************ Group 3. X-Direction Grid Spacing CARTES = T NX = 200 XULAST =1. XFRAC(1)=5.0E-03 ;XFRAC(2)=1.0E-02 XFRAC(3)=0.015 ;XFRAC(4)=0.02 XFRAC(5)=0.025 ;XFRAC(6)=0.03 XFRAC(7)=0.035 ;XFRAC(8)=0.04 XFRAC(9)=0.045 ;XFRAC(10)=0.05 XFRAC(11)=0.055 ;XFRAC(12)=0.06 XFRAC(13)=0.065 ;XFRAC(14)=0.07 XFRAC(15)=0.075 ;XFRAC(16)=0.08 XFRAC(17)=0.085 ;XFRAC(18)=0.09 XFRAC(19)=0.095 ;XFRAC(20)=0.1 XFRAC(21)=0.105 ;XFRAC(22)=0.11 XFRAC(23)=0.115 ;XFRAC(24)=0.12 XFRAC(25)=0.125 ;XFRAC(26)=0.13 XFRAC(27)=0.135 ;XFRAC(28)=0.14 XFRAC(29)=0.145 ;XFRAC(30)=0.15 XFRAC(31)=0.155 ;XFRAC(32)=0.16 XFRAC(33)=0.165 ;XFRAC(34)=0.17 XFRAC(35)=0.175 ;XFRAC(36)=0.18 XFRAC(37)=0.185 ;XFRAC(38)=0.19 XFRAC(39)=0.195 ;XFRAC(40)=0.2 XFRAC(41)=0.205 ;XFRAC(42)=0.21 XFRAC(43)=0.215 ;XFRAC(44)=0.22 XFRAC(45)=0.225 ;XFRAC(46)=0.23 XFRAC(47)=0.235 ;XFRAC(48)=0.24 XFRAC(49)=0.245 ;XFRAC(50)=0.25 XFRAC(51)=0.255 ;XFRAC(52)=0.26 XFRAC(53)=0.265 ;XFRAC(54)=0.27 XFRAC(55)=0.275 ;XFRAC(56)=0.28 XFRAC(57)=0.285 ;XFRAC(58)=0.29 XFRAC(59)=0.295 ;XFRAC(60)=0.3 XFRAC(61)=0.305 ;XFRAC(62)=0.31 XFRAC(63)=0.315 ;XFRAC(64)=0.32 XFRAC(65)=0.325 ;XFRAC(66)=0.33 XFRAC(67)=0.335 ;XFRAC(68)=0.34 XFRAC(69)=0.345 ;XFRAC(70)=0.35 XFRAC(71)=0.355 ;XFRAC(72)=0.36 XFRAC(73)=0.365 ;XFRAC(74)=0.37 XFRAC(75)=0.375 ;XFRAC(76)=0.38 XFRAC(77)=0.385 ;XFRAC(78)=0.39 XFRAC(79)=0.395 ;XFRAC(80)=0.4 XFRAC(81)=0.405 ;XFRAC(82)=0.41 XFRAC(83)=0.415 ;XFRAC(84)=0.42 XFRAC(85)=0.425 ;XFRAC(86)=0.43 XFRAC(87)=0.435 ;XFRAC(88)=0.44 XFRAC(89)=0.445 ;XFRAC(90)=0.45 XFRAC(91)=0.455 ;XFRAC(92)=0.46 XFRAC(93)=0.465 ;XFRAC(94)=0.47 XFRAC(95)=0.475 ;XFRAC(96)=0.48 XFRAC(97)=0.485 ;XFRAC(98)=0.49 XFRAC(99)=0.495 ;XFRAC(100)=0.5 XFRAC(101)=0.505 ;XFRAC(102)=0.51 XFRAC(103)=0.515 ;XFRAC(104)=0.52 XFRAC(105)=0.525 ;XFRAC(106)=0.53 XFRAC(107)=0.535 ;XFRAC(108)=0.54 XFRAC(109)=0.545 ;XFRAC(110)=0.55 XFRAC(111)=0.555 ;XFRAC(112)=0.56 XFRAC(113)=0.565 ;XFRAC(114)=0.57 XFRAC(115)=0.575 ;XFRAC(116)=0.58 XFRAC(117)=0.585 ;XFRAC(118)=0.59 XFRAC(119)=0.595 ;XFRAC(120)=0.6 XFRAC(121)=0.605 ;XFRAC(122)=0.61 XFRAC(123)=0.615 ;XFRAC(124)=0.62 XFRAC(125)=0.625 ;XFRAC(126)=0.63 XFRAC(127)=0.635 ;XFRAC(128)=0.64 XFRAC(129)=0.645 ;XFRAC(130)=0.65 XFRAC(131)=0.655 ;XFRAC(132)=0.66 XFRAC(133)=0.665 ;XFRAC(134)=0.67 XFRAC(135)=0.675 ;XFRAC(136)=0.68 XFRAC(137)=0.685 ;XFRAC(138)=0.69 XFRAC(139)=0.695 ;XFRAC(140)=0.7 XFRAC(141)=0.705 ;XFRAC(142)=0.71 XFRAC(143)=0.715 ;XFRAC(144)=0.72 XFRAC(145)=0.725 ;XFRAC(146)=0.73 XFRAC(147)=0.735 ;XFRAC(148)=0.74 XFRAC(149)=0.745 ;XFRAC(150)=0.75 XFRAC(151)=0.755 ;XFRAC(152)=0.76 XFRAC(153)=0.765 ;XFRAC(154)=0.77 XFRAC(155)=0.775 ;XFRAC(156)=0.78 XFRAC(157)=0.785 ;XFRAC(158)=0.79 XFRAC(159)=0.795 ;XFRAC(160)=0.8 XFRAC(161)=0.805 ;XFRAC(162)=0.81 XFRAC(163)=0.815 ;XFRAC(164)=0.82 XFRAC(165)=0.825 ;XFRAC(166)=0.83 XFRAC(167)=0.835 ;XFRAC(168)=0.84 XFRAC(169)=0.845 ;XFRAC(170)=0.85 XFRAC(171)=0.855 ;XFRAC(172)=0.86 XFRAC(173)=0.865 ;XFRAC(174)=0.87 XFRAC(175)=0.875 ;XFRAC(176)=0.88 XFRAC(177)=0.885 ;XFRAC(178)=0.89 XFRAC(179)=0.895 ;XFRAC(180)=0.9 XFRAC(181)=0.905 ;XFRAC(182)=0.91 XFRAC(183)=0.915 ;XFRAC(184)=0.92 XFRAC(185)=0.925 ;XFRAC(186)=0.93 XFRAC(187)=0.935 ;XFRAC(188)=0.94 XFRAC(189)=0.945 ;XFRAC(190)=0.95 XFRAC(191)=0.955 ;XFRAC(192)=0.96 XFRAC(193)=0.965 ;XFRAC(194)=0.97 XFRAC(195)=0.975 ;XFRAC(196)=0.98 XFRAC(197)=0.985 ;XFRAC(198)=0.99 XFRAC(199)=0.995 ;XFRAC(200)=1. ************************************************************ Group 4. Y-Direction Grid Spacing NY = 200 YVLAST =1. YFRAC(1)=5.0E-03 ;YFRAC(2)=1.0E-02 YFRAC(3)=0.015 ;YFRAC(4)=0.02 YFRAC(5)=0.025 ;YFRAC(6)=0.03 YFRAC(7)=0.035 ;YFRAC(8)=0.04 YFRAC(9)=0.045 ;YFRAC(10)=0.05 YFRAC(11)=0.055 ;YFRAC(12)=0.06 YFRAC(13)=0.065 ;YFRAC(14)=0.07 YFRAC(15)=0.075 ;YFRAC(16)=0.08 YFRAC(17)=0.085 ;YFRAC(18)=0.09 YFRAC(19)=0.095 ;YFRAC(20)=0.1 YFRAC(21)=0.105 ;YFRAC(22)=0.11 YFRAC(23)=0.115 ;YFRAC(24)=0.12 YFRAC(25)=0.125 ;YFRAC(26)=0.13 YFRAC(27)=0.135 ;YFRAC(28)=0.14 YFRAC(29)=0.145 ;YFRAC(30)=0.15 YFRAC(31)=0.155 ;YFRAC(32)=0.16 YFRAC(33)=0.165 ;YFRAC(34)=0.17 YFRAC(35)=0.175 ;YFRAC(36)=0.18 YFRAC(37)=0.185 ;YFRAC(38)=0.19 YFRAC(39)=0.195 ;YFRAC(40)=0.2 YFRAC(41)=0.205 ;YFRAC(42)=0.21 YFRAC(43)=0.215 ;YFRAC(44)=0.22 YFRAC(45)=0.225 ;YFRAC(46)=0.23 YFRAC(47)=0.235 ;YFRAC(48)=0.24 YFRAC(49)=0.245 ;YFRAC(50)=0.25 YFRAC(51)=0.255 ;YFRAC(52)=0.26 YFRAC(53)=0.265 ;YFRAC(54)=0.27 YFRAC(55)=0.275 ;YFRAC(56)=0.28 YFRAC(57)=0.285 ;YFRAC(58)=0.29 YFRAC(59)=0.295 ;YFRAC(60)=0.3 YFRAC(61)=0.305 ;YFRAC(62)=0.31 YFRAC(63)=0.315 ;YFRAC(64)=0.32 YFRAC(65)=0.325 ;YFRAC(66)=0.33 YFRAC(67)=0.335 ;YFRAC(68)=0.34 YFRAC(69)=0.345 ;YFRAC(70)=0.35 YFRAC(71)=0.355 ;YFRAC(72)=0.36 YFRAC(73)=0.365 ;YFRAC(74)=0.37 YFRAC(75)=0.375 ;YFRAC(76)=0.38 YFRAC(77)=0.385 ;YFRAC(78)=0.39 YFRAC(79)=0.395 ;YFRAC(80)=0.4 YFRAC(81)=0.405 ;YFRAC(82)=0.41 YFRAC(83)=0.415 ;YFRAC(84)=0.42 YFRAC(85)=0.425 ;YFRAC(86)=0.43 YFRAC(87)=0.435 ;YFRAC(88)=0.44 YFRAC(89)=0.445 ;YFRAC(90)=0.45 YFRAC(91)=0.455 ;YFRAC(92)=0.46 YFRAC(93)=0.465 ;YFRAC(94)=0.47 YFRAC(95)=0.475 ;YFRAC(96)=0.48 YFRAC(97)=0.485 ;YFRAC(98)=0.49 YFRAC(99)=0.495 ;YFRAC(100)=0.5 YFRAC(101)=0.505 ;YFRAC(102)=0.51 YFRAC(103)=0.515 ;YFRAC(104)=0.52 YFRAC(105)=0.525 ;YFRAC(106)=0.53 YFRAC(107)=0.535 ;YFRAC(108)=0.54 YFRAC(109)=0.545 ;YFRAC(110)=0.55 YFRAC(111)=0.555 ;YFRAC(112)=0.56 YFRAC(113)=0.565 ;YFRAC(114)=0.57 YFRAC(115)=0.575 ;YFRAC(116)=0.58 YFRAC(117)=0.585 ;YFRAC(118)=0.59 YFRAC(119)=0.595 ;YFRAC(120)=0.6 YFRAC(121)=0.605 ;YFRAC(122)=0.61 YFRAC(123)=0.615 ;YFRAC(124)=0.62 YFRAC(125)=0.625 ;YFRAC(126)=0.63 YFRAC(127)=0.635 ;YFRAC(128)=0.64 YFRAC(129)=0.645 ;YFRAC(130)=0.65 YFRAC(131)=0.655 ;YFRAC(132)=0.66 YFRAC(133)=0.665 ;YFRAC(134)=0.67 YFRAC(135)=0.675 ;YFRAC(136)=0.68 YFRAC(137)=0.685 ;YFRAC(138)=0.69 YFRAC(139)=0.695 ;YFRAC(140)=0.7 YFRAC(141)=0.705 ;YFRAC(142)=0.71 YFRAC(143)=0.715 ;YFRAC(144)=0.72 YFRAC(145)=0.725 ;YFRAC(146)=0.73 YFRAC(147)=0.735 ;YFRAC(148)=0.74 YFRAC(149)=0.745 ;YFRAC(150)=0.75 YFRAC(151)=0.755 ;YFRAC(152)=0.76 YFRAC(153)=0.765 ;YFRAC(154)=0.77 YFRAC(155)=0.775 ;YFRAC(156)=0.78 YFRAC(157)=0.785 ;YFRAC(158)=0.79 YFRAC(159)=0.795 ;YFRAC(160)=0.8 YFRAC(161)=0.805 ;YFRAC(162)=0.81 YFRAC(163)=0.815 ;YFRAC(164)=0.82 YFRAC(165)=0.825 ;YFRAC(166)=0.83 YFRAC(167)=0.835 ;YFRAC(168)=0.84 YFRAC(169)=0.845 ;YFRAC(170)=0.85 YFRAC(171)=0.855 ;YFRAC(172)=0.86 YFRAC(173)=0.865 ;YFRAC(174)=0.87 YFRAC(175)=0.875 ;YFRAC(176)=0.88 YFRAC(177)=0.885 ;YFRAC(178)=0.89 YFRAC(179)=0.895 ;YFRAC(180)=0.9 YFRAC(181)=0.905 ;YFRAC(182)=0.91 YFRAC(183)=0.915 ;YFRAC(184)=0.92 YFRAC(185)=0.925 ;YFRAC(186)=0.93 YFRAC(187)=0.935 ;YFRAC(188)=0.94 YFRAC(189)=0.945 ;YFRAC(190)=0.95 YFRAC(191)=0.955 ;YFRAC(192)=0.96 YFRAC(193)=0.965 ;YFRAC(194)=0.97 YFRAC(195)=0.975 ;YFRAC(196)=0.98 YFRAC(197)=0.985 ;YFRAC(198)=0.99 YFRAC(199)=0.995 ;YFRAC(200)=1. ************************************************************ Group 5. Z-Direction Grid Spacing PARAB = F NZ = 1 ZWLAST =1. ZFRAC(1)=1. ************************************************************ Group 6. Body-Fitted Coordinates ************************************************************ Group 7. Variables: STOREd,SOLVEd,NAMEd ONEPHS = T NAME(1)=P1 ;NAME(3)=U1 NAME(5)=V1 ;NAME(145)=VFL2 NAME(146)=SRN2 ;NAME(147)=PRPS NAME(148)=DEN1 ;NAME(149)=VFOL NAME(150)=SURN * Y in SOLUTN argument list denotes: * 1-stored 2-solved 3-whole-field * 4-point-by-point 5-explicit 6-harmonic averaging SOLUTN(P1,Y,Y,Y,N,N,Y) SOLUTN(U1,Y,Y,N,N,N,Y) SOLUTN(V1,Y,Y,N,N,N,Y) SOLUTN(VFL2,Y,Y,N,N,N,Y) SOLUTN(SRN2,Y,Y,N,N,N,Y) SOLUTN(PRPS,Y,N,N,N,N,Y) SOLUTN(DEN1,Y,N,N,N,N,Y) SOLUTN(VFOL,Y,Y,N,N,N,Y) SOLUTN(SURN,Y,Y,N,N,N,Y) DEN1 = 148 PRPS = 147 ************************************************************ Group 8. Terms & Devices * Y in TERMS argument list denotes: * 1-built-in source 2-convection 3-diffusion 4-transient * 5-first phase variable 6-interphase transport TERMS(P1,Y,Y,Y,N,Y,Y) TERMS(U1,Y,Y,Y,Y,Y,Y) TERMS(V1,Y,Y,Y,Y,Y,Y) TERMS(VFL2,N,N,N,N,Y,N) TERMS(SRN2,N,N,N,N,Y,N) TERMS(VFOL,N,N,N,N,Y,N) TERMS(SURN,N,N,N,N,Y,N) DIFCUT =0.5 ;ZDIFAC =1. GALA = T ;ADDDIF = F RUPLIM =0.999 ;RLOLIM =1.0E-03 ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1 ************************************************************ Group 9. Properties used if PRPS is not stored, and where PRPS = -1.0 if it is! RHO1 =1500. ;TMP1 =0. ;EL1 =0. TSURR =0. ;TEMP0 =273.149994 ;PRESS0 =1.01325E+05 DVO1DT =1.18E-04 ;DRH1DP =0. EMISS =0. ;SCATT =0. RADIA =0. ;RADIB =0. ENUL =1.334E-03 ;ENUT =0. PRNDTL(U1)=1. ;PRNDTL(V1)=1. PRT(U1)=1. ;PRT(V1)=1. CP1 =4181.799805 ;CP2 =1. * List of user-defined materials to be read by EARTH MATFLG=T;IMAT=3 * Name *Ind. Dens. Viscos. Spec.heat Conduct. Expans. Compr. *0 1.0 1.5E-25 1005.0 0.0258 3.41E-3 0.0 * 67 1000.0 1.000E-3 4181.8 0.597 1.18E-4 * 68 1500.0 1.334E-3 4181.8 0.597 1.18E-4 ************************************************************ Group 10.Inter-Phase Transfer Processes ************************************************************ Group 11.Initial field variables (PHIs) FIINIT(P1)=0. ;FIINIT(U1)=1.0E-10 FIINIT(V1)=1.0E-10 ;FIINIT(VFL2)=1. FIINIT(SRN2)=1. ;FIINIT(PRPS)=-1. FIINIT(DEN1)=1.0E-10 ;FIINIT(VFOL)=0. FIINIT(SURN)=0. PATCH(^OB5 ,INIVAL, 5, 0, 0, 0, 0, 0, 1, 1) INIT(^OB5 ,VFL2,0. ,0. ) INIT(^OB5 ,SRN2,0. ,0. ) INIT(^OB5 ,PRPS,0. ,67. ) INIT(^OB5 ,VFOL,0. ,1. ) INIT(^OB5 ,SURN,0. ,1. ) PATCH(^OB6 ,INIVAL, 6, 0, 0, 0, 0, 0, 1, 1) INIT(^OB6 ,VFL2,0. ,0. ) INIT(^OB6 ,SRN2,0. ,0. ) INIT(^OB6 ,PRPS,0. ,0. ) INIT(^OB6 ,VFOL,0. ,0. ) INIT(^OB6 ,SURN,0. ,0. ) INIADD = F FSWEEP = 1 NAMFI =CHAM ************************************************************ Group 12. Patchwise adjustment of terms Patches for this group are printed with those for Group 13. Their names begin either with GP12 or & ************************************************************ Group 13. Boundary & Special Sources PATCH(BUOYANCY,PHASEM, 1, 200, 1, 200, 1, 1, 1, 2000) COVAL(BUOYANCY,U1 , FIXFLU , GRND2 ) COVAL(BUOYANCY,V1 , FIXFLU , GRND2 ) PATCH(STENS ,PHASEM, 1, 200, 1, 200, 1, 1, 1, 2000) COVAL(STENS ,U1 , FIXFLU , GRND3 ) COVAL(STENS ,V1 , FIXFLU , GRND3 ) PATCH(TCON ,CELL , 1, 200, 1, 200, 1, 1, 1, 2000) COVAL(TCON ,SRN2, GRND , GRND ) COVAL(TCON ,SURN, GRND , GRND ) PATCH(^OB1 ,CELL , 1, 6, 0, 0, 0, 0, 1, 2000) COVAL(^OB1 ,V1 ,1. ,0. ) PATCH(^OB2 ,CELL , 2, 5, 0, 0, 0, 0, 1, 2000) COVAL(^OB2 ,V1 ,1. ,0. ) PATCH(^OB3 ,CELL , 3, 8, 0, 0, 0, 0, 1, 2000) COVAL(^OB3 ,U1 ,1. ,0. ) PATCH(^OB4 ,CELL , 4, 7, 0, 0, 0, 0, 1, 2000) COVAL(^OB4 ,U1 ,1. ,0. ) XCYCLE = F EGWF = T WALLCO = GRND2 BUOYA =0. ; BUOYB =-9.81 ; BUOYC =0. BUOYD =1500. ************************************************************ Group 14. Downstream Pressure For PARAB ************************************************************ Group 15. Terminate Sweeps LSWEEP = 35 ;ISWC1 = 1 LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1 SELREF = T RESFAC =1.0E-05 ************************************************************ Group 16. Terminate Iterations LITER(P1)=20 ;LITER(U1)=10 LITER(V1)=10 ;LITER(VFL2)=20 LITER(SRN2)=1 ;LITER(VFOL)=20 LITER(SURN)=1 ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03 ENDIT(V1)=1.0E-03 ;ENDIT(VFL2)=1.0E-03 ENDIT(SRN2)=1.0E-03 ;ENDIT(VFOL)=1.0E-03 ENDIT(SURN)=1.0E-03 ************************************************************ Group 17. Relaxation RELAX(P1,LINRLX,1.) RELAX(U1,FALSDT,1.) RELAX(V1,FALSDT,1.) RELAX(VFL2,LINRLX,1.) RELAX(SRN2,LINRLX,1.) RELAX(PRPS,LINRLX,1.) RELAX(DEN1,LINRLX,1.) RELAX(VFOL,LINRLX,1.) RELAX(SURN,LINRLX,1.) OVRRLX =0. EXPERT = F ;NNORSL = F ************************************************************ Group 18. Limits VARMAX(P1)=1.0E+10 ;VARMIN(P1)=-1.0E+10 VARMAX(U1)=1.0E+06 ;VARMIN(U1)=-1.0E+06 VARMAX(V1)=1.0E+06 ;VARMIN(V1)=-1.0E+06 VARMAX(VFL2)=1.0E+10 ;VARMIN(VFL2)=-1.0E+10 VARMAX(SRN2)=1. ;VARMIN(SRN2)=0. VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10 VARMAX(DEN1)=1.0E+10 ;VARMIN(DEN1)=-1.0E+10 VARMAX(VFOL)=1.0E+10 ;VARMIN(VFOL)=-1.0E+10 VARMAX(SURN)=1. ;VARMIN(SURN)=0. ************************************************************ Group 19. Data transmitted to GROUND SURF = T PARSOL = F IPRPSA = 67 ;IPRPSC = 68 ISG62 = 1 ISURFA = 5 BTATHC =3.5 ISRFTA = 1 SURFTA =50. ;SURFTB=0. ;SURFTC=0. ISRFTB= 1 SRFTA2 =50. ;SRFTB2=0. ;SRFTC2=0. ISRFTC= 1 SRFTA3 =100. ;SRFTB3=0. ;SRFTC3=0. CSG10 ='q1' SPEDAT(SET,DOMAIN,PROPS_FILE_1,C,Q1) SPEDAT(SET,VOF,LTSS,L,F) SPEDAT(SET,MAXINC,VFOL,R,1.) SPEDAT(SET,MAXINC,SURN,R,1.) SPEDAT(SET,GXMONI,PLOTALL,L,T) SPEDAT(SET,GXMONI,CLASSIC,L,T) SPEDAT(SET,OBJNAM,^OB1,C,PLAT1) SPEDAT(SET,OBJTYP,^OB1,C,PLATE) SPEDAT(SET,OBJNAM,^OB2,C,PLAT1_2) SPEDAT(SET,OBJTYP,^OB2,C,PLATE) SPEDAT(SET,OBJNAM,^OB3,C,PLAT3) SPEDAT(SET,OBJTYP,^OB3,C,PLATE) SPEDAT(SET,OBJNAM,^OB4,C,PLAT3_4) SPEDAT(SET,OBJTYP,^OB4,C,PLATE) SPEDAT(SET,OBJNAM,^OB5,C,BLOC5) SPEDAT(SET,OBJTYP,^OB5,C,BLOCKAGE) SPEDAT(SET,BLOC5,MATERIAL,R,67.) SPEDAT(SET,OBJNAM,^OB6,C,ELLIP) SPEDAT(SET,OBJTYP,^OB6,C,BLOCKAGE) SPEDAT(SET,ELLIP,MATERIAL,R,0.) SPEDAT(SET,FACETDAT,NUMOBJ,I,6) SPEDAT(SET,MATERIAL,67,L,T) SPEDAT(SET,MATERIAL,0,L,T) SPEDAT(SET,MATERIAL,68,L,T) ************************************************************ Group 20. Preliminary Printout DISTIL = T ;NULLPR = F NDST = 0 DSTTOL =1.0E-02 EX(P1)=0. ;EX(U1)=0. EX(V1)=0. ;EX(VFL2)=0. EX(SRN2)=0. ;EX(PRPS)=0. EX(DEN1)=0. ;EX(VFOL)=0. EX(SURN)=0. ************************************************************ Group 21. Print-out of Variables INIFLD = F ;SUBWGR = F * Y in OUTPUT argument list denotes: * 1-field 2-correction-eq. monitor 3-selective dumping * 4-whole-field residual 5-spot-value table 6-residual table OUTPUT(P1,N,N,Y,Y,Y,Y) OUTPUT(U1,N,N,Y,Y,Y,Y) OUTPUT(V1,N,N,Y,Y,Y,Y) OUTPUT(VFL2,N,Y,Y,N,Y,Y) OUTPUT(SRN2,N,Y,Y,Y,Y,Y) OUTPUT(PRPS,N,N,Y,N,N,N) OUTPUT(DEN1,N,N,Y,N,N,N) OUTPUT(VFOL,N,Y,Y,N,Y,Y) OUTPUT(SURN,N,Y,Y,Y,Y,Y) ************************************************************ Group 22. Monitor Print-Out IXMON = 100 ;IYMON = 100 ;IZMON = 1 NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = -1 UWATCH = T ;USTEER = T HIGHLO = F ************************************************************ Group 23.Field Print-Out & Plot Control NPRINT = 100000 ;NUMCLS = 5 NTPRIN = 100000 ;ISTPRF = 1 ;ISTPRL = 100000 NXPRIN = -1 ;IXPRF = 1 ;IXPRL = 10000 NYPRIN = -1 ;IYPRF = 1 ;IYPRL = 10000 IPLTF = 1 ;IPLTL = -1 ;NPLT = -1 ISWPRF = 1 ;ISWPRL = 100000 ITABL = 3 ;IPROF = 1 ABSIZ =0.5 ;ORSIZ =0.4 NTZPRF = 1 ;NCOLPF = 50 ICHR = 2 ;NCOLCO = 45 ;NROWCO = 20 No PATCHes yet used for this Group ************************************************************ Group 24. Dumps For Restarts SAVE = T ;NOWIPE = F NSAVE =CHAM IDISPA = 80 ;IDISPB = 0 ;IDISPC = 0 CSG1 ='A' STOP