1 C-----------------------------------------------------------------------
3 Subroutine Ctq4RL (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 : CTEQ4L
20 DATA DrI, FlI, AlI / 1., 5., .1810 /
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, .203730D+01, .266455D+01, .359020D+01, .500000D+01,
27 + .799639D+01, .136669D+02, .251990D+02, .506628D+02, .112437D+03,
28 + .279329D+03, .789295D+03, .258339D+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 + .278665D+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, .132963D+06,
174 + .100189D+06, .741546D+05, .548596D+05, .405595D+05,
175 + .299670D+05, .221256D+05, .163242D+05, .120349D+05,
176 + .886568D+04, .652565D+04, .479912D+04, .352623D+04 /
177 DATA (UPDI(I),I=469,520) /
178 + .258852D+04, .189832D+04, .139072D+04, .101777D+04,
179 + .743999D+03, .543244D+03, .396178D+03, .288567D+03,
180 + .209911D+03, .152492D+03, .110625D+03, .801401D+02,
181 + .579715D+02, .418800D+02, .300726D+02, .216679D+02,
182 + .155921D+02, .112068D+02, .804661D+01, .577271D+01,
183 + .414331D+01, .297103D+01, .213137D+01, .153051D+01,
184 + .110076D+01, .793429D+00, .573441D+00, .416033D+00,
185 + .303007D+00, .221688D+00, .162989D+00, .120455D+00,
186 + .894941D-01, .669241D-01, .502184D-01, .379402D-01,
187 + .287514D-01, .219060D-01, .167564D-01, .128616D-01,
188 + .990087D-02, .763937D-02, .590448D-02, .456844D-02,
189 + .353613D-02, .273626D-02, .211510D-02, .163190D-02,
190 + .125570D-02, .962520D-03, .735143D-03, .557137D-03 /
191 DATA (UPDI(I),I=521,572) /
192 + .419009D-03, .312138D-03, .229783D-03, .166661D-03,
193 + .118615D-03, .823654D-04, .553106D-04, .354601D-04,
194 + .210951D-04, .110714D-04, .421785D-05, .000000D+00,
195 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
196 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
197 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
198 + .000000D+00, .000000D+00, .305489D+06, .229635D+06,
199 + .169475D+06, .125009D+06, .921462D+05, .678731D+05,
200 + .499564D+05, .367403D+05, .269984D+05, .198226D+05,
201 + .145411D+05, .106568D+05, .780258D+04, .570697D+04,
202 + .416980D+04, .304328D+04, .221856D+04, .161538D+04,
203 + .117474D+04, .853172D+03, .618801D+03, .448180D+03,
204 + .324140D+03, .234076D+03, .168783D+03, .121506D+03 /
205 DATA (UPDI(I),I=573,624) /
206 + .873488D+02, .624023D+02, .447306D+02, .320177D+02,
207 + .228879D+02, .163426D+02, .116576D+02, .831850D+01,
208 + .592935D+01, .422774D+01, .301704D+01, .215618D+01,
209 + .154419D+01, .110877D+01, .799112D+00, .578130D+00,
210 + .420127D+00, .306786D+00, .225177D+00, .166141D+00,
211 + .123382D+00, .919300D-01, .689634D-01, .518861D-01,
212 + .392470D-01, .298013D-01, .227053D-01, .173476D-01,
213 + .132838D-01, .101885D-01, .782234D-02, .600797D-02,
214 + .461317D-02, .353884D-02, .271020D-02, .207067D-02,
215 + .157681D-02, .119742D-02, .903284D-03, .677333D-03,
216 + .504289D-03, .372294D-03, .272127D-03, .196591D-03,
217 + .140067D-03, .981673D-04, .674484D-04, .451910D-04,
218 + .294801D-04, .184481D-04, .109576D-04, .603335D-05 /
219 DATA (UPDI(I),I=625,676) /
220 + .293292D-05, .109535D-05, .103726D-06, .000000D+00,
221 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
222 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
223 + .000000D+00, .524297D+06, .393110D+06, .289242D+06,
224 + .212693D+06, .156286D+06, .114749D+06, .841828D+05,
225 + .617065D+05, .451914D+05, .330660D+05, .241709D+05,
226 + .176510D+05, .128765D+05, .938318D+04, .682990D+04,
227 + .496551D+04, .360565D+04, .261482D+04, .189377D+04,
228 + .136963D+04, .989151D+03, .713289D+03, .513582D+03,
229 + .369190D+03, .264970D+03, .189836D+03, .135807D+03,
230 + .965303D+02, .688411D+02, .490188D+02, .348540D+02,
231 + .247509D+02, .175566D+02, .124564D+02, .882699D+01,
232 + .625630D+01, .443759D+01, .315180D+01, .224308D+01 /
233 DATA (UPDI(I),I=677,728) /
234 + .160034D+01, .114597D+01, .823676D+00, .594634D+00,
235 + .431340D+00, .314490D+00, .230478D+00, .170009D+00,
236 + .125806D+00, .937315D-01, .700327D-01, .526046D-01,
237 + .396638D-01, .300051D-01, .227608D-01, .173028D-01,
238 + .131741D-01, .100400D-01, .765394D-02, .583308D-02,
239 + .444115D-02, .337585D-02, .256023D-02, .193549D-02,
240 + .145956D-02, .109378D-02, .815267D-03, .603886D-03,
241 + .444113D-03, .323965D-03, .234167D-03, .167543D-03,
242 + .118540D-03, .828232D-04, .570586D-04, .388803D-04,
243 + .260468D-04, .172055D-04, .112191D-04, .723989D-05,
244 + .464030D-05, .297433D-05, .191524D-05, .123851D-05,
245 + .803010D-06, .512406D-06, .311845D-06, .171966D-06,
246 + .790334D-07, .241300D-07, .198761D-08, .000000D+00 /
247 DATA (UPDI(I),I=729,780) /
248 + .796347D+06, .595511D+06, .436780D+06, .320154D+06,
249 + .234481D+06, .171591D+06, .125460D+06, .916482D+05,
250 + .668863D+05, .487670D+05, .355202D+05, .258442D+05,
251 + .187834D+05, .136359D+05, .988732D+04, .716023D+04,
252 + .517863D+04, .374034D+04, .269774D+04, .194289D+04,
253 + .139716D+04, .100311D+04, .719042D+03, .514536D+03,
254 + .367576D+03, .262093D+03, .186594D+03, .131966D+03,
255 + .936381D+02, .663325D+02, .469166D+02, .331381D+02,
256 + .233769D+02, .164932D+02, .116208D+02, .818845D+01,
257 + .577361D+01, .407598D+01, .288305D+01, .204417D+01,
258 + .145461D+01, .103888D+01, .745197D+00, .537069D+00,
259 + .389037D+00, .283243D+00, .207563D+00, .152574D+00,
260 + .112920D+00, .838022D-01, .625224D-01, .468207D-01 /
261 DATA (UPDI(I),I=781,832) /
262 + .351761D-01, .264984D-01, .200032D-01, .151226D-01,
263 + .114429D-01, .866079D-02, .655273D-02, .495288D-02,
264 + .373753D-02, .281412D-02, .211223D-02, .158178D-02,
265 + .117739D-02, .872035D-03, .642229D-03, .470001D-03,
266 + .341584D-03, .246404D-03, .176352D-03, .125205D-03,
267 + .881595D-04, .615613D-04, .428317D-04, .295812D-04,
268 + .203776D-04, .140382D-04, .969633D-05, .672368D-05,
269 + .468307D-05, .326037D-05, .224493D-05, .151202D-05,
270 + .974170D-06, .582408D-06, .308228D-06, .132863D-06,
271 + .376866D-07, .321032D-08, .000000D+00, .112848D+07,
272 + .841593D+06, .615267D+06, .449498D+06, .328114D+06,
273 + .239297D+06, .174363D+06, .126928D+06, .923070D+05,
274 + .670598D+05, .486662D+05, .352783D+05, .255438D+05 /
275 DATA (UPDI(I),I=833,884) /
276 + .184730D+05, .133428D+05, .962462D+04, .693319D+04,
277 + .498724D+04, .358223D+04, .256904D+04, .183953D+04,
278 + .131497D+04, .938417D+03, .668486D+03, .475360D+03,
279 + .337349D+03, .239025D+03, .168212D+03, .118765D+03,
280 + .837060D+02, .588988D+02, .413822D+02, .290355D+02,
281 + .203734D+02, .142744D+02, .100010D+02, .701081D+01,
282 + .492027D+01, .345948D+01, .243803D+01, .172427D+01,
283 + .122386D+01, .872411D+00, .624801D+00, .449728D+00,
284 + .325341D+00, .236892D+00, .173005D+00, .127214D+00,
285 + .937919D-01, .695158D-01, .517134D-01, .385928D-01,
286 + .288768D-01, .216508D-01, .162564D-01, .122160D-01,
287 + .918181D-02, .689847D-02, .517774D-02, .387989D-02,
288 + .290104D-02, .216248D-02, .160855D-02, .118952D-02 /
289 DATA (UPDI(I),I=885,936) /
290 + .875588D-03, .641211D-03, .466957D-03, .338057D-03,
291 + .243257D-03, .174001D-03, .123768D-03, .875965D-04,
292 + .617294D-04, .435440D-04, .306536D-04, .216377D-04,
293 + .153425D-04, .109345D-04, .782185D-05, .559704D-05,
294 + .397531D-05, .276671D-05, .186425D-05, .118947D-05,
295 + .697546D-06, .358819D-06, .148612D-06, .402293D-07,
296 + .349213D-08, .000000D+00, .152723D+07, .113585D+07,
297 + .827651D+06, .602643D+06, .438415D+06, .318647D+06,
298 + .231375D+06, .167838D+06, .121623D+06, .880382D+05,
299 + .636565D+05, .459734D+05, .331624D+05, .238911D+05,
300 + .171893D+05, .123505D+05, .886126D+04, .634832D+04,
301 + .454110D+04, .324309D+04, .231232D+04, .164579D+04,
302 + .116935D+04, .829272D+03, .587015D+03, .414649D+03 /
303 DATA (UPDI(I),I=937,988) /
304 + .292413D+03, .204783D+03, .143879D+03, .100902D+03,
305 + .706385D+02, .493742D+02, .344605D+02, .240505D+02,
306 + .167586D+02, .116762D+02, .813884D+01, .567914D+01,
307 + .396980D+01, .278117D+01, .195523D+01, .137943D+01,
308 + .977333D+00, .695657D+00, .497647D+00, .357768D+00,
309 + .258885D+00, .187873D+00, .137278D+00, .100566D+00,
310 + .740605D-01, .547398D-01, .405866D-01, .301705D-01,
311 + .224721D-01, .167613D-01, .125114D-01, .934085D-02,
312 + .697075D-02, .519675D-02, .386798D-02, .287290D-02,
313 + .212740D-02, .157234D-02, .115555D-02, .845635D-03,
314 + .615995D-03, .446540D-03, .322117D-03, .231261D-03,
315 + .165327D-03, .117785D-03, .837224D-04, .594364D-04,
316 + .423746D-04, .302487D-04, .217076D-04, .156697D-04 /
317 DATA (UPDI(I),I=989,1040) /
318 + .113642D-04, .825288D-05, .596837D-05, .426071D-05,
319 + .296193D-05, .198090D-05, .124676D-05, .716879D-06,
320 + .359257D-06, .143690D-06, .373766D-07, .329571D-08,
321 + .000000D+00, .199870D+07, .148239D+07, .107658D+07,
322 + .781264D+06, .566429D+06, .410272D+06, .296869D+06,
323 + .214587D+06, .154944D+06, .111753D+06, .805074D+05,
324 + .579275D+05, .416284D+05, .298759D+05, .214123D+05,
325 + .153245D+05, .109514D+05, .781416D+04, .556683D+04,
326 + .395916D+04, .281100D+04, .199218D+04, .140933D+04,
327 + .995044D+03, .701203D+03, .493038D+03, .346083D+03,
328 + .241210D+03, .168660D+03, .117703D+03, .819911D+02,
329 + .570196D+02, .395913D+02, .274867D+02, .190506D+02,
330 + .132011D+02, .915097D+01, .634961D+01, .441328D+01 /
331 DATA (UPDI(I),I=1041,1092) /
332 + .307407D+01, .214860D+01, .150695D+01, .106136D+01,
333 + .750954D+00, .533979D+00, .381561D+00, .274431D+00,
334 + .197930D+00, .143739D+00, .104647D+00, .765859D-01,
335 + .562520D-01, .414452D-01, .306134D-01, .226565D-01,
336 + .167904D-01, .124524D-01, .923658D-02, .684824D-02,
337 + .507234D-02, .375107D-02, .276836D-02, .203715D-02,
338 + .149652D-02, .109344D-02, .795846D-03, .576905D-03,
339 + .416480D-03, .299492D-03, .214621D-03, .153397D-03,
340 + .109474D-03, .781311D-04, .558281D-04, .401537D-04,
341 + .289744D-04, .210413D-04, .153675D-04, .112582D-04,
342 + .823536D-05, .597433D-05, .425950D-05, .294336D-05,
343 + .194768D-05, .120736D-05, .680559D-06, .332555D-06,
344 + .128736D-06, .322975D-07, .288884D-08, .000000D+00 /
345 DATA (UPDI(I),I=1093,1144) /
346 + .254837D+07, .188486D+07, .136432D+07, .986753D+06,
347 + .712982D+06, .514648D+06, .371099D+06, .267300D+06,
348 + .192319D+06, .138210D+06, .992042D+05, .711171D+05,
349 + .509158D+05, .364031D+05, .259905D+05, .185288D+05,
350 + .131893D+05, .937343D+04, .665069D+04, .471063D+04,
351 + .333066D+04, .235051D+04, .165571D+04, .116392D+04,
352 + .816591D+03, .571584D+03, .399393D+03, .277058D+03,
353 + .192815D+03, .133917D+03, .928312D+02, .642387D+02,
354 + .443789D+02, .306529D+02, .211343D+02, .145673D+02,
355 + .100436D+02, .693092D+01, .479065D+01, .331821D+01,
356 + .230610D+01, .160815D+01, .112609D+01, .792119D+00,
357 + .559953D+00, .397758D+00, .284391D+00, .203885D+00,
358 + .147179D+00, .106503D+00, .774721D-01, .565564D-01 /
359 DATA (UPDI(I),I=1145,1196) /
360 + .414142D-01, .304021D-01, .223609D-01, .164683D-01,
361 + .121373D-01, .894655D-02, .659175D-02, .485197D-02,
362 + .356597D-02, .261580D-02, .191344D-02, .139763D-02,
363 + .101564D-02, .735536D-03, .530837D-03, .381833D-03,
364 + .273859D-03, .195988D-03, .140107D-03, .100186D-03,
365 + .717866D-04, .515964D-04, .373870D-04, .272081D-04,
366 + .199289D-04, .146657D-04, .108032D-04, .792297D-05,
367 + .574147D-05, .407414D-05, .279132D-05, .182464D-05,
368 + .111317D-05, .615068D-06, .293209D-06, .110013D-06,
369 + .266914D-07, .241982D-08, .000000D+00, .318100D+07,
370 + .234634D+07, .169273D+07, .122018D+07, .878665D+06,
371 + .632075D+06, .454198D+06, .326013D+06, .233733D+06,
372 + .167371D+06, .119702D+06, .854973D+05, .609847D+05 /
373 DATA (UPDI(I),I=1197,1248) /
374 + .434387D+05, .308961D+05, .219415D+05, .155579D+05,
375 + .110132D+05, .778304D+04, .549038D+04, .386610D+04,
376 + .271706D+04, .190585D+04, .133404D+04, .931883D+03,
377 + .649398D+03, .451740D+03, .311929D+03, .216082D+03,
378 + .149374D+03, .103053D+03, .709669D+02, .487853D+02,
379 + .335281D+02, .229989D+02, .157704D+02, .108160D+02,
380 + .742415D+01, .510386D+01, .351581D+01, .242992D+01,
381 + .168504D+01, .117328D+01, .820629D+00, .576794D+00,
382 + .407360D+00, .289579D+00, .206391D+00, .148120D+00,
383 + .106552D+00, .770506D-01, .559151D-01, .407007D-01,
384 + .296995D-01, .217128D-01, .158946D-01, .116437D-01,
385 + .853087D-02, .624762D-02, .457117D-02, .333976D-02,
386 + .243572D-02, .177169D-02, .128717D-02, .930657D-03 /
387 DATA (UPDI(I),I=1249,1300) /
388 + .670910D-03, .482289D-03, .345827D-03, .247513D-03,
389 + .176983D-03, .126596D-03, .907234D-04, .652586D-04,
390 + .471531D-04, .343814D-04, .251864D-04, .185597D-04,
391 + .137204D-04, .101300D-04, .742536D-05, .536071D-05,
392 + .377800D-05, .256251D-05, .165318D-05, .992160D-06,
393 + .537378D-06, .250008D-06, .910197D-07, .214023D-07,
394 + .196555D-08, .000000D+00, .100081D+06, .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, .325100D+05, .247910D+05, .186121D+05,
420 + .139736D+05, .104900D+05, .787396D+04, .590965D+04,
421 + .443482D+04, .332760D+04, .249646D+04, .187263D+04,
422 + .140446D+04, .105315D+04, .789562D+03, .591832D+03,
423 + .443523D+03, .332305D+03, .248914D+03, .186403D+03,
424 + .139551D+03, .104446D+03, .781476D+02, .584526D+02,
425 + .437065D+02, .326697D+02, .244110D+02, .182346D+02,
426 + .135604D+02, .101247D+02, .755786D+01, .564094D+01,
427 + .421012D+01, .314260D+01, .234861D+01, .175511D+01,
428 + .131305D+01, .983816D+00, .738593D+00, .555868D+00 /
429 DATA (UPDI(I),I=1405,1456) /
430 + .419542D+00, .317850D+00, .241724D+00, .184627D+00,
431 + .141671D+00, .109240D+00, .846528D-01, .659929D-01,
432 + .516206D-01, .406316D-01, .320803D-01, .254579D-01,
433 + .202805D-01, .162118D-01, .129980D-01, .104473D-01,
434 + .841376D-02, .678573D-02, .547753D-02, .442286D-02,
435 + .357024D-02, .287923D-02, .231840D-02, .186237D-02,
436 + .149292D-02, .119046D-02, .944650D-03, .745170D-03,
437 + .583626D-03, .453232D-03, .348403D-03, .264621D-03,
438 + .197984D-03, .145624D-03, .104699D-03, .734466D-04,
439 + .496152D-04, .319365D-04, .191640D-04, .102270D-04,
440 + .429731D-05, .582331D-06, .000000D+00, .000000D+00,
441 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
442 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
443 DATA (UPDI(I),I=1457,1508) /
444 + .773370D+05, .588903D+05, .441370D+05, .330771D+05,
445 + .247837D+05, .185657D+05, .139047D+05, .104113D+05,
446 + .779370D+04, .583264D+04, .436380D+04, .326388D+04,
447 + .244044D+04, .182414D+04, .136300D+04, .101805D+04,
448 + .760106D+03, .567281D+03, .423190D+03, .315553D+03,
449 + .235182D+03, .175193D+03, .130440D+03, .970655D+02,
450 + .721921D+02, .536603D+02, .398669D+02, .294787D+02,
451 + .218820D+02, .162361D+02, .120429D+02, .893090D+01,
452 + .662265D+01, .491627D+01, .364877D+01, .271073D+01,
453 + .201672D+01, .150325D+01, .112324D+01, .841667D+00,
454 + .633074D+00, .477997D+00, .362484D+00, .276173D+00,
455 + .211453D+00, .162712D+00, .125969D+00, .978518D-01,
456 + .764940D-01, .599806D-01, .472736D-01, .374024D-01 /
457 DATA (UPDI(I),I=1509,1560) /
458 + .296942D-01, .236444D-01, .188735D-01, .150945D-01,
459 + .120891D-01, .969039D-02, .776989D-02, .622826D-02,
460 + .498811D-02, .398902D-02, .318292D-02, .253513D-02,
461 + .200917D-02, .158539D-02, .124448D-02, .970873D-03,
462 + .752000D-03, .577638D-03, .439449D-03, .330621D-03,
463 + .245569D-03, .179584D-03, .129420D-03, .912071D-04,
464 + .627684D-04, .419832D-04, .271229D-04, .167820D-04,
465 + .981911D-05, .534013D-05, .259992D-05, .106568D-05,
466 + .299579D-06, .000000D+00, .000000D+00, .000000D+00,
467 + .000000D+00, .000000D+00, .000000D+00, .137095D+06,
468 + .104214D+06, .779440D+05, .582865D+05, .435741D+05,
469 + .325654D+05, .243302D+05, .181714D+05, .135668D+05,
470 + .101253D+05, .755377D+04, .563302D+04, .419886D+04 /
471 DATA (UPDI(I),I=1561,1612) /
472 + .312840D+04, .232973D+04, .173407D+04, .129004D+04,
473 + .959161D+03, .712741D+03, .529302D+03, .392831D+03,
474 + .291350D+03, .215941D+03, .159935D+03, .118371D+03,
475 + .875393D+02, .646982D+02, .475782D+02, .351209D+02,
476 + .259098D+02, .191050D+02, .140824D+02, .103779D+02,
477 + .765527D+01, .564489D+01, .416614D+01, .307889D+01,
478 + .227955D+01, .169178D+01, .125906D+01, .940588D+00,
479 + .705357D+00, .531278D+00, .402048D+00, .305770D+00,
480 + .233722D+00, .179753D+00, .138709D+00, .107727D+00,
481 + .839192D-01, .657114D-01, .516528D-01, .407414D-01,
482 + .322297D-01, .255583D-01, .203065D-01, .161559D-01,
483 + .128641D-01, .102456D-01, .815748D-02, .648909D-02,
484 + .515424D-02, .408478D-02, .323158D-02, .254400D-02 /
485 DATA (UPDI(I),I=1613,1664) /
486 + .199423D-02, .155543D-02, .120609D-02, .928901D-03,
487 + .709907D-03, .537772D-03, .403376D-03, .299134D-03,
488 + .218902D-03, .158339D-03, .112477D-03, .784948D-04,
489 + .536959D-04, .359279D-04, .234417D-04, .148894D-04,
490 + .918520D-05, .547268D-05, .315573D-05, .175057D-05,
491 + .926526D-06, .455826D-06, .198433D-06, .627099D-07,
492 + .455117D-08, .000000D+00, .239826D+06, .162828D+06,
493 + .121498D+06, .906360D+05, .675886D+05, .503824D+05,
494 + .375412D+05, .279610D+05, .208163D+05, .154901D+05,
495 + .115210D+05, .856452D+04, .636332D+04, .472517D+04,
496 + .350669D+04, .260079D+04, .192768D+04, .142780D+04,
497 + .105681D+04, .781624D+03, .577662D+03, .426577D+03,
498 + .314755D+03, .232044D+03, .170923D+03, .125781D+03 /
499 DATA (UPDI(I),I=1665,1716) /
500 + .924920D+02, .676585D+02, .496766D+02, .364468D+02,
501 + .267232D+02, .195841D+02, .143471D+02, .105195D+02,
502 + .770934D+01, .565431D+01, .415228D+01, .305466D+01,
503 + .225245D+01, .166550D+01, .123617D+01, .921021D+00,
504 + .689239D+00, .518231D+00, .391611D+00, .297427D+00,
505 + .227305D+00, .174293D+00, .134516D+00, .104131D+00,
506 + .810287D-01, .632955D-01, .496126D-01, .390016D-01,
507 + .307339D-01, .242641D-01, .191817D-01, .151755D-01,
508 + .120085D-01, .949900D-02, .750683D-02, .592349D-02,
509 + .466337D-02, .366499D-02, .286609D-02, .223194D-02,
510 + .172954D-02, .133258D-02, .102004D-02, .775039D-03,
511 + .583984D-03, .436000D-03, .322109D-03, .235121D-03,
512 + .169935D-03, .120898D-03, .847634D-04, .584977D-04 /
513 DATA (UPDI(I),I=1717,1768) /
514 + .397046D-04, .264652D-04, .173288D-04, .111341D-04,
515 + .698958D-05, .428861D-05, .254528D-05, .143568D-05,
516 + .741154D-06, .327770D-06, .100882D-06, .789558D-08,
517 + .000000D+00, .341951D+06, .258728D+06, .192441D+06,
518 + .143089D+06, .106345D+06, .789983D+05, .586547D+05,
519 + .435272D+05, .322836D+05, .239307D+05, .177284D+05,
520 + .131254D+05, .971126D+04, .718026D+04, .530516D+04,
521 + .391680D+04, .288955D+04, .212997D+04, .156876D+04,
522 + .115439D+04, .848712D+03, .623376D+03, .457433D+03,
523 + .335318D+03, .245558D+03, .179619D+03, .131271D+03,
524 + .954125D+02, .696018D+02, .507276D+02, .369420D+02,
525 + .268854D+02, .195565D+02, .142358D+02, .103562D+02,
526 + .753894D+01, .549444D+01, .401115D+01, .293500D+01 /
527 DATA (UPDI(I),I=1769,1820) /
528 + .215338D+01, .158589D+01, .117241D+01, .870560D+00,
529 + .649505D+00, .487035D+00, .367063D+00, .278395D+00,
530 + .211842D+00, .162266D+00, .124664D+00, .962788D-01,
531 + .746444D-01, .580691D-01, .453058D-01, .354316D-01,
532 + .277598D-01, .217762D-01, .170938D-01, .134193D-01,
533 + .105292D-01, .825202D-02, .645612D-02, .503771D-02,
534 + .392281D-02, .303789D-02, .234131D-02, .179421D-02,
535 + .136580D-02, .103165D-02, .772307D-03, .572212D-03,
536 + .418968D-03, .302615D-03, .214972D-03, .150382D-03,
537 + .102743D-03, .684710D-04, .442982D-04, .276540D-04,
538 + .165196D-04, .933641D-05, .491931D-05, .234385D-05,
539 + .972839D-06, .320666D-06, .644642D-07, .000000D+00,
540 + .000000D+00, .518533D-09, .000000D+00, .000000D+00 /
541 DATA (UPDI(I),I=1821,1872) /
542 + .508980D+06, .383992D+06, .284630D+06, .210892D+06,
543 + .156173D+06, .115587D+06, .854987D+05, .632041D+05,
544 + .466936D+05, .344732D+05, .254337D+05, .187509D+05,
545 + .138138D+05, .101687D+05, .747933D+04, .549655D+04,
546 + .403588D+04, .296061D+04, .216977D+04, .158857D+04,
547 + .116188D+04, .848873D+03, .619522D+03, .451610D+03,
548 + .328838D+03, .239128D+03, .173722D+03, .125486D+03,
549 + .909690D+02, .658780D+02, .476628D+02, .344574D+02,
550 + .248945D+02, .179969D+02, .130005D+02, .939656D+01,
551 + .679897D+01, .492739D+01, .357898D+01, .260649D+01,
552 + .190538D+01, .139815D+01, .103048D+01, .763121D+00,
553 + .568002D+00, .424922D+00, .319917D+00, .241642D+00,
554 + .183739D+00, .140124D+00, .107425D+00, .826749D-01 /
555 DATA (UPDI(I),I=1873,1924) /
556 + .638428D-01, .494421D-01, .383789D-01, .298439D-01,
557 + .232346D-01, .181002D-01, .141006D-01, .109785D-01,
558 + .853744D-02, .662739D-02, .513078D-02, .396405D-02,
559 + .304576D-02, .232914D-02, .177124D-02, .133829D-02,
560 + .100369D-02, .746392D-03, .549740D-03, .400543D-03,
561 + .288295D-03, .204501D-03, .143262D-03, .984246D-04,
562 + .663514D-04, .437990D-04, .282513D-04, .177676D-04,
563 + .108811D-04, .648759D-05, .375200D-05, .211553D-05,
564 + .115847D-05, .610170D-06, .299745D-06, .128077D-06,
565 + .379797D-07, .291259D-08, .000000D+00, .722429D+06,
566 + .543391D+06, .401344D+06, .296288D+06, .218599D+06,
567 + .161178D+06, .118763D+06, .874499D+05, .643472D+05,
568 + .473127D+05, .347611D+05, .255188D+05, .187183D+05 /
569 DATA (UPDI(I),I=1925,1976) /
570 + .137181D+05, .100446D+05, .734784D+04, .536989D+04,
571 + .392034D+04, .285910D+04, .208281D+04, .151561D+04,
572 + .110154D+04, .799653D+03, .579753D+03, .419803D+03,
573 + .303541D+03, .219242D+03, .157419D+03, .113431D+03,
574 + .816394D+02, .586958D+02, .421626D+02, .302630D+02,
575 + .217334D+02, .155941D+02, .111943D+02, .804379D+01,
576 + .578886D+01, .417514D+01, .301911D+01, .219134D+01,
577 + .159651D+01, .116828D+01, .858993D+00, .634807D+00,
578 + .471512D+00, .352480D+00, .264340D+00, .199577D+00,
579 + .151119D+00, .115032D+00, .878994D-01, .673928D-01,
580 + .518174D-01, .399330D-01, .308274D-01, .238253D-01,
581 + .184240D-01, .142468D-01, .110097D-01, .849766D-02,
582 + .654698D-02, .503024D-02, .385715D-02, .294129D-02 /
583 DATA (UPDI(I),I=1977,2028) /
584 + .223246D-02, .168527D-02, .126427D-02, .941733D-03,
585 + .695886D-03, .509645D-03, .369587D-03, .265120D-03,
586 + .187775D-03, .131680D-03, .908760D-04, .618308D-04,
587 + .414543D-04, .273825D-04, .178209D-04, .114380D-04,
588 + .724437D-05, .450902D-05, .275660D-05, .163330D-05,
589 + .916265D-06, .465931D-06, .197964D-06, .564371D-07,
590 + .462815D-08, .000000D+00, .989256D+06, .741818D+06,
591 + .545905D+06, .401518D+06, .295122D+06, .216768D+06,
592 + .159102D+06, .116689D+06, .855162D+05, .626200D+05,
593 + .458157D+05, .334915D+05, .244603D+05, .178474D+05,
594 + .130096D+05, .947344D+04, .689118D+04, .500718D+04,
595 + .363415D+04, .263443D+04, .190742D+04, .137924D+04,
596 + .996046D+03, .718311D+03, .517324D+03, .371986D+03 /
597 DATA (UPDI(I),I=2029,2080) /
598 + .267171D+03, .190719D+03, .136624D+03, .977484D+02,
599 + .698522D+02, .498675D+02, .355688D+02, .253813D+02,
600 + .180936D+02, .129033D+02, .921026D+01, .658383D+01,
601 + .471635D+01, .338722D+01, .244168D+01, .176667D+01,
602 + .128390D+01, .937494D+00, .688050D+00, .507534D+00,
603 + .376808D+00, .280631D+00, .210424D+00, .158233D+00,
604 + .119618D+00, .907728D-01, .691140D-01, .527714D-01,
605 + .403841D-01, .309567D-01, .237562D-01, .182400D-01,
606 + .140037D-01, .107441D-01, .823280D-02, .629708D-02,
607 + .480312D-02, .365644D-02, .276815D-02, .208611D-02,
608 + .156384D-02, .116529D-02, .862476D-03, .633575D-03,
609 + .461607D-03, .333335D-03, .238419D-03, .168665D-03,
610 + .118413D-03, .820612D-04, .562805D-04, .382133D-04 /
611 DATA (UPDI(I),I=2081,2132) /
612 + .257008D-04, .171304D-04, .113209D-04, .741036D-05,
613 + .477137D-05, .300675D-05, .182146D-05, .103209D-05,
614 + .522355D-06, .216872D-06, .596064D-07, .502921D-08,
615 + .000000D+00, .131629D+07, .984023D+06, .721488D+06,
616 + .528687D+06, .387125D+06, .283255D+06, .207092D+06,
617 + .151285D+06, .110424D+06, .805292D+05, .586746D+05,
618 + .427106D+05, .310599D+05, .225642D+05, .163751D+05,
619 + .118705D+05, .859536D+04, .621641D+04, .449045D+04,
620 + .323950D+04, .233403D+04, .167931D+04, .120659D+04,
621 + .865651D+03, .620158D+03, .443531D+03, .316822D+03,
622 + .224888D+03, .160193D+03, .113951D+03, .809545D+02,
623 + .574495D+02, .407285D+02, .288849D+02, .204626D+02,
624 + .145004D+02, .102840D+02, .730375D+01, .519791D+01 /
625 DATA (UPDI(I),I=2133,2184) /
626 + .370849D+01, .265560D+01, .190869D+01, .137787D+01,
627 + .999405D+00, .728597D+00, .533851D+00, .393713D+00,
628 + .291256D+00, .216938D+00, .162037D+00, .121675D+00,
629 + .917148D-01, .693617D-01, .526031D-01, .399824D-01,
630 + .304400D-01, .231997D-01, .176902D-01, .134877D-01,
631 + .102764D-01, .781964D-02, .593948D-02, .449878D-02,
632 + .340114D-02, .255719D-02, .191412D-02, .142550D-02,
633 + .105552D-02, .776619D-03, .567442D-03, .411510D-03,
634 + .296072D-03, .211275D-03, .149365D-03, .105019D-03,
635 + .730804D-04, .504856D-04, .346474D-04, .236351D-04,
636 + .160279D-04, .107960D-04, .720241D-05, .471524D-05,
637 + .300581D-05, .182862D-05, .103134D-05, .514403D-06,
638 + .207827D-06, .551054D-07, .474500D-08, .000000D+00 /
639 DATA (UPDI(I),I=2185,2236) /
640 + .171008D+07, .127450D+07, .931042D+06, .679711D+06,
641 + .495839D+06, .361414D+06, .263213D+06, .191527D+06,
642 + .139241D+06, .101134D+06, .733849D+05, .531963D+05,
643 + .385217D+05, .278650D+05, .201339D+05, .145307D+05,
644 + .104744D+05, .754079D+04, .542187D+04, .389302D+04,
645 + .279146D+04, .199864D+04, .142893D+04, .102000D+04,
646 + .726994D+03, .517221D+03, .367505D+03, .259439D+03,
647 + .183792D+03, .130010D+03, .918400D+02, .647993D+02,
648 + .456701D+02, .321974D+02, .226717D+02, .159676D+02,
649 + .112544D+02, .794299D+01, .561717D+01, .398212D+01,
650 + .283331D+01, .202333D+01, .145121D+01, .104580D+01,
651 + .757491D+00, .551423D+00, .404050D+00, .296957D+00,
652 + .219754D+00, .163072D+00, .121656D+00, .911029D-01 /
653 DATA (UPDI(I),I=2237,2288) /
654 + .684487D-01, .515704D-01, .389394D-01, .294500D-01,
655 + .222962D-01, .168879D-01, .127899D-01, .967940D-02,
656 + .731599D-02, .551976D-02, .415294D-02, .311897D-02,
657 + .232971D-02, .173271D-02, .128244D-02, .944039D-03,
658 + .690828D-03, .502317D-03, .362803D-03, .260231D-03,
659 + .185381D-03, .131045D-03, .923097D-04, .645036D-04,
660 + .448574D-04, .310663D-04, .214302D-04, .147153D-04,
661 + .100349D-04, .676655D-05, .446234D-05, .285116D-05,
662 + .172791D-05, .964104D-06, .472035D-06, .185346D-06,
663 + .474753D-07, .415865D-08, .000000D+00, .217671D+07,
664 + .161736D+07, .117721D+07, .856265D+06, .622303D+06,
665 + .451880D+06, .327838D+06, .237626D+06, .172075D+06,
666 + .124484D+06, .899631D+05, .649463D+05, .468350D+05 /
667 DATA (UPDI(I),I=2289,2340) /
668 + .337356D+05, .242715D+05, .174408D+05, .125167D+05,
669 + .897088D+04, .642087D+04, .458909D+04, .327519D+04,
670 + .233384D+04, .166053D+04, .117951D+04, .836492D+03,
671 + .592098D+03, .418545D+03, .293904D+03, .207101D+03,
672 + .145707D+03, .102364D+03, .718220D+02, .503327D+02,
673 + .352809D+02, .246979D+02, .172918D+02, .121148D+02,
674 + .849846D+01, .597330D+01, .420850D+01, .297584D+01,
675 + .211188D+01, .150525D+01, .107794D+01, .775876D+00,
676 + .561249D+00, .408672D+00, .298453D+00, .219473D+00,
677 + .161832D+00, .119967D+00, .892691D-01, .666447D-01,
678 + .498912D-01, .374306D-01, .281272D-01, .211576D-01,
679 + .159220D-01, .119803D-01, .900801D-02, .676453D-02,
680 + .507087D-02, .379076D-02, .282904D-02, .210003D-02 /
681 DATA (UPDI(I),I=2341,2392) /
682 + .155247D-02, .114241D-02, .836401D-03, .609037D-03,
683 + .440936D-03, .317357D-03, .227074D-03, .161577D-03,
684 + .114262D-03, .806621D-04, .565960D-04, .395951D-04,
685 + .276316D-04, .192263D-04, .133182D-04, .915091D-05,
686 + .620248D-05, .409685D-05, .260993D-05, .156884D-05,
687 + .863266D-06, .414117D-06, .157988D-06, .391549D-07,
688 + .348320D-08, .000000D+00, .272166D+07, .201624D+07,
689 + .146227D+07, .105974D+07, .767347D+06, .555125D+06,
690 + .401222D+06, .289705D+06, .208976D+06, .150585D+06,
691 + .108394D+06, .779370D+05, .559736D+05, .401514D+05,
692 + .287664D+05, .205829D+05, .147080D+05, .104953D+05,
693 + .747868D+04, .532108D+04, .378027D+04, .268128D+04,
694 + .189877D+04, .134229D+04, .947316D+03, .667227D+03 /
695 DATA (UPDI(I),I=2393,2444) /
696 + .469296D+03, .327844D+03, .229826D+03, .160849D+03,
697 + .112400D+03, .784375D+02, .546669D+02, .381060D+02,
698 + .265248D+02, .184645D+02, .128614D+02, .896932D+01,
699 + .626695D+01, .438903D+01, .308485D+01, .217602D+01,
700 + .154156D+01, .109722D+01, .784937D+00, .564327D+00,
701 + .408408D+00, .296424D+00, .216647D+00, .158763D+00,
702 + .116968D+00, .865004D-01, .641785D-01, .477471D-01,
703 + .355992D-01, .265842D-01, .198719D-01, .148609D-01,
704 + .111118D-01, .830271D-02, .619603D-02, .461598D-02,
705 + .342952D-02, .254407D-02, .187736D-02, .137998D-02,
706 + .101001D-02, .735777D-03, .533370D-03, .384685D-03,
707 + .276053D-03, .197142D-03, .140191D-03, .992180D-04,
708 + .702059D-04, .494527D-04, .347808D-04, .244228D-04 /
709 DATA (UPDI(I),I=2445,2496) /
710 + .171030D-04, .119156D-04, .821955D-05, .557853D-05,
711 + .367670D-05, .232769D-05, .138420D-05, .749807D-06,
712 + .352067D-06, .130522D-06, .313490D-07, .282918D-08,
713 + .000000D+00, .334969D+07, .247421D+07, .178805D+07,
714 + .129120D+07, .931558D+06, .671450D+06, .483495D+06,
715 + .347800D+06, .249927D+06, .179401D+06, .128633D+06,
716 + .921234D+05, .658976D+05, .470786D+05, .335909D+05,
717 + .239349D+05, .170312D+05, .121012D+05, .858566D+04,
718 + .608187D+04, .430153D+04, .303722D+04, .214098D+04,
719 + .150647D+04, .105817D+04, .741718D+03, .519156D+03,
720 + .360860D+03, .251705D+03, .175265D+03, .121842D+03,
721 + .845810D+02, .586346D+02, .406515D+02, .281416D+02,
722 + .194812D+02, .134933D+02, .935652D+01, .649998D+01 /
723 DATA (UPDI(I),I=2497,2548) /
724 + .452586D+01, .316248D+01, .221769D+01, .156182D+01,
725 + .110506D+01, .785857D+00, .561623D+00, .404038D+00,
726 + .291493D+00, .211774D+00, .154260D+00, .112969D+00,
727 + .830410D-01, .612407D-01, .452864D-01, .335604D-01,
728 + .249097D-01, .185072D-01, .137562D-01, .102234D-01,
729 + .759268D-02, .563209D-02, .417089D-02, .308060D-02,
730 + .227215D-02, .166733D-02, .121905D-02, .887752D-03,
731 + .643748D-03, .464778D-03, .334100D-03, .239163D-03,
732 + .170554D-03, .121260D-03, .859129D-04, .609370D-04,
733 + .430787D-04, .304337D-04, .214735D-04, .151046D-04,
734 + .105577D-04, .729134D-05, .494112D-05, .324102D-05,
735 + .203462D-05, .119499D-05, .636536D-06, .292394D-06,
736 + .105377D-06, .245667D-07, .224748D-08, .000000D+00 /
737 DATA (UPDI(I),I=2549,2600) /
738 + .846377D+05, .501568D+05, .385858D+05, .296844D+05,
739 + .228366D+05, .175687D+05, .135161D+05, .103985D+05,
740 + .800014D+04, .615508D+04, .473568D+04, .364372D+04,
741 + .280366D+04, .215738D+04, .166019D+04, .127767D+04,
742 + .983383D+03, .756966D+03, .582763D+03, .448728D+03,
743 + .345594D+03, .266234D+03, .205164D+03, .158164D+03,
744 + .121989D+03, .941427D+02, .727039D+02, .559905D+02,
745 + .433268D+02, .335685D+02, .260462D+02, .202447D+02,
746 + .157677D+02, .123191D+02, .964589D+01, .757756D+01,
747 + .597464D+01, .472984D+01, .376066D+01, .300339D+01,
748 + .241035D+01, .194313D+01, .157341D+01, .127925D+01,
749 + .104389D+01, .854504D+00, .701757D+00, .576676D+00,
750 + .474998D+00, .390962D+00, .321949D+00, .264882D+00 /
751 DATA (UPDI(I),I=2601,2652) /
752 + .217597D+00, .178367D+00, .145804D+00, .118785D+00,
753 + .963921D-01, .778694D-01, .625887D-01, .500248D-01,
754 + .397359D-01, .313492D-01, .245490D-01, .190905D-01,
755 + .146922D-01, .111982D-01, .844527D-02, .629574D-02,
756 + .463407D-02, .336369D-02, .240428D-02, .168950D-02,
757 + .116469D-02, .785553D-03, .519109D-03, .333046D-03,
758 + .207275D-03, .124562D-03, .718713D-04, .395322D-04,
759 + .205395D-04, .997238D-05, .442855D-05, .177028D-05,
760 + .613953D-06, .175398D-06, .378401D-07, .523723D-08,
761 + .322446D-09, .273778D-11, .000000D+00, .960241D+05,
762 + .742599D+05, .566689D+05, .432509D+05, .330134D+05,
763 + .252017D+05, .192404D+05, .146907D+05, .112180D+05,
764 + .856706D+04, .654329D+04, .499813D+04, .381828D+04 /
765 DATA (UPDI(I),I=2653,2704) /
766 + .291728D+04, .222918D+04, .170360D+04, .130214D+04,
767 + .995434D+03, .761112D+03, .582064D+03, .445244D+03,
768 + .340675D+03, .260750D+03, .199650D+03, .152937D+03,
769 + .117212D+03, .898936D+02, .687371D+02, .528132D+02,
770 + .406236D+02, .312891D+02, .241380D+02, .186562D+02,
771 + .144624D+02, .112336D+02, .875281D+01, .684387D+01,
772 + .537211D+01, .423469D+01, .335269D+01, .266731D+01,
773 + .213163D+01, .171116D+01, .137942D+01, .111624D+01,
774 + .906270D+00, .738403D+00, .602122D+00, .492309D+00,
775 + .402331D+00, .329068D+00, .268991D+00, .219616D+00,
776 + .178973D+00, .145495D+00, .117920D+00, .952259D-01,
777 + .765798D-01, .612950D-01, .488033D-01, .386314D-01,
778 + .303853D-01, .237302D-01, .184121D-01, .141444D-01 /
779 DATA (UPDI(I),I=2705,2756) /
780 + .107664D-01, .811318D-02, .604676D-02, .445248D-02,
781 + .323512D-02, .231621D-02, .163119D-02, .112781D-02,
782 + .763058D-03, .505750D-03, .325140D-03, .202236D-03,
783 + .120773D-03, .684142D-04, .360508D-04, .169405D-04,
784 + .641680D-05, .112816D-05, .000000D+00, .000000D+00,
785 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
786 + .000000D+00, .000000D+00, .139991D+06, .107690D+06,
787 + .816785D+05, .619580D+05, .470021D+05, .356588D+05,
788 + .270548D+05, .205282D+05, .155771D+05, .118210D+05,
789 + .897113D+04, .680881D+04, .516805D+04, .392296D+04,
790 + .297809D+04, .226099D+04, .171673D+04, .130362D+04,
791 + .990047D+03, .752005D+03, .571300D+03, .434103D+03,
792 + .329938D+03, .250839D+03, .190776D+03, .145150D+03 /
793 DATA (UPDI(I),I=2757,2808) /
794 + .110503D+03, .838578D+02, .639441D+02, .488078D+02,
795 + .372995D+02, .285465D+02, .218856D+02, .168270D+02,
796 + .129615D+02, .100139D+02, .776305D+01, .604112D+01,
797 + .472081D+01, .370510D+01, .292219D+01, .231524D+01,
798 + .184277D+01, .147310D+01, .118231D+01, .952244D+00,
799 + .769878D+00, .623057D+00, .505750D+00, .410425D+00,
800 + .333441D+00, .270816D+00, .219746D+00, .178027D+00,
801 + .143913D+00, .116015D+00, .932115D-01, .745989D-01,
802 + .594380D-01, .471226D-01, .371524D-01, .291151D-01,
803 + .226612D-01, .175293D-01, .134302D-01, .101996D-01,
804 + .767239D-02, .571126D-02, .420311D-02, .305471D-02,
805 + .218978D-02, .154613D-02, .107358D-02, .731106D-03,
806 + .489233D-03, .318983D-03, .202563D-03, .124777D-03 /
807 DATA (UPDI(I),I=2809,2860) /
808 + .741665D-04, .422441D-04, .228200D-04, .115375D-04,
809 + .529771D-05, .212115D-05, .657170D-06, .899277D-07,
810 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
811 + .000000D+00, .198910D+06, .152360D+06, .114983D+06,
812 + .867808D+05, .654950D+05, .494295D+05, .373042D+05,
813 + .281528D+05, .212460D+05, .160333D+05, .120993D+05,
814 + .913039D+04, .688986D+04, .519903D+04, .392311D+04,
815 + .296028D+04, .223377D+04, .168556D+04, .127193D+04,
816 + .959836D+03, .724377D+03, .546724D+03, .412702D+03,
817 + .311586D+03, .235306D+03, .177743D+03, .134331D+03,
818 + .101174D+03, .765672D+02, .579953D+02, .439756D+02,
819 + .333898D+02, .253930D+02, .193650D+02, .147933D+02,
820 + .113337D+02, .871226D+01, .672238D+01, .520861D+01 /
821 DATA (UPDI(I),I=2861,2912) /
822 + .405329D+01, .316986D+01, .249049D+01, .196593D+01,
823 + .155883D+01, .124121D+01, .991948D+00, .795978D+00,
824 + .639467D+00, .515424D+00, .415421D+00, .335287D+00,
825 + .270595D+00, .218232D+00, .175768D+00, .141289D+00,
826 + .113285D+00, .905472D-01, .721074D-01, .571804D-01,
827 + .451275D-01, .354264D-01, .276499D-01, .214376D-01,
828 + .165231D-01, .126167D-01, .955250D-02, .716593D-02,
829 + .532168D-02, .390893D-02, .283703D-02, .203230D-02,
830 + .143519D-02, .997859D-03, .681425D-03, .458170D-03,
831 + .301020D-03, .193407D-03, .121258D-03, .740227D-04,
832 + .438937D-04, .252411D-04, .140742D-04, .757950D-05,
833 + .397103D-05, .202352D-05, .100156D-05, .471371D-06,
834 + .200497D-06, .628339D-07, .455235D-08, .000000D+00 /
835 DATA (UPDI(I),I=2913,2964) /
836 + .225198D+06, .210336D+06, .158046D+06, .118753D+06,
837 + .892191D+05, .670230D+05, .503432D+05, .378100D+05,
838 + .283936D+05, .213197D+05, .160062D+05, .120154D+05,
839 + .901854D+04, .676826D+04, .507885D+04, .381065D+04,
840 + .285881D+04, .214447D+04, .160850D+04, .120637D+04,
841 + .904734D+03, .678489D+03, .508835D+03, .381614D+03,
842 + .286241D+03, .214723D+03, .161139D+03, .120484D+03,
843 + .905168D+02, .680530D+02, .512127D+02, .385869D+02,
844 + .291168D+02, .220300D+02, .166946D+02, .126872D+02,
845 + .967337D+01, .740299D+01, .568905D+01, .439100D+01,
846 + .340612D+01, .265462D+01, .207888D+01, .163554D+01,
847 + .129237D+01, .102512D+01, .816658D+00, .651437D+00,
848 + .521494D+00, .417523D+00, .334827D+00, .268551D+00 /
849 DATA (UPDI(I),I=2965,3016) /
850 + .215289D+00, .172395D+00, .137804D+00, .109894D+00,
851 + .873795D-01, .692347D-01, .546357D-01, .429173D-01,
852 + .335395D-01, .260642D-01, .201238D-01, .154489D-01,
853 + .117516D-01, .886553D-02, .662830D-02, .490725D-02,
854 + .359458D-02, .260270D-02, .186093D-02, .131253D-02,
855 + .912215D-03, .623355D-03, .420030D-03, .277132D-03,
856 + .179332D-03, .113700D-03, .705954D-04, .429172D-04,
857 + .255844D-04, .149976D-04, .863804D-05, .491972D-05,
858 + .275411D-05, .149236D-05, .752741D-06, .329288D-06,
859 + .100972D-06, .789647D-08, .000000D+00, .401936D+06,
860 + .305449D+06, .228384D+06, .170740D+06, .127617D+06,
861 + .953632D+05, .712445D+05, .532129D+05, .397352D+05,
862 + .296636D+05, .221391D+05, .165190D+05, .123223D+05 /
863 DATA (UPDI(I),I=3017,3068) /
864 + .918934D+04, .685113D+04, .510647D+04, .380511D+04,
865 + .283464D+04, .211118D+04, .157198D+04, .117025D+04,
866 + .871004D+03, .648193D+03, .482311D+03, .358870D+03,
867 + .266995D+03, .198693D+03, .147280D+03, .109687D+03,
868 + .817360D+02, .609556D+02, .455071D+02, .340188D+02,
869 + .254963D+02, .191367D+02, .144025D+02, .108743D+02,
870 + .824061D+01, .627071D+01, .479259D+01, .368150D+01,
871 + .284158D+01, .220411D+01, .171783D+01, .134493D+01,
872 + .105723D+01, .834878D+00, .660263D+00, .524187D+00,
873 + .416287D+00, .331226D+00, .263649D+00, .209804D+00,
874 + .166804D+00, .132412D+00, .104884D+00, .828503D-01,
875 + .652284D-01, .511552D-01, .399405D-01, .310290D-01,
876 + .239741D-01, .184044D-01, .140496D-01, .106272D-01 /
877 DATA (UPDI(I),I=3069,3120) /
878 + .797213D-02, .592637D-02, .436188D-02, .317552D-02,
879 + .228420D-02, .162141D-02, .113420D-02, .780758D-03,
880 + .527249D-03, .350044D-03, .226502D-03, .142778D-03,
881 + .873080D-04, .515100D-04, .291075D-04, .155907D-04,
882 + .781590D-05, .356594D-05, .143515D-05, .471688D-06,
883 + .104899D-06, .346919D-08, .000000D+00, .580748D-09,
884 + .000000D+00, .000000D+00, .567971D+06, .429939D+06,
885 + .319977D+06, .238084D+06, .177093D+06, .131681D+06,
886 + .978797D+05, .727291D+05, .540215D+05, .401109D+05,
887 + .297711D+05, .220881D+05, .163814D+05, .121443D+05,
888 + .899950D+04, .666634D+04, .493611D+04, .365345D+04,
889 + .270306D+04, .199910D+04, .147796D+04, .109227D+04,
890 + .807002D+03, .596054D+03, .440164D+03, .324953D+03 /
891 DATA (UPDI(I),I=3121,3172) /
892 + .239929D+03, .176402D+03, .130304D+03, .962911D+02,
893 + .712018D+02, .526983D+02, .390492D+02, .290069D+02,
894 + .215755D+02, .160902D+02, .120370D+02, .903761D+01,
895 + .681361D+01, .515938D+01, .392682D+01, .300326D+01,
896 + .230849D+01, .178316D+01, .138385D+01, .107846D+01,
897 + .844509D+00, .662363D+00, .521646D+00, .411014D+00,
898 + .324534D+00, .256400D+00, .202555D+00, .159900D+00,
899 + .126053D+00, .991728D-01, .778218D-01, .608736D-01,
900 + .474380D-01, .368088D-01, .284226D-01, .218299D-01,
901 + .166603D-01, .126455D-01, .951136D-02, .709592D-02,
902 + .524688D-02, .384189D-02, .278322D-02, .199280D-02,
903 + .140865D-02, .981867D-03, .674073D-03, .454524D-03,
904 + .301864D-03, .195923D-03, .124387D-03, .770882D-04 /
905 DATA (UPDI(I),I=3173,3224) /
906 + .465403D-04, .273209D-04, .155764D-04, .863723D-05,
907 + .464763D-05, .244978D-05, .126606D-05, .638519D-06,
908 + .305363D-06, .128790D-06, .380214D-07, .291304D-08,
909 + .000000D+00, .780444D+06, .588577D+06, .436105D+06,
910 + .323030D+06, .239171D+06, .177005D+06, .130939D+06,
911 + .968168D+05, .715534D+05, .528568D+05, .390265D+05,
912 + .288004D+05, .212432D+05, .156608D+05, .115394D+05,
913 + .849805D+04, .625502D+04, .460153D+04, .338339D+04,
914 + .248638D+04, .182630D+04, .134077D+04, .983892D+03,
915 + .721676D+03, .529164D+03, .387829D+03, .284245D+03,
916 + .207390D+03, .152019D+03, .111459D+03, .817614D+02,
917 + .600232D+02, .441101D+02, .324926D+02, .239631D+02,
918 + .177175D+02, .131397D+02, .977960D+01, .730860D+01 /
919 DATA (UPDI(I),I=3225,3276) /
920 + .548581D+01, .413890D+01, .313804D+01, .239137D+01,
921 + .183150D+01, .140948D+01, .108938D+01, .846198D+00,
922 + .658408D+00, .514520D+00, .402311D+00, .315303D+00,
923 + .247296D+00, .193973D+00, .152059D+00, .119054D+00,
924 + .930390D-01, .725288D-01, .563672D-01, .436475D-01,
925 + .336563D-01, .258289D-01, .197181D-01, .149586D-01,
926 + .112874D-01, .844070D-02, .626138D-02, .460411D-02,
927 + .335309D-02, .241658D-02, .172187D-02, .121173D-02,
928 + .841374D-03, .575916D-03, .387663D-03, .257482D-03,
929 + .167575D-03, .107094D-03, .671830D-04, .413834D-04,
930 + .250608D-04, .149578D-04, .883731D-05, .516442D-05,
931 + .299790D-05, .170982D-05, .936108D-06, .469797D-06,
932 + .198446D-06, .564650D-07, .462846D-08, .000000D+00 /
933 DATA (UPDI(I),I=3277,3328) /
934 + .104631D+07, .786254D+06, .580090D+06, .427816D+06,
935 + .315353D+06, .232332D+06, .171076D+06, .125901D+06,
936 + .926028D+05, .680720D+05, .500101D+05, .367185D+05,
937 + .269430D+05, .197576D+05, .144794D+05, .106044D+05,
938 + .776143D+04, .567688D+04, .414956D+04, .303113D+04,
939 + .221279D+04, .161434D+04, .117708D+04, .857741D+03,
940 + .624739D+03, .454750D+03, .330978D+03, .239751D+03,
941 + .174469D+03, .126977D+03, .924453D+02, .673480D+02,
942 + .491080D+02, .358894D+02, .262564D+02, .192557D+02,
943 + .141638D+02, .104550D+02, .774875D+01, .576799D+01,
944 + .431582D+01, .324522D+01, .245282D+01, .186335D+01,
945 + .142252D+01, .109077D+01, .840716D+00, .649123D+00,
946 + .503469D+00, .390761D+00, .304038D+00, .236769D+00 /
947 DATA (UPDI(I),I=3329,3380) /
948 + .184423D+00, .143583D+00, .111662D+00, .866850D-01,
949 + .671355D-01, .518410D-01, .398889D-01, .305662D-01,
950 + .233131D-01, .176895D-01, .133389D-01, .100057D-01,
951 + .743839D-02, .548609D-02, .401132D-02, .290542D-02,
952 + .208298D-02, .147687D-02, .103467D-02, .715677D-03,
953 + .488454D-03, .328248D-03, .218063D-03, .142317D-03,
954 + .915348D-04, .580727D-04, .364055D-04, .226102D-04,
955 + .139563D-04, .858941D-05, .525044D-05, .318076D-05,
956 + .187584D-05, .104597D-05, .525014D-06, .217198D-06,
957 + .596251D-07, .502943D-08, .000000D+00, .137240D+07,
958 + .102772D+07, .755107D+06, .554549D+06, .407021D+06,
959 + .298560D+06, .218867D+06, .160344D+06, .117393D+06,
960 + .858905D+05, .627991D+05, .458838D+05, .335012D+05 /
961 DATA (UPDI(I),I=3381,3432) /
962 + .244425D+05, .178203D+05, .129824D+05, .945095D+04,
963 + .687478D+04, .499710D+04, .362943D+04, .263415D+04,
964 + .191033D+04, .138446D+04, .100261D+04, .725645D+03,
965 + .524785D+03, .379442D+03, .272988D+03, .197298D+03,
966 + .142591D+03, .103076D+03, .745502D+02, .539600D+02,
967 + .391416D+02, .284188D+02, .206819D+02, .150950D+02,
968 + .110554D+02, .812949D+01, .600377D+01, .445692D+01,
969 + .332502D+01, .249351D+01, .187958D+01, .142391D+01,
970 + .108354D+01, .828915D+00, .635268D+00, .489154D+00,
971 + .376925D+00, .291209D+00, .225209D+00, .174223D+00,
972 + .134731D+00, .104085D+00, .802761D-01, .617719D-01,
973 + .473963D-01, .362400D-01, .275979D-01, .209202D-01,
974 + .157776D-01, .118257D-01, .881821D-02, .651714D-02 /
975 DATA (UPDI(I),I=3433,3484) /
976 + .477896D-02, .347464D-02, .250300D-02, .178516D-02,
977 + .125957D-02, .878595D-03, .605493D-03, .412147D-03,
978 + .276596D-03, .183846D-03, .120355D-03, .779087D-04,
979 + .499569D-04, .318092D-04, .201704D-04, .127669D-04,
980 + .807412D-05, .506505D-05, .313117D-05, .186723D-05,
981 + .104104D-05, .516231D-06, .208047D-06, .551180D-07,
982 + .474515D-08, .000000D+00, .176526D+07, .131747D+07,
983 + .964104D+06, .705145D+06, .515405D+06, .376466D+06,
984 + .274792D+06, .200435D+06, .146094D+06, .106406D+06,
985 + .774408D+05, .563165D+05, .409223D+05, .297118D+05,
986 + .215548D+05, .156239D+05, .113155D+05, .818799D+04,
987 + .591989D+04, .427626D+04, .308640D+04, .222564D+04,
988 + .160367D+04, .115452D+04, .830570D+03, .596977D+03 /
989 DATA (UPDI(I),I=3485,3536) /
990 + .428946D+03, .306611D+03, .220161D+03, .158063D+03,
991 + .113491D+03, .815206D+02, .585937D+02, .422027D+02,
992 + .304212D+02, .219781D+02, .159231D+02, .115754D+02,
993 + .844836D+01, .619249D+01, .456255D+01, .337831D+01,
994 + .251455D+01, .188136D+01, .141475D+01, .106870D+01,
995 + .811678D+00, .617598D+00, .472207D+00, .361329D+00,
996 + .277246D+00, .212961D+00, .163649D+00, .125721D+00,
997 + .964929D-01, .739428D-01, .565373D-01, .431076D-01,
998 + .327560D-01, .247914D-01, .186786D-01, .140023D-01,
999 + .104324D-01, .773359D-02, .568231D-02, .414302D-02,
1000 + .299554D-02, .214633D-02, .152302D-02, .106957D-02,
1001 + .742973D-03, .510293D-03, .346538D-03, .232346D-03,
1002 + .154583D-03, .101546D-03, .661615D-04, .428534D-04 /
1003 DATA (UPDI(I),I=3537,3588) /
1004 + .276644D-04, .178431D-04, .115072D-04, .741032D-05,
1005 + .471750D-05, .294140D-05, .175531D-05, .970880D-06,
1006 + .473291D-06, .185495D-06, .474837D-07, .415876D-08,
1007 + .000000D+00, .223097D+07, .165962D+07, .120972D+07,
1008 + .881277D+06, .641545D+06, .466682D+06, .339225D+06,
1009 + .246386D+06, .178814D+06, .129668D+06, .939513D+05,
1010 + .680145D+05, .491953D+05, .355514D+05, .256685D+05,
1011 + .185156D+05, .133436D+05, .960707D+04, .691036D+04,
1012 + .496573D+04, .356500D+04, .255686D+04, .183217D+04,
1013 + .131161D+04, .938174D+03, .670366D+03, .478814D+03,
1014 + .340152D+03, .242737D+03, .173175D+03, .123545D+03,
1015 + .881643D+02, .629487D+02, .450348D+02, .322408D+02,
1016 + .231314D+02, .166414D+02, .120121D+02, .870470D+01 /
1017 DATA (UPDI(I),I=3589,3640) /
1018 + .633473D+01, .463390D+01, .340651D+01, .251738D+01,
1019 + .187003D+01, .139626D+01, .104729D+01, .789882D+00,
1020 + .596839D+00, .453222D+00, .344448D+00, .262527D+00,
1021 + .200322D+00, .152931D+00, .116729D+00, .890195D-01,
1022 + .677849D-01, .515048D-01, .390273D-01, .294737D-01,
1023 + .221717D-01, .166044D-01, .123734D-01, .916432D-02,
1024 + .675416D-02, .493420D-02, .357739D-02, .257249D-02,
1025 + .183361D-02, .129474D-02, .905201D-03, .626360D-03,
1026 + .428890D-03, .290697D-03, .194812D-03, .129793D-03,
1027 + .855829D-04, .561247D-04, .366956D-04, .239752D-04,
1028 + .156771D-04, .102494D-04, .667740D-05, .428279D-05,
1029 + .267482D-05, .158826D-05, .867996D-06, .414980D-06,
1030 + .158089D-06, .391605D-07, .348328D-08, .000000D+00 /
1031 DATA (UPDI(I),I=3641,3692) /
1032 + .277503D+07, .205780D+07, .149424D+07, .108434D+07,
1033 + .786268D+06, .569681D+06, .412419D+06, .298320D+06,
1034 + .215602D+06, .155683D+06, .112316D+06, .809538D+05,
1035 + .582945D+05, .419368D+05, .301398D+05, .216395D+05,
1036 + .155209D+05, .111207D+05, .795977D+04, .569120D+04,
1037 + .406503D+04, .290037D+04, .206734D+04, .147199D+04,
1038 + .104712D+04, .744019D+03, .528402D+03, .373174D+03,
1039 + .264731D+03, .187733D+03, .133112D+03, .944014D+02,
1040 + .669755D+02, .476087D+02, .338613D+02, .241336D+02,
1041 + .172464D+02, .123648D+02, .889933D+01, .643201D+01,
1042 + .467275D+01, .341142D+01, .250365D+01, .184705D+01,
1043 + .136966D+01, .102033D+01, .764366D+00, .573666D+00,
1044 + .432736D+00, .326704D+00, .247379D+00, .187544D+00 /
1045 DATA (UPDI(I),I=3693,3744) /
1046 + .142260D+00, .107897D+00, .817675D-01, .618759D-01,
1047 + .467254D-01, .351897D-01, .264148D-01, .197516D-01,
1048 + .147042D-01, .108931D-01, .802099D-02, .587778D-02,
1049 + .426978D-02, .307867D-02, .220214D-02, .156172D-02,
1050 + .109758D-02, .764136D-03, .526872D-03, .359804D-03,
1051 + .243506D-03, .163183D-03, .108919D-03, .721077D-04,
1052 + .475901D-04, .313843D-04, .207162D-04, .136926D-04,
1053 + .903830D-05, .592851D-05, .381205D-05, .237430D-05,
1054 + .139796D-05, .753107D-06, .352660D-06, .130590D-06,
1055 + .313528D-07, .282923D-08, .000000D+00, .340217D+07,
1056 + .251509D+07, .181949D+07, .131539D+07, .950166D+06,
1057 + .685764D+06, .494507D+06, .356271D+06, .256443D+06,
1058 + .184414D+06, .132489D+06, .950897D+05, .681794D+05 /
1059 DATA (UPDI(I),I=3745,3796) /
1060 + .488339D+05, .349412D+05, .249736D+05, .178303D+05,
1061 + .127158D+05, .905845D+04, .644555D+04, .458129D+04,
1062 + .325241D+04, .230651D+04, .163380D+04, .115611D+04,
1063 + .817045D+03, .577105D+03, .405276D+03, .285883D+03,
1064 + .201568D+03, .142086D+03, .100167D+03, .706363D+02,
1065 + .499033D+02, .352721D+02, .249803D+02, .177374D+02,
1066 + .126346D+02, .903426D+01, .648664D+01, .468135D+01,
1067 + .339507D+01, .247512D+01, .181390D+01, .133618D+01,
1068 + .988820D+00, .735914D+00, .548694D+00, .411226D+00,
1069 + .308462D+00, .232077D+00, .174831D+00, .131786D+00,
1070 + .993313D-01, .748125D-01, .562669D-01, .422322D-01,
1071 + .316146D-01, .235898D-01, .175350D-01, .129777D-01,
1072 + .955853D-02, .699804D-02, .509944D-02, .368395D-02 /
1073 DATA (UPDI(I),I=3797,3848) /
1074 + .264205D-02, .188012D-02, .132689D-02, .928396D-03,
1075 + .643813D-03, .442483D-03, .301485D-03, .203820D-03,
1076 + .136644D-03, .914030D-04, .607629D-04, .403479D-04,
1077 + .268138D-04, .178505D-04, .118948D-04, .790090D-05,
1078 + .519877D-05, .333945D-05, .206809D-05, .120473D-05,
1079 + .638837D-06, .292801D-06, .105423D-06, .245692D-07,
1080 + .224751D-08, .000000D+00, .690363D+05, .100351D+06,
1081 + .772021D+05, .593938D+05, .456938D+05, .351545D+05,
1082 + .270465D+05, .208090D+05, .160103D+05, .123187D+05,
1083 + .947858D+04, .729359D+04, .561259D+04, .431929D+04,
1084 + .332427D+04, .255872D+04, .196969D+04, .151648D+04,
1085 + .116774D+04, .899396D+03, .692889D+03, .533963D+03,
1086 + .411643D+03, .317489D+03, .245006D+03, .189198D+03 /
1087 DATA (UPDI(I),I=3849,3900) /
1088 + .146220D+03, .112705D+03, .873026D+02, .677211D+02,
1089 + .526205D+02, .409691D+02, .319734D+02, .250407D+02,
1090 + .196636D+02, .155007D+02, .122723D+02, .976325D+01,
1091 + .780793D+01, .627837D+01, .507872D+01, .413167D+01,
1092 + .338021D+01, .278015D+01, .229772D+01, .190711D+01,
1093 + .158960D+01, .132713D+01, .111135D+01, .930662D+00,
1094 + .780080D+00, .653526D+00, .546804D+00, .456590D+00,
1095 + .380225D+00, .315560D+00, .260840D+00, .214609D+00,
1096 + .175648D+00, .142922D+00, .115545D+00, .927536D-01,
1097 + .738834D-01, .584219D-01, .457088D-01, .354063D-01,
1098 + .271287D-01, .205405D-01, .153512D-01, .113104D-01,
1099 + .820355D-02, .584796D-02, .408851D-02, .279594D-02,
1100 + .187260D-02, .121745D-02, .767606D-03, .467212D-03 /
1101 DATA (UPDI(I),I=3901,3952) /
1102 + .272969D-03, .151998D-03, .799288D-04, .392679D-04,
1103 + .176423D-04, .713316D-05, .250170D-05, .722606D-06,
1104 + .157588D-06, .220439D-07, .137145D-08, .117649D-10,
1105 + .000000D+00, .159584D+06, .123767D+06, .947565D+05,
1106 + .725537D+05, .555579D+05, .425469D+05, .325857D+05,
1107 + .249588D+05, .191187D+05, .146464D+05, .112214D+05,
1108 + .859818D+04, .658889D+04, .504972D+04, .387059D+04,
1109 + .296721D+04, .227503D+04, .174462D+04, .133815D+04,
1110 + .102662D+04, .787832D+03, .604777D+03, .464436D+03,
1111 + .356821D+03, .274293D+03, .210981D+03, .162415D+03,
1112 + .124684D+03, .961923D+02, .743114D+02, .575000D+02,
1113 + .445772D+02, .346368D+02, .270048D+02, .211076D+02,
1114 + .165595D+02, .130461D+02, .103262D+02, .821495D+01 /
1115 DATA (UPDI(I),I=3953,4004) /
1116 + .657014D+01, .528546D+01, .427561D+01, .347784D+01,
1117 + .284373D+01, .233638D+01, .192760D+01, .159710D+01,
1118 + .132535D+01, .110323D+01, .918345D+00, .765208D+00,
1119 + .637317D+00, .530160D+00, .440167D+00, .364488D+00,
1120 + .300827D+00, .247308D+00, .202387D+00, .164775D+00,
1121 + .133384D+00, .107289D+00, .857033D-01, .679357D-01,
1122 + .534643D-01, .416351D-01, .321039D-01, .244890D-01,
1123 + .184614D-01, .137390D-01, .100808D-01, .728222D-02,
1124 + .517036D-02, .360093D-02, .245263D-02, .163580D-02,
1125 + .105851D-02, .663590D-03, .400821D-03, .231504D-03,
1126 + .126525D-03, .643030D-04, .295673D-04, .114676D-04,
1127 + .307958D-05, .000000D+00, .000000D+00, .000000D+00,
1128 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
1129 DATA (UPDI(I),I=4005,4056) /
1130 + .202691D+06, .156527D+06, .119252D+06, .908649D+05,
1131 + .692421D+05, .527697D+05, .402200D+05, .306578D+05,
1132 + .233713D+05, .178183D+05, .135862D+05, .103604D+05,
1133 + .790135D+04, .602670D+04, .459743D+04, .350760D+04,
1134 + .267655D+04, .204275D+04, .155935D+04, .119060D+04,
1135 + .909303D+03, .694672D+03, .530902D+03, .405911D+03,
1136 + .310511D+03, .237664D+03, .182053D+03, .139054D+03,
1137 + .106740D+03, .820404D+02, .631540D+02, .487055D+02,
1138 + .376444D+02, .291926D+02, .226934D+02, .177051D+02,
1139 + .138702D+02, .109159D+02, .863392D+01, .686478D+01,
1140 + .548982D+01, .441438D+01, .356911D+01, .290069D+01,
1141 + .236873D+01, .194241D+01, .159967D+01, .131943D+01,
1142 + .109174D+01, .903361D+00, .748293D+00, .619601D+00 /
1143 DATA (UPDI(I),I=4057,4108) /
1144 + .512460D+00, .423058D+00, .348360D+00, .285929D+00,
1145 + .233782D+00, .190294D+00, .154111D+00, .124104D+00,
1146 + .993147D-01, .789372D-01, .622624D-01, .487623D-01,
1147 + .377921D-01, .290044D-01, .220239D-01, .165296D-01,
1148 + .122489D-01, .895100D-02, .644139D-02, .455748D-02,
1149 + .316477D-02, .215045D-02, .143221D-02, .926689D-03,
1150 + .582094D-03, .353412D-03, .206255D-03, .114906D-03,
1151 + .605145D-04, .297863D-04, .133634D-04, .532383D-05,
1152 + .175808D-05, .400927D-06, .557918D-08, .000000D+00,
1153 + .000000D+00, .000000D+00, .000000D+00, .260773D+06,
1154 + .200544D+06, .152054D+06, .115302D+06, .874380D+05,
1155 + .663121D+05, .502937D+05, .381472D+05, .289362D+05,
1156 + .219507D+05, .166529D+05, .126346D+05, .958677D+04 /
1157 DATA (UPDI(I),I=4109,4160) /
1158 + .727478D+04, .552092D+04, .419034D+04, .318085D+04,
1159 + .241488D+04, .183368D+04, .139262D+04, .105790D+04,
1160 + .803846D+03, .611009D+03, .464607D+03, .353458D+03,
1161 + .269031D+03, .204931D+03, .155635D+03, .118791D+03,
1162 + .907813D+02, .694799D+02, .532730D+02, .409331D+02,
1163 + .315557D+02, .243842D+02, .189100D+02, .147246D+02,
1164 + .115178D+02, .905437D+01, .715490D+01, .568667D+01,
1165 + .454452D+01, .365171D+01, .294958D+01, .239392D+01,
1166 + .195108D+01, .159712D+01, .130938D+01, .107699D+01,
1167 + .885883D+00, .729540D+00, .600596D+00, .493918D+00,
1168 + .405463D+00, .332023D+00, .271031D+00, .220406D+00,
1169 + .178452D+00, .143762D+00, .115170D+00, .916956D-01,
1170 + .725159D-01, .569125D-01, .443542D-01, .342088D-01 /
1171 DATA (UPDI(I),I=4161,4212) /
1172 + .261289D-01, .197473D-01, .147528D-01, .108833D-01,
1173 + .791860D-02, .567480D-02, .399948D-02, .276768D-02,
1174 + .187494D-02, .124590D-02, .805196D-03, .506033D-03,
1175 + .308183D-03, .181167D-03, .102346D-03, .552947D-04,
1176 + .284869D-04, .138845D-04, .644696D-05, .286438D-05,
1177 + .123599D-05, .520610D-06, .207122D-06, .632375D-07,
1178 + .455622D-08, .000000D+00, .210378D+06, .257883D+06,
1179 + .194627D+06, .146897D+06, .110872D+06, .836825D+05,
1180 + .631611D+05, .476724D+05, .359823D+05, .271591D+05,
1181 + .204997D+05, .154735D+05, .116799D+05, .881667D+04,
1182 + .665563D+04, .502453D+04, .379344D+04, .286422D+04,
1183 + .216288D+04, .163348D+04, .123389D+04, .932241D+03,
1184 + .704543D+03, .532629D+03, .402842D+03, .304809D+03 /
1185 DATA (UPDI(I),I=4213,4264) /
1186 + .230808D+03, .174225D+03, .132179D+03, .100400D+03,
1187 + .763724D+02, .581979D+02, .444407D+02, .340475D+02,
1188 + .261455D+02, .201490D+02, .155910D+02, .121190D+02,
1189 + .946722D+01, .743426D+01, .587182D+01, .466328D+01,
1190 + .372393D+01, .298940D+01, .241142D+01, .195341D+01,
1191 + .158945D+01, .129530D+01, .105916D+01, .866130D+00,
1192 + .709172D+00, .580513D+00, .474725D+00, .387549D+00,
1193 + .315618D+00, .256248D+00, .207274D+00, .166934D+00,
1194 + .133783D+00, .106624D+00, .844596D-01, .664587D-01,
1195 + .518982D-01, .402474D-01, .308894D-01, .234793D-01,
1196 + .176600D-01, .131313D-01, .964241D-02, .698409D-02,
1197 + .498324D-02, .349751D-02, .241111D-02, .162778D-02,
1198 + .107867D-02, .695833D-03, .437130D-03, .266708D-03 /
1199 DATA (UPDI(I),I=4265,4316) /
1200 + .157620D-03, .900071D-04, .495837D-04, .264002D-04,
1201 + .135761D-04, .683780D-05, .339783D-05, .166953D-05,
1202 + .789450D-06, .334159D-06, .101266D-06, .789939D-08,
1203 + .000000D+00, .461970D+06, .352211D+06, .264360D+06,
1204 + .198419D+06, .148912D+06, .111748D+06, .838508D+05,
1205 + .629125D+05, .471986D+05, .354066D+05, .265586D+05,
1206 + .199201D+05, .149399D+05, .112040D+05, .840197D+04,
1207 + .630038D+04, .472439D+04, .354257D+04, .265647D+04,
1208 + .199208D+04, .149401D+04, .112059D+04, .840690D+03,
1209 + .630846D+03, .473554D+03, .355595D+03, .267209D+03,
1210 + .200127D+03, .150652D+03, .113537D+03, .856859D+02,
1211 + .647785D+02, .490722D+02, .372965D+02, .284113D+02,
1212 + .217199D+02, .166721D+02, .128559D+02, .996296D+01 /
1213 DATA (UPDI(I),I=4317,4368) /
1214 + .776156D+01, .608210D+01, .479251D+01, .379744D+01,
1215 + .302496D+01, .242152D+01, .194677D+01, .157227D+01,
1216 + .127180D+01, .103238D+01, .838126D+00, .681360D+00,
1217 + .553827D+00, .449759D+00, .364651D+00, .294960D+00,
1218 + .237874D+00, .191139D+00, .152932D+00, .121768D+00,
1219 + .964257D-01, .758958D-01, .593439D-01, .460499D-01,
1220 + .354885D-01, .270655D-01, .204428D-01, .152783D-01,
1221 + .112871D-01, .823374D-02, .592343D-02, .419662D-02,
1222 + .292342D-02, .199924D-02, .133759D-02, .877321D-03,
1223 + .559010D-03, .345806D-03, .206769D-03, .118841D-03,
1224 + .651963D-04, .337981D-04, .163752D-04, .723058D-05,
1225 + .284139D-05, .937523D-06, .231339D-06, .292941D-07,
1226 + .000000D+00, .783153D-09, .000000D+00, .000000D+00 /
1227 DATA (UPDI(I),I=4369,4420) /
1228 + .627013D+06, .475928D+06, .355359D+06, .265306D+06,
1229 + .198036D+06, .147794D+06, .110278D+06, .822687D+05,
1230 + .613618D+05, .457592D+05, .341177D+05, .254331D+05,
1231 + .189559D+05, .141258D+05, .105248D+05, .784062D+04,
1232 + .584027D+04, .434974D+04, .323939D+04, .241230D+04,
1233 + .179640D+04, .133776D+04, .996335D+03, .742144D+03,
1234 + .552956D+03, .412085D+03, .307305D+03, .228365D+03,
1235 + .170577D+03, .127550D+03, .955048D+02, .716310D+02,
1236 + .538322D+02, .405891D+02, .306729D+02, .232619D+02,
1237 + .177137D+02, .135507D+02, .104186D+02, .805289D+01,
1238 + .626131D+01, .489565D+01, .384950D+01, .304321D+01,
1239 + .241786D+01, .192939D+01, .154683D+01, .124209D+01,
1240 + .100104D+01, .806888D+00, .651356D+00, .525759D+00 /
1241 DATA (UPDI(I),I=4421,4472) /
1242 + .424030D+00, .341452D+00, .274334D+00, .219764D+00,
1243 + .175419D+00, .139435D+00, .110299D+00, .867798D-01,
1244 + .678662D-01, .527281D-01, .406560D-01, .311342D-01,
1245 + .235947D-01, .177091D-01, .131524D-01, .965607D-02,
1246 + .700043D-02, .500543D-02, .352501D-02, .244135D-02,
1247 + .166047D-02, .110534D-02, .721909D-03, .458568D-03,
1248 + .283342D-03, .169753D-03, .982614D-04, .547583D-04,
1249 + .292666D-04, .149979D-04, .733642D-05, .346746D-05,
1250 + .159818D-05, .727214D-06, .323172D-06, .131079D-06,
1251 + .381572D-07, .291450D-08, .000000D+00, .838509D+06,
1252 + .633805D+06, .470902D+06, .349801D+06, .259769D+06,
1253 + .192853D+06, .143132D+06, .106199D+06, .787726D+05,
1254 + .584119D+05, .433014D+05, .320903D+05, .237752D+05 /
1255 DATA (UPDI(I),I=4473,4524) /
1256 + .176097D+05, .130396D+05, .965302D+04, .714432D+04,
1257 + .528637D+04, .391090D+04, .289279D+04, .213950D+04,
1258 + .158222D+04, .117011D+04, .865354D+03, .640088D+03,
1259 + .473512D+03, .350493D+03, .258477D+03, .191607D+03,
1260 + .142180D+03, .105639D+03, .786178D+02, .586223D+02,
1261 + .438562D+02, .328823D+02, .247423D+02, .186938D+02,
1262 + .141892D+02, .108252D+02, .830275D+01, .640638D+01,
1263 + .497120D+01, .387961D+01, .304425D+01, .240092D+01,
1264 + .190192D+01, .151387D+01, .120692D+01, .965846D+00,
1265 + .773066D+00, .619738D+00, .496814D+00, .397969D+00,
1266 + .318313D+00, .254041D+00, .202164D+00, .160313D+00,
1267 + .126598D+00, .994978D-01, .777789D-01, .604387D-01,
1268 + .466593D-01, .357480D-01, .272029D-01, .204850D-01 /
1269 DATA (UPDI(I),I=4525,4576) /
1270 + .152781D-01, .112755D-01, .822625D-02, .592677D-02,
1271 + .421172D-02, .294820D-02, .203002D-02, .137319D-02,
1272 + .909553D-03, .591595D-03, .374723D-03, .231357D-03,
1273 + .138955D-03, .810546D-04, .458898D-04, .252363D-04,
1274 + .135571D-04, .713421D-05, .373323D-05, .194623D-05,
1275 + .998224D-06, .482057D-06, .199994D-06, .565559D-07,
1276 + .462949D-08, .000000D+00, .110341D+07, .830735D+06,
1277 + .614312D+06, .454145D+06, .335611D+06, .247918D+06,
1278 + .183068D+06, .135128D+06, .997029D+05, .735355D+05,
1279 + .542146D+05, .399541D+05, .294334D+05, .216745D+05,
1280 + .159550D+05, .117403D+05, .863610D+04, .635046D+04,
1281 + .466839D+04, .343085D+04, .252084D+04, .185181D+04,
1282 + .136022D+04, .999038D+03, .733817D+03, .538999D+03 /
1283 DATA (UPDI(I),I=4577,4628) /
1284 + .396111D+03, .289970D+03, .213377D+03, .157162D+03,
1285 + .115899D+03, .856049D+02, .633493D+02, .470335D+02,
1286 + .349962D+02, .261324D+02, .195940D+02, .147599D+02,
1287 + .111757D+02, .850741D+01, .651554D+01, .501863D+01,
1288 + .388800D+01, .302874D+01, .237155D+01, .186527D+01,
1289 + .147427D+01, .116711D+01, .927545D+00, .737301D+00,
1290 + .587051D+00, .467440D+00, .371938D+00, .295522D+00,
1291 + .234300D+00, .185237D+00, .145937D+00, .114503D+00,
1292 + .894150D-01, .694512D-01, .536252D-01, .411375D-01,
1293 + .313179D-01, .236819D-01, .177209D-01, .131333D-01,
1294 + .963172D-02, .698312D-02, .499996D-02, .353139D-02,
1295 + .245722D-02, .168227D-02, .113190D-02, .746135D-03,
1296 + .483438D-03, .305462D-03, .188542D-03, .113588D-03 /
1297 DATA (UPDI(I),I=4629,4680) /
1298 + .667937D-04, .384019D-04, .216637D-04, .120873D-04,
1299 + .669187D-05, .371154D-05, .204396D-05, .108944D-05,
1300 + .533449D-06, .218245D-06, .596860D-07, .503015D-08,
1301 + .000000D+00, .142856D+07, .107147D+07, .788763D+06,
1302 + .580443D+06, .426944D+06, .313889D+06, .230661D+06,
1303 + .169419D+06, .124376D+06, .912639D+05, .669343D+05,
1304 + .490662D+05, .359505D+05, .263277D+05, .192715D+05,
1305 + .140997D+05, .103112D+05, .753727D+04, .550739D+04,
1306 + .402256D+04, .293712D+04, .214388D+04, .156456D+04,
1307 + .114156D+04, .832900D+03, .607617D+03, .443470D+03,
1308 + .322345D+03, .235530D+03, .172243D+03, .126107D+03,
1309 + .924698D+02, .679298D+02, .500654D+02, .369781D+02,
1310 + .274091D+02, .204002D+02, .152545D+02, .114658D+02 /
1311 DATA (UPDI(I),I=4681,4732) /
1312 + .866487D+01, .658828D+01, .503831D+01, .387550D+01,
1313 + .299771D+01, .233083D+01, .182050D+01, .142901D+01,
1314 + .112352D+01, .886862D+00, .700204D+00, .553792D+00,
1315 + .438036D+00, .346249D+00, .273314D+00, .215287D+00,
1316 + .169107D+00, .132375D+00, .103199D+00, .800759D-01,
1317 + .618039D-01, .474199D-01, .361488D-01, .273469D-01,
1318 + .205499D-01, .152807D-01, .112539D-01, .820189D-02,
1319 + .590959D-02, .420534D-02, .295224D-02, .204219D-02,
1320 + .139033D-02, .930677D-03, .610720D-03, .394326D-03,
1321 + .248666D-03, .153536D-03, .928396D-04, .550565D-04,
1322 + .321278D-04, .185392D-04, .106635D-04, .611869D-05,
1323 + .351391D-05, .198669D-05, .107144D-05, .522032D-06,
1324 + .208755D-06, .551587D-07, .474565D-08, .000000D+00 /
1325 DATA (UPDI(I),I=4733,4784) /
1326 + .182049D+07, .136050D+07, .997204D+06, .730611D+06,
1327 + .534998D+06, .391541D+06, .286391D+06, .209361D+06,
1328 + .152961D+06, .111690D+06, .815078D+05, .594464D+05,
1329 + .433312D+05, .315660D+05, .229821D+05, .167228D+05,
1330 + .121616D+05, .883957D+04, .642177D+04, .466291D+04,
1331 + .338435D+04, .245532D+04, .178078D+04, .129115D+04,
1332 + .936024D+03, .678405D+03, .491880D+03, .355114D+03,
1333 + .257722D+03, .187184D+03, .136100D+03, .991028D+02,
1334 + .722916D+02, .529052D+02, .387988D+02, .285546D+02,
1335 + .211021D+02, .156676D+02, .116933D+02, .877461D+01,
1336 + .662512D+01, .503129D+01, .384338D+01, .295247D+01,
1337 + .228002D+01, .176873D+01, .137907D+01, .107697D+01,
1338 + .844489D+00, .662334D+00, .520406D+00, .408946D+00 /
1339 DATA (UPDI(I),I=4785,4836) /
1340 + .321161D+00, .251878D+00, .197132D+00, .153860D+00,
1341 + .119676D+00, .927102D-01, .714846D-01, .548273D-01,
1342 + .418043D-01, .316695D-01, .238087D-01, .177802D-01,
1343 + .131388D-01, .961639D-02, .696518D-02, .498777D-02,
1344 + .352789D-02, .246199D-02, .169333D-02, .114662D-02,
1345 + .763797D-03, .499118D-03, .321290D-03, .202322D-03,
1346 + .125041D-03, .759350D-04, .454260D-04, .268860D-04,
1347 + .158251D-04, .932495D-05, .548685D-05, .321712D-05,
1348 + .184011D-05, .992125D-06, .477279D-06, .185974D-06,
1349 + .475110D-07, .415911D-08, .000000D+00, .228529D+07,
1350 + .170193D+07, .124228D+07, .906322D+06, .660815D+06,
1351 + .481508D+06, .350633D+06, .255164D+06, .185569D+06,
1352 + .134866D+06, .979512D+05, .710928D+05, .515646D+05 /
1353 DATA (UPDI(I),I=4837,4888) /
1354 + .373751D+05, .270723D+05, .195964D+05, .141758D+05,
1355 + .102479D+05, .740395D+04, .534598D+04, .385802D+04,
1356 + .278272D+04, .200632D+04, .144594D+04, .104185D+04,
1357 + .750406D+03, .540663D+03, .387808D+03, .279630D+03,
1358 + .201768D+03, .145733D+03, .105409D+03, .763740D+02,
1359 + .555150D+02, .404357D+02, .295563D+02, .216931D+02,
1360 + .159965D+02, .118574D+02, .883737D+01, .662741D+01,
1361 + .499913D+01, .379323D+01, .289450D+01, .222043D+01,
1362 + .171111D+01, .132540D+01, .102826D+01, .801061D+00,
1363 + .624191D+00, .487277D+00, .380458D+00, .296883D+00,
1364 + .231359D+00, .179929D+00, .139549D+00, .107865D+00,
1365 + .830387D-01, .636289D-01, .484994D-01, .367507D-01,
1366 + .276693D-01, .206728D-01, .153434D-01, .112683D-01 /
1367 DATA (UPDI(I),I=4889,4940) /
1368 + .819672D-02, .590069D-02, .419998D-02, .295304D-02,
1369 + .204891D-02, .140142D-02, .944066D-03, .625987D-03,
1370 + .407511D-03, .261650D-03, .164627D-03, .101906D-03,
1371 + .621834D-04, .375286D-04, .225075D-04, .134757D-04,
1372 + .809153D-05, .484396D-05, .287325D-05, .164842D-05,
1373 + .882834D-06, .417721D-06, .158412D-06, .391788D-07,
1374 + .348352D-08, .000000D+00, .282845D+07, .209942D+07,
1375 + .152626D+07, .110897D+07, .805220D+06, .584263D+06,
1376 + .423639D+06, .306953D+06, .222245D+06, .160795D+06,
1377 + .116250D+06, .839814D+05, .606246D+05, .437304D+05,
1378 + .315205D+05, .227024D+05, .163393D+05, .117509D+05,
1379 + .844520D+04, .606515D+04, .435318D+04, .312245D+04,
1380 + .223857D+04, .160406D+04, .114903D+04, .822684D+03 /
1381 DATA (UPDI(I),I=4941,4992) /
1382 + .589175D+03, .419987D+03, .300960D+03, .215799D+03,
1383 + .154880D+03, .111308D+03, .801275D+02, .578658D+02,
1384 + .418724D+02, .304057D+02, .221699D+02, .162406D+02,
1385 + .119593D+02, .885484D+01, .659710D+01, .494381D+01,
1386 + .372685D+01, .282541D+01, .215342D+01, .164876D+01,
1387 + .126893D+01, .978117D+00, .757150D+00, .586211D+00,
1388 + .454730D+00, .352807D+00, .273575D+00, .211862D+00,
1389 + .163738D+00, .126203D+00, .969446D-01, .741711D-01,
1390 + .564841D-01, .427891D-01, .322252D-01, .241138D-01,
1391 + .179061D-01, .132092D-01, .964185D-02, .697110D-02,
1392 + .498824D-02, .352946D-02, .246718D-02, .170219D-02,
1393 + .115806D-02, .776302D-03, .512554D-03, .332537D-03,
1394 + .213071D-03, .134024D-03, .831400D-04, .509966D-04 /
1395 DATA (UPDI(I),I=4993,5044) /
1396 + .310457D-04, .188457D-04, .114461D-04, .697183D-05,
1397 + .422097D-05, .251699D-05, .144060D-05, .763463D-06,
1398 + .354542D-06, .130809D-06, .313650D-07, .282940D-08,
1399 + .000000D+00, .345471D+07, .255601D+07, .185098D+07,
1400 + .133962D+07, .968805D+06, .700105D+06, .505541D+06,
1401 + .364761D+06, .262977D+06, .189441D+06, .136358D+06,
1402 + .980674D+05, .704712D+05, .505979D+05, .362990D+05,
1403 + .260190D+05, .186352D+05, .133356D+05, .953583D+04,
1404 + .681329D+04, .486463D+04, .347078D+04, .247486D+04,
1405 + .176363D+04, .125627D+04, .894347D+03, .636810D+03,
1406 + .451253D+03, .321450D+03, .229108D+03, .163435D+03,
1407 + .116736D+03, .835143D+02, .599363D+02, .430985D+02,
1408 + .310987D+02, .225319D+02, .164012D+02, .120012D+02 /
1409 DATA (UPDI(I),I=5045,5096) /
1410 + .882949D+01, .653661D+01, .486751D+01, .364616D+01,
1411 + .274680D+01, .208032D+01, .158276D+01, .121051D+01,
1412 + .927201D+00, .713256D+00, .548766D+00, .423032D+00,
1413 + .326175D+00, .251358D+00, .193454D+00, .148591D+00,
1414 + .113825D+00, .869013D-01, .660811D-01, .500168D-01,
1415 + .376597D-01, .281903D-01, .209669D-01, .154751D-01,
1416 + .113474D-01, .823297D-02, .591693D-02, .420889D-02,
1417 + .296071D-02, .205789D-02, .141208D-02, .955772D-03,
1418 + .637738D-03, .419416D-03, .271304D-03, .173562D-03,
1419 + .109200D-03, .679183D-04, .418863D-04, .257134D-04,
1420 + .157779D-04, .969581D-05, .596769D-05, .363712D-05,
1421 + .217059D-05, .123492D-05, .646061D-06, .294094D-06,
1422 + .105571D-06, .245774D-07, .224763D-08, .000000D+00 /
1423 DATA (UPDI(I),I=5097,5148) /
1424 + .689519D+05, .100320D+06, .771748D+05, .593696D+05,
1425 + .456725D+05, .351355D+05, .270297D+05, .207941D+05,
1426 + .159972D+05, .123070D+05, .946826D+04, .728445D+04,
1427 + .560449D+04, .431212D+04, .331792D+04, .255308D+04,
1428 + .196470D+04, .151205D+04, .116381D+04, .895906D+03,
1429 + .689790D+03, .531207D+03, .409191D+03, .315304D+03,
1430 + .243056D+03, .187455D+03, .144659D+03, .111306D+03,
1431 + .860423D+02, .665821D+02, .515871D+02, .400274D+02,
1432 + .311110D+02, .242466D+02, .189284D+02, .148162D+02,
1433 + .116315D+02, .916024D+01, .723799D+01, .573781D+01,
1434 + .456480D+01, .364255D+01, .291479D+01, .233797D+01,
1435 + .187876D+01, .151166D+01, .121804D+01, .980079D+00,
1436 + .789061D+00, .633525D+00, .507997D+00, .406235D+00 /
1437 DATA (UPDI(I),I=5149,5200) /
1438 + .323774D+00, .257032D+00, .203117D+00, .159682D+00,
1439 + .124812D+00, .969366D-01, .747618D-01, .572211D-01,
1440 + .434332D-01, .326706D-01, .243340D-01, .179568D-01,
1441 + .130728D-01, .939625D-02, .665972D-02, .464795D-02,
1442 + .318915D-02, .214728D-02, .141566D-02, .911529D-03,
1443 + .571275D-03, .346958D-03, .204287D-03, .115027D-03,
1444 + .616741D-04, .311453D-04, .145787D-04, .616563D-05,
1445 + .224689D-05, .630335D-06, .757438D-07, .000000D+00,
1446 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1447 + .000000D+00, .000000D+00, .000000D+00, .159548D+06,
1448 + .123734D+06, .947278D+05, .725282D+05, .555353D+05,
1449 + .425270D+05, .325680D+05, .249431D+05, .191048D+05,
1450 + .146342D+05, .112105D+05, .858854D+04, .658035D+04 /
1451 DATA (UPDI(I),I=5201,5252) /
1452 + .504215D+04, .386389D+04, .296126D+04, .226975D+04,
1453 + .173994D+04, .133399D+04, .102292D+04, .784548D+03,
1454 + .601856D+03, .461834D+03, .354501D+03, .272221D+03,
1455 + .209127D+03, .160753D+03, .123192D+03, .948482D+02,
1456 + .730960D+02, .563969D+02, .435719D+02, .337165D+02,
1457 + .261580D+02, .203247D+02, .158321D+02, .123668D+02,
1458 + .968912D+01, .761529D+01, .600408D+01, .475015D+01,
1459 + .376909D+01, .299889D+01, .239168D+01, .191099D+01,
1460 + .152889D+01, .122511D+01, .980375D+00, .785135D+00,
1461 + .627141D+00, .500414D+00, .398304D+00, .316056D+00,
1462 + .249875D+00, .196714D+00, .154120D+00, .120101D+00,
1463 + .930389D-01, .716090D-01, .547285D-01, .415091D-01,
1464 + .312256D-01, .232795D-01, .172131D-01, .125730D-01 /
1465 DATA (UPDI(I),I=5253,5304) /
1466 + .908107D-02, .647979D-02, .456318D-02, .316793D-02,
1467 + .216535D-02, .145517D-02, .959683D-03, .619920D-03,
1468 + .390779D-03, .240685D-03, .143062D-03, .816287D-04,
1469 + .440329D-04, .217495D-04, .911173D-05, .230842D-05,
1470 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1471 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1472 + .000000D+00, .000000D+00, .202653D+06, .156493D+06,
1473 + .119221D+06, .908381D+05, .692184D+05, .527487D+05,
1474 + .402014D+05, .306413D+05, .233567D+05, .178054D+05,
1475 + .135747D+05, .103502D+05, .789235D+04, .601871D+04,
1476 + .459035D+04, .350132D+04, .267098D+04, .203780D+04,
1477 + .155495D+04, .118669D+04, .905827D+03, .691578D+03,
1478 + .528144D+03, .403450D+03, .308312D+03, .235695D+03 /
1479 DATA (UPDI(I),I=5305,5356) /
1480 + .180286D+03, .137468D+03, .105309D+03, .807470D+02,
1481 + .619800D+02, .476360D+02, .366659D+02, .282932D+02,
1482 + .218632D+02, .169354D+02, .131535D+02, .102461D+02,
1483 + .800597D+01, .627479D+01, .493478D+01, .389218D+01,
1484 + .307832D+01, .244041D+01, .193846D+01, .154183D+01,
1485 + .122847D+01, .977551D+00, .778644D+00, .618684D+00,
1486 + .491174D+00, .389060D+00, .307300D+00, .241895D+00,
1487 + .189656D+00, .148028D+00, .114956D+00, .887780D-01,
1488 + .681461D-01, .519659D-01, .393466D-01, .295672D-01,
1489 + .220334D-01, .162978D-01, .119202D-01, .863091D-02,
1490 + .618235D-02, .437788D-02, .306249D-02, .211473D-02,
1491 + .144035D-02, .966842D-03, .639119D-03, .415286D-03,
1492 + .266194D-03, .167028D-03, .102743D-03, .618008D-04 /
1493 DATA (UPDI(I),I=5357,5408) /
1494 + .362065D-04, .205286D-04, .111388D-04, .568892D-05,
1495 + .262998D-05, .103034D-05, .271756D-06, .000000D+00,
1496 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1497 + .000000D+00, .260732D+06, .200509D+06, .152022D+06,
1498 + .115273D+06, .874131D+05, .662900D+05, .502741D+05,
1499 + .381299D+05, .289208D+05, .219371D+05, .166408D+05,
1500 + .126239D+05, .957729D+04, .726636D+04, .551346D+04,
1501 + .418371D+04, .317497D+04, .240966D+04, .182904D+04,
1502 + .138849D+04, .105423D+04, .800571D+03, .608089D+03,
1503 + .461999D+03, .351127D+03, .266942D+03, .203056D+03,
1504 + .153952D+03, .117273D+03, .894083D+02, .682340D+02,
1505 + .521385D+02, .398961D+02, .306039D+02, .235072D+02,
1506 + .180988D+02, .139716D+02, .108165D+02, .839958D+01 /
1507 DATA (UPDI(I),I=5409,5460) /
1508 + .654254D+01, .511355D+01, .400830D+01, .315071D+01,
1509 + .248264D+01, .196021D+01, .154993D+01, .122783D+01,
1510 + .971513D+00, .769611D+00, .608253D+00, .480421D+00,
1511 + .378670D+00, .297684D+00, .233274D+00, .182118D+00,
1512 + .141576D+00, .109536D+00, .843017D-01, .645090D-01,
1513 + .490571D-01, .370571D-01, .277947D-01, .206835D-01,
1514 + .152867D-01, .111789D-01, .809923D-02, .581047D-02,
1515 + .412537D-02, .289720D-02, .201156D-02, .138016D-02,
1516 + .935424D-03, .626099D-03, .413363D-03, .270361D-03,
1517 + .174092D-03, .110705D-03, .695154D-04, .431017D-04,
1518 + .263626D-04, .159000D-04, .944362D-05, .548993D-05,
1519 + .312641D-05, .172880D-05, .917276D-06, .453239D-06,
1520 + .198001D-06, .626786D-07, .455082D-08, .000000D+00 /
1521 DATA (UPDI(I),I=5461,5512) /
1522 + .210276D+06, .257845D+06, .194594D+06, .146867D+06,
1523 + .110846D+06, .836593D+05, .631405D+05, .476542D+05,
1524 + .359661D+05, .271447D+05, .204870D+05, .154622D+05,
1525 + .116699D+05, .880781D+04, .664777D+04, .501754D+04,
1526 + .378724D+04, .285871D+04, .215797D+04, .162911D+04,
1527 + .123001D+04, .928780D+03, .701455D+03, .529871D+03,
1528 + .400375D+03, .302598D+03, .228823D+03, .172442D+03,
1529 + .130571D+03, .989459D+02, .750536D+02, .569980D+02,
1530 + .433452D+02, .330434D+02, .252223D+02, .192972D+02,
1531 + .148027D+02, .113874D+02, .878704D+01, .680110D+01,
1532 + .528222D+01, .411466D+01, .321431D+01, .251728D+01,
1533 + .197561D+01, .155287D+01, .122309D+01, .962276D+00,
1534 + .758125D+00, .595974D+00, .468298D+00, .367280D+00 /
1535 DATA (UPDI(I),I=5513,5564) /
1536 + .287349D+00, .224143D+00, .174223D+00, .134875D+00,
1537 + .103941D+00, .797008D-01, .607795D-01, .460761D-01,
1538 + .347074D-01, .259685D-01, .192838D-01, .142284D-01,
1539 + .103926D-01, .752476D-02, .539837D-02, .383565D-02,
1540 + .269808D-02, .187823D-02, .129361D-02, .881377D-03,
1541 + .594046D-03, .395743D-03, .261799D-03, .171035D-03,
1542 + .110755D-03, .711447D-04, .453791D-04, .287459D-04,
1543 + .181037D-04, .113255D-04, .699838D-05, .426442D-05,
1544 + .252822D-05, .142861D-05, .739216D-06, .327452D-06,
1545 + .100859D-06, .789532D-08, .000000D+00, .461925D+06,
1546 + .352171D+06, .264325D+06, .198387D+06, .148884D+06,
1547 + .111723D+06, .838288D+05, .628931D+05, .471814D+05,
1548 + .353913D+05, .265450D+05, .199080D+05, .149292D+05 /
1549 DATA (UPDI(I),I=5565,5616) /
1550 + .111946D+05, .839356D+04, .629292D+04, .471776D+04,
1551 + .353667D+04, .265122D+04, .198741D+04, .148985D+04,
1552 + .111689D+04, .837381D+03, .627889D+03, .470908D+03,
1553 + .353223D+03, .265080D+03, .198215D+03, .148928D+03,
1554 + .111979D+03, .842737D+02, .634952D+02, .479025D+02,
1555 + .362269D+02, .274306D+02, .208181D+02, .158408D+02,
1556 + .120880D+02, .925277D+01, .710431D+01, .547394D+01,
1557 + .423045D+01, .327906D+01, .254830D+01, .198489D+01,
1558 + .154861D+01, .121094D+01, .945955D+00, .740155D+00,
1559 + .577946D+00, .451191D+00, .351645D+00, .273452D+00,
1560 + .212059D+00, .163907D+00, .126208D+00, .967633D-01,
1561 + .738356D-01, .560469D-01, .423035D-01, .317359D-01,
1562 + .236555D-01, .175039D-01, .128730D-01, .937404D-02 /
1563 DATA (UPDI(I),I=5617,5668) /
1564 + .676803D-02, .484240D-02, .343143D-02, .240691D-02,
1565 + .167007D-02, .114550D-02, .776081D-03, .518985D-03,
1566 + .341733D-03, .222265D-03, .141619D-03, .884278D-04,
1567 + .539047D-04, .319115D-04, .182055D-04, .989739D-05,
1568 + .505229D-05, .234658D-05, .953931D-06, .308029D-06,
1569 + .593650D-07, .000000D+00, .000000D+00, .502828D-09,
1570 + .000000D+00, .000000D+00, .626965D+06, .475885D+06,
1571 + .355321D+06, .265272D+06, .198006D+06, .147768D+06,
1572 + .110254D+06, .822480D+05, .613435D+05, .457430D+05,
1573 + .341032D+05, .254203D+05, .189445D+05, .141157D+05,
1574 + .105159D+05, .783265D+04, .583319D+04, .434344D+04,
1575 + .323378D+04, .240731D+04, .179195D+04, .133379D+04,
1576 + .992792D+03, .738978D+03, .550123D+03, .409546D+03 /
1577 DATA (UPDI(I),I=5669,5720) /
1578 + .305026D+03, .226318D+03, .168733D+03, .125885D+03,
1579 + .939974D+02, .702634D+02, .525881D+02, .394544D+02,
1580 + .296356D+02, .223114D+02, .168411D+02, .127486D+02,
1581 + .968066D+01, .737389D+01, .563698D+01, .432250D+01,
1582 + .332460D+01, .256406D+01, .198225D+01, .153518D+01,
1583 + .119183D+01, .924443D+00, .718364D+00, .557156D+00,
1584 + .432120D+00, .334642D+00, .258624D+00, .199359D+00,
1585 + .153198D+00, .117300D+00, .894464D-01, .678966D-01,
1586 + .512807D-01, .385208D-01, .287667D-01, .213501D-01,
1587 + .157336D-01, .115274D-01, .836486D-02, .602043D-02,
1588 + .429569D-02, .303708D-02, .212664D-02, .147406D-02,
1589 + .101088D-02, .685535D-03, .459565D-03, .303972D-03,
1590 + .199159D-03, .128360D-03, .815553D-04, .510313D-04 /
1591 DATA (UPDI(I),I=5721,5772) /
1592 + .314131D-04, .189986D-04, .112808D-04, .657766D-05,
1593 + .375090D-05, .210089D-05, .114922D-05, .606546D-06,
1594 + .298794D-06, .127927D-06, .379691D-07, .291247D-08,
1595 + .000000D+00, .838457D+06, .633759D+06, .470862D+06,
1596 + .349766D+06, .259737D+06, .192825D+06, .143107D+06,
1597 + .106177D+06, .787531D+05, .583946D+05, .432860D+05,
1598 + .320767D+05, .237631D+05, .175989D+05, .130300D+05,
1599 + .964451D+04, .713675D+04, .527964D+04, .390491D+04,
1600 + .288745D+04, .213475D+04, .157797D+04, .116632D+04,
1601 + .861969D+03, .637059D+03, .470797D+03, .348058D+03,
1602 + .256291D+03, .189639D+03, .140405D+03, .104035D+03,
1603 + .771652D+02, .573040D+02, .426569D+02, .317894D+02,
1604 + .237447D+02, .177819D+02, .133550D+02, .100617D+02 /
1605 DATA (UPDI(I),I=5773,5824) /
1606 + .760441D+01, .576826D+01, .438926D+01, .335036D+01,
1607 + .256461D+01, .196807D+01, .151314D+01, .116640D+01,
1608 + .898376D+00, .693357D+00, .534160D+00, .411585D+00,
1609 + .316712D+00, .243250D+00, .186375D+00, .142377D+00,
1610 + .108392D+00, .821943D-01, .620554D-01, .466244D-01,
1611 + .348466D-01, .258966D-01, .191306D-01, .140348D-01,
1612 + .102390D-01, .740007D-02, .530607D-02, .377300D-02,
1613 + .265940D-02, .185738D-02, .128487D-02, .880062D-03,
1614 + .596712D-03, .400502D-03, .265722D-03, .175083D-03,
1615 + .113893D-03, .733964D-04, .468906D-04, .297264D-04,
1616 + .187179D-04, .117220D-04, .730485D-05, .450599D-05,
1617 + .274535D-05, .162654D-05, .913696D-06, .465272D-06,
1618 + .197862D-06, .564300D-07, .462806D-08, .000000D+00 /
1619 DATA (UPDI(I),I=5825,5876) /
1620 + .110336D+07, .830686D+06, .614269D+06, .454107D+06,
1621 + .335577D+06, .247888D+06, .183042D+06, .135104D+06,
1622 + .996820D+05, .735170D+05, .541981D+05, .399395D+05,
1623 + .294204D+05, .216629D+05, .159447D+05, .117312D+05,
1624 + .862802D+04, .634327D+04, .466199D+04, .342515D+04,
1625 + .251576D+04, .184728D+04, .135617D+04, .995424D+03,
1626 + .730584D+03, .536103D+03, .393514D+03, .287642D+03,
1627 + .211284D+03, .155276D+03, .114197D+03, .840671D+02,
1628 + .619570D+02, .457706D+02, .338492D+02, .250895D+02,
1629 + .186450D+02, .138958D+02, .103892D+02, .779217D+01,
1630 + .586603D+01, .443020D+01, .335651D+01, .255047D+01,
1631 + .194307D+01, .148325D+01, .113538D+01, .868439D+00,
1632 + .665740D+00, .509478D+00, .390024D+00, .298218D+00 /
1633 DATA (UPDI(I),I=5877,5928) /
1634 + .227625D+00, .173347D+00, .131641D+00, .996384D-01,
1635 + .751301D-01, .564100D-01, .421557D-01, .313426D-01,
1636 + .231749D-01, .170363D-01, .124390D-01, .903367D-02,
1637 + .650043D-02, .464179D-02, .328800D-02, .230948D-02,
1638 + .160808D-02, .110966D-02, .758757D-03, .514105D-03,
1639 + .345294D-03, .229667D-03, .152073D-03, .997357D-04,
1640 + .650667D-04, .422940D-04, .274358D-04, .177828D-04,
1641 + .115221D-04, .745061D-05, .476757D-05, .299815D-05,
1642 + .181654D-05, .103027D-05, .521899D-06, .216803D-06,
1643 + .596017D-07, .502915D-08, .000000D+00, .142850D+07,
1644 + .107142D+07, .788718D+06, .580403D+06, .426908D+06,
1645 + .313857D+06, .230633D+06, .169393D+06, .124354D+06,
1646 + .912442D+05, .669168D+05, .490506D+05, .359367D+05 /
1647 DATA (UPDI(I),I=5929,5980) /
1648 + .263154D+05, .192606D+05, .140900D+05, .103026D+05,
1649 + .752960D+04, .550056D+04, .401648D+04, .293170D+04,
1650 + .213905D+04, .156025D+04, .113771D+04, .829455D+03,
1651 + .604533D+03, .440707D+03, .319871D+03, .233308D+03,
1652 + .170245D+03, .124307D+03, .908469D+02, .664645D+02,
1653 + .487403D+02, .357789D+02, .263230D+02, .194162D+02,
1654 + .143630D+02, .106588D+02, .793522D+01, .592978D+01,
1655 + .444560D+01, .334378D+01, .252257D+01, .190820D+01,
1656 + .144644D+01, .109960D+01, .835343D+00, .636114D+00,
1657 + .483609D+00, .367842D+00, .279486D+00, .212009D+00,
1658 + .160477D+00, .121144D+00, .911608D-01, .683467D-01,
1659 + .510311D-01, .379285D-01, .280499D-01, .206330D-01,
1660 + .150913D-01, .109648D-01, .792542D-02, .567696D-02 /
1661 DATA (UPDI(I),I=5981,6032) /
1662 + .403621D-02, .284745D-02, .199263D-02, .138295D-02,
1663 + .951769D-03, .649574D-03, .439764D-03, .295538D-03,
1664 + .197044D-03, .131089D-03, .866353D-04, .571518D-04,
1665 + .377064D-04, .249175D-04, .165016D-04, .109381D-04,
1666 + .722892D-05, .471134D-05, .299928D-05, .182504D-05,
1667 + .103006D-05, .514088D-06, .207780D-06, .551023D-07,
1668 + .474495D-08, .000000D+00, .182043D+07, .136044D+07,
1669 + .997155D+06, .730568D+06, .534960D+06, .391507D+06,
1670 + .286361D+06, .209334D+06, .152938D+06, .111669D+06,
1671 + .814891D+05, .594299D+05, .433165D+05, .315529D+05,
1672 + .229705D+05, .167125D+05, .121524D+05, .883139D+04,
1673 + .641449D+04, .465642D+04, .337858D+04, .245017D+04,
1674 + .177618D+04, .128705D+04, .932360D+03, .675129D+03 /
1675 DATA (UPDI(I),I=6033,6084) /
1676 + .488947D+03, .352491D+03, .255369D+03, .185073D+03,
1677 + .134202D+03, .973956D+02, .707544D+02, .515195D+02,
1678 + .375494D+02, .274277D+02, .200857D+02, .147514D+02,
1679 + .108683D+02, .803306D+01, .595999D+01, .443647D+01,
1680 + .331334D+01, .248211D+01, .186458D+01, .140367D+01,
1681 + .105990D+01, .799791D+00, .605053D+00, .457012D+00,
1682 + .345403D+00, .260798D+00, .196619D+00, .147930D+00,
1683 + .111011D+00, .830502D-01, .619106D-01, .459670D-01,
1684 + .339772D-01, .249929D-01, .182879D-01, .133077D-01,
1685 + .962053D-02, .692030D-02, .493391D-02, .349238D-02,
1686 + .245359D-02, .171053D-02, .118325D-02, .812167D-03,
1687 + .553286D-03, .374306D-03, .251732D-03, .168265D-03,
1688 + .112476D-03, .748859D-04, .499086D-04, .333562D-04 /
1689 DATA (UPDI(I),I=6085,6136) /
1690 + .223767D-04, .150586D-04, .101350D-04, .678379D-05,
1691 + .445870D-05, .284623D-05, .172532D-05, .963194D-06,
1692 + .471817D-06, .185315D-06, .474732D-07, .415862D-08,
1693 + .000000D+00, .228522D+07, .170188D+07, .124223D+07,
1694 + .906277D+06, .660774D+06, .481472D+06, .350600D+06,
1695 + .255136D+06, .185543D+06, .134843D+06, .979313D+05,
1696 + .710751D+05, .515489D+05, .373611D+05, .270599D+05,
1697 + .195853D+05, .141660D+05, .102392D+05, .739620D+04,
1698 + .533908D+04, .385187D+04, .277724D+04, .200144D+04,
1699 + .144159D+04, .103796D+04, .746931D+03, .537557D+03,
1700 + .385033D+03, .277146D+03, .199542D+03, .143738D+03,
1701 + .103618D+03, .747663D+02, .540707D+02, .391383D+02,
1702 + .283909D+02, .206470D+02, .150582D+02, .110172D+02 /
1703 DATA (UPDI(I),I=6137,6188) /
1704 + .808641D+01, .595795D+01, .440428D+01, .326667D+01,
1705 + .243043D+01, .181339D+01, .135597D+01, .101711D+01,
1706 + .762451D+00, .573086D+00, .430098D+00, .323021D+00,
1707 + .242390D+00, .181629D+00, .135834D+00, .101333D+00,
1708 + .753705D-01, .558656D-01, .412465D-01, .303205D-01,
1709 + .221829D-01, .161463D-01, .116888D-01, .840769D-02,
1710 + .601856D-02, .427091D-02, .300967D-02, .210571D-02,
1711 + .146252D-02, .100844D-02, .690423D-03, .469577D-03,
1712 + .317523D-03, .213758D-03, .143281D-03, .962421D-04,
1713 + .645383D-04, .434176D-04, .293436D-04, .199238D-04,
1714 + .135665D-04, .922120D-05, .621352D-05, .409364D-05,
1715 + .260621D-05, .156696D-05, .862624D-06, .413967D-06,
1716 + .157966D-06, .391534D-07, .348318D-08, .000000D+00 /
1717 DATA (UPDI(I),I=6189,6240) /
1718 + .282838D+07, .209935D+07, .152620D+07, .110892D+07,
1719 + .805177D+06, .584224D+06, .423605D+06, .306922D+06,
1720 + .222218D+06, .160771D+06, .116229D+06, .839626D+05,
1721 + .606079D+05, .437155D+05, .315073D+05, .226907D+05,
1722 + .163289D+05, .117416D+05, .843695D+04, .605781D+04,
1723 + .434665D+04, .311664D+04, .223339D+04, .159944D+04,
1724 + .114491D+04, .819006D+03, .585891D+03, .417059D+03,
1725 + .298343D+03, .213459D+03, .152787D+03, .109436D+03,
1726 + .784515D+02, .563652D+02, .405297D+02, .292047D+02,
1727 + .210968D+02, .152829D+02, .111064D+02, .809694D+01,
1728 + .592556D+01, .435089D+01, .320546D+01, .236900D+01,
1729 + .175586D+01, .130432D+01, .972022D+00, .723940D+00,
1730 + .540688D+00, .403225D+00, .300962D+00, .224456D+00 /
1731 DATA (UPDI(I),I=6241,6292) /
1732 + .167177D+00, .124283D+00, .921739D-01, .681629D-01,
1733 + .502367D-01, .368837D-01, .269648D-01, .196217D-01,
1734 + .142069D-01, .102319D-01, .732281D-02, .521664D-02,
1735 + .368462D-02, .258511D-02, .180133D-02, .124658D-02,
1736 + .856910D-03, .585317D-03, .397545D-03, .268770D-03,
1737 + .181179D-03, .121815D-03, .822281D-04, .555211D-04,
1738 + .376699D-04, .257010D-04, .176163D-04, .120949D-04,
1739 + .826874D-05, .558546D-05, .367396D-05, .232490D-05,
1740 + .138285D-05, .749354D-06, .351963D-06, .130507D-06,
1741 + .313480D-07, .282916D-08, .000000D+00, .345464D+07,
1742 + .255595D+07, .185092D+07, .133956D+07, .968759D+06,
1743 + .700064D+06, .505505D+06, .364729D+06, .262948D+06,
1744 + .189416D+06, .136335D+06, .980473D+05, .704534D+05 /
1745 DATA (UPDI(I),I=6293,6344) /
1746 + .505821D+05, .362850D+05, .260065D+05, .186241D+05,
1747 + .133258D+05, .952706D+04, .680549D+04, .485770D+04,
1748 + .346461D+04, .246936D+04, .175873D+04, .125191D+04,
1749 + .890462D+03, .633347D+03, .448170D+03, .318700D+03,
1750 + .226655D+03, .161246D+03, .114783D+03, .817721D+02,
1751 + .583820D+02, .417131D+02, .298650D+02, .214346D+02,
1752 + .154270D+02, .111381D+02, .806708D+01, .586515D+01,
1753 + .427840D+01, .313150D+01, .229929D+01, .169317D+01,
1754 + .124965D+01, .925364D+00, .684812D+00, .508273D+00,
1755 + .376697D+00, .279442D+00, .207148D+00, .153366D+00,
1756 + .113345D+00, .835741D-01, .614499D-01, .450340D-01,
1757 + .328806D-01, .239071D-01, .173037D-01, .124629D-01,
1758 + .893009D-02, .635927D-02, .450858D-02, .316991D-02 /
1759 DATA (UPDI(I),I=6345,6396) /
1760 + .221442D-02, .153696D-02, .105994D-02, .726539D-03,
1761 + .495245D-03, .336011D-03, .227209D-03, .153416D-03,
1762 + .103488D-03, .702026D-04, .477096D-04, .326146D-04,
1763 + .224266D-04, .154818D-04, .106869D-04, .732563D-05,
1764 + .494536D-05, .323874D-05, .203255D-05, .119401D-05,
1765 + .636217D-06, .292323D-06, .105367D-06, .245660D-07,
1766 + .224747D-08, .000000D+00, .377079D+07, .287859D+07,
1767 + .216386D+07, .162661D+07, .122275D+07, .919172D+06,
1768 + .690971D+06, .519432D+06, .390485D+06, .293554D+06,
1769 + .220689D+06, .165915D+06, .124741D+06, .937880D+05,
1770 + .705195D+05, .530273D+05, .398772D+05, .299910D+05,
1771 + .225584D+05, .169703D+05, .127687D+05, .960948D+04,
1772 + .723382D+04, .544722D+04, .410350D+04, .309272D+04 /
1773 DATA (UPDI(I),I=6397,6448) /
1774 + .233228D+04, .175304D+04, .132423D+04, .100133D+04,
1775 + .758098D+03, .574789D+03, .436564D+03, .332536D+03,
1776 + .253753D+03, .194215D+03, .149159D+03, .115004D+03,
1777 + .890570D+02, .692882D+02, .542022D+02, .426294D+02,
1778 + .337197D+02, .268286D+02, .214721D+02, .172862D+02,
1779 + .140075D+02, .113990D+02, .933685D+01, .767654D+01,
1780 + .634531D+01, .526727D+01, .438931D+01, .367031D+01,
1781 + .307835D+01, .258852D+01, .218129D+01, .184123D+01,
1782 + .155613D+01, .131621D+01, .111363D+01, .942068D+00,
1783 + .796386D+00, .672932D+00, .567027D+00, .476660D+00,
1784 + .399493D+00, .333583D+00, .277314D+00, .229328D+00,
1785 + .188481D+00, .153804D+00, .124453D+00, .997022D-01,
1786 + .791370D-01, .619169D-01, .477296D-01, .361581D-01 /
1787 DATA (UPDI(I),I=6449,6500) /
1788 + .268354D-01, .194358D-01, .136689D-01, .928055D-02,
1789 + .601348D-02, .368696D-02, .209719D-02, .107649D-02,
1790 + .476024D-03, .166235D-03, .377135D-04, .297705D-05,
1791 + .000000D+00, .549014D+07, .418523D+07, .314070D+07,
1792 + .235652D+07, .176790D+07, .132612D+07, .994577D+06,
1793 + .745804D+06, .559163D+06, .419155D+06, .314147D+06,
1794 + .235399D+06, .176357D+06, .132096D+06, .989231D+05,
1795 + .740646D+05, .554412D+05, .414915D+05, .310455D+05,
1796 + .232245D+05, .173707D+05, .129901D+05, .971308D+04,
1797 + .726191D+04, .542924D+04, .405875D+04, .303485D+04,
1798 + .226041D+04, .169140D+04, .126630D+04, .948751D+03,
1799 + .711553D+03, .534335D+03, .402256D+03, .303244D+03,
1800 + .229210D+03, .173800D+03, .132270D+03, .101090D+03 /
1801 DATA (UPDI(I),I=6501,6552) /
1802 + .776157D+02, .599183D+02, .465075D+02, .363092D+02,
1803 + .285179D+02, .225360D+02, .179167D+02, .143424D+02,
1804 + .115312D+02, .933457D+01, .758595D+01, .619941D+01,
1805 + .508874D+01, .419380D+01, .346856D+01, .287762D+01,
1806 + .239363D+01, .199533D+01, .166611D+01, .139289D+01,
1807 + .116532D+01, .975153D+00, .815827D+00, .681915D+00,
1808 + .569667D+00, .474443D+00, .394119D+00, .326334D+00,
1809 + .269139D+00, .220920D+00, .180329D+00, .146238D+00,
1810 + .117696D+00, .938998D-01, .741212D-01, .579438D-01,
1811 + .446179D-01, .338256D-01, .251804D-01, .183460D-01,
1812 + .130299D-01, .897238D-02, .595591D-02, .376493D-02,
1813 + .224640D-02, .123940D-02, .614401D-03, .260848D-03,
1814 + .866885D-04, .186612D-04, .150176D-05, .000000D+00 /
1815 DATA (UPDI(I),I=6553,6604) /
1816 + .770869D+07, .586336D+07, .438826D+07, .328339D+07,
1817 + .245604D+07, .183664D+07, .137305D+07, .102616D+07,
1818 + .766659D+06, .572587D+06, .427492D+06, .319046D+06,
1819 + .238020D+06, .177501D+06, .132315D+06, .985897D+05,
1820 + .734292D+05, .546649D+05, .406779D+05, .302556D+05,
1821 + .224940D+05, .167159D+05, .124171D+05, .921994D+04,
1822 + .684384D+04, .507777D+04, .376722D+04, .278275D+04,
1823 + .206462D+04, .153211D+04, .113740D+04, .844954D+03,
1824 + .628281D+03, .468200D+03, .349278D+03, .261184D+03,
1825 + .195883D+03, .147422D+03, .111404D+03, .845647D+02,
1826 + .645407D+02, .495253D+02, .382271D+02, .296865D+02,
1827 + .231984D+02, .182398D+02, .144429D+02, .114867D+02,
1828 + .920038D+01, .739838D+01, .598354D+01, .486116D+01 /
1829 DATA (UPDI(I),I=6605,6656) /
1830 + .396543D+01, .324642D+01, .266607D+01, .219521D+01,
1831 + .181136D+01, .149706D+01, .123870D+01, .102557D+01,
1832 + .849217D+00, .702939D+00, .581204D+00, .480218D+00,
1833 + .395458D+00, .324743D+00, .265741D+00, .216537D+00,
1834 + .175554D+00, .141485D+00, .113241D+00, .899109D-01,
1835 + .707391D-01, .550294D-01, .423753D-01, .321169D-01,
1836 + .239473D-01, .175179D-01, .125292D-01, .872504D-02,
1837 + .588166D-02, .381602D-02, .235229D-02, .136505D-02,
1838 + .729915D-03, .349059D-03, .142062D-03, .448559D-04,
1839 + .915196D-05, .749744D-06, .000000D+00, .104860D+08,
1840 + .795473D+07, .593475D+07, .442603D+07, .329959D+07,
1841 + .245885D+07, .183157D+07, .136372D+07, .101492D+07,
1842 + .754968D+06, .561324D+06, .417132D+06, .309816D+06 /
1843 DATA (UPDI(I),I=6657,6708) /
1844 + .229980D+06, .170621D+06, .126506D+06, .937414D+05,
1845 + .694182D+05, .513742D+05, .379951D+05, .280826D+05,
1846 + .207421D+05, .153110D+05, .112946D+05, .832715D+04,
1847 + .613483D+04, .451847D+04, .331227D+04, .243840D+04,
1848 + .179495D+04, .132147D+04, .973298D+03, .717326D+03,
1849 + .529718D+03, .391491D+03, .289962D+03, .215352D+03,
1850 + .160473D+03, .120053D+03, .902093D+02, .681497D+02,
1851 + .517623D+02, .395474D+02, .304005D+02, .235173D+02,
1852 + .183054D+02, .143518D+02, .113015D+02, .896411D+01,
1853 + .713846D+01, .571788D+01, .460093D+01, .371738D+01,
1854 + .301436D+01, .245188D+01, .199952D+01, .163400D+01,
1855 + .133737D+01, .109572D+01, .898192D+00, .736268D+00,
1856 + .603236D+00, .493576D+00, .403510D+00, .328687D+00 /
1857 DATA (UPDI(I),I=6709,6760) /
1858 + .266921D+00, .215946D+00, .173914D+00, .139312D+00,
1859 + .110894D+00, .876280D-01, .686618D-01, .532889D-01,
1860 + .408668D-01, .310083D-01, .231395D-01, .169746D-01,
1861 + .122056D-01, .857224D-02, .585475D-02, .386500D-02,
1862 + .245170D-02, .147424D-02, .832380D-03, .431570D-03,
1863 + .199226D-03, .778045D-04, .233946D-04, .454374D-05,
1864 + .376939D-06, .000000D+00, .138807D+08, .105000D+08,
1865 + .780722D+07, .580222D+07, .431006D+07, .320003D+07,
1866 + .237464D+07, .176119D+07, .130547D+07, .967103D+06,
1867 + .716001D+06, .529757D+06, .391701D+06, .289422D+06,
1868 + .213700D+06, .157672D+06, .116247D+06, .856381D+05,
1869 + .630397D+05, .463660D+05, .340754D+05, .250214D+05,
1870 + .183587D+05, .134587D+05, .985916D+04, .721533D+04 /
1871 DATA (UPDI(I),I=6761,6812) /
1872 + .527815D+04, .384164D+04, .280768D+04, .205140D+04,
1873 + .149871D+04, .109515D+04, .800591D+03, .586309D+03,
1874 + .429630D+03, .315445D+03, .232205D+03, .171474D+03,
1875 + .127115D+03, .946363D+02, .708322D+02, .532995D+02,
1876 + .403428D+02, .307238D+02, .235474D+02, .181596D+02,
1877 + .141074D+02, .110073D+02, .865174D+01, .682727D+01,
1878 + .541939D+01, .432155D+01, .346027D+01, .278060D+01,
1879 + .224127D+01, .181113D+01, .146645D+01, .118911D+01,
1880 + .965109D+00, .783604D+00, .636139D+00, .516085D+00,
1881 + .418034D+00, .338271D+00, .272660D+00, .219049D+00,
1882 + .175269D+00, .139561D+00, .110496D+00, .869030D-01,
1883 + .678214D-01, .524629D-01, .401779D-01, .303855D-01,
1884 + .227252D-01, .167025D-01, .120583D-01, .852565D-02 /
1885 DATA (UPDI(I),I=6813,6864) /
1886 + .588159D-02, .394106D-02, .254868D-02, .158120D-02,
1887 + .927825D-03, .509915D-03, .256479D-03, .114368D-03,
1888 + .429037D-04, .123111D-04, .228366D-05, .190543D-06,
1889 + .000000D+00, .189529D+08, .142838D+08, .105737D+08,
1890 + .782272D+07, .578405D+07, .427404D+07, .315623D+07,
1891 + .232922D+07, .171773D+07, .126586D+07, .932176D+06,
1892 + .685919D+06, .504317D+06, .370487D+06, .271940D+06,
1893 + .199427D+06, .146119D+06, .106958D+06, .782187D+05,
1894 + .571441D+05, .417072D+05, .304086D+05, .221493D+05,
1895 + .161163D+05, .117154D+05, .850589D+04, .617186D+04,
1896 + .445419D+04, .322755D+04, .233748D+04, .169232D+04,
1897 + .122520D+04, .887178D+03, .643434D+03, .466815D+03,
1898 + .339281D+03, .247180D+03, .180625D+03, .132482D+03 /
1899 DATA (UPDI(I),I=6865,6916) /
1900 + .975765D+02, .722469D+02, .537759D+02, .402621D+02,
1901 + .303298D+02, .229938D+02, .175409D+02, .134805D+02,
1902 + .104047D+02, .809083D+01, .631619D+01, .496017D+01,
1903 + .391310D+01, .309966D+01, .246403D+01, .196461D+01,
1904 + .157024D+01, .125740D+01, .100823D+01, .809067D+00,
1905 + .649383D+00, .521042D+00, .417703D+00, .334246D+00,
1906 + .267142D+00, .212601D+00, .168585D+00, .133097D+00,
1907 + .104533D+00, .815994D-01, .632462D-01, .486200D-01,
1908 + .370274D-01, .279019D-01, .207474D-01, .152476D-01,
1909 + .110018D-01, .779033D-02, .539659D-02, .364313D-02,
1910 + .238534D-02, .150471D-02, .908850D-03, .517845D-03,
1911 + .275546D-03, .133681D-03, .572241D-04, .204873D-04,
1912 + .557624D-05, .983072D-06, .814691D-07, .000000D+00 /
1913 DATA (UPDI(I),I=6917,6968) /
1914 + .252017D+08, .189213D+08, .139434D+08, .102681D+08,
1915 + .755640D+07, .555686D+07, .408342D+07, .299837D+07,
1916 + .219989D+07, .161272D+07, .118127D+07, .864469D+06,
1917 + .632055D+06, .461683D+06, .336908D+06, .245602D+06,
1918 + .178856D+06, .130107D+06, .945424D+05, .686198D+05,
1919 + .497490D+05, .360243D+05, .260564D+05, .188233D+05,
1920 + .135827D+05, .978722D+04, .704690D+04, .504498D+04,
1921 + .362607D+04, .260434D+04, .186954D+04, .134175D+04,
1922 + .962937D+03, .692054D+03, .497436D+03, .358124D+03,
1923 + .258403D+03, .186987D+03, .135796D+03, .990212D+02,
1924 + .725815D+02, .534800D+02, .396354D+02, .295552D+02,
1925 + .221796D+02, .167481D+02, .127415D+02, .973450D+01,
1926 + .749343D+01, .579051D+01, .450135D+01, .351510D+01 /
1927 DATA (UPDI(I),I=6969,7020) /
1928 + .275602D+01, .216838D+01, .171101D+01, .135327D+01,
1929 + .107222D+01, .850546D+00, .675117D+00, .535893D+00,
1930 + .425154D+00, .336931D+00, .266455D+00, .210421D+00,
1931 + .165404D+00, .129506D+00, .100921D+00, .782056D-01,
1932 + .602090D-01, .460041D-01, .348452D-01, .261323D-01,
1933 + .193796D-01, .141709D-01, .102347D-01, .725007D-02,
1934 + .503502D-02, .341687D-02, .225661D-02, .144316D-02,
1935 + .887490D-03, .521442D-03, .288163D-03, .148219D-03,
1936 + .692078D-04, .283536D-04, .964718D-05, .247582D-05,
1937 + .411118D-06, .331581D-07, .000000D+00, .327210D+08,
1938 + .244741D+08, .179541D+08, .131610D+08, .963998D+07,
1939 + .705531D+07, .515938D+07, .376969D+07, .275187D+07,
1940 + .200700D+07, .146236D+07, .106446D+07, .774043D+06 /
1941 DATA (UPDI(I),I=7021,7072) /
1942 + .562257D+06, .407974D+06, .295688D+06, .214059D+06,
1943 + .154776D+06, .111776D+06, .806173D+05, .580716D+05,
1944 + .417745D+05, .300126D+05, .215323D+05, .154282D+05,
1945 + .110368D+05, .788821D+04, .560418D+04, .399701D+04,
1946 + .284817D+04, .202811D+04, .144359D+04, .102731D+04,
1947 + .732001D+03, .521548D+03, .372141D+03, .266089D+03,
1948 + .190783D+03, .137268D+03, .991559D+02, .719944D+02,
1949 + .525438D+02, .385706D+02, .284865D+02, .211733D+02,
1950 + .158352D+02, .119322D+02, .902863D+01, .688375D+01,
1951 + .526823D+01, .405600D+01, .313678D+01, .243553D+01,
1952 + .189751D+01, .148251D+01, .116087D+01, .910505D+00,
1953 + .714888D+00, .561554D+00, .441050D+00, .346153D+00,
1954 + .271322D+00, .212166D+00, .165638D+00, .128672D+00 /
1955 DATA (UPDI(I),I=7073,7124) /
1956 + .995312D-01, .766011D-01, .586026D-01, .445233D-01,
1957 + .335563D-01, .250588D-01, .185181D-01, .135240D-01,
1958 + .973137D-02, .691192D-02, .481046D-02, .327900D-02,
1959 + .218160D-02, .141071D-02, .881972D-03, .529254D-03,
1960 + .302795D-03, .162478D-03, .808884D-04, .364050D-04,
1961 + .143005D-04, .463516D-05, .112501D-05, .175958D-06,
1962 + .133046D-07, .000000D+00, .415908D+08, .309931D+08,
1963 + .226353D+08, .165173D+08, .120427D+08, .877257D+07,
1964 + .638462D+07, .464229D+07, .337215D+07, .244704D+07,
1965 + .177387D+07, .128449D+07, .929086D+06, .671232D+06,
1966 + .484366D+06, .349084D+06, .251269D+06, .180621D+06,
1967 + .129664D+06, .929513D+05, .665414D+05, .475645D+05,
1968 + .339516D+05, .241975D+05, .172209D+05, .122340D+05 /
1969 DATA (UPDI(I),I=7125,7176) /
1970 + .868235D+04, .612337D+04, .433521D+04, .306596D+04,
1971 + .216645D+04, .152999D+04, .108009D+04, .763348D+03,
1972 + .539367D+03, .381606D+03, .270518D+03, .192273D+03,
1973 + .137125D+03, .981739D+02, .706450D+02, .510957D+02,
1974 + .371693D+02, .272034D+02, .200366D+02, .148491D+02,
1975 + .110880D+02, .831348D+01, .628109D+01, .476311D+01,
1976 + .363363D+01, .278436D+01, .214196D+01, .165329D+01,
1977 + .127960D+01, .992490D+00, .770976D+00, .599456D+00,
1978 + .466239D+00, .362519D+00, .281618D+00, .218444D+00,
1979 + .169001D+00, .130512D+00, .100255D+00, .766642D-01,
1980 + .583097D-01, .440701D-01, .330653D-01, .245999D-01,
1981 + .181257D-01, .132094D-01, .950825D-02, .673868D-02,
1982 + .471142D-02, .322473D-02, .215975D-02, .141037D-02 /
1983 DATA (UPDI(I),I=7177,7228) /
1984 + .894036D-03, .547155D-03, .320859D-03, .179037D-03,
1985 + .934538D-04, .451268D-04, .196255D-04, .741431D-05,
1986 + .229799D-05, .529713D-06, .779615D-07, .521459D-08,
1987 + .000000D+00, .518710D+08, .385137D+08, .280051D+08,
1988 + .203451D+08, .147667D+08, .107076D+08, .775665D+07,
1989 + .561322D+07, .405781D+07, .293019D+07, .211354D+07,
1990 + .152270D+07, .109571D+07, .787463D+06, .565205D+06,
1991 + .405131D+06, .289996D+06, .207283D+06, .147948D+06,
1992 + .105437D+06, .750283D+05, .533039D+05, .378118D+05,
1993 + .267774D+05, .189334D+05, .133612D+05, .941826D+04,
1994 + .659590D+04, .463687D+04, .325573D+04, .228367D+04,
1995 + .160070D+04, .112138D+04, .786384D+03, .551246D+03,
1996 + .386873D+03, .272014D+03, .191739D+03, .135602D+03 /
1997 DATA (UPDI(I),I=7229,7280) /
1998 + .962647D+02, .686835D+02, .492530D+02, .355220D+02,
1999 + .257746D+02, .188211D+02, .138281D+02, .102371D+02,
2000 + .760904D+01, .569942D+01, .428453D+01, .324021D+01,
2001 + .246129D+01, .187685D+01, .143589D+01, .110146D+01,
2002 + .846658D+00, .651724D+00, .502077D+00, .386861D+00,
2003 + .297954D+00, .229234D+00, .176069D+00, .134855D+00,
2004 + .103084D+00, .783569D-01, .592766D-01, .445891D-01,
2005 + .333193D-01, .247081D-01, .181615D-01, .132156D-01,
2006 + .950711D-02, .675175D-02, .471817D-02, .325092D-02,
2007 + .219102D-02, .144378D-02, .926750D-03, .576827D-03,
2008 + .346188D-03, .198782D-03, .108423D-03, .551965D-04,
2009 + .259301D-04, .109362D-04, .399093D-05, .118908D-05,
2010 + .261791D-06, .362235D-07, .195957D-08, .000000D+00 /
2011 DATA (UPDI(I),I=7281,7332) /
2012 + .635998D+08, .470554D+08, .340701D+08, .246439D+08,
2013 + .178081D+08, .128553D+08, .927015D+07, .667755D+07,
2014 + .480462D+07, .345295D+07, .247856D+07, .177689D+07,
2015 + .127223D+07, .909668D+06, .649538D+06, .463126D+06,
2016 + .329732D+06, .234398D+06, .166372D+06, .117895D+06,
2017 + .834089D+05, .589090D+05, .415372D+05, .292355D+05,
2018 + .205422D+05, .144039D+05, .100873D+05, .701693D+04,
2019 + .489949D+04, .341640D+04, .237950D+04, .165592D+04,
2020 + .115158D+04, .801566D+03, .557636D+03, .388350D+03,
2021 + .270925D+03, .189465D+03, .132927D+03, .936072D+02,
2022 + .662477D+02, .471204D+02, .337070D+02, .242579D+02,
2023 + .175688D+02, .128023D+02, .940043D+01, .692977D+01,
2024 + .514826D+01, .383836D+01, .287894D+01, .216883D+01 /
2025 DATA (UPDI(I),I=7333,7384) /
2026 + .164014D+01, .124434D+01, .946508D+00, .721388D+00,
2027 + .550547D+00, .420465D+00, .321140D+00, .245140D+00,
2028 + .186902D+00, .142240D+00, .107927D+00, .817178D-01,
2029 + .615117D-01, .460703D-01, .343020D-01, .253644D-01,
2030 + .186071D-01, .135258D-01, .973006D-02, .691708D-02,
2031 + .485229D-02, .334759D-02, .227616D-02, .151279D-02,
2032 + .982344D-03, .620892D-03, .380184D-03, .224234D-03,
2033 + .126380D-03, .675662D-04, .336541D-04, .154385D-04,
2034 + .634263D-05, .224784D-05, .647960D-06, .137200D-06,
2035 + .178677D-07, .677722D-09, .000000D+00, .767923D+08,
2036 + .566206D+08, .408248D+08, .294049D+08, .211572D+08,
2037 + .152064D+08, .109171D+08, .782858D+07, .560712D+07,
2038 + .401103D+07, .286561D+07, .204456D+07, .145676D+07 /
2039 DATA (UPDI(I),I=7385,7436) /
2040 + .103647D+07, .736363D+06, .522351D+06, .369967D+06,
2041 + .261609D+06, .184686D+06, .130155D+06, .915692D+05,
2042 + .643045D+05, .450788D+05, .315406D+05, .220284D+05,
2043 + .153507D+05, .106831D+05, .738326D+04, .512173D+04,
2044 + .354766D+04, .245422D+04, .169616D+04, .117128D+04,
2045 + .809476D+03, .559055D+03, .386473D+03, .267606D+03,
2046 + .185733D+03, .129316D+03, .903661D+02, .634609D+02,
2047 + .447886D+02, .317902D+02, .227006D+02, .163131D+02,
2048 + .117948D+02, .859359D+01, .628559D+01, .463354D+01,
2049 + .342768D+01, .255092D+01, .190674D+01, .143066D+01,
2050 + .107689D+01, .812666D+00, .614452D+00, .465175D+00,
2051 + .352387D+00, .266942D+00, .202081D+00, .152780D+00,
2052 + .115283D+00, .867158D-01, .650829D-01, .485506D-01 /
2053 DATA (UPDI(I),I=7437,7488) /
2054 + .360302D-01, .265760D-01, .194636D-01, .141385D-01,
2055 + .101743D-01, .724338D-02, .509442D-02, .353436D-02,
2056 + .241048D-02, .161970D-02, .106321D-02, .681521D-03,
2057 + .424946D-03, .256509D-03, .149022D-03, .826548D-04,
2058 + .434412D-04, .212425D-04, .955343D-05, .384106D-05,
2059 + .132937D-05, .373183D-06, .765552D-07, .942683D-08,
2060 + .191805D-09, .000000D+00, .914401D+08, .671952D+08,
2061 + .482522D+08, .346111D+08, .247989D+08, .177481D+08,
2062 + .126870D+08, .905800D+07, .645890D+07, .459954D+07,
2063 + .327103D+07, .232297D+07, .164732D+07, .116643D+07,
2064 + .824658D+06, .582087D+06, .410198D+06, .288571D+06,
2065 + .202658D+06, .142063D+06, .994066D+05, .694241D+05,
2066 + .483951D+05, .336675D+05, .233769D+05, .161934D+05 /
2067 DATA (UPDI(I),I=7489,7540) /
2068 + .112016D+05, .769321D+04, .530326D+04, .364993D+04,
2069 + .250853D+04, .172221D+04, .118125D+04, .810781D+03,
2070 + .556058D+03, .381689D+03, .262405D+03, .180809D+03,
2071 + .124972D+03, .866894D+02, .604308D+02, .423350D+02,
2072 + .298263D+02, .211406D+02, .150797D+02, .108224D+02,
2073 + .782717D+01, .568269D+01, .415840D+01, .305352D+01,
2074 + .225578D+01, .167374D+01, .124660D+01, .931411D+00,
2075 + .697675D+00, .523580D+00, .393409D+00, .295773D+00,
2076 + .222350D+00, .167031D+00, .125301D+00, .938056D-01,
2077 + .699987D-01, .521139D-01, .385567D-01, .283747D-01,
2078 + .207514D-01, .150661D-01, .108473D-01, .773518D-02,
2079 + .545584D-02, .380065D-02, .261094D-02, .176266D-02,
2080 + .117212D-02, .761082D-03, .482374D-03, .297254D-03 /
2081 DATA (UPDI(I),I=7541,7592) /
2082 + .177237D-03, .101649D-03, .556192D-04, .288162D-04,
2083 + .138771D-04, .614031D-05, .242603D-05, .823876D-06,
2084 + .226482D-06, .453042D-07, .531660D-08, .207139D-10,
2085 + .000000D+00, .107511D+09, .787483D+08, .563239D+08,
2086 + .402382D+08, .287131D+08, .204643D+08, .145672D+08,
2087 + .103562D+08, .735266D+07, .521306D+07, .369085D+07,
2088 + .260928D+07, .184187D+07, .129811D+07, .913409D+06,
2089 + .641630D+06, .449948D+06, .314960D+06, .220072D+06,
2090 + .153476D+06, .106831D+06, .742116D+05, .514518D+05,
2091 + .355961D+05, .245769D+05, .169267D+05, .116405D+05,
2092 + .794643D+04, .544466D+04, .372415D+04, .254349D+04,
2093 + .173506D+04, .118234D+04, .806194D+03, .549214D+03,
2094 + .374437D+03, .255656D+03, .174940D+03, .120073D+03 /
2095 DATA (UPDI(I),I=7593,7644) /
2096 + .827073D+02, .572496D+02, .398237D+02, .278592D+02,
2097 + .196071D+02, .138876D+02, .989679D+01, .710790D+01,
2098 + .512436D+01, .372384D+01, .271539D+01, .199211D+01,
2099 + .146788D+01, .108572D+01, .805595D+00, .599250D+00,
2100 + .446590D+00, .333219D+00, .248764D+00, .185692D+00,
2101 + .138503D+00, .103156D+00, .766694D-01, .567937D-01,
2102 + .419721D-01, .308208D-01, .225096D-01, .163353D-01,
2103 + .117671D-01, .840460D-02, .594465D-02, .415818D-02,
2104 + .287211D-02, .195592D-02, .130865D-02, .862275D-03,
2105 + .554596D-03, .348066D-03, .212317D-03, .125261D-03,
2106 + .710520D-04, .384322D-04, .196724D-04, .935306D-05,
2107 + .408295D-05, .159006D-05, .531641D-06, .143661D-06,
2108 + .281551D-07, .317853D-08, .000000D+00, .000000D+00 /
2109 DATA (UPDI(I),I=7645,7696) /
2110 + .689519D+05, .101068D+06, .778373D+05, .599561D+05,
2111 + .461917D+05, .355953D+05, .274368D+05, .211545D+05,
2112 + .163162D+05, .125895D+05, .971836D+04, .750589D+04,
2113 + .580055D+04, .448571D+04, .347162D+04, .268919D+04,
2114 + .208522D+04, .161878D+04, .125834D+04, .979625D+03,
2115 + .763947D+03, .596905D+03, .467404D+03, .366897D+03,
2116 + .288794D+03, .228015D+03, .180643D+03, .143193D+03,
2117 + .114367D+03, .917631D+02, .739952D+02, .599923D+02,
2118 + .489252D+02, .401752D+02, .331974D+02, .276308D+02,
2119 + .231735D+02, .195902D+02, .166972D+02, .143498D+02,
2120 + .124382D+02, .108703D+02, .957701D+01, .850274D+01,
2121 + .760359D+01, .684467D+01, .620041D+01, .564258D+01,
2122 + .516042D+01, .473396D+01, .435640D+01, .401725D+01 /
2123 DATA (UPDI(I),I=7697,7748) /
2124 + .370951D+01, .342763D+01, .316728D+01, .292508D+01,
2125 + .269841D+01, .248528D+01, .228421D+01, .209406D+01,
2126 + .191403D+01, .174353D+01, .158214D+01, .143025D+01,
2127 + .128610D+01, .115051D+01, .102339D+01, .904691D+00,
2128 + .794340D+00, .692273D+00, .598402D+00, .512615D+00,
2129 + .434720D+00, .364475D+00, .302260D+00, .246885D+00,
2130 + .198499D+00, .156737D+00, .121197D+00, .914452D-01,
2131 + .670156D-01, .474432D-01, .321009D-01, .205895D-01,
2132 + .122895D-01, .665027D-02, .312277D-02, .117208D-02,
2133 + .292395D-03, .268721D-04, .000000D+00, .160435D+06,
2134 + .124521D+06, .954243D+05, .731448D+05, .560812D+05,
2135 + .430102D+05, .329959D+05, .253219D+05, .194402D+05,
2136 + .149311D+05, .114734D+05, .882124D+04, .678637D+04 /
2137 DATA (UPDI(I),I=7749,7800) /
2138 + .522455D+04, .402537D+04, .310423D+04, .239634D+04,
2139 + .185203D+04, .143325D+04, .111082D+04, .862393D+03,
2140 + .670807D+03, .522916D+03, .408622D+03, .320185D+03,
2141 + .251653D+03, .198467D+03, .156600D+03, .124511D+03,
2142 + .994533D+02, .798392D+02, .644452D+02, .523284D+02,
2143 + .427870D+02, .352078D+02, .291846D+02, .243793D+02,
2144 + .205296D+02, .174316D+02, .149253D+02, .128897D+02,
2145 + .112239D+02, .985255D+01, .871525D+01, .776446D+01,
2146 + .696280D+01, .628271D+01, .569431D+01, .518608D+01,
2147 + .473698D+01, .433991D+01, .398388D+01, .366158D+01,
2148 + .336727D+01, .309643D+01, .284555D+01, .261191D+01,
2149 + .239343D+01, .218850D+01, .199591D+01, .181476D+01,
2150 + .164437D+01, .148418D+01, .133448D+01, .119341D+01 /
2151 DATA (UPDI(I),I=7801,7852) /
2152 + .106169D+01, .939092D+00, .825447D+00, .720575D+00,
2153 + .624292D+00, .536398D+00, .456673D+00, .384856D+00,
2154 + .320573D+00, .264085D+00, .214209D+00, .170986D+00,
2155 + .133995D+00, .102791D+00, .769095D-01, .558567D-01,
2156 + .391652D-01, .262237D-01, .166273D-01, .979734D-02,
2157 + .522417D-02, .241121D-02, .886146D-03, .216091D-03,
2158 + .200316D-04, .000000D+00, .203585D+06, .157319D+06,
2159 + .119953D+06, .914859D+05, .697918D+05, .532564D+05,
2160 + .406508D+05, .310391D+05, .237089D+05, .181172D+05,
2161 + .138507D+05, .105945D+05, .810865D+04, .621020D+04,
2162 + .475986D+04, .365139D+04, .280383D+04, .215541D+04,
2163 + .165908D+04, .127889D+04, .987456D+03, .763863D+03,
2164 + .592162D+03, .460156D+03, .358550D+03, .280222D+03 /
2165 DATA (UPDI(I),I=7853,7904) /
2166 + .219760D+03, .172418D+03, .136326D+03, .108292D+03,
2167 + .864633D+02, .694207D+02, .560753D+02, .456195D+02,
2168 + .373549D+02, .308182D+02, .256270D+02, .214861D+02,
2169 + .181671D+02, .154918D+02, .133262D+02, .115593D+02,
2170 + .101082D+02, .890738D+01, .790522D+01, .706152D+01,
2171 + .634665D+01, .572892D+01, .519600D+01, .472576D+01,
2172 + .431074D+01, .393941D+01, .360417D+01, .329904D+01,
2173 + .301930D+01, .276131D+01, .252220D+01, .229978D+01,
2174 + .209233D+01, .189854D+01, .171740D+01, .154812D+01,
2175 + .138999D+01, .124322D+01, .110584D+01, .978441D+00,
2176 + .860696D+00, .752310D+00, .652995D+00, .562462D+00,
2177 + .480408D+00, .406519D+00, .340465D+00, .281768D+00,
2178 + .230583D+00, .185742D+00, .147195D+00, .114480D+00 /
2179 DATA (UPDI(I),I=7905,7956) /
2180 + .871215D-01, .646358D-01, .465159D-01, .322970D-01,
2181 + .213921D-01, .134027D-01, .779158D-02, .409072D-02,
2182 + .185383D-02, .666060D-03, .158444D-03, .148292D-04,
2183 + .000000D+00, .261711D+06, .201376D+06, .152791D+06,
2184 + .115953D+06, .880151D+05, .668229D+05, .507459D+05,
2185 + .385474D+05, .292904D+05, .222643D+05, .169304D+05,
2186 + .128803D+05, .980421D+04, .746722D+04, .569124D+04,
2187 + .434108D+04, .331425D+04, .253295D+04, .193817D+04,
2188 + .148509D+04, .113974D+04, .876273D+03, .675111D+03,
2189 + .521347D+03, .403685D+03, .313509D+03, .244319D+03,
2190 + .190466D+03, .149659D+03, .118152D+03, .937647D+02,
2191 + .748373D+02, .601023D+02, .486239D+02, .396016D+02,
2192 + .325039D+02, .268962D+02, .224448D+02, .188930D+02 /
2193 DATA (UPDI(I),I=7957,8008) /
2194 + .160420D+02, .137428D+02, .118730D+02, .103419D+02,
2195 + .907799D+01, .802539D+01, .714088D+01, .639262D+01,
2196 + .574705D+01, .519100D+01, .470123D+01, .426986D+01,
2197 + .388485D+01, .353828D+01, .322390D+01, .293680D+01,
2198 + .267316D+01, .243000D+01, .220496D+01, .199623D+01,
2199 + .180236D+01, .162223D+01, .145494D+01, .129964D+01,
2200 + .115642D+01, .102324D+01, .900541D+00, .787901D+00,
2201 + .684910D+00, .591179D+00, .506321D+00, .429942D+00,
2202 + .361645D+00, .301038D+00, .247561D+00, .201273D+00,
2203 + .161031D+00, .126708D+00, .978147D-01, .738559D-01,
2204 + .543388D-01, .387557D-01, .266506D-01, .174659D-01,
2205 + .108154D-01, .620502D-02, .320864D-02, .142819D-02,
2206 + .501983D-03, .116640D-03, .110182D-04, .000000D+00 /
2207 DATA (UPDI(I),I=8009,8060) /
2208 + .210276D+06, .258756D+06, .195400D+06, .147580D+06,
2209 + .111477D+06, .842183D+05, .636354D+05, .480922D+05,
2210 + .363538D+05, .274879D+05, .207907D+05, .157310D+05,
2211 + .119078D+05, .901834D+04, .683408D+04, .518243D+04,
2212 + .393316D+04, .298784D+04, .227225D+04, .173024D+04,
2213 + .131950D+04, .100798D+04, .771550D+03, .591916D+03,
2214 + .455299D+03, .351240D+03, .271902D+03, .210542D+03,
2215 + .164342D+03, .128898D+03, .101637D+03, .806124D+02,
2216 + .643464D+02, .517527D+02, .419124D+02, .342157D+02,
2217 + .281681D+02, .233922D+02, .195999D+02, .165692D+02,
2218 + .141349D+02, .121623D+02, .105520D+02, .922624D+01,
2219 + .812476D+01, .720108D+01, .642115D+01, .574948D+01,
2220 + .517202D+01, .466443D+01, .421839D+01, .382134D+01 /
2221 DATA (UPDI(I),I=8061,8112) /
2222 + .346503D+01, .314294D+01, .284995D+01, .258207D+01,
2223 + .233615D+01, .210972D+01, .190081D+01, .170787D+01,
2224 + .152963D+01, .136510D+01, .121327D+01, .107410D+01,
2225 + .945510D+00, .827794D+00, .720420D+00, .622882D+00,
2226 + .534697D+00, .455388D+00, .384482D+00, .321512D+00,
2227 + .266026D+00, .217406D+00, .175626D+00, .139572D+00,
2228 + .109057D+00, .835726D-01, .626152D-01, .456912D-01,
2229 + .323007D-01, .220015D-01, .142690D-01, .873443D-02,
2230 + .494635D-02, .251986D-02, .110206D-02, .379193D-03,
2231 + .861754D-04, .821416D-05, .000000D+00, .463016D+06,
2232 + .353138D+06, .265181D+06, .199145D+06, .149555D+06,
2233 + .112316D+06, .843541D+05, .633579D+05, .475928D+05,
2234 + .357554D+05, .268672D+05, .201931D+05, .151815D+05 /
2235 DATA (UPDI(I),I=8113,8164) /
2236 + .114178D+05, .859106D+04, .646766D+04, .487235D+04,
2237 + .367344D+04, .277221D+04, .209443D+04, .158452D+04,
2238 + .120064D+04, .911464D+03, .693428D+03, .528891D+03,
2239 + .404542D+03, .310497D+03, .238350D+03, .184472D+03,
2240 + .143473D+03, .112196D+03, .882693D+02, .699064D+02,
2241 + .558009D+02, .448639D+02, .363728D+02, .297482D+02,
2242 + .245516D+02, .204509D+02, .171925D+02, .145888D+02,
2243 + .124885D+02, .107811D+02, .938030D+01, .822013D+01,
2244 + .724993D+01, .643285D+01, .573093D+01, .512905D+01,
2245 + .460147D+01, .413933D+01, .372941D+01, .336303D+01,
2246 + .303332D+01, .273491D+01, .246356D+01, .221592D+01,
2247 + .198934D+01, .178167D+01, .159118D+01, .141646D+01,
2248 + .125635D+01, .110969D+01, .976274D+00, .853935D+00 /
2249 DATA (UPDI(I),I=8165,8216) /
2250 + .742813D+00, .642249D+00, .551620D+00, .470336D+00,
2251 + .397826D+00, .333527D+00, .276903D+00, .227435D+00,
2252 + .184455D+00, .147846D+00, .116540D+00, .902897D-01,
2253 + .685786D-01, .509032D-01, .367791D-01, .257265D-01,
2254 + .173262D-01, .110987D-01, .670239D-02, .373868D-02,
2255 + .187229D-02, .802815D-03, .269938D-03, .599821D-04,
2256 + .577233D-05, .000000D+00, .628123D+06, .476911D+06,
2257 + .356229D+06, .266076D+06, .198718D+06, .148398D+06,
2258 + .110812D+06, .827412D+05, .617799D+05, .461291D+05,
2259 + .344449D+05, .257225D+05, .192119D+05, .143522D+05,
2260 + .107251D+05, .801772D+04, .599686D+04, .448819D+04,
2261 + .336178D+04, .252049D+04, .189202D+04, .142227D+04,
2262 + .107101D+04, .808137D+03, .611267D+03, .463624D+03 /
2263 DATA (UPDI(I),I=8217,8268) /
2264 + .352845D+03, .268538D+03, .206087D+03, .158946D+03,
2265 + .123275D+03, .962058D+02, .755965D+02, .598895D+02,
2266 + .478037D+02, .384902D+02, .312752D+02, .256533D+02,
2267 + .212445D+02, .177612D+02, .149921D+02, .127688D+02,
2268 + .109686D+02, .949714D+01, .828231D+01, .726932D+01,
2269 + .641856D+01, .568967D+01, .506640D+01, .452172D+01,
2270 + .404619D+01, .362596D+01, .325191D+01, .291684D+01,
2271 + .261511D+01, .234222D+01, .209463D+01, .186947D+01,
2272 + .166444D+01, .147762D+01, .130746D+01, .115262D+01,
2273 + .101180D+01, .884627D+00, .768881D+00, .664540D+00,
2274 + .570833D+00, .487036D+00, .412467D+00, .346475D+00,
2275 + .288426D+00, .237726D+00, .193807D+00, .155969D+00,
2276 + .124022D+00, .969487D-01, .744597D-01, .560398D-01 /
2277 DATA (UPDI(I),I=8269,8320) /
2278 + .411959D-01, .294606D-01, .203802D-01, .135629D-01,
2279 + .857474D-02, .510360D-02, .280067D-02, .137646D-02,
2280 + .577335D-03, .189097D-03, .409337D-04, .398335D-05,
2281 + .000000D+00, .839687D+06, .634849D+06, .471826D+06,
2282 + .350619D+06, .260492D+06, .193493D+06, .143699D+06,
2283 + .106700D+06, .792159D+05, .588040D+05, .436481D+05,
2284 + .323970D+05, .240464D+05, .178495D+05, .132516D+05,
2285 + .984040D+04, .730994D+04, .543274D+04, .404022D+04,
2286 + .300705D+04, .224043D+04, .167136D+04, .124883D+04,
2287 + .934869D+03, .701463D+03, .527712D+03, .398341D+03,
2288 + .300642D+03, .228836D+03, .175057D+03, .134680D+03,
2289 + .104281D+03, .813156D+02, .639466D+02, .506816D+02,
2290 + .405331D+02, .327255D+02, .266814D+02, .219702D+02 /
2291 DATA (UPDI(I),I=8321,8372) /
2292 + .182688D+02, .153411D+02, .130010D+02, .111139D+02,
2293 + .957684D+01, .831197D+01, .726032D+01, .637961D+01,
2294 + .562714D+01, .498562D+01, .442676D+01, .394053D+01,
2295 + .351250D+01, .313311D+01, .279485D+01, .249177D+01,
2296 + .221915D+01, .197322D+01, .175093D+01, .154979D+01,
2297 + .136772D+01, .120299D+01, .105414D+01, .919697D+00,
2298 + .799158D+00, .690241D+00, .592779D+00, .505904D+00,
2299 + .428802D+00, .360718D+00, .300932D+00, .248757D+00,
2300 + .203556D+00, .164724D+00, .131546D+00, .103776D+00,
2301 + .804518D-01, .612556D-01, .456836D-01, .332606D-01,
2302 + .235428D-01, .161074D-01, .105925D-01, .660954D-02,
2303 + .387730D-02, .209323D-02, .100964D-02, .414270D-03,
2304 + .132211D-03, .279000D-04, .274565D-05, .000000D+00 /
2305 DATA (UPDI(I),I=8373,8424) /
2306 + .110466D+07, .831843D+06, .615292D+06, .455013D+06,
2307 + .336378D+06, .248597D+06, .183669D+06, .135659D+06,
2308 + .100173D+06, .739509D+05, .545818D+05, .402789D+05,
2309 + .297204D+05, .219282D+05, .161792D+05, .119385D+05,
2310 + .881113D+04, .650507D+04, .480493D+04, .355142D+04,
2311 + .262727D+04, .194576D+04, .144312D+04, .107218D+04,
2312 + .798341D+03, .595928D+03, .446316D+03, .334163D+03,
2313 + .252351D+03, .191535D+03, .146219D+03, .112358D+03,
2314 + .869668D+02, .679047D+02, .534511D+02, .424702D+02,
2315 + .340782D+02, .276224D+02, .226196D+02, .187101D+02,
2316 + .156329D+02, .131840D+02, .112167D+02, .961998D+01,
2317 + .831017D+01, .722433D+01, .631761D+01, .554511D+01,
2318 + .488853D+01, .431841D+01, .382416D+01, .339078D+01 /
2319 DATA (UPDI(I),I=8425,8476) /
2320 + .300831D+01, .266889D+01, .236631D+01, .209561D+01,
2321 + .185281D+01, .163465D+01, .143849D+01, .126206D+01,
2322 + .110349D+01, .961175D+00, .833513D+00, .719851D+00,
2323 + .617876D+00, .527285D+00, .447123D+00, .376508D+00,
2324 + .314619D+00, .260689D+00, .213990D+00, .173855D+00,
2325 + .139655D+00, .110674D+00, .866248D-01, .666023D-01,
2326 + .502741D-01, .371546D-01, .267922D-01, .187711D-01,
2327 + .127020D-01, .825441D-02, .508371D-02, .293944D-02,
2328 + .156128D-02, .739150D-03, .296754D-03, .923348D-04,
2329 + .190189D-04, .189234D-05, .000000D+00, .142989D+07,
2330 + .107264D+07, .789803D+06, .581363D+06, .427758D+06,
2331 + .314609D+06, .231297D+06, .169981D+06, .124874D+06,
2332 + .917038D+05, .673231D+05, .494099D+05, .362542D+05 /
2333 DATA (UPDI(I),I=8477,8528) /
2334 + .265960D+05, .195085D+05, .143090D+05, .104961D+05,
2335 + .770047D+04, .565143D+04, .414967D+04, .304925D+04,
2336 + .224278D+04, .165176D+04, .121844D+04, .900653D+03,
2337 + .667335D+03, .496077D+03, .368598D+03, .276268D+03,
2338 + .208122D+03, .157709D+03, .120308D+03, .924630D+02,
2339 + .717047D+02, .560730D+02, .442755D+02, .353167D+02,
2340 + .284660D+02, .231867D+02, .190821D+02, .158661D+02,
2341 + .133175D+02, .112778D+02, .962773D+01, .827840D+01,
2342 + .716304D+01, .623435D+01, .544543D+01, .477698D+01,
2343 + .419850D+01, .369885D+01, .326248D+01, .287904D+01,
2344 + .254038D+01, .224000D+01, .197272D+01, .173434D+01,
2345 + .152144D+01, .133115D+01, .116111D+01, .100927D+01,
2346 + .873890D+00, .753266D+00, .646606D+00, .551580D+00 /
2347 DATA (UPDI(I),I=8529,8580) /
2348 + .467760D+00, .394122D+00, .329726D+00, .273706D+00,
2349 + .225255D+00, .183623D+00, .148123D+00, .118114D+00,
2350 + .928919D-01, .721376D-01, .550088D-01, .411667D-01,
2351 + .301495D-01, .215335D-01, .149335D-01, .999481D-02,
2352 + .641866D-02, .390191D-02, .222385D-02, .116221D-02,
2353 + .540118D-03, .212231D-03, .644205D-04, .129679D-04,
2354 + .130420D-05, .000000D+00, .182190D+07, .136174D+07,
2355 + .998307D+06, .731586D+06, .535861D+06, .392304D+06,
2356 + .287066D+06, .209957D+06, .153488D+06, .112156D+06,
2357 + .819192D+05, .598100D+05, .436523D+05, .318496D+05,
2358 + .232325D+05, .169438D+05, .123567D+05, .901169D+04,
2359 + .657358D+04, .479678D+04, .350237D+04, .255932D+04,
2360 + .187240D+04, .137185D+04, .100708D+04, .740968D+03 /
2361 DATA (UPDI(I),I=8581,8632) /
2362 + .546929D+03, .403453D+03, .300239D+03, .224576D+03,
2363 + .168982D+03, .128020D+03, .977282D+02, .752967D+02,
2364 + .585148D+02, .459289D+02, .364288D+02, .292051D+02,
2365 + .236677D+02, .193830D+02, .160407D+02, .134024D+02,
2366 + .112983D+02, .960169D+01, .821845D+01, .707831D+01,
2367 + .613175D+01, .533000D+01, .465284D+01, .406883D+01,
2368 + .356627D+01, .312915D+01, .274676D+01, .241062D+01,
2369 + .211399D+01, .185146D+01, .161864D+01, .141191D+01,
2370 + .122827D+01, .106519D+01, .920498D+00, .792334D+00,
2371 + .678890D+00, .579256D+00, .491096D+00, .413874D+00,
2372 + .346512D+00, .288027D+00, .237520D+00, .194160D+00,
2373 + .157185D+00, .125898D+00, .996608D-01, .777857D-01,
2374 + .599358D-01, .453308D-01, .336341D-01, .244114D-01 /
2375 DATA (UPDI(I),I=8633,8684) /
2376 + .172694D-01, .118550D-01, .784795D-02, .498077D-02,
2377 + .298870D-02, .167910D-02, .863479D-03, .393972D-03,
2378 + .151550D-03, .449033D-04, .884419D-05, .898844D-06,
2379 + .000000D+00, .228678D+07, .170326D+07, .124345D+07,
2380 + .907356D+06, .661728D+06, .482316D+06, .351347D+06,
2381 + .255795D+06, .186126D+06, .135358D+06, .983864D+05,
2382 + .714771D+05, .519039D+05, .376746D+05, .273366D+05,
2383 + .198296D+05, .143815D+05, .104293D+05, .756382D+04,
2384 + .548685D+04, .398210D+04, .289198D+04, .210249D+04,
2385 + .153057D+04, .111627D+04, .815863D+03, .598188D+03,
2386 + .438252D+03, .323936D+03, .240673D+03, .179889D+03,
2387 + .135393D+03, .102698D+03, .786395D+02, .607511D+02,
2388 + .474151D+02, .374058D+02, .298354D+02, .240609D+02 /
2389 DATA (UPDI(I),I=8685,8736) /
2390 + .196130D+02, .161576D+02, .134400D+02, .112800D+02,
2391 + .954377D+01, .813231D+01, .697217D+01, .601178D+01,
2392 + .520072D+01, .451792D+01, .393109D+01, .342803D+01,
2393 + .299227D+01, .261277D+01, .228076D+01, .198926D+01,
2394 + .173265D+01, .150636D+01, .130659D+01, .113020D+01,
2395 + .974520D+00, .837269D+00, .716476D+00, .610252D+00,
2396 + .517577D+00, .436129D+00, .365275D+00, .303899D+00,
2397 + .250987D+00, .205621D+00, .166960D+00, .134237D+00,
2398 + .106761D+00, .838985D-01, .649893D-01, .496870D-01,
2399 + .372734D-01, .274200D-01, .197229D-01, .138203D-01,
2400 + .939139D-02, .614952D-02, .385714D-02, .228466D-02,
2401 + .126534D-02, .640338D-03, .286872D-03, .108061D-03,
2402 + .312721D-04, .603325D-05, .619467D-06, .000000D+00 /
2403 DATA (UPDI(I),I=8737,8788) /
2404 + .283003D+07, .210082D+07, .152749D+07, .111006D+07,
2405 + .806188D+06, .585118D+06, .424395D+06, .307620D+06,
2406 + .222835D+06, .161316D+06, .116710D+06, .843874D+05,
2407 + .609829D+05, .440465D+05, .317993D+05, .229482D+05,
2408 + .165560D+05, .119419D+05, .861339D+04, .621324D+04,
2409 + .448351D+04, .323711D+04, .233939D+04, .169268D+04,
2410 + .122689D+04, .891078D+03, .649203D+03, .472553D+03,
2411 + .347059D+03, .256213D+03, .190300D+03, .142343D+03,
2412 + .107319D+03, .817008D+02, .627629D+02, .487236D+02,
2413 + .382425D+02, .303549D+02, .243663D+02, .197730D+02,
2414 + .162184D+02, .134324D+02, .112252D+02, .945613D+01,
2415 + .802211D+01, .684666D+01, .587642D+01, .505948D+01,
2416 + .437398D+01, .378691D+01, .328559D+01, .285315D+01 /
2417 DATA (UPDI(I),I=8789,8840) /
2418 + .247823D+01, .215180D+01, .186666D+01, .161699D+01,
2419 + .139803D+01, .120586D+01, .103719D+01, .889219D+00,
2420 + .759584D+00, .646217D+00, .547162D+00, .461309D+00,
2421 + .386358D+00, .321597D+00, .265885D+00, .218191D+00,
2422 + .177590D+00, .143239D+00, .114379D+00, .903289D-01,
2423 + .704722D-01, .541788D-01, .411015D-01, .305825D-01,
2424 + .223068D-01, .159016D-01, .110372D-01, .742457D-02,
2425 + .480896D-02, .298107D-02, .174307D-02, .951727D-03,
2426 + .474003D-03, .208539D-03, .769439D-04, .217614D-04,
2427 + .411667D-05, .426921D-06, .000000D+00, .345639D+07,
2428 + .255750D+07, .185229D+07, .134077D+07, .969829D+06,
2429 + .701010D+06, .506341D+06, .365468D+06, .263600D+06,
2430 + .189992D+06, .136843D+06, .984960D+05, .708493D+05 /
2431 DATA (UPDI(I),I=8841,8892) /
2432 + .509313D+05, .365929D+05, .262780D+05, .188633D+05,
2433 + .135365D+05, .971261D+04, .696881D+04, .500138D+04,
2434 + .359097D+04, .258044D+04, .185633D+04, .133762D+04,
2435 + .965714D+03, .699362D+03, .505948D+03, .369341D+03,
2436 + .271022D+03, .200102D+03, .148802D+03, .111551D+03,
2437 + .844563D+02, .645371D+02, .498482D+02, .389368D+02,
2438 + .307638D+02, .245853D+02, .198651D+02, .162254D+02,
2439 + .133821D+02, .111361D+02, .934110D+01, .789006D+01,
2440 + .670388D+01, .572762D+01, .490808D+01, .422269D+01,
2441 + .363782D+01, .314033D+01, .271301D+01, .234419D+01,
2442 + .202463D+01, .174691D+01, .150503D+01, .129408D+01,
2443 + .111000D+01, .949374D+00, .809321D+00, .687375D+00,
2444 + .581401D+00, .489393D+00, .410163D+00, .341449D+00 /
2445 DATA (UPDI(I),I=8893,8944) /
2446 + .282474D+00, .232085D+00, .189245D+00, .153031D+00,
2447 + .122612D+00, .972423D-01, .762588D-01, .590666D-01,
2448 + .450701D-01, .339276D-01, .250404D-01, .181096D-01,
2449 + .127945D-01, .879678D-02, .585796D-02, .375325D-02,
2450 + .229953D-02, .132735D-02, .714529D-03, .350260D-03,
2451 + .151352D-03, .547149D-04, .151319D-04, .280959D-05,
2452 + .294219D-06, .000000D+00, .690363D+05, .100780D+06,
2453 + .775819D+05, .597301D+05, .459918D+05, .354183D+05,
2454 + .272802D+05, .210160D+05, .161937D+05, .124812D+05,
2455 + .962255D+04, .742118D+04, .572566D+04, .441953D+04,
2456 + .341314D+04, .263752D+04, .203959D+04, .157849D+04,
2457 + .122278D+04, .948260D+03, .736289D+03, .572526D+03,
2458 + .445926D+03, .347985D+03, .272151D+03, .213377D+03 /
2459 DATA (UPDI(I),I=8945,8996) /
2460 + .167775D+03, .131908D+03, .104455D+03, .830595D+02,
2461 + .663530D+02, .532801D+02, .430253D+02, .349801D+02,
2462 + .286142D+02, .235740D+02, .195665D+02, .163643D+02,
2463 + .137911D+02, .117092D+02, .100150D+02, .862308D+01,
2464 + .747017D+01, .650653D+01, .569360D+01, .500156D+01,
2465 + .440926D+01, .389311D+01, .344545D+01, .304986D+01,
2466 + .270182D+01, .239302D+01, .211807D+01, .187259D+01,
2467 + .165303D+01, .145643D+01, .128033D+01, .112263D+01,
2468 + .981515D+00, .855406D+00, .742893D+00, .642715D+00,
2469 + .553730D+00, .475242D+00, .405495D+00, .344128D+00,
2470 + .290338D+00, .243387D+00, .202594D+00, .167334D+00,
2471 + .137031D+00, .111154D+00, .892005D-01, .707082D-01,
2472 + .554115D-01, .427013D-01, .323434D-01, .240144D-01 /
2473 DATA (UPDI(I),I=8997,9048) /
2474 + .174203D-01, .122950D-01, .839772D-02, .551608D-02,
2475 + .344114D-02, .201988D-02, .109188D-02, .527384D-03,
2476 + .216366D-03, .685688D-04, .135633D-04, .846929D-06,
2477 + .000000D+00, .160093D+06, .124218D+06, .951561D+05,
2478 + .729075D+05, .558713D+05, .428245D+05, .328316D+05,
2479 + .251766D+05, .193117D+05, .148174D+05, .113729D+05,
2480 + .873243D+04, .670787D+04, .515519D+04, .396410D+04,
2481 + .305013D+04, .234857D+04, .180987D+04, .139605D+04,
2482 + .107802D+04, .833476D+03, .645327D+03, .500476D+03,
2483 + .388870D+03, .302808D+03, .236371D+03, .185037D+03,
2484 + .144822D+03, .114166D+03, .903687D+02, .718600D+02,
2485 + .574335D+02, .461607D+02, .373507D+02, .304058D+02,
2486 + .249278D+02, .205880D+02, .171326D+02, .143657D+02 /
2487 DATA (UPDI(I),I=9049,9100) /
2488 + .121349D+02, .103257D+02, .884453D+01, .762202D+01,
2489 + .660396D+01, .574844D+01, .502310D+01, .440501D+01,
2490 + .386883D+01, .340608D+01, .299924D+01, .264321D+01,
2491 + .232906D+01, .205092D+01, .180403D+01, .158447D+01,
2492 + .138903D+01, .121499D+01, .106005D+01, .922221D+00,
2493 + .799762D+00, .691141D+00, .595003D+00, .510080D+00,
2494 + .435606D+00, .369806D+00, .312245D+00, .262083D+00,
2495 + .218554D+00, .180956D+00, .148652D+00, .121055D+00,
2496 + .976323D-01, .778928D-01, .613677D-01, .477894D-01,
2497 + .365846D-01, .275191D-01, .202838D-01, .146008D-01,
2498 + .102207D-01, .691886D-02, .450123D-02, .277838D-02,
2499 + .161174D-02, .859855D-03, .409831D-03, .165502D-03,
2500 + .514465D-04, .998197D-05, .631777D-06, .000000D+00 /
2501 DATA (UPDI(I),I=9101,9152) /
2502 + .203226D+06, .157001D+06, .119672D+06, .912369D+05,
2503 + .695715D+05, .530616D+05, .404785D+05, .308868D+05,
2504 + .235741D+05, .179981D+05, .137455D+05, .105015D+05,
2505 + .802644D+04, .613758D+04, .469573D+04, .359477D+04,
2506 + .275386D+04, .211132D+04, .162019D+04, .124460D+04,
2507 + .957247D+03, .737254D+03, .568736D+03, .439541D+03,
2508 + .340419D+03, .264281D+03, .205752D+03, .160135D+03,
2509 + .125538D+03, .988165D+02, .781384D+02, .621018D+02,
2510 + .496331D+02, .399363D+02, .323293D+02, .263575D+02,
2511 + .216485D+02, .179162D+02, .149408D+02, .125521D+02,
2512 + .106231D+02, .905042D+01, .775778D+01, .668585D+01,
2513 + .578892D+01, .503185D+01, .438966D+01, .383524D+01,
2514 + .335912D+01, .294267D+01, .258016D+01, .226202D+01 /
2515 DATA (UPDI(I),I=9153,9204) /
2516 + .198190D+01, .173464D+01, .151600D+01, .132248D+01,
2517 + .115112D+01, .999433D+00, .865259D+00, .746724D+00,
2518 + .642178D+00, .550175D+00, .469346D+00, .398857D+00,
2519 + .336928D+00, .283057D+00, .236378D+00, .196100D+00,
2520 + .161513D+00, .131967D+00, .106877D+00, .857092D-01,
2521 + .679857D-01, .532390D-01, .412015D-01, .313358D-01,
2522 + .234101D-01, .171316D-01, .122383D-01, .849807D-02,
2523 + .570281D-02, .367564D-02, .224568D-02, .128817D-02,
2524 + .678530D-03, .318154D-03, .126084D-03, .383636D-04,
2525 + .728544D-05, .468066D-06, .000000D+00, .261334D+06,
2526 + .201043D+06, .152495D+06, .115692D+06, .877842D+05,
2527 + .666187D+05, .505653D+05, .383878D+05, .291493D+05,
2528 + .221396D+05, .168202D+05, .127829D+05, .971817D+04 /
2529 DATA (UPDI(I),I=9205,9256) /
2530 + .739124D+04, .562416D+04, .428187D+04, .326202D+04,
2531 + .248687D+04, .189755D+04, .144929D+04, .110820D+04,
2532 + .848505D+03, .650672D+03, .499848D+03, .384781D+03,
2533 + .296891D+03, .229719D+03, .177666D+03, .138416D+03,
2534 + .108275D+03, .850853D+02, .672037D+02, .533792D+02,
2535 + .426884D+02, .343480D+02, .278360D+02, .227282D+02,
2536 + .187008D+02, .155060D+02, .129537D+02, .109024D+02,
2537 + .923767D+01, .787560D+01, .675120D+01, .581466D+01,
2538 + .502779D+01, .436349D+01, .379275D+01, .330505D+01,
2539 + .288066D+01, .251317D+01, .219237D+01, .191144D+01,
2540 + .166480D+01, .144791D+01, .125699D+01, .108888D+01,
2541 + .940875D+00, .810681D+00, .696293D+00, .595959D+00,
2542 + .508149D+00, .431414D+00, .364859D+00, .306705D+00 /
2543 DATA (UPDI(I),I=9257,9308) /
2544 + .256397D+00, .213044D+00, .175846D+00, .144082D+00,
2545 + .117103D+00, .943253D-01, .752227D-01, .593283D-01,
2546 + .461832D-01, .355224D-01, .268432D-01, .199192D-01,
2547 + .144741D-01, .102627D-01, .706988D-02, .470387D-02,
2548 + .300408D-02, .181701D-02, .103084D-02, .536349D-03,
2549 + .248032D-03, .967644D-04, .288899D-04, .539917D-05,
2550 + .352453D-06, .000000D+00, .210378D+06, .258406D+06,
2551 + .195090D+06, .147307D+06, .111236D+06, .840044D+05,
2552 + .634462D+05, .479250D+05, .362061D+05, .273573D+05,
2553 + .206753D+05, .156291D+05, .118178D+05, .893890D+04,
2554 + .676397D+04, .512056D+04, .387859D+04, .293973D+04,
2555 + .222984D+04, .169288D+04, .128660D+04, .979022D+03,
2556 + .746072D+03, .569509D+03, .435603D+03, .333928D+03 /
2557 DATA (UPDI(I),I=9309,9360) /
2558 + .256694D+03, .197210D+03, .152633D+03, .118610D+03,
2559 + .925945D+02, .726567D+02, .573362D+02, .455598D+02,
2560 + .364269D+02, .293377D+02, .238087D+02, .194732D+02,
2561 + .160525D+02, .133338D+02, .111597D+02, .940390D+01,
2562 + .797416D+01, .679945D+01, .582560D+01, .501123D+01,
2563 + .432701D+01, .374197D+01, .324455D+01, .281388D+01,
2564 + .244286D+01, .212068D+01, .184001D+01, .159492D+01,
2565 + .138054D+01, .119284D+01, .102844D+01, .884483D+00,
2566 + .758527D+00, .648451D+00, .552416D+00, .468819D+00,
2567 + .396144D+00, .333446D+00, .278953D+00, .232065D+00,
2568 + .191878D+00, .157584D+00, .128462D+00, .103865D+00,
2569 + .832154D-01, .659991D-01, .517617D-01, .400570D-01,
2570 + .306244D-01, .229956D-01, .169512D-01, .122317D-01 /
2571 DATA (UPDI(I),I=9361,9412) /
2572 + .860906D-02, .588439D-02, .388218D-02, .245698D-02,
2573 + .147144D-02, .825772D-03, .424494D-03, .193659D-03,
2574 + .744008D-04, .218342D-04, .402334D-05, .267307D-06,
2575 + .000000D+00, .462597D+06, .352767D+06, .264853D+06,
2576 + .198855D+06, .149298D+06, .112090D+06, .841537D+05,
2577 + .631809D+05, .474364D+05, .356172D+05, .267451D+05,
2578 + .200854D+05, .150863D+05, .113338D+05, .851698D+04,
2579 + .640232D+04, .481474D+04, .362266D+04, .272748D+04,
2580 + .205504D+04, .154985D+04, .117013D+04, .884631D+03,
2581 + .669839D+03, .508161D+03, .386327D+03, .294499D+03,
2582 + .224327D+03, .172156D+03, .132651D+03, .102682D+03,
2583 + .798959D+02, .625243D+02, .492755D+02, .390797D+02,
2584 + .312251D+02, .251445D+02, .204106D+02, .167015D+02 /
2585 DATA (UPDI(I),I=9413,9464) /
2586 + .137734D+02, .114469D+02, .957984D+01, .806880D+01,
2587 + .683476D+01, .581782D+01, .497245D+01, .426646D+01,
2588 + .366645D+01, .315945D+01, .272323D+01, .234982D+01,
2589 + .202764D+01, .174879D+01, .150688D+01, .129666D+01,
2590 + .111381D+01, .954715D+00, .816319D+00, .696020D+00,
2591 + .591577D+00, .501054D+00, .422771D+00, .355151D+00,
2592 + .297194D+00, .247152D+00, .204378D+00, .167960D+00,
2593 + .137090D+00, .111053D+00, .892126D-01, .710059D-01,
2594 + .559351D-01, .435647D-01, .334697D-01, .253977D-01,
2595 + .189218D-01, .138340D-01, .989631D-02, .690176D-02,
2596 + .467151D-02, .304957D-02, .190815D-02, .112845D-02,
2597 + .624496D-03, .315985D-03, .141541D-03, .532091D-04,
2598 + .152055D-04, .272110D-05, .182605D-06, .000000D+00 /
2599 DATA (UPDI(I),I=9465,9516) /
2600 + .627679D+06, .476518D+06, .355882D+06, .265769D+06,
2601 + .198446D+06, .148158D+06, .110600D+06, .825537D+05,
2602 + .616143D+05, .459829D+05, .343158D+05, .256086D+05,
2603 + .191113D+05, .142635D+05, .106468D+05, .794873D+04,
2604 + .593607D+04, .443463D+04, .331461D+04, .247897D+04,
2605 + .185549D+04, .139014D+04, .104277D+04, .783312D+03,
2606 + .589459D+03, .444466D+03, .336024D+03, .253796D+03,
2607 + .193140D+03, .147570D+03, .113272D+03, .874001D+02,
2608 + .678307D+02, .530220D+02, .417136D+02, .330679D+02,
2609 + .264243D+02, .212893D+02, .172940D+02, .141610D+02,
2610 + .116880D+02, .971570D+01, .812926D+01, .684137D+01,
2611 + .578634D+01, .491444D+01, .419060D+01, .357905D+01,
2612 + .306544D+01, .262623D+01, .225259D+01, .193222D+01 /
2613 DATA (UPDI(I),I=9517,9568) /
2614 + .165669D+01, .141918D+01, .121410D+01, .103686D+01,
2615 + .883627D+00, .751191D+00, .636810D+00, .538142D+00,
2616 + .453174D+00, .380166D+00, .317502D+00, .264138D+00,
2617 + .218359D+00, .179484D+00, .146604D+00, .118918D+00,
2618 + .957241D-01, .764023D-01, .604072D-01, .472623D-01,
2619 + .365527D-01, .278779D-01, .209956D-01, .155189D-01,
2620 + .112525D-01, .797984D-02, .551418D-02, .369593D-02,
2621 + .238742D-02, .147705D-02, .862768D-03, .471047D-03,
2622 + .234793D-03, .103424D-03, .381574D-04, .106830D-04,
2623 + .188219D-05, .128946D-06, .000000D+00, .839216D+06,
2624 + .634432D+06, .471458D+06, .350294D+06, .260205D+06,
2625 + .193239D+06, .143474D+06, .106502D+06, .790407D+05,
2626 + .586493D+05, .435116D+05, .322765D+05, .239401D+05 /
2627 DATA (UPDI(I),I=9569,9620) /
2628 + .177558D+05, .131690D+05, .976760D+04, .724580D+04,
2629 + .537626D+04, .399051D+04, .296330D+04, .220196D+04,
2630 + .163754D+04, .121910D+04, .908757D+03, .678532D+03,
2631 + .507574D+03, .380663D+03, .285152D+03, .215234D+03,
2632 + .163106D+03, .124172D+03, .950294D+02, .731551D+02,
2633 + .567286D+02, .442793D+02, .348321D+02, .276254D+02,
2634 + .220944D+02, .178205D+02, .144912D+02, .118799D+02,
2635 + .981022D+01, .815538D+01, .681985D+01, .573214D+01,
2636 + .483838D+01, .410070D+01, .348107D+01, .296376D+01,
2637 + .252402D+01, .215219D+01, .183532D+01, .156448D+01,
2638 + .133245D+01, .113336D+01, .962369D+00, .815472D+00,
2639 + .689304D+00, .581022D+00, .488203D+00, .408775D+00,
2640 + .340959D+00, .283112D+00, .234163D+00, .192439D+00 /
2641 DATA (UPDI(I),I=9621,9672) /
2642 + .157235D+00, .127654D+00, .102909D+00, .823173D-01,
2643 + .652797D-01, .512730D-01, .398443D-01, .306011D-01,
2644 + .231693D-01, .173190D-01, .127009D-01, .913357D-02,
2645 + .642122D-02, .439664D-02, .291827D-02, .186541D-02,
2646 + .114119D-02, .658448D-03, .354701D-03, .174196D-03,
2647 + .754766D-04, .273427D-04, .750839D-05, .130466D-05,
2648 + .914950D-07, .000000D+00, .110417D+07, .831401D+06,
2649 + .614902D+06, .454668D+06, .336073D+06, .248328D+06,
2650 + .183431D+06, .135449D+06, .999874D+05, .737874D+05,
2651 + .544376D+05, .401516D+05, .296082D+05, .218292D+05,
2652 + .160920D+05, .118617D+05, .874351D+04, .644555D+04,
2653 + .475256D+04, .350535D+04, .258678D+04, .191017D+04,
2654 + .141186D+04, .104473D+04, .774243D+03, .574771D+03 /
2655 DATA (UPDI(I),I=9673,9724) /
2656 + .427749D+03, .317898D+03, .238071D+03, .178991D+03,
2657 + .135189D+03, .102647D+03, .784019D+02, .603290D+02,
2658 + .467319D+02, .364879D+02, .287284D+02, .228139D+02,
2659 + .182740D+02, .147601D+02, .120211D+02, .986320D+01,
2660 + .814786D+01, .677142D+01, .565673D+01, .474590D+01,
2661 + .399840D+01, .337406D+01, .285583D+01, .241787D+01,
2662 + .204974D+01, .173790D+01, .147295D+01, .124735D+01,
2663 + .105495D+01, .890726D+00, .750505D+00, .630813D+00,
2664 + .528722D+00, .441751D+00, .367789D+00, .305030D+00,
2665 + .251826D+00, .207087D+00, .169192D+00, .137421D+00,
2666 + .110896D+00, .888521D-01, .706293D-01, .556527D-01,
2667 + .434250D-01, .335183D-01, .255641D-01, .192157D-01,
2668 + .142567D-01, .103735D-01, .739881D-02, .515688D-02 /
2669 DATA (UPDI(I),I=9725,9776) /
2670 + .349884D-02, .229989D-02, .145488D-02, .880147D-03,
2671 + .501665D-03, .266669D-03, .129054D-03, .550146D-04,
2672 + .195764D-04, .527573D-05, .904562D-06, .648922D-07,
2673 + .000000D+00, .142936D+07, .107218D+07, .789390D+06,
2674 + .580998D+06, .427435D+06, .314324D+06, .231046D+06,
2675 + .169759D+06, .124678D+06, .915310D+05, .671707D+05,
2676 + .492754D+05, .361357D+05, .264916D+05, .194166D+05,
2677 + .142281D+05, .104248D+05, .763776D+04, .559628D+04,
2678 + .410118D+04, .300664D+04, .220535D+04, .161891D+04,
2679 + .118959D+04, .875343D+03, .645122D+03, .476591D+03,
2680 + .351533D+03, .261289D+03, .194967D+03, .146144D+03,
2681 + .110129D+03, .834855D+02, .637659D+02, .490337D+02,
2682 + .380111D+02, .297183D+02, .234390D+02, .186497D+02 /
2683 DATA (UPDI(I),I=9777,9828) /
2684 + .149658D+02, .121113D+02, .987540D+01, .810807D+01,
2685 + .669774D+01, .556187D+01, .463877D+01, .388537D+01,
2686 + .325956D+01, .274303D+01, .230901D+01, .194628D+01,
2687 + .164081D+01, .138280D+01, .116442D+01, .979287D+00,
2688 + .822212D+00, .688905D+00, .575804D+00, .479919D+00,
2689 + .398731D+00, .330109D+00, .272235D+00, .223471D+00,
2690 + .182718D+00, .148413D+00, .119834D+00, .961246D-01,
2691 + .765478D-01, .604702D-01, .473446D-01, .367011D-01,
2692 + .281383D-01, .213126D-01, .159046D-01, .117126D-01,
2693 + .845595D-02, .598200D-02, .413365D-02, .277920D-02,
2694 + .180926D-02, .113269D-02, .677658D-03, .381592D-03,
2695 + .200180D-03, .954784D-04, .400539D-04, .140048D-04,
2696 + .370594D-05, .627227D-06, .459963D-07, .000000D+00 /
2697 DATA (UPDI(I),I=9829,9880) /
2698 + .182134D+07, .136125D+07, .997869D+06, .731200D+06,
2699 + .535519D+06, .392003D+06, .286800D+06, .209722D+06,
2700 + .153281D+06, .111974D+06, .817583D+05, .596681D+05,
2701 + .435273D+05, .317395D+05, .231356D+05, .168585D+05,
2702 + .122816D+05, .894566D+04, .651554D+04, .474578D+04,
2703 + .345757D+04, .251999D+04, .183789D+04, .134156D+04,
2704 + .980514D+03, .717663D+03, .526492D+03, .385561D+03,
2705 + .284540D+03, .210793D+03, .156870D+03, .117361D+03,
2706 + .883317D+02, .669907D+02, .511538D+02, .393830D+02,
2707 + .305843D+02, .239639D+02, .189454D+02, .151078D+02,
2708 + .121514D+02, .984836D+01, .803788D+01, .660080D+01,
2709 + .544953D+01, .451883D+01, .376329D+01, .313906D+01,
2710 + .262669D+01, .219853D+01, .184274D+01, .154481D+01 /
2711 DATA (UPDI(I),I=9881,9932) /
2712 + .129463D+01, .108410D+01, .906680D+00, .757032D+00,
2713 + .630781D+00, .524303D+00, .434572D+00, .359050D+00,
2714 + .295600D+00, .242410D+00, .197862D+00, .160859D+00,
2715 + .129902D+00, .104272D+00, .831436D-01, .658090D-01,
2716 + .516650D-01, .401944D-01, .309557D-01, .235748D-01,
2717 + .177331D-01, .131385D-01, .960400D-02, .687985D-02,
2718 + .482750D-02, .330739D-02, .220361D-02, .142079D-02,
2719 + .880348D-03, .520896D-03, .289804D-03, .150049D-03,
2720 + .705456D-04, .291296D-04, .100112D-04, .260253D-05,
2721 + .434967D-06, .325833D-07, .000000D+00, .228619D+07,
2722 + .170273D+07, .124298D+07, .906947D+06, .661367D+06,
2723 + .481998D+06, .351065D+06, .255547D+06, .185907D+06,
2724 + .135165D+06, .982165D+05, .713274D+05, .517720D+05 /
2725 DATA (UPDI(I),I=9933,9984) /
2726 + .375585D+05, .272344D+05, .197397D+05, .143024D+05,
2727 + .103598D+05, .750276D+04, .543322D+04, .393503D+04,
2728 + .285067D+04, .206625D+04, .149878D+04, .108841D+04,
2729 + .791430D+03, .576771D+03, .419511D+03, .307499D+03,
2730 + .226248D+03, .167218D+03, .124247D+03, .928774D+02,
2731 + .699640D+02, .530686D+02, .405897D+02, .313194D+02,
2732 + .243857D+02, .191604D+02, .151872D+02, .121430D+02,
2733 + .978420D+01, .793950D+01, .648278D+01, .532175D+01,
2734 + .438794D+01, .363381D+01, .301402D+01, .250801D+01,
2735 + .208747D+01, .173994D+01, .145055D+01, .120893D+01,
2736 + .100676D+01, .837366D+00, .695319D+00, .576180D+00,
2737 + .476288D+00, .392603D+00, .322586D+00, .264108D+00,
2738 + .215379D+00, .174809D+00, .141313D+00, .113461D+00 /
2739 DATA (UPDI(I),I=9985,10036) /
2740 + .905430D-01, .717681D-01, .564621D-01, .440537D-01,
2741 + .340565D-01, .260588D-01, .197133D-01, .147267D-01,
2742 + .108330D-01, .786039D-02, .558727D-02, .388878D-02,
2743 + .264159D-02, .174419D-02, .111383D-02, .683093D-03,
2744 + .399759D-03, .219761D-03, .112314D-03, .520578D-04,
2745 + .211626D-04, .715126D-05, .182715D-05, .301671D-06,
2746 + .230685D-07, .000000D+00, .282940D+07, .210026D+07,
2747 + .152700D+07, .110963D+07, .805806D+06, .584781D+06,
2748 + .424098D+06, .307359D+06, .222604D+06, .161113D+06,
2749 + .116530D+06, .842295D+05, .608439D+05, .439241D+05,
2750 + .316917D+05, .228536D+05, .164728D+05, .118688D+05,
2751 + .854920D+04, .615689D+04, .443407D+04, .319375D+04,
2752 + .230137D+04, .165936D+04, .119768D+04, .865483D+03 /
2753 DATA (UPDI(I),I=10037,10088) /
2754 + .626778D+03, .452940D+03, .329867D+03, .241133D+03,
2755 + .177060D+03, .130705D+03, .970717D+02, .726553D+02,
2756 + .547605D+02, .416226D+02, .319196D+02, .247038D+02,
2757 + .192960D+02, .152060D+02, .120887D+02, .968548D+01,
2758 + .781542D+01, .634598D+01, .518060D+01, .424792D+01,
2759 + .349853D+01, .288575D+01, .238810D+01, .197672D+01,
2760 + .163859D+01, .135859D+01, .112610D+01, .932667D+00,
2761 + .771511D+00, .637146D+00, .525099D+00, .431696D+00,
2762 + .353902D+00, .289193D+00, .235465D+00, .190957D+00,
2763 + .154119D+00, .123887D+00, .988986D-01, .784636D-01,
2764 + .618262D-01, .483478D-01, .374909D-01, .288008D-01,
2765 + .218950D-01, .164535D-01, .122073D-01, .891573D-02,
2766 + .642172D-02, .452946D-02, .312710D-02, .210619D-02 /
2767 DATA (UPDI(I),I=10089,10140) /
2768 + .137822D-02, .871748D-03, .529186D-03, .306319D-03,
2769 + .166402D-03, .839536D-04, .383683D-04, .153592D-04,
2770 + .510478D-05, .128244D-05, .209246D-06, .163233D-07,
2771 + .000000D+00, .345572D+07, .255691D+07, .185177D+07,
2772 + .134032D+07, .969426D+06, .700654D+06, .506027D+06,
2773 + .365191D+06, .263357D+06, .189777D+06, .136654D+06,
2774 + .983295D+05, .707028D+05, .508024D+05, .364796D+05,
2775 + .261784D+05, .187758D+05, .134597D+05, .964516D+04,
2776 + .690964D+04, .494949D+04, .354548D+04, .254057D+04,
2777 + .182141D+04, .130704D+04, .938924D+03, .675905D+03,
2778 + .485443D+03, .351378D+03, .255276D+03, .186287D+03,
2779 + .136667D+03, .100875D+03, .750420D+02, .562183D+02,
2780 + .424767D+02, .323843D+02, .249195D+02, .193545D+02 /
2781 DATA (UPDI(I),I=10141,10192) /
2782 + .151671D+02, .119914D+02, .955504D+01, .766827D+01,
2783 + .619273D+01, .502812D+01, .410054D+01, .335890D+01,
2784 + .275550D+01, .226798D+01, .186707D+01, .153931D+01,
2785 + .126936D+01, .104645D+01, .862013D+00, .709212D+00,
2786 + .582532D+00, .477493D+00, .390432D+00, .318336D+00,
2787 + .258712D+00, .209494D+00, .168958D+00, .135605D+00,
2788 + .108393D+00, .860362D-01, .678637D-01, .531593D-01,
2789 + .413211D-01, .318459D-01, .243108D-01, .183627D-01,
2790 + .137078D-01, .101008D-01, .732476D-02, .523716D-02,
2791 + .366556D-02, .251032D-02, .167648D-02, .108724D-02,
2792 + .681181D-03, .409315D-03, .234368D-03, .125819D-03,
2793 + .626718D-04, .282455D-04, .111365D-04, .364152D-05,
2794 + .899880D-06, .145153D-06, .115445D-07, .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