TALK=T;RUN(1,1) ************************************************************ Group 1. Run Title and Number ************************************************************ ************************************************************ TEXT(FADHL experiments in 2D non conservative) ************************************************************ ************************************************************ IRUNN = 1 ;LIBREF = 0 ************************************************************ Group 2. Time dependence STEADY = F * Set overall time and no. of steps TFIRST =0. ;TLAST =1. FSTEP = 1 ;LSTEP = 6000 TFRAC(1)=1.666667E-04 ;TFRAC(2)=3.333333E-04 TFRAC(3)=5.0E-04 ;TFRAC(4)=6.666667E-04 TFRAC(5)=8.333334E-04 ;TFRAC(6)=1.0E-03 TFRAC(7)=1.166667E-03 ;TFRAC(8)=1.333333E-03 TFRAC(9)=1.5E-03 ;TFRAC(10)=1.666667E-03 TFRAC(11)=1.833333E-03 ;TFRAC(12)=2.0E-03 TFRAC(13)=2.166667E-03 ;TFRAC(14)=2.333333E-03 TFRAC(15)=2.5E-03 ;TFRAC(16)=2.666667E-03 TFRAC(17)=2.833333E-03 ;TFRAC(18)=3.0E-03 TFRAC(19)=3.166667E-03 ;TFRAC(20)=3.333333E-03 TFRAC(21)=3.5E-03 ;TFRAC(22)=3.666667E-03 TFRAC(23)=3.833333E-03 ;TFRAC(24)=4.0E-03 TFRAC(25)=4.166667E-03 ;TFRAC(26)=4.333333E-03 TFRAC(27)=4.5E-03 ;TFRAC(28)=4.666667E-03 TFRAC(29)=4.833333E-03 ;TFRAC(30)=5.0E-03 TFRAC(31)=5.166667E-03 ;TFRAC(32)=5.333333E-03 TFRAC(33)=5.5E-03 ;TFRAC(34)=5.666667E-03 TFRAC(35)=5.833333E-03 ;TFRAC(36)=6.0E-03 TFRAC(37)=6.166667E-03 ;TFRAC(38)=6.333333E-03 TFRAC(39)=6.5E-03 ;TFRAC(40)=6.666667E-03 TFRAC(41)=6.833334E-03 ;TFRAC(42)=7.0E-03 TFRAC(43)=7.166666E-03 ;TFRAC(44)=7.333333E-03 TFRAC(45)=7.5E-03 ;TFRAC(46)=7.666667E-03 TFRAC(47)=7.833334E-03 ;TFRAC(48)=8.0E-03 TFRAC(49)=8.166667E-03 ;TFRAC(50)=8.333334E-03 TFRAC(51)=8.5E-03 ;TFRAC(52)=8.666666E-03 TFRAC(53)=8.833333E-03 ;TFRAC(54)=9.0E-03 TFRAC(55)=9.166666E-03 ;TFRAC(56)=9.333333E-03 TFRAC(57)=9.5E-03 ;TFRAC(58)=9.666666E-03 TFRAC(59)=9.833333E-03 ;TFRAC(60)=1.0E-02 TFRAC(61)=0.010167 ;TFRAC(62)=0.010333 TFRAC(63)=0.0105 ;TFRAC(64)=0.010667 TFRAC(65)=0.010833 ;TFRAC(66)=0.011 TFRAC(67)=0.011167 ;TFRAC(68)=0.011333 TFRAC(69)=0.0115 ;TFRAC(70)=0.011667 TFRAC(71)=0.011833 ;TFRAC(72)=0.012 TFRAC(73)=0.012167 ;TFRAC(74)=0.012333 TFRAC(75)=0.0125 ;TFRAC(76)=0.012667 TFRAC(77)=0.012833 ;TFRAC(78)=0.013 TFRAC(79)=0.013167 ;TFRAC(80)=0.013333 TFRAC(81)=0.0135 ;TFRAC(82)=0.013667 TFRAC(83)=0.013833 ;TFRAC(84)=0.014 TFRAC(85)=0.014167 ;TFRAC(86)=0.014333 TFRAC(87)=0.0145 ;TFRAC(88)=0.014667 TFRAC(89)=0.014833 ;TFRAC(90)=0.015 TFRAC(91)=0.015167 ;TFRAC(92)=0.015333 TFRAC(93)=0.0155 ;TFRAC(94)=0.015667 TFRAC(95)=0.015833 ;TFRAC(96)=0.016 TFRAC(97)=0.016167 ;TFRAC(98)=0.016333 TFRAC(99)=0.0165 ;TFRAC(100)=0.016667 TFRAC(101)=0.016833 ;TFRAC(102)=0.017 TFRAC(103)=0.017167 ;TFRAC(104)=0.017333 TFRAC(105)=0.0175 ;TFRAC(106)=0.017667 TFRAC(107)=0.017833 ;TFRAC(108)=0.018 TFRAC(109)=0.018167 ;TFRAC(110)=0.018333 TFRAC(111)=0.0185 ;TFRAC(112)=0.018667 TFRAC(113)=0.018833 ;TFRAC(114)=0.019 TFRAC(115)=0.019167 ;TFRAC(116)=0.019333 TFRAC(117)=0.0195 ;TFRAC(118)=0.019667 TFRAC(119)=0.019833 ;TFRAC(120)=0.02 TFRAC(121)=0.020167 ;TFRAC(122)=0.020333 TFRAC(123)=0.0205 ;TFRAC(124)=0.020667 TFRAC(125)=0.020833 ;TFRAC(126)=0.021 TFRAC(127)=0.021167 ;TFRAC(128)=0.021333 TFRAC(129)=0.0215 ;TFRAC(130)=0.021667 TFRAC(131)=0.021833 ;TFRAC(132)=0.022 TFRAC(133)=0.022167 ;TFRAC(134)=0.022333 TFRAC(135)=0.0225 ;TFRAC(136)=0.022667 TFRAC(137)=0.022833 ;TFRAC(138)=0.023 TFRAC(139)=0.023167 ;TFRAC(140)=0.023333 TFRAC(141)=0.0235 ;TFRAC(142)=0.023667 TFRAC(143)=0.023833 ;TFRAC(144)=0.024 TFRAC(145)=0.024167 ;TFRAC(146)=0.024333 TFRAC(147)=0.0245 ;TFRAC(148)=0.024667 TFRAC(149)=0.024833 ;TFRAC(150)=0.025 TFRAC(151)=0.025167 ;TFRAC(152)=0.025333 TFRAC(153)=0.0255 ;TFRAC(154)=0.025667 TFRAC(155)=0.025833 ;TFRAC(156)=0.026 TFRAC(157)=0.026167 ;TFRAC(158)=0.026333 TFRAC(159)=0.0265 ;TFRAC(160)=0.026667 TFRAC(161)=0.026833 ;TFRAC(162)=0.027 TFRAC(163)=0.027167 ;TFRAC(164)=0.027333 TFRAC(165)=0.0275 ;TFRAC(166)=0.027667 TFRAC(167)=0.027833 ;TFRAC(168)=0.028 TFRAC(169)=0.028167 ;TFRAC(170)=0.028333 TFRAC(171)=0.0285 ;TFRAC(172)=0.028667 TFRAC(173)=0.028833 ;TFRAC(174)=0.029 TFRAC(175)=0.029167 ;TFRAC(176)=0.029333 TFRAC(177)=0.0295 ;TFRAC(178)=0.029667 TFRAC(179)=0.029833 ;TFRAC(180)=0.03 TFRAC(181)=0.030167 ;TFRAC(182)=0.030333 TFRAC(183)=0.0305 ;TFRAC(184)=0.030667 TFRAC(185)=0.030833 ;TFRAC(186)=0.031 TFRAC(187)=0.031167 ;TFRAC(188)=0.031333 TFRAC(189)=0.0315 ;TFRAC(190)=0.031667 TFRAC(191)=0.031833 ;TFRAC(192)=0.032 TFRAC(193)=0.032167 ;TFRAC(194)=0.032333 TFRAC(195)=0.0325 ;TFRAC(196)=0.032667 TFRAC(197)=0.032833 ;TFRAC(198)=0.033 TFRAC(199)=0.033167 ;TFRAC(200)=0.033333 TFRAC(201)=0.0335 ;TFRAC(202)=0.033667 TFRAC(203)=0.033833 ;TFRAC(204)=0.034 TFRAC(205)=0.034167 ;TFRAC(206)=0.034333 TFRAC(207)=0.0345 ;TFRAC(208)=0.034667 TFRAC(209)=0.034833 ;TFRAC(210)=0.035 TFRAC(211)=0.035167 ;TFRAC(212)=0.035333 TFRAC(213)=0.0355 ;TFRAC(214)=0.035667 TFRAC(215)=0.035833 ;TFRAC(216)=0.036 TFRAC(217)=0.036167 ;TFRAC(218)=0.036333 TFRAC(219)=0.0365 ;TFRAC(220)=0.036667 TFRAC(221)=0.036833 ;TFRAC(222)=0.037 TFRAC(223)=0.037167 ;TFRAC(224)=0.037333 TFRAC(225)=0.0375 ;TFRAC(226)=0.037667 TFRAC(227)=0.037833 ;TFRAC(228)=0.038 TFRAC(229)=0.038167 ;TFRAC(230)=0.038333 TFRAC(231)=0.0385 ;TFRAC(232)=0.038667 TFRAC(233)=0.038833 ;TFRAC(234)=0.039 TFRAC(235)=0.039167 ;TFRAC(236)=0.039333 TFRAC(237)=0.0395 ;TFRAC(238)=0.039667 TFRAC(239)=0.039833 ;TFRAC(240)=0.04 TFRAC(241)=0.040167 ;TFRAC(242)=0.040333 TFRAC(243)=0.0405 ;TFRAC(244)=0.040667 TFRAC(245)=0.040833 ;TFRAC(246)=0.041 TFRAC(247)=0.041167 ;TFRAC(248)=0.041333 TFRAC(249)=0.0415 ;TFRAC(250)=0.041667 TFRAC(251)=0.041833 ;TFRAC(252)=0.042 TFRAC(253)=0.042167 ;TFRAC(254)=0.042333 TFRAC(255)=0.0425 ;TFRAC(256)=0.042667 TFRAC(257)=0.042833 ;TFRAC(258)=0.043 TFRAC(259)=0.043167 ;TFRAC(260)=0.043333 TFRAC(261)=0.0435 ;TFRAC(262)=0.043667 TFRAC(263)=0.043833 ;TFRAC(264)=0.044 TFRAC(265)=0.044167 ;TFRAC(266)=0.044333 TFRAC(267)=0.0445 ;TFRAC(268)=0.044667 TFRAC(269)=0.044833 ;TFRAC(270)=0.045 TFRAC(271)=0.045167 ;TFRAC(272)=0.045333 TFRAC(273)=0.0455 ;TFRAC(274)=0.045667 TFRAC(275)=0.045833 ;TFRAC(276)=0.046 TFRAC(277)=0.046167 ;TFRAC(278)=0.046333 TFRAC(279)=0.0465 ;TFRAC(280)=0.046667 TFRAC(281)=0.046833 ;TFRAC(282)=0.047 TFRAC(283)=0.047167 ;TFRAC(284)=0.047333 TFRAC(285)=0.0475 ;TFRAC(286)=0.047667 TFRAC(287)=0.047833 ;TFRAC(288)=0.048 TFRAC(289)=0.048167 ;TFRAC(290)=0.048333 TFRAC(291)=0.0485 ;TFRAC(292)=0.048667 TFRAC(293)=0.048833 ;TFRAC(294)=0.049 TFRAC(295)=0.049167 ;TFRAC(296)=0.049333 TFRAC(297)=0.0495 ;TFRAC(298)=0.049667 TFRAC(299)=0.049833 ;TFRAC(300)=0.05 TFRAC(301)=0.050167 ;TFRAC(302)=0.050333 TFRAC(303)=0.0505 ;TFRAC(304)=0.050667 TFRAC(305)=0.050833 ;TFRAC(306)=0.051 TFRAC(307)=0.051167 ;TFRAC(308)=0.051333 TFRAC(309)=0.0515 ;TFRAC(310)=0.051667 TFRAC(311)=0.051833 ;TFRAC(312)=0.052 TFRAC(313)=0.052167 ;TFRAC(314)=0.052333 TFRAC(315)=0.0525 ;TFRAC(316)=0.052667 TFRAC(317)=0.052833 ;TFRAC(318)=0.053 TFRAC(319)=0.053167 ;TFRAC(320)=0.053333 TFRAC(321)=0.0535 ;TFRAC(322)=0.053667 TFRAC(323)=0.053833 ;TFRAC(324)=0.054 TFRAC(325)=0.054167 ;TFRAC(326)=0.054333 TFRAC(327)=0.0545 ;TFRAC(328)=0.054667 TFRAC(329)=0.054833 ;TFRAC(330)=0.055 TFRAC(331)=0.055167 ;TFRAC(332)=0.055333 TFRAC(333)=0.0555 ;TFRAC(334)=0.055667 TFRAC(335)=0.055833 ;TFRAC(336)=0.056 TFRAC(337)=0.056167 ;TFRAC(338)=0.056333 TFRAC(339)=0.0565 ;TFRAC(340)=0.056667 TFRAC(341)=0.056833 ;TFRAC(342)=0.057 TFRAC(343)=0.057167 ;TFRAC(344)=0.057333 TFRAC(345)=0.0575 ;TFRAC(346)=0.057667 TFRAC(347)=0.057833 ;TFRAC(348)=0.058 TFRAC(349)=0.058167 ;TFRAC(350)=0.058333 TFRAC(351)=0.0585 ;TFRAC(352)=0.058667 TFRAC(353)=0.058833 ;TFRAC(354)=0.059 TFRAC(355)=0.059167 ;TFRAC(356)=0.059333 TFRAC(357)=0.0595 ;TFRAC(358)=0.059667 TFRAC(359)=0.059833 ;TFRAC(360)=0.06 TFRAC(361)=0.060167 ;TFRAC(362)=0.060333 TFRAC(363)=0.0605 ;TFRAC(364)=0.060667 TFRAC(365)=0.060833 ;TFRAC(366)=0.061 TFRAC(367)=0.061167 ;TFRAC(368)=0.061333 TFRAC(369)=0.0615 ;TFRAC(370)=0.061667 TFRAC(371)=0.061833 ;TFRAC(372)=0.062 TFRAC(373)=0.062167 ;TFRAC(374)=0.062333 TFRAC(375)=0.0625 ;TFRAC(376)=0.062667 TFRAC(377)=0.062833 ;TFRAC(378)=0.063 TFRAC(379)=0.063167 ;TFRAC(380)=0.063333 TFRAC(381)=0.0635 ;TFRAC(382)=0.063667 TFRAC(383)=0.063833 ;TFRAC(384)=0.064 TFRAC(385)=0.064167 ;TFRAC(386)=0.064333 TFRAC(387)=0.0645 ;TFRAC(388)=0.064667 TFRAC(389)=0.064833 ;TFRAC(390)=0.065 TFRAC(391)=0.065167 ;TFRAC(392)=0.065333 TFRAC(393)=0.0655 ;TFRAC(394)=0.065667 TFRAC(395)=0.065833 ;TFRAC(396)=0.066 TFRAC(397)=0.066167 ;TFRAC(398)=0.066333 TFRAC(399)=0.0665 ;TFRAC(400)=0.066667 TFRAC(401)=0.066833 ;TFRAC(402)=0.067 TFRAC(403)=0.067167 ;TFRAC(404)=0.067333 TFRAC(405)=0.0675 ;TFRAC(406)=0.067667 TFRAC(407)=0.067833 ;TFRAC(408)=0.068 TFRAC(409)=0.068167 ;TFRAC(410)=0.068333 TFRAC(411)=0.0685 ;TFRAC(412)=0.068667 TFRAC(413)=0.068833 ;TFRAC(414)=0.069 TFRAC(415)=0.069167 ;TFRAC(416)=0.069333 TFRAC(417)=0.0695 ;TFRAC(418)=0.069667 TFRAC(419)=0.069833 ;TFRAC(420)=0.07 TFRAC(421)=0.070167 ;TFRAC(422)=0.070333 TFRAC(423)=0.0705 ;TFRAC(424)=0.070667 TFRAC(425)=0.070833 ;TFRAC(426)=0.071 TFRAC(427)=0.071167 ;TFRAC(428)=0.071333 TFRAC(429)=0.0715 ;TFRAC(430)=0.071667 TFRAC(431)=0.071833 ;TFRAC(432)=0.072 TFRAC(433)=0.072167 ;TFRAC(434)=0.072333 TFRAC(435)=0.0725 ;TFRAC(436)=0.072667 TFRAC(437)=0.072833 ;TFRAC(438)=0.073 TFRAC(439)=0.073167 ;TFRAC(440)=0.073333 TFRAC(441)=0.0735 ;TFRAC(442)=0.073667 TFRAC(443)=0.073833 ;TFRAC(444)=0.074 TFRAC(445)=0.074167 ;TFRAC(446)=0.074333 TFRAC(447)=0.0745 ;TFRAC(448)=0.074667 TFRAC(449)=0.074833 ;TFRAC(450)=0.075 TFRAC(451)=0.075167 ;TFRAC(452)=0.075333 TFRAC(453)=0.0755 ;TFRAC(454)=0.075667 TFRAC(455)=0.075833 ;TFRAC(456)=0.076 TFRAC(457)=0.076167 ;TFRAC(458)=0.076333 TFRAC(459)=0.0765 ;TFRAC(460)=0.076667 TFRAC(461)=0.076833 ;TFRAC(462)=0.077 TFRAC(463)=0.077167 ;TFRAC(464)=0.077333 TFRAC(465)=0.0775 ;TFRAC(466)=0.077667 TFRAC(467)=0.077833 ;TFRAC(468)=0.078 TFRAC(469)=0.078167 ;TFRAC(470)=0.078333 TFRAC(471)=0.0785 ;TFRAC(472)=0.078667 TFRAC(473)=0.078833 ;TFRAC(474)=0.079 TFRAC(475)=0.079167 ;TFRAC(476)=0.079333 TFRAC(477)=0.0795 ;TFRAC(478)=0.079667 TFRAC(479)=0.079833 ;TFRAC(480)=0.08 TFRAC(481)=0.080167 ;TFRAC(482)=0.080333 TFRAC(483)=0.0805 ;TFRAC(484)=0.080667 TFRAC(485)=0.080833 ;TFRAC(486)=0.081 TFRAC(487)=0.081167 ;TFRAC(488)=0.081333 TFRAC(489)=0.0815 ;TFRAC(490)=0.081667 TFRAC(491)=0.081833 ;TFRAC(492)=0.082 TFRAC(493)=0.082167 ;TFRAC(494)=0.082333 TFRAC(495)=0.0825 ;TFRAC(496)=0.082667 TFRAC(497)=0.082833 ;TFRAC(498)=0.083 TFRAC(499)=0.083167 ;TFRAC(500)=0.083333 TFRAC(501)=0.0835 ;TFRAC(502)=0.083667 TFRAC(503)=0.083833 ;TFRAC(504)=0.084 TFRAC(505)=0.084167 ;TFRAC(506)=0.084333 TFRAC(507)=0.0845 ;TFRAC(508)=0.084667 TFRAC(509)=0.084833 ;TFRAC(510)=0.085 TFRAC(511)=0.085167 ;TFRAC(512)=0.085333 TFRAC(513)=0.0855 ;TFRAC(514)=0.085667 TFRAC(515)=0.085833 ;TFRAC(516)=0.086 TFRAC(517)=0.086167 ;TFRAC(518)=0.086333 TFRAC(519)=0.0865 ;TFRAC(520)=0.086667 TFRAC(521)=0.086833 ;TFRAC(522)=0.087 TFRAC(523)=0.087167 ;TFRAC(524)=0.087333 TFRAC(525)=0.0875 ;TFRAC(526)=0.087667 TFRAC(527)=0.087833 ;TFRAC(528)=0.088 TFRAC(529)=0.088167 ;TFRAC(530)=0.088333 TFRAC(531)=0.0885 ;TFRAC(532)=0.088667 TFRAC(533)=0.088833 ;TFRAC(534)=0.089 TFRAC(535)=0.089167 ;TFRAC(536)=0.089333 TFRAC(537)=0.0895 ;TFRAC(538)=0.089667 TFRAC(539)=0.089833 ;TFRAC(540)=0.09 TFRAC(541)=0.090167 ;TFRAC(542)=0.090333 TFRAC(543)=0.0905 ;TFRAC(544)=0.090667 TFRAC(545)=0.090833 ;TFRAC(546)=0.091 TFRAC(547)=0.091167 ;TFRAC(548)=0.091333 TFRAC(549)=0.0915 ;TFRAC(550)=0.091667 TFRAC(551)=0.091833 ;TFRAC(552)=0.092 TFRAC(553)=0.092167 ;TFRAC(554)=0.092333 TFRAC(555)=0.0925 ;TFRAC(556)=0.092667 TFRAC(557)=0.092833 ;TFRAC(558)=0.093 TFRAC(559)=0.093167 ;TFRAC(560)=0.093333 TFRAC(561)=0.0935 ;TFRAC(562)=0.093667 TFRAC(563)=0.093833 ;TFRAC(564)=0.094 TFRAC(565)=0.094167 ;TFRAC(566)=0.094333 TFRAC(567)=0.0945 ;TFRAC(568)=0.094667 TFRAC(569)=0.094833 ;TFRAC(570)=0.095 TFRAC(571)=0.095167 ;TFRAC(572)=0.095333 TFRAC(573)=0.0955 ;TFRAC(574)=0.095667 TFRAC(575)=0.095833 ;TFRAC(576)=0.096 TFRAC(577)=0.096167 ;TFRAC(578)=0.096333 TFRAC(579)=0.0965 ;TFRAC(580)=0.096667 TFRAC(581)=0.096833 ;TFRAC(582)=0.097 TFRAC(583)=0.097167 ;TFRAC(584)=0.097333 TFRAC(585)=0.0975 ;TFRAC(586)=0.097667 TFRAC(587)=0.097833 ;TFRAC(588)=0.098 TFRAC(589)=0.098167 ;TFRAC(590)=0.098333 TFRAC(591)=0.0985 ;TFRAC(592)=0.098667 TFRAC(593)=0.098833 ;TFRAC(594)=0.099 TFRAC(595)=0.099167 ;TFRAC(596)=0.099333 TFRAC(597)=0.0995 ;TFRAC(598)=0.099667 TFRAC(599)=0.099833 ;TFRAC(600)=0.1 TFRAC(601)=0.100167 ;TFRAC(602)=0.100333 TFRAC(603)=0.1005 ;TFRAC(604)=0.100667 TFRAC(605)=0.100833 ;TFRAC(606)=0.101 TFRAC(607)=0.101167 ;TFRAC(608)=0.101333 TFRAC(609)=0.1015 ;TFRAC(610)=0.101667 TFRAC(611)=0.101833 ;TFRAC(612)=0.102 TFRAC(613)=0.102167 ;TFRAC(614)=0.102333 TFRAC(615)=0.1025 ;TFRAC(616)=0.102667 TFRAC(617)=0.102833 ;TFRAC(618)=0.103 TFRAC(619)=0.103167 ;TFRAC(620)=0.103333 TFRAC(621)=0.1035 ;TFRAC(622)=0.103667 TFRAC(623)=0.103833 ;TFRAC(624)=0.104 TFRAC(625)=0.104167 ;TFRAC(626)=0.104333 TFRAC(627)=0.1045 ;TFRAC(628)=0.104667 TFRAC(629)=0.104833 ;TFRAC(630)=0.105 TFRAC(631)=0.105167 ;TFRAC(632)=0.105333 TFRAC(633)=0.1055 ;TFRAC(634)=0.105667 TFRAC(635)=0.105833 ;TFRAC(636)=0.106 TFRAC(637)=0.106167 ;TFRAC(638)=0.106333 TFRAC(639)=0.1065 ;TFRAC(640)=0.106667 TFRAC(641)=0.106833 ;TFRAC(642)=0.107 TFRAC(643)=0.107167 ;TFRAC(644)=0.107333 TFRAC(645)=0.1075 ;TFRAC(646)=0.107667 TFRAC(647)=0.107833 ;TFRAC(648)=0.108 TFRAC(649)=0.108167 ;TFRAC(650)=0.108333 TFRAC(651)=0.1085 ;TFRAC(652)=0.108667 TFRAC(653)=0.108833 ;TFRAC(654)=0.109 TFRAC(655)=0.109167 ;TFRAC(656)=0.109333 TFRAC(657)=0.1095 ;TFRAC(658)=0.109667 TFRAC(659)=0.109833 ;TFRAC(660)=0.11 TFRAC(661)=0.110167 ;TFRAC(662)=0.110333 TFRAC(663)=0.1105 ;TFRAC(664)=0.110667 TFRAC(665)=0.110833 ;TFRAC(666)=0.111 TFRAC(667)=0.111167 ;TFRAC(668)=0.111333 TFRAC(669)=0.1115 ;TFRAC(670)=0.111667 TFRAC(671)=0.111833 ;TFRAC(672)=0.112 TFRAC(673)=0.112167 ;TFRAC(674)=0.112333 TFRAC(675)=0.1125 ;TFRAC(676)=0.112667 TFRAC(677)=0.112833 ;TFRAC(678)=0.113 TFRAC(679)=0.113167 ;TFRAC(680)=0.113333 TFRAC(681)=0.1135 ;TFRAC(682)=0.113667 TFRAC(683)=0.113833 ;TFRAC(684)=0.114 TFRAC(685)=0.114167 ;TFRAC(686)=0.114333 TFRAC(687)=0.1145 ;TFRAC(688)=0.114667 TFRAC(689)=0.114833 ;TFRAC(690)=0.115 TFRAC(691)=0.115167 ;TFRAC(692)=0.115333 TFRAC(693)=0.1155 ;TFRAC(694)=0.115667 TFRAC(695)=0.115833 ;TFRAC(696)=0.116 TFRAC(697)=0.116167 ;TFRAC(698)=0.116333 TFRAC(699)=0.1165 ;TFRAC(700)=0.116667 TFRAC(701)=0.116833 ;TFRAC(702)=0.117 TFRAC(703)=0.117167 ;TFRAC(704)=0.117333 TFRAC(705)=0.1175 ;TFRAC(706)=0.117667 TFRAC(707)=0.117833 ;TFRAC(708)=0.118 TFRAC(709)=0.118167 ;TFRAC(710)=0.118333 TFRAC(711)=0.1185 ;TFRAC(712)=0.118667 TFRAC(713)=0.118833 ;TFRAC(714)=0.119 TFRAC(715)=0.119167 ;TFRAC(716)=0.119333 TFRAC(717)=0.1195 ;TFRAC(718)=0.119667 TFRAC(719)=0.119833 ;TFRAC(720)=0.12 TFRAC(721)=0.120167 ;TFRAC(722)=0.120333 TFRAC(723)=0.1205 ;TFRAC(724)=0.120667 TFRAC(725)=0.120833 ;TFRAC(726)=0.121 TFRAC(727)=0.121167 ;TFRAC(728)=0.121333 TFRAC(729)=0.1215 ;TFRAC(730)=0.121667 TFRAC(731)=0.121833 ;TFRAC(732)=0.122 TFRAC(733)=0.122167 ;TFRAC(734)=0.122333 TFRAC(735)=0.1225 ;TFRAC(736)=0.122667 TFRAC(737)=0.122833 ;TFRAC(738)=0.123 TFRAC(739)=0.123167 ;TFRAC(740)=0.123333 TFRAC(741)=0.1235 ;TFRAC(742)=0.123667 TFRAC(743)=0.123833 ;TFRAC(744)=0.124 TFRAC(745)=0.124167 ;TFRAC(746)=0.124333 TFRAC(747)=0.1245 ;TFRAC(748)=0.124667 TFRAC(749)=0.124833 ;TFRAC(750)=0.125 TFRAC(751)=0.125167 ;TFRAC(752)=0.125333 TFRAC(753)=0.1255 ;TFRAC(754)=0.125667 TFRAC(755)=0.125833 ;TFRAC(756)=0.126 TFRAC(757)=0.126167 ;TFRAC(758)=0.126333 TFRAC(759)=0.1265 ;TFRAC(760)=0.126667 TFRAC(761)=0.126833 ;TFRAC(762)=0.127 TFRAC(763)=0.127167 ;TFRAC(764)=0.127333 TFRAC(765)=0.1275 ;TFRAC(766)=0.127667 TFRAC(767)=0.127833 ;TFRAC(768)=0.128 TFRAC(769)=0.128167 ;TFRAC(770)=0.128333 TFRAC(771)=0.1285 ;TFRAC(772)=0.128667 TFRAC(773)=0.128833 ;TFRAC(774)=0.129 TFRAC(775)=0.129167 ;TFRAC(776)=0.129333 TFRAC(777)=0.1295 ;TFRAC(778)=0.129667 TFRAC(779)=0.129833 ;TFRAC(780)=0.13 TFRAC(781)=0.130167 ;TFRAC(782)=0.130333 TFRAC(783)=0.1305 ;TFRAC(784)=0.130667 TFRAC(785)=0.130833 ;TFRAC(786)=0.131 TFRAC(787)=0.131167 ;TFRAC(788)=0.131333 TFRAC(789)=0.1315 ;TFRAC(790)=0.131667 TFRAC(791)=0.131833 ;TFRAC(792)=0.132 TFRAC(793)=0.132167 ;TFRAC(794)=0.132333 TFRAC(795)=0.1325 ;TFRAC(796)=0.132667 TFRAC(797)=0.132833 ;TFRAC(798)=0.133 TFRAC(799)=0.133167 ;TFRAC(800)=0.133333 TFRAC(801)=0.1335 ;TFRAC(802)=0.133667 TFRAC(803)=0.133833 ;TFRAC(804)=0.134 TFRAC(805)=0.134167 ;TFRAC(806)=0.134333 TFRAC(807)=0.1345 ;TFRAC(808)=0.134667 TFRAC(809)=0.134833 ;TFRAC(810)=0.135 TFRAC(811)=0.135167 ;TFRAC(812)=0.135333 TFRAC(813)=0.1355 ;TFRAC(814)=0.135667 TFRAC(815)=0.135833 ;TFRAC(816)=0.136 TFRAC(817)=0.136167 ;TFRAC(818)=0.136333 TFRAC(819)=0.1365 ;TFRAC(820)=0.136667 TFRAC(821)=0.136833 ;TFRAC(822)=0.137 TFRAC(823)=0.137167 ;TFRAC(824)=0.137333 TFRAC(825)=0.1375 ;TFRAC(826)=0.137667 TFRAC(827)=0.137833 ;TFRAC(828)=0.138 TFRAC(829)=0.138167 ;TFRAC(830)=0.138333 TFRAC(831)=0.1385 ;TFRAC(832)=0.138667 TFRAC(833)=0.138833 ;TFRAC(834)=0.139 TFRAC(835)=0.139167 ;TFRAC(836)=0.139333 TFRAC(837)=0.1395 ;TFRAC(838)=0.139667 TFRAC(839)=0.139833 ;TFRAC(840)=0.14 TFRAC(841)=0.140167 ;TFRAC(842)=0.140333 TFRAC(843)=0.1405 ;TFRAC(844)=0.140667 TFRAC(845)=0.140833 ;TFRAC(846)=0.141 TFRAC(847)=0.141167 ;TFRAC(848)=0.141333 TFRAC(849)=0.1415 ;TFRAC(850)=0.141667 TFRAC(851)=0.141833 ;TFRAC(852)=0.142 TFRAC(853)=0.142167 ;TFRAC(854)=0.142333 TFRAC(855)=0.1425 ;TFRAC(856)=0.142667 TFRAC(857)=0.142833 ;TFRAC(858)=0.143 TFRAC(859)=0.143167 ;TFRAC(860)=0.143333 TFRAC(861)=0.1435 ;TFRAC(862)=0.143667 TFRAC(863)=0.143833 ;TFRAC(864)=0.144 TFRAC(865)=0.144167 ;TFRAC(866)=0.144333 TFRAC(867)=0.1445 ;TFRAC(868)=0.144667 TFRAC(869)=0.144833 ;TFRAC(870)=0.145 TFRAC(871)=0.145167 ;TFRAC(872)=0.145333 TFRAC(873)=0.1455 ;TFRAC(874)=0.145667 TFRAC(875)=0.145833 ;TFRAC(876)=0.146 TFRAC(877)=0.146167 ;TFRAC(878)=0.146333 TFRAC(879)=0.1465 ;TFRAC(880)=0.146667 TFRAC(881)=0.146833 ;TFRAC(882)=0.147 TFRAC(883)=0.147167 ;TFRAC(884)=0.147333 TFRAC(885)=0.1475 ;TFRAC(886)=0.147667 TFRAC(887)=0.147833 ;TFRAC(888)=0.148 TFRAC(889)=0.148167 ;TFRAC(890)=0.148333 TFRAC(891)=0.1485 ;TFRAC(892)=0.148667 TFRAC(893)=0.148833 ;TFRAC(894)=0.149 TFRAC(895)=0.149167 ;TFRAC(896)=0.149333 TFRAC(897)=0.1495 ;TFRAC(898)=0.149667 TFRAC(899)=0.149833 ;TFRAC(900)=0.15 TFRAC(901)=0.150167 ;TFRAC(902)=0.150333 TFRAC(903)=0.1505 ;TFRAC(904)=0.150667 TFRAC(905)=0.150833 ;TFRAC(906)=0.151 TFRAC(907)=0.151167 ;TFRAC(908)=0.151333 TFRAC(909)=0.1515 ;TFRAC(910)=0.151667 TFRAC(911)=0.151833 ;TFRAC(912)=0.152 TFRAC(913)=0.152167 ;TFRAC(914)=0.152333 TFRAC(915)=0.1525 ;TFRAC(916)=0.152667 TFRAC(917)=0.152833 ;TFRAC(918)=0.153 TFRAC(919)=0.153167 ;TFRAC(920)=0.153333 TFRAC(921)=0.1535 ;TFRAC(922)=0.153667 TFRAC(923)=0.153833 ;TFRAC(924)=0.154 TFRAC(925)=0.154167 ;TFRAC(926)=0.154333 TFRAC(927)=0.1545 ;TFRAC(928)=0.154667 TFRAC(929)=0.154833 ;TFRAC(930)=0.155 TFRAC(931)=0.155167 ;TFRAC(932)=0.155333 TFRAC(933)=0.1555 ;TFRAC(934)=0.155667 TFRAC(935)=0.155833 ;TFRAC(936)=0.156 TFRAC(937)=0.156167 ;TFRAC(938)=0.156333 TFRAC(939)=0.1565 ;TFRAC(940)=0.156667 TFRAC(941)=0.156833 ;TFRAC(942)=0.157 TFRAC(943)=0.157167 ;TFRAC(944)=0.157333 TFRAC(945)=0.1575 ;TFRAC(946)=0.157667 TFRAC(947)=0.157833 ;TFRAC(948)=0.158 TFRAC(949)=0.158167 ;TFRAC(950)=0.158333 TFRAC(951)=0.1585 ;TFRAC(952)=0.158667 TFRAC(953)=0.158833 ;TFRAC(954)=0.159 TFRAC(955)=0.159167 ;TFRAC(956)=0.159333 TFRAC(957)=0.1595 ;TFRAC(958)=0.159667 TFRAC(959)=0.159833 ;TFRAC(960)=0.16 TFRAC(961)=0.160167 ;TFRAC(962)=0.160333 TFRAC(963)=0.1605 ;TFRAC(964)=0.160667 TFRAC(965)=0.160833 ;TFRAC(966)=0.161 TFRAC(967)=0.161167 ;TFRAC(968)=0.161333 TFRAC(969)=0.1615 ;TFRAC(970)=0.161667 TFRAC(971)=0.161833 ;TFRAC(972)=0.162 TFRAC(973)=0.162167 ;TFRAC(974)=0.162333 TFRAC(975)=0.1625 ;TFRAC(976)=0.162667 TFRAC(977)=0.162833 ;TFRAC(978)=0.163 TFRAC(979)=0.163167 ;TFRAC(980)=0.163333 TFRAC(981)=0.1635 ;TFRAC(982)=0.163667 TFRAC(983)=0.163833 ;TFRAC(984)=0.164 TFRAC(985)=0.164167 ;TFRAC(986)=0.164333 TFRAC(987)=0.1645 ;TFRAC(988)=0.164667 TFRAC(989)=0.164833 ;TFRAC(990)=0.165 TFRAC(991)=0.165167 ;TFRAC(992)=0.165333 TFRAC(993)=0.1655 ;TFRAC(994)=0.165667 TFRAC(995)=0.165833 ;TFRAC(996)=0.166 TFRAC(997)=0.166167 ;TFRAC(998)=0.166333 TFRAC(999)=0.1665 ;TFRAC(1000)=0.166667 TFRAC(1001)=0.166833 ;TFRAC(1002)=0.167 TFRAC(1003)=0.167167 ;TFRAC(1004)=0.167333 TFRAC(1005)=0.1675 ;TFRAC(1006)=0.167667 TFRAC(1007)=0.167833 ;TFRAC(1008)=0.168 TFRAC(1009)=0.168167 ;TFRAC(1010)=0.168333 TFRAC(1011)=0.1685 ;TFRAC(1012)=0.168667 TFRAC(1013)=0.168833 ;TFRAC(1014)=0.169 TFRAC(1015)=0.169167 ;TFRAC(1016)=0.169333 TFRAC(1017)=0.1695 ;TFRAC(1018)=0.169667 TFRAC(1019)=0.169833 ;TFRAC(1020)=0.17 TFRAC(1021)=0.170167 ;TFRAC(1022)=0.170333 TFRAC(1023)=0.1705 ;TFRAC(1024)=0.170667 TFRAC(1025)=0.170833 ;TFRAC(1026)=0.171 TFRAC(1027)=0.171167 ;TFRAC(1028)=0.171333 TFRAC(1029)=0.1715 ;TFRAC(1030)=0.171667 TFRAC(1031)=0.171833 ;TFRAC(1032)=0.172 TFRAC(1033)=0.172167 ;TFRAC(1034)=0.172333 TFRAC(1035)=0.1725 ;TFRAC(1036)=0.172667 TFRAC(1037)=0.172833 ;TFRAC(1038)=0.173 TFRAC(1039)=0.173167 ;TFRAC(1040)=0.173333 TFRAC(1041)=0.1735 ;TFRAC(1042)=0.173667 TFRAC(1043)=0.173833 ;TFRAC(1044)=0.174 TFRAC(1045)=0.174167 ;TFRAC(1046)=0.174333 TFRAC(1047)=0.1745 ;TFRAC(1048)=0.174667 TFRAC(1049)=0.174833 ;TFRAC(1050)=0.175 TFRAC(1051)=0.175167 ;TFRAC(1052)=0.175333 TFRAC(1053)=0.1755 ;TFRAC(1054)=0.175667 TFRAC(1055)=0.175833 ;TFRAC(1056)=0.176 TFRAC(1057)=0.176167 ;TFRAC(1058)=0.176333 TFRAC(1059)=0.1765 ;TFRAC(1060)=0.176667 TFRAC(1061)=0.176833 ;TFRAC(1062)=0.177 TFRAC(1063)=0.177167 ;TFRAC(1064)=0.177333 TFRAC(1065)=0.1775 ;TFRAC(1066)=0.177667 TFRAC(1067)=0.177833 ;TFRAC(1068)=0.178 TFRAC(1069)=0.178167 ;TFRAC(1070)=0.178333 TFRAC(1071)=0.1785 ;TFRAC(1072)=0.178667 TFRAC(1073)=0.178833 ;TFRAC(1074)=0.179 TFRAC(1075)=0.179167 ;TFRAC(1076)=0.179333 TFRAC(1077)=0.1795 ;TFRAC(1078)=0.179667 TFRAC(1079)=0.179833 ;TFRAC(1080)=0.18 TFRAC(1081)=0.180167 ;TFRAC(1082)=0.180333 TFRAC(1083)=0.1805 ;TFRAC(1084)=0.180667 TFRAC(1085)=0.180833 ;TFRAC(1086)=0.181 TFRAC(1087)=0.181167 ;TFRAC(1088)=0.181333 TFRAC(1089)=0.1815 ;TFRAC(1090)=0.181667 TFRAC(1091)=0.181833 ;TFRAC(1092)=0.182 TFRAC(1093)=0.182167 ;TFRAC(1094)=0.182333 TFRAC(1095)=0.1825 ;TFRAC(1096)=0.182667 TFRAC(1097)=0.182833 ;TFRAC(1098)=0.183 TFRAC(1099)=0.183167 ;TFRAC(1100)=0.183333 TFRAC(1101)=0.1835 ;TFRAC(1102)=0.183667 TFRAC(1103)=0.183833 ;TFRAC(1104)=0.184 TFRAC(1105)=0.184167 ;TFRAC(1106)=0.184333 TFRAC(1107)=0.1845 ;TFRAC(1108)=0.184667 TFRAC(1109)=0.184833 ;TFRAC(1110)=0.185 TFRAC(1111)=0.185167 ;TFRAC(1112)=0.185333 TFRAC(1113)=0.1855 ;TFRAC(1114)=0.185667 TFRAC(1115)=0.185833 ;TFRAC(1116)=0.186 TFRAC(1117)=0.186167 ;TFRAC(1118)=0.186333 TFRAC(1119)=0.1865 ;TFRAC(1120)=0.186667 TFRAC(1121)=0.186833 ;TFRAC(1122)=0.187 TFRAC(1123)=0.187167 ;TFRAC(1124)=0.187333 TFRAC(1125)=0.1875 ;TFRAC(1126)=0.187667 TFRAC(1127)=0.187833 ;TFRAC(1128)=0.188 TFRAC(1129)=0.188167 ;TFRAC(1130)=0.188333 TFRAC(1131)=0.1885 ;TFRAC(1132)=0.188667 TFRAC(1133)=0.188833 ;TFRAC(1134)=0.189 TFRAC(1135)=0.189167 ;TFRAC(1136)=0.189333 TFRAC(1137)=0.1895 ;TFRAC(1138)=0.189667 TFRAC(1139)=0.189833 ;TFRAC(1140)=0.19 TFRAC(1141)=0.190167 ;TFRAC(1142)=0.190333 TFRAC(1143)=0.1905 ;TFRAC(1144)=0.190667 TFRAC(1145)=0.190833 ;TFRAC(1146)=0.191 TFRAC(1147)=0.191167 ;TFRAC(1148)=0.191333 TFRAC(1149)=0.1915 ;TFRAC(1150)=0.191667 TFRAC(1151)=0.191833 ;TFRAC(1152)=0.192 TFRAC(1153)=0.192167 ;TFRAC(1154)=0.192333 TFRAC(1155)=0.1925 ;TFRAC(1156)=0.192667 TFRAC(1157)=0.192833 ;TFRAC(1158)=0.193 TFRAC(1159)=0.193167 ;TFRAC(1160)=0.193333 TFRAC(1161)=0.1935 ;TFRAC(1162)=0.193667 TFRAC(1163)=0.193833 ;TFRAC(1164)=0.194 TFRAC(1165)=0.194167 ;TFRAC(1166)=0.194333 TFRAC(1167)=0.1945 ;TFRAC(1168)=0.194667 TFRAC(1169)=0.194833 ;TFRAC(1170)=0.195 TFRAC(1171)=0.195167 ;TFRAC(1172)=0.195333 TFRAC(1173)=0.1955 ;TFRAC(1174)=0.195667 TFRAC(1175)=0.195833 ;TFRAC(1176)=0.196 TFRAC(1177)=0.196167 ;TFRAC(1178)=0.196333 TFRAC(1179)=0.1965 ;TFRAC(1180)=0.196667 TFRAC(1181)=0.196833 ;TFRAC(1182)=0.197 TFRAC(1183)=0.197167 ;TFRAC(1184)=0.197333 TFRAC(1185)=0.1975 ;TFRAC(1186)=0.197667 TFRAC(1187)=0.197833 ;TFRAC(1188)=0.198 TFRAC(1189)=0.198167 ;TFRAC(1190)=0.198333 TFRAC(1191)=0.1985 ;TFRAC(1192)=0.198667 TFRAC(1193)=0.198833 ;TFRAC(1194)=0.199 TFRAC(1195)=0.199167 ;TFRAC(1196)=0.199333 TFRAC(1197)=0.1995 ;TFRAC(1198)=0.199667 TFRAC(1199)=0.199833 ;TFRAC(1200)=0.2 TFRAC(1201)=0.200167 ;TFRAC(1202)=0.200333 TFRAC(1203)=0.2005 ;TFRAC(1204)=0.200667 TFRAC(1205)=0.200833 ;TFRAC(1206)=0.201 TFRAC(1207)=0.201167 ;TFRAC(1208)=0.201333 TFRAC(1209)=0.2015 ;TFRAC(1210)=0.201667 TFRAC(1211)=0.201833 ;TFRAC(1212)=0.202 TFRAC(1213)=0.202167 ;TFRAC(1214)=0.202333 TFRAC(1215)=0.2025 ;TFRAC(1216)=0.202667 TFRAC(1217)=0.202833 ;TFRAC(1218)=0.203 TFRAC(1219)=0.203167 ;TFRAC(1220)=0.203333 TFRAC(1221)=0.2035 ;TFRAC(1222)=0.203667 TFRAC(1223)=0.203833 ;TFRAC(1224)=0.204 TFRAC(1225)=0.204167 ;TFRAC(1226)=0.204333 TFRAC(1227)=0.2045 ;TFRAC(1228)=0.204667 TFRAC(1229)=0.204833 ;TFRAC(1230)=0.205 TFRAC(1231)=0.205167 ;TFRAC(1232)=0.205333 TFRAC(1233)=0.2055 ;TFRAC(1234)=0.205667 TFRAC(1235)=0.205833 ;TFRAC(1236)=0.206 TFRAC(1237)=0.206167 ;TFRAC(1238)=0.206333 TFRAC(1239)=0.2065 ;TFRAC(1240)=0.206667 TFRAC(1241)=0.206833 ;TFRAC(1242)=0.207 TFRAC(1243)=0.207167 ;TFRAC(1244)=0.207333 TFRAC(1245)=0.2075 ;TFRAC(1246)=0.207667 TFRAC(1247)=0.207833 ;TFRAC(1248)=0.208 TFRAC(1249)=0.208167 ;TFRAC(1250)=0.208333 TFRAC(1251)=0.2085 ;TFRAC(1252)=0.208667 TFRAC(1253)=0.208833 ;TFRAC(1254)=0.209 TFRAC(1255)=0.209167 ;TFRAC(1256)=0.209333 TFRAC(1257)=0.2095 ;TFRAC(1258)=0.209667 TFRAC(1259)=0.209833 ;TFRAC(1260)=0.21 TFRAC(1261)=0.210167 ;TFRAC(1262)=0.210333 TFRAC(1263)=0.2105 ;TFRAC(1264)=0.210667 TFRAC(1265)=0.210833 ;TFRAC(1266)=0.211 TFRAC(1267)=0.211167 ;TFRAC(1268)=0.211333 TFRAC(1269)=0.2115 ;TFRAC(1270)=0.211667 TFRAC(1271)=0.211833 ;TFRAC(1272)=0.212 TFRAC(1273)=0.212167 ;TFRAC(1274)=0.212333 TFRAC(1275)=0.2125 ;TFRAC(1276)=0.212667 TFRAC(1277)=0.212833 ;TFRAC(1278)=0.213 TFRAC(1279)=0.213167 ;TFRAC(1280)=0.213333 TFRAC(1281)=0.2135 ;TFRAC(1282)=0.213667 TFRAC(1283)=0.213833 ;TFRAC(1284)=0.214 TFRAC(1285)=0.214167 ;TFRAC(1286)=0.214333 TFRAC(1287)=0.2145 ;TFRAC(1288)=0.214667 TFRAC(1289)=0.214833 ;TFRAC(1290)=0.215 TFRAC(1291)=0.215167 ;TFRAC(1292)=0.215333 TFRAC(1293)=0.2155 ;TFRAC(1294)=0.215667 TFRAC(1295)=0.215833 ;TFRAC(1296)=0.216 TFRAC(1297)=0.216167 ;TFRAC(1298)=0.216333 TFRAC(1299)=0.2165 ;TFRAC(1300)=0.216667 TFRAC(1301)=0.216833 ;TFRAC(1302)=0.217 TFRAC(1303)=0.217167 ;TFRAC(1304)=0.217333 TFRAC(1305)=0.2175 ;TFRAC(1306)=0.217667 TFRAC(1307)=0.217833 ;TFRAC(1308)=0.218 TFRAC(1309)=0.218167 ;TFRAC(1310)=0.218333 TFRAC(1311)=0.2185 ;TFRAC(1312)=0.218667 TFRAC(1313)=0.218833 ;TFRAC(1314)=0.219 TFRAC(1315)=0.219167 ;TFRAC(1316)=0.219333 TFRAC(1317)=0.2195 ;TFRAC(1318)=0.219667 TFRAC(1319)=0.219833 ;TFRAC(1320)=0.22 TFRAC(1321)=0.220167 ;TFRAC(1322)=0.220333 TFRAC(1323)=0.2205 ;TFRAC(1324)=0.220667 TFRAC(1325)=0.220833 ;TFRAC(1326)=0.221 TFRAC(1327)=0.221167 ;TFRAC(1328)=0.221333 TFRAC(1329)=0.2215 ;TFRAC(1330)=0.221667 TFRAC(1331)=0.221833 ;TFRAC(1332)=0.222 TFRAC(1333)=0.222167 ;TFRAC(1334)=0.222333 TFRAC(1335)=0.2225 ;TFRAC(1336)=0.222667 TFRAC(1337)=0.222833 ;TFRAC(1338)=0.223 TFRAC(1339)=0.223167 ;TFRAC(1340)=0.223333 TFRAC(1341)=0.2235 ;TFRAC(1342)=0.223667 TFRAC(1343)=0.223833 ;TFRAC(1344)=0.224 TFRAC(1345)=0.224167 ;TFRAC(1346)=0.224333 TFRAC(1347)=0.2245 ;TFRAC(1348)=0.224667 TFRAC(1349)=0.224833 ;TFRAC(1350)=0.225 TFRAC(1351)=0.225167 ;TFRAC(1352)=0.225333 TFRAC(1353)=0.2255 ;TFRAC(1354)=0.225667 TFRAC(1355)=0.225833 ;TFRAC(1356)=0.226 TFRAC(1357)=0.226167 ;TFRAC(1358)=0.226333 TFRAC(1359)=0.2265 ;TFRAC(1360)=0.226667 TFRAC(1361)=0.226833 ;TFRAC(1362)=0.227 TFRAC(1363)=0.227167 ;TFRAC(1364)=0.227333 TFRAC(1365)=0.2275 ;TFRAC(1366)=0.227667 TFRAC(1367)=0.227833 ;TFRAC(1368)=0.228 TFRAC(1369)=0.228167 ;TFRAC(1370)=0.228333 TFRAC(1371)=0.2285 ;TFRAC(1372)=0.228667 TFRAC(1373)=0.228833 ;TFRAC(1374)=0.229 TFRAC(1375)=0.229167 ;TFRAC(1376)=0.229333 TFRAC(1377)=0.2295 ;TFRAC(1378)=0.229667 TFRAC(1379)=0.229833 ;TFRAC(1380)=0.23 TFRAC(1381)=0.230167 ;TFRAC(1382)=0.230333 TFRAC(1383)=0.2305 ;TFRAC(1384)=0.230667 TFRAC(1385)=0.230833 ;TFRAC(1386)=0.231 TFRAC(1387)=0.231167 ;TFRAC(1388)=0.231333 TFRAC(1389)=0.2315 ;TFRAC(1390)=0.231667 TFRAC(1391)=0.231833 ;TFRAC(1392)=0.232 TFRAC(1393)=0.232167 ;TFRAC(1394)=0.232333 TFRAC(1395)=0.2325 ;TFRAC(1396)=0.232667 TFRAC(1397)=0.232833 ;TFRAC(1398)=0.233 TFRAC(1399)=0.233167 ;TFRAC(1400)=0.233333 TFRAC(1401)=0.2335 ;TFRAC(1402)=0.233667 TFRAC(1403)=0.233833 ;TFRAC(1404)=0.234 TFRAC(1405)=0.234167 ;TFRAC(1406)=0.234333 TFRAC(1407)=0.2345 ;TFRAC(1408)=0.234667 TFRAC(1409)=0.234833 ;TFRAC(1410)=0.235 TFRAC(1411)=0.235167 ;TFRAC(1412)=0.235333 TFRAC(1413)=0.2355 ;TFRAC(1414)=0.235667 TFRAC(1415)=0.235833 ;TFRAC(1416)=0.236 TFRAC(1417)=0.236167 ;TFRAC(1418)=0.236333 TFRAC(1419)=0.2365 ;TFRAC(1420)=0.236667 TFRAC(1421)=0.236833 ;TFRAC(1422)=0.237 TFRAC(1423)=0.237167 ;TFRAC(1424)=0.237333 TFRAC(1425)=0.2375 ;TFRAC(1426)=0.237667 TFRAC(1427)=0.237833 ;TFRAC(1428)=0.238 TFRAC(1429)=0.238167 ;TFRAC(1430)=0.238333 TFRAC(1431)=0.2385 ;TFRAC(1432)=0.238667 TFRAC(1433)=0.238833 ;TFRAC(1434)=0.239 TFRAC(1435)=0.239167 ;TFRAC(1436)=0.239333 TFRAC(1437)=0.2395 ;TFRAC(1438)=0.239667 TFRAC(1439)=0.239833 ;TFRAC(1440)=0.24 TFRAC(1441)=0.240167 ;TFRAC(1442)=0.240333 TFRAC(1443)=0.2405 ;TFRAC(1444)=0.240667 TFRAC(1445)=0.240833 ;TFRAC(1446)=0.241 TFRAC(1447)=0.241167 ;TFRAC(1448)=0.241333 TFRAC(1449)=0.2415 ;TFRAC(1450)=0.241667 TFRAC(1451)=0.241833 ;TFRAC(1452)=0.242 TFRAC(1453)=0.242167 ;TFRAC(1454)=0.242333 TFRAC(1455)=0.2425 ;TFRAC(1456)=0.242667 TFRAC(1457)=0.242833 ;TFRAC(1458)=0.243 TFRAC(1459)=0.243167 ;TFRAC(1460)=0.243333 TFRAC(1461)=0.2435 ;TFRAC(1462)=0.243667 TFRAC(1463)=0.243833 ;TFRAC(1464)=0.244 TFRAC(1465)=0.244167 ;TFRAC(1466)=0.244333 TFRAC(1467)=0.2445 ;TFRAC(1468)=0.244667 TFRAC(1469)=0.244833 ;TFRAC(1470)=0.245 TFRAC(1471)=0.245167 ;TFRAC(1472)=0.245333 TFRAC(1473)=0.2455 ;TFRAC(1474)=0.245667 TFRAC(1475)=0.245833 ;TFRAC(1476)=0.246 TFRAC(1477)=0.246167 ;TFRAC(1478)=0.246333 TFRAC(1479)=0.2465 ;TFRAC(1480)=0.246667 TFRAC(1481)=0.246833 ;TFRAC(1482)=0.247 TFRAC(1483)=0.247167 ;TFRAC(1484)=0.247333 TFRAC(1485)=0.2475 ;TFRAC(1486)=0.247667 TFRAC(1487)=0.247833 ;TFRAC(1488)=0.248 TFRAC(1489)=0.248167 ;TFRAC(1490)=0.248333 TFRAC(1491)=0.2485 ;TFRAC(1492)=0.248667 TFRAC(1493)=0.248833 ;TFRAC(1494)=0.249 TFRAC(1495)=0.249167 ;TFRAC(1496)=0.249333 TFRAC(1497)=0.2495 ;TFRAC(1498)=0.249667 TFRAC(1499)=0.249833 ;TFRAC(1500)=0.25 TFRAC(1501)=0.250167 ;TFRAC(1502)=0.250333 TFRAC(1503)=0.2505 ;TFRAC(1504)=0.250667 TFRAC(1505)=0.250833 ;TFRAC(1506)=0.251 TFRAC(1507)=0.251167 ;TFRAC(1508)=0.251333 TFRAC(1509)=0.2515 ;TFRAC(1510)=0.251667 TFRAC(1511)=0.251833 ;TFRAC(1512)=0.252 TFRAC(1513)=0.252167 ;TFRAC(1514)=0.252333 TFRAC(1515)=0.2525 ;TFRAC(1516)=0.252667 TFRAC(1517)=0.252833 ;TFRAC(1518)=0.253 TFRAC(1519)=0.253167 ;TFRAC(1520)=0.253333 TFRAC(1521)=0.2535 ;TFRAC(1522)=0.253667 TFRAC(1523)=0.253833 ;TFRAC(1524)=0.254 TFRAC(1525)=0.254167 ;TFRAC(1526)=0.254333 TFRAC(1527)=0.2545 ;TFRAC(1528)=0.254667 TFRAC(1529)=0.254833 ;TFRAC(1530)=0.255 TFRAC(1531)=0.255167 ;TFRAC(1532)=0.255333 TFRAC(1533)=0.2555 ;TFRAC(1534)=0.255667 TFRAC(1535)=0.255833 ;TFRAC(1536)=0.256 TFRAC(1537)=0.256167 ;TFRAC(1538)=0.256333 TFRAC(1539)=0.2565 ;TFRAC(1540)=0.256667 TFRAC(1541)=0.256833 ;TFRAC(1542)=0.257 TFRAC(1543)=0.257167 ;TFRAC(1544)=0.257333 TFRAC(1545)=0.2575 ;TFRAC(1546)=0.257667 TFRAC(1547)=0.257833 ;TFRAC(1548)=0.258 TFRAC(1549)=0.258167 ;TFRAC(1550)=0.258333 TFRAC(1551)=0.2585 ;TFRAC(1552)=0.258667 TFRAC(1553)=0.258833 ;TFRAC(1554)=0.259 TFRAC(1555)=0.259167 ;TFRAC(1556)=0.259333 TFRAC(1557)=0.2595 ;TFRAC(1558)=0.259667 TFRAC(1559)=0.259833 ;TFRAC(1560)=0.26 TFRAC(1561)=0.260167 ;TFRAC(1562)=0.260333 TFRAC(1563)=0.2605 ;TFRAC(1564)=0.260667 TFRAC(1565)=0.260833 ;TFRAC(1566)=0.261 TFRAC(1567)=0.261167 ;TFRAC(1568)=0.261333 TFRAC(1569)=0.2615 ;TFRAC(1570)=0.261667 TFRAC(1571)=0.261833 ;TFRAC(1572)=0.262 TFRAC(1573)=0.262167 ;TFRAC(1574)=0.262333 TFRAC(1575)=0.2625 ;TFRAC(1576)=0.262667 TFRAC(1577)=0.262833 ;TFRAC(1578)=0.263 TFRAC(1579)=0.263167 ;TFRAC(1580)=0.263333 TFRAC(1581)=0.2635 ;TFRAC(1582)=0.263667 TFRAC(1583)=0.263833 ;TFRAC(1584)=0.264 TFRAC(1585)=0.264167 ;TFRAC(1586)=0.264333 TFRAC(1587)=0.2645 ;TFRAC(1588)=0.264667 TFRAC(1589)=0.264833 ;TFRAC(1590)=0.265 TFRAC(1591)=0.265167 ;TFRAC(1592)=0.265333 TFRAC(1593)=0.2655 ;TFRAC(1594)=0.265667 TFRAC(1595)=0.265833 ;TFRAC(1596)=0.266 TFRAC(1597)=0.266167 ;TFRAC(1598)=0.266333 TFRAC(1599)=0.2665 ;TFRAC(1600)=0.266667 TFRAC(1601)=0.266833 ;TFRAC(1602)=0.267 TFRAC(1603)=0.267167 ;TFRAC(1604)=0.267333 TFRAC(1605)=0.2675 ;TFRAC(1606)=0.267667 TFRAC(1607)=0.267833 ;TFRAC(1608)=0.268 TFRAC(1609)=0.268167 ;TFRAC(1610)=0.268333 TFRAC(1611)=0.2685 ;TFRAC(1612)=0.268667 TFRAC(1613)=0.268833 ;TFRAC(1614)=0.269 TFRAC(1615)=0.269167 ;TFRAC(1616)=0.269333 TFRAC(1617)=0.2695 ;TFRAC(1618)=0.269667 TFRAC(1619)=0.269833 ;TFRAC(1620)=0.27 TFRAC(1621)=0.270167 ;TFRAC(1622)=0.270333 TFRAC(1623)=0.2705 ;TFRAC(1624)=0.270667 TFRAC(1625)=0.270833 ;TFRAC(1626)=0.271 TFRAC(1627)=0.271167 ;TFRAC(1628)=0.271333 TFRAC(1629)=0.2715 ;TFRAC(1630)=0.271667 TFRAC(1631)=0.271833 ;TFRAC(1632)=0.272 TFRAC(1633)=0.272167 ;TFRAC(1634)=0.272333 TFRAC(1635)=0.2725 ;TFRAC(1636)=0.272667 TFRAC(1637)=0.272833 ;TFRAC(1638)=0.273 TFRAC(1639)=0.273167 ;TFRAC(1640)=0.273333 TFRAC(1641)=0.2735 ;TFRAC(1642)=0.273667 TFRAC(1643)=0.273833 ;TFRAC(1644)=0.274 TFRAC(1645)=0.274167 ;TFRAC(1646)=0.274333 TFRAC(1647)=0.2745 ;TFRAC(1648)=0.274667 TFRAC(1649)=0.274833 ;TFRAC(1650)=0.275 TFRAC(1651)=0.275167 ;TFRAC(1652)=0.275333 TFRAC(1653)=0.2755 ;TFRAC(1654)=0.275667 TFRAC(1655)=0.275833 ;TFRAC(1656)=0.276 TFRAC(1657)=0.276167 ;TFRAC(1658)=0.276333 TFRAC(1659)=0.2765 ;TFRAC(1660)=0.276667 TFRAC(1661)=0.276833 ;TFRAC(1662)=0.277 TFRAC(1663)=0.277167 ;TFRAC(1664)=0.277333 TFRAC(1665)=0.2775 ;TFRAC(1666)=0.277667 TFRAC(1667)=0.277833 ;TFRAC(1668)=0.278 TFRAC(1669)=0.278167 ;TFRAC(1670)=0.278333 TFRAC(1671)=0.2785 ;TFRAC(1672)=0.278667 TFRAC(1673)=0.278833 ;TFRAC(1674)=0.279 TFRAC(1675)=0.279167 ;TFRAC(1676)=0.279333 TFRAC(1677)=0.2795 ;TFRAC(1678)=0.279667 TFRAC(1679)=0.279833 ;TFRAC(1680)=0.28 TFRAC(1681)=0.280167 ;TFRAC(1682)=0.280333 TFRAC(1683)=0.2805 ;TFRAC(1684)=0.280667 TFRAC(1685)=0.280833 ;TFRAC(1686)=0.281 TFRAC(1687)=0.281167 ;TFRAC(1688)=0.281333 TFRAC(1689)=0.2815 ;TFRAC(1690)=0.281667 TFRAC(1691)=0.281833 ;TFRAC(1692)=0.282 TFRAC(1693)=0.282167 ;TFRAC(1694)=0.282333 TFRAC(1695)=0.2825 ;TFRAC(1696)=0.282667 TFRAC(1697)=0.282833 ;TFRAC(1698)=0.283 TFRAC(1699)=0.283167 ;TFRAC(1700)=0.283333 TFRAC(1701)=0.2835 ;TFRAC(1702)=0.283667 TFRAC(1703)=0.283833 ;TFRAC(1704)=0.284 TFRAC(1705)=0.284167 ;TFRAC(1706)=0.284333 TFRAC(1707)=0.2845 ;TFRAC(1708)=0.284667 TFRAC(1709)=0.284833 ;TFRAC(1710)=0.285 TFRAC(1711)=0.285167 ;TFRAC(1712)=0.285333 TFRAC(1713)=0.2855 ;TFRAC(1714)=0.285667 TFRAC(1715)=0.285833 ;TFRAC(1716)=0.286 TFRAC(1717)=0.286167 ;TFRAC(1718)=0.286333 TFRAC(1719)=0.2865 ;TFRAC(1720)=0.286667 TFRAC(1721)=0.286833 ;TFRAC(1722)=0.287 TFRAC(1723)=0.287167 ;TFRAC(1724)=0.287333 TFRAC(1725)=0.2875 ;TFRAC(1726)=0.287667 TFRAC(1727)=0.287833 ;TFRAC(1728)=0.288 TFRAC(1729)=0.288167 ;TFRAC(1730)=0.288333 TFRAC(1731)=0.2885 ;TFRAC(1732)=0.288667 TFRAC(1733)=0.288833 ;TFRAC(1734)=0.289 TFRAC(1735)=0.289167 ;TFRAC(1736)=0.289333 TFRAC(1737)=0.2895 ;TFRAC(1738)=0.289667 TFRAC(1739)=0.289833 ;TFRAC(1740)=0.29 TFRAC(1741)=0.290167 ;TFRAC(1742)=0.290333 TFRAC(1743)=0.2905 ;TFRAC(1744)=0.290667 TFRAC(1745)=0.290833 ;TFRAC(1746)=0.291 TFRAC(1747)=0.291167 ;TFRAC(1748)=0.291333 TFRAC(1749)=0.2915 ;TFRAC(1750)=0.291667 TFRAC(1751)=0.291833 ;TFRAC(1752)=0.292 TFRAC(1753)=0.292167 ;TFRAC(1754)=0.292333 TFRAC(1755)=0.2925 ;TFRAC(1756)=0.292667 TFRAC(1757)=0.292833 ;TFRAC(1758)=0.293 TFRAC(1759)=0.293167 ;TFRAC(1760)=0.293333 TFRAC(1761)=0.2935 ;TFRAC(1762)=0.293667 TFRAC(1763)=0.293833 ;TFRAC(1764)=0.294 TFRAC(1765)=0.294167 ;TFRAC(1766)=0.294333 TFRAC(1767)=0.2945 ;TFRAC(1768)=0.294667 TFRAC(1769)=0.294833 ;TFRAC(1770)=0.295 TFRAC(1771)=0.295167 ;TFRAC(1772)=0.295333 TFRAC(1773)=0.2955 ;TFRAC(1774)=0.295667 TFRAC(1775)=0.295833 ;TFRAC(1776)=0.296 TFRAC(1777)=0.296167 ;TFRAC(1778)=0.296333 TFRAC(1779)=0.2965 ;TFRAC(1780)=0.296667 TFRAC(1781)=0.296833 ;TFRAC(1782)=0.297 TFRAC(1783)=0.297167 ;TFRAC(1784)=0.297333 TFRAC(1785)=0.2975 ;TFRAC(1786)=0.297667 TFRAC(1787)=0.297833 ;TFRAC(1788)=0.298 TFRAC(1789)=0.298167 ;TFRAC(1790)=0.298333 TFRAC(1791)=0.2985 ;TFRAC(1792)=0.298667 TFRAC(1793)=0.298833 ;TFRAC(1794)=0.299 TFRAC(1795)=0.299167 ;TFRAC(1796)=0.299333 TFRAC(1797)=0.2995 ;TFRAC(1798)=0.299667 TFRAC(1799)=0.299833 ;TFRAC(1800)=0.3 TFRAC(1801)=0.300167 ;TFRAC(1802)=0.300333 TFRAC(1803)=0.3005 ;TFRAC(1804)=0.300667 TFRAC(1805)=0.300833 ;TFRAC(1806)=0.301 TFRAC(1807)=0.301167 ;TFRAC(1808)=0.301333 TFRAC(1809)=0.3015 ;TFRAC(1810)=0.301667 TFRAC(1811)=0.301833 ;TFRAC(1812)=0.302 TFRAC(1813)=0.302167 ;TFRAC(1814)=0.302333 TFRAC(1815)=0.3025 ;TFRAC(1816)=0.302667 TFRAC(1817)=0.302833 ;TFRAC(1818)=0.303 TFRAC(1819)=0.303167 ;TFRAC(1820)=0.303333 TFRAC(1821)=0.3035 ;TFRAC(1822)=0.303667 TFRAC(1823)=0.303833 ;TFRAC(1824)=0.304 TFRAC(1825)=0.304167 ;TFRAC(1826)=0.304333 TFRAC(1827)=0.3045 ;TFRAC(1828)=0.304667 TFRAC(1829)=0.304833 ;TFRAC(1830)=0.305 TFRAC(1831)=0.305167 ;TFRAC(1832)=0.305333 TFRAC(1833)=0.3055 ;TFRAC(1834)=0.305667 TFRAC(1835)=0.305833 ;TFRAC(1836)=0.306 TFRAC(1837)=0.306167 ;TFRAC(1838)=0.306333 TFRAC(1839)=0.3065 ;TFRAC(1840)=0.306667 TFRAC(1841)=0.306833 ;TFRAC(1842)=0.307 TFRAC(1843)=0.307167 ;TFRAC(1844)=0.307333 TFRAC(1845)=0.3075 ;TFRAC(1846)=0.307667 TFRAC(1847)=0.307833 ;TFRAC(1848)=0.308 TFRAC(1849)=0.308167 ;TFRAC(1850)=0.308333 TFRAC(1851)=0.3085 ;TFRAC(1852)=0.308667 TFRAC(1853)=0.308833 ;TFRAC(1854)=0.309 TFRAC(1855)=0.309167 ;TFRAC(1856)=0.309333 TFRAC(1857)=0.3095 ;TFRAC(1858)=0.309667 TFRAC(1859)=0.309833 ;TFRAC(1860)=0.31 TFRAC(1861)=0.310167 ;TFRAC(1862)=0.310333 TFRAC(1863)=0.3105 ;TFRAC(1864)=0.310667 TFRAC(1865)=0.310833 ;TFRAC(1866)=0.311 TFRAC(1867)=0.311167 ;TFRAC(1868)=0.311333 TFRAC(1869)=0.3115 ;TFRAC(1870)=0.311667 TFRAC(1871)=0.311833 ;TFRAC(1872)=0.312 TFRAC(1873)=0.312167 ;TFRAC(1874)=0.312333 TFRAC(1875)=0.3125 ;TFRAC(1876)=0.312667 TFRAC(1877)=0.312833 ;TFRAC(1878)=0.313 TFRAC(1879)=0.313167 ;TFRAC(1880)=0.313333 TFRAC(1881)=0.3135 ;TFRAC(1882)=0.313667 TFRAC(1883)=0.313833 ;TFRAC(1884)=0.314 TFRAC(1885)=0.314167 ;TFRAC(1886)=0.314333 TFRAC(1887)=0.3145 ;TFRAC(1888)=0.314667 TFRAC(1889)=0.314833 ;TFRAC(1890)=0.315 TFRAC(1891)=0.315167 ;TFRAC(1892)=0.315333 TFRAC(1893)=0.3155 ;TFRAC(1894)=0.315667 TFRAC(1895)=0.315833 ;TFRAC(1896)=0.316 TFRAC(1897)=0.316167 ;TFRAC(1898)=0.316333 TFRAC(1899)=0.3165 ;TFRAC(1900)=0.316667 TFRAC(1901)=0.316833 ;TFRAC(1902)=0.317 TFRAC(1903)=0.317167 ;TFRAC(1904)=0.317333 TFRAC(1905)=0.3175 ;TFRAC(1906)=0.317667 TFRAC(1907)=0.317833 ;TFRAC(1908)=0.318 TFRAC(1909)=0.318167 ;TFRAC(1910)=0.318333 TFRAC(1911)=0.3185 ;TFRAC(1912)=0.318667 TFRAC(1913)=0.318833 ;TFRAC(1914)=0.319 TFRAC(1915)=0.319167 ;TFRAC(1916)=0.319333 TFRAC(1917)=0.3195 ;TFRAC(1918)=0.319667 TFRAC(1919)=0.319833 ;TFRAC(1920)=0.32 TFRAC(1921)=0.320167 ;TFRAC(1922)=0.320333 TFRAC(1923)=0.3205 ;TFRAC(1924)=0.320667 TFRAC(1925)=0.320833 ;TFRAC(1926)=0.321 TFRAC(1927)=0.321167 ;TFRAC(1928)=0.321333 TFRAC(1929)=0.3215 ;TFRAC(1930)=0.321667 TFRAC(1931)=0.321833 ;TFRAC(1932)=0.322 TFRAC(1933)=0.322167 ;TFRAC(1934)=0.322333 TFRAC(1935)=0.3225 ;TFRAC(1936)=0.322667 TFRAC(1937)=0.322833 ;TFRAC(1938)=0.323 TFRAC(1939)=0.323167 ;TFRAC(1940)=0.323333 TFRAC(1941)=0.3235 ;TFRAC(1942)=0.323667 TFRAC(1943)=0.323833 ;TFRAC(1944)=0.324 TFRAC(1945)=0.324167 ;TFRAC(1946)=0.324333 TFRAC(1947)=0.3245 ;TFRAC(1948)=0.324667 TFRAC(1949)=0.324833 ;TFRAC(1950)=0.325 TFRAC(1951)=0.325167 ;TFRAC(1952)=0.325333 TFRAC(1953)=0.3255 ;TFRAC(1954)=0.325667 TFRAC(1955)=0.325833 ;TFRAC(1956)=0.326 TFRAC(1957)=0.326167 ;TFRAC(1958)=0.326333 TFRAC(1959)=0.3265 ;TFRAC(1960)=0.326667 TFRAC(1961)=0.326833 ;TFRAC(1962)=0.327 TFRAC(1963)=0.327167 ;TFRAC(1964)=0.327333 TFRAC(1965)=0.3275 ;TFRAC(1966)=0.327667 TFRAC(1967)=0.327833 ;TFRAC(1968)=0.328 TFRAC(1969)=0.328167 ;TFRAC(1970)=0.328333 TFRAC(1971)=0.3285 ;TFRAC(1972)=0.328667 TFRAC(1973)=0.328833 ;TFRAC(1974)=0.329 TFRAC(1975)=0.329167 ;TFRAC(1976)=0.329333 TFRAC(1977)=0.3295 ;TFRAC(1978)=0.329667 TFRAC(1979)=0.329833 ;TFRAC(1980)=0.33 TFRAC(1981)=0.330167 ;TFRAC(1982)=0.330333 TFRAC(1983)=0.3305 ;TFRAC(1984)=0.330667 TFRAC(1985)=0.330833 ;TFRAC(1986)=0.331 TFRAC(1987)=0.331167 ;TFRAC(1988)=0.331333 TFRAC(1989)=0.3315 ;TFRAC(1990)=0.331667 TFRAC(1991)=0.331833 ;TFRAC(1992)=0.332 TFRAC(1993)=0.332167 ;TFRAC(1994)=0.332333 TFRAC(1995)=0.3325 ;TFRAC(1996)=0.332667 TFRAC(1997)=0.332833 ;TFRAC(1998)=0.333 TFRAC(1999)=0.333167 ;TFRAC(2000)=0.333333 TFRAC(2001)=0.3335 ;TFRAC(2002)=0.333667 TFRAC(2003)=0.333833 ;TFRAC(2004)=0.334 TFRAC(2005)=0.334167 ;TFRAC(2006)=0.334333 TFRAC(2007)=0.3345 ;TFRAC(2008)=0.334667 TFRAC(2009)=0.334833 ;TFRAC(2010)=0.335 TFRAC(2011)=0.335167 ;TFRAC(2012)=0.335333 TFRAC(2013)=0.3355 ;TFRAC(2014)=0.335667 TFRAC(2015)=0.335833 ;TFRAC(2016)=0.336 TFRAC(2017)=0.336167 ;TFRAC(2018)=0.336333 TFRAC(2019)=0.3365 ;TFRAC(2020)=0.336667 TFRAC(2021)=0.336833 ;TFRAC(2022)=0.337 TFRAC(2023)=0.337167 ;TFRAC(2024)=0.337333 TFRAC(2025)=0.3375 ;TFRAC(2026)=0.337667 TFRAC(2027)=0.337833 ;TFRAC(2028)=0.338 TFRAC(2029)=0.338167 ;TFRAC(2030)=0.338333 TFRAC(2031)=0.3385 ;TFRAC(2032)=0.338667 TFRAC(2033)=0.338833 ;TFRAC(2034)=0.339 TFRAC(2035)=0.339167 ;TFRAC(2036)=0.339333 TFRAC(2037)=0.3395 ;TFRAC(2038)=0.339667 TFRAC(2039)=0.339833 ;TFRAC(2040)=0.34 TFRAC(2041)=0.340167 ;TFRAC(2042)=0.340333 TFRAC(2043)=0.3405 ;TFRAC(2044)=0.340667 TFRAC(2045)=0.340833 ;TFRAC(2046)=0.341 TFRAC(2047)=0.341167 ;TFRAC(2048)=0.341333 TFRAC(2049)=0.3415 ;TFRAC(2050)=0.341667 TFRAC(2051)=0.341833 ;TFRAC(2052)=0.342 TFRAC(2053)=0.342167 ;TFRAC(2054)=0.342333 TFRAC(2055)=0.3425 ;TFRAC(2056)=0.342667 TFRAC(2057)=0.342833 ;TFRAC(2058)=0.343 TFRAC(2059)=0.343167 ;TFRAC(2060)=0.343333 TFRAC(2061)=0.3435 ;TFRAC(2062)=0.343667 TFRAC(2063)=0.343833 ;TFRAC(2064)=0.344 TFRAC(2065)=0.344167 ;TFRAC(2066)=0.344333 TFRAC(2067)=0.3445 ;TFRAC(2068)=0.344667 TFRAC(2069)=0.344833 ;TFRAC(2070)=0.345 TFRAC(2071)=0.345167 ;TFRAC(2072)=0.345333 TFRAC(2073)=0.3455 ;TFRAC(2074)=0.345667 TFRAC(2075)=0.345833 ;TFRAC(2076)=0.346 TFRAC(2077)=0.346167 ;TFRAC(2078)=0.346333 TFRAC(2079)=0.3465 ;TFRAC(2080)=0.346667 TFRAC(2081)=0.346833 ;TFRAC(2082)=0.347 TFRAC(2083)=0.347167 ;TFRAC(2084)=0.347333 TFRAC(2085)=0.3475 ;TFRAC(2086)=0.347667 TFRAC(2087)=0.347833 ;TFRAC(2088)=0.348 TFRAC(2089)=0.348167 ;TFRAC(2090)=0.348333 TFRAC(2091)=0.3485 ;TFRAC(2092)=0.348667 TFRAC(2093)=0.348833 ;TFRAC(2094)=0.349 TFRAC(2095)=0.349167 ;TFRAC(2096)=0.349333 TFRAC(2097)=0.3495 ;TFRAC(2098)=0.349667 TFRAC(2099)=0.349833 ;TFRAC(2100)=0.35 TFRAC(2101)=0.350167 ;TFRAC(2102)=0.350333 TFRAC(2103)=0.3505 ;TFRAC(2104)=0.350667 TFRAC(2105)=0.350833 ;TFRAC(2106)=0.351 TFRAC(2107)=0.351167 ;TFRAC(2108)=0.351333 TFRAC(2109)=0.3515 ;TFRAC(2110)=0.351667 TFRAC(2111)=0.351833 ;TFRAC(2112)=0.352 TFRAC(2113)=0.352167 ;TFRAC(2114)=0.352333 TFRAC(2115)=0.3525 ;TFRAC(2116)=0.352667 TFRAC(2117)=0.352833 ;TFRAC(2118)=0.353 TFRAC(2119)=0.353167 ;TFRAC(2120)=0.353333 TFRAC(2121)=0.3535 ;TFRAC(2122)=0.353667 TFRAC(2123)=0.353833 ;TFRAC(2124)=0.354 TFRAC(2125)=0.354167 ;TFRAC(2126)=0.354333 TFRAC(2127)=0.3545 ;TFRAC(2128)=0.354667 TFRAC(2129)=0.354833 ;TFRAC(2130)=0.355 TFRAC(2131)=0.355167 ;TFRAC(2132)=0.355333 TFRAC(2133)=0.3555 ;TFRAC(2134)=0.355667 TFRAC(2135)=0.355833 ;TFRAC(2136)=0.356 TFRAC(2137)=0.356167 ;TFRAC(2138)=0.356333 TFRAC(2139)=0.3565 ;TFRAC(2140)=0.356667 TFRAC(2141)=0.356833 ;TFRAC(2142)=0.357 TFRAC(2143)=0.357167 ;TFRAC(2144)=0.357333 TFRAC(2145)=0.3575 ;TFRAC(2146)=0.357667 TFRAC(2147)=0.357833 ;TFRAC(2148)=0.358 TFRAC(2149)=0.358167 ;TFRAC(2150)=0.358333 TFRAC(2151)=0.3585 ;TFRAC(2152)=0.358667 TFRAC(2153)=0.358833 ;TFRAC(2154)=0.359 TFRAC(2155)=0.359167 ;TFRAC(2156)=0.359333 TFRAC(2157)=0.3595 ;TFRAC(2158)=0.359667 TFRAC(2159)=0.359833 ;TFRAC(2160)=0.36 TFRAC(2161)=0.360167 ;TFRAC(2162)=0.360333 TFRAC(2163)=0.3605 ;TFRAC(2164)=0.360667 TFRAC(2165)=0.360833 ;TFRAC(2166)=0.361 TFRAC(2167)=0.361167 ;TFRAC(2168)=0.361333 TFRAC(2169)=0.3615 ;TFRAC(2170)=0.361667 TFRAC(2171)=0.361833 ;TFRAC(2172)=0.362 TFRAC(2173)=0.362167 ;TFRAC(2174)=0.362333 TFRAC(2175)=0.3625 ;TFRAC(2176)=0.362667 TFRAC(2177)=0.362833 ;TFRAC(2178)=0.363 TFRAC(2179)=0.363167 ;TFRAC(2180)=0.363333 TFRAC(2181)=0.3635 ;TFRAC(2182)=0.363667 TFRAC(2183)=0.363833 ;TFRAC(2184)=0.364 TFRAC(2185)=0.364167 ;TFRAC(2186)=0.364333 TFRAC(2187)=0.3645 ;TFRAC(2188)=0.364667 TFRAC(2189)=0.364833 ;TFRAC(2190)=0.365 TFRAC(2191)=0.365167 ;TFRAC(2192)=0.365333 TFRAC(2193)=0.3655 ;TFRAC(2194)=0.365667 TFRAC(2195)=0.365833 ;TFRAC(2196)=0.366 TFRAC(2197)=0.366167 ;TFRAC(2198)=0.366333 TFRAC(2199)=0.3665 ;TFRAC(2200)=0.366667 TFRAC(2201)=0.366833 ;TFRAC(2202)=0.367 TFRAC(2203)=0.367167 ;TFRAC(2204)=0.367333 TFRAC(2205)=0.3675 ;TFRAC(2206)=0.367667 TFRAC(2207)=0.367833 ;TFRAC(2208)=0.368 TFRAC(2209)=0.368167 ;TFRAC(2210)=0.368333 TFRAC(2211)=0.3685 ;TFRAC(2212)=0.368667 TFRAC(2213)=0.368833 ;TFRAC(2214)=0.369 TFRAC(2215)=0.369167 ;TFRAC(2216)=0.369333 TFRAC(2217)=0.3695 ;TFRAC(2218)=0.369667 TFRAC(2219)=0.369833 ;TFRAC(2220)=0.37 TFRAC(2221)=0.370167 ;TFRAC(2222)=0.370333 TFRAC(2223)=0.3705 ;TFRAC(2224)=0.370667 TFRAC(2225)=0.370833 ;TFRAC(2226)=0.371 TFRAC(2227)=0.371167 ;TFRAC(2228)=0.371333 TFRAC(2229)=0.3715 ;TFRAC(2230)=0.371667 TFRAC(2231)=0.371833 ;TFRAC(2232)=0.372 TFRAC(2233)=0.372167 ;TFRAC(2234)=0.372333 TFRAC(2235)=0.3725 ;TFRAC(2236)=0.372667 TFRAC(2237)=0.372833 ;TFRAC(2238)=0.373 TFRAC(2239)=0.373167 ;TFRAC(2240)=0.373333 TFRAC(2241)=0.3735 ;TFRAC(2242)=0.373667 TFRAC(2243)=0.373833 ;TFRAC(2244)=0.374 TFRAC(2245)=0.374167 ;TFRAC(2246)=0.374333 TFRAC(2247)=0.3745 ;TFRAC(2248)=0.374667 TFRAC(2249)=0.374833 ;TFRAC(2250)=0.375 TFRAC(2251)=0.375167 ;TFRAC(2252)=0.375333 TFRAC(2253)=0.3755 ;TFRAC(2254)=0.375667 TFRAC(2255)=0.375833 ;TFRAC(2256)=0.376 TFRAC(2257)=0.376167 ;TFRAC(2258)=0.376333 TFRAC(2259)=0.3765 ;TFRAC(2260)=0.376667 TFRAC(2261)=0.376833 ;TFRAC(2262)=0.377 TFRAC(2263)=0.377167 ;TFRAC(2264)=0.377333 TFRAC(2265)=0.3775 ;TFRAC(2266)=0.377667 TFRAC(2267)=0.377833 ;TFRAC(2268)=0.378 TFRAC(2269)=0.378167 ;TFRAC(2270)=0.378333 TFRAC(2271)=0.3785 ;TFRAC(2272)=0.378667 TFRAC(2273)=0.378833 ;TFRAC(2274)=0.379 TFRAC(2275)=0.379167 ;TFRAC(2276)=0.379333 TFRAC(2277)=0.3795 ;TFRAC(2278)=0.379667 TFRAC(2279)=0.379833 ;TFRAC(2280)=0.38 TFRAC(2281)=0.380167 ;TFRAC(2282)=0.380333 TFRAC(2283)=0.3805 ;TFRAC(2284)=0.380667 TFRAC(2285)=0.380833 ;TFRAC(2286)=0.381 TFRAC(2287)=0.381167 ;TFRAC(2288)=0.381333 TFRAC(2289)=0.3815 ;TFRAC(2290)=0.381667 TFRAC(2291)=0.381833 ;TFRAC(2292)=0.382 TFRAC(2293)=0.382167 ;TFRAC(2294)=0.382333 TFRAC(2295)=0.3825 ;TFRAC(2296)=0.382667 TFRAC(2297)=0.382833 ;TFRAC(2298)=0.383 TFRAC(2299)=0.383167 ;TFRAC(2300)=0.383333 TFRAC(2301)=0.3835 ;TFRAC(2302)=0.383667 TFRAC(2303)=0.383833 ;TFRAC(2304)=0.384 TFRAC(2305)=0.384167 ;TFRAC(2306)=0.384333 TFRAC(2307)=0.3845 ;TFRAC(2308)=0.384667 TFRAC(2309)=0.384833 ;TFRAC(2310)=0.385 TFRAC(2311)=0.385167 ;TFRAC(2312)=0.385333 TFRAC(2313)=0.3855 ;TFRAC(2314)=0.385667 TFRAC(2315)=0.385833 ;TFRAC(2316)=0.386 TFRAC(2317)=0.386167 ;TFRAC(2318)=0.386333 TFRAC(2319)=0.3865 ;TFRAC(2320)=0.386667 TFRAC(2321)=0.386833 ;TFRAC(2322)=0.387 TFRAC(2323)=0.387167 ;TFRAC(2324)=0.387333 TFRAC(2325)=0.3875 ;TFRAC(2326)=0.387667 TFRAC(2327)=0.387833 ;TFRAC(2328)=0.388 TFRAC(2329)=0.388167 ;TFRAC(2330)=0.388333 TFRAC(2331)=0.3885 ;TFRAC(2332)=0.388667 TFRAC(2333)=0.388833 ;TFRAC(2334)=0.389 TFRAC(2335)=0.389167 ;TFRAC(2336)=0.389333 TFRAC(2337)=0.3895 ;TFRAC(2338)=0.389667 TFRAC(2339)=0.389833 ;TFRAC(2340)=0.39 TFRAC(2341)=0.390167 ;TFRAC(2342)=0.390333 TFRAC(2343)=0.3905 ;TFRAC(2344)=0.390667 TFRAC(2345)=0.390833 ;TFRAC(2346)=0.391 TFRAC(2347)=0.391167 ;TFRAC(2348)=0.391333 TFRAC(2349)=0.3915 ;TFRAC(2350)=0.391667 TFRAC(2351)=0.391833 ;TFRAC(2352)=0.392 TFRAC(2353)=0.392167 ;TFRAC(2354)=0.392333 TFRAC(2355)=0.3925 ;TFRAC(2356)=0.392667 TFRAC(2357)=0.392833 ;TFRAC(2358)=0.393 TFRAC(2359)=0.393167 ;TFRAC(2360)=0.393333 TFRAC(2361)=0.3935 ;TFRAC(2362)=0.393667 TFRAC(2363)=0.393833 ;TFRAC(2364)=0.394 TFRAC(2365)=0.394167 ;TFRAC(2366)=0.394333 TFRAC(2367)=0.3945 ;TFRAC(2368)=0.394667 TFRAC(2369)=0.394833 ;TFRAC(2370)=0.395 TFRAC(2371)=0.395167 ;TFRAC(2372)=0.395333 TFRAC(2373)=0.3955 ;TFRAC(2374)=0.395667 TFRAC(2375)=0.395833 ;TFRAC(2376)=0.396 TFRAC(2377)=0.396167 ;TFRAC(2378)=0.396333 TFRAC(2379)=0.3965 ;TFRAC(2380)=0.396667 TFRAC(2381)=0.396833 ;TFRAC(2382)=0.397 TFRAC(2383)=0.397167 ;TFRAC(2384)=0.397333 TFRAC(2385)=0.3975 ;TFRAC(2386)=0.397667 TFRAC(2387)=0.397833 ;TFRAC(2388)=0.398 TFRAC(2389)=0.398167 ;TFRAC(2390)=0.398333 TFRAC(2391)=0.3985 ;TFRAC(2392)=0.398667 TFRAC(2393)=0.398833 ;TFRAC(2394)=0.399 TFRAC(2395)=0.399167 ;TFRAC(2396)=0.399333 TFRAC(2397)=0.3995 ;TFRAC(2398)=0.399667 TFRAC(2399)=0.399833 ;TFRAC(2400)=0.4 TFRAC(2401)=0.400167 ;TFRAC(2402)=0.400333 TFRAC(2403)=0.4005 ;TFRAC(2404)=0.400667 TFRAC(2405)=0.400833 ;TFRAC(2406)=0.401 TFRAC(2407)=0.401167 ;TFRAC(2408)=0.401333 TFRAC(2409)=0.4015 ;TFRAC(2410)=0.401667 TFRAC(2411)=0.401833 ;TFRAC(2412)=0.402 TFRAC(2413)=0.402167 ;TFRAC(2414)=0.402333 TFRAC(2415)=0.4025 ;TFRAC(2416)=0.402667 TFRAC(2417)=0.402833 ;TFRAC(2418)=0.403 TFRAC(2419)=0.403167 ;TFRAC(2420)=0.403333 TFRAC(2421)=0.4035 ;TFRAC(2422)=0.403667 TFRAC(2423)=0.403833 ;TFRAC(2424)=0.404 TFRAC(2425)=0.404167 ;TFRAC(2426)=0.404333 TFRAC(2427)=0.4045 ;TFRAC(2428)=0.404667 TFRAC(2429)=0.404833 ;TFRAC(2430)=0.405 TFRAC(2431)=0.405167 ;TFRAC(2432)=0.405333 TFRAC(2433)=0.4055 ;TFRAC(2434)=0.405667 TFRAC(2435)=0.405833 ;TFRAC(2436)=0.406 TFRAC(2437)=0.406167 ;TFRAC(2438)=0.406333 TFRAC(2439)=0.4065 ;TFRAC(2440)=0.406667 TFRAC(2441)=0.406833 ;TFRAC(2442)=0.407 TFRAC(2443)=0.407167 ;TFRAC(2444)=0.407333 TFRAC(2445)=0.4075 ;TFRAC(2446)=0.407667 TFRAC(2447)=0.407833 ;TFRAC(2448)=0.408 TFRAC(2449)=0.408167 ;TFRAC(2450)=0.408333 TFRAC(2451)=0.4085 ;TFRAC(2452)=0.408667 TFRAC(2453)=0.408833 ;TFRAC(2454)=0.409 TFRAC(2455)=0.409167 ;TFRAC(2456)=0.409333 TFRAC(2457)=0.4095 ;TFRAC(2458)=0.409667 TFRAC(2459)=0.409833 ;TFRAC(2460)=0.41 TFRAC(2461)=0.410167 ;TFRAC(2462)=0.410333 TFRAC(2463)=0.4105 ;TFRAC(2464)=0.410667 TFRAC(2465)=0.410833 ;TFRAC(2466)=0.411 TFRAC(2467)=0.411167 ;TFRAC(2468)=0.411333 TFRAC(2469)=0.4115 ;TFRAC(2470)=0.411667 TFRAC(2471)=0.411833 ;TFRAC(2472)=0.412 TFRAC(2473)=0.412167 ;TFRAC(2474)=0.412333 TFRAC(2475)=0.4125 ;TFRAC(2476)=0.412667 TFRAC(2477)=0.412833 ;TFRAC(2478)=0.413 TFRAC(2479)=0.413167 ;TFRAC(2480)=0.413333 TFRAC(2481)=0.4135 ;TFRAC(2482)=0.413667 TFRAC(2483)=0.413833 ;TFRAC(2484)=0.414 TFRAC(2485)=0.414167 ;TFRAC(2486)=0.414333 TFRAC(2487)=0.4145 ;TFRAC(2488)=0.414667 TFRAC(2489)=0.414833 ;TFRAC(2490)=0.415 TFRAC(2491)=0.415167 ;TFRAC(2492)=0.415333 TFRAC(2493)=0.4155 ;TFRAC(2494)=0.415667 TFRAC(2495)=0.415833 ;TFRAC(2496)=0.416 TFRAC(2497)=0.416167 ;TFRAC(2498)=0.416333 TFRAC(2499)=0.4165 ;TFRAC(2500)=0.416667 TFRAC(2501)=0.416833 ;TFRAC(2502)=0.417 TFRAC(2503)=0.417167 ;TFRAC(2504)=0.417333 TFRAC(2505)=0.4175 ;TFRAC(2506)=0.417667 TFRAC(2507)=0.417833 ;TFRAC(2508)=0.418 TFRAC(2509)=0.418167 ;TFRAC(2510)=0.418333 TFRAC(2511)=0.4185 ;TFRAC(2512)=0.418667 TFRAC(2513)=0.418833 ;TFRAC(2514)=0.419 TFRAC(2515)=0.419167 ;TFRAC(2516)=0.419333 TFRAC(2517)=0.4195 ;TFRAC(2518)=0.419667 TFRAC(2519)=0.419833 ;TFRAC(2520)=0.42 TFRAC(2521)=0.420167 ;TFRAC(2522)=0.420333 TFRAC(2523)=0.4205 ;TFRAC(2524)=0.420667 TFRAC(2525)=0.420833 ;TFRAC(2526)=0.421 TFRAC(2527)=0.421167 ;TFRAC(2528)=0.421333 TFRAC(2529)=0.4215 ;TFRAC(2530)=0.421667 TFRAC(2531)=0.421833 ;TFRAC(2532)=0.422 TFRAC(2533)=0.422167 ;TFRAC(2534)=0.422333 TFRAC(2535)=0.4225 ;TFRAC(2536)=0.422667 TFRAC(2537)=0.422833 ;TFRAC(2538)=0.423 TFRAC(2539)=0.423167 ;TFRAC(2540)=0.423333 TFRAC(2541)=0.4235 ;TFRAC(2542)=0.423667 TFRAC(2543)=0.423833 ;TFRAC(2544)=0.424 TFRAC(2545)=0.424167 ;TFRAC(2546)=0.424333 TFRAC(2547)=0.4245 ;TFRAC(2548)=0.424667 TFRAC(2549)=0.424833 ;TFRAC(2550)=0.425 TFRAC(2551)=0.425167 ;TFRAC(2552)=0.425333 TFRAC(2553)=0.4255 ;TFRAC(2554)=0.425667 TFRAC(2555)=0.425833 ;TFRAC(2556)=0.426 TFRAC(2557)=0.426167 ;TFRAC(2558)=0.426333 TFRAC(2559)=0.4265 ;TFRAC(2560)=0.426667 TFRAC(2561)=0.426833 ;TFRAC(2562)=0.427 TFRAC(2563)=0.427167 ;TFRAC(2564)=0.427333 TFRAC(2565)=0.4275 ;TFRAC(2566)=0.427667 TFRAC(2567)=0.427833 ;TFRAC(2568)=0.428 TFRAC(2569)=0.428167 ;TFRAC(2570)=0.428333 TFRAC(2571)=0.4285 ;TFRAC(2572)=0.428667 TFRAC(2573)=0.428833 ;TFRAC(2574)=0.429 TFRAC(2575)=0.429167 ;TFRAC(2576)=0.429333 TFRAC(2577)=0.4295 ;TFRAC(2578)=0.429667 TFRAC(2579)=0.429833 ;TFRAC(2580)=0.43 TFRAC(2581)=0.430167 ;TFRAC(2582)=0.430333 TFRAC(2583)=0.4305 ;TFRAC(2584)=0.430667 TFRAC(2585)=0.430833 ;TFRAC(2586)=0.431 TFRAC(2587)=0.431167 ;TFRAC(2588)=0.431333 TFRAC(2589)=0.4315 ;TFRAC(2590)=0.431667 TFRAC(2591)=0.431833 ;TFRAC(2592)=0.432 TFRAC(2593)=0.432167 ;TFRAC(2594)=0.432333 TFRAC(2595)=0.4325 ;TFRAC(2596)=0.432667 TFRAC(2597)=0.432833 ;TFRAC(2598)=0.433 TFRAC(2599)=0.433167 ;TFRAC(2600)=0.433333 TFRAC(2601)=0.4335 ;TFRAC(2602)=0.433667 TFRAC(2603)=0.433833 ;TFRAC(2604)=0.434 TFRAC(2605)=0.434167 ;TFRAC(2606)=0.434333 TFRAC(2607)=0.4345 ;TFRAC(2608)=0.434667 TFRAC(2609)=0.434833 ;TFRAC(2610)=0.435 TFRAC(2611)=0.435167 ;TFRAC(2612)=0.435333 TFRAC(2613)=0.4355 ;TFRAC(2614)=0.435667 TFRAC(2615)=0.435833 ;TFRAC(2616)=0.436 TFRAC(2617)=0.436167 ;TFRAC(2618)=0.436333 TFRAC(2619)=0.4365 ;TFRAC(2620)=0.436667 TFRAC(2621)=0.436833 ;TFRAC(2622)=0.437 TFRAC(2623)=0.437167 ;TFRAC(2624)=0.437333 TFRAC(2625)=0.4375 ;TFRAC(2626)=0.437667 TFRAC(2627)=0.437833 ;TFRAC(2628)=0.438 TFRAC(2629)=0.438167 ;TFRAC(2630)=0.438333 TFRAC(2631)=0.4385 ;TFRAC(2632)=0.438667 TFRAC(2633)=0.438833 ;TFRAC(2634)=0.439 TFRAC(2635)=0.439167 ;TFRAC(2636)=0.439333 TFRAC(2637)=0.4395 ;TFRAC(2638)=0.439667 TFRAC(2639)=0.439833 ;TFRAC(2640)=0.44 TFRAC(2641)=0.440167 ;TFRAC(2642)=0.440333 TFRAC(2643)=0.4405 ;TFRAC(2644)=0.440667 TFRAC(2645)=0.440833 ;TFRAC(2646)=0.441 TFRAC(2647)=0.441167 ;TFRAC(2648)=0.441333 TFRAC(2649)=0.4415 ;TFRAC(2650)=0.441667 TFRAC(2651)=0.441833 ;TFRAC(2652)=0.442 TFRAC(2653)=0.442167 ;TFRAC(2654)=0.442333 TFRAC(2655)=0.4425 ;TFRAC(2656)=0.442667 TFRAC(2657)=0.442833 ;TFRAC(2658)=0.443 TFRAC(2659)=0.443167 ;TFRAC(2660)=0.443333 TFRAC(2661)=0.4435 ;TFRAC(2662)=0.443667 TFRAC(2663)=0.443833 ;TFRAC(2664)=0.444 TFRAC(2665)=0.444167 ;TFRAC(2666)=0.444333 TFRAC(2667)=0.4445 ;TFRAC(2668)=0.444667 TFRAC(2669)=0.444833 ;TFRAC(2670)=0.445 TFRAC(2671)=0.445167 ;TFRAC(2672)=0.445333 TFRAC(2673)=0.4455 ;TFRAC(2674)=0.445667 TFRAC(2675)=0.445833 ;TFRAC(2676)=0.446 TFRAC(2677)=0.446167 ;TFRAC(2678)=0.446333 TFRAC(2679)=0.4465 ;TFRAC(2680)=0.446667 TFRAC(2681)=0.446833 ;TFRAC(2682)=0.447 TFRAC(2683)=0.447167 ;TFRAC(2684)=0.447333 TFRAC(2685)=0.4475 ;TFRAC(2686)=0.447667 TFRAC(2687)=0.447833 ;TFRAC(2688)=0.448 TFRAC(2689)=0.448167 ;TFRAC(2690)=0.448333 TFRAC(2691)=0.4485 ;TFRAC(2692)=0.448667 TFRAC(2693)=0.448833 ;TFRAC(2694)=0.449 TFRAC(2695)=0.449167 ;TFRAC(2696)=0.449333 TFRAC(2697)=0.4495 ;TFRAC(2698)=0.449667 TFRAC(2699)=0.449833 ;TFRAC(2700)=0.45 TFRAC(2701)=0.450167 ;TFRAC(2702)=0.450333 TFRAC(2703)=0.4505 ;TFRAC(2704)=0.450667 TFRAC(2705)=0.450833 ;TFRAC(2706)=0.451 TFRAC(2707)=0.451167 ;TFRAC(2708)=0.451333 TFRAC(2709)=0.4515 ;TFRAC(2710)=0.451667 TFRAC(2711)=0.451833 ;TFRAC(2712)=0.452 TFRAC(2713)=0.452167 ;TFRAC(2714)=0.452333 TFRAC(2715)=0.4525 ;TFRAC(2716)=0.452667 TFRAC(2717)=0.452833 ;TFRAC(2718)=0.453 TFRAC(2719)=0.453167 ;TFRAC(2720)=0.453333 TFRAC(2721)=0.4535 ;TFRAC(2722)=0.453667 TFRAC(2723)=0.453833 ;TFRAC(2724)=0.454 TFRAC(2725)=0.454167 ;TFRAC(2726)=0.454333 TFRAC(2727)=0.4545 ;TFRAC(2728)=0.454667 TFRAC(2729)=0.454833 ;TFRAC(2730)=0.455 TFRAC(2731)=0.455167 ;TFRAC(2732)=0.455333 TFRAC(2733)=0.4555 ;TFRAC(2734)=0.455667 TFRAC(2735)=0.455833 ;TFRAC(2736)=0.456 TFRAC(2737)=0.456167 ;TFRAC(2738)=0.456333 TFRAC(2739)=0.4565 ;TFRAC(2740)=0.456667 TFRAC(2741)=0.456833 ;TFRAC(2742)=0.457 TFRAC(2743)=0.457167 ;TFRAC(2744)=0.457333 TFRAC(2745)=0.4575 ;TFRAC(2746)=0.457667 TFRAC(2747)=0.457833 ;TFRAC(2748)=0.458 TFRAC(2749)=0.458167 ;TFRAC(2750)=0.458333 TFRAC(2751)=0.4585 ;TFRAC(2752)=0.458667 TFRAC(2753)=0.458833 ;TFRAC(2754)=0.459 TFRAC(2755)=0.459167 ;TFRAC(2756)=0.459333 TFRAC(2757)=0.4595 ;TFRAC(2758)=0.459667 TFRAC(2759)=0.459833 ;TFRAC(2760)=0.46 TFRAC(2761)=0.460167 ;TFRAC(2762)=0.460333 TFRAC(2763)=0.4605 ;TFRAC(2764)=0.460667 TFRAC(2765)=0.460833 ;TFRAC(2766)=0.461 TFRAC(2767)=0.461167 ;TFRAC(2768)=0.461333 TFRAC(2769)=0.4615 ;TFRAC(2770)=0.461667 TFRAC(2771)=0.461833 ;TFRAC(2772)=0.462 TFRAC(2773)=0.462167 ;TFRAC(2774)=0.462333 TFRAC(2775)=0.4625 ;TFRAC(2776)=0.462667 TFRAC(2777)=0.462833 ;TFRAC(2778)=0.463 TFRAC(2779)=0.463167 ;TFRAC(2780)=0.463333 TFRAC(2781)=0.4635 ;TFRAC(2782)=0.463667 TFRAC(2783)=0.463833 ;TFRAC(2784)=0.464 TFRAC(2785)=0.464167 ;TFRAC(2786)=0.464333 TFRAC(2787)=0.4645 ;TFRAC(2788)=0.464667 TFRAC(2789)=0.464833 ;TFRAC(2790)=0.465 TFRAC(2791)=0.465167 ;TFRAC(2792)=0.465333 TFRAC(2793)=0.4655 ;TFRAC(2794)=0.465667 TFRAC(2795)=0.465833 ;TFRAC(2796)=0.466 TFRAC(2797)=0.466167 ;TFRAC(2798)=0.466333 TFRAC(2799)=0.4665 ;TFRAC(2800)=0.466667 TFRAC(2801)=0.466833 ;TFRAC(2802)=0.467 TFRAC(2803)=0.467167 ;TFRAC(2804)=0.467333 TFRAC(2805)=0.4675 ;TFRAC(2806)=0.467667 TFRAC(2807)=0.467833 ;TFRAC(2808)=0.468 TFRAC(2809)=0.468167 ;TFRAC(2810)=0.468333 TFRAC(2811)=0.4685 ;TFRAC(2812)=0.468667 TFRAC(2813)=0.468833 ;TFRAC(2814)=0.469 TFRAC(2815)=0.469167 ;TFRAC(2816)=0.469333 TFRAC(2817)=0.4695 ;TFRAC(2818)=0.469667 TFRAC(2819)=0.469833 ;TFRAC(2820)=0.47 TFRAC(2821)=0.470167 ;TFRAC(2822)=0.470333 TFRAC(2823)=0.4705 ;TFRAC(2824)=0.470667 TFRAC(2825)=0.470833 ;TFRAC(2826)=0.471 TFRAC(2827)=0.471167 ;TFRAC(2828)=0.471333 TFRAC(2829)=0.4715 ;TFRAC(2830)=0.471667 TFRAC(2831)=0.471833 ;TFRAC(2832)=0.472 TFRAC(2833)=0.472167 ;TFRAC(2834)=0.472333 TFRAC(2835)=0.4725 ;TFRAC(2836)=0.472667 TFRAC(2837)=0.472833 ;TFRAC(2838)=0.473 TFRAC(2839)=0.473167 ;TFRAC(2840)=0.473333 TFRAC(2841)=0.4735 ;TFRAC(2842)=0.473667 TFRAC(2843)=0.473833 ;TFRAC(2844)=0.474 TFRAC(2845)=0.474167 ;TFRAC(2846)=0.474333 TFRAC(2847)=0.4745 ;TFRAC(2848)=0.474667 TFRAC(2849)=0.474833 ;TFRAC(2850)=0.475 TFRAC(2851)=0.475167 ;TFRAC(2852)=0.475333 TFRAC(2853)=0.4755 ;TFRAC(2854)=0.475667 TFRAC(2855)=0.475833 ;TFRAC(2856)=0.476 TFRAC(2857)=0.476167 ;TFRAC(2858)=0.476333 TFRAC(2859)=0.4765 ;TFRAC(2860)=0.476667 TFRAC(2861)=0.476833 ;TFRAC(2862)=0.477 TFRAC(2863)=0.477167 ;TFRAC(2864)=0.477333 TFRAC(2865)=0.4775 ;TFRAC(2866)=0.477667 TFRAC(2867)=0.477833 ;TFRAC(2868)=0.478 TFRAC(2869)=0.478167 ;TFRAC(2870)=0.478333 TFRAC(2871)=0.4785 ;TFRAC(2872)=0.478667 TFRAC(2873)=0.478833 ;TFRAC(2874)=0.479 TFRAC(2875)=0.479167 ;TFRAC(2876)=0.479333 TFRAC(2877)=0.4795 ;TFRAC(2878)=0.479667 TFRAC(2879)=0.479833 ;TFRAC(2880)=0.48 TFRAC(2881)=0.480167 ;TFRAC(2882)=0.480333 TFRAC(2883)=0.4805 ;TFRAC(2884)=0.480667 TFRAC(2885)=0.480833 ;TFRAC(2886)=0.481 TFRAC(2887)=0.481167 ;TFRAC(2888)=0.481333 TFRAC(2889)=0.4815 ;TFRAC(2890)=0.481667 TFRAC(2891)=0.481833 ;TFRAC(2892)=0.482 TFRAC(2893)=0.482167 ;TFRAC(2894)=0.482333 TFRAC(2895)=0.4825 ;TFRAC(2896)=0.482667 TFRAC(2897)=0.482833 ;TFRAC(2898)=0.483 TFRAC(2899)=0.483167 ;TFRAC(2900)=0.483333 TFRAC(2901)=0.4835 ;TFRAC(2902)=0.483667 TFRAC(2903)=0.483833 ;TFRAC(2904)=0.484 TFRAC(2905)=0.484167 ;TFRAC(2906)=0.484333 TFRAC(2907)=0.4845 ;TFRAC(2908)=0.484667 TFRAC(2909)=0.484833 ;TFRAC(2910)=0.485 TFRAC(2911)=0.485167 ;TFRAC(2912)=0.485333 TFRAC(2913)=0.4855 ;TFRAC(2914)=0.485667 TFRAC(2915)=0.485833 ;TFRAC(2916)=0.486 TFRAC(2917)=0.486167 ;TFRAC(2918)=0.486333 TFRAC(2919)=0.4865 ;TFRAC(2920)=0.486667 TFRAC(2921)=0.486833 ;TFRAC(2922)=0.487 TFRAC(2923)=0.487167 ;TFRAC(2924)=0.487333 TFRAC(2925)=0.4875 ;TFRAC(2926)=0.487667 TFRAC(2927)=0.487833 ;TFRAC(2928)=0.488 TFRAC(2929)=0.488167 ;TFRAC(2930)=0.488333 TFRAC(2931)=0.4885 ;TFRAC(2932)=0.488667 TFRAC(2933)=0.488833 ;TFRAC(2934)=0.489 TFRAC(2935)=0.489167 ;TFRAC(2936)=0.489333 TFRAC(2937)=0.4895 ;TFRAC(2938)=0.489667 TFRAC(2939)=0.489833 ;TFRAC(2940)=0.49 TFRAC(2941)=0.490167 ;TFRAC(2942)=0.490333 TFRAC(2943)=0.4905 ;TFRAC(2944)=0.490667 TFRAC(2945)=0.490833 ;TFRAC(2946)=0.491 TFRAC(2947)=0.491167 ;TFRAC(2948)=0.491333 TFRAC(2949)=0.4915 ;TFRAC(2950)=0.491667 TFRAC(2951)=0.491833 ;TFRAC(2952)=0.492 TFRAC(2953)=0.492167 ;TFRAC(2954)=0.492333 TFRAC(2955)=0.4925 ;TFRAC(2956)=0.492667 TFRAC(2957)=0.492833 ;TFRAC(2958)=0.493 TFRAC(2959)=0.493167 ;TFRAC(2960)=0.493333 TFRAC(2961)=0.4935 ;TFRAC(2962)=0.493667 TFRAC(2963)=0.493833 ;TFRAC(2964)=0.494 TFRAC(2965)=0.494167 ;TFRAC(2966)=0.494333 TFRAC(2967)=0.4945 ;TFRAC(2968)=0.494667 TFRAC(2969)=0.494833 ;TFRAC(2970)=0.495 TFRAC(2971)=0.495167 ;TFRAC(2972)=0.495333 TFRAC(2973)=0.4955 ;TFRAC(2974)=0.495667 TFRAC(2975)=0.495833 ;TFRAC(2976)=0.496 TFRAC(2977)=0.496167 ;TFRAC(2978)=0.496333 TFRAC(2979)=0.4965 ;TFRAC(2980)=0.496667 TFRAC(2981)=0.496833 ;TFRAC(2982)=0.497 TFRAC(2983)=0.497167 ;TFRAC(2984)=0.497333 TFRAC(2985)=0.4975 ;TFRAC(2986)=0.497667 TFRAC(2987)=0.497833 ;TFRAC(2988)=0.498 TFRAC(2989)=0.498167 ;TFRAC(2990)=0.498333 TFRAC(2991)=0.4985 ;TFRAC(2992)=0.498667 TFRAC(2993)=0.498833 ;TFRAC(2994)=0.499 TFRAC(2995)=0.499167 ;TFRAC(2996)=0.499333 TFRAC(2997)=0.4995 ;TFRAC(2998)=0.499667 TFRAC(2999)=0.499833 ;TFRAC(3000)=0.5 TFRAC(3001)=0.500167 ;TFRAC(3002)=0.500333 TFRAC(3003)=0.5005 ;TFRAC(3004)=0.500667 TFRAC(3005)=0.500833 ;TFRAC(3006)=0.501 TFRAC(3007)=0.501167 ;TFRAC(3008)=0.501333 TFRAC(3009)=0.5015 ;TFRAC(3010)=0.501667 TFRAC(3011)=0.501833 ;TFRAC(3012)=0.502 TFRAC(3013)=0.502167 ;TFRAC(3014)=0.502333 TFRAC(3015)=0.5025 ;TFRAC(3016)=0.502667 TFRAC(3017)=0.502833 ;TFRAC(3018)=0.503 TFRAC(3019)=0.503167 ;TFRAC(3020)=0.503333 TFRAC(3021)=0.5035 ;TFRAC(3022)=0.503667 TFRAC(3023)=0.503833 ;TFRAC(3024)=0.504 TFRAC(3025)=0.504167 ;TFRAC(3026)=0.504333 TFRAC(3027)=0.5045 ;TFRAC(3028)=0.504667 TFRAC(3029)=0.504833 ;TFRAC(3030)=0.505 TFRAC(3031)=0.505167 ;TFRAC(3032)=0.505333 TFRAC(3033)=0.5055 ;TFRAC(3034)=0.505667 TFRAC(3035)=0.505833 ;TFRAC(3036)=0.506 TFRAC(3037)=0.506167 ;TFRAC(3038)=0.506333 TFRAC(3039)=0.5065 ;TFRAC(3040)=0.506667 TFRAC(3041)=0.506833 ;TFRAC(3042)=0.507 TFRAC(3043)=0.507167 ;TFRAC(3044)=0.507333 TFRAC(3045)=0.5075 ;TFRAC(3046)=0.507667 TFRAC(3047)=0.507833 ;TFRAC(3048)=0.508 TFRAC(3049)=0.508167 ;TFRAC(3050)=0.508333 TFRAC(3051)=0.5085 ;TFRAC(3052)=0.508667 TFRAC(3053)=0.508833 ;TFRAC(3054)=0.509 TFRAC(3055)=0.509167 ;TFRAC(3056)=0.509333 TFRAC(3057)=0.5095 ;TFRAC(3058)=0.509667 TFRAC(3059)=0.509833 ;TFRAC(3060)=0.51 TFRAC(3061)=0.510167 ;TFRAC(3062)=0.510333 TFRAC(3063)=0.5105 ;TFRAC(3064)=0.510667 TFRAC(3065)=0.510833 ;TFRAC(3066)=0.511 TFRAC(3067)=0.511167 ;TFRAC(3068)=0.511333 TFRAC(3069)=0.5115 ;TFRAC(3070)=0.511667 TFRAC(3071)=0.511833 ;TFRAC(3072)=0.512 TFRAC(3073)=0.512167 ;TFRAC(3074)=0.512333 TFRAC(3075)=0.5125 ;TFRAC(3076)=0.512667 TFRAC(3077)=0.512833 ;TFRAC(3078)=0.513 TFRAC(3079)=0.513167 ;TFRAC(3080)=0.513333 TFRAC(3081)=0.5135 ;TFRAC(3082)=0.513667 TFRAC(3083)=0.513833 ;TFRAC(3084)=0.514 TFRAC(3085)=0.514167 ;TFRAC(3086)=0.514333 TFRAC(3087)=0.5145 ;TFRAC(3088)=0.514667 TFRAC(3089)=0.514833 ;TFRAC(3090)=0.515 TFRAC(3091)=0.515167 ;TFRAC(3092)=0.515333 TFRAC(3093)=0.5155 ;TFRAC(3094)=0.515667 TFRAC(3095)=0.515833 ;TFRAC(3096)=0.516 TFRAC(3097)=0.516167 ;TFRAC(3098)=0.516333 TFRAC(3099)=0.5165 ;TFRAC(3100)=0.516667 TFRAC(3101)=0.516833 ;TFRAC(3102)=0.517 TFRAC(3103)=0.517167 ;TFRAC(3104)=0.517333 TFRAC(3105)=0.5175 ;TFRAC(3106)=0.517667 TFRAC(3107)=0.517833 ;TFRAC(3108)=0.518 TFRAC(3109)=0.518167 ;TFRAC(3110)=0.518333 TFRAC(3111)=0.5185 ;TFRAC(3112)=0.518667 TFRAC(3113)=0.518833 ;TFRAC(3114)=0.519 TFRAC(3115)=0.519167 ;TFRAC(3116)=0.519333 TFRAC(3117)=0.5195 ;TFRAC(3118)=0.519667 TFRAC(3119)=0.519833 ;TFRAC(3120)=0.52 TFRAC(3121)=0.520167 ;TFRAC(3122)=0.520333 TFRAC(3123)=0.5205 ;TFRAC(3124)=0.520667 TFRAC(3125)=0.520833 ;TFRAC(3126)=0.521 TFRAC(3127)=0.521167 ;TFRAC(3128)=0.521333 TFRAC(3129)=0.5215 ;TFRAC(3130)=0.521667 TFRAC(3131)=0.521833 ;TFRAC(3132)=0.522 TFRAC(3133)=0.522167 ;TFRAC(3134)=0.522333 TFRAC(3135)=0.5225 ;TFRAC(3136)=0.522667 TFRAC(3137)=0.522833 ;TFRAC(3138)=0.523 TFRAC(3139)=0.523167 ;TFRAC(3140)=0.523333 TFRAC(3141)=0.5235 ;TFRAC(3142)=0.523667 TFRAC(3143)=0.523833 ;TFRAC(3144)=0.524 TFRAC(3145)=0.524167 ;TFRAC(3146)=0.524333 TFRAC(3147)=0.5245 ;TFRAC(3148)=0.524667 TFRAC(3149)=0.524833 ;TFRAC(3150)=0.525 TFRAC(3151)=0.525167 ;TFRAC(3152)=0.525333 TFRAC(3153)=0.5255 ;TFRAC(3154)=0.525667 TFRAC(3155)=0.525833 ;TFRAC(3156)=0.526 TFRAC(3157)=0.526167 ;TFRAC(3158)=0.526333 TFRAC(3159)=0.5265 ;TFRAC(3160)=0.526667 TFRAC(3161)=0.526833 ;TFRAC(3162)=0.527 TFRAC(3163)=0.527167 ;TFRAC(3164)=0.527333 TFRAC(3165)=0.5275 ;TFRAC(3166)=0.527667 TFRAC(3167)=0.527833 ;TFRAC(3168)=0.528 TFRAC(3169)=0.528167 ;TFRAC(3170)=0.528333 TFRAC(3171)=0.5285 ;TFRAC(3172)=0.528667 TFRAC(3173)=0.528833 ;TFRAC(3174)=0.529 TFRAC(3175)=0.529167 ;TFRAC(3176)=0.529333 TFRAC(3177)=0.5295 ;TFRAC(3178)=0.529667 TFRAC(3179)=0.529833 ;TFRAC(3180)=0.53 TFRAC(3181)=0.530167 ;TFRAC(3182)=0.530333 TFRAC(3183)=0.5305 ;TFRAC(3184)=0.530667 TFRAC(3185)=0.530833 ;TFRAC(3186)=0.531 TFRAC(3187)=0.531167 ;TFRAC(3188)=0.531333 TFRAC(3189)=0.5315 ;TFRAC(3190)=0.531667 TFRAC(3191)=0.531833 ;TFRAC(3192)=0.532 TFRAC(3193)=0.532167 ;TFRAC(3194)=0.532333 TFRAC(3195)=0.5325 ;TFRAC(3196)=0.532667 TFRAC(3197)=0.532833 ;TFRAC(3198)=0.533 TFRAC(3199)=0.533167 ;TFRAC(3200)=0.533333 TFRAC(3201)=0.5335 ;TFRAC(3202)=0.533667 TFRAC(3203)=0.533833 ;TFRAC(3204)=0.534 TFRAC(3205)=0.534167 ;TFRAC(3206)=0.534333 TFRAC(3207)=0.5345 ;TFRAC(3208)=0.534667 TFRAC(3209)=0.534833 ;TFRAC(3210)=0.535 TFRAC(3211)=0.535167 ;TFRAC(3212)=0.535333 TFRAC(3213)=0.5355 ;TFRAC(3214)=0.535667 TFRAC(3215)=0.535833 ;TFRAC(3216)=0.536 TFRAC(3217)=0.536167 ;TFRAC(3218)=0.536333 TFRAC(3219)=0.5365 ;TFRAC(3220)=0.536667 TFRAC(3221)=0.536833 ;TFRAC(3222)=0.537 TFRAC(3223)=0.537167 ;TFRAC(3224)=0.537333 TFRAC(3225)=0.5375 ;TFRAC(3226)=0.537667 TFRAC(3227)=0.537833 ;TFRAC(3228)=0.538 TFRAC(3229)=0.538167 ;TFRAC(3230)=0.538333 TFRAC(3231)=0.5385 ;TFRAC(3232)=0.538667 TFRAC(3233)=0.538833 ;TFRAC(3234)=0.539 TFRAC(3235)=0.539167 ;TFRAC(3236)=0.539333 TFRAC(3237)=0.5395 ;TFRAC(3238)=0.539667 TFRAC(3239)=0.539833 ;TFRAC(3240)=0.54 TFRAC(3241)=0.540167 ;TFRAC(3242)=0.540333 TFRAC(3243)=0.5405 ;TFRAC(3244)=0.540667 TFRAC(3245)=0.540833 ;TFRAC(3246)=0.541 TFRAC(3247)=0.541167 ;TFRAC(3248)=0.541333 TFRAC(3249)=0.5415 ;TFRAC(3250)=0.541667 TFRAC(3251)=0.541833 ;TFRAC(3252)=0.542 TFRAC(3253)=0.542167 ;TFRAC(3254)=0.542333 TFRAC(3255)=0.5425 ;TFRAC(3256)=0.542667 TFRAC(3257)=0.542833 ;TFRAC(3258)=0.543 TFRAC(3259)=0.543167 ;TFRAC(3260)=0.543333 TFRAC(3261)=0.5435 ;TFRAC(3262)=0.543667 TFRAC(3263)=0.543833 ;TFRAC(3264)=0.544 TFRAC(3265)=0.544167 ;TFRAC(3266)=0.544333 TFRAC(3267)=0.5445 ;TFRAC(3268)=0.544667 TFRAC(3269)=0.544833 ;TFRAC(3270)=0.545 TFRAC(3271)=0.545167 ;TFRAC(3272)=0.545333 TFRAC(3273)=0.5455 ;TFRAC(3274)=0.545667 TFRAC(3275)=0.545833 ;TFRAC(3276)=0.546 TFRAC(3277)=0.546167 ;TFRAC(3278)=0.546333 TFRAC(3279)=0.5465 ;TFRAC(3280)=0.546667 TFRAC(3281)=0.546833 ;TFRAC(3282)=0.547 TFRAC(3283)=0.547167 ;TFRAC(3284)=0.547333 TFRAC(3285)=0.5475 ;TFRAC(3286)=0.547667 TFRAC(3287)=0.547833 ;TFRAC(3288)=0.548 TFRAC(3289)=0.548167 ;TFRAC(3290)=0.548333 TFRAC(3291)=0.5485 ;TFRAC(3292)=0.548667 TFRAC(3293)=0.548833 ;TFRAC(3294)=0.549 TFRAC(3295)=0.549167 ;TFRAC(3296)=0.549333 TFRAC(3297)=0.5495 ;TFRAC(3298)=0.549667 TFRAC(3299)=0.549833 ;TFRAC(3300)=0.55 TFRAC(3301)=0.550167 ;TFRAC(3302)=0.550333 TFRAC(3303)=0.5505 ;TFRAC(3304)=0.550667 TFRAC(3305)=0.550833 ;TFRAC(3306)=0.551 TFRAC(3307)=0.551167 ;TFRAC(3308)=0.551333 TFRAC(3309)=0.5515 ;TFRAC(3310)=0.551667 TFRAC(3311)=0.551833 ;TFRAC(3312)=0.552 TFRAC(3313)=0.552167 ;TFRAC(3314)=0.552333 TFRAC(3315)=0.5525 ;TFRAC(3316)=0.552667 TFRAC(3317)=0.552833 ;TFRAC(3318)=0.553 TFRAC(3319)=0.553167 ;TFRAC(3320)=0.553333 TFRAC(3321)=0.5535 ;TFRAC(3322)=0.553667 TFRAC(3323)=0.553833 ;TFRAC(3324)=0.554 TFRAC(3325)=0.554167 ;TFRAC(3326)=0.554333 TFRAC(3327)=0.5545 ;TFRAC(3328)=0.554667 TFRAC(3329)=0.554833 ;TFRAC(3330)=0.555 TFRAC(3331)=0.555167 ;TFRAC(3332)=0.555333 TFRAC(3333)=0.5555 ;TFRAC(3334)=0.555667 TFRAC(3335)=0.555833 ;TFRAC(3336)=0.556 TFRAC(3337)=0.556167 ;TFRAC(3338)=0.556333 TFRAC(3339)=0.5565 ;TFRAC(3340)=0.556667 TFRAC(3341)=0.556833 ;TFRAC(3342)=0.557 TFRAC(3343)=0.557167 ;TFRAC(3344)=0.557333 TFRAC(3345)=0.5575 ;TFRAC(3346)=0.557667 TFRAC(3347)=0.557833 ;TFRAC(3348)=0.558 TFRAC(3349)=0.558167 ;TFRAC(3350)=0.558333 TFRAC(3351)=0.5585 ;TFRAC(3352)=0.558667 TFRAC(3353)=0.558833 ;TFRAC(3354)=0.559 TFRAC(3355)=0.559167 ;TFRAC(3356)=0.559333 TFRAC(3357)=0.5595 ;TFRAC(3358)=0.559667 TFRAC(3359)=0.559833 ;TFRAC(3360)=0.56 TFRAC(3361)=0.560167 ;TFRAC(3362)=0.560333 TFRAC(3363)=0.5605 ;TFRAC(3364)=0.560667 TFRAC(3365)=0.560833 ;TFRAC(3366)=0.561 TFRAC(3367)=0.561167 ;TFRAC(3368)=0.561333 TFRAC(3369)=0.5615 ;TFRAC(3370)=0.561667 TFRAC(3371)=0.561833 ;TFRAC(3372)=0.562 TFRAC(3373)=0.562167 ;TFRAC(3374)=0.562333 TFRAC(3375)=0.5625 ;TFRAC(3376)=0.562667 TFRAC(3377)=0.562833 ;TFRAC(3378)=0.563 TFRAC(3379)=0.563167 ;TFRAC(3380)=0.563333 TFRAC(3381)=0.5635 ;TFRAC(3382)=0.563667 TFRAC(3383)=0.563833 ;TFRAC(3384)=0.564 TFRAC(3385)=0.564167 ;TFRAC(3386)=0.564333 TFRAC(3387)=0.5645 ;TFRAC(3388)=0.564667 TFRAC(3389)=0.564833 ;TFRAC(3390)=0.565 TFRAC(3391)=0.565167 ;TFRAC(3392)=0.565333 TFRAC(3393)=0.5655 ;TFRAC(3394)=0.565667 TFRAC(3395)=0.565833 ;TFRAC(3396)=0.566 TFRAC(3397)=0.566167 ;TFRAC(3398)=0.566333 TFRAC(3399)=0.5665 ;TFRAC(3400)=0.566667 TFRAC(3401)=0.566833 ;TFRAC(3402)=0.567 TFRAC(3403)=0.567167 ;TFRAC(3404)=0.567333 TFRAC(3405)=0.5675 ;TFRAC(3406)=0.567667 TFRAC(3407)=0.567833 ;TFRAC(3408)=0.568 TFRAC(3409)=0.568167 ;TFRAC(3410)=0.568333 TFRAC(3411)=0.5685 ;TFRAC(3412)=0.568667 TFRAC(3413)=0.568833 ;TFRAC(3414)=0.569 TFRAC(3415)=0.569167 ;TFRAC(3416)=0.569333 TFRAC(3417)=0.5695 ;TFRAC(3418)=0.569667 TFRAC(3419)=0.569833 ;TFRAC(3420)=0.57 TFRAC(3421)=0.570167 ;TFRAC(3422)=0.570333 TFRAC(3423)=0.5705 ;TFRAC(3424)=0.570667 TFRAC(3425)=0.570833 ;TFRAC(3426)=0.571 TFRAC(3427)=0.571167 ;TFRAC(3428)=0.571333 TFRAC(3429)=0.5715 ;TFRAC(3430)=0.571667 TFRAC(3431)=0.571833 ;TFRAC(3432)=0.572 TFRAC(3433)=0.572167 ;TFRAC(3434)=0.572333 TFRAC(3435)=0.5725 ;TFRAC(3436)=0.572667 TFRAC(3437)=0.572833 ;TFRAC(3438)=0.573 TFRAC(3439)=0.573167 ;TFRAC(3440)=0.573333 TFRAC(3441)=0.5735 ;TFRAC(3442)=0.573667 TFRAC(3443)=0.573833 ;TFRAC(3444)=0.574 TFRAC(3445)=0.574167 ;TFRAC(3446)=0.574333 TFRAC(3447)=0.5745 ;TFRAC(3448)=0.574667 TFRAC(3449)=0.574833 ;TFRAC(3450)=0.575 TFRAC(3451)=0.575167 ;TFRAC(3452)=0.575333 TFRAC(3453)=0.5755 ;TFRAC(3454)=0.575667 TFRAC(3455)=0.575833 ;TFRAC(3456)=0.576 TFRAC(3457)=0.576167 ;TFRAC(3458)=0.576333 TFRAC(3459)=0.5765 ;TFRAC(3460)=0.576667 TFRAC(3461)=0.576833 ;TFRAC(3462)=0.577 TFRAC(3463)=0.577167 ;TFRAC(3464)=0.577333 TFRAC(3465)=0.5775 ;TFRAC(3466)=0.577667 TFRAC(3467)=0.577833 ;TFRAC(3468)=0.578 TFRAC(3469)=0.578167 ;TFRAC(3470)=0.578333 TFRAC(3471)=0.5785 ;TFRAC(3472)=0.578667 TFRAC(3473)=0.578833 ;TFRAC(3474)=0.579 TFRAC(3475)=0.579167 ;TFRAC(3476)=0.579333 TFRAC(3477)=0.5795 ;TFRAC(3478)=0.579667 TFRAC(3479)=0.579833 ;TFRAC(3480)=0.58 TFRAC(3481)=0.580167 ;TFRAC(3482)=0.580333 TFRAC(3483)=0.5805 ;TFRAC(3484)=0.580667 TFRAC(3485)=0.580833 ;TFRAC(3486)=0.581 TFRAC(3487)=0.581167 ;TFRAC(3488)=0.581333 TFRAC(3489)=0.5815 ;TFRAC(3490)=0.581667 TFRAC(3491)=0.581833 ;TFRAC(3492)=0.582 TFRAC(3493)=0.582167 ;TFRAC(3494)=0.582333 TFRAC(3495)=0.5825 ;TFRAC(3496)=0.582667 TFRAC(3497)=0.582833 ;TFRAC(3498)=0.583 TFRAC(3499)=0.583167 ;TFRAC(3500)=0.583333 TFRAC(3501)=0.5835 ;TFRAC(3502)=0.583667 TFRAC(3503)=0.583833 ;TFRAC(3504)=0.584 TFRAC(3505)=0.584167 ;TFRAC(3506)=0.584333 TFRAC(3507)=0.5845 ;TFRAC(3508)=0.584667 TFRAC(3509)=0.584833 ;TFRAC(3510)=0.585 TFRAC(3511)=0.585167 ;TFRAC(3512)=0.585333 TFRAC(3513)=0.5855 ;TFRAC(3514)=0.585667 TFRAC(3515)=0.585833 ;TFRAC(3516)=0.586 TFRAC(3517)=0.586167 ;TFRAC(3518)=0.586333 TFRAC(3519)=0.5865 ;TFRAC(3520)=0.586667 TFRAC(3521)=0.586833 ;TFRAC(3522)=0.587 TFRAC(3523)=0.587167 ;TFRAC(3524)=0.587333 TFRAC(3525)=0.5875 ;TFRAC(3526)=0.587667 TFRAC(3527)=0.587833 ;TFRAC(3528)=0.588 TFRAC(3529)=0.588167 ;TFRAC(3530)=0.588333 TFRAC(3531)=0.5885 ;TFRAC(3532)=0.588667 TFRAC(3533)=0.588833 ;TFRAC(3534)=0.589 TFRAC(3535)=0.589167 ;TFRAC(3536)=0.589333 TFRAC(3537)=0.5895 ;TFRAC(3538)=0.589667 TFRAC(3539)=0.589833 ;TFRAC(3540)=0.59 TFRAC(3541)=0.590167 ;TFRAC(3542)=0.590333 TFRAC(3543)=0.5905 ;TFRAC(3544)=0.590667 TFRAC(3545)=0.590833 ;TFRAC(3546)=0.591 TFRAC(3547)=0.591167 ;TFRAC(3548)=0.591333 TFRAC(3549)=0.5915 ;TFRAC(3550)=0.591667 TFRAC(3551)=0.591833 ;TFRAC(3552)=0.592 TFRAC(3553)=0.592167 ;TFRAC(3554)=0.592333 TFRAC(3555)=0.5925 ;TFRAC(3556)=0.592667 TFRAC(3557)=0.592833 ;TFRAC(3558)=0.593 TFRAC(3559)=0.593167 ;TFRAC(3560)=0.593333 TFRAC(3561)=0.5935 ;TFRAC(3562)=0.593667 TFRAC(3563)=0.593833 ;TFRAC(3564)=0.594 TFRAC(3565)=0.594167 ;TFRAC(3566)=0.594333 TFRAC(3567)=0.5945 ;TFRAC(3568)=0.594667 TFRAC(3569)=0.594833 ;TFRAC(3570)=0.595 TFRAC(3571)=0.595167 ;TFRAC(3572)=0.595333 TFRAC(3573)=0.5955 ;TFRAC(3574)=0.595667 TFRAC(3575)=0.595833 ;TFRAC(3576)=0.596 TFRAC(3577)=0.596167 ;TFRAC(3578)=0.596333 TFRAC(3579)=0.5965 ;TFRAC(3580)=0.596667 TFRAC(3581)=0.596833 ;TFRAC(3582)=0.597 TFRAC(3583)=0.597167 ;TFRAC(3584)=0.597333 TFRAC(3585)=0.5975 ;TFRAC(3586)=0.597667 TFRAC(3587)=0.597833 ;TFRAC(3588)=0.598 TFRAC(3589)=0.598167 ;TFRAC(3590)=0.598333 TFRAC(3591)=0.5985 ;TFRAC(3592)=0.598667 TFRAC(3593)=0.598833 ;TFRAC(3594)=0.599 TFRAC(3595)=0.599167 ;TFRAC(3596)=0.599333 TFRAC(3597)=0.5995 ;TFRAC(3598)=0.599667 TFRAC(3599)=0.599833 ;TFRAC(3600)=0.6 TFRAC(3601)=0.600167 ;TFRAC(3602)=0.600333 TFRAC(3603)=0.6005 ;TFRAC(3604)=0.600667 TFRAC(3605)=0.600833 ;TFRAC(3606)=0.601 TFRAC(3607)=0.601167 ;TFRAC(3608)=0.601333 TFRAC(3609)=0.6015 ;TFRAC(3610)=0.601667 TFRAC(3611)=0.601833 ;TFRAC(3612)=0.602 TFRAC(3613)=0.602167 ;TFRAC(3614)=0.602333 TFRAC(3615)=0.6025 ;TFRAC(3616)=0.602667 TFRAC(3617)=0.602833 ;TFRAC(3618)=0.603 TFRAC(3619)=0.603167 ;TFRAC(3620)=0.603333 TFRAC(3621)=0.6035 ;TFRAC(3622)=0.603667 TFRAC(3623)=0.603833 ;TFRAC(3624)=0.604 TFRAC(3625)=0.604167 ;TFRAC(3626)=0.604333 TFRAC(3627)=0.6045 ;TFRAC(3628)=0.604667 TFRAC(3629)=0.604833 ;TFRAC(3630)=0.605 TFRAC(3631)=0.605167 ;TFRAC(3632)=0.605333 TFRAC(3633)=0.6055 ;TFRAC(3634)=0.605667 TFRAC(3635)=0.605833 ;TFRAC(3636)=0.606 TFRAC(3637)=0.606167 ;TFRAC(3638)=0.606333 TFRAC(3639)=0.6065 ;TFRAC(3640)=0.606667 TFRAC(3641)=0.606833 ;TFRAC(3642)=0.607 TFRAC(3643)=0.607167 ;TFRAC(3644)=0.607333 TFRAC(3645)=0.6075 ;TFRAC(3646)=0.607667 TFRAC(3647)=0.607833 ;TFRAC(3648)=0.608 TFRAC(3649)=0.608167 ;TFRAC(3650)=0.608333 TFRAC(3651)=0.6085 ;TFRAC(3652)=0.608667 TFRAC(3653)=0.608833 ;TFRAC(3654)=0.609 TFRAC(3655)=0.609167 ;TFRAC(3656)=0.609333 TFRAC(3657)=0.6095 ;TFRAC(3658)=0.609667 TFRAC(3659)=0.609833 ;TFRAC(3660)=0.61 TFRAC(3661)=0.610167 ;TFRAC(3662)=0.610333 TFRAC(3663)=0.6105 ;TFRAC(3664)=0.610667 TFRAC(3665)=0.610833 ;TFRAC(3666)=0.611 TFRAC(3667)=0.611167 ;TFRAC(3668)=0.611333 TFRAC(3669)=0.6115 ;TFRAC(3670)=0.611667 TFRAC(3671)=0.611833 ;TFRAC(3672)=0.612 TFRAC(3673)=0.612167 ;TFRAC(3674)=0.612333 TFRAC(3675)=0.6125 ;TFRAC(3676)=0.612667 TFRAC(3677)=0.612833 ;TFRAC(3678)=0.613 TFRAC(3679)=0.613167 ;TFRAC(3680)=0.613333 TFRAC(3681)=0.6135 ;TFRAC(3682)=0.613667 TFRAC(3683)=0.613833 ;TFRAC(3684)=0.614 TFRAC(3685)=0.614167 ;TFRAC(3686)=0.614333 TFRAC(3687)=0.6145 ;TFRAC(3688)=0.614667 TFRAC(3689)=0.614833 ;TFRAC(3690)=0.615 TFRAC(3691)=0.615167 ;TFRAC(3692)=0.615333 TFRAC(3693)=0.6155 ;TFRAC(3694)=0.615667 TFRAC(3695)=0.615833 ;TFRAC(3696)=0.616 TFRAC(3697)=0.616167 ;TFRAC(3698)=0.616333 TFRAC(3699)=0.6165 ;TFRAC(3700)=0.616667 TFRAC(3701)=0.616833 ;TFRAC(3702)=0.617 TFRAC(3703)=0.617167 ;TFRAC(3704)=0.617333 TFRAC(3705)=0.6175 ;TFRAC(3706)=0.617667 TFRAC(3707)=0.617833 ;TFRAC(3708)=0.618 TFRAC(3709)=0.618167 ;TFRAC(3710)=0.618333 TFRAC(3711)=0.6185 ;TFRAC(3712)=0.618667 TFRAC(3713)=0.618833 ;TFRAC(3714)=0.619 TFRAC(3715)=0.619167 ;TFRAC(3716)=0.619333 TFRAC(3717)=0.6195 ;TFRAC(3718)=0.619667 TFRAC(3719)=0.619833 ;TFRAC(3720)=0.62 TFRAC(3721)=0.620167 ;TFRAC(3722)=0.620333 TFRAC(3723)=0.6205 ;TFRAC(3724)=0.620667 TFRAC(3725)=0.620833 ;TFRAC(3726)=0.621 TFRAC(3727)=0.621167 ;TFRAC(3728)=0.621333 TFRAC(3729)=0.6215 ;TFRAC(3730)=0.621667 TFRAC(3731)=0.621833 ;TFRAC(3732)=0.622 TFRAC(3733)=0.622167 ;TFRAC(3734)=0.622333 TFRAC(3735)=0.6225 ;TFRAC(3736)=0.622667 TFRAC(3737)=0.622833 ;TFRAC(3738)=0.623 TFRAC(3739)=0.623167 ;TFRAC(3740)=0.623333 TFRAC(3741)=0.6235 ;TFRAC(3742)=0.623667 TFRAC(3743)=0.623833 ;TFRAC(3744)=0.624 TFRAC(3745)=0.624167 ;TFRAC(3746)=0.624333 TFRAC(3747)=0.6245 ;TFRAC(3748)=0.624667 TFRAC(3749)=0.624833 ;TFRAC(3750)=0.625 TFRAC(3751)=0.625167 ;TFRAC(3752)=0.625333 TFRAC(3753)=0.6255 ;TFRAC(3754)=0.625667 TFRAC(3755)=0.625833 ;TFRAC(3756)=0.626 TFRAC(3757)=0.626167 ;TFRAC(3758)=0.626333 TFRAC(3759)=0.6265 ;TFRAC(3760)=0.626667 TFRAC(3761)=0.626833 ;TFRAC(3762)=0.627 TFRAC(3763)=0.627167 ;TFRAC(3764)=0.627333 TFRAC(3765)=0.6275 ;TFRAC(3766)=0.627667 TFRAC(3767)=0.627833 ;TFRAC(3768)=0.628 TFRAC(3769)=0.628167 ;TFRAC(3770)=0.628333 TFRAC(3771)=0.6285 ;TFRAC(3772)=0.628667 TFRAC(3773)=0.628833 ;TFRAC(3774)=0.629 TFRAC(3775)=0.629167 ;TFRAC(3776)=0.629333 TFRAC(3777)=0.6295 ;TFRAC(3778)=0.629667 TFRAC(3779)=0.629833 ;TFRAC(3780)=0.63 TFRAC(3781)=0.630167 ;TFRAC(3782)=0.630333 TFRAC(3783)=0.6305 ;TFRAC(3784)=0.630667 TFRAC(3785)=0.630833 ;TFRAC(3786)=0.631 TFRAC(3787)=0.631167 ;TFRAC(3788)=0.631333 TFRAC(3789)=0.6315 ;TFRAC(3790)=0.631667 TFRAC(3791)=0.631833 ;TFRAC(3792)=0.632 TFRAC(3793)=0.632167 ;TFRAC(3794)=0.632333 TFRAC(3795)=0.6325 ;TFRAC(3796)=0.632667 TFRAC(3797)=0.632833 ;TFRAC(3798)=0.633 TFRAC(3799)=0.633167 ;TFRAC(3800)=0.633333 TFRAC(3801)=0.6335 ;TFRAC(3802)=0.633667 TFRAC(3803)=0.633833 ;TFRAC(3804)=0.634 TFRAC(3805)=0.634167 ;TFRAC(3806)=0.634333 TFRAC(3807)=0.6345 ;TFRAC(3808)=0.634667 TFRAC(3809)=0.634833 ;TFRAC(3810)=0.635 TFRAC(3811)=0.635167 ;TFRAC(3812)=0.635333 TFRAC(3813)=0.6355 ;TFRAC(3814)=0.635667 TFRAC(3815)=0.635833 ;TFRAC(3816)=0.636 TFRAC(3817)=0.636167 ;TFRAC(3818)=0.636333 TFRAC(3819)=0.6365 ;TFRAC(3820)=0.636667 TFRAC(3821)=0.636833 ;TFRAC(3822)=0.637 TFRAC(3823)=0.637167 ;TFRAC(3824)=0.637333 TFRAC(3825)=0.6375 ;TFRAC(3826)=0.637667 TFRAC(3827)=0.637833 ;TFRAC(3828)=0.638 TFRAC(3829)=0.638167 ;TFRAC(3830)=0.638333 TFRAC(3831)=0.6385 ;TFRAC(3832)=0.638667 TFRAC(3833)=0.638833 ;TFRAC(3834)=0.639 TFRAC(3835)=0.639167 ;TFRAC(3836)=0.639333 TFRAC(3837)=0.6395 ;TFRAC(3838)=0.639667 TFRAC(3839)=0.639833 ;TFRAC(3840)=0.64 TFRAC(3841)=0.640167 ;TFRAC(3842)=0.640333 TFRAC(3843)=0.6405 ;TFRAC(3844)=0.640667 TFRAC(3845)=0.640833 ;TFRAC(3846)=0.641 TFRAC(3847)=0.641167 ;TFRAC(3848)=0.641333 TFRAC(3849)=0.6415 ;TFRAC(3850)=0.641667 TFRAC(3851)=0.641833 ;TFRAC(3852)=0.642 TFRAC(3853)=0.642167 ;TFRAC(3854)=0.642333 TFRAC(3855)=0.6425 ;TFRAC(3856)=0.642667 TFRAC(3857)=0.642833 ;TFRAC(3858)=0.643 TFRAC(3859)=0.643167 ;TFRAC(3860)=0.643333 TFRAC(3861)=0.6435 ;TFRAC(3862)=0.643667 TFRAC(3863)=0.643833 ;TFRAC(3864)=0.644 TFRAC(3865)=0.644167 ;TFRAC(3866)=0.644333 TFRAC(3867)=0.6445 ;TFRAC(3868)=0.644667 TFRAC(3869)=0.644833 ;TFRAC(3870)=0.645 TFRAC(3871)=0.645167 ;TFRAC(3872)=0.645333 TFRAC(3873)=0.6455 ;TFRAC(3874)=0.645667 TFRAC(3875)=0.645833 ;TFRAC(3876)=0.646 TFRAC(3877)=0.646167 ;TFRAC(3878)=0.646333 TFRAC(3879)=0.6465 ;TFRAC(3880)=0.646667 TFRAC(3881)=0.646833 ;TFRAC(3882)=0.647 TFRAC(3883)=0.647167 ;TFRAC(3884)=0.647333 TFRAC(3885)=0.6475 ;TFRAC(3886)=0.647667 TFRAC(3887)=0.647833 ;TFRAC(3888)=0.648 TFRAC(3889)=0.648167 ;TFRAC(3890)=0.648333 TFRAC(3891)=0.6485 ;TFRAC(3892)=0.648667 TFRAC(3893)=0.648833 ;TFRAC(3894)=0.649 TFRAC(3895)=0.649167 ;TFRAC(3896)=0.649333 TFRAC(3897)=0.6495 ;TFRAC(3898)=0.649667 TFRAC(3899)=0.649833 ;TFRAC(3900)=0.65 TFRAC(3901)=0.650167 ;TFRAC(3902)=0.650333 TFRAC(3903)=0.6505 ;TFRAC(3904)=0.650667 TFRAC(3905)=0.650833 ;TFRAC(3906)=0.651 TFRAC(3907)=0.651167 ;TFRAC(3908)=0.651333 TFRAC(3909)=0.6515 ;TFRAC(3910)=0.651667 TFRAC(3911)=0.651833 ;TFRAC(3912)=0.652 TFRAC(3913)=0.652167 ;TFRAC(3914)=0.652333 TFRAC(3915)=0.6525 ;TFRAC(3916)=0.652667 TFRAC(3917)=0.652833 ;TFRAC(3918)=0.653 TFRAC(3919)=0.653167 ;TFRAC(3920)=0.653333 TFRAC(3921)=0.6535 ;TFRAC(3922)=0.653667 TFRAC(3923)=0.653833 ;TFRAC(3924)=0.654 TFRAC(3925)=0.654167 ;TFRAC(3926)=0.654333 TFRAC(3927)=0.6545 ;TFRAC(3928)=0.654667 TFRAC(3929)=0.654833 ;TFRAC(3930)=0.655 TFRAC(3931)=0.655167 ;TFRAC(3932)=0.655333 TFRAC(3933)=0.6555 ;TFRAC(3934)=0.655667 TFRAC(3935)=0.655833 ;TFRAC(3936)=0.656 TFRAC(3937)=0.656167 ;TFRAC(3938)=0.656333 TFRAC(3939)=0.6565 ;TFRAC(3940)=0.656667 TFRAC(3941)=0.656833 ;TFRAC(3942)=0.657 TFRAC(3943)=0.657167 ;TFRAC(3944)=0.657333 TFRAC(3945)=0.6575 ;TFRAC(3946)=0.657667 TFRAC(3947)=0.657833 ;TFRAC(3948)=0.658 TFRAC(3949)=0.658167 ;TFRAC(3950)=0.658333 TFRAC(3951)=0.6585 ;TFRAC(3952)=0.658667 TFRAC(3953)=0.658833 ;TFRAC(3954)=0.659 TFRAC(3955)=0.659167 ;TFRAC(3956)=0.659333 TFRAC(3957)=0.6595 ;TFRAC(3958)=0.659667 TFRAC(3959)=0.659833 ;TFRAC(3960)=0.66 TFRAC(3961)=0.660167 ;TFRAC(3962)=0.660333 TFRAC(3963)=0.6605 ;TFRAC(3964)=0.660667 TFRAC(3965)=0.660833 ;TFRAC(3966)=0.661 TFRAC(3967)=0.661167 ;TFRAC(3968)=0.661333 TFRAC(3969)=0.6615 ;TFRAC(3970)=0.661667 TFRAC(3971)=0.661833 ;TFRAC(3972)=0.662 TFRAC(3973)=0.662167 ;TFRAC(3974)=0.662333 TFRAC(3975)=0.6625 ;TFRAC(3976)=0.662667 TFRAC(3977)=0.662833 ;TFRAC(3978)=0.663 TFRAC(3979)=0.663167 ;TFRAC(3980)=0.663333 TFRAC(3981)=0.6635 ;TFRAC(3982)=0.663667 TFRAC(3983)=0.663833 ;TFRAC(3984)=0.664 TFRAC(3985)=0.664167 ;TFRAC(3986)=0.664333 TFRAC(3987)=0.6645 ;TFRAC(3988)=0.664667 TFRAC(3989)=0.664833 ;TFRAC(3990)=0.665 TFRAC(3991)=0.665167 ;TFRAC(3992)=0.665333 TFRAC(3993)=0.6655 ;TFRAC(3994)=0.665667 TFRAC(3995)=0.665833 ;TFRAC(3996)=0.666 TFRAC(3997)=0.666167 ;TFRAC(3998)=0.666333 TFRAC(3999)=0.6665 ;TFRAC(4000)=0.666667 TFRAC(4001)=0.666833 ;TFRAC(4002)=0.667 TFRAC(4003)=0.667167 ;TFRAC(4004)=0.667333 TFRAC(4005)=0.6675 ;TFRAC(4006)=0.667667 TFRAC(4007)=0.667833 ;TFRAC(4008)=0.668 TFRAC(4009)=0.668167 ;TFRAC(4010)=0.668333 TFRAC(4011)=0.6685 ;TFRAC(4012)=0.668667 TFRAC(4013)=0.668833 ;TFRAC(4014)=0.669 TFRAC(4015)=0.669167 ;TFRAC(4016)=0.669333 TFRAC(4017)=0.6695 ;TFRAC(4018)=0.669667 TFRAC(4019)=0.669833 ;TFRAC(4020)=0.67 TFRAC(4021)=0.670167 ;TFRAC(4022)=0.670333 TFRAC(4023)=0.6705 ;TFRAC(4024)=0.670667 TFRAC(4025)=0.670833 ;TFRAC(4026)=0.671 TFRAC(4027)=0.671167 ;TFRAC(4028)=0.671333 TFRAC(4029)=0.6715 ;TFRAC(4030)=0.671667 TFRAC(4031)=0.671833 ;TFRAC(4032)=0.672 TFRAC(4033)=0.672167 ;TFRAC(4034)=0.672333 TFRAC(4035)=0.6725 ;TFRAC(4036)=0.672667 TFRAC(4037)=0.672833 ;TFRAC(4038)=0.673 TFRAC(4039)=0.673167 ;TFRAC(4040)=0.673333 TFRAC(4041)=0.6735 ;TFRAC(4042)=0.673667 TFRAC(4043)=0.673833 ;TFRAC(4044)=0.674 TFRAC(4045)=0.674167 ;TFRAC(4046)=0.674333 TFRAC(4047)=0.6745 ;TFRAC(4048)=0.674667 TFRAC(4049)=0.674833 ;TFRAC(4050)=0.675 TFRAC(4051)=0.675167 ;TFRAC(4052)=0.675333 TFRAC(4053)=0.6755 ;TFRAC(4054)=0.675667 TFRAC(4055)=0.675833 ;TFRAC(4056)=0.676 TFRAC(4057)=0.676167 ;TFRAC(4058)=0.676333 TFRAC(4059)=0.6765 ;TFRAC(4060)=0.676667 TFRAC(4061)=0.676833 ;TFRAC(4062)=0.677 TFRAC(4063)=0.677167 ;TFRAC(4064)=0.677333 TFRAC(4065)=0.6775 ;TFRAC(4066)=0.677667 TFRAC(4067)=0.677833 ;TFRAC(4068)=0.678 TFRAC(4069)=0.678167 ;TFRAC(4070)=0.678333 TFRAC(4071)=0.6785 ;TFRAC(4072)=0.678667 TFRAC(4073)=0.678833 ;TFRAC(4074)=0.679 TFRAC(4075)=0.679167 ;TFRAC(4076)=0.679333 TFRAC(4077)=0.6795 ;TFRAC(4078)=0.679667 TFRAC(4079)=0.679833 ;TFRAC(4080)=0.68 TFRAC(4081)=0.680167 ;TFRAC(4082)=0.680333 TFRAC(4083)=0.6805 ;TFRAC(4084)=0.680667 TFRAC(4085)=0.680833 ;TFRAC(4086)=0.681 TFRAC(4087)=0.681167 ;TFRAC(4088)=0.681333 TFRAC(4089)=0.6815 ;TFRAC(4090)=0.681667 TFRAC(4091)=0.681833 ;TFRAC(4092)=0.682 TFRAC(4093)=0.682167 ;TFRAC(4094)=0.682333 TFRAC(4095)=0.6825 ;TFRAC(4096)=0.682667 TFRAC(4097)=0.682833 ;TFRAC(4098)=0.683 TFRAC(4099)=0.683167 ;TFRAC(4100)=0.683333 TFRAC(4101)=0.6835 ;TFRAC(4102)=0.683667 TFRAC(4103)=0.683833 ;TFRAC(4104)=0.684 TFRAC(4105)=0.684167 ;TFRAC(4106)=0.684333 TFRAC(4107)=0.6845 ;TFRAC(4108)=0.684667 TFRAC(4109)=0.684833 ;TFRAC(4110)=0.685 TFRAC(4111)=0.685167 ;TFRAC(4112)=0.685333 TFRAC(4113)=0.6855 ;TFRAC(4114)=0.685667 TFRAC(4115)=0.685833 ;TFRAC(4116)=0.686 TFRAC(4117)=0.686167 ;TFRAC(4118)=0.686333 TFRAC(4119)=0.6865 ;TFRAC(4120)=0.686667 TFRAC(4121)=0.686833 ;TFRAC(4122)=0.687 TFRAC(4123)=0.687167 ;TFRAC(4124)=0.687333 TFRAC(4125)=0.6875 ;TFRAC(4126)=0.687667 TFRAC(4127)=0.687833 ;TFRAC(4128)=0.688 TFRAC(4129)=0.688167 ;TFRAC(4130)=0.688333 TFRAC(4131)=0.6885 ;TFRAC(4132)=0.688667 TFRAC(4133)=0.688833 ;TFRAC(4134)=0.689 TFRAC(4135)=0.689167 ;TFRAC(4136)=0.689333 TFRAC(4137)=0.6895 ;TFRAC(4138)=0.689667 TFRAC(4139)=0.689833 ;TFRAC(4140)=0.69 TFRAC(4141)=0.690167 ;TFRAC(4142)=0.690333 TFRAC(4143)=0.6905 ;TFRAC(4144)=0.690667 TFRAC(4145)=0.690833 ;TFRAC(4146)=0.691 TFRAC(4147)=0.691167 ;TFRAC(4148)=0.691333 TFRAC(4149)=0.6915 ;TFRAC(4150)=0.691667 TFRAC(4151)=0.691833 ;TFRAC(4152)=0.692 TFRAC(4153)=0.692167 ;TFRAC(4154)=0.692333 TFRAC(4155)=0.6925 ;TFRAC(4156)=0.692667 TFRAC(4157)=0.692833 ;TFRAC(4158)=0.693 TFRAC(4159)=0.693167 ;TFRAC(4160)=0.693333 TFRAC(4161)=0.6935 ;TFRAC(4162)=0.693667 TFRAC(4163)=0.693833 ;TFRAC(4164)=0.694 TFRAC(4165)=0.694167 ;TFRAC(4166)=0.694333 TFRAC(4167)=0.6945 ;TFRAC(4168)=0.694667 TFRAC(4169)=0.694833 ;TFRAC(4170)=0.695 TFRAC(4171)=0.695167 ;TFRAC(4172)=0.695333 TFRAC(4173)=0.6955 ;TFRAC(4174)=0.695667 TFRAC(4175)=0.695833 ;TFRAC(4176)=0.696 TFRAC(4177)=0.696167 ;TFRAC(4178)=0.696333 TFRAC(4179)=0.6965 ;TFRAC(4180)=0.696667 TFRAC(4181)=0.696833 ;TFRAC(4182)=0.697 TFRAC(4183)=0.697167 ;TFRAC(4184)=0.697333 TFRAC(4185)=0.6975 ;TFRAC(4186)=0.697667 TFRAC(4187)=0.697833 ;TFRAC(4188)=0.698 TFRAC(4189)=0.698167 ;TFRAC(4190)=0.698333 TFRAC(4191)=0.6985 ;TFRAC(4192)=0.698667 TFRAC(4193)=0.698833 ;TFRAC(4194)=0.699 TFRAC(4195)=0.699167 ;TFRAC(4196)=0.699333 TFRAC(4197)=0.6995 ;TFRAC(4198)=0.699667 TFRAC(4199)=0.699833 ;TFRAC(4200)=0.7 TFRAC(4201)=0.700167 ;TFRAC(4202)=0.700333 TFRAC(4203)=0.7005 ;TFRAC(4204)=0.700667 TFRAC(4205)=0.700833 ;TFRAC(4206)=0.701 TFRAC(4207)=0.701167 ;TFRAC(4208)=0.701333 TFRAC(4209)=0.7015 ;TFRAC(4210)=0.701667 TFRAC(4211)=0.701833 ;TFRAC(4212)=0.702 TFRAC(4213)=0.702167 ;TFRAC(4214)=0.702333 TFRAC(4215)=0.7025 ;TFRAC(4216)=0.702667 TFRAC(4217)=0.702833 ;TFRAC(4218)=0.703 TFRAC(4219)=0.703167 ;TFRAC(4220)=0.703333 TFRAC(4221)=0.7035 ;TFRAC(4222)=0.703667 TFRAC(4223)=0.703833 ;TFRAC(4224)=0.704 TFRAC(4225)=0.704167 ;TFRAC(4226)=0.704333 TFRAC(4227)=0.7045 ;TFRAC(4228)=0.704667 TFRAC(4229)=0.704833 ;TFRAC(4230)=0.705 TFRAC(4231)=0.705167 ;TFRAC(4232)=0.705333 TFRAC(4233)=0.7055 ;TFRAC(4234)=0.705667 TFRAC(4235)=0.705833 ;TFRAC(4236)=0.706 TFRAC(4237)=0.706167 ;TFRAC(4238)=0.706333 TFRAC(4239)=0.7065 ;TFRAC(4240)=0.706667 TFRAC(4241)=0.706833 ;TFRAC(4242)=0.707 TFRAC(4243)=0.707167 ;TFRAC(4244)=0.707333 TFRAC(4245)=0.7075 ;TFRAC(4246)=0.707667 TFRAC(4247)=0.707833 ;TFRAC(4248)=0.708 TFRAC(4249)=0.708167 ;TFRAC(4250)=0.708333 TFRAC(4251)=0.7085 ;TFRAC(4252)=0.708667 TFRAC(4253)=0.708833 ;TFRAC(4254)=0.709 TFRAC(4255)=0.709167 ;TFRAC(4256)=0.709333 TFRAC(4257)=0.7095 ;TFRAC(4258)=0.709667 TFRAC(4259)=0.709833 ;TFRAC(4260)=0.71 TFRAC(4261)=0.710167 ;TFRAC(4262)=0.710333 TFRAC(4263)=0.7105 ;TFRAC(4264)=0.710667 TFRAC(4265)=0.710833 ;TFRAC(4266)=0.711 TFRAC(4267)=0.711167 ;TFRAC(4268)=0.711333 TFRAC(4269)=0.7115 ;TFRAC(4270)=0.711667 TFRAC(4271)=0.711833 ;TFRAC(4272)=0.712 TFRAC(4273)=0.712167 ;TFRAC(4274)=0.712333 TFRAC(4275)=0.7125 ;TFRAC(4276)=0.712667 TFRAC(4277)=0.712833 ;TFRAC(4278)=0.713 TFRAC(4279)=0.713167 ;TFRAC(4280)=0.713333 TFRAC(4281)=0.7135 ;TFRAC(4282)=0.713667 TFRAC(4283)=0.713833 ;TFRAC(4284)=0.714 TFRAC(4285)=0.714167 ;TFRAC(4286)=0.714333 TFRAC(4287)=0.7145 ;TFRAC(4288)=0.714667 TFRAC(4289)=0.714833 ;TFRAC(4290)=0.715 TFRAC(4291)=0.715167 ;TFRAC(4292)=0.715333 TFRAC(4293)=0.7155 ;TFRAC(4294)=0.715667 TFRAC(4295)=0.715833 ;TFRAC(4296)=0.716 TFRAC(4297)=0.716167 ;TFRAC(4298)=0.716333 TFRAC(4299)=0.7165 ;TFRAC(4300)=0.716667 TFRAC(4301)=0.716833 ;TFRAC(4302)=0.717 TFRAC(4303)=0.717167 ;TFRAC(4304)=0.717333 TFRAC(4305)=0.7175 ;TFRAC(4306)=0.717667 TFRAC(4307)=0.717833 ;TFRAC(4308)=0.718 TFRAC(4309)=0.718167 ;TFRAC(4310)=0.718333 TFRAC(4311)=0.7185 ;TFRAC(4312)=0.718667 TFRAC(4313)=0.718833 ;TFRAC(4314)=0.719 TFRAC(4315)=0.719167 ;TFRAC(4316)=0.719333 TFRAC(4317)=0.7195 ;TFRAC(4318)=0.719667 TFRAC(4319)=0.719833 ;TFRAC(4320)=0.72 TFRAC(4321)=0.720167 ;TFRAC(4322)=0.720333 TFRAC(4323)=0.7205 ;TFRAC(4324)=0.720667 TFRAC(4325)=0.720833 ;TFRAC(4326)=0.721 TFRAC(4327)=0.721167 ;TFRAC(4328)=0.721333 TFRAC(4329)=0.7215 ;TFRAC(4330)=0.721667 TFRAC(4331)=0.721833 ;TFRAC(4332)=0.722 TFRAC(4333)=0.722167 ;TFRAC(4334)=0.722333 TFRAC(4335)=0.7225 ;TFRAC(4336)=0.722667 TFRAC(4337)=0.722833 ;TFRAC(4338)=0.723 TFRAC(4339)=0.723167 ;TFRAC(4340)=0.723333 TFRAC(4341)=0.7235 ;TFRAC(4342)=0.723667 TFRAC(4343)=0.723833 ;TFRAC(4344)=0.724 TFRAC(4345)=0.724167 ;TFRAC(4346)=0.724333 TFRAC(4347)=0.7245 ;TFRAC(4348)=0.724667 TFRAC(4349)=0.724833 ;TFRAC(4350)=0.725 TFRAC(4351)=0.725167 ;TFRAC(4352)=0.725333 TFRAC(4353)=0.7255 ;TFRAC(4354)=0.725667 TFRAC(4355)=0.725833 ;TFRAC(4356)=0.726 TFRAC(4357)=0.726167 ;TFRAC(4358)=0.726333 TFRAC(4359)=0.7265 ;TFRAC(4360)=0.726667 TFRAC(4361)=0.726833 ;TFRAC(4362)=0.727 TFRAC(4363)=0.727167 ;TFRAC(4364)=0.727333 TFRAC(4365)=0.7275 ;TFRAC(4366)=0.727667 TFRAC(4367)=0.727833 ;TFRAC(4368)=0.728 TFRAC(4369)=0.728167 ;TFRAC(4370)=0.728333 TFRAC(4371)=0.7285 ;TFRAC(4372)=0.728667 TFRAC(4373)=0.728833 ;TFRAC(4374)=0.729 TFRAC(4375)=0.729167 ;TFRAC(4376)=0.729333 TFRAC(4377)=0.7295 ;TFRAC(4378)=0.729667 TFRAC(4379)=0.729833 ;TFRAC(4380)=0.73 TFRAC(4381)=0.730167 ;TFRAC(4382)=0.730333 TFRAC(4383)=0.7305 ;TFRAC(4384)=0.730667 TFRAC(4385)=0.730833 ;TFRAC(4386)=0.731 TFRAC(4387)=0.731167 ;TFRAC(4388)=0.731333 TFRAC(4389)=0.7315 ;TFRAC(4390)=0.731667 TFRAC(4391)=0.731833 ;TFRAC(4392)=0.732 TFRAC(4393)=0.732167 ;TFRAC(4394)=0.732333 TFRAC(4395)=0.7325 ;TFRAC(4396)=0.732667 TFRAC(4397)=0.732833 ;TFRAC(4398)=0.733 TFRAC(4399)=0.733167 ;TFRAC(4400)=0.733333 TFRAC(4401)=0.7335 ;TFRAC(4402)=0.733667 TFRAC(4403)=0.733833 ;TFRAC(4404)=0.734 TFRAC(4405)=0.734167 ;TFRAC(4406)=0.734333 TFRAC(4407)=0.7345 ;TFRAC(4408)=0.734667 TFRAC(4409)=0.734833 ;TFRAC(4410)=0.735 TFRAC(4411)=0.735167 ;TFRAC(4412)=0.735333 TFRAC(4413)=0.7355 ;TFRAC(4414)=0.735667 TFRAC(4415)=0.735833 ;TFRAC(4416)=0.736 TFRAC(4417)=0.736167 ;TFRAC(4418)=0.736333 TFRAC(4419)=0.7365 ;TFRAC(4420)=0.736667 TFRAC(4421)=0.736833 ;TFRAC(4422)=0.737 TFRAC(4423)=0.737167 ;TFRAC(4424)=0.737333 TFRAC(4425)=0.7375 ;TFRAC(4426)=0.737667 TFRAC(4427)=0.737833 ;TFRAC(4428)=0.738 TFRAC(4429)=0.738167 ;TFRAC(4430)=0.738333 TFRAC(4431)=0.7385 ;TFRAC(4432)=0.738667 TFRAC(4433)=0.738833 ;TFRAC(4434)=0.739 TFRAC(4435)=0.739167 ;TFRAC(4436)=0.739333 TFRAC(4437)=0.7395 ;TFRAC(4438)=0.739667 TFRAC(4439)=0.739833 ;TFRAC(4440)=0.74 TFRAC(4441)=0.740167 ;TFRAC(4442)=0.740333 TFRAC(4443)=0.7405 ;TFRAC(4444)=0.740667 TFRAC(4445)=0.740833 ;TFRAC(4446)=0.741 TFRAC(4447)=0.741167 ;TFRAC(4448)=0.741333 TFRAC(4449)=0.7415 ;TFRAC(4450)=0.741667 TFRAC(4451)=0.741833 ;TFRAC(4452)=0.742 TFRAC(4453)=0.742167 ;TFRAC(4454)=0.742333 TFRAC(4455)=0.7425 ;TFRAC(4456)=0.742667 TFRAC(4457)=0.742833 ;TFRAC(4458)=0.743 TFRAC(4459)=0.743167 ;TFRAC(4460)=0.743333 TFRAC(4461)=0.7435 ;TFRAC(4462)=0.743667 TFRAC(4463)=0.743833 ;TFRAC(4464)=0.744 TFRAC(4465)=0.744167 ;TFRAC(4466)=0.744333 TFRAC(4467)=0.7445 ;TFRAC(4468)=0.744667 TFRAC(4469)=0.744833 ;TFRAC(4470)=0.745 TFRAC(4471)=0.745167 ;TFRAC(4472)=0.745333 TFRAC(4473)=0.7455 ;TFRAC(4474)=0.745667 TFRAC(4475)=0.745833 ;TFRAC(4476)=0.746 TFRAC(4477)=0.746167 ;TFRAC(4478)=0.746333 TFRAC(4479)=0.7465 ;TFRAC(4480)=0.746667 TFRAC(4481)=0.746833 ;TFRAC(4482)=0.747 TFRAC(4483)=0.747167 ;TFRAC(4484)=0.747333 TFRAC(4485)=0.7475 ;TFRAC(4486)=0.747667 TFRAC(4487)=0.747833 ;TFRAC(4488)=0.748 TFRAC(4489)=0.748167 ;TFRAC(4490)=0.748333 TFRAC(4491)=0.7485 ;TFRAC(4492)=0.748667 TFRAC(4493)=0.748833 ;TFRAC(4494)=0.749 TFRAC(4495)=0.749167 ;TFRAC(4496)=0.749333 TFRAC(4497)=0.7495 ;TFRAC(4498)=0.749667 TFRAC(4499)=0.749833 ;TFRAC(4500)=0.75 TFRAC(4501)=0.750167 ;TFRAC(4502)=0.750333 TFRAC(4503)=0.7505 ;TFRAC(4504)=0.750667 TFRAC(4505)=0.750833 ;TFRAC(4506)=0.751 TFRAC(4507)=0.751167 ;TFRAC(4508)=0.751333 TFRAC(4509)=0.7515 ;TFRAC(4510)=0.751667 TFRAC(4511)=0.751833 ;TFRAC(4512)=0.752 TFRAC(4513)=0.752167 ;TFRAC(4514)=0.752333 TFRAC(4515)=0.7525 ;TFRAC(4516)=0.752667 TFRAC(4517)=0.752833 ;TFRAC(4518)=0.753 TFRAC(4519)=0.753167 ;TFRAC(4520)=0.753333 TFRAC(4521)=0.7535 ;TFRAC(4522)=0.753667 TFRAC(4523)=0.753833 ;TFRAC(4524)=0.754 TFRAC(4525)=0.754167 ;TFRAC(4526)=0.754333 TFRAC(4527)=0.7545 ;TFRAC(4528)=0.754667 TFRAC(4529)=0.754833 ;TFRAC(4530)=0.755 TFRAC(4531)=0.755167 ;TFRAC(4532)=0.755333 TFRAC(4533)=0.7555 ;TFRAC(4534)=0.755667 TFRAC(4535)=0.755833 ;TFRAC(4536)=0.756 TFRAC(4537)=0.756167 ;TFRAC(4538)=0.756333 TFRAC(4539)=0.7565 ;TFRAC(4540)=0.756667 TFRAC(4541)=0.756833 ;TFRAC(4542)=0.757 TFRAC(4543)=0.757167 ;TFRAC(4544)=0.757333 TFRAC(4545)=0.7575 ;TFRAC(4546)=0.757667 TFRAC(4547)=0.757833 ;TFRAC(4548)=0.758 TFRAC(4549)=0.758167 ;TFRAC(4550)=0.758333 TFRAC(4551)=0.7585 ;TFRAC(4552)=0.758667 TFRAC(4553)=0.758833 ;TFRAC(4554)=0.759 TFRAC(4555)=0.759167 ;TFRAC(4556)=0.759333 TFRAC(4557)=0.7595 ;TFRAC(4558)=0.759667 TFRAC(4559)=0.759833 ;TFRAC(4560)=0.76 TFRAC(4561)=0.760167 ;TFRAC(4562)=0.760333 TFRAC(4563)=0.7605 ;TFRAC(4564)=0.760667 TFRAC(4565)=0.760833 ;TFRAC(4566)=0.761 TFRAC(4567)=0.761167 ;TFRAC(4568)=0.761333 TFRAC(4569)=0.7615 ;TFRAC(4570)=0.761667 TFRAC(4571)=0.761833 ;TFRAC(4572)=0.762 TFRAC(4573)=0.762167 ;TFRAC(4574)=0.762333 TFRAC(4575)=0.7625 ;TFRAC(4576)=0.762667 TFRAC(4577)=0.762833 ;TFRAC(4578)=0.763 TFRAC(4579)=0.763167 ;TFRAC(4580)=0.763333 TFRAC(4581)=0.7635 ;TFRAC(4582)=0.763667 TFRAC(4583)=0.763833 ;TFRAC(4584)=0.764 TFRAC(4585)=0.764167 ;TFRAC(4586)=0.764333 TFRAC(4587)=0.7645 ;TFRAC(4588)=0.764667 TFRAC(4589)=0.764833 ;TFRAC(4590)=0.765 TFRAC(4591)=0.765167 ;TFRAC(4592)=0.765333 TFRAC(4593)=0.7655 ;TFRAC(4594)=0.765667 TFRAC(4595)=0.765833 ;TFRAC(4596)=0.766 TFRAC(4597)=0.766167 ;TFRAC(4598)=0.766333 TFRAC(4599)=0.7665 ;TFRAC(4600)=0.766667 TFRAC(4601)=0.766833 ;TFRAC(4602)=0.767 TFRAC(4603)=0.767167 ;TFRAC(4604)=0.767333 TFRAC(4605)=0.7675 ;TFRAC(4606)=0.767667 TFRAC(4607)=0.767833 ;TFRAC(4608)=0.768 TFRAC(4609)=0.768167 ;TFRAC(4610)=0.768333 TFRAC(4611)=0.7685 ;TFRAC(4612)=0.768667 TFRAC(4613)=0.768833 ;TFRAC(4614)=0.769 TFRAC(4615)=0.769167 ;TFRAC(4616)=0.769333 TFRAC(4617)=0.7695 ;TFRAC(4618)=0.769667 TFRAC(4619)=0.769833 ;TFRAC(4620)=0.77 TFRAC(4621)=0.770167 ;TFRAC(4622)=0.770333 TFRAC(4623)=0.7705 ;TFRAC(4624)=0.770667 TFRAC(4625)=0.770833 ;TFRAC(4626)=0.771 TFRAC(4627)=0.771167 ;TFRAC(4628)=0.771333 TFRAC(4629)=0.7715 ;TFRAC(4630)=0.771667 TFRAC(4631)=0.771833 ;TFRAC(4632)=0.772 TFRAC(4633)=0.772167 ;TFRAC(4634)=0.772333 TFRAC(4635)=0.7725 ;TFRAC(4636)=0.772667 TFRAC(4637)=0.772833 ;TFRAC(4638)=0.773 TFRAC(4639)=0.773167 ;TFRAC(4640)=0.773333 TFRAC(4641)=0.7735 ;TFRAC(4642)=0.773667 TFRAC(4643)=0.773833 ;TFRAC(4644)=0.774 TFRAC(4645)=0.774167 ;TFRAC(4646)=0.774333 TFRAC(4647)=0.7745 ;TFRAC(4648)=0.774667 TFRAC(4649)=0.774833 ;TFRAC(4650)=0.775 TFRAC(4651)=0.775167 ;TFRAC(4652)=0.775333 TFRAC(4653)=0.7755 ;TFRAC(4654)=0.775667 TFRAC(4655)=0.775833 ;TFRAC(4656)=0.776 TFRAC(4657)=0.776167 ;TFRAC(4658)=0.776333 TFRAC(4659)=0.7765 ;TFRAC(4660)=0.776667 TFRAC(4661)=0.776833 ;TFRAC(4662)=0.777 TFRAC(4663)=0.777167 ;TFRAC(4664)=0.777333 TFRAC(4665)=0.7775 ;TFRAC(4666)=0.777667 TFRAC(4667)=0.777833 ;TFRAC(4668)=0.778 TFRAC(4669)=0.778167 ;TFRAC(4670)=0.778333 TFRAC(4671)=0.7785 ;TFRAC(4672)=0.778667 TFRAC(4673)=0.778833 ;TFRAC(4674)=0.779 TFRAC(4675)=0.779167 ;TFRAC(4676)=0.779333 TFRAC(4677)=0.7795 ;TFRAC(4678)=0.779667 TFRAC(4679)=0.779833 ;TFRAC(4680)=0.78 TFRAC(4681)=0.780167 ;TFRAC(4682)=0.780333 TFRAC(4683)=0.7805 ;TFRAC(4684)=0.780667 TFRAC(4685)=0.780833 ;TFRAC(4686)=0.781 TFRAC(4687)=0.781167 ;TFRAC(4688)=0.781333 TFRAC(4689)=0.7815 ;TFRAC(4690)=0.781667 TFRAC(4691)=0.781833 ;TFRAC(4692)=0.782 TFRAC(4693)=0.782167 ;TFRAC(4694)=0.782333 TFRAC(4695)=0.7825 ;TFRAC(4696)=0.782667 TFRAC(4697)=0.782833 ;TFRAC(4698)=0.783 TFRAC(4699)=0.783167 ;TFRAC(4700)=0.783333 TFRAC(4701)=0.7835 ;TFRAC(4702)=0.783667 TFRAC(4703)=0.783833 ;TFRAC(4704)=0.784 TFRAC(4705)=0.784167 ;TFRAC(4706)=0.784333 TFRAC(4707)=0.7845 ;TFRAC(4708)=0.784667 TFRAC(4709)=0.784833 ;TFRAC(4710)=0.785 TFRAC(4711)=0.785167 ;TFRAC(4712)=0.785333 TFRAC(4713)=0.7855 ;TFRAC(4714)=0.785667 TFRAC(4715)=0.785833 ;TFRAC(4716)=0.786 TFRAC(4717)=0.786167 ;TFRAC(4718)=0.786333 TFRAC(4719)=0.7865 ;TFRAC(4720)=0.786667 TFRAC(4721)=0.786833 ;TFRAC(4722)=0.787 TFRAC(4723)=0.787167 ;TFRAC(4724)=0.787333 TFRAC(4725)=0.7875 ;TFRAC(4726)=0.787667 TFRAC(4727)=0.787833 ;TFRAC(4728)=0.788 TFRAC(4729)=0.788167 ;TFRAC(4730)=0.788333 TFRAC(4731)=0.7885 ;TFRAC(4732)=0.788667 TFRAC(4733)=0.788833 ;TFRAC(4734)=0.789 TFRAC(4735)=0.789167 ;TFRAC(4736)=0.789333 TFRAC(4737)=0.7895 ;TFRAC(4738)=0.789667 TFRAC(4739)=0.789833 ;TFRAC(4740)=0.79 TFRAC(4741)=0.790167 ;TFRAC(4742)=0.790333 TFRAC(4743)=0.7905 ;TFRAC(4744)=0.790667 TFRAC(4745)=0.790833 ;TFRAC(4746)=0.791 TFRAC(4747)=0.791167 ;TFRAC(4748)=0.791333 TFRAC(4749)=0.7915 ;TFRAC(4750)=0.791667 TFRAC(4751)=0.791833 ;TFRAC(4752)=0.792 TFRAC(4753)=0.792167 ;TFRAC(4754)=0.792333 TFRAC(4755)=0.7925 ;TFRAC(4756)=0.792667 TFRAC(4757)=0.792833 ;TFRAC(4758)=0.793 TFRAC(4759)=0.793167 ;TFRAC(4760)=0.793333 TFRAC(4761)=0.7935 ;TFRAC(4762)=0.793667 TFRAC(4763)=0.793833 ;TFRAC(4764)=0.794 TFRAC(4765)=0.794167 ;TFRAC(4766)=0.794333 TFRAC(4767)=0.7945 ;TFRAC(4768)=0.794667 TFRAC(4769)=0.794833 ;TFRAC(4770)=0.795 TFRAC(4771)=0.795167 ;TFRAC(4772)=0.795333 TFRAC(4773)=0.7955 ;TFRAC(4774)=0.795667 TFRAC(4775)=0.795833 ;TFRAC(4776)=0.796 TFRAC(4777)=0.796167 ;TFRAC(4778)=0.796333 TFRAC(4779)=0.7965 ;TFRAC(4780)=0.796667 TFRAC(4781)=0.796833 ;TFRAC(4782)=0.797 TFRAC(4783)=0.797167 ;TFRAC(4784)=0.797333 TFRAC(4785)=0.7975 ;TFRAC(4786)=0.797667 TFRAC(4787)=0.797833 ;TFRAC(4788)=0.798 TFRAC(4789)=0.798167 ;TFRAC(4790)=0.798333 TFRAC(4791)=0.7985 ;TFRAC(4792)=0.798667 TFRAC(4793)=0.798833 ;TFRAC(4794)=0.799 TFRAC(4795)=0.799167 ;TFRAC(4796)=0.799333 TFRAC(4797)=0.7995 ;TFRAC(4798)=0.799667 TFRAC(4799)=0.799833 ;TFRAC(4800)=0.8 TFRAC(4801)=0.800167 ;TFRAC(4802)=0.800333 TFRAC(4803)=0.8005 ;TFRAC(4804)=0.800667 TFRAC(4805)=0.800833 ;TFRAC(4806)=0.801 TFRAC(4807)=0.801167 ;TFRAC(4808)=0.801333 TFRAC(4809)=0.8015 ;TFRAC(4810)=0.801667 TFRAC(4811)=0.801833 ;TFRAC(4812)=0.802 TFRAC(4813)=0.802167 ;TFRAC(4814)=0.802333 TFRAC(4815)=0.8025 ;TFRAC(4816)=0.802667 TFRAC(4817)=0.802833 ;TFRAC(4818)=0.803 TFRAC(4819)=0.803167 ;TFRAC(4820)=0.803333 TFRAC(4821)=0.8035 ;TFRAC(4822)=0.803667 TFRAC(4823)=0.803833 ;TFRAC(4824)=0.804 TFRAC(4825)=0.804167 ;TFRAC(4826)=0.804333 TFRAC(4827)=0.8045 ;TFRAC(4828)=0.804667 TFRAC(4829)=0.804833 ;TFRAC(4830)=0.805 TFRAC(4831)=0.805167 ;TFRAC(4832)=0.805333 TFRAC(4833)=0.8055 ;TFRAC(4834)=0.805667 TFRAC(4835)=0.805833 ;TFRAC(4836)=0.806 TFRAC(4837)=0.806167 ;TFRAC(4838)=0.806333 TFRAC(4839)=0.8065 ;TFRAC(4840)=0.806667 TFRAC(4841)=0.806833 ;TFRAC(4842)=0.807 TFRAC(4843)=0.807167 ;TFRAC(4844)=0.807333 TFRAC(4845)=0.8075 ;TFRAC(4846)=0.807667 TFRAC(4847)=0.807833 ;TFRAC(4848)=0.808 TFRAC(4849)=0.808167 ;TFRAC(4850)=0.808333 TFRAC(4851)=0.8085 ;TFRAC(4852)=0.808667 TFRAC(4853)=0.808833 ;TFRAC(4854)=0.809 TFRAC(4855)=0.809167 ;TFRAC(4856)=0.809333 TFRAC(4857)=0.8095 ;TFRAC(4858)=0.809667 TFRAC(4859)=0.809833 ;TFRAC(4860)=0.81 TFRAC(4861)=0.810167 ;TFRAC(4862)=0.810333 TFRAC(4863)=0.8105 ;TFRAC(4864)=0.810667 TFRAC(4865)=0.810833 ;TFRAC(4866)=0.811 TFRAC(4867)=0.811167 ;TFRAC(4868)=0.811333 TFRAC(4869)=0.8115 ;TFRAC(4870)=0.811667 TFRAC(4871)=0.811833 ;TFRAC(4872)=0.812 TFRAC(4873)=0.812167 ;TFRAC(4874)=0.812333 TFRAC(4875)=0.8125 ;TFRAC(4876)=0.812667 TFRAC(4877)=0.812833 ;TFRAC(4878)=0.813 TFRAC(4879)=0.813167 ;TFRAC(4880)=0.813333 TFRAC(4881)=0.8135 ;TFRAC(4882)=0.813667 TFRAC(4883)=0.813833 ;TFRAC(4884)=0.814 TFRAC(4885)=0.814167 ;TFRAC(4886)=0.814333 TFRAC(4887)=0.8145 ;TFRAC(4888)=0.814667 TFRAC(4889)=0.814833 ;TFRAC(4890)=0.815 TFRAC(4891)=0.815167 ;TFRAC(4892)=0.815333 TFRAC(4893)=0.8155 ;TFRAC(4894)=0.815667 TFRAC(4895)=0.815833 ;TFRAC(4896)=0.816 TFRAC(4897)=0.816167 ;TFRAC(4898)=0.816333 TFRAC(4899)=0.8165 ;TFRAC(4900)=0.816667 TFRAC(4901)=0.816833 ;TFRAC(4902)=0.817 TFRAC(4903)=0.817167 ;TFRAC(4904)=0.817333 TFRAC(4905)=0.8175 ;TFRAC(4906)=0.817667 TFRAC(4907)=0.817833 ;TFRAC(4908)=0.818 TFRAC(4909)=0.818167 ;TFRAC(4910)=0.818333 TFRAC(4911)=0.8185 ;TFRAC(4912)=0.818667 TFRAC(4913)=0.818833 ;TFRAC(4914)=0.819 TFRAC(4915)=0.819167 ;TFRAC(4916)=0.819333 TFRAC(4917)=0.8195 ;TFRAC(4918)=0.819667 TFRAC(4919)=0.819833 ;TFRAC(4920)=0.82 TFRAC(4921)=0.820167 ;TFRAC(4922)=0.820333 TFRAC(4923)=0.8205 ;TFRAC(4924)=0.820667 TFRAC(4925)=0.820833 ;TFRAC(4926)=0.821 TFRAC(4927)=0.821167 ;TFRAC(4928)=0.821333 TFRAC(4929)=0.8215 ;TFRAC(4930)=0.821667 TFRAC(4931)=0.821833 ;TFRAC(4932)=0.822 TFRAC(4933)=0.822167 ;TFRAC(4934)=0.822333 TFRAC(4935)=0.8225 ;TFRAC(4936)=0.822667 TFRAC(4937)=0.822833 ;TFRAC(4938)=0.823 TFRAC(4939)=0.823167 ;TFRAC(4940)=0.823333 TFRAC(4941)=0.8235 ;TFRAC(4942)=0.823667 TFRAC(4943)=0.823833 ;TFRAC(4944)=0.824 TFRAC(4945)=0.824167 ;TFRAC(4946)=0.824333 TFRAC(4947)=0.8245 ;TFRAC(4948)=0.824667 TFRAC(4949)=0.824833 ;TFRAC(4950)=0.825 TFRAC(4951)=0.825167 ;TFRAC(4952)=0.825333 TFRAC(4953)=0.8255 ;TFRAC(4954)=0.825667 TFRAC(4955)=0.825833 ;TFRAC(4956)=0.826 TFRAC(4957)=0.826167 ;TFRAC(4958)=0.826333 TFRAC(4959)=0.8265 ;TFRAC(4960)=0.826667 TFRAC(4961)=0.826833 ;TFRAC(4962)=0.827 TFRAC(4963)=0.827167 ;TFRAC(4964)=0.827333 TFRAC(4965)=0.8275 ;TFRAC(4966)=0.827667 TFRAC(4967)=0.827833 ;TFRAC(4968)=0.828 TFRAC(4969)=0.828167 ;TFRAC(4970)=0.828333 TFRAC(4971)=0.8285 ;TFRAC(4972)=0.828667 TFRAC(4973)=0.828833 ;TFRAC(4974)=0.829 TFRAC(4975)=0.829167 ;TFRAC(4976)=0.829333 TFRAC(4977)=0.8295 ;TFRAC(4978)=0.829667 TFRAC(4979)=0.829833 ;TFRAC(4980)=0.83 TFRAC(4981)=0.830167 ;TFRAC(4982)=0.830333 TFRAC(4983)=0.8305 ;TFRAC(4984)=0.830667 TFRAC(4985)=0.830833 ;TFRAC(4986)=0.831 TFRAC(4987)=0.831167 ;TFRAC(4988)=0.831333 TFRAC(4989)=0.8315 ;TFRAC(4990)=0.831667 TFRAC(4991)=0.831833 ;TFRAC(4992)=0.832 TFRAC(4993)=0.832167 ;TFRAC(4994)=0.832333 TFRAC(4995)=0.8325 ;TFRAC(4996)=0.832667 TFRAC(4997)=0.832833 ;TFRAC(4998)=0.833 TFRAC(4999)=0.833167 ;TFRAC(5000)=0.833333 TFRAC(5001)=0.8335 ;TFRAC(5002)=0.833667 TFRAC(5003)=0.833833 ;TFRAC(5004)=0.834 TFRAC(5005)=0.834167 ;TFRAC(5006)=0.834333 TFRAC(5007)=0.8345 ;TFRAC(5008)=0.834667 TFRAC(5009)=0.834833 ;TFRAC(5010)=0.835 TFRAC(5011)=0.835167 ;TFRAC(5012)=0.835333 TFRAC(5013)=0.8355 ;TFRAC(5014)=0.835667 TFRAC(5015)=0.835833 ;TFRAC(5016)=0.836 TFRAC(5017)=0.836167 ;TFRAC(5018)=0.836333 TFRAC(5019)=0.8365 ;TFRAC(5020)=0.836667 TFRAC(5021)=0.836833 ;TFRAC(5022)=0.837 TFRAC(5023)=0.837167 ;TFRAC(5024)=0.837333 TFRAC(5025)=0.8375 ;TFRAC(5026)=0.837667 TFRAC(5027)=0.837833 ;TFRAC(5028)=0.838 TFRAC(5029)=0.838167 ;TFRAC(5030)=0.838333 TFRAC(5031)=0.8385 ;TFRAC(5032)=0.838667 TFRAC(5033)=0.838833 ;TFRAC(5034)=0.839 TFRAC(5035)=0.839167 ;TFRAC(5036)=0.839333 TFRAC(5037)=0.8395 ;TFRAC(5038)=0.839667 TFRAC(5039)=0.839833 ;TFRAC(5040)=0.84 TFRAC(5041)=0.840167 ;TFRAC(5042)=0.840333 TFRAC(5043)=0.8405 ;TFRAC(5044)=0.840667 TFRAC(5045)=0.840833 ;TFRAC(5046)=0.841 TFRAC(5047)=0.841167 ;TFRAC(5048)=0.841333 TFRAC(5049)=0.8415 ;TFRAC(5050)=0.841667 TFRAC(5051)=0.841833 ;TFRAC(5052)=0.842 TFRAC(5053)=0.842167 ;TFRAC(5054)=0.842333 TFRAC(5055)=0.8425 ;TFRAC(5056)=0.842667 TFRAC(5057)=0.842833 ;TFRAC(5058)=0.843 TFRAC(5059)=0.843167 ;TFRAC(5060)=0.843333 TFRAC(5061)=0.8435 ;TFRAC(5062)=0.843667 TFRAC(5063)=0.843833 ;TFRAC(5064)=0.844 TFRAC(5065)=0.844167 ;TFRAC(5066)=0.844333 TFRAC(5067)=0.8445 ;TFRAC(5068)=0.844667 TFRAC(5069)=0.844833 ;TFRAC(5070)=0.845 TFRAC(5071)=0.845167 ;TFRAC(5072)=0.845333 TFRAC(5073)=0.8455 ;TFRAC(5074)=0.845667 TFRAC(5075)=0.845833 ;TFRAC(5076)=0.846 TFRAC(5077)=0.846167 ;TFRAC(5078)=0.846333 TFRAC(5079)=0.8465 ;TFRAC(5080)=0.846667 TFRAC(5081)=0.846833 ;TFRAC(5082)=0.847 TFRAC(5083)=0.847167 ;TFRAC(5084)=0.847333 TFRAC(5085)=0.8475 ;TFRAC(5086)=0.847667 TFRAC(5087)=0.847833 ;TFRAC(5088)=0.848 TFRAC(5089)=0.848167 ;TFRAC(5090)=0.848333 TFRAC(5091)=0.8485 ;TFRAC(5092)=0.848667 TFRAC(5093)=0.848833 ;TFRAC(5094)=0.849 TFRAC(5095)=0.849167 ;TFRAC(5096)=0.849333 TFRAC(5097)=0.8495 ;TFRAC(5098)=0.849667 TFRAC(5099)=0.849833 ;TFRAC(5100)=0.85 TFRAC(5101)=0.850167 ;TFRAC(5102)=0.850333 TFRAC(5103)=0.8505 ;TFRAC(5104)=0.850667 TFRAC(5105)=0.850833 ;TFRAC(5106)=0.851 TFRAC(5107)=0.851167 ;TFRAC(5108)=0.851333 TFRAC(5109)=0.8515 ;TFRAC(5110)=0.851667 TFRAC(5111)=0.851833 ;TFRAC(5112)=0.852 TFRAC(5113)=0.852167 ;TFRAC(5114)=0.852333 TFRAC(5115)=0.8525 ;TFRAC(5116)=0.852667 TFRAC(5117)=0.852833 ;TFRAC(5118)=0.853 TFRAC(5119)=0.853167 ;TFRAC(5120)=0.853333 TFRAC(5121)=0.8535 ;TFRAC(5122)=0.853667 TFRAC(5123)=0.853833 ;TFRAC(5124)=0.854 TFRAC(5125)=0.854167 ;TFRAC(5126)=0.854333 TFRAC(5127)=0.8545 ;TFRAC(5128)=0.854667 TFRAC(5129)=0.854833 ;TFRAC(5130)=0.855 TFRAC(5131)=0.855167 ;TFRAC(5132)=0.855333 TFRAC(5133)=0.8555 ;TFRAC(5134)=0.855667 TFRAC(5135)=0.855833 ;TFRAC(5136)=0.856 TFRAC(5137)=0.856167 ;TFRAC(5138)=0.856333 TFRAC(5139)=0.8565 ;TFRAC(5140)=0.856667 TFRAC(5141)=0.856833 ;TFRAC(5142)=0.857 TFRAC(5143)=0.857167 ;TFRAC(5144)=0.857333 TFRAC(5145)=0.8575 ;TFRAC(5146)=0.857667 TFRAC(5147)=0.857833 ;TFRAC(5148)=0.858 TFRAC(5149)=0.858167 ;TFRAC(5150)=0.858333 TFRAC(5151)=0.8585 ;TFRAC(5152)=0.858667 TFRAC(5153)=0.858833 ;TFRAC(5154)=0.859 TFRAC(5155)=0.859167 ;TFRAC(5156)=0.859333 TFRAC(5157)=0.8595 ;TFRAC(5158)=0.859667 TFRAC(5159)=0.859833 ;TFRAC(5160)=0.86 TFRAC(5161)=0.860167 ;TFRAC(5162)=0.860333 TFRAC(5163)=0.8605 ;TFRAC(5164)=0.860667 TFRAC(5165)=0.860833 ;TFRAC(5166)=0.861 TFRAC(5167)=0.861167 ;TFRAC(5168)=0.861333 TFRAC(5169)=0.8615 ;TFRAC(5170)=0.861667 TFRAC(5171)=0.861833 ;TFRAC(5172)=0.862 TFRAC(5173)=0.862167 ;TFRAC(5174)=0.862333 TFRAC(5175)=0.8625 ;TFRAC(5176)=0.862667 TFRAC(5177)=0.862833 ;TFRAC(5178)=0.863 TFRAC(5179)=0.863167 ;TFRAC(5180)=0.863333 TFRAC(5181)=0.8635 ;TFRAC(5182)=0.863667 TFRAC(5183)=0.863833 ;TFRAC(5184)=0.864 TFRAC(5185)=0.864167 ;TFRAC(5186)=0.864333 TFRAC(5187)=0.8645 ;TFRAC(5188)=0.864667 TFRAC(5189)=0.864833 ;TFRAC(5190)=0.865 TFRAC(5191)=0.865167 ;TFRAC(5192)=0.865333 TFRAC(5193)=0.8655 ;TFRAC(5194)=0.865667 TFRAC(5195)=0.865833 ;TFRAC(5196)=0.866 TFRAC(5197)=0.866167 ;TFRAC(5198)=0.866333 TFRAC(5199)=0.8665 ;TFRAC(5200)=0.866667 TFRAC(5201)=0.866833 ;TFRAC(5202)=0.867 TFRAC(5203)=0.867167 ;TFRAC(5204)=0.867333 TFRAC(5205)=0.8675 ;TFRAC(5206)=0.867667 TFRAC(5207)=0.867833 ;TFRAC(5208)=0.868 TFRAC(5209)=0.868167 ;TFRAC(5210)=0.868333 TFRAC(5211)=0.8685 ;TFRAC(5212)=0.868667 TFRAC(5213)=0.868833 ;TFRAC(5214)=0.869 TFRAC(5215)=0.869167 ;TFRAC(5216)=0.869333 TFRAC(5217)=0.8695 ;TFRAC(5218)=0.869667 TFRAC(5219)=0.869833 ;TFRAC(5220)=0.87 TFRAC(5221)=0.870167 ;TFRAC(5222)=0.870333 TFRAC(5223)=0.8705 ;TFRAC(5224)=0.870667 TFRAC(5225)=0.870833 ;TFRAC(5226)=0.871 TFRAC(5227)=0.871167 ;TFRAC(5228)=0.871333 TFRAC(5229)=0.8715 ;TFRAC(5230)=0.871667 TFRAC(5231)=0.871833 ;TFRAC(5232)=0.872 TFRAC(5233)=0.872167 ;TFRAC(5234)=0.872333 TFRAC(5235)=0.8725 ;TFRAC(5236)=0.872667 TFRAC(5237)=0.872833 ;TFRAC(5238)=0.873 TFRAC(5239)=0.873167 ;TFRAC(5240)=0.873333 TFRAC(5241)=0.8735 ;TFRAC(5242)=0.873667 TFRAC(5243)=0.873833 ;TFRAC(5244)=0.874 TFRAC(5245)=0.874167 ;TFRAC(5246)=0.874333 TFRAC(5247)=0.8745 ;TFRAC(5248)=0.874667 TFRAC(5249)=0.874833 ;TFRAC(5250)=0.875 TFRAC(5251)=0.875167 ;TFRAC(5252)=0.875333 TFRAC(5253)=0.8755 ;TFRAC(5254)=0.875667 TFRAC(5255)=0.875833 ;TFRAC(5256)=0.876 TFRAC(5257)=0.876167 ;TFRAC(5258)=0.876333 TFRAC(5259)=0.8765 ;TFRAC(5260)=0.876667 TFRAC(5261)=0.876833 ;TFRAC(5262)=0.877 TFRAC(5263)=0.877167 ;TFRAC(5264)=0.877333 TFRAC(5265)=0.8775 ;TFRAC(5266)=0.877667 TFRAC(5267)=0.877833 ;TFRAC(5268)=0.878 TFRAC(5269)=0.878167 ;TFRAC(5270)=0.878333 TFRAC(5271)=0.8785 ;TFRAC(5272)=0.878667 TFRAC(5273)=0.878833 ;TFRAC(5274)=0.879 TFRAC(5275)=0.879167 ;TFRAC(5276)=0.879333 TFRAC(5277)=0.8795 ;TFRAC(5278)=0.879667 TFRAC(5279)=0.879833 ;TFRAC(5280)=0.88 TFRAC(5281)=0.880167 ;TFRAC(5282)=0.880333 TFRAC(5283)=0.8805 ;TFRAC(5284)=0.880667 TFRAC(5285)=0.880833 ;TFRAC(5286)=0.881 TFRAC(5287)=0.881167 ;TFRAC(5288)=0.881333 TFRAC(5289)=0.8815 ;TFRAC(5290)=0.881667 TFRAC(5291)=0.881833 ;TFRAC(5292)=0.882 TFRAC(5293)=0.882167 ;TFRAC(5294)=0.882333 TFRAC(5295)=0.8825 ;TFRAC(5296)=0.882667 TFRAC(5297)=0.882833 ;TFRAC(5298)=0.883 TFRAC(5299)=0.883167 ;TFRAC(5300)=0.883333 TFRAC(5301)=0.8835 ;TFRAC(5302)=0.883667 TFRAC(5303)=0.883833 ;TFRAC(5304)=0.884 TFRAC(5305)=0.884167 ;TFRAC(5306)=0.884333 TFRAC(5307)=0.8845 ;TFRAC(5308)=0.884667 TFRAC(5309)=0.884833 ;TFRAC(5310)=0.885 TFRAC(5311)=0.885167 ;TFRAC(5312)=0.885333 TFRAC(5313)=0.8855 ;TFRAC(5314)=0.885667 TFRAC(5315)=0.885833 ;TFRAC(5316)=0.886 TFRAC(5317)=0.886167 ;TFRAC(5318)=0.886333 TFRAC(5319)=0.8865 ;TFRAC(5320)=0.886667 TFRAC(5321)=0.886833 ;TFRAC(5322)=0.887 TFRAC(5323)=0.887167 ;TFRAC(5324)=0.887333 TFRAC(5325)=0.8875 ;TFRAC(5326)=0.887667 TFRAC(5327)=0.887833 ;TFRAC(5328)=0.888 TFRAC(5329)=0.888167 ;TFRAC(5330)=0.888333 TFRAC(5331)=0.8885 ;TFRAC(5332)=0.888667 TFRAC(5333)=0.888833 ;TFRAC(5334)=0.889 TFRAC(5335)=0.889167 ;TFRAC(5336)=0.889333 TFRAC(5337)=0.8895 ;TFRAC(5338)=0.889667 TFRAC(5339)=0.889833 ;TFRAC(5340)=0.89 TFRAC(5341)=0.890167 ;TFRAC(5342)=0.890333 TFRAC(5343)=0.8905 ;TFRAC(5344)=0.890667 TFRAC(5345)=0.890833 ;TFRAC(5346)=0.891 TFRAC(5347)=0.891167 ;TFRAC(5348)=0.891333 TFRAC(5349)=0.8915 ;TFRAC(5350)=0.891667 TFRAC(5351)=0.891833 ;TFRAC(5352)=0.892 TFRAC(5353)=0.892167 ;TFRAC(5354)=0.892333 TFRAC(5355)=0.8925 ;TFRAC(5356)=0.892667 TFRAC(5357)=0.892833 ;TFRAC(5358)=0.893 TFRAC(5359)=0.893167 ;TFRAC(5360)=0.893333 TFRAC(5361)=0.8935 ;TFRAC(5362)=0.893667 TFRAC(5363)=0.893833 ;TFRAC(5364)=0.894 TFRAC(5365)=0.894167 ;TFRAC(5366)=0.894333 TFRAC(5367)=0.8945 ;TFRAC(5368)=0.894667 TFRAC(5369)=0.894833 ;TFRAC(5370)=0.895 TFRAC(5371)=0.895167 ;TFRAC(5372)=0.895333 TFRAC(5373)=0.8955 ;TFRAC(5374)=0.895667 TFRAC(5375)=0.895833 ;TFRAC(5376)=0.896 TFRAC(5377)=0.896167 ;TFRAC(5378)=0.896333 TFRAC(5379)=0.8965 ;TFRAC(5380)=0.896667 TFRAC(5381)=0.896833 ;TFRAC(5382)=0.897 TFRAC(5383)=0.897167 ;TFRAC(5384)=0.897333 TFRAC(5385)=0.8975 ;TFRAC(5386)=0.897667 TFRAC(5387)=0.897833 ;TFRAC(5388)=0.898 TFRAC(5389)=0.898167 ;TFRAC(5390)=0.898333 TFRAC(5391)=0.8985 ;TFRAC(5392)=0.898667 TFRAC(5393)=0.898833 ;TFRAC(5394)=0.899 TFRAC(5395)=0.899167 ;TFRAC(5396)=0.899333 TFRAC(5397)=0.8995 ;TFRAC(5398)=0.899667 TFRAC(5399)=0.899833 ;TFRAC(5400)=0.9 TFRAC(5401)=0.900167 ;TFRAC(5402)=0.900333 TFRAC(5403)=0.9005 ;TFRAC(5404)=0.900667 TFRAC(5405)=0.900833 ;TFRAC(5406)=0.901 TFRAC(5407)=0.901167 ;TFRAC(5408)=0.901333 TFRAC(5409)=0.9015 ;TFRAC(5410)=0.901667 TFRAC(5411)=0.901833 ;TFRAC(5412)=0.902 TFRAC(5413)=0.902167 ;TFRAC(5414)=0.902333 TFRAC(5415)=0.9025 ;TFRAC(5416)=0.902667 TFRAC(5417)=0.902833 ;TFRAC(5418)=0.903 TFRAC(5419)=0.903167 ;TFRAC(5420)=0.903333 TFRAC(5421)=0.9035 ;TFRAC(5422)=0.903667 TFRAC(5423)=0.903833 ;TFRAC(5424)=0.904 TFRAC(5425)=0.904167 ;TFRAC(5426)=0.904333 TFRAC(5427)=0.9045 ;TFRAC(5428)=0.904667 TFRAC(5429)=0.904833 ;TFRAC(5430)=0.905 TFRAC(5431)=0.905167 ;TFRAC(5432)=0.905333 TFRAC(5433)=0.9055 ;TFRAC(5434)=0.905667 TFRAC(5435)=0.905833 ;TFRAC(5436)=0.906 TFRAC(5437)=0.906167 ;TFRAC(5438)=0.906333 TFRAC(5439)=0.9065 ;TFRAC(5440)=0.906667 TFRAC(5441)=0.906833 ;TFRAC(5442)=0.907 TFRAC(5443)=0.907167 ;TFRAC(5444)=0.907333 TFRAC(5445)=0.9075 ;TFRAC(5446)=0.907667 TFRAC(5447)=0.907833 ;TFRAC(5448)=0.908 TFRAC(5449)=0.908167 ;TFRAC(5450)=0.908333 TFRAC(5451)=0.9085 ;TFRAC(5452)=0.908667 TFRAC(5453)=0.908833 ;TFRAC(5454)=0.909 TFRAC(5455)=0.909167 ;TFRAC(5456)=0.909333 TFRAC(5457)=0.9095 ;TFRAC(5458)=0.909667 TFRAC(5459)=0.909833 ;TFRAC(5460)=0.91 TFRAC(5461)=0.910167 ;TFRAC(5462)=0.910333 TFRAC(5463)=0.9105 ;TFRAC(5464)=0.910667 TFRAC(5465)=0.910833 ;TFRAC(5466)=0.911 TFRAC(5467)=0.911167 ;TFRAC(5468)=0.911333 TFRAC(5469)=0.9115 ;TFRAC(5470)=0.911667 TFRAC(5471)=0.911833 ;TFRAC(5472)=0.912 TFRAC(5473)=0.912167 ;TFRAC(5474)=0.912333 TFRAC(5475)=0.9125 ;TFRAC(5476)=0.912667 TFRAC(5477)=0.912833 ;TFRAC(5478)=0.913 TFRAC(5479)=0.913167 ;TFRAC(5480)=0.913333 TFRAC(5481)=0.9135 ;TFRAC(5482)=0.913667 TFRAC(5483)=0.913833 ;TFRAC(5484)=0.914 TFRAC(5485)=0.914167 ;TFRAC(5486)=0.914333 TFRAC(5487)=0.9145 ;TFRAC(5488)=0.914667 TFRAC(5489)=0.914833 ;TFRAC(5490)=0.915 TFRAC(5491)=0.915167 ;TFRAC(5492)=0.915333 TFRAC(5493)=0.9155 ;TFRAC(5494)=0.915667 TFRAC(5495)=0.915833 ;TFRAC(5496)=0.916 TFRAC(5497)=0.916167 ;TFRAC(5498)=0.916333 TFRAC(5499)=0.9165 ;TFRAC(5500)=0.916667 TFRAC(5501)=0.916833 ;TFRAC(5502)=0.917 TFRAC(5503)=0.917167 ;TFRAC(5504)=0.917333 TFRAC(5505)=0.9175 ;TFRAC(5506)=0.917667 TFRAC(5507)=0.917833 ;TFRAC(5508)=0.918 TFRAC(5509)=0.918167 ;TFRAC(5510)=0.918333 TFRAC(5511)=0.9185 ;TFRAC(5512)=0.918667 TFRAC(5513)=0.918833 ;TFRAC(5514)=0.919 TFRAC(5515)=0.919167 ;TFRAC(5516)=0.919333 TFRAC(5517)=0.9195 ;TFRAC(5518)=0.919667 TFRAC(5519)=0.919833 ;TFRAC(5520)=0.92 TFRAC(5521)=0.920167 ;TFRAC(5522)=0.920333 TFRAC(5523)=0.9205 ;TFRAC(5524)=0.920667 TFRAC(5525)=0.920833 ;TFRAC(5526)=0.921 TFRAC(5527)=0.921167 ;TFRAC(5528)=0.921333 TFRAC(5529)=0.9215 ;TFRAC(5530)=0.921667 TFRAC(5531)=0.921833 ;TFRAC(5532)=0.922 TFRAC(5533)=0.922167 ;TFRAC(5534)=0.922333 TFRAC(5535)=0.9225 ;TFRAC(5536)=0.922667 TFRAC(5537)=0.922833 ;TFRAC(5538)=0.923 TFRAC(5539)=0.923167 ;TFRAC(5540)=0.923333 TFRAC(5541)=0.9235 ;TFRAC(5542)=0.923667 TFRAC(5543)=0.923833 ;TFRAC(5544)=0.924 TFRAC(5545)=0.924167 ;TFRAC(5546)=0.924333 TFRAC(5547)=0.9245 ;TFRAC(5548)=0.924667 TFRAC(5549)=0.924833 ;TFRAC(5550)=0.925 TFRAC(5551)=0.925167 ;TFRAC(5552)=0.925333 TFRAC(5553)=0.9255 ;TFRAC(5554)=0.925667 TFRAC(5555)=0.925833 ;TFRAC(5556)=0.926 TFRAC(5557)=0.926167 ;TFRAC(5558)=0.926333 TFRAC(5559)=0.9265 ;TFRAC(5560)=0.926667 TFRAC(5561)=0.926833 ;TFRAC(5562)=0.927 TFRAC(5563)=0.927167 ;TFRAC(5564)=0.927333 TFRAC(5565)=0.9275 ;TFRAC(5566)=0.927667 TFRAC(5567)=0.927833 ;TFRAC(5568)=0.928 TFRAC(5569)=0.928167 ;TFRAC(5570)=0.928333 TFRAC(5571)=0.9285 ;TFRAC(5572)=0.928667 TFRAC(5573)=0.928833 ;TFRAC(5574)=0.929 TFRAC(5575)=0.929167 ;TFRAC(5576)=0.929333 TFRAC(5577)=0.9295 ;TFRAC(5578)=0.929667 TFRAC(5579)=0.929833 ;TFRAC(5580)=0.93 TFRAC(5581)=0.930167 ;TFRAC(5582)=0.930333 TFRAC(5583)=0.9305 ;TFRAC(5584)=0.930667 TFRAC(5585)=0.930833 ;TFRAC(5586)=0.931 TFRAC(5587)=0.931167 ;TFRAC(5588)=0.931333 TFRAC(5589)=0.9315 ;TFRAC(5590)=0.931667 TFRAC(5591)=0.931833 ;TFRAC(5592)=0.932 TFRAC(5593)=0.932167 ;TFRAC(5594)=0.932333 TFRAC(5595)=0.9325 ;TFRAC(5596)=0.932667 TFRAC(5597)=0.932833 ;TFRAC(5598)=0.933 TFRAC(5599)=0.933167 ;TFRAC(5600)=0.933333 TFRAC(5601)=0.9335 ;TFRAC(5602)=0.933667 TFRAC(5603)=0.933833 ;TFRAC(5604)=0.934 TFRAC(5605)=0.934167 ;TFRAC(5606)=0.934333 TFRAC(5607)=0.9345 ;TFRAC(5608)=0.934667 TFRAC(5609)=0.934833 ;TFRAC(5610)=0.935 TFRAC(5611)=0.935167 ;TFRAC(5612)=0.935333 TFRAC(5613)=0.9355 ;TFRAC(5614)=0.935667 TFRAC(5615)=0.935833 ;TFRAC(5616)=0.936 TFRAC(5617)=0.936167 ;TFRAC(5618)=0.936333 TFRAC(5619)=0.9365 ;TFRAC(5620)=0.936667 TFRAC(5621)=0.936833 ;TFRAC(5622)=0.937 TFRAC(5623)=0.937167 ;TFRAC(5624)=0.937333 TFRAC(5625)=0.9375 ;TFRAC(5626)=0.937667 TFRAC(5627)=0.937833 ;TFRAC(5628)=0.938 TFRAC(5629)=0.938167 ;TFRAC(5630)=0.938333 TFRAC(5631)=0.9385 ;TFRAC(5632)=0.938667 TFRAC(5633)=0.938833 ;TFRAC(5634)=0.939 TFRAC(5635)=0.939167 ;TFRAC(5636)=0.939333 TFRAC(5637)=0.9395 ;TFRAC(5638)=0.939667 TFRAC(5639)=0.939833 ;TFRAC(5640)=0.94 TFRAC(5641)=0.940167 ;TFRAC(5642)=0.940333 TFRAC(5643)=0.9405 ;TFRAC(5644)=0.940667 TFRAC(5645)=0.940833 ;TFRAC(5646)=0.941 TFRAC(5647)=0.941167 ;TFRAC(5648)=0.941333 TFRAC(5649)=0.9415 ;TFRAC(5650)=0.941667 TFRAC(5651)=0.941833 ;TFRAC(5652)=0.942 TFRAC(5653)=0.942167 ;TFRAC(5654)=0.942333 TFRAC(5655)=0.9425 ;TFRAC(5656)=0.942667 TFRAC(5657)=0.942833 ;TFRAC(5658)=0.943 TFRAC(5659)=0.943167 ;TFRAC(5660)=0.943333 TFRAC(5661)=0.9435 ;TFRAC(5662)=0.943667 TFRAC(5663)=0.943833 ;TFRAC(5664)=0.944 TFRAC(5665)=0.944167 ;TFRAC(5666)=0.944333 TFRAC(5667)=0.9445 ;TFRAC(5668)=0.944667 TFRAC(5669)=0.944833 ;TFRAC(5670)=0.945 TFRAC(5671)=0.945167 ;TFRAC(5672)=0.945333 TFRAC(5673)=0.9455 ;TFRAC(5674)=0.945667 TFRAC(5675)=0.945833 ;TFRAC(5676)=0.946 TFRAC(5677)=0.946167 ;TFRAC(5678)=0.946333 TFRAC(5679)=0.9465 ;TFRAC(5680)=0.946667 TFRAC(5681)=0.946833 ;TFRAC(5682)=0.947 TFRAC(5683)=0.947167 ;TFRAC(5684)=0.947333 TFRAC(5685)=0.9475 ;TFRAC(5686)=0.947667 TFRAC(5687)=0.947833 ;TFRAC(5688)=0.948 TFRAC(5689)=0.948167 ;TFRAC(5690)=0.948333 TFRAC(5691)=0.9485 ;TFRAC(5692)=0.948667 TFRAC(5693)=0.948833 ;TFRAC(5694)=0.949 TFRAC(5695)=0.949167 ;TFRAC(5696)=0.949333 TFRAC(5697)=0.9495 ;TFRAC(5698)=0.949667 TFRAC(5699)=0.949833 ;TFRAC(5700)=0.95 TFRAC(5701)=0.950167 ;TFRAC(5702)=0.950333 TFRAC(5703)=0.9505 ;TFRAC(5704)=0.950667 TFRAC(5705)=0.950833 ;TFRAC(5706)=0.951 TFRAC(5707)=0.951167 ;TFRAC(5708)=0.951333 TFRAC(5709)=0.9515 ;TFRAC(5710)=0.951667 TFRAC(5711)=0.951833 ;TFRAC(5712)=0.952 TFRAC(5713)=0.952167 ;TFRAC(5714)=0.952333 TFRAC(5715)=0.9525 ;TFRAC(5716)=0.952667 TFRAC(5717)=0.952833 ;TFRAC(5718)=0.953 TFRAC(5719)=0.953167 ;TFRAC(5720)=0.953333 TFRAC(5721)=0.9535 ;TFRAC(5722)=0.953667 TFRAC(5723)=0.953833 ;TFRAC(5724)=0.954 TFRAC(5725)=0.954167 ;TFRAC(5726)=0.954333 TFRAC(5727)=0.9545 ;TFRAC(5728)=0.954667 TFRAC(5729)=0.954833 ;TFRAC(5730)=0.955 TFRAC(5731)=0.955167 ;TFRAC(5732)=0.955333 TFRAC(5733)=0.9555 ;TFRAC(5734)=0.955667 TFRAC(5735)=0.955833 ;TFRAC(5736)=0.956 TFRAC(5737)=0.956167 ;TFRAC(5738)=0.956333 TFRAC(5739)=0.9565 ;TFRAC(5740)=0.956667 TFRAC(5741)=0.956833 ;TFRAC(5742)=0.957 TFRAC(5743)=0.957167 ;TFRAC(5744)=0.957333 TFRAC(5745)=0.9575 ;TFRAC(5746)=0.957667 TFRAC(5747)=0.957833 ;TFRAC(5748)=0.958 TFRAC(5749)=0.958167 ;TFRAC(5750)=0.958333 TFRAC(5751)=0.9585 ;TFRAC(5752)=0.958667 TFRAC(5753)=0.958833 ;TFRAC(5754)=0.959 TFRAC(5755)=0.959167 ;TFRAC(5756)=0.959333 TFRAC(5757)=0.9595 ;TFRAC(5758)=0.959667 TFRAC(5759)=0.959833 ;TFRAC(5760)=0.96 TFRAC(5761)=0.960167 ;TFRAC(5762)=0.960333 TFRAC(5763)=0.9605 ;TFRAC(5764)=0.960667 TFRAC(5765)=0.960833 ;TFRAC(5766)=0.961 TFRAC(5767)=0.961167 ;TFRAC(5768)=0.961333 TFRAC(5769)=0.9615 ;TFRAC(5770)=0.961667 TFRAC(5771)=0.961833 ;TFRAC(5772)=0.962 TFRAC(5773)=0.962167 ;TFRAC(5774)=0.962333 TFRAC(5775)=0.9625 ;TFRAC(5776)=0.962667 TFRAC(5777)=0.962833 ;TFRAC(5778)=0.963 TFRAC(5779)=0.963167 ;TFRAC(5780)=0.963333 TFRAC(5781)=0.9635 ;TFRAC(5782)=0.963667 TFRAC(5783)=0.963833 ;TFRAC(5784)=0.964 TFRAC(5785)=0.964167 ;TFRAC(5786)=0.964333 TFRAC(5787)=0.9645 ;TFRAC(5788)=0.964667 TFRAC(5789)=0.964833 ;TFRAC(5790)=0.965 TFRAC(5791)=0.965167 ;TFRAC(5792)=0.965333 TFRAC(5793)=0.9655 ;TFRAC(5794)=0.965667 TFRAC(5795)=0.965833 ;TFRAC(5796)=0.966 TFRAC(5797)=0.966167 ;TFRAC(5798)=0.966333 TFRAC(5799)=0.9665 ;TFRAC(5800)=0.966667 TFRAC(5801)=0.966833 ;TFRAC(5802)=0.967 TFRAC(5803)=0.967167 ;TFRAC(5804)=0.967333 TFRAC(5805)=0.9675 ;TFRAC(5806)=0.967667 TFRAC(5807)=0.967833 ;TFRAC(5808)=0.968 TFRAC(5809)=0.968167 ;TFRAC(5810)=0.968333 TFRAC(5811)=0.9685 ;TFRAC(5812)=0.968667 TFRAC(5813)=0.968833 ;TFRAC(5814)=0.969 TFRAC(5815)=0.969167 ;TFRAC(5816)=0.969333 TFRAC(5817)=0.9695 ;TFRAC(5818)=0.969667 TFRAC(5819)=0.969833 ;TFRAC(5820)=0.97 TFRAC(5821)=0.970167 ;TFRAC(5822)=0.970333 TFRAC(5823)=0.9705 ;TFRAC(5824)=0.970667 TFRAC(5825)=0.970833 ;TFRAC(5826)=0.971 TFRAC(5827)=0.971167 ;TFRAC(5828)=0.971333 TFRAC(5829)=0.9715 ;TFRAC(5830)=0.971667 TFRAC(5831)=0.971833 ;TFRAC(5832)=0.972 TFRAC(5833)=0.972167 ;TFRAC(5834)=0.972333 TFRAC(5835)=0.9725 ;TFRAC(5836)=0.972667 TFRAC(5837)=0.972833 ;TFRAC(5838)=0.973 TFRAC(5839)=0.973167 ;TFRAC(5840)=0.973333 TFRAC(5841)=0.9735 ;TFRAC(5842)=0.973667 TFRAC(5843)=0.973833 ;TFRAC(5844)=0.974 TFRAC(5845)=0.974167 ;TFRAC(5846)=0.974333 TFRAC(5847)=0.9745 ;TFRAC(5848)=0.974667 TFRAC(5849)=0.974833 ;TFRAC(5850)=0.975 TFRAC(5851)=0.975167 ;TFRAC(5852)=0.975333 TFRAC(5853)=0.9755 ;TFRAC(5854)=0.975667 TFRAC(5855)=0.975833 ;TFRAC(5856)=0.976 TFRAC(5857)=0.976167 ;TFRAC(5858)=0.976333 TFRAC(5859)=0.9765 ;TFRAC(5860)=0.976667 TFRAC(5861)=0.976833 ;TFRAC(5862)=0.977 TFRAC(5863)=0.977167 ;TFRAC(5864)=0.977333 TFRAC(5865)=0.9775 ;TFRAC(5866)=0.977667 TFRAC(5867)=0.977833 ;TFRAC(5868)=0.978 TFRAC(5869)=0.978167 ;TFRAC(5870)=0.978333 TFRAC(5871)=0.9785 ;TFRAC(5872)=0.978667 TFRAC(5873)=0.978833 ;TFRAC(5874)=0.979 TFRAC(5875)=0.979167 ;TFRAC(5876)=0.979333 TFRAC(5877)=0.9795 ;TFRAC(5878)=0.979667 TFRAC(5879)=0.979833 ;TFRAC(5880)=0.98 TFRAC(5881)=0.980167 ;TFRAC(5882)=0.980333 TFRAC(5883)=0.9805 ;TFRAC(5884)=0.980667 TFRAC(5885)=0.980833 ;TFRAC(5886)=0.981 TFRAC(5887)=0.981167 ;TFRAC(5888)=0.981333 TFRAC(5889)=0.9815 ;TFRAC(5890)=0.981667 TFRAC(5891)=0.981833 ;TFRAC(5892)=0.982 TFRAC(5893)=0.982167 ;TFRAC(5894)=0.982333 TFRAC(5895)=0.9825 ;TFRAC(5896)=0.982667 TFRAC(5897)=0.982833 ;TFRAC(5898)=0.983 TFRAC(5899)=0.983167 ;TFRAC(5900)=0.983333 TFRAC(5901)=0.9835 ;TFRAC(5902)=0.983667 TFRAC(5903)=0.983833 ;TFRAC(5904)=0.984 TFRAC(5905)=0.984167 ;TFRAC(5906)=0.984333 TFRAC(5907)=0.9845 ;TFRAC(5908)=0.984667 TFRAC(5909)=0.984833 ;TFRAC(5910)=0.985 TFRAC(5911)=0.985167 ;TFRAC(5912)=0.985333 TFRAC(5913)=0.9855 ;TFRAC(5914)=0.985667 TFRAC(5915)=0.985833 ;TFRAC(5916)=0.986 TFRAC(5917)=0.986167 ;TFRAC(5918)=0.986333 TFRAC(5919)=0.9865 ;TFRAC(5920)=0.986667 TFRAC(5921)=0.986833 ;TFRAC(5922)=0.987 TFRAC(5923)=0.987167 ;TFRAC(5924)=0.987333 TFRAC(5925)=0.9875 ;TFRAC(5926)=0.987667 TFRAC(5927)=0.987833 ;TFRAC(5928)=0.988 TFRAC(5929)=0.988167 ;TFRAC(5930)=0.988333 TFRAC(5931)=0.9885 ;TFRAC(5932)=0.988667 TFRAC(5933)=0.988833 ;TFRAC(5934)=0.989 TFRAC(5935)=0.989167 ;TFRAC(5936)=0.989333 TFRAC(5937)=0.9895 ;TFRAC(5938)=0.989667 TFRAC(5939)=0.989833 ;TFRAC(5940)=0.99 TFRAC(5941)=0.990167 ;TFRAC(5942)=0.990333 TFRAC(5943)=0.9905 ;TFRAC(5944)=0.990667 TFRAC(5945)=0.990833 ;TFRAC(5946)=0.991 TFRAC(5947)=0.991167 ;TFRAC(5948)=0.991333 TFRAC(5949)=0.9915 ;TFRAC(5950)=0.991667 TFRAC(5951)=0.991833 ;TFRAC(5952)=0.992 TFRAC(5953)=0.992167 ;TFRAC(5954)=0.992333 TFRAC(5955)=0.9925 ;TFRAC(5956)=0.992667 TFRAC(5957)=0.992833 ;TFRAC(5958)=0.993 TFRAC(5959)=0.993167 ;TFRAC(5960)=0.993333 TFRAC(5961)=0.9935 ;TFRAC(5962)=0.993667 TFRAC(5963)=0.993833 ;TFRAC(5964)=0.994 TFRAC(5965)=0.994167 ;TFRAC(5966)=0.994333 TFRAC(5967)=0.9945 ;TFRAC(5968)=0.994667 TFRAC(5969)=0.994833 ;TFRAC(5970)=0.995 TFRAC(5971)=0.995167 ;TFRAC(5972)=0.995333 TFRAC(5973)=0.9955 ;TFRAC(5974)=0.995667 TFRAC(5975)=0.995833 ;TFRAC(5976)=0.996 TFRAC(5977)=0.996167 ;TFRAC(5978)=0.996333 TFRAC(5979)=0.9965 ;TFRAC(5980)=0.996667 TFRAC(5981)=0.996833 ;TFRAC(5982)=0.997 TFRAC(5983)=0.997167 ;TFRAC(5984)=0.997333 TFRAC(5985)=0.9975 ;TFRAC(5986)=0.997667 TFRAC(5987)=0.997833 ;TFRAC(5988)=0.998 TFRAC(5989)=0.998167 ;TFRAC(5990)=0.998333 TFRAC(5991)=0.9985 ;TFRAC(5992)=0.998667 TFRAC(5993)=0.998833 ;TFRAC(5994)=0.999 TFRAC(5995)=0.999167 ;TFRAC(5996)=0.999333 TFRAC(5997)=0.9995 ;TFRAC(5998)=0.999667 TFRAC(5999)=0.999833 ;TFRAC(6000)=1. ************************************************************ Group 3. X-Direction Grid Spacing CARTES = T NX = 36 XULAST =0.0202 XFRAC(1)=7.62377E-03 ;XFRAC(2)=0.015248 XFRAC(3)=0.022871 ;XFRAC(4)=0.030495 XFRAC(5)=0.038119 ;XFRAC(6)=0.073648 XFRAC(7)=0.109177 ;XFRAC(8)=0.144707 XFRAC(9)=0.180236 ;XFRAC(10)=0.215765 XFRAC(11)=0.251295 ;XFRAC(12)=0.286824 XFRAC(13)=0.322353 ;XFRAC(14)=0.357883 XFRAC(15)=0.393412 ;XFRAC(16)=0.428941 XFRAC(17)=0.464471 ;XFRAC(18)=0.5 XFRAC(19)=0.535529 ;XFRAC(20)=0.571059 XFRAC(21)=0.606588 ;XFRAC(22)=0.642117 XFRAC(23)=0.677647 ;XFRAC(24)=0.713176 XFRAC(25)=0.748705 ;XFRAC(26)=0.784235 XFRAC(27)=0.819764 ;XFRAC(28)=0.855293 XFRAC(29)=0.890823 ;XFRAC(30)=0.926352 XFRAC(31)=0.961881 ;XFRAC(32)=0.969505 XFRAC(33)=0.977129 ;XFRAC(34)=0.984752 XFRAC(35)=0.992376 ;XFRAC(36)=1. ************************************************************ Group 4. Y-Direction Grid Spacing NY = 900 YVLAST =0.5 YFRAC(1)=1.111111E-03 ;YFRAC(2)=2.222222E-03 YFRAC(3)=3.333333E-03 ;YFRAC(4)=4.444444E-03 YFRAC(5)=5.555555E-03 ;YFRAC(6)=6.666667E-03 YFRAC(7)=7.777778E-03 ;YFRAC(8)=8.888888E-03 YFRAC(9)=1.0E-02 ;YFRAC(10)=0.011111 YFRAC(11)=0.012222 ;YFRAC(12)=0.013333 YFRAC(13)=0.014444 ;YFRAC(14)=0.015556 YFRAC(15)=0.016667 ;YFRAC(16)=0.017778 YFRAC(17)=0.018889 ;YFRAC(18)=0.02 YFRAC(19)=0.021111 ;YFRAC(20)=0.022222 YFRAC(21)=0.023333 ;YFRAC(22)=0.024444 YFRAC(23)=0.025556 ;YFRAC(24)=0.026667 YFRAC(25)=0.027778 ;YFRAC(26)=0.028889 YFRAC(27)=0.03 ;YFRAC(28)=0.031111 YFRAC(29)=0.032222 ;YFRAC(30)=0.033333 YFRAC(31)=0.034444 ;YFRAC(32)=0.035556 YFRAC(33)=0.036667 ;YFRAC(34)=0.037778 YFRAC(35)=0.038889 ;YFRAC(36)=0.04 YFRAC(37)=0.041111 ;YFRAC(38)=0.042222 YFRAC(39)=0.043333 ;YFRAC(40)=0.044444 YFRAC(41)=0.045556 ;YFRAC(42)=0.046667 YFRAC(43)=0.047778 ;YFRAC(44)=0.048889 YFRAC(45)=0.05 ;YFRAC(46)=0.051111 YFRAC(47)=0.052222 ;YFRAC(48)=0.053333 YFRAC(49)=0.054444 ;YFRAC(50)=0.055556 YFRAC(51)=0.056667 ;YFRAC(52)=0.057778 YFRAC(53)=0.058889 ;YFRAC(54)=0.06 YFRAC(55)=0.061111 ;YFRAC(56)=0.062222 YFRAC(57)=0.063333 ;YFRAC(58)=0.064444 YFRAC(59)=0.065556 ;YFRAC(60)=0.066667 YFRAC(61)=0.067778 ;YFRAC(62)=0.068889 YFRAC(63)=0.07 ;YFRAC(64)=0.071111 YFRAC(65)=0.072222 ;YFRAC(66)=0.073333 YFRAC(67)=0.074444 ;YFRAC(68)=0.075556 YFRAC(69)=0.076667 ;YFRAC(70)=0.077778 YFRAC(71)=0.078889 ;YFRAC(72)=0.08 YFRAC(73)=0.081111 ;YFRAC(74)=0.082222 YFRAC(75)=0.083333 ;YFRAC(76)=0.084444 YFRAC(77)=0.085556 ;YFRAC(78)=0.086667 YFRAC(79)=0.087778 ;YFRAC(80)=0.088889 YFRAC(81)=0.09 ;YFRAC(82)=0.091111 YFRAC(83)=0.092222 ;YFRAC(84)=0.093333 YFRAC(85)=0.094444 ;YFRAC(86)=0.095556 YFRAC(87)=0.096667 ;YFRAC(88)=0.097778 YFRAC(89)=0.098889 ;YFRAC(90)=0.1 YFRAC(91)=0.101111 ;YFRAC(92)=0.102222 YFRAC(93)=0.103333 ;YFRAC(94)=0.104444 YFRAC(95)=0.105556 ;YFRAC(96)=0.106667 YFRAC(97)=0.107778 ;YFRAC(98)=0.108889 YFRAC(99)=0.11 ;YFRAC(100)=0.111111 YFRAC(101)=0.112222 ;YFRAC(102)=0.113333 YFRAC(103)=0.114444 ;YFRAC(104)=0.115556 YFRAC(105)=0.116667 ;YFRAC(106)=0.117778 YFRAC(107)=0.118889 ;YFRAC(108)=0.12 YFRAC(109)=0.121111 ;YFRAC(110)=0.122222 YFRAC(111)=0.123333 ;YFRAC(112)=0.124444 YFRAC(113)=0.125556 ;YFRAC(114)=0.126667 YFRAC(115)=0.127778 ;YFRAC(116)=0.128889 YFRAC(117)=0.13 ;YFRAC(118)=0.131111 YFRAC(119)=0.132222 ;YFRAC(120)=0.133333 YFRAC(121)=0.134444 ;YFRAC(122)=0.135556 YFRAC(123)=0.136667 ;YFRAC(124)=0.137778 YFRAC(125)=0.138889 ;YFRAC(126)=0.14 YFRAC(127)=0.141111 ;YFRAC(128)=0.142222 YFRAC(129)=0.143333 ;YFRAC(130)=0.144444 YFRAC(131)=0.145556 ;YFRAC(132)=0.146667 YFRAC(133)=0.147778 ;YFRAC(134)=0.148889 YFRAC(135)=0.15 ;YFRAC(136)=0.151111 YFRAC(137)=0.152222 ;YFRAC(138)=0.153333 YFRAC(139)=0.154444 ;YFRAC(140)=0.155556 YFRAC(141)=0.156667 ;YFRAC(142)=0.157778 YFRAC(143)=0.158889 ;YFRAC(144)=0.16 YFRAC(145)=0.161111 ;YFRAC(146)=0.162222 YFRAC(147)=0.163333 ;YFRAC(148)=0.164444 YFRAC(149)=0.165556 ;YFRAC(150)=0.166667 YFRAC(151)=0.167778 ;YFRAC(152)=0.168889 YFRAC(153)=0.17 ;YFRAC(154)=0.171111 YFRAC(155)=0.172222 ;YFRAC(156)=0.173333 YFRAC(157)=0.174444 ;YFRAC(158)=0.175556 YFRAC(159)=0.176667 ;YFRAC(160)=0.177778 YFRAC(161)=0.178889 ;YFRAC(162)=0.18 YFRAC(163)=0.181111 ;YFRAC(164)=0.182222 YFRAC(165)=0.183333 ;YFRAC(166)=0.184444 YFRAC(167)=0.185556 ;YFRAC(168)=0.186667 YFRAC(169)=0.187778 ;YFRAC(170)=0.188889 YFRAC(171)=0.19 ;YFRAC(172)=0.191111 YFRAC(173)=0.192222 ;YFRAC(174)=0.193333 YFRAC(175)=0.194444 ;YFRAC(176)=0.195556 YFRAC(177)=0.196667 ;YFRAC(178)=0.197778 YFRAC(179)=0.198889 ;YFRAC(180)=0.2 YFRAC(181)=0.201111 ;YFRAC(182)=0.202222 YFRAC(183)=0.203333 ;YFRAC(184)=0.204444 YFRAC(185)=0.205556 ;YFRAC(186)=0.206667 YFRAC(187)=0.207778 ;YFRAC(188)=0.208889 YFRAC(189)=0.21 ;YFRAC(190)=0.211111 YFRAC(191)=0.212222 ;YFRAC(192)=0.213333 YFRAC(193)=0.214444 ;YFRAC(194)=0.215556 YFRAC(195)=0.216667 ;YFRAC(196)=0.217778 YFRAC(197)=0.218889 ;YFRAC(198)=0.22 YFRAC(199)=0.221111 ;YFRAC(200)=0.222222 YFRAC(201)=0.223333 ;YFRAC(202)=0.224444 YFRAC(203)=0.225556 ;YFRAC(204)=0.226667 YFRAC(205)=0.227778 ;YFRAC(206)=0.228889 YFRAC(207)=0.23 ;YFRAC(208)=0.231111 YFRAC(209)=0.232222 ;YFRAC(210)=0.233333 YFRAC(211)=0.234444 ;YFRAC(212)=0.235556 YFRAC(213)=0.236667 ;YFRAC(214)=0.237778 YFRAC(215)=0.238889 ;YFRAC(216)=0.24 YFRAC(217)=0.241111 ;YFRAC(218)=0.242222 YFRAC(219)=0.243333 ;YFRAC(220)=0.244444 YFRAC(221)=0.245556 ;YFRAC(222)=0.246667 YFRAC(223)=0.247778 ;YFRAC(224)=0.248889 YFRAC(225)=0.25 ;YFRAC(226)=0.251111 YFRAC(227)=0.252222 ;YFRAC(228)=0.253333 YFRAC(229)=0.254444 ;YFRAC(230)=0.255556 YFRAC(231)=0.256667 ;YFRAC(232)=0.257778 YFRAC(233)=0.258889 ;YFRAC(234)=0.26 YFRAC(235)=0.261111 ;YFRAC(236)=0.262222 YFRAC(237)=0.263333 ;YFRAC(238)=0.264444 YFRAC(239)=0.265556 ;YFRAC(240)=0.266667 YFRAC(241)=0.267778 ;YFRAC(242)=0.268889 YFRAC(243)=0.27 ;YFRAC(244)=0.271111 YFRAC(245)=0.272222 ;YFRAC(246)=0.273333 YFRAC(247)=0.274444 ;YFRAC(248)=0.275556 YFRAC(249)=0.276667 ;YFRAC(250)=0.277778 YFRAC(251)=0.278889 ;YFRAC(252)=0.28 YFRAC(253)=0.281111 ;YFRAC(254)=0.282222 YFRAC(255)=0.283333 ;YFRAC(256)=0.284444 YFRAC(257)=0.285556 ;YFRAC(258)=0.286667 YFRAC(259)=0.287778 ;YFRAC(260)=0.288889 YFRAC(261)=0.29 ;YFRAC(262)=0.291111 YFRAC(263)=0.292222 ;YFRAC(264)=0.293333 YFRAC(265)=0.294444 ;YFRAC(266)=0.295556 YFRAC(267)=0.296667 ;YFRAC(268)=0.297778 YFRAC(269)=0.298889 ;YFRAC(270)=0.3 YFRAC(271)=0.301111 ;YFRAC(272)=0.302222 YFRAC(273)=0.303333 ;YFRAC(274)=0.304444 YFRAC(275)=0.305556 ;YFRAC(276)=0.306667 YFRAC(277)=0.307778 ;YFRAC(278)=0.308889 YFRAC(279)=0.31 ;YFRAC(280)=0.311111 YFRAC(281)=0.312222 ;YFRAC(282)=0.313333 YFRAC(283)=0.314444 ;YFRAC(284)=0.315556 YFRAC(285)=0.316667 ;YFRAC(286)=0.317778 YFRAC(287)=0.318889 ;YFRAC(288)=0.32 YFRAC(289)=0.321111 ;YFRAC(290)=0.322222 YFRAC(291)=0.323333 ;YFRAC(292)=0.324444 YFRAC(293)=0.325556 ;YFRAC(294)=0.326667 YFRAC(295)=0.327778 ;YFRAC(296)=0.328889 YFRAC(297)=0.33 ;YFRAC(298)=0.331111 YFRAC(299)=0.332222 ;YFRAC(300)=0.333333 YFRAC(301)=0.334444 ;YFRAC(302)=0.335556 YFRAC(303)=0.336667 ;YFRAC(304)=0.337778 YFRAC(305)=0.338889 ;YFRAC(306)=0.34 YFRAC(307)=0.341111 ;YFRAC(308)=0.342222 YFRAC(309)=0.343333 ;YFRAC(310)=0.344444 YFRAC(311)=0.345556 ;YFRAC(312)=0.346667 YFRAC(313)=0.347778 ;YFRAC(314)=0.348889 YFRAC(315)=0.35 ;YFRAC(316)=0.351111 YFRAC(317)=0.352222 ;YFRAC(318)=0.353333 YFRAC(319)=0.354444 ;YFRAC(320)=0.355556 YFRAC(321)=0.356667 ;YFRAC(322)=0.357778 YFRAC(323)=0.358889 ;YFRAC(324)=0.36 YFRAC(325)=0.361111 ;YFRAC(326)=0.362222 YFRAC(327)=0.363333 ;YFRAC(328)=0.364444 YFRAC(329)=0.365556 ;YFRAC(330)=0.366667 YFRAC(331)=0.367778 ;YFRAC(332)=0.368889 YFRAC(333)=0.37 ;YFRAC(334)=0.371111 YFRAC(335)=0.372222 ;YFRAC(336)=0.373333 YFRAC(337)=0.374444 ;YFRAC(338)=0.375556 YFRAC(339)=0.376667 ;YFRAC(340)=0.377778 YFRAC(341)=0.378889 ;YFRAC(342)=0.38 YFRAC(343)=0.381111 ;YFRAC(344)=0.382222 YFRAC(345)=0.383333 ;YFRAC(346)=0.384444 YFRAC(347)=0.385556 ;YFRAC(348)=0.386667 YFRAC(349)=0.387778 ;YFRAC(350)=0.388889 YFRAC(351)=0.39 ;YFRAC(352)=0.391111 YFRAC(353)=0.392222 ;YFRAC(354)=0.393333 YFRAC(355)=0.394444 ;YFRAC(356)=0.395556 YFRAC(357)=0.396667 ;YFRAC(358)=0.397778 YFRAC(359)=0.398889 ;YFRAC(360)=0.4 YFRAC(361)=0.401111 ;YFRAC(362)=0.402222 YFRAC(363)=0.403333 ;YFRAC(364)=0.404444 YFRAC(365)=0.405556 ;YFRAC(366)=0.406667 YFRAC(367)=0.407778 ;YFRAC(368)=0.408889 YFRAC(369)=0.41 ;YFRAC(370)=0.411111 YFRAC(371)=0.412222 ;YFRAC(372)=0.413333 YFRAC(373)=0.414444 ;YFRAC(374)=0.415556 YFRAC(375)=0.416667 ;YFRAC(376)=0.417778 YFRAC(377)=0.418889 ;YFRAC(378)=0.42 YFRAC(379)=0.421111 ;YFRAC(380)=0.422222 YFRAC(381)=0.423333 ;YFRAC(382)=0.424444 YFRAC(383)=0.425556 ;YFRAC(384)=0.426667 YFRAC(385)=0.427778 ;YFRAC(386)=0.428889 YFRAC(387)=0.43 ;YFRAC(388)=0.431111 YFRAC(389)=0.432222 ;YFRAC(390)=0.433333 YFRAC(391)=0.434444 ;YFRAC(392)=0.435556 YFRAC(393)=0.436667 ;YFRAC(394)=0.437778 YFRAC(395)=0.438889 ;YFRAC(396)=0.44 YFRAC(397)=0.441111 ;YFRAC(398)=0.442222 YFRAC(399)=0.443333 ;YFRAC(400)=0.444444 YFRAC(401)=0.445556 ;YFRAC(402)=0.446667 YFRAC(403)=0.447778 ;YFRAC(404)=0.448889 YFRAC(405)=0.45 ;YFRAC(406)=0.451111 YFRAC(407)=0.452222 ;YFRAC(408)=0.453333 YFRAC(409)=0.454444 ;YFRAC(410)=0.455556 YFRAC(411)=0.456667 ;YFRAC(412)=0.457778 YFRAC(413)=0.458889 ;YFRAC(414)=0.46 YFRAC(415)=0.461111 ;YFRAC(416)=0.462222 YFRAC(417)=0.463333 ;YFRAC(418)=0.464444 YFRAC(419)=0.465556 ;YFRAC(420)=0.466667 YFRAC(421)=0.467778 ;YFRAC(422)=0.468889 YFRAC(423)=0.47 ;YFRAC(424)=0.471111 YFRAC(425)=0.472222 ;YFRAC(426)=0.473333 YFRAC(427)=0.474444 ;YFRAC(428)=0.475556 YFRAC(429)=0.476667 ;YFRAC(430)=0.477778 YFRAC(431)=0.478889 ;YFRAC(432)=0.48 YFRAC(433)=0.481111 ;YFRAC(434)=0.482222 YFRAC(435)=0.483333 ;YFRAC(436)=0.484444 YFRAC(437)=0.485556 ;YFRAC(438)=0.486667 YFRAC(439)=0.487778 ;YFRAC(440)=0.488889 YFRAC(441)=0.49 ;YFRAC(442)=0.491111 YFRAC(443)=0.492222 ;YFRAC(444)=0.493333 YFRAC(445)=0.494444 ;YFRAC(446)=0.495556 YFRAC(447)=0.496667 ;YFRAC(448)=0.497778 YFRAC(449)=0.498889 ;YFRAC(450)=0.5 YFRAC(451)=0.501111 ;YFRAC(452)=0.502222 YFRAC(453)=0.503333 ;YFRAC(454)=0.504444 YFRAC(455)=0.505556 ;YFRAC(456)=0.506667 YFRAC(457)=0.507778 ;YFRAC(458)=0.508889 YFRAC(459)=0.51 ;YFRAC(460)=0.511111 YFRAC(461)=0.512222 ;YFRAC(462)=0.513333 YFRAC(463)=0.514444 ;YFRAC(464)=0.515556 YFRAC(465)=0.516667 ;YFRAC(466)=0.517778 YFRAC(467)=0.518889 ;YFRAC(468)=0.52 YFRAC(469)=0.521111 ;YFRAC(470)=0.522222 YFRAC(471)=0.523333 ;YFRAC(472)=0.524444 YFRAC(473)=0.525556 ;YFRAC(474)=0.526667 YFRAC(475)=0.527778 ;YFRAC(476)=0.528889 YFRAC(477)=0.53 ;YFRAC(478)=0.531111 YFRAC(479)=0.532222 ;YFRAC(480)=0.533333 YFRAC(481)=0.534444 ;YFRAC(482)=0.535556 YFRAC(483)=0.536667 ;YFRAC(484)=0.537778 YFRAC(485)=0.538889 ;YFRAC(486)=0.54 YFRAC(487)=0.541111 ;YFRAC(488)=0.542222 YFRAC(489)=0.543333 ;YFRAC(490)=0.544444 YFRAC(491)=0.545556 ;YFRAC(492)=0.546667 YFRAC(493)=0.547778 ;YFRAC(494)=0.548889 YFRAC(495)=0.55 ;YFRAC(496)=0.551111 YFRAC(497)=0.552222 ;YFRAC(498)=0.553333 YFRAC(499)=0.554444 ;YFRAC(500)=0.555556 YFRAC(501)=0.556667 ;YFRAC(502)=0.557778 YFRAC(503)=0.558889 ;YFRAC(504)=0.56 YFRAC(505)=0.561111 ;YFRAC(506)=0.562222 YFRAC(507)=0.563333 ;YFRAC(508)=0.564444 YFRAC(509)=0.565556 ;YFRAC(510)=0.566667 YFRAC(511)=0.567778 ;YFRAC(512)=0.568889 YFRAC(513)=0.57 ;YFRAC(514)=0.571111 YFRAC(515)=0.572222 ;YFRAC(516)=0.573333 YFRAC(517)=0.574444 ;YFRAC(518)=0.575556 YFRAC(519)=0.576667 ;YFRAC(520)=0.577778 YFRAC(521)=0.578889 ;YFRAC(522)=0.58 YFRAC(523)=0.581111 ;YFRAC(524)=0.582222 YFRAC(525)=0.583333 ;YFRAC(526)=0.584444 YFRAC(527)=0.585556 ;YFRAC(528)=0.586667 YFRAC(529)=0.587778 ;YFRAC(530)=0.588889 YFRAC(531)=0.59 ;YFRAC(532)=0.591111 YFRAC(533)=0.592222 ;YFRAC(534)=0.593333 YFRAC(535)=0.594444 ;YFRAC(536)=0.595556 YFRAC(537)=0.596667 ;YFRAC(538)=0.597778 YFRAC(539)=0.598889 ;YFRAC(540)=0.6 YFRAC(541)=0.601111 ;YFRAC(542)=0.602222 YFRAC(543)=0.603333 ;YFRAC(544)=0.604444 YFRAC(545)=0.605556 ;YFRAC(546)=0.606667 YFRAC(547)=0.607778 ;YFRAC(548)=0.608889 YFRAC(549)=0.61 ;YFRAC(550)=0.611111 YFRAC(551)=0.612222 ;YFRAC(552)=0.613333 YFRAC(553)=0.614444 ;YFRAC(554)=0.615556 YFRAC(555)=0.616667 ;YFRAC(556)=0.617778 YFRAC(557)=0.618889 ;YFRAC(558)=0.62 YFRAC(559)=0.621111 ;YFRAC(560)=0.622222 YFRAC(561)=0.623333 ;YFRAC(562)=0.624444 YFRAC(563)=0.625556 ;YFRAC(564)=0.626667 YFRAC(565)=0.627778 ;YFRAC(566)=0.628889 YFRAC(567)=0.63 ;YFRAC(568)=0.631111 YFRAC(569)=0.632222 ;YFRAC(570)=0.633333 YFRAC(571)=0.634444 ;YFRAC(572)=0.635556 YFRAC(573)=0.636667 ;YFRAC(574)=0.637778 YFRAC(575)=0.638889 ;YFRAC(576)=0.64 YFRAC(577)=0.641111 ;YFRAC(578)=0.642222 YFRAC(579)=0.643333 ;YFRAC(580)=0.644444 YFRAC(581)=0.645556 ;YFRAC(582)=0.646667 YFRAC(583)=0.647778 ;YFRAC(584)=0.648889 YFRAC(585)=0.65 ;YFRAC(586)=0.651111 YFRAC(587)=0.652222 ;YFRAC(588)=0.653333 YFRAC(589)=0.654444 ;YFRAC(590)=0.655556 YFRAC(591)=0.656667 ;YFRAC(592)=0.657778 YFRAC(593)=0.658889 ;YFRAC(594)=0.66 YFRAC(595)=0.661111 ;YFRAC(596)=0.662222 YFRAC(597)=0.663333 ;YFRAC(598)=0.664444 YFRAC(599)=0.665556 ;YFRAC(600)=0.666667 YFRAC(601)=0.667778 ;YFRAC(602)=0.668889 YFRAC(603)=0.67 ;YFRAC(604)=0.671111 YFRAC(605)=0.672222 ;YFRAC(606)=0.673333 YFRAC(607)=0.674444 ;YFRAC(608)=0.675556 YFRAC(609)=0.676667 ;YFRAC(610)=0.677778 YFRAC(611)=0.678889 ;YFRAC(612)=0.68 YFRAC(613)=0.681111 ;YFRAC(614)=0.682222 YFRAC(615)=0.683333 ;YFRAC(616)=0.684444 YFRAC(617)=0.685556 ;YFRAC(618)=0.686667 YFRAC(619)=0.687778 ;YFRAC(620)=0.688889 YFRAC(621)=0.69 ;YFRAC(622)=0.691111 YFRAC(623)=0.692222 ;YFRAC(624)=0.693333 YFRAC(625)=0.694444 ;YFRAC(626)=0.695556 YFRAC(627)=0.696667 ;YFRAC(628)=0.697778 YFRAC(629)=0.698889 ;YFRAC(630)=0.7 YFRAC(631)=0.701111 ;YFRAC(632)=0.702222 YFRAC(633)=0.703333 ;YFRAC(634)=0.704444 YFRAC(635)=0.705556 ;YFRAC(636)=0.706667 YFRAC(637)=0.707778 ;YFRAC(638)=0.708889 YFRAC(639)=0.71 ;YFRAC(640)=0.711111 YFRAC(641)=0.712222 ;YFRAC(642)=0.713333 YFRAC(643)=0.714444 ;YFRAC(644)=0.715556 YFRAC(645)=0.716667 ;YFRAC(646)=0.717778 YFRAC(647)=0.718889 ;YFRAC(648)=0.72 YFRAC(649)=0.721111 ;YFRAC(650)=0.722222 YFRAC(651)=0.723333 ;YFRAC(652)=0.724444 YFRAC(653)=0.725556 ;YFRAC(654)=0.726667 YFRAC(655)=0.727778 ;YFRAC(656)=0.728889 YFRAC(657)=0.73 ;YFRAC(658)=0.731111 YFRAC(659)=0.732222 ;YFRAC(660)=0.733333 YFRAC(661)=0.734444 ;YFRAC(662)=0.735556 YFRAC(663)=0.736667 ;YFRAC(664)=0.737778 YFRAC(665)=0.738889 ;YFRAC(666)=0.74 YFRAC(667)=0.741111 ;YFRAC(668)=0.742222 YFRAC(669)=0.743333 ;YFRAC(670)=0.744444 YFRAC(671)=0.745556 ;YFRAC(672)=0.746667 YFRAC(673)=0.747778 ;YFRAC(674)=0.748889 YFRAC(675)=0.75 ;YFRAC(676)=0.751111 YFRAC(677)=0.752222 ;YFRAC(678)=0.753333 YFRAC(679)=0.754444 ;YFRAC(680)=0.755556 YFRAC(681)=0.756667 ;YFRAC(682)=0.757778 YFRAC(683)=0.758889 ;YFRAC(684)=0.76 YFRAC(685)=0.761111 ;YFRAC(686)=0.762222 YFRAC(687)=0.763333 ;YFRAC(688)=0.764444 YFRAC(689)=0.765556 ;YFRAC(690)=0.766667 YFRAC(691)=0.767778 ;YFRAC(692)=0.768889 YFRAC(693)=0.77 ;YFRAC(694)=0.771111 YFRAC(695)=0.772222 ;YFRAC(696)=0.773333 YFRAC(697)=0.774444 ;YFRAC(698)=0.775556 YFRAC(699)=0.776667 ;YFRAC(700)=0.777778 YFRAC(701)=0.778889 ;YFRAC(702)=0.78 YFRAC(703)=0.781111 ;YFRAC(704)=0.782222 YFRAC(705)=0.783333 ;YFRAC(706)=0.784444 YFRAC(707)=0.785556 ;YFRAC(708)=0.786667 YFRAC(709)=0.787778 ;YFRAC(710)=0.788889 YFRAC(711)=0.79 ;YFRAC(712)=0.791111 YFRAC(713)=0.792222 ;YFRAC(714)=0.793333 YFRAC(715)=0.794444 ;YFRAC(716)=0.795556 YFRAC(717)=0.796667 ;YFRAC(718)=0.797778 YFRAC(719)=0.798889 ;YFRAC(720)=0.8 YFRAC(721)=0.801111 ;YFRAC(722)=0.802222 YFRAC(723)=0.803333 ;YFRAC(724)=0.804444 YFRAC(725)=0.805556 ;YFRAC(726)=0.806667 YFRAC(727)=0.807778 ;YFRAC(728)=0.808889 YFRAC(729)=0.81 ;YFRAC(730)=0.811111 YFRAC(731)=0.812222 ;YFRAC(732)=0.813333 YFRAC(733)=0.814444 ;YFRAC(734)=0.815556 YFRAC(735)=0.816667 ;YFRAC(736)=0.817778 YFRAC(737)=0.818889 ;YFRAC(738)=0.82 YFRAC(739)=0.821111 ;YFRAC(740)=0.822222 YFRAC(741)=0.823333 ;YFRAC(742)=0.824444 YFRAC(743)=0.825556 ;YFRAC(744)=0.826667 YFRAC(745)=0.827778 ;YFRAC(746)=0.828889 YFRAC(747)=0.83 ;YFRAC(748)=0.831111 YFRAC(749)=0.832222 ;YFRAC(750)=0.833333 YFRAC(751)=0.834444 ;YFRAC(752)=0.835556 YFRAC(753)=0.836667 ;YFRAC(754)=0.837778 YFRAC(755)=0.838889 ;YFRAC(756)=0.84 YFRAC(757)=0.841111 ;YFRAC(758)=0.842222 YFRAC(759)=0.843333 ;YFRAC(760)=0.844444 YFRAC(761)=0.845556 ;YFRAC(762)=0.846667 YFRAC(763)=0.847778 ;YFRAC(764)=0.848889 YFRAC(765)=0.85 ;YFRAC(766)=0.851111 YFRAC(767)=0.852222 ;YFRAC(768)=0.853333 YFRAC(769)=0.854445 ;YFRAC(770)=0.855556 YFRAC(771)=0.856667 ;YFRAC(772)=0.857778 YFRAC(773)=0.858889 ;YFRAC(774)=0.86 YFRAC(775)=0.861111 ;YFRAC(776)=0.862222 YFRAC(777)=0.863333 ;YFRAC(778)=0.864444 YFRAC(779)=0.865556 ;YFRAC(780)=0.866667 YFRAC(781)=0.867778 ;YFRAC(782)=0.868889 YFRAC(783)=0.87 ;YFRAC(784)=0.871111 YFRAC(785)=0.872222 ;YFRAC(786)=0.873333 YFRAC(787)=0.874444 ;YFRAC(788)=0.875556 YFRAC(789)=0.876667 ;YFRAC(790)=0.877778 YFRAC(791)=0.878889 ;YFRAC(792)=0.88 YFRAC(793)=0.881111 ;YFRAC(794)=0.882222 YFRAC(795)=0.883333 ;YFRAC(796)=0.884444 YFRAC(797)=0.885556 ;YFRAC(798)=0.886667 YFRAC(799)=0.887778 ;YFRAC(800)=0.888889 YFRAC(801)=0.89 ;YFRAC(802)=0.891111 YFRAC(803)=0.892222 ;YFRAC(804)=0.893333 YFRAC(805)=0.894444 ;YFRAC(806)=0.895556 YFRAC(807)=0.896667 ;YFRAC(808)=0.897778 YFRAC(809)=0.898889 ;YFRAC(810)=0.9 YFRAC(811)=0.901111 ;YFRAC(812)=0.902222 YFRAC(813)=0.903333 ;YFRAC(814)=0.904444 YFRAC(815)=0.905556 ;YFRAC(816)=0.906667 YFRAC(817)=0.907778 ;YFRAC(818)=0.908889 YFRAC(819)=0.91 ;YFRAC(820)=0.911111 YFRAC(821)=0.912222 ;YFRAC(822)=0.913333 YFRAC(823)=0.914444 ;YFRAC(824)=0.915556 YFRAC(825)=0.916667 ;YFRAC(826)=0.917778 YFRAC(827)=0.918889 ;YFRAC(828)=0.92 YFRAC(829)=0.921111 ;YFRAC(830)=0.922222 YFRAC(831)=0.923333 ;YFRAC(832)=0.924444 YFRAC(833)=0.925556 ;YFRAC(834)=0.926667 YFRAC(835)=0.927778 ;YFRAC(836)=0.928889 YFRAC(837)=0.93 ;YFRAC(838)=0.931111 YFRAC(839)=0.932222 ;YFRAC(840)=0.933333 YFRAC(841)=0.934444 ;YFRAC(842)=0.935556 YFRAC(843)=0.936667 ;YFRAC(844)=0.937778 YFRAC(845)=0.938889 ;YFRAC(846)=0.94 YFRAC(847)=0.941111 ;YFRAC(848)=0.942222 YFRAC(849)=0.943333 ;YFRAC(850)=0.944444 YFRAC(851)=0.945556 ;YFRAC(852)=0.946667 YFRAC(853)=0.947778 ;YFRAC(854)=0.948889 YFRAC(855)=0.95 ;YFRAC(856)=0.951111 YFRAC(857)=0.952222 ;YFRAC(858)=0.953333 YFRAC(859)=0.954444 ;YFRAC(860)=0.955556 YFRAC(861)=0.956667 ;YFRAC(862)=0.957778 YFRAC(863)=0.958889 ;YFRAC(864)=0.96 YFRAC(865)=0.961111 ;YFRAC(866)=0.962222 YFRAC(867)=0.963333 ;YFRAC(868)=0.964444 YFRAC(869)=0.965556 ;YFRAC(870)=0.966667 YFRAC(871)=0.967778 ;YFRAC(872)=0.968889 YFRAC(873)=0.97 ;YFRAC(874)=0.971111 YFRAC(875)=0.972222 ;YFRAC(876)=0.973333 YFRAC(877)=0.974444 ;YFRAC(878)=0.975556 YFRAC(879)=0.976667 ;YFRAC(880)=0.977778 YFRAC(881)=0.978889 ;YFRAC(882)=0.98 YFRAC(883)=0.981111 ;YFRAC(884)=0.982222 YFRAC(885)=0.983333 ;YFRAC(886)=0.984444 YFRAC(887)=0.985556 ;YFRAC(888)=0.986667 YFRAC(889)=0.987778 ;YFRAC(890)=0.988889 YFRAC(891)=0.99 ;YFRAC(892)=0.991111 YFRAC(893)=0.992222 ;YFRAC(894)=0.993333 YFRAC(895)=0.994444 ;YFRAC(896)=0.995556 YFRAC(897)=0.996667 ;YFRAC(898)=0.997778 YFRAC(899)=0.998889 ;YFRAC(900)=1. ************************************************************ Group 5. Z-Direction Grid Spacing PARAB = F NZ = 1 ZWLAST =1.0E-02 ************************************************************ Group 6. Body-Fitted Coordinates ************************************************************ Group 7. Variables: STOREd,SOLVEd,NAMEd ONEPHS = T NAME(1)=P1 ;NAME(3)=U1 NAME(5)=V1 ;NAME(141)=SIGM NAME(142)=MEVP ;NAME(143)=KAPA NAME(144)=MEVA ;NAME(145)=PRPS NAME(146)=DEN1 ;NAME(147)=SURN NAME(148)=VFOL ;NAME(149)=SPH1 NAME(150)=TEM1 * 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(SIGM,Y,N,N,N,N,Y) SOLUTN(MEVP,Y,N,N,N,N,Y) SOLUTN(KAPA,Y,N,N,N,N,Y) SOLUTN(MEVA,Y,N,N,N,N,Y) SOLUTN(PRPS,Y,N,N,N,N,Y) SOLUTN(DEN1,Y,N,N,N,N,Y) SOLUTN(SURN,Y,Y,N,N,N,Y) SOLUTN(VFOL,Y,Y,N,N,N,Y) SOLUTN(SPH1,Y,N,N,N,N,N) SOLUTN(TEM1,Y,Y,Y,N,N,Y) DEN1 = 146 PRPS = 145 ************************************************************ 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(SURN,N,N,N,N,Y,N) TERMS(VFOL,N,N,N,N,Y,N) TERMS(TEM1,N,Y,Y,Y,Y,Y) DIFCUT =0.5 ;ZDIFAC =1. GALA = T ;ADDDIF = F RUPLIM =0.999999 ;RLOLIM =1.0E-06 ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1 ************************************************************ Group 9. Properties used if PRPS is not stored, and where PRPS = -1.0 if it is! RHO1 =998.22998 ;TMP1 =0. ;EL1 =0. TSURR =0. ;TEMP0 =273.149994 ;PRESS0 =1.01325E+05 DVO1DT =1.18E-04 ;DRH1DP =0. EMISS =0. ;SCATT =0. RADIA =0. ;RADIB =0. ENUL =1.006E-06 ;ENUT =0. PRNDTL(U1)=1. ;PRNDTL(V1)=1. PRNDTL(TEM1)=-0.597 PRT(U1)=1. ;PRT(V1)=1. PRT(TEM1)=1. CP1 =4181.799805 ;CP2 =1. ************************************************************ 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(SIGM)=1.0E-10 FIINIT(MEVP)=1.0E-10 ;FIINIT(KAPA)=1.0E-10 FIINIT(MEVA)=1.0E-10 ;FIINIT(PRPS)=-1. FIINIT(DEN1)=1.0E-10 ;FIINIT(SURN)=0. FIINIT(VFOL)=0. ;FIINIT(SPH1)=1.0E-10 FIINIT(TEM1)=53.849998 PATCH(^OB1 ,INIVAL, 1, 0, 0, 0, 0, 0, 1, 1) INIT(^OB1 ,PRPS,0. ,67. ) INIT(^OB1 ,SURN,0. ,1. ) INIT(^OB1 ,VFOL,0. ,1. ) INIT(^OB1 ,TEM1,0. ,99.849998 ) PATCH(^OB2 ,INIVAL, 2, 0, 0, 0, 0, 0, 1, 1) INIT(^OB2 ,PRPS,0. ,23. ) INIT(^OB2 ,SURN,0. ,0. ) INIT(^OB2 ,VFOL,0. ,0. ) INIT(^OB2 ,TEM1,0. ,99.849998 ) PATCH(^OBD ,INIVAL, 13, 0, 0, 0, 0, 0, 1, 1) INIT(^OBD ,PRPS,0. ,67. ) INIT(^OBD ,SURN,0. ,1. ) INIT(^OBD ,VFOL,0. ,1. ) INIT(^OBD ,TEM1,0. ,105.220001 ) PATCH(^OBE ,INIVAL, 14, 0, 0, 0, 0, 0, 1, 1) INIT(^OBE ,PRPS,0. ,67. ) INIT(^OBE ,SURN,0. ,1. ) INIT(^OBE ,VFOL,0. ,1. ) INIT(^OBE ,TEM1,0. ,105.220001 ) INIADD = F FSWEEP = 1 NAMFI =phida ************************************************************ 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, 36, 1, 900, 1, 1, 1, 6000) COVAL(BUOYANCY,U1 , FIXFLU , GRND2 ) COVAL(BUOYANCY,V1 , FIXFLU , GRND2 ) PATCH(STENS ,PHASEM, 1, 36, 1, 900, 1, 1, 1, 6000) COVAL(STENS ,U1 , FIXFLU , GRND3 ) COVAL(STENS ,V1 , FIXFLU , GRND3 ) PATCH(BUOYVOF ,PHASEM, 1, 36, 1, 900, 1, 1, 1, 6000) COVAL(BUOYVOF ,U1 , FIXFLU , GRND3 ) COVAL(BUOYVOF ,V1 , FIXFLU , GRND3 ) PATCH(TCON ,CELL , 1, 36, 1, 900, 1, 1, 1, 6000) COVAL(TCON ,SURN, GRND , GRND ) PATCH(TCONC ,CELL , 1, 36, 1, 900, 1, 1, 1, 6000) COVAL(TCONC ,TEM1,0. ,0. ) PATCH(TCONT ,VOLUME, 1, 36, 1, 900, 1, 1, 1, 6000) COVAL(TCONT ,TEM1, GRND , GRND ) PATCH(EVAPO ,VOLUME, 1, 36, 1, 900, 1, 1, 1, 6000) COVAL(EVAPO ,SURN, FIXFLU , GRND4 ) COVAL(EVAPO ,TEM1, FIXFLU , GRND4 ) PATCH(OC3 ,WEST , 1, 1, 1, 180, 1, 1, 1, 6000) COVAL(OC3 ,TEM1, FIXFLU ,1.728702E+05 ) PATCH(OB3 ,WWALL , 1, 1, 1, 180, 1, 1, 1, 6000) COVAL(OB3 ,V1 ,1. ,0. ) PATCH(^OC4 ,CELL , 4, 20, 0, 0, 0, 0, 1, 6000) COVAL(^OC4 ,TEM1, FIXFLU ,172.869995 ) PATCH(^OB4 ,CELL , 4, 5, 0, 0, 0, 0, 1, 6000) COVAL(^OB4 ,V1 ,1. ,0. ) PATCH(^OC5 ,CELL , 5, 21, 0, 0, 0, 0, 1, 6000) COVAL(^OC5 ,TEM1, FIXFLU ,0.172 ) PATCH(^OB5 ,CELL , 5, 6, 0, 0, 0, 0, 1, 6000) COVAL(^OB5 ,V1 ,1. ,0. ) PATCH(^OC6 ,CELL , 6, 20, 0, 0, 0, 0, 1, 6000) COVAL(^OC6 ,TEM1, FIXFLU ,0.172 ) PATCH(^OB6 ,CELL , 6, 5, 0, 0, 0, 0, 1, 6000) COVAL(^OB6 ,V1 ,1. ,0. ) PATCH(^OB7 ,CELL , 7, 6, 0, 0, 0, 0, 1, 6000) COVAL(^OB7 ,V1 ,1. ,0. ) PATCH(^OB8 ,CELL , 8, 5, 0, 0, 0, 0, 1, 6000) COVAL(^OB8 ,V1 ,1. ,0. ) PATCH(^OB9 ,CELL , 9, 6, 0, 0, 0, 0, 1, 6000) COVAL(^OB9 ,V1 ,1. ,0. ) PATCH(^OC9 ,WEST , 9, 0, 0, 0, 0, 0, 1, 6000) COVAL(^OC9 ,TEM1,707.599976 ,28.299999 ) PATCH(^OBA ,CELL , 10, 5, 0, 0, 0, 0, 1, 6000) COVAL(^OBA ,V1 ,1. ,0. ) PATCH(^OCA ,EAST , 10, 0, 0, 0, 0, 0, 1, 6000) COVAL(^OCA ,TEM1,707.599976 ,28.299999 ) PATCH(^OBB ,CELL , 11, 8, 0, 0, 0, 0, 1, 6000) COVAL(^OBB ,U1 ,1. ,0. ) PATCH(^OBC ,CELL , 12, 7, 0, 0, 0, 0, 1, 6000) COVAL(^OBC ,U1 ,1. ,0. ) PATCH(^P-REL1 ,CELL , 15, 1, 0, 0, 0, 0, 1, 6000) COVAL(^P-REL1 ,P1 ,1. ,0. ) COVAL(^P-REL1 ,TEM1,0. , SAME ) XCYCLE = F EGWF = T WALLCO = GRND2 BUOYA =0. ; BUOYB =-9.81 ; BUOYC =0. BUOYD =0.5863 BUOYE =53.849998 ************************************************************ Group 14. Downstream Pressure For PARAB ************************************************************ Group 15. Terminate Sweeps LSWEEP = 50 ;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(SURN)=1 LITER(VFOL)=1 ;LITER(TEM1)=200 ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03 ENDIT(V1)=1.0E-03 ;ENDIT(SURN)=1.0E-03 ENDIT(VFOL)=1.0E-03 ;ENDIT(TEM1)=1.0E-04 ************************************************************ Group 17. Relaxation RELAX(P1,LINRLX,1.) RELAX(U1,FALSDT,0.05) RELAX(V1,FALSDT,0.05) RELAX(SIGM,LINRLX,1.) RELAX(MEVP,LINRLX,1.) RELAX(KAPA,LINRLX,1.) RELAX(MEVA,LINRLX,1.) RELAX(PRPS,LINRLX,1.) RELAX(DEN1,LINRLX,1.) RELAX(SURN,LINRLX,1.) RELAX(VFOL,LINRLX,1.) RELAX(SPH1,LINRLX,1.) RELAX(TEM1,LINRLX,0.5) 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(SIGM)=1.0E+10 ;VARMIN(SIGM)=-1.0E+10 VARMAX(MEVP)=1.0E+10 ;VARMIN(MEVP)=-1.0E+10 VARMAX(KAPA)=1.0E+10 ;VARMIN(KAPA)=-1.0E+10 VARMAX(MEVA)=1.0E+10 ;VARMIN(MEVA)=-1.0E+10 VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10 VARMAX(DEN1)=1.0E+10 ;VARMIN(DEN1)=-1.0E+10 VARMAX(SURN)=1. ;VARMIN(SURN)=0. VARMAX(VFOL)=1.0E+10 ;VARMIN(VFOL)=-1.0E+10 VARMAX(SPH1)=1.0E+10 ;VARMIN(SPH1)=-1.0E+10 VARMAX(TEM1)=200. ;VARMIN(TEM1)=20. ************************************************************ Group 19. Data transmitted to GROUND SURF = T PARSOL = F IPRPSA = 67 ;IPRPSB = 23 ISG21 = 5 ISG62 = 1 ISURFA = 5 BTATHC =3.5 ISRFTA = 4 SURFTA =0.098058 ;SURFTB=-1.845E-05 ;SURFTC =99.849998 ;SURFTD=-2.3E-07 MARANG = T IEVAP = 1 LATH =2.455E+06 ;TSAT=373. ;EVAPCO=0.1 NONCON = T SPEDAT(SET,GXMONI,TRANSIENT,L,F) SPEDAT(SET,RESTRT,PBCL,C,PBCL.DAT) SPEDAT(SET,VOF,LTSS,L,F) SPEDAT(SET,MAXINC,SURN,R,1.) SPEDAT(SET,MAXINC,VFOL,R,1.) SPEDAT(SET,GXMONI,PLOTALL,L,T) SPEDAT(SET,OBJNAM,^OB1,C,WATER) SPEDAT(SET,OBJTYP,^OB1,C,BLOCKAGE) SPEDAT(SET,WATER,MATERIAL,R,67.) SPEDAT(SET,OBJNAM,^OB2,C,AIR) SPEDAT(SET,OBJTYP,^OB2,C,BLOCKAGE) SPEDAT(SET,AIR,MATERIAL,R,23.) SPEDAT(SET,OBJNAM,!OB3,C,WALL-EV-W-L) SPEDAT(SET,OBJTYP,!OB3,C,PLATE) SPEDAT(SET,OBJNAM,!OC3,C,WALL-EV-W-L) SPEDAT(SET,OBJTYP,!OC3,C,USER_DEFINED) SPEDAT(SET,OBJNAM,^OB4,C,WALL-EV-E-L) SPEDAT(SET,OBJTYP,^OB4,C,PLATE) SPEDAT(SET,OBJNAM,^OC4,C,WALL-EV-E-L) SPEDAT(SET,OBJTYP,^OC4,C,USER_DEFINED) SPEDAT(SET,OBJNAM,^OB5,C,WALL-EV-W) SPEDAT(SET,OBJTYP,^OB5,C,PLATE) SPEDAT(SET,OBJNAM,^OC5,C,WALL-EV-W) SPEDAT(SET,OBJTYP,^OC5,C,USER_DEFINED) SPEDAT(SET,OBJNAM,^OB6,C,WALL-EV-E) SPEDAT(SET,OBJTYP,^OB6,C,PLATE) SPEDAT(SET,OBJNAM,^OC6,C,WALL-EV-E) SPEDAT(SET,OBJTYP,^OC6,C,USER_DEFINED) SPEDAT(SET,OBJNAM,^OB7,C,WALL-AD-W) SPEDAT(SET,OBJTYP,^OB7,C,PLATE) SPEDAT(SET,OBJNAM,^OB8,C,WALL-AD-E) SPEDAT(SET,OBJTYP,^OB8,C,PLATE) SPEDAT(SET,OBJNAM,^OB9,C,WALL-CO-W) SPEDAT(SET,OBJTYP,^OB9,C,PLATE) SPEDAT(SET,OBJNAM,^OC9,C,WALL-CO-W) SPEDAT(SET,OBJTYP,^OC9,C,PLATE) SPEDAT(SET,OBJNAM,^OBA,C,WALL-CO-E) SPEDAT(SET,OBJTYP,^OBA,C,PLATE) SPEDAT(SET,OBJNAM,^OCA,C,WALL-CO-E) SPEDAT(SET,OBJTYP,^OCA,C,PLATE) SPEDAT(SET,OBJNAM,^OBB,C,S-WALL) SPEDAT(SET,OBJTYP,^OBB,C,PLATE) SPEDAT(SET,OBJNAM,^OBC,C,N-WALL) SPEDAT(SET,OBJTYP,^OBC,C,PLATE) SPEDAT(SET,OBJNAM,^OBD,C,HOT-1) SPEDAT(SET,OBJTYP,^OBD,C,BLOCKAGE) SPEDAT(SET,HOT-1,MATERIAL,R,67.) SPEDAT(SET,OBJNAM,^OBE,C,HOT-2) SPEDAT(SET,OBJTYP,^OBE,C,BLOCKAGE) SPEDAT(SET,HOT-2,MATERIAL,R,67.) SPEDAT(SET,OBJNAM,^OBF,C,PREL) SPEDAT(SET,OBJTYP,^OBF,C,PRESSURE_RELIEF) SPEDAT(SET,OBJNAM,^P-REL1,C,PREL) SPEDAT(SET,OBJTYP,^P-REL1,C,USER_DEFINED) SPEDAT(SET,FACETDAT,NUMOBJ,I,15) SPEDAT(SET,MATERIAL,67,L,T) SPEDAT(SET,MATERIAL,23,L,T) ************************************************************ Group 20. Preliminary Printout ************************************************************ 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(SIGM,N,N,Y,N,N,N) OUTPUT(MEVP,N,N,Y,N,N,N) OUTPUT(KAPA,N,N,Y,N,N,N) OUTPUT(MEVA,N,N,Y,N,N,N) OUTPUT(PRPS,N,N,Y,N,N,N) OUTPUT(DEN1,N,N,Y,N,N,N) OUTPUT(SURN,N,Y,Y,Y,Y,Y) OUTPUT(VFOL,N,Y,Y,N,Y,Y) OUTPUT(SPH1,N,N,Y,N,N,N) OUTPUT(TEM1,N,N,Y,Y,Y,Y) ************************************************************ Group 22. Monitor Print-Out IXMON = 18 ;IYMON = 23 ;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