1 C-----------------------------------------------------------------------
3 Subroutine Ctq5HJ (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 : CTEQ5HJ
20 DATA DrI, FlI, AlI / 2., 5., .2260 /
21 DATA (AmassI(I),I=1,6) / .000, .000, .200,
22 + 1.300, 4.500, 180.000 /
23 C DATA NX, NT, NfMx / 90, 13, 5 /
24 DATA QINII, QMAXI, (QLI(I), I =0, NTI) /
25 + .100000E+01, .100000E+05,
26 + .100000E+01, .130000E+01, .167097E+01, .222659E+01, .309171E+01,
27 + .450000E+01, .754288E+01, .138228E+02, .281243E+02, .646894E+02,
28 + .171811E+03, .540159E+03, .206963E+04, .100000E+05 /
29 DATA XMINI, (XVI(I), I =0, NXI) /
31 + .000000E+00, .999983E-05, .124433E-04, .154836E-04, .192668E-04,
32 + .239740E-04, .298310E-04, .371184E-04, .461852E-04, .574656E-04,
33 + .714994E-04, .889575E-04, .110674E-03, .137686E-03, .171280E-03,
34 + .213055E-03, .264997E-03, .329564E-03, .409809E-03, .509508E-03,
35 + .633332E-03, .787053E-03, .977784E-03, .121428E-02, .150728E-02,
36 + .186993E-02, .231825E-02, .288037E-02, .356397E-02, .440443E-02,
37 + .543508E-02, .669508E-02, .822984E-02, .100851E-01, .123281E-01,
38 + .150167E-01, .182174E-01, .219985E-01, .264278E-01, .315720E-01,
39 + .374800E-01, .442088E-01, .517931E-01, .602576E-01, .696136E-01,
40 + .798586E-01, .909356E-01, .102935E+00, .115681E+00, .129293E+00,
41 + .143599E+00, .158606E+00, .174271E+00, .190550E+00, .207405E+00,
42 + .224796E+00, .242685E+00, .261038E+00, .279820E+00, .299001E+00,
43 + .318550E+00, .338442E+00, .358653E+00, .379067E+00, .399881E+00,
44 + .420953E+00, .442266E+00, .463806E+00, .485559E+00, .507513E+00,
45 + .529656E+00, .551978E+00, .574483E+00, .597187E+00, .619860E+00,
46 + .642828E+00, .665921E+00, .689135E+00, .712467E+00, .735911E+00,
47 + .759464E+00, .783080E+00, .806909E+00, .830741E+00, .854673E+00,
48 + .878696E+00, .902804E+00, .926992E+00, .951257E+00, .975603E+00,
50 C Parton Distribution Table:
51 DATA (UPDI(I),I=1,52) /
52 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
53 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
54 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
55 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
56 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
57 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
58 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
59 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
60 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
61 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
62 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
63 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
64 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
65 DATA (UPDI(I),I=53,104) /
66 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
67 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
68 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
69 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
70 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
71 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
72 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
73 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
74 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
75 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
76 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
77 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
78 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
79 DATA (UPDI(I),I=105,156) /
80 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
81 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
82 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
83 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
84 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
85 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
86 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
87 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
88 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
89 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
90 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
91 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
92 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
93 DATA (UPDI(I),I=157,208) /
94 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
95 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
96 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
97 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
98 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
99 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
100 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
101 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
102 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
103 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
104 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
105 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
106 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
107 DATA (UPDI(I),I=209,260) /
108 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
109 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
110 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
111 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
112 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
113 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
114 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
115 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
116 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
117 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
118 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
119 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
120 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
121 DATA (UPDI(I),I=261,312) /
122 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
123 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
124 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
125 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
126 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
127 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
128 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
129 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
130 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
131 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
132 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
133 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
134 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
135 DATA (UPDI(I),I=313,364) /
136 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
137 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
138 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
139 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
140 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
141 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
142 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
143 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
144 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
145 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
146 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
147 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
148 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
149 DATA (UPDI(I),I=365,416) /
150 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
151 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
152 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
153 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
154 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
155 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
156 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
157 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
158 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
159 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
160 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
161 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
162 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
163 DATA (UPDI(I),I=417,468) /
164 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
165 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
166 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
167 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
168 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
169 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
170 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
171 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
172 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
173 + .000000E+00, .000000E+00, .000000E+00, .218875E+06,
174 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
175 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
176 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
177 DATA (UPDI(I),I=469,520) /
178 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
179 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
180 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
181 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
182 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
183 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
184 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
185 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
186 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
187 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
188 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
189 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
190 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
191 DATA (UPDI(I),I=521,572) /
192 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
193 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
194 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
195 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
196 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
197 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
198 + .000000E+00, .000000E+00, .121417E+06, .926265E+05,
199 + .695419E+05, .521635E+05, .391008E+05, .292798E+05,
200 + .219089E+05, .163761E+05, .122304E+05, .912381E+04,
201 + .680024E+04, .506218E+04, .376471E+04, .279607E+04,
202 + .207449E+04, .153692E+04, .113736E+04, .840370E+03,
203 + .620163E+03, .456894E+03, .336165E+03, .246897E+03,
204 + .181073E+03, .132548E+03, .968730E+02, .706682E+02 /
205 DATA (UPDI(I),I=573,624) /
206 + .514877E+02, .372650E+02, .270548E+02, .196027E+02,
207 + .141865E+02, .102489E+02, .739719E+01, .533739E+01,
208 + .384770E+01, .277267E+01, .200003E+01, .144346E+01,
209 + .104406E+01, .756407E+00, .550141E+00, .401255E+00,
210 + .293943E+00, .216144E+00, .159784E+00, .118607E+00,
211 + .886379E-01, .663749E-01, .500949E-01, .378767E-01,
212 + .288156E-01, .219942E-01, .168675E-01, .129748E-01,
213 + .100233E-01, .776071E-02, .602959E-02, .469374E-02,
214 + .366661E-02, .286833E-02, .225066E-02, .176809E-02,
215 + .139217E-02, .109870E-02, .866893E-03, .683512E-03,
216 + .538821E-03, .423836E-03, .332627E-03, .259695E-03,
217 + .201582E-03, .154999E-03, .117793E-03, .879986E-04,
218 + .647685E-04, .463223E-04, .320809E-04, .212718E-04 /
219 DATA (UPDI(I),I=625,676) /
220 + .133069E-04, .763976E-05, .381347E-05, .142555E-05,
221 + .789486E-07, .000000E+00, .000000E+00, .000000E+00,
222 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
223 + .000000E+00, .280801E+06, .213515E+06, .159690E+06,
224 + .119324E+06, .890956E+05, .664568E+05, .495305E+05,
225 + .368749E+05, .274290E+05, .203789E+05, .151266E+05,
226 + .112138E+05, .830464E+04, .614186E+04, .453726E+04,
227 + .334697E+04, .246595E+04, .181397E+04, .133261E+04,
228 + .977311E+03, .715734E+03, .523212E+03, .381888E+03,
229 + .278198E+03, .202322E+03, .146853E+03, .106446E+03,
230 + .766375E+02, .553441E+02, .398850E+02, .287053E+02,
231 + .206220E+02, .147983E+02, .106156E+02, .760664E+01,
232 + .544809E+01, .390525E+01, .280072E+01, .201261E+01 /
233 DATA (UPDI(I),I=677,728) /
234 + .144860E+01, .104653E+01, .758191E+00, .551620E+00,
235 + .402862E+00, .295749E+00, .218021E+00, .161796E+00,
236 + .120323E+00, .901741E-01, .677098E-01, .511534E-01,
237 + .387785E-01, .295360E-01, .225676E-01, .173170E-01,
238 + .133210E-01, .102835E-01, .795659E-02, .617865E-02,
239 + .480690E-02, .375224E-02, .293406E-02, .230071E-02,
240 + .180935E-02, .142365E-02, .112045E-02, .882550E-03,
241 + .694500E-03, .545991E-03, .427745E-03, .333812E-03,
242 + .258700E-03, .198756E-03, .150782E-03, .113245E-03,
243 + .833161E-04, .600106E-04, .420832E-04, .285867E-04,
244 + .186624E-04, .116103E-04, .681392E-05, .368477E-05,
245 + .180762E-05, .773541E-06, .270791E-06, .691132E-07,
246 + .914073E-08, .000000E+00, .000000E+00, .000000E+00 /
247 DATA (UPDI(I),I=729,780) /
248 + .486224E+06, .368478E+06, .274507E+06, .204312E+06,
249 + .151946E+06, .112885E+06, .837930E+05, .621294E+05,
250 + .460241E+05, .340530E+05, .251704E+05, .185809E+05,
251 + .137016E+05, .100897E+05, .742113E+04, .545022E+04,
252 + .399761E+04, .292742E+04, .214074E+04, .156274E+04,
253 + .113909E+04, .828743E+03, .601969E+03, .436379E+03,
254 + .315783E+03, .228046E+03, .164444E+03, .117766E+03,
255 + .845900E+02, .606324E+02, .433947E+02, .309998E+02,
256 + .221167E+02, .157729E+02, .112341E+02, .799721E+01,
257 + .569653E+01, .405961E+01, .289836E+01, .207258E+01,
258 + .148736E+01, .107038E+01, .773469E+00, .561076E+00,
259 + .409072E+00, .299510E+00, .220742E+00, .163049E+00,
260 + .121354E+00, .905066E-01, .679110E-01, .511410E-01 /
261 DATA (UPDI(I),I=781,832) /
262 + .386918E-01, .293706E-01, .223890E-01, .171127E-01,
263 + .131266E-01, .100939E-01, .779007E-02, .602471E-02,
264 + .467512E-02, .363505E-02, .283439E-02, .221688E-02,
265 + .173487E-02, .135834E-02, .106452E-02, .833662E-03,
266 + .652320E-03, .508824E-03, .395464E-03, .305388E-03,
267 + .233937E-03, .177156E-03, .132941E-03, .979166E-04,
268 + .707793E-04, .499907E-04, .343696E-04, .228738E-04,
269 + .146598E-04, .899844E-05, .521853E-05, .285127E-05,
270 + .144689E-05, .670696E-06, .277157E-06, .962611E-07,
271 + .228865E-07, .108265E-08, .000000E+00, .746829E+06,
272 + .564043E+06, .418514E+06, .310242E+06, .229789E+06,
273 + .170019E+06, .125682E+06, .928020E+05, .684570E+05,
274 + .504373E+05, .371215E+05, .272856E+05, .200328E+05 /
275 DATA (UPDI(I),I=833,884) /
276 + .146873E+05, .107547E+05, .786312E+04, .574123E+04,
277 + .418503E+04, .304619E+04, .221330E+04, .160561E+04,
278 + .116254E+04, .840297E+03, .606135E+03, .436421E+03,
279 + .313552E+03, .224923E+03, .160217E+03, .114463E+03,
280 + .815987E+02, .580743E+02, .412523E+02, .292608E+02,
281 + .207459E+02, .146870E+02, .103917E+02, .735587E+01,
282 + .520916E+01, .369512E+01, .262526E+01, .187153E+01,
283 + .133794E+01, .960319E+00, .691962E+00, .501080E+00,
284 + .364408E+00, .266754E+00, .195716E+00, .144681E+00,
285 + .107187E+00, .798891E-01, .597686E-01, .449222E-01,
286 + .338809E-01, .256600E-01, .194891E-01, .148552E-01,
287 + .113531E-01, .870763E-02, .669391E-02, .516299E-02,
288 + .399071E-02, .309316E-02, .240494E-02, .187071E-02 /
289 DATA (UPDI(I),I=885,936) /
290 + .145600E-02, .113419E-02, .882914E-03, .686663E-03,
291 + .532407E-03, .411305E-03, .315768E-03, .240537E-03,
292 + .181241E-03, .135371E-03, .993438E-04, .716366E-04,
293 + .505653E-04, .348252E-04, .232955E-04, .150721E-04,
294 + .939218E-05, .557401E-05, .314481E-05, .166415E-05,
295 + .811298E-06, .352737E-06, .127109E-06, .308657E-07,
296 + .204104E-08, .000000E+00, .107240E+07, .807135E+06,
297 + .596447E+06, .440337E+06, .324802E+06, .239322E+06,
298 + .176172E+06, .129535E+06, .951471E+05, .698016E+05,
299 + .511511E+05, .374339E+05, .273625E+05, .199720E+05,
300 + .145587E+05, .105961E+05, .770121E+04, .558778E+04,
301 + .404813E+04, .292737E+04, .211342E+04, .152280E+04,
302 + .109527E+04, .786120E+03, .563147E+03, .402516E+03 /
303 DATA (UPDI(I),I=937,988) /
304 + .287228E+03, .203499E+03, .144600E+03, .102520E+03,
305 + .725568E+02, .512487E+02, .361410E+02, .254743E+02,
306 + .179261E+02, .126065E+02, .886821E+01, .624082E+01,
307 + .439863E+01, .310500E+01, .219905E+01, .156178E+01,
308 + .111353E+01, .797049E+00, .573315E+00, .414167E+00,
309 + .301154E+00, .219495E+00, .161177E+00, .118623E+00,
310 + .878315E-01, .652875E-01, .487526E-01, .365365E-01,
311 + .274945E-01, .207520E-01, .157191E-01, .119400E-01,
312 + .910139E-02, .695447E-02, .533133E-02, .409619E-02,
313 + .315561E-02, .243858E-02, .188509E-02, .145812E-02,
314 + .112868E-02, .873066E-03, .674621E-03, .519708E-03,
315 + .398883E-03, .304273E-03, .230340E-03, .172549E-03,
316 + .128163E-03, .936025E-04, .672325E-04, .473329E-04 /
317 DATA (UPDI(I),I=989,1040) /
318 + .325665E-04, .218117E-04, .141666E-04, .888971E-05,
319 + .533344E-05, .305233E-05, .164217E-05, .813724E-06,
320 + .357481E-06, .128443E-06, .307454E-07, .226331E-08,
321 + .000000E+00, .147315E+07, .110491E+07, .813133E+06,
322 + .597835E+06, .439139E+06, .322215E+06, .236189E+06,
323 + .172926E+06, .126474E+06, .923827E+05, .674030E+05,
324 + .491109E+05, .357382E+05, .259687E+05, .188443E+05,
325 + .136527E+05, .987690E+04, .713303E+04, .514322E+04,
326 + .370158E+04, .265946E+04, .190689E+04, .136475E+04,
327 + .974635E+03, .694648E+03, .493943E+03, .350620E+03,
328 + .247077E+03, .174618E+03, .123128E+03, .866554E+02,
329 + .608619E+02, .426727E+02, .299032E+02, .209171E+02,
330 + .146212E+02, .102219E+02, .714875E+01, .500663E+01 /
331 DATA (UPDI(I),I=1041,1092) /
332 + .351168E+01, .247096E+01, .174350E+01, .123493E+01,
333 + .878165E+00, .627490E+00, .450324E+00, .325291E+00,
334 + .235537E+00, .171822E+00, .125638E+00, .924221E-01,
335 + .682629E-01, .506494E-01, .377199E-01, .282062E-01,
336 + .211576E-01, .159274E-01, .120248E-01, .911003E-02,
337 + .691927E-02, .527216E-02, .402647E-02, .308298E-02,
338 + .236789E-02, .181903E-02, .139825E-02, .107548E-02,
339 + .826618E-03, .634594E-03, .485720E-03, .370374E-03,
340 + .280723E-03, .211198E-03, .157288E-03, .116178E-03,
341 + .844350E-04, .603978E-04, .423922E-04, .291159E-04,
342 + .194988E-04, .126856E-04, .798880E-05, .481972E-05,
343 + .277676E-05, .150329E-05, .747523E-06, .327312E-06,
344 + .115874E-06, .271033E-07, .211947E-08, .000000E+00 /
345 DATA (UPDI(I),I=1093,1144) /
346 + .195942E+07, .146452E+07, .107334E+07, .785874E+06,
347 + .574851E+06, .420019E+06, .306575E+06, .223502E+06,
348 + .162759E+06, .118371E+06, .859861E+05, .623745E+05,
349 + .451878E+05, .326878E+05, .236122E+05, .170289E+05,
350 + .122623E+05, .881439E+04, .632551E+04, .453077E+04,
351 + .323947E+04, .231144E+04, .164610E+04, .116968E+04,
352 + .829434E+03, .586740E+03, .414313E+03, .290394E+03,
353 + .204128E+03, .143154E+03, .100191E+03, .699736E+02,
354 + .487803E+02, .339854E+02, .236317E+02, .164197E+02,
355 + .114092E+02, .792990E+01, .551889E+01, .384658E+01,
356 + .268929E+01, .188537E+01, .132677E+01, .937372E+00,
357 + .665434E+00, .474456E+00, .340500E+00, .244959E+00,
358 + .177540E+00, .128988E+00, .942812E-01, .691989E-01 /
359 DATA (UPDI(I),I=1145,1196) /
360 + .510210E-01, .377612E-01, .280616E-01, .209206E-01,
361 + .156528E-01, .117464E-01, .884527E-02, .667810E-02,
362 + .505778E-02, .383973E-02, .292219E-02, .223079E-02,
363 + .170312E-02, .130109E-02, .994496E-03, .759600E-03,
364 + .579461E-03, .440743E-03, .333971E-03, .251584E-03,
365 + .188164E-03, .139360E-03, .102398E-03, .740788E-04,
366 + .527839E-04, .369387E-04, .253217E-04, .169466E-04,
367 + .110306E-04, .695745E-05, .420750E-05, .242922E-05,
368 + .131567E-05, .652037E-06, .282606E-06, .980466E-07,
369 + .223430E-07, .182234E-08, .000000E+00, .254140E+07,
370 + .189293E+07, .138159E+07, .100738E+07, .733801E+06,
371 + .533905E+06, .388047E+06, .281691E+06, .204249E+06,
372 + .147903E+06, .106967E+06, .772520E+05, .557166E+05 /
373 DATA (UPDI(I),I=1197,1248) /
374 + .401232E+05, .288518E+05, .207124E+05, .148458E+05,
375 + .106217E+05, .758655E+04, .540816E+04, .384816E+04,
376 + .273239E+04, .193628E+04, .136902E+04, .965881E+03,
377 + .679751E+03, .477492E+03, .332891E+03, .232751E+03,
378 + .162346E+03, .112997E+03, .784782E+02, .543983E+02,
379 + .376821E+02, .260485E+02, .179916E+02, .124259E+02,
380 + .858391E+01, .593708E+01, .411226E+01, .285688E+01,
381 + .199018E+01, .139157E+01, .976885E+00, .689032E+00,
382 + .488137E+00, .348082E+00, .248819E+00, .179190E+00,
383 + .129366E+00, .939625E-01, .685377E-01, .502203E-01,
384 + .369412E-01, .272839E-01, .202180E-01, .150360E-01,
385 + .112164E-01, .839565E-02, .630121E-02, .474397E-02,
386 + .358030E-02, .270848E-02, .205532E-02, .155966E-02 /
387 DATA (UPDI(I),I=1249,1300) /
388 + .118432E-02, .899754E-03, .683087E-03, .517936E-03,
389 + .391596E-03, .294973E-03, .220935E-03, .164342E-03,
390 + .121096E-03, .885551E-04, .637973E-04, .452971E-04,
391 + .316122E-04, .216282E-04, .144594E-04, .940780E-05,
392 + .593400E-05, .358847E-05, .206948E-05, .111680E-05,
393 + .549193E-06, .234640E-06, .795459E-07, .176441E-07,
394 + .148701E-08, .000000E+00, .000000E+00, .000000E+00,
395 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
396 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
397 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
398 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
399 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
400 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
401 DATA (UPDI(I),I=1301,1352) /
402 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
403 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
404 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
405 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
406 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
407 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
408 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
409 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
410 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
411 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
412 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
413 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
414 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
415 DATA (UPDI(I),I=1353,1404) /
416 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
417 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
418 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
419 + .000000E+00, .278191E+05, .000000E+00, .000000E+00,
420 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
421 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
422 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
423 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
424 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
425 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
426 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
427 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
428 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
429 DATA (UPDI(I),I=1405,1456) /
430 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
431 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
432 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
433 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
434 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
435 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
436 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
437 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
438 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
439 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
440 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
441 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
442 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
443 DATA (UPDI(I),I=1457,1508) /
444 + .293926E+05, .229792E+05, .177476E+05, .136977E+05,
445 + .105664E+05, .814481E+04, .627459E+04, .482988E+04,
446 + .371548E+04, .285568E+04, .219334E+04, .168298E+04,
447 + .129042E+04, .988371E+03, .756409E+03, .578208E+03,
448 + .441600E+03, .336832E+03, .256672E+03, .195314E+03,
449 + .148475E+03, .112700E+03, .854514E+02, .646872E+02,
450 + .489112E+02, .369259E+02, .278538E+02, .208898E+02,
451 + .157159E+02, .118038E+02, .886065E+01, .664227E+01,
452 + .497820E+01, .373089E+01, .279613E+01, .209538E+01,
453 + .157317E+01, .118198E+01, .890754E+00, .672423E+00,
454 + .509935E+00, .387760E+00, .296318E+00, .227211E+00,
455 + .175228E+00, .135617E+00, .105681E+00, .824755E-01,
456 + .648709E-01, .510815E-01, .404668E-01, .321310E-01 /
457 DATA (UPDI(I),I=1509,1560) /
458 + .256332E-01, .204915E-01, .164509E-01, .132237E-01,
459 + .106647E-01, .861037E-02, .697691E-02, .565760E-02,
460 + .460331E-02, .374952E-02, .306350E-02, .251052E-02,
461 + .206026E-02, .169204E-02, .139269E-02, .114693E-02,
462 + .945742E-03, .778802E-03, .640533E-03, .524471E-03,
463 + .427163E-03, .343929E-03, .274869E-03, .215521E-03,
464 + .165565E-03, .123789E-03, .894369E-04, .618621E-04,
465 + .403715E-04, .245059E-04, .131593E-04, .591919E-05,
466 + .178118E-05, .000000E+00, .000000E+00, .000000E+00,
467 + .000000E+00, .000000E+00, .000000E+00, .711209E+05,
468 + .553488E+05, .425248E+05, .326491E+05, .250537E+05,
469 + .192104E+05, .147213E+05, .112719E+05, .862526E+04,
470 + .659409E+04, .503773E+04, .384493E+04, .293232E+04 /
471 DATA (UPDI(I),I=1561,1612) /
472 + .223392E+04, .170046E+04, .129286E+04, .982073E+03,
473 + .745032E+03, .564645E+03, .427334E+03, .323078E+03,
474 + .243891E+03, .183904E+03, .138449E+03, .104102E+03,
475 + .781535E+02, .586195E+02, .437111E+02, .326952E+02,
476 + .244151E+02, .182193E+02, .135772E+02, .101138E+02,
477 + .753377E+01, .561063E+01, .417804E+01, .311624E+01,
478 + .232606E+01, .174103E+01, .130542E+01, .983026E+00,
479 + .742306E+00, .563173E+00, .428775E+00, .328261E+00,
480 + .252240E+00, .195119E+00, .151191E+00, .118049E+00,
481 + .922976E-01, .725930E-01, .572437E-01, .453504E-01,
482 + .360140E-01, .287206E-01, .229426E-01, .183900E-01,
483 + .147646E-01, .118991E-01, .960309E-02, .777930E-02,
484 + .631302E-02, .514180E-02, .420305E-02, .344274E-02 /
485 DATA (UPDI(I),I=1613,1664) /
486 + .282441E-02, .232380E-02, .191435E-02, .157991E-02,
487 + .130301E-02, .107388E-02, .881808E-03, .720547E-03,
488 + .582992E-03, .468563E-03, .370301E-03, .287582E-03,
489 + .218288E-03, .161203E-03, .115040E-03, .787659E-04,
490 + .513632E-04, .312286E-04, .175738E-04, .891027E-05,
491 + .392209E-05, .143652E-05, .409739E-06, .428622E-07,
492 + .000000E+00, .000000E+00, .127700E+06, .989573E+05,
493 + .756584E+05, .578035E+05, .441384E+05, .336771E+05,
494 + .256800E+05, .195653E+05, .148969E+05, .113320E+05,
495 + .861400E+04, .654142E+04, .496364E+04, .376232E+04,
496 + .284933E+04, .215532E+04, .162884E+04, .122936E+04,
497 + .926901E+03, .697874E+03, .524869E+03, .394157E+03,
498 + .295646E+03, .221398E+03, .165585E+03, .123646E+03 /
499 DATA (UPDI(I),I=1665,1716) /
500 + .922380E+02, .683997E+02, .508783E+02, .377824E+02,
501 + .280341E+02, .207721E+02, .153828E+02, .113914E+02,
502 + .843210E+01, .624096E+01, .462562E+01, .343103E+01,
503 + .255141E+01, .190066E+01, .142171E+01, .106646E+01,
504 + .803586E+00, .607716E+00, .462053E+00, .352655E+00,
505 + .270923E+00, .208528E+00, .161706E+00, .125598E+00,
506 + .981246E-01, .768826E-01, .605159E-01, .477609E-01,
507 + .378515E-01, .300583E-01, .239529E-01, .191257E-01,
508 + .153296E-01, .123094E-01, .992215E-02, .801507E-02,
509 + .649880E-02, .528956E-02, .431430E-02, .352523E-02,
510 + .288864E-02, .237012E-02, .194778E-02, .159948E-02,
511 + .131213E-02, .107232E-02, .871733E-03, .701857E-03,
512 + .561116E-03, .441234E-03, .341087E-03, .257905E-03 /
513 DATA (UPDI(I),I=1717,1768) /
514 + .189969E-03, .135474E-03, .929816E-04, .610131E-04,
515 + .376301E-04, .217091E-04, .114873E-04, .544051E-05,
516 + .224609E-05, .765738E-06, .154167E-06, .000000E+00,
517 + .000000E+00, .174712E+06, .156057E+06, .118759E+06,
518 + .903092E+05, .686362E+05, .521224E+05, .395574E+05,
519 + .299955E+05, .227296E+05, .172076E+05, .130176E+05,
520 + .983787E+04, .742884E+04, .560355E+04, .422301E+04,
521 + .317877E+04, .239044E+04, .179525E+04, .134683E+04,
522 + .100898E+04, .755028E+03, .564132E+03, .420980E+03,
523 + .313642E+03, .233361E+03, .173346E+03, .128630E+03,
524 + .948729E+02, .701891E+02, .518403E+02, .382518E+02,
525 + .281853E+02, .207535E+02, .152808E+02, .112443E+02,
526 + .827319E+01, .609446E+01, .449296E+01, .332011E+01 /
527 DATA (UPDI(I),I=1769,1820) /
528 + .245782E+01, .182664E+01, .136144E+01, .101916E+01,
529 + .765777E+00, .578397E+00, .438602E+00, .334746E+00,
530 + .256008E+00, .197237E+00, .152230E+00, .118178E+00,
531 + .920310E-01, .719955E-01, .564864E-01, .445017E-01,
532 + .351399E-01, .278456E-01, .221161E-01, .176327E-01,
533 + .140883E-01, .112996E-01, .908496E-02, .733165E-02,
534 + .593987E-02, .482188E-02, .392169E-02, .319798E-02,
535 + .261096E-02, .213431E-02, .174297E-02, .142131E-02,
536 + .115425E-02, .932030E-03, .745298E-03, .591481E-03,
537 + .461682E-03, .354228E-03, .265894E-03, .194494E-03,
538 + .137837E-03, .941173E-04, .615249E-04, .379202E-04,
539 + .219414E-04, .117083E-04, .563764E-05, .238513E-05,
540 + .833667E-06, .179993E-06, .000000E+00, .000000E+00 /
541 DATA (UPDI(I),I=1821,1872) /
542 + .318864E+06, .244973E+06, .185445E+06, .140279E+06,
543 + .106049E+06, .801071E+05, .604705E+05, .456080E+05,
544 + .343733E+05, .258820E+05, .194727E+05, .146359E+05,
545 + .109909E+05, .824461E+04, .617868E+04, .462489E+04,
546 + .345826E+04, .258253E+04, .192637E+04, .143489E+04,
547 + .106751E+04, .792980E+03, .588270E+03, .435695E+03,
548 + .322232E+03, .237920E+03, .175467E+03, .128612E+03,
549 + .945538E+02, .693981E+02, .508781E+02, .372475E+02,
550 + .272446E+02, .199276E+02, .145635E+02, .106421E+02,
551 + .778419E+01, .569834E+01, .418031E+01, .307236E+01,
552 + .226647E+01, .167690E+01, .124590E+01, .929263E+00,
553 + .696605E+00, .524361E+00, .397222E+00, .301588E+00,
554 + .230646E+00, .176750E+00, .136228E+00, .105359E+00 /
555 DATA (UPDI(I),I=1873,1924) /
556 + .818485E-01, .637886E-01, .499143E-01, .391589E-01,
557 + .308276E-01, .243309E-01, .192736E-01, .153034E-01,
558 + .121949E-01, .974219E-02, .780889E-02, .628259E-02,
559 + .506174E-02, .408444E-02, .330218E-02, .267134E-02,
560 + .216167E-02, .174618E-02, .140701E-02, .112798E-02,
561 + .898113E-03, .707513E-03, .552437E-03, .423708E-03,
562 + .318943E-03, .234496E-03, .167651E-03, .115837E-03,
563 + .768406E-04, .485786E-04, .287737E-04, .158638E-04,
564 + .796701E-05, .355066E-05, .136145E-05, .419256E-06,
565 + .731637E-07, .000000E+00, .000000E+00, .473599E+06,
566 + .362237E+06, .272804E+06, .205298E+06, .154397E+06,
567 + .116020E+06, .871203E+05, .653615E+05, .489995E+05,
568 + .366984E+05, .274625E+05, .205298E+05, .153332E+05 /
569 DATA (UPDI(I),I=1925,1976) /
570 + .114392E+05, .852565E+04, .634643E+04, .471910E+04,
571 + .350439E+04, .259926E+04, .192513E+04, .142403E+04,
572 + .105173E+04, .775682E+03, .571138E+03, .419903E+03,
573 + .308183E+03, .225910E+03, .164562E+03, .120235E+03,
574 + .876985E+02, .638867E+02, .464725E+02, .337704E+02,
575 + .245392E+02, .178131E+02, .129289E+02, .939142E+01,
576 + .682727E+01, .497300E+01, .362909E+01, .265784E+01,
577 + .195233E+01, .143995E+01, .106625E+01, .793443E+00,
578 + .592949E+00, .445924E+00, .336155E+00, .255236E+00,
579 + .194223E+00, .148645E+00, .114181E+00, .880982E-01,
580 + .682067E-01, .530185E-01, .413296E-01, .323307E-01,
581 + .253621E-01, .199680E-01, .157622E-01, .124867E-01,
582 + .991862E-02, .790436E-02, .632281E-02, .506387E-02 /
583 DATA (UPDI(I),I=1977,2028) /
584 + .406178E-02, .326341E-02, .262304E-02, .210812E-02,
585 + .169086E-02, .135214E-02, .107545E-02, .849143E-03,
586 + .663266E-03, .513259E-03, .390094E-03, .290937E-03,
587 + .211968E-03, .150208E-03, .102937E-03, .677875E-04,
588 + .426064E-04, .251646E-04, .138898E-04, .702646E-05,
589 + .318469E-05, .125477E-05, .399240E-06, .763546E-07,
590 + .000000E+00, .000000E+00, .674469E+06, .513652E+06,
591 + .384892E+06, .288189E+06, .215636E+06, .161210E+06,
592 + .120432E+06, .898871E+05, .670351E+05, .499437E+05,
593 + .371774E+05, .276450E+05, .205372E+05, .152394E+05,
594 + .112964E+05, .836323E+04, .618464E+04, .456735E+04,
595 + .336881E+04, .248112E+04, .182492E+04, .134013E+04,
596 + .982703E+03, .719377E+03, .525791E+03, .383611E+03 /
597 DATA (UPDI(I),I=2029,2080) /
598 + .279516E+03, .202363E+03, .146949E+03, .106522E+03,
599 + .771123E+02, .557381E+02, .402423E+02, .290523E+02,
600 + .209493E+02, .151035E+02, .108962E+02, .786700E+01,
601 + .569039E+01, .412363E+01, .299862E+01, .218707E+01,
602 + .160154E+01, .117749E+01, .869949E+00, .645520E+00,
603 + .482021E+00, .360828E+00, .272050E+00, .205596E+00,
604 + .156273E+00, .119242E+00, .913918E-01, .702995E-01,
605 + .542929E-01, .420589E-01, .326979E-01, .254968E-01,
606 + .199542E-01, .156602E-01, .123340E-01, .974183E-02,
607 + .771874E-02, .613862E-02, .488701E-02, .389626E-02,
608 + .311072E-02, .248403E-02, .198265E-02, .157882E-02,
609 + .125295E-02, .988649E-03, .774124E-03, .599539E-03,
610 + .459826E-03, .346343E-03, .255958E-03, .184816E-03 /
611 DATA (UPDI(I),I=2081,2132) /
612 + .129829E-03, .882539E-04, .577016E-04, .360588E-04,
613 + .212324E-04, .117251E-04, .596505E-05, .273901E-05,
614 + .110061E-05, .358262E-06, .725516E-07, .111253E-08,
615 + .000000E+00, .930609E+06, .705740E+06, .526226E+06,
616 + .392066E+06, .291900E+06, .217133E+06, .161391E+06,
617 + .119846E+06, .889203E+05, .659080E+05, .488066E+05,
618 + .361031E+05, .266796E+05, .196924E+05, .145194E+05,
619 + .106916E+05, .786363E+04, .577560E+04, .423656E+04,
620 + .310293E+04, .226950E+04, .165721E+04, .120829E+04,
621 + .879435E+03, .639047E+03, .463500E+03, .335720E+03,
622 + .241577E+03, .174361E+03, .125620E+03, .903717E+02,
623 + .649124E+02, .465670E+02, .334023E+02, .239280E+02,
624 + .171369E+02, .122800E+02, .880612E+01, .632592E+01 /
625 DATA (UPDI(I),I=2133,2184) /
626 + .455261E+01, .328747E+01, .238103E+01, .173132E+01,
627 + .126401E+01, .927318E+00, .683299E+00, .506691E+00,
628 + .376690E+00, .282061E+00, .211724E+00, .159853E+00,
629 + .121177E+00, .922714E-01, .705256E-01, .541236E-01,
630 + .416707E-01, .321996E-01, .249602E-01, .194194E-01,
631 + .151533E-01, .118663E-01, .931954E-02, .734175E-02,
632 + .580501E-02, .459386E-02, .364034E-02, .288808E-02,
633 + .229117E-02, .181614E-02, .143587E-02, .113090E-02,
634 + .885321E-03, .687549E-03, .528031E-03, .401458E-03,
635 + .299718E-03, .219534E-03, .157131E-03, .109446E-03,
636 + .738094E-04, .479139E-04, .297670E-04, .174638E-04,
637 + .963520E-05, .491523E-05, .227303E-05, .921856E-06,
638 + .302232E-06, .625844E-07, .206790E-08, .000000E+00 /
639 DATA (UPDI(I),I=2185,2236) /
640 + .125180E+07, .945422E+06, .701537E+06, .520147E+06,
641 + .385365E+06, .285248E+06, .210968E+06, .155879E+06,
642 + .115074E+06, .848610E+05, .625209E+05, .460100E+05,
643 + .338243E+05, .248357E+05, .182152E+05, .133419E+05,
644 + .976038E+04, .713007E+04, .520164E+04, .378889E+04,
645 + .275587E+04, .200114E+04, .145083E+04, .104995E+04,
646 + .758572E+03, .546986E+03, .393859E+03, .281707E+03,
647 + .202104E+03, .144725E+03, .103475E+03, .738629E+02,
648 + .526535E+02, .375280E+02, .267093E+02, .190038E+02,
649 + .135273E+02, .963574E+01, .687503E+01, .491417E+01,
650 + .352419E+01, .253494E+01, .183050E+01, .132724E+01,
651 + .966984E+00, .707649E+00, .521172E+00, .384838E+00,
652 + .286225E+00, .213426E+00, .160079E+00, .120570E+00 /
653 DATA (UPDI(I),I=2237,2288) /
654 + .912232E-01, .692893E-01, .528453E-01, .404408E-01,
655 + .310630E-01, .239389E-01, .185169E-01, .143671E-01,
656 + .111868E-01, .873648E-02, .684310E-02, .537951E-02,
657 + .423184E-02, .333318E-02, .262779E-02, .207113E-02,
658 + .163053E-02, .127999E-02, .100064E-02, .777305E-03,
659 + .598854E-03, .456163E-03, .343897E-03, .254563E-03,
660 + .184870E-03, .131213E-03, .906538E-04, .606757E-04,
661 + .391197E-04, .241661E-04, .141239E-04, .777921E-05,
662 + .397142E-05, .184210E-05, .748866E-06, .244930E-06,
663 + .509349E-07, .228563E-08, .000000E+00, .164825E+07,
664 + .123984E+07, .915650E+06, .675667E+06, .498184E+06,
665 + .366975E+06, .270091E+06, .198584E+06, .145874E+06,
666 + .107039E+06, .784637E+05, .574502E+05, .420188E+05 /
667 DATA (UPDI(I),I=2289,2340) /
668 + .306938E+05, .223948E+05, .163175E+05, .118742E+05,
669 + .862807E+04, .626068E+04, .453560E+04, .328096E+04,
670 + .236927E+04, .170815E+04, .122923E+04, .883047E+03,
671 + .633071E+03, .453192E+03, .322215E+03, .229793E+03,
672 + .163567E+03, .116235E+03, .824618E+02, .584166E+02,
673 + .413740E+02, .292581E+02, .206829E+02, .146261E+02,
674 + .103498E+02, .733525E+01, .520802E+01, .370968E+01,
675 + .265031E+01, .190080E+01, .136889E+01, .990567E+00,
676 + .720025E+00, .526739E+00, .386364E+00, .285462E+00,
677 + .211470E+00, .157590E+00, .117945E+00, .886785E-01,
678 + .669427E-01, .507446E-01, .386023E-01, .294767E-01,
679 + .225858E-01, .173703E-01, .134018E-01, .103764E-01,
680 + .805845E-02, .627618E-02, .490555E-02, .383624E-02 /
681 DATA (UPDI(I),I=2341,2392) /
682 + .300344E-02, .235312E-02, .184273E-02, .144099E-02,
683 + .112333E-02, .871795E-03, .672138E-03, .513841E-03,
684 + .388321E-03, .290388E-03, .213208E-03, .153581E-03,
685 + .108142E-03, .741436E-04, .492732E-04, .315642E-04,
686 + .193939E-04, .112909E-04, .620440E-05, .316477E-05,
687 + .146769E-05, .595121E-06, .192984E-06, .399102E-07,
688 + .213712E-08, .000000E+00, .213030E+07, .159617E+07,
689 + .117333E+07, .861766E+06, .632405E+06, .463635E+06,
690 + .339599E+06, .248486E+06, .181643E+06, .132632E+06,
691 + .967437E+05, .704818E+05, .512909E+05, .372770E+05,
692 + .270589E+05, .196142E+05, .141989E+05, .102632E+05,
693 + .740768E+04, .533790E+04, .384048E+04, .275822E+04,
694 + .197763E+04, .141525E+04, .101097E+04, .720658E+03 /
695 DATA (UPDI(I),I=2393,2444) /
696 + .512929E+03, .362543E+03, .257038E+03, .181877E+03,
697 + .128471E+03, .905901E+02, .637800E+02, .448926E+02,
698 + .315461E+02, .221584E+02, .155684E+02, .109450E+02,
699 + .770618E+01, .543529E+01, .384582E+01, .272928E+01,
700 + .194436E+01, .139094E+01, .999815E+00, .721932E+00,
701 + .524663E+00, .382326E+00, .280646E+00, .206570E+00,
702 + .152964E+00, .113771E+00, .850135E-01, .637880E-01,
703 + .480636E-01, .363486E-01, .275952E-01, .210241E-01,
704 + .160779E-01, .123357E-01, .949792E-02, .733539E-02,
705 + .568091E-02, .441506E-02, .343255E-02, .267144E-02,
706 + .208018E-02, .161870E-02, .125749E-02, .973634E-03,
707 + .750291E-03, .574263E-03, .435761E-03, .326821E-03,
708 + .242514E-03, .176682E-03, .126293E-03, .882622E-04 /
709 DATA (UPDI(I),I=2445,2496) /
710 + .600802E-04, .396613E-04, .252531E-04, .154363E-04,
711 + .895101E-05, .490402E-05, .249563E-05, .115405E-05,
712 + .464951E-06, .148849E-06, .304391E-07, .183581E-08,
713 + .000000E+00, .270812E+07, .202135E+07, .147910E+07,
714 + .108137E+07, .789892E+06, .576397E+06, .420210E+06,
715 + .306014E+06, .222626E+06, .161775E+06, .117428E+06,
716 + .851318E+05, .616456E+05, .445793E+05, .321966E+05,
717 + .232200E+05, .167231E+05, .120252E+05, .863420E+04,
718 + .618897E+04, .442913E+04, .316392E+04, .225622E+04,
719 + .160577E+04, .114073E+04, .808587E+03, .572254E+03,
720 + .402131E+03, .283458E+03, .199401E+03, .140017E+03,
721 + .981415E+02, .686778E+02, .480449E+02, .335515E+02,
722 + .234193E+02, .163498E+02, .114209E+02, .798932E+01 /
723 DATA (UPDI(I),I=2497,2548) /
724 + .559842E+01, .393535E+01, .277453E+01, .196362E+01,
725 + .139552E+01, .996537E+00, .714877E+00, .516181E+00,
726 + .373725E+00, .272585E+00, .199373E+00, .146715E+00,
727 + .108456E+00, .805512E-01, .600800E-01, .450029E-01,
728 + .338374E-01, .255423E-01, .193510E-01, .147160E-01,
729 + .112288E-01, .859813E-02, .660415E-02, .508619E-02,
730 + .393070E-02, .303843E-02, .235091E-02, .181959E-02,
731 + .140717E-02, .108616E-02, .835435E-03, .639401E-03,
732 + .485968E-03, .366137E-03, .272611E-03, .200803E-03,
733 + .145220E-03, .103051E-03, .715108E-04, .483489E-04,
734 + .317163E-04, .200778E-04, .122110E-04, .705092E-05,
735 + .384870E-05, .195115E-05, .897529E-06, .358191E-06,
736 + .112862E-06, .227450E-07, .149704E-08, .000000E+00 /
737 DATA (UPDI(I),I=2549,2600) /
738 + .783282E+04, .265842E+04, .219791E+04, .181717E+04,
739 + .150239E+04, .124214E+04, .102698E+04, .849091E+03,
740 + .702018E+03, .580424E+03, .479894E+03, .396779E+03,
741 + .328063E+03, .271251E+03, .224281E+03, .185448E+03,
742 + .153342E+03, .126798E+03, .104852E+03, .867084E+02,
743 + .717075E+02, .593052E+02, .490512E+02, .405734E+02,
744 + .335641E+02, .277688E+02, .229771E+02, .189642E+02,
745 + .156982E+02, .129974E+02, .107636E+02, .891602E+01,
746 + .738766E+01, .612662E+01, .508037E+01, .421472E+01,
747 + .349823E+01, .290487E+01, .241313E+01, .200508E+01,
748 + .166662E+01, .138508E+01, .115069E+01, .955292E+00,
749 + .792208E+00, .655972E+00, .542485E+00, .446999E+00,
750 + .367666E+00, .301004E+00, .245636E+00, .199565E+00 /
751 DATA (UPDI(I),I=2601,2652) /
752 + .161338E+00, .129728E+00, .103694E+00, .823535E-01,
753 + .649519E-01, .508460E-01, .394861E-01, .304024E-01,
754 + .231945E-01, .175223E-01, .130983E-01, .969448E-02,
755 + .707533E-02, .509627E-02, .361886E-02, .253033E-02,
756 + .173969E-02, .117430E-02, .776830E-03, .502601E-03,
757 + .317182E-03, .194587E-03, .116243E-03, .668537E-04,
758 + .369731E-04, .195485E-04, .980999E-05, .463026E-05,
759 + .203167E-05, .817438E-06, .293473E-06, .921126E-07,
760 + .241173E-07, .493057E-08, .704525E-09, .571549E-10,
761 + .165068E-11, .381378E-14, .000000E+00, .205298E+05,
762 + .199446E+05, .157261E+05, .123973E+05, .977315E+04,
763 + .770276E+04, .607108E+04, .478400E+04, .376995E+04,
764 + .297020E+04, .234029E+04, .184358E+04, .145246E+04 /
765 DATA (UPDI(I),I=2653,2704) /
766 + .114410E+04, .901359E+03, .709998E+03, .559395E+03,
767 + .440677E+03, .347262E+03, .273631E+03, .215708E+03,
768 + .170050E+03, .134133E+03, .105815E+03, .835359E+02,
769 + .659730E+02, .521550E+02, .411165E+02, .325635E+02,
770 + .258072E+02, .204851E+02, .162763E+02, .129561E+02,
771 + .103329E+02, .825478E+01, .660510E+01, .529874E+01,
772 + .425806E+01, .343085E+01, .276874E+01, .224040E+01,
773 + .181518E+01, .147340E+01, .119680E+01, .973196E+00,
774 + .791207E+00, .643823E+00, .522565E+00, .424333E+00,
775 + .343350E+00, .277491E+00, .223563E+00, .179609E+00,
776 + .143740E+00, .114625E+00, .909876E-01, .719192E-01,
777 + .565624E-01, .442890E-01, .344973E-01, .267523E-01,
778 + .206446E-01, .158668E-01, .121621E-01, .928005E-02 /
779 DATA (UPDI(I),I=2705,2756) /
780 + .706055E-02, .536550E-02, .407441E-02, .309735E-02,
781 + .235727E-02, .179851E-02, .137377E-02, .105097E-02,
782 + .800560E-03, .609179E-03, .457362E-03, .337133E-03,
783 + .241742E-03, .166055E-03, .107451E-03, .628097E-04,
784 + .312096E-04, .959427E-05, .000000E+00, .000000E+00,
785 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
786 + .000000E+00, .000000E+00, .542110E+05, .427357E+05,
787 + .333243E+05, .259769E+05, .202457E+05, .157735E+05,
788 + .122868E+05, .956743E+04, .744855E+04, .579678E+04,
789 + .451053E+04, .350835E+04, .272843E+04, .212107E+04,
790 + .164871E+04, .128107E+04, .995320E+03, .773030E+03,
791 + .600368E+03, .466126E+03, .361932E+03, .280963E+03,
792 + .218149E+03, .169357E+03, .131521E+03, .102152E+03 /
793 DATA (UPDI(I),I=2757,2808) /
794 + .793976E+02, .615077E+02, .478647E+02, .372669E+02,
795 + .290547E+02, .226723E+02, .177221E+02, .138808E+02,
796 + .108905E+02, .855991E+01, .674698E+01, .532923E+01,
797 + .422234E+01, .335254E+01, .267072E+01, .213174E+01,
798 + .170588E+01, .136713E+01, .109773E+01, .881944E+00,
799 + .709838E+00, .570278E+00, .458807E+00, .368095E+00,
800 + .295227E+00, .236244E+00, .188683E+00, .150256E+00,
801 + .119346E+00, .944538E-01, .745169E-01, .585637E-01,
802 + .458838E-01, .358121E-01, .278727E-01, .216253E-01,
803 + .167415E-01, .129527E-01, .999680E-02, .770956E-02,
804 + .595045E-02, .459775E-02, .356115E-02, .276345E-02,
805 + .214953E-02, .167275E-02, .130127E-02, .100605E-02,
806 + .775011E-03, .587697E-03, .436996E-03, .315929E-03 /
807 DATA (UPDI(I),I=2809,2860) /
808 + .219445E-03, .144400E-03, .875007E-04, .470688E-04,
809 + .197242E-04, .591970E-05, .178118E-05, .000000E+00,
810 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
811 + .000000E+00, .957211E+05, .749301E+05, .579625E+05,
812 + .448184E+05, .346458E+05, .267700E+05, .206789E+05,
813 + .159662E+05, .123240E+05, .950811E+04, .733344E+04,
814 + .565333E+04, .435687E+04, .335600E+04, .258433E+04,
815 + .198906E+04, .153050E+04, .117704E+04, .905009E+03,
816 + .695505E+03, .534424E+03, .410475E+03, .315252E+03,
817 + .242037E+03, .185836E+03, .142670E+03, .109582E+03,
818 + .838527E+02, .644476E+02, .495479E+02, .381336E+02,
819 + .293698E+02, .226532E+02, .175071E+02, .135504E+02,
820 + .105072E+02, .817010E+01, .636714E+01, .497793E+01 /
821 DATA (UPDI(I),I=2861,2912) /
822 + .390129E+01, .306854E+01, .241929E+01, .191303E+01,
823 + .151577E+01, .120389E+01, .957317E+00, .763056E+00,
824 + .607438E+00, .484572E+00, .385703E+00, .307108E+00,
825 + .244135E+00, .193830E+00, .153552E+00, .121415E+00,
826 + .957341E-01, .753058E-01, .590648E-01, .462274E-01,
827 + .360810E-01, .281148E-01, .218665E-01, .169919E-01,
828 + .132144E-01, .102658E-01, .798011E-02, .621609E-02,
829 + .485260E-02, .380007E-02, .298263E-02, .234643E-02,
830 + .184634E-02, .145105E-02, .113313E-02, .881011E-03,
831 + .674449E-03, .506999E-03, .371575E-03, .263318E-03,
832 + .178594E-03, .114157E-03, .676372E-04, .356708E-04,
833 + .175746E-04, .891027E-05, .392209E-05, .143652E-05,
834 + .409739E-06, .428622E-07, .000000E+00, .000000E+00 /
835 DATA (UPDI(I),I=2913,2964) /
836 + .152094E+06, .118373E+06, .909647E+05, .698688E+05,
837 + .536479E+05, .411715E+05, .315858E+05, .242187E+05,
838 + .185632E+05, .142203E+05, .108894E+05, .833375E+04,
839 + .637544E+04, .487433E+04, .372521E+04, .284520E+04,
840 + .217224E+04, .165739E+04, .126410E+04, .963527E+03,
841 + .734202E+03, .559133E+03, .425702E+03, .323947E+03,
842 + .246478E+03, .187478E+03, .142638E+03, .108079E+03,
843 + .822451E+02, .625927E+02, .476751E+02, .363323E+02,
844 + .277219E+02, .211917E+02, .162207E+02, .124377E+02,
845 + .956255E+01, .736884E+01, .569662E+01, .441526E+01,
846 + .343498E+01, .267944E+01, .209675E+01, .164472E+01,
847 + .129370E+01, .101924E+01, .805282E+00, .635697E+00,
848 + .503138E+00, .397526E+00, .314344E+00, .248306E+00 /
849 DATA (UPDI(I),I=2965,3016) /
850 + .195994E+00, .154454E+00, .121555E+00, .954565E-01,
851 + .748290E-01, .585312E-01, .457172E-01, .356396E-01,
852 + .277596E-01, .216007E-01, .168076E-01, .130994E-01,
853 + .102063E-01, .796290E-02, .622839E-02, .488390E-02,
854 + .384151E-02, .302772E-02, .239036E-02, .188625E-02,
855 + .148504E-02, .116101E-02, .902792E-03, .690947E-03,
856 + .519319E-03, .380835E-03, .270624E-03, .184716E-03,
857 + .119738E-03, .728527E-04, .406784E-04, .217099E-04,
858 + .114873E-04, .544051E-05, .224609E-05, .765738E-06,
859 + .154167E-06, .000000E+00, .000000E+00, .167685E+06,
860 + .175314E+06, .133939E+06, .102275E+06, .780667E+05,
861 + .595542E+05, .454136E+05, .346096E+05, .263648E+05,
862 + .200714E+05, .152735E+05, .116148E+05, .882843E+04 /
863 DATA (UPDI(I),I=3017,3068) /
864 + .670589E+04, .509122E+04, .386257E+04, .292901E+04,
865 + .221945E+04, .168097E+04, .127220E+04, .962417E+03,
866 + .727552E+03, .549782E+03, .415180E+03, .313432E+03,
867 + .236509E+03, .178479E+03, .134098E+03, .101177E+03,
868 + .763324E+02, .576230E+02, .435155E+02, .328946E+02,
869 + .249098E+02, .188835E+02, .143392E+02, .109163E+02,
870 + .832941E+01, .637570E+01, .489327E+01, .376993E+01,
871 + .291271E+01, .225796E+01, .175511E+01, .136835E+01,
872 + .106891E+01, .837657E+00, .656106E+00, .515457E+00,
873 + .404410E+00, .317681E+00, .249405E+00, .195739E+00,
874 + .153448E+00, .120188E+00, .939820E-01, .733975E-01,
875 + .572304E-01, .445846E-01, .346884E-01, .269817E-01,
876 + .209806E-01, .163229E-01, .127268E-01, .992444E-02 /
877 DATA (UPDI(I),I=3069,3120) /
878 + .775250E-02, .607223E-02, .476806E-02, .375448E-02,
879 + .296103E-02, .233752E-02, .184297E-02, .144832E-02,
880 + .112950E-02, .875255E-03, .667238E-03, .499401E-03,
881 + .364768E-03, .258401E-03, .176130E-03, .114425E-03,
882 + .701868E-04, .400351E-04, .219421E-04, .117083E-04,
883 + .563764E-05, .238513E-05, .833667E-06, .179993E-06,
884 + .000000E+00, .000000E+00, .342833E+06, .264048E+06,
885 + .200481E+06, .152131E+06, .115389E+06, .874673E+05,
886 + .662700E+05, .501772E+05, .379730E+05, .287176E+05,
887 + .217063E+05, .163951E+05, .123765E+05, .933586E+04,
888 + .703809E+04, .530171E+04, .399128E+04, .300231E+04,
889 + .225699E+04, .169531E+04, .127265E+04, .954596E+03,
890 + .715618E+03, .536056E+03, .401345E+03, .300299E+03 /
891 DATA (UPDI(I),I=3121,3172) /
892 + .224669E+03, .167302E+03, .125094E+03, .935141E+02,
893 + .699300E+02, .523052E+02, .391513E+02, .293538E+02,
894 + .220261E+02, .165539E+02, .124708E+02, .941607E+01,
895 + .713143E+01, .541596E+01, .412899E+01, .315734E+01,
896 + .242271E+01, .186456E+01, .143961E+01, .111410E+01,
897 + .865205E+00, .671821E+00, .523440E+00, .407445E+00,
898 + .317676E+00, .247661E+00, .193091E+00, .150454E+00,
899 + .117176E+00, .911575E-01, .708590E-01, .550237E-01,
900 + .427083E-01, .331254E-01, .256966E-01, .199373E-01,
901 + .154813E-01, .120505E-01, .938150E-02, .731590E-02,
902 + .571839E-02, .447858E-02, .351432E-02, .275930E-02,
903 + .216579E-02, .169552E-02, .132101E-02, .102000E-02,
904 + .781278E-03, .587811E-03, .433479E-03, .311431E-03 /
905 DATA (UPDI(I),I=3173,3224) /
906 + .216572E-03, .144570E-03, .916937E-04, .546912E-04,
907 + .302007E-04, .158645E-04, .796701E-05, .355066E-05,
908 + .136145E-05, .419256E-06, .731637E-07, .000000E+00,
909 + .000000E+00, .497343E+06, .381133E+06, .287698E+06,
910 + .217037E+06, .163648E+06, .123309E+06, .928638E+05,
911 + .698865E+05, .525641E+05, .395063E+05, .296740E+05,
912 + .222716E+05, .167050E+05, .125195E+05, .937635E+04,
913 + .701633E+04, .524663E+04, .391980E+04, .292639E+04,
914 + .218276E+04, .162693E+04, .121154E+04, .901571E+03,
915 + .670317E+03, .498052E+03, .369769E+03, .274458E+03,
916 + .202709E+03, .150321E+03, .111431E+03, .826132E+02,
917 + .612524E+02, .454381E+02, .337589E+02, .250964E+02,
918 + .186844E+02, .139415E+02, .104255E+02, .781947E+01 /
919 DATA (UPDI(I),I=3225,3276) /
920 + .588115E+01, .444033E+01, .336299E+01, .255607E+01,
921 + .194897E+01, .149109E+01, .114374E+01, .880606E+00,
922 + .678105E+00, .524117E+00, .404848E+00, .313339E+00,
923 + .242590E+00, .187892E+00, .145501E+00, .112661E+00,
924 + .871765E-01, .674290E-01, .521264E-01, .402949E-01,
925 + .311420E-01, .240814E-01, .186333E-01, .144337E-01,
926 + .112110E-01, .871026E-02, .677938E-02, .528809E-02,
927 + .413203E-02, .323334E-02, .253022E-02, .197789E-02,
928 + .154095E-02, .119379E-02, .916006E-03, .696664E-03,
929 + .520207E-03, .380606E-03, .271308E-03, .187275E-03,
930 + .124232E-03, .784834E-04, .468297E-04, .260974E-04,
931 + .138903E-04, .702646E-05, .318469E-05, .125477E-05,
932 + .399240E-06, .763546E-07, .000000E+00, .000000E+00 /
933 DATA (UPDI(I),I=3277,3328) /
934 + .697992E+06, .532371E+06, .399646E+06, .299817E+06,
935 + .224799E+06, .168430E+06, .126121E+06, .943683E+05,
936 + .705650E+05, .527240E+05, .393671E+05, .293695E+05,
937 + .218952E+05, .163088E+05, .121385E+05, .902626E+04,
938 + .670669E+04, .497839E+04, .369245E+04, .273595E+04,
939 + .202557E+04, .149814E+04, .110713E+04, .817363E+03,
940 + .602965E+03, .444395E+03, .327399E+03, .239958E+03,
941 + .176571E+03, .129864E+03, .955066E+02, .702342E+02,
942 + .516661E+02, .380615E+02, .280500E+02, .207006E+02,
943 + .153082E+02, .113450E+02, .843203E+01, .628445E+01,
944 + .470179E+01, .352897E+01, .265825E+01, .200908E+01,
945 + .152377E+01, .115893E+01, .884973E+00, .676017E+00,
946 + .518465E+00, .397496E+00, .305445E+00, .234868E+00 /
947 DATA (UPDI(I),I=3329,3380) /
948 + .180726E+00, .139090E+00, .107067E+00, .823965E-01,
949 + .634067E-01, .487870E-01, .375494E-01, .289059E-01,
950 + .222713E-01, .171765E-01, .132645E-01, .102732E-01,
951 + .795910E-02, .617723E-02, .480388E-02, .374130E-02,
952 + .291653E-02, .227248E-02, .176756E-02, .136931E-02,
953 + .105407E-02, .803214E-03, .606245E-03, .449077E-03,
954 + .325850E-03, .230370E-03, .157775E-03, .103953E-03,
955 + .653593E-04, .389602E-04, .218390E-04, .117255E-04,
956 + .596505E-05, .273901E-05, .110061E-05, .358262E-06,
957 + .725516E-07, .111253E-08, .000000E+00, .953913E+06,
958 + .724284E+06, .540841E+06, .403583E+06, .300976E+06,
959 + .224283E+06, .167024E+06, .124284E+06, .924158E+05,
960 + .686611E+05, .509748E+05, .378105E+05, .280240E+05 /
961 DATA (UPDI(I),I=3381,3432) /
962 + .207510E+05, .153529E+05, .113478E+05, .838023E+04,
963 + .618229E+04, .455671E+04, .335496E+04, .246790E+04,
964 + .181339E+04, .133124E+04, .976217E+03, .715233E+03,
965 + .523469E+03, .382927E+03, .278609E+03, .203510E+03,
966 + .148562E+03, .108426E+03, .791184E+02, .577418E+02,
967 + .421969E+02, .308433E+02, .225733E+02, .165526E+02,
968 + .121631E+02, .896265E+01, .662259E+01, .491213E+01,
969 + .365529E+01, .272995E+01, .204595E+01, .153887E+01,
970 + .116091E+01, .879455E+00, .666597E+00, .507401E+00,
971 + .386183E+00, .294670E+00, .225062E+00, .172063E+00,
972 + .131610E+00, .100717E+00, .770819E-01, .590085E-01,
973 + .451827E-01, .346170E-01, .265364E-01, .203651E-01,
974 + .156488E-01, .120423E-01, .929501E-02, .717670E-02 /
975 DATA (UPDI(I),I=3433,3484) /
976 + .555076E-02, .430087E-02, .333626E-02, .258927E-02,
977 + .200756E-02, .155285E-02, .119559E-02, .914139E-03,
978 + .691541E-03, .517873E-03, .380483E-03, .273763E-03,
979 + .191935E-03, .130407E-03, .853206E-04, .533652E-04,
980 + .317501E-04, .178571E-04, .963552E-05, .491523E-05,
981 + .227303E-05, .921856E-06, .302232E-06, .625844E-07,
982 + .206790E-08, .000000E+00, .127489E+07, .963792E+06,
983 + .716015E+06, .531555E+06, .394355E+06, .292330E+06,
984 + .216547E+06, .160274E+06, .118535E+06, .875870E+05,
985 + .646675E+05, .477003E+05, .351552E+05, .258835E+05,
986 + .190401E+05, .139912E+05, .102715E+05, .753241E+04,
987 + .551831E+04, .403812E+04, .295201E+04, .215548E+04,
988 + .157228E+04, .114552E+04, .833756E+03, .606127E+03 /
989 DATA (UPDI(I),I=3485,3536) /
990 + .440377E+03, .318164E+03, .230770E+03, .167259E+03,
991 + .121183E+03, .877727E+02, .635743E+02, .461041E+02,
992 + .334360E+02, .242774E+02, .176593E+02, .128713E+02,
993 + .940695E+01, .689389E+01, .507129E+01, .374278E+01,
994 + .277247E+01, .206104E+01, .153784E+01, .115102E+01,
995 + .865277E+00, .650913E+00, .491837E+00, .371672E+00,
996 + .281647E+00, .213692E+00, .162328E+00, .123407E+00,
997 + .938864E-01, .714560E-01, .544138E-01, .414581E-01,
998 + .316142E-01, .241279E-01, .184394E-01, .141131E-01,
999 + .108187E-01, .831897E-02, .639858E-02, .492965E-02,
1000 + .380388E-02, .293769E-02, .226889E-02, .174981E-02,
1001 + .134554E-02, .102934E-02, .781590E-03, .586911E-03,
1002 + .436070E-03, .317776E-03, .226749E-03, .157673E-03 /
1003 DATA (UPDI(I),I=3537,3588) /
1004 + .106296E-03, .690700E-04, .429782E-04, .255146E-04,
1005 + .143781E-04, .777945E-05, .397142E-05, .184210E-05,
1006 + .748866E-06, .244930E-06, .509349E-07, .228563E-08,
1007 + .000000E+00, .167112E+07, .125804E+07, .929991E+06,
1008 + .686967E+06, .507087E+06, .373989E+06, .275616E+06,
1009 + .202936E+06, .149301E+06, .109738E+06, .805890E+05,
1010 + .591236E+05, .433363E+05, .317309E+05, .232112E+05,
1011 + .169600E+05, .123799E+05, .902604E+04, .657384E+04,
1012 + .478200E+04, .347481E+04, .252177E+04, .182810E+04,
1013 + .132355E+04, .957211E+03, .691368E+03, .499008E+03,
1014 + .358086E+03, .257965E+03, .185683E+03, .133588E+03,
1015 + .960690E+02, .690785E+02, .497277E+02, .357938E+02,
1016 + .257921E+02, .186165E+02, .134636E+02, .976266E+01 /
1017 DATA (UPDI(I),I=3589,3640) /
1018 + .709822E+01, .518031E+01, .379308E+01, .278761E+01,
1019 + .205615E+01, .152234E+01, .113075E+01, .843701E+00,
1020 + .630026E+00, .472653E+00, .354685E+00, .266958E+00,
1021 + .201227E+00, .151895E+00, .114776E+00, .868111E-01,
1022 + .657040E-01, .497685E-01, .377282E-01, .286319E-01,
1023 + .217526E-01, .165518E-01, .126156E-01, .963114E-02,
1024 + .737581E-02, .564982E-02, .433445E-02, .332980E-02,
1025 + .255942E-02, .196661E-02, .150829E-02, .115282E-02,
1026 + .876167E-03, .660660E-03, .492454E-03, .363056E-03,
1027 + .262461E-03, .185769E-03, .128158E-03, .857546E-04,
1028 + .553611E-04, .342800E-04, .203063E-04, .114547E-04,
1029 + .620458E-05, .316477E-05, .146769E-05, .595121E-06,
1030 + .192984E-06, .399102E-07, .213712E-08, .000000E+00 /
1031 DATA (UPDI(I),I=3641,3692) /
1032 + .215295E+07, .161420E+07, .118753E+07, .872958E+06,
1033 + .641223E+06, .470581E+06, .345070E+06, .252796E+06,
1034 + .185036E+06, .135304E+06, .988478E+05, .721383E+05,
1035 + .525948E+05, .383034E+05, .278667E+05, .202500E+05,
1036 + .146992E+05, .106568E+05, .771732E+04, .558145E+04,
1037 + .403203E+04, .290884E+04, .209604E+04, .150832E+04,
1038 + .108410E+04, .778094E+03, .558027E+03, .397815E+03,
1039 + .284706E+03, .203567E+03, .145462E+03, .103888E+03,
1040 + .741780E+02, .530204E+02, .378881E+02, .271015E+02,
1041 + .194165E+02, .139371E+02, .100296E+02, .723693E+01,
1042 + .524125E+01, .380844E+01, .277761E+01, .203330E+01,
1043 + .149415E+01, .110160E+01, .815985E+00, .604965E+00,
1044 + .450682E+00, .335885E+00, .251129E+00, .188079E+00 /
1045 DATA (UPDI(I),I=3693,3744) /
1046 + .141086E+00, .105968E+00, .796842E-01, .599754E-01,
1047 + .451878E-01, .340820E-01, .257391E-01, .194641E-01,
1048 + .147442E-01, .111893E-01, .850579E-02, .648635E-02,
1049 + .494704E-02, .377851E-02, .288926E-02, .220989E-02,
1050 + .168908E-02, .128810E-02, .978517E-03, .738847E-03,
1051 + .553280E-03, .409422E-03, .299561E-03, .214886E-03,
1052 + .150917E-03, .103329E-03, .686544E-04, .440525E-04,
1053 + .271539E-04, .160506E-04, .905627E-05, .490415E-05,
1054 + .249563E-05, .115405E-05, .464951E-06, .148849E-06,
1055 + .304391E-07, .183581E-08, .000000E+00, .273057E+07,
1056 + .203921E+07, .149317E+07, .109246E+07, .798625E+06,
1057 + .583276E+06, .425628E+06, .310281E+06, .225986E+06,
1058 + .164420E+06, .119510E+06, .867714E+05, .629361E+05 /
1059 DATA (UPDI(I),I=3745,3796) /
1060 + .455950E+05, .329959E+05, .238489E+05, .172179E+05,
1061 + .124144E+05, .894029E+04, .642966E+04, .461835E+04,
1062 + .331264E+04, .237308E+04, .169756E+04, .121280E+04,
1063 + .865146E+03, .616620E+03, .436790E+03, .310610E+03,
1064 + .220655E+03, .156637E+03, .111125E+03, .788076E+02,
1065 + .559435E+02, .396978E+02, .281953E+02, .200553E+02,
1066 + .142915E+02, .102095E+02, .731266E+01, .525701E+01,
1067 + .379169E+01, .274500E+01, .199470E+01, .145511E+01,
1068 + .106508E+01, .783349E+00, .576703E+00, .426688E+00,
1069 + .315869E+00, .234622E+00, .174603E+00, .130171E+00,
1070 + .971873E-01, .726611E-01, .543870E-01, .407595E-01,
1071 + .305855E-01, .229853E-01, .173000E-01, .130452E-01,
1072 + .985610E-02, .745943E-02, .566354E-02, .430026E-02 /
1073 DATA (UPDI(I),I=3797,3848) /
1074 + .326953E-02, .248815E-02, .189354E-02, .143954E-02,
1075 + .109154E-02, .824142E-03, .618266E-03, .459848E-03,
1076 + .337870E-03, .245398E-03, .174722E-03, .121800E-03,
1077 + .827973E-04, .546483E-04, .348668E-04, .214012E-04,
1078 + .126227E-04, .711833E-05, .384879E-05, .195115E-05,
1079 + .897529E-06, .358191E-06, .112862E-06, .227450E-07,
1080 + .149704E-08, .000000E+00, .583956E+04, .665365E+04,
1081 + .550188E+04, .454958E+04, .376219E+04, .311115E+04,
1082 + .257284E+04, .212773E+04, .175969E+04, .145537E+04,
1083 + .120373E+04, .995650E+03, .823584E+03, .681296E+03,
1084 + .563631E+03, .466325E+03, .385852E+03, .319299E+03,
1085 + .264255E+03, .218729E+03, .181073E+03, .149924E+03,
1086 + .124157E+03, .102841E+03, .852044E+02, .706116E+02 /
1087 DATA (UPDI(I),I=3849,3900) /
1088 + .585361E+02, .484136E+02, .401671E+02, .333397E+02,
1089 + .276863E+02, .230040E+02, .191252E+02, .159200E+02,
1090 + .132564E+02, .110489E+02, .921853E+01, .770004E+01,
1091 + .643940E+01, .539148E+01, .452079E+01, .379529E+01,
1092 + .319024E+01, .268483E+01, .226188E+01, .190719E+01,
1093 + .160992E+01, .135735E+01, .114426E+01, .961014E+00,
1094 + .803754E+00, .667229E+00, .548171E+00, .444501E+00,
1095 + .355067E+00, .279194E+00, .216191E+00, .165055E+00,
1096 + .124432E+00, .927541E-01, .684270E-01, .499806E-01,
1097 + .361438E-01, .259068E-01, .183266E-01, .128082E-01,
1098 + .883324E-02, .600327E-02, .401440E-02, .263672E-02,
1099 + .169773E-02, .106922E-02, .656778E-03, .392075E-03,
1100 + .227875E-03, .127412E-03, .684587E-04, .351351E-04 /
1101 DATA (UPDI(I),I=3901,3952) /
1102 + .170977E-04, .781622E-05, .331713E-05, .128890E-05,
1103 + .445985E-06, .134655E-06, .338339E-07, .662021E-08,
1104 + .902577E-09, .696180E-10, .190388E-11, .414545E-14,
1105 + .000000E+00, .184852E+05, .240235E+05, .190994E+05,
1106 + .151869E+05, .120802E+05, .961076E+04, .764917E+04,
1107 + .608923E+04, .484957E+04, .386324E+04, .307905E+04,
1108 + .245474E+04, .195811E+04, .156247E+04, .124755E+04,
1109 + .996480E+03, .796500E+03, .636932E+03, .509730E+03,
1110 + .408141E+03, .327092E+03, .262297E+03, .210546E+03,
1111 + .169124E+03, .136000E+03, .109461E+03, .882120E+02,
1112 + .709416E+02, .573102E+02, .463471E+02, .375408E+02,
1113 + .304448E+02, .247328E+02, .201323E+02, .164112E+02,
1114 + .133999E+02, .109649E+02, .898847E+01, .738510E+01 /
1115 DATA (UPDI(I),I=3953,4004) /
1116 + .607856E+01, .501561E+01, .414575E+01, .343388E+01,
1117 + .284877E+01, .236740E+01, .196942E+01, .164090E+01,
1118 + .136532E+01, .113619E+01, .941740E+00, .777479E+00,
1119 + .637210E+00, .517261E+00, .414891E+00, .328408E+00,
1120 + .256402E+00, .197604E+00, .150513E+00, .113504E+00,
1121 + .848529E-01, .629685E-01, .464201E-01, .340151E-01,
1122 + .248257E-01, .179945E-01, .129836E-01, .933570E-02,
1123 + .669574E-02, .479887E-02, .344131E-02, .247472E-02,
1124 + .178589E-02, .129557E-02, .941382E-03, .687962E-03,
1125 + .499653E-03, .358877E-03, .252386E-03, .170973E-03,
1126 + .109575E-03, .636555E-04, .315159E-04, .969191E-05,
1127 + .000000E+00, .108420E-18, .000000E+00, .203288E-19,
1128 + .000000E+00, .169407E-20, .794093E-22, .000000E+00 /
1129 DATA (UPDI(I),I=4005,4056) /
1130 + .591912E+05, .468756E+05, .367479E+05, .288081E+05,
1131 + .225872E+05, .177098E+05, .138883E+05, .108920E+05,
1132 + .854412E+04, .670295E+04, .526011E+04, .412840E+04,
1133 + .324138E+04, .254544E+04, .199983E+04, .157158E+04,
1134 + .123572E+04, .971969E+03, .765018E+03, .602403E+03,
1135 + .474742E+03, .374354E+03, .295475E+03, .233387E+03,
1136 + .184551E+03, .146077E+03, .115787E+03, .915790E+02,
1137 + .727886E+02, .579279E+02, .461866E+02, .368812E+02,
1138 + .295109E+02, .236704E+02, .190203E+02, .153154E+02,
1139 + .123649E+02, .100051E+02, .811818E+01, .660189E+01,
1140 + .538486E+01, .440174E+01, .360707E+01, .296165E+01,
1141 + .243667E+01, .200729E+01, .165652E+01, .136518E+01,
1142 + .112540E+01, .923988E+00, .755721E+00, .613762E+00 /
1143 DATA (UPDI(I),I=4057,4108) /
1144 + .493963E+00, .393135E+00, .309117E+00, .240051E+00,
1145 + .184274E+00, .140014E+00, .105481E+00, .788929E-01,
1146 + .586643E-01, .434088E-01, .319859E-01, .235264E-01,
1147 + .172283E-01, .125943E-01, .920386E-02, .673204E-02,
1148 + .493736E-02, .363436E-02, .268901E-02, .199922E-02,
1149 + .149363E-02, .111597E-02, .836033E-03, .620195E-03,
1150 + .453565E-03, .323971E-03, .223126E-03, .145975E-03,
1151 + .881209E-04, .472906E-04, .197910E-04, .591971E-05,
1152 + .178118E-05, .000000E+00, .000000E+00, .000000E+00,
1153 + .000000E+00, .000000E+00, .000000E+00, .100772E+06,
1154 + .791285E+05, .614344E+05, .476894E+05, .370201E+05,
1155 + .287335E+05, .223027E+05, .173092E+05, .134348E+05,
1156 + .104268E+05, .809331E+04, .628184E+04, .487678E+04 /
1157 DATA (UPDI(I),I=4109,4160) /
1158 + .378607E+04, .294011E+04, .228338E+04, .177401E+04,
1159 + .137851E+04, .107171E+04, .833437E+03, .648564E+03,
1160 + .504927E+03, .393420E+03, .306729E+03, .239381E+03,
1161 + .186990E+03, .146268E+03, .114139E+03, .895226E+02,
1162 + .703083E+02, .553237E+02, .436043E+02, .344421E+02,
1163 + .272773E+02, .216461E+02, .172178E+02, .137357E+02,
1164 + .109859E+02, .881397E+01, .708980E+01, .572203E+01,
1165 + .462981E+01, .375657E+01, .305493E+01, .249004E+01,
1166 + .203255E+01, .166237E+01, .135776E+01, .110941E+01,
1167 + .902801E+00, .731953E+00, .589421E+00, .470568E+00,
1168 + .371782E+00, .290470E+00, .224394E+00, .171565E+00,
1169 + .129998E+00, .977879E-01, .731192E-01, .544265E-01,
1170 + .403707E-01, .298639E-01, .220894E-01, .162984E-01 /
1171 DATA (UPDI(I),I=4161,4212) /
1172 + .120298E-01, .889620E-02, .659944E-02, .491894E-02,
1173 + .368587E-02, .277897E-02, .210621E-02, .160303E-02,
1174 + .121930E-02, .928465E-03, .699510E-03, .519664E-03,
1175 + .377666E-03, .266079E-03, .179763E-03, .114612E-03,
1176 + .677976E-04, .357160E-04, .175746E-04, .891027E-05,
1177 + .392209E-05, .143652E-05, .409739E-06, .428622E-07,
1178 + .000000E+00, .000000E+00, .157212E+06, .122628E+06,
1179 + .944833E+05, .727784E+05, .560541E+05, .431613E+05,
1180 + .332313E+05, .255795E+05, .196887E+05, .151511E+05,
1181 + .116592E+05, .897043E+04, .690205E+04, .530988E+04,
1182 + .408547E+04, .314318E+04, .241873E+04, .186127E+04,
1183 + .143275E+04, .110303E+04, .849600E+03, .654586E+03,
1184 + .504659E+03, .389256E+03, .300497E+03, .232158E+03 /
1185 DATA (UPDI(I),I=4213,4264) /
1186 + .179591E+03, .138555E+03, .107449E+03, .834339E+02,
1187 + .649077E+02, .505792E+02, .395001E+02, .309336E+02,
1188 + .242752E+02, .190980E+02, .150718E+02, .119277E+02,
1189 + .947098E+01, .754191E+01, .602758E+01, .483084E+01,
1190 + .388352E+01, .312983E+01, .252870E+01, .204633E+01,
1191 + .165946E+01, .134391E+01, .108891E+01, .878707E+00,
1192 + .706557E+00, .564433E+00, .447221E+00, .350909E+00,
1193 + .272513E+00, .209467E+00, .159519E+00, .120525E+00,
1194 + .904960E-01, .676138E-01, .503414E-01, .373914E-01,
1195 + .277287E-01, .205861E-01, .152653E-01, .113387E-01,
1196 + .844885E-02, .632213E-02, .475680E-02, .359923E-02,
1197 + .273949E-02, .209454E-02, .160599E-02, .122908E-02,
1198 + .939988E-03, .710434E-03, .529083E-03, .385490E-03 /
1199 DATA (UPDI(I),I=4265,4316) /
1200 + .272714E-03, .185592E-03, .120074E-03, .729696E-04,
1201 + .407094E-04, .217099E-04, .114873E-04, .544051E-05,
1202 + .224609E-05, .765738E-06, .154167E-06, .000000E+00,
1203 + .000000E+00, .165494E+06, .179625E+06, .137504E+06,
1204 + .105222E+06, .805041E+05, .615697E+05, .470803E+05,
1205 + .359879E+05, .275046E+05, .210140E+05, .160530E+05,
1206 + .122594E+05, .936156E+04, .714677E+04, .545584E+04,
1207 + .416410E+04, .317838E+04, .242566E+04, .185150E+04,
1208 + .141321E+04, .107902E+04, .823955E+03, .629485E+03,
1209 + .481066E+03, .367893E+03, .281519E+03, .215672E+03,
1210 + .164742E+03, .126491E+03, .972377E+02, .748837E+02,
1211 + .577627E+02, .446519E+02, .346151E+02, .268901E+02,
1212 + .209440E+02, .163651E+02, .128253E+02, .100863E+02 /
1213 DATA (UPDI(I),I=4317,4368) /
1214 + .795683E+01, .630107E+01, .500503E+01, .398848E+01,
1215 + .318707E+01, .255346E+01, .204939E+01, .164849E+01,
1216 + .132423E+01, .106439E+01, .852060E+00, .679759E+00,
1217 + .538907E+00, .423935E+00, .330461E+00, .255153E+00,
1218 + .195170E+00, .148048E+00, .111525E+00, .835645E-01,
1219 + .623604E-01, .464147E-01, .344940E-01, .256166E-01,
1220 + .190622E-01, .141810E-01, .105763E-01, .791855E-02,
1221 + .595670E-02, .450621E-02, .342742E-02, .262056E-02,
1222 + .201069E-02, .154504E-02, .118354E-02, .904563E-03,
1223 + .682473E-03, .506972E-03, .368347E-03, .259993E-03,
1224 + .176791E-03, .114676E-03, .702725E-04, .400567E-04,
1225 + .219421E-04, .117083E-04, .563764E-05, .238513E-05,
1226 + .833667E-06, .179993E-06, .397047E-22, .000000E+00 /
1227 DATA (UPDI(I),I=4369,4420) /
1228 + .348097E+06, .268424E+06, .204099E+06, .155123E+06,
1229 + .117863E+06, .895129E+05, .679615E+05, .515759E+05,
1230 + .391296E+05, .296740E+05, .224972E+05, .170490E+05,
1231 + .129172E+05, .978293E+04, .740775E+04, .560733E+04,
1232 + .424396E+04, .321120E+04, .242967E+04, .183803E+04,
1233 + .139061E+04, .105207E+04, .796151E+03, .602580E+03,
1234 + .456287E+03, .345664E+03, .262115E+03, .198116E+03,
1235 + .150513E+03, .114474E+03, .872055E+02, .665370E+02,
1236 + .508704E+02, .390047E+02, .299668E+02, .230855E+02,
1237 + .178422E+02, .138329E+02, .107634E+02, .840268E+01,
1238 + .658614E+01, .517922E+01, .408678E+01, .323431E+01,
1239 + .256682E+01, .204096E+01, .162662E+01, .129468E+01,
1240 + .103121E+01, .818052E+00, .646862E+00, .508464E+00 /
1241 DATA (UPDI(I),I=4421,4472) /
1242 + .396776E+00, .307028E+00, .235525E+00, .179164E+00,
1243 + .135289E+00, .101549E+00, .758848E-01, .565244E-01,
1244 + .420251E-01, .312212E-01, .231932E-01, .172747E-01,
1245 + .128691E-01, .961466E-02, .721153E-02, .543342E-02,
1246 + .411408E-02, .312881E-02, .238843E-02, .182649E-02,
1247 + .139598E-02, .106156E-02, .803642E-03, .599341E-03,
1248 + .439160E-03, .314093E-03, .217745E-03, .145053E-03,
1249 + .918747E-04, .547517E-04, .302152E-04, .158645E-04,
1250 + .796701E-05, .355066E-05, .136145E-05, .419256E-06,
1251 + .731637E-07, .000000E+00, .000000E+00, .502687E+06,
1252 + .385575E+06, .291370E+06, .220073E+06, .166158E+06,
1253 + .125385E+06, .945803E+05, .713057E+05, .537376E+05,
1254 + .404765E+05, .304762E+05, .229348E+05, .172532E+05 /
1255 DATA (UPDI(I),I=4473,4524) /
1256 + .129727E+05, .975102E+04, .732602E+04, .550259E+04,
1257 + .413132E+04, .310117E+04, .232715E+04, .174621E+04,
1258 + .131004E+04, .982900E+03, .737445E+03, .553443E+03,
1259 + .415460E+03, .312129E+03, .233668E+03, .175822E+03,
1260 + .132425E+03, .998851E+02, .754524E+02, .571050E+02,
1261 + .433431E+02, .329608E+02, .251342E+02, .192285E+02,
1262 + .147578E+02, .113685E+02, .878780E+01, .682120E+01,
1263 + .531298E+01, .415295E+01, .325637E+01, .256076E+01,
1264 + .201779E+01, .159381E+01, .125724E+01, .992529E+00,
1265 + .780436E+00, .611787E+00, .476887E+00, .369198E+00,
1266 + .283617E+00, .216154E+00, .163506E+00, .122880E+00,
1267 + .918779E-01, .684452E-01, .508639E-01, .377544E-01,
1268 + .280212E-01, .208082E-01, .155010E-01, .115552E-01 /
1269 DATA (UPDI(I),I=4525,4576) /
1270 + .864184E-02, .648949E-02, .489488E-02, .370905E-02,
1271 + .282112E-02, .215183E-02, .164247E-02, .125143E-02,
1272 + .947691E-03, .713568E-03, .528843E-03, .384822E-03,
1273 + .273263E-03, .188128E-03, .124578E-03, .786116E-04,
1274 + .468716E-04, .261069E-04, .138903E-04, .702646E-05,
1275 + .318469E-05, .125477E-05, .399240E-06, .763546E-07,
1276 + .000000E+00, .000000E+00, .703416E+06, .536879E+06,
1277 + .403373E+06, .302899E+06, .227347E+06, .170537E+06,
1278 + .127862E+06, .958082E+05, .717554E+05, .537081E+05,
1279 + .401807E+05, .300420E+05, .224511E+05, .167682E+05,
1280 + .125182E+05, .933998E+04, .696590E+04, .519251E+04,
1281 + .386930E+04, .288199E+04, .214613E+04, .159763E+04,
1282 + .118921E+04, .885060E+03, .658772E+03, .490379E+03 /
1283 DATA (UPDI(I),I=4577,4628) /
1284 + .365266E+03, .271035E+03, .202131E+03, .150870E+03,
1285 + .112756E+03, .843861E+02, .632665E+02, .475669E+02,
1286 + .358281E+02, .270599E+02, .205039E+02, .155872E+02,
1287 + .118938E+02, .910788E+01, .700420E+01, .540570E+01,
1288 + .418727E+01, .325404E+01, .253634E+01, .198105E+01,
1289 + .155119E+01, .121297E+01, .949315E+00, .740039E+00,
1290 + .575232E+00, .444745E+00, .341660E+00, .260597E+00,
1291 + .197339E+00, .148436E+00, .111017E+00, .826717E-01,
1292 + .613802E-01, .454904E-01, .336943E-01, .249688E-01,
1293 + .185211E-01, .137877E-01, .102741E-01, .768247E-02,
1294 + .576811E-02, .434920E-02, .329286E-02, .250089E-02,
1295 + .190309E-02, .144778E-02, .109826E-02, .827303E-03,
1296 + .618985E-03, .455526E-03, .328968E-03, .231802E-03 /
1297 DATA (UPDI(I),I=4629,4680) /
1298 + .158393E-03, .104201E-03, .654497E-04, .389891E-04,
1299 + .218452E-04, .117255E-04, .596505E-05, .273901E-05,
1300 + .110061E-05, .358262E-06, .725516E-07, .111253E-08,
1301 + .000000E+00, .959418E+06, .728859E+06, .544624E+06,
1302 + .406711E+06, .303561E+06, .226421E+06, .168792E+06,
1303 + .125744E+06, .936233E+05, .696592E+05, .517997E+05,
1304 + .384923E+05, .285874E+05, .212166E+05, .157375E+05,
1305 + .116655E+05, .864264E+04, .639897E+04, .473559E+04,
1306 + .350258E+04, .258969E+04, .191384E+04, .141404E+04,
1307 + .104444E+04, .771421E+03, .569715E+03, .420960E+03,
1308 + .309777E+03, .229104E+03, .169559E+03, .125634E+03,
1309 + .932055E+02, .692613E+02, .516113E+02, .385246E+02,
1310 + .288339E+02, .216502E+02, .163099E+02, .123332E+02 /
1311 DATA (UPDI(I),I=4681,4732) /
1312 + .935990E+01, .713412E+01, .545761E+01, .419066E+01,
1313 + .322860E+01, .249495E+01, .193210E+01, .150005E+01,
1314 + .116300E+01, .902526E+00, .697649E+00, .537816E+00,
1315 + .412511E+00, .314507E+00, .238211E+00, .179246E+00,
1316 + .134072E+00, .997848E-01, .739957E-01, .547420E-01,
1317 + .404487E-01, .298850E-01, .221007E-01, .163662E-01,
1318 + .121668E-01, .905565E-02, .676408E-02, .507268E-02,
1319 + .381937E-02, .288616E-02, .218640E-02, .165815E-02,
1320 + .125607E-02, .947927E-03, .709801E-03, .527446E-03,
1321 + .385285E-03, .276062E-03, .192980E-03, .130853E-03,
1322 + .854974E-04, .534287E-04, .317698E-04, .178611E-04,
1323 + .963553E-05, .491523E-05, .227303E-05, .921856E-06,
1324 + .302232E-06, .625844E-07, .206790E-08, .000000E+00 /
1325 DATA (UPDI(I),I=4733,4784) /
1326 + .128047E+07, .968436E+06, .719854E+06, .534729E+06,
1327 + .396978E+06, .294499E+06, .218340E+06, .161756E+06,
1328 + .119760E+06, .885991E+05, .655040E+05, .483915E+05,
1329 + .357262E+05, .263552E+05, .194296E+05, .143129E+05,
1330 + .105371E+05, .775160E+04, .569916E+04, .418728E+04,
1331 + .307500E+04, .225683E+04, .165576E+04, .121423E+04,
1332 + .890286E+03, .652598E+03, .478545E+03, .349395E+03,
1333 + .256373E+03, .188224E+03, .138329E+03, .101778E+03,
1334 + .749984E+02, .554152E+02, .410106E+02, .304311E+02,
1335 + .226523E+02, .169177E+02, .126825E+02, .954246E+01,
1336 + .721121E+01, .546984E+01, .416467E+01, .318174E+01,
1337 + .243825E+01, .187249E+01, .144173E+01, .110849E+01,
1338 + .853111E+00, .654022E+00, .500120E+00, .380612E+00 /
1339 DATA (UPDI(I),I=4785,4836) /
1340 + .288041E+00, .216668E+00, .162016E+00, .120507E+00,
1341 + .892472E-01, .658963E-01, .485668E-01, .357690E-01,
1342 + .263530E-01, .194413E-01, .143660E-01, .106593E-01,
1343 + .791949E-02, .590499E-02, .441996E-02, .332055E-02,
1344 + .250243E-02, .188943E-02, .142712E-02, .107583E-02,
1345 + .807343E-03, .600710E-03, .443241E-03, .321340E-03,
1346 + .228438E-03, .158433E-03, .106616E-03, .691957E-04,
1347 + .430227E-04, .255281E-04, .143807E-04, .777945E-05,
1348 + .397142E-05, .184210E-05, .748866E-06, .244930E-06,
1349 + .509349E-07, .228563E-08, .000000E+00, .167679E+07,
1350 + .126275E+07, .933887E+06, .690188E+06, .509750E+06,
1351 + .376189E+06, .277434E+06, .204439E+06, .150543E+06,
1352 + .110764E+06, .814369E+05, .598241E+05, .439148E+05 /
1353 DATA (UPDI(I),I=4837,4888) /
1354 + .322087E+05, .236056E+05, .172856E+05, .126486E+05,
1355 + .924769E+04, .675661E+04, .493266E+04, .359893E+04,
1356 + .262397E+04, .191220E+04, .139272E+04, .101404E+04,
1357 + .738029E+03, .537277E+03, .389350E+03, .283550E+03,
1358 + .206593E+03, .150653E+03, .109975E+03, .803927E+02,
1359 + .589235E+02, .432516E+02, .318309E+02, .234987E+02,
1360 + .174049E+02, .129398E+02, .965576E+01, .723680E+01,
1361 + .544430E+01, .411137E+01, .311550E+01, .236810E+01,
1362 + .180384E+01, .137763E+01, .105056E+01, .801981E+00,
1363 + .609862E+00, .462669E+00, .349423E+00, .262520E+00,
1364 + .196138E+00, .145757E+00, .107810E+00, .794479E-01,
1365 + .584026E-01, .428756E-01, .314683E-01, .231131E-01,
1366 + .170043E-01, .125336E-01, .927794E-02, .687753E-02 /
1367 DATA (UPDI(I),I=4889,4940) /
1368 + .511630E-02, .382017E-02, .286195E-02, .214980E-02,
1369 + .161697E-02, .121582E-02, .911779E-03, .680229E-03,
1370 + .502849E-03, .368410E-03, .265097E-03, .187007E-03,
1371 + .128709E-03, .859846E-04, .554501E-04, .343109E-04,
1372 + .203154E-04, .114564E-04, .620458E-05, .316477E-05,
1373 + .146769E-05, .595121E-06, .192984E-06, .399102E-07,
1374 + .213712E-08, .000000E+00, .215871E+07, .161898E+07,
1375 + .119149E+07, .876226E+06, .643924E+06, .472814E+06,
1376 + .346915E+06, .254320E+06, .186296E+06, .136344E+06,
1377 + .997072E+05, .728480E+05, .531809E+05, .387872E+05,
1378 + .282660E+05, .205794E+05, .149709E+05, .108808E+05,
1379 + .790196E+04, .573354E+04, .415724E+04, .301185E+04,
1380 + .218073E+04, .157788E+04, .114119E+04, .824907E+03 /
1381 DATA (UPDI(I),I=4941,4992) /
1382 + .596363E+03, .429081E+03, .310246E+03, .224398E+03,
1383 + .162425E+03, .117678E+03, .853679E+02, .620890E+02,
1384 + .452196E+02, .330178E+02, .241821E+02, .177689E+02,
1385 + .131054E+02, .970152E+01, .721330E+01, .538356E+01,
1386 + .403328E+01, .303213E+01, .228647E+01, .172782E+01,
1387 + .130910E+01, .990314E+00, .749986E+00, .565807E+00,
1388 + .425923E+00, .319264E+00, .238154E+00, .176750E+00,
1389 + .130547E+00, .960248E-01, .704100E-01, .515272E-01,
1390 + .376760E-01, .275519E-01, .201701E-01, .147946E-01,
1391 + .108743E-01, .802811E-02, .593535E-02, .440350E-02,
1392 + .327846E-02, .244826E-02, .183235E-02, .137245E-02,
1393 + .102703E-02, .766048E-03, .568103E-03, .417228E-03,
1394 + .303546E-03, .216829E-03, .151821E-03, .103728E-03 /
1395 DATA (UPDI(I),I=4993,5044) /
1396 + .688188E-04, .441152E-04, .271754E-04, .160567E-04,
1397 + .905735E-05, .490415E-05, .249563E-05, .115405E-05,
1398 + .464951E-06, .148849E-06, .304391E-07, .183581E-08,
1399 + .000000E+00, .273641E+07, .204406E+07, .149718E+07,
1400 + .109577E+07, .801366E+06, .585541E+06, .427499E+06,
1401 + .311827E+06, .227263E+06, .165475E+06, .120381E+06,
1402 + .874905E+05, .635297E+05, .460848E+05, .334000E+05,
1403 + .241822E+05, .174926E+05, .126408E+05, .912673E+04,
1404 + .658311E+04, .474458E+04, .341640E+04, .245829E+04,
1405 + .176748E+04, .127011E+04, .912069E+03, .654987E+03,
1406 + .468027E+03, .336078E+03, .241384E+03, .173479E+03,
1407 + .124782E+03, .898590E+02, .648732E+02, .468937E+02,
1408 + .339818E+02, .246988E+02, .180100E+02, .131813E+02 /
1409 DATA (UPDI(I),I=5045,5096) /
1410 + .968274E+01, .714395E+01, .529076E+01, .393320E+01,
1411 + .293407E+01, .219539E+01, .164608E+01, .123747E+01,
1412 + .928775E+00, .697895E+00, .522416E+00, .390270E+00,
1413 + .290390E+00, .215100E+00, .158596E+00, .116431E+00,
1414 + .851697E-01, .621387E-01, .452684E-01, .329635E-01,
1415 + .240154E-01, .175206E-01, .128101E-01, .938708E-02,
1416 + .690984E-02, .509367E-02, .376775E-02, .279620E-02,
1417 + .208082E-02, .155126E-02, .115681E-02, .861385E-03,
1418 + .638979E-03, .471042E-03, .343714E-03, .248355E-03,
1419 + .176151E-03, .122458E-03, .830840E-04, .547653E-04,
1420 + .349109E-04, .214160E-04, .126268E-04, .711902E-05,
1421 + .384879E-05, .195115E-05, .897529E-06, .358191E-06,
1422 + .112862E-06, .227450E-07, .149704E-08, .000000E+00 /
1423 DATA (UPDI(I),I=5097,5148) /
1424 + .581325E+04, .663609E+04, .548570E+04, .453466E+04,
1425 + .374844E+04, .309847E+04, .256116E+04, .211697E+04,
1426 + .174978E+04, .144623E+04, .119531E+04, .987897E+03,
1427 + .816443E+03, .674721E+03, .557577E+03, .460752E+03,
1428 + .380723E+03, .314580E+03, .259914E+03, .214736E+03,
1429 + .177401E+03, .146549E+03, .121055E+03, .999907E+02,
1430 + .825865E+02, .682077E+02, .563291E+02, .463904E+02,
1431 + .383102E+02, .316356E+02, .261222E+02, .215682E+02,
1432 + .178065E+02, .147077E+02, .121409E+02, .100210E+02,
1433 + .826952E+01, .682172E+01, .562412E+01, .463216E+01,
1434 + .381085E+01, .312888E+01, .256219E+01, .209079E+01,
1435 + .169846E+01, .137209E+01, .110203E+01, .877252E+00,
1436 + .693746E+00, .543741E+00, .424209E+00, .330418E+00 /
1437 DATA (UPDI(I),I=5149,5200) /
1438 + .258375E+00, .204024E+00, .163312E+00, .132501E+00,
1439 + .108511E+00, .891302E-01, .729632E-01, .592311E-01,
1440 + .475252E-01, .376157E-01, .293361E-01, .225570E-01,
1441 + .170438E-01, .126687E-01, .925786E-02, .664612E-02,
1442 + .468249E-02, .323373E-02, .218573E-02, .144334E-02,
1443 + .928853E-03, .580686E-03, .353239E-03, .206797E-03,
1444 + .116374E-03, .625900E-04, .319435E-04, .153310E-04,
1445 + .683941E-05, .279757E-05, .102112E-05, .325827E-06,
1446 + .867312E-07, .180283E-07, .261942E-08, .216106E-09,
1447 + .634807E-11, .149201E-13, .000000E+00, .184557E+05,
1448 + .240012E+05, .190789E+05, .151681E+05, .120629E+05,
1449 + .959485E+04, .763454E+04, .607579E+04, .483723E+04,
1450 + .385190E+04, .306864E+04, .244518E+04, .194933E+04 /
1451 DATA (UPDI(I),I=5201,5252) /
1452 + .155442E+04, .124016E+04, .989708E+03, .790291E+03,
1453 + .631242E+03, .504516E+03, .403367E+03, .322721E+03,
1454 + .258297E+03, .206886E+03, .165778E+03, .132941E+03,
1455 + .106666E+03, .856592E+02, .686139E+02, .551852E+02,
1456 + .444078E+02, .357710E+02, .288297E+02, .232581E+02,
1457 + .187851E+02, .151794E+02, .122723E+02, .993097E+01,
1458 + .803843E+01, .650988E+01, .527001E+01, .426616E+01,
1459 + .344889E+01, .278387E+01, .224097E+01, .179817E+01,
1460 + .143636E+01, .114270E+01, .902372E+00, .709713E+00,
1461 + .554498E+00, .432475E+00, .337474E+00, .264752E+00,
1462 + .209596E+00, .167855E+00, .135783E+00, .110563E+00,
1463 + .901240E-01, .732202E-01, .590455E-01, .471738E-01,
1464 + .372818E-01, .291390E-01, .225488E-01, .172360E-01 /
1465 DATA (UPDI(I),I=5253,5304) /
1466 + .130367E-01, .976719E-02, .725293E-02, .534597E-02,
1467 + .391446E-02, .285258E-02, .207017E-02, .149897E-02,
1468 + .108029E-02, .779002E-03, .556523E-03, .392738E-03,
1469 + .271529E-03, .181181E-03, .114672E-03, .660096E-04,
1470 + .325097E-04, .100648E-04, .000000E+00, .000000E+00,
1471 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1472 + .000000E+00, .000000E+00, .591628E+05, .468496E+05,
1473 + .367240E+05, .287861E+05, .225670E+05, .176914E+05,
1474 + .138714E+05, .108764E+05, .852987E+04, .668989E+04,
1475 + .524814E+04, .411744E+04, .323135E+04, .253626E+04,
1476 + .199142E+04, .156389E+04, .122869E+04, .965541E+03,
1477 + .759145E+03, .597040E+03, .469846E+03, .369886E+03,
1478 + .291401E+03, .229673E+03, .181167E+03, .142996E+03 /
1479 DATA (UPDI(I),I=5305,5356) /
1480 + .112983E+03, .890305E+02, .704705E+02, .558204E+02,
1481 + .442706E+02, .351396E+02, .279272E+02, .222296E+02,
1482 + .177087E+02, .141203E+02, .112741E+02, .900794E+01,
1483 + .720438E+01, .576251E+01, .461158E+01, .368752E+01,
1484 + .294574E+01, .234826E+01, .186734E+01, .147940E+01,
1485 + .116850E+01, .917109E+00, .717935E+00, .559102E+00,
1486 + .435295E+00, .339456E+00, .266250E+00, .210626E+00,
1487 + .168318E+00, .135622E+00, .109829E+00, .889659E-01,
1488 + .718276E-01, .575978E-01, .458137E-01, .361020E-01,
1489 + .281848E-01, .218310E-01, .167405E-01, .127343E-01,
1490 + .962212E-02, .722858E-02, .540796E-02, .403259E-02,
1491 + .300196E-02, .223156E-02, .165794E-02, .122697E-02,
1492 + .908035E-03, .664719E-03, .479808E-03, .338658E-03 /
1493 DATA (UPDI(I),I=5357,5408) /
1494 + .230876E-03, .149803E-03, .898663E-04, .480171E-04,
1495 + .200461E-04, .591973E-05, .178118E-05, .000000E+00,
1496 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1497 + .000000E+00, .100739E+06, .790985E+05, .614070E+05,
1498 + .476643E+05, .369971E+05, .287125E+05, .222834E+05,
1499 + .172915E+05, .134186E+05, .104120E+05, .807979E+04,
1500 + .626949E+04, .486549E+04, .377575E+04, .293069E+04,
1501 + .227478E+04, .176617E+04, .137136E+04, .106519E+04,
1502 + .827498E+03, .643157E+03, .500007E+03, .388945E+03,
1503 + .302661E+03, .235685E+03, .183635E+03, .143223E+03,
1504 + .111381E+03, .870221E+02, .680425E+02, .532709E+02,
1505 + .417450E+02, .327577E+02, .257507E+02, .202619E+02,
1506 + .159619E+02, .125945E+02, .994739E+01, .786696E+01 /
1507 DATA (UPDI(I),I=5409,5460) /
1508 + .622452E+01, .492947E+01, .390238E+01, .308764E+01,
1509 + .243922E+01, .192335E+01, .151199E+01, .118603E+01,
1510 + .925289E+00, .720847E+00, .559312E+00, .434353E+00,
1511 + .338144E+00, .264831E+00, .209094E+00, .166580E+00,
1512 + .133631E+00, .107622E+00, .866533E-01, .695450E-01,
1513 + .554697E-01, .439291E-01, .345107E-01, .268991E-01,
1514 + .208367E-01, .160084E-01, .122252E-01, .929394E-02,
1515 + .704102E-02, .532453E-02, .402222E-02, .303925E-02,
1516 + .229695E-02, .173637E-02, .130840E-02, .985661E-03,
1517 + .734514E-03, .540080E-03, .388972E-03, .271978E-03,
1518 + .182643E-03, .115907E-03, .683277E-04, .358886E-04,
1519 + .175746E-04, .891027E-05, .392209E-05, .143652E-05,
1520 + .409739E-06, .428622E-07, .000000E+00, .000000E+00 /
1521 DATA (UPDI(I),I=5461,5512) /
1522 + .157175E+06, .122594E+06, .944523E+05, .727501E+05,
1523 + .560282E+05, .431376E+05, .332096E+05, .255597E+05,
1524 + .196706E+05, .151346E+05, .116441E+05, .895667E+04,
1525 + .688949E+04, .529843E+04, .407504E+04, .313368E+04,
1526 + .241007E+04, .185340E+04, .142559E+04, .109652E+04,
1527 + .843688E+03, .649219E+03, .499789E+03, .384841E+03,
1528 + .296497E+03, .228535E+03, .176312E+03, .135595E+03,
1529 + .104774E+03, .810168E+02, .627248E+02, .486086E+02,
1530 + .377211E+02, .293271E+02, .228240E+02, .177865E+02,
1531 + .138850E+02, .108524E+02, .849514E+01, .665484E+01,
1532 + .521955E+01, .409369E+01, .321016E+01, .251458E+01,
1533 + .196703E+01, .153498E+01, .119610E+01, .927716E+00,
1534 + .719239E+00, .555897E+00, .430413E+00, .334285E+00 /
1535 DATA (UPDI(I),I=5513,5564) /
1536 + .261218E+00, .205683E+00, .163265E+00, .130361E+00,
1537 + .104413E+00, .835805E-01, .666958E-01, .529222E-01,
1538 + .417289E-01, .326734E-01, .254115E-01, .196665E-01,
1539 + .151158E-01, .115647E-01, .882043E-02, .671338E-02,
1540 + .510658E-02, .388408E-02, .295681E-02, .225189E-02,
1541 + .171480E-02, .130104E-02, .985723E-03, .738149E-03,
1542 + .545087E-03, .394262E-03, .277242E-03, .187778E-03,
1543 + .121044E-03, .733592E-04, .408279E-04, .217100E-04,
1544 + .114873E-04, .544051E-05, .224609E-05, .765737E-06,
1545 + .154167E-06, .000000E+00, .000000E+00, .165454E+06,
1546 + .179587E+06, .137469E+06, .105191E+06, .804752E+05,
1547 + .615433E+05, .470562E+05, .359659E+05, .274846E+05,
1548 + .209957E+05, .160363E+05, .122442E+05, .934771E+04 /
1549 DATA (UPDI(I),I=5565,5616) /
1550 + .713418E+04, .544438E+04, .415368E+04, .316891E+04,
1551 + .241706E+04, .184370E+04, .140613E+04, .107260E+04,
1552 + .818144E+03, .624224E+03, .476308E+03, .363592E+03,
1553 + .277635E+03, .212166E+03, .161585E+03, .123645E+03,
1554 + .946746E+02, .725760E+02, .556861E+02, .427833E+02,
1555 + .329335E+02, .253766E+02, .195812E+02, .151369E+02,
1556 + .117173E+02, .908545E+01, .705151E+01, .548088E+01,
1557 + .426120E+01, .331344E+01, .257471E+01, .199883E+01,
1558 + .154883E+01, .119919E+01, .924822E+00, .713521E+00,
1559 + .549252E+00, .423863E+00, .328266E+00, .255795E+00,
1560 + .200765E+00, .158723E+00, .126125E+00, .100470E+00,
1561 + .799697E-01, .634617E-01, .501022E-01, .393332E-01,
1562 + .306900E-01, .238075E-01, .183961E-01, .141311E-01 /
1563 DATA (UPDI(I),I=5617,5668) /
1564 + .108162E-01, .826129E-02, .630214E-02, .480775E-02,
1565 + .366894E-02, .280240E-02, .214086E-02, .163412E-02,
1566 + .124187E-02, .941287E-03, .704516E-03, .519579E-03,
1567 + .375189E-03, .263489E-03, .178460E-03, .115407E-03,
1568 + .705600E-04, .401388E-04, .219422E-04, .117083E-04,
1569 + .563764E-05, .238513E-05, .833667E-06, .179993E-06,
1570 + .000000E+00, .000000E+00, .348050E+06, .268381E+06,
1571 + .204060E+06, .155087E+06, .117831E+06, .894832E+05,
1572 + .679344E+05, .515512E+05, .391071E+05, .296535E+05,
1573 + .224785E+05, .170321E+05, .129018E+05, .976893E+04,
1574 + .739504E+04, .559580E+04, .423351E+04, .320173E+04,
1575 + .242109E+04, .183027E+04, .138359E+04, .104573E+04,
1576 + .790427E+03, .597417E+03, .451633E+03, .341473E+03 /
1577 DATA (UPDI(I),I=5669,5720) /
1578 + .258343E+03, .194730E+03, .147471E+03, .111743E+03,
1579 + .847554E+02, .643402E+02, .489012E+02, .372395E+02,
1580 + .283846E+02, .216672E+02, .165700E+02, .126910E+02,
1581 + .973739E+01, .748002E+01, .575552E+01, .443116E+01,
1582 + .341306E+01, .262825E+01, .202295E+01, .155503E+01,
1583 + .119521E+01, .915722E+00, .702478E+00, .538120E+00,
1584 + .413535E+00, .319067E+00, .247679E+00, .193567E+00,
1585 + .152259E+00, .120286E+00, .952078E-01, .752864E-01,
1586 + .593635E-01, .465905E-01, .363833E-01, .282611E-01,
1587 + .218412E-01, .168271E-01, .128966E-01, .985537E-02,
1588 + .751850E-02, .573022E-02, .436699E-02, .332791E-02,
1589 + .253627E-02, .193104E-02, .146674E-02, .110741E-02,
1590 + .832214E-03, .616318E-03, .448771E-03, .319256E-03 /
1591 DATA (UPDI(I),I=5721,5772) /
1592 + .220355E-03, .146284E-03, .924062E-04, .549560E-04,
1593 + .302707E-04, .158645E-04, .796701E-05, .355066E-05,
1594 + .136145E-05, .419256E-06, .731637E-07, .000000E+00,
1595 + .000000E+00, .502634E+06, .385526E+06, .291326E+06,
1596 + .220033E+06, .166122E+06, .125352E+06, .945499E+05,
1597 + .712781E+05, .537125E+05, .404537E+05, .304555E+05,
1598 + .229160E+05, .172362E+05, .129573E+05, .973701E+04,
1599 + .731333E+04, .549111E+04, .412094E+04, .309179E+04,
1600 + .231869E+04, .173857E+04, .130316E+04, .976703E+03,
1601 + .731870E+03, .548432E+03, .410959E+03, .308090E+03,
1602 + .230054E+03, .172586E+03, .129529E+03, .972957E+02,
1603 + .731391E+02, .550391E+02, .414985E+02, .313144E+02,
1604 + .236647E+02, .179166E+02, .135861E+02, .103214E+02 /
1605 DATA (UPDI(I),I=5773,5824) /
1606 + .785171E+01, .598387E+01, .456412E+01, .348367E+01,
1607 + .265933E+01, .202991E+01, .154824E+01, .118145E+01,
1608 + .899261E+00, .685852E+00, .522703E+00, .399866E+00,
1609 + .307223E+00, .237462E+00, .184712E+00, .144515E+00,
1610 + .113488E+00, .892519E-01, .701185E-01, .549380E-01,
1611 + .428638E-01, .332952E-01, .257436E-01, .198178E-01,
1612 + .152200E-01, .116356E-01, .887526E-02, .676160E-02,
1613 + .514825E-02, .391999E-02, .298436E-02, .227133E-02,
1614 + .172592E-02, .130726E-02, .983465E-03, .735621E-03,
1615 + .541804E-03, .392079E-03, .277117E-03, .190052E-03,
1616 + .125474E-03, .789923E-04, .470139E-04, .261432E-04,
1617 + .138903E-04, .702646E-05, .318469E-05, .125477E-05,
1618 + .399240E-06, .763546E-07, .000000E+00, .000000E+00 /
1619 DATA (UPDI(I),I=5825,5876) /
1620 + .703356E+06, .536825E+06, .403324E+06, .302854E+06,
1621 + .227306E+06, .170500E+06, .127829E+06, .957775E+05,
1622 + .717276E+05, .536829E+05, .401578E+05, .300213E+05,
1623 + .224323E+05, .167512E+05, .125028E+05, .932609E+04,
1624 + .695335E+04, .518119E+04, .385910E+04, .287280E+04,
1625 + .213786E+04, .159019E+04, .118253E+04, .879067E+03,
1626 + .653399E+03, .485566E+03, .360961E+03, .267194E+03,
1627 + .198702E+03, .147812E+03, .110031E+03, .819598E+02,
1628 + .611078E+02, .456470E+02, .341216E+02, .255436E+02,
1629 + .191565E+02, .143899E+02, .108297E+02, .816224E+01,
1630 + .616378E+01, .465937E+01, .352540E+01, .266860E+01,
1631 + .202060E+01, .152944E+01, .115888E+01, .876362E+00,
1632 + .664490E+00, .503770E+00, .383546E+00, .293354E+00 /
1633 DATA (UPDI(I),I=5877,5928) /
1634 + .225694E+00, .174682E+00, .135908E+00, .106082E+00,
1635 + .828946E-01, .647047E-01, .503780E-01, .390754E-01,
1636 + .301895E-01, .232312E-01, .178089E-01, .136280E-01,
1637 + .103865E-01, .790205E-02, .600662E-02, .456403E-02,
1638 + .346791E-02, .263417E-02, .199932E-02, .151416E-02,
1639 + .114217E-02, .855124E-03, .635950E-03, .465389E-03,
1640 + .334429E-03, .234669E-03, .159807E-03, .104850E-03,
1641 + .657210E-04, .390876E-04, .218688E-04, .117255E-04,
1642 + .596505E-05, .273901E-05, .110061E-05, .358262E-06,
1643 + .725515E-07, .111253E-08, .000000E+00, .959351E+06,
1644 + .728799E+06, .544569E+06, .406661E+06, .303516E+06,
1645 + .226380E+06, .168754E+06, .125710E+06, .935925E+05,
1646 + .696314E+05, .517745E+05, .384695E+05, .285668E+05 /
1647 DATA (UPDI(I),I=5929,5980) /
1648 + .211980E+05, .157207E+05, .116504E+05, .862899E+04,
1649 + .638668E+04, .472453E+04, .349265E+04, .258077E+04,
1650 + .190583E+04, .140687E+04, .103803E+04, .765682E+03,
1651 + .564588E+03, .416387E+03, .305709E+03, .225484E+03,
1652 + .166340E+03, .122776E+03, .906703E+02, .670141E+02,
1653 + .496205E+02, .367626E+02, .272753E+02, .202718E+02,
1654 + .150914E+02, .112562E+02, .840853E+01, .629416E+01,
1655 + .471701E+01, .353899E+01, .265710E+01, .199616E+01,
1656 + .149973E+01, .112850E+01, .847911E+00, .639163E+00,
1657 + .481984E+00, .365148E+00, .277954E+00, .212803E+00,
1658 + .163845E+00, .126750E+00, .983297E-01, .763468E-01,
1659 + .592132E-01, .458157E-01, .353289E-01, .271473E-01,
1660 + .207882E-01, .158659E-01, .120937E-01, .918486E-02 /
1661 DATA (UPDI(I),I=5981,6032) /
1662 + .696594E-02, .527966E-02, .400035E-02, .303071E-02,
1663 + .229474E-02, .173534E-02, .130868E-02, .982331E-03,
1664 + .731362E-03, .540453E-03, .392764E-03, .280157E-03,
1665 + .195105E-03, .131889E-03, .859664E-04, .536212E-04,
1666 + .318376E-04, .178764E-04, .963554E-05, .491523E-05,
1667 + .227303E-05, .921856E-06, .302231E-06, .625844E-07,
1668 + .206790E-08, .000000E+00, .128040E+07, .968368E+06,
1669 + .719793E+06, .534674E+06, .396928E+06, .294453E+06,
1670 + .218299E+06, .161718E+06, .119726E+06, .885685E+05,
1671 + .654763E+05, .483665E+05, .357037E+05, .263349E+05,
1672 + .194113E+05, .142965E+05, .105223E+05, .773829E+04,
1673 + .568722E+04, .417658E+04, .306540E+04, .224825E+04,
1674 + .164809E+04, .120739E+04, .884178E+03, .647157E+03 /
1675 DATA (UPDI(I),I=6033,6084) /
1676 + .473705E+03, .345103E+03, .252564E+03, .184849E+03,
1677 + .135343E+03, .991380E+02, .726673E+02, .533583E+02,
1678 + .391977E+02, .288347E+02, .212473E+02, .156821E+02,
1679 + .115967E+02, .858913E+01, .637511E+01, .473799E+01,
1680 + .352580E+01, .262628E+01, .195798E+01, .146038E+01,
1681 + .109142E+01, .814838E+00, .610649E+00, .457995E+00,
1682 + .345216E+00, .261485E+00, .199179E+00, .152530E+00,
1683 + .117312E+00, .904490E-01, .697825E-01, .537795E-01,
1684 + .413549E-01, .317032E-01, .242289E-01, .184610E-01,
1685 + .140254E-01, .106464E-01, .805472E-02, .608718E-02,
1686 + .459796E-02, .347208E-02, .262121E-02, .197713E-02,
1687 + .148879E-02, .111737E-02, .834205E-03, .617361E-03,
1688 + .453178E-03, .326992E-03, .231499E-03, .160003E-03 /
1689 DATA (UPDI(I),I=6085,6136) /
1690 + .107372E-03, .695329E-04, .431585E-04, .255744E-04,
1691 + .143906E-04, .777946E-05, .397142E-05, .184210E-05,
1692 + .748866E-06, .244930E-06, .509349E-07, .228563E-08,
1693 + .000000E+00, .167671E+07, .126268E+07, .933820E+06,
1694 + .690127E+06, .509694E+06, .376139E+06, .277389E+06,
1695 + .204398E+06, .150506E+06, .110730E+06, .814067E+05,
1696 + .597968E+05, .438903E+05, .321866E+05, .235858E+05,
1697 + .172678E+05, .126326E+05, .923334E+04, .674376E+04,
1698 + .492116E+04, .358866E+04, .261480E+04, .190402E+04,
1699 + .138543E+04, .100756E+04, .732272E+03, .532171E+03,
1700 + .384835E+03, .279557E+03, .203066E+03, .147543E+03,
1701 + .107235E+03, .779826E+02, .568055E+02, .413929E+02,
1702 + .302015E+02, .220719E+02, .161567E+02, .118492E+02 /
1703 DATA (UPDI(I),I=6137,6188) /
1704 + .870416E+01, .640786E+01, .472404E+01, .348766E+01,
1705 + .257792E+01, .190766E+01, .141275E+01, .104877E+01,
1706 + .778082E+00, .579714E+00, .432426E+00, .324260E+00,
1707 + .244364E+00, .185167E+00, .141020E+00, .107823E+00,
1708 + .826209E-01, .633411E-01, .485090E-01, .370741E-01,
1709 + .282567E-01, .214773E-01, .162820E-01, .123119E-01,
1710 + .930520E-02, .701135E-02, .527829E-02, .397202E-02,
1711 + .298809E-02, .224693E-02, .168766E-02, .126490E-02,
1712 + .944454E-03, .701126E-03, .515662E-03, .375975E-03,
1713 + .269353E-03, .189286E-03, .129864E-03, .865336E-04,
1714 + .556916E-04, .344063E-04, .203470E-04, .114628E-04,
1715 + .620459E-05, .316477E-05, .146769E-05, .595121E-06,
1716 + .192984E-06, .399102E-07, .213712E-08, .000000E+00 /
1717 DATA (UPDI(I),I=6189,6240) /
1718 + .215862E+07, .161890E+07, .119141E+07, .876159E+06,
1719 + .643863E+06, .472759E+06, .346865E+06, .254275E+06,
1720 + .186255E+06, .136308E+06, .996743E+05, .728185E+05,
1721 + .531543E+05, .387633E+05, .282446E+05, .205602E+05,
1722 + .149537E+05, .108654E+05, .788817E+04, .572123E+04,
1723 + .414626E+04, .300207E+04, .217203E+04, .157016E+04,
1724 + .113434E+04, .818835E+03, .590993E+03, .424347E+03,
1725 + .306072E+03, .220724E+03, .159196E+03, .114844E+03,
1726 + .828842E+02, .599150E+02, .433202E+02, .313605E+02,
1727 + .227380E+02, .165125E+02, .120139E+02, .875523E+01,
1728 + .639464E+01, .467754E+01, .342685E+01, .251403E+01,
1729 + .184691E+01, .135826E+01, .100171E+01, .738556E+00,
1730 + .547081E+00, .405853E+00, .302740E+00, .226964E+00 /
1731 DATA (UPDI(I),I=6241,6292) /
1732 + .171066E+00, .129552E+00, .984687E-01, .749894E-01,
1733 + .571303E-01, .434806E-01, .330299E-01, .250293E-01,
1734 + .189207E-01, .142709E-01, .107397E-01, .808069E-02,
1735 + .606286E-02, .454569E-02, .340704E-02, .255269E-02,
1736 + .191142E-02, .142919E-02, .106594E-02, .791656E-03,
1737 + .584300E-03, .427053E-03, .309285E-03, .220023E-03,
1738 + .153512E-03, .104575E-03, .692162E-04, .442875E-04,
1739 + .272421E-04, .160781E-04, .906143E-05, .490415E-05,
1740 + .249563E-05, .115404E-05, .464951E-06, .148849E-06,
1741 + .304391E-07, .183581E-08, .000000E+00, .273631E+07,
1742 + .204397E+07, .149710E+07, .109570E+07, .801299E+06,
1743 + .585481E+06, .427444E+06, .311778E+06, .227219E+06,
1744 + .165435E+06, .120346E+06, .874584E+05, .635009E+05 /
1745 DATA (UPDI(I),I=6293,6344) /
1746 + .460590E+05, .333769E+05, .241615E+05, .174741E+05,
1747 + .126242E+05, .911198E+04, .656997E+04, .473289E+04,
1748 + .340601E+04, .244907E+04, .175931E+04, .126288E+04,
1749 + .905683E+03, .649355E+03, .463077E+03, .331727E+03,
1750 + .237567E+03, .170135E+03, .121859E+03, .873073E+02,
1751 + .626490E+02, .449589E+02, .323017E+02, .232422E+02,
1752 + .167497E+02, .120930E+02, .874522E+01, .633853E+01,
1753 + .460140E+01, .334593E+01, .243677E+01, .177750E+01,
1754 + .129833E+01, .951340E+00, .697124E+00, .513422E+00,
1755 + .378795E+00, .281062E+00, .209604E+00, .157127E+00,
1756 + .118322E+00, .893994E-01, .676651E-01, .512300E-01,
1757 + .387500E-01, .292600E-01, .220456E-01, .165748E-01,
1758 + .124378E-01, .931503E-02, .697690E-02, .521188E-02 /
1759 DATA (UPDI(I),I=6345,6396) /
1760 + .389119E-02, .290432E-02, .216682E-02, .161533E-02,
1761 + .120217E-02, .892118E-03, .658975E-03, .483552E-03,
1762 + .351220E-03, .252692E-03, .178538E-03, .123708E-03,
1763 + .837028E-04, .550519E-04, .350332E-04, .214624E-04,
1764 + .126412E-04, .712164E-05, .384879E-05, .195115E-05,
1765 + .897529E-06, .358191E-06, .112862E-06, .227450E-07,
1766 + .149704E-08, .000000E+00, .649443E+05, .536092E+05,
1767 + .439975E+05, .361093E+05, .296354E+05, .243224E+05,
1768 + .199620E+05, .163834E+05, .134465E+05, .110362E+05,
1769 + .905809E+04, .743467E+04, .610234E+04, .500891E+04,
1770 + .411154E+04, .337508E+04, .277067E+04, .227464E+04,
1771 + .186756E+04, .153348E+04, .125930E+04, .103428E+04,
1772 + .849620E+03, .698070E+03, .573697E+03, .471626E+03 /
1773 DATA (UPDI(I),I=6397,6448) /
1774 + .387859E+03, .318230E+03, .261989E+03, .215827E+03,
1775 + .177935E+03, .146830E+03, .121295E+03, .100387E+03,
1776 + .831719E+02, .690376E+02, .574278E+02, .478856E+02,
1777 + .400360E+02, .335682E+02, .282386E+02, .238311E+02,
1778 + .201791E+02, .171445E+02, .146148E+02, .124989E+02,
1779 + .107286E+02, .922683E+01, .796340E+01, .688306E+01,
1780 + .596482E+01, .517824E+01, .450198E+01, .391852E+01,
1781 + .341349E+01, .297507E+01, .259349E+01, .226066E+01,
1782 + .196984E+01, .171537E+01, .149253E+01, .129732E+01,
1783 + .112636E+01, .977428E+00, .846559E+00, .732640E+00,
1784 + .633870E+00, .548683E+00, .475701E+00, .413684E+00,
1785 + .361487E+00, .318024E+00, .282212E+00, .252972E+00,
1786 + .229449E+00, .210185E+00, .194225E+00, .180429E+00 /
1787 DATA (UPDI(I),I=6449,6500) /
1788 + .167693E+00, .154997E+00, .141472E+00, .126507E+00,
1789 + .109672E+00, .911848E-01, .715115E-01, .516726E-01,
1790 + .331184E-01, .175550E-01, .658465E-02, .106303E-02,
1791 + .000000E+00, .545413E+06, .434347E+06, .342565E+06,
1792 + .270067E+06, .212944E+06, .167833E+06, .132298E+06,
1793 + .104241E+06, .821469E+05, .647069E+05, .509767E+05,
1794 + .401418E+05, .316143E+05, .248868E+05, .195938E+05,
1795 + .154193E+05, .121360E+05, .954736E+04, .751219E+04,
1796 + .590809E+04, .464741E+04, .365412E+04, .287383E+04,
1797 + .225932E+04, .177675E+04, .139688E+04, .109867E+04,
1798 + .861194E+03, .677808E+03, .533540E+03, .420393E+03,
1799 + .331405E+03, .261634E+03, .206905E+03, .163877E+03,
1800 + .130043E+03, .103501E+03, .826046E+02, .661790E+02 /
1801 DATA (UPDI(I),I=6501,6552) /
1802 + .532055E+02, .429786E+02, .348614E+02, .284174E+02,
1803 + .232698E+02, .191497E+02, .158295E+02, .131557E+02,
1804 + .109659E+02, .918785E+01, .771696E+01, .650740E+01,
1805 + .550279E+01, .466518E+01, .396317E+01, .337274E+01,
1806 + .287411E+01, .245177E+01, .209296E+01, .178744E+01,
1807 + .152685E+01, .130428E+01, .111413E+01, .951508E+00,
1808 + .813204E+00, .694471E+00, .593469E+00, .507758E+00,
1809 + .435327E+00, .374360E+00, .323313E+00, .280758E+00,
1810 + .245445E+00, .216185E+00, .191860E+00, .171657E+00,
1811 + .154345E+00, .139209E+00, .125480E+00, .112501E+00,
1812 + .997634E-01, .869152E-01, .738423E-01, .605088E-01,
1813 + .473139E-01, .346713E-01, .232112E-01, .136153E-01,
1814 + .647804E-02, .214507E-02, .344051E-03, .000000E+00 /
1815 DATA (UPDI(I),I=6553,6604) /
1816 + .122559E+07, .965954E+06, .752956E+06, .586600E+06,
1817 + .456999E+06, .355828E+06, .277052E+06, .215588E+06,
1818 + .167755E+06, .130455E+06, .101444E+06, .788349E+05,
1819 + .612611E+05, .475733E+05, .369414E+05, .286659E+05,
1820 + .222426E+05, .172465E+05, .133716E+05, .103600E+05,
1821 + .802603E+04, .621348E+04, .481010E+04, .372123E+04,
1822 + .287889E+04, .222587E+04, .172118E+04, .132569E+04,
1823 + .102516E+04, .792617E+03, .613225E+03, .474538E+03,
1824 + .367633E+03, .285245E+03, .221596E+03, .172449E+03,
1825 + .134581E+03, .105312E+03, .827232E+02, .652116E+02,
1826 + .516588E+02, .411009E+02, .328713E+02, .264177E+02,
1827 + .213448E+02, .173299E+02, .141532E+02, .115968E+02,
1828 + .955630E+01, .789695E+01, .655485E+01, .545841E+01 /
1829 DATA (UPDI(I),I=6605,6656) /
1830 + .455878E+01, .381677E+01, .320236E+01, .269151E+01,
1831 + .226537E+01, .190880E+01, .160971E+01, .135841E+01,
1832 + .114691E+01, .968868E+00, .818739E+00, .692859E+00,
1833 + .586259E+00, .496768E+00, .421745E+00, .359040E+00,
1834 + .306742E+00, .263252E+00, .227126E+00, .197140E+00,
1835 + .172170E+00, .151195E+00, .133522E+00, .118132E+00,
1836 + .104493E+00, .920619E-01, .804094E-01, .692467E-01,
1837 + .584061E-01, .479007E-01, .377619E-01, .283096E-01,
1838 + .198014E-01, .125817E-01, .694855E-02, .308199E-02,
1839 + .950386E-03, .151801E-03, .000000E+00, .228672E+07,
1840 + .178758E+07, .138047E+07, .106539E+07, .822117E+06,
1841 + .633971E+06, .488809E+06, .376623E+06, .290134E+06,
1842 + .223344E+06, .171895E+06, .132197E+06, .101644E+06 /
1843 DATA (UPDI(I),I=6657,6708) /
1844 + .780908E+05, .599802E+05, .460317E+05, .353174E+05,
1845 + .270738E+05, .207485E+05, .158870E+05, .121609E+05,
1846 + .930051E+04, .711097E+04, .543223E+04, .414881E+04,
1847 + .316593E+04, .241565E+04, .183515E+04, .139961E+04,
1848 + .106703E+04, .813772E+03, .620638E+03, .473744E+03,
1849 + .362116E+03, .277059E+03, .212321E+03, .163140E+03,
1850 + .125682E+03, .971853E+02, .754194E+02, .588159E+02,
1851 + .460728E+02, .362822E+02, .287173E+02, .228556E+02,
1852 + .182833E+02, .147163E+02, .118863E+02, .965874E+01,
1853 + .787233E+01, .644694E+01, .529825E+01, .436819E+01,
1854 + .361129E+01, .299268E+01, .248507E+01, .206705E+01,
1855 + .172179E+01, .143585E+01, .119865E+01, .100152E+01,
1856 + .837637E+00, .701103E+00, .587983E+00, .493279E+00 /
1857 DATA (UPDI(I),I=6709,6760) /
1858 + .414633E+00, .349355E+00, .295271E+00, .250483E+00,
1859 + .213429E+00, .182728E+00, .157241E+00, .135952E+00,
1860 + .117965E+00, .102709E+00, .893509E-01, .774989E-01,
1861 + .667644E-01, .568610E-01, .476161E-01, .389433E-01,
1862 + .308834E-01, .234619E-01, .168890E-01, .112891E-01,
1863 + .681273E-02, .354275E-02, .146494E-02, .420922E-03,
1864 + .669273E-04, .000000E+00, .381820E+07, .296431E+07,
1865 + .227122E+07, .173893E+07, .133106E+07, .101810E+07,
1866 + .778512E+06, .594839E+06, .454360E+06, .346773E+06,
1867 + .264571E+06, .201682E+06, .153684E+06, .117003E+06,
1868 + .890408E+05, .676972E+05, .514470E+05, .390592E+05,
1869 + .296404E+05, .224699E+05, .170257E+05, .128873E+05,
1870 + .975006E+04, .736904E+04, .556691E+04, .420111E+04 /
1871 DATA (UPDI(I),I=6761,6812) /
1872 + .316944E+04, .237987E+04, .179388E+04, .135141E+04,
1873 + .101820E+04, .767035E+03, .578172E+03, .436365E+03,
1874 + .329574E+03, .249286E+03, .189025E+03, .143700E+03,
1875 + .109638E+03, .839490E+02, .645938E+02, .499267E+02,
1876 + .387961E+02, .303044E+02, .238049E+02, .187980E+02,
1877 + .149393E+02, .119152E+02, .956331E+01, .769996E+01,
1878 + .623064E+01, .506061E+01, .412425E+01, .337113E+01,
1879 + .276267E+01, .226915E+01, .186734E+01, .153927E+01,
1880 + .127062E+01, .105027E+01, .869166E+00, .720252E+00,
1881 + .597501E+00, .496853E+00, .413421E+00, .344777E+00,
1882 + .288280E+00, .241815E+00, .203567E+00, .172060E+00,
1883 + .146024E+00, .124428E+00, .106375E+00, .911015E-01,
1884 + .781365E-01, .668053E-01, .568142E-01, .478771E-01 /
1885 DATA (UPDI(I),I=6813,6864) /
1886 + .397908E-01, .324394E-01, .257639E-01, .197909E-01,
1887 + .145174E-01, .100566E-01, .644015E-02, .370246E-02,
1888 + .182055E-02, .706843E-03, .191515E-03, .303248E-04,
1889 + .000000E+00, .591932E+07, .456781E+07, .347547E+07,
1890 + .264230E+07, .200814E+07, .152495E+07, .115757E+07,
1891 + .877948E+06, .665585E+06, .504140E+06, .381674E+06,
1892 + .288686E+06, .218240E+06, .164822E+06, .124409E+06,
1893 + .938071E+05, .706902E+05, .532121E+05, .400299E+05,
1894 + .300792E+05, .225870E+05, .169413E+05, .126982E+05,
1895 + .950685E+04, .711285E+04, .531522E+04, .397001E+04,
1896 + .295038E+04, .220094E+04, .164068E+04, .122292E+04,
1897 + .911262E+03, .679281E+03, .506947E+03, .378518E+03,
1898 + .283014E+03, .212096E+03, .159348E+03, .120136E+03 /
1899 DATA (UPDI(I),I=6865,6916) /
1900 + .908969E+02, .691077E+02, .527821E+02, .405286E+02,
1901 + .312854E+02, .242881E+02, .189576E+02, .148940E+02,
1902 + .117442E+02, .932094E+01, .742187E+01, .594028E+01,
1903 + .477313E+01, .384887E+01, .311337E+01, .252534E+01,
1904 + .205339E+01, .167311E+01, .136584E+01, .111680E+01,
1905 + .914611E+00, .750104E+00, .616169E+00, .506818E+00,
1906 + .417988E+00, .344998E+00, .285441E+00, .236790E+00,
1907 + .197041E+00, .164501E+00, .137813E+00, .115830E+00,
1908 + .976369E-01, .824580E-01, .696424E-01, .588052E-01,
1909 + .493960E-01, .411882E-01, .339615E-01, .275597E-01,
1910 + .218913E-01, .169015E-01, .125913E-01, .893086E-02,
1911 + .596305E-02, .366535E-02, .201213E-02, .938749E-03,
1912 + .344189E-03, .886820E-04, .139875E-04, .000000E+00 /
1913 DATA (UPDI(I),I=6917,6968) /
1914 + .908223E+07, .696472E+07, .526078E+07, .397042E+07,
1915 + .299510E+07, .225742E+07, .170053E+07, .127985E+07,
1916 + .962687E+06, .723426E+06, .543292E+06, .407597E+06,
1917 + .305588E+06, .228863E+06, .171277E+06, .128036E+06,
1918 + .956367E+05, .713512E+05, .531889E+05, .396003E+05,
1919 + .294579E+05, .218849E+05, .162446E+05, .120423E+05,
1920 + .891925E+04, .659688E+04, .487598E+04, .358477E+04,
1921 + .264529E+04, .195031E+04, .143743E+04, .105896E+04,
1922 + .780234E+03, .575483E+03, .424562E+03, .313615E+03,
1923 + .232154E+03, .172271E+03, .128265E+03, .958368E+02,
1924 + .719506E+02, .542660E+02, .411461E+02, .313667E+02,
1925 + .240491E+02, .185400E+02, .143886E+02, .112080E+02,
1926 + .878916E+01, .691539E+01, .547014E+01, .434460E+01 /
1927 DATA (UPDI(I),I=6969,7020) /
1928 + .346333E+01, .276999E+01, .222186E+01, .178687E+01,
1929 + .144026E+01, .116330E+01, .941296E+00, .763022E+00,
1930 + .619522E+00, .503916E+00, .410485E+00, .335332E+00,
1931 + .274158E+00, .224680E+00, .184588E+00, .152069E+00,
1932 + .125620E+00, .104048E+00, .863687E-01, .718065E-01,
1933 + .597205E-01, .495810E-01, .410815E-01, .337909E-01,
1934 + .275344E-01, .221409E-01, .174857E-01, .134882E-01,
1935 + .100896E-01, .726544E-02, .496604E-02, .318521E-02,
1936 + .187318E-02, .979194E-03, .432832E-03, .150065E-03,
1937 + .369409E-04, .580401E-05, .000000E+00, .133738E+08,
1938 + .101952E+08, .764791E+07, .573198E+07, .429346E+07,
1939 + .321300E+07, .240289E+07, .179528E+07, .134039E+07,
1940 + .999722E+06, .745078E+06, .554689E+06, .412615E+06 /
1941 DATA (UPDI(I),I=7021,7072) /
1942 + .306576E+06, .227589E+06, .168746E+06, .125000E+06,
1943 + .924750E+05, .683456E+05, .504436E+05, .371922E+05,
1944 + .273832E+05, .201400E+05, .147914E+05, .108516E+05,
1945 + .794867E+04, .581752E+04, .423373E+04, .309240E+04,
1946 + .225644E+04, .164554E+04, .119934E+04, .874041E+03,
1947 + .637585E+03, .465101E+03, .339667E+03, .248550E+03,
1948 + .182304E+03, .134148E+03, .990565E+02, .734913E+02,
1949 + .547751E+02, .410420E+02, .309199E+02, .234290E+02,
1950 + .178517E+02, .136949E+02, .105449E+02, .817556E+01,
1951 + .636005E+01, .497482E+01, .390770E+01, .308109E+01,
1952 + .243772E+01, .193450E+01, .153939E+01, .122788E+01,
1953 + .981571E+00, .786188E+00, .630906E+00, .507177E+00,
1954 + .408487E+00, .329494E+00, .266546E+00, .215766E+00 /
1955 DATA (UPDI(I),I=7073,7124) /
1956 + .175042E+00, .142309E+00, .115958E+00, .946757E-01,
1957 + .774349E-01, .633991E-01, .519197E-01, .424694E-01,
1958 + .346172E-01, .281150E-01, .226224E-01, .179980E-01,
1959 + .141023E-01, .108297E-01, .810539E-02, .586824E-02,
1960 + .407918E-02, .268234E-02, .164902E-02, .925059E-03,
1961 + .458657E-03, .191105E-03, .622579E-04, .145550E-04,
1962 + .227566E-05, .000000E+00, .189970E+08, .144015E+08,
1963 + .107330E+08, .799142E+07, .594599E+07, .441975E+07,
1964 + .328281E+07, .243580E+07, .180587E+07, .133737E+07,
1965 + .989556E+06, .731340E+06, .539998E+06, .398221E+06,
1966 + .293373E+06, .215845E+06, .158634E+06, .116425E+06,
1967 + .853498E+05, .624768E+05, .456789E+05, .333463E+05,
1968 + .243135E+05, .176996E+05, .128687E+05, .934003E+04 /
1969 DATA (UPDI(I),I=7125,7176) /
1970 + .677235E+04, .488139E+04, .353114E+04, .255138E+04,
1971 + .184208E+04, .132900E+04, .958536E+03, .691932E+03,
1972 + .499378E+03, .360780E+03, .261122E+03, .189421E+03,
1973 + .137840E+03, .100649E+03, .738368E+02, .544164E+02,
1974 + .403159E+02, .300335E+02, .225038E+02, .169566E+02,
1975 + .128655E+02, .979755E+01, .751396E+01, .578235E+01,
1976 + .447474E+01, .347780E+01, .271344E+01, .212461E+01,
1977 + .166871E+01, .131438E+01, .103782E+01, .821344E+00,
1978 + .651318E+00, .517510E+00, .411920E+00, .328494E+00,
1979 + .262333E+00, .210085E+00, .168304E+00, .135080E+00,
1980 + .108594E+00, .874402E-01, .704905E-01, .568687E-01,
1981 + .458724E-01, .369617E-01, .297038E-01, .237480E-01,
1982 + .188894E-01, .148579E-01, .115345E-01, .880286E-02 /
1983 DATA (UPDI(I),I=7177,7228) /
1984 + .657138E-02, .477097E-02, .334269E-02, .224289E-02,
1985 + .141886E-02, .836130E-03, .447548E-03, .210619E-03,
1986 + .828614E-04, .254489E-04, .567706E-05, .882966E-06,
1987 + .000000E+00, .261557E+08, .197246E+08, .146093E+08,
1988 + .108097E+08, .799201E+07, .590263E+07, .435579E+07,
1989 + .321077E+07, .236458E+07, .173936E+07, .127820E+07,
1990 + .938137E+06, .687822E+06, .503627E+06, .368341E+06,
1991 + .269017E+06, .196238E+06, .142935E+06, .103977E+06,
1992 + .755179E+05, .547745E+05, .396633E+05, .286813E+05,
1993 + .207046E+05, .149251E+05, .107383E+05, .771740E+04,
1994 + .551184E+04, .395064E+04, .282791E+04, .202233E+04,
1995 + .144499E+04, .103194E+04, .737520E+03, .526886E+03,
1996 + .376752E+03, .269849E+03, .193701E+03, .139463E+03 /
1997 DATA (UPDI(I),I=7229,7280) /
1998 + .100751E+03, .731225E+02, .533137E+02, .390759E+02,
1999 + .287989E+02, .213489E+02, .159158E+02, .119489E+02,
2000 + .900399E+01, .683382E+01, .520458E+01, .398644E+01,
2001 + .306688E+01, .236875E+01, .183620E+01, .142788E+01,
2002 + .111360E+01, .870661E+00, .682311E+00, .535779E+00,
2003 + .421540E+00, .332227E+00, .262303E+00, .207347E+00,
2004 + .164329E+00, .130228E+00, .103343E+00, .820940E-01,
2005 + .652681E-01, .519047E-01, .412641E-01, .327605E-01,
2006 + .259465E-01, .204669E-01, .160358E-01, .124824E-01,
2007 + .959154E-02, .726191E-02, .539554E-02, .391391E-02,
2008 + .275566E-02, .186796E-02, .120962E-02, .736075E-03,
2009 + .415792E-03, .212402E-03, .949421E-04, .353269E-04,
2010 + .102599E-04, .219287E-05, .339047E-06, .000000E+00 /
2011 DATA (UPDI(I),I=7281,7332) /
2012 + .350409E+08, .262936E+08, .193597E+08, .142393E+08,
2013 + .104640E+08, .768122E+07, .563318E+07, .412638E+07,
2014 + .301958E+07, .220690E+07, .161120E+07, .117474E+07,
2015 + .855512E+06, .622156E+06, .451887E+06, .327725E+06,
2016 + .237361E+06, .171640E+06, .123940E+06, .893456E+05,
2017 + .643116E+05, .462100E+05, .331525E+05, .237411E+05,
2018 + .169744E+05, .121112E+05, .863052E+04, .611025E+04,
2019 + .434118E+04, .307980E+04, .218246E+04, .154503E+04,
2020 + .109301E+04, .773736E+03, .547399E+03, .387581E+03,
2021 + .274845E+03, .195308E+03, .139196E+03, .995346E+02,
2022 + .715008E+02, .515973E+02, .374299E+02, .273037E+02,
2023 + .200339E+02, .147837E+02, .109872E+02, .819589E+01,
2024 + .615867E+01, .464384E+01, .352200E+01, .268315E+01 /
2025 DATA (UPDI(I),I=7333,7384) /
2026 + .205229E+01, .157555E+01, .121343E+01, .937298E+00,
2027 + .725808E+00, .563343E+00, .438100E+00, .341338E+00,
2028 + .266365E+00, .208188E+00, .162867E+00, .127700E+00,
2029 + .100067E+00, .784728E-01, .615586E-01, .482891E-01,
2030 + .378531E-01, .296301E-01, .231339E-01, .179947E-01,
2031 + .139215E-01, .106815E-01, .813142E-02, .610020E-02,
2032 + .450191E-02, .325491E-02, .229342E-02, .156534E-02,
2033 + .102630E-02, .641228E-03, .375272E-03, .203185E-03,
2034 + .990773E-04, .420928E-04, .148362E-04, .408533E-05,
2035 + .839148E-06, .128804E-06, .000000E+00, .458204E+08,
2036 + .342189E+08, .250525E+08, .183212E+08, .133856E+08,
2037 + .976836E+07, .712128E+07, .518514E+07, .377123E+07,
2038 + .273929E+07, .198737E+07, .143983E+07, .104182E+07 /
2039 DATA (UPDI(I),I=7385,7436) /
2040 + .752715E+06, .543095E+06, .391229E+06, .281421E+06,
2041 + .202091E+06, .144901E+06, .103709E+06, .741063E+05,
2042 + .528540E+05, .376332E+05, .267431E+05, .189713E+05,
2043 + .134280E+05, .949142E+04, .666355E+04, .469450E+04,
2044 + .330201E+04, .231955E+04, .162755E+04, .114100E+04,
2045 + .800342E+03, .560956E+03, .393441E+03, .276339E+03,
2046 + .194480E+03, .137259E+03, .971908E+02, .691322E+02,
2047 + .493978E+02, .354818E+02, .256286E+02, .186208E+02,
2048 + .136069E+02, .100150E+02, .739847E+01, .550644E+01,
2049 + .411247E+01, .308957E+01, .233163E+01, .176677E+01,
2050 + .134374E+01, .102529E+01, .784606E+00, .601903E+00,
2051 + .462786E+00, .356482E+00, .275066E+00, .212534E+00,
2052 + .164430E+00, .127282E+00, .987090E-01, .764563E-01 /
2053 DATA (UPDI(I),I=7437,7488) /
2054 + .592251E-01, .458559E-01, .354714E-01, .273909E-01,
2055 + .210970E-01, .161877E-01, .123584E-01, .937133E-02,
2056 + .703705E-02, .523612E-02, .383312E-02, .275606E-02,
2057 + .193821E-02, .132599E-02, .877037E-03, .555981E-03,
2058 + .335070E-03, .188556E-03, .978474E-04, .455532E-04,
2059 + .184068E-04, .615439E-05, .161024E-05, .318469E-06,
2060 + .484074E-07, .000000E+00, .586305E+08, .435865E+08,
2061 + .317370E+08, .230820E+08, .167699E+08, .121692E+08,
2062 + .882082E+07, .638552E+07, .461708E+07, .333381E+07,
2063 + .240414E+07, .173118E+07, .124488E+07, .893789E+06,
2064 + .640774E+06, .458615E+06, .327728E+06, .233778E+06,
2065 + .166484E+06, .118337E+06, .839670E+05, .594607E+05,
2066 + .420305E+05, .296477E+05, .208737E+05, .146612E+05 /
2067 DATA (UPDI(I),I=7489,7540) /
2068 + .102824E+05, .716081E+04, .500408E+04, .349085E+04,
2069 + .243166E+04, .169171E+04, .117570E+04, .817446E+03,
2070 + .567823E+03, .394654E+03, .274650E+03, .191504E+03,
2071 + .133898E+03, .939208E+02, .661770E+02, .468400E+02,
2072 + .333270E+02, .238455E+02, .171627E+02, .124241E+02,
2073 + .905983E+01, .663081E+01, .488997E+01, .361868E+01,
2074 + .269397E+01, .201476E+01, .151294E+01, .114037E+01,
2075 + .862298E+00, .653928E+00, .497098E+00, .378691E+00,
2076 + .288978E+00, .220849E+00, .168966E+00, .129394E+00,
2077 + .990978E-01, .759995E-01, .581731E-01, .444987E-01,
2078 + .339940E-01, .259199E-01, .197084E-01, .149298E-01,
2079 + .112531E-01, .842821E-02, .626150E-02, .459969E-02,
2080 + .334395E-02, .238782E-02, .167211E-02, .114340E-02 /
2081 DATA (UPDI(I),I=7541,7592) /
2082 + .759263E-03, .486507E-03, .298120E-03, .173262E-03,
2083 + .937390E-04, .466233E-04, .207297E-04, .797265E-05,
2084 + .253206E-05, .630473E-06, .120110E-06, .179974E-07,
2085 + .000000E+00, .735673E+08, .544519E+08, .394402E+08,
2086 + .285322E+08, .206182E+08, .148804E+08, .107266E+08,
2087 + .772188E+07, .555177E+07, .398580E+07, .285763E+07,
2088 + .204564E+07, .146224E+07, .104350E+07, .743510E+06,
2089 + .528834E+06, .375514E+06, .266146E+06, .188297E+06,
2090 + .132954E+06, .937018E+05, .658993E+05, .462563E+05,
2091 + .323967E+05, .226439E+05, .157870E+05, .109889E+05,
2092 + .759356E+04, .526520E+04, .364395E+04, .251785E+04,
2093 + .173733E+04, .119733E+04, .825452E+03, .568453E+03,
2094 + .391652E+03, .270159E+03, .186697E+03, .129366E+03 /
2095 DATA (UPDI(I),I=7593,7644) /
2096 + .899243E+02, .627880E+02, .440389E+02, .310502E+02,
2097 + .220159E+02, .157033E+02, .112658E+02, .814239E+01,
2098 + .590645E+01, .431766E+01, .316717E+01, .233737E+01,
2099 + .173295E+01, .129009E+01, .963996E+00, .722615E+00,
2100 + .543214E+00, .409291E+00, .309001E+00, .233637E+00,
2101 + .176873E+00, .134003E+00, .101580E+00, .769697E-01,
2102 + .583713E-01, .441491E-01, .333441E-01, .251284E-01,
2103 + .188826E-01, .141346E-01, .105289E-01, .779406E-02,
2104 + .572570E-02, .416672E-02, .299384E-02, .212619E-02,
2105 + .148073E-02, .100972E-02, .671254E-03, .432592E-03,
2106 + .268500E-03, .159027E-03, .891279E-04, .463642E-04,
2107 + .221086E-04, .939342E-05, .344192E-05, .103969E-05,
2108 + .246585E-06, .451732E-07, .661900E-08, .000000E+00 /
2109 DATA (UPDI(I),I=7645,7696) /
2110 + .581325E+04, .695958E+04, .577571E+04, .479467E+04,
2111 + .398156E+04, .330749E+04, .274856E+04, .228501E+04,
2112 + .190046E+04, .158136E+04, .131650E+04, .109659E+04,
2113 + .913940E+03, .762187E+03, .636057E+03, .531183E+03,
2114 + .443944E+03, .371345E+03, .310900E+03, .260549E+03,
2115 + .218586E+03, .183594E+03, .154400E+03, .130029E+03,
2116 + .109673E+03, .926601E+02, .784338E+02, .663767E+02,
2117 + .564413E+02, .481191E+02, .411449E+02, .352978E+02,
2118 + .303938E+02, .262904E+02, .228373E+02, .199387E+02,
2119 + .175039E+02, .154566E+02, .137321E+02, .122754E+02,
2120 + .110427E+02, .999284E+01, .909396E+01, .831873E+01,
2121 + .764454E+01, .705288E+01, .653055E+01, .606047E+01,
2122 + .563890E+01, .525317E+01, .490127E+01, .457685E+01 /
2123 DATA (UPDI(I),I=7697,7748) /
2124 + .427562E+01, .399356E+01, .372693E+01, .347251E+01,
2125 + .322786E+01, .299152E+01, .276288E+01, .254194E+01,
2126 + .232907E+01, .212474E+01, .192945E+01, .174445E+01,
2127 + .156813E+01, .140192E+01, .124599E+01, .110041E+01,
2128 + .965205E+00, .840343E+00, .725717E+00, .621170E+00,
2129 + .526431E+00, .441163E+00, .365778E+00, .298786E+00,
2130 + .240325E+00, .189912E+00, .147032E+00, .111136E+00,
2131 + .816422E-01, .579813E-01, .393931E-01, .254006E-01,
2132 + .152649E-01, .833424E-02, .396038E-02, .151138E-02,
2133 + .386658E-03, .372117E-04, .000000E+00, .184557E+05,
2134 + .243760E+05, .194149E+05, .154693E+05, .123330E+05,
2135 + .983699E+04, .785167E+04, .627046E+04, .501180E+04,
2136 + .400844E+04, .320903E+04, .257109E+04, .206227E+04 /
2137 DATA (UPDI(I),I=7749,7800) /
2138 + .165573E+04, .133107E+04, .107128E+04, .863508E+03,
2139 + .696972E+03, .563550E+03, .456400E+03, .370390E+03,
2140 + .301163E+03, .245461E+03, .200513E+03, .164250E+03,
2141 + .134916E+03, .111179E+03, .916662E+02, .760751E+02,
2142 + .633713E+02, .530243E+02, .445625E+02, .376447E+02,
2143 + .319807E+02, .273199E+02, .234785E+02, .203123E+02,
2144 + .176885E+02, .155123E+02, .136947E+02, .121751E+02,
2145 + .108920E+02, .980402E+01, .887212E+01, .806859E+01,
2146 + .736821E+01, .675506E+01, .620737E+01, .572057E+01,
2147 + .527862E+01, .487900E+01, .451337E+01, .417677E+01,
2148 + .386422E+01, .357178E+01, .329592E+01, .303426E+01,
2149 + .278518E+01, .254793E+01, .232217E+01, .210792E+01,
2150 + .190529E+01, .171428E+01, .153580E+01, .136790E+01 /
2151 DATA (UPDI(I),I=7801,7852) /
2152 + .121166E+01, .106689E+01, .933429E+00, .810992E+00,
2153 + .699299E+00, .597996E+00, .506735E+00, .425072E+00,
2154 + .352462E+00, .289083E+00, .233481E+00, .185595E+00,
2155 + .144866E+00, .110708E+00, .825391E-01, .597452E-01,
2156 + .417680E-01, .278903E-01, .176498E-01, .103913E-01,
2157 + .554372E-02, .256431E-02, .948343E-03, .235154E-03,
2158 + .228841E-04, .000000E+00, .596253E+05, .472647E+05,
2159 + .370962E+05, .291198E+05, .228662E+05, .179595E+05,
2160 + .141118E+05, .110920E+05, .872315E+04, .686318E+04,
2161 + .540354E+04, .425679E+04, .335633E+04, .264835E+04,
2162 + .209198E+04, .165410E+04, .130965E+04, .103821E+04,
2163 + .824390E+03, .655636E+03, .522497E+03, .417214E+03,
2164 + .333973E+03, .267988E+03, .215683E+03, .174119E+03 /
2165 DATA (UPDI(I),I=7853,7904) /
2166 + .141076E+03, .114383E+03, .934198E+02, .766255E+02,
2167 + .631704E+02, .523418E+02, .436241E+02, .365911E+02,
2168 + .308842E+02, .262417E+02, .224617E+02, .193640E+02,
2169 + .168210E+02, .147165E+02, .129718E+02, .115097E+02,
2170 + .102785E+02, .923065E+01, .833266E+01, .755458E+01,
2171 + .687748E+01, .627627E+01, .574516E+01, .526584E+01,
2172 + .483502E+01, .444313E+01, .408450E+01, .375358E+01,
2173 + .344614E+01, .315846E+01, .288804E+01, .263310E+01,
2174 + .239270E+01, .216623E+01, .195343E+01, .175411E+01,
2175 + .156795E+01, .139558E+01, .123486E+01, .108660E+01,
2176 + .950420E+00, .825941E+00, .712715E+00, .610303E+00,
2177 + .518203E+00, .435948E+00, .362993E+00, .298684E+00,
2178 + .243054E+00, .194698E+00, .153443E+00, .118698E+00 /
2179 DATA (UPDI(I),I=7905,7956) /
2180 + .898530E-01, .663211E-01, .474893E-01, .328182E-01,
2181 + .216371E-01, .135034E-01, .782622E-02, .410150E-02,
2182 + .185839E-02, .670663E-03, .162163E-03, .159263E-04,
2183 + .000000E+00, .101247E+06, .795545E+05, .618157E+05,
2184 + .480307E+05, .373255E+05, .290069E+05, .225474E+05,
2185 + .175281E+05, .136307E+05, .106021E+05, .825026E+04,
2186 + .642232E+04, .500253E+04, .389864E+04, .304090E+04,
2187 + .237364E+04, .185485E+04, .145093E+04, .113661E+04,
2188 + .891619E+03, .700749E+03, .551751E+03, .435465E+03,
2189 + .344505E+03, .273354E+03, .217576E+03, .173832E+03,
2190 + .138976E+03, .111971E+03, .906286E+02, .737559E+02,
2191 + .603553E+02, .497035E+02, .412171E+02, .344119E+02,
2192 + .289389E+02, .245298E+02, .209526E+02, .180426E+02 /
2193 DATA (UPDI(I),I=7957,8008) /
2194 + .156549E+02, .136906E+02, .120561E+02, .106885E+02,
2195 + .953171E+01, .854603E+01, .769680E+01, .696182E+01,
2196 + .631286E+01, .574272E+01, .523101E+01, .477356E+01,
2197 + .435970E+01, .398304E+01, .363753E+01, .331862E+01,
2198 + .302238E+01, .274615E+01, .248796E+01, .224663E+01,
2199 + .202131E+01, .181144E+01, .161655E+01, .143605E+01,
2200 + .127029E+01, .111697E+01, .976680E+00, .848835E+00,
2201 + .732902E+00, .628282E+00, .534406E+00, .450654E+00,
2202 + .376462E+00, .311206E+00, .254157E+00, .205229E+00,
2203 + .163072E+00, .127432E+00, .977014E-01, .732616E-01,
2204 + .535326E-01, .379161E-01, .258964E-01, .168527E-01,
2205 + .103673E-01, .591072E-02, .303935E-02, .134582E-02,
2206 + .472299E-03, .110795E-03, .109978E-04, .000000E+00 /
2207 DATA (UPDI(I),I=8009,8060) /
2208 + .157730E+06, .123092E+06, .948985E+05, .731499E+05,
2209 + .563865E+05, .434587E+05, .334975E+05, .258177E+05,
2210 + .199018E+05, .153418E+05, .118299E+05, .912320E+04,
2211 + .703878E+04, .543227E+04, .419504E+04, .324127E+04,
2212 + .250657E+04, .193995E+04, .150324E+04, .116621E+04,
2213 + .906246E+03, .705394E+03, .550263E+03, .430210E+03,
2214 + .337308E+03, .265278E+03, .209416E+03, .165405E+03,
2215 + .131691E+03, .105350E+03, .847579E+02, .685878E+02,
2216 + .558745E+02, .458559E+02, .379048E+02, .315750E+02,
2217 + .265237E+02, .224627E+02, .191865E+02, .165194E+02,
2218 + .143408E+02, .125400E+02, .110425E+02, .978299E+01,
2219 + .871562E+01, .780095E+01, .701339E+01, .632163E+01,
2220 + .571698E+01, .517710E+01, .469689E+01, .426469E+01 /
2221 DATA (UPDI(I),I=8061,8112) /
2222 + .387338E+01, .351645E+01, .318901E+01, .288694E+01,
2223 + .260734E+01, .234806E+01, .210765E+01, .188501E+01,
2224 + .167929E+01, .148979E+01, .131560E+01, .115686E+01,
2225 + .101114E+01, .878799E+00, .759097E+00, .651358E+00,
2226 + .554857E+00, .468918E+00, .392824E+00, .325938E+00,
2227 + .267572E+00, .216948E+00, .173885E+00, .137093E+00,
2228 + .106258E+00, .807701E-01, .600163E-01, .434307E-01,
2229 + .304402E-01, .205567E-01, .132116E-01, .801577E-02,
2230 + .449868E-02, .227164E-02, .984356E-03, .336574E-03,
2231 + .768267E-04, .769421E-05, .000000E+00, .165454E+06,
2232 + .180127E+06, .137954E+06, .105625E+06, .808644E+05,
2233 + .618920E+05, .473687E+05, .362459E+05, .277355E+05,
2234 + .212206E+05, .162378E+05, .124248E+05, .950955E+04 /
2235 DATA (UPDI(I),I=8113,8164) /
2236 + .727921E+04, .557437E+04, .427020E+04, .327337E+04,
2237 + .251072E+04, .192769E+04, .148146E+04, .114019E+04,
2238 + .878802E+03, .678689E+03, .525229E+03, .407562E+03,
2239 + .317186E+03, .247763E+03, .193601E+03, .152516E+03,
2240 + .120736E+03, .961337E+02, .770070E+02, .621143E+02,
2241 + .504922E+02, .413537E+02, .341457E+02, .284427E+02,
2242 + .238960E+02, .202559E+02, .173144E+02, .149274E+02,
2243 + .129668E+02, .113455E+02, .998951E+01, .884617E+01,
2244 + .787138E+01, .703612E+01, .630607E+01, .567101E+01,
2245 + .510675E+01, .460724E+01, .415989E+01, .375689E+01,
2246 + .339130E+01, .305789E+01, .275229E+01, .247139E+01,
2247 + .221281E+01, .197485E+01, .175613E+01, .155554E+01,
2248 + .137213E+01, .120475E+01, .105332E+01, .915296E+00 /
2249 DATA (UPDI(I),I=8165,8216) /
2250 + .790840E+00, .679065E+00, .579177E+00, .490346E+00,
2251 + .411806E+00, .342771E+00, .282540E+00, .230380E+00,
2252 + .185482E+00, .147592E+00, .115482E+00, .887991E-01,
2253 + .669365E-01, .492983E-01, .353393E-01, .245180E-01,
2254 + .163764E-01, .103981E-01, .622476E-02, .344074E-02,
2255 + .170725E-02, .724616E-03, .241746E-03, .538213E-04,
2256 + .543649E-05, .000000E+00, .348712E+06, .268975E+06,
2257 + .204592E+06, .155564E+06, .118258E+06, .898660E+05,
2258 + .682774E+05, .518585E+05, .393824E+05, .299000E+05,
2259 + .226994E+05, .172300E+05, .130790E+05, .992773E+04,
2260 + .753731E+04, .572326E+04, .434772E+04, .330407E+04,
2261 + .251281E+04, .191248E+04, .145730E+04, .111182E+04,
2262 + .849721E+03, .650624E+03, .499405E+03, .384393E+03 /
2263 DATA (UPDI(I),I=8217,8268) /
2264 + .296921E+03, .229375E+03, .178660E+03, .139844E+03,
2265 + .110104E+03, .872280E+02, .695986E+02, .559852E+02,
2266 + .453870E+02, .371115E+02, .306246E+02, .255007E+02,
2267 + .214327E+02, .181724E+02, .155458E+02, .134039E+02,
2268 + .116438E+02, .101810E+02, .895458E+01, .791501E+01,
2269 + .702909E+01, .625908E+01, .559287E+01, .500423E+01,
2270 + .448597E+01, .402447E+01, .361112E+01, .323851E+01,
2271 + .290097E+01, .259388E+01, .231381E+01, .205811E+01,
2272 + .182474E+01, .161204E+01, .141861E+01, .124319E+01,
2273 + .108440E+01, .941894E+00, .813048E+00, .697799E+00,
2274 + .595123E+00, .504104E+00, .423814E+00, .353404E+00,
2275 + .292026E+00, .238924E+00, .193334E+00, .154427E+00,
2276 + .121886E+00, .945617E-01, .720707E-01, .538245E-01 /
2277 DATA (UPDI(I),I=8269,8320) /
2278 + .392555E-01, .278498E-01, .191085E-01, .126124E-01,
2279 + .790486E-02, .466540E-02, .253819E-02, .123704E-02,
2280 + .514352E-03, .167656E-03, .365284E-04, .372694E-05,
2281 + .000000E+00, .503360E+06, .386178E+06, .291910E+06,
2282 + .220556E+06, .166590E+06, .125771E+06, .949255E+05,
2283 + .716144E+05, .540137E+05, .407234E+05, .306970E+05,
2284 + .231322E+05, .174298E+05, .131307E+05, .989226E+04,
2285 + .745235E+04, .561560E+04, .423242E+04, .319163E+04,
2286 + .240811E+04, .181868E+04, .137493E+04, .104102E+04,
2287 + .789526E+03, .600136E+03, .457352E+03, .349729E+03,
2288 + .267387E+03, .206135E+03, .159696E+03, .124448E+03,
2289 + .975968E+02, .770964E+02, .614168E+02, .493211E+02,
2290 + .399627E+02, .326899E+02, .269940E+02, .225068E+02 /
2291 DATA (UPDI(I),I=8321,8372) /
2292 + .189378E+02, .160821E+02, .137687E+02, .118790E+02,
2293 + .103177E+02, .901582E+01, .791824E+01, .698772E+01,
2294 + .618321E+01, .549074E+01, .488218E+01, .434920E+01,
2295 + .387722E+01, .345689E+01, .308033E+01, .274145E+01,
2296 + .243533E+01, .215824E+01, .190725E+01, .167999E+01,
2297 + .147454E+01, .128917E+01, .112241E+01, .972644E+00,
2298 + .839282E+00, .719649E+00, .613481E+00, .519641E+00,
2299 + .437114E+00, .364898E+00, .302080E+00, .247770E+00,
2300 + .201176E+00, .161517E+00, .127966E+00, .100156E+00,
2301 + .770215E-01, .581631E-01, .430179E-01, .310529E-01,
2302 + .217901E-01, .147750E-01, .962842E-02, .595037E-02,
2303 + .345763E-02, .184828E-02, .882775E-03, .358478E-03,
2304 + .113687E-03, .241259E-04, .248590E-05, .000000E+00 /
2305 DATA (UPDI(I),I=8373,8424) /
2306 + .704151E+06, .537538E+06, .403962E+06, .303426E+06,
2307 + .227818E+06, .170958E+06, .128239E+06, .961448E+05,
2308 + .720564E+05, .539771E+05, .404212E+05, .302570E+05,
2309 + .226433E+05, .169400E+05, .126718E+05, .947731E+04,
2310 + .708867E+04, .530229E+04, .396747E+04, .296978E+04,
2311 + .222466E+04, .166788E+04, .125208E+04, .941337E+03,
2312 + .709170E+03, .535540E+03, .405743E+03, .307276E+03,
2313 + .234654E+03, .180073E+03, .139001E+03, .107989E+03,
2314 + .845172E+02, .667222E+02, .531104E+02, .426682E+02,
2315 + .346176E+02, .283622E+02, .234699E+02, .196061E+02,
2316 + .165340E+02, .140608E+02, .120517E+02, .104010E+02,
2317 + .903157E+01, .788295E+01, .691398E+01, .608045E+01,
2318 + .536658E+01, .474246E+01, .419867E+01, .371975E+01 /
2319 DATA (UPDI(I),I=8425,8476) /
2320 + .329564E+01, .291801E+01, .258037E+01, .227750E+01,
2321 + .200536E+01, .176071E+01, .154091E+01, .134373E+01,
2322 + .116722E+01, .100965E+01, .869217E+00, .745126E+00,
2323 + .634664E+00, .537393E+00, .452084E+00, .377647E+00,
2324 + .313025E+00, .257263E+00, .209446E+00, .168765E+00,
2325 + .134434E+00, .105641E+00, .819886E-01, .624947E-01,
2326 + .467576E-01, .342463E-01, .244667E-01, .169800E-01,
2327 + .113774E-01, .731967E-02, .445996E-02, .255125E-02,
2328 + .133979E-02, .627008E-03, .248634E-03, .767169E-04,
2329 + .158621E-04, .165165E-05, .000000E+00, .960220E+06,
2330 + .729577E+06, .545266E+06, .407285E+06, .304074E+06,
2331 + .226880E+06, .169201E+06, .126111E+06, .939507E+05,
2332 + .699518E+05, .520612E+05, .387259E+05, .287962E+05 /
2333 DATA (UPDI(I),I=8477,8528) /
2334 + .214031E+05, .159042E+05, .118145E+05, .877573E+04,
2335 + .651789E+04, .484185E+04, .359754E+04, .267456E+04,
2336 + .198969E+04, .148186E+04, .110508E+04, .825656E+03,
2337 + .618248E+03, .464394E+03, .348599E+03, .263877E+03,
2338 + .200718E+03, .153573E+03, .118269E+03, .917637E+02,
2339 + .718331E+02, .567079E+02, .451960E+02, .363869E+02,
2340 + .295922E+02, .243141E+02, .201728E+02, .168998E+02,
2341 + .142799E+02, .121629E+02, .104325E+02, .900388E+01,
2342 + .781146E+01, .681031E+01, .595327E+01, .522280E+01,
2343 + .458740E+01, .403660E+01, .355414E+01, .312927E+01,
2344 + .275326E+01, .241921E+01, .212164E+01, .185615E+01,
2345 + .161925E+01, .140801E+01, .121995E+01, .105287E+01,
2346 + .904852E+00, .773915E+00, .659087E+00, .557646E+00 /
2347 DATA (UPDI(I),I=8529,8580) /
2348 + .468998E+00, .391849E+00, .325054E+00, .267520E+00,
2349 + .218270E+00, .176380E+00, .141036E+00, .111462E+00,
2350 + .868726E-01, .668536E-01, .505072E-01, .374383E-01,
2351 + .271529E-01, .191983E-01, .131768E-01, .872417E-02,
2352 + .554069E-02, .332831E-02, .187414E-02, .966844E-03,
2353 + .443341E-03, .171693E-03, .515655E-04, .103995E-04,
2354 + .109466E-05, .000000E+00, .128135E+07, .969217E+06,
2355 + .720553E+06, .535354E+06, .397536E+06, .294997E+06,
2356 + .218786E+06, .162154E+06, .120115E+06, .889168E+05,
2357 + .657878E+05, .486449E+05, .359526E+05, .265574E+05,
2358 + .196102E+05, .144741E+05, .106811E+05, .788013E+04,
2359 + .581393E+04, .428976E+04, .316650E+04, .233854E+04,
2360 + .172872E+04, .127939E+04, .948488E+03, .704605E+03 /
2361 DATA (UPDI(I),I=8581,8632) /
2362 + .525011E+03, .390852E+03, .293433E+03, .221360E+03,
2363 + .167970E+03, .128298E+03, .987403E+02, .766841E+02,
2364 + .600698E+02, .475178E+02, .379799E+02, .306733E+02,
2365 + .250335E+02, .206354E+02, .171788E+02, .144269E+02,
2366 + .122141E+02, .104143E+02, .893520E+01, .770633E+01,
2367 + .667930E+01, .580420E+01, .506187E+01, .441935E+01,
2368 + .386519E+01, .338238E+01, .295960E+01, .258767E+01,
2369 + .225936E+01, .196887E+01, .171152E+01, .148355E+01,
2370 + .128176E+01, .110344E+01, .946195E+00, .807921E+00,
2371 + .686506E+00, .580818E+00, .488150E+00, .407780E+00,
2372 + .338368E+00, .278731E+00, .227766E+00, .184482E+00,
2373 + .147965E+00, .117407E+00, .920550E-01, .711572E-01,
2374 + .542958E-01, .406549E-01, .298545E-01, .214401E-01 /
2375 DATA (UPDI(I),I=8633,8684) /
2376 + .150015E-01, .101821E-01, .666089E-02, .417574E-02,
2377 + .247276E-02, .137051E-02, .694518E-03, .312035E-03,
2378 + .118032E-03, .345217E-04, .679877E-05, .723329E-06,
2379 + .000000E+00, .167774E+07, .126360E+07, .934647E+06,
2380 + .690866E+06, .510356E+06, .376731E+06, .277918E+06,
2381 + .204871E+06, .150929E+06, .111108E+06, .817445E+05,
2382 + .600986E+05, .441599E+05, .324274E+05, .238008E+05,
2383 + .174598E+05, .128040E+05, .938634E+04, .688031E+04,
2384 + .504301E+04, .369736E+04, .271177E+04, .199051E+04,
2385 + .146256E+04, .107634E+04, .793605E+03, .586846E+03,
2386 + .433491E+03, .322928E+03, .241722E+03, .181998E+03,
2387 + .137944E+03, .105357E+03, .812155E+02, .631576E+02,
2388 + .496094E+02, .393821E+02, .315974E+02, .256244E+02 /
2389 DATA (UPDI(I),I=8685,8736) /
2390 + .209929E+02, .173718E+02, .145034E+02, .122078E+02,
2391 + .103491E+02, .882828E+01, .757035E+01, .652368E+01,
2392 + .563588E+01, .488628E+01, .424064E+01, .368658E+01,
2393 + .320644E+01, .278834E+01, .242275E+01, .210206E+01,
2394 + .182021E+01, .157225E+01, .135415E+01, .116250E+01,
2395 + .994369E+00, .847188E+00, .718710E+00, .606718E+00,
2396 + .509948E+00, .425729E+00, .353231E+00, .291091E+00,
2397 + .238111E+00, .193184E+00, .155330E+00, .123650E+00,
2398 + .973584E-01, .757299E-01, .580548E-01, .439210E-01,
2399 + .325925E-01, .237098E-01, .168592E-01, .116730E-01,
2400 + .783447E-02, .506360E-02, .313321E-02, .182891E-02,
2401 + .997658E-03, .496599E-03, .218604E-03, .807789E-04,
2402 + .230188E-04, .443188E-05, .476488E-06, .000000E+00 /
2403 DATA (UPDI(I),I=8737,8788) /
2404 + .215974E+07, .161990E+07, .119231E+07, .876963E+06,
2405 + .644582E+06, .473401E+06, .347439E+06, .254788E+06,
2406 + .186713E+06, .136717E+06, .100040E+06, .731449E+05,
2407 + .534457E+05, .390234E+05, .284767E+05, .207673E+05,
2408 + .151384E+05, .110301E+05, .803502E+04, .585211E+04,
2409 + .426289E+04, .310597E+04, .226457E+04, .165256E+04,
2410 + .120770E+04, .884141E+03, .649099E+03, .475947E+03,
2411 + .351963E+03, .261527E+03, .195469E+03, .147080E+03,
2412 + .111531E+03, .853750E+02, .659389E+02, .514517E+02,
2413 + .405831E+02, .323598E+02, .260853E+02, .212458E+02,
2414 + .174807E+02, .145121E+02, .121467E+02, .102398E+02,
2415 + .868615E+01, .740646E+01, .634626E+01, .545097E+01,
2416 + .469851E+01, .405354E+01, .350283E+01, .302814E+01 /
2417 DATA (UPDI(I),I=8789,8840) /
2418 + .261711E+01, .225984E+01, .194843E+01, .167654E+01,
2419 + .143898E+01, .123151E+01, .105047E+01, .892803E+00,
2420 + .755769E+00, .637012E+00, .534240E+00, .446082E+00,
2421 + .369921E+00, .304847E+00, .249489E+00, .202649E+00,
2422 + .163237E+00, .130289E+00, .102937E+00, .804227E-01,
2423 + .620580E-01, .471793E-01, .353878E-01, .260243E-01,
2424 + .187534E-01, .132026E-01, .904513E-02, .600264E-02,
2425 + .383280E-02, .234069E-02, .134670E-02, .722963E-03,
2426 + .353459E-03, .152449E-03, .550392E-04, .152882E-04,
2427 + .288064E-05, .312915E-06, .000000E+00, .273753E+07,
2428 + .204506E+07, .149808E+07, .109657E+07, .802078E+06,
2429 + .586177E+06, .428066E+06, .312333E+06, .227715E+06,
2430 + .165878E+06, .120741E+06, .878110E+05, .638154E+05 /
2431 DATA (UPDI(I),I=8841,8892) /
2432 + .463395E+05, .336270E+05, .243844E+05, .176727E+05,
2433 + .128012E+05, .926957E+04, .671027E+04, .485775E+04,
2434 + .351709E+04, .254786E+04, .184714E+04, .134094E+04,
2435 + .975043E+03, .710945E+03, .517651E+03, .380150E+03,
2436 + .280513E+03, .208209E+03, .155596E+03, .117193E+03,
2437 + .891189E+02, .683883E+02, .530309E+02, .415764E+02,
2438 + .329584E+02, .264168E+02, .213964E+02, .175083E+02,
2439 + .144562E+02, .120344E+02, .100900E+02, .851208E+01,
2440 + .721776E+01, .614994E+01, .525213E+01, .450099E+01,
2441 + .386025E+01, .331591E+01, .284920E+01, .244736E+01,
2442 + .210017E+01, .179944E+01, .153861E+01, .131225E+01,
2443 + .111593E+01, .945825E+00, .798724E+00, .671787E+00,
2444 + .562566E+00, .468720E+00, .388800E+00, .320260E+00 /
2445 DATA (UPDI(I),I=8893,8944) /
2446 + .262129E+00, .213048E+00, .171832E+00, .137419E+00,
2447 + .108876E+00, .853704E-01, .661806E-01, .506595E-01,
2448 + .381926E-01, .284010E-01, .206976E-01, .147738E-01,
2449 + .102972E-01, .698005E-02, .457994E-02, .288888E-02,
2450 + .174111E-02, .987284E-03, .521574E-03, .250449E-03,
2451 + .105838E-03, .373396E-04, .101150E-04, .186708E-05,
2452 + .204874E-06, .000000E+00, .583956E+04, .686188E+04,
2453 + .568856E+04, .471694E+04, .391223E+04, .324566E+04,
2454 + .269344E+04, .223586E+04, .185665E+04, .154231E+04,
2455 + .128169E+04, .106556E+04, .886278E+03, .737528E+03,
2456 + .614073E+03, .511578E+03, .426458E+03, .355743E+03,
2457 + .296972E+03, .248108E+03, .207464E+03, .173643E+03,
2458 + .145485E+03, .122031E+03, .102485E+03, .861872E+02 /
2459 DATA (UPDI(I),I=8945,8996) /
2460 + .725900E+02, .610931E+02, .516411E+02, .437414E+02,
2461 + .371354E+02, .316081E+02, .269807E+02, .231151E+02,
2462 + .198666E+02, .171429E+02, .148572E+02, .129366E+02,
2463 + .113199E+02, .995528E+01, .880147E+01, .782026E+01,
2464 + .698184E+01, .626087E+01, .563625E+01, .509056E+01,
2465 + .461105E+01, .418128E+01, .379683E+01, .344510E+01,
2466 + .312346E+01, .282593E+01, .254942E+01, .229215E+01,
2467 + .205344E+01, .183310E+01, .163098E+01, .144658E+01,
2468 + .127904E+01, .112718E+01, .989757E+00, .865531E+00,
2469 + .753392E+00, .652798E+00, .561850E+00, .480438E+00,
2470 + .407876E+00, .343537E+00, .286828E+00, .237188E+00,
2471 + .194069E+00, .156939E+00, .125255E+00, .984874E-01,
2472 + .763484E-01, .580169E-01, .431854E-01, .313921E-01 /
2473 DATA (UPDI(I),I=8997,9048) /
2474 + .222009E-01, .152030E-01, .100197E-01, .631007E-02,
2475 + .374400E-02, .207059E-02, .104163E-02, .460526E-03,
2476 + .168904E-03, .461163E-04, .735034E-05, .314238E-06,
2477 + .000000E+00, .184852E+05, .242640E+05, .193149E+05,
2478 + .153801E+05, .122534E+05, .976596E+04, .778828E+04,
2479 + .621391E+04, .496134E+04, .396342E+04, .316885E+04,
2480 + .253523E+04, .203027E+04, .162716E+04, .130555E+04,
2481 + .104849E+04, .843147E+03, .678769E+03, .547266E+03,
2482 + .441824E+03, .357329E+03, .289447E+03, .234939E+03,
2483 + .191050E+03, .155723E+03, .127216E+03, .104211E+03,
2484 + .853523E+02, .703279E+02, .581229E+02, .482131E+02,
2485 + .401348E+02, .335517E+02, .281794E+02, .237730E+02,
2486 + .201533E+02, .171797E+02, .147240E+02, .126944E+02 /
2487 DATA (UPDI(I),I=9049,9100) /
2488 + .110059E+02, .960005E+01, .841889E+01, .742275E+01,
2489 + .657499E+01, .584904E+01, .522100E+01, .467529E+01,
2490 + .419118E+01, .376340E+01, .337672E+01, .302814E+01,
2491 + .271041E+01, .241994E+01, .215404E+01, .191129E+01,
2492 + .169050E+01, .149067E+01, .131055E+01, .114869E+01,
2493 + .100351E+01, .873477E+00, .757162E+00, .653223E+00,
2494 + .560987E+00, .478476E+00, .405429E+00, .341036E+00,
2495 + .284580E+00, .235377E+00, .192795E+00, .156223E+00,
2496 + .125095E+00, .988464E-01, .769222E-01, .590063E-01,
2497 + .443493E-01, .326348E-01, .234390E-01, .163642E-01,
2498 + .110528E-01, .717348E-02, .444200E-02, .258351E-02,
2499 + .139829E-02, .689598E-03, .298323E-03, .106716E-03,
2500 + .283711E-04, .442352E-05, .193623E-06, .000000E+00 /
2501 DATA (UPDI(I),I=9101,9152) /
2502 + .594873E+05, .471414E+05, .369861E+05, .290215E+05,
2503 + .227784E+05, .178812E+05, .140419E+05, .110295E+05,
2504 + .866740E+04, .681341E+04, .535909E+04, .421710E+04,
2505 + .332087E+04, .261667E+04, .206367E+04, .162879E+04,
2506 + .128700E+04, .101794E+04, .806240E+03, .639369E+03,
2507 + .507903E+03, .404108E+03, .322186E+03, .257375E+03,
2508 + .206108E+03, .165464E+03, .133236E+03, .107274E+03,
2509 + .869449E+02, .707117E+02, .577502E+02, .473572E+02,
2510 + .390217E+02, .323244E+02, .269124E+02, .225295E+02,
2511 + .189773E+02, .160808E+02, .137152E+02, .117689E+02,
2512 + .101653E+02, .883088E+01, .771557E+01, .677440E+01,
2513 + .597504E+01, .528893E+01, .469747E+01, .417697E+01,
2514 + .372092E+01, .331233E+01, .294754E+01, .261843E+01 /
2515 DATA (UPDI(I),I=9153,9204) /
2516 + .232077E+01, .205124E+01, .180774E+01, .158844E+01,
2517 + .139172E+01, .121586E+01, .105904E+01, .919410E+00,
2518 + .795244E+00, .685001E+00, .587196E+00, .501059E+00,
2519 + .424582E+00, .357404E+00, .298644E+00, .247536E+00,
2520 + .203347E+00, .165413E+00, .133094E+00, .105813E+00,
2521 + .830031E-01, .641074E-01, .487991E-01, .363845E-01,
2522 + .265505E-01, .189029E-01, .130753E-01, .874480E-02,
2523 + .561486E-02, .343682E-02, .197316E-02, .105284E-02,
2524 + .510320E-03, .216324E-03, .758965E-04, .197515E-04,
2525 + .302378E-05, .134981E-06, .000000E+00, .101096E+06,
2526 + .794196E+05, .616952E+05, .479231E+05, .372294E+05,
2527 + .289211E+05, .224707E+05, .174597E+05, .135696E+05,
2528 + .105475E+05, .820147E+04, .637872E+04, .496356E+04 /
2529 DATA (UPDI(I),I=9205,9256) /
2530 + .386380E+04, .300974E+04, .234576E+04, .182989E+04,
2531 + .142858E+04, .111657E+04, .873642E+03, .684607E+03,
2532 + .537241E+03, .422405E+03, .332735E+03, .262728E+03,
2533 + .207964E+03, .165122E+03, .131075E+03, .104775E+03,
2534 + .840581E+02, .677375E+02, .548262E+02, .446057E+02,
2535 + .365002E+02, .300317E+02, .248572E+02, .207117E+02,
2536 + .173693E+02, .146681E+02, .124679E+02, .106719E+02,
2537 + .919052E+01, .796257E+01, .693453E+01, .606796E+01,
2538 + .532966E+01, .469784E+01, .414596E+01, .366616E+01,
2539 + .323979E+01, .286241E+01, .252506E+01, .222283E+01,
2540 + .195178E+01, .170917E+01, .149258E+01, .129985E+01,
2541 + .112883E+01, .977393E+00, .843485E+00, .725207E+00,
2542 + .620916E+00, .529015E+00, .448650E+00, .377804E+00 /
2543 DATA (UPDI(I),I=9257,9308) /
2544 + .316024E+00, .262382E+00, .216076E+00, .176338E+00,
2545 + .142487E+00, .113868E+00, .898992E-01, .700210E-01,
2546 + .536847E-01, .405595E-01, .300055E-01, .217180E-01,
2547 + .153316E-01, .105107E-01, .696380E-02, .442656E-02,
2548 + .268093E-02, .152184E-02, .802590E-03, .384003E-03,
2549 + .160534E-03, .551910E-04, .140542E-04, .208582E-05,
2550 + .934030E-07, .000000E+00, .157566E+06, .122945E+06,
2551 + .947673E+05, .730327E+05, .562819E+05, .433653E+05,
2552 + .334140E+05, .257431E+05, .198352E+05, .152823E+05,
2553 + .117766E+05, .907559E+04, .699621E+04, .539418E+04,
2554 + .416095E+04, .321076E+04, .247923E+04, .191545E+04,
2555 + .148126E+04, .114648E+04, .888519E+03, .689451E+03,
2556 + .535905E+03, .417263E+03, .325615E+03, .254698E+03 /
2557 DATA (UPDI(I),I=9309,9360) /
2558 + .199827E+03, .156707E+03, .123772E+03, .981232E+02,
2559 + .781443E+02, .625193E+02, .502884E+02, .406977E+02,
2560 + .331266E+02, .271354E+02, .223849E+02, .185931E+02,
2561 + .155575E+02, .131077E+02, .111249E+02, .950285E+01,
2562 + .816848E+01, .705967E+01, .613156E+01, .534635E+01,
2563 + .467898E+01, .410014E+01, .360052E+01, .315993E+01,
2564 + .277307E+01, .243016E+01, .212559E+01, .185482E+01,
2565 + .161447E+01, .140161E+01, .121360E+01, .104792E+01,
2566 + .902172E+00, .774126E+00, .661752E+00, .563311E+00,
2567 + .477126E+00, .402262E+00, .336711E+00, .279945E+00,
2568 + .231001E+00, .189049E+00, .153306E+00, .123079E+00,
2569 + .977117E-01, .766264E-01, .592740E-01, .451223E-01,
2570 + .338428E-01, .248467E-01, .178420E-01, .124915E-01 /
2571 DATA (UPDI(I),I=9361,9412) /
2572 + .848931E-02, .557310E-02, .350795E-02, .210268E-02,
2573 + .118049E-02, .615442E-03, .290749E-03, .119979E-03,
2574 + .407481E-04, .103106E-04, .155370E-05, .654757E-07,
2575 + .000000E+00, .165494E+06, .179968E+06, .137812E+06,
2576 + .105498E+06, .807508E+05, .617906E+05, .472781E+05,
2577 + .361649E+05, .276631E+05, .211558E+05, .161800E+05,
2578 + .123730E+05, .946323E+04, .723775E+04, .553726E+04,
2579 + .423695E+04, .324357E+04, .248400E+04, .190371E+04,
2580 + .145993E+04, .112083E+04, .861385E+03, .662998E+03,
2581 + .511077E+03, .394779E+03, .305618E+03, .237280E+03,
2582 + .184096E+03, .143867E+03, .112848E+03, .889235E+02,
2583 + .704003E+02, .560434E+02, .448981E+02, .361848E+02,
2584 + .293570E+02, .239931E+02, .197510E+02, .163844E+02 /
2585 DATA (UPDI(I),I=9413,9464) /
2586 + .136903E+02, .115270E+02, .977083E+01, .833640E+01,
2587 + .715280E+01, .616863E+01, .534150E+01, .464305E+01,
2588 + .404129E+01, .352543E+01, .307378E+01, .268016E+01,
2589 + .233401E+01, .202900E+01, .176002E+01, .152310E+01,
2590 + .131482E+01, .113211E+01, .972166E+00, .832338E+00,
2591 + .710250E+00, .603765E+00, .511065E+00, .430411E+00,
2592 + .360802E+00, .300249E+00, .248159E+00, .203549E+00,
2593 + .165573E+00, .133442E+00, .106459E+00, .839754E-01,
2594 + .654227E-01, .502680E-01, .380005E-01, .282983E-01,
2595 + .206214E-01, .146931E-01, .102034E-01, .687517E-02,
2596 + .447279E-02, .278832E-02, .165436E-02, .918753E-03,
2597 + .473549E-03, .220927E-03, .899902E-04, .301834E-04,
2598 + .757369E-05, .114929E-05, .463502E-07, .000000E+00 /
2599 DATA (UPDI(I),I=9465,9516) /
2600 + .348517E+06, .268800E+06, .204436E+06, .155424E+06,
2601 + .118133E+06, .897546E+05, .681778E+05, .517695E+05,
2602 + .393028E+05, .298289E+05, .226357E+05, .171730E+05,
2603 + .130280E+05, .988208E+04, .749642E+04, .568662E+04,
2604 + .431486E+04, .327459E+04, .248635E+04, .188871E+04,
2605 + .143592E+04, .109259E+04, .832389E+03, .634991E+03,
2606 + .485284E+03, .371618E+03, .285349E+03, .218889E+03,
2607 + .169128E+03, .131162E+03, .102179E+03, .799805E+02,
2608 + .629538E+02, .498783E+02, .397615E+02, .319177E+02,
2609 + .258173E+02, .210416E+02, .172871E+02, .143109E+02,
2610 + .119418E+02, .100351E+02, .848999E+01, .722521E+01,
2611 + .618132E+01, .531059E+01, .458071E+01, .395663E+01,
2612 + .342573E+01, .296471E+01, .256626E+01, .221893E+01 /
2613 DATA (UPDI(I),I=9517,9568) /
2614 + .191558E+01, .165042E+01, .141885E+01, .121694E+01,
2615 + .104116E+01, .888415E+00, .755824E+00, .640868E+00,
2616 + .541307E+00, .455252E+00, .380913E+00, .317220E+00,
2617 + .262226E+00, .215275E+00, .175373E+00, .141668E+00,
2618 + .113374E+00, .898017E-01, .703180E-01, .543730E-01,
2619 + .414579E-01, .310916E-01, .229644E-01, .165917E-01,
2620 + .117164E-01, .806005E-02, .537710E-02, .346123E-02,
2621 + .213312E-02, .125007E-02, .684871E-03, .347712E-03,
2622 + .159385E-03, .635813E-04, .207781E-04, .503387E-05,
2623 + .725985E-06, .318289E-07, .000000E+00, .503147E+06,
2624 + .385987E+06, .291739E+06, .220403E+06, .166453E+06,
2625 + .125649E+06, .948163E+05, .715168E+05, .539263E+05,
2626 + .406452E+05, .306271E+05, .230697E+05, .173738E+05 /
2627 DATA (UPDI(I),I=9569,9620) /
2628 + .130805E+05, .984731E+04, .741206E+04, .557946E+04,
2629 + .419999E+04, .316252E+04, .238195E+04, .179515E+04,
2630 + .135376E+04, .102195E+04, .772327E+03, .584607E+03,
2631 + .443311E+03, .337018E+03, .255880E+03, .195686E+03,
2632 + .150194E+03, .115790E+03, .896943E+02, .698687E+02,
2633 + .547926E+02, .432382E+02, .343665E+02, .275303E+02,
2634 + .222283E+02, .180965E+02, .148499E+02, .122864E+02,
2635 + .102398E+02, .859374E+01, .725635E+01, .616030E+01,
2636 + .525258E+01, .449699E+01, .385561E+01, .331400E+01,
2637 + .284731E+01, .244717E+01, .210126E+01, .180166E+01,
2638 + .154197E+01, .131701E+01, .112237E+01, .954175E+00,
2639 + .809058E+00, .683961E+00, .576251E+00, .483613E+00,
2640 + .404104E+00, .335903E+00, .277893E+00, .228174E+00 /
2641 DATA (UPDI(I),I=9621,9672) /
2642 + .186045E+00, .150515E+00, .120734E+00, .959301E-01,
2643 + .754302E-01, .586236E-01, .449836E-01, .340295E-01,
2644 + .253126E-01, .185394E-01, .132772E-01, .929008E-02,
2645 + .632961E-02, .418002E-02, .266190E-02, .162180E-02,
2646 + .938944E-03, .507799E-03, .254283E-03, .114819E-03,
2647 + .450868E-04, .145079E-04, .347206E-05, .502014E-06,
2648 + .212758E-07, .000000E+00, .703917E+06, .537328E+06,
2649 + .403775E+06, .303258E+06, .227668E+06, .170824E+06,
2650 + .128119E+06, .960378E+05, .719607E+05, .538915E+05,
2651 + .403446E+05, .301884E+05, .225819E+05, .168850E+05,
2652 + .126225E+05, .943311E+04, .704903E+04, .526671E+04,
2653 + .393552E+04, .294107E+04, .219885E+04, .164466E+04,
2654 + .123117E+04, .922486E+03, .692159E+03, .520169E+03 /
2655 DATA (UPDI(I),I=9673,9724) /
2656 + .391841E+03, .294706E+03, .223255E+03, .169723E+03,
2657 + .129589E+03, .994182E+02, .766982E+02, .595766E+02,
2658 + .465701E+02, .366726E+02, .291116E+02, .232982E+02,
2659 + .188049E+02, .153030E+02, .125589E+02, .103847E+02,
2660 + .864833E+01, .724750E+01, .610718E+01, .516919E+01,
2661 + .439365E+01, .373990E+01, .319174E+01, .272294E+01,
2662 + .232405E+01, .198196E+01, .168802E+01, .143526E+01,
2663 + .121799E+01, .103141E+01, .871332E+00, .734175E+00,
2664 + .616746E+00, .516326E+00, .430550E+00, .357442E+00,
2665 + .295172E+00, .242585E+00, .197844E+00, .160216E+00,
2666 + .128721E+00, .102526E+00, .808784E-01, .631290E-01,
2667 + .486952E-01, .370777E-01, .278273E-01, .205293E-01,
2668 + .149091E-01, .105830E-01, .733660E-02, .495030E-02 /
2669 DATA (UPDI(I),I=9725,9776) /
2670 + .323585E-02, .203844E-02, .122771E-02, .702168E-03,
2671 + .374856E-03, .185146E-03, .823697E-04, .318540E-04,
2672 + .101034E-04, .239401E-05, .348623E-06, .152696E-07,
2673 + .000000E+00, .959965E+06, .729349E+06, .545061E+06,
2674 + .407102E+06, .303911E+06, .226733E+06, .169071E+06,
2675 + .125994E+06, .938461E+05, .698582E+05, .519774E+05,
2676 + .386509E+05, .287290E+05, .213429E+05, .158503E+05,
2677 + .117661E+05, .873233E+04, .647895E+04, .480689E+04,
2678 + .356614E+04, .264633E+04, .196430E+04, .145900E+04,
2679 + .108449E+04, .807087E+03, .601485E+03, .449250E+03,
2680 + .334924E+03, .251496E+03, .189497E+03, .143390E+03,
2681 + .109017E+03, .833466E+02, .641638E+02, .497116E+02,
2682 + .388057E+02, .305418E+02, .242393E+02, .194055E+02 /
2683 DATA (UPDI(I),I=9777,9828) /
2684 + .156669E+02, .127584E+02, .104703E+02, .865516E+01,
2685 + .720058E+01, .602410E+01, .506265E+01, .427286E+01,
2686 + .361154E+01, .306082E+01, .259322E+01, .219828E+01,
2687 + .186216E+01, .157555E+01, .133098E+01, .112231E+01,
2688 + .944402E+00, .792832E+00, .663847E+00, .554156E+00,
2689 + .460986E+00, .381945E+00, .315042E+00, .258453E+00,
2690 + .211005E+00, .170930E+00, .137475E+00, .109684E+00,
2691 + .867457E-01, .679373E-01, .526377E-01, .402966E-01,
2692 + .304455E-01, .226681E-01, .165851E-01, .119423E-01,
2693 + .840167E-02, .577035E-02, .385559E-02, .249448E-02,
2694 + .155439E-02, .925423E-03, .522856E-03, .275538E-03,
2695 + .134237E-03, .588517E-04, .224211E-04, .701345E-05,
2696 + .164608E-05, .241101E-06, .114595E-07, .000000E+00 /
2697 DATA (UPDI(I),I=9829,9880) /
2698 + .128107E+07, .968968E+06, .720329E+06, .535154E+06,
2699 + .397358E+06, .294838E+06, .218643E+06, .162026E+06,
2700 + .120001E+06, .888145E+05, .656962E+05, .485629E+05,
2701 + .358791E+05, .264916E+05, .195512E+05, .144213E+05,
2702 + .106337E+05, .783760E+04, .577576E+04, .425548E+04,
2703 + .313569E+04, .231084E+04, .170381E+04, .125697E+04,
2704 + .928285E+03, .686387E+03, .508574E+03, .376032E+03,
2705 + .280038E+03, .209244E+03, .157000E+03, .118356E+03,
2706 + .897203E+02, .684908E+02, .526210E+02, .407394E+02,
2707 + .318046E+02, .250423E+02, .198937E+02, .159400E+02,
2708 + .128852E+02, .104979E+02, .861627E+01, .711795E+01,
2709 + .591354E+01, .493537E+01, .413689E+01, .347260E+01,
2710 + .292307E+01, .245973E+01, .207118E+01, .174293E+01 /
2711 DATA (UPDI(I),I=9881,9932) /
2712 + .146510E+01, .122976E+01, .103041E+01, .861640E+00,
2713 + .718835E+00, .598123E+00, .496150E+00, .410114E+00,
2714 + .337620E+00, .276679E+00, .225491E+00, .182875E+00,
2715 + .147143E+00, .117532E+00, .931203E-01, .731241E-01,
2716 + .568552E-01, .437256E-01, .332205E-01, .249042E-01,
2717 + .183941E-01, .133463E-01, .952808E-02, .664324E-02,
2718 + .452006E-02, .299065E-02, .191498E-02, .118033E-02,
2719 + .694637E-03, .387708E-03, .201698E-03, .969324E-04,
2720 + .418872E-04, .157266E-04, .485410E-05, .112881E-05,
2721 + .166029E-06, .849662E-08, .000000E+00, .167743E+07,
2722 + .126333E+07, .934403E+06, .690649E+06, .510161E+06,
2723 + .376556E+06, .277762E+06, .204731E+06, .150804E+06,
2724 + .110997E+06, .816445E+05, .600091E+05, .440797E+05 /
2725 DATA (UPDI(I),I=9933,9984) /
2726 + .323556E+05, .237365E+05, .174022E+05, .127523E+05,
2727 + .933999E+04, .683872E+04, .500567E+04, .366384E+04,
2728 + .268165E+04, .196343E+04, .143821E+04, .105443E+04,
2729 + .773870E+03, .569067E+03, .417487E+03, .308491E+03,
2730 + .228690E+03, .170226E+03, .127304E+03, .957315E+02,
2731 + .725002E+02, .552618E+02, .424513E+02, .328874E+02,
2732 + .257009E+02, .202669E+02, .161224E+02, .129406E+02,
2733 + .104699E+02, .853435E+01, .700238E+01, .577821E+01,
2734 + .478992E+01, .398807E+01, .332514E+01, .278029E+01,
2735 + .232400E+01, .194400E+01, .162527E+01, .135742E+01,
2736 + .113216E+01, .942669E+00, .783352E+00, .649448E+00,
2737 + .537008E+00, .442650E+00, .363568E+00, .297382E+00,
2738 + .242124E+00, .196031E+00, .157927E+00, .126210E+00 /
2739 DATA (UPDI(I),I=9985,10036) /
2740 + .100119E+00, .787700E-01, .614153E-01, .474049E-01,
2741 + .361870E-01, .272841E-01, .202941E-01, .148688E-01,
2742 + .106983E-01, .757212E-02, .523205E-02, .352652E-02,
2743 + .231038E-02, .146414E-02, .892633E-03, .519281E-03,
2744 + .286331E-03, .147059E-03, .697246E-04, .297052E-04,
2745 + .109953E-04, .335043E-05, .772173E-06, .113890E-06,
2746 + .623156E-08, .000000E+00, .215941E+07, .161961E+07,
2747 + .119204E+07, .876725E+06, .644369E+06, .473211E+06,
2748 + .347269E+06, .254636E+06, .186577E+06, .136596E+06,
2749 + .999310E+05, .730474E+05, .533584E+05, .389452E+05,
2750 + .284066E+05, .207045E+05, .150821E+05, .109797E+05,
2751 + .798980E+04, .581155E+04, .422649E+04, .307330E+04,
2752 + .223523E+04, .162619E+04, .118400E+04, .862830E+03 /
2753 DATA (UPDI(I),I=10037,10088) /
2754 + .629931E+03, .458724E+03, .336458E+03, .247562E+03,
2755 + .182885E+03, .135738E+03, .101301E+03, .761421E+02,
2756 + .576040E+02, .439244E+02, .337816E+02, .262116E+02,
2757 + .205250E+02, .162156E+02, .129274E+02, .103894E+02,
2758 + .841257E+01, .685699E+01, .562100E+01, .462893E+01,
2759 + .382874E+01, .317121E+01, .263420E+01, .218742E+01,
2760 + .181788E+01, .151005E+01, .125317E+01, .103863E+01,
2761 + .859390E+00, .709703E+00, .584724E+00, .480465E+00,
2762 + .393546E+00, .321181E+00, .261024E+00, .211141E+00,
2763 + .169819E+00, .135900E+00, .107870E+00, .849807E-01,
2764 + .663913E-01, .513944E-01, .393811E-01, .298380E-01,
2765 + .223254E-01, .164755E-01, .119737E-01, .854311E-02,
2766 + .599456E-02, .410465E-02, .274062E-02, .177783E-02 /
2767 DATA (UPDI(I),I=10089,10140) /
2768 + .111501E-02, .672390E-03, .386667E-03, .210642E-03,
2769 + .106815E-03, .499706E-04, .209948E-04, .766443E-05,
2770 + .230673E-05, .526975E-06, .778478E-07, .452637E-08,
2771 + .000000E+00, .273717E+07, .204474E+07, .149779E+07,
2772 + .109631E+07, .801847E+06, .585970E+06, .427881E+06,
2773 + .312168E+06, .227567E+06, .165746E+06, .120622E+06,
2774 + .877049E+05, .637204E+05, .462544E+05, .335508E+05,
2775 + .243162E+05, .176116E+05, .127465E+05, .922051E+04,
2776 + .666629E+04, .481831E+04, .348172E+04, .251614E+04,
2777 + .181867E+04, .131539E+04, .952099E+03, .690343E+03,
2778 + .499176E+03, .363553E+03, .265599E+03, .194806E+03,
2779 + .143548E+03, .106361E+03, .793755E+02, .596245E+02,
2780 + .451470E+02, .344824E+02, .265741E+02, .206700E+02 /
2781 DATA (UPDI(I),I=10141,10192) /
2782 + .162228E+02, .128491E+02, .102600E+02, .825453E+01,
2783 + .668509E+01, .544493E+01, .445504E+01, .366120E+01,
2784 + .301274E+01, .248640E+01, .205132E+01, .169383E+01,
2785 + .139805E+01, .115290E+01, .949547E+00, .780792E+00,
2786 + .640788E+00, .524658E+00, .428411E+00, .348695E+00,
2787 + .282764E+00, .228324E+00, .183488E+00, .146602E+00,
2788 + .116538E+00, .918718E-01, .718775E-01, .557599E-01,
2789 + .428555E-01, .325983E-01, .245142E-01, .182015E-01,
2790 + .133266E-01, .960681E-02, .679669E-02, .472789E-02,
2791 + .320805E-02, .212178E-02, .136282E-02, .845901E-03,
2792 + .504561E-03, .286835E-03, .154388E-03, .773047E-04,
2793 + .356900E-04, .147916E-04, .532775E-05, .158443E-05,
2794 + .358830E-06, .530368E-07, .325954E-08, .000000E+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