1 C-----------------------------------------------------------------------
3 Subroutine Ctq5HQ1 (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 : hq12 C PARAMETER (ISET=9)
19 DATA DrI, FlI, AlI / 2., 5., .2260 /
20 DATA (AmassI(I),I=1,6) / .000, .000, .200,
21 + 1.300, 4.500, 180.000 /
22 C DATA NXI, NTI, NfMxI / 90, 13, 5 /
23 DATA QINII, QMAXI, (QLI(I), I =0, NTI) /
24 + .100000E+01, .100000E+05,
25 + .100000E+01, .130000E+01, .167097E+01, .222659E+01, .309171E+01,
26 + .450000E+01, .754288E+01, .138228E+02, .281243E+02, .646894E+02,
27 + .171811E+03, .540159E+03, .206963E+04, .100000E+05 /
28 DATA XMINI, (XVI(I), I =0, NXI) /
30 + .000000E+00, .100000E-04, .124433E-04, .154836E-04, .192668E-04,
31 + .239740E-04, .298310E-04, .371184E-04, .461852E-04, .574656E-04,
32 + .714994E-04, .889575E-04, .110674E-03, .137686E-03, .171280E-03,
33 + .213055E-03, .264997E-03, .329564E-03, .409809E-03, .509508E-03,
34 + .633332E-03, .787053E-03, .977784E-03, .121428E-02, .150728E-02,
35 + .186993E-02, .231825E-02, .288037E-02, .356397E-02, .440443E-02,
36 + .543508E-02, .669508E-02, .822984E-02, .100851E-01, .123281E-01,
37 + .150167E-01, .182174E-01, .219985E-01, .264278E-01, .315720E-01,
38 + .374800E-01, .442088E-01, .517931E-01, .602576E-01, .696136E-01,
39 + .798586E-01, .909356E-01, .102935E+00, .115681E+00, .129293E+00,
40 + .143599E+00, .158606E+00, .174271E+00, .190550E+00, .207405E+00,
41 + .224796E+00, .242685E+00, .261038E+00, .279820E+00, .299001E+00,
42 + .318550E+00, .338442E+00, .358653E+00, .379067E+00, .399881E+00,
43 + .420953E+00, .442266E+00, .463806E+00, .485559E+00, .507513E+00,
44 + .529656E+00, .551978E+00, .574483E+00, .597187E+00, .619860E+00,
45 + .642828E+00, .665921E+00, .689135E+00, .712467E+00, .735911E+00,
46 + .759464E+00, .783080E+00, .806909E+00, .830741E+00, .854673E+00,
47 + .878696E+00, .902804E+00, .926992E+00, .951257E+00, .975603E+00,
49 C Parton Distribution Table:
50 DATA (UPDI(I),I=1,52) /
51 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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 DATA (UPDI(I),I=53,104) /
65 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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 DATA (UPDI(I),I=105,156) /
79 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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 DATA (UPDI(I),I=157,208) /
93 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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 DATA (UPDI(I),I=209,260) /
107 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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 DATA (UPDI(I),I=261,312) /
121 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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 DATA (UPDI(I),I=313,364) /
135 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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 DATA (UPDI(I),I=365,416) /
149 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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 DATA (UPDI(I),I=417,468) /
163 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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, .219313E+06,
173 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
174 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
175 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
176 DATA (UPDI(I),I=469,520) /
177 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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 DATA (UPDI(I),I=521,572) /
191 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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, .114266E+06, .871492E+05,
198 + .654051E+05, .490335E+05, .367404E+05, .274971E+05,
199 + .205671E+05, .153647E+05, .114705E+05, .855216E+04,
200 + .637155E+04, .474036E+04, .352384E+04, .261566E+04,
201 + .193974E+04, .143624E+04, .106235E+04, .784502E+03,
202 + .578686E+03, .426107E+03, .313373E+03, .230026E+03,
203 + .168627E+03, .123375E+03, .901401E+02, .657217E+02 /
204 DATA (UPDI(I),I=573,624) /
205 + .478459E+02, .346109E+02, .251162E+02, .181894E+02,
206 + .131574E+02, .949964E+01, .685318E+01, .494118E+01,
207 + .355919E+01, .256214E+01, .184592E+01, .133036E+01,
208 + .960645E+00, .694566E+00, .503906E+00, .366381E+00,
209 + .267489E+00, .195869E+00, .144085E+00, .106333E+00,
210 + .789312E-01, .586736E-01, .438747E-01, .328378E-01,
211 + .246970E-01, .186061E-01, .140587E-01, .106276E-01,
212 + .804811E-02, .608948E-02, .461174E-02, .348574E-02,
213 + .263256E-02, .198106E-02, .148733E-02, .111007E-02,
214 + .824692E-03, .607826E-03, .443977E-03, .320089E-03,
215 + .227733E-03, .158674E-03, .107888E-03, .706118E-04,
216 + .438834E-04, .248312E-04, .116999E-04, .295479E-05,
217 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
218 DATA (UPDI(I),I=625,676) /
219 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
220 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
221 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
222 + .000000E+00, .264462E+06, .201052E+06, .150321E+06,
223 + .112272E+06, .838029E+05, .624801E+05, .465518E+05,
224 + .346412E+05, .257590E+05, .191291E+05, .141939E+05,
225 + .105173E+05, .778589E+04, .575531E+04, .425000E+04,
226 + .313347E+04, .230769E+04, .169670E+04, .124599E+04,
227 + .913351E+03, .668623E+03, .488523E+03, .356430E+03,
228 + .259534E+03, .188690E+03, .136888E+03, .991498E+02,
229 + .713478E+02, .515005E+02, .370973E+02, .266857E+02,
230 + .191592E+02, .137414E+02, .984964E+01, .705168E+01,
231 + .504510E+01, .361170E+01, .258630E+01, .185521E+01 /
232 DATA (UPDI(I),I=677,728) /
233 + .133244E+01, .960077E+00, .693285E+00, .502598E+00,
234 + .365453E+00, .266911E+00, .195572E+00, .144125E+00,
235 + .106358E+00, .789498E-01, .586581E-01, .437889E-01,
236 + .327474E-01, .245586E-01, .184282E-01, .138512E-01,
237 + .104040E-01, .782158E-02, .587020E-02, .440296E-02,
238 + .329229E-02, .245736E-02, .182524E-02, .135111E-02,
239 + .994282E-03, .727001E-03, .526805E-03, .378820E-03,
240 + .269081E-03, .188911E-03, .130353E-03, .884055E-04,
241 + .583797E-04, .373651E-04, .229468E-04, .133152E-04,
242 + .699388E-05, .308466E-05, .773916E-06, .000000E+00,
243 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
244 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
245 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
246 DATA (UPDI(I),I=729,780) /
247 + .458393E+06, .347332E+06, .258689E+06, .192465E+06,
248 + .143099E+06, .106271E+06, .788630E+05, .584514E+05,
249 + .432876E+05, .320156E+05, .236575E+05, .174569E+05,
250 + .128687E+05, .947223E+04, .696456E+04, .511264E+04,
251 + .374865E+04, .274391E+04, .200588E+04, .146368E+04,
252 + .106650E+04, .775569E+03, .563145E+03, .408065E+03,
253 + .295205E+03, .213080E+03, .153544E+03, .109906E+03,
254 + .789080E+02, .565323E+02, .404392E+02, .288701E+02,
255 + .205854E+02, .146687E+02, .104378E+02, .742174E+01,
256 + .527935E+01, .375628E+01, .267671E+01, .190972E+01,
257 + .136667E+01, .980182E+00, .705629E+00, .509523E+00,
258 + .369500E+00, .268837E+00, .196707E+00, .144126E+00,
259 + .106218E+00, .783550E-01, .580694E-01, .431170E-01 /
260 DATA (UPDI(I),I=781,832) /
261 + .320999E-01, .239147E-01, .178441E-01, .133077E-01,
262 + .993203E-02, .740139E-02, .551195E-02, .409337E-02,
263 + .303461E-02, .223992E-02, .164815E-02, .120681E-02,
264 + .878651E-03, .635021E-03, .456287E-03, .324859E-03,
265 + .229510E-03, .160356E-03, .111039E-03, .758586E-04,
266 + .512081E-04, .341740E-04, .226107E-04, .147793E-04,
267 + .963760E-05, .627434E-05, .413281E-05, .275620E-05,
268 + .188878E-05, .131930E-05, .936239E-06, .653480E-06,
269 + .439402E-06, .274394E-06, .151906E-06, .681062E-07,
270 + .200768E-07, .179725E-08, .000000E+00, .704958E+06,
271 + .532357E+06, .394926E+06, .292664E+06, .216724E+06,
272 + .160302E+06, .118474E+06, .874520E+05, .644962E+05,
273 + .475032E+05, .349536E+05, .256831E+05, .188512E+05 /
274 DATA (UPDI(I),I=833,884) /
275 + .138158E+05, .101136E+05, .739155E+04, .539521E+04,
276 + .393131E+04, .286066E+04, .207772E+04, .150676E+04,
277 + .109051E+04, .787975E+03, .568176E+03, .408969E+03,
278 + .293688E+03, .210533E+03, .149894E+03, .107038E+03,
279 + .762678E+02, .542506E+02, .385109E+02, .272990E+02,
280 + .193380E+02, .136765E+02, .966480E+01, .683137E+01,
281 + .482950E+01, .341891E+01, .242316E+01, .172240E+01,
282 + .122698E+01, .877194E+00, .629053E+00, .452991E+00,
283 + .327289E+00, .237795E+00, .173004E+00, .126601E+00,
284 + .927348E-01, .682375E-01, .503113E-01, .371884E-01,
285 + .275110E-01, .203809E-01, .150931E-01, .111843E-01,
286 + .827642E-02, .612017E-02, .451402E-02, .332359E-02,
287 + .243742E-02, .178212E-02, .129759E-02, .939846E-03 /
288 DATA (UPDI(I),I=885,936) /
289 + .676473E-03, .484637E-03, .344715E-03, .243882E-03,
290 + .171268E-03, .119730E-03, .831255E-04, .575064E-04,
291 + .397431E-04, .275781E-04, .191923E-04, .135047E-04,
292 + .960320E-05, .692659E-05, .503651E-05, .368556E-05,
293 + .267980E-05, .191368E-05, .131556E-05, .853359E-06,
294 + .506969E-06, .263608E-06, .109967E-06, .301936E-07,
295 + .280602E-08, .000000E+00, .101376E+07, .762935E+06,
296 + .563700E+06, .416054E+06, .306840E+06, .226029E+06,
297 + .166359E+06, .122288E+06, .898075E+05, .658661E+05,
298 + .482575E+05, .353059E+05, .258011E+05, .188263E+05,
299 + .137200E+05, .998237E+04, .725311E+04, .526089E+04,
300 + .381031E+04, .275447E+04, .198798E+04, .143187E+04,
301 + .102955E+04, .738681E+03, .529007E+03, .377934E+03 /
302 DATA (UPDI(I),I=937,988) /
303 + .269514E+03, .190856E+03, .135552E+03, .960561E+02,
304 + .679425E+02, .479565E+02, .337959E+02, .237992E+02,
305 + .167295E+02, .117496E+02, .825263E+01, .579718E+01,
306 + .407723E+01, .287081E+01, .202694E+01, .143425E+01,
307 + .101838E+01, .725327E+00, .518712E+00, .372194E+00,
308 + .268549E+00, .194022E+00, .140994E+00, .102562E+00,
309 + .749408E-01, .548715E-01, .402748E-01, .295882E-01,
310 + .217661E-01, .160081E-01, .117795E-01, .865704E-02,
311 + .635740E-02, .465747E-02, .340617E-02, .248206E-02,
312 + .180338E-02, .130567E-02, .940695E-03, .674146E-03,
313 + .481331E-03, .341769E-03, .241834E-03, .170341E-03,
314 + .119823E-03, .840889E-04, .591077E-04, .417353E-04,
315 + .297516E-04, .213747E-04, .155553E-04, .114353E-04 /
316 DATA (UPDI(I),I=989,1040) /
317 + .848316E-05, .630134E-05, .466144E-05, .339409E-05,
318 + .240172E-05, .162513E-05, .103041E-05, .594802E-06,
319 + .298423E-06, .119196E-06, .312505E-07, .296201E-08,
320 + .000000E+00, .139488E+07, .104614E+07, .769800E+06,
321 + .565857E+06, .415598E+06, .304877E+06, .223451E+06,
322 + .163565E+06, .119610E+06, .873485E+05, .637195E+05,
323 + .464153E+05, .337700E+05, .245318E+05, .177976E+05,
324 + .128906E+05, .932320E+04, .673114E+04, .485226E+04,
325 + .349110E+04, .250752E+04, .179731E+04, .128593E+04,
326 + .918029E+03, .654105E+03, .464893E+03, .329794E+03,
327 + .232287E+03, .164084E+03, .115638E+03, .813346E+02,
328 + .570836E+02, .399936E+02, .279981E+02, .195621E+02,
329 + .136551E+02, .953101E+01, .665290E+01, .464888E+01 /
330 DATA (UPDI(I),I=1041,1092) /
331 + .325204E+01, .228092E+01, .160327E+01, .113070E+01,
332 + .799908E+00, .568151E+00, .404897E+00, .290153E+00,
333 + .208193E+00, .150257E+00, .108553E+00, .787733E-01,
334 + .572849E-01, .417567E-01, .304684E-01, .222597E-01,
335 + .162606E-01, .118835E-01, .867479E-02, .632747E-02,
336 + .460512E-02, .334589E-02, .242302E-02, .174980E-02,
337 + .125997E-02, .903163E-03, .644550E-03, .458706E-03,
338 + .325151E-03, .230081E-03, .162471E-03, .114880E-03,
339 + .813241E-04, .578749E-04, .415091E-04, .301364E-04,
340 + .220830E-04, .163744E-04, .122342E-04, .917875E-05,
341 + .685929E-05, .507111E-05, .366961E-05, .256524E-05,
342 + .170775E-05, .106053E-05, .596950E-06, .290407E-06,
343 + .111717E-06, .281448E-07, .271037E-08, .000000E+00 /
344 DATA (UPDI(I),I=1093,1144) /
345 + .185861E+07, .138912E+07, .101799E+07, .745223E+06,
346 + .545063E+06, .398186E+06, .290609E+06, .211824E+06,
347 + .154237E+06, .112152E+06, .814565E+05, .590759E+05,
348 + .427908E+05, .309463E+05, .223498E+05, .161141E+05,
349 + .116009E+05, .833674E+04, .598138E+04, .428304E+04,
350 + .306151E+04, .218372E+04, .155468E+04, .110434E+04,
351 + .782853E+03, .553525E+03, .390620E+03, .273650E+03,
352 + .192259E+03, .134754E+03, .942505E+02, .657747E+02,
353 + .458158E+02, .318867E+02, .221455E+02, .153647E+02,
354 + .106577E+02, .739281E+01, .513295E+01, .356756E+01,
355 + .248588E+01, .173587E+01, .121608E+01, .854587E+00,
356 + .602912E+00, .426790E+00, .303786E+00, .216504E+00,
357 + .155203E+00, .111372E+00, .802728E-01, .579844E-01 /
358 DATA (UPDI(I),I=1145,1196) /
359 + .419811E-01, .304276E-01, .220805E-01, .160228E-01,
360 + .116316E-01, .843519E-02, .611236E-02, .442020E-02,
361 + .319129E-02, .229728E-02, .164941E-02, .118156E-02,
362 + .842952E-03, .599293E-03, .425289E-03, .301066E-03,
363 + .213113E-03, .150886E-03, .107215E-03, .764924E-04,
364 + .550064E-04, .399417E-04, .293892E-04, .218214E-04,
365 + .163612E-04, .123238E-04, .928121E-05, .693296E-05,
366 + .509873E-05, .365568E-05, .252124E-05, .165078E-05,
367 + .100464E-05, .552060E-06, .260876E-06, .968981E-07,
368 + .235376E-07, .229938E-08, .000000E+00, .241510E+07,
369 + .179882E+07, .131282E+07, .957110E+06, .697129E+06,
370 + .507151E+06, .368573E+06, .267513E+06, .193950E+06,
371 + .140421E+06, .101544E+06, .733216E+05, .528739E+05 /
372 DATA (UPDI(I),I=1197,1248) /
373 + .380677E+05, .273687E+05, .196430E+05, .140763E+05,
374 + .100686E+05, .718993E+04, .512401E+04, .364499E+04,
375 + .258728E+04, .183290E+04, .129548E+04, .913694E+03,
376 + .642712E+03, .451200E+03, .314398E+03, .219702E+03,
377 + .153152E+03, .106525E+03, .739234E+02, .511962E+02,
378 + .354249E+02, .244567E+02, .168663E+02, .116276E+02,
379 + .801564E+01, .553032E+01, .381932E+01, .264415E+01,
380 + .183445E+01, .127670E+01, .891313E+00, .624665E+00,
381 + .439268E+00, .310601E+00, .219889E+00, .156587E+00,
382 + .111621E+00, .799185E-01, .573485E-01, .412457E-01,
383 + .296988E-01, .214098E-01, .154355E-01, .111323E-01,
384 + .802150E-02, .577564E-02, .415094E-02, .297877E-02,
385 + .213209E-02, .152247E-02, .108540E-02, .771021E-03 /
386 DATA (UPDI(I),I=1249,1300) /
387 + .546330E-03, .386811E-03, .273612E-03, .193845E-03,
388 + .137650E-03, .982960E-04, .706397E-04, .512600E-04,
389 + .375950E-04, .279400E-04, .209300E-04, .157926E-04,
390 + .119350E-04, .898443E-05, .668479E-05, .487829E-05,
391 + .345979E-05, .235238E-05, .151439E-05, .903378E-06,
392 + .484868E-06, .222759E-06, .800085E-07, .187861E-07,
393 + .186004E-08, .000000E+00, .000000E+00, .000000E+00,
394 + .000000E+00, .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 DATA (UPDI(I),I=1301,1352) /
401 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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 DATA (UPDI(I),I=1353,1404) /
415 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
416 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
417 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
418 + .000000E+00, .445240E+05, .000000E+00, .000000E+00,
419 + .000000E+00, .000000E+00, .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 DATA (UPDI(I),I=1405,1456) /
429 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
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 DATA (UPDI(I),I=1457,1508) /
443 + .274822E+05, .214667E+05, .165611E+05, .127651E+05,
444 + .983639E+04, .757251E+04, .582774E+04, .448046E+04,
445 + .344333E+04, .264341E+04, .202843E+04, .155472E+04,
446 + .119103E+04, .911279E+03, .696838E+03, .532141E+03,
447 + .406112E+03, .309481E+03, .235680E+03, .179197E+03,
448 + .136146E+03, .103265E+03, .782619E+02, .592094E+02,
449 + .447570E+02, .337721E+02, .254593E+02, .190862E+02,
450 + .143561E+02, .107793E+02, .809053E+01, .606295E+01,
451 + .454383E+01, .340399E+01, .255033E+01, .190998E+01,
452 + .143296E+01, .107555E+01, .809594E+00, .610155E+00,
453 + .461759E+00, .350123E+00, .266749E+00, .203725E+00,
454 + .156385E+00, .120346E+00, .931657E-01, .721917E-01,
455 + .562646E-01, .438642E-01, .343649E-01, .269436E-01 /
456 DATA (UPDI(I),I=1509,1560) /
457 + .211923E-01, .166619E-01, .131284E-01, .103275E-01,
458 + .813627E-02, .639425E-02, .502453E-02, .393315E-02,
459 + .307490E-02, .239029E-02, .185266E-02, .142549E-02,
460 + .109048E-02, .825627E-03, .619886E-03, .458661E-03,
461 + .334526E-03, .238594E-03, .166036E-03, .110928E-03,
462 + .704321E-04, .408458E-04, .199318E-04, .554196E-05,
463 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
464 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
465 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
466 + .000000E+00, .000000E+00, .000000E+00, .666109E+05,
467 + .517979E+05, .397570E+05, .304883E+05, .233724E+05,
468 + .179007E+05, .137047E+05, .104818E+05, .801326E+04,
469 + .611954E+04, .467101E+04, .356127E+04, .271364E+04 /
470 DATA (UPDI(I),I=1561,1612) /
471 + .206521E+04, .157072E+04, .119305E+04, .905545E+03,
472 + .686350E+03, .519813E+03, .393081E+03, .296992E+03,
473 + .224024E+03, .168832E+03, .127020E+03, .954714E+02,
474 + .716310E+02, .536885E+02, .400142E+02, .299200E+02,
475 + .223340E+02, .166617E+02, .124110E+02, .924325E+01,
476 + .688168E+01, .512251E+01, .381164E+01, .284047E+01,
477 + .211778E+01, .158300E+01, .118479E+01, .890187E+00,
478 + .670188E+00, .506825E+00, .384275E+00, .292763E+00,
479 + .223640E+00, .171828E+00, .132155E+00, .102221E+00,
480 + .791034E-01, .615043E-01, .478704E-01, .373707E-01,
481 + .291709E-01, .228164E-01, .178243E-01, .139444E-01,
482 + .108872E-01, .850049E-02, .661615E-02, .514529E-02,
483 + .398295E-02, .307713E-02, .236445E-02, .180980E-02 /
484 DATA (UPDI(I),I=1613,1664) /
485 + .137530E-02, .104036E-02, .780008E-03, .580845E-03,
486 + .427747E-03, .312259E-03, .224610E-03, .159602E-03,
487 + .111468E-03, .765075E-04, .512128E-04, .335581E-04,
488 + .212400E-04, .130322E-04, .759736E-05, .422143E-05,
489 + .217809E-05, .105520E-05, .436660E-06, .155180E-06,
490 + .431853E-07, .129952E-07, .573049E-08, .357984E-08,
491 + .000000E+00, .000000E+00, .119725E+06, .927128E+05,
492 + .708220E+05, .540522E+05, .412376E+05, .314317E+05,
493 + .239472E+05, .182268E+05, .138660E+05, .105373E+05,
494 + .800326E+04, .607169E+04, .460342E+04, .348594E+04,
495 + .263788E+04, .199352E+04, .150539E+04, .113519E+04,
496 + .855313E+03, .643458E+03, .483624E+03, .362901E+03,
497 + .272045E+03, .203591E+03, .152200E+03, .113577E+03 /
498 DATA (UPDI(I),I=1665,1716) /
499 + .846613E+02, .627468E+02, .466541E+02, .346298E+02,
500 + .256852E+02, .190220E+02, .140821E+02, .104219E+02,
501 + .770965E+01, .570124E+01, .422132E+01, .312716E+01,
502 + .232194E+01, .172637E+01, .128822E+01, .963298E+00,
503 + .723387E+00, .544704E+00, .412051E+00, .312582E+00,
504 + .238467E+00, .182129E+00, .139881E+00, .107500E+00,
505 + .829945E-01, .641568E-01, .497351E-01, .385612E-01,
506 + .299531E-01, .232450E-01, .180621E-01, .140108E-01,
507 + .108676E-01, .840612E-02, .649669E-02, .500045E-02,
508 + .384158E-02, .293788E-02, .223881E-02, .169572E-02,
509 + .127977E-02, .958993E-03, .715121E-03, .528973E-03,
510 + .389214E-03, .283727E-03, .205598E-03, .147751E-03,
511 + .105581E-03, .747759E-04, .528468E-04, .370882E-04 /
512 DATA (UPDI(I),I=1717,1768) /
513 + .260454E-04, .181827E-04, .127238E-04, .884292E-05,
514 + .611170E-05, .410731E-05, .266633E-05, .162150E-05,
515 + .890873E-06, .407827E-06, .127940E-06, .995848E-08,
516 + .000000E+00, .178154E+06, .146341E+06, .111281E+06,
517 + .845450E+05, .642057E+05, .487138E+05, .369424E+05,
518 + .279874E+05, .211918E+05, .160291E+05, .121168E+05,
519 + .914898E+04, .690338E+04, .520260E+04, .391786E+04,
520 + .294653E+04, .221415E+04, .166149E+04, .124564E+04,
521 + .932464E+03, .697316E+03, .520620E+03, .388283E+03,
522 + .289095E+03, .214997E+03, .159599E+03, .118335E+03,
523 + .872292E+02, .645039E+02, .476178E+02, .351204E+02,
524 + .258633E+02, .190357E+02, .140063E+02, .102990E+02,
525 + .757025E+01, .557032E+01, .410085E+01, .302536E+01 /
526 DATA (UPDI(I),I=1769,1820) /
527 + .223497E+01, .165675E+01, .123079E+01, .918049E+00,
528 + .686709E+00, .515950E+00, .388794E+00, .294604E+00,
529 + .223500E+00, .170499E+00, .130163E+00, .998163E-01,
530 + .766566E-01, .590287E-01, .454710E-01, .350871E-01,
531 + .270559E-01, .208861E-01, .160992E-01, .124072E-01,
532 + .953799E-02, .732536E-02, .560508E-02, .428045E-02,
533 + .325593E-02, .246794E-02, .186053E-02, .139813E-02,
534 + .104421E-02, .776764E-03, .574063E-03, .422653E-03,
535 + .309076E-03, .225259E-03, .163368E-03, .118296E-03,
536 + .853116E-04, .616445E-04, .444600E-04, .321670E-04,
537 + .232008E-04, .167411E-04, .119640E-04, .843045E-05,
538 + .574576E-05, .374351E-05, .226399E-05, .122303E-05,
539 + .544278E-06, .163805E-06, .137529E-07, .000000E+00 /
540 DATA (UPDI(I),I=1821,1872) /
541 + .299483E+06, .229969E+06, .173975E+06, .131501E+06,
542 + .993481E+05, .749871E+05, .565687E+05, .426320E+05,
543 + .321093E+05, .241583E+05, .181637E+05, .136413E+05,
544 + .102370E+05, .767302E+04, .574635E+04, .429790E+04,
545 + .321155E+04, .239649E+04, .178648E+04, .132975E+04,
546 + .988667E+03, .733891E+03, .544123E+03, .402746E+03,
547 + .297721E+03, .219676E+03, .161881E+03, .118583E+03,
548 + .871365E+02, .639201E+02, .468377E+02, .342682E+02,
549 + .250522E+02, .183098E+02, .133698E+02, .975924E+01,
550 + .712936E+01, .521105E+01, .381590E+01, .279825E+01,
551 + .205857E+01, .151787E+01, .112344E+01, .833994E+00,
552 + .621751E+00, .464968E+00, .349611E+00, .263216E+00,
553 + .199260E+00, .150981E+00, .114896E+00, .875853E-01 /
554 DATA (UPDI(I),I=1873,1924) /
555 + .669320E-01, .511801E-01, .391928E-01, .299999E-01,
556 + .229811E-01, .175806E-01, .134420E-01, .102525E-01,
557 + .780831E-02, .592444E-02, .448268E-02, .337782E-02,
558 + .253312E-02, .188785E-02, .140006E-02, .103031E-02,
559 + .753218E-03, .545532E-03, .391979E-03, .278410E-03,
560 + .195815E-03, .136000E-03, .934791E-04, .632905E-04,
561 + .424214E-04, .280296E-04, .183744E-04, .119001E-04,
562 + .769271E-05, .494694E-05, .318524E-05, .201117E-05,
563 + .124368E-05, .729894E-06, .392286E-06, .176424E-06,
564 + .541431E-07, .402000E-08, .000000E+00, .445269E+06,
565 + .340432E+06, .256247E+06, .192712E+06, .144852E+06,
566 + .108776E+06, .816356E+05, .612059E+05, .458583E+05,
567 + .343225E+05, .256696E+05, .191762E+05, .143137E+05 /
568 DATA (UPDI(I),I=1925,1976) /
569 + .106711E+05, .794822E+04, .591242E+04, .439364E+04,
570 + .326047E+04, .241694E+04, .178892E+04, .132249E+04,
571 + .976086E+03, .719493E+03, .529450E+03, .389065E+03,
572 + .285359E+03, .209011E+03, .152160E+03, .111113E+03,
573 + .809989E+02, .589721E+02, .428685E+02, .311322E+02,
574 + .226027E+02, .163917E+02, .118830E+02, .861967E+01,
575 + .625586E+01, .454779E+01, .331081E+01, .241760E+01,
576 + .176948E+01, .129982E+01, .957750E+00, .708604E+00,
577 + .525961E+00, .392489E+00, .293281E+00, .220350E+00,
578 + .165719E+00, .125163E+00, .947081E-01, .718320E-01,
579 + .545240E-01, .414413E-01, .314896E-01, .239420E-01,
580 + .181816E-01, .137978E-01, .104472E-01, .789742E-02,
581 + .594900E-02, .446826E-02, .334377E-02, .248999E-02 /
582 DATA (UPDI(I),I=1977,2028) /
583 + .184353E-02, .135849E-02, .994086E-03, .723082E-03,
584 + .521746E-03, .373963E-03, .265572E-03, .187211E-03,
585 + .130821E-03, .909217E-04, .626441E-04, .430194E-04,
586 + .293981E-04, .200936E-04, .136985E-04, .935801E-05,
587 + .636737E-05, .429473E-05, .281744E-05, .177414E-05,
588 + .103933E-05, .543180E-06, .231539E-06, .656326E-07,
589 + .549696E-08, .000000E+00, .634880E+06, .483348E+06,
590 + .362028E+06, .270921E+06, .202623E+06, .151398E+06,
591 + .113050E+06, .843291E+05, .628600E+05, .468057E+05,
592 + .348240E+05, .258795E+05, .192154E+05, .142497E+05,
593 + .105570E+05, .781084E+04, .577289E+04, .426063E+04,
594 + .314090E+04, .231187E+04, .169949E+04, .124724E+04,
595 + .914098E+03, .668770E+03, .488565E+03, .356215E+03 /
596 DATA (UPDI(I),I=2029,2080) /
597 + .259347E+03, .187645E+03, .136183E+03, .986586E+02,
598 + .713746E+02, .515531E+02, .371946E+02, .268268E+02,
599 + .193240E+02, .139136E+02, .100225E+02, .722323E+01,
600 + .521361E+01, .376840E+01, .273173E+01, .198489E+01,
601 + .144729E+01, .105860E+01, .777403E+00, .572782E+00,
602 + .424269E+00, .314689E+00, .234692E+00, .175214E+00,
603 + .131359E+00, .986755E-01, .742915E-01, .559838E-01,
604 + .422396E-01, .318657E-01, .240511E-01, .181330E-01,
605 + .136607E-01, .102694E-01, .770671E-02, .576446E-02,
606 + .429880E-02, .319524E-02, .236318E-02, .173846E-02,
607 + .127318E-02, .926572E-03, .670725E-03, .482214E-03,
608 + .344808E-03, .244797E-03, .172910E-03, .121460E-03,
609 + .851955E-04, .595169E-04, .416243E-04, .291190E-04 /
610 DATA (UPDI(I),I=2081,2132) /
611 + .204394E-04, .143482E-04, .100775E-04, .702679E-05,
612 + .481846E-05, .319459E-05, .201311E-05, .116989E-05,
613 + .599859E-06, .248241E-06, .677594E-07, .597734E-08,
614 + .000000E+00, .877210E+06, .665077E+06, .495732E+06,
615 + .369177E+06, .274757E+06, .204285E+06, .151783E+06,
616 + .112657E+06, .835528E+05, .618985E+05, .458177E+05,
617 + .338744E+05, .250210E+05, .184581E+05, .136026E+05,
618 + .100108E+05, .735916E+04, .540205E+04, .396060E+04,
619 + .289919E+04, .211937E+04, .154667E+04, .112712E+04,
620 + .819899E+03, .595493E+03, .431625E+03, .312386E+03,
621 + .224644E+03, .162041E+03, .116669E+03, .838752E+02,
622 + .601988E+02, .431515E+02, .309207E+02, .221246E+02,
623 + .158231E+02, .113199E+02, .810194E+01, .580677E+01 /
624 DATA (UPDI(I),I=2133,2184) /
625 + .416752E+01, .299943E+01, .216381E+01, .156629E+01,
626 + .113737E+01, .829162E+00, .606492E+00, .445977E+00,
627 + .328388E+00, .243137E+00, .180211E+00, .134128E+00,
628 + .100036E+00, .747729E-01, .559460E-01, .419085E-01,
629 + .313926E-01, .235244E-01, .176106E-01, .131727E-01,
630 + .983302E-02, .732716E-02, .544287E-02, .403097E-02,
631 + .297650E-02, .218700E-02, .159899E-02, .116422E-02,
632 + .842933E-03, .607485E-03, .435335E-03, .310675E-03,
633 + .220565E-03, .156131E-03, .110213E-03, .779352E-04,
634 + .550699E-04, .390604E-04, .277833E-04, .198389E-04,
635 + .141625E-04, .100821E-04, .709616E-05, .488052E-05,
636 + .322963E-05, .201783E-05, .115551E-05, .579349E-06,
637 + .232528E-06, .612820E-07, .557419E-08, .000000E+00 /
638 DATA (UPDI(I),I=2185,2236) /
639 + .118186E+07, .892421E+06, .662022E+06, .490661E+06,
640 + .363409E+06, .268890E+06, .198808E+06, .146834E+06,
641 + .108359E+06, .798748E+05, .588255E+05, .432707E+05,
642 + .317976E+05, .233362E+05, .171078E+05, .125244E+05,
643 + .915811E+04, .668667E+04, .487595E+04, .354981E+04,
644 + .258069E+04, .187288E+04, .135716E+04, .981639E+03,
645 + .708864E+03, .510805E+03, .367519E+03, .262696E+03,
646 + .188345E+03, .134781E+03, .962946E+02, .686793E+02,
647 + .489156E+02, .348254E+02, .247545E+02, .175863E+02,
648 + .124962E+02, .888291E+01, .632243E+01, .450601E+01,
649 + .322019E+01, .230667E+01, .165779E+01, .119524E+01,
650 + .865106E+00, .628268E+00, .458692E+00, .335336E+00,
651 + .246516E+00, .181419E+00, .134068E+00, .992874E-01 /
652 DATA (UPDI(I),I=2237,2288) /
653 + .736886E-01, .547491E-01, .407234E-01, .302929E-01,
654 + .225411E-01, .167575E-01, .124472E-01, .922774E-02,
655 + .682887E-02, .503877E-02, .370680E-02, .271981E-02,
656 + .198591E-02, .144353E-02, .104533E-02, .753295E-03,
657 + .540764E-03, .386476E-03, .275425E-03, .195640E-03,
658 + .138843E-03, .984958E-04, .701728E-04, .500730E-04,
659 + .359176E-04, .258597E-04, .186743E-04, .134593E-04,
660 + .963798E-05, .679610E-05, .465835E-05, .305966E-05,
661 + .188755E-05, .106192E-05, .519726E-06, .202145E-06,
662 + .514618E-07, .478955E-08, .000000E+00, .155890E+07,
663 + .117245E+07, .865686E+06, .638594E+06, .470733E+06,
664 + .346639E+06, .255056E+06, .187465E+06, .137666E+06,
665 + .100978E+06, .739974E+05, .541582E+05, .395969E+05 /
666 DATA (UPDI(I),I=2289,2340) /
667 + .289120E+05, .210864E+05, .153570E+05, .111705E+05,
668 + .811292E+04, .588437E+04, .426089E+04, .308078E+04,
669 + .222352E+04, .160229E+04, .115243E+04, .827457E+03,
670 + .592824E+03, .424049E+03, .301293E+03, .214728E+03,
671 + .152734E+03, .108451E+03, .768701E+02, .544035E+02,
672 + .384860E+02, .271788E+02, .191819E+02, .135391E+02,
673 + .955952E+01, .675759E+01, .478310E+01, .339449E+01,
674 + .241462E+01, .172318E+01, .123368E+01, .886637E+00,
675 + .639380E+00, .463529E+00, .336488E+00, .245633E+00,
676 + .179507E+00, .131729E+00, .968798E-01, .714020E-01,
677 + .526852E-01, .389177E-01, .287519E-01, .212475E-01,
678 + .156884E-01, .115738E-01, .852275E-02, .626504E-02,
679 + .459272E-02, .335698E-02, .244817E-02, .177699E-02 /
680 DATA (UPDI(I),I=2341,2392) /
681 + .128463E-02, .925625E-03, .664233E-03, .475244E-03,
682 + .338944E-03, .241378E-03, .171647E-03, .122185E-03,
683 + .871169E-04, .625012E-04, .449776E-04, .325529E-04,
684 + .236430E-04, .171949E-04, .124524E-04, .892686E-05,
685 + .627838E-05, .427349E-05, .277743E-05, .168812E-05,
686 + .931555E-06, .444654E-06, .167569E-06, .412462E-07,
687 + .391310E-08, .000000E+00, .201862E+07, .151231E+07,
688 + .111148E+07, .816126E+06, .598790E+06, .438868E+06,
689 + .321387E+06, .235090E+06, .171808E+06, .125410E+06,
690 + .914501E+05, .666013E+05, .484514E+05, .351995E+05,
691 + .255416E+05, .185065E+05, .133918E+05, .967547E+04,
692 + .698068E+04, .502786E+04, .361575E+04, .259547E+04,
693 + .186004E+04, .133038E+04, .949858E+03, .676638E+03 /
694 DATA (UPDI(I),I=2393,2444) /
695 + .481221E+03, .339896E+03, .240812E+03, .170266E+03,
696 + .120168E+03, .846534E+02, .595386E+02, .418541E+02,
697 + .293681E+02, .205930E+02, .144396E+02, .101277E+02,
698 + .711120E+01, .499936E+01, .352375E+01, .248940E+01,
699 + .176428E+01, .125440E+01, .895278E+00, .641147E+00,
700 + .461605E+00, .332770E+00, .241251E+00, .175093E+00,
701 + .127608E+00, .932099E-01, .682284E-01, .500030E-01,
702 + .366861E-01, .269216E-01, .197610E-01, .144938E-01,
703 + .106215E-01, .777039E-02, .567501E-02, .413408E-02,
704 + .300314E-02, .217745E-02, .157170E-02, .113048E-02,
705 + .810888E-03, .579771E-03, .413691E-03, .294625E-03,
706 + .209807E-03, .149450E-03, .106750E-03, .764986E-04,
707 + .552374E-04, .400365E-04, .291783E-04, .213189E-04 /
708 DATA (UPDI(I),I=2445,2496) /
709 + .155647E-04, .112865E-04, .807364E-05, .564709E-05,
710 + .380821E-05, .244439E-05, .146175E-05, .790439E-06,
711 + .367794E-06, .134316E-06, .320053E-07, .308843E-08,
712 + .000000E+00, .257118E+07, .191896E+07, .140397E+07,
713 + .102621E+07, .749475E+06, .546774E+06, .398539E+06,
714 + .290158E+06, .211045E+06, .153315E+06, .111259E+06,
715 + .806340E+05, .583716E+05, .421965E+05, .304655E+05,
716 + .219629E+05, .158118E+05, .113652E+05, .815714E+04,
717 + .584439E+04, .418065E+04, .298490E+04, .212752E+04,
718 + .151337E+04, .107451E+04, .761127E+03, .538241E+03,
719 + .377958E+03, .266221E+03, .187125E+03, .131278E+03,
720 + .919222E+02, .642540E+02, .448895E+02, .312993E+02,
721 + .218074E+02, .151922E+02, .105862E+02, .738399E+01 /
722 DATA (UPDI(I),I=2497,2548) /
723 + .515662E+01, .361020E+01, .253330E+01, .178320E+01,
724 + .125925E+01, .892625E+00, .634901E+00, .454009E+00,
725 + .325066E+00, .234074E+00, .168736E+00, .122146E+00,
726 + .886230E-01, .644361E-01, .469100E-01, .341882E-01,
727 + .249235E-01, .181739E-01, .132430E-01, .964209E-02,
728 + .700910E-02, .508695E-02, .368331E-02, .265997E-02,
729 + .191806E-02, .137728E-02, .986071E-03, .704477E-03,
730 + .502134E-03, .357550E-03, .254446E-03, .181301E-03,
731 + .129430E-03, .927918E-04, .668252E-04, .485309E-04,
732 + .353825E-04, .259170E-04, .190043E-04, .138926E-04,
733 + .100604E-04, .716401E-05, .497309E-05, .331737E-05,
734 + .210025E-05, .123460E-05, .653787E-06, .296474E-06,
735 + .104957E-06, .242434E-07, .237609E-08, .000000E+00 /
736 DATA (UPDI(I),I=2549,2600) /
737 + .298585E+05, .103251E+05, .824434E+04, .658281E+04,
738 + .525616E+04, .419690E+04, .335114E+04, .267583E+04,
739 + .213664E+04, .170611E+04, .136236E+04, .108789E+04,
740 + .868738E+03, .693753E+03, .554035E+03, .442474E+03,
741 + .353397E+03, .282271E+03, .225479E+03, .180131E+03,
742 + .143920E+03, .115006E+03, .919173E+02, .734799E+02,
743 + .587562E+02, .469979E+02, .376071E+02, .300118E+02,
744 + .240420E+02, .192723E+02, .154610E+02, .124148E+02,
745 + .997947E+01, .803713E+01, .647891E+01, .523197E+01,
746 + .423328E+01, .343252E+01, .278954E+01, .227210E+01,
747 + .185537E+01, .151832E+01, .124504E+01, .102273E+01,
748 + .841275E+00, .692672E+00, .570996E+00, .470090E+00,
749 + .387221E+00, .318192E+00, .261188E+00, .213892E+00 /
750 DATA (UPDI(I),I=2601,2652) /
751 + .174653E+00, .142119E+00, .115182E+00, .929253E-01,
752 + .745879E-01, .595321E-01, .472222E-01, .372058E-01,
753 + .290998E-01, .225793E-01, .173692E-01, .132535E-01,
754 + .999459E-02, .745438E-02, .549350E-02, .399582E-02,
755 + .286519E-02, .202252E-02, .140328E-02, .955270E-03,
756 + .636530E-03, .413942E-03, .263111E-03, .161837E-03,
757 + .962361E-04, .550437E-04, .300925E-04, .156012E-04,
758 + .759272E-05, .342772E-05, .140178E-05, .510184E-06,
759 + .158649E-06, .398001E-07, .731586E-08, .822579E-09,
760 + .377199E-10, .192902E-12, .000000E+00, .349870E+05,
761 + .261581E+05, .206178E+05, .162429E+05, .127976E+05,
762 + .100782E+05, .793727E+04, .624796E+04, .491856E+04,
763 + .386995E+04, .304510E+04, .239474E+04, .188339E+04 /
764 DATA (UPDI(I),I=2653,2704) /
765 + .148038E+04, .116368E+04, .914192E+03, .718243E+03,
766 + .563962E+03, .442858E+03, .347560E+03, .272804E+03,
767 + .214010E+03, .167920E+03, .131693E+03, .103311E+03,
768 + .810191E+02, .635598E+02, .496914E+02, .390097E+02,
769 + .306256E+02, .240676E+02, .189209E+02, .148959E+02,
770 + .117444E+02, .927245E+01, .733127E+01, .581143E+01,
771 + .461569E+01, .367717E+01, .293600E+01, .235237E+01,
772 + .188900E+01, .152162E+01, .122811E+01, .993688E+00,
773 + .805029E+00, .653740E+00, .530395E+00, .431042E+00,
774 + .349599E+00, .283573E+00, .229582E+00, .185539E+00,
775 + .149493E+00, .120104E+00, .960950E-01, .765869E-01,
776 + .607288E-01, .479129E-01, .375692E-01, .292798E-01,
777 + .226528E-01, .173964E-01, .132571E-01, .999907E-02 /
778 DATA (UPDI(I),I=2705,2756) /
779 + .746245E-02, .550860E-02, .401291E-02, .288159E-02,
780 + .203319E-02, .140598E-02, .946494E-03, .616874E-03,
781 + .383044E-03, .222011E-03, .112872E-03, .418042E-04,
782 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
783 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
784 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
785 + .000000E+00, .000000E+00, .600308E+05, .473692E+05,
786 + .369743E+05, .288461E+05, .225044E+05, .175480E+05,
787 + .136828E+05, .106633E+05, .830971E+04, .647199E+04,
788 + .504038E+04, .392314E+04, .305332E+04, .237490E+04,
789 + .184707E+04, .143564E+04, .111576E+04, .866605E+03,
790 + .673036E+03, .522368E+03, .405412E+03, .314446E+03,
791 + .243895E+03, .189067E+03, .146579E+03, .113588E+03 /
792 DATA (UPDI(I),I=2757,2808) /
793 + .880386E+02, .679827E+02, .527122E+02, .408699E+02,
794 + .317143E+02, .246169E+02, .191321E+02, .148909E+02,
795 + .116045E+02, .905632E+01, .708582E+01, .555535E+01,
796 + .436906E+01, .344427E+01, .272520E+01, .216162E+01,
797 + .172039E+01, .137238E+01, .109789E+01, .879730E+00,
798 + .706924E+00, .567729E+00, .456928E+00, .367154E+00,
799 + .295186E+00, .236975E+00, .189985E+00, .151912E+00,
800 + .121168E+00, .962843E-01, .762445E-01, .600900E-01,
801 + .471380E-01, .367625E-01, .285066E-01, .219498E-01,
802 + .167803E-01, .127323E-01, .956374E-02, .710850E-02,
803 + .522591E-02, .379043E-02, .270874E-02, .190024E-02,
804 + .130449E-02, .869567E-03, .558814E-03, .339484E-03,
805 + .189538E-03, .891681E-04, .253296E-04, .000000E+00 /
806 DATA (UPDI(I),I=2809,2860) /
807 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
808 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
809 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
810 + .000000E+00, .988646E+05, .774618E+05, .599797E+05,
811 + .464182E+05, .359197E+05, .277804E+05, .214832E+05,
812 + .166038E+05, .128310E+05, .990946E+04, .765201E+04,
813 + .590510E+04, .455622E+04, .351316E+04, .270838E+04,
814 + .208654E+04, .160716E+04, .123706E+04, .952016E+03,
815 + .732134E+03, .562939E+03, .432546E+03, .332315E+03,
816 + .255149E+03, .195890E+03, .150311E+03, .115342E+03,
817 + .881588E+02, .676580E+02, .519174E+02, .398648E+02,
818 + .306165E+02, .235395E+02, .181240E+02, .139695E+02,
819 + .107825E+02, .834316E+01, .646900E+01, .503142E+01 /
820 DATA (UPDI(I),I=2861,2912) /
821 + .392300E+01, .307022E+01, .240922E+01, .189721E+01,
822 + .149782E+01, .118615E+01, .941134E+00, .749093E+00,
823 + .596042E+00, .475461E+00, .378769E+00, .302016E+00,
824 + .240546E+00, .191385E+00, .151922E+00, .120332E+00,
825 + .949852E-01, .747395E-01, .585500E-01, .456681E-01,
826 + .354251E-01, .273318E-01, .209477E-01, .159459E-01,
827 + .120535E-01, .902468E-02, .669074E-02, .491058E-02,
828 + .355976E-02, .254650E-02, .179218E-02, .123833E-02,
829 + .835302E-03, .547766E-03, .345062E-03, .206341E-03,
830 + .113164E-03, .535206E-04, .212441E-04, .130322E-04,
831 + .759736E-05, .422143E-05, .217809E-05, .105520E-05,
832 + .436660E-06, .155180E-06, .431853E-07, .129952E-07,
833 + .573049E-08, .357984E-08, .000000E+00, .000000E+00 /
834 DATA (UPDI(I),I=2913,2964) /
835 + .151698E+06, .118150E+06, .908640E+05, .698387E+05,
836 + .536703E+05, .412204E+05, .316530E+05, .242910E+05,
837 + .186375E+05, .142905E+05, .109549E+05, .839213E+04,
838 + .642728E+04, .491897E+04, .376359E+04, .287748E+04,
839 + .219936E+04, .167980E+04, .128260E+04, .978580E+03,
840 + .746405E+03, .568881E+03, .433474E+03, .330063E+03,
841 + .251276E+03, .191167E+03, .145427E+03, .110168E+03,
842 + .837974E+02, .637243E+02, .484830E+02, .368912E+02,
843 + .280968E+02, .214280E+02, .163569E+02, .125029E+02,
844 + .957951E+01, .735478E+01, .566394E+01, .437285E+01,
845 + .338880E+01, .263353E+01, .205399E+01, .160638E+01,
846 + .126039E+01, .991037E+00, .781913E+00, .616841E+00,
847 + .487990E+00, .385637E+00, .305112E+00, .241202E+00 /
848 DATA (UPDI(I),I=2965,3016) /
849 + .190523E+00, .150190E+00, .118162E+00, .926734E-01,
850 + .724686E-01, .564345E-01, .437670E-01, .337664E-01,
851 + .259172E-01, .197667E-01, .149772E-01, .112733E-01,
852 + .840770E-02, .621218E-02, .454652E-02, .328915E-02,
853 + .235058E-02, .165509E-02, .114656E-02, .778040E-03,
854 + .515894E-03, .331568E-03, .205617E-03, .120970E-03,
855 + .667729E-04, .370927E-04, .260454E-04, .181827E-04,
856 + .127238E-04, .884292E-05, .611170E-05, .410731E-05,
857 + .266633E-05, .162150E-05, .890873E-06, .407827E-06,
858 + .127940E-06, .995848E-08, .000000E+00, .168989E+06,
859 + .171562E+06, .131149E+06, .100194E+06, .765285E+05,
860 + .584151E+05, .445783E+05, .339961E+05, .259190E+05,
861 + .197470E+05, .150402E+05, .114469E+05, .870923E+04 /
862 DATA (UPDI(I),I=3017,3068) /
863 + .662126E+04, .503206E+04, .382129E+04, .290075E+04,
864 + .220020E+04, .166820E+04, .126379E+04, .957037E+03,
865 + .724139E+03, .547724E+03, .413962E+03, .312769E+03,
866 + .236130E+03, .178237E+03, .133947E+03, .101068E+03,
867 + .762358E+02, .575230E+02, .434043E+02, .327757E+02,
868 + .247819E+02, .187516E+02, .142070E+02, .107880E+02,
869 + .820847E+01, .626433E+01, .479288E+01, .368088E+01,
870 + .283504E+01, .219157E+01, .169908E+01, .132167E+01,
871 + .103050E+01, .806382E+00, .631034E+00, .495331E+00,
872 + .388468E+00, .305089E+00, .239469E+00, .187845E+00,
873 + .147090E+00, .114971E+00, .896061E-01, .696441E-01,
874 + .539174E-01, .415776E-01, .319025E-01, .243577E-01,
875 + .184842E-01, .139377E-01, .104434E-01, .775553E-02 /
876 DATA (UPDI(I),I=3069,3120) /
877 + .570800E-02, .416301E-02, .300302E-02, .214153E-02,
878 + .150631E-02, .104399E-02, .710494E-03, .474152E-03,
879 + .308526E-03, .195669E-03, .119890E-03, .714605E-04,
880 + .444642E-04, .321670E-04, .232008E-04, .167411E-04,
881 + .119640E-04, .843045E-05, .574576E-05, .374351E-05,
882 + .226399E-05, .122303E-05, .544278E-06, .163805E-06,
883 + .137529E-07, .000000E+00, .330876E+06, .254940E+06,
884 + .193645E+06, .146992E+06, .111545E+06, .845879E+05,
885 + .641245E+05, .485769E+05, .367854E+05, .278355E+05,
886 + .210547E+05, .159133E+05, .120221E+05, .907515E+04,
887 + .684731E+04, .516208E+04, .388966E+04, .292840E+04,
888 + .220357E+04, .165668E+04, .124485E+04, .934565E+03,
889 + .701263E+03, .525753E+03, .393982E+03, .294978E+03 /
890 DATA (UPDI(I),I=3121,3172) /
891 + .220779E+03, .164482E+03, .123027E+03, .919827E+02,
892 + .687798E+02, .514264E+02, .384721E+02, .288168E+02,
893 + .215958E+02, .162043E+02, .121840E+02, .917970E+01,
894 + .693594E+01, .525422E+01, .399510E+01, .304681E+01,
895 + .233215E+01, .179063E+01, .137958E+01, .106560E+01,
896 + .826214E+00, .640747E+00, .498559E+00, .387667E+00,
897 + .301929E+00, .235084E+00, .182954E+00, .142171E+00,
898 + .110298E+00, .853456E-01, .658633E-01, .506402E-01,
899 + .387860E-01, .295640E-01, .224240E-01, .169069E-01,
900 + .126649E-01, .942807E-02, .695409E-02, .508241E-02,
901 + .367906E-02, .263254E-02, .186038E-02, .129505E-02,
902 + .886532E-03, .594284E-03, .389011E-03, .246759E-03,
903 + .151204E-03, .882201E-04, .491399E-04, .280331E-04 /
904 DATA (UPDI(I),I=3173,3224) /
905 + .183744E-04, .119001E-04, .769271E-05, .494694E-05,
906 + .318524E-05, .201117E-05, .124368E-05, .729894E-06,
907 + .392286E-06, .176424E-06, .541431E-07, .402000E-08,
908 + .000000E+00, .476356E+06, .365157E+06, .275720E+06,
909 + .208046E+06, .156924E+06, .118277E+06, .891122E+05,
910 + .670876E+05, .504841E+05, .379595E+05, .285284E+05,
911 + .214226E+05, .160783E+05, .120568E+05, .903605E+04,
912 + .676609E+04, .506332E+04, .378562E+04, .282859E+04,
913 + .211149E+04, .157516E+04, .117392E+04, .874337E+03,
914 + .650597E+03, .483815E+03, .359431E+03, .266904E+03,
915 + .197237E+03, .146328E+03, .108504E+03, .804518E+02,
916 + .596421E+02, .442307E+02, .328402E+02, .243906E+02,
917 + .181362E+02, .135116E+02, .100861E+02, .754979E+01 /
918 DATA (UPDI(I),I=3225,3276) /
919 + .566598E+01, .426787E+01, .322459E+01, .244531E+01,
920 + .186031E+01, .142022E+01, .108719E+01, .835545E+00,
921 + .642371E+00, .495595E+00, .382167E+00, .295228E+00,
922 + .228051E+00, .176103E+00, .135815E+00, .104585E+00,
923 + .803409E-01, .615605E-01, .470046E-01, .357561E-01,
924 + .270737E-01, .204009E-01, .152837E-01, .113769E-01,
925 + .841799E-02, .617185E-02, .448478E-02, .322842E-02,
926 + .229815E-02, .161639E-02, .112074E-02, .764969E-03,
927 + .512248E-03, .335860E-03, .214452E-03, .133431E-03,
928 + .803060E-04, .474924E-04, .294011E-04, .200936E-04,
929 + .136985E-04, .935801E-05, .636737E-05, .429473E-05,
930 + .281744E-05, .177414E-05, .103933E-05, .543180E-06,
931 + .231539E-06, .656326E-07, .549696E-08, .000000E+00 /
932 DATA (UPDI(I),I=3277,3328) /
933 + .665663E+06, .507828E+06, .381307E+06, .286100E+06,
934 + .214571E+06, .160801E+06, .120448E+06, .901481E+05,
935 + .674357E+05, .504028E+05, .376509E+05, .281004E+05,
936 + .209597E+05, .156191E+05, .116318E+05, .865405E+04,
937 + .643417E+04, .477904E+04, .354714E+04, .263008E+04,
938 + .194864E+04, .144224E+04, .106664E+04, .788055E+03,
939 + .581800E+03, .429051E+03, .316231E+03, .231896E+03,
940 + .170718E+03, .125602E+03, .923890E+02, .679398E+02,
941 + .499698E+02, .367933E+02, .270949E+02, .199746E+02,
942 + .147518E+02, .109156E+02, .809837E+01, .602381E+01,
943 + .449700E+01, .336759E+01, .253109E+01, .190868E+01,
944 + .144443E+01, .109621E+01, .835346E+00, .636838E+00,
945 + .487299E+00, .372738E+00, .285664E+00, .218956E+00 /
946 DATA (UPDI(I),I=3329,3380) /
947 + .167792E+00, .128443E+00, .981833E-01, .748837E-01,
948 + .569737E-01, .432017E-01, .326391E-01, .245487E-01,
949 + .183762E-01, .136782E-01, .101167E-01, .743942E-02,
950 + .542104E-02, .391600E-02, .280294E-02, .198469E-02,
951 + .138915E-02, .959275E-03, .652818E-03, .436671E-03,
952 + .286791E-03, .184306E-03, .116330E-03, .719577E-04,
953 + .445892E-04, .291213E-04, .204394E-04, .143482E-04,
954 + .100775E-04, .702679E-05, .481846E-05, .319459E-05,
955 + .201311E-05, .116989E-05, .599859E-06, .248241E-06,
956 + .677594E-07, .597734E-08, .000000E+00, .907691E+06,
957 + .689314E+06, .514818E+06, .384202E+06, .286582E+06,
958 + .213590E+06, .159103E+06, .118414E+06, .880788E+05,
959 + .654559E+05, .486129E+05, .360699E+05, .267449E+05 /
960 DATA (UPDI(I),I=3381,3432) /
961 + .198112E+05, .146644E+05, .108436E+05, .801207E+04,
962 + .591372E+04, .436142E+04, .321304E+04, .236501E+04,
963 + .173883E+04, .127736E+04, .937315E+03, .687207E+03,
964 + .503220E+03, .368253E+03, .268064E+03, .195892E+03,
965 + .143047E+03, .104421E+03, .761957E+02, .556014E+02,
966 + .406149E+02, .296668E+02, .216915E+02, .158866E+02,
967 + .116569E+02, .857514E+01, .632428E+01, .468103E+01,
968 + .347556E+01, .258998E+01, .193658E+01, .145322E+01,
969 + .109372E+01, .826611E+00, .625054E+00, .474471E+00,
970 + .360068E+00, .273818E+00, .208285E+00, .158420E+00,
971 + .120379E+00, .913533E-01, .691803E-01, .522652E-01,
972 + .393585E-01, .295332E-01, .220643E-01, .164073E-01,
973 + .121337E-01, .891681E-02, .651631E-02, .471919E-02 /
974 DATA (UPDI(I),I=3433,3484) /
975 + .338882E-02, .241179E-02, .169869E-02, .118330E-02,
976 + .813911E-03, .552377E-03, .369197E-03, .242984E-03,
977 + .157208E-03, .100614E-03, .637848E-04, .410204E-04,
978 + .277851E-04, .198389E-04, .141625E-04, .100821E-04,
979 + .709616E-05, .488052E-05, .322963E-05, .201783E-05,
980 + .115551E-05, .579349E-06, .232528E-06, .612820E-07,
981 + .557419E-08, .000000E+00, .121204E+07, .916417E+06,
982 + .680916E+06, .505533E+06, .375113E+06, .278098E+06,
983 + .206050E+06, .152528E+06, .112835E+06, .833926E+05,
984 + .615890E+05, .454409E+05, .335013E+05, .246731E+05,
985 + .181566E+05, .133467E+05, .980264E+04, .719161E+04,
986 + .527135E+04, .385929E+04, .282280E+04, .206218E+04,
987 + .150509E+04, .109718E+04, .799046E+03, .581150E+03 /
988 DATA (UPDI(I),I=3485,3536) /
989 + .422363E+03, .305278E+03, .221506E+03, .160589E+03,
990 + .116368E+03, .842834E+02, .610381E+02, .442457E+02,
991 + .320672E+02, .232619E+02, .169006E+02, .123010E+02,
992 + .897537E+01, .656535E+01, .481953E+01, .354901E+01,
993 + .262297E+01, .194523E+01, .144783E+01, .108088E+01,
994 + .810404E+00, .607948E+00, .457900E+00, .344819E+00,
995 + .260235E+00, .196477E+00, .148340E+00, .111904E+00,
996 + .843150E-01, .634018E-01, .475665E-01, .355750E-01,
997 + .265135E-01, .196763E-01, .145352E-01, .106797E-01,
998 + .779808E-02, .566343E-02, .407643E-02, .291006E-02,
999 + .205945E-02, .144305E-02, .100064E-02, .685776E-03,
1000 + .464342E-03, .310285E-03, .204779E-03, .133461E-03,
1001 + .866018E-04, .561449E-04, .372096E-04, .258611E-04 /
1002 DATA (UPDI(I),I=3537,3588) /
1003 + .186743E-04, .134593E-04, .963798E-05, .679610E-05,
1004 + .465835E-05, .305966E-05, .188755E-05, .106192E-05,
1005 + .519726E-06, .202145E-06, .514618E-07, .478955E-08,
1006 + .000000E+00, .158878E+07, .119621E+07, .884388E+06,
1007 + .653313E+06, .482314E+06, .355749E+06, .262221E+06,
1008 + .193098E+06, .142093E+06, .104456E+06, .767293E+05,
1009 + .563032E+05, .412803E+05, .302328E+05, .221221E+05,
1010 + .161689E+05, .118066E+05, .861112E+04, .627434E+04,
1011 + .456599E+04, .331934E+04, .240995E+04, .174789E+04,
1012 + .126607E+04, .916098E+03, .661909E+03, .477862E+03,
1013 + .343029E+03, .247192E+03, .177966E+03, .128048E+03,
1014 + .920785E+02, .661965E+02, .476311E+02, .342613E+02,
1015 + .246647E+02, .177816E+02, .128416E+02, .929623E+01 /
1016 DATA (UPDI(I),I=3589,3640) /
1017 + .674635E+01, .491310E+01, .358918E+01, .263155E+01,
1018 + .193613E+01, .142969E+01, .105896E+01, .787824E+00,
1019 + .586445E+00, .438353E+00, .327612E+00, .245412E+00,
1020 + .183930E+00, .137861E+00, .103258E+00, .772513E-01,
1021 + .576865E-01, .429806E-01, .319270E-01, .236348E-01,
1022 + .174238E-01, .127870E-01, .933492E-02, .677288E-02,
1023 + .488866E-02, .349756E-02, .248244E-02, .174727E-02,
1024 + .121828E-02, .841203E-03, .574672E-03, .388443E-03,
1025 + .259695E-03, .172008E-03, .113000E-03, .743374E-04,
1026 + .491857E-04, .334021E-04, .236441E-04, .171949E-04,
1027 + .124524E-04, .892686E-05, .627838E-05, .427349E-05,
1028 + .277743E-05, .168812E-05, .931555E-06, .444654E-06,
1029 + .167569E-06, .412462E-07, .391310E-08, .000000E+00 /
1030 DATA (UPDI(I),I=3641,3692) /
1031 + .204820E+07, .153583E+07, .112999E+07, .830693E+06,
1032 + .610250E+06, .447882E+06, .328475E+06, .240661E+06,
1033 + .176185E+06, .128848E+06, .941505E+05, .687210E+05,
1034 + .501147E+05, .365041E+05, .265644E+05, .193080E+05,
1035 + .140195E+05, .101669E+05, .736520E+04, .532855E+04,
1036 + .385076E+04, .277902E+04, .200330E+04, .144213E+04,
1037 + .103695E+04, .744454E+03, .533992E+03, .380780E+03,
1038 + .272574E+03, .194918E+03, .139284E+03, .994634E+02,
1039 + .710002E+02, .507229E+02, .362200E+02, .258829E+02,
1040 + .185208E+02, .132749E+02, .953682E+01, .686804E+01,
1041 + .496327E+01, .359792E+01, .261759E+01, .191105E+01,
1042 + .140033E+01, .102931E+01, .759975E+00, .561448E+00,
1043 + .416553E+00, .309022E+00, .229799E+00, .170989E+00 /
1044 DATA (UPDI(I),I=3693,3744) /
1045 + .127248E+00, .946384E-01, .703099E-01, .521423E-01,
1046 + .385852E-01, .284692E-01, .209348E-01, .153322E-01,
1047 + .111791E-01, .810923E-02, .584676E-02, .419470E-02,
1048 + .298338E-02, .210567E-02, .147438E-02, .102327E-02,
1049 + .703858E-03, .479575E-03, .323829E-03, .216779E-03,
1050 + .144222E-03, .955623E-04, .637189E-04, .429383E-04,
1051 + .297348E-04, .213197E-04, .155647E-04, .112865E-04,
1052 + .807364E-05, .564709E-05, .380821E-05, .244439E-05,
1053 + .146175E-05, .790439E-06, .367794E-06, .134316E-06,
1054 + .320053E-07, .308843E-08, .000000E+00, .260047E+07,
1055 + .194224E+07, .142229E+07, .104063E+07, .760814E+06,
1056 + .555691E+06, .405549E+06, .295667E+06, .215374E+06,
1057 + .156714E+06, .113928E+06, .827284E+05, .600146E+05 /
1058 DATA (UPDI(I),I=3745,3796) /
1059 + .434848E+05, .314752E+05, .227539E+05, .164312E+05,
1060 + .118499E+05, .853619E+04, .614066E+04, .441207E+04,
1061 + .316554E+04, .226843E+04, .162319E+04, .116003E+04,
1062 + .827662E+03, .589963E+03, .417982E+03, .297274E+03,
1063 + .211193E+03, .149911E+03, .106331E+03, .753826E+02,
1064 + .534811E+02, .379205E+02, .269050E+02, .191131E+02,
1065 + .135995E+02, .969810E+01, .693240E+01, .497242E+01,
1066 + .357761E+01, .258329E+01, .187189E+01, .136139E+01,
1067 + .993230E+00, .727931E+00, .533808E+00, .393169E+00,
1068 + .289562E+00, .213787E+00, .157950E+00, .116719E+00,
1069 + .862061E-01, .636053E-01, .468500E-01, .344355E-01,
1070 + .252386E-01, .184371E-01, .134153E-01, .971890E-02,
1071 + .700590E-02, .502022E-02, .358044E-02, .253195E-02 /
1072 DATA (UPDI(I),I=3797,3848) /
1073 + .177748E-02, .123848E-02, .855919E-03, .586792E-03,
1074 + .399004E-03, .269348E-03, .180694E-03, .120844E-03,
1075 + .807963E-04, .545767E-04, .373737E-04, .262807E-04,
1076 + .190048E-04, .138926E-04, .100604E-04, .716401E-05,
1077 + .497309E-05, .331737E-05, .210025E-05, .123460E-05,
1078 + .653787E-06, .296474E-06, .104957E-06, .242434E-07,
1079 + .237609E-08, .000000E+00, .236753E+05, .258286E+05,
1080 + .206254E+05, .164703E+05, .131525E+05, .105032E+05,
1081 + .838777E+04, .669855E+04, .534968E+04, .427257E+04,
1082 + .341245E+04, .272561E+04, .217712E+04, .173911E+04,
1083 + .138932E+04, .110997E+04, .886875E+03, .708700E+03,
1084 + .566395E+03, .452735E+03, .361949E+03, .289432E+03,
1085 + .231502E+03, .185224E+03, .148250E+03, .118707E+03 /
1086 DATA (UPDI(I),I=3849,3900) /
1087 + .950999E+02, .759945E+02, .609676E+02, .489530E+02,
1088 + .393449E+02, .316593E+02, .255096E+02, .206002E+02,
1089 + .166582E+02, .135007E+02, .109696E+02, .893859E+01,
1090 + .730667E+01, .599273E+01, .493422E+01, .407796E+01,
1091 + .338360E+01, .281853E+01, .235674E+01, .197747E+01,
1092 + .166510E+01, .140332E+01, .118463E+01, .997844E+00,
1093 + .838310E+00, .700412E+00, .580720E+00, .476928E+00,
1094 + .387495E+00, .311265E+00, .247171E+00, .194078E+00,
1095 + .150742E+00, .115858E+00, .881354E-01, .663606E-01,
1096 + .494438E-01, .364910E-01, .265733E-01, .191128E-01,
1097 + .135636E-01, .948549E-02, .652768E-02, .441314E-02,
1098 + .292542E-02, .189717E-02, .120015E-02, .737849E-03,
1099 + .441425E-03, .253942E-03, .140212E-03, .737980E-04 /
1100 DATA (UPDI(I),I=3901,3952) /
1101 + .367077E-04, .170630E-04, .730188E-05, .282224E-05,
1102 + .948982E-06, .266820E-06, .570835E-07, .741907E-08,
1103 + .116957E-10, .000000E+00, .000000E+00, .000000E+00,
1104 + .000000E+00, .288272E+05, .415816E+05, .329348E+05,
1105 + .260793E+05, .206531E+05, .163519E+05, .129478E+05,
1106 + .102498E+05, .811485E+04, .642299E+04, .508442E+04,
1107 + .402380E+04, .318481E+04, .252013E+04, .199443E+04,
1108 + .157803E+04, .124875E+04, .987974E+03, .781800E+03,
1109 + .618545E+03, .489498E+03, .387331E+03, .306585E+03,
1110 + .242667E+03, .192155E+03, .152177E+03, .120580E+03,
1111 + .952681E+02, .755828E+02, .599982E+02, .476800E+02,
1112 + .379248E+02, .302112E+02, .241147E+02, .192776E+02,
1113 + .154422E+02, .124041E+02, .999048E+01, .807387E+01 /
1114 DATA (UPDI(I),I=3953,4004) /
1115 + .654584E+01, .532887E+01, .435377E+01, .357182E+01,
1116 + .294123E+01, .243134E+01, .201618E+01, .167777E+01,
1117 + .139673E+01, .116456E+01, .968467E+00, .803342E+00,
1118 + .662726E+00, .542794E+00, .440597E+00, .354137E+00,
1119 + .281662E+00, .221698E+00, .172707E+00, .133220E+00,
1120 + .101771E+00, .770204E-01, .577384E-01, .428652E-01,
1121 + .315432E-01, .229246E-01, .164677E-01, .116826E-01,
1122 + .817227E-02, .562871E-02, .380793E-02, .252376E-02,
1123 + .163043E-02, .102127E-02, .612483E-03, .346561E-03,
1124 + .176199E-03, .714642E-04, .102761E-04, .000000E+00,
1125 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1126 + .000000E+00, .000000E+00, .000000E+00, .135525E-19,
1127 + .000000E+00, .169407E-20, .105879E-21, .000000E+00 /
1128 DATA (UPDI(I),I=4005,4056) /
1129 + .791172E+05, .627368E+05, .492467E+05, .386469E+05,
1130 + .303314E+05, .237989E+05, .186751E+05, .146505E+05,
1131 + .114943E+05, .901563E+04, .707214E+04, .554614E+04,
1132 + .434984E+04, .341070E+04, .267462E+04, .209688E+04,
1133 + .164416E+04, .128889E+04, .101056E+04, .792191E+03,
1134 + .621144E+03, .486967E+03, .381890E+03, .299477E+03,
1135 + .234945E+03, .184337E+03, .144708E+03, .113256E+03,
1136 + .890211E+02, .700106E+02, .551219E+02, .434389E+02,
1137 + .342848E+02, .271153E+02, .214780E+02, .170482E+02,
1138 + .135702E+02, .108315E+02, .867559E+01, .697145E+01,
1139 + .562564E+01, .455621E+01, .370554E+01, .302495E+01,
1140 + .247891E+01, .203766E+01, .168074E+01, .138661E+01,
1141 + .114563E+01, .943946E+00, .775805E+00, .634204E+00 /
1142 DATA (UPDI(I),I=4057,4108) /
1143 + .514866E+00, .414425E+00, .330484E+00, .260942E+00,
1144 + .204023E+00, .157973E+00, .121180E+00, .921050E-01,
1145 + .693820E-01, .517926E-01, .382992E-01, .280808E-01,
1146 + .203395E-01, .145649E-01, .103022E-01, .718585E-02,
1147 + .493468E-02, .332732E-02, .219606E-02, .141049E-02,
1148 + .875781E-03, .517532E-03, .285099E-03, .137083E-03,
1149 + .471715E-04, .000000E+00, .000000E+00, .000000E+00,
1150 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1151 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1152 + .000000E+00, .000000E+00, .000000E+00, .117887E+06,
1153 + .927779E+05, .722109E+05, .561860E+05, .437203E+05,
1154 + .340102E+05, .264585E+05, .205774E+05, .160047E+05,
1155 + .124444E+05, .967676E+04, .752245E+04, .584819E+04 /
1156 DATA (UPDI(I),I=4109,4160) /
1157 + .454527E+04, .353295E+04, .274535E+04, .213357E+04,
1158 + .165773E+04, .128821E+04, .100086E+04, .777758E+03,
1159 + .604304E+03, .469670E+03, .365017E+03, .283795E+03,
1160 + .220665E+03, .171672E+03, .133137E+03, .103709E+03,
1161 + .808312E+02, .630717E+02, .492600E+02, .385327E+02,
1162 + .302051E+02, .237140E+02, .186576E+02, .147217E+02,
1163 + .116489E+02, .925015E+01, .736991E+01, .589706E+01,
1164 + .473611E+01, .381985E+01, .309246E+01, .251325E+01,
1165 + .204868E+01, .167568E+01, .137065E+01, .112273E+01,
1166 + .917037E+00, .747166E+00, .605581E+00, .487551E+00,
1167 + .389330E+00, .308151E+00, .241615E+00, .187696E+00,
1168 + .144470E+00, .110216E+00, .833503E-01, .624963E-01,
1169 + .464553E-01, .342185E-01, .250016E-01, .180543E-01 /
1170 DATA (UPDI(I),I=4161,4212) /
1171 + .128965E-01, .910583E-02, .634576E-02, .435928E-02,
1172 + .294537E-02, .195287E-02, .126506E-02, .797254E-03,
1173 + .483748E-03, .279886E-03, .149479E-03, .695957E-04,
1174 + .261402E-04, .130323E-04, .759676E-05, .422103E-05,
1175 + .217783E-05, .105505E-05, .436574E-06, .155135E-06,
1176 + .431651E-07, .129874E-07, .572821E-08, .357942E-08,
1177 + .000000E+00, .000000E+00, .170660E+06, .133418E+06,
1178 + .103056E+06, .795755E+05, .614461E+05, .474303E+05,
1179 + .366124E+05, .282519E+05, .218010E+05, .168171E+05,
1180 + .129730E+05, .100041E+05, .771491E+04, .594758E+04,
1181 + .458531E+04, .353397E+04, .272388E+04, .209891E+04,
1182 + .161752E+04, .124624E+04, .960337E+03, .739897E+03,
1183 + .570203E+03, .439401E+03, .338728E+03, .261132E+03 /
1184 DATA (UPDI(I),I=4213,4264) /
1185 + .201419E+03, .154854E+03, .119592E+03, .924124E+02,
1186 + .714899E+02, .553567E+02, .429309E+02, .333664E+02,
1187 + .259728E+02, .202619E+02, .158530E+02, .124393E+02,
1188 + .979595E+01, .774072E+01, .614338E+01, .489417E+01,
1189 + .391570E+01, .314479E+01, .253540E+01, .205020E+01,
1190 + .166347E+01, .134955E+01, .109640E+01, .888126E+00,
1191 + .717664E+00, .576967E+00, .460864E+00, .365254E+00,
1192 + .287039E+00, .223565E+00, .172598E+00, .132085E+00,
1193 + .100228E+00, .754199E-01, .562875E-01, .416598E-01,
1194 + .305620E-01, .222473E-01, .160114E-01, .114037E-01,
1195 + .803247E-02, .558810E-02, .383569E-02, .259275E-02,
1196 + .172297E-02, .112181E-02, .713664E-03, .440391E-03,
1197 + .262649E-03, .148697E-03, .786886E-04, .405032E-04 /
1198 DATA (UPDI(I),I=4265,4316) /
1199 + .260454E-04, .181820E-04, .127233E-04, .884264E-05,
1200 + .611154E-05, .410722E-05, .266628E-05, .162148E-05,
1201 + .890865E-06, .407825E-06, .127939E-06, .995845E-08,
1202 + .000000E+00, .162881E+06, .186783E+06, .143305E+06,
1203 + .109901E+06, .842805E+05, .646059E+05, .495225E+05,
1204 + .379447E+05, .290726E+05, .222657E+05, .170519E+05,
1205 + .130537E+05, .999270E+04, .764649E+04, .585103E+04,
1206 + .447554E+04, .342342E+04, .261779E+04, .200186E+04,
1207 + .153040E+04, .117010E+04, .894424E+03, .683834E+03,
1208 + .522773E+03, .399770E+03, .305706E+03, .233892E+03,
1209 + .178339E+03, .136606E+03, .104697E+03, .803286E+02,
1210 + .616906E+02, .474496E+02, .365766E+02, .282383E+02,
1211 + .218496E+02, .169563E+02, .131978E+02, .103099E+02 /
1212 DATA (UPDI(I),I=4317,4368) /
1213 + .808222E+01, .636392E+01, .503033E+01, .399341E+01,
1214 + .318247E+01, .254599E+01, .204284E+01, .164465E+01,
1215 + .132379E+01, .106700E+01, .857450E+00, .687418E+00,
1216 + .548373E+00, .434727E+00, .342056E+00, .266970E+00,
1217 + .206599E+00, .158539E+00, .120644E+00, .910628E-01,
1218 + .681837E-01, .506495E-01, .373225E-01, .272660E-01,
1219 + .197710E-01, .141779E-01, .100650E-01, .706942E-02,
1220 + .490683E-02, .336277E-02, .227175E-02, .151090E-02,
1221 + .986678E-03, .631636E-03, .394318E-03, .240106E-03,
1222 + .141155E-03, .803319E-04, .468642E-04, .321669E-04,
1223 + .232002E-04, .167407E-04, .119637E-04, .843029E-05,
1224 + .574568E-05, .374346E-05, .226397E-05, .122303E-05,
1225 + .544276E-06, .163805E-06, .137529E-07, .000000E+00 /
1226 DATA (UPDI(I),I=4369,4420) /
1227 + .349715E+06, .270108E+06, .205758E+06, .156665E+06,
1228 + .119270E+06, .907571E+05, .690512E+05, .525115E+05,
1229 + .399278E+05, .303452E+05, .230590E+05, .175142E+05,
1230 + .133008E+05, .100965E+05, .766308E+04, .581371E+04,
1231 + .441019E+04, .334422E+04, .253576E+04, .192207E+04,
1232 + .145689E+04, .110398E+04, .836637E+03, .633936E+03,
1233 + .480443E+03, .364087E+03, .276029E+03, .208520E+03,
1234 + .158253E+03, .120169E+03, .913416E+02, .694958E+02,
1235 + .529523E+02, .404381E+02, .309268E+02, .237069E+02,
1236 + .182261E+02, .140552E+02, .108787E+02, .845038E+01,
1237 + .659356E+01, .516518E+01, .406386E+01, .320992E+01,
1238 + .254518E+01, .202407E+01, .161505E+01, .128828E+01,
1239 + .102905E+01, .819491E+00, .651115E+00, .514866E+00 /
1240 DATA (UPDI(I),I=4421,4472) /
1241 + .404693E+00, .315833E+00, .244595E+00, .187904E+00,
1242 + .143202E+00, .108267E+00, .812192E-01, .604584E-01,
1243 + .446589E-01, .327302E-01, .237834E-01, .171559E-01,
1244 + .122378E-01, .864145E-02, .603597E-02, .416491E-02,
1245 + .283578E-02, .190151E-02, .125335E-02, .809335E-03,
1246 + .510461E-03, .312207E-03, .184675E-03, .103957E-03,
1247 + .555040E-04, .296728E-04, .183743E-04, .118995E-04,
1248 + .769230E-05, .494669E-05, .318509E-05, .201109E-05,
1249 + .124364E-05, .729877E-06, .392280E-06, .176423E-06,
1250 + .541428E-07, .401998E-08, .000000E+00, .495130E+06,
1251 + .380273E+06, .287792E+06, .217686E+06, .164622E+06,
1252 + .124425E+06, .940216E+05, .710083E+05, .536152E+05,
1253 + .404602E+05, .305254E+05, .230176E+05, .173521E+05 /
1254 DATA (UPDI(I),I=4473,4524) /
1255 + .130742E+05, .984862E+04, .741509E+04, .558168E+04,
1256 + .419964E+04, .315928E+04, .237563E+04, .178614E+04,
1257 + .134245E+04, .100895E+04, .758131E+03, .569717E+03,
1258 + .428055E+03, .321731E+03, .240906E+03, .181229E+03,
1259 + .136403E+03, .102760E+03, .774856E+02, .585094E+02,
1260 + .442813E+02, .335604E+02, .254941E+02, .194237E+02,
1261 + .148447E+02, .113872E+02, .876714E+01, .678051E+01,
1262 + .526527E+01, .410654E+01, .321555E+01, .252753E+01,
1263 + .199257E+01, .157608E+01, .124611E+01, .986592E+00,
1264 + .778723E+00, .613293E+00, .480779E+00, .374726E+00,
1265 + .290085E+00, .222919E+00, .169998E+00, .128655E+00,
1266 + .966276E-01, .720313E-01, .532969E-01, .391412E-01,
1267 + .285268E-01, .206166E-01, .147943E-01, .104998E-01 /
1268 DATA (UPDI(I),I=4525,4576) /
1269 + .737836E-02, .513005E-02, .352479E-02, .239082E-02,
1270 + .159813E-02, .105112E-02, .678390E-03, .428710E-03,
1271 + .263892E-03, .158357E-03, .917921E-04, .519753E-04,
1272 + .304900E-04, .200934E-04, .136979E-04, .935765E-05,
1273 + .636715E-05, .429460E-05, .281738E-05, .177411E-05,
1274 + .103932E-05, .543175E-06, .231537E-06, .656324E-07,
1275 + .549694E-08, .000000E+00, .684374E+06, .522893E+06,
1276 + .393337E+06, .295707E+06, .222243E+06, .166927E+06,
1277 + .125340E+06, .940551E+05, .705557E+05, .528944E+05,
1278 + .396407E+05, .296894E+05, .222287E+05, .166326E+05,
1279 + .124411E+05, .930039E+04, .695033E+04, .519124E+04,
1280 + .387631E+04, .289294E+04, .215854E+04, .160985E+04,
1281 + .120048E+04, .894917E+03, .667122E+03, .497172E+03 /
1282 DATA (UPDI(I),I=4577,4628) /
1283 + .370618E+03, .275181E+03, .205281E+03, .153202E+03,
1284 + .114432E+03, .855476E+02, .640387E+02, .480472E+02,
1285 + .360974E+02, .271829E+02, .205299E+02, .155540E+02,
1286 + .118280E+02, .902817E+01, .692255E+01, .532981E+01,
1287 + .412154E+01, .319997E+01, .249392E+01, .194934E+01,
1288 + .152871E+01, .119820E+01, .940473E+00, .735876E+00,
1289 + .574561E+00, .446608E+00, .345221E+00, .265120E+00,
1290 + .202180E+00, .153062E+00, .115034E+00, .858261E-01,
1291 + .635734E-01, .467519E-01, .341320E-01, .247341E-01,
1292 + .177757E-01, .126870E-01, .895690E-02, .626233E-02,
1293 + .433310E-02, .296388E-02, .200228E-02, .133397E-02,
1294 + .875369E-03, .564625E-03, .357538E-03, .221516E-03,
1295 + .134814E-03, .802983E-04, .477293E-04, .298412E-04 /
1296 DATA (UPDI(I),I=4629,4680) /
1297 + .204392E-04, .143477E-04, .100772E-04, .702660E-05,
1298 + .481836E-05, .319453E-05, .201309E-05, .116988E-05,
1299 + .599855E-06, .248240E-06, .677593E-07, .597733E-08,
1300 + .000000E+00, .926339E+06, .704328E+06, .526807E+06,
1301 + .393776E+06, .294227E+06, .219695E+06, .163979E+06,
1302 + .122307E+06, .911877E+05, .679386E+05, .505954E+05,
1303 + .376530E+05, .280091E+05, .208207E+05, .154705E+05,
1304 + .114872E+05, .852600E+04, .632406E+04, .468903E+04,
1305 + .347459E+04, .257379E+04, .190549E+04, .141038E+04,
1306 + .104348E+04, .771924E+03, .570814E+03, .422181E+03,
1307 + .310946E+03, .230100E+03, .170335E+03, .126186E+03,
1308 + .935578E+02, .694519E+02, .516742E+02, .384960E+02,
1309 + .287452E+02, .215268E+02, .161721E+02, .121947E+02 /
1310 DATA (UPDI(I),I=4681,4732) /
1311 + .923014E+01, .701839E+01, .535872E+01, .410950E+01,
1312 + .316418E+01, .244553E+01, .189555E+01, .147408E+01,
1313 + .114557E+01, .891538E+00, .691640E+00, .535462E+00,
1314 + .412758E+00, .316468E+00, .241133E+00, .182502E+00,
1315 + .137168E+00, .102376E+00, .758757E-01, .558442E-01,
1316 + .408147E-01, .296193E-01, .213391E-01, .152485E-01,
1317 + .108233E-01, .759993E-02, .528604E-02, .363952E-02,
1318 + .247808E-02, .166727E-02, .110711E-02, .724918E-03,
1319 + .467417E-03, .296704E-03, .185110E-03, .114264E-03,
1320 + .698106E-04, .432081E-04, .282595E-04, .198387E-04,
1321 + .141621E-04, .100819E-04, .709601E-05, .488044E-05,
1322 + .322959E-05, .201781E-05, .115550E-05, .579346E-06,
1323 + .232527E-06, .612818E-07, .557418E-08, .000000E+00 /
1324 DATA (UPDI(I),I=4733,4784) /
1325 + .123062E+07, .931380E+06, .692864E+06, .515074E+06,
1326 + .382732E+06, .284182E+06, .210908E+06, .156408E+06,
1327 + .115933E+06, .858662E+05, .635642E+05, .470181E+05,
1328 + .347606E+05, .256786E+05, .189594E+05, .139877E+05,
1329 + .103143E+05, .760005E+04, .559736E+04, .411948E+04,
1330 + .303044E+04, .222786E+04, .163727E+04, .120261E+04,
1331 + .883132E+03, .648194E+03, .475810E+03, .347739E+03,
1332 + .255343E+03, .187550E+03, .137844E+03, .101389E+03,
1333 + .746613E+02, .551031E+02, .407169E+02, .301561E+02,
1334 + .223990E+02, .166900E+02, .124826E+02, .937120E+01,
1335 + .706778E+01, .535273E+01, .407162E+01, .310960E+01,
1336 + .238378E+01, .183254E+01, .141336E+01, .108922E+01,
1337 + .840626E+00, .646682E+00, .496501E+00, .379599E+00 /
1338 DATA (UPDI(I),I=4785,4836) /
1339 + .288720E+00, .218290E+00, .163981E+00, .122365E+00,
1340 + .906987E-01, .667758E-01, .488319E-01, .354682E-01,
1341 + .255838E-01, .183234E-01, .130179E-01, .918844E-02,
1342 + .641672E-02, .443968E-02, .304161E-02, .206153E-02,
1343 + .138148E-02, .914469E-03, .597672E-03, .385423E-03,
1344 + .245422E-03, .154301E-03, .966373E-04, .604758E-04,
1345 + .387258E-04, .261728E-04, .186741E-04, .134590E-04,
1346 + .963777E-05, .679598E-05, .465829E-05, .305962E-05,
1347 + .188753E-05, .106192E-05, .519724E-06, .202145E-06,
1348 + .514617E-07, .478954E-08, .000000E+00, .160730E+07,
1349 + .121112E+07, .896297E+06, .662823E+06, .489907E+06,
1350 + .361812E+06, .267063E+06, .196963E+06, .145180E+06,
1351 + .106921E+06, .786972E+05, .578743E+05, .425347E+05 /
1352 DATA (UPDI(I),I=4837,4888) /
1353 + .312342E+05, .229215E+05, .168070E+05, .123160E+05,
1354 + .901759E+04, .659869E+04, .482479E+04, .352579E+04,
1355 + .257461E+04, .187919E+04, .137075E+04, .999525E+03,
1356 + .728379E+03, .530806E+03, .385050E+03, .280643E+03,
1357 + .204585E+03, .149223E+03, .108918E+03, .795835E+02,
1358 + .582792E+02, .427256E+02, .313945E+02, .231344E+02,
1359 + .171017E+02, .126892E+02, .945092E+01, .707155E+01,
1360 + .531328E+01, .400960E+01, .303794E+01, .231026E+01,
1361 + .176174E+01, .134778E+01, .103017E+01, .788544E+00,
1362 + .601620E+00, .458136E+00, .347451E+00, .262190E+00,
1363 + .196719E+00, .146687E+00, .108682E+00, .800047E-01,
1364 + .585128E-01, .425149E-01, .306876E-01, .220011E-01,
1365 + .156640E-01, .110639E-01, .776540E-02, .539325E-02 /
1366 DATA (UPDI(I),I=4889,4940) /
1367 + .371202E-02, .253060E-02, .170756E-02, .113995E-02,
1368 + .752474E-03, .491128E-03, .316975E-03, .202644E-03,
1369 + .128504E-03, .816823E-04, .522823E-04, .344475E-04,
1370 + .238483E-04, .171947E-04, .124521E-04, .892669E-05,
1371 + .627829E-05, .427344E-05, .277740E-05, .168811E-05,
1372 + .931550E-06, .444652E-06, .167569E-06, .412461E-07,
1373 + .391310E-08, .000000E+00, .206666E+07, .155069E+07,
1374 + .114186E+07, .840170E+06, .617818E+06, .453924E+06,
1375 + .333299E+06, .244513E+06, .179261E+06, .131304E+06,
1376 + .961109E+05, .702861E+05, .513640E+05, .375013E+05,
1377 + .273603E+05, .199432E+05, .145264E+05, .105714E+05,
1378 + .768785E+04, .558589E+04, .405596E+04, .294261E+04,
1379 + .213368E+04, .154601E+04, .111968E+04, .810322E+03 /
1380 DATA (UPDI(I),I=4941,4992) /
1381 + .586410E+03, .422340E+03, .305619E+03, .221180E+03,
1382 + .160144E+03, .116025E+03, .841420E+02, .611545E+02,
1383 + .444931E+02, .324440E+02, .237245E+02, .174034E+02,
1384 + .128137E+02, .947030E+01, .703151E+01, .524248E+01,
1385 + .392556E+01, .295117E+01, .222672E+01, .168463E+01,
1386 + .127857E+01, .969387E+00, .736045E+00, .557017E+00,
1387 + .420765E+00, .316583E+00, .237045E+00, .176513E+00,
1388 + .130660E+00, .961253E-01, .702791E-01, .510608E-01,
1389 + .368628E-01, .264420E-01, .188419E-01, .133352E-01,
1390 + .936431E-02, .653564E-02, .451446E-02, .309114E-02,
1391 + .209724E-02, .140914E-02, .937460E-03, .617361E-03,
1392 + .402647E-03, .260292E-03, .167229E-03, .107049E-03,
1393 + .690703E-04, .451410E-04, .304520E-04, .214530E-04 /
1394 DATA (UPDI(I),I=4993,5044) /
1395 + .155646E-04, .112862E-04, .807351E-05, .564702E-05,
1396 + .380817E-05, .244437E-05, .146174E-05, .790436E-06,
1397 + .367793E-06, .134316E-06, .320053E-07, .308843E-08,
1398 + .000000E+00, .261887E+07, .195705E+07, .143412E+07,
1399 + .105007E+07, .768355E+06, .561712E+06, .410357E+06,
1400 + .299505E+06, .218438E+06, .159161E+06, .115881E+06,
1401 + .842873E+05, .612588E+05, .444778E+05, .322677E+05,
1402 + .233862E+05, .169356E+05, .122522E+05, .885707E+04,
1403 + .639650E+04, .461599E+04, .332803E+04, .239785E+04,
1404 + .172624E+04, .124204E+04, .892900E+03, .641830E+03,
1405 + .459059E+03, .329896E+03, .237082E+03, .170443E+03,
1406 + .122604E+03, .882703E+02, .636889E+02, .459966E+02,
1407 + .332928E+02, .241646E+02, .175943E+02, .128576E+02 /
1408 DATA (UPDI(I),I=5045,5096) /
1409 + .943164E+01, .695031E+01, .514297E+01, .382193E+01,
1410 + .285141E+01, .213495E+01, .160267E+01, .120688E+01,
1411 + .907781E+00, .683810E+00, .513361E+00, .384723E+00,
1412 + .287209E+00, .213408E+00, .157730E+00, .115913E+00,
1413 + .846810E-01, .614929E-01, .443840E-01, .318380E-01,
1414 + .226956E-01, .160742E-01, .113091E-01, .789558E-02,
1415 + .547994E-02, .376496E-02, .256497E-02, .173226E-02,
1416 + .115930E-02, .768883E-03, .505435E-03, .329644E-03,
1417 + .213634E-03, .138059E-03, .892731E-04, .584581E-04,
1418 + .389328E-04, .267704E-04, .190916E-04, .138924E-04,
1419 + .100602E-04, .716391E-05, .497303E-05, .331734E-05,
1420 + .210023E-05, .123459E-05, .653784E-06, .296473E-06,
1421 + .104957E-06, .242434E-07, .237609E-08, .000000E+00 /
1422 DATA (UPDI(I),I=5097,5148) /
1423 + .236468E+05, .257878E+05, .205890E+05, .164379E+05,
1424 + .131237E+05, .104776E+05, .836496E+04, .667825E+04,
1425 + .533162E+04, .425650E+04, .339815E+04, .271289E+04,
1426 + .216580E+04, .172905E+04, .138037E+04, .110201E+04,
1427 + .879799E+03, .702407E+03, .560800E+03, .447760E+03,
1428 + .357526E+03, .285497E+03, .228003E+03, .182111E+03,
1429 + .145479E+03, .116241E+03, .929023E+02, .740381E+02,
1430 + .592210E+02, .473915E+02, .379463E+02, .304036E+02,
1431 + .243790E+02, .195783E+02, .157307E+02, .126545E+02,
1432 + .101930E+02, .822099E+01, .663857E+01, .536575E+01,
1433 + .434100E+01, .351232E+01, .284051E+01, .229423E+01,
1434 + .184889E+01, .148528E+01, .118937E+01, .946720E+00,
1435 + .751131E+00, .592832E+00, .467397E+00, .368859E+00 /
1436 DATA (UPDI(I),I=5149,5200) /
1437 + .292389E+00, .233541E+00, .188312E+00, .153280E+00,
1438 + .125702E+00, .103530E+00, .853278E-01, .701381E-01,
1439 + .573377E-01, .465159E-01, .373868E-01, .297648E-01,
1440 + .233908E-01, .181525E-01, .138991E-01, .104901E-01,
1441 + .779573E-02, .569767E-02, .408974E-02, .287833E-02,
1442 + .198194E-02, .133149E-02, .873898E-03, .555102E-03,
1443 + .340883E-03, .201372E-03, .113728E-03, .609291E-04,
1444 + .306550E-04, .143133E-04, .605867E-05, .228365E-05,
1445 + .736022E-06, .191546E-06, .365611E-07, .427338E-08,
1446 + .203951E-09, .108703E-11, .000000E+00, .287945E+05,
1447 + .415348E+05, .328932E+05, .260423E+05, .206201E+05,
1448 + .163225E+05, .129217E+05, .102266E+05, .809422E+04,
1449 + .640464E+04, .506810E+04, .400930E+04, .317191E+04 /
1450 DATA (UPDI(I),I=5201,5252) /
1451 + .250867E+04, .198424E+04, .156897E+04, .124070E+04,
1452 + .980823E+03, .775446E+03, .612900E+03, .484482E+03,
1453 + .382874E+03, .302624E+03, .239147E+03, .189025E+03,
1454 + .149393E+03, .118103E+03, .930651E+02, .736185E+02,
1455 + .582444E+02, .461114E+02, .365190E+02, .289478E+02,
1456 + .229754E+02, .182463E+02, .145045E+02, .115467E+02,
1457 + .920200E+01, .734395E+01, .586562E+01, .469058E+01,
1458 + .375114E+01, .299975E+01, .239616E+01, .191108E+01,
1459 + .152011E+01, .120664E+01, .952986E+00, .751402E+00,
1460 + .590168E+00, .463800E+00, .365183E+00, .288973E+00,
1461 + .230247E+00, .184982E+00, .149708E+00, .121863E+00,
1462 + .994467E-01, .811363E-01, .659729E-01, .533540E-01,
1463 + .428216E-01, .340660E-01, .268503E-01, .209033E-01 /
1464 DATA (UPDI(I),I=5253,5304) /
1465 + .160746E-01, .122015E-01, .912851E-02, .672395E-02,
1466 + .486684E-02, .345513E-02, .239761E-02, .162113E-02,
1467 + .106036E-02, .667831E-03, .396624E-03, .216215E-03,
1468 + .100986E-03, .309599E-04, .000000E+00, .000000E+00,
1469 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1470 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1471 + .000000E+00, .000000E+00, .790596E+05, .626855E+05,
1472 + .492011E+05, .386063E+05, .302953E+05, .237668E+05,
1473 + .186465E+05, .146251E+05, .114717E+05, .899555E+04,
1474 + .705429E+04, .553027E+04, .433574E+04, .339818E+04,
1475 + .266349E+04, .208700E+04, .163538E+04, .128110E+04,
1476 + .100364E+04, .786043E+03, .615686E+03, .482120E+03,
1477 + .377587E+03, .295655E+03, .231550E+03, .181320E+03 /
1478 DATA (UPDI(I),I=5305,5356) /
1479 + .142026E+03, .110874E+03, .868987E+02, .681180E+02,
1480 + .534314E+02, .419261E+02, .329274E+02, .258935E+02,
1481 + .203745E+02, .160473E+02, .126579E+02, .999549E+01,
1482 + .790495E+01, .625693E+01, .495916E+01, .393133E+01,
1483 + .311710E+01, .246940E+01, .195403E+01, .154279E+01,
1484 + .121641E+01, .954902E+00, .749058E+00, .585833E+00,
1485 + .458823E+00, .360225E+00, .284255E+00, .225757E+00,
1486 + .180627E+00, .145417E+00, .117620E+00, .952901E-01,
1487 + .771362E-01, .622091E-01, .498965E-01, .397204E-01,
1488 + .313453E-01, .245125E-01, .189371E-01, .144527E-01,
1489 + .108885E-01, .808477E-02, .590908E-02, .424194E-02,
1490 + .298442E-02, .204954E-02, .136860E-02, .880710E-03,
1491 + .542257E-03, .310929E-03, .159341E-03, .644862E-04 /
1492 DATA (UPDI(I),I=5357,5408) /
1493 + .949380E-05, .000000E+00, .000000E+00, .000000E+00,
1494 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1495 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1496 + .000000E+00, .117824E+06, .927220E+05, .721612E+05,
1497 + .561418E+05, .436810E+05, .339753E+05, .264274E+05,
1498 + .205498E+05, .159801E+05, .124226E+05, .965738E+04,
1499 + .750524E+04, .583290E+04, .453170E+04, .352089E+04,
1500 + .273465E+04, .212408E+04, .164930E+04, .128073E+04,
1501 + .994219E+03, .771869E+03, .599080E+03, .465034E+03,
1502 + .360904E+03, .280145E+03, .217424E+03, .168792E+03,
1503 + .130583E+03, .101436E+03, .788071E+02, .612661E+02,
1504 + .476467E+02, .370876E+02, .289068E+02, .225439E+02,
1505 + .175991E+02, .137597E+02, .107704E+02, .844374E+01 /
1506 DATA (UPDI(I),I=5409,5460) /
1507 + .662586E+01, .520695E+01, .409332E+01, .321907E+01,
1508 + .253005E+01, .198691E+01, .155755E+01, .122000E+01,
1509 + .952014E+00, .742914E+00, .578430E+00, .451293E+00,
1510 + .353104E+00, .277689E+00, .219710E+00, .174997E+00,
1511 + .140127E+00, .112634E+00, .906203E-01, .728166E-01,
1512 + .582818E-01, .463930E-01, .366571E-01, .287185E-01,
1513 + .223026E-01, .171159E-01, .129813E-01, .972346E-02,
1514 + .718172E-02, .522494E-02, .373675E-02, .262226E-02,
1515 + .179941E-02, .120378E-02, .779437E-03, .486510E-03,
1516 + .287011E-03, .156634E-03, .749125E-04, .276543E-04,
1517 + .759660E-05, .421886E-05, .217633E-05, .105405E-05,
1518 + .435948E-06, .154771E-06, .429735E-07, .129004E-07,
1519 + .569676E-08, .357176E-08, .000000E+00, .000000E+00 /
1520 DATA (UPDI(I),I=5461,5512) /
1521 + .170592E+06, .133358E+06, .103003E+06, .795277E+05,
1522 + .614036E+05, .473926E+05, .365788E+05, .282220E+05,
1523 + .217745E+05, .167936E+05, .129521E+05, .998557E+04,
1524 + .769845E+04, .593297E+04, .457234E+04, .352247E+04,
1525 + .271367E+04, .208985E+04, .160949E+04, .123912E+04,
1526 + .954025E+03, .734301E+03, .565242E+03, .435003E+03,
1527 + .334828E+03, .257672E+03, .198349E+03, .152133E+03,
1528 + .117174E+03, .902617E+02, .695741E+02, .536475E+02,
1529 + .414026E+02, .319960E+02, .247406E+02, .191500E+02,
1530 + .148455E+02, .115226E+02, .895779E+01, .697104E+01,
1531 + .543342E+01, .423708E+01, .330598E+01, .257862E+01,
1532 + .201029E+01, .156502E+01, .121804E+01, .944927E+00,
1533 + .733564E+00, .568539E+00, .441781E+00, .344370E+00 /
1534 DATA (UPDI(I),I=5513,5564) /
1535 + .269800E+00, .212590E+00, .168523E+00, .134206E+00,
1536 + .107212E+00, .856815E-01, .683638E-01, .543249E-01,
1537 + .429324E-01, .336830E-01, .262057E-01, .202157E-01,
1538 + .154146E-01, .116194E-01, .865315E-02, .635691E-02,
1539 + .460242E-02, .327770E-02, .229251E-02, .157004E-02,
1540 + .105034E-02, .682225E-03, .429461E-03, .258059E-03,
1541 + .146428E-03, .765183E-04, .361860E-04, .181817E-04,
1542 + .127209E-04, .884095E-05, .611043E-05, .410654E-05,
1543 + .266589E-05, .162127E-05, .890774E-06, .407792E-06,
1544 + .127931E-06, .995765E-08, .000000E+00, .162835E+06,
1545 + .186718E+06, .143247E+06, .109849E+06, .842348E+05,
1546 + .645653E+05, .494864E+05, .379127E+05, .290441E+05,
1547 + .222404E+05, .170295E+05, .130338E+05, .997504E+04 /
1548 DATA (UPDI(I),I=5565,5616) /
1549 + .763082E+04, .583714E+04, .446322E+04, .341250E+04,
1550 + .260811E+04, .199328E+04, .152280E+04, .116337E+04,
1551 + .888458E+03, .678550E+03, .518093E+03, .395624E+03,
1552 + .302032E+03, .230634E+03, .175455E+03, .134046E+03,
1553 + .102423E+03, .783061E+02, .598892E+02, .458417E+02,
1554 + .351378E+02, .269474E+02, .206879E+02, .159068E+02,
1555 + .122462E+02, .944350E+01, .729031E+01, .563742E+01,
1556 + .436208E+01, .337768E+01, .261519E+01, .202440E+01,
1557 + .156545E+01, .121078E+01, .933896E+00, .721256E+00,
1558 + .556402E+00, .430529E+00, .334265E+00, .260826E+00,
1559 + .204625E+00, .161414E+00, .127839E+00, .101505E+00,
1560 + .805934E-01, .638674E-01, .504017E-01, .395568E-01,
1561 + .308237E-01, .238208E-01, .182574E-01, .138341E-01 /
1562 DATA (UPDI(I),I=5617,5668) /
1563 + .103653E-01, .767491E-02, .560783E-02, .403982E-02,
1564 + .286422E-02, .199583E-02, .136325E-02, .911040E-03,
1565 + .592595E-03, .375126E-03, .228349E-03, .133106E-03,
1566 + .735823E-04, .392742E-04, .231996E-04, .167382E-04,
1567 + .119621E-04, .842920E-05, .574501E-05, .374308E-05,
1568 + .226377E-05, .122294E-05, .544247E-06, .163798E-06,
1569 + .137522E-07, .000000E+00, .349636E+06, .270038E+06,
1570 + .205695E+06, .156609E+06, .119220E+06, .907130E+05,
1571 + .690121E+05, .524767E+05, .398969E+05, .303178E+05,
1572 + .230347E+05, .174927E+05, .132817E+05, .100795E+05,
1573 + .764807E+04, .580041E+04, .439841E+04, .333378E+04,
1574 + .252652E+04, .191389E+04, .144965E+04, .109758E+04,
1575 + .830969E+03, .628921E+03, .476005E+03, .360159E+03 /
1576 DATA (UPDI(I),I=5669,5720) /
1577 + .272551E+03, .205446E+03, .155529E+03, .117753E+03,
1578 + .891964E+02, .675888E+02, .512540E+02, .389221E+02,
1579 + .295706E+02, .224903E+02, .171312E+02, .130665E+02,
1580 + .998284E+01, .763621E+01, .585142E+01, .448749E+01,
1581 + .344452E+01, .264450E+01, .203047E+01, .155807E+01,
1582 + .119641E+01, .916653E+00, .703648E+00, .539818E+00,
1583 + .415559E+00, .321060E+00, .249265E+00, .194508E+00,
1584 + .152522E+00, .120010E+00, .946100E-01, .745537E-01,
1585 + .586181E-01, .458914E-01, .357280E-01, .276185E-01,
1586 + .211734E-01, .161008E-01, .121031E-01, .899604E-02,
1587 + .660678E-02, .478688E-02, .341789E-02, .240020E-02,
1588 + .165479E-02, .111663E-02, .735444E-03, .469750E-03,
1589 + .290432E-03, .171098E-03, .950521E-04, .487746E-04 /
1590 DATA (UPDI(I),I=5721,5772) /
1591 + .232132E-04, .118986E-04, .768999E-05, .494514E-05,
1592 + .318410E-05, .201049E-05, .124331E-05, .729711E-06,
1593 + .392209E-06, .176399E-06, .541374E-07, .401941E-08,
1594 + .000000E+00, .495044E+06, .380196E+06, .287723E+06,
1595 + .217625E+06, .164568E+06, .124377E+06, .939793E+05,
1596 + .709707E+05, .535818E+05, .404306E+05, .304992E+05,
1597 + .229944E+05, .173315E+05, .130560E+05, .983245E+04,
1598 + .740078E+04, .556901E+04, .418843E+04, .314937E+04,
1599 + .236686E+04, .177839E+04, .133559E+04, .100289E+04,
1600 + .752775E+03, .564983E+03, .423871E+03, .318032E+03,
1601 + .237641E+03, .178340E+03, .133846E+03, .100493E+03,
1602 + .754751E+02, .567231E+02, .426910E+02, .321419E+02,
1603 + .242259E+02, .182867E+02, .138225E+02, .104657E+02 /
1604 DATA (UPDI(I),I=5773,5824) /
1605 + .793442E+01, .602637E+01, .458163E+01, .348686E+01,
1606 + .265491E+01, .202220E+01, .153993E+01, .117403E+01,
1607 + .893481E+00, .681639E+00, .519949E+00, .398117E+00,
1608 + .305986E+00, .236297E+00, .183352E+00, .142894E+00,
1609 + .111688E+00, .874220E-01, .683747E-01, .533444E-01,
1610 + .414365E-01, .320068E-01, .245502E-01, .186762E-01,
1611 + .140953E-01, .105168E-01, .776031E-02, .565881E-02,
1612 + .407189E-02, .288812E-02, .201549E-02, .138155E-02,
1613 + .927650E-03, .608686E-03, .388151E-03, .240492E-03,
1614 + .142961E-03, .812251E-04, .438923E-04, .232934E-04,
1615 + .136970E-04, .935558E-05, .636577E-05, .429373E-05,
1616 + .281686E-05, .177383E-05, .103918E-05, .543117E-06,
1617 + .231518E-06, .656282E-07, .549649E-08, .000000E+00 /
1618 DATA (UPDI(I),I=5825,5876) /
1619 + .684280E+06, .522810E+06, .393263E+06, .295641E+06,
1620 + .222185E+06, .166875E+06, .125294E+06, .940145E+05,
1621 + .705197E+05, .528625E+05, .396125E+05, .296644E+05,
1622 + .222065E+05, .166130E+05, .124237E+05, .928503E+04,
1623 + .693675E+04, .517923E+04, .386569E+04, .288356E+04,
1624 + .215025E+04, .160253E+04, .119402E+04, .889214E+03,
1625 + .662088E+03, .492728E+03, .366695E+03, .271724E+03,
1626 + .202227E+03, .150504E+03, .112045E+03, .834357E+02,
1627 + .621670E+02, .463855E+02, .346199E+02, .258665E+02,
1628 + .193545E+02, .145021E+02, .108846E+02, .818058E+01,
1629 + .616000E+01, .464363E+01, .350465E+01, .264687E+01,
1630 + .200030E+01, .151184E+01, .114446E+01, .865170E+00,
1631 + .655960E+00, .497458E+00, .378797E+00, .289567E+00 /
1632 DATA (UPDI(I),I=5877,5928) /
1633 + .222384E+00, .171555E+00, .132865E+00, .103155E+00,
1634 + .801684E-01, .622370E-01, .481858E-01, .371416E-01,
1635 + .284679E-01, .216689E-01, .163589E-01, .122548E-01,
1636 + .907620E-02, .664911E-02, .481435E-02, .344061E-02,
1637 + .242435E-02, .168142E-02, .114608E-02, .765923E-03,
1638 + .500887E-03, .319083E-03, .198294E-03, .119068E-03,
1639 + .692118E-04, .391913E-04, .225454E-04, .143467E-04,
1640 + .100754E-04, .702543E-05, .481763E-05, .319410E-05,
1641 + .201286E-05, .116977E-05, .599810E-06, .248225E-06,
1642 + .677561E-07, .597699E-08, .000000E+00, .926238E+06,
1643 + .704238E+06, .526727E+06, .393705E+06, .294165E+06,
1644 + .219640E+06, .163929E+06, .122263E+06, .911490E+05,
1645 + .679042E+05, .505650E+05, .376262E+05, .279853E+05 /
1646 DATA (UPDI(I),I=5929,5980) /
1647 + .207997E+05, .154518E+05, .114708E+05, .851146E+04,
1648 + .631122E+04, .467769E+04, .346458E+04, .256496E+04,
1649 + .189770E+04, .140351E+04, .103742E+04, .766585E+03,
1650 + .566108E+03, .418034E+03, .307297E+03, .226883E+03,
1651 + .167497E+03, .123683E+03, .913469E+02, .674976E+02,
1652 + .499443E+02, .369628E+02, .273843E+02, .203166E+02,
1653 + .150942E+02, .112330E+02, .837136E+01, .625094E+01,
1654 + .467329E+01, .349836E+01, .262119E+01, .196567E+01,
1655 + .147471E+01, .110856E+01, .832469E+00, .627260E+00,
1656 + .472903E+00, .358076E+00, .272211E+00, .207870E+00,
1657 + .159407E+00, .122675E+00, .946050E-01, .730023E-01,
1658 + .562577E-01, .432289E-01, .330680E-01, .251530E-01,
1659 + .190014E-01, .142376E-01, .105874E-01, .778424E-02 /
1660 DATA (UPDI(I),I=5981,6032) /
1661 + .566204E-02, .407112E-02, .288990E-02, .202322E-02,
1662 + .139482E-02, .945649E-03, .629245E-03, .410365E-03,
1663 + .261359E-03, .163076E-03, .990109E-04, .588768E-04,
1664 + .347481E-04, .212210E-04, .141611E-04, .100804E-04,
1665 + .709503E-05, .487984E-05, .322924E-05, .201762E-05,
1666 + .115542E-05, .579312E-06, .232516E-06, .612796E-07,
1667 + .557394E-08, .000000E+00, .123051E+07, .931283E+06,
1668 + .692778E+06, .514998E+06, .382664E+06, .284122E+06,
1669 + .210855E+06, .156361E+06, .115892E+06, .858294E+05,
1670 + .635316E+05, .469892E+05, .347351E+05, .256561E+05,
1671 + .189395E+05, .139701E+05, .102988E+05, .758635E+04,
1672 + .558527E+04, .410882E+04, .302105E+04, .221959E+04,
1673 + .162998E+04, .119619E+04, .877485E+03, .643223E+03 /
1674 DATA (UPDI(I),I=6033,6084) /
1675 + .471436E+03, .343898E+03, .251963E+03, .184575E+03,
1676 + .135225E+03, .990823E+02, .726277E+02, .533084E+02,
1677 + .391318E+02, .287544E+02, .211579E+02, .155900E+02,
1678 + .115066E+02, .850490E+01, .629888E+01, .467118E+01,
1679 + .346900E+01, .257902E+01, .191947E+01, .142961E+01,
1680 + .106724E+01, .796169E+00, .596203E+00, .446835E+00,
1681 + .336410E+00, .254298E+00, .193069E+00, .147164E+00,
1682 + .112531E+00, .861984E-01, .660464E-01, .505272E-01,
1683 + .385371E-01, .292586E-01, .220886E-01, .165625E-01,
1684 + .123184E-01, .909399E-02, .663823E-02, .479460E-02,
1685 + .342386E-02, .241447E-02, .167985E-02, .115148E-02,
1686 + .776794E-03, .514924E-03, .335129E-03, .213605E-03,
1687 + .133975E-03, .823355E-04, .500769E-04, .306519E-04 /
1688 DATA (UPDI(I),I=6085,6136) /
1689 + .195786E-04, .134581E-04, .963652E-05, .679518E-05,
1690 + .465780E-05, .305935E-05, .188739E-05, .106185E-05,
1691 + .519699E-06, .202137E-06, .514601E-07, .478936E-08,
1692 + .000000E+00, .160718E+07, .121102E+07, .896204E+06,
1693 + .662741E+06, .489835E+06, .361748E+06, .267006E+06,
1694 + .196913E+06, .145135E+06, .106882E+06, .786623E+05,
1695 + .578435E+05, .425074E+05, .312101E+05, .229003E+05,
1696 + .167883E+05, .122994E+05, .900301E+04, .658584E+04,
1697 + .481347E+04, .351582E+04, .256584E+04, .187148E+04,
1698 + .136397E+04, .993565E+03, .723141E+03, .526205E+03,
1699 + .381017E+03, .277101E+03, .201475E+03, .146491E+03,
1700 + .106518E+03, .774740E+02, .564235E+02, .410925E+02,
1701 + .299562E+02, .218666E+02, .159835E+02, .117026E+02 /
1702 DATA (UPDI(I),I=6137,6188) /
1703 + .858073E+01, .630456E+01, .463860E+01, .341806E+01,
1704 + .252185E+01, .186305E+01, .137769E+01, .102149E+01,
1705 + .757072E+00, .563437E+00, .419778E+00, .314223E+00,
1706 + .236168E+00, .178255E+00, .135045E+00, .102602E+00,
1707 + .780647E-01, .593951E-01, .451116E-01, .341543E-01,
1708 + .257396E-01, .192885E-01, .143570E-01, .106003E-01,
1709 + .776987E-02, .563165E-02, .403960E-02, .286545E-02,
1710 + .200782E-02, .138859E-02, .946731E-03, .635797E-03,
1711 + .420130E-03, .273117E-03, .174404E-03, .110092E-03,
1712 + .685474E-04, .426169E-04, .269243E-04, .177847E-04,
1713 + .124512E-04, .892568E-05, .627765E-05, .427306E-05,
1714 + .277719E-05, .168800E-05, .931501E-06, .444634E-06,
1715 + .167563E-06, .412450E-07, .391298E-08, .000000E+00 /
1716 DATA (UPDI(I),I=6189,6240) /
1717 + .206654E+07, .155058E+07, .114176E+07, .840082E+06,
1718 + .617739E+06, .453855E+06, .333238E+06, .244459E+06,
1719 + .179213E+06, .131262E+06, .960735E+05, .702531E+05,
1720 + .513349E+05, .374756E+05, .273377E+05, .199233E+05,
1721 + .145088E+05, .105559E+05, .767421E+04, .557389E+04,
1722 + .404541E+04, .293334E+04, .212554E+04, .153886E+04,
1723 + .111341E+04, .804816E+03, .581583E+03, .418116E+03,
1724 + .301917E+03, .217937E+03, .157303E+03, .113535E+03,
1725 + .819607E+02, .592419E+02, .428161E+02, .309732E+02,
1726 + .224342E+02, .162712E+02, .118205E+02, .859981E+01,
1727 + .626965E+01, .457750E+01, .334744E+01, .245139E+01,
1728 + .179788E+01, .132018E+01, .972296E+00, .715964E+00,
1729 + .529584E+00, .392220E+00, .291899E+00, .218123E+00 /
1730 DATA (UPDI(I),I=6241,6292) /
1731 + .163662E+00, .123229E+00, .930233E-01, .703027E-01,
1732 + .531173E-01, .400559E-01, .301069E-01, .225243E-01,
1733 + .167562E-01, .123822E-01, .907674E-02, .660653E-02,
1734 + .475532E-02, .338808E-02, .238773E-02, .166283E-02,
1735 + .114350E-02, .775783E-03, .518945E-03, .342087E-03,
1736 + .222336E-03, .142403E-03, .905719E-04, .571706E-04,
1737 + .362946E-04, .235550E-04, .159482E-04, .112855E-04,
1738 + .807271E-05, .564652E-05, .380788E-05, .244420E-05,
1739 + .146166E-05, .790400E-06, .367780E-06, .134312E-06,
1740 + .320045E-07, .308834E-08, .000000E+00, .261873E+07,
1741 + .195693E+07, .143401E+07, .104998E+07, .768271E+06,
1742 + .561638E+06, .410291E+06, .299447E+06, .218387E+06,
1743 + .159116E+06, .115841E+06, .842521E+05, .612278E+05 /
1744 DATA (UPDI(I),I=6293,6344) /
1745 + .444505E+05, .322436E+05, .233650E+05, .169169E+05,
1746 + .122358E+05, .884261E+04, .638380E+04, .460484E+04,
1747 + .331824E+04, .238927E+04, .171871E+04, .123545E+04,
1748 + .887125E+03, .636776E+03, .454647E+03, .326038E+03,
1749 + .233710E+03, .167496E+03, .120029E+03, .860215E+02,
1750 + .617241E+02, .442805E+02, .317941E+02, .228559E+02,
1751 + .164521E+02, .118616E+02, .856433E+01, .619665E+01,
1752 + .449030E+01, .325934E+01, .236951E+01, .172549E+01,
1753 + .125831E+01, .920617E+00, .673590E+00, .495216E+00,
1754 + .364598E+00, .269771E+00, .200417E+00, .149484E+00,
1755 + .111861E+00, .838993E-01, .629839E-01, .472591E-01,
1756 + .353869E-01, .264074E-01, .196148E-01, .144872E-01,
1757 + .106294E-01, .773707E-02, .559275E-02, .399839E-02 /
1758 DATA (UPDI(I),I=6345,6396) /
1759 + .283016E-02, .198207E-02, .137226E-02, .938710E-03,
1760 + .634008E-03, .422708E-03, .278198E-03, .180952E-03,
1761 + .116372E-03, .746456E-04, .477773E-04, .309238E-04,
1762 + .205211E-04, .141411E-04, .100596E-04, .716327E-05,
1763 + .497264E-05, .331712E-05, .210011E-05, .123453E-05,
1764 + .653758E-06, .296464E-06, .104954E-06, .242428E-07,
1765 + .237603E-08, .000000E+00, .216361E+05, .183321E+05,
1766 + .154736E+05, .130607E+05, .110241E+05, .930501E+04,
1767 + .785404E+04, .662934E+04, .559563E+04, .472312E+04,
1768 + .398667E+04, .336507E+04, .284042E+04, .239758E+04,
1769 + .202381E+04, .170834E+04, .144207E+04, .121733E+04,
1770 + .102764E+04, .867547E+03, .732428E+03, .618390E+03,
1771 + .522146E+03, .440922E+03, .372375E+03, .314528E+03 /
1772 DATA (UPDI(I),I=6397,6448) /
1773 + .265714E+03, .223987E+03, .189329E+03, .160083E+03,
1774 + .135407E+03, .114588E+03, .970237E+02, .822477E+02,
1775 + .697512E+02, .592150E+02, .503311E+02, .428391E+02,
1776 + .365186E+02, .311813E+02, .266771E+02, .228657E+02,
1777 + .196372E+02, .168976E+02, .145681E+02, .125831E+02,
1778 + .108933E+02, .943678E+01, .819341E+01, .711610E+01,
1779 + .618954E+01, .538751E+01, .469167E+01, .408663E+01,
1780 + .355948E+01, .309940E+01, .269727E+01, .234538E+01,
1781 + .203717E+01, .176706E+01, .153025E+01, .132262E+01,
1782 + .114060E+01, .981776E+00, .841842E+00, .719481E+00,
1783 + .612631E+00, .519485E+00, .438456E+00, .368144E+00,
1784 + .307312E+00, .254863E+00, .209797E+00, .171217E+00,
1785 + .138666E+00, .110963E+00, .877301E-01, .684018E-01 /
1786 DATA (UPDI(I),I=6449,6500) /
1787 + .524725E-01, .394901E-01, .290493E-01, .207987E-01,
1788 + .143661E-01, .951601E-02, .595577E-02, .345028E-02,
1789 + .178749E-02, .776364E-03, .244574E-03, .351655E-04,
1790 + .000000E+00, .499991E+06, .397070E+06, .312212E+06,
1791 + .245415E+06, .192949E+06, .151656E+06, .119228E+06,
1792 + .937077E+05, .736685E+05, .578994E+05, .455184E+05,
1793 + .357761E+05, .281277E+05, .221095E+05, .173850E+05,
1794 + .136673E+05, .107490E+05, .845244E+04, .664965E+04,
1795 + .523078E+04, .411685E+04, .323999E+04, .255151E+04,
1796 + .200946E+04, .158375E+04, .124849E+04, .985074E+03,
1797 + .775030E+03, .612563E+03, .484470E+03, .383742E+03,
1798 + .304265E+03, .241720E+03, .192445E+03, .153519E+03,
1799 + .122740E+03, .984519E+02, .792009E+02, .639632E+02 /
1800 DATA (UPDI(I),I=6501,6552) /
1801 + .518349E+02, .421990E+02, .344862E+02, .283117E+02,
1802 + .233358E+02, .193189E+02, .160539E+02, .134028E+02,
1803 + .112140E+02, .942349E+01, .793169E+01, .669712E+01,
1804 + .566581E+01, .480157E+01, .407459E+01, .346304E+01,
1805 + .294306E+01, .250161E+01, .212592E+01, .180565E+01,
1806 + .153226E+01, .129860E+01, .109885E+01, .927851E+00,
1807 + .782220E+00, .656862E+00, .549816E+00, .458460E+00,
1808 + .380670E+00, .314534E+00, .258480E+00, .211088E+00,
1809 + .171202E+00, .137754E+00, .109808E+00, .868105E-01,
1810 + .677427E-01, .521680E-01, .395712E-01, .294829E-01,
1811 + .215136E-01, .153047E-01, .105607E-01, .695410E-02,
1812 + .442312E-02, .263982E-02, .144638E-02, .700300E-03,
1813 + .278713E-03, .792016E-04, .114094E-04, .000000E+00 /
1814 DATA (UPDI(I),I=6553,6604) /
1815 + .117445E+07, .924136E+06, .719052E+06, .559195E+06,
1816 + .434885E+06, .338036E+06, .262759E+06, .204139E+06,
1817 + .158599E+06, .123152E+06, .956295E+05, .742175E+05,
1818 + .576009E+05, .446802E+05, .346588E+05, .268704E+05,
1819 + .208332E+05, .161437E+05, .125108E+05, .969033E+04,
1820 + .750658E+04, .581215E+04, .450103E+04, .348428E+04,
1821 + .269796E+04, .208846E+04, .161733E+04, .124799E+04,
1822 + .967177E+03, .749694E+03, .581712E+03, .451640E+03,
1823 + .351184E+03, .273585E+03, .213475E+03, .166911E+03,
1824 + .130908E+03, .102968E+03, .813109E+02, .644399E+02,
1825 + .513166E+02, .410367E+02, .329789E+02, .266224E+02,
1826 + .215967E+02, .175955E+02, .144115E+02, .118346E+02,
1827 + .976723E+01, .807757E+01, .670494E+01, .557918E+01 /
1828 DATA (UPDI(I),I=6605,6656) /
1829 + .465241E+01, .388672E+01, .325337E+01, .272349E+01,
1830 + .228088E+01, .191025E+01, .159922E+01, .133786E+01,
1831 + .111789E+01, .932731E+00, .776560E+00, .645560E+00,
1832 + .534474E+00, .441045E+00, .362505E+00, .296648E+00,
1833 + .241511E+00, .195506E+00, .157221E+00, .125521E+00,
1834 + .993788E-01, .779001E-01, .605323E-01, .463909E-01,
1835 + .350555E-01, .260670E-01, .190160E-01, .135668E-01,
1836 + .941821E-02, .632031E-02, .402621E-02, .248696E-02,
1837 + .143476E-02, .755669E-03, .348992E-03, .131018E-03,
1838 + .350284E-04, .504597E-05, .000000E+00, .222421E+07,
1839 + .173703E+07, .133998E+07, .103304E+07, .796309E+06,
1840 + .613438E+06, .472498E+06, .363700E+06, .279911E+06,
1841 + .215279E+06, .165542E+06, .127207E+06, .977309E+05 /
1842 DATA (UPDI(I),I=6657,6708) /
1843 + .750305E+05, .575917E+05, .441731E+05, .338743E+05,
1844 + .259569E+05, .198863E+05, .152238E+05, .116524E+05,
1845 + .891213E+04, .681544E+04, .520842E+04, .398008E+04,
1846 + .303947E+04, .232138E+04, .176564E+04, .134855E+04,
1847 + .102985E+04, .786977E+03, .601560E+03, .460350E+03,
1848 + .352872E+03, .270823E+03, .208234E+03, .160568E+03,
1849 + .124160E+03, .963747E+02, .750778E+02, .587721E+02,
1850 + .462068E+02, .365129E+02, .289900E+02, .231356E+02,
1851 + .185490E+02, .149557E+02, .120929E+02, .983110E+01,
1852 + .801072E+01, .655377E+01, .537657E+01, .442146E+01,
1853 + .364384E+01, .300933E+01, .248590E+01, .205465E+01,
1854 + .169848E+01, .140361E+01, .115918E+01, .956199E+00,
1855 + .787631E+00, .647327E+00, .531213E+00, .434067E+00 /
1856 DATA (UPDI(I),I=6709,6760) /
1857 + .353470E+00, .286643E+00, .231384E+00, .185770E+00,
1858 + .148255E+00, .117492E+00, .924033E-01, .720327E-01,
1859 + .555599E-01, .424587E-01, .319733E-01, .237186E-01,
1860 + .172958E-01, .123574E-01, .862104E-02, .583945E-02,
1861 + .381012E-02, .234839E-02, .140822E-02, .784880E-03,
1862 + .396984E-03, .174641E-03, .617357E-04, .155110E-04,
1863 + .223152E-05, .000000E+00, .373774E+07, .290019E+07,
1864 + .222066E+07, .169914E+07, .129979E+07, .993582E+06,
1865 + .759306E+06, .579832E+06, .442649E+06, .337657E+06,
1866 + .257485E+06, .196187E+06, .149430E+06, .113719E+06,
1867 + .865098E+05, .657524E+05, .499559E+05, .379196E+05,
1868 + .287716E+05, .218100E+05, .165261E+05, .125106E+05,
1869 + .946717E+04, .715763E+04, .540971E+04, .408495E+04 /
1870 DATA (UPDI(I),I=6761,6812) /
1871 + .308412E+04, .231793E+04, .174912E+04, .131940E+04,
1872 + .995577E+03, .751278E+03, .567386E+03, .429139E+03,
1873 + .324876E+03, .246353E+03, .187303E+03, .142790E+03,
1874 + .109256E+03, .838978E+02, .647365E+02, .501709E+02,
1875 + .390818E+02, .305933E+02, .240746E+02, .190363E+02,
1876 + .151409E+02, .120785E+02, .969038E+01, .779348E+01,
1877 + .629461E+01, .509911E+01, .414134E+01, .337136E+01,
1878 + .275051E+01, .224479E+01, .183319E+01, .149740E+01,
1879 + .122276E+01, .997871E+00, .813382E+00, .662030E+00,
1880 + .537576E+00, .435842E+00, .351776E+00, .282906E+00,
1881 + .226526E+00, .180507E+00, .143020E+00, .112602E+00,
1882 + .880017E-01, .682236E-01, .523994E-01, .397946E-01,
1883 + .299268E-01, .221577E-01, .161463E-01, .115532E-01 /
1884 DATA (UPDI(I),I=6813,6864) /
1885 + .808911E-02, .552125E-02, .365072E-02, .231744E-02,
1886 + .138332E-02, .806050E-03, .434571E-03, .211432E-03,
1887 + .888434E-04, .297156E-04, .707753E-05, .101479E-05,
1888 + .000000E+00, .581303E+07, .448436E+07, .341074E+07,
1889 + .259216E+07, .196935E+07, .149499E+07, .113446E+07,
1890 + .860155E+06, .651903E+06, .493640E+06, .373628E+06,
1891 + .282534E+06, .213544E+06, .161246E+06, .121690E+06,
1892 + .917466E+05, .691317E+05, .520370E+05, .391462E+05,
1893 + .294170E+05, .220925E+05, .165735E+05, .124259E+05,
1894 + .930615E+04, .696576E+04, .520813E+04, .389256E+04,
1895 + .289507E+04, .216166E+04, .161311E+04, .120383E+04,
1896 + .898272E+03, .670627E+03, .501337E+03, .375022E+03,
1897 + .280955E+03, .210995E+03, .158865E+03, .120037E+03 /
1898 DATA (UPDI(I),I=6865,6916) /
1899 + .910203E+02, .693471E+02, .530679E+02, .408182E+02,
1900 + .315534E+02, .245216E+02, .191511E+02, .150471E+02,
1901 + .118586E+02, .940093E+01, .747153E+01, .596437E+01,
1902 + .477612E+01, .383492E+01, .308679E+01, .249006E+01,
1903 + .200958E+01, .162286E+01, .131091E+01, .105861E+01,
1904 + .854322E+00, .688612E+00, .554199E+00, .444919E+00,
1905 + .356611E+00, .284483E+00, .226087E+00, .178854E+00,
1906 + .140771E+00, .110134E+00, .855910E-01, .660024E-01,
1907 + .504657E-01, .382087E-01, .285856E-01, .211654E-01,
1908 + .154150E-01, .110393E-01, .775437E-02, .532282E-02,
1909 + .355588E-02, .229598E-02, .141862E-02, .820353E-03,
1910 + .464828E-03, .242642E-03, .113706E-03, .457427E-04,
1911 + .145297E-04, .329921E-05, .470164E-06, .000000E+00 /
1912 DATA (UPDI(I),I=6917,6968) /
1913 + .893617E+07, .685181E+07, .517472E+07, .390490E+07,
1914 + .294527E+07, .221958E+07, .167182E+07, .125812E+07,
1915 + .946252E+06, .711021E+06, .533942E+06, .400564E+06,
1916 + .300307E+06, .224906E+06, .168318E+06, .125829E+06,
1917 + .939948E+05, .701332E+05, .522877E+05, .389360E+05,
1918 + .289699E+05, .215281E+05, .159848E+05, .118541E+05,
1919 + .878373E+04, .649998E+04, .480721E+04, .353661E+04,
1920 + .261180E+04, .192734E+04, .142192E+04, .104870E+04,
1921 + .773628E+03, .571378E+03, .422144E+03, .312308E+03,
1922 + .231559E+03, .172112E+03, .128356E+03, .960566E+02,
1923 + .722216E+02, .545407E+02, .413976E+02, .315812E+02,
1924 + .242218E+02, .186709E+02, .144809E+02, .112657E+02,
1925 + .881778E+01, .691965E+01, .545489E+01, .431418E+01 /
1926 DATA (UPDI(I),I=6969,7020) /
1927 + .342152E+01, .272046E+01, .216780E+01, .172830E+01,
1928 + .137880E+01, .110028E+01, .877737E+00, .699733E+00,
1929 + .557103E+00, .442831E+00, .351072E+00, .277850E+00,
1930 + .218804E+00, .171618E+00, .133955E+00, .103996E+00,
1931 + .802253E-01, .614517E-01, .466857E-01, .351489E-01,
1932 + .261890E-01, .192672E-01, .140194E-01, .100238E-01,
1933 + .703974E-02, .484331E-02, .325135E-02, .212012E-02,
1934 + .133282E-02, .798965E-03, .445494E-03, .244810E-03,
1935 + .123391E-03, .555480E-04, .213620E-04, .643890E-05,
1936 + .139496E-05, .196467E-06, .000000E+00, .131695E+08,
1937 + .100393E+08, .753093E+07, .564428E+07, .422779E+07,
1938 + .316389E+07, .236622E+07, .176795E+07, .132003E+07,
1939 + .984599E+06, .733858E+06, .546382E+06, .406475E+06 /
1940 DATA (UPDI(I),I=7021,7072) /
1941 + .302048E+06, .224258E+06, .166301E+06, .123210E+06,
1942 + .911686E+05, .673948E+05, .497542E+05, .366942E+05,
1943 + .270251E+05, .198836E+05, .146089E+05, .107225E+05,
1944 + .785795E+04, .575431E+04, .419029E+04, .306280E+04,
1945 + .223656E+04, .163242E+04, .119088E+04, .868749E+03,
1946 + .634411E+03, .463318E+03, .338771E+03, .248199E+03,
1947 + .182270E+03, .134283E+03, .992658E+02, .737175E+02,
1948 + .549854E+02, .412199E+02, .310587E+02, .235284E+02,
1949 + .179145E+02, .137259E+02, .105489E+02, .815791E+01,
1950 + .632538E+01, .492743E+01, .385127E+01, .301870E+01,
1951 + .237224E+01, .186830E+01, .147222E+01, .116086E+01,
1952 + .915583E+00, .721861E+00, .568708E+00, .447425E+00,
1953 + .351401E+00, .275209E+00, .215142E+00, .167300E+00 /
1954 DATA (UPDI(I),I=7073,7124) /
1955 + .129545E+00, .997948E-01, .764383E-01, .581551E-01,
1956 + .439140E-01, .328722E-01, .243718E-01, .178710E-01,
1957 + .129284E-01, .924350E-02, .648686E-02, .446628E-02,
1958 + .300820E-02, .197362E-02, .125503E-02, .767244E-03,
1959 + .445425E-03, .238683E-03, .126942E-03, .616091E-04,
1960 + .265473E-04, .971685E-05, .275886E-05, .564872E-06,
1961 + .778748E-07, .000000E+00, .187112E+08, .141859E+08,
1962 + .105732E+08, .787316E+07, .585857E+07, .435524E+07,
1963 + .323526E+07, .240083E+07, .178018E+07, .131854E+07,
1964 + .975778E+06, .721280E+06, .532667E+06, .392892E+06,
1965 + .289507E+06, .213049E+06, .156617E+06, .114975E+06,
1966 + .843097E+05, .617339E+05, .451504E+05, .329719E+05,
1967 + .240496E+05, .175146E+05, .127398E+05, .925088E+04 /
1968 DATA (UPDI(I),I=7125,7176) /
1969 + .671119E+04, .484002E+04, .350337E+04, .253302E+04,
1970 + .183014E+04, .132142E+04, .953854E+03, .689154E+03,
1971 + .497826E+03, .359992E+03, .260794E+03, .189352E+03,
1972 + .137903E+03, .100766E+03, .739634E+02, .545268E+02,
1973 + .403989E+02, .300855E+02, .225259E+02, .169524E+02,
1974 + .128393E+02, .975391E+01, .745735E+01, .571649E+01,
1975 + .440296E+01, .340282E+01, .263745E+01, .204958E+01,
1976 + .159621E+01, .124385E+01, .969881E+00, .756428E+00,
1977 + .589701E+00, .459353E+00, .357284E+00, .277385E+00,
1978 + .214710E+00, .165871E+00, .127431E+00, .974588E-01,
1979 + .741326E-01, .560491E-01, .420762E-01, .313368E-01,
1980 + .231244E-01, .168915E-01, .121953E-01, .867960E-02,
1981 + .610079E-02, .420426E-02, .283920E-02, .187299E-02 /
1982 DATA (UPDI(I),I=7177,7228) /
1983 + .120150E-02, .745411E-03, .443342E-03, .249332E-03,
1984 + .128280E-03, .660715E-04, .309030E-04, .127611E-04,
1985 + .445578E-05, .119340E-05, .230658E-06, .306908E-07,
1986 + .000000E+00, .257600E+08, .194286E+08, .143922E+08,
1987 + .106507E+08, .787574E+07, .581774E+07, .429391E+07,
1988 + .316574E+07, .233188E+07, .171566E+07, .126105E+07,
1989 + .925761E+06, .678908E+06, .497224E+06, .363753E+06,
1990 + .265738E+06, .193902E+06, .141275E+06, .102802E+06,
1991 + .746888E+05, .541919E+05, .392558E+05, .283975E+05,
1992 + .205080E+05, .147897E+05, .106458E+05, .765459E+04,
1993 + .546977E+04, .392265E+04, .280952E+04, .201042E+04,
1994 + .143741E+04, .102723E+04, .734665E+03, .525218E+03,
1995 + .375822E+03, .269364E+03, .193471E+03, .139370E+03 /
1996 DATA (UPDI(I),I=7229,7280) /
1997 + .100722E+03, .731148E+02, .533048E+02, .390550E+02,
1998 + .287623E+02, .212968E+02, .158504E+02, .118733E+02,
1999 + .892108E+01, .674671E+01, .511572E+01, .389792E+01,
2000 + .298033E+01, .228540E+01, .175714E+01, .135391E+01,
2001 + .104385E+01, .805295E+00, .621379E+00, .479239E+00,
2002 + .369291E+00, .284117E+00, .218161E+00, .166989E+00,
2003 + .127554E+00, .968650E-01, .732117E-01, .550196E-01,
2004 + .410852E-01, .304513E-01, .223817E-01, .162920E-01,
2005 + .117326E-01, .834599E-02, .584787E-02, .404383E-02,
2006 + .273862E-02, .181542E-02, .117397E-02, .736993E-03,
2007 + .446505E-03, .258634E-03, .141040E-03, .696756E-04,
2008 + .347986E-04, .157107E-04, .623042E-05, .208202E-05,
2009 + .527033E-06, .958726E-07, .120527E-07, .000000E+00 /
2010 DATA (UPDI(I),I=7281,7332) /
2011 + .345013E+08, .258929E+08, .190683E+08, .140277E+08,
2012 + .103106E+08, .757016E+07, .555293E+07, .406851E+07,
2013 + .297792E+07, .217699E+07, .158975E+07, .115940E+07,
2014 + .844571E+06, .614371E+06, .446362E+06, .323814E+06,
2015 + .234601E+06, .169698E+06, .122578E+06, .883941E+05,
2016 + .636493E+05, .457510E+05, .328357E+05, .235234E+05,
2017 + .168257E+05, .120102E+05, .856239E+04, .606480E+04,
2018 + .431099E+04, .305993E+04, .216951E+04, .153669E+04,
2019 + .108771E+04, .770405E+03, .545335E+03, .386313E+03,
2020 + .274070E+03, .194831E+03, .138891E+03, .993255E+02,
2021 + .713422E+02, .514632E+02, .373063E+02, .271839E+02,
2022 + .199154E+02, .146662E+02, .108715E+02, .808295E+01,
2023 + .604973E+01, .453986E+01, .342374E+01, .259113E+01 /
2024 DATA (UPDI(I),I=7333,7384) /
2025 + .196681E+01, .149688E+01, .114171E+01, .871371E+00,
2026 + .665445E+00, .508275E+00, .388026E+00, .295948E+00,
2027 + .225346E+00, .171234E+00, .129687E+00, .980057E-01,
2028 + .736148E-01, .550205E-01, .408789E-01, .301701E-01,
2029 + .220934E-01, .160378E-01, .115247E-01, .818905E-02,
2030 + .574447E-02, .396630E-02, .270094E-02, .179948E-02,
2031 + .117226E-02, .744015E-03, .457713E-03, .271217E-03,
2032 + .153268E-03, .812001E-04, .385810E-04, .187220E-04,
2033 + .817958E-05, .312517E-05, .100364E-05, .240793E-06,
2034 + .410504E-07, .472972E-08, .000000E+00, .450976E+08,
2035 + .336853E+08, .246672E+08, .180433E+08, .131855E+08,
2036 + .962457E+07, .701812E+07, .511128E+07, .371846E+07,
2037 + .270166E+07, .196060E+07, .142083E+07, .102837E+07 /
2038 DATA (UPDI(I),I=7385,7436) /
2039 + .743212E+06, .536400E+06, .386526E+06, .278126E+06,
2040 + .199790E+06, .143299E+06, .102597E+06, .733378E+05,
2041 + .523247E+05, .372701E+05, .264950E+05, .188025E+05,
2042 + .133138E+05, .941447E+04, .661223E+04, .466034E+04,
2043 + .327939E+04, .230466E+04, .161782E+04, .113467E+04,
2044 + .796225E+03, .558284E+03, .391698E+03, .275187E+03,
2045 + .193701E+03, .136713E+03, .967893E+02, .688206E+02,
2046 + .491429E+02, .352638E+02, .254359E+02, .184470E+02,
2047 + .134482E+02, .986940E+01, .726473E+01, .538384E+01,
2048 + .400045E+01, .298757E+01, .223915E+01, .168326E+01,
2049 + .126878E+01, .958447E+00, .724516E+00, .548012E+00,
2050 + .414576E+00, .313459E+00, .236772E+00, .178538E+00,
2051 + .134339E+00, .100735E+00, .753655E-01, .560309E-01 /
2052 DATA (UPDI(I),I=7437,7488) /
2053 + .414423E-01, .304637E-01, .222387E-01, .161034E-01,
2054 + .115551E-01, .820469E-02, .575796E-02, .398721E-02,
2055 + .271586E-02, .182343E-02, .119669E-02, .767221E-03,
2056 + .478684E-03, .289102E-03, .167894E-03, .927895E-04,
2057 + .478982E-04, .219689E-04, .103860E-04, .440595E-05,
2058 + .162851E-05, .505007E-06, .115318E-06, .183569E-07,
2059 + .186226E-08, .000000E+00, .576798E+08, .428880E+08,
2060 + .312356E+08, .227226E+08, .165126E+08, .119854E+08,
2061 + .868976E+07, .629226E+07, .455083E+07, .328686E+07,
2062 + .237094E+07, .170775E+07, .122840E+07, .882214E+06,
2063 + .632668E+06, .452954E+06, .323784E+06, .231039E+06,
2064 + .164587E+06, .117028E+06, .830660E+05, .588429E+05,
2065 + .416082E+05, .293601E+05, .206785E+05, .145293E+05 /
2066 DATA (UPDI(I),I=7489,7540) /
2067 + .101935E+05, .710146E+04, .496441E+04, .346443E+04,
2068 + .241412E+04, .168008E+04, .116799E+04, .812325E+03,
2069 + .564405E+03, .392350E+03, .273073E+03, .190401E+03,
2070 + .133104E+03, .933304E+02, .657217E+02, .464767E+02,
2071 + .330279E+02, .235932E+02, .169460E+02, .122355E+02,
2072 + .889426E+01, .648482E+01, .476092E+01, .350456E+01,
2073 + .259307E+01, .192566E+01, .143440E+01, .107138E+01,
2074 + .802004E+00, .600799E+00, .450352E+00, .337634E+00,
2075 + .252988E+00, .189369E+00, .141498E+00, .105496E+00,
2076 + .783768E-01, .580923E-01, .427794E-01, .313359E-01,
2077 + .228083E-01, .164830E-01, .118129E-01, .838673E-02,
2078 + .589006E-02, .408689E-02, .279688E-02, .188171E-02,
2079 + .124730E-02, .807547E-03, .510358E-03, .313596E-03 /
2080 DATA (UPDI(I),I=7541,7592) /
2081 + .186324E-03, .106308E-03, .576249E-04, .290904E-04,
2082 + .129514E-04, .598309E-05, .247379E-05, .888503E-06,
2083 + .267287E-06, .584165E-07, .867818E-08, .739742E-09,
2084 + .000000E+00, .723391E+08, .535534E+08, .387986E+08,
2085 + .280746E+08, .202923E+08, .146488E+08, .105623E+08,
2086 + .760557E+07, .546959E+07, .392785E+07, .281686E+07,
2087 + .201702E+07, .144219E+07, .102949E+07, .733749E+06,
2088 + .522049E+06, .370809E+06, .262892E+06, .186053E+06,
2089 + .131411E+06, .926439E+05, .651761E+05, .457633E+05,
2090 + .320617E+05, .224169E+05, .156337E+05, .108856E+05,
2091 + .752444E+04, .521886E+04, .361294E+04, .249711E+04,
2092 + .172346E+04, .118803E+04, .819197E+03, .564216E+03,
2093 + .388752E+03, .268146E+03, .185274E+03, .128337E+03 /
2094 DATA (UPDI(I),I=7593,7644) /
2095 + .891608E+02, .622065E+02, .435843E+02, .306863E+02,
2096 + .217186E+02, .154564E+02, .110582E+02, .796595E+01,
2097 + .575566E+01, .418813E+01, .305567E+01, .224119E+01,
2098 + .164994E+01, .121846E+01, .902322E+00, .669706E+00,
2099 + .497456E+00, .369752E+00, .274880E+00, .204238E+00,
2100 + .151594E+00, .112317E+00, .830296E-01, .611587E-01,
2101 + .449408E-01, .328053E-01, .238167E-01, .171792E-01,
2102 + .123009E-01, .873290E-02, .614034E-02, .426972E-02,
2103 + .293232E-02, .198553E-02, .132113E-02, .865746E-03,
2104 + .553788E-03, .345575E-03, .209514E-03, .122725E-03,
2105 + .689631E-04, .367723E-04, .182259E-04, .792844E-05,
2106 + .358914E-05, .145134E-05, .508559E-06, .148960E-06,
2107 + .313525E-07, .436478E-08, .298432E-09, .000000E+00 /
2108 DATA (UPDI(I),I=7645,7696) /
2109 + .236468E+05, .260861E+05, .208565E+05, .166777E+05,
2110 + .133387E+05, .106704E+05, .853786E+04, .683332E+04,
2111 + .547069E+04, .438124E+04, .351006E+04, .281328E+04,
2112 + .225589E+04, .180990E+04, .145295E+04, .116719E+04,
2113 + .938340E+03, .755011E+03, .608090E+03, .490296E+03,
2114 + .395810E+03, .319981E+03, .259091E+03, .210167E+03,
2115 + .170831E+03, .139181E+03, .113695E+03, .928956E+02,
2116 + .763852E+02, .630536E+02, .522779E+02, .435589E+02,
2117 + .364961E+02, .307831E+02, .261308E+02, .223478E+02,
2118 + .192653E+02, .167471E+02, .146832E+02, .129836E+02,
2119 + .115782E+02, .104062E+02, .942106E+01, .858475E+01,
2120 + .786698E+01, .724376E+01, .669815E+01, .621023E+01,
2121 + .577463E+01, .537715E+01, .501482E+01, .468042E+01 /
2122 DATA (UPDI(I),I=7697,7748) /
2123 + .436912E+01, .407676E+01, .379986E+01, .353564E+01,
2124 + .328215E+01, .303814E+01, .280301E+01, .257662E+01,
2125 + .235911E+01, .215079E+01, .195200E+01, .176391E+01,
2126 + .158484E+01, .141620E+01, .125814E+01, .111072E+01,
2127 + .973957E+00, .847780E+00, .732060E+00, .626612E+00,
2128 + .531131E+00, .445251E+00, .369360E+00, .301934E+00,
2129 + .243093E+00, .192338E+00, .149139E+00, .112939E+00,
2130 + .831552E-01, .592164E-01, .403645E-01, .261299E-01,
2131 + .157791E-01, .866680E-02, .415014E-02, .160020E-02,
2132 + .415603E-03, .410801E-04, .000000E+00, .287945E+05,
2133 + .418813E+05, .332039E+05, .263209E+05, .208700E+05,
2134 + .165466E+05, .131227E+05, .104069E+05, .825595E+04,
2135 + .654972E+04, .519829E+04, .412611E+04, .327676E+04 /
2136 DATA (UPDI(I),I=7749,7800) /
2137 + .260278E+04, .206875E+04, .164487E+04, .130889E+04,
2138 + .104210E+04, .830549E+03, .662468E+03, .529103E+03,
2139 + .423065E+03, .338858E+03, .271842E+03, .218562E+03,
2140 + .176111E+03, .142307E+03, .114996E+03, .935589E+02,
2141 + .764113E+02, .627041E+02, .517116E+02, .429006E+02,
2142 + .358303E+02, .301276E+02, .255218E+02, .217994E+02,
2143 + .187743E+02, .163108E+02, .142892E+02, .126256E+02,
2144 + .112413E+02, .100824E+02, .910033E+01, .826095E+01,
2145 + .753443E+01, .690174E+01, .633882E+01, .583959E+01,
2146 + .538693E+01, .497754E+01, .460243E+01, .425633E+01,
2147 + .393423E+01, .363250E+01, .334799E+01, .307868E+01,
2148 + .282302E+01, .258024E+01, .234985E+01, .213168E+01,
2149 + .192567E+01, .173172E+01, .155066E+01, .138049E+01 /
2150 DATA (UPDI(I),I=7801,7852) /
2151 + .122227E+01, .107581E+01, .940902E+00, .817253E+00,
2152 + .704559E+00, .602437E+00, .510514E+00, .428317E+00,
2153 + .355277E+00, .291545E+00, .235646E+00, .187501E+00,
2154 + .146539E+00, .112163E+00, .837943E-01, .608181E-01,
2155 + .426532E-01, .285898E-01, .181720E-01, .107510E-01,
2156 + .577026E-02, .268964E-02, .100489E-02, .252887E-03,
2157 + .252620E-04, .000000E+00, .794878E+05, .630700E+05,
2158 + .495459E+05, .389155E+05, .305726E+05, .240155E+05,
2159 + .188696E+05, .148252E+05, .116512E+05, .915660E+04,
2160 + .719881E+04, .565995E+04, .445214E+04, .350266E+04,
2161 + .275731E+04, .217125E+04, .171107E+04, .134912E+04,
2162 + .106480E+04, .841049E+03, .665193E+03, .526701E+03,
2163 + .417767E+03, .331896E+03, .264275E+03, .210905E+03 /
2164 DATA (UPDI(I),I=7853,7904) /
2165 + .168807E+03, .135117E+03, .108916E+03, .881487E+02,
2166 + .716958E+02, .586153E+02, .482186E+02, .399423E+02,
2167 + .333179E+02, .280056E+02, .237406E+02, .202953E+02,
2168 + .175050E+02, .152262E+02, .133593E+02, .118117E+02,
2169 + .105210E+02, .943115E+01, .850310E+01, .770295E+01,
2170 + .700912E+01, .639466E+01, .585240E+01, .536326E+01,
2171 + .492328E+01, .452244E+01, .415485E+01, .381503E+01,
2172 + .349906E+01, .320355E+01, .292628E+01, .266551E+01,
2173 + .242021E+01, .218965E+01, .197339E+01, .177109E+01,
2174 + .158236E+01, .140774E+01, .124506E+01, .109513E+01,
2175 + .957514E+00, .831832E+00, .717609E+00, .614385E+00,
2176 + .521631E+00, .438854E+00, .365483E+00, .300845E+00,
2177 + .244947E+00, .196365E+00, .154915E+00, .119994E+00 /
2178 DATA (UPDI(I),I=7905,7956) /
2179 + .909826E-01, .673095E-01, .483332E-01, .335119E-01,
2180 + .221819E-01, .139064E-01, .810101E-02, .427214E-02,
2181 + .195058E-02, .711108E-03, .174466E-03, .175805E-04,
2182 + .000000E+00, .118295E+06, .931450E+05, .725406E+05,
2183 + .564820E+05, .439861E+05, .342489E+05, .266729E+05,
2184 + .207700E+05, .161776E+05, .125997E+05, .981634E+04,
2185 + .764786E+04, .596090E+04, .464659E+04, .362404E+04,
2186 + .282728E+04, .220728E+04, .172405E+04, .134793E+04,
2187 + .105464E+04, .826233E+03, .648017E+03, .509121E+03,
2188 + .400648E+03, .316011E+03, .249826E+03, .198097E+03,
2189 + .157083E+03, .125473E+03, .100643E+03, .811418E+02,
2190 + .657713E+02, .536553E+02, .440878E+02, .364878E+02,
2191 + .304374E+02, .256125E+02, .217393E+02, .186202E+02 /
2192 DATA (UPDI(I),I=7957,8008) /
2193 + .160862E+02, .140201E+02, .123149E+02, .108984E+02,
2194 + .970713E+01, .869669E+01, .782910E+01, .707998E+01,
2195 + .641955E+01, .583945E+01, .531876E+01, .485276E+01,
2196 + .443048E+01, .404542E+01, .369165E+01, .336492E+01,
2197 + .306160E+01, .277923E+01, .251584E+01, .227017E+01,
2198 + .204123E+01, .182829E+01, .163079E+01, .144802E+01,
2199 + .128030E+01, .112530E+01, .983577E+00, .854523E+00,
2200 + .737588E+00, .632148E+00, .537612E+00, .453336E+00,
2201 + .378732E+00, .313152E+00, .255849E+00, .206715E+00,
2202 + .164386E+00, .128595E+00, .987275E-01, .741575E-01,
2203 + .543066E-01, .385727E-01, .264319E-01, .172690E-01,
2204 + .106713E-01, .611513E-02, .316419E-02, .141219E-02,
2205 + .500721E-03, .119219E-03, .121397E-04, .000000E+00 /
2206 DATA (UPDI(I),I=8009,8060) /
2207 + .171107E+06, .133820E+06, .103417E+06, .798996E+05,
2208 + .617371E+05, .476916E+05, .368471E+05, .284626E+05,
2209 + .219903E+05, .169872E+05, .131258E+05, .101414E+05,
2210 + .783826E+04, .605844E+04, .468497E+04, .362358E+04,
2211 + .280448E+04, .217142E+04, .168278E+04, .130500E+04,
2212 + .101328E+04, .787618E+03, .613249E+03, .478255E+03,
2213 + .373831E+03, .292881E+03, .230160E+03, .180866E+03,
2214 + .143202E+03, .113869E+03, .910250E+02, .731689E+02,
2215 + .592056E+02, .482661E+02, .396406E+02, .328232E+02,
2216 + .274228E+02, .231151E+02, .196660E+02, .168790E+02,
2217 + .146175E+02, .127597E+02, .112230E+02, .993591E+01,
2218 + .884857E+01, .791887E+01, .711947E+01, .641784E+01,
2219 + .580431E+01, .525621E+01, .476805E+01, .432796E+01 /
2220 DATA (UPDI(I),I=8061,8112) /
2221 + .392879E+01, .356422E+01, .322963E+01, .292115E+01,
2222 + .263604E+01, .237213E+01, .212786E+01, .190201E+01,
2223 + .169358E+01, .150176E+01, .132559E+01, .116515E+01,
2224 + .101797E+01, .884411E+00, .763690E+00, .655115E+00,
2225 + .557939E+00, .471463E+00, .394950E+00, .327738E+00,
2226 + .269119E+00, .218297E+00, .175075E+00, .138149E+00,
2227 + .107196E+00, .815985E-01, .607397E-01, .440544E-01,
2228 + .309661E-01, .209822E-01, .135389E-01, .825176E-02,
2229 + .465519E-02, .236562E-02, .103327E-02, .356973E-03,
2230 + .827012E-04, .850265E-05, .000000E+00, .162835E+06,
2231 + .187221E+06, .143698E+06, .110254E+06, .845976E+05,
2232 + .648907E+05, .497782E+05, .381743E+05, .292788E+05,
2233 + .224509E+05, .172183E+05, .132032E+05, .101270E+05 /
2234 DATA (UPDI(I),I=8113,8164) /
2235 + .776714E+04, .595948E+04, .457302E+04, .351108E+04,
2236 + .269663E+04, .207279E+04, .159425E+04, .122759E+04,
2237 + .946215E+03, .730523E+03, .564884E+03, .437786E+03,
2238 + .340057E+03, .264955E+03, .206416E+03, .162053E+03,
2239 + .127786E+03, .101310E+03, .807807E+02, .648500E+02,
2240 + .524643E+02, .427687E+02, .351596E+02, .291713E+02,
2241 + .244247E+02, .206458E+02, .176089E+02, .151566E+02,
2242 + .131514E+02, .114998E+02, .101224E+02, .896337E+01,
2243 + .797651E+01, .713143E+01, .639290E+01, .574991E+01,
2244 + .517813E+01, .467123E+01, .421650E+01, .380618E+01,
2245 + .343353E+01, .309358E+01, .278220E+01, .249636E+01,
2246 + .223364E+01, .199224E+01, .177067E+01, .156768E+01,
2247 + .138223E+01, .121312E+01, .106020E+01, .920927E+00 /
2248 DATA (UPDI(I),I=8165,8216) /
2249 + .795427E+00, .682793E+00, .582209E+00, .492823E+00,
2250 + .413848E+00, .344477E+00, .283987E+00, .231629E+00,
2251 + .186577E+00, .148561E+00, .116346E+00, .895675E-01,
2252 + .676153E-01, .498905E-01, .358479E-01, .249436E-01,
2253 + .167177E-01, .106577E-01, .640943E-02, .356148E-02,
2254 + .177852E-02, .760940E-03, .256510E-03, .579606E-04,
2255 + .601419E-05, .000000E+00, .350253E+06, .270592E+06,
2256 + .206192E+06, .157055E+06, .119619E+06, .910709E+05,
2257 + .693331E+05, .527645E+05, .401550E+05, .305492E+05,
2258 + .232423E+05, .176787E+05, .134486E+05, .102292E+05,
2259 + .778237E+04, .592090E+04, .450653E+04, .343082E+04,
2260 + .261364E+04, .199213E+04, .151993E+04, .116073E+04,
2261 + .887750E+03, .679993E+03, .521975E+03, .401569E+03 /
2262 DATA (UPDI(I),I=8217,8268) /
2263 + .309875E+03, .239063E+03, .185885E+03, .145189E+03,
2264 + .114025E+03, .900817E+02, .716620E+02, .574669E+02,
2265 + .464458E+02, .378677E+02, .311672E+02, .258956E+02,
2266 + .217263E+02, .183975E+02, .157247E+02, .135517E+02,
2267 + .117706E+02, .102929E+02, .905525E+01, .800668E+01,
2268 + .711304E+01, .633598E+01, .566284E+01, .506743E+01,
2269 + .454239E+01, .407409E+01, .365404E+01, .327503E+01,
2270 + .293164E+01, .261942E+01, .233500E+01, .207568E+01,
2271 + .183932E+01, .162415E+01, .142863E+01, .125146E+01,
2272 + .109119E+01, .947437E+00, .817544E+00, .701434E+00,
2273 + .598058E+00, .506479E+00, .425749E+00, .355000E+00,
2274 + .293362E+00, .240063E+00, .194322E+00, .155299E+00,
2275 + .122662E+00, .952550E-01, .726884E-01, .543695E-01 /
2276 DATA (UPDI(I),I=8269,8320) /
2277 + .397295E-01, .282544E-01, .194438E-01, .128782E-01,
2278 + .810435E-02, .480524E-02, .262817E-02, .128917E-02,
2279 + .540349E-03, .177962E-03, .393500E-04, .411743E-05,
2280 + .000000E+00, .495722E+06, .380805E+06, .288269E+06,
2281 + .218114E+06, .165006E+06, .124770E+06, .943315E+05,
2282 + .712864E+05, .538649E+05, .406843E+05, .307267E+05,
2283 + .231983E+05, .175143E+05, .132198E+05, .997942E+04,
2284 + .753256E+04, .568721E+04, .429446E+04, .324450E+04,
2285 + .245223E+04, .185501E+04, .140439E+04, .106469E+04,
2286 + .808298E+03, .614899E+03, .468777E+03, .358446E+03,
2287 + .273980E+03, .211093E+03, .163386E+03, .127163E+03,
2288 + .995737E+02, .785250E+02, .624399E+02, .500500E+02,
2289 + .404825E+02, .330636E+02, .272684E+02, .227146E+02 /
2290 DATA (UPDI(I),I=8321,8372) /
2291 + .191017E+02, .162169E+02, .138844E+02, .119820E+02,
2292 + .104114E+02, .910214E+01, .799816E+01, .706167E+01,
2293 + .625132E+01, .555279E+01, .493811E+01, .439890E+01,
2294 + .392068E+01, .349423E+01, .311188E+01, .276777E+01,
2295 + .245712E+01, .217622E+01, .192207E+01, .169221E+01,
2296 + .148461E+01, .129745E+01, .112919E+01, .978160E+00,
2297 + .843747E+00, .723243E+00, .616367E+00, .521960E+00,
2298 + .438985E+00, .366421E+00, .303339E+00, .248829E+00,
2299 + .202085E+00, .162312E+00, .128671E+00, .100786E+00,
2300 + .775851E-01, .586647E-01, .434591E-01, .314344E-01,
2301 + .221129E-01, .150394E-01, .983524E-02, .610320E-02,
2302 + .356295E-02, .191481E-02, .920508E-03, .376823E-03,
2303 + .120748E-03, .260030E-04, .274905E-05, .000000E+00 /
2304 DATA (UPDI(I),I=8373,8424) /
2305 + .685024E+06, .523477E+06, .393861E+06, .296177E+06,
2306 + .222665E+06, .167306E+06, .125680E+06, .943600E+05,
2307 + .708294E+05, .531400E+05, .398611E+05, .298872E+05,
2308 + .224062E+05, .167919E+05, .125841E+05, .942878E+04,
2309 + .706560E+04, .529473E+04, .396925E+04, .297642E+04,
2310 + .223353E+04, .167722E+04, .126104E+04, .949362E+03,
2311 + .716092E+03, .541243E+03, .410287E+03, .310850E+03,
2312 + .237422E+03, .182178E+03, .140572E+03, .109143E+03,
2313 + .853557E+02, .673230E+02, .535385E+02, .429745E+02,
2314 + .348404E+02, .285302E+02, .236026E+02, .197167E+02,
2315 + .166308E+02, .141489E+02, .121343E+02, .104791E+02,
2316 + .910555E+01, .795269E+01, .697921E+01, .614082E+01,
2317 + .542160E+01, .479193E+01, .424243E+01, .375778E+01 /
2318 DATA (UPDI(I),I=8425,8476) /
2319 + .332809E+01, .294525E+01, .260295E+01, .229608E+01,
2320 + .202060E+01, .177320E+01, .155114E+01, .135211E+01,
2321 + .117405E+01, .101521E+01, .873702E+00, .748729E+00,
2322 + .637546E+00, .539695E+00, .453928E+00, .379134E+00,
2323 + .314238E+00, .258270E+00, .210299E+00, .169502E+00,
2324 + .135083E+00, .106219E+00, .825064E-01, .629579E-01,
2325 + .471686E-01, .346057E-01, .247751E-01, .172383E-01,
2326 + .115861E-01, .748054E-02, .457690E-02, .263042E-02,
2327 + .138886E-02, .654228E-03, .261531E-03, .815345E-04,
2328 + .171061E-04, .182749E-05, .000000E+00, .927052E+06,
2329 + .704968E+06, .527381E+06, .394291E+06, .294690E+06,
2330 + .220110E+06, .164351E+06, .122641E+06, .914871E+05,
2331 + .682071E+05, .508363E+05, .378691E+05, .282030E+05 /
2332 DATA (UPDI(I),I=8477,8528) /
2333 + .209946E+05, .156265E+05, .116272E+05, .865156E+04,
2334 + .643672E+04, .479011E+04, .356529E+04, .265520E+04,
2335 + .197856E+04, .147598E+04, .110237E+04, .824820E+03,
2336 + .618344E+03, .464888E+03, .349271E+03, .264561E+03,
2337 + .201329E+03, .154077E+03, .118662E+03, .920616E+02,
2338 + .720509E+02, .568660E+02, .453127E+02, .364770E+02,
2339 + .296676E+02, .243821E+02, .202381E+02, .169645E+02,
2340 + .143449E+02, .122284E+02, .104975E+02, .906737E+01,
2341 + .787246E+01, .686795E+01, .600684E+01, .527163E+01,
2342 + .463117E+01, .407512E+01, .358740E+01, .315746E+01,
2343 + .277677E+01, .243858E+01, .213748E+01, .186907E+01,
2344 + .162978E+01, .141658E+01, .122692E+01, .105852E+01,
2345 + .909409E+00, .777569E+00, .662005E+00, .559968E+00 /
2346 DATA (UPDI(I),I=8529,8580) /
2347 + .470846E+00, .393328E+00, .326248E+00, .268499E+00,
2348 + .219088E+00, .177078E+00, .141643E+00, .111999E+00,
2349 + .873525E-01, .672836E-01, .508907E-01, .377769E-01,
2350 + .274468E-01, .194481E-01, .133834E-01, .888875E-02,
2351 + .566560E-02, .341757E-02, .193347E-02, .100291E-02,
2352 + .462902E-03, .180723E-03, .548406E-04, .112219E-04,
2353 + .121129E-05, .000000E+00, .123140E+07, .932081E+06,
2354 + .693493E+06, .515638E+06, .383237E+06, .284635E+06,
2355 + .211314E+06, .156772E+06, .116260E+06, .861593E+05,
2356 + .638270E+05, .472537E+05, .349718E+05, .258680E+05,
2357 + .191291E+05, .141399E+05, .104507E+05, .772236E+04,
2358 + .570701E+04, .421778E+04, .311857E+04, .230687E+04,
2359 + .170811E+04, .126612E+04, .940090E+03, .699288E+03 /
2360 DATA (UPDI(I),I=8581,8632) /
2361 + .521634E+03, .388778E+03, .292162E+03, .220584E+03,
2362 + .167491E+03, .127998E+03, .985506E+02, .765600E+02,
2363 + .599893E+02, .474687E+02, .379553E+02, .306695E+02,
2364 + .250468E+02, .206627E+02, .172168E+02, .144727E+02,
2365 + .122654E+02, .104683E+02, .898984E+01, .775985E+01,
2366 + .673037E+01, .585182E+01, .510525E+01, .445809E+01,
2367 + .389910E+01, .341147E+01, .298408E+01, .260796E+01,
2368 + .227597E+01, .198238E+01, .172248E+01, .149243E+01,
2369 + .128895E+01, .110925E+01, .950871E+00, .811668E+00,
2370 + .689492E+00, .583191E+00, .490032E+00, .409276E+00,
2371 + .339566E+00, .279702E+00, .228566E+00, .185156E+00,
2372 + .148543E+00, .117914E+00, .925051E-01, .715595E-01,
2373 + .546554E-01, .409741E-01, .301342E-01, .216806E-01 /
2374 DATA (UPDI(I),I=8633,8684) /
2375 + .152037E-01, .103471E-01, .679037E-02, .427244E-02,
2376 + .254066E-02, .141482E-02, .720913E-03, .326031E-03,
2377 + .124327E-03, .367392E-04, .734104E-05, .800455E-06,
2378 + .000000E+00, .160815E+07, .121189E+07, .896983E+06,
2379 + .663438E+06, .490459E+06, .362307E+06, .267506E+06,
2380 + .197361E+06, .145536E+06, .107240E+06, .789833E+05,
2381 + .581307E+05, .427644E+05, .314400E+05, .231059E+05,
2382 + .169722E+05, .124639E+05, .915009E+04, .671736E+04,
2383 + .493105E+04, .362094E+04, .265982E+04, .195548E+04,
2384 + .143905E+04, .106067E+04, .783137E+03, .579821E+03,
2385 + .428853E+03, .319850E+03, .239675E+03, .180628E+03,
2386 + .137021E+03, .104734E+03, .807907E+02, .628697E+02,
2387 + .494179E+02, .392602E+02, .315273E+02, .255924E+02 /
2388 DATA (UPDI(I),I=8685,8736) /
2389 + .209890E+02, .173881E+02, .145337E+02, .122475E+02,
2390 + .103941E+02, .887552E+01, .761751E+01, .656906E+01,
2391 + .567830E+01, .492486E+01, .427494E+01, .371643E+01,
2392 + .323188E+01, .280961E+01, .244025E+01, .211631E+01,
2393 + .183174E+01, .158155E+01, .136165E+01, .116853E+01,
2394 + .999216E+00, .851067E+00, .721801E+00, .609170E+00,
2395 + .511889E+00, .427265E+00, .354453E+00, .292072E+00,
2396 + .238910E+00, .193847E+00, .155892E+00, .124136E+00,
2397 + .977861E-01, .761102E-01, .583942E-01, .442230E-01,
2398 + .328588E-01, .239410E-01, .170559E-01, .118363E-01,
2399 + .796592E-02, .516513E-02, .320779E-02, .188036E-02,
2400 + .103060E-02, .515832E-03, .228572E-03, .851467E-04,
2401 + .245142E-04, .478841E-05, .527332E-06, .000000E+00 /
2402 DATA (UPDI(I),I=8737,8788) /
2403 + .206759E+07, .155153E+07, .114261E+07, .840841E+06,
2404 + .618419E+06, .454463E+06, .333782E+06, .244946E+06,
2405 + .179648E+06, .131651E+06, .964218E+05, .705645E+05,
2406 + .516133E+05, .377245E+05, .275601E+05, .201221E+05,
2407 + .146865E+05, .107146E+05, .781597E+04, .570050E+04,
2408 + .415846E+04, .303427E+04, .221563E+04, .161926E+04,
2409 + .118515E+04, .868837E+03, .638683E+03, .468950E+03,
2410 + .347239E+03, .258333E+03, .193303E+03, .145607E+03,
2411 + .110529E+03, .846899E+02, .654737E+02, .511400E+02,
2412 + .403801E+02, .322351E+02, .260165E+02, .212170E+02,
2413 + .174796E+02, .145301E+02, .121772E+02, .102775E+02,
2414 + .872725E+01, .744823E+01, .638675E+01, .548885E+01,
2415 + .473287E+01, .408395E+01, .352913E+01, .305040E+01 /
2416 DATA (UPDI(I),I=8789,8840) /
2417 + .263559E+01, .227496E+01, .196067E+01, .168640E+01,
2418 + .144689E+01, .123785E+01, .105555E+01, .896858E+00,
2419 + .758997E+00, .639573E+00, .536263E+00, .447680E+00,
2420 + .371186E+00, .305854E+00, .250302E+00, .203315E+00,
2421 + .163793E+00, .130764E+00, .103349E+00, .807864E-01,
2422 + .623812E-01, .474665E-01, .356418E-01, .262463E-01,
2423 + .189442E-01, .133631E-01, .917666E-02, .610696E-02,
2424 + .391210E-02, .239797E-02, .138550E-02, .747349E-03,
2425 + .367408E-03, .159514E-03, .580560E-04, .162925E-04,
2426 + .311438E-05, .346331E-06, .000000E+00, .261988E+07,
2427 + .195796E+07, .143494E+07, .105080E+07, .769010E+06,
2428 + .562299E+06, .410882E+06, .299975E+06, .218859E+06,
2429 + .159538E+06, .116218E+06, .845892E+05, .615289E+05 /
2430 DATA (UPDI(I),I=8841,8892) /
2431 + .447195E+05, .324838E+05, .235795E+05, .171084E+05,
2432 + .124067E+05, .899510E+04, .651982E+04, .472614E+04,
2433 + .342638E+04, .248565E+04, .180459E+04, .131195E+04,
2434 + .955258E+03, .697418E+03, .508510E+03, .373944E+03,
2435 + .276298E+03, .205342E+03, .153642E+03, .115863E+03,
2436 + .882124E+02, .677741E+02, .526197E+02, .413074E+02,
2437 + .327899E+02, .263190E+02, .213481E+02, .174939E+02,
2438 + .144646E+02, .120575E+02, .101218E+02, .854812E+01,
2439 + .725496E+01, .618620E+01, .528604E+01, .453165E+01,
2440 + .388723E+01, .333909E+01, .286870E+01, .246344E+01,
2441 + .211325E+01, .180997E+01, .154704E+01, .131899E+01,
2442 + .112130E+01, .950106E+00, .802127E+00, .674483E+00,
2443 + .564696E+00, .470399E+00, .390125E+00, .321310E+00 /
2444 DATA (UPDI(I),I=8893,8944) /
2445 + .262968E+00, .213728E+00, .172393E+00, .137891E+00,
2446 + .109281E+00, .857230E-01, .664914E-01, .509347E-01,
2447 + .384360E-01, .286145E-01, .208824E-01, .149309E-01,
2448 + .104277E-01, .708557E-02, .466238E-02, .295054E-02,
2449 + .178490E-02, .101642E-02, .539538E-03, .260516E-03,
2450 + .110821E-03, .394138E-04, .107868E-04, .201988E-05,
2451 + .226771E-06, .000000E+00, .236753E+05, .259639E+05,
2452 + .207469E+05, .165795E+05, .132506E+05, .105914E+05,
2453 + .846709E+04, .676991E+04, .541390E+04, .433039E+04,
2454 + .346454E+04, .277256E+04, .221947E+04, .177734E+04,
2455 + .142386E+04, .114120E+04, .915149E+03, .734322E+03,
2456 + .589644E+03, .473859E+03, .381172E+03, .306952E+03,
2457 + .247499E+03, .199858E+03, .161665E+03, .131031E+03 /
2458 DATA (UPDI(I),I=8945,8996) /
2459 + .106448E+03, .864575E+02, .706504E+02, .579368E+02,
2460 + .477019E+02, .394534E+02, .327972E+02, .274321E+02,
2461 + .230763E+02, .195425E+02, .166673E+02, .143194E+02,
2462 + .123933E+02, .108039E+02, .948566E+01, .838202E+01,
2463 + .745037E+01, .665623E+01, .597223E+01, .537671E+01,
2464 + .485430E+01, .438640E+01, .396809E+01, .358595E+01,
2465 + .323760E+01, .291710E+01, .262146E+01, .234877E+01,
2466 + .209786E+01, .186789E+01, .165804E+01, .146738E+01,
2467 + .129478E+01, .113899E+01, .998709E+00, .872636E+00,
2468 + .759540E+00, .658720E+00, .568094E+00, .487368E+00,
2469 + .415681E+00, .352253E+00, .296369E+00, .247374E+00,
2470 + .204663E+00, .167668E+00, .135842E+00, .108667E+00,
2471 + .858912E-01, .667285E-01, .509257E-01, .380756E-01 /
2472 DATA (UPDI(I),I=8997,9048) /
2473 + .277966E-01, .197311E-01, .135453E-01, .893639E-02,
2474 + .559555E-02, .329419E-02, .178457E-02, .863058E-03,
2475 + .354157E-03, .112103E-03, .220987E-04, .136834E-05,
2476 + .000000E+00, .288272E+05, .417411E+05, .330782E+05,
2477 + .262083E+05, .207691E+05, .164562E+05, .130417E+05,
2478 + .103344E+05, .819105E+04, .649165E+04, .514633E+04,
2479 + .407966E+04, .323523E+04, .256568E+04, .203561E+04,
2480 + .161528E+04, .128249E+04, .101855E+04, .809551E+03,
2481 + .643755E+03, .512431E+03, .408219E+03, .325639E+03,
2482 + .260073E+03, .208084E+03, .166779E+03, .133991E+03,
2483 + .107592E+03, .869449E+02, .704928E+02, .573939E+02,
2484 + .469321E+02, .385805E+02, .319055E+02, .265416E+02,
2485 + .222240E+02, .187443E+02, .159228E+02, .136284E+02 /
2486 DATA (UPDI(I),I=9049,9100) /
2487 + .117473E+02, .101998E+02, .891224E+01, .783425E+01,
2488 + .692136E+01, .614191E+01, .546854E+01, .488363E+01,
2489 + .436483E+01, .390637E+01, .349255E+01, .312053E+01,
2490 + .278302E+01, .247636E+01, .219761E+01, .194481E+01,
2491 + .171618E+01, .151019E+01, .132518E+01, .115952E+01,
2492 + .101152E+01, .879571E+00, .762158E+00, .657809E+00,
2493 + .565689E+00, .483674E+00, .411339E+00, .347735E+00,
2494 + .292028E+00, .243445E+00, .201298E+00, .164939E+00,
2495 + .133791E+00, .107298E+00, .849276E-01, .663990E-01,
2496 + .509980E-01, .384549E-01, .283903E-01, .204714E-01,
2497 + .143466E-01, .971261E-02, .631340E-02, .388880E-02,
2498 + .224902E-02, .119433E-02, .564935E-03, .225940E-03,
2499 + .694962E-04, .133493E-04, .842216E-06, .000000E+00 /
2500 DATA (UPDI(I),I=9101,9152) /
2501 + .793159E+05, .629157E+05, .494076E+05, .387916E+05,
2502 + .304617E+05, .239162E+05, .187806E+05, .147456E+05,
2503 + .115800E+05, .909289E+04, .714183E+04, .560902E+04,
2504 + .440663E+04, .346200E+04, .272101E+04, .213885E+04,
2505 + .168216E+04, .132333E+04, .104181E+04, .820563E+03,
2506 + .646938E+03, .510440E+03, .403281E+03, .318993E+03,
2507 + .252778E+03, .200657E+03, .159664E+03, .126966E+03,
2508 + .101626E+03, .816157E+02, .658255E+02, .533243E+02,
2509 + .434300E+02, .355877E+02, .293370E+02, .243448E+02,
2510 + .203519E+02, .171375E+02, .145421E+02, .124283E+02,
2511 + .107008E+02, .927256E+01, .808447E+01, .708469E+01,
2512 + .623666E+01, .550900E+01, .488145E+01, .432906E+01,
2513 + .384489E+01, .341167E+01, .302585E+01, .267922E+01 /
2514 DATA (UPDI(I),I=9153,9204) /
2515 + .236739E+01, .208673E+01, .183461E+01, .160868E+01,
2516 + .140682E+01, .122697E+01, .106712E+01, .925345E+00,
2517 + .799820E+00, .688903E+00, .590980E+00, .505130E+00,
2518 + .429217E+00, .362735E+00, .304689E+00, .254217E+00,
2519 + .210521E+00, .172896E+00, .140682E+00, .113301E+00,
2520 + .902017E-01, .708524E-01, .549613E-01, .418678E-01,
2521 + .313000E-01, .229052E-01, .163692E-01, .113597E-01,
2522 + .760947E-02, .489091E-02, .297546E-02, .169771E-02,
2523 + .887985E-03, .412926E-03, .161896E-03, .486796E-04,
2524 + .915400E-05, .586584E-06, .000000E+00, .118108E+06,
2525 + .929766E+05, .723896E+05, .563468E+05, .438651E+05,
2526 + .341405E+05, .265759E+05, .206832E+05, .161000E+05,
2527 + .125303E+05, .975430E+04, .759243E+04, .591139E+04 /
2528 DATA (UPDI(I),I=9205,9256) /
2529 + .460237E+04, .358457E+04, .279205E+04, .217586E+04,
2530 + .169604E+04, .132294E+04, .103238E+04, .806392E+03,
2531 + .630339E+03, .493369E+03, .386611E+03, .303497E+03,
2532 + .238663E+03, .188132E+03, .148190E+03, .117512E+03,
2533 + .935019E+02, .747196E+02, .599782E+02, .484089E+02,
2534 + .393152E+02, .321250E+02, .264278E+02, .219053E+02,
2535 + .182915E+02, .153938E+02, .130501E+02, .111472E+02,
2536 + .958410E+01, .829204E+01, .721167E+01, .630111E+01,
2537 + .552492E+01, .486007E+01, .427901E+01, .377355E+01,
2538 + .332492E+01, .292872E+01, .257589E+01, .226128E+01,
2539 + .198063E+01, .173065E+01, .150846E+01, .131146E+01,
2540 + .113721E+01, .983402E+00, .847897E+00, .728698E+00,
2541 + .624056E+00, .532252E+00, .452285E+00, .382033E+00 /
2542 DATA (UPDI(I),I=9257,9308) /
2543 + .320916E+00, .267910E+00, .222136E+00, .182782E+00,
2544 + .149136E+00, .120537E+00, .964096E-01, .762125E-01,
2545 + .594243E-01, .457482E-01, .345742E-01, .256339E-01,
2546 + .185966E-01, .131598E-01, .903997E-02, .598919E-02,
2547 + .380421E-02, .228420E-02, .128458E-02, .660949E-03,
2548 + .301630E-03, .115656E-03, .338782E-04, .621249E-05,
2549 + .405434E-06, .000000E+00, .170903E+06, .133637E+06,
2550 + .103253E+06, .797528E+05, .616058E+05, .475741E+05,
2551 + .367419E+05, .283686E+05, .219062E+05, .169120E+05,
2552 + .130586E+05, .100814E+05, .778467E+04, .601060E+04,
2553 + .464227E+04, .358549E+04, .277050E+04, .214113E+04,
2554 + .165578E+04, .128094E+04, .991831E+03, .768504E+03,
2555 + .596213E+03, .463069E+03, .360288E+03, .280794E+03 /
2556 DATA (UPDI(I),I=9309,9360) /
2557 + .219364E+03, .171227E+03, .134567E+03, .106120E+03,
2558 + .840519E+02, .668764E+02, .535060E+02, .430818E+02,
2559 + .349037E+02, .284741E+02, .234078E+02, .193890E+02,
2560 + .161889E+02, .136181E+02, .115444E+02, .985202E+01,
2561 + .846168E+01, .730644E+01, .633879E+01, .551920E+01,
2562 + .482172E+01, .421629E+01, .369338E+01, .323274E+01,
2563 + .282910E+01, .247255E+01, .215721E+01, .187816E+01,
2564 + .163156E+01, .141400E+01, .122247E+01, .105420E+01,
2565 + .906622E+00, .777426E+00, .664476E+00, .565929E+00,
2566 + .479989E+00, .405591E+00, .340635E+00, .284483E+00,
2567 + .236095E+00, .194582E+00, .159127E+00, .129021E+00,
2568 + .103607E+00, .823205E-01, .646329E-01, .500391E-01,
2569 + .382428E-01, .286820E-01, .210964E-01, .151783E-01 /
2570 DATA (UPDI(I),I=9361,9412) /
2571 + .106459E-01, .724441E-02, .475111E-02, .298528E-02,
2572 + .177132E-02, .983358E-03, .498751E-03, .224015E-03,
2573 + .843808E-04, .242640E-04, .439765E-05, .293855E-06,
2574 + .000000E+00, .162881E+06, .187023E+06, .143521E+06,
2575 + .110095E+06, .844557E+05, .647637E+05, .496646E+05,
2576 + .380728E+05, .291880E+05, .223698E+05, .171458E+05,
2577 + .131385E+05, .100692E+05, .771559E+04, .591348E+04,
2578 + .453199E+04, .347449E+04, .266401E+04, .204371E+04,
2579 + .156833E+04, .120450E+04, .925633E+03, .712176E+03,
2580 + .548527E+03, .423194E+03, .327030E+03, .253315E+03,
2581 + .196020E+03, .152737E+03, .119423E+03, .937830E+02,
2582 + .739880E+02, .586984E+02, .468714E+02, .376627E+02,
2583 + .304775E+02, .248565E+02, .204296E+02, .169283E+02 /
2584 DATA (UPDI(I),I=9413,9464) /
2585 + .141345E+02, .118952E+02, .100793E+02, .859640E+01,
2586 + .737188E+01, .635233E+01, .549412E+01, .476834E+01,
2587 + .414244E+01, .360550E+01, .313587E+01, .272735E+01,
2588 + .236922E+01, .205487E+01, .177879E+01, .153658E+01,
2589 + .132438E+01, .113881E+01, .976822E+00, .835621E+00,
2590 + .712745E+00, .605955E+00, .513330E+00, .433023E+00,
2591 + .363914E+00, .303936E+00, .252404E+00, .208271E+00,
2592 + .170648E+00, .138722E+00, .111790E+00, .892076E-01,
2593 + .704232E-01, .549263E-01, .422316E-01, .320475E-01,
2594 + .238575E-01, .174124E-01, .124267E-01, .864104E-02,
2595 + .582632E-02, .378356E-02, .235240E-02, .137978E-02,
2596 + .756422E-03, .378339E-03, .167325E-03, .619495E-04,
2597 + .174960E-04, .313191E-05, .214514E-06, .000000E+00 /
2598 DATA (UPDI(I),I=9465,9516) /
2599 + .350011E+06, .270375E+06, .205998E+06, .156881E+06,
2600 + .119464E+06, .909323E+05, .692091E+05, .526537E+05,
2601 + .400560E+05, .304607E+05, .231633E+05, .176082E+05,
2602 + .133857E+05, .101731E+05, .773229E+04, .587624E+04,
2603 + .446672E+04, .339534E+04, .258201E+04, .196394E+04,
2604 + .149481E+04, .113835E+04, .867796E+03, .662201E+03,
2605 + .506102E+03, .387395E+03, .297209E+03, .227749E+03,
2606 + .175745E+03, .136086E+03, .105833E+03, .826911E+02,
2607 + .649728E+02, .513908E+02, .409062E+02, .327971E+02,
2608 + .265055E+02, .215919E+02, .177359E+02, .146833E+02,
2609 + .122545E+02, .102995E+02, .871418E+01, .741450E+01,
2610 + .633981E+01, .544169E+01, .468756E+01, .404208E+01,
2611 + .349258E+01, .301583E+01, .260452E+01, .224699E+01 /
2612 DATA (UPDI(I),I=9517,9568) /
2613 + .193579E+01, .166476E+01, .142889E+01, .122386E+01,
2614 + .104588E+01, .891634E+00, .758110E+00, .642705E+00,
2615 + .543081E+00, .457252E+00, .383328E+00, .320143E+00,
2616 + .265682E+00, .219215E+00, .179701E+00, .146258E+00,
2617 + .118087E+00, .944991E-01, .748722E-01, .586740E-01,
2618 + .454186E-01, .346485E-01, .260818E-01, .192531E-01,
2619 + .139288E-01, .984920E-02, .678171E-02, .452494E-02,
2620 + .290548E-02, .178465E-02, .103286E-02, .557921E-03,
2621 + .274433E-03, .119063E-03, .430932E-04, .118459E-04,
2622 + .205983E-05, .141754E-06, .000000E+00, .495458E+06,
2623 + .380568E+06, .288057E+06, .217925E+06, .164837E+06,
2624 + .124619E+06, .941964E+05, .711657E+05, .537571E+05,
2625 + .405880E+05, .306407E+05, .231216E+05, .174459E+05 /
2626 DATA (UPDI(I),I=9569,9620) /
2627 + .131588E+05, .992500E+04, .748406E+04, .564398E+04,
2628 + .425593E+04, .321016E+04, .242163E+04, .182776E+04,
2629 + .138010E+04, .104304E+04, .788995E+03, .597678E+03,
2630 + .453400E+03, .344705E+03, .261707E+03, .200096E+03,
2631 + .153516E+03, .118285E+03, .915696E+02, .712874E+02,
2632 + .558739E+02, .440737E+02, .350238E+02, .280583E+02,
2633 + .226620E+02, .184592E+02, .151575E+02, .125490E+02,
2634 + .104645E+02, .878569E+01, .741885E+01, .629620E+01,
2635 + .536447E+01, .458751E+01, .392727E+01, .336933E+01,
2636 + .288901E+01, .247785E+01, .212332E+01, .181720E+01,
2637 + .155271E+01, .132430E+01, .112724E+01, .957407E+00,
2638 + .811237E+00, .685563E+00, .577668E+00, .485144E+00,
2639 + .405960E+00, .338208E+00, .280688E+00, .231447E+00 /
2640 DATA (UPDI(I),I=9621,9672) /
2641 + .189726E+00, .154498E+00, .124897E+00, .100145E+00,
2642 + .795753E-01, .625912E-01, .486846E-01, .373973E-01,
2643 + .283018E-01, .211295E-01, .154634E-01, .110868E-01,
2644 + .776589E-02, .529374E-02, .349449E-02, .221819E-02,
2645 + .134582E-02, .768476E-03, .409056E-03, .197965E-03,
2646 + .843494E-04, .299248E-04, .805519E-05, .137908E-05,
2647 + .974546E-07, .000000E+00, .684736E+06, .523219E+06,
2648 + .393631E+06, .295971E+06, .222481E+06, .167141E+06,
2649 + .125533E+06, .942287E+05, .707122E+05, .530354E+05,
2650 + .397678E+05, .298040E+05, .223320E+05, .167257E+05,
2651 + .125251E+05, .937618E+04, .701873E+04, .525297E+04,
2652 + .393205E+04, .294328E+04, .220401E+04, .165092E+04,
2653 + .123760E+04, .928469E+03, .697455E+03, .524604E+03 /
2654 DATA (UPDI(I),I=9673,9724) /
2655 + .395423E+03, .297578E+03, .225535E+03, .171515E+03,
2656 + .130988E+03, .100510E+03, .775592E+02, .602610E+02,
2657 + .471233E+02, .371287E+02, .294954E+02, .236274E+02,
2658 + .190908E+02, .155528E+02, .127770E+02, .105741E+02,
2659 + .881150E+01, .738610E+01, .622295E+01, .526404E+01,
2660 + .446978E+01, .379951E+01, .323714E+01, .275660E+01,
2661 + .234834E+01, .199905E+01, .169975E+01, .144313E+01,
2662 + .122315E+01, .103474E+01, .873481E+00, .735638E+00,
2663 + .617911E+00, .517503E+00, .431964E+00, .359238E+00,
2664 + .297420E+00, .245286E+00, .200960E+00, .163662E+00,
2665 + .132391E+00, .106302E+00, .846463E-01, .667842E-01,
2666 + .521487E-01, .402595E-01, .306879E-01, .230386E-01,
2667 + .170586E-01, .123765E-01, .879378E-02, .610154E-02 /
2668 DATA (UPDI(I),I=9725,9776) /
2669 + .411745E-02, .268896E-02, .168732E-02, .101117E-02,
2670 + .569663E-03, .298811E-03, .142291E-03, .595534E-04,
2671 + .207195E-04, .546713E-05, .923525E-06, .670928E-07,
2672 + .000000E+00, .926738E+06, .704688E+06, .527130E+06,
2673 + .394067E+06, .294489E+06, .219931E+06, .164191E+06,
2674 + .122498E+06, .913599E+05, .680936E+05, .507351E+05,
2675 + .377789E+05, .281225E+05, .209229E+05, .155625E+05,
2676 + .115702E+05, .860083E+04, .639154E+04, .474988E+04,
2677 + .352946E+04, .262329E+04, .195013E+04, .145066E+04,
2678 + .107981E+04, .804698E+03, .600386E+03, .448852E+03,
2679 + .334960E+03, .251751E+03, .189848E+03, .143767E+03,
2680 + .109386E+03, .836974E+02, .644883E+02, .500112E+02,
2681 + .390826E+02, .307980E+02, .244765E+02, .196238E+02 /
2682 DATA (UPDI(I),I=9777,9828) /
2683 + .158659E+02, .129372E+02, .106284E+02, .879287E+01,
2684 + .731802E+01, .612209E+01, .514251E+01, .433640E+01,
2685 + .366070E+01, .309771E+01, .262008E+01, .221726E+01,
2686 + .187517E+01, .158422E+01, .133659E+01, .112584E+01,
2687 + .946596E+00, .794229E+00, .664850E+00, .555076E+00,
2688 + .462059E+00, .383331E+00, .316831E+00, .260674E+00,
2689 + .213629E+00, .173900E+00, .140700E+00, .113060E+00,
2690 + .901657E-01, .713002E-01, .558553E-01, .432973E-01,
2691 + .331758E-01, .250935E-01, .186875E-01, .137227E-01,
2692 + .987009E-02, .694963E-02, .477623E-02, .319063E-02,
2693 + .206135E-02, .127865E-02, .756849E-03, .420683E-03,
2694 + .217454E-03, .101896E-03, .418979E-04, .143001E-04,
2695 + .370089E-05, .617227E-06, .460693E-07, .000000E+00 /
2696 DATA (UPDI(I),I=9829,9880) /
2697 + .123106E+07, .931776E+06, .693220E+06, .515394E+06,
2698 + .383020E+06, .284441E+06, .211141E+06, .156618E+06,
2699 + .116122E+06, .860363E+05, .637173E+05, .471559E+05,
2700 + .348847E+05, .257904E+05, .190600E+05, .140783E+05,
2701 + .103959E+05, .767356E+04, .566356E+04, .417910E+04,
2702 + .308413E+04, .227621E+04, .168081E+04, .124180E+04,
2703 + .918411E+03, .679951E+03, .504377E+03, .373388E+03,
2704 + .278399E+03, .208260E+03, .156438E+03, .118068E+03,
2705 + .896117E+02, .684942E+02, .526961E+02, .408587E+02,
2706 + .319493E+02, .251995E+02, .200533E+02, .160948E+02,
2707 + .130297E+02, .106287E+02, .873164E+01, .721679E+01,
2708 + .599592E+01, .500214E+01, .418952E+01, .351278E+01,
2709 + .295274E+01, .248090E+01, .208578E+01, .175266E+01 /
2710 DATA (UPDI(I),I=9881,9932) /
2711 + .147135E+01, .123364E+01, .103274E+01, .863036E+00,
2712 + .719741E+00, .598862E+00, .496962E+00, .411174E+00,
2713 + .339032E+00, .278490E+00, .227697E+00, .185427E+00,
2714 + .149971E+00, .120546E+00, .962199E-01, .762139E-01,
2715 + .598489E-01, .465509E-01, .358211E-01, .272411E-01,
2716 + .204452E-01, .151033E-01, .109988E-01, .784225E-02,
2717 + .547177E-02, .372470E-02, .246303E-02, .157416E-02,
2718 + .965223E-03, .564293E-03, .309457E-03, .157637E-03,
2719 + .726922E-04, .293701E-04, .983737E-05, .249841E-05,
2720 + .411589E-06, .315390E-07, .000000E+00, .160778E+07,
2721 + .121156E+07, .896687E+06, .663174E+06, .490223E+06,
2722 + .362097E+06, .267318E+06, .197193E+06, .145387E+06,
2723 + .107107E+06, .788646E+05, .580250E+05, .426702E+05 /
2724 DATA (UPDI(I),I=9933,9984) /
2725 + .313561E+05, .230313E+05, .169057E+05, .124047E+05,
2726 + .909745E+04, .667051E+04, .488937E+04, .358385E+04,
2727 + .262680E+04, .192609E+04, .141289E+04, .103737E+04,
2728 + .762362E+03, .561296E+03, .412346E+03, .305103E+03,
2729 + .226486E+03, .168816E+03, .126427E+03, .952155E+02,
2730 + .722215E+02, .551415E+02, .424345E+02, .329363E+02,
2731 + .257895E+02, .203762E+02, .162392E+02, .130555E+02,
2732 + .105771E+02, .863024E+01, .708500E+01, .584698E+01,
2733 + .484532E+01, .403129E+01, .335768E+01, .280388E+01,
2734 + .234045E+01, .195504E+01, .163237E+01, .136180E+01,
2735 + .113474E+01, .944144E+00, .784219E+00, .650066E+00,
2736 + .537628E+00, .443452E+00, .364673E+00, .298850E+00,
2737 + .243967E+00, .198221E+00, .160402E+00, .128894E+00 /
2738 DATA (UPDI(I),I=9985,10036) /
2739 + .102924E+00, .816054E-01, .641972E-01, .500611E-01,
2740 + .386597E-01, .295307E-01, .222881E-01, .165979E-01,
2741 + .121621E-01, .878323E-02, .620794E-02, .429205E-02,
2742 + .289367E-02, .189408E-02, .119748E-02, .725792E-03,
2743 + .419086E-03, .226750E-03, .113831E-03, .516624E-04,
2744 + .205140E-04, .674528E-05, .168199E-05, .273838E-06,
2745 + .215270E-07, .000000E+00, .206719E+07, .155117E+07,
2746 + .114229E+07, .840555E+06, .618163E+06, .454235E+06,
2747 + .333579E+06, .244765E+06, .179487E+06, .131507E+06,
2748 + .962936E+05, .704504E+05, .515117E+05, .376340E+05,
2749 + .274796E+05, .200504E+05, .146227E+05, .106579E+05,
2750 + .776553E+04, .565564E+04, .411856E+04, .299878E+04,
2751 + .218406E+04, .159117E+04, .116015E+04, .846568E+03 /
2752 DATA (UPDI(I),I=10037,10088) /
2753 + .618843E+03, .451291E+03, .331482E+03, .244260E+03,
2754 + .180719E+03, .134342E+03, .100429E+03, .756195E+02,
2755 + .573161E+02, .437917E+02, .337494E+02, .262423E+02,
2756 + .205918E+02, .163001E+02, .130170E+02, .104761E+02,
2757 + .849160E+01, .692551E+01, .567799E+01, .467453E+01,
2758 + .386392E+01, .319728E+01, .265271E+01, .220002E+01,
2759 + .182606E+01, .151511E+01, .125613E+01, .104027E+01,
2760 + .860285E+00, .710250E+00, .585204E+00, .481069E+00,
2761 + .394402E+00, .322363E+00, .262558E+00, .213013E+00,
2762 + .171983E+00, .138288E+00, .110405E+00, .875794E-01,
2763 + .689734E-01, .538885E-01, .417284E-01, .319937E-01,
2764 + .242590E-01, .181707E-01, .134262E-01, .975820E-02,
2765 + .698834E-02, .489611E-02, .335414E-02, .223959E-02 /
2766 DATA (UPDI(I),I=10089,10140) /
2767 + .145102E-02, .907445E-03, .543651E-03, .310040E-03,
2768 + .165506E-03, .818849E-04, .365797E-04, .142776E-04,
2769 + .461031E-05, .112928E-05, .181785E-06, .146501E-07,
2770 + .000000E+00, .261945E+07, .195757E+07, .143459E+07,
2771 + .105049E+07, .768733E+06, .562052E+06, .410662E+06,
2772 + .299780E+06, .218684E+06, .159382E+06, .116080E+06,
2773 + .844660E+05, .614193E+05, .446220E+05, .323971E+05,
2774 + .235023E+05, .170398E+05, .123457E+05, .894087E+04,
2775 + .647161E+04, .468329E+04, .338830E+04, .245180E+04,
2776 + .177449E+04, .128518E+04, .931438E+03, .676219E+03,
2777 + .489665E+03, .357152E+03, .261324E+03, .191977E+03,
2778 + .141702E+03, .105183E+03, .786454E+02, .591954E+02,
2779 + .449175E+02, .343826E+02, .265565E+02, .207012E+02 /
2780 DATA (UPDI(I),I=10141,10192) /
2781 + .162802E+02, .129173E+02, .103293E+02, .831905E+01,
2782 + .674147E+01, .549176E+01, .449225E+01, .368955E+01,
2783 + .303339E+01, .250074E+01, .206080E+01, .169976E+01,
2784 + .140155E+01, .115482E+01, .950545E+00, .781324E+00,
2785 + .641173E+00, .525110E+00, .429067E+00, .349639E+00,
2786 + .284035E+00, .229919E+00, .185375E+00, .148726E+00,
2787 + .118827E+00, .942513E-01, .742718E-01, .580995E-01,
2788 + .450810E-01, .346633E-01, .263856E-01, .198590E-01,
2789 + .147619E-01, .108221E-01, .780148E-02, .554021E-02,
2790 + .384745E-02, .261156E-02, .172692E-02, .110744E-02,
2791 + .685067E-03, .405678E-03, .228498E-03, .120348E-03,
2792 + .586842E-04, .258064E-04, .990301E-05, .314136E-05,
2793 + .756210E-06, .120417E-06, .994152E-08, .000000E+00 /
2794 C-----------------------------------------------------------------------
2800 Amass(I) = AmassI(I)
2822 QL(Iq) = Log (QL(Iq) /Al)
2825 C Since quark = anti-quark for nfl>2 at this stage,
2826 C we Read out only the non-redundent data points
2827 C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence)
2829 Nblk = (NX+1) * (NT+1)
2830 Npts = Nblk * (NfMx+3)
2836 C ****************************
git://git.uio.no / u / mrichter / AliRoot.git / blob