GCC Code Coverage Report


Directory: ./
File: rad/su_mcica.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 1720 0.0%
Branches: 0 2576 0.0%

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/)