]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/ctq4RlQ.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / PDF / spdf / ctq4RlQ.F
CommitLineData
fe4da5cc 1C-----------------------------------------------------------------------
2#include "pdf/pilot.h"
3 Subroutine Ctq4RlQ (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
11 DIMENSION Amass(6)
12 PARAMETER (NSETS=10)
13 DIMENSION
14 > XVI(0:MXX),QLI(0:MXQ),UPDI(MXPQX),
15 > AmassI(6)
16C
17C-----------------------------------------------------------------------
18C Parton Distribution Table : CTEQ4LQ
19C PARAMETER (ISET=10)
20 DATA DrI, FlI, AlI / 2., 5., .1740 /
21 DATA (AmassI(I),I=1,6) / .000, .000, .200,
22 + 1.600, 5.000, 180.000 /
23C DATA NXI, NTI, NfMxI / 90, 13, 5 /
24 DATA QINII, QMAXI, (QLI(I), I =0, NTI) /
25 + .700000D+00, .100000D+05,
26 + .700000D+00, .884564D+00, .116264D+01, .160000D+01, .222267D+01,
27 + .324176D+01, .500000D+01, .927769D+01, .192899D+02, .458922D+02,
28 + .128067D+03, .431700D+03, .182002D+04, .100000D+05 /
29 DATA XMINI, (XVI(I), I =0, NXI) /
30 + .100000D-04,
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,
49 + .100000D+01 /
50C 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 + .000000D+00, .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, .000000D+00,
174 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
175 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
176 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
177 DATA (UPDI(I),I=469,520) /
178 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
179 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
180 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
181 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
182 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
183 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
184 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
185 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
186 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
187 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
188 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
189 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
190 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
191 DATA (UPDI(I),I=521,572) /
192 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
193 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
194 + .000000D+00, .000000D+00, .000000D+00, .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, .268222D+06, .000000D+00,
199 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
200 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
201 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
202 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
203 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
204 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
205 DATA (UPDI(I),I=573,624) /
206 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
207 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
208 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
209 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
210 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
211 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
212 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
213 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
214 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
215 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
216 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
217 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
218 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
219 DATA (UPDI(I),I=625,676) /
220 + .000000D+00, .000000D+00, .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, .149294D+06, .113339D+06, .846097D+05,
224 + .631068D+05, .470361D+05, .350228D+05, .260582D+05,
225 + .193676D+05, .143832D+05, .106694D+05, .790762D+04,
226 + .585362D+04, .432904D+04, .319738D+04, .235913D+04,
227 + .173822D+04, .127932D+04, .940155D+03, .690086D+03,
228 + .505722D+03, .370145D+03, .270457D+03, .197347D+03,
229 + .143747D+03, .104550D+03, .759118D+02, .550575D+02,
230 + .396746D+02, .286866D+02, .207067D+02, .149336D+02,
231 + .107558D+02, .774303D+01, .557586D+01, .401415D+01,
232 + .289103D+01, .208601D+01, .150750D+01, .109292D+01 /
233 DATA (UPDI(I),I=677,728) /
234 + .794561D+00, .580489D+00, .425739D+00, .313855D+00,
235 + .232399D+00, .173028D+00, .129346D+00, .972718D-01,
236 + .732251D-01, .554518D-01, .419793D-01, .318816D-01,
237 + .242129D-01, .184010D-01, .139648D-01, .105886D-01,
238 + .800264D-02, .603087D-02, .452310D-02, .337855D-02,
239 + .250658D-02, .184855D-02, .135120D-02, .979048D-03,
240 + .702392D-03, .496490D-03, .344673D-03, .234483D-03,
241 + .154942D-03, .986197D-04, .590604D-04, .320532D-04,
242 + .139006D-04, .221766D-05, .000000D+00, .000000D+00,
243 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
244 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
245 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
246 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
247 DATA (UPDI(I),I=729,780) /
248 + .344401D+06, .260641D+06, .193861D+06, .144061D+06,
249 + .106975D+06, .793545D+05, .588182D+05, .435494D+05,
250 + .322162D+05, .238048D+05, .175731D+05, .129567D+05,
251 + .954329D+04, .701985D+04, .515800D+04, .378457D+04,
252 + .277356D+04, .202953D+04, .148319D+04, .108215D+04,
253 + .788478D+03, .573505D+03, .416535D+03, .301976D+03,
254 + .218583D+03, .157933D+03, .113972D+03, .817071D+02,
255 + .587708D+02, .421990D+02, .302682D+02, .216802D+02,
256 + .155182D+02, .111101D+02, .794996D+01, .569033D+01,
257 + .407938D+01, .292866D+01, .210864D+01, .152218D+01,
258 + .110386D+01, .803438D+00, .587597D+00, .431561D+00,
259 + .318592D+00, .236102D+00, .175974D+00, .131274D+00,
260 + .984874D-01, .738616D-01, .555630D-01, .417995D-01 /
261 DATA (UPDI(I),I=781,832) /
262 + .314636D-01, .236526D-01, .177643D-01, .133010D-01,
263 + .993205D-02, .738315D-02, .546776D-02, .402434D-02,
264 + .294634D-02, .214044D-02, .154376D-02, .110490D-02,
265 + .781810D-03, .546161D-03, .376862D-03, .255799D-03,
266 + .170740D-03, .111310D-03, .707510D-04, .432778D-04,
267 + .251725D-04, .135234D-04, .638757D-05, .211572D-05,
268 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
269 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
270 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
271 + .000000D+00, .000000D+00, .000000D+00, .595281D+06,
272 + .449051D+06, .332729D+06, .246314D+06, .182197D+06,
273 + .134631D+06, .993977D+05, .733041D+05, .540105D+05,
274 + .397482D+05, .292228D+05, .214576D+05, .157387D+05 /
275 DATA (UPDI(I),I=833,884) /
276 + .115285D+05, .843468D+04, .616217D+04, .449627D+04,
277 + .327561D+04, .238310D+04, .173087D+04, .125533D+04,
278 + .908822D+03, .656939D+03, .473973D+03, .341402D+03,
279 + .245439D+03, .176217D+03, .125668D+03, .899120D+02,
280 + .642128D+02, .458029D+02, .326230D+02, .232152D+02,
281 + .165226D+02, .117504D+02, .835796D+01, .595276D+01,
282 + .424518D+01, .303534D+01, .217561D+01, .156603D+01,
283 + .113117D+01, .820751D+00, .597941D+00, .437726D+00,
284 + .321626D+00, .237620D+00, .175693D+00, .130618D+00,
285 + .970673D-01, .723466D-01, .539281D-01, .402183D-01,
286 + .299578D-01, .222932D-01, .165415D-01, .122412D-01,
287 + .902064D-02, .662305D-02, .483475D-02, .351174D-02,
288 + .253274D-02, .181469D-02, .129166D-02, .910242D-03 /
289 DATA (UPDI(I),I=885,936) /
290 + .634796D-03, .438660D-03, .299648D-03, .202691D-03,
291 + .135395D-03, .896163D-04, .586115D-04, .380300D-04,
292 + .245491D-04, .159632D-04, .104447D-04, .699907D-05,
293 + .482025D-05, .344493D-05, .253126D-05, .190473D-05,
294 + .143474D-05, .106599D-05, .763182D-06, .515425D-06,
295 + .318182D-06, .171458D-06, .739045D-07, .209272D-07,
296 + .211150D-08, .000000D+00, .913142D+06, .686542D+06,
297 + .506704D+06, .373630D+06, .275272D+06, .202593D+06,
298 + .148968D+06, .109415D+06, .802846D+05, .588393D+05,
299 + .430770D+05, .314966D+05, .230032D+05, .167770D+05,
300 + .122209D+05, .888895D+04, .645683D+04, .468267D+04,
301 + .339114D+04, .245161D+04, .176968D+04, .127509D+04,
302 + .917226D+03, .658518D+03, .471959D+03, .337569D+03 /
303 DATA (UPDI(I),I=937,988) /
304 + .241103D+03, .171023D+03, .121703D+03, .864429D+02,
305 + .613132D+02, .434212D+02, .307176D+02, .217317D+02,
306 + .153591D+02, .108557D+02, .768100D+01, .544099D+01,
307 + .386330D+01, .274936D+01, .196439D+01, .140817D+01,
308 + .101372D+01, .732624D+00, .531891D+00, .387535D+00,
309 + .283856D+00, .208060D+00, .153311D+00, .112921D+00,
310 + .834089D-01, .616223D-01, .455453D-01, .336259D-01,
311 + .248008D-01, .182421D-01, .133832D-01, .977950D-02,
312 + .712067D-02, .515684D-02, .371693D-02, .266171D-02,
313 + .189453D-02, .134079D-02, .940486D-03, .654044D-03,
314 + .451716D-03, .309469D-03, .210891D-03, .142874D-03,
315 + .967254D-04, .654793D-04, .446212D-04, .307744D-04,
316 + .217108D-04, .156266D-04, .115463D-04, .870555D-05 /
317 DATA (UPDI(I),I=989,1040) /
318 + .666564D-05, .511872D-05, .390751D-05, .292289D-05,
319 + .211412D-05, .145779D-05, .939245D-06, .549691D-06,
320 + .278853D-06, .112495D-06, .299440D-07, .308051D-08,
321 + .000000D+00, .130987D+07, .981482D+06, .721477D+06,
322 + .529855D+06, .388782D+06, .284963D+06, .208668D+06,
323 + .152625D+06, .111520D+06, .813848D+05, .593273D+05,
324 + .431912D+05, .314064D+05, .228048D+05, .165377D+05,
325 + .119747D+05, .865858D+04, .625055D+04, .450545D+04,
326 + .324184D+04, .232890D+04, .166989D+04, .119531D+04,
327 + .853889D+03, .608879D+03, .433249D+03, .307812D+03,
328 + .217162D+03, .153695D+03, .108563D+03, .765664D+02,
329 + .539111D+02, .379124D+02, .266603D+02, .187250D+02,
330 + .131506D+02, .924355D+01, .650389D+01, .458591D+01 /
331 DATA (UPDI(I),I=1041,1092) /
332 + .324043D+01, .229821D+01, .163508D+01, .116793D+01,
333 + .837395D+00, .603007D+00, .435722D+00, .316468D+00,
334 + .229992D+00, .168009D+00, .122678D+00, .898270D-01,
335 + .657921D-01, .482062D-01, .352863D-01, .258028D-01,
336 + .188200D-01, .136928D-01, .992523D-02, .716949D-02,
337 + .515295D-02, .368702D-02, .262254D-02, .185503D-02,
338 + .130581D-02, .911986D-03, .632554D-03, .436615D-03,
339 + .299848D-03, .205583D-03, .140851D-03, .969937D-04,
340 + .672710D-04, .473017D-04, .338654D-04, .248559D-04,
341 + .185979D-04, .141929D-04, .109562D-04, .849433D-05,
342 + .654236D-05, .496238D-05, .366481D-05, .260113D-05,
343 + .175286D-05, .109892D-05, .623140D-06, .304610D-06,
344 + .117674D-06, .299865D-07, .312707D-08, .000000D+00 /
345 DATA (UPDI(I),I=1093,1144) /
346 + .179769D+07, .134239D+07, .982750D+06, .718781D+06,
347 + .525226D+06, .383372D+06, .279550D+06, .203607D+06,
348 + .148135D+06, .107641D+06, .781264D+05, .566283D+05,
349 + .409946D+05, .296342D+05, .213931D+05, .154198D+05,
350 + .110982D+05, .797436D+04, .572083D+04, .409672D+04,
351 + .292878D+04, .208975D+04, .148841D+04, .105792D+04,
352 + .750506D+03, .531239D+03, .375431D+03, .263424D+03,
353 + .185416D+03, .130242D+03, .913324D+02, .639360D+02,
354 + .446949D+02, .312400D+02, .218047D+02, .152161D+02,
355 + .106251D+02, .742584D+01, .519975D+01, .364819D+01,
356 + .256852D+01, .181376D+01, .128562D+01, .914588D+00,
357 + .653324D+00, .468250D+00, .337295D+00, .243090D+00,
358 + .176085D+00, .127493D+00, .925642D-01, .672304D-01 /
359 DATA (UPDI(I),I=1145,1196) /
360 + .488476D-01, .354605D-01, .257166D-01, .186061D-01,
361 + .134295D-01, .965955D-02, .692495D-02, .494155D-02,
362 + .351151D-02, .248205D-02, .174562D-02, .122288D-02,
363 + .850879D-03, .588966D-03, .406513D-03, .279954D-03,
364 + .193111D-03, .133679D-03, .934122D-04, .660520D-04,
365 + .475234D-04, .348753D-04, .261996D-04, .199964D-04,
366 + .154703D-04, .120285D-04, .932879D-05, .714791D-05,
367 + .536571D-05, .390751D-05, .272473D-05, .179879D-05,
368 + .110113D-05, .607401D-06, .287426D-06, .106867D-06,
369 + .262025D-07, .276624D-08, .000000D+00, .238877D+07,
370 + .177762D+07, .129602D+07, .943994D+06, .686917D+06,
371 + .499289D+06, .362534D+06, .262921D+06, .190465D+06,
372 + .137800D+06, .995771D+05, .718578D+05, .517873D+05 /
373 DATA (UPDI(I),I=1197,1248) /
374 + .372675D+05, .267811D+05, .192148D+05, .137653D+05,
375 + .984434D+04, .702879D+04, .500920D+04, .356369D+04,
376 + .253025D+04, .179315D+04, .126807D+04, .894974D+03,
377 + .630181D+03, .442988D+03, .309128D+03, .216392D+03,
378 + .151154D+03, .105394D+03, .733523D+02, .509730D+02,
379 + .354131D+02, .245637D+02, .170326D+02, .118158D+02,
380 + .820295D+01, .570446D+01, .397421D+01, .277785D+01,
381 + .194712D+01, .136971D+01, .966924D+00, .685286D+00,
382 + .487251D+00, .348160D+00, .248883D+00, .178806D+00,
383 + .128404D+00, .924623D-01, .666125D-01, .480071D-01,
384 + .345725D-01, .248740D-01, .178572D-01, .127911D-01,
385 + .913280D-02, .650051D-02, .460735D-02, .325308D-02,
386 + .228611D-02, .159953D-02, .111585D-02, .774054D-03 /
387 DATA (UPDI(I),I=1249,1300) /
388 + .535094D-03, .369595D-03, .255403D-03, .177308D-03,
389 + .123970D-03, .877768D-04, .630781D-04, .461925D-04,
390 + .344883D-04, .262864D-04, .202751D-04, .157686D-04,
391 + .122637D-04, .946799D-05, .719397D-05, .533613D-05,
392 + .382971D-05, .262449D-05, .169869D-05, .101654D-05,
393 + .546247D-06, .250664D-06, .899072D-07, .212745D-07,
394 + .227236D-08, .000000D+00, .000000D+00, .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, .000000D+00, .000000D+00, .000000D+00,
420 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
421 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
422 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
423 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
424 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
425 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
426 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
427 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
428 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
429 DATA (UPDI(I),I=1405,1456) /
430 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
431 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
432 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
433 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
434 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
435 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
436 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
437 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
438 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
439 + .000000D+00, .000000D+00, .000000D+00, .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 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
445 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
446 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
447 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
448 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
449 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
450 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
451 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
452 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
453 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
454 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
455 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
456 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
457 DATA (UPDI(I),I=1509,1560) /
458 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
459 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
460 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
461 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
462 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
463 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
464 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
465 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
466 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
467 + .000000D+00, .000000D+00, .000000D+00, .841827D+05,
468 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
469 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
470 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
471 DATA (UPDI(I),I=1561,1612) /
472 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
473 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
474 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
475 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
476 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
477 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
478 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
479 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
480 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
481 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
482 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
483 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
484 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
485 DATA (UPDI(I),I=1613,1664) /
486 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
487 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
488 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
489 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
490 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
491 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
492 + .000000D+00, .000000D+00, .527622D+05, .406569D+05,
493 + .308831D+05, .234407D+05, .177827D+05, .134789D+05,
494 + .102110D+05, .772836D+04, .584581D+04, .441753D+04,
495 + .333602D+04, .251665D+04, .189719D+04, .142859D+04,
496 + .107490D+04, .807799D+03, .606563D+03, .454856D+03,
497 + .340785D+03, .254960D+03, .190570D+03, .142229D+03,
498 + .106043D+03, .789389D+02, .586987D+02, .435841D+02 /
499 DATA (UPDI(I),I=1665,1716) /
500 + .323388D+02, .238542D+02, .176578D+02, .130520D+02,
501 + .964505D+01, .712024D+01, .525765D+01, .388473D+01,
502 + .287240D+01, .212582D+01, .157802D+01, .117400D+01,
503 + .877444D+00, .658181D+00, .496904D+00, .376959D+00,
504 + .287911D+00, .221060D+00, .170921D+00, .132769D+00,
505 + .103854D+00, .813559D-01, .641465D-01, .505638D-01,
506 + .399916D-01, .316134D-01, .250081D-01, .197426D-01,
507 + .155701D-01, .122303D-01, .957678D-02, .745791D-02,
508 + .578432D-02, .445384D-02, .340995D-02, .258800D-02,
509 + .194899D-02, .145544D-02, .107375D-02, .780923D-03,
510 + .560102D-03, .394280D-03, .272104D-03, .182446D-03,
511 + .118240D-03, .725658D-04, .411182D-04, .196798D-04,
512 + .595311D-05, .000000D+00, .000000D+00, .000000D+00 /
513 DATA (UPDI(I),I=1717,1768) /
514 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
515 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
516 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
517 + .000000D+00, .122362D+06, .939935D+05, .711393D+05,
518 + .537997D+05, .406641D+05, .307091D+05, .231773D+05,
519 + .174767D+05, .131696D+05, .991426D+04, .745832D+04,
520 + .560483D+04, .420874D+04, .315681D+04, .236584D+04,
521 + .177088D+04, .132435D+04, .989103D+03, .738005D+03,
522 + .549866D+03, .409275D+03, .304171D+03, .225811D+03,
523 + .167373D+03, .123914D+03, .916009D+02, .676603D+02,
524 + .496798D+02, .366043D+02, .269312D+02, .198059D+02,
525 + .145510D+02, .106910D+02, .785972D+01, .578096D+01,
526 + .425569D+01, .314130D+01, .232370D+01, .172618D+01 /
527 DATA (UPDI(I),I=1769,1820) /
528 + .128677D+01, .965011D+00, .727056D+00, .551245D+00,
529 + .420072D+00, .322204D+00, .248245D+00, .192527D+00,
530 + .149520D+00, .116838D+00, .912742D-01, .715313D-01,
531 + .560362D-01, .439239D-01, .343650D-01, .268581D-01,
532 + .209120D-01, .162331D-01, .125365D-01, .964414D-02,
533 + .736939D-02, .560180D-02, .422462D-02, .316444D-02,
534 + .235357D-02, .173276D-02, .126135D-02, .909270D-03,
535 + .647304D-03, .455834D-03, .316296D-03, .216795D-03,
536 + .146062D-03, .969883D-04, .629969D-04, .403821D-04,
537 + .251828D-04, .154079D-04, .911720D-05, .524585D-05,
538 + .286959D-05, .149962D-05, .711948D-06, .306614D-06,
539 + .100808D-06, .172526D-07, .000000D+00, .000000D+00,
540 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
541 DATA (UPDI(I),I=1821,1872) /
542 + .225588D+06, .162506D+06, .122549D+06, .923431D+05,
543 + .695416D+05, .523243D+05, .393447D+05, .295572D+05,
544 + .221892D+05, .166413D+05, .124711D+05, .933598D+04,
545 + .698332D+04, .521752D+04, .389480D+04, .290379D+04,
546 + .216289D+04, .160886D+04, .119552D+04, .887092D+03,
547 + .657523D+03, .486620D+03, .359718D+03, .265485D+03,
548 + .195694D+03, .144027D+03, .105906D+03, .774059D+02,
549 + .567692D+02, .415737D+02, .304281D+02, .222474D+02,
550 + .162641D+02, .118970D+02, .870453D+01, .637388D+01,
551 + .467853D+01, .344118D+01, .254095D+01, .188252D+01,
552 + .140259D+01, .104966D+01, .790192D+00, .597792D+00,
553 + .455005D+00, .347829D+00, .267569D+00, .206097D+00,
554 + .159683D+00, .123688D+00, .960958D-01, .746381D-01 /
555 DATA (UPDI(I),I=1873,1924) /
556 + .579993D-01, .449917D-01, .348616D-01, .269161D-01,
557 + .207193D-01, .158715D-01, .121111D-01, .918302D-02,
558 + .692740D-02, .518707D-02, .385895D-02, .285222D-02,
559 + .208823D-02, .151358D-02, .108799D-02, .774089D-03,
560 + .546364D-03, .381674D-03, .264888D-03, .182272D-03,
561 + .124999D-03, .852675D-04, .585411D-04, .402422D-04,
562 + .280221D-04, .196932D-04, .140519D-04, .100949D-04,
563 + .730397D-05, .523992D-05, .370172D-05, .252567D-05,
564 + .163867D-05, .981175D-06, .521386D-06, .226757D-06,
565 + .665588D-07, .663982D-08, .000000D+00, .355526D+06,
566 + .271218D+06, .203634D+06, .152771D+06, .114538D+06,
567 + .857981D+05, .642244D+05, .480309D+05, .358930D+05,
568 + .267959D+05, .199879D+05, .148937D+05, .110880D+05 /
569 DATA (UPDI(I),I=1925,1976) /
570 + .824526D+04, .612541D+04, .454496D+04, .336876D+04,
571 + .249362D+04, .184374D+04, .136127D+04, .100386D+04,
572 + .739160D+03, .543559D+03, .399079D+03, .292605D+03,
573 + .214196D+03, .156640D+03, .113847D+03, .830228D+02,
574 + .604563D+02, .439890D+02, .319737D+02, .232317D+02,
575 + .168899D+02, .122781D+02, .893251D+01, .651190D+01,
576 + .475670D+01, .348671D+01, .256410D+01, .189540D+01,
577 + .140714D+01, .105034D+01, .787778D+00, .594182D+00,
578 + .450072D+00, .342926D+00, .261620D+00, .200701D+00,
579 + .153934D+00, .118394D+00, .910514D-01, .700426D-01,
580 + .537989D-01, .412674D-01, .315494D-01, .240443D-01,
581 + .182393D-01, .137787D-01, .103445D-01, .772370D-02,
582 + .572389D-02, .421174D-02, .307725D-02, .222423D-02 /
583 DATA (UPDI(I),I=1977,2028) /
584 + .158962D-02, .112403D-02, .784410D-03, .540472D-03,
585 + .366286D-03, .244289D-03, .159426D-03, .101700D-03,
586 + .628110D-04, .375967D-04, .212713D-04, .112165D-04,
587 + .515913D-05, .176742D-05, .000000D+00, .000000D+00,
588 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
589 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
590 + .000000D+00, .000000D+00, .544803D+06, .414016D+06,
591 + .309454D+06, .231118D+06, .172491D+06, .128622D+06,
592 + .958383D+05, .713432D+05, .530655D+05, .394307D+05,
593 + .292735D+05, .217092D+05, .160843D+05, .119029D+05,
594 + .879951D+04, .649707D+04, .479174D+04, .352923D+04,
595 + .259624D+04, .190711D+04, .139912D+04, .102484D+04,
596 + .749666D+03, .547478D+03, .399244D+03, .290662D+03 /
597 DATA (UPDI(I),I=2029,2080) /
598 + .211376D+03, .152756D+03, .110759D+03, .801886D+02,
599 + .580009D+02, .419063D+02, .302610D+02, .218635D+02,
600 + .157910D+02, .114129D+02, .826328D+01, .599409D+01,
601 + .436183D+01, .318389D+01, .233528D+01, .171993D+01,
602 + .127314D+01, .946800D+00, .707818D+00, .531339D+00,
603 + .401109D+00, .303153D+00, .230340D+00, .174975D+00,
604 + .133271D+00, .101509D+00, .773292D-01, .588268D-01,
605 + .446881D-01, .338406D-01, .255461D-01, .191992D-01,
606 + .143694D-01, .106911D-01, .791117D-02, .581265D-02,
607 + .424110D-02, .307403D-02, .220508D-02, .156546D-02,
608 + .110070D-02, .765114D-03, .526230D-03, .357285D-03,
609 + .239867D-03, .158812D-03, .103897D-03, .670257D-04,
610 + .430114D-04, .272767D-04, .172835D-04, .109401D-04 /
611 DATA (UPDI(I),I=2081,2132) /
612 + .699652D-05, .451689D-05, .297436D-05, .197730D-05,
613 + .132623D-05, .875643D-06, .560351D-06, .334715D-06,
614 + .178932D-06, .778408D-07, .224575D-07, .223748D-08,
615 + .000000D+00, .789994D+06, .598034D+06, .444978D+06,
616 + .330828D+06, .245780D+06, .182430D+06, .135302D+06,
617 + .100251D+06, .742168D+05, .548867D+05, .405537D+05,
618 + .299303D+05, .220678D+05, .162512D+05, .119549D+05,
619 + .878303D+04, .644521D+04, .472307D+04, .345672D+04,
620 + .252612D+04, .184358D+04, .134331D+04, .977388D+03,
621 + .709944D+03, .514900D+03, .372787D+03, .269576D+03,
622 + .193695D+03, .139632D+03, .100502D+03, .722598D+02,
623 + .518929D+02, .372398D+02, .267366D+02, .191851D+02,
624 + .137743D+02, .990472D+01, .713463D+01, .515416D+01 /
625 DATA (UPDI(I),I=2133,2184) /
626 + .373437D+01, .271792D+01, .198594D+01, .145800D+01,
627 + .107521D+01, .796859D+00, .592917D+00, .443565D+00,
628 + .332188D+00, .250058D+00, .188187D+00, .141988D+00,
629 + .107142D+00, .808546D-01, .609383D-01, .458608D-01,
630 + .344107D-01, .257396D-01, .191721D-01, .142214D-01,
631 + .104896D-01, .769575D-02, .560802D-02, .405904D-02,
632 + .291977D-02, .207945D-02, .146705D-02, .102608D-02,
633 + .710652D-03, .487980D-03, .331846D-03, .224067D-03,
634 + .150135D-03, .100204D-03, .667241D-04, .447917D-04,
635 + .302378D-04, .207357D-04, .144436D-04, .102487D-04,
636 + .735649D-05, .531694D-05, .381489D-05, .268286D-05,
637 + .181716D-05, .116198D-05, .680497D-06, .348801D-06,
638 + .143273D-06, .389117D-07, .396932D-08, .000000D+00 /
639 DATA (UPDI(I),I=2185,2236) /
640 + .110230D+07, .831236D+06, .615691D+06, .455663D+06,
641 + .336969D+06, .248960D+06, .183784D+06, .135536D+06,
642 + .998642D+05, .735028D+05, .540477D+05, .396967D+05,
643 + .291258D+05, .213436D+05, .156231D+05, .114206D+05,
644 + .833841D+04, .607931D+04, .442643D+04, .321799D+04,
645 + .233618D+04, .169322D+04, .122537D+04, .885241D+03,
646 + .638510D+03, .459701D+03, .330546D+03, .236125D+03,
647 + .169229D+03, .121090D+03, .865385D+02, .617686D+02,
648 + .440503D+02, .314262D+02, .224032D+02, .159779D+02,
649 + .114106D+02, .816189D+01, .585367D+01, .420985D+01,
650 + .304054D+01, .220427D+01, .160521D+01, .117400D+01,
651 + .862683D+00, .636353D+00, .471875D+00, .350244D+00,
652 + .261270D+00, .194844D+00, .145671D+00, .108928D+00 /
653 DATA (UPDI(I),I=2237,2288) /
654 + .814567D-01, .608407D-01, .453756D-01, .337454D-01,
655 + .250204D-01, .184762D-01, .135882D-01, .993954D-02,
656 + .723283D-02, .522961D-02, .375656D-02, .268301D-02,
657 + .189825D-02, .133164D-02, .927116D-03, .640236D-03,
658 + .439251D-03, .299376D-03, .203367D-03, .137819D-03,
659 + .936230D-04, .639526D-04, .443578D-04, .311616D-04,
660 + .223112D-04, .162311D-04, .119651D-04, .885568D-05,
661 + .652756D-05, .473110D-05, .332549D-05, .223465D-05,
662 + .140649D-05, .805442D-06, .400430D-06, .158310D-06,
663 + .413328D-07, .427215D-08, .000000D+00, .149360D+07,
664 + .112199D+07, .827278D+06, .609466D+06, .448637D+06,
665 + .329930D+06, .242422D+06, .177940D+06, .130488D+06,
666 + .955849D+05, .699470D+05, .511255D+05, .373278D+05 /
667 DATA (UPDI(I),I=2289,2340) /
668 + .272193D+05, .198249D+05, .144195D+05, .104746D+05,
669 + .759775D+04, .550346D+04, .398014D+04, .287426D+04,
670 + .207212D+04, .149150D+04, .107163D+04, .768691D+03,
671 + .550324D+03, .393461D+03, .279431D+03, .199099D+03,
672 + .141622D+03, .100603D+03, .713684D+02, .505784D+02,
673 + .358548D+02, .253936D+02, .179903D+02, .127599D+02,
674 + .906340D+01, .645353D+01, .460715D+01, .330227D+01,
675 + .237546D+01, .171607D+01, .124489D+01, .907144D+00,
676 + .663484D+00, .487768D+00, .358893D+00, .265369D+00,
677 + .196156D+00, .145356D+00, .107739D+00, .798594D-01,
678 + .591287D-01, .437157D-01, .322333D-01, .236971D-01,
679 + .173542D-01, .126586D-01, .918621D-02, .663288D-02,
680 + .476045D-02, .339533D-02, .240908D-02, .169427D-02 /
681 DATA (UPDI(I),I=2341,2392) /
682 + .118264D-02, .820280D-03, .565310D-03, .387895D-03,
683 + .265211D-03, .181377D-03, .124318D-03, .858399D-04,
684 + .599107D-04, .426088D-04, .307615D-04, .226062D-04,
685 + .168223D-04, .126068D-04, .942395D-05, .696460D-05,
686 + .503127D-05, .350364D-05, .232211D-05, .143453D-05,
687 + .802531D-06, .387421D-06, .147752D-06, .371736D-07,
688 + .388860D-08, .000000D+00, .197611D+07, .147880D+07,
689 + .108544D+07, .796026D+06, .583284D+06, .426974D+06,
690 + .312267D+06, .228135D+06, .166507D+06, .121389D+06,
691 + .884037D+05, .643034D+05, .467200D+05, .339004D+05,
692 + .245682D+05, .177801D+05, .128504D+05, .927343D+04,
693 + .668258D+04, .480772D+04, .345359D+04, .247653D+04,
694 + .177299D+04, .126695D+04, .903779D+03, .643409D+03 /
695 DATA (UPDI(I),I=2393,2444) /
696 + .457403D+03, .322952D+03, .228768D+03, .161765D+03,
697 + .114220D+03, .805347D+02, .567186D+02, .399531D+02,
698 + .281123D+02, .197845D+02, .139371D+02, .983090D+01,
699 + .695012D+01, .492552D+01, .350401D+01, .250128D+01,
700 + .179278D+01, .129013D+01, .932430D+00, .676322D+00,
701 + .493036D+00, .359688D+00, .263683D+00, .193238D+00,
702 + .141965D+00, .104329D+00, .766738D-01, .562918D-01,
703 + .412691D-01, .301784D-01, .220058D-01, .159874D-01,
704 + .115703D-01, .833285D-02, .597252D-02, .425672D-02,
705 + .301601D-02, .212707D-02, .148798D-02, .103426D-02,
706 + .715280D-03, .492423D-03, .338279D-03, .232250D-03,
707 + .160024D-03, .110938D-03, .777672D-04, .552771D-04,
708 + .400851D-04, .294965D-04, .220272D-04, .165858D-04 /
709 DATA (UPDI(I),I=2445,2496) /
710 + .125079D-04, .936014D-05, .688842D-05, .493470D-05,
711 + .339342D-05, .221348D-05, .134074D-05, .732444D-06,
712 + .343474D-06, .126500D-06, .307225D-07, .325112D-08,
713 + .000000D+00, .256201D+07, .191003D+07, .139567D+07,
714 + .101893D+07, .743218D+06, .541558D+06, .394238D+06,
715 + .286681D+06, .208255D+06, .151107D+06, .109521D+06,
716 + .792802D+05, .573215D+05, .413893D+05, .298472D+05,
717 + .214927D+05, .154553D+05, .110966D+05, .795525D+04,
718 + .569364D+04, .406852D+04, .290201D+04, .206645D+04,
719 + .146864D+04, .104190D+04, .737596D+03, .521398D+03,
720 + .366002D+03, .257759D+03, .181195D+03, .127173D+03,
721 + .891230D+02, .623780D+02, .436632D+02, .305245D+02,
722 + .213409D+02, .149321D+02, .104603D+02, .734294D+01 /
723 DATA (UPDI(I),I=2497,2548) /
724 + .516642D+01, .364822D+01, .258457D+01, .183816D+01,
725 + .131241D+01, .940933D+00, .676950D+00, .489453D+00,
726 + .354116D+00, .257438D+00, .187087D+00, .136301D+00,
727 + .993391D-01, .724044D-01, .527237D-01, .383400D-01,
728 + .278134D-01, .201223D-01, .145072D-01, .104204D-01,
729 + .745059D-02, .530306D-02, .375494D-02, .264425D-02,
730 + .185473D-02, .129144D-02, .894546D-03, .617404D-03,
731 + .425003D-03, .292604D-03, .201907D-03, .140239D-03,
732 + .983164D-04, .698764D-04, .504350D-04, .371224D-04,
733 + .276760D-04, .208638D-04, .157921D-04, .119160D-04,
734 + .888480D-05, .648857D-05, .459782D-05, .311721D-05,
735 + .199904D-05, .118658D-05, .632871D-06, .288365D-06,
736 + .102652D-06, .241076D-07, .257998D-08, .000000D+00 /
737 DATA (UPDI(I),I=2549,2600) /
738 + .648840D+04, .185518D+04, .153824D+04, .127545D+04,
739 + .105756D+04, .876895D+03, .727094D+03, .602886D+03,
740 + .499899D+03, .414506D+03, .343703D+03, .284996D+03,
741 + .236319D+03, .195959D+03, .162494D+03, .134746D+03,
742 + .111739D+03, .926622D+02, .768449D+02, .637299D+02,
743 + .528554D+02, .438388D+02, .363625D+02, .301635D+02,
744 + .250234D+02, .207613D+02, .172271D+02, .142588D+02,
745 + .118361D+02, .982680D+01, .816031D+01, .677805D+01,
746 + .563144D+01, .468281D+01, .389367D+01, .323908D+01,
747 + .269596D+01, .224515D+01, .187077D+01, .155952D+01,
748 + .130092D+01, .108550D+01, .905921D+00, .756033D+00,
749 + .630772D+00, .525974D+00, .438506D+00, .364723D+00,
750 + .303207D+00, .251279D+00, .207891D+00, .171515D+00 /
751 DATA (UPDI(I),I=2601,2652) /
752 + .141052D+00, .115580D+00, .943234D-01, .766293D-01,
753 + .619455D-01, .498038D-01, .398055D-01, .316107D-01,
754 + .249287D-01, .195113D-01, .151468D-01, .116691D-01,
755 + .888976D-02, .670206D-02, .499558D-02, .367767D-02,
756 + .267091D-02, .191106D-02, .134513D-02, .929771D-03,
757 + .629701D-03, .416684D-03, .269786D-03, .169281D-03,
758 + .102842D-03, .601993D-04, .337483D-04, .179830D-04,
759 + .901985D-05, .421024D-05, .178778D-05, .678974D-06,
760 + .221797D-06, .589853D-07, .116459D-07, .143597D-08,
761 + .749920D-10, .479058D-12, .000000D+00, .170367D+05,
762 + .136042D+05, .107632D+05, .851372D+04, .673594D+04,
763 + .532820D+04, .421573D+04, .333477D+04, .263864D+04,
764 + .208732D+04, .165171D+04, .130667D+04, .103406D+04 /
765 DATA (UPDI(I),I=2653,2704) /
766 + .818117D+03, .647510D+03, .512342D+03, .405561D+03,
767 + .320946D+03, .254104D+03, .201131D+03, .159291D+03,
768 + .126126D+03, .999307D+02, .791627D+02, .627587D+02,
769 + .497558D+02, .394833D+02, .312387D+02, .248278D+02,
770 + .197391D+02, .157198D+02, .125274D+02, .100049D+02,
771 + .800437D+01, .641838D+01, .515578D+01, .415602D+01,
772 + .335790D+01, .272390D+01, .221532D+01, .180954D+01,
773 + .148188D+01, .121822D+01, .100362D+01, .829363D+00,
774 + .686221D+00, .569273D+00, .471755D+00, .391654D+00,
775 + .324398D+00, .268682D+00, .222001D+00, .183077D+00,
776 + .150457D+00, .123273D+00, .100534D+00, .816362D-01,
777 + .659206D-01, .529608D-01, .422649D-01, .335227D-01,
778 + .263891D-01, .206194D-01, .159998D-01, .122853D-01 /
779 DATA (UPDI(I),I=2705,2756) /
780 + .933410D-02, .701610D-02, .520846D-02, .381593D-02,
781 + .275082D-02, .194762D-02, .134611D-02, .904398D-03,
782 + .580455D-03, .352330D-03, .190954D-03, .805233D-04,
783 + .815274D-05, .000000D+00, .000000D+00, .000000D+00,
784 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
785 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
786 + .000000D+00, .000000D+00, .445524D+05, .351208D+05,
787 + .273853D+05, .213459D+05, .166384D+05, .129642D+05,
788 + .101014D+05, .786766D+04, .612796D+04, .477100D+04,
789 + .371461D+04, .289089D+04, .224992D+04, .175029D+04,
790 + .136170D+04, .105889D+04, .823497D+03, .640125D+03,
791 + .497651D+03, .386706D+03, .300560D+03, .233503D+03,
792 + .181461D+03, .140964D+03, .109551D+03, .851241D+02 /
793 DATA (UPDI(I),I=2757,2808) /
794 + .661907D+02, .512894D+02, .399247D+02, .310855D+02,
795 + .242408D+02, .189169D+02, .147940D+02, .115934D+02,
796 + .910765D+01, .717087D+01, .566875D+01, .449482D+01,
797 + .358117D+01, .286325D+01, .230164D+01, .185690D+01,
798 + .150547D+01, .122444D+01, .999973D+00, .818398D+00,
799 + .672154D+00, .551778D+00, .454133D+00, .373045D+00,
800 + .306566D+00, .251407D+00, .205841D+00, .167993D+00,
801 + .136721D+00, .110776D+00, .893896D-01, .717513D-01,
802 + .573273D-01, .455210D-01, .359556D-01, .282151D-01,
803 + .220117D-01, .170858D-01, .131613D-01, .100684D-01,
804 + .766129D-02, .579800D-02, .437343D-02, .328804D-02,
805 + .247203D-02, .185906D-02, .140299D-02, .106192D-02,
806 + .811813D-03, .622936D-03, .481177D-03, .372448D-03 /
807 DATA (UPDI(I),I=2809,2860) /
808 + .288463D-03, .221785D-03, .168776D-03, .125727D-03,
809 + .910480D-04, .632644D-04, .416179D-04, .252497D-04,
810 + .136569D-04, .613455D-05, .188685D-05, .186636D-06,
811 + .000000D+00, .627748D+05, .674057D+05, .520731D+05,
812 + .402106D+05, .310462D+05, .239593D+05, .184875D+05,
813 + .142584D+05, .109952D+05, .847448D+04, .653071D+04,
814 + .503012D+04, .387376D+04, .298159D+04, .229459D+04,
815 + .176486D+04, .135726D+04, .104317D+04, .801685D+03,
816 + .615734D+03, .472899D+03, .362991D+03, .278635D+03,
817 + .213771D+03, .164030D+03, .125823D+03, .965629D+02,
818 + .738211D+02, .566885D+02, .435377D+02, .334808D+02,
819 + .257641D+02, .198640D+02, .153477D+02, .118856D+02,
820 + .922648D+01, .719126D+01, .562346D+01, .441937D+01 /
821 DATA (UPDI(I),I=2861,2912) /
822 + .348673D+01, .276669D+01, .220445D+01, .176574D+01,
823 + .141964D+01, .114654D+01, .928420D+00, .754752D+00,
824 + .613487D+00, .500147D+00, .407070D+00, .331536D+00,
825 + .269530D+00, .218805D+00, .177100D+00, .142962D+00,
826 + .114916D+00, .920093D-01, .732988D-01, .581347D-01,
827 + .458400D-01, .359675D-01, .280520D-01, .217642D-01,
828 + .168138D-01, .129036D-01, .984855D-02, .749029D-02,
829 + .567882D-02, .430318D-02, .326115D-02, .248077D-02,
830 + .189575D-02, .145946D-02, .113169D-02, .888265D-03,
831 + .701227D-03, .557480D-03, .443717D-03, .352866D-03,
832 + .277908D-03, .216277D-03, .164426D-03, .121390D-03,
833 + .859425D-04, .576158D-04, .356688D-04, .197173D-04,
834 + .910022D-05, .292850D-05, .286945D-06, .000000D+00 /
835 DATA (UPDI(I),I=2913,2964) /
836 + .137513D+06, .106912D+06, .820596D+05, .629556D+05,
837 + .482868D+05, .370176D+05, .283709D+05, .217327D+05,
838 + .166431D+05, .127386D+05, .974726D+04, .745417D+04,
839 + .569884D+04, .435429D+04, .332596D+04, .253892D+04,
840 + .193754D+04, .147766D+04, .112660D+04, .858390D+03,
841 + .653876D+03, .497777D+03, .378869D+03, .288199D+03,
842 + .219206D+03, .166664D+03, .126753D+03, .960024D+02,
843 + .730300D+02, .555591D+02, .423106D+02, .322420D+02,
844 + .246095D+02, .188250D+02, .144295D+02, .110876D+02,
845 + .855272D+01, .662005D+01, .514913D+01, .402166D+01,
846 + .315912D+01, .249260D+01, .197717D+01, .157476D+01,
847 + .126005D+01, .101123D+01, .814864D+00, .656702D+00,
848 + .530912D+00, .428599D+00, .346274D+00, .279326D+00 /
849 DATA (UPDI(I),I=2965,3016) /
850 + .225012D+00, .180762D+00, .144829D+00, .115569D+00,
851 + .918586D-01, .726579D-01, .572139D-01, .447974D-01,
852 + .349002D-01, .270295D-01, .208212D-01, .159703D-01,
853 + .121651D-01, .921498D-02, .695301D-02, .522824D-02,
854 + .392674D-02, .294798D-02, .221939D-02, .167704D-02,
855 + .127539D-02, .976023D-03, .755343D-03, .587534D-03,
856 + .459895D-03, .360364D-03, .281968D-03, .218554D-03,
857 + .167259D-03, .125071D-03, .907307D-04, .630902D-04,
858 + .414845D-04, .251528D-04, .135858D-04, .609686D-05,
859 + .189705D-05, .187373D-06, .000000D+00, .205731D+06,
860 + .159159D+06, .121467D+06, .926559D+05, .706553D+05,
861 + .538497D+05, .410273D+05, .312405D+05, .237797D+05,
862 + .180901D+05, .137565D+05, .104547D+05, .794216D+04 /
863 DATA (UPDI(I),I=3017,3068) /
864 + .602959D+04, .457571D+04, .347006D+04, .263046D+04,
865 + .199261D+04, .150880D+04, .114164D+04, .863498D+03,
866 + .652666D+03, .493137D+03, .372358D+03, .281083D+03,
867 + .212079D+03, .160036D+03, .120240D+03, .907275D+02,
868 + .684588D+02, .516970D+02, .390614D+02, .295556D+02,
869 + .224117D+02, .170251D+02, .129649D+02, .990943D+01,
870 + .760035D+01, .585701D+01, .453268D+01, .352776D+01,
871 + .275825D+01, .216801D+01, .171142D+01, .135727D+01,
872 + .107984D+01, .862715D+00, .689433D+00, .552773D+00,
873 + .442634D+00, .354752D+00, .283937D+00, .226959D+00,
874 + .180952D+00, .143894D+00, .113983D+00, .899398D-01,
875 + .706360D-01, .552296D-01, .429474D-01, .332316D-01,
876 + .255681D-01, .195676D-01, .149146D-01, .112910D-01 /
877 DATA (UPDI(I),I=3069,3120) /
878 + .850340D-02, .638077D-02, .477382D-02, .356875D-02,
879 + .266841D-02, .200162D-02, .150786D-02, .114364D-02,
880 + .873146D-03, .674007D-03, .522859D-03, .407853D-03,
881 + .318312D-03, .247739D-03, .190880D-03, .144951D-03,
882 + .107472D-03, .771412D-04, .530018D-04, .343425D-04,
883 + .204595D-04, .108054D-04, .469816D-05, .139731D-05,
884 + .139576D-06, .000000D+00, .205284D+06, .226629D+06,
885 + .172066D+06, .130569D+06, .990420D+05, .750839D+05,
886 + .568982D+05, .430909D+05, .326202D+05, .246781D+05,
887 + .186612D+05, .141019D+05, .106515D+05, .803966D+04,
888 + .606527D+04, .457240D+04, .344521D+04, .259390D+04,
889 + .195194D+04, .146770D+04, .110305D+04, .828360D+03,
890 + .621778D+03, .466372D+03, .349666D+03, .262009D+03 /
891 DATA (UPDI(I),I=3121,3172) /
892 + .196328D+03, .146442D+03, .109694D+03, .821604D+02,
893 + .615753D+02, .461698D+02, .346603D+02, .260750D+02,
894 + .196473D+02, .148395D+02, .112476D+02, .855444D+01,
895 + .653607D+01, .501516D+01, .386972D+01, .299977D+01,
896 + .233758D+01, .182962D+01, .143869D+01, .113505D+01,
897 + .899312D+00, .712798D+00, .566890D+00, .450325D+00,
898 + .358078D+00, .284396D+00, .225595D+00, .178524D+00,
899 + .140914D+00, .110815D+00, .868149D-01, .677058D-01,
900 + .525723D-01, .406062D-01, .312117D-01, .238601D-01,
901 + .181455D-01, .137467D-01, .103456D-01, .774846D-02,
902 + .578419D-02, .430718D-02, .320616D-02, .238850D-02,
903 + .178585D-02, .134167D-02, .101517D-02, .773410D-03,
904 + .595591D-03, .460799D-03, .358208D-03, .278420D-03 /
905 DATA (UPDI(I),I=3173,3224) /
906 + .215543D-03, .165065D-03, .124394D-03, .914531D-04,
907 + .649717D-04, .441258D-04, .281948D-04, .165211D-04,
908 + .854450D-05, .360979D-05, .103289D-05, .104222D-06,
909 + .000000D+00, .436014D+06, .334117D+06, .252197D+06,
910 + .190256D+06, .143462D+06, .108110D+06, .814299D+05,
911 + .612943D+05, .461138D+05, .346695D+05, .260511D+05,
912 + .195611D+05, .146795D+05, .110079D+05, .824964D+04,
913 + .617765D+04, .462315D+04, .345697D+04, .258328D+04,
914 + .192877D+04, .143918D+04, .107296D+04, .799430D+03,
915 + .595148D+03, .442815D+03, .329242D+03, .244762D+03,
916 + .181088D+03, .134537D+03, .999333D+02, .742591D+02,
917 + .552016D+02, .410747D+02, .306255D+02, .228646D+02,
918 + .171098D+02, .128455D+02, .967656D+01, .732142D+01 /
919 DATA (UPDI(I),I=3225,3276) /
920 + .556292D+01, .424985D+01, .326188D+01, .251642D+01,
921 + .195010D+01, .151816D+01, .118598D+01, .930470D+00,
922 + .730353D+00, .575285D+00, .452676D+00, .356583D+00,
923 + .280620D+00, .220583D+00, .173010D+00, .135359D+00,
924 + .105531D+00, .819709D-01, .633952D-01, .488174D-01,
925 + .374007D-01, .285162D-01, .216274D-01, .163173D-01,
926 + .122648D-01, .915711D-02, .680425D-02, .503860D-02,
927 + .372142D-02, .274658D-02, .202802D-02, .150190D-02,
928 + .111687D-02, .835754D-03, .629170D-03, .478322D-03,
929 + .365019D-03, .279638D-03, .214079D-03, .163129D-03,
930 + .122917D-03, .910727D-04, .658057D-04, .459042D-04,
931 + .305865D-04, .191483D-04, .109751D-04, .553860D-05,
932 + .227335D-05, .630952D-06, .641893D-07, .000000D+00 /
933 DATA (UPDI(I),I=3277,3328) /
934 + .623764D+06, .475713D+06, .357084D+06, .267877D+06,
935 + .200851D+06, .150496D+06, .112703D+06, .843414D+05,
936 + .630803D+05, .471442D+05, .352123D+05, .262800D+05,
937 + .196007D+05, .146072D+05, .108784D+05, .809452D+04,
938 + .601873D+04, .447129D+04, .331922D+04, .246173D+04,
939 + .182442D+04, .135085D+04, .999461D+03, .738812D+03,
940 + .545759D+03, .402820D+03, .297236D+03, .218229D+03,
941 + .160884D+03, .118572D+03, .874065D+02, .644492D+02,
942 + .475580D+02, .351622D+02, .260256D+02, .193052D+02,
943 + .143642D+02, .107229D+02, .803834D+01, .605091D+01,
944 + .457902D+01, .348123D+01, .265990D+01, .204156D+01,
945 + .157407D+01, .121789D+01, .946396D+00, .735806D+00,
946 + .574129D+00, .447559D+00, .349301D+00, .272402D+00 /
947 DATA (UPDI(I),I=3329,3380) /
948 + .212201D+00, .164969D+00, .127942D+00, .988947D-01,
949 + .761683D-01, .584217D-01, .446213D-01, .339154D-01,
950 + .256579D-01, .193137D-01, .144650D-01, .107961D-01,
951 + .800622D-02, .591187D-02, .435247D-02, .319806D-02,
952 + .234954D-02, .172823D-02, .127578D-02, .946313D-03,
953 + .706613D-03, .530981D-03, .402853D-03, .306683D-03,
954 + .234173D-03, .178527D-03, .135293D-03, .101271D-03,
955 + .744148D-04, .532609D-04, .367244D-04, .241446D-04,
956 + .148715D-04, .835805D-05, .411242D-05, .163057D-05,
957 + .433473D-06, .446395D-07, .000000D+00, .867454D+06,
958 + .658550D+06, .491690D+06, .366873D+06, .273585D+06,
959 + .203872D+06, .151830D+06, .112989D+06, .840291D+05,
960 + .624428D+05, .463701D+05, .344060D+05, .255104D+05 /
961 DATA (UPDI(I),I=3381,3432) /
962 + .188982D+05, .139892D+05, .103458D+05, .764527D+04,
963 + .564419D+04, .416342D+04, .306809D+04, .225903D+04,
964 + .166164D+04, .122120D+04, .896617D+03, .657775D+03,
965 + .482100D+03, .353207D+03, .257426D+03, .188386D+03,
966 + .137807D+03, .100812D+03, .737587D+02, .539971D+02,
967 + .396030D+02, .290714D+02, .213846D+02, .157756D+02,
968 + .116746D+02, .867451D+01, .647151D+01, .485287D+01,
969 + .365569D+01, .276734D+01, .210434D+01, .160733D+01,
970 + .123203D+01, .948493D+00, .730599D+00, .564823D+00,
971 + .436284D+00, .337424D+00, .260801D+00, .201374D+00,
972 + .155196D+00, .119330D+00, .914635D-01, .698621D-01,
973 + .531515D-01, .402731D-01, .303740D-01, .228053D-01,
974 + .170418D-01, .126735D-01, .939556D-02, .692329D-02 /
975 DATA (UPDI(I),I=3433,3484) /
976 + .508245D-02, .372209D-02, .272231D-02, .199218D-02,
977 + .146078D-02, .107568D-02, .796436D-03, .593848D-03,
978 + .445692D-03, .337625D-03, .256500D-03, .195268D-03,
979 + .148275D-03, .111772D-03, .831241D-04, .605901D-04,
980 + .429650D-04, .292944D-04, .190123D-04, .115296D-04,
981 + .635985D-05, .305529D-05, .117343D-05, .300240D-06,
982 + .312708D-07, .000000D+00, .117828D+07, .890591D+06,
983 + .661499D+06, .491006D+06, .364227D+06, .269977D+06,
984 + .199983D+06, .148017D+06, .109477D+06, .809041D+05,
985 + .597439D+05, .440790D+05, .324958D+05, .239341D+05,
986 + .176135D+05, .129494D+05, .951197D+04, .697984D+04,
987 + .511711D+04, .374749D+04, .274192D+04, .200399D+04,
988 + .146329D+04, .106732D+04, .777796D+03, .566207D+03 /
989 DATA (UPDI(I),I=3485,3536) /
990 + .411977D+03, .298135D+03, .216631D+03, .157327D+03,
991 + .114246D+03, .829645D+02, .602735D+02, .438647D+02,
992 + .319447D+02, .233090D+02, .170538D+02, .125152D+02,
993 + .921992D+01, .681907D+01, .506866D+01, .378443D+01,
994 + .283912D+01, .213948D+01, .161934D+01, .122997D+01,
995 + .938339D+00, .716233D+00, .548741D+00, .420075D+00,
996 + .322017D+00, .246724D+00, .188862D+00, .144317D+00,
997 + .110034D+00, .836447D-01, .633733D-01, .478340D-01,
998 + .359631D-01, .269197D-01, .200642D-01, .148884D-01,
999 + .109973D-01, .810101D-02, .593380D-02, .433263D-02,
1000 + .315784D-02, .230028D-02, .167776D-02, .122714D-02,
1001 + .901958D-03, .666969D-03, .496841D-03, .372543D-03,
1002 + .281828D-03, .213671D-03, .162159D-03, .122614D-03 /
1003 DATA (UPDI(I),I=3537,3588) /
1004 + .919120D-04, .678852D-04, .490664D-04, .344549D-04,
1005 + .232193D-04, .148681D-04, .887272D-05, .480106D-05,
1006 + .225099D-05, .837715D-06, .206873D-06, .217834D-07,
1007 + .000000D+00, .156812D+07, .118020D+07, .872196D+06,
1008 + .644117D+06, .475358D+06, .350530D+06, .258296D+06,
1009 + .190169D+06, .139905D+06, .102834D+06, .755247D+05,
1010 + .554158D+05, .406262D+05, .297542D+05, .217721D+05,
1011 + .159146D+05, .116221D+05, .847797D+04, .617835D+04,
1012 + .449735D+04, .327043D+04, .237544D+04, .172361D+04,
1013 + .124918D+04, .904434D+03, .654057D+03, .472719D+03,
1014 + .339742D+03, .245163D+03, .176804D+03, .127475D+03,
1015 + .919010D+02, .662726D+02, .478692D+02, .345937D+02,
1016 + .250450D+02, .181780D+02, .132323D+02, .966782D+01 /
1017 DATA (UPDI(I),I=3589,3640) /
1018 + .709053D+01, .522563D+01, .386809D+01, .287662D+01,
1019 + .214875D+01, .161201D+01, .121358D+01, .917667D+00,
1020 + .694263D+00, .527245D+00, .400095D+00, .304052D+00,
1021 + .230976D+00, .175316D+00, .132854D+00, .100463D+00,
1022 + .757554D-01, .569433D-01, .426497D-01, .318239D-01,
1023 + .236478D-01, .175012D-01, .128992D-01, .946659D-02,
1024 + .693139D-02, .504884D-02, .366825D-02, .266217D-02,
1025 + .193240D-02, .140555D-02, .102602D-02, .753123D-03,
1026 + .556446D-03, .414249D-03, .310374D-03, .234481D-03,
1027 + .177386D-03, .134173D-03, .100990D-03, .752525D-04,
1028 + .551756D-04, .395286D-04, .274740D-04, .182915D-04,
1029 + .115500D-04, .677928D-05, .359630D-05, .164482D-05,
1030 + .593230D-06, .141674D-06, .150790D-07, .000000D+00 /
1031 DATA (UPDI(I),I=3641,3692) /
1032 + .204920D+07, .153588D+07, .112948D+07, .829995D+06,
1033 + .609475D+06, .447161D+06, .327821D+06, .240115D+06,
1034 + .175730D+06, .128488D+06, .938647D+05, .685029D+05,
1035 + .499479D+05, .363806D+05, .264729D+05, .192421D+05,
1036 + .139721D+05, .101336D+05, .734189D+04, .531281D+04,
1037 + .384033D+04, .277249D+04, .199936D+04, .144002D+04,
1038 + .103602D+04, .744402D+03, .534513D+03, .381581D+03,
1039 + .273508D+03, .195903D+03, .140266D+03, .100410D+03,
1040 + .718889D+02, .515476D+02, .369743D+02, .265656D+02,
1041 + .191325D+02, .138178D+02, .100147D+02, .728529D+01,
1042 + .532483D+01, .390858D+01, .288213D+01, .213452D+01,
1043 + .158758D+01, .118489D+01, .888274D+00, .666231D+00,
1044 + .501628D+00, .377411D+00, .284396D+00, .214246D+00 /
1045 DATA (UPDI(I),I=3693,3744) /
1046 + .161278D+00, .121224D+00, .909359D-01, .680333D-01,
1047 + .507460D-01, .377231D-01, .279422D-01, .206168D-01,
1048 + .151544D-01, .110973D-01, .809424D-02, .589291D-02,
1049 + .427022D-02, .308854D-02, .223293D-02, .161592D-02,
1050 + .117270D-02, .854764D-03, .626834D-03, .462894D-03,
1051 + .344447D-03, .257878D-03, .194536D-03, .146808D-03,
1052 + .110638D-03, .828638D-04, .613540D-04, .446378D-04,
1053 + .316841D-04, .217869D-04, .143240D-04, .891481D-05,
1054 + .514412D-05, .267396D-05, .119257D-05, .416945D-06,
1055 + .964641D-07, .103761D-07, .000000D+00, .263368D+07,
1056 + .196600D+07, .143885D+07, .105222D+07, .768886D+06,
1057 + .561339D+06, .409477D+06, .298416D+06, .217288D+06,
1058 + .158058D+06, .114866D+06, .833902D+05, .604799D+05 /
1059 DATA (UPDI(I),I=3745,3796) /
1060 + .438154D+05, .317098D+05, .229220D+05, .165516D+05,
1061 + .119370D+05, .859920D+04, .618677D+04, .444594D+04,
1062 + .319072D+04, .228717D+04, .163729D+04, .117069D+04,
1063 + .835881D+03, .596385D+03, .422967D+03, .301189D+03,
1064 + .214298D+03, .152400D+03, .108348D+03, .770292D+02,
1065 + .548417D+02, .390518D+02, .278514D+02, .199077D+02,
1066 + .142677D+02, .102604D+02, .740499D+01, .536887D+01,
1067 + .390885D+01, .285860D+01, .209953D+01, .154850D+01,
1068 + .114601D+01, .851937D+00, .633603D+00, .473081D+00,
1069 + .352972D+00, .263791D+00, .197109D+00, .147185D+00,
1070 + .109755D+00, .816897D-01, .606487D-01, .448993D-01,
1071 + .331337D-01, .243688D-01, .178576D-01, .130403D-01,
1072 + .949012D-02, .688167D-02, .498339D-02, .359387D-02 /
1073 DATA (UPDI(I),I=3797,3848) /
1074 + .258871D-02, .186526D-02, .134637D-02, .975318D-03,
1075 + .710106D-03, .520430D-03, .384190D-03, .285766D-03,
1076 + .213759D-03, .160980D-03, .121148D-03, .909311D-04,
1077 + .677383D-04, .498154D-04, .359475D-04, .252697D-04,
1078 + .171835D-04, .111518D-04, .683781D-05, .387728D-05,
1079 + .197402D-05, .858292D-06, .290992D-06, .653276D-07,
1080 + .710014D-08, .000000D+00, .463332D+04, .556996D+04,
1081 + .461891D+04, .383030D+04, .317638D+04, .263414D+04,
1082 + .218450D+04, .181166D+04, .150248D+04, .124610D+04,
1083 + .103349D+04, .857191D+03, .710990D+03, .589748D+03,
1084 + .489205D+03, .405823D+03, .336674D+03, .279327D+03,
1085 + .231766D+03, .192321D+03, .159606D+03, .132472D+03,
1086 + .109966D+03, .912986D+02, .758145D+02, .629703D+02 /
1087 DATA (UPDI(I),I=3849,3900) /
1088 + .523156D+02, .433629D+02, .360526D+02, .299871D+02,
1089 + .249542D+02, .207780D+02, .173124D+02, .144441D+02,
1090 + .120572D+02, .100767D+02, .843293D+01, .706805D+01,
1091 + .593397D+01, .499036D+01, .420534D+01, .355006D+01,
1092 + .300212D+01, .254274D+01, .215647D+01, .183066D+01,
1093 + .155589D+01, .132113D+01, .112238D+01, .951608D+00,
1094 + .806021D+00, .681225D+00, .574169D+00, .482324D+00,
1095 + .403584D+00, .336183D+00, .278624D+00, .229625D+00,
1096 + .188075D+00, .153007D+00, .123566D+00, .989980D-01,
1097 + .786329D-01, .619458D-01, .482398D-01, .371575D-01,
1098 + .282831D-01, .212520D-01, .157455D-01, .114875D-01,
1099 + .824060D-02, .580245D-02, .400141D-02, .269491D-02,
1100 + .177487D-02, .113247D-02, .699328D-03, .415923D-03 /
1101 DATA (UPDI(I),I=3901,3952) /
1102 + .236819D-03, .128116D-03, .652169D-04, .308832D-04,
1103 + .133005D-04, .512124D-05, .169555D-05, .456879D-06,
1104 + .913703D-07, .114084D-07, .603149D-09, .389953D-11,
1105 + .000000D+00, .216220D+05, .174258D+05, .139324D+05,
1106 + .111417D+05, .891533D+04, .713548D+04, .571454D+04,
1107 + .457771D+04, .366947D+04, .294220D+04, .236072D+04,
1108 + .189469D+04, .152178D+04, .122262D+04, .983028D+03,
1109 + .790635D+03, .636409D+03, .512436D+03, .412961D+03,
1110 + .332917D+03, .268631D+03, .216845D+03, .175210D+03,
1111 + .141632D+03, .114607D+03, .927938D+02, .752144D+02,
1112 + .608305D+02, .494087D+02, .401627D+02, .326964D+02,
1113 + .266445D+02, .217513D+02, .177899D+02, .145741D+02,
1114 + .119606D+02, .984137D+01, .811509D+01, .671134D+01 /
1115 DATA (UPDI(I),I=3953,4004) /
1116 + .556347D+01, .462694D+01, .385711D+01, .322441D+01,
1117 + .270098D+01, .226742D+01, .190584D+01, .160483D+01,
1118 + .135016D+01, .113705D+01, .955562D+00, .802460D+00,
1119 + .672341D+00, .561855D+00, .467898D+00, .388170D+00,
1120 + .320530D+00, .263347D+00, .215123D+00, .174668D+00,
1121 + .140848D+00, .112760D+00, .895591D-01, .705245D-01,
1122 + .550951D-01, .425471D-01, .324977D-01, .245300D-01,
1123 + .182775D-01, .134280D-01, .971048D-02, .690009D-02,
1124 + .480435D-02, .326858D-02, .215818D-02, .138157D-02,
1125 + .841140D-03, .477768D-03, .241821D-03, .941249D-04,
1126 + .807806D-05, .000000D+00, .000000D+00, .000000D+00,
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 + .492419D+05, .390291D+05, .306262D+05, .240332D+05,
1131 + .188669D+05, .148120D+05, .116337D+05, .913824D+04,
1132 + .718160D+04, .564467D+04, .443912D+04, .349165D+04,
1133 + .274812D+04, .216340D+04, .170428D+04, .134296D+04,
1134 + .105906D+04, .835455D+03, .659629D+03, .521017D+03,
1135 + .411937D+03, .325855D+03, .258043D+03, .204464D+03,
1136 + .162208D+03, .128790D+03, .102402D+03, .812391D+02,
1137 + .647667D+02, .516918D+02, .413376D+02, .331041D+02,
1138 + .265712D+02, .213790D+02, .172400D+02, .139345D+02,
1139 + .112999D+02, .918844D+01, .749878D+01, .613772D+01,
1140 + .504342D+01, .415610D+01, .343639D+01, .284824D+01,
1141 + .236689D+01, .196985D+01, .164296D+01, .136916D+01,
1142 + .114247D+01, .951297D+00, .791633D+00, .657265D+00 /
1143 DATA (UPDI(I),I=4057,4108) /
1144 + .544313D+00, .449217D+00, .369337D+00, .302252D+00,
1145 + .246117D+00, .199269D+00, .160384D+00, .128219D+00,
1146 + .101796D+00, .802056D-01, .626840D-01, .486368D-01,
1147 + .373368D-01, .283842D-01, .213644D-01, .159142D-01,
1148 + .117317D-01, .855575D-02, .617652D-02, .441463D-02,
1149 + .312825D-02, .219815D-02, .154292D-02, .107816D-02,
1150 + .755018D-03, .530930D-03, .376062D-03, .267733D-03,
1151 + .191370D-03, .136051D-03, .953140D-04, .648381D-04,
1152 + .421134D-04, .253766D-04, .136808D-04, .613738D-05,
1153 + .188700D-05, .186637D-06, .000000D+00, .607571D+05,
1154 + .713905D+05, .553773D+05, .429502D+05, .333179D+05,
1155 + .258428D+05, .200493D+05, .155533D+05, .120689D+05,
1156 + .936468D+04, .726881D+04, .564206D+04, .438113D+04 /
1157 DATA (UPDI(I),I=4109,4160) /
1158 + .340222D+04, .264331D+04, .205395D+04, .159692D+04,
1159 + .124183D+04, .966355D+03, .752216D+03, .586018D+03,
1160 + .456734D+03, .356319D+03, .278138D+03, .217360D+03,
1161 + .170006D+03, .133163D+03, .104055D+03, .817318D+02,
1162 + .642790D+02, .506598D+02, .399921D+02, .316497D+02,
1163 + .251172D+02, .199831D+02, .159416D+02, .127641D+02,
1164 + .102523D+02, .826826D+01, .669052D+01, .543740D+01,
1165 + .443340D+01, .362816D+01, .297739D+01, .245039D+01,
1166 + .202018D+01, .166949D+01, .137865D+01, .114020D+01,
1167 + .941026D+00, .776270D+00, .638948D+00, .524615D+00,
1168 + .429285D+00, .349973D+00, .284007D+00, .229336D+00,
1169 + .184155D+00, .147015D+00, .116592D+00, .918411D-01,
1170 + .718142D-01, .557159D-01, .429322D-01, .327460D-01 /
1171 DATA (UPDI(I),I=4161,4212) /
1172 + .247517D-01, .185418D-01, .137643D-01, .101303D-01,
1173 + .739349D-02, .535857D-02, .386119D-02, .277265D-02,
1174 + .198722D-02, .143260D-02, .103617D-02, .756451D-03,
1175 + .557356D-03, .414787D-03, .309898D-03, .231744D-03,
1176 + .171367D-03, .124200D-03, .869559D-04, .579264D-04,
1177 + .357461D-04, .197313D-04, .910183D-05, .292858D-05,
1178 + .286946D-06, .000000D+00, .142370D+06, .110960D+06,
1179 + .854159D+05, .657382D+05, .505940D+05, .389305D+05,
1180 + .299569D+05, .230476D+05, .177332D+05, .136423D+05,
1181 + .104965D+05, .807524D+04, .621369D+04, .478104D+04,
1182 + .367969D+04, .283209D+04, .218051D+04, .167899D+04,
1183 + .129343D+04, .996609D+03, .768382D+03, .592621D+03,
1184 + .457419D+03, .353241D+03, .273056D+03, .211240D+03 /
1185 DATA (UPDI(I),I=4213,4264) /
1186 + .163644D+03, .126444D+03, .982156D+02, .763906D+02,
1187 + .595387D+02, .464871D+02, .363879D+02, .285687D+02,
1188 + .224876D+02, .177536D+02, .140700D+02, .111894D+02,
1189 + .893646D+01, .716340D+01, .576846D+01, .466175D+01,
1190 + .378201D+01, .307764D+01, .251208D+01, .205445D+01,
1191 + .168449D+01, .138026D+01, .113287D+01, .927953D+00,
1192 + .759806D+00, .620825D+00, .506036D+00, .411118D+00,
1193 + .332777D+00, .268151D+00, .215016D+00, .171460D+00,
1194 + .135936D+00, .107071D+00, .837700D-01, .650645D-01,
1195 + .501418D-01, .383819D-01, .290810D-01, .218369D-01,
1196 + .162510D-01, .119852D-01, .876326D-02, .635410D-02,
1197 + .457472D-02, .327408D-02, .233464D-02, .166087D-02,
1198 + .118772D-02, .851441D-03, .615357D-03, .448382D-03 /
1199 DATA (UPDI(I),I=4265,4316) /
1200 + .329494D-03, .242873D-03, .178898D-03, .130239D-03,
1201 + .927987D-04, .638272D-04, .417076D-04, .252076D-04,
1202 + .135956D-04, .609797D-05, .189711D-05, .187374D-06,
1203 + .000000D+00, .210662D+06, .163268D+06, .124874D+06,
1204 + .954805D+05, .729971D+05, .557911D+05, .426368D+05,
1205 + .325748D+05, .248858D+05, .190069D+05, .145165D+05,
1206 + .110846D+05, .846424D+04, .646225D+04, .493425D+04,
1207 + .376714D+04, .287661D+04, .219651D+04, .167769D+04,
1208 + .128151D+04, .979318D+03, .748547D+03, .572498D+03,
1209 + .438027D+03, .335412D+03, .257013D+03, .197188D+03,
1210 + .150864D+03, .116033D+03, .893619D+02, .689586D+02,
1211 + .533107D+02, .413159D+02, .321209D+02, .250369D+02,
1212 + .195765D+02, .153672D+02, .121073D+02, .958096D+01 /
1213 DATA (UPDI(I),I=4317,4368) /
1214 + .761144D+01, .607553D+01, .486802D+01, .391621D+01,
1215 + .316080D+01, .255921D+01, .207653D+01, .168942D+01,
1216 + .137372D+01, .111903D+01, .909802D+00, .739471D+00,
1217 + .599834D+00, .485415D+00, .391569D+00, .314721D+00,
1218 + .251837D+00, .200539D+00, .158825D+00, .125066D+00,
1219 + .978521D-01, .760519D-01, .586873D-01, .449376D-01,
1220 + .341835D-01, .257411D-01, .192149D-01, .142192D-01,
1221 + .104318D-01, .759089D-02, .548117D-02, .393272D-02,
1222 + .280765D-02, .199927D-02, .142203D-02, .101777D-02,
1223 + .730922D-03, .529349D-03, .386469D-03, .284187D-03,
1224 + .209341D-03, .153691D-03, .111307D-03, .786567D-04,
1225 + .535346D-04, .345014D-04, .204979D-04, .108121D-04,
1226 + .469892D-05, .139735D-05, .139577D-06, .000000D+00 /
1227 DATA (UPDI(I),I=4369,4420) /
1228 + .203150D+06, .230799D+06, .175522D+06, .133435D+06,
1229 + .101418D+06, .770534D+05, .585308D+05, .444442D+05,
1230 + .337420D+05, .256078D+05, .194317D+05, .147404D+05,
1231 + .111806D+05, .847807D+04, .642850D+04, .487328D+04,
1232 + .369442D+04, .280028D+04, .212282D+04, .160916D+04,
1233 + .122013D+04, .925227D+03, .701905D+03, .532630D+03,
1234 + .404438D+03, .307271D+03, .233714D+03, .177225D+03,
1235 + .135101D+03, .103118D+03, .788560D+02, .604111D+02,
1236 + .463923D+02, .357413D+02, .276060D+02, .213914D+02,
1237 + .166416D+02, .129960D+02, .101945D+02, .802964D+01,
1238 + .635532D+01, .505017D+01, .402967D+01, .322645D+01,
1239 + .259182D+01, .208674D+01, .168484D+01, .135968D+01,
1240 + .109941D+01, .887296D+00, .715961D+00, .576623D+00 /
1241 DATA (UPDI(I),I=4421,4472) /
1242 + .463334D+00, .371151D+00, .296246D+00, .235433D+00,
1243 + .186207D+00, .146489D+00, .114588D+00, .890696D-01,
1244 + .687803D-01, .527408D-01, .401327D-01, .303429D-01,
1245 + .227131D-01, .168578D-01, .124071D-01, .905639D-02,
1246 + .655975D-02, .471773D-02, .337383D-02, .240287D-02,
1247 + .170864D-02, .121488D-02, .869924D-03, .625482D-03,
1248 + .453555D-03, .331430D-03, .243625D-03, .179147D-03,
1249 + .130990D-03, .943152D-04, .660888D-04, .445134D-04,
1250 + .283087D-04, .165482D-04, .854921D-05, .361031D-05,
1251 + .103292D-05, .104222D-06, .000000D+00, .441107D+06,
1252 + .338360D+06, .255715D+06, .193172D+06, .145879D+06,
1253 + .110114D+06, .830904D+05, .626705D+05, .472544D+05,
1254 + .356146D+05, .268343D+05, .202100D+05, .152171D+05 /
1255 DATA (UPDI(I),I=4473,4524) /
1256 + .114532D+05, .861845D+04, .648305D+04, .487601D+04,
1257 + .366627D+04, .275650D+04, .207208D+04, .155772D+04,
1258 + .117097D+04, .880436D+03, .662073D+03, .498085D+03,
1259 + .374865D+03, .282400D+03, .212035D+03, .160039D+03,
1260 + .120935D+03, .915433D+02, .694164D+02, .527581D+02,
1261 + .402277D+02, .307488D+02, .235809D+02, .181556D+02,
1262 + .140336D+02, .108966D+02, .849673D+01, .665834D+01,
1263 + .523940D+01, .414030D+01, .328363D+01, .261303D+01,
1264 + .208443D+01, .166769D+01, .133373D+01, .106889D+01,
1265 + .855112D+00, .684030D+00, .546221D+00, .435209D+00,
1266 + .345729D+00, .273685D+00, .215740D+00, .169262D+00,
1267 + .132104D+00, .102525D+00, .790761D-01, .605951D-01,
1268 + .461132D-01, .348255D-01, .261346D-01, .194179D-01 /
1269 DATA (UPDI(I),I=4525,4576) /
1270 + .143064D-01, .104527D-01, .757460D-02, .544678D-02,
1271 + .388892D-02, .276062D-02, .195128D-02, .137657D-02,
1272 + .970553D-03, .688632D-03, .490137D-03, .351408D-03,
1273 + .253597D-03, .183855D-03, .133201D-03, .958366D-04,
1274 + .678489D-04, .466919D-04, .308562D-04, .192265D-04,
1275 + .109934D-04, .554174D-05, .227369D-05, .630969D-06,
1276 + .641895D-07, .000000D+00, .628946D+06, .480030D+06,
1277 + .360662D+06, .270843D+06, .203309D+06, .152533D+06,
1278 + .114391D+06, .857407D+05, .642398D+05, .481049D+05,
1279 + .360081D+05, .269392D+05, .201467D+05, .150594D+05,
1280 + .112527D+05, .840440D+04, .627520D+04, .468347D+04,
1281 + .349473D+04, .260685D+04, .194437D+04, .144995D+04,
1282 + .108130D+04, .806364D+03, .601487D+03, .448768D+03 /
1283 DATA (UPDI(I),I=4577,4628) /
1284 + .335093D+03, .249311D+03, .186456D+03, .139594D+03,
1285 + .104674D+03, .786196D+02, .591773D+02, .446872D+02,
1286 + .338241D+02, .256864D+02, .195831D+02, .149896D+02,
1287 + .115257D+02, .890068D+01, .690807D+01, .538445D+01,
1288 + .421491D+01, .331181D+01, .261120D+01, .206405D+01,
1289 + .163658D+01, .129720D+01, .103049D+01, .817214D+00,
1290 + .648095D+00, .513138D+00, .405415D+00, .319391D+00,
1291 + .250757D+00, .196062D+00, .152588D+00, .118147D+00,
1292 + .909740D-01, .696258D-01, .529472D-01, .399922D-01,
1293 + .299803D-01, .223371D-01, .164799D-01, .120601D-01,
1294 + .875520D-02, .630685D-02, .451066D-02, .320544D-02,
1295 + .226661D-02, .159751D-02, .112497D-02, .792653D-03,
1296 + .562544D-03, .400753D-03, .287581D-03, .207619D-03 /
1297 DATA (UPDI(I),I=4629,4680) /
1298 + .150378D-03, .108666D-03, .777971D-04, .546918D-04,
1299 + .372680D-04, .243278D-04, .149238D-04, .837009D-05,
1300 + .411444D-05, .163079D-05, .433484D-06, .446396D-07,
1301 + .000000D+00, .872726D+06, .662942D+06, .495330D+06,
1302 + .369890D+06, .276085D+06, .205944D+06, .153547D+06,
1303 + .114411D+06, .852076D+05, .634191D+05, .471788D+05,
1304 + .350757D+05, .260648D+05, .193572D+05, .143691D+05,
1305 + .106602D+05, .790529D+04, .585921D+04, .434117D+04,
1306 + .321496D+04, .238034D+04, .176179D+04, .130384D+04,
1307 + .964754D+03, .713923D+03, .528338D+03, .391251D+03,
1308 + .288612D+03, .214002D+03, .158825D+03, .118041D+03,
1309 + .878665D+02, .655367D+02, .490374D+02, .367733D+02,
1310 + .276666D+02, .208957D+02, .158451D+02, .120696D+02 /
1311 DATA (UPDI(I),I=4681,4732) /
1312 + .923400D+01, .710031D+01, .548334D+01, .425298D+01,
1313 + .331139D+01, .258733D+01, .202692D+01, .159295D+01,
1314 + .125152D+01, .985590D+00, .774878D+00, .609295D+00,
1315 + .478370D+00, .374804D+00, .292850D+00, .228048D+00,
1316 + .176874D+00, .136561D+00, .104909D+00, .801551D-01,
1317 + .608782D-01, .459475D-01, .344499D-01, .256386D-01,
1318 + .189679D-01, .138985D-01, .101047D-01, .729061D-02,
1319 + .522216D-02, .371601D-02, .262940D-02, .185294D-02,
1320 + .130286D-02, .916326D-03, .645536D-03, .458431D-03,
1321 + .326957D-03, .234857D-03, .169605D-03, .122707D-03,
1322 + .884196D-04, .629808D-04, .439624D-04, .296677D-04,
1323 + .191361D-04, .115643D-04, .636770D-05, .305659D-05,
1324 + .117356D-05, .300247D-06, .312709D-07, .000000D+00 /
1325 DATA (UPDI(I),I=4733,4784) /
1326 + .118364D+07, .895059D+06, .665202D+06, .494074D+06,
1327 + .366770D+06, .272084D+06, .201728D+06, .149463D+06,
1328 + .110675D+06, .818961D+05, .605653D+05, .447590D+05,
1329 + .330587D+05, .243999D+05, .179989D+05, .132681D+05,
1330 + .977549D+04, .719763D+04, .529704D+04, .389606D+04,
1331 + .286454D+04, .210513D+04, .154666D+04, .113600D+04,
1332 + .834323D+03, .612695D+03, .450172D+03, .329396D+03,
1333 + .242262D+03, .178318D+03, .131417D+03, .969912D+02,
1334 + .717177D+02, .531953D+02, .395389D+02, .294830D+02,
1335 + .220680D+02, .165839D+02, .125186D+02, .949137D+01,
1336 + .723261D+01, .553551D+01, .425510D+01, .328366D+01,
1337 + .254301D+01, .197473D+01, .153847D+01, .119827D+01,
1338 + .935599D+00, .729329D+00, .568670D+00, .442774D+00 /
1339 DATA (UPDI(I),I=4785,4836) /
1340 + .344067D+00, .266652D+00, .205978D+00, .158489D+00,
1341 + .121407D+00, .925458D-01, .701687D-01, .528932D-01,
1342 + .396260D-01, .294956D-01, .217959D-01, .160143D-01,
1343 + .116563D-01, .842129D-02, .604036D-02, .430355D-02,
1344 + .304802D-02, .214839D-02, .150952D-02, .105940D-02,
1345 + .744508D-03, .524605D-03, .372876D-03, .266244D-03,
1346 + .191392D-03, .138192D-03, .998064D-04, .716618D-04,
1347 + .507493D-04, .351472D-04, .234745D-04, .149514D-04,
1348 + .889566D-05, .480615D-05, .225181D-05, .837800D-06,
1349 + .206877D-06, .217835D-07, .000000D+00, .157358D+07,
1350 + .118474D+07, .875963D+06, .647238D+06, .477944D+06,
1351 + .352672D+06, .260070D+06, .191639D+06, .141122D+06,
1352 + .103842D+06, .763589D+05, .561062D+05, .411975D+05 /
1353 DATA (UPDI(I),I=4837,4888) /
1354 + .302268D+05, .221629D+05, .162377D+05, .118890D+05,
1355 + .869848D+04, .636040D+04, .464757D+04, .339430D+04,
1356 + .247752D+04, .180767D+04, .131835D+04, .961295D+03,
1357 + .700756D+03, .511029D+03, .371043D+03, .270781D+03,
1358 + .197742D+03, .144564D+03, .105828D+03, .776057D+02,
1359 + .570829D+02, .420693D+02, .311022D+02, .230795D+02,
1360 + .171940D+02, .128663D+02, .967009D+01, .730456D+01,
1361 + .554190D+01, .422296D+01, .323064D+01, .248035D+01,
1362 + .190952D+01, .147501D+01, .113907D+01, .881911D+00,
1363 + .681731D+00, .527166D+00, .407106D+00, .313789D+00,
1364 + .241239D+00, .184871D+00, .141134D+00, .107277D+00,
1365 + .811512D-01, .610664D-01, .456917D-01, .339825D-01,
1366 + .251156D-01, .184306D-01, .134511D-01, .972774D-02 /
1367 DATA (UPDI(I),I=4889,4940) /
1368 + .698545D-02, .498251D-02, .353213D-02, .249091D-02,
1369 + .174968D-02, .122632D-02, .859427D-03, .603757D-03,
1370 + .425645D-03, .302840D-03, .216462D-03, .155674D-03,
1371 + .112322D-03, .809290D-04, .578579D-04, .407082D-04,
1372 + .279525D-04, .184653D-04, .116058D-04, .679439D-05,
1373 + .359960D-05, .164534D-05, .593283D-06, .141676D-06,
1374 + .150791D-07, .000000D+00, .205475D+07, .154051D+07,
1375 + .113331D+07, .833169D+06, .612104D+06, .449339D+06,
1376 + .329625D+06, .241609D+06, .176967D+06, .129512D+06,
1377 + .947117D+05, .692037D+05, .505275D+05, .368599D+05,
1378 + .268690D+05, .195694D+05, .142424D+05, .103568D+05,
1379 + .752599D+04, .546460D+04, .396539D+04, .287545D+04,
1380 + .208406D+04, .150962D+04, .109317D+04, .791269D+03 /
1381 DATA (UPDI(I),I=4941,4992) /
1382 + .572900D+03, .412890D+03, .299083D+03, .216762D+03,
1383 + .157252D+03, .114219D+03, .830950D+02, .606313D+02,
1384 + .443209D+02, .324977D+02, .239149D+02, .176677D+02,
1385 + .131097D+02, .976994D+01, .731757D+01, .550478D+01,
1386 + .415914D+01, .315491D+01, .240177D+01, .183347D+01,
1387 + .140445D+01, .107553D+01, .825850D+00, .633146D+00,
1388 + .485618D+00, .372003D+00, .284446D+00, .216955D+00,
1389 + .164962D+00, .124964D+00, .942622D-01, .707708D-01,
1390 + .528609D-01, .392648D-01, .289946D-01, .212804D-01,
1391 + .155105D-01, .112463D-01, .808280D-02, .577060D-02,
1392 + .409426D-02, .288892D-02, .202936D-02, .142117D-02,
1393 + .994056D-03, .695960D-03, .488916D-03, .344932D-03,
1394 + .245665D-03, .175740D-03, .126391D-03, .910745D-04 /
1395 DATA (UPDI(I),I=4993,5044) /
1396 + .654192D-04, .465350D-04, .325075D-04, .221163D-04,
1397 + .144419D-04, .895202D-05, .515402D-05, .267608D-05,
1398 + .119290D-05, .416978D-06, .964657D-07, .103761D-07,
1399 + .000000D+00, .263933D+07, .197070D+07, .144274D+07,
1400 + .105545D+07, .771559D+06, .563553D+06, .411310D+06,
1401 + .299934D+06, .218544D+06, .159097D+06, .115726D+06,
1402 + .841014D+05, .610679D+05, .443014D+05, .321113D+05,
1403 + .232536D+05, .168253D+05, .121627D+05, .878527D+04,
1404 + .634005D+04, .457212D+04, .329449D+04, .237244D+04,
1405 + .170728D+04, .122807D+04, .882871D+03, .634808D+03,
1406 + .454249D+03, .326691D+03, .235053D+03, .169261D+03,
1407 + .122019D+03, .880929D+02, .637827D+02, .462593D+02,
1408 + .336504D+02, .245650D+02, .180016D+02, .132489D+02 /
1409 DATA (UPDI(I),I=5045,5096) /
1410 + .979299D+01, .727463D+01, .542743D+01, .406687D+01,
1411 + .305948D+01, .230992D+01, .174883D+01, .132867D+01,
1412 + .100917D+01, .768620D+00, .584509D+00, .444731D+00,
1413 + .337985D+00, .256407D+00, .194049D+00, .146410D+00,
1414 + .110068D+00, .824029D-01, .614096D-01, .455349D-01,
1415 + .335816D-01, .246248D-01, .179504D-01, .129970D-01,
1416 + .936448D-02, .669005D-02, .474985D-02, .335326D-02,
1417 + .235587D-02, .164909D-02, .115187D-02, .804388D-03,
1418 + .562826D-03, .395496D-03, .279258D-03, .199077D-03,
1419 + .142488D-03, .102427D-03, .736639D-04, .527150D-04,
1420 + .372840D-04, .258422D-04, .174093D-04, .112313D-04,
1421 + .686253D-05, .388374D-05, .197538D-05, .858500D-06,
1422 + .291012D-06, .653285D-07, .710015D-08, .000000D+00 /
1423 DATA (UPDI(I),I=5097,5148) /
1424 + .461958D+04, .555727D+04, .460735D+04, .381977D+04,
1425 + .316679D+04, .262540D+04, .217654D+04, .180440D+04,
1426 + .149587D+04, .124008D+04, .102801D+04, .852192D+03,
1427 + .706434D+03, .585595D+03, .485418D+03, .402371D+03,
1428 + .333525D+03, .276453D+03, .229143D+03, .189925D+03,
1429 + .157417D+03, .130470D+03, .108133D+03, .896194D+02,
1430 + .742736D+02, .615540D+02, .510113D+02, .421603D+02,
1431 + .349393D+02, .289532D+02, .239906D+02, .198762D+02,
1432 + .164645D+02, .136431D+02, .112967D+02, .935103D+01,
1433 + .773720D+01, .639818D+01, .528676D+01, .436352D+01,
1434 + .359748D+01, .296068D+01, .243152D+01, .199189D+01,
1435 + .162685D+01, .132409D+01, .107423D+01, .866453D+00,
1436 + .696232D+00, .555544D+00, .440889D+00, .347506D+00 /
1437 DATA (UPDI(I),I=5149,5200) /
1438 + .271851D+00, .210916D+00, .162160D+00, .123433D+00,
1439 + .929200D-01, .690945D-01, .506751D-01, .365914D-01,
1440 + .259540D-01, .180294D-01, .122165D-01, .804427D-02,
1441 + .508023D-02, .304093D-02, .167995D-02, .806371D-03,
1442 + .274451D-03, .000000D+00, .000000D+00, .000000D+00,
1443 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1444 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1445 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1446 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1447 + .000000D+00, .000000D+00, .000000D+00, .216035D+05,
1448 + .174089D+05, .139170D+05, .111277D+05, .890256D+04,
1449 + .712386D+04, .570396D+04, .456808D+04, .366070D+04,
1450 + .293422D+04, .235346D+04, .188808D+04, .151576D+04 /
1451 DATA (UPDI(I),I=5201,5252) /
1452 + .121714D+04, .978039D+03, .786093D+03, .632271D+03,
1453 + .508667D+03, .409527D+03, .329787D+03, .265775D+03,
1454 + .214239D+03, .172830D+03, .139458D+03, .112618D+03,
1455 + .909714D+02, .735423D+02, .592955D+02, .479948D+02,
1456 + .388573D+02, .314875D+02, .255218D+02, .207048D+02,
1457 + .168108D+02, .136547D+02, .110941D+02, .902172D+01,
1458 + .733745D+01, .597160D+01, .485877D+01, .395509D+01,
1459 + .321702D+01, .261554D+01, .212354D+01, .172191D+01,
1460 + .139308D+01, .112550D+01, .905183D+00, .726707D+00,
1461 + .580210D+00, .461720D+00, .365563D+00, .287981D+00,
1462 + .225512D+00, .175547D+00, .135693D+00, .104148D+00,
1463 + .792937D-01, .598973D-01, .448280D-01, .332501D-01,
1464 + .244099D-01, .177351D-01, .127651D-01, .906114D-02 /
1465 DATA (UPDI(I),I=5253,5304) /
1466 + .634416D-02, .438097D-02, .297733D-02, .199006D-02,
1467 + .130178D-02, .830539D-03, .509058D-03, .295025D-03,
1468 + .150171D-03, .570569D-04, .000000D+00, .000000D+00,
1469 + .000000D+00, .000000D+00, .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, .492191D+05, .390083D+05,
1473 + .306073D+05, .240161D+05, .188513D+05, .147978D+05,
1474 + .116208D+05, .912650D+04, .717093D+04, .563497D+04,
1475 + .443029D+04, .348363D+04, .274082D+04, .215677D+04,
1476 + .169824D+04, .133747D+04, .105407D+04, .830918D+03,
1477 + .655501D+03, .517261D+03, .408517D+03, .322741D+03,
1478 + .255205D+03, .201877D+03, .159846D+03, .126632D+03 /
1479 DATA (UPDI(I),I=5305,5356) /
1480 + .100427D+03, .794328D+02, .631089D+02, .501676D+02,
1481 + .399326D+02, .318062D+02, .253687D+02, .202616D+02,
1482 + .161985D+02, .129611D+02, .103875D+02, .833140D+01,
1483 + .669215D+01, .537797D+01, .432760D+01, .348245D+01,
1484 + .280357D+01, .225569D+01, .181423D+01, .145698D+01,
1485 + .116954D+01, .935202D+00, .747199D+00, .594140D+00,
1486 + .471282D+00, .372235D+00, .292797D+00, .229154D+00,
1487 + .178465D+00, .138163D+00, .106339D+00, .813050D-01,
1488 + .617854D-01, .466138D-01, .349455D-01, .260122D-01,
1489 + .192439D-01, .141757D-01, .103727D-01, .755507D-02,
1490 + .549626D-02, .400060D-02, .292839D-02, .216007D-02,
1491 + .161621D-02, .122766D-02, .950342D-03, .747240D-03,
1492 + .599237D-03, .484554D-03, .394465D-03, .320353D-03 /
1493 DATA (UPDI(I),I=5357,5408) /
1494 + .258655D-03, .205643D-03, .160600D-03, .121887D-03,
1495 + .894195D-04, .626490D-04, .414198D-04, .251979D-04,
1496 + .136469D-04, .613334D-05, .188679D-05, .186635D-06,
1497 + .000000D+00, .607343D+05, .713661D+05, .553551D+05,
1498 + .429301D+05, .332996D+05, .258262D+05, .200341D+05,
1499 + .155396D+05, .120564D+05, .935334D+04, .725851D+04,
1500 + .563270D+04, .437264D+04, .339450D+04, .263631D+04,
1501 + .204758D+04, .159114D+04, .123658D+04, .961585D+03,
1502 + .747882D+03, .582079D+03, .453152D+03, .353061D+03,
1503 + .275173D+03, .214660D+03, .167544D+03, .130917D+03,
1504 + .102006D+03, .798574D+02, .625617D+02, .490832D+02,
1505 + .385421D+02, .303129D+02, .238817D+02, .188386D+02,
1506 + .148791D+02, .117756D+02, .933122D+01, .740881D+01 /
1507 DATA (UPDI(I),I=5409,5460) /
1508 + .588842D+01, .468893D+01, .373604D+01, .297979D+01,
1509 + .237663D+01, .189598D+01, .151114D+01, .120457D+01,
1510 + .956963D+00, .760085D+00, .601112D+00, .474477D+00,
1511 + .373113D+00, .292347D+00, .228035D+00, .177090D+00,
1512 + .136787D+00, .105103D+00, .802807D-01, .609911D-01,
1513 + .460438D-01, .345743D-01, .258090D-01, .191743D-01,
1514 + .142059D-01, .104752D-01, .770678D-02, .567799D-02,
1515 + .419761D-02, .312922D-02, .235700D-02, .180357D-02,
1516 + .140242D-02, .111018D-02, .891927D-03, .728357D-03,
1517 + .598494D-03, .493983D-03, .406109D-03, .331671D-03,
1518 + .266612D-03, .210655D-03, .161834D-03, .120314D-03,
1519 + .855453D-04, .574913D-04, .356372D-04, .197114D-04,
1520 + .909953D-05, .292846D-05, .286945D-06, .000000D+00 /
1521 DATA (UPDI(I),I=5461,5512) /
1522 + .142340D+06, .110932D+06, .853908D+05, .657154D+05,
1523 + .505733D+05, .389117D+05, .299398D+05, .230321D+05,
1524 + .177192D+05, .136296D+05, .104849D+05, .806472D+04,
1525 + .620414D+04, .477238D+04, .367183D+04, .282496D+04,
1526 + .217404D+04, .167313D+04, .128811D+04, .991778D+03,
1527 + .763998D+03, .588640D+03, .453804D+03, .349957D+03,
1528 + .270070D+03, .208524D+03, .161171D+03, .124194D+03,
1529 + .961620D+02, .745146D+02, .578220D+02, .449139D+02,
1530 + .349431D+02, .272393D+02, .212621D+02, .166221D+02,
1531 + .130233D+02, .102201D+02, .803816D+01, .633103D+01,
1532 + .499756D+01, .394909D+01, .312474D+01, .247362D+01,
1533 + .195930D+01, .155113D+01, .122862D+01, .970221D+00,
1534 + .766288D+00, .602812D+00, .473445D+00, .370576D+00 /
1535 DATA (UPDI(I),I=5513,5564) /
1536 + .289090D+00, .224584D+00, .173747D+00, .133736D+00,
1537 + .102422D+00, .780013D-01, .590944D-01, .445013D-01,
1538 + .333372D-01, .248327D-01, .184092D-01, .136092D-01,
1539 + .100094D-01, .734257D-02, .538884D-02, .396421D-02,
1540 + .293523D-02, .219175D-02, .165825D-02, .127194D-02,
1541 + .991124D-03, .782617D-03, .627489D-03, .506132D-03,
1542 + .410043D-03, .331115D-03, .265644D-03, .209942D-03,
1543 + .163017D-03, .123137D-03, .899374D-04, .628009D-04,
1544 + .413950D-04, .251304D-04, .135817D-04, .609639D-05,
1545 + .189703D-05, .187373D-06, .000000D+00, .210628D+06,
1546 + .163237D+06, .124846D+06, .954549D+05, .729739D+05,
1547 + .557701D+05, .426177D+05, .325575D+05, .248701D+05,
1548 + .189927D+05, .145036D+05, .110729D+05, .845363D+04 /
1549 DATA (UPDI(I),I=5565,5616) /
1550 + .645263D+04, .492553D+04, .375924D+04, .286945D+04,
1551 + .219002D+04, .167181D+04, .127618D+04, .974487D+03,
1552 + .744168D+03, .568528D+03, .434426D+03, .332144D+03,
1553 + .254046D+03, .194492D+03, .148416D+03, .113805D+03,
1554 + .873323D+02, .671071D+02, .516196D+02, .397687D+02,
1555 + .307031D+02, .237358D+02, .183811D+02, .142673D+02,
1556 + .110948D+02, .864846D+01, .675310D+01, .528614D+01,
1557 + .414356D+01, .325307D+01, .255605D+01, .201007D+01,
1558 + .158044D+01, .124362D+01, .975892D+00, .766138D+00,
1559 + .599226D+00, .468029D+00, .364414D+00, .282847D+00,
1560 + .218681D+00, .168397D+00, .129051D+00, .984183D-01,
1561 + .746570D-01, .563471D-01, .422846D-01, .315719D-01,
1562 + .234478D-01, .173338D-01, .127816D-01, .937853D-02 /
1563 DATA (UPDI(I),I=5617,5668) /
1564 + .686588D-02, .502953D-02, .369379D-02, .273013D-02,
1565 + .203491D-02, .153590D-02, .117469D-02, .911941D-03,
1566 + .716933D-03, .571674D-03, .458312D-03, .368700D-03,
1567 + .295566D-03, .235174D-03, .184323D-03, .141758D-03,
1568 + .106034D-03, .765588D-04, .527924D-04, .342787D-04,
1569 + .204437D-04, .108025D-04, .469784D-05, .139729D-05,
1570 + .139576D-06, .000000D+00, .203119D+06, .230765D+06,
1571 + .175491D+06, .133406D+06, .101392D+06, .770300D+05,
1572 + .585096D+05, .444250D+05, .337246D+05, .255920D+05,
1573 + .194175D+05, .147275D+05, .111689D+05, .846747D+04,
1574 + .641889D+04, .486459D+04, .368655D+04, .279316D+04,
1575 + .211637D+04, .160332D+04, .121485D+04, .920446D+03,
1576 + .697577D+03, .528711D+03, .400888D+03, .304054D+03 /
1577 DATA (UPDI(I),I=5669,5720) /
1578 + .230797D+03, .174582D+03, .132702D+03, .100938D+03,
1579 + .768734D+02, .586062D+02, .447469D+02, .342395D+02,
1580 + .262337D+02, .201365D+02, .154931D+02, .119445D+02,
1581 + .923188D+01, .714911D+01, .555090D+01, .431700D+01,
1582 + .336334D+01, .262323D+01, .204814D+01, .159927D+01,
1583 + .125006D+01, .974613D+00, .760381D+00, .591145D+00,
1584 + .459032D+00, .355410D+00, .274361D+00, .211012D+00,
1585 + .161667D+00, .123288D+00, .935797D-01, .706667D-01,
1586 + .531028D-01, .396861D-01, .295151D-01, .218401D-01,
1587 + .160893D-01, .118258D-01, .865117D-02, .631683D-02,
1588 + .461639D-02, .338344D-02, .249582D-02, .185684D-02,
1589 + .139848D-02, .106697D-02, .825795D-03, .646848D-03,
1590 + .513411D-03, .409430D-03, .327337D-03, .260658D-03 /
1591 DATA (UPDI(I),I=5721,5772) /
1592 + .205828D-03, .160048D-03, .121978D-03, .903778D-04,
1593 + .645418D-04, .439732D-04, .281490D-04, .165099D-04,
1594 + .854254D-05, .360957D-05, .103288D-05, .104222D-06,
1595 + .000000D+00, .441064D+06, .338321D+06, .255679D+06,
1596 + .193140D+06, .145850D+06, .110087D+06, .830666D+05,
1597 + .626489D+05, .472348D+05, .355969D+05, .268183D+05,
1598 + .201955D+05, .152040D+05, .114414D+05, .860773D+04,
1599 + .647336D+04, .486725D+04, .365835D+04, .274934D+04,
1600 + .206561D+04, .155187D+04, .116569D+04, .875665D+03,
1601 + .657761D+03, .494188D+03, .371341D+03, .279213D+03,
1602 + .209156D+03, .157434D+03, .118575D+03, .894047D+02,
1603 + .674771D+02, .509977D+02, .386285D+02, .292951D+02,
1604 + .222589D+02, .169530D+02, .129398D+02, .990219D+01 /
1605 DATA (UPDI(I),I=5773,5824) /
1606 + .759385D+01, .583990D+01, .449948D+01, .347347D+01,
1607 + .268511D+01, .207828D+01, .160918D+01, .124754D+01,
1608 + .964919D+00, .747019D+00, .576407D+00, .444326D+00,
1609 + .341604D+00, .261891D+00, .200084D+00, .152296D+00,
1610 + .115413D+00, .870637D-01, .653565D-01, .488266D-01,
1611 + .362859D-01, .268373D-01, .197526D-01, .144735D-01,
1612 + .105814D-01, .769832D-02, .558965D-02, .406046D-02,
1613 + .295665D-02, .216485D-02, .159710D-02, .119107D-02,
1614 + .898610D-03, .686735D-03, .530546D-03, .414903D-03,
1615 + .325769D-03, .256287D-03, .200782D-03, .155934D-03,
1616 + .119243D-03, .893238D-04, .650366D-04, .456005D-04,
1617 + .304802D-04, .191168D-04, .109675D-04, .553729D-05,
1618 + .227320D-05, .630944D-06, .641892D-07, .000000D+00 /
1619 DATA (UPDI(I),I=5825,5876) /
1620 + .628897D+06, .479986D+06, .360622D+06, .270807D+06,
1621 + .203277D+06, .152504D+06, .114364D+06, .857165D+05,
1622 + .642179D+05, .480851D+05, .359903D+05, .269231D+05,
1623 + .201322D+05, .150462D+05, .112408D+05, .839365D+04,
1624 + .626550D+04, .467472D+04, .348683D+04, .259972D+04,
1625 + .193794D+04, .144415D+04, .107607D+04, .801648D+03,
1626 + .597235D+03, .444932D+03, .331633D+03, .246194D+03,
1627 + .183643D+03, .137055D+03, .102381D+03, .765484D+02,
1628 + .573054D+02, .429944D+02, .322932D+02, .243019D+02,
1629 + .183310D+02, .138581D+02, .105041D+02, .797983D+01,
1630 + .607968D+01, .464144D+01, .355077D+01, .272068D+01,
1631 + .208756D+01, .160268D+01, .123222D+01, .945331D+00,
1632 + .726059D+00, .555888D+00, .425260D+00, .324533D+00 /
1633 DATA (UPDI(I),I=5877,5928) /
1634 + .247003D+00, .187378D+00, .141637D+00, .106613D+00,
1635 + .798960D-01, .595939D-01, .442446D-01, .326848D-01,
1636 + .240346D-01, .175935D-01, .128243D-01, .933004D-02,
1637 + .675720D-02, .488683D-02, .353751D-02, .256835D-02,
1638 + .187585D-02, .138110D-02, .102799D-02, .774109D-03,
1639 + .590245D-03, .454765D-03, .354355D-03, .276992D-03,
1640 + .216704D-03, .168694D-03, .130035D-03, .986195D-04,
1641 + .731696D-04, .527210D-04, .365145D-04, .240723D-04,
1642 + .148505D-04, .835310D-05, .411157D-05, .163048D-05,
1643 + .433469D-06, .446394D-07, .000000D+00, .872672D+06,
1644 + .662893D+06, .495285D+06, .369850D+06, .276049D+06,
1645 + .205911D+06, .153518D+06, .114384D+06, .851833D+05,
1646 + .633971D+05, .471589D+05, .350578D+05, .260486D+05 /
1647 DATA (UPDI(I),I=5929,5980) /
1648 + .193426D+05, .143559D+05, .106483D+05, .789460D+04,
1649 + .584958D+04, .433249D+04, .320714D+04, .237330D+04,
1650 + .175545D+04, .129813D+04, .959623D+03, .709306D+03,
1651 + .524182D+03, .387513D+03, .285255D+03, .210981D+03,
1652 + .156108D+03, .115596D+03, .856664D+02, .635568D+02,
1653 + .472553D+02, .351697D+02, .262243D+02, .195991D+02,
1654 + .146807D+02, .110254D+02, .829949D+01, .626591D+01,
1655 + .474076D+01, .359457D+01, .273019D+01, .207681D+01,
1656 + .158092D+01, .120540D+01, .917182D+00, .698794D+00,
1657 + .530795D+00, .402928D+00, .305171D+00, .230544D+00,
1658 + .173624D+00, .130306D+00, .974026D-01, .724991D-01,
1659 + .537211D-01, .396289D-01, .290952D-01, .212685D-01,
1660 + .154820D-01, .112255D-01, .812696D-02, .585974D-02 /
1661 DATA (UPDI(I),I=5981,6032) /
1662 + .422162D-02, .304615D-02, .220602D-02, .160805D-02,
1663 + .118225D-02, .878920D-03, .661097D-03, .503327D-03,
1664 + .387022D-03, .300683D-03, .234127D-03, .182252D-03,
1665 + .141033D-03, .107946D-03, .812193D-04, .597075D-04,
1666 + .425878D-04, .291499D-04, .189634D-04, .115156D-04,
1667 + .635663D-05, .305475D-05, .117337D-05, .300237D-06,
1668 + .312708D-07, .000000D+00, .118358D+07, .895004D+06,
1669 + .665152D+06, .494030D+06, .366730D+06, .272047D+06,
1670 + .201695D+06, .149433D+06, .110648D+06, .818718D+05,
1671 + .605434D+05, .447392D+05, .330408D+05, .243838D+05,
1672 + .179844D+05, .132550D+05, .976376D+04, .718708D+04,
1673 + .528755D+04, .388753D+04, .285687D+04, .209824D+04,
1674 + .154047D+04, .113044D+04, .829333D+03, .608216D+03 /
1675 DATA (UPDI(I),I=6033,6084) /
1676 + .446153D+03, .325796D+03, .239034D+03, .175423D+03,
1677 + .128822D+03, .946656D+02, .696338D+02, .513282D+02,
1678 + .378674D+02, .279878D+02, .207318D+02, .153915D+02,
1679 + .114564D+02, .854746D+01, .639606D+01, .479674D+01,
1680 + .360528D+01, .271471D+01, .204740D+01, .154540D+01,
1681 + .116856D+01, .881855D+00, .666475D+00, .502228D+00,
1682 + .378274D+00, .284314D+00, .213176D+00, .159365D+00,
1683 + .118741D+00, .881332D-01, .651489D-01, .479530D-01,
1684 + .351449D-01, .256432D-01, .186340D-01, .134887D-01,
1685 + .972910D-02, .701009D-02, .503305D-02, .361321D-02,
1686 + .259975D-02, .187881D-02, .136756D-02, .100457D-02,
1687 + .746343D-03, .561024D-03, .426703D-03, .327556D-03,
1688 + .253799D-03, .196881D-03, .152499D-03, .117302D-03 /
1689 DATA (UPDI(I),I=6085,6136) /
1690 + .891398D-04, .665225D-04, .484435D-04, .341924D-04,
1691 + .231203D-04, .148351D-04, .886345D-05, .479896D-05,
1692 + .225065D-05, .837679D-06, .206871D-06, .217834D-07,
1693 + .000000D+00, .157351D+07, .118468D+07, .875908D+06,
1694 + .647188D+06, .477899D+06, .352631D+06, .260034D+06,
1695 + .191606D+06, .141092D+06, .103815D+06, .763347D+05,
1696 + .560844D+05, .411779D+05, .302092D+05, .221470D+05,
1697 + .162234D+05, .118762D+05, .868696D+04, .635006D+04,
1698 + .463829D+04, .338598D+04, .247005D+04, .180098D+04,
1699 + .131235D+04, .955924D+03, .695947D+03, .506726D+03,
1700 + .367201D+03, .267346D+03, .194673D+03, .141823D+03,
1701 + .103381D+03, .754223D+02, .551359D+02, .403351D+02,
1702 + .295593D+02, .217088D+02, .159784D+02, .117907D+02 /
1703 DATA (UPDI(I),I=6137,6188) /
1704 + .872096D+01, .646956D+01, .481013D+01, .358437D+01,
1705 + .267603D+01, .200120D+01, .149791D+01, .112333D+01,
1706 + .840797D+00, .630346D+00, .471234D+00, .352165D+00,
1707 + .262667D+00, .195464D+00, .145046D+00, .107290D+00,
1708 + .790711D-01, .580478D-01, .424412D-01, .309045D-01,
1709 + .224102D-01, .161891D-01, .116549D-01, .836371D-02,
1710 + .599883D-02, .428997D-02, .306991D-02, .220347D-02,
1711 + .158982D-02, .115610D-02, .848891D-03, .630545D-03,
1712 + .473844D-03, .360122D-03, .276017D-03, .213300D-03,
1713 + .164835D-03, .127033D-03, .971091D-04, .732518D-04,
1714 + .542047D-04, .390908D-04, .272922D-04, .182240D-04,
1715 + .115279D-04, .677318D-05, .359495D-05, .164460D-05,
1716 + .593207D-06, .141673D-06, .150790D-07, .000000D+00 /
1717 DATA (UPDI(I),I=6189,6240) /
1718 + .205468D+07, .154044D+07, .113325D+07, .833114D+06,
1719 + .612054D+06, .449294D+06, .329584D+06, .241572D+06,
1720 + .176934D+06, .129482D+06, .946851D+05, .691798D+05,
1721 + .505061D+05, .368406D+05, .268517D+05, .195539D+05,
1722 + .142285D+05, .103443D+05, .751476D+04, .545454D+04,
1723 + .395639D+04, .286739D+04, .207685D+04, .150318D+04,
1724 + .108741D+04, .786127D+03, .568312D+03, .408805D+03,
1725 + .295443D+03, .213521D+03, .154368D+03, .111655D+03,
1726 + .808173D+02, .586097D+02, .425294D+02, .309126D+02,
1727 + .225150D+02, .164339D+02, .120252D+02, .881967D+01,
1728 + .648768D+01, .478299D+01, .353419D+01, .261651D+01,
1729 + .194042D+01, .144042D+01, .107142D+01, .795445D+00,
1730 + .591594D+00, .438773D+00, .325364D+00, .240828D+00 /
1731 DATA (UPDI(I),I=6241,6292) /
1732 + .177869D+00, .131020D+00, .962154D-01, .704106D-01,
1733 + .513363D-01, .372857D-01, .269770D-01, .194434D-01,
1734 + .139653D-01, .100005D-01, .714155D-02, .510025D-02,
1735 + .363413D-02, .259323D-02, .185758D-02, .133865D-02,
1736 + .972928D-03, .714370D-03, .530668D-03, .398747D-03,
1737 + .302842D-03, .231745D-03, .178594D-03, .137465D-03,
1738 + .105382D-03, .800404D-04, .599162D-04, .439490D-04,
1739 + .313776D-04, .216615D-04, .142782D-04, .890003D-05,
1740 + .514011D-05, .267309D-05, .119243D-05, .416931D-06,
1741 + .964635D-07, .103761D-07, .000000D+00, .263925D+07,
1742 + .197063D+07, .144268D+07, .105539D+07, .771504D+06,
1743 + .563503D+06, .411265D+06, .299894D+06, .218508D+06,
1744 + .159065D+06, .115697D+06, .840752D+05, .610444D+05 /
1745 DATA (UPDI(I),I=6293,6344) /
1746 + .442803D+05, .320924D+05, .232367D+05, .168101D+05,
1747 + .121492D+05, .877312D+04, .632919D+04, .456241D+04,
1748 + .328582D+04, .236470D+04, .170038D+04, .122192D+04,
1749 + .877393D+03, .629934D+03, .449923D+03, .322849D+03,
1750 + .231643D+03, .166238D+03, .119343D+03, .857264D+02,
1751 + .616923D+02, .444163D+02, .320287D+02, .231411D+02,
1752 + .167546D+02, .121601D+02, .884554D+01, .645322D+01,
1753 + .471841D+01, .345775D+01, .253890D+01, .186745D+01,
1754 + .137497D+01, .101451D+01, .747158D+00, .551299D+00,
1755 + .405689D+00, .298519D+00, .219288D+00, .160756D+00,
1756 + .117550D+00, .857068D-01, .622836D-01, .451038D-01,
1757 + .325452D-01, .233995D-01, .167647D-01, .119743D-01,
1758 + .853086D-02, .606388D-02, .431330D-02, .306331D-02 /
1759 DATA (UPDI(I),I=6345,6396) /
1760 + .218056D-02, .155946D-02, .112290D-02, .815984D-03,
1761 + .599277D-03, .445284D-03, .334572D-03, .253912D-03,
1762 + .193958D-03, .149028D-03, .114220D-03, .870776D-04,
1763 + .656925D-04, .487862D-04, .354608D-04, .250562D-04,
1764 + .170974D-04, .111208D-04, .682798D-05, .387466D-05,
1765 + .197346D-05, .858205D-06, .290983D-06, .653272D-07,
1766 + .710013D-08, .000000D+00, .119143D-02, .143316D-02,
1767 + .174111D-02, .211528D-02, .256992D-02, .312235D-02,
1768 + .379364D-02, .460938D-02, .560067D-02, .680535D-02,
1769 + .826936D-02, .100486D-01, .122108D-01, .148386D-01,
1770 + .180321D-01, .219127D-01, .266281D-01, .323569D-01,
1771 + .393159D-01, .477670D-01, .580268D-01, .704765D-01,
1772 + .855748D-01, .103871D+00, .126021D+00, .152802D+00 /
1773 DATA (UPDI(I),I=6397,6448) /
1774 + .185131D+00, .224685D+00, .271587D+00, .327767D+00,
1775 + .394801D+00, .474406D+00, .568395D+00, .678236D+00,
1776 + .806199D+00, .953390D+00, .112071D+01, .130831D+01,
1777 + .151542D+01, .174017D+01, .197894D+01, .222756D+01,
1778 + .248018D+01, .273015D+01, .297026D+01, .319315D+01,
1779 + .339113D+01, .355988D+01, .369228D+01, .378618D+01,
1780 + .383828D+01, .384826D+01, .381682D+01, .374591D+01,
1781 + .363859D+01, .349877D+01, .333099D+01, .314020D+01,
1782 + .293157D+01, .271027D+01, .248130D+01, .224940D+01,
1783 + .201885D+01, .179449D+01, .157726D+01, .137127D+01,
1784 + .117871D+01, .100117D+01, .839720D+00, .694919D+00,
1785 + .566884D+00, .455326D+00, .359557D+00, .278607D+00,
1786 + .211986D+00, .157392D+00, .113925D+00, .801101D-01 /
1787 DATA (UPDI(I),I=6449,6500) /
1788 + .544872D-01, .356487D-01, .222763D-01, .131835D-01,
1789 + .726861D-02, .368584D-02, .167049D-02, .649755D-03,
1790 + .202619D-03, .445822D-04, .519520D-05, .128074D-06,
1791 + .000000D+00, .266793D+06, .212198D+06, .167115D+06,
1792 + .131544D+06, .103553D+06, .814769D+05, .641120D+05,
1793 + .504213D+05, .396569D+05, .311738D+05, .245068D+05,
1794 + .192551D+05, .151296D+05, .118813D+05, .933099D+04,
1795 + .732397D+04, .574898D+04, .451022D+04, .353865D+04,
1796 + .277490D+04, .217620D+04, .170583D+04, .133733D+04,
1797 + .104802D+04, .821491D+03, .643752D+03, .504664D+03,
1798 + .394309D+03, .309371D+03, .242813D+03, .190810D+03,
1799 + .150093D+03, .118311D+03, .935132D+02, .741283D+02,
1800 + .589911D+02, .472078D+02, .380163D+02, .308688D+02 /
1801 DATA (UPDI(I),I=6501,6552) /
1802 + .252928D+02, .209596D+02, .175707D+02, .149237D+02,
1803 + .128374D+02, .111877D+02, .986337D+01, .879395D+01,
1804 + .790227D+01, .715554D+01, .650538D+01, .593534D+01,
1805 + .542024D+01, .494904D+01, .450988D+01, .409855D+01,
1806 + .370959D+01, .334225D+01, .299451D+01, .266689D+01,
1807 + .235914D+01, .207209D+01, .180599D+01, .156113D+01,
1808 + .133868D+01, .113624D+01, .954923D+00, .794041D+00,
1809 + .652848D+00, .530218D+00, .425013D+00, .335804D+00,
1810 + .261256D+00, .199791D+00, .149852D+00, .110323D+00,
1811 + .791956D-01, .553579D-01, .375596D-01, .246051D-01,
1812 + .154870D-01, .928344D-02, .526335D-02, .276829D-02,
1813 + .133653D-02, .573615D-03, .211003D-03, .618598D-04,
1814 + .129361D-04, .151705D-05, .479764D-07, .000000D+00 /
1815 DATA (UPDI(I),I=6553,6604) /
1816 + .887681D+06, .698190D+06, .542954D+06, .421972D+06,
1817 + .327952D+06, .254719D+06, .197838D+06, .153559D+06,
1818 + .119188D+06, .924475D+05, .717040D+05, .555761D+05,
1819 + .430736D+05, .333597D+05, .258349D+05, .199928D+05,
1820 + .154707D+05, .119626D+05, .924943D+04, .714631D+04,
1821 + .552110D+04, .426242D+04, .329067D+04, .253880D+04,
1822 + .195883D+04, .151050D+04, .116502D+04, .895087D+03,
1823 + .690558D+03, .532768D+03, .411408D+03, .317874D+03,
1824 + .246004D+03, .190801D+03, .148305D+03, .115617D+03,
1825 + .905358D+02, .712393D+02, .564215D+02, .449949D+02,
1826 + .362015D+02, .293861D+02, .240994D+02, .199633D+02,
1827 + .167136D+02, .141295D+02, .120663D+02, .103769D+02,
1828 + .899525D+01, .783205D+01, .685137D+01, .600741D+01 /
1829 DATA (UPDI(I),I=6605,6656) /
1830 + .527431D+01, .462916D+01, .405820D+01, .354882D+01,
1831 + .309358D+01, .268536D+01, .231976D+01, .199267D+01,
1832 + .170110D+01, .144230D+01, .121356D+01, .101366D+01,
1833 + .838292D+00, .686706D+00, .556688D+00, .446293D+00,
1834 + .353427D+00, .276225D+00, .212747D+00, .161311D+00,
1835 + .120178D+00, .877589D-01, .628709D-01, .438765D-01,
1836 + .297828D-01, .196013D-01, .124351D-01, .756806D-02,
1837 + .437524D-02, .238775D-02, .120422D-02, .555975D-03,
1838 + .227025D-03, .792624D-04, .219520D-04, .438676D-05,
1839 + .526889D-06, .200947D-07, .000000D+00, .196446D+07,
1840 + .153209D+07, .118000D+07, .908208D+06, .698941D+06,
1841 + .537513D+06, .413315D+06, .317582D+06, .243985D+06,
1842 + .187301D+06, .143762D+06, .110256D+06, .845419D+05 /
1843 DATA (UPDI(I),I=6657,6708) /
1844 + .647720D+05, .496144D+05, .379717D+05, .290543D+05,
1845 + .222119D+05, .169768D+05, .129642D+05, .989759D+04,
1846 + .754979D+04, .575773D+04, .438745D+04, .334277D+04,
1847 + .254486D+04, .193743D+04, .146872D+04, .111798D+04,
1848 + .850835D+03, .647939D+03, .493599D+03, .376510D+03,
1849 + .287759D+03, .220309D+03, .169107D+03, .130316D+03,
1850 + .100854D+03, .785035D+02, .614780D+02, .485237D+02,
1851 + .385981D+02, .309794D+02, .250851D+02, .205030D+02,
1852 + .169031D+02, .140644D+02, .117748D+02, .993324D+01,
1853 + .841415D+01, .716133D+01, .611099D+01, .522317D+01,
1854 + .446537D+01, .381497D+01, .325333D+01, .276713D+01,
1855 + .234515D+01, .197897D+01, .166151D+01, .138698D+01,
1856 + .115045D+01, .947280D+00, .774647D+00, .627254D+00 /
1857 DATA (UPDI(I),I=6709,6760) /
1858 + .503208D+00, .399547D+00, .313756D+00, .243383D+00,
1859 + .186316D+00, .140540D+00, .104349D+00, .761118D-01,
1860 + .543925D-01, .381279D-01, .260202D-01, .172634D-01,
1861 + .110986D-01, .687424D-02, .408164D-02, .230082D-02,
1862 + .122372D-02, .601357D-03, .270636D-03, .107949D-03,
1863 + .369718D-04, .101539D-04, .205480D-05, .257879D-06,
1864 + .974981D-08, .000000D+00, .329453D+07, .255392D+07,
1865 + .195342D+07, .149303D+07, .114090D+07, .871169D+06,
1866 + .665042D+06, .507293D+06, .386855D+06, .294771D+06,
1867 + .224538D+06, .170894D+06, .130022D+06, .988381D+05,
1868 + .751058D+05, .570198D+05, .432722D+05, .328083D+05,
1869 + .248647D+05, .188262D+05, .142483D+05, .107732D+05,
1870 + .814258D+04, .614858D+04, .464131D+04, .350031D+04 /
1871 DATA (UPDI(I),I=6761,6812) /
1872 + .263942D+04, .198124D+04, .149323D+04, .112505D+04,
1873 + .848013D+03, .639328D+03, .482502D+03, .364811D+03,
1874 + .276222D+03, .209644D+03, .159689D+03, .122123D+03,
1875 + .938932D+02, .725973D+02, .565414D+02, .443549D+02,
1876 + .350832D+02, .279773D+02, .225031D+02, .182448D+02,
1877 + .149206D+02, .122700D+02, .101641D+02, .845127D+01,
1878 + .705967D+01, .591270D+01, .496025D+01, .416299D+01,
1879 + .349215D+01, .292490D+01, .244396D+01, .203544D+01,
1880 + .168837D+01, .139383D+01, .114436D+01, .933846D+00,
1881 + .756615D+00, .609000D+00, .485404D+00, .383375D+00,
1882 + .299717D+00, .231765D+00, .177045D+00, .133477D+00,
1883 + .991579D-01, .725089D-01, .520880D-01, .366578D-01,
1884 + .253073D-01, .170074D-01, .111120D-01, .703545D-02 /
1885 DATA (UPDI(I),I=6813,6864) /
1886 + .429223D-02, .251092D-02, .139532D-02, .732192D-03,
1887 + .355580D-03, .158502D-03, .628846D-04, .215429D-04,
1888 + .597875D-05, .123556D-05, .159330D-06, .578102D-08,
1889 + .000000D+00, .516324D+07, .398008D+07, .302457D+07,
1890 + .229669D+07, .174342D+07, .132239D+07, .100268D+07,
1891 + .759643D+06, .575289D+06, .435299D+06, .329234D+06,
1892 + .248788D+06, .187912D+06, .141798D+06, .106947D+06,
1893 + .805823D+05, .606851D+05, .456542D+05, .343274D+05,
1894 + .257837D+05, .193554D+05, .145144D+05, .108783D+05,
1895 + .814466D+04, .609485D+04, .455609D+04, .340483D+04,
1896 + .253227D+04, .189088D+04, .141131D+04, .105360D+04,
1897 + .786624D+03, .587782D+03, .439955D+03, .329694D+03,
1898 + .247612D+03, .186589D+03, .141133D+03, .107286D+03 /
1899 DATA (UPDI(I),I=6865,6916) /
1900 + .819910D+02, .630908D+02, .488776D+02, .381596D+02,
1901 + .300213D+02, .238087D+02, .190231D+02, .153242D+02,
1902 + .124067D+02, .101154D+02, .827555D+01, .680065D+01,
1903 + .560296D+01, .462363D+01, .381741D+01, .315045D+01,
1904 + .259645D+01, .213509D+01, .175034D+01, .142938D+01,
1905 + .116200D+01, .939627D+00, .755353D+00, .602957D+00,
1906 + .478262D+00, .375669D+00, .292439D+00, .225358D+00,
1907 + .171790D+00, .129375D+00, .961644D-01, .704367D-01,
1908 + .507861D-01, .359749D-01, .249647D-01, .169971D-01,
1909 + .112652D-01, .726010D-02, .453518D-02, .273096D-02,
1910 + .157770D-02, .866605D-03, .450051D-03, .216750D-03,
1911 + .960669D-04, .380591D-04, .130841D-04, .367278D-05,
1912 + .772082D-06, .101271D-06, .342774D-08, .000000D+00 /
1913 DATA (UPDI(I),I=6917,6968) /
1914 + .767710D+07, .588721D+07, .444696D+07, .335636D+07,
1915 + .253216D+07, .190877D+07, .143819D+07, .108268D+07,
1916 + .814652D+06, .612413D+06, .460134D+06, .345387D+06,
1917 + .259106D+06, .194183D+06, .145437D+06, .108812D+06,
1918 + .813575D+05, .607629D+05, .453504D+05, .338087D+05,
1919 + .251865D+05, .187416D+05, .139361D+05, .103509D+05,
1920 + .768289D+04, .569574D+04, .422075D+04, .311192D+04,
1921 + .230350D+04, .170411D+04, .126073D+04, .932666D+03,
1922 + .690399D+03, .511881D+03, .379878D+03, .282494D+03,
1923 + .210729D+03, .157755D+03, .118656D+03, .896987D+02,
1924 + .682512D+02, .522672D+02, .403187D+02, .313288D+02,
1925 + .245279D+02, .193389D+02, .153671D+02, .122671D+02,
1926 + .985922D+01, .794862D+01, .643605D+01, .522427D+01 /
1927 DATA (UPDI(I),I=6969,7020) /
1928 + .424720D+01, .345474D+01, .280907D+01, .228119D+01,
1929 + .184855D+01, .149361D+01, .120234D+01, .963663D+00,
1930 + .768383D+00, .609190D+00, .479643D+00, .375336D+00,
1931 + .290872D+00, .223424D+00, .169910D+00, .127834D+00,
1932 + .950278D-01, .697289D-01, .504254D-01, .359006D-01,
1933 + .251151D-01, .172143D-01, .115797D-01, .758422D-02,
1934 + .483209D-02, .298551D-02, .177939D-02, .101832D-02,
1935 + .554795D-03, .286212D-03, .137241D-03, .607157D-04,
1936 + .240964D-04, .832644D-05, .235970D-05, .501322D-06,
1937 + .661820D-07, .204894D-08, .000000D+00, .115361D+08,
1938 + .879569D+07, .659948D+07, .494746D+07, .370699D+07,
1939 + .277511D+07, .207629D+07, .155202D+07, .115940D+07,
1940 + .865266D+06, .645318D+06, .480788D+06, .357948D+06 /
1941 DATA (UPDI(I),I=7021,7072) /
1942 + .266207D+06, .197826D+06, .146844D+06, .108911D+06,
1943 + .806820D+05, .597184D+05, .441473D+05, .326074D+05,
1944 + .240535D+05, .177280D+05, .130495D+05, .959728D+04,
1945 + .704877D+04, .517396D+04, .377750D+04, .276873D+04,
1946 + .202790D+04, .148501D+04, .108725D+04, .796333D+03,
1947 + .584117D+03, .428737D+03, .315279D+03, .232505D+03,
1948 + .172037D+03, .127856D+03, .954756D+02, .717351D+02,
1949 + .542264D+02, .412719D+02, .316287D+02, .244109D+02,
1950 + .189649D+02, .148438D+02, .116660D+02, .922896D+01,
1951 + .732124D+01, .583213D+01, .465698D+01, .372408D+01,
1952 + .297975D+01, .238333D+01, .190410D+01, .151813D+01,
1953 + .120709D+01, .956358D+00, .754561D+00, .592387D+00,
1954 + .462523D+00, .358691D+00, .276543D+00, .211171D+00 /
1955 DATA (UPDI(I),I=7073,7124) /
1956 + .159863D+00, .119844D+00, .889035D-01, .651783D-01,
1957 + .471800D-01, .336677D-01, .236602D-01, .163447D-01,
1958 + .110667D-01, .735813D-02, .476610D-02, .300548D-02,
1959 + .183957D-02, .108744D-02, .618072D-03, .335026D-03,
1960 + .172285D-03, .825610D-04, .365864D-04, .145857D-04,
1961 + .507054D-05, .144801D-05, .309315D-06, .408466D-07,
1962 + .116274D-08, .000000D+00, .167458D+08, .126972D+08,
1963 + .946501D+07, .704929D+07, .524678D+07, .390154D+07,
1964 + .289923D+07, .215230D+07, .159663D+07, .118319D+07,
1965 + .876120D+06, .648032D+06, .478919D+06, .353529D+06,
1966 + .260733D+06, .192061D+06, .141340D+06, .103880D+06,
1967 + .762723D+05, .559267D+05, .409655D+05, .299654D+05,
1968 + .218960D+05, .159774D+05, .116464D+05, .847652D+04 /
1969 DATA (UPDI(I),I=7125,7176) /
1970 + .616482D+04, .445830D+04, .323660D+04, .234765D+04,
1971 + .170217D+04, .123375D+04, .894363D+03, .649207D+03,
1972 + .471439D+03, .342928D+03, .250095D+03, .182966D+03,
1973 + .134407D+03, .991818D+02, .736159D+02, .549558D+02,
1974 + .412907D+02, .312265D+02, .237737D+02, .182127D+02,
1975 + .140523D+02, .108824D+02, .848156D+01, .662675D+01,
1976 + .519855D+01, .408754D+01, .321847D+01, .253566D+01,
1977 + .199705D+01, .157118D+01, .123373D+01, .966257D+00,
1978 + .754192D+00, .586334D+00, .453656D+00, .349154D+00,
1979 + .266959D+00, .202979D+00, .152881D+00, .114183D+00,
1980 + .844736D-01, .618581D-01, .447805D-01, .320182D-01,
1981 + .225774D-01, .156848D-01, .107167D-01, .718027D-02,
1982 + .472770D-02, .303465D-02, .189813D-02, .115356D-02 /
1983 DATA (UPDI(I),I=7177,7228) /
1984 + .677924D-03, .383562D-03, .207298D-03, .106446D-03,
1985 + .510278D-04, .226464D-04, .905164D-05, .315328D-05,
1986 + .901688D-06, .192227D-06, .252044D-07, .643289D-09,
1987 + .000000D+00, .235426D+08, .177564D+08, .131540D+08,
1988 + .973525D+07, .719976D+07, .531938D+07, .392702D+07,
1989 + .289609D+07, .213401D+07, .157073D+07, .115508D+07,
1990 + .848435D+06, .622594D+06, .456304D+06, .334084D+06,
1991 + .244281D+06, .178422D+06, .130140D+06, .948139D+05,
1992 + .689774D+05, .501213D+05, .363654D+05, .263529D+05,
1993 + .190681D+05, .137802D+05, .994187D+04, .716631D+04,
1994 + .513504D+04, .369351D+04, .265396D+04, .190583D+04,
1995 + .136791D+04, .981744D+03, .705441D+03, .506974D+03,
1996 + .364894D+03, .263250D+03, .190477D+03, .138354D+03 /
1997 DATA (UPDI(I),I=7229,7280) /
1998 + .100922D+03, .740267D+02, .545966D+02, .405129D+02,
1999 + .302496D+02, .227301D+02, .171810D+02, .130763D+02,
2000 + .998562D+01, .767329D+01, .590955D+01, .456930D+01,
2001 + .354093D+01, .274778D+01, .213361D+01, .165626D+01,
2002 + .128449D+01, .994365D+00, .767911D+00, .591117D+00,
2003 + .453318D+00, .346059D+00, .262854D+00, .198389D+00,
2004 + .148951D+00, .110806D+00, .817657D-01, .597866D-01,
2005 + .432865D-01, .309956D-01, .219309D-01, .153110D-01,
2006 + .105368D-01, .713623D-02, .474247D-02, .309975D-02,
2007 + .197671D-02, .122952D-02, .743783D-03, .435572D-03,
2008 + .245825D-03, .132669D-03, .680776D-04, .326339D-04,
2009 + .144799D-04, .578269D-05, .200868D-05, .571399D-06,
2010 + .120763D-06, .156346D-07, .353263D-09, .000000D+00 /
2011 DATA (UPDI(I),I=7281,7332) /
2012 + .321588D+08, .241327D+08, .177706D+08, .130726D+08,
2013 + .960867D+07, .705525D+07, .517582D+07, .379286D+07,
2014 + .277680D+07, .203055D+07, .148335D+07, .108227D+07,
2015 + .788785D+06, .574128D+06, .417406D+06, .303041D+06,
2016 + .219743D+06, .159106D+06, .115053D+06, .830685D+05,
2017 + .598952D+05, .431168D+05, .309960D+05, .222457D+05,
2018 + .159435D+05, .114054D+05, .815063D+04, .578853D+04,
2019 + .412638D+04, .293806D+04, .209026D+04, .148612D+04,
2020 + .105628D+04, .751556D+03, .534688D+03, .380902D+03,
2021 + .271925D+03, .194655D+03, .139846D+03, .100874D+03,
2022 + .731471D+02, .533183D+02, .390910D+02, .288309D+02,
2023 + .213929D+02, .159635D+02, .119921D+02, .903622D+01,
2024 + .685111D+01, .520493D+01, .396988D+01, .303463D+01 /
2025 DATA (UPDI(I),I=7333,7384) /
2026 + .232293D+01, .177937D+01, .136276D+01, .104285D+01,
2027 + .796727D+00, .607346D+00, .461592D+00, .349590D+00,
2028 + .263630D+00, .197870D+00, .147615D+00, .109591D+00,
2029 + .806396D-01, .588811D-01, .426204D-01, .305613D-01,
2030 + .216841D-01, .152107D-01, .105341D-01, .719559D-02,
2031 + .484038D-02, .319712D-02, .207858D-02, .131941D-02,
2032 + .817559D-03, .493044D-03, .288046D-03, .162259D-03,
2033 + .874373D-04, .447962D-04, .214315D-04, .947957D-05,
2034 + .376769D-05, .129899D-05, .365771D-06, .763035D-07,
2035 + .972553D-08, .193000D-09, .000000D+00, .428049D+08,
2036 + .319664D+08, .234035D+08, .171161D+08, .125065D+08,
2037 + .912831D+07, .665614D+07, .484783D+07, .352713D+07,
2038 + .256305D+07, .186042D+07, .134862D+07, .976464D+06 /
2039 DATA (UPDI(I),I=7385,7436) /
2040 + .706014D+06, .509824D+06, .367605D+06, .264702D+06,
2041 + .190305D+06, .136624D+06, .979222D+05, .700797D+05,
2042 + .500668D+05, .357148D+05, .254313D+05, .180806D+05,
2043 + .128285D+05, .909142D+04, .640120D+04, .452368D+04,
2044 + .319259D+04, .225091D+04, .158569D+04, .111648D+04,
2045 + .786831D+03, .554323D+03, .390965D+03, .276272D+03,
2046 + .195718D+03, .139120D+03, .992649D+02, .711847D+02,
2047 + .513018D+02, .371779D+02, .270968D+02, .198645D+02,
2048 + .146415D+02, .108629D+02, .808199D+01, .605015D+01,
2049 + .453766D+01, .341675D+01, .257854D+01, .194878D+01,
2050 + .147401D+01, .111487D+01, .842705D+00, .636069D+00,
2051 + .479159D+00, .359973D+00, .269568D+00, .201069D+00,
2052 + .149321D+00, .110260D+00, .810589D-01, .590840D-01 /
2053 DATA (UPDI(I),I=7437,7488) /
2054 + .427551D-01, .306854D-01, .218274D-01, .153716D-01,
2055 + .107081D-01, .736886D-02, .500443D-02, .334902D-02,
2056 + .220190D-02, .142585D-02, .901939D-03, .557211D-03,
2057 + .335145D-03, .195324D-03, .109755D-03, .589828D-04,
2058 + .301137D-04, .143419D-04, .630427D-05, .248494D-05,
2059 + .847307D-06, .235368D-06, .483376D-07, .605803D-08,
2060 + .105155D-09, .000000D+00, .556565D+08, .413708D+08,
2061 + .301202D+08, .219046D+08, .159142D+08, .115486D+08,
2062 + .837180D+07, .606138D+07, .438364D+07, .316613D+07,
2063 + .228402D+07, .164538D+07, .118378D+07, .850417D+06,
2064 + .610091D+06, .436992D+06, .312548D+06, .223168D+06,
2065 + .159103D+06, .113228D+06, .804504D+05, .570554D+05,
2066 + .403965D+05, .285466D+05, .201381D+05, .141752D+05 /
2067 DATA (UPDI(I),I=7489,7540) /
2068 + .996503D+04, .695792D+04, .487594D+04, .341184D+04,
2069 + .238452D+04, .166489D+04, .116159D+04, .811059D+03,
2070 + .565983D+03, .395336D+03, .276607D+03, .193985D+03,
2071 + .136472D+03, .963544D+02, .683583D+02, .487272D+02,
2072 + .349189D+02, .251619D+02, .182335D+02, .132821D+02,
2073 + .973820D+01, .715856D+01, .529488D+01, .392344D+01,
2074 + .291894D+01, .217668D+01, .162571D+01, .121537D+01,
2075 + .908750D+00, .679216D+00, .507062D+00, .377909D+00,
2076 + .280975D+00, .208306D+00, .153878D+00, .113219D+00,
2077 + .828627D-01, .604064D-01, .436788D-01, .313696D-01,
2078 + .223556D-01, .157980D-01, .110583D-01, .766061D-02,
2079 + .524510D-02, .354575D-02, .236305D-02, .154781D-02,
2080 + .998909D-03, .629864D-03, .387946D-03, .232617D-03 /
2081 DATA (UPDI(I),I=7541,7592) /
2082 + .135124D-03, .756396D-04, .404666D-04, .205445D-04,
2083 + .971574D-05, .423292D-05, .165020D-05, .555102D-06,
2084 + .151796D-06, .306459D-07, .377574D-08, .573060D-10,
2085 + .000000D+00, .708437D+08, .524243D+08, .379622D+08,
2086 + .274575D+08, .198385D+08, .143162D+08, .103194D+08,
2087 + .742879D+07, .534139D+07, .383524D+07, .275022D+07,
2088 + .196927D+07, .140812D+07, .100530D+07, .716647D+06,
2089 + .510028D+06, .362408D+06, .257059D+06, .182030D+06,
2090 + .128659D+06, .907772D+05, .639231D+05, .449320D+05,
2091 + .315181D+05, .220675D+05, .154142D+05, .107515D+05,
2092 + .744655D+04, .517601D+04, .359185D+04, .248911D+04,
2093 + .172295D+04, .119151D+04, .824492D+03, .570075D+03,
2094 + .394468D+03, .273361D+03, .189841D+03, .132228D+03 /
2095 DATA (UPDI(I),I=7593,7644) /
2096 + .924117D+02, .648839D+02, .457641D+02, .324444D+02,
2097 + .231249D+02, .165729D+02, .119380D+02, .865502D+01,
2098 + .629044D+01, .460057D+01, .337062D+01, .247976D+01,
2099 + .182884D+01, .135112D+01, .999346D+00, .739455D+00,
2100 + .547084D+00, .404406D+00, .298536D+00, .219930D+00,
2101 + .161617D+00, .118386D+00, .864089D-01, .627616D-01,
2102 + .454269D-01, .326267D-01, .232848D-01, .164971D-01,
2103 + .115949D-01, .807569D-02, .556862D-02, .379656D-02,
2104 + .255636D-02, .169736D-02, .110783D-02, .712503D-03,
2105 + .447687D-03, .274723D-03, .164058D-03, .948634D-04,
2106 + .528185D-04, .280795D-04, .141480D-04, .662990D-05,
2107 + .285707D-05, .109953D-05, .364295D-06, .979456D-07,
2108 + .194256D-07, .235368D-08, .313506D-10, .000000D+00 /
2109 DATA (UPDI(I),I=7645,7696) /
2110 + .461958D+04, .573651D+04, .477062D+04, .396850D+04,
2111 + .330226D+04, .274881D+04, .228896D+04, .190681D+04,
2112 + .158916D+04, .132506D+04, .110543D+04, .922723D+03,
2113 + .770691D+03, .644140D+03, .538762D+03, .450979D+03,
2114 + .377822D+03, .316826D+03, .265944D+03, .223477D+03,
2115 + .188012D+03, .158377D+03, .133597D+03, .112863D+03,
2116 + .955020D+02, .809539D+02, .687538D+02, .583820D+02,
2117 + .498070D+02, .425987D+02, .365352D+02, .314314D+02,
2118 + .271332D+02, .235219D+02, .204708D+02, .179005D+02,
2119 + .157351D+02, .139110D+02, .123741D+02, .110783D+02,
2120 + .998650D+01, .906355D+01, .828162D+01, .761642D+01,
2121 + .704723D+01, .655646D+01, .613066D+01, .575322D+01,
2122 + .541832D+01, .511319D+01, .483388D+01, .457357D+01 /
2123 DATA (UPDI(I),I=7697,7748) /
2124 + .432778D+01, .409303D+01, .386668D+01, .364683D+01,
2125 + .343216D+01, .322183D+01, .301542D+01, .281280D+01,
2126 + .261411D+01, .241964D+01, .222981D+01, .204597D+01,
2127 + .186674D+01, .169384D+01, .152787D+01, .136937D+01,
2128 + .121885D+01, .107680D+01, .943702D+00, .819662D+00,
2129 + .704884D+00, .599453D+00, .504369D+00, .418201D+00,
2130 + .341528D+00, .274116D+00, .215648D+00, .165727D+00,
2131 + .123875D+00, .895965D-01, .620773D-01, .408822D-01,
2132 + .251481D-01, .140965D-01, .690782D-02, .273790D-02,
2133 + .737015D-03, .770655D-04, .000000D+00, .218551D+05,
2134 + .176381D+05, .141256D+05, .113176D+05, .907538D+04,
2135 + .728111D+04, .584707D+04, .469828D+04, .377918D+04,
2136 + .304201D+04, .245153D+04, .197730D+04, .159693D+04 /
2137 DATA (UPDI(I),I=7749,7800) /
2138 + .129099D+04, .104522D+04, .847207D+03, .687874D+03,
2139 + .559250D+03, .455553D+03, .371664D+03, .303889D+03,
2140 + .248929D+03, .204415D+03, .168221D+03, .138825D+03,
2141 + .114862D+03, .953345D+02, .791617D+02, .661487D+02,
2142 + .554629D+02, .467004D+02, .394790D+02, .335371D+02,
2143 + .286360D+02, .245794D+02, .212145D+02, .184282D+02,
2144 + .161086D+02, .141804D+02, .125674D+02, .112203D+02,
2145 + .100855D+02, .912840D+01, .831350D+01, .761659D+01,
2146 + .701370D+01, .648983D+01, .602403D+01, .561068D+01,
2147 + .523410D+01, .489098D+01, .457304D+01, .427597D+01,
2148 + .399562D+01, .372947D+01, .347516D+01, .323142D+01,
2149 + .299710D+01, .277169D+01, .255476D+01, .234624D+01,
2150 + .214614D+01, .195453D+01, .177246D+01, .159818D+01 /
2151 DATA (UPDI(I),I=7801,7852) /
2152 + .143310D+01, .127740D+01, .113128D+01, .994876D+00,
2153 + .868273D+00, .751482D+00, .644507D+00, .547202D+00,
2154 + .459277D+00, .381303D+00, .311815D+00, .251055D+00,
2155 + .198549D+00, .153801D+00, .116294D+00, .854348D-01,
2156 + .606730D-01, .412082D-01, .265615D-01, .159549D-01,
2157 + .870978D-02, .414049D-02, .158568D-02, .413314D-03,
2158 + .436283D-04, .000000D+00, .495202D+05, .392825D+05,
2159 + .308566D+05, .242428D+05, .190574D+05, .149852D+05,
2160 + .117912D+05, .928138D+04, .731172D+04, .576292D+04,
2161 + .454659D+04, .358930D+04, .283685D+04, .224401D+04,
2162 + .177752D+04, .140949D+04, .111950D+04, .890354D+03,
2163 + .709502D+03, .566316D+03, .453092D+03, .363240D+03,
2164 + .292014D+03, .235334D+03, .190272D+03, .154312D+03 /
2165 DATA (UPDI(I),I=7853,7904) /
2166 + .125621D+03, .102346D+03, .839955D+02, .692214D+02,
2167 + .573387D+02, .477250D+02, .399551D+02, .336528D+02,
2168 + .285196D+02, .243232D+02, .208959D+02, .180765D+02,
2169 + .157583D+02, .138362D+02, .122439D+02, .109103D+02,
2170 + .979120D+01, .884146D+01, .803153D+01, .733216D+01,
2171 + .672570D+01, .618759D+01, .571158D+01, .527961D+01,
2172 + .488827D+01, .452816D+01, .419460D+01, .388290D+01,
2173 + .359029D+01, .331404D+01, .305265D+01, .280467D+01,
2174 + .256935D+01, .234598D+01, .213422D+01, .193380D+01,
2175 + .174446D+01, .156697D+01, .139933D+01, .124263D+01,
2176 + .109676D+01, .961647D+00, .837136D+00, .723067D+00,
2177 + .619186D+00, .525276D+00, .440991D+00, .365825D+00,
2178 + .300071D+00, .242281D+00, .192442D+00, .150027D+00 /
2179 DATA (UPDI(I),I=7905,7956) /
2180 + .114443D+00, .851205D-01, .614114D-01, .427599D-01,
2181 + .283999D-01, .178496D-01, .104095D-01, .548554D-02,
2182 + .249468D-02, .901551D-03, .219283D-03, .236238D-04,
2183 + .000000D+00, .607343D+05, .716834D+05, .556435D+05,
2184 + .431921D+05, .335376D+05, .260424D+05, .202306D+05,
2185 + .157180D+05, .122184D+05, .950046D+04, .739210D+04,
2186 + .575396D+04, .448272D+04, .349441D+04, .272698D+04,
2187 + .212986D+04, .166579D+04, .130430D+04, .102304D+04,
2188 + .803631D+03, .632663D+03, .499042D+03, .394704D+03,
2189 + .312962D+03, .248964D+03, .198697D+03, .159216D+03,
2190 + .127689D+03, .103217D+03, .838208D+02, .684539D+02,
2191 + .562082D+02, .464514D+02, .386491D+02, .323770D+02,
2192 + .273145D+02, .232271D+02, .199010D+02, .171919D+02 /
2193 DATA (UPDI(I),I=7957,8008) /
2194 + .149652D+02, .131337D+02, .116096D+02, .103372D+02,
2195 + .926231D+01, .834897D+01, .756315D+01, .688394D+01,
2196 + .628356D+01, .575466D+01, .527715D+01, .484705D+01,
2197 + .445403D+01, .409280D+01, .375818D+01, .344699D+01,
2198 + .315613D+01, .288377D+01, .262817D+01, .238828D+01,
2199 + .216308D+01, .195196D+01, .175437D+01, .156975D+01,
2200 + .139859D+01, .123868D+01, .109083D+01, .954692D+00,
2201 + .829955D+00, .716239D+00, .613184D+00, .520346D+00,
2202 + .437339D+00, .363670D+00, .298699D+00, .242514D+00,
2203 + .193715D+00, .152137D+00, .117200D+00, .882745D-01,
2204 + .647706D-01, .460434D-01, .315477D-01, .205785D-01,
2205 + .126743D-01, .721967D-02, .369986D-02, .162519D-02,
2206 + .561656D-03, .129528D-03, .141864D-04, .000000D+00 /
2207 DATA (UPDI(I),I=8009,8060) /
2208 + .142731D+06, .111288D+06, .857140D+05, .660088D+05,
2209 + .508397D+05, .391535D+05, .301593D+05, .232313D+05,
2210 + .179000D+05, .137936D+05, .106337D+05, .819969D+04,
2211 + .632656D+04, .488338D+04, .377248D+04, .291619D+04,
2212 + .225674D+04, .174807D+04, .135603D+04, .105332D+04,
2213 + .819772D+03, .639175D+03, .499600D+03, .391455D+03,
2214 + .307687D+03, .242631D+03, .192102D+03, .152215D+03,
2215 + .121600D+03, .976182D+02, .788271D+02, .640254D+02,
2216 + .523574D+02, .431303D+02, .357866D+02, .299197D+02,
2217 + .252251D+02, .214392D+02, .183789D+02, .158822D+02,
2218 + .138411D+02, .121526D+02, .107494D+02, .956936D+01,
2219 + .857036D+01, .771422D+01, .697677D+01, .632752D+01,
2220 + .575788D+01, .524610D+01, .478748D+01, .437094D+01 /
2221 DATA (UPDI(I),I=8061,8112) /
2222 + .399052D+01, .364065D+01, .331765D+01, .301817D+01,
2223 + .273997D+01, .248109D+01, .224015D+01, .201592D+01,
2224 + .180750D+01, .161412D+01, .143497D+01, .127028D+01,
2225 + .111771D+01, .977853D+00, .850148D+00, .734125D+00,
2226 + .629240D+00, .534985D+00, .450793D+00, .376160D+00,
2227 + .310498D+00, .253088D+00, .203883D+00, .161533D+00,
2228 + .125789D+00, .960444D-01, .716659D-01, .520647D-01,
2229 + .366199D-01, .248065D-01, .159805D-01, .970850D-02,
2230 + .544613D-02, .274280D-02, .118073D-02, .398852D-03,
2231 + .901138D-04, .993876D-05, .000000D+00, .211064D+06,
2232 + .163633D+06, .125205D+06, .957808D+05, .732696D+05,
2233 + .560384D+05, .428610D+05, .327782D+05, .250702D+05,
2234 + .191741D+05, .146681D+05, .112219D+05, .858867D+04 /
2235 DATA (UPDI(I),I=8113,8164) /
2236 + .657496D+04, .503635D+04, .385959D+04, .296032D+04,
2237 + .227230D+04, .174629D+04, .134359D+04, .103550D+04,
2238 + .799380D+03, .618496D+03, .479643D+03, .373071D+03,
2239 + .291099D+03, .228039D+03, .178753D+03, .141294D+03,
2240 + .112249D+03, .897115D+02, .721391D+02, .584191D+02,
2241 + .476764D+02, .392041D+02, .324981D+02, .271766D+02,
2242 + .229205D+02, .195047D+02, .167376D+02, .144887D+02,
2243 + .126391D+02, .111089D+02, .982818D+01, .874810D+01,
2244 + .782626D+01, .703518D+01, .634160D+01, .573564D+01,
2245 + .519387D+01, .471084D+01, .427468D+01, .387873D+01,
2246 + .351700D+01, .318534D+01, .288006D+01, .259858D+01,
2247 + .233865D+01, .209860D+01, .187696D+01, .167256D+01,
2248 + .148443D+01, .131148D+01, .115376D+01, .100880D+01 /
2249 DATA (UPDI(I),I=8165,8216) /
2250 + .876958D+00, .757527D+00, .649879D+00, .553338D+00,
2251 + .467276D+00, .391020D+00, .323975D+00, .265480D+00,
2252 + .214765D+00, .171670D+00, .134908D+00, .104165D+00,
2253 + .788247D-01, .582627D-01, .419022D-01, .291534D-01,
2254 + .195181D-01, .124118D-01, .743301D-02, .410251D-02,
2255 + .202787D-02, .853980D-03, .281245D-03, .620756D-04,
2256 + .690159D-05, .000000D+00, .203119D+06, .231202D+06,
2257 + .175888D+06, .133766D+06, .101718D+06, .773258D+05,
2258 + .587777D+05, .446679D+05, .339447D+05, .257914D+05,
2259 + .195981D+05, .148910D+05, .113170D+05, .860147D+04,
2260 + .654017D+04, .497431D+04, .378581D+04, .288293D+04,
2261 + .219755D+04, .167671D+04, .128119D+04, .980408D+03,
2262 + .751773D+03, .577686D+03, .445152D+03, .344068D+03 /
2263 DATA (UPDI(I),I=8217,8268) /
2264 + .266966D+03, .207233D+03, .162231D+03, .127652D+03,
2265 + .101056D+03, .805087D+02, .646051D+02, .522643D+02,
2266 + .426129D+02, .350386D+02, .290744D+02, .243410D+02,
2267 + .205680D+02, .175318D+02, .150782D+02, .130713D+02,
2268 + .114187D+02, .100420D+02, .888550D+01, .790257D+01,
2269 + .706231D+01, .632875D+01, .569058D+01, .512280D+01,
2270 + .461908D+01, .416681D+01, .375859D+01, .338802D+01,
2271 + .305044D+01, .274184D+01, .245928D+01, .220023D+01,
2272 + .196272D+01, .174503D+01, .154577D+01, .136373D+01,
2273 + .119762D+01, .104725D+01, .910082D+00, .786266D+00,
2274 + .674946D+00, .575366D+00, .486738D+00, .408333D+00,
2275 + .339400D+00, .279269D+00, .227227D+00, .182470D+00,
2276 + .144755D+00, .112857D+00, .864178D-01, .648260D-01 /
2277 DATA (UPDI(I),I=8269,8320) /
2278 + .474750D-01, .338089D-01, .232744D-01, .154045D-01,
2279 + .967297D-02, .571229D-02, .310332D-02, .150633D-02,
2280 + .620994D-03, .199600D-03, .430945D-04, .482861D-05,
2281 + .000000D+00, .441605D+06, .338812D+06, .256125D+06,
2282 + .193543D+06, .146216D+06, .110418D+06, .833665D+05,
2283 + .629204D+05, .474807D+05, .358194D+05, .270196D+05,
2284 + .203776D+05, .153687D+05, .115902D+05, .874232D+04,
2285 + .659498D+04, .497714D+04, .375760D+04, .283897D+04,
2286 + .214653D+04, .162492D+04, .123160D+04, .935145D+03,
2287 + .711422D+03, .542599D+03, .415022D+03, .318616D+03,
2288 + .244649D+03, .189460D+03, .147478D+03, .115500D+03,
2289 + .910458D+02, .723018D+02, .579034D+02, .467486D+02,
2290 + .380789D+02, .313122D+02, .259894D+02, .217797D+02 /
2291 DATA (UPDI(I),I=8321,8372) /
2292 + .184183D+02, .157201D+02, .135276D+02, .117322D+02,
2293 + .102450D+02, .900185D+01, .795063D+01, .705634D+01,
2294 + .627967D+01, .560757D+01, .501311D+01, .448889D+01,
2295 + .402135D+01, .360224D+01, .322458D+01, .288313D+01,
2296 + .257349D+01, .229224D+01, .203653D+01, .180405D+01,
2297 + .159278D+01, .140105D+01, .122739D+01, .107028D+01,
2298 + .929285D+00, .801778D+00, .687685D+00, .586003D+00,
2299 + .495841D+00, .416304D+00, .346566D+00, .285806D+00,
2300 + .233288D+00, .188258D+00, .149894D+00, .117877D+00,
2301 + .910671D-01, .690735D-01, .513024D-01, .371800D-01,
2302 + .261855D-01, .178141D-01, .116418D-01, .720978D-02,
2303 + .419372D-02, .224035D-02, .106709D-02, .430628D-03,
2304 + .135247D-03, .286371D-04, .323168D-05, .000000D+00 /
2305 DATA (UPDI(I),I=8373,8424) /
2306 + .629503D+06, .480536D+06, .361120D+06, .271257D+06,
2307 + .203685D+06, .152873D+06, .114699D+06, .860188D+05,
2308 + .644913D+05, .483323D+05, .362137D+05, .271250D+05,
2309 + .203146D+05, .152109D+05, .113896D+05, .852791D+04,
2310 + .638664D+04, .478399D+04, .358538D+04, .268857D+04,
2311 + .201801D+04, .151630D+04, .114107D+04, .860182D+03,
2312 + .649946D+03, .492400D+03, .374363D+03, .284598D+03,
2313 + .218216D+03, .168177D+03, .130405D+03, .101786D+03,
2314 + .800480D+02, .635033D+02, .507981D+02, .410110D+02,
2315 + .334352D+02, .275248D+02, .228849D+02, .192071D+02,
2316 + .162736D+02, .139048D+02, .119756D+02, .103862D+02,
2317 + .906412D+01, .795180D+01, .701011D+01, .619650D+01,
2318 + .549613D+01, .488023D+01, .434033D+01, .386191D+01 /
2319 DATA (UPDI(I),I=8425,8476) /
2320 + .343589D+01, .305473D+01, .271261D+01, .240472D+01,
2321 + .212722D+01, .187694D+01, .165120D+01, .144774D+01,
2322 + .126461D+01, .110012D+01, .952530D+00, .821187D+00,
2323 + .703410D+00, .598918D+00, .506589D+00, .425427D+00,
2324 + .354452D+00, .292770D+00, .239510D+00, .193893D+00,
2325 + .155146D+00, .122446D+00, .954222D-01, .730208D-01,
2326 + .548364D-01, .403031D-01, .288858D-01, .201042D-01,
2327 + .135033D-01, .870357D-02, .530866D-02, .303622D-02,
2328 + .159142D-02, .741648D-03, .291850D-03, .891149D-04,
2329 + .184125D-04, .209674D-05, .000000D+00, .873348D+06,
2330 + .663505D+06, .495840D+06, .370352D+06, .276503D+06,
2331 + .206322D+06, .153889D+06, .114720D+06, .854864D+05,
2332 + .636709D+05, .474061D+05, .352809D+05, .262500D+05 /
2333 DATA (UPDI(I),I=8477,8528) /
2334 + .195242D+05, .145197D+05, .107960D+05, .802767D+04,
2335 + .596945D+04, .444044D+04, .330432D+04, .246076D+04,
2336 + .183412D+04, .136888D+04, .102322D+04, .766471D+03,
2337 + .575559D+03, .433663D+03, .326638D+03, .248146D+03,
2338 + .189477D+03, .145562D+03, .112574D+03, .877281D+02,
2339 + .689797D+02, .547006D+02, .437920D+02, .354136D+02,
2340 + .289269D+02, .238705D+02, .198897D+02, .167339D+02,
2341 + .142006D+02, .121483D+02, .104663D+02, .907394D+01,
2342 + .790822D+01, .692607D+01, .608182D+01, .535887D+01,
2343 + .472671D+01, .417580D+01, .369071D+01, .326155D+01,
2344 + .288022D+01, .254038D+01, .223679D+01, .196522D+01,
2345 + .172217D+01, .150467D+01, .131019D+01, .113654D+01,
2346 + .981828D+00, .844132D+00, .722593D+00, .614508D+00 /
2347 DATA (UPDI(I),I=8529,8580) /
2348 + .519413D+00, .436096D+00, .363477D+00, .300518D+00,
2349 + .246280D+00, .199863D+00, .160465D+00, .127311D+00,
2350 + .995926D-01, .769083D-01, .582929D-01, .433397D-01,
2351 + .315189D-01, .223388D-01, .153629D-01, .101867D-01,
2352 + .647497D-02, .388907D-02, .218668D-02, .112428D-02,
2353 + .512513D-03, .196615D-03, .583551D-04, .117653D-04,
2354 + .135227D-05, .000000D+00, .118434D+07, .895685D+06,
2355 + .665768D+06, .494587D+06, .367233D+06, .272502D+06,
2356 + .202106D+06, .149804D+06, .110983D+06, .821739D+05,
2357 + .608159D+05, .449850D+05, .332624D+05, .245835D+05,
2358 + .181642D+05, .134169D+05, .990946D+04, .731814D+04,
2359 + .540541D+04, .399347D+04, .295205D+04, .218372D+04,
2360 + .161721D+04, .119930D+04, .891104D+03, .663618D+03 /
2361 DATA (UPDI(I),I=8581,8632) /
2362 + .495811D+03, .370221D+03, .278831D+03, .211063D+03,
2363 + .160736D+03, .123238D+03, .952183D+02, .742445D+02,
2364 + .583943D+02, .463791D+02, .372183D+02, .301769D+02,
2365 + .247244D+02, .204591D+02, .170975D+02, .144139D+02,
2366 + .122509D+02, .104870D+02, .903368D+01, .782274D+01,
2367 + .680734D+01, .593887D+01, .519902D+01, .455570D+01,
2368 + .399829D+01, .351050D+01, .308172D+01, .270329D+01,
2369 + .236836D+01, .207132D+01, .180756D+01, .157327D+01,
2370 + .136520D+01, .118061D+01, .101707D+01, .872520D+00,
2371 + .744888D+00, .633138D+00, .534565D+00, .448552D+00,
2372 + .373817D+00, .309225D+00, .253703D+00, .206283D+00,
2373 + .166059D+00, .132224D+00, .104012D+00, .806471D-01,
2374 + .617103D-01, .463259D-01, .340972D-01, .245354D-01 /
2375 DATA (UPDI(I),I=8633,8684) /
2376 + .171947D-01, .116839D-01, .764754D-02, .479327D-02,
2377 + .283478D-02, .156678D-02, .790136D-03, .352317D-03,
2378 + .131782D-03, .380370D-04, .749099D-05, .868892D-06,
2379 + .000000D+00, .157435D+07, .118544D+07, .876590D+06,
2380 + .647805D+06, .478456D+06, .353134D+06, .260487D+06,
2381 + .192015D+06, .141461D+06, .104147D+06, .766345D+05,
2382 + .563544D+05, .414210D+05, .304279D+05, .223438D+05,
2383 + .164004D+05, .120352D+05, .882983D+04, .647833D+04,
2384 + .475341D+04, .348924D+04, .256263D+04, .188394D+04,
2385 + .138666D+04, .102245D+04, .755488D+03, .559974D+03,
2386 + .414722D+03, .309809D+03, .232598D+03, .175687D+03,
2387 + .133606D+03, .102398D+03, .792146D+02, .618227D+02,
2388 + .487349D+02, .388252D+02, .312596D+02, .254378D+02 /
2389 DATA (UPDI(I),I=8685,8736) /
2390 + .209110D+02, .173627D+02, .145451D+02, .122850D+02,
2391 + .104508D+02, .894639D+01, .769868D+01, .665735D+01,
2392 + .577105D+01, .501988D+01, .437030D+01, .381067D+01,
2393 + .332393D+01, .289874D+01, .252598D+01, .219830D+01,
2394 + .190975D+01, .165536D+01, .143107D+01, .123338D+01,
2395 + .105932D+01, .906303D+00, .772103D+00, .654536D+00,
2396 + .552413D+00, .463056D+00, .385717D+00, .319072D+00,
2397 + .261950D+00, .213263D+00, .172039D+00, .137375D+00,
2398 + .108477D+00, .846036D-01, .650155D-01, .492934D-01,
2399 + .366485D-01, .267025D-01, .190102D-01, .131726D-01,
2400 + .884318D-02, .571320D-02, .353067D-02, .205580D-02,
2401 + .111681D-02, .552387D-03, .240919D-03, .878785D-04,
2402 + .246813D-04, .475337D-05, .556303D-06, .000000D+00 /
2403 DATA (UPDI(I),I=8737,8788) /
2404 + .205560D+07, .154127D+07, .113400D+07, .833795D+06,
2405 + .612669D+06, .449848D+06, .330084D+06, .242023D+06,
2406 + .177340D+06, .129847D+06, .950139D+05, .694756D+05,
2407 + .507721D+05, .370797D+05, .270665D+05, .197467D+05,
2408 + .144016D+05, .104995D+05, .765398D+04, .557928D+04,
2409 + .406809D+04, .296737D+04, .216627D+04, .158311D+04,
2410 + .115883D+04, .849909D+03, .625221D+03, .459468D+03,
2411 + .340596D+03, .253739D+03, .190173D+03, .143513D+03,
2412 + .109156D+03, .838152D+02, .649370D+02, .508285D+02,
2413 + .402156D+02, .321645D+02, .260055D+02, .212436D+02,
2414 + .175303D+02, .145963D+02, .122536D+02, .103611D+02,
2415 + .881570D+01, .753973D+01, .647972D+01, .558185D+01,
2416 + .482474D+01, .417356D+01, .361572D+01, .313344D+01 /
2417 DATA (UPDI(I),I=8789,8840) /
2418 + .271478D+01, .235012D+01, .203173D+01, .175330D+01,
2419 + .150958D+01, .129625D+01, .110961D+01, .946513D+00,
2420 + .804224D+00, .680391D+00, .572742D+00, .479965D+00,
2421 + .399432D+00, .330291D+00, .271196D+00, .220963D+00,
2422 + .178507D+00, .142864D+00, .113156D+00, .886088D-01,
2423 + .685150D-01, .521817D-01, .391988D-01, .288616D-01,
2424 + .208157D-01, .146609D-01, .100437D-01, .666106D-02,
2425 + .424730D-02, .258773D-02, .148333D-02, .791964D-03,
2426 + .384159D-03, .163884D-03, .583071D-04, .159437D-04,
2427 + .300612D-05, .354902D-06, .000000D+00, .264027D+07,
2428 + .197155D+07, .144351D+07, .105614D+07, .772181D+06,
2429 + .564113D+06, .411814D+06, .300388D+06, .218952D+06,
2430 + .159465D+06, .116057D+06, .843985D+05, .613348D+05 /
2431 DATA (UPDI(I),I=8841,8892) /
2432 + .445410D+05, .323263D+05, .234464D+05, .169981D+05,
2433 + .123175D+05, .892380D+04, .646398D+04, .468291D+04,
2434 + .339347D+04, .246080D+04, .178611D+04, .129836D+04,
2435 + .945507D+03, .690566D+03, .503763D+03, .370707D+03,
2436 + .274150D+03, .203968D+03, .152807D+03, .115391D+03,
2437 + .879824D+02, .676977D+02, .526363D+02, .413764D+02,
2438 + .328853D+02, .264257D+02, .214577D+02, .176026D+02,
2439 + .145707D+02, .121605D+02, .102219D+02, .864561D+01,
2440 + .734981D+01, .627818D+01, .537477D+01, .461681D+01,
2441 + .396839D+01, .341603D+01, .294132D+01, .253177D+01,
2442 + .217736D+01, .186996D+01, .160299D+01, .137094D+01,
2443 + .116930D+01, .994156D+00, .842246D+00, .710712D+00,
2444 + .597108D+00, .499107D+00, .415300D+00, .343127D+00 /
2445 DATA (UPDI(I),I=8893,8944) /
2446 + .281656D+00, .229544D+00, .185609D+00, .148786D+00,
2447 + .118135D+00, .928091D-01, .720686D-01, .552455D-01,
2448 + .416981D-01, .310337D-01, .226275D-01, .161531D-01,
2449 + .112547D-01, .762234D-02, .499362D-02, .314231D-02,
2450 + .188732D-02, .106493D-02, .558754D-03, .265793D-03,
2451 + .110911D-03, .384969D-04, .102548D-04, .189491D-05,
2452 + .225627D-06, .000000D+00, .463332D+04, .568622D+04,
2453 + .472484D+04, .392682D+04, .326433D+04, .271429D+04,
2454 + .225755D+04, .187823D+04, .156316D+04, .130141D+04,
2455 + .108393D+04, .903179D+03, .752931D+03, .628006D+03,
2456 + .524111D+03, .437680D+03, .365757D+03, .305886D+03,
2457 + .256031D+03, .214499D+03, .179888D+03, .151032D+03,
2458 + .126962D+03, .106875D+03, .901021D+02, .760895D+02 /
2459 DATA (UPDI(I),I=8945,8996) /
2460 + .643758D+02, .544508D+02, .462735D+02, .394236D+02,
2461 + .336813D+02, .288637D+02, .248183D+02, .214274D+02,
2462 + .185666D+02, .161570D+02, .141239D+02, .124047D+02,
2463 + .109469D+02, .970564D+01, .864569D+01, .773417D+01,
2464 + .694570D+01, .625881D+01, .565579D+01, .512224D+01,
2465 + .464812D+01, .421945D+01, .383397D+01, .348100D+01,
2466 + .315942D+01, .286420D+01, .259245D+01, .234183D+01,
2467 + .211051D+01, .189698D+01, .170000D+01, .151851D+01,
2468 + .135161D+01, .119847D+01, .105832D+01, .930449D+00,
2469 + .814156D+00, .709234D+00, .613942D+00, .528316D+00,
2470 + .451727D+00, .383560D+00, .323217D+00, .270114D+00,
2471 + .223686D+00, .183382D+00, .148649D+00, .118954D+00,
2472 + .940430D-01, .730689D-01, .557637D-01, .416873D-01 /
2473 DATA (UPDI(I),I=8997,9048) /
2474 + .304249D-01, .215871D-01, .148095D-01, .976109D-02,
2475 + .610364D-02, .358652D-02, .193782D-02, .933700D-03,
2476 + .381114D-03, .119685D-03, .232959D-04, .140766D-05,
2477 + .000000D+00, .217853D+05, .175746D+05, .140678D+05,
2478 + .112650D+05, .902754D+04, .723762D+04, .580753D+04,
2479 + .466235D+04, .374652D+04, .301234D+04, .242458D+04,
2480 + .195283D+04, .157472D+04, .127082D+04, .102693D+04,
2481 + .830621D+03, .672840D+03, .545629D+03, .443218D+03,
2482 + .360500D+03, .293789D+03, .239797D+03, .196163D+03,
2483 + .160769D+03, .132097D+03, .108790D+03, .898564D+02,
2484 + .742272D+02, .616956D+02, .514422D+02, .430652D+02,
2485 + .361866D+02, .305463D+02, .259083D+02, .220789D+02,
2486 + .189072D+02, .162816D+02, .140930D+02, .122674D+02 /
2487 DATA (UPDI(I),I=9049,9100) /
2488 + .107315D+02, .943833D+01, .833741D+01, .739691D+01,
2489 + .658498D+01, .588038D+01, .526276D+01, .472022D+01,
2490 + .423473D+01, .380353D+01, .341321D+01, .306231D+01,
2491 + .274422D+01, .245549D+01, .219282D+01, .195384D+01,
2492 + .173632D+01, .153852D+01, .135886D+01, .119600D+01,
2493 + .104868D+01, .915767D+00, .796215D+00, .688967D+00,
2494 + .593564D+00, .508081D+00, .432322D+00, .365472D+00,
2495 + .306788D+00, .255543D+00, .211064D+00, .172701D+00,
2496 + .139862D+00, .111965D+00, .884431D-01, .689992D-01,
2497 + .528694D-01, .397616D-01, .292699D-01, .210121D-01,
2498 + .146470D-01, .989162D-02, .641414D-02, .393851D-02,
2499 + .226901D-02, .119915D-02, .563854D-03, .223813D-03,
2500 + .682243D-04, .129493D-04, .797682D-06, .000000D+00 /
2501 DATA (UPDI(I),I=9101,9152) /
2502 + .494371D+05, .392069D+05, .307879D+05, .241803D+05,
2503 + .190007D+05, .149337D+05, .117443D+05, .923883D+04,
2504 + .727308D+04, .572785D+04, .451475D+04, .356042D+04,
2505 + .281065D+04, .222025D+04, .175598D+04, .138997D+04,
2506 + .110183D+04, .874350D+03, .695016D+03, .553211D+03,
2507 + .441239D+03, .352526D+03, .282332D+03, .226588D+03,
2508 + .182371D+03, .147176D+03, .119176D+03, .965309D+02,
2509 + .787380D+02, .644635D+02, .530254D+02, .438069D+02,
2510 + .363844D+02, .303856D+02, .255152D+02, .215440D+02,
2511 + .183059D+02, .156435D+02, .134521D+02, .116304D+02,
2512 + .101144D+02, .883723D+01, .775745D+01, .683423D+01,
2513 + .604092D+01, .535210D+01, .475299D+01, .422211D+01,
2514 + .375549D+01, .333746D+01, .296571D+01, .263239D+01 /
2515 DATA (UPDI(I),I=9153,9204) /
2516 + .233320D+01, .206408D+01, .182199D+01, .160414D+01,
2517 + .140828D+01, .123239D+01, .107476D+01, .933763D+00,
2518 + .807972D+00, .696102D+00, .596827D+00, .509498D+00,
2519 + .432092D+00, .364249D+00, .305036D+00, .253633D+00,
2520 + .209239D+00, .171140D+00, .138646D+00, .111151D+00,
2521 + .880693D-01, .688337D-01, .531262D-01, .402576D-01,
2522 + .299329D-01, .217789D-01, .154484D-01, .106389D-01,
2523 + .706917D-02, .450590D-02, .271681D-02, .153607D-02,
2524 + .796003D-03, .367173D-03, .143265D-03, .434405D-04,
2525 + .856198D-05, .616122D-06, .000000D+00, .607571D+05,
2526 + .715962D+05, .555642D+05, .431201D+05, .334722D+05,
2527 + .259831D+05, .201767D+05, .156691D+05, .121740D+05,
2528 + .946019D+04, .735557D+04, .572085D+04, .445270D+04 /
2529 DATA (UPDI(I),I=9205,9256) /
2530 + .346720D+04, .270234D+04, .210754D+04, .164559D+04,
2531 + .128602D+04, .100650D+04, .788676D+03, .619141D+03,
2532 + .486822D+03, .383661D+03, .302985D+03, .239951D+03,
2533 + .190552D+03, .151855D+03, .121042D+03, .972012D+02,
2534 + .783699D+02, .635053D+02, .517062D+02, .423423D+02,
2535 + .348839D+02, .289107D+02, .241059D+02, .202372D+02,
2536 + .170954D+02, .145385D+02, .124365D+02, .107048D+02,
2537 + .926060D+01, .805085D+01, .702612D+01, .615344D+01,
2538 + .540257D+01, .475534D+01, .418707D+01, .369225D+01,
2539 + .325315D+01, .286639D+01, .252298D+01, .221774D+01,
2540 + .194588D+01, .170372D+01, .148794D+01, .129582D+01,
2541 + .112498D+01, .973328D+00, .838983D+00, .720263D+00,
2542 + .615680D+00, .523728D+00, .443591D+00, .373214D+00 /
2543 DATA (UPDI(I),I=9257,9308) /
2544 + .312106D+00, .259263D+00, .213818D+00, .174938D+00,
2545 + .141884D+00, .113962D+00, .905657D-01, .711204D-01,
2546 + .550762D-01, .421097D-01, .315993D-01, .232589D-01,
2547 + .167470D-01, .117511D-01, .800253D-02, .525593D-02,
2548 + .331082D-02, .197244D-02, .110246D-02, .565527D-03,
2549 + .259196D-03, .101372D-03, .315304D-04, .674593D-05,
2550 + .542166D-06, .000000D+00, .142623D+06, .111190D+06,
2551 + .856252D+05, .659283D+05, .507666D+05, .390872D+05,
2552 + .300991D+05, .231767D+05, .178505D+05, .137487D+05,
2553 + .105930D+05, .816281D+04, .629314D+04, .485312D+04,
2554 + .374508D+04, .289139D+04, .223430D+04, .172778D+04,
2555 + .133768D+04, .103673D+04, .804775D+03, .625625D+03,
2556 + .487358D+03, .380397D+03, .297695D+03, .233601D+03 /
2557 DATA (UPDI(I),I=9309,9360) /
2558 + .183939D+03, .144842D+03, .114923D+03, .915654D+02,
2559 + .733290D+02, .590206D+02, .477869D+02, .389408D+02,
2560 + .319293D+02, .263504D+02, .219021D+02, .183260D+02,
2561 + .154418D+02, .130927D+02, .111735D+02, .958647D+01,
2562 + .826723D+01, .715875D+01, .622176D+01, .542183D+01,
2563 + .473745D+01, .414125D+01, .362606D+01, .317252D+01,
2564 + .277613D+01, .242700D+01, .211911D+01, .184707D+01,
2565 + .160665D+01, .139410D+01, .120632D+01, .104063D+01,
2566 + .894673D+00, .766352D+00, .653804D+00, .555396D+00,
2567 + .469502D+00, .395189D+00, .330402D+00, .274555D+00,
2568 + .226614D+00, .185686D+00, .150926D+00, .121593D+00,
2569 + .969996D-01, .765494D-01, .596850D-01, .458787D-01,
2570 + .348111D-01, .259147D-01, .189162D-01, .135013D-01 /
2571 DATA (UPDI(I),I=9361,9412) /
2572 + .938625D-02, .632935D-02, .411305D-02, .256139D-02,
2573 + .150678D-02, .830487D-03, .419315D-03, .188704D-03,
2574 + .722220D-04, .218824D-04, .453874D-05, .366573D-06,
2575 + .000000D+00, .210944D+06, .163524D+06, .125107D+06,
2576 + .956914D+05, .731885D+05, .559648D+05, .427943D+05,
2577 + .327176D+05, .250154D+05, .191244D+05, .146230D+05,
2578 + .111811D+05, .855174D+04, .654154D+04, .500610D+04,
2579 + .383223D+04, .293557D+04, .224992D+04, .172607D+04,
2580 + .132532D+04, .101899D+04, .784466D+03, .605024D+03,
2581 + .467476D+03, .362078D+03, .281164D+03, .219058D+03,
2582 + .170641D+03, .133947D+03, .105587D+03, .836593D+02,
2583 + .666291D+02, .533872D+02, .430646D+02, .349599D+02,
2584 + .285741D+02, .235283D+02, .195092D+02, .162952D+02 /
2585 DATA (UPDI(I),I=9413,9464) /
2586 + .137000D+02, .115963D+02, .987076D+01, .844688D+01,
2587 + .725964D+01, .626324D+01, .541893D+01, .470176D+01,
2588 + .408162D+01, .354965D+01, .308487D+01, .268165D+01,
2589 + .232919D+01, .202067D+01, .175013D+01, .151279D+01,
2590 + .130452D+01, .112187D+01, .961878D+00, .821952D+00,
2591 + .699815D+00, .593449D+00, .501103D+00, .421054D+00,
2592 + .352278D+00, .292733D+00, .241761D+00, .198311D+00,
2593 + .161475D+00, .130410D+00, .104383D+00, .827181D-01,
2594 + .648358D-01, .502006D-01, .383100D-01, .288531D-01,
2595 + .213132D-01, .154320D-01, .109216D-01, .752556D-02,
2596 + .502717D-02, .323429D-02, .199285D-02, .115896D-02,
2597 + .630977D-03, .314381D-03, .139478D-03, .525823D-04,
2598 + .156845D-04, .319911D-05, .263962D-06, .000000D+00 /
2599 DATA (UPDI(I),I=9465,9516) /
2600 + .203150D+06, .231082D+06, .175779D+06, .133667D+06,
2601 + .101629D+06, .772446D+05, .587041D+05, .446012D+05,
2602 + .338843D+05, .257367D+05, .195485D+05, .148462D+05,
2603 + .112764D+05, .856476D+04, .650696D+04, .494428D+04,
2604 + .375867D+04, .285840D+04, .217538D+04, .165669D+04,
2605 + .126311D+04, .964084D+03, .737031D+03, .564376D+03,
2606 + .433130D+03, .333204D+03, .257146D+03, .198364D+03,
2607 + .154200D+03, .120370D+03, .944417D+02, .744877D+02,
2608 + .591085D+02, .472292D+02, .379831D+02, .307631D+02,
2609 + .251061D+02, .206388D+02, .170948D+02, .142562D+02,
2610 + .119726D+02, .101136D+02, .859052D+01, .732984D+01,
2611 + .627912D+01, .539512D+01, .464943D+01, .400922D+01,
2612 + .346390D+01, .299087D+01, .258341D+01, .222981D+01 /
2613 DATA (UPDI(I),I=9517,9568) /
2614 + .192248D+01, .165492D+01, .142184D+01, .121876D+01,
2615 + .104190D+01, .888054D+00, .754424D+00, .638579D+00,
2616 + .538374D+00, .451961D+00, .377550D+00, .314039D+00,
2617 + .259419D+00, .212975D+00, .173648D+00, .140532D+00,
2618 + .112794D+00, .897131D-01, .706343D-01, .549987D-01,
2619 + .422956D-01, .320507D-01, .239647D-01, .175687D-01,
2620 + .126207D-01, .885852D-02, .605117D-02, .400532D-02,
2621 + .255180D-02, .155609D-02, .894893D-03, .481404D-03,
2622 + .236779D-03, .103605D-03, .384925D-04, .113096D-04,
2623 + .227157D-05, .191209D-06, .000000D+00, .441456D+06,
2624 + .338677D+06, .256002D+06, .193432D+06, .146115D+06,
2625 + .110327D+06, .832840D+05, .628457D+05, .474130D+05,
2626 + .357582D+05, .269642D+05, .203275D+05, .153234D+05 /
2627 DATA (UPDI(I),I=9569,9620) /
2628 + .115493D+05, .870529D+04, .656152D+04, .494691D+04,
2629 + .373030D+04, .281432D+04, .212428D+04, .160483D+04,
2630 + .121347D+04, .918783D+03, .696654D+03, .529266D+03,
2631 + .402978D+03, .307734D+03, .234824D+03, .180567D+03,
2632 + .139417D+03, .108182D+03, .843890D+02, .662299D+02,
2633 + .523473D+02, .416473D+02, .333769D+02, .269586D+02,
2634 + .219401D+02, .179951D+02, .148651D+02, .123688D+02,
2635 + .103549D+02, .871859D+01, .737581D+01, .626577D+01,
2636 + .533972D+01, .456493D+01, .390530D+01, .334807D+01,
2637 + .286880D+01, .245939D+01, .210710D+01, .180345D+01,
2638 + .154129D+01, .131480D+01, .111908D+01, .950012D+00,
2639 + .804138D+00, .678439D+00, .570336D+00, .477563D+00,
2640 + .398183D+00, .330353D+00, .272905D+00, .223881D+00 /
2641 DATA (UPDI(I),I=9621,9672) /
2642 + .182519D+00, .147768D+00, .118734D+00, .946074D-01,
2643 + .746914D-01, .583626D-01, .450913D-01, .344007D-01,
2644 + .258528D-01, .191662D-01, .139257D-01, .991061D-02,
2645 + .688820D-02, .465660D-02, .304827D-02, .191904D-02,
2646 + .115527D-02, .655037D-03, .346892D-03, .167629D-03,
2647 + .718716D-04, .260748D-04, .744601D-05, .144963D-05,
2648 + .122561D-06, .000000D+00, .629337D+06, .480384D+06,
2649 + .360983D+06, .271133D+06, .203572D+06, .152771D+06,
2650 + .114606D+06, .859354D+05, .644159D+05, .482641D+05,
2651 + .361520D+05, .270692D+05, .202642D+05, .151654D+05,
2652 + .113484D+05, .849075D+04, .635309D+04, .475371D+04,
2653 + .355805D+04, .266392D+04, .199577D+04, .149624D+04,
2654 + .112297D+04, .843861D+03, .635219D+03, .479105D+03 /
2655 DATA (UPDI(I),I=9673,9724) /
2656 + .362358D+03, .273766D+03, .208417D+03, .159303D+03,
2657 + .122355D+03, .944711D+02, .733837D+02, .574143D+02,
2658 + .452178D+02, .358792D+02, .286970D+02, .231325D+02,
2659 + .187962D+02, .153861D+02, .126889D+02, .105312D+02,
2660 + .879205D+01, .737656D+01, .621561D+01, .525487D+01,
2661 + .445738D+01, .378389D+01, .321949D+01, .273799D+01,
2662 + .232997D+01, .198174D+01, .168398D+01, .142899D+01,
2663 + .121044D+01, .102309D+01, .862527D+00, .725077D+00,
2664 + .607556D+00, .507269D+00, .421864D+00, .349349D+00,
2665 + .287853D+00, .236164D+00, .192393D+00, .155746D+00,
2666 + .125196D+00, .998709D-01, .789921D-01, .618951D-01,
2667 + .479922D-01, .367867D-01, .278377D-01, .207445D-01,
2668 + .152460D-01, .109770D-01, .773825D-02, .532506D-02 /
2669 DATA (UPDI(I),I=9725,9776) /
2670 + .356236D-02, .230625D-02, .143486D-02, .853018D-03,
2671 + .477164D-03, .249055D-03, .118487D-03, .499569D-04,
2672 + .178066D-04, .499046D-05, .953828D-06, .824990D-07,
2673 + .000000D+00, .873162D+06, .663336D+06, .495687D+06,
2674 + .370213D+06, .276377D+06, .206208D+06, .153786D+06,
2675 + .114627D+06, .854024D+05, .635950D+05, .473375D+05,
2676 + .352189D+05, .261941D+05, .194737D+05, .144741D+05,
2677 + .107548D+05, .799055D+04, .593597D+04, .441025D+04,
2678 + .327710D+04, .243622D+04, .181200D+04, .134894D+04,
2679 + .100525D+04, .750266D+03, .560940D+03, .420473D+03,
2680 + .314746D+03, .237398D+03, .179754D+03, .136751D+03,
2681 + .104579D+03, .804552D+02, .623469D+02, .486352D+02,
2682 + .382285D+02, .302926D+02, .241971D+02, .194860D+02 /
2683 DATA (UPDI(I),I=9777,9828) /
2684 + .158118D+02, .129289D+02, .106410D+02, .881093D+01,
2685 + .733315D+01, .613029D+01, .514254D+01, .432889D+01,
2686 + .364708D+01, .308011D+01, .260022D+01, .219673D+01,
2687 + .185508D+01, .156522D+01, .131892D+01, .110946D+01,
2688 + .931297D+00, .779774D+00, .651058D+00, .541839D+00,
2689 + .449343D+00, .371167D+00, .305286D+00, .249832D+00,
2690 + .203570D+00, .164691D+00, .132386D+00, .105663D+00,
2691 + .836804D-01, .656997D-01, .510929D-01, .393116D-01,
2692 + .298949D-01, .224388D-01, .165802D-01, .120796D-01,
2693 + .861820D-02, .601779D-02, .409997D-02, .271414D-02,
2694 + .173770D-02, .106844D-02, .627260D-03, .346183D-03,
2695 + .178107D-03, .834407D-04, .346108D-04, .121300D-04,
2696 + .334102D-05, .628607D-06, .556708D-07, .000000D+00 /
2697 DATA (UPDI(I),I=9829,9880) /
2698 + .118413D+07, .895497D+06, .665598D+06, .494432D+06,
2699 + .367094D+06, .272376D+06, .201992D+06, .149701D+06,
2700 + .110890D+06, .820898D+05, .607400D+05, .449164D+05,
2701 + .332005D+05, .245276D+05, .181138D+05, .133715D+05,
2702 + .986849D+04, .728122D+04, .537214D+04, .396349D+04,
2703 + .292506D+04, .215941D+04, .159531D+04, .117957D+04,
2704 + .873335D+03, .647602D+03, .481374D+03, .357218D+03,
2705 + .267092D+03, .200457D+03, .151139D+03, .114542D+03,
2706 + .873229D+02, .670592D+02, .518399D+02, .403844D+02,
2707 + .317189D+02, .251169D+02, .200544D+02, .161371D+02,
2708 + .130866D+02, .106841D+02, .877660D+01, .724775D+01,
2709 + .601241D+01, .500550D+01, .418219D+01, .349745D+01,
2710 + .293229D+01, .245758D+01, .206146D+01, .172860D+01 /
2711 DATA (UPDI(I),I=9881,9932) /
2712 + .144834D+01, .121202D+01, .101255D+01, .844162D+00,
2713 + .702033D+00, .582200D+00, .481275D+00, .396437D+00,
2714 + .325265D+00, .265728D+00, .215983D+00, .174789D+00,
2715 + .140428D+00, .112092D+00, .888299D-01, .698414D-01,
2716 + .544307D-01, .420108D-01, .320745D-01, .241982D-01,
2717 + .180150D-01, .131987D-01, .953230D-02, .673880D-02,
2718 + .466071D-02, .314374D-02, .205933D-02, .130388D-02,
2719 + .792278D-03, .459340D-03, .250127D-03, .126860D-03,
2720 + .585339D-04, .238917D-04, .823538D-05, .222980D-05,
2721 + .413301D-06, .374484D-07, .000000D+00, .157412D+07,
2722 + .118523D+07, .876401D+06, .647633D+06, .478301D+06,
2723 + .352994D+06, .260361D+06, .191901D+06, .141358D+06,
2724 + .104054D+06, .765505D+05, .562786D+05, .413526D+05 /
2725 DATA (UPDI(I),I=9933,9984) /
2726 + .303663D+05, .222883D+05, .163503D+05, .119901D+05,
2727 + .878922D+04, .644178D+04, .472050D+04, .345963D+04,
2728 + .253598D+04, .185996D+04, .136508D+04, .100303D+04,
2729 + .738000D+03, .544228D+03, .400558D+03, .297039D+03,
2730 + .221076D+03, .165279D+03, .124193D+03, .938690D+02,
2731 + .714708D+02, .547782D+02, .423120D+02, .329540D+02,
2732 + .258793D+02, .204947D+02, .163593D+02, .131621D+02,
2733 + .106623D+02, .869158D+01, .712336D+01, .586511D+01,
2734 + .484685D+01, .402020D+01, .333764D+01, .277836D+01,
2735 + .231206D+01, .192581D+01, .160366D+01, .133442D+01,
2736 + .110906D+01, .920251D+00, .762042D+00, .629485D+00,
2737 + .518541D+00, .425786D+00, .348386D+00, .283926D+00,
2738 + .230397D+00, .185996D+00, .149496D+00, .119277D+00 /
2739 DATA (UPDI(I),I=9985,10036) /
2740 + .945418D-01, .743892D-01, .580645D-01, .449187D-01,
2741 + .344076D-01, .260665D-01, .195094D-01, .144056D-01,
2742 + .104646D-01, .749164D-02, .524771D-02, .359482D-02,
2743 + .240055D-02, .155599D-02, .974271D-03, .585045D-03,
2744 + .334975D-03, .179983D-03, .899956D-04, .409036D-04,
2745 + .164325D-04, .557223D-05, .148333D-05, .270992D-06,
2746 + .250989D-07, .000000D+00, .205535D+07, .154104D+07,
2747 + .113379D+07, .833605D+06, .612497D+06, .449694D+06,
2748 + .329944D+06, .241896D+06, .177226D+06, .129744D+06,
2749 + .949212D+05, .693920D+05, .506968D+05, .370118D+05,
2750 + .270054D+05, .196917D+05, .143521D+05, .104550D+05,
2751 + .761391D+04, .554324D+04, .403569D+04, .293823D+04,
2752 + .214009D+04, .155957D+04, .113767D+04, .830876D+03 /
2753 DATA (UPDI(I),I=10037,10088) /
2754 + .608105D+03, .444094D+03, .326757D+03, .241272D+03,
2755 + .178932D+03, .133367D+03, .999845D+02, .755100D+02,
2756 + .574043D+02, .439832D+02, .339818D+02, .264759D+02,
2757 + .208037D+02, .164783D+02, .131573D+02, .105786D+02,
2758 + .855941D+01, .696363D+01, .569196D+01, .466989D+01,
2759 + .384588D+01, .317025D+01, .262056D+01, .216552D+01,
2760 + .179131D+01, .148145D+01, .122434D+01, .101070D+01,
2761 + .832998D+00, .685174D+00, .562214D+00, .460043D+00,
2762 + .375239D+00, .304981D+00, .246892D+00, .199001D+00,
2763 + .159562D+00, .127376D+00, .100925D+00, .794345D-01,
2764 + .620572D-01, .480876D-01, .369255D-01, .280708D-01,
2765 + .211010D-01, .156671D-01, .114736D-01, .826369D-02,
2766 + .586411D-02, .406996D-02, .276136D-02, .182551D-02 /
2767 DATA (UPDI(I),I=10089,10140) /
2768 + .117083D-02, .724973D-03, .430233D-03, .243280D-03,
2769 + .128986D-03, .635923D-04, .284755D-04, .112618D-04,
2770 + .375766D-05, .983600D-06, .177197D-06, .167615D-07,
2771 + .000000D+00, .263999D+07, .197129D+07, .144328D+07,
2772 + .105593D+07, .771991D+06, .563942D+06, .411660D+06,
2773 + .300248D+06, .218827D+06, .159351D+06, .115955D+06,
2774 + .843065D+05, .612520D+05, .444665D+05, .322592D+05,
2775 + .233860D+05, .169438D+05, .122687D+05, .887998D+04,
2776 + .642461D+04, .464754D+04, .336171D+04, .243228D+04,
2777 + .176051D+04, .127537D+04, .924858D+03, .672023D+03,
2778 + .487133D+03, .355762D+03, .260712D+03, .191876D+03,
2779 + .141918D+03, .105573D+03, .791163D+02, .596816D+02,
2780 + .453775D+02, .347921D+02, .269031D+02, .209817D+02 /
2781 DATA (UPDI(I),I=10141,10192) /
2782 + .164968D+02, .130759D+02, .104372D+02, .838438D+01,
2783 + .677269D+01, .549674D+01, .447801D+01, .366219D+01,
2784 + .299780D+01, .246096D+01, .201966D+01, .165928D+01,
2785 + .136297D+01, .111884D+01, .917426D+00, .751082D+00,
2786 + .613688D+00, .500216D+00, .406599D+00, .329447D+00,
2787 + .265984D+00, .213887D+00, .171242D+00, .136374D+00,
2788 + .108124D+00, .850767D-01, .664906D-01, .515744D-01,
2789 + .396741D-01, .302390D-01, .228133D-01, .170155D-01,
2790 + .125326D-01, .910262D-02, .649994D-02, .457193D-02,
2791 + .314393D-02, .211261D-02, .138261D-02, .877432D-03,
2792 + .537278D-03, .315107D-03, .175977D-03, .920744D-04,
2793 + .447635D-04, .197510D-04, .769156D-05, .252574D-05,
2794 + .650197D-06, .115560D-06, .111547D-07, .000000D+00 /
2795C-----------------------------------------------------------------------
2796C
2797 Dr = DrI
2798 Fl = FlI
2799 Al = AlI
2800 DO I=1,6
2801 Amass(I) = AmassI(I)
2802 ENDDO
2803 Iorder = Nint(Dr)
2804 Nfl = Nint(Fl)
2805 Alambda = Al
2806C
2807 NX = NxI
2808 NT = NTI
2809 NfMx = NfMxI
2810C
2811 QINI = QINII
2812 QMAX = QMAXI
2813 DO I=0,NT
2814 QL(I) = QLI(I)
2815 ENDDO
2816C
2817 XMIN = XMINI
2818 DO I=0,NX
2819 XV(I) = XVI(I)
2820 ENDDO
2821C
2822 Do 11 Iq = 0, NT
2823 QL(Iq) = Log (QL(Iq) /Al)
2824 11 Continue
2825C
2826C Since quark = anti-quark for nfl>2 at this stage,
2827C we Read out only the non-redundent data points
2828C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence)
2829
2830 Nblk = (NX+1) * (NT+1)
2831 Npts = Nblk * (NfMx+3)
2832 DO I=1,Npts
2833 UPD(I) = UPDI(I)
2834 ENDDO
2835C
2836 Return
2837C ****************************
2838 End