1 C-----------------------------------------------------------------------
3 Subroutine Ctq4RA5 (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 : CTEQ4A5
20 DATA DrI, FlI, AlI / 2., 5., .2820 /
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, .202065D+01, .263326D+01, .355599D+01, .500000D+01,
27 + .779631D+01, .130200D+02, .235367D+02, .466233D+02, .102642D+03,
28 + .255265D+03, .730783D+03, .246126D+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 + .319008D+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, .148570D+06,
174 + .112239D+06, .833156D+05, .617989D+05, .458152D+05,
175 + .339356D+05, .251218D+05, .185795D+05, .137321D+05,
176 + .101390D+05, .748073D+04, .551330D+04, .406008D+04 /
177 DATA (UPDI(I),I=469,520) /
178 + .298632D+04, .219461D+04, .161069D+04, .118099D+04,
179 + .864692D+03, .632431D+03, .461846D+03, .336884D+03,
180 + .245329D+03, .178427D+03, .129543D+03, .939186D+02,
181 + .679743D+02, .491452D+02, .352983D+02, .254390D+02,
182 + .182997D+02, .131515D+02, .943679D+01, .676669D+01,
183 + .485184D+01, .347684D+01, .249123D+01, .178759D+01,
184 + .128384D+01, .924545D+00, .667171D+00, .483603D+00,
185 + .351688D+00, .257017D+00, .188603D+00, .139193D+00,
186 + .103160D+00, .769792D-01, .575381D-01, .433305D-01,
187 + .326602D-01, .247454D-01, .187803D-01, .142965D-01,
188 + .108900D-01, .830960D-02, .633381D-02, .482722D-02,
189 + .366983D-02, .278675D-02, .210703D-02, .158848D-02,
190 + .119030D-02, .887269D-03, .657193D-03, .481962D-03 /
191 DATA (UPDI(I),I=521,572) /
192 + .349115D-03, .249789D-03, .175606D-03, .121095D-03,
193 + .811371D-04, .524931D-04, .320884D-04, .179651D-04,
194 + .839892D-05, .229658D-05, .000000D+00, .000000D+00,
195 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
196 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
197 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
198 + .000000D+00, .000000D+00, .328938D+06, .247986D+06,
199 + .183630D+06, .135870D+06, .100473D+06, .742301D+05,
200 + .548063D+05, .404256D+05, .297971D+05, .219398D+05,
201 + .161417D+05, .118624D+05, .870998D+04, .638743D+04,
202 + .467971D+04, .342396D+04, .250254D+04, .182642D+04,
203 + .133142D+04, .969045D+03, .704416D+03, .511185D+03,
204 + .370448D+03, .267974D+03, .193553D+03, .139547D+03 /
205 DATA (UPDI(I),I=573,624) /
206 + .100493D+03, .718841D+02, .515907D+02, .369561D+02,
207 + .264431D+02, .188899D+02, .134825D+02, .962204D+01,
208 + .686144D+01, .489198D+01, .349206D+01, .249482D+01,
209 + .178678D+01, .128224D+01, .924067D+00, .668070D+00,
210 + .485261D+00, .353908D+00, .259526D+00, .191104D+00,
211 + .141657D+00, .105176D+00, .786577D-01, .588778D-01,
212 + .442927D-01, .333786D-01, .252259D-01, .190775D-01,
213 + .144506D-01, .109354D-01, .827423D-02, .624646D-02,
214 + .471055D-02, .353841D-02, .265114D-02, .197572D-02,
215 + .146591D-02, .108208D-02, .792237D-03, .574454D-03,
216 + .412959D-03, .293299D-03, .205957D-03, .142291D-03,
217 + .967834D-04, .643488D-04, .417019D-04, .261122D-04,
218 + .157852D-04, .894070D-05, .464461D-05, .203357D-05 /
219 DATA (UPDI(I),I=625,676) /
220 + .570954D-06, .000000D+00, .000000D+00, .000000D+00,
221 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
222 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
223 + .000000D+00, .546885D+06, .411391D+06, .303837D+06,
224 + .224221D+06, .165361D+06, .121839D+06, .897074D+05,
225 + .659835D+05, .484958D+05, .356043D+05, .261173D+05,
226 + .191358D+05, .140074D+05, .102403D+05, .747865D+04,
227 + .545424D+04, .397331D+04, .289014D+04, .209965D+04,
228 + .152288D+04, .110308D+04, .797599D+03, .575869D+03,
229 + .415005D+03, .298597D+03, .214432D+03, .153793D+03,
230 + .109552D+03, .782909D+02, .558413D+02, .397777D+02,
231 + .282873D+02, .200951D+02, .142730D+02, .101276D+02,
232 + .718434D+01, .510154D+01, .362536D+01, .258215D+01 /
233 DATA (UPDI(I),I=677,728) /
234 + .184269D+01, .132026D+01, .948908D+00, .685063D+00,
235 + .496570D+00, .361834D+00, .264741D+00, .194951D+00,
236 + .143794D+00, .106807D+00, .794058D-01, .593198D-01,
237 + .443949D-01, .333145D-01, .250181D-01, .188146D-01,
238 + .141371D-01, .106202D-01, .796139D-02, .596126D-02,
239 + .444726D-02, .330940D-02, .245037D-02, .180678D-02,
240 + .132608D-02, .965901D-03, .697573D-03, .500117D-03,
241 + .354994D-03, .249800D-03, .173670D-03, .119541D-03,
242 + .811349D-04, .543487D-04, .358793D-04, .235159D-04,
243 + .151678D-04, .972516D-05, .619535D-05, .396674D-05,
244 + .255183D-05, .167474D-05, .111169D-05, .747865D-06,
245 + .498173D-06, .322660D-06, .195093D-06, .105237D-06,
246 + .462433D-07, .132268D-07, .102871D-08, .000000D+00 /
247 DATA (UPDI(I),I=729,780) /
248 + .808861D+06, .607052D+06, .447111D+06, .329038D+06,
249 + .241976D+06, .177780D+06, .130514D+06, .957160D+05,
250 + .701369D+05, .513364D+05, .375408D+05, .274195D+05,
251 + .200068D+05, .145791D+05, .106121D+05, .771364D+04,
252 + .560004D+04, .405933D+04, .293862D+04, .212377D+04,
253 + .153268D+04, .110412D+04, .794144D+03, .570096D+03,
254 + .408565D+03, .292217D+03, .208713D+03, .148039D+03,
255 + .105338D+03, .748037D+02, .530439D+02, .375479D+02,
256 + .265469D+02, .187648D+02, .132481D+02, .935019D+01,
257 + .660445D+01, .466831D+01, .330659D+01, .234645D+01,
258 + .167145D+01, .119426D+01, .856970D+00, .617387D+00,
259 + .447038D+00, .325008D+00, .237776D+00, .174239D+00,
260 + .128553D+00, .949332D-01, .704346D-01, .523559D-01 /
261 DATA (UPDI(I),I=781,832) /
262 + .390163D-01, .290985D-01, .217295D-01, .162141D-01,
263 + .120951D-01, .900460D-02, .669532D-02, .496101D-02,
264 + .366661D-02, .269718D-02, .197604D-02, .144155D-02,
265 + .104403D-02, .750309D-03, .535742D-03, .379271D-03,
266 + .266613D-03, .185663D-03, .128417D-03, .880055D-04,
267 + .598989D-04, .405304D-04, .274936D-04, .186028D-04,
268 + .126806D-04, .870979D-05, .606258D-05, .425559D-05,
269 + .301533D-05, .212683D-05, .147887D-05, .994751D-06,
270 + .634515D-06, .371335D-06, .190626D-06, .785737D-07,
271 + .210066D-07, .168579D-08, .000000D+00, .112169D+07,
272 + .839798D+06, .616755D+06, .452566D+06, .331837D+06,
273 + .243073D+06, .177907D+06, .130073D+06, .950146D+05,
274 + .693262D+05, .505334D+05, .367895D+05, .267548D+05 /
275 DATA (UPDI(I),I=833,884) /
276 + .194312D+05, .140958D+05, .102105D+05, .738668D+04,
277 + .533538D+04, .384835D+04, .277102D+04, .199227D+04,
278 + .142973D+04, .102435D+04, .732450D+03, .522802D+03,
279 + .372381D+03, .264846D+03, .187039D+03, .132505D+03,
280 + .936772D+02, .661225D+02, .465880D+02, .327801D+02,
281 + .230581D+02, .161970D+02, .113730D+02, .799065D+01,
282 + .561783D+01, .395708D+01, .279229D+01, .197751D+01,
283 + .140465D+01, .100187D+01, .717389D+00, .516202D+00,
284 + .372930D+00, .271084D+00, .197366D+00, .144653D+00,
285 + .106117D+00, .782032D-01, .577427D-01, .427382D-01,
286 + .316592D-01, .234792D-01, .174006D-01, .128912D-01,
287 + .953260D-02, .703959D-02, .518145D-02, .380406D-02,
288 + .278040D-02, .202417D-02, .146785D-02, .105704D-02 /
289 DATA (UPDI(I),I=885,936) /
290 + .755865D-03, .537398D-03, .379266D-03, .266142D-03,
291 + .185405D-03, .128601D-03, .886937D-04, .610159D-04,
292 + .419543D-04, .290675D-04, .202101D-04, .142121D-04,
293 + .100951D-04, .725247D-05, .523292D-05, .377793D-05,
294 + .269254D-05, .187217D-05, .124946D-05, .784298D-06,
295 + .448789D-06, .223579D-06, .886567D-07, .227125D-07,
296 + .185689D-08, .000000D+00, .149248D+07, .111460D+07,
297 + .816129D+06, .597063D+06, .436448D+06, .318715D+06,
298 + .232538D+06, .169477D+06, .123400D+06, .897444D+05,
299 + .652004D+05, .473088D+05, .342880D+05, .248168D+05,
300 + .179396D+05, .129489D+05, .933404D+04, .671741D+04,
301 + .482721D+04, .346280D+04, .248011D+04, .177291D+04,
302 + .126520D+04, .901033D+03, .640498D+03, .454302D+03 /
303 DATA (UPDI(I),I=937,988) /
304 + .321730D+03, .226212D+03, .159546D+03, .112287D+03,
305 + .788919D+02, .553240D+02, .387388D+02, .271160D+02,
306 + .189510D+02, .132383D+02, .925188D+01, .646955D+01,
307 + .453178D+01, .317988D+01, .223900D+01, .158110D+01,
308 + .112095D+01, .797812D+00, .570516D+00, .409598D+00,
309 + .295849D+00, .214021D+00, .155839D+00, .113578D+00,
310 + .831489D-01, .609917D-01, .448420D-01, .329977D-01,
311 + .243072D-01, .178946D-01, .131685D-01, .967349D-02,
312 + .709621D-02, .518933D-02, .378524D-02, .274948D-02,
313 + .198944D-02, .143433D-02, .102725D-02, .731035D-03,
314 + .517607D-03, .364204D-03, .255127D-03, .177764D-03,
315 + .123585D-03, .856815D-04, .594539D-04, .413890D-04,
316 + .291211D-04, .206249D-04, .147873D-04, .107031D-04 /
317 DATA (UPDI(I),I=989,1040) /
318 + .780914D-05, .569846D-05, .413431D-05, .294519D-05,
319 + .203419D-05, .134226D-05, .828829D-06, .464479D-06,
320 + .225336D-06, .863983D-07, .213372D-07, .177250D-08,
321 + .000000D+00, .192843D+07, .143647D+07, .104858D+07,
322 + .764741D+06, .557262D+06, .405650D+06, .295013D+06,
323 + .214311D+06, .155530D+06, .112735D+06, .816260D+05,
324 + .590247D+05, .426308D+05, .307469D+05, .221472D+05,
325 + .159283D+05, .114396D+05, .820220D+04, .587197D+04,
326 + .419618D+04, .299369D+04, .213162D+04, .151508D+04,
327 + .107460D+04, .760715D+03, .537287D+03, .378859D+03,
328 + .265198D+03, .186208D+03, .130458D+03, .912320D+02,
329 + .636757D+02, .443706D+02, .309054D+02, .214899D+02,
330 + .149345D+02, .103820D+02, .722079D+01, .503008D+01 /
331 DATA (UPDI(I),I=1041,1092) /
332 + .350978D+01, .245709D+01, .172501D+01, .121571D+01,
333 + .860064D+00, .611262D+00, .436140D+00, .313047D+00,
334 + .225034D+00, .162808D+00, .117896D+00, .857496D-01,
335 + .624938D-01, .456462D-01, .333713D-01, .244209D-01,
336 + .178614D-01, .130584D-01, .953102D-02, .694662D-02,
337 + .504803D-02, .365918D-02, .264200D-02, .190047D-02,
338 + .136263D-02, .970848D-03, .687795D-03, .485150D-03,
339 + .340456D-03, .238152D-03, .166002D-03, .115677D-03,
340 + .805931D-04, .563526D-04, .396385D-04, .282309D-04,
341 + .202676D-04, .147216D-04, .107772D-04, .792510D-05,
342 + .580658D-05, .420905D-05, .298390D-05, .204173D-05,
343 + .133008D-05, .807717D-06, .443508D-06, .209781D-06,
344 + .779387D-07, .186122D-07, .156932D-08, .000000D+00 /
345 DATA (UPDI(I),I=1093,1144) /
346 + .243672D+07, .181033D+07, .131733D+07, .957704D+06,
347 + .695632D+06, .504735D+06, .365869D+06, .264904D+06,
348 + .191599D+06, .138408D+06, .998701D+05, .719662D+05,
349 + .517945D+05, .372230D+05, .267149D+05, .191432D+05,
350 + .136974D+05, .978418D+04, .697778D+04, .496715D+04,
351 + .352980D+04, .250336D+04, .177210D+04, .125174D+04,
352 + .882413D+03, .620584D+03, .435697D+03, .303625D+03,
353 + .212233D+03, .148015D+03, .103028D+03, .715687D+02,
354 + .496287D+02, .343979D+02, .237973D+02, .164529D+02,
355 + .113771D+02, .787053D+01, .545258D+01, .378340D+01,
356 + .263353D+01, .183821D+01, .128785D+01, .905680D+00,
357 + .639781D+00, .453699D+00, .323638D+00, .231199D+00,
358 + .166213D+00, .119602D+00, .864361D-01, .625951D-01 /
359 DATA (UPDI(I),I=1145,1196) /
360 + .454276D-01, .330002D-01, .239943D-01, .174380D-01,
361 + .126679D-01, .918818D-02, .665488D-02, .480660D-02,
362 + .346322D-02, .248613D-02, .177835D-02, .126843D-02,
363 + .899365D-03, .634527D-03, .446071D-03, .312333D-03,
364 + .218266D-03, .152258D-03, .106373D-03, .744709D-04,
365 + .524417D-04, .372203D-04, .267726D-04, .194184D-04,
366 + .142309D-04, .104884D-04, .773880D-05, .567002D-05,
367 + .409358D-05, .288116D-05, .195029D-05, .125331D-05,
368 + .748348D-06, .402678D-06, .185814D-06, .669755D-07,
369 + .154989D-07, .132563D-08, .000000D+00, .302428D+07,
370 + .224087D+07, .162541D+07, .117788D+07, .852769D+06,
371 + .616715D+06, .445550D+06, .321512D+06, .231751D+06,
372 + .166838D+06, .119964D+06, .861417D+05, .617754D+05 /
373 DATA (UPDI(I),I=1197,1248) /
374 + .442360D+05, .316320D+05, .225830D+05, .160981D+05,
375 + .114554D+05, .813824D+04, .577069D+04, .408461D+04,
376 + .288524D+04, .203412D+04, .143090D+04, .100448D+04,
377 + .703408D+03, .491700D+03, .341121D+03, .237373D+03,
378 + .164795D+03, .114174D+03, .789364D+02, .544729D+02,
379 + .375702D+02, .258609D+02, .177880D+02, .122357D+02,
380 + .841937D+01, .580100D+01, .400289D+01, .277056D+01,
381 + .192278D+01, .133924D+01, .936278D+00, .657436D+00,
382 + .463405D+00, .328549D+00, .233266D+00, .166659D+00,
383 + .119177D+00, .855911D-01, .615979D-01, .444238D-01,
384 + .320700D-01, .231717D-01, .167359D-01, .120826D-01,
385 + .871044D-02, .627066D-02, .450245D-02, .322532D-02,
386 + .230261D-02, .163833D-02, .116285D-02, .820824D-03 /
387 DATA (UPDI(I),I=1249,1300) /
388 + .576960D-03, .404420D-03, .282672D-03, .197441D-03,
389 + .137896D-03, .966155D-04, .679681D-04, .481795D-04,
390 + .344644D-04, .249916D-04, .182661D-04, .134655D-04,
391 + .995931D-05, .735136D-05, .537202D-05, .385526D-05,
392 + .268996D-05, .179974D-05, .114031D-05, .669361D-06,
393 + .352981D-06, .158958D-06, .556380D-07, .124982D-07,
394 + .108393D-08, .000000D+00, .263563D+05, .000000D+00,
395 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
396 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
397 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
398 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
399 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
400 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
401 DATA (UPDI(I),I=1301,1352) /
402 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
403 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
404 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
405 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
406 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
407 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
408 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
409 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
410 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
411 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
412 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
413 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
414 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
415 DATA (UPDI(I),I=1353,1404) /
416 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
417 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
418 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
419 + .000000D+00, .582837D+05, .445595D+05, .335484D+05,
420 + .252504D+05, .190000D+05, .142911D+05, .107460D+05,
421 + .807664D+04, .606825D+04, .455688D+04, .342056D+04,
422 + .256604D+04, .192411D+04, .144177D+04, .107977D+04,
423 + .808020D+03, .604303D+03, .451531D+03, .337154D+03,
424 + .251489D+03, .187455D+03, .139566D+03, .103827D+03,
425 + .771430D+02, .572649D+02, .424582D+02, .314640D+02,
426 + .231833D+02, .171446D+02, .126616D+02, .934887D+01,
427 + .689557D+01, .508691D+01, .375408D+01, .277184D+01,
428 + .204742D+01, .151624D+01, .112446D+01, .837253D+00 /
429 DATA (UPDI(I),I=1405,1456) /
430 + .625025D+00, .469326D+00, .353751D+00, .268341D+00,
431 + .204475D+00, .156931D+00, .120983D+00, .940141D-01,
432 + .732037D-01, .574805D-01, .451799D-01, .357215D-01,
433 + .282819D-01, .224753D-01, .178656D-01, .142341D-01,
434 + .113234D-01, .901015D-02, .714903D-02, .566897D-02,
435 + .447476D-02, .352413D-02, .275931D-02, .215122D-02,
436 + .166825D-02, .128319D-02, .976757D-03, .736623D-03,
437 + .548316D-03, .403034D-03, .290825D-03, .205941D-03,
438 + .141716D-03, .944985D-04, .596368D-04, .353222D-04,
439 + .182267D-04, .689909D-05, .000000D+00, .000000D+00,
440 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
441 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
442 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
443 DATA (UPDI(I),I=1457,1508) /
444 + .128349D+06, .979715D+05, .736232D+05, .553042D+05,
445 + .415310D+05, .311728D+05, .233900D+05, .175408D+05,
446 + .131491D+05, .985090D+04, .737664D+04, .552005D+04,
447 + .412859D+04, .308548D+04, .230456D+04, .171978D+04,
448 + .128254D+04, .955509D+03, .711336D+03, .528973D+03,
449 + .393046D+03, .291694D+03, .216281D+03, .160154D+03,
450 + .118473D+03, .875287D+02, .646259D+02, .474380D+02,
451 + .349460D+02, .257077D+02, .189041D+02, .138859D+02,
452 + .101993D+02, .749428D+01, .550784D+01, .404948D+01,
453 + .298401D+01, .220196D+01, .163080D+01, .121091D+01,
454 + .904041D+00, .677478D+00, .510723D+00, .386760D+00,
455 + .294861D+00, .225812D+00, .174243D+00, .134730D+00,
456 + .105012D+00, .819394D-01, .642939D-01, .505270D-01 /
457 DATA (UPDI(I),I=1509,1560) /
458 + .398454D-01, .314367D-01, .248545D-01, .196255D-01,
459 + .154998D-01, .122110D-01, .961454D-02, .753948D-02,
460 + .590074D-02, .459438D-02, .356461D-02, .275357D-02,
461 + .211264D-02, .160730D-02, .121467D-02, .909317D-03,
462 + .675431D-03, .495959D-03, .360798D-03, .258937D-03,
463 + .183679D-03, .127925D-03, .883074D-04, .596068D-04,
464 + .396171D-04, .257212D-04, .163821D-04, .101410D-04,
465 + .613782D-05, .358989D-05, .203536D-05, .110023D-05,
466 + .567543D-06, .270448D-06, .117437D-06, .437115D-07,
467 + .119638D-07, .809365D-09, .000000D+00, .212670D+06,
468 + .162051D+06, .121526D+06, .910922D+05, .682567D+05,
469 + .511175D+05, .382668D+05, .286293D+05, .214093D+05,
470 + .159993D+05, .119502D+05, .891912D+04, .665300D+04 /
471 DATA (UPDI(I),I=1561,1612) /
472 + .495846D+04, .369312D+04, .274808D+04, .204338D+04,
473 + .151778D+04, .112645D+04, .835037D+03, .618468D+03,
474 + .457483D+03, .338067D+03, .249478D+03, .183902D+03,
475 + .135380D+03, .995862D+02, .728219D+02, .534371D+02,
476 + .391561D+02, .286755D+02, .209764D+02, .153408D+02,
477 + .112230D+02, .821034D+01, .600845D+01, .440587D+01,
478 + .323514D+01, .238347D+01, .176048D+01, .130700D+01,
479 + .973938D+00, .729838D+00, .549390D+00, .416200D+00,
480 + .316720D+00, .242768D+00, .186476D+00, .144337D+00,
481 + .111852D+00, .871402D-01, .680038D-01, .532410D-01,
482 + .417086D-01, .327355D-01, .256650D-01, .201235D-01,
483 + .157430D-01, .123074D-01, .958549D-02, .745083D-02,
484 + .576370D-02, .444351D-02, .341193D-02, .260294D-02 /
485 DATA (UPDI(I),I=1613,1664) /
486 + .197065D-02, .148311D-02, .110706D-02, .821022D-03,
487 + .603217D-03, .440166D-03, .318082D-03, .228163D-03,
488 + .161843D-03, .114594D-03, .802453D-04, .560525D-04,
489 + .389006D-04, .269982D-04, .186286D-04, .128658D-04,
490 + .879442D-05, .594270D-05, .390556D-05, .246746D-05,
491 + .145090D-05, .765867D-06, .336466D-06, .997955D-07,
492 + .762425D-08, .000000D+00, .260556D+06, .238852D+06,
493 + .178719D+06, .133655D+06, .999149D+05, .746465D+05,
494 + .557438D+05, .415999D+05, .310291D+05, .231274D+05,
495 + .172281D+05, .128232D+05, .953844D+04, .708870D+04,
496 + .526437D+04, .390563D+04, .289528D+04, .214390D+04,
497 + .158611D+04, .117201D+04, .865186D+03, .637837D+03,
498 + .469727D+03, .345427D+03, .253722D+03, .186096D+03 /
499 DATA (UPDI(I),I=1665,1716) /
500 + .136380D+03, .993424D+02, .726120D+02, .529955D+02,
501 + .386509D+02, .281556D+02, .205019D+02, .149332D+02,
502 + .108744D+02, .792118D+01, .578016D+01, .422341D+01,
503 + .309552D+01, .227450D+01, .167937D+01, .124450D+01,
504 + .927179D+00, .693873D+00, .522441D+00, .395130D+00,
505 + .300938D+00, .229687D+00, .176604D+00, .135955D+00,
506 + .105200D+00, .815489D-01, .634067D-01, .493361D-01,
507 + .384527D-01, .299419D-01, .233145D-01, .181165D-01,
508 + .140655D-01, .108819D-01, .840164D-02, .645717D-02,
509 + .494600D-02, .377403D-02, .286154D-02, .215422D-02,
510 + .161273D-02, .119833D-02, .885241D-03, .648639D-03,
511 + .472595D-03, .341657D-03, .245673D-03, .175274D-03,
512 + .125156D-03, .887763D-04, .630507D-04, .446919D-04 /
513 DATA (UPDI(I),I=1717,1768) /
514 + .317706D-04, .225164D-04, .159647D-04, .111900D-04,
515 + .771777D-05, .515410D-05, .328539D-05, .193709D-05,
516 + .101688D-05, .439338D-06, .126531D-06, .982627D-08,
517 + .000000D+00, .454333D+06, .344745D+06, .257255D+06,
518 + .191861D+06, .143024D+06, .106549D+06, .793345D+05,
519 + .590294D+05, .438957D+05, .326166D+05, .242200D+05,
520 + .179697D+05, .133227D+05, .986813D+04, .730348D+04,
521 + .539975D+04, .398870D+04, .294299D+04, .216929D+04,
522 + .159697D+04, .117440D+04, .862453D+03, .632622D+03,
523 + .463351D+03, .338937D+03, .247556D+03, .180639D+03,
524 + .131000D+03, .953199D+02, .692536D+02, .502701D+02,
525 + .364459D+02, .264071D+02, .191389D+02, .138643D+02,
526 + .100461D+02, .729027D+01, .529734D+01, .386003D+01 /
527 DATA (UPDI(I),I=1769,1820) /
528 + .281970D+01, .206913D+01, .152390D+01, .112799D+01,
529 + .838713D+00, .627219D+00, .471178D+00, .356342D+00,
530 + .270076D+00, .206152D+00, .157563D+00, .121015D+00,
531 + .931265D-01, .718638D-01, .555033D-01, .429283D-01,
532 + .331761D-01, .256333D-01, .197669D-01, .152254D-01,
533 + .116874D-01, .894977D-02, .682237D-02, .518054D-02,
534 + .391792D-02, .294207D-02, .219257D-02, .162326D-02,
535 + .119162D-02, .868175D-03, .626265D-03, .447959D-03,
536 + .316898D-03, .221988D-03, .153515D-03, .105584D-03,
537 + .715983D-04, .482024D-04, .321199D-04, .212980D-04,
538 + .139992D-04, .917929D-05, .595730D-05, .382634D-05,
539 + .239739D-05, .144987D-05, .819247D-06, .417460D-06,
540 + .176871D-06, .505089D-07, .389009D-08, .000000D+00 /
541 DATA (UPDI(I),I=1821,1872) /
542 + .626633D+06, .474322D+06, .352924D+06, .262439D+06,
543 + .195051D+06, .144866D+06, .107531D+06, .797577D+05,
544 + .591197D+05, .437859D+05, .324061D+05, .239623D+05,
545 + .177047D+05, .130682D+05, .963758D+04, .709981D+04,
546 + .522524D+04, .384101D+04, .282047D+04, .206837D+04,
547 + .151508D+04, .110821D+04, .809581D+03, .590515D+03,
548 + .430135D+03, .312815D+03, .227254D+03, .164060D+03,
549 + .118830D+03, .859354D+02, .620813D+02, .447918D+02,
550 + .322921D+02, .232861D+02, .167801D+02, .120944D+02,
551 + .872828D+01, .630693D+01, .456906D+01, .331813D+01,
552 + .242005D+01, .177141D+01, .130284D+01, .962513D+00,
553 + .715011D+00, .533543D+00, .400732D+00, .301629D+00,
554 + .228601D+00, .173484D+00, .132277D+00, .101064D+00 /
555 DATA (UPDI(I),I=1873,1924) /
556 + .774165D-01, .593579D-01, .455681D-01, .349584D-01,
557 + .268095D-01, .205228D-01, .156898D-01, .119560D-01,
558 + .908765D-02, .687747D-02, .518422D-02, .389266D-02,
559 + .290209D-02, .214796D-02, .157959D-02, .115236D-02,
560 + .834655D-03, .599072D-03, .426703D-03, .301020D-03,
561 + .210589D-03, .145853D-03, .100729D-03, .688780D-04,
562 + .469505D-04, .318562D-04, .216085D-04, .146077D-04,
563 + .987211D-05, .661374D-05, .436910D-05, .280416D-05,
564 + .172128D-05, .978344D-06, .494510D-06, .203931D-06,
565 + .554686D-07, .438138D-08, .000000D+00, .836720D+06,
566 + .631717D+06, .468607D+06, .347388D+06, .257379D+06,
567 + .190550D+06, .140984D+06, .104227D+06, .770000D+05,
568 + .568356D+05, .419196D+05, .308888D+05, .227414D+05 /
569 DATA (UPDI(I),I=1925,1976) /
570 + .167256D+05, .122896D+05, .901993D+04, .661333D+04,
571 + .484277D+04, .354222D+04, .258740D+04, .188765D+04,
572 + .137510D+04, .100037D+04, .726602D+03, .526989D+03,
573 + .381572D+03, .275964D+03, .198309D+03, .142971D+03,
574 + .102908D+03, .739840D+02, .531184D+02, .381022D+02,
575 + .273358D+02, .195945D+02, .140473D+02, .100816D+02,
576 + .724408D+01, .521763D+01, .376694D+01, .273077D+01,
577 + .198661D+01, .145188D+01, .106580D+01, .786544D+00,
578 + .583045D+00, .434954D+00, .325164D+00, .244723D+00,
579 + .184428D+00, .139625D+00, .105929D+00, .805622D-01,
580 + .613308D-01, .467417D-01, .356022D-01, .271058D-01,
581 + .206016D-01, .156360D-01, .118303D-01, .892758D-02,
582 + .670890D-02, .502140D-02, .374426D-02, .277215D-02 /
583 DATA (UPDI(I),I=1977,2028) /
584 + .203824D-02, .148932D-02, .108006D-02, .777972D-03,
585 + .555767D-03, .394326D-03, .277483D-03, .193933D-03,
586 + .134525D-03, .932654D-04, .642438D-04, .442531D-04,
587 + .304586D-04, .210117D-04, .144795D-04, .997109D-05,
588 + .679952D-05, .455304D-05, .295019D-05, .181666D-05,
589 + .102995D-05, .515077D-06, .208067D-06, .549331D-07,
590 + .440707D-08, .000000D+00, .109103D+07, .821517D+06,
591 + .607470D+06, .448888D+06, .331498D+06, .244614D+06,
592 + .180379D+06, .132899D+06, .978434D+05, .719684D+05,
593 + .528928D+05, .388343D+05, .284869D+05, .208737D+05,
594 + .152800D+05, .111720D+05, .815957D+04, .595163D+04,
595 + .433597D+04, .315441D+04, .229187D+04, .166261D+04,
596 + .120442D+04, .871052D+03, .628997D+03, .453402D+03 /
597 DATA (UPDI(I),I=2029,2080) /
598 + .326427D+03, .233477D+03, .167536D+03, .120016D+03,
599 + .858632D+02, .613426D+02, .437783D+02, .312466D+02,
600 + .222791D+02, .158861D+02, .113382D+02, .810123D+01,
601 + .580130D+01, .416382D+01, .300030D+01, .216937D+01,
602 + .157553D+01, .114926D+01, .842637D+00, .620545D+00,
603 + .459849D+00, .341472D+00, .255241D+00, .191037D+00,
604 + .143625D+00, .108213D+00, .817227D-01, .617808D-01,
605 + .467518D-01, .353607D-01, .267321D-01, .201760D-01,
606 + .152051D-01, .114247D-01, .856138D-02, .638984D-02,
607 + .474990D-02, .351809D-02, .258740D-02, .189040D-02,
608 + .137291D-02, .990082D-03, .709513D-03, .504695D-03,
609 + .356872D-03, .250612D-03, .175068D-03, .121655D-03,
610 + .846672D-04, .587113D-04, .408062D-04, .284072D-04 /
611 DATA (UPDI(I),I=2081,2132) /
612 + .198404D-04, .138487D-04, .964198D-05, .663282D-05,
613 + .446128D-05, .289242D-05, .177279D-05, .995641D-06,
614 + .490017D-06, .193201D-06, .494952D-07, .402795D-08,
615 + .000000D+00, .139637D+07, .104854D+07, .772810D+06,
616 + .569178D+06, .418922D+06, .308076D+06, .226394D+06,
617 + .166220D+06, .121943D+06, .893737D+05, .654462D+05,
618 + .478745D+05, .349873D+05, .255400D+05, .186243D+05,
619 + .135643D+05, .986776D+04, .716887D+04, .520162D+04,
620 + .376865D+04, .272674D+04, .196973D+04, .142078D+04,
621 + .102305D+04, .735490D+03, .527774D+03, .378230D+03,
622 + .269254D+03, .192295D+03, .137091D+03, .975979D+02,
623 + .693789D+02, .492612D+02, .349785D+02, .248075D+02,
624 + .175935D+02, .124872D+02, .887216D+01, .631677D+01 /
625 DATA (UPDI(I),I=2133,2184) /
626 + .450732D+01, .322836D+01, .232010D+01, .167454D+01,
627 + .121383D+01, .884275D+00, .647000D+00, .476309D+00,
628 + .351356D+00, .260865D+00, .193932D+00, .144809D+00,
629 + .108365D+00, .812765D-01, .610238D-01, .458598D-01,
630 + .344484D-01, .258633D-01, .193873D-01, .145105D-01,
631 + .108292D-01, .806026D-02, .597602D-02, .441292D-02,
632 + .324739D-02, .237315D-02, .172343D-02, .124450D-02,
633 + .892805D-03, .636816D-03, .451265D-03, .318179D-03,
634 + .223104D-03, .155866D-03, .108545D-03, .758451D-04,
635 + .529244D-04, .370749D-04, .260489D-04, .183614D-04,
636 + .129264D-04, .905458D-05, .625005D-05, .420124D-05,
637 + .271242D-05, .164807D-05, .913704D-06, .441352D-06,
638 + .169535D-06, .421306D-07, .347691D-08, .000000D+00 /
639 DATA (UPDI(I),I=2185,2236) /
640 + .175984D+07, .131776D+07, .967980D+06, .710513D+06,
641 + .521155D+06, .381929D+06, .279681D+06, .204614D+06,
642 + .149568D+06, .109221D+06, .796845D+05, .580720D+05,
643 + .422788D+05, .307443D+05, .223320D+05, .162007D+05,
644 + .117386D+05, .849356D+04, .613752D+04, .442826D+04,
645 + .319049D+04, .229488D+04, .164814D+04, .118155D+04,
646 + .845650D+03, .604062D+03, .430903D+03, .305296D+03,
647 + .216997D+03, .153956D+03, .109065D+03, .771427D+02,
648 + .544940D+02, .384937D+02, .271556D+02, .191548D+02,
649 + .135203D+02, .955229D+01, .676200D+01, .479694D+01,
650 + .341535D+01, .243969D+01, .175002D+01, .126067D+01,
651 + .912577D+00, .663441D+00, .485256D+00, .355620D+00,
652 + .262287D+00, .193696D+00, .143667D+00, .106795D+00 /
653 DATA (UPDI(I),I=2237,2288) /
654 + .795602D-01, .593349D-01, .442892D-01, .330455D-01,
655 + .246433D-01, .183499D-01, .136423D-01, .101143D-01,
656 + .747879D-02, .550933D-02, .404233D-02, .295622D-02,
657 + .214727D-02, .155050D-02, .111363D-02, .795084D-03,
658 + .564734D-03, .398873D-03, .280595D-03, .196571D-03,
659 + .137421D-03, .959442D-04, .673180D-04, .472528D-04,
660 + .333312D-04, .235936D-04, .167427D-04, .118503D-04,
661 + .832257D-05, .574403D-05, .384631D-05, .246566D-05,
662 + .148164D-05, .809239D-06, .383062D-06, .143242D-06,
663 + .345430D-07, .289032D-08, .000000D+00, .218865D+07,
664 + .163417D+07, .119632D+07, .875101D+06, .639645D+06,
665 + .467116D+06, .340842D+06, .248461D+06, .180957D+06,
666 + .131654D+06, .956915D+05, .694736D+05, .503857D+05 /
667 DATA (UPDI(I),I=2289,2340) /
668 + .364974D+05, .264068D+05, .190805D+05, .137695D+05,
669 + .992242D+04, .714039D+04, .513027D+04, .368059D+04,
670 + .263603D+04, .188489D+04, .134530D+04, .958531D+03,
671 + .681566D+03, .483937D+03, .341238D+03, .241388D+03,
672 + .170433D+03, .120142D+03, .845526D+02, .594234D+02,
673 + .417586D+02, .293026D+02, .205580D+02, .144308D+02,
674 + .101387D+02, .713618D+01, .503311D+01, .356233D+01,
675 + .252946D+01, .180337D+01, .129110D+01, .928764D+00,
676 + .670946D+00, .487619D+00, .355052D+00, .260166D+00,
677 + .190877D+00, .140647D+00, .103867D+00, .768688D-01,
678 + .569510D-01, .422286D-01, .313014D-01, .231895D-01,
679 + .171551D-01, .126711D-01, .933414D-02, .685796D-02,
680 + .502060D-02, .366108D-02, .266146D-02, .192202D-02 /
681 DATA (UPDI(I),I=2341,2392) /
682 + .138039D-02, .986517D-03, .701242D-03, .496231D-03,
683 + .349524D-03, .245459D-03, .171899D-03, .120319D-03,
684 + .842452D-04, .593584D-04, .418953D-04, .297285D-04,
685 + .211666D-04, .150898D-04, .107109D-04, .752264D-05,
686 + .517809D-05, .344638D-05, .218934D-05, .129907D-05,
687 + .698092D-06, .323533D-06, .117738D-06, .275726D-07,
688 + .233872D-08, .000000D+00, .268995D+07, .200269D+07,
689 + .146105D+07, .106504D+07, .775745D+06, .564494D+06,
690 + .410414D+06, .298088D+06, .216301D+06, .156783D+06,
691 + .113527D+06, .821082D+05, .593191D+05, .428006D+05,
692 + .308449D+05, .221982D+05, .159545D+05, .114498D+05,
693 + .820533D+04, .587065D+04, .419382D+04, .299065D+04,
694 + .212911D+04, .151288D+04, .107309D+04, .759529D+03 /
695 DATA (UPDI(I),I=2393,2444) /
696 + .536794D+03, .376708D+03, .265208D+03, .186347D+03,
697 + .130713D+03, .915336D+02, .640020D+02, .447443D+02,
698 + .312320D+02, .217942D+02, .152148D+02, .106302D+02,
699 + .743976D+01, .521710D+01, .367095D+01, .259114D+01,
700 + .183621D+01, .130662D+01, .934121D+00, .670611D+00,
701 + .484316D+00, .350410D+00, .255125D+00, .185977D+00,
702 + .136154D+00, .999031D-01, .734575D-01, .540730D-01,
703 + .398351D-01, .293376D-01, .215953D-01, .158744D-01,
704 + .116509D-01, .852918D-02, .622787D-02, .453192D-02,
705 + .328516D-02, .237458D-02, .170547D-02, .121868D-02,
706 + .866945D-03, .613810D-03, .432958D-03, .304279D-03,
707 + .213437D-03, .149505D-03, .104818D-03, .736202D-04,
708 + .520874D-04, .369470D-04, .263476D-04, .188410D-04 /
709 DATA (UPDI(I),I=2445,2496) /
710 + .134691D-04, .956793D-05, .670660D-05, .459526D-05,
711 + .303505D-05, .190796D-05, .111669D-05, .589888D-06,
712 + .267508D-06, .947379D-07, .215649D-07, .185392D-08,
713 + .000000D+00, .327069D+07, .242802D+07, .176521D+07,
714 + .128227D+07, .930662D+06, .674806D+06, .488842D+06,
715 + .353755D+06, .255745D+06, .184681D+06, .133221D+06,
716 + .959840D+05, .690751D+05, .496449D+05, .356355D+05,
717 + .255432D+05, .182842D+05, .130679D+05, .932595D+04,
718 + .664436D+04, .472632D+04, .335584D+04, .237867D+04,
719 + .168273D+04, .118820D+04, .837164D+03, .588926D+03,
720 + .411330D+03, .288208D+03, .201533D+03, .140672D+03,
721 + .980184D+02, .681893D+02, .474271D+02, .329310D+02,
722 + .228574D+02, .158704D+02, .110272D+02, .767432D+01 /
723 DATA (UPDI(I),I=2497,2548) /
724 + .535097D+01, .374335D+01, .262675D+01, .185036D+01,
725 + .130878D+01, .929960D+00, .663519D+00, .476231D+00,
726 + .342408D+00, .247732D+00, .179449D+00, .130544D+00,
727 + .951828D-01, .695432D-01, .508683D-01, .372368D-01,
728 + .272519D-01, .199344D-01, .145627D-01, .106223D-01,
729 + .772910D-02, .560992D-02, .405855D-02, .292527D-02,
730 + .210296D-02, .150258D-02, .106864D-02, .757006D-03,
731 + .534081D-03, .375686D-03, .263573D-03, .184766D-03,
732 + .129510D-03, .909836D-04, .641085D-04, .455370D-04,
733 + .324417D-04, .232259D-04, .166574D-04, .119218D-04,
734 + .846066D-05, .590910D-05, .402431D-05, .263436D-05,
735 + .163714D-05, .944382D-06, .490085D-06, .217391D-06,
736 + .749346D-07, .165955D-07, .144579D-08, .000000D+00 /
737 DATA (UPDI(I),I=2549,2600) /
738 + .211749D+05, .127778D+05, .102457D+05, .821536D+04,
739 + .658739D+04, .528205D+04, .423539D+04, .339615D+04,
740 + .272322D+04, .218365D+04, .175101D+04, .140410D+04,
741 + .112594D+04, .902906D+03, .724067D+03, .580667D+03,
742 + .465684D+03, .373485D+03, .299556D+03, .240275D+03,
743 + .192740D+03, .154623D+03, .124058D+03, .995476D+02,
744 + .798924D+02, .641300D+02, .514890D+02, .412223D+02,
745 + .331192D+02, .266188D+02, .214035D+02, .172187D+02,
746 + .138602D+02, .111715D+02, .900698D+01, .726910D+01,
747 + .587309D+01, .475092D+01, .384808D+01, .312059D+01,
748 + .253445D+01, .206065D+01, .167716D+01, .136612D+01,
749 + .111334D+01, .907501D+00, .740144D+00, .602510D+00,
750 + .490550D+00, .398270D+00, .322940D+00, .261199D+00 /
751 DATA (UPDI(I),I=2601,2652) /
752 + .210629D+00, .169254D+00, .135459D+00, .107921D+00,
753 + .855464D-01, .674319D-01, .528276D-01, .411097D-01,
754 + .317582D-01, .243398D-01, .184938D-01, .139391D-01,
755 + .103818D-01, .764693D-02, .556476D-02, .399634D-02,
756 + .282871D-02, .197064D-02, .134902D-02, .905757D-03,
757 + .595034D-03, .381314D-03, .238736D-03, .144533D-03,
758 + .845292D-04, .475080D-04, .254943D-04, .129572D-04,
759 + .617225D-05, .272227D-05, .108491D-05, .383655D-06,
760 + .115450D-06, .278716D-07, .489045D-08, .518188D-09,
761 + .218723D-10, .971975D-13, .000000D+00, .740706D+05,
762 + .573171D+05, .437778D+05, .334525D+05, .255767D+05,
763 + .195645D+05, .149744D+05, .114671D+05, .878680D+04,
764 + .673670D+04, .516842D+04, .396755D+04, .304791D+04 /
765 DATA (UPDI(I),I=2653,2704) /
766 + .234289D+04, .180235D+04, .138743D+04, .106892D+04,
767 + .824109D+03, .635931D+03, .491091D+03, .379610D+03,
768 + .293677D+03, .227433D+03, .176289D+03, .136799D+03,
769 + .106266D+03, .826625D+02, .641426D+02, .500246D+02,
770 + .390622D+02, .305527D+02, .239314D+02, .187793D+02,
771 + .147717D+02, .116375D+02, .918703D+01, .727070D+01,
772 + .576694D+01, .458637D+01, .365559D+01, .292206D+01,
773 + .234053D+01, .187890D+01, .151084D+01, .121686D+01,
774 + .980971D+00, .792070D+00, .638648D+00, .515533D+00,
775 + .415151D+00, .334138D+00, .268368D+00, .215033D+00,
776 + .171760D+00, .136722D+00, .108373D+00, .855082D-01,
777 + .671113D-01, .523782D-01, .406174D-01, .312846D-01,
778 + .239142D-01, .181311D-01, .136426D-01, .101484D-01 /
779 DATA (UPDI(I),I=2705,2756) /
780 + .746751D-02, .543109D-02, .389888D-02, .275966D-02,
781 + .192211D-02, .131528D-02, .881558D-03, .577216D-03,
782 + .366783D-03, .226223D-03, .132932D-03, .734517D-04,
783 + .368401D-04, .153477D-04, .359555D-05, .000000D+00,
784 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
785 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
786 + .000000D+00, .000000D+00, .144113D+06, .110710D+06,
787 + .838375D+05, .634942D+05, .480978D+05, .364382D+05,
788 + .276118D+05, .209259D+05, .158632D+05, .120271D+05,
789 + .912155D+04, .691912D+04, .525035D+04, .398490D+04,
790 + .302571D+04, .229798D+04, .174613D+04, .132721D+04,
791 + .100935D+04, .767916D+03, .584624D+03, .445298D+03,
792 + .339438D+03, .258901D+03, .197650D+03, .151015D+03 /
793 DATA (UPDI(I),I=2757,2808) /
794 + .115534D+03, .881349D+02, .675873D+02, .518908D+02,
795 + .399094D+02, .307405D+02, .237260D+02, .183603D+02,
796 + .142350D+02, .110627D+02, .862320D+01, .673959D+01,
797 + .528473D+01, .415532D+01, .327900D+01, .259432D+01,
798 + .205860D+01, .163719D+01, .130509D+01, .104184D+01,
799 + .833586D+00, .666278D+00, .533518D+00, .426329D+00,
800 + .340671D+00, .271745D+00, .216347D+00, .171760D+00,
801 + .135947D+00, .107177D+00, .841374D-01, .657199D-01,
802 + .510672D-01, .394377D-01, .302641D-01, .230571D-01,
803 + .174311D-01, .130850D-01, .971664D-02, .714177D-02,
804 + .519329D-02, .373160D-02, .264803D-02, .185271D-02,
805 + .127736D-02, .866089D-03, .577094D-03, .376449D-03,
806 + .241629D-03, .151022D-03, .922244D-04, .548009D-04 /
807 DATA (UPDI(I),I=2809,2860) /
808 + .317118D-04, .177908D-04, .970894D-05, .513282D-05,
809 + .263613D-05, .130768D-05, .628303D-06, .284726D-06,
810 + .119867D-06, .439626D-07, .119743D-07, .809417D-09,
811 + .000000D+00, .228412D+06, .174773D+06, .131726D+06,
812 + .992707D+05, .748143D+05, .563753D+05, .424825D+05,
813 + .320093D+05, .241193D+05, .181721D+05, .136923D+05,
814 + .103158D+05, .777279D+04, .585623D+04, .441286D+04,
815 + .332510D+04, .250595D+04, .188860D+04, .142371D+04,
816 + .107332D+04, .809469D+03, .610578D+03, .460773D+03,
817 + .347822D+03, .262718D+03, .198542D+03, .150201D+03,
818 + .113253D+03, .858374D+02, .651202D+02, .494813D+02,
819 + .376492D+02, .287017D+02, .219381D+02, .168000D+02,
820 + .128967D+02, .993162D+01, .767007D+01, .594461D+01 /
821 DATA (UPDI(I),I=2861,2912) /
822 + .462134D+01, .360694D+01, .282368D+01, .221791D+01,
823 + .174676D+01, .137955D+01, .109152D+01, .866016D+00,
824 + .686605D+00, .545620D+00, .432809D+00, .343450D+00,
825 + .272143D+00, .215296D+00, .169893D+00, .133697D+00,
826 + .104821D+00, .818544D-01, .636147D-01, .491959D-01,
827 + .378202D-01, .288997D-01, .219303D-01, .165185D-01,
828 + .123590D-01, .915078D-02, .670920D-02, .486972D-02,
829 + .349520D-02, .248009D-02, .173730D-02, .120144D-02,
830 + .819092D-03, .550646D-03, .364148D-03, .238512D-03,
831 + .153580D-03, .979245D-04, .618581D-04, .389956D-04,
832 + .245614D-04, .156080D-04, .996710D-05, .639407D-05,
833 + .405956D-05, .251196D-05, .146122D-05, .767596D-06,
834 + .336643D-06, .998028D-07, .762429D-08, .000000D+00 /
835 DATA (UPDI(I),I=2913,2964) /
836 + .255405D+06, .251557D+06, .188906D+06, .141823D+06,
837 + .106464D+06, .798971D+05, .599535D+05, .449750D+05,
838 + .337352D+05, .252969D+05, .189675D+05, .142176D+05,
839 + .106563D+05, .798484D+04, .598274D+04, .448147D+04,
840 + .335684D+04, .251385D+04, .188261D+04, .140963D+04,
841 + .105560D+04, .790415D+03, .591973D+03, .443361D+03,
842 + .332170D+03, .248926D+03, .186696D+03, .139504D+03,
843 + .104767D+03, .787371D+02, .592545D+02, .446446D+02,
844 + .336959D+02, .254966D+02, .193267D+02, .146849D+02,
845 + .111934D+02, .855696D+01, .656551D+01, .505370D+01,
846 + .390636D+01, .302933D+01, .235771D+01, .184046D+01,
847 + .144118D+01, .113092D+01, .890219D+00, .700419D+00,
848 + .552561D+00, .435238D+00, .343056D+00, .270072D+00 /
849 DATA (UPDI(I),I=2965,3016) /
850 + .212328D+00, .166548D+00, .130309D+00, .101595D+00,
851 + .789096D-01, .610087D-01, .469458D-01, .359177D-01,
852 + .273206D-01, .206418D-01, .154838D-01, .115401D-01,
853 + .851377D-02, .622187D-02, .450336D-02, .322500D-02,
854 + .228491D-02, .159966D-02, .110704D-02, .756565D-03,
855 + .511012D-03, .340609D-03, .225727D-03, .147864D-03,
856 + .965321D-04, .629038D-04, .412082D-04, .271425D-04,
857 + .180825D-04, .120867D-04, .805910D-05, .526922D-05,
858 + .331822D-05, .194460D-05, .101812D-05, .439463D-06,
859 + .126536D-06, .982630D-08, .000000D+00, .470033D+06,
860 + .357432D+06, .267427D+06, .200017D+06, .149563D+06,
861 + .111791D+06, .835377D+05, .623991D+05, .465973D+05,
862 + .347824D+05, .259563D+05, .193615D+05, .144384D+05 /
863 DATA (UPDI(I),I=3017,3068) /
864 + .107624D+05, .802027D+04, .597424D+04, .444909D+04,
865 + .331193D+04, .246491D+04, .183382D+04, .136413D+04,
866 + .101443D+04, .754329D+03, .560804D+03, .416953D+03,
867 + .309998D+03, .230604D+03, .170844D+03, .127189D+03,
868 + .947358D+02, .706387D+02, .527222D+02, .394085D+02,
869 + .295281D+02, .221592D+02, .166680D+02, .125760D+02,
870 + .951652D+01, .722778D+01, .550776D+01, .421517D+01,
871 + .323712D+01, .249543D+01, .192996D+01, .149763D+01,
872 + .116496D+01, .909284D+00, .709556D+00, .555356D+00,
873 + .434094D+00, .339624D+00, .265465D+00, .207263D+00,
874 + .161489D+00, .125528D+00, .972517D-01, .750709D-01,
875 + .576942D-01, .441354D-01, .335750D-01, .253953D-01,
876 + .190820D-01, .142353D-01, .105521D-01, .774182D-02 /
877 DATA (UPDI(I),I=3069,3120) /
878 + .562600D-02, .404834D-02, .288139D-02, .202785D-02,
879 + .140919D-02, .966847D-03, .653968D-03, .436084D-03,
880 + .285977D-03, .185578D-03, .118243D-03, .744266D-04,
881 + .462687D-04, .285676D-04, .175310D-04, .107808D-04,
882 + .662867D-05, .407918D-05, .248171D-05, .147363D-05,
883 + .824615D-06, .418336D-06, .176958D-06, .505124D-07,
884 + .389011D-08, .000000D+00, .642312D+06, .486991D+06,
885 + .363081D+06, .270583D+06, .201581D+06, .150101D+06,
886 + .111728D+06, .831221D+05, .618168D+05, .459480D+05,
887 + .341392D+05, .253515D+05, .188181D+05, .139606D+05,
888 + .103527D+05, .767289D+04, .568443D+04, .420889D+04,
889 + .311517D+04, .230441D+04, .170410D+04, .125955D+04,
890 + .930721D+03, .687460D+03, .507696D+03, .374848D+03 /
891 DATA (UPDI(I),I=3121,3172) /
892 + .276850D+03, .203573D+03, .150399D+03, .111147D+03,
893 + .822053D+02, .608472D+02, .450943D+02, .334959D+02,
894 + .249136D+02, .185716D+02, .138845D+02, .104105D+02,
895 + .783401D+01, .591507D+01, .448563D+01, .341384D+01,
896 + .260827D+01, .199969D+01, .153849D+01, .118679D+01,
897 + .918811D+00, .711309D+00, .552451D+00, .428583D+00,
898 + .332866D+00, .258341D+00, .200306D+00, .155020D+00,
899 + .119707D+00, .921474D-01, .706840D-01, .539904D-01,
900 + .410539D-01, .310482D-01, .233494D-01, .174470D-01,
901 + .129443D-01, .954424D-02, .696605D-02, .503710D-02,
902 + .360743D-02, .255632D-02, .179191D-02, .124104D-02,
903 + .849267D-03, .573600D-03, .382485D-03, .251413D-03,
904 + .163988D-03, .105469D-03, .673502D-04, .427661D-04 /
905 DATA (UPDI(I),I=3173,3224) /
906 + .271623D-04, .172796D-04, .110711D-04, .711084D-05,
907 + .455407D-05, .286506D-05, .173821D-05, .982113D-06,
908 + .495116D-06, .203991D-06, .554710D-07, .438140D-08,
909 + .000000D+00, .852377D+06, .644369D+06, .478750D+06,
910 + .355520D+06, .263899D+06, .195777D+06, .145174D+06,
911 + .107586D+06, .796926D+05, .589939D+05, .436495D+05,
912 + .322753D+05, .238525D+05, .176160D+05, .130031D+05,
913 + .959157D+04, .707126D+04, .520956D+04, .383596D+04,
914 + .282259D+04, .207591D+04, .152576D+04, .112092D+04,
915 + .823014D+03, .604071D+03, .443174D+03, .325173D+03,
916 + .237473D+03, .174226D+03, .127837D+03, .938532D+02,
917 + .689445D+02, .506984D+02, .373607D+02, .275625D+02,
918 + .203768D+02, .151063D+02, .112309D+02, .837920D+01 /
919 DATA (UPDI(I),I=3225,3276) /
920 + .627276D+01, .471631D+01, .355904D+01, .269637D+01,
921 + .205014D+01, .156445D+01, .119716D+01, .919593D+00,
922 + .706440D+00, .544557D+00, .419355D+00, .323360D+00,
923 + .249208D+00, .191898D+00, .147519D+00, .113164D+00,
924 + .865499D-01, .659701D-01, .500779D-01, .378467D-01,
925 + .284520D-01, .212715D-01, .158034D-01, .116587D-01,
926 + .854917D-02, .620617D-02, .446442D-02, .318150D-02,
927 + .224413D-02, .156648D-02, .108103D-02, .737708D-03,
928 + .497431D-03, .331643D-03, .218457D-03, .143177D-03,
929 + .928820D-04, .600847D-04, .388509D-04, .252443D-04,
930 + .164959D-04, .108664D-04, .716662D-05, .468799D-05,
931 + .299406D-05, .182869D-05, .103259D-05, .515494D-06,
932 + .208108D-06, .549347D-07, .440708D-08, .000000D+00 /
933 DATA (UPDI(I),I=3277,3328) /
934 + .110666D+07, .834151D+06, .617599D+06, .457008D+06,
935 + .338008D+06, .249833D+06, .184562D+06, .136252D+06,
936 + .100531D+06, .741228D+05, .546194D+05, .402181D+05,
937 + .295957D+05, .217621D+05, .159918D+05, .117422D+05,
938 + .861618D+04, .631726D+04, .462868D+04, .338870D+04,
939 + .247934D+04, .181257D+04, .132433D+04, .966900D+03,
940 + .705574D+03, .514550D+03, .375229D+03, .272276D+03,
941 + .198463D+03, .144650D+03, .105467D+03, .769310D+02,
942 + .561617D+02, .410814D+02, .300777D+02, .220648D+02,
943 + .162292D+02, .119700D+02, .885902D+01, .657858D+01,
944 + .490633D+01, .367266D+01, .276016D+01, .208203D+01,
945 + .157633D+01, .119693D+01, .912447D+00, .695704D+00,
946 + .532353D+00, .407000D+00, .311616D+00, .238496D+00 /
947 DATA (UPDI(I),I=3329,3380) /
948 + .182401D+00, .139284D+00, .106145D+00, .806589D-01,
949 + .610899D-01, .460847D-01, .346148D-01, .258657D-01,
950 + .192232D-01, .141987D-01, .104149D-01, .759440D-02,
951 + .548285D-02, .392334D-02, .278188D-02, .195309D-02,
952 + .135756D-02, .933495D-03, .635268D-03, .427678D-03,
953 + .285130D-03, .188232D-03, .123953D-03, .810702D-04,
954 + .530624D-04, .348468D-04, .230580D-04, .153665D-04,
955 + .103088D-04, .690321D-05, .455948D-05, .292393D-05,
956 + .178131D-05, .997483D-06, .490304D-06, .193228D-06,
957 + .494963D-07, .402796D-08, .000000D+00, .141199D+07,
958 + .106116D+07, .782925D+06, .577287D+06, .425423D+06,
959 + .313287D+06, .230571D+06, .169568D+06, .124626D+06,
960 + .915242D+05, .671695D+05, .492554D+05, .360936D+05 /
961 DATA (UPDI(I),I=3381,3432) /
962 + .264264D+05, .193342D+05, .141328D+05, .103230D+05,
963 + .753329D+04, .549327D+04, .400199D+04, .291337D+04,
964 + .211894D+04, .154003D+04, .111830D+04, .811534D+03,
965 + .588445D+03, .426603D+03, .307669D+03, .222877D+03,
966 + .161417D+03, .116926D+03, .847211D+02, .614250D+02,
967 + .446177D+02, .324326D+02, .236187D+02, .172429D+02,
968 + .126220D+02, .927032D+01, .683124D+01, .505550D+01,
969 + .375519D+01, .280049D+01, .209634D+01, .157514D+01,
970 + .118707D+01, .898254D+00, .679879D+00, .516512D+00,
971 + .392092D+00, .298113D+00, .226605D+00, .172140D+00,
972 + .130578D+00, .988611D-01, .746414D-01, .561743D-01,
973 + .421126D-01, .314367D-01, .233489D-01, .172493D-01,
974 + .126664D-01, .923735D-02, .669787D-02, .480898D-02 /
975 DATA (UPDI(I),I=3433,3484) /
976 + .342298D-02, .241494D-02, .168762D-02, .116816D-02,
977 + .800479D-03, .543342D-03, .365300D-03, .243614D-03,
978 + .161224D-03, .106689D-03, .703360D-04, .465384D-04,
979 + .309770D-04, .208009D-04, .140658D-04, .954991D-05,
980 + .644866D-05, .427250D-05, .273500D-05, .165409D-05,
981 + .914987D-06, .441549D-06, .169553D-06, .421313D-07,
982 + .347691D-08, .000000D+00, .177544D+07, .133036D+07,
983 + .978081D+06, .718609D+06, .527645D+06, .387132D+06,
984 + .283851D+06, .207956D+06, .152247D+06, .111368D+06,
985 + .814043D+05, .594499D+05, .433826D+05, .316284D+05,
986 + .230401D+05, .167676D+05, .121924D+05, .885671D+04,
987 + .642805D+04, .466061D+04, .337624D+04, .244331D+04,
988 + .176669D+04, .127618D+04, .921133D+03, .664231D+03 /
989 DATA (UPDI(I),I=3485,3536) /
990 + .478827D+03, .343310D+03, .247221D+03, .177961D+03,
991 + .128107D+03, .922302D+02, .664314D+02, .479324D+02,
992 + .346034D+02, .250239D+02, .181389D+02, .131823D+02,
993 + .961120D+01, .703037D+01, .516436D+01, .380762D+01,
994 + .281852D+01, .209428D+01, .156202D+01, .116861D+01,
995 + .877928D+00, .659747D+00, .497694D+00, .375178D+00,
996 + .283299D+00, .213893D+00, .161401D+00, .121630D+00,
997 + .914891D-01, .686344D-01, .513278D-01, .382404D-01,
998 + .283708D-01, .209446D-01, .153810D-01, .112285D-01,
999 + .814161D-02, .587025D-02, .419169D-02, .296801D-02,
1000 + .208362D-02, .144951D-02, .999337D-03, .682576D-03,
1001 + .462253D-03, .310478D-03, .207201D-03, .137518D-03,
1002 + .914702D-04, .607760D-04, .406188D-04, .273548D-04 /
1003 DATA (UPDI(I),I=3537,3588) /
1004 + .185871D-04, .127032D-04, .868947D-05, .588950D-05,
1005 + .389788D-05, .248179D-05, .148588D-05, .810130D-06,
1006 + .383197D-06, .143255D-06, .345435D-07, .289033D-08,
1007 + .000000D+00, .220422D+07, .164675D+07, .120641D+07,
1008 + .883186D+06, .646126D+06, .472311D+06, .345005D+06,
1009 + .251797D+06, .183630D+06, .133796D+06, .974079D+05,
1010 + .708485D+05, .514869D+05, .373792D+05, .271128D+05,
1011 + .196457D+05, .142218D+05, .102842D+05, .742973D+04,
1012 + .536157D+04, .386540D+04, .278362D+04, .200270D+04,
1013 + .143927D+04, .103342D+04, .741207D+03, .531389D+03,
1014 + .378832D+03, .271237D+03, .194104D+03, .138887D+03,
1015 + .993771D+02, .711281D+02, .509918D+02, .365697D+02,
1016 + .262686D+02, .189111D+02, .136483D+02, .988107D+01 /
1017 DATA (UPDI(I),I=3589,3640) /
1018 + .717657D+01, .523411D+01, .383139D+01, .281575D+01,
1019 + .207723D+01, .153824D+01, .114265D+01, .852393D+00,
1020 + .636078D+00, .476530D+00, .356766D+00, .267578D+00,
1021 + .200680D+00, .150435D+00, .112630D+00, .841747D-01,
1022 + .627470D-01, .466311D-01, .345268D-01, .254593D-01,
1023 + .186823D-01, .136383D-01, .989858D-02, .713624D-02,
1024 + .511677D-02, .363392D-02, .255987D-02, .178847D-02,
1025 + .123878D-02, .850838D-03, .579435D-03, .391650D-03,
1026 + .262914D-03, .175668D-03, .116970D-03, .782212D-04,
1027 + .523703D-04, .353254D-04, .240294D-04, .164805D-04,
1028 + .113476D-04, .779364D-05, .528434D-05, .348360D-05,
1029 + .220083D-05, .130205D-05, .698709D-06, .323625D-06,
1030 + .117747D-06, .275729D-07, .233873D-08, .000000D+00 /
1031 DATA (UPDI(I),I=3641,3692) /
1032 + .270550D+07, .201526D+07, .147113D+07, .107312D+07,
1033 + .782216D+06, .569680D+06, .414570D+06, .301419D+06,
1034 + .218970D+06, .158921D+06, .115239D+06, .834799D+05,
1035 + .604175D+05, .436801D+05, .315488D+05, .227615D+05,
1036 + .164052D+05, .118102D+05, .849342D+04, .610084D+04,
1037 + .437765D+04, .313737D+04, .224614D+04, .160615D+04,
1038 + .114736D+04, .818616D+03, .583753D+03, .413863D+03,
1039 + .294667D+03, .209672D+03, .149152D+03, .106087D+03,
1040 + .754677D+02, .537673D+02, .383150D+02, .273442D+02,
1041 + .195555D+02, .140189D+02, .100806D+02, .727131D+01,
1042 + .526652D+01, .382833D+01, .279388D+01, .204674D+01,
1043 + .150511D+01, .111028D+01, .822561D+00, .609608D+00,
1044 + .453607D+00, .337319D+00, .251312D+00, .187244D+00 /
1045 DATA (UPDI(I),I=3693,3744) /
1046 + .139451D+00, .103735D+00, .770343D-01, .570637D-01,
1047 + .421442D-01, .310134D-01, .227300D-01, .165801D-01,
1048 + .120327D-01, .868299D-02, .622449D-02, .443859D-02,
1049 + .313558D-02, .219778D-02, .152838D-02, .105426D-02,
1050 + .721587D-03, .490136D-03, .330793D-03, .222045D-03,
1051 + .148608D-03, .993127D-04, .667805D-04, .450393D-04,
1052 + .306343D-04, .210140D-04, .145148D-04, .100419D-04,
1053 + .690620D-05, .467263D-05, .306182D-05, .191612D-05,
1054 + .111878D-05, .590314D-06, .267570D-06, .947435D-07,
1055 + .215651D-07, .185392D-08, .000000D+00, .328622D+07,
1056 + .244057D+07, .177527D+07, .129033D+07, .937123D+06,
1057 + .679983D+06, .492991D+06, .357079D+06, .258408D+06,
1058 + .186814D+06, .134930D+06, .973524D+05, .701707D+05 /
1059 DATA (UPDI(I),I=3745,3796) /
1060 + .505218D+05, .363373D+05, .261046D+05, .187331D+05,
1061 + .134267D+05, .961271D+04, .687338D+04, .490910D+04,
1062 + .350164D+04, .249487D+04, .177526D+04, .126182D+04,
1063 + .895670D+03, .635369D+03, .448028D+03, .317261D+03,
1064 + .224499D+03, .158795D+03, .112293D+03, .794099D+02,
1065 + .562357D+02, .398271D+02, .282451D+02, .200707D+02,
1066 + .142951D+02, .102115D+02, .731681D+01, .526391D+01,
1067 + .380059D+01, .275481D+01, .200441D+01, .146397D+01,
1068 + .107261D+01, .789307D+00, .581028D+00, .429467D+00,
1069 + .317253D+00, .234815D+00, .173821D+00, .128623D+00,
1070 + .950735D-01, .701576D-01, .516466D-01, .379090D-01,
1071 + .277275D-01, .201998D-01, .146476D-01, .105685D-01,
1072 + .758308D-02, .540573D-02, .383404D-02, .269451D-02 /
1073 DATA (UPDI(I),I=3797,3848) /
1074 + .187949D-02, .130126D-02, .894122D-03, .610043D-03,
1075 + .413451D-03, .278741D-03, .187180D-03, .125540D-03,
1076 + .842280D-04, .569523D-04, .386768D-04, .265004D-04,
1077 + .183023D-04, .127059D-04, .881251D-05, .605570D-05,
1078 + .408050D-05, .265357D-05, .164292D-05, .945841D-06,
1079 + .490379D-06, .217434D-06, .749383D-07, .165957D-07,
1080 + .144579D-08, .000000D+00, .159314D+05, .255729D+05,
1081 + .205063D+05, .164437D+05, .131860D+05, .105739D+05,
1082 + .847935D+04, .679981D+04, .545304D+04, .437310D+04,
1083 + .350712D+04, .281271D+04, .225587D+04, .180933D+04,
1084 + .145126D+04, .116410D+04, .933829D+03, .749160D+03,
1085 + .601062D+03, .482289D+03, .387033D+03, .310635D+03,
1086 + .249360D+03, .200211D+03, .160788D+03, .129163D+03 /
1087 DATA (UPDI(I),I=3849,3900) /
1088 + .103793D+03, .831815D+02, .669076D+02, .538473D+02,
1089 + .433647D+02, .349497D+02, .281933D+02, .227819D+02,
1090 + .184232D+02, .149219D+02, .121076D+02, .984390D+01,
1091 + .802104D+01, .655053D+01, .536388D+01, .440259D+01,
1092 + .362216D+01, .298658D+01, .246723D+01, .204134D+01,
1093 + .169200D+01, .140161D+01, .116235D+01, .962218D+00,
1094 + .796092D+00, .657399D+00, .541495D+00, .444611D+00,
1095 + .363671D+00, .296145D+00, .239937D+00, .193295D+00,
1096 + .154741D+00, .123021D+00, .970659D-01, .759569D-01,
1097 + .589071D-01, .452967D-01, .344098D-01, .258407D-01,
1098 + .191645D-01, .140207D-01, .101059D-01, .716643D-02,
1099 + .499168D-02, .340885D-02, .227688D-02, .148298D-02,
1100 + .943207D-03, .579943D-03, .344349D-03, .196419D-03 /
1101 DATA (UPDI(I),I=3901,3952) /
1102 + .106940D-03, .551253D-04, .266250D-04, .119026D-04,
1103 + .480696D-05, .172203D-05, .524804D-06, .128280D-06,
1104 + .227838D-07, .244308D-08, .104331D-09, .468971D-12,
1105 + .000000D+00, .898777D+05, .700923D+05, .540223D+05,
1106 + .416679D+05, .321649D+05, .248479D+05, .192115D+05,
1107 + .148652D+05, .115121D+05, .892249D+04, .692155D+04,
1108 + .537371D+04, .417582D+04, .324766D+04, .252816D+04,
1109 + .196972D+04, .153611D+04, .119898D+04, .936753D+03,
1110 + .732522D+03, .573402D+03, .449256D+03, .352358D+03,
1111 + .276623D+03, .217403D+03, .171041D+03, .134736D+03,
1112 + .105894D+03, .836257D+02, .661208D+02, .523592D+02,
1113 + .415212D+02, .329830D+02, .262632D+02, .209443D+02,
1114 + .167389D+02, .134120D+02, .107737D+02, .867938D+01 /
1115 DATA (UPDI(I),I=3953,4004) /
1116 + .701139D+01, .568263D+01, .461850D+01, .376443D+01,
1117 + .307605D+01, .251945D+01, .206726D+01, .169995D+01,
1118 + .139721D+01, .115010D+01, .945099D+00, .776388D+00,
1119 + .636664D+00, .520866D+00, .424830D+00, .345237D+00,
1120 + .279340D+00, .224905D+00, .180068D+00, .143285D+00,
1121 + .113237D+00, .888269D-01, .691153D-01, .532994D-01,
1122 + .407609D-01, .307958D-01, .230018D-01, .169675D-01,
1123 + .123468D-01, .885164D-02, .624240D-02, .432322D-02,
1124 + .293398D-02, .194643D-02, .125704D-02, .791215D-03,
1125 + .479416D-03, .278517D-03, .153385D-03, .785232D-04,
1126 + .360060D-04, .133478D-04, .246171D-05, .000000D+00,
1127 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1128 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
1129 DATA (UPDI(I),I=4005,4056) /
1130 + .159898D+06, .123467D+06, .940674D+05, .716977D+05,
1131 + .546765D+05, .417139D+05, .318427D+05, .243189D+05,
1132 + .185844D+05, .142096D+05, .108719D+05, .832300D+04,
1133 + .637638D+04, .488812D+04, .375022D+04, .287919D+04,
1134 + .221240D+04, .170130D+04, .130952D+04, .100878D+04,
1135 + .777932D+03, .600456D+03, .463995D+03, .358911D+03,
1136 + .277967D+03, .215534D+03, .167379D+03, .129681D+03,
1137 + .101002D+03, .787808D+02, .615623D+02, .481900D+02,
1138 + .378013D+02, .297341D+02, .234336D+02, .185149D+02,
1139 + .146727D+02, .116617D+02, .929964D+01, .743899D+01,
1140 + .597287D+01, .481062D+01, .388709D+01, .314969D+01,
1141 + .255901D+01, .208328D+01, .170023D+01, .138708D+01,
1142 + .113363D+01, .925006D+00, .754686D+00, .614711D+00 /
1143 DATA (UPDI(I),I=4057,4108) /
1144 + .499603D+00, .404859D+00, .326928D+00, .262879D+00,
1145 + .210356D+00, .167404D+00, .132420D+00, .104042D+00,
1146 + .811489D-01, .627903D-01, .481569D-01, .366336D-01,
1147 + .275345D-01, .204632D-01, .150231D-01, .108834D-01,
1148 + .777132D-02, .546171D-02, .377276D-02, .255682D-02,
1149 + .169693D-02, .109913D-02, .696755D-03, .427910D-03,
1150 + .254724D-03, .146354D-03, .808804D-04, .427737D-04,
1151 + .215789D-04, .103497D-04, .470181D-05, .203265D-05,
1152 + .844041D-06, .336211D-06, .128765D-06, .448955D-07,
1153 + .120139D-07, .809615D-09, .000000D+00, .244176D+06,
1154 + .187513D+06, .141942D+06, .107463D+06, .813840D+05,
1155 + .616438D+05, .467075D+05, .353976D+05, .268366D+05,
1156 + .203513D+05, .154400D+05, .117176D+05, .889704D+04 /
1157 DATA (UPDI(I),I=4109,4160) /
1158 + .675796D+04, .513614D+04, .390526D+04, .297135D+04,
1159 + .226195D+04, .172323D+04, .131364D+04, .100230D+04,
1160 + .765320D+03, .584964D+03, .447509D+03, .342749D+03,
1161 + .262805D+03, .201816D+03, .154593D+03, .119065D+03,
1162 + .918402D+02, .709795D+02, .549575D+02, .426478D+02,
1163 + .331936D+02, .258902D+02, .202495D+02, .158898D+02,
1164 + .125082D+02, .988227D+01, .783393D+01, .623539D+01,
1165 + .497976D+01, .399098D+01, .320832D+01, .258670D+01,
1166 + .209011D+01, .169350D+01, .137176D+01, .111341D+01,
1167 + .902341D+00, .731325D+00, .591811D+00, .477926D+00,
1168 + .384866D+00, .308871D+00, .246852D+00, .196350D+00,
1169 + .155338D+00, .122163D+00, .954348D-01, .740180D-01,
1170 + .569579D-01, .434465D-01, .328758D-01, .245816D-01 /
1171 DATA (UPDI(I),I=4161,4212) /
1172 + .181762D-01, .132792D-01, .957555D-02, .680818D-02,
1173 + .476648D-02, .328204D-02, .221924D-02, .147162D-02,
1174 + .954227D-03, .607389D-03, .376275D-03, .227567D-03,
1175 + .134289D-03, .775492D-04, .439698D-04, .247364D-04,
1176 + .139372D-04, .794774D-05, .459822D-05, .267007D-05,
1177 + .149842D-05, .773927D-06, .337298D-06, .998305D-07,
1178 + .762443D-08, .000000D+00, .250163D+06, .264281D+06,
1179 + .199109D+06, .150005D+06, .113025D+06, .851586D+05,
1180 + .641729D+05, .483587D+05, .364487D+05, .274731D+05,
1181 + .207127D+05, .156172D+05, .117788D+05, .888513D+04,
1182 + .670481D+04, .506062D+04, .382137D+04, .288646D+04,
1183 + .218151D+04, .164940D+04, .124796D+04, .944740D+03,
1184 + .715798D+03, .542723D+03, .411911D+03, .312930D+03 /
1185 DATA (UPDI(I),I=4213,4264) /
1186 + .238077D+03, .180633D+03, .137805D+03, .105284D+03,
1187 + .805954D+02, .618097D+02, .475112D+02, .366325D+02,
1188 + .283074D+02, .219376D+02, .170599D+02, .133111D+02,
1189 + .104262D+02, .819574D+01, .647014D+01, .512617D+01,
1190 + .407653D+01, .325240D+01, .260302D+01, .208823D+01,
1191 + .168020D+01, .135164D+01, .108977D+01, .877372D+00,
1192 + .706512D+00, .568115D+00, .455938D+00, .364913D+00,
1193 + .291093D+00, .231262D+00, .182870D+00, .143837D+00,
1194 + .112473D+00, .873704D-01, .673879D-01, .515735D-01,
1195 + .391273D-01, .294514D-01, .219065D-01, .161158D-01,
1196 + .117157D-01, .840826D-02, .595168D-02, .414987D-02,
1197 + .284738D-02, .192003D-02, .127117D-02, .824252D-03,
1198 + .525905D-03, .327733D-03, .200426D-03, .120478D-03 /
1199 DATA (UPDI(I),I=4265,4316) /
1200 + .715907D-04, .423002D-04, .251423D-04, .151261D-04,
1201 + .923522D-05, .567220D-05, .343497D-05, .197170D-05,
1202 + .102267D-05, .439927D-06, .126555D-06, .982640D-08,
1203 + .000000D+00, .485755D+06, .370139D+06, .277616D+06,
1204 + .208187D+06, .156115D+06, .117045D+06, .877509D+05,
1205 + .657778D+05, .493067D+05, .369552D+05, .276987D+05,
1206 + .207588D+05, .155589D+05, .116611D+05, .874098D+04,
1207 + .655223D+04, .491264D+04, .368369D+04, .276307D+04,
1208 + .207296D+04, .155593D+04, .116827D+04, .877727D+03,
1209 + .659786D+03, .496355D+03, .373697D+03, .281712D+03,
1210 + .211727D+03, .160004D+03, .121081D+03, .917959D+02,
1211 + .697200D+02, .530715D+02, .405251D+02, .310132D+02,
1212 + .238052D+02, .183371D+02, .141745D+02, .110007D+02 /
1213 DATA (UPDI(I),I=4317,4368) /
1214 + .856976D+01, .670594D+01, .526740D+01, .415363D+01,
1215 + .328677D+01, .260944D+01, .207698D+01, .165838D+01,
1216 + .132403D+01, .105967D+01, .846962D+00, .677180D+00,
1217 + .540732D+00, .430981D+00, .342609D+00, .271478D+00,
1218 + .214261D+00, .168326D+00, .131547D+00, .102210D+00,
1219 + .788990D-01, .604751D-01, .459978D-01, .346819D-01,
1220 + .259456D-01, .191795D-01, .140220D-01, .101295D-01,
1221 + .722331D-02, .507919D-02, .351717D-02, .239557D-02,
1222 + .160247D-02, .105142D-02, .674606D-03, .424982D-03,
1223 + .260584D-03, .155982D-03, .910869D-04, .520123D-04,
1224 + .291210D-04, .161266D-04, .890694D-05, .495121D-05,
1225 + .277711D-05, .155817D-05, .844000D-06, .421544D-06,
1226 + .177282D-06, .505260D-07, .389019D-08, .000000D+00 /
1227 DATA (UPDI(I),I=4369,4420) /
1228 + .658013D+06, .499680D+06, .373256D+06, .278742D+06,
1229 + .208123D+06, .155347D+06, .115935D+06, .864958D+05,
1230 + .645221D+05, .481174D+05, .358788D+05, .267465D+05,
1231 + .199367D+05, .148577D+05, .110721D+05, .824971D+04,
1232 + .614697D+04, .457980D+04, .341259D+04, .254289D+04,
1233 + .189533D+04, .141289D+04, .105367D+04, .786045D+03,
1234 + .586743D+03, .438229D+03, .327671D+03, .244197D+03,
1235 + .182980D+03, .137280D+03, .103170D+03, .776702D+02,
1236 + .585984D+02, .443484D+02, .336364D+02, .255893D+02,
1237 + .195370D+02, .149699D+02, .115173D+02, .889570D+01,
1238 + .690255D+01, .537716D+01, .420583D+01, .330167D+01,
1239 + .260084D+01, .205430D+01, .162799D+01, .129014D+01,
1240 + .102507D+01, .813441D+00, .645800D+00, .512102D+00 /
1241 DATA (UPDI(I),I=4421,4472) /
1242 + .405368D+00, .320074D+00, .251929D+00, .197521D+00,
1243 + .154160D+00, .119699D+00, .924088D-01, .708819D-01,
1244 + .539893D-01, .408102D-01, .305804D-01, .227378D-01,
1245 + .167060D-01, .121403D-01, .871831D-02, .618104D-02,
1246 + .432188D-02, .297669D-02, .201728D-02, .134338D-02,
1247 + .878175D-03, .562064D-03, .353844D-03, .217418D-03,
1248 + .130941D-03, .773983D-04, .451075D-04, .260628D-04,
1249 + .150792D-04, .879989D-05, .519270D-05, .307861D-05,
1250 + .179847D-05, .995730D-06, .497335D-06, .204212D-06,
1251 + .554802D-07, .438146D-08, .000000D+00, .868058D+06,
1252 + .657041D+06, .488912D+06, .363669D+06, .270433D+06,
1253 + .201016D+06, .149375D+06, .110955D+06, .823938D+05,
1254 + .611599D+05, .453864D+05, .336679D+05, .249692D+05 /
1255 DATA (UPDI(I),I=4473,4524) /
1256 + .185114D+05, .137210D+05, .101672D+05, .753277D+04,
1257 + .557957D+04, .413260D+04, .306040D+04, .226655D+04,
1258 + .167857D+04, .124340D+04, .921181D+03, .682744D+03,
1259 + .506219D+03, .375692D+03, .277825D+03, .206560D+03,
1260 + .153747D+03, .114616D+03, .855846D+02, .640367D+02,
1261 + .480629D+02, .361490D+02, .272710D+02, .206470D+02,
1262 + .156890D+02, .119710D+02, .917068D+01, .705855D+01,
1263 + .545499D+01, .423325D+01, .329759D+01, .257790D+01,
1264 + .202095D+01, .158980D+01, .125071D+01, .986659D+00,
1265 + .777420D+00, .612906D+00, .482681D+00, .379485D+00,
1266 + .297627D+00, .232705D+00, .181249D+00, .140539D+00,
1267 + .108419D+00, .831648D-01, .633869D-01, .479770D-01,
1268 + .360399D-01, .268382D-01, .198330D-01, .144826D-01 /
1269 DATA (UPDI(I),I=4525,4576) /
1270 + .104610D-01, .746762D-02, .526352D-02, .365956D-02,
1271 + .250697D-02, .169046D-02, .112077D-02, .730049D-03,
1272 + .466208D-03, .293390D-03, .180721D-03, .109550D-03,
1273 + .655470D-04, .389462D-04, .231352D-04, .138638D-04,
1274 + .841551D-05, .515443D-05, .314800D-05, .187152D-05,
1275 + .104212D-05, .517025D-06, .208258D-06, .549409D-07,
1276 + .440712D-08, .000000D+00, .112232D+07, .846807D+06,
1277 + .627748D+06, .465146D+06, .344533D+06, .255065D+06,
1278 + .188758D+06, .139616D+06, .103229D+06, .762855D+05,
1279 + .563534D+05, .416084D+05, .307103D+05, .226558D+05,
1280 + .167083D+05, .123165D+05, .907662D+04, .668634D+04,
1281 + .492451D+04, .362580D+04, .266935D+04, .196483D+04,
1282 + .144632D+04, .106463D+04, .783853D+03, .577241D+03 /
1283 DATA (UPDI(I),I=4577,4628) /
1284 + .425429D+03, .312341D+03, .230538D+03, .170325D+03,
1285 + .126018D+03, .933797D+02, .693269D+02, .516272D+02,
1286 + .385229D+02, .288316D+02, .216549D+02, .163245D+02,
1287 + .123575D+02, .939256D+01, .717313D+01, .550094D+01,
1288 + .423643D+01, .327531D+01, .254150D+01, .197783D+01,
1289 + .154468D+01, .120652D+01, .945105D+00, .739480D+00,
1290 + .578980D+00, .452862D+00, .353643D+00, .275512D+00,
1291 + .213990D+00, .165582D+00, .127557D+00, .977711D-01,
1292 + .745178D-01, .564365D-01, .424478D-01, .316877D-01,
1293 + .234506D-01, .172230D-01, .124997D-01, .897403D-02,
1294 + .636802D-02, .446239D-02, .308514D-02, .210221D-02,
1295 + .141059D-02, .931230D-03, .604571D-03, .385336D-03,
1296 + .242508D-03, .149821D-03, .914428D-04, .553731D-04 /
1297 DATA (UPDI(I),I=4629,4680) /
1298 + .334931D-04, .203722D-04, .125445D-04, .782422D-05,
1299 + .489926D-05, .303462D-05, .181167D-05, .100414D-05,
1300 + .491356D-06, .193330D-06, .495004D-07, .402799D-08,
1301 + .000000D+00, .142763D+07, .107380D+07, .793060D+06,
1302 + .585413D+06, .431939D+06, .318511D+06, .234760D+06,
1303 + .172927D+06, .127319D+06, .936834D+05, .689006D+05,
1304 + .506433D+05, .372063D+05, .273183D+05, .200492D+05,
1305 + .147059D+05, .107823D+05, .790141D+04, .578826D+04,
1306 + .423835D+04, .310272D+04, .227061D+04, .166150D+04,
1307 + .121557D+04, .889398D+03, .650762D+03, .476467D+03,
1308 + .347432D+03, .254680D+03, .186847D+03, .137256D+03,
1309 + .100970D+03, .744100D+02, .550010D+02, .407315D+02,
1310 + .302539D+02, .225505D+02, .168704D+02, .126737D+02 /
1311 DATA (UPDI(I),I=4681,4732) /
1312 + .956012D+01, .724624D+01, .551559D+01, .421632D+01,
1313 + .323592D+01, .249275D+01, .192598D+01, .149355D+01,
1314 + .115837D+01, .901100D+00, .700188D+00, .544485D+00,
1315 + .423013D+00, .328128D+00, .253942D+00, .195941D+00,
1316 + .150629D+00, .115288D+00, .878001D-01, .664917D-01,
1317 + .500396D-01, .374002D-01, .277458D-01, .204058D-01,
1318 + .148948D-01, .107438D-01, .766684D-02, .540820D-02,
1319 + .376794D-02, .259058D-02, .175602D-02, .117270D-02,
1320 + .771063D-03, .499092D-03, .317632D-03, .200016D-03,
1321 + .124005D-03, .762394D-04, .467173D-04, .287267D-04,
1322 + .178295D-04, .112129D-04, .712598D-05, .451934D-05,
1323 + .281436D-05, .167556D-05, .919628D-06, .442272D-06,
1324 + .169622D-06, .421341D-07, .347693D-08, .000000D+00 /
1325 DATA (UPDI(I),I=4733,4784) /
1326 + .179106D+07, .134298D+07, .988203D+06, .726725D+06,
1327 + .534153D+06, .392349D+06, .288034D+06, .211310D+06,
1328 + .154936D+06, .113523D+06, .831325D+05, .608353D+05,
1329 + .444931D+05, .325185D+05, .237535D+05, .173393D+05,
1330 + .126506D+05, .922381D+04, .672215D+04, .489618D+04,
1331 + .356490D+04, .259437D+04, .188761D+04, .137295D+04,
1332 + .998557D+03, .726154D+03, .528336D+03, .382754D+03,
1333 + .278737D+03, .203133D+03, .148204D+03, .108270D+03,
1334 + .792287D+02, .581471D+02, .427511D+02, .315236D+02,
1335 + .233252D+02, .173224D+02, .129180D+02, .967318D+01,
1336 + .727856D+01, .550009D+01, .417420D+01, .318074D+01,
1337 + .243288D+01, .186651D+01, .143738D+01, .110708D+01,
1338 + .855317D+00, .660089D+00, .509848D+00, .393461D+00 /
1339 DATA (UPDI(I),I=4785,4836) /
1340 + .303184D+00, .233097D+00, .178684D+00, .136472D+00,
1341 + .103781D+00, .785324D-01, .590957D-01, .441934D-01,
1342 + .328240D-01, .241996D-01, .176875D-01, .128316D-01,
1343 + .919918D-02, .652523D-02, .457589D-02, .316992D-02,
1344 + .216757D-02, .146184D-02, .971832D-03, .636601D-03,
1345 + .410994D-03, .261308D-03, .164743D-03, .102559D-03,
1346 + .635409D-04, .393918D-04, .245903D-04, .155252D-04,
1347 + .992298D-05, .638619D-05, .407668D-05, .253853D-05,
1348 + .150101D-05, .813354D-06, .383692D-06, .143301D-06,
1349 + .345454D-07, .289034D-08, .000000D+00, .221982D+07,
1350 + .165936D+07, .121651D+07, .891291D+06, .652624D+06,
1351 + .477521D+06, .349182D+06, .255146D+06, .186315D+06,
1352 + .135949D+06, .991330D+05, .722314D+05, .525953D+05 /
1353 DATA (UPDI(I),I=4837,4888) /
1354 + .382675D+05, .278247D+05, .202160D+05, .146788D+05,
1355 + .106503D+05, .772289D+04, .559632D+04, .405333D+04,
1356 + .293403D+04, .212304D+04, .153552D+04, .111038D+04,
1357 + .802713D+03, .580525D+03, .417941D+03, .302452D+03,
1358 + .219006D+03, .158742D+03, .115199D+03, .837302D+02,
1359 + .610318D+02, .445612D+02, .326290D+02, .239733D+02,
1360 + .176780D+02, .130898D+02, .973250D+01, .727145D+01,
1361 + .545602D+01, .411171D+01, .311127D+01, .236324D+01,
1362 + .180057D+01, .137714D+01, .105345D+01, .808400D+00,
1363 + .619686D+00, .475455D+00, .364497D+00, .279023D+00,
1364 + .213123D+00, .162314D+00, .123172D+00, .930682D-01,
1365 + .699783D-01, .523261D-01, .388854D-01, .287016D-01,
1366 + .210295D-01, .152757D-01, .110144D-01, .784867D-02 /
1367 DATA (UPDI(I),I=4889,4940) /
1368 + .553420D-02, .385844D-02, .265798D-02, .180789D-02,
1369 + .121333D-02, .803186D-03, .524349D-03, .337804D-03,
1370 + .214684D-03, .135594D-03, .848122D-04, .529672D-04,
1371 + .332088D-04, .210146D-04, .134574D-04, .870596D-05,
1372 + .564751D-05, .361274D-05, .224128D-05, .131270D-05,
1373 + .700943D-06, .323962D-06, .117778D-06, .275742D-07,
1374 + .233874D-08, .000000D+00, .272109D+07, .202785D+07,
1375 + .148122D+07, .108121D+07, .788705D+06, .574883D+06,
1376 + .418741D+06, .304762D+06, .221650D+06, .161070D+06,
1377 + .116962D+06, .848601D+05, .615236D+05, .445664D+05,
1378 + .322590D+05, .233305D+05, .168609D+05, .121751D+05,
1379 + .878560D+04, .633472D+04, .456480D+04, .328709D+04,
1380 + .236587D+04, .170186D+04, .122383D+04, .879683D+03 /
1381 DATA (UPDI(I),I=4941,4992) /
1382 + .632494D+03, .452619D+03, .325566D+03, .234290D+03,
1383 + .168753D+03, .121682D+03, .878672D+02, .636266D+02,
1384 + .461457D+02, .335616D+02, .244909D+02, .179364D+02,
1385 + .131901D+02, .973973D+01, .722688D+01, .538539D+01,
1386 + .403070D+01, .302918D+01, .228526D+01, .172937D+01,
1387 + .131380D+01, .998251D+00, .760949D+00, .579439D+00,
1388 + .441649D+00, .336367D+00, .255815D+00, .194134D+00,
1389 + .146901D+00, .110764D+00, .831604D-01, .621337D-01,
1390 + .461684D-01, .340954D-01, .250100D-01, .182120D-01,
1391 + .131481D-01, .942300D-02, .667445D-02, .467863D-02,
1392 + .324336D-02, .222207D-02, .150366D-02, .100447D-02,
1393 + .662297D-03, .431080D-03, .277266D-03, .176240D-03,
1394 + .111584D-03, .701599D-04, .441750D-04, .279949D-04 /
1395 DATA (UPDI(I),I=4993,5044) /
1396 + .179298D-04, .116148D-04, .757903D-05, .493742D-05,
1397 + .315483D-05, .194488D-05, .112624D-05, .591858D-06,
1398 + .267800D-06, .947646D-07, .215659D-07, .185393D-08,
1399 + .000000D+00, .330178D+07, .245314D+07, .178535D+07,
1400 + .129841D+07, .943603D+06, .685178D+06, .497155D+06,
1401 + .360417D+06, .261084D+06, .188959D+06, .136649D+06,
1402 + .987299D+05, .712744D+05, .514062D+05, .370457D+05,
1403 + .266719D+05, .191875D+05, .137905D+05, .990385D+04,
1404 + .710634D+04, .509544D+04, .365063D+04, .261395D+04,
1405 + .187039D+04, .133777D+04, .956274D+03, .683696D+03,
1406 + .486413D+03, .347829D+03, .248821D+03, .178131D+03,
1407 + .127652D+03, .915996D+02, .659085D+02, .474924D+02,
1408 + .343162D+02, .248768D+02, .180985D+02, .132208D+02 /
1409 DATA (UPDI(I),I=5045,5096) /
1410 + .969732D+01, .714732D+01, .529050D+01, .393321D+01,
1411 + .293620D+01, .220035D+01, .165404D+01, .124829D+01,
1412 + .942192D+00, .713507D+00, .539749D+00, .408721D+00,
1413 + .309274D+00, .233694D+00, .176210D+00, .132487D+00,
1414 + .992614D-01, .740543D-01, .549827D-01, .405998D-01,
1415 + .297970D-01, .217224D-01, .157213D-01, .112810D-01,
1416 + .803650D-02, .565868D-02, .394370D-02, .271863D-02,
1417 + .185269D-02, .124753D-02, .829726D-03, .545098D-03,
1418 + .353891D-03, .227368D-03, .144632D-03, .918476D-04,
1419 + .580763D-04, .368653D-04, .235967D-04, .152709D-04,
1420 + .998190D-05, .655052D-05, .427301D-05, .272036D-05,
1421 + .166330D-05, .951057D-06, .491442D-06, .217590D-06,
1422 + .749524D-07, .165963D-07, .144580D-08, .000000D+00 /
1423 DATA (UPDI(I),I=5097,5148) /
1424 + .158812D+05, .255495D+05, .204854D+05, .164249D+05,
1425 + .131693D+05, .105589D+05, .846589D+04, .678774D+04,
1426 + .544222D+04, .436341D+04, .349844D+04, .280492D+04,
1427 + .224889D+04, .180308D+04, .144564D+04, .115907D+04,
1428 + .929313D+03, .745106D+03, .597422D+03, .479020D+03,
1429 + .384095D+03, .307992D+03, .246980D+03, .198066D+03,
1430 + .158851D+03, .127413D+03, .102207D+03, .817435D+02,
1431 + .655981D+02, .526511D+02, .422679D+02, .339400D+02,
1432 + .272595D+02, .219140D+02, .176125D+02, .141609D+02,
1433 + .113898D+02, .916391D+01, .737463D+01, .593454D+01,
1434 + .477611D+01, .384182D+01, .308793D+01, .247909D+01,
1435 + .198710D+01, .158946D+01, .126922D+01, .100896D+01,
1436 + .800277D+00, .631210D+00, .495948D+00, .387625D+00 /
1437 DATA (UPDI(I),I=5149,5200) /
1438 + .301203D+00, .232551D+00, .178285D+00, .135634D+00,
1439 + .102323D+00, .764916D-01, .566156D-01, .414531D-01,
1440 + .299945D-01, .214236D-01, .150845D-01, .104718D-01,
1441 + .712630D-02, .475365D-02, .309944D-02, .196816D-02,
1442 + .121137D-02, .717856D-03, .405555D-03, .214973D-03,
1443 + .103772D-03, .426136D-04, .119447D-04, .000000D+00,
1444 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1445 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1446 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1447 + .000000D+00, .000000D+00, .000000D+00, .898487D+05,
1448 + .700663D+05, .539990D+05, .416470D+05, .321462D+05,
1449 + .248312D+05, .191965D+05, .148517D+05, .115001D+05,
1450 + .891169D+04, .691186D+04, .536503D+04, .416804D+04 /
1451 DATA (UPDI(I),I=5201,5252) /
1452 + .324068D+04, .252190D+04, .196411D+04, .153107D+04,
1453 + .119446D+04, .932696D+03, .728878D+03, .570128D+03,
1454 + .446311D+03, .349707D+03, .274234D+03, .215248D+03,
1455 + .169093D+03, .132973D+03, .104298D+03, .821735D+02,
1456 + .647965D+02, .511474D+02, .404085D+02, .319571D+02,
1457 + .253132D+02, .200609D+02, .159138D+02, .126383D+02,
1458 + .100455D+02, .799218D+01, .636162D+01, .506771D+01,
1459 + .403687D+01, .321521D+01, .255902D+01, .203473D+01,
1460 + .161519D+01, .128077D+01, .101137D+01, .797398D+00,
1461 + .625424D+00, .488950D+00, .380432D+00, .294469D+00,
1462 + .226604D+00, .173284D+00, .131585D+00, .991719D-01,
1463 + .741297D-01, .549300D-01, .403136D-01, .292871D-01,
1464 + .210411D-01, .149362D-01, .104833D-01, .723894D-02 /
1465 DATA (UPDI(I),I=5253,5304) /
1466 + .492031D-02, .328774D-02, .215497D-02, .138300D-02,
1467 + .865794D-03, .526987D-03, .309459D-03, .173853D-03,
1468 + .910805D-04, .431990D-04, .159574D-04, .154985D-05,
1469 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1470 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1471 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1472 + .000000D+00, .000000D+00, .159866D+06, .123439D+06,
1473 + .940417D+05, .716747D+05, .546558D+05, .416954D+05,
1474 + .318261D+05, .243041D+05, .185711D+05, .141976D+05,
1475 + .108612D+05, .831343D+04, .636780D+04, .488042D+04,
1476 + .374333D+04, .287301D+04, .220685D+04, .169632D+04,
1477 + .130505D+04, .100477D+04, .774326D+03, .597215D+03,
1478 + .461078D+03, .356284D+03, .275599D+03, .213396D+03 /
1479 DATA (UPDI(I),I=5305,5356) /
1480 + .165444D+03, .127931D+03, .994130D+02, .773337D+02,
1481 + .602408D+02, .469796D+02, .366885D+02, .287072D+02,
1482 + .224825D+02, .176309D+02, .138480D+02, .108902D+02,
1483 + .857613D+01, .675966D+01, .533471D+01, .421169D+01,
1484 + .332604D+01, .262584D+01, .207195D+01, .163279D+01,
1485 + .128595D+01, .100887D+01, .790682D+00, .616659D+00,
1486 + .479601D+00, .371376D+00, .286226D+00, .219418D+00,
1487 + .167241D+00, .126648D+00, .952505D-01, .710976D-01,
1488 + .526542D-01, .386568D-01, .281266D-01, .202652D-01,
1489 + .144503D-01, .102083D-01, .711337D-02, .489407D-02,
1490 + .332420D-02, .222682D-02, .147166D-02, .958369D-03,
1491 + .615871D-03, .390190D-03, .244424D-03, .151028D-03,
1492 + .932775D-04, .570445D-04, .349850D-04, .214321D-04 /
1493 DATA (UPDI(I),I=5357,5408) /
1494 + .132160D-04, .811407D-05, .498428D-05, .300309D-05,
1495 + .177250D-05, .997783D-06, .534136D-06, .261808D-06,
1496 + .115832D-06, .435319D-07, .119557D-07, .809320D-09,
1497 + .000000D+00, .244141D+06, .187481D+06, .141914D+06,
1498 + .107438D+06, .813614D+05, .616235D+05, .466893D+05,
1499 + .353813D+05, .268220D+05, .203382D+05, .154283D+05,
1500 + .117071D+05, .888765D+04, .674954D+04, .512859D+04,
1501 + .389850D+04, .296528D+04, .225651D+04, .171835D+04,
1502 + .130926D+04, .998363D+03, .761783D+03, .581783D+03,
1503 + .444646D+03, .340169D+03, .260477D+03, .199713D+03,
1504 + .152693D+03, .117342D+03, .902738D+02, .695519D+02,
1505 + .536531D+02, .414520D+02, .320937D+02, .248754D+02,
1506 + .193103D+02, .150180D+02, .116970D+02, .912613D+01 /
1507 DATA (UPDI(I),I=5409,5460) /
1508 + .712854D+01, .557725D+01, .436652D+01, .342078D+01,
1509 + .267996D+01, .209923D+01, .164274D+01, .128525D+01,
1510 + .100193D+01, .780609D+00, .605377D+00, .468358D+00,
1511 + .360892D+00, .276890D+00, .211385D+00, .160522D+00,
1512 + .121162D+00, .908699D-01, .676739D-01, .500361D-01,
1513 + .366984D-01, .266972D-01, .192495D-01, .137509D-01,
1514 + .974397D-02, .682127D-02, .472334D-02, .323641D-02,
1515 + .219321D-02, .147159D-02, .977257D-03, .644033D-03,
1516 + .421397D-03, .274915D-03, .178853D-03, .117577D-03,
1517 + .776192D-04, .520628D-04, .353617D-04, .244472D-04,
1518 + .170239D-04, .119664D-04, .834338D-05, .574353D-05,
1519 + .382903D-05, .244288D-05, .144464D-05, .764723D-06,
1520 + .336340D-06, .997899D-07, .762422D-08, .000000D+00 /
1521 DATA (UPDI(I),I=5461,5512) /
1522 + .250099D+06, .264247D+06, .199078D+06, .149977D+06,
1523 + .113000D+06, .851366D+05, .641531D+05, .483410D+05,
1524 + .364328D+05, .274589D+05, .206999D+05, .156058D+05,
1525 + .117686D+05, .887598D+04, .669661D+04, .505327D+04,
1526 + .381478D+04, .288056D+04, .217621D+04, .164464D+04,
1527 + .124369D+04, .940907D+03, .712352D+03, .539624D+03,
1528 + .409121D+03, .310414D+03, .235807D+03, .178584D+03,
1529 + .135950D+03, .103601D+03, .790644D+02, .604141D+02,
1530 + .462353D+02, .354628D+02, .272321D+02, .209466D+02,
1531 + .161442D+02, .124635D+02, .964054D+01, .746726D+01,
1532 + .579485D+01, .450117D+01, .349947D+01, .272153D+01,
1533 + .211680D+01, .164528D+01, .127896D+01, .990834D+00,
1534 + .767441D+00, .591826D+00, .455451D+00, .349195D+00 /
1535 DATA (UPDI(I),I=5513,5564) /
1536 + .266664D+00, .202693D+00, .153304D+00, .115291D+00,
1537 + .861827D-01, .639995D-01, .472060D-01, .345572D-01,
1538 + .251069D-01, .180914D-01, .129249D-01, .916746D-02,
1539 + .643039D-02, .446677D-02, .307473D-02, .209682D-02,
1540 + .141869D-02, .952308D-03, .636144D-03, .423272D-03,
1541 + .281755D-03, .187775D-03, .126777D-03, .862226D-04,
1542 + .596301D-04, .417691D-04, .297091D-04, .212410D-04,
1543 + .152602D-04, .108415D-04, .756595D-05, .509657D-05,
1544 + .326718D-05, .193251D-05, .101606D-05, .439249D-06,
1545 + .126527D-06, .982624D-08, .000000D+00, .485713D+06,
1546 + .370101D+06, .277582D+06, .208157D+06, .156088D+06,
1547 + .117021D+06, .877292D+05, .657584D+05, .492893D+05,
1548 + .369396D+05, .276847D+05, .207463D+05, .155478D+05 /
1549 DATA (UPDI(I),I=5565,5616) /
1550 + .116511D+05, .873201D+04, .654420D+04, .490544D+04,
1551 + .367724D+04, .275729D+04, .206777D+04, .155128D+04,
1552 + .116409D+04, .873976D+03, .656416D+03, .493324D+03,
1553 + .370968D+03, .279252D+03, .209511D+03, .158000D+03,
1554 + .119267D+03, .901498D+02, .682236D+02, .517078D+02,
1555 + .392793D+02, .298726D+02, .227587D+02, .173752D+02,
1556 + .132891D+02, .101851D+02, .781843D+01, .601433D+01,
1557 + .463197D+01, .357139D+01, .275529D+01, .212651D+01,
1558 + .164054D+01, .126617D+01, .974169D+00, .749587D+00,
1559 + .574419D+00, .439406D+00, .334981D+00, .254431D+00,
1560 + .192416D+00, .144838D+00, .108442D+00, .807299D-01,
1561 + .597260D-01, .439044D-01, .320442D-01, .232202D-01,
1562 + .166955D-01, .119058D-01, .843240D-02, .590774D-02 /
1563 DATA (UPDI(I),I=5617,5668) /
1564 + .409981D-02, .281943D-02, .192048D-02, .129687D-02,
1565 + .867719D-03, .576348D-03, .379902D-03, .249129D-03,
1566 + .162386D-03, .106229D-03, .692338D-04, .453425D-04,
1567 + .297602D-04, .196686D-04, .130075D-04, .863933D-05,
1568 + .569371D-05, .371304D-05, .235502D-05, .143664D-05,
1569 + .815972D-06, .416879D-06, .176808D-06, .505061D-07,
1570 + .389007D-08, .000000D+00, .657967D+06, .499639D+06,
1571 + .373220D+06, .278709D+06, .208094D+06, .155321D+06,
1572 + .115911D+06, .864746D+05, .645032D+05, .481004D+05,
1573 + .358636D+05, .267329D+05, .199246D+05, .148468D+05,
1574 + .110623D+05, .824097D+04, .613914D+04, .457278D+04,
1575 + .340630D+04, .253726D+04, .189028D+04, .140836D+04,
1576 + .104961D+04, .782397D+03, .583466D+03, .435282D+03 /
1577 DATA (UPDI(I),I=5669,5720) /
1578 + .325019D+03, .241811D+03, .180826D+03, .135334D+03,
1579 + .101409D+03, .760740D+02, .571483D+02, .430285D+02,
1580 + .324328D+02, .244901D+02, .185317D+02, .140496D+02,
1581 + .106746D+02, .812439D+01, .619735D+01, .473385D+01,
1582 + .362071D+01, .277160D+01, .212290D+01, .162573D+01,
1583 + .124585D+01, .951932D+00, .727638D+00, .554035D+00,
1584 + .421214D+00, .319226D+00, .241100D+00, .181357D+00,
1585 + .135815D+00, .101194D+00, .749900D-01, .552430D-01,
1586 + .404476D-01, .294144D-01, .212448D-01, .152316D-01,
1587 + .108349D-01, .765864D-02, .535749D-02, .371464D-02,
1588 + .255398D-02, .174075D-02, .117729D-02, .789859D-03,
1589 + .526747D-03, .349207D-03, .230734D-03, .151971D-03,
1590 + .100704D-03, .667344D-04, .445766D-04, .299632D-04 /
1591 DATA (UPDI(I),I=5721,5772) /
1592 + .203296D-04, .138426D-04, .946194D-05, .641642D-05,
1593 + .428553D-05, .277337D-05, .171182D-05, .976038D-06,
1594 + .494108D-06, .203889D-06, .554667D-07, .438137D-08,
1595 + .000000D+00, .868008D+06, .656996D+06, .488871D+06,
1596 + .363633D+06, .270401D+06, .200987D+06, .149349D+06,
1597 + .110932D+06, .823732D+05, .611414D+05, .453698D+05,
1598 + .336531D+05, .249560D+05, .184995D+05, .137104D+05,
1599 + .101577D+05, .752428D+04, .557196D+04, .412579D+04,
1600 + .305430D+04, .226108D+04, .167368D+04, .123901D+04,
1601 + .917247D+03, .679214D+03, .503049D+03, .372844D+03,
1602 + .275267D+03, .204257D+03, .151670D+03, .112741D+03,
1603 + .838897D+02, .625019D+02, .466709D+02, .348848D+02,
1604 + .261217D+02, .196010D+02, .147367D+02, .111041D+02 /
1605 DATA (UPDI(I),I=5773,5824) /
1606 + .838220D+01, .634245D+01, .480629D+01, .364748D+01,
1607 + .277086D+01, .210656D+01, .160153D+01, .121869D+01,
1608 + .924791D+00, .702217D+00, .531239D+00, .401376D+00,
1609 + .302372D+00, .227052D+00, .169843D+00, .126514D+00,
1610 + .937833D-01, .691591D-01, .507122D-01, .369676D-01,
1611 + .267737D-01, .192639D-01, .137634D-01, .975948D-02,
1612 + .687920D-02, .480067D-02, .332229D-02, .228120D-02,
1613 + .155389D-02, .105110D-02, .706077D-03, .472014D-03,
1614 + .314172D-03, .208773D-03, .138643D-03, .928298D-04,
1615 + .623436D-04, .422966D-04, .289468D-04, .200114D-04,
1616 + .138911D-04, .966042D-05, .665224D-05, .449158D-05,
1617 + .292788D-05, .180991D-05, .102833D-05, .514799D-06,
1618 + .208038D-06, .549318D-07, .440706D-08, .000000D+00 /
1619 DATA (UPDI(I),I=5825,5876) /
1620 + .112227D+07, .846758D+06, .627704D+06, .465107D+06,
1621 + .344498D+06, .255033D+06, .188730D+06, .139591D+06,
1622 + .103206D+06, .762654D+05, .563355D+05, .415923D+05,
1623 + .306960D+05, .226430D+05, .166968D+05, .123063D+05,
1624 + .906744D+04, .667812D+04, .491716D+04, .361922D+04,
1625 + .266346D+04, .195956D+04, .144160D+04, .106040D+04,
1626 + .780065D+03, .573845D+03, .422381D+03, .309609D+03,
1627 + .228083D+03, .168117D+03, .124030D+03, .915874D+02,
1628 + .677093D+02, .501652D+02, .372006D+02, .276348D+02,
1629 + .205711D+02, .153431D+02, .114693D+02, .858971D+01,
1630 + .644876D+01, .484923D+01, .365214D+01, .275375D+01,
1631 + .207826D+01, .156872D+01, .118542D+01, .893408D+00,
1632 + .673903D+00, .506528D+00, .380311D+00, .284768D+00 /
1633 DATA (UPDI(I),I=5877,5928) /
1634 + .212577D+00, .158112D+00, .117128D+00, .863652D-01,
1635 + .633637D-01, .462358D-01, .335467D-01, .241885D-01,
1636 + .173308D-01, .123339D-01, .871396D-02, .612182D-02,
1637 + .425938D-02, .294027D-02, .201486D-02, .137065D-02,
1638 + .926623D-03, .622745D-03, .416979D-03, .278409D-03,
1639 + .185907D-03, .124340D-03, .840024D-04, .570567D-04,
1640 + .392048D-04, .272052D-04, .190608D-04, .133976D-04,
1641 + .940740D-05, .652321D-05, .441620D-05, .287630D-05,
1642 + .176799D-05, .994508D-06, .489825D-06, .193181D-06,
1643 + .494943D-07, .402794D-08, .000000D+00, .142757D+07,
1644 + .107375D+07, .793012D+06, .585371D+06, .431901D+06,
1645 + .318477D+06, .234730D+06, .172900D+06, .127295D+06,
1646 + .936616D+05, .688812D+05, .506259D+05, .371907D+05 /
1647 DATA (UPDI(I),I=5929,5980) /
1648 + .273044D+05, .200368D+05, .146949D+05, .107724D+05,
1649 + .789255D+04, .578034D+04, .423127D+04, .309640D+04,
1650 + .226496D+04, .165643D+04, .121104D+04, .885346D+03,
1651 + .647135D+03, .473218D+03, .344525D+03, .252073D+03,
1652 + .184507D+03, .135155D+03, .990816D+02, .727114D+02,
1653 + .534716D+02, .393538D+02, .290126D+02, .214319D+02,
1654 + .158629D+02, .117671D+02, .874570D+01, .651618D+01,
1655 + .486321D+01, .363553D+01, .272122D+01, .203896D+01,
1656 + .152820D+01, .114684D+01, .858477D+00, .643287D+00,
1657 + .480392D+00, .358421D+00, .266738D+00, .197933D+00,
1658 + .146369D+00, .107820D+00, .790694D-01, .577054D-01,
1659 + .418934D-01, .302473D-01, .217076D-01, .154839D-01,
1660 + .109732D-01, .772174D-02, .540480D-02, .374788D-02 /
1661 DATA (UPDI(I),I=5981,6032) /
1662 + .257968D-02, .176354D-02, .119762D-02, .808883D-03,
1663 + .543671D-03, .364500D-03, .244053D-03, .163706D-03,
1664 + .110216D-03, .750744D-04, .515050D-04, .357724D-04,
1665 + .250973D-04, .177561D-04, .125818D-04, .887799D-05,
1666 + .616872D-05, .416827D-05, .270080D-05, .164466D-05,
1667 + .912913D-06, .441221D-06, .169521D-06, .421300D-07,
1668 + .347690D-08, .000000D+00, .179099D+07, .134292D+07,
1669 + .988151D+06, .726679D+06, .534112D+06, .392313D+06,
1670 + .288001D+06, .211280D+06, .154910D+06, .113500D+06,
1671 + .831115D+05, .608165D+05, .444764D+05, .325036D+05,
1672 + .237401D+05, .173274D+05, .126399D+05, .921429D+04,
1673 + .671364D+04, .488858D+04, .355811D+04, .258831D+04,
1674 + .188220D+04, .136812D+04, .994236D+03, .722291D+03 /
1675 DATA (UPDI(I),I=6033,6084) /
1676 + .524883D+03, .379670D+03, .275978D+03, .200663D+03,
1677 + .145992D+03, .106288D+03, .774514D+02, .565528D+02,
1678 + .413209D+02, .302408D+02, .221749D+02, .162918D+02,
1679 + .119960D+02, .884995D+01, .654534D+01, .484927D+01,
1680 + .359884D+01, .267448D+01, .198978D+01, .148095D+01,
1681 + .110381D+01, .820705D+00, .610947D+00, .453298D+00,
1682 + .336079D+00, .248576D+00, .183350D+00, .134793D+00,
1683 + .987264D-01, .719996D-01, .522631D-01, .377448D-01,
1684 + .271145D-01, .193650D-01, .137488D-01, .970060D-02,
1685 + .679766D-02, .473946D-02, .327477D-02, .224702D-02,
1686 + .153217D-02, .103853D-02, .700683D-03, .470957D-03,
1687 + .316144D-03, .212268D-03, .143029D-03, .969108D-04,
1688 + .665227D-04, .460502D-04, .322782D-04, .228436D-04 /
1689 DATA (UPDI(I),I=6085,6136) /
1690 + .162743D-04, .115878D-04, .819007D-05, .568387D-05,
1691 + .382227D-05, .245732D-05, .147922D-05, .808688D-06,
1692 + .382972D-06, .143233D-06, .345426D-07, .289032D-08,
1693 + .000000D+00, .221975D+07, .165930D+07, .121646D+07,
1694 + .891241D+06, .652580D+06, .477481D+06, .349147D+06,
1695 + .255114D+06, .186286D+06, .135923D+06, .991104D+05,
1696 + .722112D+05, .525772D+05, .382514D+05, .278103D+05,
1697 + .202032D+05, .146673D+05, .106401D+05, .771378D+04,
1698 + .558819D+04, .404608D+04, .292756D+04, .211726D+04,
1699 + .153037D+04, .110579D+04, .798612D+03, .576865D+03,
1700 + .414680D+03, .299540D+03, .216406D+03, .156420D+03,
1701 + .113125D+03, .818769D+02, .593755D+02, .430816D+02,
1702 + .313079D+02, .227945D+02, .166275D+02, .121553D+02 /
1703 DATA (UPDI(I),I=6137,6188) /
1704 + .890320D+01, .653753D+01, .480892D+01, .354357D+01,
1705 + .261490D+01, .193193D+01, .142801D+01, .105718D+01,
1706 + .780787D+00, .577439D+00, .425681D+00, .313620D+00,
1707 + .230539D+00, .169022D+00, .123529D+00, .899558D-01,
1708 + .652356D-01, .470949D-01, .338321D-01, .241788D-01,
1709 + .171829D-01, .121414D-01, .852769D-02, .594998D-02,
1710 + .413179D-02, .284442D-02, .194550D-02, .132308D-02,
1711 + .895106D-03, .603305D-03, .405555D-03, .272623D-03,
1712 + .183588D-03, .124276D-03, .847331D-04, .585898D-04,
1713 + .408874D-04, .288820D-04, .205780D-04, .147288D-04,
1714 + .105117D-04, .742355D-05, .513373D-05, .342892D-05,
1715 + .218337D-05, .129737D-05, .697709D-06, .323471D-06,
1716 + .117732D-06, .275723D-07, .233872D-08, .000000D+00 /
1717 DATA (UPDI(I),I=6189,6240) /
1718 + .272101D+07, .202778D+07, .148116D+07, .108116D+07,
1719 + .788657D+06, .574840D+06, .418703D+06, .304728D+06,
1720 + .221620D+06, .161043D+06, .116937D+06, .848384D+05,
1721 + .615042D+05, .445491D+05, .322436D+05, .233167D+05,
1722 + .168486D+05, .121642D+05, .877586D+04, .632603D+04,
1723 + .455706D+04, .328019D+04, .235972D+04, .169638D+04,
1724 + .121895D+04, .875340D+03, .628626D+03, .449179D+03,
1725 + .322503D+03, .231562D+03, .166323D+03, .119518D+03,
1726 + .859409D+02, .619116D+02, .446200D+02, .322056D+02,
1727 + .232869D+02, .168692D+02, .122461D+02, .890705D+01,
1728 + .649465D+01, .474404D+01, .347147D+01, .254402D+01,
1729 + .186669D+01, .137044D+01, .100780D+01, .739390D+00,
1730 + .543281D+00, .397937D+00, .291342D+00, .212848D+00 /
1731 DATA (UPDI(I),I=6241,6292) /
1732 + .155112D+00, .112694D+00, .815911D-01, .588357D-01,
1733 + .422410D-01, .301828D-01, .214586D-01, .151733D-01,
1734 + .106697D-01, .745960D-02, .518202D-02, .358392D-02,
1735 + .245815D-02, .167596D-02, .113685D-02, .767741D-03,
1736 + .517023D-03, .347674D-03, .234101D-03, .158151D-03,
1737 + .107567D-03, .737922D-04, .513756D-04, .361102D-04,
1738 + .256707D-04, .183809D-04, .131919D-04, .941729D-05,
1739 + .663272D-05, .456265D-05, .302239D-05, .190370D-05,
1740 + .111549D-05, .589623D-06, .267466D-06, .947338D-07,
1741 + .215647D-07, .185392D-08, .000000D+00, .330170D+07,
1742 + .245307D+07, .178529D+07, .129835D+07, .943551D+06,
1743 + .685132D+06, .497114D+06, .360380D+06, .261051D+06,
1744 + .188930D+06, .136623D+06, .987065D+05, .712536D+05 /
1745 DATA (UPDI(I),I=6293,6344) /
1746 + .513876D+05, .370292D+05, .266572D+05, .191743D+05,
1747 + .137788D+05, .989345D+04, .709708D+04, .508720D+04,
1748 + .364330D+04, .260743D+04, .186459D+04, .133261D+04,
1749 + .951686D+03, .679618D+03, .482796D+03, .344614D+03,
1750 + .245966D+03, .175596D+03, .125402D+03, .896033D+02,
1751 + .641381D+02, .459241D+02, .329286D+02, .236510D+02,
1752 + .170178D+02, .122703D+02, .886391D+01, .641908D+01,
1753 + .465683D+01, .338443D+01, .246342D+01, .179538D+01,
1754 + .130926D+01, .956467D+00, .697134D+00, .508941D+00,
1755 + .370413D+00, .269500D+00, .195685D+00, .141746D+00,
1756 + .102376D+00, .736919D-01, .528390D-01, .377262D-01,
1757 + .268120D-01, .189626D-01, .133407D-01, .933559D-02,
1758 + .649681D-02, .449347D-02, .309520D-02, .211522D-02 /
1759 DATA (UPDI(I),I=6345,6396) /
1760 + .143769D-02, .972856D-03, .655948D-03, .441473D-03,
1761 + .297058D-03, .200413D-03, .135859D-03, .928560D-04,
1762 + .640804D-04, .448974D-04, .317529D-04, .226874D-04,
1763 + .162992D-04, .117096D-04, .834710D-05, .585420D-05,
1764 + .400041D-05, .262522D-05, .163411D-05, .943544D-06,
1765 + .489903D-06, .217363D-06, .749318D-07, .165954D-07,
1766 + .144579D-08, .000000D+00, .256211D+07, .196415D+07,
1767 + .148372D+07, .112080D+07, .846662D+06, .639578D+06,
1768 + .483149D+06, .364984D+06, .275722D+06, .208294D+06,
1769 + .157359D+06, .118882D+06, .898164D+05, .678595D+05,
1770 + .512727D+05, .387425D+05, .292764D+05, .221252D+05,
1771 + .167226D+05, .126408D+05, .955692D+04, .722682D+04,
1772 + .546615D+04, .413568D+04, .313020D+04, .237024D+04 /
1773 DATA (UPDI(I),I=6397,6448) /
1774 + .179578D+04, .135614D+04, .102915D+04, .781794D+03,
1775 + .594621D+03, .452939D+03, .345642D+03, .264554D+03,
1776 + .202897D+03, .156122D+03, .120594D+03, .935672D+02,
1777 + .729673D+02, .572210D+02, .451659D+02, .358872D+02,
1778 + .287176D+02, .231492D+02, .187993D+02, .153795D+02,
1779 + .126809D+02, .105142D+02, .878218D+01, .736912D+01,
1780 + .621844D+01, .526994D+01, .448197D+01, .382241D+01,
1781 + .326650D+01, .279498D+01, .239282D+01, .204822D+01,
1782 + .175179D+01, .149604D+01, .127492D+01, .108348D+01,
1783 + .917653D+00, .774678D+00, .650244D+00, .542864D+00,
1784 + .450452D+00, .371203D+00, .303539D+00, .246068D+00,
1785 + .197555D+00, .156896D+00, .123080D+00, .951973D-01,
1786 + .726580D-01, .543944D-01, .399177D-01, .286272D-01 /
1787 DATA (UPDI(I),I=6449,6500) /
1788 + .199871D-01, .135211D-01, .880876D-02, .548727D-02,
1789 + .322234D-02, .176498D-02, .879967D-03, .385861D-03,
1790 + .140482D-03, .381180D-04, .604828D-05, .258374D-06,
1791 + .000000D+00, .363347D+07, .278431D+07, .210194D+07,
1792 + .158636D+07, .119739D+07, .903534D+06, .681871D+06,
1793 + .514434D+06, .388151D+06, .292776D+06, .220856D+06,
1794 + .166549D+06, .125605D+06, .946945D+05, .713958D+05,
1795 + .538109D+05, .405598D+05, .305611D+05, .230289D+05,
1796 + .173472D+05, .130684D+05, .984189D+04, .741299D+04,
1797 + .558210D+04, .420430D+04, .316592D+04, .238489D+04,
1798 + .178957D+04, .134912D+04, .101743D+04, .768008D+03,
1799 + .580203D+03, .438970D+03, .332881D+03, .252848D+03,
1800 + .192557D+03, .147158D+03, .112891D+03, .870167D+02 /
1801 DATA (UPDI(I),I=6501,6552) /
1802 + .674070D+02, .525424D+02, .412052D+02, .325359D+02,
1803 + .258672D+02, .207140D+02, .167028D+02, .135731D+02,
1804 + .110871D+02, .912306D+01, .753936D+01, .626580D+01,
1805 + .522921D+01, .437957D+01, .367809D+01, .309530D+01,
1806 + .260826D+01, .219918D+01, .185409D+01, .156194D+01,
1807 + .131397D+01, .110306D+01, .923563D+00, .770584D+00,
1808 + .640916D+00, .529946D+00, .435835D+00, .356205D+00,
1809 + .289104D+00, .232787D+00, .185795D+00, .146811D+00,
1810 + .114728D+00, .885328D-01, .673248D-01, .504979D-01,
1811 + .371293D-01, .267386D-01, .188040D-01, .128590D-01,
1812 + .851202D-02, .541617D-02, .329088D-02, .187986D-02,
1813 + .999302D-03, .481583D-03, .203322D-03, .707821D-04,
1814 + .182549D-04, .276718D-05, .121184D-06, .000000D+00 /
1815 DATA (UPDI(I),I=6553,6604) /
1816 + .510154D+07, .390271D+07, .294027D+07, .221421D+07,
1817 + .166754D+07, .125528D+07, .944974D+06, .711042D+06,
1818 + .535026D+06, .402383D+06, .302620D+06, .227472D+06,
1819 + .170979D+06, .128445D+06, .964854D+05, .724362D+05,
1820 + .543768D+05, .407953D+05, .306031D+05, .229431D+05,
1821 + .171987D+05, .128846D+05, .965194D+04, .722616D+04,
1822 + .540990D+04, .404777D+04, .302906D+04, .225692D+04,
1823 + .168912D+04, .126413D+04, .946663D+03, .709228D+03,
1824 + .531957D+03, .399762D+03, .300816D+03, .226862D+03,
1825 + .171638D+03, .130305D+03, .993710D+02, .761320D+02,
1826 + .586773D+02, .454858D+02, .354935D+02, .278793D+02,
1827 + .220523D+02, .175599D+02, .140899D+02, .113608D+02,
1828 + .922723D+01, .752503D+01, .617112D+01, .508156D+01 /
1829 DATA (UPDI(I),I=6605,6656) /
1830 + .419888D+01, .347893D+01, .288821D+01, .240090D+01,
1831 + .199696D+01, .166084D+01, .138020D+01, .114538D+01,
1832 + .948513D+00, .783423D+00, .644749D+00, .528964D+00,
1833 + .431354D+00, .349842D+00, .281924D+00, .225585D+00,
1834 + .179037D+00, .140817D+00, .109616D+00, .843639D-01,
1835 + .640931D-01, .479588D-01, .353802D-01, .255680D-01,
1836 + .180828D-01, .124788D-01, .836454D-02, .542105D-02,
1837 + .337133D-02, .199899D-02, .111139D-02, .573556D-03,
1838 + .267267D-03, .108637D-03, .361599D-04, .886065D-05,
1839 + .128130D-05, .569024D-07, .000000D+00, .703699D+07,
1840 + .537043D+07, .403455D+07, .302935D+07, .227446D+07,
1841 + .170674D+07, .128061D+07, .960310D+06, .720035D+06,
1842 + .539543D+06, .404232D+06, .302656D+06, .226560D+06 /
1843 DATA (UPDI(I),I=6657,6708) /
1844 + .169478D+06, .126749D+06, .947233D+05, .707709D+05,
1845 + .528344D+05, .394326D+05, .294065D+05, .219230D+05,
1846 + .163305D+05, .121612D+05, .904908D+04, .673160D+04,
1847 + .500337D+04, .371860D+04, .275082D+04, .204366D+04,
1848 + .151785D+04, .112772D+04, .838011D+03, .623265D+03,
1849 + .464329D+03, .346279D+03, .258748D+03, .193913D+03,
1850 + .145791D+03, .110078D+03, .834806D+02, .636757D+02,
1851 + .488402D+02, .377015D+02, .292902D+02, .229110D+02,
1852 + .180377D+02, .143083D+02, .114026D+02, .915272D+01,
1853 + .737547D+01, .597601D+01, .486152D+01, .396821D+01,
1854 + .324763D+01, .266304D+01, .218642D+01, .179605D+01,
1855 + .147521D+01, .121066D+01, .992147D+00, .811322D+00,
1856 + .661699D+00, .537674D+00, .435528D+00, .350596D+00 /
1857 DATA (UPDI(I),I=6709,6760) /
1858 + .280661D+00, .223210D+00, .176236D+00, .137987D+00,
1859 + .107044D+00, .821600D-01, .623299D-01, .466610D-01,
1860 + .343865D-01, .249736D-01, .177553D-01, .123450D-01,
1861 + .836852D-02, .550471D-02, .349711D-02, .212864D-02,
1862 + .123349D-02, .668675D-03, .335672D-03, .151633D-03,
1863 + .595198D-04, .190255D-04, .445681D-05, .618377D-06,
1864 + .272334D-07, .000000D+00, .951813D+07, .724366D+07,
1865 + .542387D+07, .405876D+07, .303668D+07, .227053D+07,
1866 + .169731D+07, .126794D+07, .946948D+06, .706708D+06,
1867 + .527258D+06, .393074D+06, .292938D+06, .218134D+06,
1868 + .162368D+06, .120755D+06, .897680D+05, .666720D+05,
1869 + .494953D+05, .367088D+05, .272121D+05, .201525D+05,
1870 + .149171D+05, .110311D+05, .815347D+04, .602015D+04 /
1871 DATA (UPDI(I),I=6761,6812) /
1872 + .444389D+04, .326402D+04, .240740D+04, .177473D+04,
1873 + .130847D+04, .964684D+03, .711656D+03, .525787D+03,
1874 + .388762D+03, .287955D+03, .213870D+03, .159328D+03,
1875 + .119177D+03, .895226D+02, .676238D+02, .513590D+02,
1876 + .392494D+02, .301837D+02, .233667D+02, .182044D+02,
1877 + .142881D+02, .112641D+02, .894373D+01, .712785D+01,
1878 + .571141D+01, .459442D+01, .370796D+01, .300026D+01,
1879 + .243213D+01, .197396D+01, .160282D+01, .130126D+01,
1880 + .105548D+01, .854875D+00, .690864D+00, .556814D+00,
1881 + .447061D+00, .357809D+00, .284544D+00, .225000D+00,
1882 + .176727D+00, .137785D+00, .106506D+00, .815502D-01,
1883 + .617635D-01, .462222D-01, .341227D-01, .247856D-01,
1884 + .177359D-01, .124159D-01, .849449D-02, .566195D-02 /
1885 DATA (UPDI(I),I=6813,6864) /
1886 + .365874D-02, .228102D-02, .136072D-02, .771689D-03,
1887 + .408594D-03, .199910D-03, .877615D-04, .333676D-04,
1888 + .102871D-04, .231666D-05, .309840D-06, .131450D-07,
1889 + .000000D+00, .128447D+08, .974277D+07, .726648D+07,
1890 + .541588D+07, .403529D+07, .300450D+07, .223621D+07,
1891 + .166312D+07, .123640D+07, .918421D+06, .681911D+06,
1892 + .505872D+06, .375088D+06, .277861D+06, .205721D+06,
1893 + .152162D+06, .112479D+06, .830593D+05, .612945D+05,
1894 + .451839D+05, .332849D+05, .244920D+05, .180094D+05,
1895 + .132276D+05, .970874D+04, .711706D+04, .521490D+04,
1896 + .380100D+04, .278165D+04, .203431D+04, .148756D+04,
1897 + .108754D+04, .795373D+03, .582485D+03, .426793D+03,
1898 + .313217D+03, .230441D+03, .170029D+03, .125938D+03 /
1899 DATA (UPDI(I),I=6865,6916) /
1900 + .936619D+02, .700355D+02, .526457D+02, .398132D+02,
1901 + .302941D+02, .232008D+02, .178787D+02, .138784D+02,
1902 + .108187D+02, .849335D+01, .669146D+01, .529988D+01,
1903 + .421377D+01, .336080D+01, .268720D+01, .215237D+01,
1904 + .172596D+01, .138453D+01, .111040D+01, .889676D+00,
1905 + .711748D+00, .568102D+00, .452194D+00, .358517D+00,
1906 + .283338D+00, .222449D+00, .173635D+00, .134606D+00,
1907 + .103561D+00, .789792D-01, .596492D-01, .445492D-01,
1908 + .328670D-01, .239118D-01, .171089D-01, .120552D-01,
1909 + .830489D-02, .558807D-02, .366062D-02, .232289D-02,
1910 + .142074D-02, .830496D-03, .460939D-03, .238451D-03,
1911 + .113778D-03, .486042D-04, .179359D-04, .535257D-05,
1912 + .116456D-05, .150692D-06, .589119D-08, .000000D+00 /
1913 DATA (UPDI(I),I=6917,6968) /
1914 + .171094D+08, .129312D+08, .960385D+07, .712729D+07,
1915 + .528702D+07, .391884D+07, .290330D+07, .214913D+07,
1916 + .159001D+07, .117530D+07, .868245D+06, .640799D+06,
1917 + .472626D+06, .348236D+06, .256402D+06, .188582D+06,
1918 + .138594D+06, .101740D+06, .746249D+05, .546704D+05,
1919 + .400170D+05, .292545D+05, .213677D+05, .155873D+05,
1920 + .113604D+05, .826794D+04, .601362D+04, .434970D+04,
1921 + .315859D+04, .229176D+04, .166224D+04, .120521D+04,
1922 + .873942D+03, .634507D+03, .460794D+03, .335125D+03,
1923 + .244291D+03, .178565D+03, .131002D+03, .964883D+02,
1924 + .714417D+02, .531697D+02, .398040D+02, .299783D+02,
1925 + .227214D+02, .173259D+02, .133072D+02, .102617D+02,
1926 + .796898D+01, .620935D+01, .486358D+01, .382372D+01 /
1927 DATA (UPDI(I),I=6969,7020) /
1928 + .301533D+01, .238362D+01, .188737D+01, .149604D+01,
1929 + .118618D+01, .940238D+00, .744499D+00, .588579D+00,
1930 + .464213D+00, .365086D+00, .285959D+00, .223256D+00,
1931 + .173120D+00, .133449D+00, .102150D+00, .775866D-01,
1932 + .584025D-01, .435263D-01, .320702D-01, .233350D-01,
1933 + .167380D-01, .118021D-01, .819237D-02, .555650D-02,
1934 + .367883D-02, .236967D-02, .147743D-02, .887014D-03,
1935 + .508415D-03, .276351D-03, .139790D-03, .651103D-04,
1936 + .270958D-04, .971748D-05, .281194D-05, .592037D-06,
1937 + .740283D-07, .248633D-08, .000000D+00, .224514D+08,
1938 + .169064D+08, .125015D+08, .923672D+07, .682077D+07,
1939 + .503243D+07, .371073D+07, .273367D+07, .201255D+07,
1940 + .148021D+07, .108790D+07, .798739D+06, .585976D+06 /
1941 DATA (UPDI(I),I=7021,7072) /
1942 + .429411D+06, .314412D+06, .229938D+06, .168007D+06,
1943 + .122603D+06, .893817D+05, .650764D+05, .473318D+05,
1944 + .343783D+05, .249435D+05, .180725D+05, .130801D+05,
1945 + .945180D+04, .682471D+04, .489917D+04, .353051D+04,
1946 + .254172D+04, .182885D+04, .131525D+04, .945803D+03,
1947 + .680882D+03, .490191D+03, .353368D+03, .255277D+03,
1948 + .184896D+03, .134389D+03, .980534D+02, .719087D+02,
1949 + .530011D+02, .392896D+02, .292982D+02, .219836D+02,
1950 + .165933D+02, .126145D+02, .962645D+01, .739767D+01,
1951 + .570316D+01, .441951D+01, .343729D+01, .268126D+01,
1952 + .209644D+01, .164177D+01, .128700D+01, .100910D+01,
1953 + .790945D+00, .619253D+00, .484037D+00, .377425D+00,
1954 + .293440D+00, .227191D+00, .175322D+00, .134355D+00 /
1955 DATA (UPDI(I),I=7073,7124) /
1956 + .102339D+00, .773973D-01, .580725D-01, .431754D-01,
1957 + .317754D-01, .231143D-01, .166004D-01, .117497D-01,
1958 + .817186D-02, .559366D-02, .373931D-02, .243894D-02,
1959 + .154682D-02, .948969D-03, .560212D-03, .315473D-03,
1960 + .168318D-03, .834820D-04, .380799D-04, .155000D-04,
1961 + .542932D-05, .153303D-05, .314637D-06, .381867D-07,
1962 + .995807D-09, .000000D+00, .290108D+08, .217649D+08,
1963 + .160233D+08, .117858D+08, .866337D+07, .636228D+07,
1964 + .466907D+07, .342311D+07, .250771D+07, .183518D+07,
1965 + .134189D+07, .980096D+06, .715199D+06, .521274D+06,
1966 + .379560D+06, .276021D+06, .200515D+06, .145467D+06,
1967 + .105414D+06, .762792D+05, .551322D+05, .397881D+05,
1968 + .286799D+05, .206409D+05, .148368D+05, .106462D+05 /
1969 DATA (UPDI(I),I=7125,7176) /
1970 + .763220D+04, .543829D+04, .388976D+04, .277904D+04,
1971 + .198402D+04, .141551D+04, .100962D+04, .720829D+03,
1972 + .514564D+03, .367752D+03, .263343D+03, .189044D+03,
1973 + .136164D+03, .984404D+02, .715233D+02, .522228D+02,
1974 + .383447D+02, .283192D+02, .210427D+02, .157272D+02,
1975 + .118380D+02, .894316D+01, .680341D+01, .519149D+01,
1976 + .398174D+01, .306485D+01, .236588D+01, .183052D+01,
1977 + .141845D+01, .110019D+01, .853472D+00, .661825D+00,
1978 + .512611D+00, .396371D+00, .305727D+00, .235115D+00,
1979 + .180041D+00, .137413D+00, .104134D+00, .784312D-01,
1980 + .586462D-01, .435008D-01, .319682D-01, .232521D-01,
1981 + .167135D-01, .118586D-01, .829050D-02, .569356D-02,
1982 + .384759D-02, .253830D-02, .163329D-02, .102151D-02 /
1983 DATA (UPDI(I),I=7177,7228) /
1984 + .617749D-03, .359293D-03, .199236D-03, .104614D-03,
1985 + .510303D-04, .228779D-04, .914735D-05, .314544D-05,
1986 + .871922D-06, .175607D-06, .207728D-07, .359052D-09,
1987 + .000000D+00, .369201D+08, .275965D+08, .202269D+08,
1988 + .148113D+08, .108376D+08, .792217D+07, .578636D+07,
1989 + .422192D+07, .307776D+07, .224116D+07, .163043D+07,
1990 + .118471D+07, .859954D+06, .623426D+06, .451458D+06,
1991 + .326481D+06, .235823D+06, .170092D+06, .122529D+06,
1992 + .881305D+05, .633054D+05, .453999D+05, .325147D+05,
1993 + .232476D+05, .165984D+05, .118285D+05, .842048D+04,
1994 + .595653D+04, .422932D+04, .299915D+04, .212485D+04,
1995 + .150424D+04, .106439D+04, .753809D+03, .533671D+03,
1996 + .378213D+03, .268524D+03, .191097D+03, .136433D+03 /
1997 DATA (UPDI(I),I=7229,7280) /
1998 + .977570D+02, .703864D+02, .509243D+02, .370461D+02,
1999 + .271053D+02, .199510D+02, .147696D+02, .110109D+02,
2000 + .823769D+01, .620589D+01, .468898D+01, .356086D+01,
2001 + .271372D+01, .207395D+01, .158860D+01, .121862D+01,
2002 + .935670D+00, .718504D+00, .551515D+00, .422827D+00,
2003 + .323613D+00, .247056D+00, .188046D+00, .142513D+00,
2004 + .107649D+00, .807288D-01, .601660D-01, .445145D-01,
2005 + .326681D-01, .237506D-01, .170884D-01, .121492D-01,
2006 + .852491D-02, .589331D-02, .400123D-02, .267295D-02,
2007 + .174269D-02, .110798D-02, .684530D-03, .408828D-03,
2008 + .234764D-03, .128497D-03, .665778D-04, .320376D-04,
2009 + .141653D-04, .558531D-05, .189369D-05, .517817D-06,
2010 + .102836D-06, .118957D-07, .982113D-10, .000000D+00 /
2011 DATA (UPDI(I),I=7281,7332) /
2012 + .462985D+08, .344800D+08, .251614D+08, .183428D+08,
2013 + .133609D+08, .972188D+07, .706764D+07, .513233D+07,
2014 + .372334D+07, .269795D+07, .195291D+07, .141181D+07,
2015 + .101949D+07, .735184D+06, .529523D+06, .380840D+06,
2016 + .273551D+06, .196183D+06, .140503D+06, .100461D+06,
2017 + .717270D+05, .511230D+05, .363831D+05, .258466D+05,
2018 + .183330D+05, .129769D+05, .917491D+04, .644427D+04,
2019 + .454300D+04, .319818D+04, .224902D+04, .158009D+04,
2020 + .110941D+04, .779524D+03, .547443D+03, .384808D+03,
2021 + .270937D+03, .191190D+03, .135332D+03, .961287D+02,
2022 + .686074D+02, .491975D+02, .354693D+02, .257171D+02,
2023 + .187566D+02, .137576D+02, .101618D+02, .753128D+01,
2024 + .562067D+01, .420667D+01, .316435D+01, .238865D+01 /
2025 DATA (UPDI(I),I=7333,7384) /
2026 + .180813D+01, .137176D+01, .104222D+01, .792568D+00,
2027 + .602781D+00, .458249D+00, .347952D+00, .263751D+00,
2028 + .199421D+00, .150331D+00, .112833D+00, .844116D-01,
2029 + .626901D-01, .462691D-01, .339003D-01, .246361D-01,
2030 + .177359D-01, .126354D-01, .889455D-02, .617912D-02,
2031 + .422891D-02, .284214D-02, .187942D-02, .121273D-02,
2032 + .763049D-03, .466491D-03, .275665D-03, .156606D-03,
2033 + .847958D-04, .434576D-04, .206836D-04, .904454D-05,
2034 + .352724D-05, .118272D-05, .319944D-06, .628152D-07,
2035 + .712225D-08, .000000D+00, .000000D+00, .572469D+08,
2036 + .424799D+08, .308649D+08, .224019D+08, .162445D+08,
2037 + .117665D+08, .851458D+07, .615412D+07, .444333D+07,
2038 + .320409D+07, .230784D+07, .166006D+07, .119263D+07 /
2039 DATA (UPDI(I),I=7385,7436) /
2040 + .855592D+06, .612991D+06, .438504D+06, .313244D+06,
2041 + .223398D+06, .159084D+06, .113089D+06, .802651D+05,
2042 + .568641D+05, .402200D+05, .283932D+05, .200101D+05,
2043 + .140712D+05, .988219D+04, .689311D+04, .482560D+04,
2044 + .337304D+04, .235480D+04, .164220D+04, .114432D+04,
2045 + .797905D+03, .555967D+03, .387694D+03, .270762D+03,
2046 + .189501D+03, .133021D+03, .936917D+02, .662988D+02,
2047 + .471332D+02, .336858D+02, .242101D+02, .175017D+02,
2048 + .127230D+02, .931403D+01, .684077D+01, .505948D+01,
2049 + .375233D+01, .279704D+01, .209224D+01, .156940D+01,
2050 + .117985D+01, .888285D+00, .669390D+00, .504498D+00,
2051 + .380073D+00, .285996D+00, .214841D+00, .160987D+00,
2052 + .120275D+00, .894685D-01, .663394D-01, .488304D-01 /
2053 DATA (UPDI(I),I=7437,7488) /
2054 + .357199D-01, .259393D-01, .186838D-01, .133319D-01,
2055 + .941401D-02, .656836D-02, .452272D-02, .306793D-02,
2056 + .204354D-02, .133941D-02, .856584D-03, .534163D-03,
2057 + .323644D-03, .189543D-03, .106713D-03, .572624D-04,
2058 + .290816D-04, .137158D-04, .594261D-05, .229614D-05,
2059 + .762543D-06, .204278D-06, .396740D-07, .441607D-08,
2060 + .000000D+00, .000000D+00, .698428D+08, .516430D+08,
2061 + .373621D+08, .270001D+08, .194925D+08, .140562D+08,
2062 + .101252D+08, .728453D+07, .523483D+07, .375690D+07,
2063 + .269291D+07, .192753D+07, .137786D+07, .983449D+06,
2064 + .700944D+06, .498783D+06, .354391D+06, .251365D+06,
2065 + .178003D+06, .125821D+06, .887854D+05, .625302D+05,
2066 + .439617D+05, .308445D+05, .216016D+05, .150931D+05 /
2067 DATA (UPDI(I),I=7489,7540) /
2068 + .105309D+05, .729607D+04, .507305D+04, .352150D+04,
2069 + .244108D+04, .169014D+04, .116907D+04, .809088D+03,
2070 + .559466D+03, .387118D+03, .268234D+03, .186235D+03,
2071 + .129672D+03, .905865D+02, .635720D+02, .448178D+02,
2072 + .317615D+02, .226339D+02, .162229D+02, .116923D+02,
2073 + .848617D+01, .617882D+01, .453058D+01, .333096D+01,
2074 + .246152D+01, .182539D+01, .135746D+01, .101176D+01,
2075 + .755227D+00, .564276D+00, .421675D+00, .314999D+00,
2076 + .235043D+00, .175093D+00, .130116D+00, .964101D-01,
2077 + .711289D-01, .523132D-01, .381942D-01, .277142D-01,
2078 + .199646D-01, .142658D-01, .100988D-01, .707485D-02,
2079 + .489760D-02, .334596D-02, .225205D-02, .148843D-02,
2080 + .968079D-03, .614330D-03, .380150D-03, .228557D-03 /
2081 DATA (UPDI(I),I=7541,7592) /
2082 + .132826D-03, .742026D-04, .395085D-04, .199066D-04,
2083 + .931303D-05, .400135D-05, .153264D-05, .504201D-06,
2084 + .133718D-06, .256756D-07, .280853D-08, .000000D+00,
2085 + .000000D+00, .841368D+08, .619958D+08, .446630D+08,
2086 + .321384D+08, .231015D+08, .165854D+08, .118937D+08,
2087 + .851818D+07, .609318D+07, .435250D+07, .310501D+07,
2088 + .221178D+07, .157329D+07, .111735D+07, .792337D+06,
2089 + .560912D+06, .396440D+06, .279688D+06, .196981D+06,
2090 + .138464D+06, .971556D+05, .680316D+05, .475487D+05,
2091 + .331617D+05, .230825D+05, .160271D+05, .111115D+05,
2092 + .764775D+04, .528242D+04, .364213D+04, .250734D+04,
2093 + .172386D+04, .118387D+04, .813390D+03, .558275D+03,
2094 + .383389D+03, .263620D+03, .181615D+03, .125464D+03 /
2095 DATA (UPDI(I),I=7593,7644) /
2096 + .869516D+02, .605328D+02, .423308D+02, .297551D+02,
2097 + .210308D+02, .149502D+02, .106862D+02, .769225D+01,
2098 + .555438D+01, .403925D+01, .294522D+01, .215862D+01,
2099 + .158771D+01, .117111D+01, .865826D+00, .641110D+00,
2100 + .475198D+00, .352303D+00, .261115D+00, .193324D+00,
2101 + .142907D+00, .105389D+00, .774991D-01, .567492D-01,
2102 + .414295D-01, .300258D-01, .216286D-01, .154685D-01,
2103 + .109741D-01, .771374D-02, .536606D-02, .368886D-02,
2104 + .250274D-02, .167295D-02, .109811D-02, .709386D-03,
2105 + .447104D-03, .274790D-03, .164082D-03, .947001D-04,
2106 + .525332D-04, .277712D-04, .138891D-04, .644733D-05,
2107 + .274710D-05, .104280D-05, .339621D-06, .890796D-07,
2108 + .168932D-07, .181738D-08, .000000D+00, .000000D+00 /
2109 DATA (UPDI(I),I=7645,7696) /
2110 + .158812D+05, .258924D+05, .207927D+05, .167003D+05,
2111 + .134161D+05, .107801D+05, .866418D+04, .696550D+04,
2112 + .560159D+04, .450630D+04, .362658D+04, .291986D+04,
2113 + .235199D+04, .189559D+04, .152867D+04, .123361D+04,
2114 + .996260D+03, .805258D+03, .651494D+03, .527655D+03,
2115 + .427869D+03, .347422D+03, .282529D+03, .230150D+03,
2116 + .187843D+03, .153647D+03, .125985D+03, .103304D+03,
2117 + .852157D+02, .705420D+02, .586255D+02, .489372D+02,
2118 + .410508D+02, .346399D+02, .293924D+02, .251028D+02,
2119 + .215887D+02, .187024D+02, .163238D+02, .143549D+02,
2120 + .127191D+02, .113494D+02, .101947D+02, .921271D+01,
2121 + .836967D+01, .763840D+01, .699943D+01, .642935D+01,
2122 + .592153D+01, .545897D+01, .503794D+01, .465012D+01 /
2123 DATA (UPDI(I),I=7697,7748) /
2124 + .429044D+01, .395499D+01, .364074D+01, .334541D+01,
2125 + .306726D+01, .280502D+01, .255770D+01, .232458D+01,
2126 + .210511D+01, .189887D+01, .170548D+01, .152546D+01,
2127 + .135665D+01, .119993D+01, .105503D+01, .921656D+00,
2128 + .799513D+00, .688264D+00, .587546D+00, .496962D+00,
2129 + .416037D+00, .344253D+00, .281724D+00, .226999D+00,
2130 + .179995D+00, .140118D+00, .106773D+00, .793549D-01,
2131 + .572508D-01, .398729D-01, .265151D-01, .166964D-01,
2132 + .976865D-02, .517045D-02, .236723D-02, .861917D-03,
2133 + .206645D-03, .178363D-04, .000000D+00, .902698D+05,
2134 + .704441D+05, .543377D+05, .419506D+05, .324183D+05,
2135 + .250750D+05, .194151D+05, .150477D+05, .116758D+05,
2136 + .906928D+04, .705321D+04, .549181D+04, .428178D+04 /
2137 DATA (UPDI(I),I=7749,7800) /
2138 + .334274D+04, .261352D+04, .204636D+04, .160495D+04,
2139 + .126084D+04, .992368D+03, .782547D+03, .618430D+03,
2140 + .489814D+03, .388921D+03, .309616D+03, .247209D+03,
2141 + .198001D+03, .159157D+03, .128020D+03, .103736D+03,
2142 + .844353D+02, .690755D+02, .568133D+02, .470092D+02,
2143 + .391650D+02, .328438D+02, .277451D+02, .236227D+02,
2144 + .202728D+02, .175414D+02, .152991D+02, .134516D+02,
2145 + .119143D+02, .106264D+02, .953646D+01, .860560D+01,
2146 + .780164D+01, .710261D+01, .648183D+01, .593190D+01,
2147 + .543365D+01, .498303D+01, .457061D+01, .419089D+01,
2148 + .383931D+01, .351252D+01, .320781D+01, .292317D+01,
2149 + .265697D+01, .240800D+01, .217526D+01, .195796D+01,
2150 + .175544D+01, .156706D+01, .139314D+01, .123134D+01 /
2151 DATA (UPDI(I),I=7801,7852) /
2152 + .108234D+01, .945673D+00, .820893D+00, .707523D+00,
2153 + .605094D+00, .513095D+00, .431028D+00, .358328D+00,
2154 + .294360D+00, .239112D+00, .191178D+00, .150366D+00,
2155 + .116073D+00, .876680D-01, .645483D-01, .460997D-01,
2156 + .317624D-01, .208721D-01, .129732D-01, .747985D-02,
2157 + .389359D-02, .174790D-02, .621593D-03, .145438D-03,
2158 + .126875D-04, .000000D+00, .160326D+06, .123852D+06,
2159 + .944121D+05, .720067D+05, .549534D+05, .419622D+05,
2160 + .320653D+05, .245185D+05, .187634D+05, .143700D+05,
2161 + .110159D+05, .845213D+04, .649224D+04, .499209D+04,
2162 + .384355D+04, .296299D+04, .228767D+04, .176893D+04,
2163 + .137031D+04, .106346D+04, .827137D+03, .644764D+03,
2164 + .503928D+03, .394929D+03, .310490D+03, .244936D+03 /
2165 DATA (UPDI(I),I=7853,7904) /
2166 + .193990D+03, .153768D+03, .122872D+03, .986696D+02,
2167 + .796868D+02, .647387D+02, .529472D+02, .436306D+02,
2168 + .362141D+02, .302977D+02, .255647D+02, .217544D+02,
2169 + .186748D+02, .161657D+02, .141131D+02, .124151D+02,
2170 + .110007D+02, .980937D+01, .879677D+01, .792601D+01,
2171 + .717236D+01, .650611D+01, .591888D+01, .538958D+01,
2172 + .491363D+01, .448062D+01, .408450D+01, .372017D+01,
2173 + .338390D+01, .307258D+01, .278386D+01, .251584D+01,
2174 + .226703D+01, .203618D+01, .182224D+01, .162438D+01,
2175 + .144167D+01, .127424D+01, .111962D+01, .978308D+00,
2176 + .849639D+00, .733040D+00, .627889D+00, .533601D+00,
2177 + .449548D+00, .375145D+00, .309758D+00, .252668D+00,
2178 + .203760D+00, .161679D+00, .126155D+00, .965684D-01 /
2179 DATA (UPDI(I),I=7905,7956) /
2180 + .722894D-01, .527248D-01, .372716D-01, .253991D-01,
2181 + .164880D-01, .101109D-01, .574065D-02, .293576D-02,
2182 + .129017D-02, .447003D-03, .101710D-03, .898331D-05,
2183 + .000000D+00, .244642D+06, .187931D+06, .142317D+06,
2184 + .107799D+06, .816851D+05, .619137D+05, .469494D+05,
2185 + .356145D+05, .270311D+05, .205257D+05, .155965D+05,
2186 + .118579D+05, .902297D+04, .687095D+04, .523757D+04,
2187 + .399632D+04, .305312D+04, .233541D+04, .178926D+04,
2188 + .137301D+04, .105571D+04, .813401D+03, .628279D+03,
2189 + .486558D+03, .377987D+03, .294639D+03, .230605D+03,
2190 + .180624D+03, .142672D+03, .113278D+03, .904839D+02,
2191 + .727321D+02, .588806D+02, .480503D+02, .395158D+02,
2192 + .327721D+02, .274259D+02, .231574D+02, .197340D+02 /
2193 DATA (UPDI(I),I=7957,8008) /
2194 + .169640D+02, .147122D+02, .128599D+02, .113249D+02,
2195 + .100379D+02, .894898D+01, .801655D+01, .721303D+01,
2196 + .650584D+01, .588548D+01, .532909D+01, .483146D+01,
2197 + .438125D+01, .397187D+01, .359766D+01, .325449D+01,
2198 + .293886D+01, .264812D+01, .238007D+01, .213294D+01,
2199 + .190524D+01, .169569D+01, .150324D+01, .132675D+01,
2200 + .116615D+01, .101887D+01, .885194D+00, .764332D+00,
2201 + .655578D+00, .558193D+00, .471489D+00, .394750D+00,
2202 + .327317D+00, .268502D+00, .217529D+00, .174200D+00,
2203 + .137213D+00, .106247D+00, .806759D-01, .598789D-01,
2204 + .432784D-01, .302948D-01, .204278D-01, .131066D-01,
2205 + .793411D-02, .443902D-02, .223202D-02, .961269D-03,
2206 + .325004D-03, .720846D-04, .644138D-05, .000000D+00 /
2207 DATA (UPDI(I),I=8009,8060) /
2208 + .250099D+06, .264734D+06, .199514D+06, .150368D+06,
2209 + .113351D+06, .854508D+05, .644348D+05, .485935D+05,
2210 + .366592D+05, .276619D+05, .208820D+05, .157691D+05,
2211 + .119151D+05, .900737D+04, .681452D+04, .515909D+04,
2212 + .390980D+04, .296588D+04, .225287D+04, .171354D+04,
2213 + .130564D+04, .996646D+03, .762534D+03, .584832D+03,
2214 + .449884D+03, .347209D+03, .269048D+03, .208605D+03,
2215 + .163140D+03, .128258D+03, .101462D+03, .807890D+02,
2216 + .648065D+02, .524231D+02, .427498D+02, .351705D+02,
2217 + .292097D+02, .244858D+02, .207235D+02, .176986D+02,
2218 + .152538D+02, .132534D+02, .116035D+02, .102265D+02,
2219 + .906630D+01, .807698D+01, .722797D+01, .648399D+01,
2220 + .583428D+01, .525436D+01, .473830D+01, .427392D+01 /
2221 DATA (UPDI(I),I=8061,8112) /
2222 + .385400D+01, .347241D+01, .312457D+01, .280664D+01,
2223 + .251562D+01, .224903D+01, .200484D+01, .178132D+01,
2224 + .157697D+01, .139054D+01, .122068D+01, .106714D+01,
2225 + .927257D+00, .801146D+00, .687881D+00, .586649D+00,
2226 + .496611D+00, .416996D+00, .347014D+00, .285953D+00,
2227 + .233080D+00, .187585D+00, .149200D+00, .116685D+00,
2228 + .896789D-01, .675631D-01, .497313D-01, .356277D-01,
2229 + .247023D-01, .164864D-01, .104582D-01, .625186D-02,
2230 + .344837D-02, .170574D-02, .720470D-03, .238004D-03,
2231 + .515592D-04, .465854D-05, .000000D+00, .486305D+06,
2232 + .370632D+06, .278058D+06, .208584D+06, .156470D+06,
2233 + .117364D+06, .880364D+05, .660338D+05, .495362D+05,
2234 + .371610D+05, .278832D+05, .209243D+05, .157074D+05 /
2235 DATA (UPDI(I),I=8113,8164) /
2236 + .117942D+05, .886043D+04, .665942D+04, .500886D+04,
2237 + .377009D+04, .284067D+04, .214267D+04, .161860D+04,
2238 + .122462D+04, .928432D+03, .705435D+03, .537485D+03,
2239 + .410788D+03, .315184D+03, .241917D+03, .187304D+03,
2240 + .145794D+03, .114198D+03, .900500D+02, .715511D+02,
2241 + .573499D+02, .463538D+02, .378130D+02, .311503D+02,
2242 + .259118D+02, .217694D+02, .184615D+02, .158044D+02,
2243 + .136427D+02, .118690D+02, .103960D+02, .916061D+01,
2244 + .811212D+01, .721646D+01, .643536D+01, .575660D+01,
2245 + .515395D+01, .462061D+01, .414350D+01, .371466D+01,
2246 + .332744D+01, .297676D+01, .265837D+01, .236891D+01,
2247 + .210559D+01, .186608D+01, .164839D+01, .145078D+01,
2248 + .127179D+01, .110986D+01, .964529D+00, .833076D+00 /
2249 DATA (UPDI(I),I=8165,8216) /
2250 + .715417D+00, .610510D+00, .517430D+00, .435250D+00,
2251 + .363122D+00, .300194D+00, .245708D+00, .198896D+00,
2252 + .158930D+00, .125482D+00, .973849D-01, .742478D-01,
2253 + .554695D-01, .404696D-01, .287217D-01, .197145D-01,
2254 + .130163D-01, .815989D-02, .481513D-02, .261766D-02,
2255 + .127372D-02, .527857D-03, .170615D-03, .362049D-04,
2256 + .330446D-05, .000000D+00, .658612D+06, .500217D+06,
2257 + .373738D+06, .279174D+06, .208510D+06, .155694D+06,
2258 + .116246D+06, .867742D+05, .647717D+05, .483411D+05,
2259 + .360794D+05, .269263D+05, .200980D+05, .150023D+05,
2260 + .112018D+05, .836609D+04, .625140D+04, .467351D+04,
2261 + .349672D+04, .261844D+04, .196320D+04, .147387D+04,
2262 + .110850D+04, .835365D+03, .631135D+03, .478218D+03 /
2263 DATA (UPDI(I),I=8217,8268) /
2264 + .363712D+03, .276655D+03, .212284D+03, .163757D+03,
2265 + .127122D+03, .993564D+02, .782599D+02, .621985D+02,
2266 + .498607D+02, .403535D+02, .329916D+02, .272452D+02,
2267 + .227311D+02, .191492D+02, .162882D+02, .139732D+02,
2268 + .120829D+02, .105206D+02, .921611D+01, .811393D+01,
2269 + .717656D+01, .636289D+01, .565921D+01, .503765D+01,
2270 + .449048D+01, .400376D+01, .356884D+01, .317853D+01,
2271 + .282725D+01, .251039D+01, .222420D+01, .196560D+01,
2272 + .173197D+01, .152108D+01, .133096D+01, .115995D+01,
2273 + .100630D+01, .869357D+00, .746364D+00, .637056D+00,
2274 + .540289D+00, .455049D+00, .380336D+00, .315241D+00,
2275 + .258874D+00, .210438D+00, .169150D+00, .134174D+00,
2276 + .105141D+00, .809555D-01, .612133D-01, .453355D-01 /
2277 DATA (UPDI(I),I=8269,8320) /
2278 + .327729D-01, .230322D-01, .156428D-01, .102109D-01,
2279 + .632118D-02, .367858D-02, .196863D-02, .940805D-03,
2280 + .381731D-03, .120376D-03, .249402D-04, .230346D-05,
2281 + .000000D+00, .868709D+06, .657625D+06, .489435D+06,
2282 + .364138D+06, .270853D+06, .201392D+06, .149713D+06,
2283 + .111257D+06, .826648D+05, .614028D+05, .456040D+05,
2284 + .338630D+05, .251441D+05, .186682D+05, .138616D+05,
2285 + .102932D+05, .764583D+04, .568098D+04, .422358D+04,
2286 + .314205D+04, .233985D+04, .174439D+04, .130252D+04,
2287 + .974308D+03, .730510D+03, .549195D+03, .414371D+03,
2288 + .312605D+03, .237906D+03, .182015D+03, .140132D+03,
2289 + .108632D+03, .848772D+02, .669289D+02, .532422D+02,
2290 + .427722D+02, .347204D+02, .284774D+02, .236033D+02 /
2291 DATA (UPDI(I),I=8321,8372) /
2292 + .197585D+02, .167038D+02, .142446D+02, .122459D+02,
2293 + .106013D+02, .923404D+01, .808379D+01, .710975D+01,
2294 + .626807D+01, .554357D+01, .490681D+01, .434917D+01,
2295 + .385588D+01, .341758D+01, .302658D+01, .267681D+01,
2296 + .236330D+01, .208195D+01, .182938D+01, .160270D+01,
2297 + .139945D+01, .121745D+01, .105486D+01, .909759D+00,
2298 + .781321D+00, .666761D+00, .565658D+00, .476782D+00,
2299 + .399048D+00, .331403D+00, .272894D+00, .222604D+00,
2300 + .179716D+00, .143439D+00, .112947D+00, .878406D-01,
2301 + .671009D-01, .503181D-01, .369424D-01, .264599D-01,
2302 + .184132D-01, .123737D-01, .798496D-02, .488108D-02,
2303 + .280109D-02, .147556D-02, .692523D-03, .275106D-03,
2304 + .846499D-04, .171322D-04, .160128D-05, .000000D+00 /
2305 DATA (UPDI(I),I=8373,8424) /
2306 + .112303D+07, .847441D+06, .628315D+06, .465654D+06,
2307 + .344989D+06, .255473D+06, .189123D+06, .139944D+06,
2308 + .103522D+06, .765485D+05, .565891D+05, .418196D+05,
2309 + .308996D+05, .228254D+05, .168603D+05, .124528D+05,
2310 + .919876D+04, .679583D+04, .502269D+04, .371383D+04,
2311 + .274832D+04, .203567D+04, .150990D+04, .112170D+04,
2312 + .835105D+03, .623294D+03, .466815D+03, .349494D+03,
2313 + .263961D+03, .200406D+03, .153110D+03, .117791D+03,
2314 + .913410D+02, .714970D+02, .564677D+02, .450485D+02,
2315 + .363228D+02, .295995D+02, .243805D+02, .202864D+02,
2316 + .170498D+02, .144568D+02, .123584D+02, .106393D+02,
2317 + .921590D+01, .802342D+01, .701785D+01, .615276D+01,
2318 + .541151D+01, .476322D+01, .419836D+01, .370138D+01 /
2319 DATA (UPDI(I),I=8425,8476) /
2320 + .326225D+01, .287279D+01, .252649D+01, .221798D+01,
2321 + .194286D+01, .169746D+01, .147863D+01, .128371D+01,
2322 + .111033D+01, .956465D+00, .820063D+00, .700140D+00,
2323 + .593903D+00, .500790D+00, .419507D+00, .348912D+00,
2324 + .287917D+00, .235539D+00, .190848D+00, .153022D+00,
2325 + .121272D+00, .947917D-01, .731641D-01, .554469D-01,
2326 + .412341D-01, .300090D-01, .212954D-01, .146734D-01,
2327 + .975594D-02, .622367D-02, .375648D-02, .212569D-02,
2328 + .110221D-02, .508021D-03, .197608D-03, .593539D-04,
2329 + .117453D-04, .111078D-05, .000000D+00, .142839D+07,
2330 + .107448D+07, .793675D+06, .585964D+06, .432432D+06,
2331 + .318953D+06, .235156D+06, .173282D+06, .127637D+06,
2332 + .939679D+05, .691555D+05, .508715D+05, .374107D+05 /
2333 DATA (UPDI(I),I=8477,8528) /
2334 + .275015D+05, .202132D+05, .148529D+05, .109140D+05,
2335 + .801938D+04, .589396D+04, .433306D+04, .318761D+04,
2336 + .234670D+04, .172970D+04, .127672D+04, .944247D+03,
2337 + .699978D+03, .520627D+03, .387006D+03, .290213D+03,
2338 + .218760D+03, .165932D+03, .126744D+03, .975888D+02,
2339 + .758598D+02, .595080D+02, .471629D+02, .377863D+02,
2340 + .306038D+02, .250585D+02, .207309D+02, .173258D+02,
2341 + .146101D+02, .124216D+02, .106361D+02, .916341D+01,
2342 + .793468D+01, .690279D+01, .601887D+01, .526488D+01,
2343 + .460863D+01, .403969D+01, .354176D+01, .310420D+01,
2344 + .271836D+01, .237727D+01, .207526D+01, .180757D+01,
2345 + .157031D+01, .136009D+01, .117404D+01, .100962D+01,
2346 + .864676D+00, .737022D+00, .625537D+00, .527439D+00 /
2347 DATA (UPDI(I),I=8529,8580) /
2348 + .442045D+00, .368015D+00, .304166D+00, .249387D+00,
2349 + .202685D+00, .163128D+00, .129896D+00, .102216D+00,
2350 + .793087D-01, .607498D-01, .456726D-01, .336825D-01,
2351 + .242984D-01, .170830D-01, .116544D-01, .766620D-02,
2352 + .483434D-02, .288098D-02, .160749D-02, .820407D-03,
2353 + .371351D-03, .141455D-03, .414910D-04, .803512D-05,
2354 + .768762D-06, .000000D+00, .179189D+07, .134372D+07,
2355 + .988868D+06, .727321D+06, .534687D+06, .392827D+06,
2356 + .288462D+06, .211693D+06, .155279D+06, .113831D+06,
2357 + .834077D+05, .610816D+05, .447137D+05, .327160D+05,
2358 + .239303D+05, .174976D+05, .127923D+05, .935067D+04,
2359 + .683573D+04, .499787D+04, .365594D+04, .267589D+04,
2360 + .196061D+04, .143833D+04, .105711D+04, .778618D+03 /
2361 DATA (UPDI(I),I=8581,8632) /
2362 + .575334D+03, .424793D+03, .316410D+03, .236895D+03,
2363 + .178469D+03, .135402D+03, .103560D+03, .799764D+02,
2364 + .623363D+02, .490983D+02, .391006D+02, .314844D+02,
2365 + .256342D+02, .210909D+02, .175319D+02, .147056D+02,
2366 + .124369D+02, .105933D+02, .907854D+01, .781960D+01,
2367 + .676657D+01, .586835D+01, .510556D+01, .444479D+01,
2368 + .387475D+01, .337846D+01, .294470D+01, .256436D+01,
2369 + .223008D+01, .193586D+01, .167667D+01, .144835D+01,
2370 + .124733D+01, .107055D+01, .915331D+00, .779379D+00,
2371 + .660426D+00, .557223D+00, .467021D+00, .389029D+00,
2372 + .321877D+00, .264361D+00, .215362D+00, .173885D+00,
2373 + .139009D+00, .109927D+00, .858873D-01, .661472D-01,
2374 + .502825D-01, .375012D-01, .274251D-01, .196101D-01 /
2375 DATA (UPDI(I),I=8633,8684) /
2376 + .136584D-01, .922548D-02, .600354D-02, .374214D-02,
2377 + .220175D-02, .121126D-02, .608450D-03, .270470D-03,
2378 + .100905D-03, .289143D-04, .548470D-05, .530785D-06,
2379 + .000000D+00, .222072D+07, .166016D+07, .121723D+07,
2380 + .891935D+06, .653201D+06, .478037D+06, .349645D+06,
2381 + .255560D+06, .186685D+06, .136280D+06, .994297D+05,
2382 + .724968D+05, .528328D+05, .384801D+05, .280148D+05,
2383 + .203862D+05, .148310D+05, .107864D+05, .784471D+04,
2384 + .570528D+04, .415080D+04, .302120D+04, .220100D+04,
2385 + .160525D+04, .117275D+04, .858505D+03, .630417D+03,
2386 + .462485D+03, .342287D+03, .254626D+03, .190595D+03,
2387 + .143679D+03, .109197D+03, .838097D+02, .649291D+02,
2388 + .508404D+02, .402573D+02, .322369D+02, .261058D+02 /
2389 DATA (UPDI(I),I=8685,8736) /
2390 + .213662D+02, .176690D+02, .147448D+02, .124063D+02,
2391 + .105132D+02, .896346D+01, .768034D+01, .661130D+01,
2392 + .570321D+01, .493540D+01, .427341D+01, .370509D+01,
2393 + .321287D+01, .278495D+01, .241183D+01, .208576D+01,
2394 + .180046D+01, .155063D+01, .133192D+01, .114054D+01,
2395 + .973302D+00, .827399D+00, .700425D+00, .590042D+00,
2396 + .494902D+00, .412296D+00, .341351D+00, .280682D+00,
2397 + .229075D+00, .185418D+00, .148724D+00, .118093D+00,
2398 + .927403D-01, .719429D-01, .549968D-01, .414870D-01,
2399 + .306932D-01, .222577D-01, .157745D-01, .108841D-01,
2400 + .727811D-02, .468537D-02, .288662D-02, .167672D-02,
2401 + .909435D-03, .449620D-03, .196283D-03, .717292D-04,
2402 + .200876D-04, .373534D-05, .365587D-06, .000000D+00 /
2403 DATA (UPDI(I),I=8737,8788) /
2404 + .272205D+07, .202871D+07, .148200D+07, .108191D+07,
2405 + .789328D+06, .575440D+06, .419240D+06, .305208D+06,
2406 + .222049D+06, .161427D+06, .117281D+06, .851458D+05,
2407 + .617791D+05, .447949D+05, .324633D+05, .235131D+05,
2408 + .170241D+05, .123211D+05, .891602D+04, .645126D+04,
2409 + .466893D+04, .338011D+04, .244896D+04, .177607D+04,
2410 + .129011D+04, .938877D+03, .685335D+03, .499702D+03,
2411 + .367583D+03, .271775D+03, .202189D+03, .151497D+03,
2412 + .114450D+03, .873273D+02, .672667D+02, .523779D+02,
2413 + .412504D+02, .328589D+02, .264731D+02, .215579D+02,
2414 + .177388D+02, .147297D+02, .123321D+02, .103981D+02,
2415 + .882049D+01, .751915D+01, .643912D+01, .552544D+01,
2416 + .475626D+01, .409616D+01, .353221D+01, .304627D+01 /
2417 DATA (UPDI(I),I=8789,8840) /
2418 + .262606D+01, .226167D+01, .194505D+01, .166962D+01,
2419 + .142988D+01, .122127D+01, .103985D+01, .882309D+00,
2420 + .745732D+00, .627630D+00, .525616D+00, .438260D+00,
2421 + .362912D+00, .298631D+00, .244033D+00, .197907D+00,
2422 + .159158D+00, .126819D+00, .100019D+00, .780011D-01,
2423 + .600760D-01, .455832D-01, .341220D-01, .250410D-01,
2424 + .180058D-01, .126477D-01, .864452D-02, .572253D-02,
2425 + .364417D-02, .221898D-02, .127240D-02, .680387D-03,
2426 + .331060D-03, .141935D-03, .508142D-04, .139129D-04,
2427 + .253823D-05, .251196D-06, .000000D+00, .330282D+07,
2428 + .245408D+07, .178619D+07, .129916D+07, .944274D+06,
2429 + .685779D+06, .497692D+06, .360897D+06, .261514D+06,
2430 + .189343D+06, .136993D+06, .990368D+05, .715488D+05 /
2431 DATA (UPDI(I),I=8841,8892) /
2432 + .516513D+05, .372648D+05, .268676D+05, .193623D+05,
2433 + .139466D+05, .100432D+05, .723076D+04, .520649D+04,
2434 + .374971D+04, .270233D+04, .194921D+04, .140806D+04,
2435 + .101894D+04, .739531D+03, .536063D+03, .392038D+03,
2436 + .288169D+03, .213139D+03, .158782D+03, .119272D+03,
2437 + .905023D+02, .693338D+02, .537028D+02, .420768D+02,
2438 + .333498D+02, .267370D+02, .216678D+02, .177437D+02,
2439 + .146631D+02, .122169D+02, .102505D+02, .865210D+01,
2440 + .733835D+01, .625219D+01, .533703D+01, .456993D+01,
2441 + .391464D+01, .335751D+01, .287989D+01, .246904D+01,
2442 + .211472D+01, .180859D+01, .154383D+01, .131474D+01,
2443 + .111659D+01, .945327D+00, .797521D+00, .670188D+00,
2444 + .560776D+00, .466869D+00, .386973D+00, .318512D+00 /
2445 DATA (UPDI(I),I=8893,8944) /
2446 + .260493D+00, .211545D+00, .170474D+00, .136211D+00,
2447 + .107817D+00, .844567D-01, .654052D-01, .500130D-01,
2448 + .376642D-01, .279769D-01, .203653D-01, .145196D-01,
2449 + .101079D-01, .684332D-02, .448449D-02, .282481D-02,
2450 + .169993D-02, .962231D-03, .507240D-03, .242902D-03,
2451 + .102276D-03, .358770D-04, .960770D-05, .172100D-05,
2452 + .172191D-06, .000000D+00, .159314D+05, .257178D+05,
2453 + .206374D+05, .165624D+05, .132936D+05, .106714D+05,
2454 + .856784D+04, .688015D+04, .552603D+04, .443947D+04,
2455 + .356751D+04, .286771D+04, .230599D+04, .185506D+04,
2456 + .149301D+04, .120226D+04, .968736D+03, .781122D+03,
2457 + .630357D+03, .509167D+03, .411719D+03, .333330D+03,
2458 + .270245D+03, .219452D+03, .178531D+03, .145542D+03 /
2459 DATA (UPDI(I),I=8945,8996) /
2460 + .118928D+03, .971636D+02, .798514D+02, .658400D+02,
2461 + .544844D+02, .452668D+02, .377709D+02, .316785D+02,
2462 + .266877D+02, .226001D+02, .192405D+02, .164682D+02,
2463 + .141697D+02, .122532D+02, .106480D+02, .929256D+01,
2464 + .814061D+01, .715458D+01, .630453D+01, .556671D+01,
2465 + .492446D+01, .435662D+01, .385820D+01, .341351D+01,
2466 + .301939D+01, .266787D+01, .235385D+01, .207305D+01,
2467 + .182186D+01, .159723D+01, .139651D+01, .121737D+01,
2468 + .105777D+01, .915860D+00, .789974D+00, .678594D+00,
2469 + .580330D+00, .494282D+00, .418399D+00, .352168D+00,
2470 + .294597D+00, .244782D+00, .201891D+00, .165165D+00,
2471 + .133909D+00, .107490D+00, .853144D-01, .668441D-01,
2472 + .517455D-01, .393561D-01, .293942D-01, .214979D-01 /
2473 DATA (UPDI(I),I=8997,9048) /
2474 + .153426D-01, .106382D-01, .712635D-02, .458176D-02,
2475 + .279041D-02, .159418D-02, .835358D-03, .388985D-03,
2476 + .152649D-03, .457073D-04, .835368D-05, .456436D-06,
2477 + .000000D+00, .900584D+05, .702560D+05, .541706D+05,
2478 + .418022D+05, .322866D+05, .249583D+05, .193117D+05,
2479 + .149561D+05, .115948D+05, .899763D+04, .698991D+04,
2480 + .543595D+04, .423253D+04, .329936D+04, .257534D+04,
2481 + .201281D+04, .157549D+04, .123499D+04, .969720D+03,
2482 + .762722D+03, .601092D+03, .474663D+03, .375690D+03,
2483 + .298066D+03, .237126D+03, .189196D+03, .151459D+03,
2484 + .121291D+03, .978276D+02, .792268D+02, .644607D+02,
2485 + .526982D+02, .433102D+02, .358078D+02, .297647D+02,
2486 + .248884D+02, .209400D+02, .177237D+02, .150917D+02 /
2487 DATA (UPDI(I),I=9049,9100) /
2488 + .129218D+02, .111251D+02, .962305D+01, .835942D+01,
2489 + .728751D+01, .637205D+01, .558418D+01, .490438D+01,
2490 + .430820D+01, .378938D+01, .333016D+01, .292648D+01,
2491 + .256925D+01, .225265D+01, .197170D+01, .172229D+01,
2492 + .150091D+01, .130453D+01, .113053D+01, .976599D+00,
2493 + .840694D+00, .720963D+00, .615772D+00, .523568D+00,
2494 + .443380D+00, .373125D+00, .312218D+00, .259625D+00,
2495 + .214425D+00, .175768D+00, .142896D+00, .115111D+00,
2496 + .917921D-01, .723650D-01, .562998D-01, .432680D-01,
2497 + .326591D-01, .241981D-01, .175499D-01, .124135D-01,
2498 + .852623D-02, .565279D-02, .359435D-02, .216409D-02,
2499 + .122156D-02, .631288D-03, .289357D-03, .111448D-03,
2500 + .326578D-04, .585018D-05, .324957D-06, .000000D+00 /
2501 DATA (UPDI(I),I=9101,9152) /
2502 + .160100D+06, .123650D+06, .942331D+05, .718479D+05,
2503 + .548126D+05, .418374D+05, .319547D+05, .244207D+05,
2504 + .186769D+05, .142936D+05, .109483D+05, .839256D+04,
2505 + .643973D+04, .494584D+04, .380286D+04, .292722D+04,
2506 + .225625D+04, .174136D+04, .134614D+04, .104228D+04,
2507 + .808596D+03, .628541D+03, .489735D+03, .382513D+03,
2508 + .299625D+03, .235418D+03, .185642D+03, .146443D+03,
2509 + .116413D+03, .929508D+02, .745968D+02, .601796D+02,
2510 + .488320D+02, .398827D+02, .327679D+02, .270964D+02,
2511 + .225590D+02, .189036D+02, .159447D+02, .135294D+02,
2512 + .115491D+02, .990825D+01, .854017D+01, .738922D+01,
2513 + .641439D+01, .558197D+01, .486938D+01, .424915D+01,
2514 + .371354D+01, .324294D+01, .283234D+01, .247162D+01 /
2515 DATA (UPDI(I),I=9153,9204) /
2516 + .215422D+01, .187456D+01, .162803D+01, .141072D+01,
2517 + .121924D+01, .105073D+01, .902643D+00, .772751D+00,
2518 + .659054D+00, .559819D+00, .473369D+00, .398666D+00,
2519 + .333622D+00, .277591D+00, .229513D+00, .188458D+00,
2520 + .153572D+00, .124101D+00, .993530D-01, .787247D-01,
2521 + .616611D-01, .476479D-01, .363642D-01, .272483D-01,
2522 + .200351D-01, .144144D-01, .101094D-01, .688161D-02,
2523 + .451833D-02, .284353D-02, .169115D-02, .941396D-03,
2524 + .478979D-03, .215729D-03, .813910D-04, .232836D-04,
2525 + .407883D-05, .231106D-06, .000000D+00, .244400D+06,
2526 + .187716D+06, .142126D+06, .107630D+06, .815350D+05,
2527 + .617807D+05, .468317D+05, .355104D+05, .269391D+05,
2528 + .204444D+05, .155247D+05, .117946D+05, .896716D+04 /
2529 DATA (UPDI(I),I=9205,9256) /
2530 + .682181D+04, .519432D+04, .395830D+04, .301972D+04,
2531 + .230609D+04, .176354D+04, .135045D+04, .103594D+04,
2532 + .796079D+03, .613102D+03, .473256D+03, .366320D+03,
2533 + .284393D+03, .221592D+03, .172690D+03, .135651D+03,
2534 + .107040D+03, .849122D+02, .677250D+02, .543476D+02,
2535 + .439125D+02, .357057D+02, .292316D+02, .241048D+02,
2536 + .200144D+02, .167346D+02, .140812D+02, .119246D+02,
2537 + .101523D+02, .868641D+01, .746263D+01, .643394D+01,
2538 + .556190D+01, .482082D+01, .418032D+01, .363114D+01,
2539 + .315195D+01, .273674D+01, .237445D+01, .205782D+01,
2540 + .178070D+01, .153801D+01, .132547D+01, .113939D+01,
2541 + .976677D+00, .834568D+00, .710696D+00, .602932D+00,
2542 + .509455D+00, .428500D+00, .358969D+00, .298787D+00 /
2543 DATA (UPDI(I),I=9257,9308) /
2544 + .247260D+00, .203311D+00, .166013D+00, .134514D+00,
2545 + .108069D+00, .860040D-01, .677315D-01, .527190D-01,
2546 + .404723D-01, .306808D-01, .228281D-01, .166613D-01,
2547 + .118946D-01, .827399D-02, .558350D-02, .363181D-02,
2548 + .226292D-02, .133118D-02, .732260D-03, .367691D-03,
2549 + .163221D-03, .605958D-04, .170544D-04, .296205D-05,
2550 + .172737D-06, .000000D+00, .250163D+06, .264505D+06,
2551 + .199311D+06, .150188D+06, .113191D+06, .853095D+05,
2552 + .643098D+05, .484830D+05, .365616D+05, .275756D+05,
2553 + .208059D+05, .157020D+05, .118559D+05, .895526D+04,
2554 + .676866D+04, .511877D+04, .387436D+04, .293476D+04,
2555 + .222554D+04, .168956D+04, .128461D+04, .978192D+03,
2556 + .746341D+03, .570615D+03, .437390D+03, .336211D+03 /
2557 DATA (UPDI(I),I=9309,9360) /
2558 + .259349D+03, .200045D+03, .155544D+03, .121490D+03,
2559 + .953999D+02, .753277D+02, .598521D+02, .478942D+02,
2560 + .385770D+02, .312943D+02, .255786D+02, .210580D+02,
2561 + .174639D+02, .145800D+02, .122544D+02, .103578D+02,
2562 + .880063D+01, .750994D+01, .643259D+01, .552557D+01,
2563 + .475996D+01, .410267D+01, .354284D+01, .305757D+01,
2564 + .263982D+01, .227767D+01, .196317D+01, .168966D+01,
2565 + .145163D+01, .124445D+01, .106417D+01, .907480D+00,
2566 + .771451D+00, .653582D+00, .551643D+00, .463739D+00,
2567 + .388044D+00, .323406D+00, .267783D+00, .220435D+00,
2568 + .180286D+00, .146414D+00, .117978D+00, .942498D-01,
2569 + .745719D-01, .583796D-01, .451631D-01, .344515D-01,
2570 + .259460D-01, .191729D-01, .138931D-01, .984371D-02 /
2571 DATA (UPDI(I),I=9361,9412) /
2572 + .679285D-02, .454530D-02, .292964D-02, .180772D-02,
2573 + .105211D-02, .572075D-03, .283589D-03, .124117D-03,
2574 + .453591D-04, .125623D-04, .216036D-05, .129239D-06,
2575 + .000000D+00, .486029D+06, .370387D+06, .277841D+06,
2576 + .208391D+06, .156299D+06, .117213D+06, .879029D+05,
2577 + .659157D+05, .494319D+05, .370689D+05, .278019D+05,
2578 + .208526D+05, .156442D+05, .117386D+05, .881149D+04,
2579 + .661638D+04, .497102D+04, .373683D+04, .281145D+04,
2580 + .211702D+04, .159606D+04, .120482D+04, .911035D+03,
2581 + .690134D+03, .524010D+03, .398901D+03, .304676D+03,
2582 + .232619D+03, .179032D+03, .138405D+03, .107564D+03,
2583 + .840624D+02, .661113D+02, .523733D+02, .417687D+02,
2584 + .335580D+02, .271726D+02, .221684D+02, .182243D+02 /
2585 DATA (UPDI(I),I=9413,9464) /
2586 + .150870D+02, .125778D+02, .105482D+02, .889468D+01,
2587 + .753476D+01, .640807D+01, .546654D+01, .467756D+01,
2588 + .400509D+01, .343642D+01, .294700D+01, .252863D+01,
2589 + .216848D+01, .185787D+01, .158960D+01, .135771D+01,
2590 + .115723D+01, .983928D+00, .834294D+00, .705235D+00,
2591 + .594127D+00, .498652D+00, .416847D+00, .346841D+00,
2592 + .287437D+00, .236640D+00, .193674D+00, .157473D+00,
2593 + .127128D+00, .101818D+00, .808379D-01, .635551D-01,
2594 + .494316D-01, .379857D-01, .287749D-01, .215156D-01,
2595 + .157794D-01, .113440D-01, .797092D-02, .545213D-02,
2596 + .361401D-02, .230579D-02, .140725D-02, .809143D-03,
2597 + .434087D-03, .211924D-03, .911316D-04, .326123D-04,
2598 + .880578D-05, .147310D-05, .887448D-07, .000000D+00 /
2599 DATA (UPDI(I),I=9465,9516) /
2600 + .658317D+06, .499955D+06, .373506D+06, .278968D+06,
2601 + .208328D+06, .155533D+06, .116103D+06, .866482D+05,
2602 + .646605D+05, .482429D+05, .359928D+05, .268499D+05,
2603 + .200307D+05, .149430D+05, .111496D+05, .832017D+04,
2604 + .621101D+04, .463800D+04, .346550D+04, .259100D+04,
2605 + .193907D+04, .145265D+04, .108983D+04, .818913D+03,
2606 + .616622D+03, .465389D+03, .352349D+03, .266579D+03,
2607 + .203302D+03, .155719D+03, .119893D+03, .928233D+02,
2608 + .723200D+02, .567638D+02, .448567D+02, .357167D+02,
2609 + .286675D+02, .231893D+02, .189063D+02, .155266D+02,
2610 + .128443D+02, .106911D+02, .894965D+01, .752787D+01,
2611 + .635822D+01, .538766D+01, .457996D+01, .389629D+01,
2612 + .332210D+01, .283130D+01, .241458D+01, .205828D+01 /
2613 DATA (UPDI(I),I=9517,9568) /
2614 + .175304D+01, .149116D+01, .126627D+01, .107312D+01,
2615 + .907235D+00, .764923D+00, .642960D+00, .538627D+00,
2616 + .449539D+00, .373685D+00, .309172D+00, .254771D+00,
2617 + .208542D+00, .169686D+00, .137157D+00, .110064D+00,
2618 + .876134D-01, .691261D-01, .539994D-01, .417233D-01,
2619 + .318456D-01, .239538D-01, .177808D-01, .129410D-01,
2620 + .922932D-02, .643064D-02, .435959D-02, .286259D-02,
2621 + .180788D-02, .109140D-02, .620091D-03, .328364D-03,
2622 + .158016D-03, .668730D-04, .235109D-04, .623177D-05,
2623 + .102871D-05, .635486D-07, .000000D+00, .868393D+06,
2624 + .657345D+06, .489186D+06, .363918D+06, .270658D+06,
2625 + .201220D+06, .149561D+06, .111123D+06, .825461D+05,
2626 + .612980D+05, .455116D+05, .337816D+05, .250723D+05 /
2627 DATA (UPDI(I),I=9569,9620) /
2628 + .186049D+05, .138060D+05, .102443D+05, .760273D+04,
2629 + .564307D+04, .419023D+04, .311271D+04, .231402D+04,
2630 + .172165D+04, .128249D+04, .956634D+03, .714895D+03,
2631 + .535371D+03, .402106D+03, .301711D+03, .228179D+03,
2632 + .173298D+03, .132285D+03, .101535D+03, .784229D+02,
2633 + .610259D+02, .478132D+02, .377512D+02, .300506D+02,
2634 + .241127D+02, .195049D+02, .158962D+02, .130526D+02,
2635 + .107864D+02, .896608D+01, .749019D+01, .628416D+01,
2636 + .529012D+01, .446835D+01, .377738D+01, .320086D+01,
2637 + .271134D+01, .229843D+01, .194769D+01, .164917D+01,
2638 + .139471D+01, .117759D+01, .992303D+00, .834181D+00,
2639 + .699384D+00, .584584D+00, .486992D+00, .404177D+00,
2640 + .334101D+00, .274865D+00, .225221D+00, .183297D+00 /
2641 DATA (UPDI(I),I=9621,9672) /
2642 + .148280D+00, .119148D+00, .950404D-01, .751925D-01,
2643 + .589557D-01, .457595D-01, .351240D-01, .266271D-01,
2644 + .198872D-01, .146548D-01, .105846D-01, .748840D-02,
2645 + .517380D-02, .347638D-02, .226110D-02, .141353D-02,
2646 + .844076D-03, .473886D-03, .247705D-03, .117506D-03,
2647 + .489500D-04, .169147D-04, .440494D-05, .718692D-06,
2648 + .455448D-07, .000000D+00, .112269D+07, .847142D+06,
2649 + .628050D+06, .465420D+06, .344781D+06, .255289D+06,
2650 + .188961D+06, .139800D+06, .103396D+06, .764370D+05,
2651 + .564907D+05, .417328D+05, .308232D+05, .227581D+05,
2652 + .168010D+05, .124006D+05, .915279D+04, .675538D+04,
2653 + .498708D+04, .368248D+04, .272070D+04, .201133D+04,
2654 + .148843D+04, .110273D+04, .818325D+03, .608418D+03 /
2655 DATA (UPDI(I),I=9673,9724) /
2656 + .453600D+03, .337740D+03, .253455D+03, .190982D+03,
2657 + .144621D+03, .110111D+03, .843591D+02, .651170D+02,
2658 + .506089D+02, .396420D+02, .313094D+02, .249308D+02,
2659 + .200160D+02, .161938D+02, .132025D+02, .108345D+02,
2660 + .894505D+01, .742311D+01, .618741D+01, .517546D+01,
2661 + .434421D+01, .364972D+01, .307396D+01, .258820D+01,
2662 + .218107D+01, .183745D+01, .154684D+01, .130068D+01,
2663 + .109197D+01, .914968D+00, .764859D+00, .637686D+00,
2664 + .530046D+00, .439103D+00, .362405D+00, .297901D+00,
2665 + .243705D+00, .198562D+00, .160673D+00, .129224D+00,
2666 + .103225D+00, .818454D-01, .643572D-01, .501445D-01,
2667 + .386708D-01, .294870D-01, .222021D-01, .164650D-01,
2668 + .120445D-01, .863265D-02, .605853D-02, .415062D-02 /
2669 DATA (UPDI(I),I=9725,9776) /
2670 + .276406D-02, .178078D-02, .110196D-02, .650872D-03,
2671 + .361087D-03, .186313D-03, .871327D-04, .357329D-04,
2672 + .121393D-04, .310735D-05, .501251D-06, .325680D-07,
2673 + .000000D+00, .142803D+07, .107417D+07, .793392D+06,
2674 + .585714D+06, .432211D+06, .318758D+06, .234983D+06,
2675 + .173129D+06, .127502D+06, .938491D+05, .690507D+05,
2676 + .507792D+05, .373293D+05, .274297D+05, .201500D+05,
2677 + .147973D+05, .108650D+05, .797622D+04, .585595D+04,
2678 + .429957D+04, .315809D+04, .232065D+04, .170670D+04,
2679 + .125639D+04, .926237D+03, .683995D+03, .506413D+03,
2680 + .374352D+03, .278894D+03, .208601D+03, .156779D+03,
2681 + .118465D+03, .900676D+02, .689953D+02, .532160D+02,
2682 + .413712D+02, .324328D+02, .256374D+02, .204363D+02 /
2683 DATA (UPDI(I),I=9777,9828) /
2684 + .164184D+02, .132940D+02, .108367D+02, .888804D+01,
2685 + .732832D+01, .606973D+01, .504538D+01, .420911D+01,
2686 + .351474D+01, .294261D+01, .246294D+01, .206339D+01,
2687 + .172827D+01, .144659D+01, .120949D+01, .100968D+01,
2688 + .841281D+00, .699339D+00, .579819D+00, .479273D+00,
2689 + .394840D+00, .324063D+00, .264899D+00, .215489D+00,
2690 + .174581D+00, .140458D+00, .112309D+00, .891842D-01,
2691 + .702882D-01, .549310D-01, .425315D-01, .325887D-01,
2692 + .246850D-01, .184599D-01, .135926D-01, .987057D-02,
2693 + .702019D-02, .488728D-02, .331992D-02, .219112D-02,
2694 + .139826D-02, .856454D-03, .500360D-03, .274299D-03,
2695 + .139712D-03, .644190D-04, .260108D-04, .868981D-05,
2696 + .218725D-05, .348929D-06, .232310D-07, .000000D+00 /
2697 DATA (UPDI(I),I=9829,9880) /
2698 + .179150D+07, .134338D+07, .988567D+06, .727055D+06,
2699 + .534451D+06, .392619D+06, .288278D+06, .211531D+06,
2700 + .155136D+06, .113704D+06, .832961D+05, .609833D+05,
2701 + .446270D+05, .326396D+05, .238630D+05, .174383D+05,
2702 + .127400D+05, .930465D+04, .679517D+04, .496211D+04,
2703 + .362440D+04, .264805D+04, .193600D+04, .141655D+04,
2704 + .103781D+04, .761469D+03, .560072D+03, .411198D+03,
2705 + .304244D+03, .225974D+03, .168632D+03, .126509D+03,
2706 + .954893D+02, .726220D+02, .556097D+02, .429235D+02,
2707 + .334120D+02, .262280D+02, .207641D+02, .165698D+02,
2708 + .133282D+02, .107943D+02, .879694D+01, .720780D+01,
2709 + .593303D+01, .490167D+01, .406467D+01, .337385D+01,
2710 + .280806D+01, .233657D+01, .194622D+01, .162080D+01 /
2711 DATA (UPDI(I),I=9881,9932) /
2712 + .134893D+01, .112148D+01, .930966D+00, .771369D+00,
2713 + .637662D+00, .525754D+00, .432178D+00, .354070D+00,
2714 + .288989D+00, .234913D+00, .190021D+00, .153079D+00,
2715 + .122451D+00, .973409D-01, .768411D-01, .601959D-01,
2716 + .467547D-01, .359732D-01, .273857D-01, .206062D-01,
2717 + .153043D-01, .111888D-01, .806536D-02, .569206D-02,
2718 + .393071D-02, .264748D-02, .173167D-02, .109455D-02,
2719 + .663596D-03, .383463D-03, .207726D-03, .104446D-03,
2720 + .474836D-04, .188798D-04, .620441D-05, .153617D-05,
2721 + .242421D-06, .165299D-07, .000000D+00, .222031D+07,
2722 + .165980D+07, .121691D+07, .891651D+06, .652950D+06,
2723 + .477815D+06, .349449D+06, .255387D+06, .186533D+06,
2724 + .136145D+06, .993109D+05, .723921D+05, .527405D+05 /
2725 DATA (UPDI(I),I=9933,9984) /
2726 + .383987D+05, .279432D+05, .203230D+05, .147753D+05,
2727 + .107374D+05, .780146D+04, .566712D+04, .411712D+04,
2728 + .299145D+04, .217469D+04, .158195D+04, .115208D+04,
2729 + .840134D+03, .614060D+03, .447910D+03, .329242D+03,
2730 + .242918D+03, .180054D+03, .134159D+03, .100569D+03,
2731 + .759617D+02, .577683D+02, .442863D+02, .342404D+02,
2732 + .266996D+02, .209989D+02, .166491D+02, .133070D+02,
2733 + .107096D+02, .867400D+01, .706373D+01, .577936D+01,
2734 + .474618D+01, .391253D+01, .322846D+01, .267148D+01,
2735 + .221007D+01, .183033D+01, .151564D+01, .125430D+01,
2736 + .103696D+01, .856008D+00, .705323D+00, .579836D+00,
2737 + .475435D+00, .388656D+00, .316652D+00, .257016D+00,
2738 + .207758D+00, .167110D+00, .133860D+00, .106462D+00 /
2739 DATA (UPDI(I),I=9985,10036) /
2740 + .841369D-01, .660244D-01, .514101D-01, .396847D-01,
2741 + .303409D-01, .229484D-01, .171524D-01, .126518D-01,
2742 + .918341D-02, .657101D-02, .460156D-02, .315194D-02,
2743 + .210488D-02, .136440D-02, .854175D-03, .512580D-03,
2744 + .292967D-03, .156825D-03, .778428D-04, .348960D-04,
2745 + .136648D-04, .441845D-05, .107651D-05, .168099D-06,
2746 + .117332D-07, .000000D+00, .272162D+07, .202833D+07,
2747 + .148166D+07, .108160D+07, .789060D+06, .575204D+06,
2748 + .419031D+06, .305024D+06, .221887D+06, .161284D+06,
2749 + .117155D+06, .850344D+05, .616809D+05, .447083D+05,
2750 + .323870D+05, .234458D+05, .169648D+05, .122688D+05,
2751 + .886991D+04, .641056D+04, .463299D+04, .334835D+04,
2752 + .242085D+04, .175117D+04, .126801D+04, .919227D+03 /
2753 DATA (UPDI(I),I=10037,10088) /
2754 + .667834D+03, .484107D+03, .353628D+03, .259257D+03,
2755 + .190928D+03, .141339D+03, .105258D+03, .789843D+02,
2756 + .596741D+02, .454502D+02, .349138D+02, .270514D+02,
2757 + .211417D+02, .166583D+02, .132326D+02, .105852D+02,
2758 + .852177D+01, .689849D+01, .561086D+01, .458079D+01,
2759 + .375430D+01, .307994D+01, .253399D+01, .208434D+01,
2760 + .171642D+01, .141332D+01, .116307D+01, .956182D+00,
2761 + .784943D+00, .643190D+00, .525839D+00, .428782D+00,
2762 + .348584D+00, .282434D+00, .227971D+00, .183252D+00,
2763 + .146568D+00, .116740D+00, .923110D-01, .725269D-01,
2764 + .565758D-01, .437863D-01, .335909D-01, .255192D-01,
2765 + .191762D-01, .142371D-01, .104291D-01, .751574D-02,
2766 + .533796D-02, .370906D-02, .251997D-02, .166849D-02 /
2767 DATA (UPDI(I),I=10089,10140) /
2768 + .107178D-02, .664565D-03, .394722D-03, .223143D-03,
2769 + .118035D-03, .578406D-04, .255701D-04, .986277D-05,
2770 + .313863D-05, .752737D-06, .116342D-06, .830853D-08,
2771 + .000000D+00, .330236D+07, .245367D+07, .178583D+07,
2772 + .129884D+07, .943989D+06, .685527D+06, .497471D+06,
2773 + .360702D+06, .261341D+06, .189191D+06, .136858D+06,
2774 + .989183D+05, .714443D+05, .515592D+05, .371836D+05,
2775 + .267961D+05, .192991D+05, .138909D+05, .999410D+04,
2776 + .718738D+04, .516816D+04, .371582D+04, .267233D+04,
2777 + .192263D+04, .138446D+04, .997954D+03, .720842D+03,
2778 + .519413D+03, .377147D+03, .274820D+03, .201143D+03,
2779 + .147977D+03, .109513D+03, .816650D+02, .613138D+02,
2780 + .464091D+02, .354305D+02, .272842D+02, .211947D+02 /
2781 DATA (UPDI(I),I=10141,10192) /
2782 + .166001D+02, .131082D+02, .104241D+02, .834299D+01,
2783 + .671456D+01, .542970D+01, .440738D+01, .359157D+01,
2784 + .292958D+01, .239664D+01, .196020D+01, .160512D+01,
2785 + .131428D+01, .107555D+01, .879328D+00, .717862D+00,
2786 + .584978D+00, .475613D+00, .385691D+00, .311824D+00,
2787 + .251253D+00, .201678D+00, .161212D+00, .128212D+00,
2788 + .101541D+00, .798282D-01, .623519D-01, .483490D-01,
2789 + .371921D-01, .283552D-01, .214049D-01, .159796D-01,
2790 + .117843D-01, .857269D-02, .613342D-02, .432385D-02,
2791 + .298101D-02, .200882D-02, .131867D-02, .839420D-03,
2792 + .515498D-03, .303051D-03, .169449D-03, .885744D-04,
2793 + .428514D-04, .186829D-04, .709932D-05, .222405D-05,
2794 + .525226D-06, .803740D-07, .586984D-08, .000000D+00 /
2795 C-----------------------------------------------------------------------
2801 Amass(I) = AmassI(I)
2823 QL(Iq) = Log (QL(Iq) /Al)
2826 C Since quark = anti-quark for nfl>2 at this stage,
2827 C we Read out only the non-redundent data points
2828 C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence)
2830 Nblk = (NX+1) * (NT+1)
2831 Npts = Nblk * (NfMx+3)
2837 C ****************************
git://git.uio.no / u / mrichter / AliRoot.git / blob