TALK=T;RUN(1,1)
 ************************************************************
  Group 1. Run Title and Number
 ************************************************************
 ************************************************************
 
 TEXT(2-Phase Rising Bubble                   )
 
 ************************************************************
 ************************************************************
 
 IRUNN = 1 ;LIBREF = 0
 ************************************************************
  Group 2. Time dependence
 STEADY = F
    * Set overall time and no. of steps
 TFIRST =0. ;TLAST =3.
 FSTEP = 1 ;LSTEP = 3000
 TFRAC(1)=3.333333E-04 ;TFRAC(2)=6.666667E-04
 TFRAC(3)=1.0E-03 ;TFRAC(4)=1.333333E-03
 TFRAC(5)=1.666667E-03 ;TFRAC(6)=2.0E-03
 TFRAC(7)=2.333333E-03 ;TFRAC(8)=2.666667E-03
 TFRAC(9)=3.0E-03 ;TFRAC(10)=3.333333E-03
 TFRAC(11)=3.666667E-03 ;TFRAC(12)=4.0E-03
 TFRAC(13)=4.333333E-03 ;TFRAC(14)=4.666667E-03
 TFRAC(15)=5.0E-03 ;TFRAC(16)=5.333333E-03
 TFRAC(17)=5.666667E-03 ;TFRAC(18)=6.0E-03
 TFRAC(19)=6.333334E-03 ;TFRAC(20)=6.666667E-03
 TFRAC(21)=7.000001E-03 ;TFRAC(22)=7.333334E-03
 TFRAC(23)=7.666667E-03 ;TFRAC(24)=8.0E-03
 TFRAC(25)=8.333335E-03 ;TFRAC(26)=8.666666E-03
 TFRAC(27)=9.0E-03 ;TFRAC(28)=9.333333E-03
 TFRAC(29)=9.666666E-03 ;TFRAC(30)=1.0E-02
 TFRAC(31)=0.010333 ;TFRAC(32)=0.010667
 TFRAC(33)=0.011 ;TFRAC(34)=0.011333
 TFRAC(35)=0.011667 ;TFRAC(36)=0.012
 TFRAC(37)=0.012333 ;TFRAC(38)=0.012667
 TFRAC(39)=0.013 ;TFRAC(40)=0.013333
 TFRAC(41)=0.013667 ;TFRAC(42)=0.014
 TFRAC(43)=0.014333 ;TFRAC(44)=0.014667
 TFRAC(45)=0.015 ;TFRAC(46)=0.015333
 TFRAC(47)=0.015667 ;TFRAC(48)=0.016
 TFRAC(49)=0.016333 ;TFRAC(50)=0.016667
 TFRAC(51)=0.017 ;TFRAC(52)=0.017333
 TFRAC(53)=0.017667 ;TFRAC(54)=0.018
 TFRAC(55)=0.018333 ;TFRAC(56)=0.018667
 TFRAC(57)=0.019 ;TFRAC(58)=0.019333
 TFRAC(59)=0.019667 ;TFRAC(60)=0.02
 TFRAC(61)=0.020333 ;TFRAC(62)=0.020667
 TFRAC(63)=0.021 ;TFRAC(64)=0.021333
 TFRAC(65)=0.021667 ;TFRAC(66)=0.022
 TFRAC(67)=0.022333 ;TFRAC(68)=0.022667
 TFRAC(69)=0.023 ;TFRAC(70)=0.023333
 TFRAC(71)=0.023667 ;TFRAC(72)=0.024
 TFRAC(73)=0.024333 ;TFRAC(74)=0.024667
 TFRAC(75)=0.025 ;TFRAC(76)=0.025333
 TFRAC(77)=0.025667 ;TFRAC(78)=0.026
 TFRAC(79)=0.026333 ;TFRAC(80)=0.026667
 TFRAC(81)=0.027 ;TFRAC(82)=0.027333
 TFRAC(83)=0.027667 ;TFRAC(84)=0.028
 TFRAC(85)=0.028333 ;TFRAC(86)=0.028667
 TFRAC(87)=0.029 ;TFRAC(88)=0.029333
 TFRAC(89)=0.029667 ;TFRAC(90)=0.03
 TFRAC(91)=0.030333 ;TFRAC(92)=0.030667
 TFRAC(93)=0.031 ;TFRAC(94)=0.031333
 TFRAC(95)=0.031667 ;TFRAC(96)=0.032
 TFRAC(97)=0.032333 ;TFRAC(98)=0.032667
 TFRAC(99)=0.033 ;TFRAC(100)=0.033333
 TFRAC(101)=0.033667 ;TFRAC(102)=0.034
 TFRAC(103)=0.034333 ;TFRAC(104)=0.034667
 TFRAC(105)=0.035 ;TFRAC(106)=0.035333
 TFRAC(107)=0.035667 ;TFRAC(108)=0.036
 TFRAC(109)=0.036333 ;TFRAC(110)=0.036667
 TFRAC(111)=0.037 ;TFRAC(112)=0.037333
 TFRAC(113)=0.037667 ;TFRAC(114)=0.038
 TFRAC(115)=0.038333 ;TFRAC(116)=0.038667
 TFRAC(117)=0.039 ;TFRAC(118)=0.039333
 TFRAC(119)=0.039667 ;TFRAC(120)=0.04
 TFRAC(121)=0.040333 ;TFRAC(122)=0.040667
 TFRAC(123)=0.041 ;TFRAC(124)=0.041333
 TFRAC(125)=0.041667 ;TFRAC(126)=0.042
 TFRAC(127)=0.042333 ;TFRAC(128)=0.042667
 TFRAC(129)=0.043 ;TFRAC(130)=0.043333
 TFRAC(131)=0.043667 ;TFRAC(132)=0.044
 TFRAC(133)=0.044333 ;TFRAC(134)=0.044667
 TFRAC(135)=0.045 ;TFRAC(136)=0.045333
 TFRAC(137)=0.045667 ;TFRAC(138)=0.046
 TFRAC(139)=0.046333 ;TFRAC(140)=0.046667
 TFRAC(141)=0.047 ;TFRAC(142)=0.047333
 TFRAC(143)=0.047667 ;TFRAC(144)=0.048
 TFRAC(145)=0.048333 ;TFRAC(146)=0.048667
 TFRAC(147)=0.049 ;TFRAC(148)=0.049333
 TFRAC(149)=0.049667 ;TFRAC(150)=0.05
 TFRAC(151)=0.050333 ;TFRAC(152)=0.050667
 TFRAC(153)=0.051 ;TFRAC(154)=0.051333
 TFRAC(155)=0.051667 ;TFRAC(156)=0.052
 TFRAC(157)=0.052333 ;TFRAC(158)=0.052667
 TFRAC(159)=0.053 ;TFRAC(160)=0.053333
 TFRAC(161)=0.053667 ;TFRAC(162)=0.054
 TFRAC(163)=0.054333 ;TFRAC(164)=0.054667
 TFRAC(165)=0.055 ;TFRAC(166)=0.055333
 TFRAC(167)=0.055667 ;TFRAC(168)=0.056
 TFRAC(169)=0.056333 ;TFRAC(170)=0.056667
 TFRAC(171)=0.057 ;TFRAC(172)=0.057333
 TFRAC(173)=0.057667 ;TFRAC(174)=0.058
 TFRAC(175)=0.058333 ;TFRAC(176)=0.058667
 TFRAC(177)=0.059 ;TFRAC(178)=0.059333
 TFRAC(179)=0.059667 ;TFRAC(180)=0.06
 TFRAC(181)=0.060333 ;TFRAC(182)=0.060667
 TFRAC(183)=0.061 ;TFRAC(184)=0.061333
 TFRAC(185)=0.061667 ;TFRAC(186)=0.062
 TFRAC(187)=0.062333 ;TFRAC(188)=0.062667
 TFRAC(189)=0.063 ;TFRAC(190)=0.063333
 TFRAC(191)=0.063667 ;TFRAC(192)=0.064
 TFRAC(193)=0.064333 ;TFRAC(194)=0.064667
 TFRAC(195)=0.065 ;TFRAC(196)=0.065333
 TFRAC(197)=0.065667 ;TFRAC(198)=0.066
 TFRAC(199)=0.066333 ;TFRAC(200)=0.066667
 TFRAC(201)=0.067 ;TFRAC(202)=0.067333
 TFRAC(203)=0.067667 ;TFRAC(204)=0.068
 TFRAC(205)=0.068333 ;TFRAC(206)=0.068667
 TFRAC(207)=0.069 ;TFRAC(208)=0.069333
 TFRAC(209)=0.069667 ;TFRAC(210)=0.07
 TFRAC(211)=0.070333 ;TFRAC(212)=0.070667
 TFRAC(213)=0.071 ;TFRAC(214)=0.071333
 TFRAC(215)=0.071667 ;TFRAC(216)=0.072
 TFRAC(217)=0.072333 ;TFRAC(218)=0.072667
 TFRAC(219)=0.073 ;TFRAC(220)=0.073333
 TFRAC(221)=0.073667 ;TFRAC(222)=0.074
 TFRAC(223)=0.074333 ;TFRAC(224)=0.074667
 TFRAC(225)=0.075 ;TFRAC(226)=0.075333
 TFRAC(227)=0.075667 ;TFRAC(228)=0.076
 TFRAC(229)=0.076333 ;TFRAC(230)=0.076667
 TFRAC(231)=0.077 ;TFRAC(232)=0.077333
 TFRAC(233)=0.077667 ;TFRAC(234)=0.078
 TFRAC(235)=0.078333 ;TFRAC(236)=0.078667
 TFRAC(237)=0.079 ;TFRAC(238)=0.079333
 TFRAC(239)=0.079667 ;TFRAC(240)=0.08
 TFRAC(241)=0.080333 ;TFRAC(242)=0.080667
 TFRAC(243)=0.081 ;TFRAC(244)=0.081333
 TFRAC(245)=0.081667 ;TFRAC(246)=0.082
 TFRAC(247)=0.082333 ;TFRAC(248)=0.082667
 TFRAC(249)=0.083 ;TFRAC(250)=0.083333
 TFRAC(251)=0.083667 ;TFRAC(252)=0.084
 TFRAC(253)=0.084333 ;TFRAC(254)=0.084667
 TFRAC(255)=0.085 ;TFRAC(256)=0.085333
 TFRAC(257)=0.085667 ;TFRAC(258)=0.086
 TFRAC(259)=0.086333 ;TFRAC(260)=0.086667
 TFRAC(261)=0.087 ;TFRAC(262)=0.087333
 TFRAC(263)=0.087667 ;TFRAC(264)=0.088
 TFRAC(265)=0.088333 ;TFRAC(266)=0.088667
 TFRAC(267)=0.089 ;TFRAC(268)=0.089333
 TFRAC(269)=0.089667 ;TFRAC(270)=0.09
 TFRAC(271)=0.090333 ;TFRAC(272)=0.090667
 TFRAC(273)=0.091 ;TFRAC(274)=0.091333
 TFRAC(275)=0.091667 ;TFRAC(276)=0.092
 TFRAC(277)=0.092333 ;TFRAC(278)=0.092667
 TFRAC(279)=0.093 ;TFRAC(280)=0.093333
 TFRAC(281)=0.093667 ;TFRAC(282)=0.094
 TFRAC(283)=0.094333 ;TFRAC(284)=0.094667
 TFRAC(285)=0.095 ;TFRAC(286)=0.095333
 TFRAC(287)=0.095667 ;TFRAC(288)=0.096
 TFRAC(289)=0.096333 ;TFRAC(290)=0.096667
 TFRAC(291)=0.097 ;TFRAC(292)=0.097333
 TFRAC(293)=0.097667 ;TFRAC(294)=0.098
 TFRAC(295)=0.098333 ;TFRAC(296)=0.098667
 TFRAC(297)=0.099 ;TFRAC(298)=0.099333
 TFRAC(299)=0.099667 ;TFRAC(300)=0.1
 TFRAC(301)=0.100333 ;TFRAC(302)=0.100667
 TFRAC(303)=0.101 ;TFRAC(304)=0.101333
 TFRAC(305)=0.101667 ;TFRAC(306)=0.102
 TFRAC(307)=0.102333 ;TFRAC(308)=0.102667
 TFRAC(309)=0.103 ;TFRAC(310)=0.103333
 TFRAC(311)=0.103667 ;TFRAC(312)=0.104
 TFRAC(313)=0.104333 ;TFRAC(314)=0.104667
 TFRAC(315)=0.105 ;TFRAC(316)=0.105333
 TFRAC(317)=0.105667 ;TFRAC(318)=0.106
 TFRAC(319)=0.106333 ;TFRAC(320)=0.106667
 TFRAC(321)=0.107 ;TFRAC(322)=0.107333
 TFRAC(323)=0.107667 ;TFRAC(324)=0.108
 TFRAC(325)=0.108333 ;TFRAC(326)=0.108667
 TFRAC(327)=0.109 ;TFRAC(328)=0.109333
 TFRAC(329)=0.109667 ;TFRAC(330)=0.11
 TFRAC(331)=0.110333 ;TFRAC(332)=0.110667
 TFRAC(333)=0.111 ;TFRAC(334)=0.111333
 TFRAC(335)=0.111667 ;TFRAC(336)=0.112
 TFRAC(337)=0.112333 ;TFRAC(338)=0.112667
 TFRAC(339)=0.113 ;TFRAC(340)=0.113333
 TFRAC(341)=0.113667 ;TFRAC(342)=0.114
 TFRAC(343)=0.114333 ;TFRAC(344)=0.114667
 TFRAC(345)=0.115 ;TFRAC(346)=0.115333
 TFRAC(347)=0.115667 ;TFRAC(348)=0.116
 TFRAC(349)=0.116333 ;TFRAC(350)=0.116667
 TFRAC(351)=0.117 ;TFRAC(352)=0.117333
 TFRAC(353)=0.117667 ;TFRAC(354)=0.118
 TFRAC(355)=0.118333 ;TFRAC(356)=0.118667
 TFRAC(357)=0.119 ;TFRAC(358)=0.119333
 TFRAC(359)=0.119667 ;TFRAC(360)=0.12
 TFRAC(361)=0.120333 ;TFRAC(362)=0.120667
 TFRAC(363)=0.121 ;TFRAC(364)=0.121333
 TFRAC(365)=0.121667 ;TFRAC(366)=0.122
 TFRAC(367)=0.122333 ;TFRAC(368)=0.122667
 TFRAC(369)=0.123 ;TFRAC(370)=0.123333
 TFRAC(371)=0.123667 ;TFRAC(372)=0.124
 TFRAC(373)=0.124333 ;TFRAC(374)=0.124667
 TFRAC(375)=0.125 ;TFRAC(376)=0.125333
 TFRAC(377)=0.125667 ;TFRAC(378)=0.126
 TFRAC(379)=0.126333 ;TFRAC(380)=0.126667
 TFRAC(381)=0.127 ;TFRAC(382)=0.127333
 TFRAC(383)=0.127667 ;TFRAC(384)=0.128
 TFRAC(385)=0.128333 ;TFRAC(386)=0.128667
 TFRAC(387)=0.129 ;TFRAC(388)=0.129333
 TFRAC(389)=0.129667 ;TFRAC(390)=0.13
 TFRAC(391)=0.130333 ;TFRAC(392)=0.130667
 TFRAC(393)=0.131 ;TFRAC(394)=0.131333
 TFRAC(395)=0.131667 ;TFRAC(396)=0.132
 TFRAC(397)=0.132333 ;TFRAC(398)=0.132667
 TFRAC(399)=0.133 ;TFRAC(400)=0.133333
 TFRAC(401)=0.133667 ;TFRAC(402)=0.134
 TFRAC(403)=0.134333 ;TFRAC(404)=0.134667
 TFRAC(405)=0.135 ;TFRAC(406)=0.135333
 TFRAC(407)=0.135667 ;TFRAC(408)=0.136
 TFRAC(409)=0.136333 ;TFRAC(410)=0.136667
 TFRAC(411)=0.137 ;TFRAC(412)=0.137333
 TFRAC(413)=0.137667 ;TFRAC(414)=0.138
 TFRAC(415)=0.138333 ;TFRAC(416)=0.138667
 TFRAC(417)=0.139 ;TFRAC(418)=0.139333
 TFRAC(419)=0.139667 ;TFRAC(420)=0.14
 TFRAC(421)=0.140333 ;TFRAC(422)=0.140667
 TFRAC(423)=0.141 ;TFRAC(424)=0.141333
 TFRAC(425)=0.141667 ;TFRAC(426)=0.142
 TFRAC(427)=0.142333 ;TFRAC(428)=0.142667
 TFRAC(429)=0.143 ;TFRAC(430)=0.143333
 TFRAC(431)=0.143667 ;TFRAC(432)=0.144
 TFRAC(433)=0.144333 ;TFRAC(434)=0.144667
 TFRAC(435)=0.145 ;TFRAC(436)=0.145333
 TFRAC(437)=0.145667 ;TFRAC(438)=0.146
 TFRAC(439)=0.146333 ;TFRAC(440)=0.146667
 TFRAC(441)=0.147 ;TFRAC(442)=0.147333
 TFRAC(443)=0.147667 ;TFRAC(444)=0.148
 TFRAC(445)=0.148333 ;TFRAC(446)=0.148667
 TFRAC(447)=0.149 ;TFRAC(448)=0.149333
 TFRAC(449)=0.149667 ;TFRAC(450)=0.15
 TFRAC(451)=0.150333 ;TFRAC(452)=0.150667
 TFRAC(453)=0.151 ;TFRAC(454)=0.151333
 TFRAC(455)=0.151667 ;TFRAC(456)=0.152
 TFRAC(457)=0.152333 ;TFRAC(458)=0.152667
 TFRAC(459)=0.153 ;TFRAC(460)=0.153333
 TFRAC(461)=0.153667 ;TFRAC(462)=0.154
 TFRAC(463)=0.154333 ;TFRAC(464)=0.154667
 TFRAC(465)=0.155 ;TFRAC(466)=0.155333
 TFRAC(467)=0.155667 ;TFRAC(468)=0.156
 TFRAC(469)=0.156333 ;TFRAC(470)=0.156667
 TFRAC(471)=0.157 ;TFRAC(472)=0.157333
 TFRAC(473)=0.157667 ;TFRAC(474)=0.158
 TFRAC(475)=0.158333 ;TFRAC(476)=0.158667
 TFRAC(477)=0.159 ;TFRAC(478)=0.159333
 TFRAC(479)=0.159667 ;TFRAC(480)=0.16
 TFRAC(481)=0.160333 ;TFRAC(482)=0.160667
 TFRAC(483)=0.161 ;TFRAC(484)=0.161333
 TFRAC(485)=0.161667 ;TFRAC(486)=0.162
 TFRAC(487)=0.162333 ;TFRAC(488)=0.162667
 TFRAC(489)=0.163 ;TFRAC(490)=0.163333
 TFRAC(491)=0.163667 ;TFRAC(492)=0.164
 TFRAC(493)=0.164333 ;TFRAC(494)=0.164667
 TFRAC(495)=0.165 ;TFRAC(496)=0.165333
 TFRAC(497)=0.165667 ;TFRAC(498)=0.166
 TFRAC(499)=0.166333 ;TFRAC(500)=0.166667
 TFRAC(501)=0.167 ;TFRAC(502)=0.167333
 TFRAC(503)=0.167667 ;TFRAC(504)=0.168
 TFRAC(505)=0.168333 ;TFRAC(506)=0.168667
 TFRAC(507)=0.169 ;TFRAC(508)=0.169333
 TFRAC(509)=0.169667 ;TFRAC(510)=0.17
 TFRAC(511)=0.170333 ;TFRAC(512)=0.170667
 TFRAC(513)=0.171 ;TFRAC(514)=0.171333
 TFRAC(515)=0.171667 ;TFRAC(516)=0.172
 TFRAC(517)=0.172333 ;TFRAC(518)=0.172667
 TFRAC(519)=0.173 ;TFRAC(520)=0.173333
 TFRAC(521)=0.173667 ;TFRAC(522)=0.174
 TFRAC(523)=0.174333 ;TFRAC(524)=0.174667
 TFRAC(525)=0.175 ;TFRAC(526)=0.175333
 TFRAC(527)=0.175667 ;TFRAC(528)=0.176
 TFRAC(529)=0.176333 ;TFRAC(530)=0.176667
 TFRAC(531)=0.177 ;TFRAC(532)=0.177333
 TFRAC(533)=0.177667 ;TFRAC(534)=0.178
 TFRAC(535)=0.178333 ;TFRAC(536)=0.178667
 TFRAC(537)=0.179 ;TFRAC(538)=0.179333
 TFRAC(539)=0.179667 ;TFRAC(540)=0.18
 TFRAC(541)=0.180333 ;TFRAC(542)=0.180667
 TFRAC(543)=0.181 ;TFRAC(544)=0.181333
 TFRAC(545)=0.181667 ;TFRAC(546)=0.182
 TFRAC(547)=0.182333 ;TFRAC(548)=0.182667
 TFRAC(549)=0.183 ;TFRAC(550)=0.183333
 TFRAC(551)=0.183667 ;TFRAC(552)=0.184
 TFRAC(553)=0.184333 ;TFRAC(554)=0.184667
 TFRAC(555)=0.185 ;TFRAC(556)=0.185333
 TFRAC(557)=0.185667 ;TFRAC(558)=0.186
 TFRAC(559)=0.186333 ;TFRAC(560)=0.186667
 TFRAC(561)=0.187 ;TFRAC(562)=0.187333
 TFRAC(563)=0.187667 ;TFRAC(564)=0.188
 TFRAC(565)=0.188333 ;TFRAC(566)=0.188667
 TFRAC(567)=0.189 ;TFRAC(568)=0.189333
 TFRAC(569)=0.189667 ;TFRAC(570)=0.19
 TFRAC(571)=0.190333 ;TFRAC(572)=0.190667
 TFRAC(573)=0.191 ;TFRAC(574)=0.191333
 TFRAC(575)=0.191667 ;TFRAC(576)=0.192
 TFRAC(577)=0.192333 ;TFRAC(578)=0.192667
 TFRAC(579)=0.193 ;TFRAC(580)=0.193333
 TFRAC(581)=0.193667 ;TFRAC(582)=0.194
 TFRAC(583)=0.194333 ;TFRAC(584)=0.194667
 TFRAC(585)=0.195 ;TFRAC(586)=0.195333
 TFRAC(587)=0.195667 ;TFRAC(588)=0.196
 TFRAC(589)=0.196333 ;TFRAC(590)=0.196667
 TFRAC(591)=0.197 ;TFRAC(592)=0.197333
 TFRAC(593)=0.197667 ;TFRAC(594)=0.198
 TFRAC(595)=0.198333 ;TFRAC(596)=0.198667
 TFRAC(597)=0.199 ;TFRAC(598)=0.199333
 TFRAC(599)=0.199667 ;TFRAC(600)=0.2
 TFRAC(601)=0.200333 ;TFRAC(602)=0.200667
 TFRAC(603)=0.201 ;TFRAC(604)=0.201333
 TFRAC(605)=0.201667 ;TFRAC(606)=0.202
 TFRAC(607)=0.202333 ;TFRAC(608)=0.202667
 TFRAC(609)=0.203 ;TFRAC(610)=0.203333
 TFRAC(611)=0.203667 ;TFRAC(612)=0.204
 TFRAC(613)=0.204333 ;TFRAC(614)=0.204667
 TFRAC(615)=0.205 ;TFRAC(616)=0.205333
 TFRAC(617)=0.205667 ;TFRAC(618)=0.206
 TFRAC(619)=0.206333 ;TFRAC(620)=0.206667
 TFRAC(621)=0.207 ;TFRAC(622)=0.207333
 TFRAC(623)=0.207667 ;TFRAC(624)=0.208
 TFRAC(625)=0.208333 ;TFRAC(626)=0.208667
 TFRAC(627)=0.209 ;TFRAC(628)=0.209333
 TFRAC(629)=0.209667 ;TFRAC(630)=0.21
 TFRAC(631)=0.210333 ;TFRAC(632)=0.210667
 TFRAC(633)=0.211 ;TFRAC(634)=0.211333
 TFRAC(635)=0.211667 ;TFRAC(636)=0.212
 TFRAC(637)=0.212333 ;TFRAC(638)=0.212667
 TFRAC(639)=0.213 ;TFRAC(640)=0.213333
 TFRAC(641)=0.213667 ;TFRAC(642)=0.214
 TFRAC(643)=0.214333 ;TFRAC(644)=0.214667
 TFRAC(645)=0.215 ;TFRAC(646)=0.215333
 TFRAC(647)=0.215667 ;TFRAC(648)=0.216
 TFRAC(649)=0.216333 ;TFRAC(650)=0.216667
 TFRAC(651)=0.217 ;TFRAC(652)=0.217333
 TFRAC(653)=0.217667 ;TFRAC(654)=0.218
 TFRAC(655)=0.218333 ;TFRAC(656)=0.218667
 TFRAC(657)=0.219 ;TFRAC(658)=0.219333
 TFRAC(659)=0.219667 ;TFRAC(660)=0.22
 TFRAC(661)=0.220333 ;TFRAC(662)=0.220667
 TFRAC(663)=0.221 ;TFRAC(664)=0.221333
 TFRAC(665)=0.221667 ;TFRAC(666)=0.222
 TFRAC(667)=0.222333 ;TFRAC(668)=0.222667
 TFRAC(669)=0.223 ;TFRAC(670)=0.223333
 TFRAC(671)=0.223667 ;TFRAC(672)=0.224
 TFRAC(673)=0.224333 ;TFRAC(674)=0.224667
 TFRAC(675)=0.225 ;TFRAC(676)=0.225333
 TFRAC(677)=0.225667 ;TFRAC(678)=0.226
 TFRAC(679)=0.226333 ;TFRAC(680)=0.226667
 TFRAC(681)=0.227 ;TFRAC(682)=0.227333
 TFRAC(683)=0.227667 ;TFRAC(684)=0.228
 TFRAC(685)=0.228333 ;TFRAC(686)=0.228667
 TFRAC(687)=0.229 ;TFRAC(688)=0.229333
 TFRAC(689)=0.229667 ;TFRAC(690)=0.23
 TFRAC(691)=0.230333 ;TFRAC(692)=0.230667
 TFRAC(693)=0.231 ;TFRAC(694)=0.231333
 TFRAC(695)=0.231667 ;TFRAC(696)=0.232
 TFRAC(697)=0.232333 ;TFRAC(698)=0.232667
 TFRAC(699)=0.233 ;TFRAC(700)=0.233333
 TFRAC(701)=0.233667 ;TFRAC(702)=0.234
 TFRAC(703)=0.234333 ;TFRAC(704)=0.234667
 TFRAC(705)=0.235 ;TFRAC(706)=0.235333
 TFRAC(707)=0.235667 ;TFRAC(708)=0.236
 TFRAC(709)=0.236333 ;TFRAC(710)=0.236667
 TFRAC(711)=0.237 ;TFRAC(712)=0.237333
 TFRAC(713)=0.237667 ;TFRAC(714)=0.238
 TFRAC(715)=0.238333 ;TFRAC(716)=0.238667
 TFRAC(717)=0.239 ;TFRAC(718)=0.239333
 TFRAC(719)=0.239667 ;TFRAC(720)=0.24
 TFRAC(721)=0.240333 ;TFRAC(722)=0.240667
 TFRAC(723)=0.241 ;TFRAC(724)=0.241333
 TFRAC(725)=0.241667 ;TFRAC(726)=0.242
 TFRAC(727)=0.242333 ;TFRAC(728)=0.242667
 TFRAC(729)=0.243 ;TFRAC(730)=0.243333
 TFRAC(731)=0.243667 ;TFRAC(732)=0.244
 TFRAC(733)=0.244333 ;TFRAC(734)=0.244667
 TFRAC(735)=0.245 ;TFRAC(736)=0.245333
 TFRAC(737)=0.245667 ;TFRAC(738)=0.246
 TFRAC(739)=0.246333 ;TFRAC(740)=0.246667
 TFRAC(741)=0.247 ;TFRAC(742)=0.247333
 TFRAC(743)=0.247667 ;TFRAC(744)=0.248
 TFRAC(745)=0.248333 ;TFRAC(746)=0.248667
 TFRAC(747)=0.249 ;TFRAC(748)=0.249333
 TFRAC(749)=0.249667 ;TFRAC(750)=0.25
 TFRAC(751)=0.250333 ;TFRAC(752)=0.250667
 TFRAC(753)=0.251 ;TFRAC(754)=0.251333
 TFRAC(755)=0.251667 ;TFRAC(756)=0.252
 TFRAC(757)=0.252333 ;TFRAC(758)=0.252667
 TFRAC(759)=0.253 ;TFRAC(760)=0.253333
 TFRAC(761)=0.253667 ;TFRAC(762)=0.254
 TFRAC(763)=0.254333 ;TFRAC(764)=0.254667
 TFRAC(765)=0.255 ;TFRAC(766)=0.255333
 TFRAC(767)=0.255667 ;TFRAC(768)=0.256
 TFRAC(769)=0.256333 ;TFRAC(770)=0.256667
 TFRAC(771)=0.257 ;TFRAC(772)=0.257333
 TFRAC(773)=0.257667 ;TFRAC(774)=0.258
 TFRAC(775)=0.258333 ;TFRAC(776)=0.258667
 TFRAC(777)=0.259 ;TFRAC(778)=0.259333
 TFRAC(779)=0.259667 ;TFRAC(780)=0.26
 TFRAC(781)=0.260333 ;TFRAC(782)=0.260667
 TFRAC(783)=0.261 ;TFRAC(784)=0.261333
 TFRAC(785)=0.261667 ;TFRAC(786)=0.262
 TFRAC(787)=0.262333 ;TFRAC(788)=0.262667
 TFRAC(789)=0.263 ;TFRAC(790)=0.263333
 TFRAC(791)=0.263667 ;TFRAC(792)=0.264
 TFRAC(793)=0.264333 ;TFRAC(794)=0.264667
 TFRAC(795)=0.265 ;TFRAC(796)=0.265333
 TFRAC(797)=0.265667 ;TFRAC(798)=0.266
 TFRAC(799)=0.266333 ;TFRAC(800)=0.266667
 TFRAC(801)=0.267 ;TFRAC(802)=0.267333
 TFRAC(803)=0.267667 ;TFRAC(804)=0.268
 TFRAC(805)=0.268333 ;TFRAC(806)=0.268667
 TFRAC(807)=0.269 ;TFRAC(808)=0.269333
 TFRAC(809)=0.269667 ;TFRAC(810)=0.27
 TFRAC(811)=0.270333 ;TFRAC(812)=0.270667
 TFRAC(813)=0.271 ;TFRAC(814)=0.271333
 TFRAC(815)=0.271667 ;TFRAC(816)=0.272
 TFRAC(817)=0.272333 ;TFRAC(818)=0.272667
 TFRAC(819)=0.273 ;TFRAC(820)=0.273333
 TFRAC(821)=0.273667 ;TFRAC(822)=0.274
 TFRAC(823)=0.274333 ;TFRAC(824)=0.274667
 TFRAC(825)=0.275 ;TFRAC(826)=0.275333
 TFRAC(827)=0.275667 ;TFRAC(828)=0.276
 TFRAC(829)=0.276333 ;TFRAC(830)=0.276667
 TFRAC(831)=0.277 ;TFRAC(832)=0.277333
 TFRAC(833)=0.277667 ;TFRAC(834)=0.278
 TFRAC(835)=0.278333 ;TFRAC(836)=0.278667
 TFRAC(837)=0.279 ;TFRAC(838)=0.279333
 TFRAC(839)=0.279667 ;TFRAC(840)=0.28
 TFRAC(841)=0.280333 ;TFRAC(842)=0.280667
 TFRAC(843)=0.281 ;TFRAC(844)=0.281333
 TFRAC(845)=0.281667 ;TFRAC(846)=0.282
 TFRAC(847)=0.282333 ;TFRAC(848)=0.282667
 TFRAC(849)=0.283 ;TFRAC(850)=0.283333
 TFRAC(851)=0.283667 ;TFRAC(852)=0.284
 TFRAC(853)=0.284333 ;TFRAC(854)=0.284667
 TFRAC(855)=0.285 ;TFRAC(856)=0.285333
 TFRAC(857)=0.285667 ;TFRAC(858)=0.286
 TFRAC(859)=0.286333 ;TFRAC(860)=0.286667
 TFRAC(861)=0.287 ;TFRAC(862)=0.287333
 TFRAC(863)=0.287667 ;TFRAC(864)=0.288
 TFRAC(865)=0.288333 ;TFRAC(866)=0.288667
 TFRAC(867)=0.289 ;TFRAC(868)=0.289333
 TFRAC(869)=0.289667 ;TFRAC(870)=0.29
 TFRAC(871)=0.290333 ;TFRAC(872)=0.290667
 TFRAC(873)=0.291 ;TFRAC(874)=0.291333
 TFRAC(875)=0.291667 ;TFRAC(876)=0.292
 TFRAC(877)=0.292333 ;TFRAC(878)=0.292667
 TFRAC(879)=0.293 ;TFRAC(880)=0.293333
 TFRAC(881)=0.293667 ;TFRAC(882)=0.294
 TFRAC(883)=0.294333 ;TFRAC(884)=0.294667
 TFRAC(885)=0.295 ;TFRAC(886)=0.295333
 TFRAC(887)=0.295667 ;TFRAC(888)=0.296
 TFRAC(889)=0.296333 ;TFRAC(890)=0.296667
 TFRAC(891)=0.297 ;TFRAC(892)=0.297333
 TFRAC(893)=0.297667 ;TFRAC(894)=0.298
 TFRAC(895)=0.298333 ;TFRAC(896)=0.298667
 TFRAC(897)=0.299 ;TFRAC(898)=0.299333
 TFRAC(899)=0.299667 ;TFRAC(900)=0.3
 TFRAC(901)=0.300333 ;TFRAC(902)=0.300667
 TFRAC(903)=0.301 ;TFRAC(904)=0.301333
 TFRAC(905)=0.301667 ;TFRAC(906)=0.302
 TFRAC(907)=0.302333 ;TFRAC(908)=0.302667
 TFRAC(909)=0.303 ;TFRAC(910)=0.303333
 TFRAC(911)=0.303667 ;TFRAC(912)=0.304
 TFRAC(913)=0.304333 ;TFRAC(914)=0.304667
 TFRAC(915)=0.305 ;TFRAC(916)=0.305333
 TFRAC(917)=0.305667 ;TFRAC(918)=0.306
 TFRAC(919)=0.306333 ;TFRAC(920)=0.306667
 TFRAC(921)=0.307 ;TFRAC(922)=0.307333
 TFRAC(923)=0.307667 ;TFRAC(924)=0.308
 TFRAC(925)=0.308333 ;TFRAC(926)=0.308667
 TFRAC(927)=0.309 ;TFRAC(928)=0.309333
 TFRAC(929)=0.309667 ;TFRAC(930)=0.31
 TFRAC(931)=0.310333 ;TFRAC(932)=0.310667
 TFRAC(933)=0.311 ;TFRAC(934)=0.311333
 TFRAC(935)=0.311667 ;TFRAC(936)=0.312
 TFRAC(937)=0.312333 ;TFRAC(938)=0.312667
 TFRAC(939)=0.313 ;TFRAC(940)=0.313333
 TFRAC(941)=0.313667 ;TFRAC(942)=0.314
 TFRAC(943)=0.314333 ;TFRAC(944)=0.314667
 TFRAC(945)=0.315 ;TFRAC(946)=0.315333
 TFRAC(947)=0.315667 ;TFRAC(948)=0.316
 TFRAC(949)=0.316333 ;TFRAC(950)=0.316667
 TFRAC(951)=0.317 ;TFRAC(952)=0.317333
 TFRAC(953)=0.317667 ;TFRAC(954)=0.318
 TFRAC(955)=0.318333 ;TFRAC(956)=0.318667
 TFRAC(957)=0.319 ;TFRAC(958)=0.319333
 TFRAC(959)=0.319667 ;TFRAC(960)=0.32
 TFRAC(961)=0.320333 ;TFRAC(962)=0.320667
 TFRAC(963)=0.321 ;TFRAC(964)=0.321333
 TFRAC(965)=0.321667 ;TFRAC(966)=0.322
 TFRAC(967)=0.322333 ;TFRAC(968)=0.322667
 TFRAC(969)=0.323 ;TFRAC(970)=0.323333
 TFRAC(971)=0.323667 ;TFRAC(972)=0.324
 TFRAC(973)=0.324333 ;TFRAC(974)=0.324667
 TFRAC(975)=0.325 ;TFRAC(976)=0.325333
 TFRAC(977)=0.325667 ;TFRAC(978)=0.326
 TFRAC(979)=0.326333 ;TFRAC(980)=0.326667
 TFRAC(981)=0.327 ;TFRAC(982)=0.327333
 TFRAC(983)=0.327667 ;TFRAC(984)=0.328
 TFRAC(985)=0.328333 ;TFRAC(986)=0.328667
 TFRAC(987)=0.329 ;TFRAC(988)=0.329333
 TFRAC(989)=0.329667 ;TFRAC(990)=0.33
 TFRAC(991)=0.330333 ;TFRAC(992)=0.330667
 TFRAC(993)=0.331 ;TFRAC(994)=0.331333
 TFRAC(995)=0.331667 ;TFRAC(996)=0.332
 TFRAC(997)=0.332333 ;TFRAC(998)=0.332667
 TFRAC(999)=0.333 ;TFRAC(1000)=0.333333
 TFRAC(1001)=0.333667 ;TFRAC(1002)=0.334
 TFRAC(1003)=0.334333 ;TFRAC(1004)=0.334667
 TFRAC(1005)=0.335 ;TFRAC(1006)=0.335333
 TFRAC(1007)=0.335667 ;TFRAC(1008)=0.336
 TFRAC(1009)=0.336333 ;TFRAC(1010)=0.336667
 TFRAC(1011)=0.337 ;TFRAC(1012)=0.337333
 TFRAC(1013)=0.337667 ;TFRAC(1014)=0.338
 TFRAC(1015)=0.338333 ;TFRAC(1016)=0.338667
 TFRAC(1017)=0.339 ;TFRAC(1018)=0.339333
 TFRAC(1019)=0.339667 ;TFRAC(1020)=0.34
 TFRAC(1021)=0.340333 ;TFRAC(1022)=0.340667
 TFRAC(1023)=0.341 ;TFRAC(1024)=0.341333
 TFRAC(1025)=0.341667 ;TFRAC(1026)=0.342
 TFRAC(1027)=0.342333 ;TFRAC(1028)=0.342667
 TFRAC(1029)=0.343 ;TFRAC(1030)=0.343333
 TFRAC(1031)=0.343667 ;TFRAC(1032)=0.344
 TFRAC(1033)=0.344333 ;TFRAC(1034)=0.344667
 TFRAC(1035)=0.345 ;TFRAC(1036)=0.345333
 TFRAC(1037)=0.345667 ;TFRAC(1038)=0.346
 TFRAC(1039)=0.346333 ;TFRAC(1040)=0.346667
 TFRAC(1041)=0.347 ;TFRAC(1042)=0.347333
 TFRAC(1043)=0.347667 ;TFRAC(1044)=0.348
 TFRAC(1045)=0.348333 ;TFRAC(1046)=0.348667
 TFRAC(1047)=0.349 ;TFRAC(1048)=0.349333
 TFRAC(1049)=0.349667 ;TFRAC(1050)=0.35
 TFRAC(1051)=0.350333 ;TFRAC(1052)=0.350667
 TFRAC(1053)=0.351 ;TFRAC(1054)=0.351333
 TFRAC(1055)=0.351667 ;TFRAC(1056)=0.352
 TFRAC(1057)=0.352333 ;TFRAC(1058)=0.352667
 TFRAC(1059)=0.353 ;TFRAC(1060)=0.353333
 TFRAC(1061)=0.353667 ;TFRAC(1062)=0.354
 TFRAC(1063)=0.354333 ;TFRAC(1064)=0.354667
 TFRAC(1065)=0.355 ;TFRAC(1066)=0.355333
 TFRAC(1067)=0.355667 ;TFRAC(1068)=0.356
 TFRAC(1069)=0.356333 ;TFRAC(1070)=0.356667
 TFRAC(1071)=0.357 ;TFRAC(1072)=0.357333
 TFRAC(1073)=0.357667 ;TFRAC(1074)=0.358
 TFRAC(1075)=0.358333 ;TFRAC(1076)=0.358667
 TFRAC(1077)=0.359 ;TFRAC(1078)=0.359333
 TFRAC(1079)=0.359667 ;TFRAC(1080)=0.36
 TFRAC(1081)=0.360333 ;TFRAC(1082)=0.360667
 TFRAC(1083)=0.361 ;TFRAC(1084)=0.361333
 TFRAC(1085)=0.361667 ;TFRAC(1086)=0.362
 TFRAC(1087)=0.362333 ;TFRAC(1088)=0.362667
 TFRAC(1089)=0.363 ;TFRAC(1090)=0.363333
 TFRAC(1091)=0.363667 ;TFRAC(1092)=0.364
 TFRAC(1093)=0.364333 ;TFRAC(1094)=0.364667
 TFRAC(1095)=0.365 ;TFRAC(1096)=0.365333
 TFRAC(1097)=0.365667 ;TFRAC(1098)=0.366
 TFRAC(1099)=0.366333 ;TFRAC(1100)=0.366667
 TFRAC(1101)=0.367 ;TFRAC(1102)=0.367333
 TFRAC(1103)=0.367667 ;TFRAC(1104)=0.368
 TFRAC(1105)=0.368333 ;TFRAC(1106)=0.368667
 TFRAC(1107)=0.369 ;TFRAC(1108)=0.369333
 TFRAC(1109)=0.369667 ;TFRAC(1110)=0.37
 TFRAC(1111)=0.370333 ;TFRAC(1112)=0.370667
 TFRAC(1113)=0.371 ;TFRAC(1114)=0.371333
 TFRAC(1115)=0.371667 ;TFRAC(1116)=0.372
 TFRAC(1117)=0.372333 ;TFRAC(1118)=0.372667
 TFRAC(1119)=0.373 ;TFRAC(1120)=0.373333
 TFRAC(1121)=0.373667 ;TFRAC(1122)=0.374
 TFRAC(1123)=0.374333 ;TFRAC(1124)=0.374667
 TFRAC(1125)=0.375 ;TFRAC(1126)=0.375333
 TFRAC(1127)=0.375667 ;TFRAC(1128)=0.376
 TFRAC(1129)=0.376333 ;TFRAC(1130)=0.376667
 TFRAC(1131)=0.377 ;TFRAC(1132)=0.377333
 TFRAC(1133)=0.377667 ;TFRAC(1134)=0.378
 TFRAC(1135)=0.378333 ;TFRAC(1136)=0.378667
 TFRAC(1137)=0.379 ;TFRAC(1138)=0.379333
 TFRAC(1139)=0.379667 ;TFRAC(1140)=0.38
 TFRAC(1141)=0.380333 ;TFRAC(1142)=0.380667
 TFRAC(1143)=0.381 ;TFRAC(1144)=0.381333
 TFRAC(1145)=0.381667 ;TFRAC(1146)=0.382
 TFRAC(1147)=0.382333 ;TFRAC(1148)=0.382667
 TFRAC(1149)=0.383 ;TFRAC(1150)=0.383333
 TFRAC(1151)=0.383667 ;TFRAC(1152)=0.384
 TFRAC(1153)=0.384333 ;TFRAC(1154)=0.384667
 TFRAC(1155)=0.385 ;TFRAC(1156)=0.385333
 TFRAC(1157)=0.385667 ;TFRAC(1158)=0.386
 TFRAC(1159)=0.386333 ;TFRAC(1160)=0.386667
 TFRAC(1161)=0.387 ;TFRAC(1162)=0.387333
 TFRAC(1163)=0.387667 ;TFRAC(1164)=0.388
 TFRAC(1165)=0.388333 ;TFRAC(1166)=0.388667
 TFRAC(1167)=0.389 ;TFRAC(1168)=0.389333
 TFRAC(1169)=0.389667 ;TFRAC(1170)=0.39
 TFRAC(1171)=0.390333 ;TFRAC(1172)=0.390667
 TFRAC(1173)=0.391 ;TFRAC(1174)=0.391333
 TFRAC(1175)=0.391667 ;TFRAC(1176)=0.392
 TFRAC(1177)=0.392333 ;TFRAC(1178)=0.392667
 TFRAC(1179)=0.393 ;TFRAC(1180)=0.393333
 TFRAC(1181)=0.393667 ;TFRAC(1182)=0.394
 TFRAC(1183)=0.394333 ;TFRAC(1184)=0.394667
 TFRAC(1185)=0.395 ;TFRAC(1186)=0.395333
 TFRAC(1187)=0.395667 ;TFRAC(1188)=0.396
 TFRAC(1189)=0.396333 ;TFRAC(1190)=0.396667
 TFRAC(1191)=0.397 ;TFRAC(1192)=0.397333
 TFRAC(1193)=0.397667 ;TFRAC(1194)=0.398
 TFRAC(1195)=0.398333 ;TFRAC(1196)=0.398667
 TFRAC(1197)=0.399 ;TFRAC(1198)=0.399333
 TFRAC(1199)=0.399667 ;TFRAC(1200)=0.4
 TFRAC(1201)=0.400333 ;TFRAC(1202)=0.400667
 TFRAC(1203)=0.401 ;TFRAC(1204)=0.401333
 TFRAC(1205)=0.401667 ;TFRAC(1206)=0.402
 TFRAC(1207)=0.402333 ;TFRAC(1208)=0.402667
 TFRAC(1209)=0.403 ;TFRAC(1210)=0.403333
 TFRAC(1211)=0.403667 ;TFRAC(1212)=0.404
 TFRAC(1213)=0.404333 ;TFRAC(1214)=0.404667
 TFRAC(1215)=0.405 ;TFRAC(1216)=0.405333
 TFRAC(1217)=0.405667 ;TFRAC(1218)=0.406
 TFRAC(1219)=0.406333 ;TFRAC(1220)=0.406667
 TFRAC(1221)=0.407 ;TFRAC(1222)=0.407333
 TFRAC(1223)=0.407667 ;TFRAC(1224)=0.408
 TFRAC(1225)=0.408333 ;TFRAC(1226)=0.408667
 TFRAC(1227)=0.409 ;TFRAC(1228)=0.409333
 TFRAC(1229)=0.409667 ;TFRAC(1230)=0.41
 TFRAC(1231)=0.410333 ;TFRAC(1232)=0.410667
 TFRAC(1233)=0.411 ;TFRAC(1234)=0.411333
 TFRAC(1235)=0.411667 ;TFRAC(1236)=0.412
 TFRAC(1237)=0.412333 ;TFRAC(1238)=0.412667
 TFRAC(1239)=0.413 ;TFRAC(1240)=0.413333
 TFRAC(1241)=0.413667 ;TFRAC(1242)=0.414
 TFRAC(1243)=0.414333 ;TFRAC(1244)=0.414667
 TFRAC(1245)=0.415 ;TFRAC(1246)=0.415333
 TFRAC(1247)=0.415667 ;TFRAC(1248)=0.416
 TFRAC(1249)=0.416333 ;TFRAC(1250)=0.416667
 TFRAC(1251)=0.417 ;TFRAC(1252)=0.417333
 TFRAC(1253)=0.417667 ;TFRAC(1254)=0.418
 TFRAC(1255)=0.418333 ;TFRAC(1256)=0.418667
 TFRAC(1257)=0.419 ;TFRAC(1258)=0.419333
 TFRAC(1259)=0.419667 ;TFRAC(1260)=0.42
 TFRAC(1261)=0.420333 ;TFRAC(1262)=0.420667
 TFRAC(1263)=0.421 ;TFRAC(1264)=0.421333
 TFRAC(1265)=0.421667 ;TFRAC(1266)=0.422
 TFRAC(1267)=0.422333 ;TFRAC(1268)=0.422667
 TFRAC(1269)=0.423 ;TFRAC(1270)=0.423333
 TFRAC(1271)=0.423667 ;TFRAC(1272)=0.424
 TFRAC(1273)=0.424333 ;TFRAC(1274)=0.424667
 TFRAC(1275)=0.425 ;TFRAC(1276)=0.425333
 TFRAC(1277)=0.425667 ;TFRAC(1278)=0.426
 TFRAC(1279)=0.426333 ;TFRAC(1280)=0.426667
 TFRAC(1281)=0.427 ;TFRAC(1282)=0.427333
 TFRAC(1283)=0.427667 ;TFRAC(1284)=0.428
 TFRAC(1285)=0.428333 ;TFRAC(1286)=0.428667
 TFRAC(1287)=0.429 ;TFRAC(1288)=0.429333
 TFRAC(1289)=0.429667 ;TFRAC(1290)=0.43
 TFRAC(1291)=0.430333 ;TFRAC(1292)=0.430667
 TFRAC(1293)=0.431 ;TFRAC(1294)=0.431333
 TFRAC(1295)=0.431667 ;TFRAC(1296)=0.432
 TFRAC(1297)=0.432333 ;TFRAC(1298)=0.432667
 TFRAC(1299)=0.433 ;TFRAC(1300)=0.433333
 TFRAC(1301)=0.433667 ;TFRAC(1302)=0.434
 TFRAC(1303)=0.434333 ;TFRAC(1304)=0.434667
 TFRAC(1305)=0.435 ;TFRAC(1306)=0.435333
 TFRAC(1307)=0.435667 ;TFRAC(1308)=0.436
 TFRAC(1309)=0.436333 ;TFRAC(1310)=0.436667
 TFRAC(1311)=0.437 ;TFRAC(1312)=0.437333
 TFRAC(1313)=0.437667 ;TFRAC(1314)=0.438
 TFRAC(1315)=0.438333 ;TFRAC(1316)=0.438667
 TFRAC(1317)=0.439 ;TFRAC(1318)=0.439333
 TFRAC(1319)=0.439667 ;TFRAC(1320)=0.44
 TFRAC(1321)=0.440333 ;TFRAC(1322)=0.440667
 TFRAC(1323)=0.441 ;TFRAC(1324)=0.441333
 TFRAC(1325)=0.441667 ;TFRAC(1326)=0.442
 TFRAC(1327)=0.442333 ;TFRAC(1328)=0.442667
 TFRAC(1329)=0.443 ;TFRAC(1330)=0.443333
 TFRAC(1331)=0.443667 ;TFRAC(1332)=0.444
 TFRAC(1333)=0.444333 ;TFRAC(1334)=0.444667
 TFRAC(1335)=0.445 ;TFRAC(1336)=0.445333
 TFRAC(1337)=0.445667 ;TFRAC(1338)=0.446
 TFRAC(1339)=0.446333 ;TFRAC(1340)=0.446667
 TFRAC(1341)=0.447 ;TFRAC(1342)=0.447333
 TFRAC(1343)=0.447667 ;TFRAC(1344)=0.448
 TFRAC(1345)=0.448333 ;TFRAC(1346)=0.448667
 TFRAC(1347)=0.449 ;TFRAC(1348)=0.449333
 TFRAC(1349)=0.449667 ;TFRAC(1350)=0.45
 TFRAC(1351)=0.450333 ;TFRAC(1352)=0.450667
 TFRAC(1353)=0.451 ;TFRAC(1354)=0.451333
 TFRAC(1355)=0.451667 ;TFRAC(1356)=0.452
 TFRAC(1357)=0.452333 ;TFRAC(1358)=0.452667
 TFRAC(1359)=0.453 ;TFRAC(1360)=0.453333
 TFRAC(1361)=0.453667 ;TFRAC(1362)=0.454
 TFRAC(1363)=0.454333 ;TFRAC(1364)=0.454667
 TFRAC(1365)=0.455 ;TFRAC(1366)=0.455333
 TFRAC(1367)=0.455667 ;TFRAC(1368)=0.456
 TFRAC(1369)=0.456333 ;TFRAC(1370)=0.456667
 TFRAC(1371)=0.457 ;TFRAC(1372)=0.457333
 TFRAC(1373)=0.457667 ;TFRAC(1374)=0.458
 TFRAC(1375)=0.458333 ;TFRAC(1376)=0.458667
 TFRAC(1377)=0.459 ;TFRAC(1378)=0.459333
 TFRAC(1379)=0.459667 ;TFRAC(1380)=0.46
 TFRAC(1381)=0.460333 ;TFRAC(1382)=0.460667
 TFRAC(1383)=0.461 ;TFRAC(1384)=0.461333
 TFRAC(1385)=0.461667 ;TFRAC(1386)=0.462
 TFRAC(1387)=0.462333 ;TFRAC(1388)=0.462667
 TFRAC(1389)=0.463 ;TFRAC(1390)=0.463333
 TFRAC(1391)=0.463667 ;TFRAC(1392)=0.464
 TFRAC(1393)=0.464333 ;TFRAC(1394)=0.464667
 TFRAC(1395)=0.465 ;TFRAC(1396)=0.465333
 TFRAC(1397)=0.465667 ;TFRAC(1398)=0.466
 TFRAC(1399)=0.466333 ;TFRAC(1400)=0.466667
 TFRAC(1401)=0.467 ;TFRAC(1402)=0.467333
 TFRAC(1403)=0.467667 ;TFRAC(1404)=0.468
 TFRAC(1405)=0.468333 ;TFRAC(1406)=0.468667
 TFRAC(1407)=0.469 ;TFRAC(1408)=0.469333
 TFRAC(1409)=0.469667 ;TFRAC(1410)=0.47
 TFRAC(1411)=0.470333 ;TFRAC(1412)=0.470667
 TFRAC(1413)=0.471 ;TFRAC(1414)=0.471333
 TFRAC(1415)=0.471667 ;TFRAC(1416)=0.472
 TFRAC(1417)=0.472333 ;TFRAC(1418)=0.472667
 TFRAC(1419)=0.473 ;TFRAC(1420)=0.473333
 TFRAC(1421)=0.473667 ;TFRAC(1422)=0.474
 TFRAC(1423)=0.474333 ;TFRAC(1424)=0.474667
 TFRAC(1425)=0.475 ;TFRAC(1426)=0.475333
 TFRAC(1427)=0.475667 ;TFRAC(1428)=0.476
 TFRAC(1429)=0.476333 ;TFRAC(1430)=0.476667
 TFRAC(1431)=0.477 ;TFRAC(1432)=0.477333
 TFRAC(1433)=0.477667 ;TFRAC(1434)=0.478
 TFRAC(1435)=0.478333 ;TFRAC(1436)=0.478667
 TFRAC(1437)=0.479 ;TFRAC(1438)=0.479333
 TFRAC(1439)=0.479667 ;TFRAC(1440)=0.48
 TFRAC(1441)=0.480333 ;TFRAC(1442)=0.480667
 TFRAC(1443)=0.481 ;TFRAC(1444)=0.481333
 TFRAC(1445)=0.481667 ;TFRAC(1446)=0.482
 TFRAC(1447)=0.482333 ;TFRAC(1448)=0.482667
 TFRAC(1449)=0.483 ;TFRAC(1450)=0.483333
 TFRAC(1451)=0.483667 ;TFRAC(1452)=0.484
 TFRAC(1453)=0.484333 ;TFRAC(1454)=0.484667
 TFRAC(1455)=0.485 ;TFRAC(1456)=0.485333
 TFRAC(1457)=0.485667 ;TFRAC(1458)=0.486
 TFRAC(1459)=0.486333 ;TFRAC(1460)=0.486667
 TFRAC(1461)=0.487 ;TFRAC(1462)=0.487333
 TFRAC(1463)=0.487667 ;TFRAC(1464)=0.488
 TFRAC(1465)=0.488333 ;TFRAC(1466)=0.488667
 TFRAC(1467)=0.489 ;TFRAC(1468)=0.489333
 TFRAC(1469)=0.489667 ;TFRAC(1470)=0.49
 TFRAC(1471)=0.490333 ;TFRAC(1472)=0.490667
 TFRAC(1473)=0.491 ;TFRAC(1474)=0.491333
 TFRAC(1475)=0.491667 ;TFRAC(1476)=0.492
 TFRAC(1477)=0.492333 ;TFRAC(1478)=0.492667
 TFRAC(1479)=0.493 ;TFRAC(1480)=0.493333
 TFRAC(1481)=0.493667 ;TFRAC(1482)=0.494
 TFRAC(1483)=0.494333 ;TFRAC(1484)=0.494667
 TFRAC(1485)=0.495 ;TFRAC(1486)=0.495333
 TFRAC(1487)=0.495667 ;TFRAC(1488)=0.496
 TFRAC(1489)=0.496333 ;TFRAC(1490)=0.496667
 TFRAC(1491)=0.497 ;TFRAC(1492)=0.497333
 TFRAC(1493)=0.497667 ;TFRAC(1494)=0.498
 TFRAC(1495)=0.498333 ;TFRAC(1496)=0.498667
 TFRAC(1497)=0.499 ;TFRAC(1498)=0.499333
 TFRAC(1499)=0.499667 ;TFRAC(1500)=0.5
 TFRAC(1501)=0.500333 ;TFRAC(1502)=0.500667
 TFRAC(1503)=0.501 ;TFRAC(1504)=0.501333
 TFRAC(1505)=0.501667 ;TFRAC(1506)=0.502
 TFRAC(1507)=0.502333 ;TFRAC(1508)=0.502667
 TFRAC(1509)=0.503 ;TFRAC(1510)=0.503333
 TFRAC(1511)=0.503667 ;TFRAC(1512)=0.504
 TFRAC(1513)=0.504333 ;TFRAC(1514)=0.504667
 TFRAC(1515)=0.505 ;TFRAC(1516)=0.505333
 TFRAC(1517)=0.505667 ;TFRAC(1518)=0.506
 TFRAC(1519)=0.506333 ;TFRAC(1520)=0.506667
 TFRAC(1521)=0.507 ;TFRAC(1522)=0.507333
 TFRAC(1523)=0.507667 ;TFRAC(1524)=0.508
 TFRAC(1525)=0.508333 ;TFRAC(1526)=0.508667
 TFRAC(1527)=0.509 ;TFRAC(1528)=0.509333
 TFRAC(1529)=0.509667 ;TFRAC(1530)=0.51
 TFRAC(1531)=0.510333 ;TFRAC(1532)=0.510667
 TFRAC(1533)=0.511 ;TFRAC(1534)=0.511333
 TFRAC(1535)=0.511667 ;TFRAC(1536)=0.512
 TFRAC(1537)=0.512333 ;TFRAC(1538)=0.512667
 TFRAC(1539)=0.513 ;TFRAC(1540)=0.513333
 TFRAC(1541)=0.513667 ;TFRAC(1542)=0.514
 TFRAC(1543)=0.514333 ;TFRAC(1544)=0.514667
 TFRAC(1545)=0.515 ;TFRAC(1546)=0.515333
 TFRAC(1547)=0.515667 ;TFRAC(1548)=0.516
 TFRAC(1549)=0.516333 ;TFRAC(1550)=0.516667
 TFRAC(1551)=0.517 ;TFRAC(1552)=0.517333
 TFRAC(1553)=0.517667 ;TFRAC(1554)=0.518
 TFRAC(1555)=0.518333 ;TFRAC(1556)=0.518667
 TFRAC(1557)=0.519 ;TFRAC(1558)=0.519333
 TFRAC(1559)=0.519667 ;TFRAC(1560)=0.52
 TFRAC(1561)=0.520333 ;TFRAC(1562)=0.520667
 TFRAC(1563)=0.521 ;TFRAC(1564)=0.521333
 TFRAC(1565)=0.521667 ;TFRAC(1566)=0.522
 TFRAC(1567)=0.522333 ;TFRAC(1568)=0.522667
 TFRAC(1569)=0.523 ;TFRAC(1570)=0.523333
 TFRAC(1571)=0.523667 ;TFRAC(1572)=0.524
 TFRAC(1573)=0.524333 ;TFRAC(1574)=0.524667
 TFRAC(1575)=0.525 ;TFRAC(1576)=0.525333
 TFRAC(1577)=0.525667 ;TFRAC(1578)=0.526
 TFRAC(1579)=0.526333 ;TFRAC(1580)=0.526667
 TFRAC(1581)=0.527 ;TFRAC(1582)=0.527333
 TFRAC(1583)=0.527667 ;TFRAC(1584)=0.528
 TFRAC(1585)=0.528333 ;TFRAC(1586)=0.528667
 TFRAC(1587)=0.529 ;TFRAC(1588)=0.529333
 TFRAC(1589)=0.529667 ;TFRAC(1590)=0.53
 TFRAC(1591)=0.530333 ;TFRAC(1592)=0.530667
 TFRAC(1593)=0.531 ;TFRAC(1594)=0.531333
 TFRAC(1595)=0.531667 ;TFRAC(1596)=0.532
 TFRAC(1597)=0.532333 ;TFRAC(1598)=0.532667
 TFRAC(1599)=0.533 ;TFRAC(1600)=0.533333
 TFRAC(1601)=0.533667 ;TFRAC(1602)=0.534
 TFRAC(1603)=0.534333 ;TFRAC(1604)=0.534667
 TFRAC(1605)=0.535 ;TFRAC(1606)=0.535333
 TFRAC(1607)=0.535667 ;TFRAC(1608)=0.536
 TFRAC(1609)=0.536333 ;TFRAC(1610)=0.536667
 TFRAC(1611)=0.537 ;TFRAC(1612)=0.537333
 TFRAC(1613)=0.537667 ;TFRAC(1614)=0.538
 TFRAC(1615)=0.538333 ;TFRAC(1616)=0.538667
 TFRAC(1617)=0.539 ;TFRAC(1618)=0.539333
 TFRAC(1619)=0.539667 ;TFRAC(1620)=0.54
 TFRAC(1621)=0.540333 ;TFRAC(1622)=0.540667
 TFRAC(1623)=0.541 ;TFRAC(1624)=0.541333
 TFRAC(1625)=0.541667 ;TFRAC(1626)=0.542
 TFRAC(1627)=0.542333 ;TFRAC(1628)=0.542667
 TFRAC(1629)=0.543 ;TFRAC(1630)=0.543333
 TFRAC(1631)=0.543667 ;TFRAC(1632)=0.544
 TFRAC(1633)=0.544333 ;TFRAC(1634)=0.544667
 TFRAC(1635)=0.545 ;TFRAC(1636)=0.545333
 TFRAC(1637)=0.545667 ;TFRAC(1638)=0.546
 TFRAC(1639)=0.546333 ;TFRAC(1640)=0.546667
 TFRAC(1641)=0.547 ;TFRAC(1642)=0.547333
 TFRAC(1643)=0.547667 ;TFRAC(1644)=0.548
 TFRAC(1645)=0.548333 ;TFRAC(1646)=0.548667
 TFRAC(1647)=0.549 ;TFRAC(1648)=0.549333
 TFRAC(1649)=0.549667 ;TFRAC(1650)=0.55
 TFRAC(1651)=0.550333 ;TFRAC(1652)=0.550667
 TFRAC(1653)=0.551 ;TFRAC(1654)=0.551333
 TFRAC(1655)=0.551667 ;TFRAC(1656)=0.552
 TFRAC(1657)=0.552333 ;TFRAC(1658)=0.552667
 TFRAC(1659)=0.553 ;TFRAC(1660)=0.553333
 TFRAC(1661)=0.553667 ;TFRAC(1662)=0.554
 TFRAC(1663)=0.554333 ;TFRAC(1664)=0.554667
 TFRAC(1665)=0.555 ;TFRAC(1666)=0.555333
 TFRAC(1667)=0.555667 ;TFRAC(1668)=0.556
 TFRAC(1669)=0.556333 ;TFRAC(1670)=0.556667
 TFRAC(1671)=0.557 ;TFRAC(1672)=0.557333
 TFRAC(1673)=0.557667 ;TFRAC(1674)=0.558
 TFRAC(1675)=0.558333 ;TFRAC(1676)=0.558667
 TFRAC(1677)=0.559 ;TFRAC(1678)=0.559333
 TFRAC(1679)=0.559667 ;TFRAC(1680)=0.56
 TFRAC(1681)=0.560333 ;TFRAC(1682)=0.560667
 TFRAC(1683)=0.561 ;TFRAC(1684)=0.561333
 TFRAC(1685)=0.561667 ;TFRAC(1686)=0.562
 TFRAC(1687)=0.562333 ;TFRAC(1688)=0.562667
 TFRAC(1689)=0.563 ;TFRAC(1690)=0.563333
 TFRAC(1691)=0.563667 ;TFRAC(1692)=0.564
 TFRAC(1693)=0.564333 ;TFRAC(1694)=0.564667
 TFRAC(1695)=0.565 ;TFRAC(1696)=0.565333
 TFRAC(1697)=0.565667 ;TFRAC(1698)=0.566
 TFRAC(1699)=0.566333 ;TFRAC(1700)=0.566667
 TFRAC(1701)=0.567 ;TFRAC(1702)=0.567333
 TFRAC(1703)=0.567667 ;TFRAC(1704)=0.568
 TFRAC(1705)=0.568333 ;TFRAC(1706)=0.568667
 TFRAC(1707)=0.569 ;TFRAC(1708)=0.569333
 TFRAC(1709)=0.569667 ;TFRAC(1710)=0.57
 TFRAC(1711)=0.570333 ;TFRAC(1712)=0.570667
 TFRAC(1713)=0.571 ;TFRAC(1714)=0.571333
 TFRAC(1715)=0.571667 ;TFRAC(1716)=0.572
 TFRAC(1717)=0.572333 ;TFRAC(1718)=0.572667
 TFRAC(1719)=0.573 ;TFRAC(1720)=0.573333
 TFRAC(1721)=0.573667 ;TFRAC(1722)=0.574
 TFRAC(1723)=0.574333 ;TFRAC(1724)=0.574667
 TFRAC(1725)=0.575 ;TFRAC(1726)=0.575333
 TFRAC(1727)=0.575667 ;TFRAC(1728)=0.576
 TFRAC(1729)=0.576333 ;TFRAC(1730)=0.576667
 TFRAC(1731)=0.577 ;TFRAC(1732)=0.577333
 TFRAC(1733)=0.577667 ;TFRAC(1734)=0.578
 TFRAC(1735)=0.578333 ;TFRAC(1736)=0.578667
 TFRAC(1737)=0.579 ;TFRAC(1738)=0.579333
 TFRAC(1739)=0.579667 ;TFRAC(1740)=0.58
 TFRAC(1741)=0.580333 ;TFRAC(1742)=0.580667
 TFRAC(1743)=0.581 ;TFRAC(1744)=0.581333
 TFRAC(1745)=0.581667 ;TFRAC(1746)=0.582
 TFRAC(1747)=0.582333 ;TFRAC(1748)=0.582667
 TFRAC(1749)=0.583 ;TFRAC(1750)=0.583333
 TFRAC(1751)=0.583667 ;TFRAC(1752)=0.584
 TFRAC(1753)=0.584333 ;TFRAC(1754)=0.584667
 TFRAC(1755)=0.585 ;TFRAC(1756)=0.585333
 TFRAC(1757)=0.585667 ;TFRAC(1758)=0.586
 TFRAC(1759)=0.586333 ;TFRAC(1760)=0.586667
 TFRAC(1761)=0.587 ;TFRAC(1762)=0.587333
 TFRAC(1763)=0.587667 ;TFRAC(1764)=0.588
 TFRAC(1765)=0.588333 ;TFRAC(1766)=0.588667
 TFRAC(1767)=0.589 ;TFRAC(1768)=0.589333
 TFRAC(1769)=0.589667 ;TFRAC(1770)=0.59
 TFRAC(1771)=0.590333 ;TFRAC(1772)=0.590667
 TFRAC(1773)=0.591 ;TFRAC(1774)=0.591333
 TFRAC(1775)=0.591667 ;TFRAC(1776)=0.592
 TFRAC(1777)=0.592333 ;TFRAC(1778)=0.592667
 TFRAC(1779)=0.593 ;TFRAC(1780)=0.593333
 TFRAC(1781)=0.593667 ;TFRAC(1782)=0.594
 TFRAC(1783)=0.594333 ;TFRAC(1784)=0.594667
 TFRAC(1785)=0.595 ;TFRAC(1786)=0.595333
 TFRAC(1787)=0.595667 ;TFRAC(1788)=0.596
 TFRAC(1789)=0.596333 ;TFRAC(1790)=0.596667
 TFRAC(1791)=0.597 ;TFRAC(1792)=0.597333
 TFRAC(1793)=0.597667 ;TFRAC(1794)=0.598
 TFRAC(1795)=0.598333 ;TFRAC(1796)=0.598667
 TFRAC(1797)=0.599 ;TFRAC(1798)=0.599333
 TFRAC(1799)=0.599667 ;TFRAC(1800)=0.6
 TFRAC(1801)=0.600333 ;TFRAC(1802)=0.600667
 TFRAC(1803)=0.601 ;TFRAC(1804)=0.601333
 TFRAC(1805)=0.601667 ;TFRAC(1806)=0.602
 TFRAC(1807)=0.602333 ;TFRAC(1808)=0.602667
 TFRAC(1809)=0.603 ;TFRAC(1810)=0.603333
 TFRAC(1811)=0.603667 ;TFRAC(1812)=0.604
 TFRAC(1813)=0.604333 ;TFRAC(1814)=0.604667
 TFRAC(1815)=0.605 ;TFRAC(1816)=0.605333
 TFRAC(1817)=0.605667 ;TFRAC(1818)=0.606
 TFRAC(1819)=0.606333 ;TFRAC(1820)=0.606667
 TFRAC(1821)=0.607 ;TFRAC(1822)=0.607333
 TFRAC(1823)=0.607667 ;TFRAC(1824)=0.608
 TFRAC(1825)=0.608333 ;TFRAC(1826)=0.608667
 TFRAC(1827)=0.609 ;TFRAC(1828)=0.609333
 TFRAC(1829)=0.609667 ;TFRAC(1830)=0.61
 TFRAC(1831)=0.610333 ;TFRAC(1832)=0.610667
 TFRAC(1833)=0.611 ;TFRAC(1834)=0.611333
 TFRAC(1835)=0.611667 ;TFRAC(1836)=0.612
 TFRAC(1837)=0.612333 ;TFRAC(1838)=0.612667
 TFRAC(1839)=0.613 ;TFRAC(1840)=0.613333
 TFRAC(1841)=0.613667 ;TFRAC(1842)=0.614
 TFRAC(1843)=0.614333 ;TFRAC(1844)=0.614667
 TFRAC(1845)=0.615 ;TFRAC(1846)=0.615333
 TFRAC(1847)=0.615667 ;TFRAC(1848)=0.616
 TFRAC(1849)=0.616333 ;TFRAC(1850)=0.616667
 TFRAC(1851)=0.617 ;TFRAC(1852)=0.617333
 TFRAC(1853)=0.617667 ;TFRAC(1854)=0.618
 TFRAC(1855)=0.618333 ;TFRAC(1856)=0.618667
 TFRAC(1857)=0.619 ;TFRAC(1858)=0.619333
 TFRAC(1859)=0.619667 ;TFRAC(1860)=0.62
 TFRAC(1861)=0.620333 ;TFRAC(1862)=0.620667
 TFRAC(1863)=0.621 ;TFRAC(1864)=0.621333
 TFRAC(1865)=0.621667 ;TFRAC(1866)=0.622
 TFRAC(1867)=0.622333 ;TFRAC(1868)=0.622667
 TFRAC(1869)=0.623 ;TFRAC(1870)=0.623333
 TFRAC(1871)=0.623667 ;TFRAC(1872)=0.624
 TFRAC(1873)=0.624333 ;TFRAC(1874)=0.624667
 TFRAC(1875)=0.625 ;TFRAC(1876)=0.625333
 TFRAC(1877)=0.625667 ;TFRAC(1878)=0.626
 TFRAC(1879)=0.626333 ;TFRAC(1880)=0.626667
 TFRAC(1881)=0.627 ;TFRAC(1882)=0.627333
 TFRAC(1883)=0.627667 ;TFRAC(1884)=0.628
 TFRAC(1885)=0.628333 ;TFRAC(1886)=0.628667
 TFRAC(1887)=0.629 ;TFRAC(1888)=0.629333
 TFRAC(1889)=0.629667 ;TFRAC(1890)=0.63
 TFRAC(1891)=0.630333 ;TFRAC(1892)=0.630667
 TFRAC(1893)=0.631 ;TFRAC(1894)=0.631333
 TFRAC(1895)=0.631667 ;TFRAC(1896)=0.632
 TFRAC(1897)=0.632333 ;TFRAC(1898)=0.632667
 TFRAC(1899)=0.633 ;TFRAC(1900)=0.633333
 TFRAC(1901)=0.633667 ;TFRAC(1902)=0.634
 TFRAC(1903)=0.634333 ;TFRAC(1904)=0.634667
 TFRAC(1905)=0.635 ;TFRAC(1906)=0.635333
 TFRAC(1907)=0.635667 ;TFRAC(1908)=0.636
 TFRAC(1909)=0.636333 ;TFRAC(1910)=0.636667
 TFRAC(1911)=0.637 ;TFRAC(1912)=0.637333
 TFRAC(1913)=0.637667 ;TFRAC(1914)=0.638
 TFRAC(1915)=0.638333 ;TFRAC(1916)=0.638667
 TFRAC(1917)=0.639 ;TFRAC(1918)=0.639333
 TFRAC(1919)=0.639667 ;TFRAC(1920)=0.64
 TFRAC(1921)=0.640333 ;TFRAC(1922)=0.640667
 TFRAC(1923)=0.641 ;TFRAC(1924)=0.641333
 TFRAC(1925)=0.641667 ;TFRAC(1926)=0.642
 TFRAC(1927)=0.642333 ;TFRAC(1928)=0.642667
 TFRAC(1929)=0.643 ;TFRAC(1930)=0.643333
 TFRAC(1931)=0.643667 ;TFRAC(1932)=0.644
 TFRAC(1933)=0.644333 ;TFRAC(1934)=0.644667
 TFRAC(1935)=0.645 ;TFRAC(1936)=0.645333
 TFRAC(1937)=0.645667 ;TFRAC(1938)=0.646
 TFRAC(1939)=0.646333 ;TFRAC(1940)=0.646667
 TFRAC(1941)=0.647 ;TFRAC(1942)=0.647333
 TFRAC(1943)=0.647667 ;TFRAC(1944)=0.648
 TFRAC(1945)=0.648333 ;TFRAC(1946)=0.648667
 TFRAC(1947)=0.649 ;TFRAC(1948)=0.649333
 TFRAC(1949)=0.649667 ;TFRAC(1950)=0.65
 TFRAC(1951)=0.650333 ;TFRAC(1952)=0.650667
 TFRAC(1953)=0.651 ;TFRAC(1954)=0.651333
 TFRAC(1955)=0.651667 ;TFRAC(1956)=0.652
 TFRAC(1957)=0.652333 ;TFRAC(1958)=0.652667
 TFRAC(1959)=0.653 ;TFRAC(1960)=0.653333
 TFRAC(1961)=0.653667 ;TFRAC(1962)=0.654
 TFRAC(1963)=0.654333 ;TFRAC(1964)=0.654667
 TFRAC(1965)=0.655 ;TFRAC(1966)=0.655333
 TFRAC(1967)=0.655667 ;TFRAC(1968)=0.656
 TFRAC(1969)=0.656333 ;TFRAC(1970)=0.656667
 TFRAC(1971)=0.657 ;TFRAC(1972)=0.657333
 TFRAC(1973)=0.657667 ;TFRAC(1974)=0.658
 TFRAC(1975)=0.658333 ;TFRAC(1976)=0.658667
 TFRAC(1977)=0.659 ;TFRAC(1978)=0.659333
 TFRAC(1979)=0.659667 ;TFRAC(1980)=0.66
 TFRAC(1981)=0.660333 ;TFRAC(1982)=0.660667
 TFRAC(1983)=0.661 ;TFRAC(1984)=0.661333
 TFRAC(1985)=0.661667 ;TFRAC(1986)=0.662
 TFRAC(1987)=0.662333 ;TFRAC(1988)=0.662667
 TFRAC(1989)=0.663 ;TFRAC(1990)=0.663333
 TFRAC(1991)=0.663667 ;TFRAC(1992)=0.664
 TFRAC(1993)=0.664333 ;TFRAC(1994)=0.664667
 TFRAC(1995)=0.665 ;TFRAC(1996)=0.665333
 TFRAC(1997)=0.665667 ;TFRAC(1998)=0.666
 TFRAC(1999)=0.666333 ;TFRAC(2000)=0.666667
 TFRAC(2001)=0.667 ;TFRAC(2002)=0.667333
 TFRAC(2003)=0.667667 ;TFRAC(2004)=0.668
 TFRAC(2005)=0.668333 ;TFRAC(2006)=0.668667
 TFRAC(2007)=0.669 ;TFRAC(2008)=0.669333
 TFRAC(2009)=0.669667 ;TFRAC(2010)=0.67
 TFRAC(2011)=0.670333 ;TFRAC(2012)=0.670667
 TFRAC(2013)=0.671 ;TFRAC(2014)=0.671333
 TFRAC(2015)=0.671667 ;TFRAC(2016)=0.672
 TFRAC(2017)=0.672333 ;TFRAC(2018)=0.672667
 TFRAC(2019)=0.673 ;TFRAC(2020)=0.673333
 TFRAC(2021)=0.673667 ;TFRAC(2022)=0.674
 TFRAC(2023)=0.674333 ;TFRAC(2024)=0.674667
 TFRAC(2025)=0.675 ;TFRAC(2026)=0.675333
 TFRAC(2027)=0.675667 ;TFRAC(2028)=0.676
 TFRAC(2029)=0.676333 ;TFRAC(2030)=0.676667
 TFRAC(2031)=0.677 ;TFRAC(2032)=0.677333
 TFRAC(2033)=0.677667 ;TFRAC(2034)=0.678
 TFRAC(2035)=0.678333 ;TFRAC(2036)=0.678667
 TFRAC(2037)=0.679 ;TFRAC(2038)=0.679333
 TFRAC(2039)=0.679667 ;TFRAC(2040)=0.68
 TFRAC(2041)=0.680333 ;TFRAC(2042)=0.680667
 TFRAC(2043)=0.681 ;TFRAC(2044)=0.681333
 TFRAC(2045)=0.681667 ;TFRAC(2046)=0.682
 TFRAC(2047)=0.682333 ;TFRAC(2048)=0.682667
 TFRAC(2049)=0.683 ;TFRAC(2050)=0.683333
 TFRAC(2051)=0.683667 ;TFRAC(2052)=0.684
 TFRAC(2053)=0.684333 ;TFRAC(2054)=0.684667
 TFRAC(2055)=0.685 ;TFRAC(2056)=0.685333
 TFRAC(2057)=0.685667 ;TFRAC(2058)=0.686
 TFRAC(2059)=0.686333 ;TFRAC(2060)=0.686667
 TFRAC(2061)=0.687 ;TFRAC(2062)=0.687333
 TFRAC(2063)=0.687667 ;TFRAC(2064)=0.688
 TFRAC(2065)=0.688333 ;TFRAC(2066)=0.688667
 TFRAC(2067)=0.689 ;TFRAC(2068)=0.689333
 TFRAC(2069)=0.689667 ;TFRAC(2070)=0.69
 TFRAC(2071)=0.690333 ;TFRAC(2072)=0.690667
 TFRAC(2073)=0.691 ;TFRAC(2074)=0.691333
 TFRAC(2075)=0.691667 ;TFRAC(2076)=0.692
 TFRAC(2077)=0.692333 ;TFRAC(2078)=0.692667
 TFRAC(2079)=0.693 ;TFRAC(2080)=0.693333
 TFRAC(2081)=0.693667 ;TFRAC(2082)=0.694
 TFRAC(2083)=0.694333 ;TFRAC(2084)=0.694667
 TFRAC(2085)=0.695 ;TFRAC(2086)=0.695333
 TFRAC(2087)=0.695667 ;TFRAC(2088)=0.696
 TFRAC(2089)=0.696333 ;TFRAC(2090)=0.696667
 TFRAC(2091)=0.697 ;TFRAC(2092)=0.697333
 TFRAC(2093)=0.697667 ;TFRAC(2094)=0.698
 TFRAC(2095)=0.698333 ;TFRAC(2096)=0.698667
 TFRAC(2097)=0.699 ;TFRAC(2098)=0.699333
 TFRAC(2099)=0.699667 ;TFRAC(2100)=0.7
 TFRAC(2101)=0.700333 ;TFRAC(2102)=0.700667
 TFRAC(2103)=0.701 ;TFRAC(2104)=0.701333
 TFRAC(2105)=0.701667 ;TFRAC(2106)=0.702
 TFRAC(2107)=0.702333 ;TFRAC(2108)=0.702667
 TFRAC(2109)=0.703 ;TFRAC(2110)=0.703333
 TFRAC(2111)=0.703667 ;TFRAC(2112)=0.704
 TFRAC(2113)=0.704333 ;TFRAC(2114)=0.704667
 TFRAC(2115)=0.705 ;TFRAC(2116)=0.705333
 TFRAC(2117)=0.705667 ;TFRAC(2118)=0.706
 TFRAC(2119)=0.706333 ;TFRAC(2120)=0.706667
 TFRAC(2121)=0.707 ;TFRAC(2122)=0.707333
 TFRAC(2123)=0.707667 ;TFRAC(2124)=0.708
 TFRAC(2125)=0.708333 ;TFRAC(2126)=0.708667
 TFRAC(2127)=0.709 ;TFRAC(2128)=0.709333
 TFRAC(2129)=0.709667 ;TFRAC(2130)=0.71
 TFRAC(2131)=0.710333 ;TFRAC(2132)=0.710667
 TFRAC(2133)=0.711 ;TFRAC(2134)=0.711333
 TFRAC(2135)=0.711667 ;TFRAC(2136)=0.712
 TFRAC(2137)=0.712333 ;TFRAC(2138)=0.712667
 TFRAC(2139)=0.713 ;TFRAC(2140)=0.713333
 TFRAC(2141)=0.713667 ;TFRAC(2142)=0.714
 TFRAC(2143)=0.714333 ;TFRAC(2144)=0.714667
 TFRAC(2145)=0.715 ;TFRAC(2146)=0.715333
 TFRAC(2147)=0.715667 ;TFRAC(2148)=0.716
 TFRAC(2149)=0.716333 ;TFRAC(2150)=0.716667
 TFRAC(2151)=0.717 ;TFRAC(2152)=0.717333
 TFRAC(2153)=0.717667 ;TFRAC(2154)=0.718
 TFRAC(2155)=0.718333 ;TFRAC(2156)=0.718667
 TFRAC(2157)=0.719 ;TFRAC(2158)=0.719333
 TFRAC(2159)=0.719667 ;TFRAC(2160)=0.72
 TFRAC(2161)=0.720333 ;TFRAC(2162)=0.720667
 TFRAC(2163)=0.721 ;TFRAC(2164)=0.721333
 TFRAC(2165)=0.721667 ;TFRAC(2166)=0.722
 TFRAC(2167)=0.722333 ;TFRAC(2168)=0.722667
 TFRAC(2169)=0.723 ;TFRAC(2170)=0.723333
 TFRAC(2171)=0.723667 ;TFRAC(2172)=0.724
 TFRAC(2173)=0.724333 ;TFRAC(2174)=0.724667
 TFRAC(2175)=0.725 ;TFRAC(2176)=0.725333
 TFRAC(2177)=0.725667 ;TFRAC(2178)=0.726
 TFRAC(2179)=0.726333 ;TFRAC(2180)=0.726667
 TFRAC(2181)=0.727 ;TFRAC(2182)=0.727333
 TFRAC(2183)=0.727667 ;TFRAC(2184)=0.728
 TFRAC(2185)=0.728333 ;TFRAC(2186)=0.728667
 TFRAC(2187)=0.729 ;TFRAC(2188)=0.729333
 TFRAC(2189)=0.729667 ;TFRAC(2190)=0.73
 TFRAC(2191)=0.730333 ;TFRAC(2192)=0.730667
 TFRAC(2193)=0.731 ;TFRAC(2194)=0.731333
 TFRAC(2195)=0.731667 ;TFRAC(2196)=0.732
 TFRAC(2197)=0.732333 ;TFRAC(2198)=0.732667
 TFRAC(2199)=0.733 ;TFRAC(2200)=0.733333
 TFRAC(2201)=0.733667 ;TFRAC(2202)=0.734
 TFRAC(2203)=0.734333 ;TFRAC(2204)=0.734667
 TFRAC(2205)=0.735 ;TFRAC(2206)=0.735333
 TFRAC(2207)=0.735667 ;TFRAC(2208)=0.736
 TFRAC(2209)=0.736333 ;TFRAC(2210)=0.736667
 TFRAC(2211)=0.737 ;TFRAC(2212)=0.737333
 TFRAC(2213)=0.737667 ;TFRAC(2214)=0.738
 TFRAC(2215)=0.738333 ;TFRAC(2216)=0.738667
 TFRAC(2217)=0.739 ;TFRAC(2218)=0.739333
 TFRAC(2219)=0.739667 ;TFRAC(2220)=0.74
 TFRAC(2221)=0.740333 ;TFRAC(2222)=0.740667
 TFRAC(2223)=0.741 ;TFRAC(2224)=0.741333
 TFRAC(2225)=0.741667 ;TFRAC(2226)=0.742
 TFRAC(2227)=0.742333 ;TFRAC(2228)=0.742667
 TFRAC(2229)=0.743 ;TFRAC(2230)=0.743333
 TFRAC(2231)=0.743667 ;TFRAC(2232)=0.744
 TFRAC(2233)=0.744333 ;TFRAC(2234)=0.744667
 TFRAC(2235)=0.745 ;TFRAC(2236)=0.745333
 TFRAC(2237)=0.745667 ;TFRAC(2238)=0.746
 TFRAC(2239)=0.746333 ;TFRAC(2240)=0.746667
 TFRAC(2241)=0.747 ;TFRAC(2242)=0.747333
 TFRAC(2243)=0.747667 ;TFRAC(2244)=0.748
 TFRAC(2245)=0.748333 ;TFRAC(2246)=0.748667
 TFRAC(2247)=0.749 ;TFRAC(2248)=0.749333
 TFRAC(2249)=0.749667 ;TFRAC(2250)=0.75
 TFRAC(2251)=0.750333 ;TFRAC(2252)=0.750667
 TFRAC(2253)=0.751 ;TFRAC(2254)=0.751333
 TFRAC(2255)=0.751667 ;TFRAC(2256)=0.752
 TFRAC(2257)=0.752333 ;TFRAC(2258)=0.752667
 TFRAC(2259)=0.753 ;TFRAC(2260)=0.753333
 TFRAC(2261)=0.753667 ;TFRAC(2262)=0.754
 TFRAC(2263)=0.754333 ;TFRAC(2264)=0.754667
 TFRAC(2265)=0.755 ;TFRAC(2266)=0.755333
 TFRAC(2267)=0.755667 ;TFRAC(2268)=0.756
 TFRAC(2269)=0.756333 ;TFRAC(2270)=0.756667
 TFRAC(2271)=0.757 ;TFRAC(2272)=0.757333
 TFRAC(2273)=0.757667 ;TFRAC(2274)=0.758
 TFRAC(2275)=0.758333 ;TFRAC(2276)=0.758667
 TFRAC(2277)=0.759 ;TFRAC(2278)=0.759333
 TFRAC(2279)=0.759667 ;TFRAC(2280)=0.76
 TFRAC(2281)=0.760333 ;TFRAC(2282)=0.760667
 TFRAC(2283)=0.761 ;TFRAC(2284)=0.761333
 TFRAC(2285)=0.761667 ;TFRAC(2286)=0.762
 TFRAC(2287)=0.762333 ;TFRAC(2288)=0.762667
 TFRAC(2289)=0.763 ;TFRAC(2290)=0.763333
 TFRAC(2291)=0.763667 ;TFRAC(2292)=0.764
 TFRAC(2293)=0.764333 ;TFRAC(2294)=0.764667
 TFRAC(2295)=0.765 ;TFRAC(2296)=0.765333
 TFRAC(2297)=0.765667 ;TFRAC(2298)=0.766
 TFRAC(2299)=0.766333 ;TFRAC(2300)=0.766667
 TFRAC(2301)=0.767 ;TFRAC(2302)=0.767333
 TFRAC(2303)=0.767667 ;TFRAC(2304)=0.768
 TFRAC(2305)=0.768333 ;TFRAC(2306)=0.768667
 TFRAC(2307)=0.769 ;TFRAC(2308)=0.769333
 TFRAC(2309)=0.769667 ;TFRAC(2310)=0.77
 TFRAC(2311)=0.770333 ;TFRAC(2312)=0.770667
 TFRAC(2313)=0.771 ;TFRAC(2314)=0.771333
 TFRAC(2315)=0.771667 ;TFRAC(2316)=0.772
 TFRAC(2317)=0.772333 ;TFRAC(2318)=0.772667
 TFRAC(2319)=0.773 ;TFRAC(2320)=0.773333
 TFRAC(2321)=0.773667 ;TFRAC(2322)=0.774
 TFRAC(2323)=0.774333 ;TFRAC(2324)=0.774667
 TFRAC(2325)=0.775 ;TFRAC(2326)=0.775333
 TFRAC(2327)=0.775667 ;TFRAC(2328)=0.776
 TFRAC(2329)=0.776333 ;TFRAC(2330)=0.776667
 TFRAC(2331)=0.777 ;TFRAC(2332)=0.777333
 TFRAC(2333)=0.777667 ;TFRAC(2334)=0.778
 TFRAC(2335)=0.778333 ;TFRAC(2336)=0.778667
 TFRAC(2337)=0.779 ;TFRAC(2338)=0.779333
 TFRAC(2339)=0.779667 ;TFRAC(2340)=0.78
 TFRAC(2341)=0.780333 ;TFRAC(2342)=0.780667
 TFRAC(2343)=0.781 ;TFRAC(2344)=0.781333
 TFRAC(2345)=0.781667 ;TFRAC(2346)=0.782
 TFRAC(2347)=0.782333 ;TFRAC(2348)=0.782667
 TFRAC(2349)=0.783 ;TFRAC(2350)=0.783333
 TFRAC(2351)=0.783667 ;TFRAC(2352)=0.784
 TFRAC(2353)=0.784333 ;TFRAC(2354)=0.784667
 TFRAC(2355)=0.785 ;TFRAC(2356)=0.785333
 TFRAC(2357)=0.785667 ;TFRAC(2358)=0.786
 TFRAC(2359)=0.786333 ;TFRAC(2360)=0.786667
 TFRAC(2361)=0.787 ;TFRAC(2362)=0.787333
 TFRAC(2363)=0.787667 ;TFRAC(2364)=0.788
 TFRAC(2365)=0.788333 ;TFRAC(2366)=0.788667
 TFRAC(2367)=0.789 ;TFRAC(2368)=0.789333
 TFRAC(2369)=0.789667 ;TFRAC(2370)=0.79
 TFRAC(2371)=0.790333 ;TFRAC(2372)=0.790667
 TFRAC(2373)=0.791 ;TFRAC(2374)=0.791333
 TFRAC(2375)=0.791667 ;TFRAC(2376)=0.792
 TFRAC(2377)=0.792333 ;TFRAC(2378)=0.792667
 TFRAC(2379)=0.793 ;TFRAC(2380)=0.793333
 TFRAC(2381)=0.793667 ;TFRAC(2382)=0.794
 TFRAC(2383)=0.794333 ;TFRAC(2384)=0.794667
 TFRAC(2385)=0.795 ;TFRAC(2386)=0.795333
 TFRAC(2387)=0.795667 ;TFRAC(2388)=0.796
 TFRAC(2389)=0.796333 ;TFRAC(2390)=0.796667
 TFRAC(2391)=0.797 ;TFRAC(2392)=0.797333
 TFRAC(2393)=0.797667 ;TFRAC(2394)=0.798
 TFRAC(2395)=0.798333 ;TFRAC(2396)=0.798667
 TFRAC(2397)=0.799 ;TFRAC(2398)=0.799333
 TFRAC(2399)=0.799667 ;TFRAC(2400)=0.8
 TFRAC(2401)=0.800333 ;TFRAC(2402)=0.800667
 TFRAC(2403)=0.801 ;TFRAC(2404)=0.801333
 TFRAC(2405)=0.801667 ;TFRAC(2406)=0.802
 TFRAC(2407)=0.802333 ;TFRAC(2408)=0.802667
 TFRAC(2409)=0.803 ;TFRAC(2410)=0.803333
 TFRAC(2411)=0.803667 ;TFRAC(2412)=0.804
 TFRAC(2413)=0.804333 ;TFRAC(2414)=0.804667
 TFRAC(2415)=0.805 ;TFRAC(2416)=0.805333
 TFRAC(2417)=0.805667 ;TFRAC(2418)=0.806
 TFRAC(2419)=0.806333 ;TFRAC(2420)=0.806667
 TFRAC(2421)=0.807 ;TFRAC(2422)=0.807333
 TFRAC(2423)=0.807667 ;TFRAC(2424)=0.808
 TFRAC(2425)=0.808333 ;TFRAC(2426)=0.808667
 TFRAC(2427)=0.809 ;TFRAC(2428)=0.809333
 TFRAC(2429)=0.809667 ;TFRAC(2430)=0.81
 TFRAC(2431)=0.810333 ;TFRAC(2432)=0.810667
 TFRAC(2433)=0.811 ;TFRAC(2434)=0.811333
 TFRAC(2435)=0.811667 ;TFRAC(2436)=0.812
 TFRAC(2437)=0.812333 ;TFRAC(2438)=0.812667
 TFRAC(2439)=0.813 ;TFRAC(2440)=0.813333
 TFRAC(2441)=0.813667 ;TFRAC(2442)=0.814
 TFRAC(2443)=0.814333 ;TFRAC(2444)=0.814667
 TFRAC(2445)=0.815 ;TFRAC(2446)=0.815333
 TFRAC(2447)=0.815667 ;TFRAC(2448)=0.816
 TFRAC(2449)=0.816333 ;TFRAC(2450)=0.816667
 TFRAC(2451)=0.817 ;TFRAC(2452)=0.817333
 TFRAC(2453)=0.817667 ;TFRAC(2454)=0.818
 TFRAC(2455)=0.818333 ;TFRAC(2456)=0.818667
 TFRAC(2457)=0.819 ;TFRAC(2458)=0.819333
 TFRAC(2459)=0.819667 ;TFRAC(2460)=0.82
 TFRAC(2461)=0.820333 ;TFRAC(2462)=0.820667
 TFRAC(2463)=0.821 ;TFRAC(2464)=0.821333
 TFRAC(2465)=0.821667 ;TFRAC(2466)=0.822
 TFRAC(2467)=0.822333 ;TFRAC(2468)=0.822667
 TFRAC(2469)=0.823 ;TFRAC(2470)=0.823333
 TFRAC(2471)=0.823667 ;TFRAC(2472)=0.824
 TFRAC(2473)=0.824333 ;TFRAC(2474)=0.824667
 TFRAC(2475)=0.825 ;TFRAC(2476)=0.825333
 TFRAC(2477)=0.825667 ;TFRAC(2478)=0.826
 TFRAC(2479)=0.826333 ;TFRAC(2480)=0.826667
 TFRAC(2481)=0.827 ;TFRAC(2482)=0.827333
 TFRAC(2483)=0.827667 ;TFRAC(2484)=0.828
 TFRAC(2485)=0.828333 ;TFRAC(2486)=0.828667
 TFRAC(2487)=0.829 ;TFRAC(2488)=0.829333
 TFRAC(2489)=0.829667 ;TFRAC(2490)=0.83
 TFRAC(2491)=0.830333 ;TFRAC(2492)=0.830667
 TFRAC(2493)=0.831 ;TFRAC(2494)=0.831333
 TFRAC(2495)=0.831667 ;TFRAC(2496)=0.832
 TFRAC(2497)=0.832333 ;TFRAC(2498)=0.832667
 TFRAC(2499)=0.833 ;TFRAC(2500)=0.833333
 TFRAC(2501)=0.833667 ;TFRAC(2502)=0.834
 TFRAC(2503)=0.834333 ;TFRAC(2504)=0.834667
 TFRAC(2505)=0.835 ;TFRAC(2506)=0.835333
 TFRAC(2507)=0.835667 ;TFRAC(2508)=0.836
 TFRAC(2509)=0.836333 ;TFRAC(2510)=0.836667
 TFRAC(2511)=0.837 ;TFRAC(2512)=0.837333
 TFRAC(2513)=0.837667 ;TFRAC(2514)=0.838
 TFRAC(2515)=0.838333 ;TFRAC(2516)=0.838667
 TFRAC(2517)=0.839 ;TFRAC(2518)=0.839333
 TFRAC(2519)=0.839667 ;TFRAC(2520)=0.84
 TFRAC(2521)=0.840333 ;TFRAC(2522)=0.840667
 TFRAC(2523)=0.841 ;TFRAC(2524)=0.841333
 TFRAC(2525)=0.841667 ;TFRAC(2526)=0.842
 TFRAC(2527)=0.842333 ;TFRAC(2528)=0.842667
 TFRAC(2529)=0.843 ;TFRAC(2530)=0.843333
 TFRAC(2531)=0.843667 ;TFRAC(2532)=0.844
 TFRAC(2533)=0.844333 ;TFRAC(2534)=0.844667
 TFRAC(2535)=0.845 ;TFRAC(2536)=0.845333
 TFRAC(2537)=0.845667 ;TFRAC(2538)=0.846
 TFRAC(2539)=0.846333 ;TFRAC(2540)=0.846667
 TFRAC(2541)=0.847 ;TFRAC(2542)=0.847333
 TFRAC(2543)=0.847667 ;TFRAC(2544)=0.848
 TFRAC(2545)=0.848333 ;TFRAC(2546)=0.848667
 TFRAC(2547)=0.849 ;TFRAC(2548)=0.849333
 TFRAC(2549)=0.849667 ;TFRAC(2550)=0.85
 TFRAC(2551)=0.850333 ;TFRAC(2552)=0.850667
 TFRAC(2553)=0.851 ;TFRAC(2554)=0.851333
 TFRAC(2555)=0.851667 ;TFRAC(2556)=0.852
 TFRAC(2557)=0.852333 ;TFRAC(2558)=0.852667
 TFRAC(2559)=0.853 ;TFRAC(2560)=0.853333
 TFRAC(2561)=0.853667 ;TFRAC(2562)=0.854
 TFRAC(2563)=0.854333 ;TFRAC(2564)=0.854667
 TFRAC(2565)=0.855 ;TFRAC(2566)=0.855333
 TFRAC(2567)=0.855667 ;TFRAC(2568)=0.856
 TFRAC(2569)=0.856333 ;TFRAC(2570)=0.856667
 TFRAC(2571)=0.857 ;TFRAC(2572)=0.857333
 TFRAC(2573)=0.857667 ;TFRAC(2574)=0.858
 TFRAC(2575)=0.858333 ;TFRAC(2576)=0.858667
 TFRAC(2577)=0.859 ;TFRAC(2578)=0.859333
 TFRAC(2579)=0.859667 ;TFRAC(2580)=0.86
 TFRAC(2581)=0.860333 ;TFRAC(2582)=0.860667
 TFRAC(2583)=0.861 ;TFRAC(2584)=0.861333
 TFRAC(2585)=0.861667 ;TFRAC(2586)=0.862
 TFRAC(2587)=0.862333 ;TFRAC(2588)=0.862667
 TFRAC(2589)=0.863 ;TFRAC(2590)=0.863333
 TFRAC(2591)=0.863667 ;TFRAC(2592)=0.864
 TFRAC(2593)=0.864333 ;TFRAC(2594)=0.864667
 TFRAC(2595)=0.865 ;TFRAC(2596)=0.865333
 TFRAC(2597)=0.865667 ;TFRAC(2598)=0.866
 TFRAC(2599)=0.866333 ;TFRAC(2600)=0.866667
 TFRAC(2601)=0.867 ;TFRAC(2602)=0.867333
 TFRAC(2603)=0.867667 ;TFRAC(2604)=0.868
 TFRAC(2605)=0.868333 ;TFRAC(2606)=0.868667
 TFRAC(2607)=0.869 ;TFRAC(2608)=0.869333
 TFRAC(2609)=0.869667 ;TFRAC(2610)=0.87
 TFRAC(2611)=0.870333 ;TFRAC(2612)=0.870667
 TFRAC(2613)=0.871 ;TFRAC(2614)=0.871333
 TFRAC(2615)=0.871667 ;TFRAC(2616)=0.872
 TFRAC(2617)=0.872333 ;TFRAC(2618)=0.872667
 TFRAC(2619)=0.873 ;TFRAC(2620)=0.873333
 TFRAC(2621)=0.873667 ;TFRAC(2622)=0.874
 TFRAC(2623)=0.874333 ;TFRAC(2624)=0.874667
 TFRAC(2625)=0.875 ;TFRAC(2626)=0.875333
 TFRAC(2627)=0.875667 ;TFRAC(2628)=0.876
 TFRAC(2629)=0.876333 ;TFRAC(2630)=0.876667
 TFRAC(2631)=0.877 ;TFRAC(2632)=0.877333
 TFRAC(2633)=0.877667 ;TFRAC(2634)=0.878
 TFRAC(2635)=0.878333 ;TFRAC(2636)=0.878667
 TFRAC(2637)=0.879 ;TFRAC(2638)=0.879333
 TFRAC(2639)=0.879667 ;TFRAC(2640)=0.88
 TFRAC(2641)=0.880333 ;TFRAC(2642)=0.880667
 TFRAC(2643)=0.881 ;TFRAC(2644)=0.881333
 TFRAC(2645)=0.881667 ;TFRAC(2646)=0.882
 TFRAC(2647)=0.882333 ;TFRAC(2648)=0.882667
 TFRAC(2649)=0.883 ;TFRAC(2650)=0.883333
 TFRAC(2651)=0.883667 ;TFRAC(2652)=0.884
 TFRAC(2653)=0.884333 ;TFRAC(2654)=0.884667
 TFRAC(2655)=0.885 ;TFRAC(2656)=0.885333
 TFRAC(2657)=0.885667 ;TFRAC(2658)=0.886
 TFRAC(2659)=0.886333 ;TFRAC(2660)=0.886667
 TFRAC(2661)=0.887 ;TFRAC(2662)=0.887333
 TFRAC(2663)=0.887667 ;TFRAC(2664)=0.888
 TFRAC(2665)=0.888333 ;TFRAC(2666)=0.888667
 TFRAC(2667)=0.889 ;TFRAC(2668)=0.889333
 TFRAC(2669)=0.889667 ;TFRAC(2670)=0.89
 TFRAC(2671)=0.890333 ;TFRAC(2672)=0.890667
 TFRAC(2673)=0.891 ;TFRAC(2674)=0.891333
 TFRAC(2675)=0.891667 ;TFRAC(2676)=0.892
 TFRAC(2677)=0.892333 ;TFRAC(2678)=0.892667
 TFRAC(2679)=0.893 ;TFRAC(2680)=0.893333
 TFRAC(2681)=0.893667 ;TFRAC(2682)=0.894
 TFRAC(2683)=0.894333 ;TFRAC(2684)=0.894667
 TFRAC(2685)=0.895 ;TFRAC(2686)=0.895333
 TFRAC(2687)=0.895667 ;TFRAC(2688)=0.896
 TFRAC(2689)=0.896333 ;TFRAC(2690)=0.896667
 TFRAC(2691)=0.897 ;TFRAC(2692)=0.897333
 TFRAC(2693)=0.897667 ;TFRAC(2694)=0.898
 TFRAC(2695)=0.898333 ;TFRAC(2696)=0.898667
 TFRAC(2697)=0.899 ;TFRAC(2698)=0.899333
 TFRAC(2699)=0.899667 ;TFRAC(2700)=0.9
 TFRAC(2701)=0.900333 ;TFRAC(2702)=0.900667
 TFRAC(2703)=0.901 ;TFRAC(2704)=0.901333
 TFRAC(2705)=0.901667 ;TFRAC(2706)=0.902
 TFRAC(2707)=0.902333 ;TFRAC(2708)=0.902667
 TFRAC(2709)=0.903 ;TFRAC(2710)=0.903333
 TFRAC(2711)=0.903667 ;TFRAC(2712)=0.904
 TFRAC(2713)=0.904333 ;TFRAC(2714)=0.904667
 TFRAC(2715)=0.905 ;TFRAC(2716)=0.905333
 TFRAC(2717)=0.905667 ;TFRAC(2718)=0.906
 TFRAC(2719)=0.906333 ;TFRAC(2720)=0.906667
 TFRAC(2721)=0.907 ;TFRAC(2722)=0.907333
 TFRAC(2723)=0.907667 ;TFRAC(2724)=0.908
 TFRAC(2725)=0.908333 ;TFRAC(2726)=0.908667
 TFRAC(2727)=0.909 ;TFRAC(2728)=0.909333
 TFRAC(2729)=0.909667 ;TFRAC(2730)=0.91
 TFRAC(2731)=0.910333 ;TFRAC(2732)=0.910667
 TFRAC(2733)=0.911 ;TFRAC(2734)=0.911333
 TFRAC(2735)=0.911667 ;TFRAC(2736)=0.912
 TFRAC(2737)=0.912333 ;TFRAC(2738)=0.912667
 TFRAC(2739)=0.913 ;TFRAC(2740)=0.913333
 TFRAC(2741)=0.913667 ;TFRAC(2742)=0.914
 TFRAC(2743)=0.914333 ;TFRAC(2744)=0.914667
 TFRAC(2745)=0.915 ;TFRAC(2746)=0.915333
 TFRAC(2747)=0.915667 ;TFRAC(2748)=0.916
 TFRAC(2749)=0.916333 ;TFRAC(2750)=0.916667
 TFRAC(2751)=0.917 ;TFRAC(2752)=0.917333
 TFRAC(2753)=0.917667 ;TFRAC(2754)=0.918
 TFRAC(2755)=0.918333 ;TFRAC(2756)=0.918667
 TFRAC(2757)=0.919 ;TFRAC(2758)=0.919333
 TFRAC(2759)=0.919667 ;TFRAC(2760)=0.92
 TFRAC(2761)=0.920333 ;TFRAC(2762)=0.920667
 TFRAC(2763)=0.921 ;TFRAC(2764)=0.921333
 TFRAC(2765)=0.921667 ;TFRAC(2766)=0.922
 TFRAC(2767)=0.922333 ;TFRAC(2768)=0.922667
 TFRAC(2769)=0.923 ;TFRAC(2770)=0.923333
 TFRAC(2771)=0.923667 ;TFRAC(2772)=0.924
 TFRAC(2773)=0.924333 ;TFRAC(2774)=0.924667
 TFRAC(2775)=0.925 ;TFRAC(2776)=0.925333
 TFRAC(2777)=0.925667 ;TFRAC(2778)=0.926
 TFRAC(2779)=0.926333 ;TFRAC(2780)=0.926667
 TFRAC(2781)=0.927 ;TFRAC(2782)=0.927333
 TFRAC(2783)=0.927667 ;TFRAC(2784)=0.928
 TFRAC(2785)=0.928333 ;TFRAC(2786)=0.928667
 TFRAC(2787)=0.929 ;TFRAC(2788)=0.929333
 TFRAC(2789)=0.929667 ;TFRAC(2790)=0.93
 TFRAC(2791)=0.930333 ;TFRAC(2792)=0.930667
 TFRAC(2793)=0.931 ;TFRAC(2794)=0.931333
 TFRAC(2795)=0.931667 ;TFRAC(2796)=0.932
 TFRAC(2797)=0.932333 ;TFRAC(2798)=0.932667
 TFRAC(2799)=0.933 ;TFRAC(2800)=0.933333
 TFRAC(2801)=0.933667 ;TFRAC(2802)=0.934
 TFRAC(2803)=0.934333 ;TFRAC(2804)=0.934667
 TFRAC(2805)=0.935 ;TFRAC(2806)=0.935333
 TFRAC(2807)=0.935667 ;TFRAC(2808)=0.936
 TFRAC(2809)=0.936333 ;TFRAC(2810)=0.936667
 TFRAC(2811)=0.937 ;TFRAC(2812)=0.937333
 TFRAC(2813)=0.937667 ;TFRAC(2814)=0.938
 TFRAC(2815)=0.938333 ;TFRAC(2816)=0.938667
 TFRAC(2817)=0.939 ;TFRAC(2818)=0.939333
 TFRAC(2819)=0.939667 ;TFRAC(2820)=0.94
 TFRAC(2821)=0.940333 ;TFRAC(2822)=0.940667
 TFRAC(2823)=0.941 ;TFRAC(2824)=0.941333
 TFRAC(2825)=0.941667 ;TFRAC(2826)=0.942
 TFRAC(2827)=0.942333 ;TFRAC(2828)=0.942667
 TFRAC(2829)=0.943 ;TFRAC(2830)=0.943333
 TFRAC(2831)=0.943667 ;TFRAC(2832)=0.944
 TFRAC(2833)=0.944333 ;TFRAC(2834)=0.944667
 TFRAC(2835)=0.945 ;TFRAC(2836)=0.945333
 TFRAC(2837)=0.945667 ;TFRAC(2838)=0.946
 TFRAC(2839)=0.946333 ;TFRAC(2840)=0.946667
 TFRAC(2841)=0.947 ;TFRAC(2842)=0.947333
 TFRAC(2843)=0.947667 ;TFRAC(2844)=0.948
 TFRAC(2845)=0.948333 ;TFRAC(2846)=0.948667
 TFRAC(2847)=0.949 ;TFRAC(2848)=0.949333
 TFRAC(2849)=0.949667 ;TFRAC(2850)=0.95
 TFRAC(2851)=0.950333 ;TFRAC(2852)=0.950667
 TFRAC(2853)=0.951 ;TFRAC(2854)=0.951333
 TFRAC(2855)=0.951667 ;TFRAC(2856)=0.952
 TFRAC(2857)=0.952333 ;TFRAC(2858)=0.952667
 TFRAC(2859)=0.953 ;TFRAC(2860)=0.953333
 TFRAC(2861)=0.953667 ;TFRAC(2862)=0.954
 TFRAC(2863)=0.954333 ;TFRAC(2864)=0.954667
 TFRAC(2865)=0.955 ;TFRAC(2866)=0.955333
 TFRAC(2867)=0.955667 ;TFRAC(2868)=0.956
 TFRAC(2869)=0.956333 ;TFRAC(2870)=0.956667
 TFRAC(2871)=0.957 ;TFRAC(2872)=0.957333
 TFRAC(2873)=0.957667 ;TFRAC(2874)=0.958
 TFRAC(2875)=0.958333 ;TFRAC(2876)=0.958667
 TFRAC(2877)=0.959 ;TFRAC(2878)=0.959333
 TFRAC(2879)=0.959667 ;TFRAC(2880)=0.96
 TFRAC(2881)=0.960333 ;TFRAC(2882)=0.960667
 TFRAC(2883)=0.961 ;TFRAC(2884)=0.961333
 TFRAC(2885)=0.961667 ;TFRAC(2886)=0.962
 TFRAC(2887)=0.962333 ;TFRAC(2888)=0.962667
 TFRAC(2889)=0.963 ;TFRAC(2890)=0.963333
 TFRAC(2891)=0.963667 ;TFRAC(2892)=0.964
 TFRAC(2893)=0.964333 ;TFRAC(2894)=0.964667
 TFRAC(2895)=0.965 ;TFRAC(2896)=0.965333
 TFRAC(2897)=0.965667 ;TFRAC(2898)=0.966
 TFRAC(2899)=0.966333 ;TFRAC(2900)=0.966667
 TFRAC(2901)=0.967 ;TFRAC(2902)=0.967333
 TFRAC(2903)=0.967667 ;TFRAC(2904)=0.968
 TFRAC(2905)=0.968333 ;TFRAC(2906)=0.968667
 TFRAC(2907)=0.969 ;TFRAC(2908)=0.969333
 TFRAC(2909)=0.969667 ;TFRAC(2910)=0.97
 TFRAC(2911)=0.970333 ;TFRAC(2912)=0.970667
 TFRAC(2913)=0.971 ;TFRAC(2914)=0.971333
 TFRAC(2915)=0.971667 ;TFRAC(2916)=0.972
 TFRAC(2917)=0.972333 ;TFRAC(2918)=0.972667
 TFRAC(2919)=0.973 ;TFRAC(2920)=0.973333
 TFRAC(2921)=0.973667 ;TFRAC(2922)=0.974
 TFRAC(2923)=0.974333 ;TFRAC(2924)=0.974667
 TFRAC(2925)=0.975 ;TFRAC(2926)=0.975333
 TFRAC(2927)=0.975667 ;TFRAC(2928)=0.976
 TFRAC(2929)=0.976333 ;TFRAC(2930)=0.976667
 TFRAC(2931)=0.977 ;TFRAC(2932)=0.977333
 TFRAC(2933)=0.977667 ;TFRAC(2934)=0.978
 TFRAC(2935)=0.978333 ;TFRAC(2936)=0.978667
 TFRAC(2937)=0.979 ;TFRAC(2938)=0.979333
 TFRAC(2939)=0.979667 ;TFRAC(2940)=0.98
 TFRAC(2941)=0.980333 ;TFRAC(2942)=0.980667
 TFRAC(2943)=0.981 ;TFRAC(2944)=0.981333
 TFRAC(2945)=0.981667 ;TFRAC(2946)=0.982
 TFRAC(2947)=0.982333 ;TFRAC(2948)=0.982667
 TFRAC(2949)=0.983 ;TFRAC(2950)=0.983333
 TFRAC(2951)=0.983667 ;TFRAC(2952)=0.984
 TFRAC(2953)=0.984333 ;TFRAC(2954)=0.984667
 TFRAC(2955)=0.985 ;TFRAC(2956)=0.985333
 TFRAC(2957)=0.985667 ;TFRAC(2958)=0.986
 TFRAC(2959)=0.986333 ;TFRAC(2960)=0.986667
 TFRAC(2961)=0.987 ;TFRAC(2962)=0.987333
 TFRAC(2963)=0.987667 ;TFRAC(2964)=0.988
 TFRAC(2965)=0.988333 ;TFRAC(2966)=0.988667
 TFRAC(2967)=0.989 ;TFRAC(2968)=0.989333
 TFRAC(2969)=0.989667 ;TFRAC(2970)=0.99
 TFRAC(2971)=0.990333 ;TFRAC(2972)=0.990667
 TFRAC(2973)=0.991 ;TFRAC(2974)=0.991333
 TFRAC(2975)=0.991667 ;TFRAC(2976)=0.992
 TFRAC(2977)=0.992333 ;TFRAC(2978)=0.992667
 TFRAC(2979)=0.993 ;TFRAC(2980)=0.993333
 TFRAC(2981)=0.993667 ;TFRAC(2982)=0.994
 TFRAC(2983)=0.994333 ;TFRAC(2984)=0.994667
 TFRAC(2985)=0.995 ;TFRAC(2986)=0.995333
 TFRAC(2987)=0.995667 ;TFRAC(2988)=0.996
 TFRAC(2989)=0.996333 ;TFRAC(2990)=0.996667
 TFRAC(2991)=0.997 ;TFRAC(2992)=0.997333
 TFRAC(2993)=0.997667 ;TFRAC(2994)=0.998
 TFRAC(2995)=0.998333 ;TFRAC(2996)=0.998667
 TFRAC(2997)=0.999 ;TFRAC(2998)=0.999333
 TFRAC(2999)=0.999667 ;TFRAC(3000)=1.
 ************************************************************
  Group 3. X-Direction Grid Spacing
 CARTES = T
 NX = 320
 XULAST =1.
 XFRAC(1)=3.125E-03 ;XFRAC(2)=6.25E-03
 XFRAC(3)=9.375E-03 ;XFRAC(4)=0.0125
 XFRAC(5)=0.015625 ;XFRAC(6)=0.01875
 XFRAC(7)=0.021875 ;XFRAC(8)=0.025
 XFRAC(9)=0.028125 ;XFRAC(10)=0.03125
 XFRAC(11)=0.034375 ;XFRAC(12)=0.0375
 XFRAC(13)=0.040625 ;XFRAC(14)=0.04375
 XFRAC(15)=0.046875 ;XFRAC(16)=0.05
 XFRAC(17)=0.053125 ;XFRAC(18)=0.05625
 XFRAC(19)=0.059375 ;XFRAC(20)=0.0625
 XFRAC(21)=0.065625 ;XFRAC(22)=0.06875
 XFRAC(23)=0.071875 ;XFRAC(24)=0.075
 XFRAC(25)=0.078125 ;XFRAC(26)=0.08125
 XFRAC(27)=0.084375 ;XFRAC(28)=0.0875
 XFRAC(29)=0.090625 ;XFRAC(30)=0.09375
 XFRAC(31)=0.096875 ;XFRAC(32)=0.1
 XFRAC(33)=0.103125 ;XFRAC(34)=0.10625
 XFRAC(35)=0.109375 ;XFRAC(36)=0.1125
 XFRAC(37)=0.115625 ;XFRAC(38)=0.11875
 XFRAC(39)=0.121875 ;XFRAC(40)=0.125
 XFRAC(41)=0.128125 ;XFRAC(42)=0.13125
 XFRAC(43)=0.134375 ;XFRAC(44)=0.1375
 XFRAC(45)=0.140625 ;XFRAC(46)=0.14375
 XFRAC(47)=0.146875 ;XFRAC(48)=0.15
 XFRAC(49)=0.153125 ;XFRAC(50)=0.15625
 XFRAC(51)=0.159375 ;XFRAC(52)=0.1625
 XFRAC(53)=0.165625 ;XFRAC(54)=0.16875
 XFRAC(55)=0.171875 ;XFRAC(56)=0.175
 XFRAC(57)=0.178125 ;XFRAC(58)=0.18125
 XFRAC(59)=0.184375 ;XFRAC(60)=0.1875
 XFRAC(61)=0.190625 ;XFRAC(62)=0.19375
 XFRAC(63)=0.196875 ;XFRAC(64)=0.2
 XFRAC(65)=0.203125 ;XFRAC(66)=0.20625
 XFRAC(67)=0.209375 ;XFRAC(68)=0.2125
 XFRAC(69)=0.215625 ;XFRAC(70)=0.21875
 XFRAC(71)=0.221875 ;XFRAC(72)=0.225
 XFRAC(73)=0.228125 ;XFRAC(74)=0.23125
 XFRAC(75)=0.234375 ;XFRAC(76)=0.2375
 XFRAC(77)=0.240625 ;XFRAC(78)=0.24375
 XFRAC(79)=0.246875 ;XFRAC(80)=0.25
 XFRAC(81)=0.253125 ;XFRAC(82)=0.25625
 XFRAC(83)=0.259375 ;XFRAC(84)=0.2625
 XFRAC(85)=0.265625 ;XFRAC(86)=0.26875
 XFRAC(87)=0.271875 ;XFRAC(88)=0.275
 XFRAC(89)=0.278125 ;XFRAC(90)=0.28125
 XFRAC(91)=0.284375 ;XFRAC(92)=0.2875
 XFRAC(93)=0.290625 ;XFRAC(94)=0.29375
 XFRAC(95)=0.296875 ;XFRAC(96)=0.3
 XFRAC(97)=0.303125 ;XFRAC(98)=0.30625
 XFRAC(99)=0.309375 ;XFRAC(100)=0.3125
 XFRAC(101)=0.315625 ;XFRAC(102)=0.31875
 XFRAC(103)=0.321875 ;XFRAC(104)=0.325
 XFRAC(105)=0.328125 ;XFRAC(106)=0.33125
 XFRAC(107)=0.334375 ;XFRAC(108)=0.3375
 XFRAC(109)=0.340625 ;XFRAC(110)=0.34375
 XFRAC(111)=0.346875 ;XFRAC(112)=0.35
 XFRAC(113)=0.353125 ;XFRAC(114)=0.35625
 XFRAC(115)=0.359375 ;XFRAC(116)=0.3625
 XFRAC(117)=0.365625 ;XFRAC(118)=0.36875
 XFRAC(119)=0.371875 ;XFRAC(120)=0.375
 XFRAC(121)=0.378125 ;XFRAC(122)=0.38125
 XFRAC(123)=0.384375 ;XFRAC(124)=0.3875
 XFRAC(125)=0.390625 ;XFRAC(126)=0.39375
 XFRAC(127)=0.396875 ;XFRAC(128)=0.4
 XFRAC(129)=0.403125 ;XFRAC(130)=0.40625
 XFRAC(131)=0.409375 ;XFRAC(132)=0.4125
 XFRAC(133)=0.415625 ;XFRAC(134)=0.41875
 XFRAC(135)=0.421875 ;XFRAC(136)=0.425
 XFRAC(137)=0.428125 ;XFRAC(138)=0.43125
 XFRAC(139)=0.434375 ;XFRAC(140)=0.4375
 XFRAC(141)=0.440625 ;XFRAC(142)=0.44375
 XFRAC(143)=0.446875 ;XFRAC(144)=0.45
 XFRAC(145)=0.453125 ;XFRAC(146)=0.45625
 XFRAC(147)=0.459375 ;XFRAC(148)=0.4625
 XFRAC(149)=0.465625 ;XFRAC(150)=0.46875
 XFRAC(151)=0.471875 ;XFRAC(152)=0.475
 XFRAC(153)=0.478125 ;XFRAC(154)=0.48125
 XFRAC(155)=0.484375 ;XFRAC(156)=0.4875
 XFRAC(157)=0.490625 ;XFRAC(158)=0.49375
 XFRAC(159)=0.496875 ;XFRAC(160)=0.5
 XFRAC(161)=0.503125 ;XFRAC(162)=0.50625
 XFRAC(163)=0.509375 ;XFRAC(164)=0.5125
 XFRAC(165)=0.515625 ;XFRAC(166)=0.51875
 XFRAC(167)=0.521875 ;XFRAC(168)=0.525
 XFRAC(169)=0.528125 ;XFRAC(170)=0.53125
 XFRAC(171)=0.534375 ;XFRAC(172)=0.5375
 XFRAC(173)=0.540625 ;XFRAC(174)=0.54375
 XFRAC(175)=0.546875 ;XFRAC(176)=0.55
 XFRAC(177)=0.553125 ;XFRAC(178)=0.55625
 XFRAC(179)=0.559375 ;XFRAC(180)=0.5625
 XFRAC(181)=0.565625 ;XFRAC(182)=0.56875
 XFRAC(183)=0.571875 ;XFRAC(184)=0.575
 XFRAC(185)=0.578125 ;XFRAC(186)=0.58125
 XFRAC(187)=0.584375 ;XFRAC(188)=0.5875
 XFRAC(189)=0.590625 ;XFRAC(190)=0.59375
 XFRAC(191)=0.596875 ;XFRAC(192)=0.6
 XFRAC(193)=0.603125 ;XFRAC(194)=0.60625
 XFRAC(195)=0.609375 ;XFRAC(196)=0.6125
 XFRAC(197)=0.615625 ;XFRAC(198)=0.61875
 XFRAC(199)=0.621875 ;XFRAC(200)=0.625
 XFRAC(201)=0.628125 ;XFRAC(202)=0.63125
 XFRAC(203)=0.634375 ;XFRAC(204)=0.6375
 XFRAC(205)=0.640625 ;XFRAC(206)=0.64375
 XFRAC(207)=0.646875 ;XFRAC(208)=0.65
 XFRAC(209)=0.653125 ;XFRAC(210)=0.65625
 XFRAC(211)=0.659375 ;XFRAC(212)=0.6625
 XFRAC(213)=0.665625 ;XFRAC(214)=0.66875
 XFRAC(215)=0.671875 ;XFRAC(216)=0.675
 XFRAC(217)=0.678125 ;XFRAC(218)=0.68125
 XFRAC(219)=0.684375 ;XFRAC(220)=0.6875
 XFRAC(221)=0.690625 ;XFRAC(222)=0.69375
 XFRAC(223)=0.696875 ;XFRAC(224)=0.7
 XFRAC(225)=0.703125 ;XFRAC(226)=0.70625
 XFRAC(227)=0.709375 ;XFRAC(228)=0.7125
 XFRAC(229)=0.715625 ;XFRAC(230)=0.71875
 XFRAC(231)=0.721875 ;XFRAC(232)=0.725
 XFRAC(233)=0.728125 ;XFRAC(234)=0.73125
 XFRAC(235)=0.734375 ;XFRAC(236)=0.7375
 XFRAC(237)=0.740625 ;XFRAC(238)=0.74375
 XFRAC(239)=0.746875 ;XFRAC(240)=0.75
 XFRAC(241)=0.753125 ;XFRAC(242)=0.75625
 XFRAC(243)=0.759375 ;XFRAC(244)=0.7625
 XFRAC(245)=0.765625 ;XFRAC(246)=0.76875
 XFRAC(247)=0.771875 ;XFRAC(248)=0.775
 XFRAC(249)=0.778125 ;XFRAC(250)=0.78125
 XFRAC(251)=0.784375 ;XFRAC(252)=0.7875
 XFRAC(253)=0.790625 ;XFRAC(254)=0.79375
 XFRAC(255)=0.796875 ;XFRAC(256)=0.8
 XFRAC(257)=0.803125 ;XFRAC(258)=0.80625
 XFRAC(259)=0.809375 ;XFRAC(260)=0.8125
 XFRAC(261)=0.815625 ;XFRAC(262)=0.81875
 XFRAC(263)=0.821875 ;XFRAC(264)=0.825
 XFRAC(265)=0.828125 ;XFRAC(266)=0.83125
 XFRAC(267)=0.834375 ;XFRAC(268)=0.8375
 XFRAC(269)=0.840625 ;XFRAC(270)=0.84375
 XFRAC(271)=0.846875 ;XFRAC(272)=0.85
 XFRAC(273)=0.853125 ;XFRAC(274)=0.85625
 XFRAC(275)=0.859375 ;XFRAC(276)=0.8625
 XFRAC(277)=0.865625 ;XFRAC(278)=0.86875
 XFRAC(279)=0.871875 ;XFRAC(280)=0.875
 XFRAC(281)=0.878125 ;XFRAC(282)=0.88125
 XFRAC(283)=0.884375 ;XFRAC(284)=0.8875
 XFRAC(285)=0.890625 ;XFRAC(286)=0.89375
 XFRAC(287)=0.896875 ;XFRAC(288)=0.9
 XFRAC(289)=0.903125 ;XFRAC(290)=0.90625
 XFRAC(291)=0.909375 ;XFRAC(292)=0.9125
 XFRAC(293)=0.915625 ;XFRAC(294)=0.91875
 XFRAC(295)=0.921875 ;XFRAC(296)=0.925
 XFRAC(297)=0.928125 ;XFRAC(298)=0.93125
 XFRAC(299)=0.934375 ;XFRAC(300)=0.9375
 XFRAC(301)=0.940625 ;XFRAC(302)=0.94375
 XFRAC(303)=0.946875 ;XFRAC(304)=0.95
 XFRAC(305)=0.953125 ;XFRAC(306)=0.95625
 XFRAC(307)=0.959375 ;XFRAC(308)=0.9625
 XFRAC(309)=0.965625 ;XFRAC(310)=0.96875
 XFRAC(311)=0.971875 ;XFRAC(312)=0.975
 XFRAC(313)=0.978125 ;XFRAC(314)=0.98125
 XFRAC(315)=0.984375 ;XFRAC(316)=0.9875
 XFRAC(317)=0.990625 ;XFRAC(318)=0.99375
 XFRAC(319)=0.996875 ;XFRAC(320)=1.
 ************************************************************
  Group 4. Y-Direction Grid Spacing
 NY = 640
 YVLAST =2.
 YFRAC(1)=1.5625E-03 ;YFRAC(2)=3.125E-03
 YFRAC(3)=4.6875E-03 ;YFRAC(4)=6.25E-03
 YFRAC(5)=7.8125E-03 ;YFRAC(6)=9.375E-03
 YFRAC(7)=0.010937 ;YFRAC(8)=0.0125
 YFRAC(9)=0.014062 ;YFRAC(10)=0.015625
 YFRAC(11)=0.017188 ;YFRAC(12)=0.01875
 YFRAC(13)=0.020312 ;YFRAC(14)=0.021875
 YFRAC(15)=0.023438 ;YFRAC(16)=0.025
 YFRAC(17)=0.026563 ;YFRAC(18)=0.028125
 YFRAC(19)=0.029687 ;YFRAC(20)=0.03125
 YFRAC(21)=0.032812 ;YFRAC(22)=0.034375
 YFRAC(23)=0.035937 ;YFRAC(24)=0.0375
 YFRAC(25)=0.039062 ;YFRAC(26)=0.040625
 YFRAC(27)=0.042188 ;YFRAC(28)=0.04375
 YFRAC(29)=0.045313 ;YFRAC(30)=0.046875
 YFRAC(31)=0.048437 ;YFRAC(32)=0.05
 YFRAC(33)=0.051562 ;YFRAC(34)=0.053125
 YFRAC(35)=0.054688 ;YFRAC(36)=0.05625
 YFRAC(37)=0.057813 ;YFRAC(38)=0.059375
 YFRAC(39)=0.060938 ;YFRAC(40)=0.0625
 YFRAC(41)=0.064062 ;YFRAC(42)=0.065625
 YFRAC(43)=0.067188 ;YFRAC(44)=0.06875
 YFRAC(45)=0.070312 ;YFRAC(46)=0.071875
 YFRAC(47)=0.073437 ;YFRAC(48)=0.075
 YFRAC(49)=0.076563 ;YFRAC(50)=0.078125
 YFRAC(51)=0.079687 ;YFRAC(52)=0.08125
 YFRAC(53)=0.082813 ;YFRAC(54)=0.084375
 YFRAC(55)=0.085938 ;YFRAC(56)=0.0875
 YFRAC(57)=0.089062 ;YFRAC(58)=0.090625
 YFRAC(59)=0.092188 ;YFRAC(60)=0.09375
 YFRAC(61)=0.095312 ;YFRAC(62)=0.096875
 YFRAC(63)=0.098438 ;YFRAC(64)=0.1
 YFRAC(65)=0.101562 ;YFRAC(66)=0.103125
 YFRAC(67)=0.104687 ;YFRAC(68)=0.10625
 YFRAC(69)=0.107813 ;YFRAC(70)=0.109375
 YFRAC(71)=0.110937 ;YFRAC(72)=0.1125
 YFRAC(73)=0.114063 ;YFRAC(74)=0.115625
 YFRAC(75)=0.117188 ;YFRAC(76)=0.11875
 YFRAC(77)=0.120312 ;YFRAC(78)=0.121875
 YFRAC(79)=0.123438 ;YFRAC(80)=0.125
 YFRAC(81)=0.126563 ;YFRAC(82)=0.128125
 YFRAC(83)=0.129688 ;YFRAC(84)=0.13125
 YFRAC(85)=0.132812 ;YFRAC(86)=0.134375
 YFRAC(87)=0.135937 ;YFRAC(88)=0.1375
 YFRAC(89)=0.139062 ;YFRAC(90)=0.140625
 YFRAC(91)=0.142188 ;YFRAC(92)=0.14375
 YFRAC(93)=0.145313 ;YFRAC(94)=0.146875
 YFRAC(95)=0.148438 ;YFRAC(96)=0.15
 YFRAC(97)=0.151562 ;YFRAC(98)=0.153125
 YFRAC(99)=0.154687 ;YFRAC(100)=0.15625
 YFRAC(101)=0.157813 ;YFRAC(102)=0.159375
 YFRAC(103)=0.160938 ;YFRAC(104)=0.1625
 YFRAC(105)=0.164062 ;YFRAC(106)=0.165625
 YFRAC(107)=0.167187 ;YFRAC(108)=0.16875
 YFRAC(109)=0.170312 ;YFRAC(110)=0.171875
 YFRAC(111)=0.173438 ;YFRAC(112)=0.175
 YFRAC(113)=0.176563 ;YFRAC(114)=0.178125
 YFRAC(115)=0.179688 ;YFRAC(116)=0.18125
 YFRAC(117)=0.182812 ;YFRAC(118)=0.184375
 YFRAC(119)=0.185937 ;YFRAC(120)=0.1875
 YFRAC(121)=0.189063 ;YFRAC(122)=0.190625
 YFRAC(123)=0.192188 ;YFRAC(124)=0.19375
 YFRAC(125)=0.195312 ;YFRAC(126)=0.196875
 YFRAC(127)=0.198437 ;YFRAC(128)=0.2
 YFRAC(129)=0.201562 ;YFRAC(130)=0.203125
 YFRAC(131)=0.204688 ;YFRAC(132)=0.20625
 YFRAC(133)=0.207813 ;YFRAC(134)=0.209375
 YFRAC(135)=0.210938 ;YFRAC(136)=0.2125
 YFRAC(137)=0.214062 ;YFRAC(138)=0.215625
 YFRAC(139)=0.217187 ;YFRAC(140)=0.21875
 YFRAC(141)=0.220313 ;YFRAC(142)=0.221875
 YFRAC(143)=0.223438 ;YFRAC(144)=0.225
 YFRAC(145)=0.226562 ;YFRAC(146)=0.228125
 YFRAC(147)=0.229687 ;YFRAC(148)=0.23125
 YFRAC(149)=0.232812 ;YFRAC(150)=0.234375
 YFRAC(151)=0.235938 ;YFRAC(152)=0.2375
 YFRAC(153)=0.239063 ;YFRAC(154)=0.240625
 YFRAC(155)=0.242188 ;YFRAC(156)=0.24375
 YFRAC(157)=0.245312 ;YFRAC(158)=0.246875
 YFRAC(159)=0.248437 ;YFRAC(160)=0.25
 YFRAC(161)=0.251563 ;YFRAC(162)=0.253125
 YFRAC(163)=0.254687 ;YFRAC(164)=0.25625
 YFRAC(165)=0.257812 ;YFRAC(166)=0.259375
 YFRAC(167)=0.260938 ;YFRAC(168)=0.2625
 YFRAC(169)=0.264062 ;YFRAC(170)=0.265625
 YFRAC(171)=0.267188 ;YFRAC(172)=0.26875
 YFRAC(173)=0.270312 ;YFRAC(174)=0.271875
 YFRAC(175)=0.273438 ;YFRAC(176)=0.275
 YFRAC(177)=0.276563 ;YFRAC(178)=0.278125
 YFRAC(179)=0.279687 ;YFRAC(180)=0.28125
 YFRAC(181)=0.282813 ;YFRAC(182)=0.284375
 YFRAC(183)=0.285937 ;YFRAC(184)=0.2875
 YFRAC(185)=0.289062 ;YFRAC(186)=0.290625
 YFRAC(187)=0.292188 ;YFRAC(188)=0.29375
 YFRAC(189)=0.295312 ;YFRAC(190)=0.296875
 YFRAC(191)=0.298438 ;YFRAC(192)=0.3
 YFRAC(193)=0.301562 ;YFRAC(194)=0.303125
 YFRAC(195)=0.304688 ;YFRAC(196)=0.30625
 YFRAC(197)=0.307813 ;YFRAC(198)=0.309375
 YFRAC(199)=0.310937 ;YFRAC(200)=0.3125
 YFRAC(201)=0.314063 ;YFRAC(202)=0.315625
 YFRAC(203)=0.317187 ;YFRAC(204)=0.31875
 YFRAC(205)=0.320312 ;YFRAC(206)=0.321875
 YFRAC(207)=0.323438 ;YFRAC(208)=0.325
 YFRAC(209)=0.326562 ;YFRAC(210)=0.328125
 YFRAC(211)=0.329688 ;YFRAC(212)=0.33125
 YFRAC(213)=0.332812 ;YFRAC(214)=0.334375
 YFRAC(215)=0.335938 ;YFRAC(216)=0.3375
 YFRAC(217)=0.339063 ;YFRAC(218)=0.340625
 YFRAC(219)=0.342187 ;YFRAC(220)=0.34375
 YFRAC(221)=0.345313 ;YFRAC(222)=0.346875
 YFRAC(223)=0.348437 ;YFRAC(224)=0.35
 YFRAC(225)=0.351562 ;YFRAC(226)=0.353125
 YFRAC(227)=0.354688 ;YFRAC(228)=0.35625
 YFRAC(229)=0.357812 ;YFRAC(230)=0.359375
 YFRAC(231)=0.360938 ;YFRAC(232)=0.3625
 YFRAC(233)=0.364062 ;YFRAC(234)=0.365625
 YFRAC(235)=0.367188 ;YFRAC(236)=0.36875
 YFRAC(237)=0.370313 ;YFRAC(238)=0.371875
 YFRAC(239)=0.373437 ;YFRAC(240)=0.375
 YFRAC(241)=0.376563 ;YFRAC(242)=0.378125
 YFRAC(243)=0.379687 ;YFRAC(244)=0.38125
 YFRAC(245)=0.382812 ;YFRAC(246)=0.384375
 YFRAC(247)=0.385938 ;YFRAC(248)=0.3875
 YFRAC(249)=0.389062 ;YFRAC(250)=0.390625
 YFRAC(251)=0.392188 ;YFRAC(252)=0.39375
 YFRAC(253)=0.395312 ;YFRAC(254)=0.396875
 YFRAC(255)=0.398438 ;YFRAC(256)=0.4
 YFRAC(257)=0.401563 ;YFRAC(258)=0.403125
 YFRAC(259)=0.404687 ;YFRAC(260)=0.40625
 YFRAC(261)=0.407813 ;YFRAC(262)=0.409375
 YFRAC(263)=0.410937 ;YFRAC(264)=0.4125
 YFRAC(265)=0.414062 ;YFRAC(266)=0.415625
 YFRAC(267)=0.417188 ;YFRAC(268)=0.41875
 YFRAC(269)=0.420312 ;YFRAC(270)=0.421875
 YFRAC(271)=0.423438 ;YFRAC(272)=0.425
 YFRAC(273)=0.426562 ;YFRAC(274)=0.428125
 YFRAC(275)=0.429688 ;YFRAC(276)=0.43125
 YFRAC(277)=0.432813 ;YFRAC(278)=0.434375
 YFRAC(279)=0.435937 ;YFRAC(280)=0.4375
 YFRAC(281)=0.439063 ;YFRAC(282)=0.440625
 YFRAC(283)=0.442187 ;YFRAC(284)=0.44375
 YFRAC(285)=0.445312 ;YFRAC(286)=0.446875
 YFRAC(287)=0.448438 ;YFRAC(288)=0.45
 YFRAC(289)=0.451562 ;YFRAC(290)=0.453125
 YFRAC(291)=0.454688 ;YFRAC(292)=0.45625
 YFRAC(293)=0.457812 ;YFRAC(294)=0.459375
 YFRAC(295)=0.460938 ;YFRAC(296)=0.4625
 YFRAC(297)=0.464063 ;YFRAC(298)=0.465625
 YFRAC(299)=0.467187 ;YFRAC(300)=0.46875
 YFRAC(301)=0.470313 ;YFRAC(302)=0.471875
 YFRAC(303)=0.473437 ;YFRAC(304)=0.475
 YFRAC(305)=0.476562 ;YFRAC(306)=0.478125
 YFRAC(307)=0.479688 ;YFRAC(308)=0.48125
 YFRAC(309)=0.482812 ;YFRAC(310)=0.484375
 YFRAC(311)=0.485938 ;YFRAC(312)=0.4875
 YFRAC(313)=0.489062 ;YFRAC(314)=0.490625
 YFRAC(315)=0.492188 ;YFRAC(316)=0.49375
 YFRAC(317)=0.495313 ;YFRAC(318)=0.496875
 YFRAC(319)=0.498437 ;YFRAC(320)=0.5
 YFRAC(321)=0.501562 ;YFRAC(322)=0.503125
 YFRAC(323)=0.504687 ;YFRAC(324)=0.50625
 YFRAC(325)=0.507812 ;YFRAC(326)=0.509375
 YFRAC(327)=0.510938 ;YFRAC(328)=0.5125
 YFRAC(329)=0.514063 ;YFRAC(330)=0.515625
 YFRAC(331)=0.517187 ;YFRAC(332)=0.51875
 YFRAC(333)=0.520312 ;YFRAC(334)=0.521875
 YFRAC(335)=0.523438 ;YFRAC(336)=0.525
 YFRAC(337)=0.526563 ;YFRAC(338)=0.528125
 YFRAC(339)=0.529688 ;YFRAC(340)=0.53125
 YFRAC(341)=0.532812 ;YFRAC(342)=0.534375
 YFRAC(343)=0.535937 ;YFRAC(344)=0.5375
 YFRAC(345)=0.539062 ;YFRAC(346)=0.540625
 YFRAC(347)=0.542188 ;YFRAC(348)=0.54375
 YFRAC(349)=0.545313 ;YFRAC(350)=0.546875
 YFRAC(351)=0.548437 ;YFRAC(352)=0.55
 YFRAC(353)=0.551562 ;YFRAC(354)=0.553125
 YFRAC(355)=0.554688 ;YFRAC(356)=0.55625
 YFRAC(357)=0.557813 ;YFRAC(358)=0.559375
 YFRAC(359)=0.560938 ;YFRAC(360)=0.5625
 YFRAC(361)=0.564062 ;YFRAC(362)=0.565625
 YFRAC(363)=0.567187 ;YFRAC(364)=0.56875
 YFRAC(365)=0.570312 ;YFRAC(366)=0.571875
 YFRAC(367)=0.573438 ;YFRAC(368)=0.575
 YFRAC(369)=0.576563 ;YFRAC(370)=0.578125
 YFRAC(371)=0.579687 ;YFRAC(372)=0.58125
 YFRAC(373)=0.582812 ;YFRAC(374)=0.584375
 YFRAC(375)=0.585938 ;YFRAC(376)=0.5875
 YFRAC(377)=0.589063 ;YFRAC(378)=0.590625
 YFRAC(379)=0.592188 ;YFRAC(380)=0.59375
 YFRAC(381)=0.595312 ;YFRAC(382)=0.596875
 YFRAC(383)=0.598437 ;YFRAC(384)=0.6
 YFRAC(385)=0.601562 ;YFRAC(386)=0.603125
 YFRAC(387)=0.604688 ;YFRAC(388)=0.60625
 YFRAC(389)=0.607813 ;YFRAC(390)=0.609375
 YFRAC(391)=0.610937 ;YFRAC(392)=0.6125
 YFRAC(393)=0.614062 ;YFRAC(394)=0.615625
 YFRAC(395)=0.617188 ;YFRAC(396)=0.61875
 YFRAC(397)=0.620313 ;YFRAC(398)=0.621875
 YFRAC(399)=0.623438 ;YFRAC(400)=0.625
 YFRAC(401)=0.626562 ;YFRAC(402)=0.628125
 YFRAC(403)=0.629687 ;YFRAC(404)=0.63125
 YFRAC(405)=0.632812 ;YFRAC(406)=0.634375
 YFRAC(407)=0.635937 ;YFRAC(408)=0.6375
 YFRAC(409)=0.639063 ;YFRAC(410)=0.640625
 YFRAC(411)=0.642187 ;YFRAC(412)=0.64375
 YFRAC(413)=0.645312 ;YFRAC(414)=0.646875
 YFRAC(415)=0.648438 ;YFRAC(416)=0.65
 YFRAC(417)=0.651563 ;YFRAC(418)=0.653125
 YFRAC(419)=0.654688 ;YFRAC(420)=0.65625
 YFRAC(421)=0.657812 ;YFRAC(422)=0.659375
 YFRAC(423)=0.660938 ;YFRAC(424)=0.6625
 YFRAC(425)=0.664062 ;YFRAC(426)=0.665625
 YFRAC(427)=0.667188 ;YFRAC(428)=0.66875
 YFRAC(429)=0.670313 ;YFRAC(430)=0.671875
 YFRAC(431)=0.673437 ;YFRAC(432)=0.675
 YFRAC(433)=0.676562 ;YFRAC(434)=0.678125
 YFRAC(435)=0.679688 ;YFRAC(436)=0.68125
 YFRAC(437)=0.682813 ;YFRAC(438)=0.684375
 YFRAC(439)=0.685938 ;YFRAC(440)=0.6875
 YFRAC(441)=0.689062 ;YFRAC(442)=0.690625
 YFRAC(443)=0.692187 ;YFRAC(444)=0.69375
 YFRAC(445)=0.695312 ;YFRAC(446)=0.696875
 YFRAC(447)=0.698437 ;YFRAC(448)=0.7
 YFRAC(449)=0.701563 ;YFRAC(450)=0.703125
 YFRAC(451)=0.704687 ;YFRAC(452)=0.70625
 YFRAC(453)=0.707813 ;YFRAC(454)=0.709375
 YFRAC(455)=0.710938 ;YFRAC(456)=0.7125
 YFRAC(457)=0.714063 ;YFRAC(458)=0.715625
 YFRAC(459)=0.717188 ;YFRAC(460)=0.71875
 YFRAC(461)=0.720312 ;YFRAC(462)=0.721875
 YFRAC(463)=0.723437 ;YFRAC(464)=0.725
 YFRAC(465)=0.726562 ;YFRAC(466)=0.728125
 YFRAC(467)=0.729688 ;YFRAC(468)=0.73125
 YFRAC(469)=0.732813 ;YFRAC(470)=0.734375
 YFRAC(471)=0.735937 ;YFRAC(472)=0.7375
 YFRAC(473)=0.739062 ;YFRAC(474)=0.740625
 YFRAC(475)=0.742188 ;YFRAC(476)=0.74375
 YFRAC(477)=0.745312 ;YFRAC(478)=0.746875
 YFRAC(479)=0.748438 ;YFRAC(480)=0.75
 YFRAC(481)=0.751562 ;YFRAC(482)=0.753125
 YFRAC(483)=0.754688 ;YFRAC(484)=0.75625
 YFRAC(485)=0.757812 ;YFRAC(486)=0.759375
 YFRAC(487)=0.760938 ;YFRAC(488)=0.7625
 YFRAC(489)=0.764063 ;YFRAC(490)=0.765625
 YFRAC(491)=0.767187 ;YFRAC(492)=0.76875
 YFRAC(493)=0.770312 ;YFRAC(494)=0.771875
 YFRAC(495)=0.773438 ;YFRAC(496)=0.775
 YFRAC(497)=0.776562 ;YFRAC(498)=0.778125
 YFRAC(499)=0.779688 ;YFRAC(500)=0.78125
 YFRAC(501)=0.782812 ;YFRAC(502)=0.784375
 YFRAC(503)=0.785938 ;YFRAC(504)=0.7875
 YFRAC(505)=0.789062 ;YFRAC(506)=0.790625
 YFRAC(507)=0.792188 ;YFRAC(508)=0.79375
 YFRAC(509)=0.795313 ;YFRAC(510)=0.796875
 YFRAC(511)=0.798437 ;YFRAC(512)=0.8
 YFRAC(513)=0.801562 ;YFRAC(514)=0.803125
 YFRAC(515)=0.804688 ;YFRAC(516)=0.80625
 YFRAC(517)=0.807813 ;YFRAC(518)=0.809375
 YFRAC(519)=0.810938 ;YFRAC(520)=0.8125
 YFRAC(521)=0.814062 ;YFRAC(522)=0.815625
 YFRAC(523)=0.817187 ;YFRAC(524)=0.81875
 YFRAC(525)=0.820312 ;YFRAC(526)=0.821875
 YFRAC(527)=0.823437 ;YFRAC(528)=0.825
 YFRAC(529)=0.826563 ;YFRAC(530)=0.828125
 YFRAC(531)=0.829687 ;YFRAC(532)=0.83125
 YFRAC(533)=0.832813 ;YFRAC(534)=0.834375
 YFRAC(535)=0.835938 ;YFRAC(536)=0.8375
 YFRAC(537)=0.839063 ;YFRAC(538)=0.840625
 YFRAC(539)=0.842188 ;YFRAC(540)=0.84375
 YFRAC(541)=0.845312 ;YFRAC(542)=0.846875
 YFRAC(543)=0.848437 ;YFRAC(544)=0.85
 YFRAC(545)=0.851562 ;YFRAC(546)=0.853125
 YFRAC(547)=0.854687 ;YFRAC(548)=0.85625
 YFRAC(549)=0.857813 ;YFRAC(550)=0.859375
 YFRAC(551)=0.860937 ;YFRAC(552)=0.8625
 YFRAC(553)=0.864063 ;YFRAC(554)=0.865625
 YFRAC(555)=0.867188 ;YFRAC(556)=0.86875
 YFRAC(557)=0.870313 ;YFRAC(558)=0.871875
 YFRAC(559)=0.873438 ;YFRAC(560)=0.875
 YFRAC(561)=0.876562 ;YFRAC(562)=0.878125
 YFRAC(563)=0.879687 ;YFRAC(564)=0.88125
 YFRAC(565)=0.882812 ;YFRAC(566)=0.884375
 YFRAC(567)=0.885938 ;YFRAC(568)=0.8875
 YFRAC(569)=0.889063 ;YFRAC(570)=0.890625
 YFRAC(571)=0.892187 ;YFRAC(572)=0.89375
 YFRAC(573)=0.895312 ;YFRAC(574)=0.896875
 YFRAC(575)=0.898438 ;YFRAC(576)=0.9
 YFRAC(577)=0.901562 ;YFRAC(578)=0.903125
 YFRAC(579)=0.904688 ;YFRAC(580)=0.90625
 YFRAC(581)=0.907813 ;YFRAC(582)=0.909375
 YFRAC(583)=0.910937 ;YFRAC(584)=0.9125
 YFRAC(585)=0.914062 ;YFRAC(586)=0.915625
 YFRAC(587)=0.917188 ;YFRAC(588)=0.91875
 YFRAC(589)=0.920313 ;YFRAC(590)=0.921875
 YFRAC(591)=0.923437 ;YFRAC(592)=0.925
 YFRAC(593)=0.926562 ;YFRAC(594)=0.928125
 YFRAC(595)=0.929688 ;YFRAC(596)=0.93125
 YFRAC(597)=0.932813 ;YFRAC(598)=0.934375
 YFRAC(599)=0.935937 ;YFRAC(600)=0.9375
 YFRAC(601)=0.939062 ;YFRAC(602)=0.940625
 YFRAC(603)=0.942188 ;YFRAC(604)=0.94375
 YFRAC(605)=0.945312 ;YFRAC(606)=0.946875
 YFRAC(607)=0.948438 ;YFRAC(608)=0.95
 YFRAC(609)=0.951563 ;YFRAC(610)=0.953125
 YFRAC(611)=0.954687 ;YFRAC(612)=0.95625
 YFRAC(613)=0.957812 ;YFRAC(614)=0.959375
 YFRAC(615)=0.960938 ;YFRAC(616)=0.9625
 YFRAC(617)=0.964063 ;YFRAC(618)=0.965625
 YFRAC(619)=0.967188 ;YFRAC(620)=0.96875
 YFRAC(621)=0.970312 ;YFRAC(622)=0.971875
 YFRAC(623)=0.973437 ;YFRAC(624)=0.975
 YFRAC(625)=0.976562 ;YFRAC(626)=0.978125
 YFRAC(627)=0.979687 ;YFRAC(628)=0.98125
 YFRAC(629)=0.982813 ;YFRAC(630)=0.984375
 YFRAC(631)=0.985938 ;YFRAC(632)=0.9875
 YFRAC(633)=0.989062 ;YFRAC(634)=0.990625
 YFRAC(635)=0.992188 ;YFRAC(636)=0.99375
 YFRAC(637)=0.995313 ;YFRAC(638)=0.996875
 YFRAC(639)=0.998438 ;YFRAC(640)=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(146)=SURT
 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(SURT,Y,N,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(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 =1000. ;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 =0.01006 ;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=2   
   *  Name
   *Ind. Dens.  Viscos.  Spec.heat  Conduct.  Expans.  Compr.
   *  
    34 1.0 0.1 1005.0 0.0258 3.41E-3 0.0
   *  
    76 1000.0 1.006E-2 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(SURT)=1.0E-10
 FIINIT(PRPS)=-1. ;FIINIT(DEN1)=1.0E-10
 FIINIT(VFOL)=1. ;FIINIT(SURN)=1.
 
 PATCH(^OB3 ,INIVAL, 3, 0, 0, 0, 0, 0, 1, 1)
 INIT(^OB3 ,PRPS,0. ,34. )
 INIT(^OB3 ,VFOL,0. ,0. )
 INIT(^OB3 ,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, 320, 1, 640, 1, 1, 1, 3000)
 COVAL(BUOYANCY,U1 , FIXFLU , GRND2 )
 COVAL(BUOYANCY,V1 , FIXFLU , GRND2 )
 
 PATCH(STENS ,PHASEM, 1, 320, 1, 640, 1, 1, 1, 3000)
 COVAL(STENS ,U1 , FIXFLU , GRND3 )
 COVAL(STENS ,V1 , FIXFLU , GRND3 )
 
 PATCH(TCON ,CELL , 1, 320, 1, 640, 1, 1, 1, 3000)
 COVAL(TCON ,SURN, GRND , GRND )
 
 PATCH(^OB1 ,CELL , 1, 8, 0, 0, 0, 0, 1, 3000)
 COVAL(^OB1 ,U1 ,1. ,0. )
 
 PATCH(^OB2 ,CELL , 2, 7, 0, 0, 0, 0, 1, 3000)
 COVAL(^OB2 ,U1 ,1. ,0. )
 XCYCLE = F
 EGWF = T
 WALLCO = GRND2
 BUOYA =0. ; BUOYB =-0.98 ; BUOYC =0.
 BUOYD =1000.
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 30 ;ISWC1 = 1
 LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
 SELREF = T
 RESFAC =1.0E-05
 ************************************************************
  Group 16. Terminate Iterations
 LITER(P1)=200 ;LITER(U1)=10
 LITER(V1)=10 ;LITER(VFOL)=1
 LITER(SURN)=1
 ENDIT(P1)=1.0E-04 ;ENDIT(U1)=1.0E-03
 ENDIT(V1)=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(SURT,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(SURT)=1.0E+10 ;VARMIN(SURT)=-1.0E+10
 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 = 76 ;IPRPSB = 34
 ISG62 = 1
 ISURFA = 5
 BTATHC =3.5
 ISRFTA = 1
 SURFTA =1.96 ;SURFTB=0. ;SURFTC=0.
 CSG10   ='q1'
 SPEDAT(SET,DOMAIN,PROPS_FILE_1,C,Q1)
 SPEDAT(SET,VOF,LTSS,L,F)
 SPEDAT(SET,GXMONI,PLOTALL,L,T)
 SPEDAT(SET,OBJNAM,^OB1,C,BOTTOMWALL)
 SPEDAT(SET,OBJTYP,^OB1,C,PLATE)
 SPEDAT(SET,OBJNAM,^OB2,C,TOPWALL)
 SPEDAT(SET,OBJTYP,^OB2,C,PLATE)
 SPEDAT(SET,OBJNAM,^OB3,C,BUBBLE)
 SPEDAT(SET,OBJTYP,^OB3,C,BLOCKAGE)
 SPEDAT(SET,BUBBLE,MATERIAL,R,34.)
 SPEDAT(SET,FACETDAT,NUMOBJ,I,3)
 SPEDAT(SET,MATERIAL,34,L,T)
 SPEDAT(SET,MATERIAL,76,L,T)
 ************************************************************
  Group 20. Preliminary Printout
 DISTIL = T ;NULLPR = F
 NDST = 0
 DSTTOL =1.0E-02
 EX(P1)=612. ;EX(U1)=0.04869
 EX(V1)=0.1446 ;EX(SURT)=0.9019
 EX(PRPS)=144.399994 ;EX(DEN1)=902.
 EX(VFOL)=0.9019 ;EX(SURN)=0.9019
 ************************************************************
  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(SURT,N,N,Y,N,N,N)
 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 = 158 ;IYMON = 158 ;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 = 25 ;IDISPB = 0 ;IDISPC = 0
 CSG1    ='A'
STOP