1 C-----------------------------------------------------------------------
3 Subroutine Ctq4RM (Iset)
4 #include "pdf/impdp.inc"
5 PARAMETER (MXX = 105, MXQ = 25, MXF = 6)
6 PARAMETER (MXPQX = (MXF *2 +2) * MXQ * MXX)
7 PARAMETER (NxI = 90, NtI = 13, NfMxI = 5)
8 COMMON / W5051IC / Al, XV(0:MXX), QL(0:MXQ), UPD(MXPQX)
9 COMMON / W5051ID / Nx, Nt, NfMx
10 COMMON / W5051IE / Qini, Qmax, Xmin
14 > XVI(0:MXX),QLI(0:MXQ),UPDI(MXPQX),
17 C-----------------------------------------------------------------------
18 C Parton Distribution Table : CTEQ4M
20 DATA DrI, FlI, AlI / 2., 5., .2020 /
21 DATA (AmassI(I),I=1,6) / .000, .000, .200,
22 + 1.600, 5.000, 180.000 /
23 C DATA NXI, NTI, NfMxI / 90, 13, 5 /
24 DATA QINII, QMAXI, (QLI(I), I =0, NTI) /
25 + .160000D+01, .100000D+05,
26 + .160000D+01, .203369D+01, .265779D+01, .358285D+01, .500000D+01,
27 + .794903D+01, .135129D+02, .248012D+02, .496935D+02, .110086D+03,
28 + .273574D+03, .775412D+03, .255482D+04, .100000D+05 /
29 DATA XMINI, (XVI(I), I =0, NXI) /
31 + .000000D+00, .999983D-05, .124433D-04, .154836D-04, .192668D-04,
32 + .239740D-04, .298310D-04, .371184D-04, .461852D-04, .574656D-04,
33 + .714994D-04, .889575D-04, .110674D-03, .137686D-03, .171280D-03,
34 + .213055D-03, .264997D-03, .329564D-03, .409809D-03, .509508D-03,
35 + .633332D-03, .787053D-03, .977784D-03, .121428D-02, .150728D-02,
36 + .186993D-02, .231825D-02, .288037D-02, .356397D-02, .440443D-02,
37 + .543508D-02, .669508D-02, .822984D-02, .100851D-01, .123281D-01,
38 + .150167D-01, .182174D-01, .219985D-01, .264278D-01, .315720D-01,
39 + .374800D-01, .442088D-01, .517931D-01, .602576D-01, .696136D-01,
40 + .798586D-01, .909356D-01, .102935D+00, .115681D+00, .129293D+00,
41 + .143599D+00, .158606D+00, .174271D+00, .190550D+00, .207405D+00,
42 + .224796D+00, .242685D+00, .261038D+00, .279820D+00, .299001D+00,
43 + .318550D+00, .338442D+00, .358653D+00, .379067D+00, .399881D+00,
44 + .420953D+00, .442266D+00, .463806D+00, .485559D+00, .507513D+00,
45 + .529656D+00, .551978D+00, .574483D+00, .597187D+00, .619860D+00,
46 + .642828D+00, .665921D+00, .689135D+00, .712467D+00, .735911D+00,
47 + .759464D+00, .783080D+00, .806909D+00, .830741D+00, .854673D+00,
48 + .878696D+00, .902804D+00, .926992D+00, .951257D+00, .975603D+00,
50 C Parton Distribution Table:
51 DATA (UPDI(I),I=1,52) /
52 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
53 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
54 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
55 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
56 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
57 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
58 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
59 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
60 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
61 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
62 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
63 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
64 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
65 DATA (UPDI(I),I=53,104) /
66 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
67 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
68 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
69 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
70 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
71 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
72 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
73 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
74 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
75 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
76 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
77 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
78 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
79 DATA (UPDI(I),I=105,156) /
80 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
81 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
82 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
83 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
84 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
85 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
86 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
87 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
88 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
89 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
90 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
91 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
92 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
93 DATA (UPDI(I),I=157,208) /
94 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
95 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
96 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
97 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
98 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
99 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
100 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
101 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
102 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
103 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
104 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
105 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
106 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
107 DATA (UPDI(I),I=209,260) /
108 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
109 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
110 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
111 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
112 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
113 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
114 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
115 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
116 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
117 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
118 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
119 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
120 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
121 DATA (UPDI(I),I=261,312) /
122 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
123 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
124 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
125 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
126 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
127 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
128 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
129 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
130 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
131 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
132 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
133 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
134 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
135 DATA (UPDI(I),I=313,364) /
136 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
137 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
138 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
139 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
140 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
141 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
142 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
143 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
144 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
145 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
146 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
147 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
148 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
149 DATA (UPDI(I),I=365,416) /
150 + .249593D+06, .000000D+00, .000000D+00, .000000D+00,
151 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
152 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
153 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
154 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
155 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
156 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
157 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
158 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
159 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
160 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
161 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
162 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
163 DATA (UPDI(I),I=417,468) /
164 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
165 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
166 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
167 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
168 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
169 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
170 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
171 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
172 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
173 + .000000D+00, .000000D+00, .000000D+00, .109939D+06,
174 + .836226D+05, .625689D+05, .467779D+05, .349512D+05,
175 + .260904D+05, .194631D+05, .145049D+05, .108020D+05,
176 + .803585D+04, .597336D+04, .443516D+04, .329024D+04 /
177 DATA (UPDI(I),I=469,520) /
178 + .243788D+04, .180463D+04, .133410D+04, .985250D+03,
179 + .726573D+03, .535215D+03, .393644D+03, .289177D+03,
180 + .212084D+03, .155341D+03, .113582D+03, .829290D+02,
181 + .604451D+02, .440089D+02, .318351D+02, .231044D+02,
182 + .167372D+02, .121125D+02, .875186D+01, .631872D+01,
183 + .456147D+01, .329051D+01, .237314D+01, .171355D+01,
184 + .123816D+01, .896766D+00, .650669D+00, .474010D+00,
185 + .346336D+00, .254176D+00, .187248D+00, .138667D+00,
186 + .103095D+00, .771410D-01, .578085D-01, .436300D-01,
187 + .329573D-01, .250181D-01, .190244D-01, .145080D-01,
188 + .110719D-01, .846326D-02, .646360D-02, .493553D-02,
189 + .376024D-02, .286145D-02, .216882D-02, .163912D-02,
190 + .123183D-02, .921052D-03, .684718D-03, .504192D-03 /
191 DATA (UPDI(I),I=521,572) /
192 + .367096D-03, .264259D-03, .187276D-03, .130483D-03,
193 + .887238D-04, .586261D-04, .370796D-04, .220463D-04,
194 + .117496D-04, .506466D-05, .811806D-06, .000000D+00,
195 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
196 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
197 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
198 + .000000D+00, .000000D+00, .247210D+06, .187576D+06,
199 + .139949D+06, .104327D+06, .777218D+05, .578463D+05,
200 + .430226D+05, .319652D+05, .237313D+05, .175991D+05,
201 + .130404D+05, .965129D+04, .713635D+04, .527011D+04,
202 + .388799D+04, .286443D+04, .210802D+04, .154907D+04,
203 + .113697D+04, .833168D+03, .609765D+03, .445508D+03,
204 + .325043D+03, .236725D+03, .172141D+03, .124951D+03 /
205 DATA (UPDI(I),I=573,624) /
206 + .905881D+02, .652433D+02, .471404D+02, .339960D+02,
207 + .244880D+02, .176103D+02, .126522D+02, .908851D+01,
208 + .652248D+01, .467958D+01, .336069D+01, .241510D+01,
209 + .173933D+01, .125484D+01, .908775D+00, .660066D+00,
210 + .481470D+00, .352525D+00, .259420D+00, .191655D+00,
211 + .142478D+00, .106082D+00, .795305D-01, .596769D-01,
212 + .449940D-01, .339845D-01, .257386D-01, .195087D-01,
213 + .148087D-01, .112322D-01, .851783D-02, .644597D-02,
214 + .487246D-02, .366952D-02, .275629D-02, .205978D-02,
215 + .153242D-02, .113454D-02, .833083D-03, .606073D-03,
216 + .437140D-03, .311657D-03, .219714D-03, .152515D-03,
217 + .104275D-03, .697946D-04, .456149D-04, .288886D-04,
218 + .177421D-04, .103064D-04, .558852D-05, .268532D-05 /
219 DATA (UPDI(I),I=625,676) /
220 + .101834D-05, .125810D-06, .000000D+00, .000000D+00,
221 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
222 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
223 + .000000D+00, .416737D+06, .315408D+06, .234623D+06,
224 + .174381D+06, .129515D+06, .960990D+05, .712499D+05,
225 + .527715D+05, .390527D+05, .288682D+05, .213203D+05,
226 + .157270D+05, .115896D+05, .852968D+04, .627086D+04,
227 + .460379D+04, .337595D+04, .247183D+04, .180754D+04,
228 + .131962D+04, .962094D+03, .700208D+03, .508850D+03,
229 + .369101D+03, .267301D+03, .193211D+03, .139473D+03,
230 + .100007D+03, .719343D+02, .516411D+02, .370236D+02,
231 + .264985D+02, .189445D+02, .135408D+02, .966761D+01,
232 + .689984D+01, .492839D+01, .352237D+01, .252247D+01 /
233 DATA (UPDI(I),I=677,728) /
234 + .180950D+01, .130280D+01, .940670D+00, .681994D+00,
235 + .496314D+00, .362955D+00, .266468D+00, .196831D+00,
236 + .145615D+00, .108454D+00, .808487D-01, .605509D-01,
237 + .454330D-01, .341775D-01, .257318D-01, .193991D-01,
238 + .146145D-01, .110071D-01, .827376D-02, .621151D-02,
239 + .464698D-02, .346739D-02, .257471D-02, .190363D-02,
240 + .140114D-02, .102326D-02, .741006D-03, .532531D-03,
241 + .378886D-03, .267093D-03, .185975D-03, .128080D-03,
242 + .869160D-04, .581256D-04, .382265D-04, .248840D-04,
243 + .158757D-04, .100071D-04, .622256D-05, .385341D-05,
244 + .237643D-05, .148422D-05, .935417D-06, .599450D-06,
245 + .383387D-06, .240728D-06, .142060D-06, .750588D-07,
246 + .322562D-07, .888025D-08, .610333D-09, .000000D+00 /
247 DATA (UPDI(I),I=729,780) /
248 + .624038D+06, .471069D+06, .349334D+06, .258834D+06,
249 + .191634D+06, .141740D+06, .104751D+06, .773329D+05,
250 + .570405D+05, .420250D+05, .309323D+05, .227398D+05,
251 + .166995D+05, .122475D+05, .897208D+04, .656326D+04,
252 + .479521D+04, .349802D+04, .254831D+04, .185334D+04,
253 + .134596D+04, .975722D+03, .706218D+03, .510175D+03,
254 + .367928D+03, .264814D+03, .190330D+03, .135863D+03,
255 + .972831D+02, .695189D+02, .496055D+02, .353337D+02,
256 + .251364D+02, .178768D+02, .126974D+02, .901476D+01,
257 + .640423D+01, .455218D+01, .324163D+01, .231221D+01,
258 + .165503D+01, .118798D+01, .856116D+00, .619270D+00,
259 + .450077D+00, .328382D+00, .241034D+00, .177191D+00,
260 + .131120D+00, .971157D-01, .722575D-01, .538646D-01 /
261 DATA (UPDI(I),I=781,832) /
262 + .402520D-01, .301059D-01, .225445D-01, .168713D-01,
263 + .126215D-01, .942451D-02, .702795D-02, .522324D-02,
264 + .387165D-02, .285651D-02, .209863D-02, .153527D-02,
265 + .111466D-02, .802949D-03, .574368D-03, .407181D-03,
266 + .286359D-03, .199318D-03, .137560D-03, .938977D-04,
267 + .634809D-04, .425095D-04, .284140D-04, .188431D-04,
268 + .125154D-04, .833286D-05, .560070D-05, .379065D-05,
269 + .259384D-05, .177320D-05, .120087D-05, .790189D-06,
270 + .494775D-06, .284508D-06, .143356D-06, .577387D-07,
271 + .148429D-07, .106063D-08, .000000D+00, .874987D+06,
272 + .658730D+06, .486950D+06, .359648D+06, .265414D+06,
273 + .195673D+06, .144132D+06, .106052D+06, .779596D+05,
274 + .572420D+05, .419873D+05, .307593D+05, .225090D+05 /
275 DATA (UPDI(I),I=833,884) /
276 + .164493D+05, .120065D+05, .875084D+04, .636968D+04,
277 + .462909D+04, .335938D+04, .243376D+04, .176050D+04,
278 + .127114D+04, .916288D+03, .659197D+03, .473398D+03,
279 + .339262D+03, .242768D+03, .172513D+03, .122964D+03,
280 + .874653D+02, .621153D+02, .440317D+02, .311692D+02,
281 + .220564D+02, .155850D+02, .110070D+02, .777739D+01,
282 + .549813D+01, .389334D+01, .276138D+01, .196510D+01,
283 + .140231D+01, .100454D+01, .722285D+00, .521737D+00,
284 + .378329D+00, .275966D+00, .201604D+00, .148235D+00,
285 + .109095D+00, .806473D-01, .597342D-01, .443479D-01,
286 + .329548D-01, .245156D-01, .182268D-01, .135459D-01,
287 + .100491D-01, .744442D-02, .549710D-02, .404827D-02,
288 + .296805D-02, .216697D-02, .157572D-02, .113737D-02 /
289 DATA (UPDI(I),I=885,936) /
290 + .814958D-03, .580164D-03, .409681D-03, .287282D-03,
291 + .199707D-03, .137920D-03, .944752D-04, .643304D-04,
292 + .435965D-04, .296378D-04, .201196D-04, .137546D-04,
293 + .947151D-05, .659148D-05, .461301D-05, .324114D-05,
294 + .225669D-05, .153906D-05, .101037D-05, .624998D-06,
295 + .352353D-06, .172625D-06, .669864D-07, .165319D-07,
296 + .120648D-08, .000000D+00, .117573D+07, .882720D+06,
297 + .650416D+06, .478815D+06, .352192D+06, .258786D+06,
298 + .189979D+06, .139312D+06, .102058D+06, .746767D+05,
299 + .545834D+05, .398455D+05, .290533D+05, .211548D+05,
300 + .153843D+05, .111711D+05, .810065D+04, .586462D+04,
301 + .423952D+04, .305936D+04, .220421D+04, .158509D+04,
302 + .113790D+04, .815219D+03, .582961D+03, .415972D+03 /
303 DATA (UPDI(I),I=937,988) /
304 + .296347D+03, .209632D+03, .148739D+03, .105310D+03,
305 + .744331D+02, .525094D+02, .369867D+02, .260421D+02,
306 + .183065D+02, .128615D+02, .903899D+01, .635532D+01,
307 + .447531D+01, .315632D+01, .223325D+01, .158442D+01,
308 + .112830D+01, .806451D+00, .579011D+00, .417310D+00,
309 + .302528D+00, .219645D+00, .160488D+00, .117372D+00,
310 + .862159D-01, .634565D-01, .468106D-01, .345637D-01,
311 + .255468D-01, .188720D-01, .139352D-01, .102721D-01,
312 + .756085D-02, .554792D-02, .405993D-02, .295837D-02,
313 + .214678D-02, .155192D-02, .111387D-02, .794007D-03,
314 + .562623D-03, .395782D-03, .276744D-03, .192122D-03,
315 + .132730D-03, .911770D-04, .624478D-04, .427229D-04,
316 + .294192D-04, .203087D-04, .141530D-04, .994743D-05 /
317 DATA (UPDI(I),I=989,1040) /
318 + .705482D-05, .501646D-05, .355987D-05, .248922D-05,
319 + .169307D-05, .110240D-05, .672432D-06, .371987D-06,
320 + .177777D-06, .668169D-07, .159294D-07, .118309D-08,
321 + .000000D+00, .153257D+07, .114744D+07, .842686D+06,
322 + .618306D+06, .453272D+06, .331935D+06, .242848D+06,
323 + .177469D+06, .129558D+06, .944663D+05, .688027D+05,
324 + .500454D+05, .363579D+05, .263766D+05, .191104D+05,
325 + .138246D+05, .998668D+04, .720222D+04, .518613D+04,
326 + .372767D+04, .267494D+04, .191578D+04, .136961D+04,
327 + .977114D+03, .695756D+03, .494299D+03, .350592D+03,
328 + .246878D+03, .174366D+03, .122883D+03, .864414D+02,
329 + .606875D+02, .425365D+02, .298002D+02, .208409D+02,
330 + .145658D+02, .101822D+02, .712047D+01, .498645D+01 /
331 DATA (UPDI(I),I=1041,1092) /
332 + .349721D+01, .246035D+01, .173551D+01, .122867D+01,
333 + .873027D+00, .623065D+00, .446363D+00, .321628D+00,
334 + .232089D+00, .168533D+00, .122494D+00, .894181D-01,
335 + .654056D-01, .479460D-01, .351811D-01, .258390D-01,
336 + .189685D-01, .139183D-01, .101959D-01, .745784D-02,
337 + .543877D-02, .395568D-02, .286529D-02, .206704D-02,
338 + .148588D-02, .106071D-02, .752415D-03, .530825D-03,
339 + .372099D-03, .259518D-03, .179964D-03, .124395D-03,
340 + .856862D-04, .590024D-04, .406991D-04, .283250D-04,
341 + .198098D-04, .139979D-04, .997256D-05, .715158D-05,
342 + .512532D-05, .364763D-05, .254680D-05, .172094D-05,
343 + .110881D-05, .666386D-06, .361797D-06, .168858D-06,
344 + .616008D-07, .142289D-07, .107404D-08, .000000D+00 /
345 DATA (UPDI(I),I=1093,1144) /
346 + .195183D+07, .145726D+07, .106666D+07, .780026D+06,
347 + .569893D+06, .415917D+06, .303242D+06, .220835D+06,
348 + .160650D+06, .116722D+06, .847076D+05, .613916D+05,
349 + .444376D+05, .321191D+05, .231839D+05, .167081D+05,
350 + .120234D+05, .863753D+04, .619523D+04, .443533D+04,
351 + .316992D+04, .226102D+04, .160974D+04, .114361D+04,
352 + .810833D+03, .573549D+03, .405005D+03, .283899D+03,
353 + .199599D+03, .140015D+03, .980278D+02, .684920D+02,
354 + .477713D+02, .333013D+02, .231706D+02, .161104D+02,
355 + .112023D+02, .779187D+01, .542679D+01, .378499D+01,
356 + .264780D+01, .185711D+01, .130715D+01, .923396D+00,
357 + .655124D+00, .466546D+00, .334161D+00, .239682D+00,
358 + .172990D+00, .124969D+00, .906660D-01, .659146D-01 /
359 DATA (UPDI(I),I=1145,1196) /
360 + .480220D-01, .350212D-01, .255626D-01, .186507D-01,
361 + .136011D-01, .990316D-02, .719961D-02, .521914D-02,
362 + .377344D-02, .271761D-02, .194945D-02, .139382D-02,
363 + .989908D-03, .698974D-03, .491142D-03, .343199D-03,
364 + .238845D-03, .165509D-03, .114500D-03, .791005D-04,
365 + .547512D-04, .380498D-04, .267238D-04, .188866D-04,
366 + .134838D-04, .969429D-05, .699655D-05, .503030D-05,
367 + .357642D-05, .248571D-05, .166533D-05, .106043D-05,
368 + .627631D-06, .334436D-06, .152513D-06, .540707D-07,
369 + .121250D-07, .929498D-09, .000000D+00, .243973D+07,
370 + .181643D+07, .132510D+07, .965760D+06, .703190D+06,
371 + .511441D+06, .371596D+06, .269669D+06, .195483D+06,
372 + .141525D+06, .102338D+06, .738999D+05, .532951D+05 /
373 DATA (UPDI(I),I=1197,1248) /
374 + .383784D+05, .275979D+05, .198138D+05, .142036D+05,
375 + .101642D+05, .726156D+04, .517809D+04, .368584D+04,
376 + .261829D+04, .185638D+04, .131329D+04, .927177D+03,
377 + .652998D+03, .459075D+03, .320344D+03, .224200D+03,
378 + .156549D+03, .109088D+03, .758563D+02, .526497D+02,
379 + .365211D+02, .252823D+02, .174884D+02, .120967D+02,
380 + .836933D+01, .579742D+01, .402136D+01, .279747D+01,
381 + .195104D+01, .136543D+01, .959022D+00, .676439D+00,
382 + .478905D+00, .340993D+00, .243132D+00, .174432D+00,
383 + .125257D+00, .903284D-01, .652763D-01, .472703D-01,
384 + .342661D-01, .248604D-01, .180297D-01, .130695D-01,
385 + .945982D-02, .683664D-02, .492733D-02, .354205D-02,
386 + .253687D-02, .180997D-02, .128749D-02, .909998D-03 /
387 DATA (UPDI(I),I=1249,1300) /
388 + .639822D-03, .447945D-03, .312159D-03, .216873D-03,
389 + .150240D-03, .104065D-03, .721179D-04, .501737D-04,
390 + .351087D-04, .248537D-04, .177141D-04, .127434D-04,
391 + .921663D-05, .667286D-05, .479834D-05, .339971D-05,
392 + .234764D-05, .155748D-05, .979393D-06, .570686D-06,
393 + .298448D-06, .133028D-06, .458742D-07, .100024D-07,
394 + .778361D-09, .000000D+00, .675837D+05, .000000D+00,
395 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
396 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
397 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
398 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
399 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
400 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
401 DATA (UPDI(I),I=1301,1352) /
402 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
403 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
404 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
405 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
406 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
407 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
408 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
409 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
410 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
411 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
412 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
413 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
414 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
415 DATA (UPDI(I),I=1353,1404) /
416 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
417 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
418 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
419 + .000000D+00, .355046D+05, .274229D+05, .208889D+05,
420 + .159024D+05, .121030D+05, .920528D+04, .699917D+04,
421 + .531795D+04, .403913D+04, .306543D+04, .232552D+04,
422 + .176269D+04, .133546D+04, .101084D+04, .764730D+03,
423 + .577943D+03, .436530D+03, .329342D+03, .248314D+03,
424 + .186990D+03, .140715D+03, .105752D+03, .794158D+02,
425 + .595545D+02, .446222D+02, .333897D+02, .249717D+02,
426 + .185703D+02, .138590D+02, .103278D+02, .769432D+01,
427 + .572560D+01, .426075D+01, .317121D+01, .236078D+01,
428 + .175764D+01, .131130D+01, .979249D+00, .733652D+00 /
429 DATA (UPDI(I),I=1405,1456) /
430 + .550743D+00, .415435D+00, .314329D+00, .239070D+00,
431 + .182515D+00, .140174D+00, .108065D+00, .838869D-01,
432 + .652148D-01, .510813D-01, .400398D-01, .315501D-01,
433 + .248937D-01, .197059D-01, .156053D-01, .123829D-01,
434 + .981361D-02, .777825D-02, .614951D-02, .485851D-02,
435 + .382261D-02, .300074D-02, .234291D-02, .182162D-02,
436 + .140943D-02, .108188D-02, .822459D-03, .619790D-03,
437 + .461502D-03, .339700D-03, .245969D-03, .175210D-03,
438 + .121858D-03, .826371D-04, .537596D-04, .335625D-04,
439 + .193111D-04, .977642D-05, .362099D-05, .000000D+00,
440 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
441 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
442 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
443 DATA (UPDI(I),I=1457,1508) /
444 + .804558D+05, .619957D+05, .470952D+05, .357542D+05,
445 + .271350D+05, .205795D+05, .156018D+05, .118193D+05,
446 + .894995D+04, .677174D+04, .512118D+04, .386952D+04,
447 + .292221D+04, .220469D+04, .166236D+04, .125211D+04,
448 + .942484D+03, .708602D+03, .532366D+03, .399460D+03,
449 + .299501D+03, .224254D+03, .167767D+03, .125329D+03,
450 + .935362D+02, .697131D+02, .519243D+02, .384526D+02,
451 + .285748D+02, .212031D+02, .157263D+02, .116502D+02,
452 + .862927D+01, .639272D+01, .473574D+01, .350860D+01,
453 + .260418D+01, .193478D+01, .144175D+01, .107651D+01,
454 + .807486D+00, .607554D+00, .459400D+00, .348700D+00,
455 + .266193D+00, .203996D+00, .157376D+00, .121602D+00,
456 + .946452D-01, .737253D-01, .577207D-01, .452577D-01 /
457 DATA (UPDI(I),I=1509,1560) /
458 + .355956D-01, .280112D-01, .220836D-01, .173918D-01,
459 + .136975D-01, .107634D-01, .845166D-02, .661109D-02,
460 + .516037D-02, .400793D-02, .310111D-02, .238910D-02,
461 + .182743D-02, .138604D-02, .104370D-02, .778263D-03,
462 + .575315D-03, .420121D-03, .303514D-03, .216020D-03,
463 + .151626D-03, .104230D-03, .707563D-04, .467492D-04,
464 + .302117D-04, .189162D-04, .114813D-04, .666793D-05,
465 + .370116D-05, .192348D-05, .923940D-06, .391329D-06,
466 + .138122D-06, .314258D-07, .000000D+00, .000000D+00,
467 + .000000D+00, .000000D+00, .000000D+00, .136434D+06,
468 + .104879D+06, .794510D+05, .601498D+05, .455195D+05,
469 + .344231D+05, .260202D+05, .196534D+05, .148371D+05,
470 + .111918D+05, .843749D+04, .635526D+04, .478398D+04 /
471 DATA (UPDI(I),I=1561,1612) /
472 + .359764D+04, .270367D+04, .202965D+04, .152254D+04,
473 + .114078D+04, .854049D+03, .638568D+03, .477039D+03,
474 + .355883D+03, .265242D+03, .197399D+03, .146754D+03,
475 + .108948D+03, .808213D+02, .596058D+02, .441086D+02,
476 + .325917D+02, .240677D+02, .177513D+02, .130883D+02,
477 + .965166D+01, .711580D+01, .524662D+01, .387470D+01,
478 + .286428D+01, .212325D+01, .157709D+01, .117655D+01,
479 + .880440D+00, .662002D+00, .499679D+00, .379241D+00,
480 + .288962D+00, .221605D+00, .170231D+00, .131692D+00,
481 + .101972D+00, .793463D-01, .618406D-01, .483386D-01,
482 + .378089D-01, .296228D-01, .231872D-01, .181491D-01,
483 + .141757D-01, .110628D-01, .860222D-02, .667439D-02,
484 + .515397D-02, .396510D-02, .303788D-02, .231127D-02 /
485 DATA (UPDI(I),I=1613,1664) /
486 + .174452D-02, .130787D-02, .971724D-03, .716330D-03,
487 + .522382D-03, .377487D-03, .269451D-03, .190249D-03,
488 + .132254D-03, .912964D-04, .619175D-04, .415641D-04,
489 + .274953D-04, .180326D-04, .116706D-04, .751869D-05,
490 + .478573D-05, .301747D-05, .186022D-05, .111142D-05,
491 + .622205D-06, .314362D-06, .132052D-06, .368176D-07,
492 + .246566D-08, .000000D+00, .207680D+06, .157419D+06,
493 + .118917D+06, .897727D+05, .677409D+05, .510783D+05,
494 + .384952D+05, .289889D+05, .218182D+05, .164071D+05,
495 + .123306D+05, .925827D+04, .694682D+04, .520719D+04,
496 + .390032D+04, .291822D+04, .218166D+04, .162903D+04,
497 + .121531D+04, .905474D+03, .673992D+03, .500986D+03,
498 + .372000D+03, .275812D+03, .204262D+03, .151051D+03 /
499 DATA (UPDI(I),I=1665,1716) /
500 + .111608D+03, .819745D+02, .604104D+02, .444508D+02,
501 + .326837D+02, .240013D+02, .176169D+02, .129325D+02,
502 + .948981D+01, .696393D+01, .511770D+01, .376451D+01,
503 + .277633D+01, .205163D+01, .152247D+01, .113327D+01,
504 + .847446D+00, .636175D+00, .480128D+00, .363792D+00,
505 + .277397D+00, .211881D+00, .162955D+00, .125450D+00,
506 + .970384D-01, .751902D-01, .584241D-01, .454297D-01,
507 + .353800D-01, .275302D-01, .214196D-01, .166320D-01,
508 + .129021D-01, .997396D-02, .769300D-02, .590642D-02,
509 + .451782D-02, .344178D-02, .260388D-02, .195498D-02,
510 + .145821D-02, .107842D-02, .791634D-03, .575331D-03,
511 + .414672D-03, .295640D-03, .208810D-03, .145600D-03,
512 + .101059D-03, .692060D-04, .471180D-04, .317997D-04 /
513 DATA (UPDI(I),I=1717,1768) /
514 + .213996D-04, .143033D-04, .955747D-05, .632831D-05,
515 + .414410D-05, .264382D-05, .162060D-05, .922579D-06,
516 + .468371D-06, .194901D-06, .530683D-07, .364493D-08,
517 + .000000D+00, .310689D+06, .237539D+06, .178816D+06,
518 + .134521D+06, .101145D+06, .759931D+05, .570629D+05,
519 + .428138D+05, .321025D+05, .240502D+05, .180051D+05,
520 + .134668D+05, .100648D+05, .751447D+04, .560574D+04,
521 + .417718D+04, .310985D+04, .231242D+04, .171776D+04,
522 + .127434D+04, .944380D+03, .698866D+03, .516577D+03,
523 + .381260D+03, .281035D+03, .206841D+03, .152087D+03,
524 + .111152D+03, .814996D+02, .596655D+02, .436409D+02,
525 + .318792D+02, .232715D+02, .169902D+02, .123964D+02,
526 + .904501D+01, .660760D+01, .483167D+01, .354141D+01 /
527 DATA (UPDI(I),I=1769,1820) /
528 + .260096D+01, .191783D+01, .141852D+01, .105381D+01,
529 + .785963D+00, .589197D+00, .443473D+00, .335852D+00,
530 + .254803D+00, .194606D+00, .148791D+00, .114286D+00,
531 + .879458D-01, .678520D-01, .523938D-01, .405107D-01,
532 + .313004D-01, .241766D-01, .186389D-01, .143517D-01,
533 + .110134D-01, .842975D-02, .642265D-02, .487305D-02,
534 + .368168D-02, .276051D-02, .205325D-02, .151586D-02,
535 + .110861D-02, .803510D-03, .575623D-03, .407876D-03,
536 + .284963D-03, .196328D-03, .132790D-03, .887254D-04,
537 + .579025D-04, .370776D-04, .231609D-04, .141468D-04,
538 + .839402D-05, .486476D-05, .273485D-05, .150111D-05,
539 + .798268D-06, .414424D-06, .205137D-06, .953817D-07,
540 + .384474D-07, .106951D-07, .673350D-09, .000000D+00 /
541 DATA (UPDI(I),I=1821,1872) /
542 + .443527D+06, .338065D+06, .253584D+06, .190084D+06,
543 + .142403D+06, .106599D+06, .797470D+05, .596092D+05,
544 + .445259D+05, .332294D+05, .247801D+05, .184614D+05,
545 + .137425D+05, .102191D+05, .759218D+04, .563409D+04,
546 + .417691D+04, .309274D+04, .228752D+04, .168967D+04,
547 + .124663D+04, .918426D+03, .675780D+03, .496469D+03,
548 + .364244D+03, .266808D+03, .195228D+03, .141971D+03,
549 + .103574D+03, .754427D+02, .548932D+02, .398882D+02,
550 + .289605D+02, .210286D+02, .152565D+02, .110687D+02,
551 + .803867D+01, .584357D+01, .425715D+01, .310765D+01,
552 + .227712D+01, .167373D+01, .123542D+01, .915523D+00,
553 + .681815D+00, .509827D+00, .383528D+00, .289041D+00,
554 + .219254D+00, .166505D+00, .127012D+00, .970765D-01 /
555 DATA (UPDI(I),I=1873,1924) /
556 + .743778D-01, .570396D-01, .437940D-01, .336035D-01,
557 + .257737D-01, .197330D-01, .150872D-01, .114978D-01,
558 + .873878D-02, .661237D-02, .498212D-02, .373834D-02,
559 + .278372D-02, .205685D-02, .150870D-02, .109671D-02,
560 + .790339D-03, .563390D-03, .397548D-03, .276989D-03,
561 + .190609D-03, .129172D-03, .867589D-04, .572310D-04,
562 + .372929D-04, .239473D-04, .152213D-04, .955683D-05,
563 + .596751D-05, .369051D-05, .226231D-05, .135936D-05,
564 + .791366D-06, .431337D-06, .211205D-06, .846838D-07,
565 + .221247D-07, .152744D-08, .000000D+00, .608710D+06,
566 + .462541D+06, .345702D+06, .258193D+06, .192715D+06,
567 + .143726D+06, .107118D+06, .797645D+05, .593522D+05,
568 + .441225D+05, .327743D+05, .243203D+05, .180311D+05 /
569 DATA (UPDI(I),I=1925,1976) /
570 + .133538D+05, .988029D+04, .730165D+04, .539037D+04,
571 + .397426D+04, .292684D+04, .215247D+04, .158105D+04,
572 + .115958D+04, .849335D+03, .621098D+03, .453544D+03,
573 + .330637D+03, .240760D+03, .174211D+03, .126458D+03,
574 + .916446D+02, .663361D+02, .479504D+02, .346267D+02,
575 + .250065D+02, .180411D+02, .130152D+02, .939748D+01,
576 + .679145D+01, .491808D+01, .356851D+01, .259869D+01,
577 + .189827D+01, .139231D+01, .102526D+01, .758609D+00,
578 + .563589D+00, .421195D+00, .315350D+00, .237617D+00,
579 + .179252D+00, .135815D+00, .103113D+00, .784672D-01,
580 + .597709D-01, .455770D-01, .347348D-01, .264590D-01,
581 + .201207D-01, .152779D-01, .115644D-01, .872923D-02,
582 + .656076D-02, .490973D-02, .365939D-02, .270669D-02 /
583 DATA (UPDI(I),I=1977,2028) /
584 + .198705D-02, .144835D-02, .104662D-02, .750051D-03,
585 + .532082D-03, .373922D-03, .259799D-03, .178553D-03,
586 + .121173D-03, .817276D-04, .543800D-04, .359222D-04,
587 + .235433D-04, .153794D-04, .100016D-04, .650427D-05,
588 + .420495D-05, .268922D-05, .167799D-05, .100368D-05,
589 + .555986D-06, .272629D-06, .107849D-06, .274820D-07,
590 + .194659D-08, .000000D+00, .811749D+06, .614910D+06,
591 + .457907D+06, .340739D+06, .253383D+06, .188264D+06,
592 + .139779D+06, .103688D+06, .768551D+05, .569111D+05,
593 + .421065D+05, .311207D+05, .229798D+05, .169493D+05,
594 + .124887D+05, .919082D+04, .675633D+04, .496009D+04,
595 + .363704D+04, .266306D+04, .194740D+04, .142185D+04,
596 + .103668D+04, .754600D+03, .548446D+03, .397914D+03 /
597 DATA (UPDI(I),I=2029,2080) /
598 + .288344D+03, .207603D+03, .149944D+03, .108116D+03,
599 + .778542D+02, .559816D+02, .402100D+02, .288816D+02,
600 + .207212D+02, .148648D+02, .106713D+02, .766730D+01,
601 + .551944D+01, .398095D+01, .288138D+01, .209187D+01,
602 + .152473D+01, .111576D+01, .820319D+00, .605552D+00,
603 + .449640D+00, .334473D+00, .250376D+00, .187642D+00,
604 + .141233D+00, .106523D+00, .805237D-01, .609320D-01,
605 + .461510D-01, .349385D-01, .264361D-01, .199698D-01,
606 + .150617D-01, .113252D-01, .849165D-02, .634033D-02,
607 + .471347D-02, .349024D-02, .256485D-02, .187118D-02,
608 + .135564D-02, .974074D-03, .694369D-03, .490325D-03,
609 + .343267D-03, .237890D-03, .163329D-03, .110994D-03,
610 + .751509D-04, .503823D-04, .336616D-04, .224169D-04 /
611 DATA (UPDI(I),I=2081,2132) /
612 + .149366D-04, .994246D-05, .662238D-05, .438062D-05,
613 + .285311D-05, .180299D-05, .108352D-05, .598600D-06,
614 + .290090D-06, .112301D-06, .278329D-07, .200850D-08,
615 + .000000D+00, .105852D+07, .799343D+06, .593066D+06,
616 + .439684D+06, .325740D+06, .241114D+06, .178337D+06,
617 + .131782D+06, .972988D+05, .717670D+05, .528873D+05,
618 + .389322D+05, .286313D+05, .210313D+05, .154323D+05,
619 + .113095D+05, .827860D+04, .605164D+04, .441817D+04,
620 + .322083D+04, .234480D+04, .170431D+04, .123695D+04,
621 + .896217D+03, .648321D+03, .468133D+03, .337585D+03,
622 + .241848D+03, .173808D+03, .124691D+03, .893276D+02,
623 + .638970D+02, .456511D+02, .326135D+02, .232697D+02,
624 + .165999D+02, .118490D+02, .846454D+01, .605761D+01 /
625 DATA (UPDI(I),I=2133,2184) /
626 + .434326D+01, .312469D+01, .225475D+01, .163334D+01,
627 + .118785D+01, .867843D+00, .636603D+00, .469698D+00,
628 + .347169D+00, .258206D+00, .192263D+00, .143773D+00,
629 + .107739D+00, .809119D-01, .608281D-01, .457698D-01,
630 + .344240D-01, .258761D-01, .194198D-01, .145508D-01,
631 + .108702D-01, .809748D-02, .600733D-02, .443726D-02,
632 + .326497D-02, .238428D-02, .172900D-02, .124539D-02,
633 + .890039D-03, .631319D-03, .443920D-03, .309722D-03,
634 + .214180D-03, .146964D-03, .100036D-03, .679959D-04,
635 + .459063D-04, .309779D-04, .209015D-04, .141381D-04,
636 + .956495D-05, .646613D-05, .433035D-05, .284148D-05,
637 + .180012D-05, .107775D-05, .589834D-06, .281200D-06,
638 + .106237D-06, .255855D-07, .187745D-08, .000000D+00 /
639 DATA (UPDI(I),I=2185,2236) /
640 + .135515D+07, .102017D+07, .754119D+06, .557015D+06,
641 + .411121D+06, .303165D+06, .223377D+06, .164429D+06,
642 + .120931D+06, .888476D+05, .652145D+05, .478142D+05,
643 + .350207D+05, .256194D+05, .187210D+05, .136623D+05,
644 + .995845D+04, .724845D+04, .526900D+04, .382425D+04,
645 + .277173D+04, .200557D+04, .144898D+04, .104500D+04,
646 + .752413D+03, .540710D+03, .388041D+03, .276620D+03,
647 + .197811D+03, .141198D+03, .100636D+03, .716128D+02,
648 + .508932D+02, .361642D+02, .256622D+02, .182053D+02,
649 + .129216D+02, .917813D+01, .653017D+01, .465467D+01,
650 + .332879D+01, .238762D+01, .171907D+01, .124257D+01,
651 + .902209D+00, .657703D+00, .482234D+00, .354196D+00,
652 + .261764D+00, .193676D+00, .143906D+00, .107154D+00 /
653 DATA (UPDI(I),I=2237,2288) /
654 + .799580D-01, .597274D-01, .446522D-01, .333687D-01,
655 + .249219D-01, .185846D-01, .138358D-01, .102707D-01,
656 + .760240D-02, .560489D-02, .411422D-02, .300877D-02,
657 + .218395D-02, .157461D-02, .112795D-02, .802025D-03,
658 + .566281D-03, .396669D-03, .275941D-03, .190502D-03,
659 + .130708D-03, .891494D-04, .608427D-04, .413527D-04,
660 + .281547D-04, .192051D-04, .131424D-04, .899332D-05,
661 + .613511D-05, .413375D-05, .271663D-05, .171620D-05,
662 + .101941D-05, .550893D-06, .257820D-06, .949593D-07,
663 + .222270D-07, .165705D-08, .000000D+00, .170796D+07,
664 + .128177D+07, .944022D+06, .694705D+06, .510830D+06,
665 + .375272D+06, .275453D+06, .201983D+06, .147973D+06,
666 + .108290D+06, .791700D+05, .578140D+05, .421735D+05 /
667 DATA (UPDI(I),I=2289,2340) /
668 + .307260D+05, .223598D+05, .162497D+05, .117944D+05,
669 + .854812D+04, .618689D+04, .447085D+04, .322603D+04,
670 + .232385D+04, .167131D+04, .119981D+04, .859857D+03,
671 + .614996D+03, .439236D+03, .311573D+03, .221708D+03,
672 + .157467D+03, .111661D+03, .790493D+02, .558836D+02,
673 + .394999D+02, .278773D+02, .196683D+02, .138820D+02,
674 + .980468D+01, .693592D+01, .491525D+01, .349448D+01,
675 + .249161D+01, .178318D+01, .128114D+01, .924539D+00,
676 + .669853D+00, .488121D+00, .356300D+00, .261678D+00,
677 + .192404D+00, .142065D+00, .105124D+00, .779497D-01,
678 + .578623D-01, .429849D-01, .319213D-01, .236913D-01,
679 + .175568D-01, .129888D-01, .958239D-02, .704914D-02,
680 + .516550D-02, .376879D-02, .273988D-02, .197728D-02 /
681 DATA (UPDI(I),I=2341,2392) /
682 + .141777D-02, .101033D-02, .714994D-03, .502717D-03,
683 + .350955D-03, .243544D-03, .167944D-03, .115283D-03,
684 + .788174D-04, .540198D-04, .369509D-04, .253589D-04,
685 + .174557D-04, .120518D-04, .831158D-05, .569878D-05,
686 + .384730D-05, .252289D-05, .158429D-05, .931376D-06,
687 + .496091D-06, .227650D-06, .817130D-07, .186008D-07,
688 + .140812D-08, .000000D+00, .212326D+07, .158854D+07,
689 + .116567D+07, .854656D+06, .626106D+06, .458231D+06,
690 + .335069D+06, .244758D+06, .178617D+06, .130205D+06,
691 + .948161D+05, .689639D+05, .501043D+05, .363556D+05,
692 + .263477D+05, .190683D+05, .137820D+05, .994624D+04,
693 + .716787D+04, .515723D+04, .370493D+04, .265694D+04,
694 + .190225D+04, .135936D+04, .969701D+03, .690296D+03 /
695 DATA (UPDI(I),I=2393,2444) /
696 + .490668D+03, .346355D+03, .245254D+03, .173328D+03,
697 + .122289D+03, .861320D+02, .605745D+02, .425908D+02,
698 + .298977D+02, .209793D+02, .147255D+02, .103424D+02,
699 + .727482D+01, .512590D+01, .362308D+01, .256818D+01,
700 + .182711D+01, .130489D+01, .936020D+00, .674076D+00,
701 + .488222D+00, .354199D+00, .258541D+00, .188930D+00,
702 + .138641D+00, .101961D+00, .751379D-01, .554319D-01,
703 + .409247D-01, .302046D-01, .222794D-01, .164098D-01,
704 + .120661D-01, .884801D-02, .646982D-02, .471308D-02,
705 + .341860D-02, .247116D-02, .177348D-02, .126500D-02,
706 + .897064D-03, .632063D-03, .442729D-03, .308174D-03,
707 + .213441D-03, .147096D-03, .101069D-03, .692882D-04,
708 + .476953D-04, .328224D-04, .226844D-04, .157307D-04 /
709 DATA (UPDI(I),I=2445,2496) /
710 + .109325D-04, .757710D-05, .520593D-05, .351123D-05,
711 + .229173D-05, .142755D-05, .829314D-06, .434884D-06,
712 + .195544D-06, .683987D-07, .151541D-07, .116448D-08,
713 + .000000D+00, .260727D+07, .194470D+07, .142183D+07,
714 + .103865D+07, .758083D+06, .552751D+06, .402660D+06,
715 + .293012D+06, .213009D+06, .154673D+06, .112193D+06,
716 + .812796D+05, .588156D+05, .425042D+05, .306778D+05,
717 + .221104D+05, .159140D+05, .114365D+05, .820663D+04,
718 + .587914D+04, .420510D+04, .300231D+04, .213991D+04,
719 + .152227D+04, .108093D+04, .765884D+03, .541827D+03,
720 + .380616D+03, .268209D+03, .188622D+03, .132416D+03,
721 + .927940D+02, .649245D+02, .454124D+02, .317095D+02,
722 + .221312D+02, .154493D+02, .107909D+02, .754786D+01 /
723 DATA (UPDI(I),I=2497,2548) /
724 + .528824D+01, .371641D+01, .261913D+01, .185248D+01,
725 + .131525D+01, .937865D+00, .671386D+00, .483374D+00,
726 + .348574D+00, .252902D+00, .183693D+00, .133982D+00,
727 + .979405D-01, .717382D-01, .526042D-01, .386016D-01,
728 + .283185D-01, .207626D-01, .152013D-01, .111109D-01,
729 + .809965D-02, .588803D-02, .426475D-02, .307593D-02,
730 + .221130D-02, .157859D-02, .112043D-02, .790920D-03,
731 + .555041D-03, .387471D-03, .269046D-03, .186071D-03,
732 + .128219D-03, .882216D-04, .606618D-04, .419387D-04,
733 + .290226D-04, .201801D-04, .140762D-04, .982742D-05,
734 + .682919D-05, .469092D-05, .315403D-05, .204527D-05,
735 + .126193D-05, .723669D-06, .373318D-06, .164413D-06,
736 + .560506D-07, .120971D-07, .943303D-09, .000000D+00 /
737 DATA (UPDI(I),I=2549,2600) /
738 + .562964D+05, .335803D+05, .261493D+05, .203628D+05,
739 + .158569D+05, .123482D+05, .961594D+04, .748835D+04,
740 + .583160D+04, .454148D+04, .353685D+04, .275454D+04,
741 + .214535D+04, .167096D+04, .130153D+04, .101385D+04,
742 + .789825D+03, .615361D+03, .479493D+03, .373681D+03,
743 + .291272D+03, .227089D+03, .177098D+03, .138158D+03,
744 + .107825D+03, .841930D+02, .657803D+02, .512528D+02,
745 + .401130D+02, .314271D+02, .246526D+02, .193667D+02,
746 + .152402D+02, .120253D+02, .950491D+01, .753311D+01,
747 + .598825D+01, .477565D+01, .382166D+01, .306870D+01,
748 + .247328D+01, .199983D+01, .162193D+01, .131888D+01,
749 + .107471D+01, .877066D+00, .716926D+00, .585384D+00,
750 + .478300D+00, .389830D+00, .317347D+00, .257673D+00 /
751 DATA (UPDI(I),I=2601,2652) /
752 + .208549D+00, .168142D+00, .134963D+00, .107787D+00,
753 + .856021D-01, .675644D-01, .529688D-01, .412229D-01,
754 + .318278D-01, .243637D-01, .184774D-01, .138917D-01,
755 + .103133D-01, .756704D-02, .548145D-02, .391574D-02,
756 + .275502D-02, .190635D-02, .129518D-02, .862356D-03,
757 + .561301D-03, .356045D-03, .220449D-03, .131831D-03,
758 + .760670D-04, .421219D-04, .222368D-04, .110985D-04,
759 + .518115D-05, .223406D-05, .867731D-06, .297969D-06,
760 + .866440D-07, .200793D-07, .334989D-08, .332462D-09,
761 + .127895D-10, .484556D-13, .000000D+00, .776833D+05,
762 + .606271D+05, .467450D+05, .360370D+05, .277821D+05,
763 + .214150D+05, .165072D+05, .127223D+05, .980520D+04,
764 + .755588D+04, .582257D+04, .448622D+04, .345661D+04 /
765 DATA (UPDI(I),I=2653,2704) /
766 + .266293D+04, .205153D+04, .158030D+04, .121737D+04,
767 + .937685D+03, .722312D+03, .556370D+03, .428613D+03,
768 + .330193D+03, .254429D+03, .196070D+03, .151148D+03,
769 + .116552D+03, .899313D+02, .691696D+02, .534467D+02,
770 + .413310D+02, .320022D+02, .248104D+02, .192683D+02,
771 + .150030D+02, .117033D+02, .915335D+01, .718210D+01,
772 + .565373D+01, .446737D+01, .354250D+01, .282093D+01,
773 + .225419D+01, .180773D+01, .145401D+01, .117269D+01,
774 + .947603D+00, .767480D+00, .621103D+00, .503363D+00,
775 + .407056D+00, .328985D+00, .265299D+00, .213372D+00,
776 + .171016D+00, .136531D+00, .108489D+00, .857627D-01,
777 + .674021D-01, .526425D-01, .408275D-01, .314295D-01,
778 + .239975D-01, .181614D-01, .136323D-01, .101095D-01 /
779 DATA (UPDI(I),I=2705,2756) /
780 + .741199D-02, .536800D-02, .383546D-02, .270066D-02,
781 + .187070D-02, .127282D-02, .848466D-03, .552821D-03,
782 + .350198D-03, .215964D-03, .127689D-03, .718873D-04,
783 + .377761D-04, .178194D-04, .680936D-05, .120238D-05,
784 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
785 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
786 + .000000D+00, .000000D+00, .122180D+06, .948420D+05,
787 + .726725D+05, .556718D+05, .426449D+05, .326575D+05,
788 + .250071D+05, .191436D+05, .146537D+05, .112136D+05,
789 + .858034D+04, .656353D+04, .502031D+04, .383881D+04,
790 + .293513D+04, .224352D+04, .171476D+04, .131025D+04,
791 + .100112D+04, .764734D+03, .584175D+03, .446163D+03,
792 + .340785D+03, .260271D+03, .198816D+03, .151886D+03 /
793 DATA (UPDI(I),I=2757,2808) /
794 + .116095D+03, .884228D+02, .676563D+02, .517971D+02,
795 + .397009D+02, .304621D+02, .234113D+02, .180368D+02,
796 + .139206D+02, .107708D+02, .836087D+01, .651100D+01,
797 + .509017D+01, .399377D+01, .314750D+01, .248965D+01,
798 + .197692D+01, .157488D+01, .125854D+01, .100796D+01,
799 + .809519D+00, .649796D+00, .522621D+00, .419536D+00,
800 + .336742D+00, .269777D+00, .215641D+00, .171829D+00,
801 + .136434D+00, .107854D+00, .848515D-01, .663847D-01,
802 + .516332D-01, .398903D-01, .306019D-01, .232929D-01,
803 + .175804D-01, .131665D-01, .974701D-02, .713718D-02,
804 + .516615D-02, .369213D-02, .260332D-02, .180808D-02,
805 + .123588D-02, .829679D-03, .546391D-03, .351596D-03,
806 + .222005D-03, .136031D-03, .810261D-04, .466607D-04 /
807 DATA (UPDI(I),I=2809,2860) /
808 + .259091D-04, .137583D-04, .695526D-05, .330249D-05,
809 + .144922D-05, .568141D-06, .188393D-06, .428181D-07,
810 + .486234D-09, .000000D+00, .000000D+00, .000000D+00,
811 + .000000D+00, .177723D+06, .137382D+06, .104761D+06,
812 + .798591D+05, .608669D+05, .463747D+05, .353270D+05,
813 + .269010D+05, .204810D+05, .155871D+05, .118603D+05,
814 + .902091D+04, .685996D+04, .521450D+04, .396296D+04,
815 + .301053D+04, .228658D+04, .173599D+04, .131776D+04,
816 + .999887D+03, .758608D+03, .575350D+03, .436336D+03,
817 + .330821D+03, .250830D+03, .190163D+03, .144228D+03,
818 + .108965D+03, .826980D+02, .627872D+02, .477175D+02,
819 + .362966D+02, .276499D+02, .211120D+02, .161462D+02,
820 + .123780D+02, .951964D+01, .734434D+01, .568830D+01 /
821 DATA (UPDI(I),I=2861,2912) /
822 + .442166D+01, .345284D+01, .270649D+01, .213008D+01,
823 + .168221D+01, .133305D+01, .105895D+01, .843857D+00,
824 + .672233D+00, .536797D+00, .427931D+00, .341222D+00,
825 + .271644D+00, .215835D+00, .171001D+00, .135042D+00,
826 + .106202D+00, .831419D-01, .647440D-01, .501367D-01,
827 + .385735D-01, .294779D-01, .223571D-01, .168187D-01,
828 + .125588D-01, .927286D-02, .677470D-02, .489517D-02,
829 + .349428D-02, .246275D-02, .171123D-02, .117170D-02,
830 + .789247D-03, .522718D-03, .339340D-03, .217141D-03,
831 + .135729D-03, .832922D-04, .501206D-04, .297115D-04,
832 + .173661D-04, .101107D-04, .587469D-05, .342828D-05,
833 + .199712D-05, .114991D-05, .630829D-06, .315749D-06,
834 + .132185D-06, .368227D-07, .246568D-08, .000000D+00 /
835 DATA (UPDI(I),I=2913,2964) /
836 + .196869D+06, .189590D+06, .143968D+06, .109281D+06,
837 + .829315D+05, .629077D+05, .477067D+05, .361623D+05,
838 + .274042D+05, .207573D+05, .157182D+05, .118965D+05,
839 + .900140D+04, .680735D+04, .514657D+04, .388891D+04,
840 + .293773D+04, .221800D+04, .167413D+04, .126296D+04,
841 + .952548D+03, .718082D+03, .541223D+03, .407755D+03,
842 + .307165D+03, .231331D+03, .174268D+03, .130737D+03,
843 + .985183D+02, .742558D+02, .560147D+02, .422847D+02,
844 + .319617D+02, .242119D+02, .183681D+02, .139664D+02,
845 + .106526D+02, .814994D+01, .625947D+01, .482492D+01,
846 + .373643D+01, .290464D+01, .226747D+01, .177644D+01,
847 + .139679D+01, .110117D+01, .871094D+00, .688983D+00,
848 + .546426D+00, .432726D+00, .342861D+00, .271286D+00 /
849 DATA (UPDI(I),I=2965,3016) /
850 + .214292D+00, .168827D+00, .132609D+00, .103750D+00,
851 + .808207D-01, .626381D-01, .482865D-01, .369894D-01,
852 + .281515D-01, .212684D-01, .159411D-01, .118630D-01,
853 + .873137D-02, .636074D-02, .458452D-02, .326569D-02,
854 + .229812D-02, .159546D-02, .109250D-02, .736815D-03,
855 + .489406D-03, .319352D-03, .206012D-03, .130379D-03,
856 + .814745D-04, .503013D-04, .308809D-04, .188923D-04,
857 + .116289D-04, .719119D-05, .446657D-05, .275024D-05,
858 + .165020D-05, .929138D-06, .469413D-06, .195000D-06,
859 + .530720D-07, .364495D-08, .000000D+00, .351056D+06,
860 + .269315D+06, .203560D+06, .153789D+06, .116149D+06,
861 + .876772D+05, .661612D+05, .498990D+05, .376198D+05,
862 + .283467D+05, .213509D+05, .160724D+05, .120939D+05 /
863 DATA (UPDI(I),I=3017,3068) /
864 + .909476D+04, .683646D+04, .513573D+04, .385643D+04,
865 + .289396D+04, .217075D+04, .162725D+04, .121934D+04,
866 + .913127D+03, .683563D+03, .511431D+03, .382531D+03,
867 + .285999D+03, .213850D+03, .159196D+03, .119027D+03,
868 + .889987D+02, .665861D+02, .498453D+02, .373534D+02,
869 + .280501D+02, .210900D+02, .158911D+02, .120090D+02,
870 + .910246D+01, .692552D+01, .528827D+01, .405684D+01,
871 + .312439D+01, .241649D+01, .187603D+01, .146194D+01,
872 + .114251D+01, .896150D+00, .702944D+00, .553061D+00,
873 + .434589D+00, .341763D+00, .268469D+00, .210589D+00,
874 + .164797D+00, .128603D+00, .999856D-01, .774148D-01,
875 + .596467D-01, .457188D-01, .348297D-01, .263658D-01,
876 + .198160D-01, .147764D-01, .109413D-01, .801260D-02 /
877 DATA (UPDI(I),I=3069,3120) /
878 + .580778D-02, .416446D-02, .295069D-02, .206461D-02,
879 + .142436D-02, .968287D-03, .647389D-03, .425343D-03,
880 + .273646D-03, .173222D-03, .106800D-03, .643352D-04,
881 + .377263D-04, .215505D-04, .119473D-04, .645416D-05,
882 + .339075D-05, .174374D-05, .877495D-06, .436208D-06,
883 + .209909D-06, .961308D-07, .385180D-07, .106977D-07,
884 + .673363D-09, .000000D+00, .483401D+06, .369454D+06,
885 + .278026D+06, .209118D+06, .157224D+06, .118140D+06,
886 + .887340D+05, .666076D+05, .499755D+05, .374731D+05,
887 + .280848D+05, .210349D+05, .157466D+05, .117798D+05,
888 + .880759D+04, .658067D+04, .491411D+04, .366693D+04,
889 + .273476D+04, .203805D+04, .151803D+04, .112988D+04,
890 + .840546D+03, .624881D+03, .464340D+03, .344849D+03 /
891 DATA (UPDI(I),I=3121,3172) /
892 + .256096D+03, .189297D+03, .140521D+03, .104303D+03,
893 + .774517D+02, .575357D+02, .427781D+02, .318676D+02,
894 + .237644D+02, .177576D+02, .133060D+02, .999940D+01,
895 + .754216D+01, .570916D+01, .434160D+01, .331471D+01,
896 + .254155D+01, .195631D+01, .151167D+01, .117162D+01,
897 + .911564D+00, .709368D+00, .553823D+00, .431916D+00,
898 + .337181D+00, .262994D+00, .204872D+00, .159252D+00,
899 + .123467D+00, .953856D-01, .733983D-01, .562142D-01,
900 + .428367D-01, .324496D-01, .244289D-01, .182625D-01,
901 + .135472D-01, .998082D-02, .727348D-02, .524740D-02,
902 + .374593D-02, .264318D-02, .184248D-02, .126701D-02,
903 + .859117D-03, .573506D-03, .376706D-03, .242822D-03,
904 + .154441D-03, .961010D-04, .587893D-04, .353394D-04 /
905 DATA (UPDI(I),I=3173,3224) /
906 + .209616D-04, .122866D-04, .717661D-05, .418434D-05,
907 + .244295D-05, .141765D-05, .807188D-06, .434757D-06,
908 + .211734D-06, .847331D-07, .221266D-07, .152745D-08,
909 + .000000D+00, .648098D+06, .493547D+06, .369846D+06,
910 + .276994D+06, .207355D+06, .155126D+06, .115995D+06,
911 + .866772D+05, .647351D+05, .483142D+05, .360383D+05,
912 + .268621D+05, .200104D+05, .148951D+05, .110806D+05,
913 + .823639D+04, .611830D+04, .454119D+04, .336837D+04,
914 + .249637D+04, .184891D+04, .136825D+04, .101189D+04,
915 + .747760D+03, .552247D+03, .407564D+03, .300733D+03,
916 + .220818D+03, .162822D+03, .120031D+03, .885060D+02,
917 + .652775D+02, .481784D+02, .356232D+02, .263621D+02,
918 + .195458D+02, .145301D+02, .108319D+02, .810390D+01 /
919 DATA (UPDI(I),I=3225,3276) /
920 + .608440D+01, .458904D+01, .347497D+01, .264266D+01,
921 + .201768D+01, .154660D+01, .118921D+01, .918084D+00,
922 + .708983D+00, .549399D+00, .425331D+00, .329671D+00,
923 + .255350D+00, .197566D+00, .152556D+00, .117509D+00,
924 + .902095D-01, .689862D-01, .525167D-01, .397826D-01,
925 + .299626D-01, .224294D-01, .166758D-01, .123035D-01,
926 + .901712D-02, .653749D-02, .469315D-02, .333444D-02,
927 + .234239D-02, .162613D-02, .111423D-02, .753318D-03,
928 + .501901D-03, .329464D-03, .212679D-03, .135826D-03,
929 + .852123D-04, .528382D-04, .324336D-04, .198201D-04,
930 + .120940D-04, .742189D-05, .457587D-05, .282337D-05,
931 + .172076D-05, .101514D-05, .558430D-06, .273002D-06,
932 + .107883D-06, .274832D-07, .194660D-08, .000000D+00 /
933 DATA (UPDI(I),I=3277,3328) /
934 + .850658D+06, .645539D+06, .481757D+06, .359311D+06,
935 + .267844D+06, .199525D+06, .148548D+06, .110516D+06,
936 + .821720D+05, .610513D+05, .453304D+05, .336311D+05,
937 + .249346D+05, .184715D+05, .136741D+05, .101138D+05,
938 + .747509D+04, .551982D+04, .407291D+04, .300250D+04,
939 + .221175D+04, .162774D+04, .119705D+04, .879517D+03,
940 + .645759D+03, .473728D+03, .347423D+03, .253490D+03,
941 + .185724D+03, .136026D+03, .996333D+02, .729862D+02,
942 + .534939D+02, .392744D+02, .288539D+02, .212361D+02,
943 + .156685D+02, .115921D+02, .860602D+01, .641142D+01,
944 + .479806D+01, .360494D+01, .272014D+01, .206076D+01,
945 + .156748D+01, .119610D+01, .916496D+00, .702520D+00,
946 + .540447D+00, .415416D+00, .319737D+00, .245965D+00 /
947 DATA (UPDI(I),I=3329,3380) /
948 + .189030D+00, .145009D+00, .110977D+00, .846586D-01,
949 + .643412D-01, .486844D-01, .366602D-01, .274503D-01,
950 + .204314D-01, .151055D-01, .110837D-01, .807955D-02,
951 + .582691D-02, .416178D-02, .294249D-02, .205757D-02,
952 + .142235D-02, .970970D-03, .654464D-03, .435143D-03,
953 + .285443D-03, .184511D-03, .118297D-03, .747847D-04,
954 + .469432D-04, .293391D-04, .183639D-04, .115425D-04,
955 + .731717D-05, .465855D-05, .295250D-05, .183430D-05,
956 + .109180D-05, .600343D-06, .290353D-06, .112325D-06,
957 + .278337D-07, .200851D-08, .000000D+00, .109695D+07,
958 + .829599D+06, .616625D+06, .458030D+06, .340025D+06,
959 + .252238D+06, .186998D+06, .138526D+06, .102550D+06,
960 + .758564D+05, .560714D+05, .414116D+05, .305619D+05 /
961 DATA (UPDI(I),I=3381,3432) /
962 + .225346D+05, .166028D+05, .122210D+05, .898827D+04,
963 + .660422D+04, .484843D+04, .355585D+04, .260567D+04,
964 + .190744D+04, .139513D+04, .101939D+04, .744244D+03,
965 + .542833D+03, .395768D+03, .287014D+03, .209002D+03,
966 + .152122D+03, .110714D+03, .805768D+02, .586652D+02,
967 + .427807D+02, .312129D+02, .228111D+02, .167103D+02,
968 + .122734D+02, .904497D+01, .668863D+01, .496823D+01,
969 + .370493D+01, .277468D+01, .208644D+01, .157524D+01,
970 + .119320D+01, .907643D+00, .690732D+00, .527627D+00,
971 + .402734D+00, .307854D+00, .235235D+00, .179590D+00,
972 + .136874D+00, .104084D+00, .789029D-01, .595975D-01,
973 + .448225D-01, .335511D-01, .249756D-01, .184826D-01,
974 + .135878D-01, .991460D-02, .718810D-02, .515637D-02 /
975 DATA (UPDI(I),I=3433,3484) /
976 + .366391D-02, .257770D-02, .179413D-02, .123494D-02,
977 + .839907D-03, .564425D-03, .374541D-03, .245558D-03,
978 + .158969D-03, .102329D-03, .651753D-04, .413818D-04,
979 + .262786D-04, .167771D-04, .107855D-04, .699093D-05,
980 + .453810D-05, .291494D-05, .182299D-05, .108373D-05,
981 + .591074D-06, .281384D-06, .106254D-06, .255861D-07,
982 + .187746D-08, .000000D+00, .139312D+07, .105005D+07,
983 + .777392D+06, .575137D+06, .425232D+06, .314153D+06,
984 + .231932D+06, .171090D+06, .126118D+06, .928867D+05,
985 + .683594D+05, .502630D+05, .369273D+05, .271039D+05,
986 + .198768D+05, .145622D+05, .106591D+05, .779394D+04,
987 + .569368D+04, .415488D+04, .302913D+04, .220595D+04,
988 + .160497D+04, .116643D+04, .846946D+03, .614294D+03 /
989 DATA (UPDI(I),I=3485,3536) /
990 + .445326D+03, .321060D+03, .232416D+03, .168147D+03,
991 + .121626D+03, .879654D+02, .636354D+02, .461042D+02,
992 + .334144D+02, .242554D+02, .176463D+02, .128708D+02,
993 + .941846D+01, .691534D+01, .509983D+01, .377572D+01,
994 + .280731D+01, .209580D+01, .157096D+01, .118147D+01,
995 + .892397D+00, .674372D+00, .511580D+00, .387820D+00,
996 + .294463D+00, .223517D+00, .169533D+00, .128383D+00,
997 + .970095D-01, .730832D-01, .548637D-01, .410139D-01,
998 + .305178D-01, .225849D-01, .166172D-01, .121475D-01,
999 + .881426D-02, .635554D-02, .453478D-02, .320563D-02,
1000 + .224418D-02, .155480D-02, .106572D-02, .722198D-03,
1001 + .483948D-03, .320581D-03, .210132D-03, .136283D-03,
1002 + .880996D-04, .565326D-04, .362852D-04, .233720D-04 /
1003 DATA (UPDI(I),I=3537,3588) /
1004 + .151695D-04, .992218D-05, .653054D-05, .428865D-05,
1005 + .277079D-05, .173286D-05, .102370D-05, .551773D-06,
1006 + .257949D-06, .949708D-07, .222275D-07, .165706D-08,
1007 + .000000D+00, .174546D+07, .131130D+07, .967011D+06,
1008 + .712606D+06, .524769D+06, .386126D+06, .283904D+06,
1009 + .208563D+06, .153097D+06, .112279D+06, .822760D+05,
1010 + .602324D+05, .440564D+05, .321920D+05, .235011D+05,
1011 + .171382D+05, .124860D+05, .908656D+04, .660603D+04,
1012 + .479710D+04, .347997D+04, .252149D+04, .182512D+04,
1013 + .131950D+04, .952998D+03, .687462D+03, .495619D+03,
1014 + .355285D+03, .255720D+03, .183931D+03, .132252D+03,
1015 + .950721D+02, .683518D+02, .492109D+02, .354375D+02,
1016 + .255565D+02, .184699D+02, .133812D+02, .972539D+01 /
1017 DATA (UPDI(I),I=3589,3640) /
1018 + .709174D+01, .519374D+01, .381853D+01, .281934D+01,
1019 + .209011D+01, .155580D+01, .116196D+01, .871639D+00,
1020 + .654182D+00, .492918D+00, .371173D+00, .279966D+00,
1021 + .211133D+00, .159112D+00, .119729D+00, .899051D-01,
1022 + .673139D-01, .502257D-01, .373220D-01, .276064D-01,
1023 + .203115D-01, .148588D-01, .108009D-01, .779359D-02,
1024 + .558908D-02, .396670D-02, .278973D-02, .194354D-02,
1025 + .134044D-02, .915051D-03, .617977D-03, .413039D-03,
1026 + .273223D-03, .179121D-03, .116428D-03, .756090D-04,
1027 + .488815D-04, .316977D-04, .206769D-04, .136050D-04,
1028 + .901670D-05, .599599D-05, .396252D-05, .256272D-05,
1029 + .159640D-05, .934458D-06, .496714D-06, .227740D-06,
1030 + .817209D-07, .186011D-07, .140812D-08, .000000D+00 /
1031 DATA (UPDI(I),I=3641,3692) /
1032 + .216031D+07, .161770D+07, .118838D+07, .872338D+06,
1033 + .639874D+06, .468951D+06, .343416D+06, .251257D+06,
1034 + .183677D+06, .134145D+06, .978836D+05, .713521D+05,
1035 + .519636D+05, .378031D+05, .274745D+05, .199455D+05,
1036 + .144647D+05, .104777D+05, .758148D+04, .547912D+04,
1037 + .395541D+04, .285184D+04, .205389D+04, .147732D+04,
1038 + .106145D+04, .761641D+03, .546146D+03, .389335D+03,
1039 + .278669D+03, .199304D+03, .142478D+03, .101823D+03,
1040 + .727667D+02, .520713D+02, .372647D+02, .267050D+02,
1041 + .191762D+02, .138028D+02, .996586D+01, .721885D+01,
1042 + .525142D+01, .383493D+01, .281229D+01, .207078D+01,
1043 + .153097D+01, .113570D+01, .846239D+00, .630874D+00,
1044 + .472218D+00, .353253D+00, .264723D+00, .198362D+00 /
1045 DATA (UPDI(I),I=3693,3744) /
1046 + .148542D+00, .111077D+00, .828928D-01, .616854D-01,
1047 + .457488D-01, .337934D-01, .248496D-01, .181775D-01,
1048 + .132219D-01, .955723D-02, .685813D-02, .489176D-02,
1049 + .345356D-02, .241664D-02, .167561D-02, .115060D-02,
1050 + .782418D-03, .526727D-03, .351252D-03, .232114D-03,
1051 + .152263D-03, .992317D-04, .647561D-04, .421774D-04,
1052 + .276146D-04, .182151D-04, .121198D-04, .811107D-05,
1053 + .542877D-05, .359671D-05, .232095D-05, .143633D-05,
1054 + .831520D-06, .435324D-06, .195607D-06, .684042D-07,
1055 + .151543D-07, .116448D-08, .000000D+00, .264386D+07,
1056 + .197351D+07, .144426D+07, .105612D+07, .771682D+06,
1057 + .563340D+06, .410905D+06, .299431D+06, .218007D+06,
1058 + .158564D+06, .115222D+06, .836379D+05, .606515D+05 /
1059 DATA (UPDI(I),I=3745,3796) /
1060 + .439333D+05, .317902D+05, .229763D+05, .165879D+05,
1061 + .119609D+05, .861474D+04, .619668D+04, .445214D+04,
1062 + .319447D+04, .228936D+04, .163849D+04, .117128D+04,
1063 + .836104D+03, .596396D+03, .422860D+03, .301024D+03,
1064 + .214105D+03, .152200D+03, .108150D+03, .768388D+02,
1065 + .546611D+02, .388825D+02, .276940D+02, .197628D+02,
1066 + .141355D+02, .101410D+02, .729843D+01, .527479D+01,
1067 + .382679D+01, .278786D+01, .203927D+01, .149773D+01,
1068 + .110372D+01, .817035D+00, .605118D+00, .450009D+00,
1069 + .334470D+00, .249053D+00, .185445D+00, .138004D+00,
1070 + .102560D+00, .760695D-01, .562664D-01, .414810D-01,
1071 + .304606D-01, .222685D-01, .161961D-01, .117141D-01,
1072 + .842041D-02, .600935D-02, .426358D-02, .299452D-02 /
1073 DATA (UPDI(I),I=3797,3848) /
1074 + .208511D-02, .143908D-02, .984037D-03, .666716D-03,
1075 + .447542D-03, .297877D-03, .196724D-03, .129185D-03,
1076 + .844475D-04, .553903D-04, .363412D-04, .240059D-04,
1077 + .159877D-04, .107329D-04, .723259D-05, .485760D-05,
1078 + .321730D-05, .206666D-05, .126827D-05, .725245D-06,
1079 + .373628D-06, .164457D-06, .560543D-07, .120972D-07,
1080 + .943304D-09, .000000D+00, .449221D+05, .671864D+05,
1081 + .523200D+05, .407435D+05, .317288D+05, .247090D+05,
1082 + .192426D+05, .149858D+05, .116710D+05, .908961D+04,
1083 + .707944D+04, .551405D+04, .429501D+04, .334567D+04,
1084 + .260636D+04, .203059D+04, .158219D+04, .123296D+04,
1085 + .960964D+03, .749114D+03, .584101D+03, .455564D+03,
1086 + .355432D+03, .277423D+03, .216641D+03, .169278D+03 /
1087 DATA (UPDI(I),I=3849,3900) /
1088 + .132364D+03, .103231D+03, .808839D+02, .634534D+02,
1089 + .498529D+02, .392364D+02, .309446D+02, .244812D+02,
1090 + .194114D+02, .154426D+02, .123310D+02, .988661D+01,
1091 + .796162D+01, .644028D+01, .523514D+01, .427454D+01,
1092 + .350526D+01, .288560D+01, .238339D+01, .197382D+01,
1093 + .163886D+01, .136063D+01, .113114D+01, .938695D+00,
1094 + .778385D+00, .644003D+00, .531224D+00, .436564D+00,
1095 + .357186D+00, .290756D+00, .235328D+00, .189259D+00,
1096 + .151151D+00, .119803D+00, .941792D-01, .733801D-01,
1097 + .566274D-01, .433028D-01, .326918D-01, .243838D-01,
1098 + .179499D-01, .130266D-01, .930796D-02, .653894D-02,
1099 + .450896D-02, .304609D-02, .201113D-02, .129366D-02,
1100 + .811952D-03, .492117D-03, .287712D-03, .161387D-03 /
1101 DATA (UPDI(I),I=3901,3952) /
1102 + .862826D-04, .436014D-04, .206038D-04, .899074D-05,
1103 + .353340D-05, .122737D-05, .360954D-06, .845836D-07,
1104 + .142663D-07, .143114D-08, .556383D-10, .212997D-12,
1105 + .000000D+00, .119893D+06, .938572D+05, .726227D+05,
1106 + .561897D+05, .434762D+05, .336375D+05, .260260D+05,
1107 + .201358D+05, .155792D+05, .120531D+05, .932547D+04,
1108 + .721483D+04, .558218D+04, .431888D+04, .334172D+04,
1109 + .258564D+04, .200083D+04, .154835D+04, .119837D+04,
1110 + .927576D+03, .718137D+03, .556085D+03, .430741D+03,
1111 + .333750D+03, .258721D+03, .200657D+03, .155743D+03,
1112 + .120540D+03, .937351D+02, .729731D+02, .568947D+02,
1113 + .444323D+02, .347714D+02, .272941D+02, .214733D+02,
1114 + .169486D+02, .134280D+02, .106815D+02, .853479D+01 /
1115 DATA (UPDI(I),I=3953,4004) /
1116 + .684999D+01, .552536D+01, .447690D+01, .364347D+01,
1117 + .297689D+01, .244078D+01, .200667D+01, .165442D+01,
1118 + .136392D+01, .112624D+01, .928389D+00, .764865D+00,
1119 + .628808D+00, .515499D+00, .421094D+00, .342518D+00,
1120 + .277225D+00, .223127D+00, .178470D+00, .141781D+00,
1121 + .111796D+00, .874431D-01, .678004D-01, .520711D-01,
1122 + .396355D-01, .297875D-01, .221189D-01, .162119D-01,
1123 + .117152D-01, .833599D-02, .583179D-02, .400462D-02,
1124 + .269362D-02, .177045D-02, .113271D-02, .706452D-03,
1125 + .424469D-03, .245015D-03, .134641D-03, .694424D-04,
1126 + .328047D-04, .134324D-04, .406892D-05, .771110D-07,
1127 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1128 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
1129 DATA (UPDI(I),I=4005,4056) /
1130 + .163936D+06, .127714D+06, .982714D+05, .756075D+05,
1131 + .581700D+05, .447485D+05, .344234D+05, .264774D+05,
1132 + .203654D+05, .156624D+05, .120455D+05, .926275D+04,
1133 + .712296D+04, .547691D+04, .421139D+04, .323800D+04,
1134 + .248976D+04, .191431D+04, .147202D+04, .113192D+04,
1135 + .870552D+03, .669594D+03, .515169D+03, .396440D+03,
1136 + .305202D+03, .235056D+03, .181169D+03, .139211D+03,
1137 + .107482D+03, .830702D+02, .642973D+02, .498450D+02,
1138 + .387198D+02, .301680D+02, .235579D+02, .184548D+02,
1139 + .145122D+02, .114573D+02, .908650D+01, .723842D+01,
1140 + .579567D+01, .466147D+01, .376622D+01, .305511D+01,
1141 + .248730D+01, .203069D+01, .166289D+01, .136167D+01,
1142 + .111707D+01, .914908D+00, .749044D+00, .612023D+00 /
1143 DATA (UPDI(I),I=4057,4108) /
1144 + .498738D+00, .405019D+00, .327563D+00, .263639D+00,
1145 + .211032D+00, .167893D+00, .132682D+00, .104087D+00,
1146 + .810079D-01, .625075D-01, .477785D-01, .362023D-01,
1147 + .270861D-01, .200264D-01, .146178D-01, .105223D-01,
1148 + .746055D-02, .520278D-02, .356334D-02, .239234D-02,
1149 + .157134D-02, .100612D-02, .629614D-03, .381008D-03,
1150 + .222925D-03, .125476D-03, .675865D-04, .345773D-04,
1151 + .166639D-04, .748131D-05, .306553D-05, .112037D-05,
1152 + .347711D-06, .794411D-07, .653121D-08, .000000D+00,
1153 + .000000D+00, .000000D+00, .000000D+00, .219043D+06,
1154 + .169911D+06, .130092D+06, .995866D+05, .762299D+05,
1155 + .583394D+05, .446449D+05, .341581D+05, .261331D+05,
1156 + .199894D+05, .152892D+05, .116919D+05, .894061D+04 /
1157 DATA (UPDI(I),I=4109,4160) /
1158 + .683546D+04, .522586D+04, .399460D+04, .305345D+04,
1159 + .233371D+04, .178371D+04, .136320D+04, .104196D+04,
1160 + .796416D+03, .608867D+03, .465537D+03, .356073D+03,
1161 + .272432D+03, .208590D+03, .159191D+03, .122076D+03,
1162 + .937028D+02, .720262D+02, .554468D+02, .427685D+02,
1163 + .330869D+02, .256535D+02, .199526D+02, .155778D+02,
1164 + .122103D+02, .961445D+01, .760425D+01, .604550D+01,
1165 + .482817D+01, .387374D+01, .312067D+01, .252345D+01,
1166 + .204640D+01, .166480D+01, .135438D+01, .110410D+01,
1167 + .898652D+00, .731268D+00, .593941D+00, .481186D+00,
1168 + .388538D+00, .312481D+00, .250125D+00, .199141D+00,
1169 + .157599D+00, .123907D+00, .967123D-01, .748970D-01,
1170 + .575142D-01, .437536D-01, .330003D-01, .245790D-01 /
1171 DATA (UPDI(I),I=4161,4212) /
1172 + .180930D-01, .131507D-01, .942795D-02, .665931D-02,
1173 + .462788D-02, .315999D-02, .211641D-02, .138805D-02,
1174 + .888536D-03, .556996D-03, .338648D-03, .200022D-03,
1175 + .114495D-03, .634958D-04, .341103D-04, .178526D-04,
1176 + .917770D-05, .469337D-05, .242498D-05, .127196D-05,
1177 + .658564D-06, .320270D-06, .132626D-06, .368396D-07,
1178 + .246575D-08, .000000D+00, .185942D+06, .221788D+06,
1179 + .169041D+06, .128807D+06, .981379D+05, .747504D+05,
1180 + .569297D+05, .433454D+05, .329986D+05, .251147D+05,
1181 + .191122D+05, .145403D+05, .110608D+05, .841176D+04,
1182 + .639656D+04, .486292D+04, .369674D+04, .280959D+04,
1183 + .213529D+04, .162254D+04, .123298D+04, .936859D+03,
1184 + .711960D+03, .541062D+03, .411300D+03, .312726D+03 /
1185 DATA (UPDI(I),I=4213,4264) /
1186 + .237938D+03, .180416D+03, .137461D+03, .104822D+03,
1187 + .800422D+02, .612069D+02, .468938D+02, .360328D+02,
1188 + .277470D+02, .214329D+02, .166184D+02, .129362D+02,
1189 + .101159D+02, .794592D+01, .627404D+01, .497671D+01,
1190 + .396609D+01, .317382D+01, .254961D+01, .205423D+01,
1191 + .166058D+01, .134246D+01, .108768D+01, .879932D+00,
1192 + .711801D+00, .574775D+00, .463012D+00, .371778D+00,
1193 + .297368D+00, .236750D+00, .187498D+00, .147617D+00,
1194 + .115468D+00, .896759D-01, .691078D-01, .528144D-01,
1195 + .399881D-01, .300212D-01, .222585D-01, .163120D-01,
1196 + .118050D-01, .842808D-02, .592957D-02, .410559D-02,
1197 + .279408D-02, .186613D-02, .122146D-02, .781159D-03,
1198 + .490023D-03, .298865D-03, .177745D-03, .103022D-03 /
1199 DATA (UPDI(I),I=4265,4316) /
1200 + .583457D-04, .324001D-04, .178225D-04, .981087D-05,
1201 + .546042D-05, .308303D-05, .174409D-05, .950239D-06,
1202 + .472811D-06, .195328D-06, .530846D-07, .364500D-08,
1203 + .000000D+00, .391455D+06, .301119D+06, .228326D+06,
1204 + .173077D+06, .131169D+06, .993751D+05, .752713D+05,
1205 + .569942D+05, .431458D+05, .326508D+05, .247033D+05,
1206 + .186838D+05, .141281D+05, .106795D+05, .807111D+04,
1207 + .609777D+04, .460611D+04, .347826D+04, .262622D+04,
1208 + .198237D+04, .149629D+04, .112918D+04, .852160D+03,
1209 + .643057D+03, .485341D+03, .366348D+03, .276693D+03,
1210 + .208219D+03, .157445D+03, .119145D+03, .902743D+02,
1211 + .684916D+02, .520594D+02, .396839D+02, .303126D+02,
1212 + .232255D+02, .178620D+02, .137912D+02, .106967D+02 /
1213 DATA (UPDI(I),I=4317,4368) /
1214 + .833390D+01, .652721D+01, .513600D+01, .406041D+01,
1215 + .322373D+01, .256955D+01, .205440D+01, .164821D+01,
1216 + .132251D+01, .106371D+01, .854348D+00, .686235D+00,
1217 + .550301D+00, .440287D+00, .351179D+00, .279054D+00,
1218 + .220742D+00, .173714D+00, .135915D+00, .105664D+00,
1219 + .815662D-01, .624842D-01, .474727D-01, .357338D-01,
1220 + .266728D-01, .196614D-01, .143254D-01, .103069D-01,
1221 + .731514D-02, .511550D-02, .351977D-02, .237951D-02,
1222 + .157781D-02, .102443D-02, .648939D-03, .402392D-03,
1223 + .241752D-03, .140856D-03, .793008D-04, .430294D-04,
1224 + .224200D-04, .112120D-04, .538399D-05, .249214D-05,
1225 + .112542D-05, .505351D-06, .225265D-06, .985742D-07,
1226 + .387513D-07, .107066D-07, .673407D-09, .000000D+00 /
1227 DATA (UPDI(I),I=4369,4420) /
1228 + .523307D+06, .400870D+06, .302491D+06, .228170D+06,
1229 + .172061D+06, .129696D+06, .977330D+05, .736163D+05,
1230 + .554340D+05, .417247D+05, .313963D+05, .236144D+05,
1231 + .177559D+05, .133452D+05, .100271D+05, .753093D+04,
1232 + .565460D+04, .424405D+04, .318462D+04, .238879D+04,
1233 + .179154D+04, .134324D+04, .100703D+04, .754845D+03,
1234 + .565841D+03, .424162D+03, .318116D+03, .237668D+03,
1235 + .178418D+03, .134030D+03, .100800D+03, .759054D+02,
1236 + .572568D+02, .433129D+02, .328291D+02, .249583D+02,
1237 + .190447D+02, .145892D+02, .112269D+02, .867847D+01,
1238 + .674402D+01, .526540D+01, .413057D+01, .325437D+01,
1239 + .257434D+01, .204283D+01, .162686D+01, .129584D+01,
1240 + .103481D+01, .825246D+00, .658249D+00, .524250D+00 /
1241 DATA (UPDI(I),I=4421,4472) /
1242 + .416620D+00, .330102D+00, .260594D+00, .204815D+00,
1243 + .160158D+00, .124526D+00, .962126D-01, .738191D-01,
1244 + .562101D-01, .424535D-01, .317680D-01, .235755D-01,
1245 + .172783D-01, .125176D-01, .895593D-02, .632157D-02,
1246 + .439719D-02, .301008D-02, .202515D-02, .133699D-02,
1247 + .864862D-03, .546398D-03, .338435D-03, .203608D-03,
1248 + .119255D-03, .679139D-04, .376414D-04, .203438D-04,
1249 + .108005D-04, .568668D-05, .300061D-05, .160018D-05,
1250 + .857432D-06, .445766D-06, .213461D-06, .848960D-07,
1251 + .221328D-07, .152748D-08, .000000D+00, .687519D+06,
1252 + .524582D+06, .394013D+06, .295815D+06, .222012D+06,
1253 + .166541D+06, .124884D+06, .936007D+05, .701272D+05,
1254 + .525141D+05, .393095D+05, .294102D+05, .219953D+05 /
1255 DATA (UPDI(I),I=4473,4524) /
1256 + .164414D+05, .122852D+05, .917503D+04, .684972D+04,
1257 + .511122D+04, .381269D+04, .284277D+04, .211903D+04,
1258 + .157894D+04, .117629D+04, .876076D+03, .652447D+03,
1259 + .485847D+03, .361936D+03, .268538D+03, .200198D+03,
1260 + .149338D+03, .111514D+03, .833691D+02, .624281D+02,
1261 + .468781D+02, .352670D+02, .266111D+02, .201528D+02,
1262 + .153214D+02, .117009D+02, .897640D+01, .692280D+01,
1263 + .536429D+01, .417660D+01, .326617D+01, .256462D+01,
1264 + .202025D+01, .159729D+01, .126318D+01, .100165D+01,
1265 + .793233D+00, .628379D+00, .497083D+00, .392400D+00,
1266 + .308871D+00, .242254D+00, .189183D+00, .147001D+00,
1267 + .113583D+00, .872171D-01, .665099D-01, .503396D-01,
1268 + .377938D-01, .281138D-01, .207419D-01, .151132D-01 /
1269 DATA (UPDI(I),I=4525,4576) /
1270 + .108863D-01, .774468D-02, .543630D-02, .376100D-02,
1271 + .256124D-02, .171477D-02, .112709D-02, .726394D-03,
1272 + .457721D-03, .283232D-03, .170669D-03, .100512D-03,
1273 + .578990D-04, .327436D-04, .182783D-04, .101756D-04,
1274 + .570545D-05, .323788D-05, .185480D-05, .105156D-05,
1275 + .566302D-06, .274220D-06, .107996D-06, .274875D-07,
1276 + .194662D-08, .000000D+00, .889600D+06, .676197D+06,
1277 + .505631D+06, .377904D+06, .282323D+06, .210801D+06,
1278 + .157330D+06, .117356D+06, .874986D+05, .652001D+05,
1279 + .485618D+05, .361482D+05, .268952D+05, .199989D+05,
1280 + .148640D+05, .110410D+05, .819754D+04, .608285D+04,
1281 + .451175D+04, .334462D+04, .247851D+04, .183580D+04,
1282 + .135936D+04, .100620D+04, .744667D+03, .550986D+03 /
1283 DATA (UPDI(I),I=4577,4628) /
1284 + .407810D+03, .300562D+03, .222579D+03, .164912D+03,
1285 + .122300D+03, .907978D+02, .675125D+02, .503368D+02,
1286 + .375971D+02, .281641D+02, .211735D+02, .159797D+02,
1287 + .121141D+02, .922520D+01, .706250D+01, .543252D+01,
1288 + .419889D+01, .325983D+01, .254122D+01, .198753D+01,
1289 + .156035D+01, .122531D+01, .964909D+00, .758901D+00,
1290 + .597120D+00, .469207D+00, .367955D+00, .287747D+00,
1291 + .224234D+00, .173999D+00, .134352D+00, .103165D+00,
1292 + .787297D-01, .596722D-01, .448922D-01, .335031D-01,
1293 + .247742D-01, .181708D-01, .131625D-01, .942633D-02,
1294 + .666790D-02, .465437D-02, .320257D-02, .216962D-02,
1295 + .144552D-02, .945985D-03, .607488D-03, .381867D-03,
1296 + .236127D-03, .142561D-03, .844454D-04, .492010D-04 /
1297 DATA (UPDI(I),I=4629,4680) /
1298 + .283538D-04, .162781D-04, .940467D-05, .550584D-05,
1299 + .325989D-05, .193250D-05, .111814D-05, .605959D-06,
1300 + .291209D-06, .112404D-06, .278367D-07, .200852D-08,
1301 + .000000D+00, .113542D+07, .859885D+06, .640210D+06,
1302 + .476397D+06, .354328D+06, .263377D+06, .195673D+06,
1303 + .145282D+06, .107812D+06, .799548D+05, .592635D+05,
1304 + .438980D+05, .324987D+05, .240434D+05, .177782D+05,
1305 + .131368D+05, .970185D+04, .716032D+04, .528185D+04,
1306 + .389372D+04, .286909D+04, .211288D+04, .155539D+04,
1307 + .114445D+04, .841866D+03, .619069D+03, .455342D+03,
1308 + .333436D+03, .245335D+03, .180585D+03, .133036D+03,
1309 + .981060D+02, .724503D+02, .536482D+02, .397920D+02,
1310 + .295997D+02, .220958D+02, .165577D+02, .124630D+02 /
1311 DATA (UPDI(I),I=4681,4732) /
1312 + .942331D+01, .716279D+01, .547049D+01, .419824D+01,
1313 + .323632D+01, .250517D+01, .194565D+01, .151694D+01,
1314 + .118301D+01, .925280D+00, .722820D+00, .564943D+00,
1315 + .441000D+00, .343581D+00, .266955D+00, .206704D+00,
1316 + .159384D+00, .122298D+00, .933279D-01, .707856D-01,
1317 + .533252D-01, .398757D-01, .295819D-01, .217446D-01,
1318 + .158551D-01, .114177D-01, .812953D-02, .571783D-02,
1319 + .396895D-02, .271619D-02, .183064D-02, .121384D-02,
1320 + .791011D-03, .506254D-03, .317555D-03, .196300D-03,
1321 + .118803D-03, .708132D-04, .417332D-04, .244808D-04,
1322 + .144030D-04, .856956D-05, .517208D-05, .314233D-05,
1323 + .189475D-05, .110272D-05, .595070D-06, .281985D-06,
1324 + .106308D-06, .255882D-07, .187747D-08, .000000D+00 /
1325 DATA (UPDI(I),I=4733,4784) /
1326 + .143112D+07, .107997D+07, .800690D+06, .593281D+06,
1327 + .439361D+06, .325157D+06, .240502D+06, .177765D+06,
1328 + .131316D+06, .969352D+05, .715126D+05, .527191D+05,
1329 + .388405D+05, .285943D+05, .210379D+05, .154668D+05,
1330 + .113639D+05, .834318D+04, .612173D+04, .448853D+04,
1331 + .328925D+04, .240880D+04, .176318D+04, .128987D+04,
1332 + .943286D+03, .689511D+03, .504087D+03, .366833D+03,
1333 + .268225D+03, .196186D+03, .143601D+03, .105210D+03,
1334 + .771845D+02, .567744D+02, .418273D+02, .309028D+02,
1335 + .229107D+02, .170505D+02, .127454D+02, .957015D+01,
1336 + .722404D+01, .547910D+01, .417577D+01, .319684D+01,
1337 + .245763D+01, .189568D+01, .146798D+01, .113709D+01,
1338 + .883427D+00, .685536D+00, .532282D+00, .412803D+00 /
1339 DATA (UPDI(I),I=4785,4836) /
1340 + .319540D+00, .246691D+00, .189804D+00, .145435D+00,
1341 + .110901D+00, .841100D-01, .634044D-01, .474754D-01,
1342 + .352881D-01, .260227D-01, .190148D-01, .137833D-01,
1343 + .986772D-02, .698535D-02, .488520D-02, .337221D-02,
1344 + .229547D-02, .153925D-02, .101588D-02, .659342D-03,
1345 + .420682D-03, .263420D-03, .162868D-03, .988653D-04,
1346 + .593275D-04, .353681D-04, .210957D-04, .126787D-04,
1347 + .772139D-05, .476184D-05, .293857D-05, .178518D-05,
1348 + .103737D-05, .554611D-06, .258370D-06, .950085D-07,
1349 + .222289D-07, .165707D-08, .000000D+00, .178300D+07,
1350 + .134085D+07, .990026D+06, .730529D+06, .538727D+06,
1351 + .396996D+06, .292369D+06, .215156D+06, .158232D+06,
1352 + .116278D+06, .853908D+05, .626585D+05, .459462D+05 /
1353 DATA (UPDI(I),I=4837,4888) /
1354 + .336641D+05, .246479D+05, .180316D+05, .131822D+05,
1355 + .962899D+04, .702875D+04, .512657D+04, .373681D+04,
1356 + .272174D+04, .198129D+04, .144133D+04, .104806D+04,
1357 + .761661D+03, .553566D+03, .400406D+03, .291003D+03,
1358 + .211542D+03, .153878D+03, .112029D+03, .816620D+02,
1359 + .596812D+02, .436819D+02, .320606D+02, .236115D+02,
1360 + .174548D+02, .129602D+02, .966603D+01, .724727D+01,
1361 + .545967D+01, .413292D+01, .314275D+01, .239983D+01,
1362 + .183871D+01, .141441D+01, .108832D+01, .839986D+00,
1363 + .647555D+00, .499532D+00, .384915D+00, .296052D+00,
1364 + .227113D+00, .173644D+00, .132225D+00, .100205D+00,
1365 + .755325D-01, .565922D-01, .421191D-01, .311195D-01,
1366 + .228123D-01, .165703D-01, .119411D-01, .849907D-02 /
1367 DATA (UPDI(I),I=4889,4940) /
1368 + .598193D-02, .415991D-02, .285581D-02, .193373D-02,
1369 + .129028D-02, .847757D-03, .548147D-03, .348778D-03,
1370 + .218115D-03, .134958D-03, .822186D-04, .496945D-04,
1371 + .299660D-04, .181527D-04, .111120D-04, .689207D-05,
1372 + .431480D-05, .268621D-05, .163444D-05, .944272D-06,
1373 + .498724D-06, .228035D-06, .817469D-07, .186020D-07,
1374 + .140813D-08, .000000D+00, .219739D+07, .164690D+07,
1375 + .121111D+07, .890044D+06, .653662D+06, .479689D+06,
1376 + .351779D+06, .257770D+06, .188749D+06, .138095D+06,
1377 + .100960D+06, .737486D+05, .538302D+05, .392572D+05,
1378 + .286072D+05, .208279D+05, .151522D+05, .110134D+05,
1379 + .799891D+04, .580444D+04, .420899D+04, .304953D+04,
1380 + .220803D+04, .159754D+04, .115523D+04, .834822D+03 /
1381 DATA (UPDI(I),I=4941,4992) /
1382 + .603277D+03, .433802D+03, .313423D+03, .226484D+03,
1383 + .163751D+03, .118488D+03, .858352D+02, .623392D+02,
1384 + .453383D+02, .330638D+02, .241934D+02, .177692D+02,
1385 + .131076D+02, .971209D+01, .723406D+01, .541392D+01,
1386 + .407133D+01, .307557D+01, .233311D+01, .177586D+01,
1387 + .135717D+01, .103745D+01, .795552D+00, .609339D+00,
1388 + .467045D+00, .357596D+00, .273305D+00, .208349D+00,
1389 + .158307D+00, .119801D+00, .902336D-01, .676020D-01,
1390 + .503441D-01, .372440D-01, .273536D-01, .199332D-01,
1391 + .143937D-01, .103122D-01, .729723D-02, .510679D-02,
1392 + .353155D-02, .241136D-02, .162438D-02, .107869D-02,
1393 + .705722D-03, .454723D-03, .288656D-03, .180376D-03,
1394 + .111756D-03, .683684D-04, .416373D-04, .253906D-04 /
1395 DATA (UPDI(I),I=4993,5044) /
1396 + .156011D-04, .969979D-05, .610139D-05, .385833D-05,
1397 + .241162D-05, .146392D-05, .838549D-06, .436744D-06,
1398 + .195812D-06, .684221D-07, .151549D-07, .116449D-08,
1399 + .000000D+00, .268050D+07, .200235D+07, .146672D+07,
1400 + .107361D+07, .785302D+06, .573947D+06, .419165D+06,
1401 + .305865D+06, .223017D+06, .162466D+06, .118261D+06,
1402 + .860051D+05, .624953D+05, .453695D+05, .329089D+05,
1403 + .238478D+05, .172669D+05, .124899D+05, .902693D+04,
1404 + .651788D+04, .470247D+04, .338960D+04, .244148D+04,
1405 + .175710D+04, .126379D+04, .908265D+03, .652709D+03,
1406 + .466669D+03, .335245D+03, .240852D+03, .173117D+03,
1407 + .124521D+03, .896627D+02, .647238D+02, .467829D+02,
1408 + .339057D+02, .246541D+02, .179936D+02, .131891D+02 /
1409 DATA (UPDI(I),I=5045,5096) /
1410 + .971025D+01, .718648D+01, .534384D+01, .399282D+01,
1411 + .299688D+01, .225879D+01, .170823D+01, .129713D+01,
1412 + .985192D+00, .750669D+00, .571300D+00, .435122D+00,
1413 + .331062D+00, .251446D+00, .190496D+00, .143849D+00,
1414 + .108192D+00, .809940D-01, .603129D-01, .446458D-01,
1415 + .328315D-01, .239700D-01, .173648D-01, .124656D-01,
1416 + .887919D-02, .624717D-02, .434730D-02, .298984D-02,
1417 + .203068D-02, .136110D-02, .899704D-03, .586270D-03,
1418 + .376569D-03, .238588D-03, .149050D-03, .925244D-04,
1419 + .568700D-04, .349063D-04, .215174D-04, .133915D-04,
1420 + .843432D-05, .536126D-05, .341112D-05, .213307D-05,
1421 + .128824D-05, .730266D-06, .374629D-06, .164599D-06,
1422 + .560666D-07, .120976D-07, .943307D-09, .000000D+00 /
1423 DATA (UPDI(I),I=5097,5148) /
1424 + .448666D+05, .671640D+05, .522999D+05, .407255D+05,
1425 + .317127D+05, .246945D+05, .192296D+05, .149742D+05,
1426 + .116605D+05, .908025D+04, .707105D+04, .550652D+04,
1427 + .428825D+04, .333961D+04, .260092D+04, .202571D+04,
1428 + .157780D+04, .122902D+04, .957427D+03, .745934D+03,
1429 + .581242D+03, .452990D+03, .353113D+03, .275330D+03,
1430 + .214751D+03, .167568D+03, .130815D+03, .101825D+03,
1431 + .796029D+02, .622825D+02, .487789D+02, .382472D+02,
1432 + .300295D+02, .236304D+02, .186166D+02, .146964D+02,
1433 + .116272D+02, .922015D+01, .732834D+01, .583717D+01,
1434 + .466013D+01, .372653D+01, .298387D+01, .239108D+01,
1435 + .191639D+01, .153521D+01, .122946D+01, .981418D+00,
1436 + .782476D+00, .620965D+00, .491281D+00, .386916D+00 /
1437 DATA (UPDI(I),I=5149,5200) /
1438 + .303152D+00, .236151D+00, .182784D+00, .140487D+00,
1439 + .107155D+00, .810577D-01, .607705D-01, .451240D-01,
1440 + .331597D-01, .240959D-01, .172985D-01, .122760D-01,
1441 + .857052D-02, .589099D-02, .398066D-02, .263976D-02,
1442 + .171453D-02, .108813D-02, .672897D-03, .404085D-03,
1443 + .234567D-03, .130826D-03, .700362D-04, .353229D-04,
1444 + .166226D-04, .713749D-05, .268402D-05, .802209D-06,
1445 + .125292D-06, .000000D+00, .000000D+00, .000000D+00,
1446 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1447 + .000000D+00, .000000D+00, .000000D+00, .119866D+06,
1448 + .938327D+05, .726008D+05, .561700D+05, .434586D+05,
1449 + .336217D+05, .260118D+05, .201231D+05, .155677D+05,
1450 + .120429D+05, .931629D+04, .720660D+04, .557479D+04 /
1451 DATA (UPDI(I),I=5201,5252) /
1452 + .431226D+04, .333577D+04, .258030D+04, .199604D+04,
1453 + .154404D+04, .119450D+04, .924101D+03, .715012D+03,
1454 + .553273D+03, .428207D+03, .331466D+03, .256658D+03,
1455 + .198792D+03, .154054D+03, .119008D+03, .923409D+02,
1456 + .717005D+02, .557292D+02, .433611D+02, .337828D+02,
1457 + .263778D+02, .206203D+02, .161513D+02, .126795D+02,
1458 + .997644D+01, .786878D+01, .621980D+01, .492863D+01,
1459 + .391225D+01, .311021D+01, .247492D+01, .197034D+01,
1460 + .156820D+01, .124822D+01, .990484D+00, .785401D+00,
1461 + .620044D+00, .488212D+00, .382797D+00, .298736D+00,
1462 + .231887D+00, .178943D+00, .137186D+00, .104434D+00,
1463 + .788919D-01, .591128D-01, .439005D-01, .322981D-01,
1464 + .235224D-01, .169453D-01, .120855D-01, .849472D-02 /
1465 DATA (UPDI(I),I=5253,5304) /
1466 + .588983D-02, .402464D-02, .270659D-02, .178932D-02,
1467 + .116047D-02, .737196D-03, .457162D-03, .275972D-03,
1468 + .160818D-03, .904371D-04, .477580D-04, .230353D-04,
1469 + .925062D-05, .200673D-05, .000000D+00, .000000D+00,
1470 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1471 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1472 + .000000D+00, .000000D+00, .163907D+06, .127688D+06,
1473 + .982475D+05, .755861D+05, .581508D+05, .447313D+05,
1474 + .344080D+05, .264635D+05, .203530D+05, .156513D+05,
1475 + .120355D+05, .925380D+04, .711494D+04, .546972D+04,
1476 + .420493D+04, .323221D+04, .248455D+04, .190964D+04,
1477 + .146782D+04, .112815D+04, .867163D+03, .666545D+03,
1478 + .512423D+03, .393965D+03, .302968D+03, .233037D+03 /
1479 DATA (UPDI(I),I=5305,5356) /
1480 + .179342D+03, .137556D+03, .105977D+03, .816983D+02,
1481 + .630428D+02, .486943D+02, .376604D+02, .291889D+02,
1482 + .226496D+02, .176090D+02, .137217D+02, .107165D+02,
1483 + .839054D+01, .658380D+01, .517971D+01, .408250D+01,
1484 + .322318D+01, .254752D+01, .201496D+01, .159359D+01,
1485 + .126083D+01, .994655D+00, .784416D+00, .616033D+00,
1486 + .482694D+00, .376743D+00, .292778D+00, .226389D+00,
1487 + .174101D+00, .133069D+00, .101038D+00, .761662D-01,
1488 + .569841D-01, .422803D-01, .311006D-01, .226647D-01,
1489 + .163533D-01, .116950D-01, .825397D-02, .575524D-02,
1490 + .396298D-02, .269223D-02, .180387D-02, .119050D-02,
1491 + .773948D-03, .494869D-03, .311315D-03, .192013D-03,
1492 + .117026D-03, .696937D-04, .407999D-04, .233592D-04 /
1493 DATA (UPDI(I),I=5357,5408) /
1494 + .131000D-04, .712626D-05, .375761D-05, .188288D-05,
1495 + .883901D-06, .369689D-06, .129659D-06, .289890D-07,
1496 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1497 + .000000D+00, .219011D+06, .169882D+06, .130066D+06,
1498 + .995635D+05, .762091D+05, .583207D+05, .446282D+05,
1499 + .341431D+05, .261196D+05, .199774D+05, .152784D+05,
1500 + .116822D+05, .893194D+04, .682768D+04, .521888D+04,
1501 + .398834D+04, .304784D+04, .232867D+04, .177918D+04,
1502 + .135913D+04, .103831D+04, .793128D+03, .605907D+03,
1503 + .462870D+03, .353668D+03, .270260D+03, .206625D+03,
1504 + .157414D+03, .120462D+03, .922330D+02, .706846D+02,
1505 + .542187D+02, .416405D+02, .320472D+02, .246921D+02,
1506 + .190608D+02, .147478D+02, .114361D+02, .889090D+01 /
1507 DATA (UPDI(I),I=5409,5460) /
1508 + .692751D+01, .541251D+01, .423692D+01, .332277D+01,
1509 + .260909D+01, .205061D+01, .161180D+01, .126773D+01,
1510 + .994371D+00, .779956D+00, .609345D+00, .475113D+00,
1511 + .369107D+00, .285603D+00, .219952D+00, .168527D+00,
1512 + .128376D+00, .971820D-01, .730673D-01, .545471D-01,
1513 + .404027D-01, .296851D-01, .216210D-01, .156019D-01,
1514 + .111675D-01, .789591D-02, .552111D-02, .381740D-02,
1515 + .260791D-02, .176055D-02, .117332D-02, .772541D-03,
1516 + .502126D-03, .322609D-03, .204494D-03, .129083D-03,
1517 + .804977D-04, .500549D-04, .310168D-04, .192949D-04,
1518 + .120177D-04, .755506D-05, .475053D-05, .298514D-05,
1519 + .184318D-05, .110488D-05, .620350D-06, .314002D-06,
1520 + .132011D-06, .368158D-07, .246565D-08, .000000D+00 /
1521 DATA (UPDI(I),I=5461,5512) /
1522 + .185872D+06, .221756D+06, .169014D+06, .128782D+06,
1523 + .981154D+05, .747303D+05, .569117D+05, .433293D+05,
1524 + .329842D+05, .251018D+05, .191005D+05, .145298D+05,
1525 + .110515D+05, .840339D+04, .638906D+04, .485619D+04,
1526 + .369071D+04, .280417D+04, .213043D+04, .161817D+04,
1527 + .122905D+04, .933331D+03, .708785D+03, .538203D+03,
1528 + .408723D+03, .310401D+03, .235837D+03, .178516D+03,
1529 + .135737D+03, .103256D+03, .786147D+02, .599028D+02,
1530 + .456989D+02, .349345D+02, .267346D+02, .204971D+02,
1531 + .157511D+02, .121309D+02, .936697D+01, .724914D+01,
1532 + .562601D+01, .437503D+01, .340886D+01, .265972D+01,
1533 + .207751D+01, .162313D+01, .126926D+01, .989954D+00,
1534 + .772332D+00, .600265D+00, .465732D+00, .360126D+00 /
1535 DATA (UPDI(I),I=5513,5564) /
1536 + .277422D+00, .212763D+00, .162386D+00, .123252D+00,
1537 + .929942D-01, .697094D-01, .519028D-01, .383566D-01,
1538 + .281295D-01, .204594D-01, .147503D-01, .105543D-01,
1539 + .746455D-02, .522477D-02, .361932D-02, .247975D-02,
1540 + .168093D-02, .112650D-02, .747154D-03, .490236D-03,
1541 + .318784D-03, .205201D-03, .132000D-03, .842941D-04,
1542 + .539469D-04, .345993D-04, .223868D-04, .145666D-04,
1543 + .957992D-05, .629802D-05, .411795D-05, .263037D-05,
1544 + .161552D-05, .921161D-06, .468099D-06, .194870D-06,
1545 + .530670D-07, .364492D-08, .000000D+00, .391417D+06,
1546 + .301085D+06, .228296D+06, .173050D+06, .131145D+06,
1547 + .993531D+05, .752517D+05, .569766D+05, .431300D+05,
1548 + .326367D+05, .246906D+05, .186724D+05, .141179D+05 /
1549 DATA (UPDI(I),I=5565,5616) /
1550 + .106704D+05, .806294D+04, .609045D+04, .459954D+04,
1551 + .347237D+04, .262093D+04, .197763D+04, .149202D+04,
1552 + .112535D+04, .848718D+03, .639960D+03, .482552D+03,
1553 + .363833D+03, .274422D+03, .206169D+03, .155589D+03,
1554 + .117461D+03, .887429D+02, .670961D+02, .507844D+02,
1555 + .385159D+02, .292401D+02, .222384D+02, .169516D+02,
1556 + .129504D+02, .991932D+01, .761525D+01, .586332D+01,
1557 + .452391D+01, .349768D+01, .270842D+01, .209994D+01,
1558 + .162886D+01, .126489D+01, .979862D+00, .759503D+00,
1559 + .586592D+00, .452391D+00, .347806D+00, .266467D+00,
1560 + .203304D+00, .154406D+00, .116654D+00, .876347D-01,
1561 + .654281D-01, .485341D-01, .357458D-01, .261346D-01,
1562 + .189572D-01, .136342D-01, .973538D-02, .687251D-02 /
1563 DATA (UPDI(I),I=5617,5668) /
1564 + .480245D-02, .332153D-02, .227201D-02, .153699D-02,
1565 + .102717D-02, .678371D-03, .442138D-03, .284488D-03,
1566 + .180186D-03, .113120D-03, .696858D-04, .423530D-04,
1567 + .252952D-04, .148855D-04, .858407D-05, .487651D-05,
1568 + .270987D-05, .148082D-05, .788094D-06, .410653D-06,
1569 + .204100D-06, .951859D-07, .384258D-07, .106941D-07,
1570 + .673344D-09, .000000D+00, .523266D+06, .400833D+06,
1571 + .302458D+06, .228140D+06, .172034D+06, .129672D+06,
1572 + .977116D+05, .735972D+05, .554169D+05, .417094D+05,
1573 + .313825D+05, .236020D+05, .177449D+05, .133353D+05,
1574 + .100183D+05, .752298D+04, .564747D+04, .423767D+04,
1575 + .317889D+04, .238365D+04, .178693D+04, .133910D+04,
1576 + .100331D+04, .751502D+03, .562833D+03, .421452D+03 /
1577 DATA (UPDI(I),I=5669,5720) /
1578 + .315674D+03, .235466D+03, .176427D+03, .132227D+03,
1579 + .991650D+02, .744190D+02, .559028D+02, .420767D+02,
1580 + .316982D+02, .239220D+02, .180935D+02, .137153D+02,
1581 + .104235D+02, .794040D+01, .606663D+01, .464514D+01,
1582 + .356437D+01, .273967D+01, .210876D+01, .162409D+01,
1583 + .125250D+01, .963718D+00, .742135D+00, .569554D+00,
1584 + .436575D+00, .333680D+00, .254203D+00, .192900D+00,
1585 + .145746D+00, .109569D+00, .819254D-01, .608945D-01,
1586 + .449824D-01, .330011D-01, .240410D-01, .173816D-01,
1587 + .124638D-01, .887645D-02, .625205D-02, .436102D-02,
1588 + .301230D-02, .205908D-02, .139296D-02, .931778D-03,
1589 + .616618D-03, .403316D-03, .260906D-03, .166642D-03,
1590 + .105868D-03, .663671D-04, .413349D-04, .255589D-04 /
1591 DATA (UPDI(I),I=5721,5772) /
1592 + .157674D-04, .969145D-05, .597195D-05, .367010D-05,
1593 + .224670D-05, .135174D-05, .788599D-06, .430589D-06,
1594 + .211066D-06, .846687D-07, .221241D-07, .152743D-08,
1595 + .000000D+00, .687474D+06, .524541D+06, .393977D+06,
1596 + .295783D+06, .221983D+06, .166515D+06, .124861D+06,
1597 + .935799D+05, .701086D+05, .524974D+05, .392945D+05,
1598 + .293968D+05, .219833D+05, .164307D+05, .122756D+05,
1599 + .916643D+04, .684202D+04, .510432D+04, .380651D+04,
1600 + .283723D+04, .211406D+04, .157448D+04, .117228D+04,
1601 + .872480D+03, .649215D+03, .482939D+03, .359318D+03,
1602 + .266182D+03, .198072D+03, .147416D+03, .109775D+03,
1603 + .817924D+02, .609961D+02, .455751D+02, .340796D+02,
1604 + .255277D+02, .191630D+02, .144168D+02, .108741D+02 /
1605 DATA (UPDI(I),I=5773,5824) /
1606 + .822133D+01, .623424D+01, .473804D+01, .360891D+01,
1607 + .275381D+01, .210452D+01, .160949D+01, .123277D+01,
1608 + .942190D+00, .720852D+00, .549717D+00, .418787D+00,
1609 + .318187D+00, .241010D+00, .181877D+00, .136683D+00,
1610 + .102228D+00, .760595D-01, .562681D-01, .413775D-01,
1611 + .302269D-01, .219311D-01, .157964D-01, .112871D-01,
1612 + .801230D-02, .562664D-02, .391458D-02, .269801D-02,
1613 + .184115D-02, .124418D-02, .832020D-03, .550981D-03,
1614 + .361121D-03, .234485D-03, .150729D-03, .966615D-04,
1615 + .614463D-04, .390111D-04, .247566D-04, .157817D-04,
1616 + .100962D-04, .650427D-05, .418844D-05, .267726D-05,
1617 + .167230D-05, .100166D-05, .555449D-06, .272531D-06,
1618 + .107838D-06, .274815D-07, .194659D-08, .000000D+00 /
1619 DATA (UPDI(I),I=5825,5876) /
1620 + .889552D+06, .676153D+06, .505592D+06, .377869D+06,
1621 + .282292D+06, .210773D+06, .157305D+06, .117333D+06,
1622 + .874785D+05, .651821D+05, .485457D+05, .361338D+05,
1623 + .268823D+05, .199874D+05, .148537D+05, .110317D+05,
1624 + .818923D+04, .607541D+04, .450509D+04, .333865D+04,
1625 + .247316D+04, .183101D+04, .135507D+04, .100234D+04,
1626 + .741205D+03, .547875D+03, .405014D+03, .298050D+03,
1627 + .220316D+03, .162871D+03, .120457D+03, .891316D+02,
1628 + .660038D+02, .489687D+02, .363552D+02, .270358D+02,
1629 + .201476D+02, .150469D+02, .112663D+02, .845555D+01,
1630 + .636508D+01, .480240D+01, .363161D+01, .275144D+01,
1631 + .208797D+01, .158582D+01, .120645D+01, .915946D+00,
1632 + .696250D+00, .527596D+00, .399464D+00, .301694D+00 /
1633 DATA (UPDI(I),I=5877,5928) /
1634 + .227191D+00, .170484D+00, .127421D+00, .947970D-01,
1635 + .701703D-01, .516559D-01, .378055D-01, .274921D-01,
1636 + .198601D-01, .142458D-01, .101390D-01, .717077D-02,
1637 + .501828D-02, .348042D-02, .239216D-02, .162870D-02,
1638 + .109870D-02, .734019D-03, .486066D-03, .318979D-03,
1639 + .207733D-03, .134255D-03, .867945D-04, .558342D-04,
1640 + .360158D-04, .233275D-04, .152316D-04, .100083D-04,
1641 + .661986D-05, .436737D-05, .284398D-05, .179875D-05,
1642 + .108204D-05, .598215D-06, .290021D-06, .112294D-06,
1643 + .278325D-07, .200850D-08, .000000D+00, .113537D+07,
1644 + .859838D+06, .640168D+06, .476359D+06, .354294D+06,
1645 + .263347D+06, .195646D+06, .145258D+06, .107791D+06,
1646 + .799353D+05, .592461D+05, .438824D+05, .324847D+05 /
1647 DATA (UPDI(I),I=5929,5980) /
1648 + .240309D+05, .177670D+05, .131268D+05, .969292D+04,
1649 + .715233D+04, .527470D+04, .388731D+04, .286336D+04,
1650 + .210774D+04, .155079D+04, .114033D+04, .838169D+03,
1651 + .615752D+03, .452364D+03, .330765D+03, .242934D+03,
1652 + .178425D+03, .131089D+03, .963513D+02, .708664D+02,
1653 + .522169D+02, .384978D+02, .284289D+02, .210363D+02,
1654 + .155993D+02, .115967D+02, .864152D+01, .645879D+01,
1655 + .483857D+01, .363319D+01, .273344D+01, .206001D+01,
1656 + .155394D+01, .117432D+01, .885683D+00, .668925D+00,
1657 + .503692D+00, .379021D+00, .284539D+00, .213019D+00,
1658 + .158940D+00, .118134D+00, .874138D-01, .643662D-01,
1659 + .471429D-01, .343328D-01, .248483D-01, .178682D-01,
1660 + .127609D-01, .904394D-02, .637074D-02, .444157D-02 /
1661 DATA (UPDI(I),I=5981,6032) /
1662 + .306975D-02, .210334D-02, .142826D-02, .961465D-03,
1663 + .641486D-03, .424636D-03, .278931D-03, .182135D-03,
1664 + .118299D-03, .770519D-04, .501018D-04, .327672D-04,
1665 + .215828D-04, .143536D-04, .961030D-05, .646236D-05,
1666 + .431980D-05, .283454D-05, .179698D-05, .107668D-05,
1667 + .589558D-06, .281151D-06, .106232D-06, .255853D-07,
1668 + .187745D-08, .000000D+00, .143107D+07, .107992D+07,
1669 + .800644D+06, .593241D+06, .439325D+06, .325124D+06,
1670 + .240473D+06, .177738D+06, .131293D+06, .969143D+05,
1671 + .714939D+05, .527024D+05, .388255D+05, .285809D+05,
1672 + .210259D+05, .154561D+05, .113543D+05, .833460D+04,
1673 + .611406D+04, .448167D+04, .328311D+04, .240330D+04,
1674 + .175827D+04, .128547D+04, .939348D+03, .685983D+03 /
1675 DATA (UPDI(I),I=6033,6084) /
1676 + .500925D+03, .364002D+03, .265685D+03, .193906D+03,
1677 + .141553D+03, .103368D+03, .755272D+02, .552820D+02,
1678 + .404831D+02, .296919D+02, .218202D+02, .160690D+02,
1679 + .118631D+02, .877864D+01, .651570D+01, .484738D+01,
1680 + .361469D+01, .270091D+01, .202170D+01, .151481D+01,
1681 + .113721D+01, .852103D+00, .639462D+00, .478483D+00,
1682 + .357842D+00, .267029D+00, .198737D+00, .147433D+00,
1683 + .108967D+00, .801904D-01, .587329D-01, .427942D-01,
1684 + .310086D-01, .223328D-01, .159835D-01, .113629D-01,
1685 + .801776D-02, .562421D-02, .390549D-02, .268934D-02,
1686 + .183659D-02, .124359D-02, .835267D-03, .556484D-03,
1687 + .368207D-03, .242089D-03, .158500D-03, .103454D-03,
1688 + .678687D-04, .445729D-04, .295108D-04, .197131D-04 /
1689 DATA (UPDI(I),I=6085,6136) /
1690 + .132991D-04, .902418D-05, .613089D-05, .412541D-05,
1691 + .271137D-05, .171388D-05, .101863D-05, .550697D-06,
1692 + .257785D-06, .949558D-07, .222269D-07, .165705D-08,
1693 + .000000D+00, .178294D+07, .134080D+07, .989977D+06,
1694 + .730485D+06, .538687D+06, .396961D+06, .292338D+06,
1695 + .215128D+06, .158206D+06, .116256D+06, .853707D+05,
1696 + .626405D+05, .459300D+05, .336497D+05, .246350D+05,
1697 + .180201D+05, .131719D+05, .961981D+04, .702054D+04,
1698 + .511924D+04, .373025D+04, .271589D+04, .197606D+04,
1699 + .143665D+04, .104388D+04, .757919D+03, .550218D+03,
1700 + .397414D+03, .288324D+03, .209143D+03, .151727D+03,
1701 + .110101D+03, .799332D+02, .581300D+02, .422902D+02,
1702 + .308125D+02, .224926D+02, .164530D+02, .120645D+02 /
1703 DATA (UPDI(I),I=6137,6188) /
1704 + .886720D+01, .653677D+01, .483009D+01, .357744D+01,
1705 + .265512D+01, .197417D+01, .146942D+01, .109596D+01,
1706 + .815896D+00, .608420D+00, .452413D+00, .336277D+00,
1707 + .249434D+00, .184551D+00, .136122D+00, .100040D+00,
1708 + .732152D-01, .533355D-01, .386575D-01, .278676D-01,
1709 + .199708D-01, .142240D-01, .100649D-01, .706984D-02,
1710 + .493790D-02, .341489D-02, .234264D-02, .159440D-02,
1711 + .107648D-02, .721395D-03, .479947D-03, .317459D-03,
1712 + .208948D-03, .137193D-03, .899944D-04, .594571D-04,
1713 + .394159D-04, .263838D-04, .178333D-04, .121652D-04,
1714 + .833228D-05, .569458D-05, .384075D-05, .251892D-05,
1715 + .158258D-05, .930811D-06, .495951D-06, .227626D-06,
1716 + .817106D-07, .186007D-07, .140812D-08, .000000D+00 /
1717 DATA (UPDI(I),I=6189,6240) /
1718 + .219733D+07, .164684D+07, .121106D+07, .889996D+06,
1719 + .653620D+06, .479651D+06, .351745D+06, .257739D+06,
1720 + .188722D+06, .138071D+06, .100939D+06, .737293D+05,
1721 + .538130D+05, .392418D+05, .285934D+05, .208156D+05,
1722 + .151413D+05, .110036D+05, .799016D+04, .579663D+04,
1723 + .420201D+04, .304330D+04, .220247D+04, .159258D+04,
1724 + .115080D+04, .830861D+03, .599741D+03, .430648D+03,
1725 + .310605D+03, .223966D+03, .161501D+03, .116477D+03,
1726 + .840372D+02, .607317D+02, .439019D+02, .317811D+02,
1727 + .230490D+02, .167497D+02, .122012D+02, .890835D+01,
1728 + .652354D+01, .478832D+01, .352300D+01, .259747D+01,
1729 + .191863D+01, .141878D+01, .105140D+01, .777722D+00,
1730 + .576320D+00, .425888D+00, .314636D+00, .231988D+00 /
1731 DATA (UPDI(I),I=6241,6292) /
1732 + .170637D+00, .125135D+00, .914455D-01, .665549D-01,
1733 + .482210D-01, .347657D-01, .249324D-01, .177775D-01,
1734 + .125999D-01, .887363D-02, .620451D-02, .431461D-02,
1735 + .297151D-02, .203075D-02, .137745D-02, .927359D-03,
1736 + .620121D-03, .412058D-03, .272523D-03, .179614D-03,
1737 + .118301D-03, .780003D-04, .518926D-04, .347044D-04,
1738 + .234567D-04, .160104D-04, .110141D-04, .759074D-05,
1739 + .520203D-05, .350612D-05, .228875D-05, .142629D-05,
1740 + .828906D-06, .434784D-06, .195527D-06, .683971D-07,
1741 + .151540D-07, .116448D-08, .000000D+00, .268043D+07,
1742 + .200229D+07, .146666D+07, .107356D+07, .785256D+06,
1743 + .573906D+06, .419129D+06, .305832D+06, .222988D+06,
1744 + .162441D+06, .118238D+06, .859844D+05, .624768D+05 /
1745 DATA (UPDI(I),I=6293,6344) /
1746 + .453530D+05, .328942D+05, .238347D+05, .172551D+05,
1747 + .124795D+05, .901760D+04, .650956D+04, .469505D+04,
1748 + .338298D+04, .243558D+04, .175184D+04, .125910D+04,
1749 + .904084D+03, .648982D+03, .463353D+03, .332288D+03,
1750 + .238217D+03, .170769D+03, .122429D+03, .877981D+02,
1751 + .630628D+02, .453047D+02, .325914D+02, .234871D+02,
1752 + .169592D+02, .122745D+02, .890392D+01, .647800D+01,
1753 + .472399D+01, .345308D+01, .252942D+01, .185631D+01,
1754 + .136388D+01, .100431D+01, .738201D+00, .543640D+00,
1755 + .399267D+00, .293187D+00, .214890D+00, .157136D+00,
1756 + .114572D+00, .832535D-01, .602571D-01, .434212D-01,
1757 + .311390D-01, .222156D-01, .157602D-01, .111152D-01,
1758 + .779085D-02, .542239D-02, .375425D-02, .257494D-02 /
1759 DATA (UPDI(I),I=6345,6396) /
1760 + .175312D-02, .118520D-02, .795756D-03, .531063D-03,
1761 + .352525D-03, .233191D-03, .153948D-03, .101743D-03,
1762 + .674364D-04, .451708D-04, .304557D-04, .207604D-04,
1763 + .142827D-04, .988596D-05, .683799D-05, .468745D-05,
1764 + .315007D-05, .204304D-05, .126100D-05, .723375D-06,
1765 + .373248D-06, .164402D-06, .560494D-07, .120970D-07,
1766 + .943302D-09, .000000D+00, .154639D+07, .120297D+07,
1767 + .924168D+06, .709984D+06, .545442D+06, .419036D+06,
1768 + .321927D+06, .247325D+06, .190013D+06, .145984D+06,
1769 + .112159D+06, .861734D+05, .662101D+05, .508733D+05,
1770 + .390906D+05, .300384D+05, .230839D+05, .177408D+05,
1771 + .136357D+05, .104816D+05, .805825D+04, .619622D+04,
1772 + .476543D+04, .366595D+04, .282102D+04, .217164D+04 /
1773 DATA (UPDI(I),I=6397,6448) /
1774 + .167252D+04, .128408D+04, .990295D+03, .764356D+03,
1775 + .590554D+03, .456822D+03, .353886D+03, .274830D+03,
1776 + .213754D+03, .166685D+03, .130376D+03, .102335D+03,
1777 + .806442D+02, .638266D+02, .507748D+02, .405986D+02,
1778 + .326404D+02, .263913D+02, .214614D+02, .175525D+02,
1779 + .144464D+02, .119390D+02, .992733D+01, .828297D+01,
1780 + .694376D+01, .584165D+01, .492904D+01, .416880D+01,
1781 + .353194D+01, .299569D+01, .254209D+01, .215687D+01,
1782 + .182866D+01, .154829D+01, .130831D+01, .110267D+01,
1783 + .926353D+00, .775854D+00, .646165D+00, .535337D+00,
1784 + .440864D+00, .360601D+00, .292693D+00, .235529D+00,
1785 + .187699D+00, .147960D+00, .115193D+00, .884088D-01,
1786 + .669450D-01, .497056D-01, .361639D-01, .257011D-01 /
1787 DATA (UPDI(I),I=6449,6500) /
1788 + .177722D-01, .118993D-01, .766597D-02, .471728D-02,
1789 + .273255D-02, .147384D-02, .721886D-03, .309964D-03,
1790 + .109981D-03, .288639D-04, .436888D-05, .172087D-06,
1791 + .000000D+00, .240317D+07, .186447D+07, .142772D+07,
1792 + .109293D+07, .836649D+06, .640255D+06, .489961D+06,
1793 + .374819D+06, .286731D+06, .219268D+06, .167673D+06,
1794 + .128172D+06, .979736D+05, .748618D+05, .571997D+05,
1795 + .436879D+05, .333665D+05, .254738D+05, .194475D+05,
1796 + .148413D+05, .113260D+05, .864037D+04, .659181D+04,
1797 + .502755D+04, .383492D+04, .292459D+04, .223092D+04,
1798 + .169538D+04, .129404D+04, .987975D+03, .754883D+03,
1799 + .577175D+03, .441852D+03, .338944D+03, .260347D+03,
1800 + .200416D+03, .154738D+03, .119854D+03, .932047D+02 /
1801 DATA (UPDI(I),I=6501,6552) /
1802 + .727803D+02, .571283D+02, .450673D+02, .357537D+02,
1803 + .285255D+02, .228942D+02, .184799D+02, .150150D+02,
1804 + .122497D+02, .100573D+02, .828567D+01, .685970D+01,
1805 + .569962D+01, .475024D+01, .396858D+01, .332152D+01,
1806 + .278321D+01, .233337D+01, .195607D+01, .163856D+01,
1807 + .137078D+01, .114449D+01, .953136D+00, .791122D+00,
1808 + .654671D+00, .538629D+00, .440817D+00, .358555D+00,
1809 + .289637D+00, .232127D+00, .184405D+00, .145034D+00,
1810 + .112804D+00, .866309D-01, .655539D-01, .489222D-01,
1811 + .357801D-01, .256242D-01, .179141D-01, .121736D-01,
1812 + .800331D-02, .505479D-02, .304598D-02, .172392D-02,
1813 + .906723D-03, .431634D-03, .179544D-03, .613714D-04,
1814 + .154413D-04, .225090D-05, .901006D-07, .000000D+00 /
1815 DATA (UPDI(I),I=6553,6604) /
1816 + .356326D+07, .275505D+07, .210122D+07, .160178D+07,
1817 + .122096D+07, .930204D+06, .708621D+06, .539536D+06,
1818 + .410748D+06, .312529D+06, .237763D+06, .180779D+06,
1819 + .137430D+06, .104412D+06, .793130D+05, .602097D+05,
1820 + .456987D+05, .346628D+05, .262867D+05, .199218D+05,
1821 + .150951D+05, .114305D+05, .865419D+04, .654833D+04,
1822 + .495437D+04, .374627D+04, .283291D+04, .213322D+04,
1823 + .161317D+04, .121982D+04, .922876D+03, .698467D+03,
1824 + .529159D+03, .401596D+03, .305120D+03, .232273D+03,
1825 + .177317D+03, .135772D+03, .104369D+03, .805507D+02,
1826 + .624924D+02, .487232D+02, .382042D+02, .301260D+02,
1827 + .238992D+02, .190683D+02, .153162D+02, .123521D+02,
1828 + .100265D+02, .816658D+01, .668497D+01, .549208D+01 /
1829 DATA (UPDI(I),I=6605,6656) /
1830 + .452601D+01, .373901D+01, .309446D+01, .256407D+01,
1831 + .212570D+01, .176213D+01, .145963D+01, .120747D+01,
1832 + .996844D+00, .820886D+00, .673642D+00, .551146D+00,
1833 + .448244D+00, .362599D+00, .291474D+00, .232657D+00,
1834 + .184210D+00, .144543D+00, .112254D+00, .861893D-01,
1835 + .653228D-01, .487579D-01, .358789D-01, .258586D-01,
1836 + .182367D-01, .125465D-01, .838238D-02, .541287D-02,
1837 + .335295D-02, .197910D-02, .109477D-02, .561611D-03,
1838 + .259904D-03, .104737D-03, .344949D-04, .832215D-05,
1839 + .116766D-05, .470146D-07, .000000D+00, .507877D+07,
1840 + .391250D+07, .297131D+07, .225519D+07, .171135D+07,
1841 + .129786D+07, .984072D+06, .745668D+06, .564885D+06,
1842 + .427641D+06, .323655D+06, .244780D+06, .185071D+06 /
1843 DATA (UPDI(I),I=6657,6708) /
1844 + .139823D+06, .105602D+06, .796949D+05, .601219D+05,
1845 + .453194D+05, .341487D+05, .257101D+05, .193495D+05,
1846 + .145503D+05, .109375D+05, .821515D+04, .616845D+04,
1847 + .462783D+04, .347153D+04, .259228D+04, .194372D+04,
1848 + .145698D+04, .109245D+04, .819239D+03, .614830D+03,
1849 + .462147D+03, .347687D+03, .262038D+03, .198015D+03,
1850 + .150065D+03, .114161D+03, .871878D+02, .669321D+02,
1851 + .516354D+02, .400610D+02, .312573D+02, .245359D+02,
1852 + .193705D+02, .153964D+02, .122864D+02, .986930D+01,
1853 + .795449D+01, .644353D+01, .523865D+01, .427222D+01,
1854 + .349261D+01, .286041D+01, .234541D+01, .192408D+01,
1855 + .157828D+01, .129360D+01, .105883D+01, .864881D+00,
1856 + .704650D+00, .572044D+00, .462984D+00, .372422D+00 /
1857 DATA (UPDI(I),I=6709,6760) /
1858 + .297937D+00, .236814D+00, .186882D+00, .146258D+00,
1859 + .113414D+00, .870184D-01, .659915D-01, .493847D-01,
1860 + .363799D-01, .264111D-01, .187685D-01, .130428D-01,
1861 + .883585D-02, .580786D-02, .368626D-02, .224139D-02,
1862 + .129700D-02, .701958D-03, .351619D-03, .158426D-03,
1863 + .619573D-04, .197102D-04, .457535D-05, .619620D-06,
1864 + .246649D-07, .000000D+00, .700627D+07, .537752D+07,
1865 + .406638D+07, .307287D+07, .232143D+07, .175253D+07,
1866 + .132263D+07, .997451D+06, .751955D+06, .566444D+06,
1867 + .426532D+06, .320917D+06, .241350D+06, .181355D+06,
1868 + .136210D+06, .102211D+06, .766596D+05, .574419D+05,
1869 + .430191D+05, .321863D+05, .240682D+05, .179799D+05,
1870 + .134245D+05, .100135D+05, .746537D+04, .555997D+04 /
1871 DATA (UPDI(I),I=6761,6812) /
1872 + .413962D+04, .306717D+04, .228171D+04, .169657D+04,
1873 + .126159D+04, .938098D+03, .697942D+03, .520006D+03,
1874 + .387694D+03, .289516D+03, .216745D+03, .162714D+03,
1875 + .122605D+03, .927386D+02, .705060D+02, .538655D+02,
1876 + .413846D+02, .319760D+02, .248554D+02, .194314D+02,
1877 + .152949D+02, .120859D+02, .961390D+01, .767285D+01,
1878 + .615469D+01, .495493D+01, .400124D+01, .323899D+01,
1879 + .262657D+01, .213242D+01, .173201D+01, .140660D+01,
1880 + .114136D+01, .924851D+00, .747816D+00, .603092D+00,
1881 + .484573D+00, .388150D+00, .308956D+00, .244547D+00,
1882 + .192290D+00, .150092D+00, .116163D+00, .890586D-01,
1883 + .675413D-01, .506150D-01, .374183D-01, .272182D-01,
1884 + .195048D-01, .136739D-01, .936874D-02, .625347D-02 /
1885 DATA (UPDI(I),I=6813,6864) /
1886 + .404667D-02, .252624D-02, .150900D-02, .856770D-03,
1887 + .454151D-03, .222388D-03, .976982D-04, .371446D-04,
1888 + .114427D-04, .256396D-05, .335885D-06, .129192D-07,
1889 + .000000D+00, .983350D+07, .751477D+07, .565377D+07,
1890 + .425051D+07, .319424D+07, .239862D+07, .180037D+07,
1891 + .135023D+07, .101215D+07, .758071D+06, .567469D+06,
1892 + .424406D+06, .317226D+06, .236887D+06, .176783D+06,
1893 + .131795D+06, .981903D+05, .730763D+05, .543473D+05,
1894 + .403736D+05, .299708D+05, .222232D+05, .164662D+05,
1895 + .121868D+05, .901300D+04, .665758D+04, .491530D+04,
1896 + .361025D+04, .266209D+04, .196164D+04, .144527D+04,
1897 + .106459D+04, .784423D+03, .578731D+03, .427158D+03,
1898 + .315749D+03, .233940D+03, .173788D+03, .129563D+03 /
1899 DATA (UPDI(I),I=6865,6916) /
1900 + .969561D+02, .729193D+02, .551073D+02, .418783D+02,
1901 + .320049D+02, .246059D+02, .190255D+02, .148115D+02,
1902 + .115746D+02, .910587D+01, .718679D+01, .570082D+01,
1903 + .453847D+01, .362398D+01, .290071D+01, .232574D+01,
1904 + .186683D+01, .149905D+01, .120350D+01, .965339D+00,
1905 + .773183D+00, .617913D+00, .492499D+00, .391030D+00,
1906 + .309497D+00, .243373D+00, .190282D+00, .147767D+00,
1907 + .113889D+00, .870160D-01, .658430D-01, .492699D-01,
1908 + .364201D-01, .265489D-01, .190331D-01, .134376D-01,
1909 + .927520D-02, .625307D-02, .410394D-02, .260901D-02,
1910 + .159852D-02, .935975D-03, .520243D-03, .269482D-03,
1911 + .128703D-03, .550104D-04, .202907D-04, .604400D-05,
1912 + .130587D-05, .165096D-06, .585686D-08, .000000D+00 /
1913 DATA (UPDI(I),I=6917,6968) /
1914 + .134794D+08, .102562D+08, .767707D+07, .574190D+07,
1915 + .429233D+07, .320604D+07, .239333D+07, .178506D+07,
1916 + .133058D+07, .990881D+06, .737424D+06, .548255D+06,
1917 + .407323D+06, .302300D+06, .224184D+06, .166069D+06,
1918 + .122918D+06, .908730D+05, .671239D+05, .495207D+05,
1919 + .365008D+05, .268700D+05, .197623D+05, .145160D+05,
1920 + .106528D+05, .780664D+04, .571716D+04, .416412D+04,
1921 + .304459D+04, .222419D+04, .162426D+04, .118570D+04,
1922 + .865628D+03, .632691D+03, .462530D+03, .338588D+03,
1923 + .248393D+03, .182688D+03, .134826D+03, .998685D+02,
1924 + .743397D+02, .556018D+02, .418155D+02, .316245D+02,
1925 + .240592D+02, .184076D+02, .141801D+02, .109639D+02,
1926 + .853425D+01, .666383D+01, .522955D+01, .411869D+01 /
1927 DATA (UPDI(I),I=6969,7020) /
1928 + .325336D+01, .257590D+01, .204285D+01, .162184D+01,
1929 + .128800D+01, .102263D+01, .811133D+00, .642398D+00,
1930 + .507601D+00, .399978D+00, .313919D+00, .245591D+00,
1931 + .190849D+00, .147438D+00, .113112D+00, .861096D-01,
1932 + .649696D-01, .485347D-01, .358456D-01, .261439D-01,
1933 + .187976D-01, .132855D-01, .924366D-02, .628386D-02,
1934 + .416972D-02, .269161D-02, .168159D-02, .101149D-02,
1935 + .580757D-03, .316121D-03, .160080D-03, .745985D-04,
1936 + .310374D-04, .111126D-04, .320297D-05, .667590D-06,
1937 + .812412D-07, .246764D-08, .000000D+00, .180676D+08,
1938 + .136887D+08, .101950D+08, .758648D+07, .564192D+07,
1939 + .419204D+07, .311269D+07, .230906D+07, .171169D+07,
1940 + .126758D+07, .937977D+06, .693335D+06, .512074D+06 /
1941 DATA (UPDI(I),I=7021,7072) /
1942 + .377770D+06, .278441D+06, .204982D+06, .150759D+06,
1943 + .110738D+06, .812585D+05, .595470D+05, .435904D+05,
1944 + .318652D+05, .232688D+05, .169674D+05, .123590D+05,
1945 + .898799D+04, .653119D+04, .471876D+04, .342212D+04,
1946 + .247933D+04, .179525D+04, .129923D+04, .940151D+03,
1947 + .681018D+03, .493308D+03, .357770D+03, .259990D+03,
1948 + .189394D+03, .138424D+03, .101535D+03, .748365D+02,
1949 + .554198D+02, .412632D+02, .308948D+02, .232678D+02,
1950 + .176224D+02, .134381D+02, .102841D+02, .792360D+01,
1951 + .612341D+01, .475597D+01, .370700D+01, .289774D+01,
1952 + .227039D+01, .178167D+01, .139958D+01, .109970D+01,
1953 + .863814D+00, .677807D+00, .531011D+00, .415024D+00,
1954 + .323447D+00, .251042D+00, .194213D+00, .149214D+00 /
1955 DATA (UPDI(I),I=7073,7124) /
1956 + .113953D+00, .864084D-01, .650057D-01, .484592D-01,
1957 + .357592D-01, .260814D-01, .187804D-01, .133272D-01,
1958 + .929255D-02, .637647D-02, .427267D-02, .279308D-02,
1959 + .177510D-02, .109108D-02, .645143D-03, .363764D-03,
1960 + .194241D-03, .963576D-04, .439225D-04, .178437D-04,
1961 + .622530D-05, .174486D-05, .352866D-06, .414393D-07,
1962 + .952125D-09, .000000D+00, .237232D+08, .178990D+08,
1963 + .132653D+08, .982217D+07, .726765D+07, .537237D+07,
1964 + .396835D+07, .292829D+07, .215906D+07, .159019D+07,
1965 + .117017D+07, .860109D+06, .631607D+06, .463245D+06,
1966 + .339417D+06, .248366D+06, .181544D+06, .132518D+06,
1967 + .966202D+05, .703449D+05, .511535D+05, .371417D+05,
1968 + .269348D+05, .195026D+05, .141034D+05, .101812D+05 /
1969 DATA (UPDI(I),I=7125,7176) /
1970 + .734283D+04, .526403D+04, .378772D+04, .272235D+04,
1971 + .195516D+04, .140323D+04, .100679D+04, .723021D+03,
1972 + .519128D+03, .373137D+03, .268698D+03, .193942D+03,
1973 + .140430D+03, .102040D+03, .744970D+02, .546427D+02,
1974 + .402940D+02, .298782D+02, .222840D+02, .167129D+02,
1975 + .126204D+02, .956316D+01, .729572D+01, .558224D+01,
1976 + .429257D+01, .331245D+01, .256338D+01, .198822D+01,
1977 + .154446D+01, .120092D+01, .933973D+00, .726112D+00,
1978 + .563880D+00, .437176D+00, .338119D+00, .260743D+00,
1979 + .200227D+00, .153251D+00, .116469D+00, .879733D-01,
1980 + .659706D-01, .490738D-01, .361665D-01, .263795D-01,
1981 + .190139D-01, .135269D-01, .948152D-02, .652767D-02,
1982 + .442165D-02, .292334D-02, .188475D-02, .118077D-02 /
1983 DATA (UPDI(I),I=7177,7228) /
1984 + .715042D-03, .416272D-03, .230925D-03, .121219D-03,
1985 + .590559D-04, .264097D-04, .105142D-04, .359010D-05,
1986 + .983863D-06, .194236D-06, .220769D-07, .299569D-09,
1987 + .000000D+00, .305659D+08, .229685D+08, .169409D+08,
1988 + .124829D+08, .919089D+07, .676019D+07, .496815D+07,
1989 + .364723D+07, .267509D+07, .195982D+07, .143440D+07,
1990 + .104856D+07, .765708D+06, .558428D+06, .406801D+06,
1991 + .295935D+06, .215025D+06, .156007D+06, .113043D+06,
1992 + .817847D+05, .590906D+05, .426245D+05, .307046D+05,
1993 + .220810D+05, .158570D+05, .113658D+05, .813787D+04,
1994 + .579031D+04, .413496D+04, .294908D+04, .210135D+04,
1995 + .149609D+04, .106463D+04, .758221D+03, .539786D+03,
1996 + .384648D+03, .274565D+03, .196423D+03, .140951D+03 /
1997 DATA (UPDI(I),I=7229,7280) /
1998 + .101491D+03, .734195D+02, .533570D+02, .389811D+02,
1999 + .286356D+02, .211572D+02, .157185D+02, .117578D+02,
2000 + .882476D+01, .666854D+01, .505351D+01, .384877D+01,
2001 + .294144D+01, .225431D+01, .173158D+01, .133203D+01,
2002 + .102564D+01, .789849D+00, .608029D+00, .467520D+00,
2003 + .358876D+00, .274796D+00, .209789D+00, .159473D+00,
2004 + .120824D+00, .908831D-01, .679373D-01, .504139D-01,
2005 + .371057D-01, .270543D-01, .195196D-01, .139149D-01,
2006 + .978887D-02, .678348D-02, .461585D-02, .308977D-02,
2007 + .201796D-02, .128483D-02, .794618D-03, .474850D-03,
2008 + .272670D-03, .149129D-03, .771375D-04, .370090D-04,
2009 + .162890D-04, .637915D-05, .214125D-05, .576723D-06,
2010 + .111767D-06, .123337D-07, .366811D-10, .000000D+00 /
2011 DATA (UPDI(I),I=7281,7332) /
2012 + .387052D+08, .289707D+08, .212680D+08, .155973D+08,
2013 + .114288D+08, .836540D+07, .611747D+07, .446852D+07,
2014 + .326080D+07, .237662D+07, .173034D+07, .125818D+07,
2015 + .913806D+06, .662780D+06, .480120D+06, .347291D+06,
2016 + .250880D+06, .180951D+06, .130332D+06, .937184D+05,
2017 + .672918D+05, .482333D+05, .345204D+05, .246617D+05,
2018 + .175911D+05, .125220D+05, .890294D+04, .628879D+04,
2019 + .445818D+04, .315597D+04, .223169D+04, .157660D+04,
2020 + .111306D+04, .786355D+03, .555229D+03, .392365D+03,
2021 + .277706D+03, .196972D+03, .140120D+03, .100010D+03,
2022 + .717092D+02, .516506D+02, .373963D+02, .272241D+02,
2023 + .199324D+02, .146739D+02, .108767D+02, .808849D+01,
2024 + .605626D+01, .454717D+01, .343121D+01, .259809D+01 /
2025 DATA (UPDI(I),I=7333,7384) /
2026 + .197272D+01, .150122D+01, .114408D+01, .872711D+00,
2027 + .665793D+00, .507730D+00, .386733D+00, .294068D+00,
2028 + .223046D+00, .168669D+00, .126994D+00, .952993D-01,
2029 + .709937D-01, .525555D-01, .386196D-01, .281457D-01,
2030 + .203182D-01, .145130D-01, .102414D-01, .713100D-02,
2031 + .489051D-02, .329271D-02, .218069D-02, .140875D-02,
2032 + .887042D-03, .542421D-03, .320419D-03, .181830D-03,
2033 + .982552D-04, .501993D-04, .237827D-04, .103336D-04,
2034 + .399449D-05, .132307D-05, .351671D-06, .671801D-07,
2035 + .722018D-08, .000000D+00, .000000D+00, .482370D+08,
2036 + .359675D+08, .262843D+08, .191873D+08, .139935D+08,
2037 + .101941D+08, .741893D+07, .539278D+07, .391578D+07,
2038 + .283969D+07, .205694D+07, .148793D+07, .107499D+07 /
2039 DATA (UPDI(I),I=7385,7436) /
2040 + .775527D+06, .558742D+06, .401934D+06, .288723D+06,
2041 + .207058D+06, .148268D+06, .105985D+06, .756406D+05,
2042 + .538847D+05, .383234D+05, .272038D+05, .192778D+05,
2043 + .136313D+05, .962586D+04, .675173D+04, .475255D+04,
2044 + .334015D+04, .234456D+04, .164394D+04, .115172D+04,
2045 + .807361D+03, .565544D+03, .396439D+03, .278297D+03,
2046 + .195757D+03, .138089D+03, .977262D+02, .694732D+02,
2047 + .496098D+02, .356075D+02, .256964D+02, .186495D+02,
2048 + .136088D+02, .999885D+01, .736988D+01, .546961D+01,
2049 + .407027D+01, .304416D+01, .228460D+01, .171931D+01,
2050 + .129677D+01, .979504D+00, .740538D+00, .559943D+00,
2051 + .423219D+00, .319500D+00, .240787D+00, .181011D+00,
2052 + .135665D+00, .101234D+00, .752940D-01, .555886D-01 /
2053 DATA (UPDI(I),I=7437,7488) /
2054 + .407820D-01, .296985D-01, .214486D-01, .153433D-01,
2055 + .108596D-01, .759317D-02, .523828D-02, .355912D-02,
2056 + .237380D-02, .155735D-02, .996463D-03, .621400D-03,
2057 + .376284D-03, .220095D-03, .123656D-03, .661500D-04,
2058 + .334534D-04, .156867D-04, .674520D-05, .258030D-05,
2059 + .845581D-06, .222365D-06, .419722D-07, .440587D-08,
2060 + .000000D+00, .000000D+00, .592390D+08, .440074D+08,
2061 + .320167D+08, .232668D+08, .168913D+08, .122484D+08,
2062 + .887215D+07, .641853D+07, .463811D+07, .334710D+07,
2063 + .241244D+07, .173631D+07, .124802D+07, .895683D+06,
2064 + .641902D+06, .459280D+06, .328115D+06, .234003D+06,
2065 + .166616D+06, .118416D+06, .840173D+05, .594953D+05,
2066 + .420563D+05, .296687D+05, .208915D+05, .146767D+05 /
2067 DATA (UPDI(I),I=7489,7540) /
2068 + .102960D+05, .717261D+04, .501423D+04, .349948D+04,
2069 + .243889D+04, .169768D+04, .118056D+04, .821359D+03,
2070 + .570934D+03, .397101D+03, .276555D+03, .192974D+03,
2071 + .135022D+03, .947727D+02, .668171D+02, .473163D+02,
2072 + .336771D+02, .240991D+02, .173427D+02, .125481D+02,
2073 + .914170D+01, .668074D+01, .491623D+01, .362734D+01,
2074 + .268991D+01, .200165D+01, .149364D+01, .111706D+01,
2075 + .836655D+00, .627224D+00, .470288D+00, .352483D+00,
2076 + .263880D+00, .197216D+00, .147027D+00, .109283D+00,
2077 + .808735D-01, .596563D-01, .436804D-01, .317818D-01,
2078 + .229541D-01, .164416D-01, .116650D-01, .818845D-02,
2079 + .567847D-02, .388518D-02, .261804D-02, .173169D-02,
2080 + .112675D-02, .714961D-03, .442149D-03, .265505D-03 /
2081 DATA (UPDI(I),I=7541,7592) /
2082 + .153999D-03, .857932D-04, .455081D-04, .228183D-04,
2083 + .106078D-04, .452145D-05, .171430D-05, .556565D-06,
2084 + .144952D-06, .270558D-07, .278056D-08, .000000D+00,
2085 + .000000D+00, .717676D+08, .531227D+08, .384807D+08,
2086 + .278416D+08, .201225D+08, .145258D+08, .104737D+08,
2087 + .754209D+07, .542440D+07, .389589D+07, .279441D+07,
2088 + .200137D+07, .143137D+07, .102208D+07, .728719D+06,
2089 + .518676D+06, .368580D+06, .261443D+06, .185131D+06,
2090 + .130840D+06, .923033D+05, .649841D+05, .456648D+05,
2091 + .320204D+05, .224088D+05, .156438D+05, .109043D+05,
2092 + .754625D+04, .524038D+04, .363256D+04, .251414D+04,
2093 + .173775D+04, .119975D+04, .828628D+03, .571704D+03,
2094 + .394635D+03, .272732D+03, .188830D+03, .131085D+03 /
2095 DATA (UPDI(I),I=7593,7644) /
2096 + .912807D+02, .638413D+02, .448456D+02, .316607D+02,
2097 + .224724D+02, .160407D+02, .115115D+02, .831848D+01,
2098 + .602948D+01, .440105D+01, .322082D+01, .236914D+01,
2099 + .174876D+01, .129446D+01, .960363D+00, .713573D+00,
2100 + .530718D+00, .394796D+00, .293585D+00, .218077D+00,
2101 + .161722D+00, .119638D+00, .882456D-01, .648083D-01,
2102 + .474457D-01, .344782D-01, .248983D-01, .178487D-01,
2103 + .126899D-01, .893692D-02, .622737D-02, .428698D-02,
2104 + .291174D-02, .194785D-02, .127904D-02, .826245D-03,
2105 + .520492D-03, .319564D-03, .190507D-03, .109699D-03,
2106 + .606674D-04, .319444D-04, .158974D-04, .733388D-05,
2107 + .310108D-05, .116599D-05, .375127D-06, .967440D-07,
2108 + .178527D-07, .179977D-08, .000000D+00, .000000D+00 /
2109 DATA (UPDI(I),I=7645,7696) /
2110 + .448666D+05, .675853D+05, .526777D+05, .410642D+05,
2111 + .320164D+05, .249669D+05, .194738D+05, .151932D+05,
2112 + .118569D+05, .925642D+04, .722905D+04, .564823D+04,
2113 + .441537D+04, .345364D+04, .270322D+04, .211750D+04,
2114 + .166018D+04, .130296D+04, .102381D+04, .805545D+03,
2115 + .634789D+03, .501108D+03, .396373D+03, .314244D+03,
2116 + .249777D+03, .199119D+03, .159261D+03, .127462D+03,
2117 + .102772D+03, .832516D+02, .677885D+02, .555134D+02,
2118 + .457460D+02, .379747D+02, .317406D+02, .267391D+02,
2119 + .227118D+02, .194555D+02, .168100D+02, .146480D+02,
2120 + .128723D+02, .114009D+02, .101719D+02, .913581D+01,
2121 + .825347D+01, .749398D+01, .683523D+01, .625172D+01,
2122 + .573557D+01, .526858D+01, .484628D+01, .445968D+01 /
2123 DATA (UPDI(I),I=7697,7748) /
2124 + .410320D+01, .377248D+01, .346417D+01, .317570D+01,
2125 + .290510D+01, .265087D+01, .241188D+01, .218728D+01,
2126 + .197639D+01, .177870D+01, .159378D+01, .142203D+01,
2127 + .126134D+01, .111251D+01, .975234D+00, .849205D+00,
2128 + .734100D+00, .629570D+00, .535239D+00, .450700D+00,
2129 + .375471D+00, .309027D+00, .251428D+00, .201285D+00,
2130 + .158471D+00, .122394D+00, .924549D-01, .680450D-01,
2131 + .485545D-01, .333980D-01, .218934D-01, .135594D-01,
2132 + .777950D-02, .402130D-02, .178746D-02, .626004D-03,
2133 + .141934D-03, .111153D-04, .000000D+00, .120373D+06,
2134 + .942878D+05, .730087D+05, .565358D+05, .437865D+05,
2135 + .339158D+05, .262755D+05, .203595D+05, .157797D+05,
2136 + .122329D+05, .948672D+04, .735943D+04, .571185D+04 /
2137 DATA (UPDI(I),I=7749,7800) /
2138 + .443518D+04, .344603D+04, .267920D+04, .208477D+04,
2139 + .162366D+04, .126595D+04, .988238D+03, .772602D+03,
2140 + .605000D+03, .474689D+03, .373253D+03, .294248D+03,
2141 + .232632D+03, .184540D+03, .146460D+03, .117127D+03,
2142 + .941072D+02, .760172D+02, .617613D+02, .505049D+02,
2143 + .416113D+02, .345290D+02, .288833D+02, .243677D+02,
2144 + .207370D+02, .178046D+02, .154193D+02, .134700D+02,
2145 + .118609D+02, .105226D+02, .939791D+01, .844368D+01,
2146 + .762492D+01, .691738D+01, .629288D+01, .574281D+01,
2147 + .524724D+01, .480132D+01, .439517D+01, .402280D+01,
2148 + .367937D+01, .336122D+01, .306543D+01, .278980D+01,
2149 + .253258D+01, .229243D+01, .206828D+01, .185926D+01,
2150 + .166469D+01, .148391D+01, .131716D+01, .116220D+01 /
2151 DATA (UPDI(I),I=7801,7852) /
2152 + .101965D+01, .889060D+00, .769987D+00, .661968D+00,
2153 + .564545D+00, .477223D+00, .399508D+00, .330848D+00,
2154 + .270624D+00, .218794D+00, .174008D+00, .136055D+00,
2155 + .104328D+00, .782104D-01, .571031D-01, .403970D-01,
2156 + .275328D-01, .178665D-01, .109434D-01, .620053D-02,
2157 + .315987D-02, .138118D-02, .474089D-03, .105300D-03,
2158 + .833329D-05, .000000D+00, .164452D+06, .128177D+06,
2159 + .986863D+05, .759794D+05, .585034D+05, .450473D+05,
2160 + .346913D+05, .267175D+05, .205807D+05, .158554D+05,
2161 + .122185D+05, .941788D+04, .726205D+04, .560162D+04,
2162 + .432321D+04, .333827D+04, .257968D+04, .199496D+04,
2163 + .154437D+04, .119682D+04, .928804D+03, .721883D+03,
2164 + .562123D+03, .438618D+03, .343111D+03, .269149D+03 /
2165 DATA (UPDI(I),I=7853,7904) /
2166 + .211850D+03, .166801D+03, .132356D+03, .105518D+03,
2167 + .845826D+02, .682011D+02, .553594D+02, .452825D+02,
2168 + .373133D+02, .310007D+02, .259839D+02, .219729D+02,
2169 + .187515D+02, .161439D+02, .140232D+02, .122796D+02,
2170 + .108353D+02, .962582D+01, .860334D+01, .772897D+01,
2171 + .697610D+01, .631398D+01, .573315D+01, .521201D+01,
2172 + .474528D+01, .432223D+01, .393643D+01, .358254D+01,
2173 + .325661D+01, .295538D+01, .267639D+01, .241766D+01,
2174 + .217762D+01, .195500D+01, .174873D+01, .155798D+01,
2175 + .138184D+01, .122043D+01, .107138D+01, .935165D+00,
2176 + .811165D+00, .698833D+00, .597586D+00, .506866D+00,
2177 + .426079D+00, .354659D+00, .291996D+00, .237398D+00,
2178 + .190739D+00, .150709D+00, .117037D+00, .891056D-01 /
2179 DATA (UPDI(I),I=7905,7956) /
2180 + .662955D-01, .480163D-01, .336737D-01, .227373D-01,
2181 + .146030D-01, .884336D-02, .494643D-02, .248374D-02,
2182 + .106668D-02, .358398D-03, .778542D-04, .623256D-05,
2183 + .000000D+00, .219595D+06, .170407D+06, .130537D+06,
2184 + .999849D+05, .765869D+05, .586593D+05, .449316D+05,
2185 + .344151D+05, .263634D+05, .201959D+05, .154743D+05,
2186 + .118578D+05, .908928D+04, .696871D+04, .534530D+04,
2187 + .410167D+04, .314944D+04, .241977D+04, .186087D+04,
2188 + .143240D+04, .110403D+04, .852103D+03, .658844D+03,
2189 + .510401D+03, .396368D+03, .308645D+03, .241150D+03,
2190 + .188444D+03, .148421D+03, .117450D+03, .934586D+02,
2191 + .748125D+02, .602952D+02, .489784D+02, .400873D+02,
2192 + .330881D+02, .275593D+02, .231637D+02, .196524D+02 /
2193 DATA (UPDI(I),I=7957,8008) /
2194 + .168239D+02, .145343D+02, .126597D+02, .111129D+02,
2195 + .982230D+01, .873511D+01, .780857D+01, .701359D+01,
2196 + .631695D+01, .570822D+01, .516427D+01, .467927D+01,
2197 + .424170D+01, .384464D+01, .348233D+01, .315044D+01,
2198 + .284543D+01, .256455D+01, .230560D+01, .206679D+01,
2199 + .184663D+01, .164388D+01, .145753D+01, .128649D+01,
2200 + .113070D+01, .987723D+00, .857850D+00, .740350D+00,
2201 + .634565D+00, .539809D+00, .455435D+00, .380770D+00,
2202 + .315186D+00, .258023D+00, .208539D+00, .166537D+00,
2203 + .130753D+00, .100866D+00, .762604D-01, .563214D-01,
2204 + .404744D-01, .281454D-01, .188329D-01, .119748D-01,
2205 + .717208D-02, .396175D-02, .196099D-02, .827972D-03,
2206 + .272575D-03, .579899D-04, .469378D-05, .000000D+00 /
2207 DATA (UPDI(I),I=8009,8060) /
2208 + .185872D+06, .222317D+06, .169516D+06, .129232D+06,
2209 + .985190D+05, .750920D+05, .572358D+05, .436197D+05,
2210 + .332444D+05, .253350D+05, .193095D+05, .147171D+05,
2211 + .112193D+05, .855374D+04, .652379D+04, .497692D+04,
2212 + .379891D+04, .290115D+04, .221735D+04, .169609D+04,
2213 + .129892D+04, .995985D+03, .764990D+03, .588636D+03,
2214 + .453997D+03, .351068D+03, .272383D+03, .211331D+03,
2215 + .165273D+03, .129862D+03, .102611D+03, .815692D+02,
2216 + .652925D+02, .526848D+02, .428413D+02, .351390D+02,
2217 + .290902D+02, .243075D+02, .205069D+02, .174601D+02,
2218 + .150048D+02, .130029D+02, .113574D+02, .998936D+01,
2219 + .884099D+01, .786565D+01, .703168D+01, .630348D+01,
2220 + .566957D+01, .510536D+01, .460444D+01, .415453D+01 /
2221 DATA (UPDI(I),I=8061,8112) /
2222 + .374822D+01, .337929D+01, .304310D+01, .273577D+01,
2223 + .245432D+01, .219627D+01, .195964D+01, .174275D+01,
2224 + .154416D+01, .136270D+01, .119710D+01, .104715D+01,
2225 + .910332D+00, .786789D+00, .675675D+00, .576236D+00,
2226 + .487696D+00, .409333D+00, .340410D+00, .280245D+00,
2227 + .228142D+00, .183322D+00, .145529D+00, .113548D+00,
2228 + .870249D-01, .653470D-01, .479135D-01, .341687D-01,
2229 + .235643D-01, .156278D-01, .983972D-02, .582986D-02,
2230 + .318116D-02, .155271D-02, .644826D-03, .208155D-03,
2231 + .434229D-04, .355237D-05, .000000D+00, .392093D+06,
2232 + .301692D+06, .228840D+06, .173537D+06, .131582D+06,
2233 + .997442D+05, .756020D+05, .572905D+05, .434112D+05,
2234 + .328885D+05, .249163D+05, .188745D+05, .142989D+05 /
2235 DATA (UPDI(I),I=8113,8164) /
2236 + .108325D+05, .820818D+04, .622053D+04, .471607D+04,
2237 + .357674D+04, .271444D+04, .206140D+04, .156708D+04,
2238 + .119261D+04, .909006D+03, .694009D+03, .531027D+03,
2239 + .407332D+03, .313468D+03, .241182D+03, .187060D+03,
2240 + .145766D+03, .114228D+03, .900635D+02, .715110D+02,
2241 + .572492D+02, .461951D+02, .376081D+02, .309103D+02,
2242 + .256495D+02, .214946D+02, .181834D+02, .155293D+02,
2243 + .133761D+02, .116146D+02, .101566D+02, .893778D+01,
2244 + .790699D+01, .702927D+01, .626621D+01, .560493D+01,
2245 + .501919D+01, .450175D+01, .403951D+01, .362438D+01,
2246 + .324967D+01, .291026D+01, .260194D+01, .232138D+01,
2247 + .206585D+01, .183307D+01, .162115D+01, .142842D+01,
2248 + .125353D+01, .109499D+01, .952432D+00, .823246D+00 /
2249 DATA (UPDI(I),I=8165,8216) /
2250 + .707405D+00, .603944D+00, .512002D+00, .430716D+00,
2251 + .359287D+00, .296912D+00, .242865D+00, .196411D+00,
2252 + .156748D+00, .123564D+00, .957056D-01, .727915D-01,
2253 + .542235D-01, .394237D-01, .278643D-01, .190332D-01,
2254 + .124940D-01, .777865D-02, .455232D-02, .245007D-02,
2255 + .117736D-02, .480197D-03, .151825D-03, .310518D-04,
2256 + .256866D-05, .000000D+00, .523997D+06, .401489D+06,
2257 + .303045D+06, .228667D+06, .172506D+06, .130094D+06,
2258 + .980898D+05, .739358D+05, .557202D+05, .419809D+05,
2259 + .316257D+05, .238198D+05, .179398D+05, .135098D+05,
2260 + .101745D+05, .766286D+04, .577270D+04, .434977D+04,
2261 + .327925D+04, .247350D+04, .186738D+04, .141113D+04,
2262 + .106782D+04, .809282D+03, .614602D+03, .467857D+03 /
2263 DATA (UPDI(I),I=8217,8268) /
2264 + .357277D+03, .272722D+03, .209864D+03, .162253D+03,
2265 + .126151D+03, .986908D+02, .777591D+02, .617841D+02,
2266 + .494882D+02, .400023D+02, .326518D+02, .269149D+02,
2267 + .224107D+02, .188414D+02, .159951D+02, .136974D+02,
2268 + .118259D+02, .102836D+02, .899968D+01, .791823D+01,
2269 + .700111D+01, .620718D+01, .552215D+01, .491822D+01,
2270 + .438732D+01, .391551D+01, .349407D+01, .311583D+01,
2271 + .277522D+01, .246770D+01, .218959D+01, .193789D+01,
2272 + .171008D+01, .150404D+01, .131789D+01, .115009D+01,
2273 + .998986D+00, .864018D+00, .742537D+00, .634348D+00,
2274 + .538383D+00, .453693D+00, .379341D+00, .314465D+00,
2275 + .258219D+00, .209837D+00, .168565D+00, .133591D+00,
2276 + .104556D+00, .803768D-01, .606543D-01, .448108D-01 /
2277 DATA (UPDI(I),I=8269,8320) /
2278 + .322969D-01, .226161D-01, .152945D-01, .993221D-02,
2279 + .611071D-02, .352964D-02, .187180D-02, .884400D-03,
2280 + .353639D-03, .109255D-03, .218503D-04, .183067D-05,
2281 + .000000D+00, .688263D+06, .525249D+06, .394611D+06,
2282 + .296350D+06, .222491D+06, .166970D+06, .125268D+06,
2283 + .939447D+05, .704352D+05, .527897D+05, .395562D+05,
2284 + .296309D+05, .221929D+05, .166182D+05, .124434D+05,
2285 + .931656D+04, .697634D+04, .522449D+04, .391402D+04,
2286 + .293341D+04, .220011D+04, .165146D+04, .124116D+04,
2287 + .934111D+03, .704374D+03, .532325D+03, .403538D+03,
2288 + .305725D+03, .233506D+03, .179182D+03, .138272D+03,
2289 + .107371D+03, .839779D+02, .662469D+02, .526903D+02,
2290 + .423007D+02, .343002D+02, .280942D+02, .232491D+02 /
2291 DATA (UPDI(I),I=8321,8372) /
2292 + .194305D+02, .164004D+02, .139658D+02, .119914D+02,
2293 + .103712D+02, .902765D+01, .790052D+01, .694845D+01,
2294 + .612768D+01, .542253D+01, .480371D+01, .426230D+01,
2295 + .378360D+01, .335826D+01, .297863D+01, .263873D+01,
2296 + .233365D+01, .205942D+01, .181277D+01, .159093D+01,
2297 + .139156D+01, .121261D+01, .105234D+01, .908954D+00,
2298 + .781722D+00, .667965D+00, .567332D+00, .478674D+00,
2299 + .400966D+00, .333214D+00, .274510D+00, .223976D+00,
2300 + .180822D+00, .144284D+00, .113551D+00, .882350D-01,
2301 + .673212D-01, .504035D-01, .369304D-01, .263851D-01,
2302 + .183048D-01, .122552D-01, .787285D-02, .478631D-02,
2303 + .272850D-02, .142565D-02, .662273D-03, .259628D-03,
2304 + .783904D-04, .153376D-04, .130155D-05, .000000D+00 /
2305 DATA (UPDI(I),I=8373,8424) /
2306 + .890402D+06, .676916D+06, .506275D+06, .378480D+06,
2307 + .282839D+06, .211263D+06, .157743D+06, .117725D+06,
2308 + .878296D+05, .654962D+05, .488267D+05, .363852D+05,
2309 + .271072D+05, .201885D+05, .150335D+05, .111926D+05,
2310 + .833306D+04, .620400D+04, .462005D+04, .344141D+04,
2311 + .256502D+04, .191311D+04, .142846D+04, .106794D+04,
2312 + .799850D+03, .600319D+03, .451907D+03, .339921D+03,
2313 + .257777D+03, .196394D+03, .150473D+03, .116017D+03,
2314 + .901044D+02, .705929D+02, .557700D+02, .444817D+02,
2315 + .358413D+02, .291780D+02, .240040D+02, .199473D+02,
2316 + .167436D+02, .141811D+02, .121115D+02, .104201D+02,
2317 + .902291D+01, .785528D+01, .687284D+01, .602931D+01,
2318 + .530764D+01, .467717D+01, .412816D+01, .364515D+01 /
2319 DATA (UPDI(I),I=8425,8476) /
2320 + .321819D+01, .283919D+01, .250174D+01, .220062D+01,
2321 + .193155D+01, .169101D+01, .147600D+01, .128397D+01,
2322 + .111270D+01, .960288D+00, .824806D+00, .705364D+00,
2323 + .599270D+00, .506037D+00, .424448D+00, .353418D+00,
2324 + .291911D+00, .238988D+00, .193750D+00, .155398D+00,
2325 + .123165D+00, .962532D-01, .742567D-01, .562296D-01,
2326 + .417678D-01, .303498D-01, .214938D-01, .147725D-01,
2327 + .979108D-02, .622195D-02, .373768D-02, .210278D-02,
2328 + .108251D-02, .494414D-03, .190042D-03, .560976D-04,
2329 + .107464D-04, .923543D-06, .000000D+00, .113628D+07,
2330 + .860658D+06, .640902D+06, .477016D+06, .354883D+06,
2331 + .263873D+06, .196117D+06, .145680D+06, .108168D+06,
2332 + .802725D+05, .595476D+05, .441520D+05, .327257D+05 /
2333 DATA (UPDI(I),I=8477,8528) /
2334 + .242464D+05, .179596D+05, .132989D+05, .984668D+04,
2335 + .728969D+04, .539741D+04, .399692D+04, .296124D+04,
2336 + .219515D+04, .162884D+04, .121002D+04, .900395D+03,
2337 + .671326D+03, .501987D+03, .375005D+03, .282446D+03,
2338 + .213721D+03, .162629D+03, .124541D+03, .960765D+02,
2339 + .747788D+02, .586979D+02, .465257D+02, .372623D+02,
2340 + .301583D+02, .246709D+02, .203896D+02, .170238D+02,
2341 + .143433D+02, .121870D+02, .104316D+02, .898690D+01,
2342 + .778410D+01, .677591D+01, .591369D+01, .517908D+01,
2343 + .454015D+01, .398632D+01, .350146D+01, .307504D+01,
2344 + .269854D+01, .236516D+01, .206937D+01, .180660D+01,
2345 + .157309D+01, .136562D+01, .118147D+01, .101825D+01,
2346 + .873923D+00, .746431D+00, .634750D+00, .536193D+00 /
2347 DATA (UPDI(I),I=8529,8580) /
2348 + .450150D+00, .375350D+00, .310667D+00, .255036D+00,
2349 + .207497D+00, .167147D+00, .133183D+00, .104846D+00,
2350 + .813640D-01, .623179D-01, .468328D-01, .345130D-01,
2351 + .248700D-01, .174583D-01, .118866D-01, .779905D-02,
2352 + .490233D-02, .290983D-02, .161551D-02, .819381D-03,
2353 + .367943D-03, .138686D-03, .400369D-04, .751514D-05,
2354 + .653977D-06, .000000D+00, .143205D+07, .108080D+07,
2355 + .801434D+06, .593947D+06, .439957D+06, .325690D+06,
2356 + .240978D+06, .178191D+06, .131697D+06, .972757D+05,
2357 + .718169D+05, .529910D+05, .390834D+05, .288113D+05,
2358 + .212317D+05, .156399D+05, .115184D+05, .848112D+04,
2359 + .624484D+04, .459838D+04, .338724D+04, .249620D+04,
2360 + .184113D+04, .135937D+04, .100525D+04, .744759D+03 /
2361 DATA (UPDI(I),I=8581,8632) /
2362 + .553329D+03, .410645D+03, .307272D+03, .230985D+03,
2363 + .174618D+03, .132855D+03, .101834D+03, .787639D+02,
2364 + .614471D+02, .484154D+02, .385525D+02, .310290D+02,
2365 + .252462D+02, .207559D+02, .172409D+02, .144531D+02,
2366 + .122191D+02, .104071D+02, .892127D+01, .768871D+01,
2367 + .665940D+01, .578253D+01, .503848D+01, .439416D+01,
2368 + .383819D+01, .335381D+01, .292995D+01, .255769D+01,
2369 + .222984D+01, .194059D+01, .168510D+01, .145940D+01,
2370 + .126007D+01, .108422D+01, .929316D+00, .793187D+00,
2371 + .673689D+00, .569672D+00, .478466D+00, .399358D+00,
2372 + .331038D+00, .272350D+00, .222215D+00, .179665D+00,
2373 + .143802D+00, .113829D+00, .890054D-01, .685860D-01,
2374 + .521514D-01, .388955D-01, .284364D-01, .203204D-01 /
2375 DATA (UPDI(I),I=8633,8684) /
2376 + .141388D-01, .953607D-02, .619358D-02, .385077D-02,
2377 + .225831D-02, .123725D-02, .618250D-03, .272959D-03,
2378 + .100900D-03, .284971D-04, .524519D-05, .462120D-06,
2379 + .000000D+00, .178400D+07, .134174D+07, .990825D+06,
2380 + .731244D+06, .539366D+06, .397567D+06, .292880D+06,
2381 + .215613D+06, .158640D+06, .116643D+06, .857164D+05,
2382 + .629493D+05, .462058D+05, .338958D+05, .248547D+05,
2383 + .182162D+05, .133468D+05, .977587D+04, .715971D+04,
2384 + .524332D+04, .384085D+04, .281445D+04, .206387D+04,
2385 + .151487D+04, .111354D+04, .819963D+03, .605450D+03,
2386 + .446492D+03, .332004D+03, .248012D+03, .186316D+03,
2387 + .140876D+03, .107321D+03, .825113D+02, .639939D+02,
2388 + .501361D+02, .397031D+02, .317852D+02, .257280D+02 /
2389 DATA (UPDI(I),I=8685,8736) /
2390 + .210457D+02, .173954D+02, .145117D+02, .122092D+02,
2391 + .103485D+02, .882787D+01, .757094D+01, .652509D+01,
2392 + .563754D+01, .488745D+01, .424069D+01, .368513D+01,
2393 + .320342D+01, .278399D+01, .241753D+01, .209653D+01,
2394 + .181489D+01, .156754D+01, .135030D+01, .115957D+01,
2395 + .992318D+00, .845885D+00, .717992D+00, .606416D+00,
2396 + .509903D+00, .425815D+00, .353349D+00, .291174D+00,
2397 + .238116D+00, .193095D+00, .155144D+00, .123380D+00,
2398 + .970208D-01, .753488D-01, .576536D-01, .435208D-01,
2399 + .322118D-01, .233626D-01, .165549D-01, .114168D-01,
2400 + .762758D-02, .490379D-02, .301554D-02, .174724D-02,
2401 + .944592D-03, .465018D-03, .201859D-03, .731870D-04,
2402 + .202291D-04, .365370D-05, .325859D-06, .000000D+00 /
2403 DATA (UPDI(I),I=8737,8788) /
2404 + .219846D+07, .164786D+07, .121197D+07, .890810D+06,
2405 + .654347D+06, .480301D+06, .352325D+06, .258258D+06,
2406 + .189185D+06, .138485D+06, .101308D+06, .740591D+05,
2407 + .541073D+05, .395044D+05, .288277D+05, .210245D+05,
2408 + .153275D+05, .111695D+05, .813803D+04, .592834D+04,
2409 + .431929D+04, .314770D+04, .229537D+04, .167523D+04,
2410 + .122431D+04, .896237D+03, .657845D+03, .482189D+03,
2411 + .356391D+03, .264628D+03, .197606D+03, .148526D+03,
2412 + .112486D+03, .859883D+02, .663182D+02, .516759D+02,
2413 + .407078D+02, .324241D+02, .261155D+02, .212596D+02,
2414 + .174887D+02, .145209D+02, .121594D+02, .102576D+02,
2415 + .870866D+01, .743271D+01, .637484D+01, .548044D+01,
2416 + .472758D+01, .408120D+01, .352844D+01, .305144D+01 /
2417 DATA (UPDI(I),I=8789,8840) /
2418 + .263815D+01, .227892D+01, .196592D+01, .169282D+01,
2419 + .145432D+01, .124605D+01, .106427D+01, .905812D+00,
2420 + .767917D+00, .648214D+00, .544422D+00, .455201D+00,
2421 + .377956D+00, .311812D+00, .255429D+00, .207630D+00,
2422 + .167341D+00, .133609D+00, .105571D+00, .824691D-01,
2423 + .636125D-01, .483297D-01, .362171D-01, .266015D-01,
2424 + .191394D-01, .134484D-01, .919205D-02, .608304D-02,
2425 + .387100D-02, .235432D-02, .134769D-02, .718922D-03,
2426 + .348674D-03, .148816D-03, .529280D-04, .143222D-04,
2427 + .254018D-05, .229298D-06, .000000D+00, .268164D+07,
2428 + .200338D+07, .146764D+07, .107443D+07, .786035D+06,
2429 + .574602D+06, .419750D+06, .306387D+06, .223483D+06,
2430 + .162883D+06, .118632D+06, .863363D+05, .627907D+05 /
2431 DATA (UPDI(I),I=8841,8892) /
2432 + .456328D+05, .331436D+05, .240569D+05, .174531D+05,
2433 + .126557D+05, .917450D+04, .664918D+04, .481924D+04,
2434 + .349340D+04, .253372D+04, .183903D+04, .133653D+04,
2435 + .972846D+03, .709997D+03, .517376D+03, .380188D+03,
2436 + .280668D+03, .208378D+03, .155733D+03, .117284D+03,
2437 + .891675D+02, .684039D+02, .530262D+02, .415624D+02,
2438 + .329443D+02, .264090D+02, .213989D+02, .175226D+02,
2439 + .144827D+02, .120719D+02, .101367D+02, .856576D+01,
2440 + .727603D+01, .621049D+01, .531295D+01, .456044D+01,
2441 + .391708D+01, .336936D+01, .289893D+01, .249334D+01,
2442 + .214260D+01, .183862D+01, .157483D+01, .134575D+01,
2443 + .114685D+01, .974260D+00, .824700D+00, .695325D+00,
2444 + .583696D+00, .487493D+00, .405307D+00, .334599D+00 /
2445 DATA (UPDI(I),I=8893,8944) /
2446 + .274437D+00, .223484D+00, .180569D+00, .144637D+00,
2447 + .114757D+00, .900913D-01, .699111D-01, .535586D-01,
2448 + .404029D-01, .300560D-01, .219071D-01, .156356D-01,
2449 + .108938D-01, .737954D-02, .483714D-02, .304672D-02,
2450 + .183260D-02, .103636D-02, .545496D-03, .260638D-03,
2451 + .109379D-03, .381662D-04, .101143D-04, .176271D-05,
2452 + .161023D-06, .000000D+00, .449221D+05, .673987D+05,
2453 + .525112D+05, .409157D+05, .318839D+05, .248488D+05,
2454 + .193686D+05, .150995D+05, .117735D+05, .918218D+04,
2455 + .716304D+04, .558957D+04, .436328D+04, .340741D+04,
2456 + .266223D+04, .208118D+04, .162802D+04, .127451D+04,
2457 + .998665D+03, .783343D+03, .615201D+03, .483843D+03,
2458 + .381167D+03, .300861D+03, .238007D+03, .188770D+03 /
2459 DATA (UPDI(I),I=8945,8996) /
2460 + .150164D+03, .119479D+03, .957472D+02, .770618D+02,
2461 + .623225D+02, .506712D+02, .414377D+02, .341184D+02,
2462 + .282651D+02, .235798D+02, .198116D+02, .167641D+02,
2463 + .142839D+02, .122500D+02, .105714D+02, .917178D+01,
2464 + .799497D+01, .699646D+01, .614173D+01, .540403D+01,
2465 + .476475D+01, .420158D+01, .370879D+01, .327033D+01,
2466 + .288279D+01, .253810D+01, .223109D+01, .195743D+01,
2467 + .171349D+01, .149617D+01, .130276D+01, .113090D+01,
2468 + .978486D+00, .843608D+00, .724548D+00, .619737D+00,
2469 + .527740D+00, .447595D+00, .377283D+00, .316230D+00,
2470 + .263435D+00, .217984D+00, .179049D+00, .145876D+00,
2471 + .117784D+00, .941544D-01, .744172D-01, .580575D-01,
2472 + .447491D-01, .338820D-01, .251878D-01, .183315D-01 /
2473 DATA (UPDI(I),I=8997,9048) /
2474 + .130154D-01, .897495D-02, .597649D-02, .381768D-02,
2475 + .230840D-02, .130824D-02, .679239D-03, .312888D-03,
2476 + .121184D-03, .356809D-04, .636955D-05, .334388D-06,
2477 + .000000D+00, .120150D+06, .940886D+05, .728310D+05,
2478 + .563773D+05, .436453D+05, .337899D+05, .261634D+05,
2479 + .202597D+05, .156909D+05, .121540D+05, .941655D+04,
2480 + .729710D+04, .565652D+04, .438610D+04, .340252D+04,
2481 + .264067D+04, .205066D+04, .159349D+04, .123929D+04,
2482 + .964700D+03, .751834D+03, .586691D+03, .458557D+03,
2483 + .359048D+03, .281745D+03, .221627D+03, .174855D+03,
2484 + .137946D+03, .109621D+03, .874798D+02, .701505D+02,
2485 + .565506D+02, .458557D+02, .374384D+02, .307585D+02,
2486 + .254486D+02, .212098D+02, .178047D+02, .150535D+02 /
2487 DATA (UPDI(I),I=9049,9100) /
2488 + .128121D+02, .109754D+02, .945400D+01, .818377D+01,
2489 + .711313D+01, .620320D+01, .542316D+01, .475206D+01,
2490 + .416491D+01, .365487D+01, .320420D+01, .280868D+01,
2491 + .245928D+01, .215021D+01, .187654D+01, .163420D+01,
2492 + .141968D+01, .122995D+01, .106240D+01, .914701D+00,
2493 + .784771D+00, .670742D+00, .570954D+00, .483840D+00,
2494 + .408383D+00, .342544D+00, .285698D+00, .236810D+00,
2495 + .194961D+00, .159312D+00, .129114D+00, .103687D+00,
2496 + .824258D-01, .647783D-01, .502383D-01, .384864D-01,
2497 + .289541D-01, .213800D-01, .154507D-01, .108879D-01,
2498 + .744841D-02, .491709D-02, .311195D-02, .186231D-02,
2499 + .104467D-02, .536036D-03, .243618D-03, .928607D-04,
2500 + .268385D-04, .470897D-05, .250876D-06, .000000D+00 /
2501 DATA (UPDI(I),I=9101,9152) /
2502 + .164214D+06, .127965D+06, .984972D+05, .758109D+05,
2503 + .583533D+05, .449136D+05, .345723D+05, .266116D+05,
2504 + .204865D+05, .157717D+05, .121442D+05, .935185D+04,
2505 + .720346D+04, .554966D+04, .427717D+04, .329750D+04,
2506 + .254360D+04, .196306D+04, .151618D+04, .117194D+04,
2507 + .906844D+03, .702518D+03, .545055D+03, .423582D+03,
2508 + .329866D+03, .257482D+03, .201569D+03, .157751D+03,
2509 + .124365D+03, .984489D+02, .783126D+02, .626203D+02,
2510 + .503692D+02, .407942D+02, .332501D+02, .272942D+02,
2511 + .225732D+02, .188058D+02, .157828D+02, .133359D+02,
2512 + .113443D+02, .970505D+01, .834552D+01, .720693D+01,
2513 + .624572D+01, .542705D+01, .472743D+01, .411930D+01,
2514 + .359460D+01, .313398D+01, .273239D+01, .237992D+01 /
2515 DATA (UPDI(I),I=9153,9204) /
2516 + .207010D+01, .179751D+01, .155759D+01, .134650D+01,
2517 + .116091D+01, .997965D+00, .855141D+00, .730213D+00,
2518 + .621180D+00, .526298D+00, .443901D+00, .372917D+00,
2519 + .311308D+00, .258401D+00, .213143D+00, .174612D+00,
2520 + .141967D+00, .114468D+00, .914417D-01, .722993D-01,
2521 + .565063D-01, .435704D-01, .331804D-01, .248072D-01,
2522 + .181985D-01, .130618D-01, .913773D-02, .620332D-02,
2523 + .406120D-02, .254761D-02, .150976D-02, .836993D-03,
2524 + .423858D-03, .189810D-03, .711050D-04, .201425D-04,
2525 + .346805D-05, .187783D-06, .000000D+00, .219343D+06,
2526 + .170182D+06, .130336D+06, .998062D+05, .764277D+05,
2527 + .585176D+05, .448056D+05, .343030D+05, .262638D+05,
2528 + .201073D+05, .153956D+05, .117880D+05, .902737D+04 /
2529 DATA (UPDI(I),I=9205,9256) /
2530 + .691384D+04, .529669D+04, .405864D+04, .311137D+04,
2531 + .238611D+04, .183113D+04, .140614D+04, .108086D+04,
2532 + .831665D+03, .640823D+03, .494518D+03, .382368D+03,
2533 + .296302D+03, .230263D+03, .178849D+03, .139938D+03,
2534 + .109934D+03, .867805D+02, .688583D+02, .549619D+02,
2535 + .441741D+02, .357323D+02, .291118D+02, .238992D+02,
2536 + .197664D+02, .164719D+02, .138221D+02, .116791D+02,
2537 + .992625D+01, .848160D+01, .727922D+01, .627053D+01,
2538 + .541675D+01, .469173D+01, .406542D+01, .352845D+01,
2539 + .305999D+01, .265408D+01, .229999D+01, .199064D+01,
2540 + .172006D+01, .148332D+01, .127621D+01, .109515D+01,
2541 + .937072D+00, .799266D+00, .679379D+00, .575301D+00,
2542 + .485216D+00, .407381D+00, .340677D+00, .283078D+00 /
2543 DATA (UPDI(I),I=9257,9308) /
2544 + .233872D+00, .191997D+00, .156535D+00, .126647D+00,
2545 + .101606D+00, .807511D-01, .635110D-01, .493704D-01,
2546 + .378541D-01, .286605D-01, .212980D-01, .155248D-01,
2547 + .110684D-01, .768856D-02, .518050D-02, .336416D-02,
2548 + .209217D-02, .122810D-02, .673810D-03, .337283D-03,
2549 + .149099D-03, .550365D-04, .153395D-04, .260852D-05,
2550 + .143921D-06, .000000D+00, .185942D+06, .222079D+06,
2551 + .169304D+06, .129043D+06, .983507D+05, .749422D+05,
2552 + .571025D+05, .435013D+05, .331392D+05, .252415D+05,
2553 + .192265D+05, .146435D+05, .111540D+05, .849589D+04,
2554 + .647255D+04, .493157D+04, .375880D+04, .286569D+04,
2555 + .218603D+04, .166843D+04, .127451D+04, .974450D+03,
2556 + .745997D+03, .571887D+03, .439226D+03, .338035D+03 /
2557 DATA (UPDI(I),I=9309,9360) /
2558 + .260877D+03, .201180D+03, .156286D+03, .121890D+03,
2559 + .955186D+02, .752369D+02, .596131D+02, .475628D+02,
2560 + .381944D+02, .308943D+02, .251835D+02, .206841D+02,
2561 + .171198D+02, .142706D+02, .119804D+02, .101185D+02,
2562 + .859310D+01, .733109D+01, .627873D+01, .539326D+01,
2563 + .464583D+01, .400399D+01, .345702D+01, .298263D+01,
2564 + .257402D+01, .221965D+01, .191183D+01, .164413D+01,
2565 + .141120D+01, .120856D+01, .103236D+01, .879354D+00,
2566 + .746668D+00, .631837D+00, .532662D+00, .447262D+00,
2567 + .373838D+00, .311232D+00, .257441D+00, .211719D+00,
2568 + .173006D+00, .140388D+00, .113040D+00, .902455D-01,
2569 + .713623D-01, .558374D-01, .431760D-01, .329221D-01,
2570 + .247849D-01, .183084D-01, .132624D-01, .939353D-02 /
2571 DATA (UPDI(I),I=9361,9412) /
2572 + .647988D-02, .433403D-02, .279215D-02, .172174D-02,
2573 + .100126D-02, .543780D-03, .269117D-03, .117466D-03,
2574 + .427398D-04, .117277D-04, .197042D-05, .110728D-06,
2575 + .000000D+00, .391807D+06, .301437D+06, .228613D+06,
2576 + .173335D+06, .131402D+06, .995842D+05, .754597D+05,
2577 + .571640D+05, .432989D+05, .327888D+05, .248278D+05,
2578 + .187961D+05, .142294D+05, .107709D+05, .815363D+04,
2579 + .617227D+04, .467338D+04, .353901D+04, .268111D+04,
2580 + .203196D+04, .154110D+04, .116968D+04, .888779D+03,
2581 + .676164D+03, .515279D+03, .393425D+03, .301179D+03,
2582 + .230330D+03, .177441D+03, .137223D+03, .106617D+03,
2583 + .832592D+02, .654012D+02, .517342D+02, .411889D+02,
2584 + .330351D+02, .267040D+02, .217537D+02, .178608D+02 /
2585 DATA (UPDI(I),I=9413,9464) /
2586 + .147719D+02, .123068D+02, .103171D+02, .869851D+01,
2587 + .736889D+01, .626789D+01, .534803D+01, .457698D+01,
2588 + .391950D+01, .336310D+01, .288391D+01, .247400D+01,
2589 + .212093D+01, .181632D+01, .155317D+01, .132571D+01,
2590 + .112911D+01, .959251D+00, .812678D+00, .686363D+00,
2591 + .577718D+00, .484457D+00, .404636D+00, .336411D+00,
2592 + .278584D+00, .229194D+00, .187463D+00, .152341D+00,
2593 + .122927D+00, .984157D-01, .781125D-01, .613988D-01,
2594 + .477468D-01, .366874D-01, .277907D-01, .207802D-01,
2595 + .152411D-01, .109582D-01, .770069D-02, .526799D-02,
2596 + .349229D-02, .222834D-02, .135993D-02, .781850D-03,
2597 + .419283D-03, .204550D-03, .878256D-04, .313381D-04,
2598 + .840114D-05, .137768D-05, .782230D-07, .000000D+00 /
2599 DATA (UPDI(I),I=9465,9516) /
2600 + .523691D+06, .401216D+06, .302802D+06, .228451D+06,
2601 + .172313D+06, .129923D+06, .979379D+05, .738009D+05,
2602 + .556004D+05, .418746D+05, .315314D+05, .237362D+05,
2603 + .178658D+05, .134442D+05, .101165D+05, .761152D+04,
2604 + .572731D+04, .430965D+04, .324381D+04, .244221D+04,
2605 + .183975D+04, .138675D+04, .104630D+04, .790287D+03,
2606 + .597829D+03, .453036D+03, .344170D+03, .261136D+03,
2607 + .199585D+03, .153114D+03, .118002D+03, .913991D+02,
2608 + .712069D+02, .558671D+02, .441169D+02, .350979D+02,
2609 + .281454D+02, .227483D+02, .185339D+02, .152135D+02,
2610 + .125819D+02, .104724D+02, .876779D+01, .737707D+01,
2611 + .623318D+01, .528389D+01, .449350D+01, .382404D+01,
2612 + .326129D+01, .277988D+01, .237078D+01, .202076D+01 /
2613 DATA (UPDI(I),I=9517,9568) /
2614 + .172072D+01, .146321D+01, .124204D+01, .105209D+01,
2615 + .888989D+00, .749118D+00, .629311D+00, .526888D+00,
2616 + .439493D+00, .365140D+00, .301957D+00, .248719D+00,
2617 + .203516D+00, .165550D+00, .133787D+00, .107347D+00,
2618 + .854483D-01, .674217D-01, .526758D-01, .407095D-01,
2619 + .310811D-01, .233876D-01, .173681D-01, .126470D-01,
2620 + .902470D-02, .629179D-02, .426816D-02, .280432D-02,
2621 + .177224D-02, .107049D-02, .608531D-03, .322335D-03,
2622 + .155111D-03, .655878D-04, .230049D-04, .605462D-05,
2623 + .978964D-06, .568151D-07, .000000D+00, .687936D+06,
2624 + .524957D+06, .394352D+06, .296120D+06, .222286D+06,
2625 + .166788D+06, .125107D+06, .938009D+05, .703076D+05,
2626 + .526765D+05, .394558D+05, .295420D+05, .221141D+05 /
2627 DATA (UPDI(I),I=9569,9620) /
2628 + .165485D+05, .123817D+05, .926199D+04, .692810D+04,
2629 + .518186D+04, .387636D+04, .290016D+04, .217075D+04,
2630 + .162554D+04, .121828D+04, .913909D+03, .686528D+03,
2631 + .516546D+03, .389575D+03, .293374D+03, .222541D+03,
2632 + .169425D+03, .129566D+03, .995769D+02, .769718D+02,
2633 + .599197D+02, .469484D+02, .370623D+02, .294936D+02,
2634 + .236590D+02, .191337D+02, .155925D+02, .128042D+02,
2635 + .105838D+02, .880128D+01, .735640D+01, .617556D+01,
2636 + .520193D+01, .439647D+01, .371865D+01, .315254D+01,
2637 + .267138D+01, .226512D+01, .191974D+01, .162556D+01,
2638 + .137466D+01, .116051D+01, .977713D+00, .821716D+00,
2639 + .688746D+00, .575530D+00, .479316D+00, .397706D+00,
2640 + .328680D+00, .270362D+00, .221509D+00, .180272D+00 /
2641 DATA (UPDI(I),I=9621,9672) /
2642 + .145841D+00, .117206D+00, .935125D-01, .740080D-01,
2643 + .580515D-01, .450812D-01, .346241D-01, .262663D-01,
2644 + .196331D-01, .144800D-01, .104681D-01, .741355D-02,
2645 + .512756D-02, .344922D-02, .224605D-02, .140583D-02,
2646 + .840450D-03, .472396D-03, .247159D-03, .117323D-03,
2647 + .488626D-04, .168522D-04, .435720D-05, .695445D-06,
2648 + .412640D-07, .000000D+00, .890053D+06, .676605D+06,
2649 + .505998D+06, .378234D+06, .282621D+06, .211069D+06,
2650 + .157571D+06, .117572D+06, .876938D+05, .653758D+05,
2651 + .487200D+05, .362906D+05, .270235D+05, .201144D+05,
2652 + .149680D+05, .111346D+05, .828183D+04, .615874D+04,
2653 + .458007D+04, .340611D+04, .253385D+04, .188559D+04,
2654 + .140415D+04, .104648D+04, .780880D+03, .583538D+03 /
2655 DATA (UPDI(I),I=9673,9724) /
2656 + .437051D+03, .326772D+03, .246097D+03, .185997D+03,
2657 + .141191D+03, .107706D+03, .826336D+02, .638479D+02,
2658 + .496533D+02, .389078D+02, .307356D+02, .244776D+02,
2659 + .196553D+02, .159062D+02, .129729D+02, .106517D+02,
2660 + .879978D+01, .730803D+01, .609638D+01, .510353D+01,
2661 + .428726D+01, .360460D+01, .303799D+01, .255941D+01,
2662 + .215785D+01, .181858D+01, .153139D+01, .128795D+01,
2663 + .108142D+01, .906200D+00, .757560D+00, .631612D+00,
2664 + .525007D+00, .434941D+00, .358990D+00, .295123D+00,
2665 + .241472D+00, .196787D+00, .159287D+00, .128160D+00,
2666 + .102425D+00, .812589D-01, .639401D-01, .498588D-01,
2667 + .384848D-01, .293742D-01, .221412D-01, .164394D-01,
2668 + .120412D-01, .864218D-02, .607417D-02, .416779D-02 /
2669 DATA (UPDI(I),I=9725,9776) /
2670 + .278004D-02, .179412D-02, .111218D-02, .658062D-03,
2671 + .365725D-03, .189006D-03, .885060D-04, .363095D-04,
2672 + .123161D-04, .312950D-05, .493249D-06, .299129D-07,
2673 + .000000D+00, .113591D+07, .860326D+06, .640607D+06,
2674 + .476754D+06, .354650D+06, .263666D+06, .195934D+06,
2675 + .145517D+06, .108023D+06, .801444D+05, .594342D+05,
2676 + .440516D+05, .326368D+05, .241677D+05, .178900D+05,
2677 + .132373D+05, .979231D+04, .724166D+04, .535498D+04,
2678 + .395945D+04, .292816D+04, .216594D+04, .160304D+04,
2679 + .118723D+04, .880248D+03, .653499D+03, .486198D+03,
2680 + .361026D+03, .270026D+03, .202661D+03, .152755D+03,
2681 + .115700D+03, .881313D+02, .676098D+02, .522032D+02,
2682 + .406160D+02, .318597D+02, .251972D+02, .200953D+02 /
2683 DATA (UPDI(I),I=9777,9828) /
2684 + .161534D+02, .130878D+02, .106768D+02, .876452D+01,
2685 + .723342D+01, .599718D+01, .499022D+01, .416727D+01,
2686 + .348317D+01, .291878D+01, .244497D+01, .204980D+01,
2687 + .171796D+01, .143874D+01, .120348D+01, .100507D+01,
2688 + .837735D+00, .696620D+00, .577746D+00, .477711D+00,
2689 + .393685D+00, .323236D+00, .264334D+00, .215134D+00,
2690 + .174392D+00, .140397D+00, .112343D+00, .892861D-01,
2691 + .704348D-01, .551034D-01, .427145D-01, .327706D-01,
2692 + .248569D-01, .186161D-01, .137296D-01, .998709D-02,
2693 + .711601D-02, .496359D-02, .337862D-02, .223465D-02,
2694 + .142922D-02, .877461D-03, .513836D-03, .282361D-03,
2695 + .144139D-03, .665868D-04, .269110D-04, .897956D-05,
2696 + .224313D-05, .349239D-06, .216406D-07, .000000D+00 /
2697 DATA (UPDI(I),I=9829,9880) /
2698 + .143165D+07, .108045D+07, .801120D+06, .593668D+06,
2699 + .439709D+06, .325469D+06, .240783D+06, .178017D+06,
2700 + .131543D+06, .971396D+05, .716964D+05, .528844D+05,
2701 + .389890D+05, .287278D+05, .211579D+05, .155746D+05,
2702 + .114608D+05, .843018D+04, .619985D+04, .455865D+04,
2703 + .335216D+04, .246522D+04, .181376D+04, .133519D+04,
2704 + .983873D+03, .725840D+03, .536570D+03, .395804D+03,
2705 + .294084D+03, .219242D+03, .164135D+03, .123472D+03,
2706 + .934061D+02, .711661D+02, .545727D+02, .421709D+02,
2707 + .328564D+02, .258128D+02, .204512D+02, .163334D+02,
2708 + .131497D+02, .106602D+02, .869709D+01, .713430D+01,
2709 + .587966D+01, .486358D+01, .403798D+01, .335566D+01,
2710 + .279603D+01, .232898D+01, .194175D+01, .161849D+01 /
2711 DATA (UPDI(I),I=9881,9932) /
2712 + .134809D+01, .112159D+01, .931691D+00, .772463D+00,
2713 + .638961D+00, .527148D+00, .433594D+00, .355460D+00,
2714 + .290324D+00, .236174D+00, .191198D+00, .154164D+00,
2715 + .123442D+00, .982351D-01, .776396D-01, .609006D-01,
2716 + .473691D-01, .365019D-01, .278342D-01, .209807D-01,
2717 + .156120D-01, .114368D-01, .826174D-02, .584391D-02,
2718 + .404528D-02, .273152D-02, .179139D-02, .113543D-02,
2719 + .690374D-03, .400109D-03, .217395D-03, .109619D-03,
2720 + .499603D-04, .198932D-04, .653119D-05, .160450D-05,
2721 + .246846D-06, .156243D-07, .000000D+00, .178358D+07,
2722 + .134137D+07, .990490D+06, .730946D+06, .539102D+06,
2723 + .397333D+06, .292672D+06, .215429D+06, .158476D+06,
2724 + .116498D+06, .855884D+05, .628360D+05, .461056D+05 /
2725 DATA (UPDI(I),I=9933,9984) /
2726 + .338072D+05, .247764D+05, .181470D+05, .132857D+05,
2727 + .972186D+04, .711202D+04, .520121D+04, .380368D+04,
2728 + .278162D+04, .203487D+04, .148925D+04, .109088D+04,
2729 + .799908D+03, .587684D+03, .430759D+03, .318024D+03,
2730 + .235565D+03, .175209D+03, .130939D+03, .984033D+02,
2731 + .744813D+02, .567395D+02, .435592D+02, .337185D+02,
2732 + .263208D+02, .207220D+02, .164468D+02, .131597D+02,
2733 + .106039D+02, .859942D+01, .701258D+01, .574564D+01,
2734 + .472530D+01, .390087D+01, .322335D+01, .267082D+01,
2735 + .221235D+01, .183441D+01, .152073D+01, .125985D+01,
2736 + .104259D+01, .861483D+00, .710493D+00, .584621D+00,
2737 + .479797D+00, .392587D+00, .320164D+00, .260129D+00,
2738 + .210501D+00, .169511D+00, .135951D+00, .108269D+00 /
2739 DATA (UPDI(I),I=9985,10036) /
2740 + .856883D-01, .673463D-01, .525268D-01, .406193D-01,
2741 + .311148D-01, .235818D-01, .176640D-01, .130591D-01,
2742 + .950234D-02, .681667D-02, .478661D-02, .328812D-02,
2743 + .220245D-02, .143217D-02, .899569D-03, .541688D-03,
2744 + .310695D-03, .166915D-03, .831378D-04, .373847D-04,
2745 + .146675D-04, .473915D-05, .114534D-05, .174175D-06,
2746 + .112581D-07, .000000D+00, .219801D+07, .164745D+07,
2747 + .121162D+07, .890494D+06, .654066D+06, .480052D+06,
2748 + .352105D+06, .258062D+06, .189012D+06, .138331D+06,
2749 + .101172D+06, .739389D+05, .540011D+05, .394104D+05,
2750 + .287446D+05, .209511D+05, .152627D+05, .111123D+05,
2751 + .808752D+04, .588374D+04, .427992D+04, .311293D+04,
2752 + .226466D+04, .164809D+04, .120032D+04, .875000D+03 /
2753 DATA (UPDI(I),I=10037,10088) /
2754 + .639034D+03, .465533D+03, .341594D+03, .251459D+03,
2755 + .185861D+03, .138027D+03, .103073D+03, .775243D+02,
2756 + .586851D+02, .447707D+02, .344408D+02, .267195D+02,
2757 + .209081D+02, .164949D+02, .131200D+02, .105098D+02,
2758 + .847368D+01, .687033D+01, .559702D+01, .457704D+01,
2759 + .375739D+01, .308748D+01, .254418D+01, .209590D+01,
2760 + .172845D+01, .142519D+01, .117440D+01, .966732D+00,
2761 + .794592D+00, .651891D+00, .533600D+00, .435643D+00,
2762 + .354603D+00, .287680D+00, .232517D+00, .187169D+00,
2763 + .149924D+00, .119601D+00, .947329D-01, .745634D-01,
2764 + .582757D-01, .451937D-01, .347456D-01, .264572D-01,
2765 + .199294D-01, .148343D-01, .108961D-01, .787489D-02,
2766 + .560986D-02, .391041D-02, .266567D-02, .177115D-02 /
2767 DATA (UPDI(I),I=10089,10140) /
2768 + .114193D-02, .710785D-03, .423873D-03, .240606D-03,
2769 + .127809D-03, .628838D-04, .279007D-04, .107872D-04,
2770 + .343084D-05, .815938D-06, .122694D-06, .809612D-08,
2771 + .000000D+00, .268116D+07, .200295D+07, .146726D+07,
2772 + .107409D+07, .785737D+06, .574337D+06, .419516D+06,
2773 + .306179D+06, .223299D+06, .162720D+06, .118488D+06,
2774 + .862089D+05, .626780D+05, .455333D+05, .330557D+05,
2775 + .239792D+05, .173845D+05, .125952D+05, .912103D+04,
2776 + .660198D+04, .477757D+04, .345661D+04, .250123D+04,
2777 + .181032D+04, .131115D+04, .950384D+03, .690105D+03,
2778 + .499769D+03, .364553D+03, .266760D+03, .195983D+03,
2779 + .144664D+03, .107373D+03, .802695D+02, .603951D+02,
2780 + .457980D+02, .350207D+02, .270088D+02, .210108D+02 /
2781 DATA (UPDI(I),I=10141,10192) /
2782 + .164799D+02, .130329D+02, .103807D+02, .832228D+01,
2783 + .670975D+01, .543573D+01, .442050D+01, .360896D+01,
2784 + .294923D+01, .241708D+01, .198041D+01, .162444D+01,
2785 + .133229D+01, .109204D+01, .894199D+00, .731123D+00,
2786 + .596690D+00, .485873D+00, .394616D+00, .319539D+00,
2787 + .257885D+00, .207346D+00, .166032D+00, .132288D+00,
2788 + .104970D+00, .826925D-01, .647283D-01, .503061D-01,
2789 + .387908D-01, .296493D-01, .224419D-01, .168013D-01,
2790 + .124271D-01, .906863D-02, .650973D-02, .460498D-02,
2791 + .318640D-02, .215546D-02, .142060D-02, .908113D-03,
2792 + .560132D-03, .330800D-03, .185831D-03, .976042D-04,
2793 + .474388D-04, .207691D-04, .791394D-05, .247813D-05,
2794 + .580147D-06, .862900D-07, .581116D-08, .000000D+00 /
2795 C-----------------------------------------------------------------------
2801 Amass(I) = AmassI(I)
2823 QL(Iq) = Log (QL(Iq) /Al)
2826 C Since quark = anti-quark for nfl>2 at this stage,
2827 C we Read out only the non-redundent data points
2828 C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence)
2830 Nblk = (NX+1) * (NT+1)
2831 Npts = Nblk * (NfMx+3)
2837 C ****************************
git://git.uio.no / u / mrichter / AliRoot.git / blob