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