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