1 C-----------------------------------------------------------------------
3 Subroutine Ctq5M1 (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 : 5mN04 C PARAMETER (ISET=8)
19 DATA DrI, FlI, AlI / 2., 5., .2260 /
20 DATA (AmassI(I),I=1,6) / .000, .000, .200,
21 + 1.300, 4.500, 180.000 /
22 C DATA NXI, NTI, NfMxI / 90, 13, 5 /
23 DATA QINII, QMAXI, (QLI(I), I =0, NTI) /
24 + .100000E+01, .100000E+05,
25 + .100000E+01, .130000E+01, .167097E+01, .222659E+01, .309171E+01,
26 + .450000E+01, .754288E+01, .138228E+02, .281243E+02, .646894E+02,
27 + .171811E+03, .540159E+03, .206963E+04, .100000E+05 /
28 DATA XMINI, (XVI(I), I =0, NXI) /
30 + .000000E+00, .100000E-04, .124433E-04, .154836E-04, .192668E-04,
31 + .239740E-04, .298310E-04, .371184E-04, .461852E-04, .574656E-04,
32 + .714994E-04, .889575E-04, .110674E-03, .137686E-03, .171280E-03,
33 + .213055E-03, .264997E-03, .329564E-03, .409809E-03, .509508E-03,
34 + .633332E-03, .787053E-03, .977784E-03, .121428E-02, .150728E-02,
35 + .186993E-02, .231825E-02, .288037E-02, .356397E-02, .440443E-02,
36 + .543508E-02, .669508E-02, .822984E-02, .100851E-01, .123281E-01,
37 + .150167E-01, .182174E-01, .219985E-01, .264278E-01, .315720E-01,
38 + .374800E-01, .442088E-01, .517931E-01, .602576E-01, .696136E-01,
39 + .798586E-01, .909356E-01, .102935E+00, .115681E+00, .129293E+00,
40 + .143599E+00, .158606E+00, .174271E+00, .190550E+00, .207405E+00,
41 + .224796E+00, .242685E+00, .261038E+00, .279820E+00, .299001E+00,
42 + .318550E+00, .338442E+00, .358653E+00, .379067E+00, .399881E+00,
43 + .420953E+00, .442266E+00, .463806E+00, .485559E+00, .507513E+00,
44 + .529656E+00, .551978E+00, .574483E+00, .597187E+00, .619860E+00,
45 + .642828E+00, .665921E+00, .689135E+00, .712467E+00, .735911E+00,
46 + .759464E+00, .783080E+00, .806909E+00, .830741E+00, .854673E+00,
47 + .878696E+00, .902804E+00, .926992E+00, .951257E+00, .975603E+00,
49 C Parton Distribution Table:
50 DATA (UPDI(I),I=1,52) /
51 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
52 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
53 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
54 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
55 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
56 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
57 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
58 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
59 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
60 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
61 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
62 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
63 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
64 DATA (UPDI(I),I=53,104) /
65 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
66 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
67 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
68 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
69 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
70 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
71 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
72 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
73 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
74 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
75 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
76 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
77 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
78 DATA (UPDI(I),I=105,156) /
79 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
80 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
81 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
82 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
83 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
84 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
85 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
86 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
87 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
88 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
89 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
90 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
91 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
92 DATA (UPDI(I),I=157,208) /
93 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
94 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
95 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
96 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
97 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
98 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
99 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
100 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
101 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
102 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
103 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
104 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
105 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
106 DATA (UPDI(I),I=209,260) /
107 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
108 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
109 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
110 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
111 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
112 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
113 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
114 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
115 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
116 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
117 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
118 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
119 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
120 DATA (UPDI(I),I=261,312) /
121 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
122 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
123 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
124 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
125 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
126 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
127 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
128 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
129 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
130 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
131 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
132 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
133 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
134 DATA (UPDI(I),I=313,364) /
135 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
136 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
137 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
138 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
139 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
140 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
141 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
142 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
143 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
144 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
145 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
146 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
147 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
148 DATA (UPDI(I),I=365,416) /
149 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
150 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
151 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
152 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
153 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
154 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
155 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
156 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
157 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
158 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
159 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
160 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
161 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
162 DATA (UPDI(I),I=417,468) /
163 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
164 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
165 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
166 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
167 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
168 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
169 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
170 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
171 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
172 + .000000E+00, .000000E+00, .000000E+00, .210912E+06,
173 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
174 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
175 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
176 DATA (UPDI(I),I=469,520) /
177 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
178 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
179 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
180 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
181 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
182 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
183 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
184 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
185 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
186 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
187 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
188 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
189 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
190 DATA (UPDI(I),I=521,572) /
191 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
192 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
193 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
194 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
195 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
196 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
197 + .000000E+00, .000000E+00, .117022E+06, .893238E+05,
198 + .671006E+05, .503526E+05, .377642E+05, .282901E+05,
199 + .211799E+05, .158372E+05, .118341E+05, .883133E+04,
200 + .658540E+04, .490384E+04, .364852E+04, .271054E+04,
201 + .201176E+04, .149079E+04, .110355E+04, .815544E+03,
202 + .602009E+03, .443583E+03, .326426E+03, .239746E+03,
203 + .175841E+03, .128710E+03, .940701E+02, .686054E+02 /
204 DATA (UPDI(I),I=573,624) /
205 + .499523E+02, .361356E+02, .262191E+02, .189829E+02,
206 + .137247E+02, .990253E+01, .713706E+01, .513972E+01,
207 + .369651E+01, .265603E+01, .190919E+01, .137225E+01,
208 + .987712E+00, .711482E+00, .513961E+00, .371866E+00,
209 + .269991E+00, .196478E+00, .143540E+00, .105129E+00,
210 + .773954E-01, .570150E-01, .422243E-01, .312742E-01,
211 + .232623E-01, .173200E-01, .129256E-01, .964325E-02,
212 + .720276E-02, .537076E-02, .400610E-02, .297956E-02,
213 + .221276E-02, .163550E-02, .120497E-02, .881067E-03,
214 + .640390E-03, .460525E-03, .327373E-03, .228598E-03,
215 + .156623E-03, .103968E-03, .662750E-04, .393454E-04,
216 + .207111E-04, .792526E-05, .000000E+00, .000000E+00,
217 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
218 DATA (UPDI(I),I=625,676) /
219 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
220 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
221 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
222 + .000000E+00, .271061E+06, .206213E+06, .154307E+06,
223 + .115343E+06, .861656E+05, .642939E+05, .479414E+05,
224 + .357039E+05, .265699E+05, .197467E+05, .146633E+05,
225 + .108733E+05, .805537E+04, .595882E+04, .440332E+04,
226 + .324872E+04, .239410E+04, .176132E+04, .129418E+04,
227 + .949194E+03, .695196E+03, .508162E+03, .370893E+03,
228 + .270147E+03, .196447E+03, .142534E+03, .103239E+03,
229 + .742820E+02, .536040E+02, .385965E+02, .277469E+02,
230 + .199049E+02, .142608E+02, .102085E+02, .729643E+01,
231 + .520983E+01, .372069E+01, .265687E+01, .189955E+01 /
232 DATA (UPDI(I),I=677,728) /
233 + .135911E+01, .975028E+00, .700612E+00, .505092E+00,
234 + .364997E+00, .264756E+00, .192538E+00, .140735E+00,
235 + .102936E+00, .756867E-01, .556598E-01, .411023E-01,
236 + .303853E-01, .225121E-01, .166764E-01, .123668E-01,
237 + .915734E-02, .678313E-02, .501171E-02, .369837E-02,
238 + .271811E-02, .199278E-02, .145205E-02, .105359E-02,
239 + .758705E-03, .542252E-03, .383190E-03, .268234E-03,
240 + .184797E-03, .125394E-03, .830683E-04, .536791E-04,
241 + .332650E-04, .195124E-04, .105031E-04, .480791E-05,
242 + .133827E-05, .000000E+00, .000000E+00, .000000E+00,
243 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
244 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
245 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
246 DATA (UPDI(I),I=729,780) /
247 + .470120E+06, .356432E+06, .265654E+06, .197786E+06,
248 + .147156E+06, .109360E+06, .812107E+05, .602322E+05,
249 + .446360E+05, .330345E+05, .244260E+05, .180353E+05,
250 + .133032E+05, .979789E+04, .720810E+04, .529433E+04,
251 + .388386E+04, .284429E+04, .208018E+04, .151852E+04,
252 + .110685E+04, .805165E+03, .584772E+03, .423811E+03,
253 + .306621E+03, .221319E+03, .159462E+03, .114114E+03,
254 + .818969E+02, .586419E+02, .419171E+02, .298972E+02,
255 + .212923E+02, .151505E+02, .107616E+02, .763595E+01,
256 + .541819E+01, .384390E+01, .272991E+01, .194016E+01,
257 + .138235E+01, .986518E+00, .706249E+00, .506831E+00,
258 + .365054E+00, .263630E+00, .191349E+00, .138977E+00,
259 + .101471E+00, .741048E-01, .543397E-01, .398953E-01 /
260 DATA (UPDI(I),I=781,832) /
261 + .293515E-01, .215946E-01, .159030E-01, .116969E-01,
262 + .860519E-02, .631616E-02, .463040E-02, .338212E-02,
263 + .246470E-02, .178646E-02, .129004E-02, .925872E-03,
264 + .660372E-03, .466908E-03, .328033E-03, .228015E-03,
265 + .157205E-03, .107031E-03, .722426E-04, .480605E-04,
266 + .316259E-04, .206444E-04, .134346E-04, .872002E-05,
267 + .574412E-05, .384998E-05, .267603E-05, .191692E-05,
268 + .142795E-05, .107934E-05, .818491E-06, .598693E-06,
269 + .414825E-06, .263396E-06, .146903E-06, .660254E-07,
270 + .194440E-07, .177238E-08, .000000E+00, .723302E+06,
271 + .546488E+06, .405650E+06, .300790E+06, .222872E+06,
272 + .164945E+06, .121975E+06, .900868E+05, .664758E+05,
273 + .489878E+05, .360649E+05, .265133E+05, .194702E+05 /
274 DATA (UPDI(I),I=833,884) /
275 + .142763E+05, .104554E+05, .764468E+04, .558220E+04,
276 + .406908E+04, .296189E+04, .215188E+04, .156091E+04,
277 + .112992E+04, .816545E+03, .588809E+03, .423806E+03,
278 + .304305E+03, .218093E+03, .155220E+03, .110785E+03,
279 + .788861E+02, .560654E+02, .397574E+02, .281461E+02,
280 + .199073E+02, .140529E+02, .990907E+01, .698602E+01,
281 + .492417E+01, .347397E+01, .245257E+01, .173560E+01,
282 + .123024E+01, .874658E+00, .623395E+00, .445900E+00,
283 + .319802E+00, .230519E+00, .166273E+00, .120566E+00,
284 + .874505E-01, .636855E-01, .464420E-01, .339346E-01,
285 + .247999E-01, .181400E-01, .132546E-01, .968624E-02,
286 + .706376E-02, .514494E-02, .373482E-02, .270516E-02,
287 + .194993E-02, .140069E-02, .100109E-02, .711573E-03 /
288 DATA (UPDI(I),I=885,936) /
289 + .502265E-03, .352947E-03, .246186E-03, .170996E-03,
290 + .118012E-03, .813438E-04, .558762E-04, .384856E-04,
291 + .267194E-04, .188193E-04, .134523E-04, .983858E-05,
292 + .732792E-05, .555790E-05, .424111E-05, .323953E-05,
293 + .243776E-05, .178613E-05, .124929E-05, .819016E-06,
294 + .489266E-06, .254898E-06, .106329E-06, .291473E-07,
295 + .272868E-08, .000000E+00, .104039E+07, .783311E+06,
296 + .579042E+06, .427588E+06, .315499E+06, .232519E+06,
297 + .171215E+06, .125916E+06, .925131E+05, .678801E+05,
298 + .497539E+05, .364156E+05, .266224E+05, .194328E+05,
299 + .141669E+05, .103109E+05, .749399E+04, .543704E+04,
300 + .393876E+04, .284785E+04, .205565E+04, .148072E+04,
301 + .106469E+04, .763856E+03, .546958E+03, .390669E+03 /
302 DATA (UPDI(I),I=937,988) /
303 + .278501E+03, .197128E+03, .139921E+03, .990774E+02,
304 + .700132E+02, .493616E+02, .347379E+02, .244226E+02,
305 + .171343E+02, .120067E+02, .841100E+01, .589054E+01,
306 + .412852E+01, .289548E+01, .203530E+01, .143303E+01,
307 + .101190E+01, .716341E+00, .508884E+00, .362502E+00,
308 + .259524E+00, .185925E+00, .133905E+00, .964748E-01,
309 + .697842E-01, .505526E-01, .366912E-01, .266389E-01,
310 + .193564E-01, .140525E-01, .102025E-01, .739323E-02,
311 + .535087E-02, .386086E-02, .277978E-02, .199280E-02,
312 + .142402E-02, .101341E-02, .717707E-03, .505495E-03,
313 + .354986E-03, .248092E-03, .173164E-03, .120622E-03,
314 + .843151E-04, .591126E-04, .418298E-04, .300098E-04,
315 + .219313E-04, .162880E-04, .123261E-04, .943829E-05 /
316 DATA (UPDI(I),I=989,1040) /
317 + .728146E-05, .559828E-05, .426077E-05, .317016E-05,
318 + .227830E-05, .155721E-05, .993142E-06, .574834E-06,
319 + .288538E-06, .115158E-06, .301378E-07, .286834E-08,
320 + .000000E+00, .143163E+07, .107408E+07, .790679E+06,
321 + .581437E+06, .427208E+06, .313515E+06, .229868E+06,
322 + .168323E+06, .123133E+06, .899520E+05, .656399E+05,
323 + .478291E+05, .348088E+05, .252933E+05, .183546E+05,
324 + .132970E+05, .961903E+04, .694586E+04, .500767E+04,
325 + .360322E+04, .258813E+04, .185506E+04, .132714E+04,
326 + .947302E+03, .674802E+03, .479447E+03, .339970E+03,
327 + .239320E+03, .168935E+03, .118956E+03, .835816E+02,
328 + .585886E+02, .409880E+02, .286452E+02, .199740E+02,
329 + .139103E+02, .968301E+01, .673826E+01, .469206E+01 /
330 DATA (UPDI(I),I=1041,1092) /
331 + .326928E+01, .228286E+01, .159670E+01, .111992E+01,
332 + .787526E+00, .555693E+00, .393203E+00, .279625E+00,
333 + .198988E+00, .142362E+00, .101892E+00, .732157E-01,
334 + .526935E-01, .379945E-01, .274081E-01, .197866E-01,
335 + .142744E-01, .102978E-01, .741634E-02, .533464E-02,
336 + .382657E-02, .273922E-02, .195338E-02, .138888E-02,
337 + .984347E-03, .694710E-03, .488276E-03, .342664E-03,
338 + .239873E-03, .168123E-03, .118011E-03, .834115E-04,
339 + .593865E-04, .428312E-04, .313870E-04, .234388E-04,
340 + .177571E-04, .136431E-04, .105500E-04, .816430E-05,
341 + .626169E-05, .472545E-05, .347166E-05, .245249E-05,
342 + .164345E-05, .102423E-05, .577280E-06, .280766E-06,
343 + .107885E-06, .271293E-07, .261924E-08, .000000E+00 /
344 DATA (UPDI(I),I=1093,1144) /
345 + .190743E+07, .142600E+07, .104536E+07, .765500E+06,
346 + .560066E+06, .409269E+06, .298784E+06, .217844E+06,
347 + .158662E+06, .115398E+06, .838345E+05, .608140E+05,
348 + .440588E+05, .318692E+05, .230199E+05, .165995E+05,
349 + .119516E+05, .858940E+04, .616286E+04, .441297E+04,
350 + .315420E+04, .224959E+04, .160130E+04, .113718E+04,
351 + .805875E+03, .569567E+03, .401732E+03, .281252E+03,
352 + .197447E+03, .138262E+03, .965973E+02, .673249E+02,
353 + .468240E+02, .325306E+02, .225461E+02, .156055E+02,
354 + .107953E+02, .746505E+01, .516491E+01, .357560E+01,
355 + .248048E+01, .172361E+01, .120096E+01, .838964E+00,
356 + .588075E+00, .413381E+00, .292045E+00, .206462E+00,
357 + .146747E+00, .104350E+00, .744962E-01, .532728E-01 /
358 DATA (UPDI(I),I=1145,1196) /
359 + .381658E-01, .273584E-01, .196261E-01, .140714E-01,
360 + .100887E-01, .722212E-02, .516405E-02, .368320E-02,
361 + .262205E-02, .186044E-02, .131659E-02, .929566E-03,
362 + .654007E-03, .458860E-03, .321906E-03, .225747E-03,
363 + .158864E-03, .112296E-03, .801391E-04, .577787E-04,
364 + .422807E-04, .314485E-04, .238106E-04, .182410E-04,
365 + .141107E-04, .109386E-04, .844502E-05, .643652E-05,
366 + .480738E-05, .348523E-05, .242169E-05, .159267E-05,
367 + .971389E-06, .534050E-06, .252193E-06, .935468E-07,
368 + .226815E-07, .221932E-08, .000000E+00, .247800E+07,
369 + .184606E+07, .134764E+07, .982727E+06, .715953E+06,
370 + .520961E+06, .378689E+06, .274911E+06, .199351E+06,
371 + .144356E+06, .104406E+06, .753989E+05, .543785E+05 /
372 DATA (UPDI(I),I=1197,1248) /
373 + .391550E+05, .281526E+05, .202066E+05, .144805E+05,
374 + .103577E+05, .739600E+04, .527040E+04, .374862E+04,
375 + .266033E+04, .188418E+04, .133129E+04, .938577E+03,
376 + .659891E+03, .462985E+03, .322377E+03, .225088E+03,
377 + .156750E+03, .108900E+03, .754689E+02, .521838E+02,
378 + .360425E+02, .248307E+02, .170830E+02, .117447E+02,
379 + .807112E+01, .554904E+01, .381716E+01, .263107E+01,
380 + .181651E+01, .125747E+01, .872766E+00, .607795E+00,
381 + .424481E+00, .297955E+00, .209281E+00, .147799E+00,
382 + .104430E+00, .740793E-01, .526427E-01, .374777E-01,
383 + .266994E-01, .190354E-01, .135658E-01, .966771E-02,
384 + .688044E-02, .489150E-02, .346978E-02, .245715E-02,
385 + .173517E-02, .122262E-02, .860249E-03, .603620E-03 /
386 DATA (UPDI(I),I=1249,1300) /
387 + .422951E-03, .296745E-03, .208548E-03, .147376E-03,
388 + .104872E-03, .754910E-04, .550076E-04, .407139E-04,
389 + .306094E-04, .233822E-04, .180204E-04, .139701E-04,
390 + .108136E-04, .830507E-05, .627790E-05, .463605E-05,
391 + .331539E-05, .226641E-05, .146349E-05, .874107E-06,
392 + .469133E-06, .215323E-06, .772240E-07, .180991E-07,
393 + .179380E-08, .000000E+00, .000000E+00, .000000E+00,
394 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
395 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
396 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
397 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
398 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
399 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
400 DATA (UPDI(I),I=1301,1352) /
401 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
402 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
403 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
404 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
405 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
406 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
407 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
408 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
409 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
410 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
411 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
412 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
413 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
414 DATA (UPDI(I),I=1353,1404) /
415 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
416 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
417 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
418 + .000000E+00, .278503E+05, .000000E+00, .000000E+00,
419 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
420 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
421 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
422 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
423 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
424 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
425 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
426 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
427 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
428 DATA (UPDI(I),I=1405,1456) /
429 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
430 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
431 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
432 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
433 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
434 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
435 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
436 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
437 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
438 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
439 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
440 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
441 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
442 DATA (UPDI(I),I=1457,1508) /
443 + .278825E+05, .218260E+05, .168799E+05, .130442E+05,
444 + .100760E+05, .777667E+04, .599928E+04, .462387E+04,
445 + .356195E+04, .274117E+04, .210831E+04, .161980E+04,
446 + .124367E+04, .953754E+03, .730888E+03, .559385E+03,
447 + .427778E+03, .326682E+03, .249257E+03, .189896E+03,
448 + .144532E+03, .109825E+03, .833676E+02, .631755E+02,
449 + .478220E+02, .361355E+02, .272728E+02, .204685E+02,
450 + .154085E+02, .115785E+02, .869405E+01, .651730E+01,
451 + .488383E+01, .365769E+01, .273823E+01, .204847E+01,
452 + .153423E+01, .114910E+01, .862457E+00, .647733E+00,
453 + .488072E+00, .368199E+00, .278829E+00, .211487E+00,
454 + .161063E+00, .122854E+00, .941781E-01, .721893E-01,
455 + .556047E-01, .427983E-01, .330747E-01, .255553E-01 /
456 DATA (UPDI(I),I=1509,1560) /
457 + .197921E-01, .153069E-01, .118550E-01, .915680E-02,
458 + .707893E-02, .545312E-02, .419741E-02, .321447E-02,
459 + .245702E-02, .186435E-02, .140938E-02, .105519E-02,
460 + .784565E-03, .575488E-03, .417572E-03, .296895E-03,
461 + .206806E-03, .139119E-03, .897257E-04, .533975E-04,
462 + .279177E-04, .101416E-04, .000000E+00, .000000E+00,
463 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
464 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
465 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
466 + .000000E+00, .000000E+00, .000000E+00, .677363E+05,
467 + .527696E+05, .405889E+05, .311941E+05, .239640E+05,
468 + .183937E+05, .141116E+05, .108162E+05, .828596E+04,
469 + .634121E+04, .485002E+04, .370544E+04, .282907E+04 /
470 DATA (UPDI(I),I=1561,1612) /
471 + .215742E+04, .164398E+04, .125114E+04, .951370E+03,
472 + .722428E+03, .548080E+03, .415183E+03, .314192E+03,
473 + .237381E+03, .179156E+03, .134982E+03, .101582E+03,
474 + .763091E+02, .572533E+02, .427113E+02, .319587E+02,
475 + .238702E+02, .178129E+02, .132705E+02, .988100E+01,
476 + .735319E+01, .546841E+01, .406393E+01, .302292E+01,
477 + .224865E+01, .167578E+01, .124972E+01, .934834E+00,
478 + .700186E+00, .526307E+00, .396301E+00, .299558E+00,
479 + .226830E+00, .172593E+00, .131329E+00, .100410E+00,
480 + .767279E-01, .588595E-01, .451564E-01, .347192E-01,
481 + .266655E-01, .205061E-01, .157340E-01, .120824E-01,
482 + .925021E-02, .707793E-02, .539298E-02, .410400E-02,
483 + .310488E-02, .234371E-02, .175712E-02, .131232E-02 /
484 DATA (UPDI(I),I=1613,1664) /
485 + .971897E-03, .716745E-03, .523318E-03, .379761E-03,
486 + .272319E-03, .193894E-03, .135979E-03, .944948E-04,
487 + .646761E-04, .436418E-04, .288701E-04, .189134E-04,
488 + .120747E-04, .762681E-05, .467475E-05, .284708E-05,
489 + .169415E-05, .102323E-05, .584218E-06, .330603E-06,
490 + .178586E-06, .925626E-07, .422535E-07, .143796E-07,
491 + .987546E-09, .000000E+00, .121990E+06, .946158E+05,
492 + .724081E+05, .553664E+05, .423174E+05, .323151E+05,
493 + .246651E+05, .188081E+05, .143340E+05, .109131E+05,
494 + .830341E+04, .631083E+04, .479307E+04, .363599E+04,
495 + .275608E+04, .208643E+04, .157811E+04, .119198E+04,
496 + .899477E+03, .677729E+03, .510106E+03, .383317E+03,
497 + .287717E+03, .215590E+03, .161348E+03, .120530E+03 /
498 DATA (UPDI(I),I=1665,1716) /
499 + .899225E+02, .666981E+02, .496194E+02, .368471E+02,
500 + .273341E+02, .202429E+02, .149805E+02, .110800E+02,
501 + .818784E+01, .604637E+01, .446811E+01, .330196E+01,
502 + .244414E+01, .181050E+01, .134496E+01, .100050E+01,
503 + .746762E+00, .558434E+00, .419139E+00, .315196E+00,
504 + .238158E+00, .179976E+00, .136653E+00, .103721E+00,
505 + .790217E-01, .602255E-01, .459932E-01, .350963E-01,
506 + .268109E-01, .204425E-01, .155970E-01, .118683E-01,
507 + .902526E-02, .683760E-02, .517380E-02, .389483E-02,
508 + .292603E-02, .218600E-02, .162793E-02, .120430E-02,
509 + .888611E-03, .651109E-03, .475749E-03, .345317E-03,
510 + .250365E-03, .180485E-03, .130253E-03, .939311E-04,
511 + .679737E-04, .493037E-04, .361717E-04, .266195E-04 /
512 DATA (UPDI(I),I=1717,1768) /
513 + .198048E-04, .147170E-04, .109848E-04, .810286E-05,
514 + .589332E-05, .411707E-05, .274224E-05, .168970E-05,
515 + .930307E-06, .424472E-06, .132192E-06, .117199E-07,
516 + .000000E+00, .168305E+06, .149567E+06, .113914E+06,
517 + .866853E+05, .659356E+05, .501073E+05, .380594E+05,
518 + .288802E+05, .219023E+05, .165931E+05, .125627E+05,
519 + .950070E+04, .717977E+04, .541929E+04, .408714E+04,
520 + .307847E+04, .231662E+04, .174089E+04, .130694E+04,
521 + .979676E+03, .733543E+03, .548347E+03, .409421E+03,
522 + .305165E+03, .227164E+03, .168781E+03, .125234E+03,
523 + .923730E+02, .683363E+02, .504616E+02, .372188E+02,
524 + .274043E+02, .201600E+02, .148224E+02, .108863E+02,
525 + .798965E+01, .586679E+01, .430814E+01, .316816E+01 /
526 DATA (UPDI(I),I=1769,1820) /
527 + .233160E+01, .172055E+01, .127148E+01, .942629E+00,
528 + .700238E+00, .522026E+00, .389975E+00, .292695E+00,
529 + .219735E+00, .165741E+00, .124988E+00, .946026E-01,
530 + .716452E-01, .543621E-01, .412256E-01, .312940E-01,
531 + .237165E-01, .179827E-01, .136024E-01, .102815E-01,
532 + .774501E-02, .582655E-02, .436308E-02, .326043E-02,
533 + .242494E-02, .179809E-02, .132582E-02, .975740E-03,
534 + .714245E-03, .522123E-03, .380123E-03, .277093E-03,
535 + .201611E-03, .147368E-03, .108098E-03, .799084E-04,
536 + .594449E-04, .447749E-04, .338823E-04, .258429E-04,
537 + .196484E-04, .149057E-04, .111221E-04, .811450E-05,
538 + .567092E-05, .375394E-05, .228771E-05, .123699E-05,
539 + .549173E-06, .164601E-06, .148656E-07, .000000E+00 /
540 DATA (UPDI(I),I=1821,1872) /
541 + .306171E+06, .235375E+06, .178304E+06, .134956E+06,
542 + .102095E+06, .771658E+05, .582907E+05, .439898E+05,
543 + .331764E+05, .249952E+05, .188180E+05, .141517E+05,
544 + .106340E+05, .798110E+04, .598472E+04, .448194E+04,
545 + .335320E+04, .250526E+04, .186974E+04, .139332E+04,
546 + .103704E+04, .770606E+03, .571885E+03, .423677E+03,
547 + .313439E+03, .231438E+03, .170646E+03, .125061E+03,
548 + .919207E+02, .674380E+02, .494096E+02, .361384E+02,
549 + .264028E+02, .192795E+02, .140595E+02, .102455E+02,
550 + .746828E+01, .544424E+01, .397361E+01, .290260E+01,
551 + .212554E+01, .155896E+01, .114682E+01, .845492E+00,
552 + .625452E+00, .463729E+00, .345407E+00, .257372E+00,
553 + .192677E+00, .144242E+00, .108368E+00, .814853E-01 /
554 DATA (UPDI(I),I=1873,1924) /
555 + .613768E-01, .462187E-01, .348300E-01, .262128E-01,
556 + .197304E-01, .148181E-01, .111161E-01, .831110E-02,
557 + .620159E-02, .460579E-02, .340982E-02, .251169E-02,
558 + .184115E-02, .134031E-02, .971271E-03, .698207E-03,
559 + .499103E-03, .353634E-03, .249181E-03, .173890E-03,
560 + .120716E-03, .831926E-04, .571418E-04, .390476E-04,
561 + .267822E-04, .183441E-04, .126723E-04, .876229E-05,
562 + .612210E-05, .426734E-05, .296596E-05, .199305E-05,
563 + .128782E-05, .774027E-06, .418390E-06, .187358E-06,
564 + .570842E-07, .504920E-08, .000000E+00, .455811E+06,
565 + .348829E+06, .262863E+06, .197913E+06, .148930E+06,
566 + .111967E+06, .841263E+05, .631459E+05, .473657E+05,
567 + .354914E+05, .265738E+05, .198744E+05, .148513E+05 /
568 DATA (UPDI(I),I=1925,1976) /
569 + .110843E+05, .826497E+04, .615471E+04, .457848E+04,
570 + .340116E+04, .252371E+04, .186975E+04, .138349E+04,
571 + .102199E+04, .753922E+03, .555190E+03, .408236E+03,
572 + .299584E+03, .219522E+03, .159859E+03, .116750E+03,
573 + .851060E+02, .619465E+02, .450099E+02, .326626E+02,
574 + .236892E+02, .171553E+02, .124142E+02, .898444E+01,
575 + .650258E+01, .471131E+01, .341631E+01, .248308E+01,
576 + .180773E+01, .131982E+01, .965810E+00, .709080E+00,
577 + .521842E+00, .385800E+00, .285351E+00, .212049E+00,
578 + .157593E+00, .117532E+00, .877463E-01, .656137E-01,
579 + .490612E-01, .367067E-01, .274331E-01, .205016E-01,
580 + .152905E-01, .113892E-01, .845699E-02, .626626E-02,
581 + .462287E-02, .339922E-02, .248846E-02, .181275E-02 /
582 DATA (UPDI(I),I=1977,2028) /
583 + .131238E-02, .946173E-03, .677534E-03, .482984E-03,
584 + .342023E-03, .241402E-03, .169399E-03, .118714E-03,
585 + .830807E-04, .583525E-04, .410941E-04, .292225E-04,
586 + .209065E-04, .151134E-04, .109541E-04, .796704E-05,
587 + .574040E-05, .406299E-05, .276232E-05, .178035E-05,
588 + .105535E-05, .553083E-06, .235327E-06, .665976E-07,
589 + .609320E-08, .000000E+00, .650558E+06, .495684E+06,
590 + .371619E+06, .278364E+06, .208388E+06, .155855E+06,
591 + .116490E+06, .869790E+05, .648973E+05, .483692E+05,
592 + .360216E+05, .267950E+05, .199139E+05, .147815E+05,
593 + .109610E+05, .811713E+04, .600452E+04, .443541E+04,
594 + .327243E+04, .241060E+04, .177338E+04, .130238E+04,
595 + .955114E+03, .699181E+03, .511026E+03, .372739E+03 /
596 DATA (UPDI(I),I=2029,2080) /
597 + .271453E+03, .196435E+03, .142561E+03, .103262E+03,
598 + .746767E+02, .539063E+02, .388583E+02, .279943E+02,
599 + .201342E+02, .144694E+02, .103982E+02, .747263E+01,
600 + .537518E+01, .386962E+01, .279201E+01, .201785E+01,
601 + .146235E+01, .106230E+01, .774173E+00, .565599E+00,
602 + .415103E+00, .304799E+00, .224868E+00, .165928E+00,
603 + .122863E+00, .910823E-01, .676256E-01, .502152E-01,
604 + .373068E-01, .276910E-01, .205505E-01, .152226E-01,
605 + .112606E-01, .830557E-02, .611240E-02, .448017E-02,
606 + .327283E-02, .238164E-02, .172464E-02, .124203E-02,
607 + .891181E-03, .635851E-03, .452149E-03, .320042E-03,
608 + .226255E-03, .159555E-03, .112742E-03, .799044E-04,
609 + .570984E-04, .410881E-04, .299227E-04, .219684E-04 /
610 DATA (UPDI(I),I=2081,2132) /
611 + .162675E-04, .120515E-04, .890406E-05, .648224E-05,
612 + .459893E-05, .312272E-05, .199692E-05, .116843E-05,
613 + .599729E-06, .247724E-06, .675489E-07, .628860E-08,
614 + .000000E+00, .899511E+06, .682442E+06, .509077E+06,
615 + .379417E+06, .282602E+06, .210286E+06, .156367E+06,
616 + .116152E+06, .862138E+05, .639210E+05, .473523E+05,
617 + .350367E+05, .258997E+05, .191211E+05, .141020E+05,
618 + .103861E+05, .764054E+04, .561256E+04, .411770E+04,
619 + .301613E+04, .220617E+04, .161091E+04, .117450E+04,
620 + .854738E+03, .621010E+03, .450237E+03, .325904E+03,
621 + .234371E+03, .169035E+03, .121670E+03, .874271E+02,
622 + .627037E+02, .449029E+02, .321352E+02, .229563E+02,
623 + .163851E+02, .116933E+02, .834476E+01, .596003E+01 /
624 DATA (UPDI(I),I=2133,2184) /
625 + .426019E+01, .305174E+01, .218975E+01, .157544E+01,
626 + .113622E+01, .822059E+00, .596281E+00, .434492E+00,
627 + .316761E+00, .232040E+00, .170019E+00, .125008E+00,
628 + .920327E-01, .678569E-01, .500435E-01, .369242E-01,
629 + .272230E-01, .200659E-01, .147647E-01, .108487E-01,
630 + .794947E-02, .581204E-02, .423332E-02, .307324E-02,
631 + .222362E-02, .160124E-02, .114753E-02, .819825E-03,
632 + .583100E-03, .413832E-03, .292916E-03, .207488E-03,
633 + .147036E-03, .104697E-03, .750156E-04, .543516E-04,
634 + .397391E-04, .294083E-04, .219293E-04, .164430E-04,
635 + .122963E-04, .912286E-05, .664049E-05, .468482E-05,
636 + .315389E-05, .199048E-05, .114473E-05, .574023E-06,
637 + .229959E-06, .605571E-07, .571895E-08, .000000E+00 /
638 DATA (UPDI(I),I=2185,2236) /
639 + .121245E+07, .916028E+06, .679978E+06, .504300E+06,
640 + .373756E+06, .276728E+06, .204737E+06, .151313E+06,
641 + .111738E+06, .824197E+05, .607392E+05, .447074E+05,
642 + .328743E+05, .241416E+05, .177093E+05, .129726E+05,
643 + .949134E+04, .693389E+04, .505892E+04, .368488E+04,
644 + .268013E+04, .194586E+04, .141055E+04, .102057E+04,
645 + .737134E+03, .531248E+03, .382237E+03, .273191E+03,
646 + .195822E+03, .140076E+03, .100018E+03, .712768E+02,
647 + .507110E+02, .360548E+02, .255847E+02, .181384E+02,
648 + .128561E+02, .911154E+01, .646235E+01, .458694E+01,
649 + .326260E+01, .232453E+01, .166051E+01, .118910E+01,
650 + .854209E+00, .615235E+00, .445154E+00, .322259E+00,
651 + .234428E+00, .170583E+00, .124558E+00, .910788E-01 /
652 DATA (UPDI(I),I=2237,2288) /
653 + .666961E-01, .488579E-01, .358072E-01, .262252E-01,
654 + .192021E-01, .140369E-01, .102467E-01, .746062E-02,
655 + .542012E-02, .392399E-02, .283176E-02, .203780E-02,
656 + .145982E-02, .104151E-02, .741262E-03, .525858E-03,
657 + .372718E-03, .263969E-03, .187449E-03, .133509E-03,
658 + .957724E-04, .692905E-04, .507803E-04, .375786E-04,
659 + .281174E-04, .211639E-04, .159654E-04, .119732E-04,
660 + .886951E-05, .642326E-05, .448976E-05, .298692E-05,
661 + .185593E-05, .104694E-05, .512184E-06, .198841E-06,
662 + .505882E-07, .484219E-08, .000000E+00, .159961E+07,
663 + .120362E+07, .889170E+06, .656268E+06, .484019E+06,
664 + .356614E+06, .262536E+06, .193066E+06, .141854E+06,
665 + .104105E+06, .763291E+05, .558938E+05, .408867E+05 /
666 DATA (UPDI(I),I=2289,2340) /
667 + .298689E+05, .217949E+05, .158806E+05, .115567E+05,
668 + .839706E+04, .609295E+04, .441361E+04, .319228E+04,
669 + .230469E+04, .166118E+04, .119500E+04, .858117E+03,
670 + .614803E+03, .439735E+03, .312375E+03, .222550E+03,
671 + .158218E+03, .112268E+03, .795036E+02, .562021E+02,
672 + .397013E+02, .279873E+02, .197103E+02, .138763E+02,
673 + .976798E+01, .688045E+01, .485008E+01, .342582E+01,
674 + .242388E+01, .171937E+01, .122269E+01, .872211E+00,
675 + .623847E+00, .448272E+00, .322279E+00, .232843E+00,
676 + .168279E+00, .122045E+00, .886450E-01, .644799E-01,
677 + .469235E-01, .341631E-01, .248591E-01, .180836E-01,
678 + .131351E-01, .952750E-02, .689410E-02, .497799E-02,
679 + .358296E-02, .257109E-02, .184078E-02, .131239E-02 /
680 DATA (UPDI(I),I=2341,2392) /
681 + .932578E-03, .661590E-03, .468411E-03, .331792E-03,
682 + .235269E-03, .167576E-03, .119986E-03, .866905E-04,
683 + .632661E-04, .468045E-04, .349522E-04, .263450E-04,
684 + .199322E-04, .150648E-04, .112847E-04, .831902E-05,
685 + .597730E-05, .413116E-05, .271106E-05, .165628E-05,
686 + .915457E-06, .436627E-06, .164242E-06, .404052E-07,
687 + .391806E-08, .000000E+00, .207140E+07, .155242E+07,
688 + .114144E+07, .838484E+06, .615457E+06, .451277E+06,
689 + .330614E+06, .241942E+06, .176889E+06, .129173E+06,
690 + .942331E+05, .686560E+05, .499660E+05, .363140E+05,
691 + .263602E+05, .191066E+05, .138308E+05, .999589E+04,
692 + .721399E+04, .519730E+04, .373846E+04, .268406E+04,
693 + .192378E+04, .137609E+04, .982490E+03, .699828E+03 /
694 DATA (UPDI(I),I=2393,2444) /
695 + .497623E+03, .351376E+03, .248837E+03, .175837E+03,
696 + .124004E+03, .872700E+02, .613033E+02, .430299E+02,
697 + .301377E+02, .210863E+02, .147468E+02, .103116E+02,
698 + .721446E+01, .505109E+01, .354347E+01, .249001E+01,
699 + .175415E+01, .123890E+01, .877720E+00, .623511E+00,
700 + .444995E+00, .317755E+00, .228037E+00, .163706E+00,
701 + .117940E+00, .851007E-01, .614960E-01, .444626E-01,
702 + .321625E-01, .232549E-01, .168093E-01, .121335E-01,
703 + .874672E-02, .629120E-02, .451599E-02, .323238E-02,
704 + .230718E-02, .164397E-02, .116699E-02, .826347E-03,
705 + .584679E-03, .413401E-03, .292840E-03, .208028E-03,
706 + .148694E-03, .107044E-03, .778677E-04, .572626E-04,
707 + .426871E-04, .320878E-04, .242943E-04, .184181E-04 /
708 DATA (UPDI(I),I=2445,2496) /
709 + .139063E-04, .103771E-04, .759638E-05, .540571E-05,
710 + .368952E-05, .238576E-05, .143195E-05, .774971E-06,
711 + .360222E-06, .131313E-06, .312747E-07, .307128E-08,
712 + .000000E+00, .263803E+07, .196941E+07, .144137E+07,
713 + .105390E+07, .769950E+06, .561897E+06, .409697E+06,
714 + .298378E+06, .217094E+06, .157759E+06, .114520E+06,
715 + .830224E+05, .601184E+05, .434717E+05, .313948E+05,
716 + .226387E+05, .163023E+05, .117204E+05, .841369E+04,
717 + .602921E+04, .431342E+04, .307997E+04, .219537E+04,
718 + .156160E+04, .110865E+04, .785180E+03, .555101E+03,
719 + .389647E+03, .274313E+03, .192684E+03, .135064E+03,
720 + .944740E+02, .659522E+02, .460039E+02, .320159E+02,
721 + .222568E+02, .154643E+02, .107425E+02, .746620E+01 /
722 DATA (UPDI(I),I=2497,2548) /
723 + .519258E+01, .361834E+01, .252557E+01, .176721E+01,
724 + .123974E+01, .872414E+00, .615594E+00, .436423E+00,
725 + .309560E+00, .220694E+00, .157395E+00, .112654E+00,
726 + .807624E-01, .579855E-01, .416585E-01, .299437E-01,
727 + .215160E-01, .154560E-01, .110889E-01, .794583E-02,
728 + .568203E-02, .405574E-02, .288759E-02, .205079E-02,
729 + .145486E-02, .102873E-02, .726259E-03, .512809E-03,
730 + .362324E-03, .256833E-03, .182881E-03, .131224E-03,
731 + .949782E-04, .695280E-04, .514642E-04, .385922E-04,
732 + .291379E-04, .221074E-04, .167542E-04, .126099E-04,
733 + .935571E-05, .679065E-05, .478024E-05, .321921E-05,
734 + .204962E-05, .120795E-05, .639850E-06, .289800E-06,
735 + .102413E-06, .236453E-07, .235091E-08, .000000E+00 /
736 DATA (UPDI(I),I=2549,2600) /
737 + .940743E+04, .320823E+04, .264158E+04, .217499E+04,
738 + .179081E+04, .147450E+04, .121407E+04, .999634E+03,
739 + .823081E+03, .677715E+03, .558028E+03, .459482E+03,
740 + .378344E+03, .311539E+03, .256534E+03, .211246E+03,
741 + .173958E+03, .143256E+03, .117978E+03, .971650E+02,
742 + .800284E+02, .659187E+02, .543013E+02, .447358E+02,
743 + .368599E+02, .303749E+02, .250351E+02, .205818E+02,
744 + .169725E+02, .140001E+02, .115519E+02, .953538E+01,
745 + .787421E+01, .650931E+01, .538161E+01, .445250E+01,
746 + .368670E+01, .305517E+01, .253400E+01, .210331E+01,
747 + .174751E+01, .145269E+01, .120814E+01, .100495E+01,
748 + .835823E+00, .694843E+00, .577557E+00, .478909E+00,
749 + .396882E+00, .327814E+00, .270245E+00, .222101E+00 /
750 DATA (UPDI(I),I=2601,2652) /
751 + .181890E+00, .148363E+00, .120472E+00, .973392E-01,
752 + .782191E-01, .624807E-01, .495867E-01, .390786E-01,
753 + .305649E-01, .237111E-01, .182321E-01, .139032E-01,
754 + .104758E-01, .780524E-02, .574497E-02, .417271E-02,
755 + .298707E-02, .210459E-02, .145713E-02, .989569E-03,
756 + .657633E-03, .426396E-03, .270139E-03, .165550E-03,
757 + .980414E-04, .558202E-04, .303609E-04, .156498E-04,
758 + .756678E-05, .339071E-05, .137476E-05, .495377E-06,
759 + .152229E-06, .376441E-07, .679579E-08, .746117E-09,
760 + .330585E-10, .159208E-12, .000000E+00, .206302E+05,
761 + .193719E+05, .153213E+05, .121141E+05, .957900E+04,
762 + .757224E+04, .598635E+04, .473118E+04, .373951E+04,
763 + .295479E+04, .233497E+04, .184460E+04, .145738E+04 /
764 DATA (UPDI(I),I=2653,2704) /
765 + .115109E+04, .909313E+03, .718103E+03, .567213E+03,
766 + .447905E+03, .353784E+03, .279377E+03, .220698E+03,
767 + .174315E+03, .137745E+03, .108841E+03, .860547E+02,
768 + .680474E+02, .538470E+02, .424878E+02, .336723E+02,
769 + .266987E+02, .211981E+02, .168431E+02, .134053E+02,
770 + .106869E+02, .853257E+01, .682222E+01, .546801E+01,
771 + .438996E+01, .353373E+01, .284925E+01, .230377E+01,
772 + .186548E+01, .151399E+01, .123006E+01, .100097E+01,
773 + .814848E+00, .664327E+00, .540686E+00, .440446E+00,
774 + .357825E+00, .290540E+00, .235320E+00, .190149E+00,
775 + .153108E+00, .122866E+00, .981474E-01, .780611E-01,
776 + .617424E-01, .485680E-01, .379522E-01, .294624E-01,
777 + .226931E-01, .173404E-01, .131409E-01, .984959E-02 /
778 DATA (UPDI(I),I=2705,2756) /
779 + .729964E-02, .534654E-02, .386092E-02, .274538E-02,
780 + .191564E-02, .130791E-02, .867339E-03, .555116E-03,
781 + .336567E-03, .188390E-03, .898127E-04, .270146E-04,
782 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
783 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
784 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
785 + .000000E+00, .000000E+00, .519533E+05, .410400E+05,
786 + .320750E+05, .250583E+05, .195751E+05, .152855E+05,
787 + .119349E+05, .931484E+04, .726929E+04, .567045E+04,
788 + .442286E+04, .344820E+04, .268808E+04, .209455E+04,
789 + .163195E+04, .127094E+04, .989732E+03, .770404E+03,
790 + .599677E+03, .466591E+03, .363065E+03, .282408E+03,
791 + .219707E+03, .170884E+03, .132952E+03, .103429E+03 /
792 DATA (UPDI(I),I=2757,2808) /
793 + .804989E+02, .624460E+02, .486536E+02, .379205E+02,
794 + .295890E+02, .231032E+02, .180670E+02, .141530E+02,
795 + .111030E+02, .872390E+01, .687221E+01, .542413E+01,
796 + .429364E+01, .340580E+01, .271026E+01, .216101E+01,
797 + .172786E+01, .138380E+01, .111065E+01, .892244E+00,
798 + .718319E+00, .577580E+00, .465115E+00, .373714E+00,
799 + .300271E+00, .240774E+00, .192703E+00, .153747E+00,
800 + .122301E+00, .968761E-01, .764318E-01, .599864E-01,
801 + .468358E-01, .363351E-01, .280108E-01, .214283E-01,
802 + .162641E-01, .122428E-01, .911506E-02, .670859E-02,
803 + .487820E-02, .349487E-02, .246302E-02, .170037E-02,
804 + .114556E-02, .746229E-03, .465681E-03, .271270E-03,
805 + .141327E-03, .566426E-04, .549488E-05, .000000E+00 /
806 DATA (UPDI(I),I=2809,2860) /
807 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
808 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
809 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
810 + .000000E+00, .916249E+05, .718365E+05, .556665E+05,
811 + .431150E+05, .333886E+05, .258434E+05, .200000E+05,
812 + .154696E+05, .119633E+05, .924669E+04, .714554E+04,
813 + .551871E+04, .426138E+04, .328860E+04, .253734E+04,
814 + .195656E+04, .150840E+04, .116223E+04, .895346E+03,
815 + .689357E+03, .530690E+03, .408329E+03, .314169E+03,
816 + .241618E+03, .185835E+03, .142886E+03, .109888E+03,
817 + .842005E+02, .647948E+02, .498696E+02, .384165E+02,
818 + .296086E+02, .228503E+02, .176638E+02, .136717E+02,
819 + .105982E+02, .823622E+01, .641370E+01, .500927E+01 /
820 DATA (UPDI(I),I=2861,2912) /
821 + .392120E+01, .307994E+01, .242465E+01, .191459E+01,
822 + .151488E+01, .120161E+01, .954396E+00, .759986E+00,
823 + .604628E+00, .481967E+00, .383467E+00, .305213E+00,
824 + .242531E+00, .192421E+00, .152239E+00, .120124E+00,
825 + .944122E-01, .739303E-01, .576054E-01, .446648E-01,
826 + .344203E-01, .263658E-01, .200477E-01, .151286E-01,
827 + .113271E-01, .839214E-02, .615003E-02, .445655E-02,
828 + .318514E-02, .224297E-02, .155075E-02, .105013E-02,
829 + .691767E-03, .441028E-03, .267895E-03, .152409E-03,
830 + .770341E-04, .318152E-04, .120773E-04, .762681E-05,
831 + .467475E-05, .284708E-05, .169415E-05, .102323E-05,
832 + .584218E-06, .330603E-06, .178586E-06, .925626E-07,
833 + .422535E-07, .143796E-07, .987546E-09, .000000E+00 /
834 DATA (UPDI(I),I=2913,2964) /
835 + .145705E+06, .113543E+06, .873745E+05, .671989E+05,
836 + .516715E+05, .397088E+05, .305088E+05, .234260E+05,
837 + .179830E+05, .137959E+05, .105809E+05, .810974E+04,
838 + .621389E+04, .475802E+04, .364211E+04, .278601E+04,
839 + .213046E+04, .162804E+04, .124373E+04, .949490E+03,
840 + .724657E+03, .552696E+03, .421456E+03, .321193E+03,
841 + .244754E+03, .186413E+03, .141983E+03, .107712E+03,
842 + .820572E+02, .625119E+02, .476531E+02, .363384E+02,
843 + .277405E+02, .212098E+02, .162333E+02, .124427E+02,
844 + .956005E+01, .736020E+01, .568314E+01, .439851E+01,
845 + .341614E+01, .265968E+01, .207735E+01, .162623E+01,
846 + .127655E+01, .100369E+01, .791434E+00, .623653E+00,
847 + .492571E+00, .388415E+00, .306493E+00, .241530E+00 /
848 DATA (UPDI(I),I=2965,3016) /
849 + .190087E+00, .149226E+00, .116859E+00, .911788E-01,
850 + .708948E-01, .548640E-01, .422580E-01, .323581E-01,
851 + .246337E-01, .186202E-01, .139715E-01, .104048E-01,
852 + .767023E-02, .559542E-02, .403861E-02, .287734E-02,
853 + .202216E-02, .139763E-02, .948531E-03, .628857E-03,
854 + .406189E-03, .253071E-03, .151235E-03, .848526E-04,
855 + .451729E-04, .266224E-04, .198048E-04, .147170E-04,
856 + .109848E-04, .810286E-05, .589332E-05, .411707E-05,
857 + .274224E-05, .168970E-05, .930307E-06, .424472E-06,
858 + .132192E-06, .117199E-07, .000000E+00, .161313E+06,
859 + .168361E+06, .128773E+06, .984330E+05, .752220E+05,
860 + .574471E+05, .438601E+05, .334639E+05, .255240E+05,
861 + .194543E+05, .148229E+05, .112858E+05, .858955E+04 /
862 DATA (UPDI(I),I=3017,3068) /
863 + .653252E+04, .496612E+04, .377242E+04, .286445E+04,
864 + .217333E+04, .164829E+04, .124910E+04, .946206E+03,
865 + .716202E+03, .541920E+03, .409759E+03, .309744E+03,
866 + .233984E+03, .176732E+03, .132920E+03, .100382E+03,
867 + .757960E+02, .572567E+02, .432598E+02, .327132E+02,
868 + .247733E+02, .187760E+02, .142501E+02, .108395E+02,
869 + .826166E+01, .631490E+01, .483841E+01, .372016E+01,
870 + .286773E+01, .221790E+01, .171959E+01, .133709E+01,
871 + .104161E+01, .813972E+00, .635789E+00, .497894E+00,
872 + .389367E+00, .304780E+00, .238318E+00, .186141E+00,
873 + .145060E+00, .112786E+00, .873938E-01, .674942E-01,
874 + .518916E-01, .397144E-01, .302233E-01, .228707E-01,
875 + .171881E-01, .128246E-01, .950015E-02, .696789E-02 /
876 DATA (UPDI(I),I=3069,3120) /
877 + .505935E-02, .363632E-02, .258155E-02, .180949E-02,
878 + .124901E-02, .848233E-03, .564542E-03, .367857E-03,
879 + .233179E-03, .143894E-03, .858227E-04, .511200E-04,
880 + .338850E-04, .258429E-04, .196484E-04, .149057E-04,
881 + .111221E-04, .811450E-05, .567092E-05, .375394E-05,
882 + .228771E-05, .123699E-05, .549173E-06, .164601E-06,
883 + .148656E-07, .000000E+00, .329530E+06, .254016E+06,
884 + .193041E+06, .146607E+06, .111304E+06, .844439E+05,
885 + .640422E+05, .485343E+05, .367668E+05, .278314E+05,
886 + .210582E+05, .159209E+05, .120311E+05, .908419E+04,
887 + .685559E+04, .516940E+04, .389583E+04, .293353E+04,
888 + .220772E+04, .166004E+04, .124752E+04, .936687E+03,
889 + .702941E+03, .527093E+03, .395051E+03, .295843E+03 /
890 DATA (UPDI(I),I=3121,3172) /
891 + .221481E+03, .165057E+03, .123504E+03, .923817E+02,
892 + .691151E+02, .517098E+02, .387114E+02, .290190E+02,
893 + .217655E+02, .163459E+02, .123010E+02, .927525E+01,
894 + .701289E+01, .531524E+01, .404260E+01, .308299E+01,
895 + .235900E+01, .180990E+01, .139279E+01, .107408E+01,
896 + .831082E+00, .642894E+00, .498739E+00, .386467E+00,
897 + .299816E+00, .232416E+00, .180001E+00, .139129E+00,
898 + .107308E+00, .825028E-01, .632294E-01, .482503E-01,
899 + .366552E-01, .276937E-01, .208053E-01, .155243E-01,
900 + .114990E-01, .845621E-02, .615495E-02, .443362E-02,
901 + .315927E-02, .222185E-02, .154073E-02, .105022E-02,
902 + .702350E-03, .458475E-03, .291162E-03, .178158E-03,
903 + .104564E-03, .579272E-04, .311253E-04, .183464E-04 /
904 DATA (UPDI(I),I=3173,3224) /
905 + .126723E-04, .876229E-05, .612210E-05, .426734E-05,
906 + .296596E-05, .199305E-05, .128782E-05, .774027E-06,
907 + .418390E-06, .187358E-06, .570842E-07, .504920E-08,
908 + .000000E+00, .478981E+06, .367318E+06, .277480E+06,
909 + .209467E+06, .158062E+06, .119184E+06, .898291E+05,
910 + .676516E+05, .509251E+05, .383030E+05, .287943E+05,
911 + .216278E+05, .162358E+05, .121773E+05, .912778E+04,
912 + .683571E+04, .511592E+04, .382526E+04, .285834E+04,
913 + .213377E+04, .159177E+04, .118629E+04, .883526E+03,
914 + .657419E+03, .488870E+03, .363181E+03, .269686E+03,
915 + .199296E+03, .147862E+03, .109652E+03, .813132E+02,
916 + .602917E+02, .447221E+02, .332137E+02, .246747E+02,
917 + .183526E+02, .136759E+02, .102104E+02, .764305E+01 /
918 DATA (UPDI(I),I=3225,3276) /
919 + .573515E+01, .431835E+01, .326061E+01, .247020E+01,
920 + .187673E+01, .143026E+01, .109251E+01, .837475E+00,
921 + .641903E+00, .493520E+00, .379072E+00, .291558E+00,
922 + .224130E+00, .172159E+00, .132006E+00, .101014E+00,
923 + .770698E-01, .586198E-01, .444032E-01, .334874E-01,
924 + .251207E-01, .187399E-01, .138876E-01, .102169E-01,
925 + .746434E-02, .539790E-02, .386422E-02, .273716E-02,
926 + .191447E-02, .132109E-02, .897038E-03, .598492E-03,
927 + .390803E-03, .249278E-03, .154397E-03, .930218E-04,
928 + .543595E-04, .321143E-04, .209084E-04, .151134E-04,
929 + .109541E-04, .796704E-05, .574040E-05, .406299E-05,
930 + .276232E-05, .178035E-05, .105535E-05, .553083E-06,
931 + .235327E-06, .665976E-07, .609320E-08, .000000E+00 /
932 DATA (UPDI(I),I=3277,3328) /
933 + .673542E+06, .514023E+06, .386117E+06, .289823E+06,
934 + .217445E+06, .163012E+06, .122144E+06, .914462E+05,
935 + .684260E+05, .511563E+05, .382225E+05, .285328E+05,
936 + .212859E+05, .158645E+05, .118158E+05, .879169E+04,
937 + .653679E+04, .485534E+04, .360370E+04, .267190E+04,
938 + .197946E+04, .146489E+04, .108325E+04, .800209E+03,
939 + .590671E+03, .435517E+03, .320935E+03, .235301E+03,
940 + .173193E+03, .127402E+03, .936975E+02, .688925E+02,
941 + .506638E+02, .372998E+02, .274642E+02, .202436E+02,
942 + .149470E+02, .110566E+02, .819927E+01, .609501E+01,
943 + .454624E+01, .340061E+01, .255221E+01, .192115E+01,
944 + .145070E+01, .109814E+01, .834323E+00, .633884E+00,
945 + .483182E+00, .368005E+00, .280707E+00, .214046E+00 /
946 DATA (UPDI(I),I=3329,3380) /
947 + .163107E+00, .124094E+00, .942323E-01, .713574E-01,
948 + .538736E-01, .405124E-01, .303345E-01, .225960E-01,
949 + .167397E-01, .123213E-01, .900372E-02, .653545E-02,
950 + .469595E-02, .334116E-02, .235285E-02, .163691E-02,
951 + .112431E-02, .760735E-03, .506603E-03, .331119E-03,
952 + .212321E-03, .133203E-03, .823095E-04, .503605E-04,
953 + .318397E-04, .219699E-04, .162675E-04, .120515E-04,
954 + .890406E-05, .648224E-05, .459893E-05, .312272E-05,
955 + .199692E-05, .116843E-05, .599729E-06, .247724E-06,
956 + .675489E-07, .628860E-08, .000000E+00, .922310E+06,
957 + .700632E+06, .523456E+06, .390781E+06, .291583E+06,
958 + .217383E+06, .161974E+06, .120581E+06, .897120E+05,
959 + .666837E+05, .495337E+05, .367589E+05, .272592E+05 /
960 DATA (UPDI(I),I=3381,3432) /
961 + .201942E+05, .149487E+05, .110542E+05, .816764E+04,
962 + .602832E+04, .444560E+04, .327469E+04, .241003E+04,
963 + .177161E+04, .130116E+04, .954550E+03, .699650E+03,
964 + .512181E+03, .374690E+03, .272656E+03, .199177E+03,
965 + .145394E+03, .106095E+03, .773880E+02, .564494E+02,
966 + .412177E+02, .300939E+02, .219931E+02, .160983E+02,
967 + .118043E+02, .867646E+01, .639259E+01, .472576E+01,
968 + .350351E+01, .260609E+01, .194445E+01, .145546E+01,
969 + .109223E+01, .822781E+00, .619846E+00, .468584E+00,
970 + .353980E+00, .267848E+00, .202639E+00, .153220E+00,
971 + .115688E+00, .871919E-01, .655416E-01, .491236E-01,
972 + .366773E-01, .272693E-01, .201723E-01, .148420E-01,
973 + .108514E-01, .787716E-02, .568126E-02, .405659E-02 /
974 DATA (UPDI(I),I=3433,3484) /
975 + .286903E-02, .200899E-02, .139062E-02, .951056E-03,
976 + .641568E-03, .426741E-03, .279427E-03, .180303E-03,
977 + .114653E-03, .725884E-04, .461894E-04, .306756E-04,
978 + .219305E-04, .164430E-04, .122963E-04, .912286E-05,
979 + .664049E-05, .468482E-05, .315389E-05, .199048E-05,
980 + .114473E-05, .574023E-06, .229959E-06, .605571E-07,
981 + .571895E-08, .000000E+00, .123506E+07, .934071E+06,
982 + .694239E+06, .515571E+06, .382662E+06, .283765E+06,
983 + .210296E+06, .155704E+06, .115206E+06, .851580E+05,
984 + .629012E+05, .464141E+05, .342214E+05, .252047E+05,
985 + .185480E+05, .136342E+05, .100132E+05, .734547E+04,
986 + .538343E+04, .394069E+04, .288175E+04, .210473E+04,
987 + .153571E+04, .111914E+04, .814753E+03, .592343E+03 /
988 DATA (UPDI(I),I=3485,3536) /
989 + .430314E+03, .310882E+03, .225463E+03, .163376E+03,
990 + .118324E+03, .856529E+02, .619934E+02, .449104E+02,
991 + .325271E+02, .235782E+02, .171162E+02, .124462E+02,
992 + .907127E+01, .662695E+01, .485738E+01, .357051E+01,
993 + .263337E+01, .194823E+01, .144605E+01, .107615E+01,
994 + .804026E+00, .600785E+00, .450548E+00, .337665E+00,
995 + .253517E+00, .190331E+00, .142828E+00, .107041E+00,
996 + .800839E-01, .597649E-01, .444746E-01, .329732E-01,
997 + .243453E-01, .178865E-01, .130716E-01, .949404E-02,
998 + .684702E-02, .490741E-02, .348263E-02, .244888E-02,
999 + .170558E-02, .117505E-02, .800573E-03, .538769E-03,
1000 + .358240E-03, .235236E-03, .152912E-03, .986210E-04,
1001 + .639022E-04, .420442E-04, .289529E-04, .211648E-04 /
1002 DATA (UPDI(I),I=3537,3588) /
1003 + .159654E-04, .119732E-04, .886951E-05, .642326E-05,
1004 + .448976E-05, .298692E-05, .185593E-05, .104694E-05,
1005 + .512184E-06, .198841E-06, .505882E-07, .484219E-08,
1006 + .000000E+00, .162204E+07, .122151E+07, .903313E+06,
1007 + .667445E+06, .492851E+06, .363591E+06, .268048E+06,
1008 + .197419E+06, .145292E+06, .106820E+06, .784717E+05,
1009 + .575850E+05, .422213E+05, .309219E+05, .226256E+05,
1010 + .165358E+05, .120733E+05, .880442E+04, .641404E+04,
1011 + .466665E+04, .339163E+04, .246171E+04, .178482E+04,
1012 + .129232E+04, .934694E+03, .675032E+03, .487088E+03,
1013 + .349459E+03, .251678E+03, .181084E+03, .130206E+03,
1014 + .935651E+02, .672155E+02, .483264E+02, .347318E+02,
1015 + .249802E+02, .179905E+02, .129775E+02, .938222E+01 /
1016 DATA (UPDI(I),I=3589,3640) /
1017 + .679849E+01, .494247E+01, .360342E+01, .263593E+01,
1018 + .193428E+01, .142408E+01, .105130E+01, .779231E+00,
1019 + .577663E+00, .429851E+00, .319677E+00, .238193E+00,
1020 + .177492E+00, .132210E+00, .983639E-01, .730628E-01,
1021 + .541394E-01, .400059E-01, .294553E-01, .215994E-01,
1022 + .157625E-01, .114431E-01, .825743E-02, .591730E-02,
1023 + .421519E-02, .297369E-02, .207946E-02, .144099E-02,
1024 + .988518E-03, .671311E-03, .451036E-03, .300078E-03,
1025 + .197812E-03, .129672E-03, .848602E-04, .561966E-04,
1026 + .380292E-04, .268943E-04, .199329E-04, .150648E-04,
1027 + .112847E-04, .831902E-05, .597730E-05, .413116E-05,
1028 + .271106E-05, .165628E-05, .915457E-06, .436627E-06,
1029 + .164242E-06, .404052E-07, .391806E-08, .000000E+00 /
1030 DATA (UPDI(I),I=3641,3692) /
1031 + .209365E+07, .157016E+07, .115547E+07, .849568E+06,
1032 + .624214E+06, .458195E+06, .336078E+06, .246258E+06,
1033 + .180297E+06, .131863E+06, .963563E+05, .703317E+05,
1034 + .512882E+05, .373570E+05, .271829E+05, .197553E+05,
1035 + .143422E+05, .103990E+05, .753163E+04, .544752E+04,
1036 + .393552E+04, .283920E+04, .204588E+04, .147213E+04,
1037 + .105801E+04, .759172E+03, .544236E+03, .387840E+03,
1038 + .277443E+03, .198260E+03, .141565E+03, .101011E+03,
1039 + .720429E+02, .514209E+02, .366820E+02, .261849E+02,
1040 + .187146E+02, .133961E+02, .960964E+01, .690888E+01,
1041 + .498327E+01, .360459E+01, .261600E+01, .190459E+01,
1042 + .139125E+01, .101908E+01, .749541E+00, .551391E+00,
1043 + .407207E+00, .300566E+00, .222297E+00, .164437E+00 /
1044 DATA (UPDI(I),I=3693,3744) /
1045 + .121601E+00, .898260E-01, .662503E-01, .487498E-01,
1046 + .357750E-01, .261612E-01, .190550E-01, .138139E-01,
1047 + .996316E-02, .714391E-02, .508757E-02, .360268E-02,
1048 + .252715E-02, .175795E-02, .121252E-02, .828646E-03,
1049 + .561284E-03, .376795E-03, .251073E-03, .166325E-03,
1050 + .110049E-03, .730814E-04, .493750E-04, .341984E-04,
1051 + .246542E-04, .184186E-04, .139063E-04, .103771E-04,
1052 + .759638E-05, .540571E-05, .368952E-05, .238576E-05,
1053 + .143195E-05, .774971E-06, .360222E-06, .131313E-06,
1054 + .312747E-07, .307128E-08, .000000E+00, .266010E+07,
1055 + .198701E+07, .145528E+07, .106489E+07, .778633E+06,
1056 + .568756E+06, .415113E+06, .302655E+06, .220471E+06,
1057 + .160425E+06, .116624E+06, .846825E+05, .614280E+05 /
1058 DATA (UPDI(I),I=3745,3796) /
1059 + .445047E+05, .322094E+05, .232809E+05, .168085E+05,
1060 + .121192E+05, .872785E+04, .627659E+04, .450815E+04,
1061 + .323320E+04, .231588E+04, .165634E+04, .118309E+04,
1062 + .843621E+03, .600958E+03, .425477E+03, .302384E+03,
1063 + .214655E+03, .152241E+03, .107888E+03, .764137E+02,
1064 + .541577E+02, .383580E+02, .271830E+02, .192854E+02,
1065 + .137023E+02, .975563E+01, .696092E+01, .498272E+01,
1066 + .357679E+01, .257604E+01, .186123E+01, .134927E+01,
1067 + .980862E+00, .716042E+00, .522813E+00, .383263E+00,
1068 + .280821E+00, .206191E+00, .151433E+00, .111190E+00,
1069 + .815612E-01, .597378E-01, .436568E-01, .318203E-01,
1070 + .231137E-01, .167241E-01, .120454E-01, .863230E-02,
1071 + .615127E-02, .435423E-02, .306577E-02, .213888E-02 /
1072 DATA (UPDI(I),I=3797,3848) /
1073 + .148057E-02, .101689E-02, .692702E-03, .468313E-03,
1074 + .314382E-03, .210010E-03, .139940E-03, .935111E-04,
1075 + .629954E-04, .433307E-04, .305792E-04, .223427E-04,
1076 + .167545E-04, .126099E-04, .935571E-05, .679065E-05,
1077 + .478024E-05, .321921E-05, .204962E-05, .120795E-05,
1078 + .639850E-06, .289800E-06, .102413E-06, .236453E-07,
1079 + .235091E-08, .000000E+00, .707330E+04, .802858E+04,
1080 + .661144E+04, .544445E+04, .448353E+04, .369229E+04,
1081 + .304077E+04, .250428E+04, .206251E+04, .169873E+04,
1082 + .139917E+04, .115249E+04, .949349E+03, .782061E+03,
1083 + .644294E+03, .530837E+03, .437397E+03, .360440E+03,
1084 + .297056E+03, .244850E+03, .201848E+03, .166426E+03,
1085 + .137246E+03, .113207E+03, .934016E+02, .770830E+02 /
1086 DATA (UPDI(I),I=3849,3900) /
1087 + .636361E+02, .524121E+02, .433072E+02, .358012E+02,
1088 + .296125E+02, .245090E+02, .202996E+02, .168364E+02,
1089 + .139711E+02, .116070E+02, .965566E+01, .804418E+01,
1090 + .671250E+01, .561064E+01, .469935E+01, .394349E+01,
1091 + .331588E+01, .279379E+01, .235851E+01, .199460E+01,
1092 + .169029E+01, .143204E+01, .121416E+01, .102657E+01,
1093 + .865247E+00, .724807E+00, .601932E+00, .494470E+00,
1094 + .401154E+00, .321189E+00, .253839E+00, .198166E+00,
1095 + .152967E+00, .116859E+00, .884115E-01, .662616E-01,
1096 + .491925E-01, .362148E-01, .263349E-01, .189354E-01,
1097 + .134480E-01, .942220E-02, .650339E-02, .441491E-02,
1098 + .294242E-02, .192122E-02, .122565E-02, .761391E-03,
1099 + .461290E-03, .269536E-03, .151713E-03, .817900E-04 /
1100 DATA (UPDI(I),I=3901,3952) /
1101 + .419346E-04, .202669E-04, .912865E-05, .378134E-05,
1102 + .140293E-05, .457113E-06, .125021E-06, .269414E-07,
1103 + .411581E-08, .366141E-09, .122487E-10, .389227E-13,
1104 + .000000E+00, .182462E+05, .242764E+05, .193604E+05,
1105 + .154405E+05, .123186E+05, .982855E+04, .784475E+04,
1106 + .626186E+04, .500034E+04, .399336E+04, .319054E+04,
1107 + .254942E+04, .203808E+04, .162954E+04, .130356E+04,
1108 + .104298E+04, .834963E+03, .668590E+03, .535704E+03,
1109 + .429357E+03, .344366E+03, .276302E+03, .221869E+03,
1110 + .178244E+03, .143326E+03, .115320E+03, .928775E+02,
1111 + .746361E+02, .602365E+02, .486573E+02, .393588E+02,
1112 + .318705E+02, .258484E+02, .210032E+02, .170895E+02,
1113 + .139277E+02, .113760E+02, .930964E+01, .763748E+01 /
1114 DATA (UPDI(I),I=3953,4004) /
1115 + .627872E+01, .517646E+01, .427719E+01, .354367E+01,
1116 + .294256E+01, .244940E+01, .204262E+01, .170740E+01,
1117 + .142652E+01, .119284E+01, .994370E+00, .826392E+00,
1118 + .682587E+00, .559202E+00, .453413E+00, .363442E+00,
1119 + .287804E+00, .225236E+00, .174298E+00, .133501E+00,
1120 + .101274E+00, .761385E-01, .567349E-01, .418961E-01,
1121 + .306875E-01, .222129E-01, .159007E-01, .112456E-01,
1122 + .784450E-02, .538860E-02, .363570E-02, .240266E-02,
1123 + .154700E-02, .965104E-03, .575676E-03, .323241E-03,
1124 + .162276E-03, .639157E-04, .696306E-05, .000000E+00,
1125 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1126 + .000000E+00, .000000E+00, .542101E-19, .000000E+00,
1127 + .000000E+00, .423516E-21, .158819E-21, .000000E+00 /
1128 DATA (UPDI(I),I=4005,4056) /
1129 + .579497E+05, .460057E+05, .361645E+05, .284261E+05,
1130 + .223487E+05, .175698E+05, .138163E+05, .108644E+05,
1131 + .854563E+04, .672174E+04, .528885E+04, .416156E+04,
1132 + .327576E+04, .257871E+04, .203085E+04, .159961E+04,
1133 + .126057E+04, .993587E+03, .783616E+03, .618195E+03,
1134 + .488035E+03, .385430E+03, .304651E+03, .240928E+03,
1135 + .190720E+03, .151081E+03, .119813E+03, .947995E+02,
1136 + .753608E+02, .599721E+02, .478030E+02, .381525E+02,
1137 + .305075E+02, .244480E+02, .196245E+02, .157837E+02,
1138 + .127274E+02, .102863E+02, .833725E+01, .677401E+01,
1139 + .552176E+01, .451249E+01, .369885E+01, .303954E+01,
1140 + .250444E+01, .206761E+01, .171121E+01, .141548E+01,
1141 + .117187E+01, .967090E+00, .795685E+00, .650718E+00 /
1142 DATA (UPDI(I),I=4057,4108) /
1143 + .527955E+00, .424138E+00, .337049E+00, .264787E+00,
1144 + .205724E+00, .158150E+00, .120398E+00, .908191E-01,
1145 + .679152E-01, .503507E-01, .369960E-01, .269651E-01,
1146 + .194222E-01, .138330E-01, .973219E-02, .675066E-02,
1147 + .460826E-02, .308640E-02, .202108E-02, .128554E-02,
1148 + .788283E-03, .457672E-03, .245246E-03, .111704E-03,
1149 + .319525E-04, .000000E+00, .000000E+00, .000000E+00,
1150 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1151 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1152 + .000000E+00, .000000E+00, .000000E+00, .976920E+05,
1153 + .768607E+05, .598041E+05, .465223E+05, .361948E+05,
1154 + .281544E+05, .219033E+05, .170372E+05, .132544E+05,
1155 + .103101E+05, .802144E+04, .624018E+04, .485569E+04 /
1156 DATA (UPDI(I),I=4109,4160) /
1157 + .377816E+04, .294065E+04, .228881E+04, .178214E+04,
1158 + .138776E+04, .108118E+04, .842477E+03, .656871E+03,
1159 + .512311E+03, .399866E+03, .312248E+03, .244053E+03,
1160 + .190878E+03, .149452E+03, .116731E+03, .916214E+02,
1161 + .719945E+02, .566675E+02, .446665E+02, .352775E+02,
1162 + .279290E+02, .221513E+02, .176075E+02, .140352E+02,
1163 + .112162E+02, .899158E+01, .722789E+01, .583070E+01,
1164 + .471691E+01, .382839E+01, .311575E+01, .254302E+01,
1165 + .207989E+01, .170552E+01, .139769E+01, .114643E+01,
1166 + .937259E+00, .763957E+00, .619010E+00, .497712E+00,
1167 + .396401E+00, .312453E+00, .243623E+00, .187972E+00,
1168 + .143586E+00, .108667E+00, .815212E-01, .606471E-01,
1169 + .447430E-01, .327210E-01, .237430E-01, .170296E-01 /
1170 DATA (UPDI(I),I=4161,4212) /
1171 + .120821E-01, .847140E-02, .585988E-02, .399296E-02,
1172 + .267322E-02, .175372E-02, .112170E-02, .695963E-03,
1173 + .413769E-03, .232728E-03, .118921E-03, .507298E-04,
1174 + .153963E-04, .762670E-05, .467424E-05, .284675E-05,
1175 + .169394E-05, .102311E-05, .584152E-06, .330570E-06,
1176 + .178571E-06, .925575E-07, .422521E-07, .143794E-07,
1177 + .987534E-09, .000000E+00, .151841E+06, .118624E+06,
1178 + .915587E+05, .706445E+05, .545091E+05, .420456E+05,
1179 + .324333E+05, .250109E+05, .192884E+05, .148710E+05,
1180 + .114663E+05, .883903E+04, .681458E+04, .525278E+04,
1181 + .404965E+04, .312169E+04, .240697E+04, .185581E+04,
1182 + .143136E+04, .110405E+04, .851979E+03, .657578E+03,
1183 + .507856E+03, .392366E+03, .303385E+03, .234713E+03 /
1184 DATA (UPDI(I),I=4213,4264) /
1185 + .181770E+03, .140397E+03, .108983E+03, .846930E+02,
1186 + .659267E+02, .513928E+02, .401446E+02, .314371E+02,
1187 + .246646E+02, .193966E+02, .152991E+02, .121004E+02,
1188 + .960245E+01, .764275E+01, .610590E+01, .489303E+01,
1189 + .393471E+01, .317338E+01, .256704E+01, .208108E+01,
1190 + .169164E+01, .137417E+01, .111730E+01, .905395E+00,
1191 + .731509E+00, .587583E+00, .468450E+00, .370077E+00,
1192 + .289478E+00, .224106E+00, .171777E+00, .130417E+00,
1193 + .981406E-01, .732316E-01, .542043E-01, .397968E-01,
1194 + .289675E-01, .209255E-01, .149446E-01, .105604E-01,
1195 + .737752E-02, .508724E-02, .345823E-02, .231228E-02,
1196 + .151762E-02, .973888E-03, .609048E-03, .368025E-03,
1197 + .213767E-03, .116867E-03, .588424E-04, .289348E-04 /
1198 DATA (UPDI(I),I=4265,4316) /
1199 + .198047E-04, .147165E-04, .109844E-04, .810263E-05,
1200 + .589319E-05, .411700E-05, .274221E-05, .168968E-05,
1201 + .930301E-06, .424470E-06, .132192E-06, .117199E-07,
1202 + .000000E+00, .158787E+06, .173497E+06, .133003E+06,
1203 + .101916E+06, .780905E+05, .598092E+05, .458054E+05,
1204 + .350659E+05, .268433E+05, .205407E+05, .157177E+05,
1205 + .120227E+05, .919644E+04, .703233E+04, .537776E+04,
1206 + .411142E+04, .314365E+04, .240326E+04, .183765E+04,
1207 + .140503E+04, .107461E+04, .821936E+03, .628982E+03,
1208 + .481439E+03, .368755E+03, .282563E+03, .216717E+03,
1209 + .165737E+03, .127389E+03, .980177E+02, .755396E+02,
1210 + .582997E+02, .450847E+02, .349553E+02, .271528E+02,
1211 + .211436E+02, .165148E+02, .129368E+02, .101693E+02 /
1212 DATA (UPDI(I),I=4317,4368) /
1213 + .801899E+01, .634833E+01, .504210E+01, .401921E+01,
1214 + .321378E+01, .257775E+01, .207227E+01, .167050E+01,
1215 + .134566E+01, .108500E+01, .871833E+00, .698508E+00,
1216 + .556450E+00, .440064E+00, .344977E+00, .267880E+00,
1217 + .205977E+00, .156882E+00, .118406E+00, .886098E-01,
1218 + .657739E-01, .484410E-01, .353950E-01, .256431E-01,
1219 + .184411E-01, .131133E-01, .922840E-02, .642260E-02,
1220 + .441394E-02, .299239E-02, .199725E-02, .131042E-02,
1221 + .842611E-03, .529984E-03, .324160E-03, .192794E-03,
1222 + .110350E-03, .610747E-04, .355126E-04, .258427E-04,
1223 + .196479E-04, .149053E-04, .111218E-04, .811438E-05,
1224 + .567086E-05, .375391E-05, .228769E-05, .123699E-05,
1225 + .549172E-06, .164601E-06, .148656E-07, .000000E+00 /
1226 DATA (UPDI(I),I=4369,4420) /
1227 + .335811E+06, .259217E+06, .197325E+06, .150134E+06,
1228 + .114209E+06, .868356E+05, .660117E+05, .501561E+05,
1229 + .381023E+05, .289311E+05, .219638E+05, .166666E+05,
1230 + .126451E+05, .958984E+04, .727196E+04, .551222E+04,
1231 + .417810E+04, .316592E+04, .239904E+04, .181753E+04,
1232 + .137715E+04, .104338E+04, .790736E+03, .599328E+03,
1233 + .454475E+03, .344719E+03, .261671E+03, .198004E+03,
1234 + .150583E+03, .114631E+03, .873914E+02, .667174E+02,
1235 + .510317E+02, .391366E+02, .300690E+02, .231609E+02,
1236 + .178953E+02, .138692E+02, .107873E+02, .841834E+01,
1237 + .659656E+01, .518694E+01, .409395E+01, .324189E+01,
1238 + .257541E+01, .205077E+01, .163760E+01, .130666E+01,
1239 + .104361E+01, .830619E+00, .659219E+00, .520287E+00 /
1240 DATA (UPDI(I),I=4421,4472) /
1241 + .407756E+00, .316894E+00, .244064E+00, .186232E+00,
1242 + .140829E+00, .105578E+00, .785070E-01, .579203E-01,
1243 + .424047E-01, .308048E-01, .221875E-01, .158631E-01,
1244 + .112123E-01, .784145E-02, .542117E-02, .369889E-02,
1245 + .248730E-02, .164446E-02, .106651E-02, .675725E-03,
1246 + .416671E-03, .247832E-03, .141511E-03, .760143E-04,
1247 + .381363E-04, .194586E-04, .126721E-04, .876175E-05,
1248 + .612176E-05, .426714E-05, .296584E-05, .199299E-05,
1249 + .128780E-05, .774016E-06, .418386E-06, .187357E-06,
1250 + .570841E-07, .504919E-08, .000000E+00, .485342E+06,
1251 + .372585E+06, .281817E+06, .213039E+06, .161003E+06,
1252 + .121605E+06, .918229E+05, .692933E+05, .522769E+05,
1253 + .394160E+05, .297108E+05, .223824E+05, .168570E+05 /
1254 DATA (UPDI(I),I=4473,4524) /
1255 + .126888E+05, .954884E+04, .718232E+04, .540123E+04,
1256 + .406007E+04, .305158E+04, .229277E+04, .172259E+04,
1257 + .129390E+04, .972017E+03, .730174E+03, .548673E+03,
1258 + .412324E+03, .310052E+03, .232347E+03, .174991E+03,
1259 + .131909E+03, .995652E+02, .752514E+02, .569777E+02,
1260 + .432552E+02, .328952E+02, .250808E+02, .191825E+02,
1261 + .147176E+02, .113332E+02, .875750E+01, .679574E+01,
1262 + .529254E+01, .413785E+01, .324617E+01, .255499E+01,
1263 + .201584E+01, .159499E+01, .126094E+01, .997830E+00,
1264 + .786838E+00, .618727E+00, .483904E+00, .375887E+00,
1265 + .289646E+00, .221275E+00, .167557E+00, .125797E+00,
1266 + .936698E-01, .692023E-01, .507393E-01, .369241E-01,
1267 + .266666E-01, .190958E-01, .135757E-01, .954192E-02 /
1268 DATA (UPDI(I),I=4525,4576) /
1269 + .663695E-02, .456424E-02, .309869E-02, .207417E-02,
1270 + .136601E-02, .883449E-03, .559253E-03, .345621E-03,
1271 + .207242E-03, .120618E-03, .675054E-04, .369483E-04,
1272 + .216472E-04, .151131E-04, .109536E-04, .796675E-05,
1273 + .574023E-05, .406289E-05, .276227E-05, .178033E-05,
1274 + .105534E-05, .553080E-06, .235326E-06, .665974E-07,
1275 + .609320E-08, .000000E+00, .679983E+06, .519356E+06,
1276 + .390508E+06, .293439E+06, .220422E+06, .165463E+06,
1277 + .124163E+06, .931079E+05, .697942E+05, .522826E+05,
1278 + .391498E+05, .292962E+05, .219143E+05, .163818E+05,
1279 + .122415E+05, .914204E+04, .682509E+04, .509254E+04,
1280 + .379882E+04, .283238E+04, .211142E+04, .157337E+04,
1281 + .117240E+04, .873449E+03, .650819E+03, .484894E+03 /
1282 DATA (UPDI(I),I=4577,4628) /
1283 + .361449E+03, .268432E+03, .200349E+03, .149646E+03,
1284 + .111907E+03, .837882E+02, .628408E+02, .472535E+02,
1285 + .355916E+02, .268768E+02, .203591E+02, .154716E+02,
1286 + .118010E+02, .903343E+01, .694475E+01, .535900E+01,
1287 + .415172E+01, .322777E+01, .251778E+01, .196877E+01,
1288 + .154390E+01, .120958E+01, .948610E+00, .741272E+00,
1289 + .577666E+00, .447794E+00, .344834E+00, .263510E+00,
1290 + .199712E+00, .150095E+00, .111886E+00, .827497E-01,
1291 + .607398E-01, .442575E-01, .320121E-01, .229824E-01,
1292 + .163613E-01, .115653E-01, .808301E-02, .559134E-02,
1293 + .382483E-02, .258382E-02, .172180E-02, .112978E-02,
1294 + .728919E-03, .461318E-03, .286021E-03, .173128E-03,
1295 + .102822E-03, .598567E-04, .351579E-04, .224584E-04 /
1296 DATA (UPDI(I),I=4629,4680) /
1297 + .162672E-04, .120511E-04, .890381E-05, .648210E-05,
1298 + .459885E-05, .312268E-05, .199690E-05, .116843E-05,
1299 + .599727E-06, .247724E-06, .675488E-07, .628859E-08,
1300 + .000000E+00, .928832E+06, .706032E+06, .527902E+06,
1301 + .394442E+06, .294597E+06, .219864E+06, .164017E+06,
1302 + .122263E+06, .910966E+05, .678234E+05, .504719E+05,
1303 + .375311E+05, .278948E+05, .207172E+05, .153791E+05,
1304 + .114083E+05, .845888E+04, .626785E+04, .464255E+04,
1305 + .343660E+04, .254308E+04, .188092E+04, .139093E+04,
1306 + .102824E+04, .760110E+03, .561762E+03, .415323E+03,
1307 + .305839E+03, .226336E+03, .167604E+03, .124243E+03,
1308 + .922037E+02, .685339E+02, .510716E+02, .381182E+02,
1309 + .285231E+02, .214093E+02, .161219E+02, .121856E+02 /
1310 DATA (UPDI(I),I=4681,4732) /
1311 + .924408E+01, .704332E+01, .538706E+01, .413683E+01,
1312 + .318819E+01, .246531E+01, .191101E+01, .148561E+01,
1313 + .115371E+01, .896864E+00, .694650E+00, .536585E+00,
1314 + .412352E+00, .314858E+00, .238645E+00, .179458E+00,
1315 + .133875E+00, .990928E-01, .727963E-01, .530892E-01,
1316 + .384416E-01, .276363E-01, .197229E-01, .139582E-01,
1317 + .981009E-02, .681750E-02, .469014E-02, .319157E-02,
1318 + .214561E-02, .142372E-02, .931110E-03, .599643E-03,
1319 + .379729E-03, .236480E-03, .144695E-03, .877600E-04,
1320 + .530080E-04, .329448E-04, .222525E-04, .164427E-04,
1321 + .122960E-04, .912265E-05, .664037E-05, .468476E-05,
1322 + .315385E-05, .199046E-05, .114472E-05, .574021E-06,
1323 + .229958E-06, .605570E-07, .571895E-08, .000000E+00 /
1324 DATA (UPDI(I),I=4733,4784) /
1325 + .124167E+07, .939538E+06, .698741E+06, .519277E+06,
1326 + .385713E+06, .286277E+06, .212364E+06, .157406E+06,
1327 + .116607E+06, .863112E+05, .638503E+05, .471951E+05,
1328 + .348640E+05, .257334E+05, .189829E+05, .139920E+05,
1329 + .103074E+05, .758728E+04, .558217E+04, .410398E+04,
1330 + .301585E+04, .221483E+04, .162606E+04, .119323E+04,
1331 + .875485E+03, .642092E+03, .471034E+03, .344090E+03,
1332 + .252600E+03, .185530E+03, .136392E+03, .100372E+03,
1333 + .739714E+02, .546527E+02, .404386E+02, .299970E+02,
1334 + .223196E+02, .166614E+02, .124841E+02, .938881E+01,
1335 + .709218E+01, .537819E+01, .409494E+01, .312924E+01,
1336 + .239929E+01, .184410E+01, .142146E+01, .109441E+01,
1337 + .843475E+00, .647651E+00, .495985E+00, .377923E+00 /
1338 DATA (UPDI(I),I=4785,4836) /
1339 + .286180E+00, .215175E+00, .160570E+00, .118910E+00,
1340 + .874022E-01, .637796E-01, .462142E-01, .332547E-01,
1341 + .237617E-01, .168566E-01, .118595E-01, .828731E-02,
1342 + .572687E-02, .391854E-02, .265291E-02, .177524E-02,
1343 + .117334E-02, .765220E-03, .492271E-03, .312239E-03,
1344 + .195571E-03, .121131E-03, .750660E-04, .469112E-04,
1345 + .304988E-04, .213765E-04, .159652E-04, .119729E-04,
1346 + .886934E-05, .642317E-05, .448971E-05, .298689E-05,
1347 + .185592E-05, .104694E-05, .512182E-06, .198841E-06,
1348 + .505881E-07, .484219E-08, .000000E+00, .162873E+07,
1349 + .122705E+07, .907871E+06, .671197E+06, .495939E+06,
1350 + .366133E+06, .270140E+06, .199141E+06, .146709E+06,
1351 + .107986E+06, .794316E+05, .583748E+05, .428711E+05 /
1352 DATA (UPDI(I),I=4837,4888) /
1353 + .314563E+05, .230651E+05, .168972E+05, .123703E+05,
1354 + .904845E+04, .661450E+04, .483125E+04, .352673E+04,
1355 + .257254E+04, .187568E+04, .136678E+04, .995659E+03,
1356 + .724913E+03, .527862E+03, .382662E+03, .278767E+03,
1357 + .203159E+03, .148173E+03, .108171E+03, .790727E+02,
1358 + .579453E+02, .425208E+02, .312799E+02, .230803E+02,
1359 + .170857E+02, .126953E+02, .946831E+01, .709301E+01,
1360 + .533447E+01, .402821E+01, .305298E+01, .232156E+01,
1361 + .176961E+01, .135274E+01, .103275E+01, .789267E+00,
1362 + .600893E+00, .456302E+00, .344799E+00, .258977E+00,
1363 + .193193E+00, .143079E+00, .105193E+00, .767859E-01,
1364 + .556610E-01, .400730E-01, .286560E-01, .203512E-01,
1365 + .143511E-01, .100376E-01, .697428E-02, .479277E-02 /
1366 DATA (UPDI(I),I=4889,4940) /
1367 + .326207E-02, .219762E-02, .146420E-02, .964391E-03,
1368 + .627576E-03, .403630E-03, .256718E-03, .161942E-03,
1369 + .101653E-03, .643686E-04, .414835E-04, .279433E-04,
1370 + .200715E-04, .150646E-04, .112845E-04, .831888E-05,
1371 + .597723E-05, .413112E-05, .271104E-05, .165627E-05,
1372 + .915454E-06, .436626E-06, .164242E-06, .404052E-07,
1373 + .391806E-08, .000000E+00, .210042E+07, .157577E+07,
1374 + .116009E+07, .853366E+06, .627341E+06, .460768E+06,
1375 + .338196E+06, .248000E+06, .181731E+06, .133043E+06,
1376 + .973271E+05, .711303E+05, .519450E+05, .378971E+05,
1377 + .276268E+05, .201202E+05, .146420E+05, .106452E+05,
1378 + .773375E+04, .561339E+04, .407156E+04, .295071E+04,
1379 + .213722E+04, .154690E+04, .111916E+04, .809147E+03 /
1380 DATA (UPDI(I),I=4941,4992) /
1381 + .585031E+03, .421008E+03, .304457E+03, .220233E+03,
1382 + .159413E+03, .115487E+03, .837654E+02, .609048E+02,
1383 + .443390E+02, .323581E+02, .236848E+02, .173928E+02,
1384 + .128199E+02, .948459E+01, .704836E+01, .525856E+01,
1385 + .393916E+01, .296162E+01, .223402E+01, .168912E+01,
1386 + .128074E+01, .969727E+00, .734992E+00, .554919E+00,
1387 + .417910E+00, .313214E+00, .233378E+00, .172752E+00,
1388 + .126990E+00, .926995E-01, .672037E-01, .483942E-01,
1389 + .346191E-01, .246023E-01, .173664E-01, .121737E-01,
1390 + .846512E-02, .584868E-02, .399741E-02, .270681E-02,
1391 + .181505E-02, .120450E-02, .790991E-03, .513981E-03,
1392 + .330807E-03, .211227E-03, .134364E-03, .855543E-04,
1393 + .553261E-04, .366365E-04, .253634E-04, .185092E-04 /
1394 DATA (UPDI(I),I=4993,5044) /
1395 + .139061E-04, .103769E-04, .759628E-05, .540565E-05,
1396 + .368949E-05, .238574E-05, .143194E-05, .774969E-06,
1397 + .360221E-06, .131313E-06, .312746E-07, .307127E-08,
1398 + .000000E+00, .266696E+07, .199269E+07, .145995E+07,
1399 + .106873E+07, .781798E+06, .571360E+06, .417257E+06,
1400 + .304419E+06, .221922E+06, .161618E+06, .117605E+06,
1401 + .854898E+05, .620917E+05, .450503E+05, .326577E+05,
1402 + .236492E+05, .171109E+05, .123675E+05, .893155E+04,
1403 + .644365E+04, .464506E+04, .334533E+04, .240765E+04,
1404 + .173138E+04, .124439E+04, .893650E+03, .641738E+03,
1405 + .458579E+03, .329296E+03, .236503E+03, .169950E+03,
1406 + .122217E+03, .879875E+02, .634952E+02, .458739E+02,
1407 + .332225E+02, .241306E+02, .175835E+02, .128603E+02 /
1408 DATA (UPDI(I),I=5045,5096) /
1409 + .944083E+01, .696154E+01, .515355E+01, .383051E+01,
1410 + .285750E+01, .213858E+01, .160417E+01, .120666E+01,
1411 + .906245E+00, .681317E+00, .510193E+00, .381110E+00,
1412 + .283345E+00, .209469E+00, .153877E+00, .112287E+00,
1413 + .813898E-01, .586051E-01, .419265E-01, .298024E-01,
1414 + .210486E-01, .147684E-01, .102917E-01, .711534E-02,
1415 + .488900E-02, .332384E-02, .223968E-02, .149529E-02,
1416 + .988791E-03, .647791E-03, .420645E-03, .271199E-03,
1417 + .174045E-03, .111762E-03, .722190E-04, .476424E-04,
1418 + .322911E-04, .228203E-04, .168135E-04, .126098E-04,
1419 + .935557E-05, .679056E-05, .478020E-05, .321919E-05,
1420 + .204961E-05, .120795E-05, .639849E-06, .289800E-06,
1421 + .102413E-06, .236453E-07, .235091E-08, .000000E+00 /
1422 DATA (UPDI(I),I=5097,5148) /
1423 + .704499E+04, .800973E+04, .659413E+04, .542856E+04,
1424 + .446895E+04, .367891E+04, .302849E+04, .249301E+04,
1425 + .205217E+04, .168925E+04, .139048E+04, .114452E+04,
1426 + .942038E+03, .775359E+03, .638151E+03, .525208E+03,
1427 + .432239E+03, .355716E+03, .292730E+03, .240889E+03,
1428 + .198223E+03, .163109E+03, .134212E+03, .110433E+03,
1429 + .908651E+02, .747645E+02, .615174E+02, .504786E+02,
1430 + .415405E+02, .341868E+02, .281368E+02, .231594E+02,
1431 + .190645E+02, .157044E+02, .129322E+02, .106516E+02,
1432 + .877459E+01, .722899E+01, .595525E+01, .490403E+01,
1433 + .403664E+01, .331869E+01, .272377E+01, .223005E+01,
1434 + .181987E+01, .147900E+01, .119699E+01, .962079E+00,
1435 + .769901E+00, .612204E+00, .485739E+00, .385504E+00 /
1436 DATA (UPDI(I),I=5149,5200) /
1437 + .307358E+00, .247212E+00, .201102E+00, .165421E+00,
1438 + .137187E+00, .114183E+00, .949227E-01, .784992E-01,
1439 + .643861E-01, .522730E-01, .419517E-01, .332890E-01,
1440 + .260349E-01, .200839E-01, .152717E-01, .114377E-01,
1441 + .842935E-02, .610619E-02, .434193E-02, .302575E-02,
1442 + .206193E-02, .137021E-02, .889169E-03, .558070E-03,
1443 + .338407E-03, .197262E-03, .109843E-03, .579681E-04,
1444 + .286985E-04, .131692E-04, .546968E-05, .201933E-05,
1445 + .635991E-06, .161246E-06, .298572E-07, .336378E-08,
1446 + .153015E-09, .756977E-12, .000000E+00, .182144E+05,
1447 + .242528E+05, .193388E+05, .154207E+05, .123005E+05,
1448 + .981197E+04, .782957E+04, .624797E+04, .498763E+04,
1449 + .398174E+04, .317990E+04, .253970E+04, .202919E+04 /
1450 DATA (UPDI(I),I=5201,5252) /
1451 + .162142E+04, .129613E+04, .103620E+04, .828773E+03,
1452 + .662941E+03, .530549E+03, .424655E+03, .340079E+03,
1453 + .272395E+03, .218310E+03, .175002E+03, .140374E+03,
1454 + .112634E+03, .904338E+02, .724165E+02, .582178E+02,
1455 + .468215E+02, .376890E+02, .303513E+02, .244651E+02,
1456 + .197423E+02, .159387E+02, .128756E+02, .104116E+02,
1457 + .842318E+01, .681973E+01, .552146E+01, .447211E+01,
1458 + .361928E+01, .292657E+01, .236183E+01, .190168E+01,
1459 + .152590E+01, .122087E+01, .971096E+00, .770360E+00,
1460 + .608145E+00, .479911E+00, .379249E+00, .301273E+00,
1461 + .241243E+00, .195077E+00, .159113E+00, .130582E+00,
1462 + .107360E+00, .880990E-01, .718885E-01, .582038E-01,
1463 + .466612E-01, .370030E-01, .290243E-01, .224530E-01 /
1464 DATA (UPDI(I),I=5253,5304) /
1465 + .171366E-01, .128965E-01, .955752E-02, .696787E-02,
1466 + .498793E-02, .349940E-02, .239781E-02, .159941E-02,
1467 + .103077E-02, .638675E-03, .372099E-03, .197835E-03,
1468 + .886702E-04, .237543E-04, .000000E+00, .000000E+00,
1469 + .000000E+00, .173472E-17, .000000E+00, .000000E+00,
1470 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1471 + .169407E-20, .000000E+00, .579199E+05, .459784E+05,
1472 + .361395E+05, .284032E+05, .223278E+05, .175507E+05,
1473 + .137989E+05, .108485E+05, .853107E+04, .670845E+04,
1474 + .527672E+04, .415048E+04, .326566E+04, .256949E+04,
1475 + .202245E+04, .159195E+04, .125359E+04, .987236E+03,
1476 + .777835E+03, .612935E+03, .483251E+03, .381082E+03,
1477 + .300700E+03, .237340E+03, .187463E+03, .148126E+03 /
1478 DATA (UPDI(I),I=5305,5356) /
1479 + .117132E+03, .923723E+02, .731603E+02, .579776E+02,
1480 + .459949E+02, .365132E+02, .290203E+02, .230974E+02,
1481 + .183966E+02, .146656E+02, .117070E+02, .935266E+01,
1482 + .748018E+01, .598462E+01, .479185E+01, .383518E+01,
1483 + .306821E+01, .245093E+01, .195438E+01, .155394E+01,
1484 + .123294E+01, .973263E+00, .766992E+00, .602084E+00,
1485 + .472918E+00, .372235E+00, .294571E+00, .234858E+00,
1486 + .188891E+00, .153028E+00, .124584E+00, .101515E+00,
1487 + .825192E-01, .666915E-01, .534864E-01, .424844E-01,
1488 + .333885E-01, .259610E-01, .199118E-01, .150687E-01,
1489 + .112445E-01, .826139E-02, .596888E-02, .423155E-02,
1490 + .293687E-02, .198717E-02, .130536E-02, .824409E-03,
1491 + .496448E-03, .276472E-03, .135364E-03, .492021E-04 /
1492 DATA (UPDI(I),I=5357,5408) /
1493 + .116901E-05, .000000E+00, .000000E+00, .000000E+00,
1494 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1495 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1496 + .000000E+00, .976579E+05, .768295E+05, .597757E+05,
1497 + .464964E+05, .361711E+05, .281328E+05, .218836E+05,
1498 + .170192E+05, .132380E+05, .102951E+05, .800780E+04,
1499 + .622776E+04, .484438E+04, .376786E+04, .293128E+04,
1500 + .228029E+04, .177439E+04, .138072E+04, .107478E+04,
1501 + .836672E+03, .651603E+03, .507535E+03, .395537E+03,
1502 + .308326E+03, .240503E+03, .187664E+03, .146545E+03,
1503 + .114106E+03, .892487E+02, .698503E+02, .547296E+02,
1504 + .429152E+02, .336939E+02, .264958E+02, .208529E+02,
1505 + .164297E+02, .129646E+02, .102408E+02, .810035E+01 /
1506 DATA (UPDI(I),I=5409,5460) /
1507 + .641119E+01, .507975E+01, .402440E+01, .318803E+01,
1508 + .252268E+01, .199354E+01, .157164E+01, .123723E+01,
1509 + .969624E+00, .759272E+00, .592724E+00, .463349E+00,
1510 + .363159E+00, .286195E+00, .227134E+00, .181679E+00,
1511 + .146223E+00, .118148E+00, .954784E-01, .769429E-01,
1512 + .616439E-01, .490146E-01, .386088E-01, .300987E-01,
1513 + .232234E-01, .176812E-01, .132872E-01, .985005E-02,
1514 + .719262E-02, .516805E-02, .364637E-02, .252149E-02,
1515 + .170278E-02, .111931E-02, .710540E-03, .433555E-03,
1516 + .248703E-03, .130679E-03, .585857E-04, .188457E-04,
1517 + .467333E-05, .284452E-05, .169239E-05, .102208E-05,
1518 + .583509E-06, .330196E-06, .178375E-06, .924688E-07,
1519 + .422202E-07, .143717E-07, .986748E-09, .000000E+00 /
1520 DATA (UPDI(I),I=5461,5512) /
1521 + .151802E+06, .118589E+06, .915267E+05, .706153E+05,
1522 + .544825E+05, .420214E+05, .324112E+05, .249908E+05,
1523 + .192701E+05, .148544E+05, .114512E+05, .882525E+04,
1524 + .680205E+04, .524140E+04, .403931E+04, .311230E+04,
1525 + .239845E+04, .184808E+04, .142436E+04, .109770E+04,
1526 + .846234E+03, .652380E+03, .503155E+03, .388117E+03,
1527 + .299547E+03, .231247E+03, .178644E+03, .137581E+03,
1528 + .106445E+03, .824055E+02, .638652E+02, .495354E+02,
1529 + .384701E+02, .299267E+02, .233009E+02, .181640E+02,
1530 + .141829E+02, .110877E+02, .868126E+01, .680273E+01,
1531 + .533766E+01, .418882E+01, .328788E+01, .257876E+01,
1532 + .202067E+01, .158032E+01, .123484E+01, .961132E+00,
1533 + .748028E+00, .580787E+00, .451852E+00, .352604E+00 /
1534 DATA (UPDI(I),I=5513,5564) /
1535 + .276670E+00, .218535E+00, .173839E+00, .139021E+00,
1536 + .111520E+00, .894231E-01, .714821E-01, .568043E-01,
1537 + .448048E-01, .350180E-01, .270927E-01, .207524E-01,
1538 + .156894E-01, .117114E-01, .862660E-02, .626151E-02,
1539 + .447421E-02, .314133E-02, .216351E-02, .145714E-02,
1540 + .957273E-03, .609398E-03, .375152E-03, .219656E-03,
1541 + .120829E-03, .605855E-04, .275852E-04, .147153E-04,
1542 + .109819E-04, .810090E-05, .589205E-05, .411629E-05,
1543 + .274180E-05, .168947E-05, .930209E-06, .424438E-06,
1544 + .132184E-06, .117191E-07, .000000E+00, .158744E+06,
1545 + .173458E+06, .132968E+06, .101884E+06, .780609E+05,
1546 + .597824E+05, .457809E+05, .350437E+05, .268231E+05,
1547 + .205224E+05, .157010E+05, .120075E+05, .918268E+04 /
1548 DATA (UPDI(I),I=5565,5616) /
1549 + .701984E+04, .536644E+04, .410116E+04, .313435E+04,
1550 + .239484E+04, .183003E+04, .139815E+04, .106839E+04,
1551 + .816318E+03, .623912E+03, .476867E+03, .364634E+03,
1552 + .278851E+03, .213376E+03, .162735E+03, .124689E+03,
1553 + .955916E+02, .733593E+02, .563407E+02, .433240E+02,
1554 + .333719E+02, .257280E+02, .198603E+02, .153570E+02,
1555 + .118906E+02, .922178E+01, .715912E+01, .556610E+01,
1556 + .432927E+01, .336873E+01, .262013E+01, .203665E+01,
1557 + .158072E+01, .122640E+01, .948298E+00, .733676E+00,
1558 + .566616E+00, .438722E+00, .340835E+00, .266238E+00,
1559 + .209277E+00, .165557E+00, .131569E+00, .104811E+00,
1560 + .834218E-01, .661752E-01, .521836E-01, .408480E-01,
1561 + .316895E-01, .243407E-01, .185153E-01, .139038E-01 /
1562 DATA (UPDI(I),I=5617,5668) /
1563 + .103115E-01, .754846E-02, .544685E-02, .387084E-02,
1564 + .270431E-02, .185475E-02, .124542E-02, .817168E-03,
1565 + .521046E-03, .322859E-03, .192001E-03, .109181E-03,
1566 + .588393E-04, .312957E-04, .196465E-04, .149027E-04,
1567 + .111201E-04, .811326E-05, .567017E-05, .375352E-05,
1568 + .228750E-05, .123690E-05, .549142E-06, .164594E-06,
1569 + .148649E-07, .000000E+00, .335763E+06, .259173E+06,
1570 + .197284E+06, .150097E+06, .114175E+06, .868054E+05,
1571 + .659843E+05, .501312E+05, .380798E+05, .289106E+05,
1572 + .219452E+05, .166498E+05, .126299E+05, .957601E+04,
1573 + .725944E+04, .550090E+04, .416786E+04, .315667E+04,
1574 + .239069E+04, .180999E+04, .137036E+04, .103726E+04,
1575 + .785228E+03, .594373E+03, .450020E+03, .340716E+03 /
1576 DATA (UPDI(I),I=5669,5720) /
1577 + .258078E+03, .194785E+03, .147697E+03, .112046E+03,
1578 + .850750E+02, .646430E+02, .491738E+02, .374717E+02,
1579 + .285767E+02, .218222E+02, .166929E+02, .127877E+02,
1580 + .981298E+01, .753910E+01, .580170E+01, .446757E+01,
1581 + .344252E+01, .265241E+01, .204312E+01, .157216E+01,
1582 + .120998E+01, .928623E+00, .713590E+00, .547717E+00,
1583 + .421703E+00, .325870E+00, .253169E+00, .197846E+00,
1584 + .155491E+00, .122673E+00, .969464E-01, .765146E-01,
1585 + .601704E-01, .470360E-01, .364997E-01, .280750E-01,
1586 + .213818E-01, .161294E-01, .120109E-01, .883277E-02,
1587 + .641031E-02, .458430E-02, .322693E-02, .223117E-02,
1588 + .151242E-02, .100179E-02, .646438E-03, .403456E-03,
1589 + .242943E-03, .138652E-03, .740359E-04, .360457E-04 /
1590 DATA (UPDI(I),I=5721,5772) /
1591 + .163846E-04, .876023E-05, .611939E-05, .426555E-05,
1592 + .296483E-05, .199238E-05, .128746E-05, .773846E-06,
1593 + .418314E-06, .187333E-06, .570786E-07, .504862E-08,
1594 + .000000E+00, .485288E+06, .372535E+06, .281772E+06,
1595 + .212998E+06, .160966E+06, .121571E+06, .917924E+05,
1596 + .692656E+05, .522518E+05, .393933E+05, .296902E+05,
1597 + .223638E+05, .168402E+05, .126735E+05, .953508E+04,
1598 + .716990E+04, .539002E+04, .404997E+04, .304248E+04,
1599 + .228457E+04, .171521E+04, .128727E+04, .966062E+03,
1600 + .724830E+03, .543881E+03, .408028E+03, .306207E+03,
1601 + .228913E+03, .171921E+03, .129166E+03, .971153E+02,
1602 + .730646E+02, .550258E+02, .415126E+02, .313391E+02,
1603 + .236907E+02, .179394E+02, .136049E+02, .103360E+02 /
1604 DATA (UPDI(I),I=5773,5824) /
1605 + .786271E+01, .599189E+01, .457009E+01, .348866E+01,
1606 + .266368E+01, .203390E+01, .155206E+01, .118517E+01,
1607 + .902915E+00, .689176E+00, .525708E+00, .402434E+00,
1608 + .309269E+00, .238923E+00, .185597E+00, .144900E+00,
1609 + .113489E+00, .889856E-01, .696550E-01, .543142E-01,
1610 + .420995E-01, .323946E-01, .247123E-01, .186680E-01,
1611 + .139714E-01, .103230E-01, .753400E-02, .542722E-02,
1612 + .385339E-02, .269365E-02, .185027E-02, .124670E-02,
1613 + .821605E-03, .528228E-03, .329328E-03, .199036E-03,
1614 + .115051E-03, .633793E-04, .332126E-04, .175681E-04,
1615 + .109521E-04, .796461E-05, .573881E-05, .406200E-05,
1616 + .276174E-05, .178004E-05, .105520E-05, .553021E-06,
1617 + .235307E-06, .665932E-07, .609275E-08, .000000E+00 /
1618 DATA (UPDI(I),I=5825,5876) /
1619 + .679923E+06, .519301E+06, .390458E+06, .293394E+06,
1620 + .220381E+06, .165426E+06, .124129E+06, .930773E+05,
1621 + .697665E+05, .522576E+05, .391272E+05, .292757E+05,
1622 + .218958E+05, .163651E+05, .122265E+05, .912847E+04,
1623 + .681287E+04, .508154E+04, .378893E+04, .282349E+04,
1624 + .210344E+04, .156622E+04, .116599E+04, .867709E+03,
1625 + .645685E+03, .480304E+03, .357350E+03, .264781E+03,
1626 + .197094E+03, .146747E+03, .109326E+03, .814923E+02,
1627 + .607986E+02, .454367E+02, .339757E+02, .254392E+02,
1628 + .190794E+02, .143317E+02, .107847E+02, .812684E+01,
1629 + .613551E+01, .463681E+01, .350780E+01, .265493E+01,
1630 + .201012E+01, .152153E+01, .115300E+01, .872106E+00,
1631 + .661254E+00, .501302E+00, .381532E+00, .291562E+00 /
1632 DATA (UPDI(I),I=5877,5928) /
1633 + .223953E+00, .172909E+00, .134097E+00, .104272E+00,
1634 + .811279E-01, .629941E-01, .487165E-01, .374497E-01,
1635 + .285808E-01, .216276E-01, .162080E-01, .120367E-01,
1636 + .882569E-02, .639333E-02, .457208E-02, .322347E-02,
1637 + .223818E-02, .152779E-02, .102365E-02, .671572E-03,
1638 + .430563E-03, .268496E-03, .163162E-03, .957392E-04,
1639 + .544830E-04, .304799E-04, .178830E-04, .120496E-04,
1640 + .890196E-05, .648089E-05, .459809E-05, .312224E-05,
1641 + .199667E-05, .116831E-05, .599681E-06, .247709E-06,
1642 + .675456E-07, .628826E-08, .000000E+00, .928764E+06,
1643 + .705971E+06, .527847E+06, .394391E+06, .294551E+06,
1644 + .219823E+06, .163979E+06, .122229E+06, .910660E+05,
1645 + .677959E+05, .504471E+05, .375087E+05, .278745E+05 /
1646 DATA (UPDI(I),I=5929,5980) /
1647 + .206989E+05, .153627E+05, .113935E+05, .844561E+04,
1648 + .625593E+04, .463185E+04, .342701E+04, .253449E+04,
1649 + .187323E+04, .138405E+04, .102209E+04, .754628E+03,
1650 + .556874E+03, .410970E+03, .301973E+03, .222899E+03,
1651 + .164552E+03, .121534E+03, .898019E+02, .664049E+02,
1652 + .491847E+02, .364466E+02, .270422E+02, .200969E+02,
1653 + .149587E+02, .111542E+02, .832945E+01, .623221E+01,
1654 + .466837E+01, .350105E+01, .262746E+01, .197304E+01,
1655 + .148174E+01, .111451E+01, .837062E+00, .630541E+00,
1656 + .475089E+00, .359482E+00, .273150E+00, .208589E+00,
1657 + .160055E+00, .123302E+00, .951919E-01, .735001E-01,
1658 + .566216E-01, .434364E-01, .331221E-01, .250758E-01,
1659 + .188260E-01, .139987E-01, .103173E-01, .750849E-02 /
1660 DATA (UPDI(I),I=5981,6032) /
1661 + .539957E-02, .383406E-02, .268475E-02, .185211E-02,
1662 + .125679E-02, .837773E-03, .547537E-03, .350411E-03,
1663 + .218860E-03, .133962E-03, .799298E-04, .469778E-04,
1664 + .277894E-04, .175029E-04, .122946E-04, .912109E-05,
1665 + .663936E-05, .468414E-05, .315350E-05, .199027E-05,
1666 + .114464E-05, .573986E-06, .229948E-06, .605548E-07,
1667 + .571870E-08, .000000E+00, .124159E+07, .939470E+06,
1668 + .698679E+06, .519221E+06, .385663E+06, .286232E+06,
1669 + .212323E+06, .157369E+06, .116573E+06, .862810E+05,
1670 + .638231E+05, .471706E+05, .348420E+05, .257136E+05,
1671 + .189651E+05, .139759E+05, .102930E+05, .757440E+04,
1672 + .557063E+04, .409365E+04, .300663E+04, .220659E+04,
1673 + .161871E+04, .118668E+04, .869653E+03, .636905E+03 /
1674 DATA (UPDI(I),I=6033,6084) /
1675 + .466427E+03, .340009E+03, .248983E+03, .182327E+03,
1676 + .133559E+03, .978681E+02, .717598E+02, .526999E+02,
1677 + .387154E+02, .284770E+02, .209790E+02, .154791E+02,
1678 + .114416E+02, .846984E+01, .628261E+01, .466605E+01,
1679 + .346997E+01, .258283E+01, .192412E+01, .143396E+01,
1680 + .107075E+01, .798652E+00, .597738E+00, .447630E+00,
1681 + .336733E+00, .254398E+00, .193125E+00, .147270E+00,
1682 + .112696E+00, .863856E-01, .662003E-01, .506035E-01,
1683 + .385140E-01, .291372E-01, .218862E-01, .163046E-01,
1684 + .120315E-01, .880172E-02, .635865E-02, .454019E-02,
1685 + .320165E-02, .222722E-02, .152706E-02, .103055E-02,
1686 + .683860E-03, .445605E-03, .284986E-03, .178542E-03,
1687 + .110264E-03, .669892E-04, .406209E-04, .251800E-04 /
1688 DATA (UPDI(I),I=6085,6136) /
1689 + .166588E-04, .119717E-04, .886805E-05, .642235E-05,
1690 + .448922E-05, .298661E-05, .185577E-05, .104687E-05,
1691 + .512156E-06, .198833E-06, .505865E-07, .484201E-08,
1692 + .000000E+00, .162865E+07, .122697E+07, .907803E+06,
1693 + .671136E+06, .495884E+06, .366083E+06, .270095E+06,
1694 + .199100E+06, .146673E+06, .107953E+06, .794020E+05,
1695 + .583482E+05, .428471E+05, .314348E+05, .230458E+05,
1696 + .168799E+05, .123548E+05, .903459E+04, .660210E+04,
1697 + .482018E+04, .351686E+04, .256374E+04, .186785E+04,
1698 + .135982E+04, .989475E+03, .719426E+03, .523001E+03,
1699 + .378368E+03, .274972E+03, .199810E+03, .145220E+03,
1700 + .105569E+03, .767829E+02, .559311E+02, .407507E+02,
1701 + .297254E+02, .217157E+02, .158885E+02, .116455E+02 /
1702 DATA (UPDI(I),I=6137,6188) /
1703 + .854866E+01, .628829E+01, .463181E+01, .341653E+01,
1704 + .252285E+01, .186493E+01, .137950E+01, .102279E+01,
1705 + .757722E+00, .563509E+00, .419445E+00, .313695E+00,
1706 + .235625E+00, .177813E+00, .134747E+00, .102427E+00,
1707 + .779595E-01, .593009E-01, .449845E-01, .339730E-01,
1708 + .255031E-01, .190095E-01, .140545E-01, .102937E-01,
1709 + .747571E-02, .536211E-02, .380215E-02, .266337E-02,
1710 + .184114E-02, .125509E-02, .842795E-03, .557120E-03,
1711 + .362262E-03, .231808E-03, .145888E-03, .910445E-04,
1712 + .563675E-04, .351976E-04, .226719E-04, .155170E-04,
1713 + .112835E-04, .831784E-05, .597657E-05, .413073E-05,
1714 + .271082E-05, .165616E-05, .915404E-06, .436607E-06,
1715 + .164236E-06, .404041E-07, .391794E-08, .000000E+00 /
1716 DATA (UPDI(I),I=6189,6240) /
1717 + .210033E+07, .157569E+07, .116001E+07, .853299E+06,
1718 + .627280E+06, .460713E+06, .338147E+06, .247956E+06,
1719 + .181691E+06, .133007E+06, .972949E+05, .711013E+05,
1720 + .519190E+05, .378738E+05, .276060E+05, .201015E+05,
1721 + .146253E+05, .106303E+05, .772047E+04, .560155E+04,
1722 + .406102E+04, .294134E+04, .212890E+04, .153952E+04,
1723 + .111262E+04, .803359E+03, .579917E+03, .416504E+03,
1724 + .300488E+03, .216740E+03, .156343E+03, .112791E+03,
1725 + .814022E+02, .588340E+02, .425269E+02, .307737E+02,
1726 + .223008E+02, .161849E+02, .117668E+02, .856784E+01,
1727 + .625167E+01, .456809E+01, .334298E+01, .244950E+01,
1728 + .179710E+01, .131969E+01, .971671E+00, .715077E+00,
1729 + .528472E+00, .391006E+00, .290726E+00, .217107E+00 /
1730 DATA (UPDI(I),I=6241,6292) /
1731 + .162862E+00, .122644E+00, .926074E-01, .699921E-01,
1732 + .528512E-01, .397914E-01, .298230E-01, .222181E-01,
1733 + .164362E-01, .120618E-01, .876965E-02, .632366E-02,
1734 + .450419E-02, .317239E-02, .220801E-02, .151729E-02,
1735 + .102881E-02, .687800E-03, .453256E-03, .294397E-03,
1736 + .188717E-03, .119477E-03, .754387E-04, .476047E-04,
1737 + .305304E-04, .202787E-04, .142002E-04, .103760E-04,
1738 + .759545E-05, .540513E-05, .368919E-05, .238557E-05,
1739 + .143186E-05, .774932E-06, .360207E-06, .131309E-06,
1740 + .312739E-07, .307119E-08, .000000E+00, .266686E+07,
1741 + .199260E+07, .145987E+07, .106866E+07, .781731E+06,
1742 + .571301E+06, .417203E+06, .304371E+06, .221878E+06,
1743 + .161579E+06, .117570E+06, .854585E+05, .620637E+05 /
1744 DATA (UPDI(I),I=6293,6344) /
1745 + .450252E+05, .326353E+05, .236292E+05, .170930E+05,
1746 + .123515E+05, .891736E+04, .643102E+04, .463384E+04,
1747 + .333538E+04, .239883E+04, .172357E+04, .123749E+04,
1748 + .887563E+03, .636374E+03, .453867E+03, .325157E+03,
1749 + .232871E+03, .166768E+03, .119434E+03, .855560E+02,
1750 + .613731E+02, .440247E+02, .316131E+02, .227317E+02,
1751 + .163692E+02, .118078E+02, .853045E+01, .617586E+01,
1752 + .447780E+01, .325184E+01, .236485E+01, .172231E+01,
1753 + .125581E+01, .918381E+00, .671462E+00, .493183E+00,
1754 + .362725E+00, .268135E+00, .199073E+00, .148440E+00,
1755 + .111083E+00, .833221E-01, .625366E-01, .468804E-01,
1756 + .350355E-01, .260626E-01, .192720E-01, .141514E-01,
1757 + .103097E-01, .744209E-02, .532916E-02, .377013E-02 /
1758 DATA (UPDI(I),I=6345,6396) /
1759 + .263816E-02, .182497E-02, .124707E-02, .841489E-03,
1760 + .560432E-03, .368476E-03, .239308E-03, .153860E-03,
1761 + .981122E-04, .627284E-04, .403265E-04, .264789E-04,
1762 + .180124E-04, .128003E-04, .935484E-05, .678991E-05,
1763 + .477980E-05, .321895E-05, .204949E-05, .120788E-05,
1764 + .639822E-06, .289790E-06, .102410E-06, .236448E-07,
1765 + .235085E-08, .000000E+00, .254421E+05, .215991E+05,
1766 + .182692E+05, .154524E+05, .130698E+05, .110545E+05,
1767 + .934988E+04, .790805E+04, .668849E+04, .565694E+04,
1768 + .478443E+04, .404644E+04, .342223E+04, .289426E+04,
1769 + .244771E+04, .207001E+04, .175056E+04, .148038E+04,
1770 + .125186E+04, .105860E+04, .895154E+03, .756927E+03,
1771 + .640032E+03, .541181E+03, .457593E+03, .386915E+03 /
1772 DATA (UPDI(I),I=6397,6448) /
1773 + .327156E+03, .275976E+03, .233385E+03, .197380E+03,
1774 + .166946E+03, .141226E+03, .119491E+03, .101178E+03,
1775 + .856686E+02, .725754E+02, .615236E+02, .521952E+02,
1776 + .443210E+02, .376700E+02, .320581E+02, .273121E+02,
1777 + .232966E+02, .198951E+02, .170097E+02, .145585E+02,
1778 + .124798E+02, .106965E+02, .918253E+01, .787899E+01,
1779 + .676593E+01, .581022E+01, .498843E+01, .428087E+01,
1780 + .367098E+01, .314483E+01, .269066E+01, .229852E+01,
1781 + .195994E+01, .166769E+01, .141557E+01, .119826E+01,
1782 + .101117E+01, .850998E+00, .712683E+00, .594282E+00,
1783 + .493181E+00, .407106E+00, .334072E+00, .272345E+00,
1784 + .220406E+00, .176926E+00, .140715E+00, .110730E+00,
1785 + .863076E-01, .662902E-01, .501680E-01, .373252E-01 /
1786 DATA (UPDI(I),I=6449,6500) /
1787 + .272252E-01, .194014E-01, .134484E-01, .902173E-02,
1788 + .579546E-02, .353991E-02, .201989E-02, .105073E-02,
1789 + .478351E-03, .176570E-03, .445277E-04, .443931E-05,
1790 + .000000E+00, .486943E+06, .388314E+06, .306750E+06,
1791 + .242250E+06, .191359E+06, .151118E+06, .119370E+06,
1792 + .942675E+05, .744647E+05, .588067E+05, .464554E+05,
1793 + .366892E+05, .289857E+05, .228944E+05, .180897E+05,
1794 + .142902E+05, .112933E+05, .892315E+04, .705361E+04,
1795 + .557486E+04, .440831E+04, .348545E+04, .275737E+04,
1796 + .218130E+04, .172672E+04, .136699E+04, .108301E+04,
1797 + .855482E+03, .678685E+03, .538649E+03, .428050E+03,
1798 + .340399E+03, .271137E+03, .216346E+03, .172896E+03,
1799 + .138411E+03, .111106E+03, .893924E+02, .721557E+02 /
1800 DATA (UPDI(I),I=6501,6552) /
1801 + .584004E+02, .474475E+02, .386651E+02, .316251E+02,
1802 + .259480E+02, .213645E+02, .176414E+02, .146222E+02,
1803 + .121351E+02, .101064E+02, .842303E+01, .703642E+01,
1804 + .588485E+01, .492614E+01, .412588E+01, .345816E+01,
1805 + .289606E+01, .242378E+01, .202649E+01, .169196E+01,
1806 + .141025E+01, .117291E+01, .973161E+00, .804938E+00,
1807 + .664184E+00, .545253E+00, .445707E+00, .362519E+00,
1808 + .293261E+00, .235759E+00, .188240E+00, .149126E+00,
1809 + .117133E+00, .911058E-01, .700537E-01, .533177E-01,
1810 + .399455E-01, .294488E-01, .213166E-01, .150994E-01,
1811 + .104301E-01, .698819E-02, .450869E-02, .272570E-02,
1812 + .160258E-02, .873673E-03, .430719E-03, .184019E-03,
1813 + .623172E-04, .142838E-04, .145691E-05, .000000E+00 /
1814 DATA (UPDI(I),I=6553,6604) /
1815 + .116035E+07, .915645E+06, .714745E+06, .557651E+06,
1816 + .435107E+06, .339324E+06, .264639E+06, .206287E+06,
1817 + .160809E+06, .125292E+06, .976241E+05, .760254E+05,
1818 + .592079E+05, .460856E+05, .358734E+05, .279088E+05,
1819 + .217138E+05, .168846E+05, .131305E+05, .102055E+05,
1820 + .793293E+04, .616316E+04, .478898E+04, .371947E+04,
1821 + .288946E+04, .224380E+04, .174300E+04, .134900E+04,
1822 + .104842E+04, .814832E+03, .633825E+03, .493209E+03,
1823 + .384277E+03, .299872E+03, .234306E+03, .183373E+03,
1824 + .143894E+03, .113184E+03, .893290E+02, .707113E+02,
1825 + .562072E+02, .448325E+02, .359096E+02, .288691E+02,
1826 + .233038E+02, .188770E+02, .153595E+02, .125191E+02,
1827 + .102470E+02, .839719E+01, .690123E+01, .568111E+01 /
1828 DATA (UPDI(I),I=6605,6656) /
1829 + .468290E+01, .386416E+01, .319222E+01, .263533E+01,
1830 + .217473E+01, .179326E+01, .147688E+01, .121445E+01,
1831 + .996593E+00, .815930E+00, .665929E+00, .542225E+00,
1832 + .439185E+00, .354178E+00, .284155E+00, .226706E+00,
1833 + .179700E+00, .141433E+00, .110404E+00, .854188E-01,
1834 + .654136E-01, .494910E-01, .370438E-01, .272702E-01,
1835 + .197364E-01, .140101E-01, .971921E-02, .656465E-02,
1836 + .429074E-02, .268547E-02, .155893E-02, .892210E-03,
1837 + .471170E-03, .223824E-03, .915710E-04, .292896E-04,
1838 + .633091E-05, .651981E-06, .000000E+00, .222310E+07,
1839 + .173978E+07, .134528E+07, .103960E+07, .803299E+06,
1840 + .620326E+06, .478976E+06, .369597E+06, .285158E+06,
1841 + .219864E+06, .169495E+06, .130575E+06, .100575E+06 /
1842 DATA (UPDI(I),I=6657,6708) /
1843 + .774123E+05, .595733E+05, .458110E+05, .352214E+05,
1844 + .270590E+05, .207843E+05, .159522E+05, .122412E+05,
1845 + .938622E+04, .719603E+04, .551282E+04, .422290E+04,
1846 + .323250E+04, .247444E+04, .188622E+04, .144363E+04,
1847 + .110460E+04, .845600E+03, .647398E+03, .496113E+03,
1848 + .380710E+03, .292432E+03, .224958E+03, .173483E+03,
1849 + .134102E+03, .104006E+03, .809114E+02, .632142E+02,
1850 + .495694E+02, .390407E+02, .308725E+02, .245204E+02,
1851 + .195503E+02, .156638E+02, .125753E+02, .101428E+02,
1852 + .819292E+01, .663947E+01, .539126E+01, .438480E+01,
1853 + .357121E+01, .291251E+01, .237405E+01, .193465E+01,
1854 + .157561E+01, .128175E+01, .104118E+01, .844060E+00,
1855 + .682702E+00, .550426E+00, .442740E+00, .354190E+00 /
1856 DATA (UPDI(I),I=6709,6760) /
1857 + .282083E+00, .223461E+00, .175999E+00, .137684E+00,
1858 + .106915E+00, .823134E-01, .627855E-01, .473795E-01,
1859 + .353006E-01, .260055E-01, .188254E-01, .133849E-01,
1860 + .932368E-02, .633823E-02, .418749E-02, .266983E-02,
1861 + .162066E-02, .904261E-03, .503786E-03, .257703E-03,
1862 + .117919E-03, .461720E-04, .139246E-04, .283106E-05,
1863 + .292953E-06, .000000E+00, .376653E+07, .292715E+07,
1864 + .224537E+07, .172119E+07, .131909E+07, .101020E+07,
1865 + .773456E+06, .591751E+06, .452607E+06, .345913E+06,
1866 + .264288E+06, .201760E+06, .153974E+06, .117406E+06,
1867 + .894896E+05, .681506E+05, .518797E+05, .394570E+05,
1868 + .299967E+05, .227829E+05, .172967E+05, .131188E+05,
1869 + .994611E+04, .753356E+04, .570406E+04, .431470E+04 /
1870 DATA (UPDI(I),I=6761,6812) /
1871 + .326302E+04, .245631E+04, .185629E+04, .140214E+04,
1872 + .105930E+04, .800199E+03, .604850E+03, .457759E+03,
1873 + .346669E+03, .262893E+03, .199820E+03, .152227E+03,
1874 + .116346E+03, .891963E+02, .686757E+02, .530771E+02,
1875 + .412056E+02, .321253E+02, .251605E+02, .197864E+02,
1876 + .156407E+02, .123908E+02, .986514E+01, .786740E+01,
1877 + .629638E+01, .505038E+01, .405837E+01, .326655E+01,
1878 + .263304E+01, .212157E+01, .170920E+01, .137628E+01,
1879 + .110702E+01, .889191E+00, .712793E+00, .570090E+00,
1880 + .454464E+00, .361436E+00, .285839E+00, .225013E+00,
1881 + .176157E+00, .137084E+00, .105931E+00, .812295E-01,
1882 + .617340E-01, .464644E-01, .345826E-01, .253970E-01,
1883 + .184317E-01, .131330E-01, .918233E-02, .628285E-02 /
1884 DATA (UPDI(I),I=6813,6864) /
1885 + .418952E-02, .270997E-02, .168679E-02, .994298E-03,
1886 + .534408E-03, .290297E-03, .144145E-03, .637055E-04,
1887 + .239691E-04, .685295E-05, .131991E-05, .135874E-06,
1888 + .000000E+00, .589150E+07, .455051E+07, .346599E+07,
1889 + .263793E+07, .200702E+07, .152580E+07, .115953E+07,
1890 + .880458E+06, .668277E+06, .506790E+06, .384154E+06,
1891 + .290929E+06, .220220E+06, .166536E+06, .125873E+06,
1892 + .950425E+05, .717229E+05, .540681E+05, .407346E+05,
1893 + .306557E+05, .230562E+05, .173212E+05, .130046E+05,
1894 + .975285E+04, .730973E+04, .547219E+04, .409480E+04,
1895 + .304890E+04, .227882E+04, .170207E+04, .127119E+04,
1896 + .949104E+03, .708878E+03, .530043E+03, .396481E+03,
1897 + .296937E+03, .222854E+03, .167625E+03, .126477E+03 /
1898 DATA (UPDI(I),I=6865,6916) /
1899 + .957235E+02, .727572E+02, .555152E+02, .425511E+02,
1900 + .327578E+02, .253367E+02, .196805E+02, .153694E+02,
1901 + .120304E+02, .946621E+01, .746203E+01, .590419E+01,
1902 + .468300E+01, .372181E+01, .296323E+01, .236286E+01,
1903 + .188362E+01, .150147E+01, .119633E+01, .952220E+00,
1904 + .756886E+00, .600412E+00, .475196E+00, .374832E+00,
1905 + .294960E+00, .230767E+00, .179688E+00, .139121E+00,
1906 + .107047E+00, .817707E-01, .619650E-01, .465232E-01,
1907 + .345787E-01, .254036E-01, .184037E-01, .131689E-01,
1908 + .924360E-02, .636117E-02, .427927E-02, .280162E-02,
1909 + .177592E-02, .108018E-02, .619218E-03, .321109E-03,
1910 + .170337E-03, .822649E-04, .352052E-04, .127763E-04,
1911 + .347907E-05, .637640E-06, .645153E-07, .000000E+00 /
1912 DATA (UPDI(I),I=6917,6968) /
1913 + .909796E+07, .698247E+07, .527919E+07, .398813E+07,
1914 + .301138E+07, .227192E+07, .171315E+07, .129066E+07,
1915 + .971813E+06, .731045E+06, .549594E+06, .412769E+06,
1916 + .309803E+06, .232277E+06, .174028E+06, .130241E+06,
1917 + .973978E+05, .727511E+05, .542978E+05, .404753E+05,
1918 + .301463E+05, .224247E+05, .166667E+05, .123713E+05,
1919 + .917503E+04, .679513E+04, .502930E+04, .370253E+04,
1920 + .273591E+04, .201986E+04, .149069E+04, .109963E+04,
1921 + .811204E+03, .599016E+03, .442379E+03, .327053E+03,
1922 + .242252E+03, .179820E+03, .133876E+03, .999736E+02,
1923 + .749718E+02, .564425E+02, .426858E+02, .324276E+02,
1924 + .247523E+02, .189771E+02, .146306E+02, .113066E+02,
1925 + .878588E+01, .684023E+01, .534647E+01, .418990E+01 /
1926 DATA (UPDI(I),I=6969,7020) /
1927 + .329058E+01, .258931E+01, .204072E+01, .160813E+01,
1928 + .126724E+01, .998244E+00, .785562E+00, .617368E+00,
1929 + .484207E+00, .378889E+00, .295459E+00, .229842E+00,
1930 + .177732E+00, .136765E+00, .104625E+00, .795258E-01,
1931 + .599946E-01, .448857E-01, .332604E-01, .243882E-01,
1932 + .176677E-01, .126132E-01, .888938E-02, .614007E-02,
1933 + .415407E-02, .274411E-02, .176158E-02, .109267E-02,
1934 + .648420E-03, .360981E-03, .180009E-03, .931920E-04,
1935 + .437589E-04, .181326E-04, .635761E-05, .165074E-05,
1936 + .287680E-06, .280153E-07, .000000E+00, .134494E+08,
1937 + .102601E+08, .770309E+07, .577820E+07, .433176E+07,
1938 + .324444E+07, .242850E+07, .181601E+07, .135706E+07,
1939 + .101306E+07, .755699E+06, .563108E+06, .419263E+06 /
1940 DATA (UPDI(I),I=7021,7072) /
1941 + .311803E+06, .231687E+06, .171946E+06, .127491E+06,
1942 + .944085E+05, .698418E+05, .515978E+05, .380803E+05,
1943 + .280645E+05, .206613E+05, .151891E+05, .111543E+05,
1944 + .817825E+04, .599127E+04, .436426E+04, .319068E+04,
1945 + .233020E+04, .170076E+04, .124054E+04, .904677E+03,
1946 + .660305E+03, .481871E+03, .351986E+03, .257552E+03,
1947 + .188836E+03, .138849E+03, .102400E+03, .758338E+02,
1948 + .563809E+02, .421085E+02, .315938E+02, .238195E+02,
1949 + .180396E+02, .137407E+02, .104919E+02, .805716E+01,
1950 + .619981E+01, .479031E+01, .371156E+01, .288228E+01,
1951 + .224288E+01, .174820E+01, .136258E+01, .106208E+01,
1952 + .827596E+00, .644254E+00, .500866E+00, .388602E+00,
1953 + .300793E+00, .232005E+00, .178508E+00, .136504E+00 /
1954 DATA (UPDI(I),I=7073,7124) /
1955 + .103858E+00, .785436E-01, .590061E-01, .439851E-01,
1956 + .325068E-01, .237856E-01, .172150E-01, .123040E-01,
1957 + .866074E-02, .601486E-02, .409037E-02, .272200E-02,
1958 + .176654E-02, .111245E-02, .675505E-03, .391313E-03,
1959 + .211677E-03, .101469E-03, .512688E-04, .234043E-04,
1960 + .938820E-05, .317977E-05, .785291E-06, .129140E-06,
1961 + .117589E-07, .000000E+00, .191474E+08, .145246E+08,
1962 + .108327E+08, .807158E+07, .601006E+07, .447069E+07,
1963 + .332312E+07, .246756E+07, .183079E+07, .135686E+07,
1964 + .100474E+07, .743125E+06, .549118E+06, .405257E+06,
1965 + .298785E+06, .219995E+06, .161808E+06, .118845E+06,
1966 + .871894E+05, .638713E+05, .467333E+05, .341410E+05,
1967 + .249109E+05, .181472E+05, .132032E+05, .958916E+04 /
1968 DATA (UPDI(I),I=7125,7176) /
1969 + .695737E+04, .501771E+04, .363174E+04, .262537E+04,
1970 + .189629E+04, .136857E+04, .987292E+03, .712747E+03,
1971 + .514350E+03, .371476E+03, .268704E+03, .194741E+03,
1972 + .141522E+03, .103150E+03, .754920E+02, .554679E+02,
1973 + .409404E+02, .303590E+02, .226230E+02, .169362E+02,
1974 + .127538E+02, .962826E+01, .731181E+01, .556425E+01,
1975 + .425254E+01, .325958E+01, .250443E+01, .192838E+01,
1976 + .148737E+01, .114730E+01, .885086E+00, .682630E+00,
1977 + .525989E+00, .404764E+00, .310845E+00, .238153E+00,
1978 + .181805E+00, .138444E+00, .104761E+00, .788637E-01,
1979 + .590022E-01, .438418E-01, .323174E-01, .236117E-01,
1980 + .170749E-01, .122089E-01, .861710E-02, .598651E-02,
1981 + .410144E-02, .274927E-02, .180186E-02, .115046E-02 /
1982 DATA (UPDI(I),I=7177,7228) /
1983 + .711834E-03, .423927E-03, .240292E-03, .126694E-03,
1984 + .585872E-04, .289613E-04, .128934E-04, .502651E-05,
1985 + .165303E-05, .390801E-06, .608022E-07, .500466E-08,
1986 + .000000E+00, .263929E+08, .199143E+08, .147591E+08,
1987 + .109275E+08, .808422E+07, .597453E+07, .441164E+07,
1988 + .325399E+07, .239793E+07, .176501E+07, .129786E+07,
1989 + .953169E+06, .699278E+06, .512332E+06, .374938E+06,
1990 + .274001E+06, .199994E+06, .145756E+06, .106090E+06,
1991 + .770954E+05, .559491E+05, .405350E+05, .293262E+05,
1992 + .211801E+05, .152745E+05, .109941E+05, .790400E+04,
1993 + .564675E+04, .404832E+04, .289831E+04, .207283E+04,
1994 + .148102E+04, .105750E+04, .755541E+03, .539479E+03,
1995 + .385463E+03, .275800E+03, .197698E+03, .142085E+03 /
1996 DATA (UPDI(I),I=7229,7280) /
1997 + .102412E+03, .741176E+02, .538520E+02, .393055E+02,
1998 + .288244E+02, .212431E+02, .157297E+02, .117177E+02,
1999 + .875133E+01, .657596E+01, .495199E+01, .374570E+01,
2000 + .284194E+01, .216163E+01, .164788E+01, .125847E+01,
2001 + .961261E+00, .734385E+00, .560946E+00, .428084E+00,
2002 + .326273E+00, .248174E+00, .188320E+00, .142381E+00,
2003 + .107380E+00, .804626E-01, .599752E-01, .444233E-01,
2004 + .326746E-01, .238374E-01, .172325E-01, .123273E-01,
2005 + .871636E-02, .608156E-02, .417458E-02, .282479E-02,
2006 + .186886E-02, .120804E-02, .760069E-03, .462917E-03,
2007 + .270982E-03, .150713E-03, .777404E-04, .348658E-04,
2008 + .169028E-04, .736159E-05, .279996E-05, .897959E-06,
2009 + .204590E-06, .302340E-07, .217289E-08, .000000E+00 /
2010 DATA (UPDI(I),I=7281,7332) /
2011 + .353717E+08, .265542E+08, .195623E+08, .143961E+08,
2012 + .105849E+08, .777407E+07, .570429E+07, .418067E+07,
2013 + .306090E+07, .223826E+07, .163493E+07, .119264E+07,
2014 + .868977E+06, .632255E+06, .459441E+06, .333357E+06,
2015 + .241548E+06, .174742E+06, .126232E+06, .910331E+05,
2016 + .655501E+05, .471157E+05, .338125E+05, .242200E+05,
2017 + .173206E+05, .123602E+05, .880901E+04, .623683E+04,
2018 + .443100E+04, .314315E+04, .222686E+04, .157592E+04,
2019 + .111431E+04, .788294E+03, .557210E+03, .394084E+03,
2020 + .279060E+03, .197953E+03, .140775E+03, .100397E+03,
2021 + .718900E+02, .516808E+02, .373221E+02, .270822E+02,
2022 + .197507E+02, .144732E+02, .106716E+02, .788909E+01,
2023 + .586899E+01, .437591E+01, .327777E+01, .246305E+01 /
2024 DATA (UPDI(I),I=7333,7384) /
2025 + .185568E+01, .140138E+01, .106028E+01, .802442E+00,
2026 + .607474E+00, .459818E+00, .347760E+00, .262683E+00,
2027 + .198025E+00, .148927E+00, .111592E+00, .834079E-01,
2028 + .619358E-01, .457454E-01, .335719E-01, .244630E-01,
2029 + .176778E-01, .126564E-01, .896454E-02, .627446E-02,
2030 + .433224E-02, .294166E-02, .196839E-02, .128705E-02,
2031 + .821770E-03, .510341E-03, .306542E-03, .176788E-03,
2032 + .967552E-04, .490165E-04, .214609E-04, .102237E-04,
2033 + .436698E-05, .162538E-05, .509741E-06, .112583E-06,
2034 + .158824E-07, .967427E-09, .000000E+00, .462452E+08,
2035 + .345497E+08, .253063E+08, .185151E+08, .135333E+08,
2036 + .988045E+07, .720610E+07, .524913E+07, .381937E+07,
2037 + .277539E+07, .201436E+07, .145996E+07, .105678E+07 /
2038 DATA (UPDI(I),I=7385,7436) /
2039 + .763799E+06, .551283E+06, .397259E+06, .285846E+06,
2040 + .205328E+06, .147260E+06, .105422E+06, .753456E+05,
2041 + .537467E+05, .382737E+05, .272003E+05, .192961E+05,
2042 + .136574E+05, .965262E+04, .677545E+04, .477210E+04,
2043 + .335538E+04, .235591E+04, .165206E+04, .115729E+04,
2044 + .810996E+03, .567757E+03, .397642E+03, .278807E+03,
2045 + .195810E+03, .137856E+03, .973260E+02, .689884E+02,
2046 + .490952E+02, .350982E+02, .252140E+02, .182059E+02,
2047 + .132100E+02, .964600E+01, .706226E+01, .520438E+01,
2048 + .384412E+01, .285302E+01, .212449E+01, .158634E+01,
2049 + .118742E+01, .890566E+00, .668207E+00, .501554E+00,
2050 + .376444E+00, .282325E+00, .211485E+00, .158110E+00,
2051 + .117927E+00, .876340E-01, .649615E-01, .478373E-01 /
2052 DATA (UPDI(I),I=7437,7488) /
2053 + .350369E-01, .254965E-01, .184203E-01, .131962E-01,
2054 + .936483E-02, .657377E-02, .455893E-02, .311816E-02,
2055 + .209669E-02, .138899E-02, .898733E-03, .567594E-03,
2056 + .348469E-03, .206798E-03, .117749E-03, .635787E-04,
2057 + .317478E-04, .136610E-04, .640278E-05, .268654E-05,
2058 + .980258E-06, .300933E-06, .647090E-07, .876283E-08,
2059 + .443320E-09, .000000E+00, .591409E+08, .439801E+08,
2060 + .320357E+08, .233078E+08, .169399E+08, .122969E+08,
2061 + .891640E+07, .645685E+07, .467015E+07, .337317E+07,
2062 + .243324E+07, .175263E+07, .126064E+07, .905329E+06,
2063 + .649196E+06, .464739E+06, .332164E+06, .236979E+06,
2064 + .168785E+06, .119983E+06, .851400E+05, .602921E+05,
2065 + .426167E+05, .300586E+05, .211598E+05, .148590E+05 /
2066 DATA (UPDI(I),I=7489,7540) /
2067 + .104181E+05, .725252E+04, .506582E+04, .353189E+04,
2068 + .245854E+04, .170897E+04, .118650E+04, .823972E+03,
2069 + .571543E+03, .396572E+03, .275440E+03, .191609E+03,
2070 + .133608E+03, .934213E+02, .655840E+02, .462244E+02,
2071 + .327297E+02, .232891E+02, .166577E+02, .119740E+02,
2072 + .866341E+01, .628518E+01, .459054E+01, .336087E+01,
2073 + .247283E+01, .182575E+01, .135187E+01, .100356E+01,
2074 + .746541E+00, .555654E+00, .413772E+00, .308128E+00,
2075 + .229298E+00, .170441E+00, .126450E+00, .935958E-01,
2076 + .690240E-01, .507788E-01, .371081E-01, .269703E-01,
2077 + .194752E-01, .139606E-01, .992262E-02, .698540E-02,
2078 + .486363E-02, .334490E-02, .226834E-02, .151187E-02,
2079 + .992580E-03, .636226E-03, .397906E-03, .241817E-03 /
2080 DATA (UPDI(I),I=7541,7592) /
2081 + .141989E-03, .799564E-04, .426802E-04, .210673E-04,
2082 + .896093E-05, .413385E-05, .170490E-05, .610234E-06,
2083 + .183341E-06, .384864E-07, .502959E-08, .209337E-09,
2084 + .000000E+00, .741452E+08, .548938E+08, .397723E+08,
2085 + .287807E+08, .208034E+08, .150180E+08, .108286E+08,
2086 + .779719E+07, .560720E+07, .402646E+07, .288735E+07,
2087 + .206730E+07, .147796E+07, .105487E+07, .751700E+06,
2088 + .534709E+06, .379711E+06, .269130E+06, .190408E+06,
2089 + .134439E+06, .947412E+05, .666219E+05, .467552E+05,
2090 + .327383E+05, .228758E+05, .159427E+05, .110922E+05,
2091 + .766065E+04, .530831E+04, .367100E+04, .253429E+04,
2092 + .174686E+04, .120244E+04, .827824E+03, .569160E+03,
2093 + .391402E+03, .269400E+03, .185706E+03, .128309E+03 /
2094 DATA (UPDI(I),I=7593,7644) /
2095 + .888937E+02, .618337E+02, .431827E+02, .302979E+02,
2096 + .213643E+02, .151446E+02, .107903E+02, .773947E+01,
2097 + .556672E+01, .403176E+01, .292734E+01, .213642E+01,
2098 + .156482E+01, .114961E+01, .846847E+00, .625178E+00,
2099 + .461855E+00, .341398E+00, .252387E+00, .186470E+00,
2100 + .137620E+00, .101380E+00, .745125E-01, .545659E-01,
2101 + .398627E-01, .289267E-01, .208761E-01, .149680E-01,
2102 + .106530E-01, .751712E-02, .525319E-02, .363035E-02,
2103 + .247772E-02, .166719E-02, .110228E-02, .717738E-03,
2104 + .456130E-03, .282751E-03, .170256E-03, .990182E-04,
2105 + .552095E-04, .291743E-04, .142631E-04, .602241E-05,
2106 + .273421E-05, .110834E-05, .389106E-06, .114318E-06,
2107 + .234627E-07, .297261E-08, .101697E-09, .000000E+00 /
2108 DATA (UPDI(I),I=7645,7696) /
2109 + .704499E+04, .832233E+04, .687439E+04, .567984E+04,
2110 + .469424E+04, .388092E+04, .320962E+04, .265543E+04,
2111 + .219783E+04, .181988E+04, .150764E+04, .124961E+04,
2112 + .103632E+04, .859953E+03, .714068E+03, .593351E+03,
2113 + .493422E+03, .410666E+03, .342102E+03, .285269E+03,
2114 + .238137E+03, .199029E+03, .166563E+03, .139595E+03,
2115 + .117182E+03, .985436E+02, .830350E+02, .699566E+02,
2116 + .592331E+02, .502945E+02, .428400E+02, .366200E+02,
2117 + .314277E+02, .271032E+02, .234801E+02, .204521E+02,
2118 + .179192E+02, .157977E+02, .140173E+02, .125184E+02,
2119 + .112537E+02, .101794E+02, .926147E+01, .847093E+01,
2120 + .778406E+01, .718152E+01, .664953E+01, .617054E+01,
2121 + .574065E+01, .534693E+01, .498731E+01, .465530E+01 /
2122 DATA (UPDI(I),I=7697,7748) /
2123 + .434661E+01, .405727E+01, .378371E+01, .352289E+01,
2124 + .327253E+01, .303118E+01, .279816E+01, .257337E+01,
2125 + .235703E+01, .214956E+01, .195140E+01, .176378E+01,
2126 + .158507E+01, .141670E+01, .125884E+01, .111157E+01,
2127 + .974884E+00, .848737E+00, .733003E+00, .627501E+00,
2128 + .531937E+00, .445951E+00, .369941E+00, .302391E+00,
2129 + .243429E+00, .192562E+00, .149266E+00, .112987E+00,
2130 + .831432E-01, .591648E-01, .402918E-01, .260523E-01,
2131 + .157087E-01, .861149E-02, .411316E-02, .158037E-02,
2132 + .408294E-03, .399741E-04, .000000E+00, .182144E+05,
2133 + .246153E+05, .196638E+05, .157122E+05, .125618E+05,
2134 + .100463E+05, .803969E+04, .643639E+04, .515662E+04,
2135 + .413330E+04, .331585E+04, .266165E+04, .213860E+04 /
2136 DATA (UPDI(I),I=7749,7800) /
2137 + .171959E+04, .138425E+04, .111529E+04, .899789E+03,
2138 + .726720E+03, .587856E+03, .476163E+03, .386403E+03,
2139 + .314077E+03, .255845E+03, .208828E+03, .170890E+03,
2140 + .140195E+03, .115358E+03, .949580E+02, .786713E+02,
2141 + .654150E+02, .546315E+02, .458259E+02, .386400E+02,
2142 + .327671E+02, .279443E+02, .239780E+02, .207160E+02,
2143 + .180192E+02, .157873E+02, .139273E+02, .123751E+02,
2144 + .110666E+02, .995887E+01, .901096E+01, .819416E+01,
2145 + .748242E+01, .685931E+01, .630264E+01, .580751E+01,
2146 + .535775E+01, .495073E+01, .457800E+01, .423458E+01,
2147 + .391552E+01, .361704E+01, .333572E+01, .306928E+01,
2148 + .281605E+01, .257519E+01, .234626E+01, .212919E+01,
2149 + .192401E+01, .173069E+01, .155011E+01, .138033E+01 /
2150 DATA (UPDI(I),I=7801,7852) /
2151 + .122240E+01, .107616E+01, .941408E+00, .817856E+00,
2152 + .705209E+00, .603091E+00, .511137E+00, .428882E+00,
2153 + .355764E+00, .291945E+00, .235954E+00, .187721E+00,
2154 + .146679E+00, .112235E+00, .838149E-01, .607970E-01,
2155 + .426061E-01, .285310E-01, .181129E-01, .106998E-01,
2156 + .573164E-02, .266483E-02, .992157E-03, .248394E-03,
2157 + .245823E-04, .000000E+00, .583675E+05, .463802E+05,
2158 + .364998E+05, .287263E+05, .226175E+05, .178104E+05,
2159 + .140318E+05, .110573E+05, .871836E+04, .687641E+04,
2160 + .542737E+04, .428561E+04, .338688E+04, .267825E+04,
2161 + .212006E+04, .167955E+04, .133224E+04, .105786E+04,
2162 + .841276E+03, .669943E+03, .534508E+03, .427188E+03,
2163 + .342204E+03, .274726E+03, .221172E+03, .178552E+03 /
2164 DATA (UPDI(I),I=7853,7904) /
2165 + .144627E+03, .117215E+03, .956768E+02, .784188E+02,
2166 + .645917E+02, .534662E+02, .445152E+02, .372981E+02,
2167 + .314472E+02, .266930E+02, .228268E+02, .196632E+02,
2168 + .170697E+02, .149266E+02, .131520E+02, .116666E+02,
2169 + .104172E+02, .935452E+01, .844420E+01, .765555E+01,
2170 + .696918E+01, .635965E+01, .582078E+01, .533426E+01,
2171 + .489665E+01, .449831E+01, .413353E+01, .379681E+01,
2172 + .348405E+01, .319162E+01, .291708E+01, .265859E+01,
2173 + .241510E+01, .218594E+01, .197074E+01, .176926E+01,
2174 + .158115E+01, .140702E+01, .124473E+01, .109509E+01,
2175 + .957695E+00, .832170E+00, .718048E+00, .614876E+00,
2176 + .522132E+00, .439334E+00, .365918E+00, .301217E+00,
2177 + .245249E+00, .196595E+00, .155074E+00, .120090E+00 /
2178 DATA (UPDI(I),I=7905,7956) /
2179 + .910263E-01, .673160E-01, .483083E-01, .334688E-01,
2180 + .221318E-01, .138581E-01, .806057E-02, .424254E-02,
2181 + .193213E-02, .701939E-03, .171340E-03, .171077E-04,
2182 + .000000E+00, .981498E+05, .772711E+05, .601716E+05,
2183 + .468514E+05, .364894E+05, .284181E+05, .221394E+05,
2184 + .172486E+05, .134437E+05, .104796E+05, .817324E+04,
2185 + .637612E+04, .497746E+04, .388724E+04, .303839E+04,
2186 + .237640E+04, .186066E+04, .145816E+04, .114433E+04,
2187 + .899150E+03, .707757E+03, .558024E+03, .440964E+03,
2188 + .349223E+03, .277354E+03, .220903E+03, .176555E+03,
2189 + .141193E+03, .113769E+03, .920795E+02, .749200E+02,
2190 + .612855E+02, .504475E+02, .418114E+02, .348878E+02,
2191 + .293221E+02, .248409E+02, .212085E+02, .182560E+02 /
2192 DATA (UPDI(I),I=7957,8008) /
2193 + .158358E+02, .138461E+02, .121917E+02, .108087E+02,
2194 + .963913E+01, .864277E+01, .778431E+01, .704119E+01,
2195 + .638490E+01, .580784E+01, .528971E+01, .482621E+01,
2196 + .440662E+01, .402452E+01, .367392E+01, .335038E+01,
2197 + .305005E+01, .277029E+01, .250907E+01, .226512E+01,
2198 + .203750E+01, .182559E+01, .162888E+01, .144673E+01,
2199 + .127949E+01, .112487E+01, .983434E+00, .854598E+00,
2200 + .737815E+00, .632473E+00, .537990E+00, .453727E+00,
2201 + .379108E+00, .313492E+00, .256137E+00, .206945E+00,
2202 + .164557E+00, .128709E+00, .987916E-01, .741813E-01,
2203 + .543006E-01, .385449E-01, .263924E-01, .172264E-01,
2204 + .106320E-01, .608330E-02, .314159E-02, .139853E-02,
2205 + .494173E-03, .117072E-03, .118143E-04, .000000E+00 /
2206 DATA (UPDI(I),I=8009,8060) /
2207 + .152340E+06, .119071E+06, .919592E+05, .710030E+05,
2208 + .548301E+05, .423329E+05, .326906E+05, .252412E+05,
2209 + .194946E+05, .150556E+05, .116317E+05, .898707E+04,
2210 + .694718E+04, .537155E+04, .415606E+04, .321703E+04,
2211 + .249243E+04, .193242E+04, .150008E+04, .116569E+04,
2212 + .907314E+03, .707271E+03, .552515E+03, .432525E+03,
2213 + .339533E+03, .267284E+03, .211148E+03, .166886E+03,
2214 + .132940E+03, .106390E+03, .856128E+02, .692843E+02,
2215 + .564414E+02, .463146E+02, .382762E+02, .318770E+02,
2216 + .267711E+02, .226681E+02, .193594E+02, .166673E+02,
2217 + .144690E+02, .126528E+02, .111431E+02, .987354E+01,
2218 + .879756E+01, .787532E+01, .708099E+01, .638305E+01,
2219 + .577246E+01, .522704E+01, .474157E+01, .430437E+01 /
2220 DATA (UPDI(I),I=8061,8112) /
2221 + .390833E+01, .354700E+01, .321558E+01, .291001E+01,
2222 + .262742E+01, .236557E+01, .212294E+01, .189836E+01,
2223 + .169091E+01, .149985E+01, .132428E+01, .116430E+01,
2224 + .101750E+01, .884213E+00, .763698E+00, .655269E+00,
2225 + .558185E+00, .471759E+00, .395260E+00, .328036E+00,
2226 + .269386E+00, .218521E+00, .175251E+00, .138276E+00,
2227 + .107277E+00, .816401E-01, .607500E-01, .440421E-01,
2228 + .309380E-01, .209467E-01, .135026E-01, .821954E-02,
2229 + .462985E-02, .234813E-02, .102302E-02, .352216E-03,
2230 + .811962E-04, .827624E-05, .000000E+00, .158744E+06,
2231 + .173982E+06, .133438E+06, .102305E+06, .784386E+05,
2232 + .601209E+05, .460844E+05, .353156E+05, .270669E+05,
2233 + .207409E+05, .158969E+05, .121832E+05, .934015E+04 /
2234 DATA (UPDI(I),I=8113,8164) /
2235 + .716103E+04, .549305E+04, .421470E+04, .323620E+04,
2236 + .248621E+04, .191202E+04, .147174E+04, .113447E+04,
2237 + .875666E+03, .677245E+03, .524815E+03, .407774E+03,
2238 + .317695E+03, .248376E+03, .194252E+03, .153147E+03,
2239 + .121312E+03, .966410E+02, .774415E+02, .624830E+02,
2240 + .507997E+02, .416092E+02, .343581E+02, .286203E+02,
2241 + .240467E+02, .203854E+02, .174274E+02, .150272E+02,
2242 + .130561E+02, .114265E+02, .100634E+02, .891376E+01,
2243 + .793325E+01, .709270E+01, .635770E+01, .571773E+01,
2244 + .514884E+01, .464488E+01, .419326E+01, .378622E+01,
2245 + .341687E+01, .308007E+01, .277151E+01, .248809E+01,
2246 + .222734E+01, .198750E+01, .176714E+01, .156510E+01,
2247 + .138038E+01, .121184E+01, .105937E+01, .920441E+00 /
2248 DATA (UPDI(I),I=8165,8216) /
2249 + .795204E+00, .682764E+00, .582314E+00, .493013E+00,
2250 + .414083E+00, .344725E+00, .284225E+00, .231841E+00,
2251 + .186752E+00, .148697E+00, .116440E+00, .896248E-01,
2252 + .676410E-01, .498918E-01, .358321E-01, .249166E-01,
2253 + .166863E-01, .106270E-01, .638303E-02, .354129E-02,
2254 + .176495E-02, .753200E-03, .253032E-03, .568954E-04,
2255 + .585417E-05, .000000E+00, .336405E+06, .259750E+06,
2256 + .197801E+06, .150560E+06, .114591E+06, .871774E+05,
2257 + .663177E+05, .504300E+05, .383475E+05, .291505E+05,
2258 + .221603E+05, .168424E+05, .128026E+05, .973078E+04,
2259 + .739818E+04, .562526E+04, .427936E+04, .325664E+04,
2260 + .248035E+04, .189041E+04, .144252E+04, .110202E+04,
2261 + .843374E+03, .646599E+03, .496957E+03, .382931E+03 /
2262 DATA (UPDI(I),I=8217,8268) /
2263 + .296064E+03, .228939E+03, .178482E+03, .139817E+03,
2264 + .110159E+03, .873232E+02, .697116E+02, .560986E+02,
2265 + .454944E+02, .372102E+02, .307144E+02, .255830E+02,
2266 + .215085E+02, .182428E+02, .156114E+02, .134654E+02,
2267 + .117019E+02, .102357E+02, .900594E+01, .796297E+01,
2268 + .707361E+01, .630016E+01, .563028E+01, .503808E+01,
2269 + .451630E+01, .405138E+01, .363474E+01, .325908E+01,
2270 + .291879E+01, .260931E+01, .232720E+01, .206974E+01,
2271 + .183485E+01, .162082E+01, .142619E+01, .124971E+01,
2272 + .108998E+01, .946643E+00, .817073E+00, .701205E+00,
2273 + .598004E+00, .506546E+00, .425892E+00, .355181E+00,
2274 + .293555E+00, .240247E+00, .194484E+00, .155431E+00,
2275 + .122761E+00, .953216E-01, .727258E-01, .543827E-01 /
2276 DATA (UPDI(I),I=8269,8320) /
2277 + .397246E-01, .282372E-01, .194194E-01, .128516E-01,
2278 + .807943E-02, .478448E-02, .261273E-02, .127907E-02,
2279 + .534748E-03, .175519E-03, .386224E-04, .400805E-05,
2280 + .000000E+00, .485993E+06, .373168E+06, .282339E+06,
2281 + .213506E+06, .161421E+06, .121979E+06, .921577E+05,
2282 + .695929E+05, .525450E+05, .396559E+05, .299255E+05,
2283 + .225745E+05, .170290E+05, .128427E+05, .968665E+04,
2284 + .730569E+04, .551169E+04, .415899E+04, .314019E+04,
2285 + .237216E+04, .179374E+04, .135768E+04, .102922E+04,
2286 + .781498E+03, .594750E+03, .453721E+03, .347261E+03,
2287 + .265764E+03, .205077E+03, .159017E+03, .124017E+03,
2288 + .973279E+02, .769365E+02, .613242E+02, .492725E+02,
2289 + .399428E+02, .326888E+02, .270063E+02, .225283E+02 /
2290 DATA (UPDI(I),I=8321,8372) /
2291 + .189657E+02, .161141E+02, .138033E+02, .119152E+02,
2292 + .103545E+02, .905217E+01, .795351E+01, .702138E+01,
2293 + .621490E+01, .551999E+01, .490889E+01, .437326E+01,
2294 + .389864E+01, .347572E+01, .309673E+01, .275566E+01,
2295 + .244764E+01, .216893E+01, .191653E+01, .168805E+01,
2296 + .148152E+01, .129520E+01, .112758E+01, .977048E+00,
2297 + .843019E+00, .722809E+00, .616152E+00, .521900E+00,
2298 + .439031E+00, .366532E+00, .303482E+00, .248981E+00,
2299 + .202228E+00, .162436E+00, .128770E+00, .100858E+00,
2300 + .776309E-01, .586876E-01, .434636E-01, .314256E-01,
2301 + .220956E-01, .150176E-01, .981288E-02, .608306E-02,
2302 + .354670E-02, .190308E-02, .913052E-03, .372816E-03,
2303 + .119059E-03, .255168E-04, .267605E-05, .000000E+00 /
2304 DATA (UPDI(I),I=8373,8424) /
2305 + .680695E+06, .519994E+06, .391079E+06, .293949E+06,
2306 + .220879E+06, .165872E+06, .124528E+06, .934350E+05,
2307 + .700868E+05, .525444E+05, .393840E+05, .295057E+05,
2308 + .221018E+05, .165495E+05, .123916E+05, .927634E+04,
2309 + .694528E+04, .520011E+04, .389512E+04, .291859E+04,
2310 + .218863E+04, .164253E+04, .123437E+04, .928989E+03,
2311 + .700623E+03, .529583E+03, .401558E+03, .304394E+03,
2312 + .232666E+03, .178706E+03, .138060E+03, .107341E+03,
2313 + .840746E+02, .664178E+02, .529026E+02, .425281E+02,
2314 + .345256E+02, .283052E+02, .234382E+02, .195928E+02,
2315 + .165338E+02, .140699E+02, .120677E+02, .104213E+02,
2316 + .905436E+01, .790691E+01, .693808E+01, .610397E+01,
2317 + .538878E+01, .476306E+01, .421743E+01, .373656E+01 /
2318 DATA (UPDI(I),I=8425,8476) /
2319 + .331049E+01, .293098E+01, .259163E+01, .228728E+01,
2320 + .201386E+01, .176810E+01, .154733E+01, .134929E+01,
2321 + .117201E+01, .101375E+01, .872705E+00, .748081E+00,
2322 + .637162E+00, .539504E+00, .453873E+00, .379168E+00,
2323 + .314327E+00, .258385E+00, .210419E+00, .169614E+00,
2324 + .135178E+00, .106293E+00, .825578E-01, .629885E-01,
2325 + .471814E-01, .346047E-01, .247644E-01, .172218E-01,
2326 + .115671E-01, .746200E-02, .456078E-02, .261779E-02,
2327 + .137999E-02, .648756E-03, .258679E-03, .803734E-04,
2328 + .167826E-04, .177897E-05, .000000E+00, .929609E+06,
2329 + .706728E+06, .528525E+06, .394999E+06, .295095E+06,
2330 + .220310E+06, .164415E+06, .122620E+06, .914153E+05,
2331 + .681085E+05, .507269E+05, .377592E+05, .280987E+05 /
2332 DATA (UPDI(I),I=8477,8528) /
2333 + .208995E+05, .155422E+05, .115541E+05, .858935E+04,
2334 + .638455E+04, .474694E+04, .352999E+04, .262665E+04,
2335 + .195570E+04, .145786E+04, .108816E+04, .813775E+03,
2336 + .609848E+03, .458413E+03, .344406E+03, .260927E+03,
2337 + .198642E+03, .152110E+03, .117234E+03, .910349E+02,
2338 + .713157E+02, .563414E+02, .449373E+02, .362059E+02,
2339 + .294682E+02, .242316E+02, .201208E+02, .168697E+02,
2340 + .142658E+02, .121604E+02, .104381E+02, .901472E+01,
2341 + .782556E+01, .682616E+01, .596979E+01, .523904E+01,
2342 + .460288E+01, .405095E+01, .356714E+01, .314085E+01,
2343 + .276343E+01, .242810E+01, .212938E+01, .186291E+01,
2344 + .162515E+01, .141314E+01, .122439E+01, .105669E+01,
2345 + .908120E+00, .776694E+00, .661441E+00, .559637E+00 /
2346 DATA (UPDI(I),I=8529,8580) /
2347 + .470684E+00, .393282E+00, .326277E+00, .268572E+00,
2348 + .219181E+00, .177173E+00, .141730E+00, .112072E+00,
2349 + .874070E-01, .673199E-01, .509104E-01, .377827E-01,
2350 + .274423E-01, .194368E-01, .133683E-01, .887253E-02,
2351 + .565041E-02, .340478E-02, .192374E-02, .996256E-03,
2352 + .458910E-03, .178704E-03, .540455E-04, .110072E-04,
2353 + .117913E-05, .000000E+00, .124252E+07, .940297E+06,
2354 + .699419E+06, .519883E+06, .386256E+06, .286762E+06,
2355 + .212798E+06, .157794E+06, .116954E+06, .866211E+05,
2356 + .641274E+05, .474428E+05, .350854E+05, .259313E+05,
2357 + .191598E+05, .141501E+05, .104487E+05, .771359E+04,
2358 + .569507E+04, .420489E+04, .310606E+04, .229547E+04,
2359 + .169816E+04, .125770E+04, .933144E+03, .693679E+03 /
2360 DATA (UPDI(I),I=8581,8632) /
2361 + .517184E+03, .385318E+03, .289502E+03, .218567E+03,
2362 + .165981E+03, .126877E+03, .977272E+02, .759570E+02,
2363 + .595485E+02, .471445E+02, .377139E+02, .304860E+02,
2364 + .249037E+02, .205477E+02, .171216E+02, .143919E+02,
2365 + .121955E+02, .104071E+02, .893575E+01, .771204E+01,
2366 + .668819E+01, .581488E+01, .507316E+01, .443061E+01,
2367 + .387592E+01, .339229E+01, .296853E+01, .259561E+01,
2368 + .226634E+01, .197500E+01, .171690E+01, .148826E+01,
2369 + .128586E+01, .110700E+01, .949260E+00, .810544E+00,
2370 + .688737E+00, .582710E+00, .489755E+00, .409142E+00,
2371 + .339530E+00, .279729E+00, .228627E+00, .185232E+00,
2372 + .148620E+00, .117982E+00, .925601E-01, .715994E-01,
2373 + .546804E-01, .409859E-01, .301354E-01, .216742E-01 /
2374 DATA (UPDI(I),I=8633,8684) /
2375 + .151926E-01, .103337E-01, .677673E-02, .426012E-02,
2376 + .253060E-02, .140736E-02, .715954E-03, .323135E-03,
2377 + .122906E-03, .361974E-04, .719900E-05, .779201E-06,
2378 + .000000E+00, .162965E+07, .122787E+07, .908609E+06,
2379 + .671857E+06, .496529E+06, .366661E+06, .270612E+06,
2380 + .199562E+06, .147086E+06, .108323E+06, .797322E+05,
2381 + .586434E+05, .431110E+05, .316707E+05, .232566E+05,
2382 + .170682E+05, .125231E+05, .918488E+04, .673634E+04,
2383 + .494005E+04, .362389E+04, .265930E+04, .195316E+04,
2384 + .143596E+04, .105744E+04, .780099E+03, .577144E+03,
2385 + .426600E+03, .318011E+03, .238211E+03, .179486E+03,
2386 + .136142E+03, .104066E+03, .802853E+02, .624878E+02,
2387 + .491275E+02, .390365E+02, .313517E+02, .254514E+02 /
2388 DATA (UPDI(I),I=8685,8736) /
2389 + .208731E+02, .172907E+02, .144503E+02, .121752E+02,
2390 + .103309E+02, .882020E+01, .756908E+01, .652684E+01,
2391 + .564177E+01, .489355E+01, .424848E+01, .369441E+01,
2392 + .321388E+01, .279518E+01, .242890E+01, .210754E+01,
2393 + .182507E+01, .157654E+01, .135793E+01, .116580E+01,
2394 + .997242E+00, .849666E+00, .720834E+00, .608528E+00,
2395 + .511487E+00, .427037E+00, .354347E+00, .292048E+00,
2396 + .238935E+00, .193900E+00, .155955E+00, .124198E+00,
2397 + .978392E-01, .761517E-01, .584229E-01, .442397E-01,
2398 + .328651E-01, .239392E-01, .170487E-01, .118259E-01,
2399 + .795428E-02, .515380E-02, .319790E-02, .187251E-02,
2400 + .102494E-02, .512158E-03, .226483E-03, .841517E-04,
2401 + .241466E-04, .469473E-05, .513329E-06, .000000E+00 /
2402 DATA (UPDI(I),I=8737,8788) /
2403 + .210142E+07, .157667E+07, .116089E+07, .854083E+06,
2404 + .627981E+06, .461340E+06, .338708E+06, .248457E+06,
2405 + .182139E+06, .133407E+06, .976528E+05, .714210E+05,
2406 + .522046E+05, .381289E+05, .278337E+05, .203049E+05,
2407 + .148068E+05, .107922E+05, .786496E+04, .573043E+04,
2408 + .417597E+04, .304383E+04, .222026E+04, .162095E+04,
2409 + .118519E+04, .868023E+03, .637509E+03, .467700E+03,
2410 + .346067E+03, .257308E+03, .192444E+03, .144909E+03,
2411 + .109972E+03, .842510E+02, .651291E+02, .508686E+02,
2412 + .401644E+02, .320611E+02, .258739E+02, .210980E+02,
2413 + .173788E+02, .144436E+02, .121025E+02, .102128E+02,
2414 + .867105E+01, .739958E+01, .634484E+01, .545305E+01,
2415 + .470259E+01, .405868E+01, .350836E+01, .303363E+01 /
2416 DATA (UPDI(I),I=8789,8840) /
2417 + .262229E+01, .226461E+01, .195274E+01, .168041E+01,
2418 + .144243E+01, .123456E+01, .105316E+01, .895143E+00,
2419 + .757792E+00, .638751E+00, .535725E+00, .447349E+00,
2420 + .371003E+00, .305773E+00, .250287E+00, .203340E+00,
2421 + .163838E+00, .130815E+00, .103398E+00, .808275E-01,
2422 + .624121E-01, .474867E-01, .356524E-01, .262489E-01,
2423 + .189407E-01, .133557E-01, .916723E-02, .609702E-02,
2424 + .390280E-02, .239010E-02, .137942E-02, .743069E-03,
2425 + .364702E-03, .158016E-03, .573629E-04, .160442E-04,
2426 + .305277E-05, .337133E-06, .000000E+00, .266804E+07,
2427 + .199366E+07, .146082E+07, .106951E+07, .782493E+06,
2428 + .571981E+06, .417811E+06, .304914E+06, .222364E+06,
2429 + .162013E+06, .117957E+06, .858041E+05, .623722E+05 /
2430 DATA (UPDI(I),I=8841,8892) /
2431 + .453005E+05, .328809E+05, .238483E+05, .172884E+05,
2432 + .125257E+05, .907257E+04, .656931E+04, .475702E+04,
2433 + .344505E+04, .249646E+04, .181044E+04, .131477E+04,
2434 + .956299E+03, .697469E+03, .508057E+03, .373288E+03,
2435 + .275601E+03, .204688E+03, .153068E+03, .115379E+03,
2436 + .878128E+02, .674486E+02, .523553E+02, .410919E+02,
2437 + .326128E+02, .261720E+02, .212246E+02, .173892E+02,
2438 + .143751E+02, .119808E+02, .100558E+02, .849146E+01,
2439 + .720650E+01, .614495E+01, .525126E+01, .450260E+01,
2440 + .386330E+01, .331966E+01, .285319E+01, .245128E+01,
2441 + .210386E+01, .180285E+01, .154171E+01, .131505E+01,
2442 + .111842E+01, .948028E+00, .800652E+00, .673459E+00,
2443 + .564005E+00, .469954E+00, .389856E+00, .321166E+00 /
2444 DATA (UPDI(I),I=8893,8944) /
2445 + .262908E+00, .213721E+00, .172417E+00, .137929E+00,
2446 + .109323E+00, .857617E-01, .665229E-01, .509575E-01,
2447 + .384499E-01, .286207E-01, .208824E-01, .149264E-01,
2448 + .104206E-01, .707724E-02, .465401E-02, .294299E-02,
2449 + .177868E-02, .101174E-02, .536326E-03, .258535E-03,
2450 + .109753E-03, .389334E-04, .106198E-04, .197950E-05,
2451 + .220748E-06, .000000E+00, .707330E+04, .821779E+04,
2452 + .678108E+04, .559656E+04, .461993E+04, .381461E+04,
2453 + .315046E+04, .260265E+04, .215074E+04, .177788E+04,
2454 + .147018E+04, .121620E+04, .100652E+04, .833381E+03,
2455 + .690369E+03, .572214E+03, .474567E+03, .393844E+03,
2456 + .327090E+03, .271867E+03, .226167E+03, .188333E+03,
2457 + .156997E+03, .131031E+03, .109506E+03, .916527E+02 /
2458 DATA (UPDI(I),I=8945,8996) /
2459 + .768376E+02, .643786E+02, .541912E+02, .457227E+02,
2460 + .386789E+02, .328163E+02, .279338E+02, .238754E+02,
2461 + .204812E+02, .176481E+02, .152801E+02, .132973E+02,
2462 + .116333E+02, .102317E+02, .904841E+01, .804277E+01,
2463 + .718338E+01, .644378E+01, .580215E+01, .524064E+01,
2464 + .474630E+01, .430242E+01, .390472E+01, .354050E+01,
2465 + .320735E+01, .289934E+01, .261344E+01, .234787E+01,
2466 + .210180E+01, .187488E+01, .166680E+01, .147703E+01,
2467 + .130471E+01, .114874E+01, .100789E+01, .880909E+00,
2468 + .766638E+00, .664451E+00, .572331E+00, .490073E+00,
2469 + .416893E+00, .352078E+00, .294966E+00, .244940E+00,
2470 + .201416E+00, .163838E+00, .131652E+00, .104327E+00,
2471 + .815900E-01, .626243E-01, .471447E-01, .347094E-01 /
2472 DATA (UPDI(I),I=8997,9048) /
2473 + .249017E-01, .173311E-01, .116339E-01, .748143E-02,
2474 + .454750E-02, .258631E-02, .134482E-02, .618817E-03,
2475 + .238574E-03, .695509E-04, .121781E-04, .613099E-06,
2476 + .000000E+00, .182462E+05, .244956E+05, .195569E+05,
2477 + .156167E+05, .124766E+05, .997025E+04, .797182E+04,
2478 + .637581E+04, .510255E+04, .408503E+04, .327278E+04,
2479 + .262320E+04, .210428E+04, .168895E+04, .135689E+04,
2480 + .109087E+04, .877973E+03, .707230E+03, .570435E+03,
2481 + .460586E+03, .372465E+03, .301598E+03, .244661E+03,
2482 + .198795E+03, .161877E+03, .132085E+03, .108047E+03,
2483 + .883628E+02, .726972E+02, .599880E+02, .496842E+02,
2484 + .412993E+02, .344801E+02, .289259E+02, .243799E+02,
2485 + .206534E+02, .175979E+02, .150792E+02, .130004E+02 /
2486 DATA (UPDI(I),I=9049,9100) /
2487 + .112729E+02, .983539E+01, .862767E+01, .760888E+01,
2488 + .674109E+01, .599715E+01, .535269E+01, .479194E+01,
2489 + .429396E+01, .385338E+01, .345498E+01, .309586E+01,
2490 + .276876E+01, .247005E+01, .219698E+01, .194796E+01,
2491 + .172165E+01, .151694E+01, .133251E+01, .116692E+01,
2492 + .101862E+01, .886060E+00, .767783E+00, .662378E+00,
2493 + .569082E+00, .485826E+00, .412263E+00, .347500E+00,
2494 + .290756E+00, .241293E+00, .198443E+00, .161572E+00,
2495 + .130100E+00, .103462E+00, .811071E-01, .627300E-01,
2496 + .475917E-01, .353928E-01, .257251E-01, .182287E-01,
2497 + .125243E-01, .829019E-02, .525235E-02, .314048E-02,
2498 + .175464E-02, .894424E-03, .402636E-03, .151351E-03,
2499 + .429240E-04, .733981E-05, .377572E-06, .000000E+00 /
2500 DATA (UPDI(I),I=9101,9152) /
2501 + .582202E+05, .462485E+05, .363822E+05, .286213E+05,
2502 + .225237E+05, .177267E+05, .139570E+05, .109905E+05,
2503 + .865875E+04, .682318E+04, .537984E+04, .424317E+04,
2504 + .334898E+04, .264440E+04, .208981E+04, .165252E+04,
2505 + .130808E+04, .103626E+04, .821955E+03, .652651E+03,
2506 + .519021E+03, .413309E+03, .329752E+03, .263543E+03,
2507 + .211115E+03, .169493E+03, .136453E+03, .109834E+03,
2508 + .889862E+02, .723378E+02, .590467E+02, .483934E+02,
2509 + .398556E+02, .330001E+02, .274652E+02, .229872E+02,
2510 + .193611E+02, .164072E+02, .139964E+02, .120137E+02,
2511 + .103802E+02, .902034E+01, .788338E+01, .692300E+01,
2512 + .610641E+01, .540467E+01, .479901E+01, .426555E+01,
2513 + .379764E+01, .337837E+01, .300409E+01, .266664E+01 /
2514 DATA (UPDI(I),I=9153,9204) /
2515 + .236174E+01, .208595E+01, .183703E+01, .161302E+01,
2516 + .141220E+01, .123277E+01, .107291E+01, .930803E+00,
2517 + .804679E+00, .692956E+00, .594079E+00, .507194E+00,
2518 + .430217E+00, .362706E+00, .303714E+00, .252420E+00,
2519 + .208050E+00, .169915E+00, .137358E+00, .109795E+00,
2520 + .866628E-01, .674102E-01, .517211E-01, .389129E-01,
2521 + .286868E-01, .206737E-01, .145154E-01, .987437E-02,
2522 + .646650E-02, .405063E-02, .239187E-02, .131838E-02,
2523 + .661913E-03, .292960E-03, .107983E-03, .299593E-04,
2524 + .502353E-05, .263098E-06, .000000E+00, .979889E+05,
2525 + .771272E+05, .600431E+05, .467366E+05, .363868E+05,
2526 + .283265E+05, .220576E+05, .171756E+05, .133785E+05,
2527 + .104213E+05, .812120E+04, .632963E+04, .493592E+04 /
2528 DATA (UPDI(I),I=9205,9256) /
2529 + .385012E+04, .300521E+04, .234674E+04, .183414E+04,
2530 + .143443E+04, .112309E+04, .880127E+03, .690709E+03,
2531 + .542733E+03, .427237E+03, .336886E+03, .266251E+03,
2532 + .210896E+03, .167520E+03, .133031E+03, .106369E+03,
2533 + .853529E+02, .687875E+02, .556782E+02, .453015E+02,
2534 + .370709E+02, .305037E+02, .252516E+02, .210451E+02,
2535 + .176547E+02, .149149E+02, .126834E+02, .108610E+02,
2536 + .935708E+01, .810970E+01, .706427E+01, .618202E+01,
2537 + .542949E+01, .478477E+01, .422121E+01, .373073E+01,
2538 + .329486E+01, .290911E+01, .256450E+01, .225601E+01,
2539 + .197960E+01, .173237E+01, .151181E+01, .131567E+01,
2540 + .114174E+01, .987867E+00, .852012E+00, .732241E+00,
2541 + .626858E+00, .534199E+00, .453329E+00, .382167E+00 /
2542 DATA (UPDI(I),I=9257,9308) /
2543 + .320192E+00, .266419E+00, .220000E+00, .180139E+00,
2544 + .146134E+00, .117322E+00, .931195E-01, .729700E-01,
2545 + .563337E-01, .428898E-01, .320093E-01, .233996E-01,
2546 + .167092E-01, .116167E-01, .782189E-02, .506589E-02,
2547 + .313585E-02, .182754E-02, .992894E-03, .490421E-03,
2548 + .213074E-03, .768494E-04, .208009E-04, .341369E-05,
2549 + .182942E-06, .000000E+00, .152165E+06, .118915E+06,
2550 + .918195E+05, .708782E+05, .547186E+05, .422334E+05,
2551 + .326016E+05, .251618E+05, .194236E+05, .149922E+05,
2552 + .115750E+05, .893643E+04, .690192E+04, .533109E+04,
2553 + .411988E+04, .318468E+04, .246348E+04, .190651E+04,
2554 + .147687E+04, .114490E+04, .888671E+03, .690543E+03,
2555 + .537489E+03, .419016E+03, .327371E+03, .256317E+03 /
2556 DATA (UPDI(I),I=9309,9360) /
2557 + .201244E+03, .157939E+03, .124827E+03, .990175E+02,
2558 + .788952E+02, .631469E+02, .508154E+02, .411398E+02,
2559 + .334998E+02, .274530E+02, .226575E+02, .188296E+02,
2560 + .157644E+02, .132898E+02, .112855E+02, .964472E+01,
2561 + .829397E+01, .717021E+01, .622846E+01, .543079E+01,
2562 + .475210E+01, .416302E+01, .365405E+01, .320520E+01,
2563 + .281113E+01, .246200E+01, .215211E+01, .187681E+01,
2564 + .163261E+01, .141646E+01, .122566E+01, .105763E+01,
2565 + .909968E+00, .780428E+00, .666942E+00, .567723E+00,
2566 + .481026E+00, .405846E+00, .340120E+00, .283260E+00,
2567 + .234256E+00, .192244E+00, .156419E+00, .126074E+00,
2568 + .100548E+00, .792651E-01, .616820E-01, .472755E-01,
2569 + .357267E-01, .264569E-01, .191848E-01, .135850E-01 /
2570 DATA (UPDI(I),I=9361,9412) /
2571 + .936029E-02, .624298E-02, .400235E-02, .245088E-02,
2572 + .141166E-02, .757310E-03, .368935E-03, .157943E-03,
2573 + .560937E-04, .149871E-04, .246443E-05, .139202E-06,
2574 + .000000E+00, .158787E+06, .173813E+06, .133286E+06,
2575 + .102170E+06, .783178E+05, .600130E+05, .459880E+05,
2576 + .352295E+05, .269899E+05, .206721E+05, .158354E+05,
2577 + .121282E+05, .929104E+04, .711711E+04, .545377E+04,
2578 + .417956E+04, .320475E+04, .245805E+04, .188680E+04,
2579 + .144913E+04, .111419E+04, .857462E+03, .660889E+03,
2580 + .510105E+03, .394528E+03, .305750E+03, .237588E+03,
2581 + .184508E+03, .144314E+03, .113290E+03, .893367E+02,
2582 + .707747E+02, .563799E+02, .451955E+02, .364472E+02,
2583 + .295886E+02, .241983E+02, .199340E+02, .165479E+02 /
2584 DATA (UPDI(I),I=9413,9464) /
2585 + .138368E+02, .116578E+02, .988741E+01, .844013E+01,
2586 + .724442E+01, .624896E+01, .541135E+01, .470331E+01,
2587 + .409285E+01, .356900E+01, .311036E+01, .271065E+01,
2588 + .235928E+01, .204984E+01, .177711E+01, .153703E+01,
2589 + .132607E+01, .114112E+01, .979328E+00, .838022E+00,
2590 + .714818E+00, .607536E+00, .514310E+00, .433340E+00,
2591 + .363560E+00, .302937E+00, .250827E+00, .206208E+00,
2592 + .168209E+00, .136024E+00, .108948E+00, .863312E-01,
2593 + .676093E-01, .522563E-01, .397700E-01, .298381E-01,
2594 + .219298E-01, .157775E-01, .110811E-01, .756870E-02,
2595 + .500157E-02, .317491E-02, .192384E-02, .109550E-02,
2596 + .580509E-03, .279034E-03, .117745E-03, .411901E-04,
2597 + .108594E-04, .178226E-05, .105064E-06, .000000E+00 /
2598 DATA (UPDI(I),I=9465,9516) /
2599 + .336198E+06, .259564E+06, .197635E+06, .150412E+06,
2600 + .114458E+06, .870591E+05, .662120E+05, .503355E+05,
2601 + .382631E+05, .290751E+05, .220928E+05, .167821E+05,
2602 + .127486E+05, .968257E+04, .735504E+04, .558666E+04,
2603 + .424480E+04, .322569E+04, .245262E+04, .186555E+04,
2604 + .142021E+04, .108199E+04, .825380E+03, .630415E+03,
2605 + .482384E+03, .369791E+03, .284200E+03, .218228E+03,
2606 + .168780E+03, .131013E+03, .102152E+03, .800255E+02,
2607 + .630430E+02, .499884E+02, .398811E+02, .320394E+02,
2608 + .259370E+02, .211572E+02, .173968E+02, .144137E+02,
2609 + .120366E+02, .101216E+02, .856831E+01, .729512E+01,
2610 + .624296E+01, .536429E+01, .462696E+01, .399605E+01,
2611 + .345881E+01, .299224E+01, .258899E+01, .223757E+01 /
2612 DATA (UPDI(I),I=9517,9568) /
2613 + .193076E+01, .166269E+01, .142869E+01, .122474E+01,
2614 + .104730E+01, .893208E+00, .759578E+00, .643875E+00,
2615 + .543818E+00, .457470E+00, .382990E+00, .319254E+00,
2616 + .264279E+00, .217368E+00, .177498E+00, .143798E+00,
2617 + .115471E+00, .918273E-01, .722335E-01, .561457E-01,
2618 + .430630E-01, .325122E-01, .241932E-01, .176289E-01,
2619 + .125703E-01, .874617E-02, .591448E-02, .386703E-02,
2620 + .242673E-02, .145242E-02, .815838E-03, .425813E-03,
2621 + .201173E-03, .831990E-04, .284041E-04, .726240E-05,
2622 + .114803E-05, .669608E-07, .000000E+00, .485766E+06,
2623 + .372965E+06, .282157E+06, .213344E+06, .161276E+06,
2624 + .121850E+06, .920420E+05, .694895E+05, .524526E+05,
2625 + .395733E+05, .298517E+05, .225085E+05, .169700E+05 /
2626 DATA (UPDI(I),I=9569,9620) /
2627 + .127899E+05, .963938E+04, .726338E+04, .547382E+04,
2628 + .412507E+04, .310979E+04, .234490E+04, .176928E+04,
2629 + .133572E+04, .100949E+04, .763758E+03, .578780E+03,
2630 + .439326E+03, .334273E+03, .254046E+03, .194472E+03,
2631 + .149404E+03, .115287E+03, .893849E+02, .696930E+02,
2632 + .547030E+02, .432065E+02, .343726E+02, .275608E+02,
2633 + .222744E+02, .181514E+02, .149088E+02, .123456E+02,
2634 + .102970E+02, .864769E+01, .730579E+01, .620461E+01,
2635 + .529152E+01, .453065E+01, .388428E+01, .333791E+01,
2636 + .286707E+01, .246332E+01, .211434E+01, .181216E+01,
2637 + .155031E+01, .132356E+01, .112745E+01, .958079E+00,
2638 + .812042E+00, .686267E+00, .578107E+00, .485208E+00,
2639 + .405585E+00, .337374E+00, .279411E+00, .229771E+00 /
2640 DATA (UPDI(I),I=9621,9672) /
2641 + .187719E+00, .152243E+00, .122482E+00, .976582E-01,
2642 + .770990E-01, .601977E-01, .464340E-01, .353355E-01,
2643 + .264611E-01, .195259E-01, .141036E-01, .996511E-02,
2644 + .686755E-02, .459712E-02, .297345E-02, .184457E-02,
2645 + .109049E-02, .604415E-03, .310946E-03, .144615E-03,
2646 + .588012E-04, .197205E-04, .495995E-05, .779159E-06,
2647 + .474536E-07, .000000E+00, .680447E+06, .519772E+06,
2648 + .390880E+06, .293772E+06, .220720E+06, .165730E+06,
2649 + .124402E+06, .933220E+05, .699858E+05, .524541E+05,
2650 + .393033E+05, .294336E+05, .220372E+05, .164917E+05,
2651 + .123399E+05, .923008E+04, .690386E+04, .516301E+04,
2652 + .386187E+04, .288879E+04, .216188E+04, .161853E+04,
2653 + .121281E+04, .909608E+03, .683184E+03, .513873E+03 /
2654 DATA (UPDI(I),I=9673,9724) /
2655 + .387393E+03, .291627E+03, .221125E+03, .168258E+03,
2656 + .128587E+03, .987388E+02, .762473E+02, .592810E+02,
2657 + .463833E+02, .365612E+02, .290523E+02, .232749E+02,
2658 + .188057E+02, .153191E+02, .125839E+02, .104142E+02,
2659 + .867950E+01, .727807E+01, .613573E+01, .519491E+01,
2660 + .441619E+01, .375921E+01, .320780E+01, .273612E+01,
2661 + .233470E+01, .199046E+01, .169471E+01, .144046E+01,
2662 + .122195E+01, .103438E+01, .873541E+00, .735813E+00,
2663 + .617997E+00, .517360E+00, .431502E+00, .358413E+00,
2664 + .296223E+00, .243743E+00, .199117E+00, .161585E+00,
2665 + .130155E+00, .103984E+00, .823215E-01, .645196E-01,
2666 + .500014E-01, .382746E-01, .288979E-01, .214638E-01,
2667 + .157057E-01, .112449E-01, .787279E-02, .537375E-02 /
2668 DATA (UPDI(I),I=9725,9776) /
2669 + .356070E-02, .227831E-02, .139711E-02, .815859E-03,
2670 + .446211E-03, .226285E-03, .103620E-03, .414395E-04,
2671 + .136646E-04, .338681E-05, .530544E-06, .337940E-07,
2672 + .000000E+00, .929338E+06, .706486E+06, .528308E+06,
2673 + .394805E+06, .294922E+06, .220155E+06, .164277E+06,
2674 + .122496E+06, .913051E+05, .680100E+05, .506388E+05,
2675 + .376804E+05, .280282E+05, .208365E+05, .154858E+05,
2676 + .115036E+05, .854414E+04, .634406E+04, .471066E+04,
2677 + .349747E+04, .259748E+04, .192953E+04, .143437E+04,
2678 + .106705E+04, .794793E+03, .592761E+03, .443022E+03,
2679 + .330548E+03, .248417E+03, .187335E+03, .141876E+03,
2680 + .107960E+03, .826164E+02, .636605E+02, .493697E+02,
2681 + .385778E+02, .303943E+02, .241486E+02, .193542E+02 /
2682 DATA (UPDI(I),I=9777,9828) /
2683 + .156424E+02, .127513E+02, .104740E+02, .866553E+01,
2684 + .721415E+01, .603866E+01, .507679E+01, .428578E+01,
2685 + .362286E+01, .307026E+01, .260093E+01, .220443E+01,
2686 + .186697E+01, .157923E+01, .133372E+01, .112429E+01,
2687 + .945793E+00, .793792E+00, .664517E+00, .554668E+00,
2688 + .461458E+00, .382467E+00, .315673E+00, .259224E+00,
2689 + .211918E+00, .171975E+00, .138622E+00, .110896E+00,
2690 + .879811E-01, .691574E-01, .538081E-01, .413894E-01,
2691 + .314399E-01, .235509E-01, .173494E-01, .125884E-01,
2692 + .893383E-02, .619756E-02, .418969E-02, .274791E-02,
2693 + .173930E-02, .105433E-02, .608158E-03, .328223E-03,
2694 + .164091E-03, .739949E-04, .291133E-04, .944367E-05,
2695 + .230800E-05, .360506E-06, .239552E-07, .000000E+00 /
2696 DATA (UPDI(I),I=9829,9880) /
2697 + .124222E+07, .940033E+06, .699183E+06, .519672E+06,
2698 + .386068E+06, .286594E+06, .212647E+06, .157660E+06,
2699 + .116833E+06, .865137E+05, .640314E+05, .473569E+05,
2700 + .350086E+05, .258626E+05, .190984E+05, .140950E+05,
2701 + .103995E+05, .766949E+04, .565557E+04, .416950E+04,
2702 + .307433E+04, .226702E+04, .167262E+04, .123478E+04,
2703 + .912544E+03, .675153E+03, .500515E+03, .370330E+03,
2704 + .275991E+03, .206377E+03, .154969E+03, .116921E+03,
2705 + .887122E+02, .677824E+02, .521272E+02, .403983E+02,
2706 + .315724E+02, .248876E+02, .197935E+02, .158778E+02,
2707 + .128485E+02, .104784E+02, .860808E+01, .711654E+01,
2708 + .591593E+01, .493958E+01, .414167E+01, .347724E+01,
2709 + .292707E+01, .246301E+01, .207374E+01, .174483E+01 /
2710 DATA (UPDI(I),I=9881,9932) /
2711 + .146643E+01, .123063E+01, .103091E+01, .861876E+00,
2712 + .718909E+00, .598126E+00, .496168E+00, .410222E+00,
2713 + .337869E+00, .277098E+00, .226084E+00, .183626E+00,
2714 + .148029E+00, .118517E+00, .941630E-01, .741846E-01,
2715 + .578973E-01, .447187E-01, .341407E-01, .257347E-01,
2716 + .191251E-01, .139735E-01, .100535E-01, .707197E-02,
2717 + .486093E-02, .325445E-02, .211276E-02, .132284E-02,
2718 + .792666E-03, .451637E-03, .240540E-03, .118559E-03,
2719 + .526571E-04, .203888E-04, .650906E-05, .156938E-05,
2720 + .244341E-06, .168956E-07, .000000E+00, .162933E+07,
2721 + .122759E+07, .908352E+06, .671628E+06, .496324E+06,
2722 + .366477E+06, .270448E+06, .199416E+06, .146955E+06,
2723 + .108206E+06, .796277E+05, .585499E+05, .430274E+05 /
2724 DATA (UPDI(I),I=9933,9984) /
2725 + .315959E+05, .231897E+05, .170083E+05, .124695E+05,
2726 + .913694E+04, .669342E+04, .490161E+04, .358945E+04,
2727 + .262842E+04, .192547E+04, .141113E+04, .103515E+04,
2728 + .760073E+03, .559148E+03, .410443E+03, .303471E+03,
2729 + .225117E+03, .167683E+03, .125495E+03, .944512E+02,
2730 + .715926E+02, .546219E+02, .420026E+02, .325754E+02,
2731 + .254867E+02, .201218E+02, .160259E+02, .128776E+02,
2732 + .104299E+02, .850995E+01, .698808E+01, .577025E+01,
2733 + .478580E+01, .398611E+01, .332434E+01, .277990E+01,
2734 + .232376E+01, .194375E+01, .162493E+01, .135699E+01,
2735 + .113165E+01, .942106E+00, .782783E+00, .648925E+00,
2736 + .536579E+00, .442363E+00, .363461E+00, .297475E+00,
2737 + .242420E+00, .196516E+00, .158573E+00, .126984E+00 /
2738 DATA (UPDI(I),I=9985,10036) /
2739 + .100982E+00, .796806E-01, .623356E-01, .483021E-01,
2740 + .370347E-01, .280624E-01, .209901E-01, .154756E-01,
2741 + .112140E-01, .799990E-02, .557767E-02, .379852E-02,
2742 + .251857E-02, .161833E-02, .100232E-02, .593696E-03,
2743 + .334140E-03, .175626E-03, .853520E-04, .373435E-04,
2744 + .142339E-04, .447436E-05, .106476E-05, .165186E-06,
2745 + .118596E-07, .000000E+00, .210107E+07, .157635E+07,
2746 + .116061E+07, .853834E+06, .627758E+06, .461141E+06,
2747 + .338529E+06, .248298E+06, .181997E+06, .133280E+06,
2748 + .975391E+05, .713194E+05, .521137E+05, .380476E+05,
2749 + .277611E+05, .202399E+05, .147486E+05, .107402E+05,
2750 + .781841E+04, .568877E+04, .413866E+04, .301042E+04,
2751 + .219033E+04, .159412E+04, .116113E+04, .846438E+03 /
2752 DATA (UPDI(I),I=10037,10088) /
2753 + .618140E+03, .450338E+03, .330471E+03, .243291E+03,
2754 + .179839E+03, .133566E+03, .997580E+02, .750441E+02,
2755 + .568258E+02, .433750E+02, .333958E+02, .259431E+02,
2756 + .203396E+02, .160888E+02, .128413E+02, .103316E+02,
2757 + .837438E+01, .683185E+01, .560447E+01, .461799E+01,
2758 + .382135E+01, .316607E+01, .263038E+01, .218449E+01,
2759 + .181550E+01, .150807E+01, .125147E+01, .103715E+01,
2760 + .858103E+00, .708607E+00, .583829E+00, .479784E+00,
2761 + .393094E+00, .320966E+00, .261043E+00, .211377E+00,
2762 + .170244E+00, .136478E+00, .108563E+00, .857490E-01,
2763 + .671952E-01, .521990E-01, .401577E-01, .305643E-01,
2764 + .229854E-01, .170598E-01, .124779E-01, .896718E-02,
2765 + .634282E-02, .438311E-02, .295743E-02, .194188E-02 /
2766 DATA (UPDI(I),I=10089,10140) /
2767 + .123500E-02, .756616E-03, .443011E-03, .246292E-03,
2768 + .127761E-03, .612271E-04, .263941E-04, .990654E-05,
2769 + .306763E-05, .720778E-06, .111396E-06, .828703E-08,
2770 + .000000E+00, .266766E+07, .199332E+07, .146051E+07,
2771 + .106924E+07, .782250E+06, .571765E+06, .417617E+06,
2772 + .304741E+06, .222209E+06, .161875E+06, .117834E+06,
2773 + .856937E+05, .622736E+05, .452123E+05, .328021E+05,
2774 + .237778E+05, .172254E+05, .124694E+05, .902218E+04,
2775 + .652424E+04, .471669E+04, .340896E+04, .246416E+04,
2776 + .178153E+04, .128888E+04, .933098E+03, .676682E+03,
2777 + .489458E+03, .356612E+03, .260646E+03, .191271E+03,
2778 + .141027E+03, .104567E+03, .780982E+02, .587177E+02,
2779 + .445052E+02, .340299E+02, .262570E+02, .204490E+02 /
2780 DATA (UPDI(I),I=10141,10192) /
2781 + .160697E+02, .127434E+02, .101874E+02, .820490E+01,
2782 + .665110E+01, .542149E+01, .443869E+01, .364956E+01,
2783 + .300427E+01, .248000E+01, .204638E+01, .168992E+01,
2784 + .139490E+01, .115033E+01, .947425E+00, .779049E+00,
2785 + .639381E+00, .523563E+00, .427611E+00, .348177E+00,
2786 + .282516E+00, .228322E+00, .183702E+00, .146997E+00,
2787 + .117072E+00, .925044E-01, .725693E-01, .564747E-01,
2788 + .435623E-01, .332724E-01, .251375E-01, .187618E-01,
2789 + .138171E-01, .100256E-01, .714517E-02, .501107E-02,
2790 + .343204E-02, .229425E-02, .149178E-02, .939015E-03,
2791 + .569052E-03, .329362E-03, .180881E-03, .926095E-04,
2792 + .437693E-04, .185944E-04, .687444E-05, .209785E-05,
2793 + .486854E-06, .749418E-07, .576579E-08, .000000E+00 /
2794 C-----------------------------------------------------------------------
2800 Amass(I) = AmassI(I)
2822 QL(Iq) = Log (QL(Iq) /Al)
2825 C Since quark = anti-quark for nfl>2 at this stage,
2826 C we Read out only the non-redundent data points
2827 C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence)
2829 Nblk = (NX+1) * (NT+1)
2830 Npts = Nblk * (NfMx+3)
2836 C ****************************