1 C-----------------------------------------------------------------------
3 Subroutine Ctq4RF4 (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 : CTEQ4F4
19 DATA DrI, FlI, AlI / 2., 4., .2920 /
20 DATA (AmassI(I),I=1,6) / .000, .000, .200,
21 + 1.600, 5.000, 180.000 /
22 C DATA NX, NT, NfMx / 90, 13, 4 /
23 DATA QINII, QMAXI, (QLI(I), I =0, NTI) /
24 + .160000E+01, .100000E+05,
25 + .160000E+01, .206432E+01, .276700E+01, .387525E+01, .570827E+01,
26 + .891054E+01, .148687E+02, .267887E+02, .527144E+02, .114800E+03,
27 + .280922E+03, .786042E+03, .256591E+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:
51 DATA (UPDI(I),I=1,52) /
52 + .686881E+05, .000000E+00, .000000E+00, .000000E+00,
53 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
54 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
55 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
56 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
57 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
58 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
59 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
60 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
61 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
62 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
63 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
64 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
65 DATA (UPDI(I),I=53,104) /
66 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
67 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
68 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
69 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
70 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
71 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
72 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
73 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
74 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
75 + .000000E+00, .000000E+00, .000000E+00, .368694E+05,
76 + .284674E+05, .216760E+05, .164952E+05, .125494E+05,
77 + .954118E+04, .725186E+04, .550790E+04, .418189E+04,
78 + .317263E+04, .240599E+04, .182305E+04, .138073E+04 /
79 DATA (UPDI(I),I=105,156) /
80 + .104474E+04, .790123E+03, .596940E+03, .450737E+03,
81 + .339956E+03, .256240E+03, .192902E+03, .145124E+03,
82 + .109035E+03, .818601E+02, .613719E+02, .459732E+02,
83 + .343928E+02, .257165E+02, .191205E+02, .142673E+02,
84 + .106305E+02, .791902E+01, .589238E+01, .438478E+01,
85 + .326362E+01, .242983E+01, .180938E+01, .135029E+01,
86 + .100877E+01, .756170E+00, .568034E+00, .428841E+00,
87 + .324802E+00, .247335E+00, .189089E+00, .145452E+00,
88 + .112333E+00, .873669E-01, .680634E-01, .534293E-01,
89 + .419785E-01, .331572E-01, .262271E-01, .208136E-01,
90 + .165249E-01, .131458E-01, .104451E-01, .829953E-02,
91 + .657821E-02, .520976E-02, .410890E-02, .323284E-02,
92 + .252987E-02, .197113E-02, .152825E-02, .117526E-02 /
93 DATA (UPDI(I),I=157,208) /
94 + .895049E-03, .675518E-03, .503688E-03, .371118E-03,
95 + .268909E-03, .191566E-03, .133165E-03, .901556E-04,
96 + .584605E-04, .362800E-04, .206352E-04, .101771E-04,
97 + .345397E-05, .000000E+00, .000000E+00, .000000E+00,
98 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
99 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
100 + .000000E+00, .000000E+00, .853587E+05, .657418E+05,
101 + .499129E+05, .378722E+05, .287264E+05, .217743E+05,
102 + .164984E+05, .124915E+05, .945376E+04, .714896E+04,
103 + .540347E+04, .408057E+04, .307990E+04, .232239E+04,
104 + .175015E+04, .131752E+04, .991185E+03, .744818E+03,
105 + .559277E+03, .419431E+03, .314309E+03, .235220E+03,
106 + .175880E+03, .131323E+03, .979608E+02, .729748E+02 /
107 DATA (UPDI(I),I=209,260) /
108 + .543274E+02, .402132E+02, .298696E+02, .221544E+02,
109 + .164253E+02, .121635E+02, .900646E+01, .667028E+01,
110 + .494027E+01, .365960E+01, .271610E+01, .201804E+01,
111 + .150405E+01, .112339E+01, .843036E+00, .634704E+00,
112 + .480313E+00, .364934E+00, .278905E+00, .214022E+00,
113 + .165351E+00, .127974E+00, .997745E-01, .778650E-01,
114 + .610771E-01, .479844E-01, .378149E-01, .298180E-01,
115 + .235544E-01, .185871E-01, .146668E-01, .115469E-01,
116 + .908271E-02, .711685E-02, .556354E-02, .432724E-02,
117 + .335209E-02, .258504E-02, .197857E-02, .150124E-02,
118 + .113030E-02, .842325E-03, .621810E-03, .453076E-03,
119 + .326190E-03, .231024E-03, .161027E-03, .109614E-03,
120 + .734233E-04, .476083E-04, .299632E-04, .180638E-04 /
121 DATA (UPDI(I),I=261,312) /
122 + .103725E-04, .553153E-05, .267179E-05, .107246E-05,
123 + .272796E-06, .000000E+00, .000000E+00, .000000E+00,
124 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
125 + .000000E+00, .148107E+06, .113773E+06, .861192E+05,
126 + .651457E+05, .492603E+05, .372218E+05, .281128E+05,
127 + .212166E+05, .160041E+05, .120621E+05, .908610E+04,
128 + .683813E+04, .514318E+04, .386454E+04, .290182E+04,
129 + .217658E+04, .163138E+04, .122131E+04, .913562E+03,
130 + .682489E+03, .509419E+03, .379718E+03, .282766E+03,
131 + .210264E+03, .156186E+03, .115853E+03, .858708E+02,
132 + .632766E+02, .467864E+02, .345426E+02, .254882E+02,
133 + .187847E+02, .138400E+02, .101990E+02, .751452E+01,
134 + .553746E+01, .408743E+01, .302037E+01, .223830E+01 /
135 DATA (UPDI(I),I=313,364) /
136 + .166230E+01, .124009E+01, .928118E+00, .698051E+00,
137 + .527136E+00, .400323E+00, .305265E+00, .234317E+00,
138 + .180189E+00, .139552E+00, .108194E+00, .842960E-01,
139 + .657889E-01, .514947E-01, .403341E-01, .316435E-01,
140 + .248024E-01, .194377E-01, .152009E-01, .118756E-01,
141 + .924368E-02, .717788E-02, .554662E-02, .426895E-02,
142 + .327132E-02, .248837E-02, .187721E-02, .140581E-02,
143 + .104277E-02, .766779E-03, .557264E-03, .400783E-03,
144 + .284298E-03, .199071E-03, .136893E-03, .932021E-04,
145 + .620931E-04, .407560E-04, .262210E-04, .166350E-04,
146 + .103578E-04, .640358E-05, .391197E-05, .238390E-05,
147 + .143653E-05, .854414E-06, .484689E-06, .252824E-06,
148 + .111553E-06, .328140E-07, .212496E-08, .000000E+00 /
149 DATA (UPDI(I),I=365,416) /
150 + .228288E+06, .174896E+06, .131972E+06, .995168E+05,
151 + .750090E+05, .564946E+05, .425286E+05, .319896E+05,
152 + .240488E+05, .180635E+05, .135595E+05, .101691E+05,
153 + .762117E+04, .570588E+04, .426873E+04, .319002E+04,
154 + .238196E+04, .177643E+04, .132365E+04, .984979E+03,
155 + .732261E+03, .543621E+03, .403152E+03, .298533E+03,
156 + .220810E+03, .163081E+03, .120342E+03, .882762E+02,
157 + .649714E+02, .477469E+02, .350630E+02, .257168E+02,
158 + .188531E+02, .138237E+02, .101321E+02, .742726E+01,
159 + .545258E+01, .400715E+01, .295278E+01, .218050E+01,
160 + .161712E+01, .120319E+01, .899456E+00, .675126E+00,
161 + .509515E+00, .386117E+00, .294492E+00, .225032E+00,
162 + .173146E+00, .133373E+00, .103229E+00, .800421E-01 /
163 DATA (UPDI(I),I=417,468) /
164 + .622349E-01, .484268E-01, .377374E-01, .293832E-01,
165 + .228734E-01, .177699E-01, .137894E-01, .106628E-01,
166 + .822475E-02, .631426E-02, .482800E-02, .367586E-02,
167 + .277812E-02, .208294E-02, .155063E-02, .114387E-02,
168 + .836829E-03, .605561E-03, .434016E-03, .307266E-03,
169 + .215095E-03, .148331E-03, .101577E-03, .684317E-04,
170 + .457025E-04, .301778E-04, .198396E-04, .129519E-04,
171 + .847882E-05, .552794E-05, .359453E-05, .229740E-05,
172 + .142483E-05, .827106E-06, .431224E-06, .185452E-06,
173 + .521527E-07, .352292E-08, .000000E+00, .329545E+06,
174 + .251773E+06, .189370E+06, .142337E+06, .106931E+06,
175 + .802698E+05, .602226E+05, .451447E+05, .338211E+05,
176 + .253152E+05, .189357E+05, .141502E+05, .105663E+05 /
177 DATA (UPDI(I),I=469,520) /
178 + .788185E+04, .587465E+04, .437362E+04, .325322E+04,
179 + .241684E+04, .179374E+04, .132950E+04, .984387E+03,
180 + .727810E+03, .537496E+03, .396338E+03, .291892E+03,
181 + .214638E+03, .157681E+03, .115137E+03, .843494E+02,
182 + .616986E+02, .450910E+02, .329114E+02, .240070E+02,
183 + .175141E+02, .127702E+02, .931189E+01, .679905E+01,
184 + .496940E+01, .364123E+01, .267368E+01, .197133E+01,
185 + .145816E+01, .108351E+01, .808403E+00, .606339E+00,
186 + .456666E+00, .346113E+00, .262823E+00, .200928E+00,
187 + .153787E+00, .118257E+00, .911072E-01, .703756E-01,
188 + .544070E-01, .421177E-01, .325800E-01, .251946E-01,
189 + .194460E-01, .149901E-01, .115161E-01, .882443E-02,
190 + .673095E-02, .511316E-02, .386793E-02, .290447E-02 /
191 DATA (UPDI(I),I=521,572) /
192 + .216419E-02, .160136E-02, .117457E-02, .854626E-03,
193 + .615483E-03, .439298E-03, .310064E-03, .216678E-03,
194 + .149505E-03, .102649E-03, .695897E-04, .469466E-04,
195 + .314705E-04, .210976E-04, .141125E-04, .948273E-05,
196 + .634689E-05, .421755E-05, .273824E-05, .170872E-05,
197 + .989338E-06, .509223E-06, .213515E-06, .579768E-07,
198 + .400314E-08, .000000E+00, .455992E+06, .347398E+06,
199 + .260435E+06, .195103E+06, .146078E+06, .109285E+06,
200 + .817097E+05, .610398E+05, .455684E+05, .339871E+05,
201 + .253307E+05, .188603E+05, .140315E+05, .104278E+05,
202 + .774283E+04, .574248E+04, .425486E+04, .314860E+04,
203 + .232755E+04, .171822E+04, .126700E+04, .932892E+03,
204 + .686052E+03, .503729E+03, .369374E+03, .270417E+03 /
205 DATA (UPDI(I),I=573,624) /
206 + .197766E+03, .143741E+03, .104815E+03, .763089E+02,
207 + .554998E+02, .403114E+02, .292576E+02, .212369E+02,
208 + .154039E+02, .111733E+02, .811393E+01, .589810E+01,
209 + .429747E+01, .313774E+01, .230009E+01, .169144E+01,
210 + .124937E+01, .926597E+00, .690751E+00, .517069E+00,
211 + .389462E+00, .293908E+00, .223271E+00, .169812E+00,
212 + .129744E+00, .993246E-01, .762290E-01, .585558E-01,
213 + .450345E-01, .346122E-01, .265923E-01, .203930E-01,
214 + .156177E-01, .119213E-01, .907565E-02, .687847E-02,
215 + .519167E-02, .390235E-02, .291169E-02, .215626E-02,
216 + .158591E-02, .115661E-02, .836997E-03, .599866E-03,
217 + .426324E-03, .299921E-03, .209152E-03, .144288E-03,
218 + .992227E-04, .675718E-04, .459198E-04, .311154E-04 /
219 DATA (UPDI(I),I=625,676) /
220 + .211375E-04, .143612E-04, .979624E-05, .664652E-05,
221 + .445651E-05, .290532E-05, .180815E-05, .103790E-05,
222 + .525802E-06, .214949E-06, .565150E-07, .397152E-08,
223 + .000000E+00, .612213E+06, .465082E+06, .347492E+06,
224 + .259444E+06, .193590E+06, .144331E+06, .107536E+06,
225 + .800507E+05, .595476E+05, .442538E+05, .328623E+05,
226 + .243781E+05, .180689E+05, .133777E+05, .989525E+04,
227 + .731054E+04, .539551E+04, .397691E+04, .292805E+04,
228 + .215277E+04, .158088E+04, .115915E+04, .848833E+03,
229 + .620578E+03, .453072E+03, .330220E+03, .240412E+03,
230 + .173927E+03, .126236E+03, .914704E+02, .662053E+02,
231 + .478522E+02, .345564E+02, .249563E+02, .180074E+02,
232 + .129930E+02, .938440E+01, .678446E+01, .491567E+01 /
233 DATA (UPDI(I),I=677,728) /
234 + .356894E+01, .260111E+01, .190174E+01, .139640E+01,
235 + .102951E+01, .762833E+00, .567572E+00, .424879E+00,
236 + .318667E+00, .240566E+00, .181826E+00, .138047E+00,
237 + .105019E+00, .800875E-01, .611314E-01, .467141E-01,
238 + .356751E-01, .272334E-01, .207524E-01, .157909E-01,
239 + .119773E-01, .906006E-02, .682356E-02, .511767E-02,
240 + .382269E-02, .283445E-02, .208641E-02, .152551E-02,
241 + .110636E-02, .796403E-03, .568084E-03, .402070E-03,
242 + .281964E-03, .196237E-03, .135347E-03, .932030E-04,
243 + .637218E-04, .435704E-04, .297812E-04, .204362E-04,
244 + .140398E-04, .966927E-05, .660991E-05, .444600E-05,
245 + .289549E-05, .179037E-05, .101616E-05, .505954E-06,
246 + .201657E-06, .514218E-07, .367164E-08, .000000E+00 /
247 DATA (UPDI(I),I=729,780) /
248 + .803231E+06, .608433E+06, .453059E+06, .337109E+06,
249 + .250672E+06, .186239E+06, .138271E+06, .102564E+06,
250 + .760202E+05, .562905E+05, .416468E+05, .307800E+05,
251 + .227281E+05, .167634E+05, .123519E+05, .909003E+04,
252 + .668239E+04, .490584E+04, .359740E+04, .263409E+04,
253 + .192633E+04, .140653E+04, .102559E+04, .746574E+03,
254 + .542671E+03, .393762E+03, .285373E+03, .205494E+03,
255 + .148450E+03, .107059E+03, .771131E+02, .554634E+02,
256 + .398521E+02, .286352E+02, .205545E+02, .147529E+02,
257 + .105981E+02, .762027E+01, .549056E+01, .396401E+01,
258 + .287251E+01, .208807E+01, .152424E+01, .111715E+01,
259 + .822815E+00, .608527E+00, .452772E+00, .337520E+00,
260 + .253225E+00, .190213E+00, .143514E+00, .108503E+00 /
261 DATA (UPDI(I),I=781,832) /
262 + .822259E-01, .623724E-01, .473611E-01, .359427E-01,
263 + .272646E-01, .206464E-01, .156110E-01, .117670E-01,
264 + .884517E-02, .662061E-02, .493464E-02, .366340E-02,
265 + .269979E-02, .197560E-02, .143625E-02, .103602E-02,
266 + .741993E-03, .526908E-03, .371492E-03, .259776E-03,
267 + .180493E-03, .124490E-03, .858605E-04, .589259E-04,
268 + .405185E-04, .279034E-04, .193042E-04, .133722E-04,
269 + .926695E-05, .635929E-05, .427636E-05, .277391E-05,
270 + .170040E-05, .952792E-06, .465847E-06, .181028E-06,
271 + .448248E-07, .324927E-08, .000000E+00, .103447E+07,
272 + .781317E+06, .579806E+06, .429936E+06, .318586E+06,
273 + .235866E+06, .174495E+06, .128970E+06, .952457E+05,
274 + .702687E+05, .517962E+05, .381382E+05, .280549E+05 /
275 DATA (UPDI(I),I=833,884) /
276 + .206133E+05, .151298E+05, .110909E+05, .812101E+04,
277 + .593817E+04, .433673E+04, .316244E+04, .230308E+04,
278 + .167455E+04, .121581E+04, .881214E+03, .637725E+03,
279 + .460667E+03, .332346E+03, .238205E+03, .171276E+03,
280 + .122936E+03, .881212E+02, .630710E+02, .450917E+02,
281 + .322363E+02, .230195E+02, .164355E+02, .117435E+02,
282 + .839815E+01, .601758E+01, .432030E+01, .311290E+01,
283 + .224987E+01, .163279E+01, .118973E+01, .871072E+00,
284 + .640383E+00, .473612E+00, .350926E+00, .261676E+00,
285 + .195361E+00, .146491E+00, .110077E+00, .829023E-01,
286 + .624983E-01, .471611E-01, .355698E-01, .268142E-01,
287 + .201803E-01, .151638E-01, .113599E-01, .848650E-02,
288 + .631367E-02, .467727E-02, .345157E-02, .252859E-02 /
289 DATA (UPDI(I),I=885,936) /
290 + .183979E-02, .133015E-02, .954551E-03, .680372E-03,
291 + .481143E-03, .338046E-03, .235809E-03, .163640E-03,
292 + .112911E-03, .780229E-04, .537554E-04, .371611E-04,
293 + .257615E-04, .179421E-04, .125054E-04, .869923E-05,
294 + .597726E-05, .400912E-05, .258504E-05, .156868E-05,
295 + .866873E-06, .415935E-06, .157602E-06, .379340E-07,
296 + .279017E-08, .000000E+00, .131168E+07, .987809E+06,
297 + .730525E+06, .539826E+06, .398617E+06, .294079E+06,
298 + .216785E+06, .159651E+06, .117475E+06, .863510E+05,
299 + .634143E+05, .465179E+05, .340893E+05, .249511E+05,
300 + .182427E+05, .133204E+05, .971482E+04, .707511E+04,
301 + .514606E+04, .373722E+04, .271034E+04, .196236E+04,
302 + .141868E+04, .102381E+04, .737664E+03, .530478E+03 /
303 DATA (UPDI(I),I=937,988) /
304 + .380975E+03, .271788E+03, .194511E+03, .138954E+03,
305 + .991228E+02, .705989E+02, .502221E+02, .357233E+02,
306 + .253778E+02, .180247E+02, .128103E+02, .911172E+01,
307 + .649303E+01, .463582E+01, .332141E+01, .238694E+01,
308 + .172227E+01, .124767E+01, .908120E+00, .663683E+00,
309 + .487927E+00, .359373E+00, .266358E+00, .197657E+00,
310 + .147312E+00, .110025E+00, .823574E-01, .617101E-01,
311 + .462806E-01, .346931E-01, .259934E-01, .194440E-01,
312 + .145214E-01, .108131E-01, .802923E-02, .593804E-02,
313 + .437287E-02, .320815E-02, .233675E-02, .169086E-02,
314 + .121603E-02, .868400E-03, .616201E-03, .434111E-03,
315 + .304071E-03, .211689E-03, .146795E-03, .101374E-03,
316 + .702101E-04, .485663E-04, .337453E-04, .235313E-04 /
317 DATA (UPDI(I),I=989,1040) /
318 + .164784E-04, .115361E-04, .803985E-05, .552019E-05,
319 + .368663E-05, .235946E-05, .141588E-05, .771054E-06,
320 + .362895E-06, .134092E-06, .314040E-07, .234300E-08,
321 + .000000E+00, .164086E+07, .123212E+07, .908070E+06,
322 + .668703E+06, .492054E+06, .361731E+06, .265705E+06,
323 + .194974E+06, .142944E+06, .104686E+06, .765938E+05,
324 + .559751E+05, .408640E+05, .297952E+05, .216998E+05,
325 + .157827E+05, .114649E+05, .831624E+04, .602422E+04,
326 + .435701E+04, .314668E+04, .226869E+04, .163314E+04,
327 + .117349E+04, .841800E+03, .602666E+03, .430860E+03,
328 + .305949E+03, .217940E+03, .154958E+03, .110009E+03,
329 + .779716E+02, .551915E+02, .390614E+02, .276068E+02,
330 + .195061E+02, .137896E+02, .975583E+01, .691413E+01 /
331 DATA (UPDI(I),I=1041,1092) /
332 + .490933E+01, .349769E+01, .249946E+01, .179315E+01,
333 + .129156E+01, .934601E+00, .679048E+00, .496288E+00,
334 + .363371E+00, .267716E+00, .197479E+00, .146297E+00,
335 + .108615E+00, .808126E-01, .601895E-01, .448674E-01,
336 + .334320E-01, .248979E-01, .185135E-01, .137436E-01,
337 + .101734E-01, .750961E-02, .552154E-02, .404261E-02,
338 + .294909E-02, .213613E-02, .153753E-02, .110021E-02,
339 + .782084E-03, .552667E-03, .388029E-03, .271085E-03,
340 + .188444E-03, .130649E-03, .903400E-04, .627318E-04,
341 + .435697E-04, .304191E-04, .213205E-04, .149943E-04,
342 + .105273E-04, .733860E-05, .502695E-05, .333821E-05,
343 + .211819E-05, .125596E-05, .673611E-06, .310875E-06,
344 + .112040E-06, .255540E-07, .193341E-08, .000000E+00 /
345 DATA (UPDI(I),I=1093,1144) /
346 + .202815E+07, .151854E+07, .111531E+07, .818474E+06,
347 + .600155E+06, .439646E+06, .321785E+06, .235278E+06,
348 + .171865E+06, .125405E+06, .914122E+05, .665544E+05,
349 + .484032E+05, .351573E+05, .255059E+05, .184785E+05,
350 + .133700E+05, .965934E+04, .696880E+04, .501955E+04,
351 + .361012E+04, .259190E+04, .185787E+04, .132921E+04,
352 + .949345E+03, .676639E+03, .481567E+03, .340375E+03,
353 + .241341E+03, .170793E+03, .120671E+03, .851153E+02,
354 + .599511E+02, .422186E+02, .296862E+02, .208672E+02,
355 + .146743E+02, .103266E+02, .727907E+01, .514027E+01,
356 + .364193E+01, .258800E+01, .184617E+01, .132219E+01,
357 + .951257E+00, .687154E+00, .499296E+00, .363435E+00,
358 + .266188E+00, .195195E+00, .143749E+00, .106095E+00 /
359 DATA (UPDI(I),I=1145,1196) /
360 + .784694E-01, .580989E-01, .430514E-01, .318894E-01,
361 + .236088E-01, .174520E-01, .128795E-01, .947855E-02,
362 + .695624E-02, .508570E-02, .370255E-02, .268623E-02,
363 + .193532E-02, .138596E-02, .987050E-03, .698639E-03,
364 + .491846E-03, .344296E-03, .240019E-03, .166683E-03,
365 + .115594E-03, .800652E-04, .557570E-04, .388814E-04,
366 + .272661E-04, .191930E-04, .135408E-04, .952090E-05,
367 + .662929E-05, .452437E-05, .298413E-05, .187561E-05,
368 + .109817E-05, .579794E-06, .262317E-06, .922294E-07,
369 + .205041E-07, .157286E-08, .000000E+00, .247972E+07,
370 + .185130E+07, .135505E+07, .990983E+06, .724116E+06,
371 + .528591E+06, .385510E+06, .280861E+06, .204420E+06,
372 + .148614E+06, .107929E+06, .782869E+05, .567209E+05 /
373 DATA (UPDI(I),I=1197,1248) /
374 + .410418E+05, .296601E+05, .214045E+05, .154260E+05,
375 + .111004E+05, .797613E+04, .572171E+04, .409812E+04,
376 + .292998E+04, .209130E+04, .148981E+04, .105942E+04,
377 + .751758E+03, .532635E+03, .374741E+03, .264486E+03,
378 + .186301E+03, .131004E+03, .919604E+02, .644557E+02,
379 + .451665E+02, .315986E+02, .220978E+02, .154588E+02,
380 + .108214E+02, .758703E+01, .532879E+01, .375478E+01,
381 + .265344E+01, .188226E+01, .134045E+01, .958908E+00,
382 + .688722E+00, .497564E+00, .360080E+00, .262200E+00,
383 + .191152E+00, .139951E+00, .102691E+00, .755082E-01,
384 + .555809E-01, .409446E-01, .301528E-01, .221935E-01,
385 + .163114E-01, .119684E-01, .875807E-02, .639122E-02,
386 + .464683E-02, .336454E-02, .242809E-02, .174036E-02 /
387 DATA (UPDI(I),I=1249,1300) /
388 + .124035E-02, .879409E-03, .619987E-03, .435000E-03,
389 + .303722E-03, .211379E-03, .146719E-03, .101822E-03,
390 + .706692E-04, .493632E-04, .345563E-04, .243286E-04,
391 + .171846E-04, .121488E-04, .854389E-05, .593480E-05,
392 + .403089E-05, .263824E-05, .164131E-05, .948443E-06,
393 + .492744E-06, .218514E-06, .749704E-07, .162597E-07,
394 + .126436E-08, .000000E+00, .572254E+05, .341333E+05,
395 + .265764E+05, .206927E+05, .161117E+05, .125449E+05,
396 + .976787E+04, .760566E+04, .592217E+04, .461140E+04,
397 + .359084E+04, .279621E+04, .217751E+04, .169578E+04,
398 + .132070E+04, .102864E+04, .801236E+03, .624166E+03,
399 + .486287E+03, .378922E+03, .295316E+03, .230208E+03,
400 + .179504E+03, .140014E+03, .109256E+03, .852966E+02 /
401 DATA (UPDI(I),I=1301,1352) /
402 + .666312E+02, .519063E+02, .406167E+02, .318153E+02,
403 + .249516E+02, .195969E+02, .154174E+02, .121616E+02,
404 + .960965E+01, .761348E+01, .604982E+01, .482272E+01,
405 + .385754E+01, .309595E+01, .249388E+01, .201531E+01,
406 + .163345E+01, .132737E+01, .108087E+01, .881451E+00,
407 + .719967E+00, .587406E+00, .479567E+00, .390539E+00,
408 + .317656E+00, .257702E+00, .208388E+00, .167862E+00,
409 + .134614E+00, .107408E+00, .852188E-01, .671958E-01,
410 + .526269E-01, .409145E-01, .315562E-01, .241294E-01,
411 + .182792E-01, .137268E-01, .101787E-01, .745896E-02,
412 + .539619E-02, .384966E-02, .270475E-02, .186883E-02,
413 + .126775E-02, .842739E-03, .547607E-03, .346739E-03,
414 + .214284E-03, .127888E-03, .736332E-04, .406805E-04 /
415 DATA (UPDI(I),I=1353,1404) /
416 + .214226E-04, .106633E-04, .496330E-05, .213317E-05,
417 + .825518E-06, .282305E-06, .816988E-07, .188268E-07,
418 + .311934E-08, .306839E-09, .116568E-10, .432277E-13,
419 + .000000E+00, .797247E+05, .622003E+05, .479404E+05,
420 + .369451E+05, .284718E+05, .219388E+05, .169049E+05,
421 + .130242E+05, .100344E+05, .772977E+04, .595450E+04,
422 + .458629E+04, .353251E+04, .272047E+04, .209516E+04,
423 + .161337E+04, .124242E+04, .956662E+03, .736687E+03,
424 + .567254E+03, .436853E+03, .336429E+03, .259148E+03,
425 + .199640E+03, .153848E+03, .118594E+03, .914753E+02,
426 + .703320E+02, .543255E+02, .419951E+02, .325040E+02,
427 + .251895E+02, .195547E+02, .152195E+02, .118668E+02,
428 + .927680E+01, .727531E+01, .572403E+01, .452036E+01 /
429 DATA (UPDI(I),I=1405,1456) /
430 + .358237E+01, .285088E+01, .227661E+01, .182444E+01,
431 + .146639E+01, .118179E+01, .954216E+00, .772230E+00,
432 + .624443E+00, .505660E+00, .408576E+00, .329941E+00,
433 + .265850E+00, .213639E+00, .171088E+00, .136477E+00,
434 + .108358E+00, .855904E-01, .672132E-01, .524539E-01,
435 + .406499E-01, .312692E-01, .238575E-01, .180425E-01,
436 + .135338E-01, .100297E-01, .734864E-02, .531869E-02,
437 + .379781E-02, .267245E-02, .184991E-02, .125774E-02,
438 + .837656E-03, .545144E-03, .344731E-03, .212048E-03,
439 + .124833E-03, .697476E-04, .361272E-04, .165136E-04,
440 + .576418E-05, .361676E-06, .000000E+00, .000000E+00,
441 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
442 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
443 DATA (UPDI(I),I=1457,1508) /
444 + .127720E+06, .990853E+05, .758740E+05, .580860E+05,
445 + .444648E+05, .340287E+05, .260398E+05, .199209E+05,
446 + .152385E+05, .116533E+05, .891081E+04, .681173E+04,
447 + .520665E+04, .397860E+04, .303994E+04, .232205E+04,
448 + .177357E+04, .135425E+04, .103403E+04, .789322E+03,
449 + .602538E+03, .459863E+03, .351001E+03, .267881E+03,
450 + .204483E+03, .156100E+03, .119229E+03, .907409E+02,
451 + .693775E+02, .530739E+02, .406478E+02, .311637E+02,
452 + .239311E+02, .184219E+02, .142057E+02, .109818E+02,
453 + .851708E+01, .662655E+01, .517565E+01, .405692E+01,
454 + .319412E+01, .252399E+01, .200214E+01, .159331E+01,
455 + .127193E+01, .101761E+01, .816406E+00, .654627E+00,
456 + .525954E+00, .421769E+00, .338186E+00, .270657E+00 /
457 DATA (UPDI(I),I=1509,1560) /
458 + .216129E+00, .172049E+00, .136480E+00, .107790E+00,
459 + .847248E-01, .662278E-01, .514682E-01, .397308E-01,
460 + .304563E-01, .231652E-01, .174719E-01, .130769E-01,
461 + .967463E-02, .707990E-02, .512161E-02, .365805E-02,
462 + .257759E-02, .178884E-02, .122156E-02, .819012E-03,
463 + .538394E-03, .345497E-03, .217281E-03, .132296E-03,
464 + .780237E-04, .442242E-04, .239317E-04, .121715E-04,
465 + .570738E-05, .235349E-05, .758465E-06, .933695E-07,
466 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
467 + .000000E+00, .000000E+00, .000000E+00, .189985E+06,
468 + .146736E+06, .111784E+06, .851286E+05, .648188E+05,
469 + .493361E+05, .375450E+05, .285609E+05, .217225E+05,
470 + .165148E+05, .125532E+05, .953789E+04, .724543E+04 /
471 DATA (UPDI(I),I=1561,1612) /
472 + .550163E+04, .417668E+04, .316945E+04, .240465E+04,
473 + .182361E+04, .138273E+04, .104800E+04, .794208E+03,
474 + .601657E+03, .455756E+03, .345138E+03, .261374E+03,
475 + .197916E+03, .149925E+03, .113127E+03, .857485E+02,
476 + .650201E+02, .493502E+02, .374891E+02, .285200E+02,
477 + .217467E+02, .166086E+02, .127145E+02, .976449E+01,
478 + .752230E+01, .581758E+01, .451543E+01, .352077E+01,
479 + .275556E+01, .216541E+01, .170750E+01, .135104E+01,
480 + .107162E+01, .852673E+00, .678242E+00, .540806E+00,
481 + .430504E+00, .342790E+00, .272515E+00, .216236E+00,
482 + .171095E+00, .134946E+00, .105996E+00, .828830E-01,
483 + .644691E-01, .498695E-01, .383281E-01, .292614E-01,
484 + .221721E-01, .166646E-01, .124333E-01, .917260E-02 /
485 DATA (UPDI(I),I=1613,1664) /
486 + .669602E-02, .483435E-02, .344791E-02, .242779E-02,
487 + .168509E-02, .115223E-02, .774754E-03, .511878E-03,
488 + .331149E-03, .210881E-03, .130888E-03, .795119E-04,
489 + .471571E-04, .273990E-04, .155848E-04, .877142E-05,
490 + .490180E-05, .275523E-05, .155952E-05, .888755E-06,
491 + .492324E-06, .254040E-06, .111669E-06, .328184E-07,
492 + .212498E-08, .000000E+00, .269691E+06, .207484E+06,
493 + .157345E+06, .119273E+06, .903907E+05, .684713E+05,
494 + .518536E+05, .392503E+05, .297020E+05, .224655E+05,
495 + .169870E+05, .128379E+05, .969933E+04, .732417E+04,
496 + .552891E+04, .417142E+04, .314625E+04, .237171E+04,
497 + .178731E+04, .134617E+04, .101366E+04, .762889E+03,
498 + .574034E+03, .431741E+03, .324675E+03, .244091E+03 /
499 DATA (UPDI(I),I=1665,1716) /
500 + .183554E+03, .137453E+03, .103390E+03, .777832E+02,
501 + .585649E+02, .441252E+02, .332879E+02, .251668E+02,
502 + .190543E+02, .144588E+02, .110054E+02, .840234E+01,
503 + .643976E+01, .495340E+01, .382777E+01, .296931E+01,
504 + .231301E+01, .180827E+01, .141881E+01, .111619E+01,
505 + .881151E+00, .695510E+00, .550500E+00, .435092E+00,
506 + .344072E+00, .271733E+00, .214253E+00, .168496E+00,
507 + .132122E+00, .103196E+00, .802594E-01, .621063E-01,
508 + .478048E-01, .365677E-01, .277920E-01, .209690E-01,
509 + .156965E-01, .116666E-01, .857642E-02, .624028E-02,
510 + .449215E-02, .319578E-02, .224578E-02, .155666E-02,
511 + .106392E-02, .715873E-03, .474074E-03, .308112E-03,
512 + .197726E-03, .124249E-03, .769182E-04, .469129E-04 /
513 DATA (UPDI(I),I=1717,1768) /
514 + .283747E-04, .170619E-04, .103237E-04, .629191E-05,
515 + .387815E-05, .239032E-05, .145047E-05, .832735E-06,
516 + .432109E-06, .185535E-06, .521558E-07, .352293E-08,
517 + .000000E+00, .370480E+06, .283993E+06, .214457E+06,
518 + .161870E+06, .122138E+06, .921108E+05, .694418E+05,
519 + .523231E+05, .394102E+05, .296670E+05, .223241E+05,
520 + .167886E+05, .126207E+05, .948160E+04, .712033E+04,
521 + .534368E+04, .400866E+04, .300518E+04, .225196E+04,
522 + .168642E+04, .126242E+04, .944431E+03, .706288E+03,
523 + .527891E+03, .394442E+03, .294599E+03, .220054E+03,
524 + .163641E+03, .122224E+03, .912933E+02, .682318E+02,
525 + .510228E+02, .381956E+02, .286517E+02, .215194E+02,
526 + .161970E+02, .122270E+02, .925746E+01, .703574E+01 /
527 DATA (UPDI(I),I=1769,1820) /
528 + .536641E+01, .411219E+01, .316338E+01, .244384E+01,
529 + .189504E+01, .147503E+01, .115136E+01, .902016E+00,
530 + .706689E+00, .555341E+00, .435852E+00, .342349E+00,
531 + .268609E+00, .210454E+00, .164501E+00, .128229E+00,
532 + .995846E-01, .770233E-01, .592846E-01, .453979E-01,
533 + .345539E-01, .261358E-01, .196287E-01, .146280E-01,
534 + .108263E-01, .792637E-02, .574518E-02, .412103E-02,
535 + .292231E-02, .204784E-02, .141624E-02, .966448E-03,
536 + .649920E-03, .430736E-03, .280709E-03, .181074E-03,
537 + .114800E-03, .720460E-04, .448245E-04, .278536E-04,
538 + .173386E-04, .109177E-04, .693551E-05, .443380E-05,
539 + .280832E-05, .172782E-05, .993482E-06, .509866E-06,
540 + .213575E-06, .579790E-07, .400316E-08, .000000E+00 /
541 DATA (UPDI(I),I=1821,1872) /
542 + .496465E+06, .379254E+06, .285238E+06, .214414E+06,
543 + .161114E+06, .120992E+06, .908245E+05, .681368E+05,
544 + .510940E+05, .382895E+05, .286806E+05, .214686E+05,
545 + .160624E+05, .120092E+05, .897417E+04, .670133E+04,
546 + .500152E+04, .373007E+04, .278037E+04, .207091E+04,
547 + .154170E+04, .114688E+04, .852765E+03, .633633E+03,
548 + .470613E+03, .349331E+03, .259300E+03, .191572E+03,
549 + .142146E+03, .105460E+03, .782779E+02, .581239E+02,
550 + .431984E+02, .321674E+02, .239790E+02, .179110E+02,
551 + .134163E+02, .100785E+02, .759927E+01, .575028E+01,
552 + .437136E+01, .333615E+01, .255704E+01, .196741E+01,
553 + .151963E+01, .117724E+01, .915517E+00, .712087E+00,
554 + .555664E+00, .433117E+00, .337938E+00, .263436E+00 /
555 DATA (UPDI(I),I=1873,1924) /
556 + .205105E+00, .159343E+00, .123471E+00, .953371E-01,
557 + .733245E-01, .561303E-01, .427544E-01, .323744E-01,
558 + .243647E-01, .182100E-01, .135067E-01, .995094E-02,
559 + .725328E-02, .523515E-02, .374022E-02, .264249E-02,
560 + .184559E-02, .127275E-02, .866629E-03, .582041E-03,
561 + .385729E-03, .251811E-03, .163061E-03, .104116E-03,
562 + .660594E-04, .417488E-04, .264740E-04, .168880E-04,
563 + .109100E-04, .709903E-05, .462105E-05, .295807E-05,
564 + .182235E-05, .104094E-05, .526268E-06, .214992E-06,
565 + .565166E-07, .397153E-08, .000000E+00, .652228E+06,
566 + .496578E+06, .372015E+06, .278538E+06, .208455E+06,
567 + .155906E+06, .116548E+06, .870671E+05, .650105E+05,
568 + .485072E+05, .361740E+05, .269566E+05, .200765E+05 /
569 DATA (UPDI(I),I=1925,1976) /
570 + .149409E+05, .111124E+05, .825828E+04, .613346E+04,
571 + .455155E+04, .337552E+04, .250124E+04, .185227E+04,
572 + .137053E+04, .101347E+04, .748838E+03, .553002E+03,
573 + .408088E+03, .301106E+03, .221083E+03, .163019E+03,
574 + .120176E+03, .886182E+02, .653636E+02, .482474E+02,
575 + .356779E+02, .264069E+02, .195821E+02, .145603E+02,
576 + .108567E+02, .812448E+01, .610127E+01, .460300E+01,
577 + .348634E+01, .265198E+01, .202521E+01, .155270E+01,
578 + .119409E+01, .921985E+00, .712068E+00, .551837E+00,
579 + .427237E+00, .331162E+00, .256503E+00, .198460E+00,
580 + .153242E+00, .118037E+00, .906125E-01, .692955E-01,
581 + .527528E-01, .399643E-01, .301021E-01, .225379E-01,
582 + .167602E-01, .123703E-01, .907016E-02, .658049E-02 /
583 DATA (UPDI(I),I=1977,2028) /
584 + .472831E-02, .336373E-02, .236702E-02, .164717E-02,
585 + .113233E-02, .769054E-03, .515651E-03, .341577E-03,
586 + .223267E-03, .145051E-03, .931928E-04, .596929E-04,
587 + .382284E-04, .246414E-04, .160140E-04, .105316E-04,
588 + .695693E-05, .457087E-05, .293508E-05, .180091E-05,
589 + .101839E-05, .506291E-06, .201687E-06, .514229E-07,
590 + .367165E-08, .000000E+00, .842794E+06, .639573E+06,
591 + .477304E+06, .355986E+06, .265370E+06, .197682E+06,
592 + .147181E+06, .109501E+06, .814208E+05, .604955E+05,
593 + .449206E+05, .333290E+05, .247127E+05, .183086E+05,
594 + .135549E+05, .100267E+05, .741169E+04, .547370E+04,
595 + .403954E+04, .297837E+04, .219441E+04, .161529E+04,
596 + .118816E+04, .873191E+03, .641291E+03, .470581E+03 /
597 DATA (UPDI(I),I=2029,2080) /
598 + .345225E+03, .251973E+03, .184684E+03, .135316E+03,
599 + .991580E+02, .726711E+02, .532909E+02, .391461E+02,
600 + .287769E+02, .211922E+02, .156467E+02, .115837E+02,
601 + .860613E+01, .641614E+01, .480527E+01, .361301E+01,
602 + .272833E+01, .206845E+01, .157448E+01, .120226E+01,
603 + .921830E+00, .707048E+00, .544257E+00, .418576E+00,
604 + .322346E+00, .248095E+00, .190763E+00, .146405E+00,
605 + .112100E+00, .855533E-01, .650531E-01, .492467E-01,
606 + .371035E-01, .277975E-01, .207030E-01, .153166E-01,
607 + .112478E-01, .820655E-02, .592527E-02, .423778E-02,
608 + .300141E-02, .210329E-02, .145806E-02, .998999E-03,
609 + .676677E-03, .452903E-03, .299845E-03, .196211E-03,
610 + .127870E-03, .826353E-04, .533934E-04, .345971E-04 /
611 DATA (UPDI(I),I=2081,2132) /
612 + .226095E-04, .149107E-04, .993284E-05, .662471E-05,
613 + .437088E-05, .280355E-05, .170820E-05, .954422E-06,
614 + .466091E-06, .181050E-06, .448256E-07, .324927E-08,
615 + .000000E+00, .107358E+07, .812104E+06, .603776E+06,
616 + .448599E+06, .333116E+06, .247179E+06, .183302E+06,
617 + .135828E+06, .100585E+06, .744255E+05, .550325E+05,
618 + .406579E+05, .300166E+05, .221405E+05, .163188E+05,
619 + .120166E+05, .884171E+04, .649927E+04, .477356E+04,
620 + .350254E+04, .256787E+04, .188070E+04, .137631E+04,
621 + .100619E+04, .735033E+03, .536435E+03, .391352E+03,
622 + .284001E+03, .206956E+03, .150741E+03, .109795E+03,
623 + .799723E+02, .582760E+02, .425345E+02, .310631E+02,
624 + .227239E+02, .166639E+02, .122524E+02, .903972E+01 /
625 DATA (UPDI(I),I=2133,2184) /
626 + .669230E+01, .497683E+01, .371565E+01, .278605E+01,
627 + .209741E+01, .158538E+01, .120222E+01, .915534E+00,
628 + .697485E+00, .533345E+00, .407508E+00, .311814E+00,
629 + .238485E+00, .182244E+00, .139023E+00, .105815E+00,
630 + .802862E-01, .606985E-01, .456923E-01, .342353E-01,
631 + .255098E-01, .188980E-01, .139084E-01, .101612E-01,
632 + .737664E-02, .529993E-02, .377261E-02, .265989E-02,
633 + .185608E-02, .128171E-02, .875227E-03, .591248E-03,
634 + .395039E-03, .261416E-03, .171276E-03, .111976E-03,
635 + .727816E-04, .474163E-04, .310519E-04, .205332E-04,
636 + .137012E-04, .921206E-05, .617970E-05, .408047E-05,
637 + .260717E-05, .157443E-05, .868061E-06, .416110E-06,
638 + .157617E-06, .379346E-07, .279017E-08, .000000E+00 /
639 DATA (UPDI(I),I=2185,2236) /
640 + .135035E+07, .101825E+07, .754222E+06, .558276E+06,
641 + .412982E+06, .305262E+06, .225492E+06, .166431E+06,
642 + .122753E+06, .904601E+05, .666133E+05, .490085E+05,
643 + .360282E+05, .264606E+05, .194178E+05, .142352E+05,
644 + .104270E+05, .762949E+04, .557761E+04, .407315E+04,
645 + .297183E+04, .216590E+04, .157712E+04, .114713E+04,
646 + .833657E+03, .605190E+03, .439131E+03, .316899E+03,
647 + .229633E+03, .166304E+03, .120422E+03, .871910E+02,
648 + .631494E+02, .458067E+02, .332412E+02, .241609E+02,
649 + .176018E+02, .128563E+02, .942163E+01, .692787E+01,
650 + .511690E+01, .379412E+01, .282541E+01, .211254E+01,
651 + .158597E+01, .119456E+01, .903640E+00, .683872E+00,
652 + .519537E+00, .394406E+00, .299883E+00, .227937E+00 /
653 DATA (UPDI(I),I=2237,2288) /
654 + .173119E+00, .131269E+00, .993215E-01, .749214E-01,
655 + .563184E-01, .421566E-01, .314110E-01, .232779E-01,
656 + .171521E-01, .125573E-01, .912653E-02, .659201E-02,
657 + .471275E-02, .333867E-02, .234325E-02, .162821E-02,
658 + .112004E-02, .762315E-03, .513651E-03, .342659E-03,
659 + .226702E-03, .148753E-03, .975836E-04, .637956E-04,
660 + .418928E-04, .277016E-04, .185042E-04, .124629E-04,
661 + .843371E-05, .567417E-05, .374034E-05, .237593E-05,
662 + .142011E-05, .771918E-06, .363021E-06, .134104E-06,
663 + .314044E-07, .234300E-08, .000000E+00, .167909E+07,
664 + .126221E+07, .931497E+06, .686942E+06, .506254E+06,
665 + .372787E+06, .274312E+06, .201676E+06, .148161E+06,
666 + .108748E+06, .797557E+05, .584367E+05, .427803E+05 /
667 DATA (UPDI(I),I=2289,2340) /
668 + .312870E+05, .228611E+05, .166867E+05, .121686E+05,
669 + .886392E+04, .645050E+04, .468879E+04, .340489E+04,
670 + .246964E+04, .178951E+04, .129516E+04, .936473E+03,
671 + .676318E+03, .488162E+03, .350370E+03, .252501E+03,
672 + .181849E+03, .130931E+03, .942514E+02, .678596E+02,
673 + .489281E+02, .352884E+02, .254891E+02, .184516E+02,
674 + .133904E+02, .974919E+01, .712169E+01, .522523E+01,
675 + .384871E+01, .284696E+01, .211451E+01, .157692E+01,
676 + .117991E+01, .886737E+00, .666724E+00, .503271E+00,
677 + .379637E+00, .286853E+00, .216696E+00, .163585E+00,
678 + .123300E+00, .927427E-01, .695536E-01, .519848E-01,
679 + .386941E-01, .286711E-01, .211316E-01, .154870E-01,
680 + .112785E-01, .815456E-02, .586013E-02, .416877E-02 /
681 DATA (UPDI(I),I=2341,2392) /
682 + .293928E-02, .205364E-02, .142102E-02, .973843E-03,
683 + .660733E-03, .444152E-03, .295914E-03, .195793E-03,
684 + .128707E-03, .847457E-04, .557289E-04, .368755E-04,
685 + .245994E-04, .165740E-04, .112438E-04, .764028E-05,
686 + .514375E-05, .337853E-05, .213042E-05, .125907E-05,
687 + .674238E-06, .310965E-06, .112048E-06, .255543E-07,
688 + .193341E-08, .000000E+00, .206594E+07, .154828E+07,
689 + .113847E+07, .836505E+06, .614192E+06, .450575E+06,
690 + .330293E+06, .241901E+06, .177022E+06, .129420E+06,
691 + .945374E+05, .689873E+05, .502970E+05, .366314E+05,
692 + .266534E+05, .193716E+05, .140651E+05, .102003E+05,
693 + .738982E+04, .534718E+04, .386505E+04, .279024E+04,
694 + .201216E+04, .144924E+04, .104269E+04, .749226E+03 /
695 DATA (UPDI(I),I=2393,2444) /
696 + .538009E+03, .384101E+03, .275336E+03, .197220E+03,
697 + .141212E+03, .101080E+03, .723575E+02, .518668E+02,
698 + .371846E+02, .266960E+02, .192061E+02, .138510E+02,
699 + .100207E+02, .727332E+01, .530211E+01, .388007E+01,
700 + .285151E+01, .210415E+01, .155901E+01, .115898E+01,
701 + .865439E+00, .646560E+00, .484981E+00, .363556E+00,
702 + .273011E+00, .204988E+00, .153818E+00, .115253E+00,
703 + .861829E-01, .642617E-01, .477565E-01, .353478E-01,
704 + .260466E-01, .190928E-01, .139178E-01, .100824E-01,
705 + .725197E-02, .518521E-02, .367049E-02, .257579E-02,
706 + .179169E-02, .123472E-02, .843128E-03, .570365E-03,
707 + .382600E-03, .254660E-03, .168577E-03, .111058E-03,
708 + .734171E-04, .485652E-04, .323694E-04, .217643E-04 /
709 DATA (UPDI(I),I=2445,2496) /
710 + .147694E-04, .100733E-04, .685973E-05, .461272E-05,
711 + .301431E-05, .188467E-05, .110044E-05, .580247E-06,
712 + .262381E-06, .922350E-07, .205043E-07, .157287E-08,
713 + .000000E+00, .251708E+07, .188070E+07, .137794E+07,
714 + .100881E+07, .737992E+06, .539394E+06, .393920E+06,
715 + .287409E+06, .209516E+06, .152582E+06, .111018E+06,
716 + .806912E+05, .585923E+05, .424985E+05, .307939E+05,
717 + .222868E+05, .161127E+05, .116347E+05, .839190E+04,
718 + .604519E+04, .434976E+04, .312571E+04, .224353E+04,
719 + .160818E+04, .115144E+04, .823275E+03, .588212E+03,
720 + .417767E+03, .297910E+03, .212261E+03, .151160E+03,
721 + .107607E+03, .765981E+02, .545944E+02, .389126E+02,
722 + .277718E+02, .198601E+02, .142357E+02, .102356E+02 /
723 DATA (UPDI(I),I=2497,2548) /
724 + .738305E+01, .534831E+01, .388918E+01, .284008E+01,
725 + .208242E+01, .153312E+01, .113252E+01, .840373E+00,
726 + .623899E+00, .465086E+00, .346496E+00, .258619E+00,
727 + .193017E+00, .143975E+00, .107245E+00, .797300E-01,
728 + .591100E-01, .436796E-01, .321501E-01, .235599E-01,
729 + .171764E-01, .124540E-01, .897483E-02, .642205E-02,
730 + .456884E-02, .321846E-02, .224814E-02, .155702E-02,
731 + .106879E-02, .727334E-03, .490709E-03, .328578E-03,
732 + .218573E-03, .144813E-03, .956462E-04, .634962E-04,
733 + .422497E-04, .283523E-04, .191959E-04, .131019E-04,
734 + .896867E-05, .611036E-05, .409755E-05, .266077E-05,
735 + .164800E-05, .950101E-06, .493071E-06, .218560E-06,
736 + .749743E-07, .162598E-07, .126436E-08, .000000E+00 /
737 DATA (UPDI(I),I=2549,2600) /
738 + .456755E+05, .682926E+05, .531744E+05, .414034E+05,
739 + .322384E+05, .251025E+05, .195464E+05, .152204E+05,
740 + .118521E+05, .922947E+04, .718740E+04, .559739E+04,
741 + .435933E+04, .339531E+04, .264467E+04, .206015E+04,
742 + .160500E+04, .125056E+04, .974541E+03, .759587E+03,
743 + .592179E+03, .461794E+03, .360236E+03, .281127E+03,
744 + .219497E+03, .171478E+03, .134060E+03, .104533E+03,
745 + .818865E+02, .642252E+02, .504467E+02, .396929E+02,
746 + .312952E+02, .247503E+02, .196175E+02, .156001E+02,
747 + .124510E+02, .997779E+01, .803052E+01, .649199E+01,
748 + .527360E+01, .430281E+01, .352569E+01, .290002E+01,
749 + .239321E+01, .198016E+01, .164259E+01, .136242E+01,
750 + .113152E+01, .938069E+00, .777081E+00, .642266E+00 /
751 DATA (UPDI(I),I=2601,2652) /
752 + .529244E+00, .434482E+00, .355108E+00, .288756E+00,
753 + .233456E+00, .187548E+00, .149618E+00, .118454E+00,
754 + .930106E-01, .723840E-01, .557913E-01, .426109E-01,
755 + .321284E-01, .239321E-01, .175935E-01, .127501E-01,
756 + .909710E-02, .638112E-02, .439319E-02, .296298E-02,
757 + .195286E-02, .125388E-02, .785476E-03, .475095E-03,
758 + .277154E-03, .155101E-03, .827135E-04, .416838E-04,
759 + .196389E-04, .854155E-05, .334451E-05, .115693E-05,
760 + .338613E-06, .789000E-07, .132158E-07, .131399E-08,
761 + .504464E-10, .189021E-12, .000000E+00, .122611E+06,
762 + .959593E+05, .742265E+05, .574131E+05, .444094E+05,
763 + .343492E+05, .265688E+05, .205497E+05, .158947E+05,
764 + .122937E+05, .950886E+04, .735461E+04, .568871E+04 /
765 DATA (UPDI(I),I=2653,2704) /
766 + .440006E+04, .340357E+04, .263276E+04, .203672E+04,
767 + .157568E+04, .121918E+04, .943424E+03, .730203E+03,
768 + .565269E+03, .437730E+03, .339067E+03, .262766E+03,
769 + .203734E+03, .158082E+03, .122311E+03, .950810E+02,
770 + .739953E+02, .576707E+02, .450209E+02, .352175E+02,
771 + .276320E+02, .217287E+02, .171413E+02, .135730E+02,
772 + .107902E+02, .861583E+01, .691000E+01, .556939E+01,
773 + .450877E+01, .366612E+01, .299255E+01, .245118E+01,
774 + .201313E+01, .165798E+01, .136534E+01, .112616E+01,
775 + .927260E+00, .763054E+00, .626587E+00, .513075E+00,
776 + .418619E+00, .340100E+00, .274939E+00, .221021E+00,
777 + .176572E+00, .140103E+00, .110337E+00, .861953E-01,
778 + .667497E-01, .511996E-01, .389229E-01, .292141E-01 /
779 DATA (UPDI(I),I=2705,2756) /
780 + .216647E-01, .158576E-01, .114435E-01, .813115E-02,
781 + .568016E-02, .389450E-02, .261524E-02, .171586E-02,
782 + .109554E-02, .681636E-03, .408311E-03, .234709E-03,
783 + .128182E-03, .654347E-04, .303242E-04, .118782E-04,
784 + .307820E-05, .000000E+00, .000000E+00, .000000E+00,
785 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
786 + .000000E+00, .000000E+00, .170113E+06, .132455E+06,
787 + .101857E+06, .783180E+05, .602186E+05, .462960E+05,
788 + .355922E+05, .273596E+05, .210312E+05, .161646E+05,
789 + .124241E+05, .954810E+04, .733794E+04, .563878E+04,
790 + .433322E+04, .332965E+04, .255867E+04, .196610E+04,
791 + .151092E+04, .116112E+04, .892468E+03, .686028E+03,
792 + .527487E+03, .405666E+03, .312109E+03, .240223E+03 /
793 DATA (UPDI(I),I=2757,2808) /
794 + .185033E+03, .142086E+03, .109629E+03, .846718E+02,
795 + .654913E+02, .507341E+02, .393812E+02, .306597E+02,
796 + .239225E+02, .187246E+02, .147113E+02, .116036E+02,
797 + .919343E+01, .731594E+01, .585131E+01, .470077E+01,
798 + .379338E+01, .307325E+01, .249879E+01, .203732E+01,
799 + .166602E+01, .136230E+01, .111599E+01, .912696E+00,
800 + .746141E+00, .608755E+00, .495345E+00, .401670E+00,
801 + .324374E+00, .260687E+00, .208361E+00, .165522E+00,
802 + .130616E+00, .102314E+00, .795106E-01, .612615E-01,
803 + .467564E-01, .353753E-01, .264275E-01, .195097E-01,
804 + .142186E-01, .102188E-01, .723357E-02, .503596E-02,
805 + .344291E-02, .230701E-02, .151204E-02, .965709E-03,
806 + .602512E-03, .363184E-03, .211370E-03, .118058E-03 /
807 DATA (UPDI(I),I=2809,2860) /
808 + .628452E-04, .315405E-04, .147047E-04, .620980E-05,
809 + .224301E-05, .597936E-06, .305384E-07, .000000E+00,
810 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
811 + .000000E+00, .231894E+06, .179725E+06, .137470E+06,
812 + .105130E+06, .803928E+05, .614636E+05, .469884E+05,
813 + .359148E+05, .274491E+05, .209746E+05, .160264E+05,
814 + .122430E+05, .935237E+04, .714284E+04, .545517E+04,
815 + .416552E+04, .318076E+04, .242844E+04, .185414E+04,
816 + .141552E+04, .108079E+04, .825202E+03, .630189E+03,
817 + .481311E+03, .367733E+03, .281039E+03, .214938E+03,
818 + .163848E+03, .125503E+03, .962202E+02, .738736E+02,
819 + .568003E+02, .437584E+02, .338101E+02, .261802E+02,
820 + .203352E+02, .158547E+02, .124097E+02, .975709E+01 /
821 DATA (UPDI(I),I=2861,2912) /
822 + .770532E+01, .611621E+01, .487669E+01, .390610E+01,
823 + .314130E+01, .253563E+01, .205256E+01, .166674E+01,
824 + .135342E+01, .110124E+01, .894620E+00, .726601E+00,
825 + .589026E+00, .476295E+00, .383857E+00, .308132E+00,
826 + .246178E+00, .195629E+00, .154530E+00, .121267E+00,
827 + .944754E-01, .730291E-01, .559764E-01, .425049E-01,
828 + .319996E-01, .237894E-01, .174790E-01, .126803E-01,
829 + .907321E-02, .639609E-02, .443585E-02, .302232E-02,
830 + .201951E-02, .132111E-02, .843168E-03, .526724E-03,
831 + .318836E-03, .187246E-03, .106347E-03, .583381E-04,
832 + .308533E-04, .157980E-04, .788457E-05, .389127E-05,
833 + .194138E-05, .996919E-06, .516711E-06, .257979E-06,
834 + .112049E-06, .328328E-07, .212505E-08, .000000E+00 /
835 DATA (UPDI(I),I=2913,2964) /
836 + .311126E+06, .240100E+06, .182741E+06, .139048E+06,
837 + .105788E+06, .804613E+05, .611900E+05, .465209E+05,
838 + .353638E+05, .268747E+05, .204208E+05, .155124E+05,
839 + .117824E+05, .894674E+04, .679287E+04, .515616E+04,
840 + .391352E+04, .296964E+04, .225333E+04, .170948E+04,
841 + .129695E+04, .983855E+03, .746444E+03, .566326E+03,
842 + .429784E+03, .326227E+03, .247787E+03, .187555E+03,
843 + .142651E+03, .108588E+03, .827695E+02, .631777E+02,
844 + .483146E+02, .370553E+02, .284800E+02, .219564E+02,
845 + .169906E+02, .131991E+02, .103001E+02, .807342E+01,
846 + .636088E+01, .503438E+01, .400293E+01, .319589E+01,
847 + .256129E+01, .205871E+01, .166019E+01, .133885E+01,
848 + .108211E+01, .873268E+00, .704674E+00, .567623E+00 /
849 DATA (UPDI(I),I=2965,3016) /
850 + .456131E+00, .365361E+00, .291527E+00, .231540E+00,
851 + .182932E+00, .143679E+00, .112122E+00, .868716E-01,
852 + .667899E-01, .509243E-01, .384673E-01, .288127E-01,
853 + .213126E-01, .155823E-01, .112502E-01, .801276E-02,
854 + .562360E-02, .388392E-02, .263627E-02, .175582E-02,
855 + .114581E-02, .730281E-03, .456357E-03, .277053E-03,
856 + .163853E-03, .943059E-04, .529444E-04, .290836E-04,
857 + .158050E-04, .859640E-05, .474658E-05, .267901E-05,
858 + .153125E-05, .850723E-06, .434976E-06, .185809E-06,
859 + .521662E-07, .352298E-08, .000000E+00, .411447E+06,
860 + .316241E+06, .239566E+06, .181421E+06, .137362E+06,
861 + .103966E+06, .786728E+05, .595115E+05, .450079E+05,
862 + .340265E+05, .257192E+05, .194329E+05, .146802E+05 /
863 DATA (UPDI(I),I=3017,3068) /
864 + .110858E+05, .836997E+04, .631726E+04, .476721E+04,
865 + .359631E+04, .271267E+04, .204557E+04, .154246E+04,
866 + .116285E+04, .876699E+03, .660905E+03, .498313E+03,
867 + .375756E+03, .283511E+03, .213129E+03, .160994E+03,
868 + .121704E+03, .921178E+02, .698160E+02, .530097E+02,
869 + .403641E+02, .307980E+02, .235703E+02, .181060E+02,
870 + .139625E+02, .108159E+02, .841568E+01, .658228E+01,
871 + .517191E+01, .408274E+01, .323643E+01, .257555E+01,
872 + .205578E+01, .164652E+01, .131883E+01, .105888E+01,
873 + .848919E+00, .680627E+00, .544793E+00, .435070E+00,
874 + .346367E+00, .274715E+00, .216900E+00, .170371E+00,
875 + .133049E+00, .103242E+00, .795490E-01, .608270E-01,
876 + .461296E-01, .346608E-01, .258267E-01, .190056E-01 /
877 DATA (UPDI(I),I=3069,3120) /
878 + .138253E-01, .993241E-02, .704019E-02, .491821E-02,
879 + .338187E-02, .228623E-02, .151729E-02, .987375E-03,
880 + .628197E-03, .392490E-03, .238815E-03, .142075E-03,
881 + .827045E-04, .473309E-04, .267870E-04, .151860E-04,
882 + .871281E-05, .509652E-05, .302620E-05, .178805E-05,
883 + .100673E-05, .511950E-06, .213772E-06, .579864E-07,
884 + .400319E-08, .000000E+00, .536970E+06, .411138E+06,
885 + .310064E+06, .233746E+06, .176166E+06, .132713E+06,
886 + .999515E+05, .752442E+05, .566287E+05, .425997E+05,
887 + .320373E+05, .240830E+05, .180986E+05, .135952E+05,
888 + .102097E+05, .766387E+04, .575146E+04, .431447E+04,
889 + .323583E+04, .242595E+04, .181852E+04, .136278E+04,
890 + .102120E+04, .765088E+03, .573255E+03, .429516E+03 /
891 DATA (UPDI(I),I=3121,3172) /
892 + .321986E+03, .240447E+03, .180425E+03, .135476E+03,
893 + .101844E+03, .766567E+02, .577983E+02, .437021E+02,
894 + .331088E+02, .251583E+02, .191875E+02, .146904E+02,
895 + .112981E+02, .872786E+01, .677772E+01, .528765E+01,
896 + .414465E+01, .326253E+01, .257834E+01, .204391E+01,
897 + .162598E+01, .129367E+01, .103187E+01, .821888E+00,
898 + .654753E+00, .520794E+00, .413336E+00, .327064E+00,
899 + .257851E+00, .202384E+00, .158043E+00, .122714E+00,
900 + .946841E-01, .725478E-01, .551684E-01, .416116E-01,
901 + .310980E-01, .230495E-01, .168729E-01, .122106E-01,
902 + .872795E-02, .615595E-02, .428000E-02, .292969E-02,
903 + .197222E-02, .130402E-02, .846064E-03, .537243E-03,
904 + .335526E-03, .204555E-03, .122351E-03, .719609E-04 /
905 DATA (UPDI(I),I=3173,3224) /
906 + .418812E-04, .242978E-04, .142265E-04, .846672E-05,
907 + .512568E-05, .312215E-05, .186717E-05, .105068E-05,
908 + .527779E-06, .215133E-06, .565218E-07, .397155E-08,
909 + .000000E+00, .692277E+06, .528103E+06, .396561E+06,
910 + .297651E+06, .223338E+06, .167495E+06, .125572E+06,
911 + .940944E+05, .704827E+05, .527689E+05, .394928E+05,
912 + .295414E+05, .220897E+05, .165090E+05, .123339E+05,
913 + .920989E+04, .687487E+04, .512928E+04, .382577E+04,
914 + .285220E+04, .212590E+04, .158392E+04, .117994E+04,
915 + .878744E+03, .654420E+03, .487304E+03, .363022E+03,
916 + .269346E+03, .200808E+03, .149797E+03, .111864E+03,
917 + .836341E+02, .626312E+02, .470329E+02, .353860E+02,
918 + .267017E+02, .202222E+02, .153740E+02, .117408E+02 /
919 DATA (UPDI(I),I=3225,3276) /
920 + .900618E+01, .694490E+01, .538032E+01, .418804E+01,
921 + .327402E+01, .256979E+01, .202337E+01, .159894E+01,
922 + .126373E+01, .100145E+01, .792524E+00, .627364E+00,
923 + .495897E+00, .391155E+00, .307636E+00, .241083E+00,
924 + .188106E+00, .146038E+00, .112740E+00, .864941E-01,
925 + .659007E-01, .498359E-01, .373840E-01, .277867E-01,
926 + .204849E-01, .149158E-01, .107376E-01, .763562E-02,
927 + .535846E-02, .370745E-02, .252604E-02, .169320E-02,
928 + .111529E-02, .721422E-03, .457198E-03, .285419E-03,
929 + .174350E-03, .104836E-03, .622674E-04, .367998E-04,
930 + .218109E-04, .131023E-04, .800679E-05, .495417E-05,
931 + .305834E-05, .183417E-05, .102553E-05, .507385E-06,
932 + .201788E-06, .514267E-07, .367167E-08, .000000E+00 /
933 DATA (UPDI(I),I=3277,3328) /
934 + .882391E+06, .670742E+06, .501573E+06, .374884E+06,
935 + .280084E+06, .209141E+06, .156103E+06, .116449E+06,
936 + .868313E+05, .647089E+05, .482019E+05, .358846E+05,
937 + .267031E+05, .198589E+05, .147625E+05, .109675E+05,
938 + .814465E+04, .604483E+04, .448462E+04, .332530E+04,
939 + .246486E+04, .182619E+04, .135267E+04, .100155E+04,
940 + .741490E+03, .548830E+03, .406371E+03, .299623E+03,
941 + .221980E+03, .164539E+03, .122080E+03, .906771E+02,
942 + .674565E+02, .503192E+02, .376031E+02, .281821E+02,
943 + .211975E+02, .160050E+02, .121387E+02, .924743E+01,
944 + .708202E+01, .544904E+01, .421266E+01, .327101E+01,
945 + .255020E+01, .199458E+01, .156583E+01, .122948E+01,
946 + .968045E+00, .761202E+00, .598783E+00, .470372E+00 /
947 DATA (UPDI(I),I=3329,3380) /
948 + .368749E+00, .288263E+00, .224552E+00, .174174E+00,
949 + .134433E+00, .103184E+00, .787113E-01, .596330E-01,
950 + .448449E-01, .334547E-01, .247300E-01, .181329E-01,
951 + .131323E-01, .940361E-02, .665220E-02, .464463E-02,
952 + .319780E-02, .216865E-02, .144738E-02, .949778E-03,
953 + .612535E-03, .387476E-03, .241839E-03, .148051E-03,
954 + .895062E-04, .536760E-04, .321795E-04, .194339E-04,
955 + .119202E-04, .742844E-05, .466124E-05, .289589E-05,
956 + .173282E-05, .959641E-06, .466880E-06, .181122E-06,
957 + .448283E-07, .324929E-08, .000000E+00, .111273E+07,
958 + .842921E+06, .627771E+06, .467283E+06, .347664E+06,
959 + .258508E+06, .192124E+06, .142697E+06, .105934E+06,
960 + .785913E+05, .582766E+05, .431845E+05, .319843E+05 /
961 DATA (UPDI(I),I=3381,3432) /
962 + .236732E+05, .175127E+05, .129467E+05, .956629E+04,
963 + .706385E+04, .521352E+04, .384544E+04, .283517E+04,
964 + .208913E+04, .153887E+04, .113301E+04, .834016E+03,
965 + .613717E+03, .451729E+03, .331037E+03, .243758E+03,
966 + .179564E+03, .132392E+03, .977110E+02, .722206E+02,
967 + .535232E+02, .397342E+02, .295821E+02, .221019E+02,
968 + .165762E+02, .124873E+02, .944906E+01, .718780E+01,
969 + .549336E+01, .421854E+01, .325381E+01, .252003E+01,
970 + .195806E+01, .152721E+01, .119140E+01, .932102E+00,
971 + .728305E+00, .569334E+00, .444485E+00, .346333E+00,
972 + .269110E+00, .208384E+00, .160682E+00, .123297E+00,
973 + .940907E-01, .713652E-01, .537620E-01, .402038E-01,
974 + .298264E-01, .219265E-01, .159899E-01, .115176E-01 /
975 DATA (UPDI(I),I=3433,3484) /
976 + .820348E-02, .577287E-02, .401013E-02, .274739E-02,
977 + .185454E-02, .123247E-02, .805776E-03, .518200E-03,
978 + .327271E-03, .204280E-03, .125376E-03, .762308E-04,
979 + .461546E-04, .280460E-04, .172212E-04, .107442E-04,
980 + .679331E-05, .429982E-05, .267615E-05, .159261E-05,
981 + .871866E-06, .416679E-06, .157669E-06, .379365E-07,
982 + .279018E-08, .000000E+00, .138905E+07, .104871E+07,
983 + .777945E+06, .576748E+06, .427365E+06, .316462E+06,
984 + .234213E+06, .173222E+06, .128041E+06, .945785E+05,
985 + .698205E+05, .515063E+05, .379735E+05, .279758E+05,
986 + .205980E+05, .151546E+05, .111432E+05, .818756E+04,
987 + .601246E+04, .441206E+04, .323600E+04, .237187E+04,
988 + .173773E+04, .127243E+04, .931423E+03, .681505E+03 /
989 DATA (UPDI(I),I=3485,3536) /
990 + .498736E+03, .363318E+03, .265939E+03, .194724E+03,
991 + .142690E+03, .104659E+03, .768702E+02, .566085E+02,
992 + .417548E+02, .308854E+02, .229252E+02, .170811E+02,
993 + .127832E+02, .960927E+01, .726155E+01, .551325E+01,
994 + .420603E+01, .322299E+01, .247994E+01, .191445E+01,
995 + .148365E+01, .115004E+01, .894082E+00, .694223E+00,
996 + .539336E+00, .418491E+00, .324105E+00, .250330E+00,
997 + .192692E+00, .147709E+00, .112683E+00, .854958E-01,
998 + .644759E-01, .482975E-01, .359150E-01, .264969E-01,
999 + .193713E-01, .140495E-01, .100651E-01, .713059E-02,
1000 + .499162E-02, .344980E-02, .235195E-02, .158033E-02,
1001 + .104587E-02, .681369E-03, .437057E-03, .275666E-03,
1002 + .172152E-03, .105972E-03, .648241E-04, .396252E-04 /
1003 DATA (UPDI(I),I=3537,3588) /
1004 + .243863E-04, .151946E-04, .961172E-05, .614132E-05,
1005 + .390558E-05, .242731E-05, .143349E-05, .774684E-06,
1006 + .363429E-06, .134140E-06, .314057E-07, .234301E-08,
1007 + .000000E+00, .171735E+07, .129233E+07, .954950E+06,
1008 + .705204E+06, .520474E+06, .383860E+06, .282934E+06,
1009 + .208390E+06, .153390E+06, .112820E+06, .829264E+05,
1010 + .609060E+05, .447034E+05, .327848E+05, .240278E+05,
1011 + .175955E+05, .128765E+05, .941552E+04, .688028E+04,
1012 + .502372E+04, .366593E+04, .267314E+04, .194819E+04,
1013 + .141892E+04, .103302E+04, .751664E+03, .546993E+03,
1014 + .396170E+03, .288307E+03, .209862E+03, .152867E+03,
1015 + .111447E+03, .813537E+02, .595403E+02, .436422E+02,
1016 + .320778E+02, .236587E+02, .175150E+02, .130236E+02 /
1017 DATA (UPDI(I),I=3589,3640) /
1018 + .972699E+01, .730312E+01, .550908E+01, .417580E+01,
1019 + .317930E+01, .243068E+01, .186448E+01, .143581E+01,
1020 + .110595E+01, .854451E+00, .659337E+00, .509094E+00,
1021 + .392628E+00, .302246E+00, .232056E+00, .177569E+00,
1022 + .135320E+00, .102633E+00, .774228E-01, .580547E-01,
1023 + .432418E-01, .319753E-01, .234594E-01, .170559E-01,
1024 + .123027E-01, .876589E-02, .617708E-02, .430160E-02,
1025 + .295790E-02, .200687E-02, .134241E-02, .884848E-03,
1026 + .574552E-03, .367692E-03, .231702E-03, .144834E-03,
1027 + .894653E-04, .550775E-04, .339882E-04, .211670E-04,
1028 + .133581E-04, .854350E-05, .549840E-05, .350265E-05,
1029 + .216859E-05, .126889E-05, .676243E-06, .311258E-06,
1030 + .112073E-06, .255552E-07, .193341E-08, .000000E+00 /
1031 DATA (UPDI(I),I=3641,3692) /
1032 + .210377E+07, .157806E+07, .116165E+07, .854558E+06,
1033 + .628250E+06, .461521E+06, .338817E+06, .248539E+06,
1034 + .182190E+06, .133445E+06, .976717E+05, .714283E+05,
1035 + .521980E+05, .381121E+05, .278066E+05, .202699E+05,
1036 + .147649E+05, .107455E+05, .781456E+04, .567815E+04,
1037 + .412298E+04, .299130E+04, .216891E+04, .157146E+04,
1038 + .113803E+04, .823602E+03, .596063E+03, .429277E+03,
1039 + .310637E+03, .224823E+03, .162812E+03, .117999E+03,
1040 + .856220E+02, .622867E+02, .453764E+02, .331470E+02,
1041 + .242954E+02, .178740E+02, .132071E+02, .980190E+01,
1042 + .731292E+01, .548163E+01, .412875E+01, .312367E+01,
1043 + .237313E+01, .180891E+01, .138436E+01, .105968E+01,
1044 + .813668E+00, .624012E+00, .478892E+00, .367112E+00 /
1045 DATA (UPDI(I),I=3693,3744) /
1046 + .280915E+00, .214400E+00, .163095E+00, .123565E+00,
1047 + .931755E-01, .698854E-01, .521046E-01, .385909E-01,
1048 + .283766E-01, .207036E-01, .149693E-01, .107388E-01,
1049 + .761025E-02, .533429E-02, .369549E-02, .252844E-02,
1050 + .170738E-02, .113710E-02, .746647E-03, .483333E-03,
1051 + .308709E-03, .194438E-03, .121717E-03, .754820E-04,
1052 + .467804E-04, .291380E-04, .183463E-04, .117053E-04,
1053 + .755040E-05, .488123E-05, .310730E-05, .191294E-05,
1054 + .110763E-05, .581697E-06, .262590E-06, .922531E-07,
1055 + .205050E-07, .157287E-08, .000000E+00, .255448E+07,
1056 + .191014E+07, .140087E+07, .102665E+07, .751888E+06,
1057 + .550215E+06, .402346E+06, .293970E+06, .214626E+06,
1058 + .156561E+06, .114116E+06, .831041E+05, .604714E+05 /
1059 DATA (UPDI(I),I=3745,3796) /
1060 + .439620E+05, .319337E+05, .231747E+05, .168043E+05,
1061 + .121735E+05, .881162E+04, .637222E+04, .460460E+04,
1062 + .332432E+04, .239833E+04, .172887E+04, .124556E+04,
1063 + .896678E+03, .645486E+03, .462317E+03, .332704E+03,
1064 + .239451E+03, .172422E+03, .124246E+03, .896299E+02,
1065 + .648194E+02, .469400E+02, .340831E+02, .248299E+02,
1066 + .181558E+02, .133330E+02, .983442E+01, .729183E+01,
1067 + .543200E+01, .406601E+01, .305716E+01, .230823E+01,
1068 + .174857E+01, .132998E+01, .101179E+01, .772174E+00,
1069 + .588591E+00, .448990E+00, .342133E+00, .260248E+00,
1070 + .197457E+00, .149328E+00, .112478E+00, .843271E-01,
1071 + .628874E-01, .466211E-01, .343354E-01, .251065E-01,
1072 + .182165E-01, .130985E-01, .934579E-02, .658749E-02 /
1073 DATA (UPDI(I),I=3797,3848) /
1074 + .459311E-02, .316575E-02, .215537E-02, .144873E-02,
1075 + .960796E-03, .628608E-03, .405798E-03, .258776E-03,
1076 + .162984E-03, .102225E-03, .636722E-04, .397332E-04,
1077 + .249723E-04, .158803E-04, .102251E-04, .663709E-05,
1078 + .430030E-05, .273024E-05, .166889E-05, .955351E-06,
1079 + .494116E-06, .218709E-06, .749871E-07, .162603E-07,
1080 + .126436E-08, .000000E+00, .456193E+05, .682704E+05,
1081 + .531545E+05, .413855E+05, .322224E+05, .250882E+05,
1082 + .195336E+05, .152089E+05, .118417E+05, .922018E+04,
1083 + .717907E+04, .558991E+04, .435262E+04, .338930E+04,
1084 + .263927E+04, .205531E+04, .160065E+04, .124665E+04,
1085 + .971030E+03, .756431E+03, .589341E+03, .459239E+03,
1086 + .357935E+03, .279051E+03, .217622E+03, .169782E+03 /
1087 DATA (UPDI(I),I=3849,3900) /
1088 + .132523E+03, .103138E+03, .806157E+02, .630638E+02,
1089 + .493815E+02, .387119E+02, .303877E+02, .239067E+02,
1090 + .188295E+02, .148605E+02, .117535E+02, .931730E+01,
1091 + .740302E+01, .589451E+01, .470410E+01, .376018E+01,
1092 + .300956E+01, .241063E+01, .193122E+01, .154642E+01,
1093 + .123790E+01, .987722E+00, .787168E+00, .624428E+00,
1094 + .493822E+00, .388767E+00, .304489E+00, .237110E+00,
1095 + .183466E+00, .140969E+00, .107493E+00, .812942E-01,
1096 + .609358E-01, .452398E-01, .332416E-01, .241547E-01,
1097 + .173414E-01, .123082E-01, .859515E-02, .591022E-02,
1098 + .399590E-02, .265192E-02, .172424E-02, .109583E-02,
1099 + .678922E-03, .408717E-03, .238049E-03, .133373E-03,
1100 + .718489E-04, .365667E-04, .174436E-04, .765611E-05 /
1101 DATA (UPDI(I),I=3901,3952) /
1102 + .299551E-05, .978679E-06, .218628E-06, .000000E+00,
1103 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1104 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1105 + .000000E+00, .122584E+06, .959348E+05, .742046E+05,
1106 + .573934E+05, .443918E+05, .343335E+05, .265546E+05,
1107 + .205370E+05, .158834E+05, .122835E+05, .949971E+04,
1108 + .734640E+04, .568135E+04, .439345E+04, .339764E+04,
1109 + .262744E+04, .203195E+04, .157139E+04, .121533E+04,
1110 + .939964E+03, .727090E+03, .562468E+03, .435207E+03,
1111 + .336793E+03, .260712E+03, .201877E+03, .156400E+03,
1112 + .120786E+03, .936933E+02, .727288E+02, .565110E+02,
1113 + .439552E+02, .342342E+02, .267208E+02, .208807E+02,
1114 + .163488E+02, .128293E+02, .100899E+02, .795465E+01 /
1115 DATA (UPDI(I),I=3953,4004) /
1116 + .628467E+01, .497757E+01, .394908E+01, .313786E+01,
1117 + .249560E+01, .198576E+01, .157965E+01, .125670E+01,
1118 + .996717E+00, .789973E+00, .623376E+00, .490635E+00,
1119 + .384555E+00, .300011E+00, .232814E+00, .179620E+00,
1120 + .137686E+00, .104808E+00, .791765E-01, .593340E-01,
1121 + .440761E-01, .324401E-01, .236390E-01, .170420E-01,
1122 + .121662E-01, .856190E-02, .594540E-02, .407011E-02,
1123 + .274328E-02, .181841E-02, .118304E-02, .754261E-03,
1124 + .469664E-03, .284796E-03, .166718E-03, .941481E-04,
1125 + .498422E-04, .239792E-04, .944761E-05, .175370E-05,
1126 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1127 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1128 + .000000E+00, .000000E+00, .000000E+00, .000000E+00 /
1129 DATA (UPDI(I),I=4005,4056) /
1130 + .170083E+06, .132428E+06, .101833E+06, .782965E+05,
1131 + .601993E+05, .462788E+05, .355767E+05, .273457E+05,
1132 + .210188E+05, .161534E+05, .124141E+05, .953914E+04,
1133 + .732990E+04, .563157E+04, .432675E+04, .332385E+04,
1134 + .255346E+04, .196142E+04, .150672E+04, .115735E+04,
1135 + .889075E+03, .682976E+03, .524739E+03, .403189E+03,
1136 + .309874E+03, .238203E+03, .183205E+03, .140430E+03,
1137 + .108124E+03, .833002E+02, .642375E+02, .495845E+02,
1138 + .383232E+02, .296822E+02, .230162E+02, .178811E+02,
1139 + .139235E+02, .108658E+02, .850083E+01, .666505E+01,
1140 + .523943E+01, .412621E+01, .325503E+01, .257061E+01,
1141 + .203160E+01, .160549E+01, .126929E+01, .100060E+01,
1142 + .788564E+00, .618895E+00, .484654E+00, .378076E+00 /
1143 DATA (UPDI(I),I=4057,4108) /
1144 + .293683E+00, .227006E+00, .174529E+00, .133373E+00,
1145 + .101263E+00, .763415E-01, .571278E-01, .424031E-01,
1146 + .312087E-01, .227611E-01, .164394E-01, .117713E-01,
1147 + .832058E-02, .581227E-02, .401072E-02, .273124E-02,
1148 + .183488E-02, .121440E-02, .791710E-03, .507501E-03,
1149 + .319807E-03, .197255E-03, .119892E-03, .708566E-04,
1150 + .408402E-04, .227335E-04, .121483E-04, .608813E-05,
1151 + .278390E-05, .106035E-05, .245676E-06, .000000E+00,
1152 + .000000E+00, .000000E+00, .000000E+00, .000000E+00,
1153 + .000000E+00, .000000E+00, .000000E+00, .231862E+06,
1154 + .179696E+06, .137444E+06, .105107E+06, .803719E+05,
1155 + .614448E+05, .469716E+05, .358997E+05, .274356E+05,
1156 + .209625E+05, .160155E+05, .122333E+05, .934363E+04 /
1157 DATA (UPDI(I),I=4109,4160) /
1158 + .713501E+04, .544814E+04, .415921E+04, .317510E+04,
1159 + .242336E+04, .184958E+04, .141142E+04, .107711E+04,
1160 + .821891E+03, .627209E+03, .478627E+03, .365312E+03,
1161 + .278853E+03, .212962E+03, .162060E+03, .123879E+03,
1162 + .947430E+02, .725258E+02, .555671E+02, .426265E+02,
1163 + .327675E+02, .252169E+02, .194423E+02, .150246E+02,
1164 + .116363E+02, .903515E+01, .703099E+01, .548639E+01,
1165 + .428930E+01, .335959E+01, .263471E+01, .206822E+01,
1166 + .162370E+01, .127562E+01, .999449E+00, .783124E+00,
1167 + .611220E+00, .476146E+00, .369608E+00, .285785E+00,
1168 + .219958E+00, .168449E+00, .128269E+00, .970797E-01,
1169 + .729857E-01, .544922E-01, .403743E-01, .296795E-01,
1170 + .216331E-01, .156260E-01, .111988E-01, .793001E-02 /
1171 DATA (UPDI(I),I=4161,4212) /
1172 + .555483E-02, .384847E-02, .263498E-02, .178296E-02,
1173 + .119097E-02, .785703E-03, .511340E-03, .328532E-03,
1174 + .207808E-03, .130499E-03, .805886E-04, .493232E-04,
1175 + .298569E-04, .179971E-04, .107751E-04, .648257E-05,
1176 + .389954E-05, .236217E-05, .142376E-05, .849300E-06,
1177 + .483211E-06, .252535E-06, .111520E-06, .328126E-07,
1178 + .212495E-08, .000000E+00, .311091E+06, .240068E+06,
1179 + .182712E+06, .139022E+06, .105766E+06, .804409E+05,
1180 + .611717E+05, .465045E+05, .353491E+05, .268615E+05,
1181 + .204090E+05, .155018E+05, .117729E+05, .893825E+04,
1182 + .678525E+04, .514933E+04, .390739E+04, .296414E+04,
1183 + .224840E+04, .170505E+04, .129297E+04, .980278E+03,
1184 + .743226E+03, .563430E+03, .427174E+03, .323872E+03 /
1185 DATA (UPDI(I),I=4213,4264) /
1186 + .245659E+03, .185633E+03, .140908E+03, .107005E+03,
1187 + .813275E+02, .618613E+02, .471094E+02, .359486E+02,
1188 + .274610E+02, .210157E+02, .161200E+02, .123920E+02,
1189 + .955086E+01, .737769E+01, .571513E+01, .443610E+01,
1190 + .345010E+01, .268703E+01, .209512E+01, .163405E+01,
1191 + .127567E+01, .993354E+00, .773804E+00, .600539E+00,
1192 + .465317E+00, .359359E+00, .276520E+00, .211861E+00,
1193 + .161560E+00, .122538E+00, .924055E-01, .692431E-01,
1194 + .515469E-01, .380951E-01, .279452E-01, .203358E-01,
1195 + .146722E-01, .105090E-01, .744178E-02, .521655E-02,
1196 + .361964E-02, .248441E-02, .168708E-02, .113243E-02,
1197 + .751918E-03, .493493E-03, .320527E-03, .205644E-03,
1198 + .131476E-03, .831277E-04, .524417E-04, .330047E-04 /
1199 DATA (UPDI(I),I=4265,4316) /
1200 + .208826E-04, .132639E-04, .853391E-05, .551601E-05,
1201 + .357719E-05, .228755E-05, .142097E-05, .826009E-06,
1202 + .431013E-06, .185428E-06, .521517E-07, .352291E-08,
1203 + .000000E+00, .411409E+06, .316207E+06, .239535E+06,
1204 + .181394E+06, .137338E+06, .103943E+06, .786530E+05,
1205 + .594938E+05, .449921E+05, .340123E+05, .257064E+05,
1206 + .194214E+05, .146699E+05, .110766E+05, .836175E+04,
1207 + .630988E+04, .476059E+04, .359038E+04, .270735E+04,
1208 + .204080E+04, .153817E+04, .115900E+04, .873237E+03,
1209 + .657790E+03, .495509E+03, .373228E+03, .281230E+03,
1210 + .211070E+03, .159130E+03, .120013E+03, .905813E+02,
1211 + .684166E+02, .517319E+02, .391943E+02, .297247E+02,
1212 + .225834E+02, .171967E+02, .131236E+02, .100413E+02 /
1213 DATA (UPDI(I),I=4317,4368) /
1214 + .770055E+01, .592260E+01, .456464E+01, .352535E+01,
1215 + .272688E+01, .211199E+01, .163648E+01, .126951E+01,
1216 + .982470E+00, .760812E+00, .587078E+00, .452396E+00,
1217 + .347548E+00, .266095E+00, .202903E+00, .154031E+00,
1218 + .116331E+00, .873746E-01, .652304E-01, .483937E-01,
1219 + .356538E-01, .260820E-01, .189343E-01, .136331E-01,
1220 + .974880E-02, .689524E-02, .483011E-02, .335115E-02,
1221 + .230142E-02, .156491E-02, .105281E-02, .701421E-03,
1222 + .462559E-03, .302396E-03, .195744E-03, .126575E-03,
1223 + .812453E-04, .522378E-04, .336638E-04, .218943E-04,
1224 + .143450E-04, .952065E-05, .633594E-05, .420377E-05,
1225 + .273066E-05, .170581E-05, .988525E-06, .509069E-06,
1226 + .213498E-06, .579761E-07, .400314E-08, .000000E+00 /
1227 DATA (UPDI(I),I=4369,4420) /
1228 + .536929E+06, .411101E+06, .310030E+06, .233716E+06,
1229 + .176140E+06, .132690E+06, .999301E+05, .752251E+05,
1230 + .566115E+05, .425844E+05, .320235E+05, .240707E+05,
1231 + .180876E+05, .135853E+05, .102008E+05, .765593E+04,
1232 + .574434E+04, .430808E+04, .323010E+04, .242081E+04,
1233 + .181391E+04, .135864E+04, .101748E+04, .761749E+03,
1234 + .570251E+03, .426810E+03, .319547E+03, .238249E+03,
1235 + .178439E+03, .133678E+03, .100213E+03, .751745E+02,
1236 + .564485E+02, .424702E+02, .319825E+02, .241268E+02,
1237 + .182413E+02, .138216E+02, .105002E+02, .799535E+01,
1238 + .610606E+01, .467325E+01, .358439E+01, .275380E+01,
1239 + .211871E+01, .163103E+01, .125732E+01, .967032E+00,
1240 + .744409E+00, .571100E+00, .437636E+00, .334408E+00 /
1241 DATA (UPDI(I),I=4421,4472) /
1242 + .254716E+00, .193269E+00, .146025E+00, .109787E+00,
1243 + .821071E-01, .610502E-01, .451202E-01, .331242E-01,
1244 + .241521E-01, .174810E-01, .125526E-01, .895470E-02,
1245 + .632053E-02, .442016E-02, .306299E-02, .210207E-02,
1246 + .142923E-02, .962164E-03, .642033E-03, .424546E-03,
1247 + .278700E-03, .181516E-03, .118328E-03, .767956E-04,
1248 + .500644E-04, .328129E-04, .217444E-04, .145338E-04,
1249 + .982190E-05, .663677E-05, .444562E-05, .289952E-05,
1250 + .180596E-05, .103730E-05, .525689E-06, .214937E-06,
1251 + .565144E-07, .397151E-08, .000000E+00, .692233E+06,
1252 + .528063E+06, .396525E+06, .297619E+06, .223309E+06,
1253 + .167469E+06, .125549E+06, .940738E+05, .704642E+05,
1254 + .527523E+05, .394780E+05, .295282E+05, .220778E+05 /
1255 DATA (UPDI(I),I=4473,4524) /
1256 + .164984E+05, .123244E+05, .920136E+04, .686722E+04,
1257 + .512243E+04, .381963E+04, .284670E+04, .212096E+04,
1258 + .157949E+04, .117596E+04, .875174E+03, .651212E+03,
1259 + .484417E+03, .360423E+03, .267007E+03, .198697E+03,
1260 + .147889E+03, .110138E+03, .820693E+02, .612103E+02,
1261 + .457401E+02, .342081E+02, .256272E+02, .192409E+02,
1262 + .144774E+02, .109215E+02, .825830E+01, .626321E+01,
1263 + .476061E+01, .362660E+01, .276759E+01, .211532E+01,
1264 + .161791E+01, .123937E+01, .947349E+00, .724908E+00,
1265 + .552900E+00, .421303E+00, .320175E+00, .242592E+00,
1266 + .183136E+00, .137692E+00, .103036E+00, .767105E-01,
1267 + .567922E-01, .418009E-01, .305681E-01, .222067E-01,
1268 + .160179E-01, .114652E-01, .815479E-02, .574048E-02 /
1269 DATA (UPDI(I),I=4525,4576) /
1270 + .400506E-02, .276986E-02, .189799E-02, .128917E-02,
1271 + .867587E-03, .579197E-03, .383587E-03, .252538E-03,
1272 + .165250E-03, .108423E-03, .710030E-04, .468086E-04,
1273 + .310912E-04, .208970E-04, .141672E-04, .968626E-05,
1274 + .660142E-05, .443742E-05, .289105E-05, .178873E-05,
1275 + .101571E-05, .505872E-06, .201648E-06, .514214E-07,
1276 + .367164E-08, .000000E+00, .882343E+06, .670699E+06,
1277 + .501535E+06, .374849E+06, .280053E+06, .209113E+06,
1278 + .156078E+06, .116427E+06, .868114E+05, .646912E+05,
1279 + .481860E+05, .358703E+05, .266903E+05, .198475E+05,
1280 + .147523E+05, .109584E+05, .813646E+04, .603749E+04,
1281 + .447805E+04, .331940E+04, .245959E+04, .182146E+04,
1282 + .134843E+04, .997746E+03, .738072E+03, .545758E+03 /
1283 DATA (UPDI(I),I=4577,4628) /
1284 + .403609E+03, .297141E+03, .219744E+03, .162522E+03,
1285 + .120259E+03, .890303E+02, .659652E+02, .489667E+02,
1286 + .363752E+02, .270665E+02, .201830E+02, .150825E+02,
1287 + .113002E+02, .848620E+01, .639223E+01, .482582E+01,
1288 + .365163E+01, .276827E+01, .210204E+01, .159745E+01,
1289 + .121605E+01, .923795E+00, .702659E+00, .532793E+00,
1290 + .403676E+00, .305089E+00, .229923E+00, .172673E+00,
1291 + .129173E+00, .961916E-01, .712792E-01, .525333E-01,
1292 + .384983E-01, .280362E-01, .202865E-01, .145780E-01,
1293 + .103971E-01, .737033E-02, .517202E-02, .359823E-02,
1294 + .248228E-02, .169740E-02, .115109E-02, .773939E-03,
1295 + .516604E-03, .342448E-03, .225961E-03, .148450E-03,
1296 + .979546E-04, .646586E-04, .430415E-04, .289114E-04 /
1297 DATA (UPDI(I),I=4629,4680) /
1298 + .196528E-04, .134658E-04, .927788E-05, .635204E-05,
1299 + .426963E-05, .277053E-05, .169917E-05, .952467E-06,
1300 + .465788E-06, .181022E-06, .448246E-07, .324926E-08,
1301 + .000000E+00, .111268E+07, .842875E+06, .627730E+06,
1302 + .467246E+06, .347631E+06, .258478E+06, .192097E+06,
1303 + .142673E+06, .105913E+06, .785722E+05, .582595E+05,
1304 + .431692E+05, .319707E+05, .236610E+05, .175018E+05,
1305 + .129369E+05, .955752E+04, .705600E+04, .520649E+04,
1306 + .383915E+04, .282954E+04, .208408E+04, .153435E+04,
1307 + .112896E+04, .830382E+03, .610455E+03, .448800E+03,
1308 + .328410E+03, .241395E+03, .177437E+03, .130476E+03,
1309 + .959828E+02, .706601E+02, .521125E+02, .384581E+02,
1310 + .284272E+02, .210563E+02, .156299E+02, .116317E+02 /
1311 DATA (UPDI(I),I=4681,4732) /
1312 + .867654E+01, .649185E+01, .486840E+01, .365949E+01,
1313 + .275609E+01, .207929E+01, .157011E+01, .118779E+01,
1314 + .896792E+00, .678042E+00, .511109E+00, .385035E+00,
1315 + .289382E+00, .216905E+00, .162038E+00, .120595E+00,
1316 + .893572E-01, .658952E-01, .483385E-01, .352640E-01,
1317 + .255690E-01, .184238E-01, .131864E-01, .936842E-02,
1318 + .661684E-02, .462727E-02, .320907E-02, .220753E-02,
1319 + .150586E-02, .101922E-02, .684419E-03, .456646E-03,
1320 + .302901E-03, .200268E-03, .132061E-03, .876077E-04,
1321 + .582565E-04, .391211E-04, .265347E-04, .182049E-04,
1322 + .125738E-04, .870598E-05, .597115E-05, .400387E-05,
1323 + .258247E-05, .156777E-05, .866635E-06, .415892E-06,
1324 + .157597E-06, .379338E-07, .279016E-08, .000000E+00 /
1325 DATA (UPDI(I),I=4733,4784) /
1326 + .138900E+07, .104866E+07, .777900E+06, .576708E+06,
1327 + .427329E+06, .316431E+06, .234185E+06, .173196E+06,
1328 + .128019E+06, .945580E+05, .698023E+05, .514899E+05,
1329 + .379589E+05, .279627E+05, .205863E+05, .151442E+05,
1330 + .111338E+05, .817918E+04, .600497E+04, .440535E+04,
1331 + .323000E+04, .236650E+04, .173293E+04, .126812E+04,
1332 + .927569E+03, .678050E+03, .495639E+03, .360544E+03,
1333 + .263449E+03, .192487E+03, .140680E+03, .102851E+03,
1334 + .752418E+02, .551412E+02, .404323E+02, .296933E+02,
1335 + .218507E+02, .161133E+02, .119125E+02, .882751E+01,
1336 + .656135E+01, .488826E+01, .365047E+01, .273155E+01,
1337 + .204761E+01, .153644E+01, .115513E+01, .866799E+00,
1338 + .651453E+00, .488183E+00, .365656E+00, .273280E+00 /
1339 DATA (UPDI(I),I=4785,4836) /
1340 + .203716E+00, .151374E+00, .112072E+00, .826210E-01,
1341 + .606271E-01, .442609E-01, .321389E-01, .231981E-01,
1342 + .166426E-01, .118616E-01, .839312E-02, .590514E-02,
1343 + .411446E-02, .284380E-02, .195030E-02, .132691E-02,
1344 + .896221E-03, .600988E-03, .400769E-03, .266002E-03,
1345 + .176228E-03, .116640E-03, .777861E-04, .520906E-04,
1346 + .352636E-04, .241225E-04, .166757E-04, .115857E-04,
1347 + .804377E-05, .551512E-05, .368255E-05, .235751E-05,
1348 + .141520E-05, .770880E-06, .362864E-06, .134089E-06,
1349 + .314039E-07, .234300E-08, .000000E+00, .171729E+07,
1350 + .129228E+07, .954903E+06, .705162E+06, .520436E+06,
1351 + .383825E+06, .282903E+06, .208362E+06, .153365E+06,
1352 + .112798E+06, .829068E+05, .608885E+05, .446878E+05 /
1353 DATA (UPDI(I),I=4837,4888) /
1354 + .327708E+05, .240153E+05, .175843E+05, .128665E+05,
1355 + .940659E+04, .687230E+04, .501659E+04, .365956E+04,
1356 + .266744E+04, .194309E+04, .141436E+04, .102894E+04,
1357 + .748013E+03, .543724E+03, .393247E+03, .285688E+03,
1358 + .207516E+03, .150762E+03, .109558E+03, .796589E+02,
1359 + .580182E+02, .422754E+02, .308506E+02, .225575E+02,
1360 + .165278E+02, .121401E+02, .893805E+01, .660056E+01,
1361 + .488576E+01, .362516E+01, .269533E+01, .200770E+01,
1362 + .149707E+01, .111863E+01, .834299E+00, .623297E+00,
1363 + .464342E+00, .345804E+00, .256993E+00, .190522E+00,
1364 + .140809E+00, .103702E+00, .760576E-01, .555312E-01,
1365 + .403428E-01, .291544E-01, .209468E-01, .149601E-01,
1366 + .106164E-01, .748064E-02, .524216E-02, .363868E-02 /
1367 DATA (UPDI(I),I=4889,4940) /
1368 + .250616E-02, .171334E-02, .116255E-02, .783531E-03,
1369 + .524699E-03, .349737E-03, .232306E-03, .154239E-03,
1370 + .102478E-03, .687040E-04, .463215E-04, .315919E-04,
1371 + .217711E-04, .151420E-04, .105632E-04, .734066E-05,
1372 + .502278E-05, .333506E-05, .211672E-05, .125546E-05,
1373 + .673485E-06, .310853E-06, .112038E-06, .255539E-07,
1374 + .193341E-08, .000000E+00, .210371E+07, .157800E+07,
1375 + .116160E+07, .854513E+06, .628209E+06, .461485E+06,
1376 + .338784E+06, .248510E+06, .182164E+06, .133421E+06,
1377 + .976508E+05, .714096E+05, .521813E+05, .380972E+05,
1378 + .277932E+05, .202580E+05, .147543E+05, .107360E+05,
1379 + .780607E+04, .567057E+04, .411621E+04, .298525E+04,
1380 + .216351E+04, .156664E+04, .113372E+04, .819750E+03 /
1381 DATA (UPDI(I),I=4941,4992) /
1382 + .592621E+03, .426205E+03, .307890E+03, .222367E+03,
1383 + .160614E+03, .116033E+03, .838625E+02, .607119E+02,
1384 + .439674E+02, .318872E+02, .231699E+02, .168699E+02,
1385 + .123130E+02, .900786E+01, .660985E+01, .486160E+01,
1386 + .358441E+01, .264827E+01, .196033E+01, .145270E+01,
1387 + .107886E+01, .799779E+00, .593968E+00, .439904E+00,
1388 + .325727E+00, .240713E+00, .177468E+00, .130453E+00,
1389 + .955658E-01, .697275E-01, .506516E-01, .366160E-01,
1390 + .263333E-01, .188311E-01, .133878E-01, .945884E-02,
1391 + .663652E-02, .463172E-02, .320257E-02, .219798E-02,
1392 + .149788E-02, .101363E-02, .681747E-03, .455966E-03,
1393 + .303840E-03, .202017E-03, .134455E-03, .896912E-04,
1394 + .604526E-04, .410243E-04, .281692E-04, .195354E-04 /
1395 DATA (UPDI(I),I=4993,5044) /
1396 + .136508E-04, .954659E-05, .663014E-05, .452097E-05,
1397 + .298170E-05, .187451E-05, .109780E-05, .579702E-06,
1398 + .262301E-06, .922279E-07, .205040E-07, .157286E-08,
1399 + .000000E+00, .255441E+07, .191008E+07, .140081E+07,
1400 + .102660E+07, .751845E+06, .550175E+06, .402311E+06,
1401 + .293939E+06, .214598E+06, .156536E+06, .114094E+06,
1402 + .830842E+05, .604536E+05, .439461E+05, .319196E+05,
1403 + .231620E+05, .167930E+05, .121634E+05, .880261E+04,
1404 + .636418E+04, .459743E+04, .331792E+04, .239263E+04,
1405 + .172378E+04, .124101E+04, .892622E+03, .641868E+03,
1406 + .459094E+03, .329829E+03, .236885E+03, .170132E+03,
1407 + .122203E+03, .878078E+02, .631940E+02, .454912E+02,
1408 + .327930E+02, .236825E+02, .171371E+02, .124306E+02 /
1409 DATA (UPDI(I),I=5045,5096) /
1410 + .903731E+01, .659009E+01, .481682E+01, .352925E+01,
1411 + .259135E+01, .190636E+01, .140406E+01, .103645E+01,
1412 + .763724E+00, .563851E+00, .415165E+00, .305651E+00,
1413 + .224609E+00, .164682E+00, .120399E+00, .877313E-01,
1414 + .636780E-01, .460212E-01, .331030E-01, .236909E-01,
1415 + .168612E-01, .119320E-01, .839280E-02, .586319E-02,
1416 + .407524E-02, .280689E-02, .191960E-02, .130408E-02,
1417 + .880195E-03, .590853E-03, .394756E-03, .263045E-03,
1418 + .175116E-03, .116866E-03, .782842E-04, .530455E-04,
1419 + .362204E-04, .250221E-04, .174439E-04, .122304E-04,
1420 + .856218E-05, .593490E-05, .402815E-05, .263637E-05,
1421 + .164049E-05, .948170E-06, .492678E-06, .218503E-06,
1422 + .749693E-07, .162596E-07, .126436E-08, .000000E+00 /
1423 DATA (UPDI(I),I=5097,5148) /
1424 + .154104E+07, .119823E+07, .920026E+06, .706416E+06,
1425 + .542404E+06, .416474E+06, .319784E+06, .245544E+06,
1426 + .188542E+06, .144775E+06, .111170E+06, .853666E+05,
1427 + .655544E+05, .503421E+05, .386614E+05, .296924E+05,
1428 + .228056E+05, .175174E+05, .134567E+05, .103385E+05,
1429 + .794393E+04, .610504E+04, .469281E+04, .360818E+04,
1430 + .277511E+04, .213519E+04, .164361E+04, .126124E+04,
1431 + .972212E+03, .750047E+03, .579240E+03, .447881E+03,
1432 + .346827E+03, .269256E+03, .209360E+03, .163223E+03,
1433 + .127652E+03, .100194E+03, .789653E+02, .625132E+02,
1434 + .497505E+02, .398036E+02, .320272E+02, .259222E+02,
1435 + .211066E+02, .172883E+02, .142536E+02, .118030E+02,
1436 + .983555E+01, .822598E+01, .691360E+01, .583202E+01 /
1437 DATA (UPDI(I),I=5149,5200) /
1438 + .493486E+01, .418599E+01, .355721E+01, .302640E+01,
1439 + .257616E+01, .219265E+01, .186485E+01, .158390E+01,
1440 + .134262E+01, .113513E+01, .956587E+00, .803644E+00,
1441 + .671372E+00, .557927E+00, .460872E+00, .378116E+00,
1442 + .307846E+00, .248481E+00, .198631E+00, .157064E+00,
1443 + .122668E+00, .944481E-01, .717515E-01, .534542E-01,
1444 + .390271E-01, .278367E-01, .193222E-01, .129890E-01,
1445 + .840391E-02, .519522E-02, .302462E-02, .164049E-02,
1446 + .808590E-03, .349739E-03, .125188E-03, .332227E-04,
1447 + .510688E-05, .206459E-06, .000000E+00, .243956E+07,
1448 + .189171E+07, .144771E+07, .110756E+07, .847330E+06,
1449 + .648028E+06, .495600E+06, .378894E+06, .289665E+06,
1450 + .221369E+06, .169170E+06, .129231E+06, .987174E+05 /
1451 DATA (UPDI(I),I=5201,5252) /
1452 + .753793E+05, .575559E+05, .439296E+05, .335276E+05,
1453 + .255787E+05, .195136E+05, .148809E+05, .113478E+05,
1454 + .865052E+04, .659455E+04, .502576E+04, .383058E+04,
1455 + .291897E+04, .222487E+04, .168941E+04, .128844E+04,
1456 + .982907E+03, .750408E+03, .573299E+03, .438544E+03,
1457 + .336153E+03, .258019E+03, .198491E+03, .153160E+03,
1458 + .118570E+03, .921682E+02, .719501E+02, .564686E+02,
1459 + .445480E+02, .353493E+02, .282145E+02, .226587E+02,
1460 + .183052E+02, .148888E+02, .121621E+02, .100000E+02,
1461 + .825218E+01, .684441E+01, .569808E+01, .475887E+01,
1462 + .398449E+01, .334242E+01, .280726E+01, .235914E+01,
1463 + .198243E+01, .166468E+01, .139603E+01, .116841E+01,
1464 + .975424E+00, .811583E+00, .673215E+00, .555218E+00 /
1465 DATA (UPDI(I),I=5253,5304) /
1466 + .455480E+00, .371365E+00, .300699E+00, .241567E+00,
1467 + .192363E+00, .151656E+00, .118241E+00, .910296E-01,
1468 + .690550E-01, .516661E-01, .378863E-01, .272063E-01,
1469 + .190739E-01, .130001E-01, .857346E-02, .543294E-02,
1470 + .328562E-02, .186688E-02, .986201E-03, .471792E-03,
1471 + .197379E-03, .679390E-04, .172479E-04, .254796E-05,
1472 + .105068E-06, .000000E+00, .370495E+07, .286253E+07,
1473 + .218137E+07, .166147E+07, .126537E+07, .963204E+06,
1474 + .733111E+06, .557684E+06, .424177E+06, .322450E+06,
1475 + .245080E+06, .186165E+06, .141387E+06, .107313E+06,
1476 + .814346E+05, .617573E+05, .468246E+05, .354792E+05,
1477 + .268769E+05, .203467E+05, .153998E+05, .116480E+05,
1478 + .880856E+04, .665725E+04, .503070E+04, .379930E+04 /
1479 DATA (UPDI(I),I=5305,5356) /
1480 + .286942E+04, .215794E+04, .162975E+04, .123076E+04,
1481 + .929922E+03, .702870E+03, .531790E+03, .403063E+03,
1482 + .305838E+03, .232525E+03, .177295E+03, .135599E+03,
1483 + .104125E+03, .802857E+02, .622354E+02, .484899E+02,
1484 + .380018E+02, .299564E+02, .237614E+02, .189594E+02,
1485 + .152326E+02, .122902E+02, .998251E+01, .813724E+01,
1486 + .666728E+01, .548347E+01, .452433E+01, .374244E+01,
1487 + .310155E+01, .257361E+01, .213675E+01, .177395E+01,
1488 + .147167E+01, .121929E+01, .100815E+01, .831469E+00,
1489 + .683366E+00, .559941E+00, .456080E+00, .369486E+00,
1490 + .297448E+00, .237772E+00, .188534E+00, .148150E+00,
1491 + .115222E+00, .885960E-01, .672453E-01, .502670E-01,
1492 + .370444E-01, .267394E-01, .188874E-01, .130153E-01 /
1493 DATA (UPDI(I),I=5357,5408) /
1494 + .871024E-02, .563456E-02, .349680E-02, .206816E-02,
1495 + .114653E-02, .589589E-03, .273596E-03, .110607E-03,
1496 + .365710E-04, .887052E-05, .125686E-05, .523806E-07,
1497 + .000000E+00, .542400E+07, .417417E+07, .316626E+07,
1498 + .240027E+07, .181921E+07, .137795E+07, .104348E+07,
1499 + .789673E+06, .597441E+06, .451691E+06, .341397E+06,
1500 + .257845E+06, .194678E+06, .146873E+06, .110767E+06,
1501 + .834697E+05, .628753E+05, .473228E+05, .356028E+05,
1502 + .267625E+05, .201089E+05, .150964E+05, .113290E+05,
1503 + .849461E+04, .636711E+04, .476834E+04, .357042E+04,
1504 + .266113E+04, .199158E+04, .149000E+04, .111504E+04,
1505 + .834543E+03, .625075E+03, .468919E+03, .352082E+03,
1506 + .264830E+03, .199738E+03, .151086E+03, .114729E+03 /
1507 DATA (UPDI(I),I=5409,5460) /
1508 + .874709E+02, .670411E+02, .516429E+02, .400133E+02,
1509 + .311836E+02, .244534E+02, .192895E+02, .153221E+02,
1510 + .122212E+02, .981388E+01, .790851E+01, .640610E+01,
1511 + .520868E+01, .424859E+01, .347425E+01, .284634E+01,
1512 + .233479E+01, .191620E+01, .157254E+01, .128950E+01,
1513 + .105598E+01, .862965E+00, .703419E+00, .571304E+00,
1514 + .462585E+00, .372256E+00, .297921E+00, .236889E+00,
1515 + .187005E+00, .146401E+00, .113558E+00, .871525E-01,
1516 + .661094E-01, .494843E-01, .364604E-01, .264742E-01,
1517 + .188161E-01, .130775E-01, .886034E-02, .582445E-02,
1518 + .369701E-02, .224797E-02, .130083E-02, .704014E-03,
1519 + .352636E-03, .158876E-03, .621330E-04, .197694E-04,
1520 + .459399E-05, .625676E-06, .258753E-07, .000000E+00 /
1521 DATA (UPDI(I),I=5461,5512) /
1522 + .769526E+07, .589811E+07, .445281E+07, .335936E+07,
1523 + .253362E+07, .190949E+07, .143860E+07, .108302E+07,
1524 + .815013E+06, .612840E+06, .460621E+06, .345921E+06,
1525 + .259661E+06, .194738E+06, .145974E+06, .109319E+06,
1526 + .818241E+05, .611848E+05, .457253E+05, .341376E+05,
1527 + .254712E+05, .189855E+05, .141429E+05, .105248E+05,
1528 + .782796E+04, .581587E+04, .431946E+04, .319226E+04,
1529 + .236868E+04, .175665E+04, .130281E+04, .966155E+03,
1530 + .716862E+03, .532647E+03, .396026E+03, .294927E+03,
1531 + .220192E+03, .164856E+03, .123891E+03, .934703E+02,
1532 + .708861E+02, .540280E+02, .414165E+02, .319336E+02,
1533 + .247742E+02, .193333E+02, .151928E+02, .119874E+02,
1534 + .952278E+01, .759090E+01, .608229E+01, .489178E+01 /
1535 DATA (UPDI(I),I=5513,5564) /
1536 + .394666E+01, .319213E+01, .258654E+01, .209836E+01,
1537 + .170313E+01, .138218E+01, .112077E+01, .907537E+00,
1538 + .733302E+00, .590962E+00, .474472E+00, .379766E+00,
1539 + .302039E+00, .238870E+00, .187660E+00, .146342E+00,
1540 + .113150E+00, .866595E-01, .656508E-01, .491423E-01,
1541 + .362863E-01, .263609E-01, .188652E-01, .132064E-01,
1542 + .903453E-02, .602047E-02, .388901E-02, .242315E-02,
1543 + .144438E-02, .818203E-03, .432599E-03, .211232E-03,
1544 + .924997E-04, .350416E-04, .107520E-04, .240058E-05,
1545 + .314824E-06, .125795E-07, .000000E+00, .106260E+08,
1546 + .811145E+07, .609483E+07, .457612E+07, .343439E+07,
1547 + .257550E+07, .193052E+07, .144586E+07, .108233E+07,
1548 + .809494E+06, .605100E+06, .451896E+06, .337279E+06 /
1549 DATA (UPDI(I),I=5565,5616) /
1550 + .251486E+06, .187395E+06, .139493E+06, .103764E+06,
1551 + .771026E+05, .572497E+05, .424606E+05, .314679E+05,
1552 + .232940E+05, .172301E+05, .127300E+05, .939809E+04,
1553 + .692955E+04, .510676E+04, .374382E+04, .275540E+04,
1554 + .202653E+04, .149020E+04, .109555E+04, .805655E+03,
1555 + .593231E+03, .437002E+03, .322396E+03, .238406E+03,
1556 + .176773E+03, .131549E+03, .982701E+02, .737854E+02,
1557 + .556758E+02, .422500E+02, .322474E+02, .247639E+02,
1558 + .191284E+02, .148788E+02, .116188E+02, .913524E+01,
1559 + .720657E+01, .571443E+01, .454809E+01, .363098E+01,
1560 + .290595E+01, .232978E+01, .187002E+01, .150160E+01,
1561 + .120556E+01, .967008E+00, .774532E+00, .618997E+00,
1562 + .493359E+00, .391702E+00, .310012E+00, .243758E+00 /
1563 DATA (UPDI(I),I=5617,5668) /
1564 + .190560E+00, .147960E+00, .114016E+00, .870923E-01,
1565 + .658818E-01, .492825E-01, .364152E-01, .265335E-01,
1566 + .190121E-01, .134149E-01, .925322E-02, .623341E-02,
1567 + .408740E-02, .259586E-02, .158858E-02, .928875E-03,
1568 + .515476E-03, .266500E-03, .126991E-03, .541283E-04,
1569 + .198989E-04, .590333E-05, .127045E-05, .160672E-06,
1570 + .596233E-08, .000000E+00, .143300E+08, .108953E+08,
1571 + .814825E+07, .608886E+07, .454762E+07, .339363E+07,
1572 + .253105E+07, .188602E+07, .140452E+07, .104495E+07,
1573 + .776923E+06, .577060E+06, .428305E+06, .317556E+06,
1574 + .235262E+06, .174098E+06, .128729E+06, .950693E+05,
1575 + .701496E+05, .516973E+05, .380640E+05, .279899E+05,
1576 + .205630E+05, .150871E+05, .110592E+05, .809507E+04 /
1577 DATA (UPDI(I),I=5669,5720) /
1578 + .592144E+04, .430770E+04, .314579E+04, .229534E+04,
1579 + .167417E+04, .122063E+04, .890040E+03, .649740E+03,
1580 + .474422E+03, .346881E+03, .254184E+03, .186741E+03,
1581 + .137673E+03, .101879E+03, .757693E+02, .566271E+02,
1582 + .425584E+02, .321691E+02, .244636E+02, .187119E+02,
1583 + .144125E+02, .111434E+02, .867494E+01, .677519E+01,
1584 + .531866E+01, .419059E+01, .331176E+01, .262358E+01,
1585 + .208191E+01, .165391E+01, .131435E+01, .104426E+01,
1586 + .828868E+00, .656903E+00, .519425E+00, .409577E+00,
1587 + .321670E+00, .251822E+00, .195816E+00, .151369E+00,
1588 + .116198E+00, .885088E-01, .668161E-01, .499396E-01,
1589 + .369010E-01, .269258E-01, .193677E-01, .136935E-01,
1590 + .953075E-02, .648082E-02, .430138E-02, .277704E-02 /
1591 DATA (UPDI(I),I=5721,5772) /
1592 + .173512E-02, .104368E-02, .599163E-03, .326062E-03,
1593 + .165039E-03, .768599E-04, .319478E-04, .114243E-04,
1594 + .328746E-05, .684544E-06, .835989E-07, .271306E-08,
1595 + .000000E+00, .189252E+08, .143328E+08, .106696E+08,
1596 + .793581E+07, .589889E+07, .438084E+07, .325131E+07,
1597 + .241070E+07, .178616E+07, .132208E+07, .977819E+06,
1598 + .722422E+06, .533290E+06, .393222E+06, .289684E+06,
1599 + .213148E+06, .156685E+06, .115030E+06, .843645E+05,
1600 + .617904E+05, .452088E+05, .330306E+05, .241069E+05,
1601 + .175690E+05, .127902E+05, .929655E+04, .675172E+04,
1602 + .487536E+04, .353375E+04, .255879E+04, .185179E+04,
1603 + .133942E+04, .968723E+03, .701355E+03, .507792E+03,
1604 + .368104E+03, .267387E+03, .194711E+03, .142265E+03 /
1605 DATA (UPDI(I),I=5773,5824) /
1606 + .104328E+03, .768836E+02, .569326E+02, .423919E+02,
1607 + .317452E+02, .239151E+02, .181201E+02, .138250E+02,
1608 + .105871E+02, .816326E+01, .631409E+01, .490875E+01,
1609 + .383004E+01, .299723E+01, .235108E+01, .184722E+01,
1610 + .145288E+01, .114303E+01, .899016E+00, .706350E+00,
1611 + .554097E+00, .433635E+00, .338391E+00, .262982E+00,
1612 + .203712E+00, .156712E+00, .119829E+00, .909771E-01,
1613 + .685264E-01, .511454E-01, .377861E-01, .275919E-01,
1614 + .198908E-01, .141310E-01, .986374E-02, .677573E-02,
1615 + .454492E-02, .297405E-02, .189194E-02, .116396E-02,
1616 + .688826E-03, .388698E-03, .207702E-03, .103090E-03,
1617 + .470104E-04, .191013E-04, .666391E-05, .186723E-05,
1618 + .377849E-06, .446217E-07, .115020E-08, .000000E+00 /
1619 DATA (UPDI(I),I=5825,5876) /
1620 + .245304E+08, .185067E+08, .137144E+08, .101538E+08,
1621 + .751242E+07, .555283E+07, .410135E+07, .302620E+07,
1622 + .223110E+07, .164313E+07, .120906E+07, .888642E+06,
1623 + .652528E+06, .478565E+06, .350628E+06, .256560E+06,
1624 + .187528E+06, .136882E+06, .998004E+05, .726591E+05,
1625 + .528361E+05, .383633E+05, .278210E+05, .201445E+05,
1626 + .145679E+05, .105169E+05, .758528E+04, .543811E+04,
1627 + .391323E+04, .281276E+04, .202029E+04, .145012E+04,
1628 + .104057E+04, .747391E+03, .536725E+03, .385870E+03,
1629 + .277940E+03, .200676E+03, .145361E+03, .105670E+03,
1630 + .771877E+02, .566513E+02, .418052E+02, .310243E+02,
1631 + .231604E+02, .173883E+02, .131455E+02, .997366E+01,
1632 + .761920E+01, .583820E+01, .449627E+01, .347518E+01 /
1633 DATA (UPDI(I),I=5877,5928) /
1634 + .269378E+01, .209293E+01, .162866E+01, .126865E+01,
1635 + .988428E+00, .769847E+00, .598937E+00, .465207E+00,
1636 + .360457E+00, .278476E+00, .214233E+00, .164267E+00,
1637 + .125065E+00, .946344E-01, .710907E-01, .529747E-01,
1638 + .391088E-01, .285743E-01, .206306E-01, .147015E-01,
1639 + .103218E-01, .711764E-02, .482901E-02, .319764E-02,
1640 + .206475E-02, .129545E-02, .785604E-03, .457971E-03,
1641 + .254377E-03, .133686E-03, .651927E-04, .291777E-04,
1642 + .116222E-04, .396952E-05, .108774E-05, .214922E-06,
1643 + .245840E-07, .422054E-09, .000000E+00, .312620E+08,
1644 + .234969E+08, .173353E+08, .127770E+08, .941008E+07,
1645 + .692341E+07, .508965E+07, .373758E+07, .274225E+07,
1646 + .200968E+07, .147140E+07, .107599E+07, .786027E+06 /
1647 DATA (UPDI(I),I=5929,5980) /
1648 + .573462E+06, .417918E+06, .304145E+06, .221083E+06,
1649 + .160471E+06, .116330E+06, .842015E+05, .608662E+05,
1650 + .439269E+05, .316591E+05, .227795E+05, .163676E+05,
1651 + .117385E+05, .840968E+04, .598740E+04, .427842E+04,
1652 + .305339E+04, .217716E+04, .155115E+04, .110464E+04,
1653 + .787313E+03, .560952E+03, .400070E+03, .285829E+03,
1654 + .204676E+03, .147022E+03, .105976E+03, .767528E+02,
1655 + .558485E+02, .408556E+02, .300553E+02, .222400E+02,
1656 + .165497E+02, .124007E+02, .932420E+01, .705924E+01,
1657 + .536015E+01, .409063E+01, .313283E+01, .240615E+01,
1658 + .185224E+01, .142802E+01, .110201E+01, .850573E+00,
1659 + .656255E+00, .505743E+00, .389092E+00, .298603E+00,
1660 + .228474E+00, .174063E+00, .132168E+00, .996340E-01 /
1661 DATA (UPDI(I),I=5981,6032) /
1662 + .746400E-01, .555062E-01, .409402E-01, .299123E-01,
1663 + .216260E-01, .154478E-01, .108889E-01, .756057E-02,
1664 + .515447E-02, .345681E-02, .226178E-02, .144259E-02,
1665 + .893687E-03, .534898E-03, .307603E-03, .168457E-03,
1666 + .872364E-04, .418904E-04, .184489E-04, .722649E-05,
1667 + .242527E-05, .652774E-06, .126520E-06, .140456E-07,
1668 + .100012E-09, .000000E+00, .392298E+08, .293780E+08,
1669 + .215799E+08, .158356E+08, .116106E+08, .850387E+07,
1670 + .622279E+07, .454846E+07, .332141E+07, .242247E+07,
1671 + .176499E+07, .128431E+07, .933490E+06, .677575E+06,
1672 + .491227E+06, .355612E+06, .257106E+06, .185600E+06,
1673 + .133798E+06, .962969E+05, .692075E+05, .496535E+05,
1674 + .355717E+05, .254383E+05, .181638E+05, .129435E+05 /
1675 DATA (UPDI(I),I=6033,6084) /
1676 + .921271E+04, .651502E+04, .462392E+04, .327719E+04,
1677 + .232025E+04, .164122E+04, .116020E+04, .820751E+03,
1678 + .580320E+03, .410681E+03, .291101E+03, .206789E+03,
1679 + .147338E+03, .105336E+03, .756589E+02, .545938E+02,
1680 + .396018E+02, .288864E+02, .211929E+02, .156351E+02,
1681 + .116148E+02, .865725E+01, .649739E+01, .489023E+01,
1682 + .369920E+01, .280806E+01, .213760E+01, .163088E+01,
1683 + .124613E+01, .953030E+00, .728966E+00, .557352E+00,
1684 + .425630E+00, .324479E+00, .246741E+00, .187059E+00,
1685 + .141194E+00, .106217E+00, .793207E-01, .588611E-01,
1686 + .433555E-01, .316707E-01, .229150E-01, .164044E-01,
1687 + .116013E-01, .809505E-02, .556309E-02, .375298E-02,
1688 + .249029E-02, .161168E-02, .101655E-02, .622602E-03 /
1689 DATA (UPDI(I),I=6085,6136) /
1690 + .368309E-03, .209269E-03, .113198E-03, .578795E-04,
1691 + .274319E-04, .119197E-04, .460538E-05, .152398E-05,
1692 + .404454E-06, .771972E-07, .833687E-08, .000000E+00,
1693 + .000000E+00, .485341E+08, .362161E+08, .264897E+08,
1694 + .193548E+08, .141288E+08, .103025E+08, .750506E+07,
1695 + .546078E+07, .396917E+07, .288137E+07, .208934E+07,
1696 + .151299E+07, .109431E+07, .790352E+06, .570083E+06,
1697 + .410576E+06, .295288E+06, .212029E+06, .152021E+06,
1698 + .108809E+06, .777599E+05, .554702E+05, .395066E+05,
1699 + .280842E+05, .199311E+05, .141147E+05, .998280E+04,
1700 + .701344E+04, .494488E+04, .348116E+04, .244776E+04,
1701 + .171933E+04, .120674E+04, .847497E+03, .594795E+03,
1702 + .417761E+03, .293856E+03, .207128E+03, .146421E+03 /
1703 DATA (UPDI(I),I=6137,6188) /
1704 + .103849E+03, .739918E+02, .529586E+02, .381018E+02,
1705 + .275638E+02, .200551E+02, .146725E+02, .108088E+02,
1706 + .798855E+01, .594508E+01, .443652E+01, .332749E+01,
1707 + .250438E+01, .189013E+01, .142973E+01, .108305E+01,
1708 + .821182E+00, .622700E+00, .471990E+00, .357323E+00,
1709 + .270041E+00, .203560E+00, .152978E+00, .114458E+00,
1710 + .853512E-01, .631753E-01, .464640E-01, .339189E-01,
1711 + .245549E-01, .176060E-01, .124889E-01, .875118E-02,
1712 + .604963E-02, .411848E-02, .275197E-02, .180861E-02,
1713 + .115909E-02, .723860E-03, .438884E-03, .256983E-03,
1714 + .144500E-03, .773409E-04, .391223E-04, .183406E-04,
1715 + .788164E-05, .301157E-05, .985359E-06, .258587E-06,
1716 + .487384E-07, .513303E-08, .000000E+00, .000000E+00 /
1717 DATA (UPDI(I),I=6189,6240) /
1718 + .592615E+08, .440670E+08, .320976E+08, .233534E+08,
1719 + .169747E+08, .123241E+08, .893825E+07, .647465E+07,
1720 + .468482E+07, .338532E+07, .244333E+07, .176100E+07,
1721 + .126757E+07, .911036E+06, .653879E+06, .468560E+06,
1722 + .335267E+06, .239484E+06, .170797E+06, .121591E+06,
1723 + .864174E+05, .613020E+05, .434115E+05, .306810E+05,
1724 + .216451E+05, .152357E+05, .107093E+05, .747592E+04,
1725 + .523716E+04, .366285E+04, .255833E+04, .178479E+04,
1726 + .124398E+04, .867502E+03, .604452E+03, .421440E+03,
1727 + .294239E+03, .205836E+03, .144396E+03, .101622E+03,
1728 + .718401E+02, .510139E+02, .364113E+02, .261305E+02,
1729 + .188596E+02, .136863E+02, .100009E+02, .733102E+01,
1730 + .541136E+01, .400509E+01, .297930E+01, .222392E+01 /
1731 DATA (UPDI(I),I=6241,6292) /
1732 + .166467E+01, .124884E+01, .938241E+00, .705532E+00,
1733 + .530602E+00, .398874E+00, .299487E+00, .224472E+00,
1734 + .167819E+00, .125082E+00, .928156E-01, .686449E-01,
1735 + .503902E-01, .367544E-01, .266088E-01, .191030E-01,
1736 + .135830E-01, .955474E-02, .663908E-02, .455087E-02,
1737 + .307194E-02, .203513E-02, .132610E-02, .842516E-03,
1738 + .521585E-03, .313472E-03, .181932E-03, .101389E-03,
1739 + .537819E-04, .269598E-04, .125242E-04, .533278E-05,
1740 + .201896E-05, .654350E-06, .170081E-06, .317022E-07,
1741 + .326404E-08, .000000E+00, .000000E+00, .714816E+08,
1742 + .529733E+08, .384271E+08, .278430E+08, .201532E+08,
1743 + .145697E+08, .105214E+08, .758827E+07, .546629E+07,
1744 + .393232E+07, .282521E+07, .202683E+07, .145207E+07 /
1745 DATA (UPDI(I),I=6293,6344) /
1746 + .103868E+07, .741887E+06, .529017E+06, .376633E+06,
1747 + .267667E+06, .189910E+06, .134487E+06, .950709E+05,
1748 + .670733E+05, .472345E+05, .331940E+05, .232827E+05,
1749 + .162916E+05, .113828E+05, .789672E+04, .549739E+04,
1750 + .382038E+04, .265102E+04, .183722E+04, .127187E+04,
1751 + .880866E+03, .609462E+03, .421909E+03, .292436E+03,
1752 + .203075E+03, .141401E+03, .987664E+02, .692919E+02,
1753 + .488281E+02, .345825E+02, .246257E+02, .176350E+02,
1754 + .126974E+02, .920576E+01, .669489E+01, .490300E+01,
1755 + .360015E+01, .265696E+01, .196769E+01, .146128E+01,
1756 + .108764E+01, .810723E+00, .604869E+00, .451345E+00,
1757 + .336650E+00, .250805E+00, .186528E+00, .138375E+00,
1758 + .102343E+00, .753587E-01, .553088E-01, .402900E-01 /
1759 DATA (UPDI(I),I=6345,6396) /
1760 + .291629E-01, .209521E-01, .149276E-01, .105336E-01,
1761 + .735349E-02, .507086E-02, .344957E-02, .231091E-02,
1762 + .151932E-02, .982534E-03, .619491E-03, .380602E-03,
1763 + .226998E-03, .130740E-03, .723022E-04, .380588E-04,
1764 + .189304E-04, .872540E-05, .368565E-05, .138403E-05,
1765 + .444712E-06, .114547E-06, .211237E-07, .213093E-08,
1766 + .000000E+00, .000000E+00, .456193E+05, .686938E+05,
1767 + .535342E+05, .417259E+05, .325276E+05, .253619E+05,
1768 + .197790E+05, .154290E+05, .120391E+05, .939717E+04,
1769 + .733781E+04, .573228E+04, .448032E+04, .350384E+04,
1770 + .274203E+04, .214751E+04, .168338E+04, .132091E+04,
1771 + .103769E+04, .816289E+03, .643106E+03, .507550E+03,
1772 + .401364E+03, .318113E+03, .252778E+03, .201447E+03 /
1773 DATA (UPDI(I),I=6397,6448) /
1774 + .161068E+03, .128861E+03, .103859E+03, .840970E+02,
1775 + .684460E+02, .560247E+02, .461436E+02, .382839E+02,
1776 + .319805E+02, .269249E+02, .228554E+02, .195660E+02,
1777 + .168945E+02, .147121E+02, .129205E+02, .114365E+02,
1778 + .101977E+02, .915394E+01, .826565E+01, .750156E+01,
1779 + .683931E+01, .625314E+01, .573502E+01, .526661E+01,
1780 + .484331E+01, .445605E+01, .409917E+01, .376826E+01,
1781 + .345992E+01, .317152E+01, .290107E+01, .264706E+01,
1782 + .240832E+01, .218400E+01, .197340E+01, .177599E+01,
1783 + .159135E+01, .141987E+01, .125944E+01, .111085E+01,
1784 + .973794E+00, .847968E+00, .733046E+00, .628681E+00,
1785 + .534496E+00, .450087E+00, .374969E+00, .308623E+00,
1786 + .251106E+00, .201033E+00, .158277E+00, .122248E+00 /
1787 DATA (UPDI(I),I=6449,6500) /
1788 + .923472E-01, .679678E-01, .485008E-01, .333620E-01,
1789 + .218705E-01, .135457E-01, .777182E-02, .401746E-02,
1790 + .178581E-02, .625443E-03, .141811E-03, .111060E-04,
1791 + .000000E+00, .123095E+06, .963936E+05, .746159E+05,
1792 + .577622E+05, .447225E+05, .346299E+05, .268204E+05,
1793 + .207753E+05, .160970E+05, .124750E+05, .967147E+04,
1794 + .750041E+04, .581946E+04, .451731E+04, .350873E+04,
1795 + .272707E+04, .212133E+04, .165159E+04, .128730E+04,
1796 + .100456E+04, .785084E+03, .614552E+03, .482005E+03,
1797 + .378859E+03, .298549E+03, .235933E+03, .187078E+03,
1798 + .148405E+03, .118625E+03, .952629E+02, .769099E+02,
1799 + .624515E+02, .510391E+02, .420253E+02, .348499E+02,
1800 + .291319E+02, .245602E+02, .208857E+02, .179190E+02 /
1801 DATA (UPDI(I),I=6501,6552) /
1802 + .155069E+02, .135365E+02, .119108E+02, .105592E+02,
1803 + .942414E+01, .846166E+01, .763637E+01, .692370E+01,
1804 + .629514E+01, .574194E+01, .524392E+01, .479616E+01,
1805 + .438863E+01, .401528E+01, .367118E+01, .335261E+01,
1806 + .305662E+01, .278096E+01, .252385E+01, .228391E+01,
1807 + .206006E+01, .185141E+01, .165727E+01, .147694E+01,
1808 + .131067E+01, .115621E+01, .101417E+01, .884077E+00,
1809 + .765497E+00, .657959E+00, .560997E+00, .474113E+00,
1810 + .396809E+00, .328534E+00, .268664E+00, .217154E+00,
1811 + .172657E+00, .134961E+00, .103459E+00, .775357E-01,
1812 + .565928E-01, .400223E-01, .272675E-01, .176873E-01,
1813 + .108289E-01, .613262E-02, .312353E-02, .136442E-02,
1814 + .467985E-03, .103869E-03, .822350E-05, .000000E+00 /
1815 DATA (UPDI(I),I=6553,6604) /
1816 + .170635E+06, .132924E+06, .102277E+06, .786949E+05,
1817 + .605564E+05, .465989E+05, .358636E+05, .276029E+05,
1818 + .212493E+05, .163601E+05, .125994E+05, .970523E+04,
1819 + .747881E+04, .576506E+04, .444645E+04, .343117E+04,
1820 + .264971E+04, .204773E+04, .158415E+04, .122681E+04,
1821 + .951412E+03, .738930E+03, .574985E+03, .448326E+03,
1822 + .350444E+03, .274692E+03, .216046E+03, .169968E+03,
1823 + .134759E+03, .107344E+03, .859738E+02, .692623E+02,
1824 + .561707E+02, .459041E+02, .377901E+02, .313669E+02,
1825 + .262653E+02, .221889E+02, .189170E+02, .162700E+02,
1826 + .141186E+02, .123509E+02, .108875E+02, .966295E+01,
1827 + .862844E+01, .774446E+01, .698394E+01, .631569E+01,
1828 + .573002E+01, .520505E+01, .473535E+01, .431004E+01 /
1829 DATA (UPDI(I),I=6605,6656) /
1830 + .392256E+01, .356749E+01, .324078E+01, .293912E+01,
1831 + .266000E+01, .240138E+01, .216165E+01, .193951E+01,
1832 + .173387E+01, .154384E+01, .136851E+01, .120796E+01,
1833 + .105983E+01, .924544E+00, .801486E+00, .690090E+00,
1834 + .589760E+00, .499927E+00, .419989E+00, .349370E+00,
1835 + .287458E+00, .233553E+00, .187523E+00, .148063E+00,
1836 + .114897E+00, .874089E-01, .649800E-01, .470229E-01,
1837 + .329462E-01, .222239E-01, .142577E-01, .862386E-02,
1838 + .481720E-02, .241514E-02, .103534E-02, .347111E-03,
1839 + .752358E-04, .603022E-05, .000000E+00, .232457E+06,
1840 + .180230E+06, .137923E+06, .105536E+06, .807566E+05,
1841 + .617896E+05, .472806E+05, .361766E+05, .276838E+05,
1842 + .211850E+05, .162149E+05, .124119E+05, .950377E+04 /
1843 DATA (UPDI(I),I=6657,6708) /
1844 + .727853E+04, .557678E+04, .427451E+04, .327846E+04,
1845 + .251602E+04, .193266E+04, .148592E+04, .114393E+04,
1846 + .881832E+03, .681001E+03, .526916E+03, .408682E+03,
1847 + .317830E+03, .248009E+03, .193548E+03, .152241E+03,
1848 + .120313E+03, .956082E+02, .764296E+02, .615145E+02,
1849 + .499005E+02, .407856E+02, .336179E+02, .279618E+02,
1850 + .234693E+02, .198841E+02, .169987E+02, .146651E+02,
1851 + .127562E+02, .111825E+02, .987061E+01, .876654E+01,
1852 + .782655E+01, .702086E+01, .631564E+01, .570013E+01,
1853 + .515081E+01, .466166E+01, .422093E+01, .382155E+01,
1854 + .345763E+01, .312473E+01, .281921E+01, .253827E+01,
1855 + .227961E+01, .204139E+01, .182208E+01, .162039E+01,
1856 + .143525E+01, .126554E+01, .111117E+01, .969674E+00 /
1857 DATA (UPDI(I),I=6709,6760) /
1858 + .841311E+00, .725326E+00, .621038E+00, .527741E+00,
1859 + .444773E+00, .371447E+00, .307122E+00, .251133E+00,
1860 + .202728E+00, .161698E+00, .126791E+00, .976792E-01,
1861 + .737474E-01, .543849E-01, .390213E-01, .270891E-01,
1862 + .180931E-01, .114813E-01, .686132E-02, .378062E-02,
1863 + .186597E-02, .785180E-03, .257438E-03, .545427E-04,
1864 + .442477E-05, .000000E+00, .311732E+06, .240644E+06,
1865 + .183228E+06, .139484E+06, .106179E+06, .808117E+05,
1866 + .615040E+05, .468022E+05, .356158E+05, .271005E+05,
1867 + .206232E+05, .156937E+05, .119448E+05, .909223E+04,
1868 + .692322E+04, .527294E+04, .401815E+04, .306339E+04,
1869 + .233734E+04, .178476E+04, .136442E+04, .104434E+04,
1870 + .800675E+03, .614962E+03, .473419E+03, .365396E+03 /
1871 DATA (UPDI(I),I=6761,6812) /
1872 + .282960E+03, .219109E+03, .171024E+03, .134119E+03,
1873 + .105768E+03, .839140E+02, .670379E+02, .539880E+02,
1874 + .438158E+02, .358691E+02, .296379E+02, .247182E+02,
1875 + .208142E+02, .176888E+02, .151734E+02, .131249E+02,
1876 + .114433E+02, .100469E+02, .887622E+01, .788318E+01,
1877 + .703522E+01, .629588E+01, .565323E+01, .508217E+01,
1878 + .457601E+01, .412221E+01, .371310E+01, .334235E+01,
1879 + .300511E+01, .269743E+01, .241619E+01, .215884E+01,
1880 + .192330E+01, .170783E+01, .151092E+01, .133134E+01,
1881 + .116777E+01, .101994E+01, .885309E+00, .763971E+00,
1882 + .655048E+00, .557755E+00, .471290E+00, .394913E+00,
1883 + .327864E+00, .269452E+00, .218969E+00, .175629E+00,
1884 + .139160E+00, .108365E+00, .828818E-01, .621018E-01 /
1885 DATA (UPDI(I),I=6813,6864) /
1886 + .454303E-01, .323193E-01, .222307E-01, .147020E-01,
1887 + .922808E-02, .544876E-02, .296169E-02, .143916E-02,
1888 + .594528E-03, .190714E-03, .395322E-04, .324549E-05,
1889 + .000000E+00, .412098E+06, .316825E+06, .240089E+06,
1890 + .181890E+06, .137782E+06, .104342E+06, .790097E+05,
1891 + .598133E+05, .452782E+05, .342686E+05, .259360E+05,
1892 + .196270E+05, .148541E+05, .112416E+05, .850946E+04,
1893 + .644216E+04, .487907E+04, .369648E+04, .280239E+04,
1894 + .212592E+04, .161443E+04, .122732E+04, .934462E+03,
1895 + .712666E+03, .544712E+03, .417368E+03, .320838E+03,
1896 + .246575E+03, .191031E+03, .148694E+03, .116392E+03,
1897 + .916657E+02, .727012E+02, .581356E+02, .468569E+02,
1898 + .381026E+02, .312804E+02, .259260E+02, .217006E+02 /
1899 DATA (UPDI(I),I=6865,6916) /
1900 + .183356E+02, .156403E+02, .134553E+02, .116690E+02,
1901 + .101916E+02, .895760E+01, .791480E+01, .702768E+01,
1902 + .625720E+01, .559020E+01, .500005E+01, .447935E+01,
1903 + .401476E+01, .359805E+01, .322241E+01, .288261E+01,
1904 + .257435E+01, .229423E+01, .203943E+01, .180764E+01,
1905 + .159690E+01, .140551E+01, .123206E+01, .107504E+01,
1906 + .934035E+00, .806428E+00, .692156E+00, .590234E+00,
1907 + .499784E+00, .419927E+00, .349850E+00, .288742E+00,
1908 + .235869E+00, .190493E+00, .151807E+00, .119491E+00,
1909 + .924056E-01, .701647E-01, .521743E-01, .378619E-01,
1910 + .267056E-01, .182006E-01, .119179E-01, .739921E-02,
1911 + .431651E-02, .231452E-02, .110729E-02, .449126E-03,
1912 + .141006E-03, .286189E-04, .237739E-05, .000000E+00 /
1913 DATA (UPDI(I),I=6917,6968) /
1914 + .537669E+06, .411765E+06, .310625E+06, .234248E+06,
1915 + .176616E+06, .133117E+06, .100312E+06, .755675E+05,
1916 + .569181E+05, .428589E+05, .322693E+05, .242907E+05,
1917 + .182846E+05, .137617E+05, .103587E+05, .779727E+04,
1918 + .587086E+04, .442133E+04, .333148E+04, .251156E+04,
1919 + .189516E+04, .143138E+04, .108261E+04, .820074E+03,
1920 + .622499E+03, .473635E+03, .361518E+03, .275825E+03,
1921 + .212155E+03, .163946E+03, .127408E+03, .996261E+02,
1922 + .784588E+02, .623085E+02, .498828E+02, .402992E+02,
1923 + .328756E+02, .270830E+02, .225366E+02, .189345E+02,
1924 + .160631E+02, .137456E+02, .118587E+02, .103043E+02,
1925 + .901087E+01, .792190E+01, .699895E+01, .620045E+01,
1926 + .551195E+01, .490540E+01, .437262E+01, .389951E+01 /
1927 DATA (UPDI(I),I=6969,7020) /
1928 + .347726E+01, .309861E+01, .275793E+01, .245060E+01,
1929 + .217290E+01, .192179E+01, .169470E+01, .148948E+01,
1930 + .130424E+01, .113739E+01, .987268E+00, .853287E+00,
1931 + .732794E+00, .625572E+00, .530545E+00, .446753E+00,
1932 + .373251E+00, .309173E+00, .253667E+00, .205965E+00,
1933 + .165310E+00, .130890E+00, .102345E+00, .785971E-01,
1934 + .592472E-01, .437206E-01, .314719E-01, .220085E-01,
1935 + .148612E-01, .963479E-02, .591645E-02, .340998E-02,
1936 + .180366E-02, .849541E-03, .338350E-03, .103998E-03,
1937 + .206821E-04, .173825E-05, .000000E+00, .693026E+06,
1938 + .528774E+06, .397162E+06, .298189E+06, .223820E+06,
1939 + .167926E+06, .125958E+06, .944403E+05, .707924E+05,
1940 + .530460E+05, .397408E+05, .297634E+05, .222883E+05 /
1941 DATA (UPDI(I),I=7021,7072) /
1942 + .166868E+05, .124929E+05, .935217E+04, .700215E+04,
1943 + .524314E+04, .392761E+04, .294330E+04, .220738E+04,
1944 + .165680E+04, .124513E+04, .937058E+03, .706593E+03,
1945 + .533998E+03, .404812E+03, .306697E+03, .234259E+03,
1946 + .179765E+03, .138729E+03, .107729E+03, .842603E+02,
1947 + .664693E+02, .528662E+02, .424391E+02, .344093E+02,
1948 + .281793E+02, .233154E+02, .194812E+02, .164388E+02,
1949 + .139942E+02, .120117E+02, .103850E+02, .903632E+01,
1950 + .790505E+01, .694980E+01, .612651E+01, .541946E+01,
1951 + .479921E+01, .425679E+01, .377739E+01, .335161E+01,
1952 + .297175E+01, .263179E+01, .232678E+01, .205273E+01,
1953 + .180633E+01, .158481E+01, .138579E+01, .120723E+01,
1954 + .104736E+01, .904388E+00, .777565E+00, .664212E+00 /
1955 DATA (UPDI(I),I=7073,7124) /
1956 + .563972E+00, .475690E+00, .398338E+00, .330921E+00,
1957 + .272528E+00, .222279E+00, .179386E+00, .143082E+00,
1958 + .112558E+00, .874253E-01, .666720E-01, .498920E-01,
1959 + .365355E-01, .260871E-01, .180860E-01, .120994E-01,
1960 + .776615E-02, .471670E-02, .268565E-02, .140124E-02,
1961 + .649766E-03, .254122E-03, .764908E-04, .149148E-04,
1962 + .126813E-05, .000000E+00, .883193E+06, .671461E+06,
1963 + .502217E+06, .375460E+06, .280600E+06, .209602E+06,
1964 + .156516E+06, .116819E+06, .871622E+05, .650050E+05,
1965 + .484668E+05, .361215E+05, .269150E+05, .200485E+05,
1966 + .149320E+05, .111191E+05, .828016E+04, .616597E+04,
1967 + .459291E+04, .342208E+04, .255137E+04, .190350E+04,
1968 + .142176E+04, .106330E+04, .796677E+03, .598167E+03 /
1969 DATA (UPDI(I),I=7125,7176) /
1970 + .450473E+03, .338986E+03, .257182E+03, .196026E+03,
1971 + .150258E+03, .115901E+03, .900521E+02, .705787E+02,
1972 + .557790E+02, .445025E+02, .358678E+02, .292056E+02,
1973 + .240308E+02, .199717E+02, .167653E+02, .141998E+02,
1974 + .121276E+02, .104337E+02, .903443E+01, .786500E+01,
1975 + .688112E+01, .603639E+01, .531377E+01, .468252E+01,
1976 + .413289E+01, .364938E+01, .322201E+01, .284266E+01,
1977 + .250491E+01, .220353E+01, .193423E+01, .169348E+01,
1978 + .147826E+01, .128604E+01, .111459E+01, .962005E+00,
1979 + .826357E+00, .706755E+00, .600508E+00, .507131E+00,
1980 + .425405E+00, .354248E+00, .292624E+00, .239593E+00,
1981 + .194258E+00, .155819E+00, .123508E+00, .965286E-01,
1982 + .744745E-01, .563980E-01, .418950E-01, .304434E-01 /
1983 DATA (UPDI(I),I=7177,7228) /
1984 + .215606E-01, .148184E-01, .982121E-02, .624069E-02,
1985 + .374847E-02, .210843E-02, .108508E-02, .495348E-03,
1986 + .190249E-03, .560934E-04, .107307E-04, .922912E-06,
1987 + .000000E+00, .111359E+07, .843690E+06, .628460E+06,
1988 + .467899E+06, .348215E+06, .259001E+06, .192565E+06,
1989 + .143092E+06, .106287E+06, .789072E+05, .585591E+05,
1990 + .434371E+05, .322102E+05, .238751E+05, .176932E+05,
1991 + .131080E+05, .971039E+04, .719259E+04, .532852E+04,
1992 + .394815E+04, .292690E+04, .217103E+04, .161200E+04,
1993 + .119830E+04, .892303E+03, .665764E+03, .498193E+03,
1994 + .372451E+03, .280737E+03, .212586E+03, .161890E+03,
1995 + .124065E+03, .957788E+02, .745972E+02, .585935E+02,
1996 + .464701E+02, .372381E+02, .301531E+02, .246773E+02 /
1997 DATA (UPDI(I),I=7229,7280) /
1998 + .204026E+02, .170405E+02, .143617E+02, .122062E+02,
1999 + .104508E+02, .900588E+01, .780264E+01, .679395E+01,
2000 + .593116E+01, .519597E+01, .455642E+01, .400197E+01,
2001 + .351645E+01, .308935E+01, .271213E+01, .237802E+01,
2002 + .208146E+01, .181792E+01, .158362E+01, .137536E+01,
2003 + .119043E+01, .102643E+01, .881346E+00, .753121E+00,
2004 + .640739E+00, .541510E+00, .454833E+00, .379441E+00,
2005 + .314209E+00, .258074E+00, .210076E+00, .169312E+00,
2006 + .134980E+00, .106318E+00, .825520E-01, .632637E-01,
2007 + .475712E-01, .350780E-01, .252927E-01, .177663E-01,
2008 + .121044E-01, .794736E-02, .499910E-02, .296945E-02,
2009 + .164988E-02, .837469E-03, .376365E-03, .141963E-03,
2010 + .410105E-04, .770141E-05, .669969E-06, .000000E+00 /
2011 DATA (UPDI(I),I=7281,7332) /
2012 + .138997E+07, .104954E+07, .778681E+06, .577406E+06,
2013 + .427954E+06, .316989E+06, .234685E+06, .173643E+06,
2014 + .128418E+06, .949154E+05, .701217E+05, .517754E+05,
2015 + .382141E+05, .281907E+05, .207900E+05, .153261E+05,
2016 + .112963E+05, .832422E+04, .613445E+04, .452092E+04,
2017 + .333314E+04, .245852E+04, .181503E+04, .134136E+04,
2018 + .992895E+03, .736329E+03, .547613E+03, .406818E+03,
2019 + .304719E+03, .229295E+03, .173514E+03, .132143E+03,
2020 + .101384E+03, .784859E+02, .612828E+02, .483240E+02,
2021 + .385083E+02, .310143E+02, .252503E+02, .207713E+02,
2022 + .172632E+02, .144794E+02, .122477E+02, .104369E+02,
2023 + .895158E+01, .771901E+01, .668940E+01, .581199E+01,
2024 + .506724E+01, .442203E+01, .386507E+01, .337959E+01 /
2025 DATA (UPDI(I),I=7333,7384) /
2026 + .295453E+01, .258098E+01, .225179E+01, .196115E+01,
2027 + .170425E+01, .147713E+01, .127637E+01, .109912E+01,
2028 + .942841E+00, .805384E+00, .684613E+00, .579391E+00,
2029 + .487042E+00, .406865E+00, .337556E+00, .277959E+00,
2030 + .226997E+00, .183701E+00, .147170E+00, .116608E+00,
2031 + .912681E-01, .704015E-01, .535881E-01, .400106E-01,
2032 + .292848E-01, .209513E-01, .145958E-01, .985719E-02,
2033 + .641103E-02, .399183E-02, .234474E-02, .128680E-02,
2034 + .644207E-03, .285001E-03, .105582E-03, .298917E-04,
2035 + .551358E-05, .485099E-06, .000000E+00, .171833E+07,
2036 + .129321E+07, .955737E+06, .705907E+06, .521103E+06,
2037 + .384422E+06, .283437E+06, .208839E+06, .153791E+06,
2038 + .113179E+06, .832471E+05, .611925E+05, .449593E+05 /
2039 DATA (UPDI(I),I=7385,7436) /
2040 + .330133E+05, .242317E+05, .177775E+05, .130390E+05,
2041 + .956042E+04, .700953E+04, .513897E+04, .376867E+04,
2042 + .276470E+04, .202978E+04, .149160E+04, .109776E+04,
2043 + .809327E+03, .598328E+03, .441788E+03, .328909E+03,
2044 + .245994E+03, .185020E+03, .140056E+03, .106814E+03,
2045 + .822076E+02, .638222E+02, .500478E+02, .396680E+02,
2046 + .317828E+02, .257460E+02, .210758E+02, .174328E+02,
2047 + .145532E+02, .122529E+02, .103930E+02, .887264E+01,
2048 + .761533E+01, .656875E+01, .568014E+01, .492877E+01,
2049 + .428050E+01, .372329E+01, .323978E+01, .281843E+01,
2050 + .244996E+01, .212689E+01, .184314E+01, .159367E+01,
2051 + .137432E+01, .118152E+01, .101224E+01, .863859E+00,
2052 + .734096E+00, .620746E+00, .522572E+00, .436922E+00 /
2053 DATA (UPDI(I),I=7437,7488) /
2054 + .363011E+00, .299508E+00, .245243E+00, .199132E+00,
2055 + .160206E+00, .127578E+00, .100461E+00, .781321E-01,
2056 + .598716E-01, .452640E-01, .335552E-01, .243772E-01,
2057 + .173039E-01, .119552E-01, .800273E-02, .515566E-02,
2058 + .317746E-02, .184550E-02, .100035E-02, .493900E-03,
2059 + .215095E-03, .782686E-04, .217217E-04, .393756E-05,
2060 + .350344E-06, .000000E+00, .210482E+07, .157900E+07,
2061 + .116249E+07, .855309E+06, .628921E+06, .462121E+06,
2062 + .339353E+06, .249018E+06, .182618E+06, .133827E+06,
2063 + .980130E+05, .717330E+05, .524699E+05, .383548E+05,
2064 + .280231E+05, .204630E+05, .149371E+05, .108990E+05,
2065 + .795135E+04, .580001E+04, .423152E+04, .308793E+04,
2066 + .225492E+04, .164800E+04, .120611E+04, .884163E+03 /
2067 DATA (UPDI(I),I=7489,7540) /
2068 + .649900E+03, .477043E+03, .353078E+03, .262522E+03,
2069 + .196294E+03, .147726E+03, .112017E+03, .857277E+02,
2070 + .661891E+02, .516272E+02, .407083E+02, .324535E+02,
2071 + .261619E+02, .213151E+02, .175491E+02, .145834E+02,
2072 + .122226E+02, .103203E+02, .877036E+01, .749294E+01,
2073 + .643332E+01, .553690E+01, .478181E+01, .413299E+01,
2074 + .357767E+01, .309796E+01, .268188E+01, .231979E+01,
2075 + .200391E+01, .172792E+01, .148655E+01, .127548E+01,
2076 + .109098E+01, .929903E+00, .789505E+00, .667431E+00,
2077 + .561412E+00, .470125E+00, .390957E+00, .323049E+00,
2078 + .265061E+00, .215813E+00, .174227E+00, .139346E+00,
2079 + .110297E+00, .863164E-01, .667036E-01, .507758E-01,
2080 + .381257E-01, .280615E-01, .202337E-01, .142498E-01 /
2081 DATA (UPDI(I),I=7541,7592) /
2082 + .976323E-02, .647757E-02, .413339E-02, .252133E-02,
2083 + .144795E-02, .775146E-03, .377426E-03, .161804E-03,
2084 + .578352E-04, .157383E-04, .280528E-05, .252390E-06,
2085 + .000000E+00, .255560E+07, .191114E+07, .140176E+07,
2086 + .102745E+07, .752604E+06, .550854E+06, .402917E+06,
2087 + .294480E+06, .215081E+06, .156967E+06, .114479E+06,
2088 + .834279E+05, .607602E+05, .442196E+05, .321634E+05,
2089 + .233793E+05, .169866E+05, .123359E+05, .895624E+04,
2090 + .650093E+04, .471912E+04, .342618E+04, .248889E+04,
2091 + .180935E+04, .131706E+04, .960193E+03, .701864E+03,
2092 + .512253E+03, .376997E+03, .278720E+03, .207227E+03,
2093 + .155082E+03, .116944E+03, .890149E+02, .683639E+02,
2094 + .530503E+02, .416225E+02, .330228E+02, .264962E+02 /
2095 DATA (UPDI(I),I=7593,7644) /
2096 + .214890E+02, .176128E+02, .145712E+02, .121581E+02,
2097 + .102201E+02, .864619E+01, .735331E+01, .628454E+01,
2098 + .538361E+01, .462762E+01, .398064E+01, .342924E+01,
2099 + .295506E+01, .254568E+01, .219115E+01, .188341E+01,
2100 + .161592E+01, .138323E+01, .118084E+01, .100490E+01,
2101 + .852149E+00, .719761E+00, .605309E+00, .506479E+00,
2102 + .421878E+00, .348942E+00, .286754E+00, .233974E+00,
2103 + .189424E+00, .152041E+00, .120884E+00, .951052E-01,
2104 + .739649E-01, .567931E-01, .429443E-01, .320245E-01,
2105 + .234015E-01, .167469E-01, .117009E-01, .794990E-02,
2106 + .522753E-02, .330384E-02, .199456E-02, .113250E-02,
2107 + .598745E-03, .287498E-03, .121327E-03, .426035E-04,
2108 + .113706E-04, .199398E-05, .181384E-06, .000000E+00 /
2109 DATA (UPDI(I),I=7645,7696) /
2110 + .456755E+05, .685053E+05, .533659E+05, .415759E+05,
2111 + .323938E+05, .252426E+05, .196727E+05, .153343E+05,
2112 + .119549E+05, .932221E+04, .727115E+04, .567305E+04,
2113 + .442773E+04, .345717E+04, .270064E+04, .211084E+04,
2114 + .165092E+04, .129219E+04, .101231E+04, .793879E+03,
2115 + .623336E+03, .490124E+03, .386016E+03, .304605E+03,
2116 + .240898E+03, .191002E+03, .151887E+03, .120803E+03,
2117 + .967693E+02, .778499E+02, .629298E+02, .511385E+02,
2118 + .417966E+02, .343937E+02, .284754E+02, .237398E+02,
2119 + .199326E+02, .168549E+02, .143513E+02, .122993E+02,
2120 + .106067E+02, .919644E+01, .801143E+01, .700671E+01,
2121 + .614733E+01, .540620E+01, .476445E+01, .419957E+01,
2122 + .370564E+01, .326652E+01, .287865E+01, .253390E+01 /
2123 DATA (UPDI(I),I=7697,7748) /
2124 + .222701E+01, .195361E+01, .171002E+01, .149310E+01,
2125 + .130012E+01, .112869E+01, .976688E+00, .842198E+00,
2126 + .723492E+00, .618996E+00, .527272E+00, .447357E+00,
2127 + .377233E+00, .316330E+00, .263648E+00, .218277E+00,
2128 + .179394E+00, .146249E+00, .118165E+00, .945266E-01,
2129 + .747688E-01, .583796E-01, .450363E-01, .341312E-01,
2130 + .253983E-01, .185045E-01, .131533E-01, .908143E-02,
2131 + .605567E-02, .387409E-02, .234648E-02, .133237E-02,
2132 + .693303E-03, .320208E-03, .124422E-03, .367880E-04,
2133 + .660636E-05, .350390E-06, .000000E+00, .122869E+06,
2134 + .961918E+05, .744359E+05, .576017E+05, .445794E+05,
2135 + .345024E+05, .267069E+05, .206742E+05, .160071E+05,
2136 + .123951E+05, .960043E+04, .743732E+04, .576346E+04 /
2137 DATA (UPDI(I),I=7749,7800) /
2138 + .446763E+04, .346470E+04, .268808E+04, .208682E+04,
2139 + .162106E+04, .126032E+04, .980742E+03, .764073E+03,
2140 + .596029E+03, .465685E+03, .364488E+03, .285899E+03,
2141 + .224800E+03, .177278E+03, .139791E+03, .111031E+03,
2142 + .885573E+02, .709739E+02, .571793E+02, .463354E+02,
2143 + .378041E+02, .310363E+02, .256589E+02, .213682E+02,
2144 + .179231E+02, .151410E+02, .128759E+02, .110209E+02,
2145 + .948540E+01, .820439E+01, .712552E+01, .620940E+01,
2146 + .542476E+01, .475033E+01, .416081E+01, .364919E+01,
2147 + .319753E+01, .280149E+01, .245195E+01, .214298E+01,
2148 + .186962E+01, .162771E+01, .141371E+01, .122456E+01,
2149 + .105760E+01, .910486E+00, .781123E+00, .667628E+00,
2150 + .568333E+00, .481666E+00, .406605E+00, .341115E+00 /
2151 DATA (UPDI(I),I=7801,7852) /
2152 + .284570E+00, .235938E+00, .194303E+00, .158829E+00,
2153 + .128772E+00, .103456E+00, .822807E-01, .646970E-01,
2154 + .502026E-01, .384815E-01, .289688E-01, .214055E-01,
2155 + .154806E-01, .109177E-01, .747543E-02, .493970E-02,
2156 + .312963E-02, .187573E-02, .105375E-02, .541606E-03,
2157 + .246655E-03, .942605E-04, .273369E-04, .482158E-05,
2158 + .259637E-06, .000000E+00, .170394E+06, .132709E+06,
2159 + .102085E+06, .785235E+05, .604038E+05, .464629E+05,
2160 + .357426E+05, .274953E+05, .211536E+05, .162750E+05,
2161 + .125239E+05, .963814E+04, .741928E+04, .571229E+04,
2162 + .439969E+04, .338977E+04, .261307E+04, .201534E+04,
2163 + .155553E+04, .120154E+04, .929116E+03, .719270E+03,
2164 + .557657E+03, .433059E+03, .336996E+03, .262845E+03 /
2165 DATA (UPDI(I),I=7853,7904) /
2166 + .205605E+03, .160777E+03, .126643E+03, .100165E+03,
2167 + .796048E+02, .635931E+02, .511013E+02, .413449E+02,
2168 + .336633E+02, .276031E+02, .228031E+02, .189756E+02,
2169 + .159068E+02, .134250E+02, .114068E+02, .974729E+01,
2170 + .837233E+01, .722206E+01, .625209E+01, .542694E+01,
2171 + .472264E+01, .411119E+01, .358429E+01, .312232E+01,
2172 + .272004E+01, .236737E+01, .205775E+01, .178562E+01,
2173 + .154637E+01, .133607E+01, .115134E+01, .989299E+00,
2174 + .847377E+00, .723329E+00, .615136E+00, .521042E+00,
2175 + .439371E+00, .369046E+00, .308034E+00, .255657E+00,
2176 + .210865E+00, .172741E+00, .140446E+00, .113245E+00,
2177 + .904696E-01, .715369E-01, .559171E-01, .431221E-01,
2178 + .328444E-01, .245608E-01, .180218E-01, .129382E-01 /
2179 DATA (UPDI(I),I=7905,7956) /
2180 + .905393E-02, .614848E-02, .402678E-02, .252713E-02,
2181 + .149838E-02, .831175E-03, .421211E-03, .188890E-03,
2182 + .708845E-04, .201234E-04, .347820E-05, .190547E-06,
2183 + .000000E+00, .232200E+06, .180000E+06, .137718E+06,
2184 + .105353E+06, .805941E+05, .616449E+05, .471519E+05,
2185 + .360621E+05, .275821E+05, .210946E+05, .161346E+05,
2186 + .123407E+05, .944059E+04, .722253E+04, .552718E+04,
2187 + .423061E+04, .323962E+04, .248168E+04, .190233E+04,
2188 + .145914E+04, .112029E+04, .860988E+03, .662623E+03,
2189 + .510716E+03, .394402E+03, .305239E+03, .236901E+03,
2190 + .183758E+03, .143583E+03, .112641E+03, .887910E+02,
2191 + .703507E+02, .560691E+02, .449952E+02, .363396E+02,
2192 + .295595E+02, .242276E+02, .200053E+02, .166436E+02 /
2193 DATA (UPDI(I),I=7957,8008) /
2194 + .139432E+02, .117622E+02, .998067E+01, .851447E+01,
2195 + .729597E+01, .627534E+01, .541283E+01, .468159E+01,
2196 + .405097E+01, .351122E+01, .304112E+01, .263447E+01,
2197 + .228032E+01, .197141E+01, .170164E+01, .146596E+01,
2198 + .126008E+01, .108033E+01, .923605E+00, .787149E+00,
2199 + .668577E+00, .565754E+00, .476849E+00, .400105E+00,
2200 + .334398E+00, .277707E+00, .229315E+00, .188163E+00,
2201 + .153337E+00, .124005E+00, .994439E-01, .790004E-01,
2202 + .621095E-01, .482628E-01, .369909E-01, .279967E-01,
2203 + .207971E-01, .151542E-01, .108003E-01, .749954E-02,
2204 + .505130E-02, .327900E-02, .203845E-02, .119611E-02,
2205 + .656007E-03, .328247E-03, .145055E-03, .535301E-04,
2206 + .149212E-04, .254250E-05, .141990E-06, .000000E+00 /
2207 DATA (UPDI(I),I=8009,8060) /
2208 + .311457E+06, .240399E+06, .183009E+06, .139290E+06,
2209 + .106006E+06, .806579E+05, .613671E+05, .466805E+05,
2210 + .355077E+05, .270046E+05, .205380E+05, .156181E+05,
2211 + .118778E+05, .903288E+04, .687066E+04, .522643E+04,
2212 + .397701E+04, .302703E+04, .230522E+04, .175640E+04,
2213 + .133939E+04, .102226E+04, .781200E+03, .597787E+03,
2214 + .458271E+03, .352029E+03, .271157E+03, .208694E+03,
2215 + .161802E+03, .125937E+03, .984861E+02, .774118E+02,
2216 + .612055E+02, .487280E+02, .390443E+02, .315120E+02,
2217 + .256297E+02, .210036E+02, .173453E+02, .144263E+02,
2218 + .120843E+02, .101839E+02, .862995E+01, .734690E+01,
2219 + .627918E+01, .538270E+01, .462761E+01, .398061E+01,
2220 + .343045E+01, .295437E+01, .254521E+01, .219113E+01 /
2221 DATA (UPDI(I),I=8061,8112) /
2222 + .188422E+01, .161787E+01, .138659E+01, .118578E+01,
2223 + .101150E+01, .860442E+00, .729676E+00, .616700E+00,
2224 + .519285E+00, .435533E+00, .363631E+00, .302411E+00,
2225 + .249883E+00, .205294E+00, .167587E+00, .135857E+00,
2226 + .109285E+00, .871635E-01, .688586E-01, .538263E-01,
2227 + .415808E-01, .316743E-01, .238216E-01, .175787E-01,
2228 + .127202E-01, .899965E-02, .620108E-02, .414260E-02,
2229 + .266544E-02, .164142E-02, .953181E-03, .516882E-03,
2230 + .255384E-03, .111278E-03, .404150E-04, .110733E-04,
2231 + .186237E-05, .106133E-06, .000000E+00, .411805E+06,
2232 + .316564E+06, .239856E+06, .181683E+06, .137598E+06,
2233 + .104178E+06, .788644E+05, .596842E+05, .451636E+05,
2234 + .341668E+05, .258457E+05, .195470E+05, .147831E+05 /
2235 DATA (UPDI(I),I=8113,8164) /
2236 + .111787E+05, .845381E+04, .639293E+04, .483553E+04,
2237 + .365800E+04, .276840E+04, .209591E+04, .158794E+04,
2238 + .120395E+04, .913840E+03, .694472E+03, .528655E+03,
2239 + .403188E+03, .308308E+03, .235508E+03, .181221E+03,
2240 + .139980E+03, .108630E+03, .847262E+02, .664705E+02,
2241 + .525123E+02, .417537E+02, .334428E+02, .269966E+02,
2242 + .219610E+02, .180054E+02, .148699E+02, .123705E+02,
2243 + .103553E+02, .871794E+01, .737459E+01, .626374E+01,
2244 + .533690E+01, .456116E+01, .390064E+01, .334254E+01,
2245 + .286261E+01, .245270E+01, .210018E+01, .179650E+01,
2246 + .153455E+01, .130844E+01, .111329E+01, .944906E+00,
2247 + .799796E+00, .674896E+00, .567596E+00, .475593E+00,
2248 + .396935E+00, .329770E+00, .272897E+00, .224366E+00 /
2249 DATA (UPDI(I),I=8165,8216) /
2250 + .183397E+00, .148944E+00, .120115E+00, .961080E-01,
2251 + .762374E-01, .598913E-01, .465487E-01, .357475E-01,
2252 + .270638E-01, .202257E-01, .148263E-01, .106541E-01,
2253 + .748292E-02, .511625E-02, .338992E-02, .216191E-02,
2254 + .131880E-02, .757915E-03, .406363E-03, .198264E-03,
2255 + .851851E-04, .304537E-04, .820406E-05, .136211E-05,
2256 + .791821E-07, .000000E+00, .537358E+06, .411487E+06,
2257 + .310378E+06, .234029E+06, .176421E+06, .132943E+06,
2258 + .100158E+06, .754305E+05, .567965E+05, .427510E+05,
2259 + .321737E+05, .242059E+05, .182094E+05, .136952E+05,
2260 + .102998E+05, .774518E+04, .582481E+04, .438064E+04,
2261 + .329553E+04, .247982E+04, .186714E+04, .140665E+04,
2262 + .106079E+04, .800813E+03, .605491E+03, .458606E+03 /
2263 DATA (UPDI(I),I=8217,8268) /
2264 + .348228E+03, .264078E+03, .201733E+03, .154680E+03,
2265 + .119147E+03, .922352E+02, .718185E+02, .563133E+02,
2266 + .444421E+02, .353333E+02, .283148E+02, .228684E+02,
2267 + .186176E+02, .152700E+02, .126182E+02, .104935E+02,
2268 + .877784E+01, .737897E+01, .622927E+01, .527590E+01,
2269 + .448283E+01, .381169E+01, .324809E+01, .276639E+01,
2270 + .235748E+01, .200794E+01, .170862E+01, .145196E+01,
2271 + .123173E+01, .104275E+01, .880619E+00, .741691E+00,
2272 + .622784E+00, .521200E+00, .434581E+00, .360931E+00,
2273 + .298380E+00, .245702E+00, .200995E+00, .163462E+00,
2274 + .132073E+00, .105953E+00, .843254E-01, .665269E-01,
2275 + .519709E-01, .401612E-01, .306604E-01, .230698E-01,
2276 + .171317E-01, .124748E-01, .890200E-02, .620660E-02 /
2277 DATA (UPDI(I),I=8269,8320) /
2278 + .421079E-02, .276707E-02, .174911E-02, .105690E-02,
2279 + .601117E-03, .318660E-03, .153530E-03, .650487E-04,
2280 + .228942E-04, .606577E-05, .994388E-06, .589499E-07,
2281 + .000000E+00, .692695E+06, .528480E+06, .396900E+06,
2282 + .297956E+06, .223613E+06, .167742E+06, .125795E+06,
2283 + .942951E+05, .706635E+05, .529317E+05, .396395E+05,
2284 + .296736E+05, .222088E+05, .166164E+05, .124306E+05,
2285 + .929709E+04, .695346E+04, .520012E+04, .388961E+04,
2286 + .290974E+04, .217775E+04, .163065E+04, .122204E+04,
2287 + .916678E+03, .688590E+03, .518081E+03, .390729E+03,
2288 + .294240E+03, .223201E+03, .169928E+03, .129952E+03,
2289 + .998722E+02, .771996E+02, .600941E+02, .470825E+02,
2290 + .371641E+02, .295708E+02, .237165E+02, .191760E+02 /
2291 DATA (UPDI(I),I=8321,8372) /
2292 + .156226E+02, .128251E+02, .105974E+02, .880930E+01,
2293 + .736015E+01, .617622E+01, .520032E+01, .439333E+01,
2294 + .371448E+01, .314780E+01, .266637E+01, .226010E+01,
2295 + .191488E+01, .162098E+01, .137044E+01, .115669E+01,
2296 + .974316E+00, .818739E+00, .686172E+00, .573335E+00,
2297 + .477467E+00, .396169E+00, .327419E+00, .269342E+00,
2298 + .220696E+00, .179633E+00, .145348E+00, .116833E+00,
2299 + .932363E-01, .738088E-01, .579122E-01, .449877E-01,
2300 + .345647E-01, .262317E-01, .196158E-01, .144741E-01,
2301 + .104693E-01, .741874E-02, .513448E-02, .345640E-02,
2302 + .225260E-02, .141129E-02, .844685E-03, .475440E-03,
2303 + .249190E-03, .118560E-03, .495373E-04, .171669E-04,
2304 + .447448E-05, .724442E-06, .437879E-07, .000000E+00 /
2305 DATA (UPDI(I),I=8373,8424) /
2306 + .882842E+06, .671148E+06, .501938E+06, .375213E+06,
2307 + .280380E+06, .209407E+06, .156343E+06, .116665E+06,
2308 + .870257E+05, .648840E+05, .483596E+05, .360265E+05,
2309 + .268309E+05, .199740E+05, .148662E+05, .110608E+05,
2310 + .822870E+04, .612051E+04, .455276E+04, .338663E+04,
2311 + .252007E+04, .187586E+04, .139736E+04, .104175E+04,
2312 + .777633E+03, .581322E+03, .435561E+03, .325790E+03,
2313 + .245463E+03, .185595E+03, .140947E+03, .107565E+03,
2314 + .825606E+02, .638162E+02, .496476E+02, .389163E+02,
2315 + .307519E+02, .244967E+02, .196750E+02, .159246E+02,
2316 + .129896E+02, .106662E+02, .881227E+01, .731854E+01,
2317 + .610523E+01, .511092E+01, .429346E+01, .360982E+01,
2318 + .304243E+01, .256322E+01, .216117E+01, .182150E+01 /
2319 DATA (UPDI(I),I=8425,8476) /
2320 + .153400E+01, .129030E+01, .108357E+01, .908166E+00,
2321 + .759371E+00, .633283E+00, .526548E+00, .436358E+00,
2322 + .360290E+00, .296309E+00, .242547E+00, .197757E+00,
2323 + .160153E+00, .128927E+00, .103099E+00, .818442E-01,
2324 + .644436E-01, .502869E-01, .388445E-01, .296725E-01,
2325 + .223851E-01, .166356E-01, .121967E-01, .876291E-02,
2326 + .616597E-02, .423597E-02, .282932E-02, .182865E-02,
2327 + .113549E-02, .673148E-03, .374953E-03, .194300E-03,
2328 + .912913E-04, .376174E-04, .128377E-04, .329261E-05,
2329 + .526634E-06, .324493E-07, .000000E+00, .111322E+07,
2330 + .843358E+06, .628165E+06, .467637E+06, .347983E+06,
2331 + .258794E+06, .192382E+06, .142929E+06, .106143E+06,
2332 + .787792E+05, .584457E+05, .433366E+05, .321213E+05 /
2333 DATA (UPDI(I),I=8477,8528) /
2334 + .237965E+05, .176236E+05, .130464E+05, .965603E+04,
2335 + .714456E+04, .528610E+04, .391070E+04, .289383E+04,
2336 + .214183E+04, .158621E+04, .117552E+04, .872170E+03,
2337 + .647951E+03, .482418E+03, .358486E+03, .268331E+03,
2338 + .201541E+03, .152029E+03, .115237E+03, .878469E+02,
2339 + .674409E+02, .521107E+02, .405715E+02, .318458E+02,
2340 + .252013E+02, .201100E+02, .161734E+02, .131104E+02,
2341 + .106998E+02, .878707E+01, .725478E+01, .601714E+01,
2342 + .500862E+01, .418416E+01, .349856E+01, .293278E+01,
2343 + .245765E+01, .206127E+01, .172831E+01, .144807E+01,
2344 + .121186E+01, .101259E+01, .844454E+00, .702609E+00,
2345 + .583065E+00, .482419E+00, .397833E+00, .326874E+00,
2346 + .267509E+00, .217890E+00, .176772E+00, .142438E+00 /
2347 DATA (UPDI(I),I=8529,8580) /
2348 + .114081E+00, .907544E-01, .716653E-01, .561254E-01,
2349 + .435551E-01, .334545E-01, .254068E-01, .190526E-01,
2350 + .140709E-01, .102501E-01, .731475E-02, .511070E-02,
2351 + .348498E-02, .230949E-02, .148025E-02, .910955E-03,
2352 + .534879E-03, .294833E-03, .151052E-03, .700869E-04,
2353 + .284830E-04, .957393E-05, .241688E-05, .381993E-06,
2354 + .239900E-07, .000000E+00, .138957E+07, .104918E+07,
2355 + .778368E+06, .577128E+06, .427707E+06, .316770E+06,
2356 + .234490E+06, .173471E+06, .128265E+06, .947799E+05,
2357 + .700017E+05, .516692E+05, .381200E+05, .281075E+05,
2358 + .207164E+05, .152611E+05, .112389E+05, .827350E+04,
2359 + .608966E+04, .448137E+04, .329822E+04, .242769E+04,
2360 + .178779E+04, .131730E+04, .971624E+03, .717504E+03 /
2361 DATA (UPDI(I),I=8581,8632) /
2362 + .530939E+03, .392055E+03, .291601E+03, .217615E+03,
2363 + .163089E+03, .122811E+03, .930036E+02, .709304E+02,
2364 + .544462E+02, .421130E+02, .328418E+02, .258238E+02,
2365 + .204772E+02, .163671E+02, .131870E+02, .106982E+02,
2366 + .873434E+01, .716979E+01, .591298E+01, .489447E+01,
2367 + .406641E+01, .338163E+01, .281966E+01, .235036E+01,
2368 + .196103E+01, .163580E+01, .136358E+01, .113541E+01,
2369 + .943965E+00, .783322E+00, .648532E+00, .535547E+00,
2370 + .440933E+00, .361842E+00, .295847E+00, .240929E+00,
2371 + .195269E+00, .157632E+00, .126373E+00, .100696E+00,
2372 + .796907E-01, .625959E-01, .487580E-01, .376286E-01,
2373 + .287386E-01, .216981E-01, .161737E-01, .118700E-01,
2374 + .859108E-02, .608931E-02, .422436E-02, .285913E-02 /
2375 DATA (UPDI(I),I=8633,8684) /
2376 + .187984E-02, .119479E-02, .728699E-03, .423765E-03,
2377 + .231148E-03, .117081E-03, .536491E-04, .215042E-04,
2378 + .712034E-05, .176965E-05, .276471E-06, .176944E-07,
2379 + .000000E+00, .171791E+07, .129284E+07, .955405E+06,
2380 + .705613E+06, .520841E+06, .384190E+06, .283231E+06,
2381 + .208656E+06, .153630E+06, .113035E+06, .831202E+05,
2382 + .610802E+05, .448599E+05, .329254E+05, .241541E+05,
2383 + .177089E+05, .129783E+05, .950688E+04, .696225E+04,
2384 + .509722E+04, .373181E+04, .273216E+04, .200103E+04,
2385 + .146620E+04, .107530E+04, .789450E+03, .580721E+03,
2386 + .426197E+03, .315056E+03, .233661E+03, .174014E+03,
2387 + .130209E+03, .979773E+02, .742486E+02, .566303E+02,
2388 + .435255E+02, .337306E+02, .263587E+02, .207739E+02 /
2389 DATA (UPDI(I),I=8685,8736) /
2390 + .165047E+02, .132193E+02, .106622E+02, .865509E+01,
2391 + .706471E+01, .579393E+01, .476960E+01, .394129E+01,
2392 + .325999E+01, .270390E+01, .224206E+01, .186101E+01,
2393 + .154444E+01, .128091E+01, .106122E+01, .877891E+00,
2394 + .724888E+00, .597199E+00, .490738E+00, .402062E+00,
2395 + .328329E+00, .267132E+00, .216474E+00, .174578E+00,
2396 + .140226E+00, .111850E+00, .886661E-01, .698042E-01,
2397 + .545390E-01, .422519E-01, .324266E-01, .246245E-01,
2398 + .184830E-01, .136940E-01, .998691E-02, .718133E-02,
2399 + .505545E-02, .348217E-02, .233916E-02, .152581E-02,
2400 + .961638E-03, .581230E-03, .334757E-03, .180688E-03,
2401 + .904842E-04, .409469E-04, .161892E-04, .528131E-05,
2402 + .129259E-05, .199670E-06, .130210E-07, .000000E+00 /
2403 DATA (UPDI(I),I=8737,8788) /
2404 + .210438E+07, .157860E+07, .116214E+07, .854997E+06,
2405 + .628644E+06, .461875E+06, .339135E+06, .248825E+06,
2406 + .182447E+06, .133675E+06, .978789E+05, .716143E+05,
2407 + .523650E+05, .382620E+05, .279411E+05, .203906E+05,
2408 + .148731E+05, .108425E+05, .790146E+04, .575597E+04,
2409 + .419263E+04, .305359E+04, .222459E+04, .162120E+04,
2410 + .118242E+04, .863191E+03, .631324E+03, .460595E+03,
2411 + .338467E+03, .249518E+03, .184694E+03, .137355E+03,
2412 + .102718E+03, .773623E+02, .586419E+02, .447961E+02,
2413 + .345047E+02, .268021E+02, .209984E+02, .165858E+02,
2414 + .132080E+02, .105927E+02, .855060E+01, .694089E+01,
2415 + .566132E+01, .463526E+01, .380989E+01, .313460E+01,
2416 + .258634E+01, .213345E+01, .176177E+01, .145466E+01 /
2417 DATA (UPDI(I),I=8789,8840) /
2418 + .120038E+01, .989527E+00, .814522E+00, .669244E+00,
2419 + .548647E+00, .448631E+00, .365765E+00, .297226E+00,
2420 + .240639E+00, .194045E+00, .155711E+00, .124447E+00,
2421 + .987591E-01, .778854E-01, .609960E-01, .474029E-01,
2422 + .365237E-01, .278741E-01, .210462E-01, .157042E-01,
2423 + .115646E-01, .838069E-02, .598708E-02, .418592E-02,
2424 + .286262E-02, .190852E-02, .123503E-02, .771812E-03,
2425 + .462290E-03, .263688E-03, .140838E-03, .697281E-04,
2426 + .311632E-04, .121540E-04, .390702E-05, .941899E-06,
2427 + .143907E-06, .956067E-08, .000000E+00, .255513E+07,
2428 + .191072E+07, .140139E+07, .102712E+07, .752310E+06,
2429 + .550594E+06, .402686E+06, .294276E+06, .214900E+06,
2430 + .156807E+06, .114337E+06, .833025E+05, .606494E+05 /
2431 DATA (UPDI(I),I=8841,8892) /
2432 + .441216E+05, .320768E+05, .233029E+05, .169191E+05,
2433 + .122763E+05, .890361E+04, .645448E+04, .467811E+04,
2434 + .338997E+04, .245692E+04, .178110E+04, .129208E+04,
2435 + .938086E+03, .682285E+03, .494922E+03, .361605E+03,
2436 + .265028E+03, .195021E+03, .144178E+03, .107177E+03,
2437 + .802419E+02, .604627E+02, .459141E+02, .351583E+02,
2438 + .271515E+02, .211502E+02, .166112E+02, .131542E+02,
2439 + .104913E+02, .842242E+01, .679985E+01, .551655E+01,
2440 + .449271E+01, .367335E+01, .300641E+01, .246777E+01,
2441 + .202516E+01, .166384E+01, .136687E+01, .112227E+01,
2442 + .920539E+00, .753985E+00, .616453E+00, .502888E+00,
2443 + .409200E+00, .331984E+00, .268453E+00, .216277E+00,
2444 + .173539E+00, .138562E+00, .110186E+00, .869960E-01 /
2445 C-----------------------------------------------------------------------
2451 Amass(I) = AmassI(I)
2473 QL(Iq) = Log (QL(Iq) /Al)
2476 C Since quark = anti-quark for nfl>2 at this stage,
2477 C we Read out only the non-redundent data points
2478 C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence)
2480 Nblk = (NX+1) * (NT+1)
2481 Npts = Nblk * (NfMx+3)
2487 C ****************************
git://git.uio.no / u / mrichter / AliRoot.git / blob