1 C-----------------------------------------------------------------------
3 Subroutine Ctq5F4 (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 = 4)
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 : CTEQ5F4 C PARAMETER (ISET=7)
19 DATA DrI, FlI, AlI / 2., 4., .3090 /
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, 4 /
23 DATA QINII, QMAXI, (QLI(I), I =0, NTI) /
24 + .100000E+01, .100000E+05,
25 + .100000E+01, .113267E+01, .130000E+01, .172530E+01, .242102E+01,
26 + .363177E+01, .590108E+01, .105505E+02, .211508E+02, .486273E+02,
27 + .131722E+03, .434199E+03, .181038E+04, .100000E+05 /
28 DATA XMINI, (XVI(I), I =0, NXI) /
30 + .000000E+00, .999983E-05, .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, .394081E+05, .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, .289559E+05, .226358E+05, .174804E+05,
125 + .134899E+05, .104064E+05, .802168E+04, .618084E+04,
126 + .475859E+04, .366192E+04, .281551E+04, .216365E+04,
127 + .166113E+04, .127462E+04, .977029E+03, .748467E+03,
128 + .572728E+03, .437966E+03, .334501E+03, .255295E+03,
129 + .194587E+03, .148206E+03, .112723E+03, .856669E+02,
130 + .650094E+02, .492910E+02, .373223E+02, .282442E+02,
131 + .212578E+02, .160542E+02, .121073E+02, .912905E+01,
132 + .687592E+01, .517965E+01, .390277E+01, .294168E+01,
133 + .221768E+01, .167539E+01, .126693E+01, .961072E+00 /
134 DATA (UPDI(I),I=313,364) /
135 + .730384E+00, .557572E+00, .426793E+00, .328219E+00,
136 + .253219E+00, .196386E+00, .152787E+00, .119592E+00,
137 + .936926E-01, .739027E-01, .583093E-01, .462253E-01,
138 + .366871E-01, .292079E-01, .232658E-01, .185731E-01,
139 + .148154E-01, .118249E-01, .942190E-02, .750806E-02,
140 + .596447E-02, .473235E-02, .373938E-02, .294591E-02,
141 + .231282E-02, .180373E-02, .139529E-02, .107122E-02,
142 + .813871E-03, .611887E-03, .453144E-03, .330287E-03,
143 + .235279E-03, .163302E-03, .108609E-03, .690934E-04,
144 + .401648E-04, .200172E-04, .647873E-05, .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 + .739111E+05, .574853E+05, .441360E+05, .338632E+05,
150 + .259701E+05, .199018E+05, .152441E+05, .116670E+05,
151 + .892469E+04, .682095E+04, .521015E+04, .397597E+04,
152 + .303227E+04, .231019E+04, .175887E+04, .133763E+04,
153 + .101653E+04, .771569E+03, .585172E+03, .443226E+03,
154 + .335435E+03, .253508E+03, .191419E+03, .144326E+03,
155 + .108715E+03, .817776E+02, .614741E+02, .459544E+02,
156 + .344682E+02, .258166E+02, .193291E+02, .144559E+02,
157 + .108103E+02, .808609E+01, .604867E+01, .452538E+01,
158 + .339178E+01, .254461E+01, .191444E+01, .144299E+01,
159 + .109222E+01, .828968E+00, .631945E+00, .483340E+00,
160 + .371535E+00, .286528E+00, .222276E+00, .172617E+00,
161 + .134939E+00, .105535E+00, .829208E-01, .652425E-01 /
162 DATA (UPDI(I),I=417,468) /
163 + .514863E-01, .406611E-01, .321779E-01, .254510E-01,
164 + .201422E-01, .159183E-01, .125816E-01, .991783E-02,
165 + .781001E-02, .612827E-02, .479697E-02, .374454E-02,
166 + .290663E-02, .224137E-02, .171878E-02, .130782E-02,
167 + .988211E-03, .739207E-03, .547938E-03, .401008E-03,
168 + .289842E-03, .205574E-03, .144145E-03, .985156E-04,
169 + .658299E-04, .426393E-04, .267079E-04, .159738E-04,
170 + .906292E-05, .477909E-05, .227292E-05, .922472E-06,
171 + .283028E-06, .305983E-07, .000000E+00, .000000E+00,
172 + .000000E+00, .000000E+00, .000000E+00, .139859E+06,
173 + .108252E+06, .826538E+05, .630645E+05, .480949E+05,
174 + .366503E+05, .279145E+05, .212434E+05, .161574E+05,
175 + .122781E+05, .932446E+04, .707457E+04, .536391E+04 /
176 DATA (UPDI(I),I=469,520) /
177 + .406270E+04, .307487E+04, .232462E+04, .175602E+04,
178 + .132488E+04, .998725E+03, .751876E+03, .565522E+03,
179 + .424766E+03, .318727E+03, .238809E+03, .178741E+03,
180 + .133591E+03, .997700E+02, .740870E+02, .551973E+02,
181 + .410652E+02, .305339E+02, .226775E+02, .168376E+02,
182 + .125043E+02, .928425E+01, .689433E+01, .512744E+01,
183 + .381699E+01, .284875E+01, .213004E+01, .159897E+01,
184 + .120361E+01, .909816E+00, .690065E+00, .525914E+00,
185 + .402171E+00, .309319E+00, .238198E+00, .184610E+00,
186 + .143171E+00, .111536E+00, .870312E-01, .681038E-01,
187 + .533428E-01, .418608E-01, .328391E-01, .257752E-01,
188 + .202068E-01, .158411E-01, .123888E-01, .967848E-02,
189 + .753637E-02, .585457E-02, .453661E-02, .349647E-02 /
190 DATA (UPDI(I),I=521,572) /
191 + .267874E-02, .204207E-02, .154615E-02, .116373E-02,
192 + .868564E-03, .643648E-03, .472343E-03, .343531E-03,
193 + .246635E-03, .176101E-03, .123813E-03, .862042E-04,
194 + .592408E-04, .403336E-04, .271197E-04, .181149E-04,
195 + .119726E-04, .782794E-05, .503422E-05, .315766E-05,
196 + .188107E-05, .102893E-05, .480185E-06, .156065E-06,
197 + .135230E-07, .000000E+00, .233181E+06, .179641E+06,
198 + .136425E+06, .103531E+06, .785270E+05, .595150E+05,
199 + .450803E+05, .341178E+05, .258052E+05, .195003E+05,
200 + .147259E+05, .111096E+05, .837525E+04, .630726E+04,
201 + .474610E+04, .356729E+04, .267894E+04, .200933E+04,
202 + .150567E+04, .112676E+04, .842367E+03, .628865E+03,
203 + .468968E+03, .349205E+03, .259727E+03, .192891E+03 /
204 DATA (UPDI(I),I=573,624) /
205 + .143129E+03, .105585E+03, .781440E+02, .577500E+02,
206 + .426469E+02, .314561E+02, .231906E+02, .171001E+02,
207 + .126036E+02, .929018E+01, .685675E+01, .506536E+01,
208 + .375076E+01, .278242E+01, .207186E+01, .154701E+01,
209 + .115978E+01, .872481E+00, .659413E+00, .500117E+00,
210 + .381456E+00, .291343E+00, .223922E+00, .172240E+00,
211 + .133075E+00, .103000E+00, .799417E-01, .621128E-01,
212 + .483460E-01, .376237E-01, .292929E-01, .227835E-01,
213 + .177180E-01, .137485E-01, .106560E-01, .823378E-02,
214 + .634711E-02, .488107E-02, .373380E-02, .284032E-02,
215 + .215058E-02, .161825E-02, .121114E-02, .899798E-03,
216 + .664437E-03, .486707E-03, .354011E-03, .255001E-03,
217 + .183182E-03, .130197E-03, .920915E-04, .647003E-04 /
218 DATA (UPDI(I),I=625,676) /
219 + .453091E-04, .315470E-04, .219168E-04, .151049E-04,
220 + .102814E-04, .684562E-05, .439600E-05, .264669E-05,
221 + .143856E-05, .653610E-06, .203193E-06, .184223E-07,
222 + .000000E+00, .361570E+06, .277288E+06, .209474E+06,
223 + .158129E+06, .119302E+06, .899361E+05, .677567E+05,
224 + .510029E+05, .383661E+05, .288336E+05, .216538E+05,
225 + .162456E+05, .121785E+05, .911986E+04, .682350E+04,
226 + .509944E+04, .380743E+04, .283918E+04, .211502E+04,
227 + .157343E+04, .116926E+04, .867661E+03, .643104E+03,
228 + .475933E+03, .351779E+03, .259610E+03, .191405E+03,
229 + .140274E+03, .103136E+03, .757153E+02, .555352E+02,
230 + .406827E+02, .297828E+02, .218063E+02, .159557E+02,
231 + .116750E+02, .855221E+01, .627015E+01, .460695E+01 /
232 DATA (UPDI(I),I=677,728) /
233 + .339106E+01, .250505E+01, .185563E+01, .137994E+01,
234 + .102979E+01, .771979E+00, .580772E+00, .439377E+00,
235 + .332887E+00, .253773E+00, .193637E+00, .148401E+00,
236 + .113954E+00, .877366E-01, .676326E-01, .522225E-01,
237 + .403217E-01, .311458E-01, .240367E-01, .185455E-01,
238 + .142797E-01, .109815E-01, .842075E-02, .644160E-02,
239 + .491641E-02, .373266E-02, .281916E-02, .211980E-02,
240 + .158484E-02, .117903E-02, .871429E-03, .640707E-03,
241 + .467920E-03, .339842E-03, .245010E-03, .176498E-03,
242 + .126207E-03, .900700E-04, .640698E-04, .455407E-04,
243 + .322616E-04, .228020E-04, .159702E-04, .110045E-04,
244 + .738013E-05, .473802E-05, .283021E-05, .151143E-05,
245 + .665975E-06, .198238E-06, .184060E-07, .000000E+00 /
246 DATA (UPDI(I),I=729,780) /
247 + .534061E+06, .407756E+06, .306448E+06, .230138E+06,
248 + .172725E+06, .129527E+06, .970683E+05, .726788E+05,
249 + .543785E+05, .406473E+05, .303597E+05, .226527E+05,
250 + .168878E+05, .125762E+05, .935672E+04, .695313E+04,
251 + .516183E+04, .382706E+04, .283437E+04, .209625E+04,
252 + .154857E+04, .114227E+04, .841525E+03, .618982E+03,
253 + .454684E+03, .333453E+03, .244286E+03, .177866E+03,
254 + .129922E+03, .947520E+02, .690308E+02, .502257E+02,
255 + .365137E+02, .265475E+02, .192852E+02, .140090E+02,
256 + .101857E+02, .741195E+01, .540430E+01, .394749E+01,
257 + .289333E+01, .212651E+01, .156885E+01, .116154E+01,
258 + .863792E+00, .644692E+00, .483852E+00, .363686E+00,
259 + .275044E+00, .208214E+00, .158311E+00, .120619E+00 /
260 DATA (UPDI(I),I=781,832) /
261 + .921393E-01, .704763E-01, .539922E-01, .413664E-01,
262 + .317050E-01, .242813E-01, .185894E-01, .142048E-01,
263 + .108404E-01, .825026E-02, .626369E-02, .474520E-02,
264 + .357620E-02, .268201E-02, .200300E-02, .148805E-02,
265 + .110052E-02, .809270E-03, .592458E-03, .431364E-03,
266 + .312777E-03, .225579E-03, .162826E-03, .116958E-03,
267 + .840176E-04, .602879E-04, .432735E-04, .309782E-04,
268 + .220933E-04, .155823E-04, .107696E-04, .721231E-05,
269 + .459641E-05, .270936E-05, .141669E-05, .604661E-06,
270 + .172615E-06, .163246E-07, .000000E+00, .760986E+06,
271 + .578494E+06, .432566E+06, .323201E+06, .241328E+06,
272 + .180040E+06, .134222E+06, .999713E+05, .744038E+05,
273 + .553207E+05, .410978E+05, .304993E+05, .226136E+05 /
274 DATA (UPDI(I),I=833,884) /
275 + .167477E+05, .123912E+05, .915674E+04, .675936E+04,
276 + .498301E+04, .366925E+04, .269800E+04, .198140E+04,
277 + .145289E+04, .106395E+04, .777848E+03, .567877E+03,
278 + .413876E+03, .301291E+03, .217954E+03, .158173E+03,
279 + .114602E+03, .829354E+02, .599358E+02, .432729E+02,
280 + .312434E+02, .225350E+02, .162520E+02, .117298E+02,
281 + .847250E+01, .613104E+01, .444443E+01, .323251E+01,
282 + .235749E+01, .172570E+01, .126773E+01, .935369E+00,
283 + .692664E+00, .515789E+00, .384674E+00, .288640E+00,
284 + .216813E+00, .163568E+00, .123669E+00, .937415E-01,
285 + .711548E-01, .540926E-01, .411285E-01, .312826E-01,
286 + .237775E-01, .180656E-01, .137016E-01, .103779E-01,
287 + .784027E-02, .590862E-02, .444389E-02, .332523E-02 /
288 DATA (UPDI(I),I=885,936) /
289 + .247684E-02, .183772E-02, .135705E-02, .998077E-03,
290 + .730489E-03, .532717E-03, .386849E-03, .280154E-03,
291 + .202171E-03, .146233E-03, .105475E-03, .761916E-04,
292 + .550501E-04, .397941E-04, .286802E-04, .205495E-04,
293 + .145252E-04, .100218E-04, .667312E-05, .420695E-05,
294 + .244038E-05, .124712E-05, .515309E-06, .141337E-06,
295 + .135830E-07, .000000E+00, .105385E+07, .797728E+06,
296 + .593529E+06, .441253E+06, .327813E+06, .243321E+06,
297 + .180468E+06, .133724E+06, .990066E+05, .732277E+05,
298 + .541130E+05, .399442E+05, .294570E+05, .216977E+05,
299 + .159656E+05, .117330E+05, .861272E+04, .631359E+04,
300 + .462256E+04, .337945E+04, .246743E+04, .179867E+04,
301 + .130933E+04, .951505E+03, .690432E+03, .500090E+03 /
302 DATA (UPDI(I),I=937,988) /
303 + .361775E+03, .260031E+03, .187498E+03, .134968E+03,
304 + .970282E+02, .696519E+02, .499449E+02, .358126E+02,
305 + .256488E+02, .183662E+02, .131595E+02, .943574E+01,
306 + .677733E+01, .487621E+01, .351966E+01, .254740E+01,
307 + .185040E+01, .134894E+01, .987601E+00, .725720E+00,
308 + .536247E+00, .396864E+00, .295497E+00, .220268E+00,
309 + .164906E+00, .123740E+00, .930841E-01, .701249E-01,
310 + .529066E-01, .399262E-01, .301408E-01, .227402E-01,
311 + .171489E-01, .129112E-01, .970759E-02, .728126E-02,
312 + .544805E-02, .406886E-02, .302373E-02, .223764E-02,
313 + .165003E-02, .121161E-02, .886622E-03, .646216E-03,
314 + .469732E-03, .340438E-03, .246403E-03, .178012E-03,
315 + .129075E-03, .934802E-04, .678673E-04, .493127E-04 /
316 DATA (UPDI(I),I=989,1040) /
317 + .358309E-04, .259303E-04, .186098E-04, .131407E-04,
318 + .902354E-05, .595753E-05, .370710E-05, .211253E-05,
319 + .105382E-05, .421442E-06, .111256E-06, .108512E-07,
320 + .000000E+00, .142512E+07, .107428E+07, .795381E+06,
321 + .588410E+06, .434969E+06, .321245E+06, .237062E+06,
322 + .174767E+06, .128730E+06, .947199E+05, .696297E+05,
323 + .511278E+05, .375040E+05, .274771E+05, .201088E+05,
324 + .146971E+05, .107290E+05, .782118E+04, .569411E+04,
325 + .413920E+04, .300475E+04, .217765E+04, .157588E+04,
326 + .113840E+04, .821073E+03, .591079E+03, .424950E+03,
327 + .303500E+03, .217452E+03, .155525E+03, .111075E+03,
328 + .792079E+02, .564143E+02, .401763E+02, .285740E+02,
329 + .203170E+02, .144531E+02, .102885E+02, .733569E+01 /
330 DATA (UPDI(I),I=1041,1092) /
331 + .523904E+01, .375332E+01, .269617E+01, .194367E+01,
332 + .140624E+01, .102173E+01, .745117E+00, .546415E+00,
333 + .401334E+00, .296565E+00, .219403E+00, .163024E+00,
334 + .121420E+00, .906575E-01, .677919E-01, .507666E-01,
335 + .380298E-01, .284985E-01, .213449E-01, .159796E-01,
336 + .119446E-01, .891677E-02, .664145E-02, .493491E-02,
337 + .366085E-02, .270274E-02, .198784E-02, .145744E-02,
338 + .106471E-02, .775656E-03, .563354E-03, .408468E-03,
339 + .295676E-03, .214041E-03, .154894E-03, .112632E-03,
340 + .819029E-04, .597303E-04, .435960E-04, .317879E-04,
341 + .230491E-04, .165301E-04, .116318E-04, .793152E-05,
342 + .518183E-05, .317754E-05, .177657E-05, .864327E-06,
343 + .334541E-06, .851497E-07, .842149E-08, .000000E+00 /
344 DATA (UPDI(I),I=1093,1144) /
345 + .188791E+07, .141735E+07, .104433E+07, .768843E+06,
346 + .565574E+06, .415648E+06, .305203E+06, .223876E+06,
347 + .164069E+06, .120108E+06, .878383E+05, .641637E+05,
348 + .468195E+05, .341208E+05, .248375E+05, .180554E+05,
349 + .131088E+05, .950345E+04, .688038E+04, .497346E+04,
350 + .358984E+04, .258675E+04, .186104E+04, .133650E+04,
351 + .958213E+03, .685633E+03, .489911E+03, .347700E+03,
352 + .247556E+03, .175932E+03, .124838E+03, .884407E+02,
353 + .625709E+02, .442615E+02, .312635E+02, .220752E+02,
354 + .155931E+02, .110211E+02, .780129E+01, .553109E+01,
355 + .393342E+01, .280471E+01, .200689E+01, .144120E+01,
356 + .103931E+01, .752287E+00, .547569E+00, .399190E+00,
357 + .292789E+00, .215006E+00, .158578E+00, .117245E+00 /
358 DATA (UPDI(I),I=1145,1196) /
359 + .868993E-01, .645091E-01, .479560E-01, .356654E-01,
360 + .265343E-01, .197324E-01, .146674E-01, .108872E-01,
361 + .807102E-02, .597091E-02, .440708E-02, .324832E-02,
362 + .238336E-02, .174291E-02, .127116E-02, .924397E-03,
363 + .670862E-03, .485874E-03, .351671E-03, .254448E-03,
364 + .184356E-03, .133705E-03, .975257E-04, .711931E-04,
365 + .521198E-04, .381675E-04, .278826E-04, .202174E-04,
366 + .144600E-04, .101197E-04, .684009E-05, .441527E-05,
367 + .266487E-05, .146038E-05, .692507E-06, .259451E-06,
368 + .637761E-07, .639224E-08, .000000E+00, .245558E+07,
369 + .183619E+07, .134654E+07, .986612E+06, .722281E+06,
370 + .528246E+06, .385985E+06, .281738E+06, .205446E+06,
371 + .149644E+06, .108884E+06, .791307E+05, .574425E+05 /
372 DATA (UPDI(I),I=1197,1248) /
373 + .416446E+05, .301545E+05, .218041E+05, .157454E+05,
374 + .113530E+05, .817435E+04, .587607E+04, .421756E+04,
375 + .302185E+04, .216160E+04, .154335E+04, .110001E+04,
376 + .782391E+03, .555673E+03, .391929E+03, .277319E+03,
377 + .195849E+03, .138086E+03, .971959E+02, .683141E+02,
378 + .480042E+02, .336781E+02, .236177E+02, .165668E+02,
379 + .116273E+02, .817196E+01, .575248E+01, .406129E+01,
380 + .287487E+01, .204207E+01, .145575E+01, .104210E+01,
381 + .748774E+00, .541029E+00, .391535E+00, .285078E+00,
382 + .207821E+00, .152167E+00, .111696E+00, .821909E-01,
383 + .605781E-01, .447118E-01, .330175E-01, .243913E-01,
384 + .180126E-01, .132962E-01, .980235E-02, .721800E-02,
385 + .530506E-02, .389063E-02, .285021E-02, .207916E-02 /
386 DATA (UPDI(I),I=1249,1300) /
387 + .151243E-02, .109786E-02, .795196E-03, .575279E-03,
388 + .415776E-03, .300630E-03, .217574E-03, .157870E-03,
389 + .114787E-03, .839908E-04, .615261E-04, .451788E-04,
390 + .331526E-04, .242274E-04, .175362E-04, .124866E-04,
391 + .867679E-05, .580516E-05, .369785E-05, .219465E-05,
392 + .117795E-05, .544201E-06, .197410E-06, .469395E-07,
393 + .476558E-08, .000000E+00, .258182E+05, .893038E+04,
394 + .712839E+04, .569003E+04, .454192E+04, .362549E+04,
395 + .289400E+04, .231011E+04, .184405E+04, .147204E+04,
396 + .117509E+04, .938069E+03, .748873E+03, .597854E+03,
397 + .477308E+03, .381086E+03, .304279E+03, .242969E+03,
398 + .194030E+03, .154964E+03, .123780E+03, .988863E+02,
399 + .790141E+02, .631501E+02, .504853E+02, .403741E+02 /
400 DATA (UPDI(I),I=1301,1352) /
401 + .323012E+02, .257736E+02, .206444E+02, .165475E+02,
402 + .132745E+02, .106591E+02, .856858E+01, .690143E+01,
403 + .556404E+01, .449376E+01, .363641E+01, .294874E+01,
404 + .239628E+01, .195135E+01, .159268E+01, .130224E+01,
405 + .106643E+01, .874334E+00, .717318E+00, .588576E+00,
406 + .483075E+00, .395564E+00, .323735E+00, .263994E+00,
407 + .214793E+00, .174135E+00, .140585E+00, .112960E+00,
408 + .902812E-01, .717315E-01, .566267E-01, .443905E-01,
409 + .345360E-01, .266509E-01, .203865E-01, .154483E-01,
410 + .115879E-01, .860972E-02, .631068E-02, .456703E-02,
411 + .325987E-02, .229223E-02, .158571E-02, .107754E-02,
412 + .718021E-03, .468232E-03, .298038E-03, .184559E-03,
413 + .111372E-03, .647665E-04, .362562E-04, .194266E-04 /
414 DATA (UPDI(I),I=1353,1404) /
415 + .989323E-05, .474631E-05, .212084E-05, .870948E-06,
416 + .320080E-06, .103197E-06, .278840E-07, .592041E-08,
417 + .886649E-09, .764859E-10, .241153E-11, .648654E-14,
418 + .000000E+00, .185951E+05, .148896E+05, .118157E+05,
419 + .937350E+04, .743656E+04, .589795E+04, .467794E+04,
420 + .370904E+04, .294097E+04, .233114E+04, .184785E+04,
421 + .146422E+04, .116029E+04, .919114E+03, .728103E+03,
422 + .576574E+03, .456609E+03, .361472E+03, .286181E+03,
423 + .226495E+03, .179281E+03, .141868E+03, .112284E+03,
424 + .888494E+02, .703256E+02, .556608E+02, .440733E+02,
425 + .347879E+02, .275697E+02, .218558E+02, .173432E+02,
426 + .137710E+02, .109492E+02, .872045E+01, .695426E+01,
427 + .555460E+01, .444719E+01, .356762E+01, .286971E+01 /
428 DATA (UPDI(I),I=1405,1456) /
429 + .231312E+01, .186995E+01, .151456E+01, .122947E+01,
430 + .999415E+00, .813591E+00, .662588E+00, .540228E+00,
431 + .439557E+00, .357817E+00, .290327E+00, .235257E+00,
432 + .190037E+00, .153021E+00, .122704E+00, .979797E-01,
433 + .778294E-01, .614977E-01, .482952E-01, .376974E-01,
434 + .292170E-01, .224870E-01, .171702E-01, .130062E-01,
435 + .977957E-02, .727512E-02, .535735E-02, .390542E-02,
436 + .281498E-02, .200632E-02, .141157E-02, .980570E-03,
437 + .670947E-03, .452141E-03, .298400E-03, .194068E-03,
438 + .122592E-03, .751191E-04, .440645E-04, .243110E-04,
439 + .120989E-04, .487777E-05, .924583E-06, .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 + .308805E+05, .233653E+05, .184194E+05, .145148E+05,
444 + .114384E+05, .901026E+04, .709782E+04, .558887E+04,
445 + .440082E+04, .346374E+04, .272624E+04, .214474E+04,
446 + .168730E+04, .132676E+04, .104328E+04, .819942E+03,
447 + .644431E+03, .506224E+03, .397670E+03, .312236E+03,
448 + .245178E+03, .192431E+03, .151053E+03, .118524E+03,
449 + .930202E+02, .729879E+02, .572934E+02, .448179E+02,
450 + .352031E+02, .276539E+02, .217453E+02, .171070E+02,
451 + .134766E+02, .106335E+02, .840167E+01, .664826E+01,
452 + .527426E+01, .419238E+01, .334228E+01, .267022E+01,
453 + .214033E+01, .171910E+01, .138446E+01, .111674E+01,
454 + .902567E+00, .729973E+00, .591410E+00, .478292E+00,
455 + .387267E+00, .312643E+00, .252233E+00, .202944E+00 /
456 DATA (UPDI(I),I=1509,1560) /
457 + .162880E+00, .130247E+00, .103791E+00, .823216E-01,
458 + .649998E-01, .510407E-01, .398747E-01, .309539E-01,
459 + .238886E-01, .183076E-01, .139371E-01, .105455E-01,
460 + .790742E-02, .587839E-02, .433511E-02, .316787E-02,
461 + .229553E-02, .164688E-02, .117117E-02, .823971E-03,
462 + .574113E-03, .394456E-03, .269469E-03, .181018E-03,
463 + .120070E-03, .782559E-04, .501524E-04, .313780E-04,
464 + .191679E-04, .113422E-04, .643454E-05, .346943E-05,
465 + .175879E-05, .811411E-06, .332646E-06, .112084E-06,
466 + .234477E-07, .000000E+00, .000000E+00, .580101E+05,
467 + .457599E+05, .357072E+05, .278520E+05, .217227E+05,
468 + .169352E+05, .132013E+05, .102861E+05, .801361E+04,
469 + .624026E+04, .485867E+04, .378108E+04, .294204E+04 /
470 DATA (UPDI(I),I=1561,1612) /
471 + .228799E+04, .177907E+04, .138259E+04, .107430E+04,
472 + .834271E+03, .647773E+03, .502678E+03, .390043E+03,
473 + .302479E+03, .234558E+03, .181795E+03, .140902E+03,
474 + .109171E+03, .846080E+02, .653209E+02, .506364E+02,
475 + .392521E+02, .304516E+02, .236327E+02, .183622E+02,
476 + .142896E+02, .111338E+02, .868789E+01, .679651E+01,
477 + .532760E+01, .418888E+01, .330117E+01, .261081E+01,
478 + .206973E+01, .164571E+01, .131126E+01, .104737E+01,
479 + .837621E+00, .671478E+00, .537603E+00, .431277E+00,
480 + .345165E+00, .276270E+00, .220685E+00, .175979E+00,
481 + .139925E+00, .110959E+00, .876462E-01, .689736E-01,
482 + .540262E-01, .421384E-01, .326861E-01, .252285E-01,
483 + .193549E-01, .147621E-01, .112014E-01, .842873E-02 /
484 DATA (UPDI(I),I=1613,1664) /
485 + .629194E-02, .466113E-02, .342243E-02, .249119E-02,
486 + .179399E-02, .127834E-02, .898611E-03, .622796E-03,
487 + .422634E-03, .282336E-03, .182580E-03, .113870E-03,
488 + .672593E-04, .366447E-04, .172235E-04, .559322E-05,
489 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
490 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
491 + .000000E+00, .000000E+00, .102678E+06, .803775E+05,
492 + .621776E+05, .480784E+05, .371691E+05, .287221E+05,
493 + .221901E+05, .171354E+05, .132291E+05, .102081E+05,
494 + .787511E+04, .607201E+04, .468055E+04, .360591E+04,
495 + .277726E+04, .213774E+04, .164504E+04, .126510E+04,
496 + .972632E+03, .747302E+03, .574037E+03, .440668E+03,
497 + .338212E+03, .259422E+03, .198955E+03, .152515E+03 /
498 DATA (UPDI(I),I=1665,1716) /
499 + .116931E+03, .892796E+02, .684431E+02, .524623E+02,
500 + .402372E+02, .308686E+02, .237042E+02, .182304E+02,
501 + .140350E+02, .108208E+02, .836288E+01, .647640E+01,
502 + .503064E+01, .391706E+01, .306114E+01, .239844E+01,
503 + .188520E+01, .148535E+01, .117358E+01, .928767E+00,
504 + .737108E+00, .584488E+00, .464645E+00, .368672E+00,
505 + .292697E+00, .232042E+00, .183732E+00, .145145E+00,
506 + .114412E+00, .898855E-01, .703900E-01, .548990E-01,
507 + .426587E-01, .329862E-01, .253956E-01, .194468E-01,
508 + .148140E-01, .112352E-01, .845577E-02, .631874E-02,
509 + .469019E-02, .345450E-02, .252559E-02, .182986E-02,
510 + .131451E-02, .934289E-03, .657015E-03, .455095E-03,
511 + .312521E-03, .210272E-03, .138972E-03, .896845E-04 /
512 DATA (UPDI(I),I=1717,1768) /
513 + .564053E-04, .342771E-04, .200490E-04, .111603E-04,
514 + .581557E-05, .278992E-05, .120353E-05, .442643E-06,
515 + .133945E-06, .320040E-07, .484457E-08, .000000E+00,
516 + .000000E+00, .168345E+06, .130918E+06, .100515E+06,
517 + .771365E+05, .591796E+05, .453799E+05, .347880E+05,
518 + .266541E+05, .204157E+05, .156286E+05, .119601E+05,
519 + .914725E+04, .699350E+04, .534352E+04, .408132E+04,
520 + .311521E+04, .237689E+04, .181229E+04, .138127E+04,
521 + .105201E+04, .800950E+03, .609375E+03, .463457E+03,
522 + .352241E+03, .267629E+03, .203231E+03, .154331E+03,
523 + .116682E+03, .885709E+02, .672157E+02, .510309E+02,
524 + .387483E+02, .294448E+02, .224076E+02, .170663E+02,
525 + .130161E+02, .994993E+01, .762130E+01, .585490E+01 /
526 DATA (UPDI(I),I=1769,1820) /
527 + .450903E+01, .348537E+01, .270147E+01, .210080E+01,
528 + .163802E+01, .128104E+01, .100382E+01, .789074E+00,
529 + .619925E+00, .488470E+00, .384295E+00, .302636E+00,
530 + .238088E+00, .187150E+00, .146835E+00, .114996E+00,
531 + .897984E-01, .699225E-01, .542486E-01, .419472E-01,
532 + .322917E-01, .247594E-01, .188906E-01, .143432E-01,
533 + .108471E-01, .814336E-02, .607325E-02, .450129E-02,
534 + .331260E-02, .242143E-02, .175574E-02, .126356E-02,
535 + .901131E-03, .637009E-03, .444942E-03, .309088E-03,
536 + .211531E-03, .143224E-03, .956630E-04, .631477E-04,
537 + .410698E-04, .264120E-04, .167450E-04, .104477E-04,
538 + .639859E-05, .382031E-05, .217288E-05, .114148E-05,
539 + .514786E-06, .162436E-06, .135267E-07, .000000E+00 /
540 DATA (UPDI(I),I=1821,1872) /
541 + .261391E+06, .202085E+06, .154109E+06, .117462E+06,
542 + .894994E+05, .681552E+05, .518825E+05, .394717E+05,
543 + .300182E+05, .228147E+05, .173327E+05, .131593E+05,
544 + .998644E+04, .757338E+04, .574078E+04, .434847E+04,
545 + .329226E+04, .249070E+04, .188336E+04, .142300E+04,
546 + .107465E+04, .810943E+03, .611652E+03, .460982E+03,
547 + .347272E+03, .261437E+03, .196796E+03, .147450E+03,
548 + .110917E+03, .834050E+02, .627324E+02, .471844E+02,
549 + .355107E+02, .267619E+02, .201812E+02, .152384E+02,
550 + .115310E+02, .874276E+01, .664775E+01, .506740E+01,
551 + .387701E+01, .297468E+01, .229006E+01, .176803E+01,
552 + .136932E+01, .106287E+01, .827824E+00, .644564E+00,
553 + .503506E+00, .392825E+00, .306872E+00, .239571E+00 /
554 DATA (UPDI(I),I=1873,1924) /
555 + .186926E+00, .145629E+00, .113281E+00, .878911E-01,
556 + .680168E-01, .524635E-01, .403411E-01, .308929E-01,
557 + .235687E-01, .178984E-01, .135296E-01, .101892E-01,
558 + .761941E-02, .566220E-02, .418303E-02, .306977E-02,
559 + .223864E-02, .162047E-02, .116508E-02, .831010E-03,
560 + .588281E-03, .412389E-03, .288075E-03, .198950E-03,
561 + .136479E-03, .928558E-04, .628093E-04, .421623E-04,
562 + .281730E-04, .186681E-04, .122155E-04, .784065E-05,
563 + .487222E-05, .285296E-05, .151641E-05, .676789E-06,
564 + .207278E-06, .184255E-07, .000000E+00, .389507E+06,
565 + .299512E+06, .226983E+06, .171921E+06, .130164E+06,
566 + .984879E+05, .744884E+05, .563007E+05, .425343E+05,
567 + .321122E+05, .242320E+05, .182725E+05, .137715E+05 /
568 DATA (UPDI(I),I=1925,1976) /
569 + .103714E+05, .780651E+04, .587127E+04, .441325E+04,
570 + .331454E+04, .248787E+04, .186578E+04, .139842E+04,
571 + .104721E+04, .783744E+03, .586056E+03, .437980E+03,
572 + .327061E+03, .244176E+03, .181407E+03, .135305E+03,
573 + .100872E+03, .752068E+02, .560661E+02, .418140E+02,
574 + .312251E+02, .233279E+02, .174491E+02, .130780E+02,
575 + .982078E+01, .739527E+01, .558276E+01, .422997E+01,
576 + .321430E+01, .245087E+01, .187437E+01, .143819E+01,
577 + .110617E+01, .853888E+00, .659083E+00, .510502E+00,
578 + .395017E+00, .306131E+00, .237164E+00, .183674E+00,
579 + .142074E+00, .109750E+00, .845847E-01, .650367E-01,
580 + .498554E-01, .381062E-01, .290144E-01, .220129E-01,
581 + .166285E-01, .125051E-01, .937120E-02, .697433E-02 /
582 DATA (UPDI(I),I=1977,2028) /
583 + .515964E-02, .379571E-02, .277485E-02, .201654E-02,
584 + .145549E-02, .104410E-02, .743735E-03, .526411E-03,
585 + .369619E-03, .259030E-03, .179957E-03, .124535E-03,
586 + .857764E-04, .589283E-04, .403161E-04, .275056E-04,
587 + .186224E-04, .124280E-04, .810342E-05, .507912E-05,
588 + .297550E-05, .156506E-05, .681446E-06, .200853E-06,
589 + .184087E-07, .000000E+00, .561727E+06, .429762E+06,
590 + .323784E+06, .243792E+06, .183477E+06, .137991E+06,
591 + .103730E+06, .779208E+05, .585021E+05, .438904E+05,
592 + .329096E+05, .246569E+05, .184626E+05, .138132E+05,
593 + .103281E+05, .771565E+04, .576018E+04, .429642E+04,
594 + .320240E+04, .238472E+04, .177459E+04, .131930E+04,
595 + .980118E+03, .727444E+03, .539534E+03, .399803E+03 /
596 DATA (UPDI(I),I=2029,2080) /
597 + .296155E+03, .218260E+03, .161482E+03, .119405E+03,
598 + .882845E+02, .652609E+02, .482533E+02, .357211E+02,
599 + .264505E+02, .196078E+02, .145626E+02, .108357E+02,
600 + .808427E+01, .604655E+01, .453894E+01, .341729E+01,
601 + .258171E+01, .195653E+01, .148775E+01, .113419E+01,
602 + .867954E+00, .664256E+00, .510249E+00, .391630E+00,
603 + .301118E+00, .231504E+00, .177958E+00, .136662E+00,
604 + .104827E+00, .802414E-01, .612889E-01, .466818E-01,
605 + .354573E-01, .268346E-01, .202391E-01, .152017E-01,
606 + .113685E-01, .847348E-02, .627312E-02, .461778E-02,
607 + .338102E-02, .246088E-02, .178122E-02, .128124E-02,
608 + .916535E-03, .651656E-03, .460912E-03, .323930E-03,
609 + .227559E-03, .158843E-03, .110690E-03, .769652E-04 /
610 DATA (UPDI(I),I=2081,2132) /
611 + .534788E-04, .370673E-04, .256161E-04, .175487E-04,
612 + .118130E-04, .773584E-05, .483967E-05, .281122E-05,
613 + .145346E-05, .614939E-06, .174283E-06, .163267E-07,
614 + .000000E+00, .788382E+06, .600284E+06, .449730E+06,
615 + .336718E+06, .251970E+06, .188417E+06, .140814E+06,
616 + .105158E+06, .784831E+05, .585283E+05, .436192E+05,
617 + .324808E+05, .241703E+05, .179702E+05, .133510E+05,
618 + .990994E+04, .735022E+04, .544635E+04, .403245E+04,
619 + .298257E+04, .220427E+04, .162738E+04, .120048E+04,
620 + .884638E+03, .651366E+03, .479114E+03, .352250E+03,
621 + .257602E+03, .189119E+03, .138747E+03, .101767E+03,
622 + .746188E+02, .547177E+02, .401695E+02, .294916E+02,
623 + .216746E+02, .159572E+02, .117693E+02, .870297E+01 /
624 DATA (UPDI(I),I=2133,2184) /
625 + .645149E+01, .479972E+01, .358151E+01, .268177E+01,
626 + .201453E+01, .151851E+01, .114771E+01, .870891E+00,
627 + .660970E+00, .503598E+00, .383447E+00, .292531E+00,
628 + .223200E+00, .170303E+00, .129839E+00, .988890E-01,
629 + .751755E-01, .570334E-01, .431564E-01, .325692E-01,
630 + .244952E-01, .183619E-01, .137100E-01, .101933E-01,
631 + .755458E-02, .556203E-02, .407289E-02, .296725E-02,
632 + .214980E-02, .154955E-02, .111064E-02, .792218E-03,
633 + .562207E-03, .397374E-03, .279525E-03, .196824E-03,
634 + .137994E-03, .967554E-04, .678135E-04, .475427E-04,
635 + .332643E-04, .231768E-04, .159766E-04, .107832E-04,
636 + .705025E-05, .437957E-05, .251142E-05, .127218E-05,
637 + .522098E-06, .142396E-06, .135846E-07, .000000E+00 /
638 DATA (UPDI(I),I=2185,2236) /
639 + .108098E+07, .819302E+06, .610520E+06, .454632E+06,
640 + .338346E+06, .251610E+06, .186991E+06, .138855E+06,
641 + .103041E+06, .763999E+05, .566062E+05, .419031E+05,
642 + .309956E+05, .229057E+05, .169138E+05, .124768E+05,
643 + .919609E+04, .677090E+04, .498090E+04, .366011E+04,
644 + .268714E+04, .197060E+04, .144379E+04, .105661E+04,
645 + .772546E+03, .564205E+03, .411813E+03, .298924E+03,
646 + .217821E+03, .158597E+03, .115431E+03, .839782E+02,
647 + .610916E+02, .444886E+02, .323951E+02, .236113E+02,
648 + .172370E+02, .126056E+02, .924163E+01, .679202E+01,
649 + .500950E+01, .370588E+01, .275104E+01, .204895E+01,
650 + .153137E+01, .114774E+01, .863748E+00, .650215E+00,
651 + .491448E+00, .371258E+00, .281054E+00, .212833E+00 /
652 DATA (UPDI(I),I=2237,2288) /
653 + .161195E+00, .122010E+00, .922678E-01, .696571E-01,
654 + .524885E-01, .394545E-01, .295816E-01, .221072E-01,
655 + .164686E-01, .122220E-01, .903285E-02, .665590E-02,
656 + .487288E-02, .354927E-02, .257281E-02, .185546E-02,
657 + .133189E-02, .951359E-03, .676800E-03, .479532E-03,
658 + .338825E-03, .238627E-03, .168464E-03, .118629E-03,
659 + .836582E-04, .590405E-04, .416892E-04, .293663E-04,
660 + .205603E-04, .142070E-04, .957638E-05, .622781E-05,
661 + .382896E-05, .216180E-05, .107080E-05, .425902E-06,
662 + .111925E-06, .108525E-07, .000000E+00, .145198E+07,
663 + .109564E+07, .812200E+06, .601652E+06, .445392E+06,
664 + .329447E+06, .243515E+06, .179842E+06, .132720E+06,
665 + .978567E+05, .720945E+05, .530640E+05, .390244E+05 /
666 DATA (UPDI(I),I=2289,2340) /
667 + .286706E+05, .210452E+05, .154316E+05, .113049E+05,
668 + .827244E+04, .604757E+04, .441592E+04, .322129E+04,
669 + .234699E+04, .170824E+04, .124180E+04, .901798E+03,
670 + .654057E+03, .474056E+03, .341629E+03, .247144E+03,
671 + .178632E+03, .129045E+03, .931734E+02, .672596E+02,
672 + .485997E+02, .351082E+02, .253837E+02, .183802E+02,
673 + .133315E+02, .969293E+01, .706448E+01, .516691E+01,
674 + .379041E+01, .279029E+01, .206095E+01, .152762E+01,
675 + .113558E+01, .847712E+00, .633050E+00, .474721E+00,
676 + .355848E+00, .267343E+00, .200946E+00, .151078E+00,
677 + .113532E+00, .852498E-01, .639140E-01, .478338E-01,
678 + .357167E-01, .266039E-01, .197549E-01, .146240E-01,
679 + .107868E-01, .792442E-02, .580533E-02, .422636E-02 /
680 DATA (UPDI(I),I=2341,2392) /
681 + .306212E-02, .220876E-02, .158584E-02, .113393E-02,
682 + .807425E-03, .573108E-03, .405606E-03, .286642E-03,
683 + .202212E-03, .143181E-03, .101275E-03, .718065E-04,
684 + .509788E-04, .361977E-04, .256128E-04, .179714E-04,
685 + .124113E-04, .833093E-05, .537453E-05, .326309E-05,
686 + .181053E-05, .875768E-06, .337452E-06, .855704E-07,
687 + .842240E-08, .000000E+00, .191450E+07, .143850E+07,
688 + .106098E+07, .781948E+06, .575888E+06, .423763E+06,
689 + .311586E+06, .228896E+06, .168015E+06, .123209E+06,
690 + .902748E+05, .660771E+05, .483217E+05, .352997E+05,
691 + .257622E+05, .187805E+05, .136771E+05, .994861E+04,
692 + .722893E+04, .524621E+04, .380316E+04, .275349E+04,
693 + .199129E+04, .143818E+04, .103753E+04, .747460E+03 /
694 DATA (UPDI(I),I=2393,2444) /
695 + .538073E+03, .385053E+03, .276609E+03, .198510E+03,
696 + .142369E+03, .102041E+03, .731117E+02, .524302E+02,
697 + .375843E+02, .269628E+02, .193698E+02, .139376E+02,
698 + .100522E+02, .726725E+01, .527208E+01, .383616E+01,
699 + .280103E+01, .205215E+01, .150886E+01, .111267E+01,
700 + .824065E+00, .610573E+00, .454336E+00, .337974E+00,
701 + .252013E+00, .188031E+00, .140343E+00, .104714E+00,
702 + .780761E-01, .581327E-01, .432123E-01, .320518E-01,
703 + .237180E-01, .174996E-01, .128733E-01, .943776E-02,
704 + .689204E-02, .502009E-02, .363459E-02, .261985E-02,
705 + .188082E-02, .134474E-02, .958134E-03, .680411E-03,
706 + .482110E-03, .341014E-03, .241176E-03, .170503E-03,
707 + .121126E-03, .860556E-04, .613174E-04, .437470E-04 /
708 DATA (UPDI(I),I=2445,2496) /
709 + .311877E-04, .221218E-04, .155200E-04, .106869E-04,
710 + .712721E-05, .455193E-05, .272460E-05, .148366E-05,
711 + .700166E-06, .261340E-06, .640392E-07, .639289E-08,
712 + .000000E+00, .248190E+07, .185712E+07, .136301E+07,
713 + .999581E+06, .732486E+06, .536274E+06, .392299E+06,
714 + .286703E+06, .209348E+06, .152710E+06, .111292E+06,
715 + .810214E+05, .589265E+05, .428088E+05, .310675E+05,
716 + .225198E+05, .163061E+05, .117920E+05, .851794E+04,
717 + .614482E+04, .442764E+04, .318596E+04, .228972E+04,
718 + .164328E+04, .117790E+04, .843054E+03, .602879E+03,
719 + .428499E+03, .305724E+03, .217892E+03, .155172E+03,
720 + .110427E+03, .785474E+02, .559162E+02, .397844E+02,
721 + .283258E+02, .201932E+02, .144180E+02, .103177E+02 /
722 DATA (UPDI(I),I=2497,2548) /
723 + .740063E+01, .532648E+01, .384512E+01, .278535E+01,
724 + .202458E+01, .147688E+01, .108059E+01, .794125E+00,
725 + .583868E+00, .431175E+00, .318340E+00, .235621E+00,
726 + .174525E+00, .129328E+00, .958146E-01, .709430E-01,
727 + .524606E-01, .387337E-01, .285403E-01, .209824E-01,
728 + .153831E-01, .112461E-01, .819520E-02, .594954E-02,
729 + .430930E-02, .310333E-02, .222591E-02, .159090E-02,
730 + .113311E-02, .804833E-03, .570293E-03, .403608E-03,
731 + .285497E-03, .202177E-03, .143296E-03, .102154E-03,
732 + .728839E-04, .521555E-04, .373516E-04, .266939E-04,
733 + .189444E-04, .132627E-04, .908749E-05, .601055E-05,
734 + .379427E-05, .223613E-05, .119382E-05, .549298E-06,
735 + .198629E-06, .471033E-07, .476604E-08, .000000E+00 /
736 DATA (UPDI(I),I=2549,2600) /
737 + .204869E+05, .223515E+05, .178441E+05, .142459E+05,
738 + .113736E+05, .908062E+04, .725015E+04, .578887E+04,
739 + .462230E+04, .369099E+04, .294747E+04, .235386E+04,
740 + .187994E+04, .150155E+04, .119943E+04, .958199E+03,
741 + .765576E+03, .611760E+03, .488927E+03, .390830E+03,
742 + .312483E+03, .249905E+03, .199919E+03, .159985E+03,
743 + .128081E+03, .102587E+03, .822129E+02, .657220E+02,
744 + .527491E+02, .423742E+02, .340748E+02, .274336E+02,
745 + .221171E+02, .178707E+02, .144587E+02, .117237E+02,
746 + .952936E+01, .776670E+01, .634874E+01, .520558E+01,
747 + .428338E+01, .353638E+01, .292991E+01, .243597E+01,
748 + .203225E+01, .170095E+01, .142863E+01, .120114E+01,
749 + .101186E+01, .850770E+00, .713448E+00, .594581E+00 /
750 DATA (UPDI(I),I=2601,2652) /
751 + .490864E+00, .400201E+00, .321436E+00, .253946E+00,
752 + .197223E+00, .150595E+00, .113116E+00, .836268E-01,
753 + .608722E-01, .436227E-01, .307595E-01, .213545E-01,
754 + .145147E-01, .965705E-02, .626853E-02, .395182E-02,
755 + .240401E-02, .139758E-02, .764310E-03, .381882E-03,
756 + .162969E-03, .468275E-04, .000000E+00, .000000E+00,
757 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
758 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
759 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
760 + .000000E+00, .000000E+00, .000000E+00, .352250E+05,
761 + .282767E+05, .225042E+05, .179077E+05, .142509E+05,
762 + .113393E+05, .902310E+04, .717903E+04, .571222E+04,
763 + .454450E+04, .361575E+04, .287644E+04, .228849E+04 /
764 DATA (UPDI(I),I=2653,2704) /
765 + .182051E+04, .144838E+04, .115220E+04, .916704E+03,
766 + .729290E+03, .580287E+03, .461715E+03, .367454E+03,
767 + .292450E+03, .232825E+03, .185381E+03, .147665E+03,
768 + .117656E+03, .937985E+02, .745755E+02, .595341E+02,
769 + .475593E+02, .380342E+02, .304480E+02, .244101E+02,
770 + .196104E+02, .157767E+02, .127186E+02, .102796E+02,
771 + .832992E+01, .677083E+01, .551992E+01, .451673E+01,
772 + .370798E+01, .305507E+01, .252572E+01, .209542E+01,
773 + .174377E+01, .145619E+01, .121690E+01, .101887E+01,
774 + .851158E+00, .709147E+00, .587125E+00, .481664E+00,
775 + .390392E+00, .311953E+00, .245402E+00, .189981E+00,
776 + .144766E+00, .108657E+00, .803755E-01, .586304E-01,
777 + .421791E-01, .299197E-01, .209513E-01, .144143E-01 /
778 DATA (UPDI(I),I=2705,2756) /
779 + .974999E-02, .647494E-02, .421253E-02, .267964E-02,
780 + .166109E-02, .100097E-02, .583426E-03, .327762E-03,
781 + .175462E-03, .899888E-04, .428745E-04, .185992E-04,
782 + .665283E-05, .115609E-05, .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, .255687E+05, .367207E+05,
786 + .290827E+05, .230289E+05, .182367E+05, .144388E+05,
787 + .114328E+05, .905072E+04, .716556E+04, .567190E+04,
788 + .448998E+04, .355364E+04, .281283E+04, .222602E+04,
789 + .176183E+04, .139418E+04, .110340E+04, .873131E+03,
790 + .691033E+03, .546849E+03, .432851E+03, .342599E+03,
791 + .271250E+03, .214767E+03, .170115E+03, .134775E+03 /
792 DATA (UPDI(I),I=2757,2808) /
793 + .106840E+03, .844509E+02, .670324E+02, .532383E+02,
794 + .423306E+02, .336895E+02, .268523E+02, .214464E+02,
795 + .171541E+02, .137483E+02, .110481E+02, .890083E+01,
796 + .719381E+01, .583131E+01, .474487E+01, .387344E+01,
797 + .317378E+01, .260929E+01, .215284E+01, .178151E+01,
798 + .147936E+01, .122902E+01, .102295E+01, .849306E+00,
799 + .703229E+00, .578614E+00, .471853E+00, .380309E+00,
800 + .302402E+00, .236901E+00, .182810E+00, .138989E+00,
801 + .104202E+00, .770768E-01, .562938E-01, .406052E-01,
802 + .289272E-01, .203847E-01, .141501E-01, .968774E-02,
803 + .654023E-02, .435004E-02, .285131E-02, .184051E-02,
804 + .117225E-02, .737068E-03, .459665E-03, .284422E-03,
805 + .177812E-03, .111658E-03, .713882E-04, .463249E-04 /
806 DATA (UPDI(I),I=2809,2860) /
807 + .305608E-04, .201674E-04, .132318E-04, .846036E-05,
808 + .518154E-05, .298953E-05, .160367E-05, .771419E-06,
809 + .325230E-06, .111260E-06, .234120E-07, .000000E+00,
810 + .000000E+00, .745357E+05, .590630E+05, .463287E+05,
811 + .363329E+05, .284945E+05, .223426E+05, .175193E+05,
812 + .137344E+05, .107676E+05, .843982E+04, .661552E+04,
813 + .518445E+04, .406314E+04, .318369E+04, .249475E+04,
814 + .195450E+04, .153139E+04, .119965E+04, .939885E+03,
815 + .736264E+03, .576868E+03, .451943E+03, .354165E+03,
816 + .277542E+03, .217576E+03, .170597E+03, .133843E+03,
817 + .104684E+03, .822289E+02, .646275E+02, .508510E+02,
818 + .400487E+02, .315881E+02, .249669E+02, .197630E+02,
819 + .156757E+02, .124677E+02, .994203E+01, .795412E+01 /
820 DATA (UPDI(I),I=2861,2912) /
821 + .638295E+01, .514234E+01, .415674E+01, .337280E+01,
822 + .274612E+01, .224394E+01, .183892E+01, .151220E+01,
823 + .124377E+01, .102482E+01, .842078E+00, .690030E+00,
824 + .561940E+00, .453746E+00, .362375E+00, .285800E+00,
825 + .222350E+00, .170633E+00, .129205E+00, .966232E-01,
826 + .714018E-01, .521839E-01, .377331E-01, .269970E-01,
827 + .191490E-01, .134120E-01, .929110E-02, .636706E-02,
828 + .431458E-02, .289263E-02, .191741E-02, .125818E-02,
829 + .816383E-03, .524503E-03, .331792E-03, .208474E-03,
830 + .127705E-03, .759480E-04, .427327E-04, .217961E-04,
831 + .883667E-05, .121083E-05, .000000E+00, .000000E+00,
832 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
833 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
834 DATA (UPDI(I),I=2913,2964) /
835 + .119141E+06, .936307E+05, .727594E+05, .565275E+05,
836 + .439157E+05, .341094E+05, .264921E+05, .205709E+05,
837 + .159728E+05, .123994E+05, .962536E+04, .747008E+04,
838 + .579739E+04, .449817E+04, .349016E+04, .270742E+04,
839 + .210031E+04, .162898E+04, .126352E+04, .979883E+03,
840 + .760029E+03, .589437E+03, .457235E+03, .354675E+03,
841 + .275208E+03, .213579E+03, .165852E+03, .128369E+03,
842 + .997953E+02, .776249E+02, .604470E+02, .471147E+02,
843 + .367772E+02, .287695E+02, .225387E+02, .176943E+02,
844 + .139299E+02, .109957E+02, .870889E+01, .691920E+01,
845 + .551964E+01, .441839E+01, .355056E+01, .286324E+01,
846 + .231738E+01, .188100E+01, .153201E+01, .124776E+01,
847 + .101802E+01, .828112E+00, .671782E+00, .541663E+00 /
848 DATA (UPDI(I),I=2965,3016) /
849 + .433196E+00, .342873E+00, .268231E+00, .207212E+00,
850 + .158076E+00, .119137E+00, .887857E-01, .654652E-01,
851 + .478005E-01, .345787E-01, .247861E-01, .176425E-01,
852 + .124231E-01, .867117E-02, .600257E-02, .412157E-02,
853 + .281000E-02, .190230E-02, .128114E-02, .858302E-03,
854 + .573131E-03, .380360E-03, .253181E-03, .167000E-03,
855 + .109547E-03, .709336E-04, .452153E-04, .280459E-04,
856 + .168404E-04, .964591E-05, .517668E-05, .255269E-05,
857 + .112940E-05, .424173E-06, .130645E-06, .316486E-07,
858 + .482936E-08, .000000E+00, .000000E+00, .184749E+06,
859 + .144123E+06, .111059E+06, .855550E+05, .659017E+05,
860 + .507476E+05, .390744E+05, .300772E+05, .231494E+05,
861 + .178120E+05, .137039E+05, .105402E+05, .810620E+04 /
862 DATA (UPDI(I),I=3017,3068) /
863 + .623243E+04, .479152E+04, .368268E+04, .283036E+04,
864 + .217471E+04, .167095E+04, .128359E+04, .986110E+03,
865 + .757447E+03, .581893E+03, .446993E+03, .343454E+03,
866 + .263926E+03, .202931E+03, .155490E+03, .119676E+03,
867 + .921588E+02, .710448E+02, .548189E+02, .423597E+02,
868 + .328038E+02, .254407E+02, .197723E+02, .154102E+02,
869 + .120435E+02, .944460E+01, .743040E+01, .587010E+01,
870 + .465396E+01, .370434E+01, .295913E+01, .237252E+01,
871 + .190768E+01, .153912E+01, .124157E+01, .100323E+01,
872 + .808114E+00, .649171E+00, .518407E+00, .410754E+00,
873 + .322281E+00, .250117E+00, .191856E+00, .145473E+00,
874 + .109085E+00, .809668E-01, .595187E-01, .433695E-01,
875 + .313411E-01, .224650E-01, .160080E-01, .112984E-01 /
876 DATA (UPDI(I),I=3069,3120) /
877 + .791534E-02, .550813E-02, .380858E-02, .261974E-02,
878 + .179308E-02, .122357E-02, .832613E-03, .566032E-03,
879 + .383719E-03, .261532E-03, .177459E-03, .120411E-03,
880 + .813347E-04, .547163E-04, .364399E-04, .240622E-04,
881 + .156522E-04, .999397E-05, .623288E-05, .376946E-05,
882 + .216044E-05, .113930E-05, .514556E-06, .162426E-06,
883 + .135266E-07, .000000E+00, .277736E+06, .215244E+06,
884 + .164615E+06, .125851E+06, .961977E+05, .735038E+05,
885 + .561536E+05, .428826E+05, .327422E+05, .249902E+05,
886 + .190702E+05, .145471E+05, .110950E+05, .845900E+04,
887 + .644830E+04, .491376E+04, .374395E+04, .285165E+04,
888 + .217183E+04, .165357E+04, .125897E+04, .958308E+03,
889 + .729489E+03, .555224E+03, .422657E+03, .321751E+03 /
890 DATA (UPDI(I),I=3121,3172) /
891 + .245064E+03, .185968E+03, .141764E+03, .108120E+03,
892 + .825424E+02, .630723E+02, .482613E+02, .370099E+02,
893 + .284216E+02, .218733E+02, .168813E+02, .130651E+02,
894 + .101468E+02, .790643E+01, .618686E+01, .485898E+01,
895 + .383142E+01, .303229E+01, .240873E+01, .191889E+01,
896 + .153383E+01, .122568E+01, .981043E+00, .782698E+00,
897 + .622770E+00, .492667E+00, .386825E+00, .300915E+00,
898 + .231697E+00, .176471E+00, .132975E+00, .991811E-01,
899 + .732840E-01, .536728E-01, .389965E-01, .281216E-01,
900 + .201302E-01, .143363E-01, .101215E-01, .709965E-02,
901 + .495167E-02, .343538E-02, .237370E-02, .163406E-02,
902 + .112283E-02, .770402E-03, .528728E-03, .362494E-03,
903 + .250107E-03, .172204E-03, .118839E-03, .819318E-04 /
904 DATA (UPDI(I),I=3173,3224) /
905 + .564692E-04, .387286E-04, .264549E-04, .178807E-04,
906 + .118937E-04, .772504E-05, .483737E-05, .284460E-05,
907 + .151497E-05, .676639E-06, .207272E-06, .184255E-07,
908 + .000000E+00, .405796E+06, .312624E+06, .237453E+06,
909 + .180281E+06, .136839E+06, .103818E+06, .787446E+05,
910 + .596995E+05, .452487E+05, .342800E+05, .259633E+05,
911 + .196553E+05, .148760E+05, .112537E+05, .851136E+04,
912 + .643438E+04, .486315E+04, .367402E+04, .277513E+04,
913 + .209534E+04, .158188E+04, .119386E+04, .900966E+03,
914 + .679770E+03, .512909E+03, .386979E+03, .292098E+03,
915 + .219621E+03, .165884E+03, .125347E+03, .948034E+02,
916 + .717629E+02, .543929E+02, .413185E+02, .314288E+02,
917 + .239581E+02, .183146E+02, .140403E+02, .108014E+02 /
918 DATA (UPDI(I),I=3225,3276) /
919 + .833768E+01, .646366E+01, .502958E+01, .392958E+01,
920 + .308168E+01, .242571E+01, .191484E+01, .151664E+01,
921 + .120074E+01, .952173E+00, .752544E+00, .593191E+00,
922 + .464963E+00, .361831E+00, .279106E+00, .213226E+00,
923 + .161250E+00, .120735E+00, .895482E-01, .658435E-01,
924 + .480213E-01, .347665E-01, .249981E-01, .178525E-01,
925 + .126921E-01, .895078E-02, .627594E-02, .437864E-02,
926 + .304127E-02, .210545E-02, .145350E-02, .100242E-02,
927 + .690969E-03, .476849E-03, .329185E-03, .228855E-03,
928 + .159045E-03, .110945E-03, .774765E-04, .541766E-04,
929 + .377777E-04, .262533E-04, .180568E-04, .122004E-04,
930 + .802298E-05, .505530E-05, .296989E-05, .156411E-05,
931 + .681350E-06, .200849E-06, .184087E-07, .000000E+00 /
932 DATA (UPDI(I),I=3277,3328) /
933 + .577959E+06, .442829E+06, .334217E+06, .252122E+06,
934 + .190128E+06, .143302E+06, .107971E+06, .813077E+05,
935 + .612069E+05, .460505E+05, .346347E+05, .260347E+05,
936 + .195631E+05, .146922E+05, .110303E+05, .827656E+04,
937 + .620827E+04, .465440E+04, .348841E+04, .261324E+04,
938 + .195717E+04, .146519E+04, .109670E+04, .820610E+03,
939 + .613989E+03, .459307E+03, .343715E+03, .256155E+03,
940 + .191779E+03, .143630E+03, .107657E+03, .807573E+02,
941 + .606525E+02, .456531E+02, .344062E+02, .259861E+02,
942 + .196815E+02, .149493E+02, .113949E+02, .871548E+01,
943 + .669513E+01, .516267E+01, .399731E+01, .310678E+01,
944 + .242361E+01, .189606E+01, .148829E+01, .116758E+01,
945 + .917425E+00, .718401E+00, .561088E+00, .435837E+00 /
946 DATA (UPDI(I),I=3329,3380) /
947 + .336202E+00, .257185E+00, .194955E+00, .146383E+00,
948 + .108896E+00, .802995E-01, .587371E-01, .426417E-01,
949 + .307466E-01, .220296E-01, .156843E-01, .111218E-01,
950 + .782699E-02, .547967E-02, .381957E-02, .265224E-02,
951 + .183685E-02, .126954E-02, .877214E-03, .606340E-03,
952 + .419991E-03, .291358E-03, .203698E-03, .142568E-03,
953 + .100265E-03, .706857E-04, .499323E-04, .351984E-04,
954 + .247071E-04, .171441E-04, .116527E-04, .768010E-05,
955 + .482345E-05, .280747E-05, .145284E-05, .614877E-06,
956 + .174281E-06, .163267E-07, .000000E+00, .804558E+06,
957 + .613306E+06, .460127E+06, .345019E+06, .258599E+06,
958 + .193710E+06, .145040E+06, .108533E+06, .811783E+05,
959 + .606807E+05, .453382E+05, .338537E+05, .252667E+05 /
960 DATA (UPDI(I),I=3381,3432) /
961 + .188459E+05, .140505E+05, .104686E+05, .779647E+04,
962 + .580280E+04, .431717E+04, .321001E+04, .238595E+04,
963 + .177250E+04, .131640E+04, .977232E+03, .725324E+03,
964 + .538184E+03, .399429E+03, .295162E+03, .219118E+03,
965 + .162707E+03, .120904E+03, .899048E+02, .669287E+02,
966 + .499326E+02, .372961E+02, .279171E+02, .209544E+02,
967 + .157737E+02, .119157E+02, .903261E+01, .687714E+01,
968 + .525620E+01, .403389E+01, .310772E+01, .240306E+01,
969 + .186342E+01, .144975E+01, .112716E+01, .877703E+00,
970 + .681064E+00, .527133E+00, .405833E+00, .310364E+00,
971 + .235472E+00, .177120E+00, .132043E+00, .975854E-01,
972 + .715311E-01, .520398E-01, .375943E-01, .269867E-01,
973 + .192584E-01, .136619E-01, .965677E-02, .677722E-02 /
974 DATA (UPDI(I),I=3433,3484) /
975 + .473401E-02, .329413E-02, .228481E-02, .158159E-02,
976 + .109340E-02, .756278E-03, .523757E-03, .363846E-03,
977 + .253446E-03, .178058E-03, .125390E-03, .887965E-04,
978 + .630846E-04, .449077E-04, .318947E-04, .225199E-04,
979 + .156885E-04, .106708E-04, .701181E-05, .436858E-05,
980 + .250892E-05, .127178E-05, .522059E-06, .142394E-06,
981 + .135846E-07, .000000E+00, .109710E+07, .832279E+06,
982 + .620882E+06, .462905E+06, .344952E+06, .256885E+06,
983 + .191203E+06, .142219E+06, .105727E+06, .785447E+05,
984 + .583189E+05, .432709E+05, .320879E+05, .237781E+05,
985 + .176105E+05, .130332E+05, .964045E+04, .712579E+04,
986 + .526431E+04, .388644E+04, .286788E+04, .211491E+04,
987 + .155902E+04, .114860E+04, .845983E+03, .622819E+03 /
988 DATA (UPDI(I),I=3485,3536) /
989 + .458591E+03, .336131E+03, .247508E+03, .182280E+03,
990 + .134321E+03, .990435E+02, .731054E+02, .540755E+02,
991 + .400420E+02, .297130E+02, .221083E+02, .164976E+02,
992 + .123541E+02, .928362E+01, .700702E+01, .530925E+01,
993 + .403949E+01, .308527E+01, .236513E+01, .181811E+01,
994 + .140220E+01, .108057E+01, .833976E+00, .641356E+00,
995 + .491996E+00, .375476E+00, .284713E+00, .214259E+00,
996 + .159929E+00, .118377E+00, .869085E-01, .633180E-01,
997 + .458068E-01, .329214E-01, .235205E-01, .167121E-01,
998 + .118083E-01, .831642E-02, .581782E-02, .405277E-02,
999 + .281389E-02, .194860E-02, .134759E-02, .931502E-03,
1000 + .644739E-03, .447261E-03, .311557E-03, .217872E-03,
1001 + .153784E-03, .108919E-03, .776121E-04, .554967E-04 /
1002 DATA (UPDI(I),I=3537,3588) /
1003 + .397411E-04, .283675E-04, .200880E-04, .140028E-04,
1004 + .949795E-05, .620142E-05, .382154E-05, .216014E-05,
1005 + .107054E-05, .425876E-06, .111924E-06, .108525E-07,
1006 + .000000E+00, .146804E+07, .110857E+07, .822526E+06,
1007 + .609897E+06, .451975E+06, .334703E+06, .247712E+06,
1008 + .183194E+06, .135397E+06, .999937E+05, .738010E+05,
1009 + .544267E+05, .401126E+05, .295395E+05, .217391E+05,
1010 + .159857E+05, .117473E+05, .862571E+04, .632962E+04,
1011 + .464110E+04, .340104E+04, .249047E+04, .182274E+04,
1012 + .133317E+04, .974686E+03, .712190E+03, .520411E+03,
1013 + .378463E+03, .276500E+03, .202022E+03, .147674E+03,
1014 + .108007E+03, .790671E+02, .580028E+02, .425914E+02,
1015 + .313397E+02, .231219E+02, .171082E+02, .127029E+02 /
1016 DATA (UPDI(I),I=3589,3640) /
1017 + .946504E+01, .708361E+01, .532203E+01, .401506E+01,
1018 + .304075E+01, .231127E+01, .176156E+01, .134697E+01,
1019 + .102898E+01, .787236E+00, .600088E+00, .456318E+00,
1020 + .345255E+00, .259607E+00, .193799E+00, .143559E+00,
1021 + .105503E+00, .769435E-01, .557129E-01, .400743E-01,
1022 + .286484E-01, .203667E-01, .144050E-01, .101350E-01,
1023 + .711027E-02, .495675E-02, .344263E-02, .238444E-02,
1024 + .164825E-02, .113866E-02, .786925E-03, .545060E-03,
1025 + .378789E-03, .264624E-03, .185793E-03, .131760E-03,
1026 + .938320E-04, .672365E-04, .483362E-04, .347645E-04,
1027 + .248880E-04, .176334E-04, .122674E-04, .827649E-05,
1028 + .535651E-05, .325811E-05, .180945E-05, .875597E-06,
1029 + .337436E-06, .855697E-07, .842240E-08, .000000E+00 /
1030 DATA (UPDI(I),I=3641,3692) /
1031 + .193051E+07, .145138E+07, .107127E+07, .790165E+06,
1032 + .582448E+06, .429001E+06, .315768E+06, .232236E+06,
1033 + .170682E+06, .125339E+06, .919750E+05, .674347E+05,
1034 + .494057E+05, .361652E+05, .264533E+05, .193322E+05,
1035 + .141175E+05, .103002E+05, .750956E+04, .547019E+04,
1036 + .398189E+04, .289608E+04, .210503E+04, .152889E+04,
1037 + .110984E+04, .805087E+03, .583982E+03, .421495E+03,
1038 + .305618E+03, .221592E+03, .160725E+03, .116632E+03,
1039 + .847038E+02, .616419E+02, .448977E+02, .327682E+02,
1040 + .239779E+02, .175962E+02, .129577E+02, .957551E+01,
1041 + .710727E+01, .529584E+01, .396234E+01, .297603E+01,
1042 + .224327E+01, .169542E+01, .128547E+01, .973593E+00,
1043 + .738463E+00, .558035E+00, .420690E+00, .315603E+00 /
1044 DATA (UPDI(I),I=3693,3744) /
1045 + .235354E+00, .174303E+00, .128144E+00, .935070E-01,
1046 + .677420E-01, .487460E-01, .348594E-01, .247853E-01,
1047 + .175309E-01, .123408E-01, .864450E-02, .604023E-02,
1048 + .419563E-02, .290504E-02, .200709E-02, .138494E-02,
1049 + .955823E-03, .660548E-03, .457969E-03, .318930E-03,
1050 + .223516E-03, .157589E-03, .112288E-03, .803797E-04,
1051 + .578802E-04, .417861E-04, .301385E-04, .215983E-04,
1052 + .152794E-04, .105859E-04, .708962E-05, .453969E-05,
1053 + .272128E-05, .148295E-05, .700057E-06, .261330E-06,
1054 + .640388E-07, .639289E-08, .000000E+00, .249786E+07,
1055 + .186996E+07, .137327E+07, .100777E+07, .739024E+06,
1056 + .541493E+06, .396466E+06, .290030E+06, .212005E+06,
1057 + .154831E+06, .112986E+06, .823737E+05, .600061E+05 /
1058 DATA (UPDI(I),I=3745,3796) /
1059 + .436707E+05, .317556E+05, .230690E+05, .167444E+05,
1060 + .121419E+05, .879711E+04, .636754E+04, .460529E+04,
1061 + .332763E+04, .240266E+04, .173329E+04, .124960E+04,
1062 + .900146E+03, .648317E+03, .464526E+03, .334368E+03,
1063 + .240651E+03, .173242E+03, .124765E+03, .899150E+02,
1064 + .649291E+02, .469219E+02, .339759E+02, .246645E+02,
1065 + .179560E+02, .131170E+02, .961561E+01, .707976E+01,
1066 + .523294E+01, .388370E+01, .289334E+01, .216315E+01,
1067 + .162139E+01, .121915E+01, .915582E+00, .688586E+00,
1068 + .515905E+00, .385635E+00, .286893E+00, .212205E+00,
1069 + .155929E+00, .113781E+00, .824416E-01, .593298E-01,
1070 + .424272E-01, .301633E-01, .213287E-01, .150085E-01,
1071 + .105145E-01, .733230E-02, .510254E-02, .353149E-02 /
1072 DATA (UPDI(I),I=3797,3848) /
1073 + .243775E-02, .168022E-02, .115753E-02, .798290E-03,
1074 + .551843E-03, .383117E-03, .267464E-03, .188105E-03,
1075 + .133197E-03, .953498E-04, .685771E-04, .495830E-04,
1076 + .359036E-04, .259294E-04, .185683E-04, .130922E-04,
1077 + .901701E-05, .598471E-05, .378600E-05, .223393E-05,
1078 + .119336E-05, .549228E-06, .198623E-06, .471030E-07,
1079 + .476604E-08, .000000E+00, .204568E+05, .222925E+05,
1080 + .177915E+05, .141992E+05, .113320E+05, .904365E+04,
1081 + .721728E+04, .575965E+04, .459633E+04, .366791E+04,
1082 + .292696E+04, .233565E+04, .186377E+04, .148719E+04,
1083 + .118669E+04, .946895E+03, .755551E+03, .602873E+03,
1084 + .481051E+03, .383854E+03, .306306E+03, .244439E+03,
1085 + .195082E+03, .155709E+03, .124301E+03, .992481E+02 /
1086 DATA (UPDI(I),I=3849,3900) /
1087 + .792644E+02, .631233E+02, .504549E+02, .403486E+02,
1088 + .322858E+02, .258525E+02, .207182E+02, .166304E+02,
1089 + .133566E+02, .107411E+02, .864947E+01, .697442E+01,
1090 + .563055E+01, .454946E+01, .367860E+01, .297368E+01,
1091 + .240132E+01, .193493E+01, .155370E+01, .124141E+01,
1092 + .986314E+00, .776327E+00, .606533E+00, .468967E+00,
1093 + .360330E+00, .275942E+00, .211938E+00, .164501E+00,
1094 + .129890E+00, .104648E+00, .858602E-01, .713189E-01,
1095 + .595336E-01, .496042E-01, .410425E-01, .336050E-01,
1096 + .271699E-01, .216865E-01, .170331E-01, .131740E-01,
1097 + .100279E-01, .750729E-02, .552313E-02, .398918E-02,
1098 + .282516E-02, .195886E-02, .132696E-02, .875803E-03,
1099 + .564050E-03, .351062E-03, .210949E-03, .121759E-03 /
1100 DATA (UPDI(I),I=3901,3952) /
1101 + .670836E-04, .349993E-04, .171138E-04, .774780E-05,
1102 + .316991E-05, .115056E-05, .355191E-06, .878443E-07,
1103 + .157319E-07, .168526E-08, .699714E-10, .275015E-12,
1104 + .000000E+00, .351545E+05, .282139E+05, .224484E+05,
1105 + .178581E+05, .142068E+05, .113001E+05, .898823E+04,
1106 + .714805E+04, .568469E+04, .452005E+04, .359404E+04,
1107 + .285717E+04, .227139E+04, .180534E+04, .143492E+04,
1108 + .114027E+04, .906128E+03, .719921E+03, .571989E+03,
1109 + .454371E+03, .360957E+03, .286704E+03, .227746E+03,
1110 + .180894E+03, .143703E+03, .114159E+03, .907130E+02,
1111 + .718587E+02, .571378E+02, .454456E+02, .361691E+02,
1112 + .288012E+02, .229543E+02, .183208E+02, .146319E+02,
1113 + .116990E+02, .936752E+01, .750965E+01, .602834E+01 /
1114 DATA (UPDI(I),I=3953,4004) /
1115 + .484285E+01, .389408E+01, .313036E+01, .251447E+01,
1116 + .201568E+01, .161100E+01, .128168E+01, .101482E+01,
1117 + .796658E+00, .621679E+00, .480796E+00, .370208E+00,
1118 + .284558E+00, .219641E+00, .171304E+00, .135734E+00,
1119 + .109429E+00, .895782E-01, .740392E-01, .614134E-01,
1120 + .508072E-01, .417517E-01, .339690E-01, .273156E-01,
1121 + .217058E-01, .169906E-01, .131081E-01, .996413E-02,
1122 + .745681E-02, .549129E-02, .397444E-02, .282504E-02,
1123 + .196857E-02, .134287E-02, .893420E-03, .581495E-03,
1124 + .366179E-03, .222834E-03, .130049E-03, .720433E-04,
1125 + .371760E-04, .172120E-04, .653895E-05, .127748E-05,
1126 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1127 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
1128 DATA (UPDI(I),I=4005,4056) /
1129 + .255349E+05, .366543E+05, .290236E+05, .229764E+05,
1130 + .181901E+05, .143974E+05, .113960E+05, .901803E+04,
1131 + .713653E+04, .564613E+04, .446711E+04, .353334E+04,
1132 + .279482E+04, .221005E+04, .174768E+04, .138164E+04,
1133 + .109230E+04, .863298E+03, .682332E+03, .539152E+03,
1134 + .426047E+03, .336587E+03, .265940E+03, .210079E+03,
1135 + .165980E+03, .131128E+03, .103625E+03, .816224E+02,
1136 + .645397E+02, .510417E+02, .403939E+02, .319811E+02,
1137 + .253434E+02, .201110E+02, .159697E+02, .126945E+02,
1138 + .101064E+02, .805501E+01, .642932E+01, .513546E+01,
1139 + .410641E+01, .328286E+01, .262305E+01, .209199E+01,
1140 + .166414E+01, .131826E+01, .104004E+01, .814112E+00,
1141 + .634236E+00, .490275E+00, .377882E+00, .291093E+00 /
1142 DATA (UPDI(I),I=4057,4108) /
1143 + .225360E+00, .176249E+00, .139869E+00, .112689E+00,
1144 + .919815E-01, .756592E-01, .623903E-01, .512875E-01,
1145 + .418886E-01, .338864E-01, .271145E-01, .214569E-01,
1146 + .167413E-01, .128845E-01, .978078E-02, .731716E-02,
1147 + .539390E-02, .391330E-02, .279357E-02, .195925E-02,
1148 + .134921E-02, .909370E-03, .602855E-03, .389417E-03,
1149 + .245681E-03, .150920E-03, .902229E-04, .522866E-04,
1150 + .293749E-04, .159528E-04, .831236E-05, .414749E-05,
1151 + .196644E-05, .862359E-06, .341668E-06, .113044E-06,
1152 + .234877E-07, .000000E+00, .000000E+00, .744539E+05,
1153 + .589902E+05, .462641E+05, .362754E+05, .284435E+05,
1154 + .222973E+05, .174791E+05, .136988E+05, .107359E+05,
1155 + .841172E+04, .659060E+04, .516236E+04, .404356E+04 /
1156 DATA (UPDI(I),I=4109,4160) /
1157 + .316635E+04, .247939E+04, .194091E+04, .151936E+04,
1158 + .118901E+04, .930484E+03, .727959E+03, .569535E+03,
1159 + .445473E+03, .348458E+03, .272512E+03, .213144E+03,
1160 + .166694E+03, .130408E+03, .101667E+03, .795738E+02,
1161 + .622914E+02, .487946E+02, .382376E+02, .299911E+02,
1162 + .235559E+02, .185137E+02, .145661E+02, .114782E+02,
1163 + .905544E+01, .715501E+01, .565806E+01, .447999E+01,
1164 + .354722E+01, .280798E+01, .221964E+01, .175108E+01,
1165 + .137666E+01, .107907E+01, .840174E+00, .652176E+00,
1166 + .503217E+00, .387885E+00, .299286E+00, .232254E+00,
1167 + .181969E+00, .144387E+00, .115975E+00, .940916E-01,
1168 + .767460E-01, .626689E-01, .509875E-01, .412242E-01,
1169 + .330332E-01, .262022E-01, .205754E-01, .159425E-01 /
1170 DATA (UPDI(I),I=4161,4212) /
1171 + .121949E-01, .920754E-02, .685595E-02, .503283E-02,
1172 + .363726E-02, .258652E-02, .180618E-02, .123712E-02,
1173 + .827164E-03, .541931E-03, .343374E-03, .209872E-03,
1174 + .122257E-03, .666639E-04, .327231E-04, .130742E-04,
1175 + .262020E-05, .000000E+00, .000000E+00, .000000E+00,
1176 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1177 + .000000E+00, .000000E+00, .119052E+06, .935514E+05,
1178 + .726890E+05, .564650E+05, .438602E+05, .340601E+05,
1179 + .264484E+05, .205321E+05, .159384E+05, .123690E+05,
1180 + .959837E+04, .744618E+04, .577623E+04, .447944E+04,
1181 + .347359E+04, .269276E+04, .208736E+04, .161754E+04,
1182 + .125342E+04, .970972E+03, .752170E+03, .582512E+03,
1183 + .451135E+03, .349306E+03, .270484E+03, .209425E+03 /
1184 DATA (UPDI(I),I=4213,4264) /
1185 + .162201E+03, .125167E+03, .969822E+02, .751537E+02,
1186 + .582752E+02, .452051E+02, .350961E+02, .272868E+02,
1187 + .212284E+02, .165329E+02, .128965E+02, .100721E+02,
1188 + .787889E+01, .616899E+01, .483712E+01, .379362E+01,
1189 + .297529E+01, .233110E+01, .182365E+01, .142268E+01,
1190 + .110753E+01, .857311E+00, .662498E+00, .509606E+00,
1191 + .392151E+00, .302399E+00, .234619E+00, .183677E+00,
1192 + .145397E+00, .116264E+00, .937007E-01, .757973E-01,
1193 + .613244E-01, .494193E-01, .395834E-01, .314389E-01,
1194 + .247341E-01, .192803E-01, .148409E-01, .112877E-01,
1195 + .848224E-02, .629272E-02, .460800E-02, .332682E-02,
1196 + .236754E-02, .165836E-02, .114274E-02, .771995E-03,
1197 + .513973E-03, .333838E-03, .211997E-03, .131078E-03 /
1198 DATA (UPDI(I),I=4265,4316) /
1199 + .787472E-04, .456785E-04, .254823E-04, .135543E-04,
1200 + .676406E-05, .312274E-05, .130225E-05, .466094E-06,
1201 + .137953E-06, .324177E-07, .486153E-08, .000000E+00,
1202 + .000000E+00, .184652E+06, .144037E+06, .110982E+06,
1203 + .854872E+05, .658415E+05, .506943E+05, .390271E+05,
1204 + .300352E+05, .231123E+05, .177791E+05, .136748E+05,
1205 + .105144E+05, .808341E+04, .621228E+04, .477371E+04,
1206 + .366695E+04, .281647E+04, .216246E+04, .166015E+04,
1207 + .127407E+04, .977723E+03, .750065E+03, .575399E+03,
1208 + .441286E+03, .338440E+03, .259522E+03, .199066E+03,
1209 + .152107E+03, .116707E+03, .895553E+02, .687605E+02,
1210 + .528138E+02, .405976E+02, .312526E+02, .240724E+02,
1211 + .185622E+02, .143361E+02, .110861E+02, .858700E+01 /
1212 DATA (UPDI(I),I=4317,4368) /
1213 + .665820E+01, .517079E+01, .401733E+01, .312197E+01,
1214 + .242456E+01, .188096E+01, .145601E+01, .112555E+01,
1215 + .865934E+00, .665812E+00, .510171E+00, .391491E+00,
1216 + .301283E+00, .233321E+00, .182218E+00, .143705E+00,
1217 + .114294E+00, .914711E-01, .733904E-01, .588504E-01,
1218 + .469960E-01, .373065E-01, .293782E-01, .229273E-01,
1219 + .177395E-01, .135614E-01, .102509E-01, .766088E-02,
1220 + .565671E-02, .412638E-02, .297078E-02, .211085E-02,
1221 + .147862E-02, .102098E-02, .693170E-03, .465419E-03,
1222 + .306496E-03, .198782E-03, .126827E-03, .797824E-04,
1223 + .494605E-04, .303605E-04, .184619E-04, .111181E-04,
1224 + .663020E-05, .388784E-05, .218863E-05, .114412E-05,
1225 + .515054E-06, .162447E-06, .135267E-07, .000000E+00 /
1226 DATA (UPDI(I),I=4369,4420) /
1227 + .277631E+06, .215151E+06, .164533E+06, .125777E+06,
1228 + .961327E+05, .734463E+05, .561026E+05, .428374E+05,
1229 + .327022E+05, .249548E+05, .190389E+05, .145195E+05,
1230 + .110706E+05, .843739E+04, .642922E+04, .489692E+04,
1231 + .372910E+04, .283857E+04, .216031E+04, .164343E+04,
1232 + .125005E+04, .950465E+03, .722599E+03, .549176E+03,
1233 + .417351E+03, .317098E+03, .240987E+03, .182403E+03,
1234 + .138643E+03, .105386E+03, .801480E+02, .609742E+02,
1235 + .464208E+02, .353928E+02, .269982E+02, .206174E+02,
1236 + .157694E+02, .120770E+02, .926477E+01, .711544E+01,
1237 + .547399E+01, .421370E+01, .324509E+01, .249830E+01,
1238 + .192212E+01, .147632E+01, .113316E+01, .866264E+00,
1239 + .662477E+00, .505358E+00, .386404E+00, .296471E+00 /
1240 DATA (UPDI(I),I=4421,4472) /
1241 + .228909E+00, .178144E+00, .139843E+00, .110564E+00,
1242 + .878509E-01, .699171E-01, .555821E-01, .439981E-01,
1243 + .346251E-01, .270404E-01, .209357E-01, .160780E-01,
1244 + .122052E-01, .916611E-02, .680972E-02, .500165E-02,
1245 + .363169E-02, .260472E-02, .184551E-02, .129074E-02,
1246 + .891267E-03, .606485E-03, .409187E-03, .271813E-03,
1247 + .178682E-03, .116281E-03, .751765E-04, .483285E-04,
1248 + .310387E-04, .198979E-04, .126888E-04, .800169E-05,
1249 + .491838E-05, .286354E-05, .151815E-05, .676962E-06,
1250 + .207285E-06, .184255E-07, .000000E+00, .405682E+06,
1251 + .312524E+06, .237364E+06, .180202E+06, .136769E+06,
1252 + .103756E+06, .786897E+05, .596510E+05, .452057E+05,
1253 + .342420E+05, .259297E+05, .196257E+05, .148499E+05 /
1254 DATA (UPDI(I),I=4473,4524) /
1255 + .112306E+05, .849097E+04, .641641E+04, .484732E+04,
1256 + .366008E+04, .276287E+04, .208456E+04, .157241E+04,
1257 + .118554E+04, .893674E+03, .673378E+03, .507310E+03,
1258 + .382076E+03, .287808E+03, .215876E+03, .162610E+03,
1259 + .122485E+03, .923008E+02, .695740E+02, .524766E+02,
1260 + .396382E+02, .299532E+02, .226592E+02, .171679E+02,
1261 + .130245E+02, .989799E+01, .753106E+01, .574039E+01,
1262 + .437877E+01, .334233E+01, .255111E+01, .194662E+01,
1263 + .148355E+01, .113057E+01, .858692E+00, .652966E+00,
1264 + .495673E+00, .377413E+00, .288485E+00, .221898E+00,
1265 + .171945E+00, .134271E+00, .105491E+00, .832095E-01,
1266 + .656943E-01, .517853E-01, .406442E-01, .317167E-01,
1267 + .245678E-01, .188724E-01, .143857E-01, .108433E-01 /
1268 DATA (UPDI(I),I=4525,4576) /
1269 + .808935E-02, .597276E-02, .436223E-02, .315140E-02,
1270 + .225047E-02, .158895E-02, .110867E-02, .764807E-03,
1271 + .520953E-03, .352586E-03, .235701E-03, .156500E-03,
1272 + .103334E-03, .680963E-04, .448344E-04, .295795E-04,
1273 + .195008E-04, .127612E-04, .821507E-05, .511060E-05,
1274 + .298259E-05, .156620E-05, .681558E-06, .200857E-06,
1275 + .184087E-07, .000000E+00, .577837E+06, .442721E+06,
1276 + .334121E+06, .252037E+06, .190053E+06, .143236E+06,
1277 + .107912E+06, .812556E+05, .611608E+05, .460098E+05,
1278 + .345988E+05, .260030E+05, .195351E+05, .146676E+05,
1279 + .110085E+05, .825742E+04, .619143E+04, .463959E+04,
1280 + .347539E+04, .260181E+04, .194715E+04, .145640E+04,
1281 + .108900E+04, .813870E+03, .608093E+03, .454152E+03 /
1282 DATA (UPDI(I),I=4577,4628) /
1283 + .339212E+03, .252231E+03, .188354E+03, .140641E+03,
1284 + .105048E+03, .784800E+02, .586628E+02, .439123E+02,
1285 + .328812E+02, .246474E+02, .185031E+02, .139090E+02,
1286 + .104734E+02, .789642E+01, .596461E+01, .450941E+01,
1287 + .341206E+01, .258233E+01, .195441E+01, .147801E+01,
1288 + .111828E+01, .843775E+00, .637860E+00, .481690E+00,
1289 + .365068E+00, .277848E+00, .212778E+00, .164078E+00,
1290 + .127402E+00, .994408E-01, .778609E-01, .609855E-01,
1291 + .476767E-01, .371088E-01, .287196E-01, .220687E-01,
1292 + .168214E-01, .127275E-01, .952532E-02, .705861E-02,
1293 + .517903E-02, .376063E-02, .270251E-02, .192110E-02,
1294 + .135130E-02, .940324E-03, .647823E-03, .441502E-03,
1295 + .299570E-03, .201336E-03, .134812E-03, .900763E-04 /
1296 DATA (UPDI(I),I=4629,4680) /
1297 + .602497E-04, .403655E-04, .271113E-04, .181736E-04,
1298 + .120467E-04, .781296E-05, .486105E-05, .281595E-05,
1299 + .145421E-05, .615011E-06, .174286E-06, .163267E-07,
1300 + .000000E+00, .804426E+06, .613190E+06, .460023E+06,
1301 + .344928E+06, .258518E+06, .193638E+06, .144977E+06,
1302 + .108477E+06, .811290E+05, .606372E+05, .452998E+05,
1303 + .338198E+05, .252369E+05, .188197E+05, .140273E+05,
1304 + .104483E+05, .777859E+04, .578709E+04, .430339E+04,
1305 + .319792E+04, .237536E+04, .176322E+04, .130829E+04,
1306 + .970140E+03, .719130E+03, .532777E+03, .394712E+03,
1307 + .291059E+03, .215543E+03, .159593E+03, .118191E+03,
1308 + .875415E+02, .648684E+02, .481343E+02, .357246E+02,
1309 + .265416E+02, .197475E+02, .147121E+02, .109793E+02 /
1310 DATA (UPDI(I),I=4681,4732) /
1311 + .820435E+01, .614254E+01, .460351E+01, .345345E+01,
1312 + .259192E+01, .194591E+01, .146032E+01, .109700E+01,
1313 + .822232E+00, .617842E+00, .464038E+00, .349946E+00,
1314 + .265082E+00, .202020E+00, .154963E+00, .119608E+00,
1315 + .927319E-01, .720730E-01, .560102E-01, .434323E-01,
1316 + .335302E-01, .257408E-01, .196246E-01, .148442E-01,
1317 + .111491E-01, .828515E-02, .609859E-02, .444652E-02,
1318 + .320998E-02, .229462E-02, .162367E-02, .113781E-02,
1319 + .789658E-03, .543344E-03, .370505E-03, .252028E-03,
1320 + .170252E-03, .114883E-03, .775628E-04, .525218E-04,
1321 + .356614E-04, .242499E-04, .164192E-04, .109464E-04,
1322 + .710327E-05, .439403E-05, .251456E-05, .127267E-05,
1323 + .522145E-06, .142398E-06, .135846E-07, .000000E+00 /
1324 DATA (UPDI(I),I=4733,4784) /
1325 + .109696E+07, .832154E+06, .620771E+06, .462807E+06,
1326 + .344865E+06, .256808E+06, .191135E+06, .142159E+06,
1327 + .105675E+06, .784982E+05, .582780E+05, .432348E+05,
1328 + .320561E+05, .237501E+05, .175859E+05, .130116E+05,
1329 + .962149E+04, .710915E+04, .524973E+04, .387367E+04,
1330 + .285670E+04, .210514E+04, .155048E+04, .114116E+04,
1331 + .839487E+03, .617157E+03, .453662E+03, .331850E+03,
1332 + .243784E+03, .179043E+03, .131507E+03, .965970E+02,
1333 + .709775E+02, .522227E+02, .384275E+02, .283041E+02,
1334 + .208764E+02, .154182E+02, .114061E+02, .844942E+01,
1335 + .627148E+01, .466007E+01, .346654E+01, .258045E+01,
1336 + .192196E+01, .143143E+01, .106764E+01, .794907E+00,
1337 + .593669E+00, .443385E+00, .332628E+00, .250698E+00 /
1338 DATA (UPDI(I),I=4785,4836) /
1339 + .190071E+00, .144987E+00, .111217E+00, .856405E-01,
1340 + .660714E-01, .509488E-01, .391928E-01, .300157E-01,
1341 + .228606E-01, .172943E-01, .129832E-01, .968079E-02,
1342 + .714381E-02, .522373E-02, .378501E-02, .271678E-02,
1343 + .193203E-02, .136105E-02, .950387E-03, .658016E-03,
1344 + .452349E-03, .308734E-03, .210604E-03, .143013E-03,
1345 + .972214E-04, .662575E-04, .453341E-04, .311004E-04,
1346 + .213269E-04, .145190E-04, .968973E-05, .626407E-05,
1347 + .383868E-05, .216387E-05, .107112E-05, .425931E-06,
1348 + .111926E-06, .108525E-07, .000000E+00, .146789E+07,
1349 + .110844E+07, .822407E+06, .609792E+06, .451883E+06,
1350 + .334621E+06, .247640E+06, .183130E+06, .135340E+06,
1351 + .999441E+05, .737573E+05, .543883E+05, .400788E+05 /
1352 DATA (UPDI(I),I=4837,4888) /
1353 + .295098E+05, .217131E+05, .159628E+05, .117272E+05,
1354 + .860812E+04, .631423E+04, .462764E+04, .338927E+04,
1355 + .248020E+04, .181379E+04, .132536E+04, .967887E+03,
1356 + .706275E+03, .515269E+03, .374005E+03, .272631E+03,
1357 + .198664E+03, .144761E+03, .105481E+03, .768750E+02,
1358 + .560991E+02, .409373E+02, .299009E+02, .218684E+02,
1359 + .160144E+02, .117468E+02, .862823E+01, .635023E+01,
1360 + .467922E+01, .345215E+01, .254909E+01, .188379E+01,
1361 + .139251E+01, .103128E+01, .762733E+00, .566140E+00,
1362 + .420404E+00, .313688E+00, .235180E+00, .177342E+00,
1363 + .134495E+00, .102518E+00, .784003E-01, .600420E-01,
1364 + .459453E-01, .350669E-01, .266457E-01, .201365E-01,
1365 + .151182E-01, .112656E-01, .834035E-02, .611248E-02 /
1366 DATA (UPDI(I),I=4889,4940) /
1367 + .444065E-02, .319810E-02, .228277E-02, .161537E-02,
1368 + .113325E-02, .788802E-03, .545082E-03, .374561E-03,
1369 + .256003E-03, .175208E-03, .119625E-03, .819090E-04,
1370 + .562969E-04, .388535E-04, .268613E-04, .185164E-04,
1371 + .126301E-04, .840929E-05, .539921E-05, .326960E-05,
1372 + .181190E-05, .875973E-06, .337471E-06, .855711E-07,
1373 + .842240E-08, .000000E+00, .193035E+07, .145124E+07,
1374 + .107114E+07, .790052E+06, .582349E+06, .428914E+06,
1375 + .315691E+06, .232168E+06, .170622E+06, .125286E+06,
1376 + .919285E+05, .673939E+05, .493698E+05, .361337E+05,
1377 + .264256E+05, .193080E+05, .140963E+05, .102817E+05,
1378 + .749334E+04, .545602E+04, .396952E+04, .288530E+04,
1379 + .209564E+04, .152071E+04, .110274E+04, .798916E+03 /
1380 DATA (UPDI(I),I=4941,4992) /
1381 + .578628E+03, .416862E+03, .301604E+03, .218117E+03,
1382 + .157717E+03, .114029E+03, .824510E+02, .596911E+02,
1383 + .432079E+02, .313034E+02, .227068E+02, .164918E+02,
1384 + .119971E+02, .873937E+01, .637911E+01, .466214E+01,
1385 + .341183E+01, .249945E+01, .183295E+01, .134493E+01,
1386 + .989081E+00, .726685E+00, .536057E+00, .395757E+00,
1387 + .293666E+00, .218973E+00, .164198E+00, .123789E+00,
1388 + .937517E-01, .712033E-01, .541327E-01, .411106E-01,
1389 + .311354E-01, .234764E-01, .176065E-01, .131206E-01,
1390 + .970624E-02, .713589E-02, .519476E-02, .375017E-02,
1391 + .268502E-02, .190639E-02, .134279E-02, .938487E-03,
1392 + .651462E-03, .449553E-03, .308977E-03, .211599E-03,
1393 + .145363E-03, .998035E-04, .688085E-04, .476480E-04 /
1394 DATA (UPDI(I),I=4993,5044) /
1395 + .331138E-04, .230164E-04, .159056E-04, .108396E-04,
1396 + .718111E-05, .456865E-05, .272894E-05, .148456E-05,
1397 + .700298E-06, .261352E-06, .640397E-07, .639289E-08,
1398 + .000000E+00, .249769E+07, .186981E+07, .137313E+07,
1399 + .100765E+07, .738918E+06, .541400E+06, .396384E+06,
1400 + .289958E+06, .211941E+06, .154775E+06, .112937E+06,
1401 + .823304E+05, .599681E+05, .436374E+05, .317264E+05,
1402 + .230434E+05, .167221E+05, .121224E+05, .878003E+04,
1403 + .635265E+04, .459231E+04, .331633E+04, .239283E+04,
1404 + .172475E+04, .124220E+04, .893722E+03, .642753E+03,
1405 + .459721E+03, .330214E+03, .237061E+03, .170143E+03,
1406 + .122089E+03, .876059E+02, .629354E+02, .452007E+02,
1407 + .324892E+02, .233795E+02, .168447E+02, .121554E+02 /
1408 DATA (UPDI(I),I=5045,5096) /
1409 + .878343E+01, .635977E+01, .461092E+01, .334774E+01,
1410 + .243354E+01, .177117E+01, .129016E+01, .942257E+00,
1411 + .687736E+00, .504200E+00, .370061E+00, .273058E+00,
1412 + .202476E+00, .150959E+00, .113121E+00, .851178E-01,
1413 + .642012E-01, .484564E-01, .365256E-01, .274536E-01,
1414 + .205443E-01, .152928E-01, .113136E-01, .831019E-02,
1415 + .606807E-02, .438873E-02, .314904E-02, .224202E-02,
1416 + .158393E-02, .111093E-02, .773885E-03, .536038E-03,
1417 + .369616E-03, .254247E-03, .174562E-03, .120416E-03,
1418 + .831396E-04, .576858E-04, .402002E-04, .280844E-04,
1419 + .195825E-04, .135342E-04, .919357E-05, .604744E-05,
1420 + .380554E-05, .223901E-05, .119440E-05, .549383E-06,
1421 + .198637E-06, .471036E-07, .476604E-08, .000000E+00 /
1422 DATA (UPDI(I),I=5097,5148) /
1423 + .229314E+05, .194042E+05, .163558E+05, .137860E+05,
1424 + .116198E+05, .979379E+04, .825460E+04, .695720E+04,
1425 + .586363E+04, .494189E+04, .416501E+04, .351022E+04,
1426 + .295836E+04, .249325E+04, .210127E+04, .177093E+04,
1427 + .149255E+04, .125795E+04, .106027E+04, .893689E+03,
1428 + .753327E+03, .635059E+03, .535413E+03, .451460E+03,
1429 + .380732E+03, .321148E+03, .270956E+03, .228128E+03,
1430 + .192617E+03, .162706E+03, .137514E+03, .116296E+03,
1431 + .984272E+02, .834207E+02, .707504E+02, .600847E+02,
1432 + .511051E+02, .435427E+02, .371706E+02, .317950E+02,
1433 + .272621E+02, .234279E+02, .201806E+02, .174243E+02,
1434 + .150791E+02, .130784E+02, .113725E+02, .989910E+01,
1435 + .863807E+01, .754212E+01, .659620E+01, .577415E+01 /
1436 DATA (UPDI(I),I=5149,5200) /
1437 + .505778E+01, .443185E+01, .388366E+01, .340253E+01,
1438 + .297950E+01, .260700E+01, .227861E+01, .198885E+01,
1439 + .173304E+01, .150712E+01, .130761E+01, .113222E+01,
1440 + .976503E+00, .839293E+00, .718544E+00, .612464E+00,
1441 + .519468E+00, .438152E+00, .367269E+00, .305704E+00,
1442 + .252429E+00, .206512E+00, .167525E+00, .134153E+00,
1443 + .106023E+00, .825212E-01, .630918E-01, .472292E-01,
1444 + .344724E-01, .244147E-01, .166144E-01, .107871E-01,
1445 + .657110E-02, .366877E-02, .180509E-02, .727107E-03,
1446 + .203248E-03, .232358E-04, .000000E+00, .195392E+06,
1447 + .156769E+06, .124709E+06, .992142E+05, .789696E+05,
1448 + .628632E+05, .500682E+05, .398834E+05, .317886E+05,
1449 + .253415E+05, .202144E+05, .161284E+05, .128770E+05 /
1450 DATA (UPDI(I),I=5201,5252) /
1451 + .102838E+05, .821883E+04, .657062E+04, .525713E+04,
1452 + .420779E+04, .337084E+04, .270154E+04, .216716E+04,
1453 + .173938E+04, .139749E+04, .112349E+04, .904248E+03,
1454 + .728345E+03, .587396E+03, .472765E+03, .382249E+03,
1455 + .309406E+03, .250892E+03, .203726E+03, .165783E+03,
1456 + .135226E+03, .110533E+03, .905647E+02, .744392E+02,
1457 + .613635E+02, .507702E+02, .421442E+02, .351306E+02,
1458 + .293886E+02, .246860E+02, .208115E+02, .176133E+02,
1459 + .149571E+02, .127532E+02, .108952E+02, .934286E+01,
1460 + .802281E+01, .690781E+01, .595748E+01, .514510E+01,
1461 + .444765E+01, .384729E+01, .332876E+01, .287997E+01,
1462 + .249059E+01, .215223E+01, .185778E+01, .160129E+01,
1463 + .137776E+01, .118279E+01, .101352E+01, .865056E+00 /
1464 DATA (UPDI(I),I=5253,5304) /
1465 + .735829E+00, .623442E+00, .525889E+00, .441364E+00,
1466 + .368338E+00, .305420E+00, .251440E+00, .205302E+00,
1467 + .166023E+00, .133087E+00, .105267E+00, .821246E-01,
1468 + .630640E-01, .475305E-01, .350478E-01, .251659E-01,
1469 + .175153E-01, .116904E-01, .743046E-02, .441794E-02,
1470 + .239905E-02, .114151E-02, .441270E-03, .117768E-03,
1471 + .135932E-04, .000000E+00, .462030E+06, .367215E+06,
1472 + .289000E+06, .227387E+06, .178954E+06, .140802E+06,
1473 + .110814E+06, .871930E+05, .686268E+05, .540024E+05,
1474 + .425080E+05, .334537E+05, .263372E+05, .207311E+05,
1475 + .163247E+05, .128531E+05, .101242E+05, .797399E+04,
1476 + .628362E+04, .495136E+04, .390381E+04, .307797E+04,
1477 + .242849E+04, .191633E+04, .151339E+04, .119554E+04 /
1478 DATA (UPDI(I),I=5305,5356) /
1479 + .945326E+03, .745469E+03, .590561E+03, .468198E+03,
1480 + .371779E+03, .295551E+03, .235436E+03, .187977E+03,
1481 + .150402E+03, .120629E+03, .970801E+02, .783731E+02,
1482 + .635305E+02, .516886E+02, .422562E+02, .346869E+02,
1483 + .286104E+02, .236994E+02, .197225E+02, .164793E+02,
1484 + .138364E+02, .116462E+02, .984692E+01, .834123E+01,
1485 + .708919E+01, .603786E+01, .515210E+01, .440215E+01,
1486 + .376526E+01, .322233E+01, .275833E+01, .236070E+01,
1487 + .201927E+01, .172563E+01, .147275E+01, .125488E+01,
1488 + .106688E+01, .905455E+00, .765391E+00, .644797E+00,
1489 + .541030E+00, .451932E+00, .375556E+00, .310290E+00,
1490 + .254665E+00, .207478E+00, .167606E+00, .134050E+00,
1491 + .106243E+00, .830447E-01, .639891E-01, .485037E-01 /
1492 DATA (UPDI(I),I=5357,5408) /
1493 + .360566E-01, .262021E-01, .185195E-01, .126731E-01,
1494 + .830105E-02, .516808E-02, .300117E-02, .158610E-02,
1495 + .730468E-03, .271393E-03, .693738E-04, .807994E-05,
1496 + .000000E+00, .117455E+07, .924176E+06, .719052E+06,
1497 + .559183E+06, .434868E+06, .338023E+06, .262751E+06,
1498 + .204138E+06, .158603E+06, .123162E+06, .956423E+05,
1499 + .742333E+05, .576180E+05, .446983E+05, .346768E+05,
1500 + .268882E+05, .208500E+05, .161596E+05, .125254E+05,
1501 + .970384E+04, .751876E+04, .582312E+04, .451079E+04,
1502 + .349297E+04, .270561E+04, .209520E+04, .162323E+04,
1503 + .125317E+04, .971685E+03, .753622E+03, .585126E+03,
1504 + .454613E+03, .353774E+03, .275848E+03, .215455E+03,
1505 + .168652E+03, .132443E+03, .104329E+03, .825215E+02 /
1506 DATA (UPDI(I),I=5409,5460) /
1507 + .655225E+02, .522889E+02, .419138E+02, .337728E+02,
1508 + .273434E+02, .222530E+02, .181939E+02, .149580E+02,
1509 + .123339E+02, .102233E+02, .849386E+01, .708462E+01,
1510 + .592483E+01, .496646E+01, .417051E+01, .350705E+01,
1511 + .295183E+01, .248579E+01, .209347E+01, .176245E+01,
1512 + .148266E+01, .124580E+01, .104519E+01, .874929E+00,
1513 + .731185E+00, .608527E+00, .504690E+00, .416834E+00,
1514 + .342676E+00, .280186E+00, .227709E+00, .183764E+00,
1515 + .147157E+00, .116795E+00, .917156E-01, .713336E-01,
1516 + .546696E-01, .412651E-01, .306093E-01, .222388E-01,
1517 + .157723E-01, .108589E-01, .722410E-02, .458670E-02,
1518 + .275920E-02, .154118E-02, .779011E-03, .340298E-03,
1519 + .118788E-03, .284950E-04, .336236E-05, .000000E+00 /
1520 DATA (UPDI(I),I=5461,5512) /
1521 + .237751E+07, .185515E+07, .142969E+07, .110112E+07,
1522 + .847953E+06, .652580E+06, .502146E+06, .386138E+06,
1523 + .296881E+06, .228101E+06, .175224E+06, .134510E+06,
1524 + .103236E+06, .791756E+05, .607102E+05, .465170E+05,
1525 + .356342E+05, .272771E+05, .208756E+05, .159645E+05,
1526 + .122063E+05, .932600E+04, .712435E+04, .543881E+04,
1527 + .415174E+04, .316728E+04, .241649E+04, .183612E+04,
1528 + .140096E+04, .106884E+04, .815987E+03, .623172E+03,
1529 + .476475E+03, .364944E+03, .279884E+03, .215069E+03,
1530 + .165755E+03, .128126E+03, .994329E+02, .774605E+02,
1531 + .606499E+02, .477051E+02, .377236E+02, .299811E+02,
1532 + .239570E+02, .192378E+02, .155399E+02, .125926E+02,
1533 + .102622E+02, .838483E+01, .688017E+01, .566228E+01 /
1534 DATA (UPDI(I),I=5513,5564) /
1535 + .467204E+01, .386286E+01, .319896E+01, .265215E+01,
1536 + .220024E+01, .182572E+01, .151453E+01, .125555E+01,
1537 + .103964E+01, .859558E+00, .709025E+00, .583881E+00,
1538 + .478731E+00, .391101E+00, .318117E+00, .257493E+00,
1539 + .207230E+00, .165715E+00, .131533E+00, .103551E+00,
1540 + .807541E-01, .622648E-01, .475216E-01, .357046E-01,
1541 + .263939E-01, .191521E-01, .135930E-01, .940219E-02,
1542 + .630014E-02, .406996E-02, .250109E-02, .145088E-02,
1543 + .777460E-03, .374496E-03, .154418E-03, .503253E-04,
1544 + .112532E-04, .134593E-05, .000000E+00, .424378E+07,
1545 + .328730E+07, .251222E+07, .191854E+07, .146475E+07,
1546 + .111748E+07, .852294E+06, .649541E+06, .494859E+06,
1547 + .376714E+06, .286673E+06, .217973E+06, .165672E+06 /
1548 DATA (UPDI(I),I=5565,5616) /
1549 + .125812E+06, .955023E+05, .724297E+05, .549073E+05,
1550 + .415856E+05, .314819E+05, .238105E+05, .180003E+05,
1551 + .135950E+05, .102635E+05, .774137E+04, .583684E+04,
1552 + .439685E+04, .331151E+04, .248271E+04, .186883E+04,
1553 + .140623E+04, .105846E+04, .796766E+03, .600258E+03,
1554 + .452908E+03, .342051E+03, .258779E+03, .196308E+03,
1555 + .149338E+03, .114038E+03, .874096E+02, .673346E+02,
1556 + .521099E+02, .405434E+02, .317077E+02, .249348E+02,
1557 + .197088E+02, .156741E+02, .125063E+02, .100382E+02,
1558 + .807916E+01, .653171E+01, .529743E+01, .430814E+01,
1559 + .351136E+01, .286686E+01, .234357E+01, .191717E+01,
1560 + .156879E+01, .128338E+01, .104922E+01, .856744E+00,
1561 + .698499E+00, .568087E+00, .461233E+00, .372752E+00 /
1562 DATA (UPDI(I),I=5617,5668) /
1563 + .300100E+00, .240497E+00, .191740E+00, .151943E+00,
1564 + .119592E+00, .933894E-01, .722980E-01, .554121E-01,
1565 + .419591E-01, .314302E-01, .231536E-01, .167645E-01,
1566 + .119010E-01, .825173E-02, .556671E-02, .363043E-02,
1567 + .227731E-02, .135448E-02, .757671E-03, .389523E-03,
1568 + .178852E-03, .696885E-04, .212768E-04, .447160E-05,
1569 + .539685E-06, .000000E+00, .697863E+07, .537011E+07,
1570 + .407266E+07, .308628E+07, .233787E+07, .176952E+07,
1571 + .133875E+07, .101200E+07, .764632E+06, .577218E+06,
1572 + .435517E+06, .328296E+06, .247335E+06, .186157E+06,
1573 + .140029E+06, .105223E+06, .790185E+05, .592768E+05,
1574 + .444381E+05, .332771E+05, .249025E+05, .186146E+05,
1575 + .139052E+05, .103757E+05, .773724E+04, .576304E+04 /
1576 DATA (UPDI(I),I=5669,5720) /
1577 + .429077E+04, .317875E+04, .236413E+04, .175724E+04,
1578 + .130613E+04, .970696E+03, .721758E+03, .537387E+03,
1579 + .400360E+03, .298737E+03, .223457E+03, .167595E+03,
1580 + .126151E+03, .953059E+02, .723565E+02, .551869E+02,
1581 + .423152E+02, .326162E+02, .252804E+02, .196967E+02,
1582 + .154431E+02, .121483E+02, .961534E+01, .763179E+01,
1583 + .608559E+01, .486872E+01, .390616E+01, .314117E+01,
1584 + .253047E+01, .204118E+01, .164769E+01, .133045E+01,
1585 + .107399E+01, .866378E+00, .698006E+00, .561442E+00,
1586 + .450417E+00, .360698E+00, .287439E+00, .228139E+00,
1587 + .180191E+00, .141545E+00, .110474E+00, .856071E-01,
1588 + .657852E-01, .500903E-01, .377375E-01, .280674E-01,
1589 + .206370E-01, .149072E-01, .105727E-01, .734293E-02 /
1590 DATA (UPDI(I),I=5721,5772) /
1591 + .497383E-02, .327237E-02, .207697E-02, .126492E-02,
1592 + .728068E-03, .392657E-03, .193659E-03, .847696E-04,
1593 + .312415E-04, .896095E-05, .178015E-05, .215422E-06,
1594 + .000000E+00, .108128E+08, .826976E+07, .622723E+07,
1595 + .468523E+07, .352325E+07, .264713E+07, .198777E+07,
1596 + .149127E+07, .111811E+07, .837512E+06, .626923E+06,
1597 + .468804E+06, .350320E+06, .261497E+06, .195048E+06,
1598 + .145319E+06, .108182E+06, .804398E+05, .597612E+05,
1599 + .443432E+05, .328742E+05, .243405E+05, .180062E+05,
1600 + .133033E+05, .982020E+04, .723910E+04, .533307E+04,
1601 + .390793E+04, .287455E+04, .211274E+04, .155239E+04,
1602 + .114028E+04, .837732E+03, .616192E+03, .453385E+03,
1603 + .334054E+03, .246680E+03, .182621E+03, .135662E+03 /
1604 DATA (UPDI(I),I=5773,5824) /
1605 + .101140E+03, .757652E+02, .570171E+02, .431338E+02,
1606 + .328037E+02, .250867E+02, .192862E+02, .149221E+02,
1607 + .115837E+02, .904902E+01, .708885E+01, .557970E+01,
1608 + .440676E+01, .349037E+01, .277113E+01, .220403E+01,
1609 + .175534E+01, .139898E+01, .111528E+01, .888814E+00,
1610 + .707816E+00, .562902E+00, .446881E+00, .353783E+00,
1611 + .279545E+00, .219742E+00, .171996E+00, .133931E+00,
1612 + .103688E+00, .797300E-01, .608430E-01, .460214E-01,
1613 + .344730E-01, .255345E-01, .186570E-01, .134673E-01,
1614 + .954040E-02, .662868E-02, .450439E-02, .298087E-02,
1615 + .191269E-02, .118147E-02, .698569E-03, .389093E-03,
1616 + .202305E-03, .957229E-04, .399548E-04, .139419E-04,
1617 + .376562E-05, .709310E-06, .852335E-07, .000000E+00 /
1618 DATA (UPDI(I),I=5825,5876) /
1619 + .159957E+08, .121636E+08, .909805E+07, .679893E+07,
1620 + .507766E+07, .378860E+07, .282489E+07, .210424E+07,
1621 + .156629E+07, .116465E+07, .865324E+06, .642214E+06,
1622 + .476229E+06, .352729E+06, .261021E+06, .192916E+06,
1623 + .142445E+06, .105040E+06, .773790E+05, .569241E+05,
1624 + .418321E+05, .306978E+05, .225029E+05, .164720E+05,
1625 + .120443E+05, .879299E+04, .641414E+04, .465232E+04,
1626 + .338701E+04, .246340E+04, .179071E+04, .130102E+04,
1627 + .945188E+03, .687387E+03, .499926E+03, .364028E+03,
1628 + .265607E+03, .194261E+03, .142544E+03, .104960E+03,
1629 + .776495E+02, .577059E+02, .431073E+02, .323726E+02,
1630 + .244465E+02, .185588E+02, .141807E+02, .108708E+02,
1631 + .838727E+01, .648924E+01, .504504E+01, .393579E+01 /
1632 DATA (UPDI(I),I=5877,5928) /
1633 + .307931E+01, .241504E+01, .189745E+01, .149278E+01,
1634 + .117521E+01, .925434E+00, .728449E+00, .572930E+00,
1635 + .449945E+00, .352704E+00, .275654E+00, .214998E+00,
1636 + .166771E+00, .128777E+00, .988980E-01, .754876E-01,
1637 + .572062E-01, .430049E-01, .320288E-01, .236098E-01,
1638 + .171990E-01, .123491E-01, .875379E-02, .608332E-02,
1639 + .414182E-02, .275450E-02, .178135E-02, .111504E-02,
1640 + .670487E-03, .384981E-03, .207559E-03, .104075E-03,
1641 + .472653E-04, .188268E-04, .622908E-05, .158768E-05,
1642 + .283758E-06, .333424E-07, .000000E+00, .227855E+08,
1643 + .172329E+08, .128077E+08, .950960E+07, .705572E+07,
1644 + .522982E+07, .387342E+07, .286577E+07, .211849E+07,
1645 + .156431E+07, .115406E+07, .850388E+06, .626016E+06 /
1646 DATA (UPDI(I),I=5929,5980) /
1647 + .460260E+06, .338042E+06, .247945E+06, .181660E+06,
1648 + .132907E+06, .971244E+05, .708696E+05, .516487E+05,
1649 + .375824E+05, .273128E+05, .198179E+05, .143612E+05,
1650 + .103887E+05, .750766E+04, .539310E+04, .388827E+04,
1651 + .280007E+04, .201488E+04, .144886E+04, .104152E+04,
1652 + .749372E+03, .539061E+03, .388179E+03, .280037E+03,
1653 + .202479E+03, .146857E+03, .106875E+03, .781360E+02,
1654 + .573812E+02, .423552E+02, .314295E+02, .234517E+02,
1655 + .175916E+02, .132826E+02, .100613E+02, .767131E+01,
1656 + .586525E+01, .450641E+01, .347446E+01, .268661E+01,
1657 + .208247E+01, .161705E+01, .125732E+01, .978232E+00,
1658 + .761251E+00, .592118E+00, .460150E+00, .357025E+00,
1659 + .276461E+00, .213398E+00, .164364E+00, .125866E+00 /
1660 DATA (UPDI(I),I=5981,6032) /
1661 + .959254E-01, .726879E-01, .547250E-01, .408908E-01,
1662 + .302961E-01, .222273E-01, .161314E-01, .115626E-01,
1663 + .816247E-02, .568492E-02, .387755E-02, .258843E-02,
1664 + .168569E-02, .106598E-02, .651340E-03, .381536E-03,
1665 + .212901E-03, .111205E-03, .538311E-04, .234959E-04,
1666 + .894672E-05, .281354E-05, .678380E-06, .114841E-06,
1667 + .128778E-07, .000000E+00, .314374E+08, .236539E+08,
1668 + .174726E+08, .128935E+08, .950667E+07, .700208E+07,
1669 + .515282E+07, .378770E+07, .278161E+07, .204032E+07,
1670 + .149507E+07, .109414E+07, .799858E+06, .583936E+06,
1671 + .425806E+06, .310052E+06, .225485E+06, .163734E+06,
1672 + .118737E+06, .859682E+05, .621567E+05, .448651E+05,
1673 + .323379E+05, .232681E+05, .167177E+05, .119879E+05 /
1674 DATA (UPDI(I),I=6033,6084) /
1675 + .858659E+04, .611159E+04, .436559E+04, .311424E+04,
1676 + .221941E+04, .158031E+04, .112464E+04, .800963E+03,
1677 + .570187E+03, .406264E+03, .289939E+03, .207362E+03,
1678 + .148742E+03, .107044E+03, .773826E+02, .561875E+02,
1679 + .410039E+02, .300815E+02, .221907E+02, .164564E+02,
1680 + .122849E+02, .919980E+01, .693547E+01, .524275E+01,
1681 + .398286E+01, .303640E+01, .232160E+01, .177941E+01,
1682 + .136626E+01, .105041E+01, .808066E+00, .621729E+00,
1683 + .478103E+00, .367295E+00, .281689E+00, .215580E+00,
1684 + .164434E+00, .125135E+00, .946518E-01, .712356E-01,
1685 + .532906E-01, .395969E-01, .291900E-01, .213280E-01,
1686 + .154244E-01, .110287E-01, .778367E-02, .540640E-02,
1687 + .370249E-02, .248075E-02, .162512E-02, .103739E-02 /
1688 DATA (UPDI(I),I=6085,6136) /
1689 + .642155E-03, .383471E-03, .219112E-03, .119003E-03,
1690 + .603279E-04, .282516E-04, .118821E-04, .433918E-05,
1691 + .130217E-05, .298021E-06, .476117E-07, .490711E-08,
1692 + .000000E+00, .421908E+08, .315883E+08, .231968E+08,
1693 + .170162E+08, .124711E+08, .912986E+07, .667731E+07,
1694 + .487779E+07, .355953E+07, .259426E+07, .188864E+07,
1695 + .137310E+07, .997085E+06, .723003E+06, .523587E+06,
1696 + .378595E+06, .273379E+06, .197083E+06, .141874E+06,
1697 + .101955E+06, .731560E+05, .523971E+05, .374696E+05,
1698 + .267447E+05, .190583E+05, .135522E+05, .962453E+04,
1699 + .679015E+04, .480739E+04, .339850E+04, .239969E+04,
1700 + .169266E+04, .119305E+04, .841422E+03, .593033E+03,
1701 + .418276E+03, .295446E+03, .209104E+03, .148411E+03 /
1702 DATA (UPDI(I),I=6137,6188) /
1703 + .105670E+03, .755696E+02, .542790E+02, .391814E+02,
1704 + .284322E+02, .207458E+02, .152174E+02, .112370E+02,
1705 + .832346E+01, .620719E+01, .464148E+01, .348819E+01,
1706 + .263077E+01, .198993E+01, .150890E+01, .114617E+01,
1707 + .871767E+00, .663441E+00, .504957E+00, .384102E+00,
1708 + .291864E+00, .221379E+00, .167543E+00, .126356E+00,
1709 + .950644E-01, .710714E-01, .528560E-01, .390637E-01,
1710 + .286672E-01, .208651E-01, .150466E-01, .107354E-01,
1711 + .756921E-02, .526507E-02, .360190E-02, .242817E-02,
1712 + .160008E-02, .102999E-02, .645401E-03, .391699E-03,
1713 + .229012E-03, .127906E-03, .677729E-04, .334384E-04,
1714 + .151997E-04, .618523E-05, .217713E-05, .627131E-06,
1715 + .136927E-06, .205598E-07, .184392E-08, .000000E+00 /
1716 DATA (UPDI(I),I=6189,6240) /
1717 + .552553E+08, .411739E+08, .300650E+08, .219285E+08,
1718 + .159783E+08, .116290E+08, .845460E+07, .613907E+07,
1719 + .445266E+07, .322522E+07, .233329E+07, .168563E+07,
1720 + .121616E+07, .876111E+06, .630261E+06, .452668E+06,
1721 + .324631E+06, .232409E+06, .166122E+06, .118524E+06,
1722 + .844234E+05, .600182E+05, .425943E+05, .301681E+05,
1723 + .213286E+05, .150446E+05, .105971E+05, .741307E+04,
1724 + .520376E+04, .364683E+04, .255223E+04, .178404E+04,
1725 + .124588E+04, .870467E+03, .607644E+03, .424426E+03,
1726 + .296834E+03, .207989E+03, .146127E+03, .102981E+03,
1727 + .728887E+02, .518116E+02, .370113E+02, .265777E+02,
1728 + .191904E+02, .139297E+02, .101796E+02, .746174E+01,
1729 + .550724E+01, .407555E+01, .303146E+01, .226294E+01 /
1730 DATA (UPDI(I),I=6241,6292) /
1731 + .169425E+01, .127162E+01, .956110E+00, .719816E+00,
1732 + .542226E+00, .408487E+00, .307538E+00, .231280E+00,
1733 + .173607E+00, .130015E+00, .970153E-01, .722112E-01,
1734 + .533985E-01, .392731E-01, .286981E-01, .208179E-01,
1735 + .149737E-01, .106676E-01, .751656E-02, .523168E-02,
1736 + .359085E-02, .242260E-02, .160986E-02, .104492E-02,
1737 + .662048E-03, .407969E-03, .243261E-03, .139575E-03,
1738 + .764028E-04, .396178E-04, .190944E-04, .846164E-05,
1739 + .334922E-05, .114351E-05, .318496E-06, .667897E-07,
1740 + .940884E-08, .682771E-09, .000000E+00, .707986E+08,
1741 + .525158E+08, .381371E+08, .276625E+08, .200435E+08,
1742 + .145051E+08, .104851E+08, .756930E+07, .545768E+07,
1743 + .392965E+07, .282573E+07, .202889E+07, .145471E+07 /
1744 DATA (UPDI(I),I=6293,6344) /
1745 + .104136E+07, .744343E+06, .531134E+06, .378387E+06,
1746 + .269079E+06, .191021E+06, .135345E+06, .957242E+05,
1747 + .675639E+05, .475987E+05, .334615E+05, .234773E+05,
1748 + .164317E+05, .114829E+05, .796721E+04, .554686E+04,
1749 + .385481E+04, .267476E+04, .185346E+04, .128286E+04,
1750 + .888244E+03, .614352E+03, .425105E+03, .294489E+03,
1751 + .204364E+03, .142185E+03, .992195E+02, .695326E+02,
1752 + .489350E+02, .346078E+02, .246036E+02, .175878E+02,
1753 + .126391E+02, .914497E+01, .663674E+01, .485022E+01,
1754 + .355402E+01, .261776E+01, .193514E+01, .143482E+01,
1755 + .106653E+01, .794204E+00, .592186E+00, .441808E+00,
1756 + .329643E+00, .245794E+00, .183063E+00, .136083E+00,
1757 + .100919E+00, .745630E-01, .549498E-01, .402249E-01 /
1758 DATA (UPDI(I),I=6345,6396) /
1759 + .292820E-01, .211754E-01, .151986E-01, .108142E-01,
1760 + .761942E-02, .530815E-02, .365168E-02, .247644E-02,
1761 + .165005E-02, .108252E-02, .693278E-03, .433160E-03,
1762 + .263048E-03, .154460E-03, .872006E-04, .469238E-04,
1763 + .238937E-04, .112945E-04, .490252E-05, .189798E-05,
1764 + .632673E-06, .171641E-06, .348285E-07, .461738E-08,
1765 + .248718E-09, .000000E+00, .204568E+05, .225707E+05,
1766 + .180411E+05, .144230E+05, .115327E+05, .922366E+04,
1767 + .737875E+04, .590451E+04, .472630E+04, .378453E+04,
1768 + .303164E+04, .242962E+04, .194814E+04, .156298E+04,
1769 + .125478E+04, .100810E+04, .810589E+03, .652394E+03,
1770 + .525637E+03, .424025E+03, .342532E+03, .277139E+03,
1771 + .224634E+03, .182451E+03, .148538E+03, .121252E+03 /
1772 DATA (UPDI(I),I=6397,6448) /
1773 + .992816E+02, .813500E+02, .671156E+02, .556202E+02,
1774 + .463269E+02, .388048E+02, .327084E+02, .277736E+02,
1775 + .237506E+02, .204743E+02, .177989E+02, .156067E+02,
1776 + .138028E+02, .123093E+02, .110660E+02, .100205E+02,
1777 + .913275E+01, .837035E+01, .770754E+01, .712412E+01,
1778 + .660618E+01, .613669E+01, .571228E+01, .532088E+01,
1779 + .496120E+01, .462755E+01, .431631E+01, .402413E+01,
1780 + .374787E+01, .348480E+01, .323277E+01, .299036E+01,
1781 + .275685E+01, .253209E+01, .231626E+01, .210972E+01,
1782 + .191286E+01, .172689E+01, .155014E+01, .138400E+01,
1783 + .122856E+01, .108387E+01, .949862E+00, .826430E+00,
1784 + .713397E+00, .610529E+00, .517490E+00, .433882E+00,
1785 + .360049E+00, .294481E+00, .237274E+00, .187924E+00 /
1786 DATA (UPDI(I),I=6449,6500) /
1787 + .145906E+00, .110671E+00, .816498E-01, .582883E-01,
1788 + .398531E-01, .258955E-01, .157105E-01, .868002E-02,
1789 + .418842E-02, .163191E-02, .430455E-03, .437475E-04,
1790 + .000000E+00, .354882E+05, .285135E+05, .227171E+05,
1791 + .180991E+05, .144230E+05, .114941E+05, .916228E+04,
1792 + .730422E+04, .582485E+04, .464585E+04, .370698E+04,
1793 + .295858E+04, .236247E+04, .188717E+04, .150846E+04,
1794 + .120639E+04, .965608E+03, .773450E+03, .620197E+03,
1795 + .497815E+03, .400143E+03, .322081E+03, .259722E+03,
1796 + .209831E+03, .169928E+03, .137966E+03, .112365E+03,
1797 + .915647E+02, .751402E+02, .619324E+02, .513113E+02,
1798 + .427490E+02, .358445E+02, .302753E+02, .257561E+02,
1799 + .220862E+02, .191011E+02, .166603E+02, .146580E+02 /
1800 DATA (UPDI(I),I=6501,6552) /
1801 + .130025E+02, .116279E+02, .104731E+02, .949507E+01,
1802 + .865632E+01, .792944E+01, .729134E+01, .672725E+01,
1803 + .621798E+01, .576002E+01, .533962E+01, .495538E+01,
1804 + .460060E+01, .427135E+01, .396371E+01, .367444E+01,
1805 + .340055E+01, .313989E+01, .289094E+01, .265290E+01,
1806 + .242547E+01, .220868E+01, .200271E+01, .180771E+01,
1807 + .162474E+01, .145193E+01, .129051E+01, .114041E+01,
1808 + .100152E+01, .873654E+00, .756570E+00, .649971E+00,
1809 + .553533E+00, .466840E+00, .389390E+00, .321416E+00,
1810 + .261428E+00, .209421E+00, .164860E+00, .127178E+00,
1811 + .958129E-01, .701697E-01, .497011E-01, .336876E-01,
1812 + .216824E-01, .130138E-01, .710215E-02, .337701E-02,
1813 + .129230E-02, .334251E-03, .341758E-04, .000000E+00 /
1814 DATA (UPDI(I),I=6553,6604) /
1815 + .255349E+05, .369751E+05, .293115E+05, .232346E+05,
1816 + .184217E+05, .146052E+05, .115825E+05, .918541E+04,
1817 + .728677E+04, .578100E+04, .458821E+04, .364210E+04,
1818 + .289253E+04, .229785E+04, .182660E+04, .145261E+04,
1819 + .115615E+04, .920773E+03, .734102E+03, .585811E+03,
1820 + .468137E+03, .374588E+03, .300287E+03, .241160E+03,
1821 + .194144E+03, .156690E+03, .126864E+03, .102762E+03,
1822 + .838390E+02, .687000E+02, .565944E+02, .468827E+02,
1823 + .390927E+02, .328370E+02, .277851E+02, .236982E+02,
1824 + .203877E+02, .176891E+02, .154828E+02, .136632E+02,
1825 + .121566E+02, .108936E+02, .982683E+01, .891408E+01,
1826 + .812565E+01, .743568E+01, .682818E+01, .628194E+01,
1827 + .579303E+01, .534622E+01, .493979E+01, .456616E+01 /
1828 DATA (UPDI(I),I=6605,6656) /
1829 + .422101E+01, .389996E+01, .359958E+01, .331668E+01,
1830 + .304906E+01, .279505E+01, .255380E+01, .232481E+01,
1831 + .210798E+01, .190330E+01, .171073E+01, .153111E+01,
1832 + .136247E+01, .120585E+01, .106102E+01, .927769E+00,
1833 + .805759E+00, .694657E+00, .594054E+00, .503549E+00,
1834 + .422653E+00, .350782E+00, .288072E+00, .233057E+00,
1835 + .185652E+00, .145293E+00, .111388E+00, .833652E-01,
1836 + .606187E-01, .426085E-01, .286359E-01, .182584E-01,
1837 + .108419E-01, .584431E-02, .273811E-02, .102892E-02,
1838 + .260865E-03, .268370E-04, .000000E+00, .748539E+05,
1839 + .593495E+05, .465864E+05, .365647E+05, .287031E+05,
1840 + .225302E+05, .176882E+05, .138864E+05, .109044E+05,
1841 + .856298E+04, .672646E+04, .528439E+04, .415321E+04 /
1842 DATA (UPDI(I),I=6657,6708) /
1843 + .326489E+04, .256799E+04, .202059E+04, .159106E+04,
1844 + .125355E+04, .988626E+03, .780360E+03, .616803E+03,
1845 + .488141E+03, .387016E+03, .307388E+03, .244733E+03,
1846 + .195345E+03, .156433E+03, .125313E+03, .101131E+03,
1847 + .819809E+02, .668208E+02, .547767E+02, .452066E+02,
1848 + .375911E+02, .314942E+02, .266017E+02, .226690E+02,
1849 + .194854E+02, .168997E+02, .147796E+02, .130343E+02,
1850 + .115788E+02, .103562E+02, .931571E+01, .842224E+01,
1851 + .764524E+01, .696577E+01, .635919E+01, .582041E+01,
1852 + .533171E+01, .489058E+01, .448802E+01, .411892E+01,
1853 + .377818E+01, .346196E+01, .316675E+01, .289014E+01,
1854 + .263026E+01, .238601E+01, .215663E+01, .194167E+01,
1855 + .174086E+01, .155377E+01, .138097E+01, .122025E+01 /
1856 DATA (UPDI(I),I=6709,6760) /
1857 + .107237E+01, .936883E+00, .813350E+00, .701257E+00,
1858 + .600105E+00, .509329E+00, .428410E+00, .356757E+00,
1859 + .293679E+00, .239164E+00, .191803E+00, .151399E+00,
1860 + .117359E+00, .890701E-01, .659548E-01, .474118E-01,
1861 + .329194E-01, .218302E-01, .137176E-01, .801302E-02,
1862 + .423957E-02, .194322E-02, .711550E-03, .175701E-03,
1863 + .182326E-04, .000000E+00, .119497E+06, .939513E+05,
1864 + .730478E+05, .567870E+05, .441491E+05, .343194E+05,
1865 + .266812E+05, .207411E+05, .161261E+05, .125375E+05,
1866 + .974970E+04, .758212E+04, .589838E+04, .458922E+04,
1867 + .357230E+04, .278154E+04, .216723E+04, .168944E+04,
1868 + .131818E+04, .102932E+04, .804793E+03, .629997E+03,
1869 + .494025E+03, .388079E+03, .305576E+03, .241227E+03 /
1870 DATA (UPDI(I),I=6761,6812) /
1871 + .191057E+03, .151350E+03, .120814E+03, .968801E+02,
1872 + .781226E+02, .633684E+02, .517569E+02, .426037E+02,
1873 + .353409E+02, .295630E+02, .249558E+02, .212546E+02,
1874 + .182696E+02, .158385E+02, .138497E+02, .122011E+02,
1875 + .108242E+02, .965944E+01, .866524E+01, .780615E+01,
1876 + .705979E+01, .639807E+01, .581440E+01, .528873E+01,
1877 + .481751E+01, .439047E+01, .400161E+01, .364521E+01,
1878 + .331693E+01, .301298E+01, .273065E+01, .246785E+01,
1879 + .222320E+01, .199564E+01, .178443E+01, .158898E+01,
1880 + .140853E+01, .124336E+01, .109110E+01, .952238E+00,
1881 + .826107E+00, .712100E+00, .609540E+00, .517790E+00,
1882 + .436165E+00, .364046E+00, .300764E+00, .245554E+00,
1883 + .198284E+00, .157611E+00, .123257E+00, .946124E-01 /
1884 DATA (UPDI(I),I=6813,6864) /
1885 + .710641E-01, .520426E-01, .369656E-01, .253370E-01,
1886 + .165613E-01, .102410E-01, .587392E-02, .304280E-02,
1887 + .135975E-02, .482717E-03, .115303E-03, .120964E-04,
1888 + .000000E+00, .185145E+06, .144480E+06, .111380E+06,
1889 + .858440E+05, .661617E+05, .509816E+05, .392851E+05,
1890 + .302668E+05, .233203E+05, .179658E+05, .138425E+05,
1891 + .106651E+05, .821877E+04, .633393E+04, .488308E+04,
1892 + .376529E+04, .290495E+04, .224208E+04, .173184E+04,
1893 + .133865E+04, .103593E+04, .802566E+03, .622790E+03,
1894 + .484095E+03, .377151E+03, .294569E+03, .230826E+03,
1895 + .180881E+03, .142853E+03, .113344E+03, .904421E+02,
1896 + .726037E+02, .586966E+02, .478363E+02, .392952E+02,
1897 + .325595E+02, .272321E+02, .229859E+02, .195860E+02 /
1898 DATA (UPDI(I),I=6865,6916) /
1899 + .168365E+02, .146016E+02, .127608E+02, .112325E+02,
1900 + .994761E+01, .885740E+01, .792127E+01, .711308E+01,
1901 + .640125E+01, .577748E+01, .521943E+01, .472244E+01,
1902 + .427502E+01, .387027E+01, .350185E+01, .316496E+01,
1903 + .285545E+01, .257033E+01, .230724E+01, .206448E+01,
1904 + .184071E+01, .163487E+01, .144607E+01, .127326E+01,
1905 + .111645E+01, .973095E+00, .843459E+00, .726688E+00,
1906 + .622022E+00, .528649E+00, .445819E+00, .372751E+00,
1907 + .308750E+00, .253087E+00, .204949E+00, .164112E+00,
1908 + .129304E+00, .100191E+00, .761633E-01, .566206E-01,
1909 + .410123E-01, .287870E-01, .194798E-01, .125532E-01,
1910 + .764113E-02, .430478E-02, .218411E-02, .952072E-03,
1911 + .327992E-03, .759132E-04, .804853E-05, .000000E+00 /
1912 DATA (UPDI(I),I=6917,6968) /
1913 + .278176E+06, .215640E+06, .164972E+06, .126171E+06,
1914 + .964864E+05, .737636E+05, .563875E+05, .430932E+05,
1915 + .329318E+05, .251609E+05, .192241E+05, .146858E+05,
1916 + .112200E+05, .857163E+04, .654988E+04, .500540E+04,
1917 + .382667E+04, .292633E+04, .223930E+04, .171455E+04,
1918 + .131412E+04, .100822E+04, .774689E+03, .596189E+03,
1919 + .459820E+03, .355501E+03, .275739E+03, .213839E+03,
1920 + .167153E+03, .131272E+03, .103685E+03, .823998E+02,
1921 + .659566E+02, .532332E+02, .433136E+02, .355582E+02,
1922 + .294734E+02, .246617E+02, .208370E+02, .177657E+02,
1923 + .152854E+02, .132557E+02, .115805E+02, .101808E+02,
1924 + .900008E+01, .799247E+01, .712781E+01, .637103E+01,
1925 + .571196E+01, .512609E+01, .460754E+01, .414369E+01 /
1926 DATA (UPDI(I),I=6969,7020) /
1927 + .372671E+01, .334971E+01, .300736E+01, .269522E+01,
1928 + .240993E+01, .214885E+01, .190999E+01, .169169E+01,
1929 + .149258E+01, .131149E+01, .114711E+01, .999170E+00,
1930 + .865032E+00, .744715E+00, .637218E+00, .541647E+00,
1931 + .457083E+00, .382682E+00, .317597E+00, .261070E+00,
1932 + .212335E+00, .170555E+00, .135432E+00, .105773E+00,
1933 + .812057E-01, .611354E-01, .449839E-01, .322279E-01,
1934 + .223546E-01, .149346E-01, .948877E-02, .568568E-02,
1935 + .314643E-02, .156378E-02, .665134E-03, .222541E-03,
1936 + .500035E-04, .535696E-05, .000000E+00, .406282E+06,
1937 + .313063E+06, .237847E+06, .180636E+06, .137158E+06,
1938 + .104105E+06, .790034E+05, .599326E+05, .454585E+05,
1939 + .344690E+05, .261335E+05, .198087E+05, .150142E+05 /
1940 DATA (UPDI(I),I=7021,7072) /
1941 + .113783E+05, .862365E+04, .653565E+04, .495452E+04,
1942 + .375647E+04, .284958E+04, .216258E+04, .164266E+04,
1943 + .124881E+04, .950684E+03, .724779E+03, .553688E+03,
1944 + .423959E+03, .325652E+03, .250048E+03, .193542E+03,
1945 + .150508E+03, .117717E+03, .926470E+02, .734496E+02,
1946 + .587264E+02, .473444E+02, .385204E+02, .316516E+02,
1947 + .262622E+02, .220087E+02, .186171E+02, .158956E+02,
1948 + .136826E+02, .118670E+02, .103589E+02, .909414E+01,
1949 + .802116E+01, .710577E+01, .630939E+01, .561994E+01,
1950 + .501079E+01, .447485E+01, .399839E+01, .357273E+01,
1951 + .319039E+01, .284556E+01, .253345E+01, .225036E+01,
1952 + .199337E+01, .176013E+01, .154872E+01, .135748E+01,
1953 + .118496E+01, .102960E+01, .890899E+00, .766137E+00 /
1954 DATA (UPDI(I),I=7073,7124) /
1955 + .655119E+00, .556720E+00, .469935E+00, .393762E+00,
1956 + .327287E+00, .269614E+00, .219944E+00, .177489E+00,
1957 + .141408E+00, .111348E+00, .861993E-01, .655699E-01,
1958 + .488859E-01, .356015E-01, .252267E-01, .172915E-01,
1959 + .114045E-01, .714365E-02, .421350E-02, .229041E-02,
1960 + .111508E-02, .462869E-03, .150501E-03, .328841E-04,
1961 + .355889E-05, .000000E+00, .578497E+06, .443314E+06,
1962 + .334653E+06, .252515E+06, .190481E+06, .143620E+06,
1963 + .108257E+06, .815650E+05, .614385E+05, .462590E+05,
1964 + .348225E+05, .262039E+05, .197155E+05, .148295E+05,
1965 + .111540E+05, .838811E+04, .630886E+04, .474513E+04,
1966 + .357027E+04, .268712E+04, .202389E+04, .152546E+04,
1967 + .115117E+04, .869856E+03, .658544E+03, .499647E+03 /
1968 DATA (UPDI(I),I=7125,7176) /
1969 + .380252E+03, .289219E+03, .221766E+03, .170841E+03,
1970 + .132369E+03, .103211E+03, .810722E+02, .642377E+02,
1971 + .513297E+02, .414041E+02, .337368E+02, .277662E+02,
1972 + .230869E+02, .193813E+02, .164263E+02, .140384E+02,
1973 + .120905E+02, .104819E+02, .914040E+01, .800877E+01,
1974 + .704874E+01, .621832E+01, .550349E+01, .487564E+01,
1975 + .432644E+01, .384112E+01, .341017E+01, .302557E+01,
1976 + .268103E+01, .237140E+01, .209265E+01, .184155E+01,
1977 + .161545E+01, .141214E+01, .122967E+01, .106638E+01,
1978 + .920468E+00, .791212E+00, .675859E+00, .574014E+00,
1979 + .484455E+00, .406087E+00, .337850E+00, .278780E+00,
1980 + .227949E+00, .184537E+00, .147748E+00, .116752E+00,
1981 + .911599E-01, .699478E-01, .527155E-01, .389192E-01 /
1982 DATA (UPDI(I),I=7177,7228) /
1983 + .280505E-01, .196570E-01, .133136E-01, .866797E-02,
1984 + .535240E-02, .310728E-02, .165901E-02, .791152E-03,
1985 + .320530E-03, .101333E-03, .215607E-04, .235676E-05,
1986 + .000000E+00, .805151E+06, .613840E+06, .460607E+06,
1987 + .345452E+06, .258988E+06, .194060E+06, .145355E+06,
1988 + .108816E+06, .814335E+05, .609104E+05, .455450E+05,
1989 + .340398E+05, .254344E+05, .189969E+05, .141865E+05,
1990 + .105912E+05, .790691E+04, .590234E+04, .440692E+04,
1991 + .329094E+04, .245895E+04, .183837E+04, .137586E+04,
1992 + .103092E+04, .773819E+03, .582018E+03, .439052E+03,
1993 + .330943E+03, .251492E+03, .192008E+03, .147437E+03,
1994 + .113938E+03, .887099E+02, .696831E+02, .552087E+02,
1995 + .441660E+02, .356988E+02, .291534E+02, .240581E+02 /
1996 DATA (UPDI(I),I=7229,7280) /
1997 + .200497E+02, .168727E+02, .143206E+02, .122503E+02,
1998 + .105503E+02, .914004E+01, .795695E+01, .695868E+01,
1999 + .609996E+01, .536484E+01, .472284E+01, .416444E+01,
2000 + .367390E+01, .324093E+01, .285697E+01, .251528E+01,
2001 + .221037E+01, .193787E+01, .169424E+01, .147655E+01,
2002 + .128230E+01, .110933E+01, .955723E+00, .819522E+00,
2003 + .699790E+00, .593758E+00, .500865E+00, .419811E+00,
2004 + .349441E+00, .288651E+00, .236447E+00, .191892E+00,
2005 + .154156E+00, .122449E+00, .959652E-01, .742948E-01,
2006 + .564999E-01, .421837E-01, .308378E-01, .219945E-01,
2007 + .152417E-01, .101994E-01, .655431E-02, .398930E-02,
2008 + .227921E-02, .119510E-02, .558203E-03, .220742E-03,
2009 + .678831E-04, .140823E-04, .155445E-05, .000000E+00 /
2010 DATA (UPDI(I),I=7281,7332) /
2011 + .109775E+07, .832867E+06, .621411E+06, .463381E+06,
2012 + .345380E+06, .257270E+06, .191549E+06, .142530E+06,
2013 + .106008E+06, .787971E+05, .585461E+05, .434753E+05,
2014 + .322719E+05, .239437E+05, .177596E+05, .131675E+05,
2015 + .976138E+04, .723469E+04, .536241E+04, .397482E+04,
2016 + .294751E+04, .218668E+04, .162371E+04, .120693E+04,
2017 + .898583E+03, .670276E+03, .501404E+03, .374704E+03,
2018 + .282322E+03, .213705E+03, .162694E+03, .124661E+03,
2019 + .962417E+02, .749763E+02, .589211E+02, .467644E+02,
2020 + .375095E+02, .304050E+02, .249105E+02, .206154E+02,
2021 + .172309E+02, .145276E+02, .123464E+02, .105649E+02,
2022 + .909471E+01, .786776E+01, .683788E+01, .595669E+01,
2023 + .520637E+01, .455472E+01, .399109E+01, .349882E+01 /
2024 DATA (UPDI(I),I=7333,7384) /
2025 + .306691E+01, .268630E+01, .234980E+01, .205161E+01,
2026 + .178702E+01, .155222E+01, .134398E+01, .115958E+01,
2027 + .996611E+00, .852992E+00, .726604E+00, .616339E+00,
2028 + .519433E+00, .435185E+00, .362240E+00, .299402E+00,
2029 + .245544E+00, .199663E+00, .160822E+00, .128198E+00,
2030 + .101020E+00, .785155E-01, .602665E-01, .454205E-01,
2031 + .335929E-01, .243143E-01, .171595E-01, .117577E-01,
2032 + .777281E-02, .492957E-02, .295708E-02, .166244E-02,
2033 + .855972E-03, .391547E-03, .151142E-03, .452310E-04,
2034 + .915868E-05, .102075E-05, .000000E+00, .146876E+07,
2035 + .110922E+07, .823108E+06, .610420E+06, .452446E+06,
2036 + .335126E+06, .248092E+06, .183536E+06, .135704E+06,
2037 + .100271E+06, .740501E+05, .546508E+05, .403142E+05 /
2038 DATA (UPDI(I),I=7385,7436) /
2039 + .297209E+05, .219023E+05, .161325E+05, .118794E+05,
2040 + .874456E+04, .643658E+04, .473735E+04, .348767E+04,
2041 + .256844E+04, .189292E+04, .139634E+04, .103155E+04,
2042 + .763400E+03, .566510E+03, .419899E+03, .313804E+03,
2043 + .235600E+03, .177900E+03, .135208E+03, .103546E+03,
2044 + .800329E+02, .624091E+02, .491609E+02, .391436E+02,
2045 + .315054E+02, .256347E+02, .210731E+02, .174986E+02,
2046 + .146592E+02, .123797E+02, .105276E+02, .900660E+01,
2047 + .774366E+01, .668890E+01, .579107E+01, .503058E+01,
2048 + .437369E+01, .380863E+01, .331797E+01, .288999E+01,
2049 + .251522E+01, .218604E+01, .189632E+01, .164107E+01,
2050 + .141620E+01, .121824E+01, .104425E+01, .891627E+00,
2051 + .758131E+00, .641526E+00, .540556E+00, .452489E+00 /
2052 DATA (UPDI(I),I=7437,7488) /
2053 + .376505E+00, .311220E+00, .255414E+00, .207960E+00,
2054 + .167854E+00, .134178E+00, .106127E+00, .829579E-01,
2055 + .639392E-01, .486556E-01, .363382E-01, .266208E-01,
2056 + .190753E-01, .133195E-01, .902312E-02, .589218E-02,
2057 + .368749E-02, .217976E-02, .120567E-02, .609507E-03,
2058 + .273022E-03, .102880E-03, .299733E-04, .593026E-05,
2059 + .667237E-06, .000000E+00, .193130E+07, .145209E+07,
2060 + .107191E+07, .790739E+06, .582964E+06, .429465E+06,
2061 + .316186E+06, .232611E+06, .171019E+06, .125642E+06,
2062 + .922477E+05, .676799E+05, .496261E+05, .363633E+05,
2063 + .266314E+05, .194924E+05, .142615E+05, .104296E+05,
2064 + .762590E+04, .557475E+04, .407587E+04, .298055E+04,
2065 + .218094E+04, .159710E+04, .117114E+04, .860170E+03 /
2066 DATA (UPDI(I),I=7489,7540) /
2067 + .633458E+03, .465857E+03, .345450E+03, .257344E+03,
2068 + .192807E+03, .145408E+03, .110507E+03, .847743E+02,
2069 + .656209E+02, .513219E+02, .405805E+02, .324421E+02,
2070 + .262240E+02, .214200E+02, .176754E+02, .147162E+02,
2071 + .123522E+02, .104407E+02, .887844E+01, .758746E+01,
2072 + .651457E+01, .560586E+01, .484011E+01, .418220E+01,
2073 + .361935E+01, .313338E+01, .271201E+01, .234530E+01,
2074 + .202530E+01, .174558E+01, .150085E+01, .128680E+01,
2075 + .109973E+01, .936518E+00, .794412E+00, .671030E+00,
2076 + .564053E+00, .472107E+00, .392511E+00, .324354E+00,
2077 + .266241E+00, .216948E+00, .175359E+00, .140490E+00,
2078 + .111449E+00, .874590E-01, .678131E-01, .518269E-01,
2079 + .390963E-01, .289326E-01, .209928E-01, .148908E-01 /
2080 DATA (UPDI(I),I=7541,7592) /
2081 + .102864E-01, .688874E-02, .444298E-02, .274346E-02,
2082 + .159788E-02, .869443E-03, .431494E-03, .189257E-03,
2083 + .696229E-04, .197556E-04, .382302E-05, .434174E-06,
2084 + .000000E+00, .249873E+07, .187074E+07, .137397E+07,
2085 + .100840E+07, .739590E+06, .542002E+06, .396923E+06,
2086 + .290441E+06, .212374E+06, .155163E+06, .113284E+06,
2087 + .826414E+05, .602467E+05, .438868E+05, .319497E+05,
2088 + .232434E+05, .169010E+05, .122825E+05, .892334E+04,
2089 + .648086E+04, .470700E+04, .341890E+04, .248454E+04,
2090 + .180674E+04, .131547E+04, .959214E+03, .701250E+03,
2091 + .511866E+03, .376758E+03, .278588E+03, .207178E+03,
2092 + .155099E+03, .117016E+03, .891302E+02, .685119E+02,
2093 + .532201E+02, .418041E+02, .332066E+02, .266746E+02 /
2094 DATA (UPDI(I),I=7593,7644) /
2095 + .216552E+02, .177624E+02, .147009E+02, .122666E+02,
2096 + .103074E+02, .871338E+01, .740232E+01, .631790E+01,
2097 + .540393E+01, .463762E+01, .398269E+01, .342544E+01,
2098 + .294703E+01, .253465E+01, .217801E+01, .186880E+01,
2099 + .160032E+01, .136707E+01, .116450E+01, .988733E+00,
2100 + .836497E+00, .704917E+00, .591509E+00, .493898E+00,
2101 + .410620E+00, .339065E+00, .278254E+00, .226798E+00,
2102 + .183487E+00, .147231E+00, .117074E+00, .921613E-01,
2103 + .717527E-01, .551823E-01, .418163E-01, .312689E-01,
2104 + .229272E-01, .164750E-01, .115673E-01, .790436E-02,
2105 + .523246E-02, .333279E-02, .203025E-02, .116496E-02,
2106 + .623488E-03, .303736E-03, .130438E-03, .468505E-04,
2107 + .129531E-04, .245410E-05, .281274E-06, .000000E+00 /
2108 DATA (UPDI(I),I=7645,7696) /
2109 + .204869E+05, .224252E+05, .179109E+05, .143065E+05,
2110 + .114286E+05, .913058E+04, .729561E+04, .583028E+04,
2111 + .466007E+04, .372547E+04, .297901E+04, .238276E+04,
2112 + .190644E+04, .152591E+04, .122185E+04, .978876E+03,
2113 + .784680E+03, .629445E+03, .505330E+03, .406075E+03,
2114 + .326680E+03, .263154E+03, .212307E+03, .171594E+03,
2115 + .138981E+03, .112843E+03, .918810E+02, .748457E+02,
2116 + .613815E+02, .505552E+02, .418395E+02, .348127E+02,
2117 + .291375E+02, .245563E+02, .208285E+02, .177945E+02,
2118 + .153151E+02, .132788E+02, .115965E+02, .101962E+02,
2119 + .902305E+01, .802976E+01, .718102E+01, .644846E+01,
2120 + .580971E+01, .524718E+01, .474871E+01, .429848E+01,
2121 + .389322E+01, .352099E+01, .318011E+01, .286512E+01 /
2122 DATA (UPDI(I),I=7697,7748) /
2123 + .257328E+01, .230296E+01, .205338E+01, .182418E+01,
2124 + .161505E+01, .142541E+01, .125434E+01, .110061E+01,
2125 + .962840E+00, .839594E+00, .729499E+00, .631717E+00,
2126 + .544098E+00, .466256E+00, .397281E+00, .336363E+00,
2127 + .282773E+00, .235851E+00, .194993E+00, .159640E+00,
2128 + .129255E+00, .103334E+00, .816355E-01, .634087E-01,
2129 + .483765E-01, .361562E-01, .263857E-01, .187239E-01,
2130 + .128516E-01, .847900E-02, .531078E-02, .312867E-02,
2131 + .169694E-02, .822241E-03, .338399E-03, .107603E-03,
2132 + .213705E-04, .134263E-05, .000000E+00, .353155E+05,
2133 + .283587E+05, .225787E+05, .179754E+05, .143124E+05,
2134 + .113952E+05, .907404E+04, .722549E+04, .575463E+04,
2135 + .458326E+04, .365123E+04, .290896E+04, .231834E+04 /
2136 DATA (UPDI(I),I=7749,7800) /
2137 + .184795E+04, .147363E+04, .117549E+04, .938213E+03,
2138 + .749189E+03, .598728E+03, .478835E+03, .383376E+03,
2139 + .307283E+03, .246670E+03, .198325E+03, .159789E+03,
2140 + .129032E+03, .104489E+03, .846297E+02, .690126E+02,
2141 + .565063E+02, .464908E+02, .384485E+02, .319866E+02,
2142 + .267904E+02, .225836E+02, .191721E+02, .163978E+02,
2143 + .141272E+02, .122602E+02, .107116E+02, .942054E+01,
2144 + .833149E+01, .740578E+01, .661019E+01, .592042E+01,
2145 + .531599E+01, .478367E+01, .430560E+01, .387820E+01,
2146 + .348817E+01, .313367E+01, .280854E+01, .250977E+01,
2147 + .223522E+01, .198375E+01, .175450E+01, .154672E+01,
2148 + .135944E+01, .119141E+01, .104118E+01, .907175E+00,
2149 + .787866E+00, .681752E+00, .587947E+00, .504270E+00 /
2150 DATA (UPDI(I),I=7801,7852) /
2151 + .430285E+00, .365038E+00, .307699E+00, .257508E+00,
2152 + .213788E+00, .175914E+00, .143320E+00, .115464E+00,
2153 + .918296E-01, .721548E-01, .557137E-01, .422497E-01,
2154 + .313820E-01, .227532E-01, .160379E-01, .109284E-01,
2155 + .715468E-02, .444301E-02, .259308E-02, .139158E-02,
2156 + .666231E-03, .270302E-03, .845243E-04, .165182E-04,
2157 + .104944E-05, .000000E+00, .255687E+05, .368113E+05,
2158 + .291649E+05, .231037E+05, .183047E+05, .145008E+05,
2159 + .114892E+05, .910225E+04, .721264E+04, .571495E+04,
2160 + .452941E+04, .358978E+04, .284601E+04, .225652E+04,
2161 + .178991E+04, .142006E+04, .112730E+04, .895221E+03,
2162 + .711489E+03, .565818E+03, .450471E+03, .358989E+03,
2163 + .286521E+03, .229016E+03, .183432E+03, .147239E+03 /
2164 DATA (UPDI(I),I=7853,7904) /
2165 + .118521E+03, .954032E+02, .773246E+02, .629196E+02,
2166 + .514477E+02, .422809E+02, .349554E+02, .290923E+02,
2167 + .243706E+02, .205586E+02, .174742E+02, .149605E+02,
2168 + .129038E+02, .112049E+02, .979547E+01, .861172E+01,
2169 + .761060E+01, .675418E+01, .601567E+01, .537183E+01,
2170 + .480803E+01, .430448E+01, .385710E+01, .345135E+01,
2171 + .308508E+01, .275147E+01, .244715E+01, .216953E+01,
2172 + .191706E+01, .168841E+01, .148245E+01, .129782E+01,
2173 + .113302E+01, .986354E+00, .856110E+00, .740662E+00,
2174 + .638409E+00, .548414E+00, .468480E+00, .398122E+00,
2175 + .336354E+00, .282326E+00, .235257E+00, .194457E+00,
2176 + .159285E+00, .129171E+00, .103571E+00, .819640E-01,
2177 + .640766E-01, .492138E-01, .371133E-01, .274067E-01 /
2178 DATA (UPDI(I),I=7905,7956) /
2179 + .197488E-01, .138289E-01, .935583E-02, .607861E-02,
2180 + .374291E-02, .216427E-02, .114924E-02, .543631E-03,
2181 + .217422E-03, .668536E-04, .128519E-04, .824570E-06,
2182 + .000000E+00, .746526E+05, .591693E+05, .464254E+05,
2183 + .364209E+05, .285747E+05, .224157E+05, .175860E+05,
2184 + .137953E+05, .108233E+05, .849076E+04, .666219E+04,
2185 + .522724E+04, .410243E+04, .321979E+04, .252797E+04,
2186 + .198510E+04, .155960E+04, .122570E+04, .963969E+03,
2187 + .758553E+03, .597525E+03, .471108E+03, .371969E+03,
2188 + .294099E+03, .232993E+03, .184969E+03, .147254E+03,
2189 + .117196E+03, .939268E+02, .755703E+02, .610961E+02,
2190 + .496432E+02, .405786E+02, .333927E+02, .276596E+02,
2191 + .230733E+02, .193959E+02, .164250E+02, .140154E+02 /
2192 DATA (UPDI(I),I=7957,8008) /
2193 + .120420E+02, .104190E+02, .906758E+01, .793462E+01,
2194 + .697394E+01, .615305E+01, .544393E+01, .482886E+01,
2195 + .428479E+01, .380633E+01, .337689E+01, .299347E+01,
2196 + .264821E+01, .233692E+01, .205624E+01, .180384E+01,
2197 + .157769E+01, .137593E+01, .119669E+01, .103799E+01,
2198 + .897844E+00, .774300E+00, .665590E+00, .569974E+00,
2199 + .486430E+00, .412760E+00, .348398E+00, .292319E+00,
2200 + .243647E+00, .201575E+00, .165401E+00, .134469E+00,
2201 + .108210E+00, .860818E-01, .675654E-01, .523761E-01,
2202 + .398730E-01, .297919E-01, .217874E-01, .155387E-01,
2203 + .107625E-01, .719552E-02, .461872E-02, .280679E-02,
2204 + .159987E-02, .835979E-03, .388357E-03, .152083E-03,
2205 + .456551E-04, .858381E-05, .560664E-06, .000000E+00 /
2206 DATA (UPDI(I),I=8009,8060) /
2207 + .119277E+06, .937542E+05, .728718E+05, .566299E+05,
2208 + .440089E+05, .341944E+05, .265698E+05, .206419E+05,
2209 + .160377E+05, .124588E+05, .967976E+04, .751996E+04,
2210 + .584316E+04, .454021E+04, .352881E+04, .274298E+04,
2211 + .213307E+04, .165918E+04, .129140E+04, .100563E+04,
2212 + .783837E+03, .611470E+03, .477646E+03, .373597E+03,
2213 + .292767E+03, .229888E+03, .181010E+03, .142449E+03,
2214 + .112897E+03, .898202E+02, .718046E+02, .576916E+02,
2215 + .466302E+02, .379471E+02, .310851E+02, .256476E+02,
2216 + .213277E+02, .178695E+02, .150895E+02, .128330E+02,
2217 + .109934E+02, .947482E+01, .821272E+01, .715193E+01,
2218 + .625340E+01, .548412E+01, .482282E+01, .424324E+01,
2219 + .373835E+01, .328960E+01, .289298E+01, .253955E+01 /
2220 DATA (UPDI(I),I=8061,8112) /
2221 + .222427E+01, .194301E+01, .169266E+01, .147051E+01,
2222 + .127409E+01, .110104E+01, .949002E+00, .815718E+00,
2223 + .699052E+00, .597114E+00, .508062E+00, .430800E+00,
2224 + .363148E+00, .304474E+00, .253725E+00, .210013E+00,
2225 + .172518E+00, .140533E+00, .113402E+00, .905593E-01,
2226 + .714762E-01, .556438E-01, .427728E-01, .322762E-01,
2227 + .238942E-01, .173060E-01, .122170E-01, .837066E-02,
2228 + .553150E-02, .350458E-02, .209875E-02, .117709E-02,
2229 + .603861E-03, .274675E-03, .104909E-03, .305838E-04,
2230 + .558897E-05, .372374E-06, .000000E+00, .184905E+06,
2231 + .144265E+06, .111188E+06, .856729E+05, .660092E+05,
2232 + .508457E+05, .391640E+05, .301590E+05, .232243E+05,
2233 + .178805E+05, .137667E+05, .105976E+05, .815891E+04 /
2234 DATA (UPDI(I),I=8113,8164) /
2235 + .628081E+04, .483595E+04, .372352E+04, .286793E+04,
2236 + .220930E+04, .170282E+04, .131297E+04, .101321E+04,
2237 + .782469E+03, .605010E+03, .468362E+03, .363219E+03,
2238 + .282221E+03, .219869E+03, .171160E+03, .134194E+03,
2239 + .105610E+03, .835102E+02, .663674E+02, .530591E+02,
2240 + .427130E+02, .346132E+02, .282556E+02, .232504E+02,
2241 + .192803E+02, .161169E+02, .135720E+02, .115150E+02,
2242 + .983172E+01, .844447E+01, .728851E+01, .631760E+01,
2243 + .549350E+01, .479113E+01, .418095E+01, .365415E+01,
2244 + .319026E+01, .278413E+01, .242578E+01, .210926E+01,
2245 + .182966E+01, .158314E+01, .136636E+01, .117630E+01,
2246 + .101016E+01, .865268E+00, .739143E+00, .629500E+00,
2247 + .534352E+00, .451786E+00, .380642E+00, .318779E+00 /
2248 DATA (UPDI(I),I=8165,8216) /
2249 + .265507E+00, .219765E+00, .180656E+00, .147364E+00,
2250 + .119182E+00, .954649E-01, .756597E-01, .592530E-01,
2251 + .457558E-01, .348799E-01, .260913E-01, .191398E-01,
2252 + .137302E-01, .959500E-02, .650394E-02, .424861E-02,
2253 + .265879E-02, .157090E-02, .868215E-03, .438239E-03,
2254 + .195811E-03, .733356E-04, .209701E-04, .379885E-05,
2255 + .261144E-06, .000000E+00, .277914E+06, .215406E+06,
2256 + .164763E+06, .125986E+06, .963207E+05, .736161E+05,
2257 + .562561E+05, .429763E+05, .328278E+05, .250685E+05,
2258 + .191419E+05, .146128E+05, .111552E+05, .851417E+04,
2259 + .649892E+04, .496023E+04, .378665E+04, .289089E+04,
2260 + .220792E+04, .168678E+04, .128954E+04, .986460E+03,
2261 + .755429E+03, .579133E+03, .444704E+03, .342090E+03 /
2262 DATA (UPDI(I),I=8217,8268) /
2263 + .263827E+03, .203257E+03, .157717E+03, .122835E+03,
2264 + .961157E+02, .755853E+02, .597942E+02, .476334E+02,
2265 + .381995E+02, .308631E+02, .251389E+02, .206393E+02,
2266 + .170849E+02, .142505E+02, .119786E+02, .101354E+02,
2267 + .862863E+01, .738358E+01, .634632E+01, .547319E+01,
2268 + .473513E+01, .409935E+01, .355511E+01, .308011E+01,
2269 + .266799E+01, .230773E+01, .199246E+01, .171654E+01,
2270 + .147543E+01, .126521E+01, .108236E+01, .923732E+00,
2271 + .786369E+00, .667620E+00, .565083E+00, .476697E+00,
2272 + .400505E+00, .335298E+00, .278986E+00, .230836E+00,
2273 + .189787E+00, .154949E+00, .125512E+00, .100784E+00,
2274 + .801373E-01, .630342E-01, .489837E-01, .375214E-01,
2275 + .283660E-01, .210346E-01, .152904E-01, .108644E-01 /
2276 DATA (UPDI(I),I=8269,8320) /
2277 + .751608E-02, .504047E-02, .325499E-02, .201211E-02,
2278 + .117297E-02, .638897E-03, .317346E-03, .139312E-03,
2279 + .511814E-04, .143614E-04, .257683E-05, .183121E-06,
2280 + .000000E+00, .405998E+06, .312809E+06, .237621E+06,
2281 + .180434E+06, .136979E+06, .103946E+06, .788612E+05,
2282 + .598060E+05, .453460E+05, .343690E+05, .260447E+05,
2283 + .197298E+05, .149443E+05, .113162E+05, .856862E+04,
2284 + .648688E+04, .491131E+04, .371821E+04, .281569E+04,
2285 + .213259E+04, .161610E+04, .122529E+04, .929857E+03,
2286 + .706324E+03, .537321E+03, .409427E+03, .312733E+03,
2287 + .238563E+03, .183292E+03, .141337E+03, .109486E+03,
2288 + .852346E+02, .667475E+02, .526396E+02, .417918E+02,
2289 + .334317E+02, .269652E+02, .219267E+02, .179801E+02 /
2290 DATA (UPDI(I),I=8321,8372) /
2291 + .148597E+02, .123789E+02, .103827E+02, .876389E+01,
2292 + .743699E+01, .634020E+01, .542429E+01, .465620E+01,
2293 + .399990E+01, .344269E+01, .296049E+01, .254572E+01,
2294 + .218634E+01, .187461E+01, .160419E+01, .136987E+01,
2295 + .116722E+01, .992309E+00, .841666E+00, .712119E+00,
2296 + .600881E+00, .505467E+00, .423765E+00, .353796E+00,
2297 + .294316E+00, .243303E+00, .199987E+00, .163323E+00,
2298 + .132432E+00, .106525E+00, .849274E-01, .670340E-01,
2299 + .523304E-01, .403511E-01, .306599E-01, .229866E-01,
2300 + .168975E-01, .121715E-01, .856593E-02, .586638E-02,
2301 + .389217E-02, .248473E-02, .151719E-02, .872685E-03,
2302 + .468471E-03, .229006E-03, .987874E-04, .356148E-04,
2303 + .981107E-05, .174254E-05, .127748E-06, .000000E+00 /
2304 DATA (UPDI(I),I=8373,8424) /
2305 + .578189E+06, .443038E+06, .334408E+06, .252296E+06,
2306 + .190287E+06, .143447E+06, .108103E+06, .814282E+05,
2307 + .613169E+05, .461510E+05, .347266E+05, .261187E+05,
2308 + .196400E+05, .147626E+05, .110946E+05, .833551E+04,
2309 + .626226E+04, .470385E+04, .353372E+04, .265476E+04,
2310 + .199524E+04, .150008E+04, .112868E+04, .849919E+03,
2311 + .640853E+03, .483930E+03, .366272E+03, .276785E+03,
2312 + .210664E+03, .160905E+03, .123450E+03, .951812E+02,
2313 + .738159E+02, .576542E+02, .453332E+02, .359201E+02,
2314 + .287001E+02, .231223E+02, .187890E+02, .153910E+02,
2315 + .127107E+02, .105712E+02, .884934E+01, .744898E+01,
2316 + .630018E+01, .534819E+01, .455592E+01, .388424E+01,
2317 + .331846E+01, .283285E+01, .241859E+01, .206269E+01 /
2318 DATA (UPDI(I),I=8425,8476) /
2319 + .175658E+01, .149325E+01, .126692E+01, .107270E+01,
2320 + .906299E+00, .763997E+00, .642453E+00, .538779E+00,
2321 + .450437E+00, .375287E+00, .311351E+00, .257361E+00,
2322 + .211373E+00, .172596E+00, .140008E+00, .112750E+00,
2323 + .900586E-01, .712849E-01, .558522E-01, .432719E-01,
2324 + .331069E-01, .249522E-01, .185517E-01, .135184E-01,
2325 + .964879E-02, .672552E-02, .455949E-02, .299269E-02,
2326 + .188862E-02, .113908E-02, .646473E-03, .342030E-03,
2327 + .164560E-03, .697667E-04, .246910E-04, .668082E-05,
2328 + .117430E-05, .886804E-07, .000000E+00, .804817E+06,
2329 + .613542E+06, .460342E+06, .345215E+06, .258778E+06,
2330 + .193873E+06, .145189E+06, .108668E+06, .813022E+05,
2331 + .607938E+05, .454415E+05, .339480E+05, .253529E+05 /
2332 DATA (UPDI(I),I=8477,8528) /
2333 + .189247E+05, .141225E+05, .105345E+05, .785669E+04,
2334 + .585787E+04, .436753E+04, .325606E+04, .242806E+04,
2335 + .181100E+04, .135160E+04, .100941E+04, .754727E+03,
2336 + .565050E+03, .423956E+03, .317512E+03, .239499E+03,
2337 + .181275E+03, .137806E+03, .105272E+03, .808859E+02,
2338 + .625944E+02, .487642E+02, .382865E+02, .303150E+02,
2339 + .242071E+02, .194993E+02, .158369E+02, .129700E+02,
2340 + .106990E+02, .888479E+01, .742032E+01, .622765E+01,
2341 + .524659E+01, .443613E+01, .375421E+01, .318417E+01,
2342 + .269875E+01, .228796E+01, .193791E+01, .163927E+01,
2343 + .138442E+01, .116709E+01, .981987E+00, .824534E+00,
2344 + .690811E+00, .577358E+00, .481220E+00, .399834E+00,
2345 + .331052E+00, .272918E+00, .224154E+00, .182901E+00 /
2346 DATA (UPDI(I),I=8529,8580) /
2347 + .148359E+00, .119536E+00, .956009E-01, .758244E-01,
2348 + .595859E-01, .463411E-01, .356306E-01, .270476E-01,
2349 + .202197E-01, .149073E-01, .107675E-01, .761488E-02,
2350 + .525675E-02, .352762E-02, .229049E-02, .142885E-02,
2351 + .851193E-03, .476646E-03, .248544E-03, .117704E-03,
2352 + .490521E-04, .170478E-04, .453285E-05, .788524E-06,
2353 + .612686E-07, .000000E+00, .109739E+07, .832545E+06,
2354 + .621124E+06, .463125E+06, .345153E+06, .257068E+06,
2355 + .191370E+06, .142371E+06, .105866E+06, .786714E+05,
2356 + .584345E+05, .433764E+05, .321842E+05, .238660E+05,
2357 + .176907E+05, .131065E+05, .970730E+04, .718680E+04,
2358 + .532000E+04, .393726E+04, .291425E+04, .215721E+04,
2359 + .159758E+04, .118376E+04, .878012E+03, .651991E+03 /
2360 DATA (UPDI(I),I=8581,8632) /
2361 + .485135E+03, .360230E+03, .269400E+03, .202145E+03,
2362 + .152327E+03, .115341E+03, .878385E+02, .673756E+02,
2363 + .520262E+02, .404909E+02, .317834E+02, .251641E+02,
2364 + .201008E+02, .161918E+02, .131542E+02, .107656E+02,
2365 + .887093E+01, .735248E+01, .612450E+01, .512157E+01,
2366 + .429894E+01, .361179E+01, .304163E+01, .255981E+01,
2367 + .215520E+01, .181313E+01, .152358E+01, .127840E+01,
2368 + .107088E+01, .895423E+00, .747217E+00, .622199E+00,
2369 + .516829E+00, .428122E+00, .353514E+00, .290871E+00,
2370 + .238271E+00, .194444E+00, .157621E+00, .127002E+00,
2371 + .101635E+00, .807223E-01, .635712E-01, .495952E-01,
2372 + .382847E-01, .292113E-01, .220004E-01, .163121E-01,
2373 + .119251E-01, .853740E-02, .598208E-02, .408963E-02 /
2374 DATA (UPDI(I),I=8633,8684) /
2375 + .271641E-02, .174469E-02, .107580E-02, .632977E-03,
2376 + .349720E-03, .179732E-03, .837873E-04, .343296E-04,
2377 + .117210E-04, .306392E-05, .527571E-06, .421365E-07,
2378 + .000000E+00, .146837E+07, .110887E+07, .822798E+06,
2379 + .610144E+06, .452201E+06, .334908E+06, .247899E+06,
2380 + .183364E+06, .135552E+06, .100135E+06, .739299E+05,
2381 + .545442E+05, .402197E+05, .296372E+05, .218281E+05,
2382 + .160668E+05, .118212E+05, .869304E+04, .639096E+04,
2383 + .469695E+04, .345188E+04, .253673E+04, .186482E+04,
2384 + .137141E+04, .100942E+04, .743729E+03, .549011E+03,
2385 + .404335E+03, .299915E+03, .223183E+03, .166775E+03,
2386 + .125219E+03, .945544E+02, .719159E+02, .550640E+02,
2387 + .424973E+02, .330824E+02, .259794E+02, .205857E+02 /
2388 DATA (UPDI(I),I=8685,8736) /
2389 + .164519E+02, .132621E+02, .107715E+02, .880934E+01,
2390 + .724759E+01, .599311E+01, .497553E+01, .414663E+01,
2391 + .345912E+01, .289274E+01, .241765E+01, .202169E+01,
2392 + .168947E+01, .141038E+01, .117583E+01, .978757E+00,
2393 + .813312E+00, .674519E+00, .558220E+00, .460839E+00,
2394 + .379388E+00, .311326E+00, .254550E+00, .207188E+00,
2395 + .167990E+00, .135281E+00, .108272E+00, .860559E-01,
2396 + .678737E-01, .530727E-01, .411033E-01, .314923E-01,
2397 + .238441E-01, .178160E-01, .131008E-01, .949631E-02,
2398 + .673822E-02, .467761E-02, .316671E-02, .208182E-02,
2399 + .132257E-02, .806066E-03, .468406E-03, .255338E-03,
2400 + .129339E-03, .593594E-04, .239161E-04, .802475E-05,
2401 + .206325E-05, .351731E-06, .288510E-07, .000000E+00 /
2402 DATA (UPDI(I),I=8737,8788) /
2403 + .193087E+07, .145172E+07, .107157E+07, .790441E+06,
2404 + .582700E+06, .429230E+06, .315977E+06, .232426E+06,
2405 + .170855E+06, .125496E+06, .921182E+05, .675651E+05,
2406 + .495244E+05, .362733E+05, .265516E+05, .194217E+05,
2407 + .141989E+05, .103742E+05, .757685E+04, .553132E+04,
2408 + .403741E+04, .294648E+04, .215074E+04, .157031E+04,
2409 + .114736E+04, .839046E+03, .614673E+03, .449159E+03,
2410 + .330559E+03, .244044E+03, .180906E+03, .134738E+03,
2411 + .100920E+03, .761392E+02, .578281E+02, .442744E+02,
2412 + .341932E+02, .266426E+02, .209490E+02, .166158E+02,
2413 + .132945E+02, .107186E+02, .870251E+01, .710840E+01,
2414 + .583625E+01, .481113E+01, .398166E+01, .329837E+01,
2415 + .273939E+01, .227388E+01, .188872E+01, .156795E+01 /
2416 DATA (UPDI(I),I=8789,8840) /
2417 + .130046E+01, .107729E+01, .891112E+00, .735895E+00,
2418 + .606558E+00, .498896E+00, .409329E+00, .334896E+00,
2419 + .273100E+00, .221886E+00, .179445E+00, .144554E+00,
2420 + .115638E+00, .919287E-01, .725653E-01, .568332E-01,
2421 + .441221E-01, .339210E-01, .257941E-01, .193788E-01,
2422 + .143643E-01, .104752E-01, .752832E-02, .529408E-02,
2423 + .364082E-02, .244068E-02, .158799E-02, .997825E-03,
2424 + .601069E-03, .344955E-03, .185531E-03, .926314E-04,
2425 + .418576E-04, .165874E-04, .547177E-05, .138432E-05,
2426 + .233702E-06, .196706E-07, .000000E+00, .249827E+07,
2427 + .187034E+07, .137361E+07, .100808E+07, .739304E+06,
2428 + .541748E+06, .396698E+06, .290241E+06, .212197E+06,
2429 + .155006E+06, .113145E+06, .825180E+05, .601373E+05 /
2430 DATA (UPDI(I),I=8841,8892) /
2431 + .437899E+05, .318639E+05, .231674E+05, .168338E+05,
2432 + .122230E+05, .887066E+04, .643422E+04, .466570E+04,
2433 + .338232E+04, .245213E+04, .177800E+04, .128998E+04,
2434 + .936572E+03, .681127E+03, .493992E+03, .360834E+03,
2435 + .264381E+03, .194483E+03, .143738E+03, .106829E+03,
2436 + .799785E+02, .602770E+02, .457976E+02, .351025E+02,
2437 + .271472E+02, .211887E+02, .166840E+02, .132535E+02,
2438 + .106098E+02, .855367E+01, .693815E+01, .565700E+01,
2439 + .463120E+01, .380655E+01, .313172E+01, .258342E+01,
2440 + .213000E+01, .175750E+01, .144950E+01, .119450E+01,
2441 + .983257E+00, .808252E+00, .663340E+00, .543392E+00,
2442 + .444192E+00, .362197E+00, .294493E+00, .238648E+00,
2443 + .192665E+00, .154810E+00, .123897E+00, .984551E-01 /
2444 C-----------------------------------------------------------------------
2450 Amass(I) = AmassI(I)
2472 QL(Iq) = Log (QL(Iq) /Al)
2475 C Since quark = anti-quark for nfl>2 at this stage,
2476 C we Read out only the non-redundent data points
2477 C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence)
2479 Nblk = (NX+1) * (NT+1)
2480 Npts = Nblk * (NfMx+3)
2486 C ****************************
git://git.uio.no / u / mrichter / AliRoot.git / blob