1 C-----------------------------------------------------------------------
3 Subroutine Ctq4RHJ (Iset)
4 #include "pdf/impdp.inc"
5 PARAMETER (MXX = 105, MXQ = 25, MXF = 6)
6 PARAMETER (MXPQX = (MXF *2 +2) * MXQ * MXX)
7 PARAMETER (NxI = 90, NtI = 13, NfMxI = 5)
8 COMMON / W5051IC / Al, XV(0:MXX), QL(0:MXQ), UPD(MXPQX)
9 COMMON / W5051ID / Nx, Nt, NfMx
10 COMMON / W5051IE / Qini, Qmax, Xmin
14 > XVI(0:MXX),QLI(0:MXQ),UPDI(MXPQX),
17 C-----------------------------------------------------------------------
18 C Parton Distribution Table : CTEQ4HJ
20 DATA DrI, FlI, AlI / 2., 5., .2060 /
21 DATA (AmassI(I),I=1,6) / .000, .000, .200,
22 + 1.600, 5.000, 180.000 /
23 C DATA NXI, NTI, NfMxI / 90, 13, 5 /
24 DATA QINII, QMAXI, (QLI(I), I =0, NTI) /
25 + .160000D+01, .100000D+05,
26 + .160000D+01, .203301D+01, .265652D+01, .358147D+01, .500000D+01,
27 + .794042D+01, .134849D+02, .247292D+02, .495183D+02, .109662D+03,
28 + .272532D+03, .772892D+03, .254960D+04, .100000D+05 /
29 DATA XMINI, (XVI(I), I =0, NXI) /
31 + .000000D+00, .999983D-05, .124433D-04, .154836D-04, .192668D-04,
32 + .239740D-04, .298310D-04, .371184D-04, .461852D-04, .574656D-04,
33 + .714994D-04, .889575D-04, .110674D-03, .137686D-03, .171280D-03,
34 + .213055D-03, .264997D-03, .329564D-03, .409809D-03, .509508D-03,
35 + .633332D-03, .787053D-03, .977784D-03, .121428D-02, .150728D-02,
36 + .186993D-02, .231825D-02, .288037D-02, .356397D-02, .440443D-02,
37 + .543508D-02, .669508D-02, .822984D-02, .100851D-01, .123281D-01,
38 + .150167D-01, .182174D-01, .219985D-01, .264278D-01, .315720D-01,
39 + .374800D-01, .442088D-01, .517931D-01, .602576D-01, .696136D-01,
40 + .798586D-01, .909356D-01, .102935D+00, .115681D+00, .129293D+00,
41 + .143599D+00, .158606D+00, .174271D+00, .190550D+00, .207405D+00,
42 + .224796D+00, .242685D+00, .261038D+00, .279820D+00, .299001D+00,
43 + .318550D+00, .338442D+00, .358653D+00, .379067D+00, .399881D+00,
44 + .420953D+00, .442266D+00, .463806D+00, .485559D+00, .507513D+00,
45 + .529656D+00, .551978D+00, .574483D+00, .597187D+00, .619860D+00,
46 + .642828D+00, .665921D+00, .689135D+00, .712467D+00, .735911D+00,
47 + .759464D+00, .783080D+00, .806909D+00, .830741D+00, .854673D+00,
48 + .878696D+00, .902804D+00, .926992D+00, .951257D+00, .975603D+00,
50 C Parton Distribution Table:
51 DATA (UPDI(I),I=1,52) /
52 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
53 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
54 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
55 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
56 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
57 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
58 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
59 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
60 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
61 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
62 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
63 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
64 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
65 DATA (UPDI(I),I=53,104) /
66 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
67 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
68 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
69 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
70 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
71 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
72 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
73 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
74 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
75 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
76 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
77 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
78 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
79 DATA (UPDI(I),I=105,156) /
80 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
81 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
82 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
83 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
84 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
85 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
86 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
87 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
88 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
89 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
90 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
91 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
92 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
93 DATA (UPDI(I),I=157,208) /
94 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
95 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
96 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
97 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
98 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
99 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
100 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
101 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
102 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
103 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
104 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
105 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
106 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
107 DATA (UPDI(I),I=209,260) /
108 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
109 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
110 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
111 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
112 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
113 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
114 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
115 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
116 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
117 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
118 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
119 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
120 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
121 DATA (UPDI(I),I=261,312) /
122 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
123 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
124 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
125 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
126 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
127 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
128 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
129 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
130 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
131 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
132 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
133 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
134 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
135 DATA (UPDI(I),I=313,364) /
136 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
137 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
138 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
139 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
140 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
141 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
142 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
143 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
144 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
145 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
146 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
147 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
148 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
149 DATA (UPDI(I),I=365,416) /
150 + .240220D+06, .000000D+00, .000000D+00, .000000D+00,
151 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
152 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
153 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
154 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
155 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
156 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
157 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
158 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
159 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
160 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
161 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
162 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
163 DATA (UPDI(I),I=417,468) /
164 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
165 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
166 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
167 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
168 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
169 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
170 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
171 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
172 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
173 + .000000D+00, .000000D+00, .000000D+00, .996631D+05,
174 + .760875D+05, .571762D+05, .429291D+05, .322125D+05,
175 + .241483D+05, .180909D+05, .135392D+05, .101254D+05,
176 + .756422D+04, .564637D+04, .420989D+04, .313613D+04 /
177 DATA (UPDI(I),I=469,520) /
178 + .233333D+04, .173438D+04, .128743D+04, .954675D+03,
179 + .706885D+03, .522814D+03, .386063D+03, .284732D+03,
180 + .209643D+03, .154146D+03, .113136D+03, .829109D+02,
181 + .606511D+02, .443136D+02, .321649D+02, .234181D+02,
182 + .170151D+02, .123472D+02, .894314D+01, .647013D+01,
183 + .467841D+01, .337864D+01, .243799D+01, .176007D+01,
184 + .127058D+01, .918573D+00, .664654D+00, .482380D+00,
185 + .350770D+00, .255942D+00, .187284D+00, .137651D+00,
186 + .101506D+00, .753085D-01, .559500D-01, .418823D-01,
187 + .314011D-01, .236917D-01, .179392D-01, .136573D-01,
188 + .104378D-01, .802141D-02, .618721D-02, .479731D-02,
189 + .373368D-02, .292192D-02, .229429D-02, .181033D-02,
190 + .143236D-02, .113729D-02, .905612D-03, .721098D-03 /
191 DATA (UPDI(I),I=521,572) /
192 + .573432D-03, .455314D-03, .359995D-03, .283187D-03,
193 + .220850D-03, .170537D-03, .129829D-03, .971780D-04,
194 + .710583D-04, .508602D-04, .350743D-04, .231780D-04,
195 + .144517D-04, .830218D-05, .417857D-05, .160032D-05,
196 + .163197D-06, .000000D+00, .000000D+00, .000000D+00,
197 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
198 + .000000D+00, .000000D+00, .226691D+06, .172586D+06,
199 + .129269D+06, .967415D+05, .723507D+05, .540572D+05,
200 + .403599D+05, .301023D+05, .224340D+05, .167007D+05,
201 + .124219D+05, .922839D+04, .684947D+04, .507730D+04,
202 + .375979D+04, .278030D+04, .205370D+04, .151470D+04,
203 + .111580D+04, .820615D+03, .602727D+03, .441920D+03,
204 + .323545D+03, .236437D+03, .172504D+03, .125619D+03 /
205 DATA (UPDI(I),I=573,624) /
206 + .913550D+02, .659934D+02, .478151D+02, .345716D+02,
207 + .249605D+02, .179865D+02, .129440D+02, .930965D+01,
208 + .668610D+01, .479775D+01, .344380D+01, .247173D+01,
209 + .177640D+01, .127778D+01, .921796D+00, .666297D+00,
210 + .483237D+00, .351509D+00, .256812D+00, .188271D+00,
211 + .138868D+00, .102590D+00, .763610D-01, .569400D-01,
212 + .427283D-01, .321867D-01, .243779D-01, .185390D-01,
213 + .141766D-01, .108828D-01, .839791D-02, .650594D-02,
214 + .506770D-02, .396120D-02, .311138D-02, .245087D-02,
215 + .193741D-02, .153613D-02, .121809D-02, .965004D-03,
216 + .763667D-03, .602174D-03, .472806D-03, .368488D-03,
217 + .284800D-03, .217510D-03, .163791D-03, .121054D-03,
218 + .880536D-04, .622855D-04, .428037D-04, .283833D-04 /
219 DATA (UPDI(I),I=625,676) /
220 + .180414D-04, .108728D-04, .613395D-05, .318082D-05,
221 + .145425D-05, .553810D-06, .146094D-06, .175404D-08,
222 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
223 + .000000D+00, .386122D+06, .293128D+06, .218826D+06,
224 + .163216D+06, .121651D+06, .905822D+05, .673954D+05,
225 + .500912D+05, .371985D+05, .275931D+05, .204491D+05,
226 + .151364D+05, .111926D+05, .826563D+04, .609739D+04,
227 + .449155D+04, .330469D+04, .242771D+04, .178113D+04,
228 + .130458D+04, .954192D+03, .696660D+03, .507849D+03,
229 + .369498D+03, .268381D+03, .194548D+03, .140823D+03,
230 + .101241D+03, .729980D+02, .525207D+02, .377279D+02,
231 + .270476D+02, .193623D+02, .138517D+02, .989353D+01,
232 + .705997D+01, .503871D+01, .359578D+01, .256912D+01 /
233 DATA (UPDI(I),I=677,728) /
234 + .183721D+01, .131749D+01, .946698D+00, .682513D+00,
235 + .493559D+00, .358473D+00, .261291D+00, .191623D+00,
236 + .140780D+00, .104206D+00, .772885D-01, .576905D-01,
237 + .432373D-01, .325817D-01, .246569D-01, .187619D-01,
238 + .143337D-01, .110072D-01, .848678D-02, .657789D-02,
239 + .511628D-02, .399785D-02, .313263D-02, .246269D-02,
240 + .194152D-02, .153039D-02, .120511D-02, .947791D-03,
241 + .742759D-03, .579586D-03, .449027D-03, .345078D-03,
242 + .262203D-03, .196589D-03, .144874D-03, .105223D-03,
243 + .745196D-04, .514596D-04, .344771D-04, .223238D-04,
244 + .138807D-04, .824898D-05, .466047D-05, .247442D-05,
245 + .123705D-05, .580136D-06, .254582D-06, .103783D-06,
246 + .369553D-07, .907191D-08, .479435D-09, .000000D+00 /
247 DATA (UPDI(I),I=729,780) /
248 + .583615D+06, .441771D+06, .328668D+06, .244305D+06,
249 + .181458D+06, .134643D+06, .998231D+05, .739286D+05,
250 + .547020D+05, .404290D+05, .298510D+05, .220133D+05,
251 + .162163D+05, .119298D+05, .876627D+04, .643227D+04,
252 + .471374D+04, .344892D+04, .252000D+04, .183813D+04,
253 + .133877D+04, .973276D+03, .706409D+03, .511699D+03,
254 + .369998D+03, .266979D+03, .192348D+03, .137618D+03,
255 + .987453D+02, .706964D+02, .505278D+02, .360387D+02,
256 + .256631D+02, .182620D+02, .129723D+02, .920592D+01,
257 + .653314D+01, .463579D+01, .329303D+01, .234127D+01,
258 + .166911D+01, .119237D+01, .854583D+00, .614425D+00,
259 + .443676D+00, .321564D+00, .234498D+00, .171338D+00,
260 + .126133D+00, .930585D-01, .690985D-01, .515271D-01 /
261 DATA (UPDI(I),I=781,832) /
262 + .386334D-01, .290943D-01, .220293D-01, .167490D-01,
263 + .127989D-01, .982024D-02, .757281D-02, .586006D-02,
264 + .455438D-02, .354910D-02, .277385D-02, .217361D-02,
265 + .170238D-02, .133178D-02, .104030D-02, .809630D-03,
266 + .627305D-03, .482590D-03, .368280D-03, .277950D-03,
267 + .207075D-03, .151761D-03, .109696D-03, .774351D-04,
268 + .534067D-04, .358451D-04, .233480D-04, .146943D-04,
269 + .891552D-05, .520325D-05, .290156D-05, .155260D-05,
270 + .793199D-06, .381984D-06, .167918D-06, .617225D-07,
271 + .150013D-07, .953308D-09, .000000D+00, .825212D+06,
272 + .622809D+06, .461748D+06, .342030D+06, .253147D+06,
273 + .187170D+06, .138267D+06, .102029D+06, .752177D+05,
274 + .553863D+05, .407416D+05, .299310D+05, .219644D+05 /
275 DATA (UPDI(I),I=833,884) /
276 + .160962D+05, .117814D+05, .861039D+04, .628455D+04,
277 + .457957D+04, .333232D+04, .242051D+04, .175545D+04,
278 + .127071D+04, .918257D+03, .662206D+03, .476665D+03,
279 + .342364D+03, .245503D+03, .174802D+03, .124818D+03,
280 + .889238D+02, .632350D+02, .448721D+02, .317863D+02,
281 + .224999D+02, .158959D+02, .112190D+02, .791716D+01,
282 + .558628D+01, .394551D+01, .278914D+01, .197689D+01,
283 + .140411D+01, .100052D+01, .715255D+00, .513543D+00,
284 + .370122D+00, .268414D+00, .195060D+00, .142824D+00,
285 + .104824D+00, .774325D-01, .574538D-01, .428620D-01,
286 + .321218D-01, .242018D-01, .183115D-01, .139239D-01,
287 + .106307D-01, .815557D-02, .627813D-02, .485251D-02,
288 + .376015D-02, .292128D-02, .227497D-02, .177014D-02 /
289 DATA (UPDI(I),I=885,936) /
290 + .137551D-02, .106698D-02, .824514D-03, .634198D-03,
291 + .484354D-03, .366937D-03, .274972D-03, .203469D-03,
292 + .148202D-03, .106526D-03, .748688D-04, .514907D-04,
293 + .345398D-04, .225523D-04, .142880D-04, .877287D-05,
294 + .521468D-05, .298390D-05, .164810D-05, .870655D-06,
295 + .431311D-06, .192190D-06, .700914D-07, .166376D-07,
296 + .112214D-08, .000000D+00, .111724D+07, .840701D+06,
297 + .621103D+06, .458447D+06, .338099D+06, .249083D+06,
298 + .183335D+06, .134790D+06, .990011D+05, .726270D+05,
299 + .532215D+05, .389505D+05, .284727D+05, .207843D+05,
300 + .151527D+05, .110302D+05, .801811D+04, .581894D+04,
301 + .421657D+04, .304997D+04, .220253D+04, .158746D+04,
302 + .114212D+04, .819985D+03, .587569D+03, .420077D+03 /
303 DATA (UPDI(I),I=937,988) /
304 + .299817D+03, .212448D+03, .150964D+03, .107024D+03,
305 + .757250D+02, .534624D+02, .376747D+02, .265282D+02,
306 + .186411D+02, .130850D+02, .918287D+01, .644331D+01,
307 + .452511D+01, .318079D+01, .224162D+01, .158309D+01,
308 + .112164D+01, .797334D+00, .569263D+00, .408020D+00,
309 + .294284D+00, .212720D+00, .154929D+00, .113122D+00,
310 + .831347D-01, .613788D-01, .455630D-01, .339798D-01,
311 + .254756D-01, .191814D-01, .145128D-01, .110250D-01,
312 + .841413D-02, .644294D-02, .495226D-02, .381559D-02,
313 + .294652D-02, .228033D-02, .176268D-02, .136051D-02,
314 + .104801D-02, .804136D-03, .614058D-03, .465595D-03,
315 + .350182D-03, .260573D-03, .191523D-03, .138647D-03,
316 + .991034D-04, .693410D-04, .475418D-04, .318549D-04 /
317 DATA (UPDI(I),I=989,1040) /
318 + .208270D-04, .132561D-04, .820745D-05, .493939D-05,
319 + .287249D-05, .161511D-05, .866807D-06, .433427D-06,
320 + .192708D-06, .691111D-07, .159853D-07, .111804D-08,
321 + .000000D+00, .146619D+07, .109999D+07, .809784D+06,
322 + .595589D+06, .437661D+06, .321265D+06, .235598D+06,
323 + .172576D+06, .126281D+06, .922918D+05, .673747D+05,
324 + .491196D+05, .357669D+05, .260066D+05, .188847D+05,
325 + .136918D+05, .991252D+04, .716428D+04, .516985D+04,
326 + .372379D+04, .267765D+04, .192157D+04, .137643D+04,
327 + .983822D+03, .701787D+03, .499428D+03, .354786D+03,
328 + .250192D+03, .176929D+03, .124821D+03, .878766D+02,
329 + .617287D+02, .432758D+02, .303137D+02, .211877D+02,
330 + .147927D+02, .103245D+02, .720450D+01, .503148D+01 /
331 DATA (UPDI(I),I=1041,1092) /
332 + .351701D+01, .246462D+01, .173083D+01, .121943D+01,
333 + .862055D+00, .612071D+00, .436318D+00, .313004D+00,
334 + .225059D+00, .163058D+00, .118449D+00, .866095D-01,
335 + .636289D-01, .470001D-01, .348812D-01, .260226D-01,
336 + .194973D-01, .146782D-01, .110946D-01, .842290D-02,
337 + .641529D-02, .490349D-02, .375639D-02, .288334D-02,
338 + .221755D-02, .170299D-02, .130570D-02, .998897D-03,
339 + .761127D-03, .577115D-03, .434514D-03, .324524D-03,
340 + .239848D-03, .175164D-03, .126066D-03, .896391D-04,
341 + .624583D-04, .427009D-04, .285810D-04, .187065D-04,
342 + .119513D-04, .744749D-05, .452270D-05, .265865D-05,
343 + .151042D-05, .816253D-06, .408357D-06, .179925D-06,
344 + .632284D-07, .142456D-07, .102423D-08, .000000D+00 /
345 DATA (UPDI(I),I=1093,1144) /
346 + .187860D+07, .140517D+07, .103078D+07, .755424D+06,
347 + .553110D+06, .404536D+06, .295575D+06, .215709D+06,
348 + .157253D+06, .114494D+06, .832644D+05, .604707D+05,
349 + .438611D+05, .317670D+05, .229760D+05, .165913D+05,
350 + .119629D+05, .861075D+04, .618782D+04, .443831D+04,
351 + .317784D+04, .227070D+04, .161940D+04, .115236D+04,
352 + .818312D+03, .579686D+03, .409886D+03, .287670D+03,
353 + .202459D+03, .142140D+03, .995753D+02, .695968D+02,
354 + .485429D+02, .338281D+02, .235197D+02, .163336D+02,
355 + .113383D+02, .786900D+01, .546535D+01, .379927D+01,
356 + .264766D+01, .184912D+01, .129557D+01, .910883D+00,
357 + .643222D+00, .456067D+00, .325439D+00, .232782D+00,
358 + .167783D+00, .121265D+00, .882237D-01, .644971D-01 /
359 DATA (UPDI(I),I=1145,1196) /
360 + .474073D-01, .350125D-01, .259920D-01, .193789D-01,
361 + .145160D-01, .109164D-01, .824416D-02, .624556D-02,
362 + .474712D-02, .361580D-02, .275878D-02, .210867D-02,
363 + .160897D-02, .122554D-02, .931297D-03, .704824D-03,
364 + .530776D-03, .396931D-03, .294478D-03, .216250D-03,
365 + .156986D-03, .112374D-03, .795239D-04, .552060D-04,
366 + .376513D-04, .251815D-04, .164994D-04, .105755D-04,
367 + .662421D-05, .404956D-05, .239731D-05, .136938D-05,
368 + .741113D-06, .369059D-06, .160536D-06, .551844D-07,
369 + .121144D-07, .891437D-09, .000000D+00, .236088D+07,
370 + .176064D+07, .128694D+07, .939790D+06, .685617D+06,
371 + .499628D+06, .363714D+06, .264456D+06, .192069D+06,
372 + .139317D+06, .100930D+06, .730192D+05, .527571D+05 /
373 DATA (UPDI(I),I=1197,1248) /
374 + .380605D+05, .274187D+05, .197203D+05, .141614D+05,
375 + .101515D+05, .726481D+04, .518900D+04, .369956D+04,
376 + .263215D+04, .186900D+04, .132412D+04, .936077D+03,
377 + .660090D+03, .464586D+03, .324516D+03, .227308D+03,
378 + .158820D+03, .110716D+03, .770004D+02, .534360D+02,
379 + .370483D+02, .256248D+02, .177022D+02, .122228D+02,
380 + .843744D+01, .582842D+01, .402970D+01, .279291D+01,
381 + .193996D+01, .135183D+01, .945326D+00, .663969D+00,
382 + .468290D+00, .332419D+00, .236550D+00, .169630D+00,
383 + .121985D+00, .883072D-01, .642433D-01, .469899D-01,
384 + .345360D-01, .255122D-01, .189278D-01, .141070D-01,
385 + .105551D-01, .792942D-02, .597498D-02, .451620D-02,
386 + .342034D-02, .259416D-02, .197078D-02, .149428D-02 /
387 DATA (UPDI(I),I=1249,1300) /
388 + .113091D-02, .853793D-03, .641948D-03, .480262D-03,
389 + .356846D-03, .263073D-03, .192033D-03, .138637D-03,
390 + .987524D-04, .695894D-04, .481564D-04, .327790D-04,
391 + .219125D-04, .143736D-04, .923881D-05, .581029D-05,
392 + .356863D-05, .212130D-05, .121396D-05, .655479D-06,
393 + .323822D-06, .138737D-06, .466083D-07, .997483D-08,
394 + .749270D-09, .000000D+00, .918452D+05, .000000D+00,
395 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
396 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
397 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
398 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
399 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
400 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
401 DATA (UPDI(I),I=1301,1352) /
402 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
403 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
404 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
405 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
406 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
407 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
408 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
409 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
410 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
411 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
412 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
413 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
414 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
415 DATA (UPDI(I),I=1353,1404) /
416 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
417 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
418 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
419 + .000000D+00, .281177D+05, .218962D+05, .168346D+05,
420 + .129332D+05, .993417D+04, .762428D+04, .585015D+04,
421 + .448491D+04, .343729D+04, .263192D+04, .201455D+04,
422 + .154045D+04, .117743D+04, .898990D+03, .686060D+03,
423 + .522954D+03, .398399D+03, .303126D+03, .230485D+03,
424 + .175014D+03, .132799D+03, .100622D+03, .761782D+02,
425 + .575847D+02, .434885D+02, .327951D+02, .247144D+02,
426 + .185185D+02, .139208D+02, .104471D+02, .783571D+01,
427 + .586831D+01, .439301D+01, .328754D+01, .245913D+01,
428 + .183834D+01, .137577D+01, .102952D+01, .771908D+00 /
429 DATA (UPDI(I),I=1405,1456) /
430 + .579104D+00, .435856D+00, .328498D+00, .248422D+00,
431 + .188236D+00, .143231D+00, .109221D+00, .837475D-01,
432 + .642283D-01, .496008D-01, .383149D-01, .297644D-01,
433 + .231718D-01, .181298D-01, .142231D-01, .112186D-01,
434 + .887343D-02, .705650D-02, .563119D-02, .452295D-02,
435 + .364648D-02, .295928D-02, .241137D-02, .197652D-02,
436 + .162814D-02, .134526D-02, .111293D-02, .922269D-03,
437 + .763296D-03, .630660D-03, .518252D-03, .423228D-03,
438 + .342037D-03, .273175D-03, .214105D-03, .165366D-03,
439 + .124239D-03, .906367D-04, .637172D-04, .427767D-04,
440 + .270906D-04, .158330D-04, .831571D-05, .356515D-05,
441 + .979650D-06, .000000D+00, .000000D+00, .000000D+00,
442 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
443 DATA (UPDI(I),I=1457,1508) /
444 + .657151D+05, .509970D+05, .390540D+05, .298860D+05,
445 + .228639D+05, .174778D+05, .133562D+05, .101979D+05,
446 + .778344D+04, .593525D+04, .452390D+04, .344480D+04,
447 + .262176D+04, .199326D+04, .151455D+04, .114949D+04,
448 + .871850D+03, .660446D+03, .499928D+03, .377916D+03,
449 + .285451D+03, .215302D+03, .162243D+03, .122073D+03,
450 + .917531D+02, .688619D+02, .516413D+02, .385026D+02,
451 + .287978D+02, .215028D+02, .160440D+02, .119528D+02,
452 + .889954D+01, .662406D+01, .492708D+01, .366259D+01,
453 + .272504D+01, .202741D+01, .151101D+01, .112690D+01,
454 + .843005D+00, .631574D+00, .474719D+00, .357590D+00,
455 + .270468D+00, .205062D+00, .156327D+00, .119237D+00,
456 + .915731D-01, .703710D-01, .543852D-01, .421380D-01 /
457 DATA (UPDI(I),I=1509,1560) /
458 + .328134D-01, .256308D-01, .201294D-01, .158589D-01,
459 + .125631D-01, .999070D-02, .799652D-02, .642656D-02,
460 + .519892D-02, .422365D-02, .345155D-02, .283466D-02,
461 + .233496D-02, .192599D-02, .159130D-02, .131329D-02,
462 + .108213D-02, .887146D-03, .723045D-03, .583713D-03,
463 + .465982D-03, .365792D-03, .283398D-03, .214237D-03,
464 + .157961D-03, .112921D-03, .778844D-04, .514257D-04,
465 + .322400D-04, .190296D-04, .103132D-04, .508068D-05,
466 + .219759D-05, .791094D-06, .216697D-06, .336295D-07,
467 + .000000D+00, .000000D+00, .000000D+00, .114365D+06,
468 + .884590D+05, .674878D+05, .514513D+05, .392117D+05,
469 + .298603D+05, .227299D+05, .172877D+05, .131425D+05,
470 + .998227D+04, .757800D+04, .574724D+04, .435622D+04 /
471 DATA (UPDI(I),I=1561,1612) /
472 + .329842D+04, .249584D+04, .188639D+04, .142472D+04,
473 + .107470D+04, .809997D+03, .609675D+03, .458486D+03,
474 + .344294D+03, .258283D+03, .193461D+03, .144744D+03,
475 + .108131D+03, .807074D+02, .598839D+02, .445718D+02,
476 + .331183D+02, .245863D+02, .182242D+02, .134980D+02,
477 + .999420D+01, .739357D+01, .546623D+01, .404420D+01,
478 + .299205D+01, .221714D+01, .164413D+01, .122278D+01,
479 + .910858D+00, .680669D+00, .509836D+00, .383425D+00,
480 + .289109D+00, .219190D+00, .166313D+00, .127058D+00,
481 + .971592D-01, .747212D-01, .576320D-01, .446770D-01,
482 + .347521D-01, .271791D-01, .213307D-01, .168330D-01,
483 + .133386D-01, .106369D-01, .851864D-02, .686587D-02,
484 + .555739D-02, .452350D-02, .369965D-02, .303371D-02 /
485 DATA (UPDI(I),I=1613,1664) /
486 + .249063D-02, .204743D-02, .168087D-02, .137728D-02,
487 + .112269D-02, .909632D-03, .730065D-03, .579377D-03,
488 + .452377D-03, .348644D-03, .262397D-03, .192823D-03,
489 + .137604D-03, .949801D-04, .629825D-04, .398922D-04,
490 + .239797D-04, .134467D-04, .701816D-05, .335705D-05,
491 + .144616D-05, .551346D-06, .176065D-06, .378972D-07,
492 + .228841D-09, .000000D+00, .202180D+06, .135644D+06,
493 + .103110D+06, .783226D+05, .594697D+05, .451194D+05,
494 + .342160D+05, .259257D+05, .196338D+05, .148555D+05,
495 + .112336D+05, .848649D+04, .640700D+04, .483197D+04,
496 + .364150D+04, .274119D+04, .206181D+04, .154887D+04,
497 + .116250D+04, .871328D+03, .652455D+03, .487852D+03,
498 + .364380D+03, .271733D+03, .202398D+03, .150518D+03 /
499 DATA (UPDI(I),I=1665,1716) /
500 + .111827D+03, .825842D+02, .611759D+02, .452386D+02,
501 + .334193D+02, .246491D+02, .181640D+02, .133804D+02,
502 + .984650D+01, .724128D+01, .532836D+01, .392074D+01,
503 + .288919D+01, .213068D+01, .157575D+01, .116730D+01,
504 + .867432D+00, .646189D+00, .483310D+00, .362496D+00,
505 + .273380D+00, .206387D+00, .156881D+00, .119394D+00,
506 + .913901D-01, .701797D-01, .541680D-01, .419638D-01,
507 + .326865D-01, .255560D-01, .200912D-01, .158635D-01,
508 + .126035D-01, .100573D-01, .807492D-02, .651076D-02,
509 + .527728D-02, .429705D-02, .350652D-02, .286420D-02,
510 + .234162D-02, .191134D-02, .155650D-02, .126074D-02,
511 + .101469D-02, .808879D-03, .637463D-03, .494383D-03,
512 + .378397D-03, .282932D-03, .206640D-03, .146674D-03 /
513 DATA (UPDI(I),I=1717,1768) /
514 + .100807D-03, .666744D-04, .422321D-04, .254746D-04,
515 + .144279D-04, .766932D-05, .378197D-05, .170644D-05,
516 + .691439D-06, .236289D-06, .544224D-07, .175431D-08,
517 + .000000D+00, .272019D+06, .208951D+06, .158149D+06,
518 + .119616D+06, .904260D+05, .683063D+05, .515689D+05,
519 + .389005D+05, .293263D+05, .220888D+05, .166262D+05,
520 + .125025D+05, .939457D+04, .705186D+04, .528900D+04,
521 + .396232D+04, .296574D+04, .221705D+04, .165570D+04,
522 + .123482D+04, .919930D+03, .684342D+03, .508474D+03,
523 + .377209D+03, .279461D+03, .206709D+03, .152730D+03,
524 + .112157D+03, .826112D+02, .607421D+02, .446092D+02,
525 + .327088D+02, .239570D+02, .175407D+02, .128271D+02,
526 + .937410D+01, .685317D+01, .501037D+01, .366779D+01 /
527 DATA (UPDI(I),I=1769,1820) /
528 + .268728D+01, .197418D+01, .145292D+01, .107255D+01,
529 + .793876D+00, .589933D+00, .439718D+00, .329562D+00,
530 + .247332D+00, .186893D+00, .141442D+00, .107666D+00,
531 + .822523D-01, .631588D-01, .486933D-01, .377430D-01,
532 + .293741D-01, .229844D-01, .180658D-01, .142838D-01,
533 + .113434D-01, .905943D-02, .726476D-02, .585250D-02,
534 + .473440D-02, .383509D-02, .310801D-02, .251892D-02,
535 + .203694D-02, .164189D-02, .131545D-02, .104623D-02,
536 + .823471D-03, .640069D-03, .489157D-03, .368409D-03,
537 + .270636D-03, .193783D-03, .134511D-03, .900778D-04,
538 + .577746D-04, .352275D-04, .202497D-04, .107557D-04,
539 + .523958D-05, .228538D-05, .867224D-06, .277685D-06,
540 + .705470D-07, .114008D-07, .000000D+00, .000000D+00 /
541 DATA (UPDI(I),I=1821,1872) /
542 + .395546D+06, .302723D+06, .228149D+06, .171825D+06,
543 + .129334D+06, .972732D+05, .731152D+05, .549106D+05,
544 + .412108D+05, .309010D+05, .231533D+05, .173311D+05,
545 + .129625D+05, .968475D+04, .722939D+04, .539028D+04,
546 + .401510D+04, .298698D+04, .221973D+04, .164729D+04,
547 + .122105D+04, .903755D+03, .668048D+03, .493023D+03,
548 + .363339D+03, .267319D+03, .196441D+03, .143456D+03,
549 + .105075D+03, .768245D+02, .560951D+02, .408920D+02,
550 + .297725D+02, .216686D+02, .157484D+02, .114382D+02,
551 + .830945D+01, .603683D+01, .439084D+01, .319655D+01,
552 + .233314D+01, .170616D+01, .125141D+01, .920465D+00,
553 + .679707D+00, .503550D+00, .375124D+00, .279890D+00,
554 + .210274D+00, .158261D+00, .119815D+00, .910643D-01 /
555 DATA (UPDI(I),I=1873,1924) /
556 + .695697D-01, .533776D-01, .411741D-01, .318972D-01,
557 + .248430D-01, .194389D-01, .152976D-01, .120921D-01,
558 + .960977D-02, .766729D-02, .614318D-02, .494125D-02,
559 + .397791D-02, .320297D-02, .257800D-02, .206975D-02,
560 + .165567D-02, .131613D-02, .103826D-02, .810439D-03,
561 + .624594D-03, .473374D-03, .353530D-03, .257614D-03,
562 + .183047D-03, .126199D-03, .840435D-04, .537190D-04,
563 + .327484D-04, .189143D-04, .101865D-04, .510167D-05,
564 + .234088D-05, .969593D-06, .356248D-06, .109522D-06,
565 + .225662D-07, .410260D-09, .000000D+00, .551537D+06,
566 + .420590D+06, .315653D+06, .236727D+06, .177427D+06,
567 + .132874D+06, .994420D+05, .743571D+05, .555596D+05,
568 + .414754D+05, .309369D+05, .230529D+05, .171631D+05 /
569 DATA (UPDI(I),I=1925,1976) /
570 + .127642D+05, .948367D+04, .703791D+04, .521745D+04,
571 + .386286D+04, .285669D+04, .210961D+04, .155599D+04,
572 + .114590D+04, .842736D+03, .618756D+03, .453627D+03,
573 + .331984D+03, .242654D+03, .176231D+03, .128370D+03,
574 + .933349D+02, .677636D+02, .491150D+02, .355502D+02,
575 + .257213D+02, .185811D+02, .134137D+02, .968435D+01,
576 + .699215D+01, .505373D+01, .365612D+01, .265172D+01,
577 + .192701D+01, .140453D+01, .102675D+01, .753545D+00,
578 + .554919D+00, .410956D+00, .304878D+00, .227754D+00,
579 + .170490D+00, .128387D+00, .970864D-01, .737997D-01,
580 + .563524D-01, .432612D-01, .333600D-01, .258622D-01,
581 + .201446D-01, .157783D-01, .124132D-01, .981567D-02,
582 + .779138D-02, .620820D-02, .496463D-02, .397182D-02 /
583 DATA (UPDI(I),I=1977,2028) /
584 + .317724D-02, .253961D-02, .202423D-02, .160697D-02,
585 + .126745D-02, .991752D-03, .767746D-03, .586712D-03,
586 + .440981D-03, .326582D-03, .236057D-03, .166441D-03,
587 + .113960D-03, .754559D-04, .480437D-04, .292585D-04,
588 + .169527D-04, .922578D-05, .471600D-05, .224017D-05,
589 + .977675D-06, .383881D-06, .126380D-06, .277202D-07,
590 + .112517D-08, .000000D+00, .745649D+06, .566605D+06,
591 + .423478D+06, .316270D+06, .236049D+06, .176027D+06,
592 + .131174D+06, .976617D+05, .726550D+05, .539991D+05,
593 + .400998D+05, .297471D+05, .220469D+05, .163215D+05,
594 + .120708D+05, .891621D+04, .657880D+04, .484766D+04,
595 + .356775D+04, .262196D+04, .192438D+04, .141017D+04,
596 + .103188D+04, .753779D+03, .549770D+03, .400242D+03 /
597 DATA (UPDI(I),I=2029,2080) /
598 + .290994D+03, .210190D+03, .152272D+03, .110105D+03,
599 + .794913D+02, .572890D+02, .412273D+02, .296555D+02,
600 + .212960D+02, .152817D+02, .109659D+02, .786918D+01,
601 + .565255D+01, .406419D+01, .292943D+01, .211575D+01,
602 + .153263D+01, .111364D+01, .812409D+00, .594762D+00,
603 + .437920D+00, .323061D+00, .240004D+00, .178703D+00,
604 + .133869D+00, .100726D+00, .761885D-01, .578998D-01,
605 + .442383D-01, .339564D-01, .262027D-01, .203162D-01,
606 + .158372D-01, .123998D-01, .975557D-02, .770333D-02,
607 + .610387D-02, .485266D-02, .385796D-02, .306602D-02,
608 + .243382D-02, .192599D-02, .151750D-02, .118763D-02,
609 + .921874D-03, .707848D-03, .536483D-03, .399945D-03,
610 + .293767D-03, .210661D-03, .147420D-03, .100255D-03 /
611 DATA (UPDI(I),I=2081,2132) /
612 + .660043D-04, .418607D-04, .254562D-04, .147818D-04,
613 + .810791D-05, .420693D-05, .204547D-05, .920700D-06,
614 + .373265D-06, .125739D-06, .279168D-07, .141197D-08,
615 + .000000D+00, .983921D+06, .745058D+06, .554577D+06,
616 + .412477D+06, .306573D+06, .227662D+06, .168934D+06,
617 + .125239D+06, .927698D+05, .686497D+05, .507555D+05,
618 + .374852D+05, .276577D+05, .203829D+05, .150057D+05,
619 + .110330D+05, .810279D+04, .594257D+04, .435278D+04,
620 + .318352D+04, .232518D+04, .169550D+04, .123449D+04,
621 + .897250D+03, .651075D+03, .471540D+03, .341032D+03,
622 + .245008D+03, .176542D+03, .126960D+03, .911522D+02,
623 + .653255D+02, .467431D+02, .334302D+02, .238663D+02,
624 + .170252D+02, .121439D+02, .866226D+01, .618453D+01 /
625 DATA (UPDI(I),I=2133,2184) /
626 + .441980D+01, .316638D+01, .227309D+01, .163669D+01,
627 + .118221D+01, .857355D+00, .624052D+00, .456886D+00,
628 + .335194D+00, .247666D+00, .183439D+00, .136710D+00,
629 + .102355D+00, .770428D-01, .582717D-01, .443122D-01,
630 + .338562D-01, .260040D-01, .200688D-01, .155696D-01,
631 + .121311D-01, .949545D-02, .745843D-02, .587670D-02,
632 + .464462D-02, .366949D-02, .289727D-02, .228413D-02,
633 + .179471D-02, .140360D-02, .109016D-02, .839602D-03,
634 + .639563D-03, .480857D-03, .355643D-03, .259166D-03,
635 + .184439D-03, .128145D-03, .865898D-04, .567038D-04,
636 + .358312D-04, .217597D-04, .126585D-04, .698807D-05,
637 + .366782D-05, .181273D-05, .831490D-06, .342254D-06,
638 + .115773D-06, .255643D-07, .144723D-08, .000000D+00 /
639 DATA (UPDI(I),I=2185,2236) /
640 + .127268D+07, .960409D+06, .711983D+06, .527399D+06,
641 + .390380D+06, .288698D+06, .213330D+06, .157485D+06,
642 + .116159D+06, .855889D+05, .630048D+05, .463282D+05,
643 + .340311D+05, .249679D+05, .182982D+05, .133926D+05,
644 + .979037D+04, .714686D+04, .521025D+04, .379255D+04,
645 + .275667D+04, .200037D+04, .144930D+04, .104813D+04,
646 + .756723D+03, .545248D+03, .392294D+03, .280339D+03,
647 + .200925D+03, .143719D+03, .102621D+03, .731386D+02,
648 + .520399D+02, .370079D+02, .262682D+02, .186298D+02,
649 + .132103D+02, .936731D+01, .664809D+01, .472283D+01,
650 + .336327D+01, .240012D+01, .171795D+01, .123368D+01,
651 + .889514D+00, .643794D+00, .468721D+00, .342009D+00,
652 + .251352D+00, .185205D+00, .137326D+00, .102312D+00 /
653 DATA (UPDI(I),I=2237,2288) /
654 + .766378D-01, .576919D-01, .436648D-01, .332072D-01,
655 + .253867D-01, .195009D-01, .150561D-01, .116735D-01,
656 + .909040D-02, .710239D-02, .556470D-02, .437219D-02,
657 + .343279D-02, .269288D-02, .210866D-02, .164526D-02,
658 + .127740D-02, .984782D-03, .752678D-03, .568941D-03,
659 + .424467D-03, .311551D-03, .225325D-03, .159202D-03,
660 + .109868D-03, .737989D-04, .480933D-04, .302926D-04,
661 + .183759D-04, .107086D-04, .594373D-05, .314774D-05,
662 + .157355D-05, .729810D-06, .302019D-06, .101604D-06,
663 + .221422D-07, .134795D-08, .000000D+00, .161841D+07,
664 + .121719D+07, .898746D+06, .663072D+06, .488815D+06,
665 + .360016D+06, .264932D+06, .194765D+06, .143052D+06,
666 + .104957D+06, .769312D+05, .563239D+05, .411926D+05 /
667 DATA (UPDI(I),I=2289,2340) /
668 + .300889D+05, .219528D+05, .159951D+05, .116396D+05,
669 + .845773D+04, .613723D+04, .444632D+04, .321650D+04,
670 + .232282D+04, .167473D+04, .120520D+04, .865789D+03,
671 + .620675D+03, .444275D+03, .315818D+03, .225166D+03,
672 + .160204D+03, .113775D+03, .806471D+02, .570649D+02,
673 + .403552D+02, .284817D+02, .200842D+02, .141591D+02,
674 + .998185D+01, .704279D+01, .497397D+01, .352135D+01,
675 + .249828D+01, .177784D+01, .126938D+01, .910066D+00,
676 + .655002D+00, .474277D+00, .344211D+00, .251641D+00,
677 + .184470D+00, .136096D+00, .100902D+00, .752190D-01,
678 + .563577D-01, .424547D-01, .321373D-01, .244539D-01,
679 + .186962D-01, .143650D-01, .110826D-01, .858579D-02,
680 + .667241D-02, .519844D-02, .406052D-02, .316842D-02 /
681 DATA (UPDI(I),I=2341,2392) /
682 + .246963D-02, .192100D-02, .148857D-02, .114756D-02,
683 + .878309D-03, .666356D-03, .499957D-03, .370249D-03,
684 + .269782D-03, .193725D-03, .135950D-03, .932349D-04,
685 + .622867D-04, .404152D-04, .253865D-04, .153872D-04,
686 + .898175D-05, .500791D-05, .267023D-05, .134496D-05,
687 + .627207D-06, .259294D-06, .862685D-07, .184832D-07,
688 + .118647D-08, .000000D+00, .202765D+07, .151992D+07,
689 + .111786D+07, .821460D+06, .603156D+06, .442439D+06,
690 + .324259D+06, .237401D+06, .173643D+06, .126868D+06,
691 + .925979D+05, .675046D+05, .491565D+05, .357497D+05,
692 + .259680D+05, .188366D+05, .136457D+05, .987036D+04,
693 + .712938D+04, .514115D+04, .370168D+04, .266051D+04,
694 + .190898D+04, .136710D+04, .977263D+03, .697087D+03 /
695 DATA (UPDI(I),I=2393,2444) /
696 + .496449D+03, .351078D+03, .249011D+03, .176243D+03,
697 + .124501D+03, .877764D+02, .617712D+02, .434437D+02,
698 + .304904D+02, .213797D+02, .149867D+02, .105050D+02,
699 + .736926D+01, .517463D+01, .364231D+01, .256930D+01,
700 + .181796D+01, .129073D+01, .920217D+00, .658681D+00,
701 + .474379D+00, .342470D+00, .249072D+00, .181664D+00,
702 + .133362D+00, .983992D-01, .730031D-01, .544412D-01,
703 + .408190D-01, .307558D-01, .232932D-01, .177247D-01,
704 + .135524D-01, .104039D-01, .801839D-02, .619829D-02,
705 + .480201D-02, .372908D-02, .289208D-02, .224006D-02,
706 + .173107D-02, .133241D-02, .102011D-02, .775296D-03,
707 + .584021D-03, .435062D-03, .319921D-03, .231499D-03,
708 + .165118D-03, .115142D-03, .785106D-04, .521919D-04 /
709 DATA (UPDI(I),I=2445,2496) /
710 + .337356D-04, .211415D-04, .128068D-04, .748669D-05,
711 + .418947D-05, .224467D-05, .113553D-05, .530179D-06,
712 + .217982D-06, .714715D-07, .150250D-07, .100568D-08,
713 + .000000D+00, .250681D+07, .187296D+07, .137216D+07,
714 + .100440D+07, .734573D+06, .536696D+06, .391758D+06,
715 + .285657D+06, .208084D+06, .151404D+06, .110044D+06,
716 + .798854D+05, .579244D+05, .419452D+05, .303359D+05,
717 + .219084D+05, .158006D+05, .113779D+05, .818102D+04,
718 + .587250D+04, .420867D+04, .301074D+04, .215004D+04,
719 + .153236D+04, .109008D+04, .773726D+03, .548284D+03,
720 + .385756D+03, .272213D+03, .191672D+03, .134693D+03,
721 + .944603D+02, .661186D+02, .462501D+02, .322819D+02,
722 + .225108D+02, .156913D+02, .109371D+02, .762912D+01 /
723 DATA (UPDI(I),I=2497,2548) /
724 + .532686D+01, .372825D+01, .261514D+01, .184004D+01,
725 + .129918D+01, .921172D+00, .655812D+00, .469818D+00,
726 + .337413D+00, .244143D+00, .177179D+00, .129433D+00,
727 + .950434D-01, .701794D-01, .520912D-01, .388747D-01,
728 + .291550D-01, .219773D-01, .166444D-01, .126645D-01,
729 + .967406D-02, .741749D-02, .570336D-02, .439401D-02,
730 + .339262D-02, .261534D-02, .201320D-02, .154584D-02,
731 + .118207D-02, .898955D-03, .678597D-03, .507682D-03,
732 + .375614D-03, .274353D-03, .197225D-03, .139784D-03,
733 + .969039D-04, .657253D-04, .434984D-04, .280216D-04,
734 + .175259D-04, .106116D-04, .621098D-05, .348483D-05,
735 + .187275D-05, .948894D-06, .442091D-06, .180186D-06,
736 + .580875D-07, .119699D-07, .829538D-09, .000000D+00 /
737 DATA (UPDI(I),I=2549,2600) /
738 + .781316D+05, .462531D+05, .354066D+05, .271049D+05,
739 + .207508D+05, .158873D+05, .121645D+05, .931495D+04,
740 + .713364D+04, .546380D+04, .418545D+04, .320673D+04,
741 + .245738D+04, .188358D+04, .144417D+04, .110764D+04,
742 + .849853D+03, .652361D+03, .501032D+03, .385047D+03,
743 + .296129D+03, .227940D+03, .175627D+03, .135476D+03,
744 + .104644D+03, .809530D+02, .627359D+02, .485419D+02,
745 + .377847D+02, .294863D+02, .230755D+02, .181147D+02,
746 + .142686D+02, .112878D+02, .895899D+01, .713984D+01,
747 + .571379D+01, .459145D+01, .370425D+01, .299925D+01,
748 + .243701D+01, .198553D+01, .162126D+01, .132588D+01,
749 + .108527D+01, .888502D+00, .727615D+00, .594448D+00,
750 + .485393D+00, .394918D+00, .320616D+00, .259403D+00 /
751 DATA (UPDI(I),I=2601,2652) /
752 + .209055D+00, .167736D+00, .133925D+00, .106355D+00,
753 + .839676D-01, .658731D-01, .513257D-01, .396978D-01,
754 + .304624D-01, .231776D-01, .174739D-01, .130621D-01,
755 + .964360D-02, .703804D-02, .507251D-02, .360637D-02,
756 + .252610D-02, .174080D-02, .117831D-02, .781946D-03,
757 + .507501D-03, .321146D-03, .198470D-03, .118532D-03,
758 + .683465D-04, .378474D-04, .199964D-04, .999736D-05,
759 + .467999D-05, .202603D-05, .791277D-06, .273721D-06,
760 + .803730D-07, .188694D-07, .320396D-08, .325977D-09,
761 + .130252D-10, .529200D-13, .000000D+00, .867857D+05,
762 + .673918D+05, .516616D+05, .395953D+05, .303462D+05,
763 + .232529D+05, .178168D+05, .136489D+05, .104555D+05,
764 + .800766D+04, .613271D+04, .469589D+04, .359565D+04 /
765 DATA (UPDI(I),I=2653,2704) /
766 + .275275D+04, .210748D+04, .161327D+04, .123506D+04,
767 + .945456D+03, .723880D+03, .554260D+03, .424515D+03,
768 + .325210D+03, .249256D+03, .191123D+03, .146657D+03,
769 + .112621D+03, .865876D+02, .664004D+02, .511951D+02,
770 + .395361D+02, .305986D+02, .237345D+02, .184608D+02,
771 + .144106D+02, .112806D+02, .886139D+01, .698864D+01,
772 + .553254D+01, .439762D+01, .350799D+01, .280936D+01,
773 + .225654D+01, .181754D+01, .146691D+01, .118585D+01,
774 + .959363D+00, .777020D+00, .628132D+00, .507984D+00,
775 + .409543D+00, .329736D+00, .264727D+00, .211868D+00,
776 + .168925D+00, .134137D+00, .106016D+00, .833748D-01,
777 + .652112D-01, .507163D-01, .391993D-01, .301054D-01,
778 + .229644D-01, .173938D-01, .130954D-01, .976807D-02 /
779 DATA (UPDI(I),I=2705,2756) /
780 + .722853D-02, .530688D-02, .386419D-02, .279100D-02,
781 + .199889D-02, .141982D-02, .999611D-03, .697478D-03,
782 + .480983D-03, .329276D-03, .221504D-03, .146342D-03,
783 + .943506D-04, .588418D-04, .350616D-04, .195333D-04,
784 + .990406D-05, .417959D-05, .119014D-05, .000000D+00,
785 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
786 + .000000D+00, .000000D+00, .123458D+06, .957755D+05,
787 + .733324D+05, .561290D+05, .429554D+05, .328616D+05,
788 + .251357D+05, .192189D+05, .146924D+05, .112277D+05,
789 + .857843D+04, .655171D+04, .500295D+04, .381880D+04,
790 + .291446D+04, .222344D+04, .169604D+04, .129329D+04,
791 + .986103D+03, .751674D+03, .572994D+03, .436718D+03,
792 + .332906D+03, .253775D+03, .193521D+03, .147617D+03 /
793 DATA (UPDI(I),I=2757,2808) /
794 + .112694D+03, .857550D+02, .655840D+02, .502108D+02,
795 + .385061D+02, .295789D+02, .227727D+02, .175868D+02,
796 + .136143D+02, .105715D+02, .823918D+01, .644390D+01,
797 + .506000D+01, .398721D+01, .315483D+01, .250399D+01,
798 + .199363D+01, .159101D+01, .127244D+01, .101883D+01,
799 + .817215D+00, .654497D+00, .524768D+00, .419627D+00,
800 + .335314D+00, .267318D+00, .212575D+00, .168500D+00,
801 + .133109D+00, .104724D+00, .820439D-01, .639735D-01,
802 + .496481D-01, .383291D-01, .294392D-01, .224878D-01,
803 + .170840D-01, .129244D-01, .970852D-02, .725255D-02,
804 + .539039D-02, .398603D-02, .293419D-02, .214960D-02,
805 + .156801D-02, .113804D-02, .821578D-03, .588091D-03,
806 + .419073D-03, .294223D-03, .203455D-03, .137762D-03 /
807 DATA (UPDI(I),I=2809,2860) /
808 + .908127D-04, .577900D-04, .351689D-04, .202757D-04,
809 + .107905D-04, .524249D-05, .224404D-05, .801755D-06,
810 + .218462D-06, .338053D-07, .000000D+00, .000000D+00,
811 + .000000D+00, .171224D+06, .132552D+06, .101242D+06,
812 + .772940D+05, .589971D+05, .450102D+05, .343307D+05,
813 + .261723D+05, .199473D+05, .151951D+05, .115718D+05,
814 + .880784D+04, .670208D+04, .509704D+04, .387523D+04,
815 + .294471D+04, .223700D+04, .169849D+04, .128928D+04,
816 + .978197D+03, .742045D+03, .562681D+03, .426641D+03,
817 + .323407D+03, .245172D+03, .185860D+03, .140972D+03,
818 + .106530D+03, .808871D+02, .614575D+02, .467563D+02,
819 + .356162D+02, .271808D+02, .207997D+02, .159488D+02,
820 + .122626D+02, .946097D+01, .732325D+01, .569062D+01 /
821 DATA (UPDI(I),I=2861,2912) /
822 + .443710D+01, .347424D+01, .272906D+01, .215086D+01,
823 + .169958D+01, .134635D+01, .106813D+01, .849310D+00,
824 + .674510D+00, .536589D+00, .425887D+00, .337959D+00,
825 + .267682D+00, .211595D+00, .166807D+00, .131124D+00,
826 + .102711D+00, .801647D-01, .623140D-01, .482470D-01,
827 + .371899D-01, .285474D-01, .218165D-01, .166008D-01,
828 + .125953D-01, .950258D-02, .714046D-02, .534709D-02,
829 + .399038D-02, .296928D-02, .220211D-02, .162813D-02,
830 + .119880D-02, .878350D-03, .638167D-03, .461345D-03,
831 + .328417D-03, .230122D-03, .157829D-03, .105428D-03,
832 + .680866D-04, .422214D-04, .249620D-04, .138193D-04,
833 + .714322D-05, .339255D-05, .145421D-05, .552663D-06,
834 + .176195D-06, .379024D-07, .228865D-09, .000000D+00 /
835 DATA (UPDI(I),I=2913,2964) /
836 + .189296D+06, .179079D+06, .136361D+06, .103780D+06,
837 + .789609D+05, .600445D+05, .456450D+05, .346791D+05,
838 + .263384D+05, .199920D+05, .151691D+05, .115026D+05,
839 + .871892D+04, .660473D+04, .500118D+04, .378450D+04,
840 + .286267D+04, .216397D+04, .163517D+04, .123482D+04,
841 + .932185D+03, .703326D+03, .530519D+03, .399988D+03,
842 + .301533D+03, .227256D+03, .171329D+03, .128643D+03,
843 + .970336D+02, .732182D+02, .553037D+02, .418114D+02,
844 + .316594D+02, .240306D+02, .182711D+02, .139261D+02,
845 + .106486D+02, .816743D+01, .628798D+01, .485722D+01,
846 + .376787D+01, .293241D+01, .229014D+01, .179355D+01,
847 + .140855D+01, .110816D+01, .874119D+00, .688882D+00,
848 + .544059D+00, .428836D+00, .338098D+00, .266168D+00 /
849 DATA (UPDI(I),I=2965,3016) /
850 + .209215D+00, .164074D+00, .128368D+00, .100126D+00,
851 + .778574D-01, .603300D-01, .465932D-01, .358488D-01,
852 + .274880D-01, .210010D-01, .159897D-01, .121501D-01,
853 + .918962D-02, .692930D-02, .521204D-02, .391034D-02,
854 + .292740D-02, .218540D-02, .162688D-02, .120606D-02,
855 + .889385D-03, .650022D-03, .472243D-03, .337564D-03,
856 + .237303D-03, .163187D-03, .109277D-03, .707808D-04,
857 + .440906D-04, .262518D-04, .147199D-04, .776638D-05,
858 + .380922D-05, .171256D-05, .692427D-06, .236386D-06,
859 + .544262D-07, .175433D-08, .000000D+00, .327028D+06,
860 + .251611D+06, .190808D+06, .144621D+06, .109571D+06,
861 + .829671D+05, .627960D+05, .474997D+05, .359131D+05,
862 + .271353D+05, .204931D+05, .154663D+05, .116666D+05 /
863 DATA (UPDI(I),I=3017,3068) /
864 + .879421D+04, .662552D+04, .498799D+04, .375317D+04,
865 + .282192D+04, .212059D+04, .159239D+04, .119516D+04,
866 + .896385D+03, .671999D+03, .503469D+03, .377069D+03,
867 + .282274D+03, .211328D+03, .157518D+03, .117923D+03,
868 + .882912D+02, .661503D+02, .495941D+02, .372256D+02,
869 + .280025D+02, .210928D+02, .159232D+02, .120559D+02,
870 + .915430D+01, .697598D+01, .533349D+01, .409483D+01,
871 + .315439D+01, .243863D+01, .189099D+01, .147075D+01,
872 + .114630D+01, .896087D+00, .700083D+00, .548365D+00,
873 + .428843D+00, .335601D+00, .262369D+00, .204890D+00,
874 + .159718D+00, .124269D+00, .964441D-01, .746585D-01,
875 + .576263D-01, .443584D-01, .340393D-01, .260487D-01,
876 + .198764D-01, .151242D-01, .114934D-01, .869883D-02 /
877 DATA (UPDI(I),I=3069,3120) /
878 + .656718D-02, .494737D-02, .371824D-02, .278805D-02,
879 + .208384D-02, .155181D-02, .114942D-02, .845481D-03,
880 + .615214D-03, .443899D-03, .314270D-03, .218092D-03,
881 + .147503D-03, .966873D-04, .609523D-04, .366528D-04,
882 + .208402D-04, .109754D-04, .531181D-05, .230543D-05,
883 + .871670D-06, .278395D-06, .706155D-07, .114035D-07,
884 + .000000D+00, .000000D+00, .449575D+06, .344624D+06,
885 + .260228D+06, .196387D+06, .148140D+06, .111675D+06,
886 + .841447D+05, .633588D+05, .476824D+05, .358596D+05,
887 + .269530D+05, .202437D+05, .151955D+05, .113974D+05,
888 + .854325D+04, .639870D+04, .478940D+04, .358185D+04,
889 + .267701D+04, .199906D+04, .149186D+04, .111244D+04,
890 + .829009D+03, .617322D+03, .459445D+03, .341727D+03 /
891 DATA (UPDI(I),I=3121,3172) /
892 + .254145D+03, .188124D+03, .139844D+03, .103944D+03,
893 + .772928D+02, .574991D+02, .428126D+02, .319401D+02,
894 + .238535D+02, .178498D+02, .133933D+02, .100769D+02,
895 + .760772D+01, .576209D+01, .438234D+01, .334432D+01,
896 + .256147D+01, .196815D+01, .151709D+01, .117215D+01,
897 + .908609D+00, .704099D+00, .547234D+00, .424775D+00,
898 + .330070D+00, .256325D+00, .198911D+00, .154149D+00,
899 + .119282D+00, .921112D-01, .709802D-01, .545660D-01,
900 + .418541D-01, .320217D-01, .244452D-01, .186185D-01,
901 + .141486D-01, .107439D-01, .812927D-02, .613819D-02,
902 + .462637D-02, .347935D-02, .261070D-02, .195237D-02,
903 + .145419D-02, .107682D-02, .791342D-03, .574987D-03,
904 + .413943D-03, .292271D-03, .202204D-03, .136353D-03 /
905 DATA (UPDI(I),I=3173,3224) /
906 + .891646D-04, .561587D-04, .338320D-04, .193586D-04,
907 + .103499D-04, .515477D-05, .235543D-05, .972777D-06,
908 + .356749D-06, .109570D-06, .225680D-07, .410270D-09,
909 + .000000D+00, .604606D+06, .461748D+06, .347164D+06,
910 + .260855D+06, .195902D+06, .147022D+06, .110278D+06,
911 + .826575D+05, .619184D+05, .463478D+05, .346710D+05,
912 + .259154D+05, .193579D+05, .144477D+05, .107753D+05,
913 + .802943D+04, .597888D+04, .444794D+04, .330651D+04,
914 + .245571D+04, .182248D+04, .135128D+04, .100118D+04,
915 + .741125D+03, .548251D+03, .405251D+03, .299473D+03,
916 + .220211D+03, .162598D+03, .120025D+03, .886167D+02,
917 + .654420D+02, .483597D+02, .358002D+02, .265234D+02,
918 + .196861D+02, .146478D+02, .109273D+02, .817857D+01 /
919 DATA (UPDI(I),I=3225,3276) /
920 + .614066D+01, .462949D+01, .350220D+01, .265918D+01,
921 + .202583D+01, .154848D+01, .118662D+01, .912553D+00,
922 + .701716D+00, .541359D+00, .417231D+00, .322012D+00,
923 + .248461D+00, .191634D+00, .147661D+00, .113648D+00,
924 + .873244D-01, .669832D-01, .512796D-01, .391862D-01,
925 + .298822D-01, .227468D-01, .172833D-01, .131074D-01,
926 + .993694D-02, .750847D-02, .566313D-02, .426407D-02,
927 + .320375D-02, .240119D-02, .179322D-02, .133325D-02,
928 + .985013D-03, .721796D-03, .522718D-03, .374827D-03,
929 + .263524D-03, .181504D-03, .121878D-03, .794147D-04,
930 + .499124D-04, .300803D-04, .172862D-04, .934706D-05,
931 + .475494D-05, .225070D-05, .979949D-06, .384234D-06,
932 + .126413D-06, .277215D-07, .112518D-08, .000000D+00 /
933 DATA (UPDI(I),I=3277,3328) /
934 + .797777D+06, .607033D+06, .454431D+06, .339972D+06,
935 + .254198D+06, .189927D+06, .141820D+06, .105817D+06,
936 + .789031D+05, .587871D+05, .437694D+05, .325604D+05,
937 + .242042D+05, .179764D+05, .133407D+05, .989116D+04,
938 + .732761D+04, .542313D+04, .401026D+04, .296248D+04,
939 + .218662D+04, .161230D+04, .118784D+04, .874247D+03,
940 + .642932D+03, .472379D+03, .346936D+03, .253486D+03,
941 + .185961D+03, .136366D+03, .999983D+02, .733338D+02,
942 + .538038D+02, .395394D+02, .290732D+02, .214128D+02,
943 + .158074D+02, .116983D+02, .868471D+01, .646747D+01,
944 + .483588D+01, .362838D+01, .273254D+01, .206499D+01,
945 + .156591D+01, .119069D+01, .908784D+00, .693691D+00,
946 + .531387D+00, .406751D+00, .311873D+00, .239140D+00 /
947 DATA (UPDI(I),I=3329,3380) /
948 + .183351D+00, .140486D+00, .107553D+00, .822318D-01,
949 + .627856D-01, .478617D-01, .364313D-01, .276831D-01,
950 + .210054D-01, .159147D-01, .120382D-01, .910511D-02,
951 + .686498D-02, .516717D-02, .388266D-02, .291097D-02,
952 + .217662D-02, .162121D-02, .120167D-02, .884679D-03,
953 + .645680D-03, .465551D-03, .332210D-03, .232382D-03,
954 + .159237D-03, .106416D-03, .690577D-04, .432887D-04,
955 + .260781D-04, .150316D-04, .819771D-05, .423543D-05,
956 + .205307D-05, .922320D-06, .373513D-06, .125762D-06,
957 + .279176D-07, .141198D-08, .000000D+00, .103512D+07,
958 + .784770D+06, .584983D+06, .435760D+06, .324403D+06,
959 + .241318D+06, .179394D+06, .133252D+06, .989093D+05,
960 + .733548D+05, .543620D+05, .402504D+05, .297783D+05 /
961 DATA (UPDI(I),I=3381,3432) /
962 + .220098D+05, .162543D+05, .119917D+05, .883922D+04,
963 + .650861D+04, .478810D+04, .351856D+04, .258323D+04,
964 + .189444D+04, .138801D+04, .101584D+04, .742790D+03,
965 + .542556D+03, .396101D+03, .287623D+03, .209691D+03,
966 + .152790D+03, .111311D+03, .810855D+02, .590839D+02,
967 + .431166D+02, .314763D+02, .230133D+02, .168621D+02,
968 + .123844D+02, .912348D+01, .674168D+01, .500172D+01,
969 + .372367D+01, .278262D+01, .208676D+01, .157048D+01,
970 + .118533D+01, .898180D+00, .680769D+00, .517942D+00,
971 + .393847D+00, .300066D+00, .228693D+00, .174324D+00,
972 + .132833D+00, .101160D+00, .769618D-01, .584884D-01,
973 + .443923D-01, .336533D-01, .254762D-01, .192635D-01,
974 + .145479D-01, .109710D-01, .827409D-02, .622099D-02 /
975 DATA (UPDI(I),I=3433,3484) /
976 + .466957D-02, .349890D-02, .261551D-02, .194945D-02,
977 + .144695D-02, .106834D-02, .783167D-03, .568933D-03,
978 + .408184D-03, .289729D-03, .201576D-03, .137395D-03,
979 + .913717D-04, .590532D-04, .369199D-04, .222292D-04,
980 + .128451D-04, .705440D-05, .368862D-05, .181821D-05,
981 + .832642D-06, .342428D-06, .115788D-06, .255650D-07,
982 + .144724D-08, .000000D+00, .132297D+07, .999418D+06,
983 + .741851D+06, .550271D+06, .407896D+06, .302114D+06,
984 + .223606D+06, .165359D+06, .122192D+06, .902126D+05,
985 + .665491D+05, .490460D+05, .361156D+05, .265673D+05,
986 + .195258D+05, .143354D+05, .105146D+05, .770362D+04,
987 + .563851D+04, .412220D+04, .301061D+04, .219616D+04,
988 + .160040D+04, .116486D+04, .847005D+03, .615151D+03 /
989 DATA (UPDI(I),I=3485,3536) /
990 + .446495D+03, .322272D+03, .233535D+03, .169116D+03,
991 + .122429D+03, .886111D+02, .641424D+02, .464944D+02,
992 + .337089D+02, .244732D+02, .178039D+02, .129816D+02,
993 + .949341D+01, .696330D+01, .512784D+01, .378927D+01,
994 + .281073D+01, .209243D+01, .156338D+01, .117159D+01,
995 + .881618D+00, .663678D+00, .501619D+00, .378996D+00,
996 + .286972D+00, .217420D+00, .164787D+00, .124883D+00,
997 + .946111D-01, .716238D-01, .541767D-01, .409379D-01,
998 + .309047D-01, .233034D-01, .175550D-01, .132110D-01,
999 + .992899D-02, .746362D-02, .559330D-02, .418468D-02,
1000 + .312501D-02, .232779D-02, .172846D-02, .127774D-02,
1001 + .939273D-03, .685302D-03, .495347D-03, .353533D-03,
1002 + .249568D-03, .172691D-03, .117090D-03, .775018D-04 /
1003 DATA (UPDI(I),I=3537,3588) /
1004 + .498966D-04, .311206D-04, .187294D-04, .108476D-04,
1005 + .599260D-05, .316288D-05, .157749D-05, .730627D-06,
1006 + .302141D-06, .101615D-06, .221426D-07, .134796D-08,
1007 + .000000D+00, .166781D+07, .125551D+07, .928086D+06,
1008 + .685541D+06, .506022D+06, .373197D+06, .275028D+06,
1009 + .202501D+06, .148980D+06, .109501D+06, .804146D+05,
1010 + .589952D+05, .432417D+05, .316613D+05, .231598D+05,
1011 + .169222D+05, .123519D+05, .900538D+04, .655854D+04,
1012 + .477066D+04, .346639D+04, .251551D+04, .182345D+04,
1013 + .132010D+04, .954650D+03, .689473D+03, .497611D+03,
1014 + .357072D+03, .257235D+03, .185166D+03, .133230D+03,
1015 + .958292D+02, .689263D+02, .496393D+02, .357509D+02,
1016 + .257812D+02, .186270D+02, .134876D+02, .979423D+01 /
1017 DATA (UPDI(I),I=3589,3640) /
1018 + .713317D+01, .521560D+01, .382674D+01, .281840D+01,
1019 + .208341D+01, .154582D+01, .115050D+01, .859960D+00,
1020 + .643117D+00, .482977D+00, .362640D+00, .272937D+00,
1021 + .205587D+00, .154947D+00, .116794D+00, .880259D-01,
1022 + .663098D-01, .499206D-01, .375525D-01, .282274D-01,
1023 + .211978D-01, .159062D-01, .119253D-01, .892972D-02,
1024 + .668825D-02, .499407D-02, .372270D-02, .276954D-02,
1025 + .205491D-02, .151950D-02, .111833D-02, .818233D-03,
1026 + .594033D-03, .427161D-03, .303249D-03, .212909D-03,
1027 + .146542D-03, .988613D-04, .651471D-04, .417960D-04,
1028 + .260146D-04, .156527D-04, .908508D-05, .504383D-05,
1029 + .268123D-05, .134778D-05, .627785D-06, .259379D-06,
1030 + .862761D-07, .184835D-07, .118648D-08, .000000D+00 /
1031 DATA (UPDI(I),I=3641,3692) /
1032 + .207618D+07, .155756D+07, .114668D+07, .843532D+06,
1033 + .620061D+06, .455387D+06, .334178D+06, .245002D+06,
1034 + .179468D+06, .131333D+06, .960214D+05, .701302D+05,
1035 + .511707D+05, .372955D+05, .271548D+05, .197482D+05,
1036 + .143462D+05, .104090D+05, .754385D+04, .546027D+04,
1037 + .394757D+04, .285013D+04, .205534D+04, .148018D+04,
1038 + .106471D+04, .764786D+03, .548922D+03, .391651D+03,
1039 + .280536D+03, .200767D+03, .143599D+03, .102665D+03,
1040 + .733886D+02, .525228D+02, .375861D+02, .269288D+02,
1041 + .193278D+02, .139017D+02, .100267D+02, .725284D+01,
1042 + .526685D+01, .383791D+01, .280734D+01, .206118D+01,
1043 + .151906D+01, .112310D+01, .834038D+00, .619748D+00,
1044 + .462535D+00, .345183D+00, .258268D+00, .193430D+00 /
1045 DATA (UPDI(I),I=3693,3744) /
1046 + .144981D+00, .108701D+00, .815054D-01, .610951D-01,
1047 + .457767D-01, .342788D-01, .256538D-01, .191842D-01,
1048 + .143367D-01, .107062D-01, .798562D-02, .595809D-02,
1049 + .443156D-02, .329039D-02, .243802D-02, .180133D-02,
1050 + .132613D-02, .971513D-03, .707368D-03, .510952D-03,
1051 + .365514D-03, .258118D-03, .180264D-03, .123441D-03,
1052 + .828831D-04, .543962D-04, .347903D-04, .216168D-04,
1053 + .130057D-04, .756330D-05, .421580D-05, .225264D-05,
1054 + .113755D-05, .530586D-06, .218041D-06, .714767D-07,
1055 + .150252D-07, .100568D-08, .000000D+00, .255447D+07,
1056 + .190993D+07, .140047D+07, .102609D+07, .751180D+06,
1057 + .549417D+06, .401504D+06, .293126D+06, .213808D+06,
1058 + .155792D+06, .113409D+06, .824661D+05, .599044D+05 /
1059 DATA (UPDI(I),I=3745,3796) /
1060 + .434650D+05, .315028D+05, .228049D+05, .164896D+05,
1061 + .119077D+05, .858875D+04, .618647D+04, .445061D+04,
1062 + .319733D+04, .229407D+04, .164363D+04, .117613D+04,
1063 + .840328D+03, .599895D+03, .425648D+03, .303192D+03,
1064 + .215755D+03, .153431D+03, .109053D+03, .774893D+02,
1065 + .551220D+02, .392023D+02, .279106D+02, .199048D+02,
1066 + .142245D+02, .101927D+02, .732453D+01, .528382D+01,
1067 + .382485D+01, .277934D+01, .202725D+01, .148435D+01,
1068 + .109039D+01, .804645D+00, .594188D+00, .440771D+00,
1069 + .326986D+00, .243241D+00, .181155D+00, .135041D+00,
1070 + .100714D+00, .751317D-01, .560400D-01, .417894D-01,
1071 + .311494D-01, .232082D-01, .172807D-01, .128601D-01,
1072 + .956421D-02, .710485D-02, .527956D-02, .391086D-02 /
1073 DATA (UPDI(I),I=3797,3848) /
1074 + .289178D-02, .213358D-02, .156951D-02, .115021D-02,
1075 + .838660D-03, .607639D-03, .436698D-03, .310798D-03,
1076 + .218350D-03, .151716D-03, .103390D-03, .691155D-04,
1077 + .451931D-04, .288253D-04, .178847D-04, .107603D-04,
1078 + .626765D-05, .350409D-05, .187850D-05, .950336D-06,
1079 + .442378D-06, .180227D-06, .580911D-07, .119700D-07,
1080 + .829539D-09, .000000D+00, .643478D+05, .925395D+05,
1081 + .708404D+05, .542322D+05, .415201D+05, .317899D+05,
1082 + .243419D+05, .186407D+05, .142764D+05, .109354D+05,
1083 + .837756D+04, .641920D+04, .491971D+04, .377146D+04,
1084 + .289208D+04, .221853D+04, .170256D+04, .130723D+04,
1085 + .100427D+04, .772037D+03, .593974D+03, .457397D+03,
1086 + .352599D+03, .272146D+03, .210349D+03, .162851D+03 /
1087 DATA (UPDI(I),I=3849,3900) /
1088 + .126316D+03, .978375D+02, .762454D+02, .595808D+02,
1089 + .467003D+02, .367278D+02, .289914D+02, .229921D+02,
1090 + .183022D+02, .146365D+02, .117611D+02, .949664D+01,
1091 + .770530D+01, .628059D+01, .514301D+01, .422798D+01,
1092 + .348791D+01, .288574D+01, .239288D+01, .198730D+01,
1093 + .165301D+01, .137353D+01, .114190D+01, .947022D+00,
1094 + .784394D+00, .648003D+00, .533606D+00, .437724D+00,
1095 + .357487D+00, .290501D+00, .234754D+00, .188545D+00,
1096 + .150418D+00, .119130D+00, .936065D-01, .729252D-01,
1097 + .562898D-01, .430705D-01, .325482D-01, .243097D-01,
1098 + .179267D-01, .130377D-01, .933969D-02, .658070D-02,
1099 + .455317D-02, .308777D-02, .204744D-02, .132336D-02,
1100 + .834986D-03, .509061D-03, .299556D-03, .169240D-03 /
1101 DATA (UPDI(I),I=3901,3952) /
1102 + .912013D-04, .464943D-04, .221874D-04, .978871D-05,
1103 + .389539D-05, .137255D-05, .410412D-06, .980959D-07,
1104 + .169534D-07, .175520D-08, .713496D-10, .294846D-12,
1105 + .000000D+00, .145494D+06, .112921D+06, .865159D+05,
1106 + .662799D+05, .507768D+05, .388969D+05, .297965D+05,
1107 + .228238D+05, .174830D+05, .133913D+05, .102577D+05,
1108 + .785718D+04, .601894D+04, .461090D+04, .353274D+04,
1109 + .270695D+04, .207466D+04, .159037D+04, .121955D+04,
1110 + .935519D+03, .718013D+03, .551378D+03, .423736D+03,
1111 + .325910D+03, .250937D+03, .193440D+03, .149349D+03,
1112 + .115078D+03, .891842D+02, .692696D+02, .539445D+02,
1113 + .421302D+02, .330117D+02, .259767D+02, .205105D+02,
1114 + .162632D+02, .129548D+02, .103668D+02, .833536D+01 /
1115 DATA (UPDI(I),I=3953,4004) /
1116 + .673193D+01, .546259D+01, .445001D+01, .363843D+01,
1117 + .298387D+01, .245322D+01, .202044D+01, .166715D+01,
1118 + .137441D+01, .113411D+01, .933710D+00, .767986D+00,
1119 + .630180D+00, .515590D+00, .420332D+00, .341261D+00,
1120 + .275754D+00, .221647D+00, .177120D+00, .140642D+00,
1121 + .110906D+00, .868071D-01, .674021D-01, .518808D-01,
1122 + .396152D-01, .298998D-01, .223264D-01, .164809D-01,
1123 + .120170D-01, .864735D-02, .613491D-02, .428681D-02,
1124 + .294667D-02, .198989D-02, .131679D-02, .856673D-03,
1125 + .542925D-03, .335302D-03, .200962D-03, .116175D-03,
1126 + .642185D-04, .333997D-04, .159988D-04, .659300D-05,
1127 + .203599D-05, .120895D-06, .000000D+00, .000000D+00,
1128 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
1129 DATA (UPDI(I),I=4005,4056) /
1130 + .181242D+06, .140587D+06, .107638D+06, .823945D+05,
1131 + .630656D+05, .482609D+05, .369283D+05, .282511D+05,
1132 + .216109D+05, .165281D+05, .126399D+05, .966461D+04,
1133 + .738933D+04, .564885D+04, .431831D+04, .330084D+04,
1134 + .252326D+04, .192881D+04, .147464D+04, .112752D+04,
1135 + .862390D+03, .659782D+03, .505036D+03, .386784D+03,
1136 + .296455D+03, .227416D+03, .174681D+03, .133846D+03,
1137 + .103125D+03, .796002D+02, .615851D+02, .477657D+02,
1138 + .371575D+02, .290187D+02, .227336D+02, .178803D+02,
1139 + .141253D+02, .112080D+02, .893514D+01, .715441D+01,
1140 + .575599D+01, .464929D+01, .376967D+01, .306614D+01,
1141 + .250075D+01, .204352D+01, .167353D+01, .136949D+01,
1142 + .112210D+01, .917479D+00, .749665D+00, .611230D+00 /
1143 DATA (UPDI(I),I=4057,4108) /
1144 + .497030D+00, .402820D+00, .325204D+00, .261365D+00,
1145 + .209006D+00, .166209D+00, .131382D+00, .103170D+00,
1146 + .804462D-01, .622567D-01, .477854D-01, .364094D-01,
1147 + .274409D-01, .204793D-01, .151259D-01, .110499D-01,
1148 + .797965D-02, .569251D-02, .400939D-02, .278609D-02,
1149 + .190883D-02, .128674D-02, .857049D-03, .559340D-03,
1150 + .358205D-03, .224430D-03, .137056D-03, .811167D-04,
1151 + .461642D-04, .250645D-04, .126674D-04, .589339D-05,
1152 + .243508D-05, .846565D-06, .226043D-06, .345766D-07,
1153 + .000000D+00, .000000D+00, .000000D+00, .228125D+06,
1154 + .176680D+06, .135025D+06, .103160D+06, .788014D+05,
1155 + .601760D+05, .459448D+05, .350682D+05, .267616D+05,
1156 + .204162D+05, .155727D+05, .118746D+05, .905327D+04 /
1157 DATA (UPDI(I),I=4109,4160) /
1158 + .690030D+04, .525868D+04, .400661D+04, .305243D+04,
1159 + .232505D+04, .177103D+04, .134889D+04, .102754D+04,
1160 + .782788D+03, .596532D+03, .454722D+03, .346823D+03,
1161 + .264685D+03, .202220D+03, .154060D+03, .117998D+03,
1162 + .905156D+02, .695776D+02, .536002D+02, .414036D+02,
1163 + .321000D+02, .249591D+02, .194793D+02, .152677D+02,
1164 + .120176D+02, .950341D+01, .754782D+01, .602367D+01,
1165 + .482664D+01, .388267D+01, .313362D+01, .253652D+01,
1166 + .205746D+01, .167295D+01, .135946D+01, .110644D+01,
1167 + .898772D+00, .729772D+00, .591404D+00, .478102D+00,
1168 + .385302D+00, .309386D+00, .247368D+00, .196839D+00,
1169 + .155802D+00, .122615D+00, .958927D-01, .744936D-01,
1170 + .574594D-01, .439761D-01, .334289D-01, .251509D-01 /
1171 DATA (UPDI(I),I=4161,4212) /
1172 + .187513D-01, .138476D-01, .101248D-01, .732676D-02,
1173 + .524482D-02, .371280D-02, .259780D-02, .179580D-02,
1174 + .122405D-02, .826295D-03, .547871D-03, .357331D-03,
1175 + .228562D-03, .142882D-03, .868303D-04, .509804D-04,
1176 + .287430D-04, .152865D-04, .764684D-05, .353867D-05,
1177 + .148809D-05, .558321D-06, .176764D-06, .379253D-07,
1178 + .228975D-09, .000000D+00, .176316D+06, .222548D+06,
1179 + .169639D+06, .129261D+06, .984713D+05, .749858D+05,
1180 + .570876D+05, .434440D+05, .330528D+05, .251368D+05,
1181 + .191118D+05, .145250D+05, .110363D+05, .838227D+04,
1182 + .636506D+04, .483151D+04, .366679D+04, .278194D+04,
1183 + .211039D+04, .160057D+04, .121393D+04, .920597D+03,
1184 + .698263D+03, .529676D+03, .401951D+03, .305145D+03 /
1185 DATA (UPDI(I),I=4213,4264) /
1186 + .231865D+03, .175631D+03, .133729D+03, .101955D+03,
1187 + .778740D+02, .595971D+02, .457230D+02, .352009D+02,
1188 + .271733D+02, .210511D+02, .163761D+02, .127920D+02,
1189 + .100384D+02, .791148D+01, .626570D+01, .498253D+01,
1190 + .397814D+01, .318710D+01, .256130D+01, .206299D+01,
1191 + .166606D+01, .134486D+01, .108756D+01, .877920D+00,
1192 + .708555D+00, .570869D+00, .458913D+00, .367838D+00,
1193 + .293827D+00, .233755D+00, .185118D+00, .145860D+00,
1194 + .114299D+00, .890304D-01, .689076D-01, .529739D-01,
1195 + .404231D-01, .306514D-01, .230151D-01, .171347D-01,
1196 + .126445D-01, .924560D-02, .669675D-02, .480300D-02,
1197 + .341020D-02, .239598D-02, .166516D-02, .114242D-02,
1198 + .777052D-03, .519667D-03, .342146D-03, .221074D-03 /
1199 DATA (UPDI(I),I=4265,4316) /
1200 + .139701D-03, .858885D-04, .510913D-04, .292475D-04,
1201 + .158713D-04, .815761D-05, .392148D-05, .173829D-05,
1202 + .696673D-06, .236809D-06, .544431D-07, .175442D-08,
1203 + .000000D+00, .382079D+06, .294305D+06, .223495D+06,
1204 + .169650D+06, .128736D+06, .976443D+05, .740370D+05,
1205 + .561107D+05, .425101D+05, .321905D+05, .243675D+05,
1206 + .184366D+05, .139443D+05, .105416D+05, .796642D+04,
1207 + .601753D+04, .454401D+04, .342982D+04, .258817D+04,
1208 + .195235D+04, .147251D+04, .111033D+04, .837221D+03,
1209 + .631246D+03, .476037D+03, .359060D+03, .271023D+03,
1210 + .203865D+03, .154125D+03, .116645D+03, .884203D+02,
1211 + .671412D+02, .510968D+02, .390149D+02, .298630D+02,
1212 + .229358D+02, .176859D+02, .136930D+02, .106496D+02 /
1213 DATA (UPDI(I),I=4317,4368) /
1214 + .831840D+01, .652948D+01, .514664D+01, .407345D+01,
1215 + .323564D+01, .257859D+01, .205997D+01, .165046D+01,
1216 + .132194D+01, .106104D+01, .850277D+00, .681417D+00,
1217 + .545272D+00, .435453D+00, .346823D+00, .275347D+00,
1218 + .217768D+00, .171486D+00, .134394D+00, .104777D+00,
1219 + .812220D-01, .625824D-01, .479134D-01, .364234D-01,
1220 + .275263D-01, .206079D-01, .153049D-01, .112720D-01,
1221 + .823022D-02, .595577D-02, .426964D-02, .303127D-02,
1222 + .213005D-02, .148051D-02, .101547D-02, .689910D-03,
1223 + .460161D-03, .301444D-03, .193158D-03, .120483D-03,
1224 + .726665D-04, .420308D-04, .231195D-04, .118423D-04,
1225 + .560321D-05, .238807D-05, .890388D-06, .281445D-06,
1226 + .709159D-07, .114155D-07, .000000D+00, .000000D+00 /
1227 DATA (UPDI(I),I=4369,4420) /
1228 + .503647D+06, .386560D+06, .292336D+06, .220973D+06,
1229 + .166967D+06, .126094D+06, .951884D+05, .718192D+05,
1230 + .541645D+05, .408272D+05, .307606D+05, .231631D+05,
1231 + .174345D+05, .131152D+05, .986170D+04, .741117D+04,
1232 + .556728D+04, .417991D+04, .313712D+04, .235336D+04,
1233 + .176492D+04, .132313D+04, .991765D+03, .743229D+03,
1234 + .556993D+03, .417432D+03, .313015D+03, .233839D+03,
1235 + .175558D+03, .131918D+03, .992631D+02, .748070D+02,
1236 + .564900D+02, .427924D+02, .324894D+02, .247477D+02,
1237 + .189236D+02, .145277D+02, .112029D+02, .867625D+01,
1238 + .675274D+01, .527797D+01, .414272D+01, .326382D+01,
1239 + .258022D+01, .204513D+01, .162607D+01, .129266D+01,
1240 + .103004D+01, .819592D+00, .652324D+00, .518525D+00 /
1241 DATA (UPDI(I),I=4421,4472) /
1242 + .411424D+00, .325642D+00, .256971D+00, .202052D+00,
1243 + .158218D+00, .123330D+00, .956577D-01, .737925D-01,
1244 + .565977D-01, .431474D-01, .326710D-01, .246027D-01,
1245 + .183605D-01, .135985D-01, .999250D-02, .728325D-02,
1246 + .526405D-02, .377119D-02, .267698D-02, .188175D-02,
1247 + .130894D-02, .898845D-03, .611508D-03, .408519D-03,
1248 + .268080D-03, .172131D-03, .107646D-03, .651718D-04,
1249 + .379285D-04, .210765D-04, .109958D-04, .536927D-05,
1250 + .241546D-05, .986190D-06, .358904D-06, .109780D-06,
1251 + .225764D-07, .410316D-09, .000000D+00, .657718D+06,
1252 + .502941D+06, .378704D+06, .285007D+06, .214397D+06,
1253 + .161188D+06, .121128D+06, .909704D+05, .682879D+05,
1254 + .512296D+05, .384131D+05, .287849D+05, .215590D+05 /
1255 DATA (UPDI(I),I=4473,4524) /
1256 + .161366D+05, .120718D+05, .902520D+04, .674408D+04,
1257 + .503637D+04, .375932D+04, .280447D+04, .209134D+04,
1258 + .155879D+04, .116152D+04, .865200D+03, .644406D+03,
1259 + .479892D+03, .357529D+03, .265303D+03, .197828D+03,
1260 + .147620D+03, .110287D+03, .825095D+02, .618411D+02,
1261 + .464901D+02, .350224D+02, .264667D+02, .200761D+02,
1262 + .152881D+02, .116935D+02, .898266D+01, .693460D+01,
1263 + .537655D+01, .418651D+01, .327249D+01, .256714D+01,
1264 + .201938D+01, .159377D+01, .125781D+01, .995228D+00,
1265 + .786447D+00, .621762D+00, .491022D+00, .387142D+00,
1266 + .304546D+00, .238895D+00, .186759D+00, .145430D+00,
1267 + .112755D+00, .870059D-01, .667893D-01, .509880D-01,
1268 + .387007D-01, .291831D-01, .218926D-01, .162806D-01 /
1269 DATA (UPDI(I),I=4525,4576) /
1270 + .120199D-01, .880779D-02, .640416D-02, .461914D-02,
1271 + .330355D-02, .234179D-02, .164432D-02, .114278D-02,
1272 + .784195D-03, .533142D-03, .355949D-03, .233453D-03,
1273 + .149852D-03, .937360D-04, .568309D-04, .331931D-04,
1274 + .185778D-04, .982714D-05, .491242D-05, .229420D-05,
1275 + .989535D-06, .385752D-06, .126559D-06, .277273D-07,
1276 + .112521D-08, .000000D+00, .849947D+06, .647497D+06,
1277 + .485414D+06, .363698D+06, .272368D+06, .203844D+06,
1278 + .152481D+06, .113985D+06, .851624D+05, .635848D+05,
1279 + .474475D+05, .353812D+05, .263681D+05, .196371D+05,
1280 + .146157D+05, .108706D+05, .808041D+04, .600214D+04,
1281 + .445592D+04, .330581D+04, .245137D+04, .181669D+04,
1282 + .134581D+04, .996523D+03, .737716D+03, .545972D+03 /
1283 DATA (UPDI(I),I=4577,4628) /
1284 + .404187D+03, .297959D+03, .220710D+03, .163583D+03,
1285 + .121368D+03, .901589D+02, .670869D+02, .500643D+02,
1286 + .374327D+02, .280736D+02, .211313D+02, .159670D+02,
1287 + .121177D+02, .923597D+01, .707473D+01, .544284D+01,
1288 + .420569D+01, .326267D+01, .254041D+01, .198376D+01,
1289 + .155448D+01, .121818D+01, .957286D+00, .751389D+00,
1290 + .590166D+00, .463106D+00, .362867D+00, .283728D+00,
1291 + .221258D+00, .171985D+00, .133185D+00, .102710D+00,
1292 + .788468D-01, .602267D-01, .457606D-01, .345768D-01,
1293 + .259616D-01, .193975D-01, .143705D-01, .105723D-01,
1294 + .772188D-02, .559791D-02, .402664D-02, .287266D-02,
1295 + .203169D-02, .142354D-02, .987322D-03, .676193D-03,
1296 + .458788D-03, .305698D-03, .200109D-03, .128237D-03 /
1297 DATA (UPDI(I),I=4629,4680) /
1298 + .801291D-04, .485869D-04, .284379D-04, .160003D-04,
1299 + .855366D-05, .435077D-05, .208452D-05, .929155D-06,
1300 + .374580D-06, .125863D-06, .279216D-07, .141200D-08,
1301 + .000000D+00, .108637D+07, .824519D+06, .615419D+06,
1302 + .459069D+06, .342254D+06, .254992D+06, .189869D+06,
1303 + .141279D+06, .105060D+06, .780700D+05, .579772D+05,
1304 + .430233D+05, .319057D+05, .236428D+05, .175082D+05,
1305 + .129552D+05, .957986D+04, .707839D+04, .522676D+04,
1306 + .385659D+04, .284396D+04, .209577D+04, .154366D+04,
1307 + .113635D+04, .836225D+03, .615116D+03, .452558D+03,
1308 + .331482D+03, .243961D+03, .179628D+03, .132379D+03,
1309 + .976660D+02, .721659D+02, .534735D+02, .396933D+02,
1310 + .295515D+02, .220792D+02, .165590D+02, .124729D+02 /
1311 DATA (UPDI(I),I=4681,4732) /
1312 + .943543D+01, .717346D+01, .547776D+01, .420144D+01,
1313 + .323563D+01, .250124D+01, .193934D+01, .150915D+01,
1314 + .117457D+01, .916860D+00, .714939D+00, .557945D+00,
1315 + .435088D+00, .338833D+00, .263358D+00, .204180D+00,
1316 + .157813D+00, .121538D+00, .932279D-01, .711976D-01,
1317 + .541126D-01, .409176D-01, .307750D-01, .230047D-01,
1318 + .171158D-01, .126289D-01, .925559D-02, .673579D-02,
1319 + .486642D-02, .348918D-02, .248159D-02, .174992D-02,
1320 + .122258D-02, .845556D-03, .577482D-03, .390696D-03,
1321 + .259597D-03, .169475D-03, .108353D-03, .675915D-04,
1322 + .409672D-04, .240137D-04, .135699D-04, .731767D-05,
1323 + .377289D-05, .184089D-05, .837503D-06, .343176D-06,
1324 + .115858D-06, .255677D-07, .144725D-08, .000000D+00 /
1325 DATA (UPDI(I),I=4733,4784) /
1326 + .137331D+07, .103846D+07, .771751D+06, .573170D+06,
1327 + .425434D+06, .315548D+06, .233899D+06, .173246D+06,
1328 + .128237D+06, .948469D+05, .701028D+05, .517720D+05,
1329 + .382073D+05, .281731D+05, .207591D+05, .152831D+05,
1330 + .112434D+05, .826435D+04, .607030D+04, .445502D+04,
1331 + .326738D+04, .239449D+04, .175377D+04, .128363D+04,
1332 + .939109D+03, .686689D+03, .502163D+03, .365521D+03,
1333 + .267326D+03, .195575D+03, .143192D+03, .104944D+03,
1334 + .770201D+02, .566801D+02, .417805D+02, .308861D+02,
1335 + .229118D+02, .170602D+02, .127577D+02, .958117D+01,
1336 + .723173D+01, .548262D+01, .417520D+01, .319275D+01,
1337 + .245090D+01, .188724D+01, .145871D+01, .112774D+01,
1338 + .874570D+00, .677583D+00, .525473D+00, .407249D+00 /
1339 DATA (UPDI(I),I=4785,4836) /
1340 + .315244D+00, .243582D+00, .187761D+00, .144307D+00,
1341 + .110527D+00, .843296D-01, .640679D-01, .484488D-01,
1342 + .364565D-01, .272908D-01, .203073D-01, .150427D-01,
1343 + .110523D-01, .806721D-02, .584807D-02, .420924D-02,
1344 + .300707D-02, .213120D-02, .149767D-02, .104281D-02,
1345 + .718806D-03, .489283D-03, .329915D-03, .218498D-03,
1346 + .142209D-03, .906839D-04, .564651D-04, .342046D-04,
1347 + .200754D-04, .113885D-04, .618683D-05, .322429D-05,
1348 + .159380D-05, .734076D-06, .302665D-06, .101664D-06,
1349 + .221445D-07, .134797D-08, .000000D+00, .171726D+07,
1350 + .129387D+07, .957458D+06, .708036D+06, .523253D+06,
1351 + .386397D+06, .285142D+06, .210252D+06, .154921D+06,
1352 + .114056D+06, .839077D+05, .616751D+05, .452984D+05 /
1353 DATA (UPDI(I),I=4837,4888) /
1354 + .332404D+05, .243728D+05, .178545D+05, .130690D+05,
1355 + .955724D+04, .698359D+04, .509836D+04, .371927D+04,
1356 + .271088D+04, .197457D+04, .143715D+04, .104544D+04,
1357 + .759999D+03, .552496D+03, .399712D+03, .290547D+03,
1358 + .211244D+03, .153686D+03, .111911D+03, .815964D+02,
1359 + .596505D+02, .436740D+02, .320661D+02, .236234D+02,
1360 + .174683D+02, .129719D+02, .967415D+01, .725105D+01,
1361 + .545913D+01, .412863D+01, .313556D+01, .239071D+01,
1362 + .182858D+01, .140408D+01, .107843D+01, .830999D+00,
1363 + .639769D+00, .493087D+00, .379836D+00, .292277D+00,
1364 + .224521D+00, .172079D+00, .131515D+00, .100180D+00,
1365 + .760269D-01, .574592D-01, .432311D-01, .323700D-01,
1366 + .241158D-01, .178610D-01, .131709D-01, .963456D-02 /
1367 DATA (UPDI(I),I=4889,4940) /
1368 + .700244D-02, .505527D-02, .362403D-02, .257889D-02,
1369 + .182074D-02, .127468D-02, .884226D-03, .607253D-03,
1370 + .411843D-03, .276696D-03, .182619D-03, .118482D-03,
1371 + .753550D-04, .468367D-04, .283587D-04, .166655D-04,
1372 + .948772D-05, .518676D-05, .272587D-05, .135949D-05,
1373 + .630227D-06, .259744D-06, .863094D-07, .184848D-07,
1374 + .118649D-08, .000000D+00, .212474D+07, .159523D+07,
1375 + .117553D+07, .865632D+06, .636989D+06, .468357D+06,
1376 + .344116D+06, .252618D+06, .185307D+06, .135810D+06,
1377 + .994551D+05, .727649D+05, .531930D+05, .388485D+05,
1378 + .283479D+05, .206654D+05, .150518D+05, .109522D+05,
1379 + .796229D+04, .578294D+04, .419663D+04, .304259D+04,
1380 + .220424D+04, .159554D+04, .115420D+04, .834308D+03 /
1381 DATA (UPDI(I),I=4941,4992) /
1382 + .603028D+03, .433684D+03, .313368D+03, .226461D+03,
1383 + .163746D+03, .118493D+03, .858477D+02, .623563D+02,
1384 + .453576D+02, .330830D+02, .242105D+02, .177826D+02,
1385 + .131165D+02, .971609D+01, .723342D+01, .540926D+01,
1386 + .406355D+01, .306565D+01, .232202D+01, .176446D+01,
1387 + .134615D+01, .102735D+01, .786686D+00, .601904D+00,
1388 + .461085D+00, .353063D+00, .270080D+00, .206272D+00,
1389 + .157196D+00, .119473D+00, .905103D-01, .683222D-01,
1390 + .513665D-01, .384500D-01, .286468D-01, .212384D-01,
1391 + .156552D-01, .114910D-01, .836767D-02, .605487D-02,
1392 + .435242D-02, .310708D-02, .220192D-02, .154831D-02,
1393 + .107962D-02, .745966D-03, .510320D-03, .344786D-03,
1394 + .230784D-03, .151788D-03, .981721D-04, .622818D-04 /
1395 DATA (UPDI(I),I=4993,5044) /
1396 + .386490D-04, .233942D-04, .137658D-04, .786227D-05,
1397 + .432071D-05, .228501D-05, .114592D-05, .532311D-06,
1398 + .218296D-06, .714996D-07, .150260D-07, .100569D-08,
1399 + .000000D+00, .260217D+07, .194694D+07, .142882D+07,
1400 + .104780D+07, .767811D+06, .562160D+06, .411269D+06,
1401 + .300610D+06, .219546D+06, .160192D+06, .116785D+06,
1402 + .850564D+05, .618929D+05, .449923D+05, .326764D+05,
1403 + .237073D+05, .171838D+05, .124423D+05, .900069D+04,
1404 + .650419D+04, .469592D+04, .338693D+04, .244078D+04,
1405 + .175731D+04, .126433D+04, .908854D+03, .653225D+03,
1406 + .467074D+03, .335543D+03, .241064D+03, .173264D+03,
1407 + .124623D+03, .897337D+02, .647743D+02, .468193D+02,
1408 + .339316D+02, .246717D+02, .180041D+02, .131935D+02 /
1409 DATA (UPDI(I),I=5045,5096) /
1410 + .970936D+01, .718123D+01, .533524D+01, .398191D+01,
1411 + .298466D+01, .224618D+01, .169596D+01, .128577D+01,
1412 + .975134D+00, .742121D+00, .564348D+00, .429726D+00,
1413 + .327109D+00, .248771D+00, .188910D+00, .143154D+00,
1414 + .108198D+00, .815230D-01, .612097D-01, .457783D-01,
1415 + .340914D-01, .252721D-01, .186445D-01, .136769D-01,
1416 + .999179D-02, .724232D-02, .521689D-02, .373349D-02,
1417 + .265369D-02, .187262D-02, .131125D-02, .910553D-03,
1418 + .626595D-03, .426965D-03, .287359D-03, .191635D-03,
1419 + .125610D-03, .810008D-04, .512701D-04, .317720D-04,
1420 + .192290D-04, .113294D-04, .648909D-05, .358090D-05,
1421 + .190192D-05, .956318D-06, .443593D-06, .180404D-06,
1422 + .581068D-07, .119706D-07, .829544D-09, .000000D+00 /
1423 DATA (UPDI(I),I=5097,5148) /
1424 + .642719D+05, .925133D+05, .708170D+05, .542112D+05,
1425 + .415012D+05, .317730D+05, .243268D+05, .186272D+05,
1426 + .142643D+05, .109246D+05, .836787D+04, .641053D+04,
1427 + .491195D+04, .376452D+04, .288587D+04, .221298D+04,
1428 + .169759D+04, .130279D+04, .100030D+04, .768489D+03,
1429 + .590802D+03, .454561D+03, .350062D+03, .269877D+03,
1430 + .208318D+03, .161031D+03, .124683D+03, .963725D+02,
1431 + .749264D+02, .583900D+02, .456217D+02, .357470D+02,
1432 + .280954D+02, .221688D+02, .175415D+02, .139291D+02,
1433 + .110990D+02, .887317D+01, .711491D+01, .571902D+01,
1434 + .460715D+01, .371586D+01, .299854D+01, .241894D+01,
1435 + .194914D+01, .156748D+01, .125809D+01, .100478D+01,
1436 + .800095D+00, .632996D+00, .498350D+00, .389834D+00 /
1437 DATA (UPDI(I),I=5149,5200) /
1438 + .302795D+00, .233365D+00, .178330D+00, .135014D+00,
1439 + .101189D+00, .750053D-01, .549292D-01, .396964D-01,
1440 + .282698D-01, .198053D-01, .136212D-01, .918927D-02,
1441 + .603459D-02, .384858D-02, .236771D-02, .139089D-02,
1442 + .766920D-03, .384014D-03, .161106D-03, .406915D-04,
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, .145462D+06,
1448 + .112892D+06, .864903D+05, .662570D+05, .507563D+05,
1449 + .388786D+05, .297801D+05, .228091D+05, .174698D+05,
1450 + .133795D+05, .102471D+05, .784776D+04, .601051D+04 /
1451 DATA (UPDI(I),I=5201,5252) /
1452 + .460336D+04, .352600D+04, .270093D+04, .206928D+04,
1453 + .158556D+04, .121526D+04, .931677D+03, .714580D+03,
1454 + .548309D+03, .420992D+03, .323455D+03, .248740D+03,
1455 + .191472D+03, .147584D+03, .113494D+03, .877592D+02,
1456 + .679839D+02, .527807D+02, .410729D+02, .320470D+02,
1457 + .250920D+02, .196949D+02, .155071D+02, .122496D+02,
1458 + .970568D+01, .771258D+01, .614303D+01, .490426D+01,
1459 + .392014D+01, .313580D+01, .250808D+01, .200442D+01,
1460 + .159916D+01, .127394D+01, .101009D+01, .798978D+00,
1461 + .628127D+00, .491671D+00, .382582D+00, .295783D+00,
1462 + .227050D+00, .172954D+00, .130645D+00, .978039D-01,
1463 + .725135D-01, .532170D-01, .386289D-01, .277195D-01,
1464 + .196506D-01, .137547D-01, .951995D-02, .648928D-02 /
1465 DATA (UPDI(I),I=5253,5304) /
1466 + .436713D-02, .290587D-02, .191589D-02, .125720D-02,
1467 + .825451D-03, .546870D-03, .368266D-03, .254040D-03,
1468 + .179165D-03, .129840D-03, .946977D-04, .688398D-04,
1469 + .490332D-04, .336525D-04, .218538D-04, .130706D-04,
1470 + .698741D-05, .299559D-05, .765460D-06, .000000D+00,
1471 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1472 + .000000D+00, .000000D+00, .181207D+06, .140556D+06,
1473 + .107610D+06, .823697D+05, .630433D+05, .482411D+05,
1474 + .369106D+05, .282352D+05, .215966D+05, .165154D+05,
1475 + .126285D+05, .965444D+04, .738024D+04, .564073D+04,
1476 + .431105D+04, .329435D+04, .251746D+04, .192363D+04,
1477 + .147001D+04, .112339D+04, .858696D+03, .656481D+03,
1478 + .502086D+03, .384145D+03, .294095D+03, .225302D+03 /
1479 DATA (UPDI(I),I=5305,5356) /
1480 + .172786D+03, .132147D+03, .101596D+03, .782217D+02,
1481 + .603384D+02, .466343D+02, .361266D+02, .280750D+02,
1482 + .218656D+02, .170779D+02, .133798D+02, .105120D+02,
1483 + .828257D+01, .654072D+01, .517764D+01, .410397D+01,
1484 + .325590D+01, .258325D+01, .204854D+01, .162213D+01,
1485 + .128308D+01, .101037D+01, .794121D+00, .620541D+00,
1486 + .483033D+00, .373940D+00, .287785D+00, .220034D+00,
1487 + .167064D+00, .125885D+00, .941014D-01, .697485D-01,
1488 + .512531D-01, .373210D-01, .269334D-01, .192630D-01,
1489 + .136594D-01, .962762D-02, .672969D-02, .468350D-02,
1490 + .325638D-02, .226997D-02, .159447D-02, .113270D-02,
1491 + .817276D-03, .599131D-03, .445827D-03, .334230D-03,
1492 + .252564D-03, .189149D-03, .139734D-03, .100798D-03 /
1493 DATA (UPDI(I),I=5357,5408) /
1494 + .704372D-04, .471975D-04, .300339D-04, .179802D-04,
1495 + .986840D-05, .491534D-05, .214594D-05, .778275D-06,
1496 + .214414D-06, .333859D-07, .000000D+00, .000000D+00,
1497 + .000000D+00, .228087D+06, .176646D+06, .134995D+06,
1498 + .103133D+06, .787775D+05, .601546D+05, .459257D+05,
1499 + .350511D+05, .267463D+05, .204026D+05, .155605D+05,
1500 + .118637D+05, .904351D+04, .689158D+04, .525089D+04,
1501 + .399965D+04, .304622D+04, .231950D+04, .176607D+04,
1502 + .134447D+04, .102358D+04, .779255D+03, .593375D+03,
1503 + .451900D+03, .344299D+03, .262426D+03, .200195D+03,
1504 + .152246D+03, .116367D+03, .890458D+02, .682495D+02,
1505 + .523964D+02, .403084D+02, .310993D+02, .240408D+02,
1506 + .186329D+02, .144839D+02, .112888D+02, .882329D+01 /
1507 DATA (UPDI(I),I=5409,5460) /
1508 + .691154D+01, .542744D+01, .426789D+01, .335963D+01,
1509 + .264531D+01, .208236D+01, .163718D+01, .128623D+01,
1510 + .100624D+01, .786051D+00, .610676D+00, .472805D+00,
1511 + .364213D+00, .279052D+00, .212523D+00, .160833D+00,
1512 + .120879D+00, .902061D-01, .668171D-01, .491304D-01,
1513 + .358539D-01, .259828D-01, .187055D-01, .133903D-01,
1514 + .956058D-02, .679760D-02, .483325D-02, .344880D-02,
1515 + .247696D-02, .179718D-02, .131919D-02, .981096D-03,
1516 + .737663D-03, .559104D-03, .424024D-03, .321893D-03,
1517 + .241060D-03, .177544D-03, .127564D-03, .888805D-04,
1518 + .595555D-04, .381228D-04, .231468D-04, .130975D-04,
1519 + .688985D-05, .331746D-05, .143645D-05, .549640D-06,
1520 + .175885D-06, .378896D-07, .228802D-09, .000000D+00 /
1521 DATA (UPDI(I),I=5461,5512) /
1522 + .176224D+06, .222512D+06, .169607D+06, .129233D+06,
1523 + .984456D+05, .749629D+05, .570671D+05, .434257D+05,
1524 + .330364D+05, .251222D+05, .190987D+05, .145133D+05,
1525 + .110259D+05, .837295D+04, .635673D+04, .482407D+04,
1526 + .366014D+04, .277601D+04, .210510D+04, .159585D+04,
1527 + .120971D+04, .916831D+03, .694899D+03, .526670D+03,
1528 + .399264D+03, .302740D+03, .229712D+03, .173703D+03,
1529 + .131996D+03, .100395D+03, .764657D+02, .583223D+02,
1530 + .445650D+02, .341448D+02, .262065D+02, .201625D+02,
1531 + .155559D+02, .120324D+02, .933271D+01, .725460D+01,
1532 + .565351D+01, .441218D+01, .344751D+01, .269486D+01,
1533 + .210649D+01, .164490D+01, .128391D+01, .998139D+00,
1534 + .775135D+00, .598828D+00, .461220D+00, .353580D+00 /
1535 DATA (UPDI(I),I=5513,5564) /
1536 + .269725D+00, .204625D+00, .154346D+00, .115696D+00,
1537 + .861759D-01, .637697D-01, .468955D-01, .342718D-01,
1538 + .249109D-01, .180210D-01, .129904D-01, .936149D-02,
1539 + .673525D-02, .485758D-02, .352295D-02, .257479D-02,
1540 + .190101D-02, .141791D-02, .106845D-02, .810861D-03,
1541 + .617671D-03, .469034D-03, .355205D-03, .264772D-03,
1542 + .193814D-03, .138343D-03, .957996D-04, .638894D-04,
1543 + .408088D-04, .248114D-04, .141528D-04, .756936D-05,
1544 + .375149D-05, .169906D-05, .690158D-06, .236156D-06,
1545 + .544168D-07, .175428D-08, .000000D+00, .382035D+06,
1546 + .294266D+06, .223460D+06, .169618D+06, .128708D+06,
1547 + .976194D+05, .740147D+05, .560908D+05, .424923D+05,
1548 + .321747D+05, .243533D+05, .184240D+05, .139330D+05 /
1549 DATA (UPDI(I),I=5565,5616) /
1550 + .105315D+05, .795741D+04, .600949D+04, .453684D+04,
1551 + .342342D+04, .258246D+04, .194725D+04, .146796D+04,
1552 + .110627D+04, .833600D+03, .628013D+03, .473149D+03,
1553 + .356477D+03, .268711D+03, .201796D+03, .152268D+03,
1554 + .114975D+03, .869151D+02, .657810D+02, .498637D+02,
1555 + .378931D+02, .288391D+02, .219980D+02, .168239D+02,
1556 + .128984D+02, .991535D+01, .763891D+01, .590028D+01,
1557 + .456445D+01, .353573D+01, .274055D+01, .212466D+01,
1558 + .164594D+01, .127496D+01, .983927D+00, .758819D+00,
1559 + .582377D+00, .445799D+00, .339823D+00, .257889D+00,
1560 + .194745D+00, .146308D+00, .109312D+00, .812201D-01,
1561 + .600121D-01, .441141D-01, .322672D-01, .235080D-01,
1562 + .170733D-01, .123764D-01, .898444D-02, .652146D-02 /
1563 DATA (UPDI(I),I=5617,5668) /
1564 + .475081D-02, .348175D-02, .257031D-02, .191363D-02,
1565 + .143551D-02, .108394D-02, .820966D-03, .621447D-03,
1566 + .467176D-03, .348932D-03, .255685D-03, .183382D-03,
1567 + .127842D-03, .861161D-04, .555961D-04, .341266D-04,
1568 + .197425D-04, .105478D-04, .516491D-05, .226290D-05,
1569 + .861847D-06, .276764D-06, .704520D-07, .113969D-07,
1570 + .000000D+00, .000000D+00, .503599D+06, .386518D+06,
1571 + .292298D+06, .220939D+06, .166936D+06, .126067D+06,
1572 + .951643D+05, .717977D+05, .541453D+05, .408100D+05,
1573 + .307453D+05, .231495D+05, .174223D+05, .131043D+05,
1574 + .985199D+04, .740251D+04, .555955D+04, .417302D+04,
1575 + .313097D+04, .234788D+04, .176004D+04, .131877D+04,
1576 + .987880D+03, .739762D+03, .553898D+03, .414666D+03 /
1577 DATA (UPDI(I),I=5669,5720) /
1578 + .310541D+03, .231628D+03, .173575D+03, .130137D+03,
1579 + .976608D+02, .733616D+02, .551825D+02, .416060D+02,
1580 + .314098D+02, .237624D+02, .180217D+02, .137002D+02,
1581 + .104423D+02, .797645D+01, .610880D+01, .468613D+01,
1582 + .359993D+01, .276772D+01, .212876D+01, .163647D+01,
1583 + .125827D+01, .964119D+00, .738511D+00, .563131D+00,
1584 + .428452D+00, .324754D+00, .245171D+00, .184273D+00,
1585 + .137866D+00, .102645D+00, .760529D-01, .560846D-01,
1586 + .411850D-01, .301267D-01, .219759D-01, .160013D-01,
1587 + .116437D-01, .849541D-02, .620434D-02, .455088D-02,
1588 + .335872D-02, .249585D-02, .186822D-02, .140659D-02,
1589 + .106363D-02, .804906D-03, .607386D-03, .454440D-03,
1590 + .337256D-03, .245367D-03, .174658D-03, .120892D-03 /
1591 DATA (UPDI(I),I=5721,5772) /
1592 + .809295D-04, .520270D-04, .319037D-04, .185298D-04,
1593 + .100309D-04, .504652D-05, .232451D-05, .965734D-06,
1594 + .355597D-06, .109456D-06, .225634D-07, .410243D-09,
1595 + .000000D+00, .657667D+06, .502895D+06, .378663D+06,
1596 + .284970D+06, .214364D+06, .161159D+06, .121102D+06,
1597 + .909472D+05, .682672D+05, .512111D+05, .383966D+05,
1598 + .287702D+05, .215458D+05, .161249D+05, .120614D+05,
1599 + .901590D+04, .673579D+04, .502897D+04, .375273D+04,
1600 + .279860D+04, .208611D+04, .155412D+04, .115736D+04,
1601 + .861493D+03, .641099D+03, .476939D+03, .354891D+03,
1602 + .262947D+03, .195719D+03, .145729D+03, .108588D+03,
1603 + .809793D+02, .604601D+02, .452404D+02, .338887D+02,
1604 + .254357D+02, .191363D+02, .144299D+02, .109088D+02 /
1605 DATA (UPDI(I),I=5773,5824) /
1606 + .826483D+01, .627815D+01, .477719D+01, .364062D+01,
1607 + .277713D+01, .211966D+01, .161735D+01, .123465D+01,
1608 + .939439D+00, .714838D+00, .541624D+00, .409624D+00,
1609 + .308746D+00, .231876D+00, .173457D+00, .129226D+00,
1610 + .958598D-01, .708112D-01, .520995D-01, .382013D-01,
1611 + .279274D-01, .203785D-01, .148579D-01, .108360D-01,
1612 + .793016D-02, .581263D-02, .428027D-02, .317074D-02,
1613 + .236337D-02, .177234D-02, .133489D-02, .100799D-02,
1614 + .760424D-03, .571099D-03, .424784D-03, .313043D-03,
1615 + .226059D-03, .159694D-03, .109747D-03, .730146D-04,
1616 + .467330D-04, .286119D-04, .166620D-04, .910965D-05,
1617 + .467538D-05, .222828D-05, .974913D-06, .383422D-06,
1618 + .126334D-06, .277183D-07, .112516D-08, .000000D+00 /
1619 DATA (UPDI(I),I=5825,5876) /
1620 + .849892D+06, .647448D+06, .485370D+06, .363659D+06,
1621 + .272333D+06, .203813D+06, .152453D+06, .113960D+06,
1622 + .851400D+05, .635649D+05, .474298D+05, .353654D+05,
1623 + .263540D+05, .196246D+05, .146045D+05, .108606D+05,
1624 + .807152D+04, .599422D+04, .444887D+04, .329953D+04,
1625 + .244578D+04, .181171D+04, .134138D+04, .992569D+03,
1626 + .734192D+03, .542829D+03, .401382D+03, .295457D+03,
1627 + .218473D+03, .161579D+03, .119571D+03, .885445D+02,
1628 + .656333D+02, .487525D+02, .362466D+02, .269989D+02,
1629 + .201558D+02, .150804D+02, .113112D+02, .850241D+01,
1630 + .640800D+01, .483805D+01, .365861D+01, .276973D+01,
1631 + .209834D+01, .158950D+01, .120491D+01, .910577D+00,
1632 + .688377D+00, .518323D+00, .389688D+00, .292090D+00 /
1633 DATA (UPDI(I),I=5877,5928) /
1634 + .218232D+00, .162474D+00, .120523D+00, .890655D-01,
1635 + .655804D-01, .481264D-01, .352207D-01, .257186D-01,
1636 + .187592D-01, .136822D-01, .998860D-02, .732119D-02,
1637 + .537609D-02, .396615D-02, .294239D-02, .219482D-02,
1638 + .164539D-02, .123729D-02, .931472D-03, .699633D-03,
1639 + .522528D-03, .386179D-03, .282553D-03, .202527D-03,
1640 + .142011D-03, .969210D-04, .640956D-04, .408480D-04,
1641 + .249627D-04, .145626D-04, .802143D-05, .417709D-05,
1642 + .203685D-05, .918728D-06, .372942D-06, .125707D-06,
1643 + .279154D-07, .141196D-08, .000000D+00, .108631D+07,
1644 + .824466D+06, .615371D+06, .459027D+06, .342216D+06,
1645 + .254958D+06, .189839D+06, .141252D+06, .105036D+06,
1646 + .780486D+05, .579582D+05, .430063D+05, .318906D+05 /
1647 DATA (UPDI(I),I=5929,5980) /
1648 + .236293D+05, .174962D+05, .129445D+05, .957035D+04,
1649 + .706992D+04, .521923D+04, .384988D+04, .283799D+04,
1650 + .209046D+04, .153893D+04, .113214D+04, .832479D+03,
1651 + .611778D+03, .449582D+03, .328832D+03, .241594D+03,
1652 + .177512D+03, .130485D+03, .959680D+02, .706409D+02,
1653 + .521013D+02, .384566D+02, .284352D+02, .210702D+02,
1654 + .156463D+02, .116469D+02, .868846D+01, .649866D+01,
1655 + .486958D+01, .365501D+01, .274669D+01, .206589D+01,
1656 + .155390D+01, .116988D+01, .878224D+00, .659687D+00,
1657 + .493671D+00, .368989D+00, .275053D+00, .204442D+00,
1658 + .151480D+00, .111877D+00, .823542D-01, .604329D-01,
1659 + .442231D-01, .322912D-01, .235411D-01, .171535D-01,
1660 + .125058D-01, .913013D-02, .669441D-02, .491822D-02 /
1661 DATA (UPDI(I),I=5981,6032) /
1662 + .362968D-02, .269257D-02, .200691D-02, .150188D-02,
1663 + .112619D-02, .844454D-03, .631082D-03, .468538D-03,
1664 + .344014D-03, .249916D-03, .177844D-03, .123822D-03,
1665 + .839587D-04, .552156D-04, .350509D-04, .213840D-04,
1666 + .124936D-04, .692385D-05, .364595D-05, .180651D-05,
1667 + .830085D-06, .342027D-06, .115750D-06, .255634D-07,
1668 + .144723D-08, .000000D+00, .137324D+07, .103841D+07,
1669 + .771699D+06, .573124D+06, .425393D+06, .315512D+06,
1670 + .233867D+06, .173217D+06, .128211D+06, .948240D+05,
1671 + .700824D+05, .517538D+05, .381911D+05, .281587D+05,
1672 + .207463D+05, .152717D+05, .112332D+05, .825532D+04,
1673 + .606227D+04, .444787D+04, .326103D+04, .238884D+04,
1674 + .174874D+04, .127916D+04, .935135D+03, .683152D+03 /
1675 DATA (UPDI(I),I=6033,6084) /
1676 + .499014D+03, .362721D+03, .264829D+03, .193346D+03,
1677 + .141202D+03, .103163D+03, .754251D+02, .552491D+02,
1678 + .404952D+02, .297305D+02, .218717D+02, .161238D+02,
1679 + .119147D+02, .882311D+01, .655105D+01, .487305D+01,
1680 + .363117D+01, .270932D+01, .202349D+01, .151154D+01,
1681 + .113039D+01, .843050D+00, .629299D+00, .468082D+00,
1682 + .347846D+00, .257876D+00, .190687D+00, .140611D+00,
1683 + .103391D+00, .758029D-01, .554282D-01, .404371D-01,
1684 + .294514D-01, .214275D-01, .155897D-01, .113536D-01,
1685 + .828297D-02, .607001D-02, .445715D-02, .328704D-02,
1686 + .243553D-02, .181199D-02, .135237D-02, .101044D-02,
1687 + .754222D-03, .560621D-03, .413710D-03, .301782D-03,
1688 + .217727D-03, .153874D-03, .106423D-03, .717286D-04 /
1689 DATA (UPDI(I),I=6085,6136) /
1690 + .469362D-04, .296931D-04, .180906D-04, .105849D-04,
1691 + .589616D-05, .313175D-05, .156906D-05, .728811D-06,
1692 + .301861D-06, .101589D-06, .221416D-07, .134795D-08,
1693 + .000000D+00, .171719D+07, .129380D+07, .957403D+06,
1694 + .707987D+06, .523209D+06, .386358D+06, .285107D+06,
1695 + .210221D+06, .154893D+06, .114031D+06, .838859D+05,
1696 + .616557D+05, .452811D+05, .332250D+05, .243592D+05,
1697 + .178423D+05, .130581D+05, .954762D+04, .697504D+04,
1698 + .509076D+04, .371252D+04, .270488D+04, .196924D+04,
1699 + .143242D+04, .104123D+04, .756260D+03, .549172D+03,
1700 + .396760D+03, .287919D+03, .208903D+03, .151600D+03,
1701 + .110050D+03, .799332D+02, .581628D+02, .423424D+02,
1702 + .308734D+02, .225547D+02, .165107D+02, .121144D+02 /
1703 DATA (UPDI(I),I=6137,6188) /
1704 + .890733D+01, .656665D+01, .485010D+01, .358867D+01,
1705 + .265902D+01, .197234D+01, .146343D+01, .108727D+01,
1706 + .805701D+00, .597713D+00, .441935D+00, .326543D+00,
1707 + .240769D+00, .177124D+00, .129982D+00, .951479D-01,
1708 + .694747D-01, .506143D-01, .368056D-01, .267315D-01,
1709 + .194030D-01, .140894D-01, .102449D-01, .746413D-02,
1710 + .546324D-02, .400643D-02, .295017D-02, .218163D-02,
1711 + .161894D-02, .120430D-02, .896152D-03, .665673D-03,
1712 + .492075D-03, .360942D-03, .261618D-03, .187508D-03,
1713 + .131659D-03, .904982D-04, .606623D-04, .395180D-04,
1714 + .249271D-04, .151711D-04, .888920D-05, .497277D-05,
1715 + .265858D-05, .134173D-05, .626500D-06, .259183D-06,
1716 + .862580D-07, .184827D-07, .118647D-08, .000000D+00 /
1717 DATA (UPDI(I),I=6189,6240) /
1718 + .212467D+07, .159517D+07, .117547D+07, .865579D+06,
1719 + .636942D+06, .468315D+06, .344079D+06, .252585D+06,
1720 + .185277D+06, .135784D+06, .994318D+05, .727441D+05,
1721 + .531746D+05, .388321D+05, .283333D+05, .206524D+05,
1722 + .150402D+05, .109420D+05, .795320D+04, .577487D+04,
1723 + .418947D+04, .303624D+04, .219860D+04, .159053D+04,
1724 + .114976D+04, .830364D+03, .599526D+03, .430580D+03,
1725 + .310610D+03, .224009D+03, .161565D+03, .116552D+03,
1726 + .841181D+02, .608141D+02, .439822D+02, .318559D+02,
1727 + .231157D+02, .168064D+02, .122469D+02, .894283D+01,
1728 + .654740D+01, .480264D+01, .352926D+01, .259731D+01,
1729 + .191369D+01, .141059D+01, .104130D+01, .766785D+00,
1730 + .565392D+00, .415575D+00, .305333D+00, .223918D+00 /
1731 DATA (UPDI(I),I=6241,6292) /
1732 + .163884D+00, .119686D+00, .872165D-01, .634189D-01,
1733 + .460277D-01, .333568D-01, .241538D-01, .174861D-01,
1734 + .126686D-01, .919355D-02, .668595D-02, .488504D-02,
1735 + .357574D-02, .262748D-02, .193811D-02, .143383D-02,
1736 + .106265D-02, .787316D-03, .581910D-03, .427783D-03,
1737 + .311935D-03, .224711D-03, .160050D-03, .111699D-03,
1738 + .763431D-04, .509210D-04, .330419D-04, .207904D-04,
1739 + .126436D-04, .741763D-05, .416357D-05, .223620D-05,
1740 + .113321D-05, .529678D-06, .217905D-06, .714642D-07,
1741 + .150247D-07, .100567D-08, .000000D+00, .260209D+07,
1742 + .194687D+07, .142875D+07, .104774D+07, .767761D+06,
1743 + .562115D+06, .411229D+06, .300575D+06, .219515D+06,
1744 + .160164D+06, .116760D+06, .850343D+05, .618733D+05 /
1745 DATA (UPDI(I),I=6293,6344) /
1746 + .449748D+05, .326609D+05, .236935D+05, .171716D+05,
1747 + .124315D+05, .899105D+04, .649565D+04, .468833D+04,
1748 + .338020D+04, .243482D+04, .175203D+04, .125964D+04,
1749 + .904702D+03, .649545D+03, .463816D+03, .332654D+03,
1750 + .238500D+03, .170990D+03, .122603D+03, .879399D+02,
1751 + .631800D+02, .454025D+02, .326727D+02, .235536D+02,
1752 + .170119D+02, .123143D+02, .893195D+01, .649565D+01,
1753 + .473281D+01, .345477D+01, .252570D+01, .184878D+01,
1754 + .135397D+01, .993219D+00, .726863D+00, .532751D+00,
1755 + .389306D+00, .284433D+00, .207475D+00, .151075D+00,
1756 + .109799D+00, .796492D-01, .576724D-01, .416950D-01,
1757 + .301104D-01, .217337D-01, .156894D-01, .113379D-01,
1758 + .820888D-02, .595675D-02, .434280D-02, .317153D-02 /
1759 DATA (UPDI(I),I=6345,6396) /
1760 + .232457D-02, .170968D-02, .126054D-02, .930534D-03,
1761 + .686335D-03, .504725D-03, .369023D-03, .267552D-03,
1762 + .191608D-03, .135669D-03, .941489D-04, .640136D-04,
1763 + .425069D-04, .274866D-04, .172582D-04, .104887D-04,
1764 + .615958D-05, .346580D-05, .186660D-05, .947238D-06,
1765 + .441738D-06, .180132D-06, .580825D-07, .119697D-07,
1766 + .829536D-09, .000000D+00, .866694D+06, .684846D+06,
1767 + .535547D+06, .418797D+06, .327501D+06, .256108D+06,
1768 + .200280D+06, .156622D+06, .122483D+06, .957862D+05,
1769 + .749094D+05, .585839D+05, .458174D+05, .358339D+05,
1770 + .280268D+05, .219215D+05, .171471D+05, .134133D+05,
1771 + .104934D+05, .820985D+04, .642397D+04, .502726D+04,
1772 + .393489D+04, .308049D+04, .241221D+04, .188946D+04 /
1773 DATA (UPDI(I),I=6397,6448) /
1774 + .148052D+04, .115659D+04, .907226D+03, .712063D+03,
1775 + .559292D+03, .439679D+03, .346002D+03, .272808D+03,
1776 + .215284D+03, .170193D+03, .134821D+03, .107045D+03,
1777 + .852083D+02, .680065D+02, .544503D+02, .437254D+02,
1778 + .352224D+02, .284612D+02, .230678D+02, .187514D+02,
1779 + .152965D+02, .124944D+02, .102416D+02, .840220D+01,
1780 + .691082D+01, .569330D+01, .469692D+01, .387976D+01,
1781 + .320842D+01, .265615D+01, .220148D+01, .182702D+01,
1782 + .151867D+01, .126489D+01, .105622D+01, .884855D+00,
1783 + .744329D+00, .629744D+00, .535457D+00, .458458D+00,
1784 + .395563D+00, .344088D+00, .301762D+00, .266669D+00,
1785 + .237188D+00, .211963D+00, .189852D+00, .169925D+00,
1786 + .151639D+00, .134195D+00, .117374D+00, .100996D+00 /
1787 DATA (UPDI(I),I=6449,6500) /
1788 + .850434D-01, .696498D-01, .550703D-01, .416692D-01,
1789 + .297444D-01, .197538D-01, .118978D-01, .626233D-02,
1790 + .270756D-02, .856491D-03, .152915D-03, .672154D-05,
1791 + .000000D+00, .161949D+07, .126980D+07, .984141D+06,
1792 + .762507D+06, .590804D+06, .457618D+06, .354465D+06,
1793 + .274472D+06, .212534D+06, .164516D+06, .127348D+06,
1794 + .985413D+05, .762508D+05, .589809D+05, .456221D+05,
1795 + .352759D+05, .272758D+05, .210822D+05, .162951D+05,
1796 + .125904D+05, .972811D+04, .751399D+04, .580415D+04,
1797 + .448211D+04, .346160D+04, .267284D+04, .206426D+04,
1798 + .158843D+04, .122732D+04, .948438D+03, .733386D+03,
1799 + .567345D+03, .439324D+03, .340735D+03, .264500D+03,
1800 + .205641D+03, .160230D+03, .125123D+03, .979845D+02 /
1801 DATA (UPDI(I),I=6501,6552) /
1802 + .769419D+02, .606362D+02, .479381D+02, .380366D+02,
1803 + .302847D+02, .241999D+02, .194022D+02, .156209D+02,
1804 + .125975D+02, .102018D+02, .827249D+01, .672918D+01,
1805 + .548547D+01, .448037D+01, .366602D+01, .300470D+01,
1806 + .246683D+01, .202868D+01, .167156D+01, .138027D+01,
1807 + .114273D+01, .948984D+00, .791109D+00, .662382D+00,
1808 + .557956D+00, .472307D+00, .402486D+00, .345412D+00,
1809 + .298572D+00, .259853D+00, .227528D+00, .200156D+00,
1810 + .176575D+00, .155835D+00, .137170D+00, .120190D+00,
1811 + .104258D+00, .892508D-01, .750594D-01, .616874D-01,
1812 + .492427D-01, .378866D-01, .278527D-01, .192732D-01,
1813 + .123796D-01, .718794D-02, .363326D-02, .150032D-02,
1814 + .450962D-03, .770617D-04, .352013D-05, .000000D+00 /
1815 DATA (UPDI(I),I=6553,6604) /
1816 + .267019D+07, .208078D+07, .160128D+07, .123170D+07,
1817 + .947354D+06, .728294D+06, .559843D+06, .430133D+06,
1818 + .330443D+06, .253722D+06, .194790D+06, .149463D+06,
1819 + .114668D+06, .879221D+05, .674043D+05, .516434D+05,
1820 + .395614D+05, .302872D+05, .231833D+05, .177344D+05,
1821 + .135640D+05, .103678D+05, .792373D+04, .605225D+04,
1822 + .462236D+04, .352829D+04, .269325D+04, .204738D+04,
1823 + .156271D+04, .119258D+04, .910492D+03, .695241D+03,
1824 + .531296D+03, .406578D+03, .311360D+03, .238774D+03,
1825 + .183505D+03, .141333D+03, .109170D+03, .845612D+02,
1826 + .657491D+02, .512935D+02, .401729D+02, .315809D+02,
1827 + .249258D+02, .197451D+02, .157142D+02, .125307D+02,
1828 + .100392D+02, .805642D+01, .648871D+01, .523956D+01 /
1829 DATA (UPDI(I),I=6605,6656) /
1830 + .424103D+01, .344056D+01, .279713D+01, .227896D+01,
1831 + .186081D+01, .152305D+01, .124985D+01, .102882D+01,
1832 + .849815D+00, .704891D+00, .587314D+00, .492338D+00,
1833 + .414657D+00, .351424D+00, .299722D+00, .257220D+00,
1834 + .221980D+00, .192454D+00, .167369D+00, .145728D+00,
1835 + .126731D+00, .109740D+00, .944635D-01, .803765D-01,
1836 + .674002D-01, .554514D-01, .445219D-01, .346728D-01,
1837 + .259826D-01, .185741D-01, .124686D-01, .775056D-02,
1838 + .434027D-02, .210733D-02, .831207D-03, .237459D-03,
1839 + .388345D-04, .184594D-05, .000000D+00, .407395D+07,
1840 + .315784D+07, .241527D+07, .184624D+07, .141102D+07,
1841 + .107775D+07, .823026D+06, .628109D+06, .479246D+06,
1842 + .365420D+06, .278559D+06, .212196D+06, .161599D+06 /
1843 DATA (UPDI(I),I=6657,6708) /
1844 + .122976D+06, .935551D+05, .711187D+05, .540451D+05,
1845 + .410379D+05, .311505D+05, .236259D+05, .179126D+05,
1846 + .135697D+05, .102762D+05, .777588D+04, .588209D+04,
1847 + .444586D+04, .335975D+04, .252758D+04, .190907D+04,
1848 + .144134D+04, .108842D+04, .821866D+03, .620949D+03,
1849 + .469731D+03, .355527D+03, .269429D+03, .204603D+03,
1850 + .155702D+03, .118833D+03, .909504D+02, .698823D+02,
1851 + .538819D+02, .417152D+02, .324240D+02, .253095D+02,
1852 + .198338D+02, .156210D+02, .123302D+02, .978254D+01,
1853 + .777660D+01, .620684D+01, .496866D+01, .398853D+01,
1854 + .321028D+01, .259040D+01, .209561D+01, .169967D+01,
1855 + .138241D+01, .112771D+01, .923087D+00, .758410D+00,
1856 + .625829D+00, .518749D+00, .432574D+00, .362278D+00 /
1857 DATA (UPDI(I),I=6709,6760) /
1858 + .305147D+00, .258454D+00, .220054D+00, .188186D+00,
1859 + .161465D+00, .138767D+00, .119234D+00, .102181D+00,
1860 + .870670D-01, .736612D-01, .615166D-01, .505681D-01,
1861 + .407336D-01, .319809D-01, .243222D-01, .177712D-01,
1862 + .123672D-01, .806379D-02, .485729D-02, .262744D-02,
1863 + .122764D-02, .463709D-03, .126396D-03, .198645D-04,
1864 + .980129D-06, .000000D+00, .589051D+07, .454404D+07,
1865 + .345623D+07, .262709D+07, .199629D+07, .151591D+07,
1866 + .115076D+07, .872936D+06, .661956D+06, .501583D+06,
1867 + .379919D+06, .287534D+06, .217523D+06, .164419D+06,
1868 + .124224D+06, .937708D+05, .707490D+05, .533297D+05,
1869 + .401786D+05, .302413D+05, .227497D+05, .170970D+05,
1870 + .128421D+05, .963668D+04, .722764D+04, .541523D+04 /
1871 DATA (UPDI(I),I=6761,6812) /
1872 + .405589D+04, .302315D+04, .226212D+04, .169168D+04,
1873 + .126505D+04, .945799D+03, .707369D+03, .529636D+03,
1874 + .396691D+03, .297460D+03, .223486D+03, .168253D+03,
1875 + .127034D+03, .961859D+02, .731174D+02, .557812D+02,
1876 + .427352D+02, .328764D+02, .254049D+02, .197130D+02,
1877 + .153780D+02, .120254D+02, .945524D+01, .745104D+01,
1878 + .589731D+01, .468301D+01, .373031D+01, .298038D+01,
1879 + .238801D+01, .191899D+01, .154653D+01, .125026D+01,
1880 + .101402D+01, .825417D+00, .674500D+00, .553608D+00,
1881 + .456376D+00, .378403D+00, .314969D+00, .263515D+00,
1882 + .221515D+00, .187006D+00, .158394D+00, .134440D+00,
1883 + .114153D+00, .967824D-01, .817372D-01, .685482D-01,
1884 + .570186D-01, .467584D-01, .377000D-01, .297524D-01 /
1885 DATA (UPDI(I),I=6813,6864) /
1886 + .228584D-01, .169898D-01, .121139D-01, .821383D-02,
1887 + .520701D-02, .304258D-02, .159177D-02, .716807D-03,
1888 + .259844D-03, .677900D-04, .102727D-04, .524923D-06,
1889 + .000000D+00, .859085D+07, .659239D+07, .498370D+07,
1890 + .376478D+07, .284283D+07, .214501D+07, .161775D+07,
1891 + .121911D+07, .918253D+06, .691051D+06, .519789D+06,
1892 + .390617D+06, .293376D+06, .220132D+06, .165071D+06,
1893 + .123657D+06, .925720D+05, .692276D+05, .517336D+05,
1894 + .386176D+05, .288057D+05, .214622D+05, .159789D+05,
1895 + .118829D+05, .883029D+04, .655370D+04, .486140D+04,
1896 + .358749D+04, .265742D+04, .196695D+04, .145548D+04,
1897 + .107658D+04, .796402D+03, .589722D+03, .436721D+03,
1898 + .323749D+03, .240433D+03, .178914D+03, .133508D+03 /
1899 DATA (UPDI(I),I=6865,6916) /
1900 + .999097D+02, .750648D+02, .566065D+02, .428715D+02,
1901 + .326103D+02, .249204D+02, .191275D+02, .147641D+02,
1902 + .114261D+02, .889454D+01, .694129D+01, .544259D+01,
1903 + .428311D+01, .338227D+01, .267990D+01, .213018D+01,
1904 + .169875D+01, .135901D+01, .109091D+01, .878730D+00,
1905 + .710500D+00, .576729D+00, .470169D+00, .384876D+00,
1906 + .316762D+00, .261545D+00, .216889D+00, .180537D+00,
1907 + .150751D+00, .126135D+00, .105619D+00, .883525D-01,
1908 + .736973D-01, .611534D-01, .503204D-01, .410230D-01,
1909 + .329266D-01, .259520D-01, .199968D-01, .149804D-01,
1910 + .108416D-01, .751471D-02, .494500D-02, .303524D-02,
1911 + .171317D-02, .863087D-03, .372989D-03, .129267D-03,
1912 + .321863D-04, .469719D-05, .248969D-06, .000000D+00 /
1913 DATA (UPDI(I),I=6917,6968) /
1914 + .121136D+08, .924907D+07, .695119D+07, .522000D+07,
1915 + .391793D+07, .293818D+07, .220219D+07, .164910D+07,
1916 + .123416D+07, .922764D+06, .689479D+06, .514658D+06,
1917 + .383889D+06, .286044D+06, .212974D+06, .158392D+06,
1918 + .117702D+06, .873617D+05, .647857D+05, .479843D+05,
1919 + .355077D+05, .262413D+05, .193752D+05, .142869D+05,
1920 + .105249D+05, .774236D+04, .569135D+04, .416079D+04,
1921 + .305309D+04, .223817D+04, .163994D+04, .120093D+04,
1922 + .879343D+03, .644429D+03, .472214D+03, .346338D+03,
1923 + .254437D+03, .187284D+03, .138229D+03, .102314D+03,
1924 + .760340D+02, .567171D+02, .424941D+02, .319812D+02,
1925 + .241851D+02, .183735D+02, .140410D+02, .107604D+02,
1926 + .829736D+01, .641571D+01, .498583D+01, .389002D+01 /
1927 DATA (UPDI(I),I=6969,7020) /
1928 + .304642D+01, .239453D+01, .188867D+01, .149493D+01,
1929 + .118730D+01, .946346D+00, .756979D+00, .607816D+00,
1930 + .489918D+00, .396513D+00, .322115D+00, .262969D+00,
1931 + .215221D+00, .176758D+00, .145575D+00, .120137D+00,
1932 + .992269D-01, .819162D-01, .674718D-01, .553454D-01,
1933 + .451060D-01, .364060D-01, .290812D-01, .228405D-01,
1934 + .175941D-01, .132325D-01, .966253D-02, .680603D-02,
1935 + .458320D-02, .292457D-02, .173625D-02, .945293D-03,
1936 + .457772D-03, .189403D-03, .625711D-04, .148152D-04,
1937 + .207525D-05, .114386D-06, .000000D+00, .165877D+08,
1938 + .126047D+08, .942011D+07, .703401D+07, .524905D+07,
1939 + .391350D+07, .291582D+07, .217039D+07, .161436D+07,
1940 + .119956D+07, .890644D+06, .660565D+06, .489510D+06 /
1941 DATA (UPDI(I),I=7021,7072) /
1942 + .362334D+06, .267955D+06, .197918D+06, .146045D+06,
1943 + .107629D+06, .792366D+05, .582546D+05, .427825D+05,
1944 + .313751D+05, .229839D+05, .168125D+05, .122842D+05,
1945 + .896100D+04, .653106D+04, .473261D+04, .344183D+04,
1946 + .250033D+04, .181509D+04, .131670D+04, .954845D+03,
1947 + .692960D+03, .502738D+03, .365027D+03, .265442D+03,
1948 + .193386D+03, .141263D+03, .103483D+03, .761104D+02,
1949 + .561932D+02, .416739D+02, .310498D+02, .232489D+02,
1950 + .174911D+02, .132404D+02, .100527D+02, .768208D+01,
1951 + .588787D+01, .453681D+01, .351060D+01, .272737D+01,
1952 + .212718D+01, .166519D+01, .130839D+01, .103167D+01,
1953 + .816463D+00, .648451D+00, .516935D+00, .413596D+00,
1954 + .332171D+00, .267650D+00, .216606D+00, .175600D+00 /
1955 DATA (UPDI(I),I=7073,7124) /
1956 + .142731D+00, .116224D+00, .947322D-01, .771916D-01,
1957 + .627943D-01, .509056D-01, .410496D-01, .328507D-01,
1958 + .260037D-01, .203516D-01, .156409D-01, .117755D-01,
1959 + .864533D-02, .615415D-02, .421957D-02, .276111D-02,
1960 + .170889D-02, .981547D-03, .515680D-03, .240181D-03,
1961 + .952256D-04, .300314D-04, .677692D-05, .913542D-06,
1962 + .521204D-07, .000000D+00, .221436D+08, .167498D+08,
1963 + .124507D+08, .924651D+07, .686202D+07, .508750D+07,
1964 + .376900D+07, .278933D+07, .206260D+07, .152355D+07,
1965 + .112437D+07, .828817D+06, .610367D+06, .448937D+06,
1966 + .329862D+06, .242051D+06, .177421D+06, .129866D+06,
1967 + .949458D+05, .693133D+05, .505385D+05, .367923D+05,
1968 + .267511D+05, .194193D+05, .140785D+05, .101883D+05 /
1969 DATA (UPDI(I),I=7125,7176) /
1970 + .736541D+04, .529250D+04, .381654D+04, .274873D+04,
1971 + .197788D+04, .142199D+04, .102179D+04, .734703D+03,
1972 + .528003D+03, .379721D+03, .273463D+03, .197295D+03,
1973 + .142710D+03, .103519D+03, .753926D+02, .551221D+02,
1974 + .404847D+02, .298763D+02, .221601D+02, .165181D+02,
1975 + .123913D+02, .932475D+01, .706468D+01, .536922D+01,
1976 + .410349D+01, .315017D+01, .242849D+01, .187984D+01,
1977 + .146074D+01, .113943D+01, .892005D+00, .700863D+00,
1978 + .552600D+00, .437252D+00, .347146D+00, .276546D+00,
1979 + .220906D+00, .177129D+00, .142155D+00, .114288D+00,
1980 + .919615D-01, .739920D-01, .594520D-01, .476373D-01,
1981 + .379961D-01, .301128D-01, .236584D-01, .183642D-01,
1982 + .140809D-01, .105890D-01, .779187D-02, .558460D-02 /
1983 DATA (UPDI(I),I=7177,7228) /
1984 + .387576D-02, .258706D-02, .164526D-02, .987854D-03,
1985 + .549113D-03, .278498D-03, .124831D-03, .474710D-04,
1986 + .143140D-04, .308536D-05, .401206D-06, .235291D-07,
1987 + .000000D+00, .289061D+08, .217695D+08, .160985D+08,
1988 + .118930D+08, .877918D+07, .647395D+07, .476994D+07,
1989 + .351060D+07, .258136D+07, .189589D+07, .139105D+07,
1990 + .101938D+07, .746220D+06, .545535D+06, .398364D+06,
1991 + .290486D+06, .211562D+06, .153851D+06, .111737D+06,
1992 + .810227D+05, .586704D+05, .424139D+05, .306183D+05,
1993 + .220649D+05, .158776D+05, .114030D+05, .817981D+04,
1994 + .583068D+04, .417077D+04, .297921D+04, .212577D+04,
1995 + .151529D+04, .107937D+04, .769269D+03, .547880D+03,
1996 + .390437D+03, .278594D+03, .199136D+03, .142698D+03 /
1997 DATA (UPDI(I),I=7229,7280) /
1998 + .102545D+03, .739864D+02, .535922D+02, .389985D+02,
1999 + .285178D+02, .209628D+02, .154880D+02, .115186D+02,
2000 + .859461D+01, .645803D+01, .486861D+01, .369175D+01,
2001 + .281242D+01, .215190D+01, .165352D+01, .127558D+01,
2002 + .987855D+00, .767787D+00, .598884D+00, .468694D+00,
2003 + .368019D+00, .289841D+00, .228941D+00, .181225D+00,
2004 + .143906D+00, .114280D+00, .908333D-01, .721908D-01,
2005 + .573137D-01, .453932D-01, .358151D-01, .280993D-01,
2006 + .218823D-01, .168758D-01, .128443D-01, .964818D-02,
2007 + .709951D-02, .510616D-02, .357290D-02, .241771D-02,
2008 + .157131D-02, .971355D-03, .565938D-03, .304550D-03,
2009 + .149184D-03, .643996D-04, .235159D-04, .679114D-05,
2010 + .140142D-05, .176137D-06, .105073D-07, .000000D+00 /
2011 DATA (UPDI(I),I=7281,7332) /
2012 + .369897D+08, .277404D+08, .204116D+08, .150034D+08,
2013 + .110185D+08, .808317D+07, .592426D+07, .433694D+07,
2014 + .317172D+07, .231671D+07, .169034D+07, .123171D+07,
2015 + .896464D+06, .651552D+06, .472955D+06, .342800D+06,
2016 + .248130D+06, .179318D+06, .129405D+06, .932272D+05,
2017 + .670627D+05, .481555D+05, .345249D+05, .247066D+05,
2018 + .176517D+05, .125848D+05, .896063D+04, .633829D+04,
2019 + .449888D+04, .318833D+04, .225673D+04, .159552D+04,
2020 + .112705D+04, .796482D+03, .562387D+03, .397291D+03,
2021 + .280991D+03, .199069D+03, .141379D+03, .100689D+03,
2022 + .719999D+02, .516907D+02, .372835D+02, .270266D+02,
2023 + .196964D+02, .144296D+02, .106432D+02, .787692D+01,
2024 + .587212D+01, .439259D+01, .330564D+01, .249964D+01 /
2025 DATA (UPDI(I),I=7333,7384) /
2026 + .189867D+01, .144846D+01, .110942D+01, .853048D+00,
2027 + .658241D+00, .509671D+00, .395863D+00, .308388D+00,
2028 + .240870D+00, .188593D+00, .147887D+00, .116257D+00,
2029 + .913205D-01, .717349D-01, .562933D-01, .440865D-01,
2030 + .344096D-01, .267278D-01, .206235D-01, .157796D-01,
2031 + .119449D-01, .891403D-02, .655977D-02, .472333D-02,
2032 + .332068D-02, .226869D-02, .149706D-02, .947512D-03,
2033 + .569510D-03, .322085D-03, .167874D-03, .794763D-04,
2034 + .330735D-04, .116128D-04, .321844D-05, .637441D-06,
2035 + .775522D-07, .463037D-08, .000000D+00, .464942D+08,
2036 + .347272D+08, .254293D+08, .186005D+08, .135925D+08,
2037 + .992157D+07, .723466D+07, .526900D+07, .383320D+07,
2038 + .278505D+07, .202112D+07, .146471D+07, .106013D+07 /
2039 DATA (UPDI(I),I=7385,7436) /
2040 + .766172D+06, .552971D+06, .398468D+06, .286716D+06,
2041 + .205959D+06, .147719D+06, .105758D+06, .755937D+05,
2042 + .539306D+05, .384103D+05, .273025D+05, .193726D+05,
2043 + .137148D+05, .969564D+04, .680764D+04, .479618D+04,
2044 + .337336D+04, .236929D+04, .166197D+04, .116460D+04,
2045 + .816364D+03, .571672D+03, .400483D+03, .280857D+03,
2046 + .197285D+03, .138914D+03, .980873D+02, .695403D+02,
2047 + .495008D+02, .354029D+02, .254497D+02, .183949D+02,
2048 + .133673D+02, .978185D+01, .718310D+01, .531435D+01,
2049 + .394569D+01, .294766D+01, .221295D+01, .166899D+01,
2050 + .126429D+01, .961549D+00, .734106D+00, .562382D+00,
2051 + .432229D+00, .333142D+00, .257448D+00, .199383D+00,
2052 + .154708D+00, .120149D+00, .934821D-01, .726165D-01 /
2053 DATA (UPDI(I),I=7437,7488) /
2054 + .563622D-01, .436635D-01, .337264D-01, .259379D-01,
2055 + .198331D-01, .150504D-01, .113141D-01, .840678D-02,
2056 + .615178D-02, .443548D-02, .312562D-02, .214832D-02,
2057 + .143337D-02, .922599D-03, .568831D-03, .332564D-03,
2058 + .182662D-03, .922776D-04, .422628D-04, .169773D-04,
2059 + .574266D-05, .153132D-05, .291965D-06, .344163D-07,
2060 + .200563D-08, .000000D+00, .575006D+08, .427804D+08,
2061 + .311798D+08, .226989D+08, .165079D+08, .119912D+08,
2062 + .870072D+07, .630516D+07, .456379D+07, .329888D+07,
2063 + .238154D+07, .171680D+07, .123592D+07, .888358D+06,
2064 + .637607D+06, .456875D+06, .326863D+06, .233433D+06,
2065 + .166434D+06, .118441D+06, .841395D+05, .596529D+05,
2066 + .422156D+05, .298128D+05, .210138D+05, .147762D+05 /
2067 DATA (UPDI(I),I=7489,7540) /
2068 + .103742D+05, .723234D+04, .505899D+04, .353233D+04,
2069 + .246253D+04, .171435D+04, .119207D+04, .829112D+03,
2070 + .575997D+03, .400278D+03, .278438D+03, .193989D+03,
2071 + .135474D+03, .948727D+02, .667103D+02, .470996D+02,
2072 + .334134D+02, .238279D+02, .170873D+02, .123209D+02,
2073 + .894797D+01, .652164D+01, .478985D+01, .353069D+01,
2074 + .261903D+01, .195254D+01, .146242D+01, .110016D+01,
2075 + .830922D+00, .629917D+00, .479096D+00, .365487D+00,
2076 + .279524D+00, .214260D+00, .164513D+00, .126488D+00,
2077 + .972757D-01, .748988D-01, .575291D-01, .441156D-01,
2078 + .337367D-01, .257009D-01, .194766D-01, .146613D-01,
2079 + .109427D-01, .808344D-02, .589673D-02, .423206D-02,
2080 + .299035D-02, .206288D-02, .138663D-02, .903841D-03 /
2081 DATA (UPDI(I),I=7541,7592) /
2082 + .567714D-03, .341158D-03, .194138D-03, .103645D-03,
2083 + .508046D-04, .225422D-04, .875829D-05, .286143D-05,
2084 + .736653D-06, .135716D-06, .155052D-07, .847861D-09,
2085 + .000000D+00, .700677D+08, .519335D+08, .376791D+08,
2086 + .273045D+08, .197649D+08, .142894D+08, .103188D+08,
2087 + .744157D+07, .535991D+07, .385509D+07, .276903D+07,
2088 + .198592D+07, .142223D+07, .101688D+07, .725941D+06,
2089 + .517341D+06, .368072D+06, .261386D+06, .185296D+06,
2090 + .131096D+06, .925777D+05, .652395D+05, .458852D+05,
2091 + .322013D+05, .225523D+05, .157544D+05, .109876D+05,
2092 + .760746D+04, .528469D+04, .366403D+04, .253607D+04,
2093 + .175271D+04, .120971D+04, .835072D+03, .575710D+03,
2094 + .396992D+03, .274000D+03, .189400D+03, .131227D+03 /
2095 DATA (UPDI(I),I=7593,7644) /
2096 + .911742D+02, .636059D+02, .445570D+02, .313649D+02,
2097 + .221960D+02, .157971D+02, .113061D+02, .815142D+01,
2098 + .589845D+01, .430181D+01, .314896D+01, .231994D+01,
2099 + .171786D+01, .127798D+01, .954915D+00, .716296D+00,
2100 + .539241D+00, .407198D+00, .308336D+00, .233991D+00,
2101 + .177898D+00, .135417D+00, .103164D+00, .785623D-01,
2102 + .598608D-01, .454640D-01, .344465D-01, .260061D-01,
2103 + .195421D-01, .145954D-01, .108186D-01, .794405D-02,
2104 + .576827D-02, .413253D-02, .291003D-02, .201598D-02,
2105 + .136209D-02, .895895D-03, .570860D-03, .350157D-03,
2106 + .205265D-03, .113811D-03, .591349D-04, .281719D-04,
2107 + .121355D-04, .457293D-05, .144822D-05, .361578D-06,
2108 + .646769D-07, .715976D-08, .345200D-09, .000000D+00 /
2109 DATA (UPDI(I),I=7645,7696) /
2110 + .642719D+05, .929454D+05, .712044D+05, .545585D+05,
2111 + .418126D+05, .320522D+05, .245771D+05, .188516D+05,
2112 + .144655D+05, .111050D+05, .852961D+04, .655557D+04,
2113 + .504201D+04, .388116D+04, .299049D+04, .230682D+04,
2114 + .178178D+04, .137833D+04, .106809D+04, .829342D+03,
2115 + .645442D+03, .503640D+03, .394163D+03, .309524D+03,
2116 + .243983D+03, .193136D+03, .153607D+03, .122419D+03,
2117 + .984441D+02, .796536D+02, .648778D+02, .532167D+02,
2118 + .439773D+02, .366450D+02, .307677D+02, .260478D+02,
2119 + .222371D+02, .191427D+02, .166144D+02, .145339D+02,
2120 + .128123D+02, .113744D+02, .101640D+02, .913630D+01,
2121 + .825562D+01, .749382D+01, .683079D+01, .624234D+01,
2122 + .572152D+01, .525061D+01, .482543D+01, .443703D+01 /
2123 DATA (UPDI(I),I=7697,7748) /
2124 + .407979D+01, .374921D+01, .344179D+01, .315476D+01,
2125 + .288599D+01, .263384D+01, .239704D+01, .217462D+01,
2126 + .196583D+01, .177009D+01, .158694D+01, .141675D+01,
2127 + .125741D+01, .110971D+01, .973356D+00, .848062D+00,
2128 + .733521D+00, .629407D+00, .535368D+00, .451017D+00,
2129 + .375910D+00, .309530D+00, .251930D+00, .201746D+00,
2130 + .158869D+00, .122721D+00, .927103D-01, .682347D-01,
2131 + .486876D-01, .334854D-01, .219459D-01, .135876D-01,
2132 + .779198D-02, .402512D-02, .178751D-02, .625177D-03,
2133 + .141448D-03, .110335D-04, .000000D+00, .145983D+06,
2134 + .113359D+06, .869089D+05, .666322D+05, .510926D+05,
2135 + .391800D+05, .300503D+05, .230513D+05, .176870D+05,
2136 + .135742D+05, .104216D+05, .800420D+04, .615077D+04 /
2137 DATA (UPDI(I),I=7749,7800) /
2138 + .472911D+04, .363876D+04, .280203D+04, .215995D+04,
2139 + .166689D+04, .128822D+04, .997143D+03, .773336D+03,
2140 + .601057D+03, .468366D+03, .366019D+03, .287004D+03,
2141 + .225893D+03, .178571D+03, .141372D+03, .112907D+03,
2142 + .906948D+02, .733219D+02, .596811D+02, .489371D+02,
2143 + .404584D+02, .337057D+02, .283144D+02, .239902D+02,
2144 + .204989D+02, .176645D+02, .153451D+02, .134372D+02,
2145 + .118518D+02, .105247D+02, .940301D+01, .844674D+01,
2146 + .762327D+01, .691004D+01, .627991D+01, .572501D+01,
2147 + .522567D+01, .477724D+01, .436975D+01, .399712D+01,
2148 + .365431D+01, .333747D+01, .304349D+01, .276999D+01,
2149 + .251508D+01, .227729D+01, .205543D+01, .184858D+01,
2150 + .165600D+01, .147699D+01, .131179D+01, .115816D+01 /
2151 DATA (UPDI(I),I=7801,7852) /
2152 + .101672D+01, .887024D+00, .768660D+00, .661185D+00,
2153 + .564164D+00, .477124D+00, .399594D+00, .331044D+00,
2154 + .270873D+00, .219054D+00, .174251D+00, .136265D+00,
2155 + .104497D+00, .783383D-01, .571912D-01, .404513D-01,
2156 + .275619D-01, .178782D-01, .109448D-01, .619728D-02,
2157 + .315575D-02, .137790D-02, .472253D-03, .104658D-03,
2158 + .825082D-05, .000000D+00, .181767D+06, .141059D+06,
2159 + .108061D+06, .827732D+05, .634050D+05, .485652D+05,
2160 + .372010D+05, .284955D+05, .218300D+05, .167245D+05,
2161 + .128159D+05, .982241D+04, .753078D+04, .577566D+04,
2162 + .443200D+04, .340277D+04, .261466D+04, .201078D+04,
2163 + .154816D+04, .119348D+04, .921572D+03, .712897D+03,
2164 + .552724D+03, .429614D+03, .334942D+03, .262021D+03 /
2165 DATA (UPDI(I),I=7853,7904) /
2166 + .205814D+03, .161833D+03, .128348D+03, .102353D+03,
2167 + .821365D+02, .663520D+02, .539949D+02, .443015D+02,
2168 + .366306D+02, .305435D+02, .256924D+02, .217990D+02,
2169 + .186576D+02, .161014D+02, .140109D+02, .122826D+02,
2170 + .108433D+02, .963259D+01, .860530D+01, .772455D+01,
2171 + .696516D+01, .629716D+01, .571163D+01, .518711D+01,
2172 + .471837D+01, .429452D+01, .390897D+01, .355618D+01,
2173 + .323196D+01, .293287D+01, .265627D+01, .240003D+01,
2174 + .216246D+01, .194221D+01, .173814D+01, .154938D+01,
2175 + .137500D+01, .121510D+01, .106734D+01, .932188D+00,
2176 + .809046D+00, .697390D+00, .596659D+00, .506321D+00,
2177 + .425805D+00, .354566D+00, .292014D+00, .237476D+00,
2178 + .190840D+00, .150810D+00, .117123D+00, .891697D-01 /
2179 DATA (UPDI(I),I=7905,7956) /
2180 + .663368D-01, .480374D-01, .336790D-01, .227322D-01,
2181 + .145923D-01, .883120D-02, .493559D-02, .247573D-02,
2182 + .106181D-02, .356113D-03, .771629D-04, .615465D-05,
2183 + .000000D+00, .228688D+06, .177185D+06, .135477D+06,
2184 + .103565D+06, .791650D+05, .605018D+05, .462368D+05,
2185 + .353298D+05, .269961D+05, .206264D+05, .157610D+05,
2186 + .120433D+05, .920452D+04, .703584D+04, .538016D+04,
2187 + .411548D+04, .315003D+04, .241254D+04, .184946D+04,
2188 + .141922D+04, .109061D+04, .839361D+03, .647294D+03,
2189 + .500282D+03, .387733D+03, .301440D+03, .235257D+03,
2190 + .183730D+03, .144709D+03, .114581D+03, .912857D+02,
2191 + .732031D+02, .591329D+02, .481627D+02, .395357D+02,
2192 + .327320D+02, .273434D+02, .230445D+02, .195965D+02 /
2193 DATA (UPDI(I),I=7957,8008) /
2194 + .168064D+02, .145371D+02, .126705D+02, .111238D+02,
2195 + .982856D+01, .873452D+01, .780054D+01, .699867D+01,
2196 + .629623D+01, .568317D+01, .513636D+01, .464992D+01,
2197 + .421212D+01, .381584D+01, .345507D+01, .312526D+01,
2198 + .282267D+01, .254439D+01, .228807D+01, .205181D+01,
2199 + .183405D+01, .163351D+01, .144912D+01, .127980D+01,
2200 + .112548D+01, .983734D+00, .854876D+00, .738191D+00,
2201 + .633045D+00, .538776D+00, .454763D+00, .380356D+00,
2202 + .314948D+00, .257899D+00, .208482D+00, .166514D+00,
2203 + .130743D+00, .100857D+00, .762456D-01, .562997D-01,
2204 + .404471D-01, .281154D-01, .188033D-01, .119483D-01,
2205 + .715055D-02, .394602D-02, .195085D-02, .822424D-03,
2206 + .270202D-03, .573278D-04, .462166D-05, .000000D+00 /
2207 DATA (UPDI(I),I=8009,8060) /
2208 + .176224D+06, .223088D+06, .170123D+06, .129695D+06,
2209 + .988596D+05, .753337D+05, .573994D+05, .437234D+05,
2210 + .333031D+05, .253610D+05, .193127D+05, .147050D+05,
2211 + .111976D+05, .852673D+04, .649449D+04, .494746D+04,
2212 + .377068D+04, .287503D+04, .219381D+04, .167533D+04,
2213 + .128094D+04, .980668D+03, .752129D+03, .577987D+03,
2214 + .445299D+03, .344058D+03, .266811D+03, .206982D+03,
2215 + .161921D+03, .127324D+03, .100727D+03, .802025D+02,
2216 + .643280D+02, .520260D+02, .424108D+02, .348738D+02,
2217 + .289404D+02, .242345D+02, .204818D+02, .174616D+02,
2218 + .150181D+02, .130181D+02, .113686D+02, .999347D+01,
2219 + .883686D+01, .785350D+01, .701262D+01, .627896D+01,
2220 + .564124D+01, .507479D+01, .457304D+01, .412348D+01 /
2221 DATA (UPDI(I),I=8061,8112) /
2222 + .371844D+01, .335147D+01, .301768D+01, .271302D+01,
2223 + .243432D+01, .217900D+01, .194497D+01, .173048D+01,
2224 + .153407D+01, .135453D+01, .119060D+01, .104206D+01,
2225 + .906420D+00, .783840D+00, .673496D+00, .574658D+00,
2226 + .486578D+00, .408558D+00, .339881D+00, .279889D+00,
2227 + .227901D+00, .183155D+00, .145407D+00, .113452D+00,
2228 + .869427D-01, .652731D-01, .478458D-01, .341072D-01,
2229 + .235102D-01, .155823D-01, .980355D-02, .580311D-02,
2230 + .316304D-02, .154177D-02, .639190D-03, .205882D-03,
2231 + .428242D-04, .348967D-05, .000000D+00, .382730D+06,
2232 + .294889D+06, .224018D+06, .170118D+06, .129156D+06,
2233 + .980204D+05, .743738D+05, .564124D+05, .427803D+05,
2234 + .324326D+05, .245842D+05, .186307D+05, .141182D+05 /
2235 DATA (UPDI(I),I=8113,8164) /
2236 + .106972D+05, .810584D+04, .614238D+04, .465581D+04,
2237 + .352994D+04, .267784D+04, .203265D+04, .154443D+04,
2238 + .117476D+04, .894945D+03, .682970D+03, .522401D+03,
2239 + .400638D+03, .308317D+03, .237279D+03, .184129D+03,
2240 + .143602D+03, .112662D+03, .889573D+02, .707539D+02,
2241 + .567510D+02, .458853D+02, .374306D+02, .308219D+02,
2242 + .256174D+02, .214947D+02, .181987D+02, .155483D+02,
2243 + .133917D+02, .116228D+02, .101558D+02, .892808D+01,
2244 + .788933D+01, .700522D+01, .623748D+01, .557328D+01,
2245 + .498620D+01, .446878D+01, .400761D+01, .359435D+01,
2246 + .322206D+01, .288540D+01, .257998D+01, .230231D+01,
2247 + .204956D+01, .181938D+01, .160982D+01, .141919D+01,
2248 + .124612D+01, .108915D+01, .947894D+00, .819785D+00 /
2249 DATA (UPDI(I),I=8165,8216) /
2250 + .704813D+00, .602037D+00, .510626D+00, .429740D+00,
2251 + .358605D+00, .296440D+00, .242538D+00, .196181D+00,
2252 + .156580D+00, .123434D+00, .955990D-01, .726994D-01,
2253 + .541414D-01, .393504D-01, .277999D-01, .189783D-01,
2254 + .124494D-01, .774436D-02, .452775D-02, .243394D-02,
2255 + .116793D-02, .475505D-03, .150001D-03, .305890D-04,
2256 + .252137D-05, .000000D+00, .504350D+06, .387191D+06,
2257 + .292901D+06, .221479D+06, .167420D+06, .126500D+06,
2258 + .955517D+05, .721446D+05, .544558D+05, .410880D+05,
2259 + .309941D+05, .233721D+05, .176216D+05, .132827D+05,
2260 + .100116D+05, .754533D+04, .568735D+04, .428736D+04,
2261 + .323329D+04, .243942D+04, .184195D+04, .139207D+04,
2262 + .105348D+04, .798474D+03, .606461D+03, .461743D+03 /
2263 DATA (UPDI(I),I=8217,8268) /
2264 + .352710D+03, .269356D+03, .207402D+03, .160482D+03,
2265 + .124904D+03, .978366D+02, .771959D+02, .614313D+02,
2266 + .492841D+02, .398990D+02, .326131D+02, .269140D+02,
2267 + .224284D+02, .188647D+02, .160156D+02, .137104D+02,
2268 + .118292D+02, .102771D+02, .898408D+01, .789513D+01,
2269 + .697242D+01, .617476D+01, .548778D+01, .488342D+01,
2270 + .435332D+01, .388325D+01, .346420D+01, .308877D+01,
2271 + .275118D+01, .244670D+01, .217156D+01, .192265D+01,
2272 + .169740D+01, .149363D+01, .130948D+01, .114340D+01,
2273 + .993744D+00, .859969D+00, .739465D+00, .632053D+00,
2274 + .536697D+00, .452472D+00, .378467D+00, .313845D+00,
2275 + .257779D+00, .209522D+00, .168334D+00, .133414D+00,
2276 + .104414D+00, .802584D-01, .605521D-01, .447214D-01 /
2277 DATA (UPDI(I),I=8269,8320) /
2278 + .322192D-01, .225499D-01, .152399D-01, .988924D-02,
2279 + .607871D-02, .350739D-02, .185764D-02, .876376D-03,
2280 + .349776D-03, .107808D-03, .214967D-04, .179420D-05,
2281 + .000000D+00, .658477D+06, .503621D+06, .379313D+06,
2282 + .285552D+06, .214885D+06, .161625D+06, .121520D+06,
2283 + .913207D+05, .686014D+05, .515102D+05, .386642D+05,
2284 + .290096D+05, .217600D+05, .163165D+05, .122327D+05,
2285 + .916910D+04, .687279D+04, .515148D+04, .386227D+04,
2286 + .289653D+04, .217367D+04, .163240D+04, .122736D+04,
2287 + .924076D+03, .697066D+03, .527007D+03, .399680D+03,
2288 + .302962D+03, .231541D+03, .177809D+03, .137336D+03,
2289 + .106755D+03, .835920D+02, .660228D+02, .525766D+02,
2290 + .422582D+02, .343002D+02, .281157D+02, .232778D+02 /
2291 DATA (UPDI(I),I=8321,8372) /
2292 + .194569D+02, .164191D+02, .139741D+02, .119887D+02,
2293 + .103583D+02, .900610D+01, .787227D+01, .691559D+01,
2294 + .609213D+01, .538602D+01, .476765D+01, .422778D+01,
2295 + .375141D+01, .332889D+01, .295238D+01, .261567D+01,
2296 + .231374D+01, .204249D+01, .179859D+01, .157923D+01,
2297 + .138203D+01, .120497D+01, .104629D+01, .904243D+00,
2298 + .778097D+00, .665219D+00, .565281D+00, .477161D+00,
2299 + .399862D+00, .332414D+00, .273931D+00, .223554D+00,
2300 + .180510D+00, .144046D+00, .113363D+00, .880817D-01,
2301 + .671924D-01, .502935D-01, .368362D-01, .263053D-01,
2302 + .182388D-01, .122023D-01, .783240D-02, .475703D-02,
2303 + .270871D-02, .141341D-02, .655537D-03, .256486D-03,
2304 + .772542D-04, .150696D-04, .127406D-05, .000000D+00 /
2305 DATA (UPDI(I),I=8373,8424) /
2306 + .850765D+06, .648230D+06, .486070D+06, .364286D+06,
2307 + .272894D+06, .204315D+06, .152902D+06, .114362D+06,
2308 + .854993D+05, .638862D+05, .477171D+05, .356223D+05,
2309 + .265837D+05, .198299D+05, .147881D+05, .110247D+05,
2310 + .821815D+04, .612524D+04, .456593D+04, .340411D+04,
2311 + .253920D+04, .189515D+04, .141591D+04, .105914D+04,
2312 + .793658D+03, .595961D+03, .448848D+03, .337800D+03,
2313 + .256318D+03, .195412D+03, .149832D+03, .115620D+03,
2314 + .898765D+02, .704797D+02, .557312D+02, .444873D+02,
2315 + .358698D+02, .292141D+02, .240379D+02, .199729D+02,
2316 + .167578D+02, .141831D+02, .121020D+02, .104007D+02,
2317 + .899560D+01, .782230D+01, .683636D+01, .599121D+01,
2318 + .526955D+01, .464035D+01, .409354D+01, .361335D+01 /
2319 DATA (UPDI(I),I=8425,8476) /
2320 + .318958D+01, .281392D+01, .247979D+01, .218185D+01,
2321 + .191573D+01, .167787D+01, .146523D+01, .127527D+01,
2322 + .110576D+01, .954823D+00, .820560D+00, .702102D+00,
2323 + .596798D+00, .504185D+00, .423072D+00, .352402D+00,
2324 + .291163D+00, .238435D+00, .193336D+00, .155083D+00,
2325 + .122918D+00, .960554D-01, .740938D-01, .560933D-01,
2326 + .416529D-01, .302534D-01, .214142D-01, .147083D-01,
2327 + .974102D-02, .618462D-02, .371136D-02, .208545D-02,
2328 + .107207D-02, .488828D-03, .187515D-03, .552135D-04,
2329 + .105445D-04, .902923D-06, .000000D+00, .108725D+07,
2330 + .825307D+06, .616125D+06, .459700D+06, .342819D+06,
2331 + .255497D+06, .190321D+06, .141683D+06, .105422D+06,
2332 + .783934D+05, .582663D+05, .432817D+05, .321367D+05 /
2333 DATA (UPDI(I),I=8477,8528) /
2334 + .238492D+05, .176926D+05, .131199D+05, .972702D+04,
2335 + .720982D+04, .534412D+04, .396136D+04, .293748D+04,
2336 + .217924D+04, .161815D+04, .120282D+04, .895536D+03,
2337 + .668046D+03, .499779D+03, .373541D+03, .281488D+03,
2338 + .213112D+03, .162263D+03, .124340D+03, .959855D+02,
2339 + .747582D+02, .587189D+02, .465674D+02, .373101D+02,
2340 + .302023D+02, .247051D+02, .204111D+02, .170316D+02,
2341 + .143381D+02, .121704D+02, .104057D+02, .895421D+01,
2342 + .774692D+01, .673639D+01, .587362D+01, .513993D+01,
2343 + .450302D+01, .395196D+01, .347034D+01, .304739D+01,
2344 + .267438D+01, .234438D+01, .205176D+01, .179187D+01,
2345 + .156094D+01, .135573D+01, .117352D+01, .101194D+01,
2346 + .868968D+00, .742586D+00, .631796D+00, .533948D+00 /
2347 DATA (UPDI(I),I=8529,8580) /
2348 + .448458D+00, .374082D+00, .309719D+00, .254326D+00,
2349 + .206961D+00, .166737D+00, .132864D+00, .104593D+00,
2350 + .811587D-01, .621488D-01, .466924D-01, .343964D-01,
2351 + .247740D-01, .173807D-01, .118255D-01, .775256D-02,
2352 + .486847D-02, .288653D-02, .160054D-02, .810588D-03,
2353 + .363362D-03, .136672D-03, .393544D-04, .736409D-05,
2354 + .638584D-06, .000000D+00, .137425D+07, .103931D+07,
2355 + .772509D+06, .573848D+06, .426040D+06, .316091D+06,
2356 + .234384D+06, .173680D+06, .128625D+06, .951934D+05,
2357 + .704124D+05, .520486D+05, .384544D+05, .283938D+05,
2358 + .209561D+05, .154590D+05, .114004D+05, .840446D+04,
2359 + .619530D+04, .456651D+04, .336681D+04, .248314D+04,
2360 + .183279D+04, .135406D+04, .100188D+04, .742626D+03 /
2361 DATA (UPDI(I),I=8581,8632) /
2362 + .551993D+03, .409830D+03, .306792D+03, .230723D+03,
2363 + .174497D+03, .132825D+03, .101858D+03, .788178D+02,
2364 + .615135D+02, .484821D+02, .386113D+02, .310750D+02,
2365 + .252770D+02, .207708D+02, .172409D+02, .144400D+02,
2366 + .121952D+02, .103751D+02, .888369D+01, .764790D+01,
2367 + .661741D+01, .574103D+01, .499874D+01, .435710D+01,
2368 + .380439D+01, .332358D+01, .290339D+01, .253470D+01,
2369 + .221025D+01, .192412D+01, .167143D+01, .144820D+01,
2370 + .125100D+01, .107695D+01, .923563D+00, .788679D+00,
2371 + .670190D+00, .566978D+00, .476410D+00, .397797D+00,
2372 + .329856D+00, .271455D+00, .221534D+00, .179142D+00,
2373 + .143395D+00, .113508D+00, .887478D-01, .683767D-01,
2374 + .519797D-01, .387544D-01, .283210D-01, .202271D-01 /
2375 DATA (UPDI(I),I=8633,8684) /
2376 + .140648D-01, .947903D-02, .615114D-02, .382054D-02,
2377 + .223797D-02, .122448D-02, .610926D-03, .269239D-03,
2378 + .993092D-04, .279743D-04, .513279D-05, .450679D-06,
2379 + .000000D+00, .171827D+07, .129478D+07, .958272D+06,
2380 + .708764D+06, .523904D+06, .386979D+06, .285662D+06,
2381 + .210717D+06, .155336D+06, .114427D+06, .842389D+05,
2382 + .619708D+05, .455623D+05, .334760D+05, .245831D+05,
2383 + .180421D+05, .132362D+05, .970637D+04, .711653D+04,
2384 + .521682D+04, .382481D+04, .280488D+04, .205826D+04,
2385 + .151165D+04, .111174D+04, .819005D+03, .604977D+03,
2386 + .446300D+03, .331968D+03, .248062D+03, .186410D+03,
2387 + .140990D+03, .107438D+03, .826222D+02, .640923D+02,
2388 + .502178D+02, .397659D+02, .318284D+02, .257522D+02 /
2389 DATA (UPDI(I),I=8685,8736) /
2390 + .210523D+02, .173868D+02, .144906D+02, .121784D+02,
2391 + .103108D+02, .878596D+01, .752709D+01, .648121D+01,
2392 + .559509D+01, .484752D+01, .420401D+01, .365211D+01,
2393 + .317423D+01, .275860D+01, .239576D+01, .207812D+01,
2394 + .179952D+01, .155486D+01, .133996D+01, .115123D+01,
2395 + .985666D+00, .840627D+00, .713873D+00, .603215D+00,
2396 + .507431D+00, .423918D+00, .351897D+00, .290063D+00,
2397 + .237265D+00, .192438D+00, .154633D+00, .122977D+00,
2398 + .967005D-01, .750908D-01, .574443D-01, .433502D-01,
2399 + .320731D-01, .232507D-01, .164660D-01, .113476D-01,
2400 + .757526D-02, .486564D-02, .298892D-02, .172971D-02,
2401 + .933818D-03, .458979D-03, .198865D-03, .719407D-04,
2402 + .198313D-04, .357049D-05, .317389D-06, .000000D+00 /
2403 DATA (UPDI(I),I=8737,8788) /
2404 + .212584D+07, .159621D+07, .117640D+07, .866412D+06,
2405 + .637686D+06, .468980D+06, .344673D+06, .253115D+06,
2406 + .185751D+06, .136207D+06, .998090D+05, .730806D+05,
2407 + .534747D+05, .390997D+05, .285719D+05, .208651D+05,
2408 + .152297D+05, .111107D+05, .810347D+04, .590862D+04,
2409 + .430849D+04, .314211D+04, .229274D+04, .167421D+04,
2410 + .122412D+04, .896440D+03, .658201D+03, .482577D+03,
2411 + .356757D+03, .264951D+03, .197881D+03, .148756D+03,
2412 + .112674D+03, .861399D+02, .664365D+02, .517640D+02,
2413 + .407687D+02, .324607D+02, .261308D+02, .212567D+02,
2414 + .174711D+02, .144918D+02, .121220D+02, .102148D+02,
2415 + .866304D+01, .738641D+01, .632957D+01, .543749D+01,
2416 + .468781D+01, .404516D+01, .349638D+01, .302339D+01 /
2417 DATA (UPDI(I),I=8789,8840) /
2418 + .261397D+01, .225835D+01, .194866D+01, .167850D+01,
2419 + .144257D+01, .123651D+01, .105660D+01, .899707D+00,
2420 + .763096D+00, .644435D+00, .541479D+00, .452918D+00,
2421 + .376194D+00, .310453D+00, .254380D+00, .206817D+00,
2422 + .166707D+00, .133111D+00, .105176D+00, .821532D-01,
2423 + .633580D-01, .481240D-01, .360507D-01, .264677D-01,
2424 + .190331D-01, .133652D-01, .912841D-02, .603577D-02,
2425 + .383717D-02, .233116D-02, .133274D-02, .709923D-03,
2426 + .343739D-03, .146427D-03, .519588D-04, .140215D-04,
2427 + .247888D-05, .223052D-06, .000000D+00, .260334D+07,
2428 + .194799D+07, .142975D+07, .104863D+07, .768557D+06,
2429 + .562827D+06, .411865D+06, .301142D+06, .220020D+06,
2430 + .160616D+06, .117162D+06, .853932D+05, .621932D+05 /
2431 DATA (UPDI(I),I=8841,8892) /
2432 + .452599D+05, .329149D+05, .239196D+05, .173729D+05,
2433 + .126106D+05, .915042D+04, .663735D+04, .481429D+04,
2434 + .349211D+04, .253421D+04, .184026D+04, .133794D+04,
2435 + .974164D+03, .711124D+03, .518289D+03, .380906D+03,
2436 + .281222D+03, .208800D+03, .156053D+03, .117523D+03,
2437 + .893446D+02, .685312D+02, .531132D+02, .416165D+02,
2438 + .329713D+02, .264138D+02, .213859D+02, .174959D+02,
2439 + .144459D+02, .120284D+02, .100894D+02, .851701D+01,
2440 + .722782D+01, .616431D+01, .526987D+01, .452111D+01,
2441 + .388188D+01, .333838D+01, .287208D+01, .247038D+01,
2442 + .212322D+01, .182246D+01, .156150D+01, .133486D+01,
2443 + .113804D+01, .967198D+00, .819084D+00, .690890D+00,
2444 + .580215D+00, .484776D+00, .403190D+00, .332955D+00 /
2445 DATA (UPDI(I),I=8893,8944) /
2446 + .273161D+00, .222490D+00, .179793D+00, .144027D+00,
2447 + .114274D+00, .897069D-01, .696033D-01, .533111D-01,
2448 + .402040D-01, .298965D-01, .217803D-01, .155361D-01,
2449 + .108171D-01, .732183D-02, .479500D-02, .301708D-02,
2450 + .181267D-02, .102374D-02, .538050D-03, .256639D-03,
2451 + .107486D-03, .374175D-04, .988821D-05, .171775D-05,
2452 + .156433D-06, .000000D+00, .643478D+05, .926892D+05,
2453 + .709770D+05, .543567D+05, .416338D+05, .318938D+05,
2454 + .244369D+05, .187275D+05, .143558D+05, .110080D+05,
2455 + .844406D+04, .648011D+04, .497552D+04, .382262D+04,
2456 + .293901D+04, .226159D+04, .174209D+04, .134353D+04,
2457 + .103763D+04, .802704D+03, .622177D+03, .483345D+03,
2458 + .376481D+03, .294136D+03, .230604D+03, .181514D+03 /
2459 DATA (UPDI(I),I=8945,8996) /
2460 + .143517D+03, .113678D+03, .908530D+02, .730541D+02,
2461 + .591289D+02, .481931D+02, .395675D+02, .327489D+02,
2462 + .272992D+02, .229301D+02, .194026D+02, .165331D+02,
2463 + .141797D+02, .122320D+02, .106083D+02, .924023D+01,
2464 + .807816D+01, .708280D+01, .622373D+01, .547726D+01,
2465 + .482709D+01, .425237D+01, .374850D+01, .329995D+01,
2466 + .290370D+01, .255177D+01, .223894D+01, .196079D+01,
2467 + .171353D+01, .149386D+01, .129892D+01, .112618D+01,
2468 + .973368D+00, .838465D+00, .719642D+00, .615241D+00,
2469 + .523758D+00, .444175D+00, .374437D+00, .313940D+00,
2470 + .261660D+00, .216671D+00, .178139D+00, .145306D+00,
2471 + .117491D+00, .940799D-01, .745062D-01, .582612D-01,
2472 + .450245D-01, .341942D-01, .255082D-01, .186384D-01 /
2473 DATA (UPDI(I),I=8997,9048) /
2474 + .132932D-01, .921405D-02, .617224D-02, .396977D-02,
2475 + .241964D-02, .138420D-02, .726770D-03, .339395D-03,
2476 + .133738D-03, .402878D-04, .743385D-05, .413568D-06,
2477 + .000000D+00, .145677D+06, .113087D+06, .866679D+05,
2478 + .664186D+05, .509034D+05, .390125D+05, .299021D+05,
2479 + .229202D+05, .175712D+05, .134720D+05, .103314D+05,
2480 + .792469D+04, .608074D+04, .466750D+04, .358460D+04,
2481 + .275448D+04, .211824D+04, .163034D+04, .125622D+04,
2482 + .969166D+03, .748902D+03, .579740D+03, .449786D+03,
2483 + .349841D+03, .272927D+03, .213651D+03, .167927D+03,
2484 + .132135D+03, .104866D+03, .836865D+02, .671982D+02,
2485 + .543117D+02, .442061D+02, .362625D+02, .299561D+02,
2486 + .249323D+02, .209066D+02, .176548D+02, .150094D+02 /
2487 DATA (UPDI(I),I=9049,9100) /
2488 + .128369D+02, .110411D+02, .954032D+01, .827656D+01,
2489 + .720301D+01, .628451D+01, .549295D+01, .480933D+01,
2490 + .420981D+01, .368849D+01, .322793D+01, .282416D+01,
2491 + .246815D+01, .215395D+01, .187649D+01, .163147D+01,
2492 + .141522D+01, .122450D+01, .105652D+01, .908814D+00,
2493 + .779175D+00, .665632D+00, .566444D+00, .479983D+00,
2494 + .405183D+00, .339978D+00, .283716D+00, .235350D+00,
2495 + .193953D+00, .158683D+00, .128792D+00, .103605D+00,
2496 + .825234D-01, .650009D-01, .505393D-01, .388274D-01,
2497 + .293047D-01, .217169D-01, .157577D-01, .111546D-01,
2498 + .766994D-02, .509273D-02, .324452D-02, .195660D-02,
2499 + .110620D-02, .573026D-03, .263932D-03, .102337D-03,
2500 + .302523D-04, .548348D-05, .309451D-06, .000000D+00 /
2501 DATA (UPDI(I),I=9101,9152) /
2502 + .181444D+06, .140771D+06, .107806D+06, .825477D+05,
2503 + .632053D+05, .483885D+05, .370448D+05, .283574D+05,
2504 + .217080D+05, .166169D+05, .127211D+05, .973885D+04,
2505 + .745723D+04, .571098D+04, .437517D+04, .335288D+04,
2506 + .257091D+04, .197245D+04, .151462D+04, .116416D+04,
2507 + .895961D+03, .690549D+03, .533240D+03, .412638D+03,
2508 + .320160D+03, .249152D+03, .194610D+03, .152093D+03,
2509 + .119853D+03, .949316D+02, .756347D+02, .606346D+02,
2510 + .489418D+02, .398061D+02, .326014D+02, .268999D+02,
2511 + .223641D+02, .187261D+02, .157891D+02, .133951D+02,
2512 + .114319D+02, .980385D+01, .844383D+01, .729745D+01,
2513 + .632443D+01, .549225D+01, .477909D+01, .415825D+01,
2514 + .362240D+01, .315233D+01, .274310D+01, .238469D+01 /
2515 DATA (UPDI(I),I=9153,9204) /
2516 + .207045D+01, .179473D+01, .155276D+01, .134047D+01,
2517 + .115435D+01, .991365D+00, .848844D+00, .724449D+00,
2518 + .616082D+00, .521930D+00, .440272D+00, .369995D+00,
2519 + .309043D+00, .256722D+00, .211971D+00, .173866D+00,
2520 + .141567D+00, .114338D+00, .915147D-01, .725151D-01,
2521 + .568137D-01, .439267D-01, .335523D-01, .251691D-01,
2522 + .185321D-01, .133554D-01, .938541D-02, .640357D-02,
2523 + .421603D-02, .266173D-02, .158906D-02, .888560D-03,
2524 + .454618D-03, .206161D-03, .784750D-04, .227007D-04,
2525 + .402911D-05, .230985D-06, .000000D+00, .228346D+06,
2526 + .176882D+06, .135209D+06, .103328D+06, .789548D+05,
2527 + .603159D+05, .460725D+05, .351847D+05, .268681D+05,
2528 + .205134D+05, .156615D+05, .119557D+05, .912740D+04 /
2529 DATA (UPDI(I),I=9205,9256) /
2530 + .696806D+04, .532063D+04, .406324D+04, .310423D+04,
2531 + .237243D+04, .181436D+04, .138854D+04, .106381D+04,
2532 + .815970D+03, .626892D+03, .482497D+03, .372234D+03,
2533 + .287933D+03, .223483D+03, .173478D+03, .135752D+03,
2534 + .106740D+03, .844004D+02, .671336D+02, .537548D+02,
2535 + .433663D+02, .352270D+02, .288285D+02, .237734D+02,
2536 + .197470D+02, .165200D+02, .139086D+02, .117830D+02,
2537 + .100332D+02, .858225D+01, .736817D+01, .634524D+01,
2538 + .547662D+01, .473752D+01, .409852D+01, .355079D+01,
2539 + .307345D+01, .266060D+01, .230129D+01, .198821D+01,
2540 + .171515D+01, .147690D+01, .126908D+01, .108788D+01,
2541 + .930074D+00, .792814D+00, .673640D+00, .570356D+00,
2542 + .481084D+00, .404034D+00, .338056D+00, .281112D+00 /
2543 DATA (UPDI(I),I=9257,9308) /
2544 + .232474D+00, .191078D+00, .156007D+00, .126428D+00,
2545 + .101620D+00, .809326D-01, .638030D-01, .497260D-01,
2546 + .382353D-01, .290391D-01, .216530D-01, .158424D-01,
2547 + .113409D-01, .791310D-02, .535815D-02, .349871D-02,
2548 + .218939D-02, .129432D-02, .716037D-03, .361974D-03,
2549 + .161955D-03, .607039D-04, .172625D-04, .301935D-05,
2550 + .173783D-06, .000000D+00, .176316D+06, .222769D+06,
2551 + .169841D+06, .129445D+06, .986387D+05, .751385D+05,
2552 + .572269D+05, .435711D+05, .331688D+05, .252426D+05,
2553 + .192084D+05, .146132D+05, .111169D+05, .845580D+04,
2554 + .643221D+04, .489284D+04, .372280D+04, .283311D+04,
2555 + .215713D+04, .164326D+04, .125293D+04, .956212D+03,
2556 + .730789D+03, .559375D+03, .429067D+03, .329899D+03 /
2557 DATA (UPDI(I),I=9309,9360) /
2558 + .254454D+03, .196208D+03, .152493D+03, .119055D+03,
2559 + .934514D+02, .737757D+02, .586213D+02, .469265D+02,
2560 + .378219D+02, .307111D+02, .251307D+02, .207160D+02,
2561 + .172021D+02, .143782D+02, .120958D+02, .102299D+02,
2562 + .869353D+01, .741680D+01, .634845D+01, .544735D+01,
2563 + .468570D+01, .403146D+01, .347427D+01, .299171D+01,
2564 + .257690D+01, .221803D+01, .190715D+01, .163754D+01,
2565 + .140362D+01, .120068D+01, .102467D+01, .872192D+00,
2566 + .740240D+00, .626252D+00, .527955D+00, .443414D+00,
2567 + .370793D+00, .308909D+00, .255754D+00, .210571D+00,
2568 + .172302D+00, .140037D+00, .112960D+00, .903632D-01,
2569 + .716153D-01, .561735D-01, .435529D-01, .333068D-01,
2570 + .251540D-01, .186451D-01, .135567D-01, .964084D-02 /
2571 DATA (UPDI(I),I=9361,9412) /
2572 + .667982D-02, .448937D-02, .290776D-02, .180384D-02,
2573 + .105622D-02, .578220D-03, .288895D-03, .127572D-03,
2574 + .471043D-04, .131753D-04, .227294D-05, .132821D-06,
2575 + .000000D+00, .382348D+06, .294550D+06, .223718D+06,
2576 + .169853D+06, .128921D+06, .978134D+05, .741911D+05,
2577 + .562512D+05, .426382D+05, .323074D+05, .244740D+05,
2578 + .185338D+05, .140330D+05, .106224D+05, .804014D+04,
2579 + .608476D+04, .460533D+04, .348574D+04, .263916D+04,
2580 + .199884D+04, .151489D+04, .114896D+04, .872426D+03,
2581 + .663316D+03, .505246D+03, .385656D+03, .295225D+03,
2582 + .225846D+03, .174107D+03, .134796D+03, .104898D+03,
2583 + .820848D+02, .646391D+02, .512768D+02, .409521D+02,
2584 + .329514D+02, .267217D+02, .218331D+02, .179730D+02 /
2585 DATA (UPDI(I),I=9413,9464) /
2586 + .148963D+02, .124296D+02, .104294D+02, .879564D+01,
2587 + .744887D+01, .633073D+01, .539497D+01, .461004D+01,
2588 + .394086D+01, .337512D+01, .288871D+01, .247352D+01,
2589 + .211680D+01, .180987D+01, .154545D+01, .131751D+01,
2590 + .112101D+01, .951643D+00, .805810D+00, .680368D+00,
2591 + .572647D+00, .480297D+00, .401333D+00, .333883D+00,
2592 + .276734D+00, .227922D+00, .186670D+00, .151929D+00,
2593 + .122809D+00, .985140D-01, .783599D-01, .617396D-01,
2594 + .481358D-01, .370897D-01, .281801D-01, .211393D-01,
2595 + .155584D-01, .112281D-01, .792207D-02, .544302D-02,
2596 + .362546D-02, .232546D-02, .142756D-02, .826239D-03,
2597 + .446555D-03, .219899D-03, .955048D-04, .345805D-04,
2598 + .945071D-05, .159216D-05, .948074D-07, .000000D+00 /
2599 DATA (UPDI(I),I=9465,9516) /
2600 + .503944D+06, .386832D+06, .292583D+06, .221198D+06,
2601 + .167172D+06, .126281D+06, .953584D+05, .719741D+05,
2602 + .543055D+05, .409557D+05, .308777D+05, .232698D+05,
2603 + .175316D+05, .132037D+05, .994231D+04, .748459D+04,
2604 + .563414D+04, .424078D+04, .319254D+04, .240379D+04,
2605 + .181082D+04, .136487D+04, .102972D+04, .777728D+03,
2606 + .588337D+03, .445899D+03, .338849D+03, .257235D+03,
2607 + .196761D+03, .151116D+03, .116632D+03, .905027D+02,
2608 + .706606D+02, .555731D+02, .440001D+02, .350996D+02,
2609 + .282212D+02, .228650D+02, .186680D+02, .153486D+02,
2610 + .127075D+02, .105824D+02, .885964D+01, .745021D+01,
2611 + .628869D+01, .532372D+01, .452009D+01, .383982D+01,
2612 + .326871D+01, .278105D+01, .236758D+01, .201470D+01 /
2613 DATA (UPDI(I),I=9517,9568) /
2614 + .171303D+01, .145480D+01, .123357D+01, .104404D+01,
2615 + .881656D+00, .742673D+00, .623825D+00, .522360D+00,
2616 + .435875D+00, .362349D+00, .299895D+00, .247277D+00,
2617 + .202591D+00, .165041D+00, .133599D+00, .107398D+00,
2618 + .856672D-01, .677483D-01, .530619D-01, .411172D-01,
2619 + .314820D-01, .237617D-01, .177033D-01, .129359D-01,
2620 + .926511D-02, .648503D-02, .441807D-02, .291630D-02,
2621 + .185245D-02, .112534D-02, .643887D-03, .343654D-03,
2622 + .166875D-03, .713504D-04, .253816D-04, .680399D-05,
2623 + .112826D-05, .679097D-07, .000000D+00, .658047D+06,
2624 + .503240D+06, .378976D+06, .285255D+06, .214623D+06,
2625 + .161393D+06, .121315D+06, .911405D+05, .684427D+05,
2626 + .513705D+05, .385413D+05, .289016D+05, .216651D+05 /
2627 DATA (UPDI(I),I=9569,9620) /
2628 + .162332D+05, .121597D+05, .910510D+04, .681673D+04,
2629 + .510241D+04, .381934D+04, .285899D+04, .214086D+04,
2630 + .160373D+04, .120230D+04, .902184D+03, .677927D+03,
2631 + .510260D+03, .385014D+03, .290121D+03, .220253D+03,
2632 + .167860D+03, .128538D+03, .989440D+02, .766239D+02,
2633 + .597715D+02, .469357D+02, .371354D+02, .296160D+02,
2634 + .238038D+02, .192824D+02, .157328D+02, .129289D+02,
2635 + .106892D+02, .888639D+01, .742201D+01, .622359D+01,
2636 + .523486D+01, .441705D+01, .372943D+01, .315599D+01,
2637 + .266955D+01, .225977D+01, .191227D+01, .161704D+01,
2638 + .136589D+01, .115203D+01, .969906D+00, .814791D+00,
2639 + .682803D+00, .570586D+00, .475331D+00, .394601D+00,
2640 + .326355D+00, .268708D+00, .220412D+00, .179628D+00 /
2641 DATA (UPDI(I),I=9621,9672) /
2642 + .145552D+00, .117183D+00, .936797D-01, .743013D-01,
2643 + .584187D-01, .454813D-01, .350262D-01, .266481D-01,
2644 + .199796D-01, .147834D-01, .107244D-01, .762287D-02,
2645 + .529293D-02, .357540D-02, .233879D-02, .147119D-02,
2646 + .884433D-03, .500278D-03, .263684D-03, .126275D-03,
2647 + .531606D-04, .185853D-04, .489000D-05, .799053D-06,
2648 + .490608D-07, .000000D+00, .850309D+06, .647826D+06,
2649 + .485714D+06, .363971D+06, .272616D+06, .204069D+06,
2650 + .152686D+06, .114172D+06, .853317D+05, .637388D+05,
2651 + .475875D+05, .355084D+05, .264837D+05, .197422D+05,
2652 + .147112D+05, .109573D+05, .815910D+04, .607356D+04,
2653 + .452072D+04, .336457D+04, .250463D+04, .186494D+04,
2654 + .138950D+04, .103605D+04, .773455D+03, .578269D+03 /
2655 DATA (UPDI(I),I=9673,9724) /
2656 + .433339D+03, .324208D+03, .244357D+03, .184859D+03,
2657 + .140489D+03, .107317D+03, .824644D+02, .638273D+02,
2658 + .497285D+02, .390389D+02, .308937D+02, .246421D+02,
2659 + .198125D+02, .160475D+02, .130938D+02, .107506D+02,
2660 + .887721D+01, .736579D+01, .613704D+01, .512996D+01,
2661 + .430237D+01, .361100D+01, .303809D+01, .255517D+01,
2662 + .215088D+01, .181014D+01, .152241D+01, .127910D+01,
2663 + .107314D+01, .898773D+00, .751122D+00, .626205D+00,
2664 + .520604D+00, .431471D+00, .356355D+00, .293210D+00,
2665 + .240165D+00, .195974D+00, .158865D+00, .128036D+00,
2666 + .102518D+00, .814994D-01, .642724D-01, .502383D-01,
2667 + .388774D-01, .297550D-01, .224931D-01, .167518D-01,
2668 + .123096D-01, .886496D-02, .625325D-02, .430712D-02 /
2669 DATA (UPDI(I),I=9725,9776) /
2670 + .288479D-02, .186999D-02, .116488D-02, .692996D-03,
2671 + .387531D-03, .201722D-03, .952755D-04, .394979D-04,
2672 + .135743D-04, .350694D-05, .564976D-06, .353858D-07,
2673 + .000000D+00, .108677D+07, .824880D+06, .615747D+06,
2674 + .459367D+06, .342525D+06, .255238D+06, .190093D+06,
2675 + .141482D+06, .105245D+06, .782378D+05, .581296D+05,
2676 + .431616D+05, .320313D+05, .237567D+05, .176116D+05,
2677 + .130489D+05, .966486D+04, .715541D+04, .529652D+04,
2678 + .391973D+04, .290108D+04, .214741D+04, .159032D+04,
2679 + .117847D+04, .874220D+03, .649365D+03, .483390D+03,
2680 + .359165D+03, .268826D+03, .201930D+03, .152356D+03,
2681 + .115531D+03, .881190D+02, .676977D+02, .523505D+02,
2682 + .407924D+02, .320438D+02, .253741D+02, .202556D+02 /
2683 DATA (UPDI(I),I=9777,9828) /
2684 + .162919D+02, .132026D+02, .107679D+02, .883374D+01,
2685 + .728331D+01, .603078D+01, .501063D+01, .417750D+01,
2686 + .348580D+01, .291610D+01, .243882D+01, .204164D+01,
2687 + .170890D+01, .142957D+01, .119475D+01, .997128D+00,
2688 + .830770D+00, .690706D+00, .572878D+00, .473828D+00,
2689 + .390692D+00, .321019D+00, .262775D+00, .214117D+00,
2690 + .173805D+00, .140144D+00, .112338D+00, .894545D-01,
2691 + .707161D-01, .554490D-01, .430867D-01, .331416D-01,
2692 + .252070D-01, .189327D-01, .140056D-01, .102203D-01,
2693 + .730665D-02, .511466D-02, .349455D-02, .232063D-02,
2694 + .149067D-02, .919567D-03, .541362D-03, .299295D-03,
2695 + .153863D-03, .716778D-04, .292648D-04, .988899D-05,
2696 + .250957D-05, .398771D-06, .254754D-07, .000000D+00 /
2697 DATA (UPDI(I),I=9829,9880) /
2698 + .137374D+07, .103886D+07, .772110D+06, .573496D+06,
2699 + .425730D+06, .315817D+06, .234143D+06, .173468D+06,
2700 + .128438D+06, .950293D+05, .702683D+05, .519221D+05,
2701 + .383434D+05, .282965D+05, .208708D+05, .153843D+05,
2702 + .113349D+05, .834719D+04, .614520D+04, .452269D+04,
2703 + .332849D+04, .244962D+04, .180347D+04, .132840D+04,
2704 + .979395D+03, .722913D+03, .534687D+03, .394640D+03,
2705 + .293403D+03, .218892D+03, .164011D+03, .123498D+03,
2706 + .935281D+02, .713437D+02, .547771D+02, .423809D+02,
2707 + .330577D+02, .259957D+02, .206103D+02, .164664D+02,
2708 + .132567D+02, .107428D+02, .875791D+01, .717652D+01,
2709 + .590664D+01, .487856D+01, .404394D+01, .335510D+01,
2710 + .279111D+01, .232138D+01, .193277D+01, .160910D+01 /
2711 DATA (UPDI(I),I=9881,9932) /
2712 + .133895D+01, .111314D+01, .924175D+00, .766005D+00,
2713 + .633582D+00, .522802D+00, .430194D+00, .352894D+00,
2714 + .288472D+00, .234914D+00, .190416D+00, .153755D+00,
2715 + .123315D+00, .983113D-01, .778532D-01, .611984D-01,
2716 + .477097D-01, .368539D-01, .281751D-01, .212955D-01,
2717 + .158915D-01, .116766D-01, .846143D-02, .600497D-02,
2718 + .417126D-02, .282698D-02, .186131D-02, .118478D-02,
2719 + .723763D-03, .421650D-03, .230466D-03, .117014D-03,
2720 + .537699D-04, .216230D-04, .718590D-05, .179192D-05,
2721 + .280964D-06, .183055D-07, .000000D+00, .171773D+07,
2722 + .129430D+07, .957849D+06, .708392D+06, .523576D+06,
2723 + .386690D+06, .285407D+06, .210493D+06, .155139D+06,
2724 + .114254D+06, .840871D+05, .618375D+05, .454455D+05 /
2725 DATA (UPDI(I),I=9933,9984) /
2726 + .333736D+05, .244933D+05, .179634D+05, .131674D+05,
2727 + .964612D+04, .706382D+04, .517071D+04, .378447D+04,
2728 + .276959D+04, .202738D+04, .148461D+04, .108805D+04,
2729 + .798216D+03, .586718D+03, .430264D+03, .317828D+03,
2730 + .235562D+03, .175328D+03, .131133D+03, .986369D+02,
2731 + .747304D+02, .569869D+02, .437923D+02, .339293D+02,
2732 + .265044D+02, .208765D+02, .165722D+02, .132579D+02,
2733 + .106775D+02, .865189D+01, .704748D+01, .576652D+01,
2734 + .473541D+01, .390313D+01, .322014D+01, .266412D+01,
2735 + .220369D+01, .182493D+01, .151125D+01, .125090D+01,
2736 + .103451D+01, .854444D+00, .704556D+00, .579761D+00,
2737 + .475939D+00, .389625D+00, .317974D+00, .258589D+00,
2738 + .209489D+00, .168918D+00, .135677D+00, .108232D+00 /
2739 DATA (UPDI(I),I=9985,10036) /
2740 + .858167D-01, .675819D-01, .528238D-01, .409427D-01,
2741 + .314388D-01, .238886D-01, .179421D-01, .133022D-01,
2742 + .970791D-02, .698567D-02, .492124D-02, .339218D-02,
2743 + .228038D-02, .148860D-02, .938925D-03, .567993D-03,
2744 + .327454D-03, .176950D-03, .887342D-04, .402224D-04,
2745 + .159333D-04, .520864D-05, .127673D-05, .197615D-06,
2746 + .131282D-07, .000000D+00, .212526D+07, .159570D+07,
2747 + .117596D+07, .866019D+06, .637340D+06, .468675D+06,
2748 + .344404D+06, .252879D+06, .185543D+06, .136025D+06,
2749 + .996491D+05, .729403D+05, .533517D+05, .389919D+05,
2750 + .284775D+05, .207823D+05, .151573D+05, .110473D+05,
2751 + .804801D+04, .586011D+04, .426604D+04, .310496D+04,
2752 + .226023D+04, .164573D+04, .119916D+04, .874531D+03 /
2753 DATA (UPDI(I),I=10037,10088) /
2754 + .638951D+03, .465665D+03, .341840D+03, .251763D+03,
2755 + .186189D+03, .138359D+03, .103396D+03, .778279D+02,
2756 + .589626D+02, .450175D+02, .346546D+02, .268995D+02,
2757 + .210552D+02, .166112D+02, .132086D+02, .105744D+02,
2758 + .851809D+01, .689841D+01, .561238D+01, .458289D+01,
2759 + .375651D+01, .308211D+01, .253612D+01, .208651D+01,
2760 + .171870D+01, .141578D+01, .116575D+01, .959085D+00,
2761 + .788054D+00, .646469D+00, .529233D+00, .432233D+00,
2762 + .352031D+00, .285818D+00, .231239D+00, .186359D+00,
2763 + .149479D+00, .119429D+00, .947575D-01, .747216D-01,
2764 + .585167D-01, .454784D-01, .350445D-01, .267493D-01,
2765 + .202008D-01, .150765D-01, .111048D-01, .804922D-02,
2766 + .575148D-02, .402195D-02, .275093D-02, .183431D-02 /
2767 DATA (UPDI(I),I=10089,10140) /
2768 + .118715D-02, .741977D-03, .444481D-03, .253577D-03,
2769 + .135475D-03, .670999D-04, .300056D-04, .117098D-04,
2770 + .376626D-05, .907751D-06, .138756D-06, .939719D-08,
2771 + .000000D+00, .260274D+07, .194746D+07, .142928D+07,
2772 + .104822D+07, .768192D+06, .562505D+06, .411582D+06,
2773 + .300893D+06, .219802D+06, .160424D+06, .116994D+06,
2774 + .852455D+05, .620637D+05, .451464D+05, .328155D+05,
2775 + .238326D+05, .172967D+05, .125439D+05, .909209D+04,
2776 + .658632D+04, .476964D+04, .345304D+04, .250000D+04,
2777 + .181028D+04, .131166D+04, .951093D+03, .690848D+03,
2778 + .500473D+03, .365191D+03, .267329D+03, .196487D+03,
2779 + .145108D+03, .107765D+03, .806117D+02, .606913D+02,
2780 + .460506D+02, .352321D+02, .271817D+02, .211485D+02 /
2781 DATA (UPDI(I),I=10141,10192) /
2782 + .165861D+02, .131117D+02, .104364D+02, .835903D+01,
2783 + .673154D+01, .544615D+01, .442265D+01, .360546D+01,
2784 + .294212D+01, .240800D+01, .197054D+01, .161462D+01,
2785 + .132309D+01, .108377D+01, .887022D+00, .725088D+00,
2786 + .591761D+00, .481964D+00, .391610D+00, .317309D+00,
2787 + .256301D+00, .206287D+00, .165385D+00, .131957D+00,
2788 + .104870D+00, .827566D-01, .648999D-01, .505411D-01,
2789 + .390557D-01, .299198D-01, .227010D-01, .170381D-01,
2790 + .126355D-01, .924604D-02, .665620D-02, .472267D-02,
2791 + .327812D-02, .222484D-02, .147146D-02, .944150D-03,
2792 + .584720D-03, .346863D-03, .195823D-03, .103435D-03,
2793 + .506017D-04, .223241D-04, .858381D-05, .271691D-05,
2794 + .644093D-06, .972686D-07, .671403D-08, .000000D+00 /
2795 C-----------------------------------------------------------------------
2801 Amass(I) = AmassI(I)
2823 QL(Iq) = Log (QL(Iq) /Al)
2826 C Since quark = anti-quark for nfl>2 at this stage,
2827 C we Read out only the non-redundent data points
2828 C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence)
2830 Nblk = (NX+1) * (NT+1)
2831 Npts = Nblk * (NfMx+3)
2837 C ****************************
git://git.uio.no / u / mrichter / AliRoot.git / blob