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