1 C-----------------------------------------------------------------------
3 Subroutine Ctq4RA4 (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 : CTEQ4A4
20 DATA DrI, FlI, AlI / 2., 5., .2390 /
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, .202755D+01, .264626D+01, .357027D+01, .500000D+01,
27 + .787375D+01, .132692D+02, .241745D+02, .481697D+02, .106391D+03,
28 + .264502D+03, .753388D+03, .250898D+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 + .264612D+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, .121644D+06,
174 + .923935D+05, .690159D+05, .515107D+05, .384222D+05,
175 + .286324D+05, .213227D+05, .158632D+05, .117929D+05,
176 + .875748D+04, .649818D+04, .481613D+04, .356636D+04 /
177 DATA (UPDI(I),I=469,520) /
178 + .263758D+04, .194882D+04, .143796D+04, .105991D+04,
179 + .780106D+03, .573511D+03, .420959D+03, .308609D+03,
180 + .225861D+03, .165079D+03, .120437D+03, .877384D+02,
181 + .638043D+02, .463467D+02, .334448D+02, .242131D+02,
182 + .174961D+02, .126290D+02, .910075D+01, .655275D+01,
183 + .471718D+01, .339315D+01, .244000D+01, .175663D+01,
184 + .126546D+01, .913780D+00, .660994D+00, .480094D+00,
185 + .349737D+00, .255936D+00, .188016D+00, .138870D+00,
186 + .102987D+00, .768847D-01, .574927D-01, .433115D-01,
187 + .326610D-01, .247584D-01, .188035D-01, .143259D-01,
188 + .109241D-01, .834589D-02, .637126D-02, .486413D-02,
189 + .370544D-02, .282003D-02, .213766D-02, .161600D-02,
190 + .121472D-02, .908519D-03, .675499D-03, .497461D-03 /
191 DATA (UPDI(I),I=521,572) /
192 + .362117D-03, .260548D-03, .184437D-03, .128264D-03,
193 + .869236D-04, .571265D-04, .357882D-04, .209112D-04,
194 + .107394D-04, .416211D-05, .668901D-08, .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, .272762D+06, .206672D+06,
199 + .153940D+06, .114566D+06, .852057D+05, .633087D+05,
200 + .470049D+05, .348638D+05, .258383D+05, .191280D+05,
201 + .141482D+05, .104524D+05, .771472D+04, .568677D+04,
202 + .418759D+04, .307935D+04, .226186D+04, .165889D+04,
203 + .121517D+04, .888692D+03, .649076D+03, .473241D+03,
204 + .344545D+03, .250384D+03, .181670D+03, .131569D+03 /
205 DATA (UPDI(I),I=573,624) /
206 + .951659D+02, .683753D+02, .492833D+02, .354524D+02,
207 + .254718D+02, .182695D+02, .130905D+02, .937737D+01,
208 + .671084D+01, .480081D+01, .343770D+01, .246309D+01,
209 + .176861D+01, .127213D+01, .918578D+00, .665225D+00,
210 + .483855D+00, .353288D+00, .259303D+00, .191087D+00,
211 + .141732D+00, .105298D+00, .787938D-01, .590207D-01,
212 + .444335D-01, .335167D-01, .253576D-01, .192025D-01,
213 + .145667D-01, .110427D-01, .837151D-02, .633386D-02,
214 + .478768D-02, .360583D-02, .270909D-02, .202501D-02,
215 + .150717D-02, .111629D-02, .820113D-03, .596913D-03,
216 + .430767D-03, .307245D-03, .216701D-03, .150457D-03,
217 + .102883D-03, .688420D-04, .449564D-04, .284255D-04,
218 + .174085D-04, .100585D-04, .540070D-05, .253893D-05 /
219 DATA (UPDI(I),I=625,676) /
220 + .903916D-06, .357757D-07, .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, .458704D+06, .346684D+06, .257462D+06,
224 + .191036D+06, .141647D+06, .104923D+06, .776602D+05,
225 + .574203D+05, .424194D+05, .313019D+05, .230769D+05,
226 + .169923D+05, .124994D+05, .918240D+04, .673823D+04,
227 + .493761D+04, .361383D+04, .264088D+04, .192737D+04,
228 + .140428D+04, .102174D+04, .742070D+03, .538132D+03,
229 + .389497D+03, .281449D+03, .202977D+03, .146186D+03,
230 + .104570D+03, .750342D+02, .537325D+02, .384250D+02,
231 + .274296D+02, .195577D+02, .139408D+02, .992536D+01,
232 + .706352D+01, .503070D+01, .358490D+01, .255967D+01 /
233 DATA (UPDI(I),I=677,728) /
234 + .183072D+01, .131421D+01, .946150D+00, .684030D+00,
235 + .496423D+00, .362088D+00, .265166D+00, .195418D+00,
236 + .144255D+00, .107234D+00, .797958D-01, .596700D-01,
237 + .447097D-01, .335948D-01, .252676D-01, .190345D-01,
238 + .143304D-01, .107883D-01, .810658D-02, .608514D-02,
239 + .455212D-02, .339700D-02, .252287D-02, .186597D-02,
240 + .137395D-02, .100399D-02, .727504D-03, .523259D-03,
241 + .372626D-03, .262985D-03, .183355D-03, .126492D-03,
242 + .860102D-04, .576674D-04, .380527D-04, .248810D-04,
243 + .159678D-04, .101463D-04, .637625D-05, .400347D-05,
244 + .251148D-05, .159976D-05, .102929D-05, .672405D-06,
245 + .437041D-06, .277764D-06, .165468D-06, .881288D-07,
246 + .382058D-07, .106881D-07, .775970D-09, .000000D+00 /
247 DATA (UPDI(I),I=729,780) /
248 + .685459D+06, .516710D+06, .382546D+06, .282968D+06,
249 + .209151D+06, .154435D+06, .113938D+06, .839702D+05,
250 + .618286D+05, .454726D+05, .334106D+05, .245176D+05,
251 + .179724D+05, .131568D+05, .962035D+04, .702421D+04,
252 + .512218D+04, .372929D+04, .271144D+04, .196802D+04,
253 + .142633D+04, .103184D+04, .745252D+03, .537208D+03,
254 + .386568D+03, .277602D+03, .199062D+03, .141756D+03,
255 + .101257D+03, .721794D+02, .513732D+02, .364974D+02,
256 + .258950D+02, .183661D+02, .130085D+02, .920938D+01,
257 + .652364D+01, .462347D+01, .328273D+01, .233460D+01,
258 + .166619D+01, .119252D+01, .856968D+00, .618182D+00,
259 + .448112D+00, .326128D+00, .238824D+00, .175180D+00,
260 + .129375D+00, .956473D-01, .710502D-01, .528871D-01 /
261 DATA (UPDI(I),I=781,832) /
262 + .394726D-01, .294904D-01, .220641D-01, .164991D-01,
263 + .123360D-01, .920705D-02, .686390D-02, .510035D-02,
264 + .378053D-02, .278949D-02, .204993D-02, .150015D-02,
265 + .108979D-02, .785573D-03, .562480D-03, .399222D-03,
266 + .281205D-03, .196113D-03, .135701D-03, .929309D-04,
267 + .630950D-04, .424863D-04, .285996D-04, .191361D-04,
268 + .128495D-04, .866471D-05, .590576D-05, .405528D-05,
269 + .281314D-05, .194683D-05, .133202D-05, .884001D-06,
270 + .557503D-06, .322801D-06, .163869D-06, .666282D-07,
271 + .174167D-07, .131018D-08, .000000D+00, .959397D+06,
272 + .721263D+06, .532289D+06, .392474D+06, .289150D+06,
273 + .212808D+06, .156485D+06, .114941D+06, .843467D+05,
274 + .618222D+05, .452660D+05, .331013D+05, .241786D+05 /
275 DATA (UPDI(I),I=833,884) /
276 + .176367D+05, .128492D+05, .934723D+04, .679070D+04,
277 + .492542D+04, .356735D+04, .257921D+04, .186189D+04,
278 + .134153D+04, .964977D+03, .692716D+03, .496367D+03,
279 + .354916D+03, .253383D+03, .179624D+03, .127723D+03,
280 + .906244D+02, .641953D+02, .453875D+02, .320433D+02,
281 + .226131D+02, .159340D+02, .112214D+02, .790609D+01,
282 + .557277D+01, .393463D+01, .278244D+01, .197432D+01,
283 + .140481D+01, .100350D+01, .719551D+00, .518397D+00,
284 + .374959D+00, .272865D+00, .198894D+00, .145947D+00,
285 + .107207D+00, .791186D-01, .585118D-01, .433826D-01,
286 + .321990D-01, .239295D-01, .177753D-01, .132012D-01,
287 + .978765D-02, .724784D-02, .535030D-02, .393967D-02,
288 + .288836D-02, .210916D-02, .153413D-02, .110796D-02 /
289 DATA (UPDI(I),I=885,936) /
290 + .794468D-03, .566186D-03, .400369D-03, .281290D-03,
291 + .196025D-03, .135825D-03, .934312D-04, .639661D-04,
292 + .436514D-04, .299279D-04, .205250D-04, .141964D-04,
293 + .989958D-05, .697752D-05, .494268D-05, .350995D-05,
294 + .246620D-05, .169450D-05, .111948D-05, .696394D-06,
295 + .394891D-06, .194758D-06, .762442D-07, .191176D-07,
296 + .146727D-08, .000000D+00, .128716D+07, .965017D+06,
297 + .709859D+06, .521690D+06, .383074D+06, .280993D+06,
298 + .205924D+06, .150740D+06, .110235D+06, .805156D+05,
299 + .587451D+05, .428052D+05, .311538D+05, .226419D+05,
300 + .164346D+05, .119109D+05, .862034D+04, .622854D+04,
301 + .449359D+04, .323610D+04, .232673D+04, .166967D+04,
302 + .119605D+04, .855004D+03, .610047D+03, .434305D+03 /
303 DATA (UPDI(I),I=937,988) /
304 + .308689D+03, .217836D+03, .154184D+03, .108893D+03,
305 + .767689D+02, .540156D+02, .379459D+02, .266445D+02,
306 + .186778D+02, .130850D+02, .916956D+01, .642828D+01,
307 + .451341D+01, .317381D+01, .223907D+01, .158395D+01,
308 + .112477D+01, .801713D+00, .574086D+00, .412707D+00,
309 + .298479D+00, .216213D+00, .157653D+00, .115074D+00,
310 + .843795D-01, .620048D-01, .456747D-01, .336815D-01,
311 + .248672D-01, .183519D-01, .135401D-01, .997396D-02,
312 + .733751D-02, .538180D-02, .393744D-02, .286879D-02,
313 + .208199D-02, .150546D-02, .108111D-02, .771263D-03,
314 + .547161D-03, .385529D-03, .270181D-03, .188120D-03,
315 + .130477D-03, .900792D-04, .620909D-04, .428173D-04,
316 + .297620D-04, .207685D-04, .146437D-04, .104159D-04 /
317 DATA (UPDI(I),I=989,1040) /
318 + .747157D-05, .536777D-05, .384232D-05, .270618D-05,
319 + .185142D-05, .121160D-05, .742470D-06, .412782D-06,
320 + .198439D-06, .751844D-07, .181935D-07, .142019D-08,
321 + .000000D+00, .167555D+07, .125270D+07, .918424D+06,
322 + .672721D+06, .492310D+06, .359894D+06, .262840D+06,
323 + .191738D+06, .139724D+06, .101694D+06, .739316D+05,
324 + .536766D+05, .389231D+05, .281841D+05, .203808D+05,
325 + .147151D+05, .106090D+05, .763575D+04, .548717D+04,
326 + .393594D+04, .281848D+04, .201428D+04, .143691D+04,
327 + .102286D+04, .726691D+03, .515087D+03, .364480D+03,
328 + .256033D+03, .180389D+03, .126808D+03, .889738D+02,
329 + .623012D+02, .435502D+02, .304267D+02, .212194D+02,
330 + .147881D+02, .103077D+02, .718709D+01, .501829D+01 /
331 DATA (UPDI(I),I=1041,1092) /
332 + .350914D+01, .246151D+01, .173128D+01, .122219D+01,
333 + .866012D+00, .616409D+00, .440458D+00, .316605D+00,
334 + .227936D+00, .165165D+00, .119805D+00, .872952D-01,
335 + .637450D-01, .466580D-01, .341888D-01, .250797D-01,
336 + .183910D-01, .134821D-01, .986844D-02, .721368D-02,
337 + .525798D-02, .382292D-02, .276861D-02, .199737D-02,
338 + .143612D-02, .102576D-02, .728257D-03, .514471D-03,
339 + .361308D-03, .252646D-03, .175803D-03, .122070D-03,
340 + .845695D-04, .586530D-04, .408115D-04, .286865D-04,
341 + .202843D-04, .144972D-04, .104433D-04, .756525D-05,
342 + .546966D-05, .392068D-05, .275352D-05, .186937D-05,
343 + .120939D-05, .729620D-06, .397814D-06, .186625D-06,
344 + .685769D-07, .160633D-07, .127375D-08, .000000D+00 /
345 DATA (UPDI(I),I=1093,1144) /
346 + .213136D+07, .158899D+07, .116107D+07, .847587D+06,
347 + .618165D+06, .450346D+06, .327757D+06, .238257D+06,
348 + .173009D+06, .125470D+06, .908872D+05, .657464D+05,
349 + .474995D+05, .342662D+05, .246855D+05, .177552D+05,
350 + .127514D+05, .914198D+04, .654358D+04, .467494D+04,
351 + .333409D+04, .237299D+04, .168575D+04, .119492D+04,
352 + .845288D+03, .596528D+03, .420234D+03, .293850D+03,
353 + .206084D+03, .144199D+03, .100695D+03, .701696D+02,
354 + .488088D+02, .339308D+02, .235421D+02, .163217D+02,
355 + .113162D+02, .784794D+01, .544967D+01, .378966D+01,
356 + .264326D+01, .184850D+01, .129737D+01, .913916D+00,
357 + .646647D+00, .459309D+00, .328167D+00, .234828D+00,
358 + .169115D+00, .121917D+00, .882834D-01, .640690D-01 /
359 DATA (UPDI(I),I=1145,1196) /
360 + .466027D-01, .339361D-01, .247380D-01, .180275D-01,
361 + .131331D-01, .955370D-02, .694039D-02, .502816D-02,
362 + .363384D-02, .261642D-02, .187685D-02, .134222D-02,
363 + .953826D-03, .674153D-03, .474421D-03, .332225D-03,
364 + .231896D-03, .161327D-03, .112180D-03, .779970D-04,
365 + .544130D-04, .381659D-04, .270805D-04, .193484D-04,
366 + .139639D-04, .101419D-04, .738511D-05, .534963D-05,
367 + .382612D-05, .267195D-05, .179687D-05, .114796D-05,
368 + .681569D-06, .364472D-06, .166945D-06, .595695D-07,
369 + .135345D-07, .108948D-08, .000000D+00, .266120D+07,
370 + .197840D+07, .144073D+07, .104816D+07, .761824D+06,
371 + .553086D+06, .401122D+06, .290562D+06, .210237D+06,
372 + .151922D+06, .109648D+06, .790271D+05, .568825D+05 /
373 DATA (UPDI(I),I=1197,1248) /
374 + .408816D+05, .293397D+05, .210221D+05, .150392D+05,
375 + .107400D+05, .765691D+04, .544843D+04, .386993D+04,
376 + .274305D+04, .194050D+04, .136969D+04, .964762D+03,
377 + .677865D+03, .475415D+03, .330922D+03, .231024D+03,
378 + .160901D+03, .111827D+03, .775538D+02, .536810D+02,
379 + .371329D+02, .256329D+02, .176797D+02, .121932D+02,
380 + .841112D+01, .580901D+01, .401735D+01, .278639D+01,
381 + .193759D+01, .135209D+01, .946968D+00, .666109D+00,
382 + .470344D+00, .334057D+00, .237613D+00, .170088D+00,
383 + .121877D+00, .877170D-01, .632722D-01, .457416D-01,
384 + .331061D-01, .239848D-01, .173723D-01, .125787D-01,
385 + .909540D-02, .656776D-02, .473027D-02, .339873D-02,
386 + .243351D-02, .173617D-02, .123530D-02, .873688D-03 /
387 DATA (UPDI(I),I=1249,1300) /
388 + .614974D-03, .431293D-03, .301291D-03, .210029D-03,
389 + .146147D-03, .101808D-03, .710516D-04, .498488D-04,
390 + .352180D-04, .251888D-04, .181441D-04, .131859D-04,
391 + .962466D-05, .702282D-05, .508222D-05, .361852D-05,
392 + .250833D-05, .166905D-05, .105228D-05, .614681D-06,
393 + .322388D-06, .144230D-06, .500191D-07, .110414D-07,
394 + .901856D-09, .000000D+00, .496098D+05, .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, .408654D+05, .315210D+05, .239739D+05,
420 + .182241D+05, .138490D+05, .105178D+05, .798503D+04,
421 + .605810D+04, .459432D+04, .348164D+04, .263723D+04,
422 + .199598D+04, .150988D+04, .114112D+04, .861938D+03,
423 + .650399D+03, .490467D+03, .369445D+03, .278088D+03,
424 + .209064D+03, .157056D+03, .117829D+03, .883252D+02,
425 + .661150D+02, .494437D+02, .369260D+02, .275612D+02,
426 + .204533D+02, .152315D+02, .113256D+02, .841842D+01,
427 + .624963D+01, .463939D+01, .344434D+01, .255753D+01,
428 + .189908D+01, .141305D+01, .105236D+01, .786324D+00 /
429 DATA (UPDI(I),I=1405,1456) /
430 + .588693D+00, .442930D+00, .334292D+00, .253679D+00,
431 + .193253D+00, .148155D+00, .114036D+00, .884201D-01,
432 + .686760D-01, .537706D-01, .421413D-01, .332178D-01,
433 + .262251D-01, .207825D-01, .164793D-01, .130993D-01,
434 + .104011D-01, .826263D-02, .654806D-02, .518740D-02,
435 + .409260D-02, .322231D-02, .252344D-02, .196817D-02,
436 + .152754D-02, .117628D-02, .896903D-03, .677852D-03,
437 + .506033D-03, .373319D-03, .270737D-03, .193000D-03,
438 + .134121D-03, .906974D-04, .585822D-04, .360738D-04,
439 + .201566D-04, .950643D-05, .265722D-05, .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 + .923988D+05, .711036D+05, .539319D+05, .408836D+05,
445 + .309808D+05, .234612D+05, .177593D+05, .134336D+05,
446 + .101567D+05, .767320D+04, .579390D+04, .437111D+04,
447 + .329579D+04, .248265D+04, .186893D+04, .140544D+04,
448 + .105615D+04, .792746D+03, .594563D+03, .445363D+03,
449 + .333323D+03, .249130D+03, .186029D+03, .138708D+03,
450 + .103318D+03, .768489D+02, .571208D+02, .422093D+02,
451 + .312969D+02, .231700D+02, .171445D+02, .126698D+02,
452 + .936080D+01, .691664D+01, .511023D+01, .377568D+01,
453 + .279467D+01, .207044D+01, .153853D+01, .114555D+01,
454 + .856951D+00, .643064D+00, .485060D+00, .367322D+00,
455 + .279842D+00, .214064D+00, .164905D+00, .127266D+00,
456 + .989785D-01, .770622D-01, .603301D-01, .473132D-01 /
457 DATA (UPDI(I),I=1509,1560) /
458 + .372362D-01, .293278D-01, .231514D-01, .182593D-01,
459 + .144070D-01, .113433D-01, .892764D-02, .700033D-02,
460 + .547908D-02, .426746D-02, .331217D-02, .255987D-02,
461 + .196490D-02, .149568D-02, .113066D-02, .846552D-03,
462 + .628597D-03, .461218D-03, .334973D-03, .239798D-03,
463 + .169429D-03, .117339D-03, .803563D-04, .536470D-04,
464 + .351144D-04, .223363D-04, .138358D-04, .825308D-05,
465 + .475134D-05, .260030D-05, .134826D-05, .646133D-06,
466 + .283814D-06, .108157D-06, .348548D-07, .883872D-08,
467 + .183631D-08, .229324D-10, .000000D+00, .156505D+06,
468 + .120145D+06, .908751D+05, .686935D+05, .519043D+05,
469 + .391912D+05, .295781D+05, .223061D+05, .168131D+05,
470 + .126624D+05, .953089D+04, .716737D+04, .538649D+04 /
471 DATA (UPDI(I),I=1561,1612) /
472 + .404414D+04, .303414D+04, .227393D+04, .170285D+04,
473 + .127368D+04, .951844D+03, .710411D+03, .529727D+03,
474 + .394448D+03, .293415D+03, .217935D+03, .161690D+03,
475 + .119786D+03, .886695D+02, .652467D+02, .481719D+02,
476 + .355097D+02, .261583D+02, .192444D+02, .141521D+02,
477 + .104081D+02, .765233D+01, .562623D+01, .414312D+01,
478 + .305375D+01, .225711D+01, .167162D+01, .124353D+01,
479 + .927976D+00, .695920D+00, .523975D+00, .396798D+00,
480 + .301726D+00, .231004D+00, .177194D+00, .136935D+00,
481 + .105946D+00, .824069D-01, .642173D-01, .502096D-01,
482 + .392920D-01, .308118D-01, .241435D-01, .189241D-01,
483 + .148043D-01, .115752D-01, .901902D-02, .701412D-02,
484 + .542970D-02, .418886D-02, .321873D-02, .245691D-02 /
485 DATA (UPDI(I),I=1613,1664) /
486 + .186093D-02, .140059D-02, .104504D-02, .774094D-03,
487 + .567547D-03, .412683D-03, .296691D-03, .211251D-03,
488 + .148326D-03, .103612D-03, .712816D-04, .486786D-04,
489 + .328648D-04, .220754D-04, .146812D-04, .974527D-05,
490 + .640005D-05, .416156D-05, .264102D-05, .161872D-05,
491 + .926835D-06, .477669D-06, .204710D-06, .586468D-07,
492 + .416390D-08, .000000D+00, .217268D+06, .180272D+06,
493 + .135963D+06, .102478D+06, .772037D+05, .581202D+05,
494 + .437312D+05, .328786D+05, .247050D+05, .185475D+05,
495 + .139158D+05, .104311D+05, .781346D+04, .584678D+04,
496 + .437175D+04, .326520D+04, .243666D+04, .181614D+04,
497 + .135238D+04, .100570D+04, .747147D+03, .554271D+03,
498 + .410732D+03, .303900D+03, .224584D+03, .165716D+03 /
499 DATA (UPDI(I),I=1665,1716) /
500 + .122169D+03, .895210D+02, .658137D+02, .483074D+02,
501 + .354289D+02, .259489D+02, .189948D+02, .139051D+02,
502 + .101743D+02, .744434D+01, .545443D+01, .400004D+01,
503 + .294108D+01, .216678D+01, .160314D+01, .118983D+01,
504 + .887283D+00, .664321D+00, .500164D+00, .378133D+00,
505 + .287782D+00, .219445D+00, .168550D+00, .129620D+00,
506 + .100194D+00, .776014D-01, .602930D-01, .468906D-01,
507 + .365361D-01, .284497D-01, .221574D-01, .172257D-01,
508 + .133826D-01, .103627D-01, .800841D-02, .616162D-02,
509 + .472449D-02, .360865D-02, .273830D-02, .206261D-02,
510 + .154422D-02, .114680D-02, .845893D-03, .618168D-03,
511 + .448456D-03, .322180D-03, .229632D-03, .161875D-03,
512 + .113814D-03, .791552D-04, .548781D-04, .378184D-04 /
513 DATA (UPDI(I),I=1717,1768) /
514 + .260498D-04, .178538D-04, .122396D-04, .830905D-05,
515 + .556703D-05, .362466D-05, .226085D-05, .130725D-05,
516 + .673505D-06, .284900D-06, .794961D-07, .576398D-08,
517 + .000000D+00, .351574D+06, .268438D+06, .201762D+06,
518 + .151547D+06, .113768D+06, .853435D+05, .639825D+05,
519 + .479295D+05, .358807D+05, .268374D+05, .200589D+05,
520 + .149784D+05, .111758D+05, .833002D+04, .620352D+04,
521 + .461467D+04, .342951D+04, .254558D+04, .188752D+04,
522 + .139770D+04, .103384D+04, .763596D+03, .563307D+03,
523 + .414909D+03, .305202D+03, .224148D+03, .164452D+03,
524 + .119914D+03, .877186D+02, .640640D+02, .467417D+02,
525 + .340568D+02, .247955D+02, .180537D+02, .131356D+02,
526 + .955697D+01, .696131D+01, .507528D+01, .370896D+01 /
527 DATA (UPDI(I),I=1769,1820) /
528 + .271594D+01, .199680D+01, .147273D+01, .109111D+01,
529 + .811677D+00, .607028D+00, .455894D+00, .344600D+00,
530 + .261000D+00, .199070D+00, .152036D+00, .116687D+00,
531 + .897471D-01, .692283D-01, .534589D-01, .413486D-01,
532 + .319652D-01, .247105D-01, .190699D-01, .147023D-01,
533 + .112986D-01, .866272D-02, .661243D-02, .502773D-02,
534 + .380730D-02, .286221D-02, .213504D-02, .158142D-02,
535 + .116085D-02, .844996D-03, .608360D-03, .433637D-03,
536 + .305119D-03, .212042D-03, .144976D-03, .981777D-04,
537 + .651840D-04, .426729D-04, .274283D-04, .173820D-04,
538 + .108143D-04, .665299D-05, .402507D-05, .240540D-05,
539 + .140558D-05, .800050D-06, .430000D-06, .211480D-06,
540 + .875077D-07, .244602D-07, .171944D-08, .000000D+00 /
541 DATA (UPDI(I),I=1821,1872) /
542 + .497343D+06, .378588D+06, .283546D+06, .212218D+06,
543 + .158739D+06, .118644D+06, .886193D+05, .661373D+05,
544 + .493240D+05, .367516D+05, .273627D+05, .203523D+05,
545 + .151252D+05, .112287D+05, .832819D+04, .616976D+04,
546 + .456610D+04, .337498D+04, .249181D+04, .183721D+04,
547 + .135296D+04, .994871D+03, .730603D+03, .535677D+03,
548 + .392205D+03, .286686D+03, .209322D+03, .151877D+03,
549 + .110547D+03, .803315D+02, .583080D+02, .422631D+02,
550 + .306052D+02, .221637D+02, .160360D+02, .116017D+02,
551 + .840173D+01, .608982D+01, .442366D+01, .321982D+01,
552 + .235259D+01, .172437D+01, .126939D+01, .938295D+00,
553 + .697126D+00, .520142D+00, .390536D+00, .293823D+00,
554 + .222570D+00, .168827D+00, .128674D+00, .982868D-01 /
555 DATA (UPDI(I),I=1873,1924) /
556 + .752819D-01, .577287D-01, .443320D-01, .340300D-01,
557 + .261180D-01, .200136D-01, .153184D-01, .116888D-01,
558 + .889722D-02, .674354D-02, .509078D-02, .382798D-02,
559 + .285741D-02, .211703D-02, .155768D-02, .113633D-02,
560 + .822290D-03, .589004D-03, .418028D-03, .293278D-03,
561 + .203522D-03, .139362D-03, .947956D-04, .635279D-04,
562 + .422074D-04, .277517D-04, .181418D-04, .117667D-04,
563 + .761323D-05, .488543D-05, .310215D-05, .192389D-05,
564 + .114886D-05, .638706D-06, .317218D-06, .128672D-06,
565 + .341712D-07, .250798D-08, .000000D+00, .678050D+06,
566 + .514562D+06, .383998D+06, .286357D+06, .213409D+06,
567 + .158914D+06, .118253D+06, .879190D+05, .653169D+05,
568 + .484796D+05, .359530D+05, .266360D+05, .197157D+05 /
569 DATA (UPDI(I),I=1925,1976) /
570 + .145772D+05, .107674D+05, .794376D+04, .585429D+04,
571 + .430876D+04, .316753D+04, .232526D+04, .170481D+04,
572 + .124799D+04, .912326D+03, .665844D+03, .485233D+03,
573 + .353003D+03, .256497D+03, .185185D+03, .134119D+03,
574 + .969700D+02, .700220D+02, .504891D+02, .363668D+02,
575 + .261942D+02, .188470D+02, .135591D+02, .976268D+01,
576 + .703527D+01, .508006D+01, .367549D+01, .266906D+01,
577 + .194430D+01, .142228D+01, .104468D+01, .771164D+00,
578 + .571670D+00, .426408D+00, .318703D+00, .239797D+00,
579 + .180676D+00, .136767D+00, .103763D+00, .789297D-01,
580 + .601119D-01, .458401D-01, .349445D-01, .266323D-01,
581 + .202665D-01, .154029D-01, .116718D-01, .882196D-02,
582 + .664048D-02, .497815D-02, .371767D-02, .275606D-02 /
583 DATA (UPDI(I),I=1977,2028) /
584 + .202850D-02, .148298D-02, .107534D-02, .773764D-03,
585 + .551532D-03, .389817D-03, .272712D-03, .188999D-03,
586 + .129579D-03, .884774D-04, .597582D-04, .401812D-04,
587 + .268828D-04, .179688D-04, .119769D-04, .798243D-05,
588 + .528145D-05, .344577D-05, .218557D-05, .132357D-05,
589 + .740273D-06, .365853D-06, .145910D-06, .377250D-07,
590 + .282438D-08, .000000D+00, .899678D+06, .680634D+06,
591 + .506077D+06, .376007D+06, .279179D+06, .207109D+06,
592 + .153532D+06, .113711D+06, .841506D+05, .622140D+05,
593 + .459559D+05, .339106D+05, .249988D+05, .184079D+05,
594 + .135407D+05, .994800D+04, .730031D+04, .535006D+04,
595 + .391598D+04, .286211D+04, .208908D+04, .152242D+04,
596 + .110787D+04, .804827D+03, .583769D+03, .422663D+03 /
597 DATA (UPDI(I),I=2029,2080) /
598 + .305627D+03, .219559D+03, .158222D+03, .113820D+03,
599 + .817659D+02, .586498D+02, .420196D+02, .301030D+02,
600 + .215398D+02, .154097D+02, .110317D+02, .790392D+01,
601 + .567364D+01, .408057D+01, .294524D+01, .213238D+01,
602 + .155016D+01, .113151D+01, .829943D+00, .611318D+00,
603 + .453034D+00, .336406D+00, .251447D+00, .188204D+00,
604 + .141513D+00, .106651D+00, .805792D-01, .609557D-01,
605 + .461662D-01, .349547D-01, .264579D-01, .199974D-01,
606 + .150940D-01, .113602D-01, .852787D-02, .637604D-02,
607 + .474766D-02, .352198D-02, .259373D-02, .189692D-02,
608 + .137827D-02, .993695D-03, .711210D-03, .504627D-03,
609 + .355321D-03, .247957D-03, .171677D-03, .117863D-03,
610 + .807714D-04, .549346D-04, .373138D-04, .253105D-04 /
611 DATA (UPDI(I),I=2081,2132) /
612 + .171963D-04, .116745D-04, .792039D-05, .532532D-05,
613 + .351466D-05, .224435D-05, .135934D-05, .755795D-06,
614 + .368444D-06, .143649D-06, .360940D-07, .274720D-08,
615 + .000000D+00, .116859D+07, .881315D+06, .652877D+06,
616 + .483278D+06, .357479D+06, .264193D+06, .195099D+06,
617 + .143939D+06, .106105D+06, .781365D+05, .574875D+05,
618 + .422491D+05, .310191D+05, .227471D+05, .166629D+05,
619 + .121904D+05, .890788D+04, .650013D+04, .473708D+04,
620 + .344700D+04, .250479D+04, .181714D+04, .131629D+04,
621 + .951813D+03, .687143D+03, .495133D+03, .356296D+03,
622 + .254687D+03, .182623D+03, .130711D+03, .934173D+02,
623 + .666585D+02, .475038D+02, .338493D+02, .240872D+02,
624 + .171364D+02, .121981D+02, .868948D+01, .620105D+01 /
625 DATA (UPDI(I),I=2133,2184) /
626 + .443359D+01, .318081D+01, .228899D+01, .165377D+01,
627 + .119968D+01, .874419D+00, .640016D+00, .471279D+00,
628 + .347712D+00, .258210D+00, .192010D+00, .143427D+00,
629 + .107387D+00, .805978D-01, .605672D-01, .455651D-01,
630 + .342703D-01, .257664D-01, .193455D-01, .145041D-01,
631 + .108441D-01, .808627D-02, .600637D-02, .444311D-02,
632 + .327486D-02, .239639D-02, .174193D-02, .125827D-02,
633 + .902276D-03, .642588D-03, .454039D-03, .318643D-03,
634 + .221911D-03, .153572D-03, .105612D-03, .726484D-04,
635 + .497343D-04, .340847D-04, .233833D-04, .160854D-04,
636 + .110604D-04, .758555D-05, .514235D-05, .340662D-05,
637 + .217409D-05, .130891D-05, .719801D-06, .344852D-06,
638 + .131124D-06, .319937D-07, .247317D-08, .000000D+00 /
639 DATA (UPDI(I),I=2185,2236) /
640 + .149143D+07, .112127D+07, .827563D+06, .610302D+06,
641 + .449738D+06, .331114D+06, .243580D+06, .179011D+06,
642 + .131441D+06, .964116D+05, .706495D+05, .517127D+05,
643 + .378123D+05, .276145D+05, .201441D+05, .146752D+05,
644 + .106779D+05, .775818D+04, .562928D+04, .407818D+04,
645 + .295022D+04, .213063D+04, .153632D+04, .110578D+04,
646 + .794550D+03, .569794D+03, .408039D+03, .290227D+03,
647 + .207073D+03, .147467D+03, .104853D+03, .744303D+02,
648 + .527619D+02, .373952D+02, .264651D+02, .187240D+02,
649 + .132530D+02, .938724D+01, .666016D+01, .473398D+01,
650 + .337611D+01, .241496D+01, .173417D+01, .125031D+01,
651 + .905674D+00, .658761D+00, .482035D+00, .353399D+00,
652 + .260756D+00, .192660D+00, .142984D+00, .106367D+00 /
653 DATA (UPDI(I),I=2237,2288) /
654 + .793133D-01, .592152D-01, .442559D-01, .330688D-01,
655 + .247003D-01, .184246D-01, .137233D-01, .101940D-01,
656 + .755238D-02, .557417D-02, .409724D-02, .300116D-02,
657 + .218270D-02, .157738D-02, .113312D-02, .808431D-03,
658 + .573145D-03, .403470D-03, .282362D-03, .196350D-03,
659 + .135896D-03, .936512D-04, .646765D-04, .445544D-04,
660 + .307793D-04, .213145D-04, .148017D-04, .102672D-04,
661 + .708554D-05, .481940D-05, .318998D-05, .202625D-05,
662 + .120861D-05, .655639D-06, .308124D-06, .114148D-06,
663 + .270515D-07, .212271D-08, .000000D+00, .187499D+07,
664 + .140523D+07, .103330D+07, .759184D+06, .557343D+06,
665 + .408777D+06, .299556D+06, .219295D+06, .160390D+06,
666 + .117180D+06, .855254D+05, .623488D+05, .454034D+05 /
667 DATA (UPDI(I),I=2289,2340) /
668 + .330218D+05, .239883D+05, .174022D+05, .126082D+05,
669 + .912129D+04, .658954D+04, .475287D+04, .342299D+04,
670 + .246093D+04, .176639D+04, .126550D+04, .905068D+03,
671 + .645962D+03, .460356D+03, .325821D+03, .231320D+03,
672 + .163910D+03, .115950D+03, .818839D+02, .577408D+02,
673 + .407068D+02, .286527D+02, .201604D+02, .141900D+02,
674 + .999414D+01, .705004D+01, .498207D+01, .353212D+01,
675 + .251157D+01, .179270D+01, .128470D+01, .924886D+00,
676 + .668595D+00, .486200D+00, .354229D+00, .259724D+00,
677 + .190687D+00, .140622D+00, .103948D+00, .770145D-01,
678 + .571325D-01, .424250D-01, .314982D-01, .233766D-01,
679 + .173263D-01, .128229D-01, .946518D-02, .696829D-02,
680 + .511134D-02, .373397D-02, .271871D-02, .196572D-02 /
681 DATA (UPDI(I),I=2341,2392) /
682 + .141273D-02, .100958D-02, .716920D-03, .506186D-03,
683 + .355183D-03, .248006D-03, .172299D-03, .119326D-03,
684 + .824358D-04, .571659D-04, .396151D-04, .275612D-04,
685 + .192330D-04, .134507D-04, .938312D-05, .649416D-05,
686 + .441696D-05, .291236D-05, .183642D-05, .108304D-05,
687 + .578634D-06, .266464D-06, .961426D-07, .221441D-07,
688 + .176327D-08, .000000D+00, .232605D+07, .173787D+07,
689 + .127317D+07, .931943D+06, .681598D+06, .498015D+06,
690 + .363552D+06, .265116D+06, .193145D+06, .140555D+06,
691 + .102177D+06, .741881D+05, .538052D+05, .389718D+05,
692 + .281930D+05, .203668D+05, .146935D+05, .105844D+05,
693 + .761336D+04, .546728D+04, .392004D+04, .280565D+04,
694 + .200468D+04, .142962D+04, .101768D+04, .722900D+03 /
695 DATA (UPDI(I),I=2393,2444) /
696 + .512720D+03, .361100D+03, .255107D+03, .179867D+03,
697 + .126595D+03, .889441D+02, .623926D+02, .437549D+02,
698 + .306327D+02, .214364D+02, .150046D+02, .105088D+02,
699 + .737099D+01, .517900D+01, .365038D+01, .258042D+01,
700 + .183091D+01, .130425D+01, .933289D+00, .670571D+00,
701 + .484662D+00, .350935D+00, .255716D+00, .186578D+00,
702 + .136733D+00, .100444D+00, .739525D-01, .545177D-01,
703 + .402284D-01, .296804D-01, .218895D-01, .161232D-01,
704 + .118582D-01, .869934D-02, .636532D-02, .464111D-02,
705 + .337034D-02, .243985D-02, .175425D-02, .125417D-02,
706 + .891922D-03, .630651D-03, .443650D-03, .310448D-03,
707 + .216395D-03, .150279D-03, .104195D-03, .721831D-04,
708 + .502658D-04, .350271D-04, .245191D-04, .172149D-04 /
709 DATA (UPDI(I),I=2445,2496) /
710 + .120992D-04, .846724D-05, .586228D-05, .397722D-05,
711 + .260681D-05, .162886D-05, .948529D-06, .498586D-06,
712 + .224837D-06, .790053D-07, .177000D-07, .142980D-08,
713 + .000000D+00, .285124D+07, .212370D+07, .155010D+07,
714 + .113045D+07, .823689D+06, .599564D+06, .436013D+06,
715 + .316735D+06, .229854D+06, .166612D+06, .120639D+06,
716 + .872428D+05, .630172D+05, .454578D+05, .327494D+05,
717 + .235597D+05, .169253D+05, .121401D+05, .869480D+04,
718 + .621670D+04, .443774D+04, .316202D+04, .224913D+04,
719 + .159663D+04, .113132D+04, .799842D+03, .564597D+03,
720 + .395698D+03, .278189D+03, .195175D+03, .136681D+03,
721 + .955435D+02, .666764D+02, .465154D+02, .323922D+02,
722 + .225457D+02, .156947D+02, .109314D+02, .762435D+01 /
723 DATA (UPDI(I),I=2497,2548) /
724 + .532665D+01, .373287D+01, .262345D+01, .185053D+01,
725 + .131046D+01, .932145D+00, .665737D+00, .478274D+00,
726 + .344209D+00, .249287D+00, .180775D+00, .131668D+00,
727 + .961321D-01, .703420D-01, .515376D-01, .377947D-01,
728 + .277138D-01, .203139D-01, .148717D-01, .108713D-01,
729 + .792760D-02, .576620D-02, .417989D-02, .301805D-02,
730 + .217277D-02, .155393D-02, .110549D-02, .782649D-03,
731 + .551228D-03, .386534D-03, .269870D-03, .187880D-03,
732 + .130491D-03, .906160D-04, .629648D-04, .440274D-04,
733 + .308351D-04, .216962D-04, .153036D-04, .107896D-04,
734 + .755924D-05, .522492D-05, .352935D-05, .229593D-05,
735 + .141979D-05, .815596D-06, .421485D-06, .186050D-06,
736 + .636775D-07, .138890D-07, .113793D-08, .000000D+00 /
737 DATA (UPDI(I),I=2549,2600) /
738 + .408384D+05, .244600D+05, .192305D+05, .151190D+05,
739 + .118867D+05, .934548D+04, .734760D+04, .577689D+04,
740 + .454202D+04, .357116D+04, .280789D+04, .220780D+04,
741 + .173601D+04, .136509D+04, .107347D+04, .844195D+03,
742 + .663933D+03, .522205D+03, .410773D+03, .323160D+03,
743 + .254271D+03, .200105D+03, .157512D+03, .124020D+03,
744 + .976813D+02, .769674D+02, .606754D+02, .476994D+02,
745 + .376553D+02, .297511D+02, .235294D+02, .186305D+02,
746 + .147718D+02, .117389D+02, .934076D+01, .744881D+01,
747 + .595450D+01, .477250D+01, .383580D+01, .309147D+01,
748 + .249923D+01, .202570D+01, .164591D+01, .134011D+01,
749 + .109289D+01, .892261D+00, .729395D+00, .595443D+00,
750 + .486316D+00, .396133D+00, .322254D+00, .261455D+00 /
751 DATA (UPDI(I),I=2601,2652) /
752 + .211434D+00, .170321D+00, .136592D+00, .108991D+00,
753 + .864815D-01, .681979D-01, .534183D-01, .415361D-01,
754 + .320414D-01, .245055D-01, .185685D-01, .139476D-01,
755 + .103453D-01, .758332D-02, .548789D-02, .391638D-02,
756 + .275257D-02, .190255D-02, .129109D-02, .858572D-03,
757 + .558104D-03, .353517D-03, .218555D-03, .130485D-03,
758 + .751560D-04, .415367D-04, .218811D-04, .108951D-04,
759 + .507282D-05, .218088D-05, .844203D-06, .288760D-06,
760 + .835817D-07, .192628D-07, .319161D-08, .313902D-09,
761 + .119200D-10, .441541D-13, .000000D+00, .713987D+05,
762 + .557627D+05, .430325D+05, .332081D+05, .256294D+05,
763 + .197797D+05, .152668D+05, .117832D+05, .909554D+04,
764 + .702071D+04, .541981D+04, .418385D+04, .323017D+04 /
765 DATA (UPDI(I),I=2653,2704) /
766 + .249382D+04, .192562D+04, .148686D+04, .114828D+04,
767 + .886805D+03, .685016D+03, .529170D+03, .408894D+03,
768 + .315993D+03, .244284D+03, .188888D+03, .146120D+03,
769 + .113079D+03, .875742D+02, .676127D+02, .524423D+02,
770 + .407088D+02, .316409D+02, .246226D+02, .191930D+02,
771 + .149972D+02, .117383D+02, .920947D+01, .724680D+01,
772 + .571895D+01, .452862D+01, .359730D+01, .286840D+01,
773 + .229422D+01, .184082D+01, .148087D+01, .119420D+01,
774 + .964574D+00, .780740D+00, .631321D+00, .511178D+00,
775 + .412955D+00, .333402D+00, .268569D+00, .215771D+00,
776 + .172754D+00, .137778D+00, .109371D+00, .863785D-01,
777 + .678249D-01, .529285D-01, .410167D-01, .315523D-01,
778 + .240749D-01, .182088D-01, .136603D-01, .101253D-01 /
779 DATA (UPDI(I),I=2705,2756) /
780 + .742008D-02, .537160D-02, .383647D-02, .270032D-02,
781 + .186960D-02, .127137D-02, .846777D-03, .551023D-03,
782 + .348251D-03, .213951D-03, .125618D-03, .698051D-04,
783 + .357329D-04, .158662D-04, .500966D-05, .000000D+00,
784 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
785 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
786 + .000000D+00, .000000D+00, .122673D+06, .951392D+05,
787 + .728283D+05, .557401D+05, .426608D+05, .326441D+05,
788 + .249789D+05, .191098D+05, .146194D+05, .111819D+05,
789 + .855256D+04, .654013D+04, .500120D+04, .382361D+04,
790 + .292333D+04, .223457D+04, .170815D+04, .130551D+04,
791 + .997837D+03, .762564D+03, .582845D+03, .445444D+03,
792 + .340504D+03, .260289D+03, .199031D+03, .152221D+03 /
793 DATA (UPDI(I),I=2757,2808) /
794 + .116497D+03, .888486D+02, .680789D+02, .521976D+02,
795 + .400699D+02, .307931D+02, .237028D+02, .182890D+02,
796 + .141358D+02, .109517D+02, .851137D+01, .663451D+01,
797 + .519055D+01, .407436D+01, .321163D+01, .254010D+01,
798 + .201624D+01, .160519D+01, .128169D+01, .102544D+01,
799 + .822604D+00, .659447D+00, .529680D+00, .424612D+00,
800 + .340349D+00, .272291D+00, .217363D+00, .172977D+00,
801 + .137181D+00, .108319D+00, .851259D-01, .665327D-01,
802 + .517023D-01, .399110D-01, .305966D-01, .232749D-01,
803 + .175587D-01, .131460D-01, .973019D-02, .712472D-02,
804 + .515816D-02, .368796D-02, .260232D-02, .180931D-02,
805 + .123865D-02, .833275D-03, .550334D-03, .355441D-03,
806 + .225570D-03, .139133D-03, .836259D-04, .487410D-04 /
807 DATA (UPDI(I),I=2809,2860) /
808 + .275200D-04, .149535D-04, .781392D-05, .389245D-05,
809 + .183796D-05, .810057D-06, .330117D-06, .118574D-06,
810 + .365350D-07, .900037D-08, .184239D-08, .229576D-10,
811 + .000000D+00, .186531D+06, .143984D+06, .109617D+06,
812 + .834281D+05, .634884D+05, .482987D+05, .367382D+05,
813 + .279355D+05, .212390D+05, .161421D+05, .122667D+05,
814 + .931835D+04, .707766D+04, .537385D+04, .407965D+04,
815 + .309603D+04, .234928D+04, .178202D+04, .135161D+04,
816 + .102482D+04, .777019D+03, .588978D+03, .446458D+03,
817 + .338362D+03, .256471D+03, .194399D+03, .147427D+03,
818 + .111379D+03, .845354D+02, .641899D+02, .487930D+02,
819 + .371230D+02, .282866D+02, .216033D+02, .165256D+02,
820 + .126706D+02, .974523D+01, .751761D+01, .582107D+01 /
821 DATA (UPDI(I),I=2861,2912) /
822 + .452281D+01, .352959D+01, .276427D+01, .217329D+01,
823 + .171421D+01, .135654D+01, .107597D+01, .856054D+00,
824 + .680800D+00, .542725D+00, .431915D+00, .343825D+00,
825 + .273265D+00, .216783D+00, .171492D+00, .135239D+00,
826 + .106214D+00, .830488D-01, .645974D-01, .499726D-01,
827 + .384121D-01, .293323D-01, .222326D-01, .167174D-01,
828 + .124797D-01, .921397D-02, .673278D-02, .486724D-02,
829 + .347722D-02, .245398D-02, .170834D-02, .117286D-02,
830 + .792906D-03, .527764D-03, .344903D-03, .222708D-03,
831 + .140909D-03, .879049D-04, .540554D-04, .329697D-04,
832 + .199714D-04, .121413D-04, .740153D-05, .453714D-05,
833 + .276539D-05, .165342D-05, .934547D-06, .478896D-06,
834 + .204827D-06, .586512D-07, .416392D-08, .000000D+00 /
835 DATA (UPDI(I),I=2913,2964) /
836 + .208789D+06, .203921D+06, .154555D+06, .117095D+06,
837 + .886953D+05, .671550D+05, .508341D+05, .384629D+05,
838 + .290953D+05, .219992D+05, .166295D+05, .125646D+05,
839 + .949088D+04, .716564D+04, .540867D+04, .408050D+04,
840 + .307770D+04, .232021D+04, .174874D+04, .131740D+04,
841 + .992272D+03, .747065D+03, .562380D+03, .423202D+03,
842 + .318453D+03, .239588D+03, .180319D+03, .135156D+03,
843 + .101766D+03, .766452D+02, .577769D+02, .435859D+02,
844 + .329244D+02, .249253D+02, .188972D+02, .143587D+02,
845 + .109436D+02, .836530D+01, .641862D+01, .494200D+01,
846 + .382225D+01, .296709D+01, .231257D+01, .180865D+01,
847 + .141953D+01, .111694D+01, .881832D+00, .696062D+00,
848 + .550940D+00, .435425D+00, .344330D+00, .271930D+00 /
849 DATA (UPDI(I),I=2965,3016) /
850 + .214412D+00, .168628D+00, .132238D+00, .103300D+00,
851 + .803556D-01, .621955D-01, .478892D-01, .366464D-01,
852 + .278658D-01, .210371D-01, .157594D-01, .117239D-01,
853 + .862856D-02, .628716D-02, .453419D-02, .323317D-02,
854 + .227896D-02, .158586D-02, .108955D-02, .738188D-03,
855 + .493383D-03, .324652D-03, .211795D-03, .136053D-03,
856 + .867066D-04, .548867D-04, .347566D-04, .220475D-04,
857 + .141223D-04, .908879D-05, .585650D-05, .371951D-05,
858 + .228701D-05, .131299D-05, .674408D-06, .284985D-06,
859 + .794992D-07, .576400D-08, .000000D+00, .381088D+06,
860 + .291869D+06, .220183D+06, .166030D+06, .125154D+06,
861 + .942949D+05, .710199D+05, .534621D+05, .402303D+05,
862 + .302570D+05, .227473D+05, .170919D+05, .128375D+05 /
863 DATA (UPDI(I),I=3017,3068) /
864 + .963640D+04, .723058D+04, .542215D+04, .406436D+04,
865 + .304472D+04, .227996D+04, .170626D+04, .127646D+04,
866 + .954380D+03, .713337D+03, .532904D+03, .398010D+03,
867 + .297155D+03, .221894D+03, .164967D+03, .123189D+03,
868 + .920003D+02, .687530D+02, .514100D+02, .384842D+02,
869 + .288681D+02, .216817D+02, .163188D+02, .123181D+02,
870 + .932528D+01, .708577D+01, .540292D+01, .413846D+01,
871 + .318197D+01, .245668D+01, .190364D+01, .148057D+01,
872 + .115472D+01, .903876D+00, .707524D+00, .555524D+00,
873 + .435632D+00, .341906D+00, .268063D+00, .209885D+00,
874 + .163957D+00, .127737D+00, .991569D-01, .766626D-01,
875 + .589884D-01, .451602D-01, .343672D-01, .259921D-01,
876 + .195202D-01, .145477D-01, .107680D-01, .788474D-02 /
877 DATA (UPDI(I),I=3069,3120) /
878 + .571587D-02, .410056D-02, .290798D-02, .203763D-02,
879 + .140863D-02, .960407D-03, .644698D-03, .425902D-03,
880 + .276048D-03, .176516D-03, .110341D-03, .677406D-04,
881 + .407645D-04, .241285D-04, .140357D-04, .808582D-05,
882 + .461280D-05, .262132D-05, .147556D-05, .819127D-06,
883 + .434140D-06, .212122D-06, .875675D-07, .244625D-07,
884 + .171946D-08, .000000D+00, .526587D+06, .401805D+06,
885 + .301799D+06, .226568D+06, .170020D+06, .127513D+06,
886 + .955920D+05, .716191D+05, .536334D+05, .401395D+05,
887 + .300260D+05, .224462D+05, .167713D+05, .125227D+05,
888 + .934547D+04, .696949D+04, .519479D+04, .386922D+04,
889 + .288034D+04, .214266D+04, .159309D+04, .118365D+04,
890 + .879015D+03, .652362D+03, .483949D+03, .358823D+03 /
891 DATA (UPDI(I),I=3121,3172) /
892 + .266050D+03, .196344D+03, .145531D+03, .107862D+03,
893 + .799787D+02, .593288D+02, .440499D+02, .327698D+02,
894 + .244035D+02, .182095D+02, .136252D+02, .102239D+02,
895 + .769953D+01, .581868D+01, .441723D+01, .336627D+01,
896 + .257613D+01, .197895D+01, .152602D+01, .118023D+01,
897 + .916310D+00, .711525D+00, .554336D+00, .431409D+00,
898 + .336101D+00, .261635D+00, .203431D+00, .157847D+00,
899 + .122170D+00, .942327D-01, .724037D-01, .553763D-01,
900 + .421460D-01, .318910D-01, .239857D-01, .179170D-01,
901 + .132831D-01, .978247D-02, .712803D-02, .514321D-02,
902 + .367345D-02, .259449D-02, .181129D-02, .124830D-02,
903 + .849095D-03, .569258D-03, .376113D-03, .244370D-03,
904 + .157087D-03, .991543D-04, .618230D-04, .380985D-04 /
905 DATA (UPDI(I),I=3173,3224) /
906 + .233291D-04, .142202D-04, .869349D-05, .532385D-05,
907 + .326136D-05, .197486D-05, .116257D-05, .641641D-06,
908 + .317667D-06, .128713D-06, .341727D-07, .250799D-08,
909 + .000000D+00, .707029D+06, .537569D+06, .402085D+06,
910 + .300577D+06, .224587D+06, .167702D+06, .125162D+06,
911 + .933503D+05, .695866D+05, .518362D+05, .385916D+05,
912 + .287103D+05, .213463D+05, .158591D+05, .117750D+05,
913 + .873580D+04, .647686D+04, .479813D+04, .355218D+04,
914 + .262760D+04, .194244D+04, .143476D+04, .105912D+04,
915 + .781216D+03, .575907D+03, .424264D+03, .312506D+03,
916 + .229058D+03, .168610D+03, .124089D+03, .913476D+02,
917 + .672635D+02, .495642D+02, .365892D+02, .270336D+02,
918 + .200112D+02, .148516D+02, .110529D+02, .825472D+01 /
919 DATA (UPDI(I),I=3225,3276) /
920 + .618633D+01, .465710D+01, .351953D+01, .267107D+01,
921 + .203505D+01, .155654D+01, .119422D+01, .919915D+00,
922 + .708818D+00, .548075D+00, .423392D+00, .327482D+00,
923 + .253140D+00, .195477D+00, .150663D+00, .115848D+00,
924 + .887867D-01, .677935D-01, .515350D-01, .389886D-01,
925 + .293304D-01, .219343D-01, .162941D-01, .120143D-01,
926 + .880147D-02, .638020D-02, .458088D-02, .325642D-02,
927 + .228986D-02, .159222D-02, .109356D-02, .741834D-03,
928 + .496532D-03, .327988D-03, .213523D-03, .137900D-03,
929 + .878026D-04, .554957D-04, .348918D-04, .219479D-04,
930 + .138411D-04, .879488D-05, .560765D-05, .356285D-05,
931 + .222259D-05, .133340D-05, .742348D-06, .366166D-06,
932 + .145938D-06, .377260D-07, .282438D-08, .000000D+00 /
933 DATA (UPDI(I),I=3277,3328) /
934 + .928394D+06, .703432D+06, .524000D+06, .390097D+06,
935 + .290255D+06, .215817D+06, .160377D+06, .119092D+06,
936 + .883809D+05, .655396D+05, .485701D+05, .359656D+05,
937 + .266140D+05, .196775D+05, .145386D+05, .107324D+05,
938 + .791679D+04, .583457D+04, .429675D+04, .316133D+04,
939 + .232421D+04, .170718D+04, .125303D+04, .918877D+03,
940 + .673365D+03, .493041D+03, .360909D+03, .262833D+03,
941 + .192215D+03, .140523D+03, .102742D+03, .751286D+02,
942 + .549662D+02, .402841D+02, .295432D+02, .217045D+02,
943 + .159851D+02, .118044D+02, .874690D+01, .650356D+01,
944 + .485714D+01, .364167D+01, .274191D+01, .207265D+01,
945 + .157296D+01, .119754D+01, .915502D+00, .700148D+00,
946 + .537412D+00, .412164D+00, .316550D+00, .243004D+00 /
947 DATA (UPDI(I),I=3329,3380) /
948 + .186380D+00, .142701D+00, .109012D+00, .830162D-01,
949 + .629913D-01, .475917D-01, .357887D-01, .267649D-01,
950 + .199002D-01, .146997D-01, .107785D-01, .785347D-02,
951 + .566285D-02, .404515D-02, .286162D-02, .200312D-02,
952 + .138708D-02, .949281D-03, .642152D-03, .429073D-03,
953 + .283354D-03, .184817D-03, .119893D-03, .769591D-04,
954 + .492423D-04, .314951D-04, .202413D-04, .130875D-04,
955 + .852994D-05, .556744D-05, .360055D-05, .227118D-05,
956 + .136637D-05, .757258D-06, .368662D-06, .143668D-06,
957 + .360947D-07, .274720D-08, .000000D+00, .119705D+07,
958 + .903906D+06, .670637D+06, .497239D+06, .368455D+06,
959 + .272822D+06, .201882D+06, .149271D+06, .110297D+06,
960 + .814312D+05, .600773D+05, .442848D+05, .326191D+05 /
961 DATA (UPDI(I),I=3381,3432) /
962 + .240047D+05, .176513D+05, .129672D+05, .951829D+04,
963 + .697979D+04, .511397D+04, .374312D+04, .273742D+04,
964 + .199988D+04, .145982D+04, .106453D+04, .775652D+03,
965 + .564619D+03, .410843D+03, .297354D+03, .216110D+03,
966 + .156991D+03, .114038D+03, .828373D+02, .601960D+02,
967 + .438135D+02, .319054D+02, .232722D+02, .170149D+02,
968 + .124722D+02, .917281D+01, .676899D+01, .501714D+01,
969 + .373313D+01, .278947D+01, .209271D+01, .157627D+01,
970 + .119114D+01, .903939D+00, .686281D+00, .523010D+00,
971 + .398292D+00, .303780D+00, .231619D+00, .176461D+00,
972 + .134221D+00, .101872D+00, .770872D-01, .581278D-01,
973 + .436484D-01, .326254D-01, .242549D-01, .179290D-01,
974 + .131682D-01, .960135D-02, .695749D-02, .498990D-02 /
975 DATA (UPDI(I),I=3433,3484) /
976 + .354608D-02, .249625D-02, .173938D-02, .119946D-02,
977 + .817983D-03, .551824D-03, .368131D-03, .243095D-03,
978 + .158887D-03, .103543D-03, .669892D-04, .433530D-04,
979 + .281472D-04, .184096D-04, .121287D-04, .804169D-05,
980 + .532159D-05, .346947D-05, .219348D-05, .131392D-05,
981 + .720831D-06, .345003D-06, .131137D-06, .319942D-07,
982 + .247317D-08, .000000D+00, .151963D+07, .114366D+07,
983 + .845161D+06, .624136D+06, .460614D+06, .339664D+06,
984 + .250300D+06, .184293D+06, .135594D+06, .996756D+05,
985 + .732150D+05, .537292D+05, .393971D+05, .288600D+05,
986 + .211229D+05, .154444D+05, .112822D+05, .823300D+04,
987 + .600228D+04, .437118D+04, .318034D+04, .231134D+04,
988 + .167820D+04, .121715D+04, .881962D+03, .638378D+03 /
989 DATA (UPDI(I),I=3485,3536) /
990 + .461842D+03, .332279D+03, .240048D+03, .173317D+03,
991 + .125112D+03, .903046D+02, .651960D+02, .471399D+02,
992 + .340959D+02, .246995D+02, .179323D+02, .130519D+02,
993 + .953045D+01, .698217D+01, .513753D+01, .379486D+01,
994 + .281488D+01, .209640D+01, .156759D+01, .117604D+01,
995 + .886121D+00, .667987D+00, .505518D+00, .382313D+00,
996 + .289611D+00, .219341D+00, .166005D+00, .125449D+00,
997 + .946049D-01, .711371D-01, .533081D-01, .397849D-01,
998 + .295584D-01, .218447D-01, .160533D-01, .117233D-01,
999 + .849965D-02, .612533D-02, .436950D-02, .308921D-02,
1000 + .216401D-02, .150107D-02, .103092D-02, .700666D-03,
1001 + .471486D-03, .314120D-03, .207488D-03, .135940D-03,
1002 + .890137D-04, .580391D-04, .379626D-04, .249748D-04 /
1003 DATA (UPDI(I),I=3537,3588) /
1004 + .165713D-04, .110728D-04, .742600D-05, .495173D-05,
1005 + .323584D-05, .204023D-05, .121217D-05, .656361D-06,
1006 + .308228D-06, .114157D-06, .270519D-07, .212271D-08,
1007 + .000000D+00, .190293D+07, .142741D+07, .105074D+07,
1008 + .772892D+06, .568119D+06, .417248D+06, .306214D+06,
1009 + .224529D+06, .164504D+06, .120414D+06, .880668D+05,
1010 + .643462D+05, .469731D+05, .342553D+05, .249575D+05,
1011 + .181638D+05, .132065D+05, .959126D+04, .695866D+04,
1012 + .504274D+04, .365058D+04, .263959D+04, .190661D+04,
1013 + .137553D+04, .991370D+03, .713633D+03, .513404D+03,
1014 + .367248D+03, .263774D+03, .189325D+03, .135844D+03,
1015 + .974492D+02, .699133D+02, .502291D+02, .360940D+02,
1016 + .259742D+02, .187310D+02, .135405D+02, .981904D+01 /
1017 DATA (UPDI(I),I=3589,3640) /
1018 + .714357D+01, .521943D+01, .382820D+01, .281955D+01,
1019 + .208506D+01, .154813D+01, .115329D+01, .862950D+00,
1020 + .646018D+00, .485556D+00, .364728D+00, .274445D+00,
1021 + .206487D+00, .155260D+00, .116577D+00, .873563D-01,
1022 + .652761D-01, .486144D-01, .360616D-01, .266314D-01,
1023 + .195655D-01, .142947D-01, .103796D-01, .748317D-02,
1024 + .536331D-02, .380551D-02, .267677D-02, .186609D-02,
1025 + .128871D-02, .881632D-03, .597308D-03, .401037D-03,
1026 + .266929D-03, .176441D-03, .115922D-03, .762905D-04,
1027 + .501271D-04, .331145D-04, .220382D-04, .147945D-04,
1028 + .998896D-05, .674760D-05, .451441D-05, .294574D-05,
1029 + .184647D-05, .108557D-05, .579140D-06, .266537D-06,
1030 + .961488D-07, .221444D-07, .176327D-08, .000000D+00 /
1031 DATA (UPDI(I),I=3641,3692) /
1032 + .235374D+07, .175985D+07, .129045D+07, .945526D+06,
1033 + .692276D+06, .506408D+06, .370149D+06, .270301D+06,
1034 + .197221D+06, .143758D+06, .104694D+06, .761665D+05,
1035 + .553598D+05, .401933D+05, .291528D+05, .211208D+05,
1036 + .152857D+05, .110495D+05, .797857D+04, .575400D+04,
1037 + .414509D+04, .298225D+04, .214322D+04, .153827D+04,
1038 + .110286D+04, .789646D+03, .565004D+03, .401893D+03,
1039 + .287033D+03, .204840D+03, .146117D+03, .104196D+03,
1040 + .743000D+02, .530522D+02, .378828D+02, .270873D+02,
1041 + .194068D+02, .139367D+02, .100390D+02, .725448D+01,
1042 + .526448D+01, .383489D+01, .280512D+01, .206017D+01,
1043 + .151916D+01, .112398D+01, .835315D+00, .621096D+00,
1044 + .463702D+00, .345996D+00, .258640D+00, .193334D+00 /
1045 DATA (UPDI(I),I=3693,3744) /
1046 + .144437D+00, .107763D+00, .802447D-01, .595909D-01,
1047 + .441089D-01, .325222D-01, .238743D-01, .174371D-01,
1048 + .126662D-01, .914498D-02, .655635D-02, .467360D-02,
1049 + .329869D-02, .230867D-02, .160195D-02, .110161D-02,
1050 + .750867D-03, .507249D-03, .339931D-03, .226135D-03,
1051 + .149650D-03, .986349D-04, .652573D-04, .432013D-04,
1052 + .288014D-04, .193592D-04, .131171D-04, .892170D-05,
1053 + .605045D-05, .404879D-05, .263105D-05, .163606D-05,
1054 + .950319D-06, .498939D-06, .224887D-06, .790095D-07,
1055 + .177002D-07, .142980D-08, .000000D+00, .287868D+07,
1056 + .214548D+07, .156723D+07, .114391D+07, .834268D+06,
1057 + .607880D+06, .442549D+06, .321872D+06, .233891D+06,
1058 + .169785D+06, .123133D+06, .892023D+05, .645568D+05 /
1059 DATA (UPDI(I),I=3745,3796) /
1060 + .466674D+05, .336996D+05, .243061D+05, .175114D+05,
1061 + .126003D+05, .905609D+04, .650026D+04, .466023D+04,
1062 + .333655D+04, .238598D+04, .170390D+04, .121536D+04,
1063 + .865650D+03, .616105D+03, .435849D+03, .309579D+03,
1064 + .219699D+03, .155826D+03, .110478D+03, .783154D+02,
1065 + .555854D+02, .394495D+02, .280329D+02, .199578D+02,
1066 + .142410D+02, .101919D+02, .731693D+01, .527482D+01,
1067 + .381695D+01, .277339D+01, .202328D+01, .148199D+01,
1068 + .108915D+01, .804071D+00, .593900D+00, .440489D+00,
1069 + .326528D+00, .242510D+00, .180118D+00, .133712D+00,
1070 + .991358D-01, .733626D-01, .541463D-01, .398360D-01,
1071 + .291962D-01, .213061D-01, .154709D-01, .111736D-01,
1072 + .802211D-02, .571964D-02, .405541D-02, .284760D-02 /
1073 DATA (UPDI(I),I=3797,3848) /
1074 + .198325D-02, .136993D-02, .938263D-03, .637352D-03,
1075 + .429464D-03, .287375D-03, .191156D-03, .126707D-03,
1076 + .838098D-04, .557506D-04, .371759D-04, .249903D-04,
1077 + .169386D-04, .115587D-04, .789927D-05, .536427D-05,
1078 + .358178D-05, .231348D-05, .142495D-05, .816860D-06,
1079 + .421731D-06, .186084D-06, .636804D-07, .138892D-07,
1080 + .113793D-08, .000000D+00, .319920D+05, .489424D+05,
1081 + .384798D+05, .302541D+05, .237870D+05, .187026D+05,
1082 + .147052D+05, .115624D+05, .909146D+04, .714877D+04,
1083 + .562138D+04, .442049D+04, .347631D+04, .273394D+04,
1084 + .215025D+04, .169130D+04, .133044D+04, .104669D+04,
1085 + .823570D+03, .648117D+03, .510143D+03, .401638D+03,
1086 + .316302D+03, .249183D+03, .196389D+03, .154858D+03 /
1087 DATA (UPDI(I),I=3849,3900) /
1088 + .122184D+03, .961514D+02, .759938D+02, .601245D+02,
1089 + .476278D+02, .377837D+02, .300260D+02, .239254D+02,
1090 + .190988D+02, .152887D+02, .122773D+02, .989336D+01,
1091 + .800223D+01, .649748D+01, .529805D+01, .433669D+01,
1092 + .356302D+01, .293724D+01, .242832D+01, .201216D+01,
1093 + .167112D+01, .138742D+01, .115321D+01, .956710D+00,
1094 + .792996D+00, .655774D+00, .540647D+00, .444057D+00,
1095 + .363105D+00, .295396D+00, .238936D+00, .192039D+00,
1096 + .153272D+00, .121404D+00, .953714D-01, .742557D-01,
1097 + .572604D-01, .437527D-01, .330042D-01, .245953D-01,
1098 + .180889D-01, .131146D-01, .936100D-02, .656883D-02,
1099 + .452415D-02, .305242D-02, .201251D-02, .129262D-02,
1100 + .809994D-03, .490070D-03, .285968D-03, .160074D-03 /
1101 DATA (UPDI(I),I=3901,3952) /
1102 + .853851D-04, .430388D-04, .202808D-04, .882193D-05,
1103 + .345464D-05, .119509D-05, .349777D-06, .814947D-07,
1104 + .136478D-07, .135646D-08, .520433D-10, .194743D-12,
1105 + .000000D+00, .101959D+06, .800270D+05, .621102D+05,
1106 + .482083D+05, .374236D+05, .290534D+05, .225587D+05,
1107 + .175171D+05, .136044D+05, .105664D+05, .820814D+04,
1108 + .637675D+04, .495486D+04, .385039D+04, .299271D+04,
1109 + .232634D+04, .180876D+04, .140654D+04, .109406D+04,
1110 + .851158D+03, .662413D+03, .515661D+03, .401591D+03,
1111 + .312872D+03, .243885D+03, .190215D+03, .148476D+03,
1112 + .115576D+03, .903845D+02, .707592D+02, .554740D+02,
1113 + .435566D+02, .342644D+02, .270299D+02, .213656D+02,
1114 + .169371D+02, .134720D+02, .107540D+02, .861875D+01 /
1115 DATA (UPDI(I),I=3953,4004) /
1116 + .693475D+01, .560496D+01, .454822D+01, .370538D+01,
1117 + .302933D+01, .248441D+01, .204241D+01, .168337D+01,
1118 + .138707D+01, .114461D+01, .942807D+00, .776095D+00,
1119 + .637473D+00, .522125D+00, .426109D+00, .346272D+00,
1120 + .279998D+00, .225145D+00, .179913D+00, .142792D+00,
1121 + .112485D+00, .878969D-01, .680858D-01, .522384D-01,
1122 + .397230D-01, .298224D-01, .221212D-01, .161957D-01,
1123 + .116900D-01, .830805D-02, .580476D-02, .398051D-02,
1124 + .267324D-02, .175395D-02, .111970D-02, .696434D-03,
1125 + .416863D-03, .239268D-03, .130288D-03, .661074D-04,
1126 + .302275D-04, .114141D-04, .249528D-05, .000000D+00,
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 + .152974D+06, .119198D+06, .917441D+05, .706130D+05,
1131 + .543548D+05, .418391D+05, .322089D+05, .247950D+05,
1132 + .190899D+05, .146974D+05, .113171D+05, .871434D+04,
1133 + .671117D+04, .516858D+04, .398127D+04, .306684D+04,
1134 + .236295D+04, .182075D+04, .140332D+04, .108174D+04,
1135 + .834135D+03, .643344D+03, .496404D+03, .383151D+03,
1136 + .295900D+03, .228637D+03, .176819D+03, .136345D+03,
1137 + .105641D+03, .819377D+02, .636476D+02, .495154D+02,
1138 + .385971D+02, .301723D+02, .236358D+02, .185698D+02,
1139 + .146412D+02, .115857D+02, .920607D+01, .734482D+01,
1140 + .588746D+01, .473865D+01, .382985D+01, .310664D+01,
1141 + .252843D+01, .206306D+01, .168807D+01, .138095D+01,
1142 + .113169D+01, .925797D+00, .757040D+00, .617782D+00 /
1143 DATA (UPDI(I),I=4057,4108) /
1144 + .502796D+00, .407795D+00, .329389D+00, .264773D+00,
1145 + .211673D+00, .168192D+00, .132753D+00, .104014D+00,
1146 + .808517D-01, .623108D-01, .475702D-01, .360011D-01,
1147 + .269033D-01, .198676D-01, .144849D-01, .104147D-01,
1148 + .737621D-02, .513867D-02, .351618D-02, .235882D-02,
1149 + .154846D-02, .991170D-03, .620376D-03, .375717D-03,
1150 + .220229D-03, .124358D-03, .673597D-04, .347764D-04,
1151 + .170177D-04, .783535D-05, .335486D-05, .132528D-05,
1152 + .477746D-06, .152251D-06, .420418D-07, .953733D-08,
1153 + .186289D-08, .230433D-10, .000000D+00, .216584D+06,
1154 + .167846D+06, .128378D+06, .981795D+05, .750868D+05,
1155 + .574185D+05, .439090D+05, .335741D+05, .256728D+05,
1156 + .196288D+05, .150085D+05, .114747D+05, .877355D+04 /
1157 DATA (UPDI(I),I=4109,4160) /
1158 + .670774D+04, .512885D+04, .392140D+04, .299863D+04,
1159 + .229296D+04, .175369D+04, .134130D+04, .102617D+04,
1160 + .785180D+03, .601006D+03, .460146D+03, .352476D+03,
1161 + .270122D+03, .207189D+03, .158424D+03, .121730D+03,
1162 + .936283D+02, .721217D+02, .556385D+02, .430076D+02,
1163 + .333399D+02, .259004D+02, .201807D+02, .157809D+02,
1164 + .123860D+02, .976293D+01, .772719D+01, .614563D+01,
1165 + .490835D+01, .393702D+01, .316984D+01, .256112D+01,
1166 + .207478D+01, .168585D+01, .136965D+01, .111494D+01,
1167 + .906096D+00, .736181D+00, .596986D+00, .482887D+00,
1168 + .389293D+00, .312596D+00, .249826D+00, .198594D+00,
1169 + .156925D+00, .123189D+00, .960071D-01, .742405D-01,
1170 + .569266D-01, .432439D-01, .325699D-01, .242249D-01 /
1171 DATA (UPDI(I),I=4161,4212) /
1172 + .178084D-01, .129272D-01, .925670D-02, .653141D-02,
1173 + .453494D-02, .309458D-02, .207204D-02, .135933D-02,
1174 + .871029D-03, .547224D-03, .333998D-03, .198566D-03,
1175 + .114843D-03, .647348D-04, .356429D-04, .193505D-04,
1176 + .104606D-04, .570153D-05, .315654D-05, .176413D-05,
1177 + .959488D-06, .482919D-06, .205215D-06, .586659D-07,
1178 + .416399D-08, .000000D+00, .200207D+06, .227594D+06,
1179 + .173167D+06, .131730D+06, .100202D+06, .762023D+05,
1180 + .579479D+05, .440567D+05, .334938D+05, .254581D+05,
1181 + .193495D+05, .147037D+05, .111732D+05, .848883D+04,
1182 + .644944D+04, .489922D+04, .372180D+04, .282699D+04,
1183 + .214753D+04, .163128D+04, .123936D+04, .941624D+03,
1184 + .715619D+03, .543939D+03, .413620D+03, .314635D+03 /
1185 DATA (UPDI(I),I=4213,4264) /
1186 + .239536D+03, .181759D+03, .138599D+03, .105788D+03,
1187 + .808609D+02, .618976D+02, .474741D+02, .365167D+02,
1188 + .281477D+02, .217616D+02, .168858D+02, .131513D+02,
1189 + .102873D+02, .808078D+01, .637906D+01, .505738D+01,
1190 + .402721D+01, .321938D+01, .258297D+01, .207810D+01,
1191 + .167721D+01, .135358D+01, .109475D+01, .884010D+00,
1192 + .713764D+00, .575272D+00, .462539D+00, .370700D+00,
1193 + .295953D+00, .235187D+00, .185919D+00, .146108D+00,
1194 + .114084D+00, .884442D-01, .680402D-01, .519096D-01,
1195 + .392372D-01, .294096D-01, .217706D-01, .159303D-01,
1196 + .115125D-01, .820867D-02, .576895D-02, .399107D-02,
1197 + .271496D-02, .181347D-02, .118807D-02, .761322D-03,
1198 + .479347D-03, .294148D-03, .176657D-03, .103927D-03 /
1199 DATA (UPDI(I),I=4265,4316) /
1200 + .601798D-04, .344866D-04, .197933D-04, .114728D-04,
1201 + .675465D-05, .401801D-05, .237049D-05, .133158D-05,
1202 + .677367D-06, .285267D-06, .795099D-07, .576405D-08,
1203 + .000000D+00, .410631D+06, .315325D+06, .238625D+06,
1204 + .180530D+06, .136555D+06, .103259D+06, .780685D+05,
1205 + .590046D+05, .445885D+05, .336841D+05, .254423D+05,
1206 + .192114D+05, .145043D+05, .109474D+05, .826169D+04,
1207 + .623325D+04, .470242D+04, .354674D+04, .267498D+04,
1208 + .201715D+04, .152117D+04, .114705D+04, .865065D+03,
1209 + .652432D+03, .492206D+03, .371419D+03, .280477D+03,
1210 + .211056D+03, .159602D+03, .120796D+03, .915501D+02,
1211 + .694821D+02, .528321D+02, .402882D+02, .307855D+02,
1212 + .235947D+02, .181496D+02, .140138D+02, .108679D+02 /
1213 DATA (UPDI(I),I=4317,4368) /
1214 + .846428D+01, .662555D+01, .520915D+01, .411398D+01,
1215 + .326217D+01, .259646D+01, .207260D+01, .165995D+01,
1216 + .132949D+01, .106732D+01, .855575D+00, .685871D+00,
1217 + .548922D+00, .438317D+00, .348919D+00, .276717D+00,
1218 + .218469D+00, .171596D+00, .134002D+00, .103981D+00,
1219 + .801186D-01, .612634D-01, .464618D-01, .349113D-01,
1220 + .260143D-01, .191441D-01, .139262D-01, .100046D-01,
1221 + .709079D-02, .495268D-02, .340447D-02, .230016D-02,
1222 + .152499D-02, .990696D-03, .628536D-03, .390917D-03,
1223 + .236072D-03, .138717D-03, .791462D-04, .438574D-04,
1224 + .236034D-04, .124066D-04, .641151D-05, .329183D-05,
1225 + .169596D-05, .880046D-06, .447538D-06, .214229D-06,
1226 + .877662D-07, .244700D-07, .171949D-08, .000000D+00 /
1227 DATA (UPDI(I),I=4369,4420) /
1228 + .555861D+06, .425048D+06, .320073D+06, .240936D+06,
1229 + .181318D+06, .136396D+06, .102576D+06, .771110D+05,
1230 + .579518D+05, .435353D+05, .326964D+05, .245462D+05,
1231 + .184228D+05, .138216D+05, .103670D+05, .777306D+04,
1232 + .582690D+04, .436653D+04, .327163D+04, .245058D+04,
1233 + .183544D+04, .137444D+04, .102924D+04, .770688D+03,
1234 + .577177D+03, .432305D+03, .323999D+03, .241917D+03,
1235 + .181521D+03, .136309D+03, .102486D+03, .771582D+02,
1236 + .581932D+02, .440157D+02, .333578D+02, .253561D+02,
1237 + .193438D+02, .148132D+02, .113936D+02, .880149D+01,
1238 + .683380D+01, .532987D+01, .417593D+01, .328538D+01,
1239 + .259472D+01, .205542D+01, .163387D+01, .129889D+01,
1240 + .103518D+01, .823850D+00, .655780D+00, .521200D+00 /
1241 DATA (UPDI(I),I=4421,4472) /
1242 + .413338D+00, .326825D+00, .257478D+00, .201954D+00,
1243 + .157602D+00, .122294D+00, .943014D-01, .722116D-01,
1244 + .548806D-01, .413714D-01, .309010D-01, .228912D-01,
1245 + .167476D-01, .121131D-01, .865312D-02, .609933D-02,
1246 + .423761D-02, .289826D-02, .194900D-02, .128684D-02,
1247 + .833189D-03, .527490D-03, .327972D-03, .198563D-03,
1248 + .117472D-03, .679299D-04, .385226D-04, .215177D-04,
1249 + .119552D-04, .666702D-05, .375619D-05, .213551D-05,
1250 + .120638D-05, .651143D-06, .319140D-06, .128850D-06,
1251 + .341778D-07, .250801D-08, .000000D+00, .736037D+06,
1252 + .560601D+06, .420193D+06, .314815D+06, .235782D+06,
1253 + .176504D+06, .132083D+06, .987923D+05, .738656D+05,
1254 + .552010D+05, .412376D+05, .307910D+05, .229826D+05 /
1255 DATA (UPDI(I),I=4473,4524) /
1256 + .171460D+05, .127871D+05, .953190D+04, .710308D+04,
1257 + .529077D+04, .393976D+04, .293258D+04, .218245D+04,
1258 + .162368D+04, .120785D+04, .898340D+03, .668167D+03,
1259 + .496962D+03, .369818D+03, .274113D+03, .204174D+03,
1260 + .152184D+03, .113561D+03, .848466D+02, .634993D+02,
1261 + .476578D+02, .358356D+02, .270259D+02, .204552D+02,
1262 + .155409D+02, .118593D+02, .908943D+01, .700234D+01,
1263 + .541906D+01, .421319D+01, .328951D+01, .257844D+01,
1264 + .202733D+01, .159975D+01, .126251D+01, .999015D+00,
1265 + .789445D+00, .624023D+00, .492562D+00, .387985D+00,
1266 + .304735D+00, .238494D+00, .185848D+00, .144103D+00,
1267 + .111110D+00, .851403D-01, .647928D-01, .489410D-01,
1268 + .366709D-01, .272256D-01, .200491D-01, .145819D-01 /
1269 DATA (UPDI(I),I=4525,4576) /
1270 + .104855D-01, .744770D-02, .522047D-02, .360750D-02,
1271 + .245468D-02, .164289D-02, .108021D-02, .697083D-03,
1272 + .440426D-03, .273797D-03, .166222D-03, .990273D-04,
1273 + .580233D-04, .336210D-04, .193936D-04, .112510D-04,
1274 + .660811D-05, .392708D-05, .233937D-05, .136481D-05,
1275 + .749067D-06, .367192D-06, .146033D-06, .377296D-07,
1276 + .282440D-08, .000000D+00, .957140D+06, .726256D+06,
1277 + .541945D+06, .404206D+06, .301348D+06, .224539D+06,
1278 + .167235D+06, .124485D+06, .926211D+05, .688738D+05,
1279 + .511919D+05, .380273D+05, .282353D+05, .209526D+05,
1280 + .155414D+05, .115211D+05, .853716D+04, .632257D+04,
1281 + .468065D+04, .346338D+04, .256189D+04, .189423D+04,
1282 + .140027D+04, .103480D+04, .764655D+03, .564952D+03 /
1283 DATA (UPDI(I),I=4577,4628) /
1284 + .417580D+03, .307364D+03, .227348D+03, .168260D+03,
1285 + .124657D+03, .924612D+02, .686893D+02, .511717D+02,
1286 + .381898D+02, .285847D+02, .214713D+02, .161894D+02,
1287 + .122605D+02, .932585D+01, .713032D+01, .547674D+01,
1288 + .422628D+01, .327535D+01, .254852D+01, .198925D+01,
1289 + .155845D+01, .122115D+01, .959509D+00, .752946D+00,
1290 + .591088D+00, .463406D+00, .362575D+00, .282894D+00,
1291 + .219952D+00, .170292D+00, .131196D+00, .100518D+00,
1292 + .765418D-01, .578884D-01, .434577D-01, .323649D-01,
1293 + .238837D-01, .174833D-01, .126405D-01, .903633D-02,
1294 + .638158D-02, .444816D-02, .305721D-02, .206961D-02,
1295 + .137864D-02, .902761D-03, .580720D-03, .366242D-03,
1296 + .227714D-03, .138675D-03, .832137D-04, .493884D-04 /
1297 DATA (UPDI(I),I=4629,4680) /
1298 + .291879D-04, .173018D-04, .103749D-04, .631077D-05,
1299 + .386799D-05, .235586D-05, .138885D-05, .761999D-06,
1300 + .369376D-06, .143733D-06, .360971D-07, .274722D-08,
1301 + .000000D+00, .122553D+07, .926524D+06, .688420D+06,
1302 + .511221D+06, .379448D+06, .281465D+06, .208678D+06,
1303 + .154615D+06, .114498D+06, .847351D+05, .626752D+05,
1304 + .463276D+05, .342255D+05, .252680D+05, .186448D+05,
1305 + .137486D+05, .101328D+05, .746318D+04, .549420D+04,
1306 + .404225D+04, .297276D+04, .218507D+04, .160556D+04,
1307 + .117925D+04, .865967D+03, .635738D+03, .466867D+03,
1308 + .341356D+03, .250806D+03, .184366D+03, .135650D+03,
1309 + .999150D+02, .737030D+02, .545167D+02, .403933D+02,
1310 + .300151D+02, .223814D+02, .167524D+02, .125940D+02 /
1311 DATA (UPDI(I),I=4681,4732) /
1312 + .950945D+01, .721761D+01, .550346D+01, .421612D+01,
1313 + .324396D+01, .250603D+01, .194218D+01, .151090D+01,
1314 + .117560D+01, .917350D+00, .714923D+00, .557437D+00,
1315 + .434098D+00, .337393D+00, .261519D+00, .202013D+00,
1316 + .155397D+00, .118958D+00, .905675D-01, .685335D-01,
1317 + .515110D-01, .384329D-01, .284490D-01, .208671D-01,
1318 + .151839D-01, .109128D-01, .775563D-02, .544571D-02,
1319 + .377463D-02, .258036D-02, .173797D-02, .115240D-02,
1320 + .751644D-03, .482098D-03, .303601D-03, .188879D-03,
1321 + .115440D-03, .697979D-04, .419536D-04, .252492D-04,
1322 + .153192D-04, .942396D-05, .587244D-05, .366534D-05,
1323 + .225472D-05, .132996D-05, .724167D-06, .345498D-06,
1324 + .131181D-06, .319959D-07, .247318D-08, .000000D+00 /
1325 DATA (UPDI(I),I=4733,4784) /
1326 + .154786D+07, .116607D+07, .862783D+06, .637992D+06,
1327 + .471508D+06, .348229D+06, .257035D+06, .189589D+06,
1328 + .139757D+06, .102949D+06, .757892D+05, .557534D+05,
1329 + .409888D+05, .301117D+05, .221072D+05, .162184D+05,
1330 + .118910D+05, .871179D+04, .637886D+04, .466740D+04,
1331 + .341336D+04, .249466D+04, .182244D+04, .133066D+04,
1332 + .971296D+03, .708699D+03, .517214D+03, .375746D+03,
1333 + .274302D+03, .200324D+03, .146416D+03, .107123D+03,
1334 + .784827D+02, .576547D+02, .424220D+02, .313023D+02,
1335 + .231770D+02, .172254D+02, .128578D+02, .963991D+01,
1336 + .726479D+01, .550027D+01, .418395D+01, .319661D+01,
1337 + .245220D+01, .188724D+01, .145805D+01, .112668D+01,
1338 + .873207D+00, .675917D+00, .523500D+00, .404970D+00 /
1339 DATA (UPDI(I),I=4785,4836) /
1340 + .312688D+00, .240794D+00, .184804D+00, .141250D+00,
1341 + .107444D+00, .812877D-01, .611281D-01, .456613D-01,
1342 + .338599D-01, .249120D-01, .181623D-01, .131370D-01,
1343 + .938568D-02, .663139D-02, .462972D-02, .319126D-02,
1344 + .217000D-02, .145435D-02, .960052D-03, .623878D-03,
1345 + .399116D-03, .251087D-03, .156387D-03, .959797D-04,
1346 + .584963D-04, .356004D-04, .217865D-04, .134818D-04,
1347 + .845889D-05, .535886D-05, .337890D-05, .208441D-05,
1348 + .122359D-05, .658703D-06, .308571D-06, .114187D-06,
1349 + .270530D-07, .212272D-08, .000000D+00, .193090D+07,
1350 + .144963D+07, .106820D+07, .786623D+06, .578914D+06,
1351 + .425736D+06, .312888D+06, .229776D+06, .168630D+06,
1352 + .123658D+06, .906175D+05, .663518D+05, .485501D+05 /
1353 DATA (UPDI(I),I=4837,4888) /
1354 + .354954D+05, .259326D+05, .189306D+05, .138095D+05,
1355 + .100655D+05, .733159D+04, .533604D+04, .388127D+04,
1356 + .282105D+04, .204935D+04, .148782D+04, .107972D+04,
1357 + .783148D+03, .568116D+03, .410173D+03, .297579D+03,
1358 + .215957D+03, .156834D+03, .114002D+03, .829751D+02,
1359 + .605518D+02, .442550D+02, .324343D+02, .238517D+02,
1360 + .176057D+02, .130515D+02, .971783D+01, .727311D+01,
1361 + .546868D+01, .413133D+01, .313478D+01, .238832D+01,
1362 + .182556D+01, .140087D+01, .107517D+01, .827719D+00,
1363 + .636433D+00, .489664D+00, .376316D+00, .288674D+00,
1364 + .220869D+00, .168426D+00, .127915D+00, .966874D-01,
1365 + .726928D-01, .543256D-01, .403304D-01, .297243D-01,
1366 + .217370D-01, .157521D-01, .113259D-01, .804403D-02 /
1367 DATA (UPDI(I),I=4889,4940) /
1368 + .565050D-02, .392259D-02, .268906D-02, .181902D-02,
1369 + .121328D-02, .797532D-03, .516509D-03, .329708D-03,
1370 + .207316D-03, .129348D-03, .797626D-04, .490175D-04,
1371 + .301947D-04, .187607D-04, .118031D-04, .751738D-05,
1372 + .481450D-05, .304995D-05, .187825D-05, .109367D-05,
1373 + .580779D-06, .266773D-06, .961694D-07, .221451D-07,
1374 + .176327D-08, .000000D+00, .238146D+07, .178187D+07,
1375 + .130776D+07, .959132D+06, .702973D+06, .514819D+06,
1376 + .376762D+06, .275501D+06, .201309D+06, .146972D+06,
1377 + .107221D+06, .781536D+05, .569222D+05, .414218D+05,
1378 + .301187D+05, .218803D+05, .158829D+05, .115191D+05,
1379 + .834786D+04, .604439D+04, .437344D+04, .316182D+04,
1380 + .228444D+04, .164934D+04, .119021D+04, .858347D+03 /
1381 DATA (UPDI(I),I=4941,4992) /
1382 + .619047D+03, .444268D+03, .320382D+03, .231091D+03,
1383 + .166788D+03, .120479D+03, .871326D+02, .631790D+02,
1384 + .458755D+02, .334021D+02, .244014D+02, .178922D+02,
1385 + .131755D+02, .974465D+01, .724436D+01, .541056D+01,
1386 + .406002D+01, .306004D+01, .231578D+01, .175828D+01,
1387 + .134029D+01, .102184D+01, .781484D+00, .596928D+00,
1388 + .456274D+00, .348384D+00, .265528D+00, .201860D+00,
1389 + .152953D+00, .115432D+00, .867052D-01, .647827D-01,
1390 + .481153D-01, .355013D-01, .260062D-01, .189034D-01,
1391 + .136166D-01, .973263D-02, .687191D-02, .479943D-02,
1392 + .331318D-02, .225911D-02, .152046D-02, .100947D-02,
1393 + .660936D-03, .426743D-03, .271937D-03, .170997D-03,
1394 + .106938D-03, .662913D-04, .410868D-04, .256042D-04 /
1395 DATA (UPDI(I),I=4993,5044) /
1396 + .161256D-04, .102843D-04, .662263D-05, .426940D-05,
1397 + .270676D-05, .165887D-05, .956058D-06, .500083D-06,
1398 + .225050D-06, .790235D-07, .177007D-07, .142981D-08,
1399 + .000000D+00, .290615D+07, .216729D+07, .158437D+07,
1400 + .115739D+07, .844868D+06, .616214D+06, .449102D+06,
1401 + .327024D+06, .237942D+06, .172970D+06, .125637D+06,
1402 + .911710D+05, .661047D+05, .478844D+05, .346564D+05,
1403 + .250584D+05, .181029D+05, .130654D+05, .942173D+04,
1404 + .678773D+04, .488624D+04, .351424D+04, .252568D+04,
1405 + .181373D+04, .130170D+04, .933527D+03, .669471D+03,
1406 + .477665D+03, .342463D+03, .245562D+03, .176171D+03,
1407 + .126486D+03, .909143D+02, .655124D+02, .472708D+02,
1408 + .341998D+02, .248244D+02, .180853D+02, .132316D+02 /
1409 DATA (UPDI(I),I=5045,5096) /
1410 + .972258D+01, .718085D+01, .532810D+01, .397196D+01,
1411 + .297406D+01, .223597D+01, .168655D+01, .127724D+01,
1412 + .967395D+00, .735043D+00, .557808D+00, .423624D+00,
1413 + .321382D+00, .243386D+00, .183856D+00, .138433D+00,
1414 + .103819D+00, .774978D-01, .575457D-01, .424779D-01,
1415 + .311510D-01, .226815D-01, .163880D-01, .117344D-01,
1416 + .833810D-02, .585312D-02, .406472D-02, .279059D-02,
1417 + .189281D-02, .126771D-02, .837984D-03, .546648D-03,
1418 + .352015D-03, .224040D-03, .140964D-03, .884125D-04,
1419 + .551214D-04, .344571D-04, .217080D-04, .138349D-04,
1420 + .892008D-05, .578846D-05, .374353D-05, .236835D-05,
1421 + .144126D-05, .820913D-06, .422528D-06, .186196D-06,
1422 + .636899D-07, .138895D-07, .113793D-08, .000000D+00 /
1423 DATA (UPDI(I),I=5097,5148) /
1424 + .319388D+05, .489190D+05, .384588D+05, .302353D+05,
1425 + .237702D+05, .186875D+05, .146916D+05, .115502D+05,
1426 + .908057D+04, .713900D+04, .561262D+04, .441264D+04,
1427 + .346926D+04, .272762D+04, .214457D+04, .168621D+04,
1428 + .132587D+04, .104259D+04, .819883D+03, .644803D+03,
1429 + .507163D+03, .398955D+03, .313885D+03, .247004D+03,
1430 + .194421D+03, .153078D+03, .120571D+03, .946876D+02,
1431 + .746603D+02, .589059D+02, .465102D+02, .367546D+02,
1432 + .290740D+02, .230405D+02, .182724D+02, .145130D+02,
1433 + .115459D+02, .920081D+01, .734433D+01, .587110D+01,
1434 + .470105D+01, .376790D+01, .302206D+01, .242435D+01,
1435 + .194418D+01, .155766D+01, .124709D+01, .994865D+00,
1436 + .792473D+00, .628168D+00, .496304D+00, .390274D+00 /
1437 DATA (UPDI(I),I=5149,5200) /
1438 + .305272D+00, .237376D+00, .183383D+00, .140665D+00,
1439 + .107066D+00, .808124D-01, .604479D-01, .447769D-01,
1440 + .328221D-01, .237877D-01, .170296D-01, .120497D-01,
1441 + .838596D-02, .574457D-02, .386745D-02, .255436D-02,
1442 + .165169D-02, .104302D-02, .641352D-03, .382620D-03,
1443 + .220387D-03, .121758D-03, .644157D-04, .319823D-04,
1444 + .147217D-04, .610844D-05, .215822D-05, .551238D-06,
1445 + .149019D-07, .000000D+00, .000000D+00, .000000D+00,
1446 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1447 + .000000D+00, .000000D+00, .000000D+00, .101930D+06,
1448 + .800012D+05, .620871D+05, .481876D+05, .374050D+05,
1449 + .290368D+05, .225438D+05, .175037D+05, .135923D+05,
1450 + .105556D+05, .819848D+04, .636809D+04, .494709D+04 /
1451 DATA (UPDI(I),I=5201,5252) /
1452 + .384342D+04, .298645D+04, .232073D+04, .180372D+04,
1453 + .140202D+04, .108999D+04, .847507D+03, .659129D+03,
1454 + .512706D+03, .398929D+03, .310472D+03, .241720D+03,
1455 + .188257D+03, .146702D+03, .113969D+03, .889220D+02,
1456 + .694247D+02, .542523D+02, .424342D+02, .332290D+02,
1457 + .260707D+02, .204733D+02, .161034D+02, .126900D+02,
1458 + .100181D+02, .792414D+01, .627809D+01, .498376D+01,
1459 + .396100D+01, .315138D+01, .250839D+01, .199673D+01,
1460 + .158838D+01, .126324D+01, .100128D+01, .792907D+00,
1461 + .625017D+00, .491315D+00, .384550D+00, .299552D+00,
1462 + .232078D+00, .178744D+00, .136766D+00, .103910D+00,
1463 + .783426D-01, .585884D-01, .434285D-01, .318922D-01,
1464 + .231854D-01, .166745D-01, .118737D-01, .833398D-02 /
1465 DATA (UPDI(I),I=5253,5304) /
1466 + .577092D-02, .393910D-02, .264669D-02, .174862D-02,
1467 + .113356D-02, .719909D-03, .446242D-03, .269146D-03,
1468 + .156390D-03, .873759D-04, .453884D-04, .209917D-04,
1469 + .735810D-05, .208887D-06, .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, .152942D+06, .119169D+06,
1473 + .917187D+05, .705903D+05, .543344D+05, .418209D+05,
1474 + .321925D+05, .247803D+05, .190767D+05, .146856D+05,
1475 + .113066D+05, .870486D+04, .670267D+04, .516096D+04,
1476 + .397443D+04, .306071D+04, .235744D+04, .181580D+04,
1477 + .139888D+04, .107775D+04, .830550D+03, .640119D+03,
1478 + .493500D+03, .380535D+03, .293540D+03, .226504D+03 /
1479 DATA (UPDI(I),I=5305,5356) /
1480 + .174889D+03, .134598D+03, .104053D+03, .804909D+02,
1481 + .623254D+02, .483035D+02, .374822D+02, .291427D+02,
1482 + .226815D+02, .176821D+02, .138125D+02, .108100D+02,
1483 + .847831D+01, .666125D+01, .524521D+01, .413589D+01,
1484 + .326538D+01, .257988D+01, .203907D+01, .161096D+01,
1485 + .127291D+01, .100263D+01, .789362D+00, .618769D+00,
1486 + .483899D+00, .376924D+00, .292323D+00, .225573D+00,
1487 + .173123D+00, .132056D+00, .100075D+00, .752989D-01,
1488 + .562366D-01, .416575D-01, .305980D-01, .222702D-01,
1489 + .160527D-01, .114721D-01, .809437D-02, .564481D-02,
1490 + .388993D-02, .264650D-02, .177757D-02, .117731D-02,
1491 + .769248D-03, .495198D-03, .314347D-03, .196123D-03,
1492 + .121316D-03, .735945D-04, .440883D-04, .259561D-04 /
1493 DATA (UPDI(I),I=5357,5408) /
1494 + .150608D-04, .853738D-05, .473798D-05, .253495D-05,
1495 + .130089D-05, .622817D-06, .275133D-06, .105738D-06,
1496 + .343896D-07, .878675D-08, .183406D-08, .229204D-10,
1497 + .000000D+00, .216550D+06, .167815D+06, .128350D+06,
1498 + .981548D+05, .750646D+05, .573986D+05, .438912D+05,
1499 + .335582D+05, .256585D+05, .196160D+05, .149971D+05,
1500 + .114644D+05, .876432D+04, .669945D+04, .512143D+04,
1501 + .391474D+04, .299265D+04, .228760D+04, .174887D+04,
1502 + .133697D+04, .102228D+04, .781685D+03, .597861D+03,
1503 + .457314D+03, .349922D+03, .267816D+03, .205104D+03,
1504 + .156539D+03, .120018D+03, .920716D+02, .707018D+02,
1505 + .543399D+02, .418160D+02, .322429D+02, .248871D+02,
1506 + .192420D+02, .149087D+02, .115736D+02, .900502D+01 /
1507 DATA (UPDI(I),I=5409,5460) /
1508 + .701959D+01, .548503D+01, .429254D+01, .336432D+01,
1509 + .263920D+01, .207170D+01, .162591D+01, .127663D+01,
1510 + .999423D+00, .782326D+00, .609878D+00, .474482D+00,
1511 + .367790D+00, .283948D+00, .218193D+00, .166819D+00,
1512 + .126808D+00, .958051D-01, .718974D-01, .535828D-01,
1513 + .396281D-01, .290792D-01, .211586D-01, .152586D-01,
1514 + .109194D-01, .772293D-02, .540505D-02, .374356D-02,
1515 + .256422D-02, .173779D-02, .116432D-02, .772167D-03,
1516 + .506628D-03, .329499D-03, .212101D-03, .136484D-03,
1517 + .871369D-04, .557300D-04, .356681D-04, .230029D-04,
1518 + .148848D-04, .972634D-05, .634632D-05, .412423D-05,
1519 + .262306D-05, .161216D-05, .925035D-06, .477328D-06,
1520 + .204673D-06, .586452D-07, .416389D-08, .000000D+00 /
1521 DATA (UPDI(I),I=5461,5512) /
1522 + .200139D+06, .227560D+06, .173138D+06, .131703D+06,
1523 + .100178D+06, .761808D+05, .579286D+05, .440394D+05,
1524 + .334784D+05, .254442D+05, .193371D+05, .146926D+05,
1525 + .111632D+05, .847988D+04, .644141D+04, .489202D+04,
1526 + .371534D+04, .282120D+04, .214233D+04, .162661D+04,
1527 + .123517D+04, .937857D+03, .712230D+03, .540890D+03,
1528 + .410872D+03, .312156D+03, .237297D+03, .179737D+03,
1529 + .136766D+03, .104123D+03, .793451D+02, .605144D+02,
1530 + .462081D+02, .353547D+02, .270782D+02, .207745D+02,
1531 + .159726D+02, .123050D+02, .950184D+01, .735168D+01,
1532 + .570252D+01, .443071D+01, .344826D+01, .268657D+01,
1533 + .209493D+01, .163358D+01, .127476D+01, .991994D+00,
1534 + .772111D+00, .598630D+00, .463321D+00, .357376D+00 /
1535 DATA (UPDI(I),I=5513,5564) /
1536 + .274633D+00, .210120D+00, .159999D+00, .121171D+00,
1537 + .912348D-01, .682589D-01, .507357D-01, .374379D-01,
1538 + .274230D-01, .199280D-01, .143607D-01, .102757D-01,
1539 + .727213D-02, .509673D-02, .353844D-02, .243221D-02,
1540 + .165633D-02, .111689D-02, .746902D-03, .495280D-03,
1541 + .326430D-03, .213677D-03, .140290D-03, .918045D-04,
1542 + .604403D-04, .399979D-04, .267545D-04, .179993D-04,
1543 + .122184D-04, .826492D-05, .553753D-05, .361077D-05,
1544 + .225586D-05, .130590D-05, .673254D-06, .284872D-06,
1545 + .794949D-07, .576398D-08, .000000D+00, .410590D+06,
1546 + .315289D+06, .238592D+06, .180501D+06, .136529D+06,
1547 + .103236D+06, .780474D+05, .589858D+05, .445715D+05,
1548 + .336689D+05, .254287D+05, .191992D+05, .144934D+05 /
1549 DATA (UPDI(I),I=5565,5616) /
1550 + .109376D+05, .825293D+04, .622540D+04, .469539D+04,
1551 + .354043D+04, .266932D+04, .201207D+04, .151661D+04,
1552 + .114295D+04, .861385D+03, .649123D+03, .489227D+03,
1553 + .368735D+03, .278056D+03, .208872D+03, .157625D+03,
1554 + .119005D+03, .899230D+02, .680011D+02, .514809D+02,
1555 + .390522D+02, .296523D+02, .225537D+02, .171913D+02,
1556 + .131305D+02, .100531D+02, .771285D+01, .593308D+01,
1557 + .457234D+01, .353005D+01, .272888D+01, .211178D+01,
1558 + .163460D+01, .126651D+01, .978773D+00, .756804D+00,
1559 + .583033D+00, .448511D+00, .343953D+00, .262864D+00,
1560 + .200070D+00, .151598D+00, .114280D+00, .856750D-01,
1561 + .638440D-01, .472800D-01, .347721D-01, .253940D-01,
1562 + .184052D-01, .132321D-01, .944900D-02, .667476D-02 /
1563 DATA (UPDI(I),I=5617,5668) /
1564 + .467030D-02, .323699D-02, .222095D-02, .150886D-02,
1565 + .101404D-02, .674645D-03, .443852D-03, .289012D-03,
1566 + .185817D-03, .118860D-03, .749640D-04, .469211D-04,
1567 + .290668D-04, .178985D-04, .109135D-04, .663188D-05,
1568 + .399005D-05, .238285D-05, .139518D-05, .796379D-06,
1569 + .429024D-06, .211300D-06, .874884D-07, .244594D-07,
1570 + .171944D-08, .000000D+00, .555817D+06, .425008D+06,
1571 + .320037D+06, .240904D+06, .181289D+06, .136371D+06,
1572 + .102553D+06, .770904D+05, .579333D+05, .435188D+05,
1573 + .326816D+05, .245329D+05, .184109D+05, .138109D+05,
1574 + .103575D+05, .776453D+04, .581926D+04, .435968D+04,
1575 + .326549D+04, .244507D+04, .183050D+04, .137000D+04,
1576 + .102526D+04, .767112D+03, .573961D+03, .429411D+03 /
1577 DATA (UPDI(I),I=5669,5720) /
1578 + .321392D+03, .239569D+03, .179400D+03, .134391D+03,
1579 + .100748D+03, .755804D+02, .567579D+02, .427075D+02,
1580 + .321632D+02, .242635D+02, .183430D+02, .138957D+02,
1581 + .105523D+02, .803044D+01, .612799D+01, .468533D+01,
1582 + .358920D+01, .275354D+01, .211502D+01, .162524D+01,
1583 + .125041D+01, .959704D+00, .737162D+00, .564263D+00,
1584 + .431396D+00, .328870D+00, .249907D+00, .189175D+00,
1585 + .142597D+00, .106963D+00, .798125D-01, .592124D-01,
1586 + .436676D-01, .319916D-01, .232802D-01, .168190D-01,
1587 + .120566D-01, .858784D-02, .605331D-02, .422830D-02,
1588 + .292714D-02, .200722D-02, .136381D-02, .917502D-03,
1589 + .611698D-03, .403874D-03, .264368D-03, .171354D-03,
1590 + .110837D-03, .710285D-04, .454219D-04, .289698D-04 /
1591 DATA (UPDI(I),I=5721,5772) /
1592 + .185146D-04, .118318D-04, .759324D-05, .485788D-05,
1593 + .308508D-05, .191620D-05, .114619D-05, .638011D-06,
1594 + .317093D-06, .128658D-06, .341706D-07, .250798D-08,
1595 + .000000D+00, .735989D+06, .560557D+06, .420154D+06,
1596 + .314780D+06, .235751D+06, .176477D+06, .132058D+06,
1597 + .987699D+05, .738456D+05, .551831D+05, .412215D+05,
1598 + .307767D+05, .229697D+05, .171344D+05, .127768D+05,
1599 + .952266D+04, .709480D+04, .528335D+04, .393312D+04,
1600 + .292663D+04, .217711D+04, .161890D+04, .120356D+04,
1601 + .894489D+03, .664709D+03, .493854D+03, .367022D+03,
1602 + .271599D+03, .201908D+03, .150138D+03, .111712D+03,
1603 + .831727D+02, .619815D+02, .462791D+02, .345817D+02,
1604 + .258841D+02, .194144D+02, .145920D+02, .109941D+02 /
1605 DATA (UPDI(I),I=5773,5824) /
1606 + .830143D+01, .628574D+01, .476917D+01, .362580D+01,
1607 + .276096D+01, .210526D+01, .160620D+01, .122717D+01,
1608 + .935461D+00, .713813D+00, .542884D+00, .412476D+00,
1609 + .312563D+00, .236139D+00, .177757D+00, .133269D+00,
1610 + .994500D-01, .738388D-01, .545220D-01, .400273D-01,
1611 + .291998D-01, .211634D-01, .152326D-01, .108812D-01,
1612 + .772580D-02, .542985D-02, .378324D-02, .261352D-02,
1613 + .178934D-02, .121458D-02, .816977D-03, .545115D-03,
1614 + .360684D-03, .236990D-03, .154581D-03, .100889D-03,
1615 + .654955D-04, .426063D-04, .277850D-04, .182364D-04,
1616 + .120186D-04, .796438D-05, .525989D-05, .343288D-05,
1617 + .217990D-05, .132164D-05, .739779D-06, .365765D-06,
1618 + .145901D-06, .377246D-07, .282437D-08, .000000D+00 /
1619 DATA (UPDI(I),I=5825,5876) /
1620 + .957088D+06, .726209D+06, .541902D+06, .404169D+06,
1621 + .301315D+06, .224509D+06, .167208D+06, .124460D+06,
1622 + .925994D+05, .688544D+05, .511745D+05, .380117D+05,
1623 + .282214D+05, .209401D+05, .155302D+05, .115111D+05,
1624 + .852822D+04, .631457D+04, .467349D+04, .345697D+04,
1625 + .255615D+04, .188909D+04, .139566D+04, .103067D+04,
1626 + .760949D+03, .561625D+03, .414591D+03, .304682D+03,
1627 + .224935D+03, .166087D+03, .122697D+03, .906924D+02,
1628 + .670905D+02, .497247D+02, .368789D+02, .273963D+02,
1629 + .203933D+02, .152117D+02, .113742D+02, .852356D+01,
1630 + .640545D+01, .482379D+01, .364027D+01, .275183D+01,
1631 + .208328D+01, .157826D+01, .119755D+01, .906719D+00,
1632 + .687348D+00, .519404D+00, .392179D+00, .295389D+00 /
1633 DATA (UPDI(I),I=5877,5928) /
1634 + .221855D+00, .166055D+00, .123810D+00, .918996D-01,
1635 + .678819D-01, .498757D-01, .364418D-01, .264633D-01,
1636 + .190967D-01, .136885D-01, .973997D-02, .689024D-02,
1637 + .482609D-02, .335228D-02, .230961D-02, .157781D-02,
1638 + .106927D-02, .718647D-03, .479570D-03, .317773D-03,
1639 + .209440D-03, .137355D-03, .903501D-04, .593112D-04,
1640 + .391380D-04, .259764D-04, .173872D-04, .117003D-04,
1641 + .790462D-05, .530855D-05, .350497D-05, .224019D-05,
1642 + .135795D-05, .755444D-06, .368383D-06, .143642D-06,
1643 + .360937D-07, .274720D-08, .000000D+00, .122548D+07,
1644 + .926473D+06, .688374D+06, .511180D+06, .379411D+06,
1645 + .281432D+06, .208649D+06, .154589D+06, .114475D+06,
1646 + .847141D+05, .626564D+05, .463108D+05, .342105D+05 /
1647 DATA (UPDI(I),I=5929,5980) /
1648 + .252545D+05, .186328D+05, .137378D+05, .101232D+05,
1649 + .745457D+04, .548650D+04, .403536D+04, .296660D+04,
1650 + .217955D+04, .160062D+04, .117483D+04, .862007D+03,
1651 + .632187D+03, .463684D+03, .338504D+03, .248246D+03,
1652 + .182065D+03, .133581D+03, .980526D+02, .720251D+02,
1653 + .530034D+02, .390280D+02, .287828D+02, .212690D+02,
1654 + .157488D+02, .116894D+02, .869554D+01, .648694D+01,
1655 + .484967D+01, .363342D+01, .272710D+01, .205004D+01,
1656 + .154231D+01, .116235D+01, .874177D+00, .658362D+00,
1657 + .494318D+00, .370912D+00, .277676D+00, .207318D+00,
1658 + .154282D+00, .114387D+00, .844435D-01, .620452D-01,
1659 + .453544D-01, .329744D-01, .238314D-01, .171186D-01,
1660 + .122170D-01, .865641D-02, .609941D-02, .425622D-02 /
1661 DATA (UPDI(I),I=5981,6032) /
1662 + .294637D-02, .202382D-02, .137907D-02, .932769D-03,
1663 + .626199D-03, .417817D-03, .277185D-03, .183214D-03,
1664 + .120768D-03, .800211D-04, .530634D-04, .354525D-04,
1665 + .238727D-04, .162207D-04, .110756D-04, .757211D-05,
1666 + .512937D-05, .339937D-05, .217103D-05, .130791D-05,
1667 + .719554D-06, .344809D-06, .131119D-06, .319935D-07,
1668 + .247316D-08, .000000D+00, .154779D+07, .116602D+07,
1669 + .862734D+06, .637948D+06, .471468D+06, .348194D+06,
1670 + .257003D+06, .189560D+06, .139732D+06, .102927D+06,
1671 + .757690D+05, .557353D+05, .409726D+05, .300972D+05,
1672 + .220943D+05, .162069D+05, .118806D+05, .870255D+04,
1673 + .637060D+04, .466002D+04, .340676D+04, .248876D+04,
1674 + .181717D+04, .132594D+04, .967076D+03, .704922D+03 /
1675 DATA (UPDI(I),I=6033,6084) /
1676 + .513833D+03, .372723D+03, .271593D+03, .197896D+03,
1677 + .144238D+03, .105168D+03, .767277D+02, .560777D+02,
1678 + .410049D+02, .300290D+02, .220331D+02, .161988D+02,
1679 + .119377D+02, .881702D+01, .653074D+01, .484779D+01,
1680 + .360641D+01, .268793D+01, .200663D+01, .149935D+01,
1681 + .112240D+01, .838540D+00, .627437D+00, .468097D+00,
1682 + .349053D+00, .259723D+00, .192762D+00, .142618D+00,
1683 + .105140D+00, .771885D-01, .564097D-01, .410197D-01,
1684 + .296714D-01, .213390D-01, .152556D-01, .108379D-01,
1685 + .764551D-02, .536467D-02, .372878D-02, .257197D-02,
1686 + .176098D-02, .119674D-02, .807772D-03, .541632D-03,
1687 + .361332D-03, .240004D-03, .159104D-03, .105407D-03,
1688 + .703359D-04, .470795D-04, .318016D-04, .216729D-04 /
1689 DATA (UPDI(I),I=6085,6136) /
1690 + .148969D-04, .102755D-04, .707430D-05, .480940D-05,
1691 + .318456D-05, .202402D-05, .120789D-05, .655464D-06,
1692 + .308094D-06, .114145D-06, .270514D-07, .212271D-08,
1693 + .000000D+00, .193084D+07, .144957D+07, .106815D+07,
1694 + .786575D+06, .578871D+06, .425698D+06, .312854D+06,
1695 + .229746D+06, .168602D+06, .123633D+06, .905957D+05,
1696 + .663323D+05, .485327D+05, .354798D+05, .259187D+05,
1697 + .189182D+05, .137984D+05, .100556D+05, .732274D+04,
1698 + .532815D+04, .387422D+04, .281475D+04, .204373D+04,
1699 + .148279D+04, .107523D+04, .779140D+03, .564535D+03,
1700 + .406978D+03, .294722D+03, .213402D+03, .154549D+03,
1701 + .111958D+03, .811454D+02, .589138D+02, .427890D+02,
1702 + .311229D+02, .226793D+02, .165591D+02, .121187D+02 /
1703 DATA (UPDI(I),I=6137,6188) /
1704 + .888857D+01, .653802D+01, .481958D+01, .356067D+01,
1705 + .263565D+01, .195424D+01, .145038D+01, .107856D+01,
1706 + .800503D+00, .595130D+00, .441181D+00, .326942D+00,
1707 + .241794D+00, .178387D+00, .131213D+00, .961806D-01,
1708 + .702177D-01, .510364D-01, .369158D-01, .265650D-01,
1709 + .190094D-01, .135242D-01, .956301D-02, .671577D-02,
1710 + .469213D-02, .324815D-02, .223219D-02, .152335D-02,
1711 + .103244D-02, .695453D-03, .465797D-03, .310736D-03,
1712 + .206690D-03, .137451D-03, .915291D-04, .614982D-04,
1713 + .415247D-04, .283227D-04, .194943D-04, .135171D-04,
1714 + .938698D-05, .648491D-05, .440930D-05, .290833D-05,
1715 + .183479D-05, .108252D-05, .578511D-06, .266444D-06,
1716 + .961405D-07, .221441D-07, .176326D-08, .000000D+00 /
1717 DATA (UPDI(I),I=6189,6240) /
1718 + .238139D+07, .178180D+07, .130770D+07, .959081D+06,
1719 + .702927D+06, .514778D+06, .376725D+06, .275468D+06,
1720 + .201279D+06, .146946D+06, .107198D+06, .781327D+05,
1721 + .569035D+05, .414051D+05, .301038D+05, .218670D+05,
1722 + .158711D+05, .115085D+05, .833841D+04, .603596D+04,
1723 + .436593D+04, .315512D+04, .227847D+04, .164401D+04,
1724 + .118546D+04, .854105D+03, .615265D+03, .440900D+03,
1725 + .317378D+03, .228411D+03, .164397D+03, .118347D+03,
1726 + .852309D+02, .614828D+02, .443637D+02, .320558D+02,
1727 + .232037D+02, .168285D+02, .122329D+02, .891161D+01,
1728 + .651054D+01, .476680D+01, .349787D+01, .257175D+01,
1729 + .189412D+01, .139643D+01, .103166D+01, .760729D+00,
1730 + .561961D+00, .413969D+00, .304883D+00, .224115D+00 /
1731 DATA (UPDI(I),I=6241,6292) /
1732 + .164360D+00, .120191D+00, .875968D-01, .635931D-01,
1733 + .459684D-01, .330724D-01, .236752D-01, .168557D-01,
1734 + .119331D-01, .839804D-02, .587074D-02, .408398D-02,
1735 + .281566D-02, .192783D-02, .131139D-02, .886436D-03,
1736 + .595970D-03, .398798D-03, .266104D-03, .177306D-03,
1737 + .118314D-03, .791987D-04, .535729D-04, .364668D-04,
1738 + .250845D-04, .174046D-04, .121452D-04, .846839D-05,
1739 + .585478D-05, .397139D-05, .260383D-05, .162768D-05,
1740 + .948163D-06, .498500D-06, .224823D-06, .790039D-07,
1741 + .177000D-07, .142980D-08, .000000D+00, .290607D+07,
1742 + .216722D+07, .158431D+07, .115734D+07, .844819D+06,
1743 + .616170D+06, .449062D+06, .326989D+06, .237911D+06,
1744 + .172942D+06, .125611D+06, .911486D+05, .660847D+05 /
1745 DATA (UPDI(I),I=6293,6344) /
1746 + .478665D+05, .346405D+05, .250442D+05, .180903D+05,
1747 + .130541D+05, .941166D+04, .677876D+04, .487824D+04,
1748 + .350712D+04, .251933D+04, .180808D+04, .129667D+04,
1749 + .929049D+03, .665485D+03, .474124D+03, .339312D+03,
1750 + .242759D+03, .173677D+03, .124269D+03, .889434D+02,
1751 + .637612D+02, .457164D+02, .328219D+02, .236046D+02,
1752 + .170077D+02, .122819D+02, .888830D+01, .645050D+01,
1753 + .469152D+01, .341982D+01, .249776D+01, .182753D+01,
1754 + .133854D+01, .982517D+00, .719838D+00, .528400D+00,
1755 + .386815D+00, .283136D+00, .206874D+00, .150817D+00,
1756 + .109644D+00, .794531D-01, .573576D-01, .412335D-01,
1757 + .295068D-01, .210121D-01, .148836D-01, .104849D-01,
1758 + .734384D-02, .511030D-02, .353962D-02, .243050D-02 /
1759 DATA (UPDI(I),I=6345,6396) /
1760 + .165808D-02, .112435D-02, .758119D-03, .508839D-03,
1761 + .340271D-03, .227178D-03, .151679D-03, .101587D-03,
1762 + .683634D-04, .465452D-04, .319174D-04, .221146D-04,
1763 + .154406D-04, .108212D-04, .755881D-05, .521889D-05,
1764 + .352493D-05, .229373D-05, .141894D-05, .815336D-06,
1765 + .421425D-06, .186040D-06, .636766D-07, .138890D-07,
1766 + .113793D-08, .000000D+00, .163288D+07, .126754D+07,
1767 + .971388D+06, .744435D+06, .570511D+06, .437223D+06,
1768 + .335078D+06, .256799D+06, .196810D+06, .150836D+06,
1769 + .115604D+06, .886032D+05, .679107D+05, .520525D+05,
1770 + .398991D+05, .305849D+05, .234465D+05, .179755D+05,
1771 + .137825D+05, .105687D+05, .810544D+04, .621736D+04,
1772 + .477009D+04, .366065D+04, .281013D+04, .215804D+04 /
1773 DATA (UPDI(I),I=6397,6448) /
1774 + .165803D+04, .126985D+04, .976974D+03, .752269D+03,
1775 + .579827D+03, .447454D+03, .345804D+03, .267917D+03,
1776 + .207884D+03, .161724D+03, .126199D+03, .988248D+02,
1777 + .776986D+02, .613560D+02, .487020D+02, .388590D+02,
1778 + .311796D+02, .251640D+02, .204300D+02, .166860D+02,
1779 + .137184D+02, .113289D+02, .941653D+01, .785707D+01,
1780 + .658980D+01, .554891D+01, .468840D+01, .397244D+01,
1781 + .337311D+01, .286859D+01, .244167D+01, .207879D+01,
1782 + .176913D+01, .150404D+01, .127653D+01, .108092D+01,
1783 + .912567D+00, .768245D+00, .643283D+00, .535937D+00,
1784 + .443919D+00, .365274D+00, .298317D+00, .241582D+00,
1785 + .193783D+00, .153787D+00, .120563D+00, .931963D-01,
1786 + .710916D-01, .531915D-01, .390108D-01, .279569D-01 /
1787 DATA (UPDI(I),I=6449,6500) /
1788 + .195023D-01, .131791D-01, .857453D-02, .533237D-02,
1789 + .312462D-02, .170673D-02, .847867D-03, .370024D-03,
1790 + .133851D-03, .359879D-04, .563032D-05, .234289D-06,
1791 + .000000D+00, .253463D+07, .196325D+07, .150055D+07,
1792 + .114651D+07, .876029D+06, .669130D+06, .511106D+06,
1793 + .390262D+06, .297992D+06, .227452D+06, .173610D+06,
1794 + .132461D+06, .101064D+06, .770781D+05, .587833D+05,
1795 + .448125D+05, .341611D+05, .260307D+05, .198350D+05,
1796 + .151078D+05, .115071D+05, .876133D+04, .667098D+04,
1797 + .507775D+04, .386545D+04, .294181D+04, .223943D+04,
1798 + .169821D+04, .129344D+04, .985364D+03, .751228D+03,
1799 + .573081D+03, .437713D+03, .334980D+03, .256690D+03,
1800 + .197118D+03, .151817D+03, .117296D+03, .909861D+02 /
1801 DATA (UPDI(I),I=6501,6552) /
1802 + .708678D+02, .554878D+02, .436650D+02, .345587D+02,
1803 + .275094D+02, .220321D+02, .177500D+02, .143980D+02,
1804 + .117299D+02, .962039D+01, .792009D+01, .655485D+01,
1805 + .544660D+01, .454141D+01, .379731D+01, .318209D+01,
1806 + .267067D+01, .224343D+01, .188502D+01, .158321D+01,
1807 + .132836D+01, .111263D+01, .929823D+00, .774634D+00,
1808 + .643535D+00, .531660D+00, .437002D+00, .357058D+00,
1809 + .289784D+00, .233376D+00, .186332D+00, .147313D+00,
1810 + .115195D+00, .889604D-01, .677063D-01, .508291D-01,
1811 + .374064D-01, .269627D-01, .189778D-01, .129884D-01,
1812 + .860345D-02, .547740D-02, .332910D-02, .190183D-02,
1813 + .101062D-02, .486647D-03, .205125D-03, .712233D-04,
1814 + .182813D-04, .274335D-05, .116680D-06, .000000D+00 /
1815 DATA (UPDI(I),I=6553,6604) /
1816 + .377829D+07, .291709D+07, .222109D+07, .169030D+07,
1817 + .128628D+07, .978322D+06, .744035D+06, .565545D+06,
1818 + .429830D+06, .326495D+06, .247971D+06, .188219D+06,
1819 + .142844D+06, .108339D+06, .821550D+05, .622585D+05,
1820 + .471715D+05, .357165D+05, .270378D+05, .204538D+05,
1821 + .154700D+05, .116926D+05, .883600D+04, .667303D+04,
1822 + .503890D+04, .380253D+04, .286962D+04, .215630D+04,
1823 + .162716D+04, .122770D+04, .926756D+03, .699781D+03,
1824 + .528902D+03, .400422D+03, .303470D+03, .230422D+03,
1825 + .175444D+03, .133977D+03, .102710D+03, .790527D+02,
1826 + .611623D+02, .475561D+02, .371897D+02, .292503D+02,
1827 + .231477D+02, .184265D+02, .147701D+02, .118898D+02,
1828 + .963635D+01, .783900D+01, .641093D+01, .526390D+01 /
1829 DATA (UPDI(I),I=6605,6656) /
1830 + .433698D+01, .358327D+01, .296694D+01, .246037D+01,
1831 + .204201D+01, .169517D+01, .140658D+01, .116589D+01,
1832 + .964676D+00, .796362D+00, .655274D+00, .537661D+00,
1833 + .438625D+00, .355976D+00, .287131D+00, .230012D+00,
1834 + .182797D+00, .143992D+00, .112277D+00, .865684D-01,
1835 + .658952D-01, .494074D-01, .365258D-01, .264531D-01,
1836 + .187506D-01, .129686D-01, .871260D-02, .565925D-02,
1837 + .352740D-02, .209602D-02, .116783D-02, .603855D-03,
1838 + .281917D-03, .114763D-03, .382479D-04, .937114D-05,
1839 + .134758D-05, .580337D-07, .000000D+00, .542532D+07,
1840 + .417355D+07, .316435D+07, .239772D+07, .181651D+07,
1841 + .137532D+07, .104108D+07, .787539D+06, .595609D+06,
1842 + .450139D+06, .340108D+06, .256784D+06, .193815D+06 /
1843 DATA (UPDI(I),I=6657,6708) /
1844 + .146175D+06, .110208D+06, .830233D+05, .625218D+05,
1845 + .470431D+05, .353830D+05, .265898D+05, .199740D+05,
1846 + .149909D+05, .112469D+05, .843063D+04, .631741D+04,
1847 + .472967D+04, .354039D+04, .263784D+04, .197346D+04,
1848 + .147586D+04, .110399D+04, .825871D+03, .618255D+03,
1849 + .463521D+03, .347796D+03, .261403D+03, .196984D+03,
1850 + .148856D+03, .112913D+03, .859808D+02, .658109D+02,
1851 + .506210D+02, .391601D+02, .304680D+02, .238513D+02,
1852 + .187815D+02, .148927D+02, .118584D+02, .950716D+01,
1853 + .764980D+01, .618817D+01, .502561D+01, .409531D+01,
1854 + .334642D+01, .274023D+01, .224716D+01, .184426D+01,
1855 + .151385D+01, .124197D+01, .101778D+01, .832526D+00,
1856 + .679392D+00, .552541D+00, .448088D+00, .361222D+00 /
1857 DATA (UPDI(I),I=6709,6760) /
1858 + .289650D+00, .230797D+00, .182609D+00, .143306D+00,
1859 + .111444D+00, .857634D-01, .652432D-01, .489834D-01,
1860 + .362066D-01, .263770D-01, .188129D-01, .131235D-01,
1861 + .892603D-02, .589163D-02, .375591D-02, .229435D-02,
1862 + .133427D-02, .725994D-03, .365791D-03, .165875D-03,
1863 + .653539D-04, .209721D-04, .492635D-05, .681504D-06,
1864 + .291914D-07, .000000D+00, .754293D+07, .578095D+07,
1865 + .436401D+07, .329211D+07, .248279D+07, .187110D+07,
1866 + .140967D+07, .106123D+07, .798633D+06, .600538D+06,
1867 + .451402D+06, .339017D+06, .254502D+06, .190886D+06,
1868 + .143104D+06, .107182D+06, .802365D+05, .600062D+05,
1869 + .448523D+05, .334912D+05, .249937D+05, .186329D+05,
1870 + .138830D+05, .103334D+05, .768713D+04, .571230D+04 /
1871 DATA (UPDI(I),I=6761,6812) /
1872 + .424335D+04, .313656D+04, .232774D+04, .172652D+04,
1873 + .128062D+04, .949755D+03, .704721D+03, .523609D+03,
1874 + .389274D+03, .289850D+03, .216348D+03, .161921D+03,
1875 + .121631D+03, .917134D+02, .695072D+02, .529355D+02,
1876 + .405437D+02, .312307D+02, .242045D+02, .188690D+02,
1877 + .148128D+02, .116759D+02, .926682D+01, .738086D+01,
1878 + .590999D+01, .475077D+01, .383164D+01, .309871D+01,
1879 + .251105D+01, .203775D+01, .165481D+01, .134399D+01,
1880 + .109086D+01, .884373D+00, .715585D+00, .577608D+00,
1881 + .464585D+00, .372587D+00, .296972D+00, .235414D+00,
1882 + .185410D+00, .144975D+00, .112410D+00, .863508D-01,
1883 + .656228D-01, .492842D-01, .365170D-01, .266256D-01,
1884 + .191268D-01, .134434D-01, .923547D-02, .618180D-02 /
1885 DATA (UPDI(I),I=6813,6864) /
1886 + .401199D-02, .251231D-02, .150553D-02, .857761D-03,
1887 + .456358D-03, .224371D-03, .990050D-04, .378351D-04,
1888 + .117266D-04, .265150D-05, .353953D-06, .147299D-07,
1889 + .000000D+00, .105408D+08, .804403D+07, .604208D+07,
1890 + .453495D+07, .340238D+07, .255066D+07, .191130D+07,
1891 + .143102D+07, .107090D+07, .800706D+06, .598360D+06,
1892 + .446733D+06, .333333D+06, .248475D+06, .185101D+06,
1893 + .137747D+06, .102438D+06, .760963D+05, .564873D+05,
1894 + .418834D+05, .310315D+05, .229642D+05, .169812D+05,
1895 + .125422D+05, .925651D+04, .682279D+04, .502629D+04,
1896 + .368339D+04, .270981D+04, .199210D+04, .146416D+04,
1897 + .107583D+04, .790683D+03, .581823D+03, .428285D+03,
1898 + .315708D+03, .233250D+03, .172776D+03, .128432D+03 /
1899 DATA (UPDI(I),I=6865,6916) /
1900 + .958249D+02, .718543D+02, .541412D+02, .410231D+02,
1901 + .312610D+02, .239667D+02, .184815D+02, .143515D+02,
1902 + .111884D+02, .878283D+01, .691808D+01, .547800D+01,
1903 + .435443D+01, .347251D+01, .277653D+01, .222434D+01,
1904 + .178437D+01, .143229D+01, .114971D+01, .922213D+00,
1905 + .738801D+00, .590664D+00, .471039D+00, .374253D+00,
1906 + .296465D+00, .233352D+00, .182647D+00, .142009D+00,
1907 + .109595D+00, .838534D-01, .635455D-01, .476267D-01,
1908 + .352650D-01, .257525D-01, .184967D-01, .130841D-01,
1909 + .904968D-02, .611406D-02, .402171D-02, .256275D-02,
1910 + .157407D-02, .924083D-03, .515081D-03, .267619D-03,
1911 + .128241D-03, .550168D-04, .203827D-04, .610455D-05,
1912 + .133034D-05, .171378D-06, .664476D-08, .000000D+00 /
1913 DATA (UPDI(I),I=6917,6968) /
1914 + .144134D+08, .109519D+08, .818463D+07, .611159D+07,
1915 + .456127D+07, .340134D+07, .253495D+07, .188755D+07,
1916 + .140463D+07, .104427D+07, .775839D+06, .575828D+06,
1917 + .427070D+06, .316403D+06, .234230D+06, .173201D+06,
1918 + .127966D+06, .944313D+05, .696232D+05, .512677D+05,
1919 + .377164D+05, .277108D+05, .203404D+05, .149106D+05,
1920 + .109198D+05, .798546D+04, .583560D+04, .424093D+04,
1921 + .309379D+04, .225494D+04, .164283D+04, .119636D+04,
1922 + .871243D+03, .635178D+03, .463139D+03, .338128D+03,
1923 + .247380D+03, .181439D+03, .133527D+03, .986255D+02,
1924 + .732050D+02, .545974D+02, .409445D+02, .308803D+02,
1925 + .234300D+02, .178800D+02, .137400D+02, .105990D+02,
1926 + .823268D+01, .641578D+01, .502604D+01, .395226D+01 /
1927 DATA (UPDI(I),I=6969,7020) /
1928 + .311767D+01, .246564D+01, .195357D+01, .154980D+01,
1929 + .123011D+01, .976302D+00, .774226D+00, .613145D+00,
1930 + .484539D+00, .381902D+00, .299846D+00, .234699D+00,
1931 + .182497D+00, .141088D+00, .108330D+00, .825451D-01,
1932 + .623426D-01, .466229D-01, .344737D-01, .251747D-01,
1933 + .181245D-01, .128278D-01, .893813D-02, .608557D-02,
1934 + .404471D-02, .261540D-02, .163694D-02, .986529D-03,
1935 + .567584D-03, .309636D-03, .157176D-03, .734429D-04,
1936 + .306504D-04, .110153D-04, .319047D-05, .670471D-06,
1937 + .831468D-07, .280994D-08, .000000D+00, .192937D+08,
1938 + .145977D+08, .108545D+08, .806414D+07, .598740D+07,
1939 + .444143D+07, .329244D+07, .243833D+07, .180449D+07,
1940 + .133405D+07, .985479D+06, .727194D+06, .536149D+06 /
1941 DATA (UPDI(I),I=7021,7072) /
1942 + .394837D+06, .290505D+06, .213479D+06, .156723D+06,
1943 + .114907D+06, .841608D+05, .615570D+05, .449754D+05,
1944 + .328134D+05, .239137D+05, .174024D+05, .126497D+05,
1945 + .918008D+04, .665651D+04, .479864D+04, .347228D+04,
1946 + .250992D+04, .181316D+04, .130905D+04, .944937D+03,
1947 + .682774D+03, .493313D+03, .356838D+03, .258622D+03,
1948 + .187888D+03, .136947D+03, .100174D+03, .736294D+02,
1949 + .543757D+02, .403755D+02, .301494D+02, .226475D+02,
1950 + .171096D+02, .130161D+02, .993870D+01, .764145D+01,
1951 + .589392D+01, .456965D+01, .355614D+01, .277590D+01,
1952 + .217227D+01, .170288D+01, .133651D+01, .104940D+01,
1953 + .823848D+00, .646184D+00, .506103D+00, .395503D+00,
1954 + .308230D+00, .239255D+00, .185133D+00, .142281D+00 /
1955 DATA (UPDI(I),I=7073,7124) /
1956 + .108702D+00, .824669D-01, .620759D-01, .463050D-01,
1957 + .341941D-01, .249595D-01, .179880D-01, .127767D-01,
1958 + .891751D-02, .612551D-02, .410915D-02, .268942D-02,
1959 + .171142D-02, .105338D-02, .623779D-03, .352287D-03,
1960 + .188448D-03, .936709D-04, .427961D-04, .174335D-04,
1961 + .610344D-05, .171900D-05, .350583D-06, .419896D-07,
1962 + .111368D-08, .000000D+00, .253157D+08, .190742D+08,
1963 + .141133D+08, .104329D+08, .770685D+07, .568756D+07,
1964 + .419415D+07, .308969D+07, .227419D+07, .167211D+07,
1965 + .122833D+07, .901275D+06, .660670D+06, .483696D+06,
1966 + .353763D+06, .258391D+06, .188523D+06, .137355D+06,
1967 + .999575D+05, .726348D+05, .527158D+05, .382002D+05,
1968 + .276467D+05, .199771D+05, .144164D+05, .103851D+05 /
1969 DATA (UPDI(I),I=7125,7176) /
1970 + .747369D+04, .534587D+04, .383797D+04, .275214D+04,
1971 + .197193D+04, .141188D+04, .101052D+04, .723894D+03,
1972 + .518433D+03, .371673D+03, .266940D+03, .192159D+03,
1973 + .138765D+03, .100557D+03, .732156D+02, .535585D+02,
1974 + .393895D+02, .291315D+02, .216721D+02, .162143D+02,
1975 + .122154D+02, .923580D+01, .703142D+01, .536964D+01,
1976 + .412177D+01, .317552D+01, .245383D+01, .190079D+01,
1977 + .147486D+01, .114566D+01, .890237D+00, .691618D+00,
1978 + .536779D+00, .415973D+00, .321608D+00, .247951D+00,
1979 + .190376D+00, .145705D+00, .110738D+00, .836550D-01,
1980 + .627447D-01, .466869D-01, .344191D-01, .251152D-01,
1981 + .181111D-01, .128915D-01, .904151D-02, .622889D-02,
1982 + .422228D-02, .279377D-02, .180279D-02, .113052D-02 /
1983 DATA (UPDI(I),I=7177,7228) /
1984 + .685334D-03, .399451D-03, .221890D-03, .116655D-03,
1985 + .569348D-04, .255161D-04, .101858D-04, .349049D-05,
1986 + .961569D-06, .191578D-06, .222391D-07, .385653D-09,
1987 + .000000D+00, .326070D+08, .244682D+08, .180171D+08,
1988 + .132538D+08, .974205D+07, .715344D+07, .524819D+07,
1989 + .384617D+07, .281611D+07, .205952D+07, .150470D+07,
1990 + .109799D+07, .800356D+06, .582632D+06, .423651D+06,
1991 + .307618D+06, .223092D+06, .161550D+06, .116833D+06,
1992 + .843607D+05, .608306D+05, .437909D+05, .314801D+05,
1993 + .225915D+05, .161892D+05, .115788D+05, .827219D+04,
1994 + .587254D+04, .418415D+04, .297724D+04, .211640D+04,
1995 + .150317D+04, .106705D+04, .758047D+03, .538290D+03,
1996 + .382593D+03, .272383D+03, .194347D+03, .139090D+03 /
1997 DATA (UPDI(I),I=7229,7280) /
1998 + .998839D+02, .720643D+02, .522338D+02, .380610D+02,
1999 + .278884D+02, .205540D+02, .152338D+02, .113692D+02,
2000 + .851446D+01, .642089D+01, .485648D+01, .369212D+01,
2001 + .281709D+01, .215577D+01, .165364D+01, .127052D+01,
2002 + .977210D+00, .751821D+00, .578266D+00, .444308D+00,
2003 + .340845D+00, .260851D+00, .199057D+00, .151262D+00,
2004 + .114573D+00, .861654D-01, .644037D-01, .477898D-01,
2005 + .351754D-01, .256492D-01, .185087D-01, .131971D-01,
2006 + .928656D-02, .643756D-02, .438229D-02, .293482D-02,
2007 + .191784D-02, .122188D-02, .756255D-03, .452319D-03,
2008 + .259998D-03, .142372D-03, .737487D-04, .354464D-04,
2009 + .156360D-04, .614106D-05, .206946D-05, .560635D-06,
2010 + .109745D-06, .123909D-07, .888538D-10, .000000D+00 /
2011 DATA (UPDI(I),I=7281,7332) /
2012 + .412836D+08, .308567D+08, .226143D+08, .165563D+08,
2013 + .121106D+08, .884910D+07, .645988D+07, .471031D+07,
2014 + .343112D+07, .249626D+07, .181415D+07, .131670D+07,
2015 + .954544D+06, .691031D+06, .499638D+06, .360717D+06,
2016 + .260075D+06, .187215D+06, .134576D+06, .965752D+05,
2017 + .692017D+05, .494995D+05, .353522D+05, .252021D+05,
2018 + .179375D+05, .127404D+05, .903798D+04, .636944D+04,
2019 + .450491D+04, .318154D+04, .224438D+04, .158170D+04,
2020 + .111390D+04, .784972D+03, .552838D+03, .389665D+03,
2021 + .275075D+03, .194591D+03, .138060D+03, .982792D+02,
2022 + .702826D+02, .504911D+02, .364629D+02, .264780D+02,
2023 + .193388D+02, .142033D+02, .105042D+02, .779460D+01,
2024 + .582435D+01, .436466D+01, .328759D+01, .248521D+01 /
2025 DATA (UPDI(I),I=7333,7384) /
2026 + .188411D+01, .143176D+01, .108974D+01, .830281D+00,
2027 + .632748D+00, .482069D+00, .366872D+00, .278753D+00,
2028 + .211287D+00, .159683D+00, .120166D+00, .901368D-01,
2029 + .671235D-01, .496759D-01, .364952D-01, .265932D-01,
2030 + .191956D-01, .137106D-01, .967545D-02, .673756D-02,
2031 + .462140D-02, .311227D-02, .206183D-02, .133252D-02,
2032 + .839472D-03, .513661D-03, .303668D-03, .172491D-03,
2033 + .933205D-04, .477487D-04, .226643D-04, .987120D-05,
2034 + .382774D-05, .127331D-05, .340595D-06, .657684D-07,
2035 + .724545D-08, .000000D+00, .000000D+00, .514456D+08,
2036 + .383044D+08, .279434D+08, .203627D+08, .148246D+08,
2037 + .107804D+08, .783148D+07, .568236D+07, .411850D+07,
2038 + .298119D+07, .215541D+07, .155623D+07, .112219D+07 /
2039 DATA (UPDI(I),I=7385,7436) /
2040 + .808024D+06, .581024D+06, .417140D+06, .299049D+06,
2041 + .214031D+06, .152949D+06, .109105D+06, .777041D+05,
2042 + .552371D+05, .392007D+05, .277657D+05, .196323D+05,
2043 + .138505D+05, .975836D+04, .682854D+04, .479528D+04,
2044 + .336211D+04, .235423D+04, .164665D+04, .115073D+04,
2045 + .804619D+03, .562174D+03, .393053D+03, .275197D+03,
2046 + .193067D+03, .135833D+03, .958764D+02, .679802D+02,
2047 + .484184D+02, .346642D+02, .249537D+02, .180668D+02,
2048 + .131530D+02, .964244D+01, .709200D+01, .525277D+01,
2049 + .390142D+01, .291264D+01, .218223D+01, .163970D+01,
2050 + .123493D+01, .931536D+00, .703401D+00, .531256D+00,
2051 + .401117D+00, .302525D+00, .227796D+00, .171110D+00,
2052 + .128153D+00, .955677D-01, .710391D-01, .524210D-01 /
2053 DATA (UPDI(I),I=7437,7488) /
2054 + .384415D-01, .279837D-01, .202041D-01, .144495D-01,
2055 + .102253D-01, .714885D-02, .493159D-02, .335085D-02,
2056 + .223518D-02, .146671D-02, .938776D-03, .585686D-03,
2057 + .354867D-03, .207724D-03, .116819D-03, .625691D-04,
2058 + .316911D-04, .148898D-04, .641871D-05, .246354D-05,
2059 + .810960D-06, .214670D-06, .409736D-07, .441599D-08,
2060 + .000000D+00, .000000D+00, .631720D+08, .468597D+08,
2061 + .340311D+08, .246863D+08, .178894D+08, .129484D+08,
2062 + .936191D+07, .676024D+07, .487586D+07, .351199D+07,
2063 + .252644D+07, .181484D+07, .130191D+07, .932513D+06,
2064 + .666960D+06, .476243D+06, .339537D+06, .241648D+06,
2065 + .171698D+06, .121769D+06, .862103D+05, .609151D+05,
2066 + .429648D+05, .302416D+05, .212465D+05, .148916D+05 /
2067 DATA (UPDI(I),I=7489,7540) /
2068 + .104223D+05, .724313D+04, .505135D+04, .351678D+04,
2069 + .244489D+04, .169759D+04, .117750D+04, .817130D+03,
2070 + .566521D+03, .393001D+03, .272981D+03, .189978D+03,
2071 + .132575D+03, .928119D+02, .652649D+02, .460989D+02,
2072 + .327282D+02, .233627D+02, .167728D+02, .121079D+02,
2073 + .880160D+01, .641860D+01, .471388D+01, .347141D+01,
2074 + .256966D+01, .190895D+01, .142221D+01, .106206D+01,
2075 + .794361D+00, .594752D+00, .445406D+00, .333464D+00,
2076 + .249385D+00, .186206D+00, .138697D+00, .103008D+00,
2077 + .761743D-01, .561527D-01, .410903D-01, .298813D-01,
2078 + .215713D-01, .154448D-01, .109541D-01, .768733D-02,
2079 + .532989D-02, .364622D-02, .245690D-02, .162519D-02,
2080 + .105761D-02, .671271D-03, .415296D-03, .249519D-03 /
2081 DATA (UPDI(I),I=7541,7592) /
2082 + .144833D-03, .807638D-04, .428930D-04, .215402D-04,
2083 + .100336D-04, .428746D-05, .163093D-05, .531850D-06,
2084 + .139417D-06, .263139D-07, .278025D-08, .000000D+00,
2085 + .000000D+00, .765181D+08, .565532D+08, .408908D+08,
2086 + .295308D+08, .213037D+08, .153495D+08, .110466D+08,
2087 + .793947D+07, .569917D+07, .408526D+07, .292446D+07,
2088 + .209035D+07, .149200D+07, .106320D+07, .756480D+06,
2089 + .537316D+06, .381022D+06, .269694D+06, .190561D+06,
2090 + .134384D+06, .945941D+05, .664479D+05, .465876D+05,
2091 + .325923D+05, .227559D+05, .158485D+05, .110206D+05,
2092 + .760797D+04, .527028D+04, .364420D+04, .251585D+04,
2093 + .173451D+04, .119442D+04, .822814D+03, .566206D+03,
2094 + .389811D+03, .268687D+03, .185539D+03, .128462D+03 /
2095 DATA (UPDI(I),I=7593,7644) /
2096 + .892200D+02, .622391D+02, .436092D+02, .307112D+02,
2097 + .217457D+02, .154855D+02, .110879D+02, .799496D+01,
2098 + .578286D+01, .421268D+01, .307713D+01, .225940D+01,
2099 + .166494D+01, .123046D+01, .911510D+00, .676321D+00,
2100 + .502349D+00, .373231D+00, .277227D+00, .205704D+00,
2101 + .152393D+00, .112631D+00, .830046D-01, .609103D-01,
2102 + .445591D-01, .323586D-01, .233535D-01, .167321D-01,
2103 + .118903D-01, .837031D-02, .583054D-02, .401271D-02,
2104 + .272493D-02, .182267D-02, .119683D-02, .773205D-03,
2105 + .487182D-03, .299215D-03, .178464D-03, .102834D-03,
2106 + .569211D-04, .300061D-04, .149543D-04, .691154D-05,
2107 + .292932D-05, .110476D-05, .356889D-06, .926042D-07,
2108 + .172749D-07, .179219D-08, .000000D+00, .000000D+00 /
2109 DATA (UPDI(I),I=7645,7696) /
2110 + .319388D+05, .493033D+05, .388034D+05, .305442D+05,
2111 + .240472D+05, .189359D+05, .149144D+05, .117500D+05,
2112 + .925970D+04, .729966D+04, .575671D+04, .454189D+04,
2113 + .358522D+04, .283166D+04, .223794D+04, .177001D+04,
2114 + .140110D+04, .111014D+04, .880561D+03, .699329D+03,
2115 + .556181D+03, .443046D+03, .353568D+03, .282746D+03,
2116 + .226642D+03, .182153D+03, .146838D+03, .118418D+03,
2117 + .961640D+02, .784268D+02, .642674D+02, .529445D+02,
2118 + .438727D+02, .366087D+02, .307473D+02, .260198D+02,
2119 + .221950D+02, .190894D+02, .165569D+02, .144803D+02,
2120 + .127698D+02, .113484D+02, .101581D+02, .915185D+01,
2121 + .829245D+01, .755043D+01, .690469D+01, .633070D+01,
2122 + .582108D+01, .535827D+01, .493817D+01, .455219D+01 /
2123 DATA (UPDI(I),I=7697,7748) /
2124 + .419503D+01, .386262D+01, .355182D+01, .326022D+01,
2125 + .298603D+01, .272787D+01, .248473D+01, .225582D+01,
2126 + .204056D+01, .183848D+01, .164920D+01, .147319D+01,
2127 + .130832D+01, .115544D+01, .101425D+01, .884466D+00,
2128 + .765779D+00, .657847D+00, .560301D+00, .472740D+00,
2129 + .394682D+00, .325606D+00, .265597D+00, .213231D+00,
2130 + .168400D+00, .130513D+00, .989656D-01, .731491D-01,
2131 + .524484D-01, .362734D-01, .239278D-01, .149272D-01,
2132 + .863776D-02, .451133D-02, .203133D-02, .723587D-03,
2133 + .168106D-03, .137357D-04, .000000D+00, .102396D+06,
2134 + .804200D+05, .624626D+05, .485242D+05, .377068D+05,
2135 + .293074D+05, .227865D+05, .177213D+05, .137875D+05,
2136 + .107306D+05, .835541D+04, .650883D+04, .507334D+04 /
2137 DATA (UPDI(I),I=7749,7800) /
2138 + .395668D+04, .308808D+04, .241192D+04, .188558D+04,
2139 + .147550D+04, .115599D+04, .906792D+03, .712413D+03,
2140 + .560615D+03, .442033D+03, .349278D+03, .276684D+03,
2141 + .219790D+03, .175171D+03, .139666D+03, .112185D+03,
2142 + .905180D+02, .734146D+02, .598768D+02, .491440D+02,
2143 + .406308D+02, .338278D+02, .283867D+02, .240222D+02,
2144 + .205035D+02, .176549D+02, .153327D+02, .134313D+02,
2145 + .118585D+02, .105477D+02, .944376D+01, .850496D+01,
2146 + .769731D+01, .699744D+01, .637784D+01, .583041D+01,
2147 + .533564D+01, .488910D+01, .448117D+01, .410616D+01,
2148 + .375942D+01, .343749D+01, .313761D+01, .285769D+01,
2149 + .259608D+01, .235153D+01, .212303D+01, .190976D+01,
2150 + .171108D+01, .152634D+01, .135583D+01, .119728D+01 /
2151 DATA (UPDI(I),I=7801,7852) /
2152 + .105134D+01, .917553D+00, .795481D+00, .684658D+00,
2153 + .584623D+00, .494874D+00, .414914D+00, .344185D+00,
2154 + .282060D+00, .228511D+00, .182155D+00, .142792D+00,
2155 + .109809D+00, .825856D-01, .605190D-01, .429907D-01,
2156 + .294391D-01, .192082D-01, .118403D-01, .675968D-02,
2157 + .347670D-02, .153737D-02, .535876D-03, .121748D-03,
2158 + .100545D-04, .000000D+00, .153448D+06, .119623D+06,
2159 + .921256D+05, .709550D+05, .546614D+05, .421140D+05,
2160 + .324554D+05, .250159D+05, .192880D+05, .148751D+05,
2161 + .114764D+05, .885720D+04, .683930D+04, .528351D+04,
2162 + .408437D+04, .315934D+04, .244595D+04, .189524D+04,
2163 + .147021D+04, .114180D+04, .888095D+03, .691838D+03,
2164 + .540011D+03, .422385D+03, .331225D+03, .260470D+03 /
2165 DATA (UPDI(I),I=7853,7904) /
2166 + .205531D+03, .162230D+03, .129043D+03, .103122D+03,
2167 + .828565D+02, .669615D+02, .544750D+02, .446558D+02,
2168 + .368763D+02, .307027D+02, .257888D+02, .218540D+02,
2169 + .186898D+02, .161250D+02, .140365D+02, .123171D+02,
2170 + .108907D+02, .969407D+01, .868059D+01, .781196D+01,
2171 + .706228D+01, .640126D+01, .581990D+01, .529690D+01,
2172 + .482735D+01, .440071D+01, .401081D+01, .365249D+01,
2173 + .332194D+01, .301601D+01, .273236D+01, .246907D+01,
2174 + .222463D+01, .199780D+01, .178756D+01, .159307D+01,
2175 + .141345D+01, .124882D+01, .109677D+01, .957787D+00,
2176 + .831248D+00, .716593D+00, .613222D+00, .520565D+00,
2177 + .438013D+00, .364991D+00, .300876D+00, .244963D+00,
2178 + .197129D+00, .156041D+00, .121425D+00, .926613D-01 /
2179 DATA (UPDI(I),I=7905,7956) /
2180 + .691225D-01, .502144D-01, .353361D-01, .239544D-01,
2181 + .154557D-01, .941048D-02, .529770D-02, .268122D-02,
2182 + .116300D-02, .395988D-03, .877726D-04, .733592D-05,
2183 + .000000D+00, .217095D+06, .168305D+06, .128789D+06,
2184 + .985482D+05, .754173D+05, .577148D+05, .441747D+05,
2185 + .338122D+05, .258863D+05, .198202D+05, .151801D+05,
2186 + .116285D+05, .891151D+04, .683144D+04, .523980D+04,
2187 + .402091D+04, .308791D+04, .237306D+04, .182558D+04,
2188 + .140583D+04, .108412D+04, .837238D+03, .647794D+03,
2189 + .502217D+03, .390331D+03, .304210D+03, .237909D+03,
2190 + .186093D+03, .146717D+03, .116220D+03, .925784D+02,
2191 + .741879D+02, .598592D+02, .486804D+02, .398923D+02,
2192 + .329693D+02, .274978D+02, .231450D+02, .196662D+02 /
2193 DATA (UPDI(I),I=7957,8008) /
2194 + .168620D+02, .145906D+02, .127292D+02, .111917D+02,
2195 + .990707D+01, .882327D+01, .789787D+01, .710230D+01,
2196 + .640362D+01, .579178D+01, .524384D+01, .475430D+01,
2197 + .431179D+01, .390961D+01, .354209D+01, .320508D+01,
2198 + .289507D+01, .260942D+01, .234595D+01, .210291D+01,
2199 + .187885D+01, .167251D+01, .148289D+01, .130888D+01,
2200 + .115043D+01, .100504D+01, .873016D+00, .753596D+00,
2201 + .646104D+00, .549830D+00, .464109D+00, .388247D+00,
2202 + .321601D+00, .263497D+00, .213175D+00, .170436D+00,
2203 + .133995D+00, .103530D+00, .784164D-01, .580349D-01,
2204 + .418069D-01, .291535D-01, .195713D-01, .124921D-01,
2205 + .751598D-02, .417442D-02, .208020D-02, .885801D-03,
2206 + .294981D-03, .639036D-04, .540221D-05, .000000D+00 /
2207 DATA (UPDI(I),I=8009,8060) /
2208 + .200139D+06, .228087D+06, .173609D+06, .132126D+06,
2209 + .100557D+06, .765206D+05, .582332D+05, .443124D+05,
2210 + .337231D+05, .256635D+05, .195337D+05, .148688D+05,
2211 + .113212D+05, .862151D+04, .656841D+04, .500589D+04,
2212 + .381747D+04, .291280D+04, .222452D+04, .170035D+04,
2213 + .130136D+04, .997292D+03, .765622D+03, .588873D+03,
2214 + .454022D+03, .350990D+03, .272269D+03, .211211D+03,
2215 + .165168D+03, .129777D+03, .102552D+03, .815342D+02,
2216 + .652810D+02, .526937D+02, .428691D+02, .351827D+02,
2217 + .291480D+02, .243767D+02, .205857D+02, .175461D+02,
2218 + .150963D+02, .130977D+02, .114539D+02, .100858D+02,
2219 + .893591D+01, .795776D+01, .712000D+01, .638715D+01,
2220 + .574802D+01, .517815D+01, .467139D+01, .421557D+01 /
2221 DATA (UPDI(I),I=8061,8112) /
2222 + .380342D+01, .342885D+01, .308728D+01, .277489D+01,
2223 + .248874D+01, .222640D+01, .198587D+01, .176547D+01,
2224 + .156376D+01, .137954D+01, .121153D+01, .105949D+01,
2225 + .920849D+00, .795740D+00, .683284D+00, .582701D+00,
2226 + .493187D+00, .413996D+00, .344366D+00, .283600D+00,
2227 + .230982D+00, .185716D+00, .147541D+00, .115225D+00,
2228 + .884092D-01, .664756D-01, .488185D-01, .348796D-01,
2229 + .241078D-01, .160303D-01, .101247D-01, .602117D-02,
2230 + .330046D-02, .162004D-02, .677639D-03, .220917D-03,
2231 + .468454D-04, .400371D-05, .000000D+00, .411228D+06,
2232 + .315861D+06, .239105D+06, .180960D+06, .136941D+06,
2233 + .103605D+06, .783780D+05, .592820D+05, .448370D+05,
2234 + .339068D+05, .256419D+05, .193902D+05, .146646D+05 /
2235 DATA (UPDI(I),I=8113,8164) /
2236 + .110910D+05, .839045D+04, .634865D+04, .480588D+04,
2237 + .363949D+04, .275815D+04, .209173D+04, .158807D+04,
2238 + .120707D+04, .918945D+03, .700809D+03, .535665D+03,
2239 + .410486D+03, .315612D+03, .242628D+03, .188041D+03,
2240 + .146435D+03, .114691D+03, .903895D+02, .717495D+02,
2241 + .574320D+02, .463442D+02, .377369D+02, .310282D+02,
2242 + .257614D+02, .216037D+02, .182908D+02, .156355D+02,
2243 + .134808D+02, .117170D+02, .102558D+02, .903309D+01,
2244 + .799750D+01, .711439D+01, .634539D+01, .567790D+01,
2245 + .508574D+01, .456194D+01, .409344D+01, .367231D+01,
2246 + .329191D+01, .294721D+01, .263402D+01, .234903D+01,
2247 + .208951D+01, .185320D+01, .163816D+01, .144273D+01,
2248 + .126550D+01, .110496D+01, .960718D+00, .830106D+00 /
2249 DATA (UPDI(I),I=8165,8216) /
2250 + .713078D+00, .608635D+00, .515886D+00, .433939D+00,
2251 + .361970D+00, .299154D+00, .244745D+00, .197994D+00,
2252 + .158081D+00, .124687D+00, .966488D-01, .735775D-01,
2253 + .548717D-01, .399501D-01, .282832D-01, .193574D-01,
2254 + .127369D-01, .795234D-02, .466992D-02, .252387D-02,
2255 + .121918D-02, .500604D-03, .159767D-03, .332007D-04,
2256 + .286813D-05, .000000D+00, .556508D+06, .425629D+06,
2257 + .320593D+06, .241402D+06, .181735D+06, .136770D+06,
2258 + .102912D+06, .774112D+05, .582208D+05, .437763D+05,
2259 + .329122D+05, .247396D+05, .185960D+05, .139768D+05,
2260 + .105061D+05, .789763D+04, .593853D+04, .446654D+04,
2261 + .336126D+04, .253091D+04, .190745D+04, .143900D+04,
2262 + .108714D+04, .822626D+03, .623788D+03, .474161D+03 /
2263 DATA (UPDI(I),I=8217,8268) /
2264 + .361596D+03, .275655D+03, .211866D+03, .163619D+03,
2265 + .127090D+03, .993414D+02, .782191D+02, .621186D+02,
2266 + .497414D+02, .402030D+02, .328194D+02, .270613D+02,
2267 + .225436D+02, .189650D+02, .161119D+02, .138084D+02,
2268 + .119314D+02, .103834D+02, .909340D+01, .800550D+01,
2269 + .708168D+01, .628080D+01, .558881D+01, .497795D+01,
2270 + .444034D+01, .396213D+01, .353467D+01, .315085D+01,
2271 + .280516D+01, .249304D+01, .221084D+01, .195555D+01,
2272 + .172461D+01, .151588D+01, .132745D+01, .115774D+01,
2273 + .100506D+01, .868800D+00, .746273D+00, .637253D+00,
2274 + .540637D+00, .455445D+00, .380711D+00, .315549D+00,
2275 + .259089D+00, .210551D+00, .169163D+00, .134100D+00,
2276 + .104997D+00, .807612D-01, .609887D-01, .450995D-01 /
2277 DATA (UPDI(I),I=8269,8320) /
2278 + .325421D-01, .228197D-01, .154583D-01, .100592D-01,
2279 + .620425D-02, .359454D-02, .191331D-02, .908265D-03,
2280 + .365390D-03, .113863D-03, .231202D-04, .202229D-05,
2281 + .000000D+00, .736738D+06, .561229D+06, .420756D+06,
2282 + .315319D+06, .236233D+06, .176909D+06, .132445D+06,
2283 + .991168D+05, .741562D+05, .554613D+05, .414707D+05,
2284 + .309998D+05, .231695D+05, .173133D+05, .129370D+05,
2285 + .966611D+04, .722326D+04, .539839D+04, .403615D+04,
2286 + .301890D+04, .225977D+04, .169295D+04, .126991D+04,
2287 + .953962D+03, .718031D+03, .541687D+03, .409939D+03,
2288 + .310063D+03, .236457D+03, .181188D+03, .139640D+03,
2289 + .108310D+03, .846309D+02, .667112D+02, .530307D+02,
2290 + .425603D+02, .345076D+02, .282674D+02, .233998D+02 /
2291 DATA (UPDI(I),I=8321,8372) /
2292 + .195655D+02, .165239D+02, .140800D+02, .120973D+02,
2293 + .104692D+02, .911794D+01, .798304D+01, .702326D+01,
2294 + .619478D+01, .548215D+01, .485607D+01, .430782D+01,
2295 + .382273D+01, .339150D+01, .300654D+01, .266185D+01,
2296 + .235256D+01, .207465D+01, .182484D+01, .160032D+01,
2297 + .139872D+01, .121794D+01, .105619D+01, .911632D+00,
2298 + .783497D+00, .669054D+00, .567924D+00, .478918D+00,
2299 + .400983D+00, .333096D+00, .274326D+00, .223774D+00,
2300 + .180636D+00, .144132D+00, .113441D+00, .881691D-01,
2301 + .672954D-01, .504104D-01, .369614D-01, .264311D-01,
2302 + .183577D-01, .123078D-01, .792047D-02, .482554D-02,
2303 + .275811D-02, .144582D-02, .674429D-03, .265825D-03,
2304 + .808949D-04, .160582D-04, .142222D-05, .000000D+00 /
2305 DATA (UPDI(I),I=8373,8424) /
2306 + .957898D+06, .726935D+06, .542553D+06, .404751D+06,
2307 + .301836D+06, .224976D+06, .167626D+06, .124835D+06,
2308 + .929346D+05, .691544D+05, .514431D+05, .382522D+05,
2309 + .284366D+05, .211328D+05, .157026D+05, .116654D+05,
2310 + .866631D+04, .643815D+04, .478410D+04, .355596D+04,
2311 + .264474D+04, .196839D+04, .146665D+04, .109423D+04,
2312 + .817872D+03, .612625D+03, .460286D+03, .345572D+03,
2313 + .261601D+03, .198978D+03, .152221D+03, .117206D+03,
2314 + .909216D+02, .711649D+02, .561811D+02, .447876D+02,
2315 + .360789D+02, .293705D+02, .241667D+02, .200891D+02,
2316 + .168701D+02, .142954D+02, .122153D+02, .105143D+02,
2317 + .910808D+01, .793168D+01, .694078D+01, .608904D+01,
2318 + .535960D+01, .472176D+01, .416594D+01, .367670D+01 /
2319 DATA (UPDI(I),I=8425,8476) /
2320 + .324413D+01, .286013D+01, .251832D+01, .221343D+01,
2321 + .194115D+01, .169794D+01, .148072D+01, .128693D+01,
2322 + .111428D+01, .960819D+00, .824563D+00, .704585D+00,
2323 + .598143D+00, .504718D+00, .423055D+00, .352043D+00,
2324 + .290617D+00, .237817D+00, .192726D+00, .154531D+00,
2325 + .122454D+00, .956892D-01, .738240D-01, .559112D-01,
2326 + .415441D-01, .302018D-01, .214031D-01, .147231D-01,
2327 + .976927D-02, .621694D-02, .374132D-02, .210952D-02,
2328 + .108901D-02, .499173D-03, .192785D-03, .573139D-04,
2329 + .111318D-04, .998157D-06, .000000D+00, .122635D+07,
2330 + .927257D+06, .689076D+06, .511809D+06, .379974D+06,
2331 + .281936D+06, .209100D+06, .154992D+06, .114836D+06,
2332 + .850373D+05, .629456D+05, .465696D+05, .344420D+05 /
2333 DATA (UPDI(I),I=8477,8528) /
2334 + .254616D+05, .188180D+05, .139035D+05, .102714D+05,
2335 + .758709D+04, .560502D+04, .414134D+04, .306137D+04,
2336 + .226430D+04, .167641D+04, .124261D+04, .922636D+03,
2337 + .686436D+03, .512218D+03, .381865D+03, .287059D+03,
2338 + .216815D+03, .164707D+03, .125941D+03, .970280D+02,
2339 + .754362D+02, .591629D+02, .468653D+02, .375205D+02,
2340 + .303630D+02, .248398D+02, .205337D+02, .171497D+02,
2341 + .144548D+02, .122864D+02, .105201D+02, .906542D+01,
2342 + .785315D+01, .683604D+01, .596535D+01, .522288D+01,
2343 + .457666D+01, .401622D+01, .352544D+01, .309380D+01,
2344 + .271276D+01, .237549D+01, .207644D+01, .181098D+01,
2345 + .157531D+01, .136614D+01, .118071D+01, .101655D+01,
2346 + .871587D+00, .743702D+00, .631830D+00, .533237D+00 /
2347 DATA (UPDI(I),I=8529,8580) /
2348 + .447279D+00, .372651D+00, .308199D+00, .252834D+00,
2349 + .205577D+00, .165509D+00, .131817D+00, .103733D+00,
2350 + .804786D-01, .616302D-01, .463143D-01, .341342D-01,
2351 + .246031D-01, .172782D-01, .117712D-01, .772975D-02,
2352 + .486413D-02, .289125D-02, .160811D-02, .817527D-03,
2353 + .368227D-03, .139364D-03, .404911D-04, .770130D-05,
2354 + .699018D-06, .000000D+00, .154874D+07, .116686D+07,
2355 + .863491D+06, .638625D+06, .472074D+06, .348736D+06,
2356 + .257488D+06, .189995D+06, .140121D+06, .103274D+06,
2357 + .760799D+05, .560133D+05, .412212D+05, .303195D+05,
2358 + .222930D+05, .163845D+05, .120394D+05, .884440D+04,
2359 + .649737D+04, .477328D+04, .350794D+04, .257916D+04,
2360 + .189792D+04, .139808D+04, .103151D+04, .762498D+03 /
2361 DATA (UPDI(I),I=8581,8632) /
2362 + .565265D+03, .418594D+03, .312579D+03, .234518D+03,
2363 + .176970D+03, .134425D+03, .102889D+03, .794840D+02,
2364 + .619492D+02, .487763D+02, .388220D+02, .312388D+02,
2365 + .254161D+02, .208981D+02, .173628D+02, .145592D+02,
2366 + .123119D+02, .104883D+02, .899176D+01, .774933D+01,
2367 + .671089D+01, .582553D+01, .507375D+01, .442238D+01,
2368 + .386017D+01, .337031D+01, .294172D+01, .256545D+01,
2369 + .223427D+01, .194232D+01, .168470D+01, .145737D+01,
2370 + .125684D+01, .108018D+01, .924777D+00, .788409D+00,
2371 + .668878D+00, .564989D+00, .474030D+00, .395254D+00,
2372 + .327320D+00, .269046D+00, .219333D+00, .177197D+00,
2373 + .141725D+00, .112115D+00, .876175D-01, .674859D-01,
2374 + .512971D-01, .382492D-01, .279605D-01, .199807D-01 /
2375 DATA (UPDI(I),I=8633,8684) /
2376 + .139047D-01, .938143D-02, .609641D-02, .379331D-02,
2377 + .222695D-02, .122179D-02, .611650D-03, .270716D-03,
2378 + .100418D-03, .285235D-04, .531684D-05, .488432D-06,
2379 + .000000D+00, .193185D+07, .145048D+07, .106896D+07,
2380 + .787305D+06, .579524D+06, .426281D+06, .313376D+06,
2381 + .230213D+06, .169020D+06, .124007D+06, .909294D+05,
2382 + .666306D+05, .487993D+05, .357180D+05, .261316D+05,
2383 + .191083D+05, .139682D+05, .102072D+05, .745810D+04,
2384 + .544898D+04, .398206D+04, .291099D+04, .212960D+04,
2385 + .155941D+04, .114358D+04, .840119D+03, .618919D+03,
2386 + .455396D+03, .337901D+03, .251905D+03, .188883D+03,
2387 + .142572D+03, .108448D+03, .832712D+02, .645164D+02,
2388 + .505061D+02, .399750D+02, .319933D+02, .258938D+02 /
2389 DATA (UPDI(I),I=8685,8736) /
2390 + .211820D+02, .175104D+02, .146099D+02, .122935D+02,
2391 + .104206D+02, .888909D+01, .762219D+01, .656728D+01,
2392 + .567143D+01, .491392D+01, .426054D+01, .369923D+01,
2393 + .321260D+01, .278903D+01, .241917D+01, .209545D+01,
2394 + .181170D+01, .156279D+01, .134446D+01, .115304D+01,
2395 + .985438D+00, .838927D+00, .711171D+00, .599894D+00,
2396 + .503799D+00, .420212D+00, .348295D+00, .286689D+00,
2397 + .234200D+00, .189728D+00, .152296D+00, .121009D+00,
2398 + .950804D-01, .737886D-01, .564236D-01, .425692D-01,
2399 + .314933D-01, .228337D-01, .161767D-01, .111550D-01,
2400 + .745315D-02, .479278D-02, .294859D-02, .170962D-02,
2401 + .925161D-03, .456075D-03, .198357D-03, .721208D-04,
2402 + .200353D-04, .366292D-05, .340516D-06, .000000D+00 /
2403 DATA (UPDI(I),I=8737,8788) /
2404 + .238248D+07, .178278D+07, .130858D+07, .959866D+06,
2405 + .703629D+06, .515406D+06, .377286D+06, .275969D+06,
2406 + .201728D+06, .147347D+06, .107556D+06, .784524D+05,
2407 + .571891D+05, .416601D+05, .303315D+05, .220702D+05,
2408 + .160524D+05, .116703D+05, .848272D+04, .616466D+04,
2409 + .448067D+04, .325740D+04, .236961D+04, .172522D+04,
2410 + .125781D+04, .918555D+03, .672648D+03, .491895D+03,
2411 + .362765D+03, .268797D+03, .200327D+03, .150304D+03,
2412 + .113654D+03, .867653D+02, .668448D+02, .520431D+02,
2413 + .409733D+02, .326241D+02, .262722D+02, .213863D+02,
2414 + .175937D+02, .146088D+02, .122334D+02, .103193D+02,
2415 + .875956D+01, .747383D+01, .640719D+01, .550490D+01,
2416 + .474512D+01, .409269D+01, .353480D+01, .305353D+01 /
2417 DATA (UPDI(I),I=8789,8840) /
2418 + .263677D+01, .227481D+01, .195974D+01, .168515D+01,
2419 + .144567D+01, .123685D+01, .105488D+01, .896515D+00,
2420 + .758937D+00, .639719D+00, .536530D+00, .447986D+00,
2421 + .371464D+00, .306055D+00, .250397D+00, .203292D+00,
2422 + .163654D+00, .130522D+00, .103024D+00, .804010D-01,
2423 + .619613D-01, .470360D-01, .352215D-01, .258531D-01,
2424 + .185905D-01, .130568D-01, .892128D-02, .590259D-02,
2425 + .375591D-02, .228457D-02, .130816D-02, .698225D-03,
2426 + .338934D-03, .144856D-03, .516327D-04, .140333D-04,
2427 + .251824D-05, .236863D-06, .000000D+00, .290725D+07,
2428 + .216828D+07, .158526D+07, .115818D+07, .845573D+06,
2429 + .616844D+06, .449665D+06, .327527D+06, .238391D+06,
2430 + .173371D+06, .125995D+06, .914908D+05, .663901D+05 /
2431 DATA (UPDI(I),I=8841,8892) /
2432 + .481391D+05, .348836D+05, .252610D+05, .182836D+05,
2433 + .132265D+05, .956526D+04, .691560D+04, .500012D+04,
2434 + .361563D+04, .261591D+04, .189401D+04, .137311D+04,
2435 + .997034D+03, .725911D+03, .527721D+03, .386917D+03,
2436 + .285025D+03, .211191D+03, .157549D+03, .118461D+03,
2437 + .899390D+02, .689186D+02, .533791D+02, .418134D+02,
2438 + .331301D+02, .265520D+02, .215125D+02, .176150D+02,
2439 + .145584D+02, .121338D+02, .101868D+02, .860543D+01,
2440 + .730638D+01, .623261D+01, .532778D+01, .456901D+01,
2441 + .392032D+01, .336821D+01, .289425D+01, .248592D+01,
2442 + .213315D+01, .182778D+01, .156314D+01, .133366D+01,
2443 + .113474D+01, .962430D+00, .813385D+00, .684695D+00,
2444 + .573869D+00, .478542D+00, .397260D+00, .327465D+00 /
2445 DATA (UPDI(I),I=8893,8944) /
2446 + .268194D+00, .218091D+00, .175970D+00, .140767D+00,
2447 + .111545D+00, .874632D-01, .677936D-01, .518799D-01,
2448 + .390964D-01, .290567D-01, .211602D-01, .150906D-01,
2449 + .105067D-01, .711298D-02, .466010D-02, .293409D-02,
2450 + .176444D-02, .997738D-03, .525234D-03, .251054D-03,
2451 + .105441D-03, .368499D-04, .980237D-05, .172778D-05,
2452 + .164402D-06, .000000D+00, .319920D+05, .491218D+05,
2453 + .386415D+05, .304000D+05, .239187D+05, .188215D+05,
2454 + .148126D+05, .116595D+05, .917931D+04, .722827D+04,
2455 + .569336D+04, .448571D+04, .353543D+04, .278758D+04,
2456 + .219895D+04, .173556D+04, .137068D+04, .108331D+04,
2457 + .856930D+03, .678533D+03, .537900D+03, .426991D+03,
2458 + .339483D+03, .270400D+03, .215827D+03, .172684D+03 /
2459 DATA (UPDI(I),I=8945,8996) /
2460 + .138549D+03, .111172D+03, .898108D+02, .728466D+02,
2461 + .593522D+02, .485975D+02, .400069D+02, .331455D+02,
2462 + .276184D+02, .231637D+02, .195577D+02, .166237D+02,
2463 + .142225D+02, .122432D+02, .106018D+02, .922738D+01,
2464 + .806713D+01, .707906D+01, .623039D+01, .549556D+01,
2465 + .485682D+01, .429249D+01, .379727D+01, .335543D+01,
2466 + .296385D+01, .261464D+01, .230279D+01, .202412D+01,
2467 + .177509D+01, .155270D+01, .135430D+01, .117761D+01,
2468 + .102054D+01, .881242D+00, .758015D+00, .649308D+00,
2469 + .553698D+00, .470242D+00, .396884D+00, .333069D+00,
2470 + .277788D+00, .230115D+00, .189210D+00, .154305D+00,
2471 + .124703D+00, .997683D-01, .789143D-01, .616083D-01,
2472 + .475146D-01, .359949D-01, .267704D-01, .194903D-01 /
2473 DATA (UPDI(I),I=8997,9048) /
2474 + .138418D-01, .954646D-02, .635748D-02, .406085D-02,
2475 + .245499D-02, .139086D-02, .721759D-03, .332223D-03,
2476 + .128533D-03, .377842D-04, .672820D-05, .351569D-06,
2477 + .000000D+00, .102178D+06, .802252D+05, .622890D+05,
2478 + .483697D+05, .375692D+05, .291850D+05, .226776D+05,
2479 + .176246D+05, .137016D+05, .106543D+05, .828777D+04,
2480 + .644889D+04, .502025D+04, .390970D+04, .304653D+04,
2481 + .237522D+04, .185318D+04, .144694D+04, .113082D+04,
2482 + .884642D+03, .692933D+03, .543500D+03, .427005D+03,
2483 + .336091D+03, .265117D+03, .209646D+03, .166272D+03,
2484 + .131867D+03, .105328D+03, .844749D+02, .680720D+02,
2485 + .551334D+02, .449086D+02, .368217D+02, .303742D+02,
2486 + .252254D+02, .210977D+02, .177680D+02, .150676D+02 /
2487 DATA (UPDI(I),I=9049,9100) /
2488 + .128595D+02, .110443D+02, .953592D+01, .827306D+01,
2489 + .720575D+01, .629645D+01, .551508D+01, .484134D+01,
2490 + .425057D+01, .373631D+01, .328095D+01, .288049D+01,
2491 + .252602D+01, .221183D+01, .193310D+01, .168579D+01,
2492 + .146647D+01, .127214D+01, .110022D+01, .948401D+00,
2493 + .814623D+00, .697023D+00, .593947D+00, .503824D+00,
2494 + .425646D+00, .357335D+00, .298274D+00, .247417D+00,
2495 + .203830D+00, .166658D+00, .135137D+00, .108571D+00,
2496 + .863391D-01, .678717D-01, .526464D-01, .403340D-01,
2497 + .303432D-01, .224025D-01, .161855D-01, .114011D-01,
2498 + .779536D-02, .514248D-02, .325173D-02, .194489D-02,
2499 + .108968D-02, .558282D-03, .253261D-03, .963095D-04,
2500 + .277535D-04, .485192D-05, .257563D-06, .000000D+00 /
2501 DATA (UPDI(I),I=9101,9152) /
2502 + .153215D+06, .119415D+06, .919403D+05, .707901D+05,
2503 + .545147D+05, .419836D+05, .323394D+05, .249129D+05,
2504 + .191966D+05, .147939D+05, .114045D+05, .879348D+04,
2505 + .678288D+04, .523360D+04, .404025D+04, .312038D+04,
2506 + .241156D+04, .186492D+04, .144349D+04, .111829D+04,
2507 + .867406D+03, .673651D+03, .524031D+03, .408349D+03,
2508 + .318899D+03, .249642D+03, .196014D+03, .153872D+03,
2509 + .121676D+03, .966119D+02, .770840D+02, .618207D+02,
2510 + .498707D+02, .405031D+02, .331019D+02, .272417D+02,
2511 + .225843D+02, .188574D+02, .158596D+02, .134272D+02,
2512 + .114430D+02, .980643D+01, .844649D+01, .730537D+01,
2513 + .634037D+01, .551704D+01, .481232D+01, .419875D+01,
2514 + .366855D+01, .320236D+01, .279530D+01, .243748D+01 /
2515 DATA (UPDI(I),I=9153,9204) /
2516 + .212250D+01, .184495D+01, .160033D+01, .138479D+01,
2517 + .119503D+01, .102821D+01, .881794D+00, .753565D+00,
2518 + .641515D+00, .543896D+00, .459027D+00, .385839D+00,
2519 + .322252D+00, .267597D+00, .220805D+00, .180937D+00,
2520 + .147137D+00, .118648D+00, .947817D-01, .749335D-01,
2521 + .585541D-01, .451358D-01, .343583D-01, .256742D-01,
2522 + .188218D-01, .134982D-01, .943386D-02, .639706D-02,
2523 + .418236D-02, .261953D-02, .154950D-02, .857172D-03,
2524 + .432955D-03, .193289D-03, .721322D-04, .203350D-04,
2525 + .348264D-05, .188123D-06, .000000D+00, .216847D+06,
2526 + .168083D+06, .128592D+06, .983728D+05, .752613D+05,
2527 + .575761D+05, .440515D+05, .337029D+05, .257892D+05,
2528 + .197341D+05, .151039D+05, .115610D+05, .885173D+04 /
2529 DATA (UPDI(I),I=9205,9256) /
2530 + .677857D+04, .519308D+04, .397966D+04, .305150D+04,
2531 + .234096D+04, .179729D+04, .138093D+04, .106221D+04,
2532 + .817960D+03, .630843D+03, .487315D+03, .377229D+03,
2533 + .292685D+03, .227763D+03, .177166D+03, .138832D+03,
2534 + .109236D+03, .863706D+02, .686460D+02, .548839D+02,
2535 + .441838D+02, .357986D+02, .292117D+02, .240180D+02,
2536 + .198935D+02, .166009D+02, .139486D+02, .118008D+02,
2537 + .100415D+02, .858981D+01, .738000D+01, .636394D+01,
2538 + .550289D+01, .477089D+01, .413783D+01, .359449D+01,
2539 + .311993D+01, .270830D+01, .234882D+01, .203444D+01,
2540 + .175917D+01, .151807D+01, .130695D+01, .112219D+01,
2541 + .960739D+00, .819863D+00, .697202D+00, .590629D+00,
2542 + .498315D+00, .418493D+00, .350045D+00, .290903D+00 /
2543 DATA (UPDI(I),I=9257,9308) /
2544 + .240353D+00, .197315D+00, .160854D+00, .130118D+00,
2545 + .104361D+00, .829081D-01, .651754D-01, .506337D-01,
2546 + .387944D-01, .293473D-01, .217866D-01, .158627D-01,
2547 + .112945D-01, .783376D-02, .526939D-02, .341522D-02,
2548 + .211930D-02, .124089D-02, .678893D-03, .338706D-03,
2549 + .149166D-03, .548199D-04, .152093D-04, .257851D-05,
2550 + .142702D-06, .000000D+00, .200207D+06, .227852D+06,
2551 + .173400D+06, .131940D+06, .100391D+06, .763736D+05,
2552 + .581027D+05, .441965D+05, .336203D+05, .255724D+05,
2553 + .194530D+05, .147974D+05, .112580D+05, .856562D+04,
2554 + .651902D+04, .496229D+04, .377899D+04, .287888D+04,
2555 + .219462D+04, .167402D+04, .127818D+04, .976895D+03,
2556 + .747676D+03, .573083D+03, .440125D+03, .338750D+03 /
2557 DATA (UPDI(I),I=9309,9360) /
2558 + .261478D+03, .201701D+03, .156752D+03, .122310D+03,
2559 + .959017D+02, .755858D+02, .599312D+02, .478515D+02,
2560 + .384562D+02, .311305D+02, .253965D+02, .208755D+02,
2561 + .172918D+02, .144249D+02, .121190D+02, .102428D+02,
2562 + .870475D+01, .743129D+01, .636868D+01, .547393D+01,
2563 + .471815D+01, .406867D+01, .351480D+01, .303408D+01,
2564 + .261972D+01, .226011D+01, .194753D+01, .167550D+01,
2565 + .143866D+01, .123248D+01, .105309D+01, .897227D+00,
2566 + .761989D+00, .644892D+00, .543714D+00, .456554D+00,
2567 + .381588D+00, .317650D+00, .262701D+00, .215988D+00,
2568 + .176432D+00, .143105D+00, .115165D+00, .918832D-01,
2569 + .726023D-01, .567583D-01, .438446D-01, .333939D-01,
2570 + .251082D-01, .185207D-01, .133946D-01, .947023D-02 /
2571 DATA (UPDI(I),I=9361,9412) /
2572 + .651973D-02, .435101D-02, .279608D-02, .171941D-02,
2573 + .996760D-03, .539449D-03, .265913D-03, .115557D-03,
2574 + .418379D-04, .114270D-04, .191670D-05, .108460D-06,
2575 + .000000D+00, .410945D+06, .315609D+06, .238881D+06,
2576 + .180761D+06, .136763D+06, .103448D+06, .782385D+05,
2577 + .591582D+05, .447273D+05, .338096D+05, .255558D+05,
2578 + .193140D+05, .145972D+05, .110314D+05, .833782D+04,
2579 + .630219D+04, .476488D+04, .360334D+04, .272629D+04,
2580 + .206366D+04, .156335D+04, .118531D+04, .899780D+03,
2581 + .683931D+03, .520793D+03, .397371D+03, .304033D+03,
2582 + .232406D+03, .178981D+03, .138381D+03, .107505D+03,
2583 + .839511D+02, .659506D+02, .521776D+02, .415529D+02,
2584 + .333377D+02, .269591D+02, .219707D+02, .180473D+02 /
2585 DATA (UPDI(I),I=9413,9464) /
2586 + .149333D+02, .124476D+02, .104403D+02, .880676D+01,
2587 + .746426D+01, .635210D+01, .542241D+01, .464274D+01,
2588 + .397753D+01, .341430D+01, .292894D+01, .251352D+01,
2589 + .215552D+01, .184648D+01, .157938D+01, .134838D+01,
2590 + .114863D+01, .975965D+00, .826914D+00, .698415D+00,
2591 + .587856D+00, .492924D+00, .411656D+00, .342178D+00,
2592 + .283284D+00, .232978D+00, .190477D+00, .154709D+00,
2593 + .124761D+00, .998124D-01, .791559D-01, .621603D-01,
2594 + .482878D-01, .370590D-01, .280347D-01, .209316D-01,
2595 + .153268D-01, .109996D-01, .771411D-02, .526527D-02,
2596 + .348179D-02, .221543D-02, .134788D-02, .772202D-03,
2597 + .412489D-03, .200335D-03, .855829D-04, .303616D-04,
2598 + .809156D-05, .132190D-05, .754130D-07, .000000D+00 /
2599 DATA (UPDI(I),I=9465,9516) /
2600 + .556205D+06, .425359D+06, .320353D+06, .241189D+06,
2601 + .181546D+06, .136602D+06, .102763D+06, .772791D+05,
2602 + .581037D+05, .436726D+05, .328204D+05, .246583D+05,
2603 + .185242D+05, .139133D+05, .104500D+05, .784816D+04,
2604 + .589487D+04, .442805D+04, .332732D+04, .250100D+04,
2605 + .188110D+04, .141578D+04, .106669D+04, .804601D+03,
2606 + .607891D+03, .460125D+03, .349189D+03, .264687D+03,
2607 + .202130D+03, .154953D+03, .119347D+03, .923961D+02,
2608 + .719577D+02, .564421D+02, .445652D+02, .354534D+02,
2609 + .284323D+02, .229832D+02, .187292D+02, .153777D+02,
2610 + .127215D+02, .105919D+02, .887084D+01, .746629D+01,
2611 + .631070D+01, .535136D+01, .455231D+01, .387523D+01,
2612 + .330586D+01, .281856D+01, .240430D+01, .204971D+01 /
2613 DATA (UPDI(I),I=9517,9568) /
2614 + .174565D+01, .148459D+01, .126028D+01, .106758D+01,
2615 + .902069D+00, .760096D+00, .638463D+00, .534462D+00,
2616 + .445711D+00, .370199D+00, .306029D+00, .251965D+00,
2617 + .206065D+00, .167522D+00, .135286D+00, .108464D+00,
2618 + .862596D-01, .679930D-01, .530619D-01, .409564D-01,
2619 + .312260D-01, .234603D-01, .173926D-01, .126411D-01,
2620 + .900180D-02, .626156D-02, .423699D-02, .277615D-02,
2621 + .174904D-02, .105291D-02, .596253D-03, .314497D-03,
2622 + .150616D-03, .633496D-04, .220886D-04, .578068D-05,
2623 + .932101D-06, .544882D-07, .000000D+00, .736414D+06,
2624 + .560940D+06, .420500D+06, .315091D+06, .236031D+06,
2625 + .176730D+06, .132286D+06, .989759D+05, .740314D+05,
2626 + .553508D+05, .413729D+05, .309133D+05, .230930D+05 /
2627 DATA (UPDI(I),I=9569,9620) /
2628 + .172458D+05, .128774D+05, .961346D+04, .717680D+04,
2629 + .535742D+04, .400003D+04, .298706D+04, .223171D+04,
2630 + .166821D+04, .124811D+04, .934729D+03, .701055D+03,
2631 + .526684D+03, .396663D+03, .298314D+03, .226017D+03,
2632 + .171884D+03, .131320D+03, .100841D+03, .778943D+02,
2633 + .606034D+02, .474637D+02, .374575D+02, .298025D+02,
2634 + .239046D+02, .193323D+02, .157553D+02, .129396D+02,
2635 + .106975D+02, .889745D+01, .743826D+01, .624555D+01,
2636 + .526192D+01, .444799D+01, .376284D+01, .319046D+01,
2637 + .270381D+01, .229281D+01, .194330D+01, .164554D+01,
2638 + .139153D+01, .117467D+01, .989533D+00, .831519D+00,
2639 + .696817D+00, .582122D+00, .484651D+00, .401978D+00,
2640 + .332062D+00, .273000D+00, .223537D+00, .181797D+00 /
2641 DATA (UPDI(I),I=9621,9672) /
2642 + .146960D+00, .118002D+00, .940565D-01, .743578D-01,
2643 + .582559D-01, .451798D-01, .346494D-01, .262435D-01,
2644 + .195816D-01, .144144D-01, .103988D-01, .734748D-02,
2645 + .506908D-02, .340045D-02, .220759D-02, .137712D-02,
2646 + .820266D-03, .459154D-03, .239144D-03, .112943D-03,
2647 + .467786D-04, .160371D-04, .412464D-05, .657369D-06,
2648 + .393907D-07, .000000D+00, .957551D+06, .726627D+06,
2649 + .542279D+06, .404508D+06, .301621D+06, .224785D+06,
2650 + .167457D+06, .124685D+06, .928017D+05, .690368D+05,
2651 + .513390D+05, .381601D+05, .283553D+05, .210609D+05,
2652 + .156392D+05, .116094D+05, .861690D+04, .639458D+04,
2653 + .474567D+04, .352208D+04, .261487D+04, .194206D+04,
2654 + .144342D+04, .107372D+04, .799760D+03, .596605D+03 /
2655 DATA (UPDI(I),I=9673,9724) /
2656 + .446099D+03, .333006D+03, .250425D+03, .189011D+03,
2657 + .143303D+03, .109197D+03, .836976D+02, .646176D+02,
2658 + .502185D+02, .393299D+02, .310570D+02, .247267D+02,
2659 + .198520D+02, .160639D+02, .131013D+02, .107574D+02,
2660 + .888761D+01, .738149D+01, .615814D+01, .515560D+01,
2661 + .433124D+01, .364170D+01, .306929D+01, .258573D+01,
2662 + .217992D+01, .183702D+01, .154672D+01, .130063D+01,
2663 + .109183D+01, .914691D+00, .764423D+00, .637105D+00,
2664 + .529351D+00, .438330D+00, .361591D+00, .297080D+00,
2665 + .242905D+00, .197804D+00, .159973D+00, .128589D+00,
2666 + .102660D+00, .813513D-01, .639315D-01, .497828D-01,
2667 + .383677D-01, .292364D-01, .219976D-01, .163006D-01,
2668 + .119141D-01, .853105D-02, .598083D-02, .409241D-02 /
2669 DATA (UPDI(I),I=9725,9776) /
2670 + .272152D-02, .175056D-02, .108124D-02, .637226D-03,
2671 + .352584D-03, .181337D-03, .844621D-04, .344519D-04,
2672 + .116160D-04, .293725D-05, .462850D-06, .284166D-07,
2673 + .000000D+00, .122598D+07, .926928D+06, .688784D+06,
2674 + .511550D+06, .379744D+06, .281732D+06, .208919D+06,
2675 + .154832D+06, .114695D+06, .849121D+05, .628348D+05,
2676 + .464717D+05, .343555D+05, .253852D+05, .187506D+05,
2677 + .138440D+05, .102189D+05, .754076D+04, .556416D+04,
2678 + .410531D+04, .302960D+04, .223627D+04, .165168D+04,
2679 + .122077D+04, .903332D+03, .669351D+03, .497078D+03,
2680 + .368446D+03, .275117D+03, .206161D+03, .155171D+03,
2681 + .117377D+03, .893059D+02, .684423D+02, .528013D+02,
2682 + .410526D+02, .321844D+02, .254431D+02, .202851D+02 /
2683 DATA (UPDI(I),I=9777,9828) /
2684 + .163023D+02, .132066D+02, .107727D+02, .884269D+01,
2685 + .729760D+01, .605013D+01, .503401D+01, .420356D+01,
2686 + .351317D+01, .294356D+01, .246535D+01, .206649D+01,
2687 + .173155D+01, .144973D+01, .121229D+01, .101207D+01,
2688 + .843226D+00, .700863D+00, .580966D+00, .480098D+00,
2689 + .395400D+00, .324415D+00, .265093D+00, .215567D+00,
2690 + .174579D+00, .140403D+00, .112221D+00, .890796D-01,
2691 + .701778D-01, .548224D-01, .424295D-01, .324960D-01,
2692 + .246029D-01, .183888D-01, .135324D-01, .982052D-02,
2693 + .697944D-02, .485481D-02, .329463D-02, .217197D-02,
2694 + .138419D-02, .846494D-03, .493600D-03, .269967D-03,
2695 + .137109D-03, .629857D-04, .253051D-04, .839322D-05,
2696 + .208734D-05, .325298D-06, .204533D-07, .000000D+00 /
2697 DATA (UPDI(I),I=9829,9880) /
2698 + .154834D+07, .116651D+07, .863180D+06, .638349D+06,
2699 + .471830D+06, .348519D+06, .257296D+06, .189825D+06,
2700 + .139970D+06, .103141D+06, .759621D+05, .559092D+05,
2701 + .411292D+05, .302383D+05, .222213D+05, .163212D+05,
2702 + .119836D+05, .879518D+04, .645395D+04, .473498D+04,
2703 + .347416D+04, .254935D+04, .187160D+04, .137483D+04,
2704 + .101096D+04, .744297D+03, .549129D+03, .404287D+03,
2705 + .299843D+03, .223153D+03, .166798D+03, .125292D+03,
2706 + .946597D+02, .720382D+02, .551867D+02, .426096D+02,
2707 + .331755D+02, .260491D+02, .206296D+02, .164704D+02,
2708 + .132566D+02, .107447D+02, .876448D+01, .718843D+01,
2709 + .592334D+01, .489887D+01, .406650D+01, .337861D+01,
2710 + .281444D+01, .234364D+01, .195332D+01, .162753D+01 /
2711 DATA (UPDI(I),I=9881,9932) /
2712 + .135506D+01, .112687D+01, .935603D+00, .775273D+00,
2713 + .640891D+00, .528385D+00, .434293D+00, .355749D+00,
2714 + .290308D+00, .235939D+00, .190811D+00, .153682D+00,
2715 + .122907D+00, .976821D-01, .770935D-01, .603801D-01,
2716 + .468870D-01, .360662D-01, .274493D-01, .206480D-01,
2717 + .153303D-01, .112036D-01, .807245D-02, .569411D-02,
2718 + .392970D-02, .264485D-02, .172842D-02, .109133D-02,
2719 + .660788D-03, .381231D-03, .206107D-03, .103368D-03,
2720 + .468373D-04, .185365D-04, .604964D-05, .148024D-05,
2721 + .228204D-06, .146881D-07, .000000D+00, .193143D+07,
2722 + .145010D+07, .106863D+07, .787011D+06, .579263D+06,
2723 + .426051D+06, .313171D+06, .230032D+06, .168860D+06,
2724 + .123865D+06, .908043D+05, .665201D+05, .487016D+05 /
2725 DATA (UPDI(I),I=9933,9984) /
2726 + .356318D+05, .260555D+05, .190411D+05, .139089D+05,
2727 + .101549D+05, .741199D+04, .540830D+04, .394617D+04,
2728 + .287931D+04, .210163D+04, .153469D+04, .112171D+04,
2729 + .820753D+03, .601745D+03, .440165D+03, .324342D+03,
2730 + .239806D+03, .178059D+03, .132860D+03, .997037D+02,
2731 + .753697D+02, .573527D+02, .439882D+02, .340236D+02,
2732 + .265416D+02, .208848D+02, .165688D+02, .132527D+02,
2733 + .106755D+02, .865508D+01, .705608D+01, .577971D+01,
2734 + .475193D+01, .392162D+01, .323936D+01, .268305D+01,
2735 + .222153D+01, .184116D+01, .152554D+01, .126313D+01,
2736 + .104467D+01, .862626D+00, .710928D+00, .584527D+00,
2737 + .479322D+00, .391848D+00, .319253D+00, .259122D+00,
2738 + .209452D+00, .168465D+00, .134939D+00, .107315D+00 /
2739 DATA (UPDI(I),I=9985,10036) /
2740 + .848066D-01, .665469D-01, .518145D-01, .399948D-01,
2741 + .305761D-01, .231246D-01, .172823D-01, .127459D-01,
2742 + .925014D-02, .661724D-02, .463255D-02, .317195D-02,
2743 + .211719D-02, .137152D-02, .857950D-03, .514328D-03,
2744 + .293587D-03, .156895D-03, .777066D-04, .347312D-04,
2745 + .135419D-04, .434981D-05, .104751D-05, .159799D-06,
2746 + .105244D-07, .000000D+00, .238203D+07, .178238D+07,
2747 + .130822D+07, .959553D+06, .703352D+06, .515160D+06,
2748 + .377069D+06, .275777D+06, .201558D+06, .147196D+06,
2749 + .107423D+06, .783350D+05, .570854D+05, .415686D+05,
2750 + .302506D+05, .219989D+05, .159895D+05, .116148D+05,
2751 + .843376D+04, .612147D+04, .444256D+04, .322376D+04,
2752 + .233990D+04, .169896D+04, .123457D+04, .897974D+03 /
2753 DATA (UPDI(I),I=10037,10088) /
2754 + .654396D+03, .475709D+03, .348357D+03, .255945D+03,
2755 + .188835D+03, .140001D+03, .104388D+03, .784062D+02,
2756 + .592814D+02, .451786D+02, .347240D+02, .269192D+02,
2757 + .210514D+02, .165993D+02, .131971D+02, .105674D+02,
2758 + .851687D+01, .690276D+01, .562128D+01, .459500D+01,
2759 + .377047D+01, .309674D+01, .255049D+01, .209991D+01,
2760 + .173069D+01, .142610D+01, .117432D+01, .965924D+00,
2761 + .793280D+00, .650248D+00, .531760D+00, .433709D+00,
2762 + .352656D+00, .285778D+00, .230702D+00, .185470D+00,
2763 + .148359D+00, .118181D+00, .934614D-01, .734399D-01,
2764 + .572953D-01, .443490D-01, .340270D-01, .258538D-01,
2765 + .194298D-01, .144267D-01, .105687D-01, .761662D-02,
2766 + .540953D-02, .375851D-02, .255318D-02, .169005D-02 /
2767 DATA (UPDI(I),I=10089,10140) /
2768 + .108524D-02, .672555D-03, .399182D-03, .225442D-03,
2769 + .119092D-03, .582499D-04, .256831D-04, .986714D-05,
2770 + .312014D-05, .739758D-06, .111701D-06, .752451D-08,
2771 + .000000D+00, .290677D+07, .216785D+07, .158488D+07,
2772 + .115785D+07, .845278D+06, .616583D+06, .449434D+06,
2773 + .327322D+06, .238210D+06, .173212D+06, .125854D+06,
2774 + .913661D+05, .662800D+05, .480419D+05, .347979D+05,
2775 + .251854D+05, .182169D+05, .131676D+05, .951332D+04,
2776 + .686978D+04, .495968D+04, .357993D+04, .258438D+04,
2777 + .186614D+04, .134845D+04, .975190D+03, .706540D+03,
2778 + .510546D+03, .371635D+03, .271401D+03, .199018D+03,
2779 + .146647D+03, .108671D+03, .811225D+02, .609590D+02,
2780 + .461742D+02, .352746D+02, .271825D+02, .211313D+02 /
2781 DATA (UPDI(I),I=10141,10192) /
2782 + .165644D+02, .130928D+02, .104233D+02, .835243D+01,
2783 + .673083D+01, .545011D+01, .442984D+01, .361455D+01,
2784 + .295199D+01, .241775D+01, .197955D+01, .162251D+01,
2785 + .132964D+01, .108892D+01, .890830D+00, .727660D+00,
2786 + .593251D+00, .482546D+00, .391460D+00, .316596D+00,
2787 + .255178D+00, .204889D+00, .163825D+00, .130328D+00,
2788 + .103246D+00, .811924D-01, .634364D-01, .492049D-01,
2789 + .378623D-01, .288753D-01, .218043D-01, .162828D-01,
2790 + .120114D-01, .874021D-02, .625481D-02, .441032D-02,
2791 + .304108D-02, .204948D-02, .134535D-02, .856315D-03,
2792 + .525743D-03, .308942D-03, .172626D-03, .901434D-04,
2793 + .435440D-04, .189411D-04, .717123D-05, .223292D-05,
2794 + .521377D-06, .779458D-07, .536826D-08, .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