1 C-----------------------------------------------------------------------
3 Subroutine Ctq4RA2 (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 : CTEQ4A2
20 DATA DrI, FlI, AlI / 2., 5., .1690 /
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, .203942D+01, .266851D+01, .359449D+01, .500000D+01,
27 + .802532D+01, .137613D+02, .254432D+02, .512588D+02, .113883D+03,
28 + .282862D+03, .797782D+03, .260074D+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 + .240472D+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, .103279D+06,
174 + .785852D+05, .588257D+05, .439999D+05, .328913D+05,
175 + .245652D+05, .183349D+05, .136716D+05, .101872D+05,
176 + .758300D+04, .564018D+04, .419047D+04, .311077D+04 /
177 DATA (UPDI(I),I=469,520) /
178 + .230649D+04, .170859D+04, .126404D+04, .934221D+03,
179 + .689492D+03, .508317D+03, .374183D+03, .275123D+03,
180 + .201963D+03, .148067D+03, .108370D+03, .792042D+02,
181 + .577911D+02, .421217D+02, .305046D+02, .221642D+02,
182 + .160754D+02, .116478D+02, .842672D+01, .609181D+01,
183 + .440352D+01, .318085D+01, .229724D+01, .166105D+01,
184 + .120196D+01, .871802D+00, .633493D+00, .462176D+00,
185 + .338198D+00, .248575D+00, .183402D+00, .136023D+00,
186 + .101286D+00, .759004D-01, .569663D-01, .430572D-01,
187 + .325731D-01, .247616D-01, .188561D-01, .143988D-01,
188 + .110030D-01, .842071D-02, .643871D-02, .492180D-02,
189 + .375369D-02, .285909D-02, .216897D-02, .164051D-02,
190 + .123384D-02, .923191D-03, .686805D-03, .506088D-03 /
191 DATA (UPDI(I),I=521,572) /
192 + .368803D-03, .265761D-03, .188611D-03, .131666D-03,
193 + .897929D-04, .595959D-04, .379724D-04, .228716D-04,
194 + .125123D-04, .576448D-05, .144873D-05, .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, .232070D+06, .176164D+06,
199 + .131502D+06, .980842D+05, .731115D+05, .544467D+05,
200 + .405184D+05, .301235D+05, .223782D+05, .166068D+05,
201 + .123136D+05, .911986D+04, .674833D+04, .498736D+04,
202 + .368227D+04, .271508D+04, .199977D+04, .147080D+04,
203 + .108048D+04, .792506D+03, .580556D+03, .424585D+03,
204 + .310091D+03, .226073D+03, .164572D+03, .119591D+03 /
205 DATA (UPDI(I),I=573,624) /
206 + .868007D+02, .625907D+02, .452786D+02, .326946D+02,
207 + .235808D+02, .169804D+02, .122163D+02, .878761D+01,
208 + .631548D+01, .453769D+01, .326358D+01, .234888D+01,
209 + .169421D+01, .122420D+01, .887973D+00, .645988D+00,
210 + .471954D+00, .346122D+00, .255119D+00, .188788D+00,
211 + .140573D+00, .104836D+00, .787208D-01, .591644D-01,
212 + .446763D-01, .337964D-01, .256334D-01, .194568D-01,
213 + .147888D-01, .112317D-01, .852752D-02, .646066D-02,
214 + .488845D-02, .368509D-02, .277024D-02, .207178D-02,
215 + .154230D-02, .114249D-02, .839266D-03, .610814D-03,
216 + .440678D-03, .314264D-03, .221589D-03, .153855D-03,
217 + .105213D-03, .704550D-04, .460809D-04, .292215D-04,
218 + .179840D-04, .104881D-04, .572762D-05, .279523D-05 /
219 DATA (UPDI(I),I=625,676) /
220 + .110547D-05, .195293D-06, .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, .390898D+06, .296000D+06, .220317D+06,
224 + .163850D+06, .121771D+06, .904130D+05, .670795D+05,
225 + .497175D+05, .368190D+05, .272373D+05, .201311D+05,
226 + .148615D+05, .109606D+05, .807349D+04, .594055D+04,
227 + .436516D+04, .320386D+04, .234803D+04, .171866D+04,
228 + .125598D+04, .916628D+03, .667822D+03, .485839D+03,
229 + .352805D+03, .255792D+03, .185111D+03, .133788D+03,
230 + .960522D+02, .691783D+02, .497286D+02, .357008D+02,
231 + .255875D+02, .183194D+02, .131132D+02, .937631D+01,
232 + .670223D+01, .479469D+01, .343229D+01, .246193D+01 /
233 DATA (UPDI(I),I=677,728) /
234 + .176899D+01, .127574D+01, .922695D+00, .670099D+00,
235 + .488502D+00, .357859D+00, .263187D+00, .194742D+00,
236 + .144323D+00, .107674D+00, .804054D-01, .603188D-01,
237 + .453335D-01, .341562D-01, .257554D-01, .194449D-01,
238 + .146696D-01, .110629D-01, .832605D-02, .625770D-02,
239 + .468644D-02, .349997D-02, .260104D-02, .192437D-02,
240 + .141719D-02, .103537D-02, .749982D-03, .539009D-03,
241 + .383456D-03, .270208D-03, .188029D-03, .129359D-03,
242 + .876620D-04, .585090D-04, .383731D-04, .248848D-04,
243 + .157944D-04, .988499D-05, .608847D-05, .372338D-05,
244 + .226040D-05, .138598D-05, .856565D-06, .539050D-06,
245 + .339686D-06, .211140D-06, .123800D-06, .651677D-07,
246 + .279378D-07, .764683D-08, .507688D-09, .000000D+00 /
247 DATA (UPDI(I),I=729,780) /
248 + .584830D+06, .441723D+06, .327794D+06, .243045D+06,
249 + .180074D+06, .133289D+06, .985795D+05, .728333D+05,
250 + .537644D+05, .396438D+05, .292041D+05, .214878D+05,
251 + .157940D+05, .115939D+05, .850124D+04, .622480D+04,
252 + .455239D+04, .332425D+04, .242422D+04, .176498D+04,
253 + .128319D+04, .931267D+03, .674819D+03, .488074D+03,
254 + .352418D+03, .253971D+03, .182770D+03, .130642D+03,
255 + .936717D+02, .670320D+02, .478994D+02, .341688D+02,
256 + .243443D+02, .173402D+02, .123357D+02, .877213D+01,
257 + .624209D+01, .444441D+01, .317028D+01, .226526D+01,
258 + .162428D+01, .116799D+01, .843232D+00, .611070D+00,
259 + .444930D+00, .325230D+00, .239159D+00, .176140D+00,
260 + .130578D+00, .968913D-01, .722183D-01, .539299D-01 /
261 DATA (UPDI(I),I=781,832) /
262 + .403687D-01, .302428D-01, .226823D-01, .170001D-01,
263 + .127358D-01, .952261D-02, .710972D-02, .529004D-02,
264 + .392504D-02, .289850D-02, .213100D-02, .155987D-02,
265 + .113295D-02, .816304D-03, .583882D-03, .413792D-03,
266 + .290795D-03, .202174D-03, .139282D-03, .948409D-04,
267 + .639004D-04, .425921D-04, .282958D-04, .186173D-04,
268 + .122441D-04, .805765D-05, .534558D-05, .356908D-05,
269 + .241092D-05, .162950D-05, .109360D-05, .714635D-06,
270 + .445254D-06, .255043D-06, .128089D-06, .514140D-07,
271 + .131236D-07, .908238D-09, .000000D+00, .819256D+06,
272 + .617167D+06, .456574D+06, .337478D+06, .249252D+06,
273 + .183908D+06, .135580D+06, .998450D+05, .734612D+05,
274 + .539876D+05, .396366D+05, .290646D+05, .212893D+05 /
275 DATA (UPDI(I),I=833,884) /
276 + .155733D+05, .113786D+05, .830180D+04, .604922D+04,
277 + .440099D+04, .319740D+04, .231906D+04, .167949D+04,
278 + .121410D+04, .876254D+03, .631195D+03, .453876D+03,
279 + .325705D+03, .233384D+03, .166080D+03, .118549D+03,
280 + .844495D+02, .600642D+02, .426439D+02, .302348D+02,
281 + .214299D+02, .151676D+02, .107304D+02, .759508D+01,
282 + .537877D+01, .381568D+01, .271128D+01, .193303D+01,
283 + .138203D+01, .991910D+00, .714582D+00, .517174D+00,
284 + .375757D+00, .274623D+00, .201018D+00, .148089D+00,
285 + .109198D+00, .808752D-01, .600144D-01, .446358D-01,
286 + .332268D-01, .247591D-01, .184375D-01, .137232D-01,
287 + .101953D-01, .756268D-02, .559129D-02, .412207D-02,
288 + .302507D-02, .221032D-02, .160825D-02, .116130D-02 /
289 DATA (UPDI(I),I=885,936) /
290 + .832244D-03, .592371D-03, .418087D-03, .292876D-03,
291 + .203275D-03, .140050D-03, .956212D-04, .648212D-04,
292 + .436703D-04, .294674D-04, .198209D-04, .134059D-04,
293 + .912320D-05, .627301D-05, .433977D-05, .301873D-05,
294 + .208450D-05, .141275D-05, .923103D-06, .569095D-06,
295 + .319951D-06, .156362D-06, .605049D-07, .148353D-07,
296 + .104911D-08, .000000D+00, .109982D+07, .826315D+06,
297 + .609371D+06, .448988D+06, .330544D+06, .243099D+06,
298 + .178627D+06, .131111D+06, .961419D+05, .704170D+05,
299 + .515213D+05, .376487D+05, .274801D+05, .200307D+05,
300 + .145827D+05, .106008D+05, .769589D+04, .557809D+04,
301 + .403719D+04, .291691D+04, .210421D+04, .151511D+04,
302 + .108909D+04, .781301D+03, .559475D+03, .399778D+03 /
303 DATA (UPDI(I),I=937,988) /
304 + .285220D+03, .202064D+03, .143587D+03, .101821D+03,
305 + .720816D+02, .509337D+02, .359368D+02, .253462D+02,
306 + .178485D+02, .125622D+02, .884473D+01, .623035D+01,
307 + .439563D+01, .310613D+01, .220204D+01, .156539D+01,
308 + .111699D+01, .800000D+00, .575555D+00, .415677D+00,
309 + .301963D+00, .219689D+00, .160847D+00, .117874D+00,
310 + .867569D-01, .639799D-01, .472863D-01, .349796D-01,
311 + .258999D-01, .191657D-01, .141748D-01, .104648D-01,
312 + .771353D-02, .566737D-02, .415213D-02, .302866D-02,
313 + .219962D-02, .159115D-02, .114246D-02, .814483D-03,
314 + .576972D-03, .405589D-03, .283230D-03, .196231D-03,
315 + .135171D-03, .924836D-04, .630058D-04, .428092D-04,
316 + .292331D-04, .199817D-04, .137737D-04, .957156D-05 /
317 DATA (UPDI(I),I=989,1040) /
318 + .671452D-05, .472761D-05, .332779D-05, .231206D-05,
319 + .156527D-05, .101574D-05, .618111D-06, .341279D-06,
320 + .162822D-06, .610688D-07, .144755D-07, .104200D-08,
321 + .000000D+00, .143233D+07, .107322D+07, .788915D+06,
322 + .579403D+06, .425163D+06, .311658D+06, .228241D+06,
323 + .166966D+06, .122017D+06, .890624D+05, .649371D+05,
324 + .472858D+05, .343917D+05, .249788D+05, .181189D+05,
325 + .131231D+05, .949145D+04, .685362D+04, .494139D+04,
326 + .355639D+04, .255542D+04, .183267D+04, .131202D+04,
327 + .937364D+03, .668424D+03, .475591D+03, .337837D+03,
328 + .238273D+03, .168558D+03, .118984D+03, .838397D+02,
329 + .589621D+02, .413999D+02, .290561D+02, .203578D+02,
330 + .142550D+02, .998403D+01, .699559D+01, .490877D+01 /
331 DATA (UPDI(I),I=1041,1092) /
332 + .344973D+01, .243195D+01, .171907D+01, .121961D+01,
333 + .868448D+00, .621132D+00, .445945D+00, .322021D+00,
334 + .232878D+00, .169468D+00, .123437D+00, .902949D-01,
335 + .661831D-01, .486129D-01, .357400D-01, .262985D-01,
336 + .193407D-01, .142157D-01, .104307D-01, .764096D-02,
337 + .558004D-02, .406341D-02, .294650D-02, .212748D-02,
338 + .153033D-02, .109284D-02, .775237D-03, .546703D-03,
339 + .382875D-03, .266601D-03, .184426D-03, .127035D-03,
340 + .870964D-04, .596085D-04, .408040D-04, .281437D-04,
341 + .194830D-04, .136193D-04, .959968D-05, .681709D-05,
342 + .484450D-05, .342496D-05, .237930D-05, .160216D-05,
343 + .102979D-05, .617936D-06, .335096D-06, .156245D-06,
344 + .569242D-07, .130832D-07, .957251D-09, .000000D+00 /
345 DATA (UPDI(I),I=1093,1144) /
346 + .182261D+07, .136194D+07, .997898D+06, .730497D+06,
347 + .534266D+06, .390333D+06, .284898D+06, .207705D+06,
348 + .151269D+06, .110032D+06, .799453D+05, .580090D+05,
349 + .420398D+05, .304234D+05, .219874D+05, .158661D+05,
350 + .114324D+05, .822387D+04, .590654D+04, .423450D+04,
351 + .303066D+04, .216482D+04, .154351D+04, .109821D+04,
352 + .779846D+03, .552502D+03, .390770D+03, .274378D+03,
353 + .193230D+03, .135781D+03, .952311D+02, .666582D+02,
354 + .465781D+02, .325308D+02, .226782D+02, .157991D+02,
355 + .110080D+02, .767246D+01, .535481D+01, .374275D+01,
356 + .262391D+01, .184440D+01, .130109D+01, .921179D+00,
357 + .655027D+00, .467538D+00, .335630D+00, .241284D+00,
358 + .174537D+00, .126369D+00, .918826D-01, .669431D-01 /
359 DATA (UPDI(I),I=1145,1196) /
360 + .488736D-01, .357151D-01, .261203D-01, .190937D-01,
361 + .139493D-01, .101740D-01, .740815D-02, .537813D-02,
362 + .389339D-02, .280715D-02, .201547D-02, .144197D-02,
363 + .102443D-02, .723311D-03, .507955D-03, .354532D-03,
364 + .246250D-03, .170148D-03, .117234D-03, .805593D-04,
365 + .553840D-04, .381731D-04, .265598D-04, .185788D-04,
366 + .131266D-04, .934451D-05, .668569D-05, .477231D-05,
367 + .337465D-05, .233626D-05, .156123D-05, .992559D-06,
368 + .586969D-06, .312618D-06, .142530D-06, .505028D-07,
369 + .112767D-07, .837987D-09, .000000D+00, .227643D+07,
370 + .169640D+07, .123890D+07, .903943D+06, .658926D+06,
371 + .479799D+06, .349014D+06, .253582D+06, .184043D+06,
372 + .133407D+06, .965877D+05, .698362D+05, .504294D+05 /
373 DATA (UPDI(I),I=1197,1248) /
374 + .363625D+05, .261832D+05, .188237D+05, .135125D+05,
375 + .968332D+04, .692797D+04, .494746D+04, .352694D+04,
376 + .250924D+04, .178183D+04, .126256D+04, .892806D+03,
377 + .629837D+03, .443541D+03, .310048D+03, .217378D+03,
378 + .152060D+03, .106156D+03, .739572D+02, .514310D+02,
379 + .357461D+02, .247959D+02, .171874D+02, .119135D+02,
380 + .826034D+01, .573445D+01, .398655D+01, .277953D+01,
381 + .194299D+01, .136295D+01, .959531D+00, .678396D+00,
382 + .481432D+00, .343603D+00, .245576D+00, .176598D+00,
383 + .127108D+00, .918736D-01, .665424D-01, .482928D-01,
384 + .350820D-01, .255047D-01, .185336D-01, .134601D-01,
385 + .975989D-02, .706513D-02, .509973D-02, .367089D-02,
386 + .263217D-02, .187966D-02, .133790D-02, .945871D-03 /
387 DATA (UPDI(I),I=1249,1300) /
388 + .664924D-03, .465168D-03, .323692D-03, .224363D-03,
389 + .154908D-03, .106807D-03, .735802D-04, .508152D-04,
390 + .352492D-04, .247149D-04, .174376D-04, .124211D-04,
391 + .890261D-05, .639640D-05, .457164D-05, .322496D-05,
392 + .222031D-05, .147047D-05, .923874D-06, .538245D-06,
393 + .281536D-06, .125551D-06, .433033D-07, .940789D-08,
394 + .709709D-09, .000000D+00, .755795D+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, .333373D+05, .257325D+05, .195868D+05,
420 + .149004D+05, .113325D+05, .861336D+04, .654477D+04,
421 + .496948D+04, .377211D+04, .286105D+04, .216921D+04,
422 + .164329D+04, .124434D+04, .941387D+03, .711846D+03,
423 + .537732D+03, .405985D+03, .306177D+03, .230765D+03,
424 + .173718D+03, .130689D+03, .981920D+02, .737219D+02,
425 + .552747D+02, .414094D+02, .309825D+02, .231695D+02,
426 + .172296D+02, .128584D+02, .958258D+01, .713957D+01,
427 + .531334D+01, .395439D+01, .294360D+01, .219160D+01,
428 + .163193D+01, .121764D+01, .909421D+00, .681379D+00 /
429 DATA (UPDI(I),I=1405,1456) /
430 + .511537D+00, .385856D+00, .291944D+00, .222023D+00,
431 + .169484D+00, .130139D+00, .100310D+00, .778448D-01,
432 + .605018D-01, .473712D-01, .371183D-01, .292343D-01,
433 + .230560D-01, .182407D-01, .144366D-01, .114472D-01,
434 + .906556D-02, .717924D-02, .567099D-02, .447581D-02,
435 + .351782D-02, .275816D-02, .215085D-02, .167000D-02,
436 + .129028D-02, .988912D-03, .750685D-03, .564870D-03,
437 + .420045D-03, .308807D-03, .223414D-03, .159084D-03,
438 + .110716D-03, .752304D-04, .491862D-04, .309941D-04,
439 + .181812D-04, .961151D-05, .406524D-05, .709335D-06,
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 + .751007D+05, .578440D+05, .439194D+05, .333270D+05,
445 + .252813D+05, .191651D+05, .145233D+05, .109978D+05,
446 + .832471D+04, .629637D+04, .476006D+04, .359551D+04,
447 + .271448D+04, .204742D+04, .154340D+04, .116226D+04,
448 + .874687D+03, .657525D+03, .493931D+03, .370586D+03,
449 + .277835D+03, .208026D+03, .155627D+03, .116266D+03,
450 + .867793D+02, .646850D+02, .481864D+02, .356915D+02,
451 + .265289D+02, .196903D+02, .146085D+02, .108257D+02,
452 + .802125D+01, .594448D+01, .440531D+01, .326505D+01,
453 + .242431D+01, .180183D+01, .134315D+01, .100324D+01,
454 + .752746D+00, .566535D+00, .428486D+00, .325313D+00,
455 + .248381D+00, .190379D+00, .146886D+00, .113511D+00,
456 + .883491D-01, .688233D-01, .538801D-01, .422440D-01 /
457 DATA (UPDI(I),I=1509,1560) /
458 + .332200D-01, .261369D-01, .205995D-01, .162174D-01,
459 + .127666D-01, .100266D-01, .786759D-02, .614951D-02,
460 + .479547D-02, .372059D-02, .287510D-02, .221181D-02,
461 + .168898D-02, .127870D-02, .960838D-03, .714787D-03,
462 + .526949D-03, .383624D-03, .276155D-03, .195749D-03,
463 + .136743D-03, .934852D-04, .630426D-04, .413246D-04,
464 + .264470D-04, .163596D-04, .977556D-05, .556076D-05,
465 + .299859D-05, .149281D-05, .669183D-06, .248165D-06,
466 + .620127D-07, .000000D+00, .000000D+00, .000000D+00,
467 + .000000D+00, .000000D+00, .000000D+00, .126626D+06,
468 + .973160D+05, .737016D+05, .557830D+05, .422049D+05,
469 + .319096D+05, .241156D+05, .182115D+05, .137465D+05,
470 + .103677D+05, .781533D+04, .588610D+04, .443052D+04 /
471 DATA (UPDI(I),I=1561,1612) /
472 + .333169D+04, .250376D+04, .187960D+04, .141003D+04,
473 + .105656D+04, .791068D+03, .591553D+03, .441987D+03,
474 + .329797D+03, .245856D+03, .183020D+03, .136105D+03,
475 + .101076D+03, .750086D+02, .553417D+02, .409713D+02,
476 + .302881D+02, .223780D+02, .165139D+02, .121828D+02,
477 + .898926D+01, .663142D+01, .489251D+01, .361541D+01,
478 + .267429D+01, .198362D+01, .147429D+01, .110050D+01,
479 + .824007D+00, .619909D+00, .468162D+00, .355498D+00,
480 + .271007D+00, .207929D+00, .159799D+00, .123669D+00,
481 + .957957D-01, .745641D-01, .581308D-01, .454482D-01,
482 + .355540D-01, .278576D-01, .218057D-01, .170658D-01,
483 + .133269D-01, .103967D-01, .808068D-02, .626568D-02,
484 + .483459D-02, .371562D-02, .284330D-02, .216001D-02 /
485 DATA (UPDI(I),I=1613,1664) /
486 + .162755D-02, .121763D-02, .902464D-03, .663298D-03,
487 + .482012D-03, .346829D-03, .246302D-03, .172825D-03,
488 + .119236D-03, .815500D-04, .546812D-04, .361968D-04,
489 + .235415D-04, .151274D-04, .955847D-05, .599278D-05,
490 + .370384D-05, .226687D-05, .135820D-05, .791495D-06,
491 + .433846D-06, .215509D-06, .892032D-07, .244622D-07,
492 + .157836D-08, .000000D+00, .201809D+06, .145276D+06,
493 + .109738D+06, .828412D+05, .625097D+05, .471341D+05,
494 + .355236D+05, .267523D+05, .201361D+05, .151435D+05,
495 + .113821D+05, .854726D+04, .641430D+04, .480887D+04,
496 + .360270D+04, .269616D+04, .201615D+04, .150587D+04,
497 + .112378D+04, .837566D+03, .623677D+03, .463774D+03,
498 + .344520D+03, .255559D+03, .189359D+03, .140107D+03 /
499 DATA (UPDI(I),I=1665,1716) /
500 + .103581D+03, .761262D+02, .561371D+02, .413350D+02,
501 + .304147D+02, .223518D+02, .164191D+02, .120629D+02,
502 + .885903D+01, .650656D+01, .478567D+01, .352333D+01,
503 + .260070D+01, .192353D+01, .142862D+01, .106432D+01,
504 + .796556D+00, .598471D+00, .452036D+00, .342783D+00,
505 + .261577D+00, .199952D+00, .153890D+00, .118555D+00,
506 + .917641D-01, .711476D-01, .553128D-01, .430314D-01,
507 + .335252D-01, .260956D-01, .203077D-01, .157706D-01,
508 + .122334D-01, .945564D-02, .729073D-02, .559481D-02,
509 + .427630D-02, .325469D-02, .245926D-02, .184357D-02,
510 + .137245D-02, .101259D-02, .741112D-03, .536666D-03,
511 + .385068D-03, .273022D-03, .191528D-03, .132431D-03,
512 + .909800D-04, .615243D-04, .412570D-04, .273484D-04 /
513 DATA (UPDI(I),I=1717,1768) /
514 + .180280D-04, .117768D-04, .768198D-05, .496580D-05,
515 + .318049D-05, .198965D-05, .120012D-05, .674183D-06,
516 + .338489D-06, .139366D-06, .374176D-07, .248550D-08,
517 + .000000D+00, .288684D+06, .220731D+06, .166179D+06,
518 + .125028D+06, .940195D+05, .706498D+05, .530592D+05,
519 + .398171D+05, .298615D+05, .223761D+05, .167558D+05,
520 + .125356D+05, .937140D+04, .699890D+04, .522281D+04,
521 + .389318D+04, .289949D+04, .215685D+04, .160287D+04,
522 + .118964D+04, .882036D+03, .653061D+03, .482979D+03,
523 + .356666D+03, .263064D+03, .193737D+03, .142547D+03,
524 + .104253D+03, .764973D+02, .560465D+02, .410265D+02,
525 + .299943D+02, .219144D+02, .160135D+02, .116944D+02,
526 + .854067D+01, .624501D+01, .457089D+01, .335347D+01 /
527 DATA (UPDI(I),I=1769,1820) /
528 + .246530D+01, .181953D+01, .134711D+01, .100171D+01,
529 + .747812D+00, .561118D+00, .422731D+00, .320431D+00,
530 + .243321D+00, .185994D+00, .142326D+00, .109406D+00,
531 + .842539D-01, .650477D-01, .502597D-01, .388812D-01,
532 + .300554D-01, .232232D-01, .179085D-01, .137910D-01,
533 + .105831D-01, .809898D-02, .616863D-02, .467775D-02,
534 + .353149D-02, .264521D-02, .196499D-02, .144832D-02,
535 + .105705D-02, .764171D-03, .545696D-03, .385120D-03,
536 + .267715D-03, .183277D-03, .122958D-03, .813042D-04,
537 + .523378D-04, .329128D-04, .200657D-04, .118586D-04,
538 + .672347D-05, .365859D-05, .188321D-05, .916027D-06,
539 + .412541D-06, .173619D-06, .670387D-07, .252846D-07,
540 + .942045D-08, .282142D-08, .124076D-09, .000000D+00 /
541 DATA (UPDI(I),I=1821,1872) /
542 + .413508D+06, .315244D+06, .236520D+06, .177337D+06,
543 + .132887D+06, .995037D+05, .744605D+05, .556749D+05,
544 + .416006D+05, .310569D+05, .231684D+05, .172671D+05,
545 + .128587D+05, .956583D+04, .710996D+04, .527867D+04,
546 + .391529D+04, .290049D+04, .214647D+04, .158636D+04,
547 + .117109D+04, .863295D+03, .635618D+03, .467274D+03,
548 + .343062D+03, .251475D+03, .184147D+03, .134020D+03,
549 + .978534D+02, .713361D+02, .519510D+02, .377846D+02,
550 + .274590D+02, .199575D+02, .144937D+02, .105260D+02,
551 + .765229D+01, .556849D+01, .406100D+01, .296760D+01,
552 + .217680D+01, .160170D+01, .118351D+01, .877983D+00,
553 + .654543D+00, .489949D+00, .368951D+00, .278339D+00,
554 + .211343D+00, .160652D+00, .122660D+00, .938324D-01 /
555 DATA (UPDI(I),I=1873,1924) /
556 + .719504D-01, .552194D-01, .424246D-01, .325721D-01,
557 + .249947D-01, .191440D-01, .146405D-01, .111588D-01,
558 + .848076D-02, .641584D-02, .483203D-02, .362348D-02,
559 + .269580D-02, .198959D-02, .145714D-02, .105718D-02,
560 + .759976D-03, .540072D-03, .379607D-03, .263194D-03,
561 + .180001D-03, .121029D-03, .804908D-04, .524305D-04,
562 + .336245D-04, .211630D-04, .131230D-04, .799651D-05,
563 + .482412D-05, .287280D-05, .169577D-05, .983775D-06,
564 + .556763D-06, .297250D-06, .143816D-06, .573489D-07,
565 + .149090D-07, .985592D-09, .000000D+00, .568445D+06,
566 + .432074D+06, .323046D+06, .241362D+06, .180222D+06,
567 + .134463D+06, .100255D+06, .746867D+05, .555987D+05,
568 + .413512D+05, .307304D+05, .228150D+05, .169238D+05 /
569 DATA (UPDI(I),I=1925,1976) /
570 + .125404D+05, .928354D+04, .686457D+04, .507069D+04,
571 + .374086D+04, .275670D+04, .202868D+04, .149114D+04,
572 + .109441D+04, .802190D+03, .587069D+03, .429033D+03,
573 + .313025D+03, .228127D+03, .165216D+03, .120038D+03,
574 + .870734D+02, .630883D+02, .456481D+02, .329980D+02,
575 + .238552D+02, .172290D+02, .124429D+02, .899432D+01,
576 + .650746D+01, .471783D+01, .342717D+01, .249866D+01,
577 + .182734D+01, .134185D+01, .989267D+00, .732832D+00,
578 + .545074D+00, .407824D+00, .305688D+00, .230591D+00,
579 + .174141D+00, .132080D+00, .100377D+00, .764568D-01,
580 + .582902D-01, .444829D-01, .339251D-01, .258580D-01,
581 + .196735D-01, .149439D-01, .113143D-01, .854112D-02,
582 + .641880D-02, .480205D-02, .357730D-02, .264392D-02 /
583 DATA (UPDI(I),I=1977,2028) /
584 + .193890D-02, .141122D-02, .101788D-02, .727697D-03,
585 + .514641D-03, .360258D-03, .249079D-03, .170131D-03,
586 + .114559D-03, .765236D-04, .503060D-04, .327457D-04,
587 + .210870D-04, .134989D-04, .858409D-05, .545531D-05,
588 + .344929D-05, .216389D-05, .132947D-05, .786702D-06,
589 + .432755D-06, .211393D-06, .834578D-07, .211696D-07,
590 + .144708D-08, .000000D+00, .758556D+06, .574847D+06,
591 + .428278D+06, .318849D+06, .237225D+06, .176350D+06,
592 + .131004D+06, .972316D+05, .721100D+05, .534282D+05,
593 + .395531D+05, .292513D+05, .216129D+05, .159514D+05,
594 + .117612D+05, .866132D+04, .637153D+04, .468097D+04,
595 + .343490D+04, .251697D+04, .184201D+04, .134600D+04,
596 + .982193D+03, .715551D+03, .520526D+03, .378002D+03 /
597 DATA (UPDI(I),I=2029,2080) /
598 + .274171D+03, .197593D+03, .142857D+03, .103111D+03,
599 + .743288D+02, .535047D+02, .384737D+02, .276659D+02,
600 + .198722D+02, .142726D+02, .102586D+02, .737983D+01,
601 + .531911D+01, .384128D+01, .278382D+01, .202362D+01,
602 + .147688D+01, .108213D+01, .796619D+00, .588811D+00,
603 + .437763D+00, .326049D+00, .244368D+00, .183360D+00,
604 + .138171D+00, .104329D+00, .789485D-01, .597989D-01,
605 + .453338D-01, .343482D-01, .260083D-01, .196587D-01,
606 + .148342D-01, .111581D-01, .836789D-02, .624799D-02,
607 + .464389D-02, .343729D-02, .252419D-02, .183969D-02,
608 + .133098D-02, .954597D-03, .678847D-03, .477882D-03,
609 + .333235D-03, .229786D-03, .156776D-03, .105704D-03,
610 + .708840D-04, .469659D-04, .309465D-04, .202836D-04 /
611 DATA (UPDI(I),I=2081,2132) /
612 + .132835D-04, .868502D-05, .568721D-05, .370548D-05,
613 + .238452D-05, .149348D-05, .892393D-06, .491281D-06,
614 + .237625D-06, .918766D-07, .226706D-07, .158186D-08,
615 + .000000D+00, .989232D+06, .747396D+06, .554854D+06,
616 + .411606D+06, .305128D+06, .226000D+06, .167266D+06,
617 + .123683D+06, .913810D+05, .674487D+05, .497400D+05,
618 + .366417D+05, .269667D+05, .198235D+05, .145572D+05,
619 + .106767D+05, .782162D+04, .572231D+04, .418126D+04,
620 + .305076D+04, .222296D+04, .161722D+04, .117484D+04,
621 + .852029D+03, .616961D+03, .445939D+03, .321912D+03,
622 + .230869D+03, .166099D+03, .119293D+03, .855593D+02,
623 + .612735D+02, .438296D+02, .313507D+02, .223969D+02,
624 + .159977D+02, .114341D+02, .817899D+01, .586114D+01 /
625 DATA (UPDI(I),I=2133,2184) /
626 + .420812D+01, .303162D+01, .219063D+01, .158910D+01,
627 + .115729D+01, .846702D+00, .621963D+00, .459530D+00,
628 + .340121D+00, .253303D+00, .188862D+00, .141409D+00,
629 + .106098D+00, .797726D-01, .600374D-01, .452208D-01,
630 + .340429D-01, .256110D-01, .192347D-01, .144206D-01,
631 + .107778D-01, .803095D-02, .595859D-02, .440078D-02,
632 + .323704D-02, .236242D-02, .171153D-02, .123114D-02,
633 + .878234D-03, .621428D-03, .435581D-03, .302671D-03,
634 + .208230D-03, .141962D-03, .958579D-04, .645300D-04,
635 + .430659D-04, .286797D-04, .190711D-04, .127068D-04,
636 + .847016D-05, .565075D-05, .374258D-05, .243560D-05,
637 + .153413D-05, .915364D-06, .499982D-06, .238131D-06,
638 + .899016D-07, .215632D-07, .153121D-08, .000000D+00 /
639 DATA (UPDI(I),I=2185,2236) /
640 + .126611D+07, .953701D+06, .705487D+06, .521470D+06,
641 + .385167D+06, .284239D+06, .209590D+06, .154399D+06,
642 + .113644D+06, .835607D+05, .613838D+05, .450430D+05,
643 + .330188D+05, .241757D+05, .176815D+05, .129152D+05,
644 + .942246D+04, .686470D+04, .499478D+04, .362873D+04,
645 + .263262D+04, .190684D+04, .137907D+04, .995632D+03,
646 + .717644D+03, .516296D+03, .370939D+03, .264739D+03,
647 + .189540D+03, .135459D+03, .966653D+02, .688748D+02,
648 + .490111D+02, .348730D+02, .247794D+02, .176033D+02,
649 + .125119D+02, .889982D+01, .634132D+01, .452669D+01,
650 + .324206D+01, .232889D+01, .167931D+01, .121566D+01,
651 + .884005D+00, .645407D+00, .473926D+00, .348612D+00,
652 + .258012D+00, .191174D+00, .142244D+00, .106059D+00 /
653 DATA (UPDI(I),I=2237,2288) /
654 + .792412D-01, .592633D-01, .443552D-01, .331813D-01,
655 + .248052D-01, .185128D-01, .137919D-01, .102437D-01,
656 + .758528D-02, .559333D-02, .410561D-02, .300166D-02,
657 + .217756D-02, .156856D-02, .112211D-02, .796379D-03,
658 + .560888D-03, .391604D-03, .271271D-03, .186280D-03,
659 + .126961D-03, .858855D-04, .580487D-04, .390078D-04,
660 + .262253D-04, .176509D-04, .119193D-04, .805535D-05,
661 + .543749D-05, .363302D-05, .237349D-05, .149366D-05,
662 + .885410D-06, .478016D-06, .223653D-06, .823600D-07,
663 + .192079D-07, .138634D-08, .000000D+00, .159500D+07,
664 + .119781D+07, .882906D+06, .650268D+06, .478556D+06,
665 + .351863D+06, .258494D+06, .189713D+06, .139109D+06,
666 + .101895D+06, .745630D+05, .545007D+05, .397943D+05 /
667 DATA (UPDI(I),I=2289,2340) /
668 + .290206D+05, .211394D+05, .153781D+05, .111731D+05,
669 + .810620D+04, .587321D+04, .424872D+04, .306909D+04,
670 + .221325D+04, .159357D+04, .114533D+04, .821781D+03,
671 + .588473D+03, .420809D+03, .298882D+03, .212951D+03,
672 + .151445D+03, .107534D+03, .762323D+02, .539675D+02,
673 + .381998D+02, .269989D+02, .190768D+02, .134848D+02,
674 + .953867D+01, .675822D+01, .479684D+01, .341571D+01,
675 + .243935D+01, .174860D+01, .125833D+01, .909553D+00,
676 + .660066D+00, .481761D+00, .352220D+00, .259087D+00,
677 + .190794D+00, .141086D+00, .104550D+00, .776317D-01,
678 + .577019D-01, .429185D-01, .319085D-01, .237063D-01,
679 + .175841D-01, .130193D-01, .961099D-02, .707345D-02,
680 + .518469D-02, .378294D-02, .274958D-02, .198322D-02 /
681 DATA (UPDI(I),I=2341,2392) /
682 + .142075D-02, .101107D-02, .714143D-03, .500813D-03,
683 + .348430D-03, .240727D-03, .165080D-03, .112536D-03,
684 + .762954D-04, .517832D-04, .350280D-04, .237520D-04,
685 + .161493D-04, .110195D-04, .751990D-05, .511213D-05,
686 + .342899D-05, .223902D-05, .140248D-05, .823618D-06,
687 + .438603D-06, .201345D-06, .722983D-07, .164058D-07,
688 + .120271D-08, .000000D+00, .198172D+07, .148378D+07,
689 + .108980D+07, .799773D+06, .586452D+06, .429619D+06,
690 + .314452D+06, .229923D+06, .167957D+06, .122558D+06,
691 + .893391D+05, .650476D+05, .473087D+05, .343639D+05,
692 + .249312D+05, .180630D+05, .130699D+05, .944308D+04,
693 + .681310D+04, .490772D+04, .352988D+04, .253447D+04,
694 + .181681D+04, .129994D+04, .928493D+03, .661826D+03 /
695 DATA (UPDI(I),I=2393,2444) /
696 + .471055D+03, .332967D+03, .236099D+03, .167093D+03,
697 + .118059D+03, .832746D+02, .586525D+02, .413020D+02,
698 + .290380D+02, .204082D+02, .143477D+02, .100934D+02,
699 + .711146D+01, .501919D+01, .355367D+01, .252329D+01,
700 + .179826D+01, .128651D+01, .924435D+00, .666888D+00,
701 + .483844D+00, .351623D+00, .257091D+00, .188181D+00,
702 + .138312D+00, .101877D+00, .751874D-01, .555469D-01,
703 + .410643D-01, .303453D-01, .224086D-01, .165217D-01,
704 + .121591D-01, .892258D-02, .652788D-02, .475695D-02,
705 + .345076D-02, .249398D-02, .178894D-02, .127487D-02,
706 + .902790D-03, .634823D-03, .443450D-03, .307565D-03,
707 + .212035D-03, .145278D-03, .991073D-04, .673628D-04,
708 + .459185D-04, .312570D-04, .213575D-04, .146442D-04 /
709 DATA (UPDI(I),I=2445,2496) /
710 + .100721D-04, .691869D-05, .472080D-05, .316825D-05,
711 + .206168D-05, .128231D-05, .744738D-06, .390713D-06,
712 + .175858D-06, .615718D-07, .136052D-07, .101262D-08,
713 + .000000D+00, .243205D+07, .181555D+07, .132875D+07,
714 + .971659D+06, .709925D+06, .518184D+06, .377882D+06,
715 + .275279D+06, .200337D+06, .145633D+06, .105754D+06,
716 + .767019D+05, .555671D+05, .402035D+05, .290515D+05,
717 + .209635D+05, .151068D+05, .108698D+05, .780977D+04,
718 + .560194D+04, .401200D+04, .286819D+04, .204704D+04,
719 + .145818D+04, .103684D+04, .735680D+03, .521199D+03,
720 + .366664D+03, .258759D+03, .182250D+03, .128138D+03,
721 + .899367D+02, .630255D+02, .441553D+02, .308826D+02,
722 + .215903D+02, .150974D+02, .105634D+02, .740169D+01 /
723 DATA (UPDI(I),I=2497,2548) /
724 + .519505D+01, .365749D+01, .258229D+01, .182976D+01,
725 + .130151D+01, .929776D+00, .666821D+00, .480962D+00,
726 + .347465D+00, .252546D+00, .183757D+00, .134257D+00,
727 + .983038D-01, .721185D-01, .529632D-01, .389207D-01,
728 + .285908D-01, .209879D-01, .153833D-01, .112547D-01,
729 + .821106D-02, .597267D-02, .432776D-02, .312183D-02,
730 + .224398D-02, .160111D-02, .113534D-02, .800271D-03,
731 + .560417D-03, .390097D-03, .269838D-03, .185712D-03,
732 + .127193D-03, .868705D-04, .592135D-04, .405403D-04,
733 + .277593D-04, .190952D-04, .131829D-04, .912002D-05,
734 + .628995D-05, .429656D-05, .287808D-05, .186263D-05,
735 + .114847D-05, .658886D-06, .340268D-06, .150099D-06,
736 + .512502D-07, .110369D-07, .833710D-09, .000000D+00 /
737 DATA (UPDI(I),I=2549,2600) /
738 + .631669D+05, .376362D+05, .292283D+05, .226989D+05,
739 + .176282D+05, .136904D+05, .106323D+05, .825744D+04,
740 + .641313D+04, .498084D+04, .386853D+04, .300471D+04,
741 + .233386D+04, .181287D+04, .140826D+04, .109403D+04,
742 + .849984D+03, .660446D+03, .513237D+03, .398902D+03,
743 + .310096D+03, .241117D+03, .187534D+03, .145909D+03,
744 + .113571D+03, .884453D+02, .689206D+02, .535570D+02,
745 + .418074D+02, .326704D+02, .255626D+02, .200312D+02,
746 + .157241D+02, .123771D+02, .975988D+01, .771737D+01,
747 + .612103D+01, .487105D+01, .388995D+01, .311737D+01,
748 + .250781D+01, .202415D+01, .163891D+01, .133059D+01,
749 + .108265D+01, .882323D+00, .720293D+00, .587419D+00,
750 + .479421D+00, .390328D+00, .317437D+00, .257507D+00 /
751 DATA (UPDI(I),I=2601,2652) /
752 + .208232D+00, .167749D+00, .134544D+00, .107375D+00,
753 + .852166D-01, .672170D-01, .526647D-01, .409629D-01,
754 + .316102D-01, .241849D-01, .183332D-01, .137771D-01,
755 + .102240D-01, .749858D-02, .542988D-02, .387758D-02,
756 + .272732D-02, .188664D-02, .128145D-02, .853006D-03,
757 + .555096D-03, .352042D-03, .217936D-03, .130311D-03,
758 + .751816D-04, .416286D-04, .219755D-04, .109681D-04,
759 + .512050D-05, .220812D-05, .857790D-06, .294623D-06,
760 + .856987D-07, .198691D-07, .331692D-08, .329487D-09,
761 + .126929D-10, .482159D-13, .000000D+00, .807309D+05,
762 + .629527D+05, .484918D+05, .373484D+05, .287657D+05,
763 + .221523D+05, .170594D+05, .131355D+05, .101142D+05,
764 + .778670D+04, .599481D+04, .461465D+04, .355225D+04 /
765 DATA (UPDI(I),I=2653,2704) /
766 + .273409D+04, .210440D+04, .161954D+04, .124645D+04,
767 + .959209D+03, .738216D+03, .568107D+03, .437256D+03,
768 + .336549D+03, .259092D+03, .199485D+03, .153643D+03,
769 + .118371D+03, .912525D+02, .701228D+02, .541350D+02,
770 + .418269D+02, .323576D+02, .250644D+02, .194487D+02,
771 + .151308D+02, .117930D+02, .921597D+01, .722536D+01,
772 + .568338D+01, .448736D+01, .355579D+01, .282951D+01,
773 + .225955D+01, .181086D+01, .145567D+01, .117335D+01,
774 + .947623D+00, .767099D+00, .620498D+00, .502635D+00,
775 + .406289D+00, .328224D+00, .264580D+00, .212708D+00,
776 + .170419D+00, .136002D+00, .108029D+00, .853672D-01,
777 + .670668D-01, .523605D-01, .405935D-01, .312368D-01,
778 + .238405D-01, .180347D-01, .135310D-01, .100295D-01 /
779 DATA (UPDI(I),I=2705,2756) /
780 + .734958D-02, .531996D-02, .379907D-02, .267353D-02,
781 + .185092D-02, .125874D-02, .838809D-03, .546477D-03,
782 + .346370D-03, .213908D-03, .126899D-03, .719416D-04,
783 + .383555D-04, .186865D-04, .778310D-05, .216709D-05,
784 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
785 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
786 + .000000D+00, .000000D+00, .121987D+06, .946656D+05,
787 + .725147D+05, .555346D+05, .425276D+05, .325590D+05,
788 + .249251D+05, .190763D+05, .145987D+05, .111691D+05,
789 + .854451D+04, .653490D+04, .499752D+04, .382078D+04,
790 + .292089D+04, .223235D+04, .170602D+04, .130344D+04,
791 + .995827D+03, .760638D+03, .581010D+03, .443729D+03,
792 + .338915D+03, .258840D+03, .197723D+03, .151053D+03 /
793 DATA (UPDI(I),I=2757,2808) /
794 + .115460D+03, .879425D+02, .672916D+02, .515214D+02,
795 + .394920D+02, .303043D+02, .232918D+02, .179465D+02,
796 + .138521D+02, .107190D+02, .832144D+01, .648106D+01,
797 + .506729D+01, .397632D+01, .313409D+01, .247936D+01,
798 + .196897D+01, .156875D+01, .125377D+01, .100426D+01,
799 + .806628D+00, .647549D+00, .520854D+00, .418154D+00,
800 + .335655D+00, .268923D+00, .214966D+00, .171295D+00,
801 + .136009D+00, .107516D+00, .845810D-01, .661683D-01,
802 + .514585D-01, .397493D-01, .304872D-01, .231995D-01,
803 + .175040D-01, .131038D-01, .969544D-02, .709506D-02,
804 + .513176D-02, .366421D-02, .258070D-02, .178993D-02,
805 + .122138D-02, .818254D-03, .537462D-03, .344760D-03,
806 + .216799D-03, .132161D-03, .781936D-04, .446405D-04 /
807 DATA (UPDI(I),I=2809,2860) /
808 + .244982D-04, .128043D-04, .632738D-05, .290541D-05,
809 + .120813D-05, .429887D-06, .113785D-06, .618901D-08,
810 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
811 + .000000D+00, .173024D+06, .133753D+06, .101998D+06,
812 + .777586D+05, .592709D+05, .451635D+05, .344085D+05,
813 + .262055D+05, .199547D+05, .151894D+05, .115601D+05,
814 + .879463D+04, .668954D+04, .508637D+04, .386672D+04,
815 + .293838D+04, .223254D+04, .169559D+04, .128760D+04,
816 + .977412D+03, .741882D+03, .562930D+03, .427126D+03,
817 + .324008D+03, .245797D+03, .186453D+03, .141496D+03,
818 + .106968D+03, .812330D+02, .617158D+02, .469344D+02,
819 + .357259D+02, .272342D+02, .208097D+02, .159265D+02,
820 + .122186D+02, .940395D+01, .726055D+01, .562754D+01 /
821 DATA (UPDI(I),I=2861,2912) /
822 + .437770D+01, .342097D+01, .268345D+01, .211343D+01,
823 + .167022D+01, .132443D+01, .105279D+01, .839457D+00,
824 + .669135D+00, .534617D+00, .426424D+00, .340190D+00,
825 + .270951D+00, .215377D+00, .170706D+00, .134856D+00,
826 + .106089D+00, .830757D-01, .647070D-01, .501156D-01,
827 + .385613D-01, .294689D-01, .223489D-01, .168096D-01,
828 + .125484D-01, .926112D-02, .676221D-02, .488225D-02,
829 + .348144D-02, .245031D-02, .169958D-02, .116101D-02,
830 + .779696D-03, .514355D-03, .332206D-03, .211126D-03,
831 + .130779D-03, .792773D-04, .469344D-04, .272220D-04,
832 + .154668D-04, .868687D-05, .483795D-05, .269572D-05,
833 + .150147D-05, .831893D-06, .442924D-06, .216974D-06,
834 + .893446D-07, .244676D-07, .157839D-08, .000000D+00 /
835 DATA (UPDI(I),I=2913,2964) /
836 + .189917D+06, .181341D+06, .137746D+06, .104592D+06,
837 + .794010D+05, .602523D+05, .457111D+05, .346643D+05,
838 + .262807D+05, .199157D+05, .150884D+05, .114259D+05,
839 + .865004D+04, .654544D+04, .495155D+04, .374394D+04,
840 + .283009D+04, .213823D+04, .161509D+04, .121935D+04,
841 + .920380D+03, .694406D+03, .523825D+03, .395000D+03,
842 + .297831D+03, .224516D+03, .169298D+03, .127140D+03,
843 + .959079D+02, .723669D+02, .546499D+02, .413016D+02,
844 + .312547D+02, .237043D+02, .180045D+02, .137066D+02,
845 + .104671D+02, .801796D+01, .616564D+01, .475847D+01,
846 + .368942D+01, .287157D+01, .224429D+01, .176033D+01,
847 + .138568D+01, .109362D+01, .866029D+00, .685688D+00,
848 + .544338D+00, .431481D+00, .342179D+00, .270977D+00 /
849 DATA (UPDI(I),I=2965,3016) /
850 + .214217D+00, .168895D+00, .132753D+00, .103929D+00,
851 + .810067D-01, .628148D-01, .484436D-01, .371234D-01,
852 + .282607D-01, .213544D-01, .160061D-01, .119100D-01,
853 + .876345D-02, .638111D-02, .459581D-02, .327033D-02,
854 + .229799D-02, .159224D-02, .108737D-02, .730757D-03,
855 + .483078D-03, .313243D-03, .200374D-03, .125395D-03,
856 + .771945D-04, .467389D-04, .279860D-04, .166073D-04,
857 + .986788D-05, .587875D-05, .352271D-05, .210294D-05,
858 + .123175D-05, .681218D-06, .339611D-06, .139473D-06,
859 + .374217D-07, .248552D-08, .000000D+00, .334022D+06,
860 + .256336D+06, .193829D+06, .146501D+06, .110695D+06,
861 + .836005D+05, .631166D+05, .476279D+05, .359274D+05,
862 + .270872D+05, .204145D+05, .153772D+05, .115784D+05 /
863 DATA (UPDI(I),I=3017,3068) /
864 + .871309D+04, .655423D+04, .492739D+04, .370284D+04,
865 + .278095D+04, .208773D+04, .156638D+04, .117478D+04,
866 + .880590D+03, .659845D+03, .494185D+03, .370016D+03,
867 + .276942D+03, .207306D+03, .154503D+03, .115654D+03,
868 + .865827D+02, .648591D+02, .486148D+02, .364788D+02,
869 + .274299D+02, .206515D+02, .155821D+02, .117918D+02,
870 + .895039D+01, .681935D+01, .521454D+01, .400584D+01,
871 + .308940D+01, .239269D+01, .186006D+01, .145141D+01,
872 + .113574D+01, .891946D+00, .700503D+00, .551775D+00,
873 + .434069D+00, .341720D+00, .268711D+00, .210983D+00,
874 + .165257D+00, .129072D+00, .100430D+00, .778163D-01,
875 + .599964D-01, .460136D-01, .350723D-01, .265602D-01,
876 + .199682D-01, .148926D-01, .110277D-01, .807483D-02 /
877 DATA (UPDI(I),I=3069,3120) /
878 + .585111D-02, .419323D-02, .296861D-02, .207462D-02,
879 + .142890D-02, .969164D-03, .646010D-03, .422710D-03,
880 + .270474D-03, .169956D-03, .103737D-03, .616239D-04,
881 + .354407D-04, .196922D-04, .104922D-04, .534903D-05,
882 + .258280D-05, .117567D-05, .497612D-06, .197103D-06,
883 + .722036D-07, .260992D-07, .949753D-08, .282433D-08,
884 + .124090D-09, .000000D+00, .458269D+06, .350396D+06,
885 + .263818D+06, .198537D+06, .149351D+06, .112289D+06,
886 + .843897D+05, .633861D+05, .475891D+05, .357077D+05,
887 + .267803D+05, .200724D+05, .150373D+05, .112579D+05,
888 + .842418D+04, .629947D+04, .470819D+04, .351643D+04,
889 + .262494D+04, .195810D+04, .145992D+04, .108775D+04,
890 + .810067D+03, .602887D+03, .448506D+03, .333481D+03 /
891 DATA (UPDI(I),I=3121,3172) /
892 + .247951D+03, .183508D+03, .136398D+03, .101377D+03,
893 + .753804D+02, .560750D+02, .417513D+02, .311478D+02,
894 + .232618D+02, .174082D+02, .130640D+02, .983262D+01,
895 + .742780D+01, .563134D+01, .428902D+01, .327963D+01,
896 + .251849D+01, .194148D+01, .150244D+01, .116616D+01,
897 + .908598D+00, .708045D+00, .553522D+00, .432243D+00,
898 + .337854D+00, .263834D+00, .205759D+00, .160114D+00,
899 + .124261D+00, .960915D-01, .740072D-01, .567271D-01,
900 + .432591D-01, .327910D-01, .246992D-01, .184727D-01,
901 + .137072D-01, .101003D-01, .736038D-02, .530896D-02,
902 + .378807D-02, .267083D-02, .185953D-02, .127658D-02,
903 + .863571D-03, .574644D-03, .375829D-03, .240852D-03,
904 + .151994D-03, .935831D-04, .564355D-04, .332809D-04 /
905 DATA (UPDI(I),I=3173,3224) /
906 + .192450D-04, .109158D-04, .612111D-05, .340422D-05,
907 + .189087D-05, .104697D-05, .573991D-06, .300990D-06,
908 + .144398D-06, .574033D-07, .149110D-07, .985602D-09,
909 + .000000D+00, .612638D+06, .466779D+06, .349998D+06,
910 + .262293D+06, .196476D+06, .147086D+06, .110058D+06,
911 + .822997D+05, .615108D+05, .459427D+05, .342962D+05,
912 + .255843D+05, .190744D+05, .142107D+05, .105808D+05,
913 + .787213D+04, .585326D+04, .434872D+04, .322887D+04,
914 + .239548D+04, .177610D+04, .131582D+04, .974240D+03,
915 + .720787D+03, .532976D+03, .393837D+03, .290978D+03,
916 + .213943D+03, .157969D+03, .116618D+03, .861135D+02,
917 + .636072D+02, .470169D+02, .348183D+02, .258071D+02,
918 + .191651D+02, .142704D+02, .106559D+02, .798548D+01 /
919 DATA (UPDI(I),I=3225,3276) /
920 + .600557D+01, .453718D+01, .344147D+01, .262156D+01,
921 + .200488D+01, .153930D+01, .118551D+01, .916657D+00,
922 + .708977D+00, .550209D+00, .426580D+00, .331101D+00,
923 + .256805D+00, .198948D+00, .153813D+00, .118616D+00,
924 + .911600D-01, .697854D-01, .531764D-01, .403175D-01,
925 + .303894D-01, .227643D-01, .169343D-01, .124995D-01,
926 + .916322D-02, .664396D-02, .476898D-02, .338693D-02,
927 + .237750D-02, .164855D-02, .112764D-02, .760519D-03,
928 + .504996D-03, .329980D-03, .211693D-03, .134078D-03,
929 + .831865D-04, .508313D-04, .306174D-04, .182731D-04,
930 + .108404D-04, .644819D-05, .385204D-05, .231013D-05,
931 + .137630D-05, .799310D-06, .435457D-06, .211808D-06,
932 + .834961D-07, .211711D-07, .144709D-08, .000000D+00 /
933 DATA (UPDI(I),I=3277,3328) /
934 + .802189D+06, .609112D+06, .454887D+06, .339514D+06,
935 + .253272D+06, .188813D+06, .140682D+06, .104748D+06,
936 + .779467D+05, .579610D+05, .430732D+05, .319851D+05,
937 + .237359D+05, .176002D+05, .130417D+05, .965579D+04,
938 + .714388D+04, .528084D+04, .390082D+04, .287887D+04,
939 + .212313D+04, .156438D+04, .115186D+04, .847384D+03,
940 + .622973D+03, .457624D+03, .336071D+03, .245559D+03,
941 + .180175D+03, .132158D+03, .969484D+02, .711310D+02,
942 + .522179D+02, .384005D+02, .282592D+02, .208339D+02,
943 + .153984D+02, .114124D+02, .848763D+01, .633459D+01,
944 + .474909D+01, .357460D+01, .270210D+01, .205077D+01,
945 + .156264D+01, .119450D+01, .916837D+00, .703973D+00,
946 + .542450D+00, .417627D+00, .321937D+00, .248029D+00 /
947 DATA (UPDI(I),I=3329,3380) /
948 + .190891D+00, .146639D+00, .112372D+00, .858306D-01,
949 + .653090D-01, .494713D-01, .372905D-01, .279480D-01,
950 + .208186D-01, .154023D-01, .113075D-01, .824582D-02,
951 + .594789D-02, .424798D-02, .300239D-02, .209795D-02,
952 + .144853D-02, .987079D-03, .663607D-03, .439647D-03,
953 + .286990D-03, .184283D-03, .117115D-03, .731816D-04,
954 + .452550D-04, .277628D-04, .169983D-04, .104251D-04,
955 + .644560D-05, .401002D-05, .249391D-05, .152810D-05,
956 + .901599D-06, .493228D-06, .237920D-06, .919036D-07,
957 + .226716D-07, .158186D-08, .000000D+00, .103231D+07,
958 + .781227D+06, .581126D+06, .432008D+06, .320971D+06,
959 + .238304D+06, .176821D+06, .131103D+06, .971432D+05,
960 + .719236D+05, .532150D+05, .393404D+05, .290624D+05 /
961 DATA (UPDI(I),I=3381,3432) /
962 + .214510D+05, .158211D+05, .116582D+05, .858384D+04,
963 + .631426D+04, .464098D+04, .340780D+04, .250025D+04,
964 + .183260D+04, .134213D+04, .981984D+03, .717918D+03,
965 + .524372D+03, .382862D+03, .278074D+03, .202802D+03,
966 + .147841D+03, .107771D+03, .785652D+02, .572975D+02,
967 + .418555D+02, .305917D+02, .223974D+02, .164373D+02,
968 + .120954D+02, .893060D+01, .661665D+01, .492417D+01,
969 + .367915D+01, .276068D+01, .207989D+01, .157329D+01,
970 + .119397D+01, .909913D+00, .693731D+00, .530860D+00,
971 + .405912D+00, .310810D+00, .237884D+00, .181900D+00,
972 + .138847D+00, .105738D+00, .802688D-01, .607092D-01,
973 + .457153D-01, .342587D-01, .255290D-01, .189097D-01,
974 + .139130D-01, .101585D-01, .736844D-02, .528715D-02 /
975 DATA (UPDI(I),I=3433,3484) /
976 + .375691D-02, .264232D-02, .183781D-02, .126346D-02,
977 + .857692D-03, .574800D-03, .379968D-03, .247812D-03,
978 + .159292D-03, .101585D-03, .639224D-04, .399751D-04,
979 + .249276D-04, .155910D-04, .980904D-05, .622871D-05,
980 + .397233D-05, .251723D-05, .155967D-05, .922071D-06,
981 + .501383D-06, .238340D-06, .899205D-07, .215639D-07,
982 + .153121D-08, .000000D+00, .130864D+07, .987102D+06,
983 + .731425D+06, .541613D+06, .400810D+06, .296386D+06,
984 + .219023D+06, .161725D+06, .119332D+06, .879783D+05,
985 + .648142D+05, .477069D+05, .350874D+05, .257821D+05,
986 + .189289D+05, .138839D+05, .101746D+05, .744880D+04,
987 + .544834D+04, .398094D+04, .290612D+04, .211923D+04,
988 + .154400D+04, .112371D+04, .817113D+03, .593541D+03 /
989 DATA (UPDI(I),I=3485,3536) /
990 + .430938D+03, .311181D+03, .225627D+03, .163505D+03,
991 + .118468D+03, .858302D+02, .622011D+02, .451466D+02,
992 + .327811D+02, .238407D+02, .173780D+02, .127000D+02,
993 + .931189D+01, .685085D+01, .506250D+01, .375573D+01,
994 + .279816D+01, .209323D+01, .157222D+01, .118481D+01,
995 + .896693D+00, .678955D+00, .516043D+00, .391943D+00,
996 + .298140D+00, .226713D+00, .172254D+00, .130660D+00,
997 + .988882D-01, .746128D-01, .560936D-01, .419909D-01,
998 + .312846D-01, .231796D-01, .170727D-01, .124919D-01,
999 + .907102D-02, .654441D-02, .467116D-02, .330229D-02,
1000 + .231121D-02, .160010D-02, .109536D-02, .740804D-03,
1001 + .494959D-03, .326526D-03, .212824D-03, .136984D-03,
1002 + .876851D-04, .555643D-04, .351223D-04, .222265D-04 /
1003 DATA (UPDI(I),I=3537,3588) /
1004 + .141534D-04, .908317D-05, .587693D-05, .380595D-05,
1005 + .243427D-05, .151246D-05, .890286D-06, .479021D-06,
1006 + .223801D-06, .823732D-07, .192084D-07, .138635D-08,
1007 + .000000D+00, .163699D+07, .123079D+07, .908514D+06,
1008 + .670154D+06, .493999D+06, .363855D+06, .267806D+06,
1009 + .196945D+06, .144724D+06, .106255D+06, .779493D+05,
1010 + .571302D+05, .418361D+05, .306061D+05, .223705D+05,
1011 + .163341D+05, .119153D+05, .868251D+04, .632067D+04,
1012 + .459613D+04, .333882D+04, .242266D+04, .175615D+04,
1013 + .127154D+04, .919762D+03, .664530D+03, .479855D+03,
1014 + .344559D+03, .248418D+03, .178988D+03, .128926D+03,
1015 + .928494D+02, .668778D+02, .482410D+02, .348065D+02,
1016 + .251512D+02, .182136D+02, .132226D+02, .963018D+01 /
1017 DATA (UPDI(I),I=3589,3640) /
1018 + .703715D+01, .516475D+01, .380538D+01, .281569D+01,
1019 + .209192D+01, .156050D+01, .116797D+01, .877999D+00,
1020 + .660341D+00, .498578D+00, .376196D+00, .284314D+00,
1021 + .214824D+00, .162195D+00, .122269D+00, .919715D-01,
1022 + .689759D-01, .515475D-01, .383617D-01, .284153D-01,
1023 + .209337D-01, .153318D-01, .111562D-01, .805684D-02,
1024 + .578165D-02, .410508D-02, .288740D-02, .201105D-02,
1025 + .138596D-02, .944836D-03, .636719D-03, .424217D-03,
1026 + .279369D-03, .182039D-03, .117369D-03, .754347D-04,
1027 + .481421D-04, .307444D-04, .197160D-04, .127462D-04,
1028 + .830711D-05, .544548D-05, .355884D-05, .228416D-05,
1029 + .141628D-05, .827154D-06, .439323D-06, .201450D-06,
1030 + .723075D-07, .164061D-07, .120271D-08, .000000D+00 /
1031 DATA (UPDI(I),I=3641,3692) /
1032 + .202318D+07, .151634D+07, .111508D+07, .819406D+06,
1033 + .601697D+06, .441458D+06, .323645D+06, .237062D+06,
1034 + .173501D+06, .126863D+06, .926817D+05, .676431D+05,
1035 + .493240D+05, .359287D+05, .261461D+05, .190063D+05,
1036 + .138023D+05, .100116D+05, .725448D+04, .525035D+04,
1037 + .379584D+04, .274091D+04, .197703D+04, .142428D+04,
1038 + .102499D+04, .736694D+03, .529146D+03, .377877D+03,
1039 + .270946D+03, .194130D+03, .139037D+03, .995515D+02,
1040 + .712817D+02, .511096D+02, .366505D+02, .263191D+02,
1041 + .189390D+02, .136613D+02, .988522D+01, .717628D+01,
1042 + .523213D+01, .382947D+01, .281466D+01, .207724D+01,
1043 + .153924D+01, .114442D+01, .854644D+00, .638561D+00,
1044 + .479014D+00, .359109D+00, .269678D+00, .202490D+00 /
1045 DATA (UPDI(I),I=3693,3744) /
1046 + .151936D+00, .113835D+00, .851093D-01, .634486D-01,
1047 + .471373D-01, .348757D-01, .256846D-01, .188148D-01,
1048 + .137029D-01, .991610D-02, .712239D-02, .508397D-02,
1049 + .359095D-02, .251314D-02, .174205D-02, .119526D-02,
1050 + .811584D-03, .545082D-03, .362239D-03, .238220D-03,
1051 + .155248D-03, .100307D-03, .647531D-04, .416218D-04,
1052 + .268408D-04, .174183D-04, .114037D-04, .752025D-05,
1053 + .497310D-05, .326554D-05, .209513D-05, .129241D-05,
1054 + .747296D-06, .391227D-06, .175931D-06, .615782D-07,
1055 + .136055D-07, .101262D-08, .000000D+00, .247297D+07,
1056 + .184769D+07, .135371D+07, .991041D+06, .724976D+06,
1057 + .529871D+06, .386958D+06, .282326D+06, .205809D+06,
1058 + .149882D+06, .109053D+06, .792637D+05, .575561D+05 /
1059 DATA (UPDI(I),I=3745,3796) /
1060 + .417478D+05, .302505D+05, .218943D+05, .158294D+05,
1061 + .114307D+05, .824511D+04, .593983D+04, .427422D+04,
1062 + .307168D+04, .220492D+04, .158066D+04, .113185D+04,
1063 + .809358D+03, .578335D+03, .410805D+03, .292982D+03,
1064 + .208779D+03, .148700D+03, .105872D+03, .753722D+02,
1065 + .537282D+02, .382995D+02, .273375D+02, .195512D+02,
1066 + .140155D+02, .100778D+02, .726968D+01, .526629D+01,
1067 + .382965D+01, .279658D+01, .205053D+01, .150960D+01,
1068 + .111512D+01, .827422D+00, .614253D+00, .457857D+00,
1069 + .341081D+00, .254542D+00, .189946D+00, .141654D+00,
1070 + .105490D+00, .783989D-01, .581010D-01, .429124D-01,
1071 + .315668D-01, .231152D-01, .168375D-01, .121948D-01,
1072 + .877668D-02, .627006D-02, .445209D-02, .312853D-02 /
1073 DATA (UPDI(I),I=3797,3848) /
1074 + .217877D-02, .150326D-02, .102701D-02, .694701D-03,
1075 + .465129D-03, .308418D-03, .202620D-03, .132123D-03,
1076 + .855824D-04, .555071D-04, .359337D-04, .233858D-04,
1077 + .153359D-04, .101445D-04, .674862D-05, .448708D-05,
1078 + .295080D-05, .188737D-05, .115586D-05, .660733D-06,
1079 + .340634D-06, .150151D-06, .512547D-07, .110371D-07,
1080 + .833712D-09, .000000D+00, .506631D+05, .752999D+05,
1081 + .584793D+05, .454166D+05, .352721D+05, .273939D+05,
1082 + .212757D+05, .165242D+05, .128342D+05, .996850D+04,
1083 + .774292D+04, .601447D+04, .467209D+04, .362954D+04,
1084 + .281984D+04, .219096D+04, .170252D+04, .132313D+04,
1085 + .102846D+04, .799558D+03, .621749D+03, .483618D+03,
1086 + .376304D+03, .292923D+03, .228132D+03, .177780D+03 /
1087 DATA (UPDI(I),I=3849,3900) /
1088 + .138643D+03, .107837D+03, .842710D+02, .659382D+02,
1089 + .516714D+02, .405639D+02, .319112D+02, .251838D+02,
1090 + .199203D+02, .158102D+02, .125957D+02, .100767D+02,
1091 + .809755D+01, .653706D+01, .530368D+01, .432275D+01,
1092 + .353884D+01, .290870D+01, .239901D+01, .198412D+01,
1093 + .164544D+01, .136458D+01, .113330D+01, .939645D+00,
1094 + .778547D+00, .643675D+00, .530614D+00, .435815D+00,
1095 + .356395D+00, .289984D+00, .234612D+00, .188620D+00,
1096 + .150597D+00, .119335D+00, .937913D-01, .730651D-01,
1097 + .563765D-01, .431063D-01, .325408D-01, .242699D-01,
1098 + .178656D-01, .129653D-01, .926438D-02, .650860D-02,
1099 + .448834D-02, .303243D-02, .200233D-02, .128818D-02,
1100 + .808636D-03, .490197D-03, .286649D-03, .160829D-03 /
1101 DATA (UPDI(I),I=3901,3952) /
1102 + .860074D-04, .434756D-04, .205514D-04, .897138D-05,
1103 + .352738D-05, .122591D-05, .360746D-06, .845968D-07,
1104 + .142814D-07, .143435D-08, .558570D-10, .214453D-12,
1105 + .000000D+00, .128158D+06, .100200D+06, .774196D+05,
1106 + .598152D+05, .462146D+05, .357045D+05, .275851D+05,
1107 + .213110D+05, .164643D+05, .127193D+05, .982637D+04,
1108 + .759116D+04, .586463D+04, .453069D+04, .350036D+04,
1109 + .270434D+04, .208954D+04, .161456D+04, .124772D+04,
1110 + .964319D+03, .745446D+03, .576353D+03, .445755D+03,
1111 + .344855D+03, .266918D+03, .206697D+03, .160182D+03,
1112 + .123782D+03, .961074D+02, .747054D+02, .581560D+02,
1113 + .453485D+02, .354349D+02, .277739D+02, .218188D+02,
1114 + .171969D+02, .136058D+02, .108086D+02, .862529D+01 /
1115 DATA (UPDI(I),I=3953,4004) /
1116 + .691429D+01, .557089D+01, .450905D+01, .366608D+01,
1117 + .299274D+01, .245183D+01, .201436D+01, .165975D+01,
1118 + .136760D+01, .112878D+01, .930143D+00, .766084D+00,
1119 + .629667D+00, .516116D+00, .421550D+00, .342865D+00,
1120 + .277499D+00, .223350D+00, .178658D+00, .141941D+00,
1121 + .111934D+00, .875620D-01, .679024D-01, .521580D-01,
1122 + .397084D-01, .298479D-01, .221682D-01, .162515D-01,
1123 + .117465D-01, .836028D-02, .585036D-02, .401858D-02,
1124 + .270403D-02, .177812D-02, .113842D-02, .710714D-03,
1125 + .427721D-03, .247563D-03, .136695D-03, .711408D-04,
1126 + .342210D-04, .146178D-04, .503962D-05, .849348D-06,
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 + .168907D+06, .131515D+06, .101133D+06, .777611D+05,
1131 + .597898D+05, .459662D+05, .353382D+05, .271643D+05,
1132 + .208808D+05, .160489D+05, .123351D+05, .947956D+04,
1133 + .728513D+04, .559814D+04, .430189D+04, .330553D+04,
1134 + .254007D+04, .195176D+04, .149986D+04, .115259D+04,
1135 + .885880D+03, .680945D+03, .523558D+03, .402632D+03,
1136 + .309763D+03, .238410D+03, .183628D+03, .141003D+03,
1137 + .108790D+03, .840240D+02, .649901D+02, .503475D+02,
1138 + .390830D+02, .304304D+02, .237466D+02, .185905D+02,
1139 + .146095D+02, .115273D+02, .913670D+01, .727462D+01,
1140 + .582187D+01, .468061D+01, .378033D+01, .306569D+01,
1141 + .249536D+01, .203698D+01, .166790D+01, .136577D+01,
1142 + .112048D+01, .917806D+00, .751538D+00, .614195D+00 /
1143 DATA (UPDI(I),I=4057,4108) /
1144 + .500637D+00, .406682D+00, .329016D+00, .264905D+00,
1145 + .212127D+00, .168833D+00, .133482D+00, .104760D+00,
1146 + .815676D-01, .629673D-01, .481514D-01, .365003D-01,
1147 + .273206D-01, .202080D-01, .147559D-01, .106253D-01,
1148 + .753569D-02, .525630D-02, .360039D-02, .241718D-02,
1149 + .158733D-02, .101596D-02, .635280D-03, .383981D-03,
1150 + .224247D-03, .125873D-03, .675168D-04, .343260D-04,
1151 + .163807D-04, .724007D-05, .288806D-05, .100502D-05,
1152 + .280110D-06, .445152D-07, .000000D+00, .000000D+00,
1153 + .000000D+00, .000000D+00, .000000D+00, .219455D+06,
1154 + .170218D+06, .130318D+06, .997534D+05, .763531D+05,
1155 + .584310D+05, .447130D+05, .342092D+05, .261714D+05,
1156 + .200183D+05, .153111D+05, .117086D+05, .895328D+04 /
1157 DATA (UPDI(I),I=4109,4160) /
1158 + .684518D+04, .523330D+04, .400034D+04, .305787D+04,
1159 + .233713D+04, .178635D+04, .136525D+04, .104355D+04,
1160 + .797647D+03, .609817D+03, .466274D+03, .356642D+03,
1161 + .272872D+03, .208925D+03, .159448D+03, .122272D+03,
1162 + .938530D+02, .721403D+02, .555340D+02, .428347D+02,
1163 + .331376D+02, .256921D+02, .199825D+02, .156009D+02,
1164 + .122287D+02, .962918D+01, .761643D+01, .605574D+01,
1165 + .483704D+01, .388157D+01, .312773D+01, .252988D+01,
1166 + .205233D+01, .167027D+01, .135946D+01, .110878D+01,
1167 + .902951D+00, .735192D+00, .597500D+00, .484384D+00,
1168 + .391386D+00, .314991D+00, .252316D+00, .201032D+00,
1169 + .159215D+00, .125271D+00, .978504D-01, .758347D-01,
1170 + .582769D-01, .443656D-01, .334847D-01, .249562D-01 /
1171 DATA (UPDI(I),I=4161,4212) /
1172 + .183821D-01, .133683D-01, .958856D-02, .677523D-02,
1173 + .470950D-02, .321577D-02, .215321D-02, .141125D-02,
1174 + .902323D-03, .564498D-03, .342124D-03, .201073D-03,
1175 + .114228D-03, .626095D-04, .330422D-04, .168319D-04,
1176 + .832123D-05, .403350D-05, .195517D-05, .961735D-06,
1177 + .472528D-06, .221819D-06, .898188D-07, .244859D-07,
1178 + .157847D-08, .000000D+00, .177906D+06, .217433D+06,
1179 + .165776D+06, .126362D+06, .963087D+05, .733843D+05,
1180 + .559103D+05, .425863D+05, .324338D+05, .246953D+05,
1181 + .188011D+05, .143100D+05, .108906D+05, .828626D+04,
1182 + .630414D+04, .479504D+04, .364696D+04, .277319D+04,
1183 + .210872D+04, .160320D+04, .121894D+04, .926697D+03,
1184 + .704622D+03, .535784D+03, .407515D+03, .310022D+03 /
1185 DATA (UPDI(I),I=4213,4264) /
1186 + .236009D+03, .179055D+03, .136499D+03, .104147D+03,
1187 + .795695D+02, .608789D+02, .466676D+02, .358785D+02,
1188 + .276428D+02, .213639D+02, .165738D+02, .129086D+02,
1189 + .101000D+02, .793803D+01, .627156D+01, .497791D+01,
1190 + .396969D+01, .317896D+01, .255563D+01, .206072D+01,
1191 + .166719D+01, .134898D+01, .109395D+01, .885839D+00,
1192 + .717272D+00, .579771D+00, .467510D+00, .375779D+00,
1193 + .300881D+00, .239800D+00, .190116D+00, .149837D+00,
1194 + .117330D+00, .912173D-01, .703683D-01, .538321D-01,
1195 + .407989D-01, .306586D-01, .227515D-01, .166873D-01,
1196 + .120857D-01, .863402D-02, .607738D-02, .420909D-02,
1197 + .286446D-02, .191233D-02, .125046D-02, .798286D-03,
1198 + .499282D-03, .303095D-03, .178960D-03, .102600D-03 /
1199 DATA (UPDI(I),I=4265,4316) /
1200 + .571598D-04, .309932D-04, .164832D-04, .868520D-05,
1201 + .459103D-05, .246193D-05, .133344D-05, .704166D-06,
1202 + .343325D-06, .139833D-06, .374356D-07, .248558D-08,
1203 + .000000D+00, .379394D+06, .291969D+06, .221502D+06,
1204 + .167994D+06, .127388D+06, .965653D+05, .731860D+05,
1205 + .554490D+05, .420022D+05, .318059D+05, .240799D+05,
1206 + .182246D+05, .137904D+05, .104317D+05, .788956D+04,
1207 + .596506D+04, .450927D+04, .340778D+04, .257503D+04,
1208 + .194530D+04, .146950D+04, .110988D+04, .838298D+03,
1209 + .633135D+03, .478261D+03, .361315D+03, .273124D+03,
1210 + .205714D+03, .155686D+03, .117917D+03, .894209D+02,
1211 + .679030D+02, .516564D+02, .394105D+02, .301293D+02,
1212 + .231047D+02, .177841D+02, .137428D+02, .106683D+02 /
1213 DATA (UPDI(I),I=4317,4368) /
1214 + .831905D+01, .652133D+01, .513604D+01, .406423D+01,
1215 + .322988D+01, .257700D+01, .206249D+01, .165643D+01,
1216 + .133057D+01, .107139D+01, .861503D+00, .692790D+00,
1217 + .556219D+00, .445557D+00, .355813D+00, .283081D+00,
1218 + .224202D+00, .176653D+00, .138383D+00, .107713D+00,
1219 + .832482D-01, .638477D-01, .485645D-01, .365967D-01,
1220 + .273461D-01, .201785D-01, .147164D-01, .105976D-01,
1221 + .752736D-02, .526723D-02, .362578D-02, .245162D-02,
1222 + .162535D-02, .105460D-02, .667171D-03, .412734D-03,
1223 + .247035D-03, .143077D-03, .798080D-04, .426766D-04,
1224 + .217310D-04, .104709D-04, .473547D-05, .198689D-05,
1225 + .767357D-06, .272657D-06, .890570D-07, .287944D-07,
1226 + .975608D-08, .283424D-08, .124138D-09, .000000D+00 /
1227 DATA (UPDI(I),I=4369,4420) /
1228 + .503065D+06, .385576D+06, .291140D+06, .219757D+06,
1229 + .165831D+06, .125090D+06, .943313D+05, .711079D+05,
1230 + .535867D+05, .403665D+05, .303991D+05, .228836D+05,
1231 + .172212D+05, .129547D+05, .974252D+04, .732393D+04,
1232 + .550434D+04, .413526D+04, .310601D+04, .233216D+04,
1233 + .175084D+04, .131408D+04, .986204D+03, .740022D+03,
1234 + .555326D+03, .416733D+03, .312884D+03, .234020D+03,
1235 + .175874D+03, .132266D+03, .995848D+02, .750739D+02,
1236 + .566926D+02, .429338D+02, .325777D+02, .247947D+02,
1237 + .189406D+02, .145256D+02, .111903D+02, .865993D+01,
1238 + .673719D+01, .526612D+01, .413596D+01, .326251D+01,
1239 + .258391D+01, .205298D+01, .163701D+01, .130563D+01,
1240 + .104400D+01, .833695D+00, .665892D+00, .531067D+00 /
1241 DATA (UPDI(I),I=4421,4472) /
1242 + .422620D+00, .335321D+00, .265082D+00, .208632D+00,
1243 + .163370D+00, .127199D+00, .984118D-01, .756083D-01,
1244 + .576485D-01, .435961D-01, .326639D-01, .242694D-01,
1245 + .178073D-01, .129148D-01, .924914D-02, .653410D-02,
1246 + .454810D-02, .311481D-02, .209591D-02, .138332D-02,
1247 + .894060D-03, .563897D-03, .348267D-03, .208559D-03,
1248 + .121277D-03, .683109D-04, .372361D-04, .196338D-04,
1249 + .100557D-04, .504117D-05, .250094D-05, .124748D-05,
1250 + .629447D-06, .313200D-06, .146324D-06, .575858D-07,
1251 + .149180D-07, .985638D-09, .000000D+00, .656866D+06,
1252 + .501514D+06, .376974D+06, .283244D+06, .212748D+06,
1253 + .159724D+06, .119874D+06, .899236D+05, .674324D+05,
1254 + .505424D+05, .378691D+05, .283598D+05, .212306D+05 /
1255 DATA (UPDI(I),I=4473,4524) /
1256 + .158859D+05, .118824D+05, .888355D+04, .663926D+04,
1257 + .495965D+04, .370378D+04, .276475D+04, .206327D+04,
1258 + .153923D+04, .114809D+04, .856127D+03, .638385D+03,
1259 + .475976D+03, .355033D+03, .263760D+03, .196891D+03,
1260 + .147064D+03, .109960D+03, .823159D+02, .617209D+02,
1261 + .464083D+02, .349596D+02, .264141D+02, .200299D+02,
1262 + .152482D+02, .116605D+02, .895735D+01, .691738D+01,
1263 + .536740D+01, .418478D+01, .327716D+01, .257690D+01,
1264 + .203286D+01, .160962D+01, .127484D+01, .101241D+01,
1265 + .802986D+00, .637084D+00, .504752D+00, .399073D+00,
1266 + .314614D+00, .247142D+00, .193301D+00, .150433D+00,
1267 + .116414D+00, .895262D-01, .683729D-01, .518254D-01,
1268 + .389649D-01, .290252D-01, .214427D-01, .156437D-01 /
1269 DATA (UPDI(I),I=4525,4576) /
1270 + .112817D-01, .803462D-02, .564504D-02, .390824D-02,
1271 + .266275D-02, .178291D-02, .117141D-02, .754138D-03,
1272 + .474223D-03, .292428D-03, .175245D-03, .102339D-03,
1273 + .582156D-04, .323250D-04, .175879D-04, .946387D-05,
1274 + .509393D-05, .276786D-05, .152499D-05, .839915D-06,
1275 + .444280D-06, .213181D-06, .836247D-07, .211759D-07,
1276 + .144712D-08, .000000D+00, .845857D+06, .643408D+06,
1277 + .481522D+06, .360200D+06, .269338D+06, .201291D+06,
1278 + .150373D+06, .112275D+06, .837932D+05, .625024D+05,
1279 + .466008D+05, .347254D+05, .258647D+05, .192542D+05,
1280 + .143267D+05, .106543D+05, .791986D+04, .588396D+04,
1281 + .436965D+04, .324339D+04, .240660D+04, .178489D+04,
1282 + .132344D+04, .980943D+03, .726982D+03, .538658D+03 /
1283 DATA (UPDI(I),I=4577,4628) /
1284 + .399251D+03, .294684D+03, .218544D+03, .162160D+03,
1285 + .120437D+03, .895482D+02, .666829D+02, .497928D+02,
1286 + .372466D+02, .279437D+02, .210395D+02, .159027D+02,
1287 + .120740D+02, .920872D+01, .706071D+01, .543960D+01,
1288 + .421096D+01, .327441D+01, .255670D+01, .200291D+01,
1289 + .157502D+01, .123891D+01, .977259D+00, .769930D+00,
1290 + .606838D+00, .477665D+00, .375234D+00, .293945D+00,
1291 + .229458D+00, .178358D+00, .137953D+00, .106109D+00,
1292 + .811115D-01, .615785D-01, .464008D-01, .346833D-01,
1293 + .256858D-01, .188668D-01, .136856D-01, .981364D-02,
1294 + .694994D-02, .485607D-02, .334391D-02, .226643D-02,
1295 + .151008D-02, .987699D-03, .633428D-03, .397185D-03,
1296 + .244596D-03, .146732D-03, .860826D-04, .494583D-04 /
1297 DATA (UPDI(I),I=4629,4680) /
1298 + .279494D-04, .156357D-04, .875184D-05, .495007D-05,
1299 + .283656D-05, .163811D-05, .931265D-06, .499590D-06,
1300 + .238896D-06, .919939D-07, .226750D-07, .158188D-08,
1301 + .000000D+00, .107543D+07, .815088D+06, .607423D+06,
1302 + .452432D+06, .336834D+06, .250624D+06, .186390D+06,
1303 + .138535D+06, .102916D+06, .764074D+05, .566979D+05,
1304 + .420460D+05, .311642D+05, .230839D+05, .170898D+05,
1305 + .126440D+05, .934992D+04, .690967D+04, .510379D+04,
1306 + .376762D+04, .278005D+04, .205023D+04, .151146D+04,
1307 + .111378D+04, .820534D+03, .604306D+03, .445170D+03,
1308 + .326507D+03, .240618D+03, .177399D+03, .130900D+03,
1309 + .966893D+02, .715217D+02, .530482D+02, .394124D+02,
1310 + .293663D+02, .219583D+02, .164824D+02, .124273D+02 /
1311 DATA (UPDI(I),I=4681,4732) /
1312 + .941233D+01, .716669D+01, .548295D+01, .421516D+01,
1313 + .325512D+01, .252424D+01, .196401D+01, .153404D+01,
1314 + .119858D+01, .939194D+00, .735071D+00, .575601D+00,
1315 + .450170D+00, .351388D+00, .273536D+00, .212198D+00,
1316 + .163926D+00, .126018D+00, .963437D-01, .732058D-01,
1317 + .552470D-01, .413851D-01, .307540D-01, .226435D-01,
1318 + .165365D-01, .119264D-01, .850356D-02, .598837D-02,
1319 + .416113D-02, .284998D-02, .192167D-02, .127414D-02,
1320 + .829723D-03, .530165D-03, .331574D-03, .203992D-03,
1321 + .122556D-03, .722651D-04, .419445D-04, .241061D-04,
1322 + .138237D-04, .798835D-05, .468225D-05, .277315D-05,
1323 + .164087D-05, .943696D-06, .505960D-06, .239034D-06,
1324 + .899838D-07, .215663D-07, .153122D-08, .000000D+00 /
1325 DATA (UPDI(I),I=4733,4784) /
1326 + .135121D+07, .102053D+07, .757389D+06, .561778D+06,
1327 + .416471D+06, .308550D+06, .228471D+06, .169063D+06,
1328 + .125032D+06, .924053D+05, .682529D+05, .503781D+05,
1329 + .371625D+05, .273942D+05, .201814D+05, .148571D+05,
1330 + .109309D+05, .803657D+04, .590520D+04, .433611D+04,
1331 + .318229D+04, .233402D+04, .171109D+04, .125375D+04,
1332 + .918344D+03, .672380D+03, .492376D+03, .358923D+03,
1333 + .262890D+03, .192617D+03, .141235D+03, .103659D+03,
1334 + .761825D+02, .561378D+02, .414330D+02, .306670D+02,
1335 + .227775D+02, .169825D+02, .127180D+02, .956738D+01,
1336 + .723549D+01, .549819D+01, .419835D+01, .322035D+01,
1337 + .248055D+01, .191715D+01, .148756D+01, .115459D+01,
1338 + .898842D+00, .698928D+00, .543792D+00, .422595D+00 /
1339 DATA (UPDI(I),I=4785,4836) /
1340 + .327791D+00, .253579D+00, .195502D+00, .150105D+00,
1341 + .114693D+00, .871588D-01, .658318D-01, .493883D-01,
1342 + .367793D-01, .271723D-01, .198902D-01, .144423D-01,
1343 + .103563D-01, .734216D-02, .514156D-02, .355311D-02,
1344 + .242057D-02, .162380D-02, .107153D-02, .694825D-03,
1345 + .442450D-03, .276092D-03, .169769D-03, .102203D-03,
1346 + .606027D-04, .355434D-04, .207593D-04, .121692D-04,
1347 + .721639D-05, .434081D-05, .262496D-05, .157226D-05,
1348 + .906013D-06, .482307D-06, .224292D-06, .824176D-07,
1349 + .192100D-07, .138636D-08, .000000D+00, .167902D+07,
1350 + .126380D+07, .934149D+06, .690064D+06, .509462D+06,
1351 + .375865D+06, .277134D+06, .204190D+06, .150351D+06,
1352 + .110626D+06, .813443D+05, .597675D+05, .438848D+05 /
1353 DATA (UPDI(I),I=4837,4888) /
1354 + .321977D+05, .236071D+05, .172949D+05, .126619D+05,
1355 + .926272D+04, .677163D+04, .494669D+04, .361137D+04,
1356 + .263462D+04, .192102D+04, .139983D+04, .101961D+04,
1357 + .742277D+03, .540425D+03, .391610D+03, .285127D+03,
1358 + .207653D+03, .151330D+03, .110381D+03, .806144D+02,
1359 + .590284D+02, .432877D+02, .318332D+02, .234900D+02,
1360 + .173994D+02, .129447D+02, .967394D+01, .726790D+01,
1361 + .548643D+01, .416178D+01, .317133D+01, .242678D+01,
1362 + .186334D+01, .143645D+01, .110769D+01, .856809D+00,
1363 + .661985D+00, .511792D+00, .395234D+00, .304661D+00,
1364 + .234232D+00, .179481D+00, .136967D+00, .104024D+00,
1365 + .785792D-01, .589993D-01, .440017D-01, .325764D-01,
1366 + .239275D-01, .174136D-01, .125716D-01, .896329D-02 /
1367 DATA (UPDI(I),I=4889,4940) /
1368 + .631868D-02, .440024D-02, .302427D-02, .204945D-02,
1369 + .136798D-02, .898550D-03, .580319D-03, .368380D-03,
1370 + .229445D-03, .141083D-03, .851568D-04, .508059D-04,
1371 + .301138D-04, .178591D-04, .106738D-04, .646272D-05,
1372 + .396087D-05, .242592D-05, .146021D-05, .838566D-06,
1373 + .441676D-06, .201797D-06, .723385D-07, .164073D-07,
1374 + .120272D-08, .000000D+00, .206467D+07, .154893D+07,
1375 + .114039D+07, .839063D+06, .616964D+06, .453316D+06,
1376 + .332854D+06, .244215D+06, .179057D+06, .131178D+06,
1377 + .960335D+05, .702468D+05, .513466D+05, .374999D+05,
1378 + .273668D+05, .199548D+05, .145393D+05, .105844D+05,
1379 + .769959D+04, .559634D+04, .406482D+04, .295007D+04,
1380 + .213970D+04, .155083D+04, .112347D+04, .813350D+03 /
1381 DATA (UPDI(I),I=4941,4992) /
1382 + .588849D+03, .424237D+03, .307099D+03, .222345D+03,
1383 + .161075D+03, .116784D+03, .847709D+02, .616912D+02,
1384 + .449591D+02, .328552D+02, .240910D+02, .177313D+02,
1385 + .131075D+02, .973285D+01, .726524D+01, .544918D+01,
1386 + .410695D+01, .310944D+01, .236416D+01, .180363D+01,
1387 + .138157D+01, .105859D+01, .813661D+00, .624687D+00,
1388 + .479942D+00, .368341D+00, .282184D+00, .215625D+00,
1389 + .164220D+00, .124566D+00, .940402D-01, .706153D-01,
1390 + .527068D-01, .390784D-01, .287631D-01, .210045D-01,
1391 + .151982D-01, .109096D-01, .773410D-02, .542157D-02,
1392 + .375470D-02, .256674D-02, .173042D-02, .114941D-02,
1393 + .751643D-03, .483613D-03, .306138D-03, .190410D-03,
1394 + .117142D-03, .709335D-04, .426007D-04, .255185D-04 /
1395 DATA (UPDI(I),I=4993,5044) /
1396 + .153521D-04, .933109D-05, .574386D-05, .356702D-05,
1397 + .220026D-05, .132462D-05, .755559D-06, .392909D-06,
1398 + .176176D-06, .615998D-07, .136063D-07, .101262D-08,
1399 + .000000D+00, .251394D+07, .187986D+07, .137870D+07,
1400 + .101045D+07, .740048D+06, .541578D+06, .396050D+06,
1401 + .289388D+06, .211294D+06, .154142D+06, .112362D+06,
1402 + .818341D+05, .595528D+05, .432989D+05, .314555D+05,
1403 + .228305D+05, .165568D+05, .119960D+05, .868442D+04,
1404 + .628128D+04, .453964D+04, .327804D+04, .236539D+04,
1405 + .170548D+04, .122896D+04, .884925D+03, .637170D+03,
1406 + .456471D+03, .328577D+03, .236542D+03, .170370D+03,
1407 + .122802D+03, .886117D+02, .641018D+02, .464335D+02,
1408 + .337260D+02, .245776D+02, .179777D+02, .132071D+02 /
1409 DATA (UPDI(I),I=5045,5096) /
1410 + .974568D+01, .722930D+01, .538822D+01, .403549D+01,
1411 + .303614D+01, .229392D+01, .173904D+01, .132378D+01,
1412 + .100794D+01, .769923D+00, .587432D+00, .448538D+00,
1413 + .342131D+00, .260508D+00, .197857D+00, .149781D+00,
1414 + .112935D+00, .847525D-01, .632655D-01, .469439D-01,
1415 + .346028D-01, .253214D-01, .183848D-01, .132264D-01,
1416 + .944037D-02, .665477D-02, .463903D-02, .319527D-02,
1417 + .217277D-02, .145742D-02, .963518D-03, .627432D-03,
1418 + .402292D-03, .254049D-03, .157864D-03, .972243D-04,
1419 + .590948D-04, .357392D-04, .216322D-04, .131868D-04,
1420 + .813104D-05, .506975D-05, .317637D-05, .196517D-05,
1421 + .117942D-05, .666702D-06, .341833D-06, .150323D-06,
1422 + .512697D-07, .110376D-07, .833716D-09, .000000D+00 /
1423 DATA (UPDI(I),I=5097,5148) /
1424 + .506081D+05, .752777D+05, .584594D+05, .453988D+05,
1425 + .352561D+05, .273796D+05, .212628D+05, .165127D+05,
1426 + .128239D+05, .995921D+04, .773459D+04, .600700D+04,
1427 + .466539D+04, .362353D+04, .281444D+04, .218611D+04,
1428 + .169816D+04, .131922D+04, .102494D+04, .796397D+03,
1429 + .618906D+03, .481058D+03, .373996D+03, .290842D+03,
1430 + .226252D+03, .176078D+03, .137100D+03, .106437D+03,
1431 + .829952D+02, .647719D+02, .506014D+02, .395782D+02,
1432 + .309991D+02, .243356D+02, .191278D+02, .150661D+02,
1433 + .118938D+02, .941177D+01, .746565D+01, .593516D+01,
1434 + .472973D+01, .377564D+01, .301822D+01, .241482D+01,
1435 + .193253D+01, .154594D+01, .123636D+01, .985606D+00,
1436 + .784797D+00, .622006D+00, .491479D+00, .386578D+00 /
1437 DATA (UPDI(I),I=5149,5200) /
1438 + .302495D+00, .235329D+00, .181900D+00, .139610D+00,
1439 + .106329D+00, .803069D-01, .601077D-01, .445525D-01,
1440 + .326769D-01, .236956D-01, .169722D-01, .120143D-01,
1441 + .836419D-02, .573101D-02, .385869D-02, .254836D-02,
1442 + .164728D-02, .103958D-02, .638568D-03, .380341D-03,
1443 + .218540D-03, .120298D-03, .632966D-04, .311596D-04,
1444 + .141435D-04, .572195D-05, .191399D-05, .406392D-06,
1445 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1446 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1447 + .000000D+00, .000000D+00, .000000D+00, .128131D+06,
1448 + .100176D+06, .773980D+05, .597959D+05, .461972D+05,
1449 + .356890D+05, .275712D+05, .212985D+05, .164531D+05,
1450 + .127092D+05, .981733D+04, .758305D+04, .585736D+04 /
1451 DATA (UPDI(I),I=5201,5252) /
1452 + .452416D+04, .349450D+04, .269908D+04, .208482D+04,
1453 + .161032D+04, .124391D+04, .960891D+03, .742362D+03,
1454 + .573577D+03, .443254D+03, .342599D+03, .264881D+03,
1455 + .204854D+03, .158512D+03, .122267D+03, .947286D+02,
1456 + .734464D+02, .570025D+02, .442878D+02, .344556D+02,
1457 + .268657D+02, .209730D+02, .164057D+02, .128626D+02,
1458 + .101081D+02, .796315D+01, .628731D+01, .497675D+01,
1459 + .394643D+01, .313432D+01, .249180D+01, .198200D+01,
1460 + .157613D+01, .125347D+01, .993819D+00, .787378D+00,
1461 + .621072D+00, .488587D+00, .382739D+00, .298398D+00,
1462 + .231384D+00, .178354D+00, .136569D+00, .103827D+00,
1463 + .783201D-01, .585904D-01, .434359D-01, .318934D-01,
1464 + .231766D-01, .166551D-01, .118456D-01, .829997D-02 /
1465 DATA (UPDI(I),I=5253,5304) /
1466 + .573444D-02, .390273D-02, .261267D-02, .171829D-02,
1467 + .110790D-02, .699155D-03, .430408D-03, .257736D-03,
1468 + .148948D-03, .830874D-04, .436085D-04, .210350D-04,
1469 + .862630D-05, .220223D-05, .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, .168878D+06, .131489D+06,
1473 + .101110D+06, .777402D+05, .597710D+05, .459494D+05,
1474 + .353231D+05, .271508D+05, .208687D+05, .160380D+05,
1475 + .123253D+05, .947081D+04, .727728D+04, .559109D+04,
1476 + .429557D+04, .329985D+04, .253497D+04, .194719D+04,
1477 + .149575D+04, .114889D+04, .882555D+03, .677953D+03,
1478 + .520863D+03, .400202D+03, .307569D+03, .236427D+03 /
1479 DATA (UPDI(I),I=5305,5356) /
1480 + .181832D+03, .139376D+03, .107310D+03, .826738D+02,
1481 + .637549D+02, .492137D+02, .380384D+02, .294643D+02,
1482 + .228496D+02, .177544D+02, .138274D+02, .107934D+02,
1483 + .844656D+01, .662473D+01, .520962D+01, .410441D+01,
1484 + .323922D+01, .255927D+01, .202352D+01, .159979D+01,
1485 + .126527D+01, .997776D+00, .786544D+00, .617425D+00,
1486 + .483537D+00, .377187D+00, .292932D+00, .226342D+00,
1487 + .173917D+00, .132802D+00, .100724D+00, .758348D-01,
1488 + .566545D-01, .419671D-01, .308122D-01, .224063D-01,
1489 + .161270D-01, .115005D-01, .809016D-02, .561993D-02,
1490 + .385307D-02, .260453D-02, .173500D-02, .113740D-02,
1491 + .733661D-03, .464881D-03, .289379D-03, .176328D-03,
1492 + .105966D-03, .620930D-04, .356785D-04, .199947D-04 /
1493 DATA (UPDI(I),I=5357,5408) /
1494 + .109378D-04, .577610D-05, .293456D-05, .139717D-05,
1495 + .606562D-06, .218350D-06, .510504D-07, .000000D+00,
1496 + .000000D+00, .000000D+00, .000000D+00, .000000D+00,
1497 + .000000D+00, .219423D+06, .170190D+06, .130293D+06,
1498 + .997309D+05, .763329D+05, .584129D+05, .446968D+05,
1499 + .341947D+05, .261583D+05, .200066D+05, .153006D+05,
1500 + .116992D+05, .894484D+04, .683761D+04, .522650D+04,
1501 + .399424D+04, .305239D+04, .233222D+04, .178193D+04,
1502 + .136129D+04, .103998D+04, .794437D+03, .606928D+03,
1503 + .463670D+03, .354292D+03, .270748D+03, .207003D+03,
1504 + .157708D+03, .120691D+03, .924126D+02, .708245D+02,
1505 + .543285D+02, .417265D+02, .321151D+02, .247456D+02,
1506 + .191034D+02, .147818D+02, .114635D+02, .891302D+01 /
1507 DATA (UPDI(I),I=5409,5460) /
1508 + .694556D+01, .542724D+01, .424902D+01, .333269D+01,
1509 + .261724D+01, .205725D+01, .161719D+01, .127205D+01,
1510 + .997799D+00, .782624D+00, .611385D+00, .476632D+00,
1511 + .370204D+00, .286359D+00, .220439D+00, .168806D+00,
1512 + .128500D+00, .971936D-01, .730022D-01, .544317D-01,
1513 + .402594D-01, .295293D-01, .214647D-01, .154529D-01,
1514 + .110308D-01, .777434D-02, .541606D-02, .372863D-02,
1515 + .253451D-02, .170095D-02, .112585D-02, .735317D-03,
1516 + .473436D-03, .300814D-03, .188216D-03, .117019D-03,
1517 + .716945D-04, .436798D-04, .264472D-04, .160343D-04,
1518 + .971308D-05, .593236D-05, .362390D-05, .221602D-05,
1519 + .133441D-05, .782879D-06, .431484D-06, .215060D-06,
1520 + .891533D-07, .244600D-07, .157835D-08, .000000D+00 /
1521 DATA (UPDI(I),I=5461,5512) /
1522 + .177839D+06, .217403D+06, .165749D+06, .126338D+06,
1523 + .962870D+05, .733649D+05, .558929D+05, .425707D+05,
1524 + .324198D+05, .246828D+05, .187898D+05, .142999D+05,
1525 + .108816D+05, .827815D+04, .629687D+04, .478851D+04,
1526 + .364110D+04, .276793D+04, .210400D+04, .159896D+04,
1527 + .121512D+04, .923268D+03, .701535D+03, .533004D+03,
1528 + .405007D+03, .307757D+03, .233961D+03, .177202D+03,
1529 + .134817D+03, .102617D+03, .781741D+02, .596029D+02,
1530 + .454971D+02, .348012D+02, .266485D+02, .204435D+02,
1531 + .157194D+02, .121139D+02, .935961D+01, .724795D+01,
1532 + .562852D+01, .437966D+01, .341451D+01, .266569D+01,
1533 + .208331D+01, .162851D+01, .127407D+01, .994136D+00,
1534 + .775864D+00, .603184D+00, .468088D+00, .361987D+00 /
1535 DATA (UPDI(I),I=5513,5564) /
1536 + .278854D+00, .213835D+00, .163160D+00, .123789D+00,
1537 + .933456D-01, .699198D-01, .520085D-01, .383884D-01,
1538 + .281109D-01, .204095D-01, .146828D-01, .104794D-01,
1539 + .738926D-02, .515387D-02, .355538D-02, .242407D-02,
1540 + .163373D-02, .108747D-02, .715502D-03, .465049D-03,
1541 + .299049D-03, .189981D-03, .120349D-03, .754908D-04,
1542 + .473357D-04, .296758D-04, .187366D-04, .118865D-04,
1543 + .762623D-05, .489900D-05, .313912D-05, .197063D-05,
1544 + .119333D-05, .672345D-06, .338144D-06, .139328D-06,
1545 + .374160D-07, .248549D-08, .000000D+00, .379357D+06,
1546 + .291936D+06, .221473D+06, .167968D+06, .127364D+06,
1547 + .965442D+05, .731670D+05, .554321D+05, .419869D+05,
1548 + .317922D+05, .240676D+05, .182137D+05, .137806D+05 /
1549 DATA (UPDI(I),I=5565,5616) /
1550 + .104229D+05, .788166D+04, .595798D+04, .450291D+04,
1551 + .340208D+04, .256991D+04, .194070D+04, .146536D+04,
1552 + .110617D+04, .834956D+03, .630127D+03, .475550D+03,
1553 + .358869D+03, .270915D+03, .203718D+03, .153877D+03,
1554 + .116274D+03, .879253D+02, .665386D+02, .504082D+02,
1555 + .382655D+02, .290763D+02, .221341D+02, .168874D+02,
1556 + .129131D+02, .989968D+01, .760705D+01, .586218D+01,
1557 + .452701D+01, .350306D+01, .271485D+01, .210658D+01,
1558 + .163524D+01, .127073D+01, .985025D+00, .763930D+00,
1559 + .590301D+00, .455431D+00, .350249D+00, .268387D+00,
1560 + .204781D+00, .155514D+00, .117465D+00, .882096D-01,
1561 + .658197D-01, .487862D-01, .358954D-01, .262106D-01,
1562 + .189828D-01, .136269D-01, .970833D-02, .683510D-02 /
1563 DATA (UPDI(I),I=5617,5668) /
1564 + .476137D-02, .328100D-02, .223463D-02, .150406D-02,
1565 + .999215D-03, .655304D-03, .423593D-03, .269894D-03,
1566 + .168937D-03, .104558D-03, .632833D-04, .376176D-04,
1567 + .218368D-04, .123817D-04, .679428D-05, .360958D-05,
1568 + .182991D-05, .883976D-06, .398080D-06, .168538D-06,
1569 + .656840D-07, .250336D-07, .939314D-08, .282024D-08,
1570 + .124069D-09, .000000D+00, .503025D+06, .385541D+06,
1571 + .291108D+06, .219728D+06, .165806D+06, .125067D+06,
1572 + .943107D+05, .710895D+05, .535702D+05, .403517D+05,
1573 + .303858D+05, .228717D+05, .172105D+05, .129452D+05,
1574 + .973396D+04, .731625D+04, .549745D+04, .412908D+04,
1575 + .310047D+04, .232719D+04, .174638D+04, .131007D+04,
1576 + .982599D+03, .736780D+03, .552407D+03, .414101D+03 /
1577 DATA (UPDI(I),I=5669,5720) /
1578 + .310510D+03, .231878D+03, .173935D+03, .130509D+03,
1579 + .979888D+02, .736214D+02, .553677D+02, .417223D+02,
1580 + .314677D+02, .237757D+02, .180036D+02, .136630D+02,
1581 + .103957D+02, .792826D+01, .606416D+01, .464841D+01,
1582 + .357074D+01, .274746D+01, .211688D+01, .163193D+01,
1583 + .125967D+01, .970063D+00, .747584D+00, .574129D+00,
1584 + .440340D+00, .336720D+00, .256613D+00, .194775D+00,
1585 + .147177D+00, .110639D+00, .827085D-01, .614525D-01,
1586 + .453672D-01, .332561D-01, .242006D-01, .174733D-01,
1587 + .125086D-01, .889038D-02, .624664D-02, .434475D-02,
1588 + .299086D-02, .203624D-02, .137101D-02, .912011D-03,
1589 + .599581D-03, .389139D-03, .249424D-03, .157558D-03,
1590 + .987884D-04, .609482D-04, .372361D-04, .224972D-04 /
1591 DATA (UPDI(I),I=5721,5772) /
1592 + .135032D-04, .803909D-05, .478166D-05, .283058D-05,
1593 + .167114D-05, .972889D-06, .553005D-06, .296264D-06,
1594 + .143636D-06, .573296D-07, .149082D-07, .985587D-09,
1595 + .000000D+00, .656823D+06, .501476D+06, .376939D+06,
1596 + .283213D+06, .212720D+06, .159699D+06, .119851D+06,
1597 + .899037D+05, .674145D+05, .505264D+05, .378547D+05,
1598 + .283470D+05, .212191D+05, .158756D+05, .118731D+05,
1599 + .887526D+04, .663183D+04, .495299D+04, .369781D+04,
1600 + .275939D+04, .205847D+04, .153491D+04, .114421D+04,
1601 + .852643D+03, .635252D+03, .473155D+03, .352490D+03,
1602 + .261470D+03, .194822D+03, .145192D+03, .108264D+03,
1603 + .807757D+02, .603200D+02, .451315D+02, .337941D+02,
1604 + .253486D+02, .190547D+02, .143550D+02, .108422D+02 /
1605 DATA (UPDI(I),I=5773,5824) /
1606 + .820830D+01, .623266D+01, .474308D+01, .361740D+01,
1607 + .276375D+01, .211468D+01, .161914D+01, .124152D+01,
1608 + .949859D+00, .727405D+00, .555196D+00, .423285D+00,
1609 + .321817D+00, .243891D+00, .184127D+00, .138412D+00,
1610 + .103534D+00, .770277D-01, .569717D-01, .418770D-01,
1611 + .305720D-01, .221616D-01, .159437D-01, .113754D-01,
1612 + .806029D-02, .564776D-02, .391884D-02, .269236D-02,
1613 + .183037D-02, .123135D-02, .819079D-03, .538997D-03,
1614 + .350632D-03, .225657D-03, .143517D-03, .908883D-04,
1615 + .569178D-04, .355102D-04, .220883D-04, .137735D-04,
1616 + .860765D-05, .541912D-05, .341599D-05, .214502D-05,
1617 + .132130D-05, .783929D-06, .432040D-06, .211265D-06,
1618 + .834442D-07, .211690D-07, .144708D-08, .000000D+00 /
1619 DATA (UPDI(I),I=5825,5876) /
1620 + .845810D+06, .643366D+06, .481485D+06, .360167D+06,
1621 + .269308D+06, .201264D+06, .150349D+06, .112253D+06,
1622 + .837739D+05, .624852D+05, .465853D+05, .347116D+05,
1623 + .258523D+05, .192430D+05, .143168D+05, .106454D+05,
1624 + .791186D+04, .587680D+04, .436323D+04, .323763D+04,
1625 + .240143D+04, .178026D+04, .131928D+04, .977211D+03,
1626 + .723629D+03, .535642D+03, .396537D+03, .292243D+03,
1627 + .216343D+03, .160173D+03, .118640D+03, .879209D+02,
1628 + .652072D+02, .484523D+02, .360275D+02, .268338D+02,
1629 + .200281D+02, .149810D+02, .112343D+02, .844456D+01,
1630 + .636649D+01, .481070D+01, .364326D+01, .276424D+01,
1631 + .210061D+01, .159757D+01, .121694D+01, .925034D+00,
1632 + .703945D+00, .533984D+00, .404680D+00, .305888D+00 /
1633 DATA (UPDI(I),I=5877,5928) /
1634 + .230511D+00, .173076D+00, .129415D+00, .963082D-01,
1635 + .712977D-01, .524827D-01, .384005D-01, .279113D-01,
1636 + .201482D-01, .144379D-01, .102622D-01, .724596D-02,
1637 + .506052D-02, .350100D-02, .239908D-02, .162753D-02,
1638 + .109317D-02, .726566D-03, .478170D-03, .311498D-03,
1639 + .201090D-03, .128609D-03, .821347D-04, .520852D-04,
1640 + .330566D-04, .210323D-04, .134803D-04, .869608D-05,
1641 + .565680D-05, .367933D-05, .237011D-05, .148736D-05,
1642 + .890352D-06, .490763D-06, .237533D-06, .918671D-07,
1643 + .226702D-07, .158186D-08, .000000D+00, .107537D+07,
1644 + .815042D+06, .607383D+06, .452396D+06, .336801D+06,
1645 + .250595D+06, .186364D+06, .138512D+06, .102895D+06,
1646 + .763888D+05, .566812D+05, .420311D+05, .311508D+05 /
1647 DATA (UPDI(I),I=5929,5980) /
1648 + .230720D+05, .170790D+05, .126344D+05, .934133D+04,
1649 + .690197D+04, .509690D+04, .376145D+04, .277452D+04,
1650 + .204527D+04, .150702D+04, .110979D+04, .816956D+03,
1651 + .601092D+03, .442282D+03, .323914D+03, .238284D+03,
1652 + .175295D+03, .129003D+03, .949757D+02, .699723D+02,
1653 + .516455D+02, .381414D+02, .282141D+02, .209132D+02,
1654 + .155348D+02, .115686D+02, .863535D+01, .646513D+01,
1655 + .485145D+01, .364888D+01, .274968D+01, .207551D+01,
1656 + .156800D+01, .118666D+01, .896235D+00, .677767D+00,
1657 + .510968D+00, .384920D+00, .289255D+00, .216738D+00,
1658 + .161834D+00, .120357D+00, .890987D-01, .656252D-01,
1659 + .480696D-01, .350039D-01, .253257D-01, .182010D-01,
1660 + .129875D-01, .919385D-02, .646665D-02, .449988D-02 /
1661 DATA (UPDI(I),I=5981,6032) /
1662 + .310278D-02, .211986D-02, .143446D-02, .961571D-03,
1663 + .638301D-03, .419947D-03, .273836D-03, .177249D-03,
1664 + .113933D-03, .733203D-04, .470193D-04, .302855D-04,
1665 + .196288D-04, .128467D-04, .847329D-05, .562551D-05,
1666 + .372213D-05, .242463D-05, .152956D-05, .913865D-06,
1667 + .499608D-06, .238066D-06, .898949D-07, .215629D-07,
1668 + .153120D-08, .000000D+00, .135116D+07, .102049D+07,
1669 + .757345D+06, .561739D+06, .416436D+06, .308519D+06,
1670 + .228443D+06, .169038D+06, .125009D+06, .923852D+05,
1671 + .682349D+05, .503621D+05, .371481D+05, .273814D+05,
1672 + .201699D+05, .148468D+05, .109217D+05, .802833D+04,
1673 + .589782D+04, .432951D+04, .317638D+04, .232872D+04,
1674 + .170635D+04, .124950D+04, .914536D+03, .668964D+03 /
1675 DATA (UPDI(I),I=6033,6084) /
1676 + .489311D+03, .356176D+03, .260421D+03, .190398D+03,
1677 + .139238D+03, .101860D+03, .745610D+02, .546747D+02,
1678 + .401124D+02, .294748D+02, .217011D+02, .160113D+02,
1679 + .118426D+02, .877988D+01, .652872D+01, .486601D+01,
1680 + .363517D+01, .272105D+01, .204030D+01, .153132D+01,
1681 + .115146D+01, .864118D+00, .649420D+00, .486601D+00,
1682 + .364373D+00, .272215D+00, .202805D+00, .150586D+00,
1683 + .111381D+00, .820158D-01, .600956D-01, .437978D-01,
1684 + .317371D-01, .228533D-01, .163488D-01, .116144D-01,
1685 + .818685D-02, .573499D-02, .397537D-02, .273136D-02,
1686 + .186010D-02, .125521D-02, .839556D-03, .556507D-03,
1687 + .365963D-03, .238840D-03, .154998D-03, .100116D-03,
1688 + .648999D-04, .420528D-04, .274437D-04, .180646D-04 /
1689 DATA (UPDI(I),I=6085,6136) /
1690 + .120179D-04, .805368D-05, .541675D-05, .361709D-05,
1691 + .236517D-05, .149026D-05, .884313D-06, .477746D-06,
1692 + .223607D-06, .823553D-07, .192077D-07, .138634D-08,
1693 + .000000D+00, .167896D+07, .126375D+07, .934102D+06,
1694 + .690022D+06, .509424D+06, .375831D+06, .277104D+06,
1695 + .204163D+06, .150327D+06, .110605D+06, .813250D+05,
1696 + .597503D+05, .438694D+05, .321839D+05, .235947D+05,
1697 + .172838D+05, .126520D+05, .925390D+04, .676374D+04,
1698 + .493964D+04, .360507D+04, .262898D+04, .191598D+04,
1699 + .139531D+04, .101557D+04, .738654D+03, .537181D+03,
1700 + .388707D+03, .282524D+03, .205317D+03, .149233D+03,
1701 + .108498D+03, .789224D+02, .575071D+02, .419197D+02,
1702 + .306034D+02, .223848D+02, .164071D+02, .120552D+02 /
1703 DATA (UPDI(I),I=6137,6188) /
1704 + .887821D+01, .655801D+01, .485544D+01, .360330D+01,
1705 + .267949D+01, .199605D+01, .148844D+01, .111211D+01,
1706 + .829334D+00, .619435D+00, .461307D+00, .343374D+00,
1707 + .255030D+00, .188914D+00, .139486D+00, .102604D+00,
1708 + .751478D-01, .547748D-01, .397161D-01, .286359D-01,
1709 + .205204D-01, .146110D-01, .103328D-01, .725145D-02,
1710 + .505843D-02, .349241D-02, .239068D-02, .162267D-02,
1711 + .109186D-02, .728645D-03, .482289D-03, .317021D-03,
1712 + .207095D-03, .134761D-03, .874730D-04, .571098D-04,
1713 + .373669D-04, .246735D-04, .164548D-04, .110882D-04,
1714 + .751555D-05, .509523D-05, .341664D-05, .223272D-05,
1715 + .139995D-05, .822816D-06, .438409D-06, .201313D-06,
1716 + .722950D-07, .164057D-07, .120271D-08, .000000D+00 /
1717 DATA (UPDI(I),I=6189,6240) /
1718 + .206461D+07, .154887D+07, .114034D+07, .839018D+06,
1719 + .616924D+06, .453279D+06, .332822D+06, .244186D+06,
1720 + .179031D+06, .131155D+06, .960128D+05, .702283D+05,
1721 + .513301D+05, .374852D+05, .273537D+05, .199430D+05,
1722 + .145287D+05, .105750D+05, .769118D+04, .558883D+04,
1723 + .405811D+04, .294407D+04, .213434D+04, .154604D+04,
1724 + .111918D+04, .809519D+03, .585423D+03, .421177D+03,
1725 + .304360D+03, .219894D+03, .158880D+03, .114818D+03,
1726 + .830105D+02, .601138D+02, .435463D+02, .315904D+02,
1727 + .229595D+02, .167205D+02, .122061D+02, .893115D+01,
1728 + .655428D+01, .482116D+01, .355467D+01, .262628D+01,
1729 + .194387D+01, .144030D+01, .106940D+01, .792506D+00,
1730 + .588309D+00, .435476D+00, .322224D+00, .237928D+00 /
1731 DATA (UPDI(I),I=6241,6292) /
1732 + .175237D+00, .128661D+00, .941208D-01, .685627D-01,
1733 + .497112D-01, .358588D-01, .257244D-01, .183437D-01,
1734 + .129988D-01, .915034D-02, .639293D-02, .444051D-02,
1735 + .305337D-02, .208233D-02, .140864D-02, .945140D-03,
1736 + .629336D-03, .415997D-03, .273374D-03, .178790D-03,
1737 + .116686D-03, .761216D-04, .500496D-04, .330487D-04,
1738 + .220523D-04, .148688D-04, .101195D-04, .691305D-05,
1739 + .470716D-05, .315871D-05, .205692D-05, .128043D-05,
1740 + .744153D-06, .390574D-06, .175834D-06, .615695D-07,
1741 + .136051D-07, .101261D-08, .000000D+00, .251387D+07,
1742 + .187980D+07, .137865D+07, .101040D+07, .740005D+06,
1743 + .541539D+06, .396015D+06, .289357D+06, .211266D+06,
1744 + .154117D+06, .112340D+06, .818144D+05, .595352D+05 /
1745 DATA (UPDI(I),I=6293,6344) /
1746 + .432831D+05, .314414D+05, .228179D+05, .165456D+05,
1747 + .119859D+05, .867547D+04, .627329D+04, .453251D+04,
1748 + .327167D+04, .235971D+04, .170040D+04, .122443D+04,
1749 + .880881D+03, .633560D+03, .453254D+03, .325703D+03,
1750 + .233976D+03, .168079D+03, .120756D+03, .867851D+02,
1751 + .624708D+02, .449784D+02, .324289D+02, .234226D+02,
1752 + .169510D+02, .122964D+02, .894025D+01, .651927D+01,
1753 + .476489D+01, .349083D+01, .256276D+01, .188488D+01,
1754 + .138783D+01, .102406D+01, .754226D+00, .556500D+00,
1755 + .409457D+00, .301184D+00, .221103D+00, .161916D+00,
1756 + .118215D+00, .860021D-01, .623101D-01, .449386D-01,
1757 + .322482D-01, .230169D-01, .163321D-01, .115177D-01,
1758 + .807009D-02, .561282D-02, .388193D-02, .265844D-02 /
1759 DATA (UPDI(I),I=6345,6396) /
1760 + .180624D-02, .121782D-02, .814849D-03, .541452D-03,
1761 + .357492D-03, .234923D-03, .153866D-03, .100743D-03,
1762 + .660612D-04, .437364D-04, .291282D-04, .196173D-04,
1763 + .133473D-04, .915215D-05, .628392D-05, .428562D-05,
1764 + .287073D-05, .185906D-05, .114709D-05, .658461D-06,
1765 + .340168D-06, .150083D-06, .512486D-07, .110369D-07,
1766 + .833710D-09, .000000D+00, .168722D+07, .131115D+07,
1767 + .100606D+07, .771969D+06, .592349D+06, .454525D+06,
1768 + .348772D+06, .267627D+06, .205363D+06, .157587D+06,
1769 + .120928D+06, .927993D+05, .712152D+05, .546531D+05,
1770 + .419445D+05, .321926D+05, .247094D+05, .189672D+05,
1771 + .145607D+05, .111791D+05, .858408D+04, .659252D+04,
1772 + .506405D+04, .389091D+04, .299045D+04, .229924D+04 /
1773 DATA (UPDI(I),I=6397,6448) /
1774 + .176859D+04, .135611D+04, .104452D+04, .805181D+03,
1775 + .621289D+03, .479962D+03, .371311D+03, .287966D+03,
1776 + .223655D+03, .174152D+03, .136013D+03, .106594D+03,
1777 + .838662D+02, .662672D+02, .526267D+02, .420058D+02,
1778 + .337113D+02, .272073D+02, .220839D+02, .180277D+02,
1779 + .148094D+02, .122158D+02, .101381D+02, .844264D+01,
1780 + .706408D+01, .593146D+01, .499514D+01, .421645D+01,
1781 + .356521D+01, .301776D+01, .255547D+01, .216355D+01,
1782 + .183021D+01, .154598D+01, .130316D+01, .109550D+01,
1783 + .917834D+00, .766523D+00, .636450D+00, .525585D+00,
1784 + .431347D+00, .351526D+00, .284214D+00, .227754D+00,
1785 + .180695D+00, .141759D+00, .109801D+00, .838048D-01,
1786 + .630841D-01, .465380D-01, .336235D-01, .237145D-01 /
1787 DATA (UPDI(I),I=6449,6500) /
1788 + .162624D-01, .107890D-01, .688036D-02, .418609D-02,
1789 + .239381D-02, .127230D-02, .612585D-03, .257708D-03,
1790 + .891593D-04, .226441D-04, .327138D-05, .118915D-06,
1791 + .000000D+00, .253468D+07, .196483D+07, .150313D+07,
1792 + .114959D+07, .879195D+06, .672199D+06, .513933D+06,
1793 + .392806D+06, .300220D+06, .229382D+06, .175253D+06,
1794 + .133852D+06, .102227D+06, .780472D+05, .595837D+05,
1795 + .454720D+05, .347009D+05, .264719D+05, .201936D+05,
1796 + .153991D+05, .117428D+05, .895186D+04, .682448D+04,
1797 + .520139D+04, .396477D+04, .302160D+04, .230340D+04,
1798 + .174932D+04, .133436D+04, .101813D+04, .777444D+03,
1799 + .594073D+03, .454510D+03, .348449D+03, .267483D+03,
1800 + .205784D+03, .158782D+03, .122906D+03, .955133D+02 /
1801 DATA (UPDI(I),I=6501,6552) /
1802 + .745311D+02, .584592D+02, .460823D+02, .365298D+02,
1803 + .291210D+02, .233523D+02, .188336D+02, .152890D+02,
1804 + .124622D+02, .102226D+02, .841425D+01, .695975D+01,
1805 + .577734D+01, .481039D+01, .401484D+01, .335675D+01,
1806 + .280966D+01, .235282D+01, .196993D+01, .164799D+01,
1807 + .137669D+01, .114765D+01, .954166D+00, .790541D+00,
1808 + .652909D+00, .536031D+00, .437673D+00, .355102D+00,
1809 + .286065D+00, .228587D+00, .181011D+00, .141871D+00,
1810 + .109928D+00, .840767D-01, .633377D-01, .470412D-01,
1811 + .342228D-01, .243678D-01, .169280D-01, .114235D-01,
1812 + .745228D-02, .466645D-02, .278490D-02, .155890D-02,
1813 + .809633D-03, .379771D-03, .155196D-03, .519001D-04,
1814 + .126879D-04, .177268D-05, .650142D-07, .000000D+00 /
1815 DATA (UPDI(I),I=6553,6604) /
1816 + .365609D+07, .282529D+07, .215348D+07, .164067D+07,
1817 + .124988D+07, .951714D+06, .724606D+06, .551421D+06,
1818 + .419576D+06, .319090D+06, .242635D+06, .184399D+06,
1819 + .140118D+06, .106410D+06, .807961D+05, .613119D+05,
1820 + .465173D+05, .352715D+05, .267391D+05, .202585D+05,
1821 + .153456D+05, .116172D+05, .879327D+04, .665215D+04,
1822 + .503188D+04, .380426D+04, .287631D+04, .216565D+04,
1823 + .163751D+04, .123815D+04, .936685D+03, .708904D+03,
1824 + .537055D+03, .407594D+03, .309680D+03, .235751D+03,
1825 + .179976D+03, .137811D+03, .105937D+03, .817618D+02,
1826 + .634307D+02, .494536D+02, .387749D+02, .305742D+02,
1827 + .242528D+02, .193489D+02, .155400D+02, .125313D+02,
1828 + .101708D+02, .828303D+01, .677931D+01, .556869D+01 /
1829 DATA (UPDI(I),I=6605,6656) /
1830 + .458827D+01, .378958D+01, .313546D+01, .259718D+01,
1831 + .215228D+01, .178331D+01, .147634D+01, .122046D+01,
1832 + .100678D+01, .828311D+00, .679026D+00, .554891D+00,
1833 + .450680D+00, .364013D+00, .292112D+00, .232721D+00,
1834 + .183871D+00, .143939D+00, .111496D+00, .853625D-01,
1835 + .644926D-01, .479710D-01, .351662D-01, .252384D-01,
1836 + .177169D-01, .121265D-01, .805582D-02, .516907D-02,
1837 + .317932D-02, .186163D-02, .102041D-02, .517975D-03,
1838 + .236775D-03, .940090D-04, .303987D-04, .715664D-05,
1839 + .966727D-06, .353515D-07, .000000D+00, .509532D+07,
1840 + .392432D+07, .297952D+07, .226091D+07, .171531D+07,
1841 + .130062D+07, .985974D+06, .746992D+06, .565801D+06,
1842 + .428284D+06, .324105D+06, .245101D+06, .185300D+06 /
1843 DATA (UPDI(I),I=6657,6708) /
1844 + .139990D+06, .105726D+06, .797885D+05, .601935D+05,
1845 + .453758D+05, .341934D+05, .257464D+05, .193790D+05,
1846 + .145748D+05, .109578D+05, .823219D+04, .618267D+04,
1847 + .463979D+04, .348152D+04, .260063D+04, .195067D+04,
1848 + .146278D+04, .109726D+04, .823227D+03, .618118D+03,
1849 + .464859D+03, .349911D+03, .263860D+03, .199503D+03,
1850 + .151279D+03, .115150D+03, .879942D+02, .675893D+02,
1851 + .521720D+02, .404997D+02, .316171D+02, .248317D+02,
1852 + .196146D+02, .155988D+02, .124545D+02, .100095D+02,
1853 + .807166D+01, .654170D+01, .532100D+01, .434133D+01,
1854 + .355059D+01, .290896D+01, .238596D+01, .195782D+01,
1855 + .160623D+01, .131661D+01, .107764D+01, .880131D+00,
1856 + .716895D+00, .581768D+00, .470613D+00, .378310D+00 /
1857 DATA (UPDI(I),I=6709,6760) /
1858 + .302398D+00, .240122D+00, .189269D+00, .147925D+00,
1859 + .114526D+00, .877150D-01, .663842D-01, .495647D-01,
1860 + .364184D-01, .263635D-01, .186742D-01, .129307D-01,
1861 + .872466D-02, .570902D-02, .360520D-02, .217965D-02,
1862 + .125312D-02, .673182D-03, .334312D-03, .149116D-03,
1863 + .576068D-04, .180505D-04, .410421D-05, .537143D-06,
1864 + .192310D-07, .000000D+00, .689968D+07, .529597D+07,
1865 + .400500D+07, .302679D+07, .228687D+07, .172668D+07,
1866 + .130331D+07, .983060D+06, .741247D+06, .558501D+06,
1867 + .420649D+06, .316575D+06, .238151D+06, .179007D+06,
1868 + .134491D+06, .100957D+06, .757483D+05, .567827D+05,
1869 + .425439D+05, .318459D+05, .238254D+05, .178080D+05,
1870 + .133035D+05, .992924D+04, .740721D+04, .552036D+04 /
1871 DATA (UPDI(I),I=6761,6812) /
1872 + .411299D+04, .304972D+04, .227047D+04, .168959D+04,
1873 + .125746D+04, .935858D+03, .696911D+03, .519733D+03,
1874 + .387868D+03, .289939D+03, .217283D+03, .163289D+03,
1875 + .123168D+03, .932634D+02, .709804D+02, .542862D+02,
1876 + .417524D+02, .322947D+02, .251300D+02, .196672D+02,
1877 + .154970D+02, .122588D+02, .976183D+01, .779921D+01,
1878 + .626261D+01, .504700D+01, .407968D+01, .330569D+01,
1879 + .268314D+01, .218024D+01, .177228D+01, .144036D+01,
1880 + .116952D+01, .948187D+00, .767033D+00, .618800D+00,
1881 + .497307D+00, .398387D+00, .317093D+00, .250940D+00,
1882 + .197250D+00, .153885D+00, .119017D+00, .911679D-01,
1883 + .690677D-01, .516925D-01, .381573D-01, .277069D-01,
1884 + .198153D-01, .138593D-01, .947076D-02, .630258D-02 /
1885 DATA (UPDI(I),I=6813,6864) /
1886 + .406458D-02, .252758D-02, .150315D-02, .849133D-03,
1887 + .447477D-03, .217628D-03, .948414D-04, .357058D-04,
1888 + .108651D-04, .239262D-05, .303916D-06, .103972D-07,
1889 + .000000D+00, .962470D+07, .735671D+07, .553624D+07,
1890 + .416330D+07, .312959D+07, .235081D+07, .176505D+07,
1891 + .132421D+07, .993002D+06, .744019D+06, .557175D+06,
1892 + .416887D+06, .311745D+06, .232904D+06, .173896D+06,
1893 + .129711D+06, .966899D+05, .720010D+05, .535792D+05,
1894 + .398281D+05, .295849D+05, .219521D+05, .162768D+05,
1895 + .120556D+05, .892286D+04, .659636D+04, .487418D+04,
1896 + .358322D+04, .264456D+04, .195057D+04, .143852D+04,
1897 + .106069D+04, .782371D+03, .577842D+03, .426974D+03,
1898 + .315972D+03, .234377D+03, .174318D+03, .130114D+03 /
1899 DATA (UPDI(I),I=6865,6916) /
1900 + .974862D+02, .734073D+02, .555444D+02, .422625D+02,
1901 + .323388D+02, .248936D+02, .192721D+02, .150223D+02,
1902 + .117543D+02, .925881D+01, .731670D+01, .581109D+01,
1903 + .463194D+01, .370306D+01, .296747D+01, .238196D+01,
1904 + .191401D+01, .153849D+01, .123633D+01, .992521D+00,
1905 + .795566D+00, .636230D+00, .507387D+00, .403037D+00,
1906 + .319108D+00, .250984D+00, .196246D+00, .152388D+00,
1907 + .117425D+00, .896832D-01, .678235D-01, .507147D-01,
1908 + .374529D-01, .272707D-01, .195238D-01, .137620D-01,
1909 + .948133D-02, .637823D-02, .417566D-02, .264706D-02,
1910 + .161654D-02, .942992D-03, .521888D-03, .268986D-03,
1911 + .127718D-03, .542139D-04, .198285D-04, .584365D-05,
1912 + .124320D-05, .152688D-06, .471814D-08, .000000D+00 /
1913 DATA (UPDI(I),I=6917,6968) /
1914 + .131204D+08, .998651D+07, .747826D+07, .559565D+07,
1915 + .418487D+07, .312725D+07, .233564D+07, .174292D+07,
1916 + .129984D+07, .968523D+06, .721190D+06, .536501D+06,
1917 + .398830D+06, .296184D+06, .219791D+06, .162925D+06,
1918 + .120675D+06, .892792D+05, .659958D+05, .487263D+05,
1919 + .359440D+05, .264822D+05, .194937D+05, .143316D+05,
1920 + .105270D+05, .772190D+04, .566066D+04, .412723D+04,
1921 + .302079D+04, .220921D+04, .161512D+04, .118039D+04,
1922 + .862779D+03, .631378D+03, .462147D+03, .338741D+03,
1923 + .248829D+03, .183252D+03, .135423D+03, .100448D+03,
1924 + .748735D+02, .560789D+02, .422333D+02, .319855D+02,
1925 + .243684D+02, .186708D+02, .144034D+02, .111526D+02,
1926 + .869361D+01, .679803D+01, .534246D+01, .421353D+01 /
1927 DATA (UPDI(I),I=6969,7020) /
1928 + .333287D+01, .264241D+01, .209834D+01, .166799D+01,
1929 + .132624D+01, .105418D+01, .837033D+00, .663550D+00,
1930 + .524774D+00, .413832D+00, .325011D+00, .254411D+00,
1931 + .197791D+00, .152849D+00, .117285D+00, .892903D-01,
1932 + .673626D-01, .503093D-01, .371405D-01, .270719D-01,
1933 + .194496D-01, .137327D-01, .954345D-02, .647833D-02,
1934 + .429151D-02, .276477D-02, .172337D-02, .103390D-02,
1935 + .591820D-03, .321014D-03, .161896D-03, .750860D-04,
1936 + .310647D-04, .110458D-04, .315585D-05, .649163D-06,
1937 + .769298D-07, .196247D-08, .000000D+00, .175005D+08,
1938 + .132653D+08, .988523D+07, .736023D+07, .547692D+07,
1939 + .407195D+07, .302543D+07, .224580D+07, .166590D+07,
1940 + .123453D+07, .914167D+06, .676231D+06, .499816D+06 /
1941 DATA (UPDI(I),I=7021,7072) /
1942 + .369013D+06, .272203D+06, .200554D+06, .147626D+06,
1943 + .108531D+06, .797105D+05, .584665D+05, .428399D+05,
1944 + .313472D+05, .229135D+05, .167257D+05, .121958D+05,
1945 + .887916D+04, .645938D+04, .467238D+04, .339254D+04,
1946 + .246093D+04, .178418D+04, .129290D+04, .936816D+03,
1947 + .679528D+03, .492916D+03, .357995D+03, .260531D+03,
1948 + .190068D+03, .139124D+03, .102203D+03, .754443D+02,
1949 + .559562D+02, .417276D+02, .312916D+02, .236039D+02,
1950 + .179054D+02, .136757D+02, .104828D+02, .808960D+01,
1951 + .626172D+01, .487111D+01, .380269D+01, .297713D+01,
1952 + .233612D+01, .183594D+01, .144425D+01, .113634D+01,
1953 + .893754D+00, .702157D+00, .550714D+00, .430877D+00,
1954 + .336124D+00, .261107D+00, .202152D+00, .155415D+00 /
1955 DATA (UPDI(I),I=7073,7124) /
1956 + .118751D+00, .900836D-01, .677895D-01, .505419D-01,
1957 + .372961D-01, .271985D-01, .195787D-01, .138873D-01,
1958 + .967675D-02, .663462D-02, .444102D-02, .289948D-02,
1959 + .183995D-02, .112895D-02, .666162D-03, .374717D-03,
1960 + .199534D-03, .986621D-04, .448025D-04, .181196D-04,
1961 + .628672D-05, .174956D-05, .349903D-06, .401047D-07,
1962 + .719211D-09, .000000D+00, .228804D+08, .172732D+08,
1963 + .128104D+08, .949213D+07, .702857D+07, .519954D+07,
1964 + .384364D+07, .283850D+07, .209454D+07, .154394D+07,
1965 + .113710D+07, .836527D+06, .614835D+06, .451355D+06,
1966 + .331013D+06, .242449D+06, .177393D+06, .129618D+06,
1967 + .946035D+05, .689497D+05, .501934D+05, .364853D+05,
1968 + .264890D+05, .192024D+05, .139031D+05, .100491D+05 /
1969 DATA (UPDI(I),I=7125,7176) /
1970 + .725676D+04, .520922D+04, .375330D+04, .270132D+04,
1971 + .194279D+04, .139637D+04, .100335D+04, .721635D+03,
1972 + .518933D+03, .373583D+03, .269449D+03, .194800D+03,
1973 + .141284D+03, .102831D+03, .752010D+02, .552529D+02,
1974 + .408138D+02, .303160D+02, .226498D+02, .170169D+02,
1975 + .128725D+02, .977138D+01, .746763D+01, .572379D+01,
1976 + .440906D+01, .340816D+01, .264190D+01, .205250D+01,
1977 + .159697D+01, .124368D+01, .968683D+00, .754178D+00,
1978 + .586476D+00, .455280D+00, .352546D+00, .272172D+00,
1979 + .209218D+00, .160280D+00, .121912D+00, .921499D-01,
1980 + .691441D-01, .514592D-01, .379382D-01, .276780D-01,
1981 + .199517D-01, .141934D-01, .994673D-02, .684550D-02,
1982 + .463455D-02, .306195D-02, .197237D-02, .123431D-02 /
1983 DATA (UPDI(I),I=7177,7228) /
1984 + .746474D-03, .433890D-03, .240254D-03, .125844D-03,
1985 + .611539D-04, .272666D-04, .108171D-04, .367742D-05,
1986 + .100199D-05, .195961D-06, .217812D-07, .184495D-09,
1987 + .000000D+00, .293706D+08, .220855D+08, .163029D+08,
1988 + .120229D+08, .885978D+07, .652235D+07, .479764D+07,
1989 + .352527D+07, .258804D+07, .189786D+07, .139040D+07,
1990 + .101741D+07, .743713D+06, .542952D+06, .395947D+06,
1991 + .288353D+06, .209749D+06, .152352D+06, .110523D+06,
1992 + .800571D+05, .579130D+05, .418273D+05, .301689D+05,
1993 + .217243D+05, .156218D+05, .112127D+05, .803955D+04,
1994 + .572873D+04, .409705D+04, .292647D+04, .208847D+04,
1995 + .148928D+04, .106151D+04, .757242D+03, .539999D+03,
1996 + .385461D+03, .275625D+03, .197531D+03, .142001D+03 /
1997 DATA (UPDI(I),I=7229,7280) /
1998 + .102433D+03, .742362D+02, .540504D+02, .395613D+02,
1999 + .291163D+02, .215530D+02, .160429D+02, .120232D+02,
2000 + .904113D+01, .684495D+01, .519699D+01, .396543D+01,
2001 + .303618D+01, .233114D+01, .179377D+01, .138227D+01,
2002 + .106611D+01, .822342D+00, .634027D+00, .488235D+00,
2003 + .375305D+00, .287759D+00, .219959D+00, .167397D+00,
2004 + .126961D+00, .955922D-01, .715189D-01, .531118D-01,
2005 + .391166D-01, .285356D-01, .205967D-01, .146870D-01,
2006 + .103336D-01, .716117D-02, .487226D-02, .326056D-02,
2007 + .212860D-02, .135447D-02, .837048D-03, .499727D-03,
2008 + .286620D-03, .156540D-03, .808366D-04, .387077D-04,
2009 + .169973D-04, .663819D-05, .222050D-05, .595256D-06,
2010 + .114430D-06, .123692D-07, .000000D+00, .000000D+00 /
2011 DATA (UPDI(I),I=7281,7332) /
2012 + .370730D+08, .277706D+08, .204061D+08, .149795D+08,
2013 + .109868D+08, .804983D+07, .589264D+07, .430873D+07,
2014 + .314750D+07, .229650D+07, .167383D+07, .121845D+07,
2015 + .885959D+06, .643329D+06, .466582D+06, .337907D+06,
2016 + .244403D+06, .176502D+06, .127292D+06, .916531D+05,
2017 + .658976D+05, .472991D+05, .338995D+05, .242531D+05,
2018 + .173252D+05, .123515D+05, .879523D+04, .622266D+04,
2019 + .441843D+04, .313300D+04, .221919D+04, .157047D+04,
2020 + .111069D+04, .786086D+03, .556055D+03, .393679D+03,
2021 + .279163D+03, .198384D+03, .141398D+03, .101120D+03,
2022 + .726485D+02, .524315D+02, .380379D+02, .277471D+02,
2023 + .203564D+02, .150165D+02, .111532D+02, .831095D+01,
2024 + .623535D+01, .469104D+01, .354678D+01, .269084D+01 /
2025 DATA (UPDI(I),I=7333,7384) /
2026 + .204707D+01, .156072D+01, .119161D+01, .910579D+00,
2027 + .695877D+00, .531547D+00, .405515D+00, .308813D+00,
2028 + .234564D+00, .177617D+00, .133899D+00, .100598D+00,
2029 + .750213D-01, .555910D-01, .408858D-01, .298201D-01,
2030 + .215412D-01, .153949D-01, .108684D-01, .756995D-02,
2031 + .519255D-02, .349628D-02, .231535D-02, .149543D-02,
2032 + .941285D-03, .575295D-03, .339609D-03, .192556D-03,
2033 + .103942D-03, .530381D-04, .250898D-04, .108821D-04,
2034 + .419744D-05, .138648D-05, .367095D-06, .696348D-07,
2035 + .734032D-08, .000000D+00, .000000D+00, .460774D+08,
2036 + .343871D+08, .251555D+08, .183829D+08, .134213D+08,
2037 + .978811D+07, .713141D+07, .518972D+07, .377271D+07,
2038 + .273918D+07, .198652D+07, .143876D+07, .104077D+07 /
2039 DATA (UPDI(I),I=7385,7436) /
2040 + .751798D+06, .542352D+06, .390662D+06, .281006D+06,
2041 + .201802D+06, .144709D+06, .103590D+06, .740399D+05,
2042 + .528237D+05, .376265D+05, .267511D+05, .189874D+05,
2043 + .134480D+05, .951233D+04, .668368D+04, .471287D+04,
2044 + .331818D+04, .233338D+04, .163914D+04, .115054D+04,
2045 + .808090D+03, .567168D+03, .398372D+03, .280221D+03,
2046 + .197515D+03, .139619D+03, .990159D+02, .705389D+02,
2047 + .504779D+02, .363083D+02, .262583D+02, .190983D+02,
2048 + .139664D+02, .102836D+02, .759600D+01, .564938D+01,
2049 + .421292D+01, .315740D+01, .237443D+01, .179050D+01,
2050 + .135311D+01, .102401D+01, .775619D+00, .587518D+00,
2051 + .444824D+00, .336365D+00, .253895D+00, .191150D+00,
2052 + .143466D+00, .107197D+00, .798268D-01, .590025D-01 /
2053 DATA (UPDI(I),I=7437,7488) /
2054 + .433319D-01, .315853D-01, .228306D-01, .163441D-01,
2055 + .115754D-01, .809796D-02, .558888D-02, .379852D-02,
2056 + .253396D-02, .166255D-02, .106372D-02, .663221D-03,
2057 + .401482D-03, .234727D-03, .131798D-03, .704516D-04,
2058 + .355959D-04, .166725D-04, .715949D-05, .273430D-05,
2059 + .894135D-06, .234389D-06, .439695D-07, .453122D-08,
2060 + .000000D+00, .000000D+00, .564582D+08, .419815D+08,
2061 + .305778D+08, .222472D+08, .161702D+08, .117396D+08,
2062 + .851405D+07, .616715D+07, .446212D+07, .322425D+07,
2063 + .232696D+07, .167703D+07, .120705D+07, .867482D+06,
2064 + .622570D+06, .446090D+06, .319159D+06, .227957D+06,
2065 + .162559D+06, .115713D+06, .822296D+05, .583238D+05,
2066 + .412965D+05, .291819D+05, .205842D+05, .144864D+05 /
2067 DATA (UPDI(I),I=7489,7540) /
2068 + .101807D+05, .710555D+04, .497667D+04, .347991D+04,
2069 + .242999D+04, .169485D+04, .118098D+04, .823345D+03,
2070 + .573516D+03, .399746D+03, .278999D+03, .195104D+03,
2071 + .136814D+03, .962447D+02, .680071D+02, .482675D+02,
2072 + .344319D+02, .246950D+02, .178119D+02, .129168D+02,
2073 + .943142D+01, .690794D+01, .509467D+01, .376725D+01,
2074 + .279969D+01, .208775D+01, .156112D+01, .116988D+01,
2075 + .877938D+00, .659425D+00, .495340D+00, .371914D+00,
2076 + .278898D+00, .208775D+00, .155883D+00, .116033D+00,
2077 + .859858D-01, .635078D-01, .465555D-01, .339106D-01,
2078 + .245160D-01, .175761D-01, .124799D-01, .876661D-02,
2079 + .608306D-02, .416407D-02, .280709D-02, .185727D-02,
2080 + .120868D-02, .767010D-03, .474320D-03, .284782D-03 /
2081 DATA (UPDI(I),I=7541,7592) /
2082 + .165137D-03, .919636D-04, .487567D-04, .244322D-04,
2083 + .113495D-04, .483314D-05, .183040D-05, .593344D-06,
2084 + .154145D-06, .286173D-07, .288924D-08, .000000D+00,
2085 + .000000D+00, .682710D+08, .505865D+08, .366892D+08,
2086 + .265790D+08, .192347D+08, .139030D+08, .100379D+08,
2087 + .723806D+07, .521287D+07, .374919D+07, .269300D+07,
2088 + .193152D+07, .138344D+07, .989329D+06, .706441D+06,
2089 + .503599D+06, .358429D+06, .254652D+06, .180617D+06,
2090 + .127863D+06, .903565D+05, .637240D+05, .448586D+05,
2091 + .315119D+05, .220936D+05, .154529D+05, .107919D+05,
2092 + .748328D+04, .520703D+04, .361679D+04, .250842D+04,
2093 + .173746D+04, .120213D+04, .832090D+03, .575369D+03,
2094 + .398061D+03, .275729D+03, .191346D+03, .133142D+03 /
2095 DATA (UPDI(I),I=7593,7644) /
2096 + .929303D+02, .651485D+02, .458723D+02, .324624D+02,
2097 + .230962D+02, .165250D+02, .118871D+02, .860990D+01,
2098 + .625523D+01, .457627D+01, .335663D+01, .247451D+01,
2099 + .183050D+01, .135784D+01, .100945D+01, .751547D+00,
2100 + .560040D+00, .417383D+00, .310935D+00, .231359D+00,
2101 + .171851D+00, .127328D+00, .940546D-01, .691695D-01,
2102 + .507033D-01, .368897D-01, .266693D-01, .191377D-01,
2103 + .136189D-01, .959915D-02, .669376D-02, .461103D-02,
2104 + .313359D-02, .209724D-02, .137764D-02, .890199D-03,
2105 + .560888D-03, .344403D-03, .205319D-03, .118221D-03,
2106 + .653714D-04, .344137D-04, .171215D-04, .789565D-05,
2107 + .333713D-05, .125400D-05, .403068D-06, .103763D-06,
2108 + .190592D-07, .188843D-08, .000000D+00, .000000D+00 /
2109 DATA (UPDI(I),I=7645,7696) /
2110 + .506081D+05, .757076D+05, .588450D+05, .457445D+05,
2111 + .355662D+05, .276577D+05, .215123D+05, .167365D+05,
2112 + .130246D+05, .101392D+05, .789607D+04, .615186D+04,
2113 + .479535D+04, .374013D+04, .291906D+04, .228000D+04,
2114 + .178243D+04, .139487D+04, .109286D+04, .857392D+03,
2115 + .673699D+03, .530298D+03, .418264D+03, .330659D+03,
2116 + .262088D+03, .208354D+03, .166194D+03, .132651D+03,
2117 + .106677D+03, .861958D+02, .700132D+02, .571988D+02,
2118 + .470266D+02, .389516D+02, .324876D+02, .273120D+02,
2119 + .231522D+02, .197945D+02, .170708D+02, .148479D+02,
2120 + .130247D+02, .115157D+02, .102568D+02, .919671D+01,
2121 + .829504D+01, .751988D+01, .684847D+01, .625461D+01,
2122 + .573010D+01, .525633D+01, .482861D+01, .443772D+01 /
2123 DATA (UPDI(I),I=7697,7748) /
2124 + .407791D+01, .374467D+01, .343454D+01, .314484D+01,
2125 + .287351D+01, .261901D+01, .238013D+01, .215597D+01,
2126 + .194580D+01, .174907D+01, .156530D+01, .139488D+01,
2127 + .123566D+01, .108840D+01, .952776D+00, .828453D+00,
2128 + .715082D+00, .612293D+00, .519688D+00, .436842D+00,
2129 + .363253D+00, .298384D+00, .242265D+00, .193517D+00,
2130 + .151989D+00, .117084D+00, .881954D-01, .647110D-01,
2131 + .460196D-01, .315359D-01, .205853D-01, .126881D-01,
2132 + .723909D-02, .371723D-02, .163888D-02, .567934D-03,
2133 + .126856D-03, .968234D-05, .000000D+00, .128645D+06,
2134 + .100638D+06, .778116D+05, .601667D+05, .465298D+05,
2135 + .359872D+05, .278386D+05, .215384D+05, .166682D+05,
2136 + .129021D+05, .999036D+04, .773823D+04, .599655D+04 /
2137 DATA (UPDI(I),I=7749,7800) /
2138 + .464901D+04, .360650D+04, .279956D+04, .217497D+04,
2139 + .169122D+04, .131653D+04, .102608D+04, .800900D+03,
2140 + .626157D+03, .490503D+03, .385075D+03, .303087D+03,
2141 + .239244D+03, .189490D+03, .150155D+03, .119901D+03,
2142 + .961945D+02, .775908D+02, .629510D+02, .514065D+02,
2143 + .422973D+02, .350517D+02, .292825D+02, .246728D+02,
2144 + .209702D+02, .179822D+02, .155538D+02, .135708D+02,
2145 + .119352D+02, .105758D+02, .943449D+01, .846691D+01,
2146 + .763751D+01, .692148D+01, .629020D+01, .573479D+01,
2147 + .523500D+01, .478583D+01, .437722D+01, .400304D+01,
2148 + .365834D+01, .333937D+01, .304314D+01, .276738D+01,
2149 + .251030D+01, .227051D+01, .204690D+01, .183858D+01,
2150 + .164483D+01, .146497D+01, .129922D+01, .114533D+01 /
2151 DATA (UPDI(I),I=7801,7852) /
2152 + .100390D+01, .874454D+00, .756545D+00, .649694D+00,
2153 + .553429D+00, .467246D+00, .390639D+00, .323046D+00,
2154 + .263842D+00, .212966D+00, .169075D+00, .131947D+00,
2155 + .100969D+00, .755215D-01, .550022D-01, .388034D-01,
2156 + .263650D-01, .170488D-01, .104007D-01, .586547D-02,
2157 + .297236D-02, .129021D-02, .438827D-03, .961628D-04,
2158 + .741416D-05, .000000D+00, .169427D+06, .131982D+06,
2159 + .101552D+06, .781366D+05, .601265D+05, .462681D+05,
2160 + .356089D+05, .274070D+05, .210985D+05, .162441D+05,
2161 + .125100D+05, .963645D+04, .742582D+04, .572429D+04,
2162 + .441503D+04, .340699D+04, .263107D+04, .203340D+04,
2163 + .157310D+04, .121831D+04, .944859D+03, .733888D+03,
2164 + .571101D+03, .445339D+03, .348145D+03, .272925D+03 /
2165 DATA (UPDI(I),I=7853,7904) /
2166 + .214684D+03, .168926D+03, .133958D+03, .106730D+03,
2167 + .855011D+02, .688997D+02, .558917D+02, .456896D+02,
2168 + .376245D+02, .312391D+02, .261659D+02, .221116D+02,
2169 + .188563D+02, .162223D+02, .140807D+02, .123208D+02,
2170 + .108634D+02, .964375D+01, .861316D+01, .773246D+01,
2171 + .697464D+01, .630871D+01, .572497D+01, .520168D+01,
2172 + .473339D+01, .430927D+01, .392277D+01, .356851D+01,
2173 + .324244D+01, .294127D+01, .266249D+01, .240409D+01,
2174 + .216447D+01, .194235D+01, .173663D+01, .154646D+01,
2175 + .137095D+01, .121018D+01, .106179D+01, .926242D+00,
2176 + .802915D+00, .691254D+00, .590672D+00, .500605D+00,
2177 + .420458D+00, .349657D+00, .287588D+00, .233560D+00,
2178 + .187434D+00, .147906D+00, .114698D+00, .871889D-01 /
2179 DATA (UPDI(I),I=7905,7956) /
2180 + .647582D-01, .468133D-01, .327603D-01, .220675D-01,
2181 + .141341D-01, .853238D-02, .475485D-02, .237689D-02,
2182 + .101515D-02, .338570D-03, .727048D-04, .566684D-05,
2183 + .000000D+00, .220009D+06, .170716D+06, .130764D+06,
2184 + .100154D+06, .767118D+05, .587526D+05, .450013D+05,
2185 + .344676D+05, .264030D+05, .202260D+05, .154973D+05,
2186 + .118755D+05, .910291D+04, .697931D+04, .535355D+04,
2187 + .410815D+04, .315454D+04, .242381D+04, .186408D+04,
2188 + .143497D+04, .110609D+04, .853759D+03, .660178D+03,
2189 + .511485D+03, .397247D+03, .309361D+03, .241731D+03,
2190 + .188917D+03, .148807D+03, .117766D+03, .937164D+02,
2191 + .750231D+02, .604660D+02, .491169D+02, .401982D+02,
2192 + .331766D+02, .276288D+02, .232176D+02, .196932D+02 /
2193 DATA (UPDI(I),I=7957,8008) /
2194 + .168541D+02, .145556D+02, .126739D+02, .111214D+02,
2195 + .982631D+01, .873560D+01, .780644D+01, .700951D+01,
2196 + .631153D+01, .570189D+01, .515741D+01, .467216D+01,
2197 + .423455D+01, .383760D+01, .347551D+01, .314391D+01,
2198 + .283922D+01, .255869D+01, .230009D+01, .206161D+01,
2199 + .184178D+01, .163934D+01, .145327D+01, .128250D+01,
2200 + .112697D+01, .984229D+00, .854585D+00, .737308D+00,
2201 + .631739D+00, .537194D+00, .453029D+00, .378572D+00,
2202 + .313191D+00, .256230D+00, .206946D+00, .165137D+00,
2203 + .129541D+00, .998349D-01, .753988D-01, .556176D-01,
2204 + .399137D-01, .277128D-01, .185106D-01, .117459D-01,
2205 + .701830D-02, .386595D-02, .190703D-02, .801745D-03,
2206 + .262403D-03, .552795D-04, .435408D-05, .000000D+00 /
2207 DATA (UPDI(I),I=8009,8060) /
2208 + .177839D+06, .217963D+06, .166251D+06, .126788D+06,
2209 + .966900D+05, .737260D+05, .562166D+05, .428608D+05,
2210 + .326799D+05, .249158D+05, .189987D+05, .144872D+05,
2211 + .110494D+05, .842854D+04, .643166D+04, .490932D+04,
2212 + .374940D+04, .286500D+04, .219102D+04, .167698D+04,
2213 + .128509D+04, .986017D+03, .757831D+03, .583522D+03,
2214 + .450359D+03, .348496D+03, .270571D+03, .210072D+03,
2215 + .164400D+03, .129263D+03, .102203D+03, .812951D+02,
2216 + .651098D+02, .525646D+02, .427626D+02, .350881D+02,
2217 + .290569D+02, .242856D+02, .204917D+02, .174491D+02,
2218 + .149961D+02, .129956D+02, .113509D+02, .998352D+01,
2219 + .883564D+01, .786086D+01, .702747D+01, .629995D+01,
2220 + .566673D+01, .510327D+01, .460307D+01, .415387D+01 /
2221 DATA (UPDI(I),I=8061,8112) /
2222 + .374819D+01, .337985D+01, .304415D+01, .273723D+01,
2223 + .245608D+01, .219826D+01, .196177D+01, .174494D+01,
2224 + .154634D+01, .136481D+01, .119909D+01, .104899D+01,
2225 + .911997D+00, .788257D+00, .676940D+00, .577296D+00,
2226 + .488559D+00, .410012D+00, .340921D+00, .280607D+00,
2227 + .228375D+00, .183450D+00, .145574D+00, .113530D+00,
2228 + .869640D-01, .652596D-01, .478141D-01, .340683D-01,
2229 + .234718D-01, .155482D-01, .977613D-02, .578269D-02,
2230 + .314924D-02, .153337D-02, .634821D-03, .204019D-03,
2231 + .422052D-04, .335835D-05, .000000D+00, .380030D+06,
2232 + .292540D+06, .222014D+06, .168453D+06, .127799D+06,
2233 + .969337D+05, .735161D+05, .557448D+05, .422672D+05,
2234 + .320433D+05, .242926D+05, .184152D+05, .139612D+05 /
2235 DATA (UPDI(I),I=8113,8164) /
2236 + .105847D+05, .802660D+04, .608782D+04, .461924D+04,
2237 + .350630D+04, .266329D+04, .202437D+04, .154034D+04,
2238 + .117337D+04, .895196D+03, .684138D+03, .523995D+03,
2239 + .402343D+03, .309939D+03, .238712D+03, .185329D+03,
2240 + .144562D+03, .113393D+03, .894875D+02, .711154D+02,
2241 + .569786D+02, .460103D+02, .374821D+02, .308240D+02,
2242 + .255903D+02, .214534D+02, .181544D+02, .155085D+02,
2243 + .133611D+02, .116036D+02, .101487D+02, .893228D+01,
2244 + .790348D+01, .702743D+01, .626587D+01, .560588D+01,
2245 + .502132D+01, .450489D+01, .404352D+01, .362910D+01,
2246 + .325495D+01, .291596D+01, .260792D+01, .232750D+01,
2247 + .207199D+01, .183912D+01, .162701D+01, .143403D+01,
2248 + .125880D+01, .109989D+01, .956923D+00, .827308D+00 /
2249 DATA (UPDI(I),I=8165,8216) /
2250 + .711029D+00, .607135D+00, .514772D+00, .433085D+00,
2251 + .361280D+00, .298563D+00, .244204D+00, .197476D+00,
2252 + .157576D+00, .124191D+00, .961656D-01, .731166D-01,
2253 + .544425D-01, .395627D-01, .279451D-01, .190743D-01,
2254 + .125097D-01, .778008D-02, .454719D-02, .244340D-02,
2255 + .117177D-02, .476655D-03, .150110D-03, .304570D-04,
2256 + .245085D-05, .000000D+00, .503751D+06, .386192D+06,
2257 + .291692D+06, .220251D+06, .166274D+06, .125486D+06,
2258 + .946865D+05, .714261D+05, .538717D+05, .406218D+05,
2259 + .306277D+05, .230883D+05, .174045D+05, .131189D+05,
2260 + .988953D+04, .745555D+04, .562218D+04, .424076D+04,
2261 + .320048D+04, .241673D+04, .182657D+04, .138188D+04,
2262 + .104692D+04, .794396D+03, .604033D+03, .460382D+03 /
2263 DATA (UPDI(I),I=8217,8268) /
2264 + .352005D+03, .269039D+03, .207288D+03, .160459D+03,
2265 + .124906D+03, .978311D+02, .771671D+02, .613775D+02,
2266 + .492095D+02, .398117D+02, .325212D+02, .268255D+02,
2267 + .223493D+02, .187993D+02, .159663D+02, .136780D+02,
2268 + .118132D+02, .102761D+02, .899596D+01, .791757D+01,
2269 + .700291D+01, .621104D+01, .552769D+01, .492516D+01,
2270 + .439538D+01, .392445D+01, .350366D+01, .312585D+01,
2271 + .278548D+01, .247802D+01, .219981D+01, .194787D+01,
2272 + .171971D+01, .151320D+01, .132651D+01, .115811D+01,
2273 + .100637D+01, .870743D+00, .748593D+00, .639741D+00,
2274 + .543132D+00, .457825D+00, .382892D+00, .317478D+00,
2275 + .260740D+00, .211915D+00, .170250D+00, .134933D+00,
2276 + .105606D+00, .811793D-01, .612527D-01, .452444D-01 /
2277 DATA (UPDI(I),I=8269,8320) /
2278 + .326009D-01, .228209D-01, .154261D-01, .100119D-01,
2279 + .615534D-02, .355218D-02, .188161D-02, .887699D-03,
2280 + .354246D-03, .109088D-03, .216579D-04, .176514D-05,
2281 + .000000D+00, .657604D+06, .502177D+06, .377567D+06,
2282 + .283775D+06, .213224D+06, .160150D+06, .120255D+06,
2283 + .902654D+05, .677384D+05, .508164D+05, .381144D+05,
2284 + .285794D+05, .214272D+05, .160618D+05, .120398D+05,
2285 + .902444D+04, .676533D+04, .507245D+04, .380471D+04,
2286 + .285504D+04, .214406D+04, .161150D+04, .121274D+04,
2287 + .913977D+03, .690152D+03, .522316D+03, .396512D+03,
2288 + .300840D+03, .230105D+03, .176824D+03, .136642D+03,
2289 + .106250D+03, .832085D+02, .657205D+02, .523310D+02,
2290 + .420563D+02, .341342D+02, .279818D+02, .231734D+02 /
2291 DATA (UPDI(I),I=8321,8372) /
2292 + .193801D+02, .163675D+02, .139453D+02, .119797D+02,
2293 + .103661D+02, .902746D+01, .790414D+01, .695504D+01,
2294 + .613663D+01, .543332D+01, .481594D+01, .427561D+01,
2295 + .379766D+01, .337278D+01, .299335D+01, .265342D+01,
2296 + .234812D+01, .207349D+01, .182629D+01, .160378D+01,
2297 + .140365D+01, .122387D+01, .106272D+01, .918441D+00,
2298 + .790306D+00, .675651D+00, .574146D+00, .484652D+00,
2299 + .406154D+00, .337665D+00, .278285D+00, .227136D+00,
2300 + .183431D+00, .146407D+00, .115249D+00, .895724D-01,
2301 + .683521D-01, .511807D-01, .375018D-01, .267931D-01,
2302 + .185864D-01, .124418D-01, .799071D-02, .485625D-02,
2303 + .276698D-02, .144478D-02, .670514D-03, .262498D-03,
2304 + .790575D-04, .153656D-04, .126840D-05, .000000D+00 /
2305 DATA (UPDI(I),I=8373,8424) /
2306 + .846650D+06, .644119D+06, .482160D+06, .360771D+06,
2307 + .269849D+06, .201749D+06, .150783D+06, .112642D+06,
2308 + .841215D+05, .627962D+05, .468637D+05, .349607D+05,
2309 + .260752D+05, .194424D+05, .144951D+05, .108049D+05,
2310 + .805452D+04, .600437D+04, .447730D+04, .333963D+04,
2311 + .249263D+04, .186178D+04, .139217D+04, .104238D+04,
2312 + .781895D+03, .587755D+03, .443142D+03, .333863D+03,
2313 + .253584D+03, .193504D+03, .148488D+03, .114660D+03,
2314 + .891793D+02, .699644D+02, .553446D+02, .441951D+02,
2315 + .356491D+02, .290500D+02, .239199D+02, .198933D+02,
2316 + .167103D+02, .141625D+02, .121033D+02, .104194D+02,
2317 + .902785D+01, .786445D+01, .688520D+01, .604411D+01,
2318 + .532424D+01, .469509D+01, .414694D+01, .366442D+01 /
2319 DATA (UPDI(I),I=8425,8476) /
2320 + .323763D+01, .285851D+01, .252069D+01, .221900D+01,
2321 + .194919D+01, .170776D+01, .149175D+01, .129864D+01,
2322 + .112624D+01, .972682D+00, .836044D+00, .715465D+00,
2323 + .608260D+00, .513963D+00, .431367D+00, .359397D+00,
2324 + .297022D+00, .243307D+00, .197356D+00, .158368D+00,
2325 + .125577D+00, .981815D-01, .757746D-01, .574001D-01,
2326 + .426513D-01, .310008D-01, .219603D-01, .150961D-01,
2327 + .100070D-01, .635964D-02, .382044D-02, .214913D-02,
2328 + .110614D-02, .504996D-03, .193967D-03, .571516D-04,
2329 + .108823D-04, .909745D-06, .000000D+00, .107628D+07,
2330 + .815852D+06, .608108D+06, .453045D+06, .337382D+06,
2331 + .251115D+06, .186829D+06, .138928D+06, .103267D+06,
2332 + .767220D+05, .569792D+05, .422976D+05, .313892D+05 /
2333 DATA (UPDI(I),I=8477,8528) /
2334 + .232851D+05, .172696D+05, .128047D+05, .949355D+04,
2335 + .703800D+04, .521845D+04, .387004D+04, .287153D+04,
2336 + .213192D+04, .158440D+04, .117890D+04, .878678D+03,
2337 + .656228D+03, .491523D+03, .367822D+03, .277509D+03,
2338 + .210341D+03, .160326D+03, .122978D+03, .950201D+02,
2339 + .740676D+02, .582217D+02, .462090D+02, .370533D+02,
2340 + .300222D+02, .245841D+02, .203365D+02, .169938D+02,
2341 + .143294D+02, .121845D+02, .104372D+02, .899840D+01,
2342 + .779994D+01, .679489D+01, .593497D+01, .520193D+01,
2343 + .456401D+01, .401071D+01, .352597D+01, .309933D+01,
2344 + .272231D+01, .238816D+01, .209140D+01, .182750D+01,
2345 + .159273D+01, .138392D+01, .119838D+01, .103374D+01,
2346 + .887982D+00, .759090D+00, .646055D+00, .546193D+00 /
2347 DATA (UPDI(I),I=8529,8580) /
2348 + .458915D+00, .382961D+00, .317209D+00, .260601D+00,
2349 + .212178D+00, .171038D+00, .136375D+00, .107430D+00,
2350 + .834219D-01, .639327D-01, .480744D-01, .354477D-01,
2351 + .255571D-01, .179497D-01, .122271D-01, .802602D-02,
2352 + .504704D-02, .299685D-02, .166435D-02, .844376D-03,
2353 + .379215D-03, .142919D-03, .412114D-04, .769326D-05,
2354 + .651243D-06, .000000D+00, .135213D+07, .102135D+07,
2355 + .758123D+06, .562435D+06, .417059D+06, .309076D+06,
2356 + .228941D+06, .169483D+06, .125408D+06, .927417D+05,
2357 + .685536D+05, .506469D+05, .374027D+05, .276089D+05,
2358 + .203732D+05, .150284D+05, .110839D+05, .817316D+04,
2359 + .602714D+04, .444494D+04, .327940D+04, .242065D+04,
2360 + .178837D+04, .132267D+04, .979802D+03, .727190D+03 /
2361 DATA (UPDI(I),I=8581,8632) /
2362 + .541238D+03, .402407D+03, .301652D+03, .227169D+03,
2363 + .172039D+03, .131121D+03, .100673D+03, .779910D+02,
2364 + .609363D+02, .480809D+02, .383361D+02, .308920D+02,
2365 + .251625D+02, .207082D+02, .172176D+02, .144467D+02,
2366 + .122243D+02, .104206D+02, .894059D+01, .771215D+01,
2367 + .668570D+01, .581077D+01, .506789D+01, .442413D+01,
2368 + .386823D+01, .338350D+01, .295894D+01, .258568D+01,
2369 + .225662D+01, .196597D+01, .170894D+01, .148161D+01,
2370 + .128059D+01, .110302D+01, .946402D+00, .808592D+00,
2371 + .687465D+00, .581895D+00, .489211D+00, .408719D+00,
2372 + .339119D+00, .279258D+00, .228060D+00, .184557D+00,
2373 + .147847D+00, .117132D+00, .916652D-01, .706945D-01,
2374 + .537983D-01, .401560D-01, .293812D-01, .210118D-01 /
2375 DATA (UPDI(I),I=8633,8684) /
2376 + .146311D-01, .987559D-02, .641895D-02, .399385D-02,
2377 + .234398D-02, .128513D-02, .642646D-03, .283920D-03,
2378 + .105005D-03, .296421D-04, .542881D-05, .465277D-06,
2379 + .000000D+00, .168000D+07, .126468D+07, .934935D+06,
2380 + .690768D+06, .510091D+06, .376427D+06, .277637D+06,
2381 + .204640D+06, .150754D+06, .110986D+06, .816654D+05,
2382 + .600544D+05, .441410D+05, .324265D+05, .238114D+05,
2383 + .174772D+05, .128246D+05, .940791D+04, .690112D+04,
2384 + .506216D+04, .371431D+04, .272637D+04, .200277D+04,
2385 + .147264D+04, .108447D+04, .800035D+03, .591840D+03,
2386 + .437292D+03, .325779D+03, .243822D+03, .183510D+03,
2387 + .139008D+03, .106085D+03, .816988D+02, .634652D+02,
2388 + .497964D+02, .394890D+02, .316546D+02, .256528D+02 /
2389 DATA (UPDI(I),I=8685,8736) /
2390 + .210075D+02, .173821D+02, .145152D+02, .122242D+02,
2391 + .103713D+02, .885608D+01, .760279D+01, .655928D+01,
2392 + .567310D+01, .492361D+01, .427684D+01, .372077D+01,
2393 + .323815D+01, .281748D+01, .244951D+01, .212680D+01,
2394 + .184330D+01, .159399D+01, .137473D+01, .118196D+01,
2395 + .101268D+01, .864257D+00, .734442D+00, .621028D+00,
2396 + .522785D+00, .437068D+00, .363094D+00, .299536D+00,
2397 + .245223D+00, .199074D+00, .160120D+00, .127471D+00,
2398 + .100343D+00, .780101D-01, .597517D-01, .451507D-01,
2399 + .334524D-01, .242872D-01, .172278D-01, .118931D-01,
2400 + .795410D-02, .511917D-02, .315139D-02, .182802D-02,
2401 + .989403D-03, .487669D-03, .211949D-03, .769318D-04,
2402 + .212674D-04, .382388D-05, .331763D-06, .000000D+00 /
2403 DATA (UPDI(I),I=8737,8788) /
2404 + .206572D+07, .154987D+07, .114123D+07, .839816D+06,
2405 + .617637D+06, .453917D+06, .333392D+06, .244695D+06,
2406 + .179486D+06, .131562D+06, .963761D+05, .705527D+05,
2407 + .516196D+05, .377436D+05, .275842D+05, .201487D+05,
2408 + .147122D+05, .107385D+05, .783694D+04, .571870D+04,
2409 + .417379D+04, .304707D+04, .222604D+04, .162765D+04,
2410 + .119179D+04, .874114D+03, .642856D+03, .472142D+03,
2411 + .349653D+03, .260135D+03, .194628D+03, .146566D+03,
2412 + .111205D+03, .851593D+02, .657885D+02, .513437D+02,
2413 + .405052D+02, .323067D+02, .260540D+02, .212348D+02,
2414 + .174882D+02, .145365D+02, .121857D+02, .102910D+02,
2415 + .874667D+01, .747360D+01, .641731D+01, .552355D+01,
2416 + .477058D+01, .412349D+01, .356956D+01, .309101D+01 /
2417 DATA (UPDI(I),I=8789,8840) /
2418 + .267588D+01, .231458D+01, .199936D+01, .172392D+01,
2419 + .148303D+01, .127236D+01, .108820D+01, .927414D+00,
2420 + .787274D+00, .665429D+00, .559613D+00, .468508D+00,
2421 + .389508D+00, .321754D+00, .263910D+00, .214794D+00,
2422 + .173332D+00, .138566D+00, .109624D+00, .857407D-01,
2423 + .662177D-01, .503714D-01, .377937D-01, .277941D-01,
2424 + .200228D-01, .140871D-01, .964115D-02, .638876D-02,
2425 + .407117D-02, .247959D-02, .142154D-02, .759520D-03,
2426 + .368988D-03, .157765D-03, .562079D-04, .152214D-04,
2427 + .268860D-05, .236104D-06, .000000D+00, .251507D+07,
2428 + .188087D+07, .137960D+07, .101125D+07, .740768D+06,
2429 + .542221D+06, .396624D+06, .289901D+06, .211752D+06,
2430 + .154551D+06, .112727D+06, .821599D+05, .598434D+05 /
2431 DATA (UPDI(I),I=8841,8892) /
2432 + .435581D+05, .316866D+05, .230364D+05, .167403D+05,
2433 + .121594D+05, .882990D+04, .641075D+04, .465483D+04,
2434 + .338047D+04, .245644D+04, .178638D+04, .130082D+04,
2435 + .948746D+03, .693804D+03, .506620D+03, .373044D+03,
2436 + .275953D+03, .205288D+03, .153725D+03, .115991D+03,
2437 + .883452D+02, .678903D+02, .527136D+02, .413803D+02,
2438 + .328467D+02, .263660D+02, .213911D+02, .175376D+02,
2439 + .145123D+02, .121110D+02, .101817D+02, .861429D+01,
2440 + .732642D+01, .626152D+01, .536372D+01, .461025D+01,
2441 + .396539D+01, .341575D+01, .294308D+01, .253501D+01,
2442 + .218161D+01, .187488D+01, .160828D+01, .137638D+01,
2443 + .117471D+01, .999407D+00, .847242D+00, .715385D+00,
2444 + .601418D+00, .503031D+00, .418832D+00, .346267D+00 /
2445 DATA (UPDI(I),I=8893,8944) /
2446 + .284417D+00, .231944D+00, .187674D+00, .150543D+00,
2447 + .119613D+00, .940375D-01, .730775D-01, .560645D-01,
2448 + .423545D-01, .315535D-01, .230326D-01, .164636D-01,
2449 + .114883D-01, .779452D-02, .511748D-02, .322878D-02,
2450 + .194555D-02, .110233D-02, .581388D-03, .278392D-03,
2451 + .117100D-03, .409559D-04, .108685D-04, .188709D-05,
2452 + .167710D-06, .000000D+00, .506631D+05, .755231D+05,
2453 + .586802D+05, .455974D+05, .354349D+05, .275406D+05,
2454 + .214078D+05, .166434D+05, .129416D+05, .100654D+05,
2455 + .783033D+04, .609338D+04, .474336D+04, .369394D+04,
2456 + .287806D+04, .224362D+04, .175018D+04, .136630D+04,
2457 + .106758D+04, .835035D+03, .653944D+03, .512855D+03,
2458 + .402875D+03, .317092D+03, .250133D+03, .197824D+03 /
2459 DATA (UPDI(I),I=8945,8996) /
2460 + .156919D+03, .124495D+03, .994862D+02, .798476D+02,
2461 + .643972D+02, .522156D+02, .425868D+02, .349734D+02,
2462 + .289001D+02, .240506D+02, .201597D+02, .170203D+02,
2463 + .144711D+02, .123853D+02, .106674D+02, .923816D+01,
2464 + .803878D+01, .702309D+01, .615527D+01, .540760D+01,
2465 + .476078D+01, .419192D+01, .369493D+01, .325342D+01,
2466 + .286376D+01, .251769D+01, .220988D+01, .193590D+01,
2467 + .169203D+01, .147508D+01, .128228D+01, .111122D+01,
2468 + .959750D+00, .825923D+00, .707989D+00, .604352D+00,
2469 + .513555D+00, .434610D+00, .365491D+00, .305607D+00,
2470 + .253941D+00, .209571D+00, .171660D+00, .139449D+00,
2471 + .112250D+00, .894416D-01, .704523D-01, .547669D-01,
2472 + .420535D-01, .317127D-01, .234738D-01, .170056D-01 /
2473 DATA (UPDI(I),I=8997,9048) /
2474 + .120142D-01, .824008D-02, .545497D-02, .346206D-02,
2475 + .207823D-02, .116819D-02, .600822D-03, .273690D-03,
2476 + .104562D-03, .302482D-04, .526694D-05, .264960D-06,
2477 + .000000D+00, .128425D+06, .100442D+06, .776366D+05,
2478 + .600105D+05, .463905D+05, .358630D+05, .277279D+05,
2479 + .214397D+05, .165803D+05, .128239D+05, .992076D+04,
2480 + .767636D+04, .594156D+04, .460017D+04, .356316D+04,
2481 + .276113D+04, .214091D+04, .166106D+04, .128983D+04,
2482 + .100247D+04, .780041D+03, .607738D+03, .474248D+03,
2483 + .370738D+03, .290446D+03, .228100D+03, .179665D+03,
2484 + .141504D+03, .112262D+03, .894389D+02, .716024D+02,
2485 + .576261D+02, .466513D+02, .380270D+02, .311925D+02,
2486 + .257680D+02, .214439D+02, .179754D+02, .151768D+02 /
2487 DATA (UPDI(I),I=9049,9100) /
2488 + .129001D+02, .110370D+02, .949572D+01, .821053D+01,
2489 + .712863D+01, .621019D+01, .542375D+01, .474784D+01,
2490 + .415710D+01, .364442D+01, .319185D+01, .279501D+01,
2491 + .244477D+01, .213521D+01, .186137D+01, .161909D+01,
2492 + .140483D+01, .121553D+01, .104852D+01, .901463D+00,
2493 + .772251D+00, .658995D+00, .560015D+00, .473734D+00,
2494 + .399113D+00, .334113D+00, .278090D+00, .230003D+00,
2495 + .188924D+00, .154007D+00, .124498D+00, .997128D-01,
2496 + .790433D-01, .619347D-01, .478813D-01, .365587D-01,
2497 + .274058D-01, .201598D-01, .145095D-01, .101796D-01,
2498 + .693062D-02, .455140D-02, .286392D-02, .170282D-02,
2499 + .947766D-03, .482181D-03, .216927D-03, .816603D-04,
2500 + .232203D-04, .397942D-05, .203041D-06, .000000D+00 /
2501 DATA (UPDI(I),I=9101,9152) /
2502 + .169195D+06, .131774D+06, .101366D+06, .779712D+05,
2503 + .599790D+05, .461367D+05, .354918D+05, .273027D+05,
2504 + .210056D+05, .161614D+05, .124365D+05, .957113D+04,
2505 + .736780D+04, .567278D+04, .436933D+04, .336647D+04,
2506 + .259517D+04, .200161D+04, .154497D+04, .119344D+04,
2507 + .922882D+03, .714480D+03, .553968D+03, .430222D+03,
2508 + .334809D+03, .261159D+03, .204301D+03, .159773D+03,
2509 + .125865D+03, .995621D+02, .791370D+02, .632307D+02,
2510 + .508200D+02, .411271D+02, .334947D+02, .274736D+02,
2511 + .227039D+02, .189006D+02, .158508D+02, .133840D+02,
2512 + .113776D+02, .972737D+01, .835956D+01, .721482D+01,
2513 + .624894D+01, .542679D+01, .472453D+01, .411442D+01,
2514 + .358823D+01, .312651D+01, .272413D+01, .237111D+01 /
2515 DATA (UPDI(I),I=9153,9204) /
2516 + .206095D+01, .178816D+01, .154820D+01, .133718D+01,
2517 + .115177D+01, .989083D+00, .846589D+00, .722050D+00,
2518 + .613454D+00, .519044D+00, .437147D+00, .366679D+00,
2519 + .305598D+00, .253219D+00, .208483D+00, .170461D+00,
2520 + .138306D+00, .111272D+00, .886829D-01, .699463D-01,
2521 + .545251D-01, .419267D-01, .318355D-01, .237272D-01,
2522 + .173479D-01, .124063D-01, .864545D-02, .584423D-02,
2523 + .380835D-02, .237671D-02, .140035D-02, .771244D-03,
2524 + .387601D-03, .172004D-03, .637289D-04, .177937D-04,
2525 + .299787D-05, .155313D-06, .000000D+00, .219763D+06,
2526 + .170496D+06, .130568D+06, .999787D+05, .765560D+05,
2527 + .586138D+05, .448777D+05, .343576D+05, .263051D+05,
2528 + .201389D+05, .154198D+05, .118067D+05, .904180D+04 /
2529 DATA (UPDI(I),I=9205,9256) /
2530 + .692508D+04, .530545D+04, .406552D+04, .311677D+04,
2531 + .239038D+04, .183450D+04, .140881D+04, .108297D+04,
2532 + .833342D+03, .642151D+03, .495572D+03, .383202D+03,
2533 + .296961D+03, .230780D+03, .179254D+03, .140254D+03,
2534 + .110181D+03, .869717D+02, .690063D+02, .550753D+02,
2535 + .442609D+02, .357979D+02, .291613D+02, .239361D+02,
2536 + .197939D+02, .164920D+02, .138368D+02, .116896D+02,
2537 + .993372D+01, .848668D+01, .728250D+01, .627237D+01,
2538 + .541746D+01, .469149D+01, .406440D+01, .352676D+01,
2539 + .305770D+01, .265128D+01, .229676D+01, .198703D+01,
2540 + .171614D+01, .147915D+01, .127187D+01, .109069D+01,
2541 + .932564D+00, .794766D+00, .674943D+00, .570980D+00,
2542 + .481053D+00, .403416D+00, .336939D+00, .279595D+00 /
2543 DATA (UPDI(I),I=9257,9308) /
2544 + .230660D+00, .189069D+00, .153893D+00, .124292D+00,
2545 + .995302D-01, .789449D-01, .619594D-01, .480561D-01,
2546 + .367582D-01, .277602D-01, .205726D-01, .149522D-01,
2547 + .106265D-01, .735628D-02, .493805D-02, .319356D-02,
2548 + .197699D-02, .115452D-02, .629718D-03, .313061D-03,
2549 + .137256D-03, .501496D-04, .137867D-04, .229478D-05,
2550 + .120962D-06, .000000D+00, .177906D+06, .217731D+06,
2551 + .166044D+06, .126603D+06, .965257D+05, .735797D+05,
2552 + .560864D+05, .427449D+05, .325767D+05, .248241D+05,
2553 + .189172D+05, .144148D+05, .109851D+05, .837153D+04,
2554 + .638111D+04, .486452D+04, .370972D+04, .282988D+04,
2555 + .215995D+04, .164951D+04, .126081D+04, .964571D+03,
2556 + .738890D+03, .566797D+03, .435590D+03, .335449D+03 /
2557 DATA (UPDI(I),I=9309,9360) /
2558 + .259040D+03, .199888D+03, .155376D+03, .121252D+03,
2559 + .950720D+02, .749261D+02, .593970D+02, .474134D+02,
2560 + .380912D+02, .308238D+02, .251355D+02, .206522D+02,
2561 + .170990D+02, .142578D+02, .119732D+02, .101152D+02,
2562 + .859252D+01, .733241D+01, .628124D+01, .539651D+01,
2563 + .464941D+01, .400764D+01, .346049D+01, .298579D+01,
2564 + .257675D+01, .222188D+01, .191353D+01, .164530D+01,
2565 + .141185D+01, .120873D+01, .103210D+01, .878714D+00,
2566 + .745711D+00, .630626D+00, .531257D+00, .445721D+00,
2567 + .372217D+00, .309579D+00, .255799D+00, .210123D+00,
2568 + .171486D+00, .138966D+00, .111732D+00, .890621D-01,
2569 + .703092D-01, .549152D-01, .423818D-01, .322505D-01,
2570 + .242264D-01, .178538D-01, .129003D-01, .911205D-02 /
2571 DATA (UPDI(I),I=9361,9412) /
2572 + .626699D-02, .417793D-02, .268191D-02, .164710D-02,
2573 + .953494D-03, .515134D-03, .253383D-03, .109779D-03,
2574 + .395718D-04, .107199D-04, .176396D-05, .946019D-07,
2575 + .000000D+00, .379753D+06, .292292D+06, .221793D+06,
2576 + .168256D+06, .127623D+06, .967775D+05, .733771D+05,
2577 + .556212D+05, .421572D+05, .319456D+05, .242058D+05,
2578 + .183382D+05, .138928D+05, .105240D+05, .797283D+04,
2579 + .604019D+04, .457706D+04, .346897D+04, .263027D+04,
2580 + .199518D+04, .151454D+04, .115057D+04, .875057D+03,
2581 + .666348D+03, .508276D+03, .388448D+03, .297648D+03,
2582 + .227847D+03, .175693D+03, .135997D+03, .105760D+03,
2583 + .826625D+02, .649872D+02, .514483D+02, .409926D+02,
2584 + .329016D+02, .266142D+02, .216944D+02, .178228D+02 /
2585 DATA (UPDI(I),I=9413,9464) /
2586 + .147489D+02, .122943D+02, .103118D+02, .869815D+01,
2587 + .737190D+01, .627304D+01, .535447D+01, .458406D+01,
2588 + .392676D+01, .337018D+01, .289057D+01, .248008D+01,
2589 + .212633D+01, .182098D+01, .155709D+01, .132890D+01,
2590 + .113161D+01, .961115D+00, .813974D+00, .687162D+00,
2591 + .578095D+00, .484483D+00, .404382D+00, .335942D+00,
2592 + .277959D+00, .228464D+00, .186673D+00, .151529D+00,
2593 + .122123D+00, .976441D-01, .773908D-01, .607397D-01,
2594 + .471575D-01, .361714D-01, .273487D-01, .204088D-01,
2595 + .149364D-01, .107141D-01, .751013D-02, .512349D-02,
2596 + .338622D-02, .215345D-02, .130931D-02, .749553D-03,
2597 + .400000D-03, .194026D-03, .827259D-04, .292590D-04,
2598 + .774793D-05, .124499D-05, .674507D-07, .000000D+00 /
2599 DATA (UPDI(I),I=9465,9516) /
2600 + .503454D+06, .385927D+06, .291456D+06, .220041D+06,
2601 + .166087D+06, .125320D+06, .945383D+05, .712944D+05,
2602 + .537546D+05, .405178D+05, .305353D+05, .230063D+05,
2603 + .173318D+05, .130544D+05, .983239D+04, .740494D+04,
2604 + .557738D+04, .420112D+04, .316541D+04, .238573D+04,
2605 + .179916D+04, .135767D+04, .102552D+04, .775488D+03,
2606 + .587321D+03, .445599D+03, .338920D+03, .257463D+03,
2607 + .197012D+03, .151319D+03, .116753D+03, .905356D+02,
2608 + .706122D+02, .554597D+02, .438399D+02, .349117D+02,
2609 + .280219D+02, .226685D+02, .184842D+02, .151847D+02,
2610 + .125674D+02, .104677D+02, .876968D+01, .738330D+01,
2611 + .624210D+01, .529436D+01, .450465D+01, .383529D+01,
2612 + .327219D+01, .279014D+01, .238022D+01, .202925D+01 /
2613 DATA (UPDI(I),I=9517,9568) /
2614 + .172822D+01, .146971D+01, .124757D+01, .105670D+01,
2615 + .892757D+00, .752125D+00, .631644D+00, .528635D+00,
2616 + .440743D+00, .365974D+00, .302454D+00, .248949D+00,
2617 + .203539D+00, .165421D+00, .133551D+00, .107043D+00,
2618 + .851077D-01, .670687D-01, .523293D-01, .403828D-01,
2619 + .307832D-01, .231244D-01, .171417D-01, .124577D-01,
2620 + .887078D-02, .617023D-02, .417518D-02, .273563D-02,
2621 + .172354D-02, .103749D-02, .587467D-03, .309773D-03,
2622 + .148274D-03, .622898D-04, .216683D-04, .563678D-05,
2623 + .893726D-06, .494969D-07, .000000D+00, .657287D+06,
2624 + .501894D+06, .377315D+06, .283551D+06, .213024D+06,
2625 + .159973D+06, .120097D+06, .901252D+05, .676138D+05,
2626 + .507058D+05, .380162D+05, .284923D+05, .213499D+05 /
2627 DATA (UPDI(I),I=9569,9620) /
2628 + .159933D+05, .119791D+05, .897071D+04, .671777D+04,
2629 + .503037D+04, .376750D+04, .282214D+04, .211497D+04,
2630 + .158579D+04, .119003D+04, .893899D+03, .672398D+03,
2631 + .506604D+03, .382599D+03, .288524D+03, .219165D+03,
2632 + .167086D+03, .127951D+03, .984690D+02, .762156D+02,
2633 + .594070D+02, .466041D+02, .368342D+02, .293453D+02,
2634 + .235655D+02, .190776D+02, .155619D+02, .127910D+02,
2635 + .105822D+02, .880726D+01, .736723D+01, .618926D+01,
2636 + .521713D+01, .441218D+01, .373418D+01, .316741D+01,
2637 + .268528D+01, .227786D+01, .193122D+01, .163574D+01,
2638 + .138356D+01, .116818D+01, .984229D+00, .827176D+00,
2639 + .693251D+00, .579189D+00, .482236D+00, .399989D+00,
2640 + .330425D+00, .271659D+00, .222440D+00, .180907D+00 /
2641 DATA (UPDI(I),I=9621,9672) /
2642 + .146244D+00, .117431D+00, .936058D-01, .740071D-01,
2643 + .579869D-01, .449775D-01, .344999D-01, .261356D-01,
2644 + .195061D-01, .143631D-01, .103653D-01, .732680D-02,
2645 + .505704D-02, .339405D-02, .220458D-02, .137603D-02,
2646 + .820053D-03, .459283D-03, .239303D-03, .113037D-03,
2647 + .467943D-04, .160147D-04, .409522D-05, .641379D-06,
2648 + .363194D-07, .000000D+00, .846312D+06, .643818D+06,
2649 + .481891D+06, .360532D+06, .269637D+06, .201560D+06,
2650 + .150615D+06, .112492D+06, .839890D+05, .626786D+05,
2651 + .467593D+05, .348681D+05, .259931D+05, .193697D+05,
2652 + .144307D+05, .107479D+05, .800407D+04, .595974D+04,
2653 + .443784D+04, .330474D+04, .246179D+04, .183453D+04,
2654 + .136807D+04, .102107D+04, .763052D+03, .571074D+03 /
2655 DATA (UPDI(I),I=9673,9724) /
2656 + .428364D+03, .320775D+03, .241954D+03, .183148D+03,
2657 + .139242D+03, .106381D+03, .817382D+02, .632479D+02,
2658 + .492560D+02, .386491D+02, .305711D+02, .243772D+02,
2659 + .195981D+02, .158780D+02, .129640D+02, .106555D+02,
2660 + .881156D+01, .732470D+01, .611573D+01, .512406D+01,
2661 + .430788D+01, .362461D+01, .305691D+01, .257694D+01,
2662 + .217382D+01, .183292D+01, .154409D+01, .129906D+01,
2663 + .109103D+01, .914416D+00, .764505D+00, .637415D+00,
2664 + .529799D+00, .438848D+00, .362134D+00, .297618D+00,
2665 + .243420D+00, .198284D+00, .160412D+00, .128985D+00,
2666 + .103013D+00, .816617D-01, .642019D-01, .500158D-01,
2667 + .385665D-01, .294035D-01, .221363D-01, .164141D-01,
2668 + .120056D-01, .860326D-02, .603661D-02, .413436D-02 /
2669 DATA (UPDI(I),I=9725,9776) /
2670 + .275214D-02, .177212D-02, .109579D-02, .646527D-03,
2671 + .358150D-03, .184393D-03, .859584D-04, .350686D-04,
2672 + .118100D-04, .296973D-05, .459581D-06, .266021D-07,
2673 + .000000D+00, .107592D+07, .815531D+06, .607822D+06,
2674 + .452791D+06, .337156D+06, .250914D+06, .186650D+06,
2675 + .138770D+06, .103127D+06, .765970D+05, .568684D+05,
2676 + .421993D+05, .313021D+05, .232079D+05, .172013D+05,
2677 + .127442D+05, .944006D+04, .699069D+04, .517662D+04,
2678 + .383306D+04, .283884D+04, .210302D+04, .155886D+04,
2679 + .115631D+04, .858697D+03, .638535D+03, .475843D+03,
2680 + .353932D+03, .265163D+03, .199346D+03, .150508D+03,
2681 + .114187D+03, .871213D+02, .669420D+02, .517682D+02,
2682 + .403385D+02, .316881D+02, .250967D+02, .200420D+02 /
2683 DATA (UPDI(I),I=9777,9828) /
2684 + .161313D+02, .130861D+02, .106879D+02, .878359D+01,
2685 + .725699D+01, .602290D+01, .501652D+01, .419309D+01,
2686 + .350779D+01, .294177D+01, .246605D+01, .206887D+01,
2687 + .173499D+01, .145377D+01, .121660D+01, .101641D+01,
2688 + .847444D+00, .704850D+00, .584654D+00, .483454D+00,
2689 + .398410D+00, .327084D+00, .267434D+00, .217603D+00,
2690 + .176335D+00, .141905D+00, .113495D+00, .901520D-01,
2691 + .710732D-01, .555637D-01, .430376D-01, .329901D-01,
2692 + .249996D-01, .187036D-01, .137786D-01, .100104D-01,
2693 + .712302D-02, .496117D-02, .337150D-02, .222596D-02,
2694 + .142084D-02, .870376D-03, .508399D-03, .278561D-03,
2695 + .141715D-03, .652004D-04, .262167D-04, .868980D-05,
2696 + .214943D-05, .328779D-06, .194475D-07, .000000D+00 /
2697 DATA (UPDI(I),I=9829,9880) /
2698 + .135174D+07, .102101D+07, .757819D+06, .562164D+06,
2699 + .416818D+06, .308862D+06, .228751D+06, .169315D+06,
2700 + .125258D+06, .926090D+05, .684360D+05, .505427D+05,
2701 + .373104D+05, .275271D+05, .203008D+05, .149643D+05,
2702 + .110272D+05, .812304D+04, .598282D+04, .440577D+04,
2703 + .324478D+04, .239005D+04, .176132D+04, .129874D+04,
2704 + .958634D+03, .708442D+03, .524622D+03, .387686D+03,
2705 + .288566D+03, .215514D+03, .161633D+03, .121807D+03,
2706 + .923087D+02, .704514D+02, .541159D+02, .418866D+02,
2707 + .326867D+02, .257189D+02, .204068D+02, .163211D+02,
2708 + .131577D+02, .106807D+02, .872476D+01, .716564D+01,
2709 + .591232D+01, .489600D+01, .406915D+01, .338492D+01,
2710 + .282302D+01, .235350D+01, .196375D+01, .163802D+01 /
2711 DATA (UPDI(I),I=9881,9932) /
2712 + .136524D+01, .113652D+01, .944560D+00, .783463D+00,
2713 + .648282D+00, .534979D+00, .440118D+00, .360847D+00,
2714 + .294733D+00, .239749D+00, .194069D+00, .156449D+00,
2715 + .125239D+00, .996317D-01, .787115D-01, .617119D-01,
2716 + .479739D-01, .369450D-01, .281526D-01, .212042D-01,
2717 + .157648D-01, .115380D-01, .832622D-02, .588283D-02,
2718 + .406712D-02, .274246D-02, .179580D-02, .113627D-02,
2719 + .689545D-03, .398742D-03, .216095D-03, .108633D-03,
2720 + .493298D-04, .195514D-04, .637961D-05, .155273D-05,
2721 + .234821D-06, .141901D-07, .000000D+00, .167959D+07,
2722 + .126431D+07, .934612D+06, .690480D+06, .509835D+06,
2723 + .376200D+06, .277435D+06, .204461D+06, .150595D+06,
2724 + .110845D+06, .815407D+05, .599438D+05, .440431D+05 /
2725 DATA (UPDI(I),I=9933,9984) /
2726 + .323398D+05, .237347D+05, .174094D+05, .127646D+05,
2727 + .935484D+04, .685421D+04, .502070D+04, .367767D+04,
2728 + .269398D+04, .197413D+04, .144732D+04, .106206D+04,
2729 + .780191D+03, .574251D+03, .421710D+03, .311929D+03,
2730 + .231489D+03, .172503D+03, .129160D+03, .972478D+02,
2731 + .737417D+02, .562773D+02, .432802D+02, .335595D+02,
2732 + .262399D+02, .206912D+02, .164475D+02, .131798D+02,
2733 + .106353D+02, .863677D+01, .705240D+01, .578565D+01,
2734 + .476404D+01, .393744D+01, .325721D+01, .270170D+01,
2735 + .224014D+01, .185916D+01, .154255D+01, .127891D+01,
2736 + .105910D+01, .875667D+00, .722583D+00, .594846D+00,
2737 + .488378D+00, .399733D+00, .326067D+00, .264968D+00,
2738 + .214435D+00, .172682D+00, .138486D+00, .110275D+00 /
2739 DATA (UPDI(I),I=9985,10036) /
2740 + .872592D-01, .685633D-01, .534587D-01, .413239D-01,
2741 + .316401D-01, .239674D-01, .179421D-01, .132559D-01,
2742 + .963826D-02, .690845D-02, .484658D-02, .332589D-02,
2743 + .222519D-02, .144510D-02, .906368D-03, .544881D-03,
2744 + .311930D-03, .167205D-03, .830606D-04, .372285D-04,
2745 + .145454D-04, .467324D-05, .111955D-05, .167446D-06,
2746 + .103346D-07, .000000D+00, .206529D+07, .154948D+07,
2747 + .114089D+07, .839510D+06, .617365D+06, .453676D+06,
2748 + .333178D+06, .244505D+06, .179318D+06, .131412D+06,
2749 + .962438D+05, .704355D+05, .515159D+05, .376518D+05,
2750 + .275030D+05, .200768D+05, .146486D+05, .106823D+05,
2751 + .778730D+04, .567483D+04, .413503D+04, .301282D+04,
2752 + .219576D+04, .160087D+04, .116810D+04, .853131D+03 /
2753 DATA (UPDI(I),I=10037,10088) /
2754 + .624261D+03, .455671D+03, .335016D+03, .247106D+03,
2755 + .183006D+03, .136175D+03, .101891D+03, .767826D+02,
2756 + .582340D+02, .445089D+02, .343012D+02, .266577D+02,
2757 + .208951D+02, .165117D+02, .131542D+02, .105535D+02,
2758 + .852159D+01, .691915D+01, .564465D+01, .462220D+01,
2759 + .379933D+01, .312581D+01, .257877D+01, .212675D+01,
2760 + .175570D+01, .144906D+01, .119514D+01, .984606D+00,
2761 + .809884D+00, .664879D+00, .544552D+00, .444812D+00,
2762 + .362225D+00, .293970D+00, .237669D+00, .191358D+00,
2763 + .153303D+00, .122307D+00, .968784D-01, .762487D-01,
2764 + .595866D-01, .462027D-01, .355132D-01, .270339D-01,
2765 + .203566D-01, .151460D-01, .111197D-01, .803203D-02,
2766 + .571823D-02, .398312D-02, .271306D-02, .180100D-02 /
2767 DATA (UPDI(I),I=10089,10140) /
2768 + .115997D-02, .721161D-03, .429475D-03, .243397D-03,
2769 + .129047D-03, .633479D-04, .280267D-04, .107957D-04,
2770 + .341590D-05, .805714D-06, .119217D-06, .751280D-08,
2771 + .000000D+00, .251460D+07, .188046D+07, .137923D+07,
2772 + .101093D+07, .740479D+06, .541965D+06, .396397D+06,
2773 + .289699D+06, .211573D+06, .154393D+06, .112587D+06,
2774 + .820357D+05, .597335D+05, .434608D+05, .316006D+05,
2775 + .229604D+05, .166731D+05, .121000D+05, .877741D+04,
2776 + .636438D+04, .461385D+04, .334426D+04, .242444D+04,
2777 + .175809D+04, .127579D+04, .926582D+03, .674167D+03,
2778 + .489232D+03, .357598D+03, .262211D+03, .193039D+03,
2779 + .142784D+03, .106195D+03, .795485D+02, .599714D+02,
2780 + .455650D+02, .349084D+02, .269718D+02, .210196D+02 /
2781 DATA (UPDI(I),I=10141,10192) /
2782 + .165155D+02, .130830D+02, .104378D+02, .838141D+01,
2783 + .676791D+01, .549111D+01, .447204D+01, .365615D+01,
2784 + .299184D+01, .245515D+01, .201407D+01, .165396D+01,
2785 + .135798D+01, .111422D+01, .913219D+00, .747319D+00,
2786 + .610389D+00, .497383D+00, .404222D+00, .327503D+00,
2787 + .264441D+00, .212708D+00, .170385D+00, .135796D+00,
2788 + .107778D+00, .849189D-01, .664781D-01, .516686D-01,
2789 + .398410D-01, .304501D-01, .230452D-01, .172499D-01,
2790 + .127559D-01, .930586D-02, .667766D-02, .472179D-02,
2791 + .326562D-02, .220778D-02, .145411D-02, .928809D-03,
2792 + .572377D-03, .337669D-03, .189448D-03, .993495D-04,
2793 + .481946D-04, .210486D-04, .799430D-05, .249163D-05,
2794 + .578811D-06, .847519D-07, .545175D-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