1 C-----------------------------------------------------------------------
3 Subroutine CTQ5M (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 : CTEQ5M
19 C PARAMETER (ISET = 1)
20 DATA DrI, FlI, AlI / 2., 5., .2260 /
21 DATA (AmassI(I),I=1,6) / .000, .000, .200,
22 + 1.300, 4.500, 180.000 /
23 C DATA NXI, NTI, NfMxI / 90, 13, 5 /
24 DATA QINII, QMAXI, (QLI(I), I =0, NTI) /
25 + .100000E+01, .100000E+05,
26 + .100000E+01, .130000E+01, .167097E+01, .222659E+01, .309171E+01,
27 + .450000E+01, .754288E+01, .138228E+02, .281243E+02, .646894E+02,
28 + .171811E+03, .540159E+03, .206963E+04, .100000E+05 /
29 DATA XMINI, (XVI(I), I =0, NXI) /
31 + .000000E+00, .999983E-05, .124433E-04, .154836E-04, .192668E-04,
32 + .239740E-04, .298310E-04, .371184E-04, .461852E-04, .574656E-04,
33 + .714994E-04, .889575E-04, .110674E-03, .137686E-03, .171280E-03,
34 + .213055E-03, .264997E-03, .329564E-03, .409809E-03, .509508E-03,
35 + .633332E-03, .787053E-03, .977784E-03, .121428E-02, .150728E-02,
36 + .186993E-02, .231825E-02, .288037E-02, .356397E-02, .440443E-02,
37 + .543508E-02, .669508E-02, .822984E-02, .100851E-01, .123281E-01,
38 + .150167E-01, .182174E-01, .219985E-01, .264278E-01, .315720E-01,
39 + .374800E-01, .442088E-01, .517931E-01, .602576E-01, .696136E-01,
40 + .798586E-01, .909356E-01, .102935E+00, .115681E+00, .129293E+00,
41 + .143599E+00, .158606E+00, .174271E+00, .190550E+00, .207405E+00,
42 + .224796E+00, .242685E+00, .261038E+00, .279820E+00, .299001E+00,
43 + .318550E+00, .338442E+00, .358653E+00, .379067E+00, .399881E+00,
44 + .420953E+00, .442266E+00, .463806E+00, .485559E+00, .507513E+00,
45 + .529656E+00, .551978E+00, .574483E+00, .597187E+00, .619860E+00,
46 + .642828E+00, .665921E+00, .689135E+00, .712467E+00, .735911E+00,
47 + .759464E+00, .783080E+00, .806909E+00, .830741E+00, .854673E+00,
48 + .878696E+00, .902804E+00, .926992E+00, .951257E+00, .975603E+00,
50 C Parton Distribution Table:
51 DATA (UPDI(I),I=1,52) /
52 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
53 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
54 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
55 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
56 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
57 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
58 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
59 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
60 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
61 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
62 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
63 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
64 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
65 DATA (UPDI(I),I=53,104) /
66 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
67 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
68 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
69 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
70 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
71 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
72 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
73 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
74 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
75 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
76 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
77 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
78 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
79 DATA (UPDI(I),I=105,156) /
80 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
81 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
82 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
83 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
84 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
85 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
86 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
87 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
88 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
89 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
90 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
91 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
92 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
93 DATA (UPDI(I),I=157,208) /
94 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
95 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
96 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
97 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
98 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
99 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
100 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
101 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
102 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
103 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
104 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
105 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
106 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
107 DATA (UPDI(I),I=209,260) /
108 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
109 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
110 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
111 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
112 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
113 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
114 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
115 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
116 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
117 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
118 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
119 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
120 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
121 DATA (UPDI(I),I=261,312) /
122 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
123 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
124 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
125 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
126 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
127 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
128 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
129 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
130 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
131 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
132 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
133 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
134 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
135 DATA (UPDI(I),I=313,364) /
136 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
137 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
138 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
139 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
140 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
141 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
142 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
143 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
144 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
145 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
146 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
147 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
148 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
149 DATA (UPDI(I),I=365,416) /
150 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
151 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
152 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
153 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
154 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
155 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
156 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
157 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
158 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
159 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
160 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
161 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
162 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
163 DATA (UPDI(I),I=417,468) /
164 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
165 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
166 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
167 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
168 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
169 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
170 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
171 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
172 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
173 + .000000E+00, .000000E+00, .000000E+00, .214422E+06,
174 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
175 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
176 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
177 DATA (UPDI(I),I=469,520) /
178 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
179 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
180 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
181 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
182 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
183 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
184 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
185 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
186 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
187 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
188 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
189 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
190 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
191 DATA (UPDI(I),I=521,572) /
192 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
193 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
194 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
195 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
196 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
197 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
198 + .000000E+00, .000000E+00, .120235E+06, .917837E+05,
199 + .689611E+05, .517675E+05, .388340E+05, .291028E+05,
200 + .217938E+05, .163031E+05, .121859E+05, .909812E+04,
201 + .678678E+04, .505647E+04, .376371E+04, .279779E+04,
202 + .207761E+04, .154063E+04, .114116E+04, .843969E+03,
203 + .623415E+03, .459738E+03, .338594E+03, .248934E+03,
204 + .182756E+03, .133922E+03, .979833E+02, .715576E+02 /
205 DATA (UPDI(I),I=573,624) /
206 + .521947E+02, .378210E+02, .274907E+02, .199425E+02,
207 + .144499E+02, .104518E+02, .755278E+01, .545613E+01,
208 + .393778E+01, .284064E+01, .205103E+01, .148148E+01,
209 + .107221E+01, .777075E+00, .565179E+00, .412066E+00,
210 + .301594E+00, .221449E+00, .163357E+00, .120909E+00,
211 + .900184E-01, .670868E-01, .503364E-01, .377875E-01,
212 + .285026E-01, .215350E-01, .163188E-01, .123776E-01,
213 + .940681E-02, .714575E-02, .543053E-02, .412031E-02,
214 + .312503E-02, .236245E-02, .178246E-02, .133828E-02,
215 + .100060E-02, .744226E-03, .548660E-03, .400014E-03,
216 + .288352E-03, .204464E-03, .142317E-03, .963436E-04,
217 + .630042E-04, .389680E-04, .220802E-04, .104630E-04,
218 + .291420E-05, .000000E+00, .000000E+00, .000000E+00 /
219 DATA (UPDI(I),I=625,676) /
220 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
221 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
222 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
223 + .000000E+00, .278758E+06, .212089E+06, .158735E+06,
224 + .118696E+06, .886902E+05, .662028E+05, .493777E+05,
225 + .367887E+05, .273856E+05, .203624E+05, .151260E+05,
226 + .112223E+05, .831754E+04, .615639E+04, .455173E+04,
227 + .336045E+04, .247798E+04, .182439E+04, .134143E+04,
228 + .984658E+03, .721767E+03, .528109E+03, .385824E+03,
229 + .281333E+03, .204802E+03, .148800E+03, .107966E+03,
230 + .778122E+02, .562505E+02, .405805E+02, .292364E+02,
231 + .210254E+02, .151031E+02, .108449E+02, .777814E+01,
232 + .557560E+01, .399948E+01, .286986E+01, .206296E+01 /
233 DATA (UPDI(I),I=677,728) /
234 + .148490E+01, .107242E+01, .776373E+00, .564138E+00,
235 + .411244E+00, .301132E+00, .221248E+00, .163495E+00,
236 + .120943E+00, .900589E-01, .670988E-01, .502259E-01,
237 + .376618E-01, .283209E-01, .213179E-01, .160767E-01,
238 + .121199E-01, .914113E-02, .688483E-02, .518410E-02,
239 + .389252E-02, .291826E-02, .217893E-02, .162175E-02,
240 + .120252E-02, .885640E-03, .647065E-03, .469418E-03,
241 + .337072E-03, .239707E-03, .168080E-03, .116262E-03,
242 + .788337E-04, .522707E-04, .336362E-04, .210162E-04,
243 + .124421E-04, .688921E-05, .339363E-05, .133392E-05,
244 + .198351E-06, .000000E+00, .000000E+00, .000000E+00,
245 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
246 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
247 DATA (UPDI(I),I=729,780) /
248 + .483773E+06, .366824E+06, .273454E+06, .203664E+06,
249 + .151566E+06, .112678E+06, .836973E+05, .621016E+05,
250 + .460357E+05, .340858E+05, .252127E+05, .186257E+05,
251 + .137448E+05, .101290E+05, .745564E+04, .547975E+04,
252 + .402237E+04, .294787E+04, .215740E+04, .157617E+04,
253 + .114982E+04, .837243E+03, .608654E+03, .441601E+03,
254 + .319838E+03, .231177E+03, .166849E+03, .119597E+03,
255 + .859821E+02, .616856E+02, .441876E+02, .315937E+02,
256 + .225593E+02, .161013E+02, .114761E+02, .817453E+01,
257 + .582558E+01, .415276E+01, .296499E+01, .211970E+01,
258 + .152021E+01, .109285E+01, .788435E+00, .570660E+00,
259 + .414831E+00, .302581E+00, .221958E+00, .162997E+00,
260 + .120474E+00, .891006E-01, .661988E-01, .492753E-01 /
261 DATA (UPDI(I),I=781,832) /
262 + .367779E-01, .274798E-01, .205681E-01, .153912E-01,
263 + .115219E-01, .861461E-02, .643875E-02, .480016E-02,
264 + .357329E-02, .265021E-02, .195990E-02, .144480E-02,
265 + .105862E-02, .770463E-03, .557617E-03, .400387E-03,
266 + .285556E-03, .201706E-03, .141368E-03, .979748E-04,
267 + .672048E-04, .455647E-04, .307413E-04, .204716E-04,
268 + .135622E-04, .893357E-05, .589274E-05, .389027E-05,
269 + .259190E-05, .173341E-05, .116034E-05, .766148E-06,
270 + .489782E-06, .292867E-06, .156397E-06, .681959E-07,
271 + .196672E-07, .176857E-08, .000000E+00, .744573E+06,
272 + .562628E+06, .417718E+06, .309842E+06, .229635E+06,
273 + .170011E+06, .125756E+06, .929161E+05, .685854E+05,
274 + .505648E+05, .372399E+05, .273908E+05, .201236E+05 /
275 DATA (UPDI(I),I=833,884) /
276 + .147638E+05, .108182E+05, .791503E+04, .578318E+04,
277 + .421860E+04, .307282E+04, .223426E+04, .162200E+04,
278 + .117528E+04, .850138E+03, .613696E+03, .442201E+03,
279 + .317949E+03, .228252E+03, .162715E+03, .116336E+03,
280 + .829969E+02, .591130E+02, .420200E+02, .298252E+02,
281 + .211588E+02, .149870E+02, .106082E+02, .751097E+01,
282 + .531922E+01, .377238E+01, .267872E+01, .190787E+01,
283 + .136204E+01, .975709E+00, .701234E+00, .506102E+00,
284 + .366520E+00, .266923E+00, .194613E+00, .142794E+00,
285 + .104847E+00, .773297E-01, .571468E-01, .423418E-01,
286 + .314087E-01, .233363E-01, .173363E-01, .128832E-01,
287 + .956339E-02, .709601E-02, .525282E-02, .388264E-02,
288 + .286020E-02, .210119E-02, .153936E-02, .112137E-02 /
289 DATA (UPDI(I),I=885,936) /
290 + .812135E-03, .585461E-03, .419376E-03, .298926E-03,
291 + .211621E-03, .149138E-03, .104429E-03, .728049E-04,
292 + .505649E-04, .352360E-04, .245026E-04, .171245E-04,
293 + .120213E-04, .849848E-05, .602559E-05, .427911E-05,
294 + .301329E-05, .208135E-05, .139018E-05, .879764E-06,
295 + .511741E-06, .261336E-06, .107404E-06, .291025E-07,
296 + .269703E-08, .000000E+00, .107111E+07, .806542E+06,
297 + .596343E+06, .440509E+06, .325114E+06, .239690E+06,
298 + .176545E+06, .129885E+06, .954607E+05, .700734E+05,
299 + .513811E+05, .376251E+05, .275190E+05, .200986E+05,
300 + .146600E+05, .106766E+05, .776458E+04, .563734E+04,
301 + .408664E+04, .295713E+04, .213629E+04, .154028E+04,
302 + .110857E+04, .796189E+03, .570736E+03, .408210E+03 /
303 DATA (UPDI(I),I=937,988) /
304 + .291482E+03, .206649E+03, .146932E+03, .104239E+03,
305 + .738166E+02, .521675E+02, .368074E+02, .259552E+02,
306 + .182706E+02, .128513E+02, .904066E+01, .636099E+01,
307 + .448126E+01, .316082E+01, .223589E+01, .158526E+01,
308 + .112772E+01, .804847E+00, .576786E+00, .414770E+00,
309 + .299921E+00, .217128E+00, .158175E+00, .115316E+00,
310 + .844435E-01, .619633E-01, .455824E-01, .335733E-01,
311 + .247655E-01, .182677E-01, .134786E-01, .993510E-02,
312 + .731958E-02, .538089E-02, .394985E-02, .289043E-02,
313 + .210959E-02, .153604E-02, .111250E-02, .801699E-03,
314 + .575537E-03, .411101E-03, .292636E-03, .207359E-03,
315 + .146638E-03, .103390E-03, .728735E-04, .514106E-04,
316 + .365405E-04, .260384E-04, .186990E-04, .135062E-04 /
317 DATA (UPDI(I),I=989,1040) /
318 + .980562E-05, .711385E-05, .513303E-05, .364606E-05,
319 + .251802E-05, .166874E-05, .103948E-05, .590936E-06,
320 + .292563E-06, .115525E-06, .299674E-07, .282689E-08,
321 + .000000E+00, .147374E+07, .110583E+07, .814233E+06,
322 + .598953E+06, .440190E+06, .323156E+06, .237004E+06,
323 + .173616E+06, .127046E+06, .928510E+05, .677816E+05,
324 + .494138E+05, .359784E+05, .261578E+05, .189920E+05,
325 + .137675E+05, .996551E+04, .720109E+04, .519523E+04,
326 + .374113E+04, .268940E+04, .192946E+04, .138169E+04,
327 + .987291E+03, .704064E+03, .500918E+03, .355766E+03,
328 + .250839E+03, .177369E+03, .125129E+03, .881044E+02,
329 + .619051E+02, .434193E+02, .304345E+02, .212919E+02,
330 + .148833E+02, .104034E+02, .727276E+01, .508996E+01 /
331 DATA (UPDI(I),I=1041,1092) /
332 + .356642E+01, .250580E+01, .176461E+01, .124669E+01,
333 + .883654E+00, .628868E+00, .449086E+00, .322473E+00,
334 + .231831E+00, .167702E+00, .121409E+00, .882817E-01,
335 + .643306E-01, .469928E-01, .343719E-01, .251768E-01,
336 + .184423E-01, .135128E-01, .989208E-02, .723766E-02,
337 + .528492E-02, .385346E-02, .280183E-02, .203209E-02,
338 + .147091E-02, .105947E-02, .759879E-03, .543383E-03,
339 + .387108E-03, .275216E-03, .195172E-03, .138429E-03,
340 + .981701E-04, .698097E-04, .498433E-04, .359347E-04,
341 + .260282E-04, .190031E-04, .139408E-04, .102483E-04,
342 + .749978E-05, .542937E-05, .385009E-05, .263962E-05,
343 + .172826E-05, .105811E-05, .588252E-06, .283053E-06,
344 + .107837E-06, .269161E-07, .257749E-08, .000000E+00 /
345 DATA (UPDI(I),I=1093,1144) /
346 + .196300E+07, .146777E+07, .107622E+07, .788360E+06,
347 + .576943E+06, .421750E+06, .307986E+06, .224639E+06,
348 + .163666E+06, .119090E+06, .865502E+05, .628146E+05,
349 + .455291E+05, .329509E+05, .238141E+05, .171830E+05,
350 + .123794E+05, .890300E+04, .639226E+04, .458084E+04,
351 + .327689E+04, .233928E+04, .166673E+04, .118491E+04,
352 + .840628E+03, .594934E+03, .420286E+03, .294709E+03,
353 + .207245E+03, .145394E+03, .101792E+03, .711115E+02,
354 + .495835E+02, .345488E+02, .240232E+02, .166890E+02,
355 + .115921E+02, .805216E+01, .559891E+01, .389740E+01,
356 + .272017E+01, .190278E+01, .133523E+01, .940013E+00,
357 + .664409E+00, .471228E+00, .336057E+00, .239943E+00,
358 + .172376E+00, .123938E+00, .895015E-01, .647760E-01 /
359 DATA (UPDI(I),I=1145,1196) /
360 + .469939E-01, .341391E-01, .248349E-01, .180688E-01,
361 + .131493E-01, .956181E-02, .694925E-02, .504131E-02,
362 + .365217E-02, .263913E-02, .190266E-02, .136958E-02,
363 + .981441E-03, .700875E-03, .499457E-03, .355035E-03,
364 + .252212E-03, .179056E-03, .127387E-03, .908342E-04,
365 + .650998E-04, .469427E-04, .342173E-04, .250735E-04,
366 + .185014E-04, .136916E-04, .101209E-04, .742156E-05,
367 + .536047E-05, .377809E-05, .256372E-05, .165528E-05,
368 + .995337E-06, .541181E-06, .253315E-06, .932840E-07,
369 + .224700E-07, .218178E-08, .000000E+00, .254918E+07,
370 + .189941E+07, .138691E+07, .101170E+07, .737260E+06,
371 + .536653E+06, .390214E+06, .283387E+06, .205569E+06,
372 + .148923E+06, .107753E+06, .778534E+05, .561749E+05 /
373 DATA (UPDI(I),I=1197,1248) /
374 + .404709E+05, .291145E+05, .209101E+05, .149940E+05,
375 + .107324E+05, .766888E+04, .546916E+04, .389320E+04,
376 + .276551E+04, .196055E+04, .138672E+04, .978746E+03,
377 + .689059E+03, .484200E+03, .337679E+03, .236169E+03,
378 + .164772E+03, .114710E+03, .796795E+02, .552347E+02,
379 + .382601E+02, .264437E+02, .182585E+02, .126034E+02,
380 + .869968E+01, .601050E+01, .415695E+01, .288235E+01,
381 + .200297E+01, .139619E+01, .976393E+00, .685493E+00,
382 + .482918E+00, .342081E+00, .242601E+00, .173109E+00,
383 + .123628E+00, .886769E-01, .637511E-01, .459402E-01,
384 + .331517E-01, .239553E-01, .173137E-01, .125167E-01,
385 + .904276E-02, .652953E-02, .470707E-02, .338898E-02,
386 + .243459E-02, .174530E-02, .124982E-02, .891436E-03 /
387 DATA (UPDI(I),I=1249,1300) /
388 + .634162E-03, .450600E-03, .319783E-03, .227116E-03,
389 + .161492E-03, .115272E-03, .826350E-04, .596449E-04,
390 + .433696E-04, .318856E-04, .235589E-04, .174996E-04,
391 + .130071E-04, .962747E-05, .704669E-05, .506217E-05,
392 + .353746E-05, .237191E-05, .150860E-05, .890534E-06,
393 + .473530E-06, .215712E-06, .768745E-07, .179106E-07,
394 + .176218E-08, .000000E+00, .000000E+00, .000000E+00,
395 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
396 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
397 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
398 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
399 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
400 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
401 DATA (UPDI(I),I=1301,1352) /
402 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
403 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
404 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
405 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
406 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
407 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
408 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
409 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
410 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
411 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
412 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
413 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
414 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
415 DATA (UPDI(I),I=1353,1404) /
416 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
417 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
418 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
419 + .000000E+00, .271895E+05, .000000E+00, .000000E+00,
420 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
421 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
422 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
423 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
424 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
425 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
426 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
427 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
428 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
429 DATA (UPDI(I),I=1405,1456) /
430 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
431 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
432 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
433 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
434 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
435 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
436 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
437 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
438 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
439 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
440 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
441 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
442 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
443 DATA (UPDI(I),I=1457,1508) /
444 + .282254E+05, .220920E+05, .170848E+05, .132037E+05,
445 + .101993E+05, .787273E+04, .607358E+04, .468190E+04,
446 + .360696E+04, .277643E+04, .213574E+04, .164136E+04,
447 + .126052E+04, .967045E+03, .741328E+03, .567649E+03,
448 + .434298E+03, .331857E+03, .253349E+03, .193151E+03,
449 + .147118E+03, .111895E+03, .850174E+02, .644969E+02,
450 + .488760E+02, .369845E+02, .279646E+02, .210258E+02,
451 + .158590E+02, .119433E+02, .899039E+01, .675906E+01,
452 + .508085E+01, .381954E+01, .287152E+01, .215874E+01,
453 + .162585E+01, .122540E+01, .926237E+00, .701201E+00,
454 + .533104E+00, .406284E+00, .311009E+00, .238772E+00,
455 + .184243E+00, .142575E+00, .110990E+00, .864523E-01,
456 + .677980E-01, .531689E-01, .418947E-01, .330419E-01 /
457 DATA (UPDI(I),I=1509,1560) /
458 + .261421E-01, .206908E-01, .164139E-01, .130088E-01,
459 + .103178E-01, .816837E-02, .646901E-02, .510668E-02,
460 + .402746E-02, .316293E-02, .247738E-02, .193364E-02,
461 + .149982E-02, .115377E-02, .881273E-03, .666098E-03,
462 + .498438E-03, .367366E-03, .266629E-03, .189098E-03,
463 + .130747E-03, .866058E-04, .548858E-04, .317713E-04,
464 + .157753E-04, .506605E-05, .000000E+00, .000000E+00,
465 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
466 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
467 + .000000E+00, .000000E+00, .000000E+00, .688052E+05,
468 + .536001E+05, .412288E+05, .316912E+05, .243477E+05,
469 + .186918E+05, .143418E+05, .109952E+05, .842446E+04,
470 + .644910E+04, .493363E+04, .377068E+04, .287977E+04 /
471 DATA (UPDI(I),I=1561,1612) /
472 + .219707E+04, .167488E+04, .127535E+04, .970290E+03,
473 + .737273E+03, .559687E+03, .424300E+03, .321347E+03,
474 + .243023E+03, .183592E+03, .138481E+03, .104335E+03,
475 + .784916E+02, .590000E+02, .440950E+02, .330593E+02,
476 + .247470E+02, .185134E+02, .138324E+02, .103316E+02,
477 + .771717E+01, .576326E+01, .430385E+01, .321902E+01,
478 + .240936E+01, .180804E+01, .135892E+01, .102546E+01,
479 + .775712E+00, .589254E+00, .448966E+00, .343732E+00,
480 + .263952E+00, .203862E+00, .157571E+00, .122593E+00,
481 + .953981E-01, .745780E-01, .583698E-01, .458221E-01,
482 + .359931E-01, .283340E-01, .222895E-01, .175480E-01,
483 + .137947E-01, .108487E-01, .850890E-02, .666969E-02,
484 + .520982E-02, .406180E-02, .315886E-02, .244471E-02 /
485 DATA (UPDI(I),I=1613,1664) /
486 + .188032E-02, .143962E-02, .109449E-02, .827453E-03,
487 + .620010E-03, .461279E-03, .339461E-03, .247422E-03,
488 + .177528E-03, .126420E-03, .882201E-04, .606213E-04,
489 + .407370E-04, .268017E-04, .171262E-04, .106388E-04,
490 + .636839E-05, .365101E-05, .198629E-05, .101929E-05,
491 + .481255E-06, .206413E-06, .762546E-07, .201626E-07,
492 + .835994E-09, .000000E+00, .124286E+06, .963969E+05,
493 + .737765E+05, .564247E+05, .431314E+05, .329446E+05,
494 + .251493E+05, .191827E+05, .146225E+05, .111364E+05,
495 + .847559E+04, .644427E+04, .489612E+04, .371597E+04,
496 + .281797E+04, .213451E+04, .161538E+04, .122096E+04,
497 + .921936E+03, .695199E+03, .523684E+03, .393909E+03,
498 + .295959E+03, .222021E+03, .166353E+03, .124453E+03 /
499 DATA (UPDI(I),I=1665,1716) /
500 + .930218E+02, .691232E+02, .515252E+02, .383468E+02,
501 + .285176E+02, .211801E+02, .157228E+02, .116720E+02,
502 + .866129E+01, .642666E+01, .477494E+01, .355022E+01,
503 + .264587E+01, .197501E+01, .147981E+01, .111152E+01,
504 + .838229E+00, .634094E+00, .481903E+00, .367378E+00,
505 + .281651E+00, .216126E+00, .166908E+00, .128945E+00,
506 + .100064E+00, .777590E-01, .606002E-01, .472646E-01,
507 + .369382E-01, .288543E-01, .225552E-01, .176095E-01,
508 + .137523E-01, .107144E-01, .834235E-02, .647506E-02,
509 + .501691E-02, .387873E-02, .298514E-02, .228493E-02,
510 + .174221E-02, .132057E-02, .996545E-03, .746738E-03,
511 + .556711E-03, .411795E-03, .302687E-03, .220219E-03,
512 + .159808E-03, .114582E-03, .816392E-04, .575750E-04 /
513 DATA (UPDI(I),I=1717,1768) /
514 + .403122E-04, .278936E-04, .191340E-04, .129238E-04,
515 + .856175E-05, .551300E-05, .341056E-05, .197297E-05,
516 + .103083E-05, .451291E-06, .135517E-06, .113833E-07,
517 + .000000E+00, .170868E+06, .152767E+06, .116363E+06,
518 + .885703E+05, .673793E+05, .512180E+05, .389099E+05,
519 + .295347E+05, .224037E+05, .169791E+05, .128587E+05,
520 + .972863E+04, .735476E+04, .555417E+04, .419083E+04,
521 + .315845E+04, .237817E+04, .178837E+04, .134347E+04,
522 + .100786E+04, .755271E+03, .565149E+03, .422386E+03,
523 + .315189E+03, .234899E+03, .174787E+03, .129930E+03,
524 + .960107E+02, .711669E+02, .526670E+02, .389417E+02,
525 + .287545E+02, .212185E+02, .156577E+02, .115473E+02,
526 + .851488E+01, .628596E+01, .464366E+01, .343789E+01 /
527 DATA (UPDI(I),I=1769,1820) /
528 + .254922E+01, .189707E+01, .141527E+01, .105989E+01,
529 + .796269E+00, .600910E+00, .454932E+00, .346327E+00,
530 + .263922E+00, .202387E+00, .155276E+00, .119657E+00,
531 + .923523E-01, .714763E-01, .553706E-01, .429751E-01,
532 + .333443E-01, .258881E-01, .200779E-01, .155744E-01,
533 + .120550E-01, .932428E-02, .719125E-02, .553644E-02,
534 + .425400E-02, .325408E-02, .247681E-02, .187849E-02,
535 + .141721E-02, .106504E-02, .795557E-03, .591794E-03,
536 + .437435E-03, .321795E-03, .234909E-03, .171356E-03,
537 + .123909E-03, .892915E-04, .639197E-04, .455569E-04,
538 + .321890E-04, .225770E-04, .156032E-04, .105612E-04,
539 + .692930E-05, .434384E-05, .253076E-05, .131953E-05,
540 + .569363E-06, .166453E-06, .145059E-07, .000000E+00 /
541 DATA (UPDI(I),I=1821,1872) /
542 + .313432E+06, .240970E+06, .182565E+06, .138218E+06,
543 + .104580E+06, .790668E+05, .597386E+05, .450971E+05,
544 + .340200E+05, .256403E+05, .193097E+05, .145278E+05,
545 + .109209E+05, .820066E+04, .615234E+04, .461025E+04,
546 + .345122E+04, .258027E+04, .192700E+04, .143714E+04,
547 + .107055E+04, .796288E+03, .591533E+03, .438732E+03,
548 + .324955E+03, .240297E+03, .177500E+03, .130319E+03,
549 + .959719E+02, .705631E+02, .518262E+02, .380125E+02,
550 + .278571E+02, .204149E+02, .149483E+02, .109440E+02,
551 + .801954E+01, .588061E+01, .432051E+01, .317940E+01,
552 + .234758E+01, .173779E+01, .129111E+01, .962391E+00,
553 + .720468E+00, .541159E+00, .408685E+00, .309007E+00,
554 + .235072E+00, .178949E+00, .136810E+00, .104781E+00 /
555 DATA (UPDI(I),I=1873,1924) /
556 + .804600E-01, .618530E-01, .476289E-01, .366711E-01,
557 + .282465E-01, .217370E-01, .167250E-01, .128418E-01,
558 + .984900E-02, .753145E-02, .574576E-02, .437328E-02,
559 + .331096E-02, .249275E-02, .186788E-02, .139070E-02,
560 + .102952E-02, .756125E-03, .551500E-03, .398475E-03,
561 + .285358E-03, .201881E-03, .141929E-03, .982626E-04,
562 + .672888E-04, .454137E-04, .302676E-04, .198458E-04,
563 + .128358E-04, .815010E-05, .506845E-05, .306636E-05,
564 + .178921E-05, .981617E-06, .490558E-06, .206317E-06,
565 + .596740E-07, .495448E-08, .000000E+00, .467471E+06,
566 + .357777E+06, .269645E+06, .203075E+06, .152842E+06,
567 + .114942E+06, .863803E+05, .648594E+05, .486637E+05,
568 + .364780E+05, .273214E+05, .204425E+05, .152820E+05 /
569 DATA (UPDI(I),I=1925,1976) /
570 + .114117E+05, .851326E+04, .634345E+04, .472166E+04,
571 + .350993E+04, .260616E+04, .193238E+04, .143102E+04,
572 + .105813E+04, .781358E+03, .576044E+03, .424064E+03,
573 + .311659E+03, .228779E+03, .166898E+03, .122126E+03,
574 + .892162E+02, .650963E+02, .474300E+02, .345235E+02,
575 + .251283E+02, .182709E+02, .132824E+02, .966278E+01,
576 + .703421E+01, .512970E+01, .374681E+01, .274554E+01,
577 + .201698E+01, .148698E+01, .109991E+01, .817021E+00,
578 + .608960E+00, .456320E+00, .342376E+00, .258433E+00,
579 + .195225E+00, .148099E+00, .112568E+00, .857759E-01,
580 + .654410E-01, .500042E-01, .382090E-01, .292062E-01,
581 + .223067E-01, .170319E-01, .129794E-01, .987882E-02,
582 + .749810E-02, .567727E-02, .428925E-02, .322328E-02 /
583 DATA (UPDI(I),I=1977,2028) /
584 + .240958E-02, .179311E-02, .132649E-02, .976066E-03,
585 + .713157E-03, .517878E-03, .373057E-03, .266732E-03,
586 + .188896E-03, .133250E-03, .929195E-04, .643370E-04,
587 + .441401E-04, .300591E-04, .202645E-04, .135388E-04,
588 + .891917E-05, .575909E-05, .361257E-05, .216887E-05,
589 + .121164E-05, .605165E-06, .248027E-06, .680466E-07,
590 + .598517E-08, .000000E+00, .668093E+06, .509087E+06,
591 + .381728E+06, .286016E+06, .214158E+06, .160219E+06,
592 + .119778E+06, .894647E+05, .667701E+05, .497844E+05,
593 + .370878E+05, .276004E+05, .205208E+05, .152400E+05,
594 + .113066E+05, .837810E+04, .620123E+04, .458385E+04,
595 + .338421E+04, .249492E+04, .183693E+04, .135036E+04,
596 + .991278E+03, .726467E+03, .531590E+03, .388308E+03 /
597 DATA (UPDI(I),I=2029,2080) /
598 + .283290E+03, .205362E+03, .149325E+03, .108393E+03,
599 + .785762E+02, .568772E+02, .411238E+02, .297312E+02,
600 + .214688E+02, .154988E+02, .111951E+02, .809150E+01,
601 + .585775E+01, .424732E+01, .308915E+01, .225251E+01,
602 + .164810E+01, .120995E+01, .891932E+00, .659779E+00,
603 + .490657E+00, .365370E+00, .273698E+00, .205205E+00,
604 + .154497E+00, .116560E+00, .881525E-01, .667564E-01,
605 + .506272E-01, .383992E-01, .291333E-01, .220876E-01,
606 + .167392E-01, .126631E-01, .956691E-02, .720884E-02,
607 + .541847E-02, .406442E-02, .303253E-02, .225154E-02,
608 + .166445E-02, .122377E-02, .895348E-03, .650989E-03,
609 + .470810E-03, .338214E-03, .241504E-03, .171199E-03,
610 + .121138E-03, .849997E-04, .593976E-04, .412807E-04 /
611 DATA (UPDI(I),I=2081,2132) /
612 + .285644E-04, .196282E-04, .133843E-04, .900427E-05,
613 + .592495E-05, .377540E-05, .228850E-05, .128221E-05,
614 + .635900E-06, .255774E-06, .682184E-07, .617645E-08,
615 + .000000E+00, .924585E+06, .701534E+06, .523408E+06,
616 + .390207E+06, .290699E+06, .216378E+06, .160934E+06,
617 + .119586E+06, .887874E+05, .658548E+05, .488014E+05,
618 + .361251E+05, .267154E+05, .197336E+05, .145609E+05,
619 + .107306E+05, .789865E+04, .580611E+04, .426255E+04,
620 + .312469E+04, .228747E+04, .167189E+04, .122016E+04,
621 + .888953E+03, .646625E+03, .469493E+03, .340432E+03,
622 + .245248E+03, .177216E+03, .127829E+03, .920726E+02,
623 + .662155E+02, .475602E+02, .341561E+02, .244965E+02,
624 + .175632E+02, .125977E+02, .904109E+01, .649834E+01 /
625 DATA (UPDI(I),I=2133,2184) /
626 + .467788E+01, .337747E+01, .244472E+01, .177552E+01,
627 + .129388E+01, .946714E+00, .695118E+00, .513105E+00,
628 + .379265E+00, .282000E+00, .209874E+00, .156848E+00,
629 + .117473E+00, .881923E-01, .663020E-01, .499147E-01,
630 + .375851E-01, .283087E-01, .213084E-01, .160318E-01,
631 + .120415E-01, .903210E-02, .675804E-02, .504385E-02,
632 + .375728E-02, .278422E-02, .205373E-02, .150876E-02,
633 + .110292E-02, .802695E-03, .581041E-03, .418722E-03,
634 + .300107E-03, .214117E-03, .151968E-03, .107857E-03,
635 + .761028E-04, .535932E-04, .376238E-04, .263359E-04,
636 + .183261E-04, .126462E-04, .859776E-05, .569887E-05,
637 + .364392E-05, .220442E-05, .122562E-05, .598481E-06,
638 + .234857E-06, .607809E-07, .561580E-08, .000000E+00 /
639 DATA (UPDI(I),I=2185,2236) /
640 + .124689E+07, .942152E+06, .699497E+06, .518925E+06,
641 + .384679E+06, .284904E+06, .210838E+06, .155876E+06,
642 + .115141E+06, .849629E+05, .626354E+05, .461238E+05,
643 + .339301E+05, .249300E+05, .182968E+05, .134110E+05,
644 + .981800E+04, .717741E+04, .524012E+04, .381986E+04,
645 + .278061E+04, .202075E+04, .146628E+04, .106206E+04,
646 + .768007E+03, .554303E+03, .399508E+03, .286031E+03,
647 + .205413E+03, .147246E+03, .105388E+03, .753067E+02,
648 + .537383E+02, .383398E+02, .273129E+02, .194500E+02,
649 + .138549E+02, .987443E+01, .704733E+01, .503715E+01,
650 + .361078E+01, .259480E+01, .187085E+01, .135348E+01,
651 + .983099E+00, .716586E+00, .525110E+00, .385325E+00,
652 + .284424E+00, .210150E+00, .155921E+00, .115945E+00 /
653 DATA (UPDI(I),I=2237,2288) /
654 + .864216E-01, .645087E-01, .482172E-01, .360499E-01,
655 + .269599E-01, .201508E-01, .150540E-01, .112285E-01,
656 + .836371E-02, .621530E-02, .460725E-02, .340926E-02,
657 + .250988E-02, .183996E-02, .134383E-02, .977140E-03,
658 + .707775E-03, .510342E-03, .366681E-03, .262364E-03,
659 + .187148E-03, .133039E-03, .947250E-04, .671842E-04,
660 + .476300E-04, .337069E-04, .237931E-04, .166930E-04,
661 + .115949E-04, .791732E-05, .525238E-05, .334863E-05,
662 + .201014E-05, .110335E-05, .528323E-06, .201685E-06,
663 + .505777E-07, .475370E-08, .000000E+00, .164537E+07,
664 + .123820E+07, .914898E+06, .675454E+06, .498283E+06,
665 + .367239E+06, .270428E+06, .198939E+06, .146214E+06,
666 + .107348E+06, .787346E+05, .576815E+05, .422126E+05 /
667 DATA (UPDI(I),I=2289,2340) /
668 + .308537E+05, .225250E+05, .164225E+05, .119582E+05,
669 + .869471E+04, .631321E+04, .457676E+04, .331304E+04,
670 + .239415E+04, .172736E+04, .124399E+04, .894350E+03,
671 + .641690E+03, .459741E+03, .327151E+03, .233515E+03,
672 + .166362E+03, .118326E+03, .840186E+02, .595706E+02,
673 + .422258E+02, .298828E+02, .211381E+02, .149555E+02,
674 + .105860E+02, .750285E+01, .532538E+01, .379050E+01,
675 + .270469E+01, .193620E+01, .139079E+01, .100298E+01,
676 + .725856E+00, .528115E+00, .384771E+00, .281994E+00,
677 + .206878E+00, .152408E+00, .112539E+00, .832941E-01,
678 + .617407E-01, .458253E-01, .340241E-01, .252688E-01,
679 + .187573E-01, .139167E-01, .103100E-01, .762780E-02,
680 + .563106E-02, .414684E-02, .304907E-02, .223084E-02 /
681 DATA (UPDI(I),I=2341,2392) /
682 + .162592E-02, .118107E-02, .854644E-03, .616445E-03,
683 + .443023E-03, .317570E-03, .226987E-03, .161976E-03,
684 + .115375E-03, .824231E-04, .587426E-04, .418852E-04,
685 + .298281E-04, .211794E-04, .149320E-04, .104001E-04,
686 + .710305E-05, .469710E-05, .297438E-05, .176580E-05,
687 + .954109E-06, .447022E-06, .165790E-06, .402861E-07,
688 + .384545E-08, .000000E+00, .213054E+07, .159696E+07,
689 + .117444E+07, .862982E+06, .633592E+06, .464723E+06,
690 + .340558E+06, .249308E+06, .182332E+06, .133201E+06,
691 + .972077E+05, .708558E+05, .515897E+05, .375139E+05,
692 + .272454E+05, .197602E+05, .143125E+05, .103511E+05,
693 + .747550E+04, .538995E+04, .388028E+04, .278854E+04,
694 + .200064E+04, .143265E+04, .102409E+04, .730513E+03 /
695 DATA (UPDI(I),I=2393,2444) /
696 + .520309E+03, .368028E+03, .261117E+03, .184899E+03,
697 + .130702E+03, .922295E+02, .649791E+02, .457660E+02,
698 + .321779E+02, .226122E+02, .158918E+02, .111732E+02,
699 + .786518E+01, .554432E+01, .391904E+01, .277699E+01,
700 + .197407E+01, .140809E+01, .100833E+01, .724614E+00,
701 + .523529E+00, .378763E+00, .275654E+00, .200820E+00,
702 + .146920E+00, .107742E+00, .791949E-01, .583010E-01,
703 + .429759E-01, .316921E-01, .233777E-01, .172374E-01,
704 + .127035E-01, .934931E-02, .687188E-02, .504072E-02,
705 + .368878E-02, .269584E-02, .196089E-02, .142143E-02,
706 + .102741E-02, .740222E-03, .531971E-03, .381284E-03,
707 + .272851E-03, .194941E-03, .139237E-03, .994077E-04,
708 + .712565E-04, .510079E-04, .365438E-04, .261458E-04 /
709 DATA (UPDI(I),I=2445,2496) /
710 + .186339E-04, .131666E-04, .916893E-05, .624494E-05,
711 + .410488E-05, .257519E-05, .150870E-05, .801026E-06,
712 + .366743E-06, .132075E-06, .311179E-07, .301356E-08,
713 + .000000E+00, .271272E+07, .202548E+07, .148273E+07,
714 + .108447E+07, .792489E+06, .578536E+06, .421949E+06,
715 + .307413E+06, .223741E+06, .162656E+06, .118120E+06,
716 + .856723E+05, .620653E+05, .449035E+05, .324460E+05,
717 + .234110E+05, .168688E+05, .121360E+05, .871809E+04,
718 + .625229E+04, .447678E+04, .319967E+04, .228295E+04,
719 + .162571E+04, .115555E+04, .819568E+03, .580369E+03,
720 + .408082E+03, .287827E+03, .202598E+03, .142346E+03,
721 + .998317E+02, .698982E+02, .489219E+02, .341772E+02,
722 + .238623E+02, .166606E+02, .116364E+02, .813655E+01 /
723 DATA (UPDI(I),I=2497,2548) /
724 + .569705E+01, .399966E+01, .281480E+01, .198723E+01,
725 + .140775E+01, .100115E+01, .714510E+00, .512693E+00,
726 + .368377E+00, .266261E+00, .192655E+00, .139989E+00,
727 + .101967E+00, .744448E-01, .544370E-01, .398586E-01,
728 + .291984E-01, .213958E-01, .156730E-01, .114754E-01,
729 + .839156E-02, .612899E-02, .446821E-02, .325014E-02,
730 + .236161E-02, .170837E-02, .123217E-02, .886593E-03,
731 + .636320E-03, .455894E-03, .326070E-03, .233085E-03,
732 + .166551E-03, .119122E-03, .852588E-04, .613133E-04,
733 + .440582E-04, .316822E-04, .227382E-04, .162342E-04,
734 + .114709E-04, .796853E-05, .540021E-05, .352111E-05,
735 + .218448E-05, .126108E-05, .657128E-06, .293769E-06,
736 + .102718E-06, .234881E-07, .230613E-08, .000000E+00 /
737 DATA (UPDI(I),I=2549,2600) /
738 + .857730E+04, .291927E+04, .240499E+04, .198131E+04,
739 + .163227E+04, .134472E+04, .110784E+04, .912684E+03,
740 + .751912E+03, .619465E+03, .510352E+03, .420461E+03,
741 + .346408E+03, .285401E+03, .235142E+03, .193737E+03,
742 + .159627E+03, .131526E+03, .108376E+03, .893039E+02,
743 + .735919E+02, .606479E+02, .499840E+02, .411987E+02,
744 + .339608E+02, .279978E+02, .230850E+02, .189853E+02,
745 + .156607E+02, .129211E+02, .106634E+02, .880266E+01,
746 + .726893E+01, .600804E+01, .496569E+01, .410646E+01,
747 + .339793E+01, .281339E+01, .233084E+01, .193200E+01,
748 + .160251E+01, .132954E+01, .110322E+01, .915302E+00,
749 + .759064E+00, .629009E+00, .521010E+00, .430373E+00,
750 + .355206E+00, .292106E+00, .239692E+00, .196028E+00 /
751 DATA (UPDI(I),I=2601,2652) /
752 + .159711E+00, .129569E+00, .104618E+00, .840318E-01,
753 + .671115E-01, .532660E-01, .419931E-01, .328660E-01,
754 + .255216E-01, .196513E-01, .149934E-01, .113419E-01,
755 + .847421E-02, .625870E-02, .456465E-02, .328383E-02,
756 + .232734E-02, .162264E-02, .111112E-02, .745879E-03,
757 + .489644E-03, .313375E-03, .195836E-03, .118265E-03,
758 + .689465E-04, .385977E-04, .206139E-04, .104167E-04,
759 + .492817E-05, .215592E-05, .850828E-06, .297368E-06,
760 + .882149E-07, .209225E-07, .358885E-08, .368880E-09,
761 + .148929E-10, .611719E-13, .000000E+00, .200975E+05,
762 + .191415E+05, .151250E+05, .119486E+05, .943938E+04,
763 + .745535E+04, .588844E+04, .464972E+04, .367171E+04,
764 + .289869E+04, .228853E+04, .180635E+04, .142588E+04 /
765 DATA (UPDI(I),I=2653,2704) /
766 + .112526E+04, .888128E+03, .700797E+03, .553073E+03,
767 + .436390E+03, .344402E+03, .271756E+03, .214507E+03,
768 + .169301E+03, .133680E+03, .105553E+03, .833911E+02,
769 + .658969E+02, .521160E+02, .410953E+02, .325480E+02,
770 + .257911E+02, .204651E+02, .162514E+02, .129266E+02,
771 + .102998E+02, .821910E+01, .656820E+01, .526173E+01,
772 + .422202E+01, .339658E+01, .273692E+01, .221149E+01,
773 + .178950E+01, .145107E+01, .117786E+01, .957555E+00,
774 + .778683E+00, .634152E+00, .515458E+00, .419454E+00,
775 + .340361E+00, .276044E+00, .223331E+00, .180292E+00,
776 + .145068E+00, .116366E+00, .929439E-01, .739321E-01,
777 + .585093E-01, .460808E-01, .360734E-01, .280775E-01,
778 + .217043E-01, .166624E-01, .127092E-01, .959994E-02 /
779 DATA (UPDI(I),I=2705,2756) /
780 + .718229E-02, .532129E-02, .389760E-02, .282047E-02,
781 + .201103E-02, .141067E-02, .968503E-03, .648697E-03,
782 + .418253E-03, .258145E-03, .146734E-03, .718602E-04,
783 + .234990E-04, .000000E+00, .000000E+00, .000000E+00,
784 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
785 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
786 + .000000E+00, .000000E+00, .520207E+05, .410700E+05,
787 + .320794E+05, .250490E+05, .195562E+05, .152627E+05,
788 + .119099E+05, .929032E+04, .724571E+04, .564899E+04,
789 + .440342E+04, .343118E+04, .267320E+04, .208184E+04,
790 + .162109E+04, .126181E+04, .982060E+03, .764028E+03,
791 + .594366E+03, .462213E+03, .359457E+03, .279462E+03,
792 + .217295E+03, .168922E+03, .131349E+03, .102135E+03 /
793 DATA (UPDI(I),I=2757,2808) /
794 + .794662E+02, .616170E+02, .479860E+02, .373837E+02,
795 + .291580E+02, .227586E+02, .177904E+02, .139324E+02,
796 + .109271E+02, .858410E+01, .676117E+01, .533581E+01,
797 + .422334E+01, .334976E+01, .266562E+01, .212550E+01,
798 + .169934E+01, .136094E+01, .109231E+01, .877551E+00,
799 + .706558E+00, .568108E+00, .457668E+00, .367849E+00,
800 + .295705E+00, .237269E+00, .190084E+00, .151872E+00,
801 + .121038E+00, .961050E-01, .760352E-01, .598829E-01,
802 + .469615E-01, .366252E-01, .284164E-01, .219083E-01,
803 + .167833E-01, .127817E-01, .964368E-02, .720947E-02,
804 + .533912E-02, .391000E-02, .282942E-02, .201723E-02,
805 + .141443E-02, .970133E-03, .648326E-03, .416217E-03,
806 + .255127E-03, .143162E-03, .685240E-04, .213575E-04 /
807 DATA (UPDI(I),I=2809,2860) /
808 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
809 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
810 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
811 + .000000E+00, .924115E+05, .724258E+05, .561021E+05,
812 + .434402E+05, .336279E+05, .260209E+05, .201296E+05,
813 + .155651E+05, .120325E+05, .929730E+04, .718189E+04,
814 + .554509E+04, .428015E+04, .330209E+04, .254684E+04,
815 + .196331E+04, .151309E+04, .116549E+04, .897534E+03,
816 + .690831E+03, .531648E+03, .408956E+03, .314547E+03,
817 + .241838E+03, .185938E+03, .142933E+03, .109917E+03,
818 + .842046E+02, .647836E+02, .498507E+02, .383954E+02,
819 + .295893E+02, .228322E+02, .176499E+02, .136616E+02,
820 + .105919E+02, .823321E+01, .641304E+01, .501042E+01 /
821 DATA (UPDI(I),I=2861,2912) /
822 + .392364E+01, .308341E+01, .242886E+01, .191895E+01,
823 + .151934E+01, .120606E+01, .958742E+00, .764175E+00,
824 + .608512E+00, .485749E+00, .387020E+00, .308549E+00,
825 + .245646E+00, .195344E+00, .154996E+00, .122722E+00,
826 + .968479E-01, .761850E-01, .596843E-01, .465778E-01,
827 + .361656E-01, .279487E-01, .214736E-01, .164020E-01,
828 + .124624E-01, .938695E-02, .701122E-02, .519266E-02,
829 + .380771E-02, .276341E-02, .198013E-02, .139962E-02,
830 + .972161E-03, .662138E-03, .438261E-03, .282217E-03,
831 + .172922E-03, .993111E-04, .519365E-04, .268039E-04,
832 + .171262E-04, .106388E-04, .636839E-05, .365101E-05,
833 + .198629E-05, .101929E-05, .481255E-06, .206413E-06,
834 + .762546E-07, .201626E-07, .835994E-09, .000000E+00 /
835 DATA (UPDI(I),I=2913,2964) /
836 + .147713E+06, .115078E+06, .885349E+05, .680825E+05,
837 + .523390E+05, .402160E+05, .308912E+05, .237161E+05,
838 + .182015E+05, .139615E+05, .107054E+05, .820404E+04,
839 + .628482E+04, .481171E+04, .368251E+04, .281657E+04,
840 + .215345E+04, .164541E+04, .125676E+04, .959311E+03,
841 + .732037E+03, .558275E+03, .425645E+03, .324351E+03,
842 + .247117E+03, .188209E+03, .143372E+03, .108765E+03,
843 + .828578E+02, .631221E+02, .481208E+02, .366997E+02,
844 + .280192E+02, .214284E+02, .164061E+02, .125807E+02,
845 + .967130E+01, .745030E+01, .575670E+01, .445894E+01,
846 + .346629E+01, .270161E+01, .211228E+01, .165556E+01,
847 + .130129E+01, .102465E+01, .809259E+00, .638734E+00,
848 + .505578E+00, .399555E+00, .316071E+00, .249777E+00 /
849 DATA (UPDI(I),I=2965,3016) /
850 + .197224E+00, .155437E+00, .122281E+00, .959129E-01,
851 + .750115E-01, .584440E-01, .453734E-01, .350600E-01,
852 + .269714E-01, .206363E-01, .157019E-01, .118893E-01,
853 + .892784E-02, .665123E-02, .491631E-02, .360067E-02,
854 + .261237E-02, .187371E-02, .132790E-02, .927130E-03,
855 + .636882E-03, .427687E-03, .281778E-03, .179418E-03,
856 + .110235E-03, .653778E-04, .403146E-04, .278936E-04,
857 + .191340E-04, .129238E-04, .856175E-05, .551300E-05,
858 + .341056E-05, .197297E-05, .103083E-05, .451291E-06,
859 + .135517E-06, .113833E-07, .000000E+00, .164009E+06,
860 + .171310E+06, .131011E+06, .100141E+06, .765171E+05,
861 + .584341E+05, .446077E+05, .340330E+05, .259548E+05,
862 + .197820E+05, .150708E+05, .114743E+05, .873223E+04 /
863 DATA (UPDI(I),I=3017,3068) /
864 + .664098E+04, .504824E+04, .383481E+04, .291169E+04,
865 + .220918E+04, .167538E+04, .126963E+04, .961737E+03,
866 + .727995E+03, .550838E+03, .416517E+03, .314844E+03,
867 + .237871E+03, .179724E+03, .135192E+03, .102114E+03,
868 + .771182E+02, .582698E+02, .440396E+02, .333133E+02,
869 + .252401E+02, .191406E+02, .145369E+02, .110666E+02,
870 + .844223E+01, .645938E+01, .495461E+01, .381439E+01,
871 + .294461E+01, .228062E+01, .177110E+01, .137960E+01,
872 + .107684E+01, .843279E+00, .660122E+00, .518373E+00,
873 + .406533E+00, .319219E+00, .250483E+00, .196432E+00,
874 + .153802E+00, .120232E+00, .937366E-01, .728834E-01,
875 + .564714E-01, .436081E-01, .335253E-01, .256659E-01,
876 + .195478E-01, .148091E-01, .111677E-01, .835393E-02 /
877 DATA (UPDI(I),I=3069,3120) /
878 + .620219E-02, .457037E-02, .333881E-02, .241769E-02,
879 + .173221E-02, .122763E-02, .858544E-03, .592019E-03,
880 + .400568E-03, .267192E-03, .173733E-03, .110529E-03,
881 + .694117E-04, .455592E-04, .321890E-04, .225770E-04,
882 + .156032E-04, .105612E-04, .692930E-05, .434384E-05,
883 + .253076E-05, .131953E-05, .569363E-06, .166453E-06,
884 + .145059E-07, .000000E+00, .336489E+06, .259355E+06,
885 + .197088E+06, .149688E+06, .113639E+06, .862194E+05,
886 + .653858E+05, .495552E+05, .375390E+05, .284177E+05,
887 + .215016E+05, .162573E+05, .122855E+05, .927719E+04,
888 + .700154E+04, .528006E+04, .397949E+04, .299688E+04,
889 + .225553E+04, .169620E+04, .127483E+04, .957367E+03,
890 + .718549E+03, .538891E+03, .403944E+03, .302594E+03 /
891 DATA (UPDI(I),I=3121,3172) /
892 + .226642E+03, .168958E+03, .126465E+03, .946316E+02,
893 + .708293E+02, .530203E+02, .397135E+02, .297915E+02,
894 + .223631E+02, .168107E+02, .126644E+02, .956049E+01,
895 + .723800E+01, .549375E+01, .418517E+01, .319747E+01,
896 + .245105E+01, .188437E+01, .145332E+01, .112348E+01,
897 + .871557E+00, .676036E+00, .526172E+00, .409112E+00,
898 + .318572E+00, .247977E+00, .192955E+00, .149951E+00,
899 + .116366E+00, .900863E-01, .695655E-01, .535446E-01,
900 + .410796E-01, .313830E-01, .238763E-01, .180742E-01,
901 + .136087E-01, .101995E-01, .758114E-02, .559172E-02,
902 + .409195E-02, .296716E-02, .213087E-02, .151261E-02,
903 + .106044E-02, .732181E-03, .497006E-03, .329836E-03,
904 + .214662E-03, .135186E-03, .824941E-04, .491666E-04 /
905 DATA (UPDI(I),I=3173,3224) /
906 + .302696E-04, .198458E-04, .128358E-04, .815010E-05,
907 + .506845E-05, .306636E-05, .178921E-05, .981617E-06,
908 + .490558E-06, .206317E-06, .596740E-07, .495448E-08,
909 + .000000E+00, .490333E+06, .376005E+06, .284043E+06,
910 + .214446E+06, .161822E+06, .122032E+06, .919776E+05,
911 + .692778E+05, .521511E+05, .392303E+05, .294931E+05,
912 + .221560E+05, .166338E+05, .124780E+05, .935431E+04,
913 + .700675E+04, .524472E+04, .392236E+04, .293133E+04,
914 + .218873E+04, .163311E+04, .121744E+04, .906933E+03,
915 + .675027E+03, .502087E+03, .373159E+03, .277260E+03,
916 + .204987E+03, .152157E+03, .112895E+03, .837683E+02,
917 + .621553E+02, .461373E+02, .342958E+02, .255045E+02,
918 + .189919E+02, .141708E+02, .105948E+02, .794319E+01 /
919 DATA (UPDI(I),I=3225,3276) /
920 + .597055E+01, .450420E+01, .340807E+01, .258743E+01,
921 + .197047E+01, .150556E+01, .115325E+01, .886666E+00,
922 + .681743E+00, .526089E+00, .405646E+00, .313310E+00,
923 + .241967E+00, .186832E+00, .144112E+00, .111019E+00,
924 + .853390E-01, .654432E-01, .500335E-01, .381325E-01,
925 + .289453E-01, .218833E-01, .164647E-01, .123224E-01,
926 + .918146E-02, .678516E-02, .497695E-02, .362264E-02,
927 + .261366E-02, .186819E-02, .132067E-02, .922710E-03,
928 + .635653E-03, .431189E-03, .286823E-03, .187845E-03,
929 + .119909E-03, .750237E-04, .466333E-04, .300607E-04,
930 + .202645E-04, .135388E-04, .891917E-05, .575909E-05,
931 + .361257E-05, .216887E-05, .121164E-05, .605165E-06,
932 + .248027E-06, .680466E-07, .598517E-08, .000000E+00 /
933 DATA (UPDI(I),I=3277,3328) /
934 + .690762E+06, .527160E+06, .396002E+06, .297289E+06,
935 + .223059E+06, .167247E+06, .125326E+06, .938437E+05,
936 + .702262E+05, .525116E+05, .392396E+05, .292981E+05,
937 + .218600E+05, .162962E+05, .121395E+05, .903491E+04,
938 + .671909E+04, .499210E+04, .370602E+04, .274856E+04,
939 + .203682E+04, .150789E+04, .111540E+04, .824262E+03,
940 + .608635E+03, .449000E+03, .331099E+03, .242892E+03,
941 + .178886E+03, .131674E+03, .969106E+02, .713144E+02,
942 + .524904E+02, .386859E+02, .285186E+02, .210490E+02,
943 + .155650E+02, .115323E+02, .856718E+01, .638082E+01,
944 + .476964E+01, .357605E+01, .269033E+01, .203048E+01,
945 + .153765E+01, .116755E+01, .889976E+00, .678525E+00,
946 + .519291E+00, .397171E+00, .304342E+00, .233236E+00 /
947 DATA (UPDI(I),I=3329,3380) /
948 + .178733E+00, .136851E+00, .104664E+00, .798875E-01,
949 + .608392E-01, .462001E-01, .349769E-01, .263781E-01,
950 + .198151E-01, .148158E-01, .110200E-01, .816166E-02,
951 + .599568E-02, .437267E-02, .316515E-02, .227164E-02,
952 + .161576E-02, .113728E-02, .791715E-03, .544087E-03,
953 + .368781E-03, .245813E-03, .161918E-03, .104621E-03,
954 + .668674E-04, .429295E-04, .285657E-04, .196282E-04,
955 + .133843E-04, .900427E-05, .592495E-05, .377540E-05,
956 + .228850E-05, .128221E-05, .635900E-06, .255774E-06,
957 + .682184E-07, .617645E-08, .000000E+00, .947063E+06,
958 + .719453E+06, .537560E+06, .401383E+06, .299523E+06,
959 + .223344E+06, .166433E+06, .123926E+06, .922122E+05,
960 + .685572E+05, .509335E+05, .378070E+05, .280419E+05 /
961 DATA (UPDI(I),I=3381,3432) /
962 + .207797E+05, .153858E+05, .113809E+05, .841131E+04,
963 + .621019E+04, .458099E+04, .337561E+04, .248516E+04,
964 + .182762E+04, .134282E+04, .985546E+03, .722680E+03,
965 + .529365E+03, .387558E+03, .282207E+03, .206297E+03,
966 + .150705E+03, .110062E+03, .803586E+02, .586750E+02,
967 + .428942E+02, .313597E+02, .229524E+02, .168283E+02,
968 + .123615E+02, .910377E+01, .672166E+01, .498065E+01,
969 + .370183E+01, .276083E+01, .206583E+01, .155109E+01,
970 + .116787E+01, .882872E+00, .667623E+00, .506861E+00,
971 + .384616E+00, .292450E+00, .222435E+00, .169193E+00,
972 + .128608E+00, .976568E-01, .740183E-01, .559820E-01,
973 + .422254E-01, .317553E-01, .237926E-01, .177582E-01,
974 + .131944E-01, .975298E-02, .717925E-02, .524231E-02 /
975 DATA (UPDI(I),I=3433,3484) /
976 + .380108E-02, .273603E-02, .195331E-02, .138255E-02,
977 + .968961E-03, .672175E-03, .460881E-03, .312210E-03,
978 + .208561E-03, .138168E-03, .902915E-04, .587879E-04,
979 + .387110E-04, .263369E-04, .183261E-04, .126462E-04,
980 + .859776E-05, .569887E-05, .364392E-05, .220442E-05,
981 + .122562E-05, .598481E-06, .234857E-06, .607809E-07,
982 + .561580E-08, .000000E+00, .126918E+07, .959919E+06,
983 + .713528E+06, .530004E+06, .393425E+06, .291809E+06,
984 + .216288E+06, .160177E+06, .118535E+06, .876406E+05,
985 + .647477E+05, .477899E+05, .352440E+05, .259661E+05,
986 + .191136E+05, .140549E+05, .103255E+05, .757729E+04,
987 + .555517E+04, .406804E+04, .297607E+04, .217466E+04,
988 + .158745E+04, .115743E+04, .843056E+03, .613339E+03 /
989 DATA (UPDI(I),I=3485,3536) /
990 + .445937E+03, .322409E+03, .234004E+03, .169708E+03,
991 + .123026E+03, .891499E+02, .645965E+02, .468577E+02,
992 + .339868E+02, .246763E+02, .179453E+02, .130741E+02,
993 + .954897E+01, .699182E+01, .513763E+01, .378670E+01,
994 + .280063E+01, .207831E+01, .154766E+01, .115583E+01,
995 + .866786E+00, .650270E+00, .489846E+00, .368853E+00,
996 + .278350E+00, .210147E+00, .158683E+00, .119756E+00,
997 + .902938E-01, .679639E-01, .510522E-01, .382491E-01,
998 + .285744E-01, .212703E-01, .157737E-01, .116463E-01,
999 + .855506E-02, .625907E-02, .454302E-02, .327505E-02,
1000 + .234436E-02, .166503E-02, .117291E-02, .818688E-03,
1001 + .566106E-03, .387415E-03, .262423E-03, .175764E-03,
1002 + .117140E-03, .773888E-04, .512242E-04, .344217E-04 /
1003 DATA (UPDI(I),I=3537,3588) /
1004 + .237939E-04, .166930E-04, .115949E-04, .791732E-05,
1005 + .525238E-05, .334863E-05, .201014E-05, .110335E-05,
1006 + .528323E-06, .201685E-06, .505777E-07, .475370E-08,
1007 + .000000E+00, .166747E+07, .125582E+07, .928808E+06,
1008 + .686437E+06, .506954E+06, .374083E+06, .275830E+06,
1009 + .203201E+06, .149577E+06, .110001E+06, .808272E+05,
1010 + .593319E+05, .435139E+05, .318796E+05, .233338E+05,
1011 + .170599E+05, .124604E+05, .909037E+04, .662485E+04,
1012 + .482218E+04, .350625E+04, .254623E+04, .184703E+04,
1013 + .133813E+04, .968374E+03, .699875E+03, .505460E+03,
1014 + .362935E+03, .261605E+03, .188400E+03, .135605E+03,
1015 + .975559E+02, .701675E+02, .505200E+02, .363649E+02,
1016 + .262000E+02, .189048E+02, .136649E+02, .990109E+01 /
1017 DATA (UPDI(I),I=3589,3640) /
1018 + .719176E+01, .524213E+01, .383271E+01, .281192E+01,
1019 + .207004E+01, .152927E+01, .113311E+01, .843153E+00,
1020 + .627665E+00, .469231E+00, .350680E+00, .262684E+00,
1021 + .196882E+00, .147601E+00, .110608E+00, .828156E-01,
1022 + .619083E-01, .461893E-01, .343757E-01, .255120E-01,
1023 + .188681E-01, .139030E-01, .102009E-01, .744698E-02,
1024 + .541547E-02, .390747E-02, .280092E-02, .199417E-02,
1025 + .140925E-02, .988272E-03, .687229E-03, .473885E-03,
1026 + .323856E-03, .219489E-03, .147477E-03, .989141E-04,
1027 + .660423E-04, .443597E-04, .302966E-04, .211799E-04,
1028 + .149320E-04, .104001E-04, .710305E-05, .469710E-05,
1029 + .297438E-05, .176580E-05, .954109E-06, .447022E-06,
1030 + .165790E-06, .402861E-07, .384545E-08, .000000E+00 /
1031 DATA (UPDI(I),I=3641,3692) /
1032 + .215245E+07, .161443E+07, .118823E+07, .873869E+06,
1033 + .642186E+06, .471506E+06, .345910E+06, .253531E+06,
1034 + .185664E+06, .135829E+06, .992806E+05, .724904E+05,
1035 + .528784E+05, .385298E+05, .280460E+05, .203910E+05,
1036 + .148095E+05, .107425E+05, .778370E+04, .563257E+04,
1037 + .407122E+04, .293875E+04, .211878E+04, .152553E+04,
1038 + .109707E+04, .787830E+03, .565303E+03, .403205E+03,
1039 + .288696E+03, .206506E+03, .147614E+03, .105455E+03,
1040 + .753104E+02, .538333E+02, .384661E+02, .275084E+02,
1041 + .196997E+02, .141314E+02, .101606E+02, .732340E+01,
1042 + .529673E+01, .384258E+01, .279729E+01, .204336E+01,
1043 + .149794E+01, .110141E+01, .813372E+00, .600944E+00,
1044 + .445926E+00, .330817E+00, .246013E+00, .183074E+00 /
1045 DATA (UPDI(I),I=3693,3744) /
1046 + .136283E+00, .101418E+00, .754127E-01, .559929E-01,
1047 + .414969E-01, .306802E-01, .226212E-01, .166231E-01,
1048 + .121715E-01, .887520E-02, .643959E-02, .465506E-02,
1049 + .333937E-02, .238051E-02, .168606E-02, .118588E-02,
1050 + .828175E-03, .573986E-03, .394902E-03, .269671E-03,
1051 + .182987E-03, .123415E-03, .833279E-04, .562022E-04,
1052 + .382392E-04, .264520E-04, .186343E-04, .131666E-04,
1053 + .916893E-05, .624494E-05, .410488E-05, .257519E-05,
1054 + .150870E-05, .801026E-06, .366743E-06, .132075E-06,
1055 + .311179E-07, .301356E-08, .000000E+00, .273444E+07,
1056 + .204279E+07, .149640E+07, .109526E+07, .801007E+06,
1057 + .585259E+06, .427253E+06, .311598E+06, .227043E+06,
1058 + .165260E+06, .120173E+06, .872912E+05, .633414E+05 /
1059 DATA (UPDI(I),I=3745,3796) /
1060 + .459093E+05, .332385E+05, .240353E+05, .173605E+05,
1061 + .125231E+05, .902282E+04, .649209E+04, .466542E+04,
1062 + .334800E+04, .239954E+04, .171730E+04, .122746E+04,
1063 + .876000E+03, .624623E+03, .442640E+03, .314885E+03,
1064 + .223763E+03, .158885E+03, .112740E+03, .799596E+02,
1065 + .567594E+02, .402698E+02, .285919E+02, .203267E+02,
1066 + .144742E+02, .103301E+02, .739002E+01, .530482E+01,
1067 + .381953E+01, .275959E+01, .200070E+01, .145569E+01,
1068 + .106237E+01, .778770E+00, .571154E+00, .420751E+00,
1069 + .309896E+00, .228821E+00, .169088E+00, .125000E+00,
1070 + .923848E-01, .682306E-01, .503221E-01, .370482E-01,
1071 + .272130E-01, .199357E-01, .145571E-01, .105924E-01,
1072 + .767663E-02, .553652E-02, .397898E-02, .283832E-02 /
1073 DATA (UPDI(I),I=3797,3848) /
1074 + .201259E-02, .141844E-02, .993240E-03, .691039E-03,
1075 + .477577E-03, .328017E-03, .223968E-03, .152258E-03,
1076 + .103128E-03, .701055E-04, .477353E-04, .328385E-04,
1077 + .229377E-04, .162345E-04, .114709E-04, .796853E-05,
1078 + .540021E-05, .352111E-05, .218448E-05, .126108E-05,
1079 + .657128E-06, .293769E-06, .102718E-06, .234881E-07,
1080 + .230613E-08, .000000E+00, .644000E+04, .730682E+04,
1081 + .602053E+04, .496077E+04, .408765E+04, .336828E+04,
1082 + .277559E+04, .228726E+04, .188492E+04, .155341E+04,
1083 + .128026E+04, .105519E+04, .869743E+03, .716932E+03,
1084 + .591012E+03, .487247E+03, .401737E+03, .331269E+03,
1085 + .273193E+03, .225328E+03, .185877E+03, .153359E+03,
1086 + .126554E+03, .104457E+03, .862386E+02, .712176E+02 /
1087 DATA (UPDI(I),I=3849,3900) /
1088 + .588312E+02, .484848E+02, .400855E+02, .331561E+02,
1089 + .274382E+02, .227193E+02, .188238E+02, .156163E+02,
1090 + .129603E+02, .107671E+02, .895530E+01, .745792E+01,
1091 + .621964E+01, .519443E+01, .434613E+01, .364228E+01,
1092 + .305781E+01, .257168E+01, .216658E+01, .182820E+01,
1093 + .154560E+01, .130619E+01, .110465E+01, .931584E+00,
1094 + .783143E+00, .654240E+00, .541678E+00, .443369E+00,
1095 + .358098E+00, .285138E+00, .223847E+00, .173393E+00,
1096 + .132672E+00, .100385E+00, .751721E-01, .557349E-01,
1097 + .409162E-01, .297762E-01, .213948E-01, .151939E-01,
1098 + .106533E-01, .736515E-02, .501327E-02, .335397E-02,
1099 + .220117E-02, .141397E-02, .886485E-03, .540498E-03,
1100 + .320975E-03, .183490E-03, .100837E-03, .529431E-04 /
1101 DATA (UPDI(I),I=3901,3952) /
1102 + .263554E-04, .123204E-04, .534187E-05, .211694E-05,
1103 + .744978E-06, .227623E-06, .573960E-07, .111031E-07,
1104 + .145378E-08, .100821E-09, .200727E-11, .000000E+00,
1105 + .000000E+00, .179126E+05, .236078E+05, .188054E+05,
1106 + .149814E+05, .119388E+05, .951508E+04, .758599E+04,
1107 + .604879E+04, .482486E+04, .384917E+04, .307204E+04,
1108 + .245223E+04, .195837E+04, .156428E+04, .125013E+04,
1109 + .999315E+03, .799272E+03, .639456E+03, .511918E+03,
1110 + .409962E+03, .328551E+03, .263421E+03, .211374E+03,
1111 + .169699E+03, .136365E+03, .109655E+03, .882720E+02,
1112 + .708981E+02, .571915E+02, .461757E+02, .373346E+02,
1113 + .302184E+02, .244972E+02, .198964E+02, .161813E+02,
1114 + .131807E+02, .107596E+02, .879920E+01, .721301E+01 /
1115 DATA (UPDI(I),I=3953,4004) /
1116 + .592421E+01, .487896E+01, .402641E+01, .333110E+01,
1117 + .276161E+01, .229473E+01, .190998E+01, .159334E+01,
1118 + .132836E+01, .110849E+01, .922102E+00, .764748E+00,
1119 + .630336E+00, .515246E+00, .416726E+00, .333055E+00,
1120 + .262820E+00, .204844E+00, .157801E+00, .120296E+00,
1121 + .908239E-01, .679773E-01, .504527E-01, .371359E-01,
1122 + .271445E-01, .196287E-01, .140566E-01, .996283E-02,
1123 + .698026E-02, .482972E-02, .329354E-02, .220984E-02,
1124 + .145315E-02, .933392E-03, .579288E-03, .345768E-03,
1125 + .191795E-03, .935565E-04, .330906E-04, .000000E+00,
1126 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1127 + .000000E+00, .000000E+00, .000000E+00, .135525E-19,
1128 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
1129 DATA (UPDI(I),I=4005,4056) /
1130 + .574804E+05, .455936E+05, .358071E+05, .281207E+05,
1131 + .220876E+05, .173488E+05, .136291E+05, .107071E+05,
1132 + .841347E+04, .661146E+04, .519677E+04, .408513E+04,
1133 + .321229E+04, .252627E+04, .198751E+04, .156392E+04,
1134 + .123118E+04, .969465E+03, .763801E+03, .601963E+03,
1135 + .474739E+03, .374569E+03, .295770E+03, .233679E+03,
1136 + .184797E+03, .146256E+03, .115893E+03, .916156E+02,
1137 + .727658E+02, .578567E+02, .460779E+02, .367457E+02,
1138 + .293578E+02, .235079E+02, .188547E+02, .151522E+02,
1139 + .122079E+02, .985746E+01, .798182E+01, .647820E+01,
1140 + .527448E+01, .430490E+01, .352352E+01, .289088E+01,
1141 + .237790E+01, .195957E+01, .161875E+01, .133631E+01,
1142 + .110429E+01, .909596E+00, .747038E+00, .609852E+00 /
1143 DATA (UPDI(I),I=4057,4108) /
1144 + .493927E+00, .396062E+00, .314090E+00, .246175E+00,
1145 + .190763E+00, .146253E+00, .111064E+00, .835997E-01,
1146 + .624273E-01, .462603E-01, .340159E-01, .248559E-01,
1147 + .179781E-01, .128853E-01, .914575E-02, .642092E-02,
1148 + .445443E-02, .304693E-02, .205117E-02, .135320E-02,
1149 + .871475E-03, .541287E-03, .322504E-03, .177385E-03,
1150 + .847574E-04, .280067E-04, .000000E+00, .000000E+00,
1151 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1152 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1153 + .000000E+00, .000000E+00, .000000E+00, .979373E+05,
1154 + .770042E+05, .598748E+05, .465490E+05, .361898E+05,
1155 + .281320E+05, .218694E+05, .169989E+05, .132142E+05,
1156 + .102712E+05, .798458E+04, .620669E+04, .482551E+04 /
1157 DATA (UPDI(I),I=4109,4160) /
1158 + .375163E+04, .291743E+04, .226882E+04, .176497E+04,
1159 + .137316E+04, .106877E+04, .832024E+03, .648083E+03,
1160 + .504976E+03, .393740E+03, .307155E+03, .239815E+03,
1161 + .187378E+03, .146583E+03, .114372E+03, .896772E+02,
1162 + .703934E+02, .553502E+02, .435840E+02, .343863E+02,
1163 + .271963E+02, .215485E+02, .171111E+02, .136257E+02,
1164 + .108773E+02, .871004E+01, .699313E+01, .563424E+01,
1165 + .455187E+01, .368885E+01, .299739E+01, .244229E+01,
1166 + .199396E+01, .163210E+01, .133496E+01, .109312E+01,
1167 + .892140E+00, .726031E+00, .587404E+00, .471647E+00,
1168 + .375139E+00, .295296E+00, .229921E+00, .177143E+00,
1169 + .135143E+00, .102201E+00, .766616E-01, .570833E-01,
1170 + .422053E-01, .309811E-01, .226140E-01, .163494E-01 /
1171 DATA (UPDI(I),I=4161,4212) /
1172 + .117219E-01, .833084E-02, .586350E-02, .408436E-02,
1173 + .281097E-02, .190939E-02, .127633E-02, .837799E-03,
1174 + .535773E-03, .334198E-03, .198968E-03, .111458E-03,
1175 + .565071E-04, .268048E-04, .171262E-04, .106388E-04,
1176 + .636839E-05, .365101E-05, .198629E-05, .101929E-05,
1177 + .481255E-06, .206413E-06, .762546E-07, .201626E-07,
1178 + .835994E-09, .000000E+00, .153303E+06, .119710E+06,
1179 + .923514E+05, .712272E+05, .549304E+05, .423514E+05,
1180 + .326509E+05, .251663E+05, .193966E+05, .149464E+05,
1181 + .115171E+05, .887303E+04, .683621E+04, .526617E+04,
1182 + .405711E+04, .312533E+04, .240796E+04, .185520E+04,
1183 + .142970E+04, .110187E+04, .849559E+03, .655154E+03,
1184 + .505509E+03, .390186E+03, .301389E+03, .232948E+03 /
1185 DATA (UPDI(I),I=4213,4264) /
1186 + .180250E+03, .139079E+03, .107846E+03, .837181E+02,
1187 + .650967E+02, .506907E+02, .395506E+02, .309382E+02,
1188 + .242463E+02, .190465E+02, .150061E+02, .118547E+02,
1189 + .939598E+01, .746876E+01, .595899E+01, .476864E+01,
1190 + .382873E+01, .308291E+01, .248965E+01, .201483E+01,
1191 + .163490E+01, .132563E+01, .107613E+01, .870654E+00,
1192 + .702458E+00, .563542E+00, .448810E+00, .354246E+00,
1193 + .276885E+00, .214219E+00, .164117E+00, .124590E+00,
1194 + .938149E-01, .701081E-01, .520335E-01, .383641E-01,
1195 + .280938E-01, .204662E-01, .147740E-01, .105819E-01,
1196 + .751793E-02, .529367E-02, .369271E-02, .254837E-02,
1197 + .173873E-02, .117033E-02, .776157E-03, .504283E-03,
1198 + .322185E-03, .199399E-03, .119365E-03, .685618E-04 /
1199 DATA (UPDI(I),I=4265,4316) /
1200 + .403155E-04, .278936E-04, .191340E-04, .129238E-04,
1201 + .856175E-05, .551300E-05, .341056E-05, .197297E-05,
1202 + .103083E-05, .451291E-06, .135517E-06, .113833E-07,
1203 + .000000E+00, .161689E+06, .175994E+06, .134870E+06,
1204 + .103320E+06, .791375E+05, .605932E+05, .463869E+05,
1205 + .354992E+05, .271630E+05, .207776E+05, .158914E+05,
1206 + .121505E+05, .928949E+04, .710022E+04, .542672E+04,
1207 + .414672E+04, .316875E+04, .242102E+04, .184996E+04,
1208 + .141350E+04, .108029E+04, .825685E+03, .631333E+03,
1209 + .482835E+03, .369479E+03, .282877E+03, .216792E+03,
1210 + .165633E+03, .127179E+03, .977529E+02, .752543E+02,
1211 + .580163E+02, .448132E+02, .347060E+02, .269284E+02,
1212 + .209447E+02, .163403E+02, .127844E+02, .100366E+02 /
1213 DATA (UPDI(I),I=4317,4368) /
1214 + .790375E+01, .624853E+01, .495573E+01, .394410E+01,
1215 + .314858E+01, .252120E+01, .202332E+01, .162823E+01,
1216 + .130928E+01, .105410E+01, .845773E+00, .676792E+00,
1217 + .538594E+00, .425617E+00, .333482E+00, .258889E+00,
1218 + .199063E+00, .151662E+00, .114567E+00, .858874E-01,
1219 + .639306E-01, .472801E-01, .347483E-01, .253723E-01,
1220 + .184361E-01, .132785E-01, .949299E-02, .673479E-02,
1221 + .473820E-02, .330469E-02, .228228E-02, .156014E-02,
1222 + .105387E-02, .702957E-03, .461026E-03, .298753E-03,
1223 + .189137E-03, .117406E-03, .716526E-04, .455601E-04,
1224 + .321890E-04, .225770E-04, .156032E-04, .105612E-04,
1225 + .692930E-05, .434384E-05, .253076E-05, .131953E-05,
1226 + .569363E-06, .166453E-06, .145059E-07, .000000E+00 /
1227 DATA (UPDI(I),I=4369,4420) /
1228 + .342216E+06, .264099E+06, .200997E+06, .152909E+06,
1229 + .116293E+06, .884063E+05, .671879E+05, .510401E+05,
1230 + .387625E+05, .294259E+05, .223323E+05, .169419E+05,
1231 + .128495E+05, .974196E+04, .738450E+04, .559560E+04,
1232 + .423947E+04, .321107E+04, .243198E+04, .184155E+04,
1233 + .139455E+04, .105597E+04, .799744E+03, .605740E+03,
1234 + .458972E+03, .347883E+03, .263905E+03, .199523E+03,
1235 + .151599E+03, .115293E+03, .878072E+02, .669658E+02,
1236 + .511642E+02, .391956E+02, .300805E+02, .231432E+02,
1237 + .178607E+02, .138250E+02, .107390E+02, .836921E+01,
1238 + .654892E+01, .514199E+01, .405196E+01, .320340E+01,
1239 + .254057E+01, .201959E+01, .160999E+01, .128245E+01,
1240 + .102286E+01, .813033E+00, .644577E+00, .508323E+00 /
1241 DATA (UPDI(I),I=4421,4472) /
1242 + .398194E+00, .309428E+00, .238376E+00, .182007E+00,
1243 + .137784E+00, .103483E+00, .771674E-01, .571603E-01,
1244 + .420799E-01, .307930E-01, .223897E-01, .162020E-01,
1245 + .116210E-01, .827292E-02, .584319E-02, .409132E-02,
1246 + .283819E-02, .194790E-02, .132148E-02, .884236E-03,
1247 + .582602E-03, .376025E-03, .238500E-03, .146653E-03,
1248 + .874739E-04, .506978E-04, .302703E-04, .198458E-04,
1249 + .128358E-04, .815010E-05, .506845E-05, .306636E-05,
1250 + .178921E-05, .981617E-06, .490558E-06, .206317E-06,
1251 + .596740E-07, .495448E-08, .000000E+00, .496134E+06,
1252 + .380811E+06, .288003E+06, .217708E+06, .164510E+06,
1253 + .124247E+06, .938025E+05, .707814E+05, .533900E+05,
1254 + .402510E+05, .303341E+05, .228489E+05, .172046E+05 /
1255 DATA (UPDI(I),I=4473,4524) /
1256 + .129483E+05, .974173E+04, .732587E+04, .550757E+04,
1257 + .413885E+04, .310961E+04, .233553E+04, .175396E+04,
1258 + .131691E+04, .988792E+03, .742372E+03, .557477E+03,
1259 + .418703E+03, .314691E+03, .235652E+03, .177339E+03,
1260 + .133563E+03, .100723E+03, .760548E+02, .575259E+02,
1261 + .436270E+02, .331425E+02, .252415E+02, .192833E+02,
1262 + .147767E+02, .113641E+02, .876939E+01, .679547E+01,
1263 + .528461E+01, .412503E+01, .323084E+01, .253871E+01,
1264 + .199965E+01, .157961E+01, .124675E+01, .985335E+00,
1265 + .776065E+00, .609709E+00, .476570E+00, .370119E+00,
1266 + .285269E+00, .218084E+00, .165337E+00, .124348E+00,
1267 + .928331E-01, .688409E-01, .507284E-01, .371622E-01,
1268 + .270684E-01, .195936E-01, .141181E-01, .100845E-01 /
1269 DATA (UPDI(I),I=4525,4576) /
1270 + .715110E-02, .503230E-02, .351174E-02, .242884E-02,
1271 + .166290E-02, .112618E-02, .753108E-03, .496667E-03,
1272 + .321773E-03, .205654E-03, .128335E-03, .785691E-04,
1273 + .476504E-04, .300614E-04, .202645E-04, .135388E-04,
1274 + .891917E-05, .575909E-05, .361257E-05, .216887E-05,
1275 + .121164E-05, .605165E-06, .248027E-06, .680466E-07,
1276 + .598517E-08, .000000E+00, .696639E+06, .532028E+06,
1277 + .400013E+06, .300593E+06, .225782E+06, .169490E+06,
1278 + .127174E+06, .953662E+05, .714805E+05, .535449E+05,
1279 + .400909E+05, .299993E+05, .224376E+05, .167719E+05,
1280 + .125314E+05, .935759E+04, .698479E+04, .521085E+04,
1281 + .388609E+04, .289676E+04, .215877E+04, .160820E+04,
1282 + .119789E+04, .892071E+03, .664357E+03, .494769E+03 /
1283 DATA (UPDI(I),I=4577,4628) /
1284 + .368672E+03, .273633E+03, .204094E+03, .152330E+03,
1285 + .113824E+03, .851529E+02, .638040E+02, .479331E+02,
1286 + .360677E+02, .272081E+02, .205875E+02, .156265E+02,
1287 + .119041E+02, .910017E+01, .698641E+01, .538332E+01,
1288 + .416393E+01, .323204E+01, .251699E+01, .196495E+01,
1289 + .153847E+01, .120348E+01, .942692E+00, .735868E+00,
1290 + .573030E+00, .444028E+00, .341953E+00, .261453E+00,
1291 + .198369E+00, .149333E+00, .111578E+00, .827933E-01,
1292 + .610457E-01, .447422E-01, .326087E-01, .236349E-01,
1293 + .170264E-01, .122116E-01, .868345E-02, .613111E-02,
1294 + .429690E-02, .298718E-02, .205895E-02, .140558E-02,
1295 + .949859E-03, .634540E-03, .418710E-03, .272167E-03,
1296 + .175171E-03, .110781E-03, .693752E-04, .436021E-04 /
1297 DATA (UPDI(I),I=4629,4680) /
1298 + .285662E-04, .196282E-04, .133843E-04, .900427E-05,
1299 + .592495E-05, .377540E-05, .228850E-05, .128221E-05,
1300 + .635900E-06, .255774E-06, .682184E-07, .617645E-08,
1301 + .000000E+00, .953015E+06, .724384E+06, .541622E+06,
1302 + .404730E+06, .302280E+06, .225615E+06, .168304E+06,
1303 + .125467E+06, .934821E+05, .696032E+05, .517950E+05,
1304 + .385165E+05, .286263E+05, .212610E+05, .157820E+05,
1305 + .117071E+05, .867982E+04, .643116E+04, .476281E+04,
1306 + .352517E+04, .260815E+04, .192872E+04, .142589E+04,
1307 + .105378E+04, .778699E+03, .575328E+03, .425245E+03,
1308 + .312999E+03, .231507E+03, .171328E+03, .126918E+03,
1309 + .941208E+02, .699003E+02, .520464E+02, .388106E+02,
1310 + .290132E+02, .217547E+02, .163633E+02, .123531E+02 /
1311 DATA (UPDI(I),I=4681,4732) /
1312 + .935885E+01, .712111E+01, .543874E+01, .416996E+01,
1313 + .320862E+01, .247712E+01, .191712E+01, .148808E+01,
1314 + .115395E+01, .896062E+00, .693379E+00, .535288E+00,
1315 + .411272E+00, .314124E+00, .238287E+00, .179445E+00,
1316 + .134144E+00, .995737E-01, .734328E-01, .538297E-01,
1317 + .392356E-01, .284436E-01, .205105E-01, .147017E-01,
1318 + .104930E-01, .742602E-02, .521943E-02, .364214E-02,
1319 + .252181E-02, .173186E-02, .117868E-02, .794714E-03,
1320 + .530320E-03, .350155E-03, .228363E-03, .147991E-03,
1321 + .947721E-04, .605505E-04, .391545E-04, .263373E-04,
1322 + .183261E-04, .126462E-04, .859776E-05, .569887E-05,
1323 + .364392E-05, .220442E-05, .122562E-05, .598481E-06,
1324 + .234857E-06, .607809E-07, .561580E-08, .000000E+00 /
1325 DATA (UPDI(I),I=4733,4784) /
1326 + .127521E+07, .964913E+06, .717642E+06, .533393E+06,
1327 + .396218E+06, .294109E+06, .218182E+06, .161737E+06,
1328 + .119820E+06, .886993E+05, .656195E+05, .485078E+05,
1329 + .358352E+05, .264527E+05, .195142E+05, .143846E+05,
1330 + .105967E+05, .780043E+04, .573868E+04, .421891E+04,
1331 + .310006E+04, .227651E+04, .167108E+04, .122606E+04,
1332 + .899335E+03, .659464E+03, .483709E+03, .353224E+03,
1333 + .259194E+03, .190278E+03, .139805E+03, .102820E+03,
1334 + .757204E+02, .559037E+02, .413304E+02, .306314E+02,
1335 + .227697E+02, .169790E+02, .127072E+02, .954446E+01,
1336 + .720021E+01, .545239E+01, .414503E+01, .316258E+01,
1337 + .242104E+01, .185794E+01, .143002E+01, .109950E+01,
1338 + .846540E+00, .649474E+00, .497160E+00, .378809E+00 /
1339 DATA (UPDI(I),I=4785,4836) /
1340 + .286996E+00, .216024E+00, .161484E+00, .119880E+00,
1341 + .884046E-01, .647939E-01, .472180E-01, .342229E-01,
1342 + .246751E-01, .176994E-01, .126213E-01, .896310E-02,
1343 + .631227E-02, .441584E-02, .306772E-02, .211537E-02,
1344 + .144741E-02, .982113E-03, .660756E-03, .440546E-03,
1345 + .291160E-03, .190585E-03, .124389E-03, .806310E-04,
1346 + .524555E-04, .347132E-04, .237942E-04, .166930E-04,
1347 + .115949E-04, .791732E-05, .525238E-05, .334863E-05,
1348 + .201014E-05, .110335E-05, .528323E-06, .201685E-06,
1349 + .505777E-07, .475370E-08, .000000E+00, .167358E+07,
1350 + .126088E+07, .932975E+06, .689870E+06, .509781E+06,
1351 + .376412E+06, .277748E+06, .204781E+06, .150878E+06,
1352 + .111072E+06, .817093E+05, .600581E+05, .441118E+05 /
1353 DATA (UPDI(I),I=4837,4888) /
1354 + .323717E+05, .237386E+05, .173930E+05, .127344E+05,
1355 + .931563E+04, .681001E+04, .497431E+04, .363119E+04,
1356 + .264878E+04, .193116E+04, .140710E+04, .102488E+04,
1357 + .746128E+03, .543285E+03, .393746E+03, .286750E+03,
1358 + .208896E+03, .152289E+03, .111118E+03, .811767E+02,
1359 + .594488E+02, .435923E+02, .320423E+02, .236215E+02,
1360 + .174684E+02, .129652E+02, .965772E+01, .722555E+01,
1361 + .542661E+01, .409159E+01, .309626E+01, .235086E+01,
1362 + .178926E+01, .136584E+01, .104142E+01, .795152E+00,
1363 + .604951E+00, .459245E+00, .347073E+00, .260869E+00,
1364 + .194863E+00, .144608E+00, .106614E+00, .781100E-01,
1365 + .568949E-01, .412164E-01, .297032E-01, .212983E-01,
1366 + .151955E-01, .107791E-01, .761578E-02, .533686E-02 /
1367 DATA (UPDI(I),I=4889,4940) /
1368 + .371582E-02, .256993E-02, .176491E-02, .120332E-02,
1369 + .814178E-03, .546755E-03, .364372E-03, .241176E-03,
1370 + .158529E-03, .104242E-03, .683760E-04, .452147E-04,
1371 + .304876E-04, .211802E-04, .149320E-04, .104001E-04,
1372 + .710305E-05, .469710E-05, .297438E-05, .176580E-05,
1373 + .954109E-06, .447022E-06, .165790E-06, .402861E-07,
1374 + .384545E-08, .000000E+00, .215864E+07, .161955E+07,
1375 + .119245E+07, .877345E+06, .645049E+06, .473864E+06,
1376 + .347852E+06, .255131E+06, .186981E+06, .136913E+06,
1377 + .100173E+06, .732250E+05, .534829E+05, .390271E+05,
1378 + .284551E+05, .207275E+05, .150861E+05, .109699E+05,
1379 + .797044E+04, .578590E+04, .419705E+04, .304196E+04,
1380 + .220337E+04, .159480E+04, .115376E+04, .834173E+03 /
1381 DATA (UPDI(I),I=4941,4992) /
1382 + .603148E+03, .433984E+03, .313771E+03, .226905E+03,
1383 + .164185E+03, .118894E+03, .861917E+02, .626341E+02,
1384 + .455684E+02, .332308E+02, .243033E+02, .178297E+02,
1385 + .131278E+02, .970089E+01, .720000E+01, .536438E+01,
1386 + .401248E+01, .301222E+01, .226879E+01, .171292E+01,
1387 + .129704E+01, .980899E+00, .742837E+00, .560516E+00,
1388 + .422056E+00, .316420E+00, .235979E+00, .174949E+00,
1389 + .128899E+00, .943850E-01, .687028E-01, .497336E-01,
1390 + .358149E-01, .256629E-01, .182991E-01, .129852E-01,
1391 + .916252E-02, .644050E-02, .449090E-02, .311213E-02,
1392 + .214300E-02, .146593E-02, .996128E-03, .672288E-03,
1393 + .450822E-03, .300463E-03, .199295E-03, .131624E-03,
1394 + .872257E-04, .578732E-04, .388297E-04, .265768E-04 /
1395 DATA (UPDI(I),I=4993,5044) /
1396 + .186345E-04, .131666E-04, .916893E-05, .624494E-05,
1397 + .410488E-05, .257519E-05, .150870E-05, .801026E-06,
1398 + .366743E-06, .132075E-06, .311179E-07, .301356E-08,
1399 + .000000E+00, .274071E+07, .204798E+07, .150067E+07,
1400 + .109878E+07, .803906E+06, .587646E+06, .429219E+06,
1401 + .313216E+06, .228375E+06, .166357E+06, .121076E+06,
1402 + .880340E+05, .639525E+05, .464119E+05, .336518E+05,
1403 + .243751E+05, .176397E+05, .127524E+05, .921107E+04,
1404 + .664656E+04, .479208E+04, .345179E+04, .248453E+04,
1405 + .178683E+04, .128429E+04, .922397E+03, .662455E+03,
1406 + .473357E+03, .339864E+03, .244044E+03, .175323E+03,
1407 + .126040E+03, .906999E+02, .654215E+02, .472384E+02,
1408 + .341878E+02, .248123E+02, .180637E+02, .131979E+02 /
1409 DATA (UPDI(I),I=5045,5096) /
1410 + .967757E+01, .712730E+01, .526921E+01, .391080E+01,
1411 + .291312E+01, .217703E+01, .163073E+01, .122507E+01,
1412 + .919052E+00, .690430E+00, .516777E+00, .386017E+00,
1413 + .287130E+00, .212497E+00, .156377E+00, .114401E+00,
1414 + .832036E-01, .601742E-01, .432916E-01, .309909E-01,
1415 + .220791E-01, .156561E-01, .110497E-01, .775558E-02,
1416 + .542375E-02, .376339E-02, .259596E-02, .178001E-02,
1417 + .121309E-02, .821809E-03, .553459E-03, .370790E-03,
1418 + .247290E-03, .164477E-03, .109202E-03, .729449E-04,
1419 + .489256E-04, .332441E-04, .230190E-04, .162346E-04,
1420 + .114709E-04, .796853E-05, .540021E-05, .352111E-05,
1421 + .218448E-05, .126108E-05, .657128E-06, .293769E-06,
1422 + .102718E-06, .234881E-07, .230613E-08, .000000E+00 /
1423 DATA (UPDI(I),I=5097,5148) /
1424 + .640992E+04, .728695E+04, .600228E+04, .494401E+04,
1425 + .407225E+04, .335415E+04, .276261E+04, .227535E+04,
1426 + .187398E+04, .154337E+04, .127105E+04, .104674E+04,
1427 + .861990E+03, .709820E+03, .584489E+03, .481267E+03,
1428 + .396256E+03, .326245E+03, .268590E+03, .221113E+03,
1429 + .182018E+03, .149827E+03, .123322E+03, .101500E+03,
1430 + .835354E+02, .687467E+02, .565734E+02, .464250E+02,
1431 + .382043E+02, .314381E+02, .258693E+02, .212862E+02,
1432 + .175144E+02, .144186E+02, .118638E+02, .976159E+01,
1433 + .803133E+01, .660653E+01, .543250E+01, .446386E+01,
1434 + .366500E+01, .300426E+01, .245731E+01, .200402E+01,
1435 + .162807E+01, .131629E+01, .105899E+01, .845293E+00,
1436 + .671063E+00, .528685E+00, .415106E+00, .325726E+00 /
1437 DATA (UPDI(I),I=5149,5200) /
1438 + .256736E+00, .204361E+00, .164900E+00, .134947E+00,
1439 + .111651E+00, .928897E-01, .772561E-01, .639157E-01,
1440 + .524134E-01, .425042E-01, .340377E-01, .269233E-01,
1441 + .209687E-01, .160940E-01, .121659E-01, .905111E-02,
1442 + .662136E-02, .475778E-02, .335346E-02, .231476E-02,
1443 + .156130E-02, .102610E-02, .658030E-03, .407729E-03,
1444 + .243835E-03, .140011E-03, .766957E-04, .397542E-04,
1445 + .192946E-04, .866073E-05, .350841E-05, .125896E-05,
1446 + .383601E-06, .934908E-07, .164873E-07, .174325E-08,
1447 + .724440E-10, .306493E-12, .000000E+00, .178789E+05,
1448 + .235829E+05, .187826E+05, .149606E+05, .119196E+05,
1449 + .949758E+04, .756996E+04, .603411E+04, .481143E+04,
1450 + .383688E+04, .306079E+04, .244195E+04, .194896E+04 /
1451 DATA (UPDI(I),I=5201,5252) /
1452 + .155568E+04, .124227E+04, .992132E+03, .792711E+03,
1453 + .633465E+03, .506450E+03, .404973E+03, .324002E+03,
1454 + .259274E+03, .207596E+03, .166258E+03, .133233E+03,
1455 + .106805E+03, .856803E+02, .685453E+02, .550532E+02,
1456 + .442330E+02, .355696E+02, .286149E+02, .230399E+02,
1457 + .185709E+02, .149747E+02, .120809E+02, .975524E+01,
1458 + .787976E+01, .636879E+01, .514650E+01, .415969E+01,
1459 + .335866E+01, .270877E+01, .217977E+01, .174951E+01,
1460 + .139882E+01, .111479E+01, .882685E+00, .696775E+00,
1461 + .546941E+00, .428951E+00, .336770E+00, .265848E+00,
1462 + .211730E+00, .170555E+00, .138824E+00, .113873E+00,
1463 + .936770E-01, .769642E-01, .628796E-01, .509649E-01,
1464 + .408902E-01, .324435E-01, .254629E-01, .197063E-01 /
1465 DATA (UPDI(I),I=5253,5304) /
1466 + .150477E-01, .113329E-01, .840965E-02, .614406E-02,
1467 + .441204E-02, .310966E-02, .214460E-02, .144346E-02,
1468 + .941044E-03, .593418E-03, .354331E-03, .195805E-03,
1469 + .945082E-04, .324805E-04, .000000E+00, .000000E+00,
1470 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1471 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1472 + .000000E+00, .000000E+00, .574489E+05, .455648E+05,
1473 + .357807E+05, .280966E+05, .220655E+05, .173286E+05,
1474 + .136107E+05, .106903E+05, .839809E+04, .659742E+04,
1475 + .518395E+04, .407342E+04, .320161E+04, .251652E+04,
1476 + .197862E+04, .155582E+04, .122380E+04, .962743E+03,
1477 + .757680E+03, .596394E+03, .469674E+03, .369965E+03,
1478 + .291587E+03, .229881E+03, .181350E+03, .143129E+03 /
1479 DATA (UPDI(I),I=5305,5356) /
1480 + .113059E+03, .890509E+02, .704426E+02, .557533E+02,
1481 + .441736E+02, .350221E+02, .277970E+02, .220938E+02,
1482 + .175726E+02, .139885E+02, .111497E+02, .889324E+01,
1483 + .710080E+01, .567088E+01, .453209E+01, .362005E+01,
1484 + .288972E+01, .230296E+01, .183180E+01, .145255E+01,
1485 + .114916E+01, .904127E+00, .710099E+00, .555268E+00,
1486 + .434351E+00, .340420E+00, .268325E+00, .213242E+00,
1487 + .171151E+00, .138543E+00, .112816E+00, .920192E-01,
1488 + .749157E-01, .606457E-01, .487210E-01, .387664E-01,
1489 + .305224E-01, .237884E-01, .182921E-01, .138853E-01,
1490 + .104009E-01, .767940E-02, .558434E-02, .399199E-02,
1491 + .280081E-02, .192220E-02, .128645E-02, .832381E-03,
1492 + .519536E-03, .305139E-03, .163868E-03, .744284E-04 /
1493 DATA (UPDI(I),I=5357,5408) /
1494 + .208139E-04, .000000E+00, .000000E+00, .000000E+00,
1495 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1496 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1497 + .000000E+00, .979014E+05, .769714E+05, .598448E+05,
1498 + .465216E+05, .361648E+05, .281092E+05, .218486E+05,
1499 + .169799E+05, .131969E+05, .102554E+05, .797019E+04,
1500 + .619358E+04, .481356E+04, .374076E+04, .290753E+04,
1501 + .225981E+04, .175678E+04, .136572E+04, .106201E+04,
1502 + .825889E+03, .642516E+03, .499929E+03, .389166E+03,
1503 + .303013E+03, .236066E+03, .183987E+03, .143517E+03,
1504 + .111606E+03, .871794E+02, .681389E+02, .533157E+02,
1505 + .417486E+02, .327300E+02, .257010E+02, .201977E+02,
1506 + .158898E+02, .125196E+02, .987367E+01, .779725E+01 /
1507 DATA (UPDI(I),I=5409,5460) /
1508 + .616086E+01, .487306E+01, .385388E+01, .304717E+01,
1509 + .240657E+01, .189800E+01, .149324E+01, .117299E+01,
1510 + .917079E+00, .716487E+00, .557863E+00, .434916E+00,
1511 + .339935E+00, .267236E+00, .211700E+00, .169176E+00,
1512 + .136159E+00, .110094E+00, .890880E-01, .719249E-01,
1513 + .577392E-01, .460132E-01, .363353E-01, .284078E-01,
1514 + .220000E-01, .168198E-01, .127032E-01, .947474E-02,
1515 + .697191E-02, .505819E-02, .361235E-02, .253649E-02,
1516 + .174662E-02, .117692E-02, .771028E-03, .491590E-03,
1517 + .299746E-03, .172804E-03, .916018E-04, .421460E-04,
1518 + .171292E-04, .106387E-04, .636838E-05, .365100E-05,
1519 + .198629E-05, .101929E-05, .481254E-06, .206413E-06,
1520 + .762545E-07, .201626E-07, .835991E-09, .000000E+00 /
1521 DATA (UPDI(I),I=5461,5512) /
1522 + .153262E+06, .119673E+06, .923177E+05, .711965E+05,
1523 + .549024E+05, .423259E+05, .326277E+05, .251451E+05,
1524 + .193773E+05, .149288E+05, .115012E+05, .885850E+04,
1525 + .682300E+04, .525416E+04, .404619E+04, .311542E+04,
1526 + .239897E+04, .184704E+04, .142231E+04, .109518E+04,
1527 + .843497E+03, .649670E+03, .500552E+03, .385707E+03,
1528 + .297345E+03, .229299E+03, .176960E+03, .136119E+03,
1529 + .105181E+03, .813194E+02, .629385E+02, .487498E+02,
1530 + .378047E+02, .293672E+02, .228321E+02, .177724E+02,
1531 + .138567E+02, .108162E+02, .845556E+01, .661540E+01,
1532 + .518263E+01, .406086E+01, .318223E+01, .249190E+01,
1533 + .194951E+01, .152227E+01, .118762E+01, .922805E+00,
1534 + .717139E+00, .555858E+00, .431718E+00, .336319E+00 /
1535 DATA (UPDI(I),I=5513,5564) /
1536 + .263520E+00, .207964E+00, .165401E+00, .132342E+00,
1537 + .106275E+00, .853515E-01, .683688E-01, .544563E-01,
1538 + .430684E-01, .337656E-01, .262202E-01, .201788E-01,
1539 + .153378E-01, .115228E-01, .855385E-02, .626877E-02,
1540 + .453308E-02, .322972E-02, .226524E-02, .156073E-02,
1541 + .105465E-02, .695420E-03, .448631E-03, .279344E-03,
1542 + .167223E-03, .951523E-04, .509556E-04, .278968E-04,
1543 + .191340E-04, .129238E-04, .856174E-05, .551300E-05,
1544 + .341056E-05, .197297E-05, .103083E-05, .451291E-06,
1545 + .135517E-06, .113833E-07, .000000E+00, .161644E+06,
1546 + .175953E+06, .134833E+06, .103286E+06, .791064E+05,
1547 + .605649E+05, .463612E+05, .354758E+05, .271417E+05,
1548 + .207583E+05, .158738E+05, .121345E+05, .927499E+04 /
1549 DATA (UPDI(I),I=5565,5616) /
1550 + .708706E+04, .541478E+04, .413590E+04, .315895E+04,
1551 + .241215E+04, .184193E+04, .140625E+04, .107374E+04,
1552 + .819769E+03, .625995E+03, .478024E+03, .365145E+03,
1553 + .278976E+03, .213283E+03, .162484E+03, .124352E+03,
1554 + .952151E+02, .729774E+02, .559746E+02, .429824E+02,
1555 + .330638E+02, .254551E+02, .196221E+02, .151516E+02,
1556 + .117146E+02, .907212E+01, .703267E+01, .546014E+01,
1557 + .424106E+01, .329542E+01, .255971E+01, .198719E+01,
1558 + .154052E+01, .119389E+01, .922074E+00, .712766E+00,
1559 + .549904E+00, .425364E+00, .330144E+00, .257712E+00,
1560 + .202529E+00, .160274E+00, .127485E+00, .101690E+00,
1561 + .810822E-01, .644655E-01, .509671E-01, .400178E-01,
1562 + .311575E-01, .240361E-01, .183839E-01, .138923E-01 /
1563 DATA (UPDI(I),I=5617,5668) /
1564 + .103806E-01, .766793E-02, .559462E-02, .402999E-02,
1565 + .286228E-02, .200305E-02, .137873E-02, .932317E-03,
1566 + .616800E-03, .400678E-03, .252759E-03, .154863E-03,
1567 + .918078E-04, .530182E-04, .321920E-04, .225770E-04,
1568 + .156032E-04, .105612E-04, .692929E-05, .434384E-05,
1569 + .253076E-05, .131953E-05, .569362E-06, .166453E-06,
1570 + .145059E-07, .000000E+00, .342165E+06, .264053E+06,
1571 + .200955E+06, .152871E+06, .116258E+06, .883746E+05,
1572 + .671590E+05, .510139E+05, .387388E+05, .294043E+05,
1573 + .223128E+05, .169241E+05, .128334E+05, .972741E+04,
1574 + .737133E+04, .558368E+04, .422870E+04, .320134E+04,
1575 + .242320E+04, .183363E+04, .138741E+04, .104953E+04,
1576 + .793956E+03, .600536E+03, .454297E+03, .343686E+03 /
1577 DATA (UPDI(I),I=5669,5720) /
1578 + .260141E+03, .196156E+03, .148584E+03, .112595E+03,
1579 + .853950E+02, .648101E+02, .492380E+02, .374742E+02,
1580 + .285422E+02, .217680E+02, .166300E+02, .127227E+02,
1581 + .975028E+01, .748117E+01, .575006E+01, .442266E+01,
1582 + .340390E+01, .261989E+01, .201620E+01, .155020E+01,
1583 + .119226E+01, .914401E+00, .702425E+00, .538914E+00,
1584 + .414773E+00, .320414E+00, .248912E+00, .194578E+00,
1585 + .153040E+00, .120883E+00, .956775E-01, .756622E-01,
1586 + .596470E-01, .467600E-01, .364094E-01, .281198E-01,
1587 + .215220E-01, .163358E-01, .122516E-01, .908682E-02,
1588 + .666228E-02, .482420E-02, .344768E-02, .242822E-02,
1589 + .168363E-02, .114677E-02, .765879E-03, .499076E-03,
1590 + .318043E-03, .195596E-03, .115748E-03, .653593E-04 /
1591 DATA (UPDI(I),I=5721,5772) /
1592 + .353489E-04, .198484E-04, .128358E-04, .815009E-05,
1593 + .506845E-05, .306636E-05, .178921E-05, .981616E-06,
1594 + .490557E-06, .206317E-06, .596740E-07, .495447E-08,
1595 + .000000E+00, .496077E+06, .380759E+06, .287955E+06,
1596 + .217665E+06, .164471E+06, .124211E+06, .937705E+05,
1597 + .707523E+05, .533636E+05, .402271E+05, .303125E+05,
1598 + .228293E+05, .171869E+05, .129323E+05, .972726E+04,
1599 + .731281E+04, .549579E+04, .412823E+04, .310004E+04,
1600 + .232691E+04, .174622E+04, .130996E+04, .982546E+03,
1601 + .736771E+03, .552458E+03, .414209E+03, .310672E+03,
1602 + .232067E+03, .174138E+03, .130709E+03, .981784E+02,
1603 + .737885E+02, .555080E+02, .418303E+02, .315432E+02,
1604 + .238176E+02, .180148E+02, .136459E+02, .103550E+02 /
1605 DATA (UPDI(I),I=5773,5824) /
1606 + .786811E+01, .598967E+01, .456392E+01, .348058E+01,
1607 + .265535E+01, .202620E+01, .154541E+01, .117967E+01,
1608 + .898460E+00, .685815E+00, .523142E+00, .400499E+00,
1609 + .307823E+00, .237889E+00, .184917E+00, .144522E+00,
1610 + .113353E+00, .890303E-01, .698394E-01, .546024E-01,
1611 + .424542E-01, .327896E-01, .251262E-01, .190846E-01,
1612 + .143800E-01, .107085E-01, .788851E-02, .574623E-02,
1613 + .413538E-02, .293834E-02, .205857E-02, .142066E-02,
1614 + .963993E-03, .642156E-03, .418260E-03, .267211E-03,
1615 + .165614E-03, .996499E-04, .581402E-04, .334207E-04,
1616 + .202667E-04, .135388E-04, .891917E-05, .575908E-05,
1617 + .361257E-05, .216887E-05, .121164E-05, .605165E-06,
1618 + .248026E-06, .680465E-07, .598517E-08, .000000E+00 /
1619 DATA (UPDI(I),I=5825,5876) /
1620 + .696575E+06, .531970E+06, .399961E+06, .300545E+06,
1621 + .225739E+06, .169451E+06, .127139E+06, .953340E+05,
1622 + .714513E+05, .535186E+05, .400671E+05, .299778E+05,
1623 + .224182E+05, .167544E+05, .125156E+05, .934334E+04,
1624 + .697196E+04, .519931E+04, .387571E+04, .288744E+04,
1625 + .215040E+04, .160070E+04, .119118E+04, .886066E+03,
1626 + .658989E+03, .489976E+03, .364397E+03, .269831E+03,
1627 + .200709E+03, .149321E+03, .111151E+03, .827795E+02,
1628 + .616982E+02, .460651E+02, .344114E+02, .257396E+02,
1629 + .192851E+02, .144711E+02, .108784E+02, .818932E+01,
1630 + .617713E+01, .466448E+01, .352597E+01, .266706E+01,
1631 + .201842E+01, .152742E+01, .115736E+01, .875402E+00,
1632 + .663982E+00, .503524E+00, .383371E+00, .293098E+00 /
1633 DATA (UPDI(I),I=5877,5928) /
1634 + .225278E+00, .174093E+00, .135186E+00, .105284E+00,
1635 + .820669E-01, .638694E-01, .495326E-01, .382038E-01,
1636 + .292736E-01, .222595E-01, .167803E-01, .125521E-01,
1637 + .928134E-02, .679086E-02, .491444E-02, .351487E-02,
1638 + .248286E-02, .173016E-02, .118836E-02, .803297E-03,
1639 + .533760E-03, .347525E-03, .222604E-03, .139038E-03,
1640 + .849931E-04, .510520E-04, .307779E-04, .196299E-04,
1641 + .133843E-04, .900426E-05, .592495E-05, .377540E-05,
1642 + .228850E-05, .128221E-05, .635900E-06, .255774E-06,
1643 + .682184E-07, .617645E-08, .000000E+00, .952944E+06,
1644 + .724320E+06, .541564E+06, .404677E+06, .302232E+06,
1645 + .225572E+06, .168265E+06, .125432E+06, .934500E+05,
1646 + .695742E+05, .517689E+05, .384930E+05, .286050E+05 /
1647 DATA (UPDI(I),I=5929,5980) /
1648 + .212418E+05, .157648E+05, .116916E+05, .866590E+04,
1649 + .641866E+04, .475160E+04, .351512E+04, .259915E+04,
1650 + .192067E+04, .141871E+04, .104737E+04, .772980E+03,
1651 + .570234E+03, .420715E+03, .308980E+03, .227941E+03,
1652 + .168167E+03, .124118E+03, .916440E+02, .677106E+02,
1653 + .501112E+02, .371015E+02, .275044E+02, .204226E+02,
1654 + .151873E+02, .113147E+02, .844206E+01, .631172E+01,
1655 + .472480E+01, .354120E+01, .265644E+01, .199431E+01,
1656 + .149763E+01, .112658E+01, .846324E+00, .637871E+00,
1657 + .480866E+00, .364074E+00, .276825E+00, .211575E+00,
1658 + .162526E+00, .125382E+00, .969622E-01, .750148E-01,
1659 + .579288E-01, .445714E-01, .341077E-01, .259325E-01,
1660 + .195700E-01, .146437E-01, .108754E-01, .798526E-02 /
1661 DATA (UPDI(I),I=5981,6032) /
1662 + .580321E-02, .417251E-02, .296586E-02, .208292E-02,
1663 + .144381E-02, .987109E-03, .664831E-03, .440772E-03,
1664 + .286974E-03, .184375E-03, .116080E-03, .720473E-04,
1665 + .444074E-04, .277894E-04, .183274E-04, .126462E-04,
1666 + .859775E-05, .569886E-05, .364392E-05, .220442E-05,
1667 + .122562E-05, .598480E-06, .234857E-06, .607809E-07,
1668 + .561580E-08, .000000E+00, .127513E+07, .964842E+06,
1669 + .717578E+06, .533335E+06, .396165E+06, .294061E+06,
1670 + .218139E+06, .161698E+06, .119785E+06, .886676E+05,
1671 + .655910E+05, .484821E+05, .358120E+05, .264319E+05,
1672 + .194955E+05, .143678E+05, .105817E+05, .778695E+04,
1673 + .572661E+04, .420812E+04, .309041E+04, .226791E+04,
1674 + .166341E+04, .121923E+04, .893262E+03, .654069E+03 /
1675 DATA (UPDI(I),I=6033,6084) /
1676 + .478923E+03, .348992E+03, .255449E+03, .186968E+03,
1677 + .136883E+03, .100244E+03, .734510E+02, .539057E+02,
1678 + .395730E+02, .290866E+02, .214121E+02, .157865E+02,
1679 + .116600E+02, .862532E+01, .639399E+01, .474628E+01,
1680 + .352799E+01, .262528E+01, .195556E+01, .145754E+01,
1681 + .108865E+01, .812333E+00, .608406E+00, .455932E+00,
1682 + .343240E+00, .259528E+00, .197217E+00, .150576E+00,
1683 + .115401E+00, .886181E-01, .680529E-01, .521526E-01,
1684 + .398171E-01, .302353E-01, .228137E-01, .170885E-01,
1685 + .126937E-01, .936049E-02, .682551E-02, .492738E-02,
1686 + .352017E-02, .248703E-02, .173677E-02, .119775E-02,
1687 + .815317E-03, .547327E-03, .362240E-03, .235976E-03,
1688 + .152169E-03, .966144E-04, .608640E-04, .383915E-04 /
1689 DATA (UPDI(I),I=6085,6136) /
1690 + .247448E-04, .166940E-04, .115949E-04, .791732E-05,
1691 + .525238E-05, .334863E-05, .201014E-05, .110335E-05,
1692 + .528323E-06, .201685E-06, .505777E-07, .475370E-08,
1693 + .000000E+00, .167349E+07, .126080E+07, .932904E+06,
1694 + .689805E+06, .509723E+06, .376359E+06, .277701E+06,
1695 + .204739E+06, .150840E+06, .111038E+06, .816782E+05,
1696 + .600302E+05, .440866E+05, .323491E+05, .237184E+05,
1697 + .173749E+05, .127181E+05, .930113E+04, .679705E+04,
1698 + .496274E+04, .362088E+04, .263961E+04, .192300E+04,
1699 + .139985E+04, .101845E+04, .740430E+03, .538244E+03,
1700 + .389302E+03, .282829E+03, .205441E+03, .149249E+03,
1701 + .108448E+03, .788324E+02, .573927E+02, .417912E+02,
1702 + .304660E+02, .222428E+02, .162635E+02, .119129E+02 /
1703 DATA (UPDI(I),I=6137,6188) /
1704 + .873974E+01, .642566E+01, .473108E+01, .348857E+01,
1705 + .257566E+01, .190404E+01, .140875E+01, .104489E+01,
1706 + .774512E+00, .576462E+00, .429430E+00, .321442E+00,
1707 + .241670E+00, .182576E+00, .138541E+00, .105480E+00,
1708 + .804350E-01, .613181E-01, .466394E-01, .353379E-01,
1709 + .266316E-01, .199448E-01, .148305E-01, .109374E-01,
1710 + .800931E-02, .580060E-02, .416014E-02, .295349E-02,
1711 + .207439E-02, .144074E-02, .988811E-03, .670412E-03,
1712 + .448793E-03, .296698E-03, .193528E-03, .125352E-03,
1713 + .803008E-04, .513249E-04, .330466E-04, .218006E-04,
1714 + .149328E-04, .104001E-04, .710305E-05, .469710E-05,
1715 + .297438E-05, .176580E-05, .954108E-06, .447022E-06,
1716 + .165790E-06, .402861E-07, .384545E-08, .000000E+00 /
1717 DATA (UPDI(I),I=6189,6240) /
1718 + .215854E+07, .161947E+07, .119238E+07, .877275E+06,
1719 + .644985E+06, .473807E+06, .347801E+06, .255084E+06,
1720 + .186939E+06, .136876E+06, .100139E+06, .731947E+05,
1721 + .534558E+05, .390028E+05, .284333E+05, .207080E+05,
1722 + .150687E+05, .109543E+05, .795657E+04, .577355E+04,
1723 + .418607E+04, .303220E+04, .219471E+04, .158713E+04,
1724 + .114697E+04, .828174E+03, .597856E+03, .429330E+03,
1725 + .309678E+03, .223310E+03, .161032E+03, .116134E+03,
1726 + .837774E+02, .605249E+02, .437284E+02, .316277E+02,
1727 + .229079E+02, .166165E+02, .120743E+02, .878752E+01,
1728 + .640946E+01, .468200E+01, .342557E+01, .250991E+01,
1729 + .184169E+01, .135287E+01, .996599E+00, .733889E+00,
1730 + .542853E+00, .401998E+00, .299182E+00, .223649E+00 /
1731 DATA (UPDI(I),I=6241,6292) /
1732 + .167967E+00, .126667E+00, .958059E-01, .725519E-01,
1733 + .549099E-01, .414573E-01, .311777E-01, .233224E-01,
1734 + .173387E-01, .128003E-01, .937366E-02, .681729E-02,
1735 + .490446E-02, .349500E-02, .246622E-02, .172234E-02,
1736 + .119006E-02, .813120E-03, .549350E-03, .366935E-03,
1737 + .242484E-03, .158492E-03, .103191E-03, .667217E-04,
1738 + .432416E-04, .283461E-04, .190382E-04, .131671E-04,
1739 + .916893E-05, .624494E-05, .410487E-05, .257519E-05,
1740 + .150870E-05, .801026E-06, .366743E-06, .132075E-06,
1741 + .311179E-07, .301356E-08, .000000E+00, .274060E+07,
1742 + .204789E+07, .150059E+07, .109871E+07, .803837E+06,
1743 + .587584E+06, .429163E+06, .313166E+06, .228330E+06,
1744 + .166316E+06, .121039E+06, .880013E+05, .639232E+05 /
1745 DATA (UPDI(I),I=6293,6344) /
1746 + .463857E+05, .336284E+05, .243541E+05, .176210E+05,
1747 + .127358E+05, .919627E+04, .663340E+04, .478041E+04,
1748 + .344144E+04, .247537E+04, .177873E+04, .127714E+04,
1749 + .916097E+03, .656913E+03, .468498E+03, .335603E+03,
1750 + .240314E+03, .172063E+03, .123195E+03, .882211E+02,
1751 + .632644E+02, .453648E+02, .325627E+02, .234048E+02,
1752 + .168465E+02, .121470E+02, .877212E+01, .634896E+01,
1753 + .460235E+01, .334186E+01, .243044E+01, .177048E+01,
1754 + .129146E+01, .944996E+00, .691412E+00, .508306E+00,
1755 + .374195E+00, .276890E+00, .205794E+00, .153643E+00,
1756 + .115145E+00, .865202E-01, .650698E-01, .488966E-01,
1757 + .366492E-01, .273601E-01, .203179E-01, .149965E-01,
1758 + .109932E-01, .799479E-02, .577557E-02, .412805E-02 /
1759 DATA (UPDI(I),I=6345,6396) /
1760 + .292348E-02, .205085E-02, .142452E-02, .979521E-03,
1761 + .666562E-03, .448979E-03, .299418E-03, .197933E-03,
1762 + .129738E-03, .849612E-04, .554562E-04, .364102E-04,
1763 + .242352E-04, .164966E-04, .114713E-04, .796853E-05,
1764 + .540021E-05, .352111E-05, .218448E-05, .126108E-05,
1765 + .657128E-06, .293769E-06, .102718E-06, .234881E-07,
1766 + .230613E-08, .000000E+00, .359538E+05, .301386E+05,
1767 + .251494E+05, .209861E+05, .175122E+05, .146133E+05,
1768 + .121944E+05, .101759E+05, .849167E+04, .708624E+04,
1769 + .591349E+04, .493490E+04, .411834E+04, .343696E+04,
1770 + .286840E+04, .239398E+04, .199811E+04, .166779E+04,
1771 + .139216E+04, .116217E+04, .970273E+03, .810152E+03,
1772 + .676548E+03, .565073E+03, .472062E+03, .394458E+03 /
1773 DATA (UPDI(I),I=6397,6448) /
1774 + .329709E+03, .274989E+03, .230052E+03, .192557E+03,
1775 + .161271E+03, .135167E+03, .113385E+03, .952590E+02,
1776 + .800930E+02, .674402E+02, .568813E+02, .480657E+02,
1777 + .407006E+02, .345390E+02, .293855E+02, .250609E+02,
1778 + .214266E+02, .183651E+02, .157793E+02, .135891E+02,
1779 + .117348E+02, .101442E+02, .879200E+01, .762469E+01,
1780 + .662385E+01, .575977E+01, .501172E+01, .436241E+01,
1781 + .379748E+01, .330496E+01, .287483E+01, .249866E+01,
1782 + .216932E+01, .188076E+01, .162782E+01, .140606E+01,
1783 + .121165E+01, .104203E+01, .892592E+00, .761930E+00,
1784 + .647851E+00, .548434E+00, .461988E+00, .387023E+00,
1785 + .322221E+00, .266412E+00, .218529E+00, .177614E+00,
1786 + .143170E+00, .113941E+00, .895130E-01, .692769E-01 /
1787 DATA (UPDI(I),I=6449,6500) /
1788 + .526860E-01, .392499E-01, .285278E-01, .201354E-01,
1789 + .136692E-01, .886556E-02, .540498E-02, .302815E-02,
1790 + .150098E-02, .613039E-03, .175848E-03, .212537E-04,
1791 + .000000E+00, .489425E+06, .390169E+06, .308096E+06,
1792 + .243207E+06, .192024E+06, .151562E+06, .119652E+06,
1793 + .944281E+05, .745386E+05, .588188E+05, .464251E+05,
1794 + .366306E+05, .289097E+05, .228086E+05, .179999E+05,
1795 + .142004E+05, .112062E+05, .884059E+04, .697666E+04,
1796 + .550414E+04, .434400E+04, .342753E+04, .270561E+04,
1797 + .213540E+04, .168624E+04, .133150E+04, .105205E+04,
1798 + .828702E+03, .655550E+03, .518769E+03, .411036E+03,
1799 + .325913E+03, .258858E+03, .205988E+03, .164205E+03,
1800 + .131164E+03, .105096E+03, .844440E+02, .681101E+02 /
1801 DATA (UPDI(I),I=6501,6552) /
1802 + .551228E+02, .448169E+02, .365793E+02, .299944E+02,
1803 + .246962E+02, .204257E+02, .169598E+02, .141496E+02,
1804 + .118326E+02, .993924E+01, .836349E+01, .706049E+01,
1805 + .597270E+01, .506159E+01, .429489E+01, .364783E+01,
1806 + .309978E+01, .263449E+01, .223847E+01, .190079E+01,
1807 + .161247E+01, .136599E+01, .115524E+01, .974781E+00,
1808 + .821068E+00, .688764E+00, .575801E+00, .479418E+00,
1809 + .397378E+00, .327666E+00, .268628E+00, .218766E+00,
1810 + .176858E+00, .141776E+00, .112528E+00, .885204E-01,
1811 + .686816E-01, .525400E-01, .395475E-01, .292014E-01,
1812 + .210864E-01, .148160E-01, .100856E-01, .657644E-02,
1813 + .408040E-02, .236466E-02, .124964E-02, .577066E-03,
1814 + .215913E-03, .560795E-04, .688920E-05, .000000E+00 /
1815 DATA (UPDI(I),I=6553,6604) /
1816 + .114807E+07, .905663E+06, .706691E+06, .551152E+06,
1817 + .429859E+06, .335085E+06, .261213E+06, .203516E+06,
1818 + .158567E+06, .123476E+06, .961522E+05, .748320E+05,
1819 + .582394E+05, .452993E+05, .352345E+05, .273895E+05,
1820 + .212913E+05, .165408E+05, .128506E+05, .997755E+04,
1821 + .774712E+04, .601177E+04, .466555E+04, .361890E+04,
1822 + .280748E+04, .217702E+04, .168860E+04, .130489E+04,
1823 + .101253E+04, .785681E+03, .610168E+03, .474053E+03,
1824 + .368791E+03, .287384E+03, .224268E+03, .175340E+03,
1825 + .137491E+03, .108111E+03, .853366E+02, .675976E+02,
1826 + .538034E+02, .430030E+02, .345421E+02, .278720E+02,
1827 + .226018E+02, .184088E+02, .150744E+02, .123775E+02,
1828 + .102148E+02, .844805E+01, .701317E+01, .583649E+01 /
1829 DATA (UPDI(I),I=6605,6656) /
1830 + .486780E+01, .406651E+01, .340140E+01, .284731E+01,
1831 + .238439E+01, .199664E+01, .167115E+01, .139755E+01,
1832 + .116722E+01, .973295E+00, .809707E+00, .672469E+00,
1833 + .556119E+00, .458288E+00, .376081E+00, .307184E+00,
1834 + .249545E+00, .201499E+00, .161566E+00, .128555E+00,
1835 + .101386E+00, .791193E-01, .611634E-01, .465980E-01,
1836 + .349720E-01, .258012E-01, .186509E-01, .131672E-01,
1837 + .902906E-02, .598741E-02, .379280E-02, .227938E-02,
1838 + .127405E-02, .645959E-03, .283970E-03, .100257E-03,
1839 + .245502E-04, .304347E-05, .000000E+00, .218804E+07,
1840 + .171184E+07, .132323E+07, .102221E+07, .789582E+06,
1841 + .609507E+06, .470442E+06, .362865E+06, .279848E+06,
1842 + .215675E+06, .166191E+06, .127968E+06, .985184E+05 /
1843 DATA (UPDI(I),I=6657,6708) /
1844 + .757895E+05, .582925E+05, .448004E+05, .344236E+05,
1845 + .264295E+05, .202873E+05, .155600E+05, .119316E+05,
1846 + .914192E+04, .700317E+04, .536069E+04, .410286E+04,
1847 + .313786E+04, .239983E+04, .182768E+04, .139753E+04,
1848 + .106834E+04, .817103E+03, .625046E+03, .478609E+03,
1849 + .367030E+03, .281777E+03, .216695E+03, .167103E+03,
1850 + .129207E+03, .100280E+03, .781056E+02, .611288E+02,
1851 + .480485E+02, .379599E+02, .301332E+02, .240444E+02,
1852 + .192758E+02, .155413E+02, .125670E+02, .102174E+02,
1853 + .832679E+01, .681363E+01, .559089E+01, .459855E+01,
1854 + .378940E+01, .312708E+01, .258301E+01, .213465E+01,
1855 + .176425E+01, .145751E+01, .120317E+01, .991931E+00,
1856 + .816478E+00, .670436E+00, .549577E+00, .448501E+00 /
1857 DATA (UPDI(I),I=6709,6760) /
1858 + .364682E+00, .295223E+00, .237830E+00, .190498E+00,
1859 + .151619E+00, .119785E+00, .938722E-01, .728805E-01,
1860 + .559530E-01, .425308E-01, .318328E-01, .234493E-01,
1861 + .169631E-01, .120082E-01, .829010E-02, .554874E-02,
1862 + .358427E-02, .220536E-02, .128317E-02, .691256E-03,
1863 + .335831E-03, .140302E-03, .466437E-04, .107506E-04,
1864 + .134385E-05, .000000E+00, .370078E+07, .287531E+07,
1865 + .220496E+07, .168972E+07, .129457E+07, .991120E+06,
1866 + .758602E+06, .580195E+06, .443619E+06, .338925E+06,
1867 + .258857E+06, .197540E+06, .150696E+06, .114861E+06,
1868 + .875141E+05, .666181E+05, .506910E+05, .385357E+05,
1869 + .292827E+05, .222301E+05, .168686E+05, .127877E+05,
1870 + .969002E+04, .733573E+04, .555128E+04, .419686E+04 /
1871 DATA (UPDI(I),I=6761,6812) /
1872 + .317218E+04, .238667E+04, .180271E+04, .136099E+04,
1873 + .102773E+04, .776041E+03, .586403E+03, .443708E+03,
1874 + .336011E+03, .254850E+03, .193785E+03, .147736E+03,
1875 + .113036E+03, .867927E+02, .669622E+02, .518891E+02,
1876 + .404154E+02, .316341E+02, .248921E+02, .196823E+02,
1877 + .156551E+02, .124898E+02, .100216E+02, .806118E+01,
1878 + .651201E+01, .527613E+01, .428560E+01, .348806E+01,
1879 + .284327E+01, .232018E+01, .189435E+01, .154688E+01,
1880 + .126264E+01, .102985E+01, .838865E+00, .682188E+00,
1881 + .553368E+00, .448089E+00, .361144E+00, .289962E+00,
1882 + .231736E+00, .184255E+00, .145622E+00, .114322E+00,
1883 + .890523E-01, .687802E-01, .526027E-01, .397565E-01,
1884 + .297330E-01, .218768E-01, .158279E-01, .112341E-01 /
1885 DATA (UPDI(I),I=6813,6864) /
1886 + .779333E-02, .526485E-02, .344216E-02, .216760E-02,
1887 + .129658E-02, .731111E-03, .380069E-03, .177221E-03,
1888 + .705492E-04, .221942E-04, .485566E-05, .609857E-06,
1889 + .000000E+00, .578771E+07, .446938E+07, .340334E+07,
1890 + .258960E+07, .196975E+07, .149708E+07, .113741E+07,
1891 + .863430E+06, .655176E+06, .496718E+06, .376413E+06,
1892 + .284985E+06, .215657E+06, .163038E+06, .123191E+06,
1893 + .929891E+05, .701513E+05, .528666E+05, .398167E+05,
1894 + .299551E+05, .225219E+05, .169142E+05, .126948E+05,
1895 + .951745E+04, .713100E+04, .533673E+04, .399225E+04,
1896 + .297176E+04, .222060E+04, .165823E+04, .123825E+04,
1897 + .924428E+03, .690452E+03, .516329E+03, .386333E+03,
1898 + .289476E+03, .217412E+03, .163699E+03, .123685E+03 /
1899 DATA (UPDI(I),I=6865,6916) /
1900 + .937782E+02, .714405E+02, .546636E+02, .420411E+02,
1901 + .324959E+02, .252526E+02, .197215E+02, .154956E+02,
1902 + .122129E+02, .968264E+01, .769637E+01, .614461E+01,
1903 + .492090E+01, .395118E+01, .317931E+01, .256227E+01,
1904 + .206734E+01, .166896E+01, .134757E+01, .108761E+01,
1905 + .877118E+00, .706392E+00, .567934E+00, .455398E+00,
1906 + .364496E+00, .290309E+00, .230298E+00, .181809E+00,
1907 + .142758E+00, .111387E+00, .863007E-01, .663188E-01,
1908 + .505090E-01, .380724E-01, .283415E-01, .208653E-01,
1909 + .150995E-01, .107352E-01, .747975E-02, .508747E-02,
1910 + .336491E-02, .215014E-02, .132069E-02, .768487E-03,
1911 + .420247E-03, .211007E-03, .945469E-04, .359386E-04,
1912 + .107379E-04, .224222E-05, .281765E-06, .000000E+00 /
1913 DATA (UPDI(I),I=6917,6968) /
1914 + .894472E+07, .686365E+07, .518831E+07, .391869E+07,
1915 + .295836E+07, .223147E+07, .168231E+07, .126716E+07,
1916 + .953929E+06, .717445E+06, .539259E+06, .404922E+06,
1917 + .303851E+06, .227767E+06, .170614E+06, .127660E+06,
1918 + .954476E+05, .712801E+05, .531893E+05, .396414E+05,
1919 + .295196E+05, .219545E+05, .163144E+05, .121079E+05,
1920 + .897843E+04, .664874E+04, .492048E+04, .362223E+04,
1921 + .267651E+04, .197606E+04, .145848E+04, .107605E+04,
1922 + .794028E+03, .586564E+03, .433424E+03, .320674E+03,
1923 + .237761E+03, .176711E+03, .131773E+03, .985999E+02,
1924 + .741222E+02, .559668E+02, .424735E+02, .323976E+02,
1925 + .248452E+02, .191498E+02, .148516E+02, .115540E+02,
1926 + .904342E+01, .709686E+01, .559462E+01, .442447E+01 /
1927 DATA (UPDI(I),I=6969,7020) /
1928 + .350843E+01, .278818E+01, .221937E+01, .176869E+01,
1929 + .141033E+01, .112476E+01, .896604E+00, .714144E+00,
1930 + .567986E+00, .450936E+00, .356994E+00, .282080E+00,
1931 + .221733E+00, .173562E+00, .135163E+00, .104662E+00,
1932 + .805040E-01, .614633E-01, .465225E-01, .348816E-01,
1933 + .258698E-01, .189339E-01, .136963E-01, .972919E-02,
1934 + .678311E-02, .462922E-02, .307995E-02, .198952E-02,
1935 + .123922E-02, .740377E-03, .417848E-03, .220910E-03,
1936 + .106794E-03, .458428E-04, .166014E-04, .470752E-05,
1937 + .939038E-06, .117199E-06, .000000E+00, .132434E+08,
1938 + .101016E+08, .758288E+07, .568716E+07, .426287E+07,
1939 + .319236E+07, .238917E+07, .178633E+07, .133469E+07,
1940 + .996215E+06, .743028E+06, .553589E+06, .412119E+06 /
1941 DATA (UPDI(I),I=7021,7072) /
1942 + .306450E+06, .227679E+06, .168951E+06, .125256E+06,
1943 + .927429E+05, .686027E+05, .506777E+05, .373982E+05,
1944 + .275600E+05, .202888E+05, .149148E+05, .109528E+05,
1945 + .803072E+04, .588350E+04, .428624E+04, .313406E+04,
1946 + .228931E+04, .167135E+04, .121952E+04, .889763E+03,
1947 + .649800E+03, .474561E+03, .346973E+03, .254182E+03,
1948 + .186634E+03, .137471E+03, .101599E+03, .754323E+02,
1949 + .562506E+02, .421584E+02, .317588E+02, .240540E+02,
1950 + .183115E+02, .140279E+02, .107797E+02, .833540E+01,
1951 + .646227E+01, .503335E+01, .393322E+01, .308190E+01,
1952 + .242028E+01, .190380E+01, .149933E+01, .118143E+01,
1953 + .931065E+00, .733383E+00, .577159E+00, .453507E+00,
1954 + .355670E+00, .278099E+00, .217002E+00, .168403E+00 /
1955 DATA (UPDI(I),I=7073,7124) /
1956 + .130104E+00, .999732E-01, .763594E-01, .579125E-01,
1957 + .435776E-01, .324930E-01, .239861E-01, .175034E-01,
1958 + .125947E-01, .895078E-02, .624000E-02, .426490E-02,
1959 + .284973E-02, .185354E-02, .116841E-02, .708675E-03,
1960 + .411261E-03, .224709E-03, .114577E-03, .531584E-04,
1961 + .217668E-04, .746651E-05, .199352E-05, .376107E-06,
1962 + .461013E-07, .000000E+00, .188908E+08, .143285E+08,
1963 + .106852E+08, .796081E+07, .592696E+07, .440842E+07,
1964 + .327651E+07, .243271E+07, .180477E+07, .133745E+07,
1965 + .990281E+06, .732375E+06, .541135E+06, .399337E+06,
1966 + .294402E+06, .216757E+06, .159419E+06, .117086E+06,
1967 + .858974E+05, .629244E+05, .460408E+05, .336360E+05,
1968 + .245435E+05, .178809E+05, .130108E+05, .945065E+04 /
1969 DATA (UPDI(I),I=7125,7176) /
1970 + .685805E+04, .494722E+04, .358167E+04, .259002E+04,
1971 + .187151E+04, .135136E+04, .975458E+03, .704716E+03,
1972 + .509006E+03, .368013E+03, .266544E+03, .193476E+03,
1973 + .140863E+03, .102896E+03, .755004E+02, .556408E+02,
1974 + .412102E+02, .306797E+02, .229638E+02, .172769E+02,
1975 + .130816E+02, .993544E+01, .759419E+01, .581987E+01,
1976 + .448122E+01, .346198E+01, .268191E+01, .208238E+01,
1977 + .161951E+01, .126105E+01, .982440E+00, .765465E+00,
1978 + .596071E+00, .463717E+00, .360154E+00, .279155E+00,
1979 + .215682E+00, .166280E+00, .127456E+00, .972367E-01,
1980 + .737614E-01, .555993E-01, .415984E-01, .308660E-01,
1981 + .226834E-01, .164943E-01, .118492E-01, .838691E-02,
1982 + .585897E-02, .401081E-02, .268888E-02, .176006E-02 /
1983 DATA (UPDI(I),I=7177,7228) /
1984 + .111980E-02, .689249E-03, .407330E-03, .229750E-03,
1985 + .121614E-03, .598485E-04, .266707E-04, .104281E-04,
1986 + .339299E-05, .854118E-06, .152142E-06, .179554E-07,
1987 + .000000E+00, .260947E+08, .196879E+08, .145903E+08,
1988 + .108018E+08, .799069E+07, .590505E+07, .436010E+07,
1989 + .321582E+07, .236969E+07, .174415E+07, .128249E+07,
1990 + .941850E+06, .690961E+06, .506233E+06, .370474E+06,
1991 + .270740E+06, .197618E+06, .144029E+06, .104838E+06,
1992 + .761906E+05, .552969E+05, .400666E+05, .289910E+05,
1993 + .209413E+05, .151051E+05, .108746E+05, .782016E+04,
1994 + .558869E+04, .400814E+04, .287078E+04, .205418E+04,
1995 + .146857E+04, .104935E+04, .750338E+03, .536292E+03,
1996 + .383633E+03, .274869E+03, .197350E+03, .142105E+03 /
1997 DATA (UPDI(I),I=7229,7280) /
1998 + .102653E+03, .744835E+02, .542780E+02, .397501E+02,
1999 + .292614E+02, .216571E+02, .161119E+02, .120643E+02,
2000 + .906112E+01, .684987E+01, .519178E+01, .395402E+01,
2001 + .302155E+01, .231540E+01, .177840E+01, .136820E+01,
2002 + .105388E+01, .812177E+00, .625953E+00, .482128E+00,
2003 + .370966E+00, .284935E+00, .218388E+00, .166821E+00,
2004 + .127138E+00, .963126E-01, .725993E-01, .543996E-01,
2005 + .404913E-01, .299049E-01, .218948E-01, .158695E-01,
2006 + .113750E-01, .805032E-02, .560927E-02, .385494E-02,
2007 + .259347E-02, .170696E-02, .109560E-02, .682521E-03,
2008 + .410650E-03, .236744E-03, .129954E-03, .667396E-04,
2009 + .317516E-04, .136177E-04, .509608E-05, .157709E-05,
2010 + .375089E-06, .628481E-07, .692347E-08, .000000E+00 /
2011 DATA (UPDI(I),I=7281,7332) /
2012 + .350495E+08, .263112E+08, .193825E+08, .142634E+08,
2013 + .104871E+08, .770210E+07, .565141E+07, .414188E+07,
2014 + .303250E+07, .221751E+07, .161979E+07, .118162E+07,
2015 + .860978E+06, .626460E+06, .455253E+06, .330339E+06,
2016 + .239380E+06, .173189E+06, .125124E+06, .902453E+05,
2017 + .649922E+05, .467226E+05, .335369E+05, .240280E+05,
2018 + .171877E+05, .122691E+05, .874701E+04, .619544E+04,
2019 + .440353E+04, .312525E+04, .221547E+04, .156891E+04,
2020 + .111022E+04, .786107E+03, .556248E+03, .393884E+03,
2021 + .279315E+03, .198461E+03, .141404E+03, .101068E+03,
2022 + .725529E+02, .523069E+02, .378965E+02, .275986E+02,
2023 + .202082E+02, .148738E+02, .110195E+02, .818869E+01,
2024 + .612552E+01, .459412E+01, .346248E+01, .261857E+01 /
2025 DATA (UPDI(I),I=7333,7384) /
2026 + .198592E+01, .150967E+01, .114954E+01, .876378E+00,
2027 + .668453E+00, .509884E+00, .388673E+00, .295951E+00,
2028 + .224937E+00, .170580E+00, .128906E+00, .971792E-01,
2029 + .728029E-01, .542592E-01, .401891E-01, .295611E-01,
2030 + .215680E-01, .155938E-01, .111567E-01, .788998E-02,
2031 + .550621E-02, .378063E-02, .255879E-02, .169377E-02,
2032 + .109583E-02, .690610E-03, .421892E-03, .248537E-03,
2033 + .140037E-03, .749653E-04, .374428E-04, .172696E-04,
2034 + .715211E-05, .257190E-05, .760452E-06, .171481E-06,
2035 + .268935E-07, .264088E-08, .000000E+00, .459258E+08,
2036 + .343107E+08, .251311E+08, .183870E+08, .134399E+08,
2037 + .981244E+07, .715670E+07, .521331E+07, .379346E+07,
2038 + .275670E+07, .200091E+07, .145030E+07, .104988E+07 /
2039 DATA (UPDI(I),I=7385,7436) /
2040 + .758872E+06, .547781E+06, .394779E+06, .284098E+06,
2041 + .204102E+06, .146404E+06, .104828E+06, .749362E+05,
2042 + .534667E+05, .380839E+05, .270732E+05, .192120E+05,
2043 + .136028E+05, .961784E+04, .675417E+04, .475950E+04,
2044 + .334841E+04, .235253E+04, .165088E+04, .115743E+04,
2045 + .811859E+03, .568980E+03, .398996E+03, .280157E+03,
2046 + .197081E+03, .139011E+03, .983518E+02, .698848E+02,
2047 + .498691E+02, .357607E+02, .257770E+02, .186819E+02,
2048 + .136104E+02, .998187E+01, .734266E+01, .543786E+01,
2049 + .403769E+01, .301304E+01, .225628E+01, .169442E+01,
2050 + .127553E+01, .961821E+00, .726154E+00, .548501E+00,
2051 + .414325E+00, .312756E+00, .235815E+00, .177467E+00,
2052 + .133246E+00, .996818E-01, .743870E-01, .551520E-01 /
2053 DATA (UPDI(I),I=7437,7488) /
2054 + .406720E-01, .298024E-01, .216808E-01, .156408E-01,
2055 + .111777E-01, .790194E-02, .551926E-02, .380247E-02,
2056 + .257589E-02, .171920E-02, .112130E-02, .714229E-03,
2057 + .442731E-03, .265732E-03, .153603E-03, .847922E-04,
2058 + .443910E-04, .216341E-04, .971087E-05, .390151E-05,
2059 + .135560E-05, .385371E-06, .828458E-07, .121174E-07,
2060 + .995135E-09, .000000E+00, .588612E+08, .437728E+08,
2061 + .318856E+08, .231995E+08, .168621E+08, .122410E+08,
2062 + .887646E+07, .642838E+07, .464992E+07, .335885E+07,
2063 + .242315E+07, .174554E+07, .125569E+07, .901892E+06,
2064 + .646823E+06, .463113E+06, .331059E+06, .236236E+06,
2065 + .168290E+06, .119659E+06, .849308E+05, .601605E+05,
2066 + .425365E+05, .300121E+05, .211348E+05, .148475E+05 /
2067 DATA (UPDI(I),I=7489,7540) /
2068 + .104147E+05, .725389E+04, .506955E+04, .353665E+04,
2069 + .246353E+04, .171375E+04, .119085E+04, .827789E+03,
2070 + .574823E+03, .399346E+03, .277759E+03, .193533E+03,
2071 + .135194E+03, .947243E+02, .666518E+02, .470976E+02,
2072 + .334429E+02, .238710E+02, .171321E+02, .123602E+02,
2073 + .897792E+01, .654066E+01, .479800E+01, .352886E+01,
2074 + .260867E+01, .193530E+01, .143994E+01, .107400E+01,
2075 + .802443E+00, .600300E+00, .449309E+00, .336309E+00,
2076 + .251552E+00, .187936E+00, .140137E+00, .104246E+00,
2077 + .772602E-01, .571141E-01, .419412E-01, .306297E-01,
2078 + .222227E-01, .160041E-01, .114269E-01, .808014E-02,
2079 + .565025E-02, .390237E-02, .265743E-02, .177852E-02,
2080 + .117224E-02, .754542E-03, .474008E-03, .289560E-03 /
2081 DATA (UPDI(I),I=7541,7592) /
2082 + .171126E-03, .972954E-04, .527662E-04, .271014E-04,
2083 + .129356E-04, .567558E-05, .222372E-05, .751199E-06,
2084 + .206799E-06, .426879E-07, .582787E-08, .369428E-09,
2085 + .000000E+00, .739523E+08, .547532E+08, .396727E+08,
2086 + .287107E+08, .207545E+08, .149841E+08, .108051E+08,
2087 + .778111E+07, .559628E+07, .401911E+07, .288247E+07,
2088 + .206409E+07, .147590E+07, .105357E+07, .750915E+06,
2089 + .534256E+06, .379469E+06, .269020E+06, .190378E+06,
2090 + .134454E+06, .947794E+05, .666698E+05, .468049E+05,
2091 + .327855E+05, .229181E+05, .159793E+05, .111232E+05,
2092 + .768623E+04, .532914E+04, .368777E+04, .254767E+04,
2093 + .175746E+04, .121080E+04, .834388E+03, .574301E+03,
2094 + .395422E+03, .272541E+03, .188161E+03, .130229E+03 /
2095 DATA (UPDI(I),I=7593,7644) /
2096 + .903985E+02, .630151E+02, .441120E+02, .310303E+02,
2097 + .219426E+02, .156020E+02, .111524E+02, .802670E+01,
2098 + .579433E+01, .421236E+01, .307038E+01, .224968E+01,
2099 + .165434E+01, .122020E+01, .902244E+00, .668334E+00,
2100 + .495708E+00, .367872E+00, .273019E+00, .202484E+00,
2101 + .149995E+00, .110896E+00, .817916E-01, .600980E-01,
2102 + .440443E-01, .320606E-01, .232065E-01, .166858E-01,
2103 + .119068E-01, .842228E-02, .589887E-02, .408475E-02,
2104 + .279287E-02, .188225E-02, .124623E-02, .812365E-03,
2105 + .516867E-03, .320793E-03, .193491E-03, .112832E-03,
2106 + .632506E-04, .337912E-04, .170792E-04, .801218E-05,
2107 + .345036E-05, .132473E-05, .437556E-06, .117416E-06,
2108 + .234488E-07, .300799E-08, .134340E-09, .000000E+00 /
2109 DATA (UPDI(I),I=7645,7696) /
2110 + .640992E+04, .760848E+04, .629054E+04, .520245E+04,
2111 + .430396E+04, .356190E+04, .294889E+04, .244238E+04,
2112 + .202376E+04, .167769E+04, .139151E+04, .115479E+04,
2113 + .958908E+03, .796770E+03, .662509E+03, .551287E+03,
2114 + .459111E+03, .382685E+03, .319286E+03, .266668E+03,
2115 + .222974E+03, .186670E+03, .156488E+03, .131381E+03,
2116 + .110483E+03, .930778E+02, .785722E+02, .663194E+02,
2117 + .562559E+02, .478532E+02, .408334E+02, .349661E+02,
2118 + .300596E+02, .259661E+02, .225309E+02, .196554E+02,
2119 + .172463E+02, .152258E+02, .135281E+02, .120974E+02,
2120 + .108893E+02, .986240E+01, .898463E+01, .822855E+01,
2121 + .757154E+01, .699508E+01, .648597E+01, .602733E+01,
2122 + .561532E+01, .523747E+01, .489177E+01, .457200E+01 /
2123 DATA (UPDI(I),I=7697,7748) /
2124 + .427408E+01, .399426E+01, .372918E+01, .347592E+01,
2125 + .323229E+01, .299690E+01, .276912E+01, .254889E+01,
2126 + .233652E+01, .213248E+01, .193725E+01, .175212E+01,
2127 + .157554E+01, .140897E+01, .125259E+01, .110655E+01,
2128 + .970867E+00, .845531E+00, .730446E+00, .625458E+00,
2129 + .530298E+00, .444628E+00, .368863E+00, .301506E+00,
2130 + .242697E+00, .191952E+00, .148758E+00, .112565E+00,
2131 + .827975E-01, .588868E-01, .400752E-01, .258903E-01,
2132 + .155945E-01, .853746E-02, .407070E-02, .156036E-02,
2133 + .401710E-03, .390832E-04, .000000E+00, .178789E+05,
2134 + .239555E+05, .191167E+05, .152601E+05, .121882E+05,
2135 + .973832E+04, .778583E+04, .622766E+04, .498500E+04,
2136 + .399252E+04, .320038E+04, .256714E+04, .206126E+04 /
2137 DATA (UPDI(I),I=7749,7800) /
2138 + .165643E+04, .133267E+04, .107325E+04, .865530E+03,
2139 + .698843E+03, .565172E+03, .457731E+03, .371428E+03,
2140 + .301926E+03, .245982E+03, .200829E+03, .164397E+03,
2141 + .134930E+03, .111091E+03, .915038E+02, .758624E+02,
2142 + .631276E+02, .527645E+02, .442985E+02, .373853E+02,
2143 + .317324E+02, .270873E+02, .232645E+02, .201184E+02,
2144 + .175155E+02, .153600E+02, .135625E+02, .120620E+02,
2145 + .107968E+02, .972523E+01, .880822E+01, .801798E+01,
2146 + .732928E+01, .672619E+01, .618707E+01, .570731E+01,
2147 + .527099E+01, .487565E+01, .451309E+01, .417855E+01,
2148 + .386729E+01, .357570E+01, .330046E+01, .303936E+01,
2149 + .279081E+01, .255402E+01, .232860E+01, .211455E+01,
2150 + .191194E+01, .172080E+01, .154206E+01, .137381E+01 /
2151 DATA (UPDI(I),I=7801,7852) /
2152 + .121716E+01, .107196E+01, .938055E+00, .815187E+00,
2153 + .703085E+00, .601397E+00, .509778E+00, .427783E+00,
2154 + .354867E+00, .291205E+00, .235338E+00, .187204E+00,
2155 + .146244E+00, .111870E+00, .835020E-01, .605404E-01,
2156 + .424013E-01, .283734E-01, .179971E-01, .106199E-01,
2157 + .568119E-02, .263677E-02, .979407E-03, .244359E-03,
2158 + .240346E-04, .000000E+00, .579087E+05, .459776E+05,
2159 + .361508E+05, .284283E+05, .223630E+05, .175953E+05,
2160 + .138497E+05, .109047E+05, .859029E+04, .676975E+04,
2161 + .533849E+04, .421200E+04, .332591E+04, .262801E+04,
2162 + .207865E+04, .164556E+04, .130434E+04, .103504E+04,
2163 + .822598E+03, .654701E+03, .522072E+03, .417070E+03,
2164 + .333964E+03, .268026E+03, .215718E+03, .174124E+03 /
2165 DATA (UPDI(I),I=7853,7904) /
2166 + .141041E+03, .114309E+03, .933108E+02, .764896E+02,
2167 + .630153E+02, .521756E+02, .434536E+02, .364221E+02,
2168 + .307211E+02, .260882E+02, .223200E+02, .192358E+02,
2169 + .167070E+02, .146170E+02, .128864E+02, .114379E+02,
2170 + .102194E+02, .918316E+01, .829563E+01, .752678E+01,
2171 + .685760E+01, .626308E+01, .573740E+01, .526234E+01,
2172 + .483465E+01, .444491E+01, .408764E+01, .375751E+01,
2173 + .345055E+01, .316322E+01, .289312E+01, .263850E+01,
2174 + .239836E+01, .217206E+01, .195930E+01, .175989E+01,
2175 + .157352E+01, .140085E+01, .123977E+01, .109112E+01,
2176 + .954528E+00, .829651E+00, .716045E+00, .613280E+00,
2177 + .520855E+00, .438304E+00, .365079E+00, .300526E+00,
2178 + .244672E+00, .196110E+00, .154663E+00, .119742E+00 /
2179 DATA (UPDI(I),I=7905,7956) /
2180 + .907327E-01, .670568E-01, .480983E-01, .333033E-01,
2181 + .220063E-01, .137674E-01, .799915E-02, .420451E-02,
2182 + .191147E-02, .692815E-03, .168540E-03, .167267E-04,
2183 + .000000E+00, .984065E+05, .774248E+05, .602513E+05,
2184 + .468859E+05, .364914E+05, .284020E+05, .221110E+05,
2185 + .172152E+05, .134078E+05, .104445E+05, .813975E+04,
2186 + .634560E+04, .494988E+04, .386300E+04, .301718E+04,
2187 + .235816E+04, .184502E+04, .144490E+04, .113309E+04,
2188 + .889710E+03, .699845E+03, .551443E+03, .435485E+03,
2189 + .344682E+03, .273583E+03, .217797E+03, .174014E+03,
2190 + .139105E+03, .112047E+03, .906564E+02, .737431E+02,
2191 + .603110E+02, .496363E+02, .411351E+02, .343216E+02,
2192 + .288461E+02, .244385E+02, .208662E+02, .179633E+02 /
2193 DATA (UPDI(I),I=7957,8008) /
2194 + .155841E+02, .136289E+02, .120038E+02, .106455E+02,
2195 + .949735E+01, .851964E+01, .767751E+01, .694866E+01,
2196 + .630483E+01, .573882E+01, .523027E+01, .477507E+01,
2197 + .436267E+01, .398686E+01, .364178E+01, .332310E+01,
2198 + .302703E+01, .275096E+01, .249294E+01, .225175E+01,
2199 + .202648E+01, .181656E+01, .162153E+01, .144077E+01,
2200 + .127470E+01, .112104E+01, .980380E+00, .852168E+00,
2201 + .735885E+00, .630938E+00, .536764E+00, .452741E+00,
2202 + .378306E+00, .312833E+00, .255588E+00, .206484E+00,
2203 + .164165E+00, .128376E+00, .985084E-01, .739413E-01,
2204 + .540976E-01, .383802E-01, .262630E-01, .171288E-01,
2205 + .105621E-01, .603662E-02, .311319E-02, .138345E-02,
2206 + .487700E-03, .115151E-03, .115512E-04, .000000E+00 /
2207 DATA (UPDI(I),I=8009,8060) /
2208 + .153814E+06, .120168E+06, .927614E+05, .715941E+05,
2209 + .552588E+05, .426454E+05, .329140E+05, .254017E+05,
2210 + .196073E+05, .151350E+05, .116860E+05, .902417E+04,
2211 + .697153E+04, .538732E+04, .416560E+04, .322249E+04,
2212 + .249501E+04, .193319E+04, .149961E+04, .116455E+04,
2213 + .905784E+03, .705609E+03, .550819E+03, .430897E+03,
2214 + .338002E+03, .265909E+03, .209951E+03, .165832E+03,
2215 + .132016E+03, .105584E+03, .849147E+02, .686818E+02,
2216 + .559196E+02, .458647E+02, .378878E+02, .315413E+02,
2217 + .264801E+02, .224147E+02, .191381E+02, .164735E+02,
2218 + .142993E+02, .125040E+02, .110125E+02, .975907E+01,
2219 + .869750E+01, .778812E+01, .700516E+01, .631727E+01,
2220 + .571570E+01, .517812E+01, .469948E+01, .426822E+01 /
2221 DATA (UPDI(I),I=8061,8112) /
2222 + .387740E+01, .352066E+01, .319330E+01, .289127E+01,
2223 + .261174E+01, .235254E+01, .211219E+01, .188953E+01,
2224 + .168371E+01, .149402E+01, .131958E+01, .116054E+01,
2225 + .101449E+01, .881827E+00, .761803E+00, .653762E+00,
2226 + .556984E+00, .470795E+00, .394480E+00, .327396E+00,
2227 + .268856E+00, .218076E+00, .174873E+00, .137953E+00,
2228 + .107002E+00, .814057E-01, .605515E-01, .438755E-01,
2229 + .308040E-01, .208424E-01, .134249E-01, .816466E-02,
2230 + .459377E-02, .232659E-02, .101184E-02, .347555E-03,
2231 + .798558E-04, .809202E-05, .000000E+00, .161644E+06,
2232 + .176490E+06, .135315E+06, .103718E+06, .794935E+05,
2233 + .609118E+05, .466721E+05, .357543E+05, .273914E+05,
2234 + .209820E+05, .160743E+05, .123142E+05, .943603E+04 /
2235 DATA (UPDI(I),I=8113,8164) /
2236 + .723139E+04, .554416E+04, .425188E+04, .326293E+04,
2237 + .250538E+04, .192556E+04, .148126E+04, .114105E+04,
2238 + .880184E+03, .680249E+03, .526763E+03, .408959E+03,
2239 + .318393E+03, .248766E+03, .194404E+03, .153142E+03,
2240 + .121208E+03, .964789E+02, .772493E+02, .622757E+02,
2241 + .505922E+02, .414082E+02, .341678E+02, .284428E+02,
2242 + .238824E+02, .202346E+02, .172898E+02, .149026E+02,
2243 + .129440E+02, .113259E+02, .997373E+01, .883435E+01,
2244 + .786334E+01, .703144E+01, .630423E+01, .567141E+01,
2245 + .510878E+01, .461033E+01, .416356E+01, .376080E+01,
2246 + .339525E+01, .306181E+01, .275619E+01, .247531E+01,
2247 + .221676E+01, .197880E+01, .176003E+01, .155932E+01,
2248 + .137571E+01, .120809E+01, .105638E+01, .918061E+00 /
2249 DATA (UPDI(I),I=8165,8216) /
2250 + .793314E+00, .681262E+00, .581118E+00, .492056E+00,
2251 + .413311E+00, .344095E+00, .283704E+00, .231405E+00,
2252 + .186383E+00, .148382E+00, .116171E+00, .893941E-01,
2253 + .674449E-01, .497263E-01, .356945E-01, .248069E-01,
2254 + .166017E-01, .105648E-01, .633969E-02, .351325E-02,
2255 + .174853E-02, .744870E-03, .249651E-03, .559506E-04,
2256 + .572394E-05, .000000E+00, .342824E+06, .264644E+06,
2257 + .201484E+06, .153345E+06, .116683E+06, .887555E+05,
2258 + .675003E+05, .513196E+05, .390127E+05, .296497E+05,
2259 + .225326E+05, .171211E+05, .130099E+05, .988547E+04,
2260 + .751296E+04, .571057E+04, .434241E+04, .330324E+04,
2261 + .251454E+04, .191550E+04, .146083E+04, .111538E+04,
2262 + .853035E+03, .653558E+03, .501910E+03, .386471E+03 /
2263 DATA (UPDI(I),I=8217,8268) /
2264 + .298604E+03, .230704E+03, .179692E+03, .140629E+03,
2265 + .110688E+03, .876529E+02, .698990E+02, .561910E+02,
2266 + .455218E+02, .371947E+02, .306712E+02, .255225E+02,
2267 + .214385E+02, .181686E+02, .155371E+02, .133934E+02,
2268 + .116336E+02, .101724E+02, .894812E+01, .791089E+01,
2269 + .702717E+01, .625907E+01, .559435E+01, .500676E+01,
2270 + .448914E+01, .402792E+01, .361463E+01, .324196E+01,
2271 + .290435E+01, .259721E+01, .231712E+01, .206142E+01,
2272 + .182803E+01, .161526E+01, .142169E+01, .124609E+01,
2273 + .108708E+01, .944332E+00, .815236E+00, .699745E+00,
2274 + .596842E+00, .505616E+00, .425143E+00, .354572E+00,
2275 + .293054E+00, .239829E+00, .194131E+00, .155130E+00,
2276 + .122503E+00, .951002E-01, .725365E-01, .542224E-01 /
2277 DATA (UPDI(I),I=8269,8320) /
2278 + .395901E-01, .281267E-01, .193321E-01, .127852E-01,
2279 + .803121E-02, .475142E-02, .259171E-02, .126700E-02,
2280 + .528765E-03, .173154E-03, .379777E-04, .391896E-05,
2281 + .000000E+00, .496800E+06, .381407E+06, .288536E+06,
2282 + .218185E+06, .164937E+06, .124629E+06, .941441E+05,
2283 + .710870E+05, .536634E+05, .404955E+05, .305529E+05,
2284 + .230446E+05, .173797E+05, .131049E+05, .988184E+04,
2285 + .745123E+04, .561976E+04, .423925E+04, .319949E+04,
2286 + .241599E+04, .182603E+04, .138147E+04, .104665E+04,
2287 + .794238E+03, .604002E+03, .460466E+03, .352196E+03,
2288 + .269304E+03, .207608E+03, .160810E+03, .125277E+03,
2289 + .982025E+02, .775303E+02, .617210E+02, .495284E+02,
2290 + .400993E+02, .327759E+02, .270449E+02, .225342E+02 /
2291 DATA (UPDI(I),I=8321,8372) /
2292 + .189501E+02, .160854E+02, .137672E+02, .118755E+02,
2293 + .103140E+02, .901288E+01, .791655E+01, .698738E+01,
2294 + .618410E+01, .549260E+01, .488469E+01, .435207E+01,
2295 + .388021E+01, .345985E+01, .308319E+01, .274423E+01,
2296 + .243807E+01, .216097E+01, .190996E+01, .168268E+01,
2297 + .147715E+01, .129167E+01, .112474E+01, .974783E+00,
2298 + .841217E+00, .721376E+00, .615011E+00, .520988E+00,
2299 + .438298E+00, .365937E+00, .302994E+00, .248575E+00,
2300 + .201888E+00, .162146E+00, .128522E+00, .100645E+00,
2301 + .774481E-01, .585319E-01, .433324E-01, .313165E-01,
2302 + .220070E-01, .149485E-01, .976098E-02, .604596E-02,
2303 + .352169E-02, .188748E-02, .904295E-03, .368586E-03,
2304 + .117438E-03, .250880E-04, .261661E-05, .000000E+00 /
2305 DATA (UPDI(I),I=8373,8424) /
2306 + .697366E+06, .532680E+06, .400596E+06, .301114E+06,
2307 + .226248E+06, .169907E+06, .127547E+06, .956995E+05,
2308 + .717786E+05, .538115E+05, .403293E+05, .302125E+05,
2309 + .226282E+05, .169424E+05, .126838E+05, .949394E+04,
2310 + .710674E+04, .531993E+04, .398367E+04, .298407E+04,
2311 + .223690E+04, .167813E+04, .126050E+04, .948145E+03,
2312 + .714599E+03, .539813E+03, .409065E+03, .309817E+03,
2313 + .236582E+03, .181517E+03, .140068E+03, .108767E+03,
2314 + .850740E+02, .671142E+02, .533801E+02, .428491E+02,
2315 + .347352E+02, .284356E+02, .235133E+02, .196298E+02,
2316 + .165456E+02, .140652E+02, .120525E+02, .104003E+02,
2317 + .903062E+01, .788251E+01, .691430E+01, .608155E+01,
2318 + .536830E+01, .474459E+01, .420101E+01, .372214E+01 /
2319 DATA (UPDI(I),I=8425,8476) /
2320 + .329797E+01, .292026E+01, .258256E+01, .227968E+01,
2321 + .200753E+01, .176289E+01, .154307E+01, .134583E+01,
2322 + .116922E+01, .101151E+01, .870918E+00, .746658E+00,
2323 + .636029E+00, .538599E+00, .453146E+00, .378580E+00,
2324 + .313846E+00, .257987E+00, .210087E+00, .169333E+00,
2325 + .134937E+00, .106086E+00, .823807E-01, .628370E-01,
2326 + .470530E-01, .344973E-01, .246760E-01, .171509E-01,
2327 + .115126E-01, .742159E-02, .453234E-02, .259895E-02,
2328 + .136847E-02, .642431E-03, .255704E-03, .792666E-04,
2329 + .164985E-04, .173949E-05, .000000E+00, .953809E+06,
2330 + .725094E+06, .542257E+06, .405298E+06, .302788E+06,
2331 + .226069E+06, .168710E+06, .125830E+06, .938066E+05,
2332 + .698933E+05, .520543E+05, .387483E+05, .288334E+05 /
2333 DATA (UPDI(I),I=8477,8528) /
2334 + .214461E+05, .159476E+05, .118551E+05, .881207E+04,
2335 + .654938E+04, .486850E+04, .361966E+04, .269263E+04,
2336 + .200426E+04, .149346E+04, .111423E+04, .832791E+03,
2337 + .623757E+03, .468607E+03, .351775E+03, .266257E+03,
2338 + .202481E+03, .154864E+03, .119202E+03, .924282E+02,
2339 + .722991E+02, .570282E+02, .454114E+02, .365279E+02,
2340 + .296814E+02, .243683E+02, .202039E+02, .169163E+02,
2341 + .142877E+02, .121658E+02, .104331E+02, .900373E+01,
2342 + .781135E+01, .681061E+01, .595408E+01, .522405E+01,
2343 + .458894E+01, .403829E+01, .355586E+01, .313097E+01,
2344 + .275492E+01, .242087E+01, .212331E+01, .185785E+01,
2345 + .162098E+01, .140973E+01, .122163E+01, .105446E+01,
2346 + .906333E+00, .775267E+00, .660303E+00, .558728E+00 /
2347 DATA (UPDI(I),I=8529,8580) /
2348 + .469955E+00, .392693E+00, .325797E+00, .268177E+00,
2349 + .218852E+00, .176897E+00, .141495E+00, .111870E+00,
2350 + .872344E-01, .671721E-01, .507847E-01, .376769E-01,
2351 + .273545E-01, .193653E-01, .133118E-01, .882959E-02,
2352 + .561907E-02, .338308E-02, .190961E-02, .987786E-03,
2353 + .454363E-03, .176621E-03, .532934E-04, .108196E-04,
2354 + .115298E-05, .000000E+00, .127607E+07, .965687E+06,
2355 + .718334E+06, .534011E+06, .396770E+06, .294603E+06,
2356 + .218624E+06, .162132E+06, .120173E+06, .890144E+05,
2357 + .659011E+05, .487594E+05, .360599E+05, .266535E+05,
2358 + .196936E+05, .145448E+05, .107398E+05, .792829E+04,
2359 + .585289E+04, .432093E+04, .319119E+04, .235792E+04,
2360 + .174381E+04, .129104E+04, .957408E+03, .711380E+03 /
2361 DATA (UPDI(I),I=8581,8632) /
2362 + .530115E+03, .394647E+03, .296241E+03, .223417E+03,
2363 + .169461E+03, .129365E+03, .994938E+02, .772085E+02,
2364 + .604279E+02, .477573E+02, .381360E+02, .307719E+02,
2365 + .250934E+02, .206700E+02, .171974E+02, .144358E+02,
2366 + .122176E+02, .104151E+02, .893492E+01, .770589E+01,
2367 + .667912E+01, .580441E+01, .506245E+01, .442020E+01,
2368 + .386620E+01, .338346E+01, .296070E+01, .258881E+01,
2369 + .226054E+01, .197011E+01, .171282E+01, .148489E+01,
2370 + .128311E+01, .110477E+01, .947463E+00, .809101E+00,
2371 + .687584E+00, .581789E+00, .489016E+00, .408547E+00,
2372 + .339047E+00, .279333E+00, .228299E+00, .184957E+00,
2373 + .148388E+00, .117784E+00, .923909E-01, .714546E-01,
2374 + .545570E-01, .408816E-01, .300484E-01, .216027E-01 /
2375 DATA (UPDI(I),I=8633,8684) /
2376 + .151350E-01, .102888E-01, .674308E-02, .423593E-02,
2377 + .251411E-02, .139682E-02, .709757E-03, .319883E-03,
2378 + .121454E-03, .356884E-04, .707539E-05, .761930E-06,
2379 + .000000E+00, .167452E+07, .126172E+07, .933727E+06,
2380 + .690542E+06, .510382E+06, .376948E+06, .278227E+06,
2381 + .205209E+06, .151261E+06, .111414E+06, .820146E+05,
2382 + .603307E+05, .443552E+05, .325890E+05, .239327E+05,
2383 + .175662E+05, .128890E+05, .945362E+04, .693316E+04,
2384 + .508421E+04, .372926E+04, .273630E+04, .200925E+04,
2385 + .147678E+04, .108706E+04, .801627E+03, .592807E+03,
2386 + .437865E+03, .326125E+03, .244037E+03, .183657E+03,
2387 + .139119E+03, .106178E+03, .817814E+02, .635403E+02,
2388 + .498628E+02, .395456E+02, .316997E+02, .256857E+02 /
2389 DATA (UPDI(I),I=8685,8736) /
2390 + .210277E+02, .173900E+02, .145117E+02, .122105E+02,
2391 + .103491E+02, .882722E+01, .756912E+01, .652271E+01,
2392 + .563532E+01, .488612E+01, .424078E+01, .368693E+01,
2393 + .320693E+01, .278893E+01, .242343E+01, .210284E+01,
2394 + .182109E+01, .157322E+01, .135519E+01, .116356E+01,
2395 + .995424E+00, .848200E+00, .719656E+00, .607585E+00,
2396 + .510731E+00, .426429E+00, .353854E+00, .291646E+00,
2397 + .238604E+00, .193624E+00, .155723E+00, .124002E+00,
2398 + .976722E-01, .760091E-01, .583014E-01, .441367E-01,
2399 + .327787E-01, .238678E-01, .169906E-01, .117797E-01,
2400 + .791877E-02, .512756E-02, .317931E-02, .186004E-02,
2401 + .101711E-02, .507646E-03, .224169E-03, .831448E-04,
2402 + .238036E-04, .461355E-05, .501958E-06, .000000E+00 /
2403 DATA (UPDI(I),I=8737,8788) /
2404 + .215966E+07, .162047E+07, .119327E+07, .878075E+06,
2405 + .645701E+06, .474446E+06, .348372E+06, .255595E+06,
2406 + .187396E+06, .137284E+06, .100503E+06, .735199E+05,
2407 + .537461E+05, .392619E+05, .286646E+05, .209143E+05,
2408 + .152528E+05, .111185E+05, .810296E+04, .590404E+04,
2409 + .430236E+04, .313582E+04, .228701E+04, .166933E+04,
2410 + .122016E+04, .893345E+03, .655850E+03, .480840E+03,
2411 + .355497E+03, .264055E+03, .197260E+03, .148335E+03,
2412 + .112398E+03, .859651E+02, .663331E+02, .517092E+02,
2413 + .407469E+02, .324604E+02, .261442E+02, .212781E+02,
2414 + .174966E+02, .145184E+02, .121478E+02, .102385E+02,
2415 + .868390E+01, .740420E+01, .634437E+01, .544958E+01,
2416 + .469760E+01, .405300E+01, .350259E+01, .302812E+01 /
2417 DATA (UPDI(I),I=8789,8840) /
2418 + .261726E+01, .226015E+01, .194890E+01, .167715E+01,
2419 + .143970E+01, .123231E+01, .105131E+01, .893645E+00,
2420 + .756583E+00, .637778E+00, .534945E+00, .446721E+00,
2421 + .370496E+00, .305361E+00, .249949E+00, .203061E+00,
2422 + .163605E+00, .130619E+00, .103232E+00, .806861E-01,
2423 + .622918E-01, .473848E-01, .355666E-01, .261775E-01,
2424 + .188823E-01, .133088E-01, .913039E-02, .606906E-02,
2425 + .388243E-02, .237588E-02, .137004E-02, .737281E-03,
2426 + .361434E-03, .156377E-03, .566680E-04, .158141E-04,
2427 + .299962E-05, .329670E-06, .000000E+00, .274182E+07,
2428 + .204898E+07, .150156E+07, .109957E+07, .804613E+06,
2429 + .588277E+06, .429782E+06, .313719E+06, .228824E+06,
2430 + .166757E+06, .121433E+06, .883526E+05, .642366E+05 /
2431 DATA (UPDI(I),I=8841,8892) /
2432 + .466652E+05, .338776E+05, .245763E+05, .178190E+05,
2433 + .129122E+05, .935340E+04, .677331E+04, .490493E+04,
2434 + .355224E+04, .257392E+04, .186636E+04, .135504E+04,
2435 + .985323E+03, .718393E+03, .522983E+03, .383956E+03,
2436 + .283204E+03, .210093E+03, .156899E+03, .118082E+03,
2437 + .897165E+02, .687817E+02, .532838E+02, .417341E+02,
2438 + .330528E+02, .264703E+02, .214242E+02, .175205E+02,
2439 + .144596E+02, .120332E+02, .100868E+02, .850842E+01,
2440 + .721435E+01, .614710E+01, .524993E+01, .449939E+01,
2441 + .385913E+01, .331517E+01, .284877E+01, .244717E+01,
2442 + .210020E+01, .179967E+01, .153900E+01, .131278E+01,
2443 + .111654E+01, .946493E+00, .799404E+00, .672451E+00,
2444 + .563194E+00, .469302E+00, .389331E+00, .320740E+00 /
2445 DATA (UPDI(I),I=8893,8944) /
2446 + .262560E+00, .213435E+00, .172180E+00, .137731E+00,
2447 + .109156E+00, .856205E-01, .664032E-01, .508562E-01,
2448 + .383646E-01, .285495E-01, .208237E-01, .148789E-01,
2449 + .103828E-01, .704796E-02, .463209E-02, .292724E-02,
2450 + .176786E-02, .100472E-02, .532070E-03, .256179E-03,
2451 + .108598E-03, .384560E-04, .104660E-04, .194479E-05,
2452 + .215863E-06, .000000E+00, .644000E+04, .749755E+04,
2453 + .619153E+04, .511410E+04, .422513E+04, .349156E+04,
2454 + .288614E+04, .238641E+04, .197384E+04, .163317E+04,
2455 + .135181E+04, .111939E+04, .927348E+03, .768631E+03,
2456 + .637422E+03, .528920E+03, .439168E+03, .364902E+03,
2457 + .303426E+03, .252519E+03, .210347E+03, .175396E+03,
2458 + .146416E+03, .122375E+03, .102422E+03, .858535E+02 /
2459 DATA (UPDI(I),I=8945,8996) /
2460 + .720870E+02, .604949E+02, .510040E+02, .431038E+02,
2461 + .365238E+02, .310398E+02, .264660E+02, .226592E+02,
2462 + .194708E+02, .168059E+02, .145756E+02, .127056E+02,
2463 + .111342E+02, .980914E+01, .868900E+01, .773590E+01,
2464 + .692041E+01, .621770E+01, .560726E+01, .507228E+01,
2465 + .460061E+01, .417645E+01, .379583E+01, .344673E+01,
2466 + .312689E+01, .283070E+01, .255524E+01, .229882E+01,
2467 + .206067E+01, .184054E+01, .163823E+01, .145334E+01,
2468 + .128513E+01, .113260E+01, .994609E+00, .869991E+00,
2469 + .757648E+00, .657017E+00, .566159E+00, .484912E+00,
2470 + .412544E+00, .348381E+00, .291799E+00, .242210E+00,
2471 + .199052E+00, .161788E+00, .129878E+00, .102800E+00,
2472 + .802841E-01, .615224E-01, .462292E-01, .339634E-01 /
2473 DATA (UPDI(I),I=8997,9048) /
2474 + .243079E-01, .168716E-01, .112904E-01, .723492E-02,
2475 + .437978E-02, .247922E-02, .128201E-02, .585989E-03,
2476 + .224051E-03, .646126E-04, .111397E-04, .546004E-06,
2477 + .000000E+00, .179126E+05, .238287E+05, .190035E+05,
2478 + .151590E+05, .120980E+05, .965784E+04, .771400E+04,
2479 + .616358E+04, .492782E+04, .394150E+04, .315486E+04,
2480 + .252653E+04, .202503E+04, .162410E+04, .130382E+04,
2481 + .104751E+04, .842553E+03, .678332E+03, .546855E+03,
2482 + .441369E+03, .356803E+03, .288848E+03, .234277E+03,
2483 + .190343E+03, .154993E+03, .126484E+03, .103493E+03,
2484 + .846654E+02, .696834E+02, .575297E+02, .476764E+02,
2485 + .396577E+02, .331346E+02, .278210E+02, .234706E+02,
2486 + .199030E+02, .169765E+02, .145628E+02, .125696E+02 /
2487 DATA (UPDI(I),I=9049,9100) /
2488 + .109121E+02, .953201E+01, .837169E+01, .739197E+01,
2489 + .655677E+01, .584009E+01, .521863E+01, .467732E+01,
2490 + .419601E+01, .376983E+01, .338399E+01, .303580E+01,
2491 + .271826E+01, .242788E+01, .216199E+01, .191909E+01,
2492 + .169794E+01, .149752E+01, .131665E+01, .115402E+01,
2493 + .100814E+01, .877544E+00, .760854E+00, .656715E+00,
2494 + .564422E+00, .481955E+00, .409008E+00, .344729E+00,
2495 + .288369E+00, .239216E+00, .196624E+00, .159972E+00,
2496 + .128694E+00, .102231E+00, .800366E-01, .618101E-01,
2497 + .468130E-01, .347455E-01, .251987E-01, .177904E-01,
2498 + .121878E-01, .804134E-02, .507621E-02, .302259E-02,
2499 + .168076E-02, .852008E-03, .380996E-03, .142040E-03,
2500 + .398547E-04, .671223E-05, .336279E-06, .000000E+00 /
2501 DATA (UPDI(I),I=9101,9152) /
2502 + .577528E+05, .458382E+05, .360263E+05, .283173E+05,
2503 + .222638E+05, .175068E+05, .137708E+05, .108342E+05,
2504 + .852737E+04, .671360E+04, .528837E+04, .416728E+04,
2505 + .328599E+04, .259238E+04, .204683E+04, .161716E+04,
2506 + .127898E+04, .101238E+04, .802348E+03, .636599E+03,
2507 + .505880E+03, .402577E+03, .320981E+03, .256386E+03,
2508 + .205267E+03, .164729E+03, .132582E+03, .106689E+03,
2509 + .864201E+02, .702434E+02, .573359E+02, .469953E+02,
2510 + .387100E+02, .320605E+02, .266932E+02, .223515E+02,
2511 + .188361E+02, .159722E+02, .136346E+02, .117118E+02,
2512 + .101272E+02, .880788E+01, .770409E+01, .677135E+01,
2513 + .597785E+01, .529552E+01, .470625E+01, .418676E+01,
2514 + .373095E+01, .332215E+01, .295695E+01, .262738E+01 /
2515 DATA (UPDI(I),I=9153,9204) /
2516 + .232928E+01, .205933E+01, .181532E+01, .159539E+01,
2517 + .139793E+01, .122125E+01, .106363E+01, .923333E+00,
2518 + .798658E+00, .688082E+00, .590104E+00, .503920E+00,
2519 + .427480E+00, .360380E+00, .301706E+00, .250662E+00,
2520 + .206496E+00, .168533E+00, .136127E+00, .108702E+00,
2521 + .856974E-01, .665661E-01, .509937E-01, .382964E-01,
2522 + .281747E-01, .202459E-01, .141582E-01, .960335E-02,
2523 + .626862E-02, .391242E-02, .230068E-02, .126210E-02,
2524 + .630144E-03, .277054E-03, .101285E-03, .278049E-04,
2525 + .459299E-05, .234340E-06, .000000E+00, .982364E+05,
2526 + .772727E+05, .601155E+05, .467647E+05, .363832E+05,
2527 + .283054E+05, .220248E+05, .171382E+05, .133391E+05,
2528 + .103831E+05, .808498E+04, .629671E+04, .490623E+04 /
2529 DATA (UPDI(I),I=9205,9256) /
2530 + .382403E+04, .298237E+04, .232707E+04, .181724E+04,
2531 + .142008E+04, .111089E+04, .869856E+03, .682075E+03,
2532 + .535529E+03, .421220E+03, .331883E+03, .262087E+03,
2533 + .207455E+03, .164697E+03, .130708E+03, .104451E+03,
2534 + .837707E+02, .674826E+02, .546028E+02, .444130E+02,
2535 + .363375E+02, .298978E+02, .247505E+02, .206298E+02,
2536 + .173093E+02, .146270E+02, .124426E+02, .106592E+02,
2537 + .918748E+01, .796655E+01, .694328E+01, .607960E+01,
2538 + .534272E+01, .471125E+01, .415898E+01, .367836E+01,
2539 + .325099E+01, .287260E+01, .253434E+01, .223132E+01,
2540 + .195955E+01, .171621E+01, .149884E+01, .130528E+01,
2541 + .113344E+01, .981249E+00, .846728E+00, .728006E+00,
2542 + .623438E+00, .531404E+00, .451012E+00, .380206E+00 /
2543 DATA (UPDI(I),I=9257,9308) /
2544 + .318499E+00, .264929E+00, .218670E+00, .178942E+00,
2545 + .145053E+00, .116347E+00, .922452E-01, .721935E-01,
2546 + .556523E-01, .423021E-01, .315115E-01, .229872E-01,
2547 + .163729E-01, .113435E-01, .761520E-02, .491573E-02,
2548 + .303168E-02, .175941E-02, .951324E-03, .467283E-03,
2549 + .201689E-03, .721581E-04, .193322E-04, .312729E-05,
2550 + .162916E-06, .000000E+00, .153629E+06, .120003E+06,
2551 + .926139E+05, .714625E+05, .551413E+05, .425404E+05,
2552 + .328203E+05, .253181E+05, .195326E+05, .150684E+05,
2553 + .116265E+05, .897102E+04, .692406E+04, .534493E+04,
2554 + .412773E+04, .318865E+04, .246476E+04, .190615E+04,
2555 + .147542E+04, .114291E+04, .886405E+03, .688247E+03,
2556 + .535250E+03, .416924E+03, .325445E+03, .254609E+03 /
2557 DATA (UPDI(I),I=9309,9360) /
2558 + .199769E+03, .156655E+03, .123715E+03, .980595E+02,
2559 + .780759E+02, .624503E+02, .502228E+02, .406392E+02,
2560 + .330776E+02, .270975E+02, .223583E+02, .185774E+02,
2561 + .155516E+02, .131099E+02, .111335E+02, .951610E+01,
2562 + .818470E+01, .707742E+01, .614966E+01, .536391E+01,
2563 + .469540E+01, .411506E+01, .361383E+01, .317166E+01,
2564 + .278337E+01, .243925E+01, .213365E+01, .186198E+01,
2565 + .162079E+01, .140708E+01, .121822E+01, .105175E+01,
2566 + .905322E+00, .776741E+00, .663997E+00, .565339E+00,
2567 + .479063E+00, .404197E+00, .338698E+00, .282003E+00,
2568 + .233124E+00, .191212E+00, .155472E+00, .125206E+00,
2569 + .997565E-01, .785502E-01, .610444E-01, .467152E-01,
2570 + .352437E-01, .260488E-01, .188478E-01, .133109E-01 /
2571 DATA (UPDI(I),I=9361,9412) /
2572 + .914043E-02, .607809E-02, .388372E-02, .236947E-02,
2573 + .135905E-02, .725650E-03, .351587E-03, .149559E-03,
2574 + .527113E-04, .139532E-04, .226673E-05, .124950E-06,
2575 + .000000E+00, .161689E+06, .176312E+06, .135155E+06,
2576 + .103576E+06, .793664E+05, .607983E+05, .465707E+05,
2577 + .356638E+05, .273106E+05, .209098E+05, .160098E+05,
2578 + .122567E+05, .938462E+04, .718547E+04, .550313E+04,
2579 + .421520E+04, .323014E+04, .247607E+04, .189932E+04,
2580 + .145778E+04, .112002E+04, .861339E+03, .663345E+03,
2581 + .511588E+03, .395321E+03, .306118E+03, .237705E+03,
2582 + .184436E+03, .144127E+03, .113040E+03, .890602E+02,
2583 + .704953E+02, .561086E+02, .449435E+02, .362182E+02,
2584 + .293839E+02, .240174E+02, .197750E+02, .164090E+02 /
2585 DATA (UPDI(I),I=9413,9464) /
2586 + .137159E+02, .115532E+02, .979709E+01, .836204E+01,
2587 + .717718E+01, .619123E+01, .536197E+01, .466121E+01,
2588 + .405711E+01, .353905E+01, .308542E+01, .269011E+01,
2589 + .234255E+01, .203639E+01, .176641E+01, .152859E+01,
2590 + .131946E+01, .113594E+01, .975268E+00, .834839E+00,
2591 + .712303E+00, .605524E+00, .512668E+00, .431966E+00,
2592 + .362380E+00, .301890E+00, .249874E+00, .205327E+00,
2593 + .167387E+00, .135256E+00, .108235E+00, .856754E-01,
2594 + .670140E-01, .517243E-01, .393028E-01, .294362E-01,
2595 + .215915E-01, .154993E-01, .108560E-01, .739038E-02,
2596 + .486904E-02, .308050E-02, .185976E-02, .105459E-02,
2597 + .556221E-03, .265929E-03, .111522E-03, .387300E-04,
2598 + .101244E-04, .164430E-05, .948653E-07, .000000E+00 /
2599 DATA (UPDI(I),I=9465,9516) /
2600 + .342606E+06, .264449E+06, .201310E+06, .153189E+06,
2601 + .116544E+06, .886313E+05, .673894E+05, .512206E+05,
2602 + .389242E+05, .295707E+05, .224620E+05, .170580E+05,
2603 + .129536E+05, .983517E+04, .746800E+04, .567038E+04,
2604 + .430647E+04, .327110E+04, .248578E+04, .188976E+04,
2605 + .143777E+04, .109471E+04, .834491E+03, .636910E+03,
2606 + .486948E+03, .373006E+03, .286474E+03, .219776E+03,
2607 + .169816E+03, .131687E+03, .102575E+03, .802763E+02,
2608 + .631743E+02, .500438E+02, .398872E+02, .320155E+02,
2609 + .258956E+02, .211064E+02, .173423E+02, .143591E+02,
2610 + .119844E+02, .100730E+02, .852368E+01, .725489E+01,
2611 + .620719E+01, .533286E+01, .459963E+01, .397251E+01,
2612 + .343896E+01, .297567E+01, .257536E+01, .222653E+01 /
2613 DATA (UPDI(I),I=9517,9568) /
2614 + .192197E+01, .165579E+01, .142333E+01, .122060E+01,
2615 + .104410E+01, .890729E+00, .757648E+00, .642347E+00,
2616 + .542580E+00, .456435E+00, .382093E+00, .318452E+00,
2617 + .263534E+00, .216661E+00, .176821E+00, .143149E+00,
2618 + .114855E+00, .912479E-01, .716970E-01, .556573E-01,
2619 + .426265E-01, .321299E-01, .238657E-01, .173547E-01,
2620 + .123461E-01, .856623E-02, .577388E-02, .376362E-02,
2621 + .235389E-02, .140358E-02, .785075E-03, .407819E-03,
2622 + .191624E-03, .787490E-04, .266826E-04, .676057E-05,
2623 + .105609E-05, .601164E-07, .000000E+00, .496561E+06,
2624 + .381194E+06, .288345E+06, .218015E+06, .164785E+06,
2625 + .124493E+06, .940229E+05, .709788E+05, .535667E+05,
2626 + .404092E+05, .304757E+05, .229757E+05, .173181E+05 /
2627 DATA (UPDI(I),I=9569,9620) /
2628 + .130499E+05, .983268E+04, .740729E+04, .558047E+04,
2629 + .420410E+04, .316803E+04, .238783E+04, .180080E+04,
2630 + .135886E+04, .102637E+04, .776037E+03, .587647E+03,
2631 + .445754E+03, .338948E+03, .257377E+03, .196837E+03,
2632 + .151069E+03, .116450E+03, .901891E+02, .702388E+02,
2633 + .550702E+02, .434478E+02, .345266E+02, .276547E+02,
2634 + .223269E+02, .181762E+02, .149155E+02, .123411E+02,
2635 + .102858E+02, .863252E+01, .728898E+01, .618759E+01,
2636 + .527521E+01, .451560E+01, .387075E+01, .332625E+01,
2637 + .285719E+01, .245515E+01, .210775E+01, .180696E+01,
2638 + .154630E+01, .132050E+01, .112513E+01, .956313E+00,
2639 + .810686E+00, .685212E+00, .577258E+00, .484495E+00,
2640 + .404956E+00, .336793E+00, .278857E+00, .229226E+00 /
2641 DATA (UPDI(I),I=9621,9672) /
2642 + .187177E+00, .151706E+00, .121956E+00, .971515E-01,
2643 + .766192E-01, .597522E-01, .460287E-01, .349744E-01,
2644 + .261464E-01, .192580E-01, .138810E-01, .978447E-02,
2645 + .672395E-02, .448656E-02, .289308E-02, .178867E-02,
2646 + .105352E-02, .581468E-03, .297740E-03, .137734E-03,
2647 + .556604E-04, .185337E-04, .462275E-05, .718673E-06,
2648 + .428396E-07, .000000E+00, .697105E+06, .532447E+06,
2649 + .400388E+06, .300928E+06, .226082E+06, .169759E+06,
2650 + .127415E+06, .955815E+05, .716731E+05, .537173E+05,
2651 + .402451E+05, .301373E+05, .225611E+05, .168824E+05,
2652 + .126302E+05, .944599E+04, .706387E+04, .528158E+04,
2653 + .394935E+04, .295335E+04, .220938E+04, .165347E+04,
2654 + .123839E+04, .928307E+03, .696782E+03, .523793E+03 /
2655 DATA (UPDI(I),I=9673,9724) /
2656 + .394650E+03, .296851E+03, .224885E+03, .170951E+03,
2657 + .130508E+03, .100103E+03, .772069E+02, .599552E+02,
2658 + .468529E+02, .368854E+02, .292737E+02, .234233E+02,
2659 + .189030E+02, .153809E+02, .126216E+02, .104355E+02,
2660 + .868965E+01, .728109E+01, .613438E+01, .519107E+01,
2661 + .441113E+01, .375372E+01, .320263E+01, .273147E+01,
2662 + .233075E+01, .198725E+01, .169221E+01, .143857E+01,
2663 + .122056E+01, .103336E+01, .872779E+00, .735231E+00,
2664 + .617532E+00, .516960E+00, .431131E+00, .358045E+00,
2665 + .295844E+00, .243348E+00, .198702E+00, .161153E+00,
2666 + .129715E+00, .103547E+00, .818964E-01, .641160E-01,
2667 + .496270E-01, .379353E-01, .285973E-01, .212037E-01,
2668 + .154859E-01, .110638E-01, .772717E-02, .525927E-02 /
2669 DATA (UPDI(I),I=9725,9776) /
2670 + .347385E-02, .221594E-02, .135430E-02, .787927E-03,
2671 + .429139E-03, .216623E-03, .986781E-04, .392303E-04,
2672 + .128492E-04, .316096E-05, .490837E-06, .306876E-07,
2673 + .000000E+00, .953525E+06, .724841E+06, .542031E+06,
2674 + .405095E+06, .302607E+06, .225908E+06, .168566E+06,
2675 + .125702E+06, .936917E+05, .697906E+05, .519627E+05,
2676 + .386664E+05, .287603E+05, .213808E+05, .158892E+05,
2677 + .118029E+05, .876538E+04, .650762E+04, .483113E+04,
2678 + .358622E+04, .266269E+04, .197744E+04, .146943E+04,
2679 + .109267E+04, .813439E+03, .606369E+03, .452974E+03,
2680 + .337728E+03, .253601E+03, .191065E+03, .144552E+03,
2681 + .109875E+03, .839781E+02, .646291E+02, .500550E+02,
2682 + .390607E+02, .307326E+02, .243836E+02, .195160E+02 /
2683 DATA (UPDI(I),I=9777,9828) /
2684 + .157525E+02, .128254E+02, .105230E+02, .869684E+01,
2685 + .723352E+01, .605005E+01, .508294E+01, .428863E+01,
2686 + .362367E+01, .307010E+01, .260028E+01, .220365E+01,
2687 + .186626E+01, .157868E+01, .133335E+01, .112407E+01,
2688 + .945666E+00, .793708E+00, .664445E+00, .554584E+00,
2689 + .461341E+00, .382307E+00, .315465E+00, .258970E+00,
2690 + .211622E+00, .171643E+00, .138264E+00, .110524E+00,
2691 + .876086E-01, .687948E-01, .534646E-01, .410723E-01,
2692 + .311544E-01, .232998E-01, .171340E-01, .124080E-01,
2693 + .878656E-02, .608030E-02, .409862E-02, .267983E-02,
2694 + .169102E-02, .102163E-02, .587122E-03, .315563E-03,
2695 + .157045E-03, .704578E-04, .275648E-04, .888536E-05,
2696 + .215713E-05, .334482E-06, .218682E-07, .000000E+00 /
2697 DATA (UPDI(I),I=9829,9880) /
2698 + .127576E+07, .965411E+06, .718087E+06, .533791E+06,
2699 + .396574E+06, .294427E+06, .218467E+06, .161992E+06,
2700 + .120048E+06, .889027E+05, .658014E+05, .486703E+05,
2701 + .359804E+05, .265824E+05, .196301E+05, .144880E+05,
2702 + .106891E+05, .788290E+04, .581229E+04, .428461E+04,
2703 + .315868E+04, .232881E+04, .171773E+04, .126767E+04,
2704 + .936448E+03, .692564E+03, .513216E+03, .379481E+03,
2705 + .282596E+03, .211129E+03, .158382E+03, .119366E+03,
2706 + .904555E+02, .690265E+02, .530116E+02, .410253E+02,
2707 + .320154E+02, .251989E+02, .200112E+02, .160291E+02,
2708 + .129532E+02, .105502E+02, .865658E+01, .714899E+01,
2709 + .593735E+01, .495351E+01, .415059E+01, .348282E+01,
2710 + .293066E+01, .246531E+01, .207527E+01, .174592E+01 /
2711 DATA (UPDI(I),I=9881,9932) /
2712 + .146727E+01, .123131E+01, .103148E+01, .862336E+00,
2713 + .719258E+00, .598370E+00, .496313E+00, .410272E+00,
2714 + .337831E+00, .276981E+00, .225901E+00, .183390E+00,
2715 + .147750E+00, .118210E+00, .938421E-01, .738624E-01,
2716 + .575846E-01, .444242E-01, .338709E-01, .254937E-01,
2717 + .189151E-01, .137950E-01, .990549E-02, .695239E-02,
2718 + .476674E-02, .318222E-02, .205954E-02, .128558E-02,
2719 + .767765E-03, .435848E-03, .231185E-03, .113441E-03,
2720 + .501351E-04, .193075E-04, .612810E-05, .146890E-05,
2721 + .227317E-06, .154968E-07, .000000E+00, .167418E+07,
2722 + .126142E+07, .933459E+06, .690302E+06, .510168E+06,
2723 + .376758E+06, .278057E+06, .205057E+06, .151125E+06,
2724 + .111292E+06, .819062E+05, .602339E+05, .442687E+05 /
2725 DATA (UPDI(I),I=9933,9984) /
2726 + .325118E+05, .238637E+05, .175045E+05, .128339E+05,
2727 + .940438E+04, .688913E+04, .504484E+04, .369404E+04,
2728 + .270478E+04, .198104E+04, .145151E+04, .106442E+04,
2729 + .781323E+03, .574594E+03, .421543E+03, .311462E+03,
2730 + .230856E+03, .171797E+03, .128438E+03, .965486E+02,
2731 + .730887E+02, .556856E+02, .427573E+02, .331096E+02,
2732 + .258633E+02, .203865E+02, .162112E+02, .130070E+02,
2733 + .105198E+02, .857193E+01, .703062E+01, .579930E+01,
2734 + .480554E+01, .399952E+01, .333341E+01, .278619E+01,
2735 + .232814E+01, .194689E+01, .162725E+01, .135875E+01,
2736 + .113301E+01, .943174E+00, .783601E+00, .649529E+00,
2737 + .537003E+00, .442632E+00, .363597E+00, .297499E+00,
2738 + .242351E+00, .196371E+00, .158372E+00, .126740E+00 /
2739 DATA (UPDI(I),I=9985,10036) /
2740 + .100712E+00, .793982E-01, .620536E-01, .480306E-01,
2741 + .367812E-01, .278323E-01, .207865E-01, .153000E-01,
2742 + .110664E-01, .787873E-02, .548081E-02, .372308E-02,
2743 + .246148E-02, .157686E-02, .973658E-03, .574806E-03,
2744 + .322335E-03, .168741E-03, .816482E-04, .355525E-04,
2745 + .134818E-04, .421535E-05, .998032E-06, .154072E-06,
2746 + .109243E-07, .000000E+00, .215930E+07, .162014E+07,
2747 + .119298E+07, .877815E+06, .645468E+06, .474239E+06,
2748 + .348187E+06, .255430E+06, .187248E+06, .137152E+06,
2749 + .100386E+06, .734149E+05, .536523E+05, .391782E+05,
2750 + .285898E+05, .208475E+05, .151931E+05, .110652E+05,
2751 + .805531E+04, .586145E+04, .426429E+04, .310177E+04,
2752 + .225656E+04, .164208E+04, .119577E+04, .871496E+03 /
2753 DATA (UPDI(I),I=10037,10088) /
2754 + .636278E+03, .463326E+03, .339791E+03, .249963E+03,
2755 + .184607E+03, .136968E+03, .102177E+03, .767653E+02,
2756 + .580471E+02, .442401E+02, .340074E+02, .263740E+02,
2757 + .206425E+02, .163012E+02, .129901E+02, .104355E+02,
2758 + .844646E+01, .688181E+01, .563904E+01, .464187E+01,
2759 + .383790E+01, .317755E+01, .263850E+01, .219026E+01,
2760 + .181970E+01, .151117E+01, .125380E+01, .103892E+01,
2761 + .859455E+00, .709618E+00, .584561E+00, .480290E+00,
2762 + .393415E+00, .321136E+00, .261089E+00, .211325E+00,
2763 + .170118E+00, .136297E+00, .108343E+00, .855066E-01,
2764 + .669441E-01, .519508E-01, .399211E-01, .303458E-01,
2765 + .227892E-01, .168881E-01, .123314E-01, .884533E-02,
2766 + .624389E-02, .430490E-02, .289722E-02, .189692E-02 /
2767 DATA (UPDI(I),I=10089,10140) /
2768 + .120280E-02, .734659E-03, .428735E-03, .237501E-03,
2769 + .122714E-03, .585579E-04, .251274E-04, .938550E-05,
2770 + .289218E-05, .676604E-06, .104155E-06, .766311E-08,
2771 + .000000E+00, .274142E+07, .204862E+07, .150124E+07,
2772 + .109929E+07, .804361E+06, .588052E+06, .429581E+06,
2773 + .313540E+06, .228664E+06, .166614E+06, .121306E+06,
2774 + .882387E+05, .641350E+05, .465745E+05, .337966E+05,
2775 + .245040E+05, .177544E+05, .128545E+05, .930191E+04,
2776 + .672731E+04, .486384E+04, .351553E+04, .254112E+04,
2777 + .183704E+04, .132882E+04, .961873E+03, .697417E+03,
2778 + .504246E+03, .367183E+03, .268186E+03, .196640E+03,
2779 + .144843E+03, .107272E+03, .800160E+02, .600740E+02,
2780 + .454628E+02, .347048E+02, .267315E+02, .207819E+02 /
2781 DATA (UPDI(I),I=10141,10192) /
2782 + .163028E+02, .129065E+02, .103012E+02, .828409E+01,
2783 + .670615E+01, .545976E+01, .446530E+01, .366814E+01,
2784 + .301727E+01, .248925E+01, .205301E+01, .169474E+01,
2785 + .139845E+01, .115297E+01, .949408E+00, .780529E+00,
2786 + .640467E+00, .524335E+00, .428134E+00, .348504E+00,
2787 + .282685E+00, .228368E+00, .183653E+00, .146877E+00,
2788 + .116902E+00, .923022E-01, .723496E-01, .562503E-01,
2789 + .433432E-01, .330662E-01, .249493E-01, .185947E-01,
2790 + .136725E-01, .990365E-02, .704490E-02, .493056E-02,
2791 + .336911E-02, .224639E-02, .145652E-02, .914118E-03,
2792 + .552293E-03, .318616E-03, .174360E-03, .889248E-04,
2793 + .418537E-04, .177021E-04, .651489E-05, .197942E-05,
2794 + .457695E-06, .702326E-07, .535055E-08, .000000E+00 /
2795 C-----------------------------------------------------------------------
2801 Amass(I) = AmassI(I)
2823 QL(Iq) = Log (QL(Iq) /Al)
2826 C Since quark = anti-quark for nfl>2 at this stage,
2827 C we Read out only the non-redundent data points
2828 C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence)
2830 Nblk = (NX+1) * (NT+1)
2831 Npts = Nblk * (NfMx+3)
2837 C ****************************
git://git.uio.no / u / mrichter / AliRoot.git / blob