Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!!
4 : !!!! MIT License
5 : !!!!
6 : !!!! ParaMonte: plain powerful parallel Monte Carlo library.
7 : !!!!
8 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab
9 : !!!!
10 : !!!! This file is part of the ParaMonte library.
11 : !!!!
12 : !!!! Permission is hereby granted, free of charge, to any person obtaining a
13 : !!!! copy of this software and associated documentation files (the "Software"),
14 : !!!! to deal in the Software without restriction, including without limitation
15 : !!!! the rights to use, copy, modify, merge, publish, distribute, sublicense,
16 : !!!! and/or sell copies of the Software, and to permit persons to whom the
17 : !!!! Software is furnished to do so, subject to the following conditions:
18 : !!!!
19 : !!!! The above copyright notice and this permission notice shall be
20 : !!!! included in all copies or substantial portions of the Software.
21 : !!!!
22 : !!!! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
23 : !!!! EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
24 : !!!! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
25 : !!!! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
26 : !!!! DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
27 : !!!! OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE
28 : !!!! OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
29 : !!!!
30 : !!!! ACKNOWLEDGMENT
31 : !!!!
32 : !!!! ParaMonte is an honor-ware and its currency is acknowledgment and citations.
33 : !!!! As per the ParaMonte library license agreement terms, if you use any parts of
34 : !!!! this library for any purposes, kindly acknowledge the use of ParaMonte in your
35 : !!!! work (education/research/industry/development/...) by citing the ParaMonte
36 : !!!! library as described on this page:
37 : !!!!
38 : !!!! https://github.com/cdslaborg/paramonte/blob/main/ACKNOWLEDGMENT.md
39 : !!!!
40 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
41 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
42 :
43 : !> \brief This module contains procedures for computing random numbers from a truncated Gaussian distribution.
44 : !> \author Amir Shahmoradi
45 :
46 : module TranGaus_mod
47 :
48 : use Constants_mod, only: IK, RK
49 :
50 : implicit none
51 :
52 : character(*), parameter :: MODULE_NAME = "@TranGaus_mod"
53 :
54 : integer(IK), parameter :: LEN_VEC_X = 4002, LEN_VEC_YU = 4001, LEN_VEC_CELL = 8961
55 :
56 : real(RK), parameter :: VEC_X_1(1:1000) = [ &
57 : -2.00443204036_RK, -1.99990455547_RK, -1.99541747213_RK, -1.99096998962_RK, &
58 : -1.98656133124_RK, -1.98219074335_RK, -1.97785749442_RK, -1.97356087419_RK, &
59 : -1.96930019287_RK, -1.96507478031_RK, -1.96088398528_RK, -1.95672717477_RK, &
60 : -1.95260373328_RK, -1.9485130622_RK, -1.94445457918_RK, -1.94042771755_RK, &
61 : -1.93643192574_RK, -1.93246666677_RK, -1.92853141772_RK, -1.92462566922_RK, &
62 : -1.92074892503_RK, -1.91690070156_RK, -1.91308052741_RK, -1.90928794302_RK, &
63 : -1.90552250025_RK, -1.90178376197_RK, -1.89807130174_RK, -1.89438470345_RK, &
64 : -1.89072356098_RK, -1.88708747787_RK, -1.88347606705_RK, -1.8798889505_RK, &
65 : -1.87632575899_RK, -1.87278613181_RK, -1.86926971649_RK, -1.86577616858_RK, &
66 : -1.86230515137_RK, -1.85885633567_RK, -1.8554293996_RK, -1.85202402837_RK, &
67 : -1.84863991405_RK, -1.84527675539_RK, -1.84193425762_RK, -1.83861213227_RK, &
68 : -1.83531009698_RK, -1.83202787533_RK, -1.82876519668_RK, -1.825521796_RK, &
69 : -1.82229741372_RK, -1.81909179558_RK, -1.81590469249_RK, -1.81273586036_RK, &
70 : -1.80958506_RK, -1.80645205698_RK, -1.8033366215_RK, -1.80023852827_RK, &
71 : -1.79715755637_RK, -1.79409348917_RK, -1.79104611422_RK, -1.78801522309_RK, &
72 : -1.78500061134_RK, -1.78200207837_RK, -1.77901942732_RK, -1.77605246501_RK, &
73 : -1.77310100183_RK, -1.77016485166_RK, -1.76724383175_RK, -1.7643377627_RK, &
74 : -1.7614464683_RK, -1.75856977555_RK, -1.75570751448_RK, -1.75285951816_RK, &
75 : -1.75002562257_RK, -1.74720566658_RK, -1.74439949184_RK, -1.74160694276_RK, &
76 : -1.73882786639_RK, -1.7360621124_RK, -1.73330953303_RK, -1.73056998298_RK, &
77 : -1.72784331941_RK, -1.72512940185_RK, -1.72242809217_RK, -1.71973925449_RK, &
78 : -1.71706275519_RK, -1.7143984628_RK, -1.71174624799_RK, -1.70910598353_RK, &
79 : -1.70647754419_RK, -1.70386080677_RK, -1.70125565_RK, -1.69866195455_RK, &
80 : -1.69607960292_RK, -1.69350847947_RK, -1.69094847035_RK, -1.68839946345_RK, &
81 : -1.6858613484_RK, -1.68333401649_RK, -1.68081736069_RK, -1.67831127556_RK, &
82 : -1.67581565725_RK, -1.67333040348_RK, -1.67085541345_RK, -1.6683905879_RK, &
83 : -1.665935829_RK, -1.66349104035_RK, -1.66105612696_RK, -1.65863099522_RK, &
84 : -1.65621555288_RK, -1.65380970898_RK, -1.65141337389_RK, -1.64902645924_RK, &
85 : -1.64664887792_RK, -1.64428054402_RK, -1.64192137286_RK, -1.63957128092_RK, &
86 : -1.63723018585_RK, -1.63489800643_RK, -1.63257466256_RK, -1.63026007522_RK, &
87 : -1.62795416649_RK, -1.62565685948_RK, -1.62336807836_RK, -1.62108774828_RK, &
88 : -1.61881579544_RK, -1.61655214696_RK, -1.61429673098_RK, -1.61204947656_RK, &
89 : -1.60981031368_RK, -1.60757917325_RK, -1.60535598708_RK, -1.60314068784_RK, &
90 : -1.60093320909_RK, -1.59873348523_RK, -1.59654145149_RK, -1.59435704393_RK, &
91 : -1.59218019943_RK, -1.59001085565_RK, -1.58784895103_RK, -1.58569442477_RK, &
92 : -1.58354721686_RK, -1.581407268_RK, -1.57927451964_RK, -1.57714891392_RK, &
93 : -1.57503039371_RK, -1.57291890258_RK, -1.57081438477_RK, -1.56871678519_RK, &
94 : -1.56662604942_RK, -1.56454212368_RK, -1.56246495486_RK, -1.56039449044_RK, &
95 : -1.55833067854_RK, -1.55627346789_RK, -1.55422280782_RK, -1.55217864825_RK, &
96 : -1.55014093969_RK, -1.5481096332_RK, -1.54608468043_RK, -1.54406603357_RK, &
97 : -1.54205364536_RK, -1.54004746908_RK, -1.53804745854_RK, -1.53605356807_RK, &
98 : -1.53406575252_RK, -1.53208396723_RK, -1.53010816806_RK, -1.52813831134_RK, &
99 : -1.52617435391_RK, -1.52421625305_RK, -1.52226396655_RK, -1.52031745264_RK, &
100 : -1.51837667_RK, -1.51644157777_RK, -1.51451213554_RK, -1.51258830332_RK, &
101 : -1.51067004156_RK, -1.50875731112_RK, -1.5068500733_RK, -1.50494828979_RK, &
102 : -1.50305192269_RK, -1.50116093452_RK, -1.49927528818_RK, -1.49739494693_RK, &
103 : -1.49551987447_RK, -1.49365003484_RK, -1.49178539245_RK, -1.48992591209_RK, &
104 : -1.48807155892_RK, -1.48622229844_RK, -1.48437809651_RK, -1.48253891934_RK, &
105 : -1.48070473348_RK, -1.47887550581_RK, -1.47705120356_RK, -1.47523179427_RK, &
106 : -1.47341724582_RK, -1.47160752641_RK, -1.46980260454_RK, -1.46800244903_RK, &
107 : -1.46620702902_RK, -1.46441631394_RK, -1.46263027351_RK, -1.46084887778_RK, &
108 : -1.45907209704_RK, -1.45729990192_RK, -1.4555322633_RK, -1.45376915236_RK, &
109 : -1.45201054053_RK, -1.45025639954_RK, -1.44850670139_RK, -1.44676141832_RK, &
110 : -1.44502052286_RK, -1.44328398779_RK, -1.44155178613_RK, -1.43982389118_RK, &
111 : -1.43810027647_RK, -1.43638091579_RK, -1.43466578316_RK, -1.43295485285_RK, &
112 : -1.43124809936_RK, -1.42954549744_RK, -1.42784702206_RK, -1.4261526484_RK, &
113 : -1.42446235191_RK, -1.42277610822_RK, -1.42109389321_RK, -1.41941568296_RK, &
114 : -1.41774145377_RK, -1.41607118216_RK, -1.41440484485_RK, -1.41274241877_RK, &
115 : -1.41108388106_RK, -1.40942920906_RK, -1.40777838029_RK, -1.40613137251_RK, &
116 : -1.40448816364_RK, -1.40284873181_RK, -1.40121305532_RK, -1.39958111269_RK, &
117 : -1.3979528826_RK, -1.39632834393_RK, -1.39470747574_RK, -1.39309025725_RK, &
118 : -1.39147666789_RK, -1.38986668723_RK, -1.38826029505_RK, -1.38665747129_RK, &
119 : -1.38505819603_RK, -1.38346244956_RK, -1.38187021232_RK, -1.3802814649_RK, &
120 : -1.37869618807_RK, -1.37711436276_RK, -1.37553597004_RK, -1.37396099116_RK, &
121 : -1.37238940752_RK, -1.37082120066_RK, -1.36925635228_RK, -1.36769484423_RK, &
122 : -1.36613665852_RK, -1.36458177727_RK, -1.3630301828_RK, -1.36148185752_RK, &
123 : -1.35993678401_RK, -1.35839494499_RK, -1.35685632332_RK, -1.35532090198_RK, &
124 : -1.3537886641_RK, -1.35225959295_RK, -1.35073367192_RK, -1.34921088453_RK, &
125 : -1.34769121444_RK, -1.34617464545_RK, -1.34466116145_RK, -1.34315074649_RK, &
126 : -1.34164338473_RK, -1.34013906045_RK, -1.33863775808_RK, -1.33713946213_RK, &
127 : -1.33564415726_RK, -1.33415182822_RK, -1.33266245992_RK, -1.33117603734_RK, &
128 : -1.3296925456_RK, -1.32821196994_RK, -1.32673429568_RK, -1.32525950829_RK, &
129 : -1.32378759331_RK, -1.32231853644_RK, -1.32085232344_RK, -1.31938894019_RK, &
130 : -1.3179283727_RK, -1.31647060705_RK, -1.31501562944_RK, -1.31356342618_RK, &
131 : -1.31211398366_RK, -1.31066728839_RK, -1.30922332698_RK, -1.30778208612_RK, &
132 : -1.30634355261_RK, -1.30490771336_RK, -1.30347455533_RK, -1.30204406564_RK, &
133 : -1.30061623144_RK, -1.29919104001_RK, -1.29776847873_RK, -1.29634853503_RK, &
134 : -1.29493119647_RK, -1.29351645068_RK, -1.29210428538_RK, -1.29069468838_RK, &
135 : -1.28928764758_RK, -1.28788315096_RK, -1.28648118658_RK, -1.2850817426_RK, &
136 : -1.28368480725_RK, -1.28229036885_RK, -1.2808984158_RK, -1.27950893658_RK, &
137 : -1.27812191975_RK, -1.27673735394_RK, -1.27535522788_RK, -1.27397553036_RK, &
138 : -1.27259825027_RK, -1.27122337654_RK, -1.2698508982_RK, -1.26848080436_RK, &
139 : -1.26711308419_RK, -1.26574772695_RK, -1.26438472195_RK, -1.26302405859_RK, &
140 : -1.26166572634_RK, -1.26030971474_RK, -1.25895601339_RK, -1.25760461198_RK, &
141 : -1.25625550025_RK, -1.25490866802_RK, -1.25356410517_RK, -1.25222180165_RK, &
142 : -1.25088174749_RK, -1.24954393277_RK, -1.24820834764_RK, -1.24687498231_RK, &
143 : -1.24554382707_RK, -1.24421487225_RK, -1.24288810826_RK, -1.24156352558_RK, &
144 : -1.24024111474_RK, -1.23892086632_RK, -1.23760277098_RK, -1.23628681945_RK, &
145 : -1.23497300248_RK, -1.23366131092_RK, -1.23235173565_RK, -1.23104426764_RK, &
146 : -1.22973889789_RK, -1.22843561746_RK, -1.22713441748_RK, -1.22583528914_RK, &
147 : -1.22453822366_RK, -1.22324321234_RK, -1.22195024653_RK, -1.22065931762_RK, &
148 : -1.21937041707_RK, -1.2180835364_RK, -1.21679866716_RK, -1.21551580096_RK, &
149 : -1.21423492948_RK, -1.21295604444_RK, -1.21167913759_RK, -1.21040420078_RK, &
150 : -1.20913122586_RK, -1.20786020475_RK, -1.20659112944_RK, -1.20532399194_RK, &
151 : -1.20405878432_RK, -1.2027954987_RK, -1.20153412724_RK, -1.20027466216_RK, &
152 : -1.19901709572_RK, -1.19776142023_RK, -1.19650762804_RK, -1.19525571156_RK, &
153 : -1.19400566322_RK, -1.19275747553_RK, -1.19151114101_RK, -1.19026665225_RK, &
154 : -1.18902400188_RK, -1.18778318256_RK, -1.18654418701_RK, -1.18530700798_RK, &
155 : -1.18407163828_RK, -1.18283807074_RK, -1.18160629825_RK, -1.18037631374_RK, &
156 : -1.17914811017_RK, -1.17792168055_RK, -1.17669701793_RK, -1.1754741154_RK, &
157 : -1.17425296609_RK, -1.17303356317_RK, -1.17181589985_RK, -1.17059996938_RK, &
158 : -1.16938576505_RK, -1.16817328018_RK, -1.16696250814_RK, -1.16575344233_RK, &
159 : -1.1645460762_RK, -1.16334040321_RK, -1.16213641689_RK, -1.16093411079_RK, &
160 : -1.1597334785_RK, -1.15853451364_RK, -1.15733720988_RK, -1.1561415609_RK, &
161 : -1.15494756045_RK, -1.1537552023_RK, -1.15256448023_RK, -1.1513753881_RK, &
162 : -1.15018791978_RK, -1.14900206916_RK, -1.1478178302_RK, -1.14663519686_RK, &
163 : -1.14545416315_RK, -1.14427472312_RK, -1.14309687083_RK, -1.14192060039_RK, &
164 : -1.14074590595_RK, -1.13957278166_RK, -1.13840122174_RK, -1.13723122041_RK, &
165 : -1.13606277195_RK, -1.13489587064_RK, -1.13373051083_RK, -1.13256668686_RK, &
166 : -1.13140439313_RK, -1.13024362405_RK, -1.12908437408_RK, -1.12792663769_RK, &
167 : -1.1267704094_RK, -1.12561568374_RK, -1.12446245528_RK, -1.12331071862_RK, &
168 : -1.12216046839_RK, -1.12101169923_RK, -1.11986440583_RK, -1.1187185829_RK, &
169 : -1.11757422519_RK, -1.11643132745_RK, -1.11528988448_RK, -1.11414989111_RK, &
170 : -1.11301134218_RK, -1.11187423257_RK, -1.11073855719_RK, -1.10960431095_RK, &
171 : -1.10847148882_RK, -1.10734008578_RK, -1.10621009684_RK, -1.10508151703_RK, &
172 : -1.10395434141_RK, -1.10282856507_RK, -1.10170418311_RK, -1.10058119068_RK, &
173 : -1.09945958293_RK, -1.09833935506_RK, -1.09722050226_RK, -1.09610301977_RK, &
174 : -1.09498690286_RK, -1.09387214681_RK, -1.09275874692_RK, -1.09164669853_RK, &
175 : -1.09053599698_RK, -1.08942663766_RK, -1.08831861598_RK, -1.08721192734_RK, &
176 : -1.08610656721_RK, -1.08500253104_RK, -1.08389981434_RK, -1.08279841262_RK, &
177 : -1.08169832142_RK, -1.0805995363_RK, -1.07950205283_RK, -1.07840586663_RK, &
178 : -1.07731097332_RK, -1.07621736855_RK, -1.07512504799_RK, -1.07403400732_RK, &
179 : -1.07294424226_RK, -1.07185574854_RK, -1.07076852192_RK, -1.06968255816_RK, &
180 : -1.06859785307_RK, -1.06751440246_RK, -1.06643220217_RK, -1.06535124805_RK, &
181 : -1.06427153597_RK, -1.06319306184_RK, -1.06211582157_RK, -1.06103981109_RK, &
182 : -1.05996502636_RK, -1.05889146336_RK, -1.05781911808_RK, -1.05674798653_RK, &
183 : -1.05567806475_RK, -1.05460934878_RK, -1.0535418347_RK, -1.0524755186_RK, &
184 : -1.05141039657_RK, -1.05034646476_RK, -1.04928371929_RK, -1.04822215635_RK, &
185 : -1.04716177209_RK, -1.04610256273_RK, -1.04504452448_RK, -1.04398765357_RK, &
186 : -1.04293194626_RK, -1.04187739881_RK, -1.04082400752_RK, -1.03977176868_RK, &
187 : -1.03872067861_RK, -1.03767073366_RK, -1.03662193018_RK, -1.03557426455_RK, &
188 : -1.03452773314_RK, -1.03348233237_RK, -1.03243805866_RK, -1.03139490845_RK, &
189 : -1.03035287819_RK, -1.02931196435_RK, -1.02827216342_RK, -1.02723347191_RK, &
190 : -1.02619588633_RK, -1.02515940322_RK, -1.02412401912_RK, -1.02308973062_RK, &
191 : -1.02205653428_RK, -1.02102442671_RK, -1.01999340452_RK, -1.01896346433_RK, &
192 : -1.01793460279_RK, -1.01690681657_RK, -1.01588010232_RK, -1.01485445675_RK, &
193 : -1.01382987655_RK, -1.01280635844_RK, -1.01178389916_RK, -1.01076249545_RK, &
194 : -1.00974214407_RK, -1.0087228418_RK, -1.00770458543_RK, -1.00668737176_RK, &
195 : -1.00567119762_RK, -1.00465605983_RK, -1.00364195524_RK, -1.00262888071_RK, &
196 : -1.00161683312_RK, -1.00060580935_RK, -0.999595806306_RK, -0.9985868209_RK, &
197 : -0.997578850062_RK, -0.996571890733_RK, -0.995565939868_RK, -0.994560994436_RK, &
198 : -0.993557051418_RK, -0.992554107808_RK, -0.991552160613_RK, -0.990551206854_RK, &
199 : -0.989551243564_RK, -0.988552267788_RK, -0.987554276585_RK, -0.986557267027_RK, &
200 : -0.985561236196_RK, -0.984566181188_RK, -0.983572099113_RK, -0.982578987091_RK, &
201 : -0.981586842254_RK, -0.980595661749_RK, -0.979605442731_RK, -0.978616182371_RK, &
202 : -0.977627877849_RK, -0.976640526359_RK, -0.975654125105_RK, -0.974668671305_RK, &
203 : -0.973684162186_RK, -0.972700594988_RK, -0.971717966963_RK, -0.970736275374_RK, &
204 : -0.969755517495_RK, -0.968775690612_RK, -0.967796792022_RK, -0.966818819033_RK, &
205 : -0.965841768964_RK, -0.964865639146_RK, -0.963890426921_RK, -0.962916129641_RK, &
206 : -0.961942744669_RK, -0.960970269379_RK, -0.959998701157_RK, -0.959028037398_RK, &
207 : -0.958058275508_RK, -0.957089412906_RK, -0.956121447017_RK, -0.955154375281_RK, &
208 : -0.954188195145_RK, -0.953222904069_RK, -0.952258499521_RK, -0.951294978982_RK, &
209 : -0.95033233994_RK, -0.949370579895_RK, -0.948409696358_RK, -0.947449686847_RK, &
210 : -0.946490548893_RK, -0.945532280036_RK, -0.944574877824_RK, -0.943618339818_RK, &
211 : -0.942662663587_RK, -0.941707846709_RK, -0.940753886774_RK, -0.939800781378_RK, &
212 : -0.93884852813_RK, -0.937897124647_RK, -0.936946568555_RK, -0.935996857491_RK, &
213 : -0.9350479891_RK, -0.934099961035_RK, -0.933152770962_RK, -0.932206416553_RK, &
214 : -0.931260895491_RK, -0.930316205466_RK, -0.929372344179_RK, -0.928429309338_RK, &
215 : -0.927487098664_RK, -0.926545709881_RK, -0.925605140727_RK, -0.924665388946_RK, &
216 : -0.923726452292_RK, -0.922788328527_RK, -0.921851015421_RK, -0.920914510754_RK, &
217 : -0.919978812315_RK, -0.919043917899_RK, -0.918109825313_RK, -0.917176532369_RK, &
218 : -0.916244036888_RK, -0.915312336703_RK, -0.91438142965_RK, -0.913451313577_RK, &
219 : -0.912521986339_RK, -0.911593445799_RK, -0.910665689828_RK, -0.909738716305_RK, &
220 : -0.908812523118_RK, -0.907887108163_RK, -0.906962469342_RK, -0.906038604567_RK, &
221 : -0.905115511758_RK, -0.90419318884_RK, -0.90327163375_RK, -0.902350844428_RK, &
222 : -0.901430818827_RK, -0.900511554903_RK, -0.899593050622_RK, -0.898675303958_RK, &
223 : -0.897758312891_RK, -0.896842075409_RK, -0.895926589508_RK, -0.895011853191_RK, &
224 : -0.894097864469_RK, -0.893184621359_RK, -0.892272121887_RK, -0.891360364086_RK, &
225 : -0.890449345995_RK, -0.889539065661_RK, -0.888629521138_RK, -0.887720710488_RK, &
226 : -0.886812631779_RK, -0.885905283087_RK, -0.884998662493_RK, -0.884092768089_RK, &
227 : -0.883187597969_RK, -0.882283150238_RK, -0.881379423006_RK, -0.88047641439_RK, &
228 : -0.879574122514_RK, -0.878672545509_RK, -0.877771681512_RK, -0.876871528668_RK, &
229 : -0.875972085128_RK, -0.875073349049_RK, -0.874175318595_RK, -0.873277991937_RK, &
230 : -0.872381367254_RK, -0.871485442727_RK, -0.870590216549_RK, -0.869695686916_RK, &
231 : -0.868801852031_RK, -0.867908710104_RK, -0.86701625935_RK, -0.866124497993_RK, &
232 : -0.865233424261_RK, -0.864343036389_RK, -0.863453332618_RK, -0.862564311196_RK, &
233 : -0.861675970376_RK, -0.860788308418_RK, -0.859901323588_RK, -0.859015014157_RK, &
234 : -0.858129378404_RK, -0.857244414613_RK, -0.856360121074_RK, -0.855476496083_RK, &
235 : -0.854593537942_RK, -0.853711244958_RK, -0.852829615446_RK, -0.851948647726_RK, &
236 : -0.851068340122_RK, -0.850188690965_RK, -0.849309698594_RK, -0.84843136135_RK, &
237 : -0.847553677583_RK, -0.846676645646_RK, -0.845800263899_RK, -0.844924530708_RK, &
238 : -0.844049444444_RK, -0.843175003483_RK, -0.842301206208_RK, -0.841428051007_RK, &
239 : -0.840555536273_RK, -0.839683660404_RK, -0.838812421805_RK, -0.837941818885_RK, &
240 : -0.83707185006_RK, -0.83620251375_RK, -0.83533380838_RK, -0.834465732382_RK, &
241 : -0.833598284192_RK, -0.832731462252_RK, -0.831865265009_RK, -0.830999690914_RK, &
242 : -0.830134738426_RK, -0.829270406006_RK, -0.828406692123_RK, -0.827543595248_RK, &
243 : -0.826681113861_RK, -0.825819246443_RK, -0.824957991484_RK, -0.824097347476_RK, &
244 : -0.823237312917_RK, -0.82237788631_RK, -0.821519066163_RK, -0.82066085099_RK, &
245 : -0.819803239307_RK, -0.818946229639_RK, -0.818089820512_RK, -0.817234010459_RK, &
246 : -0.816378798017_RK, -0.815524181729_RK, -0.814670160142_RK, -0.813816731806_RK, &
247 : -0.812963895279_RK, -0.812111649122_RK, -0.8112599919_RK, -0.810408922185_RK, &
248 : -0.80955843855_RK, -0.808708539576_RK, -0.807859223848_RK, -0.807010489955_RK, &
249 : -0.806162336489_RK, -0.805314762049_RK, -0.804467765238_RK, -0.803621344663_RK, &
250 : -0.802775498936_RK, -0.801930226672_RK, -0.801085526493_RK, -0.800241397023_RK, &
251 : -0.799397836891_RK, -0.798554844732_RK, -0.797712419183_RK, -0.796870558888_RK, &
252 : -0.796029262492_RK, -0.795188528648_RK, -0.79434835601_RK, -0.793508743238_RK, &
253 : -0.792669688996_RK, -0.791831191953_RK, -0.790993250781_RK, -0.790155864155_RK, &
254 : -0.789319030758_RK, -0.788482749274_RK, -0.787647018393_RK, -0.786811836806_RK, &
255 : -0.785977203212_RK, -0.785143116312_RK, -0.784309574812_RK, -0.783476577421_RK, &
256 : -0.782644122852_RK, -0.781812209823_RK, -0.780980837056_RK, -0.780150003277_RK, &
257 : -0.779319707213_RK, -0.7784899476_RK, -0.777660723175_RK, -0.776832032678_RK, &
258 : -0.776003874855_RK, -0.775176248455_RK, -0.774349152231_RK, -0.773522584939_RK, &
259 : -0.772696545341_RK, -0.7718710322_RK, -0.771046044284_RK, -0.770221580367_RK, &
260 : -0.769397639223_RK, -0.768574219631_RK, -0.767751320376_RK, -0.766928940243_RK, &
261 : -0.766107078024_RK, -0.765285732513_RK, -0.764464902507_RK, -0.763644586809_RK, &
262 : -0.762824784223_RK, -0.762005493558_RK, -0.761186713627_RK, -0.760368443246_RK, &
263 : -0.759550681234_RK, -0.758733426414_RK, -0.757916677614_RK, -0.757100433662_RK, &
264 : -0.756284693394_RK, -0.755469455646_RK, -0.754654719259_RK, -0.753840483077_RK, &
265 : -0.753026745948_RK, -0.752213506722_RK, -0.751400764255_RK, -0.750588517404_RK, &
266 : -0.74977676503_RK, -0.748965505998_RK, -0.748154739176_RK, -0.747344463435_RK, &
267 : -0.746534677651_RK, -0.7457253807_RK, -0.744916571465_RK, -0.74410824883_RK, &
268 : -0.743300411682_RK, -0.742493058914_RK, -0.741686189419_RK, -0.740879802096_RK, &
269 : -0.740073895844_RK, -0.739268469569_RK, -0.738463522177_RK, -0.737659052579_RK, &
270 : -0.736855059689_RK, -0.736051542423_RK, -0.735248499702_RK, -0.734445930447_RK, &
271 : -0.733643833587_RK, -0.73284220805_RK, -0.732041052768_RK, -0.731240366677_RK, &
272 : -0.730440148716_RK, -0.729640397826_RK, -0.728841112951_RK, -0.728042293041_RK, &
273 : -0.727243937044_RK, -0.726446043916_RK, -0.725648612612_RK, -0.724851642093_RK, &
274 : -0.724055131321_RK, -0.723259079262_RK, -0.722463484884_RK, -0.721668347159_RK, &
275 : -0.720873665062_RK, -0.720079437569_RK, -0.719285663661_RK, -0.718492342322_RK, &
276 : -0.717699472536_RK, -0.716907053294_RK, -0.716115083586_RK, -0.715323562408_RK, &
277 : -0.714532488756_RK, -0.713741861631_RK, -0.712951680037_RK, -0.712161942978_RK, &
278 : -0.711372649463_RK, -0.710583798504_RK, -0.709795389115_RK, -0.709007420313_RK, &
279 : -0.708219891118_RK, -0.707432800551_RK, -0.706646147638_RK, -0.705859931406_RK, &
280 : -0.705074150887_RK, -0.704288805113_RK, -0.70350389312_RK, -0.702719413947_RK, &
281 : -0.701935366634_RK, -0.701151750226_RK, -0.700368563769_RK, -0.699585806312_RK, &
282 : -0.698803476906_RK, -0.698021574607_RK, -0.69724009847_RK, -0.696459047555_RK, &
283 : -0.695678420925_RK, -0.694898217643_RK, -0.694118436777_RK, -0.693339077397_RK, &
284 : -0.692560138575_RK, -0.691781619384_RK, -0.691003518904_RK, -0.690225836212_RK, &
285 : -0.689448570392_RK, -0.688671720529_RK, -0.687895285708_RK, -0.687119265021_RK, &
286 : -0.686343657558_RK, -0.685568462415_RK, -0.684793678689_RK, -0.684019305478_RK, &
287 : -0.683245341885_RK, -0.682471787013_RK, -0.68169863997_RK, -0.680925899864_RK, &
288 : -0.680153565806_RK, -0.679381636911_RK, -0.678610112294_RK, -0.677838991074_RK, &
289 : -0.677068272372_RK, -0.67629795531_RK, -0.675528039013_RK, -0.674758522611_RK, &
290 : -0.673989405232_RK, -0.67322068601_RK, -0.672452364078_RK, -0.671684438573_RK, &
291 : -0.670916908635_RK, -0.670149773405_RK, -0.669383032026_RK, -0.668616683646_RK, &
292 : -0.66785072741_RK, -0.667085162471_RK, -0.666319987981_RK, -0.665555203094_RK, &
293 : -0.664790806967_RK, -0.66402679876_RK, -0.663263177633_RK, -0.662499942752_RK, &
294 : -0.66173709328_RK, -0.660974628386_RK, -0.66021254724_RK, -0.659450849015_RK, &
295 : -0.658689532883_RK, -0.657928598023_RK, -0.657168043612_RK, -0.656407868831_RK, &
296 : -0.655648072862_RK, -0.654888654892_RK, -0.654129614105_RK, -0.653370949693_RK, &
297 : -0.652612660844_RK, -0.651854746754_RK, -0.651097206616_RK, -0.650340039629_RK, &
298 : -0.64958324499_RK, -0.648826821903_RK, -0.648070769569_RK, -0.647315087195_RK, &
299 : -0.646559773988_RK, -0.645804829157_RK, -0.645050251913_RK, -0.64429604147_RK, &
300 : -0.643542197043_RK, -0.642788717849_RK, -0.642035603108_RK, -0.641282852041_RK, &
301 : -0.640530463871_RK, -0.639778437823_RK, -0.639026773124_RK, -0.638275469004_RK, &
302 : -0.637524524692_RK, -0.636773939423_RK, -0.636023712429_RK, -0.63527384295_RK, &
303 : -0.634524330221_RK, -0.633775173485_RK, -0.633026371984_RK, -0.632277924961_RK, &
304 : -0.631529831662_RK, -0.630782091336_RK, -0.630034703232_RK, -0.629287666601_RK, &
305 : -0.628540980698_RK, -0.627794644778_RK, -0.627048658096_RK, -0.626303019913_RK, &
306 : -0.625557729489_RK, -0.624812786087_RK, -0.62406818897_RK, -0.623323937406_RK ]
307 :
308 : real(RK), parameter :: VEC_X_2(1001:2000) = [ &
309 : -0.622580030661_RK, -0.621836468005_RK, -0.621093248711_RK, -0.62035037205_RK, &
310 : -0.619607837299_RK, -0.618865643733_RK, -0.618123790632_RK, -0.617382277275_RK, &
311 : -0.616641102944_RK, -0.615900266923_RK, -0.615159768498_RK, -0.614419606955_RK, &
312 : -0.613679781584_RK, -0.612940291674_RK, -0.612201136518_RK, -0.61146231541_RK, &
313 : -0.610723827646_RK, -0.609985672522_RK, -0.609247849338_RK, -0.608510357395_RK, &
314 : -0.607773195994_RK, -0.607036364439_RK, -0.606299862036_RK, -0.605563688093_RK, &
315 : -0.604827841918_RK, -0.604092322821_RK, -0.603357130115_RK, -0.602622263113_RK, &
316 : -0.601887721131_RK, -0.601153503486_RK, -0.600419609496_RK, -0.599686038481_RK, &
317 : -0.598952789763_RK, -0.598219862666_RK, -0.597487256514_RK, -0.596754970634_RK, &
318 : -0.596023004354_RK, -0.595291357003_RK, -0.594560027913_RK, -0.593829016416_RK, &
319 : -0.593098321847_RK, -0.592367943541_RK, -0.591637880836_RK, -0.590908133071_RK, &
320 : -0.590178699585_RK, -0.589449579722_RK, -0.588720772824_RK, -0.587992278236_RK, &
321 : -0.587264095305_RK, -0.586536223378_RK, -0.585808661806_RK, -0.585081409939_RK, &
322 : -0.584354467129_RK, -0.58362783273_RK, -0.582901506099_RK, -0.58217548659_RK, &
323 : -0.581449773564_RK, -0.580724366379_RK, -0.579999264397_RK, -0.57927446698_RK, &
324 : -0.578549973492_RK, -0.5778257833_RK, -0.577101895769_RK, -0.576378310269_RK, &
325 : -0.575655026169_RK, -0.57493204284_RK, -0.574209359655_RK, -0.573486975988_RK, &
326 : -0.572764891214_RK, -0.57204310471_RK, -0.571321615855_RK, -0.570600424028_RK, &
327 : -0.56987952861_RK, -0.569158928984_RK, -0.568438624533_RK, -0.567718614641_RK, &
328 : -0.566998898697_RK, -0.566279476088_RK, -0.565560346202_RK, -0.56484150843_RK, &
329 : -0.564122962165_RK, -0.563404706799_RK, -0.562686741727_RK, -0.561969066345_RK, &
330 : -0.56125168005_RK, -0.560534582241_RK, -0.559817772317_RK, -0.559101249681_RK, &
331 : -0.558385013733_RK, -0.557669063878_RK, -0.556953399521_RK, -0.556238020069_RK, &
332 : -0.555522924929_RK, -0.55480811351_RK, -0.554093585223_RK, -0.553379339478_RK, &
333 : -0.552665375689_RK, -0.551951693269_RK, -0.551238291635_RK, -0.550525170202_RK, &
334 : -0.549812328389_RK, -0.549099765614_RK, -0.548387481299_RK, -0.547675474863_RK, &
335 : -0.546963745731_RK, -0.546252293327_RK, -0.545541117075_RK, -0.544830216402_RK, &
336 : -0.544119590737_RK, -0.543409239507_RK, -0.542699162143_RK, -0.541989358077_RK, &
337 : -0.541279826741_RK, -0.540570567568_RK, -0.539861579995_RK, -0.539152863456_RK, &
338 : -0.53844441739_RK, -0.537736241235_RK, -0.537028334431_RK, -0.536320696418_RK, &
339 : -0.535613326639_RK, -0.534906224537_RK, -0.534199389557_RK, -0.533492821143_RK, &
340 : -0.532786518743_RK, -0.532080481805_RK, -0.531374709778_RK, -0.530669202111_RK, &
341 : -0.529963958257_RK, -0.529258977668_RK, -0.528554259797_RK, -0.5278498041_RK, &
342 : -0.527145610031_RK, -0.526441677048_RK, -0.52573800461_RK, -0.525034592175_RK, &
343 : -0.524331439204_RK, -0.523628545158_RK, -0.5229259095_RK, -0.522223531693_RK, &
344 : -0.521521411203_RK, -0.520819547494_RK, -0.520117940035_RK, -0.519416588293_RK, &
345 : -0.518715491738_RK, -0.518014649839_RK, -0.517314062067_RK, -0.516613727896_RK, &
346 : -0.515913646798_RK, -0.515213818248_RK, -0.514514241722_RK, -0.513814916696_RK, &
347 : -0.513115842648_RK, -0.512417019057_RK, -0.511718445402_RK, -0.511020121164_RK, &
348 : -0.510322045826_RK, -0.509624218869_RK, -0.508926639778_RK, -0.508229308038_RK, &
349 : -0.507532223135_RK, -0.506835384556_RK, -0.506138791788_RK, -0.505442444322_RK, &
350 : -0.504746341647_RK, -0.504050483254_RK, -0.503354868635_RK, -0.502659497283_RK, &
351 : -0.501964368692_RK, -0.501269482359_RK, -0.500574837777_RK, -0.499880434446_RK, &
352 : -0.499186271862_RK, -0.498492349525_RK, -0.497798666935_RK, -0.497105223592_RK, &
353 : -0.496412018999_RK, -0.49571905266_RK, -0.495026324076_RK, -0.494333832755_RK, &
354 : -0.493641578201_RK, -0.492949559921_RK, -0.492257777423_RK, -0.491566230217_RK, &
355 : -0.49087491781_RK, -0.490183839715_RK, -0.489492995442_RK, -0.488802384505_RK, &
356 : -0.488112006416_RK, -0.487421860691_RK, -0.486731946843_RK, -0.48604226439_RK, &
357 : -0.48535281285_RK, -0.484663591739_RK, -0.483974600576_RK, -0.483285838883_RK, &
358 : -0.48259730618_RK, -0.481909001988_RK, -0.48122092583_RK, -0.480533077229_RK, &
359 : -0.479845455711_RK, -0.479158060801_RK, -0.478470892024_RK, -0.477783948909_RK, &
360 : -0.477097230982_RK, -0.476410737773_RK, -0.475724468813_RK, -0.47503842363_RK, &
361 : -0.474352601759_RK, -0.473667002729_RK, -0.472981626076_RK, -0.472296471333_RK, &
362 : -0.471611538035_RK, -0.470926825718_RK, -0.470242333919_RK, -0.469558062177_RK, &
363 : -0.468874010028_RK, -0.468190177013_RK, -0.467506562672_RK, -0.466823166546_RK, &
364 : -0.466139988176_RK, -0.465457027107_RK, -0.46477428288_RK, -0.464091755042_RK, &
365 : -0.463409443136_RK, -0.46272734671_RK, -0.46204546531_RK, -0.461363798483_RK, &
366 : -0.460682345779_RK, -0.460001106748_RK, -0.459320080938_RK, -0.458639267901_RK, &
367 : -0.45795866719_RK, -0.457278278357_RK, -0.456598100954_RK, -0.455918134538_RK, &
368 : -0.455238378662_RK, -0.454558832883_RK, -0.453879496757_RK, -0.453200369842_RK, &
369 : -0.452521451697_RK, -0.45184274188_RK, -0.45116423995_RK, -0.45048594547_RK, &
370 : -0.449807858_RK, -0.449129977103_RK, -0.448452302341_RK, -0.447774833279_RK, &
371 : -0.44709756948_RK, -0.446420510511_RK, -0.445743655937_RK, -0.445067005325_RK, &
372 : -0.444390558244_RK, -0.44371431426_RK, -0.443038272944_RK, -0.442362433866_RK, &
373 : -0.441686796595_RK, -0.441011360704_RK, -0.440336125765_RK, -0.43966109135_RK, &
374 : -0.438986257034_RK, -0.43831162239_RK, -0.437637186994_RK, -0.436962950421_RK, &
375 : -0.436288912249_RK, -0.435615072055_RK, -0.434941429417_RK, -0.434267983913_RK, &
376 : -0.433594735123_RK, -0.432921682628_RK, -0.432248826008_RK, -0.431576164846_RK, &
377 : -0.430903698722_RK, -0.430231427222_RK, -0.429559349928_RK, -0.428887466426_RK, &
378 : -0.4282157763_RK, -0.427544279136_RK, -0.426872974521_RK, -0.426201862043_RK, &
379 : -0.42553094129_RK, -0.42486021185_RK, -0.424189673313_RK, -0.423519325269_RK, &
380 : -0.422849167309_RK, -0.422179199024_RK, -0.421509420007_RK, -0.420839829851_RK, &
381 : -0.420170428149_RK, -0.419501214496_RK, -0.418832188486_RK, -0.418163349716_RK, &
382 : -0.417494697781_RK, -0.416826232279_RK, -0.416157952806_RK, -0.415489858963_RK, &
383 : -0.414821950346_RK, -0.414154226557_RK, -0.413486687196_RK, -0.412819331863_RK, &
384 : -0.41215216016_RK, -0.41148517169_RK, -0.410818366055_RK, -0.410151742859_RK, &
385 : -0.409485301706_RK, -0.408819042201_RK, -0.40815296395_RK, -0.407487066559_RK, &
386 : -0.406821349634_RK, -0.406155812784_RK, -0.405490455615_RK, -0.404825277738_RK, &
387 : -0.404160278761_RK, -0.403495458294_RK, -0.402830815949_RK, -0.402166351335_RK, &
388 : -0.401502064066_RK, -0.400837953753_RK, -0.40017402001_RK, -0.399510262451_RK, &
389 : -0.398846680689_RK, -0.39818327434_RK, -0.397520043019_RK, -0.396856986343_RK, &
390 : -0.396194103929_RK, -0.395531395393_RK, -0.394868860354_RK, -0.394206498431_RK, &
391 : -0.393544309243_RK, -0.392882292409_RK, -0.392220447549_RK, -0.391558774287_RK, &
392 : -0.390897272241_RK, -0.390235941036_RK, -0.389574780293_RK, -0.388913789636_RK, &
393 : -0.38825296869_RK, -0.387592317078_RK, -0.386931834425_RK, -0.386271520359_RK, &
394 : -0.385611374504_RK, -0.384951396488_RK, -0.384291585938_RK, -0.383631942482_RK, &
395 : -0.382972465749_RK, -0.382313155368_RK, -0.381654010969_RK, -0.380995032182_RK, &
396 : -0.380336218639_RK, -0.379677569969_RK, -0.379019085806_RK, -0.378360765783_RK, &
397 : -0.377702609531_RK, -0.377044616686_RK, -0.37638678688_RK, -0.37572911975_RK, &
398 : -0.37507161493_RK, -0.374414272056_RK, -0.373757090765_RK, -0.373100070693_RK, &
399 : -0.372443211479_RK, -0.37178651276_RK, -0.371129974175_RK, -0.370473595364_RK, &
400 : -0.369817375965_RK, -0.369161315619_RK, -0.368505413967_RK, -0.36784967065_RK, &
401 : -0.367194085311_RK, -0.36653865759_RK, -0.365883387132_RK, -0.36522827358_RK, &
402 : -0.364573316578_RK, -0.36391851577_RK, -0.363263870801_RK, -0.362609381316_RK, &
403 : -0.361955046963_RK, -0.361300867386_RK, -0.360646842235_RK, -0.359992971155_RK, &
404 : -0.359339253795_RK, -0.358685689804_RK, -0.358032278831_RK, -0.357379020525_RK, &
405 : -0.356725914537_RK, -0.356072960516_RK, -0.355420158116_RK, -0.354767506986_RK, &
406 : -0.354115006779_RK, -0.353462657149_RK, -0.352810457747_RK, -0.352158408227_RK, &
407 : -0.351506508245_RK, -0.350854757453_RK, -0.350203155508_RK, -0.349551702065_RK, &
408 : -0.34890039678_RK, -0.348249239309_RK, -0.34759822931_RK, -0.346947366441_RK, &
409 : -0.346296650358_RK, -0.345646080722_RK, -0.344995657189_RK, -0.344345379421_RK, &
410 : -0.343695247078_RK, -0.343045259818_RK, -0.342395417304_RK, -0.341745719196_RK, &
411 : -0.341096165157_RK, -0.340446754849_RK, -0.339797487934_RK, -0.339148364076_RK, &
412 : -0.338499382938_RK, -0.337850544184_RK, -0.33720184748_RK, -0.33655329249_RK, &
413 : -0.335904878879_RK, -0.335256606314_RK, -0.334608474462_RK, -0.333960482988_RK, &
414 : -0.33331263156_RK, -0.332664919846_RK, -0.332017347514_RK, -0.331369914234_RK, &
415 : -0.330722619673_RK, -0.330075463502_RK, -0.329428445391_RK, -0.328781565009_RK, &
416 : -0.328134822029_RK, -0.32748821612_RK, -0.326841746956_RK, -0.326195414208_RK, &
417 : -0.325549217549_RK, -0.324903156652_RK, -0.32425723119_RK, -0.323611440838_RK, &
418 : -0.322965785269_RK, -0.322320264159_RK, -0.321674877183_RK, -0.321029624016_RK, &
419 : -0.320384504335_RK, -0.319739517815_RK, -0.319094664135_RK, -0.318449942971_RK, &
420 : -0.317805354_RK, -0.317160896902_RK, -0.316516571355_RK, -0.315872377037_RK, &
421 : -0.315228313629_RK, -0.314584380809_RK, -0.313940578259_RK, -0.313296905659_RK, &
422 : -0.312653362689_RK, -0.312009949032_RK, -0.311366664369_RK, -0.310723508383_RK, &
423 : -0.310080480756_RK, -0.309437581171_RK, -0.308794809313_RK, -0.308152164863_RK, &
424 : -0.307509647508_RK, -0.306867256932_RK, -0.306224992819_RK, -0.305582854855_RK, &
425 : -0.304940842726_RK, -0.304298956119_RK, -0.303657194719_RK, -0.303015558215_RK, &
426 : -0.302374046293_RK, -0.301732658641_RK, -0.301091394947_RK, -0.3004502549_RK, &
427 : -0.29980923819_RK, -0.299168344504_RK, -0.298527573533_RK, -0.297886924968_RK, &
428 : -0.297246398498_RK, -0.296605993814_RK, -0.295965710609_RK, -0.295325548572_RK, &
429 : -0.294685507396_RK, -0.294045586775_RK, -0.293405786399_RK, -0.292766105963_RK, &
430 : -0.292126545159_RK, -0.291487103683_RK, -0.290847781227_RK, -0.290208577487_RK, &
431 : -0.289569492157_RK, -0.288930524932_RK, -0.288291675509_RK, -0.287652943584_RK, &
432 : -0.287014328852_RK, -0.28637583101_RK, -0.285737449756_RK, -0.285099184787_RK, &
433 : -0.2844610358_RK, -0.283823002495_RK, -0.283185084568_RK, -0.28254728172_RK, &
434 : -0.28190959365_RK, -0.281272020056_RK, -0.280634560639_RK, -0.279997215099_RK, &
435 : -0.279359983137_RK, -0.278722864454_RK, -0.278085858751_RK, -0.277448965729_RK, &
436 : -0.27681218509_RK, -0.276175516537_RK, -0.275538959773_RK, -0.2749025145_RK, &
437 : -0.274266180422_RK, -0.273629957242_RK, -0.272993844665_RK, -0.272357842394_RK, &
438 : -0.271721950134_RK, -0.271086167591_RK, -0.270450494469_RK, -0.269814930474_RK, &
439 : -0.269179475313_RK, -0.268544128691_RK, -0.267908890315_RK, -0.267273759892_RK, &
440 : -0.26663873713_RK, -0.266003821735_RK, -0.265369013416_RK, -0.264734311881_RK, &
441 : -0.264099716838_RK, -0.263465227997_RK, -0.262830845067_RK, -0.262196567757_RK, &
442 : -0.261562395776_RK, -0.260928328836_RK, -0.260294366646_RK, -0.259660508917_RK, &
443 : -0.25902675536_RK, -0.258393105687_RK, -0.25775955961_RK, -0.25712611684_RK, &
444 : -0.256492777089_RK, -0.25585954007_RK, -0.255226405497_RK, -0.254593373082_RK, &
445 : -0.253960442538_RK, -0.253327613581_RK, -0.252694885923_RK, -0.252062259279_RK, &
446 : -0.251429733364_RK, -0.250797307892_RK, -0.25016498258_RK, -0.249532757143_RK, &
447 : -0.248900631296_RK, -0.248268604756_RK, -0.24763667724_RK, -0.247004848463_RK, &
448 : -0.246373118143_RK, -0.245741485998_RK, -0.245109951745_RK, -0.244478515102_RK, &
449 : -0.243847175788_RK, -0.24321593352_RK, -0.242584788017_RK, -0.241953738999_RK, &
450 : -0.241322786185_RK, -0.240691929294_RK, -0.240061168047_RK, -0.239430502163_RK, &
451 : -0.238799931363_RK, -0.238169455368_RK, -0.237539073899_RK, -0.236908786677_RK, &
452 : -0.236278593424_RK, -0.235648493861_RK, -0.235018487711_RK, -0.234388574696_RK, &
453 : -0.233758754538_RK, -0.233129026961_RK, -0.232499391688_RK, -0.231869848442_RK, &
454 : -0.231240396947_RK, -0.230611036927_RK, -0.229981768106_RK, -0.229352590209_RK, &
455 : -0.22872350296_RK, -0.228094506085_RK, -0.227465599309_RK, -0.226836782357_RK, &
456 : -0.226208054955_RK, -0.22557941683_RK, -0.224950867708_RK, -0.224322407315_RK, &
457 : -0.223694035378_RK, -0.223065751624_RK, -0.222437555781_RK, -0.221809447576_RK, &
458 : -0.221181426737_RK, -0.220553492993_RK, -0.219925646071_RK, -0.219297885701_RK, &
459 : -0.21867021161_RK, -0.218042623529_RK, -0.217415121186_RK, -0.216787704312_RK, &
460 : -0.216160372636_RK, -0.215533125887_RK, -0.214905963798_RK, -0.214278886097_RK, &
461 : -0.213651892517_RK, -0.213024982787_RK, -0.212398156639_RK, -0.211771413806_RK, &
462 : -0.211144754018_RK, -0.210518177008_RK, -0.209891682507_RK, -0.209265270249_RK, &
463 : -0.208638939966_RK, -0.208012691392_RK, -0.207386524258_RK, -0.206760438299_RK, &
464 : -0.206134433249_RK, -0.20550850884_RK, -0.204882664808_RK, -0.204256900887_RK, &
465 : -0.203631216811_RK, -0.203005612315_RK, -0.202380087133_RK, -0.201754641003_RK, &
466 : -0.201129273658_RK, -0.200503984834_RK, -0.199878774268_RK, -0.199253641695_RK, &
467 : -0.198628586852_RK, -0.198003609476_RK, -0.197378709302_RK, -0.196753886069_RK, &
468 : -0.196129139514_RK, -0.195504469373_RK, -0.194879875385_RK, -0.194255357287_RK, &
469 : -0.193630914818_RK, -0.193006547715_RK, -0.192382255718_RK, -0.191758038565_RK, &
470 : -0.191133895995_RK, -0.190509827747_RK, -0.189885833561_RK, -0.189261913176_RK, &
471 : -0.188638066331_RK, -0.188014292767_RK, -0.187390592225_RK, -0.186766964443_RK, &
472 : -0.186143409164_RK, -0.185519926127_RK, -0.184896515074_RK, -0.184273175746_RK, &
473 : -0.183649907884_RK, -0.18302671123_RK, -0.182403585526_RK, -0.181780530513_RK, &
474 : -0.181157545935_RK, -0.180534631532_RK, -0.179911787049_RK, -0.179289012227_RK, &
475 : -0.17866630681_RK, -0.178043670541_RK, -0.177421103162_RK, -0.176798604419_RK, &
476 : -0.176176174053_RK, -0.175553811811_RK, -0.174931517434_RK, -0.174309290669_RK, &
477 : -0.173687131258_RK, -0.173065038948_RK, -0.172443013482_RK, -0.171821054607_RK, &
478 : -0.171199162066_RK, -0.170577335606_RK, -0.169955574973_RK, -0.169333879911_RK, &
479 : -0.168712250167_RK, -0.168090685487_RK, -0.167469185618_RK, -0.166847750305_RK, &
480 : -0.166226379296_RK, -0.165605072338_RK, -0.164983829177_RK, -0.164362649561_RK, &
481 : -0.163741533237_RK, -0.163120479952_RK, -0.162499489456_RK, -0.161878561494_RK, &
482 : -0.161257695816_RK, -0.16063689217_RK, -0.160016150304_RK, -0.159395469966_RK, &
483 : -0.158774850907_RK, -0.158154292873_RK, -0.157533795616_RK, -0.156913358883_RK, &
484 : -0.156292982424_RK, -0.15567266599_RK, -0.155052409329_RK, -0.154432212191_RK, &
485 : -0.153812074328_RK, -0.153191995488_RK, -0.152571975423_RK, -0.151952013883_RK, &
486 : -0.151332110619_RK, -0.150712265381_RK, -0.150092477921_RK, -0.14947274799_RK, &
487 : -0.148853075339_RK, -0.148233459721_RK, -0.147613900885_RK, -0.146994398586_RK, &
488 : -0.146374952573_RK, -0.1457555626_RK, -0.14513622842_RK, -0.144516949783_RK, &
489 : -0.143897726444_RK, -0.143278558154_RK, -0.142659444667_RK, -0.142040385735_RK, &
490 : -0.141421381113_RK, -0.140802430553_RK, -0.140183533808_RK, -0.139564690633_RK, &
491 : -0.138945900782_RK, -0.138327164007_RK, -0.137708480064_RK, -0.137089848707_RK, &
492 : -0.136471269689_RK, -0.135852742766_RK, -0.135234267692_RK, -0.134615844222_RK, &
493 : -0.13399747211_RK, -0.133379151113_RK, -0.132760880985_RK, -0.132142661481_RK, &
494 : -0.131524492358_RK, -0.13090637337_RK, -0.130288304273_RK, -0.129670284824_RK, &
495 : -0.129052314778_RK, -0.128434393892_RK, -0.127816521921_RK, -0.127198698623_RK, &
496 : -0.126580923754_RK, -0.12596319707_RK, -0.125345518329_RK, -0.124727887287_RK, &
497 : -0.124110303701_RK, -0.12349276733_RK, -0.122875277929_RK, -0.122257835256_RK, &
498 : -0.12164043907_RK, -0.121023089128_RK, -0.120405785187_RK, -0.119788527006_RK, &
499 : -0.119171314342_RK, -0.118554146955_RK, -0.117937024601_RK, -0.117319947041_RK, &
500 : -0.116702914032_RK, -0.116085925333_RK, -0.115468980703_RK, -0.1148520799_RK, &
501 : -0.114235222685_RK, -0.113618408815_RK, -0.113001638051_RK, -0.112384910152_RK, &
502 : -0.111768224876_RK, -0.111151581985_RK, -0.110534981238_RK, -0.109918422394_RK, &
503 : -0.109301905213_RK, -0.108685429456_RK, -0.108068994883_RK, -0.107452601254_RK, &
504 : -0.10683624833_RK, -0.10621993587_RK, -0.105603663637_RK, -0.104987431389_RK, &
505 : -0.10437123889_RK, -0.103755085898_RK, -0.103138972176_RK, -0.102522897484_RK, &
506 : -0.101906861584_RK, -0.101290864237_RK, -0.100674905205_RK, -0.100058984249_RK, &
507 : -0.0994431011311_RK, -0.0988272556129_RK, -0.0982114474563_RK, -0.0975956764232_RK, &
508 : -0.0969799422759_RK, -0.0963642447764_RK, -0.0957485836871_RK, -0.0951329587704_RK, &
509 : -0.0945173697886_RK, -0.0939018165045_RK, -0.0932862986806_RK, -0.0926708160798_RK, &
510 : -0.0920553684649_RK, -0.0914399555988_RK, -0.0908245772446_RK, -0.0902092331655_RK, &
511 : -0.0895939231246_RK, -0.0889786468852_RK, -0.0883634042109_RK, -0.0877481948651_RK, &
512 : -0.0871330186113_RK, -0.0865178752133_RK, -0.0859027644347_RK, -0.0852876860396_RK, &
513 : -0.0846726397917_RK, -0.0840576254552_RK, -0.0834426427941_RK, -0.0828276915726_RK, &
514 : -0.0822127715549_RK, -0.0815978825056_RK, -0.0809830241889_RK, -0.0803681963694_RK, &
515 : -0.0797533988117_RK, -0.0791386312806_RK, -0.0785238935406_RK, -0.0779091853568_RK, &
516 : -0.077294506494_RK, -0.0766798567172_RK, -0.0760652357914_RK, -0.0754506434819_RK, &
517 : -0.0748360795539_RK, -0.0742215437727_RK, -0.0736070359035_RK, -0.072992555712_RK, &
518 : -0.0723781029636_RK, -0.0717636774239_RK, -0.0711492788586_RK, -0.0705349070334_RK, &
519 : -0.0699205617141_RK, -0.0693062426667_RK, -0.068691949657_RK, -0.0680776824512_RK, &
520 : -0.0674634408152_RK, -0.0668492245152_RK, -0.0662350333175_RK, -0.0656208669883_RK, &
521 : -0.065006725294_RK, -0.0643926080011_RK, -0.0637785148759_RK, -0.0631644456851_RK, &
522 : -0.0625504001953_RK, -0.0619363781731_RK, -0.0613223793853_RK, -0.0607084035987_RK, &
523 : -0.0600944505801_RK, -0.0594805200964_RK, -0.0588666119147_RK, -0.058252725802_RK, &
524 : -0.0576388615253_RK, -0.0570250188518_RK, -0.0564111975488_RK, -0.0557973973834_RK, &
525 : -0.0551836181231_RK, -0.0545698595352_RK, -0.0539561213871_RK, -0.0533424034463_RK, &
526 : -0.0527287054803_RK, -0.0521150272568_RK, -0.0515013685434_RK, -0.0508877291078_RK, &
527 : -0.0502741087177_RK, -0.0496605071409_RK, -0.0490469241453_RK, -0.0484333594987_RK, &
528 : -0.0478198129692_RK, -0.0472062843246_RK, -0.0465927733331_RK, -0.0459792797628_RK, &
529 : -0.0453658033816_RK, -0.0447523439579_RK, -0.0441389012599_RK, -0.0435254750557_RK, &
530 : -0.0429120651138_RK, -0.0422986712024_RK, -0.04168529309_RK, -0.041071930545_RK, &
531 : -0.0404585833359_RK, -0.0398452512311_RK, -0.0392319339993_RK, -0.0386186314091_RK, &
532 : -0.0380053432289_RK, -0.0373920692277_RK, -0.0367788091739_RK, -0.0361655628365_RK, &
533 : -0.0355523299841_RK, -0.0349391103856_RK, -0.0343259038099_RK, -0.0337127100257_RK, &
534 : -0.0330995288021_RK, -0.032486359908_RK, -0.0318732031123_RK, -0.0312600581842_RK, &
535 : -0.0306469248925_RK, -0.0300338030065_RK, -0.0294206922952_RK, -0.0288075925277_RK, &
536 : -0.0281945034733_RK, -0.0275814249011_RK, -0.0269683565803_RK, -0.0263552982801_RK, &
537 : -0.0257422497699_RK, -0.025129210819_RK, -0.0245161811967_RK, -0.0239031606722_RK, &
538 : -0.0232901490151_RK, -0.0226771459946_RK, -0.0220641513803_RK, -0.0214511649415_RK, &
539 : -0.0208381864477_RK, -0.0202252156684_RK, -0.019612252373_RK, -0.0189992963312_RK, &
540 : -0.0183863473125_RK, -0.0177734050864_RK, -0.0171604694224_RK, -0.0165475400903_RK, &
541 : -0.0159346168595_RK, -0.0153216994998_RK, -0.0147087877807_RK, -0.0140958814719_RK, &
542 : -0.0134829803432_RK, -0.0128700841641_RK, -0.0122571927044_RK, -0.0116443057337_RK, &
543 : -0.0110314230219_RK, -0.0104185443386_RK, -0.00980566945358_RK, -0.00919279813659_RK, &
544 : -0.00857993015739_RK, -0.00796706528575_RK, -0.00735420329145_RK, -0.00674134394428_RK, &
545 : -0.00612848701402_RK, -0.00551563227049_RK, -0.00490277948347_RK, -0.00428992842278_RK, &
546 : -0.00367707885824_RK, -0.00306423055966_RK, -0.00245138329686_RK, -0.00183853683967_RK, &
547 : -0.00122569095791_RK, -0.000612845421414_RK, 0.0_RK, 0.000612845421414_RK, &
548 : 0.00122569095791_RK, 0.00183853683967_RK, 0.00245138329686_RK, 0.00306423055966_RK, &
549 : 0.00367707885824_RK, 0.00428992842278_RK, 0.00490277948347_RK, 0.00551563227049_RK, &
550 : 0.00612848701402_RK, 0.00674134394428_RK, 0.00735420329145_RK, 0.00796706528575_RK, &
551 : 0.00857993015739_RK, 0.00919279813659_RK, 0.00980566945358_RK, 0.0104185443386_RK, &
552 : 0.0110314230219_RK, 0.0116443057337_RK, 0.0122571927044_RK, 0.0128700841641_RK, &
553 : 0.0134829803432_RK, 0.0140958814719_RK, 0.0147087877807_RK, 0.0153216994998_RK, &
554 : 0.0159346168595_RK, 0.0165475400903_RK, 0.0171604694224_RK, 0.0177734050864_RK, &
555 : 0.0183863473125_RK, 0.0189992963312_RK, 0.019612252373_RK, 0.0202252156684_RK, &
556 : 0.0208381864477_RK, 0.0214511649415_RK, 0.0220641513803_RK, 0.0226771459946_RK, &
557 : 0.0232901490151_RK, 0.0239031606722_RK, 0.0245161811967_RK, 0.025129210819_RK, &
558 : 0.0257422497699_RK, 0.0263552982801_RK, 0.0269683565803_RK, 0.0275814249011_RK ]
559 :
560 : real(RK), parameter :: VEC_X_3(2001:3000) = [ &
561 : 0.0281945034733_RK, 0.0288075925277_RK, 0.0294206922952_RK, 0.0300338030065_RK, &
562 : 0.0306469248925_RK, 0.0312600581842_RK, 0.0318732031123_RK, 0.032486359908_RK, &
563 : 0.0330995288021_RK, 0.0337127100257_RK, 0.0343259038099_RK, 0.0349391103856_RK, &
564 : 0.0355523299841_RK, 0.0361655628365_RK, 0.0367788091739_RK, 0.0373920692277_RK, &
565 : 0.0380053432289_RK, 0.0386186314091_RK, 0.0392319339993_RK, 0.0398452512311_RK, &
566 : 0.0404585833359_RK, 0.041071930545_RK, 0.04168529309_RK, 0.0422986712024_RK, &
567 : 0.0429120651138_RK, 0.0435254750557_RK, 0.0441389012599_RK, 0.0447523439579_RK, &
568 : 0.0453658033816_RK, 0.0459792797628_RK, 0.0465927733331_RK, 0.0472062843246_RK, &
569 : 0.0478198129692_RK, 0.0484333594987_RK, 0.0490469241453_RK, 0.0496605071409_RK, &
570 : 0.0502741087177_RK, 0.0508877291078_RK, 0.0515013685434_RK, 0.0521150272568_RK, &
571 : 0.0527287054803_RK, 0.0533424034463_RK, 0.0539561213871_RK, 0.0545698595352_RK, &
572 : 0.0551836181231_RK, 0.0557973973834_RK, 0.0564111975488_RK, 0.0570250188518_RK, &
573 : 0.0576388615253_RK, 0.058252725802_RK, 0.0588666119147_RK, 0.0594805200964_RK, &
574 : 0.0600944505801_RK, 0.0607084035987_RK, 0.0613223793853_RK, 0.0619363781731_RK, &
575 : 0.0625504001953_RK, 0.0631644456851_RK, 0.0637785148759_RK, 0.0643926080011_RK, &
576 : 0.065006725294_RK, 0.0656208669883_RK, 0.0662350333175_RK, 0.0668492245152_RK, &
577 : 0.0674634408152_RK, 0.0680776824512_RK, 0.068691949657_RK, 0.0693062426667_RK, &
578 : 0.0699205617141_RK, 0.0705349070334_RK, 0.0711492788586_RK, 0.0717636774239_RK, &
579 : 0.0723781029636_RK, 0.072992555712_RK, 0.0736070359035_RK, 0.0742215437727_RK, &
580 : 0.0748360795539_RK, 0.0754506434819_RK, 0.0760652357914_RK, 0.0766798567172_RK, &
581 : 0.077294506494_RK, 0.0779091853568_RK, 0.0785238935406_RK, 0.0791386312806_RK, &
582 : 0.0797533988117_RK, 0.0803681963694_RK, 0.0809830241889_RK, 0.0815978825056_RK, &
583 : 0.0822127715549_RK, 0.0828276915726_RK, 0.0834426427941_RK, 0.0840576254552_RK, &
584 : 0.0846726397917_RK, 0.0852876860396_RK, 0.0859027644347_RK, 0.0865178752133_RK, &
585 : 0.0871330186113_RK, 0.0877481948651_RK, 0.0883634042109_RK, 0.0889786468852_RK, &
586 : 0.0895939231246_RK, 0.0902092331655_RK, 0.0908245772446_RK, 0.0914399555988_RK, &
587 : 0.0920553684649_RK, 0.0926708160798_RK, 0.0932862986806_RK, 0.0939018165045_RK, &
588 : 0.0945173697886_RK, 0.0951329587704_RK, 0.0957485836871_RK, 0.0963642447764_RK, &
589 : 0.0969799422759_RK, 0.0975956764232_RK, 0.0982114474563_RK, 0.0988272556129_RK, &
590 : 0.0994431011311_RK, 0.100058984249_RK, 0.100674905205_RK, 0.101290864237_RK, &
591 : 0.101906861584_RK, 0.102522897484_RK, 0.103138972176_RK, 0.103755085898_RK, &
592 : 0.10437123889_RK, 0.104987431389_RK, 0.105603663637_RK, 0.10621993587_RK, &
593 : 0.10683624833_RK, 0.107452601254_RK, 0.108068994883_RK, 0.108685429456_RK, &
594 : 0.109301905213_RK, 0.109918422394_RK, 0.110534981238_RK, 0.111151581985_RK, &
595 : 0.111768224876_RK, 0.112384910152_RK, 0.113001638051_RK, 0.113618408815_RK, &
596 : 0.114235222685_RK, 0.1148520799_RK, 0.115468980703_RK, 0.116085925333_RK, &
597 : 0.116702914032_RK, 0.117319947041_RK, 0.117937024601_RK, 0.118554146955_RK, &
598 : 0.119171314342_RK, 0.119788527006_RK, 0.120405785187_RK, 0.121023089128_RK, &
599 : 0.12164043907_RK, 0.122257835256_RK, 0.122875277929_RK, 0.12349276733_RK, &
600 : 0.124110303701_RK, 0.124727887287_RK, 0.125345518329_RK, 0.12596319707_RK, &
601 : 0.126580923754_RK, 0.127198698623_RK, 0.127816521921_RK, 0.128434393892_RK, &
602 : 0.129052314778_RK, 0.129670284824_RK, 0.130288304273_RK, 0.13090637337_RK, &
603 : 0.131524492358_RK, 0.132142661481_RK, 0.132760880985_RK, 0.133379151113_RK, &
604 : 0.13399747211_RK, 0.134615844222_RK, 0.135234267692_RK, 0.135852742766_RK, &
605 : 0.136471269689_RK, 0.137089848707_RK, 0.137708480064_RK, 0.138327164007_RK, &
606 : 0.138945900782_RK, 0.139564690633_RK, 0.140183533808_RK, 0.140802430553_RK, &
607 : 0.141421381113_RK, 0.142040385735_RK, 0.142659444667_RK, 0.143278558154_RK, &
608 : 0.143897726444_RK, 0.144516949783_RK, 0.14513622842_RK, 0.1457555626_RK, &
609 : 0.146374952573_RK, 0.146994398586_RK, 0.147613900885_RK, 0.148233459721_RK, &
610 : 0.148853075339_RK, 0.14947274799_RK, 0.150092477921_RK, 0.150712265381_RK, &
611 : 0.151332110619_RK, 0.151952013883_RK, 0.152571975423_RK, 0.153191995488_RK, &
612 : 0.153812074328_RK, 0.154432212191_RK, 0.155052409329_RK, 0.15567266599_RK, &
613 : 0.156292982424_RK, 0.156913358883_RK, 0.157533795616_RK, 0.158154292873_RK, &
614 : 0.158774850907_RK, 0.159395469966_RK, 0.160016150304_RK, 0.16063689217_RK, &
615 : 0.161257695816_RK, 0.161878561494_RK, 0.162499489456_RK, 0.163120479952_RK, &
616 : 0.163741533237_RK, 0.164362649561_RK, 0.164983829177_RK, 0.165605072338_RK, &
617 : 0.166226379296_RK, 0.166847750305_RK, 0.167469185618_RK, 0.168090685487_RK, &
618 : 0.168712250167_RK, 0.169333879911_RK, 0.169955574973_RK, 0.170577335606_RK, &
619 : 0.171199162066_RK, 0.171821054607_RK, 0.172443013482_RK, 0.173065038948_RK, &
620 : 0.173687131258_RK, 0.174309290669_RK, 0.174931517434_RK, 0.175553811811_RK, &
621 : 0.176176174053_RK, 0.176798604419_RK, 0.177421103162_RK, 0.178043670541_RK, &
622 : 0.17866630681_RK, 0.179289012227_RK, 0.179911787049_RK, 0.180534631532_RK, &
623 : 0.181157545935_RK, 0.181780530513_RK, 0.182403585526_RK, 0.18302671123_RK, &
624 : 0.183649907884_RK, 0.184273175746_RK, 0.184896515074_RK, 0.185519926127_RK, &
625 : 0.186143409164_RK, 0.186766964443_RK, 0.187390592225_RK, 0.188014292767_RK, &
626 : 0.188638066331_RK, 0.189261913176_RK, 0.189885833561_RK, 0.190509827747_RK, &
627 : 0.191133895995_RK, 0.191758038565_RK, 0.192382255718_RK, 0.193006547715_RK, &
628 : 0.193630914818_RK, 0.194255357287_RK, 0.194879875385_RK, 0.195504469373_RK, &
629 : 0.196129139514_RK, 0.196753886069_RK, 0.197378709302_RK, 0.198003609476_RK, &
630 : 0.198628586852_RK, 0.199253641695_RK, 0.199878774268_RK, 0.200503984834_RK, &
631 : 0.201129273658_RK, 0.201754641003_RK, 0.202380087133_RK, 0.203005612315_RK, &
632 : 0.203631216811_RK, 0.204256900887_RK, 0.204882664808_RK, 0.20550850884_RK, &
633 : 0.206134433249_RK, 0.206760438299_RK, 0.207386524258_RK, 0.208012691392_RK, &
634 : 0.208638939966_RK, 0.209265270249_RK, 0.209891682507_RK, 0.210518177008_RK, &
635 : 0.211144754018_RK, 0.211771413806_RK, 0.212398156639_RK, 0.213024982787_RK, &
636 : 0.213651892517_RK, 0.214278886097_RK, 0.214905963798_RK, 0.215533125887_RK, &
637 : 0.216160372636_RK, 0.216787704312_RK, 0.217415121186_RK, 0.218042623529_RK, &
638 : 0.21867021161_RK, 0.219297885701_RK, 0.219925646071_RK, 0.220553492993_RK, &
639 : 0.221181426737_RK, 0.221809447576_RK, 0.222437555781_RK, 0.223065751624_RK, &
640 : 0.223694035378_RK, 0.224322407315_RK, 0.224950867708_RK, 0.22557941683_RK, &
641 : 0.226208054955_RK, 0.226836782357_RK, 0.227465599309_RK, 0.228094506085_RK, &
642 : 0.22872350296_RK, 0.229352590209_RK, 0.229981768106_RK, 0.230611036927_RK, &
643 : 0.231240396947_RK, 0.231869848442_RK, 0.232499391688_RK, 0.233129026961_RK, &
644 : 0.233758754538_RK, 0.234388574696_RK, 0.235018487711_RK, 0.235648493861_RK, &
645 : 0.236278593424_RK, 0.236908786677_RK, 0.237539073899_RK, 0.238169455368_RK, &
646 : 0.238799931363_RK, 0.239430502163_RK, 0.240061168047_RK, 0.240691929294_RK, &
647 : 0.241322786185_RK, 0.241953738999_RK, 0.242584788017_RK, 0.24321593352_RK, &
648 : 0.243847175788_RK, 0.244478515102_RK, 0.245109951745_RK, 0.245741485998_RK, &
649 : 0.246373118143_RK, 0.247004848463_RK, 0.24763667724_RK, 0.248268604756_RK, &
650 : 0.248900631296_RK, 0.249532757143_RK, 0.25016498258_RK, 0.250797307892_RK, &
651 : 0.251429733364_RK, 0.252062259279_RK, 0.252694885923_RK, 0.253327613581_RK, &
652 : 0.253960442538_RK, 0.254593373082_RK, 0.255226405497_RK, 0.25585954007_RK, &
653 : 0.256492777089_RK, 0.25712611684_RK, 0.25775955961_RK, 0.258393105687_RK, &
654 : 0.25902675536_RK, 0.259660508917_RK, 0.260294366646_RK, 0.260928328836_RK, &
655 : 0.261562395776_RK, 0.262196567757_RK, 0.262830845067_RK, 0.263465227997_RK, &
656 : 0.264099716838_RK, 0.264734311881_RK, 0.265369013416_RK, 0.266003821735_RK, &
657 : 0.26663873713_RK, 0.267273759892_RK, 0.267908890315_RK, 0.268544128691_RK, &
658 : 0.269179475313_RK, 0.269814930474_RK, 0.270450494469_RK, 0.271086167591_RK, &
659 : 0.271721950134_RK, 0.272357842394_RK, 0.272993844665_RK, 0.273629957242_RK, &
660 : 0.274266180422_RK, 0.2749025145_RK, 0.275538959773_RK, 0.276175516537_RK, &
661 : 0.27681218509_RK, 0.277448965729_RK, 0.278085858751_RK, 0.278722864454_RK, &
662 : 0.279359983137_RK, 0.279997215099_RK, 0.280634560639_RK, 0.281272020056_RK, &
663 : 0.28190959365_RK, 0.28254728172_RK, 0.283185084568_RK, 0.283823002495_RK, &
664 : 0.2844610358_RK, 0.285099184787_RK, 0.285737449756_RK, 0.28637583101_RK, &
665 : 0.287014328852_RK, 0.287652943584_RK, 0.288291675509_RK, 0.288930524932_RK, &
666 : 0.289569492157_RK, 0.290208577487_RK, 0.290847781227_RK, 0.291487103683_RK, &
667 : 0.292126545159_RK, 0.292766105963_RK, 0.293405786399_RK, 0.294045586775_RK, &
668 : 0.294685507396_RK, 0.295325548572_RK, 0.295965710609_RK, 0.296605993814_RK, &
669 : 0.297246398498_RK, 0.297886924968_RK, 0.298527573533_RK, 0.299168344504_RK, &
670 : 0.29980923819_RK, 0.3004502549_RK, 0.301091394947_RK, 0.301732658641_RK, &
671 : 0.302374046293_RK, 0.303015558215_RK, 0.303657194719_RK, 0.304298956119_RK, &
672 : 0.304940842726_RK, 0.305582854855_RK, 0.306224992819_RK, 0.306867256932_RK, &
673 : 0.307509647508_RK, 0.308152164863_RK, 0.308794809313_RK, 0.309437581171_RK, &
674 : 0.310080480756_RK, 0.310723508383_RK, 0.311366664369_RK, 0.312009949032_RK, &
675 : 0.312653362689_RK, 0.313296905659_RK, 0.313940578259_RK, 0.314584380809_RK, &
676 : 0.315228313629_RK, 0.315872377037_RK, 0.316516571355_RK, 0.317160896902_RK, &
677 : 0.317805354_RK, 0.318449942971_RK, 0.319094664135_RK, 0.319739517815_RK, &
678 : 0.320384504335_RK, 0.321029624016_RK, 0.321674877183_RK, 0.322320264159_RK, &
679 : 0.322965785269_RK, 0.323611440838_RK, 0.32425723119_RK, 0.324903156652_RK, &
680 : 0.325549217549_RK, 0.326195414208_RK, 0.326841746956_RK, 0.32748821612_RK, &
681 : 0.328134822029_RK, 0.328781565009_RK, 0.329428445391_RK, 0.330075463502_RK, &
682 : 0.330722619673_RK, 0.331369914234_RK, 0.332017347514_RK, 0.332664919846_RK, &
683 : 0.33331263156_RK, 0.333960482988_RK, 0.334608474462_RK, 0.335256606314_RK, &
684 : 0.335904878879_RK, 0.33655329249_RK, 0.33720184748_RK, 0.337850544184_RK, &
685 : 0.338499382938_RK, 0.339148364076_RK, 0.339797487934_RK, 0.340446754849_RK, &
686 : 0.341096165157_RK, 0.341745719196_RK, 0.342395417304_RK, 0.343045259818_RK, &
687 : 0.343695247078_RK, 0.344345379421_RK, 0.344995657189_RK, 0.345646080722_RK, &
688 : 0.346296650358_RK, 0.346947366441_RK, 0.34759822931_RK, 0.348249239309_RK, &
689 : 0.34890039678_RK, 0.349551702065_RK, 0.350203155508_RK, 0.350854757453_RK, &
690 : 0.351506508245_RK, 0.352158408227_RK, 0.352810457747_RK, 0.353462657149_RK, &
691 : 0.354115006779_RK, 0.354767506986_RK, 0.355420158116_RK, 0.356072960516_RK, &
692 : 0.356725914537_RK, 0.357379020525_RK, 0.358032278831_RK, 0.358685689804_RK, &
693 : 0.359339253795_RK, 0.359992971155_RK, 0.360646842235_RK, 0.361300867386_RK, &
694 : 0.361955046963_RK, 0.362609381316_RK, 0.363263870801_RK, 0.36391851577_RK, &
695 : 0.364573316578_RK, 0.36522827358_RK, 0.365883387132_RK, 0.36653865759_RK, &
696 : 0.367194085311_RK, 0.36784967065_RK, 0.368505413967_RK, 0.369161315619_RK, &
697 : 0.369817375965_RK, 0.370473595364_RK, 0.371129974175_RK, 0.37178651276_RK, &
698 : 0.372443211479_RK, 0.373100070693_RK, 0.373757090765_RK, 0.374414272056_RK, &
699 : 0.37507161493_RK, 0.37572911975_RK, 0.37638678688_RK, 0.377044616686_RK, &
700 : 0.377702609531_RK, 0.378360765783_RK, 0.379019085806_RK, 0.379677569969_RK, &
701 : 0.380336218639_RK, 0.380995032182_RK, 0.381654010969_RK, 0.382313155368_RK, &
702 : 0.382972465749_RK, 0.383631942482_RK, 0.384291585938_RK, 0.384951396488_RK, &
703 : 0.385611374504_RK, 0.386271520359_RK, 0.386931834425_RK, 0.387592317078_RK, &
704 : 0.38825296869_RK, 0.388913789636_RK, 0.389574780293_RK, 0.390235941036_RK, &
705 : 0.390897272241_RK, 0.391558774287_RK, 0.392220447549_RK, 0.392882292409_RK, &
706 : 0.393544309243_RK, 0.394206498431_RK, 0.394868860354_RK, 0.395531395393_RK, &
707 : 0.396194103929_RK, 0.396856986343_RK, 0.397520043019_RK, 0.39818327434_RK, &
708 : 0.398846680689_RK, 0.399510262451_RK, 0.40017402001_RK, 0.400837953753_RK, &
709 : 0.401502064066_RK, 0.402166351335_RK, 0.402830815949_RK, 0.403495458294_RK, &
710 : 0.404160278761_RK, 0.404825277738_RK, 0.405490455615_RK, 0.406155812784_RK, &
711 : 0.406821349634_RK, 0.407487066559_RK, 0.40815296395_RK, 0.408819042201_RK, &
712 : 0.409485301706_RK, 0.410151742859_RK, 0.410818366055_RK, 0.41148517169_RK, &
713 : 0.41215216016_RK, 0.412819331863_RK, 0.413486687196_RK, 0.414154226557_RK, &
714 : 0.414821950346_RK, 0.415489858963_RK, 0.416157952806_RK, 0.416826232279_RK, &
715 : 0.417494697781_RK, 0.418163349716_RK, 0.418832188486_RK, 0.419501214496_RK, &
716 : 0.420170428149_RK, 0.420839829851_RK, 0.421509420007_RK, 0.422179199024_RK, &
717 : 0.422849167309_RK, 0.423519325269_RK, 0.424189673313_RK, 0.42486021185_RK, &
718 : 0.42553094129_RK, 0.426201862043_RK, 0.426872974521_RK, 0.427544279136_RK, &
719 : 0.4282157763_RK, 0.428887466426_RK, 0.429559349928_RK, 0.430231427222_RK, &
720 : 0.430903698722_RK, 0.431576164846_RK, 0.432248826008_RK, 0.432921682628_RK, &
721 : 0.433594735123_RK, 0.434267983913_RK, 0.434941429417_RK, 0.435615072055_RK, &
722 : 0.436288912249_RK, 0.436962950421_RK, 0.437637186994_RK, 0.43831162239_RK, &
723 : 0.438986257034_RK, 0.43966109135_RK, 0.440336125765_RK, 0.441011360704_RK, &
724 : 0.441686796595_RK, 0.442362433866_RK, 0.443038272944_RK, 0.44371431426_RK, &
725 : 0.444390558244_RK, 0.445067005325_RK, 0.445743655937_RK, 0.446420510511_RK, &
726 : 0.44709756948_RK, 0.447774833279_RK, 0.448452302341_RK, 0.449129977103_RK, &
727 : 0.449807858_RK, 0.45048594547_RK, 0.45116423995_RK, 0.45184274188_RK, &
728 : 0.452521451697_RK, 0.453200369842_RK, 0.453879496757_RK, 0.454558832883_RK, &
729 : 0.455238378662_RK, 0.455918134538_RK, 0.456598100954_RK, 0.457278278357_RK, &
730 : 0.45795866719_RK, 0.458639267901_RK, 0.459320080938_RK, 0.460001106748_RK, &
731 : 0.460682345779_RK, 0.461363798483_RK, 0.46204546531_RK, 0.46272734671_RK, &
732 : 0.463409443136_RK, 0.464091755042_RK, 0.46477428288_RK, 0.465457027107_RK, &
733 : 0.466139988176_RK, 0.466823166546_RK, 0.467506562672_RK, 0.468190177013_RK, &
734 : 0.468874010028_RK, 0.469558062177_RK, 0.470242333919_RK, 0.470926825718_RK, &
735 : 0.471611538035_RK, 0.472296471333_RK, 0.472981626076_RK, 0.473667002729_RK, &
736 : 0.474352601759_RK, 0.47503842363_RK, 0.475724468813_RK, 0.476410737773_RK, &
737 : 0.477097230982_RK, 0.477783948909_RK, 0.478470892024_RK, 0.479158060801_RK, &
738 : 0.479845455711_RK, 0.480533077229_RK, 0.48122092583_RK, 0.481909001988_RK, &
739 : 0.48259730618_RK, 0.483285838883_RK, 0.483974600576_RK, 0.484663591739_RK, &
740 : 0.48535281285_RK, 0.48604226439_RK, 0.486731946843_RK, 0.487421860691_RK, &
741 : 0.488112006416_RK, 0.488802384505_RK, 0.489492995442_RK, 0.490183839715_RK, &
742 : 0.49087491781_RK, 0.491566230217_RK, 0.492257777423_RK, 0.492949559921_RK, &
743 : 0.493641578201_RK, 0.494333832755_RK, 0.495026324076_RK, 0.49571905266_RK, &
744 : 0.496412018999_RK, 0.497105223592_RK, 0.497798666935_RK, 0.498492349525_RK, &
745 : 0.499186271862_RK, 0.499880434446_RK, 0.500574837777_RK, 0.501269482359_RK, &
746 : 0.501964368692_RK, 0.502659497283_RK, 0.503354868635_RK, 0.504050483254_RK, &
747 : 0.504746341647_RK, 0.505442444322_RK, 0.506138791788_RK, 0.506835384556_RK, &
748 : 0.507532223135_RK, 0.508229308038_RK, 0.508926639778_RK, 0.509624218869_RK, &
749 : 0.510322045826_RK, 0.511020121164_RK, 0.511718445402_RK, 0.512417019057_RK, &
750 : 0.513115842648_RK, 0.513814916696_RK, 0.514514241722_RK, 0.515213818248_RK, &
751 : 0.515913646798_RK, 0.516613727896_RK, 0.517314062067_RK, 0.518014649839_RK, &
752 : 0.518715491738_RK, 0.519416588293_RK, 0.520117940035_RK, 0.520819547494_RK, &
753 : 0.521521411203_RK, 0.522223531693_RK, 0.5229259095_RK, 0.523628545158_RK, &
754 : 0.524331439204_RK, 0.525034592175_RK, 0.52573800461_RK, 0.526441677048_RK, &
755 : 0.527145610031_RK, 0.5278498041_RK, 0.528554259797_RK, 0.529258977668_RK, &
756 : 0.529963958257_RK, 0.530669202111_RK, 0.531374709778_RK, 0.532080481805_RK, &
757 : 0.532786518743_RK, 0.533492821143_RK, 0.534199389557_RK, 0.534906224537_RK, &
758 : 0.535613326639_RK, 0.536320696418_RK, 0.537028334431_RK, 0.537736241235_RK, &
759 : 0.53844441739_RK, 0.539152863456_RK, 0.539861579995_RK, 0.540570567568_RK, &
760 : 0.541279826741_RK, 0.541989358077_RK, 0.542699162143_RK, 0.543409239507_RK, &
761 : 0.544119590737_RK, 0.544830216402_RK, 0.545541117075_RK, 0.546252293327_RK, &
762 : 0.546963745731_RK, 0.547675474863_RK, 0.548387481299_RK, 0.549099765614_RK, &
763 : 0.549812328389_RK, 0.550525170202_RK, 0.551238291635_RK, 0.551951693269_RK, &
764 : 0.552665375689_RK, 0.553379339478_RK, 0.554093585223_RK, 0.55480811351_RK, &
765 : 0.555522924929_RK, 0.556238020069_RK, 0.556953399521_RK, 0.557669063878_RK, &
766 : 0.558385013733_RK, 0.559101249681_RK, 0.559817772317_RK, 0.560534582241_RK, &
767 : 0.56125168005_RK, 0.561969066345_RK, 0.562686741727_RK, 0.563404706799_RK, &
768 : 0.564122962165_RK, 0.56484150843_RK, 0.565560346202_RK, 0.566279476088_RK, &
769 : 0.566998898697_RK, 0.567718614641_RK, 0.568438624533_RK, 0.569158928984_RK, &
770 : 0.56987952861_RK, 0.570600424028_RK, 0.571321615855_RK, 0.57204310471_RK, &
771 : 0.572764891214_RK, 0.573486975988_RK, 0.574209359655_RK, 0.57493204284_RK, &
772 : 0.575655026169_RK, 0.576378310269_RK, 0.577101895769_RK, 0.5778257833_RK, &
773 : 0.578549973492_RK, 0.57927446698_RK, 0.579999264397_RK, 0.580724366379_RK, &
774 : 0.581449773564_RK, 0.58217548659_RK, 0.582901506099_RK, 0.58362783273_RK, &
775 : 0.584354467129_RK, 0.585081409939_RK, 0.585808661806_RK, 0.586536223378_RK, &
776 : 0.587264095305_RK, 0.587992278236_RK, 0.588720772824_RK, 0.589449579722_RK, &
777 : 0.590178699585_RK, 0.590908133071_RK, 0.591637880836_RK, 0.592367943541_RK, &
778 : 0.593098321847_RK, 0.593829016416_RK, 0.594560027913_RK, 0.595291357003_RK, &
779 : 0.596023004354_RK, 0.596754970634_RK, 0.597487256514_RK, 0.598219862666_RK, &
780 : 0.598952789763_RK, 0.599686038481_RK, 0.600419609496_RK, 0.601153503486_RK, &
781 : 0.601887721131_RK, 0.602622263113_RK, 0.603357130115_RK, 0.604092322821_RK, &
782 : 0.604827841918_RK, 0.605563688093_RK, 0.606299862036_RK, 0.607036364439_RK, &
783 : 0.607773195994_RK, 0.608510357395_RK, 0.609247849338_RK, 0.609985672522_RK, &
784 : 0.610723827646_RK, 0.61146231541_RK, 0.612201136518_RK, 0.612940291674_RK, &
785 : 0.613679781584_RK, 0.614419606955_RK, 0.615159768498_RK, 0.615900266923_RK, &
786 : 0.616641102944_RK, 0.617382277275_RK, 0.618123790632_RK, 0.618865643733_RK, &
787 : 0.619607837299_RK, 0.62035037205_RK, 0.621093248711_RK, 0.621836468005_RK, &
788 : 0.622580030661_RK, 0.623323937406_RK, 0.62406818897_RK, 0.624812786087_RK, &
789 : 0.625557729489_RK, 0.626303019913_RK, 0.627048658096_RK, 0.627794644778_RK, &
790 : 0.628540980698_RK, 0.629287666601_RK, 0.630034703232_RK, 0.630782091336_RK, &
791 : 0.631529831662_RK, 0.632277924961_RK, 0.633026371984_RK, 0.633775173485_RK, &
792 : 0.634524330221_RK, 0.63527384295_RK, 0.636023712429_RK, 0.636773939423_RK, &
793 : 0.637524524692_RK, 0.638275469004_RK, 0.639026773124_RK, 0.639778437823_RK, &
794 : 0.640530463871_RK, 0.641282852041_RK, 0.642035603108_RK, 0.642788717849_RK, &
795 : 0.643542197043_RK, 0.64429604147_RK, 0.645050251913_RK, 0.645804829157_RK, &
796 : 0.646559773988_RK, 0.647315087195_RK, 0.648070769569_RK, 0.648826821903_RK, &
797 : 0.64958324499_RK, 0.650340039629_RK, 0.651097206616_RK, 0.651854746754_RK, &
798 : 0.652612660844_RK, 0.653370949693_RK, 0.654129614105_RK, 0.654888654892_RK, &
799 : 0.655648072862_RK, 0.656407868831_RK, 0.657168043612_RK, 0.657928598023_RK, &
800 : 0.658689532883_RK, 0.659450849015_RK, 0.66021254724_RK, 0.660974628386_RK, &
801 : 0.66173709328_RK, 0.662499942752_RK, 0.663263177633_RK, 0.66402679876_RK, &
802 : 0.664790806967_RK, 0.665555203094_RK, 0.666319987981_RK, 0.667085162471_RK, &
803 : 0.66785072741_RK, 0.668616683646_RK, 0.669383032026_RK, 0.670149773405_RK, &
804 : 0.670916908635_RK, 0.671684438573_RK, 0.672452364078_RK, 0.67322068601_RK, &
805 : 0.673989405232_RK, 0.674758522611_RK, 0.675528039013_RK, 0.67629795531_RK, &
806 : 0.677068272372_RK, 0.677838991074_RK, 0.678610112294_RK, 0.679381636911_RK, &
807 : 0.680153565806_RK, 0.680925899864_RK, 0.68169863997_RK, 0.682471787013_RK, &
808 : 0.683245341885_RK, 0.684019305478_RK, 0.684793678689_RK, 0.685568462415_RK, &
809 : 0.686343657558_RK, 0.687119265021_RK, 0.687895285708_RK, 0.688671720529_RK, &
810 : 0.689448570392_RK, 0.690225836212_RK, 0.691003518904_RK, 0.691781619384_RK ]
811 :
812 : real(RK), parameter :: VEC_X_4(3001:LEN_VEC_X) = [ &
813 : 0.692560138575_RK, 0.693339077397_RK, 0.694118436777_RK, 0.694898217643_RK, &
814 : 0.695678420925_RK, 0.696459047555_RK, 0.69724009847_RK, 0.698021574607_RK, &
815 : 0.698803476906_RK, 0.699585806312_RK, 0.700368563769_RK, 0.701151750226_RK, &
816 : 0.701935366634_RK, 0.702719413947_RK, 0.70350389312_RK, 0.704288805113_RK, &
817 : 0.705074150887_RK, 0.705859931406_RK, 0.706646147638_RK, 0.707432800551_RK, &
818 : 0.708219891118_RK, 0.709007420313_RK, 0.709795389115_RK, 0.710583798504_RK, &
819 : 0.711372649463_RK, 0.712161942978_RK, 0.712951680037_RK, 0.713741861631_RK, &
820 : 0.714532488756_RK, 0.715323562408_RK, 0.716115083586_RK, 0.716907053294_RK, &
821 : 0.717699472536_RK, 0.718492342322_RK, 0.719285663661_RK, 0.720079437569_RK, &
822 : 0.720873665062_RK, 0.721668347159_RK, 0.722463484884_RK, 0.723259079262_RK, &
823 : 0.724055131321_RK, 0.724851642093_RK, 0.725648612612_RK, 0.726446043916_RK, &
824 : 0.727243937044_RK, 0.728042293041_RK, 0.728841112951_RK, 0.729640397826_RK, &
825 : 0.730440148716_RK, 0.731240366677_RK, 0.732041052768_RK, 0.73284220805_RK, &
826 : 0.733643833587_RK, 0.734445930447_RK, 0.735248499702_RK, 0.736051542423_RK, &
827 : 0.736855059689_RK, 0.737659052579_RK, 0.738463522177_RK, 0.739268469569_RK, &
828 : 0.740073895844_RK, 0.740879802096_RK, 0.741686189419_RK, 0.742493058914_RK, &
829 : 0.743300411682_RK, 0.74410824883_RK, 0.744916571465_RK, 0.7457253807_RK, &
830 : 0.746534677651_RK, 0.747344463435_RK, 0.748154739176_RK, 0.748965505998_RK, &
831 : 0.74977676503_RK, 0.750588517404_RK, 0.751400764255_RK, 0.752213506722_RK, &
832 : 0.753026745948_RK, 0.753840483077_RK, 0.754654719259_RK, 0.755469455646_RK, &
833 : 0.756284693394_RK, 0.757100433662_RK, 0.757916677614_RK, 0.758733426414_RK, &
834 : 0.759550681234_RK, 0.760368443246_RK, 0.761186713627_RK, 0.762005493558_RK, &
835 : 0.762824784223_RK, 0.763644586809_RK, 0.764464902507_RK, 0.765285732513_RK, &
836 : 0.766107078024_RK, 0.766928940243_RK, 0.767751320376_RK, 0.768574219631_RK, &
837 : 0.769397639223_RK, 0.770221580367_RK, 0.771046044284_RK, 0.7718710322_RK, &
838 : 0.772696545341_RK, 0.773522584939_RK, 0.774349152231_RK, 0.775176248455_RK, &
839 : 0.776003874855_RK, 0.776832032678_RK, 0.777660723175_RK, 0.7784899476_RK, &
840 : 0.779319707213_RK, 0.780150003277_RK, 0.780980837056_RK, 0.781812209823_RK, &
841 : 0.782644122852_RK, 0.783476577421_RK, 0.784309574812_RK, 0.785143116312_RK, &
842 : 0.785977203212_RK, 0.786811836806_RK, 0.787647018393_RK, 0.788482749274_RK, &
843 : 0.789319030758_RK, 0.790155864155_RK, 0.790993250781_RK, 0.791831191953_RK, &
844 : 0.792669688996_RK, 0.793508743238_RK, 0.79434835601_RK, 0.795188528648_RK, &
845 : 0.796029262492_RK, 0.796870558888_RK, 0.797712419183_RK, 0.798554844732_RK, &
846 : 0.799397836891_RK, 0.800241397023_RK, 0.801085526493_RK, 0.801930226672_RK, &
847 : 0.802775498936_RK, 0.803621344663_RK, 0.804467765238_RK, 0.805314762049_RK, &
848 : 0.806162336489_RK, 0.807010489955_RK, 0.807859223848_RK, 0.808708539576_RK, &
849 : 0.80955843855_RK, 0.810408922185_RK, 0.8112599919_RK, 0.812111649122_RK, &
850 : 0.812963895279_RK, 0.813816731806_RK, 0.814670160142_RK, 0.815524181729_RK, &
851 : 0.816378798017_RK, 0.817234010459_RK, 0.818089820512_RK, 0.818946229639_RK, &
852 : 0.819803239307_RK, 0.82066085099_RK, 0.821519066163_RK, 0.82237788631_RK, &
853 : 0.823237312917_RK, 0.824097347476_RK, 0.824957991484_RK, 0.825819246443_RK, &
854 : 0.826681113861_RK, 0.827543595248_RK, 0.828406692123_RK, 0.829270406006_RK, &
855 : 0.830134738426_RK, 0.830999690914_RK, 0.831865265009_RK, 0.832731462252_RK, &
856 : 0.833598284192_RK, 0.834465732382_RK, 0.83533380838_RK, 0.83620251375_RK, &
857 : 0.83707185006_RK, 0.837941818885_RK, 0.838812421805_RK, 0.839683660404_RK, &
858 : 0.840555536273_RK, 0.841428051007_RK, 0.842301206208_RK, 0.843175003483_RK, &
859 : 0.844049444444_RK, 0.844924530708_RK, 0.845800263899_RK, 0.846676645646_RK, &
860 : 0.847553677583_RK, 0.84843136135_RK, 0.849309698594_RK, 0.850188690965_RK, &
861 : 0.851068340122_RK, 0.851948647726_RK, 0.852829615446_RK, 0.853711244958_RK, &
862 : 0.854593537942_RK, 0.855476496083_RK, 0.856360121074_RK, 0.857244414613_RK, &
863 : 0.858129378404_RK, 0.859015014157_RK, 0.859901323588_RK, 0.860788308418_RK, &
864 : 0.861675970376_RK, 0.862564311196_RK, 0.863453332618_RK, 0.864343036389_RK, &
865 : 0.865233424261_RK, 0.866124497993_RK, 0.86701625935_RK, 0.867908710104_RK, &
866 : 0.868801852031_RK, 0.869695686916_RK, 0.870590216549_RK, 0.871485442727_RK, &
867 : 0.872381367254_RK, 0.873277991937_RK, 0.874175318595_RK, 0.875073349049_RK, &
868 : 0.875972085128_RK, 0.876871528668_RK, 0.877771681512_RK, 0.878672545509_RK, &
869 : 0.879574122514_RK, 0.88047641439_RK, 0.881379423006_RK, 0.882283150238_RK, &
870 : 0.883187597969_RK, 0.884092768089_RK, 0.884998662493_RK, 0.885905283087_RK, &
871 : 0.886812631779_RK, 0.887720710488_RK, 0.888629521138_RK, 0.889539065661_RK, &
872 : 0.890449345995_RK, 0.891360364086_RK, 0.892272121887_RK, 0.893184621359_RK, &
873 : 0.894097864469_RK, 0.895011853191_RK, 0.895926589508_RK, 0.896842075409_RK, &
874 : 0.897758312891_RK, 0.898675303958_RK, 0.899593050622_RK, 0.900511554903_RK, &
875 : 0.901430818827_RK, 0.902350844428_RK, 0.90327163375_RK, 0.90419318884_RK, &
876 : 0.905115511758_RK, 0.906038604567_RK, 0.906962469342_RK, 0.907887108163_RK, &
877 : 0.908812523118_RK, 0.909738716305_RK, 0.910665689828_RK, 0.911593445799_RK, &
878 : 0.912521986339_RK, 0.913451313577_RK, 0.91438142965_RK, 0.915312336703_RK, &
879 : 0.916244036888_RK, 0.917176532369_RK, 0.918109825313_RK, 0.919043917899_RK, &
880 : 0.919978812315_RK, 0.920914510754_RK, 0.921851015421_RK, 0.922788328527_RK, &
881 : 0.923726452292_RK, 0.924665388946_RK, 0.925605140727_RK, 0.926545709881_RK, &
882 : 0.927487098664_RK, 0.928429309338_RK, 0.929372344179_RK, 0.930316205466_RK, &
883 : 0.931260895491_RK, 0.932206416553_RK, 0.933152770962_RK, 0.934099961035_RK, &
884 : 0.9350479891_RK, 0.935996857491_RK, 0.936946568555_RK, 0.937897124647_RK, &
885 : 0.93884852813_RK, 0.939800781378_RK, 0.940753886774_RK, 0.941707846709_RK, &
886 : 0.942662663587_RK, 0.943618339818_RK, 0.944574877824_RK, 0.945532280036_RK, &
887 : 0.946490548893_RK, 0.947449686847_RK, 0.948409696358_RK, 0.949370579895_RK, &
888 : 0.95033233994_RK, 0.951294978982_RK, 0.952258499521_RK, 0.953222904069_RK, &
889 : 0.954188195145_RK, 0.955154375281_RK, 0.956121447017_RK, 0.957089412906_RK, &
890 : 0.958058275508_RK, 0.959028037398_RK, 0.959998701157_RK, 0.960970269379_RK, &
891 : 0.961942744669_RK, 0.962916129641_RK, 0.963890426921_RK, 0.964865639146_RK, &
892 : 0.965841768964_RK, 0.966818819033_RK, 0.967796792022_RK, 0.968775690612_RK, &
893 : 0.969755517495_RK, 0.970736275374_RK, 0.971717966963_RK, 0.972700594988_RK, &
894 : 0.973684162186_RK, 0.974668671305_RK, 0.975654125105_RK, 0.976640526359_RK, &
895 : 0.977627877849_RK, 0.978616182371_RK, 0.979605442731_RK, 0.980595661749_RK, &
896 : 0.981586842254_RK, 0.982578987091_RK, 0.983572099113_RK, 0.984566181188_RK, &
897 : 0.985561236196_RK, 0.986557267027_RK, 0.987554276585_RK, 0.988552267788_RK, &
898 : 0.989551243564_RK, 0.990551206854_RK, 0.991552160613_RK, 0.992554107808_RK, &
899 : 0.993557051418_RK, 0.994560994436_RK, 0.995565939868_RK, 0.996571890733_RK, &
900 : 0.997578850062_RK, 0.9985868209_RK, 0.999595806306_RK, 1.00060580935_RK, &
901 : 1.00161683312_RK, 1.00262888071_RK, 1.00364195524_RK, 1.00465605983_RK, &
902 : 1.00567119762_RK, 1.00668737176_RK, 1.00770458543_RK, 1.0087228418_RK, &
903 : 1.00974214407_RK, 1.01076249545_RK, 1.01178389916_RK, 1.01280635844_RK, &
904 : 1.01382987655_RK, 1.01485445675_RK, 1.01588010232_RK, 1.01690681657_RK, &
905 : 1.01793460279_RK, 1.01896346433_RK, 1.01999340452_RK, 1.02102442671_RK, &
906 : 1.02205653428_RK, 1.02308973062_RK, 1.02412401912_RK, 1.02515940322_RK, &
907 : 1.02619588633_RK, 1.02723347191_RK, 1.02827216342_RK, 1.02931196435_RK, &
908 : 1.03035287819_RK, 1.03139490845_RK, 1.03243805866_RK, 1.03348233237_RK, &
909 : 1.03452773314_RK, 1.03557426455_RK, 1.03662193018_RK, 1.03767073366_RK, &
910 : 1.03872067861_RK, 1.03977176868_RK, 1.04082400752_RK, 1.04187739881_RK, &
911 : 1.04293194626_RK, 1.04398765357_RK, 1.04504452448_RK, 1.04610256273_RK, &
912 : 1.04716177209_RK, 1.04822215635_RK, 1.04928371929_RK, 1.05034646476_RK, &
913 : 1.05141039657_RK, 1.0524755186_RK, 1.0535418347_RK, 1.05460934878_RK, &
914 : 1.05567806475_RK, 1.05674798653_RK, 1.05781911808_RK, 1.05889146336_RK, &
915 : 1.05996502636_RK, 1.06103981109_RK, 1.06211582157_RK, 1.06319306184_RK, &
916 : 1.06427153597_RK, 1.06535124805_RK, 1.06643220217_RK, 1.06751440246_RK, &
917 : 1.06859785307_RK, 1.06968255816_RK, 1.07076852192_RK, 1.07185574854_RK, &
918 : 1.07294424226_RK, 1.07403400732_RK, 1.07512504799_RK, 1.07621736855_RK, &
919 : 1.07731097332_RK, 1.07840586663_RK, 1.07950205283_RK, 1.0805995363_RK, &
920 : 1.08169832142_RK, 1.08279841262_RK, 1.08389981434_RK, 1.08500253104_RK, &
921 : 1.08610656721_RK, 1.08721192734_RK, 1.08831861598_RK, 1.08942663766_RK, &
922 : 1.09053599698_RK, 1.09164669853_RK, 1.09275874692_RK, 1.09387214681_RK, &
923 : 1.09498690286_RK, 1.09610301977_RK, 1.09722050226_RK, 1.09833935506_RK, &
924 : 1.09945958293_RK, 1.10058119068_RK, 1.10170418311_RK, 1.10282856507_RK, &
925 : 1.10395434141_RK, 1.10508151703_RK, 1.10621009684_RK, 1.10734008578_RK, &
926 : 1.10847148882_RK, 1.10960431095_RK, 1.11073855719_RK, 1.11187423257_RK, &
927 : 1.11301134218_RK, 1.11414989111_RK, 1.11528988448_RK, 1.11643132745_RK, &
928 : 1.11757422519_RK, 1.1187185829_RK, 1.11986440583_RK, 1.12101169923_RK, &
929 : 1.12216046839_RK, 1.12331071862_RK, 1.12446245528_RK, 1.12561568374_RK, &
930 : 1.1267704094_RK, 1.12792663769_RK, 1.12908437408_RK, 1.13024362405_RK, &
931 : 1.13140439313_RK, 1.13256668686_RK, 1.13373051083_RK, 1.13489587064_RK, &
932 : 1.13606277195_RK, 1.13723122041_RK, 1.13840122174_RK, 1.13957278166_RK, &
933 : 1.14074590595_RK, 1.14192060039_RK, 1.14309687083_RK, 1.14427472312_RK, &
934 : 1.14545416315_RK, 1.14663519686_RK, 1.1478178302_RK, 1.14900206916_RK, &
935 : 1.15018791978_RK, 1.1513753881_RK, 1.15256448023_RK, 1.1537552023_RK, &
936 : 1.15494756045_RK, 1.1561415609_RK, 1.15733720988_RK, 1.15853451364_RK, &
937 : 1.1597334785_RK, 1.16093411079_RK, 1.16213641689_RK, 1.16334040321_RK, &
938 : 1.1645460762_RK, 1.16575344233_RK, 1.16696250814_RK, 1.16817328018_RK, &
939 : 1.16938576505_RK, 1.17059996938_RK, 1.17181589985_RK, 1.17303356317_RK, &
940 : 1.17425296609_RK, 1.1754741154_RK, 1.17669701793_RK, 1.17792168055_RK, &
941 : 1.17914811017_RK, 1.18037631374_RK, 1.18160629825_RK, 1.18283807074_RK, &
942 : 1.18407163828_RK, 1.18530700798_RK, 1.18654418701_RK, 1.18778318256_RK, &
943 : 1.18902400188_RK, 1.19026665225_RK, 1.19151114101_RK, 1.19275747553_RK, &
944 : 1.19400566322_RK, 1.19525571156_RK, 1.19650762804_RK, 1.19776142023_RK, &
945 : 1.19901709572_RK, 1.20027466216_RK, 1.20153412724_RK, 1.2027954987_RK, &
946 : 1.20405878432_RK, 1.20532399194_RK, 1.20659112944_RK, 1.20786020475_RK, &
947 : 1.20913122586_RK, 1.21040420078_RK, 1.21167913759_RK, 1.21295604444_RK, &
948 : 1.21423492948_RK, 1.21551580096_RK, 1.21679866716_RK, 1.2180835364_RK, &
949 : 1.21937041707_RK, 1.22065931762_RK, 1.22195024653_RK, 1.22324321234_RK, &
950 : 1.22453822366_RK, 1.22583528914_RK, 1.22713441748_RK, 1.22843561746_RK, &
951 : 1.22973889789_RK, 1.23104426764_RK, 1.23235173565_RK, 1.23366131092_RK, &
952 : 1.23497300248_RK, 1.23628681945_RK, 1.23760277098_RK, 1.23892086632_RK, &
953 : 1.24024111474_RK, 1.24156352558_RK, 1.24288810826_RK, 1.24421487225_RK, &
954 : 1.24554382707_RK, 1.24687498231_RK, 1.24820834764_RK, 1.24954393277_RK, &
955 : 1.25088174749_RK, 1.25222180165_RK, 1.25356410517_RK, 1.25490866802_RK, &
956 : 1.25625550025_RK, 1.25760461198_RK, 1.25895601339_RK, 1.26030971474_RK, &
957 : 1.26166572634_RK, 1.26302405859_RK, 1.26438472195_RK, 1.26574772695_RK, &
958 : 1.26711308419_RK, 1.26848080436_RK, 1.2698508982_RK, 1.27122337654_RK, &
959 : 1.27259825027_RK, 1.27397553036_RK, 1.27535522788_RK, 1.27673735394_RK, &
960 : 1.27812191975_RK, 1.27950893658_RK, 1.2808984158_RK, 1.28229036885_RK, &
961 : 1.28368480725_RK, 1.2850817426_RK, 1.28648118658_RK, 1.28788315096_RK, &
962 : 1.28928764758_RK, 1.29069468838_RK, 1.29210428538_RK, 1.29351645068_RK, &
963 : 1.29493119647_RK, 1.29634853503_RK, 1.29776847873_RK, 1.29919104001_RK, &
964 : 1.30061623144_RK, 1.30204406564_RK, 1.30347455533_RK, 1.30490771336_RK, &
965 : 1.30634355261_RK, 1.30778208612_RK, 1.30922332698_RK, 1.31066728839_RK, &
966 : 1.31211398366_RK, 1.31356342618_RK, 1.31501562944_RK, 1.31647060705_RK, &
967 : 1.3179283727_RK, 1.31938894019_RK, 1.32085232344_RK, 1.32231853644_RK, &
968 : 1.32378759331_RK, 1.32525950829_RK, 1.32673429568_RK, 1.32821196994_RK, &
969 : 1.3296925456_RK, 1.33117603734_RK, 1.33266245992_RK, 1.33415182822_RK, &
970 : 1.33564415726_RK, 1.33713946213_RK, 1.33863775808_RK, 1.34013906045_RK, &
971 : 1.34164338473_RK, 1.34315074649_RK, 1.34466116145_RK, 1.34617464545_RK, &
972 : 1.34769121444_RK, 1.34921088453_RK, 1.35073367192_RK, 1.35225959295_RK, &
973 : 1.3537886641_RK, 1.35532090198_RK, 1.35685632332_RK, 1.35839494499_RK, &
974 : 1.35993678401_RK, 1.36148185752_RK, 1.3630301828_RK, 1.36458177727_RK, &
975 : 1.36613665852_RK, 1.36769484423_RK, 1.36925635228_RK, 1.37082120066_RK, &
976 : 1.37238940752_RK, 1.37396099116_RK, 1.37553597004_RK, 1.37711436276_RK, &
977 : 1.37869618807_RK, 1.3802814649_RK, 1.38187021232_RK, 1.38346244956_RK, &
978 : 1.38505819603_RK, 1.38665747129_RK, 1.38826029505_RK, 1.38986668723_RK, &
979 : 1.39147666789_RK, 1.39309025725_RK, 1.39470747574_RK, 1.39632834393_RK, &
980 : 1.3979528826_RK, 1.39958111269_RK, 1.40121305532_RK, 1.40284873181_RK, &
981 : 1.40448816364_RK, 1.40613137251_RK, 1.40777838029_RK, 1.40942920906_RK, &
982 : 1.41108388106_RK, 1.41274241877_RK, 1.41440484485_RK, 1.41607118216_RK, &
983 : 1.41774145377_RK, 1.41941568296_RK, 1.42109389321_RK, 1.42277610822_RK, &
984 : 1.42446235191_RK, 1.4261526484_RK, 1.42784702206_RK, 1.42954549744_RK, &
985 : 1.43124809936_RK, 1.43295485285_RK, 1.43466578316_RK, 1.43638091579_RK, &
986 : 1.43810027647_RK, 1.43982389118_RK, 1.44155178613_RK, 1.44328398779_RK, &
987 : 1.44502052286_RK, 1.44676141832_RK, 1.44850670139_RK, 1.45025639954_RK, &
988 : 1.45201054053_RK, 1.45376915236_RK, 1.4555322633_RK, 1.45729990192_RK, &
989 : 1.45907209704_RK, 1.46084887778_RK, 1.46263027351_RK, 1.46441631394_RK, &
990 : 1.46620702902_RK, 1.46800244903_RK, 1.46980260454_RK, 1.47160752641_RK, &
991 : 1.47341724582_RK, 1.47523179427_RK, 1.47705120356_RK, 1.47887550581_RK, &
992 : 1.48070473348_RK, 1.48253891934_RK, 1.48437809651_RK, 1.48622229844_RK, &
993 : 1.48807155892_RK, 1.48992591209_RK, 1.49178539245_RK, 1.49365003484_RK, &
994 : 1.49551987447_RK, 1.49739494693_RK, 1.49927528818_RK, 1.50116093452_RK, &
995 : 1.50305192269_RK, 1.50494828979_RK, 1.5068500733_RK, 1.50875731112_RK, &
996 : 1.51067004156_RK, 1.51258830332_RK, 1.51451213554_RK, 1.51644157777_RK, &
997 : 1.51837667_RK, 1.52031745264_RK, 1.52226396655_RK, 1.52421625305_RK, &
998 : 1.52617435391_RK, 1.52813831134_RK, 1.53010816806_RK, 1.53208396723_RK, &
999 : 1.53406575252_RK, 1.53605356807_RK, 1.53804745854_RK, 1.54004746908_RK, &
1000 : 1.54205364536_RK, 1.54406603357_RK, 1.54608468043_RK, 1.5481096332_RK, &
1001 : 1.55014093969_RK, 1.55217864825_RK, 1.55422280782_RK, 1.55627346789_RK, &
1002 : 1.55833067854_RK, 1.56039449044_RK, 1.56246495486_RK, 1.56454212368_RK, &
1003 : 1.56662604942_RK, 1.56871678519_RK, 1.57081438477_RK, 1.57291890258_RK, &
1004 : 1.57503039371_RK, 1.57714891392_RK, 1.57927451964_RK, 1.581407268_RK, &
1005 : 1.58354721686_RK, 1.58569442477_RK, 1.58784895103_RK, 1.59001085565_RK, &
1006 : 1.59218019943_RK, 1.59435704393_RK, 1.59654145149_RK, 1.59873348523_RK, &
1007 : 1.60093320909_RK, 1.60314068784_RK, 1.60535598708_RK, 1.60757917325_RK, &
1008 : 1.60981031368_RK, 1.61204947656_RK, 1.61429673098_RK, 1.61655214696_RK, &
1009 : 1.61881579544_RK, 1.62108774828_RK, 1.62336807836_RK, 1.62565685948_RK, &
1010 : 1.62795416649_RK, 1.63026007522_RK, 1.63257466256_RK, 1.63489800643_RK, &
1011 : 1.63723018585_RK, 1.63957128092_RK, 1.64192137286_RK, 1.64428054402_RK, &
1012 : 1.64664887792_RK, 1.64902645924_RK, 1.65141337389_RK, 1.65380970898_RK, &
1013 : 1.65621555288_RK, 1.65863099522_RK, 1.66105612696_RK, 1.66349104035_RK, &
1014 : 1.665935829_RK, 1.6683905879_RK, 1.67085541345_RK, 1.67333040348_RK, &
1015 : 1.67581565725_RK, 1.67831127556_RK, 1.68081736069_RK, 1.68333401649_RK, &
1016 : 1.6858613484_RK, 1.68839946345_RK, 1.69094847035_RK, 1.69350847947_RK, &
1017 : 1.69607960292_RK, 1.69866195455_RK, 1.70125565_RK, 1.70386080677_RK, &
1018 : 1.70647754419_RK, 1.70910598353_RK, 1.71174624799_RK, 1.7143984628_RK, &
1019 : 1.71706275519_RK, 1.71973925449_RK, 1.72242809217_RK, 1.72512940185_RK, &
1020 : 1.72784331941_RK, 1.73056998298_RK, 1.73330953303_RK, 1.7360621124_RK, &
1021 : 1.73882786639_RK, 1.74160694276_RK, 1.74439949184_RK, 1.74720566658_RK, &
1022 : 1.75002562257_RK, 1.75285951816_RK, 1.75570751448_RK, 1.75856977555_RK, &
1023 : 1.7614464683_RK, 1.7643377627_RK, 1.76724383175_RK, 1.77016485166_RK, &
1024 : 1.77310100183_RK, 1.77605246501_RK, 1.77901942732_RK, 1.78200207837_RK, &
1025 : 1.78500061134_RK, 1.78801522309_RK, 1.79104611422_RK, 1.79409348917_RK, &
1026 : 1.79715755637_RK, 1.80023852827_RK, 1.8033366215_RK, 1.80645205698_RK, &
1027 : 1.80958506_RK, 1.81273586036_RK, 1.81590469249_RK, 1.81909179558_RK, &
1028 : 1.82229741372_RK, 1.825521796_RK, 1.82876519668_RK, 1.83202787533_RK, &
1029 : 1.83531009698_RK, 1.83861213227_RK, 1.84193425762_RK, 1.84527675539_RK, &
1030 : 1.84863991405_RK, 1.85202402837_RK, 1.8554293996_RK, 1.85885633567_RK, &
1031 : 1.86230515137_RK, 1.86577616858_RK, 1.86926971649_RK, 1.87278613181_RK, &
1032 : 1.87632575899_RK, 1.8798889505_RK, 1.88347606705_RK, 1.88708747787_RK, &
1033 : 1.89072356098_RK, 1.89438470345_RK, 1.89807130174_RK, 1.90178376197_RK, &
1034 : 1.90552250025_RK, 1.90928794302_RK, 1.91308052741_RK, 1.91690070156_RK, &
1035 : 1.92074892503_RK, 1.92462566922_RK, 1.92853141772_RK, 1.93246666677_RK, &
1036 : 1.93643192574_RK, 1.94042771755_RK, 1.94445457918_RK, 1.9485130622_RK, &
1037 : 1.95260373328_RK, 1.95672717477_RK, 1.96088398528_RK, 1.96507478031_RK, &
1038 : 1.96930019287_RK, 1.97356087419_RK, 1.97785749442_RK, 1.98219074335_RK, &
1039 : 1.98656133124_RK, 1.99096998962_RK, 1.99541747213_RK, 1.99990455547_RK, &
1040 : 2.00443204036_RK, 2.00900075251_RK, 2.01361154371_RK, 2.01826529295_RK, &
1041 : 2.02296290758_RK, 2.02770532458_RK, 2.03249351185_RK, 2.03732846962_RK, &
1042 : 2.04221123192_RK, 2.0471428681_RK, 2.05212448451_RK, 2.05715722623_RK, &
1043 : 2.06224227888_RK, 2.06738087065_RK, 2.07257427429_RK, 2.07782380938_RK, &
1044 : 2.08313084465_RK, 2.08849680045_RK, 2.09392315145_RK, 2.09941142942_RK, &
1045 : 2.10496322628_RK, 2.11058019727_RK, 2.11626406445_RK, 2.12201662031_RK, &
1046 : 2.12783973172_RK, 2.13373534416_RK, 2.13970548619_RK, 2.14575227431_RK, &
1047 : 2.15187791816_RK, 2.1580847261_RK, 2.16437511125_RK, 2.17075159793_RK, &
1048 : 2.17721682871_RK, 2.18377357191_RK, 2.19042472984_RK, 2.1971733476_RK, &
1049 : 2.20402262267_RK, 2.21097591537_RK, 2.21803676019_RK, 2.22520887808_RK, &
1050 : 2.23249618993_RK, 2.23990283128_RK, 2.24743316835_RK, 2.25509181569_RK, &
1051 : 2.26288365549_RK, 2.27081385882_RK, 2.27888790909_RK, 2.28711162784_RK, &
1052 : 2.29549120334_RK, 2.30403322228_RK, 2.31274470495_RK, 2.32163314439_RK, &
1053 : 2.33070655011_RK, 2.33997349698_RK, 2.34944318006_RK, 2.35912547628_RK, &
1054 : 2.36903101398_RK, 2.37917125159_RK, 2.3895585669_RK, 2.40020635872_RK, &
1055 : 2.411129163_RK, 2.422342786_RK, 2.43386445755_RK, 2.44571300825_RK, &
1056 : 2.45790907518_RK, 2.47047534177_RK, 2.48343681896_RK, 2.49682117646_RK, &
1057 : 2.51065913523_RK, 2.52498493519_RK, 2.53983689632_RK, 2.55525809634_RK, &
1058 : 2.57129719532_RK, 2.58800944712_RK, 2.60545795099_RK, 2.62371521493_RK, &
1059 : 2.64286512889_RK, 2.66300548366_RK, 2.68425122698_RK, 2.7067387311_RK, &
1060 : 2.73063147325_RK, 2.75612772826_RK, 2.78347119119_RK, 2.81296597401_RK, &
1061 : 2.84499832124_RK, 2.8800689917_RK, 2.91884323355_RK, 2.9622311235_RK, &
1062 : 3.0115232357_RK, 3.06863405379_RK, 3.13657337257_RK, 3.22045475765_RK, &
1063 : 3.32996541598_RK, 3.48672170399_RK ];
1064 :
1065 : real(RK), parameter :: VEC_YU_1(1:1000) = [ &
1066 : 0.0540012735356_RK, 0.0544874991381_RK, 0.054972661389_RK, 0.0554567692269_RK, &
1067 : 0.0559398314244_RK, 0.0564218565922_RK, 0.0569028531841_RK, 0.0573828295011_RK, &
1068 : 0.0578617936955_RK, 0.0583397537752_RK, 0.058816717607_RK, 0.059292692921_RK, &
1069 : 0.0597676873138_RK, 0.060241708252_RK, 0.0607147630756_RK, 0.0611868590013_RK, &
1070 : 0.0616580031256_RK, 0.0621282024276_RK, 0.0625974637723_RK, 0.0630657939132_RK, &
1071 : 0.0635331994951_RK, 0.0639996870564_RK, 0.0644652630325_RK, 0.0649299337573_RK, &
1072 : 0.0653937054663_RK, 0.0658565842984_RK, 0.0663185762986_RK, 0.0667796874201_RK, &
1073 : 0.0672399235259_RK, 0.0676992903918_RK, 0.0681577937072_RK, 0.0686154390782_RK, &
1074 : 0.0690722320286_RK, 0.0695281780022_RK, 0.0699832823643_RK, 0.0704375504035_RK, &
1075 : 0.0708909873334_RK, 0.0713435982942_RK, 0.0717953883543_RK, 0.0722463625114_RK, &
1076 : 0.0726965256949_RK, 0.0731458827663_RK, 0.0735944385211_RK, 0.0740421976905_RK, &
1077 : 0.074489164942_RK, 0.0749353448811_RK, 0.0753807420524_RK, 0.0758253609412_RK, &
1078 : 0.076269205974_RK, 0.0767122815202_RK, 0.0771545918932_RK, 0.077596141351_RK, &
1079 : 0.0780369340979_RK, 0.0784769742851_RK, 0.078916266012_RK, 0.0793548133268_RK, &
1080 : 0.0797926202279_RK, 0.0802296906646_RK, 0.080666028538_RK, 0.081101637702_RK, &
1081 : 0.081536521964_RK, 0.0819706850859_RK, 0.082404130785_RK, 0.0828368627345_RK, &
1082 : 0.0832688845646_RK, 0.0837001998631_RK, 0.0841308121761_RK, 0.084560725009_RK, &
1083 : 0.0849899418268_RK, 0.0854184660553_RK, 0.0858463010813_RK, 0.0862734502535_RK, &
1084 : 0.0866999168832_RK, 0.0871257042449_RK, 0.0875508155769_RK, 0.0879752540816_RK, &
1085 : 0.0883990229268_RK, 0.0888221252457_RK, 0.0892445641375_RK, 0.0896663426683_RK, &
1086 : 0.0900874638713_RK, 0.0905079307475_RK, 0.0909277462662_RK, 0.0913469133655_RK, &
1087 : 0.0917654349529_RK, 0.0921833139053_RK, 0.0926005530704_RK, 0.0930171552661_RK, &
1088 : 0.0934331232819_RK, 0.0938484598786_RK, 0.0942631677893_RK, 0.0946772497194_RK, &
1089 : 0.0950907083474_RK, 0.095503546325_RK, 0.0959157662776_RK, 0.0963273708049_RK, &
1090 : 0.0967383624809_RK, 0.0971487438546_RK, 0.0975585174503_RK, 0.0979676857678_RK, &
1091 : 0.098376251283_RK, 0.098784216448_RK, 0.0991915836918_RK, 0.0995983554201_RK, &
1092 : 0.100004534016_RK, 0.100410121841_RK, 0.100815121233_RK, 0.10121953451_RK, &
1093 : 0.101623363968_RK, 0.102026611881_RK, 0.102429280502_RK, 0.102831372066_RK, &
1094 : 0.103232888785_RK, 0.103633832853_RK, 0.104034206444_RK, 0.10443401171_RK, &
1095 : 0.104833250787_RK, 0.105231925791_RK, 0.10563003882_RK, 0.106027591953_RK, &
1096 : 0.106424587249_RK, 0.106821026753_RK, 0.10721691249_RK, 0.107612246467_RK, &
1097 : 0.108007030675_RK, 0.108401267088_RK, 0.108794957663_RK, 0.10918810434_RK, &
1098 : 0.109580709043_RK, 0.109972773679_RK, 0.110364300142_RK, 0.110755290307_RK, &
1099 : 0.111145746034_RK, 0.111535669171_RK, 0.111925061545_RK, 0.112313924974_RK, &
1100 : 0.112702261257_RK, 0.113090072181_RK, 0.113477359516_RK, 0.113864125022_RK, &
1101 : 0.11425037044_RK, 0.1146360975_RK, 0.115021307918_RK, 0.115406003396_RK, &
1102 : 0.115790185624_RK, 0.116173856276_RK, 0.116557017014_RK, 0.11693966949_RK, &
1103 : 0.117321815339_RK, 0.117703456185_RK, 0.118084593641_RK, 0.118465229306_RK, &
1104 : 0.118845364768_RK, 0.1192250016_RK, 0.119604141367_RK, 0.119982785621_RK, &
1105 : 0.120360935901_RK, 0.120738593735_RK, 0.121115760642_RK, 0.121492438126_RK, &
1106 : 0.121868627682_RK, 0.122244330795_RK, 0.122619548937_RK, 0.12299428357_RK, &
1107 : 0.123368536146_RK, 0.123742308106_RK, 0.124115600881_RK, 0.12448841589_RK, &
1108 : 0.124860754545_RK, 0.125232618245_RK, 0.12560400838_RK, 0.125974926331_RK, &
1109 : 0.126345373469_RK, 0.126715351154_RK, 0.127084860738_RK, 0.127453903564_RK, &
1110 : 0.127822480963_RK, 0.128190594259_RK, 0.128558244767_RK, 0.128925433793_RK, &
1111 : 0.129292162631_RK, 0.129658432571_RK, 0.130024244891_RK, 0.13038960086_RK, &
1112 : 0.130754501741_RK, 0.131118948787_RK, 0.131482943242_RK, 0.131846486342_RK, &
1113 : 0.132209579317_RK, 0.132572223385_RK, 0.132934419758_RK, 0.133296169642_RK, &
1114 : 0.13365747423_RK, 0.134018334713_RK, 0.13437875227_RK, 0.134738728074_RK, &
1115 : 0.13509826329_RK, 0.135457359075_RK, 0.135816016581_RK, 0.13617423695_RK, &
1116 : 0.136532021316_RK, 0.13688937081_RK, 0.137246286551_RK, 0.137602769653_RK, &
1117 : 0.137958821225_RK, 0.138314442365_RK, 0.138669634167_RK, 0.139024397717_RK, &
1118 : 0.139378734095_RK, 0.139732644373_RK, 0.140086129618_RK, 0.14043919089_RK, &
1119 : 0.140791829241_RK, 0.141144045718_RK, 0.141495841361_RK, 0.141847217205_RK, &
1120 : 0.142198174276_RK, 0.142548713597_RK, 0.142898836183_RK, 0.143248543043_RK, &
1121 : 0.143597835179_RK, 0.14394671359_RK, 0.144295179266_RK, 0.144643233193_RK, &
1122 : 0.144990876349_RK, 0.14533810971_RK, 0.145684934242_RK, 0.146031350908_RK, &
1123 : 0.146377360665_RK, 0.146722964463_RK, 0.147068163249_RK, 0.147412957962_RK, &
1124 : 0.147757349537_RK, 0.148101338903_RK, 0.148444926984_RK, 0.148788114699_RK, &
1125 : 0.149130902961_RK, 0.149473292678_RK, 0.149815284753_RK, 0.150156880085_RK, &
1126 : 0.150498079565_RK, 0.150838884082_RK, 0.151179294519_RK, 0.151519311753_RK, &
1127 : 0.151858936658_RK, 0.152198170101_RK, 0.152537012946_RK, 0.152875466051_RK, &
1128 : 0.153213530271_RK, 0.153551206454_RK, 0.153888495445_RK, 0.154225398084_RK, &
1129 : 0.154561915205_RK, 0.15489804764_RK, 0.155233796214_RK, 0.155569161751_RK, &
1130 : 0.155904145066_RK, 0.156238746972_RK, 0.156572968279_RK, 0.156906809791_RK, &
1131 : 0.157240272307_RK, 0.157573356623_RK, 0.15790606353_RK, 0.158238393817_RK, &
1132 : 0.158570348265_RK, 0.158901927654_RK, 0.159233132759_RK, 0.159563964351_RK, &
1133 : 0.159894423197_RK, 0.160224510058_RK, 0.160554225695_RK, 0.160883570863_RK, &
1134 : 0.161212546311_RK, 0.161541152788_RK, 0.161869391036_RK, 0.162197261796_RK, &
1135 : 0.162524765803_RK, 0.162851903789_RK, 0.163178676483_RK, 0.163505084608_RK, &
1136 : 0.163831128886_RK, 0.164156810034_RK, 0.164482128766_RK, 0.164807085792_RK, &
1137 : 0.165131681818_RK, 0.165455917548_RK, 0.165779793681_RK, 0.166103310913_RK, &
1138 : 0.166426469936_RK, 0.16674927144_RK, 0.167071716111_RK, 0.167393804631_RK, &
1139 : 0.167715537679_RK, 0.16803691593_RK, 0.168357940058_RK, 0.168678610731_RK, &
1140 : 0.168998928615_RK, 0.169318894373_RK, 0.169638508664_RK, 0.169957772145_RK, &
1141 : 0.170276685469_RK, 0.170595249286_RK, 0.170913464242_RK, 0.171231330982_RK, &
1142 : 0.171548850146_RK, 0.171866022373_RK, 0.172182848295_RK, 0.172499328546_RK, &
1143 : 0.172815463755_RK, 0.173131254545_RK, 0.173446701542_RK, 0.173761805364_RK, &
1144 : 0.174076566628_RK, 0.174390985949_RK, 0.174705063937_RK, 0.175018801202_RK, &
1145 : 0.175332198348_RK, 0.175645255979_RK, 0.175957974695_RK, 0.176270355092_RK, &
1146 : 0.176582397766_RK, 0.176894103309_RK, 0.177205472308_RK, 0.177516505351_RK, &
1147 : 0.177827203022_RK, 0.178137565902_RK, 0.178447594568_RK, 0.178757289598_RK, &
1148 : 0.179066651564_RK, 0.179375681037_RK, 0.179684378585_RK, 0.179992744774_RK, &
1149 : 0.180300780166_RK, 0.180608485323_RK, 0.180915860803_RK, 0.18122290716_RK, &
1150 : 0.181529624949_RK, 0.18183601472_RK, 0.182142077022_RK, 0.182447812399_RK, &
1151 : 0.182753221396_RK, 0.183058304554_RK, 0.183363062412_RK, 0.183667495505_RK, &
1152 : 0.183971604368_RK, 0.184275389534_RK, 0.18457885153_RK, 0.184881990885_RK, &
1153 : 0.185184808123_RK, 0.185487303768_RK, 0.185789478338_RK, 0.186091332353_RK, &
1154 : 0.186392866329_RK, 0.186694080779_RK, 0.186994976215_RK, 0.187295553146_RK, &
1155 : 0.18759581208_RK, 0.187895753521_RK, 0.188195377973_RK, 0.188494685937_RK, &
1156 : 0.188793677911_RK, 0.189092354391_RK, 0.189390715873_RK, 0.18968876285_RK, &
1157 : 0.189986495811_RK, 0.190283915244_RK, 0.190581021638_RK, 0.190877815475_RK, &
1158 : 0.191174297238_RK, 0.191470467408_RK, 0.191766326463_RK, 0.192061874879_RK, &
1159 : 0.192357113132_RK, 0.192652041693_RK, 0.192946661033_RK, 0.193240971621_RK, &
1160 : 0.193534973925_RK, 0.193828668408_RK, 0.194122055533_RK, 0.194415135763_RK, &
1161 : 0.194707909556_RK, 0.19500037737_RK, 0.195292539661_RK, 0.195584396882_RK, &
1162 : 0.195875949485_RK, 0.196167197921_RK, 0.196458142637_RK, 0.196748784081_RK, &
1163 : 0.197039122697_RK, 0.197329158929_RK, 0.197618893218_RK, 0.197908326003_RK, &
1164 : 0.198197457722_RK, 0.198486288812_RK, 0.198774819706_RK, 0.199063050838_RK, &
1165 : 0.199350982639_RK, 0.199638615537_RK, 0.199925949961_RK, 0.200212986337_RK, &
1166 : 0.200499725089_RK, 0.20078616664_RK, 0.20107231141_RK, 0.20135815982_RK, &
1167 : 0.201643712287_RK, 0.201928969228_RK, 0.202213931056_RK, 0.202498598186_RK, &
1168 : 0.202782971029_RK, 0.203067049994_RK, 0.20335083549_RK, 0.203634327924_RK, &
1169 : 0.203917527701_RK, 0.204200435225_RK, 0.204483050898_RK, 0.204765375121_RK, &
1170 : 0.205047408293_RK, 0.205329150811_RK, 0.205610603072_RK, 0.205891765471_RK, &
1171 : 0.2061726384_RK, 0.206453222252_RK, 0.206733517417_RK, 0.207013524284_RK, &
1172 : 0.207293243239_RK, 0.20757267467_RK, 0.207851818961_RK, 0.208130676495_RK, &
1173 : 0.208409247653_RK, 0.208687532816_RK, 0.208965532363_RK, 0.209243246671_RK, &
1174 : 0.209520676117_RK, 0.209797821075_RK, 0.210074681919_RK, 0.210351259021_RK, &
1175 : 0.210627552752_RK, 0.21090356348_RK, 0.211179291575_RK, 0.211454737402_RK, &
1176 : 0.211729901327_RK, 0.212004783714_RK, 0.212279384926_RK, 0.212553705325_RK, &
1177 : 0.21282774527_RK, 0.213101505121_RK, 0.213374985234_RK, 0.213648185967_RK, &
1178 : 0.213921107674_RK, 0.214193750709_RK, 0.214466115425_RK, 0.214738202173_RK, &
1179 : 0.215010011303_RK, 0.215281543164_RK, 0.215552798104_RK, 0.215823776468_RK, &
1180 : 0.216094478602_RK, 0.21636490485_RK, 0.216635055555_RK, 0.216904931057_RK, &
1181 : 0.217174531699_RK, 0.217443857818_RK, 0.217712909752_RK, 0.21798168784_RK, &
1182 : 0.218250192415_RK, 0.218518423813_RK, 0.218786382367_RK, 0.219054068409_RK, &
1183 : 0.21932148227_RK, 0.21958862428_RK, 0.219855494768_RK, 0.220122094062_RK, &
1184 : 0.220388422488_RK, 0.220654480371_RK, 0.220920268035_RK, 0.221185785805_RK, &
1185 : 0.221451034002_RK, 0.221716012947_RK, 0.22198072296_RK, 0.222245164359_RK, &
1186 : 0.222509337463_RK, 0.222773242589_RK, 0.223036880051_RK, 0.223300250165_RK, &
1187 : 0.223563353244_RK, 0.2238261896_RK, 0.224088759545_RK, 0.224351063389_RK, &
1188 : 0.224613101442_RK, 0.224874874012_RK, 0.225136381406_RK, 0.22539762393_RK, &
1189 : 0.22565860189_RK, 0.22591931559_RK, 0.226179765333_RK, 0.226439951422_RK, &
1190 : 0.226699874157_RK, 0.22695953384_RK, 0.227218930768_RK, 0.227478065241_RK, &
1191 : 0.227736937556_RK, 0.227995548009_RK, 0.228253896895_RK, 0.22851198451_RK, &
1192 : 0.228769811145_RK, 0.229027377095_RK, 0.22928468265_RK, 0.229541728101_RK, &
1193 : 0.229798513738_RK, 0.23005503985_RK, 0.230311306723_RK, 0.230567314646_RK, &
1194 : 0.230823063904_RK, 0.231078554782_RK, 0.231333787564_RK, 0.231588762534_RK, &
1195 : 0.231843479974_RK, 0.232097940164_RK, 0.232352143387_RK, 0.232606089921_RK, &
1196 : 0.232859780045_RK, 0.233113214036_RK, 0.233366392173_RK, 0.233619314731_RK, &
1197 : 0.233871981984_RK, 0.234124394209_RK, 0.234376551677_RK, 0.234628454662_RK, &
1198 : 0.234880103436_RK, 0.235131498268_RK, 0.235382639431_RK, 0.235633527192_RK, &
1199 : 0.23588416182_RK, 0.236134543582_RK, 0.236384672746_RK, 0.236634549577_RK, &
1200 : 0.23688417434_RK, 0.2371335473_RK, 0.237382668719_RK, 0.237631538861_RK, &
1201 : 0.237880157987_RK, 0.238128526359_RK, 0.238376644236_RK, 0.238624511878_RK, &
1202 : 0.238872129544_RK, 0.23911949749_RK, 0.239366615975_RK, 0.239613485254_RK, &
1203 : 0.239860105583_RK, 0.240106477217_RK, 0.240352600409_RK, 0.240598475413_RK, &
1204 : 0.240844102481_RK, 0.241089481863_RK, 0.241334613813_RK, 0.241579498578_RK, &
1205 : 0.241824136409_RK, 0.242068527555_RK, 0.242312672262_RK, 0.242556570778_RK, &
1206 : 0.24280022335_RK, 0.243043630222_RK, 0.243286791641_RK, 0.243529707849_RK, &
1207 : 0.24377237909_RK, 0.244014805607_RK, 0.244256987642_RK, 0.244498925435_RK, &
1208 : 0.244740619229_RK, 0.244982069261_RK, 0.245223275772_RK, 0.245464238999_RK, &
1209 : 0.24570495918_RK, 0.245945436553_RK, 0.246185671353_RK, 0.246425663816_RK, &
1210 : 0.246665414177_RK, 0.24690492267_RK, 0.247144189529_RK, 0.247383214985_RK, &
1211 : 0.247621999273_RK, 0.247860542621_RK, 0.248098845263_RK, 0.248336907427_RK, &
1212 : 0.248574729343_RK, 0.24881231124_RK, 0.249049653346_RK, 0.249286755888_RK, &
1213 : 0.249523619094_RK, 0.249760243188_RK, 0.249996628397_RK, 0.250232774945_RK, &
1214 : 0.250468683057_RK, 0.250704352956_RK, 0.250939784865_RK, 0.251174979007_RK, &
1215 : 0.251409935601_RK, 0.251644654871_RK, 0.251879137035_RK, 0.252113382314_RK, &
1216 : 0.252347390927_RK, 0.252581163092_RK, 0.252814699027_RK, 0.253047998949_RK, &
1217 : 0.253281063075_RK, 0.253513891621_RK, 0.253746484801_RK, 0.253978842831_RK, &
1218 : 0.254210965925_RK, 0.254442854297_RK, 0.254674508159_RK, 0.254905927723_RK, &
1219 : 0.255137113202_RK, 0.255368064807_RK, 0.255598782747_RK, 0.255829267233_RK, &
1220 : 0.256059518475_RK, 0.256289536681_RK, 0.256519322059_RK, 0.256748874817_RK, &
1221 : 0.256978195162_RK, 0.2572072833_RK, 0.257436139437_RK, 0.257664763779_RK, &
1222 : 0.25789315653_RK, 0.258121317895_RK, 0.258349248077_RK, 0.258576947278_RK, &
1223 : 0.258804415703_RK, 0.259031653551_RK, 0.259258661026_RK, 0.259485438327_RK, &
1224 : 0.259711985655_RK, 0.259938303209_RK, 0.260164391189_RK, 0.260390249794_RK, &
1225 : 0.260615879221_RK, 0.260841279668_RK, 0.261066451331_RK, 0.261291394408_RK, &
1226 : 0.261516109095_RK, 0.261740595585_RK, 0.261964854076_RK, 0.26218888476_RK, &
1227 : 0.262412687831_RK, 0.262636263484_RK, 0.26285961191_RK, 0.263082733302_RK, &
1228 : 0.263305627851_RK, 0.263528295749_RK, 0.263750737186_RK, 0.263972952353_RK, &
1229 : 0.264194941439_RK, 0.264416704633_RK, 0.264638242124_RK, 0.2648595541_RK, &
1230 : 0.265080640748_RK, 0.265301502256_RK, 0.265522138811_RK, 0.265742550598_RK, &
1231 : 0.265962737803_RK, 0.266182700611_RK, 0.266402439207_RK, 0.266621953774_RK, &
1232 : 0.266841244498_RK, 0.26706031156_RK, 0.267279155143_RK, 0.26749777543_RK, &
1233 : 0.267716172603_RK, 0.267934346842_RK, 0.268152298328_RK, 0.268370027242_RK, &
1234 : 0.268587533763_RK, 0.268804818071_RK, 0.269021880344_RK, 0.269238720761_RK, &
1235 : 0.2694553395_RK, 0.269671736739_RK, 0.269887912653_RK, 0.270103867421_RK, &
1236 : 0.270319601217_RK, 0.270535114218_RK, 0.270750406598_RK, 0.270965478533_RK, &
1237 : 0.271180330196_RK, 0.271394961762_RK, 0.271609373403_RK, 0.271823565293_RK, &
1238 : 0.272037537604_RK, 0.272251290507_RK, 0.272464824175_RK, 0.272678138779_RK, &
1239 : 0.272891234489_RK, 0.273104111476_RK, 0.273316769908_RK, 0.273529209956_RK, &
1240 : 0.273741431789_RK, 0.273953435575_RK, 0.274165221481_RK, 0.274376789677_RK, &
1241 : 0.274588140328_RK, 0.274799273601_RK, 0.275010189664_RK, 0.275220888681_RK, &
1242 : 0.275431370818_RK, 0.275641636241_RK, 0.275851685114_RK, 0.2760615176_RK, &
1243 : 0.276271133865_RK, 0.276480534071_RK, 0.276689718381_RK, 0.276898686958_RK, &
1244 : 0.277107439965_RK, 0.277315977561_RK, 0.27752429991_RK, 0.277732407172_RK, &
1245 : 0.277940299507_RK, 0.278147977076_RK, 0.278355440038_RK, 0.278562688553_RK, &
1246 : 0.278769722779_RK, 0.278976542875_RK, 0.279183149_RK, 0.27938954131_RK, &
1247 : 0.279595719963_RK, 0.279801685116_RK, 0.280007436926_RK, 0.280212975549_RK, &
1248 : 0.280418301139_RK, 0.280623413854_RK, 0.280828313848_RK, 0.281033001275_RK, &
1249 : 0.281237476289_RK, 0.281441739045_RK, 0.281645789695_RK, 0.281849628394_RK, &
1250 : 0.282053255293_RK, 0.282256670545_RK, 0.282459874302_RK, 0.282662866715_RK, &
1251 : 0.282865647935_RK, 0.283068218114_RK, 0.283270577402_RK, 0.283472725948_RK, &
1252 : 0.283674663903_RK, 0.283876391415_RK, 0.284077908635_RK, 0.284279215709_RK, &
1253 : 0.284480312788_RK, 0.284681200017_RK, 0.284881877546_RK, 0.285082345521_RK, &
1254 : 0.285282604088_RK, 0.285482653395_RK, 0.285682493588_RK, 0.285882124811_RK, &
1255 : 0.286081547211_RK, 0.286280760932_RK, 0.286479766119_RK, 0.286678562916_RK, &
1256 : 0.286877151468_RK, 0.287075531918_RK, 0.287273704409_RK, 0.287471669084_RK, &
1257 : 0.287669426085_RK, 0.287866975555_RK, 0.288064317636_RK, 0.28826145247_RK, &
1258 : 0.288458380196_RK, 0.288655100957_RK, 0.288851614893_RK, 0.289047922144_RK, &
1259 : 0.289244022849_RK, 0.289439917148_RK, 0.289635605182_RK, 0.289831087087_RK, &
1260 : 0.290026363003_RK, 0.290221433068_RK, 0.290416297419_RK, 0.290610956195_RK, &
1261 : 0.290805409533_RK, 0.290999657568_RK, 0.291193700439_RK, 0.29138753828_RK, &
1262 : 0.291581171228_RK, 0.291774599419_RK, 0.291967822987_RK, 0.292160842068_RK, &
1263 : 0.292353656796_RK, 0.292546267306_RK, 0.292738673731_RK, 0.292930876204_RK, &
1264 : 0.29312287486_RK, 0.293314669832_RK, 0.293506261251_RK, 0.293697649251_RK, &
1265 : 0.293888833963_RK, 0.294079815519_RK, 0.294270594051_RK, 0.29446116969_RK, &
1266 : 0.294651542566_RK, 0.294841712811_RK, 0.295031680553_RK, 0.295221445924_RK, &
1267 : 0.295411009053_RK, 0.295600370069_RK, 0.295789529101_RK, 0.295978486277_RK, &
1268 : 0.296167241727_RK, 0.296355795578_RK, 0.296544147958_RK, 0.296732298995_RK, &
1269 : 0.296920248815_RK, 0.297107997546_RK, 0.297295545315_RK, 0.297482892246_RK, &
1270 : 0.297670038468_RK, 0.297856984104_RK, 0.298043729282_RK, 0.298230274125_RK, &
1271 : 0.298416618759_RK, 0.298602763308_RK, 0.298788707897_RK, 0.298974452649_RK, &
1272 : 0.299159997689_RK, 0.299345343139_RK, 0.299530489123_RK, 0.299715435764_RK, &
1273 : 0.299900183184_RK, 0.300084731505_RK, 0.30026908085_RK, 0.300453231339_RK, &
1274 : 0.300637183096_RK, 0.30082093624_RK, 0.301004490893_RK, 0.301187847175_RK, &
1275 : 0.301371005207_RK, 0.301553965108_RK, 0.301736726999_RK, 0.301919290999_RK, &
1276 : 0.302101657227_RK, 0.302283825802_RK, 0.302465796843_RK, 0.302647570468_RK, &
1277 : 0.302829146795_RK, 0.303010525942_RK, 0.303191708028_RK, 0.303372693168_RK, &
1278 : 0.303553481481_RK, 0.303734073083_RK, 0.30391446809_RK, 0.304094666619_RK, &
1279 : 0.304274668786_RK, 0.304454474707_RK, 0.304634084497_RK, 0.304813498271_RK, &
1280 : 0.304992716144_RK, 0.305171738232_RK, 0.305350564647_RK, 0.305529195506_RK, &
1281 : 0.305707630921_RK, 0.305885871006_RK, 0.306063915875_RK, 0.306241765641_RK, &
1282 : 0.306419420416_RK, 0.306596880314_RK, 0.306774145446_RK, 0.306951215926_RK, &
1283 : 0.307128091864_RK, 0.307304773373_RK, 0.307481260563_RK, 0.307657553547_RK, &
1284 : 0.307833652434_RK, 0.308009557336_RK, 0.308185268362_RK, 0.308360785624_RK, &
1285 : 0.308536109231_RK, 0.308711239292_RK, 0.308886175918_RK, 0.309060919216_RK, &
1286 : 0.309235469297_RK, 0.309409826268_RK, 0.309583990239_RK, 0.309757961317_RK, &
1287 : 0.309931739611_RK, 0.310105325228_RK, 0.310278718275_RK, 0.31045191886_RK, &
1288 : 0.31062492709_RK, 0.310797743071_RK, 0.310970366911_RK, 0.311142798715_RK, &
1289 : 0.31131503859_RK, 0.31148708664_RK, 0.311658942973_RK, 0.311830607693_RK, &
1290 : 0.312002080905_RK, 0.312173362715_RK, 0.312344453226_RK, 0.312515352544_RK, &
1291 : 0.312686060772_RK, 0.312856578014_RK, 0.313026904375_RK, 0.313197039958_RK, &
1292 : 0.313366984865_RK, 0.313536739201_RK, 0.313706303067_RK, 0.313875676567_RK, &
1293 : 0.314044859803_RK, 0.314213852877_RK, 0.31438265589_RK, 0.314551268945_RK, &
1294 : 0.314719692144_RK, 0.314887925586_RK, 0.315055969374_RK, 0.315223823609_RK, &
1295 : 0.31539148839_RK, 0.315558963818_RK, 0.315726249993_RK, 0.315893347016_RK, &
1296 : 0.316060254985_RK, 0.316226974001_RK, 0.316393504163_RK, 0.31655984557_RK, &
1297 : 0.31672599832_RK, 0.316891962512_RK, 0.317057738245_RK, 0.317223325617_RK, &
1298 : 0.317388724726_RK, 0.31755393567_RK, 0.317718958546_RK, 0.317883793451_RK, &
1299 : 0.318048440483_RK, 0.318212899739_RK, 0.318377171315_RK, 0.318541255307_RK, &
1300 : 0.318705151813_RK, 0.318868860929_RK, 0.319032382749_RK, 0.31919571737_RK, &
1301 : 0.319358864888_RK, 0.319521825397_RK, 0.319684598993_RK, 0.31984718577_RK, &
1302 : 0.320009585823_RK, 0.320171799247_RK, 0.320333826135_RK, 0.320495666583_RK, &
1303 : 0.320657320683_RK, 0.320818788529_RK, 0.320980070215_RK, 0.321141165834_RK, &
1304 : 0.321302075479_RK, 0.321462799242_RK, 0.321623337217_RK, 0.321783689496_RK, &
1305 : 0.321943856171_RK, 0.322103837334_RK, 0.322263633077_RK, 0.322423243491_RK, &
1306 : 0.322582668669_RK, 0.322741908701_RK, 0.322900963677_RK, 0.323059833691_RK, &
1307 : 0.323218518831_RK, 0.323377019188_RK, 0.323535334852_RK, 0.323693465915_RK, &
1308 : 0.323851412464_RK, 0.324009174591_RK, 0.324166752385_RK, 0.324324145934_RK, &
1309 : 0.324481355329_RK, 0.324638380658_RK, 0.324795222009_RK, 0.324951879472_RK, &
1310 : 0.325108353134_RK, 0.325264643085_RK, 0.325420749411_RK, 0.3255766722_RK, &
1311 : 0.325732411541_RK, 0.325887967521_RK, 0.326043340226_RK, 0.326198529745_RK, &
1312 : 0.326353536163_RK, 0.326508359567_RK, 0.326663000045_RK, 0.326817457682_RK, &
1313 : 0.326971732564_RK, 0.327125824778_RK, 0.327279734408_RK, 0.327433461542_RK, &
1314 : 0.327587006263_RK, 0.327740368658_RK, 0.327893548812_RK, 0.328046546808_RK, &
1315 : 0.328199362732_RK, 0.328351996669_RK, 0.328504448702_RK, 0.328656718917_RK ]
1316 :
1317 : real(RK), parameter :: VEC_YU_2(1001:2000) = [ &
1318 : 0.328808807396_RK, 0.328960714223_RK, 0.329112439483_RK, 0.329263983259_RK, &
1319 : 0.329415345633_RK, 0.32956652669_RK, 0.329717526511_RK, 0.32986834518_RK, &
1320 : 0.330018982779_RK, 0.330169439391_RK, 0.330319715097_RK, 0.33046980998_RK, &
1321 : 0.330619724122_RK, 0.330769457604_RK, 0.330919010508_RK, 0.331068382916_RK, &
1322 : 0.331217574907_RK, 0.331366586564_RK, 0.331515417967_RK, 0.331664069197_RK, &
1323 : 0.331812540334_RK, 0.331960831459_RK, 0.332108942652_RK, 0.332256873993_RK, &
1324 : 0.332404625561_RK, 0.332552197437_RK, 0.332699589699_RK, 0.332846802427_RK, &
1325 : 0.332993835701_RK, 0.333140689599_RK, 0.3332873642_RK, 0.333433859582_RK, &
1326 : 0.333580175825_RK, 0.333726313006_RK, 0.333872271204_RK, 0.334018050496_RK, &
1327 : 0.334163650961_RK, 0.334309072676_RK, 0.334454315719_RK, 0.334599380166_RK, &
1328 : 0.334744266096_RK, 0.334888973585_RK, 0.33503350271_RK, 0.335177853547_RK, &
1329 : 0.335322026174_RK, 0.335466020667_RK, 0.335609837101_RK, 0.335753475553_RK, &
1330 : 0.335896936099_RK, 0.336040218815_RK, 0.336183323776_RK, 0.336326251057_RK, &
1331 : 0.336469000734_RK, 0.336611572882_RK, 0.336753967576_RK, 0.336896184891_RK, &
1332 : 0.3370382249_RK, 0.33718008768_RK, 0.337321773304_RK, 0.337463281846_RK, &
1333 : 0.33760461338_RK, 0.337745767981_RK, 0.337886745721_RK, 0.338027546675_RK, &
1334 : 0.338168170916_RK, 0.338308618517_RK, 0.33844888955_RK, 0.338588984091_RK, &
1335 : 0.33872890221_RK, 0.33886864398_RK, 0.339008209475_RK, 0.339147598766_RK, &
1336 : 0.339286811925_RK, 0.339425849025_RK, 0.339564710138_RK, 0.339703395335_RK, &
1337 : 0.339841904688_RK, 0.339980238268_RK, 0.340118396147_RK, 0.340256378395_RK, &
1338 : 0.340394185084_RK, 0.340531816284_RK, 0.340669272067_RK, 0.340806552503_RK, &
1339 : 0.340943657662_RK, 0.341080587614_RK, 0.34121734243_RK, 0.341353922179_RK, &
1340 : 0.341490326932_RK, 0.341626556758_RK, 0.341762611726_RK, 0.341898491907_RK, &
1341 : 0.342034197368_RK, 0.34216972818_RK, 0.342305084412_RK, 0.342440266131_RK, &
1342 : 0.342575273407_RK, 0.342710106308_RK, 0.342844764904_RK, 0.342979249261_RK, &
1343 : 0.343113559448_RK, 0.343247695533_RK, 0.343381657583_RK, 0.343515445668_RK, &
1344 : 0.343649059853_RK, 0.343782500207_RK, 0.343915766796_RK, 0.344048859689_RK, &
1345 : 0.344181778951_RK, 0.344314524649_RK, 0.344447096851_RK, 0.344579495623_RK, &
1346 : 0.344711721031_RK, 0.344843773142_RK, 0.344975652022_RK, 0.345107357736_RK, &
1347 : 0.345238890351_RK, 0.345370249932_RK, 0.345501436546_RK, 0.345632450257_RK, &
1348 : 0.34576329113_RK, 0.345893959232_RK, 0.346024454627_RK, 0.346154777379_RK, &
1349 : 0.346284927555_RK, 0.346414905218_RK, 0.346544710432_RK, 0.346674343264_RK, &
1350 : 0.346803803775_RK, 0.346933092032_RK, 0.347062208097_RK, 0.347191152035_RK, &
1351 : 0.347319923909_RK, 0.347448523782_RK, 0.34757695172_RK, 0.347705207784_RK, &
1352 : 0.347833292037_RK, 0.347961204544_RK, 0.348088945366_RK, 0.348216514568_RK, &
1353 : 0.34834391221_RK, 0.348471138357_RK, 0.348598193069_RK, 0.348725076411_RK, &
1354 : 0.348851788443_RK, 0.348978329228_RK, 0.349104698827_RK, 0.349230897303_RK, &
1355 : 0.349356924717_RK, 0.349482781131_RK, 0.349608466606_RK, 0.349733981203_RK, &
1356 : 0.349859324983_RK, 0.349984498007_RK, 0.350109500337_RK, 0.350234332033_RK, &
1357 : 0.350358993156_RK, 0.350483483765_RK, 0.350607803923_RK, 0.350731953687_RK, &
1358 : 0.35085593312_RK, 0.350979742281_RK, 0.351103381229_RK, 0.351226850025_RK, &
1359 : 0.351350148728_RK, 0.351473277398_RK, 0.351596236094_RK, 0.351719024875_RK, &
1360 : 0.3518416438_RK, 0.351964092929_RK, 0.35208637232_RK, 0.352208482032_RK, &
1361 : 0.352330422124_RK, 0.352452192653_RK, 0.35257379368_RK, 0.352695225262_RK, &
1362 : 0.352816487456_RK, 0.352937580322_RK, 0.353058503916_RK, 0.353179258297_RK, &
1363 : 0.353299843523_RK, 0.353420259651_RK, 0.353540506738_RK, 0.353660584842_RK, &
1364 : 0.35378049402_RK, 0.353900234329_RK, 0.354019805826_RK, 0.354139208567_RK, &
1365 : 0.35425844261_RK, 0.354377508012_RK, 0.354496404828_RK, 0.354615133114_RK, &
1366 : 0.354733692928_RK, 0.354852084326_RK, 0.354970307363_RK, 0.355088362094_RK, &
1367 : 0.355206248577_RK, 0.355323966867_RK, 0.355441517019_RK, 0.355558899089_RK, &
1368 : 0.355676113131_RK, 0.355793159202_RK, 0.355910037356_RK, 0.356026747648_RK, &
1369 : 0.356143290133_RK, 0.356259664866_RK, 0.356375871902_RK, 0.356491911294_RK, &
1370 : 0.356607783098_RK, 0.356723487367_RK, 0.356839024156_RK, 0.356954393519_RK, &
1371 : 0.35706959551_RK, 0.357184630183_RK, 0.35729949759_RK, 0.357414197787_RK, &
1372 : 0.357528730826_RK, 0.357643096761_RK, 0.357757295645_RK, 0.357871327531_RK, &
1373 : 0.357985192472_RK, 0.358098890522_RK, 0.358212421732_RK, 0.358325786157_RK, &
1374 : 0.358438983847_RK, 0.358552014857_RK, 0.358664879237_RK, 0.358777577041_RK, &
1375 : 0.358890108321_RK, 0.359002473128_RK, 0.359114671515_RK, 0.359226703533_RK, &
1376 : 0.359338569235_RK, 0.359450268671_RK, 0.359561801893_RK, 0.359673168954_RK, &
1377 : 0.359784369903_RK, 0.359895404792_RK, 0.360006273672_RK, 0.360116976594_RK, &
1378 : 0.36022751361_RK, 0.360337884769_RK, 0.360448090122_RK, 0.360558129721_RK, &
1379 : 0.360668003615_RK, 0.360777711854_RK, 0.360887254489_RK, 0.360996631571_RK, &
1380 : 0.361105843148_RK, 0.361214889271_RK, 0.36132376999_RK, 0.361432485354_RK, &
1381 : 0.361541035413_RK, 0.361649420216_RK, 0.361757639813_RK, 0.361865694253_RK, &
1382 : 0.361973583586_RK, 0.362081307859_RK, 0.362188867123_RK, 0.362296261425_RK, &
1383 : 0.362403490816_RK, 0.362510555343_RK, 0.362617455054_RK, 0.36272419_RK, &
1384 : 0.362830760226_RK, 0.362937165783_RK, 0.363043406718_RK, 0.363149483079_RK, &
1385 : 0.363255394914_RK, 0.36336114227_RK, 0.363466725196_RK, 0.36357214374_RK, &
1386 : 0.363677397947_RK, 0.363782487867_RK, 0.363887413546_RK, 0.363992175032_RK, &
1387 : 0.364096772372_RK, 0.364201205612_RK, 0.364305474799_RK, 0.364409579981_RK, &
1388 : 0.364513521204_RK, 0.364617298515_RK, 0.364720911959_RK, 0.364824361585_RK, &
1389 : 0.364927647437_RK, 0.365030769562_RK, 0.365133728007_RK, 0.365236522816_RK, &
1390 : 0.365339154037_RK, 0.365441621714_RK, 0.365543925894_RK, 0.365646066623_RK, &
1391 : 0.365748043945_RK, 0.365849857906_RK, 0.365951508551_RK, 0.366052995927_RK, &
1392 : 0.366154320077_RK, 0.366255481046_RK, 0.366356478881_RK, 0.366457313625_RK, &
1393 : 0.366557985323_RK, 0.36665849402_RK, 0.366758839761_RK, 0.366859022589_RK, &
1394 : 0.36695904255_RK, 0.367058899687_RK, 0.367158594044_RK, 0.367258125667_RK, &
1395 : 0.367357494598_RK, 0.367456700881_RK, 0.367555744561_RK, 0.36765462568_RK, &
1396 : 0.367753344284_RK, 0.367851900414_RK, 0.367950294114_RK, 0.368048525428_RK, &
1397 : 0.368146594399_RK, 0.36824450107_RK, 0.368342245484_RK, 0.368439827684_RK, &
1398 : 0.368537247713_RK, 0.368634505613_RK, 0.368731601427_RK, 0.368828535197_RK, &
1399 : 0.368925306967_RK, 0.369021916778_RK, 0.369118364673_RK, 0.369214650693_RK, &
1400 : 0.369310774882_RK, 0.36940673728_RK, 0.36950253793_RK, 0.369598176874_RK, &
1401 : 0.369693654153_RK, 0.369788969809_RK, 0.369884123883_RK, 0.369979116417_RK, &
1402 : 0.370073947452_RK, 0.37016861703_RK, 0.370263125191_RK, 0.370357471977_RK, &
1403 : 0.370451657429_RK, 0.370545681587_RK, 0.370639544492_RK, 0.370733246185_RK, &
1404 : 0.370826786707_RK, 0.370920166098_RK, 0.371013384399_RK, 0.371106441649_RK, &
1405 : 0.37119933789_RK, 0.371292073161_RK, 0.371384647502_RK, 0.371477060953_RK, &
1406 : 0.371569313555_RK, 0.371661405347_RK, 0.371753336368_RK, 0.371845106659_RK, &
1407 : 0.371936716259_RK, 0.372028165207_RK, 0.372119453543_RK, 0.372210581305_RK, &
1408 : 0.372301548534_RK, 0.372392355268_RK, 0.372483001547_RK, 0.372573487408_RK, &
1409 : 0.372663812892_RK, 0.372753978036_RK, 0.372843982879_RK, 0.372933827461_RK, &
1410 : 0.373023511819_RK, 0.373113035991_RK, 0.373202400017_RK, 0.373291603934_RK, &
1411 : 0.373380647781_RK, 0.373469531595_RK, 0.373558255414_RK, 0.373646819277_RK, &
1412 : 0.373735223221_RK, 0.373823467284_RK, 0.373911551503_RK, 0.373999475916_RK, &
1413 : 0.37408724056_RK, 0.374174845473_RK, 0.374262290692_RK, 0.374349576255_RK, &
1414 : 0.374436702197_RK, 0.374523668557_RK, 0.374610475371_RK, 0.374697122676_RK, &
1415 : 0.374783610509_RK, 0.374869938907_RK, 0.374956107906_RK, 0.375042117542_RK, &
1416 : 0.375127967852_RK, 0.375213658872_RK, 0.37529919064_RK, 0.375384563189_RK, &
1417 : 0.375469776558_RK, 0.375554830782_RK, 0.375639725896_RK, 0.375724461937_RK, &
1418 : 0.37580903894_RK, 0.375893456941_RK, 0.375977715976_RK, 0.37606181608_RK, &
1419 : 0.376145757289_RK, 0.376229539637_RK, 0.37631316316_RK, 0.376396627894_RK, &
1420 : 0.376479933873_RK, 0.376563081133_RK, 0.376646069707_RK, 0.376728899632_RK, &
1421 : 0.376811570942_RK, 0.376894083671_RK, 0.376976437854_RK, 0.377058633526_RK, &
1422 : 0.377140670721_RK, 0.377222549474_RK, 0.377304269818_RK, 0.377385831788_RK, &
1423 : 0.377467235419_RK, 0.377548480743_RK, 0.377629567795_RK, 0.377710496609_RK, &
1424 : 0.377791267219_RK, 0.377871879658_RK, 0.37795233396_RK, 0.378032630158_RK, &
1425 : 0.378112768286_RK, 0.378192748378_RK, 0.378272570466_RK, 0.378352234585_RK, &
1426 : 0.378431740766_RK, 0.378511089043_RK, 0.378590279449_RK, 0.378669312017_RK, &
1427 : 0.37874818678_RK, 0.378826903771_RK, 0.378905463021_RK, 0.378983864565_RK, &
1428 : 0.379062108433_RK, 0.37914019466_RK, 0.379218123276_RK, 0.379295894315_RK, &
1429 : 0.379373507808_RK, 0.379450963788_RK, 0.379528262286_RK, 0.379605403335_RK, &
1430 : 0.379682386967_RK, 0.379759213212_RK, 0.379835882104_RK, 0.379912393674_RK, &
1431 : 0.379988747952_RK, 0.380064944972_RK, 0.380140984763_RK, 0.380216867358_RK, &
1432 : 0.380292592787_RK, 0.380368161083_RK, 0.380443572275_RK, 0.380518826396_RK, &
1433 : 0.380593923475_RK, 0.380668863545_RK, 0.380743646634_RK, 0.380818272776_RK, &
1434 : 0.380892741999_RK, 0.380967054335_RK, 0.381041209813_RK, 0.381115208466_RK, &
1435 : 0.381189050322_RK, 0.381262735412_RK, 0.381336263766_RK, 0.381409635414_RK, &
1436 : 0.381482850387_RK, 0.381555908715_RK, 0.381628810426_RK, 0.381701555551_RK, &
1437 : 0.381774144121_RK, 0.381846576163_RK, 0.381918851709_RK, 0.381990970787_RK, &
1438 : 0.382062933426_RK, 0.382134739657_RK, 0.382206389509_RK, 0.38227788301_RK, &
1439 : 0.382349220191_RK, 0.382420401079_RK, 0.382491425704_RK, 0.382562294094_RK, &
1440 : 0.38263300628_RK, 0.382703562288_RK, 0.382773962149_RK, 0.382844205891_RK, &
1441 : 0.382914293541_RK, 0.382984225129_RK, 0.383054000684_RK, 0.383123620232_RK, &
1442 : 0.383193083804_RK, 0.383262391426_RK, 0.383331543127_RK, 0.383400538934_RK, &
1443 : 0.383469378877_RK, 0.383538062982_RK, 0.383606591278_RK, 0.383674963791_RK, &
1444 : 0.383743180551_RK, 0.383811241584_RK, 0.383879146918_RK, 0.383946896581_RK, &
1445 : 0.384014490599_RK, 0.384081929_RK, 0.384149211811_RK, 0.38421633906_RK, &
1446 : 0.384283310773_RK, 0.384350126978_RK, 0.384416787701_RK, 0.384483292969_RK, &
1447 : 0.384549642809_RK, 0.384615837248_RK, 0.384681876312_RK, 0.384747760028_RK, &
1448 : 0.384813488423_RK, 0.384879061522_RK, 0.384944479352_RK, 0.38500974194_RK, &
1449 : 0.385074849312_RK, 0.385139801493_RK, 0.38520459851_RK, 0.385269240389_RK, &
1450 : 0.385333727156_RK, 0.385398058837_RK, 0.385462235457_RK, 0.385526257042_RK, &
1451 : 0.385590123617_RK, 0.385653835209_RK, 0.385717391843_RK, 0.385780793545_RK, &
1452 : 0.385844040338_RK, 0.38590713225_RK, 0.385970069305_RK, 0.386032851528_RK, &
1453 : 0.386095478944_RK, 0.386157951579_RK, 0.386220269457_RK, 0.386282432603_RK, &
1454 : 0.386344441042_RK, 0.386406294798_RK, 0.386467993897_RK, 0.386529538363_RK, &
1455 : 0.386590928221_RK, 0.386652163494_RK, 0.386713244207_RK, 0.386774170385_RK, &
1456 : 0.386834942052_RK, 0.386895559231_RK, 0.386956021948_RK, 0.387016330226_RK, &
1457 : 0.387076484089_RK, 0.387136483561_RK, 0.387196328665_RK, 0.387256019426_RK, &
1458 : 0.387315555867_RK, 0.387374938013_RK, 0.387434165885_RK, 0.387493239508_RK, &
1459 : 0.387552158906_RK, 0.387610924101_RK, 0.387669535118_RK, 0.387727991978_RK, &
1460 : 0.387786294705_RK, 0.387844443323_RK, 0.387902437854_RK, 0.387960278321_RK, &
1461 : 0.388017964748_RK, 0.388075497156_RK, 0.388132875569_RK, 0.38819010001_RK, &
1462 : 0.3882471705_RK, 0.388304087062_RK, 0.38836084972_RK, 0.388417458495_RK, &
1463 : 0.388473913409_RK, 0.388530214485_RK, 0.388586361746_RK, 0.388642355212_RK, &
1464 : 0.388698194907_RK, 0.388753880852_RK, 0.388809413069_RK, 0.38886479158_RK, &
1465 : 0.388920016407_RK, 0.388975087572_RK, 0.389030005096_RK, 0.389084769_RK, &
1466 : 0.389139379307_RK, 0.389193836037_RK, 0.389248139213_RK, 0.389302288855_RK, &
1467 : 0.389356284985_RK, 0.389410127623_RK, 0.389463816792_RK, 0.389517352512_RK, &
1468 : 0.389570734804_RK, 0.389623963688_RK, 0.389677039187_RK, 0.38972996132_RK, &
1469 : 0.389782730109_RK, 0.389835345574_RK, 0.389887807735_RK, 0.389940116614_RK, &
1470 : 0.38999227223_RK, 0.390044274604_RK, 0.390096123756_RK, 0.390147819707_RK, &
1471 : 0.390199362477_RK, 0.390250752086_RK, 0.390301988554_RK, 0.390353071901_RK, &
1472 : 0.390404002147_RK, 0.390454779312_RK, 0.390505403415_RK, 0.390555874477_RK, &
1473 : 0.390606192517_RK, 0.390656357554_RK, 0.390706369609_RK, 0.390756228701_RK, &
1474 : 0.390805934848_RK, 0.390855488072_RK, 0.39090488839_RK, 0.390954135822_RK, &
1475 : 0.391003230387_RK, 0.391052172104_RK, 0.391100960993_RK, 0.391149597072_RK, &
1476 : 0.391198080361_RK, 0.391246410877_RK, 0.39129458864_RK, 0.391342613669_RK, &
1477 : 0.391390485981_RK, 0.391438205597_RK, 0.391485772534_RK, 0.39153318681_RK, &
1478 : 0.391580448445_RK, 0.391627557456_RK, 0.391674513861_RK, 0.39172131768_RK, &
1479 : 0.39176796893_RK, 0.391814467628_RK, 0.391860813794_RK, 0.391907007445_RK, &
1480 : 0.391953048599_RK, 0.391998937274_RK, 0.392044673487_RK, 0.392090257256_RK, &
1481 : 0.392135688599_RK, 0.392180967534_RK, 0.392226094077_RK, 0.392271068247_RK, &
1482 : 0.392315890061_RK, 0.392360559535_RK, 0.392405076688_RK, 0.392449441536_RK, &
1483 : 0.392493654097_RK, 0.392537714388_RK, 0.392581622425_RK, 0.392625378225_RK, &
1484 : 0.392668981806_RK, 0.392712433185_RK, 0.392755732377_RK, 0.3927988794_RK, &
1485 : 0.392841874271_RK, 0.392884717005_RK, 0.392927407619_RK, 0.392969946131_RK, &
1486 : 0.393012332555_RK, 0.393054566909_RK, 0.393096649209_RK, 0.39313857947_RK, &
1487 : 0.39318035771_RK, 0.393221983944_RK, 0.393263458188_RK, 0.393304780457_RK, &
1488 : 0.393345950769_RK, 0.393386969139_RK, 0.393427835581_RK, 0.393468550113_RK, &
1489 : 0.39350911275_RK, 0.393549523507_RK, 0.3935897824_RK, 0.393629889444_RK, &
1490 : 0.393669844655_RK, 0.393709648048_RK, 0.393749299638_RK, 0.393788799441_RK, &
1491 : 0.393828147471_RK, 0.393867343743_RK, 0.393906388274_RK, 0.393945281077_RK, &
1492 : 0.393984022167_RK, 0.39402261156_RK, 0.39406104927_RK, 0.394099335311_RK, &
1493 : 0.394137469699_RK, 0.394175452448_RK, 0.394213283572_RK, 0.394250963087_RK, &
1494 : 0.394288491006_RK, 0.394325867343_RK, 0.394363092114_RK, 0.394400165331_RK, &
1495 : 0.39443708701_RK, 0.394473857165_RK, 0.394510475809_RK, 0.394546942956_RK, &
1496 : 0.394583258621_RK, 0.394619422817_RK, 0.394655435558_RK, 0.394691296858_RK, &
1497 : 0.39472700673_RK, 0.394762565188_RK, 0.394797972246_RK, 0.394833227916_RK, &
1498 : 0.394868332214_RK, 0.394903285151_RK, 0.394938086741_RK, 0.394972736997_RK, &
1499 : 0.395007235934_RK, 0.395041583563_RK, 0.395075779897_RK, 0.395109824951_RK, &
1500 : 0.395143718736_RK, 0.395177461266_RK, 0.395211052553_RK, 0.39524449261_RK, &
1501 : 0.39527778145_RK, 0.395310919086_RK, 0.39534390553_RK, 0.395376740795_RK, &
1502 : 0.395409424892_RK, 0.395441957836_RK, 0.395474339637_RK, 0.395506570308_RK, &
1503 : 0.395538649862_RK, 0.39557057831_RK, 0.395602355665_RK, 0.395633981938_RK, &
1504 : 0.395665457143_RK, 0.39569678129_RK, 0.395727954391_RK, 0.395758976459_RK, &
1505 : 0.395789847504_RK, 0.39582056754_RK, 0.395851136577_RK, 0.395881554626_RK, &
1506 : 0.395911821701_RK, 0.395941937811_RK, 0.395971902968_RK, 0.396001717184_RK, &
1507 : 0.39603138047_RK, 0.396060892837_RK, 0.396090254297_RK, 0.396119464859_RK, &
1508 : 0.396148524537_RK, 0.396177433339_RK, 0.396206191278_RK, 0.396234798364_RK, &
1509 : 0.396263254608_RK, 0.396291560021_RK, 0.396319714613_RK, 0.396347718395_RK, &
1510 : 0.396375571378_RK, 0.396403273572_RK, 0.396430824988_RK, 0.396458225635_RK, &
1511 : 0.396485475525_RK, 0.396512574667_RK, 0.396539523072_RK, 0.39656632075_RK, &
1512 : 0.396592967711_RK, 0.396619463965_RK, 0.396645809523_RK, 0.396672004393_RK, &
1513 : 0.396698048586_RK, 0.396723942111_RK, 0.396749684979_RK, 0.396775277199_RK, &
1514 : 0.396800718781_RK, 0.396826009734_RK, 0.396851150068_RK, 0.396876139792_RK, &
1515 : 0.396900978915_RK, 0.396925667448_RK, 0.396950205399_RK, 0.396974592777_RK, &
1516 : 0.396998829592_RK, 0.397022915853_RK, 0.397046851568_RK, 0.397070636747_RK, &
1517 : 0.397094271399_RK, 0.397117755533_RK, 0.397141089157_RK, 0.39716427228_RK, &
1518 : 0.39718730491_RK, 0.397210187058_RK, 0.39723291873_RK, 0.397255499936_RK, &
1519 : 0.397277930684_RK, 0.397300210983_RK, 0.39732234084_RK, 0.397344320264_RK, &
1520 : 0.397366149264_RK, 0.397387827847_RK, 0.397409356022_RK, 0.397430733797_RK, &
1521 : 0.397451961179_RK, 0.397473038177_RK, 0.397493964799_RK, 0.397514741051_RK, &
1522 : 0.397535366943_RK, 0.397555842482_RK, 0.397576167675_RK, 0.397596342531_RK, &
1523 : 0.397616367056_RK, 0.397636241258_RK, 0.397655965145_RK, 0.397675538724_RK, &
1524 : 0.397694962001_RK, 0.397714234986_RK, 0.397733357684_RK, 0.397752330103_RK, &
1525 : 0.39777115225_RK, 0.397789824132_RK, 0.397808345755_RK, 0.397826717128_RK, &
1526 : 0.397844938256_RK, 0.397863009146_RK, 0.397880929806_RK, 0.397898700242_RK, &
1527 : 0.39791632046_RK, 0.397933790467_RK, 0.39795111027_RK, 0.397968279875_RK, &
1528 : 0.397985299288_RK, 0.398002168517_RK, 0.398018887566_RK, 0.398035456442_RK, &
1529 : 0.398051875152_RK, 0.398068143701_RK, 0.398084262096_RK, 0.398100230343_RK, &
1530 : 0.398116048447_RK, 0.398131716414_RK, 0.398147234251_RK, 0.398162601962_RK, &
1531 : 0.398177819554_RK, 0.398192887033_RK, 0.398207804404_RK, 0.398222571672_RK, &
1532 : 0.398237188843_RK, 0.398251655922_RK, 0.398265972915_RK, 0.398280139828_RK, &
1533 : 0.398294156664_RK, 0.39830802343_RK, 0.398321740131_RK, 0.398335306771_RK, &
1534 : 0.398348723357_RK, 0.398361989891_RK, 0.398375106381_RK, 0.39838807283_RK, &
1535 : 0.398400889243_RK, 0.398413555626_RK, 0.398426071982_RK, 0.398438438316_RK, &
1536 : 0.398450654634_RK, 0.398462720938_RK, 0.398474637235_RK, 0.398486403528_RK, &
1537 : 0.398498019821_RK, 0.39850948612_RK, 0.398520802428_RK, 0.398531968749_RK, &
1538 : 0.398542985087_RK, 0.398553851447_RK, 0.398564567832_RK, 0.398575134247_RK, &
1539 : 0.398585550695_RK, 0.398595817181_RK, 0.398605933707_RK, 0.398615900278_RK, &
1540 : 0.398625716898_RK, 0.398635383569_RK, 0.398644900296_RK, 0.398654267082_RK, &
1541 : 0.39866348393_RK, 0.398672550844_RK, 0.398681467827_RK, 0.398690234883_RK, &
1542 : 0.398698852014_RK, 0.398707319224_RK, 0.398715636516_RK, 0.398723803893_RK, &
1543 : 0.398731821357_RK, 0.398739688913_RK, 0.398747406562_RK, 0.398754974308_RK, &
1544 : 0.398762392153_RK, 0.3987696601_RK, 0.398776778152_RK, 0.398783746311_RK, &
1545 : 0.398790564579_RK, 0.39879723296_RK, 0.398803751456_RK, 0.398810120068_RK, &
1546 : 0.3988163388_RK, 0.398822407654_RK, 0.398828326631_RK, 0.398834095735_RK, &
1547 : 0.398839714966_RK, 0.398845184327_RK, 0.39885050382_RK, 0.398855673448_RK, &
1548 : 0.39886069321_RK, 0.398865563111_RK, 0.398870283151_RK, 0.398874853332_RK, &
1549 : 0.398879273655_RK, 0.398883544123_RK, 0.398887664737_RK, 0.398891635497_RK, &
1550 : 0.398895456407_RK, 0.398899127466_RK, 0.398902648676_RK, 0.398906020039_RK, &
1551 : 0.398909241556_RK, 0.398912313228_RK, 0.398915235055_RK, 0.398918007039_RK, &
1552 : 0.398920629181_RK, 0.398923101482_RK, 0.398925423943_RK, 0.398927596563_RK, &
1553 : 0.398929619345_RK, 0.398931492289_RK, 0.398933215395_RK, 0.398934788664_RK, &
1554 : 0.398936212097_RK, 0.398937485693_RK, 0.398938609454_RK, 0.398939583379_RK, &
1555 : 0.39894040747_RK, 0.398941081725_RK, 0.398941606146_RK, 0.398941980732_RK, &
1556 : 0.398942205484_RK, 0.398942280401_RK, 0.398942280401_RK, 0.398942205484_RK, &
1557 : 0.398941980732_RK, 0.398941606146_RK, 0.398941081725_RK, 0.39894040747_RK, &
1558 : 0.398939583379_RK, 0.398938609454_RK, 0.398937485693_RK, 0.398936212097_RK, &
1559 : 0.398934788664_RK, 0.398933215395_RK, 0.398931492289_RK, 0.398929619345_RK, &
1560 : 0.398927596563_RK, 0.398925423943_RK, 0.398923101482_RK, 0.398920629181_RK, &
1561 : 0.398918007039_RK, 0.398915235055_RK, 0.398912313228_RK, 0.398909241556_RK, &
1562 : 0.398906020039_RK, 0.398902648676_RK, 0.398899127466_RK, 0.398895456407_RK, &
1563 : 0.398891635497_RK, 0.398887664737_RK, 0.398883544123_RK, 0.398879273655_RK, &
1564 : 0.398874853332_RK, 0.398870283151_RK, 0.398865563111_RK, 0.39886069321_RK, &
1565 : 0.398855673448_RK, 0.39885050382_RK, 0.398845184327_RK, 0.398839714966_RK, &
1566 : 0.398834095735_RK, 0.398828326631_RK, 0.398822407654_RK, 0.3988163388_RK, &
1567 : 0.398810120068_RK, 0.398803751456_RK, 0.39879723296_RK, 0.398790564579_RK ]
1568 :
1569 : real(RK), parameter :: VEC_YU_3(2001:3000) = [ &
1570 : 0.398783746311_RK, 0.398776778152_RK, 0.3987696601_RK, 0.398762392153_RK, &
1571 : 0.398754974308_RK, 0.398747406562_RK, 0.398739688913_RK, 0.398731821357_RK, &
1572 : 0.398723803893_RK, 0.398715636516_RK, 0.398707319224_RK, 0.398698852014_RK, &
1573 : 0.398690234883_RK, 0.398681467827_RK, 0.398672550844_RK, 0.39866348393_RK, &
1574 : 0.398654267082_RK, 0.398644900296_RK, 0.398635383569_RK, 0.398625716898_RK, &
1575 : 0.398615900278_RK, 0.398605933707_RK, 0.398595817181_RK, 0.398585550695_RK, &
1576 : 0.398575134247_RK, 0.398564567832_RK, 0.398553851447_RK, 0.398542985087_RK, &
1577 : 0.398531968749_RK, 0.398520802428_RK, 0.39850948612_RK, 0.398498019821_RK, &
1578 : 0.398486403528_RK, 0.398474637235_RK, 0.398462720938_RK, 0.398450654634_RK, &
1579 : 0.398438438316_RK, 0.398426071982_RK, 0.398413555626_RK, 0.398400889243_RK, &
1580 : 0.39838807283_RK, 0.398375106381_RK, 0.398361989891_RK, 0.398348723357_RK, &
1581 : 0.398335306771_RK, 0.398321740131_RK, 0.39830802343_RK, 0.398294156664_RK, &
1582 : 0.398280139828_RK, 0.398265972915_RK, 0.398251655922_RK, 0.398237188843_RK, &
1583 : 0.398222571672_RK, 0.398207804404_RK, 0.398192887033_RK, 0.398177819554_RK, &
1584 : 0.398162601962_RK, 0.398147234251_RK, 0.398131716414_RK, 0.398116048447_RK, &
1585 : 0.398100230343_RK, 0.398084262096_RK, 0.398068143701_RK, 0.398051875152_RK, &
1586 : 0.398035456442_RK, 0.398018887566_RK, 0.398002168517_RK, 0.397985299288_RK, &
1587 : 0.397968279875_RK, 0.39795111027_RK, 0.397933790467_RK, 0.39791632046_RK, &
1588 : 0.397898700242_RK, 0.397880929806_RK, 0.397863009146_RK, 0.397844938256_RK, &
1589 : 0.397826717128_RK, 0.397808345755_RK, 0.397789824132_RK, 0.39777115225_RK, &
1590 : 0.397752330103_RK, 0.397733357684_RK, 0.397714234986_RK, 0.397694962001_RK, &
1591 : 0.397675538724_RK, 0.397655965145_RK, 0.397636241258_RK, 0.397616367056_RK, &
1592 : 0.397596342531_RK, 0.397576167675_RK, 0.397555842482_RK, 0.397535366943_RK, &
1593 : 0.397514741051_RK, 0.397493964799_RK, 0.397473038177_RK, 0.397451961179_RK, &
1594 : 0.397430733797_RK, 0.397409356022_RK, 0.397387827847_RK, 0.397366149264_RK, &
1595 : 0.397344320264_RK, 0.39732234084_RK, 0.397300210983_RK, 0.397277930684_RK, &
1596 : 0.397255499936_RK, 0.39723291873_RK, 0.397210187058_RK, 0.39718730491_RK, &
1597 : 0.39716427228_RK, 0.397141089157_RK, 0.397117755533_RK, 0.397094271399_RK, &
1598 : 0.397070636747_RK, 0.397046851568_RK, 0.397022915853_RK, 0.396998829592_RK, &
1599 : 0.396974592777_RK, 0.396950205399_RK, 0.396925667448_RK, 0.396900978915_RK, &
1600 : 0.396876139792_RK, 0.396851150068_RK, 0.396826009734_RK, 0.396800718781_RK, &
1601 : 0.396775277199_RK, 0.396749684979_RK, 0.396723942111_RK, 0.396698048586_RK, &
1602 : 0.396672004393_RK, 0.396645809523_RK, 0.396619463965_RK, 0.396592967711_RK, &
1603 : 0.39656632075_RK, 0.396539523072_RK, 0.396512574667_RK, 0.396485475525_RK, &
1604 : 0.396458225635_RK, 0.396430824988_RK, 0.396403273572_RK, 0.396375571378_RK, &
1605 : 0.396347718395_RK, 0.396319714613_RK, 0.396291560021_RK, 0.396263254608_RK, &
1606 : 0.396234798364_RK, 0.396206191278_RK, 0.396177433339_RK, 0.396148524537_RK, &
1607 : 0.396119464859_RK, 0.396090254297_RK, 0.396060892837_RK, 0.39603138047_RK, &
1608 : 0.396001717184_RK, 0.395971902968_RK, 0.395941937811_RK, 0.395911821701_RK, &
1609 : 0.395881554626_RK, 0.395851136577_RK, 0.39582056754_RK, 0.395789847504_RK, &
1610 : 0.395758976459_RK, 0.395727954391_RK, 0.39569678129_RK, 0.395665457143_RK, &
1611 : 0.395633981938_RK, 0.395602355665_RK, 0.39557057831_RK, 0.395538649862_RK, &
1612 : 0.395506570308_RK, 0.395474339637_RK, 0.395441957836_RK, 0.395409424892_RK, &
1613 : 0.395376740795_RK, 0.39534390553_RK, 0.395310919086_RK, 0.39527778145_RK, &
1614 : 0.39524449261_RK, 0.395211052553_RK, 0.395177461266_RK, 0.395143718736_RK, &
1615 : 0.395109824951_RK, 0.395075779897_RK, 0.395041583563_RK, 0.395007235934_RK, &
1616 : 0.394972736997_RK, 0.394938086741_RK, 0.394903285151_RK, 0.394868332214_RK, &
1617 : 0.394833227916_RK, 0.394797972246_RK, 0.394762565188_RK, 0.39472700673_RK, &
1618 : 0.394691296858_RK, 0.394655435558_RK, 0.394619422817_RK, 0.394583258621_RK, &
1619 : 0.394546942956_RK, 0.394510475809_RK, 0.394473857165_RK, 0.39443708701_RK, &
1620 : 0.394400165331_RK, 0.394363092114_RK, 0.394325867343_RK, 0.394288491006_RK, &
1621 : 0.394250963087_RK, 0.394213283572_RK, 0.394175452448_RK, 0.394137469699_RK, &
1622 : 0.394099335311_RK, 0.39406104927_RK, 0.39402261156_RK, 0.393984022167_RK, &
1623 : 0.393945281077_RK, 0.393906388274_RK, 0.393867343743_RK, 0.393828147471_RK, &
1624 : 0.393788799441_RK, 0.393749299638_RK, 0.393709648048_RK, 0.393669844655_RK, &
1625 : 0.393629889444_RK, 0.3935897824_RK, 0.393549523507_RK, 0.39350911275_RK, &
1626 : 0.393468550113_RK, 0.393427835581_RK, 0.393386969139_RK, 0.393345950769_RK, &
1627 : 0.393304780457_RK, 0.393263458188_RK, 0.393221983944_RK, 0.39318035771_RK, &
1628 : 0.39313857947_RK, 0.393096649209_RK, 0.393054566909_RK, 0.393012332555_RK, &
1629 : 0.392969946131_RK, 0.392927407619_RK, 0.392884717005_RK, 0.392841874271_RK, &
1630 : 0.3927988794_RK, 0.392755732377_RK, 0.392712433185_RK, 0.392668981806_RK, &
1631 : 0.392625378225_RK, 0.392581622425_RK, 0.392537714388_RK, 0.392493654097_RK, &
1632 : 0.392449441536_RK, 0.392405076688_RK, 0.392360559535_RK, 0.392315890061_RK, &
1633 : 0.392271068247_RK, 0.392226094077_RK, 0.392180967534_RK, 0.392135688599_RK, &
1634 : 0.392090257256_RK, 0.392044673487_RK, 0.391998937274_RK, 0.391953048599_RK, &
1635 : 0.391907007445_RK, 0.391860813794_RK, 0.391814467628_RK, 0.39176796893_RK, &
1636 : 0.39172131768_RK, 0.391674513861_RK, 0.391627557456_RK, 0.391580448445_RK, &
1637 : 0.39153318681_RK, 0.391485772534_RK, 0.391438205597_RK, 0.391390485981_RK, &
1638 : 0.391342613669_RK, 0.39129458864_RK, 0.391246410877_RK, 0.391198080361_RK, &
1639 : 0.391149597072_RK, 0.391100960993_RK, 0.391052172104_RK, 0.391003230387_RK, &
1640 : 0.390954135822_RK, 0.39090488839_RK, 0.390855488072_RK, 0.390805934848_RK, &
1641 : 0.390756228701_RK, 0.390706369609_RK, 0.390656357554_RK, 0.390606192517_RK, &
1642 : 0.390555874477_RK, 0.390505403415_RK, 0.390454779312_RK, 0.390404002147_RK, &
1643 : 0.390353071901_RK, 0.390301988554_RK, 0.390250752086_RK, 0.390199362477_RK, &
1644 : 0.390147819707_RK, 0.390096123756_RK, 0.390044274604_RK, 0.38999227223_RK, &
1645 : 0.389940116614_RK, 0.389887807735_RK, 0.389835345574_RK, 0.389782730109_RK, &
1646 : 0.38972996132_RK, 0.389677039187_RK, 0.389623963688_RK, 0.389570734804_RK, &
1647 : 0.389517352512_RK, 0.389463816792_RK, 0.389410127623_RK, 0.389356284985_RK, &
1648 : 0.389302288855_RK, 0.389248139213_RK, 0.389193836037_RK, 0.389139379307_RK, &
1649 : 0.389084769_RK, 0.389030005096_RK, 0.388975087572_RK, 0.388920016407_RK, &
1650 : 0.38886479158_RK, 0.388809413069_RK, 0.388753880852_RK, 0.388698194907_RK, &
1651 : 0.388642355212_RK, 0.388586361746_RK, 0.388530214485_RK, 0.388473913409_RK, &
1652 : 0.388417458495_RK, 0.38836084972_RK, 0.388304087062_RK, 0.3882471705_RK, &
1653 : 0.38819010001_RK, 0.388132875569_RK, 0.388075497156_RK, 0.388017964748_RK, &
1654 : 0.387960278321_RK, 0.387902437854_RK, 0.387844443323_RK, 0.387786294705_RK, &
1655 : 0.387727991978_RK, 0.387669535118_RK, 0.387610924101_RK, 0.387552158906_RK, &
1656 : 0.387493239508_RK, 0.387434165885_RK, 0.387374938013_RK, 0.387315555867_RK, &
1657 : 0.387256019426_RK, 0.387196328665_RK, 0.387136483561_RK, 0.387076484089_RK, &
1658 : 0.387016330226_RK, 0.386956021948_RK, 0.386895559231_RK, 0.386834942052_RK, &
1659 : 0.386774170385_RK, 0.386713244207_RK, 0.386652163494_RK, 0.386590928221_RK, &
1660 : 0.386529538363_RK, 0.386467993897_RK, 0.386406294798_RK, 0.386344441042_RK, &
1661 : 0.386282432603_RK, 0.386220269457_RK, 0.386157951579_RK, 0.386095478944_RK, &
1662 : 0.386032851528_RK, 0.385970069305_RK, 0.38590713225_RK, 0.385844040338_RK, &
1663 : 0.385780793545_RK, 0.385717391843_RK, 0.385653835209_RK, 0.385590123617_RK, &
1664 : 0.385526257042_RK, 0.385462235457_RK, 0.385398058837_RK, 0.385333727156_RK, &
1665 : 0.385269240389_RK, 0.38520459851_RK, 0.385139801493_RK, 0.385074849312_RK, &
1666 : 0.38500974194_RK, 0.384944479352_RK, 0.384879061522_RK, 0.384813488423_RK, &
1667 : 0.384747760028_RK, 0.384681876312_RK, 0.384615837248_RK, 0.384549642809_RK, &
1668 : 0.384483292969_RK, 0.384416787701_RK, 0.384350126978_RK, 0.384283310773_RK, &
1669 : 0.38421633906_RK, 0.384149211811_RK, 0.384081929_RK, 0.384014490599_RK, &
1670 : 0.383946896581_RK, 0.383879146918_RK, 0.383811241584_RK, 0.383743180551_RK, &
1671 : 0.383674963791_RK, 0.383606591278_RK, 0.383538062982_RK, 0.383469378877_RK, &
1672 : 0.383400538934_RK, 0.383331543127_RK, 0.383262391426_RK, 0.383193083804_RK, &
1673 : 0.383123620232_RK, 0.383054000684_RK, 0.382984225129_RK, 0.382914293541_RK, &
1674 : 0.382844205891_RK, 0.382773962149_RK, 0.382703562288_RK, 0.38263300628_RK, &
1675 : 0.382562294094_RK, 0.382491425704_RK, 0.382420401079_RK, 0.382349220191_RK, &
1676 : 0.38227788301_RK, 0.382206389509_RK, 0.382134739657_RK, 0.382062933426_RK, &
1677 : 0.381990970787_RK, 0.381918851709_RK, 0.381846576163_RK, 0.381774144121_RK, &
1678 : 0.381701555551_RK, 0.381628810426_RK, 0.381555908715_RK, 0.381482850387_RK, &
1679 : 0.381409635414_RK, 0.381336263766_RK, 0.381262735412_RK, 0.381189050322_RK, &
1680 : 0.381115208466_RK, 0.381041209813_RK, 0.380967054335_RK, 0.380892741999_RK, &
1681 : 0.380818272776_RK, 0.380743646634_RK, 0.380668863545_RK, 0.380593923475_RK, &
1682 : 0.380518826396_RK, 0.380443572275_RK, 0.380368161083_RK, 0.380292592787_RK, &
1683 : 0.380216867358_RK, 0.380140984763_RK, 0.380064944972_RK, 0.379988747952_RK, &
1684 : 0.379912393674_RK, 0.379835882104_RK, 0.379759213212_RK, 0.379682386967_RK, &
1685 : 0.379605403335_RK, 0.379528262286_RK, 0.379450963788_RK, 0.379373507808_RK, &
1686 : 0.379295894315_RK, 0.379218123276_RK, 0.37914019466_RK, 0.379062108433_RK, &
1687 : 0.378983864565_RK, 0.378905463021_RK, 0.378826903771_RK, 0.37874818678_RK, &
1688 : 0.378669312017_RK, 0.378590279449_RK, 0.378511089043_RK, 0.378431740766_RK, &
1689 : 0.378352234585_RK, 0.378272570466_RK, 0.378192748378_RK, 0.378112768286_RK, &
1690 : 0.378032630158_RK, 0.37795233396_RK, 0.377871879658_RK, 0.377791267219_RK, &
1691 : 0.377710496609_RK, 0.377629567795_RK, 0.377548480743_RK, 0.377467235419_RK, &
1692 : 0.377385831788_RK, 0.377304269818_RK, 0.377222549474_RK, 0.377140670721_RK, &
1693 : 0.377058633526_RK, 0.376976437854_RK, 0.376894083671_RK, 0.376811570942_RK, &
1694 : 0.376728899632_RK, 0.376646069707_RK, 0.376563081133_RK, 0.376479933873_RK, &
1695 : 0.376396627894_RK, 0.37631316316_RK, 0.376229539637_RK, 0.376145757289_RK, &
1696 : 0.37606181608_RK, 0.375977715976_RK, 0.375893456941_RK, 0.37580903894_RK, &
1697 : 0.375724461937_RK, 0.375639725896_RK, 0.375554830782_RK, 0.375469776558_RK, &
1698 : 0.375384563189_RK, 0.37529919064_RK, 0.375213658872_RK, 0.375127967852_RK, &
1699 : 0.375042117542_RK, 0.374956107906_RK, 0.374869938907_RK, 0.374783610509_RK, &
1700 : 0.374697122676_RK, 0.374610475371_RK, 0.374523668557_RK, 0.374436702197_RK, &
1701 : 0.374349576255_RK, 0.374262290692_RK, 0.374174845473_RK, 0.37408724056_RK, &
1702 : 0.373999475916_RK, 0.373911551503_RK, 0.373823467284_RK, 0.373735223221_RK, &
1703 : 0.373646819277_RK, 0.373558255414_RK, 0.373469531595_RK, 0.373380647781_RK, &
1704 : 0.373291603934_RK, 0.373202400017_RK, 0.373113035991_RK, 0.373023511819_RK, &
1705 : 0.372933827461_RK, 0.372843982879_RK, 0.372753978036_RK, 0.372663812892_RK, &
1706 : 0.372573487408_RK, 0.372483001547_RK, 0.372392355268_RK, 0.372301548534_RK, &
1707 : 0.372210581305_RK, 0.372119453543_RK, 0.372028165207_RK, 0.371936716259_RK, &
1708 : 0.371845106659_RK, 0.371753336368_RK, 0.371661405347_RK, 0.371569313555_RK, &
1709 : 0.371477060953_RK, 0.371384647502_RK, 0.371292073161_RK, 0.37119933789_RK, &
1710 : 0.371106441649_RK, 0.371013384399_RK, 0.370920166098_RK, 0.370826786707_RK, &
1711 : 0.370733246185_RK, 0.370639544492_RK, 0.370545681587_RK, 0.370451657429_RK, &
1712 : 0.370357471977_RK, 0.370263125191_RK, 0.37016861703_RK, 0.370073947452_RK, &
1713 : 0.369979116417_RK, 0.369884123883_RK, 0.369788969809_RK, 0.369693654153_RK, &
1714 : 0.369598176874_RK, 0.36950253793_RK, 0.36940673728_RK, 0.369310774882_RK, &
1715 : 0.369214650693_RK, 0.369118364673_RK, 0.369021916778_RK, 0.368925306967_RK, &
1716 : 0.368828535197_RK, 0.368731601427_RK, 0.368634505613_RK, 0.368537247713_RK, &
1717 : 0.368439827684_RK, 0.368342245484_RK, 0.36824450107_RK, 0.368146594399_RK, &
1718 : 0.368048525428_RK, 0.367950294114_RK, 0.367851900414_RK, 0.367753344284_RK, &
1719 : 0.36765462568_RK, 0.367555744561_RK, 0.367456700881_RK, 0.367357494598_RK, &
1720 : 0.367258125667_RK, 0.367158594044_RK, 0.367058899687_RK, 0.36695904255_RK, &
1721 : 0.366859022589_RK, 0.366758839761_RK, 0.36665849402_RK, 0.366557985323_RK, &
1722 : 0.366457313625_RK, 0.366356478881_RK, 0.366255481046_RK, 0.366154320077_RK, &
1723 : 0.366052995927_RK, 0.365951508551_RK, 0.365849857906_RK, 0.365748043945_RK, &
1724 : 0.365646066623_RK, 0.365543925894_RK, 0.365441621714_RK, 0.365339154037_RK, &
1725 : 0.365236522816_RK, 0.365133728007_RK, 0.365030769562_RK, 0.364927647437_RK, &
1726 : 0.364824361585_RK, 0.364720911959_RK, 0.364617298515_RK, 0.364513521204_RK, &
1727 : 0.364409579981_RK, 0.364305474799_RK, 0.364201205612_RK, 0.364096772372_RK, &
1728 : 0.363992175032_RK, 0.363887413546_RK, 0.363782487867_RK, 0.363677397947_RK, &
1729 : 0.36357214374_RK, 0.363466725196_RK, 0.36336114227_RK, 0.363255394914_RK, &
1730 : 0.363149483079_RK, 0.363043406718_RK, 0.362937165783_RK, 0.362830760226_RK, &
1731 : 0.36272419_RK, 0.362617455054_RK, 0.362510555343_RK, 0.362403490816_RK, &
1732 : 0.362296261425_RK, 0.362188867123_RK, 0.362081307859_RK, 0.361973583586_RK, &
1733 : 0.361865694253_RK, 0.361757639813_RK, 0.361649420216_RK, 0.361541035413_RK, &
1734 : 0.361432485354_RK, 0.36132376999_RK, 0.361214889271_RK, 0.361105843148_RK, &
1735 : 0.360996631571_RK, 0.360887254489_RK, 0.360777711854_RK, 0.360668003615_RK, &
1736 : 0.360558129721_RK, 0.360448090122_RK, 0.360337884769_RK, 0.36022751361_RK, &
1737 : 0.360116976594_RK, 0.360006273672_RK, 0.359895404792_RK, 0.359784369903_RK, &
1738 : 0.359673168954_RK, 0.359561801893_RK, 0.359450268671_RK, 0.359338569235_RK, &
1739 : 0.359226703533_RK, 0.359114671515_RK, 0.359002473128_RK, 0.358890108321_RK, &
1740 : 0.358777577041_RK, 0.358664879237_RK, 0.358552014857_RK, 0.358438983847_RK, &
1741 : 0.358325786157_RK, 0.358212421732_RK, 0.358098890522_RK, 0.357985192472_RK, &
1742 : 0.357871327531_RK, 0.357757295645_RK, 0.357643096761_RK, 0.357528730826_RK, &
1743 : 0.357414197787_RK, 0.35729949759_RK, 0.357184630183_RK, 0.35706959551_RK, &
1744 : 0.356954393519_RK, 0.356839024156_RK, 0.356723487367_RK, 0.356607783098_RK, &
1745 : 0.356491911294_RK, 0.356375871902_RK, 0.356259664866_RK, 0.356143290133_RK, &
1746 : 0.356026747648_RK, 0.355910037356_RK, 0.355793159202_RK, 0.355676113131_RK, &
1747 : 0.355558899089_RK, 0.355441517019_RK, 0.355323966867_RK, 0.355206248577_RK, &
1748 : 0.355088362094_RK, 0.354970307363_RK, 0.354852084326_RK, 0.354733692928_RK, &
1749 : 0.354615133114_RK, 0.354496404828_RK, 0.354377508012_RK, 0.35425844261_RK, &
1750 : 0.354139208567_RK, 0.354019805826_RK, 0.353900234329_RK, 0.35378049402_RK, &
1751 : 0.353660584842_RK, 0.353540506738_RK, 0.353420259651_RK, 0.353299843523_RK, &
1752 : 0.353179258297_RK, 0.353058503916_RK, 0.352937580322_RK, 0.352816487456_RK, &
1753 : 0.352695225262_RK, 0.35257379368_RK, 0.352452192653_RK, 0.352330422124_RK, &
1754 : 0.352208482032_RK, 0.35208637232_RK, 0.351964092929_RK, 0.3518416438_RK, &
1755 : 0.351719024875_RK, 0.351596236094_RK, 0.351473277398_RK, 0.351350148728_RK, &
1756 : 0.351226850025_RK, 0.351103381229_RK, 0.350979742281_RK, 0.35085593312_RK, &
1757 : 0.350731953687_RK, 0.350607803923_RK, 0.350483483765_RK, 0.350358993156_RK, &
1758 : 0.350234332033_RK, 0.350109500337_RK, 0.349984498007_RK, 0.349859324983_RK, &
1759 : 0.349733981203_RK, 0.349608466606_RK, 0.349482781131_RK, 0.349356924717_RK, &
1760 : 0.349230897303_RK, 0.349104698827_RK, 0.348978329228_RK, 0.348851788443_RK, &
1761 : 0.348725076411_RK, 0.348598193069_RK, 0.348471138357_RK, 0.34834391221_RK, &
1762 : 0.348216514568_RK, 0.348088945366_RK, 0.347961204544_RK, 0.347833292037_RK, &
1763 : 0.347705207784_RK, 0.34757695172_RK, 0.347448523782_RK, 0.347319923909_RK, &
1764 : 0.347191152035_RK, 0.347062208097_RK, 0.346933092032_RK, 0.346803803775_RK, &
1765 : 0.346674343264_RK, 0.346544710432_RK, 0.346414905218_RK, 0.346284927555_RK, &
1766 : 0.346154777379_RK, 0.346024454627_RK, 0.345893959232_RK, 0.34576329113_RK, &
1767 : 0.345632450257_RK, 0.345501436546_RK, 0.345370249932_RK, 0.345238890351_RK, &
1768 : 0.345107357736_RK, 0.344975652022_RK, 0.344843773142_RK, 0.344711721031_RK, &
1769 : 0.344579495623_RK, 0.344447096851_RK, 0.344314524649_RK, 0.344181778951_RK, &
1770 : 0.344048859689_RK, 0.343915766796_RK, 0.343782500207_RK, 0.343649059853_RK, &
1771 : 0.343515445668_RK, 0.343381657583_RK, 0.343247695533_RK, 0.343113559448_RK, &
1772 : 0.342979249261_RK, 0.342844764904_RK, 0.342710106308_RK, 0.342575273407_RK, &
1773 : 0.342440266131_RK, 0.342305084412_RK, 0.34216972818_RK, 0.342034197368_RK, &
1774 : 0.341898491907_RK, 0.341762611726_RK, 0.341626556758_RK, 0.341490326932_RK, &
1775 : 0.341353922179_RK, 0.34121734243_RK, 0.341080587614_RK, 0.340943657662_RK, &
1776 : 0.340806552503_RK, 0.340669272067_RK, 0.340531816284_RK, 0.340394185084_RK, &
1777 : 0.340256378395_RK, 0.340118396147_RK, 0.339980238268_RK, 0.339841904688_RK, &
1778 : 0.339703395335_RK, 0.339564710138_RK, 0.339425849025_RK, 0.339286811925_RK, &
1779 : 0.339147598766_RK, 0.339008209475_RK, 0.33886864398_RK, 0.33872890221_RK, &
1780 : 0.338588984091_RK, 0.33844888955_RK, 0.338308618517_RK, 0.338168170916_RK, &
1781 : 0.338027546675_RK, 0.337886745721_RK, 0.337745767981_RK, 0.33760461338_RK, &
1782 : 0.337463281846_RK, 0.337321773304_RK, 0.33718008768_RK, 0.3370382249_RK, &
1783 : 0.336896184891_RK, 0.336753967576_RK, 0.336611572882_RK, 0.336469000734_RK, &
1784 : 0.336326251057_RK, 0.336183323776_RK, 0.336040218815_RK, 0.335896936099_RK, &
1785 : 0.335753475553_RK, 0.335609837101_RK, 0.335466020667_RK, 0.335322026174_RK, &
1786 : 0.335177853547_RK, 0.33503350271_RK, 0.334888973585_RK, 0.334744266096_RK, &
1787 : 0.334599380166_RK, 0.334454315719_RK, 0.334309072676_RK, 0.334163650961_RK, &
1788 : 0.334018050496_RK, 0.333872271204_RK, 0.333726313006_RK, 0.333580175825_RK, &
1789 : 0.333433859582_RK, 0.3332873642_RK, 0.333140689599_RK, 0.332993835701_RK, &
1790 : 0.332846802427_RK, 0.332699589699_RK, 0.332552197437_RK, 0.332404625561_RK, &
1791 : 0.332256873993_RK, 0.332108942652_RK, 0.331960831459_RK, 0.331812540334_RK, &
1792 : 0.331664069197_RK, 0.331515417967_RK, 0.331366586564_RK, 0.331217574907_RK, &
1793 : 0.331068382916_RK, 0.330919010508_RK, 0.330769457604_RK, 0.330619724122_RK, &
1794 : 0.33046980998_RK, 0.330319715097_RK, 0.330169439391_RK, 0.330018982779_RK, &
1795 : 0.32986834518_RK, 0.329717526511_RK, 0.32956652669_RK, 0.329415345633_RK, &
1796 : 0.329263983259_RK, 0.329112439483_RK, 0.328960714223_RK, 0.328808807396_RK, &
1797 : 0.328656718917_RK, 0.328504448702_RK, 0.328351996669_RK, 0.328199362732_RK, &
1798 : 0.328046546808_RK, 0.327893548812_RK, 0.327740368658_RK, 0.327587006263_RK, &
1799 : 0.327433461542_RK, 0.327279734408_RK, 0.327125824778_RK, 0.326971732564_RK, &
1800 : 0.326817457682_RK, 0.326663000045_RK, 0.326508359567_RK, 0.326353536163_RK, &
1801 : 0.326198529745_RK, 0.326043340226_RK, 0.325887967521_RK, 0.325732411541_RK, &
1802 : 0.3255766722_RK, 0.325420749411_RK, 0.325264643085_RK, 0.325108353134_RK, &
1803 : 0.324951879472_RK, 0.324795222009_RK, 0.324638380658_RK, 0.324481355329_RK, &
1804 : 0.324324145934_RK, 0.324166752385_RK, 0.324009174591_RK, 0.323851412464_RK, &
1805 : 0.323693465915_RK, 0.323535334852_RK, 0.323377019188_RK, 0.323218518831_RK, &
1806 : 0.323059833691_RK, 0.322900963677_RK, 0.322741908701_RK, 0.322582668669_RK, &
1807 : 0.322423243491_RK, 0.322263633077_RK, 0.322103837334_RK, 0.321943856171_RK, &
1808 : 0.321783689496_RK, 0.321623337217_RK, 0.321462799242_RK, 0.321302075479_RK, &
1809 : 0.321141165834_RK, 0.320980070215_RK, 0.320818788529_RK, 0.320657320683_RK, &
1810 : 0.320495666583_RK, 0.320333826135_RK, 0.320171799247_RK, 0.320009585823_RK, &
1811 : 0.31984718577_RK, 0.319684598993_RK, 0.319521825397_RK, 0.319358864888_RK, &
1812 : 0.31919571737_RK, 0.319032382749_RK, 0.318868860929_RK, 0.318705151813_RK, &
1813 : 0.318541255307_RK, 0.318377171315_RK, 0.318212899739_RK, 0.318048440483_RK, &
1814 : 0.317883793451_RK, 0.317718958546_RK, 0.31755393567_RK, 0.317388724726_RK, &
1815 : 0.317223325617_RK, 0.317057738245_RK, 0.316891962512_RK, 0.31672599832_RK, &
1816 : 0.31655984557_RK, 0.316393504163_RK, 0.316226974001_RK, 0.316060254985_RK, &
1817 : 0.315893347016_RK, 0.315726249993_RK, 0.315558963818_RK, 0.31539148839_RK, &
1818 : 0.315223823609_RK, 0.315055969374_RK, 0.314887925586_RK, 0.314719692144_RK, &
1819 : 0.314551268945_RK, 0.31438265589_RK, 0.314213852877_RK, 0.314044859803_RK ]
1820 :
1821 : real(RK), parameter :: VEC_YU_4(3001:LEN_VEC_YU) = [ &
1822 : 0.313875676567_RK, 0.313706303067_RK, 0.313536739201_RK, 0.313366984865_RK, &
1823 : 0.313197039958_RK, 0.313026904375_RK, 0.312856578014_RK, 0.312686060772_RK, &
1824 : 0.312515352544_RK, 0.312344453226_RK, 0.312173362715_RK, 0.312002080905_RK, &
1825 : 0.311830607693_RK, 0.311658942973_RK, 0.31148708664_RK, 0.31131503859_RK, &
1826 : 0.311142798715_RK, 0.310970366911_RK, 0.310797743071_RK, 0.31062492709_RK, &
1827 : 0.31045191886_RK, 0.310278718275_RK, 0.310105325228_RK, 0.309931739611_RK, &
1828 : 0.309757961317_RK, 0.309583990239_RK, 0.309409826268_RK, 0.309235469297_RK, &
1829 : 0.309060919216_RK, 0.308886175918_RK, 0.308711239292_RK, 0.308536109231_RK, &
1830 : 0.308360785624_RK, 0.308185268362_RK, 0.308009557336_RK, 0.307833652434_RK, &
1831 : 0.307657553547_RK, 0.307481260563_RK, 0.307304773373_RK, 0.307128091864_RK, &
1832 : 0.306951215926_RK, 0.306774145446_RK, 0.306596880314_RK, 0.306419420416_RK, &
1833 : 0.306241765641_RK, 0.306063915875_RK, 0.305885871006_RK, 0.305707630921_RK, &
1834 : 0.305529195506_RK, 0.305350564647_RK, 0.305171738232_RK, 0.304992716144_RK, &
1835 : 0.304813498271_RK, 0.304634084497_RK, 0.304454474707_RK, 0.304274668786_RK, &
1836 : 0.304094666619_RK, 0.30391446809_RK, 0.303734073083_RK, 0.303553481481_RK, &
1837 : 0.303372693168_RK, 0.303191708028_RK, 0.303010525942_RK, 0.302829146795_RK, &
1838 : 0.302647570468_RK, 0.302465796843_RK, 0.302283825802_RK, 0.302101657227_RK, &
1839 : 0.301919290999_RK, 0.301736726999_RK, 0.301553965108_RK, 0.301371005207_RK, &
1840 : 0.301187847175_RK, 0.301004490893_RK, 0.30082093624_RK, 0.300637183096_RK, &
1841 : 0.300453231339_RK, 0.30026908085_RK, 0.300084731505_RK, 0.299900183184_RK, &
1842 : 0.299715435764_RK, 0.299530489123_RK, 0.299345343139_RK, 0.299159997689_RK, &
1843 : 0.298974452649_RK, 0.298788707897_RK, 0.298602763308_RK, 0.298416618759_RK, &
1844 : 0.298230274125_RK, 0.298043729282_RK, 0.297856984104_RK, 0.297670038468_RK, &
1845 : 0.297482892246_RK, 0.297295545315_RK, 0.297107997546_RK, 0.296920248815_RK, &
1846 : 0.296732298995_RK, 0.296544147958_RK, 0.296355795578_RK, 0.296167241727_RK, &
1847 : 0.295978486277_RK, 0.295789529101_RK, 0.295600370069_RK, 0.295411009053_RK, &
1848 : 0.295221445924_RK, 0.295031680553_RK, 0.294841712811_RK, 0.294651542566_RK, &
1849 : 0.29446116969_RK, 0.294270594051_RK, 0.294079815519_RK, 0.293888833963_RK, &
1850 : 0.293697649251_RK, 0.293506261251_RK, 0.293314669832_RK, 0.29312287486_RK, &
1851 : 0.292930876204_RK, 0.292738673731_RK, 0.292546267306_RK, 0.292353656796_RK, &
1852 : 0.292160842068_RK, 0.291967822987_RK, 0.291774599419_RK, 0.291581171228_RK, &
1853 : 0.29138753828_RK, 0.291193700439_RK, 0.290999657568_RK, 0.290805409533_RK, &
1854 : 0.290610956195_RK, 0.290416297419_RK, 0.290221433068_RK, 0.290026363003_RK, &
1855 : 0.289831087087_RK, 0.289635605182_RK, 0.289439917148_RK, 0.289244022849_RK, &
1856 : 0.289047922144_RK, 0.288851614893_RK, 0.288655100957_RK, 0.288458380196_RK, &
1857 : 0.28826145247_RK, 0.288064317636_RK, 0.287866975555_RK, 0.287669426085_RK, &
1858 : 0.287471669084_RK, 0.287273704409_RK, 0.287075531918_RK, 0.286877151468_RK, &
1859 : 0.286678562916_RK, 0.286479766119_RK, 0.286280760932_RK, 0.286081547211_RK, &
1860 : 0.285882124811_RK, 0.285682493588_RK, 0.285482653395_RK, 0.285282604088_RK, &
1861 : 0.285082345521_RK, 0.284881877546_RK, 0.284681200017_RK, 0.284480312788_RK, &
1862 : 0.284279215709_RK, 0.284077908635_RK, 0.283876391415_RK, 0.283674663903_RK, &
1863 : 0.283472725948_RK, 0.283270577402_RK, 0.283068218114_RK, 0.282865647935_RK, &
1864 : 0.282662866715_RK, 0.282459874302_RK, 0.282256670545_RK, 0.282053255293_RK, &
1865 : 0.281849628394_RK, 0.281645789695_RK, 0.281441739045_RK, 0.281237476289_RK, &
1866 : 0.281033001275_RK, 0.280828313848_RK, 0.280623413854_RK, 0.280418301139_RK, &
1867 : 0.280212975549_RK, 0.280007436926_RK, 0.279801685116_RK, 0.279595719963_RK, &
1868 : 0.27938954131_RK, 0.279183149_RK, 0.278976542875_RK, 0.278769722779_RK, &
1869 : 0.278562688553_RK, 0.278355440038_RK, 0.278147977076_RK, 0.277940299507_RK, &
1870 : 0.277732407172_RK, 0.27752429991_RK, 0.277315977561_RK, 0.277107439965_RK, &
1871 : 0.276898686958_RK, 0.276689718381_RK, 0.276480534071_RK, 0.276271133865_RK, &
1872 : 0.2760615176_RK, 0.275851685114_RK, 0.275641636241_RK, 0.275431370818_RK, &
1873 : 0.275220888681_RK, 0.275010189664_RK, 0.274799273601_RK, 0.274588140328_RK, &
1874 : 0.274376789677_RK, 0.274165221481_RK, 0.273953435575_RK, 0.273741431789_RK, &
1875 : 0.273529209956_RK, 0.273316769908_RK, 0.273104111476_RK, 0.272891234489_RK, &
1876 : 0.272678138779_RK, 0.272464824175_RK, 0.272251290507_RK, 0.272037537604_RK, &
1877 : 0.271823565293_RK, 0.271609373403_RK, 0.271394961762_RK, 0.271180330196_RK, &
1878 : 0.270965478533_RK, 0.270750406598_RK, 0.270535114218_RK, 0.270319601217_RK, &
1879 : 0.270103867421_RK, 0.269887912653_RK, 0.269671736739_RK, 0.2694553395_RK, &
1880 : 0.269238720761_RK, 0.269021880344_RK, 0.268804818071_RK, 0.268587533763_RK, &
1881 : 0.268370027242_RK, 0.268152298328_RK, 0.267934346842_RK, 0.267716172603_RK, &
1882 : 0.26749777543_RK, 0.267279155143_RK, 0.26706031156_RK, 0.266841244498_RK, &
1883 : 0.266621953774_RK, 0.266402439207_RK, 0.266182700611_RK, 0.265962737803_RK, &
1884 : 0.265742550598_RK, 0.265522138811_RK, 0.265301502256_RK, 0.265080640748_RK, &
1885 : 0.2648595541_RK, 0.264638242124_RK, 0.264416704633_RK, 0.264194941439_RK, &
1886 : 0.263972952353_RK, 0.263750737186_RK, 0.263528295749_RK, 0.263305627851_RK, &
1887 : 0.263082733302_RK, 0.26285961191_RK, 0.262636263484_RK, 0.262412687831_RK, &
1888 : 0.26218888476_RK, 0.261964854076_RK, 0.261740595585_RK, 0.261516109095_RK, &
1889 : 0.261291394408_RK, 0.261066451331_RK, 0.260841279668_RK, 0.260615879221_RK, &
1890 : 0.260390249794_RK, 0.260164391189_RK, 0.259938303209_RK, 0.259711985655_RK, &
1891 : 0.259485438327_RK, 0.259258661026_RK, 0.259031653551_RK, 0.258804415703_RK, &
1892 : 0.258576947278_RK, 0.258349248077_RK, 0.258121317895_RK, 0.25789315653_RK, &
1893 : 0.257664763779_RK, 0.257436139437_RK, 0.2572072833_RK, 0.256978195162_RK, &
1894 : 0.256748874817_RK, 0.256519322059_RK, 0.256289536681_RK, 0.256059518475_RK, &
1895 : 0.255829267233_RK, 0.255598782747_RK, 0.255368064807_RK, 0.255137113202_RK, &
1896 : 0.254905927723_RK, 0.254674508159_RK, 0.254442854297_RK, 0.254210965925_RK, &
1897 : 0.253978842831_RK, 0.253746484801_RK, 0.253513891621_RK, 0.253281063075_RK, &
1898 : 0.253047998949_RK, 0.252814699027_RK, 0.252581163092_RK, 0.252347390927_RK, &
1899 : 0.252113382314_RK, 0.251879137035_RK, 0.251644654871_RK, 0.251409935601_RK, &
1900 : 0.251174979007_RK, 0.250939784865_RK, 0.250704352956_RK, 0.250468683057_RK, &
1901 : 0.250232774945_RK, 0.249996628397_RK, 0.249760243188_RK, 0.249523619094_RK, &
1902 : 0.249286755888_RK, 0.249049653346_RK, 0.24881231124_RK, 0.248574729343_RK, &
1903 : 0.248336907427_RK, 0.248098845263_RK, 0.247860542621_RK, 0.247621999273_RK, &
1904 : 0.247383214985_RK, 0.247144189529_RK, 0.24690492267_RK, 0.246665414177_RK, &
1905 : 0.246425663816_RK, 0.246185671353_RK, 0.245945436553_RK, 0.24570495918_RK, &
1906 : 0.245464238999_RK, 0.245223275772_RK, 0.244982069261_RK, 0.244740619229_RK, &
1907 : 0.244498925435_RK, 0.244256987642_RK, 0.244014805607_RK, 0.24377237909_RK, &
1908 : 0.243529707849_RK, 0.243286791641_RK, 0.243043630222_RK, 0.24280022335_RK, &
1909 : 0.242556570778_RK, 0.242312672262_RK, 0.242068527555_RK, 0.241824136409_RK, &
1910 : 0.241579498578_RK, 0.241334613813_RK, 0.241089481863_RK, 0.240844102481_RK, &
1911 : 0.240598475413_RK, 0.240352600409_RK, 0.240106477217_RK, 0.239860105583_RK, &
1912 : 0.239613485254_RK, 0.239366615975_RK, 0.23911949749_RK, 0.238872129544_RK, &
1913 : 0.238624511878_RK, 0.238376644236_RK, 0.238128526359_RK, 0.237880157987_RK, &
1914 : 0.237631538861_RK, 0.237382668719_RK, 0.2371335473_RK, 0.23688417434_RK, &
1915 : 0.236634549577_RK, 0.236384672746_RK, 0.236134543582_RK, 0.23588416182_RK, &
1916 : 0.235633527192_RK, 0.235382639431_RK, 0.235131498268_RK, 0.234880103436_RK, &
1917 : 0.234628454662_RK, 0.234376551677_RK, 0.234124394209_RK, 0.233871981984_RK, &
1918 : 0.233619314731_RK, 0.233366392173_RK, 0.233113214036_RK, 0.232859780045_RK, &
1919 : 0.232606089921_RK, 0.232352143387_RK, 0.232097940164_RK, 0.231843479974_RK, &
1920 : 0.231588762534_RK, 0.231333787564_RK, 0.231078554782_RK, 0.230823063904_RK, &
1921 : 0.230567314646_RK, 0.230311306723_RK, 0.23005503985_RK, 0.229798513738_RK, &
1922 : 0.229541728101_RK, 0.22928468265_RK, 0.229027377095_RK, 0.228769811145_RK, &
1923 : 0.22851198451_RK, 0.228253896895_RK, 0.227995548009_RK, 0.227736937556_RK, &
1924 : 0.227478065241_RK, 0.227218930768_RK, 0.22695953384_RK, 0.226699874157_RK, &
1925 : 0.226439951422_RK, 0.226179765333_RK, 0.22591931559_RK, 0.22565860189_RK, &
1926 : 0.22539762393_RK, 0.225136381406_RK, 0.224874874012_RK, 0.224613101442_RK, &
1927 : 0.224351063389_RK, 0.224088759545_RK, 0.2238261896_RK, 0.223563353244_RK, &
1928 : 0.223300250165_RK, 0.223036880051_RK, 0.222773242589_RK, 0.222509337463_RK, &
1929 : 0.222245164359_RK, 0.22198072296_RK, 0.221716012947_RK, 0.221451034002_RK, &
1930 : 0.221185785805_RK, 0.220920268035_RK, 0.220654480371_RK, 0.220388422488_RK, &
1931 : 0.220122094062_RK, 0.219855494768_RK, 0.21958862428_RK, 0.21932148227_RK, &
1932 : 0.219054068409_RK, 0.218786382367_RK, 0.218518423813_RK, 0.218250192415_RK, &
1933 : 0.21798168784_RK, 0.217712909752_RK, 0.217443857818_RK, 0.217174531699_RK, &
1934 : 0.216904931057_RK, 0.216635055555_RK, 0.21636490485_RK, 0.216094478602_RK, &
1935 : 0.215823776468_RK, 0.215552798104_RK, 0.215281543164_RK, 0.215010011303_RK, &
1936 : 0.214738202173_RK, 0.214466115425_RK, 0.214193750709_RK, 0.213921107674_RK, &
1937 : 0.213648185967_RK, 0.213374985234_RK, 0.213101505121_RK, 0.21282774527_RK, &
1938 : 0.212553705325_RK, 0.212279384926_RK, 0.212004783714_RK, 0.211729901327_RK, &
1939 : 0.211454737402_RK, 0.211179291575_RK, 0.21090356348_RK, 0.210627552752_RK, &
1940 : 0.210351259021_RK, 0.210074681919_RK, 0.209797821075_RK, 0.209520676117_RK, &
1941 : 0.209243246671_RK, 0.208965532363_RK, 0.208687532816_RK, 0.208409247653_RK, &
1942 : 0.208130676495_RK, 0.207851818961_RK, 0.20757267467_RK, 0.207293243239_RK, &
1943 : 0.207013524284_RK, 0.206733517417_RK, 0.206453222252_RK, 0.2061726384_RK, &
1944 : 0.205891765471_RK, 0.205610603072_RK, 0.205329150811_RK, 0.205047408293_RK, &
1945 : 0.204765375121_RK, 0.204483050898_RK, 0.204200435225_RK, 0.203917527701_RK, &
1946 : 0.203634327924_RK, 0.20335083549_RK, 0.203067049994_RK, 0.202782971029_RK, &
1947 : 0.202498598186_RK, 0.202213931056_RK, 0.201928969228_RK, 0.201643712287_RK, &
1948 : 0.20135815982_RK, 0.20107231141_RK, 0.20078616664_RK, 0.200499725089_RK, &
1949 : 0.200212986337_RK, 0.199925949961_RK, 0.199638615537_RK, 0.199350982639_RK, &
1950 : 0.199063050838_RK, 0.198774819706_RK, 0.198486288812_RK, 0.198197457722_RK, &
1951 : 0.197908326003_RK, 0.197618893218_RK, 0.197329158929_RK, 0.197039122697_RK, &
1952 : 0.196748784081_RK, 0.196458142637_RK, 0.196167197921_RK, 0.195875949485_RK, &
1953 : 0.195584396882_RK, 0.195292539661_RK, 0.19500037737_RK, 0.194707909556_RK, &
1954 : 0.194415135763_RK, 0.194122055533_RK, 0.193828668408_RK, 0.193534973925_RK, &
1955 : 0.193240971621_RK, 0.192946661033_RK, 0.192652041693_RK, 0.192357113132_RK, &
1956 : 0.192061874879_RK, 0.191766326463_RK, 0.191470467408_RK, 0.191174297238_RK, &
1957 : 0.190877815475_RK, 0.190581021638_RK, 0.190283915244_RK, 0.189986495811_RK, &
1958 : 0.18968876285_RK, 0.189390715873_RK, 0.189092354391_RK, 0.188793677911_RK, &
1959 : 0.188494685937_RK, 0.188195377973_RK, 0.187895753521_RK, 0.18759581208_RK, &
1960 : 0.187295553146_RK, 0.186994976215_RK, 0.186694080779_RK, 0.186392866329_RK, &
1961 : 0.186091332353_RK, 0.185789478338_RK, 0.185487303768_RK, 0.185184808123_RK, &
1962 : 0.184881990885_RK, 0.18457885153_RK, 0.184275389534_RK, 0.183971604368_RK, &
1963 : 0.183667495505_RK, 0.183363062412_RK, 0.183058304554_RK, 0.182753221396_RK, &
1964 : 0.182447812399_RK, 0.182142077022_RK, 0.18183601472_RK, 0.181529624949_RK, &
1965 : 0.18122290716_RK, 0.180915860803_RK, 0.180608485323_RK, 0.180300780166_RK, &
1966 : 0.179992744774_RK, 0.179684378585_RK, 0.179375681037_RK, 0.179066651564_RK, &
1967 : 0.178757289598_RK, 0.178447594568_RK, 0.178137565902_RK, 0.177827203022_RK, &
1968 : 0.177516505351_RK, 0.177205472308_RK, 0.176894103309_RK, 0.176582397766_RK, &
1969 : 0.176270355092_RK, 0.175957974695_RK, 0.175645255979_RK, 0.175332198348_RK, &
1970 : 0.175018801202_RK, 0.174705063937_RK, 0.174390985949_RK, 0.174076566628_RK, &
1971 : 0.173761805364_RK, 0.173446701542_RK, 0.173131254545_RK, 0.172815463755_RK, &
1972 : 0.172499328546_RK, 0.172182848295_RK, 0.171866022373_RK, 0.171548850146_RK, &
1973 : 0.171231330982_RK, 0.170913464242_RK, 0.170595249286_RK, 0.170276685469_RK, &
1974 : 0.169957772145_RK, 0.169638508664_RK, 0.169318894373_RK, 0.168998928615_RK, &
1975 : 0.168678610731_RK, 0.168357940058_RK, 0.16803691593_RK, 0.167715537679_RK, &
1976 : 0.167393804631_RK, 0.167071716111_RK, 0.16674927144_RK, 0.166426469936_RK, &
1977 : 0.166103310913_RK, 0.165779793681_RK, 0.165455917548_RK, 0.165131681818_RK, &
1978 : 0.164807085792_RK, 0.164482128766_RK, 0.164156810034_RK, 0.163831128886_RK, &
1979 : 0.163505084608_RK, 0.163178676483_RK, 0.162851903789_RK, 0.162524765803_RK, &
1980 : 0.162197261796_RK, 0.161869391036_RK, 0.161541152788_RK, 0.161212546311_RK, &
1981 : 0.160883570863_RK, 0.160554225695_RK, 0.160224510058_RK, 0.159894423197_RK, &
1982 : 0.159563964351_RK, 0.159233132759_RK, 0.158901927654_RK, 0.158570348265_RK, &
1983 : 0.158238393817_RK, 0.15790606353_RK, 0.157573356623_RK, 0.157240272307_RK, &
1984 : 0.156906809791_RK, 0.156572968279_RK, 0.156238746972_RK, 0.155904145066_RK, &
1985 : 0.155569161751_RK, 0.155233796214_RK, 0.15489804764_RK, 0.154561915205_RK, &
1986 : 0.154225398084_RK, 0.153888495445_RK, 0.153551206454_RK, 0.153213530271_RK, &
1987 : 0.152875466051_RK, 0.152537012946_RK, 0.152198170101_RK, 0.151858936658_RK, &
1988 : 0.151519311753_RK, 0.151179294519_RK, 0.150838884082_RK, 0.150498079565_RK, &
1989 : 0.150156880085_RK, 0.149815284753_RK, 0.149473292678_RK, 0.149130902961_RK, &
1990 : 0.148788114699_RK, 0.148444926984_RK, 0.148101338903_RK, 0.147757349537_RK, &
1991 : 0.147412957962_RK, 0.147068163249_RK, 0.146722964463_RK, 0.146377360665_RK, &
1992 : 0.146031350908_RK, 0.145684934242_RK, 0.14533810971_RK, 0.144990876349_RK, &
1993 : 0.144643233193_RK, 0.144295179266_RK, 0.14394671359_RK, 0.143597835179_RK, &
1994 : 0.143248543043_RK, 0.142898836183_RK, 0.142548713597_RK, 0.142198174276_RK, &
1995 : 0.141847217205_RK, 0.141495841361_RK, 0.141144045718_RK, 0.140791829241_RK, &
1996 : 0.14043919089_RK, 0.140086129618_RK, 0.139732644373_RK, 0.139378734095_RK, &
1997 : 0.139024397717_RK, 0.138669634167_RK, 0.138314442365_RK, 0.137958821225_RK, &
1998 : 0.137602769653_RK, 0.137246286551_RK, 0.13688937081_RK, 0.136532021316_RK, &
1999 : 0.13617423695_RK, 0.135816016581_RK, 0.135457359075_RK, 0.13509826329_RK, &
2000 : 0.134738728074_RK, 0.13437875227_RK, 0.134018334713_RK, 0.13365747423_RK, &
2001 : 0.133296169642_RK, 0.132934419758_RK, 0.132572223385_RK, 0.132209579317_RK, &
2002 : 0.131846486342_RK, 0.131482943242_RK, 0.131118948787_RK, 0.130754501741_RK, &
2003 : 0.13038960086_RK, 0.130024244891_RK, 0.129658432571_RK, 0.129292162631_RK, &
2004 : 0.128925433793_RK, 0.128558244767_RK, 0.128190594259_RK, 0.127822480963_RK, &
2005 : 0.127453903564_RK, 0.127084860738_RK, 0.126715351154_RK, 0.126345373469_RK, &
2006 : 0.125974926331_RK, 0.12560400838_RK, 0.125232618245_RK, 0.124860754545_RK, &
2007 : 0.12448841589_RK, 0.124115600881_RK, 0.123742308106_RK, 0.123368536146_RK, &
2008 : 0.12299428357_RK, 0.122619548937_RK, 0.122244330795_RK, 0.121868627682_RK, &
2009 : 0.121492438126_RK, 0.121115760642_RK, 0.120738593735_RK, 0.120360935901_RK, &
2010 : 0.119982785621_RK, 0.119604141367_RK, 0.1192250016_RK, 0.118845364768_RK, &
2011 : 0.118465229306_RK, 0.118084593641_RK, 0.117703456185_RK, 0.117321815339_RK, &
2012 : 0.11693966949_RK, 0.116557017014_RK, 0.116173856276_RK, 0.115790185624_RK, &
2013 : 0.115406003396_RK, 0.115021307918_RK, 0.1146360975_RK, 0.11425037044_RK, &
2014 : 0.113864125022_RK, 0.113477359516_RK, 0.113090072181_RK, 0.112702261257_RK, &
2015 : 0.112313924974_RK, 0.111925061545_RK, 0.111535669171_RK, 0.111145746034_RK, &
2016 : 0.110755290307_RK, 0.110364300142_RK, 0.109972773679_RK, 0.109580709043_RK, &
2017 : 0.10918810434_RK, 0.108794957663_RK, 0.108401267088_RK, 0.108007030675_RK, &
2018 : 0.107612246467_RK, 0.10721691249_RK, 0.106821026753_RK, 0.106424587249_RK, &
2019 : 0.106027591953_RK, 0.10563003882_RK, 0.105231925791_RK, 0.104833250787_RK, &
2020 : 0.10443401171_RK, 0.104034206444_RK, 0.103633832853_RK, 0.103232888785_RK, &
2021 : 0.102831372066_RK, 0.102429280502_RK, 0.102026611881_RK, 0.101623363968_RK, &
2022 : 0.10121953451_RK, 0.100815121233_RK, 0.100410121841_RK, 0.100004534016_RK, &
2023 : 0.0995983554201_RK, 0.0991915836918_RK, 0.098784216448_RK, 0.098376251283_RK, &
2024 : 0.0979676857678_RK, 0.0975585174503_RK, 0.0971487438546_RK, 0.0967383624809_RK, &
2025 : 0.0963273708049_RK, 0.0959157662776_RK, 0.095503546325_RK, 0.0950907083474_RK, &
2026 : 0.0946772497194_RK, 0.0942631677893_RK, 0.0938484598786_RK, 0.0934331232819_RK, &
2027 : 0.0930171552661_RK, 0.0926005530704_RK, 0.0921833139053_RK, 0.0917654349529_RK, &
2028 : 0.0913469133655_RK, 0.0909277462662_RK, 0.0905079307475_RK, 0.0900874638713_RK, &
2029 : 0.0896663426683_RK, 0.0892445641375_RK, 0.0888221252457_RK, 0.0883990229268_RK, &
2030 : 0.0879752540816_RK, 0.0875508155769_RK, 0.0871257042449_RK, 0.0866999168832_RK, &
2031 : 0.0862734502535_RK, 0.0858463010813_RK, 0.0854184660553_RK, 0.0849899418268_RK, &
2032 : 0.084560725009_RK, 0.0841308121761_RK, 0.0837001998631_RK, 0.0832688845646_RK, &
2033 : 0.0828368627345_RK, 0.082404130785_RK, 0.0819706850859_RK, 0.081536521964_RK, &
2034 : 0.081101637702_RK, 0.080666028538_RK, 0.0802296906646_RK, 0.0797926202279_RK, &
2035 : 0.0793548133268_RK, 0.078916266012_RK, 0.0784769742851_RK, 0.0780369340979_RK, &
2036 : 0.077596141351_RK, 0.0771545918932_RK, 0.0767122815202_RK, 0.076269205974_RK, &
2037 : 0.0758253609412_RK, 0.0753807420524_RK, 0.0749353448811_RK, 0.074489164942_RK, &
2038 : 0.0740421976905_RK, 0.0735944385211_RK, 0.0731458827663_RK, 0.0726965256949_RK, &
2039 : 0.0722463625114_RK, 0.0717953883543_RK, 0.0713435982942_RK, 0.0708909873334_RK, &
2040 : 0.0704375504035_RK, 0.0699832823643_RK, 0.0695281780022_RK, 0.0690722320286_RK, &
2041 : 0.0686154390782_RK, 0.0681577937072_RK, 0.0676992903918_RK, 0.0672399235259_RK, &
2042 : 0.0667796874201_RK, 0.0663185762986_RK, 0.0658565842984_RK, 0.0653937054663_RK, &
2043 : 0.0649299337573_RK, 0.0644652630325_RK, 0.0639996870564_RK, 0.0635331994951_RK, &
2044 : 0.0630657939132_RK, 0.0625974637723_RK, 0.0621282024276_RK, 0.0616580031256_RK, &
2045 : 0.0611868590013_RK, 0.0607147630756_RK, 0.060241708252_RK, 0.0597676873138_RK, &
2046 : 0.059292692921_RK, 0.058816717607_RK, 0.0583397537752_RK, 0.0578617936955_RK, &
2047 : 0.0573828295011_RK, 0.0569028531841_RK, 0.0564218565922_RK, 0.0559398314244_RK, &
2048 : 0.0554567692269_RK, 0.054972661389_RK, 0.0544874991381_RK, 0.0540012735356_RK, &
2049 : 0.053513975472_RK, 0.0530255956613_RK, 0.0525361246366_RK, 0.052045552744_RK, &
2050 : 0.0515538701374_RK, 0.0510610667724_RK, 0.0505671324_RK, 0.0500720565609_RK, &
2051 : 0.0495758285778_RK, 0.0490784375496_RK, 0.0485798723434_RK, 0.048080121587_RK, &
2052 : 0.0475791736615_RK, 0.0470770166928_RK, 0.0465736385427_RK, 0.0460690268006_RK, &
2053 : 0.0455631687734_RK, 0.0450560514761_RK, 0.0445476616215_RK, 0.0440379856092_RK, &
2054 : 0.0435270095144_RK, 0.0430147190762_RK, 0.0425010996849_RK, 0.0419861363691_RK, &
2055 : 0.0414698137822_RK, 0.0409521161875_RK, 0.0404330274434_RK, 0.0399125309876_RK, &
2056 : 0.0393906098197_RK, 0.0388672464844_RK, 0.0383424230521_RK, 0.0378161210995_RK, &
2057 : 0.037288321689_RK, 0.0367590053466_RK, 0.0362281520387_RK, 0.0356957411476_RK, &
2058 : 0.0351617514458_RK, 0.034626161068_RK, 0.0340889474822_RK, 0.0335500874589_RK, &
2059 : 0.033009557038_RK, 0.032467331494_RK, 0.0319233852988_RK, 0.0313776920821_RK, &
2060 : 0.0308302245895_RK, 0.0302809546372_RK, 0.0297298530646_RK, 0.0291768896823_RK, &
2061 : 0.0286220332182_RK, 0.0280652512583_RK, 0.0275065101844_RK, 0.0269457751062_RK, &
2062 : 0.02638300979_RK, 0.0258181765805_RK, 0.0252512363179_RK, 0.0246821482486_RK, &
2063 : 0.0241108699283_RK, 0.0235373571186_RK, 0.0229615636755_RK, 0.0223834414285_RK, &
2064 : 0.0218029400512_RK, 0.0212200069209_RK, 0.0206345869682_RK, 0.0200466225144_RK, &
2065 : 0.0194560530967_RK, 0.0188628152806_RK, 0.0182668424588_RK, 0.0176680646372_RK, &
2066 : 0.0170664082066_RK, 0.016461795704_RK, 0.0158541455627_RK, 0.015243371858_RK, &
2067 : 0.0146293840521_RK, 0.0140120867521_RK, 0.0133913794939_RK, 0.0127671565806_RK, &
2068 : 0.0121393070128_RK, 0.0115077145716_RK, 0.0108722581496_RK, 0.0102328124764_RK, &
2069 : 0.00958924947315_RK, 0.00894144061242_RK, 0.00828926090091_RK, 0.00763259551896_RK, &
2070 : 0.00697135089651_RK, 0.00630547338383_RK, 0.00563498133279_RK, 0.00496002177703_RK, &
2071 : 0.00428097439553_RK, 0.00359865177269_RK, 0.00291471045349_RK, 0.00223256762114_RK, &
2072 : 0.00155968193081_RK ];
2073 :
2074 : integer(IK), parameter :: VEC_CELL_1(1:5000) = [ &
2075 : 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, &
2076 : 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, &
2077 : 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 8, 8, &
2078 : 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 11, &
2079 : 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 14, &
2080 : 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 17, 17, &
2081 : 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 20, 20, 20, &
2082 : 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, &
2083 : 23, 23, 24, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, &
2084 : 27, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 29, 29, 29, 29, 29, 29, 30, 30, &
2085 : 30, 30, 30, 30, 31, 31, 31, 31, 31, 31, 32, 32, 32, 32, 32, 32, 33, 33, 33, 33, &
2086 : 33, 34, 34, 34, 34, 34, 34, 35, 35, 35, 35, 35, 35, 36, 36, 36, 36, 36, 37, 37, &
2087 : 37, 37, 37, 37, 38, 38, 38, 38, 38, 39, 39, 39, 39, 39, 39, 40, 40, 40, 40, 40, &
2088 : 40, 41, 41, 41, 41, 41, 42, 42, 42, 42, 42, 43, 43, 43, 43, 43, 43, 44, 44, 44, &
2089 : 44, 44, 45, 45, 45, 45, 45, 46, 46, 46, 46, 46, 46, 47, 47, 47, 47, 47, 48, 48, &
2090 : 48, 48, 48, 49, 49, 49, 49, 49, 50, 50, 50, 50, 50, 50, 51, 51, 51, 51, 51, 52, &
2091 : 52, 52, 52, 52, 53, 53, 53, 53, 53, 54, 54, 54, 54, 54, 55, 55, 55, 55, 55, 56, &
2092 : 56, 56, 56, 56, 57, 57, 57, 57, 57, 58, 58, 58, 58, 58, 59, 59, 59, 59, 59, 60, &
2093 : 60, 60, 60, 60, 61, 61, 61, 61, 61, 62, 62, 62, 62, 63, 63, 63, 63, 63, 64, 64, &
2094 : 64, 64, 64, 65, 65, 65, 65, 65, 66, 66, 66, 66, 66, 67, 67, 67, 67, 68, 68, 68, &
2095 : 68, 68, 69, 69, 69, 69, 69, 70, 70, 70, 70, 71, 71, 71, 71, 71, 72, 72, 72, 72, &
2096 : 72, 73, 73, 73, 73, 74, 74, 74, 74, 74, 75, 75, 75, 75, 76, 76, 76, 76, 76, 77, &
2097 : 77, 77, 77, 78, 78, 78, 78, 78, 79, 79, 79, 79, 80, 80, 80, 80, 80, 81, 81, 81, &
2098 : 81, 82, 82, 82, 82, 83, 83, 83, 83, 83, 84, 84, 84, 84, 85, 85, 85, 85, 86, 86, &
2099 : 86, 86, 86, 87, 87, 87, 87, 88, 88, 88, 88, 89, 89, 89, 89, 89, 90, 90, 90, 90, &
2100 : 91, 91, 91, 91, 92, 92, 92, 92, 93, 93, 93, 93, 94, 94, 94, 94, 95, 95, 95, 95, &
2101 : 95, 96, 96, 96, 96, 97, 97, 97, 97, 98, 98, 98, 98, 99, 99, 99, 99, 100, 100, 100, &
2102 : 100, 101, 101, 101, 101, 102, 102, 102, 102, 103, 103, 103, 103, 104, 104, 104, 104, 105, 105, 105, &
2103 : 105, 106, 106, 106, 106, 107, 107, 107, 107, 108, 108, 108, 108, 109, 109, 109, 109, 110, 110, 110, &
2104 : 110, 111, 111, 111, 111, 112, 112, 112, 113, 113, 113, 113, 114, 114, 114, 114, 115, 115, 115, 115, &
2105 : 116, 116, 116, 116, 117, 117, 117, 117, 118, 118, 118, 119, 119, 119, 119, 120, 120, 120, 120, 121, &
2106 : 121, 121, 121, 122, 122, 122, 123, 123, 123, 123, 124, 124, 124, 124, 125, 125, 125, 126, 126, 126, &
2107 : 126, 127, 127, 127, 127, 128, 128, 128, 129, 129, 129, 129, 130, 130, 130, 130, 131, 131, 131, 132, &
2108 : 132, 132, 132, 133, 133, 133, 134, 134, 134, 134, 135, 135, 135, 136, 136, 136, 136, 137, 137, 137, &
2109 : 137, 138, 138, 138, 139, 139, 139, 139, 140, 140, 140, 141, 141, 141, 141, 142, 142, 142, 143, 143, &
2110 : 143, 144, 144, 144, 144, 145, 145, 145, 146, 146, 146, 146, 147, 147, 147, 148, 148, 148, 148, 149, &
2111 : 149, 149, 150, 150, 150, 151, 151, 151, 151, 152, 152, 152, 153, 153, 153, 154, 154, 154, 154, 155, &
2112 : 155, 155, 156, 156, 156, 157, 157, 157, 157, 158, 158, 158, 159, 159, 159, 160, 160, 160, 160, 161, &
2113 : 161, 161, 162, 162, 162, 163, 163, 163, 164, 164, 164, 164, 165, 165, 165, 166, 166, 166, 167, 167, &
2114 : 167, 168, 168, 168, 169, 169, 169, 169, 170, 170, 170, 171, 171, 171, 172, 172, 172, 173, 173, 173, &
2115 : 174, 174, 174, 175, 175, 175, 176, 176, 176, 176, 177, 177, 177, 178, 178, 178, 179, 179, 179, 180, &
2116 : 180, 180, 181, 181, 181, 182, 182, 182, 183, 183, 183, 184, 184, 184, 185, 185, 185, 186, 186, 186, &
2117 : 187, 187, 187, 188, 188, 188, 189, 189, 189, 190, 190, 190, 191, 191, 191, 192, 192, 192, 193, 193, &
2118 : 193, 194, 194, 194, 195, 195, 195, 196, 196, 196, 197, 197, 197, 198, 198, 198, 199, 199, 199, 200, &
2119 : 200, 200, 201, 201, 201, 202, 202, 202, 203, 203, 203, 204, 204, 204, 205, 205, 206, 206, 206, 207, &
2120 : 207, 207, 208, 208, 208, 209, 209, 209, 210, 210, 210, 211, 211, 211, 212, 212, 213, 213, 213, 214, &
2121 : 214, 214, 215, 215, 215, 216, 216, 216, 217, 217, 217, 218, 218, 219, 219, 219, 220, 220, 220, 221, &
2122 : 221, 221, 222, 222, 223, 223, 223, 224, 224, 224, 225, 225, 225, 226, 226, 227, 227, 227, 228, 228, &
2123 : 228, 229, 229, 229, 230, 230, 231, 231, 231, 232, 232, 232, 233, 233, 234, 234, 234, 235, 235, 235, &
2124 : 236, 236, 237, 237, 237, 238, 238, 238, 239, 239, 240, 240, 240, 241, 241, 241, 242, 242, 243, 243, &
2125 : 243, 244, 244, 244, 245, 245, 246, 246, 246, 247, 247, 248, 248, 248, 249, 249, 249, 250, 250, 251, &
2126 : 251, 251, 252, 252, 253, 253, 253, 254, 254, 254, 255, 255, 256, 256, 256, 257, 257, 258, 258, 258, &
2127 : 259, 259, 260, 260, 260, 261, 261, 262, 262, 262, 263, 263, 264, 264, 264, 265, 265, 266, 266, 266, &
2128 : 267, 267, 268, 268, 268, 269, 269, 270, 270, 270, 271, 271, 272, 272, 272, 273, 273, 274, 274, 274, &
2129 : 275, 275, 276, 276, 276, 277, 277, 278, 278, 278, 279, 279, 280, 280, 280, 281, 281, 282, 282, 283, &
2130 : 283, 283, 284, 284, 285, 285, 285, 286, 286, 287, 287, 288, 288, 288, 289, 289, 290, 290, 290, 291, &
2131 : 291, 292, 292, 293, 293, 293, 294, 294, 295, 295, 296, 296, 296, 297, 297, 298, 298, 298, 299, 299, &
2132 : 300, 300, 301, 301, 301, 302, 302, 303, 303, 304, 304, 304, 305, 305, 306, 306, 307, 307, 307, 308, &
2133 : 308, 309, 309, 310, 310, 311, 311, 311, 312, 312, 313, 313, 314, 314, 314, 315, 315, 316, 316, 317, &
2134 : 317, 318, 318, 318, 319, 319, 320, 320, 321, 321, 322, 322, 322, 323, 323, 324, 324, 325, 325, 326, &
2135 : 326, 326, 327, 327, 328, 328, 329, 329, 330, 330, 330, 331, 331, 332, 332, 333, 333, 334, 334, 335, &
2136 : 335, 335, 336, 336, 337, 337, 338, 338, 339, 339, 340, 340, 340, 341, 341, 342, 342, 343, 343, 344, &
2137 : 344, 345, 345, 346, 346, 346, 347, 347, 348, 348, 349, 349, 350, 350, 351, 351, 352, 352, 353, 353, &
2138 : 353, 354, 354, 355, 355, 356, 356, 357, 357, 358, 358, 359, 359, 360, 360, 361, 361, 361, 362, 362, &
2139 : 363, 363, 364, 364, 365, 365, 366, 366, 367, 367, 368, 368, 369, 369, 370, 370, 371, 371, 371, 372, &
2140 : 372, 373, 373, 374, 374, 375, 375, 376, 376, 377, 377, 378, 378, 379, 379, 380, 380, 381, 381, 382, &
2141 : 382, 383, 383, 384, 384, 385, 385, 386, 386, 387, 387, 388, 388, 389, 389, 390, 390, 391, 391, 392, &
2142 : 392, 393, 393, 394, 394, 395, 395, 396, 396, 397, 397, 398, 398, 399, 399, 400, 400, 401, 401, 402, &
2143 : 402, 403, 403, 404, 404, 405, 405, 406, 406, 407, 407, 408, 408, 409, 409, 410, 410, 411, 411, 412, &
2144 : 412, 413, 413, 414, 414, 415, 415, 416, 416, 417, 417, 418, 418, 419, 419, 420, 420, 421, 421, 422, &
2145 : 423, 423, 424, 424, 425, 425, 426, 426, 427, 427, 428, 428, 429, 429, 430, 430, 431, 431, 432, 432, &
2146 : 433, 433, 434, 435, 435, 436, 436, 437, 437, 438, 438, 439, 439, 440, 440, 441, 441, 442, 442, 443, &
2147 : 444, 444, 445, 445, 446, 446, 447, 447, 448, 448, 449, 449, 450, 450, 451, 452, 452, 453, 453, 454, &
2148 : 454, 455, 455, 456, 456, 457, 458, 458, 459, 459, 460, 460, 461, 461, 462, 462, 463, 464, 464, 465, &
2149 : 465, 466, 466, 467, 467, 468, 468, 469, 470, 470, 471, 471, 472, 472, 473, 473, 474, 475, 475, 476, &
2150 : 476, 477, 477, 478, 478, 479, 480, 480, 481, 481, 482, 482, 483, 483, 484, 485, 485, 486, 486, 487, &
2151 : 487, 488, 488, 489, 490, 490, 491, 491, 492, 492, 493, 494, 494, 495, 495, 496, 496, 497, 498, 498, &
2152 : 499, 499, 500, 500, 501, 502, 502, 503, 503, 504, 504, 505, 506, 506, 507, 507, 508, 508, 509, 510, &
2153 : 510, 511, 511, 512, 512, 513, 514, 514, 515, 515, 516, 517, 517, 518, 518, 519, 519, 520, 521, 521, &
2154 : 522, 522, 523, 524, 524, 525, 525, 526, 526, 527, 528, 528, 529, 529, 530, 531, 531, 532, 532, 533, &
2155 : 534, 534, 535, 535, 536, 537, 537, 538, 538, 539, 539, 540, 541, 541, 542, 542, 543, 544, 544, 545, &
2156 : 545, 546, 547, 547, 548, 548, 549, 550, 550, 551, 551, 552, 553, 553, 554, 555, 555, 556, 556, 557, &
2157 : 558, 558, 559, 559, 560, 561, 561, 562, 562, 563, 564, 564, 565, 565, 566, 567, 567, 568, 569, 569, &
2158 : 570, 570, 571, 572, 572, 573, 573, 574, 575, 575, 576, 577, 577, 578, 578, 579, 580, 580, 581, 582, &
2159 : 582, 583, 583, 584, 585, 585, 586, 586, 587, 588, 588, 589, 590, 590, 591, 591, 592, 593, 593, 594, &
2160 : 595, 595, 596, 597, 597, 598, 598, 599, 600, 600, 601, 602, 602, 603, 603, 604, 605, 605, 606, 607, &
2161 : 607, 608, 609, 609, 610, 610, 611, 612, 612, 613, 614, 614, 615, 616, 616, 617, 618, 618, 619, 619, &
2162 : 620, 621, 621, 622, 623, 623, 624, 625, 625, 626, 627, 627, 628, 629, 629, 630, 630, 631, 632, 632, &
2163 : 633, 634, 634, 635, 636, 636, 637, 638, 638, 639, 640, 640, 641, 642, 642, 643, 644, 644, 645, 646, &
2164 : 646, 647, 647, 648, 649, 649, 650, 651, 651, 652, 653, 653, 654, 655, 655, 656, 657, 657, 658, 659, &
2165 : 659, 660, 661, 661, 662, 663, 663, 664, 665, 665, 666, 667, 667, 668, 669, 669, 670, 671, 671, 672, &
2166 : 673, 674, 674, 675, 676, 676, 677, 678, 678, 679, 680, 680, 681, 682, 682, 683, 684, 684, 685, 686, &
2167 : 686, 687, 688, 688, 689, 690, 690, 691, 692, 693, 693, 694, 695, 695, 696, 697, 697, 698, 699, 699, &
2168 : 700, 701, 701, 702, 703, 704, 704, 705, 706, 706, 707, 708, 708, 709, 710, 710, 711, 712, 713, 713, &
2169 : 714, 715, 715, 716, 717, 717, 718, 719, 719, 720, 721, 722, 722, 723, 724, 724, 725, 726, 726, 727, &
2170 : 728, 729, 729, 730, 731, 731, 732, 733, 734, 734, 735, 736, 736, 737, 738, 738, 739, 740, 741, 741, &
2171 : 742, 743, 743, 744, 745, 746, 746, 747, 748, 748, 749, 750, 751, 751, 752, 753, 753, 754, 755, 756, &
2172 : 756, 757, 758, 758, 759, 760, 761, 761, 762, 763, 763, 764, 765, 766, 766, 767, 768, 769, 769, 770, &
2173 : 771, 771, 772, 773, 774, 774, 775, 776, 777, 777, 778, 779, 779, 780, 781, 782, 782, 783, 784, 785, &
2174 : 785, 786, 787, 787, 788, 789, 790, 790, 791, 792, 793, 793, 794, 795, 796, 796, 797, 798, 798, 799, &
2175 : 800, 801, 801, 802, 803, 804, 804, 805, 806, 807, 807, 808, 809, 810, 810, 811, 812, 813, 813, 814, &
2176 : 815, 816, 816, 817, 818, 819, 819, 820, 821, 822, 822, 823, 824, 825, 825, 826, 827, 828, 828, 829, &
2177 : 830, 831, 831, 832, 833, 834, 834, 835, 836, 837, 837, 838, 839, 840, 840, 841, 842, 843, 843, 844, &
2178 : 845, 846, 846, 847, 848, 849, 849, 850, 851, 852, 853, 853, 854, 855, 856, 856, 857, 858, 859, 859, &
2179 : 860, 861, 862, 862, 863, 864, 865, 866, 866, 867, 868, 869, 869, 870, 871, 872, 872, 873, 874, 875, &
2180 : 876, 876, 877, 878, 879, 879, 880, 881, 882, 883, 883, 884, 885, 886, 886, 887, 888, 889, 890, 890, &
2181 : 891, 892, 893, 893, 894, 895, 896, 897, 897, 898, 899, 900, 900, 901, 902, 903, 904, 904, 905, 906, &
2182 : 907, 908, 908, 909, 910, 911, 911, 912, 913, 914, 915, 915, 916, 917, 918, 919, 919, 920, 921, 922, &
2183 : 923, 923, 924, 925, 926, 927, 927, 928, 929, 930, 931, 931, 932, 933, 934, 935, 935, 936, 937, 938, &
2184 : 939, 939, 940, 941, 942, 943, 943, 944, 945, 946, 947, 947, 948, 949, 950, 951, 951, 952, 953, 954, &
2185 : 955, 955, 956, 957, 958, 959, 959, 960, 961, 962, 963, 963, 964, 965, 966, 967, 968, 968, 969, 970, &
2186 : 971, 972, 972, 973, 974, 975, 976, 976, 977, 978, 979, 980, 981, 981, 982, 983, 984, 985, 985, 986, &
2187 : 987, 988, 989, 990, 990, 991, 992, 993, 994, 994, 995, 996, 997, 998, 999, 999, 1000, 1001, 1002, 1003, &
2188 : 1004, 1004, 1005, 1006, 1007, 1008, 1008, 1009, 1010, 1011, 1012, 1013, 1013, 1014, 1015, 1016, 1017, 1018, 1018, 1019, &
2189 : 1020, 1021, 1022, 1023, 1023, 1024, 1025, 1026, 1027, 1028, 1028, 1029, 1030, 1031, 1032, 1033, 1033, 1034, 1035, 1036, &
2190 : 1037, 1038, 1038, 1039, 1040, 1041, 1042, 1043, 1044, 1044, 1045, 1046, 1047, 1048, 1049, 1049, 1050, 1051, 1052, 1053, &
2191 : 1054, 1054, 1055, 1056, 1057, 1058, 1059, 1060, 1060, 1061, 1062, 1063, 1064, 1065, 1065, 1066, 1067, 1068, 1069, 1070, &
2192 : 1071, 1071, 1072, 1073, 1074, 1075, 1076, 1077, 1077, 1078, 1079, 1080, 1081, 1082, 1082, 1083, 1084, 1085, 1086, 1087, &
2193 : 1088, 1088, 1089, 1090, 1091, 1092, 1093, 1094, 1094, 1095, 1096, 1097, 1098, 1099, 1100, 1100, 1101, 1102, 1103, 1104, &
2194 : 1105, 1106, 1107, 1107, 1108, 1109, 1110, 1111, 1112, 1113, 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1119, 1120, 1121, &
2195 : 1122, 1123, 1124, 1125, 1126, 1126, 1127, 1128, 1129, 1130, 1131, 1132, 1133, 1133, 1134, 1135, 1136, 1137, 1138, 1139, &
2196 : 1139, 1140, 1141, 1142, 1143, 1144, 1145, 1146, 1146, 1147, 1148, 1149, 1150, 1151, 1152, 1153, 1153, 1154, 1155, 1156, &
2197 : 1157, 1158, 1159, 1160, 1161, 1161, 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1168, 1169, 1170, 1171, 1172, 1173, 1174, &
2198 : 1175, 1176, 1176, 1177, 1178, 1179, 1180, 1181, 1182, 1183, 1183, 1184, 1185, 1186, 1187, 1188, 1189, 1190, 1191, 1191, &
2199 : 1192, 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1199, 1200, 1201, 1202, 1203, 1204, 1205, 1206, 1207, 1208, 1208, 1209, &
2200 : 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1216, 1217, 1218, 1219, 1220, 1221, 1222, 1223, 1224, 1225, 1225, 1226, 1227, &
2201 : 1228, 1229, 1230, 1231, 1232, 1233, 1234, 1234, 1235, 1236, 1237, 1238, 1239, 1240, 1241, 1242, 1243, 1243, 1244, 1245, &
2202 : 1246, 1247, 1248, 1249, 1250, 1251, 1252, 1253, 1253, 1254, 1255, 1256, 1257, 1258, 1259, 1260, 1261, 1262, 1263, 1263, &
2203 : 1264, 1265, 1266, 1267, 1268, 1269, 1270, 1271, 1272, 1273, 1273, 1274, 1275, 1276, 1277, 1278, 1279, 1280, 1281, 1282, &
2204 : 1283, 1283, 1284, 1285, 1286, 1287, 1288, 1289, 1290, 1291, 1292, 1293, 1294, 1294, 1295, 1296, 1297, 1298, 1299, 1300, &
2205 : 1301, 1302, 1303, 1304, 1305, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 1312, 1313, 1314, 1315, 1316, 1317, 1317, 1318, &
2206 : 1319, 1320, 1321, 1322, 1323, 1324, 1325, 1326, 1327, 1328, 1329, 1329, 1330, 1331, 1332, 1333, 1334, 1335, 1336, 1337, &
2207 : 1338, 1339, 1340, 1341, 1342, 1342, 1343, 1344, 1345, 1346, 1347, 1348, 1349, 1350, 1351, 1352, 1353, 1354, 1355, 1356, &
2208 : 1356, 1357, 1358, 1359, 1360, 1361, 1362, 1363, 1364, 1365, 1366, 1367, 1368, 1369, 1370, 1370, 1371, 1372, 1373, 1374, &
2209 : 1375, 1376, 1377, 1378, 1379, 1380, 1381, 1382, 1383, 1384, 1385, 1385, 1386, 1387, 1388, 1389, 1390, 1391, 1392, 1393, &
2210 : 1394, 1395, 1396, 1397, 1398, 1399, 1400, 1401, 1401, 1402, 1403, 1404, 1405, 1406, 1407, 1408, 1409, 1410, 1411, 1412, &
2211 : 1413, 1414, 1415, 1416, 1417, 1417, 1418, 1419, 1420, 1421, 1422, 1423, 1424, 1425, 1426, 1427, 1428, 1429, 1430, 1431, &
2212 : 1432, 1433, 1434, 1435, 1435, 1436, 1437, 1438, 1439, 1440, 1441, 1442, 1443, 1444, 1445, 1446, 1447, 1448, 1449, 1450, &
2213 : 1451, 1452, 1453, 1454, 1455, 1455, 1456, 1457, 1458, 1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 1467, 1468, 1469, &
2214 : 1470, 1471, 1472, 1473, 1474, 1475, 1476, 1476, 1477, 1478, 1479, 1480, 1481, 1482, 1483, 1484, 1485, 1486, 1487, 1488, &
2215 : 1489, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 1497, 1498, 1499, 1500, 1500, 1501, 1502, 1503, 1504, 1505, 1506, 1507, &
2216 : 1508, 1509, 1510, 1511, 1512, 1513, 1514, 1515, 1516, 1517, 1518, 1519, 1520, 1521, 1522, 1523, 1524, 1525, 1526, 1526, &
2217 : 1527, 1528, 1529, 1530, 1531, 1532, 1533, 1534, 1535, 1536, 1537, 1538, 1539, 1540, 1541, 1542, 1543, 1544, 1545, 1546, &
2218 : 1547, 1548, 1549, 1550, 1551, 1552, 1553, 1554, 1555, 1556, 1556, 1557, 1558, 1559, 1560, 1561, 1562, 1563, 1564, 1565, &
2219 : 1566, 1567, 1568, 1569, 1570, 1571, 1572, 1573, 1574, 1575, 1576, 1577, 1578, 1579, 1580, 1581, 1582, 1583, 1584, 1585, &
2220 : 1586, 1587, 1588, 1589, 1590, 1591, 1592, 1592, 1593, 1594, 1595, 1596, 1597, 1598, 1599, 1600, 1601, 1602, 1603, 1604, &
2221 : 1605, 1606, 1607, 1608, 1609, 1610, 1611, 1612, 1613, 1614, 1615, 1616, 1617, 1618, 1619, 1620, 1621, 1622, 1623, 1624, &
2222 : 1625, 1626, 1627, 1628, 1629, 1630, 1631, 1632, 1633, 1634, 1635, 1636, 1637, 1637, 1638, 1639, 1640, 1641, 1642, 1643, &
2223 : 1644, 1645, 1646, 1647, 1648, 1649, 1650, 1651, 1652, 1653, 1654, 1655, 1656, 1657, 1658, 1659, 1660, 1661, 1662, 1663, &
2224 : 1664, 1665, 1666, 1667, 1668, 1669, 1670, 1671, 1672, 1673, 1674, 1675, 1676, 1677, 1678, 1679, 1680, 1681, 1682, 1683, &
2225 : 1684, 1685, 1686, 1687, 1688, 1689, 1690, 1691, 1692, 1693, 1694, 1695, 1696, 1697, 1698, 1699, 1700, 1701, 1702, 1702, &
2226 : 1703, 1704, 1705, 1706, 1707, 1708, 1709, 1710, 1711, 1712, 1713, 1714, 1715, 1716, 1717, 1718, 1719, 1720, 1721, 1722, &
2227 : 1723, 1724, 1725, 1726, 1727, 1728, 1729, 1730, 1731, 1732, 1733, 1734, 1735, 1736, 1737, 1738, 1739, 1740, 1741, 1742, &
2228 : 1743, 1744, 1745, 1746, 1747, 1748, 1749, 1750, 1751, 1752, 1753, 1754, 1755, 1756, 1757, 1758, 1759, 1760, 1761, 1762, &
2229 : 1763, 1764, 1765, 1766, 1767, 1768, 1769, 1770, 1771, 1772, 1773, 1774, 1775, 1776, 1777, 1778, 1779, 1780, 1781, 1782, &
2230 : 1783, 1784, 1785, 1786, 1787, 1788, 1789, 1790, 1791, 1792, 1793, 1794, 1795, 1796, 1797, 1798, 1799, 1800, 1801, 1802, &
2231 : 1803, 1804, 1805, 1806, 1807, 1808, 1809, 1810, 1811, 1812, 1813, 1814, 1815, 1816, 1817, 1818, 1819, 1820, 1821, 1822, &
2232 : 1823, 1824, 1825, 1826, 1827, 1828, 1829, 1830, 1831, 1832, 1833, 1834, 1835, 1836, 1837, 1838, 1839, 1840, 1841, 1842, &
2233 : 1843, 1844, 1845, 1846, 1847, 1848, 1849, 1850, 1851, 1852, 1853, 1854, 1855, 1856, 1857, 1858, 1859, 1860, 1861, 1862, &
2234 : 1863, 1864, 1865, 1866, 1867, 1868, 1869, 1870, 1871, 1872, 1873, 1874, 1875, 1876, 1877, 1878, 1879, 1880, 1881, 1882, &
2235 : 1883, 1884, 1885, 1886, 1887, 1888, 1889, 1890, 1891, 1892, 1893, 1894, 1895, 1896, 1897, 1898, 1899, 1900, 1901, 1902, &
2236 : 1903, 1904, 1905, 1906, 1907, 1908, 1909, 1910, 1911, 1912, 1913, 1914, 1915, 1916, 1917, 1918, 1919, 1920, 1921, 1922, &
2237 : 1923, 1924, 1925, 1926, 1927, 1928, 1929, 1930, 1931, 1932, 1933, 1934, 1935, 1936, 1937, 1938, 1939, 1940, 1941, 1942, &
2238 : 1943, 1944, 1945, 1946, 1947, 1948, 1949, 1950, 1951, 1952, 1953, 1954, 1955, 1955, 1956, 1957, 1958, 1959, 1960, 1961, &
2239 : 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1981, &
2240 : 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, &
2241 : 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021, &
2242 : 2022, 2023, 2024, 2025, 2026, 2027, 2028, 2029, 2030, 2031, 2032, 2033, 2034, 2035, 2036, 2037, 2038, 2039, 2040, 2041, &
2243 : 2042, 2043, 2044, 2045, 2046, 2047, 2048, 2049, 2050, 2051, 2052, 2053, 2054, 2055, 2056, 2057, 2058, 2059, 2060, 2061, &
2244 : 2062, 2063, 2064, 2065, 2066, 2067, 2068, 2069, 2070, 2071, 2072, 2073, 2074, 2075, 2076, 2077, 2078, 2079, 2080, 2081, &
2245 : 2082, 2083, 2084, 2085, 2086, 2087, 2088, 2089, 2090, 2091, 2092, 2093, 2094, 2095, 2096, 2097, 2098, 2099, 2100, 2101, &
2246 : 2102, 2103, 2104, 2105, 2106, 2107, 2108, 2109, 2110, 2111, 2112, 2113, 2114, 2115, 2116, 2117, 2118, 2119, 2120, 2121, &
2247 : 2122, 2123, 2124, 2125, 2126, 2127, 2128, 2129, 2130, 2131, 2132, 2133, 2134, 2135, 2136, 2137, 2138, 2139, 2140, 2141, &
2248 : 2142, 2143, 2144, 2145, 2146, 2147, 2148, 2149, 2150, 2151, 2152, 2153, 2154, 2155, 2156, 2157, 2158, 2159, 2160, 2161, &
2249 : 2162, 2163, 2164, 2165, 2166, 2167, 2168, 2169, 2170, 2171, 2172, 2173, 2174, 2175, 2176, 2177, 2178, 2179, 2180, 2181, &
2250 : 2182, 2183, 2184, 2185, 2186, 2187, 2188, 2189, 2190, 2191, 2192, 2193, 2194, 2195, 2196, 2197, 2198, 2199, 2200, 2201, &
2251 : 2202, 2203, 2204, 2205, 2205, 2206, 2207, 2208, 2209, 2210, 2211, 2212, 2213, 2214, 2215, 2216, 2217, 2218, 2219, 2220, &
2252 : 2221, 2222, 2223, 2224, 2225, 2226, 2227, 2228, 2229, 2230, 2231, 2232, 2233, 2234, 2235, 2236, 2237, 2238, 2239, 2240, &
2253 : 2241, 2242, 2243, 2244, 2245, 2246, 2247, 2248, 2249, 2250, 2251, 2252, 2253, 2254, 2255, 2256, 2257, 2258, 2259, 2260, &
2254 : 2261, 2262, 2263, 2264, 2265, 2266, 2267, 2268, 2269, 2270, 2270, 2271, 2272, 2273, 2274, 2275, 2276, 2277, 2278, 2279, &
2255 : 2280, 2281, 2282, 2283, 2284, 2285, 2286, 2287, 2288, 2289, 2290, 2291, 2292, 2293, 2294, 2295, 2296, 2297, 2298, 2299, &
2256 : 2300, 2301, 2302, 2303, 2304, 2305, 2306, 2307, 2308, 2309, 2310, 2311, 2312, 2313, 2314, 2315, 2315, 2316, 2317, 2318, &
2257 : 2319, 2320, 2321, 2322, 2323, 2324, 2325, 2326, 2327, 2328, 2329, 2330, 2331, 2332, 2333, 2334, 2335, 2336, 2337, 2338, &
2258 : 2339, 2340, 2341, 2342, 2343, 2344, 2345, 2346, 2347, 2348, 2349, 2350, 2351, 2351, 2352, 2353, 2354, 2355, 2356, 2357, &
2259 : 2358, 2359, 2360, 2361, 2362, 2363, 2364, 2365, 2366, 2367, 2368, 2369, 2370, 2371, 2372, 2373, 2374, 2375, 2376, 2377, &
2260 : 2378, 2379, 2380, 2381, 2381, 2382, 2383, 2384, 2385, 2386, 2387, 2388, 2389, 2390, 2391, 2392, 2393, 2394, 2395, 2396, &
2261 : 2397, 2398, 2399, 2400, 2401, 2402, 2403, 2404, 2405, 2406, 2407, 2407, 2408, 2409, 2410, 2411, 2412, 2413, 2414, 2415, &
2262 : 2416, 2417, 2418, 2419, 2420, 2421, 2422, 2423, 2424, 2425, 2426, 2427, 2428, 2429, 2430, 2431, 2431, 2432, 2433, 2434, &
2263 : 2435, 2436, 2437, 2438, 2439, 2440, 2441, 2442, 2443, 2444, 2445, 2446, 2447, 2448, 2449, 2450, 2451, 2452, 2452, 2453, &
2264 : 2454, 2455, 2456, 2457, 2458, 2459, 2460, 2461, 2462, 2463, 2464, 2465, 2466, 2467, 2468, 2469, 2470, 2471, 2472, 2472, &
2265 : 2473, 2474, 2475, 2476, 2477, 2478, 2479, 2480, 2481, 2482, 2483, 2484, 2485, 2486, 2487, 2488, 2489, 2490, 2490, 2491, &
2266 : 2492, 2493, 2494, 2495, 2496, 2497, 2498, 2499, 2500, 2501, 2502, 2503, 2504, 2505, 2506, 2506, 2507, 2508, 2509, 2510, &
2267 : 2511, 2512, 2513, 2514, 2515, 2516, 2517, 2518, 2519, 2520, 2521, 2522, 2522, 2523, 2524, 2525, 2526, 2527, 2528, 2529, &
2268 : 2530, 2531, 2532, 2533, 2534, 2535, 2536, 2537, 2537, 2538, 2539, 2540, 2541, 2542, 2543, 2544, 2545, 2546, 2547, 2548, &
2269 : 2549, 2550, 2551, 2551, 2552, 2553, 2554, 2555, 2556, 2557, 2558, 2559, 2560, 2561, 2562, 2563, 2564, 2565, 2565, 2566, &
2270 : 2567, 2568, 2569, 2570, 2571, 2572, 2573, 2574, 2575, 2576, 2577, 2578, 2578, 2579, 2580, 2581, 2582, 2583, 2584, 2585, &
2271 : 2586, 2587, 2588, 2589, 2590, 2590, 2591, 2592, 2593, 2594, 2595, 2596, 2597, 2598, 2599, 2600, 2601, 2602, 2602, 2603, &
2272 : 2604, 2605, 2606, 2607, 2608, 2609, 2610, 2611, 2612, 2613, 2613, 2614, 2615, 2616, 2617, 2618, 2619, 2620, 2621, 2622, &
2273 : 2623, 2624, 2624, 2625, 2626, 2627, 2628, 2629, 2630, 2631, 2632, 2633, 2634, 2634, 2635, 2636, 2637, 2638, 2639, 2640, &
2274 : 2641, 2642, 2643, 2644, 2644, 2645, 2646, 2647, 2648, 2649, 2650, 2651, 2652, 2653, 2654, 2654, 2655, 2656, 2657, 2658, &
2275 : 2659, 2660, 2661, 2662, 2663, 2664, 2664, 2665, 2666, 2667, 2668, 2669, 2670, 2671, 2672, 2673, 2673, 2674, 2675, 2676, &
2276 : 2677, 2678, 2679, 2680, 2681, 2682, 2682, 2683, 2684, 2685, 2686, 2687, 2688, 2689, 2690, 2691, 2691, 2692, 2693, 2694, &
2277 : 2695, 2696, 2697, 2698, 2699, 2699, 2700, 2701, 2702, 2703, 2704, 2705, 2706, 2707, 2708, 2708, 2709, 2710, 2711, 2712, &
2278 : 2713, 2714, 2715, 2716, 2716, 2717, 2718, 2719, 2720, 2721, 2722, 2723, 2724, 2724, 2725, 2726, 2727, 2728, 2729, 2730, &
2279 : 2731, 2731, 2732, 2733, 2734, 2735, 2736, 2737, 2738, 2739, 2739, 2740, 2741, 2742, 2743, 2744, 2745, 2746, 2746, 2747, &
2280 : 2748, 2749, 2750, 2751, 2752, 2753, 2754, 2754, 2755, 2756, 2757, 2758, 2759, 2760, 2761, 2761, 2762, 2763, 2764, 2765, &
2281 : 2766, 2767, 2768, 2768, 2769, 2770, 2771, 2772, 2773, 2774, 2774, 2775, 2776, 2777, 2778, 2779, 2780, 2781, 2781, 2782, &
2282 : 2783, 2784, 2785, 2786, 2787, 2788, 2788, 2789, 2790, 2791, 2792, 2793, 2794, 2794, 2795, 2796, 2797, 2798, 2799, 2800, &
2283 : 2800, 2801, 2802, 2803, 2804, 2805, 2806, 2807, 2807, 2808, 2809, 2810, 2811, 2812, 2813, 2813, 2814, 2815, 2816, 2817, &
2284 : 2818, 2819, 2819, 2820, 2821, 2822, 2823, 2824, 2825, 2825, 2826, 2827, 2828, 2829, 2830, 2830, 2831, 2832, 2833, 2834, &
2285 : 2835, 2836, 2836, 2837, 2838, 2839, 2840, 2841, 2842, 2842, 2843, 2844, 2845, 2846, 2847, 2847, 2848, 2849, 2850, 2851, &
2286 : 2852, 2853, 2853, 2854, 2855, 2856, 2857, 2858, 2858, 2859, 2860, 2861, 2862, 2863, 2863, 2864, 2865, 2866, 2867, 2868, &
2287 : 2869, 2869, 2870, 2871, 2872, 2873, 2874, 2874, 2875, 2876, 2877, 2878, 2879, 2879, 2880, 2881, 2882, 2883, 2884, 2884, &
2288 : 2885, 2886, 2887, 2888, 2889, 2889, 2890, 2891, 2892, 2893, 2894, 2894, 2895, 2896, 2897, 2898, 2899, 2899, 2900, 2901, &
2289 : 2902, 2903, 2903, 2904, 2905, 2906, 2907, 2908, 2908, 2909, 2910, 2911, 2912, 2913, 2913, 2914, 2915, 2916, 2917, 2917, &
2290 : 2918, 2919, 2920, 2921, 2922, 2922, 2923, 2924, 2925, 2926, 2926, 2927, 2928, 2929, 2930, 2931, 2931, 2932, 2933, 2934, &
2291 : 2935, 2935, 2936, 2937, 2938, 2939, 2939, 2940, 2941, 2942, 2943, 2944, 2944, 2945, 2946, 2947, 2948, 2948, 2949, 2950, &
2292 : 2951, 2952, 2952, 2953, 2954, 2955, 2956, 2956, 2957, 2958, 2959, 2960, 2960, 2961, 2962, 2963, 2964, 2964, 2965, 2966, &
2293 : 2967, 2968, 2968, 2969, 2970, 2971, 2972, 2972, 2973, 2974, 2975, 2976, 2976, 2977, 2978, 2979, 2980, 2980, 2981, 2982, &
2294 : 2983, 2984, 2984, 2985, 2986, 2987, 2988, 2988, 2989, 2990, 2991, 2992, 2992, 2993, 2994, 2995, 2996, 2996, 2997, 2998, &
2295 : 2999, 2999, 3000, 3001, 3002, 3003, 3003, 3004, 3005, 3006, 3007, 3007, 3008, 3009, 3010, 3010, 3011, 3012, 3013, 3014, &
2296 : 3014, 3015, 3016, 3017, 3017, 3018, 3019, 3020, 3021, 3021, 3022, 3023, 3024, 3024, 3025, 3026, 3027, 3028, 3028, 3029, &
2297 : 3030, 3031, 3031, 3032, 3033, 3034, 3035, 3035, 3036, 3037, 3038, 3038, 3039, 3040, 3041, 3041, 3042, 3043, 3044, 3045, &
2298 : 3045, 3046, 3047, 3048, 3048, 3049, 3050, 3051, 3051, 3052, 3053, 3054, 3054, 3055, 3056, 3057, 3058, 3058, 3059, 3060, &
2299 : 3061, 3061, 3062, 3063, 3064, 3064, 3065, 3066, 3067, 3067, 3068, 3069, 3070, 3070, 3071, 3072, 3073, 3073, 3074, 3075, &
2300 : 3076, 3076, 3077, 3078, 3079, 3079, 3080, 3081, 3082, 3082, 3083, 3084, 3085, 3085, 3086, 3087, 3088, 3088, 3089, 3090, &
2301 : 3091, 3091, 3092, 3093, 3094, 3094, 3095, 3096, 3097, 3097, 3098, 3099, 3100, 3100, 3101, 3102, 3103, 3103, 3104, 3105, &
2302 : 3106, 3106, 3107, 3108, 3109, 3109, 3110, 3111, 3111, 3112, 3113, 3114, 3114, 3115, 3116, 3117, 3117, 3118, 3119, 3120, &
2303 : 3120, 3121, 3122, 3122, 3123, 3124, 3125, 3125, 3126, 3127, 3128, 3128, 3129, 3130, 3130, 3131, 3132, 3133, 3133, 3134, &
2304 : 3135, 3136, 3136, 3137, 3138, 3138, 3139, 3140, 3141, 3141, 3142, 3143, 3144, 3144, 3145, 3146, 3146, 3147, 3148, 3149, &
2305 : 3149, 3150, 3151, 3151, 3152, 3153, 3154, 3154, 3155, 3156, 3156, 3157, 3158, 3159, 3159, 3160, 3161, 3161, 3162, 3163, &
2306 : 3164, 3164, 3165, 3166, 3166, 3167, 3168, 3169, 3169, 3170, 3171, 3171, 3172, 3173, 3173, 3174, 3175, 3176, 3176, 3177, &
2307 : 3178, 3178, 3179, 3180, 3181, 3181, 3182, 3183, 3183, 3184, 3185, 3185, 3186, 3187, 3188, 3188, 3189, 3190, 3190, 3191, &
2308 : 3192, 3192, 3193, 3194, 3194, 3195, 3196, 3197, 3197, 3198, 3199, 3199, 3200, 3201, 3201, 3202, 3203, 3203, 3204, 3205, &
2309 : 3206, 3206, 3207, 3208, 3208, 3209, 3210, 3210, 3211, 3212, 3212, 3213, 3214, 3214, 3215, 3216, 3217, 3217, 3218, 3219, &
2310 : 3219, 3220, 3221, 3221, 3222, 3223, 3223, 3224, 3225, 3225, 3226, 3227, 3227, 3228, 3229, 3229, 3230, 3231, 3231, 3232, &
2311 : 3233, 3233, 3234, 3235, 3236, 3236, 3237, 3238, 3238, 3239, 3240, 3240, 3241, 3242, 3242, 3243, 3244, 3244, 3245, 3246, &
2312 : 3246, 3247, 3248, 3248, 3249, 3250, 3250, 3251, 3252, 3252, 3253, 3254, 3254, 3255, 3256, 3256, 3257, 3258, 3258, 3259, &
2313 : 3260, 3260, 3261, 3261, 3262, 3263, 3263, 3264, 3265, 3265, 3266, 3267, 3267, 3268, 3269, 3269, 3270, 3271, 3271, 3272, &
2314 : 3273, 3273, 3274, 3275, 3275, 3276, 3277, 3277, 3278, 3278, 3279, 3280, 3280, 3281, 3282, 3282, 3283, 3284, 3284, 3285, &
2315 : 3286, 3286, 3287, 3288, 3288, 3289, 3289, 3290, 3291, 3291, 3292, 3293, 3293, 3294, 3295, 3295, 3296, 3297, 3297, 3298, &
2316 : 3298, 3299, 3300, 3300, 3301, 3302, 3302, 3303, 3304, 3304, 3305, 3305, 3306, 3307, 3307, 3308, 3309, 3309, 3310, 3310, &
2317 : 3311, 3312, 3312, 3313, 3314, 3314, 3315, 3316, 3316, 3317, 3317, 3318, 3319, 3319, 3320, 3321, 3321, 3322, 3322, 3323, &
2318 : 3324, 3324, 3325, 3325, 3326, 3327, 3327, 3328, 3329, 3329, 3330, 3330, 3331, 3332, 3332, 3333, 3334, 3334, 3335, 3335, &
2319 : 3336, 3337, 3337, 3338, 3338, 3339, 3340, 3340, 3341, 3342, 3342, 3343, 3343, 3344, 3345, 3345, 3346, 3346, 3347, 3348, &
2320 : 3348, 3349, 3349, 3350, 3351, 3351, 3352, 3352, 3353, 3354, 3354, 3355, 3356, 3356, 3357, 3357, 3358, 3359, 3359, 3360, &
2321 : 3360, 3361, 3362, 3362, 3363, 3363, 3364, 3365, 3365, 3366, 3366, 3367, 3368, 3368, 3369, 3369, 3370, 3370, 3371, 3372, &
2322 : 3372, 3373, 3373, 3374, 3375, 3375, 3376, 3376, 3377, 3378, 3378, 3379, 3379, 3380, 3381, 3381, 3382, 3382, 3383, 3383, &
2323 : 3384, 3385, 3385, 3386, 3386, 3387, 3388, 3388, 3389, 3389, 3390, 3390, 3391, 3392, 3392, 3393, 3393, 3394, 3395, 3395, &
2324 : 3396, 3396, 3397, 3397, 3398, 3399, 3399, 3400, 3400, 3401, 3401, 3402, 3403, 3403, 3404, 3404, 3405, 3405, 3406, 3407 ]
2325 :
2326 : integer(IK), parameter :: VEC_CELL_2(5001:LEN_VEC_CELL) = [ &
2327 : 3407, 3408, 3408, 3409, 3409, 3410, 3411, 3411, 3412, 3412, 3413, 3413, 3414, 3415, 3415, 3416, 3416, 3417, 3417, 3418, &
2328 : 3419, 3419, 3420, 3420, 3421, 3421, 3422, 3422, 3423, 3424, 3424, 3425, 3425, 3426, 3426, 3427, 3427, 3428, 3429, 3429, &
2329 : 3430, 3430, 3431, 3431, 3432, 3432, 3433, 3434, 3434, 3435, 3435, 3436, 3436, 3437, 3437, 3438, 3439, 3439, 3440, 3440, &
2330 : 3441, 3441, 3442, 3442, 3443, 3443, 3444, 3445, 3445, 3446, 3446, 3447, 3447, 3448, 3448, 3449, 3449, 3450, 3451, 3451, &
2331 : 3452, 3452, 3453, 3453, 3454, 3454, 3455, 3455, 3456, 3457, 3457, 3458, 3458, 3459, 3459, 3460, 3460, 3461, 3461, 3462, &
2332 : 3462, 3463, 3463, 3464, 3465, 3465, 3466, 3466, 3467, 3467, 3468, 3468, 3469, 3469, 3470, 3470, 3471, 3471, 3472, 3472, &
2333 : 3473, 3474, 3474, 3475, 3475, 3476, 3476, 3477, 3477, 3478, 3478, 3479, 3479, 3480, 3480, 3481, 3481, 3482, 3482, 3483, &
2334 : 3483, 3484, 3484, 3485, 3486, 3486, 3487, 3487, 3488, 3488, 3489, 3489, 3490, 3490, 3491, 3491, 3492, 3492, 3493, 3493, &
2335 : 3494, 3494, 3495, 3495, 3496, 3496, 3497, 3497, 3498, 3498, 3499, 3499, 3500, 3500, 3501, 3501, 3502, 3502, 3503, 3503, &
2336 : 3504, 3504, 3505, 3505, 3506, 3506, 3507, 3507, 3508, 3508, 3509, 3509, 3510, 3510, 3511, 3511, 3512, 3512, 3513, 3513, &
2337 : 3514, 3514, 3515, 3515, 3516, 3516, 3517, 3517, 3518, 3518, 3519, 3519, 3520, 3520, 3521, 3521, 3522, 3522, 3523, 3523, &
2338 : 3524, 3524, 3525, 3525, 3526, 3526, 3527, 3527, 3528, 3528, 3529, 3529, 3530, 3530, 3531, 3531, 3532, 3532, 3533, 3533, &
2339 : 3534, 3534, 3535, 3535, 3536, 3536, 3536, 3537, 3537, 3538, 3538, 3539, 3539, 3540, 3540, 3541, 3541, 3542, 3542, 3543, &
2340 : 3543, 3544, 3544, 3545, 3545, 3546, 3546, 3546, 3547, 3547, 3548, 3548, 3549, 3549, 3550, 3550, 3551, 3551, 3552, 3552, &
2341 : 3553, 3553, 3554, 3554, 3554, 3555, 3555, 3556, 3556, 3557, 3557, 3558, 3558, 3559, 3559, 3560, 3560, 3561, 3561, 3561, &
2342 : 3562, 3562, 3563, 3563, 3564, 3564, 3565, 3565, 3566, 3566, 3567, 3567, 3567, 3568, 3568, 3569, 3569, 3570, 3570, 3571, &
2343 : 3571, 3572, 3572, 3572, 3573, 3573, 3574, 3574, 3575, 3575, 3576, 3576, 3577, 3577, 3577, 3578, 3578, 3579, 3579, 3580, &
2344 : 3580, 3581, 3581, 3581, 3582, 3582, 3583, 3583, 3584, 3584, 3585, 3585, 3585, 3586, 3586, 3587, 3587, 3588, 3588, 3589, &
2345 : 3589, 3589, 3590, 3590, 3591, 3591, 3592, 3592, 3593, 3593, 3593, 3594, 3594, 3595, 3595, 3596, 3596, 3596, 3597, 3597, &
2346 : 3598, 3598, 3599, 3599, 3600, 3600, 3600, 3601, 3601, 3602, 3602, 3603, 3603, 3603, 3604, 3604, 3605, 3605, 3606, 3606, &
2347 : 3606, 3607, 3607, 3608, 3608, 3609, 3609, 3609, 3610, 3610, 3611, 3611, 3611, 3612, 3612, 3613, 3613, 3614, 3614, 3614, &
2348 : 3615, 3615, 3616, 3616, 3617, 3617, 3617, 3618, 3618, 3619, 3619, 3619, 3620, 3620, 3621, 3621, 3622, 3622, 3622, 3623, &
2349 : 3623, 3624, 3624, 3624, 3625, 3625, 3626, 3626, 3627, 3627, 3627, 3628, 3628, 3629, 3629, 3629, 3630, 3630, 3631, 3631, &
2350 : 3631, 3632, 3632, 3633, 3633, 3633, 3634, 3634, 3635, 3635, 3635, 3636, 3636, 3637, 3637, 3637, 3638, 3638, 3639, 3639, &
2351 : 3639, 3640, 3640, 3641, 3641, 3641, 3642, 3642, 3643, 3643, 3643, 3644, 3644, 3645, 3645, 3645, 3646, 3646, 3647, 3647, &
2352 : 3647, 3648, 3648, 3649, 3649, 3649, 3650, 3650, 3651, 3651, 3651, 3652, 3652, 3653, 3653, 3653, 3654, 3654, 3654, 3655, &
2353 : 3655, 3656, 3656, 3656, 3657, 3657, 3658, 3658, 3658, 3659, 3659, 3659, 3660, 3660, 3661, 3661, 3661, 3662, 3662, 3663, &
2354 : 3663, 3663, 3664, 3664, 3664, 3665, 3665, 3666, 3666, 3666, 3667, 3667, 3667, 3668, 3668, 3669, 3669, 3669, 3670, 3670, &
2355 : 3670, 3671, 3671, 3672, 3672, 3672, 3673, 3673, 3673, 3674, 3674, 3675, 3675, 3675, 3676, 3676, 3676, 3677, 3677, 3678, &
2356 : 3678, 3678, 3679, 3679, 3679, 3680, 3680, 3680, 3681, 3681, 3682, 3682, 3682, 3683, 3683, 3683, 3684, 3684, 3684, 3685, &
2357 : 3685, 3686, 3686, 3686, 3687, 3687, 3687, 3688, 3688, 3688, 3689, 3689, 3690, 3690, 3690, 3691, 3691, 3691, 3692, 3692, &
2358 : 3692, 3693, 3693, 3693, 3694, 3694, 3694, 3695, 3695, 3696, 3696, 3696, 3697, 3697, 3697, 3698, 3698, 3698, 3699, 3699, &
2359 : 3699, 3700, 3700, 3700, 3701, 3701, 3701, 3702, 3702, 3703, 3703, 3703, 3704, 3704, 3704, 3705, 3705, 3705, 3706, 3706, &
2360 : 3706, 3707, 3707, 3707, 3708, 3708, 3708, 3709, 3709, 3709, 3710, 3710, 3710, 3711, 3711, 3711, 3712, 3712, 3712, 3713, &
2361 : 3713, 3713, 3714, 3714, 3714, 3715, 3715, 3715, 3716, 3716, 3716, 3717, 3717, 3717, 3718, 3718, 3718, 3719, 3719, 3719, &
2362 : 3720, 3720, 3720, 3721, 3721, 3721, 3722, 3722, 3722, 3723, 3723, 3723, 3724, 3724, 3724, 3725, 3725, 3725, 3726, 3726, &
2363 : 3726, 3727, 3727, 3727, 3728, 3728, 3728, 3729, 3729, 3729, 3730, 3730, 3730, 3731, 3731, 3731, 3731, 3732, 3732, 3732, &
2364 : 3733, 3733, 3733, 3734, 3734, 3734, 3735, 3735, 3735, 3736, 3736, 3736, 3737, 3737, 3737, 3738, 3738, 3738, 3738, 3739, &
2365 : 3739, 3739, 3740, 3740, 3740, 3741, 3741, 3741, 3742, 3742, 3742, 3743, 3743, 3743, 3743, 3744, 3744, 3744, 3745, 3745, &
2366 : 3745, 3746, 3746, 3746, 3747, 3747, 3747, 3747, 3748, 3748, 3748, 3749, 3749, 3749, 3750, 3750, 3750, 3750, 3751, 3751, &
2367 : 3751, 3752, 3752, 3752, 3753, 3753, 3753, 3753, 3754, 3754, 3754, 3755, 3755, 3755, 3756, 3756, 3756, 3756, 3757, 3757, &
2368 : 3757, 3758, 3758, 3758, 3759, 3759, 3759, 3759, 3760, 3760, 3760, 3761, 3761, 3761, 3761, 3762, 3762, 3762, 3763, 3763, &
2369 : 3763, 3763, 3764, 3764, 3764, 3765, 3765, 3765, 3766, 3766, 3766, 3766, 3767, 3767, 3767, 3768, 3768, 3768, 3768, 3769, &
2370 : 3769, 3769, 3770, 3770, 3770, 3770, 3771, 3771, 3771, 3771, 3772, 3772, 3772, 3773, 3773, 3773, 3773, 3774, 3774, 3774, &
2371 : 3775, 3775, 3775, 3775, 3776, 3776, 3776, 3777, 3777, 3777, 3777, 3778, 3778, 3778, 3778, 3779, 3779, 3779, 3780, 3780, &
2372 : 3780, 3780, 3781, 3781, 3781, 3781, 3782, 3782, 3782, 3783, 3783, 3783, 3783, 3784, 3784, 3784, 3784, 3785, 3785, 3785, &
2373 : 3786, 3786, 3786, 3786, 3787, 3787, 3787, 3787, 3788, 3788, 3788, 3788, 3789, 3789, 3789, 3790, 3790, 3790, 3790, 3791, &
2374 : 3791, 3791, 3791, 3792, 3792, 3792, 3792, 3793, 3793, 3793, 3793, 3794, 3794, 3794, 3794, 3795, 3795, 3795, 3796, 3796, &
2375 : 3796, 3796, 3797, 3797, 3797, 3797, 3798, 3798, 3798, 3798, 3799, 3799, 3799, 3799, 3800, 3800, 3800, 3800, 3801, 3801, &
2376 : 3801, 3801, 3802, 3802, 3802, 3802, 3803, 3803, 3803, 3803, 3804, 3804, 3804, 3804, 3805, 3805, 3805, 3805, 3806, 3806, &
2377 : 3806, 3806, 3807, 3807, 3807, 3807, 3808, 3808, 3808, 3808, 3809, 3809, 3809, 3809, 3810, 3810, 3810, 3810, 3811, 3811, &
2378 : 3811, 3811, 3812, 3812, 3812, 3812, 3812, 3813, 3813, 3813, 3813, 3814, 3814, 3814, 3814, 3815, 3815, 3815, 3815, 3816, &
2379 : 3816, 3816, 3816, 3817, 3817, 3817, 3817, 3818, 3818, 3818, 3818, 3818, 3819, 3819, 3819, 3819, 3820, 3820, 3820, 3820, &
2380 : 3821, 3821, 3821, 3821, 3821, 3822, 3822, 3822, 3822, 3823, 3823, 3823, 3823, 3824, 3824, 3824, 3824, 3824, 3825, 3825, &
2381 : 3825, 3825, 3826, 3826, 3826, 3826, 3827, 3827, 3827, 3827, 3827, 3828, 3828, 3828, 3828, 3829, 3829, 3829, 3829, 3829, &
2382 : 3830, 3830, 3830, 3830, 3831, 3831, 3831, 3831, 3831, 3832, 3832, 3832, 3832, 3833, 3833, 3833, 3833, 3833, 3834, 3834, &
2383 : 3834, 3834, 3835, 3835, 3835, 3835, 3835, 3836, 3836, 3836, 3836, 3836, 3837, 3837, 3837, 3837, 3838, 3838, 3838, 3838, &
2384 : 3838, 3839, 3839, 3839, 3839, 3839, 3840, 3840, 3840, 3840, 3841, 3841, 3841, 3841, 3841, 3842, 3842, 3842, 3842, 3842, &
2385 : 3843, 3843, 3843, 3843, 3843, 3844, 3844, 3844, 3844, 3844, 3845, 3845, 3845, 3845, 3846, 3846, 3846, 3846, 3846, 3847, &
2386 : 3847, 3847, 3847, 3847, 3848, 3848, 3848, 3848, 3848, 3849, 3849, 3849, 3849, 3849, 3850, 3850, 3850, 3850, 3850, 3851, &
2387 : 3851, 3851, 3851, 3851, 3852, 3852, 3852, 3852, 3852, 3853, 3853, 3853, 3853, 3853, 3854, 3854, 3854, 3854, 3854, 3855, &
2388 : 3855, 3855, 3855, 3855, 3856, 3856, 3856, 3856, 3856, 3857, 3857, 3857, 3857, 3857, 3857, 3858, 3858, 3858, 3858, 3858, &
2389 : 3859, 3859, 3859, 3859, 3859, 3860, 3860, 3860, 3860, 3860, 3861, 3861, 3861, 3861, 3861, 3861, 3862, 3862, 3862, 3862, &
2390 : 3862, 3863, 3863, 3863, 3863, 3863, 3864, 3864, 3864, 3864, 3864, 3864, 3865, 3865, 3865, 3865, 3865, 3866, 3866, 3866, &
2391 : 3866, 3866, 3867, 3867, 3867, 3867, 3867, 3867, 3868, 3868, 3868, 3868, 3868, 3868, 3869, 3869, 3869, 3869, 3869, 3870, &
2392 : 3870, 3870, 3870, 3870, 3870, 3871, 3871, 3871, 3871, 3871, 3872, 3872, 3872, 3872, 3872, 3872, 3873, 3873, 3873, 3873, &
2393 : 3873, 3873, 3874, 3874, 3874, 3874, 3874, 3875, 3875, 3875, 3875, 3875, 3875, 3876, 3876, 3876, 3876, 3876, 3876, 3877, &
2394 : 3877, 3877, 3877, 3877, 3877, 3878, 3878, 3878, 3878, 3878, 3878, 3879, 3879, 3879, 3879, 3879, 3879, 3880, 3880, 3880, &
2395 : 3880, 3880, 3880, 3881, 3881, 3881, 3881, 3881, 3881, 3882, 3882, 3882, 3882, 3882, 3882, 3883, 3883, 3883, 3883, 3883, &
2396 : 3883, 3884, 3884, 3884, 3884, 3884, 3884, 3885, 3885, 3885, 3885, 3885, 3885, 3886, 3886, 3886, 3886, 3886, 3886, 3887, &
2397 : 3887, 3887, 3887, 3887, 3887, 3887, 3888, 3888, 3888, 3888, 3888, 3888, 3889, 3889, 3889, 3889, 3889, 3889, 3890, 3890, &
2398 : 3890, 3890, 3890, 3890, 3890, 3891, 3891, 3891, 3891, 3891, 3891, 3892, 3892, 3892, 3892, 3892, 3892, 3892, 3893, 3893, &
2399 : 3893, 3893, 3893, 3893, 3894, 3894, 3894, 3894, 3894, 3894, 3894, 3895, 3895, 3895, 3895, 3895, 3895, 3895, 3896, 3896, &
2400 : 3896, 3896, 3896, 3896, 3897, 3897, 3897, 3897, 3897, 3897, 3897, 3898, 3898, 3898, 3898, 3898, 3898, 3898, 3899, 3899, &
2401 : 3899, 3899, 3899, 3899, 3899, 3900, 3900, 3900, 3900, 3900, 3900, 3900, 3901, 3901, 3901, 3901, 3901, 3901, 3901, 3902, &
2402 : 3902, 3902, 3902, 3902, 3902, 3902, 3903, 3903, 3903, 3903, 3903, 3903, 3903, 3904, 3904, 3904, 3904, 3904, 3904, 3904, &
2403 : 3905, 3905, 3905, 3905, 3905, 3905, 3905, 3906, 3906, 3906, 3906, 3906, 3906, 3906, 3906, 3907, 3907, 3907, 3907, 3907, &
2404 : 3907, 3907, 3908, 3908, 3908, 3908, 3908, 3908, 3908, 3908, 3909, 3909, 3909, 3909, 3909, 3909, 3909, 3910, 3910, 3910, &
2405 : 3910, 3910, 3910, 3910, 3910, 3911, 3911, 3911, 3911, 3911, 3911, 3911, 3912, 3912, 3912, 3912, 3912, 3912, 3912, 3912, &
2406 : 3913, 3913, 3913, 3913, 3913, 3913, 3913, 3913, 3914, 3914, 3914, 3914, 3914, 3914, 3914, 3914, 3915, 3915, 3915, 3915, &
2407 : 3915, 3915, 3915, 3915, 3916, 3916, 3916, 3916, 3916, 3916, 3916, 3916, 3917, 3917, 3917, 3917, 3917, 3917, 3917, 3917, &
2408 : 3918, 3918, 3918, 3918, 3918, 3918, 3918, 3918, 3919, 3919, 3919, 3919, 3919, 3919, 3919, 3919, 3919, 3920, 3920, 3920, &
2409 : 3920, 3920, 3920, 3920, 3920, 3921, 3921, 3921, 3921, 3921, 3921, 3921, 3921, 3922, 3922, 3922, 3922, 3922, 3922, 3922, &
2410 : 3922, 3922, 3923, 3923, 3923, 3923, 3923, 3923, 3923, 3923, 3923, 3924, 3924, 3924, 3924, 3924, 3924, 3924, 3924, 3925, &
2411 : 3925, 3925, 3925, 3925, 3925, 3925, 3925, 3925, 3926, 3926, 3926, 3926, 3926, 3926, 3926, 3926, 3926, 3927, 3927, 3927, &
2412 : 3927, 3927, 3927, 3927, 3927, 3927, 3928, 3928, 3928, 3928, 3928, 3928, 3928, 3928, 3928, 3929, 3929, 3929, 3929, 3929, &
2413 : 3929, 3929, 3929, 3929, 3929, 3930, 3930, 3930, 3930, 3930, 3930, 3930, 3930, 3930, 3931, 3931, 3931, 3931, 3931, 3931, &
2414 : 3931, 3931, 3931, 3931, 3932, 3932, 3932, 3932, 3932, 3932, 3932, 3932, 3932, 3933, 3933, 3933, 3933, 3933, 3933, 3933, &
2415 : 3933, 3933, 3933, 3934, 3934, 3934, 3934, 3934, 3934, 3934, 3934, 3934, 3934, 3935, 3935, 3935, 3935, 3935, 3935, 3935, &
2416 : 3935, 3935, 3935, 3936, 3936, 3936, 3936, 3936, 3936, 3936, 3936, 3936, 3936, 3937, 3937, 3937, 3937, 3937, 3937, 3937, &
2417 : 3937, 3937, 3937, 3938, 3938, 3938, 3938, 3938, 3938, 3938, 3938, 3938, 3938, 3938, 3939, 3939, 3939, 3939, 3939, 3939, &
2418 : 3939, 3939, 3939, 3939, 3940, 3940, 3940, 3940, 3940, 3940, 3940, 3940, 3940, 3940, 3940, 3941, 3941, 3941, 3941, 3941, &
2419 : 3941, 3941, 3941, 3941, 3941, 3941, 3942, 3942, 3942, 3942, 3942, 3942, 3942, 3942, 3942, 3942, 3942, 3943, 3943, 3943, &
2420 : 3943, 3943, 3943, 3943, 3943, 3943, 3943, 3943, 3944, 3944, 3944, 3944, 3944, 3944, 3944, 3944, 3944, 3944, 3944, 3945, &
2421 : 3945, 3945, 3945, 3945, 3945, 3945, 3945, 3945, 3945, 3945, 3945, 3946, 3946, 3946, 3946, 3946, 3946, 3946, 3946, 3946, &
2422 : 3946, 3946, 3947, 3947, 3947, 3947, 3947, 3947, 3947, 3947, 3947, 3947, 3947, 3947, 3948, 3948, 3948, 3948, 3948, 3948, &
2423 : 3948, 3948, 3948, 3948, 3948, 3948, 3949, 3949, 3949, 3949, 3949, 3949, 3949, 3949, 3949, 3949, 3949, 3949, 3949, 3950, &
2424 : 3950, 3950, 3950, 3950, 3950, 3950, 3950, 3950, 3950, 3950, 3950, 3951, 3951, 3951, 3951, 3951, 3951, 3951, 3951, 3951, &
2425 : 3951, 3951, 3951, 3951, 3952, 3952, 3952, 3952, 3952, 3952, 3952, 3952, 3952, 3952, 3952, 3952, 3952, 3953, 3953, 3953, &
2426 : 3953, 3953, 3953, 3953, 3953, 3953, 3953, 3953, 3953, 3953, 3954, 3954, 3954, 3954, 3954, 3954, 3954, 3954, 3954, 3954, &
2427 : 3954, 3954, 3954, 3955, 3955, 3955, 3955, 3955, 3955, 3955, 3955, 3955, 3955, 3955, 3955, 3955, 3955, 3956, 3956, 3956, &
2428 : 3956, 3956, 3956, 3956, 3956, 3956, 3956, 3956, 3956, 3956, 3956, 3957, 3957, 3957, 3957, 3957, 3957, 3957, 3957, 3957, &
2429 : 3957, 3957, 3957, 3957, 3957, 3958, 3958, 3958, 3958, 3958, 3958, 3958, 3958, 3958, 3958, 3958, 3958, 3958, 3958, 3958, &
2430 : 3959, 3959, 3959, 3959, 3959, 3959, 3959, 3959, 3959, 3959, 3959, 3959, 3959, 3959, 3959, 3960, 3960, 3960, 3960, 3960, &
2431 : 3960, 3960, 3960, 3960, 3960, 3960, 3960, 3960, 3960, 3960, 3961, 3961, 3961, 3961, 3961, 3961, 3961, 3961, 3961, 3961, &
2432 : 3961, 3961, 3961, 3961, 3961, 3962, 3962, 3962, 3962, 3962, 3962, 3962, 3962, 3962, 3962, 3962, 3962, 3962, 3962, 3962, &
2433 : 3962, 3963, 3963, 3963, 3963, 3963, 3963, 3963, 3963, 3963, 3963, 3963, 3963, 3963, 3963, 3963, 3963, 3964, 3964, 3964, &
2434 : 3964, 3964, 3964, 3964, 3964, 3964, 3964, 3964, 3964, 3964, 3964, 3964, 3964, 3964, 3965, 3965, 3965, 3965, 3965, 3965, &
2435 : 3965, 3965, 3965, 3965, 3965, 3965, 3965, 3965, 3965, 3965, 3965, 3966, 3966, 3966, 3966, 3966, 3966, 3966, 3966, 3966, &
2436 : 3966, 3966, 3966, 3966, 3966, 3966, 3966, 3966, 3967, 3967, 3967, 3967, 3967, 3967, 3967, 3967, 3967, 3967, 3967, 3967, &
2437 : 3967, 3967, 3967, 3967, 3967, 3967, 3968, 3968, 3968, 3968, 3968, 3968, 3968, 3968, 3968, 3968, 3968, 3968, 3968, 3968, &
2438 : 3968, 3968, 3968, 3968, 3969, 3969, 3969, 3969, 3969, 3969, 3969, 3969, 3969, 3969, 3969, 3969, 3969, 3969, 3969, 3969, &
2439 : 3969, 3969, 3969, 3970, 3970, 3970, 3970, 3970, 3970, 3970, 3970, 3970, 3970, 3970, 3970, 3970, 3970, 3970, 3970, 3970, &
2440 : 3970, 3970, 3971, 3971, 3971, 3971, 3971, 3971, 3971, 3971, 3971, 3971, 3971, 3971, 3971, 3971, 3971, 3971, 3971, 3971, &
2441 : 3971, 3971, 3972, 3972, 3972, 3972, 3972, 3972, 3972, 3972, 3972, 3972, 3972, 3972, 3972, 3972, 3972, 3972, 3972, 3972, &
2442 : 3972, 3972, 3972, 3973, 3973, 3973, 3973, 3973, 3973, 3973, 3973, 3973, 3973, 3973, 3973, 3973, 3973, 3973, 3973, 3973, &
2443 : 3973, 3973, 3973, 3973, 3974, 3974, 3974, 3974, 3974, 3974, 3974, 3974, 3974, 3974, 3974, 3974, 3974, 3974, 3974, 3974, &
2444 : 3974, 3974, 3974, 3974, 3974, 3974, 3975, 3975, 3975, 3975, 3975, 3975, 3975, 3975, 3975, 3975, 3975, 3975, 3975, 3975, &
2445 : 3975, 3975, 3975, 3975, 3975, 3975, 3975, 3975, 3976, 3976, 3976, 3976, 3976, 3976, 3976, 3976, 3976, 3976, 3976, 3976, &
2446 : 3976, 3976, 3976, 3976, 3976, 3976, 3976, 3976, 3976, 3976, 3976, 3976, 3977, 3977, 3977, 3977, 3977, 3977, 3977, 3977, &
2447 : 3977, 3977, 3977, 3977, 3977, 3977, 3977, 3977, 3977, 3977, 3977, 3977, 3977, 3977, 3977, 3977, 3978, 3978, 3978, 3978, &
2448 : 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, 3978, &
2449 : 3978, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3979, &
2450 : 3979, 3979, 3979, 3979, 3979, 3979, 3979, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, &
2451 : 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3980, 3981, 3981, 3981, 3981, 3981, 3981, &
2452 : 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, 3981, &
2453 : 3981, 3981, 3981, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, &
2454 : 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3982, 3983, 3983, 3983, 3983, 3983, 3983, 3983, &
2455 : 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, 3983, &
2456 : 3983, 3983, 3983, 3983, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, &
2457 : 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3984, 3985, 3985, 3985, &
2458 : 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, &
2459 : 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3985, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, &
2460 : 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, &
2461 : 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3986, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, &
2462 : 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3987, &
2463 : 3987, 3987, 3987, 3987, 3987, 3987, 3987, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, &
2464 : 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, &
2465 : 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3988, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, &
2466 : 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, &
2467 : 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3989, 3990, 3990, 3990, 3990, 3990, 3990, 3990, &
2468 : 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, &
2469 : 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, 3990, &
2470 : 3990, 3990, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, &
2471 : 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, &
2472 : 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3991, 3992, 3992, 3992, 3992, 3992, 3992, &
2473 : 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, &
2474 : 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, &
2475 : 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3992, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, &
2476 : 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, &
2477 : 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, &
2478 : 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3993, 3994, 3994, 3994, 3994, 3994, 3994, &
2479 : 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, &
2480 : 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, &
2481 : 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, 3994, &
2482 : 3994, 3994, 3994, 3994, 3994, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, &
2483 : 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, &
2484 : 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, &
2485 : 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, 3995, &
2486 : 3995, 3995, 3995, 3995, 3995, 3995, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, &
2487 : 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, &
2488 : 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, &
2489 : 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, &
2490 : 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3996, 3997, &
2491 : 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, &
2492 : 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, &
2493 : 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, &
2494 : 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, &
2495 : 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, &
2496 : 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3997, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, &
2497 : 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, &
2498 : 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, &
2499 : 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, &
2500 : 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, &
2501 : 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, &
2502 : 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, 3998, &
2503 : 3998, 3998, 3998, 3998, 3998, 3998, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, &
2504 : 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, &
2505 : 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, &
2506 : 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, &
2507 : 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, &
2508 : 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, &
2509 : 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, &
2510 : 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, &
2511 : 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, 3999, &
2512 : 3999, 3999, 3999, 3999, 3999, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2513 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2514 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2515 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2516 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2517 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2518 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2519 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2520 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2521 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2522 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2523 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2524 : 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, 4000, &
2525 : 4000 ];
2526 :
2527 : ! Tables
2528 : real(RK) , parameter :: VEC_X(LEN_VEC_X) = [ VEC_X_1, VEC_X_2, VEC_X_3, VEC_X_4 ]
2529 : real(RK) , parameter :: VEC_YU(LEN_VEC_YU) = [ VEC_YU_1, VEC_YU_2, VEC_YU_3, VEC_YU_4 ]
2530 : integer(IK), parameter :: VEC_CELL(LEN_VEC_CELL) = [ VEC_CELL_1, VEC_CELL_2 ]
2531 :
2532 :
2533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2534 :
2535 : contains
2536 :
2537 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2538 :
2539 : !> \brief
2540 : !> Return a pseudorandom number from a truncated (normalized) Gaussian distribution. Example:
2541 : !> ```
2542 : !> tranGaus = getTranGaus(lowerLim, upperLim, 0._RK, 1._RK)
2543 : !> ```
2544 : !>
2545 : !> \param[in] lowerLim : The lower limit of the random number (the lower truncation on the Gaussian distribution).
2546 : !> \param[in] upperLim : The upper limit of the random number (the lower truncation on the Gaussian distribution).
2547 : !> \param[in] avg : The mean of the (non-truncated) Gaussian distribution (**optional**, default = 0).
2548 : !> \param[in] std : The standard deviation of the (non-truncated) Gaussian distribution (**optional**, default = 1).
2549 : !>
2550 : !> \return
2551 : !> `tranGaus` : The output truncated random Gaussian number.
2552 225000 : function getTranGaus(lowerLim,upperLim,avg,std) result(tranGaus)
2553 : #if INTEL_COMPILER_ENABLED && defined DLL_ENABLED && (OS_IS_WINDOWS || defined OS_IS_DARWIN)
2554 : !DEC$ ATTRIBUTES DLLEXPORT :: getTranGaus
2555 : #endif
2556 : ! getTranGaus Pseudorandom numbers from a truncated Gaussian distribution.
2557 : !
2558 : ! X = getTranGaus(lowerLim,B) returns a pseudorandom variable generated from a normal
2559 : ! distribution with mean zero and standard deviation one (i.e. standard
2560 : ! normal distribution) truncated to the interval [lowerLim,B].
2561 : !
2562 : ! X = getTranGaus(lowerLim,B,avg,std) returns a pseudorandom variable generated from
2563 : ! a normal distribution with mean avg and standard deviation std
2564 : ! truncated to the interval [lowerLim,B].
2565 : !
2566 : ! [X,P] = getTranGaus(...) also returns the vector of probabilities of X.
2567 : !
2568 : ! This implements an extension of the algorithm of Chopin detailed in
2569 : ! N. Chopin, "Fast simulation of truncated Gaussian distributions", Stat
2570 : ! Comput (2011) 21:275-288
2571 : !
2572 : ! Copyright (C) 2014 Vincent Mazet (ICube, CNRS/Université de Strasbourg),
2573 : ! Version 2014-09-09, vincent.mazet@unistra.fr
2574 : ! 18/06/2012:
2575 : ! - first launch of getTranGaus.m
2576 : ! 05/07/2012:
2577 : ! - fix bug concerning the computing of the pdf when (avg,std) is
2578 : ! different from (0,1).
2579 : ! - fix bug about some indexes out of bounds when computing yl for some
2580 : ! values of the input arguments.
2581 : ! 04/09/2012:
2582 : ! - change condition in line 2628 to fix a bug.
2583 : ! 09/09/2014:
2584 : ! - replace "variance" by "standard deviation" in the comments (thanks
2585 : ! Umberto).
2586 : !
2587 : ! Licence: GNU Lesser General Public License Version 2
2588 : ! This program is free software; you can redistribute it and/or modify it
2589 : ! under the terms of the GNU Lesser General Public License as published by the
2590 : ! Free Software Foundation; either version 2 of the License, or (at your
2591 : ! option) any later version. This program is distributed in the hope that
2592 : ! it will be useful, but WITHOUT ANY WARRANTY; without even the implied
2593 : ! warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2594 : ! GNU Lesser General Public License for more details. You should have received a
2595 : ! copy of the GNU Lesser General Public License along with this program; if not,
2596 : ! see http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt
2597 :
2598 : use Constants_mod, only: IK, RK
2599 : implicit none
2600 : real(RK), intent(in) :: lowerLim,upperLim
2601 : real(RK), intent(in), optional :: avg, std
2602 : real(RK) :: tranGaus !,p
2603 225000 : real(RK) :: lowerLimStd,upperLimStd, mean, stdev
2604 :
2605 225000 : mean = 0._RK
2606 225000 : stdev = 1._RK
2607 225000 : if (present(avg)) mean = avg
2608 225000 : if (present(std)) stdev = std
2609 :
2610 : ! Scaling
2611 225000 : lowerLimStd = (lowerLim-avg)/stdev
2612 225000 : upperLimStd = (upperLim-avg)/stdev
2613 225000 : tranGaus = getStdTranGaus(lowerLimStd,upperLimStd) ! Generate the random variables
2614 :
2615 : ! Scaling
2616 225000 : tranGaus = tranGaus * stdev + avg
2617 :
2618 : !! Compute the probabilities
2619 : !if (present(p)) then
2620 : ! Z = sqrt(pi/2)*std * (erf(upperLim/sqrt(2))-erf(lowerLim/sqrt(2)))
2621 : ! Z = max(Z,1e-15) ! Avoid NaN
2622 : ! p = exp(-(tranGaus-mu).^2/2/std**2) / Z
2623 : !end if
2624 :
2625 225000 : end function getTranGaus
2626 :
2627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2628 :
2629 : !> \brief
2630 : !> Return a pseudorandom number from a truncated Standard Gaussian distribution. Example:
2631 : !> ```
2632 : !> tranGaus = getTranGaus(lowerLim, upperLim)
2633 : !> ```
2634 : !>
2635 : !> \param[in] lowerLim : The lower limit of the random number (the lower truncation on the Gaussian distribution).
2636 : !> \param[in] upperLim : The upper limit of the random number (the lower truncation on the Gaussian distribution).
2637 : !>
2638 : !> \return
2639 : !> `tranGaus` : The output truncated random Standard Gaussian number.
2640 315000 : recursive function getStdTranGaus(lowerLim,upperLim) result(stdTranGaus)
2641 : #if INTEL_COMPILER_ENABLED && defined DLL_ENABLED && (OS_IS_WINDOWS || defined OS_IS_DARWIN)
2642 : !DEC$ ATTRIBUTES DLLEXPORT :: getStdTranGaus
2643 : #endif
2644 :
2645 225000 : use Constants_mod, only: IK, RK
2646 : use Statistics_mod, only: getRandInt, getRandGaus
2647 : use iso_fortran_env, only: output_unit
2648 :
2649 : implicit none
2650 :
2651 : real(RK), intent(in) :: lowerLim, upperLim
2652 : real(RK) :: stdTranGaus
2653 :
2654 : real(RK), parameter :: xmin = -2.00443204036_RK !< The left limit.
2655 : real(RK), parameter :: xmax = +3.48672170399_RK !< The right limit.
2656 :
2657 : ! Design variables
2658 : !integer(IK), parameter :: LEN_VEC_YU = 4001 !< Index of the right tail
2659 : integer(IK), parameter :: KMIN = 5_IK !< if kb-ka < KMIN then use a rejection algorithm
2660 : integer(IK), parameter :: I0 = 3271_IK !< = - floor(VEC_X(1)/h)
2661 : real(RK) :: INVH = 1631.73284006_RK !< 1/h, h being the minimal interval range
2662 : real(RK) :: ALPHA = 1.837877066409345_RK !< = log(2*pi)
2663 : real(RK) :: YL0 = 0.053513975472_RK !< y_l of the leftmost rectangle
2664 : real(RK) :: YLN = 0.000914116389555_RK !< y_l of the rightmost rectangle
2665 :
2666 315000 : real(RK) :: twiceLowerLim, expLowerUpper, z, negLogUnifRnd, unifrnd, unifrndFixed
2667 315000 : real(RK) :: sim, simy, ylk, d, lowerBound !, u
2668 : integer(IK) :: i, ka, kb, k
2669 :
2670 : ! Check if lowerLim < upperLim
2671 :
2672 315000 : blockRange: if (lowerLim>=upperLim) then
2673 :
2674 : ! LCOV_EXCL_START
2675 : write(output_unit,"(A)") MODULE_NAME//"@getStdTranGaus: upperLim must be greater than lowerLim."
2676 : error stop
2677 : ! LCOV_EXCL_STOP
2678 :
2679 : ! Check if |lowerLim| < |upperLim|
2680 315000 : elseif (abs(lowerLim)>abs(upperLim)) then blockRange
2681 :
2682 90000 : stdTranGaus = -getStdTranGaus(-upperLim,-lowerLim)
2683 :
2684 : ! If lowerLim in the right tail (lowerLim > xmax), use rejection algorithm with a truncated exponential proposal
2685 225000 : elseif (lowerLim > xmax) then blockRange
2686 :
2687 105000 : twiceLowerLim = 2_RK * lowerLim**2;
2688 105000 : expLowerUpper = exp(-lowerLim*(upperLim-lowerLim)) - 1._RK;
2689 454 : do
2690 105454 : call random_number(unifrnd)
2691 105454 : z = log(1 + unifrnd*expLowerUpper)
2692 105454 : call random_number(unifrnd)
2693 105454 : negLogUnifRnd = -log(unifrnd)
2694 105454 : if (twiceLowerLim*negLogUnifRnd > z**2) exit
2695 : end do
2696 105000 : stdTranGaus = lowerLim - z / lowerLim
2697 :
2698 : ! If lowerLim in the left tail (lowerLim < xmin), use rejection algorithm with a Gaussian proposal
2699 120000 : elseif (lowerLim<xmin) then blockRange
2700 :
2701 : do ! LCOV_EXCL_LINE
2702 30000 : stdTranGaus = getRandGaus();
2703 30000 : if ( (stdTranGaus>=lowerLim) .and. (stdTranGaus<=upperLim) ) exit
2704 : end do
2705 :
2706 : ! In other cases (xmin < lowerLim < xmax), use the algorithm of Chopin
2707 : else blockRange
2708 :
2709 : ! Large data tables and design variables are used here
2710 :
2711 : ! Compute ka and kb
2712 90000 : i = I0 + floor(lowerLim*INVH)
2713 90000 : ka = VEC_CELL(i+1) ! +1 due to index offset in Fortran
2714 90000 : if (upperLim >= xmax) then
2715 45000 : kb = LEN_VEC_YU
2716 : else
2717 45000 : i = I0 + floor(upperLim*INVH)
2718 45000 : kb = VEC_CELL(i+1) ! +1 due to index offset in Fortran
2719 : end if
2720 :
2721 : ! If |upperLim-lowerLim| is small, use rejection algorithm with a truncated exponential proposal
2722 90000 : if (abs(kb-ka) < KMIN) then
2723 30000 : twiceLowerLim = 2._RK*lowerLim**2
2724 30000 : expLowerUpper = exp(-lowerLim*(upperLim-lowerLim)) - 1._RK
2725 0 : do
2726 30000 : call random_number(unifrnd)
2727 30000 : z = log( 1._RK + unifrnd*expLowerUpper )
2728 30000 : call random_number(unifrnd)
2729 30000 : negLogUnifRnd = -log(unifrnd);
2730 30000 : if (twiceLowerLim*negLogUnifRnd > z**2) exit
2731 : end do
2732 30000 : stdTranGaus = lowerLim - z/lowerLim
2733 30000 : return
2734 : end if
2735 :
2736 : do ! LCOV_EXCL_LINE
2737 :
2738 : ! Sample integer between ka and kb
2739 60113 : k = getRandInt(ka,kb) + 1_IK; ! +1 due to index offset in Fortran
2740 :
2741 60113 : if (k == LEN_VEC_YU + 1_IK) then
2742 :
2743 : ! Right tail
2744 :
2745 5 : lowerBound = VEC_X(LEN_VEC_X);
2746 5 : call random_number(unifrnd)
2747 5 : z = -log(unifrnd);
2748 5 : call random_number(unifrnd)
2749 5 : negLogUnifRnd = -log(unifrnd);
2750 5 : z = z / lowerBound;
2751 5 : if ( (z**2 <= 2._RK*negLogUnifRnd) .and. (z < upperLim-lowerBound) ) then
2752 : ! Accept this proposition, otherwise reject
2753 5 : stdTranGaus = lowerBound + z
2754 5 : return
2755 : end if
2756 :
2757 60108 : elseif ( (k<=ka+2) .or. (k>=kb .and. upperLim<xmax) ) then
2758 :
2759 : ! Two leftmost and rightmost regions
2760 :
2761 52 : call random_number(unifrnd)
2762 52 : sim = VEC_X(k) + (VEC_X(k+1_IK)-VEC_X(k)) * unifrnd;
2763 52 : if ( (sim >= lowerLim) .and. (sim <= upperLim) ) then
2764 :
2765 : ! Accept this proposition, otherwise reject
2766 30 : call random_number(unifrnd)
2767 30 : simy = VEC_YU(k)*unifrnd
2768 :
2769 : ! Compute y_l from y_k
2770 30 : if (k == 1_IK) then
2771 0 : ylk = YL0
2772 30 : elseif (k == LEN_VEC_YU) then
2773 0 : ylk = YLN
2774 30 : elseif (k <= 1954_IK) then
2775 17 : ylk = VEC_YU(k-1_IK)
2776 : else
2777 13 : ylk = VEC_YU(k+1_IK)
2778 : end if
2779 :
2780 30 : if ( (simy<ylk) .or. (sim**2 + 2._RK*log(simy) + ALPHA < 0._RK) ) then
2781 30 : stdTranGaus = sim
2782 30 : return
2783 : end if
2784 :
2785 : end if
2786 :
2787 : else
2788 :
2789 : ! All the other boxes
2790 :
2791 60056 : call random_number(unifrndFixed)
2792 60056 : simy = VEC_YU(k) * unifrndFixed;
2793 60056 : d = VEC_X(k+1_IK) - VEC_X(k);
2794 :
2795 : ! Compute y_l from y_k
2796 60056 : if (k == 1_IK) then
2797 0 : ylk = YL0
2798 60056 : elseif (k == LEN_VEC_YU) then
2799 26 : ylk = YLN
2800 60030 : elseif (k <= 1954_IK) then
2801 13202 : ylk = VEC_YU(k-1_IK)
2802 : else
2803 46828 : ylk = VEC_YU(k+1_IK)
2804 : end if
2805 :
2806 60056 : if (simy < ylk) then ! That is what happens most of the time
2807 59894 : stdTranGaus = VEC_X(k) + unifrndFixed*d*VEC_YU(k) / ylk
2808 59894 : return
2809 : end if
2810 162 : call random_number(unifrnd)
2811 162 : sim = VEC_X(k) + d * unifrnd
2812 : ! Otherwise, check if we are below the pdf curve
2813 162 : if (sim**2 + 2*log(simy) + ALPHA < 0) then
2814 71 : stdTranGaus = sim
2815 71 : return
2816 : end if
2817 :
2818 : end if
2819 :
2820 : end do
2821 :
2822 : end if blockRange
2823 :
2824 225000 : end function getStdTranGaus
2825 :
2826 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2827 :
2828 : end module TranGaus_mod ! LCOV_EXCL_LINE
|
