1 C-----------------------------------------------------------------------
3 Subroutine Ctq4RD (Iset)
4 #include "pdf/impdp.inc"
5 PARAMETER (MXX = 105, MXQ = 25, MXF = 6)
6 PARAMETER (MXPQX = (MXF *2 +2) * MXQ * MXX)
7 PARAMETER (NxI = 90, NtI = 13, NfMxI = 5)
8 COMMON / W5051IC / Al, XV(0:MXX), QL(0:MXQ), UPD(MXPQX)
9 COMMON / W5051ID / Nx, Nt, NfMx
10 COMMON / W5051IE / Qini, Qmax, Xmin
14 > XVI(0:MXX),QLI(0:MXQ),UPDI(MXPQX),
17 C-----------------------------------------------------------------------
18 C Parton Distribution Table : CTEQ4D
20 DATA DrI, FlI, AlI / 2., 5., .2020 /
21 DATA (AmassI(I),I=1,6) / .000, .000, .200,
22 + 1.600, 5.000, 180.000 /
23 C DATA NXI, NTI, NfMxI / 90, 13, 5 /
24 DATA QINII, QMAXI, (QLI(I), I =0, NTI) /
25 + .160000D+01, .100000D+05,
26 + .160000D+01, .203369D+01, .265779D+01, .358285D+01, .500000D+01,
27 + .794903D+01, .135129D+02, .248012D+02, .496935D+02, .110086D+03,
28 + .273574D+03, .775412D+03, .255482D+04, .100000D+05 /
29 DATA XMINI, (XVI(I), I =0, NXI) /
31 + .000000D+00, .999983D-05, .124433D-04, .154836D-04, .192668D-04,
32 + .239740D-04, .298310D-04, .371184D-04, .461852D-04, .574656D-04,
33 + .714994D-04, .889575D-04, .110674D-03, .137686D-03, .171280D-03,
34 + .213055D-03, .264997D-03, .329564D-03, .409809D-03, .509508D-03,
35 + .633332D-03, .787053D-03, .977784D-03, .121428D-02, .150728D-02,
36 + .186993D-02, .231825D-02, .288037D-02, .356397D-02, .440443D-02,
37 + .543508D-02, .669508D-02, .822984D-02, .100851D-01, .123281D-01,
38 + .150167D-01, .182174D-01, .219985D-01, .264278D-01, .315720D-01,
39 + .374800D-01, .442088D-01, .517931D-01, .602576D-01, .696136D-01,
40 + .798586D-01, .909356D-01, .102935D+00, .115681D+00, .129293D+00,
41 + .143599D+00, .158606D+00, .174271D+00, .190550D+00, .207405D+00,
42 + .224796D+00, .242685D+00, .261038D+00, .279820D+00, .299001D+00,
43 + .318550D+00, .338442D+00, .358653D+00, .379067D+00, .399881D+00,
44 + .420953D+00, .442266D+00, .463806D+00, .485559D+00, .507513D+00,
45 + .529656D+00, .551978D+00, .574483D+00, .597187D+00, .619860D+00,
46 + .642828D+00, .665921D+00, .689135D+00, .712467D+00, .735911D+00,
47 + .759464D+00, .783080D+00, .806909D+00, .830741D+00, .854673D+00,
48 + .878696D+00, .902804D+00, .926992D+00, .951257D+00, .975603D+00,
50 C Parton Distribution Table:
51 DATA (UPDI(I),I=1,52) /
52 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
53 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
54 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
55 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
56 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
57 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
58 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
59 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
60 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
61 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
62 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
63 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
64 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
65 DATA (UPDI(I),I=53,104) /
66 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
67 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
68 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
69 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
70 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
71 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
72 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
73 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
74 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
75 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
76 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
77 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
78 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
79 DATA (UPDI(I),I=105,156) /
80 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
81 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
82 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
83 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
84 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
85 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
86 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
87 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
88 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
89 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
90 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
91 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
92 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
93 DATA (UPDI(I),I=157,208) /
94 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
95 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
96 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
97 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
98 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
99 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
100 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
101 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
102 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
103 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
104 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
105 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
106 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
107 DATA (UPDI(I),I=209,260) /
108 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
109 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
110 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
111 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
112 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
113 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
114 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
115 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
116 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
117 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
118 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
119 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
120 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
121 DATA (UPDI(I),I=261,312) /
122 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
123 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
124 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
125 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
126 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
127 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
128 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
129 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
130 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
131 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
132 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
133 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
134 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
135 DATA (UPDI(I),I=313,364) /
136 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
137 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
138 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
139 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
140 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
141 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
142 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
143 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
144 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
145 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
146 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
147 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
148 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
149 DATA (UPDI(I),I=365,416) /
150 + .226654D+06, .000000D+00, .000000D+00, .000000D+00,
151 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
152 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
153 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
154 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
155 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
156 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
157 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
158 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
159 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
160 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
161 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
162 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
163 DATA (UPDI(I),I=417,468) /
164 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
165 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
166 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
167 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
168 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
169 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
170 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
171 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
172 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
173 + .000000D+00, .000000D+00, .000000D+00, .897108D+05,
174 + .686463D+05, .517218D+05, .389374D+05, .292956D+05,
175 + .220207D+05, .165416D+05, .124134D+05, .930878D+04,
176 + .697318D+04, .521954D+04, .390241D+04, .291518D+04 /
177 DATA (UPDI(I),I=469,520) /
178 + .217500D+04, .162125D+04, .120687D+04, .897493D+03,
179 + .666456D+03, .494347D+03, .366111D+03, .270819D+03,
180 + .199996D+03, .147501D+03, .108592D+03, .798304D+02,
181 + .585835D+02, .429415D+02, .312733D+02, .228460D+02,
182 + .166570D+02, .121304D+02, .881848D+01, .640438D+01,
183 + .464946D+01, .337199D+01, .244431D+01, .177337D+01,
184 + .128721D+01, .936279D+00, .682179D+00, .498985D+00,
185 + .366110D+00, .269832D+00, .199688D+00, .148575D+00,
186 + .111012D+00, .834718D-01, .628547D-01, .476389D-01,
187 + .361111D-01, .274702D-01, .209009D-01, .159135D-01,
188 + .120971D-01, .918436D-02, .694634D-02, .523485D-02,
189 + .392273D-02, .292526D-02, .216467D-02, .159116D-02,
190 + .115845D-02, .835839D-03, .597217D-03, .420800D-03 /
191 DATA (UPDI(I),I=521,572) /
192 + .291664D-03, .198804D-03, .132360D-03, .857791D-04,
193 + .532939D-04, .312489D-04, .163928D-04, .674397D-05,
194 + .660468D-06, .000000D+00, .000000D+00, .000000D+00,
195 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
196 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
197 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
198 + .000000D+00, .000000D+00, .205743D+06, .156969D+06,
199 + .117863D+06, .884242D+05, .662953D+05, .496568D+05,
200 + .371677D+05, .277914D+05, .207643D+05, .154971D+05,
201 + .115563D+05, .860740D+04, .640513D+04, .476028D+04,
202 + .353429D+04, .262045D+04, .194078D+04, .143526D+04,
203 + .106015D+04, .781820D+03, .575825D+03, .423380D+03,
204 + .310854D+03, .227820D+03, .166706D+03, .121761D+03 /
205 DATA (UPDI(I),I=573,624) /
206 + .888208D+02, .643667D+02, .467867D+02, .339403D+02,
207 + .245888D+02, .177820D+02, .128448D+02, .927473D+01,
208 + .668910D+01, .482181D+01, .347828D+01, .251030D+01,
209 + .181526D+01, .131488D+01, .956033D+00, .697237D+00,
210 + .510716D+00, .375609D+00, .277674D+00, .206120D+00,
211 + .153942D+00, .115127D+00, .866363D-01, .651987D-01,
212 + .492304D-01, .371793D-01, .280929D-01, .211942D-01,
213 + .159678D-01, .119856D-01, .896471D-02, .666883D-02,
214 + .493751D-02, .362910D-02, .265064D-02, .191893D-02,
215 + .137798D-02, .981230D-03, .690430D-03, .479449D-03,
216 + .329001D-03, .222232D-03, .147922D-03, .964239D-04,
217 + .616091D-04, .381510D-04, .227522D-04, .128320D-04,
218 + .669470D-05, .292815D-05, .787968D-06, .000000D+00 /
219 DATA (UPDI(I),I=625,676) /
220 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
221 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
222 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
223 + .000000D+00, .353063D+06, .268559D+06, .200947D+06,
224 + .150227D+06, .112230D+06, .837620D+05, .624672D+05,
225 + .465376D+05, .346414D+05, .257573D+05, .191343D+05,
226 + .141972D+05, .105236D+05, .779042D+04, .576093D+04,
227 + .425417D+04, .313783D+04, .231092D+04, .169975D+04,
228 + .124817D+04, .915305D+03, .670029D+03, .489744D+03,
229 + .357296D+03, .260240D+03, .189182D+03, .137337D+03,
230 + .990341D+02, .716269D+02, .516986D+02, .372607D+02,
231 + .268055D+02, .192593D+02, .138317D+02, .992055D+01,
232 + .711149D+01, .510080D+01, .366033D+01, .263147D+01 /
233 DATA (UPDI(I),I=677,728) /
234 + .189501D+01, .136963D+01, .992886D+00, .722813D+00,
235 + .528308D+00, .388067D+00, .286201D+00, .212325D+00,
236 + .157715D+00, .117853D+00, .880627D-01, .660120D-01,
237 + .494913D-01, .371196D-01, .277983D-01, .207876D-01,
238 + .154892D-01, .115008D-01, .849501D-02, .624554D-02,
239 + .455993D-02, .330902D-02, .238132D-02, .170064D-02,
240 + .120524D-02, .844825D-03, .585382D-03, .401644D-03,
241 + .272160D-03, .182554D-03, .120801D-03, .791885D-04,
242 + .512019D-04, .327713D-04, .207975D-04, .132245D-04,
243 + .838629D-05, .540409D-05, .353667D-05, .239559D-05,
244 + .166217D-05, .119868D-05, .872543D-06, .641448D-06,
245 + .459211D-06, .315701D-06, .200342D-06, .112761D-06,
246 + .516724D-07, .153904D-07, .119126D-08, .000000D+00 /
247 DATA (UPDI(I),I=729,780) /
248 + .537276D+06, .407439D+06, .303778D+06, .226292D+06,
249 + .168443D+06, .125258D+06, .930688D+05, .690780D+05,
250 + .512260D+05, .379442D+05, .280790D+05, .207532D+05,
251 + .153226D+05, .112980D+05, .832107D+04, .611973D+04,
252 + .449518D+04, .329675D+04, .241456D+04, .176547D+04,
253 + .128900D+04, .939413D+03, .683555D+03, .496420D+03,
254 + .359895D+03, .260391D+03, .188120D+03, .134983D+03,
255 + .971416D+02, .697622D+02, .500207D+02, .357980D+02,
256 + .255834D+02, .182752D+02, .130355D+02, .929280D+01,
257 + .662771D+01, .472908D+01, .338016D+01, .242005D+01,
258 + .173874D+01, .125295D+01, .906569D+00, .658537D+00,
259 + .480662D+00, .352212D+00, .259571D+00, .191518D+00,
260 + .142124D+00, .105459D+00, .784898D-01, .584287D-01 /
261 DATA (UPDI(I),I=781,832) /
262 + .435068D-01, .323484D-01, .240155D-01, .177675D-01,
263 + .130996D-01, .960994D-02, .701755D-02, .509068D-02,
264 + .367115D-02, .262670D-02, .186577D-02, .131597D-02,
265 + .918721D-03, .634820D-03, .435000D-03, .295066D-03,
266 + .198702D-03, .132615D-03, .881935D-04, .583619D-04,
267 + .386723D-04, .257963D-04, .175236D-04, .121014D-04,
268 + .859959D-05, .625646D-05, .466914D-05, .352084D-05,
269 + .267479D-05, .200426D-05, .146940D-05, .103231D-05,
270 + .683654D-06, .413598D-06, .219190D-06, .934045D-07,
271 + .258026D-07, .206160D-08, .000000D+00, .764386D+06,
272 + .577888D+06, .429307D+06, .318644D+06, .236317D+06,
273 + .175083D+06, .129604D+06, .958337D+05, .707965D+05,
274 + .522395D+05, .385074D+05, .283494D+05, .208480D+05 /
275 DATA (UPDI(I),I=833,884) /
276 + .153107D+05, .112306D+05, .822572D+04, .601697D+04,
277 + .439430D+04, .320469D+04, .233310D+04, .169596D+04,
278 + .123053D+04, .891347D+03, .644371D+03, .464989D+03,
279 + .334837D+03, .240740D+03, .171888D+03, .123086D+03,
280 + .879517D+02, .627394D+02, .446679D+02, .317534D+02,
281 + .225618D+02, .160054D+02, .113473D+02, .804756D+01,
282 + .570985D+01, .405775D+01, .288842D+01, .206304D+01,
283 + .147782D+01, .106280D+01, .767298D+00, .556528D+00,
284 + .405204D+00, .296676D+00, .217447D+00, .160270D+00,
285 + .118108D+00, .872921D-01, .645300D-01, .477123D-01,
286 + .352283D-01, .259704D-01, .190819D-01, .139732D-01,
287 + .101834D-01, .738815D-02, .532651D-02, .381836D-02,
288 + .271703D-02, .192003D-02, .134810D-02, .937524D-03 /
289 DATA (UPDI(I),I=885,936) /
290 + .646057D-03, .442070D-03, .300029D-03, .202634D-03,
291 + .136118D-03, .914899D-04, .615445D-04, .417310D-04,
292 + .286888D-04, .201931D-04, .145092D-04, .107109D-04,
293 + .806150D-05, .616521D-05, .472438D-05, .360646D-05,
294 + .269674D-05, .195610D-05, .135347D-05, .877740D-06,
295 + .517723D-06, .265870D-06, .108891D-06, .287924D-07,
296 + .234200D-08, .000000D+00, .104071D+07, .784368D+06,
297 + .580580D+06, .429349D+06, .317244D+06, .234167D+06,
298 + .172688D+06, .127209D+06, .936149D+05, .688103D+05,
299 + .505241D+05, .370498D+05, .271375D+05, .198495D+05,
300 + .145006D+05, .105771D+05, .770469D+04, .560319D+04,
301 + .406884D+04, .294944D+04, .213459D+04, .154192D+04,
302 + .111187D+04, .800124D+03, .574707D+03, .411892D+03 /
303 DATA (UPDI(I),I=937,988) /
304 + .294721D+03, .209395D+03, .149204D+03, .106082D+03,
305 + .752873D+02, .533256D+02, .377088D+02, .266516D+02,
306 + .188043D+02, .132589D+02, .935100D+01, .659755D+01,
307 + .466192D+01, .329948D+01, .234289D+01, .166840D+01,
308 + .119264D+01, .855812D+00, .616866D+00, .446300D+00,
309 + .324662D+00, .236405D+00, .173079D+00, .126690D+00,
310 + .929967D-01, .682808D-01, .501402D-01, .367702D-01,
311 + .269234D-01, .196508D-01, .142956D-01, .103524D-01,
312 + .746416D-02, .534965D-02, .381324D-02, .269928D-02,
313 + .189828D-02, .132720D-02, .919711D-03, .632231D-03,
314 + .432080D-03, .293425D-03, .198709D-03, .134249D-03,
315 + .910494D-04, .620658D-04, .428306D-04, .300792D-04,
316 + .216639D-04, .159302D-04, .119921D-04, .916191D-05 /
317 DATA (UPDI(I),I=989,1040) /
318 + .706472D-05, .542950D-05, .413037D-05, .306618D-05,
319 + .219756D-05, .149824D-05, .953843D-06, .550489D-06,
320 + .275264D-06, .109028D-06, .277889D-07, .229487D-08,
321 + .000000D+00, .137276D+07, .103144D+07, .760671D+06,
322 + .560467D+06, .412592D+06, .303410D+06, .222908D+06,
323 + .163580D+06, .119918D+06, .878032D+05, .642172D+05,
324 + .469053D+05, .342190D+05, .249285D+05, .181366D+05,
325 + .131749D+05, .955695D+04, .692098D+04, .500431D+04,
326 + .361191D+04, .260259D+04, .187166D+04, .134358D+04,
327 + .962469D+03, .688122D+03, .490859D+03, .349549D+03,
328 + .247135D+03, .175232D+03, .123970D+03, .875374D+02,
329 + .616857D+02, .433934D+02, .305083D+02, .214100D+02,
330 + .150145D+02, .105309D+02, .738881D+01, .519160D+01 /
331 DATA (UPDI(I),I=1041,1092) /
332 + .365350D+01, .257926D+01, .182599D+01, .129753D+01,
333 + .925475D+00, .662975D+00, .476667D+00, .344552D+00,
334 + .249272D+00, .181304D+00, .131835D+00, .961291D-01,
335 + .701133D-01, .511433D-01, .372590D-01, .271022D-01,
336 + .196545D-01, .142081D-01, .102265D-01, .732960D-02,
337 + .522371D-02, .370349D-02, .260874D-02, .182632D-02,
338 + .127192D-02, .878577D-03, .602679D-03, .411509D-03,
339 + .279687D-03, .189932D-03, .129022D-03, .882222D-04,
340 + .608316D-04, .425856D-04, .303970D-04, .222502D-04,
341 + .166058D-04, .126389D-04, .972269D-05, .751050D-05,
342 + .576001D-05, .435343D-05, .320232D-05, .226661D-05,
343 + .152277D-05, .952502D-06, .538510D-06, .262635D-06,
344 + .100852D-06, .248614D-07, .208221D-08, .000000D+00 /
345 DATA (UPDI(I),I=1093,1144) /
346 + .176712D+07, .132365D+07, .972609D+06, .713996D+06,
347 + .523664D+06, .383654D+06, .280798D+06, .205279D+06,
348 + .149910D+06, .109338D+06, .796548D+05, .579519D+05,
349 + .421092D+05, .305531D+05, .221382D+05, .160157D+05,
350 + .115693D+05, .834313D+04, .600695D+04, .431693D+04,
351 + .309704D+04, .221743D+04, .158467D+04, .113004D+04,
352 + .804218D+03, .570993D+03, .404688D+03, .284730D+03,
353 + .200907D+03, .141435D+03, .993694D+02, .696690D+02,
354 + .487566D+02, .341008D+02, .238042D+02, .166041D+02,
355 + .115823D+02, .808193D+01, .564694D+01, .395158D+01,
356 + .277373D+01, .195231D+01, .137912D+01, .977816D+00,
357 + .696215D+00, .497483D+00, .357352D+00, .256894D+00,
358 + .185647D+00, .134120D+00, .971601D-01, .704078D-01 /
359 DATA (UPDI(I),I=1145,1196) /
360 + .510259D-01, .369361D-01, .266967D-01, .192405D-01,
361 + .138244D-01, .989220D-02, .704972D-02, .499735D-02,
362 + .352500D-02, .247156D-02, .172301D-02, .119570D-02,
363 + .823570D-03, .563952D-03, .384851D-03, .261863D-03,
364 + .178355D-03, .121810D-03, .839295D-04, .584649D-04,
365 + .414269D-04, .299515D-04, .221854D-04, .167209D-04,
366 + .128048D-04, .987506D-05, .761633D-05, .581418D-05,
367 + .435940D-05, .317446D-05, .221835D-05, .146860D-05,
368 + .902861D-06, .500304D-06, .238179D-06, .887944D-07,
369 + .212180D-07, .180121D-08, .000000D+00, .223025D+07,
370 + .166544D+07, .121930D+07, .891817D+06, .651665D+06,
371 + .475655D+06, .346825D+06, .252589D+06, .183753D+06,
372 + .133506D+06, .968818D+05, .702082D+05, .508122D+05 /
373 DATA (UPDI(I),I=1197,1248) /
374 + .367201D+05, .264988D+05, .190920D+05, .137344D+05,
375 + .986307D+04, .707122D+04, .506006D+04, .361444D+04,
376 + .257654D+04, .183313D+04, .130135D+04, .921912D+03,
377 + .651521D+03, .459595D+03, .321804D+03, .225973D+03,
378 + .158307D+03, .110672D+03, .772045D+02, .537546D+02,
379 + .374033D+02, .259725D+02, .180206D+02, .125027D+02,
380 + .867684D+01, .602919D+01, .419559D+01, .292835D+01,
381 + .204935D+01, .143925D+01, .101445D+01, .717968D+00,
382 + .509911D+00, .364029D+00, .260065D+00, .186756D+00,
383 + .134068D+00, .965063D-01, .694940D-01, .500470D-01,
384 + .360030D-01, .258624D-01, .185277D-01, .132346D-01,
385 + .941695D-02, .667459D-02, .470729D-02, .330444D-02,
386 + .230687D-02, .160192D-02, .110806D-02, .761297D-03 /
387 DATA (UPDI(I),I=1249,1300) /
388 + .520576D-03, .355177D-03, .242016D-03, .165360D-03,
389 + .113537D-03, .787960D-04, .553951D-04, .396588D-04,
390 + .289685D-04, .216459D-04, .164194D-04, .126118D-04,
391 + .972414D-05, .747320D-05, .566999D-05, .421376D-05,
392 + .303582D-05, .209414D-05, .136609D-05, .825586D-06,
393 + .448519D-06, .208531D-06, .755492D-07, .175302D-07,
394 + .150778D-08, .000000D+00, .104420D+06, .000000D+00,
395 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
396 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
397 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
398 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
399 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
400 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
401 DATA (UPDI(I),I=1301,1352) /
402 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
403 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
404 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
405 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
406 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
407 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
408 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
409 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
410 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
411 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
412 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
413 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
414 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
415 DATA (UPDI(I),I=1353,1404) /
416 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
417 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
418 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
419 + .000000D+00, .228600D+05, .178890D+05, .138296D+05,
420 + .106819D+05, .825026D+04, .636621D+04, .491186D+04,
421 + .378604D+04, .291776D+04, .224627D+04, .172890D+04,
422 + .132923D+04, .102163D+04, .784296D+03, .601860D+03,
423 + .461284D+03, .353376D+03, .270348D+03, .206710D+03,
424 + .157827D+03, .120429D+03, .917551D+02, .698565D+02,
425 + .531000D+02, .403276D+02, .305810D+02, .231746D+02,
426 + .174622D+02, .131994D+02, .995951D+01, .751022D+01,
427 + .565418D+01, .425465D+01, .320012D+01, .240570D+01,
428 + .180737D+01, .135939D+01, .102266D+01, .771113D+00 /
429 DATA (UPDI(I),I=1405,1456) /
430 + .582241D+00, .441444D+00, .335654D+00, .256480D+00,
431 + .196785D+00, .151916D+00, .117805D+00, .920111D-01,
432 + .720128D-01, .567789D-01, .447966D-01, .354918D-01,
433 + .281253D-01, .223128D-01, .176686D-01, .139742D-01,
434 + .110027D-01, .862838D-02, .672196D-02, .520900D-02,
435 + .400119D-02, .305117D-02, .230253D-02, .172120D-02,
436 + .127399D-02, .930178D-03, .668543D-03, .473557D-03,
437 + .329098D-03, .224495D-03, .149085D-03, .962552D-04,
438 + .593266D-04, .345183D-04, .178334D-04, .726259D-05,
439 + .622594D-06, .000000D+00, .000000D+00, .000000D+00,
440 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
441 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
442 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
443 DATA (UPDI(I),I=1457,1508) /
444 + .546769D+05, .426066D+05, .327817D+05, .252023D+05,
445 + .193719D+05, .148775D+05, .114232D+05, .876294D+04,
446 + .672024D+04, .514874D+04, .394331D+04, .301699D+04,
447 + .230728D+04, .176258D+04, .134580D+04, .102635D+04,
448 + .782273D+03, .595476D+03, .452980D+03, .344110D+03,
449 + .261216D+03, .198002D+03, .149958D+03, .113396D+03,
450 + .856650D+02, .646178D+02, .487049D+02, .364998D+02,
451 + .274384D+02, .205907D+02, .154404D+02, .115601D+02,
452 + .864944D+01, .646922D+01, .483536D+01, .361218D+01,
453 + .270119D+01, .202058D+01, .151478D+01, .113730D+01,
454 + .857325D+00, .648180D+00, .492412D+00, .375632D+00,
455 + .288249D+00, .222185D+00, .172446D+00, .134110D+00,
456 + .105032D+00, .823057D-01, .647500D-01, .509489D-01 /
457 DATA (UPDI(I),I=1509,1560) /
458 + .401250D-01, .315431D-01, .247626D-01, .193548D-01,
459 + .150672D-01, .116551D-01, .896809D-02, .684261D-02,
460 + .518429D-02, .388906D-02, .289170D-02, .213069D-02,
461 + .155060D-02, .111308D-02, .789724D-03, .552160D-03,
462 + .381436D-03, .259266D-03, .174149D-03, .114985D-03,
463 + .750891D-04, .481369D-04, .306780D-04, .191969D-04,
464 + .119905D-04, .734705D-05, .448448D-05, .265260D-05,
465 + .154555D-05, .838377D-06, .433788D-06, .187456D-06,
466 + .615284D-07, .313946D-08, .000000D+00, .000000D+00,
467 + .000000D+00, .000000D+00, .000000D+00, .969487D+05,
468 + .752560D+05, .576493D+05, .441287D+05, .337697D+05,
469 + .258214D+05, .197373D+05, .150737D+05, .115075D+05,
470 + .877695D+04, .669127D+04, .509614D+04, .387927D+04 /
471 DATA (UPDI(I),I=1561,1612) /
472 + .294981D+04, .224172D+04, .170164D+04, .129082D+04,
473 + .977947D+03, .740350D+03, .559723D+03, .422817D+03,
474 + .318937D+03, .240355D+03, .180854D+03, .135940D+03,
475 + .102024D+03, .765048D+02, .570348D+02, .426509D+02,
476 + .318396D+02, .237482D+02, .176855D+02, .131607D+02,
477 + .979029D+01, .727733D+01, .540676D+01, .402071D+01,
478 + .299116D+01, .222994D+01, .166509D+01, .124820D+01,
479 + .938513D+00, .708966D+00, .537807D+00, .410308D+00,
480 + .314429D+00, .242559D+00, .187481D+00, .145886D+00,
481 + .113577D+00, .887476D-01, .693599D-01, .542445D-01,
482 + .423473D-01, .330089D-01, .256202D-01, .198049D-01,
483 + .152156D-01, .116276D-01, .881368D-02, .663446D-02,
484 + .494652D-02, .365645D-02, .267950D-02, .194036D-02 /
485 DATA (UPDI(I),I=1613,1664) /
486 + .138734D-02, .981506D-03, .685540D-03, .474166D-03,
487 + .323906D-03, .219720D-03, .147669D-03, .991184D-04,
488 + .663373D-04, .449340D-04, .306628D-04, .214323D-04,
489 + .151946D-04, .110353D-04, .806045D-05, .595766D-05,
490 + .433798D-05, .312046D-05, .215535D-05, .141935D-05,
491 + .862052D-06, .467279D-06, .210284D-06, .638622D-07,
492 + .491282D-08, .000000D+00, .192837D+06, .117146D+06,
493 + .893695D+05, .681297D+05, .519193D+05, .395344D+05,
494 + .300915D+05, .228846D+05, .173957D+05, .132113D+05,
495 + .100281D+05, .760445D+04, .576315D+04, .436307D+04,
496 + .330093D+04, .249450D+04, .188368D+04, .142066D+04,
497 + .107056D+04, .805650D+03, .605748D+03, .454790D+03,
498 + .341105D+03, .255442D+03, .191074D+03, .142705D+03 /
499 DATA (UPDI(I),I=1665,1716) /
500 + .106482D+03, .789833D+02, .587658D+02, .436480D+02,
501 + .323879D+02, .239952D+02, .177622D+02, .131444D+02,
502 + .971839D+01, .718212D+01, .531219D+01, .393091D+01,
503 + .291472D+01, .216481D+01, .161403D+01, .120706D+01,
504 + .906832D+00, .684147D+00, .519011D+00, .395469D+00,
505 + .303277D+00, .233014D+00, .180187D+00, .139396D+00,
506 + .108213D+00, .840212D-01, .652706D-01, .506151D-01,
507 + .391853D-01, .302101D-01, .231960D-01, .177041D-01,
508 + .134405D-01, .101234D-01, .757270D-02, .561252D-02,
509 + .412487D-02, .300632D-02, .216594D-02, .154187D-02,
510 + .108687D-02, .757306D-03, .523263D-03, .357893D-03,
511 + .243730D-03, .165131D-03, .112247D-03, .765789D-04,
512 + .531761D-04, .374556D-04, .271031D-04, .199442D-04 /
513 DATA (UPDI(I),I=1717,1768) /
514 + .149885D-04, .113043D-04, .856571D-05, .637400D-05,
515 + .464861D-05, .324741D-05, .214983D-05, .130749D-05,
516 + .704897D-06, .312281D-06, .920994D-07, .717893D-08,
517 + .000000D+00, .238273D+06, .183527D+06, .139344D+06,
518 + .105724D+06, .801793D+05, .607595D+05, .460198D+05,
519 + .348270D+05, .263416D+05, .199059D+05, .150331D+05,
520 + .113423D+05, .855162D+04, .644091D+04, .484743D+04,
521 + .364407D+04, .273710D+04, .205335D+04, .153895D+04,
522 + .115188D+04, .861290D+03, .643087D+03, .479618D+03,
523 + .357152D+03, .265622D+03, .197239D+03, .146309D+03,
524 + .107878D+03, .797816D+02, .589024D+02, .434386D+02,
525 + .319854D+02, .235286D+02, .173036D+02, .127121D+02,
526 + .933530D+01, .686034D+01, .504430D+01, .371610D+01 /
527 DATA (UPDI(I),I=1769,1820) /
528 + .274245D+01, .203142D+01, .150945D+01, .112655D+01,
529 + .844349D+00, .636205D+00, .481472D+00, .366628D+00,
530 + .279683D+00, .214670D+00, .164831D+00, .126969D+00,
531 + .978261D-01, .753930D-01, .580060D-01, .445468D-01,
532 + .340729D-01, .259539D-01, .196552D-01, .148042D-01,
533 + .110653D-01, .821288D-02, .604082D-02, .440492D-02,
534 + .318511D-02, .227538D-02, .160552D-02, .112048D-02,
535 + .771892D-03, .525877D-03, .353403D-03, .235079D-03,
536 + .154317D-03, .100441D-03, .646410D-04, .415811D-04,
537 + .265559D-04, .170719D-04, .109583D-04, .711160D-05,
538 + .460112D-05, .300681D-05, .193603D-05, .124677D-05,
539 + .774317D-06, .466757D-06, .263100D-06, .136301D-06,
540 + .603287D-07, .185758D-07, .139526D-08, .000000D+00 /
541 DATA (UPDI(I),I=1821,1872) /
542 + .351461D+06, .269627D+06, .203772D+06, .153894D+06,
543 + .116163D+06, .876150D+05, .660444D+05, .497430D+05,
544 + .374412D+05, .281566D+05, .211595D+05, .158858D+05,
545 + .119174D+05, .893092D+04, .668719D+04, .500147D+04,
546 + .373720D+04, .278905D+04, .207932D+04, .154811D+04,
547 + .115133D+04, .855010D+03, .634173D+03, .469641D+03,
548 + .347328D+03, .256453D+03, .189143D+03, .138645D+03,
549 + .101935D+03, .748159D+02, .548439D+02, .401414D+02,
550 + .293479D+02, .214518D+02, .156617D+02, .114303D+02,
551 + .834718D+01, .609930D+01, .446493D+01, .327443D+01,
552 + .241004D+01, .177944D+01, .131947D+01, .982549D+00,
553 + .735408D+00, .552807D+00, .418034D+00, .316659D+00,
554 + .241283D+00, .183903D+00, .140590D+00, .107503D+00 /
555 DATA (UPDI(I),I=1873,1924) /
556 + .822111D-01, .627659D-01, .478261D-01, .363000D-01,
557 + .274372D-01, .206223D-01, .154155D-01, .114384D-01,
558 + .842845D-02, .615664D-02, .445902D-02, .320355D-02,
559 + .227449D-02, .159614D-02, .110856D-02, .760861D-03,
560 + .517085D-03, .347402D-03, .231623D-03, .153055D-03,
561 + .100772D-03, .661563D-04, .438163D-04, .291839D-04,
562 + .197969D-04, .136119D-04, .955083D-05, .675408D-05,
563 + .482512D-05, .341115D-05, .238107D-05, .160048D-05,
564 + .102477D-05, .604498D-06, .316916D-06, .135894D-06,
565 + .384733D-07, .302742D-08, .000000D+00, .495983D+06,
566 + .379033D+06, .285172D+06, .214402D+06, .161100D+06,
567 + .120953D+06, .907531D+05, .680353D+05, .509688D+05,
568 + .381484D+05, .285310D+05, .213171D+05, .159139D+05 /
569 DATA (UPDI(I),I=1925,1976) /
570 + .118675D+05, .884193D+04, .658004D+04, .489189D+04,
571 + .363223D+04, .269398D+04, .199534D+04, .147614D+04,
572 + .109042D+04, .804438D+03, .592511D+03, .435796D+03,
573 + .319990D+03, .234677D+03, .171035D+03, .125027D+03,
574 + .912351D+02, .664875D+02, .483768D+02, .351572D+02,
575 + .255443D+02, .185361D+02, .134457D+02, .975842D+01,
576 + .708670D+01, .515551D+01, .375749D+01, .274824D+01,
577 + .201642D+01, .148565D+01, .109922D+01, .817324D+00,
578 + .610298D+00, .458362D+00, .344800D+00, .260850D+00,
579 + .197380D+00, .149780D+00, .113683D+00, .862840D-01,
580 + .653819D-01, .494422D-01, .372463D-01, .279428D-01,
581 + .208493D-01, .154720D-01, .113997D-01, .834182D-02,
582 + .605312D-02, .435584D-02, .311038D-02, .219562D-02 /
583 DATA (UPDI(I),I=1977,2028) /
584 + .153298D-02, .106001D-02, .725155D-03, .491820D-03,
585 + .330443D-03, .220860D-03, .146845D-03, .976918D-04,
586 + .652091D-04, .441794D-04, .303145D-04, .212779D-04,
587 + .152008D-04, .110710D-04, .811684D-05, .597438D-05,
588 + .433500D-05, .307882D-05, .209756D-05, .135090D-05,
589 + .797164D-06, .414237D-06, .174130D-06, .478270D-07,
590 + .382103D-08, .000000D+00, .677442D+06, .515764D+06,
591 + .386348D+06, .289193D+06, .216332D+06, .161695D+06,
592 + .120774D+06, .901293D+05, .672101D+05, .500714D+05,
593 + .372728D+05, .277172D+05, .205931D+05, .152832D+05,
594 + .113314D+05, .839140D+04, .620762D+04, .458615D+04,
595 + .338430D+04, .249387D+04, .183543D+04, .134877D+04,
596 + .989787D+03, .725153D+03, .530482D+03, .387390D+03 /
597 DATA (UPDI(I),I=2029,2080) /
598 + .282539D+03, .204754D+03, .148831D+03, .107989D+03,
599 + .782429D+02, .565998D+02, .408912D+02, .295353D+02,
600 + .213038D+02, .153607D+02, .110805D+02, .799807D+01,
601 + .578290D+01, .418896D+01, .304485D+01, .222018D+01,
602 + .162547D+01, .119503D+01, .882799D+00, .654850D+00,
603 + .488515D+00, .364969D+00, .274172D+00, .205987D+00,
604 + .155182D+00, .116931D+00, .880988D-01, .662695D-01,
605 + .497448D-01, .372023D-01, .277085D-01, .205286D-01,
606 + .151274D-01, .110705D-01, .804716D-02, .580241D-02,
607 + .414991D-02, .294630D-02, .206863D-02, .143758D-02,
608 + .990141D-03, .675470D-03, .457442D-03, .307512D-03,
609 + .206124D-03, .137899D-03, .926502D-04, .627546D-04,
610 + .433128D-04, .303915D-04, .218339D-04, .159658D-04 /
611 DATA (UPDI(I),I=2081,2132) /
612 + .118611D-04, .884211D-05, .657937D-05, .480859D-05,
613 + .341986D-05, .232597D-05, .148816D-05, .868972D-06,
614 + .444089D-06, .182103D-06, .484923D-07, .392652D-08,
615 + .000000D+00, .901840D+06, .684098D+06, .510248D+06,
616 + .380291D+06, .283241D+06, .210778D+06, .156738D+06,
617 + .116446D+06, .864427D+05, .641071D+05, .475016D+05,
618 + .351602D+05, .260007D+05, .192054D+05, .141715D+05,
619 + .104441D+05, .768851D+04, .565234D+04, .415036D+04,
620 + .304306D+04, .222826D+04, .162905D+04, .118927D+04,
621 + .866742D+03, .630700D+03, .458101D+03, .332295D+03,
622 + .239473D+03, .173102D+03, .124896D+03, .899797D+02,
623 + .647183D+02, .464857D+02, .333812D+02, .239359D+02,
624 + .171564D+02, .123019D+02, .882654D+01, .634337D+01 /
625 DATA (UPDI(I),I=2133,2184) /
626 + .456716D+01, .329945D+01, .239103D+01, .173965D+01,
627 + .127094D+01, .932849D+00, .687473D+00, .509451D+00,
628 + .378042D+00, .282034D+00, .210416D+00, .157398D+00,
629 + .117762D+00, .880899D-01, .657908D-01, .490325D-01,
630 + .364111D-01, .269298D-01, .198155D-01, .145034D-01,
631 + .105447D-01, .761628D-02, .545859D-02, .388136D-02,
632 + .274072D-02, .191471D-02, .132496D-02, .909417D-03,
633 + .618984D-03, .418803D-03, .281843D-03, .189551D-03,
634 + .127622D-03, .865716D-04, .594163D-04, .416562D-04,
635 + .297427D-04, .217252D-04, .161251D-04, .121119D-04,
636 + .909791D-05, .678861D-05, .496014D-05, .351140D-05,
637 + .237121D-05, .150063D-05, .863851D-06, .432994D-06,
638 + .172911D-06, .446337D-07, .366178D-08, .000000D+00 /
639 DATA (UPDI(I),I=2185,2236) /
640 + .117549D+07, .888494D+06, .659917D+06, .489763D+06,
641 + .363218D+06, .269131D+06, .199260D+06, .147389D+06,
642 + .108929D+06, .804224D+05, .593219D+05, .437097D+05,
643 + .321743D+05, .236553D+05, .173732D+05, .127431D+05,
644 + .933600D+04, .683038D+04, .499086D+04, .364127D+04,
645 + .265298D+04, .192979D+04, .140163D+04, .101625D+04,
646 + .735632D+03, .531489D+03, .383466D+03, .274838D+03,
647 + .197580D+03, .141773D+03, .101568D+03, .726420D+02,
648 + .518798D+02, .370415D+02, .264063D+02, .188168D+02,
649 + .134130D+02, .956690D+01, .683448D+01, .489135D+01,
650 + .351231D+01, .252981D+01, .182928D+01, .132811D+01,
651 + .968632D+00, .709252D+00, .522156D+00, .384891D+00,
652 + .285200D+00, .211320D+00, .156980D+00, .116636D+00 /
653 DATA (UPDI(I),I=2237,2288) /
654 + .866396D-01, .642585D-01, .475578D-01, .350744D-01,
655 + .257657D-01, .188337D-01, .136952D-01, .989470D-02,
656 + .710328D-02, .506160D-02, .357930D-02, .251459D-02,
657 + .174864D-02, .120539D-02, .824877D-03, .560444D-03,
658 + .379059D-03, .255511D-03, .172497D-03, .116907D-03,
659 + .800459D-04, .556009D-04, .395057D-04, .285985D-04,
660 + .211412D-04, .158428D-04, .119685D-04, .901302D-05,
661 + .671534D-05, .488660D-05, .343334D-05, .229595D-05,
662 + .143432D-05, .812578D-06, .398976D-06, .155076D-06,
663 + .388269D-07, .322688D-08, .000000D+00, .150491D+07,
664 + .113351D+07, .838428D+06, .619664D+06, .457630D+06,
665 + .337654D+06, .248926D+06, .183333D+06, .134904D+06,
666 + .991637D+05, .728217D+05, .534167D+05, .391418D+05 /
667 DATA (UPDI(I),I=2289,2340) /
668 + .286467D+05, .209420D+05, .152893D+05, .111487D+05,
669 + .811783D+04, .590306D+04, .428591D+04, .310732D+04,
670 + .224906D+04, .162532D+04, .117245D+04, .844348D+03,
671 + .606858D+03, .435540D+03, .310478D+03, .222001D+03,
672 + .158433D+03, .112880D+03, .802853D+02, .570169D+02,
673 + .404801D+02, .286926D+02, .203285D+02, .144065D+02,
674 + .102157D+02, .725508D+01, .516173D+01, .368434D+01,
675 + .263778D+01, .189574D+01, .136790D+01, .991407D+00,
676 + .721319D+00, .527621D+00, .386371D+00, .284394D+00,
677 + .209307D+00, .154431D+00, .113966D+00, .840802D-01,
678 + .619386D-01, .455314D-01, .333569D-01, .243436D-01,
679 + .176805D-01, .127760D-01, .917497D-02, .654822D-02,
680 + .464046D-02, .326442D-02, .228248D-02, .158050D-02 /
681 DATA (UPDI(I),I=2341,2392) /
682 + .108574D-02, .741113D-03, .502887D-03, .340189D-03,
683 + .229801D-03, .155797D-03, .106300D-03, .734425D-04,
684 + .515725D-04, .370631D-04, .271236D-04, .202236D-04,
685 + .152446D-04, .115431D-04, .868714D-05, .644643D-05,
686 + .466138D-05, .324502D-05, .214574D-05, .132175D-05,
687 + .736213D-06, .353864D-06, .133860D-06, .325373D-07,
688 + .273898D-08, .000000D+00, .189667D+07, .142370D+07,
689 + .104881D+07, .771995D+06, .567780D+06, .417188D+06,
690 + .306271D+06, .224614D+06, .164574D+06, .120451D+06,
691 + .880689D+05, .643171D+05, .469197D+05, .341851D+05,
692 + .248775D+05, .180794D+05, .131222D+05, .951014D+04,
693 + .688282D+04, .497340D+04, .358834D+04, .258454D+04,
694 + .185854D+04, .133400D+04, .955830D+03, .683461D+03 /
695 DATA (UPDI(I),I=2393,2444) /
696 + .487978D+03, .346015D+03, .246104D+03, .174697D+03,
697 + .123794D+03, .875689D+02, .618464D+02, .436654D+02,
698 + .307763D+02, .216815D+02, .152774D+02, .107711D+02,
699 + .760523D+01, .537933D+01, .381706D+01, .271658D+01,
700 + .194064D+01, .139179D+01, .100250D+01, .724821D+00,
701 + .526822D+00, .383299D+00, .280291D+00, .204929D+00,
702 + .150199D+00, .110110D+00, .806967D-01, .590546D-01,
703 + .431266D-01, .313914D-01, .227639D-01, .164311D-01,
704 + .118015D-01, .842593D-02, .598009D-02, .421569D-02,
705 + .295102D-02, .205419D-02, .141691D-02, .970393D-03,
706 + .660988D-03, .448155D-03, .303370D-03, .205462D-03,
707 + .139932D-03, .961237D-04, .669863D-04, .475015D-04,
708 + .344674D-04, .254385D-04, .190797D-04, .144277D-04 /
709 DATA (UPDI(I),I=2445,2496) /
710 + .109233D-04, .819776D-05, .604855D-05, .433985D-05,
711 + .299027D-05, .195333D-05, .118559D-05, .648882D-06,
712 + .305205D-06, .112378D-06, .265455D-07, .226305D-08,
713 + .000000D+00, .235725D+07, .176350D+07, .129396D+07,
714 + .948635D+06, .694873D+06, .508490D+06, .371760D+06,
715 + .271510D+06, .198099D+06, .144374D+06, .105108D+06,
716 + .764295D+05, .555122D+05, .402672D+05, .291729D+05,
717 + .211057D+05, .152489D+05, .110007D+05, .792459D+04,
718 + .569929D+04, .409253D+04, .293355D+04, .209927D+04,
719 + .149938D+04, .106899D+04, .760525D+03, .540235D+03,
720 + .381074D+03, .269630D+03, .190394D+03, .134201D+03,
721 + .944216D+02, .663244D+02, .465716D+02, .326431D+02,
722 + .228686D+02, .160232D+02, .112331D+02, .788613D+01 /
723 DATA (UPDI(I),I=2497,2548) /
724 + .554598D+01, .391246D+01, .276817D+01, .196577D+01,
725 + .140137D+01, .100325D+01, .720890D+00, .520699D+00,
726 + .376442D+00, .273516D+00, .198684D+00, .144680D+00,
727 + .105378D+00, .767295D-01, .557911D-01, .404837D-01,
728 + .292833D-01, .211047D-01, .151424D-01, .108125D-01,
729 + .767681D-02, .541933D-02, .380136D-02, .264863D-02,
730 + .183608D-02, .126199D-02, .861982D-03, .586160D-03,
731 + .397277D-03, .269235D-03, .182889D-03, .125159D-03,
732 + .865547D-04, .608090D-04, .434973D-04, .318153D-04,
733 + .236323D-04, .177921D-04, .134684D-04, .101775D-04,
734 + .760499D-05, .557258D-05, .396349D-05, .270105D-05,
735 + .174192D-05, .104128D-05, .559770D-06, .257597D-06,
736 + .923464D-07, .212207D-07, .183188D-08, .000000D+00 /
737 DATA (UPDI(I),I=2549,2600) /
738 + .889481D+05, .526114D+05, .402316D+05, .307651D+05,
739 + .235262D+05, .179908D+05, .137580D+05, .105213D+05,
740 + .804616D+04, .615347D+04, .470614D+04, .359936D+04,
741 + .275300D+04, .210577D+04, .161082D+04, .123232D+04,
742 + .942848D+03, .721471D+03, .552160D+03, .422667D+03,
743 + .323620D+03, .247858D+03, .189901D+03, .145561D+03,
744 + .111635D+03, .856726D+02, .658008D+02, .503993D+02,
745 + .387971D+02, .299076D+02, .230934D+02, .178669D+02,
746 + .138553D+02, .107815D+02, .841076D+01, .658532D+01,
747 + .517706D+01, .408802D+01, .324336D+01, .258561D+01,
748 + .207198D+01, .166828D+01, .134939D+01, .109600D+01,
749 + .893432D+00, .730497D+00, .599104D+00, .491512D+00,
750 + .404050D+00, .331772D+00, .272440D+00, .223415D+00 /
751 DATA (UPDI(I),I=2601,2652) /
752 + .182843D+00, .149241D+00, .121414D+00, .983935D-01,
753 + .793829D-01, .637244D-01, .508699D-01, .403595D-01,
754 + .318059D-01, .248816D-01, .193096D-01, .148735D-01,
755 + .113308D-01, .854347D-02, .636988D-02, .469141D-02,
756 + .340915D-02, .244114D-02, .171987D-02, .119020D-02,
757 + .807216D-03, .535049D-03, .347108D-03, .218308D-03,
758 + .132991D-03, .780970D-04, .439464D-04, .235202D-04,
759 + .118582D-04, .556891D-05, .238198D-05, .912564D-06,
760 + .301294D-06, .811985D-07, .163082D-07, .205790D-08,
761 + .111205D-09, .755118D-12, .000000D+00, .896413D+05,
762 + .696290D+05, .533943D+05, .409375D+05, .313865D+05,
763 + .240591D+05, .184418D+05, .141330D+05, .108305D+05,
764 + .829778D+04, .635697D+04, .486893D+04, .372894D+04 /
765 DATA (UPDI(I),I=2653,2704) /
766 + .285514D+04, .218593D+04, .167314D+04, .128055D+04,
767 + .979826D+03, .749677D+03, .573453D+03, .438647D+03,
768 + .335471D+03, .256575D+03, .196216D+03, .150079D+03,
769 + .114800D+03, .878512D+02, .669938D+02, .513213D+02,
770 + .393406D+02, .301904D+02, .231956D+02, .178514D+02,
771 + .137749D+02, .106495D+02, .825670D+01, .642438D+01,
772 + .501740D+01, .393586D+01, .310094D+01, .245584D+01,
773 + .195396D+01, .156214D+01, .125432D+01, .101135D+01,
774 + .818177D+00, .664385D+00, .539833D+00, .439847D+00,
775 + .358060D+00, .291649D+00, .237284D+00, .192732D+00,
776 + .156147D+00, .126119D+00, .101467D+00, .812730D-01,
777 + .647638D-01, .513222D-01, .404125D-01, .316070D-01,
778 + .245345D-01, .188896D-01, .144334D-01, .109048D-01 /
779 DATA (UPDI(I),I=2705,2756) /
780 + .815139D-02, .602387D-02, .439561D-02, .316381D-02,
781 + .224244D-02, .156289D-02, .106852D-02, .715024D-03,
782 + .466185D-03, .296333D-03, .181267D-03, .106123D-03,
783 + .585403D-04, .295931D-04, .128683D-04, .384236D-05,
784 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
785 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
786 + .000000D+00, .000000D+00, .120393D+06, .935206D+05,
787 + .717146D+05, .549749D+05, .421385D+05, .322879D+05,
788 + .247369D+05, .189447D+05, .145065D+05, .111036D+05,
789 + .849739D+04, .650012D+04, .497129D+04, .380031D+04,
790 + .290451D+04, .221881D+04, .169459D+04, .129358D+04,
791 + .987228D+03, .753057D+03, .574308D+03, .437785D+03,
792 + .333654D+03, .254188D+03, .193626D+03, .147454D+03 /
793 DATA (UPDI(I),I=2757,2808) /
794 + .112312D+03, .852049D+02, .649168D+02, .494692D+02,
795 + .377258D+02, .287901D+02, .219986D+02, .168456D+02,
796 + .129188D+02, .993070D+01, .765829D+01, .592543D+01,
797 + .460379D+01, .359156D+01, .281631D+01, .221847D+01,
798 + .175615D+01, .139639D+01, .111529D+01, .893963D+00,
799 + .719551D+00, .579630D+00, .468442D+00, .378308D+00,
800 + .305796D+00, .246941D+00, .199127D+00, .160179D+00,
801 + .128472D+00, .102638D+00, .816402D-01, .646015D-01,
802 + .508371D-01, .397482D-01, .308684D-01, .237909D-01,
803 + .181862D-01, .137972D-01, .103497D-01, .768107D-02,
804 + .563657D-02, .408493D-02, .292144D-02, .205850D-02,
805 + .142773D-02, .972677D-03, .650092D-03, .424689D-03,
806 + .271947D-03, .168994D-03, .102014D-03, .594741D-04 /
807 DATA (UPDI(I),I=2809,2860) /
808 + .333805D-04, .178795D-04, .909273D-05, .432092D-05,
809 + .189433D-05, .735630D-06, .238372D-06, .496738D-07,
810 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
811 + .000000D+00, .161646D+06, .125380D+06, .959782D+05,
812 + .734396D+05, .561832D+05, .429618D+05, .328445D+05,
813 + .250975D+05, .191730D+05, .146394D+05, .111746D+05,
814 + .852519D+04, .650189D+04, .495588D+04, .377620D+04,
815 + .287555D+04, .218892D+04, .166517D+04, .126626D+04,
816 + .962277D+03, .731004D+03, .554956D+03, .421156D+03,
817 + .319420D+03, .242184D+03, .183533D+03, .139085D+03,
818 + .104946D+03, .795107D+02, .602344D+02, .456533D+02,
819 + .346150D+02, .262705D+02, .199747D+02, .152054D+02,
820 + .115984D+02, .887309D+01, .680872D+01, .524540D+01 /
821 DATA (UPDI(I),I=2861,2912) /
822 + .405678D+01, .315347D+01, .246233D+01, .193222D+01,
823 + .152314D+01, .120625D+01, .958863D+00, .765600D+00,
824 + .611857D+00, .490744D+00, .393365D+00, .315669D+00,
825 + .253105D+00, .202681D+00, .161921D+00, .128991D+00,
826 + .102360D+00, .808731D-01, .635657D-01, .496881D-01,
827 + .385893D-01, .297681D-01, .227892D-01, .173038D-01,
828 + .130403D-01, .971687D-02, .716368D-02, .522293D-02,
829 + .376142D-02, .267426D-02, .187418D-02, .129400D-02,
830 + .878610D-03, .586379D-03, .383548D-03, .246950D-03,
831 + .155296D-03, .958351D-04, .579792D-04, .345782D-04,
832 + .203713D-04, .120084D-04, .710568D-05, .426994D-05,
833 + .258237D-05, .155553D-05, .897458D-06, .474111D-06,
834 + .211115D-06, .639063D-07, .491315D-08, .000000D+00 /
835 DATA (UPDI(I),I=2913,2964) /
836 + .178323D+06, .166510D+06, .127117D+06, .969964D+05,
837 + .739929D+05, .564149D+05, .429999D+05, .327564D+05,
838 + .249449D+05, .189848D+05, .144434D+05, .109815D+05,
839 + .834593D+04, .633867D+04, .481208D+04, .365055D+04,
840 + .276811D+04, .209740D+04, .158844D+04, .120205D+04,
841 + .909210D+03, .687179D+03, .519116D+03, .391860D+03,
842 + .295663D+03, .222933D+03, .168069D+03, .126126D+03,
843 + .950266D+02, .715739D+02, .539240D+02, .406327D+02,
844 + .306394D+02, .231418D+02, .174949D+02, .132499D+02,
845 + .100623D+02, .766317D+01, .585832D+01, .449542D+01,
846 + .346691D+01, .268564D+01, .209079D+01, .163520D+01,
847 + .128496D+01, .101362D+01, .803284D+00, .637239D+00,
848 + .507444D+00, .403874D+00, .321861D+00, .256314D+00 /
849 DATA (UPDI(I),I=2965,3016) /
850 + .203876D+00, .161798D+00, .128049D+00, .100951D+00,
851 + .792434D-01, .618830D-01, .480621D-01, .370871D-01,
852 + .284267D-01, .216238D-01, .163147D-01, .122176D-01,
853 + .904681D-02, .662840D-02, .480353D-02, .343926D-02,
854 + .243188D-02, .169584D-02, .116595D-02, .789205D-03,
855 + .525962D-03, .344352D-03, .222694D-03, .141391D-03,
856 + .887460D-04, .551510D-04, .342224D-04, .212862D-04,
857 + .134317D-04, .858075D-05, .555645D-05, .358129D-05,
858 + .225513D-05, .133454D-05, .710051D-06, .312901D-06,
859 + .921321D-07, .717919D-08, .000000D+00, .300831D+06,
860 + .231994D+06, .176405D+06, .134066D+06, .101851D+06,
861 + .773328D+05, .586932D+05, .445191D+05, .337532D+05,
862 + .255742D+05, .193680D+05, .146577D+05, .110873D+05 /
863 DATA (UPDI(I),I=3017,3068) /
864 + .838046D+04, .633098D+04, .477899D+04, .360535D+04,
865 + .271770D+04, .204732D+04, .154099D+04, .115916D+04,
866 + .871177D+03, .654323D+03, .491022D+03, .368245D+03,
867 + .275946D+03, .206717D+03, .154107D+03, .115329D+03,
868 + .862692D+02, .645342D+02, .482738D+02, .361271D+02,
869 + .270768D+02, .203068D+02, .152543D+02, .114875D+02,
870 + .867401D+01, .657336D+01, .499973D+01, .382153D+01,
871 + .293394D+01, .226365D+01, .175467D+01, .136666D+01,
872 + .106866D+01, .839627D+00, .660401D+00, .521503D+00,
873 + .411639D+00, .325385D+00, .257050D+00, .202844D+00,
874 + .159722D+00, .125427D+00, .981242D-01, .764353D-01,
875 + .592369D-01, .456582D-01, .349662D-01, .265986D-01,
876 + .200809D-01, .150354D-01, .111738D-01, .820958D-02 /
877 DATA (UPDI(I),I=3069,3120) /
878 + .596740D-02, .428935D-02, .304525D-02, .213413D-02,
879 + .147398D-02, .100270D-02, .670496D-03, .440431D-03,
880 + .283225D-03, .179013D-03, .110218D-03, .663227D-04,
881 + .388704D-04, .222366D-04, .123840D-04, .676633D-05,
882 + .362477D-05, .193433D-05, .102443D-05, .544701D-06,
883 + .282882D-06, .140020D-06, .607704D-07, .185989D-07,
884 + .139544D-08, .000000D+00, .412883D+06, .317214D+06,
885 + .240160D+06, .181721D+06, .137442D+06, .103887D+06,
886 + .784877D+05, .592590D+05, .447183D+05, .337219D+05,
887 + .254156D+05, .191410D+05, .144069D+05, .108351D+05,
888 + .814371D+04, .611569D+04, .458959D+04, .344124D+04,
889 + .257837D+04, .193006D+04, .144371D+04, .107888D+04,
890 + .805630D+03, .601008D+03, .448017D+03, .333663D+03 /
891 DATA (UPDI(I),I=3121,3172) /
892 + .248389D+03, .183973D+03, .136778D+03, .101630D+03,
893 + .755035D+02, .560837D+02, .416699D+02, .310023D+02,
894 + .230756D+02, .172012D+02, .128519D+02, .962691D+01,
895 + .723629D+01, .545886D+01, .413791D+01, .315043D+01,
896 + .241038D+01, .185286D+01, .143115D+01, .110987D+01,
897 + .864876D+00, .674729D+00, .528545D+00, .413873D+00,
898 + .324573D+00, .254412D+00, .199211D+00, .155664D+00,
899 + .121311D+00, .941899D-01, .728211D-01, .560171D-01,
900 + .428573D-01, .325808D-01, .246035D-01, .184407D-01,
901 + .137080D-01, .101151D-01, .737917D-02, .532655D-02,
902 + .380271D-02, .268209D-02, .186793D-02, .128276D-02,
903 + .868266D-03, .578351D-03, .379025D-03, .243798D-03,
904 + .154704D-03, .961804D-04, .589273D-04, .356064D-04 /
905 DATA (UPDI(I),I=3173,3224) /
906 + .213660D-04, .127783D-04, .770648D-05, .469201D-05,
907 + .289665D-05, .178576D-05, .108175D-05, .618755D-06,
908 + .319556D-06, .136203D-06, .384894D-07, .302756D-08,
909 + .000000D+00, .556292D+06, .425757D+06, .320901D+06,
910 + .241724D+06, .181993D+06, .136931D+06, .102971D+06,
911 + .773787D+05, .581138D+05, .436127D+05, .327098D+05,
912 + .245131D+05, .183582D+05, .137371D+05, .102719D+05,
913 + .767393D+04, .572871D+04, .427248D+04, .318388D+04,
914 + .237027D+04, .176312D+04, .131014D+04, .972701D+03,
915 + .721414D+03, .534580D+03, .395724D+03, .292778D+03,
916 + .215473D+03, .159174D+03, .117502D+03, .867150D+02,
917 + .639757D+02, .472044D+02, .348731D+02, .257699D+02,
918 + .190690D+02, .141411D+02, .105126D+02, .784135D+01 /
919 DATA (UPDI(I),I=3225,3276) /
920 + .586948D+01, .441436D+01, .333450D+01, .253104D+01,
921 + .193025D+01, .147914D+01, .113804D+01, .879883D+00,
922 + .681064D+00, .529373D+00, .411319D+00, .320100D+00,
923 + .249004D+00, .193508D+00, .150080D+00, .116092D+00,
924 + .894748D-01, .686707D-01, .524428D-01, .398345D-01,
925 + .300676D-01, .225455D-01, .167806D-01, .123876D-01,
926 + .907857D-02, .657827D-02, .471712D-02, .334606D-02,
927 + .234557D-02, .162419D-02, .110961D-02, .747792D-03,
928 + .496537D-03, .324941D-03, .209271D-03, .133458D-03,
929 + .838479D-04, .522986D-04, .324931D-04, .202794D-04,
930 + .127688D-04, .817744D-05, .530410D-05, .346447D-05,
931 + .223446D-05, .139243D-05, .807412D-06, .416106D-06,
932 + .174346D-06, .478381D-07, .382113D-08, .000000D+00 /
933 DATA (UPDI(I),I=3277,3328) /
934 + .736658D+06, .561642D+06, .421429D+06, .316020D+06,
935 + .236847D+06, .177383D+06, .132770D+06, .993033D+05,
936 + .742254D+05, .554366D+05, .413757D+05, .308551D+05,
937 + .229929D+05, .171187D+05, .127354D+05, .946534D+04,
938 + .702914D+04, .521468D+04, .386520D+04, .286190D+04,
939 + .211710D+04, .156440D+04, .115490D+04, .851628D+03,
940 + .627389D+03, .461667D+03, .339507D+03, .248312D+03,
941 + .182289D+03, .133714D+03, .980414D+02, .718574D+02,
942 + .526650D+02, .386434D+02, .283580D+02, .208367D+02,
943 + .153416D+02, .113225D+02, .838358D+01, .622897D+01,
944 + .464975D+01, .348594D+01, .262600D+01, .198752D+01,
945 + .151147D+01, .115409D+01, .885554D+00, .680264D+00,
946 + .524775D+00, .404684D+00, .312588D+00, .241364D+00 /
947 DATA (UPDI(I),I=3329,3380) /
948 + .186191D+00, .143353D+00, .110085D+00, .842365D-01,
949 + .641903D-01, .486762D-01, .367150D-01, .275218D-01,
950 + .204956D-01, .151523D-01, .111109D-01, .808960D-02,
951 + .582381D-02, .414992D-02, .292593D-02, .203934D-02,
952 + .140468D-02, .955201D-03, .641320D-03, .424806D-03,
953 + .277839D-03, .179326D-03, .115033D-03, .730705D-04,
954 + .463694D-04, .295296D-04, .190211D-04, .124259D-04,
955 + .825978D-05, .554004D-05, .370763D-05, .242688D-05,
956 + .151837D-05, .876320D-06, .445409D-06, .182254D-06,
957 + .485000D-07, .392659D-08, .000000D+00, .959983D+06,
958 + .729144D+06, .544694D+06, .406632D+06, .303383D+06,
959 + .226181D+06, .168516D+06, .125453D+06, .933307D+05,
960 + .693748D+05, .515300D+05, .382410D+05, .283569D+05 /
961 DATA (UPDI(I),I=3381,3432) /
962 + .210075D+05, .155498D+05, .114984D+05, .849499D+04,
963 + .626933D+04, .462241D+04, .340428D+04, .250470D+04,
964 + .184066D+04, .135129D+04, .990820D+03, .725752D+03,
965 + .530938D+03, .388143D+03, .282160D+03, .205876D+03,
966 + .150083D+03, .109352D+03, .796363D+02, .579873D+02,
967 + .422692D+02, .308111D+02, .224856D+02, .164416D+02,
968 + .120499D+02, .885930D+01, .653566D+01, .484369D+01,
969 + .360513D+01, .269605D+01, .202567D+01, .152920D+01,
970 + .115906D+01, .882853D+00, .673202D+00, .515529D+00,
971 + .394645D+00, .302617D+00, .231979D+00, .177667D+00,
972 + .135816D+00, .103559D+00, .786880D-01, .595459D-01,
973 + .448446D-01, .335950D-01, .250142D-01, .185048D-01,
974 + .135913D-01, .990213D-02, .716406D-02, .512559D-02 /
975 DATA (UPDI(I),I=3433,3484) /
976 + .363057D-02, .254515D-02, .176448D-02, .120946D-02,
977 + .819064D-03, .548189D-03, .362493D-03, .237145D-03,
978 + .153528D-03, .991373D-04, .636885D-04, .410853D-04,
979 + .267389D-04, .176656D-04, .118519D-04, .806718D-05,
980 + .551083D-05, .372559D-05, .244540D-05, .152255D-05,
981 + .869108D-06, .433925D-06, .173015D-06, .446390D-07,
982 + .366183D-08, .000000D+00, .123258D+07, .932723D+06,
983 + .693738D+06, .515625D+06, .382995D+06, .284254D+06,
984 + .210825D+06, .156233D+06, .115691D+06, .855943D+05,
985 + .632769D+05, .467344D+05, .344875D+05, .254245D+05,
986 + .187263D+05, .137781D+05, .101277D+05, .743601D+04,
987 + .545419D+04, .399579D+04, .292427D+04, .213743D+04,
988 + .156059D+04, .113796D+04, .828851D+03, .602903D+03 /
989 DATA (UPDI(I),I=3485,3536) /
990 + .438206D+03, .316661D+03, .229677D+03, .166425D+03,
991 + .120516D+03, .872221D+02, .631101D+02, .457101D+02,
992 + .331029D+02, .239995D+02, .174316D+02, .126896D+02,
993 + .926611D+01, .678887D+01, .499650D+01, .369293D+01,
994 + .274231D+01, .204589D+01, .153350D+01, .115404D+01,
995 + .872776D+00, .660755D+00, .502391D+00, .381842D+00,
996 + .290721D+00, .221289D+00, .168291D+00, .127754D+00,
997 + .967383D-01, .730026D-01, .548695D-01, .410464D-01,
998 + .305460D-01, .225957D-01, .166081D-01, .121213D-01,
999 + .877612D-02, .631085D-02, .448835D-02, .316112D-02,
1000 + .220410D-02, .152044D-02, .103758D-02, .700119D-03,
1001 + .467386D-03, .308745D-03, .202194D-03, .131404D-03,
1002 + .854671D-04, .555339D-04, .363809D-04, .241279D-04 /
1003 DATA (UPDI(I),I=3537,3588) /
1004 + .162656D-04, .111241D-04, .768572D-05, .530016D-05,
1005 + .359235D-05, .235036D-05, .145018D-05, .816329D-06,
1006 + .399630D-06, .155148D-06, .388305D-07, .322692D-08,
1007 + .000000D+00, .156096D+07, .117694D+07, .871634D+06,
1008 + .645057D+06, .477047D+06, .352502D+06, .260280D+06,
1009 + .192016D+06, .141544D+06, .104241D+06, .767046D+05,
1010 + .563862D+05, .414127D+05, .303835D+05, .222703D+05,
1011 + .163053D+05, .119258D+05, .871227D+04, .635781D+04,
1012 + .463383D+04, .337353D+04, .245279D+04, .178126D+04,
1013 + .129183D+04, .935756D+03, .676863D+03, .489181D+03,
1014 + .351445D+03, .253426D+03, .182554D+03, .131406D+03,
1015 + .945288D+02, .679768D+02, .489299D+02, .352111D+02,
1016 + .253652D+02, .183045D+02, .132381D+02, .960294D+01 /
1017 DATA (UPDI(I),I=3589,3640) /
1018 + .698888D+01, .510919D+01, .375069D+01, .276622D+01,
1019 + .204959D+01, .152568D+01, .114019D+01, .856327D+00,
1020 + .643777D+00, .486077D+00, .366867D+00, .277383D+00,
1021 + .209682D+00, .158371D+00, .119405D+00, .898060D-01,
1022 + .673184D-01, .502628D-01, .373550D-01, .276196D-01,
1023 + .203013D-01, .148284D-01, .107561D-01, .774077D-02,
1024 + .553374D-02, .391326D-02, .274114D-02, .190155D-02,
1025 + .130568D-02, .887456D-03, .596944D-03, .397724D-03,
1026 + .262634D-03, .172304D-03, .112487D-03, .737269D-04,
1027 + .484455D-04, .321909D-04, .216961D-04, .148598D-04,
1028 + .103014D-04, .718104D-05, .497114D-05, .336277D-05,
1029 + .218553D-05, .133320D-05, .738883D-06, .354323D-06,
1030 + .133910D-06, .325398D-07, .273901D-08, .000000D+00 /
1031 DATA (UPDI(I),I=3641,3692) /
1032 + .195170D+07, .146633D+07, .108141D+07, .796925D+06,
1033 + .586844D+06, .431766D+06, .317418D+06, .233138D+06,
1034 + .171092D+06, .125436D+06, .918809D+05, .672323D+05,
1035 + .491490D+05, .358901D+05, .261814D+05, .190766D+05,
1036 + .138849D+05, .100936D+05, .732910D+04, .531481D+04,
1037 + .384954D+04, .278440D+04, .201149D+04, .145106D+04,
1038 + .104545D+04, .752072D+03, .540531D+03, .386132D+03,
1039 + .276860D+03, .198289D+03, .141902D+03, .101477D+03,
1040 + .725368D+02, .518970D+02, .371171D+02, .265724D+02,
1041 + .190553D+02, .136939D+02, .986992D+01, .713681D+01,
1042 + .518331D+01, .378010D+01, .276943D+01, .203829D+01,
1043 + .150707D+01, .111868D+01, .834490D+00, .623084D+00,
1044 + .467256D+00, .350259D+00, .263031D+00, .197494D+00 /
1045 DATA (UPDI(I),I=3693,3744) /
1046 + .148165D+00, .110968D+00, .829091D-01, .617428D-01,
1047 + .458022D-01, .338231D-01, .248509D-01, .181533D-01,
1048 + .131789D-01, .950272D-02, .679883D-02, .483291D-02,
1049 + .339898D-02, .236861D-02, .163525D-02, .111803D-02,
1050 + .757181D-03, .507967D-03, .337966D-03, .223237D-03,
1051 + .146817D-03, .963385D-04, .636460D-04, .422768D-04,
1052 + .284547D-04, .194393D-04, .134770D-04, .942899D-05,
1053 + .660328D-05, .457130D-05, .307725D-05, .198237D-05,
1054 + .119383D-05, .650778D-06, .305526D-06, .112413D-06,
1055 + .265472D-07, .226307D-08, .000000D+00, .241127D+07,
1056 + .180536D+07, .132597D+07, .973111D+06, .713588D+06,
1057 + .522802D+06, .382704D+06, .279879D+06, .204498D+06,
1058 + .149268D+06, .108851D+06, .792912D+05, .577006D+05 /
1059 DATA (UPDI(I),I=3745,3796) /
1060 + .419408D+05, .304528D+05, .220845D+05, .159975D+05,
1061 + .115733D+05, .836252D+04, .603427D+04, .434878D+04,
1062 + .312959D+04, .224926D+04, .161416D+04, .115683D+04,
1063 + .827753D+03, .591709D+03, .420347D+03, .299722D+03,
1064 + .213461D+03, .151890D+03, .107996D+03, .767462D+02,
1065 + .545856D+02, .388067D+02, .276144D+02, .196815D+02,
1066 + .140567D+02, .100683D+02, .723454D+01, .522096D+01,
1067 + .378320D+01, .275381D+01, .201362D+01, .147907D+01,
1068 + .109065D+01, .808212D+00, .599443D+00, .446541D+00,
1069 + .332501D+00, .248040D+00, .185011D+00, .137890D+00,
1070 + .102600D+00, .761622D-01, .563563D-01, .415427D-01,
1071 + .304868D-01, .222621D-01, .161642D-01, .116653D-01,
1072 + .836276D-02, .594938D-02, .420602D-02, .294258D-02 /
1073 DATA (UPDI(I),I=3797,3848) /
1074 + .204048D-02, .140238D-02, .955041D-03, .644733D-03,
1075 + .431590D-03, .286904D-03, .189679D-03, .125127D-03,
1076 + .825618D-04, .549831D-04, .368987D-04, .251189D-04,
1077 + .173520D-04, .121389D-04, .854179D-05, .599045D-05,
1078 + .413598D-05, .276513D-05, .176306D-05, .104721D-05,
1079 + .561113D-06, .257821D-06, .923702D-07, .212218D-07,
1080 + .183189D-08, .000000D+00, .733714D+05, .105255D+06,
1081 + .804893D+05, .615512D+05, .470695D+05, .359956D+05,
1082 + .275275D+05, .210520D+05, .161002D+05, .123135D+05,
1083 + .941781D+04, .720341D+04, .550999D+04, .421497D+04,
1084 + .322459D+04, .246717D+04, .188790D+04, .144487D+04,
1085 + .110600D+04, .846812D+03, .648543D+03, .496867D+03,
1086 + .380824D+03, .292031D+03, .224080D+03, .172070D+03 /
1087 DATA (UPDI(I),I=3849,3900) /
1088 + .132252D+03, .101384D+03, .781233D+02, .602956D+02,
1089 + .466250D+02, .361355D+02, .280808D+02, .219060D+02,
1090 + .171412D+02, .134702D+02, .106364D+02, .844336D+01,
1091 + .674092D+01, .541371D+01, .437576D+01, .355826D+01,
1092 + .291067D+01, .239411D+01, .197898D+01, .164281D+01,
1093 + .136939D+01, .114313D+01, .956896D+00, .800749D+00,
1094 + .670456D+00, .560839D+00, .468337D+00, .390122D+00,
1095 + .323930D+00, .267925D+00, .220600D+00, .180699D+00,
1096 + .147163D+00, .119090D+00, .957006D-01, .763203D-01,
1097 + .603613D-01, .473645D-01, .367503D-01, .282134D-01,
1098 + .214106D-01, .160449D-01, .118598D-01, .863534D-02,
1099 + .618449D-02, .434923D-02, .299670D-02, .201739D-02,
1100 + .132869D-02, .848235D-03, .524366D-03, .312387D-03 /
1101 DATA (UPDI(I),I=3901,3952) /
1102 + .178285D-03, .967508D-04, .494479D-04, .235342D-04,
1103 + .101999D-04, .395847D-05, .132364D-05, .361202D-06,
1104 + .734415D-07, .938010D-08, .512944D-09, .352406D-11,
1105 + .000000D+00, .156462D+06, .121401D+06, .929849D+05,
1106 + .712139D+05, .545397D+05, .417658D+05, .319831D+05,
1107 + .244894D+05, .187511D+05, .143559D+05, .109906D+05,
1108 + .841335D+04, .644030D+04, .492946D+04, .377300D+04,
1109 + .288759D+04, .220998D+04, .169128D+04, .129438D+04,
1110 + .990607D+03, .758215D+03, .580384D+03, .444358D+03,
1111 + .340282D+03, .260681D+03, .199782D+03, .153215D+03,
1112 + .117146D+03, .900057D+02, .692334D+02, .533382D+02,
1113 + .411661D+02, .318438D+02, .247160D+02, .192343D+02,
1114 + .150250D+02, .117891D+02, .929485D+01, .736823D+01 /
1115 DATA (UPDI(I),I=3953,4004) /
1116 + .587356D+01, .471151D+01, .380154D+01, .308543D+01,
1117 + .251794D+01, .206527D+01, .170127D+01, .140753D+01,
1118 + .116621D+01, .969215D+00, .805264D+00, .669540D+00,
1119 + .556209D+00, .461319D+00, .381687D+00, .314814D+00,
1120 + .258653D+00, .211551D+00, .172134D+00, .139258D+00,
1121 + .111942D+00, .893574D-01, .707875D-01, .556088D-01,
1122 + .433433D-01, .334017D-01, .254663D-01, .191916D-01,
1123 + .142806D-01, .104801D-01, .757481D-02, .538394D-02,
1124 + .375614D-02, .256658D-02, .171190D-02, .111596D-02,
1125 + .703778D-03, .428508D-03, .250151D-03, .138626D-03,
1126 + .718391D-04, .338538D-04, .137278D-04, .396784D-05,
1127 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1128 + .000000D+00, .000000D+00, .000000D+00, .000000D+00 /
1129 DATA (UPDI(I),I=4005,4056) /
1130 + .186149D+06, .144467D+06, .110673D+06, .847683D+05,
1131 + .649221D+05, .497121D+05, .380621D+05, .291359D+05,
1132 + .223007D+05, .170651D+05, .130571D+05, .998803D+04,
1133 + .763940D+04, .584157D+04, .446628D+04, .341392D+04,
1134 + .260922D+04, .199372D+04, .152327D+04, .116359D+04,
1135 + .888804D+03, .678817D+03, .518464D+03, .395977D+03,
1136 + .302482D+03, .231094D+03, .176645D+03, .134567D+03,
1137 + .102992D+03, .788916D+02, .605086D+02, .464766D+02,
1138 + .357685D+02, .276114D+02, .213641D+02, .165869D+02,
1139 + .129317D+02, .101275D+02, .797292D+01, .631022D+01,
1140 + .502513D+01, .402471D+01, .324242D+01, .262647D+01,
1141 + .213852D+01, .174879D+01, .143656D+01, .118182D+01,
1142 + .975423D+00, .804865D+00, .664712D+00, .548522D+00 /
1143 DATA (UPDI(I),I=4057,4108) /
1144 + .451956D+00, .371504D+00, .304437D+00, .248516D+00,
1145 + .201956D+00, .163273D+00, .131247D+00, .104829D+00,
1146 + .831462D-01, .654494D-01, .510877D-01, .395680D-01,
1147 + .302985D-01, .229535D-01, .171885D-01, .127097D-01,
1148 + .926960D-02, .665915D-02, .470534D-02, .326442D-02,
1149 + .221941D-02, .147390D-02, .957843D-03, .603329D-03,
1150 + .368112D-03, .216480D-03, .122030D-03, .654403D-04,
1151 + .330844D-04, .155829D-04, .669792D-05, .256838D-05,
1152 + .839233D-06, .210293D-06, .282463D-07, .000000D+00,
1153 + .000000D+00, .000000D+00, .000000D+00, .226383D+06,
1154 + .175537D+06, .134333D+06, .102771D+06, .786135D+05,
1155 + .601160D+05, .459631D+05, .351308D+05, .268464D+05,
1156 + .205085D+05, .156637D+05, .119591D+05, .912868D+04 /
1157 DATA (UPDI(I),I=4109,4160) /
1158 + .696555D+04, .531380D+04, .405219D+04, .308942D+04,
1159 + .235450D+04, .179402D+04, .136648D+04, .104065D+04,
1160 + .792279D+03, .603125D+03, .459033D+03, .349371D+03,
1161 + .265891D+03, .202433D+03, .153552D+03, .117003D+03,
1162 + .892057D+02, .680859D+02, .520286D+02, .398263D+02,
1163 + .305712D+02, .235157D+02, .181459D+02, .140577D+02,
1164 + .109373D+02, .855265D+01, .672254D+01, .531628D+01,
1165 + .422796D+01, .338216D+01, .272036D+01, .219949D+01,
1166 + .178616D+01, .145726D+01, .119069D+01, .976230D+00,
1167 + .800205D+00, .656569D+00, .538315D+00, .440723D+00,
1168 + .359983D+00, .293149D+00, .237811D+00, .192057D+00,
1169 + .154311D+00, .123279D+00, .978601D-01, .771445D-01,
1170 + .603559D-01, .468247D-01, .360471D-01, .274349D-01 /
1171 DATA (UPDI(I),I=4161,4212) /
1172 + .206582D-01, .153765D-01, .113019D-01, .819429D-02,
1173 + .585265D-02, .411235D-02, .283787D-02, .192015D-02,
1174 + .126982D-02, .822698D-03, .517502D-03, .316226D-03,
1175 + .187093D-03, .106930D-03, .588834D-04, .312695D-04,
1176 + .160666D-04, .805429D-05, .401122D-05, .201852D-05,
1177 + .101972D-05, .498064D-06, .214074D-06, .640655D-07,
1178 + .491438D-08, .000000D+00, .163673D+06, .215907D+06,
1179 + .164891D+06, .125884D+06, .960835D+05, .733093D+05,
1180 + .559198D+05, .426378D+05, .325021D+05, .247651D+05,
1181 + .188646D+05, .143634D+05, .109330D+05, .831795D+04,
1182 + .632644D+04, .480941D+04, .365501D+04, .277633D+04,
1183 + .210824D+04, .160016D+04, .121420D+04, .920935D+03,
1184 + .698352D+03, .529378D+03, .401243D+03, .304057D+03 /
1185 DATA (UPDI(I),I=4213,4264) /
1186 + .230468D+03, .174004D+03, .131956D+03, .100110D+03,
1187 + .760181D+02, .577821D+02, .439875D+02, .335739D+02,
1188 + .256739D+02, .196912D+02, .151600D+02, .117196D+02,
1189 + .910468D+01, .710901D+01, .558431D+01, .441119D+01,
1190 + .350489D+01, .280005D+01, .224876D+01, .181400D+01,
1191 + .147026D+01, .119344D+01, .972201D+00, .791803D+00,
1192 + .645578D+00, .525996D+00, .427974D+00, .347425D+00,
1193 + .281201D+00, .226737D+00, .182012D+00, .145364D+00,
1194 + .115440D+00, .910936D-01, .713868D-01, .555238D-01,
1195 + .428231D-01, .327749D-01, .247989D-01, .185648D-01,
1196 + .137386D-01, .100403D-01, .723851D-02, .514144D-02,
1197 + .359331D-02, .246711D-02, .166162D-02, .109446D-02,
1198 + .706994D-03, .444116D-03, .271711D-03, .161592D-03 /
1199 DATA (UPDI(I),I=4265,4316) /
1200 + .934305D-04, .525589D-04, .289417D-04, .157335D-04,
1201 + .854815D-05, .469937D-05, .261334D-05, .142802D-05,
1202 + .728128D-06, .315107D-06, .922501D-07, .718013D-08,
1203 + .000000D+00, .363428D+06, .280492D+06, .213492D+06,
1204 + .162428D+06, .123540D+06, .939201D+05, .713782D+05,
1205 + .542209D+05, .411731D+05, .312495D+05, .237088D+05,
1206 + .179783D+05, .136274D+05, .103238D+05, .781786D+04,
1207 + .591684D+04, .447617D+04, .338433D+04, .255772D+04,
1208 + .193190D+04, .145864D+04, .110071D+04, .830327D+03,
1209 + .626064D+03, .471924D+03, .355608D+03, .267992D+03,
1210 + .201121D+03, .151592D+03, .114288D+03, .862258D+02,
1211 + .651083D+02, .492273D+02, .373119D+02, .283279D+02,
1212 + .215677D+02, .164802D+02, .126430D+02, .974582D+01 /
1213 DATA (UPDI(I),I=4317,4368) /
1214 + .754991D+01, .588371D+01, .461076D+01, .363425D+01,
1215 + .288034D+01, .229494D+01, .183670D+01, .147709D+01,
1216 + .118969D+01, .961765D+00, .777358D+00, .629050D+00,
1217 + .508728D+00, .410881D+00, .331121D+00, .266068D+00,
1218 + .212998D+00, .169764D+00, .134623D+00, .106158D+00,
1219 + .831828D-01, .647333D-01, .500001D-01, .382948D-01,
1220 + .291063D-01, .218690D-01, .162562D-01, .119445D-01,
1221 + .866609D-02, .620161D-02, .437132D-02, .303066D-02,
1222 + .206311D-02, .137670D-02, .897349D-03, .572708D-03,
1223 + .354498D-03, .212836D-03, .123429D-03, .688813D-04,
1224 + .368067D-04, .187664D-04, .910518D-05, .420244D-05,
1225 + .186268D-05, .810041D-06, .351254D-06, .153067D-06,
1226 + .623428D-07, .186825D-07, .139614D-08, .000000D+00 /
1227 DATA (UPDI(I),I=4369,4420) /
1228 + .474344D+06, .364833D+06, .276574D+06, .209568D+06,
1229 + .158737D+06, .120174D+06, .909428D+05, .687850D+05,
1230 + .520037D+05, .392944D+05, .296777D+05, .224014D+05,
1231 + .169010D+05, .127433D+05, .960370D+04, .723297D+04,
1232 + .544468D+04, .409584D+04, .307957D+04, .231393D+04,
1233 + .173780D+04, .130429D+04, .978469D+03, .733622D+03,
1234 + .549832D+03, .411892D+03, .308560D+03, .230139D+03,
1235 + .172385D+03, .129140D+03, .967982D+02, .726071D+02,
1236 + .545245D+02, .410419D+02, .309396D+02, .233869D+02,
1237 + .177395D+02, .135081D+02, .103344D+02, .794520D+01,
1238 + .614448D+01, .477823D+01, .373732D+01, .293933D+01,
1239 + .232402D+01, .184581D+01, .147322D+01, .117762D+01,
1240 + .944920D+00, .758071D+00, .608933D+00, .488872D+00 /
1241 DATA (UPDI(I),I=4421,4472) /
1242 + .391989D+0, .313633D+00, .250220D+00, .198895D+00,
1243 + .157410D+00, .123956D+00, .970686D-01, .755370D-01,
1244 + .583807D-01, .447869D-01, .340688D-01, .257197D-01,
1245 + .191938D-01, .141715D-01, .103429D-01, .745414D-02,
1246 + .529916D-02, .371098D-02, .255656D-02, .172982D-02,
1247 + .114779D-02, .744410D-03, .473253D-03, .292304D-03,
1248 + .175609D-03, .102381D-03, .578735D-04, .317147D-04,
1249 + .169175D-04, .885419D-05, .459932D-05, .240730D-05,
1250 + .127584D-05, .668057D-06, .328821D-06, .137303D-06,
1251 + .385474D-07, .302806D-08, .000000D+00, .616640D+06,
1252 + .472513D+06, .356656D+06, .269068D+06, .202903D+06,
1253 + .152922D+06, .115200D+06, .867323D+05, .652674D+05,
1254 + .490843D+05, .368949D+05, .277145D+05, .208072D+05 /
1255 DATA (UPDI(I),I=4473,4524) /
1256 + .156108D+05, .117055D+05, .877105D+04, .656838D+04,
1257 + .491528D+04, .367605D+04, .274723D+04, .205192D+04,
1258 + .153149D+04, .114243D+04, .851645D+03, .634566D+03,
1259 + .472545D+03, .351865D+03, .260806D+03, .194135D+03,
1260 + .144510D+03, .107617D+03, .801911D+02, .598154D+02,
1261 + .447183D+02, .334771D+02, .251269D+02, .189233D+02,
1262 + .143056D+02, .108647D+02, .829150D+01, .636492D+01,
1263 + .491297D+01, .381413D+01, .297747D+01, .233672D+01,
1264 + .184215D+01, .145950D+01, .115807D+01, .922472D+00,
1265 + .734682D+00, .585895D+00, .467016D+00, .371806D+00,
1266 + .295390D+00, .234018D+00, .184725D+00, .145188D+00,
1267 + .113549D+00, .883143D-01, .682607D-01, .524032D-01,
1268 + .399337D-01, .301749D-01, .226299D-01, .167763D-01 /
1269 DATA (UPDI(I),I=4525,4576) /
1270 + .123052D-01, .892213D-02, .638860D-02, .451264D-02,
1271 + .314040D-02, .215033D-02, .144659D-02, .954816D-03,
1272 + .616464D-03, .390637D-03, .240958D-03, .145013D-03,
1273 + .851023D-04, .487863D-04, .274165D-04, .152306D-04,
1274 + .845731D-05, .473946D-05, .269412D-05, .153405D-05,
1275 + .842866D-06, .422667D-06, .175114D-06, .478783D-07,
1276 + .382149D-08, .000000D+00, .795913D+06, .607551D+06,
1277 + .456537D+06, .342869D+06, .257378D+06, .193085D+06,
1278 + .144779D+06, .108488D+06, .812496D+05, .608093D+05,
1279 + .454851D+05, .339988D+05, .253977D+05, .189586D+05,
1280 + .141431D+05, .105427D+05, .785368D+04, .584589D+04,
1281 + .434851D+04, .323207D+04, .240071D+04, .178178D+04,
1282 + .132159D+04, .979518D+03, .725576D+03, .537103D+03 /
1283 DATA (UPDI(I),I=4577,4628) /
1284 + .397526D+03, .292822D+03, .216612D+03, .160224D+03,
1285 + .118556D+03, .877672D+02, .650337D+02, .482946D+02,
1286 + .359087D+02, .267667D+02, .200178D+02, .150268D+02,
1287 + .113316D+02, .858618D+01, .654391D+01, .501482D+01,
1288 + .386514D+01, .299554D+01, .233394D+01, .182670D+01,
1289 + .143689D+01, .113194D+01, .895235D+00, .707913D+00,
1290 + .560561D+00, .443690D+00, .350775D+00, .276755D+00,
1291 + .217748D+00, .170711D+00, .133265D+00, .103525D+00,
1292 + .799802D-01, .614098D-01, .468338D-01, .354567D-01,
1293 + .266174D-01, .198329D-01, .146078D-01, .106458D-01,
1294 + .766981D-02, .545731D-02, .383093D-02, .264987D-02,
1295 + .180390D-02, .120693D-02, .792756D-03, .509782D-03,
1296 + .322189D-03, .198636D-03, .119867D-03, .708808D-04 /
1297 DATA (UPDI(I),I=4629,4680) /
1298 + .412278D-04, .237288D-04, .136476D-04, .792303D-05,
1299 + .466003D-05, .276599D-05, .162144D-05, .901756D-06,
1300 + .450045D-06, .182788D-06, .485278D-07, .392685D-08,
1301 + .000000D+00, .101816D+07, .774222D+06, .579165D+06,
1302 + .432995D+06, .323543D+06, .241599D+06, .180307D+06,
1303 + .134471D+06, .100228D+06, .746504D+05, .555651D+05,
1304 + .413278D+05, .307182D+05, .228141D+05, .169322D+05,
1305 + .125563D+05, .930466D+04, .688917D+04, .509701D+04,
1306 + .376779D+04, .278320D+04, .205412D+04, .151497D+04,
1307 + .111641D+04, .822168D+03, .605010D+03, .445110D+03,
1308 + .325859D+03, .239569D+03, .176103D+03, .129481D+03,
1309 + .952425D+02, .701148D+02, .517270D+02, .382050D+02,
1310 + .282872D+02, .210115D+02, .156649D+02, .117314D+02 /
1311 DATA (UPDI(I),I=4681,4732) /
1312 + .882759D+01, .668109D+01, .508420D+01, .389116D+01,
1313 + .299456D+01, .231679D+01, .180054D+01, .140640D+01,
1314 + .110014D+01, .864020D+00, .678463D+00, .533521D+00,
1315 + .419383D+00, .329290D+00, .258040D+00, .201653D+00,
1316 + .157034D+00, .121773D+00, .939735D-01, .721255D-01,
1317 + .550189D-01, .416890D-01, .313595D-01, .233911D-01,
1318 + .173186D-01, .126751D-01, .917932D-02, .657214D-02,
1319 + .464761D-02, .324292D-02, .223006D-02, .150968D-02,
1320 + .100490D-02, .657111D-03, .421082D-03, .265608D-03,
1321 + .163804D-03, .992092D-04, .591621D-04, .349220D-04,
1322 + .205522D-04, .121725D-04, .730718D-05, .443522D-05,
1323 + .269494D-05, .159738D-05, .887312D-06, .437193D-06,
1324 + .173387D-06, .446581D-07, .366202D-08, .000000D+00 /
1325 DATA (UPDI(I),I=4733,4784) /
1326 + .128971D+07, .976984D+06, .727585D+06, .541510D+06,
1327 + .402790D+06, .299393D+06, .222402D+06, .165087D+06,
1328 + .122464D+06, .907743D+05, .672391D+05, .497654D+05,
1329 + .368062D+05, .271985D+05, .200837D+05, .148169D+05,
1330 + .109227D+05, .804467D+04, .592024D+04, .435275D+04,
1331 + .319776D+04, .234705D+04, .172132D+04, .126128D+04,
1332 + .923523D+03, .675631D+03, .494134D+03, .359558D+03,
1333 + .262747D+03, .191958D+03, .140263D+03, .102526D+03,
1334 + .749971D+02, .549745D+02, .403399D+02, .296723D+02,
1335 + .218946D+02, .162147D+02, .120618D+02, .901511D+01,
1336 + .677686D+01, .512206D+01, .389341D+01, .297584D+01,
1337 + .228654D+01, .176483D+01, .136909D+01, .106359D+01,
1338 + .829611D+00, .646988D+00, .505314D+00, .394529D+00 /
1339 DATA (UPDI(I),I=4785,4836) /
1340 + .307694D+00, .239508D+00, .185930D+00, .143837D+00,
1341 + .110810D+00, .849594D-01, .647873D-01, .491055D-01,
1342 + .369724D-01, .276365D-01, .204847D-01, .150724D-01,
1343 + .109626D-01, .789031D-02, .561492D-02, .394696D-02,
1344 + .273797D-02, .187225D-02, .126074D-02, .835168D-03,
1345 + .543916D-03, .347516D-03, .218922D-03, .135165D-03,
1346 + .822345D-04, .494879D-04, .296417D-04, .178041D-04,
1347 + .108059D-04, .665079D-05, .411974D-05, .253352D-05,
1348 + .150438D-05, .829325D-06, .401929D-06, .155405D-06,
1349 + .388437D-07, .322705D-08, .000000D+00, .161705D+07,
1350 + .122039D+07, .904867D+06, .670472D+06, .496483D+06,
1351 + .367367D+06, .271648D+06, .200711D+06, .148194D+06,
1352 + .109327D+06, .805950D+05, .593623D+05, .436894D+05 /
1353 DATA (UPDI(I),I=4837,4888) /
1354 + .321254D+05, .236031D+05, .173253D+05, .127065D+05,
1355 + .930994D+04, .681544D+04, .498434D+04, .364207D+04,
1356 + .265862D+04, .193908D+04, .141291D+04, .102871D+04,
1357 + .748264D+03, .544083D+03, .393549D+03, .285878D+03,
1358 + .207604D+03, .150774D+03, .109532D+03, .796239D+02,
1359 + .580008D+02, .422908D+02, .309086D+02, .226599D+02,
1360 + .166728D+02, .123217D+02, .914905D+01, .683227D+01,
1361 + .512980D+01, .387341D+01, .294083D+01, .224454D+01,
1362 + .172080D+01, .132600D+01, .102318D+01, .792755D+00,
1363 + .614097D+00, .476429D+00, .369511D+00, .286281D+00,
1364 + .221379D+00, .170736D+00, .131228D+00, .100447D+00,
1365 + .765230D-01, .579844D-01, .436732D-01, .326772D-01,
1366 + .242747D-01, .178817D-01, .130768D-01, .945319D-02 /
1367 DATA (UPDI(I),I=4889,4940) /
1368 + .676287D-02, .478401D-02, .334330D-02, .230610D-02,
1369 + .156841D-02, .105083D-02, .693010D-03, .449705D-03,
1370 + .286633D-03, .180458D-03, .111629D-03, .682758D-04,
1371 + .414823D-04, .252021D-04, .154171D-04, .954638D-05,
1372 + .598404D-05, .375371D-05, .231962D-05, .137235D-05,
1373 + .748138D-06, .355936D-06, .134089D-06, .325488D-07,
1374 + .273911D-08, .000000D+00, .200677D+07, .150900D+07,
1375 + .111404D+07, .821878D+06, .605926D+06, .446360D+06,
1376 + .328579D+06, .241675D+06, .177621D+06, .130430D+06,
1377 + .957007D+05, .701544D+05, .513845D+05, .376004D+05,
1378 + .274901D+05, .200782D+05, .146515D+05, .106804D+05,
1379 + .777845D+04, .565898D+04, .411322D+04, .298650D+04,
1380 + .216645D+04, .156994D+04, .113670D+04, .822162D+03 /
1381 DATA (UPDI(I),I=4941,4992) /
1382 + .594419D+03, .427452D+03, .308701D+03, .222860D+03,
1383 + .160892D+03, .116181D+03, .839442D+02, .607744D+02,
1384 + .440392D+02, .319860D+02, .233026D+02, .170376D+02,
1385 + .125114D+02, .923062D+01, .684900D+01, .510923D+01,
1386 + .383289D+01, .289116D+01, .219222D+01, .166967D+01,
1387 + .127818D+01, .979777D+00, .754146D+00, .580344D+00,
1388 + .447296D+00, .344657D+00, .265294D+00, .203828D+00,
1389 + .156191D+00, .119285D+00, .907283D-01, .686852D-01,
1390 + .517210D-01, .387147D-01, .287893D-01, .212561D-01,
1391 + .155630D-01, .113127D-01, .812898D-02, .578114D-02,
1392 + .406577D-02, .282524D-02, .193809D-02, .131129D-02,
1393 + .874386D-03, .574275D-03, .371478D-03, .236337D-03,
1394 + .148801D-03, .922894D-04, .567830D-04, .348387D-04 /
1395 DATA (UPDI(I),I=4993,5044) /
1396 + .214537D-04, .133370D-04, .839186D-05, .532897D-05,
1397 + .336629D-05, .208028D-05, .122204D-05, .657352D-06,
1398 + .306655D-06, .112536D-06, .265534D-07, .226314D-08,
1399 + .000000D+00, .246534D+07, .184725D+07, .135801D+07,
1400 + .997610D+06, .732324D+06, .537131D+06, .393662D+06,
1401 + .288260D+06, .210908D+06, .154171D+06, .112601D+06,
1402 + .821602D+05, .598954D+05, .436201D+05, .317377D+05,
1403 + .230679D+05, .167502D+05, .121495D+05, .880372D+04,
1404 + .637220D+04, .460768D+04, .332801D+04, .240140D+04,
1405 + .173087D+04, .124641D+04, .896548D+03, .644594D+03,
1406 + .460890D+03, .330956D+03, .237555D+03, .170504D+03,
1407 + .122400D+03, .879139D+02, .632692D+02, .455706D+02,
1408 + .328975D+02, .238202D+02, .173090D+02, .126321D+02 /
1409 DATA (UPDI(I),I=5045,5096) /
1410 + .926180D+01, .682920D+01, .506246D+01, .377381D+01,
1411 + .282852D+01, .213104D+01, .161266D+01, .122662D+01,
1412 + .934177D+00, .714420D+00, .546221D+00, .418290D+00,
1413 + .320243D+00, .244930D+00, .186989D+00, .142384D+00,
1414 + .108058D+00, .816778D-01, .614514D-01, .459896D-01,
1415 + .342148D-01, .252890D-01, .185596D-01, .135074D-01,
1416 + .976035D-02, .697224D-02, .492974D-02, .344730D-02,
1417 + .238223D-02, .162554D-02, .109437D-02, .726484D-03,
1418 + .475348D-03, .306653D-03, .194845D-03, .122763D-03,
1419 + .763917D-04, .473043D-04, .293081D-04, .182761D-04,
1420 + .115197D-04, .733953D-05, .470132D-05, .297830D-05,
1421 + .183437D-05, .106748D-05, .565772D-06, .258610D-06,
1422 + .924549D-07, .212261D-07, .183194D-08, .000000D+00 /
1423 DATA (UPDI(I),I=5097,5148) /
1424 + .732910D+05, .105236D+06, .804723D+05, .615360D+05,
1425 + .470559D+05, .359835D+05, .275166D+05, .210423D+05,
1426 + .160915D+05, .123057D+05, .941084D+04, .719717D+04,
1427 + .550441D+04, .420997D+04, .322011D+04, .246316D+04,
1428 + .188431D+04, .144165D+04, .110312D+04, .844223D+03,
1429 + .646220D+03, .494780D+03, .378947D+03, .290342D+03,
1430 + .222558D+03, .170695D+03, .131009D+03, .100257D+03,
1431 + .770989D+02, .593608D+02, .457686D+02, .353477D+02,
1432 + .273526D+02, .212294D+02, .165092D+02, .128768D+02,
1433 + .100763D+02, .791230D+01, .623534D+01, .493097D+01,
1434 + .391398D+01, .311631D+01, .248806D+01, .199086D+01,
1435 + .159553D+01, .127982D+01, .102755D+01, .823343D+00,
1436 + .659655D+00, .526628D+00, .419542D+00, .333016D+00 /
1437 DATA (UPDI(I),I=5149,5200) /
1438 + .263194D+00, .206970D+00, .161833D+00, .125735D+00,
1439 + .970011D-01, .742544D-01, .563605D-01, .423832D-01,
1440 + .315507D-01, .232278D-01, .168938D-01, .121426D-01,
1441 + .858277D-02, .596797D-02, .407444D-02, .272480D-02,
1442 + .177981D-02, .113135D-02, .696507D-03, .412594D-03,
1443 + .232869D-03, .123275D-03, .600395D-04, .251857D-04,
1444 + .771451D-05, .692590D-07, .000000D+00, .000000D+00,
1445 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1446 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1447 + .000000D+00, .000000D+00, .000000D+00, .156439D+06,
1448 + .121380D+06, .929663D+05, .711972D+05, .545248D+05,
1449 + .417524D+05, .319712D+05, .244787D+05, .187415D+05,
1450 + .143473D+05, .109830D+05, .840650D+04, .643417D+04 /
1451 DATA (UPDI(I),I=5201,5252) /
1452 + .492398D+04, .376809D+04, .288320D+04, .220605D+04,
1453 + .168775D+04, .129122D+04, .987772D+03, .755672D+03,
1454 + .578100D+03, .442305D+03, .338434D+03, .259016D+03,
1455 + .198279D+03, .151857D+03, .115916D+03, .888879D+02,
1456 + .682145D+02, .524061D+02, .403102D+02, .310544D+02,
1457 + .239845D+02, .185534D+02, .143882D+02, .111907D+02,
1458 + .873040D+01, .683393D+01, .536660D+01, .422978D+01,
1459 + .334373D+01, .265082D+01, .210634D+01, .167681D+01,
1460 + .133629D+01, .106638D+01, .849429D+00, .676903D+00,
1461 + .537623D+00, .426273D+00, .336845D+00, .265122D+00,
1462 + .207678D+00, .161805D+00, .125286D+00, .963457D-01,
1463 + .735271D-01, .556519D-01, .417369D-01, .309929D-01,
1464 + .227647D-01, .165219D-01, .118538D-01, .836557D-02 /
1465 DATA (UPDI(I),I=5253,5304) /
1466 + .580864D-02, .396154D-02, .264717D-02, .172865D-02,
1467 + .109859D-02, .676399D-03, .400149D-03, .225074D-03,
1468 + .117558D-03, .550974D-04, .202014D-04, .244712D-05,
1469 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1470 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1471 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1472 + .000000D+00, .000000D+00, .186123D+06, .144444D+06,
1473 + .110653D+06, .847500D+05, .649058D+05, .496976D+05,
1474 + .380491D+05, .291243D+05, .222903D+05, .170558D+05,
1475 + .130488D+05, .998058D+04, .763273D+04, .583561D+04,
1476 + .446094D+04, .340914D+04, .260494D+04, .198988D+04,
1477 + .151983D+04, .116051D+04, .886041D+03, .676336D+03,
1478 + .516235D+03, .393972D+03, .300676D+03, .229465D+03 /
1479 DATA (UPDI(I),I=5305,5356) /
1480 + .175172D+03, .133235D+03, .101783D+03, .777904D+02,
1481 + .595027D+02, .455546D+02, .349199D+02, .268272D+02,
1482 + .206364D+02, .159088D+02, .122973D+02, .953195D+01,
1483 + .741212D+01, .578120D+01, .452552D+01, .355301D+01,
1484 + .279763D+01, .220813D+01, .174645D+01, .138301D+01,
1485 + .109705D+01, .868749D+00, .688516D+00, .543957D+00,
1486 + .429143D+00, .337490D+00, .264423D+00, .206227D+00,
1487 + .160008D+00, .123396D+00, .945255D-01, .718669D-01,
1488 + .542005D-01, .405068D-01, .299808D-01, .219530D-01,
1489 + .158869D-01, .113693D-01, .800660D-02, .555028D-02,
1490 + .378254D-02, .252872D-02, .165550D-02, .105790D-02,
1491 + .658383D-03, .397066D-03, .231280D-03, .128907D-03,
1492 + .688007D-04, .343855D-04, .160407D-04, .676776D-05 /
1493 DATA (UPDI(I),I=5357,5408) /
1494 + .254786D-05, .785684D-06, .202013D-06, .270276D-07,
1495 + .130897D-07, .000000D+00, .000000D+00, .000000D+00,
1496 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1497 + .000000D+00, .226356D+06, .175512D+06, .134310D+06,
1498 + .102751D+06, .785958D+05, .601002D+05, .459490D+05,
1499 + .351182D+05, .268351D+05, .204984D+05, .156547D+05,
1500 + .119510D+05, .912147D+04, .695910D+04, .530803D+04,
1501 + .404702D+04, .308479D+04, .235035D+04, .179031D+04,
1502 + .136315D+04, .103767D+04, .789602D+03, .600720D+03,
1503 + .456870D+03, .347424D+03, .264135D+03, .200847D+03,
1504 + .152119D+03, .115702D+03, .880234D+02, .670074D+02,
1505 + .510418D+02, .389201D+02, .297360D+02, .227430D+02,
1506 + .174284D+02, .133892D+02, .103125D+02, .796729D+01 /
1507 DATA (UPDI(I),I=5409,5460) /
1508 + .617334D+01, .480061D+01, .374408D+01, .292877D+01,
1509 + .229671D+01, .180507D+01, .142064D+01, .112024D+01,
1510 + .881985D+00, .695168D+00, .546273D+00, .428761D+00,
1511 + .335516D+00, .261621D+00, .203097D+00, .156873D+00,
1512 + .120450D+00, .918749D-01, .695607D-01, .522495D-01,
1513 + .388948D-01, .286787D-01, .209232D-01, .150894D-01,
1514 + .107641D-01, .755859D-02, .522685D-02, .355590D-02,
1515 + .237534D-02, .155634D-02, .997595D-03, .625128D-03,
1516 + .381868D-03, .227558D-03, .131968D-03, .754080D-04,
1517 + .424649D-04, .243148D-04, .144721D-04, .933241D-05,
1518 + .649179D-05, .485425D-05, .368261D-05, .278555D-05,
1519 + .200792D-05, .136500D-05, .846036D-06, .463825D-06,
1520 + .209820D-06, .638352D-07, .491260D-08, .000000D+00 /
1521 DATA (UPDI(I),I=5461,5512) /
1522 + .163573D+06, .215880D+06, .164867D+06, .125862D+06,
1523 + .960644D+05, .732923D+05, .559046D+05, .426242D+05,
1524 + .324899D+05, .247542D+05, .188548D+05, .143547D+05,
1525 + .109252D+05, .831100D+04, .632022D+04, .480385D+04,
1526 + .365003D+04, .277187D+04, .210425D+04, .159658D+04,
1527 + .121099D+04, .918059D+03, .695769D+03, .527057D+03,
1528 + .399154D+03, .302175D+03, .228769D+03, .172470D+03,
1529 + .130566D+03, .988472D+02, .748682D+02, .567318D+02,
1530 + .430251D+02, .326890D+02, .248576D+02, .189359D+02,
1531 + .144589D+02, .110672D+02, .849646D+01, .654133D+01,
1532 + .505424D+01, .391667D+01, .304434D+01, .237238D+01,
1533 + .185312D+01, .144968D+01, .113648D+01, .889655D+00,
1534 + .697362D+00, .545049D+00, .425574D+00, .331334D+00 /
1535 DATA (UPDI(I),I=5513,5564) /
1536 + .257087D+00, .198618D+00, .152694D+00, .116701D+00,
1537 + .886144D-01, .667956D-01, .499559D-01, .370302D-01,
1538 + .271920D-01, .197601D-01, .141963D-01, .100907D-01,
1539 + .706234D-02, .486939D-02, .330502D-02, .220449D-02,
1540 + .144415D-02, .927287D-03, .583835D-03, .359985D-03,
1541 + .218091D-03, .130018D-03, .775780D-04, .466266D-04,
1542 + .291203D-04, .191539D-04, .134990D-04, .998611D-05,
1543 + .765807D-05, .584338D-05, .438121D-05, .313126D-05,
1544 + .210759D-05, .129521D-05, .702286D-06, .311935D-06,
1545 + .920794D-07, .717876D-08, .000000D+00, .363395D+06,
1546 + .280462D+06, .213466D+06, .162405D+06, .123519D+06,
1547 + .939015D+05, .713616D+05, .542060D+05, .411598D+05,
1548 + .312377D+05, .236982D+05, .179688D+05, .136189D+05 /
1549 DATA (UPDI(I),I=5565,5616) /
1550 + .103163D+05, .781109D+04, .591078D+04, .447076D+04,
1551 + .337948D+04, .255338D+04, .192801D+04, .145515D+04,
1552 + .109759D+04, .827523D+03, .623545D+03, .469659D+03,
1553 + .353569D+03, .266153D+03, .199463D+03, .150091D+03,
1554 + .112927D+03, .849889D+02, .639813D+02, .481974D+02,
1555 + .363679D+02, .274603D+02, .207681D+02, .157415D+02,
1556 + .119591D+02, .911181D+01, .696176D+01, .533809D+01,
1557 + .410522D+01, .316678D+01, .244942D+01, .189924D+01,
1558 + .147507D+01, .114826D+01, .892668D+00, .695038D+00,
1559 + .539661D+00, .418667D+00, .323919D+00, .249794D+00,
1560 + .191828D+00, .146607D+00, .111402D+00, .841093D-01,
1561 + .630459D-01, .468918D-01, .345711D-01, .252508D-01,
1562 + .182537D-01, .130458D-01, .922561D-02, .642360D-02 /
1563 DATA (UPDI(I),I=5617,5668) /
1564 + .440610D-02, .297469D-02, .197309D-02, .128455D-02,
1565 + .818785D-03, .510659D-03, .310690D-03, .184439D-03,
1566 + .106457D-03, .602989D-04, .333336D-04, .183537D-04,
1567 + .101599D-04, .585526D-05, .353393D-05, .228857D-05,
1568 + .152331D-05, .104194D-05, .686607D-06, .435317D-06,
1569 + .254090D-06, .134414D-06, .600815D-07, .185616D-07,
1570 + .139513D-08, .000000D+00, .474309D+06, .364801D+06,
1571 + .276545D+06, .209543D+06, .158715D+06, .120154D+06,
1572 + .909247D+05, .687688D+05, .519892D+05, .392815D+05,
1573 + .296662D+05, .223911D+05, .168918D+05, .127351D+05,
1574 + .959635D+04, .722640D+04, .543881D+04, .409058D+04,
1575 + .307486D+04, .230972D+04, .173402D+04, .130090D+04,
1576 + .975437D+03, .730900D+03, .547387D+03, .409692D+03 /
1577 DATA (UPDI(I),I=5669,5720) /
1578 + .306579D+03, .228355D+03, .170772D+03, .127680D+03,
1579 + .954742D+02, .714036D+02, .534276D+02, .400397D+02,
1580 + .300218D+02, .225445D+02, .169648D+02, .127946D+02,
1581 + .967656D+01, .733854D+01, .558526D+01, .426353D+01,
1582 + .326466D+01, .250672D+01, .192966D+01, .148804D+01,
1583 + .115028D+01, .888072D+00, .686803D+00, .529722D+00,
1584 + .408276D+00, .313858D+00, .240510D+00, .183555D+00,
1585 + .139426D+00, .105308D+00, .790348D-01, .588957D-01,
1586 + .435520D-01, .319268D-01, .231897D-01, .166730D-01,
1587 + .118530D-01, .833947D-02, .577830D-02, .394563D-02,
1588 + .265317D-02, .175414D-02, .113956D-02, .726067D-03,
1589 + .453812D-03, .277843D-03, .167003D-03, .986224D-04,
1590 + .580272D-04, .341069D-04, .205407D-04, .128401D-04 /
1591 DATA (UPDI(I),I=5721,5772) /
1592 + .849907D-05, .589549D-05, .426066D-05, .309264D-05,
1593 + .222557D-05, .153494D-05, .100165D-05, .597979D-06,
1594 + .315573D-06, .135721D-06, .384634D-07, .302733D-08,
1595 + .000000D+00, .616602D+06, .472478D+06, .356625D+06,
1596 + .269040D+06, .202879D+06, .152900D+06, .115181D+06,
1597 + .867147D+05, .652518D+05, .490704D+05, .368824D+05,
1598 + .277034D+05, .207972D+05, .156019D+05, .116976D+05,
1599 + .876394D+04, .656202D+04, .490960D+04, .367096D+04,
1600 + .274268D+04, .204785D+04, .152785D+04, .113917D+04,
1601 + .848715D+03, .631936D+03, .470181D+03, .349738D+03,
1602 + .258893D+03, .192409D+03, .142950D+03, .106206D+03,
1603 + .789111D+02, .586522D+02, .436589D+02, .325105D+02,
1604 + .242434D+02, .181143D+02, .135642D+02, .101849D+02 /
1605 DATA (UPDI(I),I=5773,5824) /
1606 + .766829D+01, .579400D+01, .439093D+01, .333799D+01,
1607 + .254471D+01, .194502D+01, .148935D+01, .114335D+01,
1608 + .876658D+00, .673412D+00, .515927D+00, .395033D+00,
1609 + .301714D+00, .229727D+00, .174222D+00, .131512D+00,
1610 + .987202D-01, .736411D-01, .545484D-01, .400992D-01,
1611 + .292255D-01, .211069D-01, .150916D-01, .106707D-01,
1612 + .746871D-02, .514928D-02, .350006D-02, .234406D-02,
1613 + .154477D-02, .100144D-02, .637847D-03, .399570D-03,
1614 + .246170D-03, .149761D-03, .903263D-04, .549139D-04,
1615 + .338511D-04, .216532D-04, .144835D-04, .101972D-04,
1616 + .742905D-05, .553226D-05, .408993D-05, .296110D-05,
1617 + .204871D-05, .133394D-05, .792460D-06, .413284D-06,
1618 + .174009D-06, .478201D-07, .382096D-08, .000000D+00 /
1619 DATA (UPDI(I),I=5825,5876) /
1620 + .795871D+06, .607514D+06, .456503D+06, .342839D+06,
1621 + .257352D+06, .193061D+06, .144757D+06, .108469D+06,
1622 + .812327D+05, .607941D+05, .454716D+05, .339867D+05,
1623 + .253870D+05, .189490D+05, .141345D+05, .105350D+05,
1624 + .784682D+04, .583977D+04, .434303D+04, .322717D+04,
1625 + .239633D+04, .177786D+04, .131808D+04, .976373D+03,
1626 + .722755D+03, .534571D+03, .395251D+03, .290779D+03,
1627 + .214772D+03, .158565D+03, .117057D+03, .864113D+02,
1628 + .638050D+02, .471792D+02, .348946D+02, .258436D+02,
1629 + .191765D+02, .142596D+02, .106318D+02, .794839D+01,
1630 + .596321D+01, .448723D+01, .338714D+01, .256407D+01,
1631 + .194615D+01, .147989D+01, .112831D+01, .859235D+00,
1632 + .655599D+00, .498930D+00, .379504D+00, .287971D+00 /
1633 DATA (UPDI(I),I=5877,5928) /
1634 + .217853D+00, .164168D+00, .123144D+00, .918652D-01,
1635 + .681073D-01, .501448D-01, .366423D-01, .265499D-01,
1636 + .190647D-01, .135554D-01, .953244D-02, .663725D-02,
1637 + .455339D-02, .308103D-02, .205529D-02, .135029D-02,
1638 + .873712D-03, .556470D-03, .349502D-03, .216741D-03,
1639 + .133461D-03, .821138D-04, .513772D-04, .328995D-04,
1640 + .219640D-04, .153178D-04, .111404D-04, .829349D-05,
1641 + .623424D-05, .462059D-05, .333100D-05, .228967D-05,
1642 + .147575D-05, .865586D-06, .443414D-06, .182019D-06,
1643 + .484876D-07, .392647D-08, .000000D+00, .101812D+07,
1644 + .774181D+06, .579129D+06, .432962D+06, .323515D+06,
1645 + .241573D+06, .180284D+06, .134451D+06, .100210D+06,
1646 + .746340D+05, .555506D+05, .413148D+05, .307066D+05 /
1647 DATA (UPDI(I),I=5929,5980) /
1648 + .228038D+05, .169229D+05, .125480D+05, .929728D+04,
1649 + .688258D+04, .509113D+04, .376253D+04, .277850D+04,
1650 + .204992D+04, .151121D+04, .111304D+04, .819153D+03,
1651 + .602306D+03, .442683D+03, .323683D+03, .237614D+03,
1652 + .174342D+03, .127895D+03, .938113D+02, .688216D+02,
1653 + .505568D+02, .371451D+02, .273264D+02, .201397D+02,
1654 + .148738D+02, .110138D+02, .817721D+01, .609250D+01,
1655 + .455284D+01, .341291D+01, .256578D+01, .193407D+01,
1656 + .146066D+01, .110611D+01, .836636D+00, .634095D+00,
1657 + .479358D+00, .362222D+00, .273072D+00, .205253D+00,
1658 + .153688D+00, .114557D+00, .849268D-01, .625762D-01,
1659 + .457935D-01, .332628D-01, .239602D-01, .171065D-01,
1660 + .120954D-01, .845975D-02, .585995D-02, .400055D-02 /
1661 DATA (UPDI(I),I=5981,6032) /
1662 + .269503D-02, .179102D-02, .117331D-02, .758019D-03,
1663 + .482971D-03, .304283D-03, .190030D-03, .118456D-03,
1664 + .742785D-04, .476786D-04, .314937D-04, .216983D-04,
1665 + .155524D-04, .115214D-04, .866213D-05, .652011D-05,
1666 + .481636D-05, .344450D-05, .234430D-05, .149158D-05,
1667 + .861420D-06, .432518D-06, .172852D-06, .446304D-07,
1668 + .366175D-08, .000000D+00, .128966D+07, .976940D+06,
1669 + .727546D+06, .541475D+06, .402758D+06, .299365D+06,
1670 + .222377D+06, .165065D+06, .122444D+06, .907567D+05,
1671 + .672234D+05, .497514D+05, .367937D+05, .271874D+05,
1672 + .200737D+05, .148080D+05, .109148D+05, .803761D+04,
1673 + .591393D+04, .434712D+04, .319273D+04, .234255D+04,
1674 + .171730D+04, .125768D+04, .920307D+03, .672751D+03 /
1675 DATA (UPDI(I),I=6033,6084) /
1676 + .491554D+03, .357249D+03, .260674D+03, .190097D+03,
1677 + .138590D+03, .101020D+03, .736406D+02, .537512D+02,
1678 + .392360D+02, .286756D+02, .209944D+02, .154019D+02,
1679 + .113283D+02, .835413D+01, .618227D+01, .458864D+01,
1680 + .341643D+01, .255105D+01, .190997D+01, .143273D+01,
1681 + .107770D+01, .809692D+00, .609610D+00, .457804D+00,
1682 + .343674D+00, .257412D+00, .192241D+00, .143031D+00,
1683 + .105942D+00, .780524D-01, .571583D-01, .415760D-01,
1684 + .300197D-01, .214982D-01, .152614D-01, .107313D-01,
1685 + .746556D-02, .514505D-02, .349582D-02, .234505D-02,
1686 + .155291D-02, .101474D-02, .654819D-03, .417590D-03,
1687 + .264063D-03, .166162D-03, .104874D-03, .669635D-04,
1688 + .439740D-04, .297973D-04, .210198D-04, .153454D-04 /
1689 DATA (UPDI(I),I=6085,6136) /
1690 + .114876D-04, .866828D-05, .650716D-05, .477698D-05,
1691 + .338313D-05, .227606D-05, .142773D-05, .810838D-06,
1692 + .398640D-06, .155035D-06, .388246D-07, .322686D-08,
1693 + .000000D+00, .161700D+07, .122035D+07, .904825D+06,
1694 + .670435D+06, .496449D+06, .367337D+06, .271621D+06,
1695 + .200687D+06, .148172D+06, .109309D+06, .805781D+05,
1696 + .593473D+05, .436760D+05, .321135D+05, .235925D+05,
1697 + .173158D+05, .126980D+05, .930238D+04, .680869D+04,
1698 + .497832D+04, .363670D+04, .265382D+04, .193480D+04,
1699 + .140909D+04, .102529D+04, .745205D+03, .541347D+03,
1700 + .391105D+03, .283689D+03, .205642D+03, .149014D+03,
1701 + .107953D+03, .782055D+02, .567259D+02, .411447D+02,
1702 + .298781D+02, .217334D+02, .158403D+02, .115745D+02 /
1703 DATA (UPDI(I),I=6137,6188) /
1704 + .847949D+01, .623354D+01, .459600D+01, .339916D+01,
1705 + .252127D+01, .187512D+01, .139723D+01, .104406D+01,
1706 + .779219D+00, .582818D+00, .434815D+00, .324298D+00,
1707 + .241338D+00, .179086D+00, .132403D+00, .974560D-01,
1708 + .713566D-01, .519364D-01, .375512D-01, .269536D-01,
1709 + .191911D-01, .135469D-01, .947394D-02, .655625D-02,
1710 + .449601D-02, .304082D-02, .203162D-02, .134096D-02,
1711 + .874326D-03, .563821D-03, .360080D-03, .228676D-03,
1712 + .145061D-03, .927106D-04, .602219D-04, .403549D-04,
1713 + .279241D-04, .200507D-04, .148186D-04, .111537D-04,
1714 + .841550D-05, .628556D-05, .457805D-05, .320744D-05,
1715 + .213108D-05, .131697D-05, .734970D-06, .353628D-06,
1716 + .133832D-06, .325357D-07, .273896D-08, .000000D+00 /
1717 DATA (UPDI(I),I=6189,6240) /
1718 + .200671D+07, .150895D+07, .111399D+07, .821838D+06,
1719 + .605890D+06, .446328D+06, .328550D+06, .241649D+06,
1720 + .177598D+06, .130410D+06, .956826D+05, .701383D+05,
1721 + .513701D+05, .375876D+05, .274786D+05, .200680D+05,
1722 + .146424D+05, .106723D+05, .777124D+04, .565256D+04,
1723 + .410749D+04, .298139D+04, .216189D+04, .156588D+04,
1724 + .113307D+04, .818921D+03, .591525D+03, .424871D+03,
1725 + .306393D+03, .220797D+03, .159046D+03, .114529D+03,
1726 + .824655D+02, .594499D+02, .428530D+02, .309240D+02,
1727 + .223521D+02, .161877D+02, .117525D+02, .855447D+01,
1728 + .624794D+01, .457666D+01, .336277D+01, .247798D+01,
1729 + .183086D+01, .135531D+01, .100613D+01, .745993D+00,
1730 + .554344D+00, .410889D+00, .304482D+00, .225147D+00 /
1731 DATA (UPDI(I),I=6241,6292) /
1732 + .166014D+00, .121969D+00, .892191D-01, .649254D-01,
1733 + .469701D-01, .337587D-01, .240900D-01, .170545D-01,
1734 + .119719D-01, .832776D-02, .573350D-02, .391292D-02,
1735 + .263482D-02, .175370D-02, .115410D-02, .751142D-03,
1736 + .484288D-03, .309915D-03, .197783D-03, .126536D-03,
1737 + .818881D-04, .540560D-04, .368735D-04, .259552D-04,
1738 + .188845D-04, .140673D-04, .106097D-04, .798454D-05,
1739 + .592464D-05, .427670D-05, .296223D-05, .194256D-05,
1740 + .118213D-05, .647996D-06, .305039D-06, .112359D-06,
1741 + .265444D-07, .226304D-08, .000000D+00, .246528D+07,
1742 + .184720D+07, .135796D+07, .997566D+06, .732285D+06,
1743 + .537096D+06, .393631D+06, .288233D+06, .210884D+06,
1744 + .154149D+06, .112582D+06, .821429D+05, .598801D+05 /
1745 DATA (UPDI(I),I=6293,6344) /
1746 + .436064D+05, .317255D+05, .230570D+05, .167405D+05,
1747 + .121409D+05, .879604D+04, .636536D+04, .460158D+04,
1748 + .332259D+04, .239656D+04, .172656D+04, .124257D+04,
1749 + .893123D+03, .641540D+03, .458171D+03, .328532D+03,
1750 + .235392D+03, .168574D+03, .120678D+03, .863768D+02,
1751 + .618972D+02, .443466D+02, .318062D+02, .228479D+02,
1752 + .164439D+02, .118638D+02, .858104D+01, .622761D+01,
1753 + .453269D+01, .330913D+01, .242279D+01, .177855D+01,
1754 + .130808D+01, .964820D+00, .710740D+00, .524759D+00,
1755 + .386463D+00, .284560D+00, .209087D+00, .153206D+00,
1756 + .111861D+00, .813223D-01, .588200D-01, .422990D-01,
1757 + .302230D-01, .214427D-01, .150951D-01, .105388D-01,
1758 + .729252D-02, .499567D-02, .339357D-02, .227553D-02 /
1759 DATA (UPDI(I),I=6345,6396) /
1760 + .150923D-02, .990612D-03, .643853D-03, .415246D-03,
1761 + .266425D-03, .170956D-03, .110345D-03, .722935D-04,
1762 + .484409D-04, .335587D-04, .239499D-04, .175935D-04,
1763 + .131665D-04, .992629D-05, .743825D-05, .547744D-05,
1764 + .391577D-05, .268018D-05, .173402D-05, .103878D-05,
1765 + .559141D-06, .257481D-06, .923330D-07, .212199D-07,
1766 + .183187D-08, .000000D+00, .522637D+06, .418377D+06,
1767 + .331966D+06, .263402D+06, .209000D+06, .165834D+06,
1768 + .131584D+06, .104408D+06, .828447D+05, .657354D+05,
1769 + .521598D+05, .413882D+05, .328413D+05, .260597D+05,
1770 + .206787D+05, .164090D+05, .130212D+05, .103330D+05,
1771 + .820003D+04, .650751D+04, .516451D+04, .409884D+04,
1772 + .325321D+04, .258218D+04, .204969D+04, .162712D+04 /
1773 DATA (UPDI(I),I=6397,6448) /
1774 + .129178D+04, .102230D+04, .811859D+03, .644822D+03,
1775 + .512231D+03, .406980D+03, .323432D+03, .257291D+03,
1776 + .204651D+03, .162892D+03, .129770D+03, .103503D+03,
1777 + .826771D+02, .661634D+02, .530915D+02, .427291D+02,
1778 + .345187D+02, .280115D+02, .228500D+02, .187500D+02,
1779 + .154958D+02, .128776D+02, .107854D+02, .908125D+01,
1780 + .769509D+01, .655165D+01, .559816D+01, .479410D+01,
1781 + .410875D+01, .351898D+01, .300752D+01, .256149D+01,
1782 + .217127D+01, .182960D+01, .153086D+01, .127055D+01,
1783 + .104492D+01, .851532D+00, .685424D+00, .545067D+00,
1784 + .427768D+00, .330929D+00, .252051D+00, .188741D+00,
1785 + .138737D+00, .999302D-01, .703702D-01, .483091D-01,
1786 + .323649D-01, .209675D-01, .131187D-01, .788755D-02 /
1787 DATA (UPDI(I),I=6449,6500) /
1788 + .452906D-02, .246437D-02, .125799D-02, .595368D-03,
1789 + .255233D-03, .973567D-04, .317391D-04, .835419D-05,
1790 + .161376D-05, .191264D-06, .930341D-08, .513152D-10,
1791 + .000000D+00, .118714D+07, .936845D+06, .731450D+06,
1792 + .570958D+06, .445727D+06, .347880D+06, .271540D+06,
1793 + .211897D+06, .165369D+06, .129023D+06, .100673D+06,
1794 + .785305D+05, .612619D+05, .477766D+05, .372619D+05,
1795 + .290525D+05, .226529D+05, .176576D+05, .137646D+05,
1796 + .107265D+05, .835955D+04, .651286D+04, .507454D+04,
1797 + .395276D+04, .307929D+04, .239823D+04, .186808D+04,
1798 + .144983D+04, .112956D+04, .879979D+03, .685795D+03,
1799 + .534511D+03, .416832D+03, .325411D+03, .254118D+03,
1800 + .198623D+03, .155482D+03, .121901D+03, .957898D+02 /
1801 DATA (UPDI(I),I=6501,6552) /
1802 + .754496D+02, .596389D+02, .473086D+02, .376976D+02,
1803 + .301887D+02, .243156D+02, .197051D+02, .160877D+02,
1804 + .132050D+02, .109232D+02, .908019D+01, .759416D+01,
1805 + .637908D+01, .537586D+01, .453904D+01, .383464D+01,
1806 + .323686D+01, .272634D+01, .228842D+01, .191187D+01,
1807 + .158807D+01, .131004D+01, .107227D+01, .869784D+00,
1808 + .699351D+00, .555489D+00, .436046D+00, .337871D+00,
1809 + .258166D+00, .194263D+00, .143778D+00, .104492D+00,
1810 + .744577D-01, .519082D-01, .353057D-01, .234584D-01,
1811 + .150958D-01, .939865D-02, .564005D-02, .324435D-02,
1812 + .177946D-02, .923065D-03, .450029D-03, .202827D-03,
1813 + .840697D-04, .313762D-04, .103197D-04, .286411D-05,
1814 + .609146D-06, .780581D-07, .000000D+00, .000000D+00 /
1815 DATA (UPDI(I),I=6553,6604) /
1816 + .213151D+07, .166829D+07, .129030D+07, .997552D+06,
1817 + .771216D+06, .595981D+06, .460551D+06, .355737D+06,
1818 + .274765D+06, .212123D+06, .163753D+06, .126350D+06,
1819 + .974822D+05, .751711D+05, .579609D+05, .446668D+05,
1820 + .344182D+05, .265063D+05, .204109D+05, .157082D+05,
1821 + .120876D+05, .929619D+04, .714875D+04, .549436D+04,
1822 + .422256D+04, .324339D+04, .249131D+04, .190586D+04,
1823 + .146370D+04, .112383D+04, .863119D+03, .662873D+03,
1824 + .509369D+03, .391835D+03, .301540D+03, .232286D+03,
1825 + .179255D+03, .138580D+03, .107420D+03, .834929D+02,
1826 + .651565D+02, .510478D+02, .401933D+02, .318150D+02,
1827 + .253370D+02, .203040D+02, .163939D+02, .133054D+02,
1828 + .108816D+02, .894005D+01, .738761D+01, .612931D+01 /
1829 DATA (UPDI(I),I=6605,6656) /
1830 + .510026D+01, .425090D+01, .354422D+01, .295217D+01,
1831 + .245350D+01, .203205D+01, .167520D+01, .137323D+01,
1832 + .111811D+01, .903511D+00, .723643D+00, .574682D+00,
1833 + .450910D+00, .349753D+00, .267861D+00, .202369D+00,
1834 + .150615D+00, .110307D+00, .793635D-01, .560228D-01,
1835 + .387231D-01, .261369D-01, .172552D-01, .110516D-01,
1836 + .686261D-02, .411980D-02, .237984D-02, .131803D-02,
1837 + .695147D-03, .347965D-03, .163018D-03, .712933D-04,
1838 + .285173D-04, .101820D-04, .307164D-05, .699376D-06,
1839 + .929885D-07, .000000D+00, .000000D+00, .341006D+07,
1840 + .265225D+07, .203655D+07, .156294D+07, .119931D+07,
1841 + .919769D+06, .705271D+06, .540478D+06, .414113D+06,
1842 + .317096D+06, .242757D+06, .185724D+06, .142057D+06 /
1843 DATA (UPDI(I),I=6657,6708) /
1844 + .108582D+06, .829734D+05, .633590D+05, .483675D+05,
1845 + .368956D+05, .281362D+05, .214399D+05, .163322D+05,
1846 + .124315D+05, .945972D+04, .719283D+04, .546767D+04,
1847 + .415303D+04, .315396D+04, .238466D+04, .181000D+04,
1848 + .137323D+04, .104199D+04, .790531D+03, .600024D+03,
1849 + .455909D+03, .346530D+03, .263669D+03, .200997D+03,
1850 + .153522D+03, .117598D+03, .903473D+02, .697111D+02,
1851 + .540161D+02, .420746D+02, .329548D+02, .259737D+02,
1852 + .206004D+02, .164628D+02, .132217D+02, .106988D+02,
1853 + .869393D+01, .710396D+01, .582639D+01, .479123D+01,
1854 + .394549D+01, .324956D+01, .267350D+01, .219448D+01,
1855 + .179511D+01, .146170D+01, .118364D+01, .952157D+00,
1856 + .760325D+00, .601862D+00, .472541D+00, .366624D+00 /
1857 DATA (UPDI(I),I=6709,6760) /
1858 + .281286D+00, .213153D+00, .159401D+00, .117479D+00,
1859 + .852451D-01, .608005D-01, .425802D-01, .292267D-01,
1860 + .196103D-01, .128879D-01, .823171D-02, .510875D-02,
1861 + .307404D-02, .178616D-02, .999463D-03, .535345D-03,
1862 + .273801D-03, .131893D-03, .596149D-04, .247079D-04,
1863 + .911899D-05, .281810D-05, .648497D-06, .857337D-07,
1864 + .000000D+00, .000000D+00, .508177D+07, .393137D+07,
1865 + .300012D+07, .228802D+07, .174450D+07, .132921D+07,
1866 + .101250D+07, .770718D+06, .586486D+06, .445965D+06,
1867 + .338994D+06, .257482D+06, .195494D+06, .148308D+06,
1868 + .112464D+06, .852104D+05, .645317D+05, .488276D+05,
1869 + .369275D+05, .279017D+05, .210714D+05, .158981D+05,
1870 + .119890D+05, .903259D+04, .680196D+04, .511712D+04 /
1871 DATA (UPDI(I),I=6761,6812) /
1872 + .384833D+04, .288042D+04, .216422D+04, .162513D+04,
1873 + .122027D+04, .916019D+03, .687838D+03, .517024D+03,
1874 + .388729D+03, .292580D+03, .220629D+03, .166715D+03,
1875 + .126353D+03, .960631D+02, .733634D+02, .562761D+02,
1876 + .434026D+02, .336648D+02, .262776D+02, .206408D+02,
1877 + .163358D+02, .129902D+02, .104063D+02, .836902D+01,
1878 + .676628D+01, .548942D+01, .446417D+01, .363477D+01,
1879 + .295945D+01, .240681D+01, .195275D+01, .157896D+01,
1880 + .127095D+01, .101750D+01, .809358D+00, .639200D+00,
1881 + .500517D+00, .388850D+00, .298595D+00, .226817D+00,
1882 + .170233D+00, .126143D+00, .921651D-01, .663382D-01,
1883 + .469662D-01, .326769D-01, .223057D-01, .149013D-01,
1884 + .976488D-02, .623003D-02, .387044D-02, .233726D-02 /
1885 DATA (UPDI(I),I=6813,6864) /
1886 + .136696D-02, .772438D-03, .419256D-03, .217975D-03,
1887 + .107003D-03, .493092D-04, .207954D-04, .776824D-05,
1888 + .240966D-05, .551532D-06, .718140D-07, .000000D+00,
1889 + .000000D+00, .760683D+07, .585142D+07, .443599D+07,
1890 + .336055D+07, .254484D+07, .192570D+07, .145656D+07,
1891 + .110085D+07, .831617D+06, .627707D+06, .473553D+06,
1892 + .356941D+06, .268896D+06, .202379D+06, .152225D+06,
1893 + .114387D+06, .858996D+05, .644400D+05, .483086D+05,
1894 + .361762D+05, .270716D+05, .202358D+05, .151154D+05,
1895 + .112780D+05, .840881D+04, .626202D+04, .466085D+04,
1896 + .345147D+04, .256550D+04, .190550D+04, .141492D+04,
1897 + .105022D+04, .779608D+03, .579285D+03, .430481D+03,
1898 + .320236D+03, .238668D+03, .178255D+03, .133541D+03 /
1899 DATA (UPDI(I),I=6865,6916) /
1900 + .100371D+03, .757890D+02, .574906D+02, .438509D+02,
1901 + .336416D+02, .259735D+02, .201788D+02, .157942D+02,
1902 + .124178D+02, .983372D+01, .781522D+01, .624224D+01,
1903 + .500175D+01, .401628D+01, .322823D+01, .259439D+01,
1904 + .208244D+01, .166752D+01, .133081D+01, .105741D+01,
1905 + .835787D+00, .656512D+00, .512159D+00, .396252D+00,
1906 + .304300D+00, .231058D+00, .173637D+00, .128996D+00,
1907 + .946740D-01, .685614D-01, .489535D-01, .344140D-01,
1908 + .238024D-01, .161740D-01, .107720D-01, .705005D-02,
1909 + .450160D-02, .280553D-02, .170387D-02, .100493D-02,
1910 + .574086D-03, .315713D-03, .166511D-03, .829300D-04,
1911 + .386887D-04, .164521D-04, .615698D-05, .189865D-05,
1912 + .428917D-06, .548714D-07, .000000D+00, .000000D+00 /
1913 DATA (UPDI(I),I=6917,6968) /
1914 + .109294D+08, .836256D+07, .630047D+07, .474312D+07,
1915 + .356891D+07, .268318D+07, .201616D+07, .151364D+07,
1916 + .113569D+07, .851324D+06, .637749D+06, .477286D+06,
1917 + .356946D+06, .266671D+06, .199077D+06, .148452D+06,
1918 + .110612D+06, .823218D+05, .612146D+05, .454639D+05,
1919 + .337357D+05, .250014D+05, .185116D+05, .136889D+05,
1920 + .101134D+05, .746127D+04, .550080D+04, .403357D+04,
1921 + .296860D+04, .218281D+04, .160427D+04, .117844D+04,
1922 + .865574D+03, .636344D+03, .467798D+03, .344240D+03,
1923 + .253775D+03, .187488D+03, .138941D+03, .103310D+03,
1924 + .771777D+02, .579262D+02, .437188D+02, .331894D+02,
1925 + .253555D+02, .194904D+02, .150926D+02, .117364D+02,
1926 + .919090D+01, .722094D+01, .570038D+01, .451330D+01 /
1927 DATA (UPDI(I),I=6969,7020) /
1928 + .358023D+01, .284251D+01, .225618D+01, .178853D+01,
1929 + .141445D+01, .111497D+01, .875145D+00, .683465D+00,
1930 + .530587D+00, .409212D+00, .313101D+00, .237896D+00,
1931 + .178795D+00, .133065D+00, .979608D-01, .712965D-01,
1932 + .512422D-01, .363444D-01, .254072D-01, .174957D-01,
1933 + .118526D-01, .788165D-02, .515897D-02, .330040D-02,
1934 + .206475D-02, .126101D-02, .749167D-03, .431601D-03,
1935 + .239513D-03, .127408D-03, .639061D-04, .299326D-04,
1936 + .127261D-04, .473544D-05, .144353D-05, .320787D-06,
1937 + .402101D-07, .000000D+00, .000000D+00, .151792D+08,
1938 + .115562D+08, .865574D+07, .647768D+07, .484474D+07,
1939 + .362021D+07, .270340D+07, .201686D+07, .150360D+07,
1940 + .111982D+07, .833362D+06, .619516D+06, .460162D+06 /
1941 DATA (UPDI(I),I=7021,7072) /
1942 + .341408D+06, .253075D+06, .187370D+06, .138591D+06,
1943 + .102380D+06, .755541D+05, .556820D+05, .409931D+05,
1944 + .301369D+05, .221317D+05, .162297D+05, .118884D+05,
1945 + .869462D+04, .635335D+04, .461611D+04, .336607D+04,
1946 + .245192D+04, .178485D+04, .129840D+04, .944289D+03,
1947 + .687321D+03, .500178D+03, .364336D+03, .265847D+03,
1948 + .194401D+03, .142592D+03, .104945D+03, .776033D+02,
1949 + .576572D+02, .430761D+02, .323714D+02, .244793D+02,
1950 + .186239D+02, .142721D+02, .109804D+02, .850626D+01,
1951 + .660917D+01, .515879D+01, .403783D+01, .316594D+01,
1952 + .248421D+01, .194863D+01, .152661D+01, .119322D+01,
1953 + .929741D+00, .721478D+00, .557205D+00, .427901D+00,
1954 + .326575D+00, .247363D+00, .186157D+00, .138644D+00 /
1955 DATA (UPDI(I),I=7073,7124) /
1956 + .102313D+00, .747382D-01, .540152D-01, .385846D-01,
1957 + .272257D-01, .189551D-01, .130147D-01, .880261D-02,
1958 + .585165D-02, .383429D-02, .245887D-02, .154396D-02,
1959 + .947358D-03, .565841D-03, .327747D-03, .182768D-03,
1960 + .975554D-04, .489919D-04, .229011D-04, .968034D-05,
1961 + .356513D-05, .107090D-05, .233706D-06, .286719D-07,
1962 + .000000D+00, .000000D+00, .204883D+08, .155244D+08,
1963 + .115633D+08, .860491D+07, .639894D+07, .475392D+07,
1964 + .352913D+07, .261722D+07, .193936D+07, .143550D+07,
1965 + .106162D+07, .784207D+06, .578736D+06, .426576D+06,
1966 + .314101D+06, .230980D+06, .169670D+06, .124461D+06,
1967 + .911925D+05, .667190D+05, .487542D+05, .355722D+05,
1968 + .259219D+05, .188599D+05, .137042D+05, .994047D+04 /
1969 DATA (UPDI(I),I=7125,7176) /
1970 + .720314D+04, .518842D+04, .375057D+04, .270790D+04,
1971 + .195345D+04, .140808D+04, .101453D+04, .731519D+03,
1972 + .527265D+03, .380378D+03, .274864D+03, .199043D+03,
1973 + .144574D+03, .105368D+03, .771580D+02, .567691D+02,
1974 + .419992D+02, .312536D+02, .234012D+02, .176262D+02,
1975 + .133715D+02, .101814D+02, .780499D+01, .599953D+01,
1976 + .463224D+01, .358596D+01, .278051D+01, .215753D+01,
1977 + .167355D+01, .129662D+01, .100237D+01, .772632D+00,
1978 + .593257D+00, .453500D+00, .344829D+00, .260688D+00,
1979 + .195682D+00, .146022D+00, .107897D+00, .790479D-01,
1980 + .573699D-01, .412276D-01, .293092D-01, .206015D-01,
1981 + .143030D-01, .980329D-02, .662612D-02, .440647D-02,
1982 + .289130D-02, .185826D-02, .117019D-02, .720280D-03 /
1983 DATA (UPDI(I),I=7177,7228) /
1984 + .431533D-03, .250553D-03, .139898D-03, .746307D-04,
1985 + .373704D-04, .173670D-04, .727470D-05, .264528D-05,
1986 + .781897D-06, .167496D-06, .201159D-07, .000000D+00,
1987 + .000000D+00, .269839D+08, .203541D+08, .150800D+08,
1988 + .111615D+08, .825478D+07, .609878D+07, .450207D+07,
1989 + .331978D+07, .244573D+07, .179973D+07, .132305D+07,
1990 + .971428D+06, .712499D+06, .521900D+06, .381852D+06,
1991 + .278994D+06, .203595D+06, .148351D+06, .107958D+06,
1992 + .784395D+05, .569147D+05, .412285D+05, .298237D+05,
1993 + .215369D+05, .155302D+05, .111773D+05, .803522D+04,
1994 + .574039D+04, .411540D+04, .294642D+04, .210735D+04,
1995 + .150584D+04, .107537D+04, .768470D+03, .548870D+03,
1996 + .392339D+03, .280887D+03, .201517D+03, .145005D+03 /
1997 DATA (UPDI(I),I=7229,7280) /
1998 + .104694D+03, .759464D+02, .553534D+02, .405657D+02,
1999 + .299009D+02, .221743D+02, .165404D+02, .124251D+02,
2000 + .936627D+01, .710767D+01, .540727D+01, .413157D+01,
2001 + .316486D+01, .242815D+01, .186428D+01, .143094D+01,
2002 + .109717D+01, .839544D+00, .640687D+00, .487193D+00,
2003 + .368956D+00, .278047D+00, .208429D+00, .155212D+00,
2004 + .114975D+00, .843834D-01, .614481D-01, .443610D-01,
2005 + .317359D-01, .224793D-01, .157570D-01, .109192D-01,
2006 + .747648D-02, .505252D-02, .336180D-02, .220833D-02,
2007 + .142143D-02, .896564D-03, .552613D-03, .331345D-03,
2008 + .192333D-03, .107214D-03, .569934D-04, .283754D-04,
2009 + .130780D-04, .541820D-05, .194286D-05, .564806D-06,
2010 + .118777D-06, .139737D-07, .000000D+00, .000000D+00 /
2011 DATA (UPDI(I),I=7281,7332) /
2012 + .347836D+08, .261243D+08, .192561D+08, .141788D+08,
2013 + .104313D+08, .766591D+07, .562840D+07, .412769D+07,
2014 + .302408D+07, .221282D+07, .161745D+07, .118072D+07,
2015 + .860909D+06, .626847D+06, .455852D+06, .331009D+06,
2016 + .240035D+06, .173789D+06, .125648D+06, .906892D+05,
2017 + .653595D+05, .470213D+05, .337761D+05, .242173D+05,
2018 + .173360D+05, .123842D+05, .883554D+04, .626281D+04,
2019 + .445464D+04, .316379D+04, .224436D+04, .159045D+04,
2020 + .112621D+04, .797931D+03, .564964D+03, .400303D+03,
2021 + .284049D+03, .201970D+03, .144027D+03, .103053D+03,
2022 + .740798D+02, .535032D+02, .388518D+02, .283746D+02,
2023 + .208472D+02, .154045D+02, .114623D+02, .855697D+01,
2024 + .643040D+01, .484367D+01, .366417D+01, .277884D+01 /
2025 DATA (UPDI(I),I=7333,7384) /
2026 + .211073D+01, .160451D+01, .121948D+01, .926023D+00,
2027 + .701918D+00, .530772D+00, .400067D+00, .300434D+00,
2028 + .224612D+00, .167121D+00, .123593D+00, .909784D-01,
2029 + .663943D-01, .481079D-01, .345831D-01, .246540D-01,
2030 + .174151D-01, .121826D-01, .843130D-02, .576908D-02,
2031 + .389816D-02, .259435D-02, .170500D-02, .109793D-02,
2032 + .692643D-03, .426747D-03, .255555D-03, .147974D-03,
2033 + .821646D-04, .434313D-04, .214584D-04, .979337D-05,
2034 + .400855D-05, .141658D-05, .404986D-06, .836350D-07,
2035 + .964722D-08, .000000D+00, .000000D+00, .439908D+08,
2036 + .329027D+08, .241328D+08, .176812D+08, .129422D+08,
2037 + .946254D+07, .691143D+07, .504201D+07, .367422D+07,
2038 + .267403D+07, .194383D+07, .141108D+07, .102305D+07 /
2039 DATA (UPDI(I),I=7385,7436) /
2040 + .740637D+06, .535457D+06, .386510D+06, .278592D+06,
2041 + .200469D+06, .144032D+06, .103300D+06, .739662D+05,
2042 + .528631D+05, .377175D+05, .268585D+05, .190925D+05,
2043 + .135417D+05, .959137D+04, .674761D+04, .476330D+04,
2044 + .335707D+04, .236284D+04, .166111D+04, .116672D+04,
2045 + .819867D+03, .575658D+03, .404446D+03, .284545D+03,
2046 + .200587D+03, .141805D+03, .100581D+03, .716719D+02,
2047 + .513099D+02, .369297D+02, .267308D+02, .194631D+02,
2048 + .142511D+02, .105070D+02, .777083D+01, .578513D+01,
2049 + .431644D+01, .323447D+01, .242981D+01, .182830D+01,
2050 + .137693D+01, .103698D+01, .780437D+00, .586468D+00,
2051 + .439797D+00, .328875D+00, .245127D+00, .181981D+00,
2052 + .134525D+00, .988988D-01, .724145D-01, .525982D-01 /
2053 DATA (UPDI(I),I=7437,7488) /
2054 + .379568D-01, .271929D-01, .193319D-01, .136264D-01,
2055 + .951711D-02, .657941D-02, .449871D-02, .303840D-02,
2056 + .202141D-02, .132788D-02, .854434D-03, .538350D-03,
2057 + .331010D-03, .197629D-03, .113952D-03, .629209D-04,
2058 + .330221D-04, .161705D-04, .730096D-05, .295061D-05,
2059 + .102737D-05, .288874D-06, .586065D-07, .663441D-08,
2060 + .000000D+00, .000000D+00, .546911D+08, .407429D+08,
2061 + .297410D+08, .216852D+08, .157953D+08, .114916D+08,
2062 + .835134D+07, .606154D+07, .439442D+07, .318150D+07,
2063 + .230047D+07, .166101D+07, .119768D+07, .862261D+06,
2064 + .619878D+06, .444893D+06, .318809D+06, .228055D+06,
2065 + .162867D+06, .116094D+06, .826096D+05, .586665D+05,
2066 + .415878D+05, .294197D+05, .207726D+05, .146323D+05 /
2067 DATA (UPDI(I),I=7489,7540) /
2068 + .102916D+05, .718804D+04, .503744D+04, .352410D+04,
2069 + .246175D+04, .171743D+04, .119687D+04, .834435D+03,
2070 + .581189D+03, .405021D+03, .282612D+03, .197577D+03,
2071 + .138513D+03, .974217D+02, .688346D+02, .488602D+02,
2072 + .348658D+02, .250196D+02, .180589D+02, .131070D+02,
2073 + .957844D+01, .702076D+01, .518012D+01, .383027D+01,
2074 + .284450D+01, .211788D+01, .157960D+01, .117938D+01,
2075 + .880739D+00, .657456D+00, .490188D+00, .364855D+00,
2076 + .270912D+00, .200592D+00, .148010D+00, .108802D+00,
2077 + .795846D-01, .580123D-01, .419724D-01, .301872D-01,
2078 + .215661D-01, .152965D-01, .107621D-01, .750558D-02,
2079 + .518266D-02, .353998D-02, .238844D-02, .158715D-02,
2080 + .104111D-02, .668605D-03, .420178D-03, .257466D-03 /
2081 DATA (UPDI(I),I=7541,7592) /
2082 + .153045D-03, .877560D-04, .481277D-04, .250522D-04,
2083 + .121487D-04, .542322D-05, .216333D-05, .742120D-06,
2084 + .205270D-06, .409284D-07, .455127D-08, .000000D+00,
2085 + .000000D+00, .669481D+08, .496822D+08, .360989D+08,
2086 + .261982D+08, .189923D+08, .137513D+08, .994506D+07,
2087 + .718284D+07, .518135D+07, .373230D+07, .268490D+07,
2088 + .192852D+07, .138323D+07, .990516D+06, .708205D+06,
2089 + .505480D+06, .360191D+06, .256188D+06, .181895D+06,
2090 + .128892D+06, .911654D+05, .643466D+05, .453298D+05,
2091 + .318633D+05, .223522D+05, .156408D+05, .109269D+05,
2092 + .757876D+04, .527416D+04, .366348D+04, .254057D+04,
2093 + .175936D+04, .121689D+04, .841953D+03, .581892D+03,
2094 + .402341D+03, .278521D+03, .193163D+03, .134328D+03 /
2095 DATA (UPDI(I),I=7593,7644) /
2096 + .937124D+02, .656737D+02, .462341D+02, .327192D+02,
2097 + .232839D+02, .166654D+02, .119935D+02, .869077D+01,
2098 + .631574D+01, .462041D+01, .338734D+01, .249439D+01,
2099 + .184178D+01, .136248D+01, .100919D+01, .747842D+00,
2100 + .554122D+00, .410233D+00, .303309D+00, .223809D+00,
2101 + .164757D+00, .120925D+00, .884644D-01, .644301D-01,
2102 + .467877D-01, .337391D-01, .241962D-01, .172440D-01,
2103 + .122054D-01, .857195D-02, .596854D-02, .411509D-02,
2104 + .280640D-02, .189024D-02, .125354D-02, .820281D-03,
2105 + .525195D-03, .328827D-03, .200573D-03, .118574D-03,
2106 + .675463D-04, .367610D-04, .189659D-04, .910314D-05,
2107 + .401646D-05, .158117D-05, .534422D-06, .145444D-06,
2108 + .285118D-07, .311734D-08, .000000D+00, .000000D+00 /
2109 DATA (UPDI(I),I=7645,7696) /
2110 + .732910D+05, .105777D+06, .809557D+05, .619684D+05,
2111 + .474428D+05, .363295D+05, .278262D+05, .213192D+05,
2112 + .163392D+05, .125273D+05, .960909D+04, .737452D+04,
2113 + .566307D+04, .435191D+04, .334710D+04, .257677D+04,
2114 + .198596D+04, .153259D+04, .118449D+04, .917037D+03,
2115 + .711381D+03, .553099D+03, .431148D+03, .337074D+03,
2116 + .264402D+03, .208173D+03, .164585D+03, .130304D+03,
2117 + .104043D+03, .835379D+02, .674786D+02, .548601D+02,
2118 + .449094D+02, .370528D+02, .307899D+02, .257904D+02,
2119 + .217803D+02, .185473D+02, .159268D+02, .137897D+02,
2120 + .120389D+02, .105930D+02, .939122D+01, .838491D+01,
2121 + .753552D+01, .681248D+01, .619351D+01, .565320D+01,
2122 + .518260D+01, .476340D+01, .438988D+01, .405245D+01 /
2123 DATA (UPDI(I),I=7697,7748) /
2124 + .374475D+01, .346172D+01, .319939D+01, .295463D+01,
2125 + .272504D+01, .250877D+01, .230445D+01, .211104D+01,
2126 + .192780D+01, .175420D+01, .158987D+01, .143526D+01,
2127 + .128859D+01, .115075D+01, .102165D+01, .901247D+00,
2128 + .789488D+00, .686304D+00, .591604D+00, .505263D+00,
2129 + .427072D+00, .356772D+00, .294716D+00, .239687D+00,
2130 + .191803D+00, .150663D+00, .115834D+00, .868428D-01,
2131 + .631899D-01, .443766D-01, .297510D-01, .188816D-01,
2132 + .111310D-01, .593418D-02, .273533D-02, .100206D-02,
2133 + .241459D-03, .208953D-04, .000000D+00, .157088D+06,
2134 + .121961D+06, .934859D+05, .716619D+05, .549404D+05,
2135 + .421241D+05, .323036D+05, .247760D+05, .190074D+05,
2136 + .145851D+05, .111956D+05, .859664D+04, .660420D+04 /
2137 DATA (UPDI(I),I=7749,7800) /
2138 + .507602D+04, .390406D+04, .300478D+04, .231477D+04,
2139 + .178497D+04, .137815D+04, .106551D+04, .825188D+03,
2140 + .640267D+03, .497906D+03, .388166D+03, .303506D+03,
2141 + .238088D+03, .187485D+03, .147761D+03, .117412D+03,
2142 + .937745D+02, .753265D+02, .608791D+02, .495327D+02,
2143 + .406096D+02, .335303D+02, .279042D+02, .234148D+02,
2144 + .198123D+02, .169078D+02, .145501D+02, .126285D+02,
2145 + .110484D+02, .974109D+01, .865049D+01, .773357D+01,
2146 + .695552D+01, .629164D+01, .571374D+01, .521198D+01,
2147 + .476627D+01, .437050D+01, .401419D+01, .369062D+01,
2148 + .339432D+01, .312107D+01, .286750D+01, .263106D+01,
2149 + .240972D+01, .220198D+01, .200667D+01, .182292D+01,
2150 + .165009D+01, .148764D+01, .133590D+01, .119298D+01 /
2151 DATA (UPDI(I),I=7801,7852) /
2152 + .105963D+01, .935634D+00, .820830D+00, .715030D+00,
2153 + .618054D+00, .529686D+00, .449705D+00, .377820D+00,
2154 + .313654D+00, .257440D+00, .207974D+00, .165267D+00,
2155 + .128881D+00, .983293D-01, .731248D-01, .527453D-01,
2156 + .366985D-01, .243526D-01, .152830D-01, .889646D-02,
2157 + .467515D-02, .211868D-02, .760409D-03, .179338D-03,
2158 + .156633D-04, .000000D+00, .186818D+06, .145066D+06,
2159 + .111209D+06, .852474D+05, .653506D+05, .500952D+05,
2160 + .384046D+05, .294421D+05, .225745D+05, .173098D+05,
2161 + .132759D+05, .101836D+05, .781420D+04, .599780D+04,
2162 + .460592D+04, .353871D+04, .272074D+04, .209337D+04,
2163 + .161231D+04, .124315D+04, .959893D+03, .742330D+03,
2164 + .575211D+03, .446677D+03, .347782D+03, .271575D+03 /
2165 DATA (UPDI(I),I=7853,7904) /
2166 + .212821D+03, .166848D+03, .131853D+03, .104702D+03,
2167 + .836022D+02, .671492D+02, .542895D+02, .442245D+02,
2168 + .362808D+02, .299997D+02, .250148D+02, .210350D+02,
2169 + .178436D+02, .152658D+02, .131754D+02, .114642D+02,
2170 + .100548D+02, .888343D+01, .790235D+01, .707257D+01,
2171 + .636681D+01, .575423D+01, .522401D+01, .475439D+01,
2172 + .433878D+01, .396590D+01, .362865D+01, .332114D+01,
2173 + .303891D+01, .277834D+01, .253671D+01, .231182D+01,
2174 + .210204D+01, .190605D+01, .172285D+01, .155167D+01,
2175 + .139182D+01, .124351D+01, .110475D+01, .976157D+00,
2176 + .857391D+00, .748173D+00, .648202D+00, .557195D+00,
2177 + .474830D+00, .400801D+00, .334743D+00, .276187D+00,
2178 + .225261D+00, .180780D+00, .142669D+00, .110452D+00 /
2179 DATA (UPDI(I),I=7905,7956) /
2180 + .836234D-01, .616848D-01, .441045D-01, .303993D-01,
2181 + .199638D-01, .123860D-01, .711701D-02, .368463D-02,
2182 + .164034D-02, .576080D-03, .132759D-03, .117129D-04,
2183 + .000000D+00, .227097D+06, .176176D+06, .134904D+06,
2184 + .103282D+06, .790702D+05, .605242D+05, .463280D+05,
2185 + .354569D+05, .271378D+05, .207690D+05, .158965D+05,
2186 + .121671D+05, .931450D+04, .713155D+04, .546209D+04,
2187 + .418464D+04, .320772D+04, .246014D+04, .188837D+04,
2188 + .145072D+04, .111587D+04, .859425D+03, .663069D+03,
2189 + .512541D+03, .397135D+03, .308533D+03, .240498D+03,
2190 + .187480D+03, .147300D+03, .116265D+03, .922636D+02,
2191 + .736395D+02, .591580D+02, .478826D+02, .390321D+02,
2192 + .320714D+02, .265777D+02, .222151D+02, .187352D+02 /
2193 DATA (UPDI(I),I=7957,8008) /
2194 + .159386D+02, .136821D+02, .118431D+02, .103349D+02,
2195 + .908632D+01, .804436D+01, .716596D+01, .642119D+01,
2196 + .577665D+01, .522044D+01, .472928D+01, .429603D+01,
2197 + .390869D+01, .355972D+01, .324284D+01, .295335D+01,
2198 + .268738D+01, .244203D+01, .221494D+01, .200431D+01,
2199 + .180868D+01, .162694D+01, .145817D+01, .130154D+01,
2200 + .115714D+01, .102288D+01, .899255D+00, .785807D+00,
2201 + .682153D+00, .587888D+00, .502634D+00, .425979D+00,
2202 + .357542D+00, .296894D+00, .243494D+00, .197377D+00,
2203 + .157386D+00, .123374D+00, .948421D-01, .712717D-01,
2204 + .521594D-01, .369767D-01, .252541D-01, .164180D-01,
2205 + .100733D-01, .571556D-02, .291654D-02, .127627D-02,
2206 + .439012D-03, .990067D-04, .882004D-05, .000000D+00 /
2207 DATA (UPDI(I),I=8009,8060) /
2208 + .163573D+06, .216587D+06, .165499D+06, .126427D+06,
2209 + .965691D+05, .737433D+05, .563076D+05, .429843D+05,
2210 + .328116D+05, .250416D+05, .191115D+05, .145840D+05,
2211 + .111300D+05, .849387D+04, .648351D+04, .494963D+04,
2212 + .378018D+04, .288804D+04, .220794D+04, .168912D+04,
2213 + .129357D+04, .991735D+03, .761505D+03, .585701D+03,
2214 + .451473D+03, .348856D+03, .270417D+03, .209569D+03,
2215 + .163677D+03, .128403D+03, .101264D+03, .803148D+02,
2216 + .641125D+02, .515657D+02, .417718D+02, .341116D+02,
2217 + .280991D+02, .233500D+02, .195820D+02, .165690D+02,
2218 + .141494D+02, .121865D+02, .105832D+02, .926099D+01,
2219 + .816146D+01, .723752D+01, .645653D+01, .578263D+01,
2220 + .520281D+01, .469235D+01, .424354D+01, .384368D+01 /
2221 DATA (UPDI(I),I=8061,8112) /
2222 + .348478D+01, .316022D+01, .286502D+01, .259509D+01,
2223 + .234732D+01, .211919D+01, .190875D+01, .171440D+01,
2224 + .153488D+01, .136916D+01, .121626D+01, .107613D+01,
2225 + .946639D+00, .828127D+00, .720039D+00, .621892D+00,
2226 + .533190D+00, .453472D+00, .382247D+00, .319068D+00,
2227 + .263451D+00, .214800D+00, .173070D+00, .137135D+00,
2228 + .106792D+00, .815286D-01, .608204D-01, .441665D-01,
2229 + .310494D-01, .210162D-01, .135282D-01, .821006D-02,
2230 + .460124D-02, .231495D-02, .996205D-03, .335897D-03,
2231 + .742248D-04, .667439D-05, .000000D+00, .364247D+06,
2232 + .281224D+06, .214146D+06, .163013D+06, .124062D+06,
2233 + .943867D+05, .717950D+05, .545931D+05, .415055D+05,
2234 + .315463D+05, .239737D+05, .182148D+05, .138385D+05 /
2235 DATA (UPDI(I),I=8113,8164) /
2236 + .105122D+05, .798598D+04, .606681D+04, .460996D+04,
2237 + .350364D+04, .266411D+04, .202675D+04, .154318D+04,
2238 + .117606D+04, .897462D+03, .685870D+03, .525198D+03,
2239 + .403064D+03, .310254D+03, .238692D+03, .185050D+03,
2240 + .144084D+03, .112767D+03, .887538D+02, .703054D+02,
2241 + .561174D+02, .451172D+02, .365726D+02, .299106D+02,
2242 + .246835D+02, .205623D+02, .172871D+02, .146721D+02,
2243 + .125620D+02, .108470D+02, .943917D+01, .827334D+01,
2244 + .729757D+01, .647580D+01, .576928D+01, .516359D+01,
2245 + .463237D+01, .416713D+01, .375440D+01, .338562D+01,
2246 + .305379D+01, .275355D+01, .248055D+01, .223143D+01,
2247 + .200348D+01, .179455D+01, .160286D+01, .142699D+01,
2248 + .126576D+01, .111802D+01, .983571D+00, .860203D+00 /
2249 DATA (UPDI(I),I=8165,8216) /
2250 + .748105D+00, .646602D+00, .555104D+00, .473016D+00,
2251 + .399786D+00, .334846D+00, .277679D+00, .227747D+00,
2252 + .184405D+00, .147526D+00, .116030D+00, .896595D-01,
2253 + .678967D-01, .502205D-01, .361409D-01, .251622D-01,
2254 + .168557D-01, .107275D-01, .642984D-02, .355371D-02,
2255 + .175992D-02, .743609D-03, .245469D-03, .531422D-04,
2256 + .482530D-05, .000000D+00, .475225D+06, .365620D+06,
2257 + .277277D+06, .210196D+06, .159298D+06, .120675D+06,
2258 + .913899D+05, .691841D+05, .523600D+05, .396124D+05,
2259 + .299615D+05, .226546D+05, .171269D+05, .129448D+05,
2260 + .978331D+04, .739309D+04, .558741D+04, .422302D+04,
2261 + .319288D+04, .241486D+04, .182768D+04, .138430D+04,
2262 + .104969D+04, .796999D+03, .606220D+03, .462057D+03 /
2263 DATA (UPDI(I),I=8217,8268) /
2264 + .353175D+03, .269742D+03, .207599D+03, .160447D+03,
2265 + .124637D+03, .973630D+02, .765490D+02, .606509D+02,
2266 + .484073D+02, .389613D+02, .316447D+02, .259410D+02,
2267 + .214717D+02, .179410D+02, .151374D+02, .128869D+02,
2268 + .110664D+02, .957862D+01, .835151D+01, .732838D+01,
2269 + .646981D+01, .573430D+01, .510598D+01, .455698D+01,
2270 + .407804D+01, .365495D+01, .327861D+01, .294161D+01,
2271 + .263825D+01, .236392D+01, .211502D+01, .188862D+01,
2272 + .168240D+01, .149440D+01, .132303D+01, .116698D+01,
2273 + .102493D+01, .896548D+00, .779553D+00, .673988D+00,
2274 + .579073D+00, .494124D+00, .418459D+00, .351450D+00,
2275 + .292465D+00, .240933D+00, .196269D+00, .157799D+00,
2276 + .125328D+00, .978239D-01, .749929D-01, .563180D-01 /
2277 DATA (UPDI(I),I=8269,8320) /
2278 + .412903D-01, .294369D-01, .202887D-01, .134441D-01,
2279 + .845441D-02, .500090D-02, .272307D-02, .132574D-02,
2280 + .549046D-03, .177029D-03, .374489D-04, .343843D-05,
2281 + .000000D+00, .617585D+06, .473358D+06, .357410D+06,
2282 + .269742D+06, .203505D+06, .153459D+06, .115680D+06,
2283 + .871598D+05, .656489D+05, .494246D+05, .371983D+05,
2284 + .279851D+05, .210484D+05, .158258D+05, .118971D+05,
2285 + .894172D+04, .672039D+04, .505063D+04, .379653D+04,
2286 + .285445D+04, .214731D+04, .161632D+04, .121786D+04,
2287 + .918683D+03, .694137D+03, .525474D+03, .398870D+03,
2288 + .302468D+03, .231122D+03, .177338D+03, .136757D+03,
2289 + .106054D+03, .827790D+02, .651199D+02, .516097D+02,
2290 + .412553D+02, .332862D+02, .271129D+02, .223041D+02 /
2291 DATA (UPDI(I),I=8321,8372) /
2292 + .185270D+02, .155435D+02, .131605D+02, .112415D+02,
2293 + .967990D+01, .839686D+01, .733105D+01, .643978D+01,
2294 + .567894D+01, .503125D+01, .446744D+01, .397748D+01,
2295 + .354647D+01, .316477D+01, .282461D+01, .251994D+01,
2296 + .224591D+01, .199866D+01, .177509D+01, .157265D+01,
2297 + .138926D+01, .122316D+01, .107288D+01, .936972D+00,
2298 + .814958D+00, .704518D+00, .605549D+00, .517181D+00,
2299 + .438645D+00, .369188D+00, .308119D+00, .254755D+00,
2300 + .208481D+00, .168681D+00, .134662D+00, .106177D+00,
2301 + .822466D-01, .625508D-01, .465827D-01, .338519D-01,
2302 + .239077D-01, .163116D-01, .106914D-01, .664303D-02,
2303 + .387766D-02, .208011D-02, .995518D-03, .404112D-03,
2304 + .127292D-03, .263257D-04, .244424D-05, .000000D+00 /
2305 DATA (UPDI(I),I=8373,8424) /
2306 + .796927D+06, .608458D+06, .457346D+06, .343591D+06,
2307 + .258022D+06, .193660D+06, .145291D+06, .108945D+06,
2308 + .816574D+05, .611728D+05, .458092D+05, .342875D+05,
2309 + .256550D+05, .191878D+05, .143472D+05, .107243D+05,
2310 + .801533D+04, .598971D+04, .447641D+04, .334578D+04,
2311 + .250177D+04, .187156D+04, .140133D+04, .105031D+04,
2312 + .788399D+03, .592848D+03, .446961D+03, .336571D+03,
2313 + .255388D+03, .194582D+03, .148997D+03, .114734D+03,
2314 + .889273D+02, .694765D+02, .546911D+02, .434321D+02,
2315 + .348201D+02, .281893D+02, .230536D+02, .190418D+02,
2316 + .158888D+02, .133823D+02, .113726D+02, .974380D+01,
2317 + .841051D+01, .730688D+01, .638715D+01, .560469D+01,
2318 + .494092D+01, .436523D+01, .386687D+01, .343029D+01 /
2319 DATA (UPDI(I),I=8425,8476) /
2320 + .304537D+01, .270394D+01, .239966D+01, .212742D+01,
2321 + .188314D+01, .166352D+01, .146583D+01, .128783D+01,
2322 + .112762D+01, .983587D+00, .854163D+00, .738728D+00,
2323 + .634937D+00, .542553D+00, .460627D+00, .388319D+00,
2324 + .324818D+00, .269383D+00, .221291D+00, .179898D+00,
2325 + .144565D+00, .114595D+00, .896982D-01, .689529D-01,
2326 + .520233D-01, .384187D-01, .276724D-01, .193596D-01,
2327 + .130750D-01, .847658D-02, .520375D-02, .299737D-02,
2328 + .158399D-02, .745212D-03, .296534D-03, .912834D-04,
2329 + .184725D-04, .173410D-05, .000000D+00, .101925D+07,
2330 + .775193D+06, .580031D+06, .433767D+06, .324233D+06,
2331 + .242213D+06, .180855D+06, .134960D+06, .100663D+06,
2332 + .750383D+05, .559107D+05, .416356D+05, .309923D+05 /
2333 DATA (UPDI(I),I=8477,8528) /
2334 + .230581D+05, .171492D+05, .127494D+05, .947633D+04,
2335 + .704176D+04, .523260D+04, .388821D+04, .289012D+04,
2336 + .214901D+04, .159914D+04, .119103D+04, .888313D+03,
2337 + .663622D+03, .497010D+03, .371717D+03, .280148D+03,
2338 + .211995D+03, .161222D+03, .123305D+03, .949273D+02,
2339 + .736747D+02, .576204D+02, .454711D+02, .362335D+02,
2340 + .291624D+02, .237156D+02, .194830D+02, .161723D+02,
2341 + .135525D+02, .114604D+02, .977144D+01, .839381D+01,
2342 + .725738D+01, .631346D+01, .551312D+01, .483650D+01,
2343 + .425183D+01, .374762D+01, .330775D+01, .292160D+01,
2344 + .258070D+01, .227838D+01, .200930D+01, .176916D+01,
2345 + .155448D+01, .136237D+01, .119043D+01, .103661D+01,
2346 + .899200D+00, .776498D+00, .667764D+00, .570637D+00 /
2347 DATA (UPDI(I),I=8529,8580) /
2348 + .484759D+00, .409116D+00, .342811D+00, .284984D+00,
2349 + .234858D+00, .191685D+00, .154797D+00, .123546D+00,
2350 + .972403D-01, .755596D-01, .576408D-01, .431414D-01,
2351 + .315923D-01, .225536D-01, .156295D-01, .104486D-01,
2352 + .669981D-02, .406355D-02, .230958D-02, .120234D-02,
2353 + .556059D-03, .216922D-03, .652822D-04, .129372D-04,
2354 + .122776D-05, .000000D+00, .129087D+07, .978022D+06,
2355 + .728511D+06, .542336D+06, .403526D+06, .300050D+06,
2356 + .222987D+06, .165609D+06, .122928D+06, .911879D+05,
2357 + .676073D+05, .500931D+05, .370977D+05, .274578D+05,
2358 + .203142D+05, .150218D+05, .111048D+05, .820636D+04,
2359 + .606377D+04, .448010D+04, .331070D+04, .244716D+04,
2360 + .181003D+04, .133983D+04, .993055D+03, .737156D+03 /
2361 DATA (UPDI(I),I=8581,8632) /
2362 + .548534D+03, .407547D+03, .305138D+03, .229386D+03,
2363 + .173300D+03, .131675D+03, .100715D+03, .776714D+02,
2364 + .603695D+02, .473543D+02, .375152D+02, .300256D+02,
2365 + .242866D+02, .198492D+02, .163941D+02, .136716D+02,
2366 + .115061D+02, .976425D+01, .834832D+01, .718416D+01,
2367 + .622034D+01, .540582D+01, .471956D+01, .412870D+01,
2368 + .362110D+01, .318009D+01, .279463D+01, .245591D+01,
2369 + .215699D+01, .189231D+01, .165736D+01, .144850D+01,
2370 + .126266D+01, .109732D+01, .950296D+00, .819768D+00,
2371 + .703936D+00, .601943D+00, .511427D+00, .431920D+00,
2372 + .362357D+00, .301793D+00, .249338D+00, .204185D+00,
2373 + .165573D+00, .132822D+00, .105284D+00, .822779D-01,
2374 + .634661D-01, .480445D-01, .356710D-01, .259018D-01 /
2375 DATA (UPDI(I),I=8633,8684) /
2376 + .183265D-01, .125798D-01, .832413D-02, .527898D-02,
2377 + .316316D-02, .177393D-02, .909714D-03, .413583D-03,
2378 + .158191D-03, .465589D-04, .904287D-05, .867448D-06,
2379 + .000000D+00, .161830D+07, .122150D+07, .905857D+06,
2380 + .671355D+06, .497269D+06, .368067D+06, .272272D+06,
2381 + .201266D+06, .148688D+06, .109768D+06, .809868D+05,
2382 + .597108D+05, .439993D+05, .324008D+05, .238478D+05,
2383 + .175425D+05, .128993D+05, .948104D+04, .696718D+04,
2384 + .511883D+04, .376122D+04, .276411D+04, .203244D+04,
2385 + .149548D+04, .110169D+04, .812749D+03, .601011D+03,
2386 + .443685D+03, .330090D+03, .246568D+03, .185098D+03,
2387 + .139755D+03, .106231D+03, .814279D+02, .629137D+02,
2388 + .490667D+02, .386564D+02, .307744D+02, .247648D+02 /
2389 DATA (UPDI(I),I=8685,8736) /
2390 + .201401D+02, .165547D+02, .137410D+02, .115112D+02,
2391 + .972391D+01, .827580D+01, .708897D+01, .610950D+01,
2392 + .528444D+01, .459162D+01, .399729D+01, .348864D+01,
2393 + .304853D+01, .266552D+01, .233052D+01, .203631D+01,
2394 + .177714D+01, .154830D+01, .134599D+01, .116701D+01,
2395 + .100869D+01, .868768D+00, .745295D+00, .636400D+00,
2396 + .541117D+00, .457099D+00, .383780D+00, .320056D+00,
2397 + .264948D+00, .217544D+00, .177022D+00, .142617D+00,
2398 + .113645D+00, .894659D-01, .694189D-01, .531548D-01,
2399 + .399295D-01, .294078D-01, .211734D-01, .148472D-01,
2400 + .100945D-01, .661129D-02, .414654D-02, .245453D-02,
2401 + .135817D-02, .686097D-03, .306630D-03, .115006D-03,
2402 + .331152D-04, .630839D-05, .611585D-06, .000000D+00 /
2403 DATA (UPDI(I),I=8737,8788) /
2404 + .200810D+07, .151019D+07, .111510D+07, .822820D+06,
2405 + .606765D+06, .447107D+06, .329244D+06, .242267D+06,
2406 + .178148D+06, .130898D+06, .961172D+05, .705245D+05,
2407 + .517134D+05, .378925D+05, .277493D+05, .203082D+05,
2408 + .148555D+05, .108612D+05, .793866D+04, .580083D+04,
2409 + .423874D+04, .309751D+04, .226456D+04, .165660D+04,
2410 + .121319D+04, .889647D+03, .653901D+03, .479748D+03,
2411 + .354735D+03, .263355D+03, .196493D+03, .147462D+03,
2412 + .111421D+03, .849102D+02, .652322D+02, .505963D+02,
2413 + .396509D+02, .314060D+02, .251494D+02, .203562D+02,
2414 + .166554D+02, .137623D+02, .114775D+02, .965235D+01,
2415 + .817814D+01, .697365D+01, .598268D+01, .515060D+01,
2416 + .445423D+01, .385900D+01, .335152D+01, .291422D+01 /
2417 DATA (UPDI(I),I=8789,8840) /
2418 + .253530D+01, .220540D+01, .191709D+01, .166439D+01,
2419 + .144245D+01, .124732D+01, .107566D+01, .924708D+00,
2420 + .792076D+00, .675747D+00, .573779D+00, .485114D+00,
2421 + .407428D+00, .340074D+00, .281919D+00, .231962D+00,
2422 + .189281D+00, .153048D+00, .122502D+00, .969654D-01,
2423 + .758108D-01, .584036D-01, .443916D-01, .330897D-01,
2424 + .241738D-01, .172574D-01, .119927D-01, .807584D-02,
2425 + .523492D-02, .324699D-02, .189871D-02, .103657D-02,
2426 + .515806D-03, .226618D-03, .833581D-04, .234905D-04,
2427 + .439229D-05, .430296D-06, .000000D+00, .246676D+07,
2428 + .184852D+07, .135914D+07, .998614D+06, .733218D+06,
2429 + .537927D+06, .394370D+06, .288890D+06, .211469D+06,
2430 + .154669D+06, .113043D+06, .825530D+05, .602442D+05 /
2431 DATA (UPDI(I),I=8841,8892) /
2432 + .439296D+05, .320122D+05, .233112D+05, .169658D+05,
2433 + .123404D+05, .897267D+04, .652162D+04, .473975D+04,
2434 + .344467D+04, .250437D+04, .182169D+04, .132647D+04,
2435 + .967069D+03, .706650D+03, .515355D+03, .378813D+03,
2436 + .279571D+03, .207368D+03, .154721D+03, .116239D+03,
2437 + .880898D+02, .673087D+02, .519344D+02, .404947D+02,
2438 + .319191D+02, .254411D+02, .204991D+02, .166982D+02,
2439 + .137376D+02, .114073D+02, .955165D+01, .805734D+01,
2440 + .684008D+01, .584165D+01, .500594D+01, .430888D+01,
2441 + .371519D+01, .321095D+01, .277823D+01, .240490D+01,
2442 + .208136D+01, .179998D+01, .155461D+01, .134024D+01,
2443 + .115279D+01, .988811D+00, .845444D+00, .720220D+00,
2444 + .611047D+00, .515932D+00, .433738D+00, .362178D+00 /
2445 DATA (UPDI(I),I=8893,8944) /
2446 + .300532D+00, .247654D+00, .202531D+00, .164241D+00,
2447 + .131959D+00, .104934D+00, .825050D-01, .640610D-01,
2448 + .489985D-01, .369685D-01, .273434D-01, .198142D-01,
2449 + .140248D-01, .965857D-02, .644171D-02, .413266D-02,
2450 + .253487D-02, .146424D-02, .788667D-03, .386575D-03,
2451 + .166968D-03, .602410D-04, .166201D-04, .305245D-05,
2452 + .302132D-06, .000000D+00, .733714D+05, .105520D+06,
2453 + .807267D+05, .617642D+05, .472606D+05, .361671D+05,
2454 + .276814D+05, .211902D+05, .162243D+05, .124250D+05,
2455 + .951799D+04, .729346D+04, .559096D+04, .428780D+04,
2456 + .329013D+04, .252618D+04, .194104D+04, .149275D+04,
2457 + .114917D+04, .885747D+03, .683682D+03, .528598D+03,
2458 + .409495D+03, .317954D+03, .247534D+03, .193304D+03 /
2459 DATA (UPDI(I),I=8945,8996) /
2460 + .151492D+03, .118804D+03, .939312D+02, .746512D+02,
2461 + .596715D+02, .480013D+02, .388805D+02, .317448D+02,
2462 + .261084D+02, .216481D+02, .180985D+02, .152553D+02,
2463 + .129613D+02, .110947D+02, .956477D+01, .829691D+01,
2464 + .723654D+01, .634100D+01, .557743D+01, .492053D+01,
2465 + .435267D+01, .385329D+01, .341668D+01, .302822D+01,
2466 + .268456D+01, .237835D+01, .210485D+01, .186017D+01,
2467 + .164108D+01, .144485D+01, .126913D+01, .111190D+01,
2468 + .971385D+00, .846001D+00, .734326D+00, .635070D+00,
2469 + .547060D+00, .469563D+00, .400801D+00, .340382D+00,
2470 + .287477D+00, .241331D+00, .201251D+00, .166603D+00,
2471 + .136808D+00, .111335D+00, .896870D-01, .714090D-01,
2472 + .562434D-01, .435941D-01, .332380D-01, .248639D-01 /
2473 DATA (UPDI(I),I=8997,9048) /
2474 + .181906D-01, .129635D-01, .895285D-02, .595589D-02,
2475 + .377094D-02, .225216D-02, .124290D-02, .615714D-03,
2476 + .260815D-03, .862487D-04, .181495D-04, .126405D-05,
2477 + .000000D+00, .156781D+06, .121687D+06, .932417D+05,
2478 + .714442D+05, .547463D+05, .419512D+05, .321496D+05,
2479 + .246388D+05, .188852D+05, .144764D+05, .110989D+05,
2480 + .851062D+04, .652774D+04, .500808D+04, .384373D+04,
2481 + .295123D+04, .226727D+04, .174287D+04, .134085D+04,
2482 + .103249D+04, .795984D+03, .614454D+03, .475110D+03,
2483 + .368051D+03, .285771D+03, .222464D+03, .173732D+03,
2484 + .135687D+03, .106797D+03, .844470D+02, .671312D+02,
2485 + .536771D+02, .431983D+02, .350283D+02, .286024D+02,
2486 + .235382D+02, .195285D+02, .163322D+02, .137684D+02 /
2487 DATA (UPDI(I),I=9049,9100) /
2488 + .116938D+02, .100045D+02, .861335D+01, .745799D+01,
2489 + .648880D+01, .566852D+01, .496777D+01, .436651D+01,
2490 + .384144D+01, .338579D+01, .298319D+01, .262955D+01,
2491 + .231658D+01, .203896D+01, .179226D+01, .157281D+01,
2492 + .137751D+01, .120375D+01, .104925D+01, .912024D+00,
2493 + .790329D+00, .682592D+00, .587425D+00, .503519D+00,
2494 + .430075D+00, .365281D+00, .308678D+00, .259398D+00,
2495 + .216661D+00, .179755D+00, .148036D+00, .120916D+00,
2496 + .978672D-01, .784012D-01, .620624D-01, .485914D-01,
2497 + .374286D-01, .283505D-01, .210622D-01, .152965D-01,
2498 + .108166D-01, .740697D-02, .488285D-02, .306036D-02,
2499 + .180748D-02, .986054D-03, .481967D-03, .200896D-03,
2500 + .651618D-04, .134488D-04, .947843D-06, .000000D+00 /
2501 DATA (UPDI(I),I=9101,9152) /
2502 + .186492D+06, .144775D+06, .110949D+06, .850162D+05,
2503 + .651445D+05, .499117D+05, .382412D+05, .292966D+05,
2504 + .224450D+05, .171947D+05, .131735D+05, .100926D+05,
2505 + .773337D+04, .592603D+04, .454222D+04, .348222D+04,
2506 + .267067D+04, .204901D+04, .157305D+04, .120841D+04,
2507 + .929190D+03, .715212D+03, .551277D+03, .425571D+03,
2508 + .329184D+03, .255199D+03, .198413D+03, .154203D+03,
2509 + .120739D+03, .949367D+02, .750217D+02, .596070D+02,
2510 + .476529D+02, .383731D+02, .311099D+02, .254138D+02,
2511 + .209282D+02, .173716D+02, .145356D+02, .122542D+02,
2512 + .104082D+02, .889745D+01, .765106D+01, .661229D+01,
2513 + .573910D+01, .499809D+01, .436661D+01, .381878D+01,
2514 + .334661D+01, .293213D+01, .257044D+01, .225239D+01 /
2515 DATA (UPDI(I),I=9153,9204) /
2516 + .197208D+01, .172454D+01, .150571D+01, .131215D+01,
2517 + .114096D+01, .989656D+00, .856060D+00, .738270D+00,
2518 + .634584D+00, .543524D+00, .463675D+00, .394174D+00,
2519 + .333191D+00, .280212D+00, .234337D+00, .194774D+00,
2520 + .160795D+00, .131754D+00, .107062D+00, .861958D-01,
2521 + .686784D-01, .540597D-01, .420806D-01, .322167D-01,
2522 + .242472D-01, .178932D-01, .129027D-01, .905506D-02,
2523 + .614997D-02, .401870D-02, .249432D-02, .145746D-02,
2524 + .784573D-03, .377777D-03, .154713D-03, .491402D-04,
2525 + .993045D-05, .709045D-06, .000000D+00, .226752D+06,
2526 + .175867D+06, .134629D+06, .103037D+06, .788520D+05,
2527 + .603299D+05, .461551D+05, .353031D+05, .270010D+05,
2528 + .206474D+05, .157884D+05, .120711D+05, .922927D+04 /
2529 DATA (UPDI(I),I=9205,9256) /
2530 + .705592D+04, .539502D+04, .412519D+04, .315506D+04,
2531 + .241353D+04, .184713D+04, .141426D+04, .108366D+04,
2532 + .830999D+03, .637996D+03, .490443D+03, .377674D+03,
2533 + .291405D+03, .225435D+03, .174264D+03, .135687D+03,
2534 + .106062D+03, .832986D+02, .657578D+02, .522201D+02,
2535 + .417625D+02, .336200D+02, .272681D+02, .222937D+02,
2536 + .183718D+02, .152628D+02, .127765D+02, .107770D+02,
2537 + .915069D+01, .781733D+01, .671301D+01, .579062D+01,
2538 + .501276D+01, .435409D+01, .378623D+01, .329990D+01,
2539 + .287562D+01, .250766D+01, .218608D+01, .190435D+01,
2540 + .165705D+01, .143970D+01, .124858D+01, .108051D+01,
2541 + .932804D+00, .803112D+00, .689397D+00, .589844D+00,
2542 + .502893D+00, .427043D+00, .361375D+00, .304056D+00 /
2543 DATA (UPDI(I),I=9257,9308) /
2544 + .254523D+00, .211856D+00, .175254D+00, .143983D+00,
2545 + .117401D+00, .949189D-01, .760264D-01, .602566D-01,
2546 + .471699D-01, .365099D-01, .277859D-01, .207823D-01,
2547 + .152359D-01, .109102D-01, .760023D-02, .512061D-02,
2548 + .331739D-02, .203952D-02, .117932D-02, .627402D-03,
2549 + .298082D-03, .120179D-03, .374828D-04, .744662D-05,
2550 + .538724D-06, .000000D+00, .163673D+06, .216260D+06,
2551 + .165208D+06, .126168D+06, .963385D+05, .735381D+05,
2552 + .561251D+05, .428220D+05, .326673D+05, .249134D+05,
2553 + .189977D+05, .144829D+05, .110403D+05, .841434D+04,
2554 + .641302D+04, .488719D+04, .372490D+04, .283914D+04,
2555 + .216471D+04, .165092D+04, .125985D+04, .961990D+03,
2556 + .735284D+03, .562605D+03, .431143D+03, .330971D+03 /
2557 DATA (UPDI(I),I=9309,9360) /
2558 + .254694D+03, .195780D+03, .151563D+03, .117762D+03,
2559 + .919135D+02, .720930D+02, .568732D+02, .451773D+02,
2560 + .361197D+02, .290923D+02, .236200D+02, .193298D+02,
2561 + .159487D+02, .132605D+02, .111116D+02, .937402D+01,
2562 + .795796D+01, .679216D+01, .582428D+01, .501291D+01,
2563 + .433000D+01, .374471D+01, .324645D+01, .281431D+01,
2564 + .244173D+01, .211800D+01, .183602D+01, .158991D+01,
2565 + .137482D+01, .118674D+01, .102224D+01, .878466D+00,
2566 + .752900D+00, .643386D+00, .548015D+00, .465152D+00,
2567 + .393231D+00, .331283D+00, .277483D+00, .231228D+00,
2568 + .191586D+00, .157752D+00, .128994D+00, .104674D+00,
2569 + .842129D-01, .671111D-01, .529156D-01, .411999D-01,
2570 + .317119D-01, .239937D-01, .178361D-01, .129918D-01 /
2571 DATA (UPDI(I),I=9361,9412) /
2572 + .923976D-02, .638986D-02, .427131D-02, .274384D-02,
2573 + .167122D-02, .956473D-03, .502996D-03, .235861D-03,
2574 + .936517D-04, .287009D-04, .561016D-05, .411055D-06,
2575 + .000000D+00, .363855D+06, .280875D+06, .213835D+06,
2576 + .162736D+06, .123816D+06, .941677D+05, .716003D+05,
2577 + .544201D+05, .413518D+05, .314099D+05, .238526D+05,
2578 + .181073D+05, .137432D+05, .104278D+05, .791120D+04,
2579 + .600063D+04, .455141D+04, .345188D+04, .261839D+04,
2580 + .198638D+04, .150757D+04, .114467D+04, .869811D+03,
2581 + .661532D+03, .503788D+03, .384239D+03, .293712D+03,
2582 + .224190D+03, .172314D+03, .132899D+03, .102939D+03,
2583 + .801119D+02, .626948D+02, .493992D+02, .391709D+02,
2584 + .312898D+02, .251946D+02, .204497D+02, .167362D+02 /
2585 DATA (UPDI(I),I=9413,9464) /
2586 + .138048D+02, .114779D+02, .960972D+01, .809787D+01,
2587 + .686205D+01, .584319D+01, .499508D+01, .428620D+01,
2588 + .368288D+01, .317283D+01, .273352D+01, .235735D+01,
2589 + .203273D+01, .175188D+01, .150838D+01, .129699D+01,
2590 + .111335D+01, .953764D+00, .815174D+00, .694899D+00,
2591 + .590654D+00, .500431D+00, .422522D+00, .355301D+00,
2592 + .297749D+00, .248064D+00, .205601D+00, .169427D+00,
2593 + .138738D+00, .112811D+00, .910192D-01, .727987D-01,
2594 + .576664D-01, .451883D-01, .349571D-01, .267284D-01,
2595 + .200822D-01, .148194D-01, .107114D-01, .755570D-02,
2596 + .517973D-02, .342978D-02, .218090D-02, .131344D-02,
2597 + .742400D-03, .384952D-03, .177615D-03, .691957D-04,
2598 + .207352D-04, .396291D-05, .293712D-06, .000000D+00 /
2599 DATA (UPDI(I),I=9465,9516) /
2600 + .474806D+06, .365247D+06, .276945D+06, .209901D+06,
2601 + .159036D+06, .120441D+06, .911826D+05, .690000D+05,
2602 + .521965D+05, .394673D+05, .298328D+05, .225405D+05,
2603 + .170258D+05, .128553D+05, .970409D+04, .732302D+04,
2604 + .552547D+04, .416831D+04, .314458D+04, .237225D+04,
2605 + .179012D+04, .135122D+04, .102057D+04, .771378D+03,
2606 + .583695D+03, .442263D+03, .335791D+03, .254509D+03,
2607 + .194224D+03, .148704D+03, .114321D+03, .882917D+02,
2608 + .685597D+02, .535974D+02, .421632D+02, .334131D+02,
2609 + .266913D+02, .214948D+02, .174554D+02, .142886D+02,
2610 + .117918D+02, .980091D+01, .820047D+01, .690106D+01,
2611 + .583686D+01, .495691D+01, .422627D+01, .360856D+01,
2612 + .308978D+01, .264592D+01, .226834D+01, .194464D+01 /
2613 DATA (UPDI(I),I=9517,9568) /
2614 + .166640D+01, .142673D+01, .121998D+01, .104151D+01,
2615 + .887392D+00, .754379D+00, .639649D+00, .540816D+00,
2616 + .455792D+00, .382812D+00, .320210D+00, .266927D+00,
2617 + .221198D+00, .182347D+00, .149445D+00, .121698D+00,
2618 + .983983D-01, .789335D-01, .627595D-01, .494124D-01,
2619 + .384788D-01, .295731D-01, .224599D-01, .167562D-01,
2620 + .122735D-01, .880205D-02, .615757D-02, .418408D-02,
2621 + .274417D-02, .172710D-02, .102843D-02, .574105D-03,
2622 + .293555D-03, .133316D-03, .509973D-04, .149689D-04,
2623 + .280789D-05, .211289D-06, .000000D+00, .617139D+06,
2624 + .472960D+06, .357057D+06, .269427D+06, .203225D+06,
2625 + .153211D+06, .115459D+06, .869640D+05, .654752D+05,
2626 + .492705D+05, .370618D+05, .278641D+05, .209413D+05 /
2627 DATA (UPDI(I),I=9569,9620) /
2628 + .157310D+05, .118133D+05, .886762D+04, .665493D+04,
2629 + .499285D+04, .374556D+04, .280951D+04, .210772D+04,
2630 + .158148D+04, .118721D+04, .891739D+03, .670463D+03,
2631 + .504681D+03, .380619D+03, .286482D+03, .217092D+03,
2632 + .165023D+03, .125940D+03, .965445D+02, .744039D+02,
2633 + .577260D+02, .450644D+02, .354399D+02, .280954D+02,
2634 + .224555D+02, .181003D+02, .147087D+02, .120519D+02,
2635 + .994718D+01, .826607D+01, .690992D+01, .580629D+01,
2636 + .489953D+01, .415138D+01, .352287D+01, .299837D+01,
2637 + .255247D+01, .217556D+01, .185448D+01, .158022D+01,
2638 + .134546D+01, .114420D+01, .971545D+00, .823354D+00,
2639 + .696229D+00, .587233D+00, .493898D+00, .414076D+00,
2640 + .345962D+00, .287869D+00, .238709D+00, .196762D+00 /
2641 DATA (UPDI(I),I=9621,9672) /
2642 + .161332D+00, .131503D+00, .106496D+00, .856213D-01,
2643 + .682883D-01, .539745D-01, .422376D-01, .326859D-01,
2644 + .249569D-01, .188265D-01, .139460D-01, .101393D-01,
2645 + .721456D-02, .500517D-02, .337095D-02, .218979D-02,
2646 + .136405D-02, .803082D-03, .442749D-03, .223249D-03,
2647 + .997982D-04, .374917D-04, .107842D-04, .198725D-05,
2648 + .151825D-06, .000000D+00, .796451D+06, .608034D+06,
2649 + .456969D+06, .343256D+06, .257725D+06, .193396D+06,
2650 + .145057D+06, .108737D+06, .814730D+05, .610094D+05,
2651 + .456644D+05, .341594D+05, .255416D+05, .190875D+05,
2652 + .142585D+05, .106460D+05, .794622D+04, .592874D+04,
2653 + .442267D+04, .329844D+04, .246010D+04, .183491D+04,
2654 + .136910D+04, .102200D+04, .763540D+03, .571027D+03 /
2655 DATA (UPDI(I),I=9673,9724) /
2656 + .427817D+03, .319810D+03, .240685D+03, .181681D+03,
2657 + .137668D+03, .104776D+03, .801599D+02, .617376D+02,
2658 + .478420D+02, .373486D+02, .293927D+02, .233231D+02,
2659 + .186659D+02, .150624D+02, .122571D+02, .100486D+02,
2660 + .829543D+01, .688982D+01, .575284D+01, .482435D+01,
2661 + .406291D+01, .342715D+01, .289982D+01, .245427D+01,
2662 + .207997D+01, .176307D+01, .149403D+01, .126514D+01,
2663 + .107009D+01, .903769D+00, .761864D+00, .640852D+00,
2664 + .537704D+00, .449890D+00, .375224D+00, .311875D+00,
2665 + .258151D+00, .212948D+00, .174597D+00, .142391D+00,
2666 + .115433D+00, .929650D-01, .743212D-01, .589337D-01,
2667 + .463047D-01, .360148D-01, .276954D-01, .210080D-01,
2668 + .157405D-01, .115771D-01, .835423D-02, .589773D-02 /
2669 DATA (UPDI(I),I=9725,9776) /
2670 + .405754D-02, .270846D-02, .174260D-02, .107432D-02,
2671 + .625355D-03, .340485D-03, .169304D-03, .745007D-04,
2672 + .274908D-04, .775192D-05, .140414D-05, .108898D-06,
2673 + .000000D+00, .101874D+07, .774741D+06, .579630D+06,
2674 + .433411D+06, .323916D+06, .241933D+06, .180606D+06,
2675 + .134739D+06, .100468D+06, .748651D+05, .557574D+05,
2676 + .415000D+05, .308723D+05, .229520D+05, .170556D+05,
2677 + .126667D+05, .940342D+04, .697750D+04, .517599D+04,
2678 + .383838D+04, .284628D+04, .211047D+04, .156529D+04,
2679 + .116132D+04, .862233D+03, .640741D+03, .476948D+03,
2680 + .354161D+03, .264754D+03, .198493D+03, .149371D+03,
2681 + .112892D+03, .857617D+02, .655872D+02, .504657D+02,
2682 + .391195D+02, .305710D+02, .240903D+02, .191484D+02 /
2683 DATA (UPDI(I),I=9777,9828) /
2684 + .153481D+02, .124073D+02, .101060D+02, .828978D+01,
2685 + .684220D+01, .567807D+01, .473293D+01, .396237D+01,
2686 + .332276D+01, .279536D+01, .235241D+01, .198250D+01,
2687 + .167118D+01, .140845D+01, .118625D+01, .998018D+00,
2688 + .838446D+00, .703096D+00, .588340D+00, .491087D+00,
2689 + .408763D+00, .339164D+00, .280447D+00, .230930D+00,
2690 + .189499D+00, .154549D+00, .125365D+00, .101078D+00,
2691 + .809534D-01, .643528D-01, .507339D-01, .396253D-01,
2692 + .306313D-01, .234071D-01, .176384D-01, .131260D-01,
2693 + .958527D-02, .686510D-02, .480822D-02, .328032D-02,
2694 + .217013D-02, .138285D-02, .843728D-03, .485565D-03,
2695 + .261087D-03, .128025D-03, .554587D-04, .201039D-04,
2696 + .555936D-05, .990398D-06, .779586D-07, .000000D+00 /
2697 DATA (UPDI(I),I=9829,9880) /
2698 + .129033D+07, .977542D+06, .728085D+06, .541958D+06,
2699 + .403190D+06, .299752D+06, .222723D+06, .165375D+06,
2700 + .122721D+06, .910045D+05, .674450D+05, .499496D+05,
2701 + .369709D+05, .273458D+05, .202154D+05, .149346D+05,
2702 + .110280D+05, .813867D+04, .600418D+04, .442769D+04,
2703 + .326463D+04, .240669D+04, .177450D+04, .130866D+04,
2704 + .965716D+03, .713186D+03, .527528D+03, .389176D+03,
2705 + .289038D+03, .215272D+03, .160916D+03, .120799D+03,
2706 + .911463D+02, .692325D+02, .529084D+02, .407357D+02,
2707 + .316202D+02, .247518D+02, .195454D+02, .155653D+02,
2708 + .125030D+02, .101205D+02, .825070D+01, .676881D+01,
2709 + .558371D+01, .462694D+01, .385128D+01, .321108D+01,
2710 + .268620D+01, .224792D+01, .188401D+01, .157952D+01 /
2711 DATA (UPDI(I),I=9881,9932) /
2712 + .132404D+01, .110922D+01, .928297D+00, .775794D+00,
2713 + .647178D+00, .538751D+00, .447379D+00, .370469D+00,
2714 + .305811D+00, .251566D+00, .206072D+00, .168220D+00,
2715 + .136468D+00, .110105D+00, .882903D-01, .703198D-01,
2716 + .555832D-01, .435659D-01, .338240D-01, .259863D-01,
2717 + .197319D-01, .147708D-01, .109171D-01, .791503D-02,
2718 + .562622D-02, .390930D-02, .264466D-02, .173394D-02,
2719 + .109427D-02, .660736D-03, .375936D-03, .199623D-03,
2720 + .965311D-04, .411667D-04, .146627D-04, .397766D-05,
2721 + .697329D-06, .557011D-07, .000000D+00, .161772D+07,
2722 + .122099D+07, .905404D+06, .670953D+06, .496913D+06,
2723 + .367751D+06, .271992D+06, .201018D+06, .148469D+06,
2724 + .109574D+06, .808152D+05, .595591D+05, .438653D+05 /
2725 DATA (UPDI(I),I=9933,9984) /
2726 + .322826D+05, .237435D+05, .174506D+05, .128184D+05,
2727 + .940980D+04, .690451D+04, .506375D+04, .371284D+04,
2728 + .272164D+04, .199518D+04, .146281D+04, .107305D+04,
2729 + .787659D+03, .579037D+03, .424479D+03, .313267D+03,
2730 + .231828D+03, .172173D+03, .128410D+03, .962553D+02,
2731 + .726361D+02, .551465D+02, .421831D+02, .325326D+02,
2732 + .253039D+02, .198557D+02, .157144D+02, .125457D+02,
2733 + .100940D+02, .818015D+01, .667160D+01, .547164D+01,
2734 + .450809D+01, .373117D+01, .309345D+01, .257350D+01,
2735 + .214177D+01, .178531D+01, .148875D+01, .124132D+01,
2736 + .103445D+01, .861193D+00, .715981D+00, .594201D+00,
2737 + .492109D+00, .406554D+00, .334939D+00, .275065D+00,
2738 + .225110D+00, .183444D+00, .148968D+00, .120210D+00 /
2739 DATA (UPDI(I),I=9985,10036) /
2740 + .964667D-01, .769323D-01, .609328D-01, .478898D-01,
2741 + .373173D-01, .287994D-01, .219897D-01, .165911D-01,
2742 + .123373D-01, .905604D-02, .651847D-02, .459852D-02,
2743 + .316978D-02, .212630D-02, .138156D-02, .863460D-03,
2744 + .515956D-03, .290222D-03, .152189D-03, .725759D-04,
2745 + .304720D-04, .106659D-04, .283941D-05, .490118D-06,
2746 + .397213D-07, .000000D+00, .200749D+07, .150965D+07,
2747 + .111462D+07, .822394D+06, .606387D+06, .446772D+06,
2748 + .328948D+06, .242004D+06, .177916D+06, .130693D+06,
2749 + .959359D+05, .703644D+05, .515720D+05, .377679D+05,
2750 + .276395D+05, .202115D+05, .147703D+05, .107863D+05,
2751 + .787281D+04, .574299D+04, .418797D+04, .305297D+04,
2752 + .222551D+04, .162238D+04, .118322D+04, .863406D+03 /
2753 DATA (UPDI(I),I=10037,10088) /
2754 + .630934D+03, .459688D+03, .337175D+03, .247978D+03,
2755 + .183019D+03, .135642D+03, .101036D+03, .757650D+02,
2756 + .571606D+02, .434509D+02, .333030D+02, .257448D+02,
2757 + .200796D+02, .157968D+02, .125373D+02, .100285D+02,
2758 + .808035D+01, .655269D+01, .534379D+01, .437811D+01,
2759 + .360358D+01, .297119D+01, .245836D+01, .203487D+01,
2760 + .168713D+01, .139942D+01, .116070D+01, .962221D+00,
2761 + .796914D+00, .659129D+00, .544214D+00, .448407D+00,
2762 + .368560D+00, .302087D+00, .246817D+00, .200955D+00,
2763 + .162911D+00, .131604D+00, .105635D+00, .843143D-01,
2764 + .668730D-01, .526703D-01, .411600D-01, .318858D-01,
2765 + .244599D-01, .185608D-01, .139146D-01, .102781D-01,
2766 + .749266D-02, .535415D-02, .374850D-02, .256321D-02 /
2767 DATA (UPDI(I),I=10089,10140) /
2768 + .170486D-02, .109774D-02, .679433D-03, .401763D-03,
2769 + .223415D-03, .115695D-03, .544113D-04, .224935D-04,
2770 + .773846D-05, .202232D-05, .343887D-06, .282722D-07,
2771 + .000000D+00, .246611D+07, .184794D+07, .135863D+07,
2772 + .998162D+06, .732817D+06, .537572D+06, .394056D+06,
2773 + .288612D+06, .211223D+06, .154452D+06, .112852D+06,
2774 + .823840D+05, .600951D+05, .437982D+05, .318965D+05,
2775 + .232093D+05, .168762D+05, .122616D+05, .890351D+04,
2776 + .646092D+04, .468651D+04, .339800D+04, .246348D+04,
2777 + .178589D+04, .129513D+04, .939649D+03, .682668D+03,
2778 + .494422D+03, .360502D+03, .263549D+03, .193338D+03,
2779 + .142424D+03, .105443D+03, .785920D+02, .589354D+02,
2780 + .445316D+02, .339285D+02, .260743D+02, .202185D+02 /
2781 DATA (UPDI(I),I=10141,10192) /
2782 + .158148D+02, .124803D+02, .992678D+01, .795374D+01,
2783 + .641431D+01, .520216D+01, .423876D+01, .346998D+01,
2784 + .284554D+01, .234181D+01, .192804D+01, .159012D+01,
2785 + .131204D+01, .108256D+01, .892802D+00, .735618D+00,
2786 + .605316D+00, .497234D+00, .407613D+00, .333325D+00,
2787 + .271816D+00, .220950D+00, .178971D+00, .144336D+00,
2788 + .115990D+00, .926071D-01, .735175D-01, .579900D-01,
2789 + .454184D-01, .352900D-01, .271781D-01, .207230D-01,
2790 + .156275D-01, .116405D-01, .854081D-02, .618319D-02,
2791 + .438634D-02, .304755D-02, .206719D-02, .136327D-02,
2792 + .869850D-03, .533155D-03, .311976D-03, .171506D-03,
2793 + .877071D-04, .406803D-04, .165594D-04, .560042D-05,
2794 + .143722D-05, .240886D-06, .200862D-07, .000000D+00 /
2795 C-----------------------------------------------------------------------
2801 Amass(I) = AmassI(I)
2823 QL(Iq) = Log (QL(Iq) /Al)
2826 C Since quark = anti-quark for nfl>2 at this stage,
2827 C we Read out only the non-redundent data points
2828 C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence)
2830 Nblk = (NX+1) * (NT+1)
2831 Npts = Nblk * (NfMx+3)
2837 C ****************************
git://git.uio.no / u / mrichter / AliRoot.git / blob