Line |
Branch |
Exec |
Source |
1 |
|
|
!OCL SCALAR |
2 |
|
|
!option! -Nv -NO |
3 |
|
|
!pgi$r opt=0 |
4 |
|
✗ |
SUBROUTINE SU_MCICA |
5 |
|
|
|
6 |
|
|
!**** *SU_MCICA* - INITIALIZE COMMON YOE_MCICA |
7 |
|
|
|
8 |
|
|
! PURPOSE. |
9 |
|
|
! -------- |
10 |
|
|
! INITIALIZE YOE_MCICA, THE COMMON THAT CONTAINS COEFFICIENTS |
11 |
|
|
! NEEDED TO RUN THE RAISANEN-COLE-BARKER VERSION OF McICA |
12 |
|
|
|
13 |
|
|
!** INTERFACE. |
14 |
|
|
! ---------- |
15 |
|
|
! *CALL* *SU_MCICA* FROM *SUECRAD* |
16 |
|
|
|
17 |
|
|
|
18 |
|
|
! IMPLICIT ARGUMENTS : |
19 |
|
|
! -------------------- |
20 |
|
|
! COMMON YOE_MCICA |
21 |
|
|
|
22 |
|
|
|
23 |
|
|
! METHOD. |
24 |
|
|
! ------- |
25 |
|
|
! SEE DOCUMENTATION |
26 |
|
|
|
27 |
|
|
! EXTERNALS. |
28 |
|
|
! ---------- |
29 |
|
|
|
30 |
|
|
! REFERENCE. |
31 |
|
|
! ---------- |
32 |
|
|
! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS |
33 |
|
|
|
34 |
|
|
! AUTHOR. |
35 |
|
|
! ------- |
36 |
|
|
! JEAN-JACQUES MORCRETTE *ECMWF* |
37 |
|
|
! from Jason Cole's XCW_DATA.dat |
38 |
|
|
|
39 |
|
|
! MODIFICATIONS. |
40 |
|
|
! -------------- |
41 |
|
|
! ORIGINAL : 2006-01-05 |
42 |
|
|
|
43 |
|
|
! ------------------------------------------------------------------ |
44 |
|
|
|
45 |
|
|
USE PARKIND1 ,ONLY : JPRB |
46 |
|
|
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
47 |
|
|
|
48 |
|
|
USE YOE_MCICA, ONLY : NMCI1, NMCI2, XCW |
49 |
|
|
|
50 |
|
|
IMPLICIT NONE |
51 |
|
|
|
52 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
53 |
|
|
|
54 |
|
|
! ---------------------------------------------------------------- |
55 |
|
|
|
56 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA',0,ZHOOK_HANDLE) |
57 |
|
|
|
58 |
|
✗ |
NMCI1 = 1000 |
59 |
|
✗ |
NMCI2 = 140 |
60 |
|
|
|
61 |
|
✗ |
CALL PART1 |
62 |
|
✗ |
CALL PART2 |
63 |
|
✗ |
CALL PART3 |
64 |
|
✗ |
CALL PART4 |
65 |
|
✗ |
CALL PART5 |
66 |
|
✗ |
CALL PART6 |
67 |
|
✗ |
CALL PART7 |
68 |
|
✗ |
CALL PART8 |
69 |
|
✗ |
CALL PART9 |
70 |
|
✗ |
CALL PART10 |
71 |
|
✗ |
CALL PART11 |
72 |
|
✗ |
CALL PART12 |
73 |
|
✗ |
CALL PART13 |
74 |
|
✗ |
CALL PART14 |
75 |
|
✗ |
CALL PART15 |
76 |
|
✗ |
CALL PART16 |
77 |
|
✗ |
CALL PART17 |
78 |
|
✗ |
CALL PART18 |
79 |
|
✗ |
CALL PART19 |
80 |
|
✗ |
CALL PART20 |
81 |
|
✗ |
CALL PART21 |
82 |
|
✗ |
CALL PART22 |
83 |
|
✗ |
CALL PART23 |
84 |
|
✗ |
CALL PART24 |
85 |
|
✗ |
CALL PART25 |
86 |
|
✗ |
CALL PART26 |
87 |
|
✗ |
CALL PART27 |
88 |
|
✗ |
CALL PART28 |
89 |
|
✗ |
CALL PART29 |
90 |
|
✗ |
CALL PART30 |
91 |
|
✗ |
CALL PART31 |
92 |
|
✗ |
CALL PART32 |
93 |
|
✗ |
CALL PART33 |
94 |
|
✗ |
CALL PART34 |
95 |
|
✗ |
CALL PART35 |
96 |
|
✗ |
CALL PART36 |
97 |
|
✗ |
CALL PART37 |
98 |
|
✗ |
CALL PART38 |
99 |
|
✗ |
CALL PART39 |
100 |
|
✗ |
CALL PART40 |
101 |
|
✗ |
CALL PART41 |
102 |
|
✗ |
CALL PART42 |
103 |
|
✗ |
CALL PART43 |
104 |
|
✗ |
CALL PART44 |
105 |
|
✗ |
CALL PART45 |
106 |
|
✗ |
CALL PART46 |
107 |
|
✗ |
CALL PART47 |
108 |
|
✗ |
CALL PART48 |
109 |
|
✗ |
CALL PART49 |
110 |
|
✗ |
CALL PART50 |
111 |
|
✗ |
CALL PART51 |
112 |
|
✗ |
CALL PART52 |
113 |
|
✗ |
CALL PART53 |
114 |
|
✗ |
CALL PART54 |
115 |
|
✗ |
CALL PART55 |
116 |
|
✗ |
CALL PART56 |
117 |
|
✗ |
CALL PART57 |
118 |
|
✗ |
CALL PART58 |
119 |
|
✗ |
CALL PART59 |
120 |
|
✗ |
CALL PART60 |
121 |
|
✗ |
CALL PART61 |
122 |
|
✗ |
CALL PART62 |
123 |
|
✗ |
CALL PART63 |
124 |
|
✗ |
CALL PART64 |
125 |
|
✗ |
CALL PART65 |
126 |
|
✗ |
CALL PART66 |
127 |
|
✗ |
CALL PART67 |
128 |
|
✗ |
CALL PART68 |
129 |
|
✗ |
CALL PART69 |
130 |
|
✗ |
CALL PART70 |
131 |
|
✗ |
CALL PART71 |
132 |
|
✗ |
CALL PART72 |
133 |
|
✗ |
CALL PART73 |
134 |
|
✗ |
CALL PART74 |
135 |
|
✗ |
CALL PART75 |
136 |
|
✗ |
CALL PART76 |
137 |
|
✗ |
CALL PART77 |
138 |
|
✗ |
CALL PART78 |
139 |
|
✗ |
CALL PART79 |
140 |
|
✗ |
CALL PART80 |
141 |
|
✗ |
CALL PART81 |
142 |
|
✗ |
CALL PART82 |
143 |
|
✗ |
CALL PART83 |
144 |
|
✗ |
CALL PART84 |
145 |
|
✗ |
CALL PART85 |
146 |
|
✗ |
CALL PART86 |
147 |
|
✗ |
CALL PART87 |
148 |
|
✗ |
CALL PART88 |
149 |
|
✗ |
CALL PART89 |
150 |
|
✗ |
CALL PART90 |
151 |
|
✗ |
CALL PART91 |
152 |
|
✗ |
CALL PART92 |
153 |
|
✗ |
CALL PART93 |
154 |
|
✗ |
CALL PART94 |
155 |
|
✗ |
CALL PART95 |
156 |
|
✗ |
CALL PART96 |
157 |
|
✗ |
CALL PART97 |
158 |
|
✗ |
CALL PART98 |
159 |
|
✗ |
CALL PART99 |
160 |
|
✗ |
CALL PART100 |
161 |
|
✗ |
CALL PART101 |
162 |
|
✗ |
CALL PART102 |
163 |
|
✗ |
CALL PART103 |
164 |
|
✗ |
CALL PART104 |
165 |
|
✗ |
CALL PART105 |
166 |
|
✗ |
CALL PART106 |
167 |
|
✗ |
CALL PART107 |
168 |
|
✗ |
CALL PART108 |
169 |
|
✗ |
CALL PART109 |
170 |
|
✗ |
CALL PART110 |
171 |
|
✗ |
CALL PART111 |
172 |
|
✗ |
CALL PART112 |
173 |
|
✗ |
CALL PART113 |
174 |
|
✗ |
CALL PART114 |
175 |
|
✗ |
CALL PART115 |
176 |
|
✗ |
CALL PART116 |
177 |
|
✗ |
CALL PART117 |
178 |
|
✗ |
CALL PART118 |
179 |
|
✗ |
CALL PART119 |
180 |
|
✗ |
CALL PART120 |
181 |
|
✗ |
CALL PART121 |
182 |
|
✗ |
CALL PART122 |
183 |
|
✗ |
CALL PART123 |
184 |
|
✗ |
CALL PART124 |
185 |
|
✗ |
CALL PART125 |
186 |
|
✗ |
CALL PART126 |
187 |
|
✗ |
CALL PART127 |
188 |
|
✗ |
CALL PART128 |
189 |
|
✗ |
CALL PART129 |
190 |
|
✗ |
CALL PART130 |
191 |
|
✗ |
CALL PART131 |
192 |
|
✗ |
CALL PART132 |
193 |
|
✗ |
CALL PART133 |
194 |
|
✗ |
CALL PART134 |
195 |
|
✗ |
CALL PART135 |
196 |
|
✗ |
CALL PART136 |
197 |
|
✗ |
CALL PART137 |
198 |
|
✗ |
CALL PART138 |
199 |
|
✗ |
CALL PART139 |
200 |
|
✗ |
CALL PART140 |
201 |
|
✗ |
CALL PART141 |
202 |
|
✗ |
CALL PART142 |
203 |
|
✗ |
CALL PART143 |
204 |
|
|
|
205 |
|
|
|
206 |
|
|
! ---------------------------------------------------------------- |
207 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA',1,ZHOOK_HANDLE) |
208 |
|
|
|
209 |
|
|
CONTAINS |
210 |
|
|
|
211 |
|
|
!option! -Nv -NO |
212 |
|
|
!pgi$r opt=0 |
213 |
|
✗ |
SUBROUTINE PART1 |
214 |
|
|
|
215 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
216 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART1',0,ZHOOK_HANDLE) |
217 |
|
|
|
218 |
|
|
XCW( 1, :) = (/ & |
219 |
|
|
& 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
220 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
221 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
222 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
223 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
224 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
225 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
226 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
227 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
228 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
229 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
230 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
231 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
232 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
233 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
234 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
235 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
236 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
237 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
238 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
239 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
240 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
241 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
242 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
243 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
244 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
245 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
246 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
247 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
248 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
249 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
250 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
251 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
252 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
253 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
254 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
255 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
256 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
257 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
258 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
259 |
|
|
XCW( 2, :) = (/ & |
260 |
|
|
& 0.719238E+00_JPRB, 0.657746E+00_JPRB, 0.599658E+00_JPRB, 0.544932E+00_JPRB & |
261 |
|
|
&, 0.493515E+00_JPRB, 0.445349E+00_JPRB, 0.400372E+00_JPRB & |
262 |
|
|
&, 0.358514E+00_JPRB, 0.319698E+00_JPRB, 0.283841E+00_JPRB, 0.250852E+00_JPRB & |
263 |
|
|
&, 0.220633E+00_JPRB, 0.193079E+00_JPRB, 0.168076E+00_JPRB & |
264 |
|
|
&, 0.145509E+00_JPRB, 0.125249E+00_JPRB, 0.107167E+00_JPRB, 0.911265E-01_JPRB & |
265 |
|
|
&, 0.769881E-01_JPRB, 0.646107E-01_JPRB, 0.538483E-01_JPRB & |
266 |
|
|
&, 0.445637E-01_JPRB, 0.366111E-01_JPRB, 0.298526E-01_JPRB, 0.241559E-01_JPRB & |
267 |
|
|
&, 0.193935E-01_JPRB, 0.154439E-01_JPRB, 0.122027E-01_JPRB & |
268 |
|
|
&, 0.956228E-02_JPRB, 0.743081E-02_JPRB, 0.572660E-02_JPRB, 0.437533E-02_JPRB & |
269 |
|
|
&, 0.331126E-02_JPRB, 0.248752E-02_JPRB, 0.185158E-02_JPRB & |
270 |
|
|
&, 0.136799E-02_JPRB, 0.992284E-03_JPRB, 0.723804E-03_JPRB, 0.521300E-03_JPRB & |
271 |
|
|
&, 0.369758E-03_JPRB, 0.262914E-03_JPRB, 0.182853E-03_JPRB & |
272 |
|
|
&, 0.120745E-03_JPRB, 0.781102E-04_JPRB, 0.565393E-04_JPRB, 0.338478E-04_JPRB & |
273 |
|
|
&, 0.222189E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
274 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
275 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
276 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
277 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
278 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
279 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
280 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
281 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
282 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
283 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
284 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
285 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
286 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
287 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
288 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
289 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
290 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
291 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
292 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
293 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
294 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
295 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
296 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
297 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
298 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
299 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
300 |
|
|
XCW( 3, :) = (/ & |
301 |
|
|
& 0.736354E+00_JPRB, 0.677916E+00_JPRB, 0.622423E+00_JPRB, 0.569848E+00_JPRB & |
302 |
|
|
&, 0.520155E+00_JPRB, 0.473308E+00_JPRB, 0.429266E+00_JPRB & |
303 |
|
|
&, 0.387977E+00_JPRB, 0.349393E+00_JPRB, 0.313452E+00_JPRB, 0.280090E+00_JPRB & |
304 |
|
|
&, 0.249239E+00_JPRB, 0.220818E+00_JPRB, 0.194749E+00_JPRB & |
305 |
|
|
&, 0.170941E+00_JPRB, 0.149301E+00_JPRB, 0.129726E+00_JPRB, 0.112113E+00_JPRB & |
306 |
|
|
&, 0.963518E-01_JPRB, 0.823288E-01_JPRB, 0.699278E-01_JPRB & |
307 |
|
|
&, 0.590260E-01_JPRB, 0.495089E-01_JPRB, 0.412566E-01_JPRB, 0.341524E-01_JPRB & |
308 |
|
|
&, 0.280759E-01_JPRB, 0.229205E-01_JPRB, 0.185757E-01_JPRB & |
309 |
|
|
&, 0.149503E-01_JPRB, 0.119426E-01_JPRB, 0.946786E-02_JPRB, 0.744832E-02_JPRB & |
310 |
|
|
&, 0.581849E-02_JPRB, 0.450936E-02_JPRB, 0.346636E-02_JPRB & |
311 |
|
|
&, 0.264227E-02_JPRB, 0.200318E-02_JPRB, 0.149628E-02_JPRB, 0.111280E-02_JPRB & |
312 |
|
|
&, 0.822026E-03_JPRB, 0.600133E-03_JPRB, 0.442133E-03_JPRB & |
313 |
|
|
&, 0.309012E-03_JPRB, 0.225682E-03_JPRB, 0.161253E-03_JPRB, 0.105391E-03_JPRB & |
314 |
|
|
&, 0.710947E-04_JPRB, 0.475598E-04_JPRB, 0.356538E-04_JPRB & |
315 |
|
|
&, 0.231398E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
316 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
317 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
318 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
319 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
320 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
321 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
322 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
323 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
324 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
325 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
326 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
327 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
328 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
329 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
330 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
331 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
332 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
333 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
334 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
335 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
336 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
337 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
338 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
339 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
340 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
341 |
|
|
XCW( 4, :) = (/ & |
342 |
|
|
& 0.747015E+00_JPRB, 0.690526E+00_JPRB, 0.636713E+00_JPRB, 0.585555E+00_JPRB & |
343 |
|
|
&, 0.537027E+00_JPRB, 0.491103E+00_JPRB, 0.447751E+00_JPRB & |
344 |
|
|
&, 0.406935E+00_JPRB, 0.368614E+00_JPRB, 0.332744E+00_JPRB, 0.299273E+00_JPRB & |
345 |
|
|
&, 0.268143E+00_JPRB, 0.239300E+00_JPRB, 0.212671E+00_JPRB & |
346 |
|
|
&, 0.188187E+00_JPRB, 0.165768E+00_JPRB, 0.145335E+00_JPRB, 0.126795E+00_JPRB & |
347 |
|
|
&, 0.110061E+00_JPRB, 0.950281E-01_JPRB, 0.816072E-01_JPRB & |
348 |
|
|
&, 0.696853E-01_JPRB, 0.591577E-01_JPRB, 0.499224E-01_JPRB, 0.418719E-01_JPRB & |
349 |
|
|
&, 0.348996E-01_JPRB, 0.289033E-01_JPRB, 0.237772E-01_JPRB & |
350 |
|
|
&, 0.194313E-01_JPRB, 0.157732E-01_JPRB, 0.127163E-01_JPRB, 0.101803E-01_JPRB & |
351 |
|
|
&, 0.808838E-02_JPRB, 0.638520E-02_JPRB, 0.500403E-02_JPRB & |
352 |
|
|
&, 0.388864E-02_JPRB, 0.300453E-02_JPRB, 0.229808E-02_JPRB, 0.175444E-02_JPRB & |
353 |
|
|
&, 0.132569E-02_JPRB, 0.990042E-03_JPRB, 0.733823E-03_JPRB & |
354 |
|
|
&, 0.541578E-03_JPRB, 0.395958E-03_JPRB, 0.289236E-03_JPRB, 0.200782E-03_JPRB & |
355 |
|
|
&, 0.144408E-03_JPRB, 0.976396E-04_JPRB, 0.741345E-04_JPRB & |
356 |
|
|
&, 0.494195E-04_JPRB, 0.369174E-04_JPRB, 0.237836E-04_JPRB, 0.100000E-04_JPRB & |
357 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
358 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
359 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
360 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
361 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
362 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
363 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
364 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
365 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
366 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
367 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
368 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
369 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
370 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
371 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
372 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
373 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
374 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
375 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
376 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
377 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
378 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
379 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
380 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
381 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
382 |
|
|
XCW( 5, :) = (/ & |
383 |
|
|
& 0.754906E+00_JPRB, 0.699885E+00_JPRB, 0.647346E+00_JPRB, 0.597275E+00_JPRB & |
384 |
|
|
&, 0.549655E+00_JPRB, 0.504464E+00_JPRB, 0.461678E+00_JPRB & |
385 |
|
|
&, 0.421269E+00_JPRB, 0.383205E+00_JPRB, 0.347448E+00_JPRB, 0.313958E+00_JPRB & |
386 |
|
|
&, 0.282687E+00_JPRB, 0.253587E+00_JPRB, 0.226601E+00_JPRB & |
387 |
|
|
&, 0.201668E+00_JPRB, 0.178721E+00_JPRB, 0.157691E+00_JPRB, 0.138500E+00_JPRB & |
388 |
|
|
&, 0.121068E+00_JPRB, 0.105310E+00_JPRB, 0.911369E-01_JPRB & |
389 |
|
|
&, 0.784581E-01_JPRB, 0.671787E-01_JPRB, 0.572000E-01_JPRB, 0.484225E-01_JPRB & |
390 |
|
|
&, 0.407522E-01_JPRB, 0.340926E-01_JPRB, 0.283452E-01_JPRB & |
391 |
|
|
&, 0.234156E-01_JPRB, 0.192232E-01_JPRB, 0.156814E-01_JPRB, 0.127061E-01_JPRB & |
392 |
|
|
&, 0.102245E-01_JPRB, 0.817698E-02_JPRB, 0.649181E-02_JPRB & |
393 |
|
|
&, 0.511641E-02_JPRB, 0.400589E-02_JPRB, 0.311945E-02_JPRB, 0.240609E-02_JPRB & |
394 |
|
|
&, 0.183963E-02_JPRB, 0.140103E-02_JPRB, 0.105792E-02_JPRB & |
395 |
|
|
&, 0.796292E-03_JPRB, 0.588936E-03_JPRB, 0.440488E-03_JPRB, 0.320021E-03_JPRB & |
396 |
|
|
&, 0.229941E-03_JPRB, 0.160239E-03_JPRB, 0.112615E-03_JPRB & |
397 |
|
|
&, 0.756992E-04_JPRB, 0.503762E-04_JPRB, 0.375671E-04_JPRB, 0.241144E-04_JPRB & |
398 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
399 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
400 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
401 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
402 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
403 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
404 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
405 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
406 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
407 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
408 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
409 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
410 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
411 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
412 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
413 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
414 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
415 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
416 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
417 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
418 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
419 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
420 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
421 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
422 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
423 |
|
|
XCW( 6, :) = (/ & |
424 |
|
|
& 0.761234E+00_JPRB, 0.707403E+00_JPRB, 0.655904E+00_JPRB, 0.606728E+00_JPRB & |
425 |
|
|
&, 0.559862E+00_JPRB, 0.515289E+00_JPRB, 0.472990E+00_JPRB & |
426 |
|
|
&, 0.432943E+00_JPRB, 0.395121E+00_JPRB, 0.359494E+00_JPRB, 0.326027E+00_JPRB & |
427 |
|
|
&, 0.294681E+00_JPRB, 0.265414E+00_JPRB, 0.238177E+00_JPRB & |
428 |
|
|
&, 0.212918E+00_JPRB, 0.189579E+00_JPRB, 0.168099E+00_JPRB, 0.148410E+00_JPRB & |
429 |
|
|
&, 0.130440E+00_JPRB, 0.114114E+00_JPRB, 0.993501E-01_JPRB & |
430 |
|
|
&, 0.860705E-01_JPRB, 0.741787E-01_JPRB, 0.635961E-01_JPRB, 0.542272E-01_JPRB & |
431 |
|
|
&, 0.459791E-01_JPRB, 0.387641E-01_JPRB, 0.324933E-01_JPRB & |
432 |
|
|
&, 0.270715E-01_JPRB, 0.224207E-01_JPRB, 0.184534E-01_JPRB, 0.150929E-01_JPRB & |
433 |
|
|
&, 0.122657E-01_JPRB, 0.990682E-02_JPRB, 0.794784E-02_JPRB & |
434 |
|
|
&, 0.633488E-02_JPRB, 0.501679E-02_JPRB, 0.394081E-02_JPRB, 0.307780E-02_JPRB & |
435 |
|
|
&, 0.238441E-02_JPRB, 0.184363E-02_JPRB, 0.140363E-02_JPRB & |
436 |
|
|
&, 0.107316E-02_JPRB, 0.804619E-03_JPRB, 0.603376E-03_JPRB, 0.451184E-03_JPRB & |
437 |
|
|
&, 0.327692E-03_JPRB, 0.235359E-03_JPRB, 0.176750E-03_JPRB & |
438 |
|
|
&, 0.128259E-03_JPRB, 0.907523E-04_JPRB, 0.651343E-04_JPRB, 0.382287E-04_JPRB & |
439 |
|
|
&, 0.244511E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
440 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
441 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
442 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
443 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
444 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
445 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
446 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
447 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
448 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
449 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
450 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
451 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
452 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
453 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
454 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
455 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
456 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
457 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
458 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
459 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
460 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
461 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
462 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
463 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
464 |
|
|
XCW( 7, :) = (/ & |
465 |
|
|
& 0.766547E+00_JPRB, 0.713724E+00_JPRB, 0.663112E+00_JPRB, 0.614703E+00_JPRB & |
466 |
|
|
&, 0.568488E+00_JPRB, 0.524455E+00_JPRB, 0.482589E+00_JPRB & |
467 |
|
|
&, 0.442870E+00_JPRB, 0.405277E+00_JPRB, 0.369786E+00_JPRB, 0.336366E+00_JPRB & |
468 |
|
|
&, 0.304984E+00_JPRB, 0.275603E+00_JPRB, 0.248182E+00_JPRB & |
469 |
|
|
&, 0.222674E+00_JPRB, 0.199029E+00_JPRB, 0.177192E+00_JPRB, 0.157102E+00_JPRB & |
470 |
|
|
&, 0.138695E+00_JPRB, 0.121902E+00_JPRB, 0.106652E+00_JPRB & |
471 |
|
|
&, 0.928706E-01_JPRB, 0.804699E-01_JPRB, 0.693779E-01_JPRB, 0.595026E-01_JPRB & |
472 |
|
|
&, 0.507622E-01_JPRB, 0.430706E-01_JPRB, 0.363401E-01_JPRB & |
473 |
|
|
&, 0.304850E-01_JPRB, 0.254259E-01_JPRB, 0.210818E-01_JPRB, 0.173745E-01_JPRB & |
474 |
|
|
&, 0.142335E-01_JPRB, 0.115880E-01_JPRB, 0.937665E-02_JPRB & |
475 |
|
|
&, 0.753475E-02_JPRB, 0.601814E-02_JPRB, 0.478173E-02_JPRB, 0.376956E-02_JPRB & |
476 |
|
|
&, 0.294974E-02_JPRB, 0.229677E-02_JPRB, 0.177094E-02_JPRB & |
477 |
|
|
&, 0.136109E-02_JPRB, 0.104300E-02_JPRB, 0.789533E-03_JPRB, 0.594271E-03_JPRB & |
478 |
|
|
&, 0.437663E-03_JPRB, 0.322999E-03_JPRB, 0.240884E-03_JPRB & |
479 |
|
|
&, 0.167678E-03_JPRB, 0.131128E-03_JPRB, 0.927014E-04_JPRB, 0.664575E-04_JPRB & |
480 |
|
|
&, 0.389023E-04_JPRB, 0.247939E-04_JPRB, 0.100000E-04_JPRB & |
481 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
482 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
483 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
484 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
485 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
486 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
487 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
488 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
489 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
490 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
491 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
492 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
493 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
494 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
495 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
496 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
497 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
498 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
499 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
500 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
501 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
502 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
503 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
504 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
505 |
|
|
|
506 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART1',1,ZHOOK_HANDLE) |
507 |
|
✗ |
END SUBROUTINE PART1 |
508 |
|
|
|
509 |
|
|
!option! -Nv -NO |
510 |
|
|
!pgi$r opt=0 |
511 |
|
✗ |
SUBROUTINE PART2 |
512 |
|
|
|
513 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
514 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART2',0,ZHOOK_HANDLE) |
515 |
|
|
|
516 |
|
|
XCW( 8, :) = (/ & |
517 |
|
|
& 0.771146E+00_JPRB, 0.719203E+00_JPRB, 0.669367E+00_JPRB, 0.621634E+00_JPRB & |
518 |
|
|
&, 0.575996E+00_JPRB, 0.532446E+00_JPRB, 0.490970E+00_JPRB & |
519 |
|
|
&, 0.451554E+00_JPRB, 0.414179E+00_JPRB, 0.378824E+00_JPRB, 0.345465E+00_JPRB & |
520 |
|
|
&, 0.314072E+00_JPRB, 0.284613E+00_JPRB, 0.257053E+00_JPRB & |
521 |
|
|
&, 0.231348E+00_JPRB, 0.207455E+00_JPRB, 0.185325E+00_JPRB, 0.164903E+00_JPRB & |
522 |
|
|
&, 0.146130E+00_JPRB, 0.128945E+00_JPRB, 0.113280E+00_JPRB & |
523 |
|
|
&, 0.990673E-01_JPRB, 0.862287E-01_JPRB, 0.746946E-01_JPRB, 0.643801E-01_JPRB & |
524 |
|
|
&, 0.552071E-01_JPRB, 0.470902E-01_JPRB, 0.399540E-01_JPRB & |
525 |
|
|
&, 0.337147E-01_JPRB, 0.282868E-01_JPRB, 0.236033E-01_JPRB, 0.195761E-01_JPRB & |
526 |
|
|
&, 0.161452E-01_JPRB, 0.132338E-01_JPRB, 0.107828E-01_JPRB & |
527 |
|
|
&, 0.873461E-02_JPRB, 0.702904E-02_JPRB, 0.562265E-02_JPRB, 0.447134E-02_JPRB & |
528 |
|
|
&, 0.352535E-02_JPRB, 0.277098E-02_JPRB, 0.215986E-02_JPRB & |
529 |
|
|
&, 0.167118E-02_JPRB, 0.129274E-02_JPRB, 0.987325E-03_JPRB, 0.749282E-03_JPRB & |
530 |
|
|
&, 0.559852E-03_JPRB, 0.423158E-03_JPRB, 0.317846E-03_JPRB & |
531 |
|
|
&, 0.233377E-03_JPRB, 0.171505E-03_JPRB, 0.120269E-03_JPRB, 0.805719E-04_JPRB & |
532 |
|
|
&, 0.533534E-04_JPRB, 0.395877E-04_JPRB, 0.251426E-04_JPRB & |
533 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
534 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
535 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
536 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
537 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
538 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
539 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
540 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
541 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
542 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
543 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
544 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
545 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
546 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
547 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
548 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
549 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
550 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
551 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
552 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
553 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
554 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
555 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
556 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
557 |
|
|
XCW( 9, :) = (/ & |
558 |
|
|
& 0.775213E+00_JPRB, 0.724053E+00_JPRB, 0.674911E+00_JPRB, 0.627784E+00_JPRB & |
559 |
|
|
&, 0.582668E+00_JPRB, 0.539556E+00_JPRB, 0.498439E+00_JPRB & |
560 |
|
|
&, 0.459304E+00_JPRB, 0.422136E+00_JPRB, 0.386918E+00_JPRB, 0.353627E+00_JPRB & |
561 |
|
|
&, 0.322241E+00_JPRB, 0.292729E+00_JPRB, 0.265061E+00_JPRB & |
562 |
|
|
&, 0.239196E+00_JPRB, 0.215099E+00_JPRB, 0.192722E+00_JPRB, 0.172018E+00_JPRB & |
563 |
|
|
&, 0.152932E+00_JPRB, 0.135407E+00_JPRB, 0.119382E+00_JPRB & |
564 |
|
|
&, 0.104797E+00_JPRB, 0.915737E-01_JPRB, 0.796470E-01_JPRB, 0.689414E-01_JPRB & |
565 |
|
|
&, 0.593791E-01_JPRB, 0.508862E-01_JPRB, 0.433847E-01_JPRB & |
566 |
|
|
&, 0.367919E-01_JPRB, 0.310316E-01_JPRB, 0.260304E-01_JPRB, 0.217104E-01_JPRB & |
567 |
|
|
&, 0.180051E-01_JPRB, 0.148486E-01_JPRB, 0.121753E-01_JPRB & |
568 |
|
|
&, 0.991588E-02_JPRB, 0.803993E-02_JPRB, 0.647335E-02_JPRB, 0.518315E-02_JPRB & |
569 |
|
|
&, 0.412152E-02_JPRB, 0.325573E-02_JPRB, 0.255959E-02_JPRB & |
570 |
|
|
&, 0.199234E-02_JPRB, 0.155383E-02_JPRB, 0.119675E-02_JPRB, 0.916216E-03_JPRB & |
571 |
|
|
&, 0.694261E-03_JPRB, 0.523318E-03_JPRB, 0.394807E-03_JPRB & |
572 |
|
|
&, 0.285937E-03_JPRB, 0.211881E-03_JPRB, 0.161619E-03_JPRB, 0.108801E-03_JPRB & |
573 |
|
|
&, 0.822557E-04_JPRB, 0.543816E-04_JPRB, 0.402851E-04_JPRB & |
574 |
|
|
&, 0.254972E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
575 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
576 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
577 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
578 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
579 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
580 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
581 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
582 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
583 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
584 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
585 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
586 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
587 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
588 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
589 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
590 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
591 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
592 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
593 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
594 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
595 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
596 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
597 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
598 |
|
|
XCW( 10, :) = (/ & |
599 |
|
|
& 0.778867E+00_JPRB, 0.728416E+00_JPRB, 0.679903E+00_JPRB, 0.633328E+00_JPRB & |
600 |
|
|
&, 0.588688E+00_JPRB, 0.545980E+00_JPRB, 0.505195E+00_JPRB & |
601 |
|
|
&, 0.466324E+00_JPRB, 0.429355E+00_JPRB, 0.394272E+00_JPRB, 0.361057E+00_JPRB & |
602 |
|
|
&, 0.329688E+00_JPRB, 0.300143E+00_JPRB, 0.272388E+00_JPRB & |
603 |
|
|
&, 0.246394E+00_JPRB, 0.222123E+00_JPRB, 0.199536E+00_JPRB, 0.178587E+00_JPRB & |
604 |
|
|
&, 0.159228E+00_JPRB, 0.141406E+00_JPRB, 0.125066E+00_JPRB & |
605 |
|
|
&, 0.110144E+00_JPRB, 0.965796E-01_JPRB, 0.843044E-01_JPRB, 0.732469E-01_JPRB & |
606 |
|
|
&, 0.633366E-01_JPRB, 0.544997E-01_JPRB, 0.466590E-01_JPRB & |
607 |
|
|
&, 0.397401E-01_JPRB, 0.336721E-01_JPRB, 0.283795E-01_JPRB, 0.237899E-01_JPRB & |
608 |
|
|
&, 0.198305E-01_JPRB, 0.164369E-01_JPRB, 0.135497E-01_JPRB & |
609 |
|
|
&, 0.110971E-01_JPRB, 0.904129E-02_JPRB, 0.732404E-02_JPRB, 0.589496E-02_JPRB & |
610 |
|
|
&, 0.471770E-02_JPRB, 0.376156E-02_JPRB, 0.297011E-02_JPRB & |
611 |
|
|
&, 0.233565E-02_JPRB, 0.182627E-02_JPRB, 0.141781E-02_JPRB, 0.109507E-02_JPRB & |
612 |
|
|
&, 0.840888E-03_JPRB, 0.635997E-03_JPRB, 0.484596E-03_JPRB & |
613 |
|
|
&, 0.364776E-03_JPRB, 0.265716E-03_JPRB, 0.202970E-03_JPRB, 0.151144E-03_JPRB & |
614 |
|
|
&, 0.111158E-03_JPRB, 0.691755E-04_JPRB, 0.554277E-04_JPRB & |
615 |
|
|
&, 0.409944E-04_JPRB, 0.258578E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
616 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
617 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
618 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
619 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
620 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
621 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
622 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
623 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
624 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
625 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
626 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
627 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
628 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
629 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
630 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
631 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
632 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
633 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
634 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
635 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
636 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
637 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
638 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
639 |
|
|
XCW( 11, :) = (/ & |
640 |
|
|
& 0.782192E+00_JPRB, 0.732388E+00_JPRB, 0.684452E+00_JPRB, 0.638386E+00_JPRB & |
641 |
|
|
&, 0.594186E+00_JPRB, 0.551852E+00_JPRB, 0.511378E+00_JPRB & |
642 |
|
|
&, 0.472757E+00_JPRB, 0.435978E+00_JPRB, 0.401028E+00_JPRB, 0.367892E+00_JPRB & |
643 |
|
|
&, 0.336551E+00_JPRB, 0.306983E+00_JPRB, 0.279163E+00_JPRB & |
644 |
|
|
&, 0.253060E+00_JPRB, 0.228642E+00_JPRB, 0.205872E+00_JPRB, 0.184711E+00_JPRB & |
645 |
|
|
&, 0.165112E+00_JPRB, 0.147025E+00_JPRB, 0.130400E+00_JPRB & |
646 |
|
|
&, 0.115181E+00_JPRB, 0.101307E+00_JPRB, 0.887154E-01_JPRB, 0.773358E-01_JPRB & |
647 |
|
|
&, 0.671049E-01_JPRB, 0.579531E-01_JPRB, 0.498036E-01_JPRB & |
648 |
|
|
&, 0.425866E-01_JPRB, 0.362325E-01_JPRB, 0.306628E-01_JPRB, 0.258147E-01_JPRB & |
649 |
|
|
&, 0.216171E-01_JPRB, 0.180030E-01_JPRB, 0.149105E-01_JPRB & |
650 |
|
|
&, 0.122784E-01_JPRB, 0.100522E-01_JPRB, 0.818452E-02_JPRB, 0.662682E-02_JPRB & |
651 |
|
|
&, 0.533442E-02_JPRB, 0.426739E-02_JPRB, 0.339144E-02_JPRB & |
652 |
|
|
&, 0.269004E-02_JPRB, 0.211006E-02_JPRB, 0.165051E-02_JPRB, 0.127393E-02_JPRB & |
653 |
|
|
&, 0.987515E-03_JPRB, 0.761197E-03_JPRB, 0.574384E-03_JPRB & |
654 |
|
|
&, 0.430475E-03_JPRB, 0.333009E-03_JPRB, 0.244321E-03_JPRB, 0.179372E-03_JPRB & |
655 |
|
|
&, 0.125609E-03_JPRB, 0.987632E-04_JPRB, 0.705702E-04_JPRB & |
656 |
|
|
&, 0.409944E-04_JPRB, 0.258578E-04_JPRB, 0.262244E-04_JPRB, 0.100000E-04_JPRB & |
657 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
658 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
659 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
660 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
661 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
662 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
663 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
664 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
665 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
666 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
667 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
668 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
669 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
670 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
671 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
672 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
673 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
674 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
675 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
676 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
677 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
678 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
679 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
680 |
|
|
XCW( 12, :) = (/ & |
681 |
|
|
& 0.785247E+00_JPRB, 0.736041E+00_JPRB, 0.688639E+00_JPRB, 0.643044E+00_JPRB & |
682 |
|
|
&, 0.599255E+00_JPRB, 0.557271E+00_JPRB, 0.517091E+00_JPRB & |
683 |
|
|
&, 0.478706E+00_JPRB, 0.442109E+00_JPRB, 0.407291E+00_JPRB, 0.374237E+00_JPRB & |
684 |
|
|
&, 0.342929E+00_JPRB, 0.313351E+00_JPRB, 0.285478E+00_JPRB & |
685 |
|
|
&, 0.259284E+00_JPRB, 0.234740E+00_JPRB, 0.211810E+00_JPRB, 0.190461E+00_JPRB & |
686 |
|
|
&, 0.170647E+00_JPRB, 0.152323E+00_JPRB, 0.135442E+00_JPRB & |
687 |
|
|
&, 0.119955E+00_JPRB, 0.105798E+00_JPRB, 0.929146E-01_JPRB, 0.812435E-01_JPRB & |
688 |
|
|
&, 0.707204E-01_JPRB, 0.612723E-01_JPRB, 0.528374E-01_JPRB & |
689 |
|
|
&, 0.453432E-01_JPRB, 0.387168E-01_JPRB, 0.328928E-01_JPRB, 0.278016E-01_JPRB & |
690 |
|
|
&, 0.233777E-01_JPRB, 0.195515E-01_JPRB, 0.162622E-01_JPRB & |
691 |
|
|
&, 0.134504E-01_JPRB, 0.110631E-01_JPRB, 0.905477E-02_JPRB, 0.736871E-02_JPRB & |
692 |
|
|
&, 0.596143E-02_JPRB, 0.479429E-02_JPRB, 0.383438E-02_JPRB & |
693 |
|
|
&, 0.304442E-02_JPRB, 0.240521E-02_JPRB, 0.189484E-02_JPRB, 0.147664E-02_JPRB & |
694 |
|
|
&, 0.114636E-02_JPRB, 0.886396E-03_JPRB, 0.676999E-03_JPRB & |
695 |
|
|
&, 0.522454E-03_JPRB, 0.386844E-03_JPRB, 0.299455E-03_JPRB, 0.221716E-03_JPRB & |
696 |
|
|
&, 0.154511E-03_JPRB, 0.113557E-03_JPRB, 0.857127E-04_JPRB & |
697 |
|
|
&, 0.564916E-04_JPRB, 0.417156E-04_JPRB, 0.262244E-04_JPRB, 0.100000E-04_JPRB & |
698 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
699 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
700 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
701 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
702 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
703 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
704 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
705 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
706 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
707 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
708 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
709 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
710 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
711 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
712 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
713 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
714 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
715 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
716 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
717 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
718 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
719 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
720 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
721 |
|
|
XCW( 13, :) = (/ & |
722 |
|
|
& 0.788076E+00_JPRB, 0.739426E+00_JPRB, 0.692522E+00_JPRB, 0.647367E+00_JPRB & |
723 |
|
|
&, 0.603964E+00_JPRB, 0.562311E+00_JPRB, 0.522407E+00_JPRB & |
724 |
|
|
&, 0.484248E+00_JPRB, 0.447829E+00_JPRB, 0.413139E+00_JPRB, 0.380168E+00_JPRB & |
725 |
|
|
&, 0.348900E+00_JPRB, 0.319320E+00_JPRB, 0.291406E+00_JPRB & |
726 |
|
|
&, 0.265135E+00_JPRB, 0.240481E+00_JPRB, 0.217412E+00_JPRB, 0.195892E+00_JPRB & |
727 |
|
|
&, 0.175886E+00_JPRB, 0.157348E+00_JPRB, 0.140235E+00_JPRB & |
728 |
|
|
&, 0.124501E+00_JPRB, 0.110085E+00_JPRB, 0.969369E-01_JPRB, 0.849948E-01_JPRB & |
729 |
|
|
&, 0.741941E-01_JPRB, 0.644761E-01_JPRB, 0.557721E-01_JPRB & |
730 |
|
|
&, 0.480177E-01_JPRB, 0.411370E-01_JPRB, 0.350735E-01_JPRB, 0.297506E-01_JPRB & |
731 |
|
|
&, 0.251082E-01_JPRB, 0.210778E-01_JPRB, 0.176048E-01_JPRB & |
732 |
|
|
&, 0.146223E-01_JPRB, 0.120835E-01_JPRB, 0.992503E-02_JPRB, 0.811060E-02_JPRB & |
733 |
|
|
&, 0.658844E-02_JPRB, 0.533174E-02_JPRB, 0.427732E-02_JPRB & |
734 |
|
|
&, 0.342096E-02_JPRB, 0.271170E-02_JPRB, 0.215081E-02_JPRB, 0.167935E-02_JPRB & |
735 |
|
|
&, 0.131743E-02_JPRB, 0.102412E-02_JPRB, 0.792442E-03_JPRB & |
736 |
|
|
&, 0.601293E-03_JPRB, 0.454138E-03_JPRB, 0.340806E-03_JPRB, 0.264059E-03_JPRB & |
737 |
|
|
&, 0.197865E-03_JPRB, 0.143145E-03_JPRB, 0.100855E-03_JPRB & |
738 |
|
|
&, 0.719888E-04_JPRB, 0.575734E-04_JPRB, 0.424488E-04_JPRB, 0.265969E-04_JPRB & |
739 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
740 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
741 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
742 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
743 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
744 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
745 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
746 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
747 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
748 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
749 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
750 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
751 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
752 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
753 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
754 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
755 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
756 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
757 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
758 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
759 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
760 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
761 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
762 |
|
|
XCW( 14, :) = (/ & |
763 |
|
|
& 0.790713E+00_JPRB, 0.742585E+00_JPRB, 0.696148E+00_JPRB, 0.651408E+00_JPRB & |
764 |
|
|
&, 0.608367E+00_JPRB, 0.567027E+00_JPRB, 0.527387E+00_JPRB & |
765 |
|
|
&, 0.489445E+00_JPRB, 0.453196E+00_JPRB, 0.418632E+00_JPRB, 0.385744E+00_JPRB & |
766 |
|
|
&, 0.354521E+00_JPRB, 0.324945E+00_JPRB, 0.297001E+00_JPRB & |
767 |
|
|
&, 0.270666E+00_JPRB, 0.245915E+00_JPRB, 0.222719E+00_JPRB, 0.201049E+00_JPRB & |
768 |
|
|
&, 0.180868E+00_JPRB, 0.162135E+00_JPRB, 0.144810E+00_JPRB & |
769 |
|
|
&, 0.128847E+00_JPRB, 0.114195E+00_JPRB, 0.100800E+00_JPRB, 0.886041E-01_JPRB & |
770 |
|
|
&, 0.775514E-01_JPRB, 0.675792E-01_JPRB, 0.586227E-01_JPRB & |
771 |
|
|
&, 0.506179E-01_JPRB, 0.435011E-01_JPRB, 0.372049E-01_JPRB, 0.316660E-01_JPRB & |
772 |
|
|
&, 0.268128E-01_JPRB, 0.225909E-01_JPRB, 0.189338E-01_JPRB & |
773 |
|
|
&, 0.157850E-01_JPRB, 0.130944E-01_JPRB, 0.108051E-01_JPRB, 0.886251E-02_JPRB & |
774 |
|
|
&, 0.723601E-02_JPRB, 0.586918E-02_JPRB, 0.474186E-02_JPRB & |
775 |
|
|
&, 0.380856E-02_JPRB, 0.304090E-02_JPRB, 0.240677E-02_JPRB, 0.190590E-02_JPRB & |
776 |
|
|
&, 0.148849E-02_JPRB, 0.116184E-02_JPRB, 0.895057E-03_JPRB & |
777 |
|
|
&, 0.693271E-03_JPRB, 0.534890E-03_JPRB, 0.409723E-03_JPRB, 0.306402E-03_JPRB & |
778 |
|
|
&, 0.226767E-03_JPRB, 0.172732E-03_JPRB, 0.131140E-03_JPRB & |
779 |
|
|
&, 0.874860E-04_JPRB, 0.575734E-04_JPRB, 0.424488E-04_JPRB, 0.265969E-04_JPRB & |
780 |
|
|
&, 0.269754E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
781 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
782 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
783 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
784 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
785 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
786 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
787 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
788 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
789 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
790 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
791 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
792 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
793 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
794 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
795 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
796 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
797 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
798 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
799 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
800 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
801 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
802 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
803 |
|
|
|
804 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART2',1,ZHOOK_HANDLE) |
805 |
|
✗ |
END SUBROUTINE PART2 |
806 |
|
|
|
807 |
|
|
!option! -Nv -NO |
808 |
|
|
!pgi$r opt=0 |
809 |
|
✗ |
SUBROUTINE PART3 |
810 |
|
|
|
811 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
812 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART3',0,ZHOOK_HANDLE) |
813 |
|
|
|
814 |
|
|
XCW( 15, :) = (/ & |
815 |
|
|
& 0.793186E+00_JPRB, 0.745548E+00_JPRB, 0.699551E+00_JPRB, 0.655203E+00_JPRB & |
816 |
|
|
&, 0.612506E+00_JPRB, 0.571464E+00_JPRB, 0.532076E+00_JPRB & |
817 |
|
|
&, 0.494341E+00_JPRB, 0.458258E+00_JPRB, 0.423819E+00_JPRB, 0.391016E+00_JPRB & |
818 |
|
|
&, 0.359839E+00_JPRB, 0.330274E+00_JPRB, 0.302307E+00_JPRB & |
819 |
|
|
&, 0.275917E+00_JPRB, 0.251081E+00_JPRB, 0.227774E+00_JPRB, 0.205967E+00_JPRB & |
820 |
|
|
&, 0.185626E+00_JPRB, 0.166716E+00_JPRB, 0.149197E+00_JPRB & |
821 |
|
|
&, 0.133021E+00_JPRB, 0.118150E+00_JPRB, 0.104523E+00_JPRB, 0.920926E-01_JPRB & |
822 |
|
|
&, 0.808032E-01_JPRB, 0.705893E-01_JPRB, 0.613971E-01_JPRB & |
823 |
|
|
&, 0.531594E-01_JPRB, 0.458171E-01_JPRB, 0.392993E-01_JPRB, 0.335477E-01_JPRB & |
824 |
|
|
&, 0.285001E-01_JPRB, 0.240906E-01_JPRB, 0.202583E-01_JPRB & |
825 |
|
|
&, 0.169477E-01_JPRB, 0.141053E-01_JPRB, 0.116851E-01_JPRB, 0.962445E-02_JPRB & |
826 |
|
|
&, 0.788357E-02_JPRB, 0.642770E-02_JPRB, 0.520640E-02_JPRB & |
827 |
|
|
&, 0.419617E-02_JPRB, 0.335875E-02_JPRB, 0.268601E-02_JPRB, 0.212053E-02_JPRB & |
828 |
|
|
&, 0.167178E-02_JPRB, 0.131207E-02_JPRB, 0.102333E-02_JPRB & |
829 |
|
|
&, 0.785250E-03_JPRB, 0.615642E-03_JPRB, 0.464858E-03_JPRB, 0.348745E-03_JPRB & |
830 |
|
|
&, 0.270120E-03_JPRB, 0.202320E-03_JPRB, 0.146283E-03_JPRB & |
831 |
|
|
&, 0.102983E-03_JPRB, 0.734312E-04_JPRB, 0.586731E-04_JPRB, 0.431938E-04_JPRB & |
832 |
|
|
&, 0.269754E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
833 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
834 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
835 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
836 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
837 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
838 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
839 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
840 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
841 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
842 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
843 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
844 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
845 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
846 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
847 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
848 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
849 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
850 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
851 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
852 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
853 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
854 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
855 |
|
|
XCW( 16, :) = (/ & |
856 |
|
|
& 0.795517E+00_JPRB, 0.748342E+00_JPRB, 0.702762E+00_JPRB, 0.658786E+00_JPRB & |
857 |
|
|
&, 0.616416E+00_JPRB, 0.575658E+00_JPRB, 0.536511E+00_JPRB & |
858 |
|
|
&, 0.498977E+00_JPRB, 0.463054E+00_JPRB, 0.428737E+00_JPRB, 0.396019E+00_JPRB & |
859 |
|
|
&, 0.364890E+00_JPRB, 0.335342E+00_JPRB, 0.307358E+00_JPRB & |
860 |
|
|
&, 0.280921E+00_JPRB, 0.256011E+00_JPRB, 0.232603E+00_JPRB, 0.210672E+00_JPRB & |
861 |
|
|
&, 0.190186E+00_JPRB, 0.171113E+00_JPRB, 0.153412E+00_JPRB & |
862 |
|
|
&, 0.137043E+00_JPRB, 0.121965E+00_JPRB, 0.108122E+00_JPRB, 0.954745E-01_JPRB & |
863 |
|
|
&, 0.839568E-01_JPRB, 0.735211E-01_JPRB, 0.641028E-01_JPRB & |
864 |
|
|
&, 0.556423E-01_JPRB, 0.480810E-01_JPRB, 0.413568E-01_JPRB, 0.354041E-01_JPRB & |
865 |
|
|
&, 0.301658E-01_JPRB, 0.255772E-01_JPRB, 0.215782E-01_JPRB & |
866 |
|
|
&, 0.181103E-01_JPRB, 0.151257E-01_JPRB, 0.125651E-01_JPRB, 0.103864E-01_JPRB & |
867 |
|
|
&, 0.854141E-02_JPRB, 0.698622E-02_JPRB, 0.568175E-02_JPRB & |
868 |
|
|
&, 0.459486E-02_JPRB, 0.369930E-02_JPRB, 0.296524E-02_JPRB, 0.235901E-02_JPRB & |
869 |
|
|
&, 0.186728E-02_JPRB, 0.147483E-02_JPRB, 0.115159E-02_JPRB & |
870 |
|
|
&, 0.890369E-03_JPRB, 0.696395E-03_JPRB, 0.533775E-03_JPRB, 0.405202E-03_JPRB & |
871 |
|
|
&, 0.313474E-03_JPRB, 0.231908E-03_JPRB, 0.176568E-03_JPRB & |
872 |
|
|
&, 0.133978E-03_JPRB, 0.892890E-04_JPRB, 0.586731E-04_JPRB, 0.431938E-04_JPRB & |
873 |
|
|
&, 0.269754E-04_JPRB, 0.273598E-04_JPRB, 0.100000E-04_JPRB & |
874 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
875 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
876 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
877 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
878 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
879 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
880 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
881 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
882 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
883 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
884 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
885 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
886 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
887 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
888 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
889 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
890 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
891 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
892 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
893 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
894 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
895 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
896 |
|
|
XCW( 17, :) = (/ & |
897 |
|
|
& 0.797721E+00_JPRB, 0.750986E+00_JPRB, 0.705803E+00_JPRB, 0.662181E+00_JPRB & |
898 |
|
|
&, 0.620124E+00_JPRB, 0.579637E+00_JPRB, 0.540723E+00_JPRB & |
899 |
|
|
&, 0.503383E+00_JPRB, 0.467615E+00_JPRB, 0.433418E+00_JPRB, 0.400785E+00_JPRB & |
900 |
|
|
&, 0.369709E+00_JPRB, 0.340180E+00_JPRB, 0.312185E+00_JPRB & |
901 |
|
|
&, 0.285709E+00_JPRB, 0.260733E+00_JPRB, 0.237235E+00_JPRB, 0.215190E+00_JPRB & |
902 |
|
|
&, 0.194571E+00_JPRB, 0.175345E+00_JPRB, 0.157475E+00_JPRB & |
903 |
|
|
&, 0.140926E+00_JPRB, 0.125655E+00_JPRB, 0.111614E+00_JPRB, 0.987534E-01_JPRB & |
904 |
|
|
&, 0.870268E-01_JPRB, 0.763746E-01_JPRB, 0.667436E-01_JPRB & |
905 |
|
|
&, 0.580744E-01_JPRB, 0.503088E-01_JPRB, 0.433814E-01_JPRB, 0.372353E-01_JPRB & |
906 |
|
|
&, 0.318143E-01_JPRB, 0.270504E-01_JPRB, 0.228846E-01_JPRB & |
907 |
|
|
&, 0.192637E-01_JPRB, 0.161366E-01_JPRB, 0.134549E-01_JPRB, 0.111583E-01_JPRB & |
908 |
|
|
&, 0.920954E-02_JPRB, 0.755527E-02_JPRB, 0.616790E-02_JPRB & |
909 |
|
|
&, 0.500462E-02_JPRB, 0.405120E-02_JPRB, 0.325611E-02_JPRB, 0.259749E-02_JPRB & |
910 |
|
|
&, 0.206278E-02_JPRB, 0.163759E-02_JPRB, 0.127986E-02_JPRB & |
911 |
|
|
&, 0.100863E-02_JPRB, 0.777147E-03_JPRB, 0.602693E-03_JPRB, 0.461660E-03_JPRB & |
912 |
|
|
&, 0.356827E-03_JPRB, 0.261496E-03_JPRB, 0.206853E-03_JPRB & |
913 |
|
|
&, 0.149475E-03_JPRB, 0.105147E-03_JPRB, 0.748975E-04_JPRB, 0.597907E-04_JPRB & |
914 |
|
|
&, 0.439508E-04_JPRB, 0.273598E-04_JPRB, 0.100000E-04_JPRB & |
915 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
916 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
917 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
918 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
919 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
920 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
921 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
922 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
923 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
924 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
925 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
926 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
927 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
928 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
929 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
930 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
931 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
932 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
933 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
934 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
935 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
936 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
937 |
|
|
XCW( 18, :) = (/ & |
938 |
|
|
& 0.799815E+00_JPRB, 0.753498E+00_JPRB, 0.708694E+00_JPRB, 0.665410E+00_JPRB & |
939 |
|
|
&, 0.623652E+00_JPRB, 0.583427E+00_JPRB, 0.544737E+00_JPRB & |
940 |
|
|
&, 0.507584E+00_JPRB, 0.471968E+00_JPRB, 0.437889E+00_JPRB, 0.405341E+00_JPRB & |
941 |
|
|
&, 0.374317E+00_JPRB, 0.344811E+00_JPRB, 0.316810E+00_JPRB & |
942 |
|
|
&, 0.290302E+00_JPRB, 0.265266E+00_JPRB, 0.241687E+00_JPRB, 0.219539E+00_JPRB & |
943 |
|
|
&, 0.198797E+00_JPRB, 0.179428E+00_JPRB, 0.161405E+00_JPRB & |
944 |
|
|
&, 0.144685E+00_JPRB, 0.129233E+00_JPRB, 0.115001E+00_JPRB, 0.101947E+00_JPRB & |
945 |
|
|
&, 0.900167E-01_JPRB, 0.791649E-01_JPRB, 0.693310E-01_JPRB & |
946 |
|
|
&, 0.604595E-01_JPRB, 0.524966E-01_JPRB, 0.453773E-01_JPRB, 0.390454E-01_JPRB & |
947 |
|
|
&, 0.334455E-01_JPRB, 0.285104E-01_JPRB, 0.241909E-01_JPRB & |
948 |
|
|
&, 0.204263E-01_JPRB, 0.171570E-01_JPRB, 0.143447E-01_JPRB, 0.119303E-01_JPRB & |
949 |
|
|
&, 0.987766E-02_JPRB, 0.813487E-02_JPRB, 0.666485E-02_JPRB & |
950 |
|
|
&, 0.542545E-02_JPRB, 0.440311E-02_JPRB, 0.354698E-02_JPRB, 0.284789E-02_JPRB & |
951 |
|
|
&, 0.227050E-02_JPRB, 0.180035E-02_JPRB, 0.142096E-02_JPRB & |
952 |
|
|
&, 0.111375E-02_JPRB, 0.871358E-03_JPRB, 0.671611E-03_JPRB, 0.518117E-03_JPRB & |
953 |
|
|
&, 0.400181E-03_JPRB, 0.305877E-03_JPRB, 0.221996E-03_JPRB & |
954 |
|
|
&, 0.164972E-03_JPRB, 0.121005E-03_JPRB, 0.911219E-04_JPRB, 0.597907E-04_JPRB & |
955 |
|
|
&, 0.439508E-04_JPRB, 0.273598E-04_JPRB, 0.277503E-04_JPRB & |
956 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
957 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
958 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
959 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
960 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
961 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
962 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
963 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
964 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
965 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
966 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
967 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
968 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
969 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
970 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
971 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
972 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
973 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
974 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
975 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
976 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
977 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
978 |
|
|
XCW( 19, :) = (/ & |
979 |
|
|
& 0.801808E+00_JPRB, 0.755892E+00_JPRB, 0.711450E+00_JPRB, 0.668491E+00_JPRB & |
980 |
|
|
&, 0.627020E+00_JPRB, 0.587046E+00_JPRB, 0.548572E+00_JPRB & |
981 |
|
|
&, 0.511601E+00_JPRB, 0.476134E+00_JPRB, 0.442171E+00_JPRB, 0.409707E+00_JPRB & |
982 |
|
|
&, 0.378738E+00_JPRB, 0.349258E+00_JPRB, 0.321256E+00_JPRB & |
983 |
|
|
&, 0.294720E+00_JPRB, 0.269633E+00_JPRB, 0.245979E+00_JPRB, 0.223736E+00_JPRB & |
984 |
|
|
&, 0.202879E+00_JPRB, 0.183381E+00_JPRB, 0.165208E+00_JPRB & |
985 |
|
|
&, 0.148332E+00_JPRB, 0.132709E+00_JPRB, 0.118298E+00_JPRB, 0.105059E+00_JPRB & |
986 |
|
|
&, 0.929375E-01_JPRB, 0.818918E-01_JPRB, 0.718649E-01_JPRB & |
987 |
|
|
&, 0.628017E-01_JPRB, 0.546483E-01_JPRB, 0.473445E-01_JPRB, 0.408344E-01_JPRB & |
988 |
|
|
&, 0.350594E-01_JPRB, 0.299615E-01_JPRB, 0.254882E-01_JPRB & |
989 |
|
|
&, 0.215797E-01_JPRB, 0.181775E-01_JPRB, 0.152443E-01_JPRB, 0.127123E-01_JPRB & |
990 |
|
|
&, 0.105561E-01_JPRB, 0.871446E-02_JPRB, 0.716181E-02_JPRB & |
991 |
|
|
&, 0.585735E-02_JPRB, 0.476636E-02_JPRB, 0.384949E-02_JPRB, 0.309829E-02_JPRB & |
992 |
|
|
&, 0.247823E-02_JPRB, 0.197563E-02_JPRB, 0.156206E-02_JPRB & |
993 |
|
|
&, 0.123200E-02_JPRB, 0.965569E-03_JPRB, 0.754312E-03_JPRB, 0.588689E-03_JPRB & |
994 |
|
|
&, 0.443534E-03_JPRB, 0.350259E-03_JPRB, 0.267423E-03_JPRB & |
995 |
|
|
&, 0.195966E-03_JPRB, 0.152720E-03_JPRB, 0.107346E-03_JPRB, 0.763876E-04_JPRB & |
996 |
|
|
&, 0.609262E-04_JPRB, 0.447197E-04_JPRB, 0.277503E-04_JPRB & |
997 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
998 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
999 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1000 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1001 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1002 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1003 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1004 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1005 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1006 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1007 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1008 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1009 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1010 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1011 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1012 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1013 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1014 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1015 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1016 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1017 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1018 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1019 |
|
|
XCW( 20, :) = (/ & |
1020 |
|
|
& 0.803713E+00_JPRB, 0.758180E+00_JPRB, 0.714085E+00_JPRB, 0.671438E+00_JPRB & |
1021 |
|
|
&, 0.630244E+00_JPRB, 0.590513E+00_JPRB, 0.552248E+00_JPRB & |
1022 |
|
|
&, 0.515454E+00_JPRB, 0.480131E+00_JPRB, 0.446281E+00_JPRB, 0.413902E+00_JPRB & |
1023 |
|
|
&, 0.382990E+00_JPRB, 0.353538E+00_JPRB, 0.325537E+00_JPRB & |
1024 |
|
|
&, 0.298979E+00_JPRB, 0.273847E+00_JPRB, 0.250126E+00_JPRB, 0.227794E+00_JPRB & |
1025 |
|
|
&, 0.206833E+00_JPRB, 0.187210E+00_JPRB, 0.168901E+00_JPRB & |
1026 |
|
|
&, 0.151873E+00_JPRB, 0.136091E+00_JPRB, 0.121511E+00_JPRB, 0.108093E+00_JPRB & |
1027 |
|
|
&, 0.957928E-01_JPRB, 0.845628E-01_JPRB, 0.743492E-01_JPRB & |
1028 |
|
|
&, 0.651008E-01_JPRB, 0.567640E-01_JPRB, 0.492828E-01_JPRB, 0.426025E-01_JPRB & |
1029 |
|
|
&, 0.366604E-01_JPRB, 0.314082E-01_JPRB, 0.267809E-01_JPRB & |
1030 |
|
|
&, 0.227238E-01_JPRB, 0.191979E-01_JPRB, 0.161341E-01_JPRB, 0.135043E-01_JPRB & |
1031 |
|
|
&, 0.112345E-01_JPRB, 0.930460E-02_JPRB, 0.766956E-02_JPRB & |
1032 |
|
|
&, 0.628926E-02_JPRB, 0.512961E-02_JPRB, 0.416363E-02_JPRB, 0.336062E-02_JPRB & |
1033 |
|
|
&, 0.269817E-02_JPRB, 0.216343E-02_JPRB, 0.171598E-02_JPRB & |
1034 |
|
|
&, 0.136340E-02_JPRB, 0.107324E-02_JPRB, 0.837014E-03_JPRB, 0.645147E-03_JPRB & |
1035 |
|
|
&, 0.501339E-03_JPRB, 0.379847E-03_JPRB, 0.297708E-03_JPRB & |
1036 |
|
|
&, 0.226961E-03_JPRB, 0.168578E-03_JPRB, 0.123571E-03_JPRB, 0.929845E-04_JPRB & |
1037 |
|
|
&, 0.609262E-04_JPRB, 0.447197E-04_JPRB, 0.277503E-04_JPRB & |
1038 |
|
|
&, 0.281466E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1039 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1040 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1041 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1042 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1043 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1044 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1045 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1046 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1047 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1048 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1049 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1050 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1051 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1052 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1053 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1054 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1055 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1056 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1057 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1058 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1059 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1060 |
|
|
XCW( 21, :) = (/ & |
1061 |
|
|
& 0.805537E+00_JPRB, 0.760373E+00_JPRB, 0.716611E+00_JPRB, 0.674264E+00_JPRB & |
1062 |
|
|
&, 0.633338E+00_JPRB, 0.593841E+00_JPRB, 0.555779E+00_JPRB & |
1063 |
|
|
&, 0.519156E+00_JPRB, 0.483975E+00_JPRB, 0.450238E+00_JPRB, 0.417942E+00_JPRB & |
1064 |
|
|
&, 0.387087E+00_JPRB, 0.357665E+00_JPRB, 0.329660E+00_JPRB & |
1065 |
|
|
&, 0.303093E+00_JPRB, 0.277920E+00_JPRB, 0.254138E+00_JPRB, 0.231727E+00_JPRB & |
1066 |
|
|
&, 0.210666E+00_JPRB, 0.190928E+00_JPRB, 0.172494E+00_JPRB & |
1067 |
|
|
&, 0.155325E+00_JPRB, 0.139387E+00_JPRB, 0.124649E+00_JPRB, 0.111063E+00_JPRB & |
1068 |
|
|
&, 0.985900E-01_JPRB, 0.871817E-01_JPRB, 0.767916E-01_JPRB & |
1069 |
|
|
&, 0.673686E-01_JPRB, 0.588556E-01_JPRB, 0.512007E-01_JPRB, 0.443536E-01_JPRB & |
1070 |
|
|
&, 0.382485E-01_JPRB, 0.328416E-01_JPRB, 0.280691E-01_JPRB & |
1071 |
|
|
&, 0.238771E-01_JPRB, 0.202183E-01_JPRB, 0.170435E-01_JPRB, 0.142963E-01_JPRB & |
1072 |
|
|
&, 0.119334E-01_JPRB, 0.990527E-02_JPRB, 0.818812E-02_JPRB & |
1073 |
|
|
&, 0.673224E-02_JPRB, 0.551557E-02_JPRB, 0.448940E-02_JPRB, 0.363487E-02_JPRB & |
1074 |
|
|
&, 0.293033E-02_JPRB, 0.235123E-02_JPRB, 0.186990E-02_JPRB & |
1075 |
|
|
&, 0.148166E-02_JPRB, 0.116745E-02_JPRB, 0.919715E-03_JPRB, 0.715718E-03_JPRB & |
1076 |
|
|
&, 0.559143E-03_JPRB, 0.424228E-03_JPRB, 0.327994E-03_JPRB & |
1077 |
|
|
&, 0.257955E-03_JPRB, 0.184436E-03_JPRB, 0.139795E-03_JPRB, 0.109581E-03_JPRB & |
1078 |
|
|
&, 0.779016E-04_JPRB, 0.620795E-04_JPRB, 0.455005E-04_JPRB & |
1079 |
|
|
&, 0.281466E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1080 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1081 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1082 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1083 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1084 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1085 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1086 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1087 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1088 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1089 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1090 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1091 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1092 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1093 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1094 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1095 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1096 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1097 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1098 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1099 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1100 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1101 |
|
|
|
1102 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART3',1,ZHOOK_HANDLE) |
1103 |
|
✗ |
END SUBROUTINE PART3 |
1104 |
|
|
|
1105 |
|
|
!option! -Nv -NO |
1106 |
|
|
!pgi$r opt=0 |
1107 |
|
✗ |
SUBROUTINE PART4 |
1108 |
|
|
|
1109 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1110 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART4',0,ZHOOK_HANDLE) |
1111 |
|
|
|
1112 |
|
|
XCW( 22, :) = (/ & |
1113 |
|
|
& 0.807289E+00_JPRB, 0.762478E+00_JPRB, 0.719039E+00_JPRB, 0.676981E+00_JPRB & |
1114 |
|
|
&, 0.636312E+00_JPRB, 0.597043E+00_JPRB, 0.559178E+00_JPRB & |
1115 |
|
|
&, 0.522722E+00_JPRB, 0.487680E+00_JPRB, 0.454053E+00_JPRB, 0.421842E+00_JPRB & |
1116 |
|
|
&, 0.391042E+00_JPRB, 0.361653E+00_JPRB, 0.333668E+00_JPRB & |
1117 |
|
|
&, 0.307076E+00_JPRB, 0.281868E+00_JPRB, 0.258029E+00_JPRB, 0.235542E+00_JPRB & |
1118 |
|
|
&, 0.214390E+00_JPRB, 0.194548E+00_JPRB, 0.175990E+00_JPRB & |
1119 |
|
|
&, 0.158687E+00_JPRB, 0.142606E+00_JPRB, 0.127713E+00_JPRB, 0.113968E+00_JPRB & |
1120 |
|
|
&, 0.101329E+00_JPRB, 0.897521E-01_JPRB, 0.791920E-01_JPRB & |
1121 |
|
|
&, 0.695973E-01_JPRB, 0.609151E-01_JPRB, 0.530980E-01_JPRB, 0.460838E-01_JPRB & |
1122 |
|
|
&, 0.398279E-01_JPRB, 0.342662E-01_JPRB, 0.293528E-01_JPRB & |
1123 |
|
|
&, 0.250212E-01_JPRB, 0.212388E-01_JPRB, 0.179431E-01_JPRB, 0.150883E-01_JPRB & |
1124 |
|
|
&, 0.126221E-01_JPRB, 0.105165E-01_JPRB, 0.871749E-02_JPRB & |
1125 |
|
|
&, 0.718630E-02_JPRB, 0.590153E-02_JPRB, 0.481518E-02_JPRB, 0.390912E-02_JPRB & |
1126 |
|
|
&, 0.316249E-02_JPRB, 0.253903E-02_JPRB, 0.203665E-02_JPRB & |
1127 |
|
|
&, 0.162620E-02_JPRB, 0.128858E-02_JPRB, 0.101620E-02_JPRB, 0.786290E-03_JPRB & |
1128 |
|
|
&, 0.616948E-03_JPRB, 0.483404E-03_JPRB, 0.373421E-03_JPRB & |
1129 |
|
|
&, 0.273452E-03_JPRB, 0.216151E-03_JPRB, 0.156019E-03_JPRB, 0.126178E-03_JPRB & |
1130 |
|
|
&, 0.948770E-04_JPRB, 0.620795E-04_JPRB, 0.455005E-04_JPRB & |
1131 |
|
|
&, 0.281466E-04_JPRB, 0.285490E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1132 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1133 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1134 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1135 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1136 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1137 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1138 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1139 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1140 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1141 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1142 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1143 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1144 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1145 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1146 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1147 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1148 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1149 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1150 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1151 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1152 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1153 |
|
|
XCW( 23, :) = (/ & |
1154 |
|
|
& 0.808973E+00_JPRB, 0.764504E+00_JPRB, 0.721375E+00_JPRB, 0.679597E+00_JPRB & |
1155 |
|
|
&, 0.639179E+00_JPRB, 0.600130E+00_JPRB, 0.562456E+00_JPRB & |
1156 |
|
|
&, 0.526164E+00_JPRB, 0.491258E+00_JPRB, 0.457739E+00_JPRB, 0.425610E+00_JPRB & |
1157 |
|
|
&, 0.394870E+00_JPRB, 0.365514E+00_JPRB, 0.337540E+00_JPRB & |
1158 |
|
|
&, 0.310937E+00_JPRB, 0.285698E+00_JPRB, 0.261808E+00_JPRB, 0.239253E+00_JPRB & |
1159 |
|
|
&, 0.218014E+00_JPRB, 0.198069E+00_JPRB, 0.179397E+00_JPRB & |
1160 |
|
|
&, 0.161966E+00_JPRB, 0.145750E+00_JPRB, 0.130712E+00_JPRB, 0.116814E+00_JPRB & |
1161 |
|
|
&, 0.104017E+00_JPRB, 0.922816E-01_JPRB, 0.815542E-01_JPRB & |
1162 |
|
|
&, 0.717948E-01_JPRB, 0.629507E-01_JPRB, 0.549707E-01_JPRB, 0.478013E-01_JPRB & |
1163 |
|
|
&, 0.413901E-01_JPRB, 0.356863E-01_JPRB, 0.306319E-01_JPRB & |
1164 |
|
|
&, 0.261745E-01_JPRB, 0.222592E-01_JPRB, 0.188525E-01_JPRB, 0.158904E-01_JPRB & |
1165 |
|
|
&, 0.133313E-01_JPRB, 0.111277E-01_JPRB, 0.924685E-02_JPRB & |
1166 |
|
|
&, 0.764035E-02_JPRB, 0.628749E-02_JPRB, 0.515259E-02_JPRB, 0.419529E-02_JPRB & |
1167 |
|
|
&, 0.340687E-02_JPRB, 0.273935E-02_JPRB, 0.220340E-02_JPRB & |
1168 |
|
|
&, 0.175760E-02_JPRB, 0.139625E-02_JPRB, 0.109890E-02_JPRB, 0.870977E-03_JPRB & |
1169 |
|
|
&, 0.674752E-03_JPRB, 0.527785E-03_JPRB, 0.403706E-03_JPRB & |
1170 |
|
|
&, 0.319944E-03_JPRB, 0.232009E-03_JPRB, 0.172244E-03_JPRB, 0.142775E-03_JPRB & |
1171 |
|
|
&, 0.948770E-04_JPRB, 0.794394E-04_JPRB, 0.455005E-04_JPRB & |
1172 |
|
|
&, 0.281466E-04_JPRB, 0.285490E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1173 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1174 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1175 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1176 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1177 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1178 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1179 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1180 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1181 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1182 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1183 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1184 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1185 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1186 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1187 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1188 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1189 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1190 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1191 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1192 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1193 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1194 |
|
|
XCW( 24, :) = (/ & |
1195 |
|
|
& 0.810596E+00_JPRB, 0.766457E+00_JPRB, 0.723628E+00_JPRB, 0.682121E+00_JPRB & |
1196 |
|
|
&, 0.641946E+00_JPRB, 0.603110E+00_JPRB, 0.565623E+00_JPRB & |
1197 |
|
|
&, 0.529490E+00_JPRB, 0.494717E+00_JPRB, 0.461307E+00_JPRB, 0.429261E+00_JPRB & |
1198 |
|
|
&, 0.398579E+00_JPRB, 0.369259E+00_JPRB, 0.341298E+00_JPRB & |
1199 |
|
|
&, 0.314687E+00_JPRB, 0.289419E+00_JPRB, 0.265483E+00_JPRB, 0.242864E+00_JPRB & |
1200 |
|
|
&, 0.221544E+00_JPRB, 0.201505E+00_JPRB, 0.182724E+00_JPRB & |
1201 |
|
|
&, 0.165175E+00_JPRB, 0.148826E+00_JPRB, 0.133648E+00_JPRB, 0.119606E+00_JPRB & |
1202 |
|
|
&, 0.106658E+00_JPRB, 0.947664E-01_JPRB, 0.838821E-01_JPRB & |
1203 |
|
|
&, 0.739649E-01_JPRB, 0.649621E-01_JPRB, 0.568270E-01_JPRB, 0.495062E-01_JPRB & |
1204 |
|
|
&, 0.429479E-01_JPRB, 0.370977E-01_JPRB, 0.319065E-01_JPRB & |
1205 |
|
|
&, 0.273186E-01_JPRB, 0.232892E-01_JPRB, 0.197618E-01_JPRB, 0.166924E-01_JPRB & |
1206 |
|
|
&, 0.140303E-01_JPRB, 0.117494E-01_JPRB, 0.978702E-02_JPRB & |
1207 |
|
|
&, 0.810548E-02_JPRB, 0.668480E-02_JPRB, 0.549000E-02_JPRB, 0.448146E-02_JPRB & |
1208 |
|
|
&, 0.365124E-02_JPRB, 0.295219E-02_JPRB, 0.237015E-02_JPRB & |
1209 |
|
|
&, 0.190214E-02_JPRB, 0.151738E-02_JPRB, 0.119539E-02_JPRB, 0.941548E-03_JPRB & |
1210 |
|
|
&, 0.747008E-03_JPRB, 0.572167E-03_JPRB, 0.449134E-03_JPRB & |
1211 |
|
|
&, 0.350938E-03_JPRB, 0.263725E-03_JPRB, 0.204692E-03_JPRB, 0.159372E-03_JPRB & |
1212 |
|
|
&, 0.111852E-03_JPRB, 0.794394E-04_JPRB, 0.632508E-04_JPRB & |
1213 |
|
|
&, 0.462932E-04_JPRB, 0.285490E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1214 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1215 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1216 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1217 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1218 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1219 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1220 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1221 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1222 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1223 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1224 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1225 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1226 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1227 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1228 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1229 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1230 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1231 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1232 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1233 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1234 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1235 |
|
|
XCW( 25, :) = (/ & |
1236 |
|
|
& 0.812163E+00_JPRB, 0.768343E+00_JPRB, 0.725804E+00_JPRB, 0.684561E+00_JPRB & |
1237 |
|
|
&, 0.644621E+00_JPRB, 0.605994E+00_JPRB, 0.568689E+00_JPRB & |
1238 |
|
|
&, 0.532712E+00_JPRB, 0.498069E+00_JPRB, 0.464764E+00_JPRB, 0.432801E+00_JPRB & |
1239 |
|
|
&, 0.402177E+00_JPRB, 0.372894E+00_JPRB, 0.344948E+00_JPRB & |
1240 |
|
|
&, 0.318332E+00_JPRB, 0.293041E+00_JPRB, 0.269062E+00_JPRB, 0.246383E+00_JPRB & |
1241 |
|
|
&, 0.224990E+00_JPRB, 0.204862E+00_JPRB, 0.185976E+00_JPRB & |
1242 |
|
|
&, 0.168312E+00_JPRB, 0.151841E+00_JPRB, 0.136528E+00_JPRB, 0.122345E+00_JPRB & |
1243 |
|
|
&, 0.109251E+00_JPRB, 0.972102E-01_JPRB, 0.861756E-01_JPRB & |
1244 |
|
|
&, 0.761037E-01_JPRB, 0.669496E-01_JPRB, 0.586627E-01_JPRB, 0.511942E-01_JPRB & |
1245 |
|
|
&, 0.444885E-01_JPRB, 0.385045E-01_JPRB, 0.331766E-01_JPRB & |
1246 |
|
|
&, 0.284627E-01_JPRB, 0.243096E-01_JPRB, 0.206712E-01_JPRB, 0.175045E-01_JPRB & |
1247 |
|
|
&, 0.147498E-01_JPRB, 0.123712E-01_JPRB, 0.103272E-01_JPRB & |
1248 |
|
|
&, 0.858169E-02_JPRB, 0.709346E-02_JPRB, 0.583904E-02_JPRB, 0.477956E-02_JPRB & |
1249 |
|
|
&, 0.389562E-02_JPRB, 0.316503E-02_JPRB, 0.254973E-02_JPRB & |
1250 |
|
|
&, 0.204667E-02_JPRB, 0.163851E-02_JPRB, 0.130565E-02_JPRB, 0.102623E-02_JPRB & |
1251 |
|
|
&, 0.804813E-03_JPRB, 0.631342E-03_JPRB, 0.494562E-03_JPRB & |
1252 |
|
|
&, 0.381933E-03_JPRB, 0.295441E-03_JPRB, 0.220917E-03_JPRB, 0.175969E-03_JPRB & |
1253 |
|
|
&, 0.128828E-03_JPRB, 0.967992E-04_JPRB, 0.632508E-04_JPRB & |
1254 |
|
|
&, 0.462932E-04_JPRB, 0.285490E-04_JPRB, 0.289572E-04_JPRB, 0.100000E-04_JPRB & |
1255 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1256 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1257 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1258 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1259 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1260 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1261 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1262 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1263 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1264 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1265 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1266 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1267 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1268 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1269 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1270 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1271 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1272 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1273 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1274 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1275 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1276 |
|
|
XCW( 26, :) = (/ & |
1277 |
|
|
& 0.813677E+00_JPRB, 0.770167E+00_JPRB, 0.727911E+00_JPRB, 0.686922E+00_JPRB & |
1278 |
|
|
&, 0.647211E+00_JPRB, 0.608787E+00_JPRB, 0.571659E+00_JPRB & |
1279 |
|
|
&, 0.535835E+00_JPRB, 0.501321E+00_JPRB, 0.468121E+00_JPRB, 0.436238E+00_JPRB & |
1280 |
|
|
&, 0.405674E+00_JPRB, 0.376429E+00_JPRB, 0.348499E+00_JPRB & |
1281 |
|
|
&, 0.321883E+00_JPRB, 0.296569E+00_JPRB, 0.272552E+00_JPRB, 0.249818E+00_JPRB & |
1282 |
|
|
&, 0.228353E+00_JPRB, 0.208139E+00_JPRB, 0.189157E+00_JPRB & |
1283 |
|
|
&, 0.171385E+00_JPRB, 0.154795E+00_JPRB, 0.139357E+00_JPRB, 0.125038E+00_JPRB & |
1284 |
|
|
&, 0.111805E+00_JPRB, 0.996204E-01_JPRB, 0.884386E-01_JPRB & |
1285 |
|
|
&, 0.782190E-01_JPRB, 0.689170E-01_JPRB, 0.604820E-01_JPRB, 0.528696E-01_JPRB & |
1286 |
|
|
&, 0.460248E-01_JPRB, 0.399026E-01_JPRB, 0.344466E-01_JPRB & |
1287 |
|
|
&, 0.296067E-01_JPRB, 0.253396E-01_JPRB, 0.215903E-01_JPRB, 0.183165E-01_JPRB & |
1288 |
|
|
&, 0.154693E-01_JPRB, 0.130035E-01_JPRB, 0.108782E-01_JPRB & |
1289 |
|
|
&, 0.905789E-02_JPRB, 0.751347E-02_JPRB, 0.619972E-02_JPRB, 0.508958E-02_JPRB & |
1290 |
|
|
&, 0.415222E-02_JPRB, 0.337787E-02_JPRB, 0.274213E-02_JPRB & |
1291 |
|
|
&, 0.220435E-02_JPRB, 0.175963E-02_JPRB, 0.140214E-02_JPRB, 0.111092E-02_JPRB & |
1292 |
|
|
&, 0.877068E-03_JPRB, 0.690518E-03_JPRB, 0.539989E-03_JPRB & |
1293 |
|
|
&, 0.412927E-03_JPRB, 0.327156E-03_JPRB, 0.253366E-03_JPRB, 0.192566E-03_JPRB & |
1294 |
|
|
&, 0.145803E-03_JPRB, 0.967992E-04_JPRB, 0.810010E-04_JPRB & |
1295 |
|
|
&, 0.644399E-04_JPRB, 0.470979E-04_JPRB, 0.289572E-04_JPRB, 0.100000E-04_JPRB & |
1296 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1297 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1298 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1299 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1300 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1301 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1302 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1303 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1304 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1305 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1306 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1307 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1308 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1309 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1310 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1311 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1312 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1313 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1314 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1315 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1316 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1317 |
|
|
XCW( 27, :) = (/ & |
1318 |
|
|
& 0.815145E+00_JPRB, 0.771933E+00_JPRB, 0.729952E+00_JPRB, 0.689211E+00_JPRB & |
1319 |
|
|
&, 0.649723E+00_JPRB, 0.611497E+00_JPRB, 0.574542E+00_JPRB & |
1320 |
|
|
&, 0.538868E+00_JPRB, 0.504480E+00_JPRB, 0.471383E+00_JPRB, 0.439581E+00_JPRB & |
1321 |
|
|
&, 0.409076E+00_JPRB, 0.379871E+00_JPRB, 0.351960E+00_JPRB & |
1322 |
|
|
&, 0.325342E+00_JPRB, 0.300012E+00_JPRB, 0.275958E+00_JPRB, 0.253173E+00_JPRB & |
1323 |
|
|
&, 0.231642E+00_JPRB, 0.211349E+00_JPRB, 0.192277E+00_JPRB & |
1324 |
|
|
&, 0.174399E+00_JPRB, 0.157694E+00_JPRB, 0.142133E+00_JPRB, 0.127688E+00_JPRB & |
1325 |
|
|
&, 0.114318E+00_JPRB, 0.101993E+00_JPRB, 0.906711E-01_JPRB & |
1326 |
|
|
&, 0.803070E-01_JPRB, 0.708603E-01_JPRB, 0.622848E-01_JPRB, 0.545324E-01_JPRB & |
1327 |
|
|
&, 0.475481E-01_JPRB, 0.412917E-01_JPRB, 0.357121E-01_JPRB & |
1328 |
|
|
&, 0.307508E-01_JPRB, 0.263695E-01_JPRB, 0.225095E-01_JPRB, 0.191286E-01_JPRB & |
1329 |
|
|
&, 0.161888E-01_JPRB, 0.136358E-01_JPRB, 0.114291E-01_JPRB & |
1330 |
|
|
&, 0.954517E-02_JPRB, 0.793348E-02_JPRB, 0.656040E-02_JPRB, 0.539960E-02_JPRB & |
1331 |
|
|
&, 0.442104E-02_JPRB, 0.360322E-02_JPRB, 0.292171E-02_JPRB & |
1332 |
|
|
&, 0.236203E-02_JPRB, 0.189422E-02_JPRB, 0.151241E-02_JPRB, 0.120972E-02_JPRB & |
1333 |
|
|
&, 0.949324E-03_JPRB, 0.749693E-03_JPRB, 0.585417E-03_JPRB & |
1334 |
|
|
&, 0.459419E-03_JPRB, 0.358872E-03_JPRB, 0.269590E-03_JPRB, 0.209163E-03_JPRB & |
1335 |
|
|
&, 0.162779E-03_JPRB, 0.114159E-03_JPRB, 0.810010E-04_JPRB & |
1336 |
|
|
&, 0.644399E-04_JPRB, 0.470979E-04_JPRB, 0.289572E-04_JPRB, 0.293715E-04_JPRB & |
1337 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1338 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1339 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1340 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1341 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1342 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1343 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1344 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1345 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1346 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1347 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1348 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1349 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1350 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1351 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1352 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1353 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1354 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1355 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1356 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1357 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1358 |
|
|
XCW( 28, :) = (/ & |
1359 |
|
|
& 0.816566E+00_JPRB, 0.773647E+00_JPRB, 0.731931E+00_JPRB, 0.691432E+00_JPRB & |
1360 |
|
|
&, 0.652161E+00_JPRB, 0.614128E+00_JPRB, 0.577344E+00_JPRB & |
1361 |
|
|
&, 0.541816E+00_JPRB, 0.507551E+00_JPRB, 0.474557E+00_JPRB, 0.442835E+00_JPRB & |
1362 |
|
|
&, 0.412391E+00_JPRB, 0.383224E+00_JPRB, 0.355334E+00_JPRB & |
1363 |
|
|
&, 0.328719E+00_JPRB, 0.303372E+00_JPRB, 0.279287E+00_JPRB, 0.256454E+00_JPRB & |
1364 |
|
|
&, 0.234860E+00_JPRB, 0.214490E+00_JPRB, 0.195331E+00_JPRB & |
1365 |
|
|
&, 0.177356E+00_JPRB, 0.160543E+00_JPRB, 0.144864E+00_JPRB, 0.130292E+00_JPRB & |
1366 |
|
|
&, 0.116795E+00_JPRB, 0.104337E+00_JPRB, 0.928768E-01_JPRB & |
1367 |
|
|
&, 0.823715E-01_JPRB, 0.727876E-01_JPRB, 0.640713E-01_JPRB, 0.561825E-01_JPRB & |
1368 |
|
|
&, 0.490671E-01_JPRB, 0.426809E-01_JPRB, 0.369731E-01_JPRB & |
1369 |
|
|
&, 0.318948E-01_JPRB, 0.273900E-01_JPRB, 0.234286E-01_JPRB, 0.199507E-01_JPRB & |
1370 |
|
|
&, 0.169186E-01_JPRB, 0.142786E-01_JPRB, 0.120017E-01_JPRB & |
1371 |
|
|
&, 0.100325E-01_JPRB, 0.835350E-02_JPRB, 0.692108E-02_JPRB, 0.570962E-02_JPRB & |
1372 |
|
|
&, 0.468985E-02_JPRB, 0.382858E-02_JPRB, 0.311411E-02_JPRB & |
1373 |
|
|
&, 0.251971E-02_JPRB, 0.202881E-02_JPRB, 0.163646E-02_JPRB, 0.129441E-02_JPRB & |
1374 |
|
|
&, 0.103603E-02_JPRB, 0.808869E-03_JPRB, 0.645987E-03_JPRB & |
1375 |
|
|
&, 0.505910E-03_JPRB, 0.390587E-03_JPRB, 0.302039E-03_JPRB, 0.225760E-03_JPRB & |
1376 |
|
|
&, 0.179754E-03_JPRB, 0.131519E-03_JPRB, 0.987513E-04_JPRB & |
1377 |
|
|
&, 0.644399E-04_JPRB, 0.470979E-04_JPRB, 0.289572E-04_JPRB, 0.293715E-04_JPRB & |
1378 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1379 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1380 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1381 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1382 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1383 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1384 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1385 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1386 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1387 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1388 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1389 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1390 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1391 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1392 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1393 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1394 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1395 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1396 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1397 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1398 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1399 |
|
|
|
1400 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART4',1,ZHOOK_HANDLE) |
1401 |
|
✗ |
END SUBROUTINE PART4 |
1402 |
|
|
|
1403 |
|
|
!option! -Nv -NO |
1404 |
|
|
!pgi$r opt=0 |
1405 |
|
✗ |
SUBROUTINE PART5 |
1406 |
|
|
|
1407 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1408 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART5',0,ZHOOK_HANDLE) |
1409 |
|
|
|
1410 |
|
|
XCW( 29, :) = (/ & |
1411 |
|
|
& 0.817947E+00_JPRB, 0.775311E+00_JPRB, 0.733854E+00_JPRB, 0.693591E+00_JPRB & |
1412 |
|
|
&, 0.654531E+00_JPRB, 0.616687E+00_JPRB, 0.580069E+00_JPRB & |
1413 |
|
|
&, 0.544685E+00_JPRB, 0.510542E+00_JPRB, 0.477648E+00_JPRB, 0.446007E+00_JPRB & |
1414 |
|
|
&, 0.415622E+00_JPRB, 0.386496E+00_JPRB, 0.358628E+00_JPRB & |
1415 |
|
|
&, 0.332016E+00_JPRB, 0.306657E+00_JPRB, 0.282543E+00_JPRB, 0.259664E+00_JPRB & |
1416 |
|
|
&, 0.238014E+00_JPRB, 0.217574E+00_JPRB, 0.198327E+00_JPRB & |
1417 |
|
|
&, 0.180257E+00_JPRB, 0.163341E+00_JPRB, 0.147550E+00_JPRB, 0.132860E+00_JPRB & |
1418 |
|
|
&, 0.119236E+00_JPRB, 0.106646E+00_JPRB, 0.950520E-01_JPRB & |
1419 |
|
|
&, 0.844165E-01_JPRB, 0.746949E-01_JPRB, 0.658454E-01_JPRB, 0.578201E-01_JPRB & |
1420 |
|
|
&, 0.505775E-01_JPRB, 0.440613E-01_JPRB, 0.382296E-01_JPRB & |
1421 |
|
|
&, 0.330296E-01_JPRB, 0.284199E-01_JPRB, 0.243575E-01_JPRB, 0.207728E-01_JPRB & |
1422 |
|
|
&, 0.176484E-01_JPRB, 0.149214E-01_JPRB, 0.125635E-01_JPRB & |
1423 |
|
|
&, 0.105308E-01_JPRB, 0.878486E-02_JPRB, 0.729340E-02_JPRB, 0.603157E-02_JPRB & |
1424 |
|
|
&, 0.497089E-02_JPRB, 0.406646E-02_JPRB, 0.331934E-02_JPRB & |
1425 |
|
|
&, 0.269053E-02_JPRB, 0.217685E-02_JPRB, 0.174673E-02_JPRB, 0.139321E-02_JPRB & |
1426 |
|
|
&, 0.110829E-02_JPRB, 0.882838E-03_JPRB, 0.691415E-03_JPRB & |
1427 |
|
|
&, 0.536905E-03_JPRB, 0.422303E-03_JPRB, 0.334488E-03_JPRB, 0.258954E-03_JPRB & |
1428 |
|
|
&, 0.196729E-03_JPRB, 0.148879E-03_JPRB, 0.116502E-03_JPRB & |
1429 |
|
|
&, 0.825865E-04_JPRB, 0.656469E-04_JPRB, 0.479145E-04_JPRB, 0.293715E-04_JPRB & |
1430 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1431 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1432 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1433 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1434 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1435 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1436 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1437 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1438 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1439 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1440 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1441 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1442 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1443 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1444 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1445 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1446 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1447 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1448 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1449 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1450 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1451 |
|
|
XCW( 30, :) = (/ & |
1452 |
|
|
& 0.819288E+00_JPRB, 0.776928E+00_JPRB, 0.735724E+00_JPRB, 0.695691E+00_JPRB & |
1453 |
|
|
&, 0.656838E+00_JPRB, 0.619179E+00_JPRB, 0.582723E+00_JPRB & |
1454 |
|
|
&, 0.547480E+00_JPRB, 0.513458E+00_JPRB, 0.480663E+00_JPRB, 0.449101E+00_JPRB & |
1455 |
|
|
&, 0.418776E+00_JPRB, 0.389692E+00_JPRB, 0.361847E+00_JPRB & |
1456 |
|
|
&, 0.335240E+00_JPRB, 0.309869E+00_JPRB, 0.285729E+00_JPRB, 0.262811E+00_JPRB & |
1457 |
|
|
&, 0.241104E+00_JPRB, 0.220594E+00_JPRB, 0.201268E+00_JPRB & |
1458 |
|
|
&, 0.183109E+00_JPRB, 0.166092E+00_JPRB, 0.150195E+00_JPRB, 0.135390E+00_JPRB & |
1459 |
|
|
&, 0.121644E+00_JPRB, 0.108930E+00_JPRB, 0.972082E-01_JPRB & |
1460 |
|
|
&, 0.864380E-01_JPRB, 0.765862E-01_JPRB, 0.676031E-01_JPRB, 0.594492E-01_JPRB & |
1461 |
|
|
&, 0.520750E-01_JPRB, 0.454372E-01_JPRB, 0.394860E-01_JPRB & |
1462 |
|
|
&, 0.341737E-01_JPRB, 0.294499E-01_JPRB, 0.252767E-01_JPRB, 0.216049E-01_JPRB & |
1463 |
|
|
&, 0.183885E-01_JPRB, 0.155748E-01_JPRB, 0.131360E-01_JPRB & |
1464 |
|
|
&, 0.110292E-01_JPRB, 0.922757E-02_JPRB, 0.767734E-02_JPRB, 0.636544E-02_JPRB & |
1465 |
|
|
&, 0.525193E-02_JPRB, 0.430434E-02_JPRB, 0.352457E-02_JPRB & |
1466 |
|
|
&, 0.286134E-02_JPRB, 0.231144E-02_JPRB, 0.187078E-02_JPRB, 0.149201E-02_JPRB & |
1467 |
|
|
&, 0.119499E-02_JPRB, 0.942013E-03_JPRB, 0.751985E-03_JPRB & |
1468 |
|
|
&, 0.583396E-03_JPRB, 0.454019E-03_JPRB, 0.350712E-03_JPRB, 0.275550E-03_JPRB & |
1469 |
|
|
&, 0.213705E-03_JPRB, 0.166239E-03_JPRB, 0.116502E-03_JPRB & |
1470 |
|
|
&, 0.825865E-04_JPRB, 0.656469E-04_JPRB, 0.479145E-04_JPRB, 0.293715E-04_JPRB & |
1471 |
|
|
&, 0.297917E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1472 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1473 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1474 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1475 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1476 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1477 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1478 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1479 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1480 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1481 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1482 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1483 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1484 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1485 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1486 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1487 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1488 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1489 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1490 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1491 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1492 |
|
|
XCW( 31, :) = (/ & |
1493 |
|
|
& 0.820593E+00_JPRB, 0.778502E+00_JPRB, 0.737544E+00_JPRB, 0.697735E+00_JPRB & |
1494 |
|
|
&, 0.659085E+00_JPRB, 0.621606E+00_JPRB, 0.585310E+00_JPRB & |
1495 |
|
|
&, 0.550206E+00_JPRB, 0.516301E+00_JPRB, 0.483605E+00_JPRB, 0.452123E+00_JPRB & |
1496 |
|
|
&, 0.421858E+00_JPRB, 0.392815E+00_JPRB, 0.364994E+00_JPRB & |
1497 |
|
|
&, 0.338395E+00_JPRB, 0.313017E+00_JPRB, 0.288851E+00_JPRB, 0.265895E+00_JPRB & |
1498 |
|
|
&, 0.244135E+00_JPRB, 0.223560E+00_JPRB, 0.204160E+00_JPRB & |
1499 |
|
|
&, 0.185914E+00_JPRB, 0.168802E+00_JPRB, 0.152798E+00_JPRB, 0.137880E+00_JPRB & |
1500 |
|
|
&, 0.124019E+00_JPRB, 0.111184E+00_JPRB, 0.993376E-01_JPRB & |
1501 |
|
|
&, 0.884399E-01_JPRB, 0.784614E-01_JPRB, 0.693485E-01_JPRB, 0.610699E-01_JPRB & |
1502 |
|
|
&, 0.535724E-01_JPRB, 0.468087E-01_JPRB, 0.407425E-01_JPRB & |
1503 |
|
|
&, 0.353177E-01_JPRB, 0.304894E-01_JPRB, 0.262056E-01_JPRB, 0.224370E-01_JPRB & |
1504 |
|
|
&, 0.191286E-01_JPRB, 0.162387E-01_JPRB, 0.137194E-01_JPRB & |
1505 |
|
|
&, 0.115386E-01_JPRB, 0.967029E-02_JPRB, 0.806129E-02_JPRB, 0.669931E-02_JPRB & |
1506 |
|
|
&, 0.553296E-02_JPRB, 0.455474E-02_JPRB, 0.372980E-02_JPRB & |
1507 |
|
|
&, 0.303216E-02_JPRB, 0.245949E-02_JPRB, 0.199483E-02_JPRB, 0.160492E-02_JPRB & |
1508 |
|
|
&, 0.128170E-02_JPRB, 0.101598E-02_JPRB, 0.812555E-03_JPRB & |
1509 |
|
|
&, 0.629888E-03_JPRB, 0.501592E-03_JPRB, 0.383161E-03_JPRB, 0.292147E-03_JPRB & |
1510 |
|
|
&, 0.230680E-03_JPRB, 0.183598E-03_JPRB, 0.134252E-03_JPRB & |
1511 |
|
|
&, 0.100733E-03_JPRB, 0.656469E-04_JPRB, 0.479145E-04_JPRB, 0.293715E-04_JPRB & |
1512 |
|
|
&, 0.297917E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1513 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1514 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1515 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1516 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1517 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1518 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1519 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1520 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1521 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1522 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1523 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1524 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1525 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1526 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1527 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1528 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1529 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1530 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1531 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1532 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1533 |
|
|
XCW( 32, :) = (/ & |
1534 |
|
|
& 0.821863E+00_JPRB, 0.780035E+00_JPRB, 0.739318E+00_JPRB, 0.699727E+00_JPRB & |
1535 |
|
|
&, 0.661275E+00_JPRB, 0.623974E+00_JPRB, 0.587834E+00_JPRB & |
1536 |
|
|
&, 0.552866E+00_JPRB, 0.519078E+00_JPRB, 0.486479E+00_JPRB, 0.455075E+00_JPRB & |
1537 |
|
|
&, 0.424871E+00_JPRB, 0.395870E+00_JPRB, 0.368075E+00_JPRB & |
1538 |
|
|
&, 0.341486E+00_JPRB, 0.316099E+00_JPRB, 0.291913E+00_JPRB, 0.268919E+00_JPRB & |
1539 |
|
|
&, 0.247111E+00_JPRB, 0.226476E+00_JPRB, 0.207004E+00_JPRB & |
1540 |
|
|
&, 0.188672E+00_JPRB, 0.171467E+00_JPRB, 0.155366E+00_JPRB, 0.140342E+00_JPRB & |
1541 |
|
|
&, 0.126365E+00_JPRB, 0.113411E+00_JPRB, 0.101444E+00_JPRB & |
1542 |
|
|
&, 0.904262E-01_JPRB, 0.803166E-01_JPRB, 0.710815E-01_JPRB, 0.626779E-01_JPRB & |
1543 |
|
|
&, 0.550569E-01_JPRB, 0.481757E-01_JPRB, 0.419898E-01_JPRB & |
1544 |
|
|
&, 0.364525E-01_JPRB, 0.315194E-01_JPRB, 0.271345E-01_JPRB, 0.232691E-01_JPRB & |
1545 |
|
|
&, 0.198687E-01_JPRB, 0.168920E-01_JPRB, 0.143028E-01_JPRB & |
1546 |
|
|
&, 0.120591E-01_JPRB, 0.101244E-01_JPRB, 0.845688E-02_JPRB, 0.703318E-02_JPRB & |
1547 |
|
|
&, 0.582622E-02_JPRB, 0.480514E-02_JPRB, 0.393503E-02_JPRB & |
1548 |
|
|
&, 0.321612E-02_JPRB, 0.262099E-02_JPRB, 0.211889E-02_JPRB, 0.170372E-02_JPRB & |
1549 |
|
|
&, 0.136841E-02_JPRB, 0.108995E-02_JPRB, 0.873125E-03_JPRB & |
1550 |
|
|
&, 0.691877E-03_JPRB, 0.533308E-03_JPRB, 0.415609E-03_JPRB, 0.325341E-03_JPRB & |
1551 |
|
|
&, 0.247656E-03_JPRB, 0.200958E-03_JPRB, 0.152002E-03_JPRB & |
1552 |
|
|
&, 0.118880E-03_JPRB, 0.841958E-04_JPRB, 0.668717E-04_JPRB, 0.487430E-04_JPRB & |
1553 |
|
|
&, 0.297917E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1554 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1555 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1556 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1557 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1558 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1559 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1560 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1561 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1562 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1563 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1564 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1565 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1566 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1567 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1568 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1569 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1570 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1571 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1572 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1573 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1574 |
|
|
XCW( 33, :) = (/ & |
1575 |
|
|
& 0.823102E+00_JPRB, 0.781529E+00_JPRB, 0.741047E+00_JPRB, 0.701671E+00_JPRB & |
1576 |
|
|
&, 0.663413E+00_JPRB, 0.626280E+00_JPRB, 0.590299E+00_JPRB & |
1577 |
|
|
&, 0.555465E+00_JPRB, 0.521792E+00_JPRB, 0.489290E+00_JPRB, 0.457963E+00_JPRB & |
1578 |
|
|
&, 0.427819E+00_JPRB, 0.398861E+00_JPRB, 0.371092E+00_JPRB & |
1579 |
|
|
&, 0.344513E+00_JPRB, 0.319122E+00_JPRB, 0.294915E+00_JPRB, 0.271889E+00_JPRB & |
1580 |
|
|
&, 0.250035E+00_JPRB, 0.229340E+00_JPRB, 0.209799E+00_JPRB & |
1581 |
|
|
&, 0.191388E+00_JPRB, 0.174096E+00_JPRB, 0.157896E+00_JPRB, 0.142768E+00_JPRB & |
1582 |
|
|
&, 0.128686E+00_JPRB, 0.115613E+00_JPRB, 0.103528E+00_JPRB & |
1583 |
|
|
&, 0.923891E-01_JPRB, 0.821598E-01_JPRB, 0.728063E-01_JPRB, 0.642776E-01_JPRB & |
1584 |
|
|
&, 0.565371E-01_JPRB, 0.495384E-01_JPRB, 0.432417E-01_JPRB & |
1585 |
|
|
&, 0.375872E-01_JPRB, 0.325493E-01_JPRB, 0.280732E-01_JPRB, 0.241113E-01_JPRB & |
1586 |
|
|
&, 0.206190E-01_JPRB, 0.175665E-01_JPRB, 0.148970E-01_JPRB & |
1587 |
|
|
&, 0.125796E-01_JPRB, 0.105784E-01_JPRB, 0.885246E-02_JPRB, 0.737897E-02_JPRB & |
1588 |
|
|
&, 0.611947E-02_JPRB, 0.505554E-02_JPRB, 0.415309E-02_JPRB & |
1589 |
|
|
&, 0.340008E-02_JPRB, 0.276904E-02_JPRB, 0.225672E-02_JPRB, 0.181664E-02_JPRB & |
1590 |
|
|
&, 0.145511E-02_JPRB, 0.116392E-02_JPRB, 0.933696E-03_JPRB & |
1591 |
|
|
&, 0.738368E-03_JPRB, 0.580881E-03_JPRB, 0.448058E-03_JPRB, 0.358535E-03_JPRB & |
1592 |
|
|
&, 0.281606E-03_JPRB, 0.218318E-03_JPRB, 0.152002E-03_JPRB & |
1593 |
|
|
&, 0.118880E-03_JPRB, 0.841958E-04_JPRB, 0.668717E-04_JPRB, 0.487430E-04_JPRB & |
1594 |
|
|
&, 0.297917E-04_JPRB, 0.302179E-04_JPRB, 0.100000E-04_JPRB & |
1595 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1596 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1597 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1598 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1599 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1600 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1601 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1602 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1603 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1604 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1605 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1606 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1607 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1608 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1609 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1610 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1611 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1612 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1613 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1614 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1615 |
|
|
XCW( 34, :) = (/ & |
1616 |
|
|
& 0.824310E+00_JPRB, 0.782987E+00_JPRB, 0.742736E+00_JPRB, 0.703569E+00_JPRB & |
1617 |
|
|
&, 0.665501E+00_JPRB, 0.628543E+00_JPRB, 0.592708E+00_JPRB & |
1618 |
|
|
&, 0.558006E+00_JPRB, 0.524447E+00_JPRB, 0.492039E+00_JPRB, 0.460791E+00_JPRB & |
1619 |
|
|
&, 0.430707E+00_JPRB, 0.401793E+00_JPRB, 0.374051E+00_JPRB & |
1620 |
|
|
&, 0.347482E+00_JPRB, 0.322088E+00_JPRB, 0.297864E+00_JPRB, 0.274807E+00_JPRB & |
1621 |
|
|
&, 0.252909E+00_JPRB, 0.232161E+00_JPRB, 0.212552E+00_JPRB & |
1622 |
|
|
&, 0.194063E+00_JPRB, 0.176687E+00_JPRB, 0.160395E+00_JPRB, 0.145166E+00_JPRB & |
1623 |
|
|
&, 0.130973E+00_JPRB, 0.117796E+00_JPRB, 0.105592E+00_JPRB & |
1624 |
|
|
&, 0.943363E-01_JPRB, 0.839910E-01_JPRB, 0.745148E-01_JPRB, 0.658688E-01_JPRB & |
1625 |
|
|
&, 0.580129E-01_JPRB, 0.509010E-01_JPRB, 0.444891E-01_JPRB & |
1626 |
|
|
&, 0.387313E-01_JPRB, 0.335888E-01_JPRB, 0.290119E-01_JPRB, 0.249534E-01_JPRB & |
1627 |
|
|
&, 0.213796E-01_JPRB, 0.182304E-01_JPRB, 0.154912E-01_JPRB & |
1628 |
|
|
&, 0.131001E-01_JPRB, 0.110325E-01_JPRB, 0.925968E-02_JPRB, 0.772476E-02_JPRB & |
1629 |
|
|
&, 0.642494E-02_JPRB, 0.531846E-02_JPRB, 0.438398E-02_JPRB & |
1630 |
|
|
&, 0.359717E-02_JPRB, 0.293054E-02_JPRB, 0.238077E-02_JPRB, 0.192955E-02_JPRB & |
1631 |
|
|
&, 0.155627E-02_JPRB, 0.125268E-02_JPRB, 0.994266E-03_JPRB & |
1632 |
|
|
&, 0.784860E-03_JPRB, 0.628454E-03_JPRB, 0.496731E-03_JPRB, 0.375132E-03_JPRB & |
1633 |
|
|
&, 0.298582E-03_JPRB, 0.235678E-03_JPRB, 0.169752E-03_JPRB & |
1634 |
|
|
&, 0.137026E-03_JPRB, 0.102745E-03_JPRB, 0.668717E-04_JPRB, 0.487430E-04_JPRB & |
1635 |
|
|
&, 0.297917E-04_JPRB, 0.302179E-04_JPRB, 0.100000E-04_JPRB & |
1636 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1637 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1638 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1639 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1640 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1641 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1642 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1643 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1644 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1645 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1646 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1647 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1648 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1649 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1650 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1651 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1652 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1653 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1654 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1655 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1656 |
|
|
XCW( 35, :) = (/ & |
1657 |
|
|
& 0.825489E+00_JPRB, 0.784411E+00_JPRB, 0.744385E+00_JPRB, 0.705424E+00_JPRB & |
1658 |
|
|
&, 0.667541E+00_JPRB, 0.630751E+00_JPRB, 0.595064E+00_JPRB & |
1659 |
|
|
&, 0.560492E+00_JPRB, 0.527045E+00_JPRB, 0.494732E+00_JPRB, 0.463560E+00_JPRB & |
1660 |
|
|
&, 0.433536E+00_JPRB, 0.404666E+00_JPRB, 0.376952E+00_JPRB & |
1661 |
|
|
&, 0.350396E+00_JPRB, 0.325000E+00_JPRB, 0.300761E+00_JPRB, 0.277675E+00_JPRB & |
1662 |
|
|
&, 0.255736E+00_JPRB, 0.234933E+00_JPRB, 0.215259E+00_JPRB & |
1663 |
|
|
&, 0.196702E+00_JPRB, 0.179241E+00_JPRB, 0.162859E+00_JPRB, 0.147532E+00_JPRB & |
1664 |
|
|
&, 0.133240E+00_JPRB, 0.119953E+00_JPRB, 0.107638E+00_JPRB & |
1665 |
|
|
&, 0.962678E-01_JPRB, 0.858061E-01_JPRB, 0.762149E-01_JPRB, 0.674516E-01_JPRB & |
1666 |
|
|
&, 0.594801E-01_JPRB, 0.522548E-01_JPRB, 0.457320E-01_JPRB & |
1667 |
|
|
&, 0.398661E-01_JPRB, 0.346188E-01_JPRB, 0.299506E-01_JPRB, 0.257956E-01_JPRB & |
1668 |
|
|
&, 0.221300E-01_JPRB, 0.189153E-01_JPRB, 0.160962E-01_JPRB & |
1669 |
|
|
&, 0.136317E-01_JPRB, 0.114979E-01_JPRB, 0.966690E-02_JPRB, 0.808248E-02_JPRB & |
1670 |
|
|
&, 0.673042E-02_JPRB, 0.558138E-02_JPRB, 0.461486E-02_JPRB & |
1671 |
|
|
&, 0.379427E-02_JPRB, 0.310551E-02_JPRB, 0.251861E-02_JPRB, 0.204247E-02_JPRB & |
1672 |
|
|
&, 0.165743E-02_JPRB, 0.132665E-02_JPRB, 0.105484E-02_JPRB & |
1673 |
|
|
&, 0.846849E-03_JPRB, 0.676028E-03_JPRB, 0.529180E-03_JPRB, 0.408326E-03_JPRB & |
1674 |
|
|
&, 0.315557E-03_JPRB, 0.253038E-03_JPRB, 0.187503E-03_JPRB & |
1675 |
|
|
&, 0.137026E-03_JPRB, 0.102745E-03_JPRB, 0.858290E-04_JPRB, 0.681145E-04_JPRB & |
1676 |
|
|
&, 0.495834E-04_JPRB, 0.302179E-04_JPRB, 0.100000E-04_JPRB & |
1677 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1678 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1679 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1680 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1681 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1682 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1683 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1684 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1685 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1686 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1687 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1688 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1689 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1690 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1691 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1692 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1693 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1694 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1695 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1696 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1697 |
|
|
|
1698 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART5',1,ZHOOK_HANDLE) |
1699 |
|
✗ |
END SUBROUTINE PART5 |
1700 |
|
|
|
1701 |
|
|
!option! -Nv -NO |
1702 |
|
|
!pgi$r opt=0 |
1703 |
|
✗ |
SUBROUTINE PART6 |
1704 |
|
|
|
1705 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1706 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART6',0,ZHOOK_HANDLE) |
1707 |
|
|
|
1708 |
|
|
XCW( 36, :) = (/ & |
1709 |
|
|
& 0.826642E+00_JPRB, 0.785803E+00_JPRB, 0.745996E+00_JPRB, 0.707237E+00_JPRB & |
1710 |
|
|
&, 0.669537E+00_JPRB, 0.632911E+00_JPRB, 0.597370E+00_JPRB & |
1711 |
|
|
&, 0.562926E+00_JPRB, 0.529589E+00_JPRB, 0.497370E+00_JPRB, 0.466275E+00_JPRB & |
1712 |
|
|
&, 0.436310E+00_JPRB, 0.407484E+00_JPRB, 0.379800E+00_JPRB & |
1713 |
|
|
&, 0.353259E+00_JPRB, 0.327862E+00_JPRB, 0.303609E+00_JPRB, 0.280496E+00_JPRB & |
1714 |
|
|
&, 0.258517E+00_JPRB, 0.237665E+00_JPRB, 0.217931E+00_JPRB & |
1715 |
|
|
&, 0.199302E+00_JPRB, 0.181760E+00_JPRB, 0.165291E+00_JPRB, 0.149873E+00_JPRB & |
1716 |
|
|
&, 0.135480E+00_JPRB, 0.122088E+00_JPRB, 0.109664E+00_JPRB & |
1717 |
|
|
&, 0.981838E-01_JPRB, 0.876092E-01_JPRB, 0.779028E-01_JPRB, 0.690260E-01_JPRB & |
1718 |
|
|
&, 0.609387E-01_JPRB, 0.536042E-01_JPRB, 0.469748E-01_JPRB & |
1719 |
|
|
&, 0.410101E-01_JPRB, 0.356583E-01_JPRB, 0.308893E-01_JPRB, 0.266477E-01_JPRB & |
1720 |
|
|
&, 0.229009E-01_JPRB, 0.195898E-01_JPRB, 0.167011E-01_JPRB & |
1721 |
|
|
&, 0.141743E-01_JPRB, 0.119747E-01_JPRB, 0.100741E-01_JPRB, 0.844020E-02_JPRB & |
1722 |
|
|
&, 0.704811E-02_JPRB, 0.585681E-02_JPRB, 0.484574E-02_JPRB & |
1723 |
|
|
&, 0.399137E-02_JPRB, 0.326701E-02_JPRB, 0.267023E-02_JPRB, 0.216950E-02_JPRB & |
1724 |
|
|
&, 0.175859E-02_JPRB, 0.141542E-02_JPRB, 0.113055E-02_JPRB & |
1725 |
|
|
&, 0.908837E-03_JPRB, 0.707744E-03_JPRB, 0.561629E-03_JPRB, 0.441520E-03_JPRB & |
1726 |
|
|
&, 0.349508E-03_JPRB, 0.270398E-03_JPRB, 0.205253E-03_JPRB & |
1727 |
|
|
&, 0.155173E-03_JPRB, 0.121294E-03_JPRB, 0.858290E-04_JPRB, 0.681145E-04_JPRB & |
1728 |
|
|
&, 0.495834E-04_JPRB, 0.302179E-04_JPRB, 0.306500E-04_JPRB & |
1729 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1730 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1731 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1732 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1733 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1734 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1735 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1736 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1737 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1738 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1739 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1740 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1741 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1742 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1743 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1744 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1745 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1746 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1747 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1748 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1749 |
|
|
XCW( 37, :) = (/ & |
1750 |
|
|
& 0.827767E+00_JPRB, 0.787164E+00_JPRB, 0.747573E+00_JPRB, 0.709011E+00_JPRB & |
1751 |
|
|
&, 0.671491E+00_JPRB, 0.635026E+00_JPRB, 0.599629E+00_JPRB & |
1752 |
|
|
&, 0.565311E+00_JPRB, 0.532084E+00_JPRB, 0.499956E+00_JPRB, 0.468937E+00_JPRB & |
1753 |
|
|
&, 0.439034E+00_JPRB, 0.410251E+00_JPRB, 0.382597E+00_JPRB & |
1754 |
|
|
&, 0.356070E+00_JPRB, 0.330675E+00_JPRB, 0.306410E+00_JPRB, 0.283271E+00_JPRB & |
1755 |
|
|
&, 0.261256E+00_JPRB, 0.240358E+00_JPRB, 0.220564E+00_JPRB & |
1756 |
|
|
&, 0.201868E+00_JPRB, 0.184250E+00_JPRB, 0.167696E+00_JPRB, 0.152186E+00_JPRB & |
1757 |
|
|
&, 0.137695E+00_JPRB, 0.124200E+00_JPRB, 0.111675E+00_JPRB & |
1758 |
|
|
&, 0.100084E+00_JPRB, 0.893963E-01_JPRB, 0.795784E-01_JPRB, 0.705919E-01_JPRB & |
1759 |
|
|
&, 0.623973E-01_JPRB, 0.549535E-01_JPRB, 0.482176E-01_JPRB & |
1760 |
|
|
&, 0.421449E-01_JPRB, 0.366978E-01_JPRB, 0.318280E-01_JPRB, 0.274999E-01_JPRB & |
1761 |
|
|
&, 0.236615E-01_JPRB, 0.202747E-01_JPRB, 0.173061E-01_JPRB & |
1762 |
|
|
&, 0.147170E-01_JPRB, 0.124515E-01_JPRB, 0.104930E-01_JPRB, 0.880984E-02_JPRB & |
1763 |
|
|
&, 0.736580E-02_JPRB, 0.613225E-02_JPRB, 0.507663E-02_JPRB & |
1764 |
|
|
&, 0.418847E-02_JPRB, 0.344197E-02_JPRB, 0.280806E-02_JPRB, 0.229653E-02_JPRB & |
1765 |
|
|
&, 0.185975E-02_JPRB, 0.150418E-02_JPRB, 0.120626E-02_JPRB & |
1766 |
|
|
&, 0.955329E-03_JPRB, 0.771175E-03_JPRB, 0.610302E-03_JPRB, 0.474713E-03_JPRB & |
1767 |
|
|
&, 0.366483E-03_JPRB, 0.287757E-03_JPRB, 0.223003E-03_JPRB & |
1768 |
|
|
&, 0.173320E-03_JPRB, 0.139843E-03_JPRB, 0.104786E-03_JPRB, 0.681145E-04_JPRB & |
1769 |
|
|
&, 0.495834E-04_JPRB, 0.302179E-04_JPRB, 0.306500E-04_JPRB & |
1770 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1771 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1772 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1773 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1774 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1775 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1776 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1777 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1778 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1779 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1780 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1781 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1782 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1783 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1784 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1785 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1786 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1787 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1788 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1789 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1790 |
|
|
XCW( 38, :) = (/ & |
1791 |
|
|
& 0.828871E+00_JPRB, 0.788496E+00_JPRB, 0.749117E+00_JPRB, 0.710749E+00_JPRB & |
1792 |
|
|
&, 0.673404E+00_JPRB, 0.637098E+00_JPRB, 0.601842E+00_JPRB & |
1793 |
|
|
&, 0.567649E+00_JPRB, 0.534530E+00_JPRB, 0.502494E+00_JPRB, 0.471550E+00_JPRB & |
1794 |
|
|
&, 0.441706E+00_JPRB, 0.412970E+00_JPRB, 0.385344E+00_JPRB & |
1795 |
|
|
&, 0.358834E+00_JPRB, 0.333442E+00_JPRB, 0.309165E+00_JPRB, 0.286005E+00_JPRB & |
1796 |
|
|
&, 0.263955E+00_JPRB, 0.243010E+00_JPRB, 0.223161E+00_JPRB & |
1797 |
|
|
&, 0.204398E+00_JPRB, 0.186709E+00_JPRB, 0.170070E+00_JPRB, 0.154473E+00_JPRB & |
1798 |
|
|
&, 0.139889E+00_JPRB, 0.126297E+00_JPRB, 0.113667E+00_JPRB & |
1799 |
|
|
&, 0.101969E+00_JPRB, 0.911754E-01_JPRB, 0.812498E-01_JPRB, 0.721537E-01_JPRB & |
1800 |
|
|
&, 0.638473E-01_JPRB, 0.562940E-01_JPRB, 0.494559E-01_JPRB & |
1801 |
|
|
&, 0.432796E-01_JPRB, 0.377373E-01_JPRB, 0.327765E-01_JPRB, 0.283521E-01_JPRB & |
1802 |
|
|
&, 0.244325E-01_JPRB, 0.209703E-01_JPRB, 0.179219E-01_JPRB & |
1803 |
|
|
&, 0.152596E-01_JPRB, 0.129396E-01_JPRB, 0.109235E-01_JPRB, 0.917948E-02_JPRB & |
1804 |
|
|
&, 0.768350E-02_JPRB, 0.640769E-02_JPRB, 0.532034E-02_JPRB & |
1805 |
|
|
&, 0.439870E-02_JPRB, 0.361694E-02_JPRB, 0.295968E-02_JPRB, 0.242356E-02_JPRB & |
1806 |
|
|
&, 0.196090E-02_JPRB, 0.159294E-02_JPRB, 0.128197E-02_JPRB & |
1807 |
|
|
&, 0.101732E-02_JPRB, 0.818748E-03_JPRB, 0.642751E-03_JPRB, 0.507907E-03_JPRB & |
1808 |
|
|
&, 0.400434E-03_JPRB, 0.305117E-03_JPRB, 0.240753E-03_JPRB & |
1809 |
|
|
&, 0.191466E-03_JPRB, 0.139843E-03_JPRB, 0.104786E-03_JPRB, 0.874860E-04_JPRB & |
1810 |
|
|
&, 0.495834E-04_JPRB, 0.504358E-04_JPRB, 0.306500E-04_JPRB & |
1811 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1812 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1813 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1814 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1815 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1816 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1817 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1818 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1819 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1820 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1821 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1822 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1823 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1824 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1825 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1826 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1827 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1828 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1829 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1830 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1831 |
|
|
XCW( 39, :) = (/ & |
1832 |
|
|
& 0.829949E+00_JPRB, 0.789801E+00_JPRB, 0.750629E+00_JPRB, 0.712451E+00_JPRB & |
1833 |
|
|
&, 0.675280E+00_JPRB, 0.639129E+00_JPRB, 0.604013E+00_JPRB & |
1834 |
|
|
&, 0.569942E+00_JPRB, 0.536929E+00_JPRB, 0.504984E+00_JPRB, 0.474116E+00_JPRB & |
1835 |
|
|
&, 0.444331E+00_JPRB, 0.415640E+00_JPRB, 0.388046E+00_JPRB & |
1836 |
|
|
&, 0.361553E+00_JPRB, 0.336164E+00_JPRB, 0.311879E+00_JPRB, 0.288697E+00_JPRB & |
1837 |
|
|
&, 0.266615E+00_JPRB, 0.245624E+00_JPRB, 0.225723E+00_JPRB & |
1838 |
|
|
&, 0.206897E+00_JPRB, 0.189137E+00_JPRB, 0.172420E+00_JPRB, 0.156736E+00_JPRB & |
1839 |
|
|
&, 0.142060E+00_JPRB, 0.128372E+00_JPRB, 0.115640E+00_JPRB & |
1840 |
|
|
&, 0.103842E+00_JPRB, 0.929424E-01_JPRB, 0.829090E-01_JPRB, 0.737028E-01_JPRB & |
1841 |
|
|
&, 0.652929E-01_JPRB, 0.576346E-01_JPRB, 0.506942E-01_JPRB & |
1842 |
|
|
&, 0.444144E-01_JPRB, 0.387768E-01_JPRB, 0.337250E-01_JPRB, 0.292143E-01_JPRB & |
1843 |
|
|
&, 0.252034E-01_JPRB, 0.216658E-01_JPRB, 0.185485E-01_JPRB & |
1844 |
|
|
&, 0.158134E-01_JPRB, 0.134277E-01_JPRB, 0.113539E-01_JPRB, 0.956105E-02_JPRB & |
1845 |
|
|
&, 0.801341E-02_JPRB, 0.669565E-02_JPRB, 0.556405E-02_JPRB & |
1846 |
|
|
&, 0.460894E-02_JPRB, 0.379190E-02_JPRB, 0.311130E-02_JPRB, 0.255059E-02_JPRB & |
1847 |
|
|
&, 0.207651E-02_JPRB, 0.168171E-02_JPRB, 0.135769E-02_JPRB & |
1848 |
|
|
&, 0.107931E-02_JPRB, 0.866322E-03_JPRB, 0.691424E-03_JPRB, 0.541101E-03_JPRB & |
1849 |
|
|
&, 0.434385E-03_JPRB, 0.339837E-03_JPRB, 0.258504E-03_JPRB & |
1850 |
|
|
&, 0.209613E-03_JPRB, 0.158392E-03_JPRB, 0.123743E-03_JPRB, 0.874860E-04_JPRB & |
1851 |
|
|
&, 0.693751E-04_JPRB, 0.504358E-04_JPRB, 0.306500E-04_JPRB & |
1852 |
|
|
&, 0.310881E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1853 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1854 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1855 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1856 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1857 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1858 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1859 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1860 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1861 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1862 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1863 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1864 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1865 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1866 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1867 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1868 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1869 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1870 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1871 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1872 |
|
|
XCW( 40, :) = (/ & |
1873 |
|
|
& 0.831007E+00_JPRB, 0.791079E+00_JPRB, 0.752111E+00_JPRB, 0.714120E+00_JPRB & |
1874 |
|
|
&, 0.677119E+00_JPRB, 0.641122E+00_JPRB, 0.606143E+00_JPRB & |
1875 |
|
|
&, 0.572193E+00_JPRB, 0.539286E+00_JPRB, 0.507430E+00_JPRB, 0.476636E+00_JPRB & |
1876 |
|
|
&, 0.446913E+00_JPRB, 0.418266E+00_JPRB, 0.390703E+00_JPRB & |
1877 |
|
|
&, 0.364228E+00_JPRB, 0.338844E+00_JPRB, 0.314552E+00_JPRB, 0.291350E+00_JPRB & |
1878 |
|
|
&, 0.269237E+00_JPRB, 0.248207E+00_JPRB, 0.228252E+00_JPRB & |
1879 |
|
|
&, 0.209367E+00_JPRB, 0.191535E+00_JPRB, 0.174745E+00_JPRB, 0.158978E+00_JPRB & |
1880 |
|
|
&, 0.144213E+00_JPRB, 0.130429E+00_JPRB, 0.117602E+00_JPRB & |
1881 |
|
|
&, 0.105699E+00_JPRB, 0.946975E-01_JPRB, 0.845599E-01_JPRB, 0.752477E-01_JPRB & |
1882 |
|
|
&, 0.667343E-01_JPRB, 0.589751E-01_JPRB, 0.519280E-01_JPRB & |
1883 |
|
|
&, 0.455584E-01_JPRB, 0.398163E-01_JPRB, 0.346735E-01_JPRB, 0.300764E-01_JPRB & |
1884 |
|
|
&, 0.259846E-01_JPRB, 0.223613E-01_JPRB, 0.191751E-01_JPRB & |
1885 |
|
|
&, 0.163671E-01_JPRB, 0.139158E-01_JPRB, 0.117844E-01_JPRB, 0.994261E-02_JPRB & |
1886 |
|
|
&, 0.834332E-02_JPRB, 0.698361E-02_JPRB, 0.582059E-02_JPRB & |
1887 |
|
|
&, 0.481918E-02_JPRB, 0.398032E-02_JPRB, 0.327670E-02_JPRB, 0.267762E-02_JPRB & |
1888 |
|
|
&, 0.219212E-02_JPRB, 0.177047E-02_JPRB, 0.143340E-02_JPRB & |
1889 |
|
|
&, 0.115679E-02_JPRB, 0.929753E-03_JPRB, 0.740097E-03_JPRB, 0.590892E-03_JPRB & |
1890 |
|
|
&, 0.451360E-03_JPRB, 0.357197E-03_JPRB, 0.276254E-03_JPRB & |
1891 |
|
|
&, 0.209613E-03_JPRB, 0.158392E-03_JPRB, 0.123743E-03_JPRB, 0.874860E-04_JPRB & |
1892 |
|
|
&, 0.693751E-04_JPRB, 0.504358E-04_JPRB, 0.306500E-04_JPRB & |
1893 |
|
|
&, 0.310881E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1894 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1895 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1896 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1897 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1898 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1899 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1900 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1901 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1902 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1903 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1904 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1905 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1906 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1907 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1908 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1909 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1910 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1911 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1912 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1913 |
|
|
XCW( 41, :) = (/ & |
1914 |
|
|
& 0.832042E+00_JPRB, 0.792332E+00_JPRB, 0.753564E+00_JPRB, 0.715757E+00_JPRB & |
1915 |
|
|
&, 0.678923E+00_JPRB, 0.643078E+00_JPRB, 0.608234E+00_JPRB & |
1916 |
|
|
&, 0.574404E+00_JPRB, 0.541601E+00_JPRB, 0.509834E+00_JPRB, 0.479115E+00_JPRB & |
1917 |
|
|
&, 0.449451E+00_JPRB, 0.420849E+00_JPRB, 0.393318E+00_JPRB & |
1918 |
|
|
&, 0.366863E+00_JPRB, 0.341484E+00_JPRB, 0.317185E+00_JPRB, 0.293966E+00_JPRB & |
1919 |
|
|
&, 0.271822E+00_JPRB, 0.250754E+00_JPRB, 0.230752E+00_JPRB & |
1920 |
|
|
&, 0.211804E+00_JPRB, 0.193909E+00_JPRB, 0.177042E+00_JPRB, 0.161194E+00_JPRB & |
1921 |
|
|
&, 0.146345E+00_JPRB, 0.132466E+00_JPRB, 0.119544E+00_JPRB & |
1922 |
|
|
&, 0.107544E+00_JPRB, 0.964405E-01_JPRB, 0.861985E-01_JPRB, 0.767884E-01_JPRB & |
1923 |
|
|
&, 0.681713E-01_JPRB, 0.603067E-01_JPRB, 0.531618E-01_JPRB & |
1924 |
|
|
&, 0.466932E-01_JPRB, 0.408558E-01_JPRB, 0.356220E-01_JPRB, 0.309386E-01_JPRB & |
1925 |
|
|
&, 0.267657E-01_JPRB, 0.230673E-01_JPRB, 0.198017E-01_JPRB & |
1926 |
|
|
&, 0.169319E-01_JPRB, 0.144153E-01_JPRB, 0.122266E-01_JPRB, 0.103242E-01_JPRB & |
1927 |
|
|
&, 0.868545E-02_JPRB, 0.727157E-02_JPRB, 0.607713E-02_JPRB & |
1928 |
|
|
&, 0.504256E-02_JPRB, 0.416874E-02_JPRB, 0.344211E-02_JPRB, 0.281876E-02_JPRB & |
1929 |
|
|
&, 0.230773E-02_JPRB, 0.187403E-02_JPRB, 0.150911E-02_JPRB & |
1930 |
|
|
&, 0.121878E-02_JPRB, 0.977326E-03_JPRB, 0.788770E-03_JPRB, 0.624086E-03_JPRB & |
1931 |
|
|
&, 0.485311E-03_JPRB, 0.391917E-03_JPRB, 0.294004E-03_JPRB & |
1932 |
|
|
&, 0.227760E-03_JPRB, 0.176941E-03_JPRB, 0.142701E-03_JPRB, 0.106858E-03_JPRB & |
1933 |
|
|
&, 0.693751E-04_JPRB, 0.504358E-04_JPRB, 0.513000E-04_JPRB & |
1934 |
|
|
&, 0.310881E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1935 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1936 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1937 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1938 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1939 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1940 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1941 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1942 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1943 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1944 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1945 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1946 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1947 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1948 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1949 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1950 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1951 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1952 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1953 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1954 |
|
|
XCW( 42, :) = (/ & |
1955 |
|
|
& 0.833059E+00_JPRB, 0.793561E+00_JPRB, 0.754990E+00_JPRB, 0.717364E+00_JPRB & |
1956 |
|
|
&, 0.680694E+00_JPRB, 0.644998E+00_JPRB, 0.610288E+00_JPRB & |
1957 |
|
|
&, 0.576576E+00_JPRB, 0.543875E+00_JPRB, 0.512197E+00_JPRB, 0.481552E+00_JPRB & |
1958 |
|
|
&, 0.451947E+00_JPRB, 0.423392E+00_JPRB, 0.395894E+00_JPRB & |
1959 |
|
|
&, 0.369458E+00_JPRB, 0.344086E+00_JPRB, 0.319781E+00_JPRB, 0.296545E+00_JPRB & |
1960 |
|
|
&, 0.274375E+00_JPRB, 0.253267E+00_JPRB, 0.233216E+00_JPRB & |
1961 |
|
|
&, 0.214218E+00_JPRB, 0.196256E+00_JPRB, 0.179319E+00_JPRB, 0.163390E+00_JPRB & |
1962 |
|
|
&, 0.148455E+00_JPRB, 0.134489E+00_JPRB, 0.121475E+00_JPRB & |
1963 |
|
|
&, 0.109378E+00_JPRB, 0.981755E-01_JPRB, 0.878330E-01_JPRB, 0.783207E-01_JPRB & |
1964 |
|
|
&, 0.696040E-01_JPRB, 0.616384E-01_JPRB, 0.543955E-01_JPRB & |
1965 |
|
|
&, 0.478280E-01_JPRB, 0.419049E-01_JPRB, 0.365704E-01_JPRB, 0.318008E-01_JPRB & |
1966 |
|
|
&, 0.275469E-01_JPRB, 0.237734E-01_JPRB, 0.204391E-01_JPRB & |
1967 |
|
|
&, 0.174967E-01_JPRB, 0.149148E-01_JPRB, 0.126687E-01_JPRB, 0.107177E-01_JPRB & |
1968 |
|
|
&, 0.902758E-02_JPRB, 0.757205E-02_JPRB, 0.633367E-02_JPRB & |
1969 |
|
|
&, 0.526593E-02_JPRB, 0.437062E-02_JPRB, 0.360751E-02_JPRB, 0.295990E-02_JPRB & |
1970 |
|
|
&, 0.242334E-02_JPRB, 0.197758E-02_JPRB, 0.159997E-02_JPRB & |
1971 |
|
|
&, 0.129627E-02_JPRB, 0.104076E-02_JPRB, 0.837443E-03_JPRB, 0.657279E-03_JPRB & |
1972 |
|
|
&, 0.519262E-03_JPRB, 0.409276E-03_JPRB, 0.329505E-03_JPRB & |
1973 |
|
|
&, 0.245906E-03_JPRB, 0.195490E-03_JPRB, 0.142701E-03_JPRB, 0.106858E-03_JPRB & |
1974 |
|
|
&, 0.891668E-04_JPRB, 0.706537E-04_JPRB, 0.513000E-04_JPRB & |
1975 |
|
|
&, 0.310881E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1976 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1977 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1978 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1979 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1980 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1981 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1982 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1983 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1984 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1985 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1986 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1987 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1988 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1989 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1990 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1991 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1992 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1993 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
1994 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
1995 |
|
|
|
1996 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART6',1,ZHOOK_HANDLE) |
1997 |
|
✗ |
END SUBROUTINE PART6 |
1998 |
|
|
|
1999 |
|
|
!option! -Nv -NO |
2000 |
|
|
!pgi$r opt=0 |
2001 |
|
✗ |
SUBROUTINE PART7 |
2002 |
|
|
|
2003 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
2004 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART7',0,ZHOOK_HANDLE) |
2005 |
|
|
|
2006 |
|
|
XCW( 43, :) = (/ & |
2007 |
|
|
& 0.834056E+00_JPRB, 0.794767E+00_JPRB, 0.756390E+00_JPRB, 0.718941E+00_JPRB & |
2008 |
|
|
&, 0.682434E+00_JPRB, 0.646884E+00_JPRB, 0.612306E+00_JPRB & |
2009 |
|
|
&, 0.578711E+00_JPRB, 0.546112E+00_JPRB, 0.514522E+00_JPRB, 0.483950E+00_JPRB & |
2010 |
|
|
&, 0.454404E+00_JPRB, 0.425895E+00_JPRB, 0.398430E+00_JPRB & |
2011 |
|
|
&, 0.372013E+00_JPRB, 0.346650E+00_JPRB, 0.322342E+00_JPRB, 0.299091E+00_JPRB & |
2012 |
|
|
&, 0.276895E+00_JPRB, 0.255751E+00_JPRB, 0.235655E+00_JPRB & |
2013 |
|
|
&, 0.216602E+00_JPRB, 0.198576E+00_JPRB, 0.181568E+00_JPRB, 0.165568E+00_JPRB & |
2014 |
|
|
&, 0.150550E+00_JPRB, 0.136497E+00_JPRB, 0.123391E+00_JPRB & |
2015 |
|
|
&, 0.111200E+00_JPRB, 0.998984E-01_JPRB, 0.894592E-01_JPRB, 0.798488E-01_JPRB & |
2016 |
|
|
&, 0.710281E-01_JPRB, 0.629701E-01_JPRB, 0.556293E-01_JPRB & |
2017 |
|
|
&, 0.489627E-01_JPRB, 0.429444E-01_JPRB, 0.375287E-01_JPRB, 0.326731E-01_JPRB & |
2018 |
|
|
&, 0.283384E-01_JPRB, 0.244794E-01_JPRB, 0.210765E-01_JPRB & |
2019 |
|
|
&, 0.180615E-01_JPRB, 0.154256E-01_JPRB, 0.131224E-01_JPRB, 0.111112E-01_JPRB & |
2020 |
|
|
&, 0.938193E-02_JPRB, 0.788505E-02_JPRB, 0.659020E-02_JPRB & |
2021 |
|
|
&, 0.548931E-02_JPRB, 0.455905E-02_JPRB, 0.377291E-02_JPRB, 0.310105E-02_JPRB & |
2022 |
|
|
&, 0.253895E-02_JPRB, 0.208114E-02_JPRB, 0.169082E-02_JPRB & |
2023 |
|
|
&, 0.135826E-02_JPRB, 0.110419E-02_JPRB, 0.886116E-03_JPRB, 0.707070E-03_JPRB & |
2024 |
|
|
&, 0.553213E-03_JPRB, 0.443996E-03_JPRB, 0.347255E-03_JPRB & |
2025 |
|
|
&, 0.264053E-03_JPRB, 0.214039E-03_JPRB, 0.161658E-03_JPRB, 0.126229E-03_JPRB & |
2026 |
|
|
&, 0.891668E-04_JPRB, 0.706537E-04_JPRB, 0.513000E-04_JPRB & |
2027 |
|
|
&, 0.310881E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2028 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2029 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2030 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2031 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2032 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2033 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2034 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2035 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2036 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2037 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2038 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2039 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2040 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2041 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2042 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2043 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2044 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2045 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2046 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
2047 |
|
|
XCW( 44, :) = (/ & |
2048 |
|
|
& 0.835035E+00_JPRB, 0.795952E+00_JPRB, 0.757765E+00_JPRB, 0.720491E+00_JPRB & |
2049 |
|
|
&, 0.684143E+00_JPRB, 0.648739E+00_JPRB, 0.614290E+00_JPRB & |
2050 |
|
|
&, 0.580811E+00_JPRB, 0.548313E+00_JPRB, 0.516809E+00_JPRB, 0.486310E+00_JPRB & |
2051 |
|
|
&, 0.456824E+00_JPRB, 0.428361E+00_JPRB, 0.400930E+00_JPRB & |
2052 |
|
|
&, 0.374533E+00_JPRB, 0.349179E+00_JPRB, 0.324868E+00_JPRB, 0.301603E+00_JPRB & |
2053 |
|
|
&, 0.279382E+00_JPRB, 0.258203E+00_JPRB, 0.238067E+00_JPRB & |
2054 |
|
|
&, 0.218959E+00_JPRB, 0.200872E+00_JPRB, 0.183799E+00_JPRB, 0.167720E+00_JPRB & |
2055 |
|
|
&, 0.152623E+00_JPRB, 0.138490E+00_JPRB, 0.125291E+00_JPRB & |
2056 |
|
|
&, 0.113007E+00_JPRB, 0.101613E+00_JPRB, 0.910773E-01_JPRB, 0.813684E-01_JPRB & |
2057 |
|
|
&, 0.724521E-01_JPRB, 0.642929E-01_JPRB, 0.568585E-01_JPRB & |
2058 |
|
|
&, 0.500975E-01_JPRB, 0.439934E-01_JPRB, 0.384870E-01_JPRB, 0.335453E-01_JPRB & |
2059 |
|
|
&, 0.291299E-01_JPRB, 0.251960E-01_JPRB, 0.217139E-01_JPRB & |
2060 |
|
|
&, 0.186374E-01_JPRB, 0.159364E-01_JPRB, 0.135762E-01_JPRB, 0.115166E-01_JPRB & |
2061 |
|
|
&, 0.973628E-02_JPRB, 0.818552E-02_JPRB, 0.685957E-02_JPRB & |
2062 |
|
|
&, 0.572583E-02_JPRB, 0.476093E-02_JPRB, 0.393831E-02_JPRB, 0.325631E-02_JPRB & |
2063 |
|
|
&, 0.266901E-02_JPRB, 0.218470E-02_JPRB, 0.178168E-02_JPRB & |
2064 |
|
|
&, 0.143574E-02_JPRB, 0.116762E-02_JPRB, 0.934789E-03_JPRB, 0.740264E-03_JPRB & |
2065 |
|
|
&, 0.587163E-03_JPRB, 0.461356E-03_JPRB, 0.365005E-03_JPRB & |
2066 |
|
|
&, 0.282199E-03_JPRB, 0.232587E-03_JPRB, 0.180615E-03_JPRB, 0.126229E-03_JPRB & |
2067 |
|
|
&, 0.108959E-03_JPRB, 0.706537E-04_JPRB, 0.513000E-04_JPRB & |
2068 |
|
|
&, 0.310881E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2069 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2070 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2071 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2072 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2073 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2074 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2075 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2076 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2077 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2078 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2079 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2080 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2081 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2082 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2083 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2084 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2085 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2086 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2087 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
2088 |
|
|
XCW( 45, :) = (/ & |
2089 |
|
|
& 0.835997E+00_JPRB, 0.797115E+00_JPRB, 0.759115E+00_JPRB, 0.722014E+00_JPRB & |
2090 |
|
|
&, 0.685824E+00_JPRB, 0.650562E+00_JPRB, 0.616241E+00_JPRB & |
2091 |
|
|
&, 0.582876E+00_JPRB, 0.550479E+00_JPRB, 0.519061E+00_JPRB, 0.488634E+00_JPRB & |
2092 |
|
|
&, 0.459208E+00_JPRB, 0.430792E+00_JPRB, 0.403393E+00_JPRB & |
2093 |
|
|
&, 0.377019E+00_JPRB, 0.351673E+00_JPRB, 0.327361E+00_JPRB, 0.304083E+00_JPRB & |
2094 |
|
|
&, 0.281840E+00_JPRB, 0.260630E+00_JPRB, 0.240450E+00_JPRB & |
2095 |
|
|
&, 0.221290E+00_JPRB, 0.203147E+00_JPRB, 0.186007E+00_JPRB, 0.169859E+00_JPRB & |
2096 |
|
|
&, 0.154682E+00_JPRB, 0.140464E+00_JPRB, 0.127180E+00_JPRB & |
2097 |
|
|
&, 0.114805E+00_JPRB, 0.103320E+00_JPRB, 0.926871E-01_JPRB, 0.828839E-01_JPRB & |
2098 |
|
|
&, 0.738719E-01_JPRB, 0.656201E-01_JPRB, 0.580878E-01_JPRB & |
2099 |
|
|
&, 0.512415E-01_JPRB, 0.450425E-01_JPRB, 0.394452E-01_JPRB, 0.344175E-01_JPRB & |
2100 |
|
|
&, 0.299213E-01_JPRB, 0.259232E-01_JPRB, 0.223621E-01_JPRB & |
2101 |
|
|
&, 0.192243E-01_JPRB, 0.164586E-01_JPRB, 0.140416E-01_JPRB, 0.119220E-01_JPRB & |
2102 |
|
|
&, 0.100906E-01_JPRB, 0.849852E-02_JPRB, 0.714176E-02_JPRB & |
2103 |
|
|
&, 0.596234E-02_JPRB, 0.496281E-02_JPRB, 0.411750E-02_JPRB, 0.339745E-02_JPRB & |
2104 |
|
|
&, 0.279907E-02_JPRB, 0.228825E-02_JPRB, 0.187253E-02_JPRB & |
2105 |
|
|
&, 0.151323E-02_JPRB, 0.123105E-02_JPRB, 0.983462E-03_JPRB, 0.790054E-03_JPRB & |
2106 |
|
|
&, 0.621114E-03_JPRB, 0.496076E-03_JPRB, 0.400506E-03_JPRB & |
2107 |
|
|
&, 0.300346E-03_JPRB, 0.232587E-03_JPRB, 0.180615E-03_JPRB, 0.145600E-03_JPRB & |
2108 |
|
|
&, 0.108959E-03_JPRB, 0.908716E-04_JPRB, 0.513000E-04_JPRB & |
2109 |
|
|
&, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2110 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2111 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2112 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2113 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2114 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2115 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2116 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2117 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2118 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2119 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2120 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2121 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2122 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2123 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2124 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2125 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2126 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2127 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2128 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
2129 |
|
|
XCW( 46, :) = (/ & |
2130 |
|
|
& 0.836941E+00_JPRB, 0.798259E+00_JPRB, 0.760443E+00_JPRB, 0.723511E+00_JPRB & |
2131 |
|
|
&, 0.687477E+00_JPRB, 0.652355E+00_JPRB, 0.618162E+00_JPRB & |
2132 |
|
|
&, 0.584909E+00_JPRB, 0.552610E+00_JPRB, 0.521278E+00_JPRB, 0.490923E+00_JPRB & |
2133 |
|
|
&, 0.461556E+00_JPRB, 0.433187E+00_JPRB, 0.405822E+00_JPRB & |
2134 |
|
|
&, 0.379470E+00_JPRB, 0.354135E+00_JPRB, 0.329823E+00_JPRB, 0.306534E+00_JPRB & |
2135 |
|
|
&, 0.284269E+00_JPRB, 0.263029E+00_JPRB, 0.242807E+00_JPRB & |
2136 |
|
|
&, 0.223601E+00_JPRB, 0.205399E+00_JPRB, 0.188197E+00_JPRB, 0.171976E+00_JPRB & |
2137 |
|
|
&, 0.156726E+00_JPRB, 0.142424E+00_JPRB, 0.129054E+00_JPRB & |
2138 |
|
|
&, 0.116596E+00_JPRB, 0.105015E+00_JPRB, 0.942929E-01_JPRB, 0.843909E-01_JPRB & |
2139 |
|
|
&, 0.752873E-01_JPRB, 0.669385E-01_JPRB, 0.593170E-01_JPRB & |
2140 |
|
|
&, 0.523763E-01_JPRB, 0.460820E-01_JPRB, 0.404035E-01_JPRB, 0.352997E-01_JPRB & |
2141 |
|
|
&, 0.307231E-01_JPRB, 0.266398E-01_JPRB, 0.230211E-01_JPRB & |
2142 |
|
|
&, 0.198113E-01_JPRB, 0.169808E-01_JPRB, 0.144953E-01_JPRB, 0.123393E-01_JPRB & |
2143 |
|
|
&, 0.104450E-01_JPRB, 0.882404E-02_JPRB, 0.741113E-02_JPRB & |
2144 |
|
|
&, 0.621200E-02_JPRB, 0.517815E-02_JPRB, 0.429669E-02_JPRB, 0.355271E-02_JPRB & |
2145 |
|
|
&, 0.292913E-02_JPRB, 0.240661E-02_JPRB, 0.196339E-02_JPRB & |
2146 |
|
|
&, 0.159071E-02_JPRB, 0.129448E-02_JPRB, 0.103214E-02_JPRB, 0.839845E-03_JPRB & |
2147 |
|
|
&, 0.672040E-03_JPRB, 0.530795E-03_JPRB, 0.418256E-03_JPRB & |
2148 |
|
|
&, 0.336639E-03_JPRB, 0.251136E-03_JPRB, 0.199572E-03_JPRB, 0.145600E-03_JPRB & |
2149 |
|
|
&, 0.108959E-03_JPRB, 0.908716E-04_JPRB, 0.719501E-04_JPRB & |
2150 |
|
|
&, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.319822E-04_JPRB, 0.100000E-04_JPRB & |
2151 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2152 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2153 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2154 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2155 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2156 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2157 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2158 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2159 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2160 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2161 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2162 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2163 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2164 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2165 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2166 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2167 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2168 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2169 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
2170 |
|
|
XCW( 47, :) = (/ & |
2171 |
|
|
& 0.837869E+00_JPRB, 0.799384E+00_JPRB, 0.761750E+00_JPRB, 0.724984E+00_JPRB & |
2172 |
|
|
&, 0.689103E+00_JPRB, 0.654120E+00_JPRB, 0.620052E+00_JPRB & |
2173 |
|
|
&, 0.586910E+00_JPRB, 0.554710E+00_JPRB, 0.523463E+00_JPRB, 0.493180E+00_JPRB & |
2174 |
|
|
&, 0.463872E+00_JPRB, 0.435549E+00_JPRB, 0.408219E+00_JPRB & |
2175 |
|
|
&, 0.381890E+00_JPRB, 0.356566E+00_JPRB, 0.332253E+00_JPRB, 0.308955E+00_JPRB & |
2176 |
|
|
&, 0.286669E+00_JPRB, 0.265398E+00_JPRB, 0.245139E+00_JPRB & |
2177 |
|
|
&, 0.225885E+00_JPRB, 0.207631E+00_JPRB, 0.190366E+00_JPRB, 0.174076E+00_JPRB & |
2178 |
|
|
&, 0.158752E+00_JPRB, 0.144372E+00_JPRB, 0.130920E+00_JPRB & |
2179 |
|
|
&, 0.118371E+00_JPRB, 0.106702E+00_JPRB, 0.958904E-01_JPRB, 0.858979E-01_JPRB & |
2180 |
|
|
&, 0.766985E-01_JPRB, 0.682569E-01_JPRB, 0.605417E-01_JPRB & |
2181 |
|
|
&, 0.535111E-01_JPRB, 0.471310E-01_JPRB, 0.413715E-01_JPRB, 0.361820E-01_JPRB & |
2182 |
|
|
&, 0.315248E-01_JPRB, 0.273669E-01_JPRB, 0.236693E-01_JPRB & |
2183 |
|
|
&, 0.203982E-01_JPRB, 0.175030E-01_JPRB, 0.149724E-01_JPRB, 0.127447E-01_JPRB & |
2184 |
|
|
&, 0.108115E-01_JPRB, 0.913704E-02_JPRB, 0.769332E-02_JPRB & |
2185 |
|
|
&, 0.644852E-02_JPRB, 0.538003E-02_JPRB, 0.447587E-02_JPRB, 0.370797E-02_JPRB & |
2186 |
|
|
&, 0.305919E-02_JPRB, 0.251016E-02_JPRB, 0.205424E-02_JPRB & |
2187 |
|
|
&, 0.166820E-02_JPRB, 0.135791E-02_JPRB, 0.109703E-02_JPRB, 0.889636E-03_JPRB & |
2188 |
|
|
&, 0.705991E-03_JPRB, 0.565515E-03_JPRB, 0.453756E-03_JPRB & |
2189 |
|
|
&, 0.354786E-03_JPRB, 0.269685E-03_JPRB, 0.218530E-03_JPRB, 0.164972E-03_JPRB & |
2190 |
|
|
&, 0.128750E-03_JPRB, 0.908716E-04_JPRB, 0.719501E-04_JPRB & |
2191 |
|
|
&, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.319822E-04_JPRB, 0.100000E-04_JPRB & |
2192 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2193 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2194 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2195 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2196 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2197 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2198 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2199 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2200 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2201 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2202 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2203 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2204 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2205 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2206 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2207 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2208 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2209 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2210 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
2211 |
|
|
XCW( 48, :) = (/ & |
2212 |
|
|
& 0.838783E+00_JPRB, 0.800490E+00_JPRB, 0.763034E+00_JPRB, 0.726434E+00_JPRB & |
2213 |
|
|
&, 0.690703E+00_JPRB, 0.655858E+00_JPRB, 0.621913E+00_JPRB & |
2214 |
|
|
&, 0.588882E+00_JPRB, 0.556778E+00_JPRB, 0.525616E+00_JPRB, 0.495405E+00_JPRB & |
2215 |
|
|
&, 0.466155E+00_JPRB, 0.437879E+00_JPRB, 0.410584E+00_JPRB & |
2216 |
|
|
&, 0.384278E+00_JPRB, 0.358967E+00_JPRB, 0.334655E+00_JPRB, 0.311347E+00_JPRB & |
2217 |
|
|
&, 0.289043E+00_JPRB, 0.267743E+00_JPRB, 0.247447E+00_JPRB & |
2218 |
|
|
&, 0.228146E+00_JPRB, 0.209839E+00_JPRB, 0.192514E+00_JPRB, 0.176157E+00_JPRB & |
2219 |
|
|
&, 0.160763E+00_JPRB, 0.146306E+00_JPRB, 0.132771E+00_JPRB & |
2220 |
|
|
&, 0.120139E+00_JPRB, 0.108385E+00_JPRB, 0.974797E-01_JPRB, 0.873965E-01_JPRB & |
2221 |
|
|
&, 0.781053E-01_JPRB, 0.695753E-01_JPRB, 0.617664E-01_JPRB & |
2222 |
|
|
&, 0.546458E-01_JPRB, 0.481896E-01_JPRB, 0.423395E-01_JPRB, 0.370642E-01_JPRB & |
2223 |
|
|
&, 0.323369E-01_JPRB, 0.281046E-01_JPRB, 0.243283E-01_JPRB & |
2224 |
|
|
&, 0.209962E-01_JPRB, 0.180365E-01_JPRB, 0.154494E-01_JPRB, 0.131740E-01_JPRB & |
2225 |
|
|
&, 0.111903E-01_JPRB, 0.946256E-02_JPRB, 0.797551E-02_JPRB & |
2226 |
|
|
&, 0.669818E-02_JPRB, 0.560883E-02_JPRB, 0.466884E-02_JPRB, 0.387734E-02_JPRB & |
2227 |
|
|
&, 0.320370E-02_JPRB, 0.262851E-02_JPRB, 0.216024E-02_JPRB & |
2228 |
|
|
&, 0.176118E-02_JPRB, 0.142134E-02_JPRB, 0.116193E-02_JPRB, 0.922830E-03_JPRB & |
2229 |
|
|
&, 0.739942E-03_JPRB, 0.600235E-03_JPRB, 0.471507E-03_JPRB & |
2230 |
|
|
&, 0.372933E-03_JPRB, 0.288234E-03_JPRB, 0.237487E-03_JPRB, 0.184343E-03_JPRB & |
2231 |
|
|
&, 0.128750E-03_JPRB, 0.111089E-03_JPRB, 0.719501E-04_JPRB & |
2232 |
|
|
&, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.319822E-04_JPRB, 0.100000E-04_JPRB & |
2233 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2234 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2235 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2236 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2237 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2238 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2239 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2240 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2241 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2242 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2243 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2244 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2245 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2246 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2247 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2248 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2249 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2250 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2251 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
2252 |
|
|
XCW( 49, :) = (/ & |
2253 |
|
|
& 0.839682E+00_JPRB, 0.801578E+00_JPRB, 0.764299E+00_JPRB, 0.727861E+00_JPRB & |
2254 |
|
|
&, 0.692279E+00_JPRB, 0.657570E+00_JPRB, 0.623747E+00_JPRB & |
2255 |
|
|
&, 0.590825E+00_JPRB, 0.558818E+00_JPRB, 0.527739E+00_JPRB, 0.497598E+00_JPRB & |
2256 |
|
|
&, 0.468408E+00_JPRB, 0.440179E+00_JPRB, 0.412918E+00_JPRB & |
2257 |
|
|
&, 0.386636E+00_JPRB, 0.361338E+00_JPRB, 0.337029E+00_JPRB, 0.313712E+00_JPRB & |
2258 |
|
|
&, 0.291391E+00_JPRB, 0.270065E+00_JPRB, 0.249730E+00_JPRB & |
2259 |
|
|
&, 0.230388E+00_JPRB, 0.212030E+00_JPRB, 0.194645E+00_JPRB, 0.178225E+00_JPRB & |
2260 |
|
|
&, 0.162757E+00_JPRB, 0.148228E+00_JPRB, 0.134614E+00_JPRB & |
2261 |
|
|
&, 0.121898E+00_JPRB, 0.110056E+00_JPRB, 0.990608E-01_JPRB, 0.888909E-01_JPRB & |
2262 |
|
|
&, 0.795121E-01_JPRB, 0.708893E-01_JPRB, 0.629911E-01_JPRB & |
2263 |
|
|
&, 0.557899E-01_JPRB, 0.492386E-01_JPRB, 0.433076E-01_JPRB, 0.379465E-01_JPRB & |
2264 |
|
|
&, 0.331386E-01_JPRB, 0.288317E-01_JPRB, 0.249981E-01_JPRB & |
2265 |
|
|
&, 0.215943E-01_JPRB, 0.185814E-01_JPRB, 0.159264E-01_JPRB, 0.135913E-01_JPRB & |
2266 |
|
|
&, 0.115691E-01_JPRB, 0.980060E-02_JPRB, 0.827053E-02_JPRB & |
2267 |
|
|
&, 0.694783E-02_JPRB, 0.582417E-02_JPRB, 0.486181E-02_JPRB, 0.403260E-02_JPRB & |
2268 |
|
|
&, 0.333376E-02_JPRB, 0.274687E-02_JPRB, 0.225110E-02_JPRB & |
2269 |
|
|
&, 0.183867E-02_JPRB, 0.150063E-02_JPRB, 0.121060E-02_JPRB, 0.989217E-03_JPRB & |
2270 |
|
|
&, 0.790868E-03_JPRB, 0.634954E-03_JPRB, 0.507007E-03_JPRB & |
2271 |
|
|
&, 0.391079E-03_JPRB, 0.306783E-03_JPRB, 0.237487E-03_JPRB, 0.184343E-03_JPRB & |
2272 |
|
|
&, 0.148542E-03_JPRB, 0.111089E-03_JPRB, 0.926001E-04_JPRB & |
2273 |
|
|
&, 0.521762E-04_JPRB, 0.530643E-04_JPRB, 0.319822E-04_JPRB, 0.324382E-04_JPRB & |
2274 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2275 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2276 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2277 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2278 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2279 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2280 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2281 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2282 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2283 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2284 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2285 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2286 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2287 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2288 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2289 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2290 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2291 |
|
|
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB & |
2292 |
|
✗ |
&, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/) |
|