LMDZ
su_mcica.F90
Go to the documentation of this file.
1 !OCL SCALAR
2 !option! -Nv -NO
3 #ifdef RS6K
4 @process nooptimize
5 #endif
6 !pgi$r opt=0
7 SUBROUTINE su_mcica
8 
9 !**** *SU_MCICA* - INITIALIZE COMMON YOE_MCICA
10 
11 ! PURPOSE.
12 ! --------
13 ! INITIALIZE YOE_MCICA, THE COMMON THAT CONTAINS COEFFICIENTS
14 ! NEEDED TO RUN THE RAISANEN-COLE-BARKER VERSION OF McICA
15 
16 !** INTERFACE.
17 ! ----------
18 ! *CALL* *SU_MCICA* FROM *SUECRAD*
19 
20 
21 ! IMPLICIT ARGUMENTS :
22 ! --------------------
23 ! COMMON YOE_MCICA
24 
25 
26 ! METHOD.
27 ! -------
28 ! SEE DOCUMENTATION
29 
30 ! EXTERNALS.
31 ! ----------
32 
33 ! REFERENCE.
34 ! ----------
35 ! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
36 
37 ! AUTHOR.
38 ! -------
39 ! JEAN-JACQUES MORCRETTE *ECMWF*
40 ! from Jason Cole's XCW_DATA.dat
41 
42 ! MODIFICATIONS.
43 ! --------------
44 ! ORIGINAL : 2006-01-05
45 
46 ! ------------------------------------------------------------------
47 
48 USE parkind1 ,ONLY : jprb
49 USE yomhook ,ONLY : lhook, dr_hook
50 
51 USE yoe_mcica, ONLY : nmci1, nmci2, xcw
52 
53 IMPLICIT NONE
54 
55 REAL(KIND=JPRB) :: ZHOOK_HANDLE
56 
57 ! ----------------------------------------------------------------
58 
59 IF (lhook) CALL dr_hook('SU_MCICA',0,zhook_handle)
60 
61 nmci1 = 1000
62 nmci2 = 140
63 
64 CALL part1
65 CALL part2
66 CALL part3
67 CALL part4
68 CALL part5
69 CALL part6
70 CALL part7
71 CALL part8
72 CALL part9
73 CALL part10
74 CALL part11
75 CALL part12
76 CALL part13
77 CALL part14
78 CALL part15
79 CALL part16
80 CALL part17
81 CALL part18
82 CALL part19
83 CALL part20
84 CALL part21
85 CALL part22
86 CALL part23
87 CALL part24
88 CALL part25
89 CALL part26
90 CALL part27
91 CALL part28
92 CALL part29
93 CALL part30
94 CALL part31
95 CALL part32
96 CALL part33
97 CALL part34
98 CALL part35
99 CALL part36
100 CALL part37
101 CALL part38
102 CALL part39
103 CALL part40
104 CALL part41
105 CALL part42
106 CALL part43
107 CALL part44
108 CALL part45
109 CALL part46
110 CALL part47
111 CALL part48
112 CALL part49
113 CALL part50
114 CALL part51
115 CALL part52
116 CALL part53
117 CALL part54
118 CALL part55
119 CALL part56
120 CALL part57
121 CALL part58
122 CALL part59
123 CALL part60
124 CALL part61
125 CALL part62
126 CALL part63
127 CALL part64
128 CALL part65
129 CALL part66
130 CALL part67
131 CALL part68
132 CALL part69
133 CALL part70
134 CALL part71
135 CALL part72
136 CALL part73
137 CALL part74
138 CALL part75
139 CALL part76
140 CALL part77
141 CALL part78
142 CALL part79
143 CALL part80
144 CALL part81
145 CALL part82
146 CALL part83
147 CALL part84
148 CALL part85
149 CALL part86
150 CALL part87
151 CALL part88
152 CALL part89
153 CALL part90
154 CALL part91
155 CALL part92
156 CALL part93
157 CALL part94
158 CALL part95
159 CALL part96
160 CALL part97
161 CALL part98
162 CALL part99
163 CALL part100
164 CALL part101
165 CALL part102
166 CALL part103
167 CALL part104
168 CALL part105
169 CALL part106
170 CALL part107
171 CALL part108
172 CALL part109
173 CALL part110
174 CALL part111
175 CALL part112
176 CALL part113
177 CALL part114
178 CALL part115
179 CALL part116
180 CALL part117
181 CALL part118
182 CALL part119
183 CALL part120
184 CALL part121
185 CALL part122
186 CALL part123
187 CALL part124
188 CALL part125
189 CALL part126
190 CALL part127
191 CALL part128
192 CALL part129
193 CALL part130
194 CALL part131
195 CALL part132
196 CALL part133
197 CALL part134
198 CALL part135
199 CALL part136
200 CALL part137
201 CALL part138
202 CALL part139
203 CALL part140
204 CALL part141
205 CALL part142
206 CALL part143
207 
208 
209 ! ----------------------------------------------------------------
210 IF (lhook) CALL dr_hook('SU_MCICA',1,zhook_handle)
211 
212 CONTAINS
213 
214 #ifdef VPP5000
215 !OCL SCALAR
216 #endif
217 !option! -Nv -NO
218 #ifdef RS6K
219 @process nooptimize
220 #endif
221 !pgi$r opt=0
222 SUBROUTINE part1
223 
224 REAL(KIND=JPRB) :: ZHOOK_HANDLE
225 IF (lhook) CALL dr_hook('SU_MCICA:PART1',0,zhook_handle)
226 
227 xcw( 1, :) = (/ &
228  & 0.100000e-04_jprb, 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 &
230  &, 0.100000e-04_jprb, 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 &
232  &, 0.100000e-04_jprb, 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 &
234  &, 0.100000e-04_jprb, 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 &
236  &, 0.100000e-04_jprb, 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 &
238  &, 0.100000e-04_jprb, 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 &
240  &, 0.100000e-04_jprb, 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 &
242  &, 0.100000e-04_jprb, 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 &
244  &, 0.100000e-04_jprb, 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 &
246  &, 0.100000e-04_jprb, 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 &
248  &, 0.100000e-04_jprb, 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 &
250  &, 0.100000e-04_jprb, 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 &
252  &, 0.100000e-04_jprb, 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 &
254  &, 0.100000e-04_jprb, 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 &
256  &, 0.100000e-04_jprb, 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 &
258  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
259  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
260  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
261  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
262  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
263  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
264  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
265  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
266  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
267  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
268 xcw( 2, :) = (/ &
269  & 0.719238e+00_jprb, 0.657746e+00_jprb, 0.599658e+00_jprb, 0.544932e+00_jprb &
270  &, 0.493515e+00_jprb, 0.445349e+00_jprb, 0.400372e+00_jprb &
271  &, 0.358514e+00_jprb, 0.319698e+00_jprb, 0.283841e+00_jprb, 0.250852e+00_jprb &
272  &, 0.220633e+00_jprb, 0.193079e+00_jprb, 0.168076e+00_jprb &
273  &, 0.145509e+00_jprb, 0.125249e+00_jprb, 0.107167e+00_jprb, 0.911265e-01_jprb &
274  &, 0.769881e-01_jprb, 0.646107e-01_jprb, 0.538483e-01_jprb &
275  &, 0.445637e-01_jprb, 0.366111e-01_jprb, 0.298526e-01_jprb, 0.241559e-01_jprb &
276  &, 0.193935e-01_jprb, 0.154439e-01_jprb, 0.122027e-01_jprb &
277  &, 0.956228e-02_jprb, 0.743081e-02_jprb, 0.572660e-02_jprb, 0.437533e-02_jprb &
278  &, 0.331126e-02_jprb, 0.248752e-02_jprb, 0.185158e-02_jprb &
279  &, 0.136799e-02_jprb, 0.992284e-03_jprb, 0.723804e-03_jprb, 0.521300e-03_jprb &
280  &, 0.369758e-03_jprb, 0.262914e-03_jprb, 0.182853e-03_jprb &
281  &, 0.120745e-03_jprb, 0.781102e-04_jprb, 0.565393e-04_jprb, 0.338478e-04_jprb &
282  &, 0.222189e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
283  &, 0.100000e-04_jprb, 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 &
285  &, 0.100000e-04_jprb, 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 &
287  &, 0.100000e-04_jprb, 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 &
289  &, 0.100000e-04_jprb, 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 &
291  &, 0.100000e-04_jprb, 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 &
293  &, 0.100000e-04_jprb, 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 &
295  &, 0.100000e-04_jprb, 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 &
297  &, 0.100000e-04_jprb, 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 &
299  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
300  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
301  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
302  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
303  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
304  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
305  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
306  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
307  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
308  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
309 xcw( 3, :) = (/ &
310  & 0.736354e+00_jprb, 0.677916e+00_jprb, 0.622423e+00_jprb, 0.569848e+00_jprb &
311  &, 0.520155e+00_jprb, 0.473308e+00_jprb, 0.429266e+00_jprb &
312  &, 0.387977e+00_jprb, 0.349393e+00_jprb, 0.313452e+00_jprb, 0.280090e+00_jprb &
313  &, 0.249239e+00_jprb, 0.220818e+00_jprb, 0.194749e+00_jprb &
314  &, 0.170941e+00_jprb, 0.149301e+00_jprb, 0.129726e+00_jprb, 0.112113e+00_jprb &
315  &, 0.963518e-01_jprb, 0.823288e-01_jprb, 0.699278e-01_jprb &
316  &, 0.590260e-01_jprb, 0.495089e-01_jprb, 0.412566e-01_jprb, 0.341524e-01_jprb &
317  &, 0.280759e-01_jprb, 0.229205e-01_jprb, 0.185757e-01_jprb &
318  &, 0.149503e-01_jprb, 0.119426e-01_jprb, 0.946786e-02_jprb, 0.744832e-02_jprb &
319  &, 0.581849e-02_jprb, 0.450936e-02_jprb, 0.346636e-02_jprb &
320  &, 0.264227e-02_jprb, 0.200318e-02_jprb, 0.149628e-02_jprb, 0.111280e-02_jprb &
321  &, 0.822026e-03_jprb, 0.600133e-03_jprb, 0.442133e-03_jprb &
322  &, 0.309012e-03_jprb, 0.225682e-03_jprb, 0.161253e-03_jprb, 0.105391e-03_jprb &
323  &, 0.710947e-04_jprb, 0.475598e-04_jprb, 0.356538e-04_jprb &
324  &, 0.231398e-04_jprb, 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 &
326  &, 0.100000e-04_jprb, 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 &
328  &, 0.100000e-04_jprb, 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 &
330  &, 0.100000e-04_jprb, 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 &
332  &, 0.100000e-04_jprb, 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 &
334  &, 0.100000e-04_jprb, 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 &
336  &, 0.100000e-04_jprb, 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 &
338  &, 0.100000e-04_jprb, 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 &
340  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
341  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
342  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
343  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
344  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
345  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
346  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
347  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
348  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
349  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
350 xcw( 4, :) = (/ &
351  & 0.747015e+00_jprb, 0.690526e+00_jprb, 0.636713e+00_jprb, 0.585555e+00_jprb &
352  &, 0.537027e+00_jprb, 0.491103e+00_jprb, 0.447751e+00_jprb &
353  &, 0.406935e+00_jprb, 0.368614e+00_jprb, 0.332744e+00_jprb, 0.299273e+00_jprb &
354  &, 0.268143e+00_jprb, 0.239300e+00_jprb, 0.212671e+00_jprb &
355  &, 0.188187e+00_jprb, 0.165768e+00_jprb, 0.145335e+00_jprb, 0.126795e+00_jprb &
356  &, 0.110061e+00_jprb, 0.950281e-01_jprb, 0.816072e-01_jprb &
357  &, 0.696853e-01_jprb, 0.591577e-01_jprb, 0.499224e-01_jprb, 0.418719e-01_jprb &
358  &, 0.348996e-01_jprb, 0.289033e-01_jprb, 0.237772e-01_jprb &
359  &, 0.194313e-01_jprb, 0.157732e-01_jprb, 0.127163e-01_jprb, 0.101803e-01_jprb &
360  &, 0.808838e-02_jprb, 0.638520e-02_jprb, 0.500403e-02_jprb &
361  &, 0.388864e-02_jprb, 0.300453e-02_jprb, 0.229808e-02_jprb, 0.175444e-02_jprb &
362  &, 0.132569e-02_jprb, 0.990042e-03_jprb, 0.733823e-03_jprb &
363  &, 0.541578e-03_jprb, 0.395958e-03_jprb, 0.289236e-03_jprb, 0.200782e-03_jprb &
364  &, 0.144408e-03_jprb, 0.976396e-04_jprb, 0.741345e-04_jprb &
365  &, 0.494195e-04_jprb, 0.369174e-04_jprb, 0.237836e-04_jprb, 0.100000e-04_jprb &
366  &, 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, 0.100000e-04_jprb &
368  &, 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, 0.100000e-04_jprb &
370  &, 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, 0.100000e-04_jprb &
372  &, 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, 0.100000e-04_jprb &
374  &, 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, 0.100000e-04_jprb &
376  &, 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, 0.100000e-04_jprb &
378  &, 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, 0.100000e-04_jprb &
380  &, 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, 0.100000e-04_jprb &
382  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
383  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
384  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
385  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
386  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
387  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
388  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
389  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
390  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
391 xcw( 5, :) = (/ &
392  & 0.754906e+00_jprb, 0.699885e+00_jprb, 0.647346e+00_jprb, 0.597275e+00_jprb &
393  &, 0.549655e+00_jprb, 0.504464e+00_jprb, 0.461678e+00_jprb &
394  &, 0.421269e+00_jprb, 0.383205e+00_jprb, 0.347448e+00_jprb, 0.313958e+00_jprb &
395  &, 0.282687e+00_jprb, 0.253587e+00_jprb, 0.226601e+00_jprb &
396  &, 0.201668e+00_jprb, 0.178721e+00_jprb, 0.157691e+00_jprb, 0.138500e+00_jprb &
397  &, 0.121068e+00_jprb, 0.105310e+00_jprb, 0.911369e-01_jprb &
398  &, 0.784581e-01_jprb, 0.671787e-01_jprb, 0.572000e-01_jprb, 0.484225e-01_jprb &
399  &, 0.407522e-01_jprb, 0.340926e-01_jprb, 0.283452e-01_jprb &
400  &, 0.234156e-01_jprb, 0.192232e-01_jprb, 0.156814e-01_jprb, 0.127061e-01_jprb &
401  &, 0.102245e-01_jprb, 0.817698e-02_jprb, 0.649181e-02_jprb &
402  &, 0.511641e-02_jprb, 0.400589e-02_jprb, 0.311945e-02_jprb, 0.240609e-02_jprb &
403  &, 0.183963e-02_jprb, 0.140103e-02_jprb, 0.105792e-02_jprb &
404  &, 0.796292e-03_jprb, 0.588936e-03_jprb, 0.440488e-03_jprb, 0.320021e-03_jprb &
405  &, 0.229941e-03_jprb, 0.160239e-03_jprb, 0.112615e-03_jprb &
406  &, 0.756992e-04_jprb, 0.503762e-04_jprb, 0.375671e-04_jprb, 0.241144e-04_jprb &
407  &, 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, 0.100000e-04_jprb &
409  &, 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, 0.100000e-04_jprb &
411  &, 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, 0.100000e-04_jprb &
413  &, 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, 0.100000e-04_jprb &
415  &, 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, 0.100000e-04_jprb &
417  &, 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, 0.100000e-04_jprb &
419  &, 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, 0.100000e-04_jprb &
421  &, 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, 0.100000e-04_jprb &
423  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
424  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
425  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
426  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
427  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
428  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
429  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
430  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
431  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
432 xcw( 6, :) = (/ &
433  & 0.761234e+00_jprb, 0.707403e+00_jprb, 0.655904e+00_jprb, 0.606728e+00_jprb &
434  &, 0.559862e+00_jprb, 0.515289e+00_jprb, 0.472990e+00_jprb &
435  &, 0.432943e+00_jprb, 0.395121e+00_jprb, 0.359494e+00_jprb, 0.326027e+00_jprb &
436  &, 0.294681e+00_jprb, 0.265414e+00_jprb, 0.238177e+00_jprb &
437  &, 0.212918e+00_jprb, 0.189579e+00_jprb, 0.168099e+00_jprb, 0.148410e+00_jprb &
438  &, 0.130440e+00_jprb, 0.114114e+00_jprb, 0.993501e-01_jprb &
439  &, 0.860705e-01_jprb, 0.741787e-01_jprb, 0.635961e-01_jprb, 0.542272e-01_jprb &
440  &, 0.459791e-01_jprb, 0.387641e-01_jprb, 0.324933e-01_jprb &
441  &, 0.270715e-01_jprb, 0.224207e-01_jprb, 0.184534e-01_jprb, 0.150929e-01_jprb &
442  &, 0.122657e-01_jprb, 0.990682e-02_jprb, 0.794784e-02_jprb &
443  &, 0.633488e-02_jprb, 0.501679e-02_jprb, 0.394081e-02_jprb, 0.307780e-02_jprb &
444  &, 0.238441e-02_jprb, 0.184363e-02_jprb, 0.140363e-02_jprb &
445  &, 0.107316e-02_jprb, 0.804619e-03_jprb, 0.603376e-03_jprb, 0.451184e-03_jprb &
446  &, 0.327692e-03_jprb, 0.235359e-03_jprb, 0.176750e-03_jprb &
447  &, 0.128259e-03_jprb, 0.907523e-04_jprb, 0.651343e-04_jprb, 0.382287e-04_jprb &
448  &, 0.244511e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
449  &, 0.100000e-04_jprb, 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 &
451  &, 0.100000e-04_jprb, 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 &
453  &, 0.100000e-04_jprb, 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 &
455  &, 0.100000e-04_jprb, 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 &
457  &, 0.100000e-04_jprb, 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 &
459  &, 0.100000e-04_jprb, 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 &
461  &, 0.100000e-04_jprb, 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 &
463  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
464  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
465  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
466  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
467  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
468  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
469  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
470  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
471  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
472  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
473 xcw( 7, :) = (/ &
474  & 0.766547e+00_jprb, 0.713724e+00_jprb, 0.663112e+00_jprb, 0.614703e+00_jprb &
475  &, 0.568488e+00_jprb, 0.524455e+00_jprb, 0.482589e+00_jprb &
476  &, 0.442870e+00_jprb, 0.405277e+00_jprb, 0.369786e+00_jprb, 0.336366e+00_jprb &
477  &, 0.304984e+00_jprb, 0.275603e+00_jprb, 0.248182e+00_jprb &
478  &, 0.222674e+00_jprb, 0.199029e+00_jprb, 0.177192e+00_jprb, 0.157102e+00_jprb &
479  &, 0.138695e+00_jprb, 0.121902e+00_jprb, 0.106652e+00_jprb &
480  &, 0.928706e-01_jprb, 0.804699e-01_jprb, 0.693779e-01_jprb, 0.595026e-01_jprb &
481  &, 0.507622e-01_jprb, 0.430706e-01_jprb, 0.363401e-01_jprb &
482  &, 0.304850e-01_jprb, 0.254259e-01_jprb, 0.210818e-01_jprb, 0.173745e-01_jprb &
483  &, 0.142335e-01_jprb, 0.115880e-01_jprb, 0.937665e-02_jprb &
484  &, 0.753475e-02_jprb, 0.601814e-02_jprb, 0.478173e-02_jprb, 0.376956e-02_jprb &
485  &, 0.294974e-02_jprb, 0.229677e-02_jprb, 0.177094e-02_jprb &
486  &, 0.136109e-02_jprb, 0.104300e-02_jprb, 0.789533e-03_jprb, 0.594271e-03_jprb &
487  &, 0.437663e-03_jprb, 0.322999e-03_jprb, 0.240884e-03_jprb &
488  &, 0.167678e-03_jprb, 0.131128e-03_jprb, 0.927014e-04_jprb, 0.664575e-04_jprb &
489  &, 0.389023e-04_jprb, 0.247939e-04_jprb, 0.100000e-04_jprb &
490  &, 0.100000e-04_jprb, 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 &
492  &, 0.100000e-04_jprb, 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 &
494  &, 0.100000e-04_jprb, 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 &
496  &, 0.100000e-04_jprb, 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 &
498  &, 0.100000e-04_jprb, 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 &
500  &, 0.100000e-04_jprb, 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 &
502  &, 0.100000e-04_jprb, 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 &
504  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
505  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
506  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
507  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
508  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
509  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
510  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
511  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
512  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
513  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
514 
515 IF (lhook) CALL dr_hook('SU_MCICA:PART1',1,zhook_handle)
516 END SUBROUTINE part1
517 
518 #ifdef VPP5000
519 !OCL SCALAR
520 #endif
521 !option! -Nv -NO
522 #ifdef RS6K
523 @process nooptimize
524 #endif
525 !pgi$r opt=0
526 SUBROUTINE part2
527 
528 REAL(KIND=JPRB) :: ZHOOK_HANDLE
529 IF (lhook) CALL dr_hook('SU_MCICA:PART2',0,zhook_handle)
530 
531 xcw( 8, :) = (/ &
532  & 0.771146e+00_jprb, 0.719203e+00_jprb, 0.669367e+00_jprb, 0.621634e+00_jprb &
533  &, 0.575996e+00_jprb, 0.532446e+00_jprb, 0.490970e+00_jprb &
534  &, 0.451554e+00_jprb, 0.414179e+00_jprb, 0.378824e+00_jprb, 0.345465e+00_jprb &
535  &, 0.314072e+00_jprb, 0.284613e+00_jprb, 0.257053e+00_jprb &
536  &, 0.231348e+00_jprb, 0.207455e+00_jprb, 0.185325e+00_jprb, 0.164903e+00_jprb &
537  &, 0.146130e+00_jprb, 0.128945e+00_jprb, 0.113280e+00_jprb &
538  &, 0.990673e-01_jprb, 0.862287e-01_jprb, 0.746946e-01_jprb, 0.643801e-01_jprb &
539  &, 0.552071e-01_jprb, 0.470902e-01_jprb, 0.399540e-01_jprb &
540  &, 0.337147e-01_jprb, 0.282868e-01_jprb, 0.236033e-01_jprb, 0.195761e-01_jprb &
541  &, 0.161452e-01_jprb, 0.132338e-01_jprb, 0.107828e-01_jprb &
542  &, 0.873461e-02_jprb, 0.702904e-02_jprb, 0.562265e-02_jprb, 0.447134e-02_jprb &
543  &, 0.352535e-02_jprb, 0.277098e-02_jprb, 0.215986e-02_jprb &
544  &, 0.167118e-02_jprb, 0.129274e-02_jprb, 0.987325e-03_jprb, 0.749282e-03_jprb &
545  &, 0.559852e-03_jprb, 0.423158e-03_jprb, 0.317846e-03_jprb &
546  &, 0.233377e-03_jprb, 0.171505e-03_jprb, 0.120269e-03_jprb, 0.805719e-04_jprb &
547  &, 0.533534e-04_jprb, 0.395877e-04_jprb, 0.251426e-04_jprb &
548  &, 0.100000e-04_jprb, 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 &
550  &, 0.100000e-04_jprb, 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 &
552  &, 0.100000e-04_jprb, 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 &
554  &, 0.100000e-04_jprb, 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 &
556  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
557  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
558  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
559  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
560  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
561  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
562  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
563  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
564  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
565  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
566  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
567  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
568  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
569  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
570  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
571  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
572 xcw( 9, :) = (/ &
573  & 0.775213e+00_jprb, 0.724053e+00_jprb, 0.674911e+00_jprb, 0.627784e+00_jprb &
574  &, 0.582668e+00_jprb, 0.539556e+00_jprb, 0.498439e+00_jprb &
575  &, 0.459304e+00_jprb, 0.422136e+00_jprb, 0.386918e+00_jprb, 0.353627e+00_jprb &
576  &, 0.322241e+00_jprb, 0.292729e+00_jprb, 0.265061e+00_jprb &
577  &, 0.239196e+00_jprb, 0.215099e+00_jprb, 0.192722e+00_jprb, 0.172018e+00_jprb &
578  &, 0.152932e+00_jprb, 0.135407e+00_jprb, 0.119382e+00_jprb &
579  &, 0.104797e+00_jprb, 0.915737e-01_jprb, 0.796470e-01_jprb, 0.689414e-01_jprb &
580  &, 0.593791e-01_jprb, 0.508862e-01_jprb, 0.433847e-01_jprb &
581  &, 0.367919e-01_jprb, 0.310316e-01_jprb, 0.260304e-01_jprb, 0.217104e-01_jprb &
582  &, 0.180051e-01_jprb, 0.148486e-01_jprb, 0.121753e-01_jprb &
583  &, 0.991588e-02_jprb, 0.803993e-02_jprb, 0.647335e-02_jprb, 0.518315e-02_jprb &
584  &, 0.412152e-02_jprb, 0.325573e-02_jprb, 0.255959e-02_jprb &
585  &, 0.199234e-02_jprb, 0.155383e-02_jprb, 0.119675e-02_jprb, 0.916216e-03_jprb &
586  &, 0.694261e-03_jprb, 0.523318e-03_jprb, 0.394807e-03_jprb &
587  &, 0.285937e-03_jprb, 0.211881e-03_jprb, 0.161619e-03_jprb, 0.108801e-03_jprb &
588  &, 0.822557e-04_jprb, 0.543816e-04_jprb, 0.402851e-04_jprb &
589  &, 0.254972e-04_jprb, 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 &
591  &, 0.100000e-04_jprb, 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 &
593  &, 0.100000e-04_jprb, 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 &
595  &, 0.100000e-04_jprb, 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 &
597  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
598  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
599  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
600  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
601  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
602  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
603  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
604  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
605  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
606  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
607  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
608  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
609  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
610  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
611  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
612  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
613 xcw( 10, :) = (/ &
614  & 0.778867e+00_jprb, 0.728416e+00_jprb, 0.679903e+00_jprb, 0.633328e+00_jprb &
615  &, 0.588688e+00_jprb, 0.545980e+00_jprb, 0.505195e+00_jprb &
616  &, 0.466324e+00_jprb, 0.429355e+00_jprb, 0.394272e+00_jprb, 0.361057e+00_jprb &
617  &, 0.329688e+00_jprb, 0.300143e+00_jprb, 0.272388e+00_jprb &
618  &, 0.246394e+00_jprb, 0.222123e+00_jprb, 0.199536e+00_jprb, 0.178587e+00_jprb &
619  &, 0.159228e+00_jprb, 0.141406e+00_jprb, 0.125066e+00_jprb &
620  &, 0.110144e+00_jprb, 0.965796e-01_jprb, 0.843044e-01_jprb, 0.732469e-01_jprb &
621  &, 0.633366e-01_jprb, 0.544997e-01_jprb, 0.466590e-01_jprb &
622  &, 0.397401e-01_jprb, 0.336721e-01_jprb, 0.283795e-01_jprb, 0.237899e-01_jprb &
623  &, 0.198305e-01_jprb, 0.164369e-01_jprb, 0.135497e-01_jprb &
624  &, 0.110971e-01_jprb, 0.904129e-02_jprb, 0.732404e-02_jprb, 0.589496e-02_jprb &
625  &, 0.471770e-02_jprb, 0.376156e-02_jprb, 0.297011e-02_jprb &
626  &, 0.233565e-02_jprb, 0.182627e-02_jprb, 0.141781e-02_jprb, 0.109507e-02_jprb &
627  &, 0.840888e-03_jprb, 0.635997e-03_jprb, 0.484596e-03_jprb &
628  &, 0.364776e-03_jprb, 0.265716e-03_jprb, 0.202970e-03_jprb, 0.151144e-03_jprb &
629  &, 0.111158e-03_jprb, 0.691755e-04_jprb, 0.554277e-04_jprb &
630  &, 0.409944e-04_jprb, 0.258578e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
631  &, 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, 0.100000e-04_jprb &
633  &, 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, 0.100000e-04_jprb &
635  &, 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, 0.100000e-04_jprb &
637  &, 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, 0.100000e-04_jprb &
639  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
640  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
641  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
642  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
643  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
644  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
645  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
646  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
647  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
648  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
649  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
650  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
651  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
652  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
653  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
654 xcw( 11, :) = (/ &
655  & 0.782192e+00_jprb, 0.732388e+00_jprb, 0.684452e+00_jprb, 0.638386e+00_jprb &
656  &, 0.594186e+00_jprb, 0.551852e+00_jprb, 0.511378e+00_jprb &
657  &, 0.472757e+00_jprb, 0.435978e+00_jprb, 0.401028e+00_jprb, 0.367892e+00_jprb &
658  &, 0.336551e+00_jprb, 0.306983e+00_jprb, 0.279163e+00_jprb &
659  &, 0.253060e+00_jprb, 0.228642e+00_jprb, 0.205872e+00_jprb, 0.184711e+00_jprb &
660  &, 0.165112e+00_jprb, 0.147025e+00_jprb, 0.130400e+00_jprb &
661  &, 0.115181e+00_jprb, 0.101307e+00_jprb, 0.887154e-01_jprb, 0.773358e-01_jprb &
662  &, 0.671049e-01_jprb, 0.579531e-01_jprb, 0.498036e-01_jprb &
663  &, 0.425866e-01_jprb, 0.362325e-01_jprb, 0.306628e-01_jprb, 0.258147e-01_jprb &
664  &, 0.216171e-01_jprb, 0.180030e-01_jprb, 0.149105e-01_jprb &
665  &, 0.122784e-01_jprb, 0.100522e-01_jprb, 0.818452e-02_jprb, 0.662682e-02_jprb &
666  &, 0.533442e-02_jprb, 0.426739e-02_jprb, 0.339144e-02_jprb &
667  &, 0.269004e-02_jprb, 0.211006e-02_jprb, 0.165051e-02_jprb, 0.127393e-02_jprb &
668  &, 0.987515e-03_jprb, 0.761197e-03_jprb, 0.574384e-03_jprb &
669  &, 0.430475e-03_jprb, 0.333009e-03_jprb, 0.244321e-03_jprb, 0.179372e-03_jprb &
670  &, 0.125609e-03_jprb, 0.987632e-04_jprb, 0.705702e-04_jprb &
671  &, 0.409944e-04_jprb, 0.258578e-04_jprb, 0.262244e-04_jprb, 0.100000e-04_jprb &
672  &, 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, 0.100000e-04_jprb &
674  &, 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, 0.100000e-04_jprb &
676  &, 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, 0.100000e-04_jprb &
678  &, 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, 0.100000e-04_jprb &
680  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
681  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
682  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
683  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
684  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
685  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
686  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
687  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
688  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
689  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
690  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
691  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
692  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
693  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
694  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
695 xcw( 12, :) = (/ &
696  & 0.785247e+00_jprb, 0.736041e+00_jprb, 0.688639e+00_jprb, 0.643044e+00_jprb &
697  &, 0.599255e+00_jprb, 0.557271e+00_jprb, 0.517091e+00_jprb &
698  &, 0.478706e+00_jprb, 0.442109e+00_jprb, 0.407291e+00_jprb, 0.374237e+00_jprb &
699  &, 0.342929e+00_jprb, 0.313351e+00_jprb, 0.285478e+00_jprb &
700  &, 0.259284e+00_jprb, 0.234740e+00_jprb, 0.211810e+00_jprb, 0.190461e+00_jprb &
701  &, 0.170647e+00_jprb, 0.152323e+00_jprb, 0.135442e+00_jprb &
702  &, 0.119955e+00_jprb, 0.105798e+00_jprb, 0.929146e-01_jprb, 0.812435e-01_jprb &
703  &, 0.707204e-01_jprb, 0.612723e-01_jprb, 0.528374e-01_jprb &
704  &, 0.453432e-01_jprb, 0.387168e-01_jprb, 0.328928e-01_jprb, 0.278016e-01_jprb &
705  &, 0.233777e-01_jprb, 0.195515e-01_jprb, 0.162622e-01_jprb &
706  &, 0.134504e-01_jprb, 0.110631e-01_jprb, 0.905477e-02_jprb, 0.736871e-02_jprb &
707  &, 0.596143e-02_jprb, 0.479429e-02_jprb, 0.383438e-02_jprb &
708  &, 0.304442e-02_jprb, 0.240521e-02_jprb, 0.189484e-02_jprb, 0.147664e-02_jprb &
709  &, 0.114636e-02_jprb, 0.886396e-03_jprb, 0.676999e-03_jprb &
710  &, 0.522454e-03_jprb, 0.386844e-03_jprb, 0.299455e-03_jprb, 0.221716e-03_jprb &
711  &, 0.154511e-03_jprb, 0.113557e-03_jprb, 0.857127e-04_jprb &
712  &, 0.564916e-04_jprb, 0.417156e-04_jprb, 0.262244e-04_jprb, 0.100000e-04_jprb &
713  &, 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, 0.100000e-04_jprb &
715  &, 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, 0.100000e-04_jprb &
717  &, 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, 0.100000e-04_jprb &
719  &, 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, 0.100000e-04_jprb &
721  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
722  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
723  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
724  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
725  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
726  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
727  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
728  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
729  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
730  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
731  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
732  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
733  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
734  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
735  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
736 xcw( 13, :) = (/ &
737  & 0.788076e+00_jprb, 0.739426e+00_jprb, 0.692522e+00_jprb, 0.647367e+00_jprb &
738  &, 0.603964e+00_jprb, 0.562311e+00_jprb, 0.522407e+00_jprb &
739  &, 0.484248e+00_jprb, 0.447829e+00_jprb, 0.413139e+00_jprb, 0.380168e+00_jprb &
740  &, 0.348900e+00_jprb, 0.319320e+00_jprb, 0.291406e+00_jprb &
741  &, 0.265135e+00_jprb, 0.240481e+00_jprb, 0.217412e+00_jprb, 0.195892e+00_jprb &
742  &, 0.175886e+00_jprb, 0.157348e+00_jprb, 0.140235e+00_jprb &
743  &, 0.124501e+00_jprb, 0.110085e+00_jprb, 0.969369e-01_jprb, 0.849948e-01_jprb &
744  &, 0.741941e-01_jprb, 0.644761e-01_jprb, 0.557721e-01_jprb &
745  &, 0.480177e-01_jprb, 0.411370e-01_jprb, 0.350735e-01_jprb, 0.297506e-01_jprb &
746  &, 0.251082e-01_jprb, 0.210778e-01_jprb, 0.176048e-01_jprb &
747  &, 0.146223e-01_jprb, 0.120835e-01_jprb, 0.992503e-02_jprb, 0.811060e-02_jprb &
748  &, 0.658844e-02_jprb, 0.533174e-02_jprb, 0.427732e-02_jprb &
749  &, 0.342096e-02_jprb, 0.271170e-02_jprb, 0.215081e-02_jprb, 0.167935e-02_jprb &
750  &, 0.131743e-02_jprb, 0.102412e-02_jprb, 0.792442e-03_jprb &
751  &, 0.601293e-03_jprb, 0.454138e-03_jprb, 0.340806e-03_jprb, 0.264059e-03_jprb &
752  &, 0.197865e-03_jprb, 0.143145e-03_jprb, 0.100855e-03_jprb &
753  &, 0.719888e-04_jprb, 0.575734e-04_jprb, 0.424488e-04_jprb, 0.265969e-04_jprb &
754  &, 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, 0.100000e-04_jprb &
756  &, 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, 0.100000e-04_jprb &
758  &, 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, 0.100000e-04_jprb &
760  &, 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, 0.100000e-04_jprb &
762  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
763  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
764  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
765  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
766  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
767  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
768  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
769  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
770  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
771  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
772  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
773  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
774  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
775  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
776  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
777 xcw( 14, :) = (/ &
778  & 0.790713e+00_jprb, 0.742585e+00_jprb, 0.696148e+00_jprb, 0.651408e+00_jprb &
779  &, 0.608367e+00_jprb, 0.567027e+00_jprb, 0.527387e+00_jprb &
780  &, 0.489445e+00_jprb, 0.453196e+00_jprb, 0.418632e+00_jprb, 0.385744e+00_jprb &
781  &, 0.354521e+00_jprb, 0.324945e+00_jprb, 0.297001e+00_jprb &
782  &, 0.270666e+00_jprb, 0.245915e+00_jprb, 0.222719e+00_jprb, 0.201049e+00_jprb &
783  &, 0.180868e+00_jprb, 0.162135e+00_jprb, 0.144810e+00_jprb &
784  &, 0.128847e+00_jprb, 0.114195e+00_jprb, 0.100800e+00_jprb, 0.886041e-01_jprb &
785  &, 0.775514e-01_jprb, 0.675792e-01_jprb, 0.586227e-01_jprb &
786  &, 0.506179e-01_jprb, 0.435011e-01_jprb, 0.372049e-01_jprb, 0.316660e-01_jprb &
787  &, 0.268128e-01_jprb, 0.225909e-01_jprb, 0.189338e-01_jprb &
788  &, 0.157850e-01_jprb, 0.130944e-01_jprb, 0.108051e-01_jprb, 0.886251e-02_jprb &
789  &, 0.723601e-02_jprb, 0.586918e-02_jprb, 0.474186e-02_jprb &
790  &, 0.380856e-02_jprb, 0.304090e-02_jprb, 0.240677e-02_jprb, 0.190590e-02_jprb &
791  &, 0.148849e-02_jprb, 0.116184e-02_jprb, 0.895057e-03_jprb &
792  &, 0.693271e-03_jprb, 0.534890e-03_jprb, 0.409723e-03_jprb, 0.306402e-03_jprb &
793  &, 0.226767e-03_jprb, 0.172732e-03_jprb, 0.131140e-03_jprb &
794  &, 0.874860e-04_jprb, 0.575734e-04_jprb, 0.424488e-04_jprb, 0.265969e-04_jprb &
795  &, 0.269754e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
796  &, 0.100000e-04_jprb, 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 &
798  &, 0.100000e-04_jprb, 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 &
800  &, 0.100000e-04_jprb, 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 &
802  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
803  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
804  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
805  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
806  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
807  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
808  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
809  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
810  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
811  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
812  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
813  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
814  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
815  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
816  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
817  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
818 
819 IF (lhook) CALL dr_hook('SU_MCICA:PART2',1,zhook_handle)
820 END SUBROUTINE part2
821 
822 #ifdef VPP5000
823 !OCL SCALAR
824 #endif
825 !option! -Nv -NO
826 #ifdef RS6K
827 @process nooptimize
828 #endif
829 !pgi$r opt=0
830 SUBROUTINE part3
831 
832 REAL(KIND=JPRB) :: ZHOOK_HANDLE
833 IF (lhook) CALL dr_hook('SU_MCICA:PART3',0,zhook_handle)
834 
835 xcw( 15, :) = (/ &
836  & 0.793186e+00_jprb, 0.745548e+00_jprb, 0.699551e+00_jprb, 0.655203e+00_jprb &
837  &, 0.612506e+00_jprb, 0.571464e+00_jprb, 0.532076e+00_jprb &
838  &, 0.494341e+00_jprb, 0.458258e+00_jprb, 0.423819e+00_jprb, 0.391016e+00_jprb &
839  &, 0.359839e+00_jprb, 0.330274e+00_jprb, 0.302307e+00_jprb &
840  &, 0.275917e+00_jprb, 0.251081e+00_jprb, 0.227774e+00_jprb, 0.205967e+00_jprb &
841  &, 0.185626e+00_jprb, 0.166716e+00_jprb, 0.149197e+00_jprb &
842  &, 0.133021e+00_jprb, 0.118150e+00_jprb, 0.104523e+00_jprb, 0.920926e-01_jprb &
843  &, 0.808032e-01_jprb, 0.705893e-01_jprb, 0.613971e-01_jprb &
844  &, 0.531594e-01_jprb, 0.458171e-01_jprb, 0.392993e-01_jprb, 0.335477e-01_jprb &
845  &, 0.285001e-01_jprb, 0.240906e-01_jprb, 0.202583e-01_jprb &
846  &, 0.169477e-01_jprb, 0.141053e-01_jprb, 0.116851e-01_jprb, 0.962445e-02_jprb &
847  &, 0.788357e-02_jprb, 0.642770e-02_jprb, 0.520640e-02_jprb &
848  &, 0.419617e-02_jprb, 0.335875e-02_jprb, 0.268601e-02_jprb, 0.212053e-02_jprb &
849  &, 0.167178e-02_jprb, 0.131207e-02_jprb, 0.102333e-02_jprb &
850  &, 0.785250e-03_jprb, 0.615642e-03_jprb, 0.464858e-03_jprb, 0.348745e-03_jprb &
851  &, 0.270120e-03_jprb, 0.202320e-03_jprb, 0.146283e-03_jprb &
852  &, 0.102983e-03_jprb, 0.734312e-04_jprb, 0.586731e-04_jprb, 0.431938e-04_jprb &
853  &, 0.269754e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
854  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
855  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
856  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
857  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
858  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
859  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
860  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
861  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
862  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
863  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
864  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
865  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
866  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
867  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
868  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
869  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
870  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
871  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
872  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
873  &, 0.100000e-04_jprb, 0.100000e-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 xcw( 16, :) = (/ &
877  & 0.795517e+00_jprb, 0.748342e+00_jprb, 0.702762e+00_jprb, 0.658786e+00_jprb &
878  &, 0.616416e+00_jprb, 0.575658e+00_jprb, 0.536511e+00_jprb &
879  &, 0.498977e+00_jprb, 0.463054e+00_jprb, 0.428737e+00_jprb, 0.396019e+00_jprb &
880  &, 0.364890e+00_jprb, 0.335342e+00_jprb, 0.307358e+00_jprb &
881  &, 0.280921e+00_jprb, 0.256011e+00_jprb, 0.232603e+00_jprb, 0.210672e+00_jprb &
882  &, 0.190186e+00_jprb, 0.171113e+00_jprb, 0.153412e+00_jprb &
883  &, 0.137043e+00_jprb, 0.121965e+00_jprb, 0.108122e+00_jprb, 0.954745e-01_jprb &
884  &, 0.839568e-01_jprb, 0.735211e-01_jprb, 0.641028e-01_jprb &
885  &, 0.556423e-01_jprb, 0.480810e-01_jprb, 0.413568e-01_jprb, 0.354041e-01_jprb &
886  &, 0.301658e-01_jprb, 0.255772e-01_jprb, 0.215782e-01_jprb &
887  &, 0.181103e-01_jprb, 0.151257e-01_jprb, 0.125651e-01_jprb, 0.103864e-01_jprb &
888  &, 0.854141e-02_jprb, 0.698622e-02_jprb, 0.568175e-02_jprb &
889  &, 0.459486e-02_jprb, 0.369930e-02_jprb, 0.296524e-02_jprb, 0.235901e-02_jprb &
890  &, 0.186728e-02_jprb, 0.147483e-02_jprb, 0.115159e-02_jprb &
891  &, 0.890369e-03_jprb, 0.696395e-03_jprb, 0.533775e-03_jprb, 0.405202e-03_jprb &
892  &, 0.313474e-03_jprb, 0.231908e-03_jprb, 0.176568e-03_jprb &
893  &, 0.133978e-03_jprb, 0.892890e-04_jprb, 0.586731e-04_jprb, 0.431938e-04_jprb &
894  &, 0.269754e-04_jprb, 0.273598e-04_jprb, 0.100000e-04_jprb &
895  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
896  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
897  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
898  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
899  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
900  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
901  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
902  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
903  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
904  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
905  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
906  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
907  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
908  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
909  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
910  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
911  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
912  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
913  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
914  &, 0.100000e-04_jprb, 0.100000e-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 xcw( 17, :) = (/ &
918  & 0.797721e+00_jprb, 0.750986e+00_jprb, 0.705803e+00_jprb, 0.662181e+00_jprb &
919  &, 0.620124e+00_jprb, 0.579637e+00_jprb, 0.540723e+00_jprb &
920  &, 0.503383e+00_jprb, 0.467615e+00_jprb, 0.433418e+00_jprb, 0.400785e+00_jprb &
921  &, 0.369709e+00_jprb, 0.340180e+00_jprb, 0.312185e+00_jprb &
922  &, 0.285709e+00_jprb, 0.260733e+00_jprb, 0.237235e+00_jprb, 0.215190e+00_jprb &
923  &, 0.194571e+00_jprb, 0.175345e+00_jprb, 0.157475e+00_jprb &
924  &, 0.140926e+00_jprb, 0.125655e+00_jprb, 0.111614e+00_jprb, 0.987534e-01_jprb &
925  &, 0.870268e-01_jprb, 0.763746e-01_jprb, 0.667436e-01_jprb &
926  &, 0.580744e-01_jprb, 0.503088e-01_jprb, 0.433814e-01_jprb, 0.372353e-01_jprb &
927  &, 0.318143e-01_jprb, 0.270504e-01_jprb, 0.228846e-01_jprb &
928  &, 0.192637e-01_jprb, 0.161366e-01_jprb, 0.134549e-01_jprb, 0.111583e-01_jprb &
929  &, 0.920954e-02_jprb, 0.755527e-02_jprb, 0.616790e-02_jprb &
930  &, 0.500462e-02_jprb, 0.405120e-02_jprb, 0.325611e-02_jprb, 0.259749e-02_jprb &
931  &, 0.206278e-02_jprb, 0.163759e-02_jprb, 0.127986e-02_jprb &
932  &, 0.100863e-02_jprb, 0.777147e-03_jprb, 0.602693e-03_jprb, 0.461660e-03_jprb &
933  &, 0.356827e-03_jprb, 0.261496e-03_jprb, 0.206853e-03_jprb &
934  &, 0.149475e-03_jprb, 0.105147e-03_jprb, 0.748975e-04_jprb, 0.597907e-04_jprb &
935  &, 0.439508e-04_jprb, 0.273598e-04_jprb, 0.100000e-04_jprb &
936  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
937  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
938  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
939  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
940  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
941  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
942  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
943  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
944  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
945  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
946  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
947  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
948  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
949  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
950  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
951  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
952  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
953  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
954  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
955  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-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 xcw( 18, :) = (/ &
959  & 0.799815e+00_jprb, 0.753498e+00_jprb, 0.708694e+00_jprb, 0.665410e+00_jprb &
960  &, 0.623652e+00_jprb, 0.583427e+00_jprb, 0.544737e+00_jprb &
961  &, 0.507584e+00_jprb, 0.471968e+00_jprb, 0.437889e+00_jprb, 0.405341e+00_jprb &
962  &, 0.374317e+00_jprb, 0.344811e+00_jprb, 0.316810e+00_jprb &
963  &, 0.290302e+00_jprb, 0.265266e+00_jprb, 0.241687e+00_jprb, 0.219539e+00_jprb &
964  &, 0.198797e+00_jprb, 0.179428e+00_jprb, 0.161405e+00_jprb &
965  &, 0.144685e+00_jprb, 0.129233e+00_jprb, 0.115001e+00_jprb, 0.101947e+00_jprb &
966  &, 0.900167e-01_jprb, 0.791649e-01_jprb, 0.693310e-01_jprb &
967  &, 0.604595e-01_jprb, 0.524966e-01_jprb, 0.453773e-01_jprb, 0.390454e-01_jprb &
968  &, 0.334455e-01_jprb, 0.285104e-01_jprb, 0.241909e-01_jprb &
969  &, 0.204263e-01_jprb, 0.171570e-01_jprb, 0.143447e-01_jprb, 0.119303e-01_jprb &
970  &, 0.987766e-02_jprb, 0.813487e-02_jprb, 0.666485e-02_jprb &
971  &, 0.542545e-02_jprb, 0.440311e-02_jprb, 0.354698e-02_jprb, 0.284789e-02_jprb &
972  &, 0.227050e-02_jprb, 0.180035e-02_jprb, 0.142096e-02_jprb &
973  &, 0.111375e-02_jprb, 0.871358e-03_jprb, 0.671611e-03_jprb, 0.518117e-03_jprb &
974  &, 0.400181e-03_jprb, 0.305877e-03_jprb, 0.221996e-03_jprb &
975  &, 0.164972e-03_jprb, 0.121005e-03_jprb, 0.911219e-04_jprb, 0.597907e-04_jprb &
976  &, 0.439508e-04_jprb, 0.273598e-04_jprb, 0.277503e-04_jprb &
977  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
978  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
979  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
980  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
981  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
982  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
983  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
984  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
985  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
986  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
987  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
988  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
989  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
990  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
991  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
992  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
993  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
994  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
995  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
996  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-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 xcw( 19, :) = (/ &
1000  & 0.801808e+00_jprb, 0.755892e+00_jprb, 0.711450e+00_jprb, 0.668491e+00_jprb &
1001  &, 0.627020e+00_jprb, 0.587046e+00_jprb, 0.548572e+00_jprb &
1002  &, 0.511601e+00_jprb, 0.476134e+00_jprb, 0.442171e+00_jprb, 0.409707e+00_jprb &
1003  &, 0.378738e+00_jprb, 0.349258e+00_jprb, 0.321256e+00_jprb &
1004  &, 0.294720e+00_jprb, 0.269633e+00_jprb, 0.245979e+00_jprb, 0.223736e+00_jprb &
1005  &, 0.202879e+00_jprb, 0.183381e+00_jprb, 0.165208e+00_jprb &
1006  &, 0.148332e+00_jprb, 0.132709e+00_jprb, 0.118298e+00_jprb, 0.105059e+00_jprb &
1007  &, 0.929375e-01_jprb, 0.818918e-01_jprb, 0.718649e-01_jprb &
1008  &, 0.628017e-01_jprb, 0.546483e-01_jprb, 0.473445e-01_jprb, 0.408344e-01_jprb &
1009  &, 0.350594e-01_jprb, 0.299615e-01_jprb, 0.254882e-01_jprb &
1010  &, 0.215797e-01_jprb, 0.181775e-01_jprb, 0.152443e-01_jprb, 0.127123e-01_jprb &
1011  &, 0.105561e-01_jprb, 0.871446e-02_jprb, 0.716181e-02_jprb &
1012  &, 0.585735e-02_jprb, 0.476636e-02_jprb, 0.384949e-02_jprb, 0.309829e-02_jprb &
1013  &, 0.247823e-02_jprb, 0.197563e-02_jprb, 0.156206e-02_jprb &
1014  &, 0.123200e-02_jprb, 0.965569e-03_jprb, 0.754312e-03_jprb, 0.588689e-03_jprb &
1015  &, 0.443534e-03_jprb, 0.350259e-03_jprb, 0.267423e-03_jprb &
1016  &, 0.195966e-03_jprb, 0.152720e-03_jprb, 0.107346e-03_jprb, 0.763876e-04_jprb &
1017  &, 0.609262e-04_jprb, 0.447197e-04_jprb, 0.277503e-04_jprb &
1018  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1019  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1020  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1021  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1022  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1023  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1024  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1025  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1026  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1027  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1028  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1029  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1030  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1031  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1032  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1033  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1034  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1035  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1036  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1037  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1038  &, 0.100000e-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 xcw( 20, :) = (/ &
1041  & 0.803713e+00_jprb, 0.758180e+00_jprb, 0.714085e+00_jprb, 0.671438e+00_jprb &
1042  &, 0.630244e+00_jprb, 0.590513e+00_jprb, 0.552248e+00_jprb &
1043  &, 0.515454e+00_jprb, 0.480131e+00_jprb, 0.446281e+00_jprb, 0.413902e+00_jprb &
1044  &, 0.382990e+00_jprb, 0.353538e+00_jprb, 0.325537e+00_jprb &
1045  &, 0.298979e+00_jprb, 0.273847e+00_jprb, 0.250126e+00_jprb, 0.227794e+00_jprb &
1046  &, 0.206833e+00_jprb, 0.187210e+00_jprb, 0.168901e+00_jprb &
1047  &, 0.151873e+00_jprb, 0.136091e+00_jprb, 0.121511e+00_jprb, 0.108093e+00_jprb &
1048  &, 0.957928e-01_jprb, 0.845628e-01_jprb, 0.743492e-01_jprb &
1049  &, 0.651008e-01_jprb, 0.567640e-01_jprb, 0.492828e-01_jprb, 0.426025e-01_jprb &
1050  &, 0.366604e-01_jprb, 0.314082e-01_jprb, 0.267809e-01_jprb &
1051  &, 0.227238e-01_jprb, 0.191979e-01_jprb, 0.161341e-01_jprb, 0.135043e-01_jprb &
1052  &, 0.112345e-01_jprb, 0.930460e-02_jprb, 0.766956e-02_jprb &
1053  &, 0.628926e-02_jprb, 0.512961e-02_jprb, 0.416363e-02_jprb, 0.336062e-02_jprb &
1054  &, 0.269817e-02_jprb, 0.216343e-02_jprb, 0.171598e-02_jprb &
1055  &, 0.136340e-02_jprb, 0.107324e-02_jprb, 0.837014e-03_jprb, 0.645147e-03_jprb &
1056  &, 0.501339e-03_jprb, 0.379847e-03_jprb, 0.297708e-03_jprb &
1057  &, 0.226961e-03_jprb, 0.168578e-03_jprb, 0.123571e-03_jprb, 0.929845e-04_jprb &
1058  &, 0.609262e-04_jprb, 0.447197e-04_jprb, 0.277503e-04_jprb &
1059  &, 0.281466e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1060  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1061  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1062  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1063  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1064  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1065  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1066  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1067  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1068  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1069  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1070  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1071  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1072  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1073  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1074  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1075  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1076  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1077  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1078  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1079  &, 0.100000e-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 xcw( 21, :) = (/ &
1082  & 0.805537e+00_jprb, 0.760373e+00_jprb, 0.716611e+00_jprb, 0.674264e+00_jprb &
1083  &, 0.633338e+00_jprb, 0.593841e+00_jprb, 0.555779e+00_jprb &
1084  &, 0.519156e+00_jprb, 0.483975e+00_jprb, 0.450238e+00_jprb, 0.417942e+00_jprb &
1085  &, 0.387087e+00_jprb, 0.357665e+00_jprb, 0.329660e+00_jprb &
1086  &, 0.303093e+00_jprb, 0.277920e+00_jprb, 0.254138e+00_jprb, 0.231727e+00_jprb &
1087  &, 0.210666e+00_jprb, 0.190928e+00_jprb, 0.172494e+00_jprb &
1088  &, 0.155325e+00_jprb, 0.139387e+00_jprb, 0.124649e+00_jprb, 0.111063e+00_jprb &
1089  &, 0.985900e-01_jprb, 0.871817e-01_jprb, 0.767916e-01_jprb &
1090  &, 0.673686e-01_jprb, 0.588556e-01_jprb, 0.512007e-01_jprb, 0.443536e-01_jprb &
1091  &, 0.382485e-01_jprb, 0.328416e-01_jprb, 0.280691e-01_jprb &
1092  &, 0.238771e-01_jprb, 0.202183e-01_jprb, 0.170435e-01_jprb, 0.142963e-01_jprb &
1093  &, 0.119334e-01_jprb, 0.990527e-02_jprb, 0.818812e-02_jprb &
1094  &, 0.673224e-02_jprb, 0.551557e-02_jprb, 0.448940e-02_jprb, 0.363487e-02_jprb &
1095  &, 0.293033e-02_jprb, 0.235123e-02_jprb, 0.186990e-02_jprb &
1096  &, 0.148166e-02_jprb, 0.116745e-02_jprb, 0.919715e-03_jprb, 0.715718e-03_jprb &
1097  &, 0.559143e-03_jprb, 0.424228e-03_jprb, 0.327994e-03_jprb &
1098  &, 0.257955e-03_jprb, 0.184436e-03_jprb, 0.139795e-03_jprb, 0.109581e-03_jprb &
1099  &, 0.779016e-04_jprb, 0.620795e-04_jprb, 0.455005e-04_jprb &
1100  &, 0.281466e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1101  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1102  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1103  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1104  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1105  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1106  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1107  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1108  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1109  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1110  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1111  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1112  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1113  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1114  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1115  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1116  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1117  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1118  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1119  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1120  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1121  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
1122 
1123 IF (lhook) CALL dr_hook('SU_MCICA:PART3',1,zhook_handle)
1124 END SUBROUTINE part3
1125 
1126 #ifdef VPP5000
1127 !OCL SCALAR
1128 #endif
1129 !option! -Nv -NO
1130 #ifdef RS6K
1131 @process nooptimize
1132 #endif
1133 !pgi$r opt=0
1134 SUBROUTINE part4
1135 
1136 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1137 IF (lhook) CALL dr_hook('SU_MCICA:PART4',0,zhook_handle)
1138 
1139 xcw( 22, :) = (/ &
1140  & 0.807289e+00_jprb, 0.762478e+00_jprb, 0.719039e+00_jprb, 0.676981e+00_jprb &
1141  &, 0.636312e+00_jprb, 0.597043e+00_jprb, 0.559178e+00_jprb &
1142  &, 0.522722e+00_jprb, 0.487680e+00_jprb, 0.454053e+00_jprb, 0.421842e+00_jprb &
1143  &, 0.391042e+00_jprb, 0.361653e+00_jprb, 0.333668e+00_jprb &
1144  &, 0.307076e+00_jprb, 0.281868e+00_jprb, 0.258029e+00_jprb, 0.235542e+00_jprb &
1145  &, 0.214390e+00_jprb, 0.194548e+00_jprb, 0.175990e+00_jprb &
1146  &, 0.158687e+00_jprb, 0.142606e+00_jprb, 0.127713e+00_jprb, 0.113968e+00_jprb &
1147  &, 0.101329e+00_jprb, 0.897521e-01_jprb, 0.791920e-01_jprb &
1148  &, 0.695973e-01_jprb, 0.609151e-01_jprb, 0.530980e-01_jprb, 0.460838e-01_jprb &
1149  &, 0.398279e-01_jprb, 0.342662e-01_jprb, 0.293528e-01_jprb &
1150  &, 0.250212e-01_jprb, 0.212388e-01_jprb, 0.179431e-01_jprb, 0.150883e-01_jprb &
1151  &, 0.126221e-01_jprb, 0.105165e-01_jprb, 0.871749e-02_jprb &
1152  &, 0.718630e-02_jprb, 0.590153e-02_jprb, 0.481518e-02_jprb, 0.390912e-02_jprb &
1153  &, 0.316249e-02_jprb, 0.253903e-02_jprb, 0.203665e-02_jprb &
1154  &, 0.162620e-02_jprb, 0.128858e-02_jprb, 0.101620e-02_jprb, 0.786290e-03_jprb &
1155  &, 0.616948e-03_jprb, 0.483404e-03_jprb, 0.373421e-03_jprb &
1156  &, 0.273452e-03_jprb, 0.216151e-03_jprb, 0.156019e-03_jprb, 0.126178e-03_jprb &
1157  &, 0.948770e-04_jprb, 0.620795e-04_jprb, 0.455005e-04_jprb &
1158  &, 0.281466e-04_jprb, 0.285490e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1159  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1160  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1161  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1162  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1163  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1164  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1165  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1166  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1167  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1168  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1169  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1170  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1171  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1172  &, 0.100000e-04_jprb, 0.100000e-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 xcw( 23, :) = (/ &
1181  & 0.808973e+00_jprb, 0.764504e+00_jprb, 0.721375e+00_jprb, 0.679597e+00_jprb &
1182  &, 0.639179e+00_jprb, 0.600130e+00_jprb, 0.562456e+00_jprb &
1183  &, 0.526164e+00_jprb, 0.491258e+00_jprb, 0.457739e+00_jprb, 0.425610e+00_jprb &
1184  &, 0.394870e+00_jprb, 0.365514e+00_jprb, 0.337540e+00_jprb &
1185  &, 0.310937e+00_jprb, 0.285698e+00_jprb, 0.261808e+00_jprb, 0.239253e+00_jprb &
1186  &, 0.218014e+00_jprb, 0.198069e+00_jprb, 0.179397e+00_jprb &
1187  &, 0.161966e+00_jprb, 0.145750e+00_jprb, 0.130712e+00_jprb, 0.116814e+00_jprb &
1188  &, 0.104017e+00_jprb, 0.922816e-01_jprb, 0.815542e-01_jprb &
1189  &, 0.717948e-01_jprb, 0.629507e-01_jprb, 0.549707e-01_jprb, 0.478013e-01_jprb &
1190  &, 0.413901e-01_jprb, 0.356863e-01_jprb, 0.306319e-01_jprb &
1191  &, 0.261745e-01_jprb, 0.222592e-01_jprb, 0.188525e-01_jprb, 0.158904e-01_jprb &
1192  &, 0.133313e-01_jprb, 0.111277e-01_jprb, 0.924685e-02_jprb &
1193  &, 0.764035e-02_jprb, 0.628749e-02_jprb, 0.515259e-02_jprb, 0.419529e-02_jprb &
1194  &, 0.340687e-02_jprb, 0.273935e-02_jprb, 0.220340e-02_jprb &
1195  &, 0.175760e-02_jprb, 0.139625e-02_jprb, 0.109890e-02_jprb, 0.870977e-03_jprb &
1196  &, 0.674752e-03_jprb, 0.527785e-03_jprb, 0.403706e-03_jprb &
1197  &, 0.319944e-03_jprb, 0.232009e-03_jprb, 0.172244e-03_jprb, 0.142775e-03_jprb &
1198  &, 0.948770e-04_jprb, 0.794394e-04_jprb, 0.455005e-04_jprb &
1199  &, 0.281466e-04_jprb, 0.285490e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1200  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1201  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1202  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1203  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1204  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1205  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1206  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1207  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1208  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1209  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1210  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1211  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1212  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1213  &, 0.100000e-04_jprb, 0.100000e-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 xcw( 24, :) = (/ &
1222  & 0.810596e+00_jprb, 0.766457e+00_jprb, 0.723628e+00_jprb, 0.682121e+00_jprb &
1223  &, 0.641946e+00_jprb, 0.603110e+00_jprb, 0.565623e+00_jprb &
1224  &, 0.529490e+00_jprb, 0.494717e+00_jprb, 0.461307e+00_jprb, 0.429261e+00_jprb &
1225  &, 0.398579e+00_jprb, 0.369259e+00_jprb, 0.341298e+00_jprb &
1226  &, 0.314687e+00_jprb, 0.289419e+00_jprb, 0.265483e+00_jprb, 0.242864e+00_jprb &
1227  &, 0.221544e+00_jprb, 0.201505e+00_jprb, 0.182724e+00_jprb &
1228  &, 0.165175e+00_jprb, 0.148826e+00_jprb, 0.133648e+00_jprb, 0.119606e+00_jprb &
1229  &, 0.106658e+00_jprb, 0.947664e-01_jprb, 0.838821e-01_jprb &
1230  &, 0.739649e-01_jprb, 0.649621e-01_jprb, 0.568270e-01_jprb, 0.495062e-01_jprb &
1231  &, 0.429479e-01_jprb, 0.370977e-01_jprb, 0.319065e-01_jprb &
1232  &, 0.273186e-01_jprb, 0.232892e-01_jprb, 0.197618e-01_jprb, 0.166924e-01_jprb &
1233  &, 0.140303e-01_jprb, 0.117494e-01_jprb, 0.978702e-02_jprb &
1234  &, 0.810548e-02_jprb, 0.668480e-02_jprb, 0.549000e-02_jprb, 0.448146e-02_jprb &
1235  &, 0.365124e-02_jprb, 0.295219e-02_jprb, 0.237015e-02_jprb &
1236  &, 0.190214e-02_jprb, 0.151738e-02_jprb, 0.119539e-02_jprb, 0.941548e-03_jprb &
1237  &, 0.747008e-03_jprb, 0.572167e-03_jprb, 0.449134e-03_jprb &
1238  &, 0.350938e-03_jprb, 0.263725e-03_jprb, 0.204692e-03_jprb, 0.159372e-03_jprb &
1239  &, 0.111852e-03_jprb, 0.794394e-04_jprb, 0.632508e-04_jprb &
1240  &, 0.462932e-04_jprb, 0.285490e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1241  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1242  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1243  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1244  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1245  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1246  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1247  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1248  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1249  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1250  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1251  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1252  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1253  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1254  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-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 xcw( 25, :) = (/ &
1263  & 0.812163e+00_jprb, 0.768343e+00_jprb, 0.725804e+00_jprb, 0.684561e+00_jprb &
1264  &, 0.644621e+00_jprb, 0.605994e+00_jprb, 0.568689e+00_jprb &
1265  &, 0.532712e+00_jprb, 0.498069e+00_jprb, 0.464764e+00_jprb, 0.432801e+00_jprb &
1266  &, 0.402177e+00_jprb, 0.372894e+00_jprb, 0.344948e+00_jprb &
1267  &, 0.318332e+00_jprb, 0.293041e+00_jprb, 0.269062e+00_jprb, 0.246383e+00_jprb &
1268  &, 0.224990e+00_jprb, 0.204862e+00_jprb, 0.185976e+00_jprb &
1269  &, 0.168312e+00_jprb, 0.151841e+00_jprb, 0.136528e+00_jprb, 0.122345e+00_jprb &
1270  &, 0.109251e+00_jprb, 0.972102e-01_jprb, 0.861756e-01_jprb &
1271  &, 0.761037e-01_jprb, 0.669496e-01_jprb, 0.586627e-01_jprb, 0.511942e-01_jprb &
1272  &, 0.444885e-01_jprb, 0.385045e-01_jprb, 0.331766e-01_jprb &
1273  &, 0.284627e-01_jprb, 0.243096e-01_jprb, 0.206712e-01_jprb, 0.175045e-01_jprb &
1274  &, 0.147498e-01_jprb, 0.123712e-01_jprb, 0.103272e-01_jprb &
1275  &, 0.858169e-02_jprb, 0.709346e-02_jprb, 0.583904e-02_jprb, 0.477956e-02_jprb &
1276  &, 0.389562e-02_jprb, 0.316503e-02_jprb, 0.254973e-02_jprb &
1277  &, 0.204667e-02_jprb, 0.163851e-02_jprb, 0.130565e-02_jprb, 0.102623e-02_jprb &
1278  &, 0.804813e-03_jprb, 0.631342e-03_jprb, 0.494562e-03_jprb &
1279  &, 0.381933e-03_jprb, 0.295441e-03_jprb, 0.220917e-03_jprb, 0.175969e-03_jprb &
1280  &, 0.128828e-03_jprb, 0.967992e-04_jprb, 0.632508e-04_jprb &
1281  &, 0.462932e-04_jprb, 0.285490e-04_jprb, 0.289572e-04_jprb, 0.100000e-04_jprb &
1282  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1283  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1284  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1285  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1286  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1287  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1288  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1289  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1290  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1291  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1292  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1293  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1294  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1295  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-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 xcw( 26, :) = (/ &
1304  & 0.813677e+00_jprb, 0.770167e+00_jprb, 0.727911e+00_jprb, 0.686922e+00_jprb &
1305  &, 0.647211e+00_jprb, 0.608787e+00_jprb, 0.571659e+00_jprb &
1306  &, 0.535835e+00_jprb, 0.501321e+00_jprb, 0.468121e+00_jprb, 0.436238e+00_jprb &
1307  &, 0.405674e+00_jprb, 0.376429e+00_jprb, 0.348499e+00_jprb &
1308  &, 0.321883e+00_jprb, 0.296569e+00_jprb, 0.272552e+00_jprb, 0.249818e+00_jprb &
1309  &, 0.228353e+00_jprb, 0.208139e+00_jprb, 0.189157e+00_jprb &
1310  &, 0.171385e+00_jprb, 0.154795e+00_jprb, 0.139357e+00_jprb, 0.125038e+00_jprb &
1311  &, 0.111805e+00_jprb, 0.996204e-01_jprb, 0.884386e-01_jprb &
1312  &, 0.782190e-01_jprb, 0.689170e-01_jprb, 0.604820e-01_jprb, 0.528696e-01_jprb &
1313  &, 0.460248e-01_jprb, 0.399026e-01_jprb, 0.344466e-01_jprb &
1314  &, 0.296067e-01_jprb, 0.253396e-01_jprb, 0.215903e-01_jprb, 0.183165e-01_jprb &
1315  &, 0.154693e-01_jprb, 0.130035e-01_jprb, 0.108782e-01_jprb &
1316  &, 0.905789e-02_jprb, 0.751347e-02_jprb, 0.619972e-02_jprb, 0.508958e-02_jprb &
1317  &, 0.415222e-02_jprb, 0.337787e-02_jprb, 0.274213e-02_jprb &
1318  &, 0.220435e-02_jprb, 0.175963e-02_jprb, 0.140214e-02_jprb, 0.111092e-02_jprb &
1319  &, 0.877068e-03_jprb, 0.690518e-03_jprb, 0.539989e-03_jprb &
1320  &, 0.412927e-03_jprb, 0.327156e-03_jprb, 0.253366e-03_jprb, 0.192566e-03_jprb &
1321  &, 0.145803e-03_jprb, 0.967992e-04_jprb, 0.810010e-04_jprb &
1322  &, 0.644399e-04_jprb, 0.470979e-04_jprb, 0.289572e-04_jprb, 0.100000e-04_jprb &
1323  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1324  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1325  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1326  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1327  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1328  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1329  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1330  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1331  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1332  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1333  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1334  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1335  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1336  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-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 xcw( 27, :) = (/ &
1345  & 0.815145e+00_jprb, 0.771933e+00_jprb, 0.729952e+00_jprb, 0.689211e+00_jprb &
1346  &, 0.649723e+00_jprb, 0.611497e+00_jprb, 0.574542e+00_jprb &
1347  &, 0.538868e+00_jprb, 0.504480e+00_jprb, 0.471383e+00_jprb, 0.439581e+00_jprb &
1348  &, 0.409076e+00_jprb, 0.379871e+00_jprb, 0.351960e+00_jprb &
1349  &, 0.325342e+00_jprb, 0.300012e+00_jprb, 0.275958e+00_jprb, 0.253173e+00_jprb &
1350  &, 0.231642e+00_jprb, 0.211349e+00_jprb, 0.192277e+00_jprb &
1351  &, 0.174399e+00_jprb, 0.157694e+00_jprb, 0.142133e+00_jprb, 0.127688e+00_jprb &
1352  &, 0.114318e+00_jprb, 0.101993e+00_jprb, 0.906711e-01_jprb &
1353  &, 0.803070e-01_jprb, 0.708603e-01_jprb, 0.622848e-01_jprb, 0.545324e-01_jprb &
1354  &, 0.475481e-01_jprb, 0.412917e-01_jprb, 0.357121e-01_jprb &
1355  &, 0.307508e-01_jprb, 0.263695e-01_jprb, 0.225095e-01_jprb, 0.191286e-01_jprb &
1356  &, 0.161888e-01_jprb, 0.136358e-01_jprb, 0.114291e-01_jprb &
1357  &, 0.954517e-02_jprb, 0.793348e-02_jprb, 0.656040e-02_jprb, 0.539960e-02_jprb &
1358  &, 0.442104e-02_jprb, 0.360322e-02_jprb, 0.292171e-02_jprb &
1359  &, 0.236203e-02_jprb, 0.189422e-02_jprb, 0.151241e-02_jprb, 0.120972e-02_jprb &
1360  &, 0.949324e-03_jprb, 0.749693e-03_jprb, 0.585417e-03_jprb &
1361  &, 0.459419e-03_jprb, 0.358872e-03_jprb, 0.269590e-03_jprb, 0.209163e-03_jprb &
1362  &, 0.162779e-03_jprb, 0.114159e-03_jprb, 0.810010e-04_jprb &
1363  &, 0.644399e-04_jprb, 0.470979e-04_jprb, 0.289572e-04_jprb, 0.293715e-04_jprb &
1364  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1365  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1366  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1367  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1368  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1369  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1370  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1371  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1372  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1373  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1374  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1375  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1376  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1377  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-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 xcw( 28, :) = (/ &
1386  & 0.816566e+00_jprb, 0.773647e+00_jprb, 0.731931e+00_jprb, 0.691432e+00_jprb &
1387  &, 0.652161e+00_jprb, 0.614128e+00_jprb, 0.577344e+00_jprb &
1388  &, 0.541816e+00_jprb, 0.507551e+00_jprb, 0.474557e+00_jprb, 0.442835e+00_jprb &
1389  &, 0.412391e+00_jprb, 0.383224e+00_jprb, 0.355334e+00_jprb &
1390  &, 0.328719e+00_jprb, 0.303372e+00_jprb, 0.279287e+00_jprb, 0.256454e+00_jprb &
1391  &, 0.234860e+00_jprb, 0.214490e+00_jprb, 0.195331e+00_jprb &
1392  &, 0.177356e+00_jprb, 0.160543e+00_jprb, 0.144864e+00_jprb, 0.130292e+00_jprb &
1393  &, 0.116795e+00_jprb, 0.104337e+00_jprb, 0.928768e-01_jprb &
1394  &, 0.823715e-01_jprb, 0.727876e-01_jprb, 0.640713e-01_jprb, 0.561825e-01_jprb &
1395  &, 0.490671e-01_jprb, 0.426809e-01_jprb, 0.369731e-01_jprb &
1396  &, 0.318948e-01_jprb, 0.273900e-01_jprb, 0.234286e-01_jprb, 0.199507e-01_jprb &
1397  &, 0.169186e-01_jprb, 0.142786e-01_jprb, 0.120017e-01_jprb &
1398  &, 0.100325e-01_jprb, 0.835350e-02_jprb, 0.692108e-02_jprb, 0.570962e-02_jprb &
1399  &, 0.468985e-02_jprb, 0.382858e-02_jprb, 0.311411e-02_jprb &
1400  &, 0.251971e-02_jprb, 0.202881e-02_jprb, 0.163646e-02_jprb, 0.129441e-02_jprb &
1401  &, 0.103603e-02_jprb, 0.808869e-03_jprb, 0.645987e-03_jprb &
1402  &, 0.505910e-03_jprb, 0.390587e-03_jprb, 0.302039e-03_jprb, 0.225760e-03_jprb &
1403  &, 0.179754e-03_jprb, 0.131519e-03_jprb, 0.987513e-04_jprb &
1404  &, 0.644399e-04_jprb, 0.470979e-04_jprb, 0.289572e-04_jprb, 0.293715e-04_jprb &
1405  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1406  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1407  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1408  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1409  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1410  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1411  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1412  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1413  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1414  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1415  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1416  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1417  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1418  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1419  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1420  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1421  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1422  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1423  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1424  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1425  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
1426 
1427 IF (lhook) CALL dr_hook('SU_MCICA:PART4',1,zhook_handle)
1428 END SUBROUTINE part4
1429 
1430 #ifdef VPP5000
1431 !OCL SCALAR
1432 #endif
1433 !option! -Nv -NO
1434 #ifdef RS6K
1435 @process nooptimize
1436 #endif
1437 !pgi$r opt=0
1438 SUBROUTINE part5
1439 
1440 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1441 IF (lhook) CALL dr_hook('SU_MCICA:PART5',0,zhook_handle)
1442 
1443 xcw( 29, :) = (/ &
1444  & 0.817947e+00_jprb, 0.775311e+00_jprb, 0.733854e+00_jprb, 0.693591e+00_jprb &
1445  &, 0.654531e+00_jprb, 0.616687e+00_jprb, 0.580069e+00_jprb &
1446  &, 0.544685e+00_jprb, 0.510542e+00_jprb, 0.477648e+00_jprb, 0.446007e+00_jprb &
1447  &, 0.415622e+00_jprb, 0.386496e+00_jprb, 0.358628e+00_jprb &
1448  &, 0.332016e+00_jprb, 0.306657e+00_jprb, 0.282543e+00_jprb, 0.259664e+00_jprb &
1449  &, 0.238014e+00_jprb, 0.217574e+00_jprb, 0.198327e+00_jprb &
1450  &, 0.180257e+00_jprb, 0.163341e+00_jprb, 0.147550e+00_jprb, 0.132860e+00_jprb &
1451  &, 0.119236e+00_jprb, 0.106646e+00_jprb, 0.950520e-01_jprb &
1452  &, 0.844165e-01_jprb, 0.746949e-01_jprb, 0.658454e-01_jprb, 0.578201e-01_jprb &
1453  &, 0.505775e-01_jprb, 0.440613e-01_jprb, 0.382296e-01_jprb &
1454  &, 0.330296e-01_jprb, 0.284199e-01_jprb, 0.243575e-01_jprb, 0.207728e-01_jprb &
1455  &, 0.176484e-01_jprb, 0.149214e-01_jprb, 0.125635e-01_jprb &
1456  &, 0.105308e-01_jprb, 0.878486e-02_jprb, 0.729340e-02_jprb, 0.603157e-02_jprb &
1457  &, 0.497089e-02_jprb, 0.406646e-02_jprb, 0.331934e-02_jprb &
1458  &, 0.269053e-02_jprb, 0.217685e-02_jprb, 0.174673e-02_jprb, 0.139321e-02_jprb &
1459  &, 0.110829e-02_jprb, 0.882838e-03_jprb, 0.691415e-03_jprb &
1460  &, 0.536905e-03_jprb, 0.422303e-03_jprb, 0.334488e-03_jprb, 0.258954e-03_jprb &
1461  &, 0.196729e-03_jprb, 0.148879e-03_jprb, 0.116502e-03_jprb &
1462  &, 0.825865e-04_jprb, 0.656469e-04_jprb, 0.479145e-04_jprb, 0.293715e-04_jprb &
1463  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1464  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1465  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1466  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1467  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1468  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1469  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1470  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1471  &, 0.100000e-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 xcw( 30, :) = (/ &
1485  & 0.819288e+00_jprb, 0.776928e+00_jprb, 0.735724e+00_jprb, 0.695691e+00_jprb &
1486  &, 0.656838e+00_jprb, 0.619179e+00_jprb, 0.582723e+00_jprb &
1487  &, 0.547480e+00_jprb, 0.513458e+00_jprb, 0.480663e+00_jprb, 0.449101e+00_jprb &
1488  &, 0.418776e+00_jprb, 0.389692e+00_jprb, 0.361847e+00_jprb &
1489  &, 0.335240e+00_jprb, 0.309869e+00_jprb, 0.285729e+00_jprb, 0.262811e+00_jprb &
1490  &, 0.241104e+00_jprb, 0.220594e+00_jprb, 0.201268e+00_jprb &
1491  &, 0.183109e+00_jprb, 0.166092e+00_jprb, 0.150195e+00_jprb, 0.135390e+00_jprb &
1492  &, 0.121644e+00_jprb, 0.108930e+00_jprb, 0.972082e-01_jprb &
1493  &, 0.864380e-01_jprb, 0.765862e-01_jprb, 0.676031e-01_jprb, 0.594492e-01_jprb &
1494  &, 0.520750e-01_jprb, 0.454372e-01_jprb, 0.394860e-01_jprb &
1495  &, 0.341737e-01_jprb, 0.294499e-01_jprb, 0.252767e-01_jprb, 0.216049e-01_jprb &
1496  &, 0.183885e-01_jprb, 0.155748e-01_jprb, 0.131360e-01_jprb &
1497  &, 0.110292e-01_jprb, 0.922757e-02_jprb, 0.767734e-02_jprb, 0.636544e-02_jprb &
1498  &, 0.525193e-02_jprb, 0.430434e-02_jprb, 0.352457e-02_jprb &
1499  &, 0.286134e-02_jprb, 0.231144e-02_jprb, 0.187078e-02_jprb, 0.149201e-02_jprb &
1500  &, 0.119499e-02_jprb, 0.942013e-03_jprb, 0.751985e-03_jprb &
1501  &, 0.583396e-03_jprb, 0.454019e-03_jprb, 0.350712e-03_jprb, 0.275550e-03_jprb &
1502  &, 0.213705e-03_jprb, 0.166239e-03_jprb, 0.116502e-03_jprb &
1503  &, 0.825865e-04_jprb, 0.656469e-04_jprb, 0.479145e-04_jprb, 0.293715e-04_jprb &
1504  &, 0.297917e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1505  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1506  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1507  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1508  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1509  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1510  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1511  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1512  &, 0.100000e-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 xcw( 31, :) = (/ &
1526  & 0.820593e+00_jprb, 0.778502e+00_jprb, 0.737544e+00_jprb, 0.697735e+00_jprb &
1527  &, 0.659085e+00_jprb, 0.621606e+00_jprb, 0.585310e+00_jprb &
1528  &, 0.550206e+00_jprb, 0.516301e+00_jprb, 0.483605e+00_jprb, 0.452123e+00_jprb &
1529  &, 0.421858e+00_jprb, 0.392815e+00_jprb, 0.364994e+00_jprb &
1530  &, 0.338395e+00_jprb, 0.313017e+00_jprb, 0.288851e+00_jprb, 0.265895e+00_jprb &
1531  &, 0.244135e+00_jprb, 0.223560e+00_jprb, 0.204160e+00_jprb &
1532  &, 0.185914e+00_jprb, 0.168802e+00_jprb, 0.152798e+00_jprb, 0.137880e+00_jprb &
1533  &, 0.124019e+00_jprb, 0.111184e+00_jprb, 0.993376e-01_jprb &
1534  &, 0.884399e-01_jprb, 0.784614e-01_jprb, 0.693485e-01_jprb, 0.610699e-01_jprb &
1535  &, 0.535724e-01_jprb, 0.468087e-01_jprb, 0.407425e-01_jprb &
1536  &, 0.353177e-01_jprb, 0.304894e-01_jprb, 0.262056e-01_jprb, 0.224370e-01_jprb &
1537  &, 0.191286e-01_jprb, 0.162387e-01_jprb, 0.137194e-01_jprb &
1538  &, 0.115386e-01_jprb, 0.967029e-02_jprb, 0.806129e-02_jprb, 0.669931e-02_jprb &
1539  &, 0.553296e-02_jprb, 0.455474e-02_jprb, 0.372980e-02_jprb &
1540  &, 0.303216e-02_jprb, 0.245949e-02_jprb, 0.199483e-02_jprb, 0.160492e-02_jprb &
1541  &, 0.128170e-02_jprb, 0.101598e-02_jprb, 0.812555e-03_jprb &
1542  &, 0.629888e-03_jprb, 0.501592e-03_jprb, 0.383161e-03_jprb, 0.292147e-03_jprb &
1543  &, 0.230680e-03_jprb, 0.183598e-03_jprb, 0.134252e-03_jprb &
1544  &, 0.100733e-03_jprb, 0.656469e-04_jprb, 0.479145e-04_jprb, 0.293715e-04_jprb &
1545  &, 0.297917e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1546  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1547  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1548  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1549  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1550  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1551  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1552  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1553  &, 0.100000e-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 xcw( 32, :) = (/ &
1567  & 0.821863e+00_jprb, 0.780035e+00_jprb, 0.739318e+00_jprb, 0.699727e+00_jprb &
1568  &, 0.661275e+00_jprb, 0.623974e+00_jprb, 0.587834e+00_jprb &
1569  &, 0.552866e+00_jprb, 0.519078e+00_jprb, 0.486479e+00_jprb, 0.455075e+00_jprb &
1570  &, 0.424871e+00_jprb, 0.395870e+00_jprb, 0.368075e+00_jprb &
1571  &, 0.341486e+00_jprb, 0.316099e+00_jprb, 0.291913e+00_jprb, 0.268919e+00_jprb &
1572  &, 0.247111e+00_jprb, 0.226476e+00_jprb, 0.207004e+00_jprb &
1573  &, 0.188672e+00_jprb, 0.171467e+00_jprb, 0.155366e+00_jprb, 0.140342e+00_jprb &
1574  &, 0.126365e+00_jprb, 0.113411e+00_jprb, 0.101444e+00_jprb &
1575  &, 0.904262e-01_jprb, 0.803166e-01_jprb, 0.710815e-01_jprb, 0.626779e-01_jprb &
1576  &, 0.550569e-01_jprb, 0.481757e-01_jprb, 0.419898e-01_jprb &
1577  &, 0.364525e-01_jprb, 0.315194e-01_jprb, 0.271345e-01_jprb, 0.232691e-01_jprb &
1578  &, 0.198687e-01_jprb, 0.168920e-01_jprb, 0.143028e-01_jprb &
1579  &, 0.120591e-01_jprb, 0.101244e-01_jprb, 0.845688e-02_jprb, 0.703318e-02_jprb &
1580  &, 0.582622e-02_jprb, 0.480514e-02_jprb, 0.393503e-02_jprb &
1581  &, 0.321612e-02_jprb, 0.262099e-02_jprb, 0.211889e-02_jprb, 0.170372e-02_jprb &
1582  &, 0.136841e-02_jprb, 0.108995e-02_jprb, 0.873125e-03_jprb &
1583  &, 0.691877e-03_jprb, 0.533308e-03_jprb, 0.415609e-03_jprb, 0.325341e-03_jprb &
1584  &, 0.247656e-03_jprb, 0.200958e-03_jprb, 0.152002e-03_jprb &
1585  &, 0.118880e-03_jprb, 0.841958e-04_jprb, 0.668717e-04_jprb, 0.487430e-04_jprb &
1586  &, 0.297917e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1587  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1588  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1589  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1590  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1591  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1592  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1593  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1594  &, 0.100000e-04_jprb, 0.100000e-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 xcw( 33, :) = (/ &
1608  & 0.823102e+00_jprb, 0.781529e+00_jprb, 0.741047e+00_jprb, 0.701671e+00_jprb &
1609  &, 0.663413e+00_jprb, 0.626280e+00_jprb, 0.590299e+00_jprb &
1610  &, 0.555465e+00_jprb, 0.521792e+00_jprb, 0.489290e+00_jprb, 0.457963e+00_jprb &
1611  &, 0.427819e+00_jprb, 0.398861e+00_jprb, 0.371092e+00_jprb &
1612  &, 0.344513e+00_jprb, 0.319122e+00_jprb, 0.294915e+00_jprb, 0.271889e+00_jprb &
1613  &, 0.250035e+00_jprb, 0.229340e+00_jprb, 0.209799e+00_jprb &
1614  &, 0.191388e+00_jprb, 0.174096e+00_jprb, 0.157896e+00_jprb, 0.142768e+00_jprb &
1615  &, 0.128686e+00_jprb, 0.115613e+00_jprb, 0.103528e+00_jprb &
1616  &, 0.923891e-01_jprb, 0.821598e-01_jprb, 0.728063e-01_jprb, 0.642776e-01_jprb &
1617  &, 0.565371e-01_jprb, 0.495384e-01_jprb, 0.432417e-01_jprb &
1618  &, 0.375872e-01_jprb, 0.325493e-01_jprb, 0.280732e-01_jprb, 0.241113e-01_jprb &
1619  &, 0.206190e-01_jprb, 0.175665e-01_jprb, 0.148970e-01_jprb &
1620  &, 0.125796e-01_jprb, 0.105784e-01_jprb, 0.885246e-02_jprb, 0.737897e-02_jprb &
1621  &, 0.611947e-02_jprb, 0.505554e-02_jprb, 0.415309e-02_jprb &
1622  &, 0.340008e-02_jprb, 0.276904e-02_jprb, 0.225672e-02_jprb, 0.181664e-02_jprb &
1623  &, 0.145511e-02_jprb, 0.116392e-02_jprb, 0.933696e-03_jprb &
1624  &, 0.738368e-03_jprb, 0.580881e-03_jprb, 0.448058e-03_jprb, 0.358535e-03_jprb &
1625  &, 0.281606e-03_jprb, 0.218318e-03_jprb, 0.152002e-03_jprb &
1626  &, 0.118880e-03_jprb, 0.841958e-04_jprb, 0.668717e-04_jprb, 0.487430e-04_jprb &
1627  &, 0.297917e-04_jprb, 0.302179e-04_jprb, 0.100000e-04_jprb &
1628  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1629  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1630  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1631  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1632  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1633  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1634  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1635  &, 0.100000e-04_jprb, 0.100000e-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 xcw( 34, :) = (/ &
1649  & 0.824310e+00_jprb, 0.782987e+00_jprb, 0.742736e+00_jprb, 0.703569e+00_jprb &
1650  &, 0.665501e+00_jprb, 0.628543e+00_jprb, 0.592708e+00_jprb &
1651  &, 0.558006e+00_jprb, 0.524447e+00_jprb, 0.492039e+00_jprb, 0.460791e+00_jprb &
1652  &, 0.430707e+00_jprb, 0.401793e+00_jprb, 0.374051e+00_jprb &
1653  &, 0.347482e+00_jprb, 0.322088e+00_jprb, 0.297864e+00_jprb, 0.274807e+00_jprb &
1654  &, 0.252909e+00_jprb, 0.232161e+00_jprb, 0.212552e+00_jprb &
1655  &, 0.194063e+00_jprb, 0.176687e+00_jprb, 0.160395e+00_jprb, 0.145166e+00_jprb &
1656  &, 0.130973e+00_jprb, 0.117796e+00_jprb, 0.105592e+00_jprb &
1657  &, 0.943363e-01_jprb, 0.839910e-01_jprb, 0.745148e-01_jprb, 0.658688e-01_jprb &
1658  &, 0.580129e-01_jprb, 0.509010e-01_jprb, 0.444891e-01_jprb &
1659  &, 0.387313e-01_jprb, 0.335888e-01_jprb, 0.290119e-01_jprb, 0.249534e-01_jprb &
1660  &, 0.213796e-01_jprb, 0.182304e-01_jprb, 0.154912e-01_jprb &
1661  &, 0.131001e-01_jprb, 0.110325e-01_jprb, 0.925968e-02_jprb, 0.772476e-02_jprb &
1662  &, 0.642494e-02_jprb, 0.531846e-02_jprb, 0.438398e-02_jprb &
1663  &, 0.359717e-02_jprb, 0.293054e-02_jprb, 0.238077e-02_jprb, 0.192955e-02_jprb &
1664  &, 0.155627e-02_jprb, 0.125268e-02_jprb, 0.994266e-03_jprb &
1665  &, 0.784860e-03_jprb, 0.628454e-03_jprb, 0.496731e-03_jprb, 0.375132e-03_jprb &
1666  &, 0.298582e-03_jprb, 0.235678e-03_jprb, 0.169752e-03_jprb &
1667  &, 0.137026e-03_jprb, 0.102745e-03_jprb, 0.668717e-04_jprb, 0.487430e-04_jprb &
1668  &, 0.297917e-04_jprb, 0.302179e-04_jprb, 0.100000e-04_jprb &
1669  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1670  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1671  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1672  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1673  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1674  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1675  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1676  &, 0.100000e-04_jprb, 0.100000e-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 xcw( 35, :) = (/ &
1690  & 0.825489e+00_jprb, 0.784411e+00_jprb, 0.744385e+00_jprb, 0.705424e+00_jprb &
1691  &, 0.667541e+00_jprb, 0.630751e+00_jprb, 0.595064e+00_jprb &
1692  &, 0.560492e+00_jprb, 0.527045e+00_jprb, 0.494732e+00_jprb, 0.463560e+00_jprb &
1693  &, 0.433536e+00_jprb, 0.404666e+00_jprb, 0.376952e+00_jprb &
1694  &, 0.350396e+00_jprb, 0.325000e+00_jprb, 0.300761e+00_jprb, 0.277675e+00_jprb &
1695  &, 0.255736e+00_jprb, 0.234933e+00_jprb, 0.215259e+00_jprb &
1696  &, 0.196702e+00_jprb, 0.179241e+00_jprb, 0.162859e+00_jprb, 0.147532e+00_jprb &
1697  &, 0.133240e+00_jprb, 0.119953e+00_jprb, 0.107638e+00_jprb &
1698  &, 0.962678e-01_jprb, 0.858061e-01_jprb, 0.762149e-01_jprb, 0.674516e-01_jprb &
1699  &, 0.594801e-01_jprb, 0.522548e-01_jprb, 0.457320e-01_jprb &
1700  &, 0.398661e-01_jprb, 0.346188e-01_jprb, 0.299506e-01_jprb, 0.257956e-01_jprb &
1701  &, 0.221300e-01_jprb, 0.189153e-01_jprb, 0.160962e-01_jprb &
1702  &, 0.136317e-01_jprb, 0.114979e-01_jprb, 0.966690e-02_jprb, 0.808248e-02_jprb &
1703  &, 0.673042e-02_jprb, 0.558138e-02_jprb, 0.461486e-02_jprb &
1704  &, 0.379427e-02_jprb, 0.310551e-02_jprb, 0.251861e-02_jprb, 0.204247e-02_jprb &
1705  &, 0.165743e-02_jprb, 0.132665e-02_jprb, 0.105484e-02_jprb &
1706  &, 0.846849e-03_jprb, 0.676028e-03_jprb, 0.529180e-03_jprb, 0.408326e-03_jprb &
1707  &, 0.315557e-03_jprb, 0.253038e-03_jprb, 0.187503e-03_jprb &
1708  &, 0.137026e-03_jprb, 0.102745e-03_jprb, 0.858290e-04_jprb, 0.681145e-04_jprb &
1709  &, 0.495834e-04_jprb, 0.302179e-04_jprb, 0.100000e-04_jprb &
1710  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1711  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1712  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1713  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1714  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1715  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1716  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1717  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1718  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1719  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1720  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1721  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1722  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1723  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1724  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1725  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1726  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1727  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1728  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1729  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
1730 
1731 IF (lhook) CALL dr_hook('SU_MCICA:PART5',1,zhook_handle)
1732 END SUBROUTINE part5
1733 
1734 #ifdef VPP5000
1735 !OCL SCALAR
1736 #endif
1737 !option! -Nv -NO
1738 #ifdef RS6K
1739 @process nooptimize
1740 #endif
1741 !pgi$r opt=0
1742 SUBROUTINE part6
1743 
1744 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1745 IF (lhook) CALL dr_hook('SU_MCICA:PART6',0,zhook_handle)
1746 
1747 xcw( 36, :) = (/ &
1748  & 0.826642e+00_jprb, 0.785803e+00_jprb, 0.745996e+00_jprb, 0.707237e+00_jprb &
1749  &, 0.669537e+00_jprb, 0.632911e+00_jprb, 0.597370e+00_jprb &
1750  &, 0.562926e+00_jprb, 0.529589e+00_jprb, 0.497370e+00_jprb, 0.466275e+00_jprb &
1751  &, 0.436310e+00_jprb, 0.407484e+00_jprb, 0.379800e+00_jprb &
1752  &, 0.353259e+00_jprb, 0.327862e+00_jprb, 0.303609e+00_jprb, 0.280496e+00_jprb &
1753  &, 0.258517e+00_jprb, 0.237665e+00_jprb, 0.217931e+00_jprb &
1754  &, 0.199302e+00_jprb, 0.181760e+00_jprb, 0.165291e+00_jprb, 0.149873e+00_jprb &
1755  &, 0.135480e+00_jprb, 0.122088e+00_jprb, 0.109664e+00_jprb &
1756  &, 0.981838e-01_jprb, 0.876092e-01_jprb, 0.779028e-01_jprb, 0.690260e-01_jprb &
1757  &, 0.609387e-01_jprb, 0.536042e-01_jprb, 0.469748e-01_jprb &
1758  &, 0.410101e-01_jprb, 0.356583e-01_jprb, 0.308893e-01_jprb, 0.266477e-01_jprb &
1759  &, 0.229009e-01_jprb, 0.195898e-01_jprb, 0.167011e-01_jprb &
1760  &, 0.141743e-01_jprb, 0.119747e-01_jprb, 0.100741e-01_jprb, 0.844020e-02_jprb &
1761  &, 0.704811e-02_jprb, 0.585681e-02_jprb, 0.484574e-02_jprb &
1762  &, 0.399137e-02_jprb, 0.326701e-02_jprb, 0.267023e-02_jprb, 0.216950e-02_jprb &
1763  &, 0.175859e-02_jprb, 0.141542e-02_jprb, 0.113055e-02_jprb &
1764  &, 0.908837e-03_jprb, 0.707744e-03_jprb, 0.561629e-03_jprb, 0.441520e-03_jprb &
1765  &, 0.349508e-03_jprb, 0.270398e-03_jprb, 0.205253e-03_jprb &
1766  &, 0.155173e-03_jprb, 0.121294e-03_jprb, 0.858290e-04_jprb, 0.681145e-04_jprb &
1767  &, 0.495834e-04_jprb, 0.302179e-04_jprb, 0.306500e-04_jprb &
1768  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1769  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-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 xcw( 37, :) = (/ &
1789  & 0.827767e+00_jprb, 0.787164e+00_jprb, 0.747573e+00_jprb, 0.709011e+00_jprb &
1790  &, 0.671491e+00_jprb, 0.635026e+00_jprb, 0.599629e+00_jprb &
1791  &, 0.565311e+00_jprb, 0.532084e+00_jprb, 0.499956e+00_jprb, 0.468937e+00_jprb &
1792  &, 0.439034e+00_jprb, 0.410251e+00_jprb, 0.382597e+00_jprb &
1793  &, 0.356070e+00_jprb, 0.330675e+00_jprb, 0.306410e+00_jprb, 0.283271e+00_jprb &
1794  &, 0.261256e+00_jprb, 0.240358e+00_jprb, 0.220564e+00_jprb &
1795  &, 0.201868e+00_jprb, 0.184250e+00_jprb, 0.167696e+00_jprb, 0.152186e+00_jprb &
1796  &, 0.137695e+00_jprb, 0.124200e+00_jprb, 0.111675e+00_jprb &
1797  &, 0.100084e+00_jprb, 0.893963e-01_jprb, 0.795784e-01_jprb, 0.705919e-01_jprb &
1798  &, 0.623973e-01_jprb, 0.549535e-01_jprb, 0.482176e-01_jprb &
1799  &, 0.421449e-01_jprb, 0.366978e-01_jprb, 0.318280e-01_jprb, 0.274999e-01_jprb &
1800  &, 0.236615e-01_jprb, 0.202747e-01_jprb, 0.173061e-01_jprb &
1801  &, 0.147170e-01_jprb, 0.124515e-01_jprb, 0.104930e-01_jprb, 0.880984e-02_jprb &
1802  &, 0.736580e-02_jprb, 0.613225e-02_jprb, 0.507663e-02_jprb &
1803  &, 0.418847e-02_jprb, 0.344197e-02_jprb, 0.280806e-02_jprb, 0.229653e-02_jprb &
1804  &, 0.185975e-02_jprb, 0.150418e-02_jprb, 0.120626e-02_jprb &
1805  &, 0.955329e-03_jprb, 0.771175e-03_jprb, 0.610302e-03_jprb, 0.474713e-03_jprb &
1806  &, 0.366483e-03_jprb, 0.287757e-03_jprb, 0.223003e-03_jprb &
1807  &, 0.173320e-03_jprb, 0.139843e-03_jprb, 0.104786e-03_jprb, 0.681145e-04_jprb &
1808  &, 0.495834e-04_jprb, 0.302179e-04_jprb, 0.306500e-04_jprb &
1809  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1810  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-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 xcw( 38, :) = (/ &
1830  & 0.828871e+00_jprb, 0.788496e+00_jprb, 0.749117e+00_jprb, 0.710749e+00_jprb &
1831  &, 0.673404e+00_jprb, 0.637098e+00_jprb, 0.601842e+00_jprb &
1832  &, 0.567649e+00_jprb, 0.534530e+00_jprb, 0.502494e+00_jprb, 0.471550e+00_jprb &
1833  &, 0.441706e+00_jprb, 0.412970e+00_jprb, 0.385344e+00_jprb &
1834  &, 0.358834e+00_jprb, 0.333442e+00_jprb, 0.309165e+00_jprb, 0.286005e+00_jprb &
1835  &, 0.263955e+00_jprb, 0.243010e+00_jprb, 0.223161e+00_jprb &
1836  &, 0.204398e+00_jprb, 0.186709e+00_jprb, 0.170070e+00_jprb, 0.154473e+00_jprb &
1837  &, 0.139889e+00_jprb, 0.126297e+00_jprb, 0.113667e+00_jprb &
1838  &, 0.101969e+00_jprb, 0.911754e-01_jprb, 0.812498e-01_jprb, 0.721537e-01_jprb &
1839  &, 0.638473e-01_jprb, 0.562940e-01_jprb, 0.494559e-01_jprb &
1840  &, 0.432796e-01_jprb, 0.377373e-01_jprb, 0.327765e-01_jprb, 0.283521e-01_jprb &
1841  &, 0.244325e-01_jprb, 0.209703e-01_jprb, 0.179219e-01_jprb &
1842  &, 0.152596e-01_jprb, 0.129396e-01_jprb, 0.109235e-01_jprb, 0.917948e-02_jprb &
1843  &, 0.768350e-02_jprb, 0.640769e-02_jprb, 0.532034e-02_jprb &
1844  &, 0.439870e-02_jprb, 0.361694e-02_jprb, 0.295968e-02_jprb, 0.242356e-02_jprb &
1845  &, 0.196090e-02_jprb, 0.159294e-02_jprb, 0.128197e-02_jprb &
1846  &, 0.101732e-02_jprb, 0.818748e-03_jprb, 0.642751e-03_jprb, 0.507907e-03_jprb &
1847  &, 0.400434e-03_jprb, 0.305117e-03_jprb, 0.240753e-03_jprb &
1848  &, 0.191466e-03_jprb, 0.139843e-03_jprb, 0.104786e-03_jprb, 0.874860e-04_jprb &
1849  &, 0.495834e-04_jprb, 0.504358e-04_jprb, 0.306500e-04_jprb &
1850  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1851  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1852  &, 0.100000e-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 xcw( 39, :) = (/ &
1871  & 0.829949e+00_jprb, 0.789801e+00_jprb, 0.750629e+00_jprb, 0.712451e+00_jprb &
1872  &, 0.675280e+00_jprb, 0.639129e+00_jprb, 0.604013e+00_jprb &
1873  &, 0.569942e+00_jprb, 0.536929e+00_jprb, 0.504984e+00_jprb, 0.474116e+00_jprb &
1874  &, 0.444331e+00_jprb, 0.415640e+00_jprb, 0.388046e+00_jprb &
1875  &, 0.361553e+00_jprb, 0.336164e+00_jprb, 0.311879e+00_jprb, 0.288697e+00_jprb &
1876  &, 0.266615e+00_jprb, 0.245624e+00_jprb, 0.225723e+00_jprb &
1877  &, 0.206897e+00_jprb, 0.189137e+00_jprb, 0.172420e+00_jprb, 0.156736e+00_jprb &
1878  &, 0.142060e+00_jprb, 0.128372e+00_jprb, 0.115640e+00_jprb &
1879  &, 0.103842e+00_jprb, 0.929424e-01_jprb, 0.829090e-01_jprb, 0.737028e-01_jprb &
1880  &, 0.652929e-01_jprb, 0.576346e-01_jprb, 0.506942e-01_jprb &
1881  &, 0.444144e-01_jprb, 0.387768e-01_jprb, 0.337250e-01_jprb, 0.292143e-01_jprb &
1882  &, 0.252034e-01_jprb, 0.216658e-01_jprb, 0.185485e-01_jprb &
1883  &, 0.158134e-01_jprb, 0.134277e-01_jprb, 0.113539e-01_jprb, 0.956105e-02_jprb &
1884  &, 0.801341e-02_jprb, 0.669565e-02_jprb, 0.556405e-02_jprb &
1885  &, 0.460894e-02_jprb, 0.379190e-02_jprb, 0.311130e-02_jprb, 0.255059e-02_jprb &
1886  &, 0.207651e-02_jprb, 0.168171e-02_jprb, 0.135769e-02_jprb &
1887  &, 0.107931e-02_jprb, 0.866322e-03_jprb, 0.691424e-03_jprb, 0.541101e-03_jprb &
1888  &, 0.434385e-03_jprb, 0.339837e-03_jprb, 0.258504e-03_jprb &
1889  &, 0.209613e-03_jprb, 0.158392e-03_jprb, 0.123743e-03_jprb, 0.874860e-04_jprb &
1890  &, 0.693751e-04_jprb, 0.504358e-04_jprb, 0.306500e-04_jprb &
1891  &, 0.310881e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1892  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1893  &, 0.100000e-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 xcw( 40, :) = (/ &
1912  & 0.831007e+00_jprb, 0.791079e+00_jprb, 0.752111e+00_jprb, 0.714120e+00_jprb &
1913  &, 0.677119e+00_jprb, 0.641122e+00_jprb, 0.606143e+00_jprb &
1914  &, 0.572193e+00_jprb, 0.539286e+00_jprb, 0.507430e+00_jprb, 0.476636e+00_jprb &
1915  &, 0.446913e+00_jprb, 0.418266e+00_jprb, 0.390703e+00_jprb &
1916  &, 0.364228e+00_jprb, 0.338844e+00_jprb, 0.314552e+00_jprb, 0.291350e+00_jprb &
1917  &, 0.269237e+00_jprb, 0.248207e+00_jprb, 0.228252e+00_jprb &
1918  &, 0.209367e+00_jprb, 0.191535e+00_jprb, 0.174745e+00_jprb, 0.158978e+00_jprb &
1919  &, 0.144213e+00_jprb, 0.130429e+00_jprb, 0.117602e+00_jprb &
1920  &, 0.105699e+00_jprb, 0.946975e-01_jprb, 0.845599e-01_jprb, 0.752477e-01_jprb &
1921  &, 0.667343e-01_jprb, 0.589751e-01_jprb, 0.519280e-01_jprb &
1922  &, 0.455584e-01_jprb, 0.398163e-01_jprb, 0.346735e-01_jprb, 0.300764e-01_jprb &
1923  &, 0.259846e-01_jprb, 0.223613e-01_jprb, 0.191751e-01_jprb &
1924  &, 0.163671e-01_jprb, 0.139158e-01_jprb, 0.117844e-01_jprb, 0.994261e-02_jprb &
1925  &, 0.834332e-02_jprb, 0.698361e-02_jprb, 0.582059e-02_jprb &
1926  &, 0.481918e-02_jprb, 0.398032e-02_jprb, 0.327670e-02_jprb, 0.267762e-02_jprb &
1927  &, 0.219212e-02_jprb, 0.177047e-02_jprb, 0.143340e-02_jprb &
1928  &, 0.115679e-02_jprb, 0.929753e-03_jprb, 0.740097e-03_jprb, 0.590892e-03_jprb &
1929  &, 0.451360e-03_jprb, 0.357197e-03_jprb, 0.276254e-03_jprb &
1930  &, 0.209613e-03_jprb, 0.158392e-03_jprb, 0.123743e-03_jprb, 0.874860e-04_jprb &
1931  &, 0.693751e-04_jprb, 0.504358e-04_jprb, 0.306500e-04_jprb &
1932  &, 0.310881e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1933  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1934  &, 0.100000e-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 xcw( 41, :) = (/ &
1953  & 0.832042e+00_jprb, 0.792332e+00_jprb, 0.753564e+00_jprb, 0.715757e+00_jprb &
1954  &, 0.678923e+00_jprb, 0.643078e+00_jprb, 0.608234e+00_jprb &
1955  &, 0.574404e+00_jprb, 0.541601e+00_jprb, 0.509834e+00_jprb, 0.479115e+00_jprb &
1956  &, 0.449451e+00_jprb, 0.420849e+00_jprb, 0.393318e+00_jprb &
1957  &, 0.366863e+00_jprb, 0.341484e+00_jprb, 0.317185e+00_jprb, 0.293966e+00_jprb &
1958  &, 0.271822e+00_jprb, 0.250754e+00_jprb, 0.230752e+00_jprb &
1959  &, 0.211804e+00_jprb, 0.193909e+00_jprb, 0.177042e+00_jprb, 0.161194e+00_jprb &
1960  &, 0.146345e+00_jprb, 0.132466e+00_jprb, 0.119544e+00_jprb &
1961  &, 0.107544e+00_jprb, 0.964405e-01_jprb, 0.861985e-01_jprb, 0.767884e-01_jprb &
1962  &, 0.681713e-01_jprb, 0.603067e-01_jprb, 0.531618e-01_jprb &
1963  &, 0.466932e-01_jprb, 0.408558e-01_jprb, 0.356220e-01_jprb, 0.309386e-01_jprb &
1964  &, 0.267657e-01_jprb, 0.230673e-01_jprb, 0.198017e-01_jprb &
1965  &, 0.169319e-01_jprb, 0.144153e-01_jprb, 0.122266e-01_jprb, 0.103242e-01_jprb &
1966  &, 0.868545e-02_jprb, 0.727157e-02_jprb, 0.607713e-02_jprb &
1967  &, 0.504256e-02_jprb, 0.416874e-02_jprb, 0.344211e-02_jprb, 0.281876e-02_jprb &
1968  &, 0.230773e-02_jprb, 0.187403e-02_jprb, 0.150911e-02_jprb &
1969  &, 0.121878e-02_jprb, 0.977326e-03_jprb, 0.788770e-03_jprb, 0.624086e-03_jprb &
1970  &, 0.485311e-03_jprb, 0.391917e-03_jprb, 0.294004e-03_jprb &
1971  &, 0.227760e-03_jprb, 0.176941e-03_jprb, 0.142701e-03_jprb, 0.106858e-03_jprb &
1972  &, 0.693751e-04_jprb, 0.504358e-04_jprb, 0.513000e-04_jprb &
1973  &, 0.310881e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1974  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
1975  &, 0.100000e-04_jprb, 0.100000e-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 xcw( 42, :) = (/ &
1994  & 0.833059e+00_jprb, 0.793561e+00_jprb, 0.754990e+00_jprb, 0.717364e+00_jprb &
1995  &, 0.680694e+00_jprb, 0.644998e+00_jprb, 0.610288e+00_jprb &
1996  &, 0.576576e+00_jprb, 0.543875e+00_jprb, 0.512197e+00_jprb, 0.481552e+00_jprb &
1997  &, 0.451947e+00_jprb, 0.423392e+00_jprb, 0.395894e+00_jprb &
1998  &, 0.369458e+00_jprb, 0.344086e+00_jprb, 0.319781e+00_jprb, 0.296545e+00_jprb &
1999  &, 0.274375e+00_jprb, 0.253267e+00_jprb, 0.233216e+00_jprb &
2000  &, 0.214218e+00_jprb, 0.196256e+00_jprb, 0.179319e+00_jprb, 0.163390e+00_jprb &
2001  &, 0.148455e+00_jprb, 0.134489e+00_jprb, 0.121475e+00_jprb &
2002  &, 0.109378e+00_jprb, 0.981755e-01_jprb, 0.878330e-01_jprb, 0.783207e-01_jprb &
2003  &, 0.696040e-01_jprb, 0.616384e-01_jprb, 0.543955e-01_jprb &
2004  &, 0.478280e-01_jprb, 0.419049e-01_jprb, 0.365704e-01_jprb, 0.318008e-01_jprb &
2005  &, 0.275469e-01_jprb, 0.237734e-01_jprb, 0.204391e-01_jprb &
2006  &, 0.174967e-01_jprb, 0.149148e-01_jprb, 0.126687e-01_jprb, 0.107177e-01_jprb &
2007  &, 0.902758e-02_jprb, 0.757205e-02_jprb, 0.633367e-02_jprb &
2008  &, 0.526593e-02_jprb, 0.437062e-02_jprb, 0.360751e-02_jprb, 0.295990e-02_jprb &
2009  &, 0.242334e-02_jprb, 0.197758e-02_jprb, 0.159997e-02_jprb &
2010  &, 0.129627e-02_jprb, 0.104076e-02_jprb, 0.837443e-03_jprb, 0.657279e-03_jprb &
2011  &, 0.519262e-03_jprb, 0.409276e-03_jprb, 0.329505e-03_jprb &
2012  &, 0.245906e-03_jprb, 0.195490e-03_jprb, 0.142701e-03_jprb, 0.106858e-03_jprb &
2013  &, 0.891668e-04_jprb, 0.706537e-04_jprb, 0.513000e-04_jprb &
2014  &, 0.310881e-04_jprb, 0.315322e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2015  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2016  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2017  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2018  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2019  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2020  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2021  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2022  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2023  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2024  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2025  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2026  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2027  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2028  &, 0.100000e-04_jprb, 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 &
2030  &, 0.100000e-04_jprb, 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 &
2032  &, 0.100000e-04_jprb, 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/)
2034 
2035 IF (lhook) CALL dr_hook('SU_MCICA:PART6',1,zhook_handle)
2036 END SUBROUTINE part6
2037 
2038 #ifdef VPP5000
2039 !OCL SCALAR
2040 #endif
2041 !option! -Nv -NO
2042 #ifdef RS6K
2043 @process nooptimize
2044 #endif
2045 !pgi$r opt=0
2046 SUBROUTINE part7
2047 
2048 REAL(KIND=JPRB) :: ZHOOK_HANDLE
2049 IF (lhook) CALL dr_hook('SU_MCICA:PART7',0,zhook_handle)
2050 
2051 xcw( 43, :) = (/ &
2052  & 0.834056e+00_jprb, 0.794767e+00_jprb, 0.756390e+00_jprb, 0.718941e+00_jprb &
2053  &, 0.682434e+00_jprb, 0.646884e+00_jprb, 0.612306e+00_jprb &
2054  &, 0.578711e+00_jprb, 0.546112e+00_jprb, 0.514522e+00_jprb, 0.483950e+00_jprb &
2055  &, 0.454404e+00_jprb, 0.425895e+00_jprb, 0.398430e+00_jprb &
2056  &, 0.372013e+00_jprb, 0.346650e+00_jprb, 0.322342e+00_jprb, 0.299091e+00_jprb &
2057  &, 0.276895e+00_jprb, 0.255751e+00_jprb, 0.235655e+00_jprb &
2058  &, 0.216602e+00_jprb, 0.198576e+00_jprb, 0.181568e+00_jprb, 0.165568e+00_jprb &
2059  &, 0.150550e+00_jprb, 0.136497e+00_jprb, 0.123391e+00_jprb &
2060  &, 0.111200e+00_jprb, 0.998984e-01_jprb, 0.894592e-01_jprb, 0.798488e-01_jprb &
2061  &, 0.710281e-01_jprb, 0.629701e-01_jprb, 0.556293e-01_jprb &
2062  &, 0.489627e-01_jprb, 0.429444e-01_jprb, 0.375287e-01_jprb, 0.326731e-01_jprb &
2063  &, 0.283384e-01_jprb, 0.244794e-01_jprb, 0.210765e-01_jprb &
2064  &, 0.180615e-01_jprb, 0.154256e-01_jprb, 0.131224e-01_jprb, 0.111112e-01_jprb &
2065  &, 0.938193e-02_jprb, 0.788505e-02_jprb, 0.659020e-02_jprb &
2066  &, 0.548931e-02_jprb, 0.455905e-02_jprb, 0.377291e-02_jprb, 0.310105e-02_jprb &
2067  &, 0.253895e-02_jprb, 0.208114e-02_jprb, 0.169082e-02_jprb &
2068  &, 0.135826e-02_jprb, 0.110419e-02_jprb, 0.886116e-03_jprb, 0.707070e-03_jprb &
2069  &, 0.553213e-03_jprb, 0.443996e-03_jprb, 0.347255e-03_jprb &
2070  &, 0.264053e-03_jprb, 0.214039e-03_jprb, 0.161658e-03_jprb, 0.126229e-03_jprb &
2071  &, 0.891668e-04_jprb, 0.706537e-04_jprb, 0.513000e-04_jprb &
2072  &, 0.310881e-04_jprb, 0.315322e-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  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2089  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2090  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2091  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2092 xcw( 44, :) = (/ &
2093  & 0.835035e+00_jprb, 0.795952e+00_jprb, 0.757765e+00_jprb, 0.720491e+00_jprb &
2094  &, 0.684143e+00_jprb, 0.648739e+00_jprb, 0.614290e+00_jprb &
2095  &, 0.580811e+00_jprb, 0.548313e+00_jprb, 0.516809e+00_jprb, 0.486310e+00_jprb &
2096  &, 0.456824e+00_jprb, 0.428361e+00_jprb, 0.400930e+00_jprb &
2097  &, 0.374533e+00_jprb, 0.349179e+00_jprb, 0.324868e+00_jprb, 0.301603e+00_jprb &
2098  &, 0.279382e+00_jprb, 0.258203e+00_jprb, 0.238067e+00_jprb &
2099  &, 0.218959e+00_jprb, 0.200872e+00_jprb, 0.183799e+00_jprb, 0.167720e+00_jprb &
2100  &, 0.152623e+00_jprb, 0.138490e+00_jprb, 0.125291e+00_jprb &
2101  &, 0.113007e+00_jprb, 0.101613e+00_jprb, 0.910773e-01_jprb, 0.813684e-01_jprb &
2102  &, 0.724521e-01_jprb, 0.642929e-01_jprb, 0.568585e-01_jprb &
2103  &, 0.500975e-01_jprb, 0.439934e-01_jprb, 0.384870e-01_jprb, 0.335453e-01_jprb &
2104  &, 0.291299e-01_jprb, 0.251960e-01_jprb, 0.217139e-01_jprb &
2105  &, 0.186374e-01_jprb, 0.159364e-01_jprb, 0.135762e-01_jprb, 0.115166e-01_jprb &
2106  &, 0.973628e-02_jprb, 0.818552e-02_jprb, 0.685957e-02_jprb &
2107  &, 0.572583e-02_jprb, 0.476093e-02_jprb, 0.393831e-02_jprb, 0.325631e-02_jprb &
2108  &, 0.266901e-02_jprb, 0.218470e-02_jprb, 0.178168e-02_jprb &
2109  &, 0.143574e-02_jprb, 0.116762e-02_jprb, 0.934789e-03_jprb, 0.740264e-03_jprb &
2110  &, 0.587163e-03_jprb, 0.461356e-03_jprb, 0.365005e-03_jprb &
2111  &, 0.282199e-03_jprb, 0.232587e-03_jprb, 0.180615e-03_jprb, 0.126229e-03_jprb &
2112  &, 0.108959e-03_jprb, 0.706537e-04_jprb, 0.513000e-04_jprb &
2113  &, 0.310881e-04_jprb, 0.315322e-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  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2130  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2131  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2132  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2133 xcw( 45, :) = (/ &
2134  & 0.835997e+00_jprb, 0.797115e+00_jprb, 0.759115e+00_jprb, 0.722014e+00_jprb &
2135  &, 0.685824e+00_jprb, 0.650562e+00_jprb, 0.616241e+00_jprb &
2136  &, 0.582876e+00_jprb, 0.550479e+00_jprb, 0.519061e+00_jprb, 0.488634e+00_jprb &
2137  &, 0.459208e+00_jprb, 0.430792e+00_jprb, 0.403393e+00_jprb &
2138  &, 0.377019e+00_jprb, 0.351673e+00_jprb, 0.327361e+00_jprb, 0.304083e+00_jprb &
2139  &, 0.281840e+00_jprb, 0.260630e+00_jprb, 0.240450e+00_jprb &
2140  &, 0.221290e+00_jprb, 0.203147e+00_jprb, 0.186007e+00_jprb, 0.169859e+00_jprb &
2141  &, 0.154682e+00_jprb, 0.140464e+00_jprb, 0.127180e+00_jprb &
2142  &, 0.114805e+00_jprb, 0.103320e+00_jprb, 0.926871e-01_jprb, 0.828839e-01_jprb &
2143  &, 0.738719e-01_jprb, 0.656201e-01_jprb, 0.580878e-01_jprb &
2144  &, 0.512415e-01_jprb, 0.450425e-01_jprb, 0.394452e-01_jprb, 0.344175e-01_jprb &
2145  &, 0.299213e-01_jprb, 0.259232e-01_jprb, 0.223621e-01_jprb &
2146  &, 0.192243e-01_jprb, 0.164586e-01_jprb, 0.140416e-01_jprb, 0.119220e-01_jprb &
2147  &, 0.100906e-01_jprb, 0.849852e-02_jprb, 0.714176e-02_jprb &
2148  &, 0.596234e-02_jprb, 0.496281e-02_jprb, 0.411750e-02_jprb, 0.339745e-02_jprb &
2149  &, 0.279907e-02_jprb, 0.228825e-02_jprb, 0.187253e-02_jprb &
2150  &, 0.151323e-02_jprb, 0.123105e-02_jprb, 0.983462e-03_jprb, 0.790054e-03_jprb &
2151  &, 0.621114e-03_jprb, 0.496076e-03_jprb, 0.400506e-03_jprb &
2152  &, 0.300346e-03_jprb, 0.232587e-03_jprb, 0.180615e-03_jprb, 0.145600e-03_jprb &
2153  &, 0.108959e-03_jprb, 0.908716e-04_jprb, 0.513000e-04_jprb &
2154  &, 0.521762e-04_jprb, 0.315322e-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  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2171  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2172  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2173  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2174 xcw( 46, :) = (/ &
2175  & 0.836941e+00_jprb, 0.798259e+00_jprb, 0.760443e+00_jprb, 0.723511e+00_jprb &
2176  &, 0.687477e+00_jprb, 0.652355e+00_jprb, 0.618162e+00_jprb &
2177  &, 0.584909e+00_jprb, 0.552610e+00_jprb, 0.521278e+00_jprb, 0.490923e+00_jprb &
2178  &, 0.461556e+00_jprb, 0.433187e+00_jprb, 0.405822e+00_jprb &
2179  &, 0.379470e+00_jprb, 0.354135e+00_jprb, 0.329823e+00_jprb, 0.306534e+00_jprb &
2180  &, 0.284269e+00_jprb, 0.263029e+00_jprb, 0.242807e+00_jprb &
2181  &, 0.223601e+00_jprb, 0.205399e+00_jprb, 0.188197e+00_jprb, 0.171976e+00_jprb &
2182  &, 0.156726e+00_jprb, 0.142424e+00_jprb, 0.129054e+00_jprb &
2183  &, 0.116596e+00_jprb, 0.105015e+00_jprb, 0.942929e-01_jprb, 0.843909e-01_jprb &
2184  &, 0.752873e-01_jprb, 0.669385e-01_jprb, 0.593170e-01_jprb &
2185  &, 0.523763e-01_jprb, 0.460820e-01_jprb, 0.404035e-01_jprb, 0.352997e-01_jprb &
2186  &, 0.307231e-01_jprb, 0.266398e-01_jprb, 0.230211e-01_jprb &
2187  &, 0.198113e-01_jprb, 0.169808e-01_jprb, 0.144953e-01_jprb, 0.123393e-01_jprb &
2188  &, 0.104450e-01_jprb, 0.882404e-02_jprb, 0.741113e-02_jprb &
2189  &, 0.621200e-02_jprb, 0.517815e-02_jprb, 0.429669e-02_jprb, 0.355271e-02_jprb &
2190  &, 0.292913e-02_jprb, 0.240661e-02_jprb, 0.196339e-02_jprb &
2191  &, 0.159071e-02_jprb, 0.129448e-02_jprb, 0.103214e-02_jprb, 0.839845e-03_jprb &
2192  &, 0.672040e-03_jprb, 0.530795e-03_jprb, 0.418256e-03_jprb &
2193  &, 0.336639e-03_jprb, 0.251136e-03_jprb, 0.199572e-03_jprb, 0.145600e-03_jprb &
2194  &, 0.108959e-03_jprb, 0.908716e-04_jprb, 0.719501e-04_jprb &
2195  &, 0.521762e-04_jprb, 0.315322e-04_jprb, 0.319822e-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  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2212  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2213  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2214  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2215 xcw( 47, :) = (/ &
2216  & 0.837869e+00_jprb, 0.799384e+00_jprb, 0.761750e+00_jprb, 0.724984e+00_jprb &
2217  &, 0.689103e+00_jprb, 0.654120e+00_jprb, 0.620052e+00_jprb &
2218  &, 0.586910e+00_jprb, 0.554710e+00_jprb, 0.523463e+00_jprb, 0.493180e+00_jprb &
2219  &, 0.463872e+00_jprb, 0.435549e+00_jprb, 0.408219e+00_jprb &
2220  &, 0.381890e+00_jprb, 0.356566e+00_jprb, 0.332253e+00_jprb, 0.308955e+00_jprb &
2221  &, 0.286669e+00_jprb, 0.265398e+00_jprb, 0.245139e+00_jprb &
2222  &, 0.225885e+00_jprb, 0.207631e+00_jprb, 0.190366e+00_jprb, 0.174076e+00_jprb &
2223  &, 0.158752e+00_jprb, 0.144372e+00_jprb, 0.130920e+00_jprb &
2224  &, 0.118371e+00_jprb, 0.106702e+00_jprb, 0.958904e-01_jprb, 0.858979e-01_jprb &
2225  &, 0.766985e-01_jprb, 0.682569e-01_jprb, 0.605417e-01_jprb &
2226  &, 0.535111e-01_jprb, 0.471310e-01_jprb, 0.413715e-01_jprb, 0.361820e-01_jprb &
2227  &, 0.315248e-01_jprb, 0.273669e-01_jprb, 0.236693e-01_jprb &
2228  &, 0.203982e-01_jprb, 0.175030e-01_jprb, 0.149724e-01_jprb, 0.127447e-01_jprb &
2229  &, 0.108115e-01_jprb, 0.913704e-02_jprb, 0.769332e-02_jprb &
2230  &, 0.644852e-02_jprb, 0.538003e-02_jprb, 0.447587e-02_jprb, 0.370797e-02_jprb &
2231  &, 0.305919e-02_jprb, 0.251016e-02_jprb, 0.205424e-02_jprb &
2232  &, 0.166820e-02_jprb, 0.135791e-02_jprb, 0.109703e-02_jprb, 0.889636e-03_jprb &
2233  &, 0.705991e-03_jprb, 0.565515e-03_jprb, 0.453756e-03_jprb &
2234  &, 0.354786e-03_jprb, 0.269685e-03_jprb, 0.218530e-03_jprb, 0.164972e-03_jprb &
2235  &, 0.128750e-03_jprb, 0.908716e-04_jprb, 0.719501e-04_jprb &
2236  &, 0.521762e-04_jprb, 0.315322e-04_jprb, 0.319822e-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  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2253  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2254  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2255  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2256 xcw( 48, :) = (/ &
2257  & 0.838783e+00_jprb, 0.800490e+00_jprb, 0.763034e+00_jprb, 0.726434e+00_jprb &
2258  &, 0.690703e+00_jprb, 0.655858e+00_jprb, 0.621913e+00_jprb &
2259  &, 0.588882e+00_jprb, 0.556778e+00_jprb, 0.525616e+00_jprb, 0.495405e+00_jprb &
2260  &, 0.466155e+00_jprb, 0.437879e+00_jprb, 0.410584e+00_jprb &
2261  &, 0.384278e+00_jprb, 0.358967e+00_jprb, 0.334655e+00_jprb, 0.311347e+00_jprb &
2262  &, 0.289043e+00_jprb, 0.267743e+00_jprb, 0.247447e+00_jprb &
2263  &, 0.228146e+00_jprb, 0.209839e+00_jprb, 0.192514e+00_jprb, 0.176157e+00_jprb &
2264  &, 0.160763e+00_jprb, 0.146306e+00_jprb, 0.132771e+00_jprb &
2265  &, 0.120139e+00_jprb, 0.108385e+00_jprb, 0.974797e-01_jprb, 0.873965e-01_jprb &
2266  &, 0.781053e-01_jprb, 0.695753e-01_jprb, 0.617664e-01_jprb &
2267  &, 0.546458e-01_jprb, 0.481896e-01_jprb, 0.423395e-01_jprb, 0.370642e-01_jprb &
2268  &, 0.323369e-01_jprb, 0.281046e-01_jprb, 0.243283e-01_jprb &
2269  &, 0.209962e-01_jprb, 0.180365e-01_jprb, 0.154494e-01_jprb, 0.131740e-01_jprb &
2270  &, 0.111903e-01_jprb, 0.946256e-02_jprb, 0.797551e-02_jprb &
2271  &, 0.669818e-02_jprb, 0.560883e-02_jprb, 0.466884e-02_jprb, 0.387734e-02_jprb &
2272  &, 0.320370e-02_jprb, 0.262851e-02_jprb, 0.216024e-02_jprb &
2273  &, 0.176118e-02_jprb, 0.142134e-02_jprb, 0.116193e-02_jprb, 0.922830e-03_jprb &
2274  &, 0.739942e-03_jprb, 0.600235e-03_jprb, 0.471507e-03_jprb &
2275  &, 0.372933e-03_jprb, 0.288234e-03_jprb, 0.237487e-03_jprb, 0.184343e-03_jprb &
2276  &, 0.128750e-03_jprb, 0.111089e-03_jprb, 0.719501e-04_jprb &
2277  &, 0.521762e-04_jprb, 0.315322e-04_jprb, 0.319822e-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 &
2293  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2294  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2295  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2296  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2297 xcw( 49, :) = (/ &
2298  & 0.839682e+00_jprb, 0.801578e+00_jprb, 0.764299e+00_jprb, 0.727861e+00_jprb &
2299  &, 0.692279e+00_jprb, 0.657570e+00_jprb, 0.623747e+00_jprb &
2300  &, 0.590825e+00_jprb, 0.558818e+00_jprb, 0.527739e+00_jprb, 0.497598e+00_jprb &
2301  &, 0.468408e+00_jprb, 0.440179e+00_jprb, 0.412918e+00_jprb &
2302  &, 0.386636e+00_jprb, 0.361338e+00_jprb, 0.337029e+00_jprb, 0.313712e+00_jprb &
2303  &, 0.291391e+00_jprb, 0.270065e+00_jprb, 0.249730e+00_jprb &
2304  &, 0.230388e+00_jprb, 0.212030e+00_jprb, 0.194645e+00_jprb, 0.178225e+00_jprb &
2305  &, 0.162757e+00_jprb, 0.148228e+00_jprb, 0.134614e+00_jprb &
2306  &, 0.121898e+00_jprb, 0.110056e+00_jprb, 0.990608e-01_jprb, 0.888909e-01_jprb &
2307  &, 0.795121e-01_jprb, 0.708893e-01_jprb, 0.629911e-01_jprb &
2308  &, 0.557899e-01_jprb, 0.492386e-01_jprb, 0.433076e-01_jprb, 0.379465e-01_jprb &
2309  &, 0.331386e-01_jprb, 0.288317e-01_jprb, 0.249981e-01_jprb &
2310  &, 0.215943e-01_jprb, 0.185814e-01_jprb, 0.159264e-01_jprb, 0.135913e-01_jprb &
2311  &, 0.115691e-01_jprb, 0.980060e-02_jprb, 0.827053e-02_jprb &
2312  &, 0.694783e-02_jprb, 0.582417e-02_jprb, 0.486181e-02_jprb, 0.403260e-02_jprb &
2313  &, 0.333376e-02_jprb, 0.274687e-02_jprb, 0.225110e-02_jprb &
2314  &, 0.183867e-02_jprb, 0.150063e-02_jprb, 0.121060e-02_jprb, 0.989217e-03_jprb &
2315  &, 0.790868e-03_jprb, 0.634954e-03_jprb, 0.507007e-03_jprb &
2316  &, 0.391079e-03_jprb, 0.306783e-03_jprb, 0.237487e-03_jprb, 0.184343e-03_jprb &
2317  &, 0.148542e-03_jprb, 0.111089e-03_jprb, 0.926001e-04_jprb &
2318  &, 0.521762e-04_jprb, 0.530643e-04_jprb, 0.319822e-04_jprb, 0.324382e-04_jprb &
2319  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2320  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2321  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2322  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2323  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2324  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2325  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2326  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2327  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2328  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2329  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2330  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2331  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2332  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2333  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2334  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2335  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2336  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2337  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2338 
2339 IF (lhook) CALL dr_hook('SU_MCICA:PART7',1,zhook_handle)
2340 END SUBROUTINE part7
2341 
2342 #ifdef VPP5000
2343 !OCL SCALAR
2344 #endif
2345 !option! -Nv -NO
2346 #ifdef RS6K
2347 @process nooptimize
2348 #endif
2349 !pgi$r opt=0
2350 SUBROUTINE part8
2351 
2352 REAL(KIND=JPRB) :: ZHOOK_HANDLE
2353 IF (lhook) CALL dr_hook('SU_MCICA:PART8',0,zhook_handle)
2354 
2355 xcw( 50, :) = (/ &
2356  & 0.840566e+00_jprb, 0.802650e+00_jprb, 0.765543e+00_jprb, 0.729266e+00_jprb &
2357  &, 0.693831e+00_jprb, 0.659256e+00_jprb, 0.625554e+00_jprb &
2358  &, 0.592741e+00_jprb, 0.560829e+00_jprb, 0.529832e+00_jprb, 0.499762e+00_jprb &
2359  &, 0.470631e+00_jprb, 0.442448e+00_jprb, 0.415223e+00_jprb &
2360  &, 0.388966e+00_jprb, 0.363680e+00_jprb, 0.339374e+00_jprb, 0.316052e+00_jprb &
2361  &, 0.293714e+00_jprb, 0.272362e+00_jprb, 0.251993e+00_jprb &
2362  &, 0.232609e+00_jprb, 0.214200e+00_jprb, 0.196758e+00_jprb, 0.180275e+00_jprb &
2363  &, 0.164739e+00_jprb, 0.150135e+00_jprb, 0.136442e+00_jprb &
2364  &, 0.123646e+00_jprb, 0.111719e+00_jprb, 0.100638e+00_jprb, 0.903811e-01_jprb &
2365  &, 0.809103e-01_jprb, 0.721989e-01_jprb, 0.642158e-01_jprb &
2366  &, 0.569246e-01_jprb, 0.502877e-01_jprb, 0.442756e-01_jprb, 0.388387e-01_jprb &
2367  &, 0.339506e-01_jprb, 0.295693e-01_jprb, 0.256679e-01_jprb &
2368  &, 0.221923e-01_jprb, 0.191149e-01_jprb, 0.164035e-01_jprb, 0.140206e-01_jprb &
2369  &, 0.119479e-01_jprb, 0.101386e-01_jprb, 0.856555e-02_jprb &
2370  &, 0.721063e-02_jprb, 0.603951e-02_jprb, 0.505478e-02_jprb, 0.420197e-02_jprb &
2371  &, 0.347827e-02_jprb, 0.286522e-02_jprb, 0.235710e-02_jprb &
2372  &, 0.193165e-02_jprb, 0.157992e-02_jprb, 0.127550e-02_jprb, 0.103901e-02_jprb &
2373  &, 0.824819e-03_jprb, 0.669674e-03_jprb, 0.524757e-03_jprb &
2374  &, 0.427372e-03_jprb, 0.325332e-03_jprb, 0.256444e-03_jprb, 0.203715e-03_jprb &
2375  &, 0.148542e-03_jprb, 0.111089e-03_jprb, 0.926001e-04_jprb &
2376  &, 0.732644e-04_jprb, 0.530643e-04_jprb, 0.319822e-04_jprb, 0.324382e-04_jprb &
2377  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2378  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2379  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2380  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2381  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2382  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2383  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2384  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2385  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2386  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2387  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2388  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2389  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2390  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2391  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2392  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2393  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2394  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2395  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2396 xcw( 51, :) = (/ &
2397  & 0.841436e+00_jprb, 0.803705e+00_jprb, 0.766770e+00_jprb, 0.730650e+00_jprb &
2398  &, 0.695361e+00_jprb, 0.660918e+00_jprb, 0.627336e+00_jprb &
2399  &, 0.594629e+00_jprb, 0.562812e+00_jprb, 0.531898e+00_jprb, 0.501898e+00_jprb &
2400  &, 0.472824e+00_jprb, 0.444689e+00_jprb, 0.417501e+00_jprb &
2401  &, 0.391267e+00_jprb, 0.365996e+00_jprb, 0.341695e+00_jprb, 0.318365e+00_jprb &
2402  &, 0.296012e+00_jprb, 0.274633e+00_jprb, 0.254234e+00_jprb &
2403  &, 0.234807e+00_jprb, 0.216350e+00_jprb, 0.198854e+00_jprb, 0.182310e+00_jprb &
2404  &, 0.166707e+00_jprb, 0.152028e+00_jprb, 0.138263e+00_jprb &
2405  &, 0.125386e+00_jprb, 0.113374e+00_jprb, 0.102211e+00_jprb, 0.918671e-01_jprb &
2406  &, 0.823084e-01_jprb, 0.735128e-01_jprb, 0.654405e-01_jprb &
2407  &, 0.580594e-01_jprb, 0.513367e-01_jprb, 0.452436e-01_jprb, 0.397310e-01_jprb &
2408  &, 0.347729e-01_jprb, 0.303176e-01_jprb, 0.263377e-01_jprb &
2409  &, 0.228014e-01_jprb, 0.196598e-01_jprb, 0.168921e-01_jprb, 0.144618e-01_jprb &
2410  &, 0.123267e-01_jprb, 0.104767e-01_jprb, 0.886057e-02_jprb &
2411  &, 0.747343e-02_jprb, 0.626830e-02_jprb, 0.524775e-02_jprb, 0.437134e-02_jprb &
2412  &, 0.362278e-02_jprb, 0.299836e-02_jprb, 0.246309e-02_jprb &
2413  &, 0.202464e-02_jprb, 0.164335e-02_jprb, 0.134040e-02_jprb, 0.108880e-02_jprb &
2414  &, 0.875745e-03_jprb, 0.704394e-03_jprb, 0.560258e-03_jprb &
2415  &, 0.445519e-03_jprb, 0.343881e-03_jprb, 0.275401e-03_jprb, 0.223086e-03_jprb &
2416  &, 0.168334e-03_jprb, 0.131307e-03_jprb, 0.926001e-04_jprb &
2417  &, 0.732644e-04_jprb, 0.530643e-04_jprb, 0.319822e-04_jprb, 0.324382e-04_jprb &
2418  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2419  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2420  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2421  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2422  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2423  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2424  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2425  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2426  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2427  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2428  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2429  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2430  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2431  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2432  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2433  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2434  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2435  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2436  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2437 xcw( 52, :) = (/ &
2438  & 0.842294e+00_jprb, 0.804744e+00_jprb, 0.767978e+00_jprb, 0.732014e+00_jprb &
2439  &, 0.696869e+00_jprb, 0.662556e+00_jprb, 0.629092e+00_jprb &
2440  &, 0.596491e+00_jprb, 0.564768e+00_jprb, 0.533936e+00_jprb, 0.504006e+00_jprb &
2441  &, 0.474992e+00_jprb, 0.446903e+00_jprb, 0.419750e+00_jprb &
2442  &, 0.393541e+00_jprb, 0.368285e+00_jprb, 0.343988e+00_jprb, 0.320654e+00_jprb &
2443  &, 0.298286e+00_jprb, 0.276886e+00_jprb, 0.256455e+00_jprb &
2444  &, 0.236989e+00_jprb, 0.218484e+00_jprb, 0.200933e+00_jprb, 0.184328e+00_jprb &
2445  &, 0.168660e+00_jprb, 0.153913e+00_jprb, 0.140072e+00_jprb &
2446  &, 0.127114e+00_jprb, 0.115025e+00_jprb, 0.103775e+00_jprb, 0.933447e-01_jprb &
2447  &, 0.837023e-01_jprb, 0.748180e-01_jprb, 0.666606e-01_jprb &
2448  &, 0.591941e-01_jprb, 0.523953e-01_jprb, 0.462214e-01_jprb, 0.406233e-01_jprb &
2449  &, 0.355850e-01_jprb, 0.310658e-01_jprb, 0.270183e-01_jprb &
2450  &, 0.234105e-01_jprb, 0.202160e-01_jprb, 0.173808e-01_jprb, 0.149030e-01_jprb &
2451  &, 0.127177e-01_jprb, 0.108147e-01_jprb, 0.916841e-02_jprb &
2452  &, 0.773622e-02_jprb, 0.651056e-02_jprb, 0.545451e-02_jprb, 0.454071e-02_jprb &
2453  &, 0.378175e-02_jprb, 0.313151e-02_jprb, 0.256909e-02_jprb &
2454  &, 0.211762e-02_jprb, 0.172264e-02_jprb, 0.140530e-02_jprb, 0.113859e-02_jprb &
2455  &, 0.926671e-03_jprb, 0.739113e-03_jprb, 0.595758e-03_jprb &
2456  &, 0.463666e-03_jprb, 0.380979e-03_jprb, 0.294359e-03_jprb, 0.223086e-03_jprb &
2457  &, 0.188125e-03_jprb, 0.131307e-03_jprb, 0.113250e-03_jprb &
2458  &, 0.732644e-04_jprb, 0.530643e-04_jprb, 0.319822e-04_jprb, 0.324382e-04_jprb &
2459  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2460  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2461  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2462  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2463  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2464  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2465  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2466  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2467  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2468  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2469  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2470  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2471  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2472  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2473  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2474  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2475  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2476  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2477  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2478 xcw( 53, :) = (/ &
2479  & 0.843139e+00_jprb, 0.805768e+00_jprb, 0.769168e+00_jprb, 0.733359e+00_jprb &
2480  &, 0.698355e+00_jprb, 0.664172e+00_jprb, 0.630825e+00_jprb &
2481  &, 0.598329e+00_jprb, 0.566699e+00_jprb, 0.535948e+00_jprb, 0.506088e+00_jprb &
2482  &, 0.477132e+00_jprb, 0.449089e+00_jprb, 0.421973e+00_jprb &
2483  &, 0.395791e+00_jprb, 0.370550e+00_jprb, 0.346259e+00_jprb, 0.322919e+00_jprb &
2484  &, 0.300538e+00_jprb, 0.279116e+00_jprb, 0.258654e+00_jprb &
2485  &, 0.239151e+00_jprb, 0.220600e+00_jprb, 0.202998e+00_jprb, 0.186335e+00_jprb &
2486  &, 0.170603e+00_jprb, 0.155787e+00_jprb, 0.141869e+00_jprb &
2487  &, 0.128835e+00_jprb, 0.116667e+00_jprb, 0.105336e+00_jprb, 0.948222e-01_jprb &
2488  &, 0.850962e-01_jprb, 0.761275e-01_jprb, 0.678853e-01_jprb &
2489  &, 0.603382e-01_jprb, 0.534539e-01_jprb, 0.471895e-01_jprb, 0.415256e-01_jprb &
2490  &, 0.364073e-01_jprb, 0.318140e-01_jprb, 0.276989e-01_jprb &
2491  &, 0.240307e-01_jprb, 0.207609e-01_jprb, 0.178811e-01_jprb, 0.153441e-01_jprb &
2492  &, 0.131087e-01_jprb, 0.111653e-01_jprb, 0.947626e-02_jprb &
2493  &, 0.801216e-02_jprb, 0.673936e-02_jprb, 0.564748e-02_jprb, 0.472420e-02_jprb &
2494  &, 0.392626e-02_jprb, 0.324986e-02_jprb, 0.269023e-02_jprb &
2495  &, 0.221060e-02_jprb, 0.180193e-02_jprb, 0.147019e-02_jprb, 0.120498e-02_jprb &
2496  &, 0.960622e-03_jprb, 0.773833e-03_jprb, 0.631259e-03_jprb &
2497  &, 0.499959e-03_jprb, 0.399528e-03_jprb, 0.313316e-03_jprb, 0.242458e-03_jprb &
2498  &, 0.188125e-03_jprb, 0.151525e-03_jprb, 0.113250e-03_jprb &
2499  &, 0.943525e-04_jprb, 0.530643e-04_jprb, 0.539644e-04_jprb, 0.324382e-04_jprb &
2500  &, 0.329001e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2501  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2502  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2503  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2504  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2505  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2506  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2507  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2508  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2509  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2510  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2511  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2512  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2513  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2514  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2515  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2516  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2517  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2518  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2519 xcw( 54, :) = (/ &
2520  & 0.843971e+00_jprb, 0.806777e+00_jprb, 0.770342e+00_jprb, 0.734685e+00_jprb &
2521  &, 0.699821e+00_jprb, 0.665766e+00_jprb, 0.632535e+00_jprb &
2522  &, 0.600143e+00_jprb, 0.568605e+00_jprb, 0.537934e+00_jprb, 0.508144e+00_jprb &
2523  &, 0.479245e+00_jprb, 0.451251e+00_jprb, 0.424172e+00_jprb &
2524  &, 0.398015e+00_jprb, 0.372790e+00_jprb, 0.348504e+00_jprb, 0.325162e+00_jprb &
2525  &, 0.302769e+00_jprb, 0.281324e+00_jprb, 0.260832e+00_jprb &
2526  &, 0.241292e+00_jprb, 0.222699e+00_jprb, 0.205046e+00_jprb, 0.188324e+00_jprb &
2527  &, 0.172530e+00_jprb, 0.157645e+00_jprb, 0.143659e+00_jprb &
2528  &, 0.130551e+00_jprb, 0.118302e+00_jprb, 0.106892e+00_jprb, 0.962956e-01_jprb &
2529  &, 0.864814e-01_jprb, 0.774282e-01_jprb, 0.691055e-01_jprb &
2530  &, 0.614730e-01_jprb, 0.545029e-01_jprb, 0.481673e-01_jprb, 0.424178e-01_jprb &
2531  &, 0.372296e-01_jprb, 0.325622e-01_jprb, 0.283796e-01_jprb &
2532  &, 0.246398e-01_jprb, 0.213285e-01_jprb, 0.183814e-01_jprb, 0.157853e-01_jprb &
2533  &, 0.135119e-01_jprb, 0.115158e-01_jprb, 0.978411e-02_jprb &
2534  &, 0.827496e-02_jprb, 0.698162e-02_jprb, 0.585423e-02_jprb, 0.490769e-02_jprb &
2535  &, 0.408522e-02_jprb, 0.338300e-02_jprb, 0.279623e-02_jprb &
2536  &, 0.230359e-02_jprb, 0.189708e-02_jprb, 0.155132e-02_jprb, 0.125477e-02_jprb &
2537  &, 0.101155e-02_jprb, 0.825913e-03_jprb, 0.666759e-03_jprb &
2538  &, 0.518106e-03_jprb, 0.418077e-03_jprb, 0.332273e-03_jprb, 0.261829e-03_jprb &
2539  &, 0.207917e-03_jprb, 0.151525e-03_jprb, 0.113250e-03_jprb &
2540  &, 0.943525e-04_jprb, 0.745965e-04_jprb, 0.539644e-04_jprb, 0.324382e-04_jprb &
2541  &, 0.329001e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2542  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2543  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2544  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2545  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2546  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2547  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2548  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2549  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2550  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2551  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2552  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2553  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2554  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2555  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2556  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2557  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2558  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2559  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2560 xcw( 55, :) = (/ &
2561  & 0.844791e+00_jprb, 0.807772e+00_jprb, 0.771500e+00_jprb, 0.735993e+00_jprb &
2562  &, 0.701267e+00_jprb, 0.667338e+00_jprb, 0.634222e+00_jprb &
2563  &, 0.601934e+00_jprb, 0.570487e+00_jprb, 0.539897e+00_jprb, 0.510175e+00_jprb &
2564  &, 0.481335e+00_jprb, 0.453387e+00_jprb, 0.426345e+00_jprb &
2565  &, 0.400214e+00_jprb, 0.375006e+00_jprb, 0.350728e+00_jprb, 0.327383e+00_jprb &
2566  &, 0.304977e+00_jprb, 0.283513e+00_jprb, 0.262995e+00_jprb &
2567  &, 0.243418e+00_jprb, 0.224782e+00_jprb, 0.207076e+00_jprb, 0.190303e+00_jprb &
2568  &, 0.174447e+00_jprb, 0.159497e+00_jprb, 0.145437e+00_jprb &
2569  &, 0.132256e+00_jprb, 0.119929e+00_jprb, 0.108441e+00_jprb, 0.977605e-01_jprb &
2570  &, 0.878666e-01_jprb, 0.787333e-01_jprb, 0.703257e-01_jprb &
2571  &, 0.626170e-01_jprb, 0.555615e-01_jprb, 0.491451e-01_jprb, 0.433201e-01_jprb &
2572  &, 0.380622e-01_jprb, 0.333209e-01_jprb, 0.290710e-01_jprb &
2573  &, 0.252710e-01_jprb, 0.218847e-01_jprb, 0.188933e-01_jprb, 0.162384e-01_jprb &
2574  &, 0.139152e-01_jprb, 0.118789e-01_jprb, 0.101048e-01_jprb &
2575  &, 0.855089e-02_jprb, 0.722387e-02_jprb, 0.607477e-02_jprb, 0.509117e-02_jprb &
2576  &, 0.424418e-02_jprb, 0.353094e-02_jprb, 0.291737e-02_jprb &
2577  &, 0.241207e-02_jprb, 0.197637e-02_jprb, 0.161621e-02_jprb, 0.132116e-02_jprb &
2578  &, 0.106247e-02_jprb, 0.860632e-03_jprb, 0.702260e-03_jprb &
2579  &, 0.554399e-03_jprb, 0.436626e-03_jprb, 0.351230e-03_jprb, 0.281201e-03_jprb &
2580  &, 0.207917e-03_jprb, 0.171743e-03_jprb, 0.133900e-03_jprb &
2581  &, 0.943525e-04_jprb, 0.745965e-04_jprb, 0.539644e-04_jprb, 0.324382e-04_jprb &
2582  &, 0.329001e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2583  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2584  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2585  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2586  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2587  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2588  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2589  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2590  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2591  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2592  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2593  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2594  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2595  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2596  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2597  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2598  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2599  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2600  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2601 xcw( 56, :) = (/ &
2602  & 0.845601e+00_jprb, 0.808753e+00_jprb, 0.772642e+00_jprb, 0.737283e+00_jprb &
2603  &, 0.702694e+00_jprb, 0.668890e+00_jprb, 0.635888e+00_jprb &
2604  &, 0.603701e+00_jprb, 0.572346e+00_jprb, 0.541835e+00_jprb, 0.512182e+00_jprb &
2605  &, 0.483400e+00_jprb, 0.455500e+00_jprb, 0.428494e+00_jprb &
2606  &, 0.402390e+00_jprb, 0.377199e+00_jprb, 0.352927e+00_jprb, 0.329581e+00_jprb &
2607  &, 0.307166e+00_jprb, 0.285683e+00_jprb, 0.265139e+00_jprb &
2608  &, 0.245526e+00_jprb, 0.226847e+00_jprb, 0.209096e+00_jprb, 0.192268e+00_jprb &
2609  &, 0.176350e+00_jprb, 0.161333e+00_jprb, 0.147208e+00_jprb &
2610  &, 0.133953e+00_jprb, 0.121552e+00_jprb, 0.109985e+00_jprb, 0.992254e-01_jprb &
2611  &, 0.892519e-01_jprb, 0.800340e-01_jprb, 0.715458e-01_jprb &
2612  &, 0.637518e-01_jprb, 0.566201e-01_jprb, 0.501229e-01_jprb, 0.442324e-01_jprb &
2613  &, 0.388947e-01_jprb, 0.340796e-01_jprb, 0.297624e-01_jprb &
2614  &, 0.259023e-01_jprb, 0.224523e-01_jprb, 0.194052e-01_jprb, 0.167035e-01_jprb &
2615  &, 0.143184e-01_jprb, 0.122420e-01_jprb, 0.104255e-01_jprb &
2616  &, 0.883997e-02_jprb, 0.746613e-02_jprb, 0.628152e-02_jprb, 0.527466e-02_jprb &
2617  &, 0.440315e-02_jprb, 0.366408e-02_jprb, 0.303851e-02_jprb &
2618  &, 0.250505e-02_jprb, 0.205566e-02_jprb, 0.169733e-02_jprb, 0.137095e-02_jprb &
2619  &, 0.111340e-02_jprb, 0.912712e-03_jprb, 0.737760e-03_jprb &
2620  &, 0.590692e-03_jprb, 0.473724e-03_jprb, 0.370188e-03_jprb, 0.300572e-03_jprb &
2621  &, 0.227709e-03_jprb, 0.171743e-03_jprb, 0.133900e-03_jprb &
2622  &, 0.115441e-03_jprb, 0.745965e-04_jprb, 0.539644e-04_jprb, 0.324382e-04_jprb &
2623  &, 0.329001e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2624  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2625  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2626  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2627  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2628  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2629  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2630  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2631  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2632  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2633  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2634  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2635  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2636  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2637  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2638  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2639  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2640  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2641  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2642 
2643 IF (lhook) CALL dr_hook('SU_MCICA:PART8',1,zhook_handle)
2644 END SUBROUTINE part8
2645 
2646 #ifdef VPP5000
2647 !OCL SCALAR
2648 #endif
2649 !option! -Nv -NO
2650 #ifdef RS6K
2651 @process nooptimize
2652 #endif
2653 !pgi$r opt=0
2654 SUBROUTINE part9
2655 
2656 REAL(KIND=JPRB) :: ZHOOK_HANDLE
2657 IF (lhook) CALL dr_hook('SU_MCICA:PART9',0,zhook_handle)
2658 
2659 xcw( 57, :) = (/ &
2660  & 0.846399e+00_jprb, 0.809722e+00_jprb, 0.773768e+00_jprb, 0.738557e+00_jprb &
2661  &, 0.704103e+00_jprb, 0.670423e+00_jprb, 0.637533e+00_jprb &
2662  &, 0.605448e+00_jprb, 0.574182e+00_jprb, 0.543750e+00_jprb, 0.514167e+00_jprb &
2663  &, 0.485441e+00_jprb, 0.457590e+00_jprb, 0.430620e+00_jprb &
2664  &, 0.404544e+00_jprb, 0.379370e+00_jprb, 0.355107e+00_jprb, 0.331759e+00_jprb &
2665  &, 0.309334e+00_jprb, 0.287834e+00_jprb, 0.267262e+00_jprb &
2666  &, 0.247615e+00_jprb, 0.228896e+00_jprb, 0.211098e+00_jprb, 0.194218e+00_jprb &
2667  &, 0.178241e+00_jprb, 0.163163e+00_jprb, 0.148971e+00_jprb &
2668  &, 0.135642e+00_jprb, 0.123167e+00_jprb, 0.111525e+00_jprb, 0.100686e+00_jprb &
2669  &, 0.906328e-01_jprb, 0.813347e-01_jprb, 0.727660e-01_jprb &
2670  &, 0.648865e-01_jprb, 0.576882e-01_jprb, 0.511105e-01_jprb, 0.451347e-01_jprb &
2671  &, 0.397273e-01_jprb, 0.348384e-01_jprb, 0.304538e-01_jprb &
2672  &, 0.265335e-01_jprb, 0.230312e-01_jprb, 0.199172e-01_jprb, 0.171566e-01_jprb &
2673  &, 0.147338e-01_jprb, 0.126051e-01_jprb, 0.107461e-01_jprb &
2674  &, 0.912904e-02_jprb, 0.772185e-02_jprb, 0.650206e-02_jprb, 0.545815e-02_jprb &
2675  &, 0.456211e-02_jprb, 0.381202e-02_jprb, 0.315965e-02_jprb &
2676  &, 0.261353e-02_jprb, 0.215080e-02_jprb, 0.176223e-02_jprb, 0.143733e-02_jprb &
2677  &, 0.118130e-02_jprb, 0.947432e-03_jprb, 0.773261e-03_jprb &
2678  &, 0.608839e-03_jprb, 0.492273e-03_jprb, 0.389145e-03_jprb, 0.300572e-03_jprb &
2679  &, 0.247501e-03_jprb, 0.191961e-03_jprb, 0.154550e-03_jprb &
2680  &, 0.115441e-03_jprb, 0.961287e-04_jprb, 0.539644e-04_jprb, 0.548763e-04_jprb &
2681  &, 0.329001e-04_jprb, 0.333680e-04_jprb, 0.100000e-04_jprb &
2682  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2683  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2684  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2685  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2686  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2687  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2688  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2689  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2690  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2691  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2692  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2693  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2694  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2695  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2696  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2697  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2698  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2699  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2700 xcw( 58, :) = (/ &
2701  & 0.847186e+00_jprb, 0.810677e+00_jprb, 0.774880e+00_jprb, 0.739814e+00_jprb &
2702  &, 0.705494e+00_jprb, 0.671937e+00_jprb, 0.639158e+00_jprb &
2703  &, 0.607173e+00_jprb, 0.575997e+00_jprb, 0.545644e+00_jprb, 0.516128e+00_jprb &
2704  &, 0.487460e+00_jprb, 0.459656e+00_jprb, 0.432723e+00_jprb &
2705  &, 0.406675e+00_jprb, 0.381520e+00_jprb, 0.357265e+00_jprb, 0.333918e+00_jprb &
2706  &, 0.311483e+00_jprb, 0.289966e+00_jprb, 0.269370e+00_jprb &
2707  &, 0.249691e+00_jprb, 0.230934e+00_jprb, 0.213090e+00_jprb, 0.196154e+00_jprb &
2708  &, 0.180122e+00_jprb, 0.164984e+00_jprb, 0.150723e+00_jprb &
2709  &, 0.137327e+00_jprb, 0.124777e+00_jprb, 0.113057e+00_jprb, 0.102143e+00_jprb &
2710  &, 0.920094e-01_jprb, 0.826310e-01_jprb, 0.739816e-01_jprb &
2711  &, 0.660306e-01_jprb, 0.587467e-01_jprb, 0.520981e-01_jprb, 0.460471e-01_jprb &
2712  &, 0.405599e-01_jprb, 0.356077e-01_jprb, 0.311560e-01_jprb &
2713  &, 0.271648e-01_jprb, 0.235988e-01_jprb, 0.204291e-01_jprb, 0.176216e-01_jprb &
2714  &, 0.151493e-01_jprb, 0.129807e-01_jprb, 0.110668e-01_jprb &
2715  &, 0.941812e-02_jprb, 0.797756e-02_jprb, 0.672260e-02_jprb, 0.565575e-02_jprb &
2716  &, 0.473552e-02_jprb, 0.394517e-02_jprb, 0.328079e-02_jprb &
2717  &, 0.272201e-02_jprb, 0.224595e-02_jprb, 0.184335e-02_jprb, 0.150372e-02_jprb &
2718  &, 0.123223e-02_jprb, 0.999511e-03_jprb, 0.808761e-03_jprb &
2719  &, 0.645132e-03_jprb, 0.510822e-03_jprb, 0.408102e-03_jprb, 0.319944e-03_jprb &
2720  &, 0.267292e-03_jprb, 0.212179e-03_jprb, 0.154550e-03_jprb &
2721  &, 0.115441e-03_jprb, 0.961287e-04_jprb, 0.759466e-04_jprb, 0.548763e-04_jprb &
2722  &, 0.329001e-04_jprb, 0.333680e-04_jprb, 0.100000e-04_jprb &
2723  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2724  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2725  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2726  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2727  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2728  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2729  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2730  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2731  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2732  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2733  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2734  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2735  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2736  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2737  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2738  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2739  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2740  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2741 xcw( 59, :) = (/ &
2742  & 0.847964e+00_jprb, 0.811620e+00_jprb, 0.775978e+00_jprb, 0.741055e+00_jprb &
2743  &, 0.706868e+00_jprb, 0.673432e+00_jprb, 0.640764e+00_jprb &
2744  &, 0.608878e+00_jprb, 0.577791e+00_jprb, 0.547516e+00_jprb, 0.518068e+00_jprb &
2745  &, 0.489458e+00_jprb, 0.461701e+00_jprb, 0.434806e+00_jprb &
2746  &, 0.408785e+00_jprb, 0.383648e+00_jprb, 0.359403e+00_jprb, 0.336056e+00_jprb &
2747  &, 0.313613e+00_jprb, 0.292082e+00_jprb, 0.271458e+00_jprb &
2748  &, 0.251750e+00_jprb, 0.232955e+00_jprb, 0.215065e+00_jprb, 0.198083e+00_jprb &
2749  &, 0.181995e+00_jprb, 0.166791e+00_jprb, 0.152467e+00_jprb &
2750  &, 0.139001e+00_jprb, 0.126380e+00_jprb, 0.114584e+00_jprb, 0.103595e+00_jprb &
2751  &, 0.933860e-01_jprb, 0.839273e-01_jprb, 0.752017e-01_jprb &
2752  &, 0.671654e-01_jprb, 0.598053e-01_jprb, 0.530759e-01_jprb, 0.469594e-01_jprb &
2753  &, 0.414028e-01_jprb, 0.363770e-01_jprb, 0.318582e-01_jprb &
2754  &, 0.278071e-01_jprb, 0.241778e-01_jprb, 0.209527e-01_jprb, 0.180986e-01_jprb &
2755  &, 0.155647e-01_jprb, 0.133437e-01_jprb, 0.114003e-01_jprb &
2756  &, 0.970720e-02_jprb, 0.823328e-02_jprb, 0.695692e-02_jprb, 0.585335e-02_jprb &
2757  &, 0.490894e-02_jprb, 0.409311e-02_jprb, 0.341707e-02_jprb &
2758  &, 0.283049e-02_jprb, 0.234110e-02_jprb, 0.192448e-02_jprb, 0.157011e-02_jprb &
2759  &, 0.128315e-02_jprb, 0.105159e-02_jprb, 0.844262e-03_jprb &
2760  &, 0.681425e-03_jprb, 0.547920e-03_jprb, 0.427059e-03_jprb, 0.339316e-03_jprb &
2761  &, 0.267292e-03_jprb, 0.212179e-03_jprb, 0.175200e-03_jprb &
2762  &, 0.136529e-03_jprb, 0.961287e-04_jprb, 0.759466e-04_jprb, 0.548763e-04_jprb &
2763  &, 0.329001e-04_jprb, 0.333680e-04_jprb, 0.100000e-04_jprb &
2764  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2765  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2766  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2767  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2768  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2769  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2770  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2771  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2772  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2773  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2774  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2775  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2776  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2777  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2778  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2779  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2780  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2781  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2782 xcw( 60, :) = (/ &
2783  & 0.848730e+00_jprb, 0.812552e+00_jprb, 0.777062e+00_jprb, 0.742282e+00_jprb &
2784  &, 0.708225e+00_jprb, 0.674909e+00_jprb, 0.642350e+00_jprb &
2785  &, 0.610563e+00_jprb, 0.579565e+00_jprb, 0.549368e+00_jprb, 0.519985e+00_jprb &
2786  &, 0.491434e+00_jprb, 0.463724e+00_jprb, 0.436867e+00_jprb &
2787  &, 0.410875e+00_jprb, 0.385757e+00_jprb, 0.361521e+00_jprb, 0.338175e+00_jprb &
2788  &, 0.315726e+00_jprb, 0.294176e+00_jprb, 0.273533e+00_jprb &
2789  &, 0.253795e+00_jprb, 0.234960e+00_jprb, 0.217029e+00_jprb, 0.199994e+00_jprb &
2790  &, 0.183854e+00_jprb, 0.168594e+00_jprb, 0.154203e+00_jprb &
2791  &, 0.140671e+00_jprb, 0.127979e+00_jprb, 0.116112e+00_jprb, 0.105043e+00_jprb &
2792  &, 0.947583e-01_jprb, 0.852236e-01_jprb, 0.764174e-01_jprb &
2793  &, 0.683094e-01_jprb, 0.608734e-01_jprb, 0.540635e-01_jprb, 0.478717e-01_jprb &
2794  &, 0.422456e-01_jprb, 0.371568e-01_jprb, 0.325712e-01_jprb &
2795  &, 0.284494e-01_jprb, 0.247680e-01_jprb, 0.214879e-01_jprb, 0.185755e-01_jprb &
2796  &, 0.159924e-01_jprb, 0.137319e-01_jprb, 0.117338e-01_jprb &
2797  &, 0.999627e-02_jprb, 0.848899e-02_jprb, 0.717745e-02_jprb, 0.605095e-02_jprb &
2798  &, 0.508235e-02_jprb, 0.425584e-02_jprb, 0.353821e-02_jprb &
2799  &, 0.293897e-02_jprb, 0.243624e-02_jprb, 0.200560e-02_jprb, 0.163650e-02_jprb &
2800  &, 0.133408e-02_jprb, 0.108631e-02_jprb, 0.879762e-03_jprb &
2801  &, 0.717718e-03_jprb, 0.566469e-03_jprb, 0.464974e-03_jprb, 0.358687e-03_jprb &
2802  &, 0.287084e-03_jprb, 0.232397e-03_jprb, 0.175200e-03_jprb &
2803  &, 0.136529e-03_jprb, 0.961287e-04_jprb, 0.759466e-04_jprb, 0.548763e-04_jprb &
2804  &, 0.329001e-04_jprb, 0.333680e-04_jprb, 0.100000e-04_jprb &
2805  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2806  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2807  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2808  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2809  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2810  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2811  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2812  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2813  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2814  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2815  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2816  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2817  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2818  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2819  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2820  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2821  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2822  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2823 xcw( 61, :) = (/ &
2824  & 0.849488e+00_jprb, 0.813471e+00_jprb, 0.778133e+00_jprb, 0.743493e+00_jprb &
2825  &, 0.709566e+00_jprb, 0.676369e+00_jprb, 0.643919e+00_jprb &
2826  &, 0.612230e+00_jprb, 0.581318e+00_jprb, 0.551198e+00_jprb, 0.521885e+00_jprb &
2827  &, 0.493390e+00_jprb, 0.465726e+00_jprb, 0.438909e+00_jprb &
2828  &, 0.412944e+00_jprb, 0.387845e+00_jprb, 0.363620e+00_jprb, 0.340276e+00_jprb &
2829  &, 0.317821e+00_jprb, 0.296257e+00_jprb, 0.275592e+00_jprb &
2830  &, 0.255824e+00_jprb, 0.236954e+00_jprb, 0.218980e+00_jprb, 0.201898e+00_jprb &
2831  &, 0.185701e+00_jprb, 0.170382e+00_jprb, 0.155932e+00_jprb &
2832  &, 0.142332e+00_jprb, 0.129574e+00_jprb, 0.117632e+00_jprb, 0.106491e+00_jprb &
2833  &, 0.961263e-01_jprb, 0.865198e-01_jprb, 0.776375e-01_jprb &
2834  &, 0.694535e-01_jprb, 0.619320e-01_jprb, 0.550609e-01_jprb, 0.487840e-01_jprb &
2835  &, 0.430885e-01_jprb, 0.379260e-01_jprb, 0.332735e-01_jprb &
2836  &, 0.290917e-01_jprb, 0.253470e-01_jprb, 0.220114e-01_jprb, 0.190525e-01_jprb &
2837  &, 0.164200e-01_jprb, 0.141075e-01_jprb, 0.120801e-01_jprb &
2838  &, 0.102985e-01_jprb, 0.875817e-02_jprb, 0.741177e-02_jprb, 0.624855e-02_jprb &
2839  &, 0.525576e-02_jprb, 0.440378e-02_jprb, 0.367450e-02_jprb &
2840  &, 0.304745e-02_jprb, 0.253139e-02_jprb, 0.208672e-02_jprb, 0.171948e-02_jprb &
2841  &, 0.140198e-02_jprb, 0.113839e-02_jprb, 0.933013e-03_jprb &
2842  &, 0.754012e-03_jprb, 0.603567e-03_jprb, 0.483931e-03_jprb, 0.378058e-03_jprb &
2843  &, 0.306876e-03_jprb, 0.232397e-03_jprb, 0.195850e-03_jprb &
2844  &, 0.136529e-03_jprb, 0.117661e-03_jprb, 0.759466e-04_jprb, 0.548763e-04_jprb &
2845  &, 0.558002e-04_jprb, 0.333680e-04_jprb, 0.338418e-04_jprb &
2846  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2847  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2848  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2849  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2850  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2851  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2852  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2853  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2854  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2855  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2856  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2857  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2858  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2859  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2860  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2861  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2862  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2863  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2864 xcw( 62, :) = (/ &
2865  & 0.850236e+00_jprb, 0.814379e+00_jprb, 0.779191e+00_jprb, 0.744690e+00_jprb &
2866  &, 0.710891e+00_jprb, 0.677812e+00_jprb, 0.645469e+00_jprb &
2867  &, 0.613878e+00_jprb, 0.583053e+00_jprb, 0.553010e+00_jprb, 0.523763e+00_jprb &
2868  &, 0.495325e+00_jprb, 0.467709e+00_jprb, 0.440928e+00_jprb &
2869  &, 0.414994e+00_jprb, 0.389915e+00_jprb, 0.365700e+00_jprb, 0.342360e+00_jprb &
2870  &, 0.319898e+00_jprb, 0.298322e+00_jprb, 0.277635e+00_jprb &
2871  &, 0.257837e+00_jprb, 0.238934e+00_jprb, 0.220920e+00_jprb, 0.203788e+00_jprb &
2872  &, 0.187542e+00_jprb, 0.172167e+00_jprb, 0.157653e+00_jprb &
2873  &, 0.143986e+00_jprb, 0.131160e+00_jprb, 0.119147e+00_jprb, 0.107935e+00_jprb &
2874  &, 0.974942e-01_jprb, 0.878117e-01_jprb, 0.788532e-01_jprb &
2875  &, 0.705882e-01_jprb, 0.630001e-01_jprb, 0.560485e-01_jprb, 0.497064e-01_jprb &
2876  &, 0.439416e-01_jprb, 0.387059e-01_jprb, 0.339865e-01_jprb &
2877  &, 0.297451e-01_jprb, 0.259486e-01_jprb, 0.225466e-01_jprb, 0.195294e-01_jprb &
2878  &, 0.168599e-01_jprb, 0.144956e-01_jprb, 0.124264e-01_jprb &
2879  &, 0.106138e-01_jprb, 0.902734e-02_jprb, 0.764609e-02_jprb, 0.646027e-02_jprb &
2880  &, 0.544363e-02_jprb, 0.456651e-02_jprb, 0.381078e-02_jprb &
2881  &, 0.317143e-02_jprb, 0.262654e-02_jprb, 0.216784e-02_jprb, 0.178587e-02_jprb &
2882  &, 0.146988e-02_jprb, 0.119047e-02_jprb, 0.968514e-03_jprb &
2883  &, 0.790305e-03_jprb, 0.640665e-03_jprb, 0.502888e-03_jprb, 0.397430e-03_jprb &
2884  &, 0.326667e-03_jprb, 0.252615e-03_jprb, 0.195850e-03_jprb &
2885  &, 0.157617e-03_jprb, 0.117661e-03_jprb, 0.979287e-04_jprb, 0.773145e-04_jprb &
2886  &, 0.558002e-04_jprb, 0.333680e-04_jprb, 0.338418e-04_jprb &
2887  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2888  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2889  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2890  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2891  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2892  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2893  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2894  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2895  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2896  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2897  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2898  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2899  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2900  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2901  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2902  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2903  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2904  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2905 xcw( 63, :) = (/ &
2906  & 0.850975e+00_jprb, 0.815277e+00_jprb, 0.780237e+00_jprb, 0.745873e+00_jprb &
2907  &, 0.712201e+00_jprb, 0.679239e+00_jprb, 0.647003e+00_jprb &
2908  &, 0.615507e+00_jprb, 0.584769e+00_jprb, 0.554803e+00_jprb, 0.525622e+00_jprb &
2909  &, 0.497241e+00_jprb, 0.469673e+00_jprb, 0.442931e+00_jprb &
2910  &, 0.417025e+00_jprb, 0.391965e+00_jprb, 0.367763e+00_jprb, 0.344425e+00_jprb &
2911  &, 0.321959e+00_jprb, 0.300368e+00_jprb, 0.279662e+00_jprb &
2912  &, 0.259839e+00_jprb, 0.240901e+00_jprb, 0.222846e+00_jprb, 0.205671e+00_jprb &
2913  &, 0.189371e+00_jprb, 0.173940e+00_jprb, 0.159366e+00_jprb &
2914  &, 0.145636e+00_jprb, 0.132739e+00_jprb, 0.120658e+00_jprb, 0.109375e+00_jprb &
2915  &, 0.988622e-01_jprb, 0.891035e-01_jprb, 0.800688e-01_jprb &
2916  &, 0.717323e-01_jprb, 0.640682e-01_jprb, 0.570458e-01_jprb, 0.506287e-01_jprb &
2917  &, 0.447845e-01_jprb, 0.394962e-01_jprb, 0.347103e-01_jprb &
2918  &, 0.303985e-01_jprb, 0.265389e-01_jprb, 0.230935e-01_jprb, 0.200183e-01_jprb &
2919  &, 0.172876e-01_jprb, 0.148837e-01_jprb, 0.127728e-01_jprb &
2920  &, 0.109161e-01_jprb, 0.929652e-02_jprb, 0.789420e-02_jprb, 0.667198e-02_jprb &
2921  &, 0.561704e-02_jprb, 0.471445e-02_jprb, 0.394706e-02_jprb &
2922  &, 0.329541e-02_jprb, 0.272168e-02_jprb, 0.224896e-02_jprb, 0.185226e-02_jprb &
2923  &, 0.152081e-02_jprb, 0.124255e-02_jprb, 0.102176e-02_jprb &
2924  &, 0.826598e-03_jprb, 0.659214e-03_jprb, 0.540803e-03_jprb, 0.436173e-03_jprb &
2925  &, 0.346459e-03_jprb, 0.272833e-03_jprb, 0.216500e-03_jprb &
2926  &, 0.157617e-03_jprb, 0.117661e-03_jprb, 0.979287e-04_jprb, 0.773145e-04_jprb &
2927  &, 0.558002e-04_jprb, 0.333680e-04_jprb, 0.338418e-04_jprb &
2928  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2929  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2930  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2931  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2932  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2933  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2934  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2935  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2936  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2937  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2938  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2939  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2940  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2941  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2942  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2943  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2944  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2945  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
2946 
2947 IF (lhook) CALL dr_hook('SU_MCICA:PART9',1,zhook_handle)
2948 END SUBROUTINE part9
2949 
2950 #ifdef VPP5000
2951 !OCL SCALAR
2952 #endif
2953 !option! -Nv -NO
2954 #ifdef RS6K
2955 @process nooptimize
2956 #endif
2957 !pgi$r opt=0
2958 SUBROUTINE part10
2959 
2960 REAL(KIND=JPRB) :: ZHOOK_HANDLE
2961 IF (lhook) CALL dr_hook('SU_MCICA:PART10',0,zhook_handle)
2962 
2963 xcw( 64, :) = (/ &
2964  & 0.851705e+00_jprb, 0.816164e+00_jprb, 0.781270e+00_jprb, 0.747042e+00_jprb &
2965  &, 0.713496e+00_jprb, 0.680650e+00_jprb, 0.648519e+00_jprb &
2966  &, 0.617120e+00_jprb, 0.586468e+00_jprb, 0.556577e+00_jprb, 0.527463e+00_jprb &
2967  &, 0.499139e+00_jprb, 0.471618e+00_jprb, 0.444914e+00_jprb &
2968  &, 0.419038e+00_jprb, 0.393999e+00_jprb, 0.369807e+00_jprb, 0.346473e+00_jprb &
2969  &, 0.324002e+00_jprb, 0.302402e+00_jprb, 0.281675e+00_jprb &
2970  &, 0.261825e+00_jprb, 0.242855e+00_jprb, 0.224758e+00_jprb, 0.207540e+00_jprb &
2971  &, 0.191190e+00_jprb, 0.175706e+00_jprb, 0.161072e+00_jprb &
2972  &, 0.147279e+00_jprb, 0.134318e+00_jprb, 0.122165e+00_jprb, 0.110810e+00_jprb &
2973  &, 0.100226e+00_jprb, 0.903910e-01_jprb, 0.812844e-01_jprb &
2974  &, 0.728763e-01_jprb, 0.651364e-01_jprb, 0.580334e-01_jprb, 0.515511e-01_jprb &
2975  &, 0.456376e-01_jprb, 0.402760e-01_jprb, 0.354341e-01_jprb &
2976  &, 0.310630e-01_jprb, 0.271406e-01_jprb, 0.236287e-01_jprb, 0.205072e-01_jprb &
2977  &, 0.177397e-01_jprb, 0.152843e-01_jprb, 0.131191e-01_jprb &
2978  &, 0.112314e-01_jprb, 0.957915e-02_jprb, 0.812852e-02_jprb, 0.688370e-02_jprb &
2979  &, 0.580491e-02_jprb, 0.487718e-02_jprb, 0.408335e-02_jprb &
2980  &, 0.340389e-02_jprb, 0.283269e-02_jprb, 0.234631e-02_jprb, 0.193524e-02_jprb &
2981  &, 0.158871e-02_jprb, 0.129463e-02_jprb, 0.105727e-02_jprb &
2982  &, 0.862891e-03_jprb, 0.696311e-03_jprb, 0.559760e-03_jprb, 0.455544e-03_jprb &
2983  &, 0.366251e-03_jprb, 0.293050e-03_jprb, 0.216500e-03_jprb &
2984  &, 0.178705e-03_jprb, 0.139193e-03_jprb, 0.979287e-04_jprb, 0.773145e-04_jprb &
2985  &, 0.558002e-04_jprb, 0.333680e-04_jprb, 0.338418e-04_jprb &
2986  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2987  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2988  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2989  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2990  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2991  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2992  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2993  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2994  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2995  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2996  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2997  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2998  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
2999  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3000  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3001  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3002  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3003  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3004 xcw( 65, :) = (/ &
3005  & 0.852427e+00_jprb, 0.817041e+00_jprb, 0.782291e+00_jprb, 0.748198e+00_jprb &
3006  &, 0.714777e+00_jprb, 0.682046e+00_jprb, 0.650020e+00_jprb &
3007  &, 0.618715e+00_jprb, 0.588148e+00_jprb, 0.558334e+00_jprb, 0.529285e+00_jprb &
3008  &, 0.501018e+00_jprb, 0.473545e+00_jprb, 0.446879e+00_jprb &
3009  &, 0.421032e+00_jprb, 0.396013e+00_jprb, 0.371835e+00_jprb, 0.348506e+00_jprb &
3010  &, 0.326032e+00_jprb, 0.304420e+00_jprb, 0.283673e+00_jprb &
3011  &, 0.263798e+00_jprb, 0.244795e+00_jprb, 0.226663e+00_jprb, 0.209401e+00_jprb &
3012  &, 0.193001e+00_jprb, 0.177460e+00_jprb, 0.162770e+00_jprb &
3013  &, 0.148917e+00_jprb, 0.135889e+00_jprb, 0.123669e+00_jprb, 0.112241e+00_jprb &
3014  &, 0.101585e+00_jprb, 0.916828e-01_jprb, 0.825000e-01_jprb &
3015  &, 0.740111e-01_jprb, 0.662045e-01_jprb, 0.590308e-01_jprb, 0.524734e-01_jprb &
3016  &, 0.465011e-01_jprb, 0.410664e-01_jprb, 0.361580e-01_jprb &
3017  &, 0.317275e-01_jprb, 0.277422e-01_jprb, 0.241755e-01_jprb, 0.209961e-01_jprb &
3018  &, 0.181796e-01_jprb, 0.156850e-01_jprb, 0.134783e-01_jprb &
3019  &, 0.115468e-01_jprb, 0.984832e-02_jprb, 0.837662e-02_jprb, 0.709541e-02_jprb &
3020  &, 0.599277e-02_jprb, 0.503991e-02_jprb, 0.423477e-02_jprb &
3021  &, 0.352786e-02_jprb, 0.294369e-02_jprb, 0.244366e-02_jprb, 0.201823e-02_jprb &
3022  &, 0.165661e-02_jprb, 0.136407e-02_jprb, 0.111052e-02_jprb &
3023  &, 0.899185e-03_jprb, 0.733409e-03_jprb, 0.578718e-03_jprb, 0.474916e-03_jprb &
3024  &, 0.386043e-03_jprb, 0.293050e-03_jprb, 0.237150e-03_jprb &
3025  &, 0.178705e-03_jprb, 0.139193e-03_jprb, 0.119911e-03_jprb, 0.773145e-04_jprb &
3026  &, 0.558002e-04_jprb, 0.567360e-04_jprb, 0.338418e-04_jprb &
3027  &, 0.343217e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3028  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3029  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3030  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3031  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3032  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3033  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3034  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3035  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3036  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3037  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3038  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3039  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3040  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3041  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3042  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3043  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3044  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3045 xcw( 66, :) = (/ &
3046  & 0.853141e+00_jprb, 0.817907e+00_jprb, 0.783301e+00_jprb, 0.749342e+00_jprb &
3047  &, 0.716044e+00_jprb, 0.683427e+00_jprb, 0.651504e+00_jprb &
3048  &, 0.620294e+00_jprb, 0.589812e+00_jprb, 0.560072e+00_jprb, 0.531090e+00_jprb &
3049  &, 0.502878e+00_jprb, 0.475453e+00_jprb, 0.448827e+00_jprb &
3050  &, 0.423008e+00_jprb, 0.398012e+00_jprb, 0.373847e+00_jprb, 0.350521e+00_jprb &
3051  &, 0.328044e+00_jprb, 0.306421e+00_jprb, 0.285657e+00_jprb &
3052  &, 0.265758e+00_jprb, 0.246725e+00_jprb, 0.228555e+00_jprb, 0.211248e+00_jprb &
3053  &, 0.194802e+00_jprb, 0.179211e+00_jprb, 0.164461e+00_jprb &
3054  &, 0.150547e+00_jprb, 0.137455e+00_jprb, 0.125172e+00_jprb, 0.113673e+00_jprb &
3055  &, 0.102949e+00_jprb, 0.929702e-01_jprb, 0.837156e-01_jprb &
3056  &, 0.751552e-01_jprb, 0.672726e-01_jprb, 0.600282e-01_jprb, 0.534058e-01_jprb &
3057  &, 0.473542e-01_jprb, 0.418673e-01_jprb, 0.368818e-01_jprb &
3058  &, 0.323919e-01_jprb, 0.283552e-01_jprb, 0.247340e-01_jprb, 0.214969e-01_jprb &
3059  &, 0.186317e-01_jprb, 0.160856e-01_jprb, 0.138374e-01_jprb &
3060  &, 0.118621e-01_jprb, 0.101310e-01_jprb, 0.862473e-02_jprb, 0.732124e-02_jprb &
3061  &, 0.619509e-02_jprb, 0.521744e-02_jprb, 0.437105e-02_jprb &
3062  &, 0.365184e-02_jprb, 0.305470e-02_jprb, 0.252478e-02_jprb, 0.208461e-02_jprb &
3063  &, 0.172451e-02_jprb, 0.141615e-02_jprb, 0.116377e-02_jprb &
3064  &, 0.935478e-03_jprb, 0.770507e-03_jprb, 0.616632e-03_jprb, 0.494287e-03_jprb &
3065  &, 0.386043e-03_jprb, 0.313268e-03_jprb, 0.257800e-03_jprb &
3066  &, 0.199793e-03_jprb, 0.160725e-03_jprb, 0.119911e-03_jprb, 0.997526e-04_jprb &
3067  &, 0.787003e-04_jprb, 0.567360e-04_jprb, 0.338418e-04_jprb &
3068  &, 0.343217e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3069  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3070  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3071  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3072  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3073  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3074  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3075  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3076  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3077  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3078  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3079  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3080  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3081  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3082  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3083  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3084  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3085  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3086 xcw( 67, :) = (/ &
3087  & 0.853846e+00_jprb, 0.818764e+00_jprb, 0.784300e+00_jprb, 0.750473e+00_jprb &
3088  &, 0.717298e+00_jprb, 0.684793e+00_jprb, 0.652974e+00_jprb &
3089  &, 0.621857e+00_jprb, 0.591459e+00_jprb, 0.561794e+00_jprb, 0.532878e+00_jprb &
3090  &, 0.504724e+00_jprb, 0.477345e+00_jprb, 0.450756e+00_jprb &
3091  &, 0.424968e+00_jprb, 0.399993e+00_jprb, 0.375842e+00_jprb, 0.352522e+00_jprb &
3092  &, 0.330042e+00_jprb, 0.308410e+00_jprb, 0.287628e+00_jprb &
3093  &, 0.267707e+00_jprb, 0.248641e+00_jprb, 0.230436e+00_jprb, 0.213088e+00_jprb &
3094  &, 0.196595e+00_jprb, 0.180951e+00_jprb, 0.166148e+00_jprb &
3095  &, 0.152174e+00_jprb, 0.139018e+00_jprb, 0.126666e+00_jprb, 0.115100e+00_jprb &
3096  &, 0.104304e+00_jprb, 0.942577e-01_jprb, 0.849313e-01_jprb &
3097  &, 0.762992e-01_jprb, 0.683407e-01_jprb, 0.610353e-01_jprb, 0.543381e-01_jprb &
3098  &, 0.482176e-01_jprb, 0.426577e-01_jprb, 0.376164e-01_jprb &
3099  &, 0.330564e-01_jprb, 0.289568e-01_jprb, 0.252808e-01_jprb, 0.219977e-01_jprb &
3100  &, 0.190838e-01_jprb, 0.164862e-01_jprb, 0.141966e-01_jprb &
3101  &, 0.121906e-01_jprb, 0.104270e-01_jprb, 0.888662e-02_jprb, 0.754707e-02_jprb &
3102  &, 0.638295e-02_jprb, 0.538017e-02_jprb, 0.452248e-02_jprb &
3103  &, 0.379132e-02_jprb, 0.314985e-02_jprb, 0.262212e-02_jprb, 0.216760e-02_jprb &
3104  &, 0.179242e-02_jprb, 0.146823e-02_jprb, 0.119927e-02_jprb &
3105  &, 0.989918e-03_jprb, 0.789056e-03_jprb, 0.635589e-03_jprb, 0.513659e-03_jprb &
3106  &, 0.405834e-03_jprb, 0.333486e-03_jprb, 0.257800e-03_jprb &
3107  &, 0.199793e-03_jprb, 0.160725e-03_jprb, 0.119911e-03_jprb, 0.997526e-04_jprb &
3108  &, 0.787003e-04_jprb, 0.567360e-04_jprb, 0.338418e-04_jprb &
3109  &, 0.343217e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3110  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3111  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3112  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3113  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3114  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3115  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3116  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3117  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3118  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3119  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3120  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3121  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3122  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3123  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3124  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3125  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3126  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3127 xcw( 68, :) = (/ &
3128  & 0.854543e+00_jprb, 0.819611e+00_jprb, 0.785288e+00_jprb, 0.751592e+00_jprb &
3129  &, 0.718538e+00_jprb, 0.686145e+00_jprb, 0.654427e+00_jprb &
3130  &, 0.623404e+00_jprb, 0.593090e+00_jprb, 0.563499e+00_jprb, 0.534648e+00_jprb &
3131  &, 0.506550e+00_jprb, 0.479220e+00_jprb, 0.452669e+00_jprb &
3132  &, 0.426912e+00_jprb, 0.401960e+00_jprb, 0.377821e+00_jprb, 0.354507e+00_jprb &
3133  &, 0.332027e+00_jprb, 0.310384e+00_jprb, 0.289587e+00_jprb &
3134  &, 0.269643e+00_jprb, 0.250550e+00_jprb, 0.232306e+00_jprb, 0.214918e+00_jprb &
3135  &, 0.198381e+00_jprb, 0.182683e+00_jprb, 0.167823e+00_jprb &
3136  &, 0.153793e+00_jprb, 0.140573e+00_jprb, 0.128157e+00_jprb, 0.116527e+00_jprb &
3137  &, 0.105659e+00_jprb, 0.955407e-01_jprb, 0.861424e-01_jprb &
3138  &, 0.774433e-01_jprb, 0.694183e-01_jprb, 0.620327e-01_jprb, 0.552705e-01_jprb &
3139  &, 0.490810e-01_jprb, 0.434586e-01_jprb, 0.383510e-01_jprb &
3140  &, 0.337320e-01_jprb, 0.295812e-01_jprb, 0.258509e-01_jprb, 0.225104e-01_jprb &
3141  &, 0.195359e-01_jprb, 0.168994e-01_jprb, 0.145685e-01_jprb &
3142  &, 0.125191e-01_jprb, 0.107097e-01_jprb, 0.914850e-02_jprb, 0.777290e-02_jprb &
3143  &, 0.658527e-02_jprb, 0.555770e-02_jprb, 0.467391e-02_jprb &
3144  &, 0.391529e-02_jprb, 0.327671e-02_jprb, 0.271947e-02_jprb, 0.225058e-02_jprb &
3145  &, 0.186032e-02_jprb, 0.153767e-02_jprb, 0.125252e-02_jprb &
3146  &, 0.102621e-02_jprb, 0.826154e-03_jprb, 0.673504e-03_jprb, 0.552402e-03_jprb &
3147  &, 0.445418e-03_jprb, 0.353704e-03_jprb, 0.278450e-03_jprb &
3148  &, 0.220881e-03_jprb, 0.160725e-03_jprb, 0.141893e-03_jprb, 0.997526e-04_jprb &
3149  &, 0.787003e-04_jprb, 0.567360e-04_jprb, 0.338418e-04_jprb &
3150  &, 0.343217e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3151  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3152  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3153  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3154  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3155  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3156  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3157  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3158  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3159  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3160  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3161  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3162  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3163  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3164  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3165  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3166  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3167  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3168 xcw( 69, :) = (/ &
3169  & 0.855233e+00_jprb, 0.820450e+00_jprb, 0.786266e+00_jprb, 0.752699e+00_jprb &
3170  &, 0.719766e+00_jprb, 0.687483e+00_jprb, 0.655868e+00_jprb &
3171  &, 0.624937e+00_jprb, 0.594705e+00_jprb, 0.565189e+00_jprb, 0.536403e+00_jprb &
3172  &, 0.508361e+00_jprb, 0.481078e+00_jprb, 0.454566e+00_jprb &
3173  &, 0.428840e+00_jprb, 0.403909e+00_jprb, 0.379785e+00_jprb, 0.356477e+00_jprb &
3174  &, 0.333995e+00_jprb, 0.312344e+00_jprb, 0.291532e+00_jprb &
3175  &, 0.271566e+00_jprb, 0.252443e+00_jprb, 0.234170e+00_jprb, 0.216740e+00_jprb &
3176  &, 0.200156e+00_jprb, 0.184408e+00_jprb, 0.169494e+00_jprb &
3177  &, 0.155408e+00_jprb, 0.142127e+00_jprb, 0.129648e+00_jprb, 0.117950e+00_jprb &
3178  &, 0.107014e+00_jprb, 0.968281e-01_jprb, 0.873580e-01_jprb &
3179  &, 0.785873e-01_jprb, 0.704865e-01_jprb, 0.630398e-01_jprb, 0.562029e-01_jprb &
3180  &, 0.499547e-01_jprb, 0.442594e-01_jprb, 0.390857e-01_jprb &
3181  &, 0.344075e-01_jprb, 0.301942e-01_jprb, 0.264094e-01_jprb, 0.230231e-01_jprb &
3182  &, 0.200002e-01_jprb, 0.173126e-01_jprb, 0.149405e-01_jprb &
3183  &, 0.128476e-01_jprb, 0.110058e-01_jprb, 0.939661e-02_jprb, 0.799873e-02_jprb &
3184  &, 0.678758e-02_jprb, 0.573523e-02_jprb, 0.482533e-02_jprb &
3185  &, 0.405477e-02_jprb, 0.338771e-02_jprb, 0.281682e-02_jprb, 0.233357e-02_jprb &
3186  &, 0.192822e-02_jprb, 0.158975e-02_jprb, 0.130577e-02_jprb &
3187  &, 0.106250e-02_jprb, 0.863252e-03_jprb, 0.711418e-03_jprb, 0.571773e-03_jprb &
3188  &, 0.465209e-03_jprb, 0.373922e-03_jprb, 0.299100e-03_jprb &
3189  &, 0.220881e-03_jprb, 0.182257e-03_jprb, 0.141893e-03_jprb, 0.997526e-04_jprb &
3190  &, 0.787003e-04_jprb, 0.567360e-04_jprb, 0.576837e-04_jprb &
3191  &, 0.343217e-04_jprb, 0.348074e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3192  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3193  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3194  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3195  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3196  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3197  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3198  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3199  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3200  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3201  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3202  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3203  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3204  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3205  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3206  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3207  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3208  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3209 xcw( 70, :) = (/ &
3210  & 0.855916e+00_jprb, 0.821280e+00_jprb, 0.787233e+00_jprb, 0.753795e+00_jprb &
3211  &, 0.720981e+00_jprb, 0.688808e+00_jprb, 0.657294e+00_jprb &
3212  &, 0.626455e+00_jprb, 0.596305e+00_jprb, 0.566863e+00_jprb, 0.538142e+00_jprb &
3213  &, 0.510156e+00_jprb, 0.482920e+00_jprb, 0.456448e+00_jprb &
3214  &, 0.430752e+00_jprb, 0.405843e+00_jprb, 0.381734e+00_jprb, 0.358434e+00_jprb &
3215  &, 0.335950e+00_jprb, 0.314292e+00_jprb, 0.293468e+00_jprb &
3216  &, 0.273476e+00_jprb, 0.254328e+00_jprb, 0.236020e+00_jprb, 0.218552e+00_jprb &
3217  &, 0.201924e+00_jprb, 0.186129e+00_jprb, 0.171162e+00_jprb &
3218  &, 0.157015e+00_jprb, 0.143674e+00_jprb, 0.131130e+00_jprb, 0.119368e+00_jprb &
3219  &, 0.108369e+00_jprb, 0.981111e-01_jprb, 0.885736e-01_jprb &
3220  &, 0.797314e-01_jprb, 0.715641e-01_jprb, 0.640470e-01_jprb, 0.571353e-01_jprb &
3221  &, 0.508284e-01_jprb, 0.450603e-01_jprb, 0.398311e-01_jprb &
3222  &, 0.350941e-01_jprb, 0.308185e-01_jprb, 0.269795e-01_jprb, 0.235359e-01_jprb &
3223  &, 0.204645e-01_jprb, 0.177382e-01_jprb, 0.153125e-01_jprb &
3224  &, 0.131893e-01_jprb, 0.113153e-01_jprb, 0.967228e-02_jprb, 0.823868e-02_jprb &
3225  &, 0.698990e-02_jprb, 0.591275e-02_jprb, 0.497676e-02_jprb &
3226  &, 0.417875e-02_jprb, 0.349872e-02_jprb, 0.291416e-02_jprb, 0.243315e-02_jprb &
3227  &, 0.201310e-02_jprb, 0.165919e-02_jprb, 0.135902e-02_jprb &
3228  &, 0.111694e-02_jprb, 0.900350e-03_jprb, 0.730375e-03_jprb, 0.591145e-03_jprb &
3229  &, 0.485001e-03_jprb, 0.394140e-03_jprb, 0.299100e-03_jprb &
3230  &, 0.241969e-03_jprb, 0.182257e-03_jprb, 0.141893e-03_jprb, 0.122191e-03_jprb &
3231  &, 0.787003e-04_jprb, 0.567360e-04_jprb, 0.576837e-04_jprb &
3232  &, 0.343217e-04_jprb, 0.348074e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3233  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3234  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3235  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3236  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3237  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3238  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3239  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3240  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3241  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3242  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3243  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3244  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3245  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3246  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3247  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3248  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3249  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3250 
3251 IF (lhook) CALL dr_hook('SU_MCICA:PART10',1,zhook_handle)
3252 END SUBROUTINE part10
3253 
3254 #ifdef VPP5000
3255 !OCL SCALAR
3256 #endif
3257 !option! -Nv -NO
3258 #ifdef RS6K
3259 @process nooptimize
3260 #endif
3261 !pgi$r opt=0
3262 SUBROUTINE part11
3263 
3264 REAL(KIND=JPRB) :: ZHOOK_HANDLE
3265 IF (lhook) CALL dr_hook('SU_MCICA:PART11',0,zhook_handle)
3266 
3267 xcw( 71, :) = (/ &
3268  & 0.856591e+00_jprb, 0.822100e+00_jprb, 0.788191e+00_jprb, 0.754880e+00_jprb &
3269  &, 0.722184e+00_jprb, 0.690121e+00_jprb, 0.658706e+00_jprb &
3270  &, 0.627958e+00_jprb, 0.597891e+00_jprb, 0.568522e+00_jprb, 0.539865e+00_jprb &
3271  &, 0.511934e+00_jprb, 0.484747e+00_jprb, 0.458314e+00_jprb &
3272  &, 0.432649e+00_jprb, 0.407763e+00_jprb, 0.383668e+00_jprb, 0.360376e+00_jprb &
3273  &, 0.337893e+00_jprb, 0.316227e+00_jprb, 0.295388e+00_jprb &
3274  &, 0.275379e+00_jprb, 0.256200e+00_jprb, 0.237859e+00_jprb, 0.220353e+00_jprb &
3275  &, 0.203681e+00_jprb, 0.187839e+00_jprb, 0.172822e+00_jprb &
3276  &, 0.158618e+00_jprb, 0.145221e+00_jprb, 0.132613e+00_jprb, 0.120787e+00_jprb &
3277  &, 0.109720e+00_jprb, 0.993941e-01_jprb, 0.897892e-01_jprb &
3278  &, 0.808755e-01_jprb, 0.726418e-01_jprb, 0.650541e-01_jprb, 0.580776e-01_jprb &
3279  &, 0.516919e-01_jprb, 0.458718e-01_jprb, 0.405765e-01_jprb &
3280  &, 0.357807e-01_jprb, 0.314428e-01_jprb, 0.275496e-01_jprb, 0.240605e-01_jprb &
3281  &, 0.209288e-01_jprb, 0.181639e-01_jprb, 0.156973e-01_jprb &
3282  &, 0.135178e-01_jprb, 0.116114e-01_jprb, 0.993417e-02_jprb, 0.846451e-02_jprb &
3283  &, 0.719222e-02_jprb, 0.609028e-02_jprb, 0.514332e-02_jprb &
3284  &, 0.431822e-02_jprb, 0.362558e-02_jprb, 0.302773e-02_jprb, 0.251613e-02_jprb &
3285  &, 0.208100e-02_jprb, 0.172862e-02_jprb, 0.141227e-02_jprb &
3286  &, 0.115324e-02_jprb, 0.955997e-03_jprb, 0.768290e-03_jprb, 0.629888e-03_jprb &
3287  &, 0.504793e-03_jprb, 0.394140e-03_jprb, 0.319750e-03_jprb &
3288  &, 0.263057e-03_jprb, 0.203790e-03_jprb, 0.163875e-03_jprb, 0.122191e-03_jprb &
3289  &, 0.101600e-03_jprb, 0.801040e-04_jprb, 0.576837e-04_jprb &
3290  &, 0.343217e-04_jprb, 0.348074e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3291  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3292  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3293  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3294  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3295  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3296  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3297  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3298  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3299  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3300  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3301  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3302  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3303  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3304  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3305  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3306  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3307  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3308 xcw( 72, :) = (/ &
3309  & 0.857259e+00_jprb, 0.822913e+00_jprb, 0.789139e+00_jprb, 0.755954e+00_jprb &
3310  &, 0.723375e+00_jprb, 0.691420e+00_jprb, 0.660105e+00_jprb &
3311  &, 0.629447e+00_jprb, 0.599461e+00_jprb, 0.570165e+00_jprb, 0.541573e+00_jprb &
3312  &, 0.513699e+00_jprb, 0.486558e+00_jprb, 0.460165e+00_jprb &
3313  &, 0.434531e+00_jprb, 0.409668e+00_jprb, 0.385589e+00_jprb, 0.362304e+00_jprb &
3314  &, 0.339821e+00_jprb, 0.318150e+00_jprb, 0.297298e+00_jprb &
3315  &, 0.277266e+00_jprb, 0.258066e+00_jprb, 0.239691e+00_jprb, 0.222147e+00_jprb &
3316  &, 0.205434e+00_jprb, 0.189545e+00_jprb, 0.174474e+00_jprb &
3317  &, 0.160217e+00_jprb, 0.146759e+00_jprb, 0.134091e+00_jprb, 0.122201e+00_jprb &
3318  &, 0.111066e+00_jprb, 0.100673e+00_jprb, 0.910003e-01_jprb &
3319  &, 0.820195e-01_jprb, 0.737194e-01_jprb, 0.660613e-01_jprb, 0.590200e-01_jprb &
3320  &, 0.525758e-01_jprb, 0.466832e-01_jprb, 0.413219e-01_jprb &
3321  &, 0.364674e-01_jprb, 0.320785e-01_jprb, 0.281197e-01_jprb, 0.245732e-01_jprb &
3322  &, 0.214054e-01_jprb, 0.185896e-01_jprb, 0.160821e-01_jprb &
3323  &, 0.138725e-01_jprb, 0.119210e-01_jprb, 0.102098e-01_jprb, 0.870445e-02_jprb &
3324  &, 0.740898e-02_jprb, 0.628260e-02_jprb, 0.530989e-02_jprb &
3325  &, 0.445770e-02_jprb, 0.373658e-02_jprb, 0.312508e-02_jprb, 0.259912e-02_jprb &
3326  &, 0.216588e-02_jprb, 0.178070e-02_jprb, 0.146552e-02_jprb &
3327  &, 0.120768e-02_jprb, 0.993095e-03_jprb, 0.806204e-03_jprb, 0.649259e-03_jprb &
3328  &, 0.524585e-03_jprb, 0.414358e-03_jprb, 0.340400e-03_jprb &
3329  &, 0.263057e-03_jprb, 0.203790e-03_jprb, 0.163875e-03_jprb, 0.122191e-03_jprb &
3330  &, 0.101600e-03_jprb, 0.801040e-04_jprb, 0.576837e-04_jprb &
3331  &, 0.343217e-04_jprb, 0.348074e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3332  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3333  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3334  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3335  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3336  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3337  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3338  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3339  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3340  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3341  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3342  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3343  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3344  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3345  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3346  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3347  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3348  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3349 xcw( 73, :) = (/ &
3350  & 0.857920e+00_jprb, 0.823718e+00_jprb, 0.790077e+00_jprb, 0.757017e+00_jprb &
3351  &, 0.724554e+00_jprb, 0.692707e+00_jprb, 0.661491e+00_jprb &
3352  &, 0.630923e+00_jprb, 0.601019e+00_jprb, 0.571795e+00_jprb, 0.543267e+00_jprb &
3353  &, 0.515448e+00_jprb, 0.488355e+00_jprb, 0.462000e+00_jprb &
3354  &, 0.436397e+00_jprb, 0.411559e+00_jprb, 0.387496e+00_jprb, 0.364219e+00_jprb &
3355  &, 0.341737e+00_jprb, 0.320060e+00_jprb, 0.299194e+00_jprb &
3356  &, 0.279146e+00_jprb, 0.259918e+00_jprb, 0.241513e+00_jprb, 0.223934e+00_jprb &
3357  &, 0.207180e+00_jprb, 0.191244e+00_jprb, 0.176123e+00_jprb &
3358  &, 0.161808e+00_jprb, 0.148294e+00_jprb, 0.135566e+00_jprb, 0.123611e+00_jprb &
3359  &, 0.112417e+00_jprb, 0.101956e+00_jprb, 0.922159e-01_jprb &
3360  &, 0.831729e-01_jprb, 0.747971e-01_jprb, 0.670684e-01_jprb, 0.599624e-01_jprb &
3361  &, 0.534495e-01_jprb, 0.474946e-01_jprb, 0.420782e-01_jprb &
3362  &, 0.371540e-01_jprb, 0.327142e-01_jprb, 0.287015e-01_jprb, 0.251098e-01_jprb &
3363  &, 0.218819e-01_jprb, 0.190153e-01_jprb, 0.164669e-01_jprb &
3364  &, 0.142142e-01_jprb, 0.122305e-01_jprb, 0.104855e-01_jprb, 0.895851e-02_jprb &
3365  &, 0.762575e-02_jprb, 0.647492e-02_jprb, 0.546132e-02_jprb &
3366  &, 0.461267e-02_jprb, 0.386345e-02_jprb, 0.323865e-02_jprb, 0.269870e-02_jprb &
3367  &, 0.223378e-02_jprb, 0.185014e-02_jprb, 0.153652e-02_jprb &
3368  &, 0.126212e-02_jprb, 0.103019e-02_jprb, 0.844119e-03_jprb, 0.688002e-03_jprb &
3369  &, 0.544376e-03_jprb, 0.434576e-03_jprb, 0.361050e-03_jprb &
3370  &, 0.284145e-03_jprb, 0.225322e-03_jprb, 0.185857e-03_jprb, 0.144629e-03_jprb &
3371  &, 0.101600e-03_jprb, 0.801040e-04_jprb, 0.576837e-04_jprb &
3372  &, 0.343217e-04_jprb, 0.348074e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3373  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3374  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3375  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3376  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3377  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3378  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3379  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3380  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3381  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3382  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3383  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3384  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3385  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3386  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3387  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3388  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3389  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3390 xcw( 74, :) = (/ &
3391  & 0.858575e+00_jprb, 0.824514e+00_jprb, 0.791005e+00_jprb, 0.758070e+00_jprb &
3392  &, 0.725723e+00_jprb, 0.693982e+00_jprb, 0.662864e+00_jprb &
3393  &, 0.632385e+00_jprb, 0.602562e+00_jprb, 0.573410e+00_jprb, 0.544946e+00_jprb &
3394  &, 0.517183e+00_jprb, 0.490137e+00_jprb, 0.463823e+00_jprb &
3395  &, 0.438251e+00_jprb, 0.413435e+00_jprb, 0.389389e+00_jprb, 0.366120e+00_jprb &
3396  &, 0.343641e+00_jprb, 0.321957e+00_jprb, 0.301081e+00_jprb &
3397  &, 0.281012e+00_jprb, 0.261763e+00_jprb, 0.243329e+00_jprb, 0.225710e+00_jprb &
3398  &, 0.208915e+00_jprb, 0.192935e+00_jprb, 0.177764e+00_jprb &
3399  &, 0.163396e+00_jprb, 0.149825e+00_jprb, 0.137040e+00_jprb, 0.125022e+00_jprb &
3400  &, 0.113759e+00_jprb, 0.103234e+00_jprb, 0.934270e-01_jprb &
3401  &, 0.843169e-01_jprb, 0.758747e-01_jprb, 0.680854e-01_jprb, 0.609149e-01_jprb &
3402  &, 0.543335e-01_jprb, 0.483166e-01_jprb, 0.428344e-01_jprb &
3403  &, 0.378517e-01_jprb, 0.333499e-01_jprb, 0.292832e-01_jprb, 0.256345e-01_jprb &
3404  &, 0.223707e-01_jprb, 0.194535e-01_jprb, 0.168517e-01_jprb &
3405  &, 0.145689e-01_jprb, 0.125401e-01_jprb, 0.107612e-01_jprb, 0.919845e-02_jprb &
3406  &, 0.784252e-02_jprb, 0.665245e-02_jprb, 0.564303e-02_jprb &
3407  &, 0.475214e-02_jprb, 0.399031e-02_jprb, 0.335222e-02_jprb, 0.279828e-02_jprb &
3408  &, 0.231865e-02_jprb, 0.191958e-02_jprb, 0.158977e-02_jprb &
3409  &, 0.129841e-02_jprb, 0.106729e-02_jprb, 0.882033e-03_jprb, 0.707374e-03_jprb &
3410  &, 0.583960e-03_jprb, 0.454794e-03_jprb, 0.361050e-03_jprb &
3411  &, 0.305234e-03_jprb, 0.225322e-03_jprb, 0.185857e-03_jprb, 0.144629e-03_jprb &
3412  &, 0.101600e-03_jprb, 0.801040e-04_jprb, 0.576837e-04_jprb &
3413  &, 0.586433e-04_jprb, 0.348074e-04_jprb, 0.352992e-04_jprb, 0.100000e-04_jprb &
3414  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3415  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3416  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3417  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3418  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3419  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3420  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3421  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3422  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3423  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3424  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3425  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3426  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3427  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3428  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3429  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3430  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3431 xcw( 75, :) = (/ &
3432  & 0.859223e+00_jprb, 0.825302e+00_jprb, 0.791926e+00_jprb, 0.759114e+00_jprb &
3433  &, 0.726880e+00_jprb, 0.695246e+00_jprb, 0.664225e+00_jprb &
3434  &, 0.633834e+00_jprb, 0.604091e+00_jprb, 0.575012e+00_jprb, 0.546611e+00_jprb &
3435  &, 0.518904e+00_jprb, 0.491906e+00_jprb, 0.465630e+00_jprb &
3436  &, 0.440090e+00_jprb, 0.415299e+00_jprb, 0.391269e+00_jprb, 0.368010e+00_jprb &
3437  &, 0.345532e+00_jprb, 0.323844e+00_jprb, 0.302956e+00_jprb &
3438  &, 0.282872e+00_jprb, 0.263594e+00_jprb, 0.245130e+00_jprb, 0.227483e+00_jprb &
3439  &, 0.210646e+00_jprb, 0.194619e+00_jprb, 0.179401e+00_jprb &
3440  &, 0.164983e+00_jprb, 0.151355e+00_jprb, 0.138510e+00_jprb, 0.126432e+00_jprb &
3441  &, 0.115105e+00_jprb, 0.104517e+00_jprb, 0.946427e-01_jprb &
3442  &, 0.854610e-01_jprb, 0.769524e-01_jprb, 0.690925e-01_jprb, 0.618573e-01_jprb &
3443  &, 0.552175e-01_jprb, 0.491386e-01_jprb, 0.435906e-01_jprb &
3444  &, 0.385494e-01_jprb, 0.339856e-01_jprb, 0.298766e-01_jprb, 0.261710e-01_jprb &
3445  &, 0.228472e-01_jprb, 0.198917e-01_jprb, 0.172494e-01_jprb &
3446  &, 0.149106e-01_jprb, 0.128496e-01_jprb, 0.110369e-01_jprb, 0.945251e-02_jprb &
3447  &, 0.805928e-02_jprb, 0.685956e-02_jprb, 0.580960e-02_jprb &
3448  &, 0.490711e-02_jprb, 0.411717e-02_jprb, 0.344957e-02_jprb, 0.288126e-02_jprb &
3449  &, 0.240353e-02_jprb, 0.198902e-02_jprb, 0.164302e-02_jprb &
3450  &, 0.135285e-02_jprb, 0.110439e-02_jprb, 0.900991e-03_jprb, 0.746117e-03_jprb &
3451  &, 0.603751e-03_jprb, 0.475011e-03_jprb, 0.381700e-03_jprb &
3452  &, 0.305234e-03_jprb, 0.246854e-03_jprb, 0.185857e-03_jprb, 0.144629e-03_jprb &
3453  &, 0.124500e-03_jprb, 0.801040e-04_jprb, 0.576837e-04_jprb &
3454  &, 0.586433e-04_jprb, 0.348074e-04_jprb, 0.352992e-04_jprb, 0.100000e-04_jprb &
3455  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3456  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3457  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3458  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3459  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3460  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3461  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3462  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3463  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3464  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3465  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3466  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3467  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3468  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3469  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3470  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3471  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3472 xcw( 76, :) = (/ &
3473  & 0.859865e+00_jprb, 0.826083e+00_jprb, 0.792837e+00_jprb, 0.760147e+00_jprb &
3474  &, 0.728028e+00_jprb, 0.696497e+00_jprb, 0.665573e+00_jprb &
3475  &, 0.635271e+00_jprb, 0.605608e+00_jprb, 0.576600e+00_jprb, 0.548263e+00_jprb &
3476  &, 0.520611e+00_jprb, 0.493661e+00_jprb, 0.467424e+00_jprb &
3477  &, 0.441916e+00_jprb, 0.417149e+00_jprb, 0.393135e+00_jprb, 0.369886e+00_jprb &
3478  &, 0.347411e+00_jprb, 0.325719e+00_jprb, 0.304820e+00_jprb &
3479  &, 0.284719e+00_jprb, 0.265419e+00_jprb, 0.246927e+00_jprb, 0.229241e+00_jprb &
3480  &, 0.212367e+00_jprb, 0.196299e+00_jprb, 0.181031e+00_jprb &
3481  &, 0.166559e+00_jprb, 0.152878e+00_jprb, 0.139976e+00_jprb, 0.127838e+00_jprb &
3482  &, 0.116447e+00_jprb, 0.105796e+00_jprb, 0.958583e-01_jprb &
3483  &, 0.866144e-01_jprb, 0.780396e-01_jprb, 0.701094e-01_jprb, 0.628097e-01_jprb &
3484  &, 0.561015e-01_jprb, 0.499605e-01_jprb, 0.443577e-01_jprb &
3485  &, 0.392581e-01_jprb, 0.346327e-01_jprb, 0.304583e-01_jprb, 0.267076e-01_jprb &
3486  &, 0.233360e-01_jprb, 0.203299e-01_jprb, 0.176470e-01_jprb &
3487  &, 0.152785e-01_jprb, 0.131726e-01_jprb, 0.113263e-01_jprb, 0.970657e-02_jprb &
3488  &, 0.829050e-02_jprb, 0.705188e-02_jprb, 0.597616e-02_jprb &
3489  &, 0.504659e-02_jprb, 0.425989e-02_jprb, 0.356314e-02_jprb, 0.298085e-02_jprb &
3490  &, 0.248841e-02_jprb, 0.205846e-02_jprb, 0.171402e-02_jprb &
3491  &, 0.140729e-02_jprb, 0.116004e-02_jprb, 0.938905e-03_jprb, 0.765488e-03_jprb &
3492  &, 0.623543e-03_jprb, 0.515447e-03_jprb, 0.402350e-03_jprb &
3493  &, 0.326322e-03_jprb, 0.268386e-03_jprb, 0.207840e-03_jprb, 0.167067e-03_jprb &
3494  &, 0.124500e-03_jprb, 0.103472e-03_jprb, 0.815255e-04_jprb &
3495  &, 0.586433e-04_jprb, 0.348074e-04_jprb, 0.352992e-04_jprb, 0.100000e-04_jprb &
3496  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3497  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3498  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3499  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3500  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3501  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3502  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3503  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3504  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3505  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3506  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3507  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3508  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3509  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3510  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3511  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3512  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3513 xcw( 77, :) = (/ &
3514  & 0.860500e+00_jprb, 0.826857e+00_jprb, 0.793740e+00_jprb, 0.761171e+00_jprb &
3515  &, 0.729164e+00_jprb, 0.697739e+00_jprb, 0.666910e+00_jprb &
3516  &, 0.636695e+00_jprb, 0.607112e+00_jprb, 0.578175e+00_jprb, 0.549901e+00_jprb &
3517  &, 0.522305e+00_jprb, 0.495402e+00_jprb, 0.469205e+00_jprb &
3518  &, 0.443729e+00_jprb, 0.418987e+00_jprb, 0.394990e+00_jprb, 0.371751e+00_jprb &
3519  &, 0.349279e+00_jprb, 0.327585e+00_jprb, 0.306675e+00_jprb &
3520  &, 0.286556e+00_jprb, 0.267233e+00_jprb, 0.248715e+00_jprb, 0.230996e+00_jprb &
3521  &, 0.214084e+00_jprb, 0.197972e+00_jprb, 0.182656e+00_jprb &
3522  &, 0.168135e+00_jprb, 0.154401e+00_jprb, 0.141438e+00_jprb, 0.129240e+00_jprb &
3523  &, 0.117789e+00_jprb, 0.107074e+00_jprb, 0.970694e-01_jprb &
3524  &, 0.877584e-01_jprb, 0.791172e-01_jprb, 0.711263e-01_jprb, 0.637621e-01_jprb &
3525  &, 0.569855e-01_jprb, 0.507825e-01_jprb, 0.451139e-01_jprb &
3526  &, 0.399669e-01_jprb, 0.352797e-01_jprb, 0.310517e-01_jprb, 0.272442e-01_jprb &
3527  &, 0.238369e-01_jprb, 0.207806e-01_jprb, 0.180575e-01_jprb &
3528  &, 0.156333e-01_jprb, 0.134956e-01_jprb, 0.116158e-01_jprb, 0.996063e-02_jprb &
3529  &, 0.850727e-02_jprb, 0.724420e-02_jprb, 0.615788e-02_jprb &
3530  &, 0.520156e-02_jprb, 0.438675e-02_jprb, 0.369293e-02_jprb, 0.308043e-02_jprb &
3531  &, 0.257328e-02_jprb, 0.214526e-02_jprb, 0.176728e-02_jprb &
3532  &, 0.146173e-02_jprb, 0.119713e-02_jprb, 0.976820e-03_jprb, 0.804232e-03_jprb &
3533  &, 0.663127e-03_jprb, 0.535665e-03_jprb, 0.423000e-03_jprb &
3534  &, 0.347410e-03_jprb, 0.268386e-03_jprb, 0.207840e-03_jprb, 0.167067e-03_jprb &
3535  &, 0.124500e-03_jprb, 0.103472e-03_jprb, 0.815255e-04_jprb &
3536  &, 0.586433e-04_jprb, 0.348074e-04_jprb, 0.352992e-04_jprb, 0.100000e-04_jprb &
3537  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3538  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3539  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3540  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3541  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3542  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3543  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3544  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3545  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3546  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3547  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3548  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3549  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3550  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3551  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3552  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3553  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3554 
3555 IF (lhook) CALL dr_hook('SU_MCICA:PART11',1,zhook_handle)
3556 END SUBROUTINE part11
3557 
3558 #ifdef VPP5000
3559 !OCL SCALAR
3560 #endif
3561 !option! -Nv -NO
3562 #ifdef RS6K
3563 @process nooptimize
3564 #endif
3565 !pgi$r opt=0
3566 SUBROUTINE part12
3567 
3568 REAL(KIND=JPRB) :: ZHOOK_HANDLE
3569 IF (lhook) CALL dr_hook('SU_MCICA:PART12',0,zhook_handle)
3570 
3571 xcw( 78, :) = (/ &
3572  & 0.861131e+00_jprb, 0.827623e+00_jprb, 0.794635e+00_jprb, 0.762186e+00_jprb &
3573  &, 0.730291e+00_jprb, 0.698968e+00_jprb, 0.668235e+00_jprb &
3574  &, 0.638108e+00_jprb, 0.608603e+00_jprb, 0.579738e+00_jprb, 0.551527e+00_jprb &
3575  &, 0.523986e+00_jprb, 0.497129e+00_jprb, 0.470972e+00_jprb &
3576  &, 0.445529e+00_jprb, 0.420810e+00_jprb, 0.396832e+00_jprb, 0.373603e+00_jprb &
3577  &, 0.351134e+00_jprb, 0.329437e+00_jprb, 0.308517e+00_jprb &
3578  &, 0.288383e+00_jprb, 0.269041e+00_jprb, 0.250492e+00_jprb, 0.232744e+00_jprb &
3579  &, 0.215790e+00_jprb, 0.199637e+00_jprb, 0.184278e+00_jprb &
3580  &, 0.169707e+00_jprb, 0.155915e+00_jprb, 0.142896e+00_jprb, 0.130641e+00_jprb &
3581  &, 0.119132e+00_jprb, 0.108349e+00_jprb, 0.982850e-01_jprb &
3582  &, 0.889118e-01_jprb, 0.802044e-01_jprb, 0.721531e-01_jprb, 0.647145e-01_jprb &
3583  &, 0.578797e-01_jprb, 0.516150e-01_jprb, 0.458918e-01_jprb &
3584  &, 0.406757e-01_jprb, 0.359381e-01_jprb, 0.316567e-01_jprb, 0.277927e-01_jprb &
3585  &, 0.243257e-01_jprb, 0.212313e-01_jprb, 0.184551e-01_jprb &
3586  &, 0.160012e-01_jprb, 0.138186e-01_jprb, 0.119052e-01_jprb, 0.102147e-01_jprb &
3587  &, 0.873849e-02_jprb, 0.745131e-02_jprb, 0.632444e-02_jprb &
3588  &, 0.535653e-02_jprb, 0.452947e-02_jprb, 0.380650e-02_jprb, 0.319661e-02_jprb &
3589  &, 0.265816e-02_jprb, 0.221470e-02_jprb, 0.183828e-02_jprb &
3590  &, 0.151617e-02_jprb, 0.125278e-02_jprb, 0.103369e-02_jprb, 0.842974e-03_jprb &
3591  &, 0.682918e-03_jprb, 0.555883e-03_jprb, 0.443650e-03_jprb &
3592  &, 0.347410e-03_jprb, 0.289918e-03_jprb, 0.229822e-03_jprb, 0.189505e-03_jprb &
3593  &, 0.147401e-03_jprb, 0.103472e-03_jprb, 0.815255e-04_jprb &
3594  &, 0.586433e-04_jprb, 0.348074e-04_jprb, 0.352992e-04_jprb, 0.357969e-04_jprb &
3595  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3596  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3597  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3598  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3599  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3600  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3601  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3602  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3603  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3604  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3605  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3606  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3607  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3608  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3609  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3610  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3611  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3612 xcw( 79, :) = (/ &
3613  & 0.861754e+00_jprb, 0.828382e+00_jprb, 0.795521e+00_jprb, 0.763191e+00_jprb &
3614  &, 0.731407e+00_jprb, 0.700188e+00_jprb, 0.669549e+00_jprb &
3615  &, 0.639509e+00_jprb, 0.610083e+00_jprb, 0.581288e+00_jprb, 0.553140e+00_jprb &
3616  &, 0.525654e+00_jprb, 0.498845e+00_jprb, 0.472727e+00_jprb &
3617  &, 0.447316e+00_jprb, 0.422624e+00_jprb, 0.398662e+00_jprb, 0.375445e+00_jprb &
3618  &, 0.352980e+00_jprb, 0.331277e+00_jprb, 0.310349e+00_jprb &
3619  &, 0.290199e+00_jprb, 0.270838e+00_jprb, 0.252262e+00_jprb, 0.234481e+00_jprb &
3620  &, 0.217492e+00_jprb, 0.201298e+00_jprb, 0.185892e+00_jprb &
3621  &, 0.171271e+00_jprb, 0.157430e+00_jprb, 0.144354e+00_jprb, 0.132039e+00_jprb &
3622  &, 0.120469e+00_jprb, 0.109627e+00_jprb, 0.994961e-01_jprb &
3623  &, 0.900558e-01_jprb, 0.812916e-01_jprb, 0.731700e-01_jprb, 0.656770e-01_jprb &
3624  &, 0.587740e-01_jprb, 0.524475e-01_jprb, 0.466588e-01_jprb &
3625  &, 0.413845e-01_jprb, 0.365965e-01_jprb, 0.322617e-01_jprb, 0.283412e-01_jprb &
3626  &, 0.248267e-01_jprb, 0.216820e-01_jprb, 0.188656e-01_jprb &
3627  &, 0.163691e-01_jprb, 0.141551e-01_jprb, 0.121947e-01_jprb, 0.104829e-01_jprb &
3628  &, 0.896971e-02_jprb, 0.765843e-02_jprb, 0.650615e-02_jprb &
3629  &, 0.552700e-02_jprb, 0.465634e-02_jprb, 0.392007e-02_jprb, 0.329619e-02_jprb &
3630  &, 0.276001e-02_jprb, 0.230150e-02_jprb, 0.190928e-02_jprb &
3631  &, 0.157061e-02_jprb, 0.128988e-02_jprb, 0.107161e-02_jprb, 0.862346e-03_jprb &
3632  &, 0.702710e-03_jprb, 0.576101e-03_jprb, 0.464300e-03_jprb &
3633  &, 0.368498e-03_jprb, 0.289918e-03_jprb, 0.229822e-03_jprb, 0.189505e-03_jprb &
3634  &, 0.147401e-03_jprb, 0.103472e-03_jprb, 0.815255e-04_jprb &
3635  &, 0.586433e-04_jprb, 0.596149e-04_jprb, 0.352992e-04_jprb, 0.357969e-04_jprb &
3636  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3637  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3638  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3639  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3640  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3641  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3642  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3643  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3644  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3645  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3646  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3647  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3648  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3649  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3650  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3651  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3652  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3653 xcw( 80, :) = (/ &
3654  & 0.862372e+00_jprb, 0.829134e+00_jprb, 0.796400e+00_jprb, 0.764188e+00_jprb &
3655  &, 0.732514e+00_jprb, 0.701396e+00_jprb, 0.670852e+00_jprb &
3656  &, 0.640898e+00_jprb, 0.611550e+00_jprb, 0.582826e+00_jprb, 0.554741e+00_jprb &
3657  &, 0.527309e+00_jprb, 0.500547e+00_jprb, 0.474470e+00_jprb &
3658  &, 0.449091e+00_jprb, 0.424424e+00_jprb, 0.400481e+00_jprb, 0.377274e+00_jprb &
3659  &, 0.354814e+00_jprb, 0.333111e+00_jprb, 0.312174e+00_jprb &
3660  &, 0.292010e+00_jprb, 0.272626e+00_jprb, 0.254025e+00_jprb, 0.236211e+00_jprb &
3661  &, 0.219187e+00_jprb, 0.202952e+00_jprb, 0.187503e+00_jprb &
3662  &, 0.172835e+00_jprb, 0.158940e+00_jprb, 0.145812e+00_jprb, 0.133437e+00_jprb &
3663  &, 0.121807e+00_jprb, 0.110906e+00_jprb, 0.100712e+00_jprb &
3664  &, 0.912092e-01_jprb, 0.823788e-01_jprb, 0.741967e-01_jprb, 0.666294e-01_jprb &
3665  &, 0.596682e-01_jprb, 0.532801e-01_jprb, 0.474366e-01_jprb &
3666  &, 0.421043e-01_jprb, 0.372549e-01_jprb, 0.328667e-01_jprb, 0.289016e-01_jprb &
3667  &, 0.253399e-01_jprb, 0.221327e-01_jprb, 0.192888e-01_jprb &
3668  &, 0.167370e-01_jprb, 0.144916e-01_jprb, 0.124979e-01_jprb, 0.107510e-01_jprb &
3669  &, 0.921537e-02_jprb, 0.786554e-02_jprb, 0.670301e-02_jprb &
3670  &, 0.568197e-02_jprb, 0.479906e-02_jprb, 0.404987e-02_jprb, 0.339577e-02_jprb &
3671  &, 0.284489e-02_jprb, 0.237094e-02_jprb, 0.198028e-02_jprb &
3672  &, 0.162505e-02_jprb, 0.134552e-02_jprb, 0.110952e-02_jprb, 0.901089e-03_jprb &
3673  &, 0.742293e-03_jprb, 0.596319e-03_jprb, 0.484950e-03_jprb &
3674  &, 0.389586e-03_jprb, 0.311450e-03_jprb, 0.251804e-03_jprb, 0.189505e-03_jprb &
3675  &, 0.147401e-03_jprb, 0.126840e-03_jprb, 0.105367e-03_jprb &
3676  &, 0.829650e-04_jprb, 0.596149e-04_jprb, 0.352992e-04_jprb, 0.357969e-04_jprb &
3677  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3678  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3679  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3680  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3681  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3682  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3683  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3684  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3685  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3686  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3687  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3688  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3689  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3690  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3691  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3692  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3693  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3694 xcw( 81, :) = (/ &
3695  & 0.862984e+00_jprb, 0.829880e+00_jprb, 0.797271e+00_jprb, 0.765176e+00_jprb &
3696  &, 0.733612e+00_jprb, 0.702595e+00_jprb, 0.672145e+00_jprb &
3697  &, 0.642276e+00_jprb, 0.613006e+00_jprb, 0.584352e+00_jprb, 0.556329e+00_jprb &
3698  &, 0.528953e+00_jprb, 0.502238e+00_jprb, 0.476201e+00_jprb &
3699  &, 0.450854e+00_jprb, 0.426212e+00_jprb, 0.402287e+00_jprb, 0.379093e+00_jprb &
3700  &, 0.356637e+00_jprb, 0.334932e+00_jprb, 0.313987e+00_jprb &
3701  &, 0.293810e+00_jprb, 0.274406e+00_jprb, 0.255781e+00_jprb, 0.237938e+00_jprb &
3702  &, 0.220878e+00_jprb, 0.204603e+00_jprb, 0.189109e+00_jprb &
3703  &, 0.174391e+00_jprb, 0.160447e+00_jprb, 0.147262e+00_jprb, 0.134834e+00_jprb &
3704  &, 0.123145e+00_jprb, 0.112180e+00_jprb, 0.101923e+00_jprb &
3705  &, 0.923626e-01_jprb, 0.834660e-01_jprb, 0.752136e-01_jprb, 0.675918e-01_jprb &
3706  &, 0.605728e-01_jprb, 0.541126e-01_jprb, 0.482145e-01_jprb &
3707  &, 0.428242e-01_jprb, 0.379133e-01_jprb, 0.334717e-01_jprb, 0.294620e-01_jprb &
3708  &, 0.258408e-01_jprb, 0.225960e-01_jprb, 0.196993e-01_jprb &
3709  &, 0.171181e-01_jprb, 0.148281e-01_jprb, 0.128011e-01_jprb, 0.110192e-01_jprb &
3710  &, 0.944659e-02_jprb, 0.807266e-02_jprb, 0.688472e-02_jprb &
3711  &, 0.583695e-02_jprb, 0.494178e-02_jprb, 0.417966e-02_jprb, 0.351195e-02_jprb &
3712  &, 0.292977e-02_jprb, 0.245774e-02_jprb, 0.203353e-02_jprb &
3713  &, 0.169764e-02_jprb, 0.140117e-02_jprb, 0.114743e-02_jprb, 0.939832e-03_jprb &
3714  &, 0.762085e-03_jprb, 0.616537e-03_jprb, 0.505600e-03_jprb &
3715  &, 0.410674e-03_jprb, 0.332983e-03_jprb, 0.251804e-03_jprb, 0.211943e-03_jprb &
3716  &, 0.170301e-03_jprb, 0.126840e-03_jprb, 0.105367e-03_jprb &
3717  &, 0.829650e-04_jprb, 0.596149e-04_jprb, 0.352992e-04_jprb, 0.357969e-04_jprb &
3718  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3719  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3720  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3721  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3722  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3723  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3724  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3725  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3726  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3727  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3728  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3729  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3730  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3731  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3732  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3733  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3734  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3735 xcw( 82, :) = (/ &
3736  & 0.863590e+00_jprb, 0.830619e+00_jprb, 0.798134e+00_jprb, 0.766156e+00_jprb &
3737  &, 0.734699e+00_jprb, 0.703784e+00_jprb, 0.673426e+00_jprb &
3738  &, 0.643643e+00_jprb, 0.614451e+00_jprb, 0.585867e+00_jprb, 0.557906e+00_jprb &
3739  &, 0.530584e+00_jprb, 0.503917e+00_jprb, 0.477919e+00_jprb &
3740  &, 0.452606e+00_jprb, 0.427989e+00_jprb, 0.404083e+00_jprb, 0.380899e+00_jprb &
3741  &, 0.358450e+00_jprb, 0.336744e+00_jprb, 0.315793e+00_jprb &
3742  &, 0.295600e+00_jprb, 0.276176e+00_jprb, 0.257526e+00_jprb, 0.239654e+00_jprb &
3743  &, 0.222562e+00_jprb, 0.206246e+00_jprb, 0.190708e+00_jprb &
3744  &, 0.175943e+00_jprb, 0.161950e+00_jprb, 0.148711e+00_jprb, 0.136228e+00_jprb &
3745  &, 0.124478e+00_jprb, 0.113454e+00_jprb, 0.103138e+00_jprb &
3746  &, 0.935066e-01_jprb, 0.845531e-01_jprb, 0.762403e-01_jprb, 0.685543e-01_jprb &
3747  &, 0.614670e-01_jprb, 0.549556e-01_jprb, 0.489923e-01_jprb &
3748  &, 0.435440e-01_jprb, 0.385831e-01_jprb, 0.340884e-01_jprb, 0.300225e-01_jprb &
3749  &, 0.263540e-01_jprb, 0.230592e-01_jprb, 0.201226e-01_jprb &
3750  &, 0.174991e-01_jprb, 0.151645e-01_jprb, 0.131044e-01_jprb, 0.112874e-01_jprb &
3751  &, 0.969226e-02_jprb, 0.829456e-02_jprb, 0.706643e-02_jprb &
3752  &, 0.600742e-02_jprb, 0.508450e-02_jprb, 0.429324e-02_jprb, 0.361153e-02_jprb &
3753  &, 0.303162e-02_jprb, 0.252718e-02_jprb, 0.210453e-02_jprb &
3754  &, 0.175208e-02_jprb, 0.145682e-02_jprb, 0.118535e-02_jprb, 0.978575e-03_jprb &
3755  &, 0.801669e-03_jprb, 0.656972e-03_jprb, 0.526251e-03_jprb &
3756  &, 0.431762e-03_jprb, 0.332983e-03_jprb, 0.273786e-03_jprb, 0.211943e-03_jprb &
3757  &, 0.170301e-03_jprb, 0.126840e-03_jprb, 0.105367e-03_jprb &
3758  &, 0.829650e-04_jprb, 0.596149e-04_jprb, 0.352992e-04_jprb, 0.357969e-04_jprb &
3759  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3760  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3761  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3762  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3763  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3764  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3765  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3766  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3767  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3768  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3769  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3770  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3771  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3772  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3773  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3774  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3775  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3776 xcw( 83, :) = (/ &
3777  & 0.864193e+00_jprb, 0.831352e+00_jprb, 0.798990e+00_jprb, 0.767127e+00_jprb &
3778  &, 0.735779e+00_jprb, 0.704964e+00_jprb, 0.674698e+00_jprb &
3779  &, 0.644999e+00_jprb, 0.615884e+00_jprb, 0.587370e+00_jprb, 0.559471e+00_jprb &
3780  &, 0.532204e+00_jprb, 0.505583e+00_jprb, 0.479627e+00_jprb &
3781  &, 0.454346e+00_jprb, 0.429755e+00_jprb, 0.405868e+00_jprb, 0.382697e+00_jprb &
3782  &, 0.360253e+00_jprb, 0.338546e+00_jprb, 0.317586e+00_jprb &
3783  &, 0.297384e+00_jprb, 0.277940e+00_jprb, 0.259268e+00_jprb, 0.241366e+00_jprb &
3784  &, 0.224239e+00_jprb, 0.207885e+00_jprb, 0.192304e+00_jprb &
3785  &, 0.177495e+00_jprb, 0.163448e+00_jprb, 0.150161e+00_jprb, 0.137617e+00_jprb &
3786  &, 0.125812e+00_jprb, 0.114728e+00_jprb, 0.104354e+00_jprb &
3787  &, 0.946600e-01_jprb, 0.856403e-01_jprb, 0.772670e-01_jprb, 0.695267e-01_jprb &
3788  &, 0.623716e-01_jprb, 0.557987e-01_jprb, 0.497702e-01_jprb &
3789  &, 0.442638e-01_jprb, 0.392528e-01_jprb, 0.347050e-01_jprb, 0.305829e-01_jprb &
3790  &, 0.268672e-01_jprb, 0.235350e-01_jprb, 0.205459e-01_jprb &
3791  &, 0.178802e-01_jprb, 0.155144e-01_jprb, 0.134214e-01_jprb, 0.115697e-01_jprb &
3792  &, 0.993793e-02_jprb, 0.851647e-02_jprb, 0.726328e-02_jprb &
3793  &, 0.617788e-02_jprb, 0.524308e-02_jprb, 0.442303e-02_jprb, 0.372771e-02_jprb &
3794  &, 0.313347e-02_jprb, 0.261398e-02_jprb, 0.217553e-02_jprb &
3795  &, 0.180652e-02_jprb, 0.149392e-02_jprb, 0.124222e-02_jprb, 0.101732e-02_jprb &
3796  &, 0.841252e-03_jprb, 0.677190e-03_jprb, 0.546901e-03_jprb &
3797  &, 0.452850e-03_jprb, 0.354515e-03_jprb, 0.295768e-03_jprb, 0.234382e-03_jprb &
3798  &, 0.170301e-03_jprb, 0.150208e-03_jprb, 0.105367e-03_jprb &
3799  &, 0.829650e-04_jprb, 0.596149e-04_jprb, 0.605984e-04_jprb, 0.357969e-04_jprb &
3800  &, 0.363005e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3801  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3802  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3803  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3804  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3805  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3806  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3807  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3808  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3809  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3810  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3811  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3812  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3813  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3814  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3815  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3816  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3817 xcw( 84, :) = (/ &
3818  & 0.864789e+00_jprb, 0.832078e+00_jprb, 0.799839e+00_jprb, 0.768091e+00_jprb &
3819  &, 0.736849e+00_jprb, 0.706133e+00_jprb, 0.675960e+00_jprb &
3820  &, 0.646346e+00_jprb, 0.617307e+00_jprb, 0.588862e+00_jprb, 0.561024e+00_jprb &
3821  &, 0.533812e+00_jprb, 0.507240e+00_jprb, 0.481322e+00_jprb &
3822  &, 0.456075e+00_jprb, 0.431510e+00_jprb, 0.407643e+00_jprb, 0.384483e+00_jprb &
3823  &, 0.362045e+00_jprb, 0.340338e+00_jprb, 0.319372e+00_jprb &
3824  &, 0.299158e+00_jprb, 0.279697e+00_jprb, 0.261000e+00_jprb, 0.243071e+00_jprb &
3825  &, 0.225909e+00_jprb, 0.209516e+00_jprb, 0.193895e+00_jprb &
3826  &, 0.179040e+00_jprb, 0.164943e+00_jprb, 0.151603e+00_jprb, 0.139006e+00_jprb &
3827  &, 0.127145e+00_jprb, 0.116002e+00_jprb, 0.105565e+00_jprb &
3828  &, 0.958134e-01_jprb, 0.867371e-01_jprb, 0.783035e-01_jprb, 0.704892e-01_jprb &
3829  &, 0.632864e-01_jprb, 0.566522e-01_jprb, 0.505588e-01_jprb &
3830  &, 0.449948e-01_jprb, 0.399226e-01_jprb, 0.353217e-01_jprb, 0.311552e-01_jprb &
3831  &, 0.273926e-01_jprb, 0.240107e-01_jprb, 0.209820e-01_jprb &
3832  &, 0.182744e-01_jprb, 0.158644e-01_jprb, 0.137246e-01_jprb, 0.118378e-01_jprb &
3833  &, 0.101836e-01_jprb, 0.872359e-02_jprb, 0.746013e-02_jprb &
3834  &, 0.634835e-02_jprb, 0.538580e-02_jprb, 0.455282e-02_jprb, 0.384389e-02_jprb &
3835  &, 0.323533e-02_jprb, 0.270078e-02_jprb, 0.226428e-02_jprb &
3836  &, 0.187910e-02_jprb, 0.154956e-02_jprb, 0.128014e-02_jprb, 0.105606e-02_jprb &
3837  &, 0.861044e-03_jprb, 0.697408e-03_jprb, 0.567551e-03_jprb &
3838  &, 0.473939e-03_jprb, 0.376047e-03_jprb, 0.295768e-03_jprb, 0.234382e-03_jprb &
3839  &, 0.193201e-03_jprb, 0.150208e-03_jprb, 0.105367e-03_jprb &
3840  &, 0.829650e-04_jprb, 0.596149e-04_jprb, 0.605984e-04_jprb, 0.357969e-04_jprb &
3841  &, 0.363005e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3842  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3843  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3844  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3845  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3846  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3847  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3848  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3849  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3850  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3851  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3852  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3853  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3854  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3855  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3856  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3857  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3858 
3859 IF (lhook) CALL dr_hook('SU_MCICA:PART12',1,zhook_handle)
3860 END SUBROUTINE part12
3861 
3862 #ifdef VPP5000
3863 !OCL SCALAR
3864 #endif
3865 !option! -Nv -NO
3866 #ifdef RS6K
3867 @process nooptimize
3868 #endif
3869 !pgi$r opt=0
3870 SUBROUTINE part13
3871 
3872 REAL(KIND=JPRB) :: ZHOOK_HANDLE
3873 IF (lhook) CALL dr_hook('SU_MCICA:PART13',0,zhook_handle)
3874 
3875 xcw( 85, :) = (/ &
3876  & 0.865380e+00_jprb, 0.832799e+00_jprb, 0.800680e+00_jprb, 0.769044e+00_jprb &
3877  &, 0.737911e+00_jprb, 0.707294e+00_jprb, 0.677212e+00_jprb &
3878  &, 0.647681e+00_jprb, 0.618720e+00_jprb, 0.590343e+00_jprb, 0.562567e+00_jprb &
3879  &, 0.535408e+00_jprb, 0.508884e+00_jprb, 0.483007e+00_jprb &
3880  &, 0.457792e+00_jprb, 0.433254e+00_jprb, 0.409405e+00_jprb, 0.386259e+00_jprb &
3881  &, 0.363827e+00_jprb, 0.342121e+00_jprb, 0.321149e+00_jprb &
3882  &, 0.300922e+00_jprb, 0.281447e+00_jprb, 0.262725e+00_jprb, 0.244769e+00_jprb &
3883  &, 0.227575e+00_jprb, 0.211144e+00_jprb, 0.195483e+00_jprb &
3884  &, 0.180580e+00_jprb, 0.166437e+00_jprb, 0.153044e+00_jprb, 0.140395e+00_jprb &
3885  &, 0.128479e+00_jprb, 0.117277e+00_jprb, 0.106781e+00_jprb &
3886  &, 0.969667e-01_jprb, 0.878242e-01_jprb, 0.793302e-01_jprb, 0.714617e-01_jprb &
3887  &, 0.641909e-01_jprb, 0.574953e-01_jprb, 0.513474e-01_jprb &
3888  &, 0.457257e-01_jprb, 0.406037e-01_jprb, 0.359383e-01_jprb, 0.317276e-01_jprb &
3889  &, 0.279181e-01_jprb, 0.244865e-01_jprb, 0.214053e-01_jprb &
3890  &, 0.186554e-01_jprb, 0.162143e-01_jprb, 0.140417e-01_jprb, 0.121342e-01_jprb &
3891  &, 0.104437e-01_jprb, 0.896029e-02_jprb, 0.765699e-02_jprb &
3892  &, 0.651882e-02_jprb, 0.554438e-02_jprb, 0.469884e-02_jprb, 0.396006e-02_jprb &
3893  &, 0.333718e-02_jprb, 0.278757e-02_jprb, 0.233528e-02_jprb &
3894  &, 0.193354e-02_jprb, 0.160521e-02_jprb, 0.133701e-02_jprb, 0.109480e-02_jprb &
3895  &, 0.900627e-03_jprb, 0.737844e-03_jprb, 0.608851e-03_jprb &
3896  &, 0.495027e-03_jprb, 0.397579e-03_jprb, 0.317751e-03_jprb, 0.256820e-03_jprb &
3897  &, 0.193201e-03_jprb, 0.150208e-03_jprb, 0.129209e-03_jprb &
3898  &, 0.107287e-03_jprb, 0.844223e-04_jprb, 0.605984e-04_jprb, 0.357969e-04_jprb &
3899  &, 0.363005e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3900  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3901  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3902  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3903  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3904  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3905  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3906  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3907  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3908  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3909  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3910  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3911  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3912  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3913  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3914  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3915  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3916 xcw( 86, :) = (/ &
3917  & 0.865968e+00_jprb, 0.833513e+00_jprb, 0.801515e+00_jprb, 0.769993e+00_jprb &
3918  &, 0.738964e+00_jprb, 0.708446e+00_jprb, 0.678454e+00_jprb &
3919  &, 0.649007e+00_jprb, 0.620121e+00_jprb, 0.591813e+00_jprb, 0.564099e+00_jprb &
3920  &, 0.536995e+00_jprb, 0.510517e+00_jprb, 0.484681e+00_jprb &
3921  &, 0.459499e+00_jprb, 0.434987e+00_jprb, 0.411159e+00_jprb, 0.388026e+00_jprb &
3922  &, 0.365503e+00_jprb, 0.343894e+00_jprb, 0.322920e+00_jprb &
3923  &, 0.302679e+00_jprb, 0.283187e+00_jprb, 0.264443e+00_jprb, 0.246460e+00_jprb &
3924  &, 0.229233e+00_jprb, 0.212769e+00_jprb, 0.197066e+00_jprb &
3925  &, 0.182121e+00_jprb, 0.167928e+00_jprb, 0.154486e+00_jprb, 0.141784e+00_jprb &
3926  &, 0.129808e+00_jprb, 0.118551e+00_jprb, 0.107996e+00_jprb &
3927  &, 0.981201e-01_jprb, 0.889210e-01_jprb, 0.803667e-01_jprb, 0.724341e-01_jprb &
3928  &, 0.651057e-01_jprb, 0.583489e-01_jprb, 0.521469e-01_jprb &
3929  &, 0.464677e-01_jprb, 0.412848e-01_jprb, 0.365666e-01_jprb, 0.322999e-01_jprb &
3930  &, 0.284435e-01_jprb, 0.249623e-01_jprb, 0.218414e-01_jprb &
3931  &, 0.190628e-01_jprb, 0.165777e-01_jprb, 0.143587e-01_jprb, 0.124165e-01_jprb &
3932  &, 0.106894e-01_jprb, 0.918220e-02_jprb, 0.785384e-02_jprb &
3933  &, 0.670479e-02_jprb, 0.570295e-02_jprb, 0.482864e-02_jprb, 0.407624e-02_jprb &
3934  &, 0.343903e-02_jprb, 0.287437e-02_jprb, 0.240628e-02_jprb &
3935  &, 0.200613e-02_jprb, 0.166086e-02_jprb, 0.137492e-02_jprb, 0.113355e-02_jprb &
3936  &, 0.940211e-03_jprb, 0.758062e-03_jprb, 0.629501e-03_jprb &
3937  &, 0.516115e-03_jprb, 0.419111e-03_jprb, 0.339733e-03_jprb, 0.256820e-03_jprb &
3938  &, 0.216101e-03_jprb, 0.173576e-03_jprb, 0.129209e-03_jprb &
3939  &, 0.107287e-03_jprb, 0.844223e-04_jprb, 0.605984e-04_jprb, 0.357969e-04_jprb &
3940  &, 0.363005e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3941  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3942  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3943  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3944  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3945  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3946  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3947  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3948  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3949  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3950  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3951  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3952  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3953  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3954  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3955  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3956  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3957 xcw( 87, :) = (/ &
3958  & 0.866548e+00_jprb, 0.834220e+00_jprb, 0.802343e+00_jprb, 0.770934e+00_jprb &
3959  &, 0.740009e+00_jprb, 0.709588e+00_jprb, 0.679687e+00_jprb &
3960  &, 0.650322e+00_jprb, 0.621513e+00_jprb, 0.593273e+00_jprb, 0.565621e+00_jprb &
3961  &, 0.538571e+00_jprb, 0.512141e+00_jprb, 0.486322e+00_jprb &
3962  &, 0.461195e+00_jprb, 0.436710e+00_jprb, 0.412901e+00_jprb, 0.389783e+00_jprb &
3963  &, 0.367366e+00_jprb, 0.345661e+00_jprb, 0.324677e+00_jprb &
3964  &, 0.304430e+00_jprb, 0.284920e+00_jprb, 0.266157e+00_jprb, 0.248144e+00_jprb &
3965  &, 0.230888e+00_jprb, 0.214385e+00_jprb, 0.198642e+00_jprb &
3966  &, 0.183654e+00_jprb, 0.169418e+00_jprb, 0.155923e+00_jprb, 0.143169e+00_jprb &
3967  &, 0.131137e+00_jprb, 0.119825e+00_jprb, 0.109207e+00_jprb &
3968  &, 0.992734e-01_jprb, 0.900177e-01_jprb, 0.813934e-01_jprb, 0.734066e-01_jprb &
3969  &, 0.660103e-01_jprb, 0.592025e-01_jprb, 0.529463e-01_jprb &
3970  &, 0.472097e-01_jprb, 0.419659e-01_jprb, 0.372065e-01_jprb, 0.328842e-01_jprb &
3971  &, 0.289689e-01_jprb, 0.254505e-01_jprb, 0.222903e-01_jprb &
3972  &, 0.194570e-01_jprb, 0.169276e-01_jprb, 0.146895e-01_jprb, 0.126988e-01_jprb &
3973  &, 0.109495e-01_jprb, 0.940410e-02_jprb, 0.806584e-02_jprb &
3974  &, 0.687526e-02_jprb, 0.586153e-02_jprb, 0.497466e-02_jprb, 0.419242e-02_jprb &
3975  &, 0.354088e-02_jprb, 0.297853e-02_jprb, 0.249504e-02_jprb &
3976  &, 0.207872e-02_jprb, 0.171650e-02_jprb, 0.143179e-02_jprb, 0.117229e-02_jprb &
3977  &, 0.960002e-03_jprb, 0.798498e-03_jprb, 0.650151e-03_jprb &
3978  &, 0.537203e-03_jprb, 0.419111e-03_jprb, 0.339733e-03_jprb, 0.279258e-03_jprb &
3979  &, 0.216101e-03_jprb, 0.173576e-03_jprb, 0.129209e-03_jprb &
3980  &, 0.107287e-03_jprb, 0.844223e-04_jprb, 0.605984e-04_jprb, 0.357969e-04_jprb &
3981  &, 0.363005e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3982  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3983  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3984  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3985  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3986  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3987  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3988  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3989  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3990  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3991  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3992  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3993  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3994  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3995  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3996  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
3997  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
3998 xcw( 88, :) = (/ &
3999  & 0.867125e+00_jprb, 0.834923e+00_jprb, 0.803164e+00_jprb, 0.771867e+00_jprb &
4000  &, 0.741047e+00_jprb, 0.710722e+00_jprb, 0.680911e+00_jprb &
4001  &, 0.651629e+00_jprb, 0.622895e+00_jprb, 0.594723e+00_jprb, 0.567132e+00_jprb &
4002  &, 0.540136e+00_jprb, 0.513753e+00_jprb, 0.487996e+00_jprb &
4003  &, 0.462881e+00_jprb, 0.438423e+00_jprb, 0.414636e+00_jprb, 0.391530e+00_jprb &
4004  &, 0.369121e+00_jprb, 0.347416e+00_jprb, 0.326431e+00_jprb &
4005  &, 0.306170e+00_jprb, 0.286646e+00_jprb, 0.267861e+00_jprb, 0.249824e+00_jprb &
4006  &, 0.232536e+00_jprb, 0.216002e+00_jprb, 0.200218e+00_jprb &
4007  &, 0.185187e+00_jprb, 0.170901e+00_jprb, 0.157360e+00_jprb, 0.144550e+00_jprb &
4008  &, 0.132466e+00_jprb, 0.121095e+00_jprb, 0.110423e+00_jprb &
4009  &, 0.100436e+00_jprb, 0.911144e-01_jprb, 0.824299e-01_jprb, 0.743791e-01_jprb &
4010  &, 0.669353e-01_jprb, 0.600560e-01_jprb, 0.537350e-01_jprb &
4011  &, 0.479517e-01_jprb, 0.426583e-01_jprb, 0.378348e-01_jprb, 0.334565e-01_jprb &
4012  &, 0.295065e-01_jprb, 0.259388e-01_jprb, 0.227265e-01_jprb &
4013  &, 0.198511e-01_jprb, 0.172910e-01_jprb, 0.150203e-01_jprb, 0.129952e-01_jprb &
4014  &, 0.112096e-01_jprb, 0.964081e-02_jprb, 0.826269e-02_jprb &
4015  &, 0.706122e-02_jprb, 0.602011e-02_jprb, 0.510445e-02_jprb, 0.432520e-02_jprb &
4016  &, 0.364273e-02_jprb, 0.306533e-02_jprb, 0.256604e-02_jprb &
4017  &, 0.215130e-02_jprb, 0.179070e-02_jprb, 0.146971e-02_jprb, 0.123040e-02_jprb &
4018  &, 0.999586e-03_jprb, 0.818715e-03_jprb, 0.670801e-03_jprb &
4019  &, 0.558291e-03_jprb, 0.440643e-03_jprb, 0.361715e-03_jprb, 0.279258e-03_jprb &
4020  &, 0.239001e-03_jprb, 0.173576e-03_jprb, 0.153051e-03_jprb &
4021  &, 0.107287e-03_jprb, 0.844223e-04_jprb, 0.605984e-04_jprb, 0.615938e-04_jprb &
4022  &, 0.363005e-04_jprb, 0.368102e-04_jprb, 0.100000e-04_jprb &
4023  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4024  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4025  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4026  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4027  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4028  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4029  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4030  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4031  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4032  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4033  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4034  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4035  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4036  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4037  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4038  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4039 xcw( 89, :) = (/ &
4040  & 0.867697e+00_jprb, 0.835621e+00_jprb, 0.803980e+00_jprb, 0.772792e+00_jprb &
4041  &, 0.742076e+00_jprb, 0.711848e+00_jprb, 0.682126e+00_jprb &
4042  &, 0.652926e+00_jprb, 0.624267e+00_jprb, 0.596162e+00_jprb, 0.568633e+00_jprb &
4043  &, 0.541690e+00_jprb, 0.515354e+00_jprb, 0.489639e+00_jprb &
4044  &, 0.464558e+00_jprb, 0.440127e+00_jprb, 0.416358e+00_jprb, 0.393268e+00_jprb &
4045  &, 0.370866e+00_jprb, 0.349164e+00_jprb, 0.328172e+00_jprb &
4046  &, 0.307904e+00_jprb, 0.288362e+00_jprb, 0.269558e+00_jprb, 0.251497e+00_jprb &
4047  &, 0.234180e+00_jprb, 0.217608e+00_jprb, 0.201787e+00_jprb &
4048  &, 0.186715e+00_jprb, 0.172384e+00_jprb, 0.158794e+00_jprb, 0.145931e+00_jprb &
4049  &, 0.133795e+00_jprb, 0.122369e+00_jprb, 0.111639e+00_jprb &
4050  &, 0.101589e+00_jprb, 0.922111e-01_jprb, 0.834664e-01_jprb, 0.753616e-01_jprb &
4051  &, 0.678502e-01_jprb, 0.609202e-01_jprb, 0.545452e-01_jprb &
4052  &, 0.486937e-01_jprb, 0.433508e-01_jprb, 0.384747e-01_jprb, 0.340527e-01_jprb &
4053  &, 0.300442e-01_jprb, 0.264271e-01_jprb, 0.231754e-01_jprb &
4054  &, 0.202585e-01_jprb, 0.176544e-01_jprb, 0.153511e-01_jprb, 0.132916e-01_jprb &
4055  &, 0.114698e-01_jprb, 0.987751e-02_jprb, 0.847469e-02_jprb &
4056  &, 0.724719e-02_jprb, 0.617869e-02_jprb, 0.525047e-02_jprb, 0.444137e-02_jprb &
4057  &, 0.376156e-02_jprb, 0.315213e-02_jprb, 0.265479e-02_jprb &
4058  &, 0.220574e-02_jprb, 0.184635e-02_jprb, 0.152658e-02_jprb, 0.126915e-02_jprb &
4059  &, 0.103917e-02_jprb, 0.859151e-03_jprb, 0.691451e-03_jprb &
4060  &, 0.579379e-03_jprb, 0.462176e-03_jprb, 0.383697e-03_jprb, 0.301696e-03_jprb &
4061  &, 0.239001e-03_jprb, 0.196944e-03_jprb, 0.153051e-03_jprb &
4062  &, 0.107287e-03_jprb, 0.844223e-04_jprb, 0.605984e-04_jprb, 0.615938e-04_jprb &
4063  &, 0.363005e-04_jprb, 0.368102e-04_jprb, 0.100000e-04_jprb &
4064  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4065  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4066  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4067  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4068  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4069  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4070  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4071  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4072  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4073  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4074  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4075  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4076  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4077  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4078  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4079  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4080 xcw( 90, :) = (/ &
4081  & 0.868265e+00_jprb, 0.836312e+00_jprb, 0.804788e+00_jprb, 0.773711e+00_jprb &
4082  &, 0.743097e+00_jprb, 0.712965e+00_jprb, 0.683332e+00_jprb &
4083  &, 0.654214e+00_jprb, 0.625629e+00_jprb, 0.597593e+00_jprb, 0.570124e+00_jprb &
4084  &, 0.543236e+00_jprb, 0.516946e+00_jprb, 0.491271e+00_jprb &
4085  &, 0.466224e+00_jprb, 0.441820e+00_jprb, 0.418073e+00_jprb, 0.394996e+00_jprb &
4086  &, 0.372603e+00_jprb, 0.350902e+00_jprb, 0.329910e+00_jprb &
4087  &, 0.309632e+00_jprb, 0.290075e+00_jprb, 0.271252e+00_jprb, 0.253163e+00_jprb &
4088  &, 0.235817e+00_jprb, 0.219213e+00_jprb, 0.203355e+00_jprb &
4089  &, 0.188236e+00_jprb, 0.173862e+00_jprb, 0.160223e+00_jprb, 0.147311e+00_jprb &
4090  &, 0.135120e+00_jprb, 0.123638e+00_jprb, 0.112854e+00_jprb &
4091  &, 0.102743e+00_jprb, 0.933079e-01_jprb, 0.845126e-01_jprb, 0.763341e-01_jprb &
4092  &, 0.687753e-01_jprb, 0.617843e-01_jprb, 0.553447e-01_jprb &
4093  &, 0.494467e-01_jprb, 0.440432e-01_jprb, 0.391146e-01_jprb, 0.346370e-01_jprb &
4094  &, 0.305818e-01_jprb, 0.269154e-01_jprb, 0.236243e-01_jprb &
4095  &, 0.206658e-01_jprb, 0.180312e-01_jprb, 0.156819e-01_jprb, 0.135880e-01_jprb &
4096  &, 0.117443e-01_jprb, 0.101142e-01_jprb, 0.868668e-02_jprb &
4097  &, 0.743316e-02_jprb, 0.633727e-02_jprb, 0.539649e-02_jprb, 0.457415e-02_jprb &
4098  &, 0.386341e-02_jprb, 0.325629e-02_jprb, 0.272579e-02_jprb &
4099  &, 0.227833e-02_jprb, 0.190199e-02_jprb, 0.158345e-02_jprb, 0.130789e-02_jprb &
4100  &, 0.107875e-02_jprb, 0.879369e-03_jprb, 0.732751e-03_jprb &
4101  &, 0.600467e-03_jprb, 0.483708e-03_jprb, 0.383697e-03_jprb, 0.324134e-03_jprb &
4102  &, 0.261901e-03_jprb, 0.196944e-03_jprb, 0.153051e-03_jprb &
4103  &, 0.131608e-03_jprb, 0.844223e-04_jprb, 0.858975e-04_jprb, 0.615938e-04_jprb &
4104  &, 0.363005e-04_jprb, 0.368102e-04_jprb, 0.100000e-04_jprb &
4105  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4106  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4107  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4108  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4109  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4110  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4111  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4112  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4113  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4114  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4115  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4116  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4117  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4118  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4119  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4120  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4121 xcw( 91, :) = (/ &
4122  & 0.868828e+00_jprb, 0.836998e+00_jprb, 0.805590e+00_jprb, 0.774623e+00_jprb &
4123  &, 0.744111e+00_jprb, 0.714075e+00_jprb, 0.684529e+00_jprb &
4124  &, 0.655493e+00_jprb, 0.626982e+00_jprb, 0.599014e+00_jprb, 0.571606e+00_jprb &
4125  &, 0.544772e+00_jprb, 0.518529e+00_jprb, 0.492894e+00_jprb &
4126  &, 0.467881e+00_jprb, 0.443503e+00_jprb, 0.419778e+00_jprb, 0.396715e+00_jprb &
4127  &, 0.374331e+00_jprb, 0.352634e+00_jprb, 0.331635e+00_jprb &
4128  &, 0.311349e+00_jprb, 0.291781e+00_jprb, 0.272935e+00_jprb, 0.254826e+00_jprb &
4129  &, 0.237450e+00_jprb, 0.220811e+00_jprb, 0.204916e+00_jprb &
4130  &, 0.189757e+00_jprb, 0.175341e+00_jprb, 0.161652e+00_jprb, 0.148692e+00_jprb &
4131  &, 0.136449e+00_jprb, 0.124913e+00_jprb, 0.114070e+00_jprb &
4132  &, 0.103905e+00_jprb, 0.944046e-01_jprb, 0.855491e-01_jprb, 0.773166e-01_jprb &
4133  &, 0.696901e-01_jprb, 0.626484e-01_jprb, 0.561549e-01_jprb &
4134  &, 0.501998e-01_jprb, 0.447357e-01_jprb, 0.397662e-01_jprb, 0.352332e-01_jprb &
4135  &, 0.311316e-01_jprb, 0.274162e-01_jprb, 0.240861e-01_jprb &
4136  &, 0.210863e-01_jprb, 0.184081e-01_jprb, 0.160127e-01_jprb, 0.138985e-01_jprb &
4137  &, 0.120189e-01_jprb, 0.103509e-01_jprb, 0.889868e-02_jprb &
4138  &, 0.761912e-02_jprb, 0.651170e-02_jprb, 0.554251e-02_jprb, 0.470692e-02_jprb &
4139  &, 0.398224e-02_jprb, 0.334309e-02_jprb, 0.281454e-02_jprb &
4140  &, 0.235091e-02_jprb, 0.197619e-02_jprb, 0.164032e-02_jprb, 0.136600e-02_jprb &
4141  &, 0.111834e-02_jprb, 0.919805e-03_jprb, 0.753401e-03_jprb &
4142  &, 0.621555e-03_jprb, 0.505240e-03_jprb, 0.405679e-03_jprb, 0.324134e-03_jprb &
4143  &, 0.261901e-03_jprb, 0.220312e-03_jprb, 0.176893e-03_jprb &
4144  &, 0.131608e-03_jprb, 0.109230e-03_jprb, 0.858975e-04_jprb, 0.615938e-04_jprb &
4145  &, 0.363005e-04_jprb, 0.368102e-04_jprb, 0.100000e-04_jprb &
4146  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4147  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4148  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4149  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4150  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4151  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4152  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4153  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4154  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4155  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4156  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4157  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4158  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4159  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4160  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4161  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4162 
4163 IF (lhook) CALL dr_hook('SU_MCICA:PART13',1,zhook_handle)
4164 END SUBROUTINE part13
4165 
4166 #ifdef VPP5000
4167 !OCL SCALAR
4168 #endif
4169 !option! -Nv -NO
4170 #ifdef RS6K
4171 @process nooptimize
4172 #endif
4173 !pgi$r opt=0
4174 SUBROUTINE part14
4175 
4176 REAL(KIND=JPRB) :: ZHOOK_HANDLE
4177 IF (lhook) CALL dr_hook('SU_MCICA:PART14',0,zhook_handle)
4178 
4179 xcw( 92, :) = (/ &
4180  & 0.869385e+00_jprb, 0.837680e+00_jprb, 0.806387e+00_jprb, 0.775527e+00_jprb &
4181  &, 0.745118e+00_jprb, 0.715176e+00_jprb, 0.685718e+00_jprb &
4182  &, 0.656762e+00_jprb, 0.628326e+00_jprb, 0.600425e+00_jprb, 0.573077e+00_jprb &
4183  &, 0.546297e+00_jprb, 0.520102e+00_jprb, 0.494507e+00_jprb &
4184  &, 0.469528e+00_jprb, 0.445178e+00_jprb, 0.421474e+00_jprb, 0.398426e+00_jprb &
4185  &, 0.376050e+00_jprb, 0.354357e+00_jprb, 0.333357e+00_jprb &
4186  &, 0.313060e+00_jprb, 0.293480e+00_jprb, 0.274615e+00_jprb, 0.256481e+00_jprb &
4187  &, 0.239076e+00_jprb, 0.222406e+00_jprb, 0.206473e+00_jprb &
4188  &, 0.191278e+00_jprb, 0.176815e+00_jprb, 0.163081e+00_jprb, 0.150069e+00_jprb &
4189  &, 0.137774e+00_jprb, 0.126182e+00_jprb, 0.115286e+00_jprb &
4190  &, 0.105059e+00_jprb, 0.955013e-01_jprb, 0.865954e-01_jprb, 0.783091e-01_jprb &
4191  &, 0.706152e-01_jprb, 0.635125e-01_jprb, 0.569652e-01_jprb &
4192  &, 0.509529e-01_jprb, 0.454395e-01_jprb, 0.404061e-01_jprb, 0.358294e-01_jprb &
4193  &, 0.316815e-01_jprb, 0.279170e-01_jprb, 0.245351e-01_jprb &
4194  &, 0.215068e-01_jprb, 0.187849e-01_jprb, 0.163573e-01_jprb, 0.141949e-01_jprb &
4195  &, 0.122935e-01_jprb, 0.106024e-01_jprb, 0.911067e-02_jprb &
4196  &, 0.782059e-02_jprb, 0.668614e-02_jprb, 0.568853e-02_jprb, 0.483970e-02_jprb &
4197  &, 0.408409e-02_jprb, 0.344725e-02_jprb, 0.290329e-02_jprb &
4198  &, 0.244165e-02_jprb, 0.203184e-02_jprb, 0.169719e-02_jprb, 0.140475e-02_jprb &
4199  &, 0.115792e-02_jprb, 0.960241e-03_jprb, 0.794701e-03_jprb &
4200  &, 0.642643e-03_jprb, 0.526772e-03_jprb, 0.427662e-03_jprb, 0.346572e-03_jprb &
4201  &, 0.284801e-03_jprb, 0.220312e-03_jprb, 0.176893e-03_jprb &
4202  &, 0.131608e-03_jprb, 0.109230e-03_jprb, 0.858975e-04_jprb, 0.615938e-04_jprb &
4203  &, 0.363005e-04_jprb, 0.368102e-04_jprb, 0.100000e-04_jprb &
4204  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4205  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4206  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4207  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4208  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4209  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4210  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4211  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4212  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4213  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4214  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4215  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4216  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4217  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4218  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4219  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4220 xcw( 93, :) = (/ &
4221  & 0.869941e+00_jprb, 0.838355e+00_jprb, 0.807177e+00_jprb, 0.776426e+00_jprb &
4222  &, 0.746117e+00_jprb, 0.716269e+00_jprb, 0.686899e+00_jprb &
4223  &, 0.658024e+00_jprb, 0.629661e+00_jprb, 0.601828e+00_jprb, 0.574539e+00_jprb &
4224  &, 0.547813e+00_jprb, 0.521664e+00_jprb, 0.496110e+00_jprb &
4225  &, 0.471165e+00_jprb, 0.446843e+00_jprb, 0.423161e+00_jprb, 0.400128e+00_jprb &
4226  &, 0.377761e+00_jprb, 0.356070e+00_jprb, 0.335069e+00_jprb &
4227  &, 0.314767e+00_jprb, 0.295169e+00_jprb, 0.276291e+00_jprb, 0.258130e+00_jprb &
4228  &, 0.240698e+00_jprb, 0.223997e+00_jprb, 0.208030e+00_jprb &
4229  &, 0.192792e+00_jprb, 0.178286e+00_jprb, 0.164506e+00_jprb, 0.151445e+00_jprb &
4230  &, 0.139099e+00_jprb, 0.127452e+00_jprb, 0.116501e+00_jprb &
4231  &, 0.106222e+00_jprb, 0.966076e-01_jprb, 0.876416e-01_jprb, 0.792916e-01_jprb &
4232  &, 0.715505e-01_jprb, 0.643872e-01_jprb, 0.577862e-01_jprb &
4233  &, 0.517059e-01_jprb, 0.461433e-01_jprb, 0.410576e-01_jprb, 0.364375e-01_jprb &
4234  &, 0.322313e-01_jprb, 0.284303e-01_jprb, 0.249968e-01_jprb &
4235  &, 0.219141e-01_jprb, 0.191618e-01_jprb, 0.167019e-01_jprb, 0.145055e-01_jprb &
4236  &, 0.125680e-01_jprb, 0.108539e-01_jprb, 0.933781e-02_jprb &
4237  &, 0.800656e-02_jprb, 0.686057e-02_jprb, 0.585077e-02_jprb, 0.497247e-02_jprb &
4238  &, 0.420292e-02_jprb, 0.355141e-02_jprb, 0.299204e-02_jprb &
4239  &, 0.251423e-02_jprb, 0.210603e-02_jprb, 0.175407e-02_jprb, 0.144349e-02_jprb &
4240  &, 0.119750e-02_jprb, 0.100068e-02_jprb, 0.815351e-03_jprb &
4241  &, 0.663732e-03_jprb, 0.548304e-03_jprb, 0.449644e-03_jprb, 0.346572e-03_jprb &
4242  &, 0.284801e-03_jprb, 0.220312e-03_jprb, 0.176893e-03_jprb &
4243  &, 0.155930e-03_jprb, 0.109230e-03_jprb, 0.858975e-04_jprb, 0.615938e-04_jprb &
4244  &, 0.626011e-04_jprb, 0.368102e-04_jprb, 0.373257e-04_jprb &
4245  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4246  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4247  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4248  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4249  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4250  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4251  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4252  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4253  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4254  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4255  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4256  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4257  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4258  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4259  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4260  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4261 xcw( 94, :) = (/ &
4262  & 0.870491e+00_jprb, 0.839026e+00_jprb, 0.807962e+00_jprb, 0.777318e+00_jprb &
4263  &, 0.747109e+00_jprb, 0.717355e+00_jprb, 0.688072e+00_jprb &
4264  &, 0.659277e+00_jprb, 0.630988e+00_jprb, 0.603221e+00_jprb, 0.575993e+00_jprb &
4265  &, 0.549320e+00_jprb, 0.523219e+00_jprb, 0.497705e+00_jprb &
4266  &, 0.472793e+00_jprb, 0.448500e+00_jprb, 0.424838e+00_jprb, 0.401822e+00_jprb &
4267  &, 0.379465e+00_jprb, 0.357777e+00_jprb, 0.336775e+00_jprb &
4268  &, 0.316465e+00_jprb, 0.296854e+00_jprb, 0.277957e+00_jprb, 0.259775e+00_jprb &
4269  &, 0.242317e+00_jprb, 0.225583e+00_jprb, 0.209579e+00_jprb &
4270  &, 0.194305e+00_jprb, 0.179752e+00_jprb, 0.165927e+00_jprb, 0.152818e+00_jprb &
4271  &, 0.140419e+00_jprb, 0.128722e+00_jprb, 0.117717e+00_jprb &
4272  &, 0.107384e+00_jprb, 0.977138e-01_jprb, 0.886781e-01_jprb, 0.802741e-01_jprb &
4273  &, 0.724756e-01_jprb, 0.652619e-01_jprb, 0.585965e-01_jprb &
4274  &, 0.524701e-01_jprb, 0.468584e-01_jprb, 0.417208e-01_jprb, 0.370337e-01_jprb &
4275  &, 0.327812e-01_jprb, 0.289436e-01_jprb, 0.254714e-01_jprb &
4276  &, 0.223477e-01_jprb, 0.195521e-01_jprb, 0.170465e-01_jprb, 0.148160e-01_jprb &
4277  &, 0.128426e-01_jprb, 0.111054e-01_jprb, 0.956495e-02_jprb &
4278  &, 0.820802e-02_jprb, 0.703501e-02_jprb, 0.599679e-02_jprb, 0.510525e-02_jprb &
4279  &, 0.432175e-02_jprb, 0.365557e-02_jprb, 0.308079e-02_jprb &
4280  &, 0.258682e-02_jprb, 0.216168e-02_jprb, 0.181094e-02_jprb, 0.150161e-02_jprb &
4281  &, 0.123709e-02_jprb, 0.102089e-02_jprb, 0.836001e-03_jprb &
4282  &, 0.684820e-03_jprb, 0.569836e-03_jprb, 0.449644e-03_jprb, 0.369011e-03_jprb &
4283  &, 0.307701e-03_jprb, 0.243680e-03_jprb, 0.200735e-03_jprb &
4284  &, 0.155930e-03_jprb, 0.109230e-03_jprb, 0.858975e-04_jprb, 0.615938e-04_jprb &
4285  &, 0.626011e-04_jprb, 0.368102e-04_jprb, 0.373257e-04_jprb &
4286  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4287  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4288  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4289  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4290  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4291  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4292  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4293  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4294  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4295  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4296  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4297  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4298  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4299  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4300  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4301  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4302 xcw( 95, :) = (/ &
4303  & 0.871035e+00_jprb, 0.839691e+00_jprb, 0.808741e+00_jprb, 0.778203e+00_jprb &
4304  &, 0.748095e+00_jprb, 0.718433e+00_jprb, 0.689237e+00_jprb &
4305  &, 0.660521e+00_jprb, 0.632305e+00_jprb, 0.604605e+00_jprb, 0.577437e+00_jprb &
4306  &, 0.550817e+00_jprb, 0.524763e+00_jprb, 0.499289e+00_jprb &
4307  &, 0.474413e+00_jprb, 0.450147e+00_jprb, 0.426507e+00_jprb, 0.403508e+00_jprb &
4308  &, 0.381160e+00_jprb, 0.359477e+00_jprb, 0.338474e+00_jprb &
4309  &, 0.318156e+00_jprb, 0.298533e+00_jprb, 0.279619e+00_jprb, 0.261416e+00_jprb &
4310  &, 0.243917e+00_jprb, 0.227167e+00_jprb, 0.211125e+00_jprb &
4311  &, 0.195810e+00_jprb, 0.181219e+00_jprb, 0.167348e+00_jprb, 0.154194e+00_jprb &
4312  &, 0.141744e+00_jprb, 0.129996e+00_jprb, 0.118932e+00_jprb &
4313  &, 0.108547e+00_jprb, 0.988106e-01_jprb, 0.897341e-01_jprb, 0.812666e-01_jprb &
4314  &, 0.734110e-01_jprb, 0.661365e-01_jprb, 0.594175e-01_jprb &
4315  &, 0.532342e-01_jprb, 0.475622e-01_jprb, 0.423724e-01_jprb, 0.376418e-01_jprb &
4316  &, 0.333433e-01_jprb, 0.294569e-01_jprb, 0.259332e-01_jprb &
4317  &, 0.227682e-01_jprb, 0.199289e-01_jprb, 0.173911e-01_jprb, 0.151406e-01_jprb &
4318  &, 0.131316e-01_jprb, 0.113569e-01_jprb, 0.979209e-02_jprb &
4319  &, 0.840948e-02_jprb, 0.720944e-02_jprb, 0.615904e-02_jprb, 0.523802e-02_jprb &
4320  &, 0.444058e-02_jprb, 0.375973e-02_jprb, 0.316954e-02_jprb &
4321  &, 0.265941e-02_jprb, 0.223587e-02_jprb, 0.186781e-02_jprb, 0.155972e-02_jprb &
4322  &, 0.129646e-02_jprb, 0.106133e-02_jprb, 0.877301e-03_jprb &
4323  &, 0.726996e-03_jprb, 0.591369e-03_jprb, 0.471626e-03_jprb, 0.391449e-03_jprb &
4324  &, 0.307701e-03_jprb, 0.243680e-03_jprb, 0.200735e-03_jprb &
4325  &, 0.155930e-03_jprb, 0.134037e-03_jprb, 0.858975e-04_jprb, 0.615938e-04_jprb &
4326  &, 0.626011e-04_jprb, 0.368102e-04_jprb, 0.373257e-04_jprb &
4327  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4328  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4329  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4330  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4331  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4332  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4333  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4334  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4335  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4336  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4337  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4338  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4339  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4340  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4341  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4342  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4343 xcw( 96, :) = (/ &
4344  & 0.871578e+00_jprb, 0.840352e+00_jprb, 0.809514e+00_jprb, 0.779082e+00_jprb &
4345  &, 0.749073e+00_jprb, 0.719504e+00_jprb, 0.690394e+00_jprb &
4346  &, 0.661758e+00_jprb, 0.633615e+00_jprb, 0.605981e+00_jprb, 0.578873e+00_jprb &
4347  &, 0.552306e+00_jprb, 0.526300e+00_jprb, 0.500867e+00_jprb &
4348  &, 0.476024e+00_jprb, 0.451786e+00_jprb, 0.428169e+00_jprb, 0.405184e+00_jprb &
4349  &, 0.382848e+00_jprb, 0.361168e+00_jprb, 0.340163e+00_jprb &
4350  &, 0.319840e+00_jprb, 0.300205e+00_jprb, 0.281275e+00_jprb, 0.263050e+00_jprb &
4351  &, 0.245540e+00_jprb, 0.228746e+00_jprb, 0.212671e+00_jprb &
4352  &, 0.197316e+00_jprb, 0.182685e+00_jprb, 0.168769e+00_jprb, 0.155562e+00_jprb &
4353  &, 0.143065e+00_jprb, 0.131266e+00_jprb, 0.120148e+00_jprb &
4354  &, 0.109700e+00_jprb, 0.999168e-01_jprb, 0.907804e-01_jprb, 0.822591e-01_jprb &
4355  &, 0.743464e-01_jprb, 0.670112e-01_jprb, 0.602386e-01_jprb &
4356  &, 0.540094e-01_jprb, 0.482774e-01_jprb, 0.430356e-01_jprb, 0.382619e-01_jprb &
4357  &, 0.339053e-01_jprb, 0.299702e-01_jprb, 0.264078e-01_jprb &
4358  &, 0.232018e-01_jprb, 0.203192e-01_jprb, 0.177494e-01_jprb, 0.154511e-01_jprb &
4359  &, 0.134207e-01_jprb, 0.116084e-01_jprb, 0.100192e-01_jprb &
4360  &, 0.861095e-02_jprb, 0.738388e-02_jprb, 0.630506e-02_jprb, 0.537080e-02_jprb &
4361  &, 0.457638e-02_jprb, 0.386389e-02_jprb, 0.325830e-02_jprb &
4362  &, 0.275014e-02_jprb, 0.231007e-02_jprb, 0.192468e-02_jprb, 0.159846e-02_jprb &
4363  &, 0.133604e-02_jprb, 0.110177e-02_jprb, 0.897951e-03_jprb &
4364  &, 0.748084e-03_jprb, 0.612901e-03_jprb, 0.493608e-03_jprb, 0.413887e-03_jprb &
4365  &, 0.330601e-03_jprb, 0.267048e-03_jprb, 0.200735e-03_jprb &
4366  &, 0.155930e-03_jprb, 0.134037e-03_jprb, 0.111197e-03_jprb, 0.873906e-04_jprb &
4367  &, 0.626011e-04_jprb, 0.368102e-04_jprb, 0.373257e-04_jprb &
4368  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4369  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4370  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4371  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4372  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4373  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4374  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4375  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4376  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4377  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4378  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4379  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4380  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4381  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4382  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4383  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4384 xcw( 97, :) = (/ &
4385  & 0.872115e+00_jprb, 0.841008e+00_jprb, 0.810282e+00_jprb, 0.779955e+00_jprb &
4386  &, 0.750045e+00_jprb, 0.720568e+00_jprb, 0.691543e+00_jprb &
4387  &, 0.662986e+00_jprb, 0.634916e+00_jprb, 0.607348e+00_jprb, 0.580299e+00_jprb &
4388  &, 0.553787e+00_jprb, 0.527826e+00_jprb, 0.502434e+00_jprb &
4389  &, 0.477626e+00_jprb, 0.453417e+00_jprb, 0.429821e+00_jprb, 0.406854e+00_jprb &
4390  &, 0.384528e+00_jprb, 0.362853e+00_jprb, 0.341846e+00_jprb &
4391  &, 0.321518e+00_jprb, 0.301874e+00_jprb, 0.282927e+00_jprb, 0.264680e+00_jprb &
4392  &, 0.247144e+00_jprb, 0.230318e+00_jprb, 0.214212e+00_jprb &
4393  &, 0.198821e+00_jprb, 0.184144e+00_jprb, 0.170186e+00_jprb, 0.156934e+00_jprb &
4394  &, 0.144389e+00_jprb, 0.132535e+00_jprb, 0.121368e+00_jprb &
4395  &, 0.110863e+00_jprb, 0.101023e+00_jprb, 0.918267e-01_jprb, 0.832516e-01_jprb &
4396  &, 0.752817e-01_jprb, 0.678964e-01_jprb, 0.610704e-01_jprb &
4397  &, 0.547736e-01_jprb, 0.489926e-01_jprb, 0.436987e-01_jprb, 0.388700e-01_jprb &
4398  &, 0.344796e-01_jprb, 0.304836e-01_jprb, 0.268824e-01_jprb &
4399  &, 0.236354e-01_jprb, 0.207230e-01_jprb, 0.181078e-01_jprb, 0.157758e-01_jprb &
4400  &, 0.137097e-01_jprb, 0.118747e-01_jprb, 0.102464e-01_jprb &
4401  &, 0.882791e-02_jprb, 0.757417e-02_jprb, 0.646730e-02_jprb, 0.552017e-02_jprb &
4402  &, 0.469521e-02_jprb, 0.398540e-02_jprb, 0.336480e-02_jprb &
4403  &, 0.282273e-02_jprb, 0.236572e-02_jprb, 0.198155e-02_jprb, 0.165658e-02_jprb &
4404  &, 0.137563e-02_jprb, 0.114220e-02_jprb, 0.939251e-03_jprb &
4405  &, 0.769172e-03_jprb, 0.634433e-03_jprb, 0.515590e-03_jprb, 0.413887e-03_jprb &
4406  &, 0.330601e-03_jprb, 0.267048e-03_jprb, 0.224577e-03_jprb &
4407  &, 0.180252e-03_jprb, 0.134037e-03_jprb, 0.111197e-03_jprb, 0.873906e-04_jprb &
4408  &, 0.626011e-04_jprb, 0.368102e-04_jprb, 0.373257e-04_jprb &
4409  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4410  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4411  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4412  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4413  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4414  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4415  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4416  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4417  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4418  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4419  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4420  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4421  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4422  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4423  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4424  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4425 xcw( 98, :) = (/ &
4426  & 0.872650e+00_jprb, 0.841660e+00_jprb, 0.811045e+00_jprb, 0.780823e+00_jprb &
4427  &, 0.751010e+00_jprb, 0.721625e+00_jprb, 0.692685e+00_jprb &
4428  &, 0.664207e+00_jprb, 0.636209e+00_jprb, 0.608707e+00_jprb, 0.581718e+00_jprb &
4429  &, 0.555258e+00_jprb, 0.529344e+00_jprb, 0.503993e+00_jprb &
4430  &, 0.479220e+00_jprb, 0.455040e+00_jprb, 0.431466e+00_jprb, 0.408516e+00_jprb &
4431  &, 0.386197e+00_jprb, 0.364531e+00_jprb, 0.343526e+00_jprb &
4432  &, 0.323189e+00_jprb, 0.303536e+00_jprb, 0.284568e+00_jprb, 0.266304e+00_jprb &
4433  &, 0.248741e+00_jprb, 0.231887e+00_jprb, 0.215746e+00_jprb &
4434  &, 0.200318e+00_jprb, 0.185606e+00_jprb, 0.171603e+00_jprb, 0.158303e+00_jprb &
4435  &, 0.145710e+00_jprb, 0.133805e+00_jprb, 0.122584e+00_jprb &
4436  &, 0.112026e+00_jprb, 0.102139e+00_jprb, 0.928827e-01_jprb, 0.842542e-01_jprb &
4437  &, 0.762274e-01_jprb, 0.687816e-01_jprb, 0.618915e-01_jprb &
4438  &, 0.555488e-01_jprb, 0.497191e-01_jprb, 0.443736e-01_jprb, 0.394900e-01_jprb &
4439  &, 0.350417e-01_jprb, 0.310094e-01_jprb, 0.273698e-01_jprb &
4440  &, 0.240690e-01_jprb, 0.211133e-01_jprb, 0.184662e-01_jprb, 0.161004e-01_jprb &
4441  &, 0.139987e-01_jprb, 0.121262e-01_jprb, 0.104886e-01_jprb &
4442  &, 0.902937e-02_jprb, 0.774861e-02_jprb, 0.664577e-02_jprb, 0.566954e-02_jprb &
4443  &, 0.481404e-02_jprb, 0.408956e-02_jprb, 0.345355e-02_jprb &
4444  &, 0.291346e-02_jprb, 0.243991e-02_jprb, 0.205738e-02_jprb, 0.171469e-02_jprb &
4445  &, 0.141521e-02_jprb, 0.118264e-02_jprb, 0.980551e-03_jprb &
4446  &, 0.811348e-03_jprb, 0.655965e-03_jprb, 0.537572e-03_jprb, 0.436325e-03_jprb &
4447  &, 0.353501e-03_jprb, 0.290416e-03_jprb, 0.224577e-03_jprb &
4448  &, 0.180252e-03_jprb, 0.134037e-03_jprb, 0.111197e-03_jprb, 0.873906e-04_jprb &
4449  &, 0.626011e-04_jprb, 0.368102e-04_jprb, 0.373257e-04_jprb &
4450  &, 0.378473e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4451  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4452  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4453  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4454  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4455  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4456  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4457  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4458  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4459  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4460  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4461  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4462  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4463  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4464  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4465  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4466 
4467 IF (lhook) CALL dr_hook('SU_MCICA:PART14',1,zhook_handle)
4468 END SUBROUTINE part14
4469 
4470 #ifdef VPP5000
4471 !OCL SCALAR
4472 #endif
4473 !option! -Nv -NO
4474 #ifdef RS6K
4475 @process nooptimize
4476 #endif
4477 !pgi$r opt=0
4478 SUBROUTINE part15
4479 
4480 REAL(KIND=JPRB) :: ZHOOK_HANDLE
4481 IF (lhook) CALL dr_hook('SU_MCICA:PART15',0,zhook_handle)
4482 
4483 xcw( 99, :) = (/ &
4484  & 0.873179e+00_jprb, 0.842306e+00_jprb, 0.811802e+00_jprb, 0.781684e+00_jprb &
4485  &, 0.751968e+00_jprb, 0.722675e+00_jprb, 0.693820e+00_jprb &
4486  &, 0.665420e+00_jprb, 0.637494e+00_jprb, 0.610057e+00_jprb, 0.583128e+00_jprb &
4487  &, 0.556721e+00_jprb, 0.530855e+00_jprb, 0.505544e+00_jprb &
4488  &, 0.480805e+00_jprb, 0.456653e+00_jprb, 0.433103e+00_jprb, 0.410169e+00_jprb &
4489  &, 0.387865e+00_jprb, 0.366203e+00_jprb, 0.345196e+00_jprb &
4490  &, 0.324853e+00_jprb, 0.305187e+00_jprb, 0.286210e+00_jprb, 0.267924e+00_jprb &
4491  &, 0.250337e+00_jprb, 0.233455e+00_jprb, 0.217281e+00_jprb &
4492  &, 0.201816e+00_jprb, 0.187061e+00_jprb, 0.173015e+00_jprb, 0.159671e+00_jprb &
4493  &, 0.147026e+00_jprb, 0.135075e+00_jprb, 0.123799e+00_jprb &
4494  &, 0.113197e+00_jprb, 0.103245e+00_jprb, 0.939387e-01_jprb, 0.852467e-01_jprb &
4495  &, 0.771628e-01_jprb, 0.696668e-01_jprb, 0.627233e-01_jprb &
4496  &, 0.563240e-01_jprb, 0.504456e-01_jprb, 0.450484e-01_jprb, 0.401101e-01_jprb &
4497  &, 0.356160e-01_jprb, 0.315477e-01_jprb, 0.278444e-01_jprb &
4498  &, 0.245158e-01_jprb, 0.215170e-01_jprb, 0.188383e-01_jprb, 0.164250e-01_jprb &
4499  &, 0.142877e-01_jprb, 0.123925e-01_jprb, 0.107158e-01_jprb &
4500  &, 0.924633e-02_jprb, 0.793890e-02_jprb, 0.680801e-02_jprb, 0.581892e-02_jprb &
4501  &, 0.494984e-02_jprb, 0.419372e-02_jprb, 0.356005e-02_jprb &
4502  &, 0.300419e-02_jprb, 0.251411e-02_jprb, 0.211425e-02_jprb, 0.177281e-02_jprb &
4503  &, 0.147459e-02_jprb, 0.122307e-02_jprb, 0.100120e-02_jprb &
4504  &, 0.832436e-03_jprb, 0.677497e-03_jprb, 0.559555e-03_jprb, 0.458763e-03_jprb &
4505  &, 0.376402e-03_jprb, 0.290416e-03_jprb, 0.248418e-03_jprb &
4506  &, 0.180252e-03_jprb, 0.158845e-03_jprb, 0.111197e-03_jprb, 0.873906e-04_jprb &
4507  &, 0.626011e-04_jprb, 0.636203e-04_jprb, 0.373257e-04_jprb &
4508  &, 0.378473e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4509  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4510  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4511  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4512  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4513  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4514  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4515  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4516  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4517  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4518  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4519  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4520  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4521  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4522  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4523  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4524 xcw( 100, :) = (/ &
4525  & 0.873706e+00_jprb, 0.842949e+00_jprb, 0.812554e+00_jprb, 0.782539e+00_jprb &
4526  &, 0.752921e+00_jprb, 0.723718e+00_jprb, 0.694947e+00_jprb &
4527  &, 0.666626e+00_jprb, 0.638771e+00_jprb, 0.611400e+00_jprb, 0.584530e+00_jprb &
4528  &, 0.558176e+00_jprb, 0.532358e+00_jprb, 0.507087e+00_jprb &
4529  &, 0.482383e+00_jprb, 0.458260e+00_jprb, 0.434733e+00_jprb, 0.411814e+00_jprb &
4530  &, 0.389522e+00_jprb, 0.367865e+00_jprb, 0.346859e+00_jprb &
4531  &, 0.326511e+00_jprb, 0.306839e+00_jprb, 0.287844e+00_jprb, 0.269537e+00_jprb &
4532  &, 0.251927e+00_jprb, 0.235016e+00_jprb, 0.218811e+00_jprb &
4533  &, 0.203310e+00_jprb, 0.188515e+00_jprb, 0.174428e+00_jprb, 0.161039e+00_jprb &
4534  &, 0.148347e+00_jprb, 0.136345e+00_jprb, 0.125020e+00_jprb &
4535  &, 0.114360e+00_jprb, 0.104351e+00_jprb, 0.949948e-01_jprb, 0.862493e-01_jprb &
4536  &, 0.781084e-01_jprb, 0.705520e-01_jprb, 0.635660e-01_jprb &
4537  &, 0.571103e-01_jprb, 0.511721e-01_jprb, 0.457232e-01_jprb, 0.407420e-01_jprb &
4538  &, 0.362025e-01_jprb, 0.320736e-01_jprb, 0.283318e-01_jprb &
4539  &, 0.249625e-01_jprb, 0.219208e-01_jprb, 0.191967e-01_jprb, 0.167638e-01_jprb &
4540  &, 0.145912e-01_jprb, 0.126735e-01_jprb, 0.109581e-01_jprb &
4541  &, 0.944779e-02_jprb, 0.812920e-02_jprb, 0.697026e-02_jprb, 0.596829e-02_jprb &
4542  &, 0.508564e-02_jprb, 0.431524e-02_jprb, 0.364880e-02_jprb &
4543  &, 0.307678e-02_jprb, 0.258831e-02_jprb, 0.217113e-02_jprb, 0.181155e-02_jprb &
4544  &, 0.151417e-02_jprb, 0.126351e-02_jprb, 0.104250e-02_jprb &
4545  &, 0.853525e-03_jprb, 0.699029e-03_jprb, 0.581537e-03_jprb, 0.481201e-03_jprb &
4546  &, 0.376402e-03_jprb, 0.313784e-03_jprb, 0.248418e-03_jprb &
4547  &, 0.204573e-03_jprb, 0.158845e-03_jprb, 0.136496e-03_jprb, 0.873906e-04_jprb &
4548  &, 0.626011e-04_jprb, 0.636203e-04_jprb, 0.373257e-04_jprb &
4549  &, 0.378473e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4550  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4551  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4552  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4553  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4554  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4555  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4556  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4557  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4558  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4559  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4560  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4561  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4562  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4563  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4564  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4565 xcw( 101, :) = (/ &
4566  & 0.874229e+00_jprb, 0.843587e+00_jprb, 0.813300e+00_jprb, 0.783389e+00_jprb &
4567  &, 0.753867e+00_jprb, 0.724754e+00_jprb, 0.696067e+00_jprb &
4568  &, 0.667824e+00_jprb, 0.640040e+00_jprb, 0.612735e+00_jprb, 0.585924e+00_jprb &
4569  &, 0.559624e+00_jprb, 0.533851e+00_jprb, 0.508622e+00_jprb &
4570  &, 0.483953e+00_jprb, 0.459859e+00_jprb, 0.436354e+00_jprb, 0.413453e+00_jprb &
4571  &, 0.391172e+00_jprb, 0.369521e+00_jprb, 0.348516e+00_jprb &
4572  &, 0.328165e+00_jprb, 0.308480e+00_jprb, 0.289472e+00_jprb, 0.271146e+00_jprb &
4573  &, 0.253513e+00_jprb, 0.236577e+00_jprb, 0.220337e+00_jprb &
4574  &, 0.204803e+00_jprb, 0.189970e+00_jprb, 0.175837e+00_jprb, 0.162407e+00_jprb &
4575  &, 0.149667e+00_jprb, 0.137614e+00_jprb, 0.126235e+00_jprb &
4576  &, 0.115523e+00_jprb, 0.105467e+00_jprb, 0.960508e-01_jprb, 0.872518e-01_jprb &
4577  &, 0.790541e-01_jprb, 0.714477e-01_jprb, 0.643979e-01_jprb &
4578  &, 0.578966e-01_jprb, 0.518986e-01_jprb, 0.463980e-01_jprb, 0.413740e-01_jprb &
4579  &, 0.367768e-01_jprb, 0.326119e-01_jprb, 0.288321e-01_jprb &
4580  &, 0.254093e-01_jprb, 0.223380e-01_jprb, 0.195689e-01_jprb, 0.171025e-01_jprb &
4581  &, 0.148947e-01_jprb, 0.129398e-01_jprb, 0.112003e-01_jprb &
4582  &, 0.966475e-02_jprb, 0.831949e-02_jprb, 0.714873e-02_jprb, 0.611766e-02_jprb &
4583  &, 0.520447e-02_jprb, 0.443676e-02_jprb, 0.375530e-02_jprb &
4584  &, 0.316751e-02_jprb, 0.268105e-02_jprb, 0.224696e-02_jprb, 0.186966e-02_jprb &
4585  &, 0.157355e-02_jprb, 0.130394e-02_jprb, 0.108380e-02_jprb &
4586  &, 0.895701e-03_jprb, 0.742094e-03_jprb, 0.603519e-03_jprb, 0.481201e-03_jprb &
4587  &, 0.399302e-03_jprb, 0.313784e-03_jprb, 0.248418e-03_jprb &
4588  &, 0.204573e-03_jprb, 0.158845e-03_jprb, 0.136496e-03_jprb, 0.113188e-03_jprb &
4589  &, 0.889016e-04_jprb, 0.636203e-04_jprb, 0.373257e-04_jprb &
4590  &, 0.378473e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4591  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4592  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4593  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4594  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4595  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4596  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4597  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4598  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4599  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4600  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4601  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4602  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4603  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4604  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4605  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4606 xcw( 102, :) = (/ &
4607  & 0.874749e+00_jprb, 0.844221e+00_jprb, 0.814043e+00_jprb, 0.784233e+00_jprb &
4608  &, 0.754807e+00_jprb, 0.725784e+00_jprb, 0.697181e+00_jprb &
4609  &, 0.669015e+00_jprb, 0.641303e+00_jprb, 0.614062e+00_jprb, 0.587310e+00_jprb &
4610  &, 0.561063e+00_jprb, 0.535336e+00_jprb, 0.510149e+00_jprb &
4611  &, 0.485514e+00_jprb, 0.461448e+00_jprb, 0.437968e+00_jprb, 0.415085e+00_jprb &
4612  &, 0.392815e+00_jprb, 0.371171e+00_jprb, 0.350166e+00_jprb &
4613  &, 0.329813e+00_jprb, 0.310119e+00_jprb, 0.291096e+00_jprb, 0.272752e+00_jprb &
4614  &, 0.255095e+00_jprb, 0.238130e+00_jprb, 0.221860e+00_jprb &
4615  &, 0.206293e+00_jprb, 0.191420e+00_jprb, 0.177249e+00_jprb, 0.163771e+00_jprb &
4616  &, 0.150983e+00_jprb, 0.138884e+00_jprb, 0.127455e+00_jprb &
4617  &, 0.116695e+00_jprb, 0.106583e+00_jprb, 0.971069e-01_jprb, 0.882544e-01_jprb &
4618  &, 0.800100e-01_jprb, 0.723435e-01_jprb, 0.652405e-01_jprb &
4619  &, 0.586829e-01_jprb, 0.526364e-01_jprb, 0.470845e-01_jprb, 0.420060e-01_jprb &
4620  &, 0.373633e-01_jprb, 0.331503e-01_jprb, 0.293195e-01_jprb &
4621  &, 0.258561e-01_jprb, 0.227418e-01_jprb, 0.199410e-01_jprb, 0.174412e-01_jprb &
4622  &, 0.151981e-01_jprb, 0.132061e-01_jprb, 0.114426e-01_jprb &
4623  &, 0.989721e-02_jprb, 0.852564e-02_jprb, 0.731097e-02_jprb, 0.626703e-02_jprb &
4624  &, 0.534027e-02_jprb, 0.454092e-02_jprb, 0.386181e-02_jprb &
4625  &, 0.325825e-02_jprb, 0.275525e-02_jprb, 0.230383e-02_jprb, 0.192778e-02_jprb &
4626  &, 0.161313e-02_jprb, 0.134438e-02_jprb, 0.112510e-02_jprb &
4627  &, 0.916789e-03_jprb, 0.763626e-03_jprb, 0.625501e-03_jprb, 0.503640e-03_jprb &
4628  &, 0.422202e-03_jprb, 0.337152e-03_jprb, 0.272260e-03_jprb &
4629  &, 0.204573e-03_jprb, 0.183652e-03_jprb, 0.136496e-03_jprb, 0.113188e-03_jprb &
4630  &, 0.889016e-04_jprb, 0.636203e-04_jprb, 0.373257e-04_jprb &
4631  &, 0.378473e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4632  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4633  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4634  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4635  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4636  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4637  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4638  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4639  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4640  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4641  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4642  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4643  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4644  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4645  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4646  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4647 xcw( 103, :) = (/ &
4648  & 0.875264e+00_jprb, 0.844851e+00_jprb, 0.814780e+00_jprb, 0.785072e+00_jprb &
4649  &, 0.755741e+00_jprb, 0.726808e+00_jprb, 0.698287e+00_jprb &
4650  &, 0.670198e+00_jprb, 0.642557e+00_jprb, 0.615382e+00_jprb, 0.588689e+00_jprb &
4651  &, 0.562494e+00_jprb, 0.536815e+00_jprb, 0.511668e+00_jprb &
4652  &, 0.487068e+00_jprb, 0.463032e+00_jprb, 0.439574e+00_jprb, 0.416709e+00_jprb &
4653  &, 0.394451e+00_jprb, 0.372814e+00_jprb, 0.351810e+00_jprb &
4654  &, 0.331454e+00_jprb, 0.311750e+00_jprb, 0.292713e+00_jprb, 0.274354e+00_jprb &
4655  &, 0.256674e+00_jprb, 0.239684e+00_jprb, 0.223383e+00_jprb &
4656  &, 0.207779e+00_jprb, 0.192867e+00_jprb, 0.178654e+00_jprb, 0.165135e+00_jprb &
4657  &, 0.152304e+00_jprb, 0.140154e+00_jprb, 0.128676e+00_jprb &
4658  &, 0.117857e+00_jprb, 0.107699e+00_jprb, 0.981629e-01_jprb, 0.892569e-01_jprb &
4659  &, 0.809556e-01_jprb, 0.732392e-01_jprb, 0.660832e-01_jprb &
4660  &, 0.594692e-01_jprb, 0.533743e-01_jprb, 0.477709e-01_jprb, 0.426379e-01_jprb &
4661  &, 0.379498e-01_jprb, 0.336887e-01_jprb, 0.298197e-01_jprb &
4662  &, 0.263159e-01_jprb, 0.231590e-01_jprb, 0.203270e-01_jprb, 0.177800e-01_jprb &
4663  &, 0.155161e-01_jprb, 0.134872e-01_jprb, 0.117000e-01_jprb &
4664  &, 0.101142e-01_jprb, 0.871594e-02_jprb, 0.748944e-02_jprb, 0.641641e-02_jprb &
4665  &, 0.547608e-02_jprb, 0.466244e-02_jprb, 0.396831e-02_jprb &
4666  &, 0.334898e-02_jprb, 0.282944e-02_jprb, 0.237966e-02_jprb, 0.198589e-02_jprb &
4667  &, 0.167250e-02_jprb, 0.138482e-02_jprb, 0.114575e-02_jprb &
4668  &, 0.958965e-03_jprb, 0.785158e-03_jprb, 0.647483e-03_jprb, 0.526078e-03_jprb &
4669  &, 0.422202e-03_jprb, 0.337152e-03_jprb, 0.272260e-03_jprb &
4670  &, 0.228895e-03_jprb, 0.183652e-03_jprb, 0.136496e-03_jprb, 0.113188e-03_jprb &
4671  &, 0.889016e-04_jprb, 0.636203e-04_jprb, 0.373257e-04_jprb &
4672  &, 0.378473e-04_jprb, 0.383748e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4673  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4674  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4675  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4676  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4677  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4678  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4679  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4680  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4681  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4682  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4683  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4684  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4685  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4686  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4687  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4688 xcw( 104, :) = (/ &
4689  & 0.875776e+00_jprb, 0.845476e+00_jprb, 0.815512e+00_jprb, 0.785905e+00_jprb &
4690  &, 0.756670e+00_jprb, 0.727825e+00_jprb, 0.699387e+00_jprb &
4691  &, 0.671374e+00_jprb, 0.643805e+00_jprb, 0.616694e+00_jprb, 0.590060e+00_jprb &
4692  &, 0.563918e+00_jprb, 0.538284e+00_jprb, 0.513179e+00_jprb &
4693  &, 0.488615e+00_jprb, 0.464607e+00_jprb, 0.441173e+00_jprb, 0.418326e+00_jprb &
4694  &, 0.396082e+00_jprb, 0.374451e+00_jprb, 0.353451e+00_jprb &
4695  &, 0.333089e+00_jprb, 0.313378e+00_jprb, 0.294327e+00_jprb, 0.275949e+00_jprb &
4696  &, 0.258249e+00_jprb, 0.241230e+00_jprb, 0.224901e+00_jprb &
4697  &, 0.209261e+00_jprb, 0.194313e+00_jprb, 0.180062e+00_jprb, 0.166499e+00_jprb &
4698  &, 0.153620e+00_jprb, 0.141419e+00_jprb, 0.129896e+00_jprb &
4699  &, 0.119029e+00_jprb, 0.108805e+00_jprb, 0.992287e-01_jprb, 0.902695e-01_jprb &
4700  &, 0.819116e-01_jprb, 0.741349e-01_jprb, 0.669258e-01_jprb &
4701  &, 0.602555e-01_jprb, 0.541122e-01_jprb, 0.484574e-01_jprb, 0.432818e-01_jprb &
4702  &, 0.385485e-01_jprb, 0.342395e-01_jprb, 0.303200e-01_jprb &
4703  &, 0.267758e-01_jprb, 0.235762e-01_jprb, 0.206991e-01_jprb, 0.181329e-01_jprb &
4704  &, 0.158195e-01_jprb, 0.137683e-01_jprb, 0.119575e-01_jprb &
4705  &, 0.103466e-01_jprb, 0.892209e-02_jprb, 0.766791e-02_jprb, 0.658237e-02_jprb &
4706  &, 0.562886e-02_jprb, 0.478396e-02_jprb, 0.407481e-02_jprb &
4707  &, 0.343971e-02_jprb, 0.290364e-02_jprb, 0.245549e-02_jprb, 0.206338e-02_jprb &
4708  &, 0.171209e-02_jprb, 0.142525e-02_jprb, 0.118705e-02_jprb &
4709  &, 0.980053e-03_jprb, 0.806690e-03_jprb, 0.669466e-03_jprb, 0.548516e-03_jprb &
4710  &, 0.445102e-03_jprb, 0.360520e-03_jprb, 0.296102e-03_jprb &
4711  &, 0.228895e-03_jprb, 0.183652e-03_jprb, 0.161795e-03_jprb, 0.113188e-03_jprb &
4712  &, 0.889016e-04_jprb, 0.636203e-04_jprb, 0.646515e-04_jprb &
4713  &, 0.378473e-04_jprb, 0.383748e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4714  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4715  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4716  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4717  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4718  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4719  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4720  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4721  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4722  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4723  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4724  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4725  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4726  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4727  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4728  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4729 xcw( 105, :) = (/ &
4730  & 0.876285e+00_jprb, 0.846097e+00_jprb, 0.816240e+00_jprb, 0.786733e+00_jprb &
4731  &, 0.757592e+00_jprb, 0.728836e+00_jprb, 0.700481e+00_jprb &
4732  &, 0.672545e+00_jprb, 0.645046e+00_jprb, 0.617999e+00_jprb, 0.591423e+00_jprb &
4733  &, 0.565333e+00_jprb, 0.539747e+00_jprb, 0.514682e+00_jprb &
4734  &, 0.490153e+00_jprb, 0.466175e+00_jprb, 0.442765e+00_jprb, 0.419936e+00_jprb &
4735  &, 0.397704e+00_jprb, 0.376082e+00_jprb, 0.355082e+00_jprb &
4736  &, 0.334717e+00_jprb, 0.314999e+00_jprb, 0.295938e+00_jprb, 0.277540e+00_jprb &
4737  &, 0.259816e+00_jprb, 0.242776e+00_jprb, 0.226416e+00_jprb &
4738  &, 0.210743e+00_jprb, 0.195760e+00_jprb, 0.181467e+00_jprb, 0.167858e+00_jprb &
4739  &, 0.154936e+00_jprb, 0.142689e+00_jprb, 0.131116e+00_jprb &
4740  &, 0.120192e+00_jprb, 0.109930e+00_jprb, 0.100295e+00_jprb, 0.912821e-01_jprb &
4741  &, 0.828675e-01_jprb, 0.750412e-01_jprb, 0.677793e-01_jprb &
4742  &, 0.610528e-01_jprb, 0.548500e-01_jprb, 0.491555e-01_jprb, 0.439257e-01_jprb &
4743  &, 0.391473e-01_jprb, 0.347779e-01_jprb, 0.308202e-01_jprb &
4744  &, 0.272357e-01_jprb, 0.240069e-01_jprb, 0.210851e-01_jprb, 0.184716e-01_jprb &
4745  &, 0.161375e-01_jprb, 0.140494e-01_jprb, 0.121998e-01_jprb &
4746  &, 0.105636e-01_jprb, 0.912824e-02_jprb, 0.784637e-02_jprb, 0.673175e-02_jprb &
4747  &, 0.576466e-02_jprb, 0.492284e-02_jprb, 0.418131e-02_jprb &
4748  &, 0.354859e-02_jprb, 0.299638e-02_jprb, 0.253131e-02_jprb, 0.212149e-02_jprb &
4749  &, 0.177146e-02_jprb, 0.148591e-02_jprb, 0.122835e-02_jprb &
4750  &, 0.102223e-02_jprb, 0.849755e-03_jprb, 0.691448e-03_jprb, 0.570954e-03_jprb &
4751  &, 0.468002e-03_jprb, 0.383888e-03_jprb, 0.296102e-03_jprb &
4752  &, 0.253217e-03_jprb, 0.208460e-03_jprb, 0.161795e-03_jprb, 0.113188e-03_jprb &
4753  &, 0.889016e-04_jprb, 0.636203e-04_jprb, 0.646515e-04_jprb &
4754  &, 0.378473e-04_jprb, 0.383748e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4755  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4756  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4757  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4758  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4759  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4760  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4761  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4762  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4763  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4764  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4765  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4766  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4767  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4768  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4769  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4770 
4771 IF (lhook) CALL dr_hook('SU_MCICA:PART15',1,zhook_handle)
4772 END SUBROUTINE part15
4773 
4774 #ifdef VPP5000
4775 !OCL SCALAR
4776 #endif
4777 !option! -Nv -NO
4778 #ifdef RS6K
4779 @process nooptimize
4780 #endif
4781 !pgi$r opt=0
4782 SUBROUTINE part16
4783 
4784 REAL(KIND=JPRB) :: ZHOOK_HANDLE
4785 IF (lhook) CALL dr_hook('SU_MCICA:PART16',0,zhook_handle)
4786 
4787 xcw( 106, :) = (/ &
4788  & 0.876790e+00_jprb, 0.846714e+00_jprb, 0.816963e+00_jprb, 0.787556e+00_jprb &
4789  &, 0.758509e+00_jprb, 0.729841e+00_jprb, 0.701568e+00_jprb &
4790  &, 0.673709e+00_jprb, 0.646279e+00_jprb, 0.619296e+00_jprb, 0.592779e+00_jprb &
4791  &, 0.566742e+00_jprb, 0.541204e+00_jprb, 0.516178e+00_jprb &
4792  &, 0.491684e+00_jprb, 0.467737e+00_jprb, 0.444350e+00_jprb, 0.421540e+00_jprb &
4793  &, 0.399321e+00_jprb, 0.377706e+00_jprb, 0.356710e+00_jprb &
4794  &, 0.336341e+00_jprb, 0.316617e+00_jprb, 0.297541e+00_jprb, 0.279128e+00_jprb &
4795  &, 0.261384e+00_jprb, 0.244314e+00_jprb, 0.227928e+00_jprb &
4796  &, 0.212221e+00_jprb, 0.197202e+00_jprb, 0.182871e+00_jprb, 0.169222e+00_jprb &
4797  &, 0.156252e+00_jprb, 0.143959e+00_jprb, 0.132336e+00_jprb &
4798  &, 0.121364e+00_jprb, 0.111046e+00_jprb, 0.101360e+00_jprb, 0.922946e-01_jprb &
4799  &, 0.838234e-01_jprb, 0.759475e-01_jprb, 0.686328e-01_jprb &
4800  &, 0.618502e-01_jprb, 0.555992e-01_jprb, 0.498536e-01_jprb, 0.445696e-01_jprb &
4801  &, 0.397460e-01_jprb, 0.353413e-01_jprb, 0.313333e-01_jprb &
4802  &, 0.277088e-01_jprb, 0.244241e-01_jprb, 0.214710e-01_jprb, 0.188245e-01_jprb &
4803  &, 0.164554e-01_jprb, 0.143453e-01_jprb, 0.124572e-01_jprb &
4804  &, 0.107961e-01_jprb, 0.933439e-02_jprb, 0.804107e-02_jprb, 0.689772e-02_jprb &
4805  &, 0.590046e-02_jprb, 0.504435e-02_jprb, 0.428781e-02_jprb &
4806  &, 0.363933e-02_jprb, 0.307058e-02_jprb, 0.258819e-02_jprb, 0.217961e-02_jprb &
4807  &, 0.183084e-02_jprb, 0.152634e-02_jprb, 0.126965e-02_jprb &
4808  &, 0.106441e-02_jprb, 0.871287e-03_jprb, 0.713430e-03_jprb, 0.593392e-03_jprb &
4809  &, 0.490902e-03_jprb, 0.383888e-03_jprb, 0.319944e-03_jprb &
4810  &, 0.253217e-03_jprb, 0.208460e-03_jprb, 0.161795e-03_jprb, 0.138984e-03_jprb &
4811  &, 0.889016e-04_jprb, 0.904305e-04_jprb, 0.646515e-04_jprb &
4812  &, 0.378473e-04_jprb, 0.383748e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4813  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4814  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4815  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4816  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4817  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4818  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4819  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4820  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4821  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4822  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4823  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4824  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4825  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4826  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4827  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4828 xcw( 107, :) = (/ &
4829  & 0.877294e+00_jprb, 0.847327e+00_jprb, 0.817681e+00_jprb, 0.788374e+00_jprb &
4830  &, 0.759421e+00_jprb, 0.730840e+00_jprb, 0.702649e+00_jprb &
4831  &, 0.674865e+00_jprb, 0.647505e+00_jprb, 0.620587e+00_jprb, 0.594128e+00_jprb &
4832  &, 0.568144e+00_jprb, 0.542651e+00_jprb, 0.517667e+00_jprb &
4833  &, 0.493209e+00_jprb, 0.469291e+00_jprb, 0.445928e+00_jprb, 0.423137e+00_jprb &
4834  &, 0.400931e+00_jprb, 0.379324e+00_jprb, 0.358328e+00_jprb &
4835  &, 0.337959e+00_jprb, 0.318228e+00_jprb, 0.299141e+00_jprb, 0.280713e+00_jprb &
4836  &, 0.262948e+00_jprb, 0.245853e+00_jprb, 0.229435e+00_jprb &
4837  &, 0.213699e+00_jprb, 0.198645e+00_jprb, 0.184272e+00_jprb, 0.170582e+00_jprb &
4838  &, 0.157569e+00_jprb, 0.145228e+00_jprb, 0.133556e+00_jprb &
4839  &, 0.122536e+00_jprb, 0.112162e+00_jprb, 0.102426e+00_jprb, 0.933072e-01_jprb &
4840  &, 0.847896e-01_jprb, 0.768538e-01_jprb, 0.694862e-01_jprb &
4841  &, 0.626586e-01_jprb, 0.563485e-01_jprb, 0.505516e-01_jprb, 0.452254e-01_jprb &
4842  &, 0.403447e-01_jprb, 0.358922e-01_jprb, 0.318464e-01_jprb &
4843  &, 0.281687e-01_jprb, 0.248548e-01_jprb, 0.218707e-01_jprb, 0.191773e-01_jprb &
4844  &, 0.167733e-01_jprb, 0.146263e-01_jprb, 0.127297e-01_jprb &
4845  &, 0.110285e-01_jprb, 0.954054e-02_jprb, 0.821953e-02_jprb, 0.706368e-02_jprb &
4846  &, 0.605324e-02_jprb, 0.516587e-02_jprb, 0.441206e-02_jprb &
4847  &, 0.373006e-02_jprb, 0.316332e-02_jprb, 0.266401e-02_jprb, 0.223772e-02_jprb &
4848  &, 0.189021e-02_jprb, 0.156678e-02_jprb, 0.131095e-02_jprb &
4849  &, 0.108549e-02_jprb, 0.892819e-03_jprb, 0.735412e-03_jprb, 0.615830e-03_jprb &
4850  &, 0.490902e-03_jprb, 0.407256e-03_jprb, 0.319944e-03_jprb &
4851  &, 0.277538e-03_jprb, 0.208460e-03_jprb, 0.161795e-03_jprb, 0.138984e-03_jprb &
4852  &, 0.115202e-03_jprb, 0.904305e-04_jprb, 0.646515e-04_jprb &
4853  &, 0.378473e-04_jprb, 0.383748e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4854  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4855  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4856  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4857  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4858  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4859  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4860  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4861  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4862  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4863  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4864  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4865  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4866  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4867  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4868  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4869 xcw( 108, :) = (/ &
4870  & 0.877792e+00_jprb, 0.847937e+00_jprb, 0.818395e+00_jprb, 0.789187e+00_jprb &
4871  &, 0.760326e+00_jprb, 0.731833e+00_jprb, 0.703723e+00_jprb &
4872  &, 0.676015e+00_jprb, 0.648725e+00_jprb, 0.621871e+00_jprb, 0.595470e+00_jprb &
4873  &, 0.569538e+00_jprb, 0.544092e+00_jprb, 0.519150e+00_jprb &
4874  &, 0.494726e+00_jprb, 0.470837e+00_jprb, 0.447499e+00_jprb, 0.424726e+00_jprb &
4875  &, 0.402535e+00_jprb, 0.380936e+00_jprb, 0.359946e+00_jprb &
4876  &, 0.339574e+00_jprb, 0.319835e+00_jprb, 0.300737e+00_jprb, 0.282290e+00_jprb &
4877  &, 0.264505e+00_jprb, 0.247388e+00_jprb, 0.230942e+00_jprb &
4878  &, 0.215173e+00_jprb, 0.200083e+00_jprb, 0.185672e+00_jprb, 0.171942e+00_jprb &
4879  &, 0.158885e+00_jprb, 0.146498e+00_jprb, 0.134776e+00_jprb &
4880  &, 0.123708e+00_jprb, 0.113287e+00_jprb, 0.103492e+00_jprb, 0.943198e-01_jprb &
4881  &, 0.857456e-01_jprb, 0.777600e-01_jprb, 0.703397e-01_jprb &
4882  &, 0.634560e-01_jprb, 0.571090e-01_jprb, 0.512497e-01_jprb, 0.458693e-01_jprb &
4883  &, 0.409435e-01_jprb, 0.364556e-01_jprb, 0.323595e-01_jprb &
4884  &, 0.286548e-01_jprb, 0.252855e-01_jprb, 0.222567e-01_jprb, 0.195443e-01_jprb &
4885  &, 0.171057e-01_jprb, 0.149222e-01_jprb, 0.129872e-01_jprb &
4886  &, 0.112765e-01_jprb, 0.974669e-02_jprb, 0.841423e-02_jprb, 0.722965e-02_jprb &
4887  &, 0.620602e-02_jprb, 0.530475e-02_jprb, 0.451856e-02_jprb &
4888  &, 0.383894e-02_jprb, 0.325607e-02_jprb, 0.273984e-02_jprb, 0.231521e-02_jprb &
4889  &, 0.194959e-02_jprb, 0.162743e-02_jprb, 0.135225e-02_jprb &
4890  &, 0.112767e-02_jprb, 0.935883e-03_jprb, 0.779376e-03_jprb, 0.638268e-03_jprb &
4891  &, 0.513802e-03_jprb, 0.430624e-03_jprb, 0.343786e-03_jprb &
4892  &, 0.277538e-03_jprb, 0.233267e-03_jprb, 0.187094e-03_jprb, 0.138984e-03_jprb &
4893  &, 0.115202e-03_jprb, 0.904305e-04_jprb, 0.646515e-04_jprb &
4894  &, 0.378473e-04_jprb, 0.383748e-04_jprb, 0.389082e-04_jprb, 0.100000e-04_jprb &
4895  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4896  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4897  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4898  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4899  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4900  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4901  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4902  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4903  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4904  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4905  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4906  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4907  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4908  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4909  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4910 xcw( 109, :) = (/ &
4911  & 0.878288e+00_jprb, 0.848542e+00_jprb, 0.819105e+00_jprb, 0.789994e+00_jprb &
4912  &, 0.761227e+00_jprb, 0.732820e+00_jprb, 0.704792e+00_jprb &
4913  &, 0.677159e+00_jprb, 0.649938e+00_jprb, 0.623148e+00_jprb, 0.596805e+00_jprb &
4914  &, 0.570925e+00_jprb, 0.545526e+00_jprb, 0.520625e+00_jprb &
4915  &, 0.496237e+00_jprb, 0.472378e+00_jprb, 0.449065e+00_jprb, 0.426311e+00_jprb &
4916  &, 0.404132e+00_jprb, 0.382541e+00_jprb, 0.361554e+00_jprb &
4917  &, 0.341182e+00_jprb, 0.321436e+00_jprb, 0.302327e+00_jprb, 0.283867e+00_jprb &
4918  &, 0.266062e+00_jprb, 0.248919e+00_jprb, 0.232446e+00_jprb &
4919  &, 0.216643e+00_jprb, 0.201518e+00_jprb, 0.187073e+00_jprb, 0.173297e+00_jprb &
4920  &, 0.160197e+00_jprb, 0.147768e+00_jprb, 0.135997e+00_jprb &
4921  &, 0.124880e+00_jprb, 0.114403e+00_jprb, 0.104568e+00_jprb, 0.953424e-01_jprb &
4922  &, 0.867118e-01_jprb, 0.786768e-01_jprb, 0.712040e-01_jprb &
4923  &, 0.642644e-01_jprb, 0.578582e-01_jprb, 0.519595e-01_jprb, 0.465251e-01_jprb &
4924  &, 0.415544e-01_jprb, 0.370190e-01_jprb, 0.328854e-01_jprb &
4925  &, 0.291279e-01_jprb, 0.257296e-01_jprb, 0.226564e-01_jprb, 0.198971e-01_jprb &
4926  &, 0.174381e-01_jprb, 0.152181e-01_jprb, 0.132597e-01_jprb &
4927  &, 0.115089e-01_jprb, 0.996870e-02_jprb, 0.859269e-02_jprb, 0.739562e-02_jprb &
4928  &, 0.635880e-02_jprb, 0.542627e-02_jprb, 0.464282e-02_jprb &
4929  &, 0.394782e-02_jprb, 0.334881e-02_jprb, 0.281567e-02_jprb, 0.237332e-02_jprb &
4930  &, 0.198917e-02_jprb, 0.166787e-02_jprb, 0.139355e-02_jprb &
4931  &, 0.116985e-02_jprb, 0.957415e-03_jprb, 0.801359e-03_jprb, 0.660707e-03_jprb &
4932  &, 0.536702e-03_jprb, 0.430624e-03_jprb, 0.367628e-03_jprb &
4933  &, 0.277538e-03_jprb, 0.233267e-03_jprb, 0.187094e-03_jprb, 0.138984e-03_jprb &
4934  &, 0.115202e-03_jprb, 0.904305e-04_jprb, 0.646515e-04_jprb &
4935  &, 0.656946e-04_jprb, 0.383748e-04_jprb, 0.389082e-04_jprb, 0.100000e-04_jprb &
4936  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4937  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4938  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4939  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4940  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4941  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4942  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4943  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4944  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4945  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4946  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4947  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4948  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4949  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4950  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4951 xcw( 110, :) = (/ &
4952  & 0.878779e+00_jprb, 0.849144e+00_jprb, 0.819810e+00_jprb, 0.790798e+00_jprb &
4953  &, 0.762122e+00_jprb, 0.733802e+00_jprb, 0.705854e+00_jprb &
4954  &, 0.678296e+00_jprb, 0.651145e+00_jprb, 0.624418e+00_jprb, 0.598133e+00_jprb &
4955  &, 0.572306e+00_jprb, 0.546953e+00_jprb, 0.522092e+00_jprb &
4956  &, 0.497740e+00_jprb, 0.473911e+00_jprb, 0.450622e+00_jprb, 0.427888e+00_jprb &
4957  &, 0.405722e+00_jprb, 0.384140e+00_jprb, 0.363159e+00_jprb &
4958  &, 0.342783e+00_jprb, 0.323033e+00_jprb, 0.303913e+00_jprb, 0.285437e+00_jprb &
4959  &, 0.267611e+00_jprb, 0.250446e+00_jprb, 0.233946e+00_jprb &
4960  &, 0.218113e+00_jprb, 0.202956e+00_jprb, 0.188469e+00_jprb, 0.174657e+00_jprb &
4961  &, 0.161513e+00_jprb, 0.149037e+00_jprb, 0.137221e+00_jprb &
4962  &, 0.126052e+00_jprb, 0.115528e+00_jprb, 0.105633e+00_jprb, 0.963550e-01_jprb &
4963  &, 0.876780e-01_jprb, 0.795937e-01_jprb, 0.720574e-01_jprb &
4964  &, 0.650840e-01_jprb, 0.586188e-01_jprb, 0.526692e-01_jprb, 0.471929e-01_jprb &
4965  &, 0.421776e-01_jprb, 0.375824e-01_jprb, 0.333984e-01_jprb &
4966  &, 0.296009e-01_jprb, 0.261603e-01_jprb, 0.230561e-01_jprb, 0.202641e-01_jprb &
4967  &, 0.177560e-01_jprb, 0.155288e-01_jprb, 0.135323e-01_jprb &
4968  &, 0.117569e-01_jprb, 0.101749e-01_jprb, 0.878739e-02_jprb, 0.757819e-02_jprb &
4969  &, 0.649460e-02_jprb, 0.556515e-02_jprb, 0.474932e-02_jprb &
4970  &, 0.403855e-02_jprb, 0.342301e-02_jprb, 0.291046e-02_jprb, 0.245081e-02_jprb &
4971  &, 0.204855e-02_jprb, 0.172852e-02_jprb, 0.143485e-02_jprb &
4972  &, 0.119093e-02_jprb, 0.100048e-02_jprb, 0.823341e-03_jprb, 0.683145e-03_jprb &
4973  &, 0.559602e-03_jprb, 0.453992e-03_jprb, 0.367628e-03_jprb &
4974  &, 0.301860e-03_jprb, 0.233267e-03_jprb, 0.187094e-03_jprb, 0.164781e-03_jprb &
4975  &, 0.115202e-03_jprb, 0.904305e-04_jprb, 0.646515e-04_jprb &
4976  &, 0.656946e-04_jprb, 0.383748e-04_jprb, 0.389082e-04_jprb, 0.100000e-04_jprb &
4977  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4978  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4979  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4980  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4981  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4982  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4983  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4984  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4985  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4986  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4987  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4988  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4989  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4990  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
4991  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
4992 xcw( 111, :) = (/ &
4993  & 0.879270e+00_jprb, 0.849742e+00_jprb, 0.820511e+00_jprb, 0.791596e+00_jprb &
4994  &, 0.763012e+00_jprb, 0.734778e+00_jprb, 0.706910e+00_jprb &
4995  &, 0.679427e+00_jprb, 0.652346e+00_jprb, 0.625682e+00_jprb, 0.599455e+00_jprb &
4996  &, 0.573680e+00_jprb, 0.548374e+00_jprb, 0.523555e+00_jprb &
4997  &, 0.499237e+00_jprb, 0.475438e+00_jprb, 0.452175e+00_jprb, 0.429458e+00_jprb &
4998  &, 0.407309e+00_jprb, 0.385736e+00_jprb, 0.364757e+00_jprb &
4999  &, 0.344381e+00_jprb, 0.324624e+00_jprb, 0.305495e+00_jprb, 0.287004e+00_jprb &
5000  &, 0.269161e+00_jprb, 0.251970e+00_jprb, 0.235446e+00_jprb &
5001  &, 0.219583e+00_jprb, 0.204387e+00_jprb, 0.189865e+00_jprb, 0.176012e+00_jprb &
5002  &, 0.162829e+00_jprb, 0.150307e+00_jprb, 0.138441e+00_jprb &
5003  &, 0.127224e+00_jprb, 0.116654e+00_jprb, 0.106709e+00_jprb, 0.973776e-01_jprb &
5004  &, 0.886545e-01_jprb, 0.805105e-01_jprb, 0.729217e-01_jprb &
5005  &, 0.658924e-01_jprb, 0.593794e-01_jprb, 0.533789e-01_jprb, 0.478606e-01_jprb &
5006  &, 0.427885e-01_jprb, 0.381583e-01_jprb, 0.339244e-01_jprb &
5007  &, 0.300871e-01_jprb, 0.266044e-01_jprb, 0.234696e-01_jprb, 0.206311e-01_jprb &
5008  &, 0.181028e-01_jprb, 0.158246e-01_jprb, 0.138049e-01_jprb &
5009  &, 0.119893e-01_jprb, 0.103969e-01_jprb, 0.898208e-02_jprb, 0.774416e-02_jprb &
5010  &, 0.666435e-02_jprb, 0.570403e-02_jprb, 0.487357e-02_jprb &
5011  &, 0.414743e-02_jprb, 0.351575e-02_jprb, 0.298629e-02_jprb, 0.250892e-02_jprb &
5012  &, 0.212771e-02_jprb, 0.176896e-02_jprb, 0.147615e-02_jprb &
5013  &, 0.123311e-02_jprb, 0.102201e-02_jprb, 0.845323e-03_jprb, 0.705583e-03_jprb &
5014  &, 0.582502e-03_jprb, 0.477360e-03_jprb, 0.391470e-03_jprb &
5015  &, 0.301860e-03_jprb, 0.258074e-03_jprb, 0.212393e-03_jprb, 0.164781e-03_jprb &
5016  &, 0.115202e-03_jprb, 0.904305e-04_jprb, 0.646515e-04_jprb &
5017  &, 0.656946e-04_jprb, 0.383748e-04_jprb, 0.389082e-04_jprb, 0.100000e-04_jprb &
5018  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5019  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5020  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5021  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5022  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5023  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5024  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5025  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5026  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5027  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5028  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5029  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5030  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5031  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5032  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5033 xcw( 112, :) = (/ &
5034  & 0.879756e+00_jprb, 0.850337e+00_jprb, 0.821208e+00_jprb, 0.792390e+00_jprb &
5035  &, 0.763897e+00_jprb, 0.735749e+00_jprb, 0.707961e+00_jprb &
5036  &, 0.680552e+00_jprb, 0.653539e+00_jprb, 0.626940e+00_jprb, 0.600770e+00_jprb &
5037  &, 0.575046e+00_jprb, 0.549787e+00_jprb, 0.525009e+00_jprb &
5038  &, 0.500728e+00_jprb, 0.476959e+00_jprb, 0.453720e+00_jprb, 0.431025e+00_jprb &
5039  &, 0.408888e+00_jprb, 0.387325e+00_jprb, 0.366350e+00_jprb &
5040  &, 0.345973e+00_jprb, 0.326211e+00_jprb, 0.307071e+00_jprb, 0.288567e+00_jprb &
5041  &, 0.270707e+00_jprb, 0.253493e+00_jprb, 0.236938e+00_jprb &
5042  &, 0.221046e+00_jprb, 0.205821e+00_jprb, 0.191262e+00_jprb, 0.177368e+00_jprb &
5043  &, 0.164141e+00_jprb, 0.151577e+00_jprb, 0.139666e+00_jprb &
5044  &, 0.128405e+00_jprb, 0.117779e+00_jprb, 0.107785e+00_jprb, 0.984002e-01_jprb &
5045  &, 0.896207e-01_jprb, 0.814273e-01_jprb, 0.737968e-01_jprb &
5046  &, 0.667119e-01_jprb, 0.601513e-01_jprb, 0.541003e-01_jprb, 0.485283e-01_jprb &
5047  &, 0.434117e-01_jprb, 0.387342e-01_jprb, 0.344631e-01_jprb &
5048  &, 0.305733e-01_jprb, 0.270620e-01_jprb, 0.238694e-01_jprb, 0.210122e-01_jprb &
5049  &, 0.184352e-01_jprb, 0.161353e-01_jprb, 0.140774e-01_jprb &
5050  &, 0.122373e-01_jprb, 0.106189e-01_jprb, 0.919300e-02_jprb, 0.792672e-02_jprb &
5051  &, 0.681713e-02_jprb, 0.584291e-02_jprb, 0.499782e-02_jprb &
5052  &, 0.425631e-02_jprb, 0.360850e-02_jprb, 0.306212e-02_jprb, 0.258641e-02_jprb &
5053  &, 0.218709e-02_jprb, 0.182961e-02_jprb, 0.153810e-02_jprb &
5054  &, 0.127529e-02_jprb, 0.106508e-02_jprb, 0.889287e-03_jprb, 0.728021e-03_jprb &
5055  &, 0.605402e-03_jprb, 0.500728e-03_jprb, 0.391470e-03_jprb &
5056  &, 0.326182e-03_jprb, 0.258074e-03_jprb, 0.212393e-03_jprb, 0.164781e-03_jprb &
5057  &, 0.141503e-03_jprb, 0.117241e-03_jprb, 0.919772e-04_jprb &
5058  &, 0.656946e-04_jprb, 0.383748e-04_jprb, 0.389082e-04_jprb, 0.100000e-04_jprb &
5059  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5060  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5061  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5062  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5063  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5064  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5065  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5066  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5067  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5068  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5069  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5070  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5071  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5072  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5073  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5074 
5075 IF (lhook) CALL dr_hook('SU_MCICA:PART16',1,zhook_handle)
5076 END SUBROUTINE part16
5077 
5078 #ifdef VPP5000
5079 !OCL SCALAR
5080 #endif
5081 !option! -Nv -NO
5082 #ifdef RS6K
5083 @process nooptimize
5084 #endif
5085 !pgi$r opt=0
5086 SUBROUTINE part17
5087 
5088 REAL(KIND=JPRB) :: ZHOOK_HANDLE
5089 IF (lhook) CALL dr_hook('SU_MCICA:PART17',0,zhook_handle)
5090 
5091 xcw( 113, :) = (/ &
5092  & 0.880240e+00_jprb, 0.850928e+00_jprb, 0.821901e+00_jprb, 0.793179e+00_jprb &
5093  &, 0.764777e+00_jprb, 0.736714e+00_jprb, 0.709006e+00_jprb &
5094  &, 0.681671e+00_jprb, 0.654727e+00_jprb, 0.628190e+00_jprb, 0.602078e+00_jprb &
5095  &, 0.576407e+00_jprb, 0.551195e+00_jprb, 0.526457e+00_jprb &
5096  &, 0.502211e+00_jprb, 0.478474e+00_jprb, 0.455259e+00_jprb, 0.432583e+00_jprb &
5097  &, 0.410461e+00_jprb, 0.388908e+00_jprb, 0.367938e+00_jprb &
5098  &, 0.347561e+00_jprb, 0.327795e+00_jprb, 0.308646e+00_jprb, 0.290127e+00_jprb &
5099  &, 0.272245e+00_jprb, 0.255013e+00_jprb, 0.238434e+00_jprb &
5100  &, 0.222512e+00_jprb, 0.207252e+00_jprb, 0.192654e+00_jprb, 0.178723e+00_jprb &
5101  &, 0.165453e+00_jprb, 0.152842e+00_jprb, 0.140886e+00_jprb &
5102  &, 0.129577e+00_jprb, 0.118904e+00_jprb, 0.108860e+00_jprb, 0.994328e-01_jprb &
5103  &, 0.905972e-01_jprb, 0.823441e-01_jprb, 0.746610e-01_jprb &
5104  &, 0.675314e-01_jprb, 0.609232e-01_jprb, 0.548100e-01_jprb, 0.491961e-01_jprb &
5105  &, 0.440348e-01_jprb, 0.393101e-01_jprb, 0.349890e-01_jprb &
5106  &, 0.310726e-01_jprb, 0.275062e-01_jprb, 0.242829e-01_jprb, 0.213792e-01_jprb &
5107  &, 0.187820e-01_jprb, 0.164460e-01_jprb, 0.143500e-01_jprb &
5108  &, 0.125007e-01_jprb, 0.108409e-01_jprb, 0.938769e-02_jprb, 0.810929e-02_jprb &
5109  &, 0.696991e-02_jprb, 0.598179e-02_jprb, 0.512207e-02_jprb &
5110  &, 0.436519e-02_jprb, 0.371979e-02_jprb, 0.315690e-02_jprb, 0.266390e-02_jprb &
5111  &, 0.224646e-02_jprb, 0.189026e-02_jprb, 0.157940e-02_jprb &
5112  &, 0.131746e-02_jprb, 0.108661e-02_jprb, 0.911270e-03_jprb, 0.750459e-03_jprb &
5113  &, 0.628303e-03_jprb, 0.500728e-03_jprb, 0.415311e-03_jprb &
5114  &, 0.326182e-03_jprb, 0.282882e-03_jprb, 0.212393e-03_jprb, 0.164781e-03_jprb &
5115  &, 0.141503e-03_jprb, 0.117241e-03_jprb, 0.919772e-04_jprb &
5116  &, 0.656946e-04_jprb, 0.383748e-04_jprb, 0.389082e-04_jprb, 0.394477e-04_jprb &
5117  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5118  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5119  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5120  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5121  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5122  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5123  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5124  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5125  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5126  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5127  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5128  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5129  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5130  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5131  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5132 xcw( 114, :) = (/ &
5133  & 0.880720e+00_jprb, 0.851515e+00_jprb, 0.822590e+00_jprb, 0.793964e+00_jprb &
5134  &, 0.765652e+00_jprb, 0.737674e+00_jprb, 0.710046e+00_jprb &
5135  &, 0.682785e+00_jprb, 0.655909e+00_jprb, 0.629435e+00_jprb, 0.603380e+00_jprb &
5136  &, 0.577761e+00_jprb, 0.552595e+00_jprb, 0.527899e+00_jprb &
5137  &, 0.503689e+00_jprb, 0.479982e+00_jprb, 0.456792e+00_jprb, 0.434136e+00_jprb &
5138  &, 0.412029e+00_jprb, 0.390485e+00_jprb, 0.369521e+00_jprb &
5139  &, 0.349146e+00_jprb, 0.329372e+00_jprb, 0.310215e+00_jprb, 0.291682e+00_jprb &
5140  &, 0.273784e+00_jprb, 0.256529e+00_jprb, 0.239922e+00_jprb &
5141  &, 0.223970e+00_jprb, 0.208678e+00_jprb, 0.194046e+00_jprb, 0.180079e+00_jprb &
5142  &, 0.166769e+00_jprb, 0.154112e+00_jprb, 0.142111e+00_jprb &
5143  &, 0.130749e+00_jprb, 0.120030e+00_jprb, 0.109936e+00_jprb, 0.100455e+00_jprb &
5144  &, 0.915736e-01_jprb, 0.832715e-01_jprb, 0.755361e-01_jprb &
5145  &, 0.683509e-01_jprb, 0.616951e-01_jprb, 0.555430e-01_jprb, 0.498638e-01_jprb &
5146  &, 0.446580e-01_jprb, 0.398860e-01_jprb, 0.355277e-01_jprb &
5147  &, 0.315587e-01_jprb, 0.279638e-01_jprb, 0.246964e-01_jprb, 0.217602e-01_jprb &
5148  &, 0.191144e-01_jprb, 0.167567e-01_jprb, 0.146377e-01_jprb &
5149  &, 0.127487e-01_jprb, 0.110787e-01_jprb, 0.959860e-02_jprb, 0.829186e-02_jprb &
5150  &, 0.713967e-02_jprb, 0.612066e-02_jprb, 0.524632e-02_jprb &
5151  &, 0.447407e-02_jprb, 0.381254e-02_jprb, 0.323273e-02_jprb, 0.274138e-02_jprb &
5152  &, 0.230584e-02_jprb, 0.193070e-02_jprb, 0.162070e-02_jprb &
5153  &, 0.135964e-02_jprb, 0.112967e-02_jprb, 0.933252e-03_jprb, 0.772897e-03_jprb &
5154  &, 0.651203e-03_jprb, 0.524096e-03_jprb, 0.439153e-03_jprb &
5155  &, 0.350503e-03_jprb, 0.282882e-03_jprb, 0.237693e-03_jprb, 0.190578e-03_jprb &
5156  &, 0.141503e-03_jprb, 0.117241e-03_jprb, 0.919772e-04_jprb &
5157  &, 0.656946e-04_jprb, 0.383748e-04_jprb, 0.389082e-04_jprb, 0.394477e-04_jprb &
5158  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5159  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5160  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5161  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5162  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5163  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5164  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5165  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5166  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5167  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5168  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5169  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5170  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5171  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5172  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5173 xcw( 115, :) = (/ &
5174  & 0.881198e+00_jprb, 0.852099e+00_jprb, 0.823275e+00_jprb, 0.794744e+00_jprb &
5175  &, 0.766523e+00_jprb, 0.738629e+00_jprb, 0.711080e+00_jprb &
5176  &, 0.683892e+00_jprb, 0.657084e+00_jprb, 0.630673e+00_jprb, 0.604676e+00_jprb &
5177  &, 0.579109e+00_jprb, 0.553989e+00_jprb, 0.529335e+00_jprb &
5178  &, 0.505160e+00_jprb, 0.481484e+00_jprb, 0.458318e+00_jprb, 0.435684e+00_jprb &
5179  &, 0.413591e+00_jprb, 0.392059e+00_jprb, 0.371096e+00_jprb &
5180  &, 0.350724e+00_jprb, 0.330946e+00_jprb, 0.311780e+00_jprb, 0.293235e+00_jprb &
5181  &, 0.275319e+00_jprb, 0.258042e+00_jprb, 0.241410e+00_jprb &
5182  &, 0.225429e+00_jprb, 0.210105e+00_jprb, 0.195438e+00_jprb, 0.181430e+00_jprb &
5183  &, 0.168081e+00_jprb, 0.155382e+00_jprb, 0.143336e+00_jprb &
5184  &, 0.131930e+00_jprb, 0.121165e+00_jprb, 0.111021e+00_jprb, 0.101488e+00_jprb &
5185  &, 0.925501e-01_jprb, 0.841988e-01_jprb, 0.764112e-01_jprb &
5186  &, 0.691815e-01_jprb, 0.624670e-01_jprb, 0.562643e-01_jprb, 0.505435e-01_jprb &
5187  &, 0.452934e-01_jprb, 0.404745e-01_jprb, 0.360664e-01_jprb &
5188  &, 0.320581e-01_jprb, 0.284214e-01_jprb, 0.251237e-01_jprb, 0.221413e-01_jprb &
5189  &, 0.194612e-01_jprb, 0.170673e-01_jprb, 0.149254e-01_jprb &
5190  &, 0.130121e-01_jprb, 0.113008e-01_jprb, 0.979330e-02_jprb, 0.847442e-02_jprb &
5191  &, 0.729244e-02_jprb, 0.627690e-02_jprb, 0.537058e-02_jprb &
5192  &, 0.458295e-02_jprb, 0.390528e-02_jprb, 0.332752e-02_jprb, 0.281887e-02_jprb &
5193  &, 0.236521e-02_jprb, 0.199135e-02_jprb, 0.168265e-02_jprb &
5194  &, 0.140182e-02_jprb, 0.117274e-02_jprb, 0.977216e-03_jprb, 0.795336e-03_jprb &
5195  &, 0.651203e-03_jprb, 0.547464e-03_jprb, 0.439153e-03_jprb &
5196  &, 0.374825e-03_jprb, 0.282882e-03_jprb, 0.237693e-03_jprb, 0.190578e-03_jprb &
5197  &, 0.141503e-03_jprb, 0.117241e-03_jprb, 0.919772e-04_jprb &
5198  &, 0.656946e-04_jprb, 0.667496e-04_jprb, 0.389082e-04_jprb, 0.394477e-04_jprb &
5199  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5200  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5201  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5202  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5203  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5204  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5205  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5206  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5207  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5208  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5209  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5210  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5211  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5212  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5213  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5214 xcw( 116, :) = (/ &
5215  & 0.881674e+00_jprb, 0.852680e+00_jprb, 0.823956e+00_jprb, 0.795520e+00_jprb &
5216  &, 0.767388e+00_jprb, 0.739578e+00_jprb, 0.712108e+00_jprb &
5217  &, 0.684994e+00_jprb, 0.658255e+00_jprb, 0.631906e+00_jprb, 0.605966e+00_jprb &
5218  &, 0.580450e+00_jprb, 0.555378e+00_jprb, 0.530763e+00_jprb &
5219  &, 0.506625e+00_jprb, 0.482978e+00_jprb, 0.459840e+00_jprb, 0.437224e+00_jprb &
5220  &, 0.415149e+00_jprb, 0.393626e+00_jprb, 0.372669e+00_jprb &
5221  &, 0.352296e+00_jprb, 0.332516e+00_jprb, 0.313342e+00_jprb, 0.294780e+00_jprb &
5222  &, 0.276850e+00_jprb, 0.259551e+00_jprb, 0.242895e+00_jprb &
5223  &, 0.226887e+00_jprb, 0.211531e+00_jprb, 0.196830e+00_jprb, 0.182785e+00_jprb &
5224  &, 0.169393e+00_jprb, 0.156651e+00_jprb, 0.144560e+00_jprb &
5225  &, 0.133112e+00_jprb, 0.122290e+00_jprb, 0.112097e+00_jprb, 0.102521e+00_jprb &
5226  &, 0.935369e-01_jprb, 0.851262e-01_jprb, 0.772970e-01_jprb &
5227  &, 0.700011e-01_jprb, 0.632503e-01_jprb, 0.569973e-01_jprb, 0.512232e-01_jprb &
5228  &, 0.459166e-01_jprb, 0.410629e-01_jprb, 0.366180e-01_jprb &
5229  &, 0.325574e-01_jprb, 0.288790e-01_jprb, 0.255372e-01_jprb, 0.225365e-01_jprb &
5230  &, 0.198225e-01_jprb, 0.173780e-01_jprb, 0.152131e-01_jprb &
5231  &, 0.132601e-01_jprb, 0.115386e-01_jprb, 0.100042e-01_jprb, 0.865699e-02_jprb &
5232  &, 0.746220e-02_jprb, 0.641578e-02_jprb, 0.549483e-02_jprb &
5233  &, 0.470998e-02_jprb, 0.401657e-02_jprb, 0.340335e-02_jprb, 0.287698e-02_jprb &
5234  &, 0.244438e-02_jprb, 0.205201e-02_jprb, 0.172395e-02_jprb &
5235  &, 0.144399e-02_jprb, 0.119427e-02_jprb, 0.999198e-03_jprb, 0.840212e-03_jprb &
5236  &, 0.674103e-03_jprb, 0.570832e-03_jprb, 0.462995e-03_jprb &
5237  &, 0.374825e-03_jprb, 0.307689e-03_jprb, 0.237693e-03_jprb, 0.190578e-03_jprb &
5238  &, 0.167803e-03_jprb, 0.117241e-03_jprb, 0.919772e-04_jprb &
5239  &, 0.656946e-04_jprb, 0.667496e-04_jprb, 0.389082e-04_jprb, 0.394477e-04_jprb &
5240  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5241  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5242  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5243  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5244  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5245  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5246  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5247  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5248  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5249  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5250  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5251  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5252  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5253  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5254  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5255 xcw( 117, :) = (/ &
5256  & 0.882147e+00_jprb, 0.853258e+00_jprb, 0.824633e+00_jprb, 0.796292e+00_jprb &
5257  &, 0.768249e+00_jprb, 0.740523e+00_jprb, 0.713131e+00_jprb &
5258  &, 0.686091e+00_jprb, 0.659419e+00_jprb, 0.633132e+00_jprb, 0.607249e+00_jprb &
5259  &, 0.581786e+00_jprb, 0.556759e+00_jprb, 0.532186e+00_jprb &
5260  &, 0.508084e+00_jprb, 0.484469e+00_jprb, 0.461355e+00_jprb, 0.438760e+00_jprb &
5261  &, 0.416700e+00_jprb, 0.395187e+00_jprb, 0.374238e+00_jprb &
5262  &, 0.353864e+00_jprb, 0.334080e+00_jprb, 0.314897e+00_jprb, 0.296326e+00_jprb &
5263  &, 0.278378e+00_jprb, 0.261059e+00_jprb, 0.244379e+00_jprb &
5264  &, 0.228342e+00_jprb, 0.212954e+00_jprb, 0.198218e+00_jprb, 0.184137e+00_jprb &
5265  &, 0.170705e+00_jprb, 0.157921e+00_jprb, 0.145790e+00_jprb &
5266  &, 0.134293e+00_jprb, 0.123425e+00_jprb, 0.113182e+00_jprb, 0.103553e+00_jprb &
5267  &, 0.945134e-01_jprb, 0.860641e-01_jprb, 0.781721e-01_jprb &
5268  &, 0.708427e-01_jprb, 0.640222e-01_jprb, 0.577303e-01_jprb, 0.519147e-01_jprb &
5269  &, 0.465642e-01_jprb, 0.416513e-01_jprb, 0.371567e-01_jprb &
5270  &, 0.330698e-01_jprb, 0.293500e-01_jprb, 0.259645e-01_jprb, 0.229176e-01_jprb &
5271  &, 0.201693e-01_jprb, 0.177035e-01_jprb, 0.155008e-01_jprb &
5272  &, 0.135236e-01_jprb, 0.117765e-01_jprb, 0.102151e-01_jprb, 0.883955e-02_jprb &
5273  &, 0.763195e-02_jprb, 0.657202e-02_jprb, 0.563683e-02_jprb &
5274  &, 0.481886e-02_jprb, 0.410932e-02_jprb, 0.349813e-02_jprb, 0.295447e-02_jprb &
5275  &, 0.250376e-02_jprb, 0.211266e-02_jprb, 0.176525e-02_jprb &
5276  &, 0.148617e-02_jprb, 0.123733e-02_jprb, 0.104316e-02_jprb, 0.862650e-03_jprb &
5277  &, 0.719903e-03_jprb, 0.594200e-03_jprb, 0.486837e-03_jprb &
5278  &, 0.399147e-03_jprb, 0.307689e-03_jprb, 0.262992e-03_jprb, 0.216375e-03_jprb &
5279  &, 0.167803e-03_jprb, 0.144051e-03_jprb, 0.919772e-04_jprb &
5280  &, 0.935418e-04_jprb, 0.667496e-04_jprb, 0.389082e-04_jprb, 0.394477e-04_jprb &
5281  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5282  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5283  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5284  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5285  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5286  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5287  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5288  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5289  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5290  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5291  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5292  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5293  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5294  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5295  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5296 xcw( 118, :) = (/ &
5297  & 0.882615e+00_jprb, 0.853832e+00_jprb, 0.825306e+00_jprb, 0.797059e+00_jprb &
5298  &, 0.769105e+00_jprb, 0.741462e+00_jprb, 0.714149e+00_jprb &
5299  &, 0.687181e+00_jprb, 0.660577e+00_jprb, 0.634353e+00_jprb, 0.608527e+00_jprb &
5300  &, 0.583115e+00_jprb, 0.558135e+00_jprb, 0.533604e+00_jprb &
5301  &, 0.509537e+00_jprb, 0.485953e+00_jprb, 0.462865e+00_jprb, 0.440292e+00_jprb &
5302  &, 0.418246e+00_jprb, 0.396744e+00_jprb, 0.375801e+00_jprb &
5303  &, 0.355429e+00_jprb, 0.335640e+00_jprb, 0.316451e+00_jprb, 0.297867e+00_jprb &
5304  &, 0.279902e+00_jprb, 0.262564e+00_jprb, 0.245860e+00_jprb &
5305  &, 0.229796e+00_jprb, 0.214376e+00_jprb, 0.199606e+00_jprb, 0.185488e+00_jprb &
5306  &, 0.172016e+00_jprb, 0.159195e+00_jprb, 0.147014e+00_jprb &
5307  &, 0.135474e+00_jprb, 0.124560e+00_jprb, 0.114267e+00_jprb, 0.104586e+00_jprb &
5308  &, 0.955002e-01_jprb, 0.870019e-01_jprb, 0.790580e-01_jprb &
5309  &, 0.716733e-01_jprb, 0.648168e-01_jprb, 0.584633e-01_jprb, 0.525944e-01_jprb &
5310  &, 0.471996e-01_jprb, 0.422398e-01_jprb, 0.377083e-01_jprb &
5311  &, 0.335691e-01_jprb, 0.298076e-01_jprb, 0.263917e-01_jprb, 0.233128e-01_jprb &
5312  &, 0.205306e-01_jprb, 0.180289e-01_jprb, 0.157885e-01_jprb &
5313  &, 0.137870e-01_jprb, 0.120144e-01_jprb, 0.104260e-01_jprb, 0.903872e-02_jprb &
5314  &, 0.780171e-02_jprb, 0.671090e-02_jprb, 0.576108e-02_jprb &
5315  &, 0.492774e-02_jprb, 0.422061e-02_jprb, 0.359292e-02_jprb, 0.305133e-02_jprb &
5316  &, 0.258292e-02_jprb, 0.217331e-02_jprb, 0.182720e-02_jprb &
5317  &, 0.152834e-02_jprb, 0.128040e-02_jprb, 0.106514e-02_jprb, 0.885088e-03_jprb &
5318  &, 0.742803e-03_jprb, 0.594200e-03_jprb, 0.486837e-03_jprb &
5319  &, 0.399147e-03_jprb, 0.332497e-03_jprb, 0.262992e-03_jprb, 0.216375e-03_jprb &
5320  &, 0.167803e-03_jprb, 0.144051e-03_jprb, 0.119303e-03_jprb &
5321  &, 0.935418e-04_jprb, 0.667496e-04_jprb, 0.389082e-04_jprb, 0.394477e-04_jprb &
5322  &, 0.399930e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5323  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5324  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5325  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5326  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5327  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5328  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5329  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5330  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5331  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5332  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5333  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5334  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5335  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5336  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5337 xcw( 119, :) = (/ &
5338  & 0.883084e+00_jprb, 0.854403e+00_jprb, 0.825976e+00_jprb, 0.797823e+00_jprb &
5339  &, 0.769957e+00_jprb, 0.742398e+00_jprb, 0.715162e+00_jprb &
5340  &, 0.688267e+00_jprb, 0.661730e+00_jprb, 0.635568e+00_jprb, 0.609799e+00_jprb &
5341  &, 0.584439e+00_jprb, 0.559505e+00_jprb, 0.535015e+00_jprb &
5342  &, 0.510984e+00_jprb, 0.487430e+00_jprb, 0.464370e+00_jprb, 0.441817e+00_jprb &
5343  &, 0.419787e+00_jprb, 0.398296e+00_jprb, 0.377358e+00_jprb &
5344  &, 0.356987e+00_jprb, 0.337200e+00_jprb, 0.317999e+00_jprb, 0.299405e+00_jprb &
5345  &, 0.281426e+00_jprb, 0.264066e+00_jprb, 0.247337e+00_jprb &
5346  &, 0.231247e+00_jprb, 0.215799e+00_jprb, 0.200995e+00_jprb, 0.186839e+00_jprb &
5347  &, 0.173328e+00_jprb, 0.160465e+00_jprb, 0.148239e+00_jprb &
5348  &, 0.136655e+00_jprb, 0.125695e+00_jprb, 0.115353e+00_jprb, 0.105619e+00_jprb &
5349  &, 0.964869e-01_jprb, 0.879398e-01_jprb, 0.799439e-01_jprb &
5350  &, 0.725039e-01_jprb, 0.656001e-01_jprb, 0.591963e-01_jprb, 0.532860e-01_jprb &
5351  &, 0.478472e-01_jprb, 0.428407e-01_jprb, 0.382598e-01_jprb &
5352  &, 0.340816e-01_jprb, 0.302787e-01_jprb, 0.268328e-01_jprb, 0.237080e-01_jprb &
5353  &, 0.208919e-01_jprb, 0.183544e-01_jprb, 0.160914e-01_jprb &
5354  &, 0.140660e-01_jprb, 0.122522e-01_jprb, 0.106532e-01_jprb, 0.922128e-02_jprb &
5355  &, 0.797146e-02_jprb, 0.686714e-02_jprb, 0.590308e-02_jprb &
5356  &, 0.505476e-02_jprb, 0.431336e-02_jprb, 0.368771e-02_jprb, 0.312881e-02_jprb &
5357  &, 0.264230e-02_jprb, 0.223397e-02_jprb, 0.188915e-02_jprb &
5358  &, 0.157052e-02_jprb, 0.132346e-02_jprb, 0.110911e-02_jprb, 0.907526e-03_jprb &
5359  &, 0.765703e-03_jprb, 0.617568e-03_jprb, 0.510679e-03_jprb &
5360  &, 0.423468e-03_jprb, 0.332497e-03_jprb, 0.288291e-03_jprb, 0.216375e-03_jprb &
5361  &, 0.167803e-03_jprb, 0.144051e-03_jprb, 0.119303e-03_jprb &
5362  &, 0.935418e-04_jprb, 0.667496e-04_jprb, 0.389082e-04_jprb, 0.394477e-04_jprb &
5363  &, 0.399930e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5364  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5365  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5366  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5367  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5368  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5369  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5370  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5371  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5372  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5373  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5374  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5375  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5376  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5377  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5378 
5379 IF (lhook) CALL dr_hook('SU_MCICA:PART17',1,zhook_handle)
5380 END SUBROUTINE part17
5381 
5382 #ifdef VPP5000
5383 !OCL SCALAR
5384 #endif
5385 !option! -Nv -NO
5386 #ifdef RS6K
5387 @process nooptimize
5388 #endif
5389 !pgi$r opt=0
5390 SUBROUTINE part18
5391 
5392 REAL(KIND=JPRB) :: ZHOOK_HANDLE
5393 IF (lhook) CALL dr_hook('SU_MCICA:PART18',0,zhook_handle)
5394 
5395 xcw( 120, :) = (/ &
5396  & 0.883547e+00_jprb, 0.854971e+00_jprb, 0.826642e+00_jprb, 0.798579e+00_jprb &
5397  &, 0.770804e+00_jprb, 0.743327e+00_jprb, 0.716169e+00_jprb &
5398  &, 0.689347e+00_jprb, 0.662877e+00_jprb, 0.636777e+00_jprb, 0.611065e+00_jprb &
5399  &, 0.585755e+00_jprb, 0.560869e+00_jprb, 0.536420e+00_jprb &
5400  &, 0.512426e+00_jprb, 0.488903e+00_jprb, 0.465867e+00_jprb, 0.443336e+00_jprb &
5401  &, 0.421322e+00_jprb, 0.399844e+00_jprb, 0.378911e+00_jprb &
5402  &, 0.358545e+00_jprb, 0.338750e+00_jprb, 0.319547e+00_jprb, 0.300940e+00_jprb &
5403  &, 0.282943e+00_jprb, 0.265567e+00_jprb, 0.248814e+00_jprb &
5404  &, 0.232698e+00_jprb, 0.217217e+00_jprb, 0.202383e+00_jprb, 0.188191e+00_jprb &
5405  &, 0.174640e+00_jprb, 0.161735e+00_jprb, 0.149468e+00_jprb &
5406  &, 0.137837e+00_jprb, 0.126829e+00_jprb, 0.116438e+00_jprb, 0.106661e+00_jprb &
5407  &, 0.974737e-01_jprb, 0.888777e-01_jprb, 0.808405e-01_jprb &
5408  &, 0.733456e-01_jprb, 0.663947e-01_jprb, 0.599409e-01_jprb, 0.539776e-01_jprb &
5409  &, 0.484948e-01_jprb, 0.434417e-01_jprb, 0.388242e-01_jprb &
5410  &, 0.346072e-01_jprb, 0.307632e-01_jprb, 0.272601e-01_jprb, 0.241032e-01_jprb &
5411  &, 0.212532e-01_jprb, 0.186947e-01_jprb, 0.163942e-01_jprb &
5412  &, 0.143294e-01_jprb, 0.124901e-01_jprb, 0.108641e-01_jprb, 0.942044e-02_jprb &
5413  &, 0.814121e-02_jprb, 0.702338e-02_jprb, 0.604509e-02_jprb &
5414  &, 0.518179e-02_jprb, 0.442465e-02_jprb, 0.376354e-02_jprb, 0.320630e-02_jprb &
5415  &, 0.272146e-02_jprb, 0.229462e-02_jprb, 0.193045e-02_jprb &
5416  &, 0.163378e-02_jprb, 0.136653e-02_jprb, 0.113109e-02_jprb, 0.952403e-03_jprb &
5417  &, 0.788603e-03_jprb, 0.640936e-03_jprb, 0.534521e-03_jprb &
5418  &, 0.447790e-03_jprb, 0.357304e-03_jprb, 0.288291e-03_jprb, 0.242172e-03_jprb &
5419  &, 0.194104e-03_jprb, 0.144051e-03_jprb, 0.119303e-03_jprb &
5420  &, 0.935418e-04_jprb, 0.667496e-04_jprb, 0.678165e-04_jprb, 0.394477e-04_jprb &
5421  &, 0.399930e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5422  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5423  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5424  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5425  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5426  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5427  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5428  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5429  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5430  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5431  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5432  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5433  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5434  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5435  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5436 xcw( 121, :) = (/ &
5437  & 0.884009e+00_jprb, 0.855535e+00_jprb, 0.827305e+00_jprb, 0.799337e+00_jprb &
5438  &, 0.771647e+00_jprb, 0.744253e+00_jprb, 0.717172e+00_jprb &
5439  &, 0.690421e+00_jprb, 0.664019e+00_jprb, 0.637981e+00_jprb, 0.612325e+00_jprb &
5440  &, 0.587067e+00_jprb, 0.562227e+00_jprb, 0.537819e+00_jprb &
5441  &, 0.513861e+00_jprb, 0.490370e+00_jprb, 0.467360e+00_jprb, 0.444851e+00_jprb &
5442  &, 0.422853e+00_jprb, 0.401386e+00_jprb, 0.380461e+00_jprb &
5443  &, 0.360094e+00_jprb, 0.340300e+00_jprb, 0.321088e+00_jprb, 0.302471e+00_jprb &
5444  &, 0.284459e+00_jprb, 0.267065e+00_jprb, 0.250291e+00_jprb &
5445  &, 0.234144e+00_jprb, 0.218635e+00_jprb, 0.203767e+00_jprb, 0.189538e+00_jprb &
5446  &, 0.175952e+00_jprb, 0.163005e+00_jprb, 0.150697e+00_jprb &
5447  &, 0.139018e+00_jprb, 0.127964e+00_jprb, 0.117533e+00_jprb, 0.107704e+00_jprb &
5448  &, 0.984707e-01_jprb, 0.898156e-01_jprb, 0.817264e-01_jprb &
5449  &, 0.741872e-01_jprb, 0.671780e-01_jprb, 0.606856e-01_jprb, 0.546811e-01_jprb &
5450  &, 0.491424e-01_jprb, 0.440552e-01_jprb, 0.393886e-01_jprb &
5451  &, 0.351196e-01_jprb, 0.312342e-01_jprb, 0.277012e-01_jprb, 0.245125e-01_jprb &
5452  &, 0.216145e-01_jprb, 0.190201e-01_jprb, 0.166971e-01_jprb &
5453  &, 0.146084e-01_jprb, 0.127438e-01_jprb, 0.110912e-01_jprb, 0.961961e-02_jprb &
5454  &, 0.832794e-02_jprb, 0.717962e-02_jprb, 0.618709e-02_jprb &
5455  &, 0.530881e-02_jprb, 0.453595e-02_jprb, 0.387728e-02_jprb, 0.328378e-02_jprb &
5456  &, 0.278084e-02_jprb, 0.235527e-02_jprb, 0.199240e-02_jprb &
5457  &, 0.167596e-02_jprb, 0.140959e-02_jprb, 0.117506e-02_jprb, 0.974841e-03_jprb &
5458  &, 0.811503e-03_jprb, 0.664304e-03_jprb, 0.558363e-03_jprb &
5459  &, 0.447790e-03_jprb, 0.357304e-03_jprb, 0.288291e-03_jprb, 0.242172e-03_jprb &
5460  &, 0.194104e-03_jprb, 0.144051e-03_jprb, 0.119303e-03_jprb &
5461  &, 0.935418e-04_jprb, 0.667496e-04_jprb, 0.678165e-04_jprb, 0.394477e-04_jprb &
5462  &, 0.399930e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5463  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5464  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5465  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5466  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5467  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5468  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5469  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5470  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5471  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5472  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5473  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5474  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5475  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5476  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5477 xcw( 122, :) = (/ &
5478  & 0.884468e+00_jprb, 0.856097e+00_jprb, 0.827964e+00_jprb, 0.800088e+00_jprb &
5479  &, 0.772485e+00_jprb, 0.745173e+00_jprb, 0.718170e+00_jprb &
5480  &, 0.691491e+00_jprb, 0.665155e+00_jprb, 0.639179e+00_jprb, 0.613580e+00_jprb &
5481  &, 0.588374e+00_jprb, 0.563579e+00_jprb, 0.539214e+00_jprb &
5482  &, 0.515292e+00_jprb, 0.491831e+00_jprb, 0.468849e+00_jprb, 0.446359e+00_jprb &
5483  &, 0.424378e+00_jprb, 0.402921e+00_jprb, 0.382004e+00_jprb &
5484  &, 0.361642e+00_jprb, 0.341843e+00_jprb, 0.322625e+00_jprb, 0.303999e+00_jprb &
5485  &, 0.285973e+00_jprb, 0.268558e+00_jprb, 0.251760e+00_jprb &
5486  &, 0.235591e+00_jprb, 0.220054e+00_jprb, 0.205151e+00_jprb, 0.190889e+00_jprb &
5487  &, 0.177264e+00_jprb, 0.164274e+00_jprb, 0.151922e+00_jprb &
5488  &, 0.140199e+00_jprb, 0.129099e+00_jprb, 0.118619e+00_jprb, 0.108746e+00_jprb &
5489  &, 0.994678e-01_jprb, 0.907640e-01_jprb, 0.826231e-01_jprb &
5490  &, 0.750400e-01_jprb, 0.679839e-01_jprb, 0.614302e-01_jprb, 0.553846e-01_jprb &
5491  &, 0.497900e-01_jprb, 0.446561e-01_jprb, 0.399530e-01_jprb &
5492  &, 0.356452e-01_jprb, 0.317187e-01_jprb, 0.281423e-01_jprb, 0.249078e-01_jprb &
5493  &, 0.219902e-01_jprb, 0.193604e-01_jprb, 0.169999e-01_jprb &
5494  &, 0.148873e-01_jprb, 0.129975e-01_jprb, 0.113184e-01_jprb, 0.981877e-02_jprb &
5495  &, 0.849770e-02_jprb, 0.733585e-02_jprb, 0.632909e-02_jprb &
5496  &, 0.541769e-02_jprb, 0.464724e-02_jprb, 0.397206e-02_jprb, 0.338064e-02_jprb &
5497  &, 0.286001e-02_jprb, 0.241593e-02_jprb, 0.205435e-02_jprb &
5498  &, 0.171814e-02_jprb, 0.143112e-02_jprb, 0.119704e-02_jprb, 0.997279e-03_jprb &
5499  &, 0.834403e-03_jprb, 0.687672e-03_jprb, 0.558363e-03_jprb &
5500  &, 0.472112e-03_jprb, 0.382112e-03_jprb, 0.313590e-03_jprb, 0.242172e-03_jprb &
5501  &, 0.194104e-03_jprb, 0.170861e-03_jprb, 0.119303e-03_jprb &
5502  &, 0.935418e-04_jprb, 0.667496e-04_jprb, 0.678165e-04_jprb, 0.394477e-04_jprb &
5503  &, 0.399930e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5504  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5505  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5506  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5507  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5508  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5509  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5510  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5511  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5512  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5513  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5514  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5515  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5516  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5517  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5518 xcw( 123, :) = (/ &
5519  & 0.884926e+00_jprb, 0.856656e+00_jprb, 0.828619e+00_jprb, 0.800836e+00_jprb &
5520  &, 0.773320e+00_jprb, 0.746090e+00_jprb, 0.719163e+00_jprb &
5521  &, 0.692556e+00_jprb, 0.666287e+00_jprb, 0.640372e+00_jprb, 0.614829e+00_jprb &
5522  &, 0.589674e+00_jprb, 0.564927e+00_jprb, 0.540601e+00_jprb &
5523  &, 0.516717e+00_jprb, 0.493288e+00_jprb, 0.470330e+00_jprb, 0.447863e+00_jprb &
5524  &, 0.425900e+00_jprb, 0.404453e+00_jprb, 0.383544e+00_jprb &
5525  &, 0.363184e+00_jprb, 0.343386e+00_jprb, 0.324159e+00_jprb, 0.305523e+00_jprb &
5526  &, 0.287482e+00_jprb, 0.270048e+00_jprb, 0.253233e+00_jprb &
5527  &, 0.237034e+00_jprb, 0.221468e+00_jprb, 0.206535e+00_jprb, 0.192236e+00_jprb &
5528  &, 0.178576e+00_jprb, 0.165548e+00_jprb, 0.153151e+00_jprb &
5529  &, 0.141390e+00_jprb, 0.130244e+00_jprb, 0.119714e+00_jprb, 0.109789e+00_jprb &
5530  &, 0.100465e+00_jprb, 0.917125e-01_jprb, 0.835198e-01_jprb &
5531  &, 0.758816e-01_jprb, 0.687786e-01_jprb, 0.621865e-01_jprb, 0.560881e-01_jprb &
5532  &, 0.504498e-01_jprb, 0.452696e-01_jprb, 0.405174e-01_jprb &
5533  &, 0.361708e-01_jprb, 0.322033e-01_jprb, 0.285971e-01_jprb, 0.253171e-01_jprb &
5534  &, 0.223659e-01_jprb, 0.197006e-01_jprb, 0.173028e-01_jprb &
5535  &, 0.151663e-01_jprb, 0.132513e-01_jprb, 0.115455e-01_jprb, 0.100179e-01_jprb &
5536  &, 0.868443e-02_jprb, 0.750945e-02_jprb, 0.647109e-02_jprb &
5537  &, 0.554472e-02_jprb, 0.475853e-02_jprb, 0.406685e-02_jprb, 0.345813e-02_jprb &
5538  &, 0.293917e-02_jprb, 0.249680e-02_jprb, 0.209565e-02_jprb &
5539  &, 0.176031e-02_jprb, 0.147419e-02_jprb, 0.124100e-02_jprb, 0.104216e-02_jprb &
5540  &, 0.857304e-03_jprb, 0.711040e-03_jprb, 0.582204e-03_jprb &
5541  &, 0.472112e-03_jprb, 0.406919e-03_jprb, 0.313590e-03_jprb, 0.267969e-03_jprb &
5542  &, 0.220404e-03_jprb, 0.170861e-03_jprb, 0.146629e-03_jprb &
5543  &, 0.935418e-04_jprb, 0.951244e-04_jprb, 0.678165e-04_jprb, 0.394477e-04_jprb &
5544  &, 0.399930e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5545  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5546  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5547  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5548  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5549  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5550  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5551  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5552  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5553  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5554  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5555  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5556  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5557  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5558  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5559 xcw( 124, :) = (/ &
5560  & 0.885380e+00_jprb, 0.857211e+00_jprb, 0.829272e+00_jprb, 0.801580e+00_jprb &
5561  &, 0.774150e+00_jprb, 0.747001e+00_jprb, 0.720151e+00_jprb &
5562  &, 0.693615e+00_jprb, 0.667413e+00_jprb, 0.641559e+00_jprb, 0.616073e+00_jprb &
5563  &, 0.590970e+00_jprb, 0.566269e+00_jprb, 0.541985e+00_jprb &
5564  &, 0.518136e+00_jprb, 0.494738e+00_jprb, 0.471808e+00_jprb, 0.449362e+00_jprb &
5565  &, 0.427415e+00_jprb, 0.405982e+00_jprb, 0.385081e+00_jprb &
5566  &, 0.364722e+00_jprb, 0.344922e+00_jprb, 0.325693e+00_jprb, 0.307043e+00_jprb &
5567  &, 0.288988e+00_jprb, 0.271539e+00_jprb, 0.254698e+00_jprb &
5568  &, 0.238477e+00_jprb, 0.222883e+00_jprb, 0.207919e+00_jprb, 0.193583e+00_jprb &
5569  &, 0.179883e+00_jprb, 0.166818e+00_jprb, 0.154385e+00_jprb &
5570  &, 0.142571e+00_jprb, 0.131388e+00_jprb, 0.120809e+00_jprb, 0.110842e+00_jprb &
5571  &, 0.101462e+00_jprb, 0.926609e-01_jprb, 0.844273e-01_jprb &
5572  &, 0.767344e-01_jprb, 0.695845e-01_jprb, 0.629427e-01_jprb, 0.567916e-01_jprb &
5573  &, 0.511096e-01_jprb, 0.458831e-01_jprb, 0.410946e-01_jprb &
5574  &, 0.366964e-01_jprb, 0.326878e-01_jprb, 0.290382e-01_jprb, 0.257405e-01_jprb &
5575  &, 0.227416e-01_jprb, 0.200409e-01_jprb, 0.176208e-01_jprb &
5576  &, 0.154452e-01_jprb, 0.135050e-01_jprb, 0.117727e-01_jprb, 0.102337e-01_jprb &
5577  &, 0.887116e-02_jprb, 0.766569e-02_jprb, 0.661309e-02_jprb &
5578  &, 0.568989e-02_jprb, 0.486983e-02_jprb, 0.416164e-02_jprb, 0.355498e-02_jprb &
5579  &, 0.301834e-02_jprb, 0.255745e-02_jprb, 0.215760e-02_jprb &
5580  &, 0.182358e-02_jprb, 0.153878e-02_jprb, 0.128497e-02_jprb, 0.106459e-02_jprb &
5581  &, 0.880204e-03_jprb, 0.734408e-03_jprb, 0.606046e-03_jprb &
5582  &, 0.496433e-03_jprb, 0.406919e-03_jprb, 0.338889e-03_jprb, 0.267969e-03_jprb &
5583  &, 0.220404e-03_jprb, 0.170861e-03_jprb, 0.146629e-03_jprb &
5584  &, 0.121389e-03_jprb, 0.951244e-04_jprb, 0.678165e-04_jprb, 0.394477e-04_jprb &
5585  &, 0.399930e-04_jprb, 0.405444e-04_jprb, 0.100000e-04_jprb &
5586  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5587  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5588  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5589  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5590  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5591  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5592  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5593  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5594  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5595  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5596  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5597  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5598  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5599  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5600 xcw( 125, :) = (/ &
5601  & 0.885831e+00_jprb, 0.857764e+00_jprb, 0.829920e+00_jprb, 0.802319e+00_jprb &
5602  &, 0.774976e+00_jprb, 0.747909e+00_jprb, 0.721134e+00_jprb &
5603  &, 0.694670e+00_jprb, 0.668533e+00_jprb, 0.642741e+00_jprb, 0.617311e+00_jprb &
5604  &, 0.592260e+00_jprb, 0.567605e+00_jprb, 0.543361e+00_jprb &
5605  &, 0.519549e+00_jprb, 0.496183e+00_jprb, 0.473279e+00_jprb, 0.450856e+00_jprb &
5606  &, 0.428926e+00_jprb, 0.407505e+00_jprb, 0.386612e+00_jprb &
5607  &, 0.366257e+00_jprb, 0.346455e+00_jprb, 0.327220e+00_jprb, 0.308564e+00_jprb &
5608  &, 0.290494e+00_jprb, 0.273025e+00_jprb, 0.256164e+00_jprb &
5609  &, 0.239920e+00_jprb, 0.224297e+00_jprb, 0.209298e+00_jprb, 0.194930e+00_jprb &
5610  &, 0.181195e+00_jprb, 0.168088e+00_jprb, 0.155614e+00_jprb &
5611  &, 0.143762e+00_jprb, 0.132523e+00_jprb, 0.121904e+00_jprb, 0.111884e+00_jprb &
5612  &, 0.102459e+00_jprb, 0.936093e-01_jprb, 0.853239e-01_jprb &
5613  &, 0.775871e-01_jprb, 0.703905e-01_jprb, 0.636990e-01_jprb, 0.575070e-01_jprb &
5614  &, 0.517817e-01_jprb, 0.465091e-01_jprb, 0.416590e-01_jprb &
5615  &, 0.372352e-01_jprb, 0.331857e-01_jprb, 0.294930e-01_jprb, 0.261498e-01_jprb &
5616  &, 0.231174e-01_jprb, 0.203959e-01_jprb, 0.179388e-01_jprb &
5617  &, 0.157242e-01_jprb, 0.137587e-01_jprb, 0.119998e-01_jprb, 0.104329e-01_jprb &
5618  &, 0.905789e-02_jprb, 0.783929e-02_jprb, 0.675510e-02_jprb &
5619  &, 0.581692e-02_jprb, 0.498112e-02_jprb, 0.425642e-02_jprb, 0.363247e-02_jprb &
5620  &, 0.309751e-02_jprb, 0.261811e-02_jprb, 0.221955e-02_jprb &
5621  &, 0.186575e-02_jprb, 0.158185e-02_jprb, 0.130695e-02_jprb, 0.110947e-02_jprb &
5622  &, 0.926004e-03_jprb, 0.757776e-03_jprb, 0.629888e-03_jprb &
5623  &, 0.520755e-03_jprb, 0.431727e-03_jprb, 0.338889e-03_jprb, 0.293766e-03_jprb &
5624  &, 0.220404e-03_jprb, 0.170861e-03_jprb, 0.146629e-03_jprb &
5625  &, 0.121389e-03_jprb, 0.951244e-04_jprb, 0.678165e-04_jprb, 0.394477e-04_jprb &
5626  &, 0.399930e-04_jprb, 0.405444e-04_jprb, 0.100000e-04_jprb &
5627  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5628  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5629  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5630  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5631  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5632  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5633  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5634  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5635  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5636  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5637  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5638  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5639  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5640  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5641 xcw( 126, :) = (/ &
5642  & 0.886281e+00_jprb, 0.858314e+00_jprb, 0.830566e+00_jprb, 0.803055e+00_jprb &
5643  &, 0.775798e+00_jprb, 0.748811e+00_jprb, 0.722113e+00_jprb &
5644  &, 0.695720e+00_jprb, 0.669649e+00_jprb, 0.643918e+00_jprb, 0.618545e+00_jprb &
5645  &, 0.593544e+00_jprb, 0.568935e+00_jprb, 0.544733e+00_jprb &
5646  &, 0.520957e+00_jprb, 0.497624e+00_jprb, 0.474747e+00_jprb, 0.452344e+00_jprb &
5647  &, 0.430432e+00_jprb, 0.409025e+00_jprb, 0.388139e+00_jprb &
5648  &, 0.367789e+00_jprb, 0.347985e+00_jprb, 0.328744e+00_jprb, 0.310077e+00_jprb &
5649  &, 0.291996e+00_jprb, 0.274511e+00_jprb, 0.257629e+00_jprb &
5650  &, 0.241358e+00_jprb, 0.225708e+00_jprb, 0.210678e+00_jprb, 0.196277e+00_jprb &
5651  &, 0.182507e+00_jprb, 0.169362e+00_jprb, 0.156844e+00_jprb &
5652  &, 0.144943e+00_jprb, 0.133667e+00_jprb, 0.122999e+00_jprb, 0.112937e+00_jprb &
5653  &, 0.103466e+00_jprb, 0.945683e-01_jprb, 0.862314e-01_jprb &
5654  &, 0.784509e-01_jprb, 0.711965e-01_jprb, 0.644552e-01_jprb, 0.582106e-01_jprb &
5655  &, 0.524415e-01_jprb, 0.471226e-01_jprb, 0.422490e-01_jprb &
5656  &, 0.377607e-01_jprb, 0.336837e-01_jprb, 0.299479e-01_jprb, 0.265732e-01_jprb &
5657  &, 0.235076e-01_jprb, 0.207362e-01_jprb, 0.182568e-01_jprb &
5658  &, 0.160186e-01_jprb, 0.140124e-01_jprb, 0.122270e-01_jprb, 0.106486e-01_jprb &
5659  &, 0.924462e-02_jprb, 0.799553e-02_jprb, 0.691485e-02_jprb &
5660  &, 0.594395e-02_jprb, 0.511096e-02_jprb, 0.437017e-02_jprb, 0.372933e-02_jprb &
5661  &, 0.317667e-02_jprb, 0.269898e-02_jprb, 0.228150e-02_jprb &
5662  &, 0.192902e-02_jprb, 0.162491e-02_jprb, 0.135091e-02_jprb, 0.113191e-02_jprb &
5663  &, 0.948904e-03_jprb, 0.781144e-03_jprb, 0.653730e-03_jprb &
5664  &, 0.545077e-03_jprb, 0.431727e-03_jprb, 0.364189e-03_jprb, 0.293766e-03_jprb &
5665  &, 0.246705e-03_jprb, 0.197671e-03_jprb, 0.146629e-03_jprb &
5666  &, 0.121389e-03_jprb, 0.951244e-04_jprb, 0.678165e-04_jprb, 0.688953e-04_jprb &
5667  &, 0.399930e-04_jprb, 0.405444e-04_jprb, 0.100000e-04_jprb &
5668  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5669  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5670  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5671  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5672  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5673  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5674  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5675  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5676  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5677  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5678  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5679  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5680  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5681  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5682 
5683 IF (lhook) CALL dr_hook('SU_MCICA:PART18',1,zhook_handle)
5684 END SUBROUTINE part18
5685 
5686 #ifdef VPP5000
5687 !OCL SCALAR
5688 #endif
5689 !option! -Nv -NO
5690 #ifdef RS6K
5691 @process nooptimize
5692 #endif
5693 !pgi$r opt=0
5694 SUBROUTINE part19
5695 
5696 REAL(KIND=JPRB) :: ZHOOK_HANDLE
5697 IF (lhook) CALL dr_hook('SU_MCICA:PART19',0,zhook_handle)
5698 
5699 xcw( 127, :) = (/ &
5700  & 0.886728e+00_jprb, 0.858861e+00_jprb, 0.831208e+00_jprb, 0.803788e+00_jprb &
5701  &, 0.776615e+00_jprb, 0.749710e+00_jprb, 0.723087e+00_jprb &
5702  &, 0.696765e+00_jprb, 0.670760e+00_jprb, 0.645091e+00_jprb, 0.619773e+00_jprb &
5703  &, 0.594823e+00_jprb, 0.570261e+00_jprb, 0.546101e+00_jprb &
5704  &, 0.522361e+00_jprb, 0.499059e+00_jprb, 0.476209e+00_jprb, 0.453829e+00_jprb &
5705  &, 0.431933e+00_jprb, 0.410538e+00_jprb, 0.389660e+00_jprb &
5706  &, 0.369314e+00_jprb, 0.349511e+00_jprb, 0.330264e+00_jprb, 0.311590e+00_jprb &
5707  &, 0.293495e+00_jprb, 0.275994e+00_jprb, 0.259091e+00_jprb &
5708  &, 0.242797e+00_jprb, 0.227118e+00_jprb, 0.212058e+00_jprb, 0.197624e+00_jprb &
5709  &, 0.183819e+00_jprb, 0.170636e+00_jprb, 0.158077e+00_jprb &
5710  &, 0.146133e+00_jprb, 0.134812e+00_jprb, 0.124104e+00_jprb, 0.113990e+00_jprb &
5711  &, 0.104463e+00_jprb, 0.955273e-01_jprb, 0.871389e-01_jprb &
5712  &, 0.793147e-01_jprb, 0.720138e-01_jprb, 0.652231e-01_jprb, 0.589379e-01_jprb &
5713  &, 0.531135e-01_jprb, 0.477486e-01_jprb, 0.428262e-01_jprb &
5714  &, 0.382995e-01_jprb, 0.341817e-01_jprb, 0.304165e-01_jprb, 0.269967e-01_jprb &
5715  &, 0.238977e-01_jprb, 0.210913e-01_jprb, 0.185748e-01_jprb &
5716  &, 0.163131e-01_jprb, 0.142820e-01_jprb, 0.124703e-01_jprb, 0.108644e-01_jprb &
5717  &, 0.943134e-02_jprb, 0.816913e-02_jprb, 0.705685e-02_jprb &
5718  &, 0.608912e-02_jprb, 0.522226e-02_jprb, 0.448391e-02_jprb, 0.382619e-02_jprb &
5719  &, 0.325584e-02_jprb, 0.275963e-02_jprb, 0.234345e-02_jprb &
5720  &, 0.197119e-02_jprb, 0.166798e-02_jprb, 0.139488e-02_jprb, 0.117678e-02_jprb &
5721  &, 0.971804e-03_jprb, 0.804512e-03_jprb, 0.677572e-03_jprb &
5722  &, 0.545077e-03_jprb, 0.456534e-03_jprb, 0.364189e-03_jprb, 0.293766e-03_jprb &
5723  &, 0.246705e-03_jprb, 0.197671e-03_jprb, 0.146629e-03_jprb &
5724  &, 0.121389e-03_jprb, 0.951244e-04_jprb, 0.678165e-04_jprb, 0.688953e-04_jprb &
5725  &, 0.399930e-04_jprb, 0.405444e-04_jprb, 0.100000e-04_jprb &
5726  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5727  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5728  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5729  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5730  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5731  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5732  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5733  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5734  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5735  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5736  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5737  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5738  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5739  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5740 xcw( 128, :) = (/ &
5741  & 0.887173e+00_jprb, 0.859406e+00_jprb, 0.831847e+00_jprb, 0.804517e+00_jprb &
5742  &, 0.777430e+00_jprb, 0.750605e+00_jprb, 0.724057e+00_jprb &
5743  &, 0.697806e+00_jprb, 0.671867e+00_jprb, 0.646258e+00_jprb, 0.620996e+00_jprb &
5744  &, 0.596097e+00_jprb, 0.571582e+00_jprb, 0.547462e+00_jprb &
5745  &, 0.523760e+00_jprb, 0.500489e+00_jprb, 0.477666e+00_jprb, 0.455308e+00_jprb &
5746  &, 0.433430e+00_jprb, 0.412048e+00_jprb, 0.391180e+00_jprb &
5747  &, 0.370836e+00_jprb, 0.351034e+00_jprb, 0.331784e+00_jprb, 0.313100e+00_jprb &
5748  &, 0.294993e+00_jprb, 0.277473e+00_jprb, 0.260548e+00_jprb &
5749  &, 0.244232e+00_jprb, 0.228529e+00_jprb, 0.213438e+00_jprb, 0.198971e+00_jprb &
5750  &, 0.185126e+00_jprb, 0.171906e+00_jprb, 0.159307e+00_jprb &
5751  &, 0.147324e+00_jprb, 0.135956e+00_jprb, 0.125199e+00_jprb, 0.115042e+00_jprb &
5752  &, 0.105471e+00_jprb, 0.964862e-01_jprb, 0.880572e-01_jprb &
5753  &, 0.801675e-01_jprb, 0.728198e-01_jprb, 0.659910e-01_jprb, 0.596534e-01_jprb &
5754  &, 0.537856e-01_jprb, 0.483871e-01_jprb, 0.434163e-01_jprb &
5755  &, 0.388514e-01_jprb, 0.346797e-01_jprb, 0.308714e-01_jprb, 0.274201e-01_jprb &
5756  &, 0.242879e-01_jprb, 0.214463e-01_jprb, 0.188928e-01_jprb &
5757  &, 0.166075e-01_jprb, 0.145516e-01_jprb, 0.127137e-01_jprb, 0.110801e-01_jprb &
5758  &, 0.963505e-02_jprb, 0.834272e-02_jprb, 0.721660e-02_jprb &
5759  &, 0.621615e-02_jprb, 0.535210e-02_jprb, 0.457870e-02_jprb, 0.392304e-02_jprb &
5760  &, 0.333501e-02_jprb, 0.284050e-02_jprb, 0.240540e-02_jprb &
5761  &, 0.203446e-02_jprb, 0.171104e-02_jprb, 0.143884e-02_jprb, 0.119922e-02_jprb &
5762  &, 0.994704e-03_jprb, 0.827880e-03_jprb, 0.701414e-03_jprb &
5763  &, 0.569398e-03_jprb, 0.481341e-03_jprb, 0.389488e-03_jprb, 0.319563e-03_jprb &
5764  &, 0.246705e-03_jprb, 0.197671e-03_jprb, 0.173954e-03_jprb &
5765  &, 0.121389e-03_jprb, 0.951244e-04_jprb, 0.678165e-04_jprb, 0.688953e-04_jprb &
5766  &, 0.399930e-04_jprb, 0.405444e-04_jprb, 0.100000e-04_jprb &
5767  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5768  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5769  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5770  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5771  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5772  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5773  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5774  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5775  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5776  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5777  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5778  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5779  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5780  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5781 xcw( 129, :) = (/ &
5782  & 0.887615e+00_jprb, 0.859947e+00_jprb, 0.832483e+00_jprb, 0.805242e+00_jprb &
5783  &, 0.778240e+00_jprb, 0.751495e+00_jprb, 0.725023e+00_jprb &
5784  &, 0.698841e+00_jprb, 0.672968e+00_jprb, 0.647420e+00_jprb, 0.622213e+00_jprb &
5785  &, 0.597366e+00_jprb, 0.572897e+00_jprb, 0.548819e+00_jprb &
5786  &, 0.525153e+00_jprb, 0.501914e+00_jprb, 0.479117e+00_jprb, 0.456783e+00_jprb &
5787  &, 0.434924e+00_jprb, 0.413555e+00_jprb, 0.392695e+00_jprb &
5788  &, 0.372354e+00_jprb, 0.352553e+00_jprb, 0.333297e+00_jprb, 0.314606e+00_jprb &
5789  &, 0.296485e+00_jprb, 0.278952e+00_jprb, 0.262010e+00_jprb &
5790  &, 0.245667e+00_jprb, 0.229935e+00_jprb, 0.214818e+00_jprb, 0.200318e+00_jprb &
5791  &, 0.186438e+00_jprb, 0.173180e+00_jprb, 0.160540e+00_jprb &
5792  &, 0.148514e+00_jprb, 0.137110e+00_jprb, 0.126304e+00_jprb, 0.116105e+00_jprb &
5793  &, 0.106488e+00_jprb, 0.974452e-01_jprb, 0.889646e-01_jprb &
5794  &, 0.810424e-01_jprb, 0.736371e-01_jprb, 0.667589e-01_jprb, 0.603807e-01_jprb &
5795  &, 0.544698e-01_jprb, 0.490131e-01_jprb, 0.439935e-01_jprb &
5796  &, 0.393901e-01_jprb, 0.351776e-01_jprb, 0.313400e-01_jprb, 0.278435e-01_jprb &
5797  &, 0.246781e-01_jprb, 0.218014e-01_jprb, 0.192259e-01_jprb &
5798  &, 0.169019e-01_jprb, 0.148212e-01_jprb, 0.129571e-01_jprb, 0.112959e-01_jprb &
5799  &, 0.982178e-02_jprb, 0.851632e-02_jprb, 0.737636e-02_jprb &
5800  &, 0.636132e-02_jprb, 0.546339e-02_jprb, 0.469244e-02_jprb, 0.401990e-02_jprb &
5801  &, 0.341417e-02_jprb, 0.290116e-02_jprb, 0.246735e-02_jprb &
5802  &, 0.207664e-02_jprb, 0.175411e-02_jprb, 0.148281e-02_jprb, 0.124410e-02_jprb &
5803  &, 0.104050e-02_jprb, 0.851248e-03_jprb, 0.725255e-03_jprb &
5804  &, 0.593720e-03_jprb, 0.481341e-03_jprb, 0.389488e-03_jprb, 0.319563e-03_jprb &
5805  &, 0.273005e-03_jprb, 0.224481e-03_jprb, 0.173954e-03_jprb &
5806  &, 0.149236e-03_jprb, 0.123499e-03_jprb, 0.967247e-04_jprb, 0.688953e-04_jprb &
5807  &, 0.399930e-04_jprb, 0.405444e-04_jprb, 0.411017e-04_jprb &
5808  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5809  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5810  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5811  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5812  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5813  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5814  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5815  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5816  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5817  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5818  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5819  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5820  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5821  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5822 xcw( 130, :) = (/ &
5823  & 0.888056e+00_jprb, 0.860485e+00_jprb, 0.833116e+00_jprb, 0.805964e+00_jprb &
5824  &, 0.779046e+00_jprb, 0.752381e+00_jprb, 0.725984e+00_jprb &
5825  &, 0.699872e+00_jprb, 0.674065e+00_jprb, 0.648577e+00_jprb, 0.623426e+00_jprb &
5826  &, 0.598630e+00_jprb, 0.574206e+00_jprb, 0.550170e+00_jprb &
5827  &, 0.526541e+00_jprb, 0.503334e+00_jprb, 0.480566e+00_jprb, 0.458252e+00_jprb &
5828  &, 0.436411e+00_jprb, 0.415056e+00_jprb, 0.394206e+00_jprb &
5829  &, 0.373869e+00_jprb, 0.354066e+00_jprb, 0.334810e+00_jprb, 0.316109e+00_jprb &
5830  &, 0.297976e+00_jprb, 0.280427e+00_jprb, 0.263464e+00_jprb &
5831  &, 0.247102e+00_jprb, 0.231341e+00_jprb, 0.216194e+00_jprb, 0.201661e+00_jprb &
5832  &, 0.187750e+00_jprb, 0.174454e+00_jprb, 0.161774e+00_jprb &
5833  &, 0.149705e+00_jprb, 0.138254e+00_jprb, 0.127409e+00_jprb, 0.117158e+00_jprb &
5834  &, 0.107496e+00_jprb, 0.984042e-01_jprb, 0.898829e-01_jprb &
5835  &, 0.819062e-01_jprb, 0.744658e-01_jprb, 0.675385e-01_jprb, 0.611081e-01_jprb &
5836  &, 0.551541e-01_jprb, 0.496516e-01_jprb, 0.445963e-01_jprb &
5837  &, 0.399420e-01_jprb, 0.356891e-01_jprb, 0.318087e-01_jprb, 0.282811e-01_jprb &
5838  &, 0.250683e-01_jprb, 0.221712e-01_jprb, 0.195590e-01_jprb &
5839  &, 0.171964e-01_jprb, 0.150908e-01_jprb, 0.132004e-01_jprb, 0.115117e-01_jprb &
5840  &, 0.100255e-01_jprb, 0.870728e-02_jprb, 0.753611e-02_jprb &
5841  &, 0.650649e-02_jprb, 0.559324e-02_jprb, 0.480618e-02_jprb, 0.411676e-02_jprb &
5842  &, 0.351313e-02_jprb, 0.298203e-02_jprb, 0.252930e-02_jprb &
5843  &, 0.213990e-02_jprb, 0.181870e-02_jprb, 0.152677e-02_jprb, 0.126654e-02_jprb &
5844  &, 0.106340e-02_jprb, 0.897984e-03_jprb, 0.749097e-03_jprb &
5845  &, 0.618042e-03_jprb, 0.506149e-03_jprb, 0.414787e-03_jprb, 0.345359e-03_jprb &
5846  &, 0.273005e-03_jprb, 0.224481e-03_jprb, 0.173954e-03_jprb &
5847  &, 0.149236e-03_jprb, 0.123499e-03_jprb, 0.967247e-04_jprb, 0.688953e-04_jprb &
5848  &, 0.399930e-04_jprb, 0.405444e-04_jprb, 0.411017e-04_jprb &
5849  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5850  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5851  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5852  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5853  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5854  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5855  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5856  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5857  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5858  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5859  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5860  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5861  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5862  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5863 xcw( 131, :) = (/ &
5864  & 0.888493e+00_jprb, 0.861022e+00_jprb, 0.833745e+00_jprb, 0.806683e+00_jprb &
5865  &, 0.779849e+00_jprb, 0.753263e+00_jprb, 0.726940e+00_jprb &
5866  &, 0.700899e+00_jprb, 0.675156e+00_jprb, 0.649729e+00_jprb, 0.624635e+00_jprb &
5867  &, 0.599890e+00_jprb, 0.575512e+00_jprb, 0.551517e+00_jprb &
5868  &, 0.527924e+00_jprb, 0.504750e+00_jprb, 0.482008e+00_jprb, 0.459718e+00_jprb &
5869  &, 0.437896e+00_jprb, 0.416553e+00_jprb, 0.395710e+00_jprb &
5870  &, 0.375381e+00_jprb, 0.355578e+00_jprb, 0.336316e+00_jprb, 0.317608e+00_jprb &
5871  &, 0.299467e+00_jprb, 0.281899e+00_jprb, 0.264918e+00_jprb &
5872  &, 0.248533e+00_jprb, 0.232748e+00_jprb, 0.217574e+00_jprb, 0.203008e+00_jprb &
5873  &, 0.189058e+00_jprb, 0.175724e+00_jprb, 0.163008e+00_jprb &
5874  &, 0.150905e+00_jprb, 0.139408e+00_jprb, 0.128514e+00_jprb, 0.118221e+00_jprb &
5875  &, 0.108513e+00_jprb, 0.993737e-01_jprb, 0.908012e-01_jprb &
5876  &, 0.827811e-01_jprb, 0.752831e-01_jprb, 0.683064e-01_jprb, 0.618354e-01_jprb &
5877  &, 0.558384e-01_jprb, 0.502901e-01_jprb, 0.451864e-01_jprb &
5878  &, 0.404938e-01_jprb, 0.362005e-01_jprb, 0.322773e-01_jprb, 0.287186e-01_jprb &
5879  &, 0.254729e-01_jprb, 0.225411e-01_jprb, 0.198922e-01_jprb &
5880  &, 0.175063e-01_jprb, 0.153604e-01_jprb, 0.134438e-01_jprb, 0.117440e-01_jprb &
5881  &, 0.102292e-01_jprb, 0.888088e-02_jprb, 0.769586e-02_jprb &
5882  &, 0.663352e-02_jprb, 0.572308e-02_jprb, 0.491993e-02_jprb, 0.421362e-02_jprb &
5883  &, 0.359230e-02_jprb, 0.306290e-02_jprb, 0.259125e-02_jprb &
5884  &, 0.220316e-02_jprb, 0.186177e-02_jprb, 0.157074e-02_jprb, 0.131141e-02_jprb &
5885  &, 0.110920e-02_jprb, 0.921352e-03_jprb, 0.772939e-03_jprb &
5886  &, 0.642363e-03_jprb, 0.530956e-03_jprb, 0.440086e-03_jprb, 0.345359e-03_jprb &
5887  &, 0.299306e-03_jprb, 0.224481e-03_jprb, 0.173954e-03_jprb &
5888  &, 0.149236e-03_jprb, 0.123499e-03_jprb, 0.967247e-04_jprb, 0.688953e-04_jprb &
5889  &, 0.699861e-04_jprb, 0.405444e-04_jprb, 0.411017e-04_jprb &
5890  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5891  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5892  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5893  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5894  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5895  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5896  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5897  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5898  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5899  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5900  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5901  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5902  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5903  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5904 xcw( 132, :) = (/ &
5905  & 0.888929e+00_jprb, 0.861556e+00_jprb, 0.834372e+00_jprb, 0.807398e+00_jprb &
5906  &, 0.780648e+00_jprb, 0.754141e+00_jprb, 0.727893e+00_jprb &
5907  &, 0.701922e+00_jprb, 0.676244e+00_jprb, 0.650877e+00_jprb, 0.625838e+00_jprb &
5908  &, 0.601143e+00_jprb, 0.576811e+00_jprb, 0.552860e+00_jprb &
5909  &, 0.529303e+00_jprb, 0.506159e+00_jprb, 0.483446e+00_jprb, 0.461179e+00_jprb &
5910  &, 0.439374e+00_jprb, 0.418047e+00_jprb, 0.397215e+00_jprb &
5911  &, 0.376890e+00_jprb, 0.357087e+00_jprb, 0.337823e+00_jprb, 0.319107e+00_jprb &
5912  &, 0.300951e+00_jprb, 0.283370e+00_jprb, 0.266372e+00_jprb &
5913  &, 0.249964e+00_jprb, 0.234154e+00_jprb, 0.218949e+00_jprb, 0.204351e+00_jprb &
5914  &, 0.190370e+00_jprb, 0.176998e+00_jprb, 0.164242e+00_jprb &
5915  &, 0.152095e+00_jprb, 0.140562e+00_jprb, 0.129619e+00_jprb, 0.119283e+00_jprb &
5916  &, 0.109520e+00_jprb, 0.100343e+00_jprb, 0.917195e-01_jprb &
5917  &, 0.836560e-01_jprb, 0.761118e-01_jprb, 0.690859e-01_jprb, 0.625628e-01_jprb &
5918  &, 0.565226e-01_jprb, 0.509286e-01_jprb, 0.457892e-01_jprb &
5919  &, 0.410588e-01_jprb, 0.367254e-01_jprb, 0.327597e-01_jprb, 0.291562e-01_jprb &
5920  &, 0.258775e-01_jprb, 0.229109e-01_jprb, 0.202253e-01_jprb &
5921  &, 0.178163e-01_jprb, 0.156458e-01_jprb, 0.137034e-01_jprb, 0.119764e-01_jprb &
5922  &, 0.104329e-01_jprb, 0.905448e-02_jprb, 0.785561e-02_jprb &
5923  &, 0.677869e-02_jprb, 0.585292e-02_jprb, 0.503367e-02_jprb, 0.431047e-02_jprb &
5924  &, 0.369126e-02_jprb, 0.314377e-02_jprb, 0.267385e-02_jprb &
5925  &, 0.226643e-02_jprb, 0.190483e-02_jprb, 0.161470e-02_jprb, 0.135629e-02_jprb &
5926  &, 0.113210e-02_jprb, 0.944720e-03_jprb, 0.796781e-03_jprb &
5927  &, 0.642363e-03_jprb, 0.530956e-03_jprb, 0.440086e-03_jprb, 0.371156e-03_jprb &
5928  &, 0.299306e-03_jprb, 0.251291e-03_jprb, 0.201280e-03_jprb &
5929  &, 0.149236e-03_jprb, 0.123499e-03_jprb, 0.967247e-04_jprb, 0.688953e-04_jprb &
5930  &, 0.699861e-04_jprb, 0.405444e-04_jprb, 0.411017e-04_jprb &
5931  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5932  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5933  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5934  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5935  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5936  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5937  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5938  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5939  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5940  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5941  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5942  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5943  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5944  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5945 xcw( 133, :) = (/ &
5946  & 0.889363e+00_jprb, 0.862087e+00_jprb, 0.834996e+00_jprb, 0.808109e+00_jprb &
5947  &, 0.781443e+00_jprb, 0.755015e+00_jprb, 0.728841e+00_jprb &
5948  &, 0.702940e+00_jprb, 0.677327e+00_jprb, 0.652020e+00_jprb, 0.627037e+00_jprb &
5949  &, 0.602393e+00_jprb, 0.578107e+00_jprb, 0.554197e+00_jprb &
5950  &, 0.530678e+00_jprb, 0.507566e+00_jprb, 0.484880e+00_jprb, 0.462636e+00_jprb &
5951  &, 0.440849e+00_jprb, 0.419535e+00_jprb, 0.398713e+00_jprb &
5952  &, 0.378395e+00_jprb, 0.358593e+00_jprb, 0.339325e+00_jprb, 0.320603e+00_jprb &
5953  &, 0.302435e+00_jprb, 0.284842e+00_jprb, 0.267822e+00_jprb &
5954  &, 0.251392e+00_jprb, 0.235557e+00_jprb, 0.220325e+00_jprb, 0.205698e+00_jprb &
5955  &, 0.191682e+00_jprb, 0.178272e+00_jprb, 0.165480e+00_jprb &
5956  &, 0.153295e+00_jprb, 0.141707e+00_jprb, 0.130734e+00_jprb, 0.120346e+00_jprb &
5957  &, 0.110538e+00_jprb, 0.101313e+00_jprb, 0.926486e-01_jprb &
5958  &, 0.845309e-01_jprb, 0.769404e-01_jprb, 0.698771e-01_jprb, 0.633021e-01_jprb &
5959  &, 0.572069e-01_jprb, 0.515797e-01_jprb, 0.463921e-01_jprb &
5960  &, 0.416107e-01_jprb, 0.372368e-01_jprb, 0.332422e-01_jprb, 0.295937e-01_jprb &
5961  &, 0.262822e-01_jprb, 0.232807e-01_jprb, 0.205584e-01_jprb &
5962  &, 0.181107e-01_jprb, 0.159154e-01_jprb, 0.139467e-01_jprb, 0.121921e-01_jprb &
5963  &, 0.106366e-01_jprb, 0.924544e-02_jprb, 0.801536e-02_jprb &
5964  &, 0.692386e-02_jprb, 0.598276e-02_jprb, 0.514741e-02_jprb, 0.440733e-02_jprb &
5965  &, 0.377043e-02_jprb, 0.322464e-02_jprb, 0.273580e-02_jprb &
5966  &, 0.232969e-02_jprb, 0.196943e-02_jprb, 0.165866e-02_jprb, 0.140117e-02_jprb &
5967  &, 0.115500e-02_jprb, 0.968088e-03_jprb, 0.820623e-03_jprb &
5968  &, 0.666685e-03_jprb, 0.555764e-03_jprb, 0.465385e-03_jprb, 0.371156e-03_jprb &
5969  &, 0.299306e-03_jprb, 0.251291e-03_jprb, 0.201280e-03_jprb &
5970  &, 0.149236e-03_jprb, 0.123499e-03_jprb, 0.967247e-04_jprb, 0.688953e-04_jprb &
5971  &, 0.699861e-04_jprb, 0.405444e-04_jprb, 0.411017e-04_jprb &
5972  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5973  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5974  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5975  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5976  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5977  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5978  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5979  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5980  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5981  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5982  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5983  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5984  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
5985  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
5986 
5987 IF (lhook) CALL dr_hook('SU_MCICA:PART19',1,zhook_handle)
5988 END SUBROUTINE part19
5989 
5990 #ifdef VPP5000
5991 !OCL SCALAR
5992 #endif
5993 !option! -Nv -NO
5994 #ifdef RS6K
5995 @process nooptimize
5996 #endif
5997 !pgi$r opt=0
5998 SUBROUTINE part20
5999 
6000 REAL(KIND=JPRB) :: ZHOOK_HANDLE
6001 IF (lhook) CALL dr_hook('SU_MCICA:PART20',0,zhook_handle)
6002 
6003 xcw( 134, :) = (/ &
6004  & 0.889795e+00_jprb, 0.862614e+00_jprb, 0.835616e+00_jprb, 0.808818e+00_jprb &
6005  &, 0.782235e+00_jprb, 0.755885e+00_jprb, 0.729786e+00_jprb &
6006  &, 0.703954e+00_jprb, 0.678405e+00_jprb, 0.653158e+00_jprb, 0.628230e+00_jprb &
6007  &, 0.603638e+00_jprb, 0.579399e+00_jprb, 0.555528e+00_jprb &
6008  &, 0.532047e+00_jprb, 0.508968e+00_jprb, 0.486310e+00_jprb, 0.464088e+00_jprb &
6009  &, 0.442321e+00_jprb, 0.421023e+00_jprb, 0.400208e+00_jprb &
6010  &, 0.379894e+00_jprb, 0.360096e+00_jprb, 0.340825e+00_jprb, 0.322095e+00_jprb &
6011  &, 0.303919e+00_jprb, 0.286306e+00_jprb, 0.269272e+00_jprb &
6012  &, 0.252819e+00_jprb, 0.236959e+00_jprb, 0.221697e+00_jprb, 0.207041e+00_jprb &
6013  &, 0.192989e+00_jprb, 0.179546e+00_jprb, 0.166714e+00_jprb &
6014  &, 0.154486e+00_jprb, 0.142861e+00_jprb, 0.131839e+00_jprb, 0.121409e+00_jprb &
6015  &, 0.111566e+00_jprb, 0.102293e+00_jprb, 0.935777e-01_jprb &
6016  &, 0.854057e-01_jprb, 0.777804e-01_jprb, 0.706566e-01_jprb, 0.640413e-01_jprb &
6017  &, 0.579033e-01_jprb, 0.522307e-01_jprb, 0.469950e-01_jprb &
6018  &, 0.421757e-01_jprb, 0.377617e-01_jprb, 0.337246e-01_jprb, 0.300454e-01_jprb &
6019  &, 0.266868e-01_jprb, 0.236506e-01_jprb, 0.209067e-01_jprb &
6020  &, 0.184362e-01_jprb, 0.162008e-01_jprb, 0.142063e-01_jprb, 0.124245e-01_jprb &
6021  &, 0.108403e-01_jprb, 0.943640e-02_jprb, 0.817512e-02_jprb &
6022  &, 0.708718e-02_jprb, 0.611261e-02_jprb, 0.526116e-02_jprb, 0.450419e-02_jprb &
6023  &, 0.386938e-02_jprb, 0.330552e-02_jprb, 0.279775e-02_jprb &
6024  &, 0.237187e-02_jprb, 0.201249e-02_jprb, 0.170263e-02_jprb, 0.142360e-02_jprb &
6025  &, 0.120080e-02_jprb, 0.101482e-02_jprb, 0.844465e-03_jprb &
6026  &, 0.691007e-03_jprb, 0.580571e-03_jprb, 0.465385e-03_jprb, 0.396953e-03_jprb &
6027  &, 0.325606e-03_jprb, 0.251291e-03_jprb, 0.201280e-03_jprb &
6028  &, 0.177084e-03_jprb, 0.123499e-03_jprb, 0.967247e-04_jprb, 0.983430e-04_jprb &
6029  &, 0.699861e-04_jprb, 0.405444e-04_jprb, 0.411017e-04_jprb &
6030  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6031  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6032  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6033  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6034  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6035  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6036  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6037  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6038  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6039  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6040  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6041  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6042  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6043  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6044 xcw( 135, :) = (/ &
6045  & 0.890225e+00_jprb, 0.863140e+00_jprb, 0.836234e+00_jprb, 0.809523e+00_jprb &
6046  &, 0.783023e+00_jprb, 0.756752e+00_jprb, 0.730726e+00_jprb &
6047  &, 0.704963e+00_jprb, 0.679479e+00_jprb, 0.654292e+00_jprb, 0.629420e+00_jprb &
6048  &, 0.604878e+00_jprb, 0.580685e+00_jprb, 0.556857e+00_jprb &
6049  &, 0.533411e+00_jprb, 0.510364e+00_jprb, 0.487735e+00_jprb, 0.465536e+00_jprb &
6050  &, 0.443788e+00_jprb, 0.422501e+00_jprb, 0.401699e+00_jprb &
6051  &, 0.381392e+00_jprb, 0.361595e+00_jprb, 0.342320e+00_jprb, 0.323583e+00_jprb &
6052  &, 0.305396e+00_jprb, 0.287773e+00_jprb, 0.270719e+00_jprb &
6053  &, 0.254246e+00_jprb, 0.238361e+00_jprb, 0.223072e+00_jprb, 0.208384e+00_jprb &
6054  &, 0.194301e+00_jprb, 0.180825e+00_jprb, 0.167952e+00_jprb &
6055  &, 0.155686e+00_jprb, 0.144024e+00_jprb, 0.132953e+00_jprb, 0.122481e+00_jprb &
6056  &, 0.112584e+00_jprb, 0.103262e+00_jprb, 0.945067e-01_jprb &
6057  &, 0.862917e-01_jprb, 0.786091e-01_jprb, 0.714478e-01_jprb, 0.647806e-01_jprb &
6058  &, 0.585998e-01_jprb, 0.528817e-01_jprb, 0.476107e-01_jprb &
6059  &, 0.427407e-01_jprb, 0.382866e-01_jprb, 0.342070e-01_jprb, 0.304829e-01_jprb &
6060  &, 0.271059e-01_jprb, 0.240352e-01_jprb, 0.212550e-01_jprb &
6061  &, 0.187461e-01_jprb, 0.164863e-01_jprb, 0.144659e-01_jprb, 0.126568e-01_jprb &
6062  &, 0.110610e-01_jprb, 0.962735e-02_jprb, 0.835262e-02_jprb &
6063  &, 0.723236e-02_jprb, 0.624245e-02_jprb, 0.537490e-02_jprb, 0.462042e-02_jprb &
6064  &, 0.394855e-02_jprb, 0.338639e-02_jprb, 0.288035e-02_jprb &
6065  &, 0.243513e-02_jprb, 0.207709e-02_jprb, 0.174659e-02_jprb, 0.146848e-02_jprb &
6066  &, 0.122371e-02_jprb, 0.103819e-02_jprb, 0.868307e-03_jprb &
6067  &, 0.715328e-03_jprb, 0.605379e-03_jprb, 0.490684e-03_jprb, 0.396953e-03_jprb &
6068  &, 0.325606e-03_jprb, 0.278102e-03_jprb, 0.228606e-03_jprb &
6069  &, 0.177084e-03_jprb, 0.151874e-03_jprb, 0.125633e-03_jprb, 0.983430e-04_jprb &
6070  &, 0.699861e-04_jprb, 0.405444e-04_jprb, 0.411017e-04_jprb &
6071  &, 0.416650e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6072  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6073  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6074  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6075  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6076  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6077  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6078  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6079  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6080  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6081  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6082  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6083  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6084  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6085 xcw( 136, :) = (/ &
6086  & 0.890652e+00_jprb, 0.863664e+00_jprb, 0.836849e+00_jprb, 0.810225e+00_jprb &
6087  &, 0.783807e+00_jprb, 0.757614e+00_jprb, 0.731662e+00_jprb &
6088  &, 0.705967e+00_jprb, 0.680549e+00_jprb, 0.655422e+00_jprb, 0.630605e+00_jprb &
6089  &, 0.606113e+00_jprb, 0.581967e+00_jprb, 0.558180e+00_jprb &
6090  &, 0.534770e+00_jprb, 0.511757e+00_jprb, 0.489155e+00_jprb, 0.466981e+00_jprb &
6091  &, 0.445251e+00_jprb, 0.423980e+00_jprb, 0.403187e+00_jprb &
6092  &, 0.382884e+00_jprb, 0.363090e+00_jprb, 0.343813e+00_jprb, 0.325072e+00_jprb &
6093  &, 0.306873e+00_jprb, 0.289234e+00_jprb, 0.272165e+00_jprb &
6094  &, 0.255669e+00_jprb, 0.239764e+00_jprb, 0.224448e+00_jprb, 0.209727e+00_jprb &
6095  &, 0.195613e+00_jprb, 0.182099e+00_jprb, 0.169190e+00_jprb &
6096  &, 0.156886e+00_jprb, 0.145178e+00_jprb, 0.134068e+00_jprb, 0.123544e+00_jprb &
6097  &, 0.113611e+00_jprb, 0.104242e+00_jprb, 0.954358e-01_jprb &
6098  &, 0.871777e-01_jprb, 0.794491e-01_jprb, 0.722389e-01_jprb, 0.655318e-01_jprb &
6099  &, 0.593085e-01_jprb, 0.535453e-01_jprb, 0.482135e-01_jprb &
6100  &, 0.433189e-01_jprb, 0.388249e-01_jprb, 0.347032e-01_jprb, 0.309346e-01_jprb &
6101  &, 0.275250e-01_jprb, 0.244199e-01_jprb, 0.216033e-01_jprb &
6102  &, 0.190561e-01_jprb, 0.167876e-01_jprb, 0.147255e-01_jprb, 0.129058e-01_jprb &
6103  &, 0.112647e-01_jprb, 0.981831e-02_jprb, 0.853012e-02_jprb &
6104  &, 0.737753e-02_jprb, 0.637229e-02_jprb, 0.548865e-02_jprb, 0.471727e-02_jprb &
6105  &, 0.404751e-02_jprb, 0.346726e-02_jprb, 0.294230e-02_jprb &
6106  &, 0.249840e-02_jprb, 0.212015e-02_jprb, 0.179056e-02_jprb, 0.151336e-02_jprb &
6107  &, 0.126951e-02_jprb, 0.106156e-02_jprb, 0.892148e-03_jprb &
6108  &, 0.739650e-03_jprb, 0.605379e-03_jprb, 0.515984e-03_jprb, 0.422750e-03_jprb &
6109  &, 0.351907e-03_jprb, 0.278102e-03_jprb, 0.228606e-03_jprb &
6110  &, 0.177084e-03_jprb, 0.151874e-03_jprb, 0.125633e-03_jprb, 0.983430e-04_jprb &
6111  &, 0.699861e-04_jprb, 0.405444e-04_jprb, 0.411017e-04_jprb &
6112  &, 0.416650e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6113  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6114  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6115  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6116  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6117  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6118  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6119  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6120  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6121  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6122  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6123  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6124  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6125  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6126 xcw( 137, :) = (/ &
6127  & 0.891078e+00_jprb, 0.864185e+00_jprb, 0.837461e+00_jprb, 0.810924e+00_jprb &
6128  &, 0.784589e+00_jprb, 0.758473e+00_jprb, 0.732594e+00_jprb &
6129  &, 0.706969e+00_jprb, 0.681614e+00_jprb, 0.656547e+00_jprb, 0.631785e+00_jprb &
6130  &, 0.607344e+00_jprb, 0.583243e+00_jprb, 0.559499e+00_jprb &
6131  &, 0.536126e+00_jprb, 0.513145e+00_jprb, 0.490570e+00_jprb, 0.468421e+00_jprb &
6132  &, 0.446709e+00_jprb, 0.425455e+00_jprb, 0.404672e+00_jprb &
6133  &, 0.384376e+00_jprb, 0.364583e+00_jprb, 0.345305e+00_jprb, 0.326557e+00_jprb &
6134  &, 0.308350e+00_jprb, 0.290698e+00_jprb, 0.273607e+00_jprb &
6135  &, 0.257093e+00_jprb, 0.241162e+00_jprb, 0.225820e+00_jprb, 0.211070e+00_jprb &
6136  &, 0.196920e+00_jprb, 0.183373e+00_jprb, 0.170429e+00_jprb &
6137  &, 0.158086e+00_jprb, 0.146332e+00_jprb, 0.135183e+00_jprb, 0.124617e+00_jprb &
6138  &, 0.114639e+00_jprb, 0.105222e+00_jprb, 0.963757e-01_jprb &
6139  &, 0.880636e-01_jprb, 0.802892e-01_jprb, 0.730418e-01_jprb, 0.662830e-01_jprb &
6140  &, 0.600050e-01_jprb, 0.541963e-01_jprb, 0.488292e-01_jprb &
6141  &, 0.438970e-01_jprb, 0.393498e-01_jprb, 0.351994e-01_jprb, 0.314004e-01_jprb &
6142  &, 0.279440e-01_jprb, 0.248045e-01_jprb, 0.219516e-01_jprb &
6143  &, 0.193815e-01_jprb, 0.170730e-01_jprb, 0.150013e-01_jprb, 0.131382e-01_jprb &
6144  &, 0.114854e-01_jprb, 0.100093e-01_jprb, 0.868987e-02_jprb &
6145  &, 0.754085e-02_jprb, 0.652068e-02_jprb, 0.562135e-02_jprb, 0.483350e-02_jprb &
6146  &, 0.414647e-02_jprb, 0.354813e-02_jprb, 0.302490e-02_jprb &
6147  &, 0.256166e-02_jprb, 0.218475e-02_jprb, 0.183452e-02_jprb, 0.155823e-02_jprb &
6148  &, 0.131531e-02_jprb, 0.108493e-02_jprb, 0.915990e-03_jprb &
6149  &, 0.763972e-03_jprb, 0.630186e-03_jprb, 0.515984e-03_jprb, 0.422750e-03_jprb &
6150  &, 0.351907e-03_jprb, 0.278102e-03_jprb, 0.228606e-03_jprb &
6151  &, 0.177084e-03_jprb, 0.151874e-03_jprb, 0.125633e-03_jprb, 0.983430e-04_jprb &
6152  &, 0.699861e-04_jprb, 0.710888e-04_jprb, 0.411017e-04_jprb &
6153  &, 0.416650e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6154  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6155  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6156  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6157  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6158  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6159  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6160  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6161  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6162  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6163  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6164  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6165  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6166  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6167 xcw( 138, :) = (/ &
6168  & 0.891501e+00_jprb, 0.864704e+00_jprb, 0.838071e+00_jprb, 0.811620e+00_jprb &
6169  &, 0.785366e+00_jprb, 0.759329e+00_jprb, 0.733523e+00_jprb &
6170  &, 0.707966e+00_jprb, 0.682675e+00_jprb, 0.657668e+00_jprb, 0.632960e+00_jprb &
6171  &, 0.608570e+00_jprb, 0.584515e+00_jprb, 0.560812e+00_jprb &
6172  &, 0.537478e+00_jprb, 0.514528e+00_jprb, 0.491983e+00_jprb, 0.469856e+00_jprb &
6173  &, 0.448164e+00_jprb, 0.426924e+00_jprb, 0.406151e+00_jprb &
6174  &, 0.385862e+00_jprb, 0.366072e+00_jprb, 0.346790e+00_jprb, 0.328038e+00_jprb &
6175  &, 0.309823e+00_jprb, 0.292154e+00_jprb, 0.275050e+00_jprb &
6176  &, 0.258516e+00_jprb, 0.242561e+00_jprb, 0.227192e+00_jprb, 0.212412e+00_jprb &
6177  &, 0.198232e+00_jprb, 0.184652e+00_jprb, 0.171667e+00_jprb &
6178  &, 0.159285e+00_jprb, 0.147496e+00_jprb, 0.136298e+00_jprb, 0.125690e+00_jprb &
6179  &, 0.115667e+00_jprb, 0.106213e+00_jprb, 0.973048e-01_jprb &
6180  &, 0.889607e-01_jprb, 0.811406e-01_jprb, 0.738329e-01_jprb, 0.670342e-01_jprb &
6181  &, 0.607137e-01_jprb, 0.548599e-01_jprb, 0.494577e-01_jprb &
6182  &, 0.444752e-01_jprb, 0.398882e-01_jprb, 0.356956e-01_jprb, 0.318520e-01_jprb &
6183  &, 0.283631e-01_jprb, 0.251892e-01_jprb, 0.223150e-01_jprb &
6184  &, 0.197069e-01_jprb, 0.173743e-01_jprb, 0.152609e-01_jprb, 0.133871e-01_jprb &
6185  &, 0.117060e-01_jprb, 0.102002e-01_jprb, 0.886738e-02_jprb &
6186  &, 0.770417e-02_jprb, 0.665053e-02_jprb, 0.573509e-02_jprb, 0.494973e-02_jprb &
6187  &, 0.424543e-02_jprb, 0.362900e-02_jprb, 0.310750e-02_jprb &
6188  &, 0.264601e-02_jprb, 0.222781e-02_jprb, 0.190047e-02_jprb, 0.160311e-02_jprb &
6189  &, 0.133821e-02_jprb, 0.113166e-02_jprb, 0.939832e-03_jprb &
6190  &, 0.788293e-03_jprb, 0.654994e-03_jprb, 0.541283e-03_jprb, 0.448547e-03_jprb &
6191  &, 0.378208e-03_jprb, 0.304912e-03_jprb, 0.255932e-03_jprb &
6192  &, 0.204931e-03_jprb, 0.151874e-03_jprb, 0.125633e-03_jprb, 0.983430e-04_jprb &
6193  &, 0.699861e-04_jprb, 0.710888e-04_jprb, 0.411017e-04_jprb &
6194  &, 0.416650e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6195  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6196  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6197  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6198  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6199  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6200  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6201  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6202  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6203  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6204  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6205  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6206  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6207  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6208 xcw( 139, :) = (/ &
6209  & 0.891922e+00_jprb, 0.865220e+00_jprb, 0.838677e+00_jprb, 0.812312e+00_jprb &
6210  &, 0.786141e+00_jprb, 0.760180e+00_jprb, 0.734447e+00_jprb &
6211  &, 0.708959e+00_jprb, 0.683732e+00_jprb, 0.658783e+00_jprb, 0.634133e+00_jprb &
6212  &, 0.609792e+00_jprb, 0.585784e+00_jprb, 0.562122e+00_jprb &
6213  &, 0.538824e+00_jprb, 0.515909e+00_jprb, 0.493390e+00_jprb, 0.471287e+00_jprb &
6214  &, 0.449616e+00_jprb, 0.428389e+00_jprb, 0.407630e+00_jprb &
6215  &, 0.387347e+00_jprb, 0.367557e+00_jprb, 0.348276e+00_jprb, 0.329516e+00_jprb &
6216  &, 0.311292e+00_jprb, 0.293615e+00_jprb, 0.276492e+00_jprb &
6217  &, 0.259939e+00_jprb, 0.243959e+00_jprb, 0.228563e+00_jprb, 0.213755e+00_jprb &
6218  &, 0.199544e+00_jprb, 0.185926e+00_jprb, 0.172905e+00_jprb &
6219  &, 0.160485e+00_jprb, 0.148659e+00_jprb, 0.137422e+00_jprb, 0.126772e+00_jprb &
6220  &, 0.116695e+00_jprb, 0.107193e+00_jprb, 0.982447e-01_jprb &
6221  &, 0.898466e-01_jprb, 0.819806e-01_jprb, 0.746357e-01_jprb, 0.677855e-01_jprb &
6222  &, 0.614224e-01_jprb, 0.555234e-01_jprb, 0.500734e-01_jprb &
6223  &, 0.450534e-01_jprb, 0.404265e-01_jprb, 0.361919e-01_jprb, 0.323178e-01_jprb &
6224  &, 0.287822e-01_jprb, 0.255738e-01_jprb, 0.226633e-01_jprb &
6225  &, 0.200324e-01_jprb, 0.176597e-01_jprb, 0.155367e-01_jprb, 0.136195e-01_jprb &
6226  &, 0.119267e-01_jprb, 0.104085e-01_jprb, 0.904488e-02_jprb &
6227  &, 0.784934e-02_jprb, 0.679892e-02_jprb, 0.586779e-02_jprb, 0.504659e-02_jprb &
6228  &, 0.434439e-02_jprb, 0.370987e-02_jprb, 0.316945e-02_jprb &
6229  &, 0.270928e-02_jprb, 0.229241e-02_jprb, 0.194443e-02_jprb, 0.164799e-02_jprb &
6230  &, 0.138401e-02_jprb, 0.115503e-02_jprb, 0.963674e-03_jprb &
6231  &, 0.812615e-03_jprb, 0.679801e-03_jprb, 0.566582e-03_jprb, 0.448547e-03_jprb &
6232  &, 0.378208e-03_jprb, 0.304912e-03_jprb, 0.255932e-03_jprb &
6233  &, 0.204931e-03_jprb, 0.151874e-03_jprb, 0.125633e-03_jprb, 0.983430e-04_jprb &
6234  &, 0.699861e-04_jprb, 0.710888e-04_jprb, 0.411017e-04_jprb &
6235  &, 0.416650e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6236  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6237  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6238  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6239  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6240  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6241  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6242  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6243  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6244  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6245  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6246  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6247  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6248  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6249 xcw( 140, :) = (/ &
6250  & 0.892341e+00_jprb, 0.865734e+00_jprb, 0.839281e+00_jprb, 0.813002e+00_jprb &
6251  &, 0.786912e+00_jprb, 0.761028e+00_jprb, 0.735368e+00_jprb &
6252  &, 0.709948e+00_jprb, 0.684785e+00_jprb, 0.659896e+00_jprb, 0.635300e+00_jprb &
6253  &, 0.611011e+00_jprb, 0.587047e+00_jprb, 0.563428e+00_jprb &
6254  &, 0.540167e+00_jprb, 0.517284e+00_jprb, 0.494793e+00_jprb, 0.472715e+00_jprb &
6255  &, 0.451063e+00_jprb, 0.429852e+00_jprb, 0.409102e+00_jprb &
6256  &, 0.388826e+00_jprb, 0.369042e+00_jprb, 0.349758e+00_jprb, 0.330994e+00_jprb &
6257  &, 0.312762e+00_jprb, 0.295068e+00_jprb, 0.277931e+00_jprb &
6258  &, 0.261358e+00_jprb, 0.245358e+00_jprb, 0.229935e+00_jprb, 0.215098e+00_jprb &
6259  &, 0.200856e+00_jprb, 0.187205e+00_jprb, 0.174148e+00_jprb &
6260  &, 0.161685e+00_jprb, 0.149813e+00_jprb, 0.138537e+00_jprb, 0.127845e+00_jprb &
6261  &, 0.117733e+00_jprb, 0.108184e+00_jprb, 0.991954e-01_jprb &
6262  &, 0.907437e-01_jprb, 0.828320e-01_jprb, 0.754385e-01_jprb, 0.685486e-01_jprb &
6263  &, 0.621433e-01_jprb, 0.561995e-01_jprb, 0.507019e-01_jprb &
6264  &, 0.456315e-01_jprb, 0.409783e-01_jprb, 0.367018e-01_jprb, 0.327836e-01_jprb &
6265  &, 0.292157e-01_jprb, 0.259732e-01_jprb, 0.230267e-01_jprb &
6266  &, 0.203733e-01_jprb, 0.179610e-01_jprb, 0.158125e-01_jprb, 0.138684e-01_jprb &
6267  &, 0.121474e-01_jprb, 0.105995e-01_jprb, 0.924013e-02_jprb &
6268  &, 0.801266e-02_jprb, 0.694731e-02_jprb, 0.600049e-02_jprb, 0.516282e-02_jprb &
6269  &, 0.444334e-02_jprb, 0.381096e-02_jprb, 0.325205e-02_jprb &
6270  &, 0.277254e-02_jprb, 0.235701e-02_jprb, 0.198840e-02_jprb, 0.169286e-02_jprb &
6271  &, 0.142981e-02_jprb, 0.120177e-02_jprb, 0.101136e-02_jprb &
6272  &, 0.836937e-03_jprb, 0.704608e-03_jprb, 0.566582e-03_jprb, 0.474344e-03_jprb &
6273  &, 0.404508e-03_jprb, 0.331722e-03_jprb, 0.255932e-03_jprb &
6274  &, 0.204931e-03_jprb, 0.180249e-03_jprb, 0.125633e-03_jprb, 0.983430e-04_jprb &
6275  &, 0.999792e-04_jprb, 0.710888e-04_jprb, 0.411017e-04_jprb &
6276  &, 0.416650e-04_jprb, 0.422342e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6277  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6278  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6279  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6280  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6281  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6282  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6283  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6284  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6285  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6286  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6287  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6288  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6289  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6290 
6291 IF (lhook) CALL dr_hook('SU_MCICA:PART20',1,zhook_handle)
6292 END SUBROUTINE part20
6293 
6294 #ifdef VPP5000
6295 !OCL SCALAR
6296 #endif
6297 !option! -Nv -NO
6298 #ifdef RS6K
6299 @process nooptimize
6300 #endif
6301 !pgi$r opt=0
6302 SUBROUTINE part21
6303 
6304 REAL(KIND=JPRB) :: ZHOOK_HANDLE
6305 IF (lhook) CALL dr_hook('SU_MCICA:PART21',0,zhook_handle)
6306 
6307 xcw( 141, :) = (/ &
6308  & 0.892760e+00_jprb, 0.866246e+00_jprb, 0.839882e+00_jprb, 0.813689e+00_jprb &
6309  &, 0.787680e+00_jprb, 0.761873e+00_jprb, 0.736285e+00_jprb &
6310  &, 0.710933e+00_jprb, 0.685834e+00_jprb, 0.661005e+00_jprb, 0.636463e+00_jprb &
6311  &, 0.612224e+00_jprb, 0.588307e+00_jprb, 0.564728e+00_jprb &
6312  &, 0.541506e+00_jprb, 0.518654e+00_jprb, 0.496194e+00_jprb, 0.474138e+00_jprb &
6313  &, 0.452505e+00_jprb, 0.431311e+00_jprb, 0.410574e+00_jprb &
6314  &, 0.390304e+00_jprb, 0.370521e+00_jprb, 0.351240e+00_jprb, 0.332468e+00_jprb &
6315  &, 0.314228e+00_jprb, 0.296524e+00_jprb, 0.279370e+00_jprb &
6316  &, 0.262778e+00_jprb, 0.246752e+00_jprb, 0.231307e+00_jprb, 0.216441e+00_jprb &
6317  &, 0.202164e+00_jprb, 0.188479e+00_jprb, 0.175391e+00_jprb &
6318  &, 0.162885e+00_jprb, 0.150976e+00_jprb, 0.139661e+00_jprb, 0.128928e+00_jprb &
6319  &, 0.118761e+00_jprb, 0.109174e+00_jprb, 0.100135e+00_jprb &
6320  &, 0.916518e-01_jprb, 0.836947e-01_jprb, 0.762530e-01_jprb, 0.693117e-01_jprb &
6321  &, 0.628642e-01_jprb, 0.568756e-01_jprb, 0.513305e-01_jprb &
6322  &, 0.462228e-01_jprb, 0.415167e-01_jprb, 0.371981e-01_jprb, 0.332493e-01_jprb &
6323  &, 0.296493e-01_jprb, 0.263727e-01_jprb, 0.233901e-01_jprb &
6324  &, 0.206988e-01_jprb, 0.182782e-01_jprb, 0.160884e-01_jprb, 0.141174e-01_jprb &
6325  &, 0.123681e-01_jprb, 0.108078e-01_jprb, 0.941763e-02_jprb &
6326  &, 0.817598e-02_jprb, 0.709570e-02_jprb, 0.613319e-02_jprb, 0.527905e-02_jprb &
6327  &, 0.454230e-02_jprb, 0.389183e-02_jprb, 0.333465e-02_jprb &
6328  &, 0.283581e-02_jprb, 0.242160e-02_jprb, 0.205434e-02_jprb, 0.173774e-02_jprb &
6329  &, 0.145271e-02_jprb, 0.122514e-02_jprb, 0.103520e-02_jprb &
6330  &, 0.861258e-03_jprb, 0.704608e-03_jprb, 0.591881e-03_jprb, 0.500141e-03_jprb &
6331  &, 0.404508e-03_jprb, 0.331722e-03_jprb, 0.283257e-03_jprb &
6332  &, 0.232778e-03_jprb, 0.180249e-03_jprb, 0.154541e-03_jprb, 0.127791e-03_jprb &
6333  &, 0.999792e-04_jprb, 0.710888e-04_jprb, 0.411017e-04_jprb &
6334  &, 0.416650e-04_jprb, 0.422342e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6335  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6336  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6337  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6338  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6339  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6340  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6341  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6342  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6343  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6344  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6345  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6346  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6347  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6348 xcw( 142, :) = (/ &
6349  & 0.893175e+00_jprb, 0.866754e+00_jprb, 0.840481e+00_jprb, 0.814373e+00_jprb &
6350  &, 0.788445e+00_jprb, 0.762715e+00_jprb, 0.737198e+00_jprb &
6351  &, 0.711914e+00_jprb, 0.686879e+00_jprb, 0.662109e+00_jprb, 0.637622e+00_jprb &
6352  &, 0.613434e+00_jprb, 0.589562e+00_jprb, 0.566026e+00_jprb &
6353  &, 0.542839e+00_jprb, 0.520022e+00_jprb, 0.497589e+00_jprb, 0.475559e+00_jprb &
6354  &, 0.453946e+00_jprb, 0.432767e+00_jprb, 0.412039e+00_jprb &
6355  &, 0.391780e+00_jprb, 0.372000e+00_jprb, 0.352714e+00_jprb, 0.333942e+00_jprb &
6356  &, 0.315690e+00_jprb, 0.297973e+00_jprb, 0.280805e+00_jprb &
6357  &, 0.264193e+00_jprb, 0.248146e+00_jprb, 0.232674e+00_jprb, 0.217784e+00_jprb &
6358  &, 0.203475e+00_jprb, 0.189757e+00_jprb, 0.176629e+00_jprb &
6359  &, 0.164094e+00_jprb, 0.152150e+00_jprb, 0.140786e+00_jprb, 0.130011e+00_jprb &
6360  &, 0.119799e+00_jprb, 0.110165e+00_jprb, 0.101086e+00_jprb &
6361  &, 0.925488e-01_jprb, 0.845461e-01_jprb, 0.770558e-01_jprb, 0.700748e-01_jprb &
6362  &, 0.635852e-01_jprb, 0.575517e-01_jprb, 0.519718e-01_jprb &
6363  &, 0.468141e-01_jprb, 0.420685e-01_jprb, 0.377080e-01_jprb, 0.337292e-01_jprb &
6364  &, 0.300828e-01_jprb, 0.267721e-01_jprb, 0.237687e-01_jprb &
6365  &, 0.210397e-01_jprb, 0.185795e-01_jprb, 0.163642e-01_jprb, 0.143829e-01_jprb &
6366  &, 0.126057e-01_jprb, 0.110161e-01_jprb, 0.959514e-02_jprb &
6367  &, 0.833930e-02_jprb, 0.724409e-02_jprb, 0.626589e-02_jprb, 0.539528e-02_jprb &
6368  &, 0.464126e-02_jprb, 0.399292e-02_jprb, 0.341725e-02_jprb &
6369  &, 0.292016e-02_jprb, 0.248620e-02_jprb, 0.209831e-02_jprb, 0.178261e-02_jprb &
6370  &, 0.149851e-02_jprb, 0.127187e-02_jprb, 0.105904e-02_jprb &
6371  &, 0.885580e-03_jprb, 0.729416e-03_jprb, 0.617180e-03_jprb, 0.500141e-03_jprb &
6372  &, 0.430809e-03_jprb, 0.331722e-03_jprb, 0.283257e-03_jprb &
6373  &, 0.232778e-03_jprb, 0.180249e-03_jprb, 0.154541e-03_jprb, 0.127791e-03_jprb &
6374  &, 0.999792e-04_jprb, 0.710888e-04_jprb, 0.411017e-04_jprb &
6375  &, 0.416650e-04_jprb, 0.422342e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6376  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6377  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6378  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6379  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6380  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6381  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6382  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6383  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6384  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6385  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6386  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6387  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6388  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6389 xcw( 143, :) = (/ &
6390  & 0.893589e+00_jprb, 0.867262e+00_jprb, 0.841077e+00_jprb, 0.815054e+00_jprb &
6391  &, 0.789206e+00_jprb, 0.763552e+00_jprb, 0.738109e+00_jprb &
6392  &, 0.712892e+00_jprb, 0.687920e+00_jprb, 0.663209e+00_jprb, 0.638777e+00_jprb &
6393  &, 0.614639e+00_jprb, 0.590814e+00_jprb, 0.567318e+00_jprb &
6394  &, 0.544170e+00_jprb, 0.521385e+00_jprb, 0.498981e+00_jprb, 0.476974e+00_jprb &
6395  &, 0.455382e+00_jprb, 0.434217e+00_jprb, 0.413502e+00_jprb &
6396  &, 0.393249e+00_jprb, 0.373472e+00_jprb, 0.354189e+00_jprb, 0.335413e+00_jprb &
6397  &, 0.317152e+00_jprb, 0.299426e+00_jprb, 0.282240e+00_jprb &
6398  &, 0.265609e+00_jprb, 0.249541e+00_jprb, 0.234046e+00_jprb, 0.219127e+00_jprb &
6399  &, 0.204787e+00_jprb, 0.191036e+00_jprb, 0.177872e+00_jprb &
6400  &, 0.165294e+00_jprb, 0.153313e+00_jprb, 0.141910e+00_jprb, 0.131093e+00_jprb &
6401  &, 0.120837e+00_jprb, 0.111166e+00_jprb, 0.102037e+00_jprb &
6402  &, 0.934569e-01_jprb, 0.854088e-01_jprb, 0.778702e-01_jprb, 0.708499e-01_jprb &
6403  &, 0.643061e-01_jprb, 0.582278e-01_jprb, 0.526003e-01_jprb &
6404  &, 0.474054e-01_jprb, 0.426203e-01_jprb, 0.382318e-01_jprb, 0.342091e-01_jprb &
6405  &, 0.305308e-01_jprb, 0.271715e-01_jprb, 0.241321e-01_jprb &
6406  &, 0.213806e-01_jprb, 0.188808e-01_jprb, 0.166400e-01_jprb, 0.146319e-01_jprb &
6407  &, 0.128264e-01_jprb, 0.112245e-01_jprb, 0.979039e-02_jprb &
6408  &, 0.852077e-02_jprb, 0.739248e-02_jprb, 0.639859e-02_jprb, 0.551151e-02_jprb &
6409  &, 0.476001e-02_jprb, 0.407380e-02_jprb, 0.349985e-02_jprb &
6410  &, 0.298342e-02_jprb, 0.252926e-02_jprb, 0.216425e-02_jprb, 0.182749e-02_jprb &
6411  &, 0.154431e-02_jprb, 0.129524e-02_jprb, 0.108288e-02_jprb &
6412  &, 0.909902e-03_jprb, 0.754223e-03_jprb, 0.642480e-03_jprb, 0.525938e-03_jprb &
6413  &, 0.430809e-03_jprb, 0.358532e-03_jprb, 0.283257e-03_jprb &
6414  &, 0.232778e-03_jprb, 0.180249e-03_jprb, 0.154541e-03_jprb, 0.127791e-03_jprb &
6415  &, 0.999792e-04_jprb, 0.710888e-04_jprb, 0.722034e-04_jprb &
6416  &, 0.416650e-04_jprb, 0.422342e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6417  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6418  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6419  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6420  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6421  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6422  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6423  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6424  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6425  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6426  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6427  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6428  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6429  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6430 xcw( 144, :) = (/ &
6431  & 0.894001e+00_jprb, 0.867766e+00_jprb, 0.841671e+00_jprb, 0.815732e+00_jprb &
6432  &, 0.789964e+00_jprb, 0.764387e+00_jprb, 0.739015e+00_jprb &
6433  &, 0.713866e+00_jprb, 0.688957e+00_jprb, 0.664305e+00_jprb, 0.639927e+00_jprb &
6434  &, 0.615839e+00_jprb, 0.592061e+00_jprb, 0.568607e+00_jprb &
6435  &, 0.545496e+00_jprb, 0.522744e+00_jprb, 0.500368e+00_jprb, 0.478386e+00_jprb &
6436  &, 0.456814e+00_jprb, 0.435667e+00_jprb, 0.414964e+00_jprb &
6437  &, 0.394717e+00_jprb, 0.374944e+00_jprb, 0.355661e+00_jprb, 0.336880e+00_jprb &
6438  &, 0.318611e+00_jprb, 0.300872e+00_jprb, 0.283675e+00_jprb &
6439  &, 0.267024e+00_jprb, 0.250935e+00_jprb, 0.235413e+00_jprb, 0.220465e+00_jprb &
6440  &, 0.206099e+00_jprb, 0.192315e+00_jprb, 0.179119e+00_jprb &
6441  &, 0.166503e+00_jprb, 0.154476e+00_jprb, 0.143035e+00_jprb, 0.132176e+00_jprb &
6442  &, 0.121886e+00_jprb, 0.112156e+00_jprb, 0.102987e+00_jprb &
6443  &, 0.943650e-01_jprb, 0.862715e-01_jprb, 0.786963e-01_jprb, 0.716130e-01_jprb &
6444  &, 0.650270e-01_jprb, 0.589163e-01_jprb, 0.532417e-01_jprb &
6445  &, 0.480098e-01_jprb, 0.431856e-01_jprb, 0.387418e-01_jprb, 0.346749e-01_jprb &
6446  &, 0.309643e-01_jprb, 0.275858e-01_jprb, 0.245106e-01_jprb &
6447  &, 0.217216e-01_jprb, 0.191979e-01_jprb, 0.169320e-01_jprb, 0.148974e-01_jprb &
6448  &, 0.130641e-01_jprb, 0.114328e-01_jprb, 0.996789e-02_jprb &
6449  &, 0.868409e-02_jprb, 0.754088e-02_jprb, 0.653129e-02_jprb, 0.564711e-02_jprb &
6450  &, 0.485897e-02_jprb, 0.417488e-02_jprb, 0.358245e-02_jprb &
6451  &, 0.304669e-02_jprb, 0.259386e-02_jprb, 0.220822e-02_jprb, 0.187237e-02_jprb &
6452  &, 0.159011e-02_jprb, 0.134198e-02_jprb, 0.113057e-02_jprb &
6453  &, 0.934223e-03_jprb, 0.779031e-03_jprb, 0.642480e-03_jprb, 0.551734e-03_jprb &
6454  &, 0.457109e-03_jprb, 0.358532e-03_jprb, 0.310583e-03_jprb &
6455  &, 0.232778e-03_jprb, 0.208623e-03_jprb, 0.154541e-03_jprb, 0.127791e-03_jprb &
6456  &, 0.999792e-04_jprb, 0.710888e-04_jprb, 0.722034e-04_jprb &
6457  &, 0.416650e-04_jprb, 0.422342e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6458  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6459  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6460  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6461  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6462  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6463  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6464  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6465  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6466  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6467  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6468  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6469  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6470  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6471 xcw( 145, :) = (/ &
6472  & 0.894411e+00_jprb, 0.868269e+00_jprb, 0.842262e+00_jprb, 0.816407e+00_jprb &
6473  &, 0.790720e+00_jprb, 0.765218e+00_jprb, 0.739918e+00_jprb &
6474  &, 0.714836e+00_jprb, 0.689990e+00_jprb, 0.665397e+00_jprb, 0.641074e+00_jprb &
6475  &, 0.617037e+00_jprb, 0.593303e+00_jprb, 0.569891e+00_jprb &
6476  &, 0.546817e+00_jprb, 0.524098e+00_jprb, 0.501752e+00_jprb, 0.479795e+00_jprb &
6477  &, 0.458242e+00_jprb, 0.437114e+00_jprb, 0.416420e+00_jprb &
6478  &, 0.396183e+00_jprb, 0.376416e+00_jprb, 0.357129e+00_jprb, 0.338344e+00_jprb &
6479  &, 0.320069e+00_jprb, 0.302321e+00_jprb, 0.285106e+00_jprb &
6480  &, 0.268440e+00_jprb, 0.252330e+00_jprb, 0.236781e+00_jprb, 0.221808e+00_jprb &
6481  &, 0.207411e+00_jprb, 0.193593e+00_jprb, 0.180362e+00_jprb &
6482  &, 0.167712e+00_jprb, 0.155649e+00_jprb, 0.144169e+00_jprb, 0.133259e+00_jprb &
6483  &, 0.122924e+00_jprb, 0.113157e+00_jprb, 0.103949e+00_jprb &
6484  &, 0.952731e-01_jprb, 0.871342e-01_jprb, 0.795107e-01_jprb, 0.723881e-01_jprb &
6485  &, 0.657601e-01_jprb, 0.596049e-01_jprb, 0.538830e-01_jprb &
6486  &, 0.486142e-01_jprb, 0.437374e-01_jprb, 0.392656e-01_jprb, 0.351689e-01_jprb &
6487  &, 0.314123e-01_jprb, 0.280000e-01_jprb, 0.248892e-01_jprb &
6488  &, 0.220625e-01_jprb, 0.195151e-01_jprb, 0.172241e-01_jprb, 0.151464e-01_jprb &
6489  &, 0.133017e-01_jprb, 0.116411e-01_jprb, 0.101631e-01_jprb &
6490  &, 0.884741e-02_jprb, 0.768927e-02_jprb, 0.666399e-02_jprb, 0.576334e-02_jprb &
6491  &, 0.495793e-02_jprb, 0.427597e-02_jprb, 0.366505e-02_jprb &
6492  &, 0.313104e-02_jprb, 0.265846e-02_jprb, 0.227416e-02_jprb, 0.191724e-02_jprb &
6493  &, 0.163591e-02_jprb, 0.136534e-02_jprb, 0.115441e-02_jprb &
6494  &, 0.958545e-03_jprb, 0.803838e-03_jprb, 0.667779e-03_jprb, 0.551734e-03_jprb &
6495  &, 0.457109e-03_jprb, 0.385342e-03_jprb, 0.310583e-03_jprb &
6496  &, 0.260626e-03_jprb, 0.208623e-03_jprb, 0.154541e-03_jprb, 0.127791e-03_jprb &
6497  &, 0.999792e-04_jprb, 0.710888e-04_jprb, 0.722034e-04_jprb &
6498  &, 0.416650e-04_jprb, 0.422342e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6499  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6500  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6501  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6502  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6503  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6504  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6505  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6506  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6507  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6508  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6509  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6510  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6511  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6512 xcw( 146, :) = (/ &
6513  & 0.894820e+00_jprb, 0.868769e+00_jprb, 0.842850e+00_jprb, 0.817079e+00_jprb &
6514  &, 0.791472e+00_jprb, 0.766046e+00_jprb, 0.740817e+00_jprb &
6515  &, 0.715803e+00_jprb, 0.691020e+00_jprb, 0.666485e+00_jprb, 0.642216e+00_jprb &
6516  &, 0.618230e+00_jprb, 0.594542e+00_jprb, 0.571172e+00_jprb &
6517  &, 0.548136e+00_jprb, 0.525450e+00_jprb, 0.503132e+00_jprb, 0.481199e+00_jprb &
6518  &, 0.459668e+00_jprb, 0.438554e+00_jprb, 0.417876e+00_jprb &
6519  &, 0.397645e+00_jprb, 0.377881e+00_jprb, 0.358597e+00_jprb, 0.339807e+00_jprb &
6520  &, 0.321524e+00_jprb, 0.303766e+00_jprb, 0.286537e+00_jprb &
6521  &, 0.269851e+00_jprb, 0.253720e+00_jprb, 0.238153e+00_jprb, 0.223151e+00_jprb &
6522  &, 0.208723e+00_jprb, 0.194876e+00_jprb, 0.181605e+00_jprb &
6523  &, 0.168922e+00_jprb, 0.156823e+00_jprb, 0.145293e+00_jprb, 0.134352e+00_jprb &
6524  &, 0.123972e+00_jprb, 0.114159e+00_jprb, 0.104900e+00_jprb &
6525  &, 0.961813e-01_jprb, 0.879970e-01_jprb, 0.803368e-01_jprb, 0.731751e-01_jprb &
6526  &, 0.664933e-01_jprb, 0.602935e-01_jprb, 0.545372e-01_jprb &
6527  &, 0.492187e-01_jprb, 0.443026e-01_jprb, 0.397894e-01_jprb, 0.356488e-01_jprb &
6528  &, 0.318603e-01_jprb, 0.284142e-01_jprb, 0.252678e-01_jprb &
6529  &, 0.224189e-01_jprb, 0.198323e-01_jprb, 0.174999e-01_jprb, 0.154119e-01_jprb &
6530  &, 0.135394e-01_jprb, 0.118668e-01_jprb, 0.103584e-01_jprb &
6531  &, 0.902887e-02_jprb, 0.785621e-02_jprb, 0.679669e-02_jprb, 0.587956e-02_jprb &
6532  &, 0.507668e-02_jprb, 0.435685e-02_jprb, 0.374765e-02_jprb &
6533  &, 0.319431e-02_jprb, 0.274459e-02_jprb, 0.231813e-02_jprb, 0.198456e-02_jprb &
6534  &, 0.168171e-02_jprb, 0.141208e-02_jprb, 0.117825e-02_jprb &
6535  &, 0.100719e-02_jprb, 0.828646e-03_jprb, 0.693078e-03_jprb, 0.577531e-03_jprb &
6536  &, 0.483410e-03_jprb, 0.385342e-03_jprb, 0.310583e-03_jprb &
6537  &, 0.260626e-03_jprb, 0.208623e-03_jprb, 0.183449e-03_jprb, 0.127791e-03_jprb &
6538  &, 0.999792e-04_jprb, 0.101633e-03_jprb, 0.722034e-04_jprb &
6539  &, 0.416650e-04_jprb, 0.422342e-04_jprb, 0.428094e-04_jprb, 0.100000e-04_jprb &
6540  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6541  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6542  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6543  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6544  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6545  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6546  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6547  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6548  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6549  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6550  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6551  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6552  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6553 xcw( 147, :) = (/ &
6554  & 0.895226e+00_jprb, 0.869269e+00_jprb, 0.843436e+00_jprb, 0.817749e+00_jprb &
6555  &, 0.792221e+00_jprb, 0.766870e+00_jprb, 0.741713e+00_jprb &
6556  &, 0.716766e+00_jprb, 0.692046e+00_jprb, 0.667570e+00_jprb, 0.643355e+00_jprb &
6557  &, 0.619418e+00_jprb, 0.595777e+00_jprb, 0.572448e+00_jprb &
6558  &, 0.549449e+00_jprb, 0.526798e+00_jprb, 0.504509e+00_jprb, 0.482601e+00_jprb &
6559  &, 0.461090e+00_jprb, 0.439991e+00_jprb, 0.419325e+00_jprb &
6560  &, 0.399104e+00_jprb, 0.379346e+00_jprb, 0.360061e+00_jprb, 0.341267e+00_jprb &
6561  &, 0.322979e+00_jprb, 0.305208e+00_jprb, 0.287968e+00_jprb &
6562  &, 0.271263e+00_jprb, 0.255110e+00_jprb, 0.239520e+00_jprb, 0.224490e+00_jprb &
6563  &, 0.210035e+00_jprb, 0.196155e+00_jprb, 0.182852e+00_jprb &
6564  &, 0.170131e+00_jprb, 0.157986e+00_jprb, 0.146428e+00_jprb, 0.135444e+00_jprb &
6565  &, 0.125021e+00_jprb, 0.115170e+00_jprb, 0.105861e+00_jprb &
6566  &, 0.971004e-01_jprb, 0.888711e-01_jprb, 0.811628e-01_jprb, 0.739501e-01_jprb &
6567  &, 0.672264e-01_jprb, 0.609821e-01_jprb, 0.551785e-01_jprb &
6568  &, 0.498231e-01_jprb, 0.448679e-01_jprb, 0.403131e-01_jprb, 0.361428e-01_jprb &
6569  &, 0.323227e-01_jprb, 0.288284e-01_jprb, 0.256463e-01_jprb &
6570  &, 0.227599e-01_jprb, 0.201494e-01_jprb, 0.178081e-01_jprb, 0.156775e-01_jprb &
6571  &, 0.137770e-01_jprb, 0.120751e-01_jprb, 0.105537e-01_jprb &
6572  &, 0.921034e-02_jprb, 0.800460e-02_jprb, 0.694835e-02_jprb, 0.601517e-02_jprb &
6573  &, 0.519543e-02_jprb, 0.445794e-02_jprb, 0.383025e-02_jprb &
6574  &, 0.327866e-02_jprb, 0.280918e-02_jprb, 0.238408e-02_jprb, 0.202943e-02_jprb &
6575  &, 0.170461e-02_jprb, 0.145882e-02_jprb, 0.122593e-02_jprb &
6576  &, 0.103151e-02_jprb, 0.853453e-03_jprb, 0.718377e-03_jprb, 0.603328e-03_jprb &
6577  &, 0.483410e-03_jprb, 0.412152e-03_jprb, 0.337909e-03_jprb &
6578  &, 0.260626e-03_jprb, 0.236998e-03_jprb, 0.183449e-03_jprb, 0.157238e-03_jprb &
6579  &, 0.129972e-03_jprb, 0.101633e-03_jprb, 0.722034e-04_jprb &
6580  &, 0.416650e-04_jprb, 0.422342e-04_jprb, 0.428094e-04_jprb, 0.100000e-04_jprb &
6581  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6582  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6583  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6584  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6585  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6586  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6587  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6588  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6589  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6590  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6591  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6592  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6593  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6594 
6595 IF (lhook) CALL dr_hook('SU_MCICA:PART21',1,zhook_handle)
6596 END SUBROUTINE part21
6597 
6598 #ifdef VPP5000
6599 !OCL SCALAR
6600 #endif
6601 !option! -Nv -NO
6602 #ifdef RS6K
6603 @process nooptimize
6604 #endif
6605 !pgi$r opt=0
6606 SUBROUTINE part22
6607 
6608 REAL(KIND=JPRB) :: ZHOOK_HANDLE
6609 IF (lhook) CALL dr_hook('SU_MCICA:PART22',0,zhook_handle)
6610 
6611 xcw( 148, :) = (/ &
6612  & 0.895631e+00_jprb, 0.869765e+00_jprb, 0.844020e+00_jprb, 0.818416e+00_jprb &
6613  &, 0.792967e+00_jprb, 0.767692e+00_jprb, 0.742606e+00_jprb &
6614  &, 0.717725e+00_jprb, 0.693067e+00_jprb, 0.668651e+00_jprb, 0.644490e+00_jprb &
6615  &, 0.620604e+00_jprb, 0.597009e+00_jprb, 0.573722e+00_jprb &
6616  &, 0.550761e+00_jprb, 0.528141e+00_jprb, 0.505881e+00_jprb, 0.483998e+00_jprb &
6617  &, 0.462509e+00_jprb, 0.441428e+00_jprb, 0.420775e+00_jprb &
6618  &, 0.400559e+00_jprb, 0.380804e+00_jprb, 0.361522e+00_jprb, 0.342727e+00_jprb &
6619  &, 0.324430e+00_jprb, 0.306649e+00_jprb, 0.289395e+00_jprb &
6620  &, 0.272674e+00_jprb, 0.256505e+00_jprb, 0.240888e+00_jprb, 0.225833e+00_jprb &
6621  &, 0.211347e+00_jprb, 0.197433e+00_jprb, 0.184100e+00_jprb &
6622  &, 0.171340e+00_jprb, 0.159159e+00_jprb, 0.147562e+00_jprb, 0.136537e+00_jprb &
6623  &, 0.126069e+00_jprb, 0.116171e+00_jprb, 0.106823e+00_jprb &
6624  &, 0.980196e-01_jprb, 0.897451e-01_jprb, 0.819889e-01_jprb, 0.747371e-01_jprb &
6625  &, 0.679718e-01_jprb, 0.616833e-01_jprb, 0.558327e-01_jprb &
6626  &, 0.504275e-01_jprb, 0.454466e-01_jprb, 0.408507e-01_jprb, 0.366368e-01_jprb &
6627  &, 0.327707e-01_jprb, 0.292427e-01_jprb, 0.260400e-01_jprb &
6628  &, 0.231163e-01_jprb, 0.204824e-01_jprb, 0.181002e-01_jprb, 0.159430e-01_jprb &
6629  &, 0.140147e-01_jprb, 0.123008e-01_jprb, 0.107489e-01_jprb &
6630  &, 0.939181e-02_jprb, 0.817154e-02_jprb, 0.708105e-02_jprb, 0.613139e-02_jprb &
6631  &, 0.529439e-02_jprb, 0.455902e-02_jprb, 0.391285e-02_jprb &
6632  &, 0.336301e-02_jprb, 0.287378e-02_jprb, 0.245002e-02_jprb, 0.207431e-02_jprb &
6633  &, 0.175041e-02_jprb, 0.148218e-02_jprb, 0.124978e-02_jprb &
6634  &, 0.105583e-02_jprb, 0.878260e-03_jprb, 0.743676e-03_jprb, 0.603328e-03_jprb &
6635  &, 0.509710e-03_jprb, 0.412152e-03_jprb, 0.337909e-03_jprb &
6636  &, 0.288473e-03_jprb, 0.236998e-03_jprb, 0.183449e-03_jprb, 0.157238e-03_jprb &
6637  &, 0.129972e-03_jprb, 0.101633e-03_jprb, 0.722034e-04_jprb &
6638  &, 0.416650e-04_jprb, 0.422342e-04_jprb, 0.428094e-04_jprb, 0.100000e-04_jprb &
6639  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6640  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6641  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6642  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6643  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6644  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6645  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6646  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6647  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6648  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6649  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6650  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6651  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6652 xcw( 149, :) = (/ &
6653  & 0.896035e+00_jprb, 0.870259e+00_jprb, 0.844601e+00_jprb, 0.819080e+00_jprb &
6654  &, 0.793711e+00_jprb, 0.768510e+00_jprb, 0.743492e+00_jprb &
6655  &, 0.718681e+00_jprb, 0.694086e+00_jprb, 0.669727e+00_jprb, 0.645622e+00_jprb &
6656  &, 0.621785e+00_jprb, 0.598235e+00_jprb, 0.574991e+00_jprb &
6657  &, 0.552067e+00_jprb, 0.529481e+00_jprb, 0.507251e+00_jprb, 0.485393e+00_jprb &
6658  &, 0.463924e+00_jprb, 0.442859e+00_jprb, 0.422218e+00_jprb &
6659  &, 0.402015e+00_jprb, 0.382263e+00_jprb, 0.362984e+00_jprb, 0.344184e+00_jprb &
6660  &, 0.325882e+00_jprb, 0.308091e+00_jprb, 0.290822e+00_jprb &
6661  &, 0.274086e+00_jprb, 0.257891e+00_jprb, 0.242251e+00_jprb, 0.227171e+00_jprb &
6662  &, 0.212659e+00_jprb, 0.198716e+00_jprb, 0.185347e+00_jprb &
6663  &, 0.172549e+00_jprb, 0.160342e+00_jprb, 0.148696e+00_jprb, 0.137630e+00_jprb &
6664  &, 0.127128e+00_jprb, 0.117183e+00_jprb, 0.107795e+00_jprb &
6665  &, 0.989388e-01_jprb, 0.906192e-01_jprb, 0.828266e-01_jprb, 0.755241e-01_jprb &
6666  &, 0.687171e-01_jprb, 0.623844e-01_jprb, 0.564997e-01_jprb &
6667  &, 0.510451e-01_jprb, 0.460119e-01_jprb, 0.413883e-01_jprb, 0.371308e-01_jprb &
6668  &, 0.332332e-01_jprb, 0.296717e-01_jprb, 0.264186e-01_jprb &
6669  &, 0.234728e-01_jprb, 0.208154e-01_jprb, 0.183922e-01_jprb, 0.162252e-01_jprb &
6670  &, 0.142693e-01_jprb, 0.125264e-01_jprb, 0.109619e-01_jprb &
6671  &, 0.957327e-02_jprb, 0.831993e-02_jprb, 0.723271e-02_jprb, 0.626699e-02_jprb &
6672  &, 0.541314e-02_jprb, 0.466011e-02_jprb, 0.401610e-02_jprb &
6673  &, 0.344736e-02_jprb, 0.293837e-02_jprb, 0.251597e-02_jprb, 0.214163e-02_jprb &
6674  &, 0.179621e-02_jprb, 0.152892e-02_jprb, 0.129746e-02_jprb &
6675  &, 0.108015e-02_jprb, 0.903068e-03_jprb, 0.768975e-03_jprb, 0.629125e-03_jprb &
6676  &, 0.536011e-03_jprb, 0.438963e-03_jprb, 0.365235e-03_jprb &
6677  &, 0.288473e-03_jprb, 0.236998e-03_jprb, 0.183449e-03_jprb, 0.157238e-03_jprb &
6678  &, 0.129972e-03_jprb, 0.101633e-03_jprb, 0.722034e-04_jprb &
6679  &, 0.733299e-04_jprb, 0.422342e-04_jprb, 0.428094e-04_jprb, 0.100000e-04_jprb &
6680  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6681  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6682  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6683  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6684  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6685  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6686  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6687  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6688  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6689  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6690  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6691  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6692  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6693 xcw( 150, :) = (/ &
6694  & 0.896436e+00_jprb, 0.870751e+00_jprb, 0.845180e+00_jprb, 0.819742e+00_jprb &
6695  &, 0.794451e+00_jprb, 0.769325e+00_jprb, 0.744380e+00_jprb &
6696  &, 0.719633e+00_jprb, 0.695101e+00_jprb, 0.670801e+00_jprb, 0.646749e+00_jprb &
6697  &, 0.622963e+00_jprb, 0.599459e+00_jprb, 0.576255e+00_jprb &
6698  &, 0.553370e+00_jprb, 0.530818e+00_jprb, 0.508616e+00_jprb, 0.486783e+00_jprb &
6699  &, 0.465335e+00_jprb, 0.444287e+00_jprb, 0.423661e+00_jprb &
6700  &, 0.403464e+00_jprb, 0.383721e+00_jprb, 0.364441e+00_jprb, 0.345640e+00_jprb &
6701  &, 0.327329e+00_jprb, 0.309529e+00_jprb, 0.292246e+00_jprb &
6702  &, 0.275493e+00_jprb, 0.259282e+00_jprb, 0.243619e+00_jprb, 0.228514e+00_jprb &
6703  &, 0.213970e+00_jprb, 0.199999e+00_jprb, 0.186595e+00_jprb &
6704  &, 0.173768e+00_jprb, 0.161515e+00_jprb, 0.149831e+00_jprb, 0.138723e+00_jprb &
6705  &, 0.128176e+00_jprb, 0.118195e+00_jprb, 0.108756e+00_jprb &
6706  &, 0.998691e-01_jprb, 0.915047e-01_jprb, 0.836527e-01_jprb, 0.763110e-01_jprb &
6707  &, 0.694625e-01_jprb, 0.630855e-01_jprb, 0.571539e-01_jprb &
6708  &, 0.516627e-01_jprb, 0.465906e-01_jprb, 0.419258e-01_jprb, 0.376248e-01_jprb &
6709  &, 0.336956e-01_jprb, 0.301007e-01_jprb, 0.268123e-01_jprb &
6710  &, 0.238447e-01_jprb, 0.211326e-01_jprb, 0.187005e-01_jprb, 0.164907e-01_jprb &
6711  &, 0.145240e-01_jprb, 0.127521e-01_jprb, 0.111572e-01_jprb &
6712  &, 0.975474e-02_jprb, 0.848687e-02_jprb, 0.738437e-02_jprb, 0.640260e-02_jprb &
6713  &, 0.553189e-02_jprb, 0.476120e-02_jprb, 0.409870e-02_jprb &
6714  &, 0.351063e-02_jprb, 0.300297e-02_jprb, 0.255993e-02_jprb, 0.218650e-02_jprb &
6715  &, 0.186491e-02_jprb, 0.157566e-02_jprb, 0.132130e-02_jprb &
6716  &, 0.110447e-02_jprb, 0.927875e-03_jprb, 0.794275e-03_jprb, 0.654922e-03_jprb &
6717  &, 0.536011e-03_jprb, 0.438963e-03_jprb, 0.365235e-03_jprb &
6718  &, 0.316320e-03_jprb, 0.236998e-03_jprb, 0.212358e-03_jprb, 0.157238e-03_jprb &
6719  &, 0.129972e-03_jprb, 0.101633e-03_jprb, 0.722034e-04_jprb &
6720  &, 0.733299e-04_jprb, 0.422342e-04_jprb, 0.428094e-04_jprb, 0.100000e-04_jprb &
6721  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6722  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6723  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6724  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6725  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6726  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6727  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6728  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6729  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6730  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6731  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6732  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6733  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6734 xcw( 151, :) = (/ &
6735  & 0.896836e+00_jprb, 0.871241e+00_jprb, 0.845757e+00_jprb, 0.820401e+00_jprb &
6736  &, 0.795189e+00_jprb, 0.770138e+00_jprb, 0.745263e+00_jprb &
6737  &, 0.720582e+00_jprb, 0.696113e+00_jprb, 0.671870e+00_jprb, 0.647873e+00_jprb &
6738  &, 0.624136e+00_jprb, 0.600679e+00_jprb, 0.577518e+00_jprb &
6739  &, 0.554669e+00_jprb, 0.532150e+00_jprb, 0.509978e+00_jprb, 0.488171e+00_jprb &
6740  &, 0.466743e+00_jprb, 0.445714e+00_jprb, 0.425097e+00_jprb &
6741  &, 0.404913e+00_jprb, 0.385172e+00_jprb, 0.365895e+00_jprb, 0.347090e+00_jprb &
6742  &, 0.328777e+00_jprb, 0.310967e+00_jprb, 0.293673e+00_jprb &
6743  &, 0.276901e+00_jprb, 0.260672e+00_jprb, 0.244986e+00_jprb, 0.229853e+00_jprb &
6744  &, 0.215282e+00_jprb, 0.201278e+00_jprb, 0.187846e+00_jprb &
6745  &, 0.174977e+00_jprb, 0.162688e+00_jprb, 0.150975e+00_jprb, 0.139825e+00_jprb &
6746  &, 0.129235e+00_jprb, 0.119206e+00_jprb, 0.109729e+00_jprb &
6747  &, 0.100788e+00_jprb, 0.923901e-01_jprb, 0.845020e-01_jprb, 0.771099e-01_jprb &
6748  &, 0.702078e-01_jprb, 0.637866e-01_jprb, 0.578209e-01_jprb &
6749  &, 0.522934e-01_jprb, 0.471828e-01_jprb, 0.424634e-01_jprb, 0.381329e-01_jprb &
6750  &, 0.341580e-01_jprb, 0.305297e-01_jprb, 0.272212e-01_jprb &
6751  &, 0.242011e-01_jprb, 0.214656e-01_jprb, 0.190087e-01_jprb, 0.167729e-01_jprb &
6752  &, 0.147786e-01_jprb, 0.129778e-01_jprb, 0.113702e-01_jprb &
6753  &, 0.993620e-02_jprb, 0.865381e-02_jprb, 0.753603e-02_jprb, 0.653820e-02_jprb &
6754  &, 0.565064e-02_jprb, 0.488251e-02_jprb, 0.420195e-02_jprb &
6755  &, 0.359498e-02_jprb, 0.308910e-02_jprb, 0.262588e-02_jprb, 0.223138e-02_jprb &
6756  &, 0.191071e-02_jprb, 0.162239e-02_jprb, 0.136899e-02_jprb &
6757  &, 0.115312e-02_jprb, 0.952683e-03_jprb, 0.794275e-03_jprb, 0.680719e-03_jprb &
6758  &, 0.562311e-03_jprb, 0.465773e-03_jprb, 0.392560e-03_jprb &
6759  &, 0.316320e-03_jprb, 0.265373e-03_jprb, 0.212358e-03_jprb, 0.157238e-03_jprb &
6760  &, 0.129972e-03_jprb, 0.101633e-03_jprb, 0.722034e-04_jprb &
6761  &, 0.733299e-04_jprb, 0.422342e-04_jprb, 0.428094e-04_jprb, 0.433905e-04_jprb &
6762  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6763  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6764  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6765  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6766  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6767  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6768  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6769  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6770  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6771  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6772  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6773  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6774  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6775 xcw( 152, :) = (/ &
6776  & 0.897233e+00_jprb, 0.871729e+00_jprb, 0.846331e+00_jprb, 0.821058e+00_jprb &
6777  &, 0.795924e+00_jprb, 0.770946e+00_jprb, 0.746143e+00_jprb &
6778  &, 0.721529e+00_jprb, 0.697120e+00_jprb, 0.672937e+00_jprb, 0.648993e+00_jprb &
6779  &, 0.625307e+00_jprb, 0.601896e+00_jprb, 0.578774e+00_jprb &
6780  &, 0.555964e+00_jprb, 0.533478e+00_jprb, 0.511337e+00_jprb, 0.489555e+00_jprb &
6781  &, 0.468149e+00_jprb, 0.447135e+00_jprb, 0.426533e+00_jprb &
6782  &, 0.406358e+00_jprb, 0.386624e+00_jprb, 0.367346e+00_jprb, 0.348543e+00_jprb &
6783  &, 0.330221e+00_jprb, 0.312401e+00_jprb, 0.295096e+00_jprb &
6784  &, 0.278309e+00_jprb, 0.262058e+00_jprb, 0.246350e+00_jprb, 0.231196e+00_jprb &
6785  &, 0.216599e+00_jprb, 0.202561e+00_jprb, 0.189094e+00_jprb &
6786  &, 0.176195e+00_jprb, 0.163870e+00_jprb, 0.152109e+00_jprb, 0.140918e+00_jprb &
6787  &, 0.130294e+00_jprb, 0.120229e+00_jprb, 0.110701e+00_jprb &
6788  &, 0.101719e+00_jprb, 0.932755e-01_jprb, 0.853397e-01_jprb, 0.779088e-01_jprb &
6789  &, 0.709654e-01_jprb, 0.645002e-01_jprb, 0.584879e-01_jprb &
6790  &, 0.529110e-01_jprb, 0.477615e-01_jprb, 0.430147e-01_jprb, 0.386410e-01_jprb &
6791  &, 0.346349e-01_jprb, 0.309588e-01_jprb, 0.276149e-01_jprb &
6792  &, 0.245731e-01_jprb, 0.218145e-01_jprb, 0.193170e-01_jprb, 0.170550e-01_jprb &
6793  &, 0.150332e-01_jprb, 0.132035e-01_jprb, 0.115832e-01_jprb &
6794  &, 0.101177e-01_jprb, 0.882075e-02_jprb, 0.768769e-02_jprb, 0.667380e-02_jprb &
6795  &, 0.576939e-02_jprb, 0.498360e-02_jprb, 0.428455e-02_jprb &
6796  &, 0.367933e-02_jprb, 0.315370e-02_jprb, 0.269183e-02_jprb, 0.229869e-02_jprb &
6797  &, 0.195651e-02_jprb, 0.164576e-02_jprb, 0.139283e-02_jprb &
6798  &, 0.117744e-02_jprb, 0.977490e-03_jprb, 0.819574e-03_jprb, 0.680719e-03_jprb &
6799  &, 0.588612e-03_jprb, 0.465773e-03_jprb, 0.392560e-03_jprb &
6800  &, 0.316320e-03_jprb, 0.265373e-03_jprb, 0.212358e-03_jprb, 0.186686e-03_jprb &
6801  &, 0.129972e-03_jprb, 0.101633e-03_jprb, 0.103305e-03_jprb &
6802  &, 0.733299e-04_jprb, 0.422342e-04_jprb, 0.428094e-04_jprb, 0.433905e-04_jprb &
6803  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6804  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6805  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6806  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6807  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6808  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6809  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6810  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6811  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6812  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6813  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6814  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6815  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6816 xcw( 153, :) = (/ &
6817  & 0.897630e+00_jprb, 0.872215e+00_jprb, 0.846903e+00_jprb, 0.821712e+00_jprb &
6818  &, 0.796656e+00_jprb, 0.771753e+00_jprb, 0.747018e+00_jprb &
6819  &, 0.722470e+00_jprb, 0.698125e+00_jprb, 0.673999e+00_jprb, 0.650110e+00_jprb &
6820  &, 0.626474e+00_jprb, 0.603107e+00_jprb, 0.580030e+00_jprb &
6821  &, 0.557256e+00_jprb, 0.534805e+00_jprb, 0.512691e+00_jprb, 0.490936e+00_jprb &
6822  &, 0.469551e+00_jprb, 0.448557e+00_jprb, 0.427967e+00_jprb &
6823  &, 0.407800e+00_jprb, 0.388072e+00_jprb, 0.368797e+00_jprb, 0.349992e+00_jprb &
6824  &, 0.331665e+00_jprb, 0.313835e+00_jprb, 0.296516e+00_jprb &
6825  &, 0.279716e+00_jprb, 0.263445e+00_jprb, 0.247717e+00_jprb, 0.232534e+00_jprb &
6826  &, 0.217910e+00_jprb, 0.203844e+00_jprb, 0.190346e+00_jprb &
6827  &, 0.177414e+00_jprb, 0.165053e+00_jprb, 0.153253e+00_jprb, 0.142021e+00_jprb &
6828  &, 0.131353e+00_jprb, 0.121240e+00_jprb, 0.111684e+00_jprb &
6829  &, 0.102660e+00_jprb, 0.941610e-01_jprb, 0.861775e-01_jprb, 0.787077e-01_jprb &
6830  &, 0.717230e-01_jprb, 0.652139e-01_jprb, 0.591549e-01_jprb &
6831  &, 0.535417e-01_jprb, 0.483537e-01_jprb, 0.435523e-01_jprb, 0.391491e-01_jprb &
6832  &, 0.350974e-01_jprb, 0.314026e-01_jprb, 0.280237e-01_jprb &
6833  &, 0.249450e-01_jprb, 0.221475e-01_jprb, 0.196253e-01_jprb, 0.173372e-01_jprb &
6834  &, 0.152879e-01_jprb, 0.134292e-01_jprb, 0.117784e-01_jprb &
6835  &, 0.103173e-01_jprb, 0.900624e-02_jprb, 0.783934e-02_jprb, 0.680940e-02_jprb &
6836  &, 0.588814e-02_jprb, 0.508469e-02_jprb, 0.438780e-02_jprb &
6837  &, 0.376368e-02_jprb, 0.323983e-02_jprb, 0.275777e-02_jprb, 0.234357e-02_jprb &
6838  &, 0.200231e-02_jprb, 0.169250e-02_jprb, 0.144051e-02_jprb &
6839  &, 0.120176e-02_jprb, 0.102711e-02_jprb, 0.844873e-03_jprb, 0.706516e-03_jprb &
6840  &, 0.588612e-03_jprb, 0.492583e-03_jprb, 0.419886e-03_jprb &
6841  &, 0.344167e-03_jprb, 0.265373e-03_jprb, 0.212358e-03_jprb, 0.186686e-03_jprb &
6842  &, 0.159965e-03_jprb, 0.132178e-03_jprb, 0.103305e-03_jprb &
6843  &, 0.733299e-04_jprb, 0.422342e-04_jprb, 0.428094e-04_jprb, 0.433905e-04_jprb &
6844  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6845  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6846  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6847  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6848  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6849  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6850  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6851  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6852  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6853  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6854  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6855  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6856  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6857 xcw( 154, :) = (/ &
6858  & 0.898025e+00_jprb, 0.872699e+00_jprb, 0.847473e+00_jprb, 0.822363e+00_jprb &
6859  &, 0.797385e+00_jprb, 0.772555e+00_jprb, 0.747892e+00_jprb &
6860  &, 0.723410e+00_jprb, 0.699126e+00_jprb, 0.675058e+00_jprb, 0.651222e+00_jprb &
6861  &, 0.627636e+00_jprb, 0.604316e+00_jprb, 0.581280e+00_jprb &
6862  &, 0.558545e+00_jprb, 0.536127e+00_jprb, 0.514044e+00_jprb, 0.492312e+00_jprb &
6863  &, 0.470950e+00_jprb, 0.449972e+00_jprb, 0.429396e+00_jprb &
6864  &, 0.409243e+00_jprb, 0.389520e+00_jprb, 0.370247e+00_jprb, 0.351438e+00_jprb &
6865  &, 0.333109e+00_jprb, 0.315270e+00_jprb, 0.297939e+00_jprb &
6866  &, 0.281120e+00_jprb, 0.264835e+00_jprb, 0.249081e+00_jprb, 0.233877e+00_jprb &
6867  &, 0.219222e+00_jprb, 0.205131e+00_jprb, 0.191598e+00_jprb &
6868  &, 0.178632e+00_jprb, 0.166235e+00_jprb, 0.154397e+00_jprb, 0.143124e+00_jprb &
6869  &, 0.132422e+00_jprb, 0.122262e+00_jprb, 0.112656e+00_jprb &
6870  &, 0.103590e+00_jprb, 0.950577e-01_jprb, 0.870268e-01_jprb, 0.795067e-01_jprb &
6871  &, 0.724805e-01_jprb, 0.659275e-01_jprb, 0.598347e-01_jprb &
6872  &, 0.541724e-01_jprb, 0.489459e-01_jprb, 0.441036e-01_jprb, 0.396573e-01_jprb &
6873  &, 0.355743e-01_jprb, 0.318464e-01_jprb, 0.284326e-01_jprb &
6874  &, 0.253169e-01_jprb, 0.224964e-01_jprb, 0.199335e-01_jprb, 0.176193e-01_jprb &
6875  &, 0.155425e-01_jprb, 0.136722e-01_jprb, 0.119914e-01_jprb &
6876  &, 0.104987e-01_jprb, 0.917318e-02_jprb, 0.799100e-02_jprb, 0.694500e-02_jprb &
6877  &, 0.600689e-02_jprb, 0.520600e-02_jprb, 0.449105e-02_jprb &
6878  &, 0.384804e-02_jprb, 0.330442e-02_jprb, 0.282372e-02_jprb, 0.241088e-02_jprb &
6879  &, 0.204811e-02_jprb, 0.173923e-02_jprb, 0.146435e-02_jprb &
6880  &, 0.125041e-02_jprb, 0.105191e-02_jprb, 0.870172e-03_jprb, 0.732313e-03_jprb &
6881  &, 0.614912e-03_jprb, 0.519393e-03_jprb, 0.419886e-03_jprb &
6882  &, 0.344167e-03_jprb, 0.293748e-03_jprb, 0.241266e-03_jprb, 0.186686e-03_jprb &
6883  &, 0.159965e-03_jprb, 0.132178e-03_jprb, 0.103305e-03_jprb &
6884  &, 0.733299e-04_jprb, 0.744684e-04_jprb, 0.428094e-04_jprb, 0.433905e-04_jprb &
6885  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6886  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6887  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6888  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6889  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6890  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6891  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6892  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6893  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6894  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6895  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6896  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6897  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6898 
6899 IF (lhook) CALL dr_hook('SU_MCICA:PART22',1,zhook_handle)
6900 END SUBROUTINE part22
6901 
6902 #ifdef VPP5000
6903 !OCL SCALAR
6904 #endif
6905 !option! -Nv -NO
6906 #ifdef RS6K
6907 @process nooptimize
6908 #endif
6909 !pgi$r opt=0
6910 SUBROUTINE part23
6911 
6912 REAL(KIND=JPRB) :: ZHOOK_HANDLE
6913 IF (lhook) CALL dr_hook('SU_MCICA:PART23',0,zhook_handle)
6914 
6915 xcw( 155, :) = (/ &
6916  & 0.898419e+00_jprb, 0.873182e+00_jprb, 0.848041e+00_jprb, 0.823012e+00_jprb &
6917  &, 0.798112e+00_jprb, 0.773356e+00_jprb, 0.748762e+00_jprb &
6918  &, 0.724346e+00_jprb, 0.700124e+00_jprb, 0.676114e+00_jprb, 0.652332e+00_jprb &
6919  &, 0.628796e+00_jprb, 0.605522e+00_jprb, 0.582527e+00_jprb &
6920  &, 0.559829e+00_jprb, 0.537445e+00_jprb, 0.515391e+00_jprb, 0.493687e+00_jprb &
6921  &, 0.472346e+00_jprb, 0.451387e+00_jprb, 0.430826e+00_jprb &
6922  &, 0.410678e+00_jprb, 0.390962e+00_jprb, 0.371691e+00_jprb, 0.352884e+00_jprb &
6923  &, 0.334546e+00_jprb, 0.316700e+00_jprb, 0.299359e+00_jprb &
6924  &, 0.282527e+00_jprb, 0.266214e+00_jprb, 0.250448e+00_jprb, 0.235216e+00_jprb &
6925  &, 0.220538e+00_jprb, 0.206414e+00_jprb, 0.192850e+00_jprb &
6926  &, 0.179851e+00_jprb, 0.167418e+00_jprb, 0.155541e+00_jprb, 0.144237e+00_jprb &
6927  &, 0.133480e+00_jprb, 0.123285e+00_jprb, 0.113639e+00_jprb &
6928  &, 0.104531e+00_jprb, 0.959432e-01_jprb, 0.878761e-01_jprb, 0.803175e-01_jprb &
6929  &, 0.732503e-01_jprb, 0.666537e-01_jprb, 0.605145e-01_jprb &
6930  &, 0.548162e-01_jprb, 0.495381e-01_jprb, 0.446687e-01_jprb, 0.401795e-01_jprb &
6931  &, 0.360511e-01_jprb, 0.322902e-01_jprb, 0.288414e-01_jprb &
6932  &, 0.256889e-01_jprb, 0.228452e-01_jprb, 0.202580e-01_jprb, 0.179181e-01_jprb &
6933  &, 0.157971e-01_jprb, 0.139152e-01_jprb, 0.122222e-01_jprb &
6934  &, 0.106984e-01_jprb, 0.934013e-02_jprb, 0.814266e-02_jprb, 0.708060e-02_jprb &
6935  &, 0.614543e-02_jprb, 0.530709e-02_jprb, 0.457365e-02_jprb &
6936  &, 0.393239e-02_jprb, 0.339055e-02_jprb, 0.288967e-02_jprb, 0.247820e-02_jprb &
6937  &, 0.209391e-02_jprb, 0.178597e-02_jprb, 0.151204e-02_jprb &
6938  &, 0.127473e-02_jprb, 0.107672e-02_jprb, 0.895471e-03_jprb, 0.758110e-03_jprb &
6939  &, 0.641213e-03_jprb, 0.519393e-03_jprb, 0.447212e-03_jprb &
6940  &, 0.372015e-03_jprb, 0.293748e-03_jprb, 0.241266e-03_jprb, 0.186686e-03_jprb &
6941  &, 0.159965e-03_jprb, 0.132178e-03_jprb, 0.103305e-03_jprb &
6942  &, 0.733299e-04_jprb, 0.744684e-04_jprb, 0.428094e-04_jprb, 0.433905e-04_jprb &
6943  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6944  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6945  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6946  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6947  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6948  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6949  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6950  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6951  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6952  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6953  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6954  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6955  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6956 xcw( 156, :) = (/ &
6957  & 0.898809e+00_jprb, 0.873663e+00_jprb, 0.848606e+00_jprb, 0.823659e+00_jprb &
6958  &, 0.798835e+00_jprb, 0.774154e+00_jprb, 0.749629e+00_jprb &
6959  &, 0.725278e+00_jprb, 0.701118e+00_jprb, 0.677166e+00_jprb, 0.653438e+00_jprb &
6960  &, 0.629952e+00_jprb, 0.606723e+00_jprb, 0.583771e+00_jprb &
6961  &, 0.561111e+00_jprb, 0.538760e+00_jprb, 0.516737e+00_jprb, 0.495057e+00_jprb &
6962  &, 0.473738e+00_jprb, 0.452795e+00_jprb, 0.432250e+00_jprb &
6963  &, 0.412114e+00_jprb, 0.392403e+00_jprb, 0.373135e+00_jprb, 0.354326e+00_jprb &
6964  &, 0.335986e+00_jprb, 0.318131e+00_jprb, 0.300775e+00_jprb &
6965  &, 0.283931e+00_jprb, 0.267604e+00_jprb, 0.251812e+00_jprb, 0.236559e+00_jprb &
6966  &, 0.221850e+00_jprb, 0.207697e+00_jprb, 0.194106e+00_jprb &
6967  &, 0.181069e+00_jprb, 0.168600e+00_jprb, 0.156685e+00_jprb, 0.145340e+00_jprb &
6968  &, 0.134549e+00_jprb, 0.124317e+00_jprb, 0.114623e+00_jprb &
6969  &, 0.105473e+00_jprb, 0.968400e-01_jprb, 0.887371e-01_jprb, 0.811283e-01_jprb &
6970  &, 0.740079e-01_jprb, 0.673673e-01_jprb, 0.611944e-01_jprb &
6971  &, 0.554470e-01_jprb, 0.501303e-01_jprb, 0.452201e-01_jprb, 0.407017e-01_jprb &
6972  &, 0.365425e-01_jprb, 0.327340e-01_jprb, 0.292503e-01_jprb &
6973  &, 0.260763e-01_jprb, 0.231941e-01_jprb, 0.205663e-01_jprb, 0.182002e-01_jprb &
6974  &, 0.160687e-01_jprb, 0.141583e-01_jprb, 0.124352e-01_jprb &
6975  &, 0.108980e-01_jprb, 0.952561e-02_jprb, 0.829432e-02_jprb, 0.721620e-02_jprb &
6976  &, 0.626418e-02_jprb, 0.542839e-02_jprb, 0.467690e-02_jprb &
6977  &, 0.403783e-02_jprb, 0.345515e-02_jprb, 0.295561e-02_jprb, 0.252307e-02_jprb &
6978  &, 0.216261e-02_jprb, 0.183270e-02_jprb, 0.155972e-02_jprb &
6979  &, 0.132337e-02_jprb, 0.110153e-02_jprb, 0.920771e-03_jprb, 0.783906e-03_jprb &
6980  &, 0.641213e-03_jprb, 0.546203e-03_jprb, 0.447212e-03_jprb &
6981  &, 0.372015e-03_jprb, 0.293748e-03_jprb, 0.241266e-03_jprb, 0.216134e-03_jprb &
6982  &, 0.159965e-03_jprb, 0.132178e-03_jprb, 0.103305e-03_jprb &
6983  &, 0.733299e-04_jprb, 0.744684e-04_jprb, 0.428094e-04_jprb, 0.433905e-04_jprb &
6984  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6985  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6986  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6987  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6988  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6989  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6990  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6991  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6992  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6993  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6994  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6995  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
6996  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
6997 xcw( 157, :) = (/ &
6998  & 0.899201e+00_jprb, 0.874141e+00_jprb, 0.849169e+00_jprb, 0.824303e+00_jprb &
6999  &, 0.799557e+00_jprb, 0.774948e+00_jprb, 0.750493e+00_jprb &
7000  &, 0.726208e+00_jprb, 0.702109e+00_jprb, 0.678215e+00_jprb, 0.654541e+00_jprb &
7001  &, 0.631104e+00_jprb, 0.607922e+00_jprb, 0.585011e+00_jprb &
7002  &, 0.562388e+00_jprb, 0.540072e+00_jprb, 0.518078e+00_jprb, 0.496425e+00_jprb &
7003  &, 0.475128e+00_jprb, 0.454204e+00_jprb, 0.433673e+00_jprb &
7004  &, 0.413546e+00_jprb, 0.393841e+00_jprb, 0.374578e+00_jprb, 0.355765e+00_jprb &
7005  &, 0.337423e+00_jprb, 0.319561e+00_jprb, 0.302194e+00_jprb &
7006  &, 0.285331e+00_jprb, 0.268990e+00_jprb, 0.253175e+00_jprb, 0.237897e+00_jprb &
7007  &, 0.223166e+00_jprb, 0.208985e+00_jprb, 0.195358e+00_jprb &
7008  &, 0.182287e+00_jprb, 0.169783e+00_jprb, 0.157839e+00_jprb, 0.146452e+00_jprb &
7009  &, 0.135618e+00_jprb, 0.125340e+00_jprb, 0.115606e+00_jprb &
7010  &, 0.106414e+00_jprb, 0.977481e-01_jprb, 0.895865e-01_jprb, 0.819391e-01_jprb &
7011  &, 0.747777e-01_jprb, 0.681060e-01_jprb, 0.618742e-01_jprb &
7012  &, 0.560908e-01_jprb, 0.507359e-01_jprb, 0.457852e-01_jprb, 0.412240e-01_jprb &
7013  &, 0.370338e-01_jprb, 0.331778e-01_jprb, 0.296591e-01_jprb &
7014  &, 0.264482e-01_jprb, 0.235430e-01_jprb, 0.208908e-01_jprb, 0.184990e-01_jprb &
7015  &, 0.163403e-01_jprb, 0.144013e-01_jprb, 0.126482e-01_jprb &
7016  &, 0.110976e-01_jprb, 0.971110e-02_jprb, 0.846493e-02_jprb, 0.737117e-02_jprb &
7017  &, 0.640272e-02_jprb, 0.552948e-02_jprb, 0.478015e-02_jprb &
7018  &, 0.412218e-02_jprb, 0.354128e-02_jprb, 0.304354e-02_jprb, 0.259039e-02_jprb &
7019  &, 0.220841e-02_jprb, 0.187944e-02_jprb, 0.158356e-02_jprb &
7020  &, 0.134769e-02_jprb, 0.112633e-02_jprb, 0.946070e-03_jprb, 0.809703e-03_jprb &
7021  &, 0.667514e-03_jprb, 0.546203e-03_jprb, 0.474538e-03_jprb &
7022  &, 0.372015e-03_jprb, 0.322123e-03_jprb, 0.270174e-03_jprb, 0.216134e-03_jprb &
7023  &, 0.159965e-03_jprb, 0.132178e-03_jprb, 0.103305e-03_jprb &
7024  &, 0.733299e-04_jprb, 0.744684e-04_jprb, 0.428094e-04_jprb, 0.433905e-04_jprb &
7025  &, 0.439776e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7026  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7027  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7028  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7029  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7030  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7031  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7032  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7033  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7034  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7035  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7036  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7037  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7038 xcw( 158, :) = (/ &
7039  & 0.899590e+00_jprb, 0.874617e+00_jprb, 0.849731e+00_jprb, 0.824945e+00_jprb &
7040  &, 0.800275e+00_jprb, 0.775740e+00_jprb, 0.751354e+00_jprb &
7041  &, 0.727134e+00_jprb, 0.703097e+00_jprb, 0.679260e+00_jprb, 0.655640e+00_jprb &
7042  &, 0.632253e+00_jprb, 0.609117e+00_jprb, 0.586248e+00_jprb &
7043  &, 0.563664e+00_jprb, 0.541381e+00_jprb, 0.519417e+00_jprb, 0.497789e+00_jprb &
7044  &, 0.476514e+00_jprb, 0.455609e+00_jprb, 0.435090e+00_jprb &
7045  &, 0.414975e+00_jprb, 0.395279e+00_jprb, 0.376019e+00_jprb, 0.357204e+00_jprb &
7046  &, 0.338856e+00_jprb, 0.320988e+00_jprb, 0.303610e+00_jprb &
7047  &, 0.286735e+00_jprb, 0.270377e+00_jprb, 0.254538e+00_jprb, 0.239240e+00_jprb &
7048  &, 0.224483e+00_jprb, 0.210272e+00_jprb, 0.196614e+00_jprb &
7049  &, 0.183515e+00_jprb, 0.170965e+00_jprb, 0.158983e+00_jprb, 0.147565e+00_jprb &
7050  &, 0.136698e+00_jprb, 0.126372e+00_jprb, 0.116600e+00_jprb &
7051  &, 0.107355e+00_jprb, 0.986449e-01_jprb, 0.904474e-01_jprb, 0.827619e-01_jprb &
7052  &, 0.755597e-01_jprb, 0.688321e-01_jprb, 0.625668e-01_jprb &
7053  &, 0.567347e-01_jprb, 0.513416e-01_jprb, 0.463503e-01_jprb, 0.417462e-01_jprb &
7054  &, 0.375107e-01_jprb, 0.336365e-01_jprb, 0.300831e-01_jprb &
7055  &, 0.268357e-01_jprb, 0.238919e-01_jprb, 0.212153e-01_jprb, 0.187977e-01_jprb &
7056  &, 0.166119e-01_jprb, 0.146443e-01_jprb, 0.128789e-01_jprb &
7057  &, 0.112972e-01_jprb, 0.987804e-02_jprb, 0.863555e-02_jprb, 0.750677e-02_jprb &
7058  &, 0.652147e-02_jprb, 0.565079e-02_jprb, 0.488341e-02_jprb &
7059  &, 0.420653e-02_jprb, 0.362740e-02_jprb, 0.310949e-02_jprb, 0.265770e-02_jprb &
7060  &, 0.225421e-02_jprb, 0.192618e-02_jprb, 0.163125e-02_jprb &
7061  &, 0.137201e-02_jprb, 0.117595e-02_jprb, 0.971369e-03_jprb, 0.835500e-03_jprb &
7062  &, 0.693814e-03_jprb, 0.573013e-03_jprb, 0.474538e-03_jprb &
7063  &, 0.399862e-03_jprb, 0.322123e-03_jprb, 0.270174e-03_jprb, 0.216134e-03_jprb &
7064  &, 0.189958e-03_jprb, 0.132178e-03_jprb, 0.103305e-03_jprb &
7065  &, 0.104995e-03_jprb, 0.744684e-04_jprb, 0.428094e-04_jprb, 0.433905e-04_jprb &
7066  &, 0.439776e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7067  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7068  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7069  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7070  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7071  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7072  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7073  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7074  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7075  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7076  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7077  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7078  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7079 xcw( 159, :) = (/ &
7080  & 0.899977e+00_jprb, 0.875093e+00_jprb, 0.850289e+00_jprb, 0.825584e+00_jprb &
7081  &, 0.800992e+00_jprb, 0.776529e+00_jprb, 0.752212e+00_jprb &
7082  &, 0.728058e+00_jprb, 0.704082e+00_jprb, 0.680303e+00_jprb, 0.656736e+00_jprb &
7083  &, 0.633399e+00_jprb, 0.610308e+00_jprb, 0.587481e+00_jprb &
7084  &, 0.564934e+00_jprb, 0.542686e+00_jprb, 0.520753e+00_jprb, 0.499152e+00_jprb &
7085  &, 0.477898e+00_jprb, 0.457011e+00_jprb, 0.436507e+00_jprb &
7086  &, 0.416404e+00_jprb, 0.396714e+00_jprb, 0.377456e+00_jprb, 0.358642e+00_jprb &
7087  &, 0.340289e+00_jprb, 0.322415e+00_jprb, 0.305026e+00_jprb &
7088  &, 0.288134e+00_jprb, 0.271759e+00_jprb, 0.255906e+00_jprb, 0.240579e+00_jprb &
7089  &, 0.225795e+00_jprb, 0.211560e+00_jprb, 0.197871e+00_jprb &
7090  &, 0.184734e+00_jprb, 0.172158e+00_jprb, 0.160137e+00_jprb, 0.148678e+00_jprb &
7091  &, 0.137767e+00_jprb, 0.127405e+00_jprb, 0.117593e+00_jprb &
7092  &, 0.108308e+00_jprb, 0.995530e-01_jprb, 0.913084e-01_jprb, 0.835727e-01_jprb &
7093  &, 0.763295e-01_jprb, 0.695583e-01_jprb, 0.632595e-01_jprb &
7094  &, 0.573917e-01_jprb, 0.519472e-01_jprb, 0.469155e-01_jprb, 0.422825e-01_jprb &
7095  &, 0.380165e-01_jprb, 0.340951e-01_jprb, 0.305071e-01_jprb &
7096  &, 0.272386e-01_jprb, 0.242566e-01_jprb, 0.215397e-01_jprb, 0.190964e-01_jprb &
7097  &, 0.168835e-01_jprb, 0.148874e-01_jprb, 0.131097e-01_jprb &
7098  &, 0.114968e-01_jprb, 0.100635e-01_jprb, 0.878721e-02_jprb, 0.766174e-02_jprb &
7099  &, 0.666002e-02_jprb, 0.577210e-02_jprb, 0.498666e-02_jprb &
7100  &, 0.431198e-02_jprb, 0.369200e-02_jprb, 0.317543e-02_jprb, 0.272502e-02_jprb &
7101  &, 0.232291e-02_jprb, 0.197291e-02_jprb, 0.167893e-02_jprb &
7102  &, 0.142066e-02_jprb, 0.120076e-02_jprb, 0.102197e-02_jprb, 0.835500e-03_jprb &
7103  &, 0.720115e-03_jprb, 0.599824e-03_jprb, 0.501863e-03_jprb &
7104  &, 0.399862e-03_jprb, 0.350497e-03_jprb, 0.270174e-03_jprb, 0.216134e-03_jprb &
7105  &, 0.189958e-03_jprb, 0.162722e-03_jprb, 0.103305e-03_jprb &
7106  &, 0.104995e-03_jprb, 0.744684e-04_jprb, 0.428094e-04_jprb, 0.433905e-04_jprb &
7107  &, 0.439776e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7108  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7109  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7110  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7111  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7112  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7113  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7114  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7115  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7116  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7117  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7118  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7119  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7120 xcw( 160, :) = (/ &
7121  & 0.900363e+00_jprb, 0.875566e+00_jprb, 0.850846e+00_jprb, 0.826222e+00_jprb &
7122  &, 0.801705e+00_jprb, 0.777315e+00_jprb, 0.753067e+00_jprb &
7123  &, 0.728978e+00_jprb, 0.705064e+00_jprb, 0.681342e+00_jprb, 0.657829e+00_jprb &
7124  &, 0.634541e+00_jprb, 0.611495e+00_jprb, 0.588711e+00_jprb &
7125  &, 0.566202e+00_jprb, 0.543988e+00_jprb, 0.522085e+00_jprb, 0.500510e+00_jprb &
7126  &, 0.479280e+00_jprb, 0.458410e+00_jprb, 0.437921e+00_jprb &
7127  &, 0.417830e+00_jprb, 0.398145e+00_jprb, 0.378892e+00_jprb, 0.360077e+00_jprb &
7128  &, 0.341723e+00_jprb, 0.323838e+00_jprb, 0.306438e+00_jprb &
7129  &, 0.289538e+00_jprb, 0.273142e+00_jprb, 0.257269e+00_jprb, 0.241922e+00_jprb &
7130  &, 0.227111e+00_jprb, 0.212847e+00_jprb, 0.199127e+00_jprb &
7131  &, 0.185962e+00_jprb, 0.173350e+00_jprb, 0.161291e+00_jprb, 0.149791e+00_jprb &
7132  &, 0.138846e+00_jprb, 0.128438e+00_jprb, 0.118587e+00_jprb &
7133  &, 0.109260e+00_jprb, 0.100461e+00_jprb, 0.921810e-01_jprb, 0.843954e-01_jprb &
7134  &, 0.771115e-01_jprb, 0.702970e-01_jprb, 0.639521e-01_jprb &
7135  &, 0.580486e-01_jprb, 0.525663e-01_jprb, 0.474944e-01_jprb, 0.428189e-01_jprb &
7136  &, 0.385078e-01_jprb, 0.345537e-01_jprb, 0.309311e-01_jprb &
7137  &, 0.276260e-01_jprb, 0.246055e-01_jprb, 0.218805e-01_jprb, 0.193952e-01_jprb &
7138  &, 0.171551e-01_jprb, 0.151478e-01_jprb, 0.133227e-01_jprb &
7139  &, 0.116964e-01_jprb, 0.102490e-01_jprb, 0.895782e-02_jprb, 0.781671e-02_jprb &
7140  &, 0.679856e-02_jprb, 0.589341e-02_jprb, 0.508991e-02_jprb &
7141  &, 0.439633e-02_jprb, 0.377813e-02_jprb, 0.324138e-02_jprb, 0.279233e-02_jprb &
7142  &, 0.236871e-02_jprb, 0.201965e-02_jprb, 0.172661e-02_jprb &
7143  &, 0.146930e-02_jprb, 0.122556e-02_jprb, 0.104727e-02_jprb, 0.861297e-03_jprb &
7144  &, 0.720115e-03_jprb, 0.599824e-03_jprb, 0.501863e-03_jprb &
7145  &, 0.427709e-03_jprb, 0.350497e-03_jprb, 0.299082e-03_jprb, 0.245581e-03_jprb &
7146  &, 0.189958e-03_jprb, 0.162722e-03_jprb, 0.134407e-03_jprb &
7147  &, 0.104995e-03_jprb, 0.744684e-04_jprb, 0.756187e-04_jprb, 0.433905e-04_jprb &
7148  &, 0.439776e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7149  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7150  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7151  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7152  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7153  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7154  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7155  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7156  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7157  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7158  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7159  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7160  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7161 xcw( 161, :) = (/ &
7162  & 0.900746e+00_jprb, 0.876037e+00_jprb, 0.851402e+00_jprb, 0.826856e+00_jprb &
7163  &, 0.802416e+00_jprb, 0.778099e+00_jprb, 0.753920e+00_jprb &
7164  &, 0.729895e+00_jprb, 0.706042e+00_jprb, 0.682378e+00_jprb, 0.658919e+00_jprb &
7165  &, 0.635680e+00_jprb, 0.612680e+00_jprb, 0.589938e+00_jprb &
7166  &, 0.567467e+00_jprb, 0.545287e+00_jprb, 0.523414e+00_jprb, 0.501865e+00_jprb &
7167  &, 0.480657e+00_jprb, 0.459806e+00_jprb, 0.439335e+00_jprb &
7168  &, 0.419252e+00_jprb, 0.399576e+00_jprb, 0.380326e+00_jprb, 0.361513e+00_jprb &
7169  &, 0.343152e+00_jprb, 0.325261e+00_jprb, 0.307854e+00_jprb &
7170  &, 0.290938e+00_jprb, 0.274528e+00_jprb, 0.258633e+00_jprb, 0.243264e+00_jprb &
7171  &, 0.228427e+00_jprb, 0.214134e+00_jprb, 0.200384e+00_jprb &
7172  &, 0.187189e+00_jprb, 0.174542e+00_jprb, 0.162444e+00_jprb, 0.150914e+00_jprb &
7173  &, 0.139925e+00_jprb, 0.129481e+00_jprb, 0.119581e+00_jprb &
7174  &, 0.110213e+00_jprb, 0.101369e+00_jprb, 0.930420e-01_jprb, 0.852301e-01_jprb &
7175  &, 0.778935e-01_jprb, 0.710357e-01_jprb, 0.646448e-01_jprb &
7176  &, 0.586925e-01_jprb, 0.531854e-01_jprb, 0.480733e-01_jprb, 0.433552e-01_jprb &
7177  &, 0.390136e-01_jprb, 0.350123e-01_jprb, 0.313551e-01_jprb &
7178  &, 0.280134e-01_jprb, 0.249702e-01_jprb, 0.222049e-01_jprb, 0.197105e-01_jprb &
7179  &, 0.174437e-01_jprb, 0.153908e-01_jprb, 0.135534e-01_jprb &
7180  &, 0.119142e-01_jprb, 0.104345e-01_jprb, 0.912844e-02_jprb, 0.797169e-02_jprb &
7181  &, 0.691731e-02_jprb, 0.601471e-02_jprb, 0.521381e-02_jprb &
7182  &, 0.450177e-02_jprb, 0.386426e-02_jprb, 0.332931e-02_jprb, 0.285965e-02_jprb &
7183  &, 0.243741e-02_jprb, 0.206638e-02_jprb, 0.177430e-02_jprb &
7184  &, 0.149362e-02_jprb, 0.127518e-02_jprb, 0.107257e-02_jprb, 0.887094e-03_jprb &
7185  &, 0.746415e-03_jprb, 0.626634e-03_jprb, 0.529189e-03_jprb &
7186  &, 0.427709e-03_jprb, 0.350497e-03_jprb, 0.299082e-03_jprb, 0.245581e-03_jprb &
7187  &, 0.189958e-03_jprb, 0.162722e-03_jprb, 0.134407e-03_jprb &
7188  &, 0.104995e-03_jprb, 0.744684e-04_jprb, 0.756187e-04_jprb, 0.433905e-04_jprb &
7189  &, 0.439776e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7190  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7191  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7192  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7193  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7194  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7195  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7196  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7197  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7198  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7199  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7200  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7201  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7202 
7203 IF (lhook) CALL dr_hook('SU_MCICA:PART23',1,zhook_handle)
7204 END SUBROUTINE part23
7205 
7206 #ifdef VPP5000
7207 !OCL SCALAR
7208 #endif
7209 !option! -Nv -NO
7210 #ifdef RS6K
7211 @process nooptimize
7212 #endif
7213 !pgi$r opt=0
7214 SUBROUTINE part24
7215 
7216 REAL(KIND=JPRB) :: ZHOOK_HANDLE
7217 IF (lhook) CALL dr_hook('SU_MCICA:PART24',0,zhook_handle)
7218 
7219 xcw( 162, :) = (/ &
7220  & 0.901130e+00_jprb, 0.876507e+00_jprb, 0.851955e+00_jprb, 0.827489e+00_jprb &
7221  &, 0.803125e+00_jprb, 0.778880e+00_jprb, 0.754770e+00_jprb &
7222  &, 0.730810e+00_jprb, 0.707018e+00_jprb, 0.683411e+00_jprb, 0.660004e+00_jprb &
7223  &, 0.636816e+00_jprb, 0.613863e+00_jprb, 0.591161e+00_jprb &
7224  &, 0.568728e+00_jprb, 0.546582e+00_jprb, 0.524740e+00_jprb, 0.503218e+00_jprb &
7225  &, 0.482033e+00_jprb, 0.461202e+00_jprb, 0.440742e+00_jprb &
7226  &, 0.420671e+00_jprb, 0.401004e+00_jprb, 0.381755e+00_jprb, 0.362944e+00_jprb &
7227  &, 0.344582e+00_jprb, 0.326684e+00_jprb, 0.309266e+00_jprb &
7228  &, 0.292334e+00_jprb, 0.275910e+00_jprb, 0.259996e+00_jprb, 0.244603e+00_jprb &
7229  &, 0.229743e+00_jprb, 0.215422e+00_jprb, 0.201645e+00_jprb &
7230  &, 0.188408e+00_jprb, 0.175734e+00_jprb, 0.163608e+00_jprb, 0.152027e+00_jprb &
7231  &, 0.141004e+00_jprb, 0.130524e+00_jprb, 0.120575e+00_jprb &
7232  &, 0.111176e+00_jprb, 0.102289e+00_jprb, 0.939146e-01_jprb, 0.860529e-01_jprb &
7233  &, 0.786755e-01_jprb, 0.717869e-01_jprb, 0.653503e-01_jprb &
7234  &, 0.593626e-01_jprb, 0.538045e-01_jprb, 0.486522e-01_jprb, 0.438916e-01_jprb &
7235  &, 0.395050e-01_jprb, 0.354857e-01_jprb, 0.317942e-01_jprb &
7236  &, 0.284164e-01_jprb, 0.253508e-01_jprb, 0.225457e-01_jprb, 0.200093e-01_jprb &
7237  &, 0.177153e-01_jprb, 0.156512e-01_jprb, 0.138019e-01_jprb &
7238  &, 0.121319e-01_jprb, 0.106386e-01_jprb, 0.929905e-02_jprb, 0.810729e-02_jprb &
7239  &, 0.705585e-02_jprb, 0.613602e-02_jprb, 0.531706e-02_jprb &
7240  &, 0.458612e-02_jprb, 0.395039e-02_jprb, 0.339526e-02_jprb, 0.292696e-02_jprb &
7241  &, 0.248321e-02_jprb, 0.213649e-02_jprb, 0.182198e-02_jprb &
7242  &, 0.154226e-02_jprb, 0.129999e-02_jprb, 0.109786e-02_jprb, 0.912891e-03_jprb &
7243  &, 0.772716e-03_jprb, 0.653444e-03_jprb, 0.529189e-03_jprb &
7244  &, 0.455557e-03_jprb, 0.378872e-03_jprb, 0.299082e-03_jprb, 0.245581e-03_jprb &
7245  &, 0.189958e-03_jprb, 0.162722e-03_jprb, 0.134407e-03_jprb &
7246  &, 0.104995e-03_jprb, 0.744684e-04_jprb, 0.756187e-04_jprb, 0.433905e-04_jprb &
7247  &, 0.439776e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7248  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7249  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7250  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7251  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7252  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7253  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7254  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7255  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7256  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7257  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7258  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7259  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7260 xcw( 163, :) = (/ &
7261  & 0.901510e+00_jprb, 0.876975e+00_jprb, 0.852505e+00_jprb, 0.828120e+00_jprb &
7262  &, 0.803831e+00_jprb, 0.779658e+00_jprb, 0.755616e+00_jprb &
7263  &, 0.731722e+00_jprb, 0.707991e+00_jprb, 0.684440e+00_jprb, 0.661088e+00_jprb &
7264  &, 0.637948e+00_jprb, 0.615041e+00_jprb, 0.592381e+00_jprb &
7265  &, 0.569987e+00_jprb, 0.547876e+00_jprb, 0.526063e+00_jprb, 0.504567e+00_jprb &
7266  &, 0.483405e+00_jprb, 0.462592e+00_jprb, 0.442149e+00_jprb &
7267  &, 0.422090e+00_jprb, 0.402428e+00_jprb, 0.383185e+00_jprb, 0.364376e+00_jprb &
7268  &, 0.346011e+00_jprb, 0.328107e+00_jprb, 0.310674e+00_jprb &
7269  &, 0.293734e+00_jprb, 0.277293e+00_jprb, 0.261360e+00_jprb, 0.245946e+00_jprb &
7270  &, 0.231059e+00_jprb, 0.216709e+00_jprb, 0.202901e+00_jprb &
7271  &, 0.189636e+00_jprb, 0.176926e+00_jprb, 0.164762e+00_jprb, 0.153149e+00_jprb &
7272  &, 0.142084e+00_jprb, 0.131557e+00_jprb, 0.121580e+00_jprb &
7273  &, 0.112129e+00_jprb, 0.103208e+00_jprb, 0.947988e-01_jprb, 0.868875e-01_jprb &
7274  &, 0.794698e-01_jprb, 0.725255e-01_jprb, 0.660558e-01_jprb &
7275  &, 0.600196e-01_jprb, 0.544236e-01_jprb, 0.492311e-01_jprb, 0.444420e-01_jprb &
7276  &, 0.400108e-01_jprb, 0.359591e-01_jprb, 0.322333e-01_jprb &
7277  &, 0.288193e-01_jprb, 0.257155e-01_jprb, 0.228864e-01_jprb, 0.203246e-01_jprb &
7278  &, 0.180039e-01_jprb, 0.159116e-01_jprb, 0.140327e-01_jprb &
7279  &, 0.123316e-01_jprb, 0.108240e-01_jprb, 0.946967e-02_jprb, 0.826226e-02_jprb &
7280  &, 0.721418e-02_jprb, 0.625733e-02_jprb, 0.542031e-02_jprb &
7281  &, 0.469156e-02_jprb, 0.403652e-02_jprb, 0.348319e-02_jprb, 0.299428e-02_jprb &
7282  &, 0.255191e-02_jprb, 0.218322e-02_jprb, 0.184582e-02_jprb &
7283  &, 0.156659e-02_jprb, 0.132479e-02_jprb, 0.112316e-02_jprb, 0.938688e-03_jprb &
7284  &, 0.799016e-03_jprb, 0.653444e-03_jprb, 0.556515e-03_jprb &
7285  &, 0.455557e-03_jprb, 0.378872e-03_jprb, 0.327991e-03_jprb, 0.245581e-03_jprb &
7286  &, 0.219951e-03_jprb, 0.162722e-03_jprb, 0.134407e-03_jprb &
7287  &, 0.104995e-03_jprb, 0.744684e-04_jprb, 0.756187e-04_jprb, 0.433905e-04_jprb &
7288  &, 0.439776e-04_jprb, 0.445707e-04_jprb, 0.100000e-04_jprb &
7289  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7290  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7291  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7292  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7293  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7294  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7295  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7296  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7297  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7298  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7299  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7300  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7301 xcw( 164, :) = (/ &
7302  & 0.901889e+00_jprb, 0.877441e+00_jprb, 0.853055e+00_jprb, 0.828747e+00_jprb &
7303  &, 0.804535e+00_jprb, 0.780434e+00_jprb, 0.756460e+00_jprb &
7304  &, 0.732630e+00_jprb, 0.708960e+00_jprb, 0.685467e+00_jprb, 0.662168e+00_jprb &
7305  &, 0.639078e+00_jprb, 0.616216e+00_jprb, 0.593599e+00_jprb &
7306  &, 0.571243e+00_jprb, 0.549166e+00_jprb, 0.527384e+00_jprb, 0.505914e+00_jprb &
7307  &, 0.484775e+00_jprb, 0.463981e+00_jprb, 0.443553e+00_jprb &
7308  &, 0.423506e+00_jprb, 0.403853e+00_jprb, 0.384615e+00_jprb, 0.365804e+00_jprb &
7309  &, 0.347437e+00_jprb, 0.329526e+00_jprb, 0.312086e+00_jprb &
7310  &, 0.295130e+00_jprb, 0.278671e+00_jprb, 0.262719e+00_jprb, 0.247285e+00_jprb &
7311  &, 0.232376e+00_jprb, 0.218001e+00_jprb, 0.204162e+00_jprb &
7312  &, 0.190873e+00_jprb, 0.178118e+00_jprb, 0.165925e+00_jprb, 0.154272e+00_jprb &
7313  &, 0.143163e+00_jprb, 0.132611e+00_jprb, 0.122585e+00_jprb &
7314  &, 0.113092e+00_jprb, 0.104128e+00_jprb, 0.956715e-01_jprb, 0.877222e-01_jprb &
7315  &, 0.802640e-01_jprb, 0.732767e-01_jprb, 0.667612e-01_jprb &
7316  &, 0.606898e-01_jprb, 0.550427e-01_jprb, 0.498238e-01_jprb, 0.449784e-01_jprb &
7317  &, 0.405310e-01_jprb, 0.364325e-01_jprb, 0.326725e-01_jprb &
7318  &, 0.292222e-01_jprb, 0.260961e-01_jprb, 0.232271e-01_jprb, 0.206400e-01_jprb &
7319  &, 0.182925e-01_jprb, 0.161720e-01_jprb, 0.142635e-01_jprb &
7320  &, 0.125493e-01_jprb, 0.110281e-01_jprb, 0.965924e-02_jprb, 0.843660e-02_jprb &
7321  &, 0.735273e-02_jprb, 0.637863e-02_jprb, 0.554421e-02_jprb &
7322  &, 0.479700e-02_jprb, 0.412264e-02_jprb, 0.354913e-02_jprb, 0.306159e-02_jprb &
7323  &, 0.262061e-02_jprb, 0.222996e-02_jprb, 0.189351e-02_jprb &
7324  &, 0.161523e-02_jprb, 0.137441e-02_jprb, 0.114846e-02_jprb, 0.964485e-03_jprb &
7325  &, 0.825317e-03_jprb, 0.680254e-03_jprb, 0.583841e-03_jprb &
7326  &, 0.483404e-03_jprb, 0.407247e-03_jprb, 0.327991e-03_jprb, 0.275029e-03_jprb &
7327  &, 0.219951e-03_jprb, 0.193266e-03_jprb, 0.134407e-03_jprb &
7328  &, 0.104995e-03_jprb, 0.106703e-03_jprb, 0.756187e-04_jprb, 0.433905e-04_jprb &
7329  &, 0.439776e-04_jprb, 0.445707e-04_jprb, 0.100000e-04_jprb &
7330  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7331  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7332  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7333  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7334  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7335  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7336  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7337  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7338  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7339  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7340  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7341  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7342 xcw( 165, :) = (/ &
7343  & 0.902269e+00_jprb, 0.877906e+00_jprb, 0.853601e+00_jprb, 0.829373e+00_jprb &
7344  &, 0.805237e+00_jprb, 0.781207e+00_jprb, 0.757301e+00_jprb &
7345  &, 0.733536e+00_jprb, 0.709927e+00_jprb, 0.686490e+00_jprb, 0.663242e+00_jprb &
7346  &, 0.640204e+00_jprb, 0.617389e+00_jprb, 0.594813e+00_jprb &
7347  &, 0.572496e+00_jprb, 0.550451e+00_jprb, 0.528701e+00_jprb, 0.507258e+00_jprb &
7348  &, 0.486141e+00_jprb, 0.465368e+00_jprb, 0.444954e+00_jprb &
7349  &, 0.424918e+00_jprb, 0.405274e+00_jprb, 0.386041e+00_jprb, 0.367229e+00_jprb &
7350  &, 0.348859e+00_jprb, 0.330946e+00_jprb, 0.313494e+00_jprb &
7351  &, 0.296529e+00_jprb, 0.280053e+00_jprb, 0.264083e+00_jprb, 0.248627e+00_jprb &
7352  &, 0.233696e+00_jprb, 0.219293e+00_jprb, 0.205428e+00_jprb &
7353  &, 0.192100e+00_jprb, 0.179320e+00_jprb, 0.167089e+00_jprb, 0.155395e+00_jprb &
7354  &, 0.144253e+00_jprb, 0.133654e+00_jprb, 0.123589e+00_jprb &
7355  &, 0.114056e+00_jprb, 0.105047e+00_jprb, 0.965557e-01_jprb, 0.885569e-01_jprb &
7356  &, 0.810582e-01_jprb, 0.740279e-01_jprb, 0.674667e-01_jprb &
7357  &, 0.613599e-01_jprb, 0.556753e-01_jprb, 0.504027e-01_jprb, 0.455288e-01_jprb &
7358  &, 0.410368e-01_jprb, 0.369059e-01_jprb, 0.331116e-01_jprb &
7359  &, 0.296406e-01_jprb, 0.264608e-01_jprb, 0.235840e-01_jprb, 0.209553e-01_jprb &
7360  &, 0.185811e-01_jprb, 0.164324e-01_jprb, 0.145120e-01_jprb &
7361  &, 0.127671e-01_jprb, 0.112136e-01_jprb, 0.982985e-02_jprb, 0.859157e-02_jprb &
7362  &, 0.749127e-02_jprb, 0.652016e-02_jprb, 0.564746e-02_jprb &
7363  &, 0.488135e-02_jprb, 0.423030e-02_jprb, 0.363706e-02_jprb, 0.312890e-02_jprb &
7364  &, 0.266641e-02_jprb, 0.227670e-02_jprb, 0.194119e-02_jprb &
7365  &, 0.166387e-02_jprb, 0.139922e-02_jprb, 0.119906e-02_jprb, 0.990281e-03_jprb &
7366  &, 0.851617e-03_jprb, 0.707064e-03_jprb, 0.583841e-03_jprb &
7367  &, 0.483404e-03_jprb, 0.407247e-03_jprb, 0.327991e-03_jprb, 0.275029e-03_jprb &
7368  &, 0.219951e-03_jprb, 0.193266e-03_jprb, 0.134407e-03_jprb &
7369  &, 0.104995e-03_jprb, 0.106703e-03_jprb, 0.756187e-04_jprb, 0.433905e-04_jprb &
7370  &, 0.439776e-04_jprb, 0.445707e-04_jprb, 0.100000e-04_jprb &
7371  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7372  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7373  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7374  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7375  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7376  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7377  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7378  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7379  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7380  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7381  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7382  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7383 xcw( 166, :) = (/ &
7384  & 0.902646e+00_jprb, 0.878368e+00_jprb, 0.854146e+00_jprb, 0.829998e+00_jprb &
7385  &, 0.805936e+00_jprb, 0.781978e+00_jprb, 0.758140e+00_jprb &
7386  &, 0.734439e+00_jprb, 0.710890e+00_jprb, 0.687511e+00_jprb, 0.664318e+00_jprb &
7387  &, 0.641327e+00_jprb, 0.618557e+00_jprb, 0.596024e+00_jprb &
7388  &, 0.573744e+00_jprb, 0.551736e+00_jprb, 0.530015e+00_jprb, 0.508600e+00_jprb &
7389  &, 0.487506e+00_jprb, 0.466751e+00_jprb, 0.446355e+00_jprb &
7390  &, 0.426331e+00_jprb, 0.406695e+00_jprb, 0.387464e+00_jprb, 0.368657e+00_jprb &
7391  &, 0.350285e+00_jprb, 0.332361e+00_jprb, 0.314902e+00_jprb &
7392  &, 0.297925e+00_jprb, 0.281436e+00_jprb, 0.265446e+00_jprb, 0.249970e+00_jprb &
7393  &, 0.235012e+00_jprb, 0.220585e+00_jprb, 0.206689e+00_jprb &
7394  &, 0.193328e+00_jprb, 0.180521e+00_jprb, 0.168253e+00_jprb, 0.156528e+00_jprb &
7395  &, 0.145342e+00_jprb, 0.134708e+00_jprb, 0.124594e+00_jprb &
7396  &, 0.115030e+00_jprb, 0.105978e+00_jprb, 0.974400e-01_jprb, 0.894035e-01_jprb &
7397  &, 0.818525e-01_jprb, 0.747916e-01_jprb, 0.681850e-01_jprb &
7398  &, 0.620300e-01_jprb, 0.563078e-01_jprb, 0.509954e-01_jprb, 0.460934e-01_jprb &
7399  &, 0.415570e-01_jprb, 0.373793e-01_jprb, 0.335507e-01_jprb &
7400  &, 0.300436e-01_jprb, 0.268414e-01_jprb, 0.239247e-01_jprb, 0.212706e-01_jprb &
7401  &, 0.188697e-01_jprb, 0.167102e-01_jprb, 0.147427e-01_jprb &
7402  &, 0.129848e-01_jprb, 0.114176e-01_jprb, 0.100005e-01_jprb, 0.874655e-02_jprb &
7403  &, 0.762981e-02_jprb, 0.664147e-02_jprb, 0.577136e-02_jprb &
7404  &, 0.498680e-02_jprb, 0.431643e-02_jprb, 0.372499e-02_jprb, 0.319622e-02_jprb &
7405  &, 0.273511e-02_jprb, 0.234680e-02_jprb, 0.198887e-02_jprb &
7406  &, 0.168820e-02_jprb, 0.144883e-02_jprb, 0.122436e-02_jprb, 0.104188e-02_jprb &
7407  &, 0.877918e-03_jprb, 0.733874e-03_jprb, 0.611166e-03_jprb &
7408  &, 0.511251e-03_jprb, 0.407247e-03_jprb, 0.356899e-03_jprb, 0.275029e-03_jprb &
7409  &, 0.219951e-03_jprb, 0.193266e-03_jprb, 0.165508e-03_jprb &
7410  &, 0.136660e-03_jprb, 0.106703e-03_jprb, 0.756187e-04_jprb, 0.767810e-04_jprb &
7411  &, 0.439776e-04_jprb, 0.445707e-04_jprb, 0.100000e-04_jprb &
7412  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7413  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7414  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7415  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7416  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7417  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7418  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7419  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7420  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7421  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7422  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7423  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7424 xcw( 167, :) = (/ &
7425  & 0.903021e+00_jprb, 0.878829e+00_jprb, 0.854690e+00_jprb, 0.830619e+00_jprb &
7426  &, 0.806632e+00_jprb, 0.782746e+00_jprb, 0.758976e+00_jprb &
7427  &, 0.735339e+00_jprb, 0.711851e+00_jprb, 0.688529e+00_jprb, 0.665389e+00_jprb &
7428  &, 0.642448e+00_jprb, 0.619723e+00_jprb, 0.597231e+00_jprb &
7429  &, 0.574990e+00_jprb, 0.553016e+00_jprb, 0.531326e+00_jprb, 0.509938e+00_jprb &
7430  &, 0.488868e+00_jprb, 0.468134e+00_jprb, 0.447752e+00_jprb &
7431  &, 0.427740e+00_jprb, 0.408113e+00_jprb, 0.388887e+00_jprb, 0.370081e+00_jprb &
7432  &, 0.351704e+00_jprb, 0.333777e+00_jprb, 0.316310e+00_jprb &
7433  &, 0.299321e+00_jprb, 0.282814e+00_jprb, 0.266809e+00_jprb, 0.251313e+00_jprb &
7434  &, 0.236328e+00_jprb, 0.221877e+00_jprb, 0.207950e+00_jprb &
7435  &, 0.194565e+00_jprb, 0.181713e+00_jprb, 0.169416e+00_jprb, 0.157651e+00_jprb &
7436  &, 0.146432e+00_jprb, 0.135751e+00_jprb, 0.125610e+00_jprb &
7437  &, 0.115994e+00_jprb, 0.106898e+00_jprb, 0.983242e-01_jprb, 0.902501e-01_jprb &
7438  &, 0.826589e-01_jprb, 0.755554e-01_jprb, 0.689033e-01_jprb &
7439  &, 0.627133e-01_jprb, 0.569404e-01_jprb, 0.516019e-01_jprb, 0.466439e-01_jprb &
7440  &, 0.420773e-01_jprb, 0.378675e-01_jprb, 0.340050e-01_jprb &
7441  &, 0.304620e-01_jprb, 0.272220e-01_jprb, 0.242817e-01_jprb, 0.216026e-01_jprb &
7442  &, 0.191752e-01_jprb, 0.169706e-01_jprb, 0.149912e-01_jprb &
7443  &, 0.132207e-01_jprb, 0.116216e-01_jprb, 0.101900e-01_jprb, 0.892089e-02_jprb &
7444  &, 0.778814e-02_jprb, 0.678299e-02_jprb, 0.589526e-02_jprb &
7445  &, 0.509224e-02_jprb, 0.440256e-02_jprb, 0.379094e-02_jprb, 0.326353e-02_jprb &
7446  &, 0.280381e-02_jprb, 0.239354e-02_jprb, 0.203656e-02_jprb &
7447  &, 0.173684e-02_jprb, 0.147364e-02_jprb, 0.124966e-02_jprb, 0.106767e-02_jprb &
7448  &, 0.877918e-03_jprb, 0.760685e-03_jprb, 0.638492e-03_jprb &
7449  &, 0.511251e-03_jprb, 0.435622e-03_jprb, 0.356899e-03_jprb, 0.304477e-03_jprb &
7450  &, 0.249944e-03_jprb, 0.193266e-03_jprb, 0.165508e-03_jprb &
7451  &, 0.136660e-03_jprb, 0.106703e-03_jprb, 0.756187e-04_jprb, 0.767810e-04_jprb &
7452  &, 0.439776e-04_jprb, 0.445707e-04_jprb, 0.100000e-04_jprb &
7453  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7454  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7455  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7456  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7457  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7458  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7459  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7460  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7461  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7462  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7463  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7464  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7465 xcw( 168, :) = (/ &
7466  & 0.903396e+00_jprb, 0.879290e+00_jprb, 0.855231e+00_jprb, 0.831239e+00_jprb &
7467  &, 0.807327e+00_jprb, 0.783512e+00_jprb, 0.759809e+00_jprb &
7468  &, 0.736237e+00_jprb, 0.712809e+00_jprb, 0.689544e+00_jprb, 0.666457e+00_jprb &
7469  &, 0.643565e+00_jprb, 0.620886e+00_jprb, 0.598436e+00_jprb &
7470  &, 0.576234e+00_jprb, 0.554294e+00_jprb, 0.532635e+00_jprb, 0.511273e+00_jprb &
7471  &, 0.490226e+00_jprb, 0.469511e+00_jprb, 0.449146e+00_jprb &
7472  &, 0.429146e+00_jprb, 0.409527e+00_jprb, 0.390307e+00_jprb, 0.371502e+00_jprb &
7473  &, 0.353126e+00_jprb, 0.335193e+00_jprb, 0.317719e+00_jprb &
7474  &, 0.300717e+00_jprb, 0.284197e+00_jprb, 0.268173e+00_jprb, 0.252652e+00_jprb &
7475  &, 0.237649e+00_jprb, 0.223169e+00_jprb, 0.209215e+00_jprb &
7476  &, 0.195793e+00_jprb, 0.182915e+00_jprb, 0.170580e+00_jprb, 0.158784e+00_jprb &
7477  &, 0.147531e+00_jprb, 0.136805e+00_jprb, 0.126625e+00_jprb &
7478  &, 0.116968e+00_jprb, 0.107840e+00_jprb, 0.992085e-01_jprb, 0.910967e-01_jprb &
7479  &, 0.834654e-01_jprb, 0.763191e-01_jprb, 0.696216e-01_jprb &
7480  &, 0.633834e-01_jprb, 0.575864e-01_jprb, 0.521946e-01_jprb, 0.472085e-01_jprb &
7481  &, 0.425975e-01_jprb, 0.383557e-01_jprb, 0.344593e-01_jprb &
7482  &, 0.308804e-01_jprb, 0.276184e-01_jprb, 0.246386e-01_jprb, 0.219345e-01_jprb &
7483  &, 0.194638e-01_jprb, 0.172483e-01_jprb, 0.152397e-01_jprb &
7484  &, 0.134385e-01_jprb, 0.118257e-01_jprb, 0.103796e-01_jprb, 0.907586e-02_jprb &
7485  &, 0.792669e-02_jprb, 0.690430e-02_jprb, 0.599851e-02_jprb &
7486  &, 0.519768e-02_jprb, 0.451022e-02_jprb, 0.387886e-02_jprb, 0.333085e-02_jprb &
7487  &, 0.287251e-02_jprb, 0.246364e-02_jprb, 0.210808e-02_jprb &
7488  &, 0.178548e-02_jprb, 0.152325e-02_jprb, 0.127496e-02_jprb, 0.109347e-02_jprb &
7489  &, 0.904218e-03_jprb, 0.760685e-03_jprb, 0.638492e-03_jprb &
7490  &, 0.539098e-03_jprb, 0.435622e-03_jprb, 0.356899e-03_jprb, 0.304477e-03_jprb &
7491  &, 0.249944e-03_jprb, 0.193266e-03_jprb, 0.165508e-03_jprb &
7492  &, 0.136660e-03_jprb, 0.106703e-03_jprb, 0.756187e-04_jprb, 0.767810e-04_jprb &
7493  &, 0.439776e-04_jprb, 0.445707e-04_jprb, 0.100000e-04_jprb &
7494  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7495  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7496  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7497  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7498  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7499  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7500  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7501  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7502  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7503  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7504  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7505  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7506 
7507 IF (lhook) CALL dr_hook('SU_MCICA:PART24',1,zhook_handle)
7508 END SUBROUTINE part24
7509 
7510 #ifdef VPP5000
7511 !OCL SCALAR
7512 #endif
7513 !option! -Nv -NO
7514 #ifdef RS6K
7515 @process nooptimize
7516 #endif
7517 !pgi$r opt=0
7518 SUBROUTINE part25
7519 
7520 REAL(KIND=JPRB) :: ZHOOK_HANDLE
7521 IF (lhook) CALL dr_hook('SU_MCICA:PART25',0,zhook_handle)
7522 
7523 xcw( 169, :) = (/ &
7524  & 0.903769e+00_jprb, 0.879747e+00_jprb, 0.855770e+00_jprb, 0.831856e+00_jprb &
7525  &, 0.808019e+00_jprb, 0.784275e+00_jprb, 0.760640e+00_jprb &
7526  &, 0.737131e+00_jprb, 0.713764e+00_jprb, 0.690555e+00_jprb, 0.667521e+00_jprb &
7527  &, 0.644679e+00_jprb, 0.622046e+00_jprb, 0.599639e+00_jprb &
7528  &, 0.577474e+00_jprb, 0.555568e+00_jprb, 0.533940e+00_jprb, 0.512607e+00_jprb &
7529  &, 0.491583e+00_jprb, 0.470888e+00_jprb, 0.450538e+00_jprb &
7530  &, 0.430551e+00_jprb, 0.410941e+00_jprb, 0.391726e+00_jprb, 0.372923e+00_jprb &
7531  &, 0.354544e+00_jprb, 0.336608e+00_jprb, 0.319123e+00_jprb &
7532  &, 0.302109e+00_jprb, 0.285575e+00_jprb, 0.269532e+00_jprb, 0.253995e+00_jprb &
7533  &, 0.238969e+00_jprb, 0.224460e+00_jprb, 0.210481e+00_jprb &
7534  &, 0.197030e+00_jprb, 0.184117e+00_jprb, 0.171743e+00_jprb, 0.159917e+00_jprb &
7535  &, 0.148621e+00_jprb, 0.137869e+00_jprb, 0.127641e+00_jprb &
7536  &, 0.117943e+00_jprb, 0.108771e+00_jprb, 0.100104e+00_jprb, 0.919433e-01_jprb &
7537  &, 0.842718e-01_jprb, 0.770828e-01_jprb, 0.703528e-01_jprb &
7538  &, 0.640667e-01_jprb, 0.582324e-01_jprb, 0.528011e-01_jprb, 0.477730e-01_jprb &
7539  &, 0.431322e-01_jprb, 0.388439e-01_jprb, 0.349136e-01_jprb &
7540  &, 0.312988e-01_jprb, 0.279990e-01_jprb, 0.249955e-01_jprb, 0.222499e-01_jprb &
7541  &, 0.197694e-01_jprb, 0.175261e-01_jprb, 0.154882e-01_jprb &
7542  &, 0.136744e-01_jprb, 0.120297e-01_jprb, 0.105692e-01_jprb, 0.925021e-02_jprb &
7543  &, 0.808502e-02_jprb, 0.704583e-02_jprb, 0.612241e-02_jprb &
7544  &, 0.530312e-02_jprb, 0.459635e-02_jprb, 0.396679e-02_jprb, 0.342060e-02_jprb &
7545  &, 0.294121e-02_jprb, 0.251038e-02_jprb, 0.215577e-02_jprb &
7546  &, 0.183413e-02_jprb, 0.154806e-02_jprb, 0.132556e-02_jprb, 0.111927e-02_jprb &
7547  &, 0.930519e-03_jprb, 0.787495e-03_jprb, 0.665818e-03_jprb &
7548  &, 0.566946e-03_jprb, 0.463997e-03_jprb, 0.385807e-03_jprb, 0.304477e-03_jprb &
7549  &, 0.249944e-03_jprb, 0.223811e-03_jprb, 0.165508e-03_jprb &
7550  &, 0.136660e-03_jprb, 0.106703e-03_jprb, 0.756187e-04_jprb, 0.767810e-04_jprb &
7551  &, 0.439776e-04_jprb, 0.445707e-04_jprb, 0.451697e-04_jprb &
7552  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7553  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7554  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7555  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7556  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7557  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7558  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7559  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7560  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7561  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7562  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7563  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7564 xcw( 170, :) = (/ &
7565  & 0.904141e+00_jprb, 0.880204e+00_jprb, 0.856308e+00_jprb, 0.832472e+00_jprb &
7566  &, 0.808709e+00_jprb, 0.785035e+00_jprb, 0.761468e+00_jprb &
7567  &, 0.738023e+00_jprb, 0.714716e+00_jprb, 0.691564e+00_jprb, 0.668584e+00_jprb &
7568  &, 0.645791e+00_jprb, 0.623204e+00_jprb, 0.600838e+00_jprb &
7569  &, 0.578711e+00_jprb, 0.556841e+00_jprb, 0.535244e+00_jprb, 0.513937e+00_jprb &
7570  &, 0.492937e+00_jprb, 0.472261e+00_jprb, 0.451928e+00_jprb &
7571  &, 0.431954e+00_jprb, 0.412352e+00_jprb, 0.393145e+00_jprb, 0.374341e+00_jprb &
7572  &, 0.355963e+00_jprb, 0.338020e+00_jprb, 0.320531e+00_jprb &
7573  &, 0.303505e+00_jprb, 0.286957e+00_jprb, 0.270896e+00_jprb, 0.255337e+00_jprb &
7574  &, 0.240286e+00_jprb, 0.225757e+00_jprb, 0.211746e+00_jprb &
7575  &, 0.198267e+00_jprb, 0.185328e+00_jprb, 0.172917e+00_jprb, 0.161049e+00_jprb &
7576  &, 0.149721e+00_jprb, 0.138923e+00_jprb, 0.128656e+00_jprb &
7577  &, 0.118928e+00_jprb, 0.109701e+00_jprb, 0.101000e+00_jprb, 0.928018e-01_jprb &
7578  &, 0.850905e-01_jprb, 0.778465e-01_jprb, 0.710839e-01_jprb &
7579  &, 0.647631e-01_jprb, 0.588784e-01_jprb, 0.534075e-01_jprb, 0.483376e-01_jprb &
7580  &, 0.436524e-01_jprb, 0.393469e-01_jprb, 0.353679e-01_jprb &
7581  &, 0.317328e-01_jprb, 0.283955e-01_jprb, 0.253525e-01_jprb, 0.225818e-01_jprb &
7582  &, 0.200749e-01_jprb, 0.178038e-01_jprb, 0.157545e-01_jprb &
7583  &, 0.138922e-01_jprb, 0.122338e-01_jprb, 0.107588e-01_jprb, 0.942455e-02_jprb &
7584  &, 0.824335e-02_jprb, 0.718735e-02_jprb, 0.624631e-02_jprb &
7585  &, 0.542965e-02_jprb, 0.470401e-02_jprb, 0.405472e-02_jprb, 0.348791e-02_jprb &
7586  &, 0.300991e-02_jprb, 0.258048e-02_jprb, 0.220345e-02_jprb &
7587  &, 0.188277e-02_jprb, 0.159768e-02_jprb, 0.135086e-02_jprb, 0.114506e-02_jprb &
7588  &, 0.956820e-03_jprb, 0.814305e-03_jprb, 0.693144e-03_jprb &
7589  &, 0.566946e-03_jprb, 0.463997e-03_jprb, 0.385807e-03_jprb, 0.333924e-03_jprb &
7590  &, 0.279937e-03_jprb, 0.223811e-03_jprb, 0.165508e-03_jprb &
7591  &, 0.136660e-03_jprb, 0.106703e-03_jprb, 0.108428e-03_jprb, 0.767810e-04_jprb &
7592  &, 0.439776e-04_jprb, 0.445707e-04_jprb, 0.451697e-04_jprb &
7593  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7594  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7595  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7596  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7597  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7598  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7599  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7600  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7601  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7602  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7603  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7604  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7605 xcw( 171, :) = (/ &
7606  & 0.904512e+00_jprb, 0.880658e+00_jprb, 0.856844e+00_jprb, 0.833085e+00_jprb &
7607  &, 0.809396e+00_jprb, 0.785794e+00_jprb, 0.762294e+00_jprb &
7608  &, 0.738912e+00_jprb, 0.715666e+00_jprb, 0.692570e+00_jprb, 0.669643e+00_jprb &
7609  &, 0.646900e+00_jprb, 0.624357e+00_jprb, 0.602035e+00_jprb &
7610  &, 0.579945e+00_jprb, 0.558110e+00_jprb, 0.536543e+00_jprb, 0.515265e+00_jprb &
7611  &, 0.494288e+00_jprb, 0.473632e+00_jprb, 0.453316e+00_jprb &
7612  &, 0.433353e+00_jprb, 0.413763e+00_jprb, 0.394558e+00_jprb, 0.375761e+00_jprb &
7613  &, 0.357378e+00_jprb, 0.339432e+00_jprb, 0.321936e+00_jprb &
7614  &, 0.304897e+00_jprb, 0.288336e+00_jprb, 0.272259e+00_jprb, 0.256680e+00_jprb &
7615  &, 0.241606e+00_jprb, 0.227049e+00_jprb, 0.213016e+00_jprb &
7616  &, 0.199504e+00_jprb, 0.186529e+00_jprb, 0.174090e+00_jprb, 0.162182e+00_jprb &
7617  &, 0.150821e+00_jprb, 0.139987e+00_jprb, 0.129682e+00_jprb &
7618  &, 0.119903e+00_jprb, 0.110644e+00_jprb, 0.101896e+00_jprb, 0.936603e-01_jprb &
7619  &, 0.858969e-01_jprb, 0.786227e-01_jprb, 0.718150e-01_jprb &
7620  &, 0.654464e-01_jprb, 0.595245e-01_jprb, 0.540140e-01_jprb, 0.489163e-01_jprb &
7621  &, 0.441871e-01_jprb, 0.398351e-01_jprb, 0.358373e-01_jprb &
7622  &, 0.321512e-01_jprb, 0.287919e-01_jprb, 0.257256e-01_jprb, 0.229303e-01_jprb &
7623  &, 0.203805e-01_jprb, 0.180816e-01_jprb, 0.160030e-01_jprb &
7624  &, 0.141281e-01_jprb, 0.124563e-01_jprb, 0.109483e-01_jprb, 0.959889e-02_jprb &
7625  &, 0.838189e-02_jprb, 0.732887e-02_jprb, 0.637021e-02_jprb &
7626  &, 0.553509e-02_jprb, 0.479014e-02_jprb, 0.414265e-02_jprb, 0.357767e-02_jprb &
7627  &, 0.307861e-02_jprb, 0.262722e-02_jprb, 0.225113e-02_jprb &
7628  &, 0.193141e-02_jprb, 0.164729e-02_jprb, 0.140145e-02_jprb, 0.117086e-02_jprb &
7629  &, 0.983120e-03_jprb, 0.841115e-03_jprb, 0.693144e-03_jprb &
7630  &, 0.594793e-03_jprb, 0.492371e-03_jprb, 0.414715e-03_jprb, 0.333924e-03_jprb &
7631  &, 0.279937e-03_jprb, 0.223811e-03_jprb, 0.196610e-03_jprb &
7632  &, 0.136660e-03_jprb, 0.106703e-03_jprb, 0.108428e-03_jprb, 0.767810e-04_jprb &
7633  &, 0.439776e-04_jprb, 0.445707e-04_jprb, 0.451697e-04_jprb &
7634  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7635  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7636  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7637  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7638  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7639  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7640  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7641  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7642  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7643  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7644  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7645  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7646 xcw( 172, :) = (/ &
7647  & 0.904880e+00_jprb, 0.881111e+00_jprb, 0.857378e+00_jprb, 0.833697e+00_jprb &
7648  &, 0.810082e+00_jprb, 0.786550e+00_jprb, 0.763117e+00_jprb &
7649  &, 0.739799e+00_jprb, 0.716612e+00_jprb, 0.693573e+00_jprb, 0.670699e+00_jprb &
7650  &, 0.648005e+00_jprb, 0.625509e+00_jprb, 0.603227e+00_jprb &
7651  &, 0.581178e+00_jprb, 0.559377e+00_jprb, 0.537841e+00_jprb, 0.516589e+00_jprb &
7652  &, 0.495638e+00_jprb, 0.475002e+00_jprb, 0.454701e+00_jprb &
7653  &, 0.434752e+00_jprb, 0.415170e+00_jprb, 0.395974e+00_jprb, 0.377175e+00_jprb &
7654  &, 0.358793e+00_jprb, 0.340844e+00_jprb, 0.323336e+00_jprb &
7655  &, 0.306289e+00_jprb, 0.289714e+00_jprb, 0.273623e+00_jprb, 0.258023e+00_jprb &
7656  &, 0.242927e+00_jprb, 0.228345e+00_jprb, 0.214282e+00_jprb &
7657  &, 0.200741e+00_jprb, 0.187741e+00_jprb, 0.175263e+00_jprb, 0.163325e+00_jprb &
7658  &, 0.151921e+00_jprb, 0.141052e+00_jprb, 0.130709e+00_jprb &
7659  &, 0.120889e+00_jprb, 0.111586e+00_jprb, 0.102804e+00_jprb, 0.945188e-01_jprb &
7660  &, 0.867156e-01_jprb, 0.793990e-01_jprb, 0.725462e-01_jprb &
7661  &, 0.661428e-01_jprb, 0.601839e-01_jprb, 0.546343e-01_jprb, 0.494950e-01_jprb &
7662  &, 0.447363e-01_jprb, 0.403381e-01_jprb, 0.362916e-01_jprb &
7663  &, 0.325851e-01_jprb, 0.291884e-01_jprb, 0.260826e-01_jprb, 0.232623e-01_jprb &
7664  &, 0.207030e-01_jprb, 0.183767e-01_jprb, 0.162692e-01_jprb &
7665  &, 0.143640e-01_jprb, 0.126604e-01_jprb, 0.111379e-01_jprb, 0.977324e-02_jprb &
7666  &, 0.854023e-02_jprb, 0.747040e-02_jprb, 0.649411e-02_jprb &
7667  &, 0.564053e-02_jprb, 0.489780e-02_jprb, 0.423058e-02_jprb, 0.364498e-02_jprb &
7668  &, 0.314731e-02_jprb, 0.269732e-02_jprb, 0.229882e-02_jprb &
7669  &, 0.198006e-02_jprb, 0.167210e-02_jprb, 0.142675e-02_jprb, 0.119666e-02_jprb &
7670  &, 0.100942e-02_jprb, 0.867925e-03_jprb, 0.720469e-03_jprb &
7671  &, 0.594793e-03_jprb, 0.492371e-03_jprb, 0.414715e-03_jprb, 0.333924e-03_jprb &
7672  &, 0.279937e-03_jprb, 0.223811e-03_jprb, 0.196610e-03_jprb &
7673  &, 0.168325e-03_jprb, 0.138937e-03_jprb, 0.108428e-03_jprb, 0.767810e-04_jprb &
7674  &, 0.779552e-04_jprb, 0.445707e-04_jprb, 0.451697e-04_jprb &
7675  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7676  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7677  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7678  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7679  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7680  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7681  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7682  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7683  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7684  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7685  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7686  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7687 xcw( 173, :) = (/ &
7688  & 0.905248e+00_jprb, 0.881563e+00_jprb, 0.857910e+00_jprb, 0.834306e+00_jprb &
7689  &, 0.810765e+00_jprb, 0.787304e+00_jprb, 0.763938e+00_jprb &
7690  &, 0.740683e+00_jprb, 0.717557e+00_jprb, 0.694574e+00_jprb, 0.671753e+00_jprb &
7691  &, 0.649108e+00_jprb, 0.626657e+00_jprb, 0.604418e+00_jprb &
7692  &, 0.582407e+00_jprb, 0.560641e+00_jprb, 0.539136e+00_jprb, 0.517912e+00_jprb &
7693  &, 0.496984e+00_jprb, 0.476370e+00_jprb, 0.456085e+00_jprb &
7694  &, 0.436148e+00_jprb, 0.416578e+00_jprb, 0.397386e+00_jprb, 0.378593e+00_jprb &
7695  &, 0.360208e+00_jprb, 0.342252e+00_jprb, 0.324740e+00_jprb &
7696  &, 0.307681e+00_jprb, 0.291093e+00_jprb, 0.274982e+00_jprb, 0.259366e+00_jprb &
7697  &, 0.244247e+00_jprb, 0.229641e+00_jprb, 0.215552e+00_jprb &
7698  &, 0.201988e+00_jprb, 0.188942e+00_jprb, 0.176437e+00_jprb, 0.164468e+00_jprb &
7699  &, 0.153020e+00_jprb, 0.142116e+00_jprb, 0.131735e+00_jprb &
7700  &, 0.121874e+00_jprb, 0.112539e+00_jprb, 0.103711e+00_jprb, 0.953774e-01_jprb &
7701  &, 0.875343e-01_jprb, 0.801752e-01_jprb, 0.732901e-01_jprb &
7702  &, 0.668392e-01_jprb, 0.608300e-01_jprb, 0.552545e-01_jprb, 0.500737e-01_jprb &
7703  &, 0.452710e-01_jprb, 0.408411e-01_jprb, 0.367610e-01_jprb &
7704  &, 0.330190e-01_jprb, 0.296007e-01_jprb, 0.264557e-01_jprb, 0.236108e-01_jprb &
7705  &, 0.210086e-01_jprb, 0.186545e-01_jprb, 0.165177e-01_jprb &
7706  &, 0.145999e-01_jprb, 0.128830e-01_jprb, 0.113275e-01_jprb, 0.994758e-02_jprb &
7707  &, 0.869856e-02_jprb, 0.761193e-02_jprb, 0.661801e-02_jprb &
7708  &, 0.576706e-02_jprb, 0.500546e-02_jprb, 0.431851e-02_jprb, 0.373473e-02_jprb &
7709  &, 0.321601e-02_jprb, 0.276742e-02_jprb, 0.237034e-02_jprb &
7710  &, 0.202870e-02_jprb, 0.172171e-02_jprb, 0.145205e-02_jprb, 0.124825e-02_jprb &
7711  &, 0.103572e-02_jprb, 0.894735e-03_jprb, 0.747795e-03_jprb &
7712  &, 0.622640e-03_jprb, 0.520746e-03_jprb, 0.443624e-03_jprb, 0.363372e-03_jprb &
7713  &, 0.309930e-03_jprb, 0.254355e-03_jprb, 0.196610e-03_jprb &
7714  &, 0.168325e-03_jprb, 0.138937e-03_jprb, 0.108428e-03_jprb, 0.767810e-04_jprb &
7715  &, 0.779552e-04_jprb, 0.445707e-04_jprb, 0.451697e-04_jprb &
7716  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7717  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7718  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7719  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7720  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7721  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7722  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7723  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7724  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7725  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7726  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7727  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7728 xcw( 174, :) = (/ &
7729  & 0.905614e+00_jprb, 0.882012e+00_jprb, 0.858440e+00_jprb, 0.834914e+00_jprb &
7730  &, 0.811445e+00_jprb, 0.788055e+00_jprb, 0.764756e+00_jprb &
7731  &, 0.741565e+00_jprb, 0.718498e+00_jprb, 0.695572e+00_jprb, 0.672803e+00_jprb &
7732  &, 0.650208e+00_jprb, 0.627803e+00_jprb, 0.605605e+00_jprb &
7733  &, 0.583632e+00_jprb, 0.561902e+00_jprb, 0.540428e+00_jprb, 0.519232e+00_jprb &
7734  &, 0.498328e+00_jprb, 0.477734e+00_jprb, 0.457467e+00_jprb &
7735  &, 0.437544e+00_jprb, 0.417982e+00_jprb, 0.398795e+00_jprb, 0.380003e+00_jprb &
7736  &, 0.361623e+00_jprb, 0.343664e+00_jprb, 0.326141e+00_jprb &
7737  &, 0.309073e+00_jprb, 0.292471e+00_jprb, 0.276345e+00_jprb, 0.260709e+00_jprb &
7738  &, 0.245568e+00_jprb, 0.230937e+00_jprb, 0.216822e+00_jprb &
7739  &, 0.203225e+00_jprb, 0.190153e+00_jprb, 0.177620e+00_jprb, 0.165611e+00_jprb &
7740  &, 0.154130e+00_jprb, 0.143181e+00_jprb, 0.132761e+00_jprb &
7741  &, 0.122860e+00_jprb, 0.113482e+00_jprb, 0.104619e+00_jprb, 0.962478e-01_jprb &
7742  &, 0.883652e-01_jprb, 0.809640e-01_jprb, 0.740213e-01_jprb &
7743  &, 0.675487e-01_jprb, 0.614894e-01_jprb, 0.558748e-01_jprb, 0.506524e-01_jprb &
7744  &, 0.458201e-01_jprb, 0.413588e-01_jprb, 0.372455e-01_jprb &
7745  &, 0.334685e-01_jprb, 0.299971e-01_jprb, 0.268289e-01_jprb, 0.239427e-01_jprb &
7746  &, 0.213311e-01_jprb, 0.189496e-01_jprb, 0.167840e-01_jprb &
7747  &, 0.148539e-01_jprb, 0.131056e-01_jprb, 0.115360e-01_jprb, 0.101219e-01_jprb &
7748  &, 0.887669e-02_jprb, 0.775345e-02_jprb, 0.676256e-02_jprb &
7749  &, 0.587250e-02_jprb, 0.509159e-02_jprb, 0.440644e-02_jprb, 0.380205e-02_jprb &
7750  &, 0.328471e-02_jprb, 0.281416e-02_jprb, 0.241803e-02_jprb &
7751  &, 0.207734e-02_jprb, 0.177133e-02_jprb, 0.150265e-02_jprb, 0.127405e-02_jprb &
7752  &, 0.108832e-02_jprb, 0.894735e-03_jprb, 0.775121e-03_jprb &
7753  &, 0.650487e-03_jprb, 0.549121e-03_jprb, 0.443624e-03_jprb, 0.363372e-03_jprb &
7754  &, 0.309930e-03_jprb, 0.254355e-03_jprb, 0.196610e-03_jprb &
7755  &, 0.168325e-03_jprb, 0.138937e-03_jprb, 0.108428e-03_jprb, 0.767810e-04_jprb &
7756  &, 0.779552e-04_jprb, 0.445707e-04_jprb, 0.451697e-04_jprb &
7757  &, 0.457747e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7758  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7759  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7760  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7761  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7762  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7763  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7764  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7765  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7766  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7767  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7768  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7769 xcw( 175, :) = (/ &
7770  & 0.905979e+00_jprb, 0.882462e+00_jprb, 0.858969e+00_jprb, 0.835519e+00_jprb &
7771  &, 0.812125e+00_jprb, 0.788804e+00_jprb, 0.765572e+00_jprb &
7772  &, 0.742444e+00_jprb, 0.719437e+00_jprb, 0.696567e+00_jprb, 0.673851e+00_jprb &
7773  &, 0.651305e+00_jprb, 0.628945e+00_jprb, 0.606790e+00_jprb &
7774  &, 0.584856e+00_jprb, 0.563160e+00_jprb, 0.541719e+00_jprb, 0.520549e+00_jprb &
7775  &, 0.499670e+00_jprb, 0.479095e+00_jprb, 0.458845e+00_jprb &
7776  &, 0.438936e+00_jprb, 0.419383e+00_jprb, 0.400204e+00_jprb, 0.381417e+00_jprb &
7777  &, 0.363034e+00_jprb, 0.345072e+00_jprb, 0.327530e+00_jprb &
7778  &, 0.310465e+00_jprb, 0.293849e+00_jprb, 0.277709e+00_jprb, 0.262052e+00_jprb &
7779  &, 0.246892e+00_jprb, 0.232238e+00_jprb, 0.218092e+00_jprb &
7780  &, 0.204471e+00_jprb, 0.191365e+00_jprb, 0.178793e+00_jprb, 0.166754e+00_jprb &
7781  &, 0.155241e+00_jprb, 0.144255e+00_jprb, 0.133798e+00_jprb &
7782  &, 0.123857e+00_jprb, 0.114435e+00_jprb, 0.105526e+00_jprb, 0.971182e-01_jprb &
7783  &, 0.891961e-01_jprb, 0.817527e-01_jprb, 0.747781e-01_jprb &
7784  &, 0.682452e-01_jprb, 0.621624e-01_jprb, 0.564950e-01_jprb, 0.512310e-01_jprb &
7785  &, 0.463693e-01_jprb, 0.418618e-01_jprb, 0.377149e-01_jprb &
7786  &, 0.339024e-01_jprb, 0.304094e-01_jprb, 0.272183e-01_jprb, 0.242913e-01_jprb &
7787  &, 0.216367e-01_jprb, 0.192447e-01_jprb, 0.170502e-01_jprb &
7788  &, 0.150898e-01_jprb, 0.133096e-01_jprb, 0.117256e-01_jprb, 0.102963e-01_jprb &
7789  &, 0.903502e-02_jprb, 0.789498e-02_jprb, 0.688646e-02_jprb &
7790  &, 0.599902e-02_jprb, 0.519925e-02_jprb, 0.451635e-02_jprb, 0.389180e-02_jprb &
7791  &, 0.335341e-02_jprb, 0.288426e-02_jprb, 0.246571e-02_jprb &
7792  &, 0.212598e-02_jprb, 0.179614e-02_jprb, 0.152795e-02_jprb, 0.129984e-02_jprb &
7793  &, 0.111462e-02_jprb, 0.921545e-03_jprb, 0.775121e-03_jprb &
7794  &, 0.650487e-03_jprb, 0.549121e-03_jprb, 0.472532e-03_jprb, 0.392820e-03_jprb &
7795  &, 0.309930e-03_jprb, 0.254355e-03_jprb, 0.227712e-03_jprb &
7796  &, 0.168325e-03_jprb, 0.138937e-03_jprb, 0.108428e-03_jprb, 0.767810e-04_jprb &
7797  &, 0.779552e-04_jprb, 0.445707e-04_jprb, 0.451697e-04_jprb &
7798  &, 0.457747e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7799  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7800  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7801  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7802  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7803  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7804  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7805  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7806  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7807  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7808  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7809  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7810 
7811 IF (lhook) CALL dr_hook('SU_MCICA:PART25',1,zhook_handle)
7812 END SUBROUTINE part25
7813 
7814 #ifdef VPP5000
7815 !OCL SCALAR
7816 #endif
7817 !option! -Nv -NO
7818 #ifdef RS6K
7819 @process nooptimize
7820 #endif
7821 !pgi$r opt=0
7822 SUBROUTINE part26
7823 
7824 REAL(KIND=JPRB) :: ZHOOK_HANDLE
7825 IF (lhook) CALL dr_hook('SU_MCICA:PART26',0,zhook_handle)
7826 
7827 xcw( 176, :) = (/ &
7828  & 0.906343e+00_jprb, 0.882908e+00_jprb, 0.859496e+00_jprb, 0.836123e+00_jprb &
7829  &, 0.812802e+00_jprb, 0.789551e+00_jprb, 0.766385e+00_jprb &
7830  &, 0.743321e+00_jprb, 0.720373e+00_jprb, 0.697560e+00_jprb, 0.674896e+00_jprb &
7831  &, 0.652400e+00_jprb, 0.630086e+00_jprb, 0.607973e+00_jprb &
7832  &, 0.586078e+00_jprb, 0.564416e+00_jprb, 0.543006e+00_jprb, 0.521864e+00_jprb &
7833  &, 0.501008e+00_jprb, 0.480456e+00_jprb, 0.460223e+00_jprb &
7834  &, 0.440325e+00_jprb, 0.420783e+00_jprb, 0.401613e+00_jprb, 0.382827e+00_jprb &
7835  &, 0.364445e+00_jprb, 0.346476e+00_jprb, 0.328942e+00_jprb &
7836  &, 0.311857e+00_jprb, 0.295228e+00_jprb, 0.279068e+00_jprb, 0.263395e+00_jprb &
7837  &, 0.248213e+00_jprb, 0.233534e+00_jprb, 0.219367e+00_jprb &
7838  &, 0.205708e+00_jprb, 0.192576e+00_jprb, 0.179977e+00_jprb, 0.167897e+00_jprb &
7839  &, 0.156351e+00_jprb, 0.145320e+00_jprb, 0.134825e+00_jprb &
7840  &, 0.124853e+00_jprb, 0.115389e+00_jprb, 0.106434e+00_jprb, 0.979887e-01_jprb &
7841  &, 0.900269e-01_jprb, 0.825415e-01_jprb, 0.755220e-01_jprb &
7842  &, 0.689547e-01_jprb, 0.628219e-01_jprb, 0.571291e-01_jprb, 0.518239e-01_jprb &
7843  &, 0.469184e-01_jprb, 0.423796e-01_jprb, 0.381995e-01_jprb &
7844  &, 0.343518e-01_jprb, 0.308217e-01_jprb, 0.275914e-01_jprb, 0.246398e-01_jprb &
7845  &, 0.219592e-01_jprb, 0.195398e-01_jprb, 0.173342e-01_jprb &
7846  &, 0.153439e-01_jprb, 0.135507e-01_jprb, 0.119341e-01_jprb, 0.104900e-01_jprb &
7847  &, 0.919336e-02_jprb, 0.803650e-02_jprb, 0.701036e-02_jprb &
7848  &, 0.610447e-02_jprb, 0.530691e-02_jprb, 0.460428e-02_jprb, 0.398155e-02_jprb &
7849  &, 0.342211e-02_jprb, 0.295437e-02_jprb, 0.253724e-02_jprb &
7850  &, 0.217463e-02_jprb, 0.184575e-02_jprb, 0.157855e-02_jprb, 0.135144e-02_jprb &
7851  &, 0.114092e-02_jprb, 0.948356e-03_jprb, 0.802447e-03_jprb &
7852  &, 0.678335e-03_jprb, 0.577496e-03_jprb, 0.472532e-03_jprb, 0.392820e-03_jprb &
7853  &, 0.339924e-03_jprb, 0.254355e-03_jprb, 0.227712e-03_jprb &
7854  &, 0.168325e-03_jprb, 0.138937e-03_jprb, 0.108428e-03_jprb, 0.767810e-04_jprb &
7855  &, 0.779552e-04_jprb, 0.445707e-04_jprb, 0.451697e-04_jprb &
7856  &, 0.457747e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7857  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7858  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7859  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7860  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7861  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7862  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7863  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7864  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7865  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7866  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7867  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7868 xcw( 177, :) = (/ &
7869  & 0.906707e+00_jprb, 0.883355e+00_jprb, 0.860022e+00_jprb, 0.836725e+00_jprb &
7870  &, 0.813477e+00_jprb, 0.790296e+00_jprb, 0.767196e+00_jprb &
7871  &, 0.744195e+00_jprb, 0.721307e+00_jprb, 0.698550e+00_jprb, 0.675939e+00_jprb &
7872  &, 0.653491e+00_jprb, 0.631224e+00_jprb, 0.609152e+00_jprb &
7873  &, 0.587295e+00_jprb, 0.565670e+00_jprb, 0.544290e+00_jprb, 0.523177e+00_jprb &
7874  &, 0.502345e+00_jprb, 0.481814e+00_jprb, 0.461598e+00_jprb &
7875  &, 0.441715e+00_jprb, 0.422184e+00_jprb, 0.403019e+00_jprb, 0.384238e+00_jprb &
7876  &, 0.365853e+00_jprb, 0.347885e+00_jprb, 0.330343e+00_jprb &
7877  &, 0.313245e+00_jprb, 0.296606e+00_jprb, 0.280432e+00_jprb, 0.264737e+00_jprb &
7878  &, 0.249538e+00_jprb, 0.234835e+00_jprb, 0.220637e+00_jprb &
7879  &, 0.206955e+00_jprb, 0.193796e+00_jprb, 0.181160e+00_jprb, 0.169040e+00_jprb &
7880  &, 0.157461e+00_jprb, 0.146405e+00_jprb, 0.135862e+00_jprb &
7881  &, 0.125850e+00_jprb, 0.116354e+00_jprb, 0.107353e+00_jprb, 0.988591e-01_jprb &
7882  &, 0.908578e-01_jprb, 0.833302e-01_jprb, 0.762660e-01_jprb &
7883  &, 0.696643e-01_jprb, 0.634948e-01_jprb, 0.577493e-01_jprb, 0.524167e-01_jprb &
7884  &, 0.474675e-01_jprb, 0.428974e-01_jprb, 0.386841e-01_jprb &
7885  &, 0.348012e-01_jprb, 0.312340e-01_jprb, 0.279808e-01_jprb, 0.250049e-01_jprb &
7886  &, 0.222987e-01_jprb, 0.198349e-01_jprb, 0.176005e-01_jprb &
7887  &, 0.155798e-01_jprb, 0.137733e-01_jprb, 0.121426e-01_jprb, 0.106643e-01_jprb &
7888  &, 0.937148e-02_jprb, 0.819824e-02_jprb, 0.715491e-02_jprb &
7889  &, 0.623099e-02_jprb, 0.541457e-02_jprb, 0.469221e-02_jprb, 0.407131e-02_jprb &
7890  &, 0.351371e-02_jprb, 0.302447e-02_jprb, 0.258492e-02_jprb &
7891  &, 0.222327e-02_jprb, 0.189537e-02_jprb, 0.160385e-02_jprb, 0.137723e-02_jprb &
7892  &, 0.116722e-02_jprb, 0.975166e-03_jprb, 0.829772e-03_jprb &
7893  &, 0.706182e-03_jprb, 0.577496e-03_jprb, 0.501440e-03_jprb, 0.392820e-03_jprb &
7894  &, 0.339924e-03_jprb, 0.284900e-03_jprb, 0.227712e-03_jprb &
7895  &, 0.199990e-03_jprb, 0.138937e-03_jprb, 0.108428e-03_jprb, 0.110172e-03_jprb &
7896  &, 0.779552e-04_jprb, 0.445707e-04_jprb, 0.451697e-04_jprb &
7897  &, 0.457747e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7898  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7899  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7900  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7901  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7902  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7903  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7904  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7905  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7906  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7907  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7908  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7909 xcw( 178, :) = (/ &
7910  & 0.907068e+00_jprb, 0.883799e+00_jprb, 0.860545e+00_jprb, 0.837325e+00_jprb &
7911  &, 0.814150e+00_jprb, 0.791038e+00_jprb, 0.768005e+00_jprb &
7912  &, 0.745066e+00_jprb, 0.722238e+00_jprb, 0.699537e+00_jprb, 0.676979e+00_jprb &
7913  &, 0.654581e+00_jprb, 0.632358e+00_jprb, 0.610330e+00_jprb &
7914  &, 0.588512e+00_jprb, 0.566920e+00_jprb, 0.545573e+00_jprb, 0.524487e+00_jprb &
7915  &, 0.503681e+00_jprb, 0.483168e+00_jprb, 0.462969e+00_jprb &
7916  &, 0.443104e+00_jprb, 0.423581e+00_jprb, 0.404425e+00_jprb, 0.385644e+00_jprb &
7917  &, 0.367261e+00_jprb, 0.349289e+00_jprb, 0.331743e+00_jprb &
7918  &, 0.314637e+00_jprb, 0.297980e+00_jprb, 0.281795e+00_jprb, 0.266084e+00_jprb &
7919  &, 0.250858e+00_jprb, 0.236131e+00_jprb, 0.221911e+00_jprb &
7920  &, 0.208201e+00_jprb, 0.195008e+00_jprb, 0.182343e+00_jprb, 0.170193e+00_jprb &
7921  &, 0.158571e+00_jprb, 0.147480e+00_jprb, 0.136899e+00_jprb &
7922  &, 0.126847e+00_jprb, 0.117307e+00_jprb, 0.108272e+00_jprb, 0.997415e-01_jprb &
7923  &, 0.916887e-01_jprb, 0.841315e-01_jprb, 0.770228e-01_jprb &
7924  &, 0.703870e-01_jprb, 0.641677e-01_jprb, 0.583834e-01_jprb, 0.530095e-01_jprb &
7925  &, 0.480311e-01_jprb, 0.434152e-01_jprb, 0.391686e-01_jprb &
7926  &, 0.352506e-01_jprb, 0.316463e-01_jprb, 0.283702e-01_jprb, 0.253535e-01_jprb &
7927  &, 0.226212e-01_jprb, 0.201301e-01_jprb, 0.178668e-01_jprb &
7928  &, 0.158339e-01_jprb, 0.139959e-01_jprb, 0.123512e-01_jprb, 0.108580e-01_jprb &
7929  &, 0.952981e-02_jprb, 0.833977e-02_jprb, 0.729946e-02_jprb &
7930  &, 0.635752e-02_jprb, 0.552224e-02_jprb, 0.480212e-02_jprb, 0.413862e-02_jprb &
7931  &, 0.358241e-02_jprb, 0.309458e-02_jprb, 0.265645e-02_jprb &
7932  &, 0.227192e-02_jprb, 0.194498e-02_jprb, 0.165445e-02_jprb, 0.140303e-02_jprb &
7933  &, 0.119352e-02_jprb, 0.100198e-02_jprb, 0.857098e-03_jprb &
7934  &, 0.706182e-03_jprb, 0.605870e-03_jprb, 0.501440e-03_jprb, 0.422267e-03_jprb &
7935  &, 0.339924e-03_jprb, 0.284900e-03_jprb, 0.227712e-03_jprb &
7936  &, 0.199990e-03_jprb, 0.171171e-03_jprb, 0.141237e-03_jprb, 0.110172e-03_jprb &
7937  &, 0.779552e-04_jprb, 0.791414e-04_jprb, 0.451697e-04_jprb &
7938  &, 0.457747e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7939  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7940  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7941  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7942  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7943  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7944  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7945  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7946  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7947  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7948  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7949  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7950 xcw( 179, :) = (/ &
7951  & 0.907428e+00_jprb, 0.884243e+00_jprb, 0.861068e+00_jprb, 0.837923e+00_jprb &
7952  &, 0.814820e+00_jprb, 0.791779e+00_jprb, 0.768812e+00_jprb &
7953  &, 0.745935e+00_jprb, 0.723167e+00_jprb, 0.700522e+00_jprb, 0.678016e+00_jprb &
7954  &, 0.655667e+00_jprb, 0.633491e+00_jprb, 0.611504e+00_jprb &
7955  &, 0.589725e+00_jprb, 0.568168e+00_jprb, 0.546852e+00_jprb, 0.525795e+00_jprb &
7956  &, 0.505013e+00_jprb, 0.484523e+00_jprb, 0.464341e+00_jprb &
7957  &, 0.444486e+00_jprb, 0.424978e+00_jprb, 0.405827e+00_jprb, 0.387051e+00_jprb &
7958  &, 0.368668e+00_jprb, 0.350693e+00_jprb, 0.333140e+00_jprb &
7959  &, 0.316025e+00_jprb, 0.299359e+00_jprb, 0.283154e+00_jprb, 0.267427e+00_jprb &
7960  &, 0.252183e+00_jprb, 0.237432e+00_jprb, 0.223186e+00_jprb &
7961  &, 0.209447e+00_jprb, 0.196228e+00_jprb, 0.183526e+00_jprb, 0.171346e+00_jprb &
7962  &, 0.159691e+00_jprb, 0.148555e+00_jprb, 0.137947e+00_jprb &
7963  &, 0.127854e+00_jprb, 0.118272e+00_jprb, 0.109203e+00_jprb, 0.100624e+00_jprb &
7964  &, 0.925318e-01_jprb, 0.849328e-01_jprb, 0.777924e-01_jprb &
7965  &, 0.710965e-01_jprb, 0.648541e-01_jprb, 0.590312e-01_jprb, 0.536164e-01_jprb &
7966  &, 0.485947e-01_jprb, 0.439478e-01_jprb, 0.396532e-01_jprb &
7967  &, 0.357000e-01_jprb, 0.320745e-01_jprb, 0.287596e-01_jprb, 0.257186e-01_jprb &
7968  &, 0.229438e-01_jprb, 0.204252e-01_jprb, 0.181508e-01_jprb &
7969  &, 0.160879e-01_jprb, 0.142185e-01_jprb, 0.125597e-01_jprb, 0.110518e-01_jprb &
7970  &, 0.970794e-02_jprb, 0.850151e-02_jprb, 0.742336e-02_jprb &
7971  &, 0.648405e-02_jprb, 0.562990e-02_jprb, 0.489005e-02_jprb, 0.422837e-02_jprb &
7972  &, 0.365111e-02_jprb, 0.316468e-02_jprb, 0.270413e-02_jprb &
7973  &, 0.232056e-02_jprb, 0.199460e-02_jprb, 0.170505e-02_jprb, 0.145463e-02_jprb &
7974  &, 0.121982e-02_jprb, 0.102879e-02_jprb, 0.884424e-03_jprb &
7975  &, 0.734029e-03_jprb, 0.605870e-03_jprb, 0.530348e-03_jprb, 0.422267e-03_jprb &
7976  &, 0.369917e-03_jprb, 0.284900e-03_jprb, 0.258814e-03_jprb &
7977  &, 0.199990e-03_jprb, 0.171171e-03_jprb, 0.141237e-03_jprb, 0.110172e-03_jprb &
7978  &, 0.779552e-04_jprb, 0.791414e-04_jprb, 0.451697e-04_jprb &
7979  &, 0.457747e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7980  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7981  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7982  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7983  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7984  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7985  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7986  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7987  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7988  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7989  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
7990  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
7991 xcw( 180, :) = (/ &
7992  & 0.907788e+00_jprb, 0.884683e+00_jprb, 0.861588e+00_jprb, 0.838519e+00_jprb &
7993  &, 0.815490e+00_jprb, 0.792517e+00_jprb, 0.769616e+00_jprb &
7994  &, 0.746803e+00_jprb, 0.724093e+00_jprb, 0.701504e+00_jprb, 0.679051e+00_jprb &
7995  &, 0.656751e+00_jprb, 0.634620e+00_jprb, 0.612676e+00_jprb &
7996  &, 0.590934e+00_jprb, 0.569413e+00_jprb, 0.548131e+00_jprb, 0.527100e+00_jprb &
7997  &, 0.506343e+00_jprb, 0.485874e+00_jprb, 0.465709e+00_jprb &
7998  &, 0.445872e+00_jprb, 0.426372e+00_jprb, 0.407229e+00_jprb, 0.388458e+00_jprb &
7999  &, 0.370076e+00_jprb, 0.352098e+00_jprb, 0.334540e+00_jprb &
8000  &, 0.317413e+00_jprb, 0.300737e+00_jprb, 0.284518e+00_jprb, 0.268770e+00_jprb &
8001  &, 0.253508e+00_jprb, 0.238737e+00_jprb, 0.224465e+00_jprb &
8002  &, 0.210694e+00_jprb, 0.197449e+00_jprb, 0.184709e+00_jprb, 0.172499e+00_jprb &
8003  &, 0.160812e+00_jprb, 0.149640e+00_jprb, 0.138995e+00_jprb &
8004  &, 0.128862e+00_jprb, 0.119237e+00_jprb, 0.110122e+00_jprb, 0.101506e+00_jprb &
8005  &, 0.933749e-01_jprb, 0.857341e-01_jprb, 0.785492e-01_jprb &
8006  &, 0.718192e-01_jprb, 0.655271e-01_jprb, 0.596653e-01_jprb, 0.542092e-01_jprb &
8007  &, 0.491583e-01_jprb, 0.444656e-01_jprb, 0.401378e-01_jprb &
8008  &, 0.361650e-01_jprb, 0.325026e-01_jprb, 0.291490e-01_jprb, 0.260837e-01_jprb &
8009  &, 0.232833e-01_jprb, 0.207377e-01_jprb, 0.184348e-01_jprb &
8010  &, 0.163420e-01_jprb, 0.144596e-01_jprb, 0.127682e-01_jprb, 0.112455e-01_jprb &
8011  &, 0.986627e-02_jprb, 0.866326e-02_jprb, 0.756791e-02_jprb &
8012  &, 0.661058e-02_jprb, 0.575909e-02_jprb, 0.499996e-02_jprb, 0.431813e-02_jprb &
8013  &, 0.374272e-02_jprb, 0.323478e-02_jprb, 0.277565e-02_jprb &
8014  &, 0.236920e-02_jprb, 0.204421e-02_jprb, 0.173034e-02_jprb, 0.148042e-02_jprb &
8015  &, 0.124613e-02_jprb, 0.105560e-02_jprb, 0.911749e-03_jprb &
8016  &, 0.761877e-03_jprb, 0.634245e-03_jprb, 0.530348e-03_jprb, 0.451715e-03_jprb &
8017  &, 0.369917e-03_jprb, 0.315444e-03_jprb, 0.258814e-03_jprb &
8018  &, 0.199990e-03_jprb, 0.171171e-03_jprb, 0.141237e-03_jprb, 0.110172e-03_jprb &
8019  &, 0.779552e-04_jprb, 0.791414e-04_jprb, 0.451697e-04_jprb &
8020  &, 0.457747e-04_jprb, 0.463856e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8021  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8022  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8023  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8024  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8025  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8026  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8027  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8028  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8029  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8030  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8031  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8032 xcw( 181, :) = (/ &
8033  & 0.908147e+00_jprb, 0.885123e+00_jprb, 0.862107e+00_jprb, 0.839113e+00_jprb &
8034  &, 0.816156e+00_jprb, 0.793253e+00_jprb, 0.770417e+00_jprb &
8035  &, 0.747667e+00_jprb, 0.725017e+00_jprb, 0.702484e+00_jprb, 0.680083e+00_jprb &
8036  &, 0.657832e+00_jprb, 0.635747e+00_jprb, 0.613844e+00_jprb &
8037  &, 0.592143e+00_jprb, 0.570656e+00_jprb, 0.549405e+00_jprb, 0.528403e+00_jprb &
8038  &, 0.507671e+00_jprb, 0.487223e+00_jprb, 0.467077e+00_jprb &
8039  &, 0.447252e+00_jprb, 0.427763e+00_jprb, 0.408627e+00_jprb, 0.389861e+00_jprb &
8040  &, 0.371480e+00_jprb, 0.353499e+00_jprb, 0.335937e+00_jprb &
8041  &, 0.318801e+00_jprb, 0.302100e+00_jprb, 0.285881e+00_jprb, 0.270117e+00_jprb &
8042  &, 0.254833e+00_jprb, 0.240038e+00_jprb, 0.225740e+00_jprb &
8043  &, 0.211949e+00_jprb, 0.198670e+00_jprb, 0.185902e+00_jprb, 0.173652e+00_jprb &
8044  &, 0.161932e+00_jprb, 0.150726e+00_jprb, 0.140032e+00_jprb &
8045  &, 0.129870e+00_jprb, 0.120202e+00_jprb, 0.111053e+00_jprb, 0.102401e+00_jprb &
8046  &, 0.942303e-01_jprb, 0.865353e-01_jprb, 0.793188e-01_jprb &
8047  &, 0.725419e-01_jprb, 0.662134e-01_jprb, 0.603131e-01_jprb, 0.548161e-01_jprb &
8048  &, 0.497219e-01_jprb, 0.449981e-01_jprb, 0.406375e-01_jprb &
8049  &, 0.366144e-01_jprb, 0.329308e-01_jprb, 0.295384e-01_jprb, 0.264489e-01_jprb &
8050  &, 0.236228e-01_jprb, 0.210501e-01_jprb, 0.187188e-01_jprb &
8051  &, 0.165960e-01_jprb, 0.147008e-01_jprb, 0.129768e-01_jprb, 0.114392e-01_jprb &
8052  &, 0.100444e-01_jprb, 0.882500e-02_jprb, 0.771246e-02_jprb &
8053  &, 0.673711e-02_jprb, 0.586675e-02_jprb, 0.508788e-02_jprb, 0.440788e-02_jprb &
8054  &, 0.381142e-02_jprb, 0.330489e-02_jprb, 0.284718e-02_jprb &
8055  &, 0.244217e-02_jprb, 0.209383e-02_jprb, 0.178094e-02_jprb, 0.150622e-02_jprb &
8056  &, 0.129873e-02_jprb, 0.108241e-02_jprb, 0.911749e-03_jprb &
8057  &, 0.789724e-03_jprb, 0.662620e-03_jprb, 0.559257e-03_jprb, 0.451715e-03_jprb &
8058  &, 0.369917e-03_jprb, 0.315444e-03_jprb, 0.258814e-03_jprb &
8059  &, 0.199990e-03_jprb, 0.171171e-03_jprb, 0.141237e-03_jprb, 0.110172e-03_jprb &
8060  &, 0.779552e-04_jprb, 0.791414e-04_jprb, 0.451697e-04_jprb &
8061  &, 0.457747e-04_jprb, 0.463856e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8062  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8063  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8064  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8065  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8066  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8067  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8068  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8069  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8070  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8071  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8072  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8073 xcw( 182, :) = (/ &
8074  & 0.908503e+00_jprb, 0.885562e+00_jprb, 0.862624e+00_jprb, 0.839706e+00_jprb &
8075  &, 0.816821e+00_jprb, 0.793987e+00_jprb, 0.771217e+00_jprb &
8076  &, 0.748527e+00_jprb, 0.725938e+00_jprb, 0.703456e+00_jprb, 0.681113e+00_jprb &
8077  &, 0.658910e+00_jprb, 0.636872e+00_jprb, 0.615011e+00_jprb &
8078  &, 0.593348e+00_jprb, 0.571897e+00_jprb, 0.550677e+00_jprb, 0.529705e+00_jprb &
8079  &, 0.508997e+00_jprb, 0.488571e+00_jprb, 0.468443e+00_jprb &
8080  &, 0.448631e+00_jprb, 0.429153e+00_jprb, 0.410026e+00_jprb, 0.391264e+00_jprb &
8081  &, 0.372884e+00_jprb, 0.354903e+00_jprb, 0.337334e+00_jprb &
8082  &, 0.320193e+00_jprb, 0.303490e+00_jprb, 0.287245e+00_jprb, 0.271464e+00_jprb &
8083  &, 0.256158e+00_jprb, 0.241343e+00_jprb, 0.227019e+00_jprb &
8084  &, 0.213196e+00_jprb, 0.199890e+00_jprb, 0.187095e+00_jprb, 0.174814e+00_jprb &
8085  &, 0.163053e+00_jprb, 0.151811e+00_jprb, 0.141091e+00_jprb &
8086  &, 0.130878e+00_jprb, 0.121178e+00_jprb, 0.111983e+00_jprb, 0.103283e+00_jprb &
8087  &, 0.950734e-01_jprb, 0.873491e-01_jprb, 0.800884e-01_jprb &
8088  &, 0.732777e-01_jprb, 0.668998e-01_jprb, 0.609609e-01_jprb, 0.554371e-01_jprb &
8089  &, 0.503000e-01_jprb, 0.455307e-01_jprb, 0.411372e-01_jprb &
8090  &, 0.370793e-01_jprb, 0.333590e-01_jprb, 0.299440e-01_jprb, 0.268140e-01_jprb &
8091  &, 0.239623e-01_jprb, 0.213626e-01_jprb, 0.190028e-01_jprb &
8092  &, 0.168682e-01_jprb, 0.149419e-01_jprb, 0.131853e-01_jprb, 0.116329e-01_jprb &
8093  &, 0.102225e-01_jprb, 0.896652e-02_jprb, 0.785701e-02_jprb &
8094  &, 0.686364e-02_jprb, 0.597441e-02_jprb, 0.519780e-02_jprb, 0.449763e-02_jprb &
8095  &, 0.390302e-02_jprb, 0.337499e-02_jprb, 0.289486e-02_jprb &
8096  &, 0.249081e-02_jprb, 0.214344e-02_jprb, 0.183154e-02_jprb, 0.155781e-02_jprb &
8097  &, 0.132503e-02_jprb, 0.110922e-02_jprb, 0.939075e-03_jprb &
8098  &, 0.789724e-03_jprb, 0.662620e-03_jprb, 0.559257e-03_jprb, 0.481163e-03_jprb &
8099  &, 0.399910e-03_jprb, 0.315444e-03_jprb, 0.258814e-03_jprb &
8100  &, 0.231655e-03_jprb, 0.171171e-03_jprb, 0.141237e-03_jprb, 0.110172e-03_jprb &
8101  &, 0.779552e-04_jprb, 0.791414e-04_jprb, 0.451697e-04_jprb &
8102  &, 0.457747e-04_jprb, 0.463856e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8103  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8104  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8105  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8106  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8107  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8108  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8109  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8110  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8111  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8112  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8113  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8114 
8115 IF (lhook) CALL dr_hook('SU_MCICA:PART26',1,zhook_handle)
8116 END SUBROUTINE part26
8117 
8118 #ifdef VPP5000
8119 !OCL SCALAR
8120 #endif
8121 !option! -Nv -NO
8122 #ifdef RS6K
8123 @process nooptimize
8124 #endif
8125 !pgi$r opt=0
8126 SUBROUTINE part27
8127 
8128 REAL(KIND=JPRB) :: ZHOOK_HANDLE
8129 IF (lhook) CALL dr_hook('SU_MCICA:PART27',0,zhook_handle)
8130 
8131 xcw( 183, :) = (/ &
8132  & 0.908859e+00_jprb, 0.885999e+00_jprb, 0.863139e+00_jprb, 0.840297e+00_jprb &
8133  &, 0.817484e+00_jprb, 0.794718e+00_jprb, 0.772015e+00_jprb &
8134  &, 0.749389e+00_jprb, 0.726858e+00_jprb, 0.704436e+00_jprb, 0.682140e+00_jprb &
8135  &, 0.659987e+00_jprb, 0.637993e+00_jprb, 0.616175e+00_jprb &
8136  &, 0.594551e+00_jprb, 0.573136e+00_jprb, 0.551948e+00_jprb, 0.531004e+00_jprb &
8137  &, 0.510320e+00_jprb, 0.489916e+00_jprb, 0.469808e+00_jprb &
8138  &, 0.450010e+00_jprb, 0.430544e+00_jprb, 0.411425e+00_jprb, 0.392667e+00_jprb &
8139  &, 0.374288e+00_jprb, 0.356304e+00_jprb, 0.338731e+00_jprb &
8140  &, 0.321577e+00_jprb, 0.304868e+00_jprb, 0.288604e+00_jprb, 0.272807e+00_jprb &
8141  &, 0.257482e+00_jprb, 0.242644e+00_jprb, 0.228298e+00_jprb &
8142  &, 0.214451e+00_jprb, 0.201111e+00_jprb, 0.188288e+00_jprb, 0.175967e+00_jprb &
8143  &, 0.164173e+00_jprb, 0.152897e+00_jprb, 0.142139e+00_jprb &
8144  &, 0.131886e+00_jprb, 0.122154e+00_jprb, 0.112914e+00_jprb, 0.104177e+00_jprb &
8145  &, 0.959287e-01_jprb, 0.881629e-01_jprb, 0.808580e-01_jprb &
8146  &, 0.740004e-01_jprb, 0.675997e-01_jprb, 0.616087e-01_jprb, 0.560440e-01_jprb &
8147  &, 0.508636e-01_jprb, 0.460781e-01_jprb, 0.416369e-01_jprb &
8148  &, 0.375597e-01_jprb, 0.337871e-01_jprb, 0.303496e-01_jprb, 0.271791e-01_jprb &
8149  &, 0.243018e-01_jprb, 0.216751e-01_jprb, 0.192868e-01_jprb &
8150  &, 0.171223e-01_jprb, 0.151830e-01_jprb, 0.134128e-01_jprb, 0.118266e-01_jprb &
8151  &, 0.104006e-01_jprb, 0.912827e-02_jprb, 0.800156e-02_jprb &
8152  &, 0.699017e-02_jprb, 0.610360e-02_jprb, 0.530771e-02_jprb, 0.460982e-02_jprb &
8153  &, 0.399462e-02_jprb, 0.344509e-02_jprb, 0.296639e-02_jprb &
8154  &, 0.253945e-02_jprb, 0.219305e-02_jprb, 0.185684e-02_jprb, 0.158361e-02_jprb &
8155  &, 0.135133e-02_jprb, 0.116284e-02_jprb, 0.966401e-03_jprb &
8156  &, 0.817571e-03_jprb, 0.690995e-03_jprb, 0.588165e-03_jprb, 0.481163e-03_jprb &
8157  &, 0.399910e-03_jprb, 0.345988e-03_jprb, 0.289915e-03_jprb &
8158  &, 0.231655e-03_jprb, 0.171171e-03_jprb, 0.141237e-03_jprb, 0.110172e-03_jprb &
8159  &, 0.111933e-03_jprb, 0.791414e-04_jprb, 0.451697e-04_jprb &
8160  &, 0.457747e-04_jprb, 0.463856e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8161  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8162  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8163  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8164  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8165  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8166  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8167  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8168  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8169  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8170  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8171  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8172 xcw( 184, :) = (/ &
8173  & 0.909213e+00_jprb, 0.886436e+00_jprb, 0.863654e+00_jprb, 0.840886e+00_jprb &
8174  &, 0.818145e+00_jprb, 0.795449e+00_jprb, 0.772810e+00_jprb &
8175  &, 0.750247e+00_jprb, 0.727774e+00_jprb, 0.705408e+00_jprb, 0.683165e+00_jprb &
8176  &, 0.661061e+00_jprb, 0.639113e+00_jprb, 0.617338e+00_jprb &
8177  &, 0.595751e+00_jprb, 0.574372e+00_jprb, 0.553215e+00_jprb, 0.532299e+00_jprb &
8178  &, 0.511641e+00_jprb, 0.491258e+00_jprb, 0.471166e+00_jprb &
8179  &, 0.451386e+00_jprb, 0.431931e+00_jprb, 0.412820e+00_jprb, 0.394067e+00_jprb &
8180  &, 0.375688e+00_jprb, 0.357704e+00_jprb, 0.340123e+00_jprb &
8181  &, 0.322965e+00_jprb, 0.306243e+00_jprb, 0.289967e+00_jprb, 0.274154e+00_jprb &
8182  &, 0.258811e+00_jprb, 0.243949e+00_jprb, 0.229577e+00_jprb &
8183  &, 0.215707e+00_jprb, 0.202332e+00_jprb, 0.189481e+00_jprb, 0.177130e+00_jprb &
8184  &, 0.165304e+00_jprb, 0.153993e+00_jprb, 0.143187e+00_jprb &
8185  &, 0.132904e+00_jprb, 0.123130e+00_jprb, 0.113857e+00_jprb, 0.105071e+00_jprb &
8186  &, 0.967840e-01_jprb, 0.889767e-01_jprb, 0.816276e-01_jprb &
8187  &, 0.747362e-01_jprb, 0.682861e-01_jprb, 0.622704e-01_jprb, 0.566651e-01_jprb &
8188  &, 0.514561e-01_jprb, 0.466107e-01_jprb, 0.421517e-01_jprb &
8189  &, 0.380246e-01_jprb, 0.342311e-01_jprb, 0.307552e-01_jprb, 0.275609e-01_jprb &
8190  &, 0.246413e-01_jprb, 0.219876e-01_jprb, 0.195885e-01_jprb &
8191  &, 0.173945e-01_jprb, 0.154242e-01_jprb, 0.136403e-01_jprb, 0.120397e-01_jprb &
8192  &, 0.105986e-01_jprb, 0.931023e-02_jprb, 0.814611e-02_jprb &
8193  &, 0.711670e-02_jprb, 0.621126e-02_jprb, 0.541762e-02_jprb, 0.469958e-02_jprb &
8194  &, 0.406332e-02_jprb, 0.351520e-02_jprb, 0.303791e-02_jprb &
8195  &, 0.261242e-02_jprb, 0.224267e-02_jprb, 0.190744e-02_jprb, 0.163520e-02_jprb &
8196  &, 0.137763e-02_jprb, 0.118965e-02_jprb, 0.993727e-03_jprb &
8197  &, 0.845418e-03_jprb, 0.719370e-03_jprb, 0.588165e-03_jprb, 0.510610e-03_jprb &
8198  &, 0.429903e-03_jprb, 0.345988e-03_jprb, 0.289915e-03_jprb &
8199  &, 0.231655e-03_jprb, 0.203405e-03_jprb, 0.141237e-03_jprb, 0.143562e-03_jprb &
8200  &, 0.111933e-03_jprb, 0.791414e-04_jprb, 0.803394e-04_jprb &
8201  &, 0.457747e-04_jprb, 0.463856e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8202  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8203  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8204  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8205  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8206  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8207  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8208  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8209  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8210  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8211  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8212  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8213 xcw( 185, :) = (/ &
8214  & 0.909567e+00_jprb, 0.886870e+00_jprb, 0.864166e+00_jprb, 0.841473e+00_jprb &
8215  &, 0.818805e+00_jprb, 0.796176e+00_jprb, 0.773604e+00_jprb &
8216  &, 0.751102e+00_jprb, 0.728688e+00_jprb, 0.706378e+00_jprb, 0.684187e+00_jprb &
8217  &, 0.662133e+00_jprb, 0.640229e+00_jprb, 0.618494e+00_jprb &
8218  &, 0.596949e+00_jprb, 0.575605e+00_jprb, 0.554481e+00_jprb, 0.533595e+00_jprb &
8219  &, 0.512961e+00_jprb, 0.492600e+00_jprb, 0.472528e+00_jprb &
8220  &, 0.452762e+00_jprb, 0.433318e+00_jprb, 0.414215e+00_jprb, 0.395467e+00_jprb &
8221  &, 0.377089e+00_jprb, 0.359101e+00_jprb, 0.341520e+00_jprb &
8222  &, 0.324353e+00_jprb, 0.307621e+00_jprb, 0.291331e+00_jprb, 0.275501e+00_jprb &
8223  &, 0.260136e+00_jprb, 0.245254e+00_jprb, 0.230861e+00_jprb &
8224  &, 0.216963e+00_jprb, 0.203562e+00_jprb, 0.190674e+00_jprb, 0.178293e+00_jprb &
8225  &, 0.166434e+00_jprb, 0.155089e+00_jprb, 0.144245e+00_jprb &
8226  &, 0.133923e+00_jprb, 0.124107e+00_jprb, 0.114799e+00_jprb, 0.105978e+00_jprb &
8227  &, 0.976516e-01_jprb, 0.897905e-01_jprb, 0.824101e-01_jprb &
8228  &, 0.754721e-01_jprb, 0.689859e-01_jprb, 0.629320e-01_jprb, 0.572861e-01_jprb &
8229  &, 0.520341e-01_jprb, 0.471580e-01_jprb, 0.426514e-01_jprb &
8230  &, 0.385050e-01_jprb, 0.346752e-01_jprb, 0.311608e-01_jprb, 0.279426e-01_jprb &
8231  &, 0.249978e-01_jprb, 0.223174e-01_jprb, 0.198725e-01_jprb &
8232  &, 0.176667e-01_jprb, 0.156653e-01_jprb, 0.138677e-01_jprb, 0.122334e-01_jprb &
8233  &, 0.107767e-01_jprb, 0.947197e-02_jprb, 0.829066e-02_jprb &
8234  &, 0.726431e-02_jprb, 0.634046e-02_jprb, 0.552753e-02_jprb, 0.478933e-02_jprb &
8235  &, 0.415492e-02_jprb, 0.358530e-02_jprb, 0.308560e-02_jprb &
8236  &, 0.266106e-02_jprb, 0.229228e-02_jprb, 0.195804e-02_jprb, 0.166100e-02_jprb &
8237  &, 0.143023e-02_jprb, 0.121646e-02_jprb, 0.102105e-02_jprb &
8238  &, 0.873266e-03_jprb, 0.719370e-03_jprb, 0.617073e-03_jprb, 0.510610e-03_jprb &
8239  &, 0.429903e-03_jprb, 0.345988e-03_jprb, 0.289915e-03_jprb &
8240  &, 0.231655e-03_jprb, 0.203405e-03_jprb, 0.174047e-03_jprb, 0.143562e-03_jprb &
8241  &, 0.111933e-03_jprb, 0.791414e-04_jprb, 0.803394e-04_jprb &
8242  &, 0.457747e-04_jprb, 0.463856e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8243  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8244  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8245  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8246  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8247  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8248  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8249  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8250  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8251  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8252  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8253  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8254 xcw( 186, :) = (/ &
8255  & 0.909919e+00_jprb, 0.887303e+00_jprb, 0.864677e+00_jprb, 0.842059e+00_jprb &
8256  &, 0.819462e+00_jprb, 0.796902e+00_jprb, 0.774394e+00_jprb &
8257  &, 0.751955e+00_jprb, 0.729600e+00_jprb, 0.707345e+00_jprb, 0.685207e+00_jprb &
8258  &, 0.663201e+00_jprb, 0.641344e+00_jprb, 0.619653e+00_jprb &
8259  &, 0.598145e+00_jprb, 0.576837e+00_jprb, 0.555745e+00_jprb, 0.534886e+00_jprb &
8260  &, 0.514279e+00_jprb, 0.493939e+00_jprb, 0.473887e+00_jprb &
8261  &, 0.454135e+00_jprb, 0.434702e+00_jprb, 0.415606e+00_jprb, 0.396863e+00_jprb &
8262  &, 0.378489e+00_jprb, 0.360502e+00_jprb, 0.342913e+00_jprb &
8263  &, 0.325741e+00_jprb, 0.308995e+00_jprb, 0.292694e+00_jprb, 0.276848e+00_jprb &
8264  &, 0.261465e+00_jprb, 0.246559e+00_jprb, 0.232144e+00_jprb &
8265  &, 0.218218e+00_jprb, 0.204792e+00_jprb, 0.191867e+00_jprb, 0.179456e+00_jprb &
8266  &, 0.167565e+00_jprb, 0.156185e+00_jprb, 0.145304e+00_jprb &
8267  &, 0.134942e+00_jprb, 0.125094e+00_jprb, 0.115742e+00_jprb, 0.106884e+00_jprb &
8268  &, 0.985069e-01_jprb, 0.906169e-01_jprb, 0.831925e-01_jprb &
8269  &, 0.762210e-01_jprb, 0.696858e-01_jprb, 0.635936e-01_jprb, 0.579071e-01_jprb &
8270  &, 0.526121e-01_jprb, 0.477054e-01_jprb, 0.431663e-01_jprb &
8271  &, 0.389855e-01_jprb, 0.351192e-01_jprb, 0.315664e-01_jprb, 0.283243e-01_jprb &
8272  &, 0.253543e-01_jprb, 0.226472e-01_jprb, 0.201743e-01_jprb &
8273  &, 0.179389e-01_jprb, 0.159065e-01_jprb, 0.140763e-01_jprb, 0.124465e-01_jprb &
8274  &, 0.109548e-01_jprb, 0.963372e-02_jprb, 0.845586e-02_jprb &
8275  &, 0.739084e-02_jprb, 0.644812e-02_jprb, 0.561546e-02_jprb, 0.487908e-02_jprb &
8276  &, 0.424652e-02_jprb, 0.367878e-02_jprb, 0.315712e-02_jprb &
8277  &, 0.273403e-02_jprb, 0.234190e-02_jprb, 0.200864e-02_jprb, 0.171259e-02_jprb &
8278  &, 0.145653e-02_jprb, 0.124327e-02_jprb, 0.104838e-02_jprb &
8279  &, 0.901113e-03_jprb, 0.747744e-03_jprb, 0.645981e-03_jprb, 0.540058e-03_jprb &
8280  &, 0.429903e-03_jprb, 0.376533e-03_jprb, 0.289915e-03_jprb &
8281  &, 0.263320e-03_jprb, 0.203405e-03_jprb, 0.174047e-03_jprb, 0.143562e-03_jprb &
8282  &, 0.111933e-03_jprb, 0.791414e-04_jprb, 0.803394e-04_jprb &
8283  &, 0.457747e-04_jprb, 0.463856e-04_jprb, 0.470026e-04_jprb, 0.100000e-04_jprb &
8284  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8285  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8286  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8287  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8288  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8289  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8290  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8291  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8292  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8293  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8294  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8295 xcw( 187, :) = (/ &
8296  & 0.910271e+00_jprb, 0.887735e+00_jprb, 0.865187e+00_jprb, 0.842643e+00_jprb &
8297  &, 0.820117e+00_jprb, 0.797626e+00_jprb, 0.775182e+00_jprb &
8298  &, 0.752806e+00_jprb, 0.730510e+00_jprb, 0.708311e+00_jprb, 0.686224e+00_jprb &
8299  &, 0.664267e+00_jprb, 0.642457e+00_jprb, 0.620808e+00_jprb &
8300  &, 0.599339e+00_jprb, 0.578065e+00_jprb, 0.557006e+00_jprb, 0.536177e+00_jprb &
8301  &, 0.515594e+00_jprb, 0.495277e+00_jprb, 0.475242e+00_jprb &
8302  &, 0.455504e+00_jprb, 0.436086e+00_jprb, 0.416998e+00_jprb, 0.398263e+00_jprb &
8303  &, 0.379889e+00_jprb, 0.361899e+00_jprb, 0.344306e+00_jprb &
8304  &, 0.327126e+00_jprb, 0.310374e+00_jprb, 0.294058e+00_jprb, 0.278195e+00_jprb &
8305  &, 0.262795e+00_jprb, 0.247869e+00_jprb, 0.233423e+00_jprb &
8306  &, 0.219474e+00_jprb, 0.206023e+00_jprb, 0.193069e+00_jprb, 0.180629e+00_jprb &
8307  &, 0.168696e+00_jprb, 0.157280e+00_jprb, 0.146374e+00_jprb &
8308  &, 0.135972e+00_jprb, 0.126082e+00_jprb, 0.116684e+00_jprb, 0.107790e+00_jprb &
8309  &, 0.993744e-01_jprb, 0.914432e-01_jprb, 0.839750e-01_jprb &
8310  &, 0.769700e-01_jprb, 0.703991e-01_jprb, 0.642552e-01_jprb, 0.585282e-01_jprb &
8311  &, 0.532046e-01_jprb, 0.482676e-01_jprb, 0.436811e-01_jprb &
8312  &, 0.394659e-01_jprb, 0.355632e-01_jprb, 0.319882e-01_jprb, 0.287060e-01_jprb &
8313  &, 0.257108e-01_jprb, 0.229597e-01_jprb, 0.204760e-01_jprb &
8314  &, 0.182111e-01_jprb, 0.161661e-01_jprb, 0.143227e-01_jprb, 0.126402e-01_jprb &
8315  &, 0.111527e-01_jprb, 0.981568e-02_jprb, 0.860041e-02_jprb &
8316  &, 0.753846e-02_jprb, 0.657731e-02_jprb, 0.574735e-02_jprb, 0.499127e-02_jprb &
8317  &, 0.433812e-02_jprb, 0.374888e-02_jprb, 0.322865e-02_jprb &
8318  &, 0.278267e-02_jprb, 0.239151e-02_jprb, 0.205923e-02_jprb, 0.176419e-02_jprb &
8319  &, 0.150913e-02_jprb, 0.127008e-02_jprb, 0.107570e-02_jprb &
8320  &, 0.928960e-03_jprb, 0.776119e-03_jprb, 0.645981e-03_jprb, 0.540058e-03_jprb &
8321  &, 0.459896e-03_jprb, 0.376533e-03_jprb, 0.321017e-03_jprb &
8322  &, 0.263320e-03_jprb, 0.203405e-03_jprb, 0.174047e-03_jprb, 0.143562e-03_jprb &
8323  &, 0.111933e-03_jprb, 0.791414e-04_jprb, 0.803394e-04_jprb &
8324  &, 0.457747e-04_jprb, 0.463856e-04_jprb, 0.470026e-04_jprb, 0.100000e-04_jprb &
8325  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8326  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8327  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8328  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8329  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8330  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8331  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8332  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8333  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8334  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8335  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8336 xcw( 188, :) = (/ &
8337  & 0.910622e+00_jprb, 0.888165e+00_jprb, 0.865695e+00_jprb, 0.843226e+00_jprb &
8338  &, 0.820771e+00_jprb, 0.798347e+00_jprb, 0.775970e+00_jprb &
8339  &, 0.753655e+00_jprb, 0.731417e+00_jprb, 0.709274e+00_jprb, 0.687240e+00_jprb &
8340  &, 0.665332e+00_jprb, 0.643566e+00_jprb, 0.621960e+00_jprb &
8341  &, 0.600530e+00_jprb, 0.579293e+00_jprb, 0.558265e+00_jprb, 0.537463e+00_jprb &
8342  &, 0.516908e+00_jprb, 0.496613e+00_jprb, 0.476594e+00_jprb &
8343  &, 0.456873e+00_jprb, 0.437466e+00_jprb, 0.418390e+00_jprb, 0.399659e+00_jprb &
8344  &, 0.381286e+00_jprb, 0.363296e+00_jprb, 0.345699e+00_jprb &
8345  &, 0.328514e+00_jprb, 0.311748e+00_jprb, 0.295421e+00_jprb, 0.279543e+00_jprb &
8346  &, 0.264124e+00_jprb, 0.244648e+00_jprb, 0.234712e+00_jprb &
8347  &, 0.220730e+00_jprb, 0.207253e+00_jprb, 0.194272e+00_jprb, 0.181802e+00_jprb &
8348  &, 0.169837e+00_jprb, 0.158376e+00_jprb, 0.147432e+00_jprb &
8349  &, 0.137002e+00_jprb, 0.127070e+00_jprb, 0.117638e+00_jprb, 0.108696e+00_jprb &
8350  &, 0.100242e+00_jprb, 0.922695e-01_jprb, 0.847702e-01_jprb &
8351  &, 0.777190e-01_jprb, 0.711124e-01_jprb, 0.649306e-01_jprb, 0.591633e-01_jprb &
8352  &, 0.537971e-01_jprb, 0.488150e-01_jprb, 0.442111e-01_jprb &
8353  &, 0.399463e-01_jprb, 0.360231e-01_jprb, 0.324101e-01_jprb, 0.290878e-01_jprb &
8354  &, 0.260672e-01_jprb, 0.232896e-01_jprb, 0.207778e-01_jprb &
8355  &, 0.184833e-01_jprb, 0.164258e-01_jprb, 0.145502e-01_jprb, 0.128533e-01_jprb &
8356  &, 0.113309e-01_jprb, 0.997742e-02_jprb, 0.876561e-02_jprb &
8357  &, 0.766499e-02_jprb, 0.670650e-02_jprb, 0.585726e-02_jprb, 0.508102e-02_jprb &
8358  &, 0.440682e-02_jprb, 0.381898e-02_jprb, 0.330018e-02_jprb &
8359  &, 0.285563e-02_jprb, 0.244113e-02_jprb, 0.210983e-02_jprb, 0.178998e-02_jprb &
8360  &, 0.153543e-02_jprb, 0.129689e-02_jprb, 0.110303e-02_jprb &
8361  &, 0.928960e-03_jprb, 0.804494e-03_jprb, 0.674890e-03_jprb, 0.569506e-03_jprb &
8362  &, 0.459896e-03_jprb, 0.376533e-03_jprb, 0.321017e-03_jprb &
8363  &, 0.263320e-03_jprb, 0.235639e-03_jprb, 0.174047e-03_jprb, 0.143562e-03_jprb &
8364  &, 0.111933e-03_jprb, 0.791414e-04_jprb, 0.803394e-04_jprb &
8365  &, 0.457747e-04_jprb, 0.463856e-04_jprb, 0.470026e-04_jprb, 0.100000e-04_jprb &
8366  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8367  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8368  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8369  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8370  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8371  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8372  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8373  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8374  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8375  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8376  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8377 xcw( 189, :) = (/ &
8378  & 0.910970e+00_jprb, 0.888595e+00_jprb, 0.866201e+00_jprb, 0.843806e+00_jprb &
8379  &, 0.821422e+00_jprb, 0.799068e+00_jprb, 0.776755e+00_jprb &
8380  &, 0.754501e+00_jprb, 0.732323e+00_jprb, 0.710234e+00_jprb, 0.688253e+00_jprb &
8381  &, 0.666391e+00_jprb, 0.644674e+00_jprb, 0.623109e+00_jprb &
8382  &, 0.601718e+00_jprb, 0.580517e+00_jprb, 0.559521e+00_jprb, 0.538750e+00_jprb &
8383  &, 0.518219e+00_jprb, 0.497945e+00_jprb, 0.477946e+00_jprb &
8384  &, 0.458242e+00_jprb, 0.438846e+00_jprb, 0.419778e+00_jprb, 0.401051e+00_jprb &
8385  &, 0.382687e+00_jprb, 0.364693e+00_jprb, 0.347092e+00_jprb &
8386  &, 0.329898e+00_jprb, 0.313123e+00_jprb, 0.296785e+00_jprb, 0.280890e+00_jprb &
8387  &, 0.265453e+00_jprb, 0.250483e+00_jprb, 0.235995e+00_jprb &
8388  &, 0.221995e+00_jprb, 0.208483e+00_jprb, 0.195475e+00_jprb, 0.182965e+00_jprb &
8389  &, 0.170967e+00_jprb, 0.159483e+00_jprb, 0.148502e+00_jprb &
8390  &, 0.138032e+00_jprb, 0.128057e+00_jprb, 0.118592e+00_jprb, 0.109614e+00_jprb &
8391  &, 0.101122e+00_jprb, 0.931083e-01_jprb, 0.855527e-01_jprb &
8392  &, 0.784679e-01_jprb, 0.718257e-01_jprb, 0.656060e-01_jprb, 0.597985e-01_jprb &
8393  &, 0.543896e-01_jprb, 0.493771e-01_jprb, 0.447260e-01_jprb &
8394  &, 0.404267e-01_jprb, 0.364671e-01_jprb, 0.328319e-01_jprb, 0.294861e-01_jprb &
8395  &, 0.264237e-01_jprb, 0.236367e-01_jprb, 0.210796e-01_jprb &
8396  &, 0.187736e-01_jprb, 0.166670e-01_jprb, 0.147777e-01_jprb, 0.130664e-01_jprb &
8397  &, 0.115288e-01_jprb, 0.101594e-01_jprb, 0.891016e-02_jprb &
8398  &, 0.781260e-02_jprb, 0.683570e-02_jprb, 0.596717e-02_jprb, 0.519321e-02_jprb &
8399  &, 0.449842e-02_jprb, 0.391245e-02_jprb, 0.337170e-02_jprb &
8400  &, 0.290428e-02_jprb, 0.251555e-02_jprb, 0.216043e-02_jprb, 0.184158e-02_jprb &
8401  &, 0.156173e-02_jprb, 0.135051e-02_jprb, 0.113036e-02_jprb &
8402  &, 0.956808e-03_jprb, 0.804494e-03_jprb, 0.674890e-03_jprb, 0.569506e-03_jprb &
8403  &, 0.489889e-03_jprb, 0.407077e-03_jprb, 0.321017e-03_jprb &
8404  &, 0.263320e-03_jprb, 0.235639e-03_jprb, 0.174047e-03_jprb, 0.143562e-03_jprb &
8405  &, 0.111933e-03_jprb, 0.113712e-03_jprb, 0.803394e-04_jprb &
8406  &, 0.457747e-04_jprb, 0.463856e-04_jprb, 0.470026e-04_jprb, 0.100000e-04_jprb &
8407  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8408  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8409  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8410  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8411  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8412  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8413  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8414  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8415  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8416  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8417  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8418 
8419 IF (lhook) CALL dr_hook('SU_MCICA:PART27',1,zhook_handle)
8420 END SUBROUTINE part27
8421 
8422 #ifdef VPP5000
8423 !OCL SCALAR
8424 #endif
8425 !option! -Nv -NO
8426 #ifdef RS6K
8427 @process nooptimize
8428 #endif
8429 !pgi$r opt=0
8430 SUBROUTINE part28
8431 
8432 REAL(KIND=JPRB) :: ZHOOK_HANDLE
8433 IF (lhook) CALL dr_hook('SU_MCICA:PART28',0,zhook_handle)
8434 
8435 xcw( 190, :) = (/ &
8436  & 0.911319e+00_jprb, 0.889023e+00_jprb, 0.866706e+00_jprb, 0.844385e+00_jprb &
8437  &, 0.822072e+00_jprb, 0.799785e+00_jprb, 0.777538e+00_jprb &
8438  &, 0.755346e+00_jprb, 0.733226e+00_jprb, 0.711192e+00_jprb, 0.689263e+00_jprb &
8439  &, 0.667453e+00_jprb, 0.645778e+00_jprb, 0.624258e+00_jprb &
8440  &, 0.602905e+00_jprb, 0.581738e+00_jprb, 0.560776e+00_jprb, 0.540033e+00_jprb &
8441  &, 0.519529e+00_jprb, 0.499278e+00_jprb, 0.479298e+00_jprb &
8442  &, 0.459608e+00_jprb, 0.440227e+00_jprb, 0.421166e+00_jprb, 0.402447e+00_jprb &
8443  &, 0.384083e+00_jprb, 0.366090e+00_jprb, 0.348485e+00_jprb &
8444  &, 0.331286e+00_jprb, 0.314501e+00_jprb, 0.298148e+00_jprb, 0.282237e+00_jprb &
8445  &, 0.266782e+00_jprb, 0.251793e+00_jprb, 0.237283e+00_jprb &
8446  &, 0.223250e+00_jprb, 0.209713e+00_jprb, 0.196678e+00_jprb, 0.184138e+00_jprb &
8447  &, 0.172108e+00_jprb, 0.160589e+00_jprb, 0.149571e+00_jprb &
8448  &, 0.139062e+00_jprb, 0.129056e+00_jprb, 0.119546e+00_jprb, 0.110521e+00_jprb &
8449  &, 0.102002e+00_jprb, 0.939472e-01_jprb, 0.863479e-01_jprb &
8450  &, 0.792169e-01_jprb, 0.725390e-01_jprb, 0.662814e-01_jprb, 0.604336e-01_jprb &
8451  &, 0.549966e-01_jprb, 0.499393e-01_jprb, 0.452559e-01_jprb &
8452  &, 0.409226e-01_jprb, 0.369270e-01_jprb, 0.332537e-01_jprb, 0.298844e-01_jprb &
8453  &, 0.267802e-01_jprb, 0.239666e-01_jprb, 0.213991e-01_jprb &
8454  &, 0.190458e-01_jprb, 0.169266e-01_jprb, 0.150241e-01_jprb, 0.132795e-01_jprb &
8455  &, 0.117267e-01_jprb, 0.103211e-01_jprb, 0.907536e-02_jprb &
8456  &, 0.796022e-02_jprb, 0.696489e-02_jprb, 0.607708e-02_jprb, 0.530541e-02_jprb &
8457  &, 0.459002e-02_jprb, 0.398256e-02_jprb, 0.344323e-02_jprb &
8458  &, 0.297724e-02_jprb, 0.256517e-02_jprb, 0.221103e-02_jprb, 0.189317e-02_jprb &
8459  &, 0.161433e-02_jprb, 0.137732e-02_jprb, 0.115768e-02_jprb &
8460  &, 0.984655e-03_jprb, 0.832869e-03_jprb, 0.703798e-03_jprb, 0.598953e-03_jprb &
8461  &, 0.489889e-03_jprb, 0.407077e-03_jprb, 0.352119e-03_jprb &
8462  &, 0.294985e-03_jprb, 0.235639e-03_jprb, 0.206856e-03_jprb, 0.143562e-03_jprb &
8463  &, 0.111933e-03_jprb, 0.113712e-03_jprb, 0.803394e-04_jprb &
8464  &, 0.815494e-04_jprb, 0.463856e-04_jprb, 0.470026e-04_jprb, 0.100000e-04_jprb &
8465  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8466  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8467  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8468  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8469  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8470  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8471  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8472  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8473  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8474  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8475  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8476 xcw( 191, :) = (/ &
8477  & 0.911666e+00_jprb, 0.889450e+00_jprb, 0.867210e+00_jprb, 0.844963e+00_jprb &
8478  &, 0.822721e+00_jprb, 0.800501e+00_jprb, 0.778319e+00_jprb &
8479  &, 0.756188e+00_jprb, 0.734126e+00_jprb, 0.712149e+00_jprb, 0.690272e+00_jprb &
8480  &, 0.668510e+00_jprb, 0.646882e+00_jprb, 0.625402e+00_jprb &
8481  &, 0.604090e+00_jprb, 0.582958e+00_jprb, 0.562029e+00_jprb, 0.541315e+00_jprb &
8482  &, 0.520836e+00_jprb, 0.500607e+00_jprb, 0.480647e+00_jprb &
8483  &, 0.460974e+00_jprb, 0.441604e+00_jprb, 0.422551e+00_jprb, 0.403840e+00_jprb &
8484  &, 0.385476e+00_jprb, 0.367483e+00_jprb, 0.349878e+00_jprb &
8485  &, 0.332670e+00_jprb, 0.315875e+00_jprb, 0.299512e+00_jprb, 0.283584e+00_jprb &
8486  &, 0.268115e+00_jprb, 0.253107e+00_jprb, 0.238572e+00_jprb &
8487  &, 0.224515e+00_jprb, 0.210953e+00_jprb, 0.197880e+00_jprb, 0.185321e+00_jprb &
8488  &, 0.173249e+00_jprb, 0.161696e+00_jprb, 0.150641e+00_jprb &
8489  &, 0.140092e+00_jprb, 0.130044e+00_jprb, 0.120500e+00_jprb, 0.111451e+00_jprb &
8490  &, 0.102869e+00_jprb, 0.947860e-01_jprb, 0.871560e-01_jprb &
8491  &, 0.799790e-01_jprb, 0.732524e-01_jprb, 0.669568e-01_jprb, 0.610829e-01_jprb &
8492  &, 0.556035e-01_jprb, 0.505163e-01_jprb, 0.457859e-01_jprb &
8493  &, 0.414185e-01_jprb, 0.373869e-01_jprb, 0.336756e-01_jprb, 0.302828e-01_jprb &
8494  &, 0.271537e-01_jprb, 0.242964e-01_jprb, 0.217008e-01_jprb &
8495  &, 0.193362e-01_jprb, 0.171863e-01_jprb, 0.152516e-01_jprb, 0.134926e-01_jprb &
8496  &, 0.119246e-01_jprb, 0.105031e-01_jprb, 0.924056e-02_jprb &
8497  &, 0.810784e-02_jprb, 0.709408e-02_jprb, 0.618699e-02_jprb, 0.539516e-02_jprb &
8498  &, 0.470452e-02_jprb, 0.407603e-02_jprb, 0.351475e-02_jprb &
8499  &, 0.305021e-02_jprb, 0.261478e-02_jprb, 0.226163e-02_jprb, 0.191897e-02_jprb &
8500  &, 0.164063e-02_jprb, 0.140413e-02_jprb, 0.118501e-02_jprb &
8501  &, 0.101250e-02_jprb, 0.861244e-03_jprb, 0.732706e-03_jprb, 0.598953e-03_jprb &
8502  &, 0.519882e-03_jprb, 0.437621e-03_jprb, 0.352119e-03_jprb &
8503  &, 0.294985e-03_jprb, 0.235639e-03_jprb, 0.206856e-03_jprb, 0.176953e-03_jprb &
8504  &, 0.145910e-03_jprb, 0.113712e-03_jprb, 0.803394e-04_jprb &
8505  &, 0.815494e-04_jprb, 0.463856e-04_jprb, 0.470026e-04_jprb, 0.100000e-04_jprb &
8506  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8507  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8508  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8509  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8510  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8511  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8512  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8513  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8514  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8515  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8516  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8517 xcw( 192, :) = (/ &
8518  & 0.912011e+00_jprb, 0.889875e+00_jprb, 0.867712e+00_jprb, 0.845538e+00_jprb &
8519  &, 0.823368e+00_jprb, 0.801215e+00_jprb, 0.779097e+00_jprb &
8520  &, 0.757029e+00_jprb, 0.735026e+00_jprb, 0.713103e+00_jprb, 0.691278e+00_jprb &
8521  &, 0.669565e+00_jprb, 0.647983e+00_jprb, 0.626545e+00_jprb &
8522  &, 0.605271e+00_jprb, 0.584177e+00_jprb, 0.563279e+00_jprb, 0.542594e+00_jprb &
8523  &, 0.522141e+00_jprb, 0.501936e+00_jprb, 0.481996e+00_jprb &
8524  &, 0.462337e+00_jprb, 0.442981e+00_jprb, 0.423939e+00_jprb, 0.405229e+00_jprb &
8525  &, 0.386873e+00_jprb, 0.368880e+00_jprb, 0.351271e+00_jprb &
8526  &, 0.334054e+00_jprb, 0.317254e+00_jprb, 0.300875e+00_jprb, 0.284935e+00_jprb &
8527  &, 0.269445e+00_jprb, 0.254416e+00_jprb, 0.239860e+00_jprb &
8528  &, 0.225780e+00_jprb, 0.212183e+00_jprb, 0.199093e+00_jprb, 0.186494e+00_jprb &
8529  &, 0.174400e+00_jprb, 0.162802e+00_jprb, 0.151721e+00_jprb &
8530  &, 0.141133e+00_jprb, 0.131054e+00_jprb, 0.121466e+00_jprb, 0.112369e+00_jprb &
8531  &, 0.103761e+00_jprb, 0.956248e-01_jprb, 0.879513e-01_jprb &
8532  &, 0.807411e-01_jprb, 0.739791e-01_jprb, 0.676459e-01_jprb, 0.617180e-01_jprb &
8533  &, 0.562105e-01_jprb, 0.510784e-01_jprb, 0.463159e-01_jprb &
8534  &, 0.419144e-01_jprb, 0.378626e-01_jprb, 0.341136e-01_jprb, 0.306811e-01_jprb &
8535  &, 0.275271e-01_jprb, 0.246436e-01_jprb, 0.220203e-01_jprb &
8536  &, 0.196265e-01_jprb, 0.174646e-01_jprb, 0.154981e-01_jprb, 0.137250e-01_jprb &
8537  &, 0.121225e-01_jprb, 0.106850e-01_jprb, 0.940576e-02_jprb &
8538  &, 0.825545e-02_jprb, 0.722328e-02_jprb, 0.631889e-02_jprb, 0.550735e-02_jprb &
8539  &, 0.479612e-02_jprb, 0.414613e-02_jprb, 0.361012e-02_jprb &
8540  &, 0.309885e-02_jprb, 0.268920e-02_jprb, 0.231223e-02_jprb, 0.197056e-02_jprb &
8541  &, 0.169323e-02_jprb, 0.143094e-02_jprb, 0.123966e-02_jprb &
8542  &, 0.104035e-02_jprb, 0.889618e-03_jprb, 0.732706e-03_jprb, 0.628401e-03_jprb &
8543  &, 0.519882e-03_jprb, 0.437621e-03_jprb, 0.352119e-03_jprb &
8544  &, 0.294985e-03_jprb, 0.267873e-03_jprb, 0.206856e-03_jprb, 0.176953e-03_jprb &
8545  &, 0.145910e-03_jprb, 0.113712e-03_jprb, 0.803394e-04_jprb &
8546  &, 0.815494e-04_jprb, 0.463856e-04_jprb, 0.470026e-04_jprb, 0.476254e-04_jprb &
8547  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8548  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8549  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8550  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8551  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8552  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8553  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8554  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8555  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8556  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8557  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8558 xcw( 193, :) = (/ &
8559  & 0.912357e+00_jprb, 0.890300e+00_jprb, 0.868213e+00_jprb, 0.846112e+00_jprb &
8560  &, 0.824012e+00_jprb, 0.801928e+00_jprb, 0.779874e+00_jprb &
8561  &, 0.757867e+00_jprb, 0.735922e+00_jprb, 0.714055e+00_jprb, 0.692281e+00_jprb &
8562  &, 0.670617e+00_jprb, 0.649081e+00_jprb, 0.627686e+00_jprb &
8563  &, 0.606450e+00_jprb, 0.585392e+00_jprb, 0.564528e+00_jprb, 0.543873e+00_jprb &
8564  &, 0.523445e+00_jprb, 0.503263e+00_jprb, 0.483342e+00_jprb &
8565  &, 0.463700e+00_jprb, 0.444354e+00_jprb, 0.425324e+00_jprb, 0.406621e+00_jprb &
8566  &, 0.388266e+00_jprb, 0.370274e+00_jprb, 0.352660e+00_jprb &
8567  &, 0.335438e+00_jprb, 0.318628e+00_jprb, 0.302238e+00_jprb, 0.286282e+00_jprb &
8568  &, 0.270778e+00_jprb, 0.255730e+00_jprb, 0.241148e+00_jprb &
8569  &, 0.227045e+00_jprb, 0.213423e+00_jprb, 0.200305e+00_jprb, 0.187667e+00_jprb &
8570  &, 0.175541e+00_jprb, 0.163919e+00_jprb, 0.152791e+00_jprb &
8571  &, 0.142174e+00_jprb, 0.132053e+00_jprb, 0.122432e+00_jprb, 0.113287e+00_jprb &
8572  &, 0.104641e+00_jprb, 0.964637e-01_jprb, 0.887594e-01_jprb &
8573  &, 0.815164e-01_jprb, 0.747059e-01_jprb, 0.683351e-01_jprb, 0.623673e-01_jprb &
8574  &, 0.568174e-01_jprb, 0.516554e-01_jprb, 0.468610e-01_jprb &
8575  &, 0.424258e-01_jprb, 0.383225e-01_jprb, 0.345517e-01_jprb, 0.310794e-01_jprb &
8576  &, 0.279006e-01_jprb, 0.249908e-01_jprb, 0.223398e-01_jprb &
8577  &, 0.199168e-01_jprb, 0.177243e-01_jprb, 0.157445e-01_jprb, 0.139381e-01_jprb &
8578  &, 0.123204e-01_jprb, 0.108670e-01_jprb, 0.957096e-02_jprb &
8579  &, 0.840307e-02_jprb, 0.735247e-02_jprb, 0.642880e-02_jprb, 0.561954e-02_jprb &
8580  &, 0.488772e-02_jprb, 0.423961e-02_jprb, 0.368164e-02_jprb &
8581  &, 0.317182e-02_jprb, 0.273882e-02_jprb, 0.236282e-02_jprb, 0.202216e-02_jprb &
8582  &, 0.171954e-02_jprb, 0.148456e-02_jprb, 0.126698e-02_jprb &
8583  &, 0.106820e-02_jprb, 0.917993e-03_jprb, 0.761614e-03_jprb, 0.657849e-03_jprb &
8584  &, 0.549875e-03_jprb, 0.468166e-03_jprb, 0.383220e-03_jprb &
8585  &, 0.326650e-03_jprb, 0.267873e-03_jprb, 0.206856e-03_jprb, 0.176953e-03_jprb &
8586  &, 0.145910e-03_jprb, 0.113712e-03_jprb, 0.803394e-04_jprb &
8587  &, 0.815494e-04_jprb, 0.463856e-04_jprb, 0.470026e-04_jprb, 0.476254e-04_jprb &
8588  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8589  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8590  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8591  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8592  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8593  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8594  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8595  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8596  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8597  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8598  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8599 xcw( 194, :) = (/ &
8600  & 0.912701e+00_jprb, 0.890723e+00_jprb, 0.868712e+00_jprb, 0.846685e+00_jprb &
8601  &, 0.824655e+00_jprb, 0.802638e+00_jprb, 0.780649e+00_jprb &
8602  &, 0.758703e+00_jprb, 0.736816e+00_jprb, 0.715004e+00_jprb, 0.693283e+00_jprb &
8603  &, 0.671668e+00_jprb, 0.650177e+00_jprb, 0.628825e+00_jprb &
8604  &, 0.607629e+00_jprb, 0.586607e+00_jprb, 0.565773e+00_jprb, 0.545147e+00_jprb &
8605  &, 0.524746e+00_jprb, 0.504585e+00_jprb, 0.484684e+00_jprb &
8606  &, 0.465059e+00_jprb, 0.445728e+00_jprb, 0.426705e+00_jprb, 0.408010e+00_jprb &
8607  &, 0.389659e+00_jprb, 0.371667e+00_jprb, 0.354049e+00_jprb &
8608  &, 0.336823e+00_jprb, 0.320002e+00_jprb, 0.303602e+00_jprb, 0.287633e+00_jprb &
8609  &, 0.272111e+00_jprb, 0.257040e+00_jprb, 0.242441e+00_jprb &
8610  &, 0.228310e+00_jprb, 0.214663e+00_jprb, 0.201508e+00_jprb, 0.188850e+00_jprb &
8611  &, 0.176693e+00_jprb, 0.165037e+00_jprb, 0.153871e+00_jprb &
8612  &, 0.143215e+00_jprb, 0.133052e+00_jprb, 0.123397e+00_jprb, 0.114217e+00_jprb &
8613  &, 0.105533e+00_jprb, 0.973150e-01_jprb, 0.895675e-01_jprb &
8614  &, 0.822785e-01_jprb, 0.754327e-01_jprb, 0.690243e-01_jprb, 0.630307e-01_jprb &
8615  &, 0.574388e-01_jprb, 0.522323e-01_jprb, 0.474062e-01_jprb &
8616  &, 0.429217e-01_jprb, 0.387982e-01_jprb, 0.349898e-01_jprb, 0.314943e-01_jprb &
8617  &, 0.282740e-01_jprb, 0.253380e-01_jprb, 0.226593e-01_jprb &
8618  &, 0.202072e-01_jprb, 0.180025e-01_jprb, 0.159910e-01_jprb, 0.141706e-01_jprb &
8619  &, 0.125382e-01_jprb, 0.110490e-01_jprb, 0.973616e-02_jprb &
8620  &, 0.855069e-02_jprb, 0.750320e-02_jprb, 0.656069e-02_jprb, 0.573173e-02_jprb &
8621  &, 0.497932e-02_jprb, 0.433308e-02_jprb, 0.375317e-02_jprb &
8622  &, 0.324478e-02_jprb, 0.278843e-02_jprb, 0.241342e-02_jprb, 0.207375e-02_jprb &
8623  &, 0.177214e-02_jprb, 0.151137e-02_jprb, 0.129431e-02_jprb &
8624  &, 0.109604e-02_jprb, 0.917993e-03_jprb, 0.790523e-03_jprb, 0.657849e-03_jprb &
8625  &, 0.549875e-03_jprb, 0.468166e-03_jprb, 0.383220e-03_jprb &
8626  &, 0.326650e-03_jprb, 0.267873e-03_jprb, 0.206856e-03_jprb, 0.176953e-03_jprb &
8627  &, 0.145910e-03_jprb, 0.113712e-03_jprb, 0.803394e-04_jprb &
8628  &, 0.815494e-04_jprb, 0.463856e-04_jprb, 0.470026e-04_jprb, 0.476254e-04_jprb &
8629  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8630  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8631  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8632  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8633  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8634  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8635  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8636  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8637  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8638  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8639  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8640 xcw( 195, :) = (/ &
8641  & 0.913043e+00_jprb, 0.891144e+00_jprb, 0.869210e+00_jprb, 0.847256e+00_jprb &
8642  &, 0.825296e+00_jprb, 0.803347e+00_jprb, 0.781422e+00_jprb &
8643  &, 0.759537e+00_jprb, 0.737704e+00_jprb, 0.715952e+00_jprb, 0.694283e+00_jprb &
8644  &, 0.672717e+00_jprb, 0.651271e+00_jprb, 0.629961e+00_jprb &
8645  &, 0.608804e+00_jprb, 0.587818e+00_jprb, 0.567018e+00_jprb, 0.546422e+00_jprb &
8646  &, 0.526047e+00_jprb, 0.505908e+00_jprb, 0.486026e+00_jprb &
8647  &, 0.466419e+00_jprb, 0.447098e+00_jprb, 0.428086e+00_jprb, 0.409399e+00_jprb &
8648  &, 0.391053e+00_jprb, 0.373060e+00_jprb, 0.355442e+00_jprb &
8649  &, 0.338211e+00_jprb, 0.321381e+00_jprb, 0.304965e+00_jprb, 0.288985e+00_jprb &
8650  &, 0.273445e+00_jprb, 0.258354e+00_jprb, 0.243733e+00_jprb &
8651  &, 0.229575e+00_jprb, 0.215912e+00_jprb, 0.202720e+00_jprb, 0.190033e+00_jprb &
8652  &, 0.177844e+00_jprb, 0.166154e+00_jprb, 0.154951e+00_jprb &
8653  &, 0.144267e+00_jprb, 0.134062e+00_jprb, 0.124363e+00_jprb, 0.115147e+00_jprb &
8654  &, 0.106425e+00_jprb, 0.981664e-01_jprb, 0.903884e-01_jprb &
8655  &, 0.830538e-01_jprb, 0.761729e-01_jprb, 0.697135e-01_jprb, 0.636799e-01_jprb &
8656  &, 0.580458e-01_jprb, 0.528093e-01_jprb, 0.479513e-01_jprb &
8657  &, 0.434332e-01_jprb, 0.392739e-01_jprb, 0.354278e-01_jprb, 0.318927e-01_jprb &
8658  &, 0.286475e-01_jprb, 0.256852e-01_jprb, 0.229788e-01_jprb &
8659  &, 0.205157e-01_jprb, 0.182622e-01_jprb, 0.162374e-01_jprb, 0.144030e-01_jprb &
8660  &, 0.127361e-01_jprb, 0.112511e-01_jprb, 0.990136e-02_jprb &
8661  &, 0.869830e-02_jprb, 0.763239e-02_jprb, 0.669258e-02_jprb, 0.584392e-02_jprb &
8662  &, 0.509382e-02_jprb, 0.442655e-02_jprb, 0.382470e-02_jprb &
8663  &, 0.331775e-02_jprb, 0.286286e-02_jprb, 0.246402e-02_jprb, 0.212534e-02_jprb &
8664  &, 0.182474e-02_jprb, 0.153818e-02_jprb, 0.132164e-02_jprb &
8665  &, 0.112389e-02_jprb, 0.946368e-03_jprb, 0.819431e-03_jprb, 0.687296e-03_jprb &
8666  &, 0.579868e-03_jprb, 0.468166e-03_jprb, 0.414322e-03_jprb &
8667  &, 0.326650e-03_jprb, 0.267873e-03_jprb, 0.239666e-03_jprb, 0.176953e-03_jprb &
8668  &, 0.145910e-03_jprb, 0.113712e-03_jprb, 0.115509e-03_jprb &
8669  &, 0.815494e-04_jprb, 0.463856e-04_jprb, 0.470026e-04_jprb, 0.476254e-04_jprb &
8670  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8671  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8672  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8673  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8674  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8675  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8676  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8677  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8678  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8679  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8680  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8681 xcw( 196, :) = (/ &
8682  & 0.913386e+00_jprb, 0.891566e+00_jprb, 0.869707e+00_jprb, 0.847826e+00_jprb &
8683  &, 0.825936e+00_jprb, 0.804054e+00_jprb, 0.782193e+00_jprb &
8684  &, 0.760370e+00_jprb, 0.738599e+00_jprb, 0.716897e+00_jprb, 0.695280e+00_jprb &
8685  &, 0.673762e+00_jprb, 0.652362e+00_jprb, 0.631095e+00_jprb &
8686  &, 0.609978e+00_jprb, 0.589028e+00_jprb, 0.568260e+00_jprb, 0.547693e+00_jprb &
8687  &, 0.527345e+00_jprb, 0.507231e+00_jprb, 0.487369e+00_jprb &
8688  &, 0.467775e+00_jprb, 0.448471e+00_jprb, 0.429468e+00_jprb, 0.410788e+00_jprb &
8689  &, 0.392442e+00_jprb, 0.374453e+00_jprb, 0.356831e+00_jprb &
8690  &, 0.339595e+00_jprb, 0.322755e+00_jprb, 0.306333e+00_jprb, 0.290336e+00_jprb &
8691  &, 0.274778e+00_jprb, 0.259672e+00_jprb, 0.245026e+00_jprb &
8692  &, 0.230850e+00_jprb, 0.217152e+00_jprb, 0.203943e+00_jprb, 0.191216e+00_jprb &
8693  &, 0.178995e+00_jprb, 0.167271e+00_jprb, 0.156043e+00_jprb &
8694  &, 0.145308e+00_jprb, 0.135072e+00_jprb, 0.125340e+00_jprb, 0.116089e+00_jprb &
8695  &, 0.107317e+00_jprb, 0.990303e-01_jprb, 0.911965e-01_jprb &
8696  &, 0.838290e-01_jprb, 0.768997e-01_jprb, 0.704164e-01_jprb, 0.643433e-01_jprb &
8697  &, 0.586672e-01_jprb, 0.534011e-01_jprb, 0.484964e-01_jprb &
8698  &, 0.439446e-01_jprb, 0.397497e-01_jprb, 0.358821e-01_jprb, 0.323076e-01_jprb &
8699  &, 0.290379e-01_jprb, 0.260324e-01_jprb, 0.232983e-01_jprb &
8700  &, 0.208060e-01_jprb, 0.185404e-01_jprb, 0.164838e-01_jprb, 0.146161e-01_jprb &
8701  &, 0.129538e-01_jprb, 0.114331e-01_jprb, 0.100872e-01_jprb &
8702  &, 0.886701e-02_jprb, 0.778311e-02_jprb, 0.680250e-02_jprb, 0.595611e-02_jprb &
8703  &, 0.518542e-02_jprb, 0.449665e-02_jprb, 0.392006e-02_jprb &
8704  &, 0.339071e-02_jprb, 0.291247e-02_jprb, 0.251462e-02_jprb, 0.217694e-02_jprb &
8705  &, 0.185104e-02_jprb, 0.159180e-02_jprb, 0.134896e-02_jprb &
8706  &, 0.115174e-02_jprb, 0.974743e-03_jprb, 0.819431e-03_jprb, 0.687296e-03_jprb &
8707  &, 0.579868e-03_jprb, 0.498710e-03_jprb, 0.414322e-03_jprb &
8708  &, 0.358315e-03_jprb, 0.300108e-03_jprb, 0.239666e-03_jprb, 0.210343e-03_jprb &
8709  &, 0.145910e-03_jprb, 0.113712e-03_jprb, 0.115509e-03_jprb &
8710  &, 0.815494e-04_jprb, 0.463856e-04_jprb, 0.470026e-04_jprb, 0.476254e-04_jprb &
8711  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8712  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8713  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8714  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8715  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8716  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8717  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8718  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8719  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8720  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8721  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8722 
8723 IF (lhook) CALL dr_hook('SU_MCICA:PART28',1,zhook_handle)
8724 END SUBROUTINE part28
8725 
8726 #ifdef VPP5000
8727 !OCL SCALAR
8728 #endif
8729 !option! -Nv -NO
8730 #ifdef RS6K
8731 @process nooptimize
8732 #endif
8733 !pgi$r opt=0
8734 SUBROUTINE part29
8735 
8736 REAL(KIND=JPRB) :: ZHOOK_HANDLE
8737 IF (lhook) CALL dr_hook('SU_MCICA:PART29',0,zhook_handle)
8738 
8739 xcw( 197, :) = (/ &
8740  & 0.913727e+00_jprb, 0.891985e+00_jprb, 0.870202e+00_jprb, 0.848394e+00_jprb &
8741  &, 0.826574e+00_jprb, 0.804759e+00_jprb, 0.782962e+00_jprb &
8742  &, 0.761199e+00_jprb, 0.739488e+00_jprb, 0.717840e+00_jprb, 0.696275e+00_jprb &
8743  &, 0.674807e+00_jprb, 0.653452e+00_jprb, 0.632227e+00_jprb &
8744  &, 0.611149e+00_jprb, 0.590234e+00_jprb, 0.569500e+00_jprb, 0.548964e+00_jprb &
8745  &, 0.528640e+00_jprb, 0.508548e+00_jprb, 0.488708e+00_jprb &
8746  &, 0.469131e+00_jprb, 0.449838e+00_jprb, 0.430849e+00_jprb, 0.412174e+00_jprb &
8747  &, 0.393831e+00_jprb, 0.375843e+00_jprb, 0.358220e+00_jprb &
8748  &, 0.340979e+00_jprb, 0.324130e+00_jprb, 0.307696e+00_jprb, 0.291687e+00_jprb &
8749  &, 0.276112e+00_jprb, 0.260986e+00_jprb, 0.246319e+00_jprb &
8750  &, 0.232115e+00_jprb, 0.218392e+00_jprb, 0.205155e+00_jprb, 0.192409e+00_jprb &
8751  &, 0.180146e+00_jprb, 0.168388e+00_jprb, 0.157123e+00_jprb &
8752  &, 0.146360e+00_jprb, 0.136094e+00_jprb, 0.126318e+00_jprb, 0.117019e+00_jprb &
8753  &, 0.108221e+00_jprb, 0.998816e-01_jprb, 0.920174e-01_jprb &
8754  &, 0.846042e-01_jprb, 0.776399e-01_jprb, 0.711194e-01_jprb, 0.650067e-01_jprb &
8755  &, 0.593030e-01_jprb, 0.539780e-01_jprb, 0.490416e-01_jprb &
8756  &, 0.444715e-01_jprb, 0.402254e-01_jprb, 0.363201e-01_jprb, 0.327225e-01_jprb &
8757  &, 0.294284e-01_jprb, 0.263970e-01_jprb, 0.236356e-01_jprb &
8758  &, 0.211145e-01_jprb, 0.188186e-01_jprb, 0.167303e-01_jprb, 0.148486e-01_jprb &
8759  &, 0.131517e-01_jprb, 0.116353e-01_jprb, 0.102524e-01_jprb &
8760  &, 0.901463e-02_jprb, 0.791231e-02_jprb, 0.693439e-02_jprb, 0.606830e-02_jprb &
8761  &, 0.527702e-02_jprb, 0.459013e-02_jprb, 0.399159e-02_jprb &
8762  &, 0.346368e-02_jprb, 0.298689e-02_jprb, 0.256522e-02_jprb, 0.220273e-02_jprb &
8763  &, 0.190364e-02_jprb, 0.161861e-02_jprb, 0.137629e-02_jprb &
8764  &, 0.117959e-02_jprb, 0.100312e-02_jprb, 0.848339e-03_jprb, 0.716744e-03_jprb &
8765  &, 0.609861e-03_jprb, 0.498710e-03_jprb, 0.414322e-03_jprb &
8766  &, 0.358315e-03_jprb, 0.300108e-03_jprb, 0.239666e-03_jprb, 0.210343e-03_jprb &
8767  &, 0.179888e-03_jprb, 0.148283e-03_jprb, 0.115509e-03_jprb &
8768  &, 0.815494e-04_jprb, 0.827713e-04_jprb, 0.470026e-04_jprb, 0.476254e-04_jprb &
8769  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8770  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8771  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8772  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8773  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8774  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8775  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8776  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8777  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8778  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8779  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8780 xcw( 198, :) = (/ &
8781  & 0.914067e+00_jprb, 0.892403e+00_jprb, 0.870696e+00_jprb, 0.848961e+00_jprb &
8782  &, 0.827211e+00_jprb, 0.805462e+00_jprb, 0.783729e+00_jprb &
8783  &, 0.762028e+00_jprb, 0.740373e+00_jprb, 0.718782e+00_jprb, 0.697268e+00_jprb &
8784  &, 0.675848e+00_jprb, 0.654539e+00_jprb, 0.633357e+00_jprb &
8785  &, 0.612318e+00_jprb, 0.591440e+00_jprb, 0.570738e+00_jprb, 0.550231e+00_jprb &
8786  &, 0.529935e+00_jprb, 0.509868e+00_jprb, 0.490044e+00_jprb &
8787  &, 0.470487e+00_jprb, 0.451208e+00_jprb, 0.432227e+00_jprb, 0.413559e+00_jprb &
8788  &, 0.395225e+00_jprb, 0.377232e+00_jprb, 0.359609e+00_jprb &
8789  &, 0.342359e+00_jprb, 0.325508e+00_jprb, 0.309064e+00_jprb, 0.293038e+00_jprb &
8790  &, 0.277445e+00_jprb, 0.262305e+00_jprb, 0.247616e+00_jprb &
8791  &, 0.233389e+00_jprb, 0.219641e+00_jprb, 0.206377e+00_jprb, 0.193592e+00_jprb &
8792  &, 0.181308e+00_jprb, 0.169515e+00_jprb, 0.158214e+00_jprb &
8793  &, 0.147412e+00_jprb, 0.137104e+00_jprb, 0.127295e+00_jprb, 0.117961e+00_jprb &
8794  &, 0.109125e+00_jprb, 0.100745e+00_jprb, 0.928383e-01_jprb &
8795  &, 0.853926e-01_jprb, 0.783936e-01_jprb, 0.718224e-01_jprb, 0.656701e-01_jprb &
8796  &, 0.599244e-01_jprb, 0.545698e-01_jprb, 0.496018e-01_jprb &
8797  &, 0.449829e-01_jprb, 0.407170e-01_jprb, 0.367744e-01_jprb, 0.331540e-01_jprb &
8798  &, 0.298188e-01_jprb, 0.267615e-01_jprb, 0.239728e-01_jprb &
8799  &, 0.214230e-01_jprb, 0.190969e-01_jprb, 0.169957e-01_jprb, 0.151004e-01_jprb &
8800  &, 0.133694e-01_jprb, 0.118172e-01_jprb, 0.104176e-01_jprb &
8801  &, 0.918333e-02_jprb, 0.806303e-02_jprb, 0.706628e-02_jprb, 0.618049e-02_jprb &
8802  &, 0.539152e-02_jprb, 0.468360e-02_jprb, 0.406311e-02_jprb &
8803  &, 0.353664e-02_jprb, 0.306132e-02_jprb, 0.264112e-02_jprb, 0.225433e-02_jprb &
8804  &, 0.195624e-02_jprb, 0.167223e-02_jprb, 0.143094e-02_jprb &
8805  &, 0.120743e-02_jprb, 0.103149e-02_jprb, 0.877247e-03_jprb, 0.746192e-03_jprb &
8806  &, 0.609861e-03_jprb, 0.529255e-03_jprb, 0.445424e-03_jprb &
8807  &, 0.358315e-03_jprb, 0.300108e-03_jprb, 0.239666e-03_jprb, 0.210343e-03_jprb &
8808  &, 0.179888e-03_jprb, 0.148283e-03_jprb, 0.115509e-03_jprb &
8809  &, 0.815494e-04_jprb, 0.827713e-04_jprb, 0.470026e-04_jprb, 0.476254e-04_jprb &
8810  &, 0.482543e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8811  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8812  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8813  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8814  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8815  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8816  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8817  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8818  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8819  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8820  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8821 xcw( 199, :) = (/ &
8822  & 0.914407e+00_jprb, 0.892821e+00_jprb, 0.871188e+00_jprb, 0.849526e+00_jprb &
8823  &, 0.827846e+00_jprb, 0.806163e+00_jprb, 0.784495e+00_jprb &
8824  &, 0.762855e+00_jprb, 0.741258e+00_jprb, 0.719721e+00_jprb, 0.698259e+00_jprb &
8825  &, 0.676888e+00_jprb, 0.655624e+00_jprb, 0.634485e+00_jprb &
8826  &, 0.613486e+00_jprb, 0.592644e+00_jprb, 0.571975e+00_jprb, 0.551497e+00_jprb &
8827  &, 0.531229e+00_jprb, 0.511184e+00_jprb, 0.491383e+00_jprb &
8828  &, 0.471839e+00_jprb, 0.452575e+00_jprb, 0.433604e+00_jprb, 0.414945e+00_jprb &
8829  &, 0.396610e+00_jprb, 0.378626e+00_jprb, 0.360998e+00_jprb &
8830  &, 0.343743e+00_jprb, 0.326882e+00_jprb, 0.310427e+00_jprb, 0.294390e+00_jprb &
8831  &, 0.278783e+00_jprb, 0.263619e+00_jprb, 0.248909e+00_jprb &
8832  &, 0.234663e+00_jprb, 0.220890e+00_jprb, 0.207590e+00_jprb, 0.194785e+00_jprb &
8833  &, 0.182469e+00_jprb, 0.170643e+00_jprb, 0.159305e+00_jprb &
8834  &, 0.148475e+00_jprb, 0.138126e+00_jprb, 0.128272e+00_jprb, 0.118915e+00_jprb &
8835  &, 0.110029e+00_jprb, 0.101609e+00_jprb, 0.936721e-01_jprb &
8836  &, 0.861810e-01_jprb, 0.791338e-01_jprb, 0.725253e-01_jprb, 0.663334e-01_jprb &
8837  &, 0.605603e-01_jprb, 0.551615e-01_jprb, 0.501621e-01_jprb &
8838  &, 0.455098e-01_jprb, 0.412086e-01_jprb, 0.372287e-01_jprb, 0.335689e-01_jprb &
8839  &, 0.302092e-01_jprb, 0.271261e-01_jprb, 0.242923e-01_jprb &
8840  &, 0.217315e-01_jprb, 0.193751e-01_jprb, 0.172611e-01_jprb, 0.153329e-01_jprb &
8841  &, 0.135871e-01_jprb, 0.120194e-01_jprb, 0.106035e-01_jprb &
8842  &, 0.933095e-02_jprb, 0.821376e-02_jprb, 0.719817e-02_jprb, 0.629268e-02_jprb &
8843  &, 0.548312e-02_jprb, 0.477707e-02_jprb, 0.415848e-02_jprb &
8844  &, 0.360961e-02_jprb, 0.311093e-02_jprb, 0.269171e-02_jprb, 0.230592e-02_jprb &
8845  &, 0.198254e-02_jprb, 0.169904e-02_jprb, 0.145826e-02_jprb &
8846  &, 0.123528e-02_jprb, 0.105987e-02_jprb, 0.906156e-03_jprb, 0.746192e-03_jprb &
8847  &, 0.639854e-03_jprb, 0.529255e-03_jprb, 0.445424e-03_jprb &
8848  &, 0.389979e-03_jprb, 0.300108e-03_jprb, 0.272475e-03_jprb, 0.210343e-03_jprb &
8849  &, 0.179888e-03_jprb, 0.148283e-03_jprb, 0.115509e-03_jprb &
8850  &, 0.815494e-04_jprb, 0.827713e-04_jprb, 0.470026e-04_jprb, 0.476254e-04_jprb &
8851  &, 0.482543e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8852  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8853  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8854  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8855  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8856  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8857  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8858  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8859  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8860  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8861  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8862 xcw( 200, :) = (/ &
8863  & 0.914744e+00_jprb, 0.893236e+00_jprb, 0.871680e+00_jprb, 0.850089e+00_jprb &
8864  &, 0.828478e+00_jprb, 0.806864e+00_jprb, 0.785259e+00_jprb &
8865  &, 0.763678e+00_jprb, 0.742140e+00_jprb, 0.720658e+00_jprb, 0.699248e+00_jprb &
8866  &, 0.677926e+00_jprb, 0.656708e+00_jprb, 0.635611e+00_jprb &
8867  &, 0.614652e+00_jprb, 0.593845e+00_jprb, 0.573209e+00_jprb, 0.552763e+00_jprb &
8868  &, 0.532519e+00_jprb, 0.512498e+00_jprb, 0.492716e+00_jprb &
8869  &, 0.473192e+00_jprb, 0.453942e+00_jprb, 0.434979e+00_jprb, 0.416327e+00_jprb &
8870  &, 0.398000e+00_jprb, 0.380015e+00_jprb, 0.362383e+00_jprb &
8871  &, 0.345128e+00_jprb, 0.328261e+00_jprb, 0.311795e+00_jprb, 0.295741e+00_jprb &
8872  &, 0.280121e+00_jprb, 0.264937e+00_jprb, 0.250211e+00_jprb &
8873  &, 0.235937e+00_jprb, 0.222140e+00_jprb, 0.208812e+00_jprb, 0.195978e+00_jprb &
8874  &, 0.183631e+00_jprb, 0.171770e+00_jprb, 0.160407e+00_jprb &
8875  &, 0.149527e+00_jprb, 0.139148e+00_jprb, 0.129261e+00_jprb, 0.119857e+00_jprb &
8876  &, 0.110934e+00_jprb, 0.102486e+00_jprb, 0.944930e-01_jprb &
8877  &, 0.869694e-01_jprb, 0.798875e-01_jprb, 0.732421e-01_jprb, 0.670109e-01_jprb &
8878  &, 0.611961e-01_jprb, 0.557681e-01_jprb, 0.507224e-01_jprb &
8879  &, 0.460367e-01_jprb, 0.417002e-01_jprb, 0.376830e-01_jprb, 0.340005e-01_jprb &
8880  &, 0.305997e-01_jprb, 0.274906e-01_jprb, 0.246296e-01_jprb &
8881  &, 0.220400e-01_jprb, 0.196719e-01_jprb, 0.175265e-01_jprb, 0.155653e-01_jprb &
8882  &, 0.138048e-01_jprb, 0.122216e-01_jprb, 0.107893e-01_jprb &
8883  &, 0.949965e-02_jprb, 0.834295e-02_jprb, 0.733007e-02_jprb, 0.640488e-02_jprb &
8884  &, 0.559762e-02_jprb, 0.487054e-02_jprb, 0.425385e-02_jprb &
8885  &, 0.368257e-02_jprb, 0.318535e-02_jprb, 0.274231e-02_jprb, 0.235752e-02_jprb &
8886  &, 0.203514e-02_jprb, 0.175266e-02_jprb, 0.148559e-02_jprb &
8887  &, 0.126313e-02_jprb, 0.108824e-02_jprb, 0.935064e-03_jprb, 0.775639e-03_jprb &
8888  &, 0.669847e-03_jprb, 0.559799e-03_jprb, 0.476525e-03_jprb &
8889  &, 0.389979e-03_jprb, 0.332342e-03_jprb, 0.272475e-03_jprb, 0.210343e-03_jprb &
8890  &, 0.179888e-03_jprb, 0.148283e-03_jprb, 0.115509e-03_jprb &
8891  &, 0.815494e-04_jprb, 0.827713e-04_jprb, 0.470026e-04_jprb, 0.476254e-04_jprb &
8892  &, 0.482543e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8893  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8894  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8895  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8896  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8897  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8898  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8899  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8900  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8901  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8902  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8903 xcw( 201, :) = (/ &
8904  & 0.915082e+00_jprb, 0.893652e+00_jprb, 0.872170e+00_jprb, 0.850652e+00_jprb &
8905  &, 0.829110e+00_jprb, 0.807562e+00_jprb, 0.786020e+00_jprb &
8906  &, 0.764502e+00_jprb, 0.743020e+00_jprb, 0.721593e+00_jprb, 0.700235e+00_jprb &
8907  &, 0.678962e+00_jprb, 0.657790e+00_jprb, 0.636734e+00_jprb &
8908  &, 0.615814e+00_jprb, 0.595044e+00_jprb, 0.574443e+00_jprb, 0.554025e+00_jprb &
8909  &, 0.533809e+00_jprb, 0.513811e+00_jprb, 0.494048e+00_jprb &
8910  &, 0.474541e+00_jprb, 0.455305e+00_jprb, 0.436356e+00_jprb, 0.417712e+00_jprb &
8911  &, 0.399389e+00_jprb, 0.381405e+00_jprb, 0.363772e+00_jprb &
8912  &, 0.346512e+00_jprb, 0.329635e+00_jprb, 0.313158e+00_jprb, 0.297096e+00_jprb &
8913  &, 0.281459e+00_jprb, 0.266260e+00_jprb, 0.251508e+00_jprb &
8914  &, 0.237212e+00_jprb, 0.223389e+00_jprb, 0.210044e+00_jprb, 0.197171e+00_jprb &
8915  &, 0.184792e+00_jprb, 0.172898e+00_jprb, 0.161498e+00_jprb &
8916  &, 0.150590e+00_jprb, 0.140181e+00_jprb, 0.130250e+00_jprb, 0.120811e+00_jprb &
8917  &, 0.111850e+00_jprb, 0.103350e+00_jprb, 0.953268e-01_jprb &
8918  &, 0.877578e-01_jprb, 0.806412e-01_jprb, 0.739588e-01_jprb, 0.676884e-01_jprb &
8919  &, 0.618320e-01_jprb, 0.563746e-01_jprb, 0.512827e-01_jprb &
8920  &, 0.465636e-01_jprb, 0.421918e-01_jprb, 0.381535e-01_jprb, 0.344320e-01_jprb &
8921  &, 0.310071e-01_jprb, 0.278552e-01_jprb, 0.249846e-01_jprb &
8922  &, 0.223485e-01_jprb, 0.199501e-01_jprb, 0.177729e-01_jprb, 0.158171e-01_jprb &
8923  &, 0.140225e-01_jprb, 0.124238e-01_jprb, 0.109752e-01_jprb &
8924  &, 0.966836e-02_jprb, 0.849367e-02_jprb, 0.746196e-02_jprb, 0.653950e-02_jprb &
8925  &, 0.571212e-02_jprb, 0.498738e-02_jprb, 0.432537e-02_jprb &
8926  &, 0.375554e-02_jprb, 0.325977e-02_jprb, 0.281821e-02_jprb, 0.243491e-02_jprb &
8927  &, 0.208774e-02_jprb, 0.177947e-02_jprb, 0.154024e-02_jprb &
8928  &, 0.131882e-02_jprb, 0.111662e-02_jprb, 0.935064e-03_jprb, 0.805087e-03_jprb &
8929  &, 0.669847e-03_jprb, 0.559799e-03_jprb, 0.476525e-03_jprb &
8930  &, 0.389979e-03_jprb, 0.332342e-03_jprb, 0.272475e-03_jprb, 0.243734e-03_jprb &
8931  &, 0.179888e-03_jprb, 0.148283e-03_jprb, 0.115509e-03_jprb &
8932  &, 0.117324e-03_jprb, 0.827713e-04_jprb, 0.470026e-04_jprb, 0.476254e-04_jprb &
8933  &, 0.482543e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8934  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8935  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8936  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8937  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8938  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8939  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8940  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8941  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8942  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8943  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8944 xcw( 202, :) = (/ &
8945  & 0.915418e+00_jprb, 0.894066e+00_jprb, 0.872659e+00_jprb, 0.851212e+00_jprb &
8946  &, 0.829740e+00_jprb, 0.808258e+00_jprb, 0.786780e+00_jprb &
8947  &, 0.765322e+00_jprb, 0.743899e+00_jprb, 0.722526e+00_jprb, 0.701220e+00_jprb &
8948  &, 0.679995e+00_jprb, 0.658868e+00_jprb, 0.637856e+00_jprb &
8949  &, 0.616975e+00_jprb, 0.596242e+00_jprb, 0.575674e+00_jprb, 0.555285e+00_jprb &
8950  &, 0.535096e+00_jprb, 0.515121e+00_jprb, 0.495381e+00_jprb &
8951  &, 0.475891e+00_jprb, 0.456669e+00_jprb, 0.437731e+00_jprb, 0.419094e+00_jprb &
8952  &, 0.400775e+00_jprb, 0.382791e+00_jprb, 0.365161e+00_jprb &
8953  &, 0.347896e+00_jprb, 0.331013e+00_jprb, 0.314526e+00_jprb, 0.298448e+00_jprb &
8954  &, 0.282796e+00_jprb, 0.267578e+00_jprb, 0.252805e+00_jprb &
8955  &, 0.238486e+00_jprb, 0.224638e+00_jprb, 0.211267e+00_jprb, 0.198364e+00_jprb &
8956  &, 0.185954e+00_jprb, 0.174036e+00_jprb, 0.162600e+00_jprb &
8957  &, 0.151654e+00_jprb, 0.141202e+00_jprb, 0.131239e+00_jprb, 0.121765e+00_jprb &
8958  &, 0.112754e+00_jprb, 0.104226e+00_jprb, 0.961733e-01_jprb &
8959  &, 0.885593e-01_jprb, 0.813949e-01_jprb, 0.746756e-01_jprb, 0.683659e-01_jprb &
8960  &, 0.624678e-01_jprb, 0.569664e-01_jprb, 0.518581e-01_jprb &
8961  &, 0.470905e-01_jprb, 0.426834e-01_jprb, 0.386078e-01_jprb, 0.348635e-01_jprb &
8962  &, 0.313975e-01_jprb, 0.282197e-01_jprb, 0.253219e-01_jprb &
8963  &, 0.226751e-01_jprb, 0.202469e-01_jprb, 0.180573e-01_jprb, 0.160496e-01_jprb &
8964  &, 0.142402e-01_jprb, 0.126260e-01_jprb, 0.111610e-01_jprb &
8965  &, 0.983706e-02_jprb, 0.864440e-02_jprb, 0.759385e-02_jprb, 0.665170e-02_jprb &
8966  &, 0.582662e-02_jprb, 0.508085e-02_jprb, 0.442074e-02_jprb &
8967  &, 0.382850e-02_jprb, 0.333420e-02_jprb, 0.286881e-02_jprb, 0.248650e-02_jprb &
8968  &, 0.214034e-02_jprb, 0.183309e-02_jprb, 0.156757e-02_jprb &
8969  &, 0.134667e-02_jprb, 0.114499e-02_jprb, 0.963972e-03_jprb, 0.834535e-03_jprb &
8970  &, 0.699840e-03_jprb, 0.590343e-03_jprb, 0.476525e-03_jprb &
8971  &, 0.421644e-03_jprb, 0.332342e-03_jprb, 0.272475e-03_jprb, 0.243734e-03_jprb &
8972  &, 0.179888e-03_jprb, 0.148283e-03_jprb, 0.115509e-03_jprb &
8973  &, 0.117324e-03_jprb, 0.827713e-04_jprb, 0.470026e-04_jprb, 0.476254e-04_jprb &
8974  &, 0.482543e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8975  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8976  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8977  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8978  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8979  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8980  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8981  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8982  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8983  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
8984  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
8985 xcw( 203, :) = (/ &
8986  & 0.915755e+00_jprb, 0.894479e+00_jprb, 0.873146e+00_jprb, 0.851772e+00_jprb &
8987  &, 0.830369e+00_jprb, 0.808953e+00_jprb, 0.787538e+00_jprb &
8988  &, 0.766141e+00_jprb, 0.744776e+00_jprb, 0.723457e+00_jprb, 0.702203e+00_jprb &
8989  &, 0.681026e+00_jprb, 0.659945e+00_jprb, 0.638977e+00_jprb &
8990  &, 0.618135e+00_jprb, 0.597437e+00_jprb, 0.576902e+00_jprb, 0.556545e+00_jprb &
8991  &, 0.536382e+00_jprb, 0.516431e+00_jprb, 0.496711e+00_jprb &
8992  &, 0.477240e+00_jprb, 0.458032e+00_jprb, 0.439105e+00_jprb, 0.420476e+00_jprb &
8993  &, 0.402161e+00_jprb, 0.384180e+00_jprb, 0.366547e+00_jprb &
8994  &, 0.349280e+00_jprb, 0.332388e+00_jprb, 0.315893e+00_jprb, 0.299803e+00_jprb &
8995  &, 0.284134e+00_jprb, 0.268901e+00_jprb, 0.254107e+00_jprb &
8996  &, 0.239770e+00_jprb, 0.225897e+00_jprb, 0.212489e+00_jprb, 0.199567e+00_jprb &
8997  &, 0.187125e+00_jprb, 0.175164e+00_jprb, 0.163702e+00_jprb &
8998  &, 0.152728e+00_jprb, 0.142235e+00_jprb, 0.132240e+00_jprb, 0.122719e+00_jprb &
8999  &, 0.113683e+00_jprb, 0.105115e+00_jprb, 0.970071e-01_jprb &
9000  &, 0.893609e-01_jprb, 0.821620e-01_jprb, 0.753923e-01_jprb, 0.690575e-01_jprb &
9001  &, 0.631181e-01_jprb, 0.575877e-01_jprb, 0.524184e-01_jprb &
9002  &, 0.476329e-01_jprb, 0.431908e-01_jprb, 0.390783e-01_jprb, 0.352950e-01_jprb &
9003  &, 0.318049e-01_jprb, 0.286017e-01_jprb, 0.256769e-01_jprb &
9004  &, 0.229836e-01_jprb, 0.205437e-01_jprb, 0.183227e-01_jprb, 0.163014e-01_jprb &
9005  &, 0.144777e-01_jprb, 0.128281e-01_jprb, 0.113469e-01_jprb &
9006  &, 0.100058e-01_jprb, 0.881666e-02_jprb, 0.772575e-02_jprb, 0.678632e-02_jprb &
9007  &, 0.591822e-02_jprb, 0.517433e-02_jprb, 0.451611e-02_jprb &
9008  &, 0.392579e-02_jprb, 0.338381e-02_jprb, 0.294471e-02_jprb, 0.253809e-02_jprb &
9009  &, 0.219294e-02_jprb, 0.185990e-02_jprb, 0.159489e-02_jprb &
9010  &, 0.137452e-02_jprb, 0.117337e-02_jprb, 0.992880e-03_jprb, 0.834535e-03_jprb &
9011  &, 0.699840e-03_jprb, 0.590343e-03_jprb, 0.507627e-03_jprb &
9012  &, 0.421644e-03_jprb, 0.364576e-03_jprb, 0.305284e-03_jprb, 0.243734e-03_jprb &
9013  &, 0.213866e-03_jprb, 0.148283e-03_jprb, 0.150679e-03_jprb &
9014  &, 0.117324e-03_jprb, 0.827713e-04_jprb, 0.840051e-04_jprb, 0.476254e-04_jprb &
9015  &, 0.482543e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9016  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9017  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9018  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9019  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9020  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9021  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9022  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9023  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9024  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9025  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9026 
9027 IF (lhook) CALL dr_hook('SU_MCICA:PART29',1,zhook_handle)
9028 END SUBROUTINE part29
9029 
9030 #ifdef VPP5000
9031 !OCL SCALAR
9032 #endif
9033 !option! -Nv -NO
9034 #ifdef RS6K
9035 @process nooptimize
9036 #endif
9037 !pgi$r opt=0
9038 SUBROUTINE part30
9039 
9040 REAL(KIND=JPRB) :: ZHOOK_HANDLE
9041 IF (lhook) CALL dr_hook('SU_MCICA:PART30',0,zhook_handle)
9042 
9043 xcw( 204, :) = (/ &
9044  & 0.916088e+00_jprb, 0.894890e+00_jprb, 0.873632e+00_jprb, 0.852330e+00_jprb &
9045  &, 0.830996e+00_jprb, 0.809646e+00_jprb, 0.788294e+00_jprb &
9046  &, 0.766958e+00_jprb, 0.745650e+00_jprb, 0.724387e+00_jprb, 0.703184e+00_jprb &
9047  &, 0.682057e+00_jprb, 0.661021e+00_jprb, 0.640094e+00_jprb &
9048  &, 0.619292e+00_jprb, 0.598631e+00_jprb, 0.578129e+00_jprb, 0.557802e+00_jprb &
9049  &, 0.537666e+00_jprb, 0.517742e+00_jprb, 0.498040e+00_jprb &
9050  &, 0.478586e+00_jprb, 0.459392e+00_jprb, 0.440476e+00_jprb, 0.421854e+00_jprb &
9051  &, 0.403547e+00_jprb, 0.385570e+00_jprb, 0.367936e+00_jprb &
9052  &, 0.350660e+00_jprb, 0.333766e+00_jprb, 0.317257e+00_jprb, 0.301159e+00_jprb &
9053  &, 0.285476e+00_jprb, 0.270224e+00_jprb, 0.255409e+00_jprb &
9054  &, 0.241053e+00_jprb, 0.227146e+00_jprb, 0.213721e+00_jprb, 0.200770e+00_jprb &
9055  &, 0.188297e+00_jprb, 0.176302e+00_jprb, 0.164804e+00_jprb &
9056  &, 0.153791e+00_jprb, 0.143268e+00_jprb, 0.133229e+00_jprb, 0.123673e+00_jprb &
9057  &, 0.114599e+00_jprb, 0.105991e+00_jprb, 0.978537e-01_jprb &
9058  &, 0.901624e-01_jprb, 0.829292e-01_jprb, 0.761228e-01_jprb, 0.697350e-01_jprb &
9059  &, 0.637684e-01_jprb, 0.581943e-01_jprb, 0.529938e-01_jprb &
9060  &, 0.481753e-01_jprb, 0.436983e-01_jprb, 0.395488e-01_jprb, 0.357265e-01_jprb &
9061  &, 0.322123e-01_jprb, 0.289836e-01_jprb, 0.260141e-01_jprb &
9062  &, 0.233103e-01_jprb, 0.208405e-01_jprb, 0.185881e-01_jprb, 0.165533e-01_jprb &
9063  &, 0.146955e-01_jprb, 0.130303e-01_jprb, 0.115327e-01_jprb &
9064  &, 0.101745e-01_jprb, 0.896738e-02_jprb, 0.787962e-02_jprb, 0.689851e-02_jprb &
9065  &, 0.603272e-02_jprb, 0.526780e-02_jprb, 0.458763e-02_jprb &
9066  &, 0.399875e-02_jprb, 0.345823e-02_jprb, 0.299530e-02_jprb, 0.258969e-02_jprb &
9067  &, 0.221925e-02_jprb, 0.191352e-02_jprb, 0.164954e-02_jprb &
9068  &, 0.140236e-02_jprb, 0.120174e-02_jprb, 0.102179e-02_jprb, 0.863982e-03_jprb &
9069  &, 0.729833e-03_jprb, 0.620888e-03_jprb, 0.507627e-03_jprb &
9070  &, 0.421644e-03_jprb, 0.364576e-03_jprb, 0.305284e-03_jprb, 0.243734e-03_jprb &
9071  &, 0.213866e-03_jprb, 0.182853e-03_jprb, 0.150679e-03_jprb &
9072  &, 0.117324e-03_jprb, 0.827713e-04_jprb, 0.840051e-04_jprb, 0.476254e-04_jprb &
9073  &, 0.482543e-04_jprb, 0.488890e-04_jprb, 0.100000e-04_jprb &
9074  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9075  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9076  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9077  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9078  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9079  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9080  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9081  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9082  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9083  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9084 xcw( 205, :) = (/ &
9085  & 0.916422e+00_jprb, 0.895301e+00_jprb, 0.874117e+00_jprb, 0.852886e+00_jprb &
9086  &, 0.831621e+00_jprb, 0.810338e+00_jprb, 0.789050e+00_jprb &
9087  &, 0.767773e+00_jprb, 0.746522e+00_jprb, 0.725314e+00_jprb, 0.704162e+00_jprb &
9088  &, 0.683084e+00_jprb, 0.662094e+00_jprb, 0.641210e+00_jprb &
9089  &, 0.620449e+00_jprb, 0.599823e+00_jprb, 0.579354e+00_jprb, 0.559058e+00_jprb &
9090  &, 0.538950e+00_jprb, 0.519045e+00_jprb, 0.499369e+00_jprb &
9091  &, 0.479933e+00_jprb, 0.460752e+00_jprb, 0.441847e+00_jprb, 0.423236e+00_jprb &
9092  &, 0.404933e+00_jprb, 0.386955e+00_jprb, 0.369321e+00_jprb &
9093  &, 0.352044e+00_jprb, 0.335141e+00_jprb, 0.318624e+00_jprb, 0.302514e+00_jprb &
9094  &, 0.286814e+00_jprb, 0.271547e+00_jprb, 0.256715e+00_jprb &
9095  &, 0.242327e+00_jprb, 0.228405e+00_jprb, 0.214953e+00_jprb, 0.201974e+00_jprb &
9096  &, 0.189469e+00_jprb, 0.177450e+00_jprb, 0.165917e+00_jprb &
9097  &, 0.154865e+00_jprb, 0.144301e+00_jprb, 0.134229e+00_jprb, 0.124639e+00_jprb &
9098  &, 0.115528e+00_jprb, 0.106880e+00_jprb, 0.987002e-01_jprb &
9099  &, 0.909771e-01_jprb, 0.836963e-01_jprb, 0.768534e-01_jprb, 0.704266e-01_jprb &
9100  &, 0.644187e-01_jprb, 0.588156e-01_jprb, 0.535843e-01_jprb &
9101  &, 0.487177e-01_jprb, 0.442057e-01_jprb, 0.400355e-01_jprb, 0.361747e-01_jprb &
9102  &, 0.326197e-01_jprb, 0.293655e-01_jprb, 0.263691e-01_jprb &
9103  &, 0.236369e-01_jprb, 0.211373e-01_jprb, 0.188725e-01_jprb, 0.168051e-01_jprb &
9104  &, 0.149330e-01_jprb, 0.132325e-01_jprb, 0.117186e-01_jprb &
9105  &, 0.103432e-01_jprb, 0.911811e-02_jprb, 0.801151e-02_jprb, 0.703314e-02_jprb &
9106  &, 0.614722e-02_jprb, 0.538464e-02_jprb, 0.468300e-02_jprb &
9107  &, 0.407172e-02_jprb, 0.353266e-02_jprb, 0.307120e-02_jprb, 0.264128e-02_jprb &
9108  &, 0.227185e-02_jprb, 0.196714e-02_jprb, 0.167687e-02_jprb &
9109  &, 0.143021e-02_jprb, 0.123012e-02_jprb, 0.105070e-02_jprb, 0.893430e-03_jprb &
9110  &, 0.759826e-03_jprb, 0.620888e-03_jprb, 0.538729e-03_jprb &
9111  &, 0.453309e-03_jprb, 0.364576e-03_jprb, 0.305284e-03_jprb, 0.243734e-03_jprb &
9112  &, 0.213866e-03_jprb, 0.182853e-03_jprb, 0.150679e-03_jprb &
9113  &, 0.117324e-03_jprb, 0.827713e-04_jprb, 0.840051e-04_jprb, 0.476254e-04_jprb &
9114  &, 0.482543e-04_jprb, 0.488890e-04_jprb, 0.100000e-04_jprb &
9115  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9116  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9117  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9118  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9119  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9120  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9121  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9122  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9123  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9124  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9125 xcw( 206, :) = (/ &
9126  & 0.916754e+00_jprb, 0.895710e+00_jprb, 0.874600e+00_jprb, 0.853441e+00_jprb &
9127  &, 0.832245e+00_jprb, 0.811027e+00_jprb, 0.789803e+00_jprb &
9128  &, 0.768587e+00_jprb, 0.747393e+00_jprb, 0.726239e+00_jprb, 0.705140e+00_jprb &
9129  &, 0.684110e+00_jprb, 0.663166e+00_jprb, 0.642325e+00_jprb &
9130  &, 0.621601e+00_jprb, 0.601014e+00_jprb, 0.580578e+00_jprb, 0.560311e+00_jprb &
9131  &, 0.540231e+00_jprb, 0.520352e+00_jprb, 0.500695e+00_jprb &
9132  &, 0.481275e+00_jprb, 0.462112e+00_jprb, 0.443218e+00_jprb, 0.424615e+00_jprb &
9133  &, 0.406319e+00_jprb, 0.388341e+00_jprb, 0.370706e+00_jprb &
9134  &, 0.353429e+00_jprb, 0.336519e+00_jprb, 0.319992e+00_jprb, 0.303870e+00_jprb &
9135  &, 0.288156e+00_jprb, 0.272869e+00_jprb, 0.258017e+00_jprb &
9136  &, 0.243611e+00_jprb, 0.229664e+00_jprb, 0.216185e+00_jprb, 0.203177e+00_jprb &
9137  &, 0.190641e+00_jprb, 0.178589e+00_jprb, 0.167019e+00_jprb &
9138  &, 0.155939e+00_jprb, 0.145346e+00_jprb, 0.135230e+00_jprb, 0.125604e+00_jprb &
9139  &, 0.116444e+00_jprb, 0.107769e+00_jprb, 0.995468e-01_jprb &
9140  &, 0.917786e-01_jprb, 0.844635e-01_jprb, 0.775839e-01_jprb, 0.711323e-01_jprb &
9141  &, 0.650835e-01_jprb, 0.594222e-01_jprb, 0.541598e-01_jprb &
9142  &, 0.492601e-01_jprb, 0.447132e-01_jprb, 0.405060e-01_jprb, 0.366228e-01_jprb &
9143  &, 0.330441e-01_jprb, 0.297474e-01_jprb, 0.267241e-01_jprb &
9144  &, 0.239635e-01_jprb, 0.214340e-01_jprb, 0.191379e-01_jprb, 0.170569e-01_jprb &
9145  &, 0.151705e-01_jprb, 0.134549e-01_jprb, 0.119044e-01_jprb &
9146  &, 0.105330e-01_jprb, 0.926883e-02_jprb, 0.816539e-02_jprb, 0.716777e-02_jprb &
9147  &, 0.626173e-02_jprb, 0.547811e-02_jprb, 0.477837e-02_jprb &
9148  &, 0.416900e-02_jprb, 0.360708e-02_jprb, 0.312180e-02_jprb, 0.269288e-02_jprb &
9149  &, 0.232445e-02_jprb, 0.199395e-02_jprb, 0.173152e-02_jprb &
9150  &, 0.148591e-02_jprb, 0.125849e-02_jprb, 0.107960e-02_jprb, 0.922878e-03_jprb &
9151  &, 0.759826e-03_jprb, 0.651432e-03_jprb, 0.538729e-03_jprb &
9152  &, 0.453309e-03_jprb, 0.396810e-03_jprb, 0.338094e-03_jprb, 0.277124e-03_jprb &
9153  &, 0.213866e-03_jprb, 0.182853e-03_jprb, 0.150679e-03_jprb &
9154  &, 0.117324e-03_jprb, 0.827713e-04_jprb, 0.840051e-04_jprb, 0.476254e-04_jprb &
9155  &, 0.482543e-04_jprb, 0.488890e-04_jprb, 0.100000e-04_jprb &
9156  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9157  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9158  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9159  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9160  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9161  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9162  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9163  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9164  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9165  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9166 xcw( 207, :) = (/ &
9167  & 0.917086e+00_jprb, 0.896119e+00_jprb, 0.875083e+00_jprb, 0.853995e+00_jprb &
9168  &, 0.832867e+00_jprb, 0.811716e+00_jprb, 0.790554e+00_jprb &
9169  &, 0.769398e+00_jprb, 0.748263e+00_jprb, 0.727163e+00_jprb, 0.706115e+00_jprb &
9170  &, 0.685134e+00_jprb, 0.664235e+00_jprb, 0.643437e+00_jprb &
9171  &, 0.622754e+00_jprb, 0.602202e+00_jprb, 0.581800e+00_jprb, 0.561564e+00_jprb &
9172  &, 0.541511e+00_jprb, 0.521656e+00_jprb, 0.502018e+00_jprb &
9173  &, 0.482618e+00_jprb, 0.463469e+00_jprb, 0.444588e+00_jprb, 0.425993e+00_jprb &
9174  &, 0.407701e+00_jprb, 0.389731e+00_jprb, 0.372095e+00_jprb &
9175  &, 0.354809e+00_jprb, 0.337893e+00_jprb, 0.321359e+00_jprb, 0.305225e+00_jprb &
9176  &, 0.289498e+00_jprb, 0.274192e+00_jprb, 0.259323e+00_jprb &
9177  &, 0.244895e+00_jprb, 0.230923e+00_jprb, 0.217417e+00_jprb, 0.204380e+00_jprb &
9178  &, 0.191823e+00_jprb, 0.179737e+00_jprb, 0.168131e+00_jprb &
9179  &, 0.157025e+00_jprb, 0.146390e+00_jprb, 0.136242e+00_jprb, 0.126570e+00_jprb &
9180  &, 0.117385e+00_jprb, 0.108658e+00_jprb, 0.100406e+00_jprb &
9181  &, 0.925933e-01_jprb, 0.852441e-01_jprb, 0.783282e-01_jprb, 0.718239e-01_jprb &
9182  &, 0.657338e-01_jprb, 0.600583e-01_jprb, 0.547503e-01_jprb &
9183  &, 0.498180e-01_jprb, 0.452365e-01_jprb, 0.409928e-01_jprb, 0.370709e-01_jprb &
9184  &, 0.334515e-01_jprb, 0.301293e-01_jprb, 0.270791e-01_jprb &
9185  &, 0.242902e-01_jprb, 0.217494e-01_jprb, 0.194222e-01_jprb, 0.173088e-01_jprb &
9186  &, 0.154080e-01_jprb, 0.136773e-01_jprb, 0.121109e-01_jprb &
9187  &, 0.107017e-01_jprb, 0.944109e-02_jprb, 0.829728e-02_jprb, 0.730240e-02_jprb &
9188  &, 0.639913e-02_jprb, 0.559495e-02_jprb, 0.487374e-02_jprb &
9189  &, 0.424197e-02_jprb, 0.368150e-02_jprb, 0.319770e-02_jprb, 0.277027e-02_jprb &
9190  &, 0.237705e-02_jprb, 0.204757e-02_jprb, 0.175885e-02_jprb &
9191  &, 0.151375e-02_jprb, 0.128687e-02_jprb, 0.110851e-02_jprb, 0.922878e-03_jprb &
9192  &, 0.789819e-03_jprb, 0.681977e-03_jprb, 0.569830e-03_jprb &
9193  &, 0.484974e-03_jprb, 0.396810e-03_jprb, 0.338094e-03_jprb, 0.277124e-03_jprb &
9194  &, 0.213866e-03_jprb, 0.182853e-03_jprb, 0.150679e-03_jprb &
9195  &, 0.117324e-03_jprb, 0.827713e-04_jprb, 0.840051e-04_jprb, 0.476254e-04_jprb &
9196  &, 0.482543e-04_jprb, 0.488890e-04_jprb, 0.100000e-04_jprb &
9197  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9198  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9199  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9200  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9201  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9202  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9203  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9204  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9205  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9206  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9207 xcw( 208, :) = (/ &
9208  & 0.917419e+00_jprb, 0.896527e+00_jprb, 0.875564e+00_jprb, 0.854548e+00_jprb &
9209  &, 0.833488e+00_jprb, 0.812402e+00_jprb, 0.791304e+00_jprb &
9210  &, 0.770208e+00_jprb, 0.749130e+00_jprb, 0.728085e+00_jprb, 0.707088e+00_jprb &
9211  &, 0.686155e+00_jprb, 0.665302e+00_jprb, 0.644547e+00_jprb &
9212  &, 0.623903e+00_jprb, 0.603388e+00_jprb, 0.583020e+00_jprb, 0.562814e+00_jprb &
9213  &, 0.542788e+00_jprb, 0.522957e+00_jprb, 0.503345e+00_jprb &
9214  &, 0.483961e+00_jprb, 0.464825e+00_jprb, 0.445956e+00_jprb, 0.427371e+00_jprb &
9215  &, 0.409083e+00_jprb, 0.391117e+00_jprb, 0.373481e+00_jprb &
9216  &, 0.356193e+00_jprb, 0.339272e+00_jprb, 0.322731e+00_jprb, 0.306581e+00_jprb &
9217  &, 0.290840e+00_jprb, 0.275519e+00_jprb, 0.260630e+00_jprb &
9218  &, 0.246187e+00_jprb, 0.232191e+00_jprb, 0.218659e+00_jprb, 0.205593e+00_jprb &
9219  &, 0.192995e+00_jprb, 0.180886e+00_jprb, 0.169255e+00_jprb &
9220  &, 0.158099e+00_jprb, 0.147434e+00_jprb, 0.137254e+00_jprb, 0.127548e+00_jprb &
9221  &, 0.118314e+00_jprb, 0.109560e+00_jprb, 0.101253e+00_jprb &
9222  &, 0.934211e-01_jprb, 0.860247e-01_jprb, 0.790587e-01_jprb, 0.725296e-01_jprb &
9223  &, 0.663985e-01_jprb, 0.606796e-01_jprb, 0.553409e-01_jprb &
9224  &, 0.503759e-01_jprb, 0.457598e-01_jprb, 0.414795e-01_jprb, 0.375190e-01_jprb &
9225  &, 0.338759e-01_jprb, 0.305286e-01_jprb, 0.274519e-01_jprb &
9226  &, 0.246350e-01_jprb, 0.220647e-01_jprb, 0.197066e-01_jprb, 0.175800e-01_jprb &
9227  &, 0.156455e-01_jprb, 0.138795e-01_jprb, 0.122968e-01_jprb &
9228  &, 0.108704e-01_jprb, 0.959182e-02_jprb, 0.845116e-02_jprb, 0.741459e-02_jprb &
9229  &, 0.651363e-02_jprb, 0.568842e-02_jprb, 0.496910e-02_jprb &
9230  &, 0.433926e-02_jprb, 0.375592e-02_jprb, 0.327359e-02_jprb, 0.282186e-02_jprb &
9231  &, 0.242965e-02_jprb, 0.210119e-02_jprb, 0.181350e-02_jprb &
9232  &, 0.154160e-02_jprb, 0.131524e-02_jprb, 0.113742e-02_jprb, 0.952325e-03_jprb &
9233  &, 0.819812e-03_jprb, 0.681977e-03_jprb, 0.569830e-03_jprb &
9234  &, 0.484974e-03_jprb, 0.396810e-03_jprb, 0.338094e-03_jprb, 0.277124e-03_jprb &
9235  &, 0.247843e-03_jprb, 0.182853e-03_jprb, 0.150679e-03_jprb &
9236  &, 0.117324e-03_jprb, 0.119157e-03_jprb, 0.840051e-04_jprb, 0.476254e-04_jprb &
9237  &, 0.482543e-04_jprb, 0.488890e-04_jprb, 0.100000e-04_jprb &
9238  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9239  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9240  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9241  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9242  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9243  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9244  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9245  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9246  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9247  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9248 xcw( 209, :) = (/ &
9249  & 0.917749e+00_jprb, 0.896933e+00_jprb, 0.876044e+00_jprb, 0.855098e+00_jprb &
9250  &, 0.834107e+00_jprb, 0.813088e+00_jprb, 0.792052e+00_jprb &
9251  &, 0.771016e+00_jprb, 0.749996e+00_jprb, 0.729005e+00_jprb, 0.708060e+00_jprb &
9252  &, 0.687176e+00_jprb, 0.666369e+00_jprb, 0.645655e+00_jprb &
9253  &, 0.625051e+00_jprb, 0.604573e+00_jprb, 0.584239e+00_jprb, 0.564063e+00_jprb &
9254  &, 0.544065e+00_jprb, 0.524258e+00_jprb, 0.504664e+00_jprb &
9255  &, 0.485300e+00_jprb, 0.466182e+00_jprb, 0.447323e+00_jprb, 0.428746e+00_jprb &
9256  &, 0.410469e+00_jprb, 0.392502e+00_jprb, 0.374866e+00_jprb &
9257  &, 0.357577e+00_jprb, 0.340650e+00_jprb, 0.324099e+00_jprb, 0.307940e+00_jprb &
9258  &, 0.292178e+00_jprb, 0.276847e+00_jprb, 0.261941e+00_jprb &
9259  &, 0.247471e+00_jprb, 0.233450e+00_jprb, 0.219891e+00_jprb, 0.206796e+00_jprb &
9260  &, 0.194177e+00_jprb, 0.182034e+00_jprb, 0.170368e+00_jprb &
9261  &, 0.159184e+00_jprb, 0.148479e+00_jprb, 0.138267e+00_jprb, 0.128514e+00_jprb &
9262  &, 0.119255e+00_jprb, 0.110448e+00_jprb, 0.102125e+00_jprb &
9263  &, 0.942358e-01_jprb, 0.868053e-01_jprb, 0.798030e-01_jprb, 0.732353e-01_jprb &
9264  &, 0.670777e-01_jprb, 0.613158e-01_jprb, 0.559314e-01_jprb &
9265  &, 0.509338e-01_jprb, 0.462831e-01_jprb, 0.419662e-01_jprb, 0.379837e-01_jprb &
9266  &, 0.343003e-01_jprb, 0.309279e-01_jprb, 0.278069e-01_jprb &
9267  &, 0.249616e-01_jprb, 0.223615e-01_jprb, 0.199909e-01_jprb, 0.178318e-01_jprb &
9268  &, 0.158830e-01_jprb, 0.141019e-01_jprb, 0.125033e-01_jprb &
9269  &, 0.110602e-01_jprb, 0.976407e-02_jprb, 0.860503e-02_jprb, 0.754922e-02_jprb &
9270  &, 0.662813e-02_jprb, 0.580526e-02_jprb, 0.506447e-02_jprb &
9271  &, 0.441222e-02_jprb, 0.383035e-02_jprb, 0.332419e-02_jprb, 0.287345e-02_jprb &
9272  &, 0.248225e-02_jprb, 0.215481e-02_jprb, 0.184082e-02_jprb &
9273  &, 0.156945e-02_jprb, 0.134362e-02_jprb, 0.116633e-02_jprb, 0.981773e-03_jprb &
9274  &, 0.849805e-03_jprb, 0.712521e-03_jprb, 0.600932e-03_jprb &
9275  &, 0.516639e-03_jprb, 0.429044e-03_jprb, 0.338094e-03_jprb, 0.310515e-03_jprb &
9276  &, 0.247843e-03_jprb, 0.217424e-03_jprb, 0.150679e-03_jprb &
9277  &, 0.117324e-03_jprb, 0.119157e-03_jprb, 0.840051e-04_jprb, 0.852508e-04_jprb &
9278  &, 0.482543e-04_jprb, 0.488890e-04_jprb, 0.100000e-04_jprb &
9279  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9280  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9281  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9282  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9283  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9284  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9285  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9286  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9287  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9288  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9289 xcw( 210, :) = (/ &
9290  & 0.918076e+00_jprb, 0.897338e+00_jprb, 0.876523e+00_jprb, 0.855648e+00_jprb &
9291  &, 0.834726e+00_jprb, 0.813771e+00_jprb, 0.792799e+00_jprb &
9292  &, 0.771823e+00_jprb, 0.750859e+00_jprb, 0.729923e+00_jprb, 0.709029e+00_jprb &
9293  &, 0.688193e+00_jprb, 0.667432e+00_jprb, 0.646762e+00_jprb &
9294  &, 0.626198e+00_jprb, 0.605757e+00_jprb, 0.585455e+00_jprb, 0.565311e+00_jprb &
9295  &, 0.545339e+00_jprb, 0.525559e+00_jprb, 0.505987e+00_jprb &
9296  &, 0.486640e+00_jprb, 0.467535e+00_jprb, 0.448691e+00_jprb, 0.430124e+00_jprb &
9297  &, 0.411851e+00_jprb, 0.393888e+00_jprb, 0.376251e+00_jprb &
9298  &, 0.358957e+00_jprb, 0.342024e+00_jprb, 0.325466e+00_jprb, 0.309296e+00_jprb &
9299  &, 0.293529e+00_jprb, 0.278174e+00_jprb, 0.263247e+00_jprb &
9300  &, 0.248755e+00_jprb, 0.234719e+00_jprb, 0.221133e+00_jprb, 0.208009e+00_jprb &
9301  &, 0.195359e+00_jprb, 0.183183e+00_jprb, 0.171491e+00_jprb &
9302  &, 0.160270e+00_jprb, 0.149535e+00_jprb, 0.139279e+00_jprb, 0.129492e+00_jprb &
9303  &, 0.120196e+00_jprb, 0.111350e+00_jprb, 0.102984e+00_jprb &
9304  &, 0.950636e-01_jprb, 0.875859e-01_jprb, 0.805611e-01_jprb, 0.739411e-01_jprb &
9305  &, 0.677425e-01_jprb, 0.619371e-01_jprb, 0.565371e-01_jprb &
9306  &, 0.514917e-01_jprb, 0.468064e-01_jprb, 0.424530e-01_jprb, 0.384484e-01_jprb &
9307  &, 0.347417e-01_jprb, 0.313272e-01_jprb, 0.281797e-01_jprb &
9308  &, 0.253064e-01_jprb, 0.226768e-01_jprb, 0.202753e-01_jprb, 0.181030e-01_jprb &
9309  &, 0.161205e-01_jprb, 0.143243e-01_jprb, 0.127098e-01_jprb &
9310  &, 0.112500e-01_jprb, 0.993633e-02_jprb, 0.875891e-02_jprb, 0.770629e-02_jprb &
9311  &, 0.674263e-02_jprb, 0.592210e-02_jprb, 0.515984e-02_jprb &
9312  &, 0.450951e-02_jprb, 0.392958e-02_jprb, 0.340009e-02_jprb, 0.295084e-02_jprb &
9313  &, 0.253485e-02_jprb, 0.218162e-02_jprb, 0.189548e-02_jprb &
9314  &, 0.162514e-02_jprb, 0.140036e-02_jprb, 0.119524e-02_jprb, 0.101122e-02_jprb &
9315  &, 0.849805e-03_jprb, 0.712521e-03_jprb, 0.600932e-03_jprb &
9316  &, 0.516639e-03_jprb, 0.429044e-03_jprb, 0.370903e-03_jprb, 0.310515e-03_jprb &
9317  &, 0.247843e-03_jprb, 0.217424e-03_jprb, 0.185849e-03_jprb &
9318  &, 0.153099e-03_jprb, 0.119157e-03_jprb, 0.840051e-04_jprb, 0.852508e-04_jprb &
9319  &, 0.482543e-04_jprb, 0.488890e-04_jprb, 0.495298e-04_jprb &
9320  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9321  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9322  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9323  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9324  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9325  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9326  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9327  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9328  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9329  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9330 
9331 IF (lhook) CALL dr_hook('SU_MCICA:PART30',1,zhook_handle)
9332 END SUBROUTINE part30
9333 
9334 #ifdef VPP5000
9335 !OCL SCALAR
9336 #endif
9337 !option! -Nv -NO
9338 #ifdef RS6K
9339 @process nooptimize
9340 #endif
9341 !pgi$r opt=0
9342 SUBROUTINE part31
9343 
9344 REAL(KIND=JPRB) :: ZHOOK_HANDLE
9345 IF (lhook) CALL dr_hook('SU_MCICA:PART31',0,zhook_handle)
9346 
9347 xcw( 211, :) = (/ &
9348  & 0.918405e+00_jprb, 0.897743e+00_jprb, 0.877001e+00_jprb, 0.856197e+00_jprb &
9349  &, 0.835343e+00_jprb, 0.814453e+00_jprb, 0.793543e+00_jprb &
9350  &, 0.772628e+00_jprb, 0.751721e+00_jprb, 0.730839e+00_jprb, 0.709997e+00_jprb &
9351  &, 0.689210e+00_jprb, 0.668495e+00_jprb, 0.647867e+00_jprb &
9352  &, 0.627342e+00_jprb, 0.606939e+00_jprb, 0.586671e+00_jprb, 0.566557e+00_jprb &
9353  &, 0.546613e+00_jprb, 0.526856e+00_jprb, 0.507307e+00_jprb &
9354  &, 0.487976e+00_jprb, 0.468888e+00_jprb, 0.450058e+00_jprb, 0.431499e+00_jprb &
9355  &, 0.413230e+00_jprb, 0.395270e+00_jprb, 0.377637e+00_jprb &
9356  &, 0.360342e+00_jprb, 0.343403e+00_jprb, 0.326838e+00_jprb, 0.310655e+00_jprb &
9357  &, 0.294875e+00_jprb, 0.279506e+00_jprb, 0.264558e+00_jprb &
9358  &, 0.250047e+00_jprb, 0.235987e+00_jprb, 0.222374e+00_jprb, 0.209222e+00_jprb &
9359  &, 0.196551e+00_jprb, 0.184342e+00_jprb, 0.172604e+00_jprb &
9360  &, 0.161355e+00_jprb, 0.150590e+00_jprb, 0.140291e+00_jprb, 0.130481e+00_jprb &
9361  &, 0.121136e+00_jprb, 0.112264e+00_jprb, 0.103844e+00_jprb &
9362  &, 0.958914e-01_jprb, 0.883799e-01_jprb, 0.813055e-01_jprb, 0.746609e-01_jprb &
9363  &, 0.684217e-01_jprb, 0.625880e-01_jprb, 0.571277e-01_jprb &
9364  &, 0.520496e-01_jprb, 0.473297e-01_jprb, 0.429559e-01_jprb, 0.389131e-01_jprb &
9365  &, 0.351660e-01_jprb, 0.317264e-01_jprb, 0.285524e-01_jprb &
9366  &, 0.256512e-01_jprb, 0.229922e-01_jprb, 0.205786e-01_jprb, 0.183742e-01_jprb &
9367  &, 0.163580e-01_jprb, 0.145467e-01_jprb, 0.129163e-01_jprb &
9368  &, 0.114398e-01_jprb, 0.101086e-01_jprb, 0.891278e-02_jprb, 0.784092e-02_jprb &
9369  &, 0.688003e-02_jprb, 0.601557e-02_jprb, 0.525521e-02_jprb &
9370  &, 0.458247e-02_jprb, 0.400400e-02_jprb, 0.347599e-02_jprb, 0.300244e-02_jprb &
9371  &, 0.258745e-02_jprb, 0.223524e-02_jprb, 0.192280e-02_jprb &
9372  &, 0.165299e-02_jprb, 0.142874e-02_jprb, 0.122415e-02_jprb, 0.104067e-02_jprb &
9373  &, 0.879798e-03_jprb, 0.743065e-03_jprb, 0.632034e-03_jprb &
9374  &, 0.516639e-03_jprb, 0.461279e-03_jprb, 0.370903e-03_jprb, 0.310515e-03_jprb &
9375  &, 0.247843e-03_jprb, 0.217424e-03_jprb, 0.185849e-03_jprb &
9376  &, 0.153099e-03_jprb, 0.119157e-03_jprb, 0.840051e-04_jprb, 0.852508e-04_jprb &
9377  &, 0.482543e-04_jprb, 0.488890e-04_jprb, 0.495298e-04_jprb &
9378  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9379  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9380  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9381  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9382  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9383  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9384  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9385  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9386  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9387  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9388 xcw( 212, :) = (/ &
9389  & 0.918733e+00_jprb, 0.898146e+00_jprb, 0.877477e+00_jprb, 0.856744e+00_jprb &
9390  &, 0.835958e+00_jprb, 0.815134e+00_jprb, 0.794286e+00_jprb &
9391  &, 0.773431e+00_jprb, 0.752582e+00_jprb, 0.731753e+00_jprb, 0.710963e+00_jprb &
9392  &, 0.690224e+00_jprb, 0.669555e+00_jprb, 0.648969e+00_jprb &
9393  &, 0.628485e+00_jprb, 0.608118e+00_jprb, 0.587884e+00_jprb, 0.567801e+00_jprb &
9394  &, 0.547883e+00_jprb, 0.528154e+00_jprb, 0.508623e+00_jprb &
9395  &, 0.489315e+00_jprb, 0.470241e+00_jprb, 0.451422e+00_jprb, 0.432874e+00_jprb &
9396  &, 0.414612e+00_jprb, 0.396656e+00_jprb, 0.379022e+00_jprb &
9397  &, 0.361726e+00_jprb, 0.344781e+00_jprb, 0.328205e+00_jprb, 0.312015e+00_jprb &
9398  &, 0.296221e+00_jprb, 0.280833e+00_jprb, 0.265873e+00_jprb &
9399  &, 0.251340e+00_jprb, 0.237255e+00_jprb, 0.223616e+00_jprb, 0.210445e+00_jprb &
9400  &, 0.197733e+00_jprb, 0.185501e+00_jprb, 0.173738e+00_jprb &
9401  &, 0.162451e+00_jprb, 0.151646e+00_jprb, 0.141315e+00_jprb, 0.131459e+00_jprb &
9402  &, 0.122077e+00_jprb, 0.113165e+00_jprb, 0.104716e+00_jprb &
9403  &, 0.967192e-01_jprb, 0.891740e-01_jprb, 0.820636e-01_jprb, 0.753666e-01_jprb &
9404  &, 0.691009e-01_jprb, 0.632242e-01_jprb, 0.577334e-01_jprb &
9405  &, 0.526230e-01_jprb, 0.478689e-01_jprb, 0.434589e-01_jprb, 0.393779e-01_jprb &
9406  &, 0.356074e-01_jprb, 0.321257e-01_jprb, 0.289252e-01_jprb &
9407  &, 0.259960e-01_jprb, 0.233260e-01_jprb, 0.208630e-01_jprb, 0.186454e-01_jprb &
9408  &, 0.166152e-01_jprb, 0.147691e-01_jprb, 0.131228e-01_jprb &
9409  &, 0.116085e-01_jprb, 0.102593e-01_jprb, 0.906666e-02_jprb, 0.797555e-02_jprb &
9410  &, 0.699453e-02_jprb, 0.613241e-02_jprb, 0.537442e-02_jprb &
9411  &, 0.467976e-02_jprb, 0.407842e-02_jprb, 0.355189e-02_jprb, 0.307983e-02_jprb &
9412  &, 0.266635e-02_jprb, 0.228886e-02_jprb, 0.197745e-02_jprb &
9413  &, 0.170868e-02_jprb, 0.145711e-02_jprb, 0.125305e-02_jprb, 0.107012e-02_jprb &
9414  &, 0.909791e-03_jprb, 0.773610e-03_jprb, 0.663136e-03_jprb &
9415  &, 0.548304e-03_jprb, 0.461279e-03_jprb, 0.370903e-03_jprb, 0.310515e-03_jprb &
9416  &, 0.281821e-03_jprb, 0.217424e-03_jprb, 0.185849e-03_jprb &
9417  &, 0.153099e-03_jprb, 0.119157e-03_jprb, 0.840051e-04_jprb, 0.852508e-04_jprb &
9418  &, 0.482543e-04_jprb, 0.488890e-04_jprb, 0.495298e-04_jprb &
9419  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9420  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9421  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9422  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9423  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9424  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9425  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9426  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9427  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9428  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9429 xcw( 213, :) = (/ &
9430  & 0.919060e+00_jprb, 0.898548e+00_jprb, 0.877953e+00_jprb, 0.857290e+00_jprb &
9431  &, 0.836572e+00_jprb, 0.815813e+00_jprb, 0.795028e+00_jprb &
9432  &, 0.774232e+00_jprb, 0.753440e+00_jprb, 0.732667e+00_jprb, 0.711928e+00_jprb &
9433  &, 0.691238e+00_jprb, 0.670614e+00_jprb, 0.650071e+00_jprb &
9434  &, 0.629626e+00_jprb, 0.609295e+00_jprb, 0.589095e+00_jprb, 0.569043e+00_jprb &
9435  &, 0.549156e+00_jprb, 0.529448e+00_jprb, 0.509940e+00_jprb &
9436  &, 0.490651e+00_jprb, 0.471591e+00_jprb, 0.452786e+00_jprb, 0.434245e+00_jprb &
9437  &, 0.415994e+00_jprb, 0.398042e+00_jprb, 0.380407e+00_jprb &
9438  &, 0.363106e+00_jprb, 0.346160e+00_jprb, 0.329577e+00_jprb, 0.313375e+00_jprb &
9439  &, 0.297568e+00_jprb, 0.282165e+00_jprb, 0.267184e+00_jprb &
9440  &, 0.252633e+00_jprb, 0.238524e+00_jprb, 0.224858e+00_jprb, 0.211658e+00_jprb &
9441  &, 0.198926e+00_jprb, 0.186661e+00_jprb, 0.174862e+00_jprb &
9442  &, 0.163548e+00_jprb, 0.152702e+00_jprb, 0.142339e+00_jprb, 0.132449e+00_jprb &
9443  &, 0.123030e+00_jprb, 0.114079e+00_jprb, 0.105588e+00_jprb &
9444  &, 0.975601e-01_jprb, 0.899681e-01_jprb, 0.828216e-01_jprb, 0.760864e-01_jprb &
9445  &, 0.697801e-01_jprb, 0.638603e-01_jprb, 0.583391e-01_jprb &
9446  &, 0.531964e-01_jprb, 0.484080e-01_jprb, 0.439618e-01_jprb, 0.398426e-01_jprb &
9447  &, 0.360318e-01_jprb, 0.325250e-01_jprb, 0.293157e-01_jprb &
9448  &, 0.263408e-01_jprb, 0.236414e-01_jprb, 0.211663e-01_jprb, 0.189166e-01_jprb &
9449  &, 0.168725e-01_jprb, 0.150117e-01_jprb, 0.133293e-01_jprb &
9450  &, 0.118193e-01_jprb, 0.104531e-01_jprb, 0.922053e-02_jprb, 0.811018e-02_jprb &
9451  &, 0.713193e-02_jprb, 0.624925e-02_jprb, 0.546978e-02_jprb &
9452  &, 0.477705e-02_jprb, 0.415284e-02_jprb, 0.362778e-02_jprb, 0.313142e-02_jprb &
9453  &, 0.271896e-02_jprb, 0.234248e-02_jprb, 0.203211e-02_jprb &
9454  &, 0.173653e-02_jprb, 0.148549e-02_jprb, 0.128196e-02_jprb, 0.109956e-02_jprb &
9455  &, 0.939784e-03_jprb, 0.773610e-03_jprb, 0.663136e-03_jprb &
9456  &, 0.548304e-03_jprb, 0.461279e-03_jprb, 0.403712e-03_jprb, 0.343905e-03_jprb &
9457  &, 0.281821e-03_jprb, 0.217424e-03_jprb, 0.185849e-03_jprb &
9458  &, 0.153099e-03_jprb, 0.119157e-03_jprb, 0.840051e-04_jprb, 0.852508e-04_jprb &
9459  &, 0.482543e-04_jprb, 0.488890e-04_jprb, 0.495298e-04_jprb &
9460  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9461  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9462  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9463  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9464  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9465  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9466  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9467  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9468  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9469  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9470 xcw( 214, :) = (/ &
9471  & 0.919386e+00_jprb, 0.898950e+00_jprb, 0.878427e+00_jprb, 0.857835e+00_jprb &
9472  &, 0.837184e+00_jprb, 0.816490e+00_jprb, 0.795768e+00_jprb &
9473  &, 0.775031e+00_jprb, 0.754297e+00_jprb, 0.733577e+00_jprb, 0.712890e+00_jprb &
9474  &, 0.692249e+00_jprb, 0.671670e+00_jprb, 0.651170e+00_jprb &
9475  &, 0.630765e+00_jprb, 0.610472e+00_jprb, 0.590307e+00_jprb, 0.570285e+00_jprb &
9476  &, 0.550425e+00_jprb, 0.530742e+00_jprb, 0.511256e+00_jprb &
9477  &, 0.491984e+00_jprb, 0.472944e+00_jprb, 0.454150e+00_jprb, 0.435620e+00_jprb &
9478  &, 0.417373e+00_jprb, 0.399424e+00_jprb, 0.381792e+00_jprb &
9479  &, 0.364490e+00_jprb, 0.347538e+00_jprb, 0.330949e+00_jprb, 0.314735e+00_jprb &
9480  &, 0.298914e+00_jprb, 0.283496e+00_jprb, 0.268499e+00_jprb &
9481  &, 0.253926e+00_jprb, 0.239792e+00_jprb, 0.226110e+00_jprb, 0.212881e+00_jprb &
9482  &, 0.200118e+00_jprb, 0.187820e+00_jprb, 0.175996e+00_jprb &
9483  &, 0.164644e+00_jprb, 0.153769e+00_jprb, 0.143363e+00_jprb, 0.133438e+00_jprb &
9484  &, 0.123983e+00_jprb, 0.114993e+00_jprb, 0.106473e+00_jprb &
9485  &, 0.984011e-01_jprb, 0.907756e-01_jprb, 0.835797e-01_jprb, 0.768204e-01_jprb &
9486  &, 0.704593e-01_jprb, 0.645112e-01_jprb, 0.589599e-01_jprb &
9487  &, 0.537698e-01_jprb, 0.489472e-01_jprb, 0.444648e-01_jprb, 0.403073e-01_jprb &
9488  &, 0.364731e-01_jprb, 0.329416e-01_jprb, 0.296884e-01_jprb &
9489  &, 0.267037e-01_jprb, 0.239753e-01_jprb, 0.214696e-01_jprb, 0.191878e-01_jprb &
9490  &, 0.171100e-01_jprb, 0.152341e-01_jprb, 0.135358e-01_jprb &
9491  &, 0.120091e-01_jprb, 0.106254e-01_jprb, 0.937441e-02_jprb, 0.826724e-02_jprb &
9492  &, 0.726933e-02_jprb, 0.636609e-02_jprb, 0.556515e-02_jprb &
9493  &, 0.487433e-02_jprb, 0.425207e-02_jprb, 0.367838e-02_jprb, 0.320881e-02_jprb &
9494  &, 0.277156e-02_jprb, 0.239610e-02_jprb, 0.205943e-02_jprb &
9495  &, 0.176438e-02_jprb, 0.151386e-02_jprb, 0.131087e-02_jprb, 0.112901e-02_jprb &
9496  &, 0.939784e-03_jprb, 0.804154e-03_jprb, 0.694237e-03_jprb &
9497  &, 0.579969e-03_jprb, 0.493513e-03_jprb, 0.403712e-03_jprb, 0.343905e-03_jprb &
9498  &, 0.281821e-03_jprb, 0.251995e-03_jprb, 0.185849e-03_jprb &
9499  &, 0.153099e-03_jprb, 0.119157e-03_jprb, 0.121008e-03_jprb, 0.852508e-04_jprb &
9500  &, 0.482543e-04_jprb, 0.488890e-04_jprb, 0.495298e-04_jprb &
9501  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9502  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9503  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9504  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9505  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9506  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9507  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9508  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9509  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9510  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9511 xcw( 215, :) = (/ &
9512  & 0.919712e+00_jprb, 0.899349e+00_jprb, 0.878900e+00_jprb, 0.858378e+00_jprb &
9513  &, 0.837795e+00_jprb, 0.817166e+00_jprb, 0.796507e+00_jprb &
9514  &, 0.775830e+00_jprb, 0.755152e+00_jprb, 0.734487e+00_jprb, 0.713850e+00_jprb &
9515  &, 0.693258e+00_jprb, 0.672725e+00_jprb, 0.652268e+00_jprb &
9516  &, 0.631904e+00_jprb, 0.611646e+00_jprb, 0.591515e+00_jprb, 0.571525e+00_jprb &
9517  &, 0.551693e+00_jprb, 0.532037e+00_jprb, 0.512573e+00_jprb &
9518  &, 0.493317e+00_jprb, 0.474294e+00_jprb, 0.455510e+00_jprb, 0.436991e+00_jprb &
9519  &, 0.418751e+00_jprb, 0.400806e+00_jprb, 0.383178e+00_jprb &
9520  &, 0.365874e+00_jprb, 0.348916e+00_jprb, 0.332312e+00_jprb, 0.316094e+00_jprb &
9521  &, 0.300261e+00_jprb, 0.284832e+00_jprb, 0.269815e+00_jprb &
9522  &, 0.255219e+00_jprb, 0.241070e+00_jprb, 0.227361e+00_jprb, 0.214104e+00_jprb &
9523  &, 0.201310e+00_jprb, 0.188979e+00_jprb, 0.177120e+00_jprb &
9524  &, 0.165740e+00_jprb, 0.154836e+00_jprb, 0.144398e+00_jprb, 0.134428e+00_jprb &
9525  &, 0.124936e+00_jprb, 0.115920e+00_jprb, 0.107358e+00_jprb &
9526  &, 0.992420e-01_jprb, 0.915697e-01_jprb, 0.843516e-01_jprb, 0.775402e-01_jprb &
9527  &, 0.711530e-01_jprb, 0.651622e-01_jprb, 0.595657e-01_jprb &
9528  &, 0.543432e-01_jprb, 0.494864e-01_jprb, 0.449677e-01_jprb, 0.407886e-01_jprb &
9529  &, 0.369315e-01_jprb, 0.333583e-01_jprb, 0.300789e-01_jprb &
9530  &, 0.270666e-01_jprb, 0.242906e-01_jprb, 0.217729e-01_jprb, 0.194784e-01_jprb &
9531  &, 0.173673e-01_jprb, 0.154767e-01_jprb, 0.137423e-01_jprb &
9532  &, 0.121989e-01_jprb, 0.107976e-01_jprb, 0.952829e-02_jprb, 0.840187e-02_jprb &
9533  &, 0.738383e-02_jprb, 0.648293e-02_jprb, 0.568436e-02_jprb &
9534  &, 0.497162e-02_jprb, 0.432650e-02_jprb, 0.375428e-02_jprb, 0.326041e-02_jprb &
9535  &, 0.282416e-02_jprb, 0.244972e-02_jprb, 0.211408e-02_jprb &
9536  &, 0.182007e-02_jprb, 0.157061e-02_jprb, 0.133978e-02_jprb, 0.112901e-02_jprb &
9537  &, 0.969778e-03_jprb, 0.834698e-03_jprb, 0.694237e-03_jprb &
9538  &, 0.579969e-03_jprb, 0.493513e-03_jprb, 0.403712e-03_jprb, 0.343905e-03_jprb &
9539  &, 0.281821e-03_jprb, 0.251995e-03_jprb, 0.185849e-03_jprb &
9540  &, 0.153099e-03_jprb, 0.119157e-03_jprb, 0.121008e-03_jprb, 0.852508e-04_jprb &
9541  &, 0.865085e-04_jprb, 0.488890e-04_jprb, 0.495298e-04_jprb &
9542  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9543  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9544  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9545  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9546  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9547  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9548  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9549  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9550  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9551  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9552 xcw( 216, :) = (/ &
9553  & 0.920036e+00_jprb, 0.899750e+00_jprb, 0.879373e+00_jprb, 0.858920e+00_jprb &
9554  &, 0.838404e+00_jprb, 0.817841e+00_jprb, 0.797241e+00_jprb &
9555  &, 0.776627e+00_jprb, 0.756004e+00_jprb, 0.735394e+00_jprb, 0.714809e+00_jprb &
9556  &, 0.694266e+00_jprb, 0.673779e+00_jprb, 0.653364e+00_jprb &
9557  &, 0.633039e+00_jprb, 0.612819e+00_jprb, 0.592722e+00_jprb, 0.572762e+00_jprb &
9558  &, 0.552959e+00_jprb, 0.533328e+00_jprb, 0.513886e+00_jprb &
9559  &, 0.494650e+00_jprb, 0.475641e+00_jprb, 0.456874e+00_jprb, 0.438362e+00_jprb &
9560  &, 0.420130e+00_jprb, 0.402192e+00_jprb, 0.384559e+00_jprb &
9561  &, 0.367258e+00_jprb, 0.350295e+00_jprb, 0.333688e+00_jprb, 0.317458e+00_jprb &
9562  &, 0.301611e+00_jprb, 0.286164e+00_jprb, 0.271130e+00_jprb &
9563  &, 0.256521e+00_jprb, 0.242338e+00_jprb, 0.228613e+00_jprb, 0.215327e+00_jprb &
9564  &, 0.202503e+00_jprb, 0.190149e+00_jprb, 0.178254e+00_jprb &
9565  &, 0.166837e+00_jprb, 0.155903e+00_jprb, 0.145434e+00_jprb, 0.135430e+00_jprb &
9566  &, 0.125902e+00_jprb, 0.116834e+00_jprb, 0.108231e+00_jprb &
9567  &, 0.100083e+00_jprb, 0.923772e-01_jprb, 0.851097e-01_jprb, 0.782742e-01_jprb &
9568  &, 0.718466e-01_jprb, 0.658279e-01_jprb, 0.601865e-01_jprb &
9569  &, 0.549321e-01_jprb, 0.500414e-01_jprb, 0.454869e-01_jprb, 0.412699e-01_jprb &
9570  &, 0.373728e-01_jprb, 0.337749e-01_jprb, 0.303984e-01_jprb &
9571  &, 0.274114e-01_jprb, 0.246245e-01_jprb, 0.220762e-01_jprb, 0.197496e-01_jprb &
9572  &, 0.176246e-01_jprb, 0.157193e-01_jprb, 0.139694e-01_jprb &
9573  &, 0.123887e-01_jprb, 0.109699e-01_jprb, 0.970414e-02_jprb, 0.855894e-02_jprb &
9574  &, 0.752123e-02_jprb, 0.659977e-02_jprb, 0.577973e-02_jprb &
9575  &, 0.506891e-02_jprb, 0.442572e-02_jprb, 0.385548e-02_jprb, 0.333780e-02_jprb &
9576  &, 0.290306e-02_jprb, 0.250334e-02_jprb, 0.216873e-02_jprb &
9577  &, 0.184792e-02_jprb, 0.159899e-02_jprb, 0.136869e-02_jprb, 0.115846e-02_jprb &
9578  &, 0.999771e-03_jprb, 0.834698e-03_jprb, 0.725339e-03_jprb &
9579  &, 0.611634e-03_jprb, 0.525747e-03_jprb, 0.436522e-03_jprb, 0.377296e-03_jprb &
9580  &, 0.315799e-03_jprb, 0.251995e-03_jprb, 0.221018e-03_jprb &
9581  &, 0.153099e-03_jprb, 0.155543e-03_jprb, 0.121008e-03_jprb, 0.852508e-04_jprb &
9582  &, 0.865085e-04_jprb, 0.488890e-04_jprb, 0.495298e-04_jprb &
9583  &, 0.501765e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9584  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9585  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9586  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9587  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9588  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9589  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9590  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9591  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9592  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9593 xcw( 217, :) = (/ &
9594  & 0.920359e+00_jprb, 0.900148e+00_jprb, 0.879843e+00_jprb, 0.859461e+00_jprb &
9595  &, 0.839013e+00_jprb, 0.818514e+00_jprb, 0.797979e+00_jprb &
9596  &, 0.777421e+00_jprb, 0.756857e+00_jprb, 0.736300e+00_jprb, 0.715767e+00_jprb &
9597  &, 0.695272e+00_jprb, 0.674830e+00_jprb, 0.654459e+00_jprb &
9598  &, 0.634174e+00_jprb, 0.613991e+00_jprb, 0.593928e+00_jprb, 0.573999e+00_jprb &
9599  &, 0.554224e+00_jprb, 0.534616e+00_jprb, 0.515199e+00_jprb &
9600  &, 0.495983e+00_jprb, 0.476991e+00_jprb, 0.458234e+00_jprb, 0.439734e+00_jprb &
9601  &, 0.421508e+00_jprb, 0.403574e+00_jprb, 0.385944e+00_jprb &
9602  &, 0.368639e+00_jprb, 0.351673e+00_jprb, 0.335060e+00_jprb, 0.318818e+00_jprb &
9603  &, 0.302962e+00_jprb, 0.287500e+00_jprb, 0.272450e+00_jprb &
9604  &, 0.257814e+00_jprb, 0.243616e+00_jprb, 0.229865e+00_jprb, 0.216551e+00_jprb &
9605  &, 0.203705e+00_jprb, 0.191319e+00_jprb, 0.179399e+00_jprb &
9606  &, 0.167944e+00_jprb, 0.156970e+00_jprb, 0.146469e+00_jprb, 0.136431e+00_jprb &
9607  &, 0.126867e+00_jprb, 0.117760e+00_jprb, 0.109129e+00_jprb &
9608  &, 0.100937e+00_jprb, 0.931982e-01_jprb, 0.858954e-01_jprb, 0.790081e-01_jprb &
9609  &, 0.725403e-01_jprb, 0.664788e-01_jprb, 0.608073e-01_jprb &
9610  &, 0.555210e-01_jprb, 0.505805e-01_jprb, 0.460061e-01_jprb, 0.417512e-01_jprb &
9611  &, 0.378312e-01_jprb, 0.341915e-01_jprb, 0.308599e-01_jprb &
9612  &, 0.277743e-01_jprb, 0.249583e-01_jprb, 0.223796e-01_jprb, 0.200401e-01_jprb &
9613  &, 0.179017e-01_jprb, 0.159417e-01_jprb, 0.141759e-01_jprb &
9614  &, 0.125996e-01_jprb, 0.111637e-01_jprb, 0.985802e-02_jprb, 0.869357e-02_jprb &
9615  &, 0.765863e-02_jprb, 0.671661e-02_jprb, 0.589894e-02_jprb &
9616  &, 0.516619e-02_jprb, 0.450015e-02_jprb, 0.393137e-02_jprb, 0.341519e-02_jprb &
9617  &, 0.295566e-02_jprb, 0.255696e-02_jprb, 0.219606e-02_jprb &
9618  &, 0.190362e-02_jprb, 0.162736e-02_jprb, 0.139760e-02_jprb, 0.118791e-02_jprb &
9619  &, 0.102976e-02_jprb, 0.865243e-03_jprb, 0.725339e-03_jprb &
9620  &, 0.611634e-03_jprb, 0.525747e-03_jprb, 0.436522e-03_jprb, 0.377296e-03_jprb &
9621  &, 0.315799e-03_jprb, 0.251995e-03_jprb, 0.221018e-03_jprb &
9622  &, 0.188874e-03_jprb, 0.155543e-03_jprb, 0.121008e-03_jprb, 0.852508e-04_jprb &
9623  &, 0.865085e-04_jprb, 0.488890e-04_jprb, 0.495298e-04_jprb &
9624  &, 0.501765e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9625  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9626  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9627  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9628  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9629  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9630  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9631  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9632  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9633  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9634 
9635 IF (lhook) CALL dr_hook('SU_MCICA:PART31',1,zhook_handle)
9636 END SUBROUTINE part31
9637 
9638 #ifdef VPP5000
9639 !OCL SCALAR
9640 #endif
9641 !option! -Nv -NO
9642 #ifdef RS6K
9643 @process nooptimize
9644 #endif
9645 !pgi$r opt=0
9646 SUBROUTINE part32
9647 
9648 REAL(KIND=JPRB) :: ZHOOK_HANDLE
9649 IF (lhook) CALL dr_hook('SU_MCICA:PART32',0,zhook_handle)
9650 
9651 xcw( 218, :) = (/ &
9652  & 0.920681e+00_jprb, 0.900545e+00_jprb, 0.880313e+00_jprb, 0.860001e+00_jprb &
9653  &, 0.839620e+00_jprb, 0.819186e+00_jprb, 0.798713e+00_jprb &
9654  &, 0.778215e+00_jprb, 0.757707e+00_jprb, 0.737205e+00_jprb, 0.716722e+00_jprb &
9655  &, 0.696275e+00_jprb, 0.675880e+00_jprb, 0.655552e+00_jprb &
9656  &, 0.635307e+00_jprb, 0.615162e+00_jprb, 0.595132e+00_jprb, 0.575235e+00_jprb &
9657  &, 0.555486e+00_jprb, 0.535907e+00_jprb, 0.516509e+00_jprb &
9658  &, 0.497312e+00_jprb, 0.478337e+00_jprb, 0.459595e+00_jprb, 0.441105e+00_jprb &
9659  &, 0.422887e+00_jprb, 0.404956e+00_jprb, 0.387330e+00_jprb &
9660  &, 0.370023e+00_jprb, 0.353051e+00_jprb, 0.336435e+00_jprb, 0.320182e+00_jprb &
9661  &, 0.304313e+00_jprb, 0.288836e+00_jprb, 0.273766e+00_jprb &
9662  &, 0.259116e+00_jprb, 0.244894e+00_jprb, 0.231116e+00_jprb, 0.217784e+00_jprb &
9663  &, 0.204908e+00_jprb, 0.192488e+00_jprb, 0.180534e+00_jprb &
9664  &, 0.169052e+00_jprb, 0.158048e+00_jprb, 0.147505e+00_jprb, 0.137433e+00_jprb &
9665  &, 0.127832e+00_jprb, 0.118699e+00_jprb, 0.110014e+00_jprb &
9666  &, 0.101791e+00_jprb, 0.940057e-01_jprb, 0.866673e-01_jprb, 0.797421e-01_jprb &
9667  &, 0.732484e-01_jprb, 0.671446e-01_jprb, 0.614433e-01_jprb &
9668  &, 0.561099e-01_jprb, 0.511356e-01_jprb, 0.465253e-01_jprb, 0.422491e-01_jprb &
9669  &, 0.382725e-01_jprb, 0.346255e-01_jprb, 0.312504e-01_jprb &
9670  &, 0.281373e-01_jprb, 0.252922e-01_jprb, 0.227018e-01_jprb, 0.203307e-01_jprb &
9671  &, 0.181590e-01_jprb, 0.161843e-01_jprb, 0.144031e-01_jprb &
9672  &, 0.127894e-01_jprb, 0.113359e-01_jprb, 0.100339e-01_jprb, 0.885063e-02_jprb &
9673  &, 0.779603e-02_jprb, 0.685682e-02_jprb, 0.599430e-02_jprb &
9674  &, 0.526348e-02_jprb, 0.459938e-02_jprb, 0.400727e-02_jprb, 0.346678e-02_jprb &
9675  &, 0.300826e-02_jprb, 0.261059e-02_jprb, 0.225071e-02_jprb &
9676  &, 0.195931e-02_jprb, 0.168411e-02_jprb, 0.142650e-02_jprb, 0.121735e-02_jprb &
9677  &, 0.105976e-02_jprb, 0.895787e-03_jprb, 0.756441e-03_jprb &
9678  &, 0.643299e-03_jprb, 0.557981e-03_jprb, 0.469331e-03_jprb, 0.377296e-03_jprb &
9679  &, 0.315799e-03_jprb, 0.251995e-03_jprb, 0.221018e-03_jprb &
9680  &, 0.188874e-03_jprb, 0.155543e-03_jprb, 0.121008e-03_jprb, 0.852508e-04_jprb &
9681  &, 0.865085e-04_jprb, 0.488890e-04_jprb, 0.495298e-04_jprb &
9682  &, 0.501765e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9683  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9684  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9685  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9686  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9687  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9688  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9689  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9690  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9691  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9692 xcw( 219, :) = (/ &
9693  & 0.921004e+00_jprb, 0.900941e+00_jprb, 0.880782e+00_jprb, 0.860539e+00_jprb &
9694  &, 0.840225e+00_jprb, 0.819856e+00_jprb, 0.799445e+00_jprb &
9695  &, 0.779006e+00_jprb, 0.758556e+00_jprb, 0.738107e+00_jprb, 0.717676e+00_jprb &
9696  &, 0.697277e+00_jprb, 0.676928e+00_jprb, 0.656642e+00_jprb &
9697  &, 0.636438e+00_jprb, 0.616329e+00_jprb, 0.596334e+00_jprb, 0.576468e+00_jprb &
9698  &, 0.556749e+00_jprb, 0.537192e+00_jprb, 0.517819e+00_jprb &
9699  &, 0.498642e+00_jprb, 0.479683e+00_jprb, 0.460955e+00_jprb, 0.442476e+00_jprb &
9700  &, 0.424265e+00_jprb, 0.406338e+00_jprb, 0.388715e+00_jprb &
9701  &, 0.371407e+00_jprb, 0.354430e+00_jprb, 0.337807e+00_jprb, 0.321546e+00_jprb &
9702  &, 0.305663e+00_jprb, 0.290172e+00_jprb, 0.275086e+00_jprb &
9703  &, 0.260418e+00_jprb, 0.246172e+00_jprb, 0.232368e+00_jprb, 0.219017e+00_jprb &
9704  &, 0.206110e+00_jprb, 0.193658e+00_jprb, 0.181679e+00_jprb &
9705  &, 0.170170e+00_jprb, 0.159115e+00_jprb, 0.148540e+00_jprb, 0.138435e+00_jprb &
9706  &, 0.128798e+00_jprb, 0.119626e+00_jprb, 0.110911e+00_jprb &
9707  &, 0.102645e+00_jprb, 0.948267e-01_jprb, 0.874391e-01_jprb, 0.804901e-01_jprb &
9708  &, 0.739420e-01_jprb, 0.678103e-01_jprb, 0.620642e-01_jprb &
9709  &, 0.566988e-01_jprb, 0.517064e-01_jprb, 0.470445e-01_jprb, 0.427304e-01_jprb &
9710  &, 0.387309e-01_jprb, 0.350422e-01_jprb, 0.316410e-01_jprb &
9711  &, 0.285183e-01_jprb, 0.256447e-01_jprb, 0.230051e-01_jprb, 0.206019e-01_jprb &
9712  &, 0.184163e-01_jprb, 0.164269e-01_jprb, 0.146302e-01_jprb &
9713  &, 0.130003e-01_jprb, 0.115297e-01_jprb, 0.101878e-01_jprb, 0.900770e-02_jprb &
9714  &, 0.793343e-02_jprb, 0.697366e-02_jprb, 0.611351e-02_jprb &
9715  &, 0.536077e-02_jprb, 0.467380e-02_jprb, 0.408317e-02_jprb, 0.354417e-02_jprb &
9716  &, 0.308716e-02_jprb, 0.266421e-02_jprb, 0.230536e-02_jprb &
9717  &, 0.198716e-02_jprb, 0.171249e-02_jprb, 0.145541e-02_jprb, 0.124680e-02_jprb &
9718  &, 0.108975e-02_jprb, 0.926332e-03_jprb, 0.787542e-03_jprb &
9719  &, 0.674964e-03_jprb, 0.557981e-03_jprb, 0.469331e-03_jprb, 0.410686e-03_jprb &
9720  &, 0.315799e-03_jprb, 0.286565e-03_jprb, 0.221018e-03_jprb &
9721  &, 0.188874e-03_jprb, 0.155543e-03_jprb, 0.121008e-03_jprb, 0.852508e-04_jprb &
9722  &, 0.865085e-04_jprb, 0.488890e-04_jprb, 0.495298e-04_jprb &
9723  &, 0.501765e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9724  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9725  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9726  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9727  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9728  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9729  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9730  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9731  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9732  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9733 xcw( 220, :) = (/ &
9734  & 0.921324e+00_jprb, 0.901338e+00_jprb, 0.881250e+00_jprb, 0.861077e+00_jprb &
9735  &, 0.840830e+00_jprb, 0.820525e+00_jprb, 0.800176e+00_jprb &
9736  &, 0.779797e+00_jprb, 0.759403e+00_jprb, 0.739008e+00_jprb, 0.718628e+00_jprb &
9737  &, 0.698278e+00_jprb, 0.677975e+00_jprb, 0.657732e+00_jprb &
9738  &, 0.637567e+00_jprb, 0.617496e+00_jprb, 0.597535e+00_jprb, 0.577700e+00_jprb &
9739  &, 0.558010e+00_jprb, 0.538480e+00_jprb, 0.519129e+00_jprb &
9740  &, 0.499971e+00_jprb, 0.481026e+00_jprb, 0.462312e+00_jprb, 0.443844e+00_jprb &
9741  &, 0.425644e+00_jprb, 0.407720e+00_jprb, 0.390096e+00_jprb &
9742  &, 0.372791e+00_jprb, 0.355812e+00_jprb, 0.339179e+00_jprb, 0.322910e+00_jprb &
9743  &, 0.307014e+00_jprb, 0.291513e+00_jprb, 0.276410e+00_jprb &
9744  &, 0.261721e+00_jprb, 0.247460e+00_jprb, 0.233629e+00_jprb, 0.220240e+00_jprb &
9745  &, 0.207313e+00_jprb, 0.194838e+00_jprb, 0.182824e+00_jprb &
9746  &, 0.171278e+00_jprb, 0.160194e+00_jprb, 0.149587e+00_jprb, 0.139448e+00_jprb &
9747  &, 0.129775e+00_jprb, 0.120565e+00_jprb, 0.111809e+00_jprb &
9748  &, 0.103512e+00_jprb, 0.956477e-01_jprb, 0.882248e-01_jprb, 0.812382e-01_jprb &
9749  &, 0.746501e-01_jprb, 0.684908e-01_jprb, 0.627002e-01_jprb &
9750  &, 0.573031e-01_jprb, 0.522615e-01_jprb, 0.475799e-01_jprb, 0.432283e-01_jprb &
9751  &, 0.392062e-01_jprb, 0.354762e-01_jprb, 0.320492e-01_jprb &
9752  &, 0.288813e-01_jprb, 0.259785e-01_jprb, 0.233274e-01_jprb, 0.209118e-01_jprb &
9753  &, 0.186934e-01_jprb, 0.166898e-01_jprb, 0.148574e-01_jprb &
9754  &, 0.132112e-01_jprb, 0.117020e-01_jprb, 0.103636e-01_jprb, 0.916477e-02_jprb &
9755  &, 0.807083e-02_jprb, 0.709050e-02_jprb, 0.623272e-02_jprb &
9756  &, 0.545805e-02_jprb, 0.477303e-02_jprb, 0.415907e-02_jprb, 0.362156e-02_jprb &
9757  &, 0.313976e-02_jprb, 0.271783e-02_jprb, 0.236001e-02_jprb &
9758  &, 0.204285e-02_jprb, 0.174086e-02_jprb, 0.151323e-02_jprb, 0.127625e-02_jprb &
9759  &, 0.108975e-02_jprb, 0.926332e-03_jprb, 0.787542e-03_jprb &
9760  &, 0.674964e-03_jprb, 0.557981e-03_jprb, 0.469331e-03_jprb, 0.410686e-03_jprb &
9761  &, 0.349776e-03_jprb, 0.286565e-03_jprb, 0.221018e-03_jprb &
9762  &, 0.188874e-03_jprb, 0.155543e-03_jprb, 0.121008e-03_jprb, 0.122876e-03_jprb &
9763  &, 0.865085e-04_jprb, 0.488890e-04_jprb, 0.495298e-04_jprb &
9764  &, 0.501765e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9765  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9766  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9767  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9768  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9769  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9770  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9771  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9772  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9773  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9774 xcw( 221, :) = (/ &
9775  & 0.921645e+00_jprb, 0.901733e+00_jprb, 0.881716e+00_jprb, 0.861611e+00_jprb &
9776  &, 0.841433e+00_jprb, 0.821193e+00_jprb, 0.800905e+00_jprb &
9777  &, 0.780585e+00_jprb, 0.760248e+00_jprb, 0.739908e+00_jprb, 0.719579e+00_jprb &
9778  &, 0.699278e+00_jprb, 0.679020e+00_jprb, 0.658820e+00_jprb &
9779  &, 0.638695e+00_jprb, 0.618661e+00_jprb, 0.598735e+00_jprb, 0.578932e+00_jprb &
9780  &, 0.559270e+00_jprb, 0.539765e+00_jprb, 0.520436e+00_jprb &
9781  &, 0.501298e+00_jprb, 0.482373e+00_jprb, 0.463669e+00_jprb, 0.445215e+00_jprb &
9782  &, 0.427019e+00_jprb, 0.409102e+00_jprb, 0.391482e+00_jprb &
9783  &, 0.374171e+00_jprb, 0.357191e+00_jprb, 0.340554e+00_jprb, 0.324273e+00_jprb &
9784  &, 0.308369e+00_jprb, 0.292849e+00_jprb, 0.277730e+00_jprb &
9785  &, 0.263023e+00_jprb, 0.248738e+00_jprb, 0.234891e+00_jprb, 0.221483e+00_jprb &
9786  &, 0.208516e+00_jprb, 0.196019e+00_jprb, 0.183969e+00_jprb &
9787  &, 0.172396e+00_jprb, 0.161284e+00_jprb, 0.150634e+00_jprb, 0.140462e+00_jprb &
9788  &, 0.130753e+00_jprb, 0.121504e+00_jprb, 0.112707e+00_jprb &
9789  &, 0.104367e+00_jprb, 0.964686e-01_jprb, 0.890105e-01_jprb, 0.819863e-01_jprb &
9790  &, 0.753727e-01_jprb, 0.691565e-01_jprb, 0.633361e-01_jprb &
9791  &, 0.579075e-01_jprb, 0.528324e-01_jprb, 0.481153e-01_jprb, 0.437262e-01_jprb &
9792  &, 0.396645e-01_jprb, 0.359102e-01_jprb, 0.324397e-01_jprb &
9793  &, 0.292624e-01_jprb, 0.263310e-01_jprb, 0.236497e-01_jprb, 0.212024e-01_jprb &
9794  &, 0.189705e-01_jprb, 0.169324e-01_jprb, 0.150845e-01_jprb &
9795  &, 0.134010e-01_jprb, 0.118958e-01_jprb, 0.105395e-01_jprb, 0.932184e-02_jprb &
9796  &, 0.820823e-02_jprb, 0.723071e-02_jprb, 0.635193e-02_jprb &
9797  &, 0.555534e-02_jprb, 0.487226e-02_jprb, 0.423496e-02_jprb, 0.369895e-02_jprb &
9798  &, 0.321867e-02_jprb, 0.279826e-02_jprb, 0.241467e-02_jprb &
9799  &, 0.207070e-02_jprb, 0.179761e-02_jprb, 0.154214e-02_jprb, 0.130570e-02_jprb &
9800  &, 0.111974e-02_jprb, 0.956876e-03_jprb, 0.818644e-03_jprb &
9801  &, 0.706629e-03_jprb, 0.590215e-03_jprb, 0.502140e-03_jprb, 0.410686e-03_jprb &
9802  &, 0.349776e-03_jprb, 0.286565e-03_jprb, 0.256188e-03_jprb &
9803  &, 0.188874e-03_jprb, 0.155543e-03_jprb, 0.121008e-03_jprb, 0.122876e-03_jprb &
9804  &, 0.865085e-04_jprb, 0.877781e-04_jprb, 0.495298e-04_jprb &
9805  &, 0.501765e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9806  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9807  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9808  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9809  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9810  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9811  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9812  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9813  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9814  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9815 xcw( 222, :) = (/ &
9816  & 0.921965e+00_jprb, 0.902126e+00_jprb, 0.882182e+00_jprb, 0.862147e+00_jprb &
9817  &, 0.842035e+00_jprb, 0.821859e+00_jprb, 0.801633e+00_jprb &
9818  &, 0.781373e+00_jprb, 0.761092e+00_jprb, 0.740805e+00_jprb, 0.720528e+00_jprb &
9819  &, 0.700276e+00_jprb, 0.680063e+00_jprb, 0.659906e+00_jprb &
9820  &, 0.639822e+00_jprb, 0.619825e+00_jprb, 0.599933e+00_jprb, 0.580162e+00_jprb &
9821  &, 0.560528e+00_jprb, 0.541050e+00_jprb, 0.521743e+00_jprb &
9822  &, 0.502624e+00_jprb, 0.483716e+00_jprb, 0.465029e+00_jprb, 0.446583e+00_jprb &
9823  &, 0.428397e+00_jprb, 0.410484e+00_jprb, 0.392867e+00_jprb &
9824  &, 0.375556e+00_jprb, 0.358573e+00_jprb, 0.341926e+00_jprb, 0.325642e+00_jprb &
9825  &, 0.309724e+00_jprb, 0.294189e+00_jprb, 0.279055e+00_jprb &
9826  &, 0.264325e+00_jprb, 0.250025e+00_jprb, 0.236152e+00_jprb, 0.222716e+00_jprb &
9827  &, 0.209729e+00_jprb, 0.197199e+00_jprb, 0.185125e+00_jprb &
9828  &, 0.173515e+00_jprb, 0.162362e+00_jprb, 0.151693e+00_jprb, 0.141475e+00_jprb &
9829  &, 0.131730e+00_jprb, 0.122443e+00_jprb, 0.113618e+00_jprb &
9830  &, 0.105234e+00_jprb, 0.973031e-01_jprb, 0.898099e-01_jprb, 0.827343e-01_jprb &
9831  &, 0.760808e-01_jprb, 0.698370e-01_jprb, 0.639873e-01_jprb &
9832  &, 0.585119e-01_jprb, 0.534032e-01_jprb, 0.486507e-01_jprb, 0.442242e-01_jprb &
9833  &, 0.401398e-01_jprb, 0.363442e-01_jprb, 0.328480e-01_jprb &
9834  &, 0.296434e-01_jprb, 0.266834e-01_jprb, 0.239720e-01_jprb, 0.214930e-01_jprb &
9835  &, 0.192475e-01_jprb, 0.171750e-01_jprb, 0.153117e-01_jprb &
9836  &, 0.136118e-01_jprb, 0.120895e-01_jprb, 0.107153e-01_jprb, 0.947890e-02_jprb &
9837  &, 0.834563e-02_jprb, 0.734755e-02_jprb, 0.647114e-02_jprb &
9838  &, 0.567695e-02_jprb, 0.494668e-02_jprb, 0.433616e-02_jprb, 0.377634e-02_jprb &
9839  &, 0.327127e-02_jprb, 0.285188e-02_jprb, 0.246932e-02_jprb &
9840  &, 0.212639e-02_jprb, 0.182599e-02_jprb, 0.157105e-02_jprb, 0.136459e-02_jprb &
9841  &, 0.114974e-02_jprb, 0.987421e-03_jprb, 0.849746e-03_jprb &
9842  &, 0.706629e-03_jprb, 0.590215e-03_jprb, 0.502140e-03_jprb, 0.444077e-03_jprb &
9843  &, 0.349776e-03_jprb, 0.286565e-03_jprb, 0.256188e-03_jprb &
9844  &, 0.224648e-03_jprb, 0.155543e-03_jprb, 0.158010e-03_jprb, 0.122876e-03_jprb &
9845  &, 0.865085e-04_jprb, 0.877781e-04_jprb, 0.495298e-04_jprb &
9846  &, 0.501765e-04_jprb, 0.508292e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9847  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9848  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9849  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9850  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9851  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9852  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9853  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9854  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9855  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9856 xcw( 223, :) = (/ &
9857  & 0.922283e+00_jprb, 0.902519e+00_jprb, 0.882646e+00_jprb, 0.862681e+00_jprb &
9858  &, 0.842635e+00_jprb, 0.822524e+00_jprb, 0.802360e+00_jprb &
9859  &, 0.782159e+00_jprb, 0.761924e+00_jprb, 0.741702e+00_jprb, 0.721476e+00_jprb &
9860  &, 0.701271e+00_jprb, 0.681104e+00_jprb, 0.660991e+00_jprb &
9861  &, 0.640946e+00_jprb, 0.620987e+00_jprb, 0.601129e+00_jprb, 0.581389e+00_jprb &
9862  &, 0.561783e+00_jprb, 0.542331e+00_jprb, 0.523049e+00_jprb &
9863  &, 0.503950e+00_jprb, 0.485056e+00_jprb, 0.466386e+00_jprb, 0.447950e+00_jprb &
9864  &, 0.429772e+00_jprb, 0.411866e+00_jprb, 0.394248e+00_jprb &
9865  &, 0.376940e+00_jprb, 0.359951e+00_jprb, 0.343302e+00_jprb, 0.327005e+00_jprb &
9866  &, 0.311079e+00_jprb, 0.295534e+00_jprb, 0.280384e+00_jprb &
9867  &, 0.265636e+00_jprb, 0.251312e+00_jprb, 0.237413e+00_jprb, 0.223949e+00_jprb &
9868  &, 0.210942e+00_jprb, 0.198379e+00_jprb, 0.186270e+00_jprb &
9869  &, 0.174633e+00_jprb, 0.163452e+00_jprb, 0.152740e+00_jprb, 0.142501e+00_jprb &
9870  &, 0.132708e+00_jprb, 0.123394e+00_jprb, 0.114529e+00_jprb &
9871  &, 0.106101e+00_jprb, 0.981375e-01_jprb, 0.905956e-01_jprb, 0.834965e-01_jprb &
9872  &, 0.768033e-01_jprb, 0.705176e-01_jprb, 0.646233e-01_jprb &
9873  &, 0.591163e-01_jprb, 0.539741e-01_jprb, 0.491861e-01_jprb, 0.447387e-01_jprb &
9874  &, 0.405982e-01_jprb, 0.367781e-01_jprb, 0.332562e-01_jprb &
9875  &, 0.300245e-01_jprb, 0.270358e-01_jprb, 0.242942e-01_jprb, 0.218029e-01_jprb &
9876  &, 0.195246e-01_jprb, 0.174378e-01_jprb, 0.155388e-01_jprb &
9877  &, 0.138438e-01_jprb, 0.122833e-01_jprb, 0.108912e-01_jprb, 0.963597e-02_jprb &
9878  &, 0.850593e-02_jprb, 0.748776e-02_jprb, 0.659035e-02_jprb &
9879  &, 0.577424e-02_jprb, 0.504591e-02_jprb, 0.441206e-02_jprb, 0.385374e-02_jprb &
9880  &, 0.335017e-02_jprb, 0.290550e-02_jprb, 0.252397e-02_jprb &
9881  &, 0.218209e-02_jprb, 0.188274e-02_jprb, 0.159995e-02_jprb, 0.139404e-02_jprb &
9882  &, 0.117973e-02_jprb, 0.101796e-02_jprb, 0.849746e-03_jprb &
9883  &, 0.738294e-03_jprb, 0.622449e-03_jprb, 0.534950e-03_jprb, 0.444077e-03_jprb &
9884  &, 0.383754e-03_jprb, 0.321136e-03_jprb, 0.256188e-03_jprb &
9885  &, 0.224648e-03_jprb, 0.191928e-03_jprb, 0.158010e-03_jprb, 0.122876e-03_jprb &
9886  &, 0.865085e-04_jprb, 0.877781e-04_jprb, 0.495298e-04_jprb &
9887  &, 0.501765e-04_jprb, 0.508292e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9888  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9889  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9890  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9891  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9892  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9893  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9894  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9895  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9896  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9897 xcw( 224, :) = (/ &
9898  & 0.922601e+00_jprb, 0.902911e+00_jprb, 0.883110e+00_jprb, 0.863214e+00_jprb &
9899  &, 0.843234e+00_jprb, 0.823187e+00_jprb, 0.803085e+00_jprb &
9900  &, 0.782943e+00_jprb, 0.762775e+00_jprb, 0.742596e+00_jprb, 0.722421e+00_jprb &
9901  &, 0.702265e+00_jprb, 0.682145e+00_jprb, 0.662074e+00_jprb &
9902  &, 0.642070e+00_jprb, 0.622147e+00_jprb, 0.602324e+00_jprb, 0.582616e+00_jprb &
9903  &, 0.563040e+00_jprb, 0.543613e+00_jprb, 0.524353e+00_jprb &
9904  &, 0.505276e+00_jprb, 0.486399e+00_jprb, 0.467740e+00_jprb, 0.449318e+00_jprb &
9905  &, 0.431147e+00_jprb, 0.413248e+00_jprb, 0.395634e+00_jprb &
9906  &, 0.378324e+00_jprb, 0.361334e+00_jprb, 0.344678e+00_jprb, 0.328374e+00_jprb &
9907  &, 0.312434e+00_jprb, 0.296875e+00_jprb, 0.281708e+00_jprb &
9908  &, 0.266948e+00_jprb, 0.252600e+00_jprb, 0.238675e+00_jprb, 0.225193e+00_jprb &
9909  &, 0.212154e+00_jprb, 0.199559e+00_jprb, 0.187426e+00_jprb &
9910  &, 0.175752e+00_jprb, 0.164541e+00_jprb, 0.153799e+00_jprb, 0.143514e+00_jprb &
9911  &, 0.133697e+00_jprb, 0.124333e+00_jprb, 0.115439e+00_jprb &
9912  &, 0.106981e+00_jprb, 0.989720e-01_jprb, 0.913950e-01_jprb, 0.842587e-01_jprb &
9913  &, 0.775259e-01_jprb, 0.711981e-01_jprb, 0.652744e-01_jprb &
9914  &, 0.597207e-01_jprb, 0.545450e-01_jprb, 0.497215e-01_jprb, 0.452366e-01_jprb &
9915  &, 0.410735e-01_jprb, 0.372295e-01_jprb, 0.336822e-01_jprb &
9916  &, 0.304056e-01_jprb, 0.273883e-01_jprb, 0.246355e-01_jprb, 0.220935e-01_jprb &
9917  &, 0.198017e-01_jprb, 0.177007e-01_jprb, 0.157866e-01_jprb &
9918  &, 0.140547e-01_jprb, 0.124771e-01_jprb, 0.110670e-01_jprb, 0.979304e-02_jprb &
9919  &, 0.864334e-02_jprb, 0.762796e-02_jprb, 0.670956e-02_jprb &
9920  &, 0.587152e-02_jprb, 0.514514e-02_jprb, 0.448796e-02_jprb, 0.393113e-02_jprb &
9921  &, 0.340277e-02_jprb, 0.295912e-02_jprb, 0.257862e-02_jprb &
9922  &, 0.220994e-02_jprb, 0.191111e-02_jprb, 0.165777e-02_jprb, 0.142349e-02_jprb &
9923  &, 0.120972e-02_jprb, 0.104851e-02_jprb, 0.880847e-03_jprb &
9924  &, 0.738294e-03_jprb, 0.622449e-03_jprb, 0.534950e-03_jprb, 0.444077e-03_jprb &
9925  &, 0.383754e-03_jprb, 0.321136e-03_jprb, 0.256188e-03_jprb &
9926  &, 0.224648e-03_jprb, 0.191928e-03_jprb, 0.158010e-03_jprb, 0.122876e-03_jprb &
9927  &, 0.865085e-04_jprb, 0.877781e-04_jprb, 0.495298e-04_jprb &
9928  &, 0.501765e-04_jprb, 0.508292e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9929  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9930  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9931  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9932  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9933  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9934  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9935  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9936  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9937  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9938 
9939 IF (lhook) CALL dr_hook('SU_MCICA:PART32',1,zhook_handle)
9940 END SUBROUTINE part32
9941 
9942 #ifdef VPP5000
9943 !OCL SCALAR
9944 #endif
9945 !option! -Nv -NO
9946 #ifdef RS6K
9947 @process nooptimize
9948 #endif
9949 !pgi$r opt=0
9950 SUBROUTINE part33
9951 
9952 REAL(KIND=JPRB) :: ZHOOK_HANDLE
9953 IF (lhook) CALL dr_hook('SU_MCICA:PART33',0,zhook_handle)
9954 
9955 xcw( 225, :) = (/ &
9956  & 0.922919e+00_jprb, 0.903302e+00_jprb, 0.883572e+00_jprb, 0.863746e+00_jprb &
9957  &, 0.843833e+00_jprb, 0.823849e+00_jprb, 0.803809e+00_jprb &
9958  &, 0.783726e+00_jprb, 0.763614e+00_jprb, 0.743489e+00_jprb, 0.723366e+00_jprb &
9959  &, 0.703259e+00_jprb, 0.683182e+00_jprb, 0.663156e+00_jprb &
9960  &, 0.643191e+00_jprb, 0.623307e+00_jprb, 0.603518e+00_jprb, 0.583842e+00_jprb &
9961  &, 0.564295e+00_jprb, 0.544895e+00_jprb, 0.525656e+00_jprb &
9962  &, 0.506599e+00_jprb, 0.487738e+00_jprb, 0.469097e+00_jprb, 0.450686e+00_jprb &
9963  &, 0.432522e+00_jprb, 0.414627e+00_jprb, 0.397019e+00_jprb &
9964  &, 0.379708e+00_jprb, 0.362712e+00_jprb, 0.346053e+00_jprb, 0.329742e+00_jprb &
9965  &, 0.313789e+00_jprb, 0.298220e+00_jprb, 0.283037e+00_jprb &
9966  &, 0.268250e+00_jprb, 0.253887e+00_jprb, 0.239946e+00_jprb, 0.226436e+00_jprb &
9967  &, 0.213367e+00_jprb, 0.200750e+00_jprb, 0.188593e+00_jprb &
9968  &, 0.176881e+00_jprb, 0.165643e+00_jprb, 0.154858e+00_jprb, 0.144540e+00_jprb &
9969  &, 0.134687e+00_jprb, 0.125285e+00_jprb, 0.116350e+00_jprb &
9970  &, 0.107862e+00_jprb, 0.998064e-01_jprb, 0.921945e-01_jprb, 0.850208e-01_jprb &
9971  &, 0.782485e-01_jprb, 0.718934e-01_jprb, 0.659255e-01_jprb &
9972  &, 0.603406e-01_jprb, 0.551317e-01_jprb, 0.502731e-01_jprb, 0.457511e-01_jprb &
9973  &, 0.415658e-01_jprb, 0.376809e-01_jprb, 0.340905e-01_jprb &
9974  &, 0.307867e-01_jprb, 0.277407e-01_jprb, 0.249577e-01_jprb, 0.224035e-01_jprb &
9975  &, 0.200788e-01_jprb, 0.179433e-01_jprb, 0.160138e-01_jprb &
9976  &, 0.142656e-01_jprb, 0.126709e-01_jprb, 0.112429e-01_jprb, 0.995010e-02_jprb &
9977  &, 0.880364e-02_jprb, 0.774480e-02_jprb, 0.682877e-02_jprb &
9978  &, 0.599313e-02_jprb, 0.524437e-02_jprb, 0.458915e-02_jprb, 0.400852e-02_jprb &
9979  &, 0.348167e-02_jprb, 0.303955e-02_jprb, 0.263327e-02_jprb &
9980  &, 0.226563e-02_jprb, 0.196786e-02_jprb, 0.168668e-02_jprb, 0.145294e-02_jprb &
9981  &, 0.123971e-02_jprb, 0.107905e-02_jprb, 0.911949e-03_jprb &
9982  &, 0.769959e-03_jprb, 0.654684e-03_jprb, 0.567759e-03_jprb, 0.477467e-03_jprb &
9983  &, 0.383754e-03_jprb, 0.321136e-03_jprb, 0.291358e-03_jprb &
9984  &, 0.224648e-03_jprb, 0.191928e-03_jprb, 0.158010e-03_jprb, 0.122876e-03_jprb &
9985  &, 0.865085e-04_jprb, 0.877781e-04_jprb, 0.495298e-04_jprb &
9986  &, 0.501765e-04_jprb, 0.508292e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9987  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9988  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9989  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9990  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9991  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9992  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9993  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9994  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
9995  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
9996 xcw( 226, :) = (/ &
9997  & 0.923236e+00_jprb, 0.903692e+00_jprb, 0.884034e+00_jprb, 0.864276e+00_jprb &
9998  &, 0.844429e+00_jprb, 0.824511e+00_jprb, 0.804531e+00_jprb &
9999  &, 0.784507e+00_jprb, 0.764451e+00_jprb, 0.744380e+00_jprb, 0.724309e+00_jprb &
10000  &, 0.704250e+00_jprb, 0.684220e+00_jprb, 0.664235e+00_jprb &
10001  &, 0.644312e+00_jprb, 0.624464e+00_jprb, 0.604710e+00_jprb, 0.585066e+00_jprb &
10002  &, 0.565548e+00_jprb, 0.546173e+00_jprb, 0.526960e+00_jprb &
10003  &, 0.507922e+00_jprb, 0.489081e+00_jprb, 0.470450e+00_jprb, 0.452050e+00_jprb &
10004  &, 0.433897e+00_jprb, 0.416009e+00_jprb, 0.398400e+00_jprb &
10005  &, 0.381092e+00_jprb, 0.364095e+00_jprb, 0.347429e+00_jprb, 0.331110e+00_jprb &
10006  &, 0.315149e+00_jprb, 0.299565e+00_jprb, 0.284366e+00_jprb &
10007  &, 0.269562e+00_jprb, 0.255175e+00_jprb, 0.241217e+00_jprb, 0.227679e+00_jprb &
10008  &, 0.214590e+00_jprb, 0.201941e+00_jprb, 0.189749e+00_jprb &
10009  &, 0.178011e+00_jprb, 0.166732e+00_jprb, 0.155917e+00_jprb, 0.145565e+00_jprb &
10010  &, 0.135677e+00_jprb, 0.126249e+00_jprb, 0.117274e+00_jprb &
10011  &, 0.108742e+00_jprb, 0.100654e+00_jprb, 0.930077e-01_jprb, 0.857830e-01_jprb &
10012  &, 0.789855e-01_jprb, 0.725887e-01_jprb, 0.665767e-01_jprb &
10013  &, 0.609605e-01_jprb, 0.557185e-01_jprb, 0.508247e-01_jprb, 0.462656e-01_jprb &
10014  &, 0.420411e-01_jprb, 0.381322e-01_jprb, 0.345165e-01_jprb &
10015  &, 0.311859e-01_jprb, 0.281117e-01_jprb, 0.252990e-01_jprb, 0.227134e-01_jprb &
10016  &, 0.203559e-01_jprb, 0.182061e-01_jprb, 0.162616e-01_jprb &
10017  &, 0.144975e-01_jprb, 0.128862e-01_jprb, 0.114407e-01_jprb, 0.101296e-01_jprb &
10018  &, 0.894104e-02_jprb, 0.788501e-02_jprb, 0.694798e-02_jprb &
10019  &, 0.609042e-02_jprb, 0.534360e-02_jprb, 0.466505e-02_jprb, 0.408591e-02_jprb &
10020  &, 0.356057e-02_jprb, 0.309317e-02_jprb, 0.268792e-02_jprb &
10021  &, 0.232132e-02_jprb, 0.199623e-02_jprb, 0.171559e-02_jprb, 0.148238e-02_jprb &
10022  &, 0.126971e-02_jprb, 0.107905e-02_jprb, 0.943051e-03_jprb &
10023  &, 0.801624e-03_jprb, 0.686918e-03_jprb, 0.567759e-03_jprb, 0.477467e-03_jprb &
10024  &, 0.417731e-03_jprb, 0.355707e-03_jprb, 0.291358e-03_jprb &
10025  &, 0.224648e-03_jprb, 0.191928e-03_jprb, 0.158010e-03_jprb, 0.122876e-03_jprb &
10026  &, 0.124763e-03_jprb, 0.877781e-04_jprb, 0.495298e-04_jprb &
10027  &, 0.501765e-04_jprb, 0.508292e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10028  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10029  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10030  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10031  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10032  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10033  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10034  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10035  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10036  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10037 xcw( 227, :) = (/ &
10038  & 0.923551e+00_jprb, 0.904081e+00_jprb, 0.884494e+00_jprb, 0.864805e+00_jprb &
10039  &, 0.845025e+00_jprb, 0.825170e+00_jprb, 0.805252e+00_jprb &
10040  &, 0.785287e+00_jprb, 0.765288e+00_jprb, 0.745271e+00_jprb, 0.725249e+00_jprb &
10041  &, 0.705239e+00_jprb, 0.685255e+00_jprb, 0.665313e+00_jprb &
10042  &, 0.645430e+00_jprb, 0.625621e+00_jprb, 0.605902e+00_jprb, 0.586289e+00_jprb &
10043  &, 0.566801e+00_jprb, 0.547452e+00_jprb, 0.528260e+00_jprb &
10044  &, 0.509245e+00_jprb, 0.490421e+00_jprb, 0.471804e+00_jprb, 0.453418e+00_jprb &
10045  &, 0.435272e+00_jprb, 0.417391e+00_jprb, 0.399786e+00_jprb &
10046  &, 0.382476e+00_jprb, 0.365477e+00_jprb, 0.348805e+00_jprb, 0.332478e+00_jprb &
10047  &, 0.316508e+00_jprb, 0.300910e+00_jprb, 0.285695e+00_jprb &
10048  &, 0.270873e+00_jprb, 0.256472e+00_jprb, 0.242488e+00_jprb, 0.228932e+00_jprb &
10049  &, 0.215814e+00_jprb, 0.203132e+00_jprb, 0.190916e+00_jprb &
10050  &, 0.179141e+00_jprb, 0.167833e+00_jprb, 0.156987e+00_jprb, 0.146602e+00_jprb &
10051  &, 0.136679e+00_jprb, 0.127200e+00_jprb, 0.118184e+00_jprb &
10052  &, 0.109622e+00_jprb, 0.101502e+00_jprb, 0.938209e-01_jprb, 0.865593e-01_jprb &
10053  &, 0.797080e-01_jprb, 0.732840e-01_jprb, 0.672429e-01_jprb &
10054  &, 0.615804e-01_jprb, 0.563052e-01_jprb, 0.513764e-01_jprb, 0.467801e-01_jprb &
10055  &, 0.425334e-01_jprb, 0.385836e-01_jprb, 0.349425e-01_jprb &
10056  &, 0.315670e-01_jprb, 0.284826e-01_jprb, 0.256402e-01_jprb, 0.230233e-01_jprb &
10057  &, 0.206528e-01_jprb, 0.184892e-01_jprb, 0.165094e-01_jprb &
10058  &, 0.147084e-01_jprb, 0.130800e-01_jprb, 0.116166e-01_jprb, 0.102867e-01_jprb &
10059  &, 0.910134e-02_jprb, 0.802522e-02_jprb, 0.706719e-02_jprb &
10060  &, 0.621203e-02_jprb, 0.544283e-02_jprb, 0.476625e-02_jprb, 0.416330e-02_jprb &
10061  &, 0.363947e-02_jprb, 0.314679e-02_jprb, 0.274257e-02_jprb &
10062  &, 0.237702e-02_jprb, 0.205298e-02_jprb, 0.177340e-02_jprb, 0.151183e-02_jprb &
10063  &, 0.129970e-02_jprb, 0.110960e-02_jprb, 0.943051e-03_jprb &
10064  &, 0.801624e-03_jprb, 0.686918e-03_jprb, 0.600569e-03_jprb, 0.510858e-03_jprb &
10065  &, 0.417731e-03_jprb, 0.355707e-03_jprb, 0.291358e-03_jprb &
10066  &, 0.260423e-03_jprb, 0.191928e-03_jprb, 0.158010e-03_jprb, 0.122876e-03_jprb &
10067  &, 0.124763e-03_jprb, 0.877781e-04_jprb, 0.890596e-04_jprb &
10068  &, 0.501765e-04_jprb, 0.508292e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10069  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10070  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10071  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10072  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10073  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10074  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10075  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10076  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10077  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10078 xcw( 228, :) = (/ &
10079  & 0.923867e+00_jprb, 0.904471e+00_jprb, 0.884954e+00_jprb, 0.865333e+00_jprb &
10080  &, 0.845620e+00_jprb, 0.825828e+00_jprb, 0.805972e+00_jprb &
10081  &, 0.786065e+00_jprb, 0.766123e+00_jprb, 0.746159e+00_jprb, 0.726189e+00_jprb &
10082  &, 0.706227e+00_jprb, 0.686290e+00_jprb, 0.666391e+00_jprb &
10083  &, 0.646548e+00_jprb, 0.626776e+00_jprb, 0.607091e+00_jprb, 0.587511e+00_jprb &
10084  &, 0.568051e+00_jprb, 0.548727e+00_jprb, 0.529560e+00_jprb &
10085  &, 0.510564e+00_jprb, 0.491757e+00_jprb, 0.473157e+00_jprb, 0.454782e+00_jprb &
10086  &, 0.436647e+00_jprb, 0.418769e+00_jprb, 0.401171e+00_jprb &
10087  &, 0.383861e+00_jprb, 0.366859e+00_jprb, 0.350185e+00_jprb, 0.333846e+00_jprb &
10088  &, 0.317867e+00_jprb, 0.302255e+00_jprb, 0.287029e+00_jprb &
10089  &, 0.272194e+00_jprb, 0.257769e+00_jprb, 0.243759e+00_jprb, 0.230175e+00_jprb &
10090  &, 0.217027e+00_jprb, 0.204333e+00_jprb, 0.192082e+00_jprb &
10091  &, 0.180281e+00_jprb, 0.168935e+00_jprb, 0.158057e+00_jprb, 0.147640e+00_jprb &
10092  &, 0.137669e+00_jprb, 0.128164e+00_jprb, 0.119121e+00_jprb &
10093  &, 0.110516e+00_jprb, 0.102350e+00_jprb, 0.946342e-01_jprb, 0.873356e-01_jprb &
10094  &, 0.804450e-01_jprb, 0.739793e-01_jprb, 0.679092e-01_jprb &
10095  &, 0.622158e-01_jprb, 0.568920e-01_jprb, 0.519280e-01_jprb, 0.473112e-01_jprb &
10096  &, 0.430087e-01_jprb, 0.390349e-01_jprb, 0.353685e-01_jprb &
10097  &, 0.319662e-01_jprb, 0.288536e-01_jprb, 0.259814e-01_jprb, 0.233527e-01_jprb &
10098  &, 0.209496e-01_jprb, 0.187520e-01_jprb, 0.167572e-01_jprb &
10099  &, 0.149404e-01_jprb, 0.132953e-01_jprb, 0.118144e-01_jprb, 0.104662e-01_jprb &
10100  &, 0.926164e-02_jprb, 0.816543e-02_jprb, 0.718640e-02_jprb &
10101  &, 0.633363e-02_jprb, 0.554206e-02_jprb, 0.486744e-02_jprb, 0.424069e-02_jprb &
10102  &, 0.369208e-02_jprb, 0.322722e-02_jprb, 0.279723e-02_jprb &
10103  &, 0.243271e-02_jprb, 0.208136e-02_jprb, 0.180231e-02_jprb, 0.154128e-02_jprb &
10104  &, 0.132969e-02_jprb, 0.114014e-02_jprb, 0.974152e-03_jprb &
10105  &, 0.833289e-03_jprb, 0.719152e-03_jprb, 0.600569e-03_jprb, 0.510858e-03_jprb &
10106  &, 0.417731e-03_jprb, 0.355707e-03_jprb, 0.291358e-03_jprb &
10107  &, 0.260423e-03_jprb, 0.191928e-03_jprb, 0.158010e-03_jprb, 0.122876e-03_jprb &
10108  &, 0.124763e-03_jprb, 0.877781e-04_jprb, 0.890596e-04_jprb &
10109  &, 0.501765e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.100000e-04_jprb &
10110  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10111  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10112  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10113  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10114  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10115  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10116  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10117  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10118  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10119 xcw( 229, :) = (/ &
10120  & 0.924182e+00_jprb, 0.904857e+00_jprb, 0.885412e+00_jprb, 0.865860e+00_jprb &
10121  &, 0.846213e+00_jprb, 0.826485e+00_jprb, 0.806690e+00_jprb &
10122  &, 0.786842e+00_jprb, 0.766956e+00_jprb, 0.747046e+00_jprb, 0.727127e+00_jprb &
10123  &, 0.707214e+00_jprb, 0.687323e+00_jprb, 0.667467e+00_jprb &
10124  &, 0.647663e+00_jprb, 0.627930e+00_jprb, 0.608280e+00_jprb, 0.588731e+00_jprb &
10125  &, 0.569301e+00_jprb, 0.550005e+00_jprb, 0.530860e+00_jprb &
10126  &, 0.511884e+00_jprb, 0.493097e+00_jprb, 0.474511e+00_jprb, 0.456146e+00_jprb &
10127  &, 0.438022e+00_jprb, 0.420151e+00_jprb, 0.402552e+00_jprb &
10128  &, 0.385245e+00_jprb, 0.368242e+00_jprb, 0.351561e+00_jprb, 0.335218e+00_jprb &
10129  &, 0.319227e+00_jprb, 0.303604e+00_jprb, 0.288362e+00_jprb &
10130  &, 0.273505e+00_jprb, 0.259066e+00_jprb, 0.245030e+00_jprb, 0.231428e+00_jprb &
10131  &, 0.218260e+00_jprb, 0.205524e+00_jprb, 0.193249e+00_jprb &
10132  &, 0.181422e+00_jprb, 0.170047e+00_jprb, 0.159128e+00_jprb, 0.148677e+00_jprb &
10133  &, 0.138671e+00_jprb, 0.129128e+00_jprb, 0.120044e+00_jprb &
10134  &, 0.111410e+00_jprb, 0.103211e+00_jprb, 0.954474e-01_jprb, 0.881119e-01_jprb &
10135  &, 0.811965e-01_jprb, 0.746894e-01_jprb, 0.685755e-01_jprb &
10136  &, 0.628356e-01_jprb, 0.574787e-01_jprb, 0.524796e-01_jprb, 0.478257e-01_jprb &
10137  &, 0.435010e-01_jprb, 0.395036e-01_jprb, 0.357945e-01_jprb &
10138  &, 0.323654e-01_jprb, 0.292246e-01_jprb, 0.263227e-01_jprb, 0.236626e-01_jprb &
10139  &, 0.212267e-01_jprb, 0.190148e-01_jprb, 0.170050e-01_jprb &
10140  &, 0.151724e-01_jprb, 0.134891e-01_jprb, 0.119903e-01_jprb, 0.106233e-01_jprb &
10141  &, 0.939904e-02_jprb, 0.830564e-02_jprb, 0.732945e-02_jprb &
10142  &, 0.643092e-02_jprb, 0.566610e-02_jprb, 0.494334e-02_jprb, 0.431808e-02_jprb &
10143  &, 0.377098e-02_jprb, 0.328084e-02_jprb, 0.285188e-02_jprb &
10144  &, 0.248841e-02_jprb, 0.213811e-02_jprb, 0.186013e-02_jprb, 0.160017e-02_jprb &
10145  &, 0.135969e-02_jprb, 0.117069e-02_jprb, 0.100525e-02_jprb &
10146  &, 0.864954e-03_jprb, 0.719152e-03_jprb, 0.633378e-03_jprb, 0.510858e-03_jprb &
10147  &, 0.451709e-03_jprb, 0.355707e-03_jprb, 0.326527e-03_jprb &
10148  &, 0.260423e-03_jprb, 0.228314e-03_jprb, 0.195013e-03_jprb, 0.160502e-03_jprb &
10149  &, 0.124763e-03_jprb, 0.877781e-04_jprb, 0.890596e-04_jprb &
10150  &, 0.501765e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.100000e-04_jprb &
10151  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10152  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10153  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10154  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10155  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10156  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10157  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10158  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10159  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10160 xcw( 230, :) = (/ &
10161  & 0.924496e+00_jprb, 0.905244e+00_jprb, 0.885870e+00_jprb, 0.866386e+00_jprb &
10162  &, 0.846804e+00_jprb, 0.827140e+00_jprb, 0.807407e+00_jprb &
10163  &, 0.787618e+00_jprb, 0.767788e+00_jprb, 0.747932e+00_jprb, 0.728064e+00_jprb &
10164  &, 0.708199e+00_jprb, 0.688353e+00_jprb, 0.668541e+00_jprb &
10165  &, 0.648779e+00_jprb, 0.629081e+00_jprb, 0.609467e+00_jprb, 0.589950e+00_jprb &
10166  &, 0.570549e+00_jprb, 0.551278e+00_jprb, 0.532157e+00_jprb &
10167  &, 0.513204e+00_jprb, 0.494433e+00_jprb, 0.475864e+00_jprb, 0.457510e+00_jprb &
10168  &, 0.439393e+00_jprb, 0.421530e+00_jprb, 0.403938e+00_jprb &
10169  &, 0.386629e+00_jprb, 0.369624e+00_jprb, 0.352940e+00_jprb, 0.336591e+00_jprb &
10170  &, 0.320590e+00_jprb, 0.304953e+00_jprb, 0.289696e+00_jprb &
10171  &, 0.274826e+00_jprb, 0.260363e+00_jprb, 0.246311e+00_jprb, 0.232682e+00_jprb &
10172  &, 0.219483e+00_jprb, 0.206725e+00_jprb, 0.194416e+00_jprb &
10173  &, 0.182552e+00_jprb, 0.171148e+00_jprb, 0.160198e+00_jprb, 0.149715e+00_jprb &
10174  &, 0.139685e+00_jprb, 0.130105e+00_jprb, 0.120981e+00_jprb &
10175  &, 0.112303e+00_jprb, 0.104059e+00_jprb, 0.962606e-01_jprb, 0.888882e-01_jprb &
10176  &, 0.819335e-01_jprb, 0.753847e-01_jprb, 0.692417e-01_jprb &
10177  &, 0.634710e-01_jprb, 0.580813e-01_jprb, 0.530475e-01_jprb, 0.483568e-01_jprb &
10178  &, 0.440102e-01_jprb, 0.399724e-01_jprb, 0.362205e-01_jprb &
10179  &, 0.327647e-01_jprb, 0.295956e-01_jprb, 0.266639e-01_jprb, 0.239919e-01_jprb &
10180  &, 0.215236e-01_jprb, 0.192979e-01_jprb, 0.172528e-01_jprb &
10181  &, 0.153832e-01_jprb, 0.137045e-01_jprb, 0.121881e-01_jprb, 0.108028e-01_jprb &
10182  &, 0.955934e-02_jprb, 0.844584e-02_jprb, 0.744866e-02_jprb &
10183  &, 0.655253e-02_jprb, 0.576533e-02_jprb, 0.504454e-02_jprb, 0.442127e-02_jprb &
10184  &, 0.384988e-02_jprb, 0.336127e-02_jprb, 0.290653e-02_jprb &
10185  &, 0.251626e-02_jprb, 0.219486e-02_jprb, 0.188904e-02_jprb, 0.162962e-02_jprb &
10186  &, 0.138968e-02_jprb, 0.120123e-02_jprb, 0.103636e-02_jprb &
10187  &, 0.864954e-03_jprb, 0.751386e-03_jprb, 0.633378e-03_jprb, 0.544248e-03_jprb &
10188  &, 0.451709e-03_jprb, 0.390278e-03_jprb, 0.326527e-03_jprb &
10189  &, 0.260423e-03_jprb, 0.228314e-03_jprb, 0.195013e-03_jprb, 0.160502e-03_jprb &
10190  &, 0.124763e-03_jprb, 0.877781e-04_jprb, 0.890596e-04_jprb &
10191  &, 0.501765e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.100000e-04_jprb &
10192  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10193  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10194  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10195  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10196  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10197  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10198  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10199  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10200  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10201 xcw( 231, :) = (/ &
10202  & 0.924809e+00_jprb, 0.905631e+00_jprb, 0.886326e+00_jprb, 0.866911e+00_jprb &
10203  &, 0.847396e+00_jprb, 0.827795e+00_jprb, 0.808122e+00_jprb &
10204  &, 0.788392e+00_jprb, 0.768618e+00_jprb, 0.748816e+00_jprb, 0.728999e+00_jprb &
10205  &, 0.709183e+00_jprb, 0.689383e+00_jprb, 0.669613e+00_jprb &
10206  &, 0.649891e+00_jprb, 0.630232e+00_jprb, 0.610653e+00_jprb, 0.591168e+00_jprb &
10207  &, 0.571796e+00_jprb, 0.552553e+00_jprb, 0.533458e+00_jprb &
10208  &, 0.514523e+00_jprb, 0.495769e+00_jprb, 0.477214e+00_jprb, 0.458874e+00_jprb &
10209  &, 0.440768e+00_jprb, 0.422912e+00_jprb, 0.405319e+00_jprb &
10210  &, 0.388013e+00_jprb, 0.371006e+00_jprb, 0.354320e+00_jprb, 0.337963e+00_jprb &
10211  &, 0.321950e+00_jprb, 0.306303e+00_jprb, 0.291029e+00_jprb &
10212  &, 0.276147e+00_jprb, 0.261660e+00_jprb, 0.247583e+00_jprb, 0.233935e+00_jprb &
10213  &, 0.220717e+00_jprb, 0.207927e+00_jprb, 0.195594e+00_jprb &
10214  &, 0.183703e+00_jprb, 0.172261e+00_jprb, 0.161280e+00_jprb, 0.150752e+00_jprb &
10215  &, 0.140687e+00_jprb, 0.131069e+00_jprb, 0.121917e+00_jprb &
10216  &, 0.113197e+00_jprb, 0.104921e+00_jprb, 0.970876e-01_jprb, 0.896786e-01_jprb &
10217  &, 0.826850e-01_jprb, 0.761096e-01_jprb, 0.699232e-01_jprb &
10218  &, 0.641219e-01_jprb, 0.586839e-01_jprb, 0.536153e-01_jprb, 0.488879e-01_jprb &
10219  &, 0.445025e-01_jprb, 0.404411e-01_jprb, 0.366643e-01_jprb &
10220  &, 0.331820e-01_jprb, 0.299666e-01_jprb, 0.270241e-01_jprb, 0.243019e-01_jprb &
10221  &, 0.218403e-01_jprb, 0.195607e-01_jprb, 0.175006e-01_jprb &
10222  &, 0.156152e-01_jprb, 0.139198e-01_jprb, 0.123860e-01_jprb, 0.109823e-01_jprb &
10223  &, 0.971964e-02_jprb, 0.860942e-02_jprb, 0.759171e-02_jprb &
10224  &, 0.667414e-02_jprb, 0.586456e-02_jprb, 0.514573e-02_jprb, 0.449866e-02_jprb &
10225  &, 0.392878e-02_jprb, 0.341489e-02_jprb, 0.298851e-02_jprb &
10226  &, 0.257195e-02_jprb, 0.222323e-02_jprb, 0.191794e-02_jprb, 0.165907e-02_jprb &
10227  &, 0.141967e-02_jprb, 0.123178e-02_jprb, 0.106746e-02_jprb &
10228  &, 0.896619e-03_jprb, 0.751386e-03_jprb, 0.666187e-03_jprb, 0.544248e-03_jprb &
10229  &, 0.451709e-03_jprb, 0.390278e-03_jprb, 0.326527e-03_jprb &
10230  &, 0.260423e-03_jprb, 0.228314e-03_jprb, 0.195013e-03_jprb, 0.160502e-03_jprb &
10231  &, 0.124763e-03_jprb, 0.877781e-04_jprb, 0.890596e-04_jprb &
10232  &, 0.501765e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.100000e-04_jprb &
10233  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10234  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10235  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10236  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10237  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10238  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10239  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10240  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10241  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10242 
10243 IF (lhook) CALL dr_hook('SU_MCICA:PART33',1,zhook_handle)
10244 END SUBROUTINE part33
10245 
10246 #ifdef VPP5000
10247 !OCL SCALAR
10248 #endif
10249 !option! -Nv -NO
10250 #ifdef RS6K
10251 @process nooptimize
10252 #endif
10253 !pgi$r opt=0
10254 SUBROUTINE part34
10255 
10256 REAL(KIND=JPRB) :: ZHOOK_HANDLE
10257 IF (lhook) CALL dr_hook('SU_MCICA:PART34',0,zhook_handle)
10258 
10259 xcw( 232, :) = (/ &
10260  & 0.925119e+00_jprb, 0.906016e+00_jprb, 0.886782e+00_jprb, 0.867435e+00_jprb &
10261  &, 0.847985e+00_jprb, 0.828448e+00_jprb, 0.808837e+00_jprb &
10262  &, 0.789166e+00_jprb, 0.769448e+00_jprb, 0.749699e+00_jprb, 0.729933e+00_jprb &
10263  &, 0.710165e+00_jprb, 0.690410e+00_jprb, 0.670684e+00_jprb &
10264  &, 0.651003e+00_jprb, 0.631382e+00_jprb, 0.611837e+00_jprb, 0.592385e+00_jprb &
10265  &, 0.573043e+00_jprb, 0.553825e+00_jprb, 0.534751e+00_jprb &
10266  &, 0.515839e+00_jprb, 0.497106e+00_jprb, 0.478564e+00_jprb, 0.460238e+00_jprb &
10267  &, 0.442139e+00_jprb, 0.424290e+00_jprb, 0.406704e+00_jprb &
10268  &, 0.389401e+00_jprb, 0.372393e+00_jprb, 0.355700e+00_jprb, 0.339335e+00_jprb &
10269  &, 0.323313e+00_jprb, 0.307657e+00_jprb, 0.292367e+00_jprb &
10270  &, 0.277468e+00_jprb, 0.262957e+00_jprb, 0.248863e+00_jprb, 0.235188e+00_jprb &
10271  &, 0.221940e+00_jprb, 0.209138e+00_jprb, 0.196760e+00_jprb &
10272  &, 0.184844e+00_jprb, 0.173373e+00_jprb, 0.162362e+00_jprb, 0.151801e+00_jprb &
10273  &, 0.141701e+00_jprb, 0.132045e+00_jprb, 0.122853e+00_jprb &
10274  &, 0.114103e+00_jprb, 0.105796e+00_jprb, 0.979147e-01_jprb, 0.904690e-01_jprb &
10275  &, 0.834364e-01_jprb, 0.768197e-01_jprb, 0.705894e-01_jprb &
10276  &, 0.647573e-01_jprb, 0.592865e-01_jprb, 0.541832e-01_jprb, 0.494356e-01_jprb &
10277  &, 0.450118e-01_jprb, 0.409098e-01_jprb, 0.371080e-01_jprb &
10278  &, 0.335813e-01_jprb, 0.303561e-01_jprb, 0.273653e-01_jprb, 0.246312e-01_jprb &
10279  &, 0.221371e-01_jprb, 0.198437e-01_jprb, 0.177484e-01_jprb &
10280  &, 0.158683e-01_jprb, 0.141351e-01_jprb, 0.125838e-01_jprb, 0.111618e-01_jprb &
10281  &, 0.987994e-02_jprb, 0.874963e-02_jprb, 0.771092e-02_jprb &
10282  &, 0.679575e-02_jprb, 0.596379e-02_jprb, 0.524693e-02_jprb, 0.457605e-02_jprb &
10283  &, 0.400768e-02_jprb, 0.349532e-02_jprb, 0.304316e-02_jprb &
10284  &, 0.262764e-02_jprb, 0.227998e-02_jprb, 0.197576e-02_jprb, 0.171796e-02_jprb &
10285  &, 0.147966e-02_jprb, 0.126232e-02_jprb, 0.106746e-02_jprb &
10286  &, 0.928284e-03_jprb, 0.783620e-03_jprb, 0.666187e-03_jprb, 0.577639e-03_jprb &
10287  &, 0.485687e-03_jprb, 0.390278e-03_jprb, 0.326527e-03_jprb &
10288  &, 0.296198e-03_jprb, 0.228314e-03_jprb, 0.195013e-03_jprb, 0.160502e-03_jprb &
10289  &, 0.124763e-03_jprb, 0.877781e-04_jprb, 0.890596e-04_jprb &
10290  &, 0.501765e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.100000e-04_jprb &
10291  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10292  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10293  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10294  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10295  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10296  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10297  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10298  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10299  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10300 xcw( 233, :) = (/ &
10301  & 0.925433e+00_jprb, 0.906401e+00_jprb, 0.887237e+00_jprb, 0.867957e+00_jprb &
10302  &, 0.848574e+00_jprb, 0.829100e+00_jprb, 0.809550e+00_jprb &
10303  &, 0.789937e+00_jprb, 0.770275e+00_jprb, 0.750580e+00_jprb, 0.730865e+00_jprb &
10304  &, 0.711145e+00_jprb, 0.691438e+00_jprb, 0.671755e+00_jprb &
10305  &, 0.652114e+00_jprb, 0.632531e+00_jprb, 0.613020e+00_jprb, 0.593602e+00_jprb &
10306  &, 0.574288e+00_jprb, 0.555097e+00_jprb, 0.536048e+00_jprb &
10307  &, 0.517156e+00_jprb, 0.498442e+00_jprb, 0.479918e+00_jprb, 0.461602e+00_jprb &
10308  &, 0.443514e+00_jprb, 0.425672e+00_jprb, 0.408090e+00_jprb &
10309  &, 0.390785e+00_jprb, 0.373775e+00_jprb, 0.357080e+00_jprb, 0.340708e+00_jprb &
10310  &, 0.324677e+00_jprb, 0.309006e+00_jprb, 0.293706e+00_jprb &
10311  &, 0.278788e+00_jprb, 0.264263e+00_jprb, 0.250144e+00_jprb, 0.236451e+00_jprb &
10312  &, 0.223019e+00_jprb, 0.210340e+00_jprb, 0.197949e+00_jprb &
10313  &, 0.185996e+00_jprb, 0.174497e+00_jprb, 0.163444e+00_jprb, 0.152851e+00_jprb &
10314  &, 0.142715e+00_jprb, 0.133034e+00_jprb, 0.123790e+00_jprb &
10315  &, 0.115010e+00_jprb, 0.106657e+00_jprb, 0.987417e-01_jprb, 0.912594e-01_jprb &
10316  &, 0.841879e-01_jprb, 0.775299e-01_jprb, 0.712708e-01_jprb &
10317  &, 0.654082e-01_jprb, 0.599049e-01_jprb, 0.547673e-01_jprb, 0.499667e-01_jprb &
10318  &, 0.455210e-01_jprb, 0.413785e-01_jprb, 0.375518e-01_jprb &
10319  &, 0.339986e-01_jprb, 0.307271e-01_jprb, 0.277255e-01_jprb, 0.249605e-01_jprb &
10320  &, 0.224340e-01_jprb, 0.201268e-01_jprb, 0.180168e-01_jprb &
10321  &, 0.161002e-01_jprb, 0.143504e-01_jprb, 0.127816e-01_jprb, 0.113413e-01_jprb &
10322  &, 0.100631e-01_jprb, 0.888984e-02_jprb, 0.785397e-02_jprb &
10323  &, 0.691735e-02_jprb, 0.608782e-02_jprb, 0.534813e-02_jprb, 0.467924e-02_jprb &
10324  &, 0.408658e-02_jprb, 0.357575e-02_jprb, 0.309781e-02_jprb &
10325  &, 0.268334e-02_jprb, 0.233673e-02_jprb, 0.203358e-02_jprb, 0.174741e-02_jprb &
10326  &, 0.150965e-02_jprb, 0.129286e-02_jprb, 0.109856e-02_jprb &
10327  &, 0.959949e-03_jprb, 0.815855e-03_jprb, 0.698997e-03_jprb, 0.577639e-03_jprb &
10328  &, 0.485687e-03_jprb, 0.424848e-03_jprb, 0.361697e-03_jprb &
10329  &, 0.296198e-03_jprb, 0.228314e-03_jprb, 0.195013e-03_jprb, 0.160502e-03_jprb &
10330  &, 0.124763e-03_jprb, 0.126667e-03_jprb, 0.890596e-04_jprb &
10331  &, 0.903530e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.100000e-04_jprb &
10332  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10333  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10334  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10335  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10336  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10337  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10338  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10339  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10340  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10341 xcw( 234, :) = (/ &
10342  & 0.925744e+00_jprb, 0.906783e+00_jprb, 0.887690e+00_jprb, 0.868479e+00_jprb &
10343  &, 0.849161e+00_jprb, 0.829751e+00_jprb, 0.810261e+00_jprb &
10344  &, 0.790707e+00_jprb, 0.771102e+00_jprb, 0.751460e+00_jprb, 0.731796e+00_jprb &
10345  &, 0.712126e+00_jprb, 0.692463e+00_jprb, 0.672823e+00_jprb &
10346  &, 0.653222e+00_jprb, 0.633677e+00_jprb, 0.614202e+00_jprb, 0.594815e+00_jprb &
10347  &, 0.575532e+00_jprb, 0.556369e+00_jprb, 0.537342e+00_jprb &
10348  &, 0.518472e+00_jprb, 0.499775e+00_jprb, 0.481268e+00_jprb, 0.462963e+00_jprb &
10349  &, 0.444886e+00_jprb, 0.427051e+00_jprb, 0.409471e+00_jprb &
10350  &, 0.392169e+00_jprb, 0.375162e+00_jprb, 0.358460e+00_jprb, 0.342084e+00_jprb &
10351  &, 0.326045e+00_jprb, 0.310360e+00_jprb, 0.295044e+00_jprb &
10352  &, 0.280109e+00_jprb, 0.265570e+00_jprb, 0.251435e+00_jprb, 0.237714e+00_jprb &
10353  &, 0.224417e+00_jprb, 0.211552e+00_jprb, 0.199126e+00_jprb &
10354  &, 0.187147e+00_jprb, 0.175609e+00_jprb, 0.164538e+00_jprb, 0.153912e+00_jprb &
10355  &, 0.143729e+00_jprb, 0.134011e+00_jprb, 0.124739e+00_jprb &
10356  &, 0.115916e+00_jprb, 0.107532e+00_jprb, 0.995825e-01_jprb, 0.920639e-01_jprb &
10357  &, 0.849538e-01_jprb, 0.782548e-01_jprb, 0.719674e-01_jprb &
10358  &, 0.660436e-01_jprb, 0.605234e-01_jprb, 0.553351e-01_jprb, 0.505144e-01_jprb &
10359  &, 0.460303e-01_jprb, 0.418646e-01_jprb, 0.379955e-01_jprb &
10360  &, 0.344160e-01_jprb, 0.311166e-01_jprb, 0.280857e-01_jprb, 0.253092e-01_jprb &
10361  &, 0.227507e-01_jprb, 0.204098e-01_jprb, 0.182853e-01_jprb &
10362  &, 0.163322e-01_jprb, 0.145657e-01_jprb, 0.129795e-01_jprb, 0.115208e-01_jprb &
10363  &, 0.102234e-01_jprb, 0.905341e-02_jprb, 0.799702e-02_jprb &
10364  &, 0.703896e-02_jprb, 0.618705e-02_jprb, 0.544932e-02_jprb, 0.475663e-02_jprb &
10365  &, 0.416549e-02_jprb, 0.362937e-02_jprb, 0.317979e-02_jprb &
10366  &, 0.273903e-02_jprb, 0.239348e-02_jprb, 0.206249e-02_jprb, 0.177686e-02_jprb &
10367  &, 0.153965e-02_jprb, 0.132341e-02_jprb, 0.112966e-02_jprb &
10368  &, 0.959949e-03_jprb, 0.815855e-03_jprb, 0.698997e-03_jprb, 0.611029e-03_jprb &
10369  &, 0.519664e-03_jprb, 0.424848e-03_jprb, 0.361697e-03_jprb &
10370  &, 0.296198e-03_jprb, 0.264700e-03_jprb, 0.195013e-03_jprb, 0.160502e-03_jprb &
10371  &, 0.124763e-03_jprb, 0.126667e-03_jprb, 0.890596e-04_jprb &
10372  &, 0.903530e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10373  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10374  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10375  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10376  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10377  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10378  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10379  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10380  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10381  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10382 xcw( 235, :) = (/ &
10383  & 0.926054e+00_jprb, 0.907166e+00_jprb, 0.888143e+00_jprb, 0.869000e+00_jprb &
10384  &, 0.849748e+00_jprb, 0.830400e+00_jprb, 0.810972e+00_jprb &
10385  &, 0.791476e+00_jprb, 0.771927e+00_jprb, 0.752339e+00_jprb, 0.732726e+00_jprb &
10386  &, 0.713103e+00_jprb, 0.693486e+00_jprb, 0.673890e+00_jprb &
10387  &, 0.654330e+00_jprb, 0.634823e+00_jprb, 0.615384e+00_jprb, 0.596028e+00_jprb &
10388  &, 0.576775e+00_jprb, 0.557638e+00_jprb, 0.538636e+00_jprb &
10389  &, 0.519788e+00_jprb, 0.501107e+00_jprb, 0.482614e+00_jprb, 0.464327e+00_jprb &
10390  &, 0.446261e+00_jprb, 0.428429e+00_jprb, 0.410856e+00_jprb &
10391  &, 0.393558e+00_jprb, 0.376544e+00_jprb, 0.359840e+00_jprb, 0.343456e+00_jprb &
10392  &, 0.327409e+00_jprb, 0.311713e+00_jprb, 0.296386e+00_jprb &
10393  &, 0.281430e+00_jprb, 0.266876e+00_jprb, 0.252716e+00_jprb, 0.238978e+00_jprb &
10394  &, 0.225650e+00_jprb, 0.212764e+00_jprb, 0.200304e+00_jprb &
10395  &, 0.188299e+00_jprb, 0.176733e+00_jprb, 0.165620e+00_jprb, 0.154961e+00_jprb &
10396  &, 0.144756e+00_jprb, 0.135000e+00_jprb, 0.125688e+00_jprb &
10397  &, 0.116823e+00_jprb, 0.108407e+00_jprb, 0.100423e+00_jprb, 0.928543e-01_jprb &
10398  &, 0.857197e-01_jprb, 0.789796e-01_jprb, 0.726488e-01_jprb &
10399  &, 0.667099e-01_jprb, 0.611260e-01_jprb, 0.559192e-01_jprb, 0.510621e-01_jprb &
10400  &, 0.465396e-01_jprb, 0.423333e-01_jprb, 0.384393e-01_jprb &
10401  &, 0.348334e-01_jprb, 0.315061e-01_jprb, 0.284459e-01_jprb, 0.256385e-01_jprb &
10402  &, 0.230673e-01_jprb, 0.206929e-01_jprb, 0.185331e-01_jprb &
10403  &, 0.165853e-01_jprb, 0.148026e-01_jprb, 0.131773e-01_jprb, 0.117227e-01_jprb &
10404  &, 0.103837e-01_jprb, 0.919362e-02_jprb, 0.814007e-02_jprb &
10405  &, 0.716057e-02_jprb, 0.631109e-02_jprb, 0.555052e-02_jprb, 0.485981e-02_jprb &
10406  &, 0.424439e-02_jprb, 0.370980e-02_jprb, 0.323444e-02_jprb &
10407  &, 0.282258e-02_jprb, 0.245023e-02_jprb, 0.212030e-02_jprb, 0.183576e-02_jprb &
10408  &, 0.156964e-02_jprb, 0.135395e-02_jprb, 0.116076e-02_jprb &
10409  &, 0.991614e-03_jprb, 0.848089e-03_jprb, 0.731806e-03_jprb, 0.611029e-03_jprb &
10410  &, 0.519664e-03_jprb, 0.424848e-03_jprb, 0.361697e-03_jprb &
10411  &, 0.296198e-03_jprb, 0.264700e-03_jprb, 0.232015e-03_jprb, 0.160502e-03_jprb &
10412  &, 0.163017e-03_jprb, 0.126667e-03_jprb, 0.890596e-04_jprb &
10413  &, 0.903530e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10414  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10415  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10416  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10417  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10418  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10419  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10420  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10421  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10422  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10423 xcw( 236, :) = (/ &
10424  & 0.926364e+00_jprb, 0.907549e+00_jprb, 0.888595e+00_jprb, 0.869520e+00_jprb &
10425  &, 0.850333e+00_jprb, 0.831049e+00_jprb, 0.811681e+00_jprb &
10426  &, 0.792244e+00_jprb, 0.772750e+00_jprb, 0.753216e+00_jprb, 0.733654e+00_jprb &
10427  &, 0.714080e+00_jprb, 0.694509e+00_jprb, 0.674956e+00_jprb &
10428  &, 0.655437e+00_jprb, 0.635967e+00_jprb, 0.616562e+00_jprb, 0.597240e+00_jprb &
10429  &, 0.578016e+00_jprb, 0.558907e+00_jprb, 0.539930e+00_jprb &
10430  &, 0.521104e+00_jprb, 0.502440e+00_jprb, 0.483964e+00_jprb, 0.465688e+00_jprb &
10431  &, 0.447632e+00_jprb, 0.429811e+00_jprb, 0.412242e+00_jprb &
10432  &, 0.394942e+00_jprb, 0.377930e+00_jprb, 0.361224e+00_jprb, 0.344833e+00_jprb &
10433  &, 0.328777e+00_jprb, 0.313072e+00_jprb, 0.297729e+00_jprb &
10434  &, 0.282760e+00_jprb, 0.268183e+00_jprb, 0.254007e+00_jprb, 0.240241e+00_jprb &
10435  &, 0.226894e+00_jprb, 0.213975e+00_jprb, 0.201492e+00_jprb &
10436  &, 0.189451e+00_jprb, 0.177857e+00_jprb, 0.166714e+00_jprb, 0.156022e+00_jprb &
10437  &, 0.145782e+00_jprb, 0.135989e+00_jprb, 0.126650e+00_jprb &
10438  &, 0.117743e+00_jprb, 0.109281e+00_jprb, 0.101264e+00_jprb, 0.936588e-01_jprb &
10439  &, 0.864856e-01_jprb, 0.797193e-01_jprb, 0.733454e-01_jprb &
10440  &, 0.673608e-01_jprb, 0.617603e-01_jprb, 0.565033e-01_jprb, 0.516098e-01_jprb &
10441  &, 0.470658e-01_jprb, 0.428194e-01_jprb, 0.389008e-01_jprb &
10442  &, 0.352689e-01_jprb, 0.319142e-01_jprb, 0.288250e-01_jprb, 0.259678e-01_jprb &
10443  &, 0.233642e-01_jprb, 0.209962e-01_jprb, 0.188015e-01_jprb &
10444  &, 0.168172e-01_jprb, 0.150179e-01_jprb, 0.133752e-01_jprb, 0.119022e-01_jprb &
10445  &, 0.105669e-01_jprb, 0.935720e-02_jprb, 0.825928e-02_jprb &
10446  &, 0.730650e-02_jprb, 0.643513e-02_jprb, 0.565172e-02_jprb, 0.493720e-02_jprb &
10447  &, 0.432329e-02_jprb, 0.379023e-02_jprb, 0.328909e-02_jprb &
10448  &, 0.287827e-02_jprb, 0.247861e-02_jprb, 0.214921e-02_jprb, 0.186520e-02_jprb &
10449  &, 0.159963e-02_jprb, 0.138450e-02_jprb, 0.119186e-02_jprb &
10450  &, 0.102328e-02_jprb, 0.880323e-03_jprb, 0.731806e-03_jprb, 0.644420e-03_jprb &
10451  &, 0.519664e-03_jprb, 0.459419e-03_jprb, 0.396867e-03_jprb &
10452  &, 0.331972e-03_jprb, 0.264700e-03_jprb, 0.232015e-03_jprb, 0.198127e-03_jprb &
10453  &, 0.163017e-03_jprb, 0.126667e-03_jprb, 0.890596e-04_jprb &
10454  &, 0.903530e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10455  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10456  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10457  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10458  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10459  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10460  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10461  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10462  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10463  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10464 xcw( 237, :) = (/ &
10465  & 0.926673e+00_jprb, 0.907930e+00_jprb, 0.889046e+00_jprb, 0.870038e+00_jprb &
10466  &, 0.850917e+00_jprb, 0.831696e+00_jprb, 0.812389e+00_jprb &
10467  &, 0.793010e+00_jprb, 0.773573e+00_jprb, 0.754092e+00_jprb, 0.734581e+00_jprb &
10468  &, 0.715054e+00_jprb, 0.695530e+00_jprb, 0.676020e+00_jprb &
10469  &, 0.656542e+00_jprb, 0.637110e+00_jprb, 0.617741e+00_jprb, 0.598451e+00_jprb &
10470  &, 0.579257e+00_jprb, 0.560176e+00_jprb, 0.541223e+00_jprb &
10471  &, 0.522417e+00_jprb, 0.503773e+00_jprb, 0.485314e+00_jprb, 0.467052e+00_jprb &
10472  &, 0.449003e+00_jprb, 0.431189e+00_jprb, 0.413627e+00_jprb &
10473  &, 0.396330e+00_jprb, 0.379317e+00_jprb, 0.362604e+00_jprb, 0.346209e+00_jprb &
10474  &, 0.330145e+00_jprb, 0.314430e+00_jprb, 0.299071e+00_jprb &
10475  &, 0.284090e+00_jprb, 0.269489e+00_jprb, 0.255297e+00_jprb, 0.241504e+00_jprb &
10476  &, 0.228138e+00_jprb, 0.215198e+00_jprb, 0.202681e+00_jprb &
10477  &, 0.190614e+00_jprb, 0.178992e+00_jprb, 0.167807e+00_jprb, 0.157084e+00_jprb &
10478  &, 0.146808e+00_jprb, 0.136978e+00_jprb, 0.127599e+00_jprb &
10479  &, 0.118663e+00_jprb, 0.110170e+00_jprb, 0.102105e+00_jprb, 0.944775e-01_jprb &
10480  &, 0.872515e-01_jprb, 0.804442e-01_jprb, 0.740419e-01_jprb &
10481  &, 0.680272e-01_jprb, 0.623788e-01_jprb, 0.571036e-01_jprb, 0.521741e-01_jprb &
10482  &, 0.475751e-01_jprb, 0.433055e-01_jprb, 0.393623e-01_jprb &
10483  &, 0.356863e-01_jprb, 0.323037e-01_jprb, 0.291852e-01_jprb, 0.263165e-01_jprb &
10484  &, 0.236809e-01_jprb, 0.212792e-01_jprb, 0.190700e-01_jprb &
10485  &, 0.170703e-01_jprb, 0.152548e-01_jprb, 0.135950e-01_jprb, 0.120817e-01_jprb &
10486  &, 0.107272e-01_jprb, 0.952077e-02_jprb, 0.840233e-02_jprb &
10487  &, 0.742811e-02_jprb, 0.653436e-02_jprb, 0.575291e-02_jprb, 0.504039e-02_jprb &
10488  &, 0.442849e-02_jprb, 0.387066e-02_jprb, 0.337107e-02_jprb &
10489  &, 0.293396e-02_jprb, 0.253536e-02_jprb, 0.220703e-02_jprb, 0.189465e-02_jprb &
10490  &, 0.162962e-02_jprb, 0.141504e-02_jprb, 0.122297e-02_jprb &
10491  &, 0.105494e-02_jprb, 0.880323e-03_jprb, 0.764615e-03_jprb, 0.644420e-03_jprb &
10492  &, 0.553642e-03_jprb, 0.459419e-03_jprb, 0.396867e-03_jprb &
10493  &, 0.331972e-03_jprb, 0.264700e-03_jprb, 0.232015e-03_jprb, 0.198127e-03_jprb &
10494  &, 0.163017e-03_jprb, 0.126667e-03_jprb, 0.890596e-04_jprb &
10495  &, 0.903530e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10496  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10497  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10498  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10499  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10500  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10501  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10502  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10503  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10504  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10505 xcw( 238, :) = (/ &
10506  & 0.926982e+00_jprb, 0.908310e+00_jprb, 0.889496e+00_jprb, 0.870556e+00_jprb &
10507  &, 0.851500e+00_jprb, 0.832342e+00_jprb, 0.813095e+00_jprb &
10508  &, 0.793775e+00_jprb, 0.774394e+00_jprb, 0.754965e+00_jprb, 0.735506e+00_jprb &
10509  &, 0.716029e+00_jprb, 0.696550e+00_jprb, 0.677084e+00_jprb &
10510  &, 0.657646e+00_jprb, 0.638252e+00_jprb, 0.618918e+00_jprb, 0.599661e+00_jprb &
10511  &, 0.580497e+00_jprb, 0.561442e+00_jprb, 0.542514e+00_jprb &
10512  &, 0.523730e+00_jprb, 0.505106e+00_jprb, 0.486661e+00_jprb, 0.468412e+00_jprb &
10513  &, 0.450374e+00_jprb, 0.432568e+00_jprb, 0.415008e+00_jprb &
10514  &, 0.397718e+00_jprb, 0.380703e+00_jprb, 0.363988e+00_jprb, 0.347586e+00_jprb &
10515  &, 0.331517e+00_jprb, 0.315788e+00_jprb, 0.300419e+00_jprb &
10516  &, 0.285420e+00_jprb, 0.270806e+00_jprb, 0.256588e+00_jprb, 0.242777e+00_jprb &
10517  &, 0.229382e+00_jprb, 0.216410e+00_jprb, 0.203880e+00_jprb &
10518  &, 0.191777e+00_jprb, 0.180116e+00_jprb, 0.168913e+00_jprb, 0.158145e+00_jprb &
10519  &, 0.147835e+00_jprb, 0.137980e+00_jprb, 0.128561e+00_jprb &
10520  &, 0.119582e+00_jprb, 0.111058e+00_jprb, 0.102959e+00_jprb, 0.952820e-01_jprb &
10521  &, 0.880319e-01_jprb, 0.811839e-01_jprb, 0.747385e-01_jprb &
10522  &, 0.686781e-01_jprb, 0.630131e-01_jprb, 0.576877e-01_jprb, 0.527218e-01_jprb &
10523  &, 0.481013e-01_jprb, 0.438089e-01_jprb, 0.398061e-01_jprb &
10524  &, 0.361218e-01_jprb, 0.327118e-01_jprb, 0.295644e-01_jprb, 0.266652e-01_jprb &
10525  &, 0.240173e-01_jprb, 0.215825e-01_jprb, 0.193591e-01_jprb &
10526  &, 0.173233e-01_jprb, 0.154701e-01_jprb, 0.137928e-01_jprb, 0.122837e-01_jprb &
10527  &, 0.109104e-01_jprb, 0.966098e-02_jprb, 0.854538e-02_jprb &
10528  &, 0.754972e-02_jprb, 0.665839e-02_jprb, 0.585411e-02_jprb, 0.514358e-02_jprb &
10529  &, 0.450739e-02_jprb, 0.392428e-02_jprb, 0.342572e-02_jprb &
10530  &, 0.298966e-02_jprb, 0.259211e-02_jprb, 0.226484e-02_jprb, 0.195355e-02_jprb &
10531  &, 0.168961e-02_jprb, 0.144559e-02_jprb, 0.125407e-02_jprb &
10532  &, 0.105494e-02_jprb, 0.912557e-03_jprb, 0.764615e-03_jprb, 0.677810e-03_jprb &
10533  &, 0.553642e-03_jprb, 0.459419e-03_jprb, 0.396867e-03_jprb &
10534  &, 0.331972e-03_jprb, 0.264700e-03_jprb, 0.232015e-03_jprb, 0.198127e-03_jprb &
10535  &, 0.163017e-03_jprb, 0.126667e-03_jprb, 0.890596e-04_jprb &
10536  &, 0.903530e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10537  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10538  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10539  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10540  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10541  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10542  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10543  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10544  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10545  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10546 
10547 IF (lhook) CALL dr_hook('SU_MCICA:PART34',1,zhook_handle)
10548 END SUBROUTINE part34
10549 
10550 #ifdef VPP5000
10551 !OCL SCALAR
10552 #endif
10553 !option! -Nv -NO
10554 #ifdef RS6K
10555 @process nooptimize
10556 #endif
10557 !pgi$r opt=0
10558 SUBROUTINE part35
10559 
10560 REAL(KIND=JPRB) :: ZHOOK_HANDLE
10561 IF (lhook) CALL dr_hook('SU_MCICA:PART35',0,zhook_handle)
10562 
10563 xcw( 239, :) = (/ &
10564  & 0.927289e+00_jprb, 0.908689e+00_jprb, 0.889945e+00_jprb, 0.871073e+00_jprb &
10565  &, 0.852082e+00_jprb, 0.832987e+00_jprb, 0.813801e+00_jprb &
10566  &, 0.794539e+00_jprb, 0.775213e+00_jprb, 0.755839e+00_jprb, 0.736430e+00_jprb &
10567  &, 0.717002e+00_jprb, 0.697568e+00_jprb, 0.678145e+00_jprb &
10568  &, 0.658749e+00_jprb, 0.639393e+00_jprb, 0.620094e+00_jprb, 0.600870e+00_jprb &
10569  &, 0.581736e+00_jprb, 0.562708e+00_jprb, 0.543804e+00_jprb &
10570  &, 0.525043e+00_jprb, 0.506439e+00_jprb, 0.488007e+00_jprb, 0.469773e+00_jprb &
10571  &, 0.451746e+00_jprb, 0.433950e+00_jprb, 0.416394e+00_jprb &
10572  &, 0.399102e+00_jprb, 0.382090e+00_jprb, 0.365372e+00_jprb, 0.348967e+00_jprb &
10573  &, 0.332885e+00_jprb, 0.317146e+00_jprb, 0.301761e+00_jprb &
10574  &, 0.286750e+00_jprb, 0.272112e+00_jprb, 0.257879e+00_jprb, 0.244051e+00_jprb &
10575  &, 0.230625e+00_jprb, 0.217632e+00_jprb, 0.205068e+00_jprb &
10576  &, 0.192939e+00_jprb, 0.181251e+00_jprb, 0.170018e+00_jprb, 0.159218e+00_jprb &
10577  &, 0.148873e+00_jprb, 0.138981e+00_jprb, 0.129523e+00_jprb &
10578  &, 0.120515e+00_jprb, 0.111946e+00_jprb, 0.103814e+00_jprb, 0.961006e-01_jprb &
10579  &, 0.888122e-01_jprb, 0.819236e-01_jprb, 0.754502e-01_jprb &
10580  &, 0.693600e-01_jprb, 0.636315e-01_jprb, 0.582880e-01_jprb, 0.532861e-01_jprb &
10581  &, 0.486275e-01_jprb, 0.442950e-01_jprb, 0.402853e-01_jprb &
10582  &, 0.365573e-01_jprb, 0.331199e-01_jprb, 0.299435e-01_jprb, 0.270139e-01_jprb &
10583  &, 0.243340e-01_jprb, 0.218655e-01_jprb, 0.196275e-01_jprb &
10584  &, 0.175764e-01_jprb, 0.157070e-01_jprb, 0.140127e-01_jprb, 0.124632e-01_jprb &
10585  &, 0.110936e-01_jprb, 0.982456e-02_jprb, 0.871227e-02_jprb &
10586  &, 0.769565e-02_jprb, 0.678243e-02_jprb, 0.595531e-02_jprb, 0.524677e-02_jprb &
10587  &, 0.458629e-02_jprb, 0.400471e-02_jprb, 0.350769e-02_jprb &
10588  &, 0.304535e-02_jprb, 0.264886e-02_jprb, 0.229375e-02_jprb, 0.198299e-02_jprb &
10589  &, 0.171960e-02_jprb, 0.147613e-02_jprb, 0.128517e-02_jprb &
10590  &, 0.108661e-02_jprb, 0.944791e-03_jprb, 0.797425e-03_jprb, 0.677810e-03_jprb &
10591  &, 0.587619e-03_jprb, 0.493990e-03_jprb, 0.396867e-03_jprb &
10592  &, 0.331972e-03_jprb, 0.301085e-03_jprb, 0.232015e-03_jprb, 0.198127e-03_jprb &
10593  &, 0.163017e-03_jprb, 0.126667e-03_jprb, 0.128589e-03_jprb &
10594  &, 0.903530e-04_jprb, 0.508292e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10595  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10596  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10597  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10598  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10599  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10600  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10601  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10602  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10603  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10604 xcw( 240, :) = (/ &
10605  & 0.927595e+00_jprb, 0.909068e+00_jprb, 0.890394e+00_jprb, 0.871588e+00_jprb &
10606  &, 0.852662e+00_jprb, 0.833630e+00_jprb, 0.814505e+00_jprb &
10607  &, 0.795301e+00_jprb, 0.776031e+00_jprb, 0.756710e+00_jprb, 0.737353e+00_jprb &
10608  &, 0.717972e+00_jprb, 0.698586e+00_jprb, 0.679206e+00_jprb &
10609  &, 0.659849e+00_jprb, 0.640531e+00_jprb, 0.621270e+00_jprb, 0.602078e+00_jprb &
10610  &, 0.582974e+00_jprb, 0.563974e+00_jprb, 0.545095e+00_jprb &
10611  &, 0.526353e+00_jprb, 0.507768e+00_jprb, 0.489354e+00_jprb, 0.471134e+00_jprb &
10612  &, 0.453117e+00_jprb, 0.435328e+00_jprb, 0.417779e+00_jprb &
10613  &, 0.400490e+00_jprb, 0.383476e+00_jprb, 0.366755e+00_jprb, 0.350343e+00_jprb &
10614  &, 0.334257e+00_jprb, 0.318505e+00_jprb, 0.303113e+00_jprb &
10615  &, 0.288080e+00_jprb, 0.273428e+00_jprb, 0.259179e+00_jprb, 0.245324e+00_jprb &
10616  &, 0.231879e+00_jprb, 0.218855e+00_jprb, 0.206267e+00_jprb &
10617  &, 0.194113e+00_jprb, 0.182386e+00_jprb, 0.171123e+00_jprb, 0.160291e+00_jprb &
10618  &, 0.149912e+00_jprb, 0.139983e+00_jprb, 0.130485e+00_jprb &
10619  &, 0.121448e+00_jprb, 0.112834e+00_jprb, 0.104669e+00_jprb, 0.969193e-01_jprb &
10620  &, 0.895926e-01_jprb, 0.826781e-01_jprb, 0.761467e-01_jprb &
10621  &, 0.700263e-01_jprb, 0.642817e-01_jprb, 0.588883e-01_jprb, 0.538504e-01_jprb &
10622  &, 0.491707e-01_jprb, 0.447984e-01_jprb, 0.407468e-01_jprb &
10623  &, 0.369928e-01_jprb, 0.335094e-01_jprb, 0.303226e-01_jprb, 0.273626e-01_jprb &
10624  &, 0.246507e-01_jprb, 0.221688e-01_jprb, 0.198960e-01_jprb &
10625  &, 0.178295e-01_jprb, 0.159438e-01_jprb, 0.142325e-01_jprb, 0.126651e-01_jprb &
10626  &, 0.112539e-01_jprb, 0.998813e-02_jprb, 0.885533e-02_jprb &
10627  &, 0.781726e-02_jprb, 0.690647e-02_jprb, 0.608180e-02_jprb, 0.532416e-02_jprb &
10628  &, 0.466520e-02_jprb, 0.408514e-02_jprb, 0.356235e-02_jprb &
10629  &, 0.310105e-02_jprb, 0.270560e-02_jprb, 0.235157e-02_jprb, 0.204189e-02_jprb &
10630  &, 0.174960e-02_jprb, 0.150668e-02_jprb, 0.131627e-02_jprb &
10631  &, 0.111827e-02_jprb, 0.944791e-03_jprb, 0.830234e-03_jprb, 0.711201e-03_jprb &
10632  &, 0.587619e-03_jprb, 0.493990e-03_jprb, 0.432037e-03_jprb &
10633  &, 0.367747e-03_jprb, 0.301085e-03_jprb, 0.232015e-03_jprb, 0.198127e-03_jprb &
10634  &, 0.163017e-03_jprb, 0.126667e-03_jprb, 0.128589e-03_jprb &
10635  &, 0.903530e-04_jprb, 0.916583e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10636  &, 0.528229e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10637  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10638  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10639  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10640  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10641  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10642  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10643  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10644  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10645 xcw( 241, :) = (/ &
10646  & 0.927903e+00_jprb, 0.909446e+00_jprb, 0.890841e+00_jprb, 0.872103e+00_jprb &
10647  &, 0.853242e+00_jprb, 0.834273e+00_jprb, 0.815209e+00_jprb &
10648  &, 0.796062e+00_jprb, 0.776848e+00_jprb, 0.757581e+00_jprb, 0.738275e+00_jprb &
10649  &, 0.718942e+00_jprb, 0.699601e+00_jprb, 0.680264e+00_jprb &
10650  &, 0.660949e+00_jprb, 0.641670e+00_jprb, 0.622442e+00_jprb, 0.603284e+00_jprb &
10651  &, 0.584210e+00_jprb, 0.565236e+00_jprb, 0.546382e+00_jprb &
10652  &, 0.527666e+00_jprb, 0.509098e+00_jprb, 0.490701e+00_jprb, 0.472494e+00_jprb &
10653  &, 0.454488e+00_jprb, 0.436707e+00_jprb, 0.419164e+00_jprb &
10654  &, 0.401878e+00_jprb, 0.384866e+00_jprb, 0.368140e+00_jprb, 0.351724e+00_jprb &
10655  &, 0.335629e+00_jprb, 0.319867e+00_jprb, 0.304460e+00_jprb &
10656  &, 0.289411e+00_jprb, 0.274744e+00_jprb, 0.260470e+00_jprb, 0.246597e+00_jprb &
10657  &, 0.233133e+00_jprb, 0.220087e+00_jprb, 0.207466e+00_jprb &
10658  &, 0.195276e+00_jprb, 0.183533e+00_jprb, 0.172229e+00_jprb, 0.161364e+00_jprb &
10659  &, 0.150951e+00_jprb, 0.140985e+00_jprb, 0.131460e+00_jprb &
10660  &, 0.122381e+00_jprb, 0.113736e+00_jprb, 0.105523e+00_jprb, 0.977379e-01_jprb &
10661  &, 0.903730e-01_jprb, 0.834178e-01_jprb, 0.768584e-01_jprb &
10662  &, 0.707082e-01_jprb, 0.649160e-01_jprb, 0.594886e-01_jprb, 0.544313e-01_jprb &
10663  &, 0.496970e-01_jprb, 0.453018e-01_jprb, 0.412261e-01_jprb &
10664  &, 0.374283e-01_jprb, 0.339360e-01_jprb, 0.307018e-01_jprb, 0.277112e-01_jprb &
10665  &, 0.249871e-01_jprb, 0.224721e-01_jprb, 0.201851e-01_jprb &
10666  &, 0.180825e-01_jprb, 0.161807e-01_jprb, 0.144523e-01_jprb, 0.128671e-01_jprb &
10667  &, 0.114371e-01_jprb, 0.101517e-01_jprb, 0.899838e-02_jprb &
10668  &, 0.796319e-02_jprb, 0.703051e-02_jprb, 0.618300e-02_jprb, 0.542734e-02_jprb &
10669  &, 0.477040e-02_jprb, 0.416557e-02_jprb, 0.364432e-02_jprb &
10670  &, 0.318459e-02_jprb, 0.276235e-02_jprb, 0.240938e-02_jprb, 0.207134e-02_jprb &
10671  &, 0.180958e-02_jprb, 0.153722e-02_jprb, 0.134737e-02_jprb &
10672  &, 0.114994e-02_jprb, 0.977025e-03_jprb, 0.830234e-03_jprb, 0.711201e-03_jprb &
10673  &, 0.621597e-03_jprb, 0.528560e-03_jprb, 0.432037e-03_jprb &
10674  &, 0.367747e-03_jprb, 0.301085e-03_jprb, 0.269018e-03_jprb, 0.198127e-03_jprb &
10675  &, 0.163017e-03_jprb, 0.126667e-03_jprb, 0.128589e-03_jprb &
10676  &, 0.903530e-04_jprb, 0.916583e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10677  &, 0.528229e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10678  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10679  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10680  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10681  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10682  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10683  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10684  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10685  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10686 xcw( 242, :) = (/ &
10687  & 0.928209e+00_jprb, 0.909824e+00_jprb, 0.891288e+00_jprb, 0.872617e+00_jprb &
10688  &, 0.853821e+00_jprb, 0.834915e+00_jprb, 0.815910e+00_jprb &
10689  &, 0.796822e+00_jprb, 0.777664e+00_jprb, 0.758450e+00_jprb, 0.739195e+00_jprb &
10690  &, 0.719911e+00_jprb, 0.700616e+00_jprb, 0.681323e+00_jprb &
10691  &, 0.662048e+00_jprb, 0.642806e+00_jprb, 0.623615e+00_jprb, 0.604490e+00_jprb &
10692  &, 0.585446e+00_jprb, 0.566499e+00_jprb, 0.547673e+00_jprb &
10693  &, 0.528975e+00_jprb, 0.510427e+00_jprb, 0.492047e+00_jprb, 0.473855e+00_jprb &
10694  &, 0.455860e+00_jprb, 0.438085e+00_jprb, 0.420550e+00_jprb &
10695  &, 0.403266e+00_jprb, 0.386253e+00_jprb, 0.369528e+00_jprb, 0.353105e+00_jprb &
10696  &, 0.337002e+00_jprb, 0.321230e+00_jprb, 0.305812e+00_jprb &
10697  &, 0.290750e+00_jprb, 0.276070e+00_jprb, 0.261771e+00_jprb, 0.247870e+00_jprb &
10698  &, 0.234387e+00_jprb, 0.221310e+00_jprb, 0.208666e+00_jprb &
10699  &, 0.196450e+00_jprb, 0.184679e+00_jprb, 0.173334e+00_jprb, 0.162449e+00_jprb &
10700  &, 0.152001e+00_jprb, 0.141999e+00_jprb, 0.132435e+00_jprb &
10701  &, 0.123314e+00_jprb, 0.114638e+00_jprb, 0.106392e+00_jprb, 0.985707e-01_jprb &
10702  &, 0.911678e-01_jprb, 0.841723e-01_jprb, 0.775853e-01_jprb &
10703  &, 0.713746e-01_jprb, 0.655503e-01_jprb, 0.601051e-01_jprb, 0.549955e-01_jprb &
10704  &, 0.502402e-01_jprb, 0.458053e-01_jprb, 0.416876e-01_jprb &
10705  &, 0.378820e-01_jprb, 0.343441e-01_jprb, 0.310809e-01_jprb, 0.280793e-01_jprb &
10706  &, 0.253236e-01_jprb, 0.227753e-01_jprb, 0.204742e-01_jprb &
10707  &, 0.183567e-01_jprb, 0.164175e-01_jprb, 0.146721e-01_jprb, 0.130690e-01_jprb &
10708  &, 0.116203e-01_jprb, 0.103153e-01_jprb, 0.914143e-02_jprb &
10709  &, 0.808479e-02_jprb, 0.715454e-02_jprb, 0.628420e-02_jprb, 0.553053e-02_jprb &
10710  &, 0.484930e-02_jprb, 0.424601e-02_jprb, 0.372630e-02_jprb &
10711  &, 0.324028e-02_jprb, 0.281910e-02_jprb, 0.243829e-02_jprb, 0.213023e-02_jprb &
10712  &, 0.183958e-02_jprb, 0.159831e-02_jprb, 0.137847e-02_jprb &
10713  &, 0.118160e-02_jprb, 0.100926e-02_jprb, 0.863044e-03_jprb, 0.744591e-03_jprb &
10714  &, 0.621597e-03_jprb, 0.528560e-03_jprb, 0.432037e-03_jprb &
10715  &, 0.367747e-03_jprb, 0.301085e-03_jprb, 0.269018e-03_jprb, 0.235753e-03_jprb &
10716  &, 0.201271e-03_jprb, 0.165556e-03_jprb, 0.128589e-03_jprb &
10717  &, 0.903530e-04_jprb, 0.916583e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10718  &, 0.528229e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10719  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10720  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10721  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10722  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10723  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10724  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10725  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10726  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10727 xcw( 243, :) = (/ &
10728  & 0.928514e+00_jprb, 0.910200e+00_jprb, 0.891734e+00_jprb, 0.873130e+00_jprb &
10729  &, 0.854398e+00_jprb, 0.835555e+00_jprb, 0.816611e+00_jprb &
10730  &, 0.797581e+00_jprb, 0.778479e+00_jprb, 0.759318e+00_jprb, 0.740113e+00_jprb &
10731  &, 0.720878e+00_jprb, 0.701628e+00_jprb, 0.682380e+00_jprb &
10732  &, 0.663145e+00_jprb, 0.643943e+00_jprb, 0.624786e+00_jprb, 0.605694e+00_jprb &
10733  &, 0.586680e+00_jprb, 0.567762e+00_jprb, 0.548960e+00_jprb &
10734  &, 0.530285e+00_jprb, 0.511757e+00_jprb, 0.493394e+00_jprb, 0.475212e+00_jprb &
10735  &, 0.457231e+00_jprb, 0.439467e+00_jprb, 0.421935e+00_jprb &
10736  &, 0.404654e+00_jprb, 0.387643e+00_jprb, 0.370912e+00_jprb, 0.354486e+00_jprb &
10737  &, 0.338374e+00_jprb, 0.322597e+00_jprb, 0.307164e+00_jprb &
10738  &, 0.292089e+00_jprb, 0.277386e+00_jprb, 0.263071e+00_jprb, 0.249153e+00_jprb &
10739  &, 0.235641e+00_jprb, 0.222543e+00_jprb, 0.209876e+00_jprb &
10740  &, 0.197624e+00_jprb, 0.185815e+00_jprb, 0.174451e+00_jprb, 0.163522e+00_jprb &
10741  &, 0.153040e+00_jprb, 0.143013e+00_jprb, 0.133410e+00_jprb &
10742  &, 0.124260e+00_jprb, 0.115540e+00_jprb, 0.107260e+00_jprb, 0.994034e-01_jprb &
10743  &, 0.919626e-01_jprb, 0.849268e-01_jprb, 0.782970e-01_jprb &
10744  &, 0.720565e-01_jprb, 0.662005e-01_jprb, 0.607054e-01_jprb, 0.555764e-01_jprb &
10745  &, 0.507834e-01_jprb, 0.463261e-01_jprb, 0.421669e-01_jprb &
10746  &, 0.383175e-01_jprb, 0.347522e-01_jprb, 0.314790e-01_jprb, 0.284474e-01_jprb &
10747  &, 0.256601e-01_jprb, 0.230988e-01_jprb, 0.207426e-01_jprb &
10748  &, 0.186097e-01_jprb, 0.166544e-01_jprb, 0.148919e-01_jprb, 0.132710e-01_jprb &
10749  &, 0.118035e-01_jprb, 0.105022e-01_jprb, 0.930832e-02_jprb &
10750  &, 0.823072e-02_jprb, 0.727858e-02_jprb, 0.641069e-02_jprb, 0.563372e-02_jprb &
10751  &, 0.495450e-02_jprb, 0.432644e-02_jprb, 0.378095e-02_jprb &
10752  &, 0.329598e-02_jprb, 0.287585e-02_jprb, 0.249611e-02_jprb, 0.215968e-02_jprb &
10753  &, 0.186957e-02_jprb, 0.162885e-02_jprb, 0.140958e-02_jprb &
10754  &, 0.121327e-02_jprb, 0.104149e-02_jprb, 0.895853e-03_jprb, 0.744591e-03_jprb &
10755  &, 0.655575e-03_jprb, 0.528560e-03_jprb, 0.467206e-03_jprb &
10756  &, 0.403522e-03_jprb, 0.337471e-03_jprb, 0.269018e-03_jprb, 0.235753e-03_jprb &
10757  &, 0.201271e-03_jprb, 0.165556e-03_jprb, 0.128589e-03_jprb &
10758  &, 0.903530e-04_jprb, 0.916583e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10759  &, 0.528229e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10760  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10761  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10762  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10763  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10764  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10765  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10766  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10767  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10768 xcw( 244, :) = (/ &
10769  & 0.928819e+00_jprb, 0.910576e+00_jprb, 0.892179e+00_jprb, 0.873642e+00_jprb &
10770  &, 0.854975e+00_jprb, 0.836194e+00_jprb, 0.817311e+00_jprb &
10771  &, 0.798339e+00_jprb, 0.779292e+00_jprb, 0.760185e+00_jprb, 0.741030e+00_jprb &
10772  &, 0.721844e+00_jprb, 0.702640e+00_jprb, 0.683435e+00_jprb &
10773  &, 0.664242e+00_jprb, 0.645077e+00_jprb, 0.625958e+00_jprb, 0.606897e+00_jprb &
10774  &, 0.587914e+00_jprb, 0.569024e+00_jprb, 0.550244e+00_jprb &
10775  &, 0.531595e+00_jprb, 0.513086e+00_jprb, 0.494740e+00_jprb, 0.476572e+00_jprb &
10776  &, 0.458602e+00_jprb, 0.440845e+00_jprb, 0.423320e+00_jprb &
10777  &, 0.406042e+00_jprb, 0.389030e+00_jprb, 0.372300e+00_jprb, 0.355866e+00_jprb &
10778  &, 0.339751e+00_jprb, 0.323959e+00_jprb, 0.308515e+00_jprb &
10779  &, 0.293429e+00_jprb, 0.278712e+00_jprb, 0.264372e+00_jprb, 0.250437e+00_jprb &
10780  &, 0.236896e+00_jprb, 0.223776e+00_jprb, 0.211075e+00_jprb &
10781  &, 0.198809e+00_jprb, 0.186972e+00_jprb, 0.175568e+00_jprb, 0.164608e+00_jprb &
10782  &, 0.154091e+00_jprb, 0.144027e+00_jprb, 0.134398e+00_jprb &
10783  &, 0.125206e+00_jprb, 0.116455e+00_jprb, 0.108128e+00_jprb, 0.100236e+00_jprb &
10784  &, 0.927574e-01_jprb, 0.856961e-01_jprb, 0.790238e-01_jprb &
10785  &, 0.727539e-01_jprb, 0.668507e-01_jprb, 0.613219e-01_jprb, 0.561573e-01_jprb &
10786  &, 0.513266e-01_jprb, 0.468295e-01_jprb, 0.426461e-01_jprb &
10787  &, 0.387712e-01_jprb, 0.351788e-01_jprb, 0.318582e-01_jprb, 0.287960e-01_jprb &
10788  &, 0.259965e-01_jprb, 0.234021e-01_jprb, 0.210317e-01_jprb &
10789  &, 0.188839e-01_jprb, 0.169128e-01_jprb, 0.151118e-01_jprb, 0.134729e-01_jprb &
10790  &, 0.120096e-01_jprb, 0.106658e-01_jprb, 0.945137e-02_jprb &
10791  &, 0.837665e-02_jprb, 0.740262e-02_jprb, 0.651189e-02_jprb, 0.573691e-02_jprb &
10792  &, 0.503340e-02_jprb, 0.440687e-02_jprb, 0.386293e-02_jprb &
10793  &, 0.337952e-02_jprb, 0.293260e-02_jprb, 0.255393e-02_jprb, 0.221857e-02_jprb &
10794  &, 0.192956e-02_jprb, 0.165940e-02_jprb, 0.144068e-02_jprb &
10795  &, 0.124493e-02_jprb, 0.104149e-02_jprb, 0.895853e-03_jprb, 0.777982e-03_jprb &
10796  &, 0.655575e-03_jprb, 0.563131e-03_jprb, 0.467206e-03_jprb &
10797  &, 0.403522e-03_jprb, 0.337471e-03_jprb, 0.269018e-03_jprb, 0.235753e-03_jprb &
10798  &, 0.201271e-03_jprb, 0.165556e-03_jprb, 0.128589e-03_jprb &
10799  &, 0.903530e-04_jprb, 0.916583e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10800  &, 0.528229e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10801  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10802  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10803  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10804  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10805  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10806  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10807  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10808  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10809 xcw( 245, :) = (/ &
10810  & 0.929123e+00_jprb, 0.910950e+00_jprb, 0.892622e+00_jprb, 0.874153e+00_jprb &
10811  &, 0.855551e+00_jprb, 0.836832e+00_jprb, 0.818009e+00_jprb &
10812  &, 0.799095e+00_jprb, 0.780104e+00_jprb, 0.761050e+00_jprb, 0.741947e+00_jprb &
10813  &, 0.722809e+00_jprb, 0.703651e+00_jprb, 0.684489e+00_jprb &
10814  &, 0.665337e+00_jprb, 0.646210e+00_jprb, 0.627126e+00_jprb, 0.608100e+00_jprb &
10815  &, 0.589147e+00_jprb, 0.570284e+00_jprb, 0.551531e+00_jprb &
10816  &, 0.532901e+00_jprb, 0.514412e+00_jprb, 0.496083e+00_jprb, 0.477933e+00_jprb &
10817  &, 0.459973e+00_jprb, 0.442224e+00_jprb, 0.424705e+00_jprb &
10818  &, 0.407430e+00_jprb, 0.390420e+00_jprb, 0.373688e+00_jprb, 0.357251e+00_jprb &
10819  &, 0.341127e+00_jprb, 0.325327e+00_jprb, 0.309871e+00_jprb &
10820  &, 0.294768e+00_jprb, 0.280028e+00_jprb, 0.265682e+00_jprb, 0.251720e+00_jprb &
10821  &, 0.238160e+00_jprb, 0.225009e+00_jprb, 0.212285e+00_jprb &
10822  &, 0.199983e+00_jprb, 0.188119e+00_jprb, 0.176685e+00_jprb, 0.165705e+00_jprb &
10823  &, 0.155154e+00_jprb, 0.145041e+00_jprb, 0.135385e+00_jprb &
10824  &, 0.126152e+00_jprb, 0.117370e+00_jprb, 0.109010e+00_jprb, 0.101069e+00_jprb &
10825  &, 0.935522e-01_jprb, 0.864506e-01_jprb, 0.797507e-01_jprb &
10826  &, 0.734357e-01_jprb, 0.675167e-01_jprb, 0.619547e-01_jprb, 0.567382e-01_jprb &
10827  &, 0.518868e-01_jprb, 0.473503e-01_jprb, 0.431431e-01_jprb &
10828  &, 0.392249e-01_jprb, 0.356054e-01_jprb, 0.322563e-01_jprb, 0.291641e-01_jprb &
10829  &, 0.263330e-01_jprb, 0.237256e-01_jprb, 0.213208e-01_jprb &
10830  &, 0.191369e-01_jprb, 0.171496e-01_jprb, 0.153316e-01_jprb, 0.136748e-01_jprb &
10831  &, 0.121929e-01_jprb, 0.108294e-01_jprb, 0.961827e-02_jprb &
10832  &, 0.852258e-02_jprb, 0.752666e-02_jprb, 0.663839e-02_jprb, 0.584010e-02_jprb &
10833  &, 0.513860e-02_jprb, 0.451411e-02_jprb, 0.394491e-02_jprb &
10834  &, 0.343522e-02_jprb, 0.298935e-02_jprb, 0.261174e-02_jprb, 0.227747e-02_jprb &
10835  &, 0.195955e-02_jprb, 0.168994e-02_jprb, 0.147178e-02_jprb &
10836  &, 0.127660e-02_jprb, 0.107373e-02_jprb, 0.928662e-03_jprb, 0.777982e-03_jprb &
10837  &, 0.689552e-03_jprb, 0.563131e-03_jprb, 0.502376e-03_jprb &
10838  &, 0.403522e-03_jprb, 0.337471e-03_jprb, 0.306020e-03_jprb, 0.235753e-03_jprb &
10839  &, 0.201271e-03_jprb, 0.165556e-03_jprb, 0.128589e-03_jprb &
10840  &, 0.130529e-03_jprb, 0.916583e-04_jprb, 0.514878e-04_jprb, 0.521524e-04_jprb &
10841  &, 0.528229e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10842  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10843  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10844  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10845  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10846  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10847  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10848  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10849  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10850 
10851 IF (lhook) CALL dr_hook('SU_MCICA:PART35',1,zhook_handle)
10852 END SUBROUTINE part35
10853 
10854 #ifdef VPP5000
10855 !OCL SCALAR
10856 #endif
10857 !option! -Nv -NO
10858 #ifdef RS6K
10859 @process nooptimize
10860 #endif
10861 !pgi$r opt=0
10862 SUBROUTINE part36
10863 
10864 REAL(KIND=JPRB) :: ZHOOK_HANDLE
10865 IF (lhook) CALL dr_hook('SU_MCICA:PART36',0,zhook_handle)
10866 
10867 xcw( 246, :) = (/ &
10868  & 0.929426e+00_jprb, 0.911325e+00_jprb, 0.893066e+00_jprb, 0.874663e+00_jprb &
10869  &, 0.856126e+00_jprb, 0.837469e+00_jprb, 0.818706e+00_jprb &
10870  &, 0.799850e+00_jprb, 0.780915e+00_jprb, 0.761914e+00_jprb, 0.742862e+00_jprb &
10871  &, 0.723772e+00_jprb, 0.704660e+00_jprb, 0.685542e+00_jprb &
10872  &, 0.666431e+00_jprb, 0.647343e+00_jprb, 0.628294e+00_jprb, 0.609301e+00_jprb &
10873  &, 0.590380e+00_jprb, 0.571546e+00_jprb, 0.552815e+00_jprb &
10874  &, 0.534207e+00_jprb, 0.515742e+00_jprb, 0.497430e+00_jprb, 0.479290e+00_jprb &
10875  &, 0.461345e+00_jprb, 0.443606e+00_jprb, 0.426091e+00_jprb &
10876  &, 0.408822e+00_jprb, 0.391810e+00_jprb, 0.375076e+00_jprb, 0.358636e+00_jprb &
10877  &, 0.342504e+00_jprb, 0.326694e+00_jprb, 0.311228e+00_jprb &
10878  &, 0.296107e+00_jprb, 0.281353e+00_jprb, 0.266982e+00_jprb, 0.253003e+00_jprb &
10879  &, 0.239424e+00_jprb, 0.226252e+00_jprb, 0.213495e+00_jprb &
10880  &, 0.201168e+00_jprb, 0.189277e+00_jprb, 0.177813e+00_jprb, 0.166790e+00_jprb &
10881  &, 0.156205e+00_jprb, 0.146068e+00_jprb, 0.136373e+00_jprb &
10882  &, 0.127112e+00_jprb, 0.118285e+00_jprb, 0.109879e+00_jprb, 0.101916e+00_jprb &
10883  &, 0.943615e-01_jprb, 0.872198e-01_jprb, 0.804775e-01_jprb &
10884  &, 0.741331e-01_jprb, 0.681669e-01_jprb, 0.625712e-01_jprb, 0.573357e-01_jprb &
10885  &, 0.524300e-01_jprb, 0.478711e-01_jprb, 0.436224e-01_jprb &
10886  &, 0.396785e-01_jprb, 0.360321e-01_jprb, 0.326544e-01_jprb, 0.295322e-01_jprb &
10887  &, 0.266694e-01_jprb, 0.240491e-01_jprb, 0.216306e-01_jprb &
10888  &, 0.194111e-01_jprb, 0.174080e-01_jprb, 0.155734e-01_jprb, 0.138992e-01_jprb &
10889  &, 0.123761e-01_jprb, 0.110163e-01_jprb, 0.978516e-02_jprb &
10890  &, 0.866851e-02_jprb, 0.765069e-02_jprb, 0.676488e-02_jprb, 0.594328e-02_jprb &
10891  &, 0.524381e-02_jprb, 0.459454e-02_jprb, 0.402688e-02_jprb &
10892  &, 0.351876e-02_jprb, 0.307448e-02_jprb, 0.266956e-02_jprb, 0.230692e-02_jprb &
10893  &, 0.201953e-02_jprb, 0.175103e-02_jprb, 0.150288e-02_jprb &
10894  &, 0.127660e-02_jprb, 0.110596e-02_jprb, 0.961472e-03_jprb, 0.811372e-03_jprb &
10895  &, 0.689552e-03_jprb, 0.597702e-03_jprb, 0.502376e-03_jprb &
10896  &, 0.439296e-03_jprb, 0.373856e-03_jprb, 0.306020e-03_jprb, 0.235753e-03_jprb &
10897  &, 0.201271e-03_jprb, 0.165556e-03_jprb, 0.128589e-03_jprb &
10898  &, 0.130529e-03_jprb, 0.916583e-04_jprb, 0.929756e-04_jprb, 0.521524e-04_jprb &
10899  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.100000e-04_jprb &
10900  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10901  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10902  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10903  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10904  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10905  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10906  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10907  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10908 xcw( 247, :) = (/ &
10909  & 0.929728e+00_jprb, 0.911699e+00_jprb, 0.893508e+00_jprb, 0.875171e+00_jprb &
10910  &, 0.856699e+00_jprb, 0.838105e+00_jprb, 0.819403e+00_jprb &
10911  &, 0.800604e+00_jprb, 0.781725e+00_jprb, 0.762777e+00_jprb, 0.743776e+00_jprb &
10912  &, 0.724734e+00_jprb, 0.705669e+00_jprb, 0.686593e+00_jprb &
10913  &, 0.667523e+00_jprb, 0.648475e+00_jprb, 0.629462e+00_jprb, 0.610502e+00_jprb &
10914  &, 0.591610e+00_jprb, 0.572803e+00_jprb, 0.554099e+00_jprb &
10915  &, 0.535517e+00_jprb, 0.517068e+00_jprb, 0.498773e+00_jprb, 0.480651e+00_jprb &
10916  &, 0.462712e+00_jprb, 0.444984e+00_jprb, 0.427476e+00_jprb &
10917  &, 0.410210e+00_jprb, 0.393201e+00_jprb, 0.376464e+00_jprb, 0.360021e+00_jprb &
10918  &, 0.343880e+00_jprb, 0.328065e+00_jprb, 0.312584e+00_jprb &
10919  &, 0.297447e+00_jprb, 0.282688e+00_jprb, 0.268293e+00_jprb, 0.254297e+00_jprb &
10920  &, 0.240688e+00_jprb, 0.227496e+00_jprb, 0.214715e+00_jprb &
10921  &, 0.202353e+00_jprb, 0.190435e+00_jprb, 0.178942e+00_jprb, 0.167887e+00_jprb &
10922  &, 0.157268e+00_jprb, 0.147094e+00_jprb, 0.137361e+00_jprb &
10923  &, 0.128058e+00_jprb, 0.119200e+00_jprb, 0.110775e+00_jprb, 0.102763e+00_jprb &
10924  &, 0.951707e-01_jprb, 0.879891e-01_jprb, 0.812195e-01_jprb &
10925  &, 0.748305e-01_jprb, 0.688329e-01_jprb, 0.632039e-01_jprb, 0.579166e-01_jprb &
10926  &, 0.529902e-01_jprb, 0.483919e-01_jprb, 0.441194e-01_jprb &
10927  &, 0.401503e-01_jprb, 0.364587e-01_jprb, 0.330525e-01_jprb, 0.299196e-01_jprb &
10928  &, 0.270257e-01_jprb, 0.243523e-01_jprb, 0.219197e-01_jprb &
10929  &, 0.196852e-01_jprb, 0.176448e-01_jprb, 0.157932e-01_jprb, 0.141012e-01_jprb &
10930  &, 0.125822e-01_jprb, 0.111799e-01_jprb, 0.992821e-02_jprb &
10931  &, 0.881444e-02_jprb, 0.779954e-02_jprb, 0.686608e-02_jprb, 0.607227e-02_jprb &
10932  &, 0.532271e-02_jprb, 0.467497e-02_jprb, 0.410886e-02_jprb &
10933  &, 0.357445e-02_jprb, 0.313123e-02_jprb, 0.272737e-02_jprb, 0.236581e-02_jprb &
10934  &, 0.204953e-02_jprb, 0.178157e-02_jprb, 0.153398e-02_jprb &
10935  &, 0.130826e-02_jprb, 0.113820e-02_jprb, 0.961472e-03_jprb, 0.844763e-03_jprb &
10936  &, 0.723530e-03_jprb, 0.597702e-03_jprb, 0.502376e-03_jprb &
10937  &, 0.439296e-03_jprb, 0.373856e-03_jprb, 0.306020e-03_jprb, 0.273378e-03_jprb &
10938  &, 0.201271e-03_jprb, 0.165556e-03_jprb, 0.128589e-03_jprb &
10939  &, 0.130529e-03_jprb, 0.916583e-04_jprb, 0.929756e-04_jprb, 0.521524e-04_jprb &
10940  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.100000e-04_jprb &
10941  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10942  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10943  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10944  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10945  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10946  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10947  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10948  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10949 xcw( 248, :) = (/ &
10950  & 0.930031e+00_jprb, 0.912071e+00_jprb, 0.893950e+00_jprb, 0.875680e+00_jprb &
10951  &, 0.857271e+00_jprb, 0.838740e+00_jprb, 0.820098e+00_jprb &
10952  &, 0.801358e+00_jprb, 0.782533e+00_jprb, 0.763639e+00_jprb, 0.744688e+00_jprb &
10953  &, 0.725696e+00_jprb, 0.706677e+00_jprb, 0.687643e+00_jprb &
10954  &, 0.668615e+00_jprb, 0.649604e+00_jprb, 0.630628e+00_jprb, 0.611700e+00_jprb &
10955  &, 0.592841e+00_jprb, 0.574062e+00_jprb, 0.555383e+00_jprb &
10956  &, 0.536823e+00_jprb, 0.518394e+00_jprb, 0.500116e+00_jprb, 0.482008e+00_jprb &
10957  &, 0.464084e+00_jprb, 0.446363e+00_jprb, 0.428861e+00_jprb &
10958  &, 0.411599e+00_jprb, 0.394591e+00_jprb, 0.377856e+00_jprb, 0.361406e+00_jprb &
10959  &, 0.345261e+00_jprb, 0.329437e+00_jprb, 0.313945e+00_jprb &
10960  &, 0.298795e+00_jprb, 0.284014e+00_jprb, 0.269603e+00_jprb, 0.255580e+00_jprb &
10961  &, 0.241953e+00_jprb, 0.228739e+00_jprb, 0.215936e+00_jprb &
10962  &, 0.203549e+00_jprb, 0.191593e+00_jprb, 0.180070e+00_jprb, 0.168984e+00_jprb &
10963  &, 0.158331e+00_jprb, 0.148121e+00_jprb, 0.138348e+00_jprb &
10964  &, 0.129017e+00_jprb, 0.120129e+00_jprb, 0.111657e+00_jprb, 0.103609e+00_jprb &
10965  &, 0.959800e-01_jprb, 0.887732e-01_jprb, 0.819615e-01_jprb &
10966  &, 0.755434e-01_jprb, 0.694989e-01_jprb, 0.638367e-01_jprb, 0.585141e-01_jprb &
10967  &, 0.535504e-01_jprb, 0.489300e-01_jprb, 0.446164e-01_jprb &
10968  &, 0.406040e-01_jprb, 0.369039e-01_jprb, 0.334695e-01_jprb, 0.302877e-01_jprb &
10969  &, 0.273621e-01_jprb, 0.246758e-01_jprb, 0.222294e-01_jprb &
10970  &, 0.199594e-01_jprb, 0.179032e-01_jprb, 0.160350e-01_jprb, 0.143255e-01_jprb &
10971  &, 0.127654e-01_jprb, 0.113668e-01_jprb, 0.100951e-01_jprb &
10972  &, 0.896037e-02_jprb, 0.792357e-02_jprb, 0.699257e-02_jprb, 0.617545e-02_jprb &
10973  &, 0.542791e-02_jprb, 0.475540e-02_jprb, 0.419084e-02_jprb &
10974  &, 0.365799e-02_jprb, 0.318798e-02_jprb, 0.278519e-02_jprb, 0.242471e-02_jprb &
10975  &, 0.210951e-02_jprb, 0.181212e-02_jprb, 0.156508e-02_jprb &
10976  &, 0.133993e-02_jprb, 0.117043e-02_jprb, 0.994281e-03_jprb, 0.844763e-03_jprb &
10977  &, 0.723530e-03_jprb, 0.632272e-03_jprb, 0.537546e-03_jprb &
10978  &, 0.439296e-03_jprb, 0.373856e-03_jprb, 0.306020e-03_jprb, 0.273378e-03_jprb &
10979  &, 0.239526e-03_jprb, 0.165556e-03_jprb, 0.168119e-03_jprb &
10980  &, 0.130529e-03_jprb, 0.916583e-04_jprb, 0.929756e-04_jprb, 0.521524e-04_jprb &
10981  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.100000e-04_jprb &
10982  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10983  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10984  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10985  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10986  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10987  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10988  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
10989  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
10990 xcw( 249, :) = (/ &
10991  & 0.930332e+00_jprb, 0.912445e+00_jprb, 0.894391e+00_jprb, 0.876187e+00_jprb &
10992  &, 0.857844e+00_jprb, 0.839374e+00_jprb, 0.820791e+00_jprb &
10993  &, 0.802109e+00_jprb, 0.783340e+00_jprb, 0.764499e+00_jprb, 0.745600e+00_jprb &
10994  &, 0.726656e+00_jprb, 0.707682e+00_jprb, 0.688693e+00_jprb &
10995  &, 0.669706e+00_jprb, 0.650734e+00_jprb, 0.631793e+00_jprb, 0.612900e+00_jprb &
10996  &, 0.594069e+00_jprb, 0.575318e+00_jprb, 0.556667e+00_jprb &
10997  &, 0.538130e+00_jprb, 0.519720e+00_jprb, 0.501459e+00_jprb, 0.483365e+00_jprb &
10998  &, 0.465455e+00_jprb, 0.447745e+00_jprb, 0.430250e+00_jprb &
10999  &, 0.412991e+00_jprb, 0.395986e+00_jprb, 0.379244e+00_jprb, 0.362791e+00_jprb &
11000  &, 0.346642e+00_jprb, 0.330808e+00_jprb, 0.315301e+00_jprb &
11001  &, 0.300144e+00_jprb, 0.285349e+00_jprb, 0.270913e+00_jprb, 0.256873e+00_jprb &
11002  &, 0.243227e+00_jprb, 0.229983e+00_jprb, 0.217146e+00_jprb &
11003  &, 0.204745e+00_jprb, 0.192750e+00_jprb, 0.181199e+00_jprb, 0.170081e+00_jprb &
11004  &, 0.159406e+00_jprb, 0.149160e+00_jprb, 0.139349e+00_jprb &
11005  &, 0.129989e+00_jprb, 0.121044e+00_jprb, 0.112539e+00_jprb, 0.104470e+00_jprb &
11006  &, 0.968037e-01_jprb, 0.895573e-01_jprb, 0.827035e-01_jprb &
11007  &, 0.762407e-01_jprb, 0.701649e-01_jprb, 0.644694e-01_jprb, 0.591116e-01_jprb &
11008  &, 0.541276e-01_jprb, 0.494508e-01_jprb, 0.451134e-01_jprb &
11009  &, 0.410758e-01_jprb, 0.373305e-01_jprb, 0.338676e-01_jprb, 0.306751e-01_jprb &
11010  &, 0.277184e-01_jprb, 0.250195e-01_jprb, 0.225185e-01_jprb &
11011  &, 0.202546e-01_jprb, 0.181616e-01_jprb, 0.162548e-01_jprb, 0.145275e-01_jprb &
11012  &, 0.129715e-01_jprb, 0.115538e-01_jprb, 0.102620e-01_jprb &
11013  &, 0.910630e-02_jprb, 0.804761e-02_jprb, 0.711907e-02_jprb, 0.627864e-02_jprb &
11014  &, 0.553311e-02_jprb, 0.486264e-02_jprb, 0.424549e-02_jprb &
11015  &, 0.371369e-02_jprb, 0.324473e-02_jprb, 0.284301e-02_jprb, 0.245416e-02_jprb &
11016  &, 0.213951e-02_jprb, 0.184266e-02_jprb, 0.159619e-02_jprb &
11017  &, 0.137159e-02_jprb, 0.120266e-02_jprb, 0.102709e-02_jprb, 0.878153e-03_jprb &
11018  &, 0.757508e-03_jprb, 0.632272e-03_jprb, 0.537546e-03_jprb &
11019  &, 0.475071e-03_jprb, 0.373856e-03_jprb, 0.343023e-03_jprb, 0.273378e-03_jprb &
11020  &, 0.239526e-03_jprb, 0.204445e-03_jprb, 0.168119e-03_jprb &
11021  &, 0.130529e-03_jprb, 0.916583e-04_jprb, 0.929756e-04_jprb, 0.521524e-04_jprb &
11022  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.100000e-04_jprb &
11023  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11024  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11025  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11026  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11027  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11028  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11029  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11030  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11031 xcw( 250, :) = (/ &
11032  & 0.930633e+00_jprb, 0.912815e+00_jprb, 0.894831e+00_jprb, 0.876693e+00_jprb &
11033  &, 0.858414e+00_jprb, 0.840007e+00_jprb, 0.821484e+00_jprb &
11034  &, 0.802859e+00_jprb, 0.784146e+00_jprb, 0.765359e+00_jprb, 0.746509e+00_jprb &
11035  &, 0.727614e+00_jprb, 0.708686e+00_jprb, 0.689742e+00_jprb &
11036  &, 0.670796e+00_jprb, 0.651862e+00_jprb, 0.632957e+00_jprb, 0.614097e+00_jprb &
11037  &, 0.595299e+00_jprb, 0.576578e+00_jprb, 0.557948e+00_jprb &
11038  &, 0.539433e+00_jprb, 0.521046e+00_jprb, 0.502802e+00_jprb, 0.484725e+00_jprb &
11039  &, 0.466823e+00_jprb, 0.449123e+00_jprb, 0.431636e+00_jprb &
11040  &, 0.414383e+00_jprb, 0.397376e+00_jprb, 0.380636e+00_jprb, 0.364180e+00_jprb &
11041  &, 0.348023e+00_jprb, 0.332180e+00_jprb, 0.316666e+00_jprb &
11042  &, 0.301493e+00_jprb, 0.286675e+00_jprb, 0.272233e+00_jprb, 0.258166e+00_jprb &
11043  &, 0.244502e+00_jprb, 0.231226e+00_jprb, 0.218378e+00_jprb &
11044  &, 0.205930e+00_jprb, 0.193920e+00_jprb, 0.182339e+00_jprb, 0.171190e+00_jprb &
11045  &, 0.160469e+00_jprb, 0.150199e+00_jprb, 0.140349e+00_jprb &
11046  &, 0.130948e+00_jprb, 0.121986e+00_jprb, 0.113435e+00_jprb, 0.105317e+00_jprb &
11047  &, 0.976274e-01_jprb, 0.903413e-01_jprb, 0.834455e-01_jprb &
11048  &, 0.769536e-01_jprb, 0.708468e-01_jprb, 0.651022e-01_jprb, 0.597257e-01_jprb &
11049  &, 0.546877e-01_jprb, 0.499890e-01_jprb, 0.456104e-01_jprb &
11050  &, 0.415476e-01_jprb, 0.377757e-01_jprb, 0.342847e-01_jprb, 0.310625e-01_jprb &
11051  &, 0.280747e-01_jprb, 0.253430e-01_jprb, 0.228283e-01_jprb &
11052  &, 0.205287e-01_jprb, 0.184200e-01_jprb, 0.164966e-01_jprb, 0.147519e-01_jprb &
11053  &, 0.131776e-01_jprb, 0.117407e-01_jprb, 0.104289e-01_jprb &
11054  &, 0.925223e-02_jprb, 0.819646e-02_jprb, 0.724557e-02_jprb, 0.638183e-02_jprb &
11055  &, 0.563831e-02_jprb, 0.494307e-02_jprb, 0.432747e-02_jprb &
11056  &, 0.379723e-02_jprb, 0.332985e-02_jprb, 0.290082e-02_jprb, 0.251305e-02_jprb &
11057  &, 0.219949e-02_jprb, 0.190375e-02_jprb, 0.162729e-02_jprb &
11058  &, 0.140326e-02_jprb, 0.123490e-02_jprb, 0.105990e-02_jprb, 0.911544e-03_jprb &
11059  &, 0.757508e-03_jprb, 0.666843e-03_jprb, 0.572715e-03_jprb &
11060  &, 0.475071e-03_jprb, 0.410242e-03_jprb, 0.343023e-03_jprb, 0.273378e-03_jprb &
11061  &, 0.239526e-03_jprb, 0.204445e-03_jprb, 0.168119e-03_jprb &
11062  &, 0.130529e-03_jprb, 0.916583e-04_jprb, 0.929756e-04_jprb, 0.521524e-04_jprb &
11063  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.100000e-04_jprb &
11064  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11065  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11066  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11067  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11068  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11069  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11070  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11071  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11072 xcw( 251, :) = (/ &
11073  & 0.930935e+00_jprb, 0.913186e+00_jprb, 0.895270e+00_jprb, 0.877199e+00_jprb &
11074  &, 0.858984e+00_jprb, 0.840639e+00_jprb, 0.822176e+00_jprb &
11075  &, 0.803609e+00_jprb, 0.784951e+00_jprb, 0.766217e+00_jprb, 0.747419e+00_jprb &
11076  &, 0.728572e+00_jprb, 0.709690e+00_jprb, 0.690789e+00_jprb &
11077  &, 0.671884e+00_jprb, 0.652988e+00_jprb, 0.634120e+00_jprb, 0.615294e+00_jprb &
11078  &, 0.596526e+00_jprb, 0.577831e+00_jprb, 0.559232e+00_jprb &
11079  &, 0.540739e+00_jprb, 0.522372e+00_jprb, 0.504145e+00_jprb, 0.486082e+00_jprb &
11080  &, 0.468194e+00_jprb, 0.450501e+00_jprb, 0.433009e+00_jprb &
11081  &, 0.415759e+00_jprb, 0.398770e+00_jprb, 0.382029e+00_jprb, 0.365569e+00_jprb &
11082  &, 0.349404e+00_jprb, 0.333551e+00_jprb, 0.318027e+00_jprb &
11083  &, 0.302842e+00_jprb, 0.288010e+00_jprb, 0.273553e+00_jprb, 0.259470e+00_jprb &
11084  &, 0.245776e+00_jprb, 0.232480e+00_jprb, 0.219599e+00_jprb &
11085  &, 0.207137e+00_jprb, 0.195089e+00_jprb, 0.183479e+00_jprb, 0.172298e+00_jprb &
11086  &, 0.161544e+00_jprb, 0.151238e+00_jprb, 0.141363e+00_jprb &
11087  &, 0.131921e+00_jprb, 0.122915e+00_jprb, 0.114331e+00_jprb, 0.106178e+00_jprb &
11088  &, 0.984512e-01_jprb, 0.911254e-01_jprb, 0.842026e-01_jprb &
11089  &, 0.776665e-01_jprb, 0.715129e-01_jprb, 0.657512e-01_jprb, 0.603232e-01_jprb &
11090  &, 0.552649e-01_jprb, 0.505271e-01_jprb, 0.461252e-01_jprb &
11091  &, 0.420194e-01_jprb, 0.382208e-01_jprb, 0.347018e-01_jprb, 0.314499e-01_jprb &
11092  &, 0.284309e-01_jprb, 0.256665e-01_jprb, 0.231380e-01_jprb &
11093  &, 0.208029e-01_jprb, 0.186784e-01_jprb, 0.167384e-01_jprb, 0.149763e-01_jprb &
11094  &, 0.133837e-01_jprb, 0.119277e-01_jprb, 0.105958e-01_jprb &
11095  &, 0.939816e-02_jprb, 0.834530e-02_jprb, 0.737206e-02_jprb, 0.651081e-02_jprb &
11096  &, 0.574352e-02_jprb, 0.505031e-02_jprb, 0.443677e-02_jprb &
11097  &, 0.388077e-02_jprb, 0.338660e-02_jprb, 0.295864e-02_jprb, 0.257195e-02_jprb &
11098  &, 0.222949e-02_jprb, 0.193430e-02_jprb, 0.168949e-02_jprb &
11099  &, 0.143492e-02_jprb, 0.123490e-02_jprb, 0.105990e-02_jprb, 0.911544e-03_jprb &
11100  &, 0.791485e-03_jprb, 0.666843e-03_jprb, 0.572715e-03_jprb &
11101  &, 0.475071e-03_jprb, 0.410242e-03_jprb, 0.343023e-03_jprb, 0.273378e-03_jprb &
11102  &, 0.239526e-03_jprb, 0.204445e-03_jprb, 0.168119e-03_jprb &
11103  &, 0.130529e-03_jprb, 0.132488e-03_jprb, 0.929756e-04_jprb, 0.521524e-04_jprb &
11104  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11105  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11106  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11107  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11108  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11109  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11110  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11111  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11112  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11113 xcw( 252, :) = (/ &
11114  & 0.931233e+00_jprb, 0.913557e+00_jprb, 0.895708e+00_jprb, 0.877704e+00_jprb &
11115  &, 0.859553e+00_jprb, 0.841270e+00_jprb, 0.822867e+00_jprb &
11116  &, 0.804357e+00_jprb, 0.785755e+00_jprb, 0.767073e+00_jprb, 0.748326e+00_jprb &
11117  &, 0.729527e+00_jprb, 0.710692e+00_jprb, 0.691835e+00_jprb &
11118  &, 0.672970e+00_jprb, 0.654115e+00_jprb, 0.635283e+00_jprb, 0.616489e+00_jprb &
11119  &, 0.597752e+00_jprb, 0.579087e+00_jprb, 0.560513e+00_jprb &
11120  &, 0.542042e+00_jprb, 0.523695e+00_jprb, 0.505488e+00_jprb, 0.487439e+00_jprb &
11121  &, 0.469565e+00_jprb, 0.451883e+00_jprb, 0.434410e+00_jprb &
11122  &, 0.417163e+00_jprb, 0.400161e+00_jprb, 0.383421e+00_jprb, 0.366958e+00_jprb &
11123  &, 0.350789e+00_jprb, 0.334927e+00_jprb, 0.319392e+00_jprb &
11124  &, 0.304190e+00_jprb, 0.289345e+00_jprb, 0.274864e+00_jprb, 0.260763e+00_jprb &
11125  &, 0.247051e+00_jprb, 0.233734e+00_jprb, 0.220830e+00_jprb &
11126  &, 0.208333e+00_jprb, 0.196258e+00_jprb, 0.184620e+00_jprb, 0.173407e+00_jprb &
11127  &, 0.162620e+00_jprb, 0.152278e+00_jprb, 0.142376e+00_jprb &
11128  &, 0.132893e+00_jprb, 0.123857e+00_jprb, 0.115241e+00_jprb, 0.107053e+00_jprb &
11129  &, 0.992749e-01_jprb, 0.919095e-01_jprb, 0.849597e-01_jprb &
11130  &, 0.783793e-01_jprb, 0.721947e-01_jprb, 0.663839e-01_jprb, 0.609372e-01_jprb &
11131  &, 0.558421e-01_jprb, 0.510827e-01_jprb, 0.466399e-01_jprb &
11132  &, 0.425094e-01_jprb, 0.386660e-01_jprb, 0.351188e-01_jprb, 0.318374e-01_jprb &
11133  &, 0.288069e-01_jprb, 0.260102e-01_jprb, 0.234478e-01_jprb &
11134  &, 0.210981e-01_jprb, 0.189583e-01_jprb, 0.169802e-01_jprb, 0.152006e-01_jprb &
11135  &, 0.135669e-01_jprb, 0.121146e-01_jprb, 0.107627e-01_jprb &
11136  &, 0.956842e-02_jprb, 0.846934e-02_jprb, 0.749856e-02_jprb, 0.661400e-02_jprb &
11137  &, 0.584872e-02_jprb, 0.513074e-02_jprb, 0.451875e-02_jprb &
11138  &, 0.396431e-02_jprb, 0.344335e-02_jprb, 0.301646e-02_jprb, 0.263084e-02_jprb &
11139  &, 0.228947e-02_jprb, 0.199539e-02_jprb, 0.172059e-02_jprb &
11140  &, 0.146659e-02_jprb, 0.126713e-02_jprb, 0.109271e-02_jprb, 0.944934e-03_jprb &
11141  &, 0.791485e-03_jprb, 0.701414e-03_jprb, 0.572715e-03_jprb &
11142  &, 0.510846e-03_jprb, 0.410242e-03_jprb, 0.343023e-03_jprb, 0.311003e-03_jprb &
11143  &, 0.239526e-03_jprb, 0.204445e-03_jprb, 0.168119e-03_jprb &
11144  &, 0.130529e-03_jprb, 0.132488e-03_jprb, 0.929756e-04_jprb, 0.943048e-04_jprb &
11145  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11146  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11147  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11148  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11149  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11150  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11151  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11152  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11153  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11154 
11155 IF (lhook) CALL dr_hook('SU_MCICA:PART36',1,zhook_handle)
11156 END SUBROUTINE part36
11157 
11158 #ifdef VPP5000
11159 !OCL SCALAR
11160 #endif
11161 !option! -Nv -NO
11162 #ifdef RS6K
11163 @process nooptimize
11164 #endif
11165 !pgi$r opt=0
11166 SUBROUTINE part37
11167 
11168 REAL(KIND=JPRB) :: ZHOOK_HANDLE
11169 IF (lhook) CALL dr_hook('SU_MCICA:PART37',0,zhook_handle)
11170 
11171 xcw( 253, :) = (/ &
11172  & 0.931534e+00_jprb, 0.913926e+00_jprb, 0.896146e+00_jprb, 0.878207e+00_jprb &
11173  &, 0.860120e+00_jprb, 0.841900e+00_jprb, 0.823556e+00_jprb &
11174  &, 0.805104e+00_jprb, 0.786558e+00_jprb, 0.767929e+00_jprb, 0.749233e+00_jprb &
11175  &, 0.730482e+00_jprb, 0.711694e+00_jprb, 0.692880e+00_jprb &
11176  &, 0.674057e+00_jprb, 0.655240e+00_jprb, 0.636444e+00_jprb, 0.617684e+00_jprb &
11177  &, 0.598979e+00_jprb, 0.580340e+00_jprb, 0.561794e+00_jprb &
11178  &, 0.543345e+00_jprb, 0.525021e+00_jprb, 0.506831e+00_jprb, 0.488796e+00_jprb &
11179  &, 0.470936e+00_jprb, 0.453262e+00_jprb, 0.435795e+00_jprb &
11180  &, 0.418555e+00_jprb, 0.401555e+00_jprb, 0.384817e+00_jprb, 0.368348e+00_jprb &
11181  &, 0.352175e+00_jprb, 0.336303e+00_jprb, 0.320758e+00_jprb &
11182  &, 0.305548e+00_jprb, 0.290680e+00_jprb, 0.276184e+00_jprb, 0.262066e+00_jprb &
11183  &, 0.248326e+00_jprb, 0.234988e+00_jprb, 0.222062e+00_jprb &
11184  &, 0.209540e+00_jprb, 0.197439e+00_jprb, 0.185760e+00_jprb, 0.174516e+00_jprb &
11185  &, 0.163707e+00_jprb, 0.153329e+00_jprb, 0.143389e+00_jprb &
11186  &, 0.133879e+00_jprb, 0.124799e+00_jprb, 0.116150e+00_jprb, 0.107914e+00_jprb &
11187  &, 0.100113e+00_jprb, 0.927083e-01_jprb, 0.857168e-01_jprb &
11188  &, 0.791077e-01_jprb, 0.728925e-01_jprb, 0.670329e-01_jprb, 0.615513e-01_jprb &
11189  &, 0.564192e-01_jprb, 0.516208e-01_jprb, 0.471547e-01_jprb &
11190  &, 0.429812e-01_jprb, 0.391112e-01_jprb, 0.355359e-01_jprb, 0.322248e-01_jprb &
11191  &, 0.291632e-01_jprb, 0.263539e-01_jprb, 0.237575e-01_jprb &
11192  &, 0.213933e-01_jprb, 0.192167e-01_jprb, 0.172440e-01_jprb, 0.154250e-01_jprb &
11193  &, 0.137959e-01_jprb, 0.123016e-01_jprb, 0.109534e-01_jprb &
11194  &, 0.971435e-02_jprb, 0.861818e-02_jprb, 0.762505e-02_jprb, 0.674299e-02_jprb &
11195  &, 0.595392e-02_jprb, 0.523798e-02_jprb, 0.460072e-02_jprb &
11196  &, 0.402001e-02_jprb, 0.352847e-02_jprb, 0.307427e-02_jprb, 0.268974e-02_jprb &
11197  &, 0.231946e-02_jprb, 0.202593e-02_jprb, 0.175169e-02_jprb &
11198  &, 0.152992e-02_jprb, 0.129937e-02_jprb, 0.112552e-02_jprb, 0.978325e-03_jprb &
11199  &, 0.825463e-03_jprb, 0.701414e-03_jprb, 0.607885e-03_jprb &
11200  &, 0.510846e-03_jprb, 0.446628e-03_jprb, 0.380026e-03_jprb, 0.311003e-03_jprb &
11201  &, 0.239526e-03_jprb, 0.204445e-03_jprb, 0.168119e-03_jprb &
11202  &, 0.130529e-03_jprb, 0.132488e-03_jprb, 0.929756e-04_jprb, 0.943048e-04_jprb &
11203  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11204  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11205  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11206  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11207  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11208  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11209  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11210  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11211  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11212 xcw( 254, :) = (/ &
11213  & 0.931833e+00_jprb, 0.914285e+00_jprb, 0.896582e+00_jprb, 0.878710e+00_jprb &
11214  &, 0.860687e+00_jprb, 0.842528e+00_jprb, 0.824245e+00_jprb &
11215  &, 0.805850e+00_jprb, 0.787359e+00_jprb, 0.768784e+00_jprb, 0.750138e+00_jprb &
11216  &, 0.731436e+00_jprb, 0.712693e+00_jprb, 0.693923e+00_jprb &
11217  &, 0.675142e+00_jprb, 0.656363e+00_jprb, 0.637603e+00_jprb, 0.618878e+00_jprb &
11218  &, 0.600204e+00_jprb, 0.581597e+00_jprb, 0.563071e+00_jprb &
11219  &, 0.544648e+00_jprb, 0.526344e+00_jprb, 0.508171e+00_jprb, 0.490153e+00_jprb &
11220  &, 0.472304e+00_jprb, 0.454644e+00_jprb, 0.437184e+00_jprb &
11221  &, 0.419919e+00_jprb, 0.402950e+00_jprb, 0.386209e+00_jprb, 0.369741e+00_jprb &
11222  &, 0.353560e+00_jprb, 0.337683e+00_jprb, 0.322123e+00_jprb &
11223  &, 0.306897e+00_jprb, 0.292025e+00_jprb, 0.277513e+00_jprb, 0.263370e+00_jprb &
11224  &, 0.249610e+00_jprb, 0.236253e+00_jprb, 0.223293e+00_jprb &
11225  &, 0.210747e+00_jprb, 0.198619e+00_jprb, 0.186912e+00_jprb, 0.175637e+00_jprb &
11226  &, 0.164795e+00_jprb, 0.154381e+00_jprb, 0.144403e+00_jprb &
11227  &, 0.134851e+00_jprb, 0.125741e+00_jprb, 0.117060e+00_jprb, 0.108789e+00_jprb &
11228  &, 0.100937e+00_jprb, 0.935072e-01_jprb, 0.864740e-01_jprb &
11229  &, 0.798361e-01_jprb, 0.735744e-01_jprb, 0.676981e-01_jprb, 0.621820e-01_jprb &
11230  &, 0.570134e-01_jprb, 0.521763e-01_jprb, 0.476694e-01_jprb &
11231  &, 0.434712e-01_jprb, 0.395749e-01_jprb, 0.359719e-01_jprb, 0.326122e-01_jprb &
11232  &, 0.295392e-01_jprb, 0.266976e-01_jprb, 0.240879e-01_jprb &
11233  &, 0.216886e-01_jprb, 0.194966e-01_jprb, 0.174858e-01_jprb, 0.156494e-01_jprb &
11234  &, 0.140020e-01_jprb, 0.124885e-01_jprb, 0.111203e-01_jprb &
11235  &, 0.988460e-02_jprb, 0.876703e-02_jprb, 0.775155e-02_jprb, 0.687197e-02_jprb &
11236  &, 0.605912e-02_jprb, 0.531841e-02_jprb, 0.468270e-02_jprb &
11237  &, 0.410355e-02_jprb, 0.358522e-02_jprb, 0.313209e-02_jprb, 0.274863e-02_jprb &
11238  &, 0.237945e-02_jprb, 0.205647e-02_jprb, 0.178280e-02_jprb &
11239  &, 0.156158e-02_jprb, 0.133160e-02_jprb, 0.115833e-02_jprb, 0.978325e-03_jprb &
11240  &, 0.859440e-03_jprb, 0.735984e-03_jprb, 0.607885e-03_jprb &
11241  &, 0.510846e-03_jprb, 0.446628e-03_jprb, 0.380026e-03_jprb, 0.311003e-03_jprb &
11242  &, 0.277780e-03_jprb, 0.204445e-03_jprb, 0.168119e-03_jprb &
11243  &, 0.170706e-03_jprb, 0.132488e-03_jprb, 0.929756e-04_jprb, 0.943048e-04_jprb &
11244  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11245  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11246  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11247  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11248  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11249  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11250  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11251  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11252  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11253 xcw( 255, :) = (/ &
11254  & 0.932132e+00_jprb, 0.914664e+00_jprb, 0.897019e+00_jprb, 0.879212e+00_jprb &
11255  &, 0.861253e+00_jprb, 0.843156e+00_jprb, 0.824932e+00_jprb &
11256  &, 0.806596e+00_jprb, 0.788159e+00_jprb, 0.769637e+00_jprb, 0.751043e+00_jprb &
11257  &, 0.732390e+00_jprb, 0.713692e+00_jprb, 0.694966e+00_jprb &
11258  &, 0.676226e+00_jprb, 0.657485e+00_jprb, 0.638762e+00_jprb, 0.620072e+00_jprb &
11259  &, 0.601428e+00_jprb, 0.582850e+00_jprb, 0.564352e+00_jprb &
11260  &, 0.545951e+00_jprb, 0.527666e+00_jprb, 0.509514e+00_jprb, 0.491510e+00_jprb &
11261  &, 0.473675e+00_jprb, 0.456022e+00_jprb, 0.438573e+00_jprb &
11262  &, 0.421342e+00_jprb, 0.404348e+00_jprb, 0.387606e+00_jprb, 0.371130e+00_jprb &
11263  &, 0.354945e+00_jprb, 0.339064e+00_jprb, 0.323493e+00_jprb &
11264  &, 0.308255e+00_jprb, 0.293369e+00_jprb, 0.278833e+00_jprb, 0.264673e+00_jprb &
11265  &, 0.250895e+00_jprb, 0.237507e+00_jprb, 0.224525e+00_jprb &
11266  &, 0.211954e+00_jprb, 0.199800e+00_jprb, 0.188064e+00_jprb, 0.176758e+00_jprb &
11267  &, 0.165882e+00_jprb, 0.155433e+00_jprb, 0.145416e+00_jprb &
11268  &, 0.135836e+00_jprb, 0.126683e+00_jprb, 0.117970e+00_jprb, 0.109665e+00_jprb &
11269  &, 0.101789e+00_jprb, 0.943061e-01_jprb, 0.872462e-01_jprb &
11270  &, 0.805644e-01_jprb, 0.742721e-01_jprb, 0.683471e-01_jprb, 0.627961e-01_jprb &
11271  &, 0.575905e-01_jprb, 0.527318e-01_jprb, 0.481842e-01_jprb &
11272  &, 0.439611e-01_jprb, 0.400386e-01_jprb, 0.363890e-01_jprb, 0.330190e-01_jprb &
11273  &, 0.299153e-01_jprb, 0.270413e-01_jprb, 0.243977e-01_jprb &
11274  &, 0.219838e-01_jprb, 0.197550e-01_jprb, 0.177276e-01_jprb, 0.158962e-01_jprb &
11275  &, 0.142081e-01_jprb, 0.126755e-01_jprb, 0.112872e-01_jprb &
11276  &, 0.100548e-01_jprb, 0.891587e-02_jprb, 0.790334e-02_jprb, 0.697516e-02_jprb &
11277  &, 0.616433e-02_jprb, 0.542565e-02_jprb, 0.476468e-02_jprb &
11278  &, 0.418709e-02_jprb, 0.367035e-02_jprb, 0.318991e-02_jprb, 0.280753e-02_jprb &
11279  &, 0.243944e-02_jprb, 0.211756e-02_jprb, 0.184500e-02_jprb &
11280  &, 0.159325e-02_jprb, 0.136384e-02_jprb, 0.119114e-02_jprb, 0.101172e-02_jprb &
11281  &, 0.859440e-03_jprb, 0.735984e-03_jprb, 0.643055e-03_jprb &
11282  &, 0.546620e-03_jprb, 0.446628e-03_jprb, 0.380026e-03_jprb, 0.311003e-03_jprb &
11283  &, 0.277780e-03_jprb, 0.243334e-03_jprb, 0.207649e-03_jprb &
11284  &, 0.170706e-03_jprb, 0.132488e-03_jprb, 0.929756e-04_jprb, 0.943048e-04_jprb &
11285  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11286  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11287  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11288  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11289  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11290  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11291  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11292  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11293  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11294 xcw( 256, :) = (/ &
11295  & 0.932428e+00_jprb, 0.915031e+00_jprb, 0.897455e+00_jprb, 0.879714e+00_jprb &
11296  &, 0.861818e+00_jprb, 0.843783e+00_jprb, 0.825619e+00_jprb &
11297  &, 0.807339e+00_jprb, 0.788959e+00_jprb, 0.770490e+00_jprb, 0.751945e+00_jprb &
11298  &, 0.733342e+00_jprb, 0.714690e+00_jprb, 0.696008e+00_jprb &
11299  &, 0.677308e+00_jprb, 0.658608e+00_jprb, 0.639920e+00_jprb, 0.621262e+00_jprb &
11300  &, 0.602651e+00_jprb, 0.584100e+00_jprb, 0.565630e+00_jprb &
11301  &, 0.547254e+00_jprb, 0.528989e+00_jprb, 0.510850e+00_jprb, 0.492867e+00_jprb &
11302  &, 0.475043e+00_jprb, 0.457404e+00_jprb, 0.439962e+00_jprb &
11303  &, 0.422734e+00_jprb, 0.405742e+00_jprb, 0.389002e+00_jprb, 0.372524e+00_jprb &
11304  &, 0.356335e+00_jprb, 0.340439e+00_jprb, 0.324863e+00_jprb &
11305  &, 0.309613e+00_jprb, 0.294705e+00_jprb, 0.280163e+00_jprb, 0.265976e+00_jprb &
11306  &, 0.252180e+00_jprb, 0.238772e+00_jprb, 0.225767e+00_jprb &
11307  &, 0.213162e+00_jprb, 0.200980e+00_jprb, 0.189215e+00_jprb, 0.177879e+00_jprb &
11308  &, 0.166970e+00_jprb, 0.156484e+00_jprb, 0.146442e+00_jprb &
11309  &, 0.136822e+00_jprb, 0.127639e+00_jprb, 0.118879e+00_jprb, 0.110540e+00_jprb &
11310  &, 0.102628e+00_jprb, 0.951197e-01_jprb, 0.880034e-01_jprb &
11311  &, 0.812928e-01_jprb, 0.749699e-01_jprb, 0.690123e-01_jprb, 0.634268e-01_jprb &
11312  &, 0.581847e-01_jprb, 0.532874e-01_jprb, 0.487167e-01_jprb &
11313  &, 0.444511e-01_jprb, 0.405024e-01_jprb, 0.368250e-01_jprb, 0.334258e-01_jprb &
11314  &, 0.302913e-01_jprb, 0.273850e-01_jprb, 0.247281e-01_jprb &
11315  &, 0.222791e-01_jprb, 0.200349e-01_jprb, 0.179914e-01_jprb, 0.161206e-01_jprb &
11316  &, 0.144142e-01_jprb, 0.128858e-01_jprb, 0.114779e-01_jprb &
11317  &, 0.102008e-01_jprb, 0.906472e-02_jprb, 0.802984e-02_jprb, 0.710414e-02_jprb &
11318  &, 0.626953e-02_jprb, 0.553289e-02_jprb, 0.487398e-02_jprb &
11319  &, 0.427063e-02_jprb, 0.372710e-02_jprb, 0.327663e-02_jprb, 0.286642e-02_jprb &
11320  &, 0.249942e-02_jprb, 0.214811e-02_jprb, 0.187610e-02_jprb &
11321  &, 0.162491e-02_jprb, 0.139607e-02_jprb, 0.119114e-02_jprb, 0.104511e-02_jprb &
11322  &, 0.893418e-03_jprb, 0.770555e-03_jprb, 0.643055e-03_jprb &
11323  &, 0.546620e-03_jprb, 0.483013e-03_jprb, 0.380026e-03_jprb, 0.348629e-03_jprb &
11324  &, 0.277780e-03_jprb, 0.243334e-03_jprb, 0.207649e-03_jprb &
11325  &, 0.170706e-03_jprb, 0.132488e-03_jprb, 0.929756e-04_jprb, 0.943048e-04_jprb &
11326  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11327  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11328  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11329  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11330  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11331  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11332  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11333  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11334  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11335 xcw( 257, :) = (/ &
11336  & 0.932726e+00_jprb, 0.915397e+00_jprb, 0.897889e+00_jprb, 0.880214e+00_jprb &
11337  &, 0.862383e+00_jprb, 0.844409e+00_jprb, 0.826304e+00_jprb &
11338  &, 0.808083e+00_jprb, 0.789757e+00_jprb, 0.771341e+00_jprb, 0.752848e+00_jprb &
11339  &, 0.734292e+00_jprb, 0.715687e+00_jprb, 0.697048e+00_jprb &
11340  &, 0.678390e+00_jprb, 0.659728e+00_jprb, 0.641078e+00_jprb, 0.622455e+00_jprb &
11341  &, 0.603875e+00_jprb, 0.585353e+00_jprb, 0.566907e+00_jprb &
11342  &, 0.548553e+00_jprb, 0.530312e+00_jprb, 0.512197e+00_jprb, 0.494224e+00_jprb &
11343  &, 0.476414e+00_jprb, 0.458783e+00_jprb, 0.441348e+00_jprb &
11344  &, 0.424126e+00_jprb, 0.407137e+00_jprb, 0.390398e+00_jprb, 0.373921e+00_jprb &
11345  &, 0.357724e+00_jprb, 0.341824e+00_jprb, 0.326237e+00_jprb &
11346  &, 0.310971e+00_jprb, 0.296049e+00_jprb, 0.281493e+00_jprb, 0.267290e+00_jprb &
11347  &, 0.253475e+00_jprb, 0.240036e+00_jprb, 0.227010e+00_jprb &
11348  &, 0.214380e+00_jprb, 0.202161e+00_jprb, 0.190367e+00_jprb, 0.179000e+00_jprb &
11349  &, 0.168057e+00_jprb, 0.157549e+00_jprb, 0.147468e+00_jprb &
11350  &, 0.137821e+00_jprb, 0.128595e+00_jprb, 0.119803e+00_jprb, 0.111429e+00_jprb &
11351  &, 0.103480e+00_jprb, 0.959334e-01_jprb, 0.887908e-01_jprb &
11352  &, 0.820367e-01_jprb, 0.756676e-01_jprb, 0.696775e-01_jprb, 0.640575e-01_jprb &
11353  &, 0.587788e-01_jprb, 0.538429e-01_jprb, 0.492492e-01_jprb &
11354  &, 0.449592e-01_jprb, 0.409661e-01_jprb, 0.372610e-01_jprb, 0.338326e-01_jprb &
11355  &, 0.306674e-01_jprb, 0.277489e-01_jprb, 0.250585e-01_jprb &
11356  &, 0.225743e-01_jprb, 0.203148e-01_jprb, 0.182552e-01_jprb, 0.163674e-01_jprb &
11357  &, 0.146432e-01_jprb, 0.130727e-01_jprb, 0.116687e-01_jprb &
11358  &, 0.103710e-01_jprb, 0.921356e-02_jprb, 0.815634e-02_jprb, 0.723313e-02_jprb &
11359  &, 0.637473e-02_jprb, 0.564013e-02_jprb, 0.495596e-02_jprb &
11360  &, 0.435418e-02_jprb, 0.381222e-02_jprb, 0.333445e-02_jprb, 0.292532e-02_jprb &
11361  &, 0.252942e-02_jprb, 0.220920e-02_jprb, 0.190720e-02_jprb &
11362  &, 0.165658e-02_jprb, 0.142830e-02_jprb, 0.122395e-02_jprb, 0.107850e-02_jprb &
11363  &, 0.927396e-03_jprb, 0.770555e-03_jprb, 0.678224e-03_jprb &
11364  &, 0.582395e-03_jprb, 0.483013e-03_jprb, 0.417028e-03_jprb, 0.348629e-03_jprb &
11365  &, 0.277780e-03_jprb, 0.243334e-03_jprb, 0.207649e-03_jprb &
11366  &, 0.170706e-03_jprb, 0.132488e-03_jprb, 0.929756e-04_jprb, 0.943048e-04_jprb &
11367  &, 0.528229e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11368  &, 0.548704e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11369  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11370  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11371  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11372  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11373  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11374  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11375  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11376 xcw( 258, :) = (/ &
11377  & 0.933022e+00_jprb, 0.915763e+00_jprb, 0.898323e+00_jprb, 0.880713e+00_jprb &
11378  &, 0.862946e+00_jprb, 0.845034e+00_jprb, 0.826989e+00_jprb &
11379  &, 0.808824e+00_jprb, 0.790554e+00_jprb, 0.772191e+00_jprb, 0.753749e+00_jprb &
11380  &, 0.735241e+00_jprb, 0.716683e+00_jprb, 0.698088e+00_jprb &
11381  &, 0.679471e+00_jprb, 0.660849e+00_jprb, 0.642234e+00_jprb, 0.623645e+00_jprb &
11382  &, 0.605097e+00_jprb, 0.586603e+00_jprb, 0.568185e+00_jprb &
11383  &, 0.549856e+00_jprb, 0.531634e+00_jprb, 0.513536e+00_jprb, 0.495581e+00_jprb &
11384  &, 0.477786e+00_jprb, 0.460165e+00_jprb, 0.442737e+00_jprb &
11385  &, 0.425522e+00_jprb, 0.408535e+00_jprb, 0.391794e+00_jprb, 0.375314e+00_jprb &
11386  &, 0.359114e+00_jprb, 0.343205e+00_jprb, 0.327607e+00_jprb &
11387  &, 0.312338e+00_jprb, 0.297404e+00_jprb, 0.282823e+00_jprb, 0.268603e+00_jprb &
11388  &, 0.254760e+00_jprb, 0.241311e+00_jprb, 0.228252e+00_jprb &
11389  &, 0.215598e+00_jprb, 0.203353e+00_jprb, 0.191531e+00_jprb, 0.180132e+00_jprb &
11390  &, 0.169157e+00_jprb, 0.158613e+00_jprb, 0.148507e+00_jprb &
11391  &, 0.138819e+00_jprb, 0.129564e+00_jprb, 0.120726e+00_jprb, 0.112318e+00_jprb &
11392  &, 0.104318e+00_jprb, 0.967471e-01_jprb, 0.895630e-01_jprb &
11393  &, 0.827805e-01_jprb, 0.763812e-01_jprb, 0.703427e-01_jprb, 0.646881e-01_jprb &
11394  &, 0.593730e-01_jprb, 0.544157e-01_jprb, 0.497817e-01_jprb &
11395  &, 0.454492e-01_jprb, 0.414298e-01_jprb, 0.376970e-01_jprb, 0.342394e-01_jprb &
11396  &, 0.310434e-01_jprb, 0.280926e-01_jprb, 0.253889e-01_jprb &
11397  &, 0.228906e-01_jprb, 0.205948e-01_jprb, 0.185190e-01_jprb, 0.165918e-01_jprb &
11398  &, 0.148493e-01_jprb, 0.132830e-01_jprb, 0.118356e-01_jprb &
11399  &, 0.105413e-01_jprb, 0.936241e-02_jprb, 0.830813e-02_jprb, 0.736211e-02_jprb &
11400  &, 0.650623e-02_jprb, 0.572056e-02_jprb, 0.503794e-02_jprb &
11401  &, 0.443772e-02_jprb, 0.389735e-02_jprb, 0.339226e-02_jprb, 0.298421e-02_jprb &
11402  &, 0.258940e-02_jprb, 0.223974e-02_jprb, 0.196941e-02_jprb &
11403  &, 0.168824e-02_jprb, 0.146054e-02_jprb, 0.125676e-02_jprb, 0.107850e-02_jprb &
11404  &, 0.927396e-03_jprb, 0.805126e-03_jprb, 0.678224e-03_jprb &
11405  &, 0.582395e-03_jprb, 0.483013e-03_jprb, 0.417028e-03_jprb, 0.348629e-03_jprb &
11406  &, 0.316034e-03_jprb, 0.243334e-03_jprb, 0.207649e-03_jprb &
11407  &, 0.170706e-03_jprb, 0.132488e-03_jprb, 0.134463e-03_jprb, 0.943048e-04_jprb &
11408  &, 0.956459e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11409  &, 0.548704e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11410  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11411  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11412  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11413  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11414  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11415  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11416  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11417 xcw( 259, :) = (/ &
11418  & 0.933318e+00_jprb, 0.916130e+00_jprb, 0.898756e+00_jprb, 0.881212e+00_jprb &
11419  &, 0.863508e+00_jprb, 0.845657e+00_jprb, 0.827672e+00_jprb &
11420  &, 0.809565e+00_jprb, 0.791350e+00_jprb, 0.773040e+00_jprb, 0.754649e+00_jprb &
11421  &, 0.736189e+00_jprb, 0.717677e+00_jprb, 0.699127e+00_jprb &
11422  &, 0.680552e+00_jprb, 0.661968e+00_jprb, 0.643390e+00_jprb, 0.624834e+00_jprb &
11423  &, 0.606317e+00_jprb, 0.587853e+00_jprb, 0.569462e+00_jprb &
11424  &, 0.551156e+00_jprb, 0.532957e+00_jprb, 0.514879e+00_jprb, 0.496938e+00_jprb &
11425  &, 0.479153e+00_jprb, 0.461547e+00_jprb, 0.444126e+00_jprb &
11426  &, 0.426918e+00_jprb, 0.409934e+00_jprb, 0.393191e+00_jprb, 0.376708e+00_jprb &
11427  &, 0.360503e+00_jprb, 0.344589e+00_jprb, 0.328986e+00_jprb &
11428  &, 0.313696e+00_jprb, 0.298748e+00_jprb, 0.284153e+00_jprb, 0.269916e+00_jprb &
11429  &, 0.256055e+00_jprb, 0.242576e+00_jprb, 0.229494e+00_jprb &
11430  &, 0.216816e+00_jprb, 0.204545e+00_jprb, 0.192694e+00_jprb, 0.181265e+00_jprb &
11431  &, 0.170257e+00_jprb, 0.159689e+00_jprb, 0.149533e+00_jprb &
11432  &, 0.139818e+00_jprb, 0.130519e+00_jprb, 0.121650e+00_jprb, 0.113207e+00_jprb &
11433  &, 0.105185e+00_jprb, 0.975607e-01_jprb, 0.903505e-01_jprb &
11434  &, 0.835244e-01_jprb, 0.770790e-01_jprb, 0.710241e-01_jprb, 0.653188e-01_jprb &
11435  &, 0.599841e-01_jprb, 0.549886e-01_jprb, 0.503142e-01_jprb &
11436  &, 0.459573e-01_jprb, 0.419121e-01_jprb, 0.381330e-01_jprb, 0.346462e-01_jprb &
11437  &, 0.314392e-01_jprb, 0.284566e-01_jprb, 0.257193e-01_jprb &
11438  &, 0.231858e-01_jprb, 0.208962e-01_jprb, 0.187828e-01_jprb, 0.168386e-01_jprb &
11439  &, 0.150783e-01_jprb, 0.134700e-01_jprb, 0.120263e-01_jprb &
11440  &, 0.107115e-01_jprb, 0.951125e-02_jprb, 0.845993e-02_jprb, 0.749110e-02_jprb &
11441  &, 0.661144e-02_jprb, 0.582781e-02_jprb, 0.514724e-02_jprb &
11442  &, 0.452126e-02_jprb, 0.395409e-02_jprb, 0.347899e-02_jprb, 0.304311e-02_jprb &
11443  &, 0.264939e-02_jprb, 0.230083e-02_jprb, 0.200051e-02_jprb &
11444  &, 0.171991e-02_jprb, 0.149277e-02_jprb, 0.128957e-02_jprb, 0.111189e-02_jprb &
11445  &, 0.961373e-03_jprb, 0.805126e-03_jprb, 0.713394e-03_jprb &
11446  &, 0.582395e-03_jprb, 0.519399e-03_jprb, 0.417028e-03_jprb, 0.348629e-03_jprb &
11447  &, 0.316034e-03_jprb, 0.243334e-03_jprb, 0.207649e-03_jprb &
11448  &, 0.170706e-03_jprb, 0.132488e-03_jprb, 0.134463e-03_jprb, 0.943048e-04_jprb &
11449  &, 0.956459e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11450  &, 0.548704e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11451  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11452  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11453  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11454  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11455  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11456  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11457  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11458 
11459 IF (lhook) CALL dr_hook('SU_MCICA:PART37',1,zhook_handle)
11460 END SUBROUTINE part37
11461 
11462 #ifdef VPP5000
11463 !OCL SCALAR
11464 #endif
11465 !option! -Nv -NO
11466 #ifdef RS6K
11467 @process nooptimize
11468 #endif
11469 !pgi$r opt=0
11470 SUBROUTINE part38
11471 
11472 REAL(KIND=JPRB) :: ZHOOK_HANDLE
11473 IF (lhook) CALL dr_hook('SU_MCICA:PART38',0,zhook_handle)
11474 
11475 xcw( 260, :) = (/ &
11476  & 0.933612e+00_jprb, 0.916494e+00_jprb, 0.899188e+00_jprb, 0.881710e+00_jprb &
11477  &, 0.864070e+00_jprb, 0.846280e+00_jprb, 0.828355e+00_jprb &
11478  &, 0.810305e+00_jprb, 0.792146e+00_jprb, 0.773888e+00_jprb, 0.755548e+00_jprb &
11479  &, 0.737137e+00_jprb, 0.718671e+00_jprb, 0.700164e+00_jprb &
11480  &, 0.681630e+00_jprb, 0.663086e+00_jprb, 0.644544e+00_jprb, 0.626024e+00_jprb &
11481  &, 0.607538e+00_jprb, 0.589103e+00_jprb, 0.570737e+00_jprb &
11482  &, 0.552456e+00_jprb, 0.534276e+00_jprb, 0.516219e+00_jprb, 0.498295e+00_jprb &
11483  &, 0.480525e+00_jprb, 0.462925e+00_jprb, 0.445515e+00_jprb &
11484  &, 0.428314e+00_jprb, 0.411332e+00_jprb, 0.394591e+00_jprb, 0.378105e+00_jprb &
11485  &, 0.361897e+00_jprb, 0.345974e+00_jprb, 0.330360e+00_jprb &
11486  &, 0.315063e+00_jprb, 0.300102e+00_jprb, 0.285483e+00_jprb, 0.271230e+00_jprb &
11487  &, 0.257350e+00_jprb, 0.243851e+00_jprb, 0.230748e+00_jprb &
11488  &, 0.218034e+00_jprb, 0.205748e+00_jprb, 0.193858e+00_jprb, 0.182398e+00_jprb &
11489  &, 0.171368e+00_jprb, 0.160754e+00_jprb, 0.150572e+00_jprb &
11490  &, 0.140816e+00_jprb, 0.131488e+00_jprb, 0.122587e+00_jprb, 0.114111e+00_jprb &
11491  &, 0.106038e+00_jprb, 0.983892e-01_jprb, 0.911227e-01_jprb &
11492  &, 0.842683e-01_jprb, 0.777925e-01_jprb, 0.717055e-01_jprb, 0.659661e-01_jprb &
11493  &, 0.605952e-01_jprb, 0.555615e-01_jprb, 0.508467e-01_jprb &
11494  &, 0.464654e-01_jprb, 0.423758e-01_jprb, 0.385880e-01_jprb, 0.350724e-01_jprb &
11495  &, 0.318153e-01_jprb, 0.288205e-01_jprb, 0.260497e-01_jprb &
11496  &, 0.235022e-01_jprb, 0.211761e-01_jprb, 0.190466e-01_jprb, 0.170854e-01_jprb &
11497  &, 0.153073e-01_jprb, 0.136803e-01_jprb, 0.122170e-01_jprb &
11498  &, 0.108818e-01_jprb, 0.968490e-02_jprb, 0.858642e-02_jprb, 0.762008e-02_jprb &
11499  &, 0.674294e-02_jprb, 0.593505e-02_jprb, 0.522922e-02_jprb &
11500  &, 0.460480e-02_jprb, 0.403922e-02_jprb, 0.353681e-02_jprb, 0.310200e-02_jprb &
11501  &, 0.270937e-02_jprb, 0.236192e-02_jprb, 0.203161e-02_jprb &
11502  &, 0.178324e-02_jprb, 0.152501e-02_jprb, 0.132237e-02_jprb, 0.114528e-02_jprb &
11503  &, 0.995351e-03_jprb, 0.839696e-03_jprb, 0.713394e-03_jprb &
11504  &, 0.618170e-03_jprb, 0.519399e-03_jprb, 0.454031e-03_jprb, 0.386254e-03_jprb &
11505  &, 0.316034e-03_jprb, 0.282223e-03_jprb, 0.207649e-03_jprb &
11506  &, 0.170706e-03_jprb, 0.132488e-03_jprb, 0.134463e-03_jprb, 0.943048e-04_jprb &
11507  &, 0.956459e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11508  &, 0.548704e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11509  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11510  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11511  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11512  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11513  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11514  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11515  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11516 xcw( 261, :) = (/ &
11517  & 0.933908e+00_jprb, 0.916858e+00_jprb, 0.899619e+00_jprb, 0.882207e+00_jprb &
11518  &, 0.864630e+00_jprb, 0.846903e+00_jprb, 0.829037e+00_jprb &
11519  &, 0.811045e+00_jprb, 0.792939e+00_jprb, 0.774735e+00_jprb, 0.756446e+00_jprb &
11520  &, 0.738083e+00_jprb, 0.719663e+00_jprb, 0.701200e+00_jprb &
11521  &, 0.682708e+00_jprb, 0.664202e+00_jprb, 0.645699e+00_jprb, 0.627211e+00_jprb &
11522  &, 0.608758e+00_jprb, 0.590353e+00_jprb, 0.572014e+00_jprb &
11523  &, 0.553755e+00_jprb, 0.535599e+00_jprb, 0.517559e+00_jprb, 0.499653e+00_jprb &
11524  &, 0.481896e+00_jprb, 0.464307e+00_jprb, 0.446908e+00_jprb &
11525  &, 0.429706e+00_jprb, 0.412730e+00_jprb, 0.395992e+00_jprb, 0.379503e+00_jprb &
11526  &, 0.363291e+00_jprb, 0.347363e+00_jprb, 0.331739e+00_jprb &
11527  &, 0.316431e+00_jprb, 0.301457e+00_jprb, 0.286822e+00_jprb, 0.272553e+00_jprb &
11528  &, 0.258645e+00_jprb, 0.245126e+00_jprb, 0.232001e+00_jprb &
11529  &, 0.219264e+00_jprb, 0.206940e+00_jprb, 0.195033e+00_jprb, 0.183543e+00_jprb &
11530  &, 0.172468e+00_jprb, 0.161830e+00_jprb, 0.151611e+00_jprb &
11531  &, 0.141828e+00_jprb, 0.132457e+00_jprb, 0.123525e+00_jprb, 0.115000e+00_jprb &
11532  &, 0.106905e+00_jprb, 0.992029e-01_jprb, 0.919253e-01_jprb &
11533  &, 0.850276e-01_jprb, 0.785220e-01_jprb, 0.723869e-01_jprb, 0.666134e-01_jprb &
11534  &, 0.612063e-01_jprb, 0.561344e-01_jprb, 0.513970e-01_jprb &
11535  &, 0.469735e-01_jprb, 0.428581e-01_jprb, 0.390430e-01_jprb, 0.354986e-01_jprb &
11536  &, 0.322111e-01_jprb, 0.291844e-01_jprb, 0.263801e-01_jprb &
11537  &, 0.238185e-01_jprb, 0.214560e-01_jprb, 0.193104e-01_jprb, 0.173323e-01_jprb &
11538  &, 0.155363e-01_jprb, 0.138906e-01_jprb, 0.124078e-01_jprb &
11539  &, 0.110520e-01_jprb, 0.983375e-02_jprb, 0.873822e-02_jprb, 0.774906e-02_jprb &
11540  &, 0.684814e-02_jprb, 0.604229e-02_jprb, 0.533852e-02_jprb &
11541  &, 0.468834e-02_jprb, 0.412434e-02_jprb, 0.359462e-02_jprb, 0.316090e-02_jprb &
11542  &, 0.276936e-02_jprb, 0.239246e-02_jprb, 0.209381e-02_jprb &
11543  &, 0.181490e-02_jprb, 0.155724e-02_jprb, 0.135518e-02_jprb, 0.117867e-02_jprb &
11544  &, 0.995351e-03_jprb, 0.874267e-03_jprb, 0.748564e-03_jprb &
11545  &, 0.618170e-03_jprb, 0.555785e-03_jprb, 0.454031e-03_jprb, 0.386254e-03_jprb &
11546  &, 0.316034e-03_jprb, 0.282223e-03_jprb, 0.247179e-03_jprb &
11547  &, 0.210882e-03_jprb, 0.173317e-03_jprb, 0.134463e-03_jprb, 0.943048e-04_jprb &
11548  &, 0.956459e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11549  &, 0.548704e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11550  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11551  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11552  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11553  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11554  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11555  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11556  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11557 xcw( 262, :) = (/ &
11558  & 0.934203e+00_jprb, 0.917223e+00_jprb, 0.900051e+00_jprb, 0.882704e+00_jprb &
11559  &, 0.865190e+00_jprb, 0.847523e+00_jprb, 0.829717e+00_jprb &
11560  &, 0.811782e+00_jprb, 0.793732e+00_jprb, 0.775581e+00_jprb, 0.757342e+00_jprb &
11561  &, 0.739028e+00_jprb, 0.720654e+00_jprb, 0.702235e+00_jprb &
11562  &, 0.683784e+00_jprb, 0.665318e+00_jprb, 0.646851e+00_jprb, 0.628399e+00_jprb &
11563  &, 0.609977e+00_jprb, 0.591599e+00_jprb, 0.573288e+00_jprb &
11564  &, 0.555055e+00_jprb, 0.536918e+00_jprb, 0.518898e+00_jprb, 0.501006e+00_jprb &
11565  &, 0.483267e+00_jprb, 0.465689e+00_jprb, 0.448297e+00_jprb &
11566  &, 0.431102e+00_jprb, 0.414129e+00_jprb, 0.397392e+00_jprb, 0.380905e+00_jprb &
11567  &, 0.364685e+00_jprb, 0.348752e+00_jprb, 0.333118e+00_jprb &
11568  &, 0.317798e+00_jprb, 0.302811e+00_jprb, 0.288162e+00_jprb, 0.273866e+00_jprb &
11569  &, 0.259951e+00_jprb, 0.246401e+00_jprb, 0.233254e+00_jprb &
11570  &, 0.220493e+00_jprb, 0.208143e+00_jprb, 0.196208e+00_jprb, 0.184687e+00_jprb &
11571  &, 0.173580e+00_jprb, 0.162907e+00_jprb, 0.152663e+00_jprb &
11572  &, 0.142840e+00_jprb, 0.133440e+00_jprb, 0.124462e+00_jprb, 0.115903e+00_jprb &
11573  &, 0.107772e+00_jprb, 0.100046e+00_jprb, 0.927127e-01_jprb &
11574  &, 0.857870e-01_jprb, 0.792356e-01_jprb, 0.730684e-01_jprb, 0.672607e-01_jprb &
11575  &, 0.618174e-01_jprb, 0.567072e-01_jprb, 0.519472e-01_jprb &
11576  &, 0.474816e-01_jprb, 0.433404e-01_jprb, 0.394979e-01_jprb, 0.359054e-01_jprb &
11577  &, 0.326070e-01_jprb, 0.295483e-01_jprb, 0.267311e-01_jprb &
11578  &, 0.241348e-01_jprb, 0.217575e-01_jprb, 0.195741e-01_jprb, 0.175791e-01_jprb &
11579  &, 0.157653e-01_jprb, 0.141009e-01_jprb, 0.125985e-01_jprb &
11580  &, 0.112223e-01_jprb, 0.100074e-01_jprb, 0.889001e-02_jprb, 0.787805e-02_jprb &
11581  &, 0.697964e-02_jprb, 0.614953e-02_jprb, 0.542050e-02_jprb &
11582  &, 0.477189e-02_jprb, 0.420947e-02_jprb, 0.368135e-02_jprb, 0.321980e-02_jprb &
11583  &, 0.279935e-02_jprb, 0.245355e-02_jprb, 0.212492e-02_jprb &
11584  &, 0.184657e-02_jprb, 0.158947e-02_jprb, 0.138799e-02_jprb, 0.121206e-02_jprb &
11585  &, 0.102933e-02_jprb, 0.874267e-03_jprb, 0.748564e-03_jprb &
11586  &, 0.653945e-03_jprb, 0.555785e-03_jprb, 0.454031e-03_jprb, 0.386254e-03_jprb &
11587  &, 0.354288e-03_jprb, 0.282223e-03_jprb, 0.247179e-03_jprb &
11588  &, 0.210882e-03_jprb, 0.173317e-03_jprb, 0.134463e-03_jprb, 0.943048e-04_jprb &
11589  &, 0.956459e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11590  &, 0.548704e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11591  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11592  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11593  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11594  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11595  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11596  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11597  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11598 xcw( 263, :) = (/ &
11599  & 0.934497e+00_jprb, 0.917584e+00_jprb, 0.900481e+00_jprb, 0.883199e+00_jprb &
11600  &, 0.865749e+00_jprb, 0.848144e+00_jprb, 0.830396e+00_jprb &
11601  &, 0.812518e+00_jprb, 0.794524e+00_jprb, 0.776426e+00_jprb, 0.758238e+00_jprb &
11602  &, 0.739973e+00_jprb, 0.721646e+00_jprb, 0.703270e+00_jprb &
11603  &, 0.684861e+00_jprb, 0.666434e+00_jprb, 0.648004e+00_jprb, 0.629585e+00_jprb &
11604  &, 0.611194e+00_jprb, 0.592846e+00_jprb, 0.574563e+00_jprb &
11605  &, 0.556355e+00_jprb, 0.538241e+00_jprb, 0.520238e+00_jprb, 0.502363e+00_jprb &
11606  &, 0.484635e+00_jprb, 0.467071e+00_jprb, 0.449686e+00_jprb &
11607  &, 0.432502e+00_jprb, 0.415531e+00_jprb, 0.398792e+00_jprb, 0.382302e+00_jprb &
11608  &, 0.366079e+00_jprb, 0.350142e+00_jprb, 0.334497e+00_jprb &
11609  &, 0.319165e+00_jprb, 0.304165e+00_jprb, 0.289501e+00_jprb, 0.275190e+00_jprb &
11610  &, 0.261246e+00_jprb, 0.247687e+00_jprb, 0.234507e+00_jprb &
11611  &, 0.221722e+00_jprb, 0.209347e+00_jprb, 0.197383e+00_jprb, 0.185832e+00_jprb &
11612  &, 0.174692e+00_jprb, 0.163984e+00_jprb, 0.153702e+00_jprb &
11613  &, 0.143852e+00_jprb, 0.134422e+00_jprb, 0.125413e+00_jprb, 0.116821e+00_jprb &
11614  &, 0.108639e+00_jprb, 0.100875e+00_jprb, 0.935152e-01_jprb &
11615  &, 0.865464e-01_jprb, 0.799651e-01_jprb, 0.737498e-01_jprb, 0.679245e-01_jprb &
11616  &, 0.624285e-01_jprb, 0.572975e-01_jprb, 0.524975e-01_jprb &
11617  &, 0.480078e-01_jprb, 0.438226e-01_jprb, 0.399529e-01_jprb, 0.363316e-01_jprb &
11618  &, 0.330028e-01_jprb, 0.299123e-01_jprb, 0.270822e-01_jprb &
11619  &, 0.244511e-01_jprb, 0.220589e-01_jprb, 0.198599e-01_jprb, 0.178259e-01_jprb &
11620  &, 0.159943e-01_jprb, 0.143112e-01_jprb, 0.127892e-01_jprb &
11621  &, 0.114169e-01_jprb, 0.101562e-01_jprb, 0.901651e-02_jprb, 0.800703e-02_jprb &
11622  &, 0.708485e-02_jprb, 0.625677e-02_jprb, 0.552980e-02_jprb &
11623  &, 0.485543e-02_jprb, 0.426622e-02_jprb, 0.373916e-02_jprb, 0.327869e-02_jprb &
11624  &, 0.285934e-02_jprb, 0.251464e-02_jprb, 0.218712e-02_jprb &
11625  &, 0.187823e-02_jprb, 0.165394e-02_jprb, 0.142080e-02_jprb, 0.121206e-02_jprb &
11626  &, 0.106331e-02_jprb, 0.908838e-03_jprb, 0.783734e-03_jprb &
11627  &, 0.653945e-03_jprb, 0.555785e-03_jprb, 0.491033e-03_jprb, 0.423880e-03_jprb &
11628  &, 0.354288e-03_jprb, 0.282223e-03_jprb, 0.247179e-03_jprb &
11629  &, 0.210882e-03_jprb, 0.173317e-03_jprb, 0.134463e-03_jprb, 0.943048e-04_jprb &
11630  &, 0.956459e-04_jprb, 0.534995e-04_jprb, 0.541819e-04_jprb &
11631  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11632  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11633  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11634  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11635  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11636  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11637  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11638  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11639 xcw( 264, :) = (/ &
11640  & 0.934791e+00_jprb, 0.917948e+00_jprb, 0.900910e+00_jprb, 0.883694e+00_jprb &
11641  &, 0.866307e+00_jprb, 0.848763e+00_jprb, 0.831075e+00_jprb &
11642  &, 0.813254e+00_jprb, 0.795316e+00_jprb, 0.777270e+00_jprb, 0.759133e+00_jprb &
11643  &, 0.740915e+00_jprb, 0.722634e+00_jprb, 0.704303e+00_jprb &
11644  &, 0.685936e+00_jprb, 0.667548e+00_jprb, 0.649154e+00_jprb, 0.630768e+00_jprb &
11645  &, 0.612411e+00_jprb, 0.594096e+00_jprb, 0.575837e+00_jprb &
11646  &, 0.557651e+00_jprb, 0.539560e+00_jprb, 0.521577e+00_jprb, 0.503720e+00_jprb &
11647  &, 0.486006e+00_jprb, 0.468453e+00_jprb, 0.451079e+00_jprb &
11648  &, 0.433898e+00_jprb, 0.416930e+00_jprb, 0.400193e+00_jprb, 0.383704e+00_jprb &
11649  &, 0.367477e+00_jprb, 0.351531e+00_jprb, 0.335880e+00_jprb &
11650  &, 0.320533e+00_jprb, 0.305519e+00_jprb, 0.290841e+00_jprb, 0.276513e+00_jprb &
11651  &, 0.262551e+00_jprb, 0.248972e+00_jprb, 0.235771e+00_jprb &
11652  &, 0.222962e+00_jprb, 0.210550e+00_jprb, 0.198558e+00_jprb, 0.186977e+00_jprb &
11653  &, 0.175816e+00_jprb, 0.165073e+00_jprb, 0.154754e+00_jprb &
11654  &, 0.144864e+00_jprb, 0.135405e+00_jprb, 0.126350e+00_jprb, 0.117724e+00_jprb &
11655  &, 0.109521e+00_jprb, 0.101718e+00_jprb, 0.943178e-01_jprb &
11656  &, 0.873057e-01_jprb, 0.806945e-01_jprb, 0.744474e-01_jprb, 0.685718e-01_jprb &
11657  &, 0.630566e-01_jprb, 0.578877e-01_jprb, 0.530478e-01_jprb &
11658  &, 0.485341e-01_jprb, 0.443235e-01_jprb, 0.404079e-01_jprb, 0.367771e-01_jprb &
11659  &, 0.333986e-01_jprb, 0.302964e-01_jprb, 0.274332e-01_jprb &
11660  &, 0.247885e-01_jprb, 0.223604e-01_jprb, 0.201237e-01_jprb, 0.180952e-01_jprb &
11661  &, 0.162233e-01_jprb, 0.145215e-01_jprb, 0.129800e-01_jprb &
11662  &, 0.115871e-01_jprb, 0.103299e-01_jprb, 0.916830e-02_jprb, 0.813602e-02_jprb &
11663  &, 0.721635e-02_jprb, 0.639082e-02_jprb, 0.563910e-02_jprb &
11664  &, 0.496682e-02_jprb, 0.435134e-02_jprb, 0.382589e-02_jprb, 0.333759e-02_jprb &
11665  &, 0.291933e-02_jprb, 0.254518e-02_jprb, 0.221822e-02_jprb &
11666  &, 0.194156e-02_jprb, 0.168618e-02_jprb, 0.145361e-02_jprb, 0.124545e-02_jprb &
11667  &, 0.106331e-02_jprb, 0.943409e-03_jprb, 0.783734e-03_jprb &
11668  &, 0.689719e-03_jprb, 0.592170e-03_jprb, 0.491033e-03_jprb, 0.423880e-03_jprb &
11669  &, 0.354288e-03_jprb, 0.282223e-03_jprb, 0.247179e-03_jprb &
11670  &, 0.210882e-03_jprb, 0.173317e-03_jprb, 0.134463e-03_jprb, 0.136457e-03_jprb &
11671  &, 0.956459e-04_jprb, 0.969989e-04_jprb, 0.541819e-04_jprb &
11672  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11673  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11674  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11675  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11676  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11677  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11678  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11679  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11680 xcw( 265, :) = (/ &
11681  & 0.935083e+00_jprb, 0.918309e+00_jprb, 0.901339e+00_jprb, 0.884188e+00_jprb &
11682  &, 0.866864e+00_jprb, 0.849382e+00_jprb, 0.831752e+00_jprb &
11683  &, 0.813989e+00_jprb, 0.796105e+00_jprb, 0.778113e+00_jprb, 0.760026e+00_jprb &
11684  &, 0.741857e+00_jprb, 0.723623e+00_jprb, 0.705336e+00_jprb &
11685  &, 0.687010e+00_jprb, 0.668661e+00_jprb, 0.650305e+00_jprb, 0.631956e+00_jprb &
11686  &, 0.613629e+00_jprb, 0.595340e+00_jprb, 0.577111e+00_jprb &
11687  &, 0.558951e+00_jprb, 0.540880e+00_jprb, 0.522917e+00_jprb, 0.505077e+00_jprb &
11688  &, 0.487377e+00_jprb, 0.469836e+00_jprb, 0.452468e+00_jprb &
11689  &, 0.435293e+00_jprb, 0.418332e+00_jprb, 0.401597e+00_jprb, 0.385106e+00_jprb &
11690  &, 0.368875e+00_jprb, 0.352924e+00_jprb, 0.337264e+00_jprb &
11691  &, 0.321909e+00_jprb, 0.306883e+00_jprb, 0.292190e+00_jprb, 0.277846e+00_jprb &
11692  &, 0.263867e+00_jprb, 0.250258e+00_jprb, 0.237024e+00_jprb &
11693  &, 0.224192e+00_jprb, 0.211764e+00_jprb, 0.199745e+00_jprb, 0.188133e+00_jprb &
11694  &, 0.176940e+00_jprb, 0.166162e+00_jprb, 0.155818e+00_jprb &
11695  &, 0.145888e+00_jprb, 0.136387e+00_jprb, 0.127301e+00_jprb, 0.118641e+00_jprb &
11696  &, 0.110388e+00_jprb, 0.102561e+00_jprb, 0.951204e-01_jprb &
11697  &, 0.880806e-01_jprb, 0.814240e-01_jprb, 0.751451e-01_jprb, 0.692357e-01_jprb &
11698  &, 0.636847e-01_jprb, 0.584779e-01_jprb, 0.536158e-01_jprb &
11699  &, 0.490603e-01_jprb, 0.448243e-01_jprb, 0.408629e-01_jprb, 0.372033e-01_jprb &
11700  &, 0.338142e-01_jprb, 0.306805e-01_jprb, 0.277843e-01_jprb &
11701  &, 0.251049e-01_jprb, 0.226618e-01_jprb, 0.204095e-01_jprb, 0.183420e-01_jprb &
11702  &, 0.164752e-01_jprb, 0.147552e-01_jprb, 0.131945e-01_jprb &
11703  &, 0.117817e-01_jprb, 0.104787e-01_jprb, 0.932010e-02_jprb, 0.829080e-02_jprb &
11704  &, 0.734785e-02_jprb, 0.649806e-02_jprb, 0.572108e-02_jprb &
11705  &, 0.505036e-02_jprb, 0.443647e-02_jprb, 0.391261e-02_jprb, 0.342593e-02_jprb &
11706  &, 0.297931e-02_jprb, 0.260627e-02_jprb, 0.228042e-02_jprb &
11707  &, 0.197323e-02_jprb, 0.171841e-02_jprb, 0.148642e-02_jprb, 0.127884e-02_jprb &
11708  &, 0.109728e-02_jprb, 0.943409e-03_jprb, 0.818903e-03_jprb &
11709  &, 0.689719e-03_jprb, 0.592170e-03_jprb, 0.491033e-03_jprb, 0.423880e-03_jprb &
11710  &, 0.354288e-03_jprb, 0.321112e-03_jprb, 0.247179e-03_jprb &
11711  &, 0.210882e-03_jprb, 0.173317e-03_jprb, 0.134463e-03_jprb, 0.136457e-03_jprb &
11712  &, 0.956459e-04_jprb, 0.969989e-04_jprb, 0.541819e-04_jprb &
11713  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11714  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11715  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11716  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11717  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11718  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11719  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11720  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11721 xcw( 266, :) = (/ &
11722  & 0.935377e+00_jprb, 0.918671e+00_jprb, 0.901767e+00_jprb, 0.884681e+00_jprb &
11723  &, 0.867421e+00_jprb, 0.849999e+00_jprb, 0.832429e+00_jprb &
11724  &, 0.814723e+00_jprb, 0.796894e+00_jprb, 0.778954e+00_jprb, 0.760919e+00_jprb &
11725  &, 0.742798e+00_jprb, 0.724611e+00_jprb, 0.706368e+00_jprb &
11726  &, 0.688083e+00_jprb, 0.669774e+00_jprb, 0.651455e+00_jprb, 0.633139e+00_jprb &
11727  &, 0.614846e+00_jprb, 0.596587e+00_jprb, 0.578382e+00_jprb &
11728  &, 0.560247e+00_jprb, 0.542199e+00_jprb, 0.524257e+00_jprb, 0.506434e+00_jprb &
11729  &, 0.488749e+00_jprb, 0.471218e+00_jprb, 0.453861e+00_jprb &
11730  &, 0.436693e+00_jprb, 0.419735e+00_jprb, 0.403002e+00_jprb, 0.386508e+00_jprb &
11731  &, 0.370273e+00_jprb, 0.354318e+00_jprb, 0.338647e+00_jprb &
11732  &, 0.323286e+00_jprb, 0.308237e+00_jprb, 0.293530e+00_jprb, 0.279170e+00_jprb &
11733  &, 0.265173e+00_jprb, 0.251544e+00_jprb, 0.238299e+00_jprb &
11734  &, 0.225432e+00_jprb, 0.212979e+00_jprb, 0.200932e+00_jprb, 0.189290e+00_jprb &
11735  &, 0.178064e+00_jprb, 0.167251e+00_jprb, 0.156870e+00_jprb &
11736  &, 0.146913e+00_jprb, 0.137383e+00_jprb, 0.128266e+00_jprb, 0.119559e+00_jprb &
11737  &, 0.111284e+00_jprb, 0.103404e+00_jprb, 0.959229e-01_jprb &
11738  &, 0.888554e-01_jprb, 0.821534e-01_jprb, 0.758427e-01_jprb, 0.698996e-01_jprb &
11739  &, 0.643128e-01_jprb, 0.590855e-01_jprb, 0.541660e-01_jprb &
11740  &, 0.495866e-01_jprb, 0.453066e-01_jprb, 0.413368e-01_jprb, 0.376488e-01_jprb &
11741  &, 0.342101e-01_jprb, 0.310445e-01_jprb, 0.281353e-01_jprb &
11742  &, 0.254423e-01_jprb, 0.229633e-01_jprb, 0.206952e-01_jprb, 0.186112e-01_jprb &
11743  &, 0.167042e-01_jprb, 0.149655e-01_jprb, 0.133853e-01_jprb &
11744  &, 0.119519e-01_jprb, 0.106524e-01_jprb, 0.947189e-02_jprb, 0.841978e-02_jprb &
11745  &, 0.745305e-02_jprb, 0.660530e-02_jprb, 0.583038e-02_jprb &
11746  &, 0.513390e-02_jprb, 0.452159e-02_jprb, 0.397043e-02_jprb, 0.348482e-02_jprb &
11747  &, 0.303930e-02_jprb, 0.266736e-02_jprb, 0.231153e-02_jprb &
11748  &, 0.200489e-02_jprb, 0.175065e-02_jprb, 0.151923e-02_jprb, 0.131223e-02_jprb &
11749  &, 0.113126e-02_jprb, 0.977979e-03_jprb, 0.854073e-03_jprb &
11750  &, 0.725494e-03_jprb, 0.628556e-03_jprb, 0.528036e-03_jprb, 0.461505e-03_jprb &
11751  &, 0.392543e-03_jprb, 0.321112e-03_jprb, 0.247179e-03_jprb &
11752  &, 0.210882e-03_jprb, 0.173317e-03_jprb, 0.134463e-03_jprb, 0.136457e-03_jprb &
11753  &, 0.956459e-04_jprb, 0.969989e-04_jprb, 0.541819e-04_jprb &
11754  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11755  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11756  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11757  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11758  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11759  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11760  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11761  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11762 
11763 IF (lhook) CALL dr_hook('SU_MCICA:PART38',1,zhook_handle)
11764 END SUBROUTINE part38
11765 
11766 #ifdef VPP5000
11767 !OCL SCALAR
11768 #endif
11769 !option! -Nv -NO
11770 #ifdef RS6K
11771 @process nooptimize
11772 #endif
11773 !pgi$r opt=0
11774 SUBROUTINE part39
11775 
11776 REAL(KIND=JPRB) :: ZHOOK_HANDLE
11777 IF (lhook) CALL dr_hook('SU_MCICA:PART39',0,zhook_handle)
11778 
11779 xcw( 267, :) = (/ &
11780  & 0.935668e+00_jprb, 0.919031e+00_jprb, 0.902194e+00_jprb, 0.885173e+00_jprb &
11781  &, 0.867976e+00_jprb, 0.850616e+00_jprb, 0.833105e+00_jprb &
11782  &, 0.815456e+00_jprb, 0.797682e+00_jprb, 0.779795e+00_jprb, 0.761810e+00_jprb &
11783  &, 0.743739e+00_jprb, 0.725598e+00_jprb, 0.707398e+00_jprb &
11784  &, 0.689156e+00_jprb, 0.670886e+00_jprb, 0.652604e+00_jprb, 0.634323e+00_jprb &
11785  &, 0.616059e+00_jprb, 0.597833e+00_jprb, 0.579657e+00_jprb &
11786  &, 0.561547e+00_jprb, 0.543522e+00_jprb, 0.525596e+00_jprb, 0.507788e+00_jprb &
11787  &, 0.490116e+00_jprb, 0.472600e+00_jprb, 0.455250e+00_jprb &
11788  &, 0.438093e+00_jprb, 0.421137e+00_jprb, 0.404406e+00_jprb, 0.387914e+00_jprb &
11789  &, 0.371676e+00_jprb, 0.355712e+00_jprb, 0.340035e+00_jprb &
11790  &, 0.324662e+00_jprb, 0.309601e+00_jprb, 0.294879e+00_jprb, 0.280503e+00_jprb &
11791  &, 0.266488e+00_jprb, 0.252829e+00_jprb, 0.239563e+00_jprb &
11792  &, 0.226684e+00_jprb, 0.214194e+00_jprb, 0.202118e+00_jprb, 0.190447e+00_jprb &
11793  &, 0.179189e+00_jprb, 0.168353e+00_jprb, 0.157935e+00_jprb &
11794  &, 0.147938e+00_jprb, 0.138366e+00_jprb, 0.129217e+00_jprb, 0.120490e+00_jprb &
11795  &, 0.112165e+00_jprb, 0.104248e+00_jprb, 0.967406e-01_jprb &
11796  &, 0.896303e-01_jprb, 0.828988e-01_jprb, 0.765566e-01_jprb, 0.705800e-01_jprb &
11797  &, 0.649579e-01_jprb, 0.596758e-01_jprb, 0.547340e-01_jprb &
11798  &, 0.501128e-01_jprb, 0.458074e-01_jprb, 0.418107e-01_jprb, 0.380750e-01_jprb &
11799  &, 0.346257e-01_jprb, 0.314286e-01_jprb, 0.284864e-01_jprb &
11800  &, 0.257586e-01_jprb, 0.232647e-01_jprb, 0.209810e-01_jprb, 0.188581e-01_jprb &
11801  &, 0.169561e-01_jprb, 0.151992e-01_jprb, 0.135999e-01_jprb &
11802  &, 0.121465e-01_jprb, 0.108260e-01_jprb, 0.964899e-02_jprb, 0.857456e-02_jprb &
11803  &, 0.758456e-02_jprb, 0.671254e-02_jprb, 0.593969e-02_jprb &
11804  &, 0.524529e-02_jprb, 0.460671e-02_jprb, 0.405715e-02_jprb, 0.354372e-02_jprb &
11805  &, 0.309928e-02_jprb, 0.272845e-02_jprb, 0.237373e-02_jprb &
11806  &, 0.206822e-02_jprb, 0.178288e-02_jprb, 0.155204e-02_jprb, 0.134562e-02_jprb &
11807  &, 0.116524e-02_jprb, 0.101255e-02_jprb, 0.854073e-03_jprb &
11808  &, 0.725494e-03_jprb, 0.628556e-03_jprb, 0.528036e-03_jprb, 0.461505e-03_jprb &
11809  &, 0.392543e-03_jprb, 0.321112e-03_jprb, 0.286708e-03_jprb &
11810  &, 0.210882e-03_jprb, 0.173317e-03_jprb, 0.175951e-03_jprb, 0.136457e-03_jprb &
11811  &, 0.956459e-04_jprb, 0.969989e-04_jprb, 0.541819e-04_jprb &
11812  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11813  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11814  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11815  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11816  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11817  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11818  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11819  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11820 xcw( 268, :) = (/ &
11821  & 0.935958e+00_jprb, 0.919391e+00_jprb, 0.902622e+00_jprb, 0.885665e+00_jprb &
11822  &, 0.868530e+00_jprb, 0.851232e+00_jprb, 0.833780e+00_jprb &
11823  &, 0.816188e+00_jprb, 0.798469e+00_jprb, 0.780635e+00_jprb, 0.762701e+00_jprb &
11824  &, 0.744679e+00_jprb, 0.726582e+00_jprb, 0.708428e+00_jprb &
11825  &, 0.690228e+00_jprb, 0.671997e+00_jprb, 0.653751e+00_jprb, 0.635505e+00_jprb &
11826  &, 0.617276e+00_jprb, 0.599077e+00_jprb, 0.580928e+00_jprb &
11827  &, 0.562843e+00_jprb, 0.544837e+00_jprb, 0.526932e+00_jprb, 0.509145e+00_jprb &
11828  &, 0.491488e+00_jprb, 0.473982e+00_jprb, 0.456643e+00_jprb &
11829  &, 0.439493e+00_jprb, 0.422539e+00_jprb, 0.405811e+00_jprb, 0.389316e+00_jprb &
11830  &, 0.373078e+00_jprb, 0.357105e+00_jprb, 0.341423e+00_jprb &
11831  &, 0.326039e+00_jprb, 0.310965e+00_jprb, 0.296229e+00_jprb, 0.281837e+00_jprb &
11832  &, 0.267794e+00_jprb, 0.254126e+00_jprb, 0.240827e+00_jprb &
11833  &, 0.227924e+00_jprb, 0.215408e+00_jprb, 0.203305e+00_jprb, 0.191603e+00_jprb &
11834  &, 0.180325e+00_jprb, 0.169455e+00_jprb, 0.159000e+00_jprb &
11835  &, 0.148976e+00_jprb, 0.139375e+00_jprb, 0.130182e+00_jprb, 0.121408e+00_jprb &
11836  &, 0.113061e+00_jprb, 0.105106e+00_jprb, 0.975583e-01_jprb &
11837  &, 0.904052e-01_jprb, 0.836441e-01_jprb, 0.772705e-01_jprb, 0.712439e-01_jprb &
11838  &, 0.655859e-01_jprb, 0.602834e-01_jprb, 0.553020e-01_jprb &
11839  &, 0.506572e-01_jprb, 0.463267e-01_jprb, 0.422847e-01_jprb, 0.385205e-01_jprb &
11840  &, 0.350413e-01_jprb, 0.318330e-01_jprb, 0.288374e-01_jprb &
11841  &, 0.260960e-01_jprb, 0.235877e-01_jprb, 0.212668e-01_jprb, 0.191273e-01_jprb &
11842  &, 0.171851e-01_jprb, 0.154095e-01_jprb, 0.137906e-01_jprb &
11843  &, 0.123411e-01_jprb, 0.109997e-01_jprb, 0.980078e-02_jprb, 0.870355e-02_jprb &
11844  &, 0.771606e-02_jprb, 0.684659e-02_jprb, 0.604899e-02_jprb &
11845  &, 0.532883e-02_jprb, 0.469184e-02_jprb, 0.414388e-02_jprb, 0.363206e-02_jprb &
11846  &, 0.315927e-02_jprb, 0.275900e-02_jprb, 0.240483e-02_jprb &
11847  &, 0.209989e-02_jprb, 0.181511e-02_jprb, 0.158485e-02_jprb, 0.137901e-02_jprb &
11848  &, 0.119922e-02_jprb, 0.101255e-02_jprb, 0.889243e-03_jprb &
11849  &, 0.761269e-03_jprb, 0.628556e-03_jprb, 0.565038e-03_jprb, 0.461505e-03_jprb &
11850  &, 0.392543e-03_jprb, 0.321112e-03_jprb, 0.286708e-03_jprb &
11851  &, 0.251059e-03_jprb, 0.214146e-03_jprb, 0.175951e-03_jprb, 0.136457e-03_jprb &
11852  &, 0.956459e-04_jprb, 0.969989e-04_jprb, 0.541819e-04_jprb &
11853  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11854  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11855  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11856  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11857  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11858  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11859  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11860  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11861 xcw( 269, :) = (/ &
11862  & 0.936250e+00_jprb, 0.919751e+00_jprb, 0.903048e+00_jprb, 0.886156e+00_jprb &
11863  &, 0.869084e+00_jprb, 0.851847e+00_jprb, 0.834444e+00_jprb &
11864  &, 0.816919e+00_jprb, 0.799255e+00_jprb, 0.781474e+00_jprb, 0.763591e+00_jprb &
11865  &, 0.745617e+00_jprb, 0.727567e+00_jprb, 0.709457e+00_jprb &
11866  &, 0.691299e+00_jprb, 0.673107e+00_jprb, 0.654899e+00_jprb, 0.636688e+00_jprb &
11867  &, 0.618490e+00_jprb, 0.600321e+00_jprb, 0.582199e+00_jprb &
11868  &, 0.564140e+00_jprb, 0.546157e+00_jprb, 0.528272e+00_jprb, 0.510502e+00_jprb &
11869  &, 0.492859e+00_jprb, 0.475364e+00_jprb, 0.458036e+00_jprb &
11870  &, 0.440893e+00_jprb, 0.423946e+00_jprb, 0.407215e+00_jprb, 0.390721e+00_jprb &
11871  &, 0.374481e+00_jprb, 0.358503e+00_jprb, 0.342811e+00_jprb &
11872  &, 0.327416e+00_jprb, 0.312338e+00_jprb, 0.297588e+00_jprb, 0.283170e+00_jprb &
11873  &, 0.269120e+00_jprb, 0.255422e+00_jprb, 0.242102e+00_jprb &
11874  &, 0.229175e+00_jprb, 0.216634e+00_jprb, 0.204504e+00_jprb, 0.192772e+00_jprb &
11875  &, 0.181449e+00_jprb, 0.170557e+00_jprb, 0.160077e+00_jprb &
11876  &, 0.150014e+00_jprb, 0.140371e+00_jprb, 0.131147e+00_jprb, 0.122339e+00_jprb &
11877  &, 0.113943e+00_jprb, 0.105964e+00_jprb, 0.983760e-01_jprb &
11878  &, 0.911955e-01_jprb, 0.843894e-01_jprb, 0.779681e-01_jprb, 0.719244e-01_jprb &
11879  &, 0.662310e-01_jprb, 0.608910e-01_jprb, 0.558878e-01_jprb &
11880  &, 0.512016e-01_jprb, 0.468276e-01_jprb, 0.427586e-01_jprb, 0.389855e-01_jprb &
11881  &, 0.354570e-01_jprb, 0.322171e-01_jprb, 0.292091e-01_jprb &
11882  &, 0.264334e-01_jprb, 0.238892e-01_jprb, 0.215525e-01_jprb, 0.193966e-01_jprb &
11883  &, 0.174370e-01_jprb, 0.156432e-01_jprb, 0.140052e-01_jprb &
11884  &, 0.125357e-01_jprb, 0.111733e-01_jprb, 0.995258e-02_jprb, 0.885833e-02_jprb &
11885  &, 0.784756e-02_jprb, 0.695383e-02_jprb, 0.615829e-02_jprb &
11886  &, 0.544022e-02_jprb, 0.477696e-02_jprb, 0.420170e-02_jprb, 0.369096e-02_jprb &
11887  &, 0.324925e-02_jprb, 0.282008e-02_jprb, 0.246703e-02_jprb &
11888  &, 0.216322e-02_jprb, 0.187958e-02_jprb, 0.161766e-02_jprb, 0.141240e-02_jprb &
11889  &, 0.119922e-02_jprb, 0.104712e-02_jprb, 0.889243e-03_jprb &
11890  &, 0.761269e-03_jprb, 0.664942e-03_jprb, 0.565038e-03_jprb, 0.499131e-03_jprb &
11891  &, 0.392543e-03_jprb, 0.360001e-03_jprb, 0.286708e-03_jprb &
11892  &, 0.251059e-03_jprb, 0.214146e-03_jprb, 0.175951e-03_jprb, 0.136457e-03_jprb &
11893  &, 0.956459e-04_jprb, 0.969989e-04_jprb, 0.541819e-04_jprb &
11894  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.100000e-04_jprb &
11895  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11896  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11897  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11898  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11899  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11900  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11901  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11902 xcw( 270, :) = (/ &
11903  & 0.936540e+00_jprb, 0.920109e+00_jprb, 0.903473e+00_jprb, 0.886646e+00_jprb &
11904  &, 0.869638e+00_jprb, 0.852461e+00_jprb, 0.835127e+00_jprb &
11905  &, 0.817649e+00_jprb, 0.800040e+00_jprb, 0.782312e+00_jprb, 0.764480e+00_jprb &
11906  &, 0.746554e+00_jprb, 0.728552e+00_jprb, 0.710484e+00_jprb &
11907  &, 0.692368e+00_jprb, 0.674216e+00_jprb, 0.656045e+00_jprb, 0.637868e+00_jprb &
11908  &, 0.619704e+00_jprb, 0.601564e+00_jprb, 0.583470e+00_jprb &
11909  &, 0.565436e+00_jprb, 0.547476e+00_jprb, 0.529612e+00_jprb, 0.511859e+00_jprb &
11910  &, 0.494230e+00_jprb, 0.476750e+00_jprb, 0.459429e+00_jprb &
11911  &, 0.442293e+00_jprb, 0.425352e+00_jprb, 0.408624e+00_jprb, 0.392132e+00_jprb &
11912  &, 0.375883e+00_jprb, 0.359901e+00_jprb, 0.344204e+00_jprb &
11913  &, 0.328802e+00_jprb, 0.313702e+00_jprb, 0.298937e+00_jprb, 0.284513e+00_jprb &
11914  &, 0.270435e+00_jprb, 0.256718e+00_jprb, 0.243377e+00_jprb &
11915  &, 0.230427e+00_jprb, 0.217860e+00_jprb, 0.205702e+00_jprb, 0.193940e+00_jprb &
11916  &, 0.182598e+00_jprb, 0.171658e+00_jprb, 0.161142e+00_jprb &
11917  &, 0.151052e+00_jprb, 0.141380e+00_jprb, 0.132125e+00_jprb, 0.123271e+00_jprb &
11918  &, 0.114853e+00_jprb, 0.106822e+00_jprb, 0.992088e-01_jprb &
11919  &, 0.919859e-01_jprb, 0.851506e-01_jprb, 0.786982e-01_jprb, 0.726049e-01_jprb &
11920  &, 0.668761e-01_jprb, 0.614986e-01_jprb, 0.564558e-01_jprb &
11921  &, 0.517460e-01_jprb, 0.473469e-01_jprb, 0.432515e-01_jprb, 0.394310e-01_jprb &
11922  &, 0.358924e-01_jprb, 0.326012e-01_jprb, 0.295808e-01_jprb &
11923  &, 0.267919e-01_jprb, 0.242122e-01_jprb, 0.218383e-01_jprb, 0.196658e-01_jprb &
11924  &, 0.176889e-01_jprb, 0.158769e-01_jprb, 0.142197e-01_jprb &
11925  &, 0.127302e-01_jprb, 0.113470e-01_jprb, 0.101297e-01_jprb, 0.898731e-02_jprb &
11926  &, 0.797906e-02_jprb, 0.708788e-02_jprb, 0.626759e-02_jprb &
11927  &, 0.552376e-02_jprb, 0.486209e-02_jprb, 0.428842e-02_jprb, 0.377930e-02_jprb &
11928  &, 0.330924e-02_jprb, 0.288117e-02_jprb, 0.252924e-02_jprb &
11929  &, 0.219488e-02_jprb, 0.191182e-02_jprb, 0.165047e-02_jprb, 0.144579e-02_jprb &
11930  &, 0.123319e-02_jprb, 0.108169e-02_jprb, 0.924413e-03_jprb &
11931  &, 0.797043e-03_jprb, 0.664942e-03_jprb, 0.565038e-03_jprb, 0.499131e-03_jprb &
11932  &, 0.430797e-03_jprb, 0.360001e-03_jprb, 0.286708e-03_jprb &
11933  &, 0.251059e-03_jprb, 0.214146e-03_jprb, 0.175951e-03_jprb, 0.136457e-03_jprb &
11934  &, 0.138469e-03_jprb, 0.969989e-04_jprb, 0.983639e-04_jprb &
11935  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.100000e-04_jprb &
11936  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11937  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11938  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11939  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11940  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11941  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11942  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11943 xcw( 271, :) = (/ &
11944  & 0.936830e+00_jprb, 0.920468e+00_jprb, 0.903898e+00_jprb, 0.887136e+00_jprb &
11945  &, 0.870190e+00_jprb, 0.853074e+00_jprb, 0.835799e+00_jprb &
11946  &, 0.818378e+00_jprb, 0.800824e+00_jprb, 0.783149e+00_jprb, 0.765367e+00_jprb &
11947  &, 0.747491e+00_jprb, 0.729533e+00_jprb, 0.711512e+00_jprb &
11948  &, 0.693436e+00_jprb, 0.675325e+00_jprb, 0.657190e+00_jprb, 0.639050e+00_jprb &
11949  &, 0.620917e+00_jprb, 0.602808e+00_jprb, 0.584741e+00_jprb &
11950  &, 0.566732e+00_jprb, 0.548795e+00_jprb, 0.530951e+00_jprb, 0.513212e+00_jprb &
11951  &, 0.495601e+00_jprb, 0.478132e+00_jprb, 0.460822e+00_jprb &
11952  &, 0.443692e+00_jprb, 0.426755e+00_jprb, 0.410032e+00_jprb, 0.393538e+00_jprb &
11953  &, 0.377290e+00_jprb, 0.361304e+00_jprb, 0.345596e+00_jprb &
11954  &, 0.330178e+00_jprb, 0.315075e+00_jprb, 0.300296e+00_jprb, 0.285847e+00_jprb &
11955  &, 0.271751e+00_jprb, 0.258025e+00_jprb, 0.244662e+00_jprb &
11956  &, 0.231678e+00_jprb, 0.219086e+00_jprb, 0.206900e+00_jprb, 0.195109e+00_jprb &
11957  &, 0.183734e+00_jprb, 0.172773e+00_jprb, 0.162219e+00_jprb &
11958  &, 0.152090e+00_jprb, 0.142390e+00_jprb, 0.133090e+00_jprb, 0.124216e+00_jprb &
11959  &, 0.115749e+00_jprb, 0.107695e+00_jprb, 0.100042e+00_jprb &
11960  &, 0.927762e-01_jprb, 0.859117e-01_jprb, 0.794121e-01_jprb, 0.732853e-01_jprb &
11961  &, 0.675381e-01_jprb, 0.621235e-01_jprb, 0.570416e-01_jprb &
11962  &, 0.522904e-01_jprb, 0.478663e-01_jprb, 0.437254e-01_jprb, 0.398765e-01_jprb &
11963  &, 0.363080e-01_jprb, 0.330056e-01_jprb, 0.299525e-01_jprb &
11964  &, 0.271293e-01_jprb, 0.245351e-01_jprb, 0.221461e-01_jprb, 0.199575e-01_jprb &
11965  &, 0.179408e-01_jprb, 0.161105e-01_jprb, 0.144343e-01_jprb &
11966  &, 0.129248e-01_jprb, 0.115207e-01_jprb, 0.102815e-01_jprb, 0.914210e-02_jprb &
11967  &, 0.813687e-02_jprb, 0.719512e-02_jprb, 0.637690e-02_jprb &
11968  &, 0.563515e-02_jprb, 0.497559e-02_jprb, 0.437514e-02_jprb, 0.383820e-02_jprb &
11969  &, 0.336922e-02_jprb, 0.294226e-02_jprb, 0.256034e-02_jprb &
11970  &, 0.225821e-02_jprb, 0.194405e-02_jprb, 0.168328e-02_jprb, 0.147918e-02_jprb &
11971  &, 0.126717e-02_jprb, 0.108169e-02_jprb, 0.959582e-03_jprb &
11972  &, 0.797043e-03_jprb, 0.701327e-03_jprb, 0.602041e-03_jprb, 0.499131e-03_jprb &
11973  &, 0.430797e-03_jprb, 0.360001e-03_jprb, 0.326238e-03_jprb &
11974  &, 0.251059e-03_jprb, 0.214146e-03_jprb, 0.175951e-03_jprb, 0.136457e-03_jprb &
11975  &, 0.138469e-03_jprb, 0.969989e-04_jprb, 0.983639e-04_jprb &
11976  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.100000e-04_jprb &
11977  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11978  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11979  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11980  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11981  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11982  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
11983  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
11984 xcw( 272, :) = (/ &
11985  & 0.937120e+00_jprb, 0.920826e+00_jprb, 0.904322e+00_jprb, 0.887624e+00_jprb &
11986  &, 0.870741e+00_jprb, 0.853686e+00_jprb, 0.836471e+00_jprb &
11987  &, 0.819107e+00_jprb, 0.801607e+00_jprb, 0.783985e+00_jprb, 0.766254e+00_jprb &
11988  &, 0.748426e+00_jprb, 0.730515e+00_jprb, 0.712538e+00_jprb &
11989  &, 0.694504e+00_jprb, 0.676432e+00_jprb, 0.658335e+00_jprb, 0.640230e+00_jprb &
11990  &, 0.622130e+00_jprb, 0.604051e+00_jprb, 0.586012e+00_jprb &
11991  &, 0.568025e+00_jprb, 0.550115e+00_jprb, 0.532287e+00_jprb, 0.514569e+00_jprb &
11992  &, 0.496973e+00_jprb, 0.479518e+00_jprb, 0.462218e+00_jprb &
11993  &, 0.445092e+00_jprb, 0.428161e+00_jprb, 0.411441e+00_jprb, 0.394948e+00_jprb &
11994  &, 0.378697e+00_jprb, 0.362706e+00_jprb, 0.346989e+00_jprb &
11995  &, 0.331564e+00_jprb, 0.316448e+00_jprb, 0.301656e+00_jprb, 0.287190e+00_jprb &
11996  &, 0.273077e+00_jprb, 0.259321e+00_jprb, 0.245937e+00_jprb &
11997  &, 0.232941e+00_jprb, 0.220324e+00_jprb, 0.208099e+00_jprb, 0.196289e+00_jprb &
11998  &, 0.184883e+00_jprb, 0.173887e+00_jprb, 0.163309e+00_jprb &
11999  &, 0.153142e+00_jprb, 0.143399e+00_jprb, 0.134069e+00_jprb, 0.125162e+00_jprb &
12000  &, 0.116660e+00_jprb, 0.108567e+00_jprb, 0.100875e+00_jprb &
12001  &, 0.935821e-01_jprb, 0.866729e-01_jprb, 0.801422e-01_jprb, 0.739824e-01_jprb &
12002  &, 0.681832e-01_jprb, 0.627311e-01_jprb, 0.576273e-01_jprb &
12003  &, 0.528530e-01_jprb, 0.483857e-01_jprb, 0.442183e-01_jprb, 0.403415e-01_jprb &
12004  &, 0.367434e-01_jprb, 0.334100e-01_jprb, 0.303242e-01_jprb &
12005  &, 0.274667e-01_jprb, 0.248581e-01_jprb, 0.224318e-01_jprb, 0.202268e-01_jprb &
12006  &, 0.181927e-01_jprb, 0.163442e-01_jprb, 0.146489e-01_jprb &
12007  &, 0.131194e-01_jprb, 0.117191e-01_jprb, 0.104586e-01_jprb, 0.929688e-02_jprb &
12008  &, 0.826837e-02_jprb, 0.732917e-02_jprb, 0.648620e-02_jprb &
12009  &, 0.574654e-02_jprb, 0.506071e-02_jprb, 0.446187e-02_jprb, 0.392654e-02_jprb &
12010  &, 0.342921e-02_jprb, 0.300335e-02_jprb, 0.262254e-02_jprb &
12011  &, 0.228988e-02_jprb, 0.200852e-02_jprb, 0.174890e-02_jprb, 0.151257e-02_jprb &
12012  &, 0.130115e-02_jprb, 0.111626e-02_jprb, 0.959582e-03_jprb &
12013  &, 0.832818e-03_jprb, 0.701327e-03_jprb, 0.602041e-03_jprb, 0.536756e-03_jprb &
12014  &, 0.430797e-03_jprb, 0.360001e-03_jprb, 0.326238e-03_jprb &
12015  &, 0.251059e-03_jprb, 0.214146e-03_jprb, 0.175951e-03_jprb, 0.136457e-03_jprb &
12016  &, 0.138469e-03_jprb, 0.969989e-04_jprb, 0.983639e-04_jprb &
12017  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.100000e-04_jprb &
12018  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12019  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12020  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12021  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12022  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12023  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12024  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12025 xcw( 273, :) = (/ &
12026  & 0.937410e+00_jprb, 0.921182e+00_jprb, 0.904746e+00_jprb, 0.888113e+00_jprb &
12027  &, 0.871292e+00_jprb, 0.854298e+00_jprb, 0.837141e+00_jprb &
12028  &, 0.819834e+00_jprb, 0.802389e+00_jprb, 0.784820e+00_jprb, 0.767140e+00_jprb &
12029  &, 0.749361e+00_jprb, 0.731497e+00_jprb, 0.713562e+00_jprb &
12030  &, 0.695572e+00_jprb, 0.677540e+00_jprb, 0.659479e+00_jprb, 0.641408e+00_jprb &
12031  &, 0.623341e+00_jprb, 0.605292e+00_jprb, 0.587280e+00_jprb &
12032  &, 0.569322e+00_jprb, 0.551431e+00_jprb, 0.533627e+00_jprb, 0.515926e+00_jprb &
12033  &, 0.498344e+00_jprb, 0.480900e+00_jprb, 0.463611e+00_jprb &
12034  &, 0.446496e+00_jprb, 0.429572e+00_jprb, 0.412850e+00_jprb, 0.396358e+00_jprb &
12035  &, 0.380104e+00_jprb, 0.364109e+00_jprb, 0.348386e+00_jprb &
12036  &, 0.332950e+00_jprb, 0.317822e+00_jprb, 0.303015e+00_jprb, 0.288534e+00_jprb &
12037  &, 0.274403e+00_jprb, 0.260628e+00_jprb, 0.247223e+00_jprb &
12038  &, 0.234192e+00_jprb, 0.221550e+00_jprb, 0.209309e+00_jprb, 0.197470e+00_jprb &
12039  &, 0.186031e+00_jprb, 0.175001e+00_jprb, 0.164387e+00_jprb &
12040  &, 0.154193e+00_jprb, 0.144409e+00_jprb, 0.135048e+00_jprb, 0.126108e+00_jprb &
12041  &, 0.117570e+00_jprb, 0.109440e+00_jprb, 0.101707e+00_jprb &
12042  &, 0.943724e-01_jprb, 0.874341e-01_jprb, 0.808723e-01_jprb, 0.746795e-01_jprb &
12043  &, 0.688452e-01_jprb, 0.633561e-01_jprb, 0.582131e-01_jprb &
12044  &, 0.533974e-01_jprb, 0.489050e-01_jprb, 0.447112e-01_jprb, 0.408064e-01_jprb &
12045  &, 0.371788e-01_jprb, 0.338143e-01_jprb, 0.306959e-01_jprb &
12046  &, 0.278252e-01_jprb, 0.251811e-01_jprb, 0.227396e-01_jprb, 0.204960e-01_jprb &
12047  &, 0.184446e-01_jprb, 0.165779e-01_jprb, 0.148635e-01_jprb &
12048  &, 0.133140e-01_jprb, 0.118928e-01_jprb, 0.106104e-01_jprb, 0.945166e-02_jprb &
12049  &, 0.839987e-02_jprb, 0.746322e-02_jprb, 0.659550e-02_jprb &
12050  &, 0.583008e-02_jprb, 0.514584e-02_jprb, 0.454859e-02_jprb, 0.398543e-02_jprb &
12051  &, 0.348919e-02_jprb, 0.306444e-02_jprb, 0.268475e-02_jprb &
12052  &, 0.235321e-02_jprb, 0.204075e-02_jprb, 0.178171e-02_jprb, 0.154596e-02_jprb &
12053  &, 0.133513e-02_jprb, 0.115083e-02_jprb, 0.994752e-03_jprb &
12054  &, 0.868593e-03_jprb, 0.737713e-03_jprb, 0.639043e-03_jprb, 0.536756e-03_jprb &
12055  &, 0.469051e-03_jprb, 0.398890e-03_jprb, 0.326238e-03_jprb &
12056  &, 0.291235e-03_jprb, 0.214146e-03_jprb, 0.175951e-03_jprb, 0.178610e-03_jprb &
12057  &, 0.138469e-03_jprb, 0.969989e-04_jprb, 0.983639e-04_jprb &
12058  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.100000e-04_jprb &
12059  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12060  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12061  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12062  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12063  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12064  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12065  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12066 
12067 IF (lhook) CALL dr_hook('SU_MCICA:PART39',1,zhook_handle)
12068 END SUBROUTINE part39
12069 
12070 #ifdef VPP5000
12071 !OCL SCALAR
12072 #endif
12073 !option! -Nv -NO
12074 #ifdef RS6K
12075 @process nooptimize
12076 #endif
12077 !pgi$r opt=0
12078 SUBROUTINE part40
12079 
12080 REAL(KIND=JPRB) :: ZHOOK_HANDLE
12081 IF (lhook) CALL dr_hook('SU_MCICA:PART40',0,zhook_handle)
12082 
12083 xcw( 274, :) = (/ &
12084  & 0.937697e+00_jprb, 0.921540e+00_jprb, 0.905169e+00_jprb, 0.888600e+00_jprb &
12085  &, 0.871842e+00_jprb, 0.854908e+00_jprb, 0.837811e+00_jprb &
12086  &, 0.820561e+00_jprb, 0.803171e+00_jprb, 0.785655e+00_jprb, 0.768024e+00_jprb &
12087  &, 0.750295e+00_jprb, 0.732476e+00_jprb, 0.714587e+00_jprb &
12088  &, 0.696639e+00_jprb, 0.678646e+00_jprb, 0.660624e+00_jprb, 0.642587e+00_jprb &
12089  &, 0.624552e+00_jprb, 0.606535e+00_jprb, 0.588551e+00_jprb &
12090  &, 0.570618e+00_jprb, 0.552750e+00_jprb, 0.534967e+00_jprb, 0.517283e+00_jprb &
12091  &, 0.499715e+00_jprb, 0.482285e+00_jprb, 0.465008e+00_jprb &
12092  &, 0.447900e+00_jprb, 0.430978e+00_jprb, 0.414262e+00_jprb, 0.397768e+00_jprb &
12093  &, 0.381510e+00_jprb, 0.365511e+00_jprb, 0.349783e+00_jprb &
12094  &, 0.334336e+00_jprb, 0.319205e+00_jprb, 0.304374e+00_jprb, 0.289887e+00_jprb &
12095  &, 0.275739e+00_jprb, 0.261934e+00_jprb, 0.248508e+00_jprb &
12096  &, 0.235455e+00_jprb, 0.222787e+00_jprb, 0.210519e+00_jprb, 0.198650e+00_jprb &
12097  &, 0.187180e+00_jprb, 0.176116e+00_jprb, 0.165477e+00_jprb &
12098  &, 0.155244e+00_jprb, 0.145431e+00_jprb, 0.136040e+00_jprb, 0.127053e+00_jprb &
12099  &, 0.118480e+00_jprb, 0.110313e+00_jprb, 0.102555e+00_jprb &
12100  &, 0.951783e-01_jprb, 0.882111e-01_jprb, 0.816024e-01_jprb, 0.753765e-01_jprb &
12101  &, 0.695073e-01_jprb, 0.639984e-01_jprb, 0.588166e-01_jprb &
12102  &, 0.539599e-01_jprb, 0.494430e-01_jprb, 0.452041e-01_jprb, 0.412713e-01_jprb &
12103  &, 0.376143e-01_jprb, 0.342187e-01_jprb, 0.310883e-01_jprb &
12104  &, 0.281837e-01_jprb, 0.255041e-01_jprb, 0.230473e-01_jprb, 0.207877e-01_jprb &
12105  &, 0.187194e-01_jprb, 0.168116e-01_jprb, 0.151019e-01_jprb &
12106  &, 0.135085e-01_jprb, 0.120912e-01_jprb, 0.107875e-01_jprb, 0.960644e-02_jprb &
12107  &, 0.853137e-02_jprb, 0.757047e-02_jprb, 0.673213e-02_jprb &
12108  &, 0.594147e-02_jprb, 0.525934e-02_jprb, 0.463532e-02_jprb, 0.407378e-02_jprb &
12109  &, 0.357917e-02_jprb, 0.312553e-02_jprb, 0.274695e-02_jprb &
12110  &, 0.238487e-02_jprb, 0.207299e-02_jprb, 0.181452e-02_jprb, 0.157935e-02_jprb &
12111  &, 0.136910e-02_jprb, 0.118540e-02_jprb, 0.102992e-02_jprb &
12112  &, 0.868593e-03_jprb, 0.737713e-03_jprb, 0.639043e-03_jprb, 0.536756e-03_jprb &
12113  &, 0.469051e-03_jprb, 0.398890e-03_jprb, 0.326238e-03_jprb &
12114  &, 0.291235e-03_jprb, 0.254975e-03_jprb, 0.217439e-03_jprb, 0.178610e-03_jprb &
12115  &, 0.138469e-03_jprb, 0.969989e-04_jprb, 0.983639e-04_jprb &
12116  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.100000e-04_jprb &
12117  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12118  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12119  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12120  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12121  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12122  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12123  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12124 xcw( 275, :) = (/ &
12125  & 0.937985e+00_jprb, 0.921896e+00_jprb, 0.905591e+00_jprb, 0.889087e+00_jprb &
12126  &, 0.872391e+00_jprb, 0.855519e+00_jprb, 0.838479e+00_jprb &
12127  &, 0.821286e+00_jprb, 0.803951e+00_jprb, 0.786488e+00_jprb, 0.768909e+00_jprb &
12128  &, 0.751226e+00_jprb, 0.733456e+00_jprb, 0.715610e+00_jprb &
12129  &, 0.697704e+00_jprb, 0.679750e+00_jprb, 0.661767e+00_jprb, 0.643765e+00_jprb &
12130  &, 0.625763e+00_jprb, 0.607776e+00_jprb, 0.589819e+00_jprb &
12131  &, 0.571911e+00_jprb, 0.554066e+00_jprb, 0.536303e+00_jprb, 0.518637e+00_jprb &
12132  &, 0.501087e+00_jprb, 0.483671e+00_jprb, 0.466401e+00_jprb &
12133  &, 0.449303e+00_jprb, 0.432388e+00_jprb, 0.415675e+00_jprb, 0.399179e+00_jprb &
12134  &, 0.382922e+00_jprb, 0.366918e+00_jprb, 0.351185e+00_jprb &
12135  &, 0.335731e+00_jprb, 0.320578e+00_jprb, 0.305743e+00_jprb, 0.291230e+00_jprb &
12136  &, 0.277065e+00_jprb, 0.263252e+00_jprb, 0.249805e+00_jprb &
12137  &, 0.236728e+00_jprb, 0.224036e+00_jprb, 0.211729e+00_jprb, 0.199831e+00_jprb &
12138  &, 0.188328e+00_jprb, 0.177242e+00_jprb, 0.166567e+00_jprb &
12139  &, 0.156308e+00_jprb, 0.146454e+00_jprb, 0.137032e+00_jprb, 0.128013e+00_jprb &
12140  &, 0.119405e+00_jprb, 0.111201e+00_jprb, 0.103403e+00_jprb &
12141  &, 0.959996e-01_jprb, 0.889723e-01_jprb, 0.823487e-01_jprb, 0.760736e-01_jprb &
12142  &, 0.701693e-01_jprb, 0.646233e-01_jprb, 0.594201e-01_jprb &
12143  &, 0.545225e-01_jprb, 0.499623e-01_jprb, 0.457159e-01_jprb, 0.417362e-01_jprb &
12144  &, 0.380497e-01_jprb, 0.346230e-01_jprb, 0.314600e-01_jprb &
12145  &, 0.285422e-01_jprb, 0.258271e-01_jprb, 0.233551e-01_jprb, 0.210794e-01_jprb &
12146  &, 0.189713e-01_jprb, 0.170686e-01_jprb, 0.153165e-01_jprb &
12147  &, 0.137274e-01_jprb, 0.122649e-01_jprb, 0.109645e-01_jprb, 0.976122e-02_jprb &
12148  &, 0.868918e-02_jprb, 0.770452e-02_jprb, 0.684144e-02_jprb &
12149  &, 0.605286e-02_jprb, 0.534446e-02_jprb, 0.472204e-02_jprb, 0.413267e-02_jprb &
12150  &, 0.363916e-02_jprb, 0.318662e-02_jprb, 0.280915e-02_jprb &
12151  &, 0.244820e-02_jprb, 0.213746e-02_jprb, 0.184732e-02_jprb, 0.161274e-02_jprb &
12152  &, 0.140308e-02_jprb, 0.121997e-02_jprb, 0.102992e-02_jprb &
12153  &, 0.904368e-03_jprb, 0.774099e-03_jprb, 0.676046e-03_jprb, 0.574381e-03_jprb &
12154  &, 0.469051e-03_jprb, 0.398890e-03_jprb, 0.326238e-03_jprb &
12155  &, 0.291235e-03_jprb, 0.254975e-03_jprb, 0.217439e-03_jprb, 0.178610e-03_jprb &
12156  &, 0.138469e-03_jprb, 0.969989e-04_jprb, 0.983639e-04_jprb &
12157  &, 0.548704e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12158  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12159  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12160  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12161  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12162  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12163  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12164  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12165 xcw( 276, :) = (/ &
12166  & 0.938274e+00_jprb, 0.922249e+00_jprb, 0.906012e+00_jprb, 0.889573e+00_jprb &
12167  &, 0.872939e+00_jprb, 0.856127e+00_jprb, 0.839147e+00_jprb &
12168  &, 0.822011e+00_jprb, 0.804731e+00_jprb, 0.787320e+00_jprb, 0.769792e+00_jprb &
12169  &, 0.752159e+00_jprb, 0.734434e+00_jprb, 0.716633e+00_jprb &
12170  &, 0.698769e+00_jprb, 0.680855e+00_jprb, 0.662908e+00_jprb, 0.644942e+00_jprb &
12171  &, 0.626974e+00_jprb, 0.609016e+00_jprb, 0.591090e+00_jprb &
12172  &, 0.573204e+00_jprb, 0.555385e+00_jprb, 0.537642e+00_jprb, 0.519994e+00_jprb &
12173  &, 0.502458e+00_jprb, 0.485053e+00_jprb, 0.467798e+00_jprb &
12174  &, 0.450707e+00_jprb, 0.433795e+00_jprb, 0.417088e+00_jprb, 0.400593e+00_jprb &
12175  &, 0.384333e+00_jprb, 0.368325e+00_jprb, 0.352582e+00_jprb &
12176  &, 0.337117e+00_jprb, 0.321961e+00_jprb, 0.307112e+00_jprb, 0.292584e+00_jprb &
12177  &, 0.278401e+00_jprb, 0.264569e+00_jprb, 0.251090e+00_jprb &
12178  &, 0.237991e+00_jprb, 0.225273e+00_jprb, 0.212950e+00_jprb, 0.201023e+00_jprb &
12179  &, 0.189489e+00_jprb, 0.178369e+00_jprb, 0.167671e+00_jprb &
12180  &, 0.157373e+00_jprb, 0.147491e+00_jprb, 0.138025e+00_jprb, 0.128973e+00_jprb &
12181  &, 0.120330e+00_jprb, 0.112088e+00_jprb, 0.104251e+00_jprb &
12182  &, 0.968055e-01_jprb, 0.897493e-01_jprb, 0.830788e-01_jprb, 0.767873e-01_jprb &
12183  &, 0.708483e-01_jprb, 0.652656e-01_jprb, 0.600059e-01_jprb &
12184  &, 0.551032e-01_jprb, 0.505003e-01_jprb, 0.462088e-01_jprb, 0.422205e-01_jprb &
12185  &, 0.385049e-01_jprb, 0.350476e-01_jprb, 0.318523e-01_jprb &
12186  &, 0.289007e-01_jprb, 0.261716e-01_jprb, 0.236628e-01_jprb, 0.213487e-01_jprb &
12187  &, 0.192461e-01_jprb, 0.173023e-01_jprb, 0.155310e-01_jprb &
12188  &, 0.139220e-01_jprb, 0.124633e-01_jprb, 0.111163e-01_jprb, 0.991600e-02_jprb &
12189  &, 0.882068e-02_jprb, 0.783857e-02_jprb, 0.695074e-02_jprb &
12190  &, 0.616425e-02_jprb, 0.542958e-02_jprb, 0.480877e-02_jprb, 0.422102e-02_jprb &
12191  &, 0.369915e-02_jprb, 0.324771e-02_jprb, 0.284025e-02_jprb &
12192  &, 0.247987e-02_jprb, 0.216969e-02_jprb, 0.188013e-02_jprb, 0.164614e-02_jprb &
12193  &, 0.143706e-02_jprb, 0.121997e-02_jprb, 0.106509e-02_jprb &
12194  &, 0.904368e-03_jprb, 0.774099e-03_jprb, 0.676046e-03_jprb, 0.574381e-03_jprb &
12195  &, 0.507305e-03_jprb, 0.437779e-03_jprb, 0.365768e-03_jprb &
12196  &, 0.291235e-03_jprb, 0.254975e-03_jprb, 0.217439e-03_jprb, 0.178610e-03_jprb &
12197  &, 0.138469e-03_jprb, 0.140498e-03_jprb, 0.983639e-04_jprb &
12198  &, 0.997407e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12199  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12200  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12201  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12202  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12203  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12204  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12205  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12206 xcw( 277, :) = (/ &
12207  & 0.938253e+00_jprb, 0.922605e+00_jprb, 0.906433e+00_jprb, 0.890057e+00_jprb &
12208  &, 0.873488e+00_jprb, 0.856736e+00_jprb, 0.839814e+00_jprb &
12209  &, 0.822735e+00_jprb, 0.805509e+00_jprb, 0.788152e+00_jprb, 0.770675e+00_jprb &
12210  &, 0.753089e+00_jprb, 0.735412e+00_jprb, 0.717655e+00_jprb &
12211  &, 0.699832e+00_jprb, 0.681960e+00_jprb, 0.664049e+00_jprb, 0.646119e+00_jprb &
12212  &, 0.628184e+00_jprb, 0.610257e+00_jprb, 0.592357e+00_jprb &
12213  &, 0.574501e+00_jprb, 0.556701e+00_jprb, 0.538978e+00_jprb, 0.521351e+00_jprb &
12214  &, 0.503833e+00_jprb, 0.486439e+00_jprb, 0.469194e+00_jprb &
12215  &, 0.452111e+00_jprb, 0.435205e+00_jprb, 0.418501e+00_jprb, 0.402007e+00_jprb &
12216  &, 0.385748e+00_jprb, 0.369732e+00_jprb, 0.353983e+00_jprb &
12217  &, 0.338512e+00_jprb, 0.323343e+00_jprb, 0.308481e+00_jprb, 0.293937e+00_jprb &
12218  &, 0.279738e+00_jprb, 0.265875e+00_jprb, 0.252387e+00_jprb &
12219  &, 0.239264e+00_jprb, 0.226522e+00_jprb, 0.214172e+00_jprb, 0.202215e+00_jprb &
12220  &, 0.190650e+00_jprb, 0.179508e+00_jprb, 0.168761e+00_jprb &
12221  &, 0.158437e+00_jprb, 0.148527e+00_jprb, 0.139017e+00_jprb, 0.129933e+00_jprb &
12222  &, 0.121255e+00_jprb, 0.112976e+00_jprb, 0.105099e+00_jprb &
12223  &, 0.976269e-01_jprb, 0.905422e-01_jprb, 0.838251e-01_jprb, 0.774843e-01_jprb &
12224  &, 0.715273e-01_jprb, 0.658906e-01_jprb, 0.606271e-01_jprb &
12225  &, 0.556657e-01_jprb, 0.510382e-01_jprb, 0.467207e-01_jprb, 0.426854e-01_jprb &
12226  &, 0.389403e-01_jprb, 0.354722e-01_jprb, 0.322447e-01_jprb &
12227  &, 0.292592e-01_jprb, 0.265161e-01_jprb, 0.239706e-01_jprb, 0.216404e-01_jprb &
12228  &, 0.195209e-01_jprb, 0.175594e-01_jprb, 0.157695e-01_jprb &
12229  &, 0.141409e-01_jprb, 0.126618e-01_jprb, 0.112934e-01_jprb, 0.100708e-01_jprb &
12230  &, 0.897848e-02_jprb, 0.797262e-02_jprb, 0.708737e-02_jprb &
12231  &, 0.627564e-02_jprb, 0.554308e-02_jprb, 0.489549e-02_jprb, 0.430936e-02_jprb &
12232  &, 0.378912e-02_jprb, 0.330879e-02_jprb, 0.290246e-02_jprb &
12233  &, 0.254320e-02_jprb, 0.223416e-02_jprb, 0.194575e-02_jprb, 0.167953e-02_jprb &
12234  &, 0.147104e-02_jprb, 0.125454e-02_jprb, 0.110026e-02_jprb &
12235  &, 0.940142e-03_jprb, 0.810484e-03_jprb, 0.676046e-03_jprb, 0.574381e-03_jprb &
12236  &, 0.507305e-03_jprb, 0.437779e-03_jprb, 0.365768e-03_jprb &
12237  &, 0.291235e-03_jprb, 0.254975e-03_jprb, 0.217439e-03_jprb, 0.178610e-03_jprb &
12238  &, 0.138469e-03_jprb, 0.140498e-03_jprb, 0.983639e-04_jprb &
12239  &, 0.997407e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12240  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12241  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12242  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12243  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12244  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12245  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12246  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12247 xcw( 278, :) = (/ &
12248  & 0.938848e+00_jprb, 0.922960e+00_jprb, 0.906854e+00_jprb, 0.890542e+00_jprb &
12249  &, 0.874034e+00_jprb, 0.857344e+00_jprb, 0.840480e+00_jprb &
12250  &, 0.823458e+00_jprb, 0.806288e+00_jprb, 0.788982e+00_jprb, 0.771556e+00_jprb &
12251  &, 0.754019e+00_jprb, 0.736388e+00_jprb, 0.718675e+00_jprb &
12252  &, 0.700896e+00_jprb, 0.683063e+00_jprb, 0.665191e+00_jprb, 0.647295e+00_jprb &
12253  &, 0.629392e+00_jprb, 0.611497e+00_jprb, 0.593625e+00_jprb &
12254  &, 0.575794e+00_jprb, 0.558020e+00_jprb, 0.540318e+00_jprb, 0.522708e+00_jprb &
12255  &, 0.505204e+00_jprb, 0.487825e+00_jprb, 0.470591e+00_jprb &
12256  &, 0.453514e+00_jprb, 0.436616e+00_jprb, 0.419913e+00_jprb, 0.403422e+00_jprb &
12257  &, 0.387159e+00_jprb, 0.371143e+00_jprb, 0.355389e+00_jprb &
12258  &, 0.339907e+00_jprb, 0.324726e+00_jprb, 0.309850e+00_jprb, 0.295291e+00_jprb &
12259  &, 0.281074e+00_jprb, 0.267203e+00_jprb, 0.253683e+00_jprb &
12260  &, 0.240538e+00_jprb, 0.227770e+00_jprb, 0.215394e+00_jprb, 0.203408e+00_jprb &
12261  &, 0.191823e+00_jprb, 0.180635e+00_jprb, 0.169864e+00_jprb &
12262  &, 0.159501e+00_jprb, 0.149563e+00_jprb, 0.140023e+00_jprb, 0.130893e+00_jprb &
12263  &, 0.122180e+00_jprb, 0.113878e+00_jprb, 0.105962e+00_jprb &
12264  &, 0.984482e-01_jprb, 0.913193e-01_jprb, 0.845714e-01_jprb, 0.782146e-01_jprb &
12265  &, 0.722064e-01_jprb, 0.665503e-01_jprb, 0.612306e-01_jprb &
12266  &, 0.562464e-01_jprb, 0.515761e-01_jprb, 0.472325e-01_jprb, 0.431697e-01_jprb &
12267  &, 0.393955e-01_jprb, 0.358765e-01_jprb, 0.326370e-01_jprb &
12268  &, 0.296177e-01_jprb, 0.268606e-01_jprb, 0.243003e-01_jprb, 0.219321e-01_jprb &
12269  &, 0.197728e-01_jprb, 0.178164e-01_jprb, 0.160079e-01_jprb &
12270  &, 0.143598e-01_jprb, 0.128354e-01_jprb, 0.114705e-01_jprb, 0.102514e-01_jprb &
12271  &, 0.913629e-02_jprb, 0.810667e-02_jprb, 0.719667e-02_jprb &
12272  &, 0.638703e-02_jprb, 0.562821e-02_jprb, 0.498222e-02_jprb, 0.439770e-02_jprb &
12273  &, 0.384911e-02_jprb, 0.340043e-02_jprb, 0.296466e-02_jprb &
12274  &, 0.260653e-02_jprb, 0.226639e-02_jprb, 0.197856e-02_jprb, 0.171292e-02_jprb &
12275  &, 0.150502e-02_jprb, 0.128912e-02_jprb, 0.110026e-02_jprb &
12276  &, 0.975917e-03_jprb, 0.810484e-03_jprb, 0.713049e-03_jprb, 0.612007e-03_jprb &
12277  &, 0.507305e-03_jprb, 0.437779e-03_jprb, 0.365768e-03_jprb &
12278  &, 0.331412e-03_jprb, 0.254975e-03_jprb, 0.217439e-03_jprb, 0.178610e-03_jprb &
12279  &, 0.138469e-03_jprb, 0.140498e-03_jprb, 0.983639e-04_jprb &
12280  &, 0.997407e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12281  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12282  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12283  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12284  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12285  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12286  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12287  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12288 xcw( 279, :) = (/ &
12289  & 0.939135e+00_jprb, 0.923314e+00_jprb, 0.907274e+00_jprb, 0.891026e+00_jprb &
12290  &, 0.874581e+00_jprb, 0.857950e+00_jprb, 0.841146e+00_jprb &
12291  &, 0.824180e+00_jprb, 0.807065e+00_jprb, 0.789812e+00_jprb, 0.772436e+00_jprb &
12292  &, 0.754949e+00_jprb, 0.737364e+00_jprb, 0.719696e+00_jprb &
12293  &, 0.701958e+00_jprb, 0.684164e+00_jprb, 0.666331e+00_jprb, 0.648470e+00_jprb &
12294  &, 0.630601e+00_jprb, 0.612734e+00_jprb, 0.594893e+00_jprb &
12295  &, 0.577087e+00_jprb, 0.559336e+00_jprb, 0.541654e+00_jprb, 0.524065e+00_jprb &
12296  &, 0.506575e+00_jprb, 0.489211e+00_jprb, 0.471988e+00_jprb &
12297  &, 0.454922e+00_jprb, 0.438030e+00_jprb, 0.421330e+00_jprb, 0.404840e+00_jprb &
12298  &, 0.388575e+00_jprb, 0.372554e+00_jprb, 0.356795e+00_jprb &
12299  &, 0.341302e+00_jprb, 0.326109e+00_jprb, 0.311219e+00_jprb, 0.296654e+00_jprb &
12300  &, 0.282410e+00_jprb, 0.268521e+00_jprb, 0.254979e+00_jprb &
12301  &, 0.241811e+00_jprb, 0.229019e+00_jprb, 0.216615e+00_jprb, 0.204600e+00_jprb &
12302  &, 0.192984e+00_jprb, 0.181775e+00_jprb, 0.170967e+00_jprb &
12303  &, 0.160579e+00_jprb, 0.150600e+00_jprb, 0.141030e+00_jprb, 0.131866e+00_jprb &
12304  &, 0.123119e+00_jprb, 0.114766e+00_jprb, 0.106826e+00_jprb &
12305  &, 0.992696e-01_jprb, 0.921121e-01_jprb, 0.853340e-01_jprb, 0.789283e-01_jprb &
12306  &, 0.728854e-01_jprb, 0.671926e-01_jprb, 0.618519e-01_jprb &
12307  &, 0.568271e-01_jprb, 0.521326e-01_jprb, 0.477444e-01_jprb, 0.436540e-01_jprb &
12308  &, 0.398507e-01_jprb, 0.363011e-01_jprb, 0.330294e-01_jprb &
12309  &, 0.299973e-01_jprb, 0.272051e-01_jprb, 0.246081e-01_jprb, 0.222462e-01_jprb &
12310  &, 0.200476e-01_jprb, 0.180501e-01_jprb, 0.162225e-01_jprb &
12311  &, 0.145544e-01_jprb, 0.130339e-01_jprb, 0.116729e-01_jprb, 0.104061e-01_jprb &
12312  &, 0.926779e-02_jprb, 0.824072e-02_jprb, 0.733330e-02_jprb &
12313  &, 0.649842e-02_jprb, 0.574171e-02_jprb, 0.506894e-02_jprb, 0.445660e-02_jprb &
12314  &, 0.393909e-02_jprb, 0.346152e-02_jprb, 0.302686e-02_jprb &
12315  &, 0.263819e-02_jprb, 0.229863e-02_jprb, 0.201137e-02_jprb, 0.174631e-02_jprb &
12316  &, 0.153899e-02_jprb, 0.132369e-02_jprb, 0.113543e-02_jprb &
12317  &, 0.975917e-03_jprb, 0.846870e-03_jprb, 0.713049e-03_jprb, 0.612007e-03_jprb &
12318  &, 0.545560e-03_jprb, 0.437779e-03_jprb, 0.405298e-03_jprb &
12319  &, 0.331412e-03_jprb, 0.295804e-03_jprb, 0.217439e-03_jprb, 0.178610e-03_jprb &
12320  &, 0.181292e-03_jprb, 0.140498e-03_jprb, 0.983639e-04_jprb &
12321  &, 0.997407e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12322  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12323  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12324  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12325  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12326  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12327  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12328  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12329 xcw( 280, :) = (/ &
12330  & 0.939420e+00_jprb, 0.923666e+00_jprb, 0.907693e+00_jprb, 0.891509e+00_jprb &
12331  &, 0.875126e+00_jprb, 0.858557e+00_jprb, 0.841811e+00_jprb &
12332  &, 0.824901e+00_jprb, 0.807840e+00_jprb, 0.790641e+00_jprb, 0.773316e+00_jprb &
12333  &, 0.755876e+00_jprb, 0.738339e+00_jprb, 0.720715e+00_jprb &
12334  &, 0.703019e+00_jprb, 0.685266e+00_jprb, 0.667469e+00_jprb, 0.649646e+00_jprb &
12335  &, 0.631809e+00_jprb, 0.613975e+00_jprb, 0.596161e+00_jprb &
12336  &, 0.578380e+00_jprb, 0.560652e+00_jprb, 0.542994e+00_jprb, 0.525422e+00_jprb &
12337  &, 0.507950e+00_jprb, 0.490600e+00_jprb, 0.473385e+00_jprb &
12338  &, 0.456330e+00_jprb, 0.439441e+00_jprb, 0.422747e+00_jprb, 0.406259e+00_jprb &
12339  &, 0.389990e+00_jprb, 0.373970e+00_jprb, 0.358202e+00_jprb &
12340  &, 0.342707e+00_jprb, 0.327501e+00_jprb, 0.312597e+00_jprb, 0.298008e+00_jprb &
12341  &, 0.283757e+00_jprb, 0.269848e+00_jprb, 0.256287e+00_jprb &
12342  &, 0.243096e+00_jprb, 0.230279e+00_jprb, 0.217849e+00_jprb, 0.205805e+00_jprb &
12343  &, 0.194157e+00_jprb, 0.182914e+00_jprb, 0.172083e+00_jprb &
12344  &, 0.161656e+00_jprb, 0.151636e+00_jprb, 0.142036e+00_jprb, 0.132840e+00_jprb &
12345  &, 0.124059e+00_jprb, 0.115668e+00_jprb, 0.107689e+00_jprb &
12346  &, 0.100106e+00_jprb, 0.929050e-01_jprb, 0.860965e-01_jprb, 0.796420e-01_jprb &
12347  &, 0.735644e-01_jprb, 0.678349e-01_jprb, 0.624554e-01_jprb &
12348  &, 0.574078e-01_jprb, 0.526890e-01_jprb, 0.482562e-01_jprb, 0.441383e-01_jprb &
12349  &, 0.403059e-01_jprb, 0.367459e-01_jprb, 0.334424e-01_jprb &
12350  &, 0.303769e-01_jprb, 0.275496e-01_jprb, 0.249378e-01_jprb, 0.225379e-01_jprb &
12351  &, 0.203453e-01_jprb, 0.183071e-01_jprb, 0.164609e-01_jprb &
12352  &, 0.147733e-01_jprb, 0.132324e-01_jprb, 0.118500e-01_jprb, 0.105867e-01_jprb &
12353  &, 0.942559e-02_jprb, 0.837477e-02_jprb, 0.744260e-02_jprb &
12354  &, 0.660981e-02_jprb, 0.585521e-02_jprb, 0.515567e-02_jprb, 0.454494e-02_jprb &
12355  &, 0.399908e-02_jprb, 0.352261e-02_jprb, 0.308907e-02_jprb &
12356  &, 0.270152e-02_jprb, 0.236310e-02_jprb, 0.207699e-02_jprb, 0.177970e-02_jprb &
12357  &, 0.157297e-02_jprb, 0.135826e-02_jprb, 0.117060e-02_jprb &
12358  &, 0.101169e-02_jprb, 0.883256e-03_jprb, 0.750051e-03_jprb, 0.649632e-03_jprb &
12359  &, 0.545560e-03_jprb, 0.476668e-03_jprb, 0.405298e-03_jprb &
12360  &, 0.331412e-03_jprb, 0.295804e-03_jprb, 0.258927e-03_jprb, 0.178610e-03_jprb &
12361  &, 0.181292e-03_jprb, 0.140498e-03_jprb, 0.983639e-04_jprb &
12362  &, 0.997407e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12363  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12364  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12365  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12366  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12367  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12368  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12369  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12370 
12371 IF (lhook) CALL dr_hook('SU_MCICA:PART40',1,zhook_handle)
12372 END SUBROUTINE part40
12373 
12374 #ifdef VPP5000
12375 !OCL SCALAR
12376 #endif
12377 !option! -Nv -NO
12378 #ifdef RS6K
12379 @process nooptimize
12380 #endif
12381 !pgi$r opt=0
12382 SUBROUTINE part41
12383 
12384 REAL(KIND=JPRB) :: ZHOOK_HANDLE
12385 IF (lhook) CALL dr_hook('SU_MCICA:PART41',0,zhook_handle)
12386 
12387 xcw( 281, :) = (/ &
12388  & 0.939705e+00_jprb, 0.924019e+00_jprb, 0.908111e+00_jprb, 0.891991e+00_jprb &
12389  &, 0.875671e+00_jprb, 0.859161e+00_jprb, 0.842474e+00_jprb &
12390  &, 0.825622e+00_jprb, 0.808616e+00_jprb, 0.791470e+00_jprb, 0.774194e+00_jprb &
12391  &, 0.756805e+00_jprb, 0.739313e+00_jprb, 0.721734e+00_jprb &
12392  &, 0.704080e+00_jprb, 0.686368e+00_jprb, 0.668609e+00_jprb, 0.650820e+00_jprb &
12393  &, 0.633017e+00_jprb, 0.615212e+00_jprb, 0.597425e+00_jprb &
12394  &, 0.579673e+00_jprb, 0.561971e+00_jprb, 0.544333e+00_jprb, 0.526779e+00_jprb &
12395  &, 0.509322e+00_jprb, 0.491986e+00_jprb, 0.474785e+00_jprb &
12396  &, 0.457733e+00_jprb, 0.440855e+00_jprb, 0.424164e+00_jprb, 0.407678e+00_jprb &
12397  &, 0.391410e+00_jprb, 0.375381e+00_jprb, 0.359608e+00_jprb &
12398  &, 0.344102e+00_jprb, 0.328884e+00_jprb, 0.313976e+00_jprb, 0.299371e+00_jprb &
12399  &, 0.285103e+00_jprb, 0.271166e+00_jprb, 0.257594e+00_jprb &
12400  &, 0.244381e+00_jprb, 0.231539e+00_jprb, 0.219082e+00_jprb, 0.207009e+00_jprb &
12401  &, 0.195330e+00_jprb, 0.184066e+00_jprb, 0.173199e+00_jprb &
12402  &, 0.162734e+00_jprb, 0.152686e+00_jprb, 0.143056e+00_jprb, 0.133814e+00_jprb &
12403  &, 0.124998e+00_jprb, 0.116586e+00_jprb, 0.108567e+00_jprb &
12404  &, 0.100943e+00_jprb, 0.937138e-01_jprb, 0.868591e-01_jprb, 0.803722e-01_jprb &
12405  &, 0.742604e-01_jprb, 0.684946e-01_jprb, 0.630767e-01_jprb &
12406  &, 0.580066e-01_jprb, 0.532455e-01_jprb, 0.487870e-01_jprb, 0.446419e-01_jprb &
12407  &, 0.407611e-01_jprb, 0.371705e-01_jprb, 0.338347e-01_jprb &
12408  &, 0.307565e-01_jprb, 0.278942e-01_jprb, 0.252675e-01_jprb, 0.228296e-01_jprb &
12409  &, 0.206201e-01_jprb, 0.185642e-01_jprb, 0.166993e-01_jprb &
12410  &, 0.149921e-01_jprb, 0.134556e-01_jprb, 0.120271e-01_jprb, 0.107415e-01_jprb &
12411  &, 0.958340e-02_jprb, 0.853563e-02_jprb, 0.757923e-02_jprb &
12412  &, 0.672119e-02_jprb, 0.594033e-02_jprb, 0.527130e-02_jprb, 0.463328e-02_jprb &
12413  &, 0.408905e-02_jprb, 0.358369e-02_jprb, 0.315127e-02_jprb &
12414  &, 0.276485e-02_jprb, 0.242756e-02_jprb, 0.210980e-02_jprb, 0.184648e-02_jprb &
12415  &, 0.160695e-02_jprb, 0.139283e-02_jprb, 0.120577e-02_jprb &
12416  &, 0.104747e-02_jprb, 0.883256e-03_jprb, 0.750051e-03_jprb, 0.649632e-03_jprb &
12417  &, 0.545560e-03_jprb, 0.476668e-03_jprb, 0.405298e-03_jprb &
12418  &, 0.331412e-03_jprb, 0.295804e-03_jprb, 0.258927e-03_jprb, 0.220762e-03_jprb &
12419  &, 0.181292e-03_jprb, 0.140498e-03_jprb, 0.983639e-04_jprb &
12420  &, 0.997407e-04_jprb, 0.555648e-04_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12421  &, 0.576837e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12422  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12423  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12424  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12425  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12426  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12427  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12428 xcw( 282, :) = (/ &
12429  & 0.939991e+00_jprb, 0.924373e+00_jprb, 0.908529e+00_jprb, 0.892474e+00_jprb &
12430  &, 0.876215e+00_jprb, 0.859766e+00_jprb, 0.843137e+00_jprb &
12431  &, 0.826341e+00_jprb, 0.809390e+00_jprb, 0.792297e+00_jprb, 0.775072e+00_jprb &
12432  &, 0.757731e+00_jprb, 0.740286e+00_jprb, 0.722751e+00_jprb &
12433  &, 0.705141e+00_jprb, 0.687468e+00_jprb, 0.669746e+00_jprb, 0.651994e+00_jprb &
12434  &, 0.634224e+00_jprb, 0.616452e+00_jprb, 0.598693e+00_jprb &
12435  &, 0.580966e+00_jprb, 0.563287e+00_jprb, 0.545669e+00_jprb, 0.528132e+00_jprb &
12436  &, 0.510697e+00_jprb, 0.493372e+00_jprb, 0.476182e+00_jprb &
12437  &, 0.459141e+00_jprb, 0.442270e+00_jprb, 0.425581e+00_jprb, 0.409096e+00_jprb &
12438  &, 0.392830e+00_jprb, 0.376797e+00_jprb, 0.361018e+00_jprb &
12439  &, 0.345507e+00_jprb, 0.330277e+00_jprb, 0.315355e+00_jprb, 0.300735e+00_jprb &
12440  &, 0.286450e+00_jprb, 0.272504e+00_jprb, 0.258901e+00_jprb &
12441  &, 0.245665e+00_jprb, 0.232799e+00_jprb, 0.220315e+00_jprb, 0.208213e+00_jprb &
12442  &, 0.196515e+00_jprb, 0.185218e+00_jprb, 0.174315e+00_jprb &
12443  &, 0.163824e+00_jprb, 0.153735e+00_jprb, 0.144062e+00_jprb, 0.134802e+00_jprb &
12444  &, 0.125952e+00_jprb, 0.117488e+00_jprb, 0.109445e+00_jprb &
12445  &, 0.101780e+00_jprb, 0.945067e-01_jprb, 0.876216e-01_jprb, 0.811025e-01_jprb &
12446  &, 0.749564e-01_jprb, 0.691543e-01_jprb, 0.637157e-01_jprb &
12447  &, 0.585873e-01_jprb, 0.538020e-01_jprb, 0.493178e-01_jprb, 0.451262e-01_jprb &
12448  &, 0.412361e-01_jprb, 0.376153e-01_jprb, 0.342477e-01_jprb &
12449  &, 0.311361e-01_jprb, 0.282387e-01_jprb, 0.255973e-01_jprb, 0.231437e-01_jprb &
12450  &, 0.208949e-01_jprb, 0.188446e-01_jprb, 0.169377e-01_jprb &
12451  &, 0.152110e-01_jprb, 0.136541e-01_jprb, 0.122042e-01_jprb, 0.109221e-01_jprb &
12452  &, 0.974120e-02_jprb, 0.866968e-02_jprb, 0.771586e-02_jprb &
12453  &, 0.683258e-02_jprb, 0.605383e-02_jprb, 0.535802e-02_jprb, 0.472163e-02_jprb &
12454  &, 0.414904e-02_jprb, 0.367533e-02_jprb, 0.321347e-02_jprb &
12455  &, 0.282818e-02_jprb, 0.245980e-02_jprb, 0.214261e-02_jprb, 0.187987e-02_jprb &
12456  &, 0.164093e-02_jprb, 0.142740e-02_jprb, 0.124094e-02_jprb &
12457  &, 0.104747e-02_jprb, 0.919641e-03_jprb, 0.787054e-03_jprb, 0.687258e-03_jprb &
12458  &, 0.583814e-03_jprb, 0.476668e-03_jprb, 0.405298e-03_jprb &
12459  &, 0.371589e-03_jprb, 0.295804e-03_jprb, 0.258927e-03_jprb, 0.220762e-03_jprb &
12460  &, 0.181292e-03_jprb, 0.140498e-03_jprb, 0.142546e-03_jprb &
12461  &, 0.997407e-04_jprb, 0.101130e-03_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12462  &, 0.576837e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12463  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12464  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12465  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12466  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12467  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12468  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12469 xcw( 283, :) = (/ &
12470  & 0.940276e+00_jprb, 0.924724e+00_jprb, 0.908946e+00_jprb, 0.892955e+00_jprb &
12471  &, 0.876758e+00_jprb, 0.860369e+00_jprb, 0.843799e+00_jprb &
12472  &, 0.827060e+00_jprb, 0.810164e+00_jprb, 0.793122e+00_jprb, 0.775949e+00_jprb &
12473  &, 0.758657e+00_jprb, 0.741258e+00_jprb, 0.723769e+00_jprb &
12474  &, 0.706200e+00_jprb, 0.688566e+00_jprb, 0.670885e+00_jprb, 0.653167e+00_jprb &
12475  &, 0.635430e+00_jprb, 0.617690e+00_jprb, 0.599961e+00_jprb &
12476  &, 0.582259e+00_jprb, 0.564603e+00_jprb, 0.547009e+00_jprb, 0.529465e+00_jprb &
12477  &, 0.512071e+00_jprb, 0.494761e+00_jprb, 0.477582e+00_jprb &
12478  &, 0.460553e+00_jprb, 0.443684e+00_jprb, 0.427002e+00_jprb, 0.410515e+00_jprb &
12479  &, 0.394249e+00_jprb, 0.378217e+00_jprb, 0.362429e+00_jprb &
12480  &, 0.346911e+00_jprb, 0.331679e+00_jprb, 0.316733e+00_jprb, 0.302108e+00_jprb &
12481  &, 0.287796e+00_jprb, 0.273832e+00_jprb, 0.260208e+00_jprb &
12482  &, 0.246950e+00_jprb, 0.234059e+00_jprb, 0.221549e+00_jprb, 0.209429e+00_jprb &
12483  &, 0.197700e+00_jprb, 0.186369e+00_jprb, 0.175431e+00_jprb &
12484  &, 0.164915e+00_jprb, 0.154799e+00_jprb, 0.145082e+00_jprb, 0.135790e+00_jprb &
12485  &, 0.126891e+00_jprb, 0.118405e+00_jprb, 0.110323e+00_jprb &
12486  &, 0.102617e+00_jprb, 0.953154e-01_jprb, 0.883842e-01_jprb, 0.818327e-01_jprb &
12487  &, 0.756524e-01_jprb, 0.698313e-01_jprb, 0.643369e-01_jprb &
12488  &, 0.591861e-01_jprb, 0.543584e-01_jprb, 0.498486e-01_jprb, 0.456299e-01_jprb &
12489  &, 0.416913e-01_jprb, 0.380398e-01_jprb, 0.346607e-01_jprb &
12490  &, 0.315156e-01_jprb, 0.286047e-01_jprb, 0.259270e-01_jprb, 0.234579e-01_jprb &
12491  &, 0.211926e-01_jprb, 0.191016e-01_jprb, 0.172000e-01_jprb &
12492  &, 0.154543e-01_jprb, 0.138526e-01_jprb, 0.124066e-01_jprb, 0.110769e-01_jprb &
12493  &, 0.989900e-02_jprb, 0.880373e-02_jprb, 0.782516e-02_jprb &
12494  &, 0.694397e-02_jprb, 0.616733e-02_jprb, 0.544475e-02_jprb, 0.480997e-02_jprb &
12495  &, 0.423902e-02_jprb, 0.373642e-02_jprb, 0.327568e-02_jprb &
12496  &, 0.285985e-02_jprb, 0.252427e-02_jprb, 0.220823e-02_jprb, 0.191326e-02_jprb &
12497  &, 0.167490e-02_jprb, 0.146197e-02_jprb, 0.124094e-02_jprb &
12498  &, 0.108324e-02_jprb, 0.919641e-03_jprb, 0.787054e-03_jprb, 0.687258e-03_jprb &
12499  &, 0.583814e-03_jprb, 0.515558e-03_jprb, 0.444828e-03_jprb &
12500  &, 0.371589e-03_jprb, 0.295804e-03_jprb, 0.258927e-03_jprb, 0.220762e-03_jprb &
12501  &, 0.181292e-03_jprb, 0.140498e-03_jprb, 0.142546e-03_jprb &
12502  &, 0.997407e-04_jprb, 0.101130e-03_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12503  &, 0.576837e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12504  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12505  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12506  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12507  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12508  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12509  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12510 xcw( 284, :) = (/ &
12511  & 0.940559e+00_jprb, 0.925076e+00_jprb, 0.909363e+00_jprb, 0.893436e+00_jprb &
12512  &, 0.877301e+00_jprb, 0.860973e+00_jprb, 0.844461e+00_jprb &
12513  &, 0.827778e+00_jprb, 0.810937e+00_jprb, 0.793948e+00_jprb, 0.776826e+00_jprb &
12514  &, 0.759581e+00_jprb, 0.742230e+00_jprb, 0.724785e+00_jprb &
12515  &, 0.707258e+00_jprb, 0.689665e+00_jprb, 0.672022e+00_jprb, 0.654340e+00_jprb &
12516  &, 0.636637e+00_jprb, 0.618927e+00_jprb, 0.601226e+00_jprb &
12517  &, 0.583552e+00_jprb, 0.565919e+00_jprb, 0.548345e+00_jprb, 0.530850e+00_jprb &
12518  &, 0.513443e+00_jprb, 0.496147e+00_jprb, 0.478983e+00_jprb &
12519  &, 0.461960e+00_jprb, 0.445102e+00_jprb, 0.428423e+00_jprb, 0.411938e+00_jprb &
12520  &, 0.395669e+00_jprb, 0.379633e+00_jprb, 0.363844e+00_jprb &
12521  &, 0.348316e+00_jprb, 0.333071e+00_jprb, 0.318122e+00_jprb, 0.303472e+00_jprb &
12522  &, 0.289153e+00_jprb, 0.275170e+00_jprb, 0.261526e+00_jprb &
12523  &, 0.248246e+00_jprb, 0.235331e+00_jprb, 0.222793e+00_jprb, 0.210646e+00_jprb &
12524  &, 0.198886e+00_jprb, 0.187521e+00_jprb, 0.176560e+00_jprb &
12525  &, 0.166006e+00_jprb, 0.155848e+00_jprb, 0.146116e+00_jprb, 0.136778e+00_jprb &
12526  &, 0.127845e+00_jprb, 0.119323e+00_jprb, 0.111202e+00_jprb &
12527  &, 0.103469e+00_jprb, 0.961242e-01_jprb, 0.891630e-01_jprb, 0.825796e-01_jprb &
12528  &, 0.763653e-01_jprb, 0.704910e-01_jprb, 0.649759e-01_jprb &
12529  &, 0.597850e-01_jprb, 0.549335e-01_jprb, 0.503794e-01_jprb, 0.461335e-01_jprb &
12530  &, 0.421663e-01_jprb, 0.384846e-01_jprb, 0.350737e-01_jprb &
12531  &, 0.318952e-01_jprb, 0.289708e-01_jprb, 0.262567e-01_jprb, 0.237720e-01_jprb &
12532  &, 0.214674e-01_jprb, 0.193587e-01_jprb, 0.174384e-01_jprb &
12533  &, 0.156732e-01_jprb, 0.140510e-01_jprb, 0.125837e-01_jprb, 0.112574e-01_jprb &
12534  &, 0.100568e-01_jprb, 0.896459e-02_jprb, 0.796179e-02_jprb &
12535  &, 0.708321e-02_jprb, 0.628083e-02_jprb, 0.556038e-02_jprb, 0.489831e-02_jprb &
12536  &, 0.432900e-02_jprb, 0.379750e-02_jprb, 0.333788e-02_jprb &
12537  &, 0.292318e-02_jprb, 0.255650e-02_jprb, 0.224104e-02_jprb, 0.194665e-02_jprb &
12538  &, 0.170888e-02_jprb, 0.146197e-02_jprb, 0.127611e-02_jprb &
12539  &, 0.111902e-02_jprb, 0.956027e-03_jprb, 0.824056e-03_jprb, 0.724883e-03_jprb &
12540  &, 0.622068e-03_jprb, 0.515558e-03_jprb, 0.444828e-03_jprb &
12541  &, 0.371589e-03_jprb, 0.336633e-03_jprb, 0.258927e-03_jprb, 0.220762e-03_jprb &
12542  &, 0.181292e-03_jprb, 0.140498e-03_jprb, 0.142546e-03_jprb &
12543  &, 0.997407e-04_jprb, 0.101130e-03_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12544  &, 0.576837e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12545  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12546  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12547  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12548  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12549  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12550  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12551 xcw( 285, :) = (/ &
12552  & 0.940843e+00_jprb, 0.925426e+00_jprb, 0.909780e+00_jprb, 0.893916e+00_jprb &
12553  &, 0.877843e+00_jprb, 0.861575e+00_jprb, 0.845122e+00_jprb &
12554  &, 0.828495e+00_jprb, 0.811708e+00_jprb, 0.794773e+00_jprb, 0.777702e+00_jprb &
12555  &, 0.760506e+00_jprb, 0.743201e+00_jprb, 0.725800e+00_jprb &
12556  &, 0.708317e+00_jprb, 0.690764e+00_jprb, 0.673157e+00_jprb, 0.655512e+00_jprb &
12557  &, 0.637842e+00_jprb, 0.620164e+00_jprb, 0.602490e+00_jprb &
12558  &, 0.584845e+00_jprb, 0.567235e+00_jprb, 0.549685e+00_jprb, 0.532207e+00_jprb &
12559  &, 0.514818e+00_jprb, 0.497537e+00_jprb, 0.480383e+00_jprb &
12560  &, 0.463372e+00_jprb, 0.446517e+00_jprb, 0.429843e+00_jprb, 0.413361e+00_jprb &
12561  &, 0.397093e+00_jprb, 0.381053e+00_jprb, 0.365259e+00_jprb &
12562  &, 0.349720e+00_jprb, 0.334463e+00_jprb, 0.319501e+00_jprb, 0.304845e+00_jprb &
12563  &, 0.290510e+00_jprb, 0.276498e+00_jprb, 0.262844e+00_jprb &
12564  &, 0.249541e+00_jprb, 0.236602e+00_jprb, 0.224038e+00_jprb, 0.211862e+00_jprb &
12565  &, 0.200071e+00_jprb, 0.188673e+00_jprb, 0.177688e+00_jprb &
12566  &, 0.167096e+00_jprb, 0.156912e+00_jprb, 0.147136e+00_jprb, 0.137766e+00_jprb &
12567  &, 0.128813e+00_jprb, 0.120255e+00_jprb, 0.112095e+00_jprb &
12568  &, 0.104322e+00_jprb, 0.969488e-01_jprb, 0.899417e-01_jprb, 0.833265e-01_jprb &
12569  &, 0.770613e-01_jprb, 0.711680e-01_jprb, 0.656149e-01_jprb &
12570  &, 0.604020e-01_jprb, 0.555085e-01_jprb, 0.509102e-01_jprb, 0.466372e-01_jprb &
12571  &, 0.426413e-01_jprb, 0.389294e-01_jprb, 0.354867e-01_jprb &
12572  &, 0.322959e-01_jprb, 0.293368e-01_jprb, 0.266084e-01_jprb, 0.240861e-01_jprb &
12573  &, 0.217651e-01_jprb, 0.196391e-01_jprb, 0.176768e-01_jprb &
12574  &, 0.158920e-01_jprb, 0.142743e-01_jprb, 0.127861e-01_jprb, 0.114380e-01_jprb &
12575  &, 0.102146e-01_jprb, 0.909864e-02_jprb, 0.809842e-02_jprb &
12576  &, 0.719460e-02_jprb, 0.639433e-02_jprb, 0.564711e-02_jprb, 0.498666e-02_jprb &
12577  &, 0.441898e-02_jprb, 0.388914e-02_jprb, 0.340008e-02_jprb &
12578  &, 0.298651e-02_jprb, 0.262097e-02_jprb, 0.227385e-02_jprb, 0.201343e-02_jprb &
12579  &, 0.174286e-02_jprb, 0.149654e-02_jprb, 0.131128e-02_jprb &
12580  &, 0.111902e-02_jprb, 0.992412e-03_jprb, 0.861059e-03_jprb, 0.724883e-03_jprb &
12581  &, 0.622068e-03_jprb, 0.515558e-03_jprb, 0.444828e-03_jprb &
12582  &, 0.371589e-03_jprb, 0.336633e-03_jprb, 0.258927e-03_jprb, 0.220762e-03_jprb &
12583  &, 0.181292e-03_jprb, 0.140498e-03_jprb, 0.142546e-03_jprb &
12584  &, 0.997407e-04_jprb, 0.101130e-03_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12585  &, 0.576837e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12586  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12587  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12588  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12589  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12590  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12591  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12592 xcw( 286, :) = (/ &
12593  & 0.941125e+00_jprb, 0.925777e+00_jprb, 0.910195e+00_jprb, 0.894395e+00_jprb &
12594  &, 0.878384e+00_jprb, 0.862176e+00_jprb, 0.845781e+00_jprb &
12595  &, 0.829212e+00_jprb, 0.812480e+00_jprb, 0.795597e+00_jprb, 0.778576e+00_jprb &
12596  &, 0.761429e+00_jprb, 0.744172e+00_jprb, 0.726814e+00_jprb &
12597  &, 0.709374e+00_jprb, 0.691861e+00_jprb, 0.674294e+00_jprb, 0.656683e+00_jprb &
12598  &, 0.639048e+00_jprb, 0.621398e+00_jprb, 0.603758e+00_jprb &
12599  &, 0.586135e+00_jprb, 0.568551e+00_jprb, 0.551021e+00_jprb, 0.533564e+00_jprb &
12600  &, 0.516193e+00_jprb, 0.498926e+00_jprb, 0.481784e+00_jprb &
12601  &, 0.464779e+00_jprb, 0.447935e+00_jprb, 0.431264e+00_jprb, 0.414788e+00_jprb &
12602  &, 0.398517e+00_jprb, 0.382473e+00_jprb, 0.366675e+00_jprb &
12603  &, 0.351134e+00_jprb, 0.335865e+00_jprb, 0.320889e+00_jprb, 0.306219e+00_jprb &
12604  &, 0.291867e+00_jprb, 0.277847e+00_jprb, 0.264162e+00_jprb &
12605  &, 0.250837e+00_jprb, 0.237873e+00_jprb, 0.225283e+00_jprb, 0.213078e+00_jprb &
12606  &, 0.201268e+00_jprb, 0.189837e+00_jprb, 0.178817e+00_jprb &
12607  &, 0.168200e+00_jprb, 0.157988e+00_jprb, 0.148170e+00_jprb, 0.138768e+00_jprb &
12608  &, 0.129767e+00_jprb, 0.121172e+00_jprb, 0.112973e+00_jprb &
12609  &, 0.105174e+00_jprb, 0.977575e-01_jprb, 0.907367e-01_jprb, 0.840733e-01_jprb &
12610  &, 0.777743e-01_jprb, 0.718450e-01_jprb, 0.662539e-01_jprb &
12611  &, 0.610008e-01_jprb, 0.560835e-01_jprb, 0.514600e-01_jprb, 0.471602e-01_jprb &
12612  &, 0.431361e-01_jprb, 0.393944e-01_jprb, 0.358997e-01_jprb &
12613  &, 0.326755e-01_jprb, 0.297029e-01_jprb, 0.269382e-01_jprb, 0.244003e-01_jprb &
12614  &, 0.220628e-01_jprb, 0.198962e-01_jprb, 0.179391e-01_jprb &
12615  &, 0.161353e-01_jprb, 0.144975e-01_jprb, 0.129885e-01_jprb, 0.116186e-01_jprb &
12616  &, 0.103724e-01_jprb, 0.925950e-02_jprb, 0.823505e-02_jprb &
12617  &, 0.733384e-02_jprb, 0.650783e-02_jprb, 0.576274e-02_jprb, 0.507500e-02_jprb &
12618  &, 0.447896e-02_jprb, 0.395023e-02_jprb, 0.346229e-02_jprb &
12619  &, 0.304984e-02_jprb, 0.268544e-02_jprb, 0.233947e-02_jprb, 0.204682e-02_jprb &
12620  &, 0.177684e-02_jprb, 0.153111e-02_jprb, 0.134645e-02_jprb &
12621  &, 0.115479e-02_jprb, 0.992412e-03_jprb, 0.861059e-03_jprb, 0.762508e-03_jprb &
12622  &, 0.622068e-03_jprb, 0.554447e-03_jprb, 0.484358e-03_jprb &
12623  &, 0.411765e-03_jprb, 0.336633e-03_jprb, 0.300415e-03_jprb, 0.220762e-03_jprb &
12624  &, 0.181292e-03_jprb, 0.183998e-03_jprb, 0.142546e-03_jprb &
12625  &, 0.997407e-04_jprb, 0.101130e-03_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12626  &, 0.576837e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12627  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12628  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12629  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12630  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12631  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12632  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12633 xcw( 287, :) = (/ &
12634  & 0.941408e+00_jprb, 0.926126e+00_jprb, 0.910610e+00_jprb, 0.894873e+00_jprb &
12635  &, 0.878924e+00_jprb, 0.862777e+00_jprb, 0.846441e+00_jprb &
12636  &, 0.829927e+00_jprb, 0.813250e+00_jprb, 0.796420e+00_jprb, 0.779450e+00_jprb &
12637  &, 0.762353e+00_jprb, 0.745141e+00_jprb, 0.727829e+00_jprb &
12638  &, 0.710430e+00_jprb, 0.692958e+00_jprb, 0.675428e+00_jprb, 0.657854e+00_jprb &
12639  &, 0.640250e+00_jprb, 0.622636e+00_jprb, 0.605023e+00_jprb &
12640  &, 0.587428e+00_jprb, 0.569867e+00_jprb, 0.552360e+00_jprb, 0.534921e+00_jprb &
12641  &, 0.517568e+00_jprb, 0.500316e+00_jprb, 0.483185e+00_jprb &
12642  &, 0.466191e+00_jprb, 0.449354e+00_jprb, 0.432689e+00_jprb, 0.416210e+00_jprb &
12643  &, 0.399941e+00_jprb, 0.383898e+00_jprb, 0.368094e+00_jprb &
12644  &, 0.352548e+00_jprb, 0.337267e+00_jprb, 0.322278e+00_jprb, 0.307592e+00_jprb &
12645  &, 0.293223e+00_jprb, 0.279185e+00_jprb, 0.265480e+00_jprb &
12646  &, 0.252133e+00_jprb, 0.239156e+00_jprb, 0.226540e+00_jprb, 0.214306e+00_jprb &
12647  &, 0.202466e+00_jprb, 0.191014e+00_jprb, 0.179959e+00_jprb &
12648  &, 0.169304e+00_jprb, 0.159052e+00_jprb, 0.149217e+00_jprb, 0.139770e+00_jprb &
12649  &, 0.130735e+00_jprb, 0.122104e+00_jprb, 0.113882e+00_jprb &
12650  &, 0.106042e+00_jprb, 0.985821e-01_jprb, 0.915155e-01_jprb, 0.848202e-01_jprb &
12651  &, 0.784872e-01_jprb, 0.725221e-01_jprb, 0.668930e-01_jprb &
12652  &, 0.616178e-01_jprb, 0.566585e-01_jprb, 0.520097e-01_jprb, 0.476639e-01_jprb &
12653  &, 0.436111e-01_jprb, 0.398392e-01_jprb, 0.363334e-01_jprb &
12654  &, 0.330762e-01_jprb, 0.300689e-01_jprb, 0.272899e-01_jprb, 0.247144e-01_jprb &
12655  &, 0.223605e-01_jprb, 0.201766e-01_jprb, 0.182013e-01_jprb &
12656  &, 0.163785e-01_jprb, 0.146960e-01_jprb, 0.131909e-01_jprb, 0.117992e-01_jprb &
12657  &, 0.105565e-01_jprb, 0.942037e-02_jprb, 0.837168e-02_jprb &
12658  &, 0.744522e-02_jprb, 0.662132e-02_jprb, 0.584947e-02_jprb, 0.519279e-02_jprb &
12659  &, 0.456894e-02_jprb, 0.404186e-02_jprb, 0.355559e-02_jprb &
12660  &, 0.311317e-02_jprb, 0.271767e-02_jprb, 0.237227e-02_jprb, 0.208021e-02_jprb &
12661  &, 0.181081e-02_jprb, 0.156568e-02_jprb, 0.138162e-02_jprb &
12662  &, 0.119057e-02_jprb, 0.102880e-02_jprb, 0.898061e-03_jprb, 0.762508e-03_jprb &
12663  &, 0.660322e-03_jprb, 0.554447e-03_jprb, 0.484358e-03_jprb &
12664  &, 0.411765e-03_jprb, 0.336633e-03_jprb, 0.300415e-03_jprb, 0.262914e-03_jprb &
12665  &, 0.224115e-03_jprb, 0.183998e-03_jprb, 0.142546e-03_jprb &
12666  &, 0.997407e-04_jprb, 0.101130e-03_jprb, 0.562651e-04_jprb, 0.569714e-04_jprb &
12667  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.100000e-04_jprb &
12668  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12669  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12670  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12671  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12672  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12673  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12674 
12675 IF (lhook) CALL dr_hook('SU_MCICA:PART41',1,zhook_handle)
12676 END SUBROUTINE part41
12677 
12678 #ifdef VPP5000
12679 !OCL SCALAR
12680 #endif
12681 !option! -Nv -NO
12682 #ifdef RS6K
12683 @process nooptimize
12684 #endif
12685 !pgi$r opt=0
12686 SUBROUTINE part42
12687 
12688 REAL(KIND=JPRB) :: ZHOOK_HANDLE
12689 IF (lhook) CALL dr_hook('SU_MCICA:PART42',0,zhook_handle)
12690 
12691 xcw( 288, :) = (/ &
12692  & 0.941692e+00_jprb, 0.926475e+00_jprb, 0.911024e+00_jprb, 0.895352e+00_jprb &
12693  &, 0.879465e+00_jprb, 0.863377e+00_jprb, 0.847099e+00_jprb &
12694  &, 0.830642e+00_jprb, 0.814020e+00_jprb, 0.797242e+00_jprb, 0.780323e+00_jprb &
12695  &, 0.763275e+00_jprb, 0.746109e+00_jprb, 0.728842e+00_jprb &
12696  &, 0.711487e+00_jprb, 0.694056e+00_jprb, 0.676563e+00_jprb, 0.659025e+00_jprb &
12697  &, 0.641456e+00_jprb, 0.623873e+00_jprb, 0.606287e+00_jprb &
12698  &, 0.588721e+00_jprb, 0.571186e+00_jprb, 0.553700e+00_jprb, 0.536278e+00_jprb &
12699  &, 0.518942e+00_jprb, 0.501705e+00_jprb, 0.484585e+00_jprb &
12700  &, 0.467602e+00_jprb, 0.450772e+00_jprb, 0.434110e+00_jprb, 0.417638e+00_jprb &
12701  &, 0.401370e+00_jprb, 0.385323e+00_jprb, 0.369514e+00_jprb &
12702  &, 0.353952e+00_jprb, 0.338669e+00_jprb, 0.323676e+00_jprb, 0.308976e+00_jprb &
12703  &, 0.294590e+00_jprb, 0.280523e+00_jprb, 0.266809e+00_jprb &
12704  &, 0.253440e+00_jprb, 0.240428e+00_jprb, 0.227796e+00_jprb, 0.215534e+00_jprb &
12705  &, 0.203663e+00_jprb, 0.192179e+00_jprb, 0.181100e+00_jprb &
12706  &, 0.170407e+00_jprb, 0.160128e+00_jprb, 0.150251e+00_jprb, 0.140787e+00_jprb &
12707  &, 0.131718e+00_jprb, 0.123051e+00_jprb, 0.114775e+00_jprb &
12708  &, 0.106894e+00_jprb, 0.994067e-01_jprb, 0.923105e-01_jprb, 0.855836e-01_jprb &
12709  &, 0.792172e-01_jprb, 0.732165e-01_jprb, 0.675497e-01_jprb &
12710  &, 0.622348e-01_jprb, 0.572335e-01_jprb, 0.525595e-01_jprb, 0.481869e-01_jprb &
12711  &, 0.441059e-01_jprb, 0.403043e-01_jprb, 0.367670e-01_jprb &
12712  &, 0.334768e-01_jprb, 0.304350e-01_jprb, 0.276416e-01_jprb, 0.250510e-01_jprb &
12713  &, 0.226582e-01_jprb, 0.204570e-01_jprb, 0.184397e-01_jprb &
12714  &, 0.165974e-01_jprb, 0.149193e-01_jprb, 0.133933e-01_jprb, 0.119798e-01_jprb &
12715  &, 0.107143e-01_jprb, 0.955442e-02_jprb, 0.850831e-02_jprb &
12716  &, 0.758446e-02_jprb, 0.673482e-02_jprb, 0.596510e-02_jprb, 0.528113e-02_jprb &
12717  &, 0.465892e-02_jprb, 0.410295e-02_jprb, 0.361780e-02_jprb &
12718  &, 0.317650e-02_jprb, 0.278214e-02_jprb, 0.243789e-02_jprb, 0.211360e-02_jprb &
12719  &, 0.184479e-02_jprb, 0.160025e-02_jprb, 0.141679e-02_jprb &
12720  &, 0.122634e-02_jprb, 0.106518e-02_jprb, 0.898061e-03_jprb, 0.800134e-03_jprb &
12721  &, 0.660322e-03_jprb, 0.593336e-03_jprb, 0.484358e-03_jprb &
12722  &, 0.411765e-03_jprb, 0.336633e-03_jprb, 0.300415e-03_jprb, 0.262914e-03_jprb &
12723  &, 0.224115e-03_jprb, 0.183998e-03_jprb, 0.142546e-03_jprb &
12724  &, 0.997407e-04_jprb, 0.101130e-03_jprb, 0.102530e-03_jprb, 0.569714e-04_jprb &
12725  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.100000e-04_jprb &
12726  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12727  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12728  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12729  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12730  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12731  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12732 xcw( 289, :) = (/ &
12733  & 0.941973e+00_jprb, 0.926824e+00_jprb, 0.911439e+00_jprb, 0.895829e+00_jprb &
12734  &, 0.880004e+00_jprb, 0.863976e+00_jprb, 0.847757e+00_jprb &
12735  &, 0.831357e+00_jprb, 0.814788e+00_jprb, 0.798064e+00_jprb, 0.781196e+00_jprb &
12736  &, 0.764195e+00_jprb, 0.747077e+00_jprb, 0.729855e+00_jprb &
12737  &, 0.712542e+00_jprb, 0.695150e+00_jprb, 0.677697e+00_jprb, 0.660196e+00_jprb &
12738  &, 0.642659e+00_jprb, 0.625107e+00_jprb, 0.607552e+00_jprb &
12739  &, 0.590011e+00_jprb, 0.572502e+00_jprb, 0.555036e+00_jprb, 0.537635e+00_jprb &
12740  &, 0.520317e+00_jprb, 0.503095e+00_jprb, 0.485989e+00_jprb &
12741  &, 0.469018e+00_jprb, 0.452195e+00_jprb, 0.435535e+00_jprb, 0.419065e+00_jprb &
12742  &, 0.402798e+00_jprb, 0.386747e+00_jprb, 0.370934e+00_jprb &
12743  &, 0.355375e+00_jprb, 0.340080e+00_jprb, 0.325064e+00_jprb, 0.310349e+00_jprb &
12744  &, 0.295958e+00_jprb, 0.281872e+00_jprb, 0.268138e+00_jprb &
12745  &, 0.254746e+00_jprb, 0.241710e+00_jprb, 0.229053e+00_jprb, 0.216763e+00_jprb &
12746  &, 0.204861e+00_jprb, 0.193356e+00_jprb, 0.182242e+00_jprb &
12747  &, 0.171524e+00_jprb, 0.161205e+00_jprb, 0.151298e+00_jprb, 0.141789e+00_jprb &
12748  &, 0.132686e+00_jprb, 0.123983e+00_jprb, 0.115684e+00_jprb &
12749  &, 0.107762e+00_jprb, 0.100247e+00_jprb, 0.931055e-01_jprb, 0.863471e-01_jprb &
12750  &, 0.799471e-01_jprb, 0.738935e-01_jprb, 0.682065e-01_jprb &
12751  &, 0.628518e-01_jprb, 0.578271e-01_jprb, 0.531093e-01_jprb, 0.487100e-01_jprb &
12752  &, 0.446007e-01_jprb, 0.407693e-01_jprb, 0.372007e-01_jprb &
12753  &, 0.338775e-01_jprb, 0.308225e-01_jprb, 0.279933e-01_jprb, 0.253651e-01_jprb &
12754  &, 0.229559e-01_jprb, 0.207374e-01_jprb, 0.187020e-01_jprb &
12755  &, 0.168406e-01_jprb, 0.151425e-01_jprb, 0.135957e-01_jprb, 0.121603e-01_jprb &
12756  &, 0.108721e-01_jprb, 0.971528e-02_jprb, 0.867226e-02_jprb &
12757  &, 0.769585e-02_jprb, 0.684832e-02_jprb, 0.608073e-02_jprb, 0.536948e-02_jprb &
12758  &, 0.474890e-02_jprb, 0.419458e-02_jprb, 0.368000e-02_jprb &
12759  &, 0.323983e-02_jprb, 0.284661e-02_jprb, 0.250351e-02_jprb, 0.218038e-02_jprb &
12760  &, 0.191275e-02_jprb, 0.163482e-02_jprb, 0.145196e-02_jprb &
12761  &, 0.126211e-02_jprb, 0.106518e-02_jprb, 0.935064e-03_jprb, 0.800134e-03_jprb &
12762  &, 0.698577e-03_jprb, 0.593336e-03_jprb, 0.523887e-03_jprb &
12763  &, 0.411765e-03_jprb, 0.377463e-03_jprb, 0.300415e-03_jprb, 0.262914e-03_jprb &
12764  &, 0.224115e-03_jprb, 0.183998e-03_jprb, 0.142546e-03_jprb &
12765  &, 0.144611e-03_jprb, 0.101130e-03_jprb, 0.102530e-03_jprb, 0.569714e-04_jprb &
12766  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.100000e-04_jprb &
12767  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12768  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12769  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12770  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12771  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12772  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12773 xcw( 290, :) = (/ &
12774  & 0.942255e+00_jprb, 0.927172e+00_jprb, 0.911852e+00_jprb, 0.896306e+00_jprb &
12775  &, 0.880543e+00_jprb, 0.864574e+00_jprb, 0.848414e+00_jprb &
12776  &, 0.832070e+00_jprb, 0.815557e+00_jprb, 0.798885e+00_jprb, 0.782067e+00_jprb &
12777  &, 0.765116e+00_jprb, 0.748045e+00_jprb, 0.730866e+00_jprb &
12778  &, 0.713597e+00_jprb, 0.696246e+00_jprb, 0.678830e+00_jprb, 0.661365e+00_jprb &
12779  &, 0.643864e+00_jprb, 0.626341e+00_jprb, 0.608816e+00_jprb &
12780  &, 0.591304e+00_jprb, 0.573818e+00_jprb, 0.556376e+00_jprb, 0.538996e+00_jprb &
12781  &, 0.521692e+00_jprb, 0.504488e+00_jprb, 0.487394e+00_jprb &
12782  &, 0.470429e+00_jprb, 0.453613e+00_jprb, 0.436965e+00_jprb, 0.420496e+00_jprb &
12783  &, 0.404227e+00_jprb, 0.388176e+00_jprb, 0.372358e+00_jprb &
12784  &, 0.356789e+00_jprb, 0.341482e+00_jprb, 0.326463e+00_jprb, 0.311733e+00_jprb &
12785  &, 0.297325e+00_jprb, 0.283221e+00_jprb, 0.269467e+00_jprb &
12786  &, 0.256053e+00_jprb, 0.243004e+00_jprb, 0.230310e+00_jprb, 0.218003e+00_jprb &
12787  &, 0.206070e+00_jprb, 0.194532e+00_jprb, 0.183384e+00_jprb &
12788  &, 0.172641e+00_jprb, 0.162295e+00_jprb, 0.152346e+00_jprb, 0.142805e+00_jprb &
12789  &, 0.133669e+00_jprb, 0.124929e+00_jprb, 0.116592e+00_jprb &
12790  &, 0.108645e+00_jprb, 0.101088e+00_jprb, 0.939005e-01_jprb, 0.871106e-01_jprb &
12791  &, 0.806771e-01_jprb, 0.745879e-01_jprb, 0.688632e-01_jprb &
12792  &, 0.634687e-01_jprb, 0.584207e-01_jprb, 0.536780e-01_jprb, 0.492330e-01_jprb &
12793  &, 0.450955e-01_jprb, 0.412343e-01_jprb, 0.376343e-01_jprb &
12794  &, 0.342993e-01_jprb, 0.312101e-01_jprb, 0.283450e-01_jprb, 0.257017e-01_jprb &
12795  &, 0.232536e-01_jprb, 0.210178e-01_jprb, 0.189643e-01_jprb &
12796  &, 0.170838e-01_jprb, 0.153658e-01_jprb, 0.137981e-01_jprb, 0.123667e-01_jprb &
12797  &, 0.110562e-01_jprb, 0.987614e-02_jprb, 0.880889e-02_jprb &
12798  &, 0.783509e-02_jprb, 0.696182e-02_jprb, 0.616746e-02_jprb, 0.545782e-02_jprb &
12799  &, 0.483888e-02_jprb, 0.425567e-02_jprb, 0.374220e-02_jprb &
12800  &, 0.330316e-02_jprb, 0.291108e-02_jprb, 0.253632e-02_jprb, 0.221377e-02_jprb &
12801  &, 0.194672e-02_jprb, 0.170396e-02_jprb, 0.145196e-02_jprb &
12802  &, 0.126211e-02_jprb, 0.110157e-02_jprb, 0.935064e-03_jprb, 0.837759e-03_jprb &
12803  &, 0.698577e-03_jprb, 0.593336e-03_jprb, 0.523887e-03_jprb &
12804  &, 0.451942e-03_jprb, 0.377463e-03_jprb, 0.300415e-03_jprb, 0.262914e-03_jprb &
12805  &, 0.224115e-03_jprb, 0.183998e-03_jprb, 0.142546e-03_jprb &
12806  &, 0.144611e-03_jprb, 0.101130e-03_jprb, 0.102530e-03_jprb, 0.569714e-04_jprb &
12807  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.100000e-04_jprb &
12808  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12809  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12810  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12811  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12812  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12813  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12814 xcw( 291, :) = (/ &
12815  & 0.942536e+00_jprb, 0.927521e+00_jprb, 0.912265e+00_jprb, 0.896782e+00_jprb &
12816  &, 0.881081e+00_jprb, 0.865173e+00_jprb, 0.849070e+00_jprb &
12817  &, 0.832783e+00_jprb, 0.816324e+00_jprb, 0.799704e+00_jprb, 0.782938e+00_jprb &
12818  &, 0.766036e+00_jprb, 0.749012e+00_jprb, 0.731878e+00_jprb &
12819  &, 0.714650e+00_jprb, 0.697340e+00_jprb, 0.679964e+00_jprb, 0.662535e+00_jprb &
12820  &, 0.645066e+00_jprb, 0.627578e+00_jprb, 0.610081e+00_jprb &
12821  &, 0.592593e+00_jprb, 0.575134e+00_jprb, 0.557712e+00_jprb, 0.540353e+00_jprb &
12822  &, 0.523067e+00_jprb, 0.505878e+00_jprb, 0.488798e+00_jprb &
12823  &, 0.471845e+00_jprb, 0.455036e+00_jprb, 0.438390e+00_jprb, 0.421927e+00_jprb &
12824  &, 0.405659e+00_jprb, 0.389605e+00_jprb, 0.373782e+00_jprb &
12825  &, 0.358203e+00_jprb, 0.342894e+00_jprb, 0.327861e+00_jprb, 0.313126e+00_jprb &
12826  &, 0.298692e+00_jprb, 0.284581e+00_jprb, 0.270796e+00_jprb &
12827  &, 0.257371e+00_jprb, 0.244287e+00_jprb, 0.231578e+00_jprb, 0.219243e+00_jprb &
12828  &, 0.207280e+00_jprb, 0.195709e+00_jprb, 0.184538e+00_jprb &
12829  &, 0.173758e+00_jprb, 0.163372e+00_jprb, 0.153393e+00_jprb, 0.143821e+00_jprb &
12830  &, 0.134651e+00_jprb, 0.125876e+00_jprb, 0.117501e+00_jprb &
12831  &, 0.109513e+00_jprb, 0.101928e+00_jprb, 0.947117e-01_jprb, 0.878740e-01_jprb &
12832  &, 0.814070e-01_jprb, 0.752823e-01_jprb, 0.695200e-01_jprb &
12833  &, 0.641039e-01_jprb, 0.590142e-01_jprb, 0.542277e-01_jprb, 0.497560e-01_jprb &
12834  &, 0.455903e-01_jprb, 0.416993e-01_jprb, 0.380680e-01_jprb &
12835  &, 0.347000e-01_jprb, 0.315762e-01_jprb, 0.286967e-01_jprb, 0.260383e-01_jprb &
12836  &, 0.235742e-01_jprb, 0.213216e-01_jprb, 0.192265e-01_jprb &
12837  &, 0.173270e-01_jprb, 0.155891e-01_jprb, 0.140004e-01_jprb, 0.125473e-01_jprb &
12838  &, 0.112403e-01_jprb, 0.100370e-01_jprb, 0.894552e-02_jprb &
12839  &, 0.797432e-02_jprb, 0.707532e-02_jprb, 0.628309e-02_jprb, 0.557561e-02_jprb &
12840  &, 0.492886e-02_jprb, 0.434730e-02_jprb, 0.383551e-02_jprb &
12841  &, 0.336649e-02_jprb, 0.294331e-02_jprb, 0.260194e-02_jprb, 0.228055e-02_jprb &
12842  &, 0.198070e-02_jprb, 0.173853e-02_jprb, 0.148713e-02_jprb &
12843  &, 0.129789e-02_jprb, 0.113795e-02_jprb, 0.972066e-03_jprb, 0.837759e-03_jprb &
12844  &, 0.736831e-03_jprb, 0.632225e-03_jprb, 0.523887e-03_jprb &
12845  &, 0.451942e-03_jprb, 0.377463e-03_jprb, 0.341902e-03_jprb, 0.262914e-03_jprb &
12846  &, 0.224115e-03_jprb, 0.183998e-03_jprb, 0.142546e-03_jprb &
12847  &, 0.144611e-03_jprb, 0.101130e-03_jprb, 0.102530e-03_jprb, 0.569714e-04_jprb &
12848  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.100000e-04_jprb &
12849  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12850  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12851  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12852  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12853  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12854  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12855 xcw( 292, :) = (/ &
12856  & 0.942817e+00_jprb, 0.927868e+00_jprb, 0.912677e+00_jprb, 0.897257e+00_jprb &
12857  &, 0.881617e+00_jprb, 0.865770e+00_jprb, 0.849725e+00_jprb &
12858  &, 0.833495e+00_jprb, 0.817090e+00_jprb, 0.800524e+00_jprb, 0.783808e+00_jprb &
12859  &, 0.766954e+00_jprb, 0.749977e+00_jprb, 0.732889e+00_jprb &
12860  &, 0.715704e+00_jprb, 0.698434e+00_jprb, 0.681096e+00_jprb, 0.663703e+00_jprb &
12861  &, 0.646269e+00_jprb, 0.628812e+00_jprb, 0.611345e+00_jprb &
12862  &, 0.593886e+00_jprb, 0.576450e+00_jprb, 0.559052e+00_jprb, 0.541713e+00_jprb &
12863  &, 0.524446e+00_jprb, 0.507267e+00_jprb, 0.490203e+00_jprb &
12864  &, 0.473256e+00_jprb, 0.456458e+00_jprb, 0.439819e+00_jprb, 0.423358e+00_jprb &
12865  &, 0.407092e+00_jprb, 0.391034e+00_jprb, 0.375211e+00_jprb &
12866  &, 0.359626e+00_jprb, 0.344305e+00_jprb, 0.329259e+00_jprb, 0.314510e+00_jprb &
12867  &, 0.300059e+00_jprb, 0.285930e+00_jprb, 0.272135e+00_jprb &
12868  &, 0.258678e+00_jprb, 0.245581e+00_jprb, 0.232846e+00_jprb, 0.220483e+00_jprb &
12869  &, 0.208490e+00_jprb, 0.196899e+00_jprb, 0.185692e+00_jprb &
12870  &, 0.174875e+00_jprb, 0.164462e+00_jprb, 0.154455e+00_jprb, 0.144852e+00_jprb &
12871  &, 0.135634e+00_jprb, 0.126838e+00_jprb, 0.118425e+00_jprb &
12872  &, 0.110397e+00_jprb, 0.102769e+00_jprb, 0.955229e-01_jprb, 0.886541e-01_jprb &
12873  &, 0.821370e-01_jprb, 0.759940e-01_jprb, 0.701945e-01_jprb &
12874  &, 0.647390e-01_jprb, 0.596078e-01_jprb, 0.547965e-01_jprb, 0.502984e-01_jprb &
12875  &, 0.460851e-01_jprb, 0.421643e-01_jprb, 0.385223e-01_jprb &
12876  &, 0.351217e-01_jprb, 0.319637e-01_jprb, 0.290485e-01_jprb, 0.263748e-01_jprb &
12877  &, 0.238948e-01_jprb, 0.216020e-01_jprb, 0.195126e-01_jprb &
12878  &, 0.175702e-01_jprb, 0.158123e-01_jprb, 0.142028e-01_jprb, 0.127537e-01_jprb &
12879  &, 0.113981e-01_jprb, 0.101979e-01_jprb, 0.910947e-02_jprb &
12880  &, 0.811356e-02_jprb, 0.721720e-02_jprb, 0.639872e-02_jprb, 0.566395e-02_jprb &
12881  &, 0.501884e-02_jprb, 0.443894e-02_jprb, 0.389771e-02_jprb &
12882  &, 0.342982e-02_jprb, 0.300778e-02_jprb, 0.263475e-02_jprb, 0.231395e-02_jprb &
12883  &, 0.201468e-02_jprb, 0.177310e-02_jprb, 0.152230e-02_jprb &
12884  &, 0.133366e-02_jprb, 0.113795e-02_jprb, 0.100907e-02_jprb, 0.875385e-03_jprb &
12885  &, 0.736831e-03_jprb, 0.632225e-03_jprb, 0.563417e-03_jprb &
12886  &, 0.451942e-03_jprb, 0.377463e-03_jprb, 0.341902e-03_jprb, 0.305067e-03_jprb &
12887  &, 0.224115e-03_jprb, 0.183998e-03_jprb, 0.186728e-03_jprb &
12888  &, 0.144611e-03_jprb, 0.101130e-03_jprb, 0.102530e-03_jprb, 0.569714e-04_jprb &
12889  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.100000e-04_jprb &
12890  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12891  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12892  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12893  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12894  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12895  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12896 xcw( 293, :) = (/ &
12897  & 0.943097e+00_jprb, 0.928215e+00_jprb, 0.913088e+00_jprb, 0.897733e+00_jprb &
12898  &, 0.882154e+00_jprb, 0.866367e+00_jprb, 0.850380e+00_jprb &
12899  &, 0.834206e+00_jprb, 0.817856e+00_jprb, 0.801342e+00_jprb, 0.784677e+00_jprb &
12900  &, 0.767872e+00_jprb, 0.750942e+00_jprb, 0.733899e+00_jprb &
12901  &, 0.716756e+00_jprb, 0.699527e+00_jprb, 0.682227e+00_jprb, 0.664870e+00_jprb &
12902  &, 0.647471e+00_jprb, 0.630046e+00_jprb, 0.612610e+00_jprb &
12903  &, 0.595176e+00_jprb, 0.577766e+00_jprb, 0.560391e+00_jprb, 0.543070e+00_jprb &
12904  &, 0.525821e+00_jprb, 0.508660e+00_jprb, 0.491607e+00_jprb &
12905  &, 0.474660e+00_jprb, 0.457880e+00_jprb, 0.441248e+00_jprb, 0.424790e+00_jprb &
12906  &, 0.408525e+00_jprb, 0.392467e+00_jprb, 0.376636e+00_jprb &
12907  &, 0.361049e+00_jprb, 0.345717e+00_jprb, 0.330667e+00_jprb, 0.315903e+00_jprb &
12908  &, 0.301436e+00_jprb, 0.287289e+00_jprb, 0.273475e+00_jprb &
12909  &, 0.259996e+00_jprb, 0.246875e+00_jprb, 0.234114e+00_jprb, 0.221723e+00_jprb &
12910  &, 0.209711e+00_jprb, 0.198088e+00_jprb, 0.186847e+00_jprb &
12911  &, 0.176005e+00_jprb, 0.165566e+00_jprb, 0.155516e+00_jprb, 0.145868e+00_jprb &
12912  &, 0.136631e+00_jprb, 0.127785e+00_jprb, 0.119333e+00_jprb &
12913  &, 0.111280e+00_jprb, 0.103625e+00_jprb, 0.963341e-01_jprb, 0.894175e-01_jprb &
12914  &, 0.828839e-01_jprb, 0.767058e-01_jprb, 0.708690e-01_jprb &
12915  &, 0.653742e-01_jprb, 0.602199e-01_jprb, 0.553652e-01_jprb, 0.508408e-01_jprb &
12916  &, 0.465997e-01_jprb, 0.426495e-01_jprb, 0.389559e-01_jprb &
12917  &, 0.355435e-01_jprb, 0.323729e-01_jprb, 0.294222e-01_jprb, 0.267114e-01_jprb &
12918  &, 0.241925e-01_jprb, 0.218824e-01_jprb, 0.197749e-01_jprb &
12919  &, 0.178378e-01_jprb, 0.160356e-01_jprb, 0.144305e-01_jprb, 0.129342e-01_jprb &
12920  &, 0.115822e-01_jprb, 0.103587e-01_jprb, 0.924610e-02_jprb &
12921  &, 0.822495e-02_jprb, 0.733069e-02_jprb, 0.651436e-02_jprb, 0.578174e-02_jprb &
12922  &, 0.510882e-02_jprb, 0.450003e-02_jprb, 0.399102e-02_jprb &
12923  &, 0.349315e-02_jprb, 0.307225e-02_jprb, 0.270037e-02_jprb, 0.234734e-02_jprb &
12924  &, 0.204866e-02_jprb, 0.180768e-02_jprb, 0.155747e-02_jprb &
12925  &, 0.136944e-02_jprb, 0.117434e-02_jprb, 0.100907e-02_jprb, 0.875385e-03_jprb &
12926  &, 0.775085e-03_jprb, 0.671114e-03_jprb, 0.563417e-03_jprb &
12927  &, 0.492118e-03_jprb, 0.418292e-03_jprb, 0.341902e-03_jprb, 0.305067e-03_jprb &
12928  &, 0.266938e-03_jprb, 0.227497e-03_jprb, 0.186728e-03_jprb &
12929  &, 0.144611e-03_jprb, 0.101130e-03_jprb, 0.102530e-03_jprb, 0.569714e-04_jprb &
12930  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
12931  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12932  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12933  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12934  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12935  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12936  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12937 xcw( 294, :) = (/ &
12938  & 0.943377e+00_jprb, 0.928560e+00_jprb, 0.913500e+00_jprb, 0.898207e+00_jprb &
12939  &, 0.882691e+00_jprb, 0.866962e+00_jprb, 0.851034e+00_jprb &
12940  &, 0.834917e+00_jprb, 0.818621e+00_jprb, 0.802160e+00_jprb, 0.785546e+00_jprb &
12941  &, 0.768790e+00_jprb, 0.751907e+00_jprb, 0.734908e+00_jprb &
12942  &, 0.717808e+00_jprb, 0.700620e+00_jprb, 0.683360e+00_jprb, 0.666038e+00_jprb &
12943  &, 0.648675e+00_jprb, 0.631280e+00_jprb, 0.613871e+00_jprb &
12944  &, 0.596466e+00_jprb, 0.579082e+00_jprb, 0.561731e+00_jprb, 0.544431e+00_jprb &
12945  &, 0.527199e+00_jprb, 0.510054e+00_jprb, 0.493011e+00_jprb &
12946  &, 0.476091e+00_jprb, 0.459307e+00_jprb, 0.442677e+00_jprb, 0.426225e+00_jprb &
12947  &, 0.409957e+00_jprb, 0.393901e+00_jprb, 0.378069e+00_jprb &
12948  &, 0.362472e+00_jprb, 0.347138e+00_jprb, 0.332066e+00_jprb, 0.317287e+00_jprb &
12949  &, 0.302814e+00_jprb, 0.288648e+00_jprb, 0.274814e+00_jprb &
12950  &, 0.261325e+00_jprb, 0.248169e+00_jprb, 0.235394e+00_jprb, 0.222975e+00_jprb &
12951  &, 0.210933e+00_jprb, 0.199277e+00_jprb, 0.188014e+00_jprb &
12952  &, 0.177135e+00_jprb, 0.166656e+00_jprb, 0.156578e+00_jprb, 0.146898e+00_jprb &
12953  &, 0.137628e+00_jprb, 0.128746e+00_jprb, 0.120272e+00_jprb &
12954  &, 0.112179e+00_jprb, 0.104465e+00_jprb, 0.971453e-01_jprb, 0.901976e-01_jprb &
12955  &, 0.836308e-01_jprb, 0.774175e-01_jprb, 0.715435e-01_jprb &
12956  &, 0.660093e-01_jprb, 0.608135e-01_jprb, 0.559528e-01_jprb, 0.513832e-01_jprb &
12957  &, 0.471143e-01_jprb, 0.431145e-01_jprb, 0.394102e-01_jprb &
12958  &, 0.359652e-01_jprb, 0.327604e-01_jprb, 0.297959e-01_jprb, 0.270480e-01_jprb &
12959  &, 0.245131e-01_jprb, 0.221862e-01_jprb, 0.200372e-01_jprb &
12960  &, 0.180810e-01_jprb, 0.162837e-01_jprb, 0.146329e-01_jprb, 0.131406e-01_jprb &
12961  &, 0.117663e-01_jprb, 0.105196e-01_jprb, 0.941005e-02_jprb &
12962  &, 0.836418e-02_jprb, 0.744419e-02_jprb, 0.662999e-02_jprb, 0.587009e-02_jprb &
12963  &, 0.519880e-02_jprb, 0.459166e-02_jprb, 0.405322e-02_jprb &
12964  &, 0.355648e-02_jprb, 0.313672e-02_jprb, 0.276599e-02_jprb, 0.241412e-02_jprb &
12965  &, 0.211661e-02_jprb, 0.184225e-02_jprb, 0.159264e-02_jprb &
12966  &, 0.140521e-02_jprb, 0.121073e-02_jprb, 0.104607e-02_jprb, 0.913010e-03_jprb &
12967  &, 0.775085e-03_jprb, 0.671114e-03_jprb, 0.563417e-03_jprb &
12968  &, 0.492118e-03_jprb, 0.418292e-03_jprb, 0.341902e-03_jprb, 0.305067e-03_jprb &
12969  &, 0.266938e-03_jprb, 0.227497e-03_jprb, 0.186728e-03_jprb &
12970  &, 0.144611e-03_jprb, 0.101130e-03_jprb, 0.102530e-03_jprb, 0.103943e-03_jprb &
12971  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
12972  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12973  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12974  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12975  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12976  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
12977  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
12978 
12979 IF (lhook) CALL dr_hook('SU_MCICA:PART42',1,zhook_handle)
12980 END SUBROUTINE part42
12981 
12982 #ifdef VPP5000
12983 !OCL SCALAR
12984 #endif
12985 !option! -Nv -NO
12986 #ifdef RS6K
12987 @process nooptimize
12988 #endif
12989 !pgi$r opt=0
12990 SUBROUTINE part43
12991 
12992 REAL(KIND=JPRB) :: ZHOOK_HANDLE
12993 IF (lhook) CALL dr_hook('SU_MCICA:PART43',0,zhook_handle)
12994 
12995 xcw( 295, :) = (/ &
12996  & 0.943656e+00_jprb, 0.928907e+00_jprb, 0.913910e+00_jprb, 0.898681e+00_jprb &
12997  &, 0.883226e+00_jprb, 0.867558e+00_jprb, 0.851687e+00_jprb &
12998  &, 0.835626e+00_jprb, 0.819385e+00_jprb, 0.802977e+00_jprb, 0.786413e+00_jprb &
12999  &, 0.769707e+00_jprb, 0.752870e+00_jprb, 0.735916e+00_jprb &
13000  &, 0.718859e+00_jprb, 0.701713e+00_jprb, 0.684491e+00_jprb, 0.667206e+00_jprb &
13001  &, 0.649875e+00_jprb, 0.632515e+00_jprb, 0.615136e+00_jprb &
13002  &, 0.597759e+00_jprb, 0.580397e+00_jprb, 0.563067e+00_jprb, 0.545788e+00_jprb &
13003  &, 0.528578e+00_jprb, 0.511447e+00_jprb, 0.494419e+00_jprb &
13004  &, 0.477507e+00_jprb, 0.460733e+00_jprb, 0.444110e+00_jprb, 0.427661e+00_jprb &
13005  &, 0.411394e+00_jprb, 0.395334e+00_jprb, 0.379498e+00_jprb &
13006  &, 0.363895e+00_jprb, 0.348549e+00_jprb, 0.333474e+00_jprb, 0.318690e+00_jprb &
13007  &, 0.304191e+00_jprb, 0.290018e+00_jprb, 0.276165e+00_jprb &
13008  &, 0.262643e+00_jprb, 0.249475e+00_jprb, 0.236662e+00_jprb, 0.224227e+00_jprb &
13009  &, 0.212155e+00_jprb, 0.200467e+00_jprb, 0.189168e+00_jprb &
13010  &, 0.178265e+00_jprb, 0.167759e+00_jprb, 0.157653e+00_jprb, 0.147943e+00_jprb &
13011  &, 0.138625e+00_jprb, 0.129708e+00_jprb, 0.121196e+00_jprb &
13012  &, 0.113062e+00_jprb, 0.105338e+00_jprb, 0.979728e-01_jprb, 0.909942e-01_jprb &
13013  &, 0.843777e-01_jprb, 0.781293e-01_jprb, 0.722180e-01_jprb &
13014  &, 0.666626e-01_jprb, 0.614256e-01_jprb, 0.565215e-01_jprb, 0.519256e-01_jprb &
13015  &, 0.476289e-01_jprb, 0.435998e-01_jprb, 0.398645e-01_jprb &
13016  &, 0.363870e-01_jprb, 0.331480e-01_jprb, 0.301696e-01_jprb, 0.273846e-01_jprb &
13017  &, 0.248337e-01_jprb, 0.224900e-01_jprb, 0.203233e-01_jprb &
13018  &, 0.183242e-01_jprb, 0.165070e-01_jprb, 0.148606e-01_jprb, 0.133212e-01_jprb &
13019  &, 0.119504e-01_jprb, 0.106804e-01_jprb, 0.954668e-02_jprb &
13020  &, 0.850342e-02_jprb, 0.758607e-02_jprb, 0.674562e-02_jprb, 0.598788e-02_jprb &
13021  &, 0.528878e-02_jprb, 0.468329e-02_jprb, 0.411542e-02_jprb &
13022  &, 0.365147e-02_jprb, 0.320118e-02_jprb, 0.279880e-02_jprb, 0.244751e-02_jprb &
13023  &, 0.215059e-02_jprb, 0.187682e-02_jprb, 0.162781e-02_jprb &
13024  &, 0.144099e-02_jprb, 0.124711e-02_jprb, 0.108307e-02_jprb, 0.913010e-03_jprb &
13025  &, 0.813339e-03_jprb, 0.671114e-03_jprb, 0.602947e-03_jprb &
13026  &, 0.492118e-03_jprb, 0.418292e-03_jprb, 0.383390e-03_jprb, 0.305067e-03_jprb &
13027  &, 0.266938e-03_jprb, 0.227497e-03_jprb, 0.186728e-03_jprb &
13028  &, 0.144611e-03_jprb, 0.146694e-03_jprb, 0.102530e-03_jprb, 0.103943e-03_jprb &
13029  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
13030  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13031  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13032  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13033  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13034  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13035  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13036 xcw( 296, :) = (/ &
13037  & 0.943936e+00_jprb, 0.929253e+00_jprb, 0.914312e+00_jprb, 0.899154e+00_jprb &
13038  &, 0.883760e+00_jprb, 0.868153e+00_jprb, 0.852340e+00_jprb &
13039  &, 0.836335e+00_jprb, 0.820149e+00_jprb, 0.803794e+00_jprb, 0.787281e+00_jprb &
13040  &, 0.770622e+00_jprb, 0.753834e+00_jprb, 0.736925e+00_jprb &
13041  &, 0.719911e+00_jprb, 0.702804e+00_jprb, 0.685620e+00_jprb, 0.668373e+00_jprb &
13042  &, 0.651077e+00_jprb, 0.633745e+00_jprb, 0.616400e+00_jprb &
13043  &, 0.599049e+00_jprb, 0.581713e+00_jprb, 0.564407e+00_jprb, 0.547149e+00_jprb &
13044  &, 0.529953e+00_jprb, 0.512840e+00_jprb, 0.495824e+00_jprb &
13045  &, 0.478926e+00_jprb, 0.462160e+00_jprb, 0.445544e+00_jprb, 0.429096e+00_jprb &
13046  &, 0.412831e+00_jprb, 0.396772e+00_jprb, 0.380931e+00_jprb &
13047  &, 0.365328e+00_jprb, 0.349970e+00_jprb, 0.334882e+00_jprb, 0.320084e+00_jprb &
13048  &, 0.305579e+00_jprb, 0.291378e+00_jprb, 0.277504e+00_jprb &
13049  &, 0.263972e+00_jprb, 0.250780e+00_jprb, 0.237942e+00_jprb, 0.225479e+00_jprb &
13050  &, 0.213389e+00_jprb, 0.201669e+00_jprb, 0.190349e+00_jprb &
13051  &, 0.179408e+00_jprb, 0.168863e+00_jprb, 0.158728e+00_jprb, 0.148973e+00_jprb &
13052  &, 0.139637e+00_jprb, 0.130684e+00_jprb, 0.122135e+00_jprb &
13053  &, 0.113961e+00_jprb, 0.106194e+00_jprb, 0.988002e-01_jprb, 0.917743e-01_jprb &
13054  &, 0.851246e-01_jprb, 0.788410e-01_jprb, 0.729103e-01_jprb &
13055  &, 0.673158e-01_jprb, 0.620377e-01_jprb, 0.571092e-01_jprb, 0.524680e-01_jprb &
13056  &, 0.481434e-01_jprb, 0.440850e-01_jprb, 0.403188e-01_jprb &
13057  &, 0.368088e-01_jprb, 0.335571e-01_jprb, 0.305433e-01_jprb, 0.277436e-01_jprb &
13058  &, 0.251543e-01_jprb, 0.227938e-01_jprb, 0.206094e-01_jprb &
13059  &, 0.185918e-01_jprb, 0.167550e-01_jprb, 0.150630e-01_jprb, 0.135276e-01_jprb &
13060  &, 0.121345e-01_jprb, 0.108681e-01_jprb, 0.971064e-02_jprb &
13061  &, 0.867051e-02_jprb, 0.769957e-02_jprb, 0.686125e-02_jprb, 0.607622e-02_jprb &
13062  &, 0.537876e-02_jprb, 0.477492e-02_jprb, 0.420873e-02_jprb &
13063  &, 0.371480e-02_jprb, 0.326565e-02_jprb, 0.286442e-02_jprb, 0.251429e-02_jprb &
13064  &, 0.218457e-02_jprb, 0.191139e-02_jprb, 0.166298e-02_jprb &
13065  &, 0.144099e-02_jprb, 0.128350e-02_jprb, 0.108307e-02_jprb, 0.950636e-03_jprb &
13066  &, 0.813339e-03_jprb, 0.710003e-03_jprb, 0.602947e-03_jprb &
13067  &, 0.532294e-03_jprb, 0.459121e-03_jprb, 0.383390e-03_jprb, 0.305067e-03_jprb &
13068  &, 0.266938e-03_jprb, 0.227497e-03_jprb, 0.186728e-03_jprb &
13069  &, 0.144611e-03_jprb, 0.146694e-03_jprb, 0.102530e-03_jprb, 0.103943e-03_jprb &
13070  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
13071  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13072  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13073  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13074  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13075  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13076  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13077 xcw( 297, :) = (/ &
13078  & 0.944215e+00_jprb, 0.929598e+00_jprb, 0.914730e+00_jprb, 0.899627e+00_jprb &
13079  &, 0.884295e+00_jprb, 0.868746e+00_jprb, 0.852993e+00_jprb &
13080  &, 0.837044e+00_jprb, 0.820912e+00_jprb, 0.804609e+00_jprb, 0.788148e+00_jprb &
13081  &, 0.771539e+00_jprb, 0.754796e+00_jprb, 0.737932e+00_jprb &
13082  &, 0.720960e+00_jprb, 0.703896e+00_jprb, 0.686750e+00_jprb, 0.669539e+00_jprb &
13083  &, 0.652278e+00_jprb, 0.634980e+00_jprb, 0.617662e+00_jprb &
13084  &, 0.600338e+00_jprb, 0.583029e+00_jprb, 0.565746e+00_jprb, 0.548509e+00_jprb &
13085  &, 0.531331e+00_jprb, 0.514233e+00_jprb, 0.497232e+00_jprb &
13086  &, 0.480345e+00_jprb, 0.463586e+00_jprb, 0.446977e+00_jprb, 0.430531e+00_jprb &
13087  &, 0.414273e+00_jprb, 0.398210e+00_jprb, 0.382369e+00_jprb &
13088  &, 0.366751e+00_jprb, 0.351391e+00_jprb, 0.336300e+00_jprb, 0.321477e+00_jprb &
13089  &, 0.306966e+00_jprb, 0.292748e+00_jprb, 0.278855e+00_jprb &
13090  &, 0.265300e+00_jprb, 0.252086e+00_jprb, 0.239233e+00_jprb, 0.226731e+00_jprb &
13091  &, 0.214611e+00_jprb, 0.202871e+00_jprb, 0.191516e+00_jprb &
13092  &, 0.180551e+00_jprb, 0.169980e+00_jprb, 0.159803e+00_jprb, 0.150018e+00_jprb &
13093  &, 0.140648e+00_jprb, 0.131661e+00_jprb, 0.123074e+00_jprb &
13094  &, 0.114875e+00_jprb, 0.107066e+00_jprb, 0.996277e-01_jprb, 0.925709e-01_jprb &
13095  &, 0.858885e-01_jprb, 0.795702e-01_jprb, 0.736026e-01_jprb &
13096  &, 0.679691e-01_jprb, 0.626684e-01_jprb, 0.576969e-01_jprb, 0.530298e-01_jprb &
13097  &, 0.486580e-01_jprb, 0.445904e-01_jprb, 0.407938e-01_jprb &
13098  &, 0.372516e-01_jprb, 0.339662e-01_jprb, 0.309169e-01_jprb, 0.281026e-01_jprb &
13099  &, 0.254978e-01_jprb, 0.230976e-01_jprb, 0.208955e-01_jprb &
13100  &, 0.188593e-01_jprb, 0.170031e-01_jprb, 0.152907e-01_jprb, 0.137339e-01_jprb &
13101  &, 0.123187e-01_jprb, 0.110290e-01_jprb, 0.987459e-02_jprb &
13102  &, 0.880974e-02_jprb, 0.784144e-02_jprb, 0.697689e-02_jprb, 0.619401e-02_jprb &
13103  &, 0.549873e-02_jprb, 0.486656e-02_jprb, 0.430203e-02_jprb &
13104  &, 0.377813e-02_jprb, 0.333012e-02_jprb, 0.293003e-02_jprb, 0.258107e-02_jprb &
13105  &, 0.225252e-02_jprb, 0.194596e-02_jprb, 0.169815e-02_jprb &
13106  &, 0.147676e-02_jprb, 0.128350e-02_jprb, 0.112008e-02_jprb, 0.988261e-03_jprb &
13107  &, 0.851594e-03_jprb, 0.710003e-03_jprb, 0.602947e-03_jprb &
13108  &, 0.532294e-03_jprb, 0.459121e-03_jprb, 0.383390e-03_jprb, 0.347219e-03_jprb &
13109  &, 0.266938e-03_jprb, 0.227497e-03_jprb, 0.186728e-03_jprb &
13110  &, 0.144611e-03_jprb, 0.146694e-03_jprb, 0.102530e-03_jprb, 0.103943e-03_jprb &
13111  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
13112  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13113  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13114  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13115  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13116  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13117  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13118 xcw( 298, :) = (/ &
13119  & 0.944494e+00_jprb, 0.929942e+00_jprb, 0.915139e+00_jprb, 0.900099e+00_jprb &
13120  &, 0.884828e+00_jprb, 0.869340e+00_jprb, 0.853644e+00_jprb &
13121  &, 0.837751e+00_jprb, 0.821674e+00_jprb, 0.805424e+00_jprb, 0.789013e+00_jprb &
13122  &, 0.772453e+00_jprb, 0.755757e+00_jprb, 0.738939e+00_jprb &
13123  &, 0.722011e+00_jprb, 0.704986e+00_jprb, 0.687879e+00_jprb, 0.670705e+00_jprb &
13124  &, 0.653479e+00_jprb, 0.636214e+00_jprb, 0.618926e+00_jprb &
13125  &, 0.601631e+00_jprb, 0.584345e+00_jprb, 0.567086e+00_jprb, 0.549870e+00_jprb &
13126  &, 0.532710e+00_jprb, 0.515627e+00_jprb, 0.498640e+00_jprb &
13127  &, 0.481765e+00_jprb, 0.465013e+00_jprb, 0.448410e+00_jprb, 0.431971e+00_jprb &
13128  &, 0.415710e+00_jprb, 0.399652e+00_jprb, 0.383802e+00_jprb &
13129  &, 0.368183e+00_jprb, 0.352812e+00_jprb, 0.337708e+00_jprb, 0.322881e+00_jprb &
13130  &, 0.308343e+00_jprb, 0.294118e+00_jprb, 0.280216e+00_jprb &
13131  &, 0.266629e+00_jprb, 0.253403e+00_jprb, 0.240513e+00_jprb, 0.227995e+00_jprb &
13132  &, 0.215845e+00_jprb, 0.204085e+00_jprb, 0.192696e+00_jprb &
13133  &, 0.181694e+00_jprb, 0.171097e+00_jprb, 0.160878e+00_jprb, 0.151076e+00_jprb &
13134  &, 0.141660e+00_jprb, 0.132637e+00_jprb, 0.124012e+00_jprb &
13135  &, 0.115774e+00_jprb, 0.107922e+00_jprb, 0.100471e+00_jprb, 0.933676e-01_jprb &
13136  &, 0.866524e-01_jprb, 0.802993e-01_jprb, 0.742948e-01_jprb &
13137  &, 0.686224e-01_jprb, 0.632990e-01_jprb, 0.582846e-01_jprb, 0.535916e-01_jprb &
13138  &, 0.491924e-01_jprb, 0.450757e-01_jprb, 0.412481e-01_jprb &
13139  &, 0.376734e-01_jprb, 0.343753e-01_jprb, 0.312906e-01_jprb, 0.284616e-01_jprb &
13140  &, 0.258184e-01_jprb, 0.234014e-01_jprb, 0.211577e-01_jprb &
13141  &, 0.191268e-01_jprb, 0.172512e-01_jprb, 0.155184e-01_jprb, 0.139403e-01_jprb &
13142  &, 0.125028e-01_jprb, 0.112166e-01_jprb, 0.100112e-01_jprb &
13143  &, 0.894898e-02_jprb, 0.798331e-02_jprb, 0.709252e-02_jprb, 0.631180e-02_jprb &
13144  &, 0.558871e-02_jprb, 0.495819e-02_jprb, 0.436424e-02_jprb &
13145  &, 0.384146e-02_jprb, 0.339459e-02_jprb, 0.299565e-02_jprb, 0.261446e-02_jprb &
13146  &, 0.228650e-02_jprb, 0.201510e-02_jprb, 0.173332e-02_jprb &
13147  &, 0.151254e-02_jprb, 0.131988e-02_jprb, 0.115708e-02_jprb, 0.988261e-03_jprb &
13148  &, 0.851594e-03_jprb, 0.748892e-03_jprb, 0.642477e-03_jprb &
13149  &, 0.532294e-03_jprb, 0.459121e-03_jprb, 0.383390e-03_jprb, 0.347219e-03_jprb &
13150  &, 0.266938e-03_jprb, 0.227497e-03_jprb, 0.186728e-03_jprb &
13151  &, 0.189481e-03_jprb, 0.146694e-03_jprb, 0.102530e-03_jprb, 0.103943e-03_jprb &
13152  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
13153  &, 0.598563e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13154  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13155  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13156  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13157  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13158  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13159 xcw( 299, :) = (/ &
13160  & 0.944772e+00_jprb, 0.930286e+00_jprb, 0.915548e+00_jprb, 0.900571e+00_jprb &
13161  &, 0.885361e+00_jprb, 0.869933e+00_jprb, 0.854294e+00_jprb &
13162  &, 0.838458e+00_jprb, 0.822436e+00_jprb, 0.806238e+00_jprb, 0.789879e+00_jprb &
13163  &, 0.773368e+00_jprb, 0.756718e+00_jprb, 0.739943e+00_jprb &
13164  &, 0.723059e+00_jprb, 0.706076e+00_jprb, 0.689009e+00_jprb, 0.671872e+00_jprb &
13165  &, 0.654679e+00_jprb, 0.637445e+00_jprb, 0.620188e+00_jprb &
13166  &, 0.602921e+00_jprb, 0.585661e+00_jprb, 0.568425e+00_jprb, 0.551230e+00_jprb &
13167  &, 0.534088e+00_jprb, 0.517024e+00_jprb, 0.500048e+00_jprb &
13168  &, 0.483184e+00_jprb, 0.466443e+00_jprb, 0.449847e+00_jprb, 0.433411e+00_jprb &
13169  &, 0.417155e+00_jprb, 0.401090e+00_jprb, 0.385240e+00_jprb &
13170  &, 0.369616e+00_jprb, 0.354242e+00_jprb, 0.339125e+00_jprb, 0.324285e+00_jprb &
13171  &, 0.309741e+00_jprb, 0.295498e+00_jprb, 0.281566e+00_jprb &
13172  &, 0.267969e+00_jprb, 0.254708e+00_jprb, 0.241805e+00_jprb, 0.229259e+00_jprb &
13173  &, 0.217092e+00_jprb, 0.205287e+00_jprb, 0.193876e+00_jprb &
13174  &, 0.182851e+00_jprb, 0.172214e+00_jprb, 0.161967e+00_jprb, 0.152121e+00_jprb &
13175  &, 0.142672e+00_jprb, 0.133613e+00_jprb, 0.124951e+00_jprb &
13176  &, 0.116688e+00_jprb, 0.108810e+00_jprb, 0.101299e+00_jprb, 0.941808e-01_jprb &
13177  &, 0.874163e-01_jprb, 0.810284e-01_jprb, 0.749871e-01_jprb &
13178  &, 0.692757e-01_jprb, 0.639112e-01_jprb, 0.588723e-01_jprb, 0.541533e-01_jprb &
13179  &, 0.497268e-01_jprb, 0.455811e-01_jprb, 0.417230e-01_jprb &
13180  &, 0.381162e-01_jprb, 0.347845e-01_jprb, 0.316863e-01_jprb, 0.288206e-01_jprb &
13181  &, 0.261619e-01_jprb, 0.237051e-01_jprb, 0.214677e-01_jprb &
13182  &, 0.193944e-01_jprb, 0.174744e-01_jprb, 0.157461e-01_jprb, 0.141467e-01_jprb &
13183  &, 0.127132e-01_jprb, 0.113775e-01_jprb, 0.101752e-01_jprb &
13184  &, 0.908821e-02_jprb, 0.809681e-02_jprb, 0.720815e-02_jprb, 0.640014e-02_jprb &
13185  &, 0.567869e-02_jprb, 0.504982e-02_jprb, 0.445754e-02_jprb &
13186  &, 0.393645e-02_jprb, 0.345906e-02_jprb, 0.302846e-02_jprb, 0.268124e-02_jprb &
13187  &, 0.235446e-02_jprb, 0.204967e-02_jprb, 0.180366e-02_jprb &
13188  &, 0.154831e-02_jprb, 0.135627e-02_jprb, 0.119408e-02_jprb, 0.102589e-02_jprb &
13189  &, 0.889848e-03_jprb, 0.748892e-03_jprb, 0.642477e-03_jprb &
13190  &, 0.572471e-03_jprb, 0.499950e-03_jprb, 0.424878e-03_jprb, 0.347219e-03_jprb &
13191  &, 0.309761e-03_jprb, 0.270997e-03_jprb, 0.230910e-03_jprb &
13192  &, 0.189481e-03_jprb, 0.146694e-03_jprb, 0.102530e-03_jprb, 0.103943e-03_jprb &
13193  &, 0.576837e-04_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
13194  &, 0.598563e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13195  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13196  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13197  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13198  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13199  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13200 xcw( 300, :) = (/ &
13201  & 0.945050e+00_jprb, 0.930630e+00_jprb, 0.915956e+00_jprb, 0.901042e+00_jprb &
13202  &, 0.885894e+00_jprb, 0.870524e+00_jprb, 0.854944e+00_jprb &
13203  &, 0.839165e+00_jprb, 0.823196e+00_jprb, 0.807052e+00_jprb, 0.790742e+00_jprb &
13204  &, 0.774280e+00_jprb, 0.757679e+00_jprb, 0.740951e+00_jprb &
13205  &, 0.724108e+00_jprb, 0.707166e+00_jprb, 0.690137e+00_jprb, 0.673036e+00_jprb &
13206  &, 0.655879e+00_jprb, 0.638679e+00_jprb, 0.621449e+00_jprb &
13207  &, 0.604211e+00_jprb, 0.586977e+00_jprb, 0.569765e+00_jprb, 0.552591e+00_jprb &
13208  &, 0.535467e+00_jprb, 0.518421e+00_jprb, 0.501460e+00_jprb &
13209  &, 0.484603e+00_jprb, 0.467874e+00_jprb, 0.451285e+00_jprb, 0.434850e+00_jprb &
13210  &, 0.418597e+00_jprb, 0.402532e+00_jprb, 0.386683e+00_jprb &
13211  &, 0.371057e+00_jprb, 0.355673e+00_jprb, 0.340543e+00_jprb, 0.325698e+00_jprb &
13212  &, 0.311129e+00_jprb, 0.296868e+00_jprb, 0.282928e+00_jprb &
13213  &, 0.269309e+00_jprb, 0.256025e+00_jprb, 0.243096e+00_jprb, 0.230535e+00_jprb &
13214  &, 0.218326e+00_jprb, 0.206501e+00_jprb, 0.195056e+00_jprb &
13215  &, 0.183994e+00_jprb, 0.173331e+00_jprb, 0.163056e+00_jprb, 0.153179e+00_jprb &
13216  &, 0.143698e+00_jprb, 0.134605e+00_jprb, 0.125905e+00_jprb &
13217  &, 0.117603e+00_jprb, 0.109683e+00_jprb, 0.102142e+00_jprb, 0.949941e-01_jprb &
13218  &, 0.881972e-01_jprb, 0.817575e-01_jprb, 0.756793e-01_jprb &
13219  &, 0.699471e-01_jprb, 0.645418e-01_jprb, 0.594789e-01_jprb, 0.547151e-01_jprb &
13220  &, 0.502612e-01_jprb, 0.460866e-01_jprb, 0.421980e-01_jprb &
13221  &, 0.385591e-01_jprb, 0.351936e-01_jprb, 0.320600e-01_jprb, 0.291796e-01_jprb &
13222  &, 0.265054e-01_jprb, 0.240323e-01_jprb, 0.217538e-01_jprb &
13223  &, 0.196619e-01_jprb, 0.177225e-01_jprb, 0.159738e-01_jprb, 0.143789e-01_jprb &
13224  &, 0.128973e-01_jprb, 0.115652e-01_jprb, 0.103391e-01_jprb &
13225  &, 0.925530e-02_jprb, 0.823869e-02_jprb, 0.735269e-02_jprb, 0.651793e-02_jprb &
13226  &, 0.579866e-02_jprb, 0.514146e-02_jprb, 0.455085e-02_jprb &
13227  &, 0.399978e-02_jprb, 0.352353e-02_jprb, 0.309408e-02_jprb, 0.271463e-02_jprb &
13228  &, 0.238843e-02_jprb, 0.208424e-02_jprb, 0.183883e-02_jprb &
13229  &, 0.158409e-02_jprb, 0.139265e-02_jprb, 0.119408e-02_jprb, 0.102589e-02_jprb &
13230  &, 0.889848e-03_jprb, 0.787781e-03_jprb, 0.682006e-03_jprb &
13231  &, 0.572471e-03_jprb, 0.499950e-03_jprb, 0.424878e-03_jprb, 0.347219e-03_jprb &
13232  &, 0.309761e-03_jprb, 0.270997e-03_jprb, 0.230910e-03_jprb &
13233  &, 0.189481e-03_jprb, 0.146694e-03_jprb, 0.102530e-03_jprb, 0.103943e-03_jprb &
13234  &, 0.105367e-03_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
13235  &, 0.598563e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13236  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13237  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13238  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13239  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13240  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13241 xcw( 301, :) = (/ &
13242  & 0.945328e+00_jprb, 0.930973e+00_jprb, 0.916364e+00_jprb, 0.901512e+00_jprb &
13243  &, 0.886425e+00_jprb, 0.871116e+00_jprb, 0.855594e+00_jprb &
13244  &, 0.839870e+00_jprb, 0.823956e+00_jprb, 0.807865e+00_jprb, 0.791606e+00_jprb &
13245  &, 0.775194e+00_jprb, 0.758639e+00_jprb, 0.741955e+00_jprb &
13246  &, 0.725156e+00_jprb, 0.708256e+00_jprb, 0.691265e+00_jprb, 0.674201e+00_jprb &
13247  &, 0.657078e+00_jprb, 0.639910e+00_jprb, 0.622714e+00_jprb &
13248  &, 0.605504e+00_jprb, 0.588293e+00_jprb, 0.571105e+00_jprb, 0.553951e+00_jprb &
13249  &, 0.536849e+00_jprb, 0.519814e+00_jprb, 0.502868e+00_jprb &
13250  &, 0.486027e+00_jprb, 0.469304e+00_jprb, 0.452722e+00_jprb, 0.436294e+00_jprb &
13251  &, 0.420042e+00_jprb, 0.403979e+00_jprb, 0.388125e+00_jprb &
13252  &, 0.372490e+00_jprb, 0.357103e+00_jprb, 0.341961e+00_jprb, 0.327102e+00_jprb &
13253  &, 0.312527e+00_jprb, 0.298249e+00_jprb, 0.284289e+00_jprb &
13254  &, 0.270649e+00_jprb, 0.257353e+00_jprb, 0.244399e+00_jprb, 0.231799e+00_jprb &
13255  &, 0.219572e+00_jprb, 0.207716e+00_jprb, 0.196249e+00_jprb &
13256  &, 0.185150e+00_jprb, 0.174462e+00_jprb, 0.164145e+00_jprb, 0.154238e+00_jprb &
13257  &, 0.144724e+00_jprb, 0.135596e+00_jprb, 0.126859e+00_jprb &
13258  &, 0.118517e+00_jprb, 0.110571e+00_jprb, 0.103002e+00_jprb, 0.957907e-01_jprb &
13259  &, 0.889780e-01_jprb, 0.825040e-01_jprb, 0.763893e-01_jprb &
13260  &, 0.706185e-01_jprb, 0.651910e-01_jprb, 0.600855e-01_jprb, 0.552769e-01_jprb &
13261  &, 0.507955e-01_jprb, 0.465920e-01_jprb, 0.426729e-01_jprb &
13262  &, 0.390230e-01_jprb, 0.356242e-01_jprb, 0.324557e-01_jprb, 0.295386e-01_jprb &
13263  &, 0.268260e-01_jprb, 0.243361e-01_jprb, 0.220399e-01_jprb &
13264  &, 0.199294e-01_jprb, 0.179954e-01_jprb, 0.162015e-01_jprb, 0.145852e-01_jprb &
13265  &, 0.131077e-01_jprb, 0.117529e-01_jprb, 0.105031e-01_jprb &
13266  &, 0.939453e-02_jprb, 0.838056e-02_jprb, 0.746833e-02_jprb, 0.663573e-02_jprb &
13267  &, 0.588864e-02_jprb, 0.523309e-02_jprb, 0.461305e-02_jprb &
13268  &, 0.409478e-02_jprb, 0.358799e-02_jprb, 0.315970e-02_jprb, 0.278141e-02_jprb &
13269  &, 0.245639e-02_jprb, 0.215338e-02_jprb, 0.187399e-02_jprb &
13270  &, 0.161986e-02_jprb, 0.142904e-02_jprb, 0.123108e-02_jprb, 0.106351e-02_jprb &
13271  &, 0.928102e-03_jprb, 0.787781e-03_jprb, 0.682006e-03_jprb &
13272  &, 0.572471e-03_jprb, 0.499950e-03_jprb, 0.424878e-03_jprb, 0.389372e-03_jprb &
13273  &, 0.309761e-03_jprb, 0.270997e-03_jprb, 0.230910e-03_jprb &
13274  &, 0.189481e-03_jprb, 0.146694e-03_jprb, 0.148795e-03_jprb, 0.103943e-03_jprb &
13275  &, 0.105367e-03_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
13276  &, 0.598563e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13277  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13278  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13279  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13280  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13281  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13282 
13283 IF (lhook) CALL dr_hook('SU_MCICA:PART43',1,zhook_handle)
13284 END SUBROUTINE part43
13285 
13286 #ifdef VPP5000
13287 !OCL SCALAR
13288 #endif
13289 !option! -Nv -NO
13290 #ifdef RS6K
13291 @process nooptimize
13292 #endif
13293 !pgi$r opt=0
13294 SUBROUTINE part44
13295 
13296 REAL(KIND=JPRB) :: ZHOOK_HANDLE
13297 IF (lhook) CALL dr_hook('SU_MCICA:PART44',0,zhook_handle)
13298 
13299 xcw( 302, :) = (/ &
13300  & 0.945605e+00_jprb, 0.931316e+00_jprb, 0.916771e+00_jprb, 0.901982e+00_jprb &
13301  &, 0.886957e+00_jprb, 0.871707e+00_jprb, 0.856242e+00_jprb &
13302  &, 0.840575e+00_jprb, 0.824716e+00_jprb, 0.808677e+00_jprb, 0.792469e+00_jprb &
13303  &, 0.776105e+00_jprb, 0.759599e+00_jprb, 0.742960e+00_jprb &
13304  &, 0.726204e+00_jprb, 0.709344e+00_jprb, 0.692393e+00_jprb, 0.675366e+00_jprb &
13305  &, 0.658278e+00_jprb, 0.641140e+00_jprb, 0.623975e+00_jprb &
13306  &, 0.606794e+00_jprb, 0.589612e+00_jprb, 0.572444e+00_jprb, 0.555312e+00_jprb &
13307  &, 0.538228e+00_jprb, 0.521211e+00_jprb, 0.504280e+00_jprb &
13308  &, 0.487450e+00_jprb, 0.470735e+00_jprb, 0.454160e+00_jprb, 0.437738e+00_jprb &
13309  &, 0.421488e+00_jprb, 0.405426e+00_jprb, 0.389567e+00_jprb &
13310  &, 0.373931e+00_jprb, 0.358534e+00_jprb, 0.343389e+00_jprb, 0.328515e+00_jprb &
13311  &, 0.313925e+00_jprb, 0.299629e+00_jprb, 0.285650e+00_jprb &
13312  &, 0.271989e+00_jprb, 0.258670e+00_jprb, 0.245702e+00_jprb, 0.233075e+00_jprb &
13313  &, 0.220818e+00_jprb, 0.208943e+00_jprb, 0.197442e+00_jprb &
13314  &, 0.186320e+00_jprb, 0.175592e+00_jprb, 0.165247e+00_jprb, 0.155296e+00_jprb &
13315  &, 0.145750e+00_jprb, 0.136587e+00_jprb, 0.127828e+00_jprb &
13316  &, 0.119447e+00_jprb, 0.111459e+00_jprb, 0.103846e+00_jprb, 0.966206e-01_jprb &
13317  &, 0.897589e-01_jprb, 0.832505e-01_jprb, 0.770994e-01_jprb &
13318  &, 0.712899e-01_jprb, 0.658217e-01_jprb, 0.606921e-01_jprb, 0.558580e-01_jprb &
13319  &, 0.513299e-01_jprb, 0.470975e-01_jprb, 0.431479e-01_jprb &
13320  &, 0.394659e-01_jprb, 0.360333e-01_jprb, 0.328514e-01_jprb, 0.298976e-01_jprb &
13321  &, 0.271695e-01_jprb, 0.246632e-01_jprb, 0.223498e-01_jprb &
13322  &, 0.201970e-01_jprb, 0.182435e-01_jprb, 0.164545e-01_jprb, 0.147916e-01_jprb &
13323  &, 0.132918e-01_jprb, 0.119137e-01_jprb, 0.106670e-01_jprb &
13324  &, 0.953377e-02_jprb, 0.852244e-02_jprb, 0.758396e-02_jprb, 0.675352e-02_jprb &
13325  &, 0.600861e-02_jprb, 0.532472e-02_jprb, 0.470636e-02_jprb &
13326  &, 0.415811e-02_jprb, 0.365246e-02_jprb, 0.322532e-02_jprb, 0.284819e-02_jprb &
13327  &, 0.249037e-02_jprb, 0.218795e-02_jprb, 0.190916e-02_jprb &
13328  &, 0.165564e-02_jprb, 0.146543e-02_jprb, 0.126809e-02_jprb, 0.110114e-02_jprb &
13329  &, 0.928102e-03_jprb, 0.826670e-03_jprb, 0.721536e-03_jprb &
13330  &, 0.612648e-03_jprb, 0.499950e-03_jprb, 0.424878e-03_jprb, 0.389372e-03_jprb &
13331  &, 0.309761e-03_jprb, 0.270997e-03_jprb, 0.230910e-03_jprb &
13332  &, 0.189481e-03_jprb, 0.146694e-03_jprb, 0.148795e-03_jprb, 0.103943e-03_jprb &
13333  &, 0.105367e-03_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
13334  &, 0.598563e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13335  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13336  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13337  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13338  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13339  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13340 xcw( 303, :) = (/ &
13341  & 0.945881e+00_jprb, 0.931659e+00_jprb, 0.917178e+00_jprb, 0.902451e+00_jprb &
13342  &, 0.887488e+00_jprb, 0.872297e+00_jprb, 0.856891e+00_jprb &
13343  &, 0.841280e+00_jprb, 0.825474e+00_jprb, 0.809489e+00_jprb, 0.793332e+00_jprb &
13344  &, 0.777017e+00_jprb, 0.760557e+00_jprb, 0.743964e+00_jprb &
13345  &, 0.727251e+00_jprb, 0.710431e+00_jprb, 0.693521e+00_jprb, 0.676531e+00_jprb &
13346  &, 0.659477e+00_jprb, 0.642375e+00_jprb, 0.625236e+00_jprb &
13347  &, 0.608083e+00_jprb, 0.590928e+00_jprb, 0.573784e+00_jprb, 0.556673e+00_jprb &
13348  &, 0.539610e+00_jprb, 0.522608e+00_jprb, 0.505692e+00_jprb &
13349  &, 0.488873e+00_jprb, 0.472169e+00_jprb, 0.455601e+00_jprb, 0.439182e+00_jprb &
13350  &, 0.422934e+00_jprb, 0.406873e+00_jprb, 0.391010e+00_jprb &
13351  &, 0.375373e+00_jprb, 0.359965e+00_jprb, 0.344816e+00_jprb, 0.329929e+00_jprb &
13352  &, 0.315323e+00_jprb, 0.301020e+00_jprb, 0.287022e+00_jprb &
13353  &, 0.273341e+00_jprb, 0.259998e+00_jprb, 0.247006e+00_jprb, 0.234362e+00_jprb &
13354  &, 0.222077e+00_jprb, 0.210170e+00_jprb, 0.198635e+00_jprb &
13355  &, 0.187489e+00_jprb, 0.176723e+00_jprb, 0.166350e+00_jprb, 0.156369e+00_jprb &
13356  &, 0.146790e+00_jprb, 0.137593e+00_jprb, 0.128782e+00_jprb &
13357  &, 0.120377e+00_jprb, 0.112347e+00_jprb, 0.104706e+00_jprb, 0.974338e-01_jprb &
13358  &, 0.905398e-01_jprb, 0.839969e-01_jprb, 0.778094e-01_jprb &
13359  &, 0.719795e-01_jprb, 0.664709e-01_jprb, 0.612988e-01_jprb, 0.564392e-01_jprb &
13360  &, 0.518841e-01_jprb, 0.476231e-01_jprb, 0.436228e-01_jprb &
13361  &, 0.399087e-01_jprb, 0.364640e-01_jprb, 0.332471e-01_jprb, 0.302791e-01_jprb &
13362  &, 0.275359e-01_jprb, 0.249904e-01_jprb, 0.226359e-01_jprb &
13363  &, 0.204888e-01_jprb, 0.184915e-01_jprb, 0.166822e-01_jprb, 0.150238e-01_jprb &
13364  &, 0.135022e-01_jprb, 0.121014e-01_jprb, 0.108583e-01_jprb &
13365  &, 0.970086e-02_jprb, 0.866431e-02_jprb, 0.772850e-02_jprb, 0.687131e-02_jprb &
13366  &, 0.609859e-02_jprb, 0.541636e-02_jprb, 0.479966e-02_jprb &
13367  &, 0.425310e-02_jprb, 0.374916e-02_jprb, 0.329094e-02_jprb, 0.288158e-02_jprb &
13368  &, 0.255832e-02_jprb, 0.222252e-02_jprb, 0.194433e-02_jprb &
13369  &, 0.169141e-02_jprb, 0.146543e-02_jprb, 0.130509e-02_jprb, 0.110114e-02_jprb &
13370  &, 0.966356e-03_jprb, 0.826670e-03_jprb, 0.721536e-03_jprb &
13371  &, 0.612648e-03_jprb, 0.540779e-03_jprb, 0.466366e-03_jprb, 0.389372e-03_jprb &
13372  &, 0.309761e-03_jprb, 0.270997e-03_jprb, 0.230910e-03_jprb &
13373  &, 0.189481e-03_jprb, 0.146694e-03_jprb, 0.148795e-03_jprb, 0.103943e-03_jprb &
13374  &, 0.105367e-03_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
13375  &, 0.598563e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13376  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13377  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13378  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13379  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13380  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13381 xcw( 304, :) = (/ &
13382  & 0.946157e+00_jprb, 0.932000e+00_jprb, 0.917584e+00_jprb, 0.902921e+00_jprb &
13383  &, 0.888016e+00_jprb, 0.872886e+00_jprb, 0.857538e+00_jprb &
13384  &, 0.841983e+00_jprb, 0.826233e+00_jprb, 0.810299e+00_jprb, 0.794194e+00_jprb &
13385  &, 0.777927e+00_jprb, 0.761514e+00_jprb, 0.744967e+00_jprb &
13386  &, 0.728297e+00_jprb, 0.711520e+00_jprb, 0.694647e+00_jprb, 0.677694e+00_jprb &
13387  &, 0.660675e+00_jprb, 0.643605e+00_jprb, 0.626501e+00_jprb &
13388  &, 0.609373e+00_jprb, 0.592244e+00_jprb, 0.575127e+00_jprb, 0.558037e+00_jprb &
13389  &, 0.540989e+00_jprb, 0.524009e+00_jprb, 0.507104e+00_jprb &
13390  &, 0.490296e+00_jprb, 0.473604e+00_jprb, 0.457043e+00_jprb, 0.440630e+00_jprb &
13391  &, 0.424384e+00_jprb, 0.408319e+00_jprb, 0.392457e+00_jprb &
13392  &, 0.376815e+00_jprb, 0.361405e+00_jprb, 0.346234e+00_jprb, 0.331342e+00_jprb &
13393  &, 0.316721e+00_jprb, 0.302400e+00_jprb, 0.288383e+00_jprb &
13394  &, 0.274692e+00_jprb, 0.261326e+00_jprb, 0.248309e+00_jprb, 0.235638e+00_jprb &
13395  &, 0.223336e+00_jprb, 0.211397e+00_jprb, 0.199828e+00_jprb &
13396  &, 0.188659e+00_jprb, 0.177854e+00_jprb, 0.167453e+00_jprb, 0.157442e+00_jprb &
13397  &, 0.147816e+00_jprb, 0.138599e+00_jprb, 0.129751e+00_jprb &
13398  &, 0.121307e+00_jprb, 0.113251e+00_jprb, 0.105566e+00_jprb, 0.982637e-01_jprb &
13399  &, 0.913206e-01_jprb, 0.847608e-01_jprb, 0.785371e-01_jprb &
13400  &, 0.726509e-01_jprb, 0.671201e-01_jprb, 0.619054e-01_jprb, 0.570203e-01_jprb &
13401  &, 0.524185e-01_jprb, 0.481286e-01_jprb, 0.441184e-01_jprb &
13402  &, 0.403727e-01_jprb, 0.368946e-01_jprb, 0.336647e-01_jprb, 0.306605e-01_jprb &
13403  &, 0.278794e-01_jprb, 0.253175e-01_jprb, 0.229459e-01_jprb &
13404  &, 0.207564e-01_jprb, 0.187644e-01_jprb, 0.169099e-01_jprb, 0.152302e-01_jprb &
13405  &, 0.137126e-01_jprb, 0.122891e-01_jprb, 0.110223e-01_jprb &
13406  &, 0.986794e-02_jprb, 0.880618e-02_jprb, 0.784413e-02_jprb, 0.698910e-02_jprb &
13407  &, 0.621856e-02_jprb, 0.550799e-02_jprb, 0.489297e-02_jprb &
13408  &, 0.431643e-02_jprb, 0.381363e-02_jprb, 0.335656e-02_jprb, 0.294837e-02_jprb &
13409  &, 0.259230e-02_jprb, 0.229167e-02_jprb, 0.197950e-02_jprb &
13410  &, 0.172719e-02_jprb, 0.150181e-02_jprb, 0.130509e-02_jprb, 0.113876e-02_jprb &
13411  &, 0.100461e-02_jprb, 0.865559e-03_jprb, 0.721536e-03_jprb &
13412  &, 0.652824e-03_jprb, 0.540779e-03_jprb, 0.466366e-03_jprb, 0.389372e-03_jprb &
13413  &, 0.352584e-03_jprb, 0.270997e-03_jprb, 0.230910e-03_jprb &
13414  &, 0.189481e-03_jprb, 0.192259e-03_jprb, 0.148795e-03_jprb, 0.103943e-03_jprb &
13415  &, 0.105367e-03_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
13416  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13417  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13418  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13419  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13420  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13421  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13422 xcw( 305, :) = (/ &
13423  & 0.946432e+00_jprb, 0.932342e+00_jprb, 0.917990e+00_jprb, 0.903389e+00_jprb &
13424  &, 0.888547e+00_jprb, 0.873476e+00_jprb, 0.858185e+00_jprb &
13425  &, 0.842686e+00_jprb, 0.826990e+00_jprb, 0.811110e+00_jprb, 0.795054e+00_jprb &
13426  &, 0.778838e+00_jprb, 0.762472e+00_jprb, 0.745969e+00_jprb &
13427  &, 0.729344e+00_jprb, 0.712607e+00_jprb, 0.695774e+00_jprb, 0.678858e+00_jprb &
13428  &, 0.661874e+00_jprb, 0.644836e+00_jprb, 0.627762e+00_jprb &
13429  &, 0.610659e+00_jprb, 0.593560e+00_jprb, 0.576466e+00_jprb, 0.559397e+00_jprb &
13430  &, 0.542371e+00_jprb, 0.525406e+00_jprb, 0.508516e+00_jprb &
13431  &, 0.491720e+00_jprb, 0.475038e+00_jprb, 0.458484e+00_jprb, 0.442078e+00_jprb &
13432  &, 0.425834e+00_jprb, 0.409770e+00_jprb, 0.393908e+00_jprb &
13433  &, 0.378257e+00_jprb, 0.362835e+00_jprb, 0.347671e+00_jprb, 0.332756e+00_jprb &
13434  &, 0.318129e+00_jprb, 0.303792e+00_jprb, 0.289755e+00_jprb &
13435  &, 0.276043e+00_jprb, 0.262666e+00_jprb, 0.249612e+00_jprb, 0.236926e+00_jprb &
13436  &, 0.224594e+00_jprb, 0.212624e+00_jprb, 0.201033e+00_jprb &
13437  &, 0.189828e+00_jprb, 0.178998e+00_jprb, 0.168569e+00_jprb, 0.158514e+00_jprb &
13438  &, 0.148871e+00_jprb, 0.139605e+00_jprb, 0.130736e+00_jprb &
13439  &, 0.122252e+00_jprb, 0.114154e+00_jprb, 0.106426e+00_jprb, 0.990935e-01_jprb &
13440  &, 0.921185e-01_jprb, 0.855072e-01_jprb, 0.792649e-01_jprb &
13441  &, 0.733405e-01_jprb, 0.677693e-01_jprb, 0.625310e-01_jprb, 0.576015e-01_jprb &
13442  &, 0.529924e-01_jprb, 0.486542e-01_jprb, 0.446140e-01_jprb &
13443  &, 0.408366e-01_jprb, 0.373252e-01_jprb, 0.340604e-01_jprb, 0.310420e-01_jprb &
13444  &, 0.282229e-01_jprb, 0.256447e-01_jprb, 0.232558e-01_jprb &
13445  &, 0.210482e-01_jprb, 0.190125e-01_jprb, 0.171628e-01_jprb, 0.154623e-01_jprb &
13446  &, 0.138967e-01_jprb, 0.124767e-01_jprb, 0.111862e-01_jprb &
13447  &, 0.100072e-01_jprb, 0.894806e-02_jprb, 0.798868e-02_jprb, 0.710689e-02_jprb &
13448  &, 0.630854e-02_jprb, 0.559962e-02_jprb, 0.498627e-02_jprb &
13449  &, 0.441143e-02_jprb, 0.387810e-02_jprb, 0.342217e-02_jprb, 0.301515e-02_jprb &
13450  &, 0.266025e-02_jprb, 0.232624e-02_jprb, 0.204984e-02_jprb &
13451  &, 0.176296e-02_jprb, 0.153820e-02_jprb, 0.134209e-02_jprb, 0.117639e-02_jprb &
13452  &, 0.100461e-02_jprb, 0.865559e-03_jprb, 0.761066e-03_jprb &
13453  &, 0.652824e-03_jprb, 0.581608e-03_jprb, 0.466366e-03_jprb, 0.431524e-03_jprb &
13454  &, 0.352584e-03_jprb, 0.314496e-03_jprb, 0.230910e-03_jprb &
13455  &, 0.189481e-03_jprb, 0.192259e-03_jprb, 0.148795e-03_jprb, 0.103943e-03_jprb &
13456  &, 0.105367e-03_jprb, 0.584019e-04_jprb, 0.591261e-04_jprb &
13457  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13458  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13459  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13460  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13461  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13462  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13463 xcw( 306, :) = (/ &
13464  & 0.946710e+00_jprb, 0.932683e+00_jprb, 0.918395e+00_jprb, 0.903856e+00_jprb &
13465  &, 0.889076e+00_jprb, 0.874064e+00_jprb, 0.858831e+00_jprb &
13466  &, 0.843388e+00_jprb, 0.827747e+00_jprb, 0.811920e+00_jprb, 0.795916e+00_jprb &
13467  &, 0.779748e+00_jprb, 0.763429e+00_jprb, 0.746971e+00_jprb &
13468  &, 0.730389e+00_jprb, 0.713694e+00_jprb, 0.696899e+00_jprb, 0.680021e+00_jprb &
13469  &, 0.663073e+00_jprb, 0.646067e+00_jprb, 0.629023e+00_jprb &
13470  &, 0.611956e+00_jprb, 0.594876e+00_jprb, 0.577806e+00_jprb, 0.560762e+00_jprb &
13471  &, 0.543753e+00_jprb, 0.526803e+00_jprb, 0.509928e+00_jprb &
13472  &, 0.493147e+00_jprb, 0.476473e+00_jprb, 0.459930e+00_jprb, 0.443526e+00_jprb &
13473  &, 0.427284e+00_jprb, 0.411221e+00_jprb, 0.395360e+00_jprb &
13474  &, 0.379698e+00_jprb, 0.364275e+00_jprb, 0.349099e+00_jprb, 0.334180e+00_jprb &
13475  &, 0.319537e+00_jprb, 0.305183e+00_jprb, 0.291138e+00_jprb &
13476  &, 0.277405e+00_jprb, 0.263994e+00_jprb, 0.250926e+00_jprb, 0.238214e+00_jprb &
13477  &, 0.225853e+00_jprb, 0.213863e+00_jprb, 0.202239e+00_jprb &
13478  &, 0.190997e+00_jprb, 0.180141e+00_jprb, 0.169672e+00_jprb, 0.159601e+00_jprb &
13479  &, 0.149912e+00_jprb, 0.140611e+00_jprb, 0.131705e+00_jprb &
13480  &, 0.123182e+00_jprb, 0.115058e+00_jprb, 0.107302e+00_jprb, 0.999234e-01_jprb &
13481  &, 0.929163e-01_jprb, 0.862711e-01_jprb, 0.799749e-01_jprb &
13482  &, 0.740482e-01_jprb, 0.684371e-01_jprb, 0.631566e-01_jprb, 0.582020e-01_jprb &
13483  &, 0.535466e-01_jprb, 0.491799e-01_jprb, 0.451096e-01_jprb &
13484  &, 0.413005e-01_jprb, 0.377559e-01_jprb, 0.344781e-01_jprb, 0.314234e-01_jprb &
13485  &, 0.285893e-01_jprb, 0.259718e-01_jprb, 0.235657e-01_jprb &
13486  &, 0.213401e-01_jprb, 0.192854e-01_jprb, 0.174158e-01_jprb, 0.156945e-01_jprb &
13487  &, 0.141071e-01_jprb, 0.126912e-01_jprb, 0.113775e-01_jprb &
13488  &, 0.101743e-01_jprb, 0.908993e-02_jprb, 0.813322e-02_jprb, 0.722468e-02_jprb &
13489  &, 0.642851e-02_jprb, 0.572180e-02_jprb, 0.504847e-02_jprb &
13490  &, 0.447476e-02_jprb, 0.397480e-02_jprb, 0.348779e-02_jprb, 0.308193e-02_jprb &
13491  &, 0.269423e-02_jprb, 0.236081e-02_jprb, 0.208501e-02_jprb &
13492  &, 0.179874e-02_jprb, 0.157458e-02_jprb, 0.137909e-02_jprb, 0.121401e-02_jprb &
13493  &, 0.104286e-02_jprb, 0.904448e-03_jprb, 0.761066e-03_jprb &
13494  &, 0.652824e-03_jprb, 0.581608e-03_jprb, 0.507854e-03_jprb, 0.431524e-03_jprb &
13495  &, 0.352584e-03_jprb, 0.314496e-03_jprb, 0.275092e-03_jprb &
13496  &, 0.234352e-03_jprb, 0.192259e-03_jprb, 0.148795e-03_jprb, 0.103943e-03_jprb &
13497  &, 0.105367e-03_jprb, 0.106804e-03_jprb, 0.591261e-04_jprb &
13498  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13499  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13500  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13501  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13502  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13503  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13504 xcw( 307, :) = (/ &
13505  & 0.946985e+00_jprb, 0.933024e+00_jprb, 0.918799e+00_jprb, 0.904324e+00_jprb &
13506  &, 0.889604e+00_jprb, 0.874651e+00_jprb, 0.859476e+00_jprb &
13507  &, 0.844090e+00_jprb, 0.828504e+00_jprb, 0.812728e+00_jprb, 0.796775e+00_jprb &
13508  &, 0.780656e+00_jprb, 0.764385e+00_jprb, 0.747974e+00_jprb &
13509  &, 0.731434e+00_jprb, 0.714779e+00_jprb, 0.698025e+00_jprb, 0.681184e+00_jprb &
13510  &, 0.664270e+00_jprb, 0.647298e+00_jprb, 0.630285e+00_jprb &
13511  &, 0.613246e+00_jprb, 0.596195e+00_jprb, 0.579149e+00_jprb, 0.562122e+00_jprb &
13512  &, 0.545135e+00_jprb, 0.528203e+00_jprb, 0.511344e+00_jprb &
13513  &, 0.494574e+00_jprb, 0.477911e+00_jprb, 0.461371e+00_jprb, 0.444975e+00_jprb &
13514  &, 0.428738e+00_jprb, 0.412677e+00_jprb, 0.396811e+00_jprb &
13515  &, 0.381149e+00_jprb, 0.365725e+00_jprb, 0.350536e+00_jprb, 0.335603e+00_jprb &
13516  &, 0.320945e+00_jprb, 0.306584e+00_jprb, 0.292510e+00_jprb &
13517  &, 0.278756e+00_jprb, 0.265333e+00_jprb, 0.252241e+00_jprb, 0.239502e+00_jprb &
13518  &, 0.227123e+00_jprb, 0.215103e+00_jprb, 0.203458e+00_jprb &
13519  &, 0.192180e+00_jprb, 0.181299e+00_jprb, 0.170802e+00_jprb, 0.160688e+00_jprb &
13520  &, 0.150967e+00_jprb, 0.141632e+00_jprb, 0.132689e+00_jprb &
13521  &, 0.124143e+00_jprb, 0.115962e+00_jprb, 0.108178e+00_jprb, 0.100770e+00_jprb &
13522  &, 0.937142e-01_jprb, 0.870349e-01_jprb, 0.807204e-01_jprb &
13523  &, 0.747378e-01_jprb, 0.691049e-01_jprb, 0.637822e-01_jprb, 0.587831e-01_jprb &
13524  &, 0.541008e-01_jprb, 0.497056e-01_jprb, 0.456052e-01_jprb &
13525  &, 0.417856e-01_jprb, 0.382081e-01_jprb, 0.348957e-01_jprb, 0.318049e-01_jprb &
13526  &, 0.289557e-01_jprb, 0.262990e-01_jprb, 0.238757e-01_jprb &
13527  &, 0.216320e-01_jprb, 0.195583e-01_jprb, 0.176435e-01_jprb, 0.159267e-01_jprb &
13528  &, 0.143175e-01_jprb, 0.128789e-01_jprb, 0.115415e-01_jprb &
13529  &, 0.103413e-01_jprb, 0.926018e-02_jprb, 0.824885e-02_jprb, 0.737192e-02_jprb &
13530  &, 0.654848e-02_jprb, 0.581343e-02_jprb, 0.514178e-02_jprb &
13531  &, 0.456975e-02_jprb, 0.403927e-02_jprb, 0.355341e-02_jprb, 0.314871e-02_jprb &
13532  &, 0.276219e-02_jprb, 0.242995e-02_jprb, 0.212018e-02_jprb &
13533  &, 0.187028e-02_jprb, 0.161097e-02_jprb, 0.141610e-02_jprb, 0.121401e-02_jprb &
13534  &, 0.108112e-02_jprb, 0.904448e-03_jprb, 0.800596e-03_jprb &
13535  &, 0.693000e-03_jprb, 0.581608e-03_jprb, 0.507854e-03_jprb, 0.431524e-03_jprb &
13536  &, 0.352584e-03_jprb, 0.314496e-03_jprb, 0.275092e-03_jprb &
13537  &, 0.234352e-03_jprb, 0.192259e-03_jprb, 0.148795e-03_jprb, 0.150914e-03_jprb &
13538  &, 0.105367e-03_jprb, 0.106804e-03_jprb, 0.591261e-04_jprb &
13539  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13540  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13541  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13542  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13543  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13544  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13545 xcw( 308, :) = (/ &
13546  & 0.947258e+00_jprb, 0.933364e+00_jprb, 0.919204e+00_jprb, 0.904791e+00_jprb &
13547  &, 0.890132e+00_jprb, 0.875239e+00_jprb, 0.860122e+00_jprb &
13548  &, 0.844791e+00_jprb, 0.829259e+00_jprb, 0.813537e+00_jprb, 0.797634e+00_jprb &
13549  &, 0.781566e+00_jprb, 0.765342e+00_jprb, 0.748974e+00_jprb &
13550  &, 0.732479e+00_jprb, 0.715863e+00_jprb, 0.699151e+00_jprb, 0.682346e+00_jprb &
13551  &, 0.665469e+00_jprb, 0.648529e+00_jprb, 0.631546e+00_jprb &
13552  &, 0.614535e+00_jprb, 0.597511e+00_jprb, 0.580489e+00_jprb, 0.563486e+00_jprb &
13553  &, 0.546517e+00_jprb, 0.529604e+00_jprb, 0.512760e+00_jprb &
13554  &, 0.496001e+00_jprb, 0.479349e+00_jprb, 0.462817e+00_jprb, 0.446427e+00_jprb &
13555  &, 0.430192e+00_jprb, 0.414133e+00_jprb, 0.398263e+00_jprb &
13556  &, 0.382600e+00_jprb, 0.367165e+00_jprb, 0.351964e+00_jprb, 0.337027e+00_jprb &
13557  &, 0.322364e+00_jprb, 0.307975e+00_jprb, 0.293893e+00_jprb &
13558  &, 0.280129e+00_jprb, 0.266673e+00_jprb, 0.253568e+00_jprb, 0.240801e+00_jprb &
13559  &, 0.228394e+00_jprb, 0.216342e+00_jprb, 0.204663e+00_jprb &
13560  &, 0.193363e+00_jprb, 0.182456e+00_jprb, 0.171919e+00_jprb, 0.161775e+00_jprb &
13561  &, 0.152022e+00_jprb, 0.142652e+00_jprb, 0.133673e+00_jprb &
13562  &, 0.125088e+00_jprb, 0.116882e+00_jprb, 0.109054e+00_jprb, 0.101600e+00_jprb &
13563  &, 0.945290e-01_jprb, 0.878161e-01_jprb, 0.814482e-01_jprb &
13564  &, 0.754455e-01_jprb, 0.697541e-01_jprb, 0.644078e-01_jprb, 0.593836e-01_jprb &
13565  &, 0.546747e-01_jprb, 0.502514e-01_jprb, 0.461215e-01_jprb &
13566  &, 0.422495e-01_jprb, 0.386602e-01_jprb, 0.353134e-01_jprb, 0.321863e-01_jprb &
13567  &, 0.293221e-01_jprb, 0.266495e-01_jprb, 0.241856e-01_jprb &
13568  &, 0.219238e-01_jprb, 0.198311e-01_jprb, 0.178965e-01_jprb, 0.161588e-01_jprb &
13569  &, 0.145279e-01_jprb, 0.130665e-01_jprb, 0.117327e-01_jprb &
13570  &, 0.105084e-01_jprb, 0.940205e-02_jprb, 0.839339e-02_jprb, 0.748971e-02_jprb &
13571  &, 0.666846e-02_jprb, 0.590507e-02_jprb, 0.526619e-02_jprb &
13572  &, 0.466475e-02_jprb, 0.410374e-02_jprb, 0.361903e-02_jprb, 0.318210e-02_jprb &
13573  &, 0.283014e-02_jprb, 0.246452e-02_jprb, 0.215535e-02_jprb &
13574  &, 0.190606e-02_jprb, 0.164735e-02_jprb, 0.145310e-02_jprb, 0.125164e-02_jprb &
13575  &, 0.108112e-02_jprb, 0.943337e-03_jprb, 0.800596e-03_jprb &
13576  &, 0.693000e-03_jprb, 0.622438e-03_jprb, 0.507854e-03_jprb, 0.431524e-03_jprb &
13577  &, 0.395407e-03_jprb, 0.314496e-03_jprb, 0.275092e-03_jprb &
13578  &, 0.234352e-03_jprb, 0.192259e-03_jprb, 0.148795e-03_jprb, 0.150914e-03_jprb &
13579  &, 0.105367e-03_jprb, 0.106804e-03_jprb, 0.591261e-04_jprb &
13580  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13581  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13582  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13583  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13584  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13585  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13586 
13587 IF (lhook) CALL dr_hook('SU_MCICA:PART44',1,zhook_handle)
13588 END SUBROUTINE part44
13589 
13590 #ifdef VPP5000
13591 !OCL SCALAR
13592 #endif
13593 !option! -Nv -NO
13594 #ifdef RS6K
13595 @process nooptimize
13596 #endif
13597 !pgi$r opt=0
13598 SUBROUTINE part45
13599 
13600 REAL(KIND=JPRB) :: ZHOOK_HANDLE
13601 IF (lhook) CALL dr_hook('SU_MCICA:PART45',0,zhook_handle)
13602 
13603 xcw( 309, :) = (/ &
13604  & 0.947533e+00_jprb, 0.933703e+00_jprb, 0.919608e+00_jprb, 0.905257e+00_jprb &
13605  &, 0.890659e+00_jprb, 0.875825e+00_jprb, 0.860766e+00_jprb &
13606  &, 0.845492e+00_jprb, 0.830014e+00_jprb, 0.814344e+00_jprb, 0.798493e+00_jprb &
13607  &, 0.782472e+00_jprb, 0.766296e+00_jprb, 0.749975e+00_jprb &
13608  &, 0.733522e+00_jprb, 0.716950e+00_jprb, 0.700276e+00_jprb, 0.683509e+00_jprb &
13609  &, 0.666666e+00_jprb, 0.649760e+00_jprb, 0.632811e+00_jprb &
13610  &, 0.615825e+00_jprb, 0.598827e+00_jprb, 0.581832e+00_jprb, 0.564850e+00_jprb &
13611  &, 0.547903e+00_jprb, 0.531005e+00_jprb, 0.514176e+00_jprb &
13612  &, 0.497432e+00_jprb, 0.480788e+00_jprb, 0.464266e+00_jprb, 0.447879e+00_jprb &
13613  &, 0.431651e+00_jprb, 0.415588e+00_jprb, 0.399719e+00_jprb &
13614  &, 0.384051e+00_jprb, 0.368614e+00_jprb, 0.353392e+00_jprb, 0.338461e+00_jprb &
13615  &, 0.323772e+00_jprb, 0.309377e+00_jprb, 0.295276e+00_jprb &
13616  &, 0.281491e+00_jprb, 0.268023e+00_jprb, 0.254894e+00_jprb, 0.242101e+00_jprb &
13617  &, 0.229665e+00_jprb, 0.217594e+00_jprb, 0.205882e+00_jprb &
13618  &, 0.194558e+00_jprb, 0.183614e+00_jprb, 0.173049e+00_jprb, 0.162862e+00_jprb &
13619  &, 0.153076e+00_jprb, 0.143673e+00_jprb, 0.134673e+00_jprb &
13620  &, 0.126049e+00_jprb, 0.117802e+00_jprb, 0.109946e+00_jprb, 0.102463e+00_jprb &
13621  &, 0.953438e-01_jprb, 0.885799e-01_jprb, 0.821937e-01_jprb &
13622  &, 0.761351e-01_jprb, 0.704404e-01_jprb, 0.650523e-01_jprb, 0.599842e-01_jprb &
13623  &, 0.552487e-01_jprb, 0.507771e-01_jprb, 0.466171e-01_jprb &
13624  &, 0.427345e-01_jprb, 0.390909e-01_jprb, 0.357310e-01_jprb, 0.325902e-01_jprb &
13625  &, 0.296885e-01_jprb, 0.269767e-01_jprb, 0.244956e-01_jprb &
13626  &, 0.222157e-01_jprb, 0.201040e-01_jprb, 0.181495e-01_jprb, 0.163910e-01_jprb &
13627  &, 0.147646e-01_jprb, 0.132542e-01_jprb, 0.118967e-01_jprb &
13628  &, 0.106755e-01_jprb, 0.954393e-02_jprb, 0.853793e-02_jprb, 0.760750e-02_jprb &
13629  &, 0.678843e-02_jprb, 0.602724e-02_jprb, 0.535949e-02_jprb &
13630  &, 0.472808e-02_jprb, 0.420044e-02_jprb, 0.368465e-02_jprb, 0.324888e-02_jprb &
13631  &, 0.286412e-02_jprb, 0.253366e-02_jprb, 0.222569e-02_jprb &
13632  &, 0.194183e-02_jprb, 0.168374e-02_jprb, 0.149010e-02_jprb, 0.128926e-02_jprb &
13633  &, 0.111937e-02_jprb, 0.982226e-03_jprb, 0.840126e-03_jprb &
13634  &, 0.733177e-03_jprb, 0.622438e-03_jprb, 0.549341e-03_jprb, 0.473676e-03_jprb &
13635  &, 0.395407e-03_jprb, 0.314496e-03_jprb, 0.275092e-03_jprb &
13636  &, 0.234352e-03_jprb, 0.192259e-03_jprb, 0.148795e-03_jprb, 0.150914e-03_jprb &
13637  &, 0.105367e-03_jprb, 0.106804e-03_jprb, 0.591261e-04_jprb &
13638  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13639  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13640  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13641  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13642  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13643  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13644 xcw( 310, :) = (/ &
13645  & 0.947808e+00_jprb, 0.934044e+00_jprb, 0.920011e+00_jprb, 0.905723e+00_jprb &
13646  &, 0.891186e+00_jprb, 0.876411e+00_jprb, 0.861410e+00_jprb &
13647  &, 0.846191e+00_jprb, 0.830768e+00_jprb, 0.815151e+00_jprb, 0.799351e+00_jprb &
13648  &, 0.783379e+00_jprb, 0.767250e+00_jprb, 0.750974e+00_jprb &
13649  &, 0.734566e+00_jprb, 0.718036e+00_jprb, 0.701401e+00_jprb, 0.684671e+00_jprb &
13650  &, 0.667863e+00_jprb, 0.650991e+00_jprb, 0.634072e+00_jprb &
13651  &, 0.617118e+00_jprb, 0.600146e+00_jprb, 0.583171e+00_jprb, 0.566215e+00_jprb &
13652  &, 0.549285e+00_jprb, 0.532405e+00_jprb, 0.515592e+00_jprb &
13653  &, 0.498859e+00_jprb, 0.482226e+00_jprb, 0.465712e+00_jprb, 0.449336e+00_jprb &
13654  &, 0.433105e+00_jprb, 0.417048e+00_jprb, 0.401175e+00_jprb &
13655  &, 0.385502e+00_jprb, 0.370054e+00_jprb, 0.354849e+00_jprb, 0.339884e+00_jprb &
13656  &, 0.325190e+00_jprb, 0.310778e+00_jprb, 0.296670e+00_jprb &
13657  &, 0.282854e+00_jprb, 0.269374e+00_jprb, 0.256220e+00_jprb, 0.243401e+00_jprb &
13658  &, 0.230948e+00_jprb, 0.218846e+00_jprb, 0.207113e+00_jprb &
13659  &, 0.195754e+00_jprb, 0.184771e+00_jprb, 0.174179e+00_jprb, 0.163963e+00_jprb &
13660  &, 0.154146e+00_jprb, 0.144709e+00_jprb, 0.135657e+00_jprb &
13661  &, 0.126994e+00_jprb, 0.118722e+00_jprb, 0.110822e+00_jprb, 0.103309e+00_jprb &
13662  &, 0.961586e-01_jprb, 0.893611e-01_jprb, 0.829392e-01_jprb &
13663  &, 0.768610e-01_jprb, 0.711081e-01_jprb, 0.656969e-01_jprb, 0.606040e-01_jprb &
13664  &, 0.558226e-01_jprb, 0.513230e-01_jprb, 0.471333e-01_jprb &
13665  &, 0.431985e-01_jprb, 0.395431e-01_jprb, 0.361487e-01_jprb, 0.329941e-01_jprb &
13666  &, 0.300549e-01_jprb, 0.273272e-01_jprb, 0.248294e-01_jprb &
13667  &, 0.225075e-01_jprb, 0.203769e-01_jprb, 0.184278e-01_jprb, 0.166232e-01_jprb &
13668  &, 0.149750e-01_jprb, 0.134687e-01_jprb, 0.120880e-01_jprb &
13669  &, 0.108426e-01_jprb, 0.971418e-02_jprb, 0.868247e-02_jprb, 0.772529e-02_jprb &
13670  &, 0.690840e-02_jprb, 0.611888e-02_jprb, 0.545280e-02_jprb &
13671  &, 0.482307e-02_jprb, 0.426491e-02_jprb, 0.378308e-02_jprb, 0.331566e-02_jprb &
13672  &, 0.293208e-02_jprb, 0.256823e-02_jprb, 0.226086e-02_jprb &
13673  &, 0.197761e-02_jprb, 0.172013e-02_jprb, 0.149010e-02_jprb, 0.132689e-02_jprb &
13674  &, 0.115763e-02_jprb, 0.982226e-03_jprb, 0.840126e-03_jprb &
13675  &, 0.733177e-03_jprb, 0.622438e-03_jprb, 0.549341e-03_jprb, 0.473676e-03_jprb &
13676  &, 0.395407e-03_jprb, 0.357996e-03_jprb, 0.275092e-03_jprb &
13677  &, 0.234352e-03_jprb, 0.192259e-03_jprb, 0.195060e-03_jprb, 0.150914e-03_jprb &
13678  &, 0.105367e-03_jprb, 0.106804e-03_jprb, 0.591261e-04_jprb &
13679  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.100000e-04_jprb &
13680  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13681  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13682  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13683  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13684  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13685 xcw( 311, :) = (/ &
13686  & 0.948082e+00_jprb, 0.934384e+00_jprb, 0.920414e+00_jprb, 0.906188e+00_jprb &
13687  &, 0.891711e+00_jprb, 0.876997e+00_jprb, 0.862053e+00_jprb &
13688  &, 0.846891e+00_jprb, 0.831523e+00_jprb, 0.815957e+00_jprb, 0.800209e+00_jprb &
13689  &, 0.784286e+00_jprb, 0.768204e+00_jprb, 0.751975e+00_jprb &
13690  &, 0.735608e+00_jprb, 0.719120e+00_jprb, 0.702524e+00_jprb, 0.685833e+00_jprb &
13691  &, 0.669060e+00_jprb, 0.652222e+00_jprb, 0.635333e+00_jprb &
13692  &, 0.618408e+00_jprb, 0.601462e+00_jprb, 0.584515e+00_jprb, 0.567579e+00_jprb &
13693  &, 0.550671e+00_jprb, 0.533810e+00_jprb, 0.517011e+00_jprb &
13694  &, 0.500290e+00_jprb, 0.483669e+00_jprb, 0.467162e+00_jprb, 0.450788e+00_jprb &
13695  &, 0.434564e+00_jprb, 0.418508e+00_jprb, 0.402635e+00_jprb &
13696  &, 0.386963e+00_jprb, 0.371513e+00_jprb, 0.356286e+00_jprb, 0.341318e+00_jprb &
13697  &, 0.326619e+00_jprb, 0.312190e+00_jprb, 0.298052e+00_jprb &
13698  &, 0.284227e+00_jprb, 0.270725e+00_jprb, 0.257547e+00_jprb, 0.244712e+00_jprb &
13699  &, 0.232219e+00_jprb, 0.220098e+00_jprb, 0.208332e+00_jprb &
13700  &, 0.196950e+00_jprb, 0.185942e+00_jprb, 0.175309e+00_jprb, 0.165063e+00_jprb &
13701  &, 0.155215e+00_jprb, 0.145744e+00_jprb, 0.136656e+00_jprb &
13702  &, 0.127970e+00_jprb, 0.119657e+00_jprb, 0.111715e+00_jprb, 0.104172e+00_jprb &
13703  &, 0.969735e-01_jprb, 0.901597e-01_jprb, 0.836847e-01_jprb &
13704  &, 0.775687e-01_jprb, 0.717945e-01_jprb, 0.663414e-01_jprb, 0.612046e-01_jprb &
13705  &, 0.563966e-01_jprb, 0.518689e-01_jprb, 0.476496e-01_jprb &
13706  &, 0.437046e-01_jprb, 0.400168e-01_jprb, 0.365664e-01_jprb, 0.333755e-01_jprb &
13707  &, 0.304213e-01_jprb, 0.276777e-01_jprb, 0.251393e-01_jprb &
13708  &, 0.227994e-01_jprb, 0.206498e-01_jprb, 0.186808e-01_jprb, 0.168554e-01_jprb &
13709  &, 0.151854e-01_jprb, 0.136832e-01_jprb, 0.122793e-01_jprb &
13710  &, 0.110097e-01_jprb, 0.985605e-02_jprb, 0.882701e-02_jprb, 0.787253e-02_jprb &
13711  &, 0.702837e-02_jprb, 0.624106e-02_jprb, 0.554610e-02_jprb &
13712  &, 0.491807e-02_jprb, 0.436161e-02_jprb, 0.384870e-02_jprb, 0.338244e-02_jprb &
13713  &, 0.300003e-02_jprb, 0.263737e-02_jprb, 0.229603e-02_jprb &
13714  &, 0.201338e-02_jprb, 0.175651e-02_jprb, 0.152710e-02_jprb, 0.132689e-02_jprb &
13715  &, 0.115763e-02_jprb, 0.102111e-02_jprb, 0.879655e-03_jprb &
13716  &, 0.773353e-03_jprb, 0.663267e-03_jprb, 0.549341e-03_jprb, 0.473676e-03_jprb &
13717  &, 0.395407e-03_jprb, 0.357996e-03_jprb, 0.319274e-03_jprb &
13718  &, 0.234352e-03_jprb, 0.192259e-03_jprb, 0.195060e-03_jprb, 0.150914e-03_jprb &
13719  &, 0.105367e-03_jprb, 0.106804e-03_jprb, 0.591261e-04_jprb &
13720  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.100000e-04_jprb &
13721  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13722  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13723  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13724  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13725  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13726 xcw( 312, :) = (/ &
13727  & 0.948356e+00_jprb, 0.934722e+00_jprb, 0.920817e+00_jprb, 0.906653e+00_jprb &
13728  &, 0.892237e+00_jprb, 0.877582e+00_jprb, 0.862695e+00_jprb &
13729  &, 0.847590e+00_jprb, 0.832276e+00_jprb, 0.816763e+00_jprb, 0.801066e+00_jprb &
13730  &, 0.785193e+00_jprb, 0.769158e+00_jprb, 0.752973e+00_jprb &
13731  &, 0.736652e+00_jprb, 0.720204e+00_jprb, 0.703648e+00_jprb, 0.686994e+00_jprb &
13732  &, 0.670257e+00_jprb, 0.653453e+00_jprb, 0.636595e+00_jprb &
13733  &, 0.619698e+00_jprb, 0.602781e+00_jprb, 0.585858e+00_jprb, 0.568943e+00_jprb &
13734  &, 0.552053e+00_jprb, 0.535211e+00_jprb, 0.518427e+00_jprb &
13735  &, 0.501722e+00_jprb, 0.485111e+00_jprb, 0.468615e+00_jprb, 0.452244e+00_jprb &
13736  &, 0.436027e+00_jprb, 0.419972e+00_jprb, 0.404096e+00_jprb &
13737  &, 0.388423e+00_jprb, 0.372963e+00_jprb, 0.357733e+00_jprb, 0.342751e+00_jprb &
13738  &, 0.328038e+00_jprb, 0.313602e+00_jprb, 0.299446e+00_jprb &
13739  &, 0.285600e+00_jprb, 0.272076e+00_jprb, 0.258885e+00_jprb, 0.246024e+00_jprb &
13740  &, 0.233514e+00_jprb, 0.221350e+00_jprb, 0.209563e+00_jprb &
13741  &, 0.198146e+00_jprb, 0.187113e+00_jprb, 0.176453e+00_jprb, 0.166178e+00_jprb &
13742  &, 0.156285e+00_jprb, 0.146780e+00_jprb, 0.137671e+00_jprb &
13743  &, 0.128931e+00_jprb, 0.120593e+00_jprb, 0.112623e+00_jprb, 0.105019e+00_jprb &
13744  &, 0.978053e-01_jprb, 0.909409e-01_jprb, 0.844480e-01_jprb &
13745  &, 0.782946e-01_jprb, 0.724808e-01_jprb, 0.669860e-01_jprb, 0.618245e-01_jprb &
13746  &, 0.569706e-01_jprb, 0.524350e-01_jprb, 0.481658e-01_jprb &
13747  &, 0.441896e-01_jprb, 0.404689e-01_jprb, 0.370060e-01_jprb, 0.337794e-01_jprb &
13748  &, 0.308106e-01_jprb, 0.280282e-01_jprb, 0.254731e-01_jprb &
13749  &, 0.231156e-01_jprb, 0.209475e-01_jprb, 0.189338e-01_jprb, 0.171133e-01_jprb &
13750  &, 0.154221e-01_jprb, 0.138709e-01_jprb, 0.124705e-01_jprb &
13751  &, 0.111768e-01_jprb, 0.100263e-01_jprb, 0.897156e-02_jprb, 0.799032e-02_jprb &
13752  &, 0.714835e-02_jprb, 0.636323e-02_jprb, 0.563941e-02_jprb &
13753  &, 0.501306e-02_jprb, 0.442608e-02_jprb, 0.391431e-02_jprb, 0.344922e-02_jprb &
13754  &, 0.303401e-02_jprb, 0.267194e-02_jprb, 0.236637e-02_jprb &
13755  &, 0.204916e-02_jprb, 0.179290e-02_jprb, 0.156411e-02_jprb, 0.136452e-02_jprb &
13756  &, 0.119588e-02_jprb, 0.102111e-02_jprb, 0.919185e-03_jprb &
13757  &, 0.773353e-03_jprb, 0.663267e-03_jprb, 0.590829e-03_jprb, 0.515829e-03_jprb &
13758  &, 0.438230e-03_jprb, 0.357996e-03_jprb, 0.319274e-03_jprb &
13759  &, 0.279222e-03_jprb, 0.237824e-03_jprb, 0.195060e-03_jprb, 0.150914e-03_jprb &
13760  &, 0.105367e-03_jprb, 0.106804e-03_jprb, 0.108252e-03_jprb &
13761  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.100000e-04_jprb &
13762  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13763  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13764  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13765  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13766  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13767 xcw( 313, :) = (/ &
13768  & 0.948629e+00_jprb, 0.935060e+00_jprb, 0.921219e+00_jprb, 0.907117e+00_jprb &
13769  &, 0.892763e+00_jprb, 0.878166e+00_jprb, 0.863338e+00_jprb &
13770  &, 0.848288e+00_jprb, 0.833028e+00_jprb, 0.817569e+00_jprb, 0.801922e+00_jprb &
13771  &, 0.786099e+00_jprb, 0.770111e+00_jprb, 0.753972e+00_jprb &
13772  &, 0.737694e+00_jprb, 0.721288e+00_jprb, 0.704771e+00_jprb, 0.688155e+00_jprb &
13773  &, 0.671454e+00_jprb, 0.654684e+00_jprb, 0.637856e+00_jprb &
13774  &, 0.620991e+00_jprb, 0.604097e+00_jprb, 0.587201e+00_jprb, 0.570307e+00_jprb &
13775  &, 0.553439e+00_jprb, 0.536615e+00_jprb, 0.519847e+00_jprb &
13776  &, 0.503153e+00_jprb, 0.486554e+00_jprb, 0.470065e+00_jprb, 0.453705e+00_jprb &
13777  &, 0.437489e+00_jprb, 0.421432e+00_jprb, 0.405561e+00_jprb &
13778  &, 0.389883e+00_jprb, 0.374413e+00_jprb, 0.359180e+00_jprb, 0.344195e+00_jprb &
13779  &, 0.329466e+00_jprb, 0.315004e+00_jprb, 0.300840e+00_jprb &
13780  &, 0.286984e+00_jprb, 0.273438e+00_jprb, 0.260211e+00_jprb, 0.247336e+00_jprb &
13781  &, 0.234797e+00_jprb, 0.222615e+00_jprb, 0.210795e+00_jprb &
13782  &, 0.199354e+00_jprb, 0.188284e+00_jprb, 0.177584e+00_jprb, 0.167279e+00_jprb &
13783  &, 0.157354e+00_jprb, 0.147815e+00_jprb, 0.138670e+00_jprb &
13784  &, 0.129908e+00_jprb, 0.121528e+00_jprb, 0.113516e+00_jprb, 0.105898e+00_jprb &
13785  &, 0.986370e-01_jprb, 0.917394e-01_jprb, 0.851935e-01_jprb &
13786  &, 0.790023e-01_jprb, 0.731671e-01_jprb, 0.676495e-01_jprb, 0.624443e-01_jprb &
13787  &, 0.575643e-01_jprb, 0.529809e-01_jprb, 0.486821e-01_jprb &
13788  &, 0.446746e-01_jprb, 0.409211e-01_jprb, 0.374457e-01_jprb, 0.342058e-01_jprb &
13789  &, 0.311770e-01_jprb, 0.283787e-01_jprb, 0.258069e-01_jprb &
13790  &, 0.234318e-01_jprb, 0.212204e-01_jprb, 0.192121e-01_jprb, 0.173455e-01_jprb &
13791  &, 0.156325e-01_jprb, 0.140853e-01_jprb, 0.126618e-01_jprb &
13792  &, 0.113717e-01_jprb, 0.101965e-01_jprb, 0.911610e-02_jprb, 0.813756e-02_jprb &
13793  &, 0.726832e-02_jprb, 0.645487e-02_jprb, 0.573271e-02_jprb &
13794  &, 0.510806e-02_jprb, 0.452279e-02_jprb, 0.397993e-02_jprb, 0.351600e-02_jprb &
13795  &, 0.310196e-02_jprb, 0.274108e-02_jprb, 0.240154e-02_jprb &
13796  &, 0.212071e-02_jprb, 0.182928e-02_jprb, 0.160111e-02_jprb, 0.140214e-02_jprb &
13797  &, 0.123414e-02_jprb, 0.106000e-02_jprb, 0.919185e-03_jprb &
13798  &, 0.813530e-03_jprb, 0.704096e-03_jprb, 0.590829e-03_jprb, 0.515829e-03_jprb &
13799  &, 0.438230e-03_jprb, 0.357996e-03_jprb, 0.319274e-03_jprb &
13800  &, 0.279222e-03_jprb, 0.237824e-03_jprb, 0.195060e-03_jprb, 0.150914e-03_jprb &
13801  &, 0.153051e-03_jprb, 0.106804e-03_jprb, 0.108252e-03_jprb &
13802  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.100000e-04_jprb &
13803  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13804  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13805  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13806  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13807  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13808 xcw( 314, :) = (/ &
13809  & 0.948900e+00_jprb, 0.935398e+00_jprb, 0.921620e+00_jprb, 0.907581e+00_jprb &
13810  &, 0.893287e+00_jprb, 0.878749e+00_jprb, 0.863979e+00_jprb &
13811  &, 0.848985e+00_jprb, 0.833780e+00_jprb, 0.818374e+00_jprb, 0.802778e+00_jprb &
13812  &, 0.787003e+00_jprb, 0.771064e+00_jprb, 0.754970e+00_jprb &
13813  &, 0.738734e+00_jprb, 0.722372e+00_jprb, 0.705895e+00_jprb, 0.689317e+00_jprb &
13814  &, 0.672651e+00_jprb, 0.655911e+00_jprb, 0.639117e+00_jprb &
13815  &, 0.622280e+00_jprb, 0.605416e+00_jprb, 0.588540e+00_jprb, 0.571675e+00_jprb &
13816  &, 0.554825e+00_jprb, 0.538019e+00_jprb, 0.521266e+00_jprb &
13817  &, 0.504588e+00_jprb, 0.488000e+00_jprb, 0.471519e+00_jprb, 0.455162e+00_jprb &
13818  &, 0.438952e+00_jprb, 0.422897e+00_jprb, 0.407026e+00_jprb &
13819  &, 0.391343e+00_jprb, 0.375872e+00_jprb, 0.360628e+00_jprb, 0.345629e+00_jprb &
13820  &, 0.330895e+00_jprb, 0.316427e+00_jprb, 0.302244e+00_jprb &
13821  &, 0.288369e+00_jprb, 0.274800e+00_jprb, 0.261561e+00_jprb, 0.248647e+00_jprb &
13822  &, 0.236092e+00_jprb, 0.223879e+00_jprb, 0.212039e+00_jprb &
13823  &, 0.200563e+00_jprb, 0.189455e+00_jprb, 0.178741e+00_jprb, 0.168394e+00_jprb &
13824  &, 0.158438e+00_jprb, 0.148866e+00_jprb, 0.139685e+00_jprb &
13825  &, 0.130884e+00_jprb, 0.122464e+00_jprb, 0.114424e+00_jprb, 0.106761e+00_jprb &
13826  &, 0.994688e-01_jprb, 0.925380e-01_jprb, 0.859567e-01_jprb &
13827  &, 0.797463e-01_jprb, 0.738534e-01_jprb, 0.682940e-01_jprb, 0.630642e-01_jprb &
13828  &, 0.581581e-01_jprb, 0.535470e-01_jprb, 0.492190e-01_jprb &
13829  &, 0.451807e-01_jprb, 0.413948e-01_jprb, 0.378853e-01_jprb, 0.346096e-01_jprb &
13830  &, 0.315663e-01_jprb, 0.287526e-01_jprb, 0.261407e-01_jprb &
13831  &, 0.237236e-01_jprb, 0.215181e-01_jprb, 0.194651e-01_jprb, 0.176035e-01_jprb &
13832  &, 0.158692e-01_jprb, 0.142998e-01_jprb, 0.128531e-01_jprb &
13833  &, 0.115388e-01_jprb, 0.103384e-01_jprb, 0.926064e-02_jprb, 0.828479e-02_jprb &
13834  &, 0.738829e-02_jprb, 0.657704e-02_jprb, 0.585712e-02_jprb &
13835  &, 0.520305e-02_jprb, 0.458725e-02_jprb, 0.407836e-02_jprb, 0.358279e-02_jprb &
13836  &, 0.316992e-02_jprb, 0.277565e-02_jprb, 0.243671e-02_jprb &
13837  &, 0.215648e-02_jprb, 0.190205e-02_jprb, 0.163811e-02_jprb, 0.143977e-02_jprb &
13838  &, 0.123414e-02_jprb, 0.109889e-02_jprb, 0.958715e-03_jprb &
13839  &, 0.813530e-03_jprb, 0.704096e-03_jprb, 0.590829e-03_jprb, 0.515829e-03_jprb &
13840  &, 0.438230e-03_jprb, 0.401495e-03_jprb, 0.319274e-03_jprb &
13841  &, 0.279222e-03_jprb, 0.237824e-03_jprb, 0.195060e-03_jprb, 0.150914e-03_jprb &
13842  &, 0.153051e-03_jprb, 0.106804e-03_jprb, 0.108252e-03_jprb &
13843  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.100000e-04_jprb &
13844  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13845  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13846  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13847  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13848  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13849 xcw( 315, :) = (/ &
13850  & 0.949174e+00_jprb, 0.935734e+00_jprb, 0.922021e+00_jprb, 0.908044e+00_jprb &
13851  &, 0.893811e+00_jprb, 0.879333e+00_jprb, 0.864620e+00_jprb &
13852  &, 0.849683e+00_jprb, 0.834531e+00_jprb, 0.819178e+00_jprb, 0.803633e+00_jprb &
13853  &, 0.787909e+00_jprb, 0.772015e+00_jprb, 0.755968e+00_jprb &
13854  &, 0.739776e+00_jprb, 0.723455e+00_jprb, 0.707018e+00_jprb, 0.690477e+00_jprb &
13855  &, 0.673847e+00_jprb, 0.657142e+00_jprb, 0.640379e+00_jprb &
13856  &, 0.623570e+00_jprb, 0.606736e+00_jprb, 0.589880e+00_jprb, 0.573039e+00_jprb &
13857  &, 0.556211e+00_jprb, 0.539424e+00_jprb, 0.522686e+00_jprb &
13858  &, 0.506023e+00_jprb, 0.489443e+00_jprb, 0.472973e+00_jprb, 0.456622e+00_jprb &
13859  &, 0.440415e+00_jprb, 0.424366e+00_jprb, 0.408491e+00_jprb &
13860  &, 0.392804e+00_jprb, 0.377331e+00_jprb, 0.362084e+00_jprb, 0.347072e+00_jprb &
13861  &, 0.332324e+00_jprb, 0.317839e+00_jprb, 0.303648e+00_jprb &
13862  &, 0.289753e+00_jprb, 0.276163e+00_jprb, 0.262899e+00_jprb, 0.249971e+00_jprb &
13863  &, 0.237387e+00_jprb, 0.225156e+00_jprb, 0.213283e+00_jprb &
13864  &, 0.201772e+00_jprb, 0.190639e+00_jprb, 0.179885e+00_jprb, 0.169509e+00_jprb &
13865  &, 0.159522e+00_jprb, 0.149916e+00_jprb, 0.140699e+00_jprb &
13866  &, 0.131860e+00_jprb, 0.123415e+00_jprb, 0.115333e+00_jprb, 0.107641e+00_jprb &
13867  &, 0.100301e+00_jprb, 0.933365e-01_jprb, 0.867377e-01_jprb &
13868  &, 0.804721e-01_jprb, 0.745583e-01_jprb, 0.689575e-01_jprb, 0.637035e-01_jprb &
13869  &, 0.587518e-01_jprb, 0.541131e-01_jprb, 0.497559e-01_jprb &
13870  &, 0.456658e-01_jprb, 0.418685e-01_jprb, 0.383249e-01_jprb, 0.350135e-01_jprb &
13871  &, 0.319556e-01_jprb, 0.291032e-01_jprb, 0.264745e-01_jprb &
13872  &, 0.240398e-01_jprb, 0.218157e-01_jprb, 0.197434e-01_jprb, 0.178356e-01_jprb &
13873  &, 0.161059e-01_jprb, 0.145143e-01_jprb, 0.130444e-01_jprb &
13874  &, 0.117337e-01_jprb, 0.105087e-01_jprb, 0.940518e-02_jprb, 0.840259e-02_jprb &
13875  &, 0.750826e-02_jprb, 0.669922e-02_jprb, 0.595042e-02_jprb &
13876  &, 0.529805e-02_jprb, 0.468396e-02_jprb, 0.414398e-02_jprb, 0.364957e-02_jprb &
13877  &, 0.323787e-02_jprb, 0.284480e-02_jprb, 0.250705e-02_jprb &
13878  &, 0.219226e-02_jprb, 0.193844e-02_jprb, 0.167511e-02_jprb, 0.147739e-02_jprb &
13879  &, 0.127239e-02_jprb, 0.109889e-02_jprb, 0.958715e-03_jprb &
13880  &, 0.853706e-03_jprb, 0.704096e-03_jprb, 0.632317e-03_jprb, 0.515829e-03_jprb &
13881  &, 0.481052e-03_jprb, 0.401495e-03_jprb, 0.319274e-03_jprb &
13882  &, 0.279222e-03_jprb, 0.237824e-03_jprb, 0.195060e-03_jprb, 0.150914e-03_jprb &
13883  &, 0.153051e-03_jprb, 0.106804e-03_jprb, 0.108252e-03_jprb &
13884  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.100000e-04_jprb &
13885  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13886  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13887  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13888  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13889  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13890 
13891 IF (lhook) CALL dr_hook('SU_MCICA:PART45',1,zhook_handle)
13892 END SUBROUTINE part45
13893 
13894 #ifdef VPP5000
13895 !OCL SCALAR
13896 #endif
13897 !option! -Nv -NO
13898 #ifdef RS6K
13899 @process nooptimize
13900 #endif
13901 !pgi$r opt=0
13902 SUBROUTINE part46
13903 
13904 REAL(KIND=JPRB) :: ZHOOK_HANDLE
13905 IF (lhook) CALL dr_hook('SU_MCICA:PART46',0,zhook_handle)
13906 
13907 xcw( 316, :) = (/ &
13908  & 0.949448e+00_jprb, 0.936072e+00_jprb, 0.922422e+00_jprb, 0.908507e+00_jprb &
13909  &, 0.894335e+00_jprb, 0.879916e+00_jprb, 0.865261e+00_jprb &
13910  &, 0.850379e+00_jprb, 0.835283e+00_jprb, 0.819982e+00_jprb, 0.804488e+00_jprb &
13911  &, 0.788812e+00_jprb, 0.772967e+00_jprb, 0.756964e+00_jprb &
13912  &, 0.740817e+00_jprb, 0.724538e+00_jprb, 0.708140e+00_jprb, 0.691637e+00_jprb &
13913  &, 0.675044e+00_jprb, 0.658373e+00_jprb, 0.641640e+00_jprb &
13914  &, 0.624863e+00_jprb, 0.608052e+00_jprb, 0.591230e+00_jprb, 0.574406e+00_jprb &
13915  &, 0.557600e+00_jprb, 0.540828e+00_jprb, 0.524109e+00_jprb &
13916  &, 0.507458e+00_jprb, 0.490889e+00_jprb, 0.474426e+00_jprb, 0.458087e+00_jprb &
13917  &, 0.441882e+00_jprb, 0.425834e+00_jprb, 0.409961e+00_jprb &
13918  &, 0.394273e+00_jprb, 0.378790e+00_jprb, 0.363532e+00_jprb, 0.348516e+00_jprb &
13919  &, 0.333753e+00_jprb, 0.319261e+00_jprb, 0.305053e+00_jprb &
13920  &, 0.291137e+00_jprb, 0.277525e+00_jprb, 0.264248e+00_jprb, 0.251294e+00_jprb &
13921  &, 0.238683e+00_jprb, 0.226421e+00_jprb, 0.214527e+00_jprb &
13922  &, 0.202994e+00_jprb, 0.191824e+00_jprb, 0.181043e+00_jprb, 0.170639e+00_jprb &
13923  &, 0.160620e+00_jprb, 0.150981e+00_jprb, 0.141729e+00_jprb &
13924  &, 0.132852e+00_jprb, 0.124367e+00_jprb, 0.116258e+00_jprb, 0.108521e+00_jprb &
13925  &, 0.101149e+00_jprb, 0.941524e-01_jprb, 0.875010e-01_jprb &
13926  &, 0.811980e-01_jprb, 0.752446e-01_jprb, 0.696400e-01_jprb, 0.643427e-01_jprb &
13927  &, 0.593456e-01_jprb, 0.546792e-01_jprb, 0.502928e-01_jprb &
13928  &, 0.461719e-01_jprb, 0.423422e-01_jprb, 0.387646e-01_jprb, 0.354398e-01_jprb &
13929  &, 0.323449e-01_jprb, 0.294770e-01_jprb, 0.268082e-01_jprb &
13930  &, 0.243560e-01_jprb, 0.220886e-01_jprb, 0.200217e-01_jprb, 0.180936e-01_jprb &
13931  &, 0.163426e-01_jprb, 0.147288e-01_jprb, 0.132630e-01_jprb &
13932  &, 0.119008e-01_jprb, 0.106789e-01_jprb, 0.957863e-02_jprb, 0.854982e-02_jprb &
13933  &, 0.762823e-02_jprb, 0.679085e-02_jprb, 0.604373e-02_jprb &
13934  &, 0.539304e-02_jprb, 0.478066e-02_jprb, 0.420960e-02_jprb, 0.374974e-02_jprb &
13935  &, 0.330583e-02_jprb, 0.291394e-02_jprb, 0.254222e-02_jprb &
13936  &, 0.222803e-02_jprb, 0.197483e-02_jprb, 0.171212e-02_jprb, 0.151502e-02_jprb &
13937  &, 0.131064e-02_jprb, 0.113778e-02_jprb, 0.998245e-03_jprb &
13938  &, 0.853706e-03_jprb, 0.744925e-03_jprb, 0.632317e-03_jprb, 0.557981e-03_jprb &
13939  &, 0.481052e-03_jprb, 0.401495e-03_jprb, 0.363455e-03_jprb &
13940  &, 0.279222e-03_jprb, 0.237824e-03_jprb, 0.195060e-03_jprb, 0.197886e-03_jprb &
13941  &, 0.153051e-03_jprb, 0.106804e-03_jprb, 0.108252e-03_jprb &
13942  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
13943  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13944  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13945  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13946  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13947  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13948 xcw( 317, :) = (/ &
13949  & 0.949720e+00_jprb, 0.936410e+00_jprb, 0.922822e+00_jprb, 0.908970e+00_jprb &
13950  &, 0.894858e+00_jprb, 0.880498e+00_jprb, 0.865900e+00_jprb &
13951  &, 0.851075e+00_jprb, 0.836033e+00_jprb, 0.820785e+00_jprb, 0.805342e+00_jprb &
13952  &, 0.789716e+00_jprb, 0.773918e+00_jprb, 0.757961e+00_jprb &
13953  &, 0.741858e+00_jprb, 0.725620e+00_jprb, 0.709262e+00_jprb, 0.692797e+00_jprb &
13954  &, 0.676240e+00_jprb, 0.659604e+00_jprb, 0.642901e+00_jprb &
13955  &, 0.626153e+00_jprb, 0.609371e+00_jprb, 0.592573e+00_jprb, 0.575771e+00_jprb &
13956  &, 0.558986e+00_jprb, 0.542233e+00_jprb, 0.525529e+00_jprb &
13957  &, 0.508893e+00_jprb, 0.492336e+00_jprb, 0.475884e+00_jprb, 0.459548e+00_jprb &
13958  &, 0.443350e+00_jprb, 0.427303e+00_jprb, 0.411431e+00_jprb &
13959  &, 0.395743e+00_jprb, 0.380259e+00_jprb, 0.364989e+00_jprb, 0.349970e+00_jprb &
13960  &, 0.335192e+00_jprb, 0.320684e+00_jprb, 0.306457e+00_jprb &
13961  &, 0.292522e+00_jprb, 0.278898e+00_jprb, 0.265598e+00_jprb, 0.252618e+00_jprb &
13962  &, 0.239990e+00_jprb, 0.227698e+00_jprb, 0.215771e+00_jprb &
13963  &, 0.204216e+00_jprb, 0.193021e+00_jprb, 0.182201e+00_jprb, 0.171768e+00_jprb &
13964  &, 0.161704e+00_jprb, 0.152032e+00_jprb, 0.142744e+00_jprb &
13965  &, 0.133844e+00_jprb, 0.125318e+00_jprb, 0.117166e+00_jprb, 0.109400e+00_jprb &
13966  &, 0.101998e+00_jprb, 0.949510e-01_jprb, 0.882820e-01_jprb &
13967  &, 0.819420e-01_jprb, 0.759680e-01_jprb, 0.703035e-01_jprb, 0.649820e-01_jprb &
13968  &, 0.599591e-01_jprb, 0.552453e-01_jprb, 0.508297e-01_jprb &
13969  &, 0.466991e-01_jprb, 0.428159e-01_jprb, 0.392262e-01_jprb, 0.358662e-01_jprb &
13970  &, 0.327342e-01_jprb, 0.298509e-01_jprb, 0.271659e-01_jprb &
13971  &, 0.246965e-01_jprb, 0.223863e-01_jprb, 0.202999e-01_jprb, 0.183516e-01_jprb &
13972  &, 0.165793e-01_jprb, 0.149433e-01_jprb, 0.134543e-01_jprb &
13973  &, 0.120957e-01_jprb, 0.108492e-01_jprb, 0.972317e-02_jprb, 0.869706e-02_jprb &
13974  &, 0.777820e-02_jprb, 0.691303e-02_jprb, 0.616814e-02_jprb &
13975  &, 0.548804e-02_jprb, 0.484513e-02_jprb, 0.430803e-02_jprb, 0.381652e-02_jprb &
13976  &, 0.337378e-02_jprb, 0.294851e-02_jprb, 0.261256e-02_jprb &
13977  &, 0.229958e-02_jprb, 0.201121e-02_jprb, 0.174912e-02_jprb, 0.155264e-02_jprb &
13978  &, 0.134890e-02_jprb, 0.117667e-02_jprb, 0.998245e-03_jprb &
13979  &, 0.893883e-03_jprb, 0.744925e-03_jprb, 0.673805e-03_jprb, 0.557981e-03_jprb &
13980  &, 0.481052e-03_jprb, 0.401495e-03_jprb, 0.363455e-03_jprb &
13981  &, 0.279222e-03_jprb, 0.237824e-03_jprb, 0.195060e-03_jprb, 0.197886e-03_jprb &
13982  &, 0.153051e-03_jprb, 0.106804e-03_jprb, 0.108252e-03_jprb &
13983  &, 0.598563e-04_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
13984  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13985  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13986  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13987  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
13988  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
13989 xcw( 318, :) = (/ &
13990  & 0.949989e+00_jprb, 0.936746e+00_jprb, 0.923222e+00_jprb, 0.909432e+00_jprb &
13991  &, 0.895380e+00_jprb, 0.881080e+00_jprb, 0.866540e+00_jprb &
13992  &, 0.851768e+00_jprb, 0.836783e+00_jprb, 0.821587e+00_jprb, 0.806196e+00_jprb &
13993  &, 0.790619e+00_jprb, 0.774868e+00_jprb, 0.758957e+00_jprb &
13994  &, 0.742897e+00_jprb, 0.726701e+00_jprb, 0.710384e+00_jprb, 0.693958e+00_jprb &
13995  &, 0.677435e+00_jprb, 0.660832e+00_jprb, 0.644163e+00_jprb &
13996  &, 0.627446e+00_jprb, 0.610690e+00_jprb, 0.593916e+00_jprb, 0.577138e+00_jprb &
13997  &, 0.560376e+00_jprb, 0.543641e+00_jprb, 0.526952e+00_jprb &
13998  &, 0.510328e+00_jprb, 0.493786e+00_jprb, 0.477342e+00_jprb, 0.461013e+00_jprb &
13999  &, 0.444821e+00_jprb, 0.428776e+00_jprb, 0.412900e+00_jprb &
14000  &, 0.397213e+00_jprb, 0.381718e+00_jprb, 0.366455e+00_jprb, 0.351413e+00_jprb &
14001  &, 0.336631e+00_jprb, 0.322107e+00_jprb, 0.307862e+00_jprb &
14002  &, 0.293917e+00_jprb, 0.280272e+00_jprb, 0.266948e+00_jprb, 0.253953e+00_jprb &
14003  &, 0.241297e+00_jprb, 0.228987e+00_jprb, 0.217028e+00_jprb &
14004  &, 0.205438e+00_jprb, 0.194219e+00_jprb, 0.183373e+00_jprb, 0.172897e+00_jprb &
14005  &, 0.162802e+00_jprb, 0.153097e+00_jprb, 0.143773e+00_jprb &
14006  &, 0.134836e+00_jprb, 0.126286e+00_jprb, 0.118091e+00_jprb, 0.110296e+00_jprb &
14007  &, 0.102847e+00_jprb, 0.957843e-01_jprb, 0.890630e-01_jprb &
14008  &, 0.826860e-01_jprb, 0.766728e-01_jprb, 0.709859e-01_jprb, 0.656213e-01_jprb &
14009  &, 0.605726e-01_jprb, 0.558114e-01_jprb, 0.513666e-01_jprb &
14010  &, 0.472052e-01_jprb, 0.433112e-01_jprb, 0.396659e-01_jprb, 0.362925e-01_jprb &
14011  &, 0.331464e-01_jprb, 0.302248e-01_jprb, 0.275235e-01_jprb &
14012  &, 0.250127e-01_jprb, 0.227088e-01_jprb, 0.205782e-01_jprb, 0.186095e-01_jprb &
14013  &, 0.168160e-01_jprb, 0.151577e-01_jprb, 0.136455e-01_jprb &
14014  &, 0.122628e-01_jprb, 0.110194e-01_jprb, 0.986771e-02_jprb, 0.884430e-02_jprb &
14015  &, 0.789817e-02_jprb, 0.703521e-02_jprb, 0.626144e-02_jprb &
14016  &, 0.558303e-02_jprb, 0.494183e-02_jprb, 0.437365e-02_jprb, 0.388330e-02_jprb &
14017  &, 0.344174e-02_jprb, 0.301765e-02_jprb, 0.264773e-02_jprb &
14018  &, 0.233536e-02_jprb, 0.204760e-02_jprb, 0.178612e-02_jprb, 0.155264e-02_jprb &
14019  &, 0.138715e-02_jprb, 0.117667e-02_jprb, 0.103777e-02_jprb &
14020  &, 0.893883e-03_jprb, 0.785754e-03_jprb, 0.673805e-03_jprb, 0.600133e-03_jprb &
14021  &, 0.481052e-03_jprb, 0.444995e-03_jprb, 0.363455e-03_jprb &
14022  &, 0.324093e-03_jprb, 0.283389e-03_jprb, 0.241326e-03_jprb, 0.197886e-03_jprb &
14023  &, 0.153051e-03_jprb, 0.106804e-03_jprb, 0.108252e-03_jprb &
14024  &, 0.109713e-03_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14025  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14026  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14027  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14028  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14029  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14030 xcw( 319, :) = (/ &
14031  & 0.950262e+00_jprb, 0.937082e+00_jprb, 0.923621e+00_jprb, 0.909893e+00_jprb &
14032  &, 0.895902e+00_jprb, 0.881661e+00_jprb, 0.867179e+00_jprb &
14033  &, 0.852466e+00_jprb, 0.837532e+00_jprb, 0.822389e+00_jprb, 0.807049e+00_jprb &
14034  &, 0.791522e+00_jprb, 0.775818e+00_jprb, 0.759953e+00_jprb &
14035  &, 0.743938e+00_jprb, 0.727784e+00_jprb, 0.711506e+00_jprb, 0.695118e+00_jprb &
14036  &, 0.678631e+00_jprb, 0.662063e+00_jprb, 0.645427e+00_jprb &
14037  &, 0.628736e+00_jprb, 0.612010e+00_jprb, 0.595263e+00_jprb, 0.578506e+00_jprb &
14038  &, 0.561762e+00_jprb, 0.545049e+00_jprb, 0.528376e+00_jprb &
14039  &, 0.511766e+00_jprb, 0.495237e+00_jprb, 0.478800e+00_jprb, 0.462482e+00_jprb &
14040  &, 0.446293e+00_jprb, 0.430250e+00_jprb, 0.414374e+00_jprb &
14041  &, 0.398682e+00_jprb, 0.383186e+00_jprb, 0.367912e+00_jprb, 0.352867e+00_jprb &
14042  &, 0.338070e+00_jprb, 0.323540e+00_jprb, 0.309277e+00_jprb &
14043  &, 0.295312e+00_jprb, 0.281657e+00_jprb, 0.268309e+00_jprb, 0.255289e+00_jprb &
14044  &, 0.242605e+00_jprb, 0.230264e+00_jprb, 0.218286e+00_jprb &
14045  &, 0.206660e+00_jprb, 0.195417e+00_jprb, 0.184531e+00_jprb, 0.174026e+00_jprb &
14046  &, 0.163915e+00_jprb, 0.154177e+00_jprb, 0.144818e+00_jprb &
14047  &, 0.135843e+00_jprb, 0.127237e+00_jprb, 0.119032e+00_jprb, 0.111176e+00_jprb &
14048  &, 0.103713e+00_jprb, 0.966002e-01_jprb, 0.898440e-01_jprb &
14049  &, 0.834482e-01_jprb, 0.773777e-01_jprb, 0.716684e-01_jprb, 0.662605e-01_jprb &
14050  &, 0.611862e-01_jprb, 0.563977e-01_jprb, 0.519242e-01_jprb &
14051  &, 0.477113e-01_jprb, 0.437849e-01_jprb, 0.401275e-01_jprb, 0.367188e-01_jprb &
14052  &, 0.335357e-01_jprb, 0.305987e-01_jprb, 0.278573e-01_jprb &
14053  &, 0.253289e-01_jprb, 0.230065e-01_jprb, 0.208565e-01_jprb, 0.188675e-01_jprb &
14054  &, 0.170527e-01_jprb, 0.153990e-01_jprb, 0.138642e-01_jprb &
14055  &, 0.124577e-01_jprb, 0.111897e-01_jprb, 0.100412e-01_jprb, 0.899154e-02_jprb &
14056  &, 0.801814e-02_jprb, 0.715739e-02_jprb, 0.638585e-02_jprb &
14057  &, 0.567803e-02_jprb, 0.503853e-02_jprb, 0.447207e-02_jprb, 0.395008e-02_jprb &
14058  &, 0.350969e-02_jprb, 0.308679e-02_jprb, 0.271807e-02_jprb &
14059  &, 0.237113e-02_jprb, 0.208398e-02_jprb, 0.182313e-02_jprb, 0.159027e-02_jprb &
14060  &, 0.138715e-02_jprb, 0.121556e-02_jprb, 0.107730e-02_jprb &
14061  &, 0.934059e-03_jprb, 0.785754e-03_jprb, 0.673805e-03_jprb, 0.600133e-03_jprb &
14062  &, 0.523875e-03_jprb, 0.444995e-03_jprb, 0.363455e-03_jprb &
14063  &, 0.324093e-03_jprb, 0.283389e-03_jprb, 0.241326e-03_jprb, 0.197886e-03_jprb &
14064  &, 0.153051e-03_jprb, 0.155206e-03_jprb, 0.108252e-03_jprb &
14065  &, 0.109713e-03_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14066  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14067  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14068  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14069  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14070  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14071 xcw( 320, :) = (/ &
14072  & 0.950531e+00_jprb, 0.937418e+00_jprb, 0.924020e+00_jprb, 0.910354e+00_jprb &
14073  &, 0.896424e+00_jprb, 0.882242e+00_jprb, 0.867817e+00_jprb &
14074  &, 0.853160e+00_jprb, 0.838280e+00_jprb, 0.823191e+00_jprb, 0.807902e+00_jprb &
14075  &, 0.792423e+00_jprb, 0.776768e+00_jprb, 0.760948e+00_jprb &
14076  &, 0.744977e+00_jprb, 0.728865e+00_jprb, 0.712627e+00_jprb, 0.696277e+00_jprb &
14077  &, 0.679827e+00_jprb, 0.663291e+00_jprb, 0.646689e+00_jprb &
14078  &, 0.630029e+00_jprb, 0.613329e+00_jprb, 0.596606e+00_jprb, 0.579874e+00_jprb &
14079  &, 0.563151e+00_jprb, 0.546457e+00_jprb, 0.529799e+00_jprb &
14080  &, 0.513205e+00_jprb, 0.496688e+00_jprb, 0.480262e+00_jprb, 0.463947e+00_jprb &
14081  &, 0.447764e+00_jprb, 0.431723e+00_jprb, 0.415848e+00_jprb &
14082  &, 0.400152e+00_jprb, 0.384655e+00_jprb, 0.369379e+00_jprb, 0.354321e+00_jprb &
14083  &, 0.339519e+00_jprb, 0.324973e+00_jprb, 0.310692e+00_jprb &
14084  &, 0.296719e+00_jprb, 0.283030e+00_jprb, 0.269670e+00_jprb, 0.256624e+00_jprb &
14085  &, 0.243912e+00_jprb, 0.231554e+00_jprb, 0.219543e+00_jprb &
14086  &, 0.207895e+00_jprb, 0.196615e+00_jprb, 0.185702e+00_jprb, 0.175169e+00_jprb &
14087  &, 0.165013e+00_jprb, 0.155242e+00_jprb, 0.145848e+00_jprb &
14088  &, 0.136850e+00_jprb, 0.128220e+00_jprb, 0.119957e+00_jprb, 0.112072e+00_jprb &
14089  &, 0.104561e+00_jprb, 0.974161e-01_jprb, 0.906428e-01_jprb &
14090  &, 0.841922e-01_jprb, 0.781011e-01_jprb, 0.723509e-01_jprb, 0.669192e-01_jprb &
14091  &, 0.617997e-01_jprb, 0.569840e-01_jprb, 0.524611e-01_jprb &
14092  &, 0.482385e-01_jprb, 0.442801e-01_jprb, 0.405891e-01_jprb, 0.371452e-01_jprb &
14093  &, 0.339479e-01_jprb, 0.309726e-01_jprb, 0.282149e-01_jprb &
14094  &, 0.256694e-01_jprb, 0.233042e-01_jprb, 0.211348e-01_jprb, 0.191255e-01_jprb &
14095  &, 0.172895e-01_jprb, 0.156135e-01_jprb, 0.140554e-01_jprb &
14096  &, 0.126527e-01_jprb, 0.113599e-01_jprb, 0.101857e-01_jprb, 0.913878e-02_jprb &
14097  &, 0.816811e-02_jprb, 0.727957e-02_jprb, 0.647915e-02_jprb &
14098  &, 0.577302e-02_jprb, 0.513523e-02_jprb, 0.453769e-02_jprb, 0.401686e-02_jprb &
14099  &, 0.357765e-02_jprb, 0.315593e-02_jprb, 0.275324e-02_jprb &
14100  &, 0.244268e-02_jprb, 0.215675e-02_jprb, 0.186013e-02_jprb, 0.162789e-02_jprb &
14101  &, 0.142541e-02_jprb, 0.125445e-02_jprb, 0.107730e-02_jprb &
14102  &, 0.934059e-03_jprb, 0.826583e-03_jprb, 0.715293e-03_jprb, 0.600133e-03_jprb &
14103  &, 0.523875e-03_jprb, 0.444995e-03_jprb, 0.363455e-03_jprb &
14104  &, 0.324093e-03_jprb, 0.283389e-03_jprb, 0.241326e-03_jprb, 0.197886e-03_jprb &
14105  &, 0.153051e-03_jprb, 0.155206e-03_jprb, 0.108252e-03_jprb &
14106  &, 0.109713e-03_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14107  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14108  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14109  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14110  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14111  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14112 xcw( 321, :) = (/ &
14113  & 0.950803e+00_jprb, 0.937753e+00_jprb, 0.924419e+00_jprb, 0.910814e+00_jprb &
14114  &, 0.896945e+00_jprb, 0.882822e+00_jprb, 0.868454e+00_jprb &
14115  &, 0.853853e+00_jprb, 0.839029e+00_jprb, 0.823991e+00_jprb, 0.808753e+00_jprb &
14116  &, 0.793324e+00_jprb, 0.777717e+00_jprb, 0.761944e+00_jprb &
14117  &, 0.746015e+00_jprb, 0.729946e+00_jprb, 0.713749e+00_jprb, 0.697435e+00_jprb &
14118  &, 0.681022e+00_jprb, 0.664521e+00_jprb, 0.647950e+00_jprb &
14119  &, 0.631318e+00_jprb, 0.614648e+00_jprb, 0.597952e+00_jprb, 0.581245e+00_jprb &
14120  &, 0.564541e+00_jprb, 0.547865e+00_jprb, 0.531226e+00_jprb &
14121  &, 0.514644e+00_jprb, 0.498138e+00_jprb, 0.481724e+00_jprb, 0.465416e+00_jprb &
14122  &, 0.449236e+00_jprb, 0.433201e+00_jprb, 0.417327e+00_jprb &
14123  &, 0.401631e+00_jprb, 0.386133e+00_jprb, 0.370836e+00_jprb, 0.355775e+00_jprb &
14124  &, 0.340958e+00_jprb, 0.326406e+00_jprb, 0.312118e+00_jprb &
14125  &, 0.298114e+00_jprb, 0.284415e+00_jprb, 0.271031e+00_jprb, 0.257960e+00_jprb &
14126  &, 0.245232e+00_jprb, 0.232843e+00_jprb, 0.220812e+00_jprb &
14127  &, 0.209130e+00_jprb, 0.197826e+00_jprb, 0.186888e+00_jprb, 0.176313e+00_jprb &
14128  &, 0.166126e+00_jprb, 0.156322e+00_jprb, 0.146893e+00_jprb &
14129  &, 0.137858e+00_jprb, 0.129188e+00_jprb, 0.120898e+00_jprb, 0.112985e+00_jprb &
14130  &, 0.105444e+00_jprb, 0.982494e-01_jprb, 0.914238e-01_jprb &
14131  &, 0.849544e-01_jprb, 0.788245e-01_jprb, 0.730333e-01_jprb, 0.675778e-01_jprb &
14132  &, 0.624133e-01_jprb, 0.575703e-01_jprb, 0.530186e-01_jprb &
14133  &, 0.487657e-01_jprb, 0.447754e-01_jprb, 0.410507e-01_jprb, 0.375939e-01_jprb &
14134  &, 0.343601e-01_jprb, 0.313465e-01_jprb, 0.285725e-01_jprb &
14135  &, 0.260099e-01_jprb, 0.236267e-01_jprb, 0.214131e-01_jprb, 0.194093e-01_jprb &
14136  &, 0.175525e-01_jprb, 0.158280e-01_jprb, 0.142740e-01_jprb &
14137  &, 0.128476e-01_jprb, 0.115585e-01_jprb, 0.103592e-01_jprb, 0.928601e-02_jprb &
14138  &, 0.828808e-02_jprb, 0.740174e-02_jprb, 0.660356e-02_jprb &
14139  &, 0.586802e-02_jprb, 0.523194e-02_jprb, 0.463612e-02_jprb, 0.411703e-02_jprb &
14140  &, 0.364561e-02_jprb, 0.319050e-02_jprb, 0.282358e-02_jprb &
14141  &, 0.247845e-02_jprb, 0.219314e-02_jprb, 0.193413e-02_jprb, 0.166552e-02_jprb &
14142  &, 0.146366e-02_jprb, 0.129334e-02_jprb, 0.111683e-02_jprb &
14143  &, 0.974236e-03_jprb, 0.826583e-03_jprb, 0.715293e-03_jprb, 0.642286e-03_jprb &
14144  &, 0.523875e-03_jprb, 0.444995e-03_jprb, 0.407637e-03_jprb &
14145  &, 0.324093e-03_jprb, 0.283389e-03_jprb, 0.241326e-03_jprb, 0.197886e-03_jprb &
14146  &, 0.153051e-03_jprb, 0.155206e-03_jprb, 0.108252e-03_jprb &
14147  &, 0.109713e-03_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14148  &, 0.628365e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14149  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14150  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14151  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14152  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14153 xcw( 322, :) = (/ &
14154  & 0.951073e+00_jprb, 0.938088e+00_jprb, 0.924818e+00_jprb, 0.911275e+00_jprb &
14155  &, 0.897466e+00_jprb, 0.883402e+00_jprb, 0.869092e+00_jprb &
14156  &, 0.854547e+00_jprb, 0.839776e+00_jprb, 0.824793e+00_jprb, 0.809605e+00_jprb &
14157  &, 0.794225e+00_jprb, 0.778665e+00_jprb, 0.762937e+00_jprb &
14158  &, 0.747054e+00_jprb, 0.731028e+00_jprb, 0.714870e+00_jprb, 0.698596e+00_jprb &
14159  &, 0.682218e+00_jprb, 0.665752e+00_jprb, 0.649211e+00_jprb &
14160  &, 0.632611e+00_jprb, 0.615967e+00_jprb, 0.599295e+00_jprb, 0.582612e+00_jprb &
14161  &, 0.565934e+00_jprb, 0.549274e+00_jprb, 0.532654e+00_jprb &
14162  &, 0.516087e+00_jprb, 0.499592e+00_jprb, 0.483186e+00_jprb, 0.466885e+00_jprb &
14163  &, 0.450712e+00_jprb, 0.434678e+00_jprb, 0.418806e+00_jprb &
14164  &, 0.403110e+00_jprb, 0.387602e+00_jprb, 0.372312e+00_jprb, 0.357238e+00_jprb &
14165  &, 0.342407e+00_jprb, 0.327839e+00_jprb, 0.313534e+00_jprb &
14166  &, 0.299521e+00_jprb, 0.285800e+00_jprb, 0.272393e+00_jprb, 0.259307e+00_jprb &
14167  &, 0.246552e+00_jprb, 0.234146e+00_jprb, 0.222082e+00_jprb &
14168  &, 0.210379e+00_jprb, 0.199038e+00_jprb, 0.188059e+00_jprb, 0.177470e+00_jprb &
14169  &, 0.167253e+00_jprb, 0.157402e+00_jprb, 0.147953e+00_jprb &
14170  &, 0.138865e+00_jprb, 0.130171e+00_jprb, 0.121839e+00_jprb, 0.113881e+00_jprb &
14171  &, 0.106310e+00_jprb, 0.990826e-01_jprb, 0.922226e-01_jprb &
14172  &, 0.857165e-01_jprb, 0.795665e-01_jprb, 0.737347e-01_jprb, 0.682364e-01_jprb &
14173  &, 0.630466e-01_jprb, 0.581769e-01_jprb, 0.535968e-01_jprb &
14174  &, 0.492929e-01_jprb, 0.452706e-01_jprb, 0.415343e-01_jprb, 0.380202e-01_jprb &
14175  &, 0.347723e-01_jprb, 0.317437e-01_jprb, 0.289302e-01_jprb &
14176  &, 0.263260e-01_jprb, 0.239244e-01_jprb, 0.217167e-01_jprb, 0.196672e-01_jprb &
14177  &, 0.177892e-01_jprb, 0.160693e-01_jprb, 0.144926e-01_jprb &
14178  &, 0.130425e-01_jprb, 0.117288e-01_jprb, 0.105326e-01_jprb, 0.943325e-02_jprb &
14179  &, 0.843805e-02_jprb, 0.752392e-02_jprb, 0.672797e-02_jprb &
14180  &, 0.599468e-02_jprb, 0.532864e-02_jprb, 0.473455e-02_jprb, 0.418381e-02_jprb &
14181  &, 0.371356e-02_jprb, 0.325964e-02_jprb, 0.289392e-02_jprb &
14182  &, 0.255000e-02_jprb, 0.222952e-02_jprb, 0.197114e-02_jprb, 0.170314e-02_jprb &
14183  &, 0.150192e-02_jprb, 0.129334e-02_jprb, 0.115636e-02_jprb &
14184  &, 0.974236e-03_jprb, 0.867413e-03_jprb, 0.756781e-03_jprb, 0.642286e-03_jprb &
14185  &, 0.566698e-03_jprb, 0.488494e-03_jprb, 0.407637e-03_jprb &
14186  &, 0.368963e-03_jprb, 0.283389e-03_jprb, 0.241326e-03_jprb, 0.197886e-03_jprb &
14187  &, 0.200735e-03_jprb, 0.155206e-03_jprb, 0.108252e-03_jprb &
14188  &, 0.109713e-03_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14189  &, 0.628365e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14190  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14191  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14192  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14193  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14194 
14195 IF (lhook) CALL dr_hook('SU_MCICA:PART46',1,zhook_handle)
14196 END SUBROUTINE part46
14197 
14198 #ifdef VPP5000
14199 !OCL SCALAR
14200 #endif
14201 !option! -Nv -NO
14202 #ifdef RS6K
14203 @process nooptimize
14204 #endif
14205 !pgi$r opt=0
14206 SUBROUTINE part47
14207 
14208 REAL(KIND=JPRB) :: ZHOOK_HANDLE
14209 IF (lhook) CALL dr_hook('SU_MCICA:PART47',0,zhook_handle)
14210 
14211 xcw( 323, :) = (/ &
14212  & 0.951344e+00_jprb, 0.938422e+00_jprb, 0.925216e+00_jprb, 0.911735e+00_jprb &
14213  &, 0.897986e+00_jprb, 0.883980e+00_jprb, 0.869729e+00_jprb &
14214  &, 0.855239e+00_jprb, 0.840523e+00_jprb, 0.825592e+00_jprb, 0.810456e+00_jprb &
14215  &, 0.795126e+00_jprb, 0.779614e+00_jprb, 0.763932e+00_jprb &
14216  &, 0.748092e+00_jprb, 0.732107e+00_jprb, 0.715990e+00_jprb, 0.699754e+00_jprb &
14217  &, 0.683413e+00_jprb, 0.666980e+00_jprb, 0.650473e+00_jprb &
14218  &, 0.633904e+00_jprb, 0.617287e+00_jprb, 0.600642e+00_jprb, 0.583980e+00_jprb &
14219  &, 0.567323e+00_jprb, 0.550682e+00_jprb, 0.534081e+00_jprb &
14220  &, 0.517526e+00_jprb, 0.501043e+00_jprb, 0.484648e+00_jprb, 0.468359e+00_jprb &
14221  &, 0.452192e+00_jprb, 0.436160e+00_jprb, 0.420289e+00_jprb &
14222  &, 0.404588e+00_jprb, 0.389080e+00_jprb, 0.373779e+00_jprb, 0.358702e+00_jprb &
14223  &, 0.343857e+00_jprb, 0.329273e+00_jprb, 0.314960e+00_jprb &
14224  &, 0.300927e+00_jprb, 0.287197e+00_jprb, 0.273766e+00_jprb, 0.260655e+00_jprb &
14225  &, 0.247883e+00_jprb, 0.235435e+00_jprb, 0.223352e+00_jprb &
14226  &, 0.211614e+00_jprb, 0.200249e+00_jprb, 0.189245e+00_jprb, 0.178613e+00_jprb &
14227  &, 0.168366e+00_jprb, 0.158497e+00_jprb, 0.148998e+00_jprb &
14228  &, 0.139888e+00_jprb, 0.131154e+00_jprb, 0.122796e+00_jprb, 0.114794e+00_jprb &
14229  &, 0.107176e+00_jprb, 0.999333e-01_jprb, 0.930391e-01_jprb &
14230  &, 0.864968e-01_jprb, 0.802899e-01_jprb, 0.744362e-01_jprb, 0.688950e-01_jprb &
14231  &, 0.636799e-01_jprb, 0.587632e-01_jprb, 0.541544e-01_jprb &
14232  &, 0.498201e-01_jprb, 0.457874e-01_jprb, 0.419960e-01_jprb, 0.384690e-01_jprb &
14233  &, 0.351845e-01_jprb, 0.321410e-01_jprb, 0.293116e-01_jprb &
14234  &, 0.266665e-01_jprb, 0.242469e-01_jprb, 0.220203e-01_jprb, 0.199510e-01_jprb &
14235  &, 0.180522e-01_jprb, 0.163106e-01_jprb, 0.147112e-01_jprb &
14236  &, 0.132375e-01_jprb, 0.118990e-01_jprb, 0.107061e-01_jprb, 0.958049e-02_jprb &
14237  &, 0.858801e-02_jprb, 0.767664e-02_jprb, 0.685237e-02_jprb &
14238  &, 0.608967e-02_jprb, 0.542534e-02_jprb, 0.480017e-02_jprb, 0.425060e-02_jprb &
14239  &, 0.378152e-02_jprb, 0.332879e-02_jprb, 0.292909e-02_jprb &
14240  &, 0.258578e-02_jprb, 0.226591e-02_jprb, 0.200814e-02_jprb, 0.174077e-02_jprb &
14241  &, 0.154017e-02_jprb, 0.133223e-02_jprb, 0.115636e-02_jprb &
14242  &, 0.101441e-02_jprb, 0.867413e-03_jprb, 0.756781e-03_jprb, 0.642286e-03_jprb &
14243  &, 0.566698e-03_jprb, 0.488494e-03_jprb, 0.407637e-03_jprb &
14244  &, 0.368963e-03_jprb, 0.283389e-03_jprb, 0.241326e-03_jprb, 0.197886e-03_jprb &
14245  &, 0.200735e-03_jprb, 0.155206e-03_jprb, 0.108252e-03_jprb &
14246  &, 0.109713e-03_jprb, 0.605924e-04_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14247  &, 0.628365e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14248  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14249  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14250  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14251  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14252 xcw( 324, :) = (/ &
14253  & 0.951612e+00_jprb, 0.938757e+00_jprb, 0.925613e+00_jprb, 0.912194e+00_jprb &
14254  &, 0.898505e+00_jprb, 0.884559e+00_jprb, 0.870365e+00_jprb &
14255  &, 0.855931e+00_jprb, 0.841270e+00_jprb, 0.826391e+00_jprb, 0.811307e+00_jprb &
14256  &, 0.796026e+00_jprb, 0.780562e+00_jprb, 0.764926e+00_jprb &
14257  &, 0.749130e+00_jprb, 0.733187e+00_jprb, 0.717111e+00_jprb, 0.700913e+00_jprb &
14258  &, 0.684609e+00_jprb, 0.668211e+00_jprb, 0.651734e+00_jprb &
14259  &, 0.635194e+00_jprb, 0.618609e+00_jprb, 0.601988e+00_jprb, 0.585351e+00_jprb &
14260  &, 0.568716e+00_jprb, 0.552094e+00_jprb, 0.535508e+00_jprb &
14261  &, 0.518969e+00_jprb, 0.502501e+00_jprb, 0.486114e+00_jprb, 0.469832e+00_jprb &
14262  &, 0.453668e+00_jprb, 0.437642e+00_jprb, 0.421772e+00_jprb &
14263  &, 0.406067e+00_jprb, 0.390558e+00_jprb, 0.375246e+00_jprb, 0.360166e+00_jprb &
14264  &, 0.345316e+00_jprb, 0.330716e+00_jprb, 0.316386e+00_jprb &
14265  &, 0.302345e+00_jprb, 0.288581e+00_jprb, 0.275138e+00_jprb, 0.262014e+00_jprb &
14266  &, 0.249203e+00_jprb, 0.236750e+00_jprb, 0.224635e+00_jprb &
14267  &, 0.212862e+00_jprb, 0.201474e+00_jprb, 0.190444e+00_jprb, 0.179771e+00_jprb &
14268  &, 0.169493e+00_jprb, 0.159591e+00_jprb, 0.150058e+00_jprb &
14269  &, 0.140911e+00_jprb, 0.132137e+00_jprb, 0.123737e+00_jprb, 0.115724e+00_jprb &
14270  &, 0.108058e+00_jprb, 0.100767e+00_jprb, 0.938378e-01_jprb &
14271  &, 0.872590e-01_jprb, 0.810318e-01_jprb, 0.751376e-01_jprb, 0.695537e-01_jprb &
14272  &, 0.643133e-01_jprb, 0.593697e-01_jprb, 0.547326e-01_jprb &
14273  &, 0.503684e-01_jprb, 0.462826e-01_jprb, 0.424796e-01_jprb, 0.389178e-01_jprb &
14274  &, 0.355967e-01_jprb, 0.325382e-01_jprb, 0.296693e-01_jprb &
14275  &, 0.270314e-01_jprb, 0.245694e-01_jprb, 0.222986e-01_jprb, 0.202090e-01_jprb &
14276  &, 0.183152e-01_jprb, 0.165519e-01_jprb, 0.149299e-01_jprb &
14277  &, 0.134602e-01_jprb, 0.120977e-01_jprb, 0.108506e-01_jprb, 0.972773e-02_jprb &
14278  &, 0.870798e-02_jprb, 0.779882e-02_jprb, 0.694568e-02_jprb &
14279  &, 0.618467e-02_jprb, 0.552204e-02_jprb, 0.489860e-02_jprb, 0.435077e-02_jprb &
14280  &, 0.384947e-02_jprb, 0.339793e-02_jprb, 0.299943e-02_jprb &
14281  &, 0.265733e-02_jprb, 0.233868e-02_jprb, 0.204514e-02_jprb, 0.177839e-02_jprb &
14282  &, 0.157842e-02_jprb, 0.137112e-02_jprb, 0.119589e-02_jprb &
14283  &, 0.105459e-02_jprb, 0.908242e-03_jprb, 0.798268e-03_jprb, 0.684438e-03_jprb &
14284  &, 0.566698e-03_jprb, 0.488494e-03_jprb, 0.407637e-03_jprb &
14285  &, 0.368963e-03_jprb, 0.328953e-03_jprb, 0.287591e-03_jprb, 0.244857e-03_jprb &
14286  &, 0.200735e-03_jprb, 0.155206e-03_jprb, 0.108252e-03_jprb &
14287  &, 0.109713e-03_jprb, 0.111185e-03_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14288  &, 0.628365e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14289  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14290  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14291  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14292  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14293 xcw( 325, :) = (/ &
14294  & 0.951883e+00_jprb, 0.939090e+00_jprb, 0.926011e+00_jprb, 0.912653e+00_jprb &
14295  &, 0.899024e+00_jprb, 0.885137e+00_jprb, 0.871000e+00_jprb &
14296  &, 0.856623e+00_jprb, 0.842016e+00_jprb, 0.827190e+00_jprb, 0.812156e+00_jprb &
14297  &, 0.796925e+00_jprb, 0.781510e+00_jprb, 0.765919e+00_jprb &
14298  &, 0.750168e+00_jprb, 0.734267e+00_jprb, 0.718231e+00_jprb, 0.702072e+00_jprb &
14299  &, 0.685804e+00_jprb, 0.669439e+00_jprb, 0.652998e+00_jprb &
14300  &, 0.636487e+00_jprb, 0.619929e+00_jprb, 0.603335e+00_jprb, 0.586723e+00_jprb &
14301  &, 0.570106e+00_jprb, 0.553505e+00_jprb, 0.536935e+00_jprb &
14302  &, 0.520412e+00_jprb, 0.503956e+00_jprb, 0.487580e+00_jprb, 0.471305e+00_jprb &
14303  &, 0.455148e+00_jprb, 0.439125e+00_jprb, 0.423256e+00_jprb &
14304  &, 0.407556e+00_jprb, 0.392037e+00_jprb, 0.376722e+00_jprb, 0.361629e+00_jprb &
14305  &, 0.346776e+00_jprb, 0.332160e+00_jprb, 0.317822e+00_jprb &
14306  &, 0.303751e+00_jprb, 0.289989e+00_jprb, 0.276511e+00_jprb, 0.263361e+00_jprb &
14307  &, 0.250535e+00_jprb, 0.238052e+00_jprb, 0.225905e+00_jprb &
14308  &, 0.214124e+00_jprb, 0.202698e+00_jprb, 0.191629e+00_jprb, 0.180942e+00_jprb &
14309  &, 0.170620e+00_jprb, 0.160686e+00_jprb, 0.151118e+00_jprb &
14310  &, 0.141933e+00_jprb, 0.133136e+00_jprb, 0.124694e+00_jprb, 0.116636e+00_jprb &
14311  &, 0.108958e+00_jprb, 0.101617e+00_jprb, 0.946544e-01_jprb &
14312  &, 0.880393e-01_jprb, 0.817738e-01_jprb, 0.758390e-01_jprb, 0.702317e-01_jprb &
14313  &, 0.649466e-01_jprb, 0.599763e-01_jprb, 0.552901e-01_jprb &
14314  &, 0.509167e-01_jprb, 0.467994e-01_jprb, 0.429632e-01_jprb, 0.393665e-01_jprb &
14315  &, 0.360318e-01_jprb, 0.329355e-01_jprb, 0.300507e-01_jprb &
14316  &, 0.273719e-01_jprb, 0.248919e-01_jprb, 0.226022e-01_jprb, 0.204927e-01_jprb &
14317  &, 0.185519e-01_jprb, 0.167932e-01_jprb, 0.151485e-01_jprb &
14318  &, 0.136552e-01_jprb, 0.122963e-01_jprb, 0.110240e-01_jprb, 0.990442e-02_jprb &
14319  &, 0.885795e-02_jprb, 0.792100e-02_jprb, 0.707008e-02_jprb &
14320  &, 0.631133e-02_jprb, 0.561875e-02_jprb, 0.499702e-02_jprb, 0.441755e-02_jprb &
14321  &, 0.391743e-02_jprb, 0.346707e-02_jprb, 0.306976e-02_jprb &
14322  &, 0.269310e-02_jprb, 0.237507e-02_jprb, 0.208214e-02_jprb, 0.181602e-02_jprb &
14323  &, 0.161668e-02_jprb, 0.141001e-02_jprb, 0.123542e-02_jprb &
14324  &, 0.105459e-02_jprb, 0.908242e-03_jprb, 0.798268e-03_jprb, 0.684438e-03_jprb &
14325  &, 0.609521e-03_jprb, 0.531994e-03_jprb, 0.451819e-03_jprb &
14326  &, 0.368963e-03_jprb, 0.328953e-03_jprb, 0.287591e-03_jprb, 0.244857e-03_jprb &
14327  &, 0.200735e-03_jprb, 0.155206e-03_jprb, 0.157378e-03_jprb &
14328  &, 0.109713e-03_jprb, 0.111185e-03_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14329  &, 0.628365e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14330  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14331  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14332  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14333  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14334 xcw( 326, :) = (/ &
14335  & 0.952153e+00_jprb, 0.939424e+00_jprb, 0.926407e+00_jprb, 0.913111e+00_jprb &
14336  &, 0.899543e+00_jprb, 0.885715e+00_jprb, 0.871635e+00_jprb &
14337  &, 0.857314e+00_jprb, 0.842761e+00_jprb, 0.827989e+00_jprb, 0.813006e+00_jprb &
14338  &, 0.797824e+00_jprb, 0.782455e+00_jprb, 0.766912e+00_jprb &
14339  &, 0.751204e+00_jprb, 0.735346e+00_jprb, 0.719350e+00_jprb, 0.703231e+00_jprb &
14340  &, 0.686998e+00_jprb, 0.670670e+00_jprb, 0.654260e+00_jprb &
14341  &, 0.637780e+00_jprb, 0.621224e+00_jprb, 0.604681e+00_jprb, 0.588094e+00_jprb &
14342  &, 0.571499e+00_jprb, 0.554917e+00_jprb, 0.538367e+00_jprb &
14343  &, 0.521858e+00_jprb, 0.505415e+00_jprb, 0.489051e+00_jprb, 0.472783e+00_jprb &
14344  &, 0.456632e+00_jprb, 0.440611e+00_jprb, 0.424743e+00_jprb &
14345  &, 0.409034e+00_jprb, 0.393524e+00_jprb, 0.378199e+00_jprb, 0.363103e+00_jprb &
14346  &, 0.348236e+00_jprb, 0.333614e+00_jprb, 0.319259e+00_jprb &
14347  &, 0.305180e+00_jprb, 0.291385e+00_jprb, 0.277896e+00_jprb, 0.264721e+00_jprb &
14348  &, 0.251879e+00_jprb, 0.239366e+00_jprb, 0.227187e+00_jprb &
14349  &, 0.215372e+00_jprb, 0.203923e+00_jprb, 0.192828e+00_jprb, 0.182099e+00_jprb &
14350  &, 0.171762e+00_jprb, 0.161781e+00_jprb, 0.152193e+00_jprb &
14351  &, 0.142972e+00_jprb, 0.134119e+00_jprb, 0.125652e+00_jprb, 0.117566e+00_jprb &
14352  &, 0.109841e+00_jprb, 0.102485e+00_jprb, 0.954709e-01_jprb &
14353  &, 0.888196e-01_jprb, 0.825158e-01_jprb, 0.765594e-01_jprb, 0.709097e-01_jprb &
14354  &, 0.655997e-01_jprb, 0.605828e-01_jprb, 0.558683e-01_jprb &
14355  &, 0.514650e-01_jprb, 0.473162e-01_jprb, 0.434468e-01_jprb, 0.398377e-01_jprb &
14356  &, 0.364669e-01_jprb, 0.333328e-01_jprb, 0.304084e-01_jprb &
14357  &, 0.277124e-01_jprb, 0.252144e-01_jprb, 0.229058e-01_jprb, 0.207765e-01_jprb &
14358  &, 0.188149e-01_jprb, 0.170345e-01_jprb, 0.153671e-01_jprb &
14359  &, 0.138501e-01_jprb, 0.124665e-01_jprb, 0.111975e-01_jprb, 0.100517e-01_jprb &
14360  &, 0.900791e-02_jprb, 0.807372e-02_jprb, 0.719449e-02_jprb &
14361  &, 0.640632e-02_jprb, 0.571545e-02_jprb, 0.509545e-02_jprb, 0.451772e-02_jprb &
14362  &, 0.398538e-02_jprb, 0.353621e-02_jprb, 0.310493e-02_jprb &
14363  &, 0.276465e-02_jprb, 0.241145e-02_jprb, 0.211915e-02_jprb, 0.185365e-02_jprb &
14364  &, 0.165493e-02_jprb, 0.144889e-02_jprb, 0.123542e-02_jprb &
14365  &, 0.109477e-02_jprb, 0.949071e-03_jprb, 0.798268e-03_jprb, 0.726591e-03_jprb &
14366  &, 0.609521e-03_jprb, 0.531994e-03_jprb, 0.451819e-03_jprb &
14367  &, 0.368963e-03_jprb, 0.328953e-03_jprb, 0.287591e-03_jprb, 0.244857e-03_jprb &
14368  &, 0.200735e-03_jprb, 0.155206e-03_jprb, 0.157378e-03_jprb &
14369  &, 0.109713e-03_jprb, 0.111185e-03_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14370  &, 0.628365e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14371  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14372  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14373  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14374  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14375 xcw( 327, :) = (/ &
14376  & 0.952421e+00_jprb, 0.939758e+00_jprb, 0.926803e+00_jprb, 0.913569e+00_jprb &
14377  &, 0.900062e+00_jprb, 0.886292e+00_jprb, 0.872270e+00_jprb &
14378  &, 0.858005e+00_jprb, 0.843507e+00_jprb, 0.828787e+00_jprb, 0.813856e+00_jprb &
14379  &, 0.798723e+00_jprb, 0.783403e+00_jprb, 0.767904e+00_jprb &
14380  &, 0.752242e+00_jprb, 0.736426e+00_jprb, 0.720471e+00_jprb, 0.704386e+00_jprb &
14381  &, 0.688194e+00_jprb, 0.671901e+00_jprb, 0.655521e+00_jprb &
14382  &, 0.639073e+00_jprb, 0.622571e+00_jprb, 0.606028e+00_jprb, 0.589465e+00_jprb &
14383  &, 0.572892e+00_jprb, 0.556333e+00_jprb, 0.539798e+00_jprb &
14384  &, 0.523305e+00_jprb, 0.506873e+00_jprb, 0.490517e+00_jprb, 0.474261e+00_jprb &
14385  &, 0.458113e+00_jprb, 0.442098e+00_jprb, 0.426231e+00_jprb &
14386  &, 0.410523e+00_jprb, 0.395002e+00_jprb, 0.379685e+00_jprb, 0.364577e+00_jprb &
14387  &, 0.349695e+00_jprb, 0.335069e+00_jprb, 0.320696e+00_jprb &
14388  &, 0.306597e+00_jprb, 0.292793e+00_jprb, 0.279280e+00_jprb, 0.266080e+00_jprb &
14389  &, 0.253211e+00_jprb, 0.240681e+00_jprb, 0.228483e+00_jprb &
14390  &, 0.216633e+00_jprb, 0.205148e+00_jprb, 0.194027e+00_jprb, 0.183271e+00_jprb &
14391  &, 0.172889e+00_jprb, 0.162890e+00_jprb, 0.153253e+00_jprb &
14392  &, 0.144010e+00_jprb, 0.135134e+00_jprb, 0.126625e+00_jprb, 0.118495e+00_jprb &
14393  &, 0.110740e+00_jprb, 0.103336e+00_jprb, 0.963051e-01_jprb &
14394  &, 0.896180e-01_jprb, 0.832763e-01_jprb, 0.772608e-01_jprb, 0.715877e-01_jprb &
14395  &, 0.662331e-01_jprb, 0.611893e-01_jprb, 0.564672e-01_jprb &
14396  &, 0.520133e-01_jprb, 0.478329e-01_jprb, 0.439304e-01_jprb, 0.402865e-01_jprb &
14397  &, 0.369021e-01_jprb, 0.337300e-01_jprb, 0.307898e-01_jprb &
14398  &, 0.280772e-01_jprb, 0.255369e-01_jprb, 0.232093e-01_jprb, 0.210603e-01_jprb &
14399  &, 0.190779e-01_jprb, 0.172757e-01_jprb, 0.155857e-01_jprb &
14400  &, 0.140729e-01_jprb, 0.126652e-01_jprb, 0.113998e-01_jprb, 0.102283e-01_jprb &
14401  &, 0.915788e-02_jprb, 0.819590e-02_jprb, 0.731890e-02_jprb &
14402  &, 0.653298e-02_jprb, 0.581215e-02_jprb, 0.516107e-02_jprb, 0.458450e-02_jprb &
14403  &, 0.408731e-02_jprb, 0.360535e-02_jprb, 0.317527e-02_jprb &
14404  &, 0.280043e-02_jprb, 0.248422e-02_jprb, 0.215615e-02_jprb, 0.189127e-02_jprb &
14405  &, 0.165493e-02_jprb, 0.144889e-02_jprb, 0.127495e-02_jprb &
14406  &, 0.109477e-02_jprb, 0.949071e-03_jprb, 0.839756e-03_jprb, 0.726591e-03_jprb &
14407  &, 0.609521e-03_jprb, 0.531994e-03_jprb, 0.451819e-03_jprb &
14408  &, 0.413833e-03_jprb, 0.328953e-03_jprb, 0.287591e-03_jprb, 0.244857e-03_jprb &
14409  &, 0.200735e-03_jprb, 0.155206e-03_jprb, 0.157378e-03_jprb &
14410  &, 0.109713e-03_jprb, 0.111185e-03_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14411  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.100000e-04_jprb &
14412  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14413  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14414  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14415  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14416 xcw( 328, :) = (/ &
14417  & 0.952690e+00_jprb, 0.940091e+00_jprb, 0.927199e+00_jprb, 0.914027e+00_jprb &
14418  &, 0.900579e+00_jprb, 0.886869e+00_jprb, 0.872904e+00_jprb &
14419  &, 0.858695e+00_jprb, 0.844251e+00_jprb, 0.829584e+00_jprb, 0.814704e+00_jprb &
14420  &, 0.799621e+00_jprb, 0.784349e+00_jprb, 0.768896e+00_jprb &
14421  &, 0.753278e+00_jprb, 0.737505e+00_jprb, 0.721590e+00_jprb, 0.705547e+00_jprb &
14422  &, 0.689390e+00_jprb, 0.673128e+00_jprb, 0.656782e+00_jprb &
14423  &, 0.640366e+00_jprb, 0.623893e+00_jprb, 0.607378e+00_jprb, 0.590836e+00_jprb &
14424  &, 0.574289e+00_jprb, 0.557745e+00_jprb, 0.541229e+00_jprb &
14425  &, 0.524752e+00_jprb, 0.508332e+00_jprb, 0.491987e+00_jprb, 0.475738e+00_jprb &
14426  &, 0.459601e+00_jprb, 0.443589e+00_jprb, 0.427723e+00_jprb &
14427  &, 0.412020e+00_jprb, 0.396490e+00_jprb, 0.381162e+00_jprb, 0.366051e+00_jprb &
14428  &, 0.351165e+00_jprb, 0.336512e+00_jprb, 0.322133e+00_jprb &
14429  &, 0.308015e+00_jprb, 0.294189e+00_jprb, 0.280665e+00_jprb, 0.267451e+00_jprb &
14430  &, 0.254555e+00_jprb, 0.241996e+00_jprb, 0.229778e+00_jprb &
14431  &, 0.217908e+00_jprb, 0.206386e+00_jprb, 0.195240e+00_jprb, 0.184457e+00_jprb &
14432  &, 0.174031e+00_jprb, 0.164000e+00_jprb, 0.154328e+00_jprb &
14433  &, 0.145048e+00_jprb, 0.136133e+00_jprb, 0.127598e+00_jprb, 0.119425e+00_jprb &
14434  &, 0.111640e+00_jprb, 0.104204e+00_jprb, 0.971216e-01_jprb &
14435  &, 0.903983e-01_jprb, 0.840368e-01_jprb, 0.779812e-01_jprb, 0.722851e-01_jprb &
14436  &, 0.668862e-01_jprb, 0.618161e-01_jprb, 0.570454e-01_jprb &
14437  &, 0.525616e-01_jprb, 0.483497e-01_jprb, 0.444360e-01_jprb, 0.407577e-01_jprb &
14438  &, 0.373372e-01_jprb, 0.341273e-01_jprb, 0.311713e-01_jprb &
14439  &, 0.284177e-01_jprb, 0.258842e-01_jprb, 0.235382e-01_jprb, 0.213440e-01_jprb &
14440  &, 0.193409e-01_jprb, 0.175170e-01_jprb, 0.158316e-01_jprb &
14441  &, 0.142678e-01_jprb, 0.128638e-01_jprb, 0.115733e-01_jprb, 0.103756e-01_jprb &
14442  &, 0.930785e-02_jprb, 0.834862e-02_jprb, 0.744331e-02_jprb &
14443  &, 0.665964e-02_jprb, 0.590886e-02_jprb, 0.525950e-02_jprb, 0.468467e-02_jprb &
14444  &, 0.415527e-02_jprb, 0.367449e-02_jprb, 0.324561e-02_jprb &
14445  &, 0.287198e-02_jprb, 0.252061e-02_jprb, 0.223015e-02_jprb, 0.196652e-02_jprb &
14446  &, 0.169319e-02_jprb, 0.148778e-02_jprb, 0.131448e-02_jprb &
14447  &, 0.113494e-02_jprb, 0.989900e-03_jprb, 0.839756e-03_jprb, 0.726591e-03_jprb &
14448  &, 0.652344e-03_jprb, 0.575493e-03_jprb, 0.496001e-03_jprb &
14449  &, 0.413833e-03_jprb, 0.328953e-03_jprb, 0.287591e-03_jprb, 0.244857e-03_jprb &
14450  &, 0.200735e-03_jprb, 0.203608e-03_jprb, 0.157378e-03_jprb &
14451  &, 0.109713e-03_jprb, 0.111185e-03_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14452  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.100000e-04_jprb &
14453  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14454  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14455  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14456  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14457 xcw( 329, :) = (/ &
14458  & 0.952959e+00_jprb, 0.940424e+00_jprb, 0.927595e+00_jprb, 0.914483e+00_jprb &
14459  &, 0.901097e+00_jprb, 0.887446e+00_jprb, 0.873538e+00_jprb &
14460  &, 0.859384e+00_jprb, 0.844995e+00_jprb, 0.830382e+00_jprb, 0.815553e+00_jprb &
14461  &, 0.800519e+00_jprb, 0.785294e+00_jprb, 0.769888e+00_jprb &
14462  &, 0.754312e+00_jprb, 0.738584e+00_jprb, 0.722709e+00_jprb, 0.706705e+00_jprb &
14463  &, 0.690584e+00_jprb, 0.674359e+00_jprb, 0.658047e+00_jprb &
14464  &, 0.641659e+00_jprb, 0.625213e+00_jprb, 0.608725e+00_jprb, 0.592208e+00_jprb &
14465  &, 0.575682e+00_jprb, 0.559160e+00_jprb, 0.542660e+00_jprb &
14466  &, 0.526199e+00_jprb, 0.509794e+00_jprb, 0.493461e+00_jprb, 0.477220e+00_jprb &
14467  &, 0.461086e+00_jprb, 0.445080e+00_jprb, 0.429216e+00_jprb &
14468  &, 0.413508e+00_jprb, 0.397978e+00_jprb, 0.382648e+00_jprb, 0.367524e+00_jprb &
14469  &, 0.352625e+00_jprb, 0.337977e+00_jprb, 0.323570e+00_jprb &
14470  &, 0.309444e+00_jprb, 0.295608e+00_jprb, 0.282061e+00_jprb, 0.268822e+00_jprb &
14471  &, 0.255899e+00_jprb, 0.243323e+00_jprb, 0.231074e+00_jprb &
14472  &, 0.219169e+00_jprb, 0.207624e+00_jprb, 0.196453e+00_jprb, 0.185628e+00_jprb &
14473  &, 0.175187e+00_jprb, 0.165110e+00_jprb, 0.155418e+00_jprb &
14474  &, 0.146087e+00_jprb, 0.137148e+00_jprb, 0.128572e+00_jprb, 0.120371e+00_jprb &
14475  &, 0.112540e+00_jprb, 0.105072e+00_jprb, 0.979559e-01_jprb &
14476  &, 0.911968e-01_jprb, 0.847973e-01_jprb, 0.787205e-01_jprb, 0.729824e-01_jprb &
14477  &, 0.675591e-01_jprb, 0.624428e-01_jprb, 0.576442e-01_jprb &
14478  &, 0.531099e-01_jprb, 0.488880e-01_jprb, 0.449196e-01_jprb, 0.412289e-01_jprb &
14479  &, 0.377723e-01_jprb, 0.345479e-01_jprb, 0.315528e-01_jprb &
14480  &, 0.287825e-01_jprb, 0.262067e-01_jprb, 0.238418e-01_jprb, 0.216536e-01_jprb &
14481  &, 0.196302e-01_jprb, 0.177583e-01_jprb, 0.160502e-01_jprb &
14482  &, 0.144906e-01_jprb, 0.130624e-01_jprb, 0.117467e-01_jprb, 0.105523e-01_jprb &
14483  &, 0.945781e-02_jprb, 0.847080e-02_jprb, 0.756771e-02_jprb &
14484  &, 0.675464e-02_jprb, 0.603779e-02_jprb, 0.535793e-02_jprb, 0.475145e-02_jprb &
14485  &, 0.422322e-02_jprb, 0.374363e-02_jprb, 0.331595e-02_jprb &
14486  &, 0.290775e-02_jprb, 0.259338e-02_jprb, 0.226716e-02_jprb, 0.200415e-02_jprb &
14487  &, 0.173144e-02_jprb, 0.152667e-02_jprb, 0.135401e-02_jprb &
14488  &, 0.117512e-02_jprb, 0.103073e-02_jprb, 0.881244e-03_jprb, 0.768743e-03_jprb &
14489  &, 0.652344e-03_jprb, 0.575493e-03_jprb, 0.496001e-03_jprb &
14490  &, 0.413833e-03_jprb, 0.374518e-03_jprb, 0.287591e-03_jprb, 0.244857e-03_jprb &
14491  &, 0.200735e-03_jprb, 0.203608e-03_jprb, 0.157378e-03_jprb &
14492  &, 0.109713e-03_jprb, 0.111185e-03_jprb, 0.613345e-04_jprb, 0.620825e-04_jprb &
14493  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.100000e-04_jprb &
14494  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14495  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14496  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14497  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14498 
14499 IF (lhook) CALL dr_hook('SU_MCICA:PART47',1,zhook_handle)
14500 END SUBROUTINE part47
14501 
14502 #ifdef VPP5000
14503 !OCL SCALAR
14504 #endif
14505 !option! -Nv -NO
14506 #ifdef RS6K
14507 @process nooptimize
14508 #endif
14509 !pgi$r opt=0
14510 SUBROUTINE part48
14511 
14512 REAL(KIND=JPRB) :: ZHOOK_HANDLE
14513 IF (lhook) CALL dr_hook('SU_MCICA:PART48',0,zhook_handle)
14514 
14515 xcw( 330, :) = (/ &
14516  & 0.953227e+00_jprb, 0.940756e+00_jprb, 0.927989e+00_jprb, 0.914941e+00_jprb &
14517  &, 0.901614e+00_jprb, 0.888021e+00_jprb, 0.874171e+00_jprb &
14518  &, 0.860074e+00_jprb, 0.845740e+00_jprb, 0.831178e+00_jprb, 0.816400e+00_jprb &
14519  &, 0.801416e+00_jprb, 0.786239e+00_jprb, 0.770881e+00_jprb &
14520  &, 0.755350e+00_jprb, 0.739663e+00_jprb, 0.723828e+00_jprb, 0.707863e+00_jprb &
14521  &, 0.691779e+00_jprb, 0.675587e+00_jprb, 0.659308e+00_jprb &
14522  &, 0.642953e+00_jprb, 0.626535e+00_jprb, 0.610075e+00_jprb, 0.593582e+00_jprb &
14523  &, 0.577079e+00_jprb, 0.560576e+00_jprb, 0.544091e+00_jprb &
14524  &, 0.527645e+00_jprb, 0.511253e+00_jprb, 0.494936e+00_jprb, 0.478702e+00_jprb &
14525  &, 0.462575e+00_jprb, 0.446570e+00_jprb, 0.430708e+00_jprb &
14526  &, 0.415006e+00_jprb, 0.399475e+00_jprb, 0.384134e+00_jprb, 0.369008e+00_jprb &
14527  &, 0.354095e+00_jprb, 0.339431e+00_jprb, 0.325017e+00_jprb &
14528  &, 0.310883e+00_jprb, 0.297016e+00_jprb, 0.283457e+00_jprb, 0.270194e+00_jprb &
14529  &, 0.257255e+00_jprb, 0.244650e+00_jprb, 0.232369e+00_jprb &
14530  &, 0.220444e+00_jprb, 0.208876e+00_jprb, 0.197666e+00_jprb, 0.186814e+00_jprb &
14531  &, 0.176343e+00_jprb, 0.166234e+00_jprb, 0.156493e+00_jprb &
14532  &, 0.147140e+00_jprb, 0.138163e+00_jprb, 0.129545e+00_jprb, 0.121317e+00_jprb &
14533  &, 0.113440e+00_jprb, 0.105940e+00_jprb, 0.987902e-01_jprb &
14534  &, 0.919952e-01_jprb, 0.855578e-01_jprb, 0.794409e-01_jprb, 0.736604e-01_jprb &
14535  &, 0.682122e-01_jprb, 0.630696e-01_jprb, 0.582224e-01_jprb &
14536  &, 0.536793e-01_jprb, 0.494263e-01_jprb, 0.454252e-01_jprb, 0.417001e-01_jprb &
14537  &, 0.382074e-01_jprb, 0.349685e-01_jprb, 0.319581e-01_jprb &
14538  &, 0.291474e-01_jprb, 0.265540e-01_jprb, 0.241454e-01_jprb, 0.219373e-01_jprb &
14539  &, 0.198932e-01_jprb, 0.180264e-01_jprb, 0.162961e-01_jprb &
14540  &, 0.147134e-01_jprb, 0.132610e-01_jprb, 0.119202e-01_jprb, 0.107290e-01_jprb &
14541  &, 0.960778e-02_jprb, 0.862352e-02_jprb, 0.769212e-02_jprb &
14542  &, 0.688130e-02_jprb, 0.613449e-02_jprb, 0.545635e-02_jprb, 0.485162e-02_jprb &
14543  &, 0.432516e-02_jprb, 0.381278e-02_jprb, 0.338629e-02_jprb &
14544  &, 0.297930e-02_jprb, 0.262977e-02_jprb, 0.230416e-02_jprb, 0.204177e-02_jprb &
14545  &, 0.176970e-02_jprb, 0.156556e-02_jprb, 0.135401e-02_jprb &
14546  &, 0.117512e-02_jprb, 0.103073e-02_jprb, 0.881244e-03_jprb, 0.768743e-03_jprb &
14547  &, 0.695167e-03_jprb, 0.575493e-03_jprb, 0.496001e-03_jprb &
14548  &, 0.413833e-03_jprb, 0.374518e-03_jprb, 0.333856e-03_jprb, 0.291829e-03_jprb &
14549  &, 0.248419e-03_jprb, 0.203608e-03_jprb, 0.157378e-03_jprb &
14550  &, 0.109713e-03_jprb, 0.111185e-03_jprb, 0.112669e-03_jprb, 0.620825e-04_jprb &
14551  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.100000e-04_jprb &
14552  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14553  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14554  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14555  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14556 xcw( 331, :) = (/ &
14557  & 0.953496e+00_jprb, 0.941088e+00_jprb, 0.928384e+00_jprb, 0.915397e+00_jprb &
14558  &, 0.902130e+00_jprb, 0.888596e+00_jprb, 0.874804e+00_jprb &
14559  &, 0.860762e+00_jprb, 0.846483e+00_jprb, 0.831974e+00_jprb, 0.817248e+00_jprb &
14560  &, 0.802314e+00_jprb, 0.787185e+00_jprb, 0.771872e+00_jprb &
14561  &, 0.756385e+00_jprb, 0.740741e+00_jprb, 0.724947e+00_jprb, 0.709021e+00_jprb &
14562  &, 0.692973e+00_jprb, 0.676818e+00_jprb, 0.660570e+00_jprb &
14563  &, 0.644246e+00_jprb, 0.627858e+00_jprb, 0.611425e+00_jprb, 0.594957e+00_jprb &
14564  &, 0.578472e+00_jprb, 0.561992e+00_jprb, 0.545526e+00_jprb &
14565  &, 0.529096e+00_jprb, 0.512719e+00_jprb, 0.496410e+00_jprb, 0.480183e+00_jprb &
14566  &, 0.464063e+00_jprb, 0.448066e+00_jprb, 0.432205e+00_jprb &
14567  &, 0.416494e+00_jprb, 0.400963e+00_jprb, 0.385620e+00_jprb, 0.370482e+00_jprb &
14568  &, 0.355575e+00_jprb, 0.340896e+00_jprb, 0.326465e+00_jprb &
14569  &, 0.312312e+00_jprb, 0.298435e+00_jprb, 0.284854e+00_jprb, 0.271577e+00_jprb &
14570  &, 0.258612e+00_jprb, 0.245977e+00_jprb, 0.233678e+00_jprb &
14571  &, 0.221718e+00_jprb, 0.210128e+00_jprb, 0.198879e+00_jprb, 0.187999e+00_jprb &
14572  &, 0.177499e+00_jprb, 0.167358e+00_jprb, 0.157583e+00_jprb &
14573  &, 0.148194e+00_jprb, 0.139178e+00_jprb, 0.130535e+00_jprb, 0.122263e+00_jprb &
14574  &, 0.114356e+00_jprb, 0.106825e+00_jprb, 0.996422e-01_jprb &
14575  &, 0.928118e-01_jprb, 0.863183e-01_jprb, 0.801802e-01_jprb, 0.743772e-01_jprb &
14576  &, 0.688852e-01_jprb, 0.636963e-01_jprb, 0.588213e-01_jprb &
14577  &, 0.542486e-01_jprb, 0.499646e-01_jprb, 0.459308e-01_jprb, 0.421713e-01_jprb &
14578  &, 0.386654e-01_jprb, 0.353891e-01_jprb, 0.323395e-01_jprb &
14579  &, 0.295122e-01_jprb, 0.269013e-01_jprb, 0.244743e-01_jprb, 0.222469e-01_jprb &
14580  &, 0.201825e-01_jprb, 0.182677e-01_jprb, 0.165147e-01_jprb &
14581  &, 0.149361e-01_jprb, 0.134596e-01_jprb, 0.121226e-01_jprb, 0.108762e-01_jprb &
14582  &, 0.978773e-02_jprb, 0.874570e-02_jprb, 0.784763e-02_jprb &
14583  &, 0.700796e-02_jprb, 0.623120e-02_jprb, 0.555478e-02_jprb, 0.495180e-02_jprb &
14584  &, 0.439311e-02_jprb, 0.388192e-02_jprb, 0.345663e-02_jprb &
14585  &, 0.305085e-02_jprb, 0.266615e-02_jprb, 0.237816e-02_jprb, 0.207940e-02_jprb &
14586  &, 0.180795e-02_jprb, 0.160445e-02_jprb, 0.139354e-02_jprb &
14587  &, 0.121529e-02_jprb, 0.107156e-02_jprb, 0.922732e-03_jprb, 0.810895e-03_jprb &
14588  &, 0.695167e-03_jprb, 0.618992e-03_jprb, 0.496001e-03_jprb &
14589  &, 0.458704e-03_jprb, 0.374518e-03_jprb, 0.333856e-03_jprb, 0.291829e-03_jprb &
14590  &, 0.248419e-03_jprb, 0.203608e-03_jprb, 0.157378e-03_jprb &
14591  &, 0.159569e-03_jprb, 0.111185e-03_jprb, 0.112669e-03_jprb, 0.620825e-04_jprb &
14592  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.100000e-04_jprb &
14593  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14594  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14595  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14596  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14597 xcw( 332, :) = (/ &
14598  & 0.953763e+00_jprb, 0.941420e+00_jprb, 0.928779e+00_jprb, 0.915852e+00_jprb &
14599  &, 0.902647e+00_jprb, 0.889171e+00_jprb, 0.875436e+00_jprb &
14600  &, 0.861451e+00_jprb, 0.847225e+00_jprb, 0.832769e+00_jprb, 0.818094e+00_jprb &
14601  &, 0.803210e+00_jprb, 0.788129e+00_jprb, 0.772862e+00_jprb &
14602  &, 0.757421e+00_jprb, 0.741818e+00_jprb, 0.726066e+00_jprb, 0.710178e+00_jprb &
14603  &, 0.694169e+00_jprb, 0.678049e+00_jprb, 0.661834e+00_jprb &
14604  &, 0.645539e+00_jprb, 0.629181e+00_jprb, 0.612771e+00_jprb, 0.596328e+00_jprb &
14605  &, 0.579868e+00_jprb, 0.563407e+00_jprb, 0.546961e+00_jprb &
14606  &, 0.530546e+00_jprb, 0.514182e+00_jprb, 0.497884e+00_jprb, 0.481669e+00_jprb &
14607  &, 0.465557e+00_jprb, 0.449561e+00_jprb, 0.433702e+00_jprb &
14608  &, 0.417992e+00_jprb, 0.402460e+00_jprb, 0.387116e+00_jprb, 0.371976e+00_jprb &
14609  &, 0.357045e+00_jprb, 0.342361e+00_jprb, 0.327924e+00_jprb &
14610  &, 0.313752e+00_jprb, 0.299854e+00_jprb, 0.286250e+00_jprb, 0.272948e+00_jprb &
14611  &, 0.259968e+00_jprb, 0.247304e+00_jprb, 0.234986e+00_jprb &
14612  &, 0.223006e+00_jprb, 0.211379e+00_jprb, 0.200106e+00_jprb, 0.189199e+00_jprb &
14613  &, 0.178655e+00_jprb, 0.168483e+00_jprb, 0.158689e+00_jprb &
14614  &, 0.149264e+00_jprb, 0.140209e+00_jprb, 0.131525e+00_jprb, 0.123225e+00_jprb &
14615  &, 0.115273e+00_jprb, 0.107710e+00_jprb, 0.100494e+00_jprb &
14616  &, 0.936284e-01_jprb, 0.870974e-01_jprb, 0.809195e-01_jprb, 0.750746e-01_jprb &
14617  &, 0.695581e-01_jprb, 0.643433e-01_jprb, 0.594408e-01_jprb &
14618  &, 0.548180e-01_jprb, 0.505029e-01_jprb, 0.464364e-01_jprb, 0.426425e-01_jprb &
14619  &, 0.391005e-01_jprb, 0.358098e-01_jprb, 0.327449e-01_jprb &
14620  &, 0.298770e-01_jprb, 0.272486e-01_jprb, 0.248032e-01_jprb, 0.225307e-01_jprb &
14621  &, 0.204455e-01_jprb, 0.185358e-01_jprb, 0.167607e-01_jprb &
14622  &, 0.151311e-01_jprb, 0.136583e-01_jprb, 0.122960e-01_jprb, 0.110529e-01_jprb &
14623  &, 0.993770e-02_jprb, 0.889842e-02_jprb, 0.797203e-02_jprb &
14624  &, 0.713462e-02_jprb, 0.636013e-02_jprb, 0.565321e-02_jprb, 0.505197e-02_jprb &
14625  &, 0.446107e-02_jprb, 0.395106e-02_jprb, 0.352697e-02_jprb &
14626  &, 0.308662e-02_jprb, 0.273892e-02_jprb, 0.241517e-02_jprb, 0.211702e-02_jprb &
14627  &, 0.184620e-02_jprb, 0.164334e-02_jprb, 0.143307e-02_jprb &
14628  &, 0.125547e-02_jprb, 0.107156e-02_jprb, 0.964220e-03_jprb, 0.810895e-03_jprb &
14629  &, 0.695167e-03_jprb, 0.618992e-03_jprb, 0.540183e-03_jprb &
14630  &, 0.458704e-03_jprb, 0.374518e-03_jprb, 0.333856e-03_jprb, 0.291829e-03_jprb &
14631  &, 0.248419e-03_jprb, 0.203608e-03_jprb, 0.157378e-03_jprb &
14632  &, 0.159569e-03_jprb, 0.111185e-03_jprb, 0.112669e-03_jprb, 0.620825e-04_jprb &
14633  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
14634  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14635  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14636  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14637  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14638 xcw( 333, :) = (/ &
14639  & 0.954029e+00_jprb, 0.941751e+00_jprb, 0.929172e+00_jprb, 0.916308e+00_jprb &
14640  &, 0.903162e+00_jprb, 0.889746e+00_jprb, 0.876068e+00_jprb &
14641  &, 0.862139e+00_jprb, 0.847968e+00_jprb, 0.833565e+00_jprb, 0.818941e+00_jprb &
14642  &, 0.804106e+00_jprb, 0.789074e+00_jprb, 0.773850e+00_jprb &
14643  &, 0.758456e+00_jprb, 0.742896e+00_jprb, 0.727185e+00_jprb, 0.711336e+00_jprb &
14644  &, 0.695363e+00_jprb, 0.679277e+00_jprb, 0.663096e+00_jprb &
14645  &, 0.646835e+00_jprb, 0.630503e+00_jprb, 0.614121e+00_jprb, 0.597703e+00_jprb &
14646  &, 0.581269e+00_jprb, 0.564827e+00_jprb, 0.548399e+00_jprb &
14647  &, 0.532001e+00_jprb, 0.515648e+00_jprb, 0.499363e+00_jprb, 0.483155e+00_jprb &
14648  &, 0.467050e+00_jprb, 0.451061e+00_jprb, 0.435203e+00_jprb &
14649  &, 0.419498e+00_jprb, 0.403957e+00_jprb, 0.388613e+00_jprb, 0.373460e+00_jprb &
14650  &, 0.358525e+00_jprb, 0.343826e+00_jprb, 0.329382e+00_jprb &
14651  &, 0.315191e+00_jprb, 0.301273e+00_jprb, 0.287658e+00_jprb, 0.274331e+00_jprb &
14652  &, 0.261324e+00_jprb, 0.248644e+00_jprb, 0.236294e+00_jprb &
14653  &, 0.224294e+00_jprb, 0.212631e+00_jprb, 0.201333e+00_jprb, 0.190399e+00_jprb &
14654  &, 0.179825e+00_jprb, 0.169622e+00_jprb, 0.159779e+00_jprb &
14655  &, 0.150317e+00_jprb, 0.141240e+00_jprb, 0.132531e+00_jprb, 0.124188e+00_jprb &
14656  &, 0.116207e+00_jprb, 0.108596e+00_jprb, 0.101328e+00_jprb &
14657  &, 0.944450e-01_jprb, 0.878764e-01_jprb, 0.816589e-01_jprb, 0.757913e-01_jprb &
14658  &, 0.702310e-01_jprb, 0.649903e-01_jprb, 0.600396e-01_jprb &
14659  &, 0.554085e-01_jprb, 0.510412e-01_jprb, 0.469639e-01_jprb, 0.431361e-01_jprb &
14660  &, 0.395585e-01_jprb, 0.362304e-01_jprb, 0.331502e-01_jprb &
14661  &, 0.302662e-01_jprb, 0.275959e-01_jprb, 0.251321e-01_jprb, 0.228402e-01_jprb &
14662  &, 0.207348e-01_jprb, 0.188039e-01_jprb, 0.170066e-01_jprb &
14663  &, 0.153539e-01_jprb, 0.138569e-01_jprb, 0.124984e-01_jprb, 0.112296e-01_jprb &
14664  &, 0.100877e-01_jprb, 0.905114e-02_jprb, 0.809644e-02_jprb &
14665  &, 0.722961e-02_jprb, 0.645684e-02_jprb, 0.575164e-02_jprb, 0.511875e-02_jprb &
14666  &, 0.456300e-02_jprb, 0.405477e-02_jprb, 0.356214e-02_jprb &
14667  &, 0.315817e-02_jprb, 0.281169e-02_jprb, 0.245217e-02_jprb, 0.215465e-02_jprb &
14668  &, 0.188446e-02_jprb, 0.168223e-02_jprb, 0.147260e-02_jprb &
14669  &, 0.129565e-02_jprb, 0.111239e-02_jprb, 0.964220e-03_jprb, 0.853048e-03_jprb &
14670  &, 0.737990e-03_jprb, 0.618992e-03_jprb, 0.540183e-03_jprb &
14671  &, 0.458704e-03_jprb, 0.420083e-03_jprb, 0.333856e-03_jprb, 0.291829e-03_jprb &
14672  &, 0.248419e-03_jprb, 0.203608e-03_jprb, 0.157378e-03_jprb &
14673  &, 0.159569e-03_jprb, 0.111185e-03_jprb, 0.112669e-03_jprb, 0.620825e-04_jprb &
14674  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
14675  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14676  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14677  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14678  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14679 xcw( 334, :) = (/ &
14680  & 0.954297e+00_jprb, 0.942081e+00_jprb, 0.929566e+00_jprb, 0.916764e+00_jprb &
14681  &, 0.903678e+00_jprb, 0.890320e+00_jprb, 0.876700e+00_jprb &
14682  &, 0.862826e+00_jprb, 0.848707e+00_jprb, 0.834359e+00_jprb, 0.819787e+00_jprb &
14683  &, 0.805002e+00_jprb, 0.790017e+00_jprb, 0.774843e+00_jprb &
14684  &, 0.759491e+00_jprb, 0.743974e+00_jprb, 0.728303e+00_jprb, 0.712494e+00_jprb &
14685  &, 0.696557e+00_jprb, 0.680507e+00_jprb, 0.664360e+00_jprb &
14686  &, 0.648128e+00_jprb, 0.631826e+00_jprb, 0.615471e+00_jprb, 0.599081e+00_jprb &
14687  &, 0.582666e+00_jprb, 0.566246e+00_jprb, 0.549834e+00_jprb &
14688  &, 0.533452e+00_jprb, 0.517115e+00_jprb, 0.500837e+00_jprb, 0.484641e+00_jprb &
14689  &, 0.468543e+00_jprb, 0.452561e+00_jprb, 0.436705e+00_jprb &
14690  &, 0.420996e+00_jprb, 0.405464e+00_jprb, 0.390109e+00_jprb, 0.374953e+00_jprb &
14691  &, 0.360005e+00_jprb, 0.345301e+00_jprb, 0.330830e+00_jprb &
14692  &, 0.316631e+00_jprb, 0.302703e+00_jprb, 0.289065e+00_jprb, 0.275726e+00_jprb &
14693  &, 0.262693e+00_jprb, 0.249983e+00_jprb, 0.237616e+00_jprb &
14694  &, 0.225582e+00_jprb, 0.213896e+00_jprb, 0.202559e+00_jprb, 0.191598e+00_jprb &
14695  &, 0.180982e+00_jprb, 0.170746e+00_jprb, 0.160884e+00_jprb &
14696  &, 0.151387e+00_jprb, 0.142270e+00_jprb, 0.133520e+00_jprb, 0.125151e+00_jprb &
14697  &, 0.117140e+00_jprb, 0.109481e+00_jprb, 0.102198e+00_jprb &
14698  &, 0.952616e-01_jprb, 0.886740e-01_jprb, 0.824172e-01_jprb, 0.765081e-01_jprb &
14699  &, 0.709039e-01_jprb, 0.656373e-01_jprb, 0.606591e-01_jprb &
14700  &, 0.559779e-01_jprb, 0.515795e-01_jprb, 0.474695e-01_jprb, 0.436298e-01_jprb &
14701  &, 0.400165e-01_jprb, 0.366744e-01_jprb, 0.335555e-01_jprb &
14702  &, 0.306310e-01_jprb, 0.279432e-01_jprb, 0.254610e-01_jprb, 0.231498e-01_jprb &
14703  &, 0.210241e-01_jprb, 0.190452e-01_jprb, 0.172525e-01_jprb &
14704  &, 0.156045e-01_jprb, 0.140839e-01_jprb, 0.126718e-01_jprb, 0.114062e-01_jprb &
14705  &, 0.102676e-01_jprb, 0.920386e-02_jprb, 0.825195e-02_jprb &
14706  &, 0.735627e-02_jprb, 0.658577e-02_jprb, 0.585007e-02_jprb, 0.521892e-02_jprb &
14707  &, 0.463096e-02_jprb, 0.412391e-02_jprb, 0.363248e-02_jprb &
14708  &, 0.322972e-02_jprb, 0.284808e-02_jprb, 0.252617e-02_jprb, 0.222990e-02_jprb &
14709  &, 0.196097e-02_jprb, 0.172112e-02_jprb, 0.151213e-02_jprb &
14710  &, 0.129565e-02_jprb, 0.115322e-02_jprb, 0.100571e-02_jprb, 0.853048e-03_jprb &
14711  &, 0.737990e-03_jprb, 0.662492e-03_jprb, 0.540183e-03_jprb &
14712  &, 0.458704e-03_jprb, 0.420083e-03_jprb, 0.333856e-03_jprb, 0.291829e-03_jprb &
14713  &, 0.248419e-03_jprb, 0.203608e-03_jprb, 0.206505e-03_jprb &
14714  &, 0.159569e-03_jprb, 0.111185e-03_jprb, 0.112669e-03_jprb, 0.620825e-04_jprb &
14715  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
14716  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14717  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14718  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14719  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14720 xcw( 335, :) = (/ &
14721  & 0.954562e+00_jprb, 0.942412e+00_jprb, 0.929960e+00_jprb, 0.917218e+00_jprb &
14722  &, 0.904193e+00_jprb, 0.890894e+00_jprb, 0.877331e+00_jprb &
14723  &, 0.863513e+00_jprb, 0.849451e+00_jprb, 0.835153e+00_jprb, 0.820633e+00_jprb &
14724  &, 0.805898e+00_jprb, 0.790961e+00_jprb, 0.775832e+00_jprb &
14725  &, 0.760525e+00_jprb, 0.745051e+00_jprb, 0.729422e+00_jprb, 0.713652e+00_jprb &
14726  &, 0.697752e+00_jprb, 0.681738e+00_jprb, 0.665625e+00_jprb &
14727  &, 0.649424e+00_jprb, 0.633152e+00_jprb, 0.616825e+00_jprb, 0.600456e+00_jprb &
14728  &, 0.584062e+00_jprb, 0.567665e+00_jprb, 0.551273e+00_jprb &
14729  &, 0.534906e+00_jprb, 0.518581e+00_jprb, 0.502320e+00_jprb, 0.486132e+00_jprb &
14730  &, 0.470040e+00_jprb, 0.454060e+00_jprb, 0.438210e+00_jprb &
14731  &, 0.422503e+00_jprb, 0.406962e+00_jprb, 0.391605e+00_jprb, 0.376437e+00_jprb &
14732  &, 0.361495e+00_jprb, 0.346776e+00_jprb, 0.332299e+00_jprb &
14733  &, 0.318082e+00_jprb, 0.304133e+00_jprb, 0.290473e+00_jprb, 0.277110e+00_jprb &
14734  &, 0.264061e+00_jprb, 0.251335e+00_jprb, 0.238937e+00_jprb &
14735  &, 0.226869e+00_jprb, 0.215161e+00_jprb, 0.203800e+00_jprb, 0.192798e+00_jprb &
14736  &, 0.182167e+00_jprb, 0.171900e+00_jprb, 0.161990e+00_jprb &
14737  &, 0.152471e+00_jprb, 0.143317e+00_jprb, 0.134526e+00_jprb, 0.126113e+00_jprb &
14738  &, 0.118057e+00_jprb, 0.110384e+00_jprb, 0.103050e+00_jprb &
14739  &, 0.960782e-01_jprb, 0.894531e-01_jprb, 0.831755e-01_jprb, 0.772248e-01_jprb &
14740  &, 0.715966e-01_jprb, 0.662842e-01_jprb, 0.612786e-01_jprb &
14741  &, 0.565683e-01_jprb, 0.521394e-01_jprb, 0.479971e-01_jprb, 0.441234e-01_jprb &
14742  &, 0.404745e-01_jprb, 0.370950e-01_jprb, 0.339608e-01_jprb &
14743  &, 0.310201e-01_jprb, 0.283153e-01_jprb, 0.257899e-01_jprb, 0.234594e-01_jprb &
14744  &, 0.213134e-01_jprb, 0.193133e-01_jprb, 0.174985e-01_jprb &
14745  &, 0.158273e-01_jprb, 0.142825e-01_jprb, 0.128742e-01_jprb, 0.115829e-01_jprb &
14746  &, 0.104176e-01_jprb, 0.935658e-02_jprb, 0.837636e-02_jprb &
14747  &, 0.748293e-02_jprb, 0.668248e-02_jprb, 0.598130e-02_jprb, 0.531909e-02_jprb &
14748  &, 0.473289e-02_jprb, 0.419305e-02_jprb, 0.370282e-02_jprb &
14749  &, 0.330127e-02_jprb, 0.292085e-02_jprb, 0.256318e-02_jprb, 0.226753e-02_jprb &
14750  &, 0.199922e-02_jprb, 0.176001e-02_jprb, 0.151213e-02_jprb &
14751  &, 0.133582e-02_jprb, 0.115322e-02_jprb, 0.100571e-02_jprb, 0.895200e-03_jprb &
14752  &, 0.780813e-03_jprb, 0.662492e-03_jprb, 0.584365e-03_jprb &
14753  &, 0.503574e-03_jprb, 0.420083e-03_jprb, 0.380121e-03_jprb, 0.291829e-03_jprb &
14754  &, 0.248419e-03_jprb, 0.203608e-03_jprb, 0.206505e-03_jprb &
14755  &, 0.159569e-03_jprb, 0.111185e-03_jprb, 0.112669e-03_jprb, 0.114165e-03_jprb &
14756  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
14757  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14758  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14759  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14760  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14761 xcw( 336, :) = (/ &
14762  & 0.954830e+00_jprb, 0.942742e+00_jprb, 0.930353e+00_jprb, 0.917673e+00_jprb &
14763  &, 0.904707e+00_jprb, 0.891467e+00_jprb, 0.877961e+00_jprb &
14764  &, 0.864200e+00_jprb, 0.850192e+00_jprb, 0.835948e+00_jprb, 0.821478e+00_jprb &
14765  &, 0.806793e+00_jprb, 0.791903e+00_jprb, 0.776811e+00_jprb &
14766  &, 0.761560e+00_jprb, 0.746128e+00_jprb, 0.730540e+00_jprb, 0.714809e+00_jprb &
14767  &, 0.698946e+00_jprb, 0.682969e+00_jprb, 0.666886e+00_jprb &
14768  &, 0.650717e+00_jprb, 0.634475e+00_jprb, 0.618175e+00_jprb, 0.601831e+00_jprb &
14769  &, 0.585463e+00_jprb, 0.569085e+00_jprb, 0.552712e+00_jprb &
14770  &, 0.536361e+00_jprb, 0.520052e+00_jprb, 0.503798e+00_jprb, 0.487622e+00_jprb &
14771  &, 0.471538e+00_jprb, 0.455565e+00_jprb, 0.439716e+00_jprb &
14772  &, 0.424010e+00_jprb, 0.408468e+00_jprb, 0.393101e+00_jprb, 0.377931e+00_jprb &
14773  &, 0.362975e+00_jprb, 0.348252e+00_jprb, 0.333757e+00_jprb &
14774  &, 0.319532e+00_jprb, 0.305564e+00_jprb, 0.291893e+00_jprb, 0.278505e+00_jprb &
14775  &, 0.265442e+00_jprb, 0.252688e+00_jprb, 0.240258e+00_jprb &
14776  &, 0.228170e+00_jprb, 0.216426e+00_jprb, 0.205041e+00_jprb, 0.194012e+00_jprb &
14777  &, 0.183337e+00_jprb, 0.173039e+00_jprb, 0.163110e+00_jprb &
14778  &, 0.153541e+00_jprb, 0.144364e+00_jprb, 0.135532e+00_jprb, 0.127093e+00_jprb &
14779  &, 0.119008e+00_jprb, 0.111287e+00_jprb, 0.103920e+00_jprb &
14780  &, 0.969130e-01_jprb, 0.902507e-01_jprb, 0.839337e-01_jprb, 0.779415e-01_jprb &
14781  &, 0.722893e-01_jprb, 0.669312e-01_jprb, 0.618981e-01_jprb &
14782  &, 0.571588e-01_jprb, 0.526992e-01_jprb, 0.485247e-01_jprb, 0.446171e-01_jprb &
14783  &, 0.409554e-01_jprb, 0.375390e-01_jprb, 0.343661e-01_jprb &
14784  &, 0.314093e-01_jprb, 0.286626e-01_jprb, 0.261188e-01_jprb, 0.237689e-01_jprb &
14785  &, 0.216027e-01_jprb, 0.195814e-01_jprb, 0.177444e-01_jprb &
14786  &, 0.160500e-01_jprb, 0.145095e-01_jprb, 0.130765e-01_jprb, 0.117596e-01_jprb &
14787  &, 0.105975e-01_jprb, 0.950931e-02_jprb, 0.853186e-02_jprb &
14788  &, 0.760959e-02_jprb, 0.681141e-02_jprb, 0.607973e-02_jprb, 0.541926e-02_jprb &
14789  &, 0.480084e-02_jprb, 0.426219e-02_jprb, 0.380833e-02_jprb &
14790  &, 0.337282e-02_jprb, 0.295724e-02_jprb, 0.260018e-02_jprb, 0.230515e-02_jprb &
14791  &, 0.203748e-02_jprb, 0.179890e-02_jprb, 0.155166e-02_jprb &
14792  &, 0.137600e-02_jprb, 0.119405e-02_jprb, 0.104720e-02_jprb, 0.895200e-03_jprb &
14793  &, 0.780813e-03_jprb, 0.662492e-03_jprb, 0.584365e-03_jprb &
14794  &, 0.503574e-03_jprb, 0.420083e-03_jprb, 0.380121e-03_jprb, 0.338800e-03_jprb &
14795  &, 0.248419e-03_jprb, 0.252010e-03_jprb, 0.206505e-03_jprb &
14796  &, 0.159569e-03_jprb, 0.111185e-03_jprb, 0.112669e-03_jprb, 0.114165e-03_jprb &
14797  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
14798  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14799  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14800  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14801  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14802 
14803 IF (lhook) CALL dr_hook('SU_MCICA:PART48',1,zhook_handle)
14804 END SUBROUTINE part48
14805 
14806 #ifdef VPP5000
14807 !OCL SCALAR
14808 #endif
14809 !option! -Nv -NO
14810 #ifdef RS6K
14811 @process nooptimize
14812 #endif
14813 !pgi$r opt=0
14814 SUBROUTINE part49
14815 
14816 REAL(KIND=JPRB) :: ZHOOK_HANDLE
14817 IF (lhook) CALL dr_hook('SU_MCICA:PART49',0,zhook_handle)
14818 
14819 xcw( 337, :) = (/ &
14820  & 0.955096e+00_jprb, 0.943074e+00_jprb, 0.930745e+00_jprb, 0.918127e+00_jprb &
14821  &, 0.905221e+00_jprb, 0.892040e+00_jprb, 0.878592e+00_jprb &
14822  &, 0.864885e+00_jprb, 0.850932e+00_jprb, 0.836741e+00_jprb, 0.822323e+00_jprb &
14823  &, 0.807687e+00_jprb, 0.792846e+00_jprb, 0.777811e+00_jprb &
14824  &, 0.762593e+00_jprb, 0.747204e+00_jprb, 0.731659e+00_jprb, 0.715966e+00_jprb &
14825  &, 0.700142e+00_jprb, 0.684197e+00_jprb, 0.668151e+00_jprb &
14826  &, 0.652014e+00_jprb, 0.635801e+00_jprb, 0.619528e+00_jprb, 0.603209e+00_jprb &
14827  &, 0.586863e+00_jprb, 0.570504e+00_jprb, 0.554150e+00_jprb &
14828  &, 0.537819e+00_jprb, 0.521522e+00_jprb, 0.505280e+00_jprb, 0.489116e+00_jprb &
14829  &, 0.473039e+00_jprb, 0.457069e+00_jprb, 0.441222e+00_jprb &
14830  &, 0.425516e+00_jprb, 0.409975e+00_jprb, 0.394607e+00_jprb, 0.379435e+00_jprb &
14831  &, 0.364466e+00_jprb, 0.349727e+00_jprb, 0.335227e+00_jprb &
14832  &, 0.320983e+00_jprb, 0.307005e+00_jprb, 0.293312e+00_jprb, 0.279912e+00_jprb &
14833  &, 0.266811e+00_jprb, 0.254040e+00_jprb, 0.241592e+00_jprb &
14834  &, 0.229471e+00_jprb, 0.217705e+00_jprb, 0.206281e+00_jprb, 0.195226e+00_jprb &
14835  &, 0.184522e+00_jprb, 0.174193e+00_jprb, 0.164231e+00_jprb &
14836  &, 0.154626e+00_jprb, 0.145410e+00_jprb, 0.136554e+00_jprb, 0.128072e+00_jprb &
14837  &, 0.119941e+00_jprb, 0.112189e+00_jprb, 0.104790e+00_jprb &
14838  &, 0.977477e-01_jprb, 0.910483e-01_jprb, 0.846920e-01_jprb, 0.786777e-01_jprb &
14839  &, 0.729820e-01_jprb, 0.675984e-01_jprb, 0.625176e-01_jprb &
14840  &, 0.577493e-01_jprb, 0.532590e-01_jprb, 0.490523e-01_jprb, 0.451107e-01_jprb &
14841  &, 0.414134e-01_jprb, 0.379830e-01_jprb, 0.347714e-01_jprb &
14842  &, 0.317984e-01_jprb, 0.290347e-01_jprb, 0.264729e-01_jprb, 0.240785e-01_jprb &
14843  &, 0.218920e-01_jprb, 0.198763e-01_jprb, 0.179903e-01_jprb &
14844  &, 0.163007e-01_jprb, 0.147081e-01_jprb, 0.132789e-01_jprb, 0.119658e-01_jprb &
14845  &, 0.107475e-01_jprb, 0.966203e-02_jprb, 0.865627e-02_jprb &
14846  &, 0.773625e-02_jprb, 0.694035e-02_jprb, 0.617816e-02_jprb, 0.551944e-02_jprb &
14847  &, 0.490278e-02_jprb, 0.436591e-02_jprb, 0.387867e-02_jprb &
14848  &, 0.340860e-02_jprb, 0.303001e-02_jprb, 0.267418e-02_jprb, 0.234278e-02_jprb &
14849  &, 0.207573e-02_jprb, 0.183779e-02_jprb, 0.159119e-02_jprb &
14850  &, 0.141618e-02_jprb, 0.123488e-02_jprb, 0.104720e-02_jprb, 0.937353e-03_jprb &
14851  &, 0.823636e-03_jprb, 0.705991e-03_jprb, 0.584365e-03_jprb &
14852  &, 0.503574e-03_jprb, 0.465648e-03_jprb, 0.380121e-03_jprb, 0.338800e-03_jprb &
14853  &, 0.296102e-03_jprb, 0.252010e-03_jprb, 0.206505e-03_jprb &
14854  &, 0.159569e-03_jprb, 0.161777e-03_jprb, 0.112669e-03_jprb, 0.114165e-03_jprb &
14855  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
14856  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14857  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14858  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14859  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14860 xcw( 338, :) = (/ &
14861  & 0.955362e+00_jprb, 0.943402e+00_jprb, 0.931138e+00_jprb, 0.918580e+00_jprb &
14862  &, 0.905735e+00_jprb, 0.892612e+00_jprb, 0.879221e+00_jprb &
14863  &, 0.865571e+00_jprb, 0.851672e+00_jprb, 0.837534e+00_jprb, 0.823166e+00_jprb &
14864  &, 0.808582e+00_jprb, 0.793789e+00_jprb, 0.778800e+00_jprb &
14865  &, 0.763627e+00_jprb, 0.748281e+00_jprb, 0.732776e+00_jprb, 0.717123e+00_jprb &
14866  &, 0.701336e+00_jprb, 0.685428e+00_jprb, 0.669415e+00_jprb &
14867  &, 0.653307e+00_jprb, 0.637124e+00_jprb, 0.620878e+00_jprb, 0.604588e+00_jprb &
14868  &, 0.588263e+00_jprb, 0.571927e+00_jprb, 0.555593e+00_jprb &
14869  &, 0.539274e+00_jprb, 0.522993e+00_jprb, 0.506767e+00_jprb, 0.490611e+00_jprb &
14870  &, 0.474541e+00_jprb, 0.458573e+00_jprb, 0.442733e+00_jprb &
14871  &, 0.427033e+00_jprb, 0.411482e+00_jprb, 0.396112e+00_jprb, 0.380939e+00_jprb &
14872  &, 0.365956e+00_jprb, 0.351213e+00_jprb, 0.336696e+00_jprb &
14873  &, 0.322434e+00_jprb, 0.308447e+00_jprb, 0.294732e+00_jprb, 0.281307e+00_jprb &
14874  &, 0.268191e+00_jprb, 0.255392e+00_jprb, 0.242926e+00_jprb &
14875  &, 0.230785e+00_jprb, 0.218983e+00_jprb, 0.207535e+00_jprb, 0.196440e+00_jprb &
14876  &, 0.185707e+00_jprb, 0.175347e+00_jprb, 0.165351e+00_jprb &
14877  &, 0.155726e+00_jprb, 0.146457e+00_jprb, 0.137576e+00_jprb, 0.129051e+00_jprb &
14878  &, 0.120892e+00_jprb, 0.113109e+00_jprb, 0.105660e+00_jprb &
14879  &, 0.985825e-01_jprb, 0.918644e-01_jprb, 0.854693e-01_jprb, 0.794138e-01_jprb &
14880  &, 0.736748e-01_jprb, 0.682656e-01_jprb, 0.631578e-01_jprb &
14881  &, 0.583397e-01_jprb, 0.538189e-01_jprb, 0.495798e-01_jprb, 0.456043e-01_jprb &
14882  &, 0.418943e-01_jprb, 0.384270e-01_jprb, 0.352006e-01_jprb &
14883  &, 0.321876e-01_jprb, 0.294068e-01_jprb, 0.268018e-01_jprb, 0.244139e-01_jprb &
14884  &, 0.221814e-01_jprb, 0.201444e-01_jprb, 0.182636e-01_jprb &
14885  &, 0.165234e-01_jprb, 0.149351e-01_jprb, 0.134812e-01_jprb, 0.121424e-01_jprb &
14886  &, 0.109275e-01_jprb, 0.981475e-02_jprb, 0.881178e-02_jprb &
14887  &, 0.789457e-02_jprb, 0.703705e-02_jprb, 0.630940e-02_jprb, 0.561961e-02_jprb &
14888  &, 0.500471e-02_jprb, 0.443505e-02_jprb, 0.394901e-02_jprb &
14889  &, 0.348015e-02_jprb, 0.310278e-02_jprb, 0.271119e-02_jprb, 0.241803e-02_jprb &
14890  &, 0.211398e-02_jprb, 0.187667e-02_jprb, 0.163072e-02_jprb &
14891  &, 0.141618e-02_jprb, 0.123488e-02_jprb, 0.108868e-02_jprb, 0.937353e-03_jprb &
14892  &, 0.823636e-03_jprb, 0.705991e-03_jprb, 0.628547e-03_jprb &
14893  &, 0.548444e-03_jprb, 0.465648e-03_jprb, 0.380121e-03_jprb, 0.338800e-03_jprb &
14894  &, 0.296102e-03_jprb, 0.252010e-03_jprb, 0.206505e-03_jprb &
14895  &, 0.159569e-03_jprb, 0.161777e-03_jprb, 0.112669e-03_jprb, 0.114165e-03_jprb &
14896  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
14897  &, 0.651343e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14898  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14899  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14900  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14901 xcw( 339, :) = (/ &
14902  & 0.955629e+00_jprb, 0.943732e+00_jprb, 0.931530e+00_jprb, 0.919033e+00_jprb &
14903  &, 0.906248e+00_jprb, 0.893184e+00_jprb, 0.879850e+00_jprb &
14904  &, 0.866257e+00_jprb, 0.852412e+00_jprb, 0.838325e+00_jprb, 0.824011e+00_jprb &
14905  &, 0.809475e+00_jprb, 0.794731e+00_jprb, 0.779788e+00_jprb &
14906  &, 0.764660e+00_jprb, 0.749358e+00_jprb, 0.733894e+00_jprb, 0.718281e+00_jprb &
14907  &, 0.702532e+00_jprb, 0.686659e+00_jprb, 0.670680e+00_jprb &
14908  &, 0.654603e+00_jprb, 0.638450e+00_jprb, 0.622232e+00_jprb, 0.605966e+00_jprb &
14909  &, 0.589664e+00_jprb, 0.573350e+00_jprb, 0.557032e+00_jprb &
14910  &, 0.540732e+00_jprb, 0.524467e+00_jprb, 0.508250e+00_jprb, 0.492105e+00_jprb &
14911  &, 0.476043e+00_jprb, 0.460082e+00_jprb, 0.444243e+00_jprb &
14912  &, 0.428539e+00_jprb, 0.412998e+00_jprb, 0.397618e+00_jprb, 0.382432e+00_jprb &
14913  &, 0.367457e+00_jprb, 0.352699e+00_jprb, 0.338165e+00_jprb &
14914  &, 0.323896e+00_jprb, 0.309889e+00_jprb, 0.296151e+00_jprb, 0.282714e+00_jprb &
14915  &, 0.269584e+00_jprb, 0.256757e+00_jprb, 0.244260e+00_jprb &
14916  &, 0.232086e+00_jprb, 0.220262e+00_jprb, 0.208790e+00_jprb, 0.197668e+00_jprb &
14917  &, 0.186907e+00_jprb, 0.176501e+00_jprb, 0.166472e+00_jprb &
14918  &, 0.156811e+00_jprb, 0.147519e+00_jprb, 0.138599e+00_jprb, 0.130030e+00_jprb &
14919  &, 0.121842e+00_jprb, 0.114012e+00_jprb, 0.106547e+00_jprb &
14920  &, 0.994354e-01_jprb, 0.926621e-01_jprb, 0.862465e-01_jprb, 0.801499e-01_jprb &
14921  &, 0.743873e-01_jprb, 0.689328e-01_jprb, 0.637979e-01_jprb &
14922  &, 0.589513e-01_jprb, 0.544003e-01_jprb, 0.501294e-01_jprb, 0.461204e-01_jprb &
14923  &, 0.423752e-01_jprb, 0.388710e-01_jprb, 0.356297e-01_jprb &
14924  &, 0.325767e-01_jprb, 0.297541e-01_jprb, 0.271560e-01_jprb, 0.247234e-01_jprb &
14925  &, 0.224970e-01_jprb, 0.204125e-01_jprb, 0.185095e-01_jprb &
14926  &, 0.167741e-01_jprb, 0.151621e-01_jprb, 0.136836e-01_jprb, 0.123191e-01_jprb &
14927  &, 0.111074e-01_jprb, 0.996747e-02_jprb, 0.893619e-02_jprb &
14928  &, 0.802123e-02_jprb, 0.716599e-02_jprb, 0.640783e-02_jprb, 0.571978e-02_jprb &
14929  &, 0.507267e-02_jprb, 0.453876e-02_jprb, 0.401935e-02_jprb &
14930  &, 0.355170e-02_jprb, 0.313917e-02_jprb, 0.278519e-02_jprb, 0.245565e-02_jprb &
14931  &, 0.215224e-02_jprb, 0.191556e-02_jprb, 0.167025e-02_jprb &
14932  &, 0.145635e-02_jprb, 0.127570e-02_jprb, 0.113017e-02_jprb, 0.979505e-03_jprb &
14933  &, 0.823636e-03_jprb, 0.749491e-03_jprb, 0.628547e-03_jprb &
14934  &, 0.548444e-03_jprb, 0.465648e-03_jprb, 0.426386e-03_jprb, 0.338800e-03_jprb &
14935  &, 0.296102e-03_jprb, 0.252010e-03_jprb, 0.206505e-03_jprb &
14936  &, 0.159569e-03_jprb, 0.161777e-03_jprb, 0.112669e-03_jprb, 0.114165e-03_jprb &
14937  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
14938  &, 0.651343e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14939  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14940  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14941  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14942 xcw( 340, :) = (/ &
14943  & 0.955893e+00_jprb, 0.944061e+00_jprb, 0.931921e+00_jprb, 0.919486e+00_jprb &
14944  &, 0.906761e+00_jprb, 0.893755e+00_jprb, 0.880479e+00_jprb &
14945  &, 0.866941e+00_jprb, 0.853151e+00_jprb, 0.839119e+00_jprb, 0.824855e+00_jprb &
14946  &, 0.810369e+00_jprb, 0.795673e+00_jprb, 0.780778e+00_jprb &
14947  &, 0.765694e+00_jprb, 0.750435e+00_jprb, 0.735012e+00_jprb, 0.719438e+00_jprb &
14948  &, 0.703726e+00_jprb, 0.687890e+00_jprb, 0.671941e+00_jprb &
14949  &, 0.655900e+00_jprb, 0.639776e+00_jprb, 0.623585e+00_jprb, 0.607344e+00_jprb &
14950  &, 0.591068e+00_jprb, 0.574773e+00_jprb, 0.558474e+00_jprb &
14951  &, 0.542191e+00_jprb, 0.525942e+00_jprb, 0.509736e+00_jprb, 0.493599e+00_jprb &
14952  &, 0.477549e+00_jprb, 0.461595e+00_jprb, 0.445758e+00_jprb &
14953  &, 0.430055e+00_jprb, 0.414515e+00_jprb, 0.399134e+00_jprb, 0.383946e+00_jprb &
14954  &, 0.368958e+00_jprb, 0.354185e+00_jprb, 0.339645e+00_jprb &
14955  &, 0.325358e+00_jprb, 0.311330e+00_jprb, 0.297582e+00_jprb, 0.284121e+00_jprb &
14956  &, 0.270965e+00_jprb, 0.258121e+00_jprb, 0.245594e+00_jprb &
14957  &, 0.233400e+00_jprb, 0.221554e+00_jprb, 0.210044e+00_jprb, 0.198896e+00_jprb &
14958  &, 0.188106e+00_jprb, 0.177670e+00_jprb, 0.167608e+00_jprb &
14959  &, 0.157911e+00_jprb, 0.148582e+00_jprb, 0.139621e+00_jprb, 0.131026e+00_jprb &
14960  &, 0.122810e+00_jprb, 0.114932e+00_jprb, 0.107435e+00_jprb &
14961  &, 0.100288e+00_jprb, 0.934782e-01_jprb, 0.870238e-01_jprb, 0.808860e-01_jprb &
14962  &, 0.750800e-01_jprb, 0.696000e-01_jprb, 0.644381e-01_jprb &
14963  &, 0.595628e-01_jprb, 0.549816e-01_jprb, 0.506789e-01_jprb, 0.466365e-01_jprb &
14964  &, 0.428561e-01_jprb, 0.393383e-01_jprb, 0.360350e-01_jprb &
14965  &, 0.329902e-01_jprb, 0.301510e-01_jprb, 0.275102e-01_jprb, 0.250588e-01_jprb &
14966  &, 0.227863e-01_jprb, 0.207074e-01_jprb, 0.187828e-01_jprb &
14967  &, 0.169968e-01_jprb, 0.153891e-01_jprb, 0.138860e-01_jprb, 0.125253e-01_jprb &
14968  &, 0.112874e-01_jprb, 0.101202e-01_jprb, 0.909169e-02_jprb &
14969  &, 0.814789e-02_jprb, 0.729492e-02_jprb, 0.650625e-02_jprb, 0.581995e-02_jprb &
14970  &, 0.517460e-02_jprb, 0.460790e-02_jprb, 0.408969e-02_jprb &
14971  &, 0.362324e-02_jprb, 0.321194e-02_jprb, 0.282219e-02_jprb, 0.249328e-02_jprb &
14972  &, 0.219049e-02_jprb, 0.195445e-02_jprb, 0.170978e-02_jprb &
14973  &, 0.149653e-02_jprb, 0.131653e-02_jprb, 0.113017e-02_jprb, 0.979505e-03_jprb &
14974  &, 0.866459e-03_jprb, 0.749491e-03_jprb, 0.672729e-03_jprb &
14975  &, 0.548444e-03_jprb, 0.465648e-03_jprb, 0.426386e-03_jprb, 0.338800e-03_jprb &
14976  &, 0.296102e-03_jprb, 0.252010e-03_jprb, 0.206505e-03_jprb &
14977  &, 0.209425e-03_jprb, 0.161777e-03_jprb, 0.112669e-03_jprb, 0.114165e-03_jprb &
14978  &, 0.628365e-04_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
14979  &, 0.651343e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14980  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14981  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
14982  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
14983 xcw( 341, :) = (/ &
14984  & 0.956158e+00_jprb, 0.944390e+00_jprb, 0.932313e+00_jprb, 0.919939e+00_jprb &
14985  &, 0.907273e+00_jprb, 0.894327e+00_jprb, 0.881108e+00_jprb &
14986  &, 0.867625e+00_jprb, 0.853890e+00_jprb, 0.839911e+00_jprb, 0.825698e+00_jprb &
14987  &, 0.811262e+00_jprb, 0.796614e+00_jprb, 0.781766e+00_jprb &
14988  &, 0.766728e+00_jprb, 0.751510e+00_jprb, 0.736129e+00_jprb, 0.720595e+00_jprb &
14989  &, 0.704921e+00_jprb, 0.689121e+00_jprb, 0.673206e+00_jprb &
14990  &, 0.657196e+00_jprb, 0.641102e+00_jprb, 0.624939e+00_jprb, 0.608723e+00_jprb &
14991  &, 0.592472e+00_jprb, 0.576196e+00_jprb, 0.559920e+00_jprb &
14992  &, 0.543653e+00_jprb, 0.527417e+00_jprb, 0.511227e+00_jprb, 0.495098e+00_jprb &
14993  &, 0.479055e+00_jprb, 0.463108e+00_jprb, 0.447273e+00_jprb &
14994  &, 0.431571e+00_jprb, 0.416031e+00_jprb, 0.400649e+00_jprb, 0.385450e+00_jprb &
14995  &, 0.370458e+00_jprb, 0.355671e+00_jprb, 0.341125e+00_jprb &
14996  &, 0.326819e+00_jprb, 0.312783e+00_jprb, 0.299013e+00_jprb, 0.285540e+00_jprb &
14997  &, 0.272358e+00_jprb, 0.259486e+00_jprb, 0.246941e+00_jprb &
14998  &, 0.234727e+00_jprb, 0.222846e+00_jprb, 0.211312e+00_jprb, 0.200124e+00_jprb &
14999  &, 0.189305e+00_jprb, 0.178838e+00_jprb, 0.168743e+00_jprb &
15000  &, 0.159011e+00_jprb, 0.149644e+00_jprb, 0.140659e+00_jprb, 0.132022e+00_jprb &
15001  &, 0.123761e+00_jprb, 0.115870e+00_jprb, 0.108322e+00_jprb &
15002  &, 0.101141e+00_jprb, 0.942943e-01_jprb, 0.878010e-01_jprb, 0.816415e-01_jprb &
15003  &, 0.757925e-01_jprb, 0.702874e-01_jprb, 0.650782e-01_jprb &
15004  &, 0.601744e-01_jprb, 0.555415e-01_jprb, 0.512065e-01_jprb, 0.471526e-01_jprb &
15005  &, 0.433370e-01_jprb, 0.397823e-01_jprb, 0.364880e-01_jprb &
15006  &, 0.333793e-01_jprb, 0.305232e-01_jprb, 0.278644e-01_jprb, 0.253941e-01_jprb &
15007  &, 0.231019e-01_jprb, 0.209755e-01_jprb, 0.190287e-01_jprb &
15008  &, 0.172475e-01_jprb, 0.156161e-01_jprb, 0.140883e-01_jprb, 0.127019e-01_jprb &
15009  &, 0.114374e-01_jprb, 0.103035e-01_jprb, 0.924720e-02_jprb &
15010  &, 0.827455e-02_jprb, 0.742386e-02_jprb, 0.663749e-02_jprb, 0.592012e-02_jprb &
15011  &, 0.527653e-02_jprb, 0.467704e-02_jprb, 0.416003e-02_jprb &
15012  &, 0.369479e-02_jprb, 0.328471e-02_jprb, 0.289620e-02_jprb, 0.256853e-02_jprb &
15013  &, 0.226700e-02_jprb, 0.199334e-02_jprb, 0.174931e-02_jprb &
15014  &, 0.153671e-02_jprb, 0.131653e-02_jprb, 0.117166e-02_jprb, 0.102166e-02_jprb &
15015  &, 0.866459e-03_jprb, 0.749491e-03_jprb, 0.672729e-03_jprb &
15016  &, 0.593315e-03_jprb, 0.511212e-03_jprb, 0.426386e-03_jprb, 0.385772e-03_jprb &
15017  &, 0.296102e-03_jprb, 0.252010e-03_jprb, 0.206505e-03_jprb &
15018  &, 0.209425e-03_jprb, 0.161777e-03_jprb, 0.112669e-03_jprb, 0.114165e-03_jprb &
15019  &, 0.115673e-03_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
15020  &, 0.651343e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15021  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15022  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15023  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15024 xcw( 342, :) = (/ &
15025  & 0.956423e+00_jprb, 0.944718e+00_jprb, 0.932704e+00_jprb, 0.920391e+00_jprb &
15026  &, 0.907785e+00_jprb, 0.894897e+00_jprb, 0.881736e+00_jprb &
15027  &, 0.868310e+00_jprb, 0.854628e+00_jprb, 0.840702e+00_jprb, 0.826541e+00_jprb &
15028  &, 0.812155e+00_jprb, 0.797556e+00_jprb, 0.782754e+00_jprb &
15029  &, 0.767760e+00_jprb, 0.752587e+00_jprb, 0.737247e+00_jprb, 0.721752e+00_jprb &
15030  &, 0.706115e+00_jprb, 0.690352e+00_jprb, 0.674470e+00_jprb &
15031  &, 0.658492e+00_jprb, 0.642428e+00_jprb, 0.626292e+00_jprb, 0.610105e+00_jprb &
15032  &, 0.593876e+00_jprb, 0.577623e+00_jprb, 0.561363e+00_jprb &
15033  &, 0.545115e+00_jprb, 0.528891e+00_jprb, 0.512714e+00_jprb, 0.496601e+00_jprb &
15034  &, 0.480561e+00_jprb, 0.464621e+00_jprb, 0.448793e+00_jprb &
15035  &, 0.433097e+00_jprb, 0.417547e+00_jprb, 0.402165e+00_jprb, 0.386964e+00_jprb &
15036  &, 0.371959e+00_jprb, 0.357167e+00_jprb, 0.342605e+00_jprb &
15037  &, 0.328292e+00_jprb, 0.314236e+00_jprb, 0.300456e+00_jprb, 0.286959e+00_jprb &
15038  &, 0.273751e+00_jprb, 0.260863e+00_jprb, 0.248288e+00_jprb &
15039  &, 0.236041e+00_jprb, 0.224138e+00_jprb, 0.212580e+00_jprb, 0.201366e+00_jprb &
15040  &, 0.190505e+00_jprb, 0.180022e+00_jprb, 0.169879e+00_jprb &
15041  &, 0.160127e+00_jprb, 0.150723e+00_jprb, 0.141697e+00_jprb, 0.133034e+00_jprb &
15042  &, 0.124728e+00_jprb, 0.116668e+00_jprb, 0.109227e+00_jprb &
15043  &, 0.101994e+00_jprb, 0.951290e-01_jprb, 0.885783e-01_jprb, 0.823970e-01_jprb &
15044  &, 0.765248e-01_jprb, 0.709748e-01_jprb, 0.657184e-01_jprb &
15045  &, 0.607859e-01_jprb, 0.561444e-01_jprb, 0.517780e-01_jprb, 0.476687e-01_jprb &
15046  &, 0.438408e-01_jprb, 0.402497e-01_jprb, 0.369172e-01_jprb &
15047  &, 0.337928e-01_jprb, 0.308953e-01_jprb, 0.282186e-01_jprb, 0.257037e-01_jprb &
15048  &, 0.234175e-01_jprb, 0.212705e-01_jprb, 0.193020e-01_jprb &
15049  &, 0.174981e-01_jprb, 0.158431e-01_jprb, 0.143196e-01_jprb, 0.129081e-01_jprb &
15050  &, 0.116173e-01_jprb, 0.104562e-01_jprb, 0.940271e-02_jprb &
15051  &, 0.843288e-02_jprb, 0.755280e-02_jprb, 0.673592e-02_jprb, 0.602029e-02_jprb &
15052  &, 0.537846e-02_jprb, 0.478075e-02_jprb, 0.426554e-02_jprb &
15053  &, 0.376634e-02_jprb, 0.335748e-02_jprb, 0.297020e-02_jprb, 0.260615e-02_jprb &
15054  &, 0.230526e-02_jprb, 0.203223e-02_jprb, 0.178884e-02_jprb &
15055  &, 0.157688e-02_jprb, 0.135736e-02_jprb, 0.121315e-02_jprb, 0.102166e-02_jprb &
15056  &, 0.909282e-03_jprb, 0.792990e-03_jprb, 0.672729e-03_jprb &
15057  &, 0.593315e-03_jprb, 0.511212e-03_jprb, 0.426386e-03_jprb, 0.385772e-03_jprb &
15058  &, 0.343786e-03_jprb, 0.252010e-03_jprb, 0.255631e-03_jprb &
15059  &, 0.209425e-03_jprb, 0.161777e-03_jprb, 0.164003e-03_jprb, 0.114165e-03_jprb &
15060  &, 0.115673e-03_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
15061  &, 0.651343e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15062  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15063  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15064  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15065 xcw( 343, :) = (/ &
15066  & 0.956689e+00_jprb, 0.945047e+00_jprb, 0.933094e+00_jprb, 0.920843e+00_jprb &
15067  &, 0.908297e+00_jprb, 0.895468e+00_jprb, 0.882364e+00_jprb &
15068  &, 0.868994e+00_jprb, 0.855367e+00_jprb, 0.841494e+00_jprb, 0.827384e+00_jprb &
15069  &, 0.813047e+00_jprb, 0.798496e+00_jprb, 0.783741e+00_jprb &
15070  &, 0.768793e+00_jprb, 0.753662e+00_jprb, 0.738364e+00_jprb, 0.722909e+00_jprb &
15071  &, 0.707311e+00_jprb, 0.691582e+00_jprb, 0.675735e+00_jprb &
15072  &, 0.659789e+00_jprb, 0.643754e+00_jprb, 0.627649e+00_jprb, 0.611483e+00_jprb &
15073  &, 0.595280e+00_jprb, 0.579050e+00_jprb, 0.562809e+00_jprb &
15074  &, 0.546578e+00_jprb, 0.530370e+00_jprb, 0.514204e+00_jprb, 0.498099e+00_jprb &
15075  &, 0.482071e+00_jprb, 0.466134e+00_jprb, 0.450312e+00_jprb &
15076  &, 0.434613e+00_jprb, 0.419064e+00_jprb, 0.403681e+00_jprb, 0.388478e+00_jprb &
15077  &, 0.373460e+00_jprb, 0.358663e+00_jprb, 0.344096e+00_jprb &
15078  &, 0.329765e+00_jprb, 0.315689e+00_jprb, 0.301899e+00_jprb, 0.288378e+00_jprb &
15079  &, 0.275156e+00_jprb, 0.262240e+00_jprb, 0.249647e+00_jprb &
15080  &, 0.237368e+00_jprb, 0.225444e+00_jprb, 0.213848e+00_jprb, 0.202608e+00_jprb &
15081  &, 0.191719e+00_jprb, 0.181190e+00_jprb, 0.171030e+00_jprb &
15082  &, 0.161227e+00_jprb, 0.151801e+00_jprb, 0.142736e+00_jprb, 0.134047e+00_jprb &
15083  &, 0.125713e+00_jprb, 0.117727e+00_jprb, 0.110115e+00_jprb &
15084  &, 0.102865e+00_jprb, 0.959452e-01_jprb, 0.893745e-01_jprb, 0.831525e-01_jprb &
15085  &, 0.772373e-01_jprb, 0.716622e-01_jprb, 0.663792e-01_jprb &
15086  &, 0.613975e-01_jprb, 0.567257e-01_jprb, 0.523276e-01_jprb, 0.482072e-01_jprb &
15087  &, 0.443446e-01_jprb, 0.407170e-01_jprb, 0.373463e-01_jprb &
15088  &, 0.342063e-01_jprb, 0.312922e-01_jprb, 0.285728e-01_jprb, 0.260391e-01_jprb &
15089  &, 0.237331e-01_jprb, 0.215654e-01_jprb, 0.195752e-01_jprb &
15090  &, 0.177487e-01_jprb, 0.160701e-01_jprb, 0.145219e-01_jprb, 0.131142e-01_jprb &
15091  &, 0.118273e-01_jprb, 0.106394e-01_jprb, 0.955822e-02_jprb &
15092  &, 0.855954e-02_jprb, 0.768173e-02_jprb, 0.686716e-02_jprb, 0.612046e-02_jprb &
15093  &, 0.548040e-02_jprb, 0.488447e-02_jprb, 0.433587e-02_jprb &
15094  &, 0.383789e-02_jprb, 0.339387e-02_jprb, 0.300721e-02_jprb, 0.268140e-02_jprb &
15095  &, 0.234351e-02_jprb, 0.207112e-02_jprb, 0.182837e-02_jprb &
15096  &, 0.157688e-02_jprb, 0.139819e-02_jprb, 0.121315e-02_jprb, 0.106381e-02_jprb &
15097  &, 0.909282e-03_jprb, 0.792990e-03_jprb, 0.716911e-03_jprb &
15098  &, 0.593315e-03_jprb, 0.511212e-03_jprb, 0.472651e-03_jprb, 0.385772e-03_jprb &
15099  &, 0.343786e-03_jprb, 0.300412e-03_jprb, 0.255631e-03_jprb &
15100  &, 0.209425e-03_jprb, 0.161777e-03_jprb, 0.164003e-03_jprb, 0.114165e-03_jprb &
15101  &, 0.115673e-03_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
15102  &, 0.651343e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15103  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15104  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15105  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15106 
15107 IF (lhook) CALL dr_hook('SU_MCICA:PART49',1,zhook_handle)
15108 END SUBROUTINE part49
15109 
15110 #ifdef VPP5000
15111 !OCL SCALAR
15112 #endif
15113 !option! -Nv -NO
15114 #ifdef RS6K
15115 @process nooptimize
15116 #endif
15117 !pgi$r opt=0
15118 SUBROUTINE part50
15119 
15120 REAL(KIND=JPRB) :: ZHOOK_HANDLE
15121 IF (lhook) CALL dr_hook('SU_MCICA:PART50',0,zhook_handle)
15122 
15123 xcw( 344, :) = (/ &
15124  & 0.956954e+00_jprb, 0.945374e+00_jprb, 0.933485e+00_jprb, 0.921294e+00_jprb &
15125  &, 0.908808e+00_jprb, 0.896038e+00_jprb, 0.882990e+00_jprb &
15126  &, 0.869677e+00_jprb, 0.856104e+00_jprb, 0.842284e+00_jprb, 0.828227e+00_jprb &
15127  &, 0.813939e+00_jprb, 0.799437e+00_jprb, 0.784728e+00_jprb &
15128  &, 0.769825e+00_jprb, 0.754733e+00_jprb, 0.739482e+00_jprb, 0.724067e+00_jprb &
15129  &, 0.708505e+00_jprb, 0.692813e+00_jprb, 0.677003e+00_jprb &
15130  &, 0.661088e+00_jprb, 0.645083e+00_jprb, 0.629003e+00_jprb, 0.612865e+00_jprb &
15131  &, 0.596684e+00_jprb, 0.580476e+00_jprb, 0.564256e+00_jprb &
15132  &, 0.548040e+00_jprb, 0.531852e+00_jprb, 0.515699e+00_jprb, 0.499602e+00_jprb &
15133  &, 0.483582e+00_jprb, 0.467656e+00_jprb, 0.451836e+00_jprb &
15134  &, 0.436138e+00_jprb, 0.420590e+00_jprb, 0.405196e+00_jprb, 0.389992e+00_jprb &
15135  &, 0.374971e+00_jprb, 0.360160e+00_jprb, 0.345587e+00_jprb &
15136  &, 0.331238e+00_jprb, 0.317154e+00_jprb, 0.303341e+00_jprb, 0.289797e+00_jprb &
15137  &, 0.276561e+00_jprb, 0.263617e+00_jprb, 0.251007e+00_jprb &
15138  &, 0.238708e+00_jprb, 0.226749e+00_jprb, 0.215130e+00_jprb, 0.203850e+00_jprb &
15139  &, 0.192933e+00_jprb, 0.182374e+00_jprb, 0.172181e+00_jprb &
15140  &, 0.162359e+00_jprb, 0.152879e+00_jprb, 0.143790e+00_jprb, 0.135059e+00_jprb &
15141  &, 0.126680e+00_jprb, 0.118682e+00_jprb, 0.111020e+00_jprb &
15142  &, 0.103736e+00_jprb, 0.967799e-01_jprb, 0.901707e-01_jprb, 0.839080e-01_jprb &
15143  &, 0.779696e-01_jprb, 0.723496e-01_jprb, 0.670400e-01_jprb &
15144  &, 0.620301e-01_jprb, 0.573071e-01_jprb, 0.528772e-01_jprb, 0.487232e-01_jprb &
15145  &, 0.448255e-01_jprb, 0.411844e-01_jprb, 0.377993e-01_jprb &
15146  &, 0.346197e-01_jprb, 0.316643e-01_jprb, 0.289270e-01_jprb, 0.264002e-01_jprb &
15147  &, 0.240487e-01_jprb, 0.218603e-01_jprb, 0.198485e-01_jprb &
15148  &, 0.179993e-01_jprb, 0.162971e-01_jprb, 0.147532e-01_jprb, 0.133203e-01_jprb &
15149  &, 0.120072e-01_jprb, 0.107922e-01_jprb, 0.971373e-02_jprb &
15150  &, 0.871786e-02_jprb, 0.781067e-02_jprb, 0.699840e-02_jprb, 0.625403e-02_jprb &
15151  &, 0.558233e-02_jprb, 0.495361e-02_jprb, 0.440621e-02_jprb &
15152  &, 0.390944e-02_jprb, 0.346664e-02_jprb, 0.308121e-02_jprb, 0.271903e-02_jprb &
15153  &, 0.238176e-02_jprb, 0.211001e-02_jprb, 0.186790e-02_jprb &
15154  &, 0.161706e-02_jprb, 0.143902e-02_jprb, 0.125463e-02_jprb, 0.110596e-02_jprb &
15155  &, 0.952105e-03_jprb, 0.836490e-03_jprb, 0.716911e-03_jprb &
15156  &, 0.638185e-03_jprb, 0.556777e-03_jprb, 0.472651e-03_jprb, 0.385772e-03_jprb &
15157  &, 0.343786e-03_jprb, 0.300412e-03_jprb, 0.255631e-03_jprb &
15158  &, 0.209425e-03_jprb, 0.161777e-03_jprb, 0.164003e-03_jprb, 0.114165e-03_jprb &
15159  &, 0.115673e-03_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
15160  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15161  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15162  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15163  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15164 xcw( 345, :) = (/ &
15165  & 0.957218e+00_jprb, 0.945703e+00_jprb, 0.933875e+00_jprb, 0.921745e+00_jprb &
15166  &, 0.909319e+00_jprb, 0.896608e+00_jprb, 0.883618e+00_jprb &
15167  &, 0.870360e+00_jprb, 0.856842e+00_jprb, 0.843075e+00_jprb, 0.829068e+00_jprb &
15168  &, 0.814830e+00_jprb, 0.800377e+00_jprb, 0.785716e+00_jprb &
15169  &, 0.770857e+00_jprb, 0.755815e+00_jprb, 0.740598e+00_jprb, 0.725224e+00_jprb &
15170  &, 0.709700e+00_jprb, 0.694044e+00_jprb, 0.678267e+00_jprb &
15171  &, 0.662385e+00_jprb, 0.646410e+00_jprb, 0.630359e+00_jprb, 0.614247e+00_jprb &
15172  &, 0.598092e+00_jprb, 0.581903e+00_jprb, 0.565702e+00_jprb &
15173  &, 0.549506e+00_jprb, 0.533331e+00_jprb, 0.517190e+00_jprb, 0.501109e+00_jprb &
15174  &, 0.485097e+00_jprb, 0.469173e+00_jprb, 0.453356e+00_jprb &
15175  &, 0.437664e+00_jprb, 0.422115e+00_jprb, 0.406722e+00_jprb, 0.391505e+00_jprb &
15176  &, 0.376482e+00_jprb, 0.361667e+00_jprb, 0.347078e+00_jprb &
15177  &, 0.332722e+00_jprb, 0.318618e+00_jprb, 0.304784e+00_jprb, 0.291227e+00_jprb &
15178  &, 0.277966e+00_jprb, 0.265007e+00_jprb, 0.252367e+00_jprb &
15179  &, 0.240035e+00_jprb, 0.228055e+00_jprb, 0.216398e+00_jprb, 0.205106e+00_jprb &
15180  &, 0.194161e+00_jprb, 0.183572e+00_jprb, 0.173332e+00_jprb &
15181  &, 0.163474e+00_jprb, 0.153973e+00_jprb, 0.144845e+00_jprb, 0.136071e+00_jprb &
15182  &, 0.127665e+00_jprb, 0.119619e+00_jprb, 0.111943e+00_jprb &
15183  &, 0.104607e+00_jprb, 0.976146e-01_jprb, 0.909858e-01_jprb, 0.846828e-01_jprb &
15184  &, 0.787019e-01_jprb, 0.730370e-01_jprb, 0.677008e-01_jprb &
15185  &, 0.626628e-01_jprb, 0.579100e-01_jprb, 0.534487e-01_jprb, 0.492618e-01_jprb &
15186  &, 0.453293e-01_jprb, 0.416751e-01_jprb, 0.382285e-01_jprb &
15187  &, 0.350332e-01_jprb, 0.320612e-01_jprb, 0.293065e-01_jprb, 0.267356e-01_jprb &
15188  &, 0.243643e-01_jprb, 0.221552e-01_jprb, 0.201217e-01_jprb &
15189  &, 0.182500e-01_jprb, 0.165525e-01_jprb, 0.149556e-01_jprb, 0.134970e-01_jprb &
15190  &, 0.121872e-01_jprb, 0.109754e-01_jprb, 0.986924e-02_jprb &
15191  &, 0.884452e-02_jprb, 0.793961e-02_jprb, 0.709682e-02_jprb, 0.635420e-02_jprb &
15192  &, 0.568426e-02_jprb, 0.505732e-02_jprb, 0.447655e-02_jprb &
15193  &, 0.398099e-02_jprb, 0.353941e-02_jprb, 0.311821e-02_jprb, 0.275666e-02_jprb &
15194  &, 0.245827e-02_jprb, 0.214890e-02_jprb, 0.190743e-02_jprb &
15195  &, 0.165724e-02_jprb, 0.147985e-02_jprb, 0.129612e-02_jprb, 0.110596e-02_jprb &
15196  &, 0.994928e-03_jprb, 0.836490e-03_jprb, 0.716911e-03_jprb &
15197  &, 0.638185e-03_jprb, 0.556777e-03_jprb, 0.472651e-03_jprb, 0.432743e-03_jprb &
15198  &, 0.343786e-03_jprb, 0.300412e-03_jprb, 0.255631e-03_jprb &
15199  &, 0.209425e-03_jprb, 0.161777e-03_jprb, 0.164003e-03_jprb, 0.114165e-03_jprb &
15200  &, 0.115673e-03_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
15201  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15202  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15203  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15204  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15205 xcw( 346, :) = (/ &
15206  & 0.957481e+00_jprb, 0.946030e+00_jprb, 0.934264e+00_jprb, 0.922196e+00_jprb &
15207  &, 0.909830e+00_jprb, 0.897177e+00_jprb, 0.884244e+00_jprb &
15208  &, 0.871041e+00_jprb, 0.857579e+00_jprb, 0.843865e+00_jprb, 0.829910e+00_jprb &
15209  &, 0.815723e+00_jprb, 0.801317e+00_jprb, 0.786703e+00_jprb &
15210  &, 0.771890e+00_jprb, 0.756890e+00_jprb, 0.741716e+00_jprb, 0.726380e+00_jprb &
15211  &, 0.710896e+00_jprb, 0.695275e+00_jprb, 0.679532e+00_jprb &
15212  &, 0.663681e+00_jprb, 0.647739e+00_jprb, 0.631716e+00_jprb, 0.615629e+00_jprb &
15213  &, 0.599496e+00_jprb, 0.583334e+00_jprb, 0.567152e+00_jprb &
15214  &, 0.550973e+00_jprb, 0.534813e+00_jprb, 0.518689e+00_jprb, 0.502612e+00_jprb &
15215  &, 0.486611e+00_jprb, 0.470695e+00_jprb, 0.454884e+00_jprb &
15216  &, 0.439189e+00_jprb, 0.423641e+00_jprb, 0.408247e+00_jprb, 0.393029e+00_jprb &
15217  &, 0.378003e+00_jprb, 0.363174e+00_jprb, 0.348569e+00_jprb &
15218  &, 0.334206e+00_jprb, 0.320082e+00_jprb, 0.306238e+00_jprb, 0.292658e+00_jprb &
15219  &, 0.279372e+00_jprb, 0.266397e+00_jprb, 0.253726e+00_jprb &
15220  &, 0.241376e+00_jprb, 0.229360e+00_jprb, 0.217694e+00_jprb, 0.206362e+00_jprb &
15221  &, 0.195375e+00_jprb, 0.184756e+00_jprb, 0.174498e+00_jprb &
15222  &, 0.164606e+00_jprb, 0.155068e+00_jprb, 0.145900e+00_jprb, 0.137100e+00_jprb &
15223  &, 0.128650e+00_jprb, 0.120574e+00_jprb, 0.112848e+00_jprb &
15224  &, 0.105478e+00_jprb, 0.984679e-01_jprb, 0.917820e-01_jprb, 0.854577e-01_jprb &
15225  &, 0.794341e-01_jprb, 0.737446e-01_jprb, 0.683616e-01_jprb &
15226  &, 0.632954e-01_jprb, 0.585129e-01_jprb, 0.540202e-01_jprb, 0.498003e-01_jprb &
15227  &, 0.458560e-01_jprb, 0.421425e-01_jprb, 0.386815e-01_jprb &
15228  &, 0.354710e-01_jprb, 0.324581e-01_jprb, 0.296606e-01_jprb, 0.270709e-01_jprb &
15229  &, 0.246799e-01_jprb, 0.224501e-01_jprb, 0.204223e-01_jprb &
15230  &, 0.185284e-01_jprb, 0.167795e-01_jprb, 0.151868e-01_jprb, 0.137032e-01_jprb &
15231  &, 0.123671e-01_jprb, 0.111587e-01_jprb, 0.100247e-01_jprb &
15232  &, 0.900285e-02_jprb, 0.806855e-02_jprb, 0.722806e-02_jprb, 0.645437e-02_jprb &
15233  &, 0.578620e-02_jprb, 0.512646e-02_jprb, 0.458206e-02_jprb &
15234  &, 0.405254e-02_jprb, 0.361218e-02_jprb, 0.319222e-02_jprb, 0.283191e-02_jprb &
15235  &, 0.249653e-02_jprb, 0.218779e-02_jprb, 0.194696e-02_jprb &
15236  &, 0.169741e-02_jprb, 0.147985e-02_jprb, 0.129612e-02_jprb, 0.114811e-02_jprb &
15237  &, 0.994928e-03_jprb, 0.879989e-03_jprb, 0.761093e-03_jprb &
15238  &, 0.638185e-03_jprb, 0.556777e-03_jprb, 0.472651e-03_jprb, 0.432743e-03_jprb &
15239  &, 0.343786e-03_jprb, 0.300412e-03_jprb, 0.255631e-03_jprb &
15240  &, 0.209425e-03_jprb, 0.212370e-03_jprb, 0.164003e-03_jprb, 0.114165e-03_jprb &
15241  &, 0.115673e-03_jprb, 0.635965e-04_jprb, 0.643624e-04_jprb &
15242  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15243  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15244  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15245  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15246 xcw( 347, :) = (/ &
15247  & 0.957745e+00_jprb, 0.946357e+00_jprb, 0.934654e+00_jprb, 0.922646e+00_jprb &
15248  &, 0.910340e+00_jprb, 0.897745e+00_jprb, 0.884870e+00_jprb &
15249  &, 0.871724e+00_jprb, 0.858315e+00_jprb, 0.844654e+00_jprb, 0.830751e+00_jprb &
15250  &, 0.816615e+00_jprb, 0.802258e+00_jprb, 0.787689e+00_jprb &
15251  &, 0.772922e+00_jprb, 0.757965e+00_jprb, 0.742833e+00_jprb, 0.727537e+00_jprb &
15252  &, 0.712092e+00_jprb, 0.696506e+00_jprb, 0.680800e+00_jprb &
15253  &, 0.664981e+00_jprb, 0.649068e+00_jprb, 0.633073e+00_jprb, 0.617014e+00_jprb &
15254  &, 0.600903e+00_jprb, 0.584761e+00_jprb, 0.568602e+00_jprb &
15255  &, 0.552439e+00_jprb, 0.536296e+00_jprb, 0.520184e+00_jprb, 0.504123e+00_jprb &
15256  &, 0.488126e+00_jprb, 0.472217e+00_jprb, 0.456413e+00_jprb &
15257  &, 0.440724e+00_jprb, 0.425177e+00_jprb, 0.409772e+00_jprb, 0.394553e+00_jprb &
15258  &, 0.379514e+00_jprb, 0.364681e+00_jprb, 0.350070e+00_jprb &
15259  &, 0.335690e+00_jprb, 0.321558e+00_jprb, 0.307693e+00_jprb, 0.294101e+00_jprb &
15260  &, 0.280789e+00_jprb, 0.267787e+00_jprb, 0.255099e+00_jprb &
15261  &, 0.242729e+00_jprb, 0.230679e+00_jprb, 0.218976e+00_jprb, 0.207618e+00_jprb &
15262  &, 0.196618e+00_jprb, 0.185954e+00_jprb, 0.175664e+00_jprb &
15263  &, 0.165737e+00_jprb, 0.156162e+00_jprb, 0.146954e+00_jprb, 0.138129e+00_jprb &
15264  &, 0.129651e+00_jprb, 0.121529e+00_jprb, 0.113771e+00_jprb &
15265  &, 0.106367e+00_jprb, 0.993211e-01_jprb, 0.925972e-01_jprb, 0.862326e-01_jprb &
15266  &, 0.801862e-01_jprb, 0.744523e-01_jprb, 0.690430e-01_jprb &
15267  &, 0.639281e-01_jprb, 0.591158e-01_jprb, 0.545918e-01_jprb, 0.503388e-01_jprb &
15268  &, 0.463598e-01_jprb, 0.426332e-01_jprb, 0.391345e-01_jprb &
15269  &, 0.358845e-01_jprb, 0.328551e-01_jprb, 0.300401e-01_jprb, 0.274321e-01_jprb &
15270  &, 0.249955e-01_jprb, 0.227718e-01_jprb, 0.206956e-01_jprb &
15271  &, 0.187791e-01_jprb, 0.170349e-01_jprb, 0.154181e-01_jprb, 0.139093e-01_jprb &
15272  &, 0.125771e-01_jprb, 0.113114e-01_jprb, 0.101803e-01_jprb &
15273  &, 0.916117e-02_jprb, 0.819748e-02_jprb, 0.735930e-02_jprb, 0.658793e-02_jprb &
15274  &, 0.588813e-02_jprb, 0.523017e-02_jprb, 0.465240e-02_jprb &
15275  &, 0.415987e-02_jprb, 0.368495e-02_jprb, 0.326622e-02_jprb, 0.286953e-02_jprb &
15276  &, 0.253478e-02_jprb, 0.226556e-02_jprb, 0.198649e-02_jprb &
15277  &, 0.173759e-02_jprb, 0.152068e-02_jprb, 0.133761e-02_jprb, 0.119027e-02_jprb &
15278  &, 0.103775e-02_jprb, 0.879989e-03_jprb, 0.761093e-03_jprb &
15279  &, 0.683056e-03_jprb, 0.602342e-03_jprb, 0.518916e-03_jprb, 0.432743e-03_jprb &
15280  &, 0.391470e-03_jprb, 0.300412e-03_jprb, 0.255631e-03_jprb &
15281  &, 0.209425e-03_jprb, 0.212370e-03_jprb, 0.164003e-03_jprb, 0.114165e-03_jprb &
15282  &, 0.115673e-03_jprb, 0.117193e-03_jprb, 0.643624e-04_jprb &
15283  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15284  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15285  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15286  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15287 xcw( 348, :) = (/ &
15288  & 0.958008e+00_jprb, 0.946684e+00_jprb, 0.935043e+00_jprb, 0.923096e+00_jprb &
15289  &, 0.910850e+00_jprb, 0.898314e+00_jprb, 0.885496e+00_jprb &
15290  &, 0.872406e+00_jprb, 0.859051e+00_jprb, 0.845443e+00_jprb, 0.831592e+00_jprb &
15291  &, 0.817506e+00_jprb, 0.803196e+00_jprb, 0.788676e+00_jprb &
15292  &, 0.773952e+00_jprb, 0.759041e+00_jprb, 0.743951e+00_jprb, 0.728694e+00_jprb &
15293  &, 0.713287e+00_jprb, 0.697737e+00_jprb, 0.682064e+00_jprb &
15294  &, 0.666280e+00_jprb, 0.650394e+00_jprb, 0.634430e+00_jprb, 0.618396e+00_jprb &
15295  &, 0.602315e+00_jprb, 0.586191e+00_jprb, 0.570052e+00_jprb &
15296  &, 0.553909e+00_jprb, 0.537778e+00_jprb, 0.521683e+00_jprb, 0.505630e+00_jprb &
15297  &, 0.489645e+00_jprb, 0.473744e+00_jprb, 0.457942e+00_jprb &
15298  &, 0.442259e+00_jprb, 0.426703e+00_jprb, 0.411308e+00_jprb, 0.396077e+00_jprb &
15299  &, 0.381035e+00_jprb, 0.366198e+00_jprb, 0.351572e+00_jprb &
15300  &, 0.337174e+00_jprb, 0.323034e+00_jprb, 0.309147e+00_jprb, 0.295532e+00_jprb &
15301  &, 0.282206e+00_jprb, 0.269189e+00_jprb, 0.256471e+00_jprb &
15302  &, 0.244069e+00_jprb, 0.232011e+00_jprb, 0.220271e+00_jprb, 0.208889e+00_jprb &
15303  &, 0.197846e+00_jprb, 0.187167e+00_jprb, 0.176830e+00_jprb &
15304  &, 0.166868e+00_jprb, 0.157272e+00_jprb, 0.148025e+00_jprb, 0.139158e+00_jprb &
15305  &, 0.130636e+00_jprb, 0.122501e+00_jprb, 0.114694e+00_jprb &
15306  &, 0.107257e+00_jprb, 0.100174e+00_jprb, 0.934124e-01_jprb, 0.870074e-01_jprb &
15307  &, 0.809185e-01_jprb, 0.751599e-01_jprb, 0.697245e-01_jprb &
15308  &, 0.645818e-01_jprb, 0.597402e-01_jprb, 0.551853e-01_jprb, 0.508997e-01_jprb &
15309  &, 0.468865e-01_jprb, 0.431239e-01_jprb, 0.396113e-01_jprb &
15310  &, 0.363223e-01_jprb, 0.332768e-01_jprb, 0.304196e-01_jprb, 0.277932e-01_jprb &
15311  &, 0.253374e-01_jprb, 0.230667e-01_jprb, 0.209688e-01_jprb &
15312  &, 0.190575e-01_jprb, 0.172619e-01_jprb, 0.156205e-01_jprb, 0.141449e-01_jprb &
15313  &, 0.127570e-01_jprb, 0.114947e-01_jprb, 0.103358e-01_jprb &
15314  &, 0.928783e-02_jprb, 0.835865e-02_jprb, 0.749054e-02_jprb, 0.668810e-02_jprb &
15315  &, 0.599006e-02_jprb, 0.533389e-02_jprb, 0.475791e-02_jprb &
15316  &, 0.423141e-02_jprb, 0.375772e-02_jprb, 0.334023e-02_jprb, 0.294478e-02_jprb &
15317  &, 0.261129e-02_jprb, 0.230445e-02_jprb, 0.202602e-02_jprb &
15318  &, 0.177777e-02_jprb, 0.156151e-02_jprb, 0.137910e-02_jprb, 0.119027e-02_jprb &
15319  &, 0.103775e-02_jprb, 0.923489e-03_jprb, 0.805275e-03_jprb &
15320  &, 0.683056e-03_jprb, 0.602342e-03_jprb, 0.518916e-03_jprb, 0.432743e-03_jprb &
15321  &, 0.391470e-03_jprb, 0.348814e-03_jprb, 0.255631e-03_jprb &
15322  &, 0.259281e-03_jprb, 0.212370e-03_jprb, 0.164003e-03_jprb, 0.166248e-03_jprb &
15323  &, 0.115673e-03_jprb, 0.117193e-03_jprb, 0.643624e-04_jprb &
15324  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15325  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15326  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15327  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15328 xcw( 349, :) = (/ &
15329  & 0.958271e+00_jprb, 0.947010e+00_jprb, 0.935432e+00_jprb, 0.923546e+00_jprb &
15330  &, 0.911360e+00_jprb, 0.898882e+00_jprb, 0.886121e+00_jprb &
15331  &, 0.873087e+00_jprb, 0.859788e+00_jprb, 0.846233e+00_jprb, 0.832433e+00_jprb &
15332  &, 0.818397e+00_jprb, 0.804137e+00_jprb, 0.789662e+00_jprb &
15333  &, 0.774984e+00_jprb, 0.760116e+00_jprb, 0.745067e+00_jprb, 0.729851e+00_jprb &
15334  &, 0.714481e+00_jprb, 0.698971e+00_jprb, 0.683332e+00_jprb &
15335  &, 0.667577e+00_jprb, 0.651724e+00_jprb, 0.635787e+00_jprb, 0.619782e+00_jprb &
15336  &, 0.603722e+00_jprb, 0.587625e+00_jprb, 0.571502e+00_jprb &
15337  &, 0.555379e+00_jprb, 0.539265e+00_jprb, 0.523182e+00_jprb, 0.507141e+00_jprb &
15338  &, 0.491134e+00_jprb, 0.475270e+00_jprb, 0.459475e+00_jprb &
15339  &, 0.443793e+00_jprb, 0.428238e+00_jprb, 0.412843e+00_jprb, 0.397611e+00_jprb &
15340  &, 0.382556e+00_jprb, 0.367705e+00_jprb, 0.353074e+00_jprb &
15341  &, 0.338669e+00_jprb, 0.324510e+00_jprb, 0.310601e+00_jprb, 0.296975e+00_jprb &
15342  &, 0.283636e+00_jprb, 0.270591e+00_jprb, 0.257844e+00_jprb &
15343  &, 0.245423e+00_jprb, 0.233330e+00_jprb, 0.221567e+00_jprb, 0.210159e+00_jprb &
15344  &, 0.199089e+00_jprb, 0.188365e+00_jprb, 0.178011e+00_jprb &
15345  &, 0.168015e+00_jprb, 0.158382e+00_jprb, 0.149096e+00_jprb, 0.140187e+00_jprb &
15346  &, 0.131654e+00_jprb, 0.123456e+00_jprb, 0.115635e+00_jprb &
15347  &, 0.108146e+00_jprb, 0.101028e+00_jprb, 0.942465e-01_jprb, 0.878016e-01_jprb &
15348  &, 0.816706e-01_jprb, 0.758877e-01_jprb, 0.704059e-01_jprb &
15349  &, 0.652355e-01_jprb, 0.603431e-01_jprb, 0.557568e-01_jprb, 0.514383e-01_jprb &
15350  &, 0.473903e-01_jprb, 0.436147e-01_jprb, 0.400643e-01_jprb &
15351  &, 0.367600e-01_jprb, 0.336737e-01_jprb, 0.307991e-01_jprb, 0.281286e-01_jprb &
15352  &, 0.256793e-01_jprb, 0.233885e-01_jprb, 0.212694e-01_jprb &
15353  &, 0.193082e-01_jprb, 0.175172e-01_jprb, 0.158517e-01_jprb, 0.143510e-01_jprb &
15354  &, 0.129670e-01_jprb, 0.116780e-01_jprb, 0.105224e-01_jprb &
15355  &, 0.944616e-02_jprb, 0.848759e-02_jprb, 0.762177e-02_jprb, 0.682166e-02_jprb &
15356  &, 0.609199e-02_jprb, 0.543760e-02_jprb, 0.482825e-02_jprb &
15357  &, 0.430296e-02_jprb, 0.383049e-02_jprb, 0.337723e-02_jprb, 0.302003e-02_jprb &
15358  &, 0.264954e-02_jprb, 0.234334e-02_jprb, 0.206555e-02_jprb &
15359  &, 0.181794e-02_jprb, 0.160234e-02_jprb, 0.142059e-02_jprb, 0.123242e-02_jprb &
15360  &, 0.108057e-02_jprb, 0.923489e-03_jprb, 0.805275e-03_jprb &
15361  &, 0.727926e-03_jprb, 0.602342e-03_jprb, 0.518916e-03_jprb, 0.479714e-03_jprb &
15362  &, 0.391470e-03_jprb, 0.348814e-03_jprb, 0.304757e-03_jprb &
15363  &, 0.259281e-03_jprb, 0.212370e-03_jprb, 0.164003e-03_jprb, 0.166248e-03_jprb &
15364  &, 0.115673e-03_jprb, 0.117193e-03_jprb, 0.643624e-04_jprb &
15365  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.100000e-04_jprb &
15366  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15367  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15368  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15369 xcw( 350, :) = (/ &
15370  & 0.958536e+00_jprb, 0.947337e+00_jprb, 0.935820e+00_jprb, 0.923995e+00_jprb &
15371  &, 0.911869e+00_jprb, 0.899450e+00_jprb, 0.886747e+00_jprb &
15372  &, 0.873767e+00_jprb, 0.860522e+00_jprb, 0.847021e+00_jprb, 0.833273e+00_jprb &
15373  &, 0.819287e+00_jprb, 0.805076e+00_jprb, 0.790648e+00_jprb &
15374  &, 0.776017e+00_jprb, 0.761191e+00_jprb, 0.746184e+00_jprb, 0.731009e+00_jprb &
15375  &, 0.715677e+00_jprb, 0.700202e+00_jprb, 0.684596e+00_jprb &
15376  &, 0.668876e+00_jprb, 0.653057e+00_jprb, 0.637148e+00_jprb, 0.621167e+00_jprb &
15377  &, 0.605134e+00_jprb, 0.589056e+00_jprb, 0.572956e+00_jprb &
15378  &, 0.556849e+00_jprb, 0.540752e+00_jprb, 0.524681e+00_jprb, 0.508653e+00_jprb &
15379  &, 0.492687e+00_jprb, 0.476801e+00_jprb, 0.461008e+00_jprb &
15380  &, 0.445328e+00_jprb, 0.429773e+00_jprb, 0.414378e+00_jprb, 0.399135e+00_jprb &
15381  &, 0.384088e+00_jprb, 0.369223e+00_jprb, 0.354575e+00_jprb &
15382  &, 0.340164e+00_jprb, 0.325985e+00_jprb, 0.312067e+00_jprb, 0.298429e+00_jprb &
15383  &, 0.285066e+00_jprb, 0.271993e+00_jprb, 0.259229e+00_jprb &
15384  &, 0.246776e+00_jprb, 0.234663e+00_jprb, 0.222876e+00_jprb, 0.211429e+00_jprb &
15385  &, 0.200332e+00_jprb, 0.189579e+00_jprb, 0.179192e+00_jprb &
15386  &, 0.169162e+00_jprb, 0.159492e+00_jprb, 0.150183e+00_jprb, 0.141233e+00_jprb &
15387  &, 0.132656e+00_jprb, 0.124428e+00_jprb, 0.116558e+00_jprb &
15388  &, 0.109053e+00_jprb, 0.101881e+00_jprb, 0.950617e-01_jprb, 0.885959e-01_jprb &
15389  &, 0.824425e-01_jprb, 0.765954e-01_jprb, 0.710874e-01_jprb &
15390  &, 0.658893e-01_jprb, 0.609676e-01_jprb, 0.563503e-01_jprb, 0.519992e-01_jprb &
15391  &, 0.479170e-01_jprb, 0.441054e-01_jprb, 0.405411e-01_jprb &
15392  &, 0.371978e-01_jprb, 0.340954e-01_jprb, 0.311786e-01_jprb, 0.284898e-01_jprb &
15393  &, 0.259949e-01_jprb, 0.236834e-01_jprb, 0.215700e-01_jprb &
15394  &, 0.195866e-01_jprb, 0.177726e-01_jprb, 0.160830e-01_jprb, 0.145571e-01_jprb &
15395  &, 0.131470e-01_jprb, 0.118612e-01_jprb, 0.106779e-01_jprb &
15396  &, 0.960448e-02_jprb, 0.861653e-02_jprb, 0.775301e-02_jprb, 0.692184e-02_jprb &
15397  &, 0.619393e-02_jprb, 0.554131e-02_jprb, 0.493376e-02_jprb &
15398  &, 0.437451e-02_jprb, 0.390326e-02_jprb, 0.345124e-02_jprb, 0.305766e-02_jprb &
15399  &, 0.272605e-02_jprb, 0.238223e-02_jprb, 0.210508e-02_jprb &
15400  &, 0.185812e-02_jprb, 0.164317e-02_jprb, 0.142059e-02_jprb, 0.127457e-02_jprb &
15401  &, 0.108057e-02_jprb, 0.966988e-03_jprb, 0.849457e-03_jprb &
15402  &, 0.727926e-03_jprb, 0.647907e-03_jprb, 0.565181e-03_jprb, 0.479714e-03_jprb &
15403  &, 0.391470e-03_jprb, 0.348814e-03_jprb, 0.304757e-03_jprb &
15404  &, 0.259281e-03_jprb, 0.212370e-03_jprb, 0.164003e-03_jprb, 0.166248e-03_jprb &
15405  &, 0.115673e-03_jprb, 0.117193e-03_jprb, 0.643624e-04_jprb &
15406  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.100000e-04_jprb &
15407  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15408  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15409  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15410 
15411 IF (lhook) CALL dr_hook('SU_MCICA:PART50',1,zhook_handle)
15412 END SUBROUTINE part50
15413 
15414 #ifdef VPP5000
15415 !OCL SCALAR
15416 #endif
15417 !option! -Nv -NO
15418 #ifdef RS6K
15419 @process nooptimize
15420 #endif
15421 !pgi$r opt=0
15422 SUBROUTINE part51
15423 
15424 REAL(KIND=JPRB) :: ZHOOK_HANDLE
15425 IF (lhook) CALL dr_hook('SU_MCICA:PART51',0,zhook_handle)
15426 
15427 xcw( 351, :) = (/ &
15428  & 0.958798e+00_jprb, 0.947663e+00_jprb, 0.936208e+00_jprb, 0.924445e+00_jprb &
15429  &, 0.912378e+00_jprb, 0.900017e+00_jprb, 0.887371e+00_jprb &
15430  &, 0.874448e+00_jprb, 0.861258e+00_jprb, 0.847810e+00_jprb, 0.834113e+00_jprb &
15431  &, 0.820178e+00_jprb, 0.806015e+00_jprb, 0.791634e+00_jprb &
15432  &, 0.777047e+00_jprb, 0.762265e+00_jprb, 0.747302e+00_jprb, 0.732166e+00_jprb &
15433  &, 0.716874e+00_jprb, 0.701433e+00_jprb, 0.685864e+00_jprb &
15434  &, 0.670176e+00_jprb, 0.654386e+00_jprb, 0.638508e+00_jprb, 0.622552e+00_jprb &
15435  &, 0.606545e+00_jprb, 0.590490e+00_jprb, 0.574410e+00_jprb &
15436  &, 0.558324e+00_jprb, 0.542242e+00_jprb, 0.526184e+00_jprb, 0.510168e+00_jprb &
15437  &, 0.494211e+00_jprb, 0.478331e+00_jprb, 0.462546e+00_jprb &
15438  &, 0.446863e+00_jprb, 0.431318e+00_jprb, 0.415913e+00_jprb, 0.400679e+00_jprb &
15439  &, 0.385609e+00_jprb, 0.370751e+00_jprb, 0.356088e+00_jprb &
15440  &, 0.341659e+00_jprb, 0.327472e+00_jprb, 0.313533e+00_jprb, 0.299872e+00_jprb &
15441  &, 0.286495e+00_jprb, 0.273396e+00_jprb, 0.260614e+00_jprb &
15442  &, 0.248143e+00_jprb, 0.235995e+00_jprb, 0.224186e+00_jprb, 0.212699e+00_jprb &
15443  &, 0.201574e+00_jprb, 0.190792e+00_jprb, 0.180373e+00_jprb &
15444  &, 0.170309e+00_jprb, 0.160602e+00_jprb, 0.151270e+00_jprb, 0.142279e+00_jprb &
15445  &, 0.133674e+00_jprb, 0.125400e+00_jprb, 0.117499e+00_jprb &
15446  &, 0.109960e+00_jprb, 0.102753e+00_jprb, 0.958958e-01_jprb, 0.893901e-01_jprb &
15447  &, 0.831946e-01_jprb, 0.773232e-01_jprb, 0.717895e-01_jprb &
15448  &, 0.665430e-01_jprb, 0.615920e-01_jprb, 0.569439e-01_jprb, 0.525602e-01_jprb &
15449  &, 0.484437e-01_jprb, 0.445961e-01_jprb, 0.409941e-01_jprb &
15450  &, 0.376356e-01_jprb, 0.344923e-01_jprb, 0.315834e-01_jprb, 0.288509e-01_jprb &
15451  &, 0.263368e-01_jprb, 0.240051e-01_jprb, 0.218433e-01_jprb &
15452  &, 0.198651e-01_jprb, 0.180280e-01_jprb, 0.163432e-01_jprb, 0.147927e-01_jprb &
15453  &, 0.133569e-01_jprb, 0.120445e-01_jprb, 0.108645e-01_jprb &
15454  &, 0.976281e-02_jprb, 0.877770e-02_jprb, 0.788425e-02_jprb, 0.705540e-02_jprb &
15455  &, 0.629586e-02_jprb, 0.564502e-02_jprb, 0.500410e-02_jprb &
15456  &, 0.448184e-02_jprb, 0.397604e-02_jprb, 0.352524e-02_jprb, 0.313291e-02_jprb &
15457  &, 0.276431e-02_jprb, 0.246001e-02_jprb, 0.214461e-02_jprb &
15458  &, 0.189830e-02_jprb, 0.168400e-02_jprb, 0.146207e-02_jprb, 0.127457e-02_jprb &
15459  &, 0.112340e-02_jprb, 0.966988e-03_jprb, 0.849457e-03_jprb &
15460  &, 0.727926e-03_jprb, 0.647907e-03_jprb, 0.565181e-03_jprb, 0.479714e-03_jprb &
15461  &, 0.391470e-03_jprb, 0.348814e-03_jprb, 0.304757e-03_jprb &
15462  &, 0.259281e-03_jprb, 0.212370e-03_jprb, 0.164003e-03_jprb, 0.166248e-03_jprb &
15463  &, 0.115673e-03_jprb, 0.117193e-03_jprb, 0.643624e-04_jprb &
15464  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.100000e-04_jprb &
15465  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15466  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15467  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15468 xcw( 352, :) = (/ &
15469  & 0.959060e+00_jprb, 0.947989e+00_jprb, 0.936595e+00_jprb, 0.924894e+00_jprb &
15470  &, 0.912887e+00_jprb, 0.900584e+00_jprb, 0.887996e+00_jprb &
15471  &, 0.875128e+00_jprb, 0.861993e+00_jprb, 0.848597e+00_jprb, 0.834953e+00_jprb &
15472  &, 0.821067e+00_jprb, 0.806952e+00_jprb, 0.792619e+00_jprb &
15473  &, 0.778078e+00_jprb, 0.763340e+00_jprb, 0.748418e+00_jprb, 0.733323e+00_jprb &
15474  &, 0.718069e+00_jprb, 0.702667e+00_jprb, 0.687132e+00_jprb &
15475  &, 0.671476e+00_jprb, 0.655716e+00_jprb, 0.639865e+00_jprb, 0.623941e+00_jprb &
15476  &, 0.607956e+00_jprb, 0.591924e+00_jprb, 0.575864e+00_jprb &
15477  &, 0.559798e+00_jprb, 0.543733e+00_jprb, 0.527687e+00_jprb, 0.511684e+00_jprb &
15478  &, 0.495738e+00_jprb, 0.479862e+00_jprb, 0.464083e+00_jprb &
15479  &, 0.448407e+00_jprb, 0.432863e+00_jprb, 0.417458e+00_jprb, 0.402213e+00_jprb &
15480  &, 0.387141e+00_jprb, 0.372268e+00_jprb, 0.357600e+00_jprb &
15481  &, 0.343166e+00_jprb, 0.328959e+00_jprb, 0.315011e+00_jprb, 0.301327e+00_jprb &
15482  &, 0.287925e+00_jprb, 0.274810e+00_jprb, 0.262000e+00_jprb &
15483  &, 0.249509e+00_jprb, 0.237341e+00_jprb, 0.225495e+00_jprb, 0.213984e+00_jprb &
15484  &, 0.202832e+00_jprb, 0.192020e+00_jprb, 0.181569e+00_jprb &
15485  &, 0.171471e+00_jprb, 0.161728e+00_jprb, 0.152357e+00_jprb, 0.143341e+00_jprb &
15486  &, 0.134693e+00_jprb, 0.126390e+00_jprb, 0.118457e+00_jprb &
15487  &, 0.110868e+00_jprb, 0.103624e+00_jprb, 0.967488e-01_jprb, 0.901843e-01_jprb &
15488  &, 0.839664e-01_jprb, 0.780713e-01_jprb, 0.724709e-01_jprb &
15489  &, 0.671967e-01_jprb, 0.622164e-01_jprb, 0.575374e-01_jprb, 0.531211e-01_jprb &
15490  &, 0.489933e-01_jprb, 0.451102e-01_jprb, 0.414710e-01_jprb &
15491  &, 0.380734e-01_jprb, 0.349141e-01_jprb, 0.319629e-01_jprb, 0.292379e-01_jprb &
15492  &, 0.266787e-01_jprb, 0.243268e-01_jprb, 0.221439e-01_jprb &
15493  &, 0.201436e-01_jprb, 0.182834e-01_jprb, 0.165744e-01_jprb, 0.149989e-01_jprb &
15494  &, 0.135669e-01_jprb, 0.122278e-01_jprb, 0.110200e-01_jprb &
15495  &, 0.992113e-02_jprb, 0.890663e-02_jprb, 0.801549e-02_jprb, 0.715557e-02_jprb &
15496  &, 0.643177e-02_jprb, 0.571416e-02_jprb, 0.510961e-02_jprb &
15497  &, 0.455339e-02_jprb, 0.404881e-02_jprb, 0.359925e-02_jprb, 0.317054e-02_jprb &
15498  &, 0.284081e-02_jprb, 0.249890e-02_jprb, 0.218414e-02_jprb &
15499  &, 0.193847e-02_jprb, 0.172483e-02_jprb, 0.150356e-02_jprb, 0.131672e-02_jprb &
15500  &, 0.116622e-02_jprb, 0.101049e-02_jprb, 0.893639e-03_jprb &
15501  &, 0.772796e-03_jprb, 0.647907e-03_jprb, 0.565181e-03_jprb, 0.479714e-03_jprb &
15502  &, 0.439153e-03_jprb, 0.348814e-03_jprb, 0.304757e-03_jprb &
15503  &, 0.259281e-03_jprb, 0.212370e-03_jprb, 0.215338e-03_jprb, 0.166248e-03_jprb &
15504  &, 0.115673e-03_jprb, 0.117193e-03_jprb, 0.118725e-03_jprb &
15505  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.100000e-04_jprb &
15506  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15507  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15508  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15509 xcw( 353, :) = (/ &
15510  & 0.959323e+00_jprb, 0.948314e+00_jprb, 0.936983e+00_jprb, 0.925342e+00_jprb &
15511  &, 0.913394e+00_jprb, 0.901151e+00_jprb, 0.888620e+00_jprb &
15512  &, 0.875809e+00_jprb, 0.862727e+00_jprb, 0.849385e+00_jprb, 0.835792e+00_jprb &
15513  &, 0.821956e+00_jprb, 0.807891e+00_jprb, 0.793605e+00_jprb &
15514  &, 0.779110e+00_jprb, 0.764416e+00_jprb, 0.749536e+00_jprb, 0.734480e+00_jprb &
15515  &, 0.719265e+00_jprb, 0.703898e+00_jprb, 0.688400e+00_jprb &
15516  &, 0.672779e+00_jprb, 0.657049e+00_jprb, 0.641229e+00_jprb, 0.625327e+00_jprb &
15517  &, 0.609367e+00_jprb, 0.593359e+00_jprb, 0.577322e+00_jprb &
15518  &, 0.561272e+00_jprb, 0.545223e+00_jprb, 0.529194e+00_jprb, 0.513203e+00_jprb &
15519  &, 0.497266e+00_jprb, 0.481397e+00_jprb, 0.465621e+00_jprb &
15520  &, 0.449951e+00_jprb, 0.434408e+00_jprb, 0.419003e+00_jprb, 0.403747e+00_jprb &
15521  &, 0.388683e+00_jprb, 0.373796e+00_jprb, 0.359124e+00_jprb &
15522  &, 0.344672e+00_jprb, 0.330446e+00_jprb, 0.316489e+00_jprb, 0.302782e+00_jprb &
15523  &, 0.289367e+00_jprb, 0.276225e+00_jprb, 0.263398e+00_jprb &
15524  &, 0.250876e+00_jprb, 0.238673e+00_jprb, 0.226805e+00_jprb, 0.215282e+00_jprb &
15525  &, 0.204089e+00_jprb, 0.193247e+00_jprb, 0.182765e+00_jprb &
15526  &, 0.172633e+00_jprb, 0.162854e+00_jprb, 0.153444e+00_jprb, 0.144403e+00_jprb &
15527  &, 0.135711e+00_jprb, 0.127379e+00_jprb, 0.119398e+00_jprb &
15528  &, 0.111775e+00_jprb, 0.104515e+00_jprb, 0.975830e-01_jprb, 0.909979e-01_jprb &
15529  &, 0.847383e-01_jprb, 0.787991e-01_jprb, 0.731730e-01_jprb &
15530  &, 0.678716e-01_jprb, 0.628624e-01_jprb, 0.581309e-01_jprb, 0.537045e-01_jprb &
15531  &, 0.495200e-01_jprb, 0.456243e-01_jprb, 0.419478e-01_jprb &
15532  &, 0.385355e-01_jprb, 0.353358e-01_jprb, 0.323677e-01_jprb, 0.295990e-01_jprb &
15533  &, 0.270470e-01_jprb, 0.246485e-01_jprb, 0.224444e-01_jprb &
15534  &, 0.204221e-01_jprb, 0.185387e-01_jprb, 0.168057e-01_jprb, 0.152344e-01_jprb &
15535  &, 0.137768e-01_jprb, 0.124416e-01_jprb, 0.112066e-01_jprb &
15536  &, 0.100795e-01_jprb, 0.906780e-02_jprb, 0.814672e-02_jprb, 0.728913e-02_jprb &
15537  &, 0.653370e-02_jprb, 0.581788e-02_jprb, 0.521512e-02_jprb &
15538  &, 0.462494e-02_jprb, 0.412158e-02_jprb, 0.367325e-02_jprb, 0.324579e-02_jprb &
15539  &, 0.287907e-02_jprb, 0.253779e-02_jprb, 0.226320e-02_jprb &
15540  &, 0.197865e-02_jprb, 0.172483e-02_jprb, 0.154505e-02_jprb, 0.135888e-02_jprb &
15541  &, 0.116622e-02_jprb, 0.101049e-02_jprb, 0.893639e-03_jprb &
15542  &, 0.772796e-03_jprb, 0.693472e-03_jprb, 0.565181e-03_jprb, 0.526686e-03_jprb &
15543  &, 0.439153e-03_jprb, 0.397216e-03_jprb, 0.304757e-03_jprb &
15544  &, 0.259281e-03_jprb, 0.212370e-03_jprb, 0.215338e-03_jprb, 0.166248e-03_jprb &
15545  &, 0.115673e-03_jprb, 0.117193e-03_jprb, 0.118725e-03_jprb &
15546  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.100000e-04_jprb &
15547  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15548  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15549  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15550 xcw( 354, :) = (/ &
15551  & 0.959586e+00_jprb, 0.948639e+00_jprb, 0.937370e+00_jprb, 0.925790e+00_jprb &
15552  &, 0.913902e+00_jprb, 0.901717e+00_jprb, 0.889243e+00_jprb &
15553  &, 0.876488e+00_jprb, 0.863462e+00_jprb, 0.850173e+00_jprb, 0.836631e+00_jprb &
15554  &, 0.822846e+00_jprb, 0.808829e+00_jprb, 0.794590e+00_jprb &
15555  &, 0.780141e+00_jprb, 0.765490e+00_jprb, 0.750652e+00_jprb, 0.735639e+00_jprb &
15556  &, 0.720461e+00_jprb, 0.705132e+00_jprb, 0.689668e+00_jprb &
15557  &, 0.674078e+00_jprb, 0.658382e+00_jprb, 0.642590e+00_jprb, 0.626716e+00_jprb &
15558  &, 0.610779e+00_jprb, 0.594796e+00_jprb, 0.578780e+00_jprb &
15559  &, 0.562746e+00_jprb, 0.546714e+00_jprb, 0.530701e+00_jprb, 0.514719e+00_jprb &
15560  &, 0.498794e+00_jprb, 0.482937e+00_jprb, 0.467163e+00_jprb &
15561  &, 0.451495e+00_jprb, 0.435953e+00_jprb, 0.420548e+00_jprb, 0.405290e+00_jprb &
15562  &, 0.390214e+00_jprb, 0.375324e+00_jprb, 0.360636e+00_jprb &
15563  &, 0.346178e+00_jprb, 0.331945e+00_jprb, 0.317966e+00_jprb, 0.304248e+00_jprb &
15564  &, 0.290809e+00_jprb, 0.277652e+00_jprb, 0.264796e+00_jprb &
15565  &, 0.252255e+00_jprb, 0.240033e+00_jprb, 0.228128e+00_jprb, 0.216567e+00_jprb &
15566  &, 0.205346e+00_jprb, 0.194475e+00_jprb, 0.183962e+00_jprb &
15567  &, 0.173796e+00_jprb, 0.163996e+00_jprb, 0.154547e+00_jprb, 0.145465e+00_jprb &
15568  &, 0.136730e+00_jprb, 0.128369e+00_jprb, 0.120357e+00_jprb &
15569  &, 0.112701e+00_jprb, 0.105405e+00_jprb, 0.984360e-01_jprb, 0.918115e-01_jprb &
15570  &, 0.855102e-01_jprb, 0.795472e-01_jprb, 0.738958e-01_jprb &
15571  &, 0.685464e-01_jprb, 0.634868e-01_jprb, 0.587464e-01_jprb, 0.542655e-01_jprb &
15572  &, 0.500696e-01_jprb, 0.461150e-01_jprb, 0.424247e-01_jprb &
15573  &, 0.389976e-01_jprb, 0.357575e-01_jprb, 0.327724e-01_jprb, 0.299860e-01_jprb &
15574  &, 0.273889e-01_jprb, 0.249703e-01_jprb, 0.227450e-01_jprb &
15575  &, 0.207005e-01_jprb, 0.187941e-01_jprb, 0.170659e-01_jprb, 0.154406e-01_jprb &
15576  &, 0.139868e-01_jprb, 0.126248e-01_jprb, 0.113932e-01_jprb &
15577  &, 0.102378e-01_jprb, 0.922898e-02_jprb, 0.827796e-02_jprb, 0.742269e-02_jprb &
15578  &, 0.663564e-02_jprb, 0.595616e-02_jprb, 0.528546e-02_jprb &
15579  &, 0.473226e-02_jprb, 0.419435e-02_jprb, 0.374726e-02_jprb, 0.332104e-02_jprb &
15580  &, 0.295558e-02_jprb, 0.261557e-02_jprb, 0.230273e-02_jprb &
15581  &, 0.201882e-02_jprb, 0.176565e-02_jprb, 0.158654e-02_jprb, 0.135888e-02_jprb &
15582  &, 0.120904e-02_jprb, 0.105399e-02_jprb, 0.937821e-03_jprb &
15583  &, 0.817667e-03_jprb, 0.693472e-03_jprb, 0.611447e-03_jprb, 0.526686e-03_jprb &
15584  &, 0.439153e-03_jprb, 0.397216e-03_jprb, 0.353883e-03_jprb &
15585  &, 0.259281e-03_jprb, 0.262962e-03_jprb, 0.215338e-03_jprb, 0.166248e-03_jprb &
15586  &, 0.168510e-03_jprb, 0.117193e-03_jprb, 0.118725e-03_jprb &
15587  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.100000e-04_jprb &
15588  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15589  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15590  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15591 xcw( 355, :) = (/ &
15592  & 0.959845e+00_jprb, 0.948965e+00_jprb, 0.937757e+00_jprb, 0.926238e+00_jprb &
15593  &, 0.914410e+00_jprb, 0.902284e+00_jprb, 0.889866e+00_jprb &
15594  &, 0.877167e+00_jprb, 0.864195e+00_jprb, 0.850960e+00_jprb, 0.837470e+00_jprb &
15595  &, 0.823735e+00_jprb, 0.809768e+00_jprb, 0.795575e+00_jprb &
15596  &, 0.781171e+00_jprb, 0.766565e+00_jprb, 0.751769e+00_jprb, 0.736796e+00_jprb &
15597  &, 0.721658e+00_jprb, 0.706366e+00_jprb, 0.690936e+00_jprb &
15598  &, 0.675381e+00_jprb, 0.659714e+00_jprb, 0.643950e+00_jprb, 0.628105e+00_jprb &
15599  &, 0.612194e+00_jprb, 0.596234e+00_jprb, 0.580238e+00_jprb &
15600  &, 0.564224e+00_jprb, 0.548208e+00_jprb, 0.532209e+00_jprb, 0.516243e+00_jprb &
15601  &, 0.500326e+00_jprb, 0.484472e+00_jprb, 0.468710e+00_jprb &
15602  &, 0.453039e+00_jprb, 0.437498e+00_jprb, 0.422093e+00_jprb, 0.406834e+00_jprb &
15603  &, 0.391756e+00_jprb, 0.376863e+00_jprb, 0.362159e+00_jprb &
15604  &, 0.347684e+00_jprb, 0.333443e+00_jprb, 0.319444e+00_jprb, 0.305715e+00_jprb &
15605  &, 0.292250e+00_jprb, 0.279080e+00_jprb, 0.266194e+00_jprb &
15606  &, 0.253635e+00_jprb, 0.241379e+00_jprb, 0.229451e+00_jprb, 0.217865e+00_jprb &
15607  &, 0.206618e+00_jprb, 0.195718e+00_jprb, 0.185158e+00_jprb &
15608  &, 0.174958e+00_jprb, 0.165121e+00_jprb, 0.155650e+00_jprb, 0.146527e+00_jprb &
15609  &, 0.137765e+00_jprb, 0.129376e+00_jprb, 0.121315e+00_jprb &
15610  &, 0.113626e+00_jprb, 0.106277e+00_jprb, 0.992891e-01_jprb, 0.926251e-01_jprb &
15611  &, 0.863019e-01_jprb, 0.802952e-01_jprb, 0.745979e-01_jprb &
15612  &, 0.692212e-01_jprb, 0.641328e-01_jprb, 0.593619e-01_jprb, 0.548489e-01_jprb &
15613  &, 0.506192e-01_jprb, 0.466525e-01_jprb, 0.429253e-01_jprb &
15614  &, 0.394354e-01_jprb, 0.362041e-01_jprb, 0.331772e-01_jprb, 0.303471e-01_jprb &
15615  &, 0.277308e-01_jprb, 0.253188e-01_jprb, 0.230729e-01_jprb &
15616  &, 0.209790e-01_jprb, 0.190779e-01_jprb, 0.172971e-01_jprb, 0.156762e-01_jprb &
15617  &, 0.141967e-01_jprb, 0.128081e-01_jprb, 0.115487e-01_jprb &
15618  &, 0.104278e-01_jprb, 0.935791e-02_jprb, 0.840920e-02_jprb, 0.755626e-02_jprb &
15619  &, 0.677155e-02_jprb, 0.605987e-02_jprb, 0.539097e-02_jprb &
15620  &, 0.480381e-02_jprb, 0.430351e-02_jprb, 0.382126e-02_jprb, 0.339629e-02_jprb &
15621  &, 0.299383e-02_jprb, 0.265445e-02_jprb, 0.234226e-02_jprb &
15622  &, 0.205900e-02_jprb, 0.180648e-02_jprb, 0.158654e-02_jprb, 0.140103e-02_jprb &
15623  &, 0.125187e-02_jprb, 0.109749e-02_jprb, 0.937821e-03_jprb &
15624  &, 0.817667e-03_jprb, 0.693472e-03_jprb, 0.611447e-03_jprb, 0.526686e-03_jprb &
15625  &, 0.439153e-03_jprb, 0.397216e-03_jprb, 0.353883e-03_jprb &
15626  &, 0.309138e-03_jprb, 0.262962e-03_jprb, 0.215338e-03_jprb, 0.166248e-03_jprb &
15627  &, 0.168510e-03_jprb, 0.117193e-03_jprb, 0.118725e-03_jprb &
15628  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
15629  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15630  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15631  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15632 xcw( 356, :) = (/ &
15633  & 0.960109e+00_jprb, 0.949290e+00_jprb, 0.938145e+00_jprb, 0.926686e+00_jprb &
15634  &, 0.914917e+00_jprb, 0.902849e+00_jprb, 0.890489e+00_jprb &
15635  &, 0.877846e+00_jprb, 0.864928e+00_jprb, 0.851746e+00_jprb, 0.838309e+00_jprb &
15636  &, 0.824624e+00_jprb, 0.810705e+00_jprb, 0.796560e+00_jprb &
15637  &, 0.782202e+00_jprb, 0.767640e+00_jprb, 0.752886e+00_jprb, 0.737953e+00_jprb &
15638  &, 0.722853e+00_jprb, 0.707600e+00_jprb, 0.692203e+00_jprb &
15639  &, 0.676681e+00_jprb, 0.661047e+00_jprb, 0.645314e+00_jprb, 0.629494e+00_jprb &
15640  &, 0.613609e+00_jprb, 0.597672e+00_jprb, 0.581695e+00_jprb &
15641  &, 0.565702e+00_jprb, 0.549703e+00_jprb, 0.533720e+00_jprb, 0.517762e+00_jprb &
15642  &, 0.501858e+00_jprb, 0.486016e+00_jprb, 0.470257e+00_jprb &
15643  &, 0.454592e+00_jprb, 0.439053e+00_jprb, 0.423648e+00_jprb, 0.408388e+00_jprb &
15644  &, 0.393298e+00_jprb, 0.378391e+00_jprb, 0.363693e+00_jprb &
15645  &, 0.349201e+00_jprb, 0.334942e+00_jprb, 0.320933e+00_jprb, 0.307182e+00_jprb &
15646  &, 0.293705e+00_jprb, 0.280507e+00_jprb, 0.267605e+00_jprb &
15647  &, 0.255015e+00_jprb, 0.242738e+00_jprb, 0.230788e+00_jprb, 0.219164e+00_jprb &
15648  &, 0.207890e+00_jprb, 0.196961e+00_jprb, 0.186369e+00_jprb &
15649  &, 0.176136e+00_jprb, 0.166263e+00_jprb, 0.156754e+00_jprb, 0.147606e+00_jprb &
15650  &, 0.138801e+00_jprb, 0.130365e+00_jprb, 0.122291e+00_jprb &
15651  &, 0.114552e+00_jprb, 0.107186e+00_jprb, 0.100142e+00_jprb, 0.934387e-01_jprb &
15652  &, 0.870737e-01_jprb, 0.810433e-01_jprb, 0.753206e-01_jprb &
15653  &, 0.698960e-01_jprb, 0.648003e-01_jprb, 0.599774e-01_jprb, 0.554323e-01_jprb &
15654  &, 0.511688e-01_jprb, 0.471666e-01_jprb, 0.434260e-01_jprb &
15655  &, 0.398975e-01_jprb, 0.366258e-01_jprb, 0.335820e-01_jprb, 0.307341e-01_jprb &
15656  &, 0.280990e-01_jprb, 0.256405e-01_jprb, 0.233735e-01_jprb &
15657  &, 0.212853e-01_jprb, 0.193332e-01_jprb, 0.175573e-01_jprb, 0.159117e-01_jprb &
15658  &, 0.144067e-01_jprb, 0.130219e-01_jprb, 0.117353e-01_jprb &
15659  &, 0.105861e-01_jprb, 0.951908e-02_jprb, 0.854043e-02_jprb, 0.768982e-02_jprb &
15660  &, 0.687348e-02_jprb, 0.616358e-02_jprb, 0.549647e-02_jprb &
15661  &, 0.491113e-02_jprb, 0.437628e-02_jprb, 0.389527e-02_jprb, 0.343391e-02_jprb &
15662  &, 0.307034e-02_jprb, 0.269334e-02_jprb, 0.238179e-02_jprb &
15663  &, 0.209918e-02_jprb, 0.184731e-02_jprb, 0.162802e-02_jprb, 0.144318e-02_jprb &
15664  &, 0.125187e-02_jprb, 0.109749e-02_jprb, 0.982002e-03_jprb &
15665  &, 0.817667e-03_jprb, 0.739036e-03_jprb, 0.611447e-03_jprb, 0.526686e-03_jprb &
15666  &, 0.486837e-03_jprb, 0.397216e-03_jprb, 0.353883e-03_jprb &
15667  &, 0.309138e-03_jprb, 0.262962e-03_jprb, 0.215338e-03_jprb, 0.166248e-03_jprb &
15668  &, 0.168510e-03_jprb, 0.117193e-03_jprb, 0.118725e-03_jprb &
15669  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
15670  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15671  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15672  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15673 xcw( 357, :) = (/ &
15674  & 0.960371e+00_jprb, 0.949613e+00_jprb, 0.938531e+00_jprb, 0.927133e+00_jprb &
15675  &, 0.915425e+00_jprb, 0.903414e+00_jprb, 0.891112e+00_jprb &
15676  &, 0.878525e+00_jprb, 0.865661e+00_jprb, 0.852533e+00_jprb, 0.839147e+00_jprb &
15677  &, 0.825513e+00_jprb, 0.811643e+00_jprb, 0.797545e+00_jprb &
15678  &, 0.783233e+00_jprb, 0.768714e+00_jprb, 0.754003e+00_jprb, 0.739111e+00_jprb &
15679  &, 0.724050e+00_jprb, 0.708831e+00_jprb, 0.693471e+00_jprb &
15680  &, 0.677984e+00_jprb, 0.662380e+00_jprb, 0.646674e+00_jprb, 0.630886e+00_jprb &
15681  &, 0.615027e+00_jprb, 0.599110e+00_jprb, 0.583157e+00_jprb &
15682  &, 0.567180e+00_jprb, 0.551202e+00_jprb, 0.535231e+00_jprb, 0.519286e+00_jprb &
15683  &, 0.503389e+00_jprb, 0.487556e+00_jprb, 0.471803e+00_jprb &
15684  &, 0.456146e+00_jprb, 0.440607e+00_jprb, 0.425193e+00_jprb, 0.409932e+00_jprb &
15685  &, 0.394840e+00_jprb, 0.379929e+00_jprb, 0.365217e+00_jprb &
15686  &, 0.350718e+00_jprb, 0.336452e+00_jprb, 0.322422e+00_jprb, 0.308660e+00_jprb &
15687  &, 0.295159e+00_jprb, 0.281934e+00_jprb, 0.269016e+00_jprb &
15688  &, 0.256394e+00_jprb, 0.244097e+00_jprb, 0.232125e+00_jprb, 0.220476e+00_jprb &
15689  &, 0.209161e+00_jprb, 0.198203e+00_jprb, 0.187581e+00_jprb &
15690  &, 0.177329e+00_jprb, 0.167421e+00_jprb, 0.157873e+00_jprb, 0.148685e+00_jprb &
15691  &, 0.139853e+00_jprb, 0.131372e+00_jprb, 0.123268e+00_jprb &
15692  &, 0.115495e+00_jprb, 0.108076e+00_jprb, 0.101014e+00_jprb, 0.942717e-01_jprb &
15693  &, 0.878654e-01_jprb, 0.817913e-01_jprb, 0.760434e-01_jprb &
15694  &, 0.705919e-01_jprb, 0.654463e-01_jprb, 0.605929e-01_jprb, 0.560156e-01_jprb &
15695  &, 0.517184e-01_jprb, 0.476807e-01_jprb, 0.439028e-01_jprb &
15696  &, 0.403840e-01_jprb, 0.370723e-01_jprb, 0.339868e-01_jprb, 0.311210e-01_jprb &
15697  &, 0.284672e-01_jprb, 0.259890e-01_jprb, 0.237014e-01_jprb &
15698  &, 0.215638e-01_jprb, 0.196170e-01_jprb, 0.178175e-01_jprb, 0.161473e-01_jprb &
15699  &, 0.146166e-01_jprb, 0.132052e-01_jprb, 0.119219e-01_jprb &
15700  &, 0.107444e-01_jprb, 0.968025e-02_jprb, 0.870448e-02_jprb, 0.782338e-02_jprb &
15701  &, 0.700939e-02_jprb, 0.626729e-02_jprb, 0.560198e-02_jprb &
15702  &, 0.498268e-02_jprb, 0.444905e-02_jprb, 0.396927e-02_jprb, 0.350916e-02_jprb &
15703  &, 0.310859e-02_jprb, 0.277112e-02_jprb, 0.246085e-02_jprb &
15704  &, 0.213935e-02_jprb, 0.188814e-02_jprb, 0.166951e-02_jprb, 0.148533e-02_jprb &
15705  &, 0.129469e-02_jprb, 0.114099e-02_jprb, 0.982002e-03_jprb &
15706  &, 0.862537e-03_jprb, 0.739036e-03_jprb, 0.657712e-03_jprb, 0.573657e-03_jprb &
15707  &, 0.486837e-03_jprb, 0.397216e-03_jprb, 0.353883e-03_jprb &
15708  &, 0.309138e-03_jprb, 0.262962e-03_jprb, 0.215338e-03_jprb, 0.166248e-03_jprb &
15709  &, 0.168510e-03_jprb, 0.117193e-03_jprb, 0.118725e-03_jprb &
15710  &, 0.651343e-04_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
15711  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15712  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15713  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15714 
15715 IF (lhook) CALL dr_hook('SU_MCICA:PART51',1,zhook_handle)
15716 END SUBROUTINE part51
15717 
15718 #ifdef VPP5000
15719 !OCL SCALAR
15720 #endif
15721 !option! -Nv -NO
15722 #ifdef RS6K
15723 @process nooptimize
15724 #endif
15725 !pgi$r opt=0
15726 SUBROUTINE part52
15727 
15728 REAL(KIND=JPRB) :: ZHOOK_HANDLE
15729 IF (lhook) CALL dr_hook('SU_MCICA:PART52',0,zhook_handle)
15730 
15731 xcw( 358, :) = (/ &
15732  & 0.960632e+00_jprb, 0.949939e+00_jprb, 0.938917e+00_jprb, 0.927580e+00_jprb &
15733  &, 0.915931e+00_jprb, 0.903980e+00_jprb, 0.891734e+00_jprb &
15734  &, 0.879203e+00_jprb, 0.866395e+00_jprb, 0.853318e+00_jprb, 0.839984e+00_jprb &
15735  &, 0.826401e+00_jprb, 0.812580e+00_jprb, 0.798529e+00_jprb &
15736  &, 0.784261e+00_jprb, 0.769788e+00_jprb, 0.755121e+00_jprb, 0.740269e+00_jprb &
15737  &, 0.725248e+00_jprb, 0.710065e+00_jprb, 0.694742e+00_jprb &
15738  &, 0.679287e+00_jprb, 0.663713e+00_jprb, 0.648038e+00_jprb, 0.632275e+00_jprb &
15739  &, 0.616442e+00_jprb, 0.600552e+00_jprb, 0.584619e+00_jprb &
15740  &, 0.568662e+00_jprb, 0.552696e+00_jprb, 0.536742e+00_jprb, 0.520814e+00_jprb &
15741  &, 0.504926e+00_jprb, 0.489100e+00_jprb, 0.473355e+00_jprb &
15742  &, 0.457699e+00_jprb, 0.442162e+00_jprb, 0.426757e+00_jprb, 0.411486e+00_jprb &
15743  &, 0.396392e+00_jprb, 0.381478e+00_jprb, 0.366751e+00_jprb &
15744  &, 0.352247e+00_jprb, 0.337961e+00_jprb, 0.323923e+00_jprb, 0.310127e+00_jprb &
15745  &, 0.296613e+00_jprb, 0.283374e+00_jprb, 0.270427e+00_jprb &
15746  &, 0.257787e+00_jprb, 0.245470e+00_jprb, 0.233462e+00_jprb, 0.221789e+00_jprb &
15747  &, 0.210447e+00_jprb, 0.199446e+00_jprb, 0.188807e+00_jprb &
15748  &, 0.178507e+00_jprb, 0.168578e+00_jprb, 0.158993e+00_jprb, 0.149764e+00_jprb &
15749  &, 0.140906e+00_jprb, 0.132396e+00_jprb, 0.124244e+00_jprb &
15750  &, 0.116439e+00_jprb, 0.108985e+00_jprb, 0.101867e+00_jprb, 0.951047e-01_jprb &
15751  &, 0.886769e-01_jprb, 0.825596e-01_jprb, 0.767661e-01_jprb &
15752  &, 0.712878e-01_jprb, 0.660922e-01_jprb, 0.612084e-01_jprb, 0.566215e-01_jprb &
15753  &, 0.522909e-01_jprb, 0.482182e-01_jprb, 0.444035e-01_jprb &
15754  &, 0.408461e-01_jprb, 0.375189e-01_jprb, 0.344169e-01_jprb, 0.315080e-01_jprb &
15755  &, 0.288354e-01_jprb, 0.263376e-01_jprb, 0.240020e-01_jprb &
15756  &, 0.218701e-01_jprb, 0.199007e-01_jprb, 0.180487e-01_jprb, 0.163829e-01_jprb &
15757  &, 0.148266e-01_jprb, 0.134190e-01_jprb, 0.121086e-01_jprb &
15758  &, 0.109344e-01_jprb, 0.984143e-02_jprb, 0.883572e-02_jprb, 0.795694e-02_jprb &
15759  &, 0.711132e-02_jprb, 0.637101e-02_jprb, 0.570749e-02_jprb &
15760  &, 0.509001e-02_jprb, 0.452182e-02_jprb, 0.404328e-02_jprb, 0.358441e-02_jprb &
15761  &, 0.318510e-02_jprb, 0.281001e-02_jprb, 0.250038e-02_jprb &
15762  &, 0.221971e-02_jprb, 0.192897e-02_jprb, 0.171100e-02_jprb, 0.148533e-02_jprb &
15763  &, 0.133751e-02_jprb, 0.114099e-02_jprb, 0.102618e-02_jprb &
15764  &, 0.862537e-03_jprb, 0.784601e-03_jprb, 0.657712e-03_jprb, 0.573657e-03_jprb &
15765  &, 0.486837e-03_jprb, 0.445618e-03_jprb, 0.353883e-03_jprb &
15766  &, 0.309138e-03_jprb, 0.262962e-03_jprb, 0.215338e-03_jprb, 0.218330e-03_jprb &
15767  &, 0.168510e-03_jprb, 0.117193e-03_jprb, 0.118725e-03_jprb &
15768  &, 0.120269e-03_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
15769  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15770  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15771  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15772 xcw( 359, :) = (/ &
15773  & 0.960892e+00_jprb, 0.950262e+00_jprb, 0.939303e+00_jprb, 0.928027e+00_jprb &
15774  &, 0.916437e+00_jprb, 0.904545e+00_jprb, 0.892356e+00_jprb &
15775  &, 0.879880e+00_jprb, 0.867127e+00_jprb, 0.854105e+00_jprb, 0.840823e+00_jprb &
15776  &, 0.827289e+00_jprb, 0.813517e+00_jprb, 0.799514e+00_jprb &
15777  &, 0.785293e+00_jprb, 0.770863e+00_jprb, 0.756237e+00_jprb, 0.741427e+00_jprb &
15778  &, 0.726443e+00_jprb, 0.711299e+00_jprb, 0.696010e+00_jprb &
15779  &, 0.680590e+00_jprb, 0.665049e+00_jprb, 0.649405e+00_jprb, 0.633668e+00_jprb &
15780  &, 0.617861e+00_jprb, 0.601994e+00_jprb, 0.586080e+00_jprb &
15781  &, 0.570144e+00_jprb, 0.554199e+00_jprb, 0.538258e+00_jprb, 0.522342e+00_jprb &
15782  &, 0.506466e+00_jprb, 0.490648e+00_jprb, 0.474906e+00_jprb &
15783  &, 0.459261e+00_jprb, 0.443716e+00_jprb, 0.428312e+00_jprb, 0.413050e+00_jprb &
15784  &, 0.397944e+00_jprb, 0.383017e+00_jprb, 0.368285e+00_jprb &
15785  &, 0.353764e+00_jprb, 0.339471e+00_jprb, 0.325413e+00_jprb, 0.311617e+00_jprb &
15786  &, 0.298079e+00_jprb, 0.284814e+00_jprb, 0.271851e+00_jprb &
15787  &, 0.259193e+00_jprb, 0.246829e+00_jprb, 0.234799e+00_jprb, 0.223102e+00_jprb &
15788  &, 0.211734e+00_jprb, 0.200704e+00_jprb, 0.190034e+00_jprb &
15789  &, 0.179700e+00_jprb, 0.169736e+00_jprb, 0.160112e+00_jprb, 0.150859e+00_jprb &
15790  &, 0.141958e+00_jprb, 0.133403e+00_jprb, 0.125220e+00_jprb &
15791  &, 0.117382e+00_jprb, 0.109894e+00_jprb, 0.102758e+00_jprb, 0.959377e-01_jprb &
15792  &, 0.894685e-01_jprb, 0.833279e-01_jprb, 0.774889e-01_jprb &
15793  &, 0.719837e-01_jprb, 0.667597e-01_jprb, 0.618459e-01_jprb, 0.572049e-01_jprb &
15794  &, 0.528405e-01_jprb, 0.487556e-01_jprb, 0.449042e-01_jprb &
15795  &, 0.413325e-01_jprb, 0.379654e-01_jprb, 0.348217e-01_jprb, 0.319207e-01_jprb &
15796  &, 0.292036e-01_jprb, 0.266593e-01_jprb, 0.243299e-01_jprb &
15797  &, 0.221764e-01_jprb, 0.201561e-01_jprb, 0.183089e-01_jprb, 0.166185e-01_jprb &
15798  &, 0.150665e-01_jprb, 0.136328e-01_jprb, 0.122952e-01_jprb &
15799  &, 0.110927e-01_jprb, 0.100026e-01_jprb, 0.899977e-02_jprb, 0.809050e-02_jprb &
15800  &, 0.724723e-02_jprb, 0.647472e-02_jprb, 0.581300e-02_jprb &
15801  &, 0.519733e-02_jprb, 0.463098e-02_jprb, 0.411728e-02_jprb, 0.365967e-02_jprb &
15802  &, 0.326161e-02_jprb, 0.288779e-02_jprb, 0.253991e-02_jprb &
15803  &, 0.225988e-02_jprb, 0.196980e-02_jprb, 0.175249e-02_jprb, 0.152749e-02_jprb &
15804  &, 0.133751e-02_jprb, 0.118449e-02_jprb, 0.102618e-02_jprb &
15805  &, 0.907407e-03_jprb, 0.784601e-03_jprb, 0.703977e-03_jprb, 0.573657e-03_jprb &
15806  &, 0.534521e-03_jprb, 0.445618e-03_jprb, 0.403009e-03_jprb &
15807  &, 0.309138e-03_jprb, 0.262962e-03_jprb, 0.215338e-03_jprb, 0.218330e-03_jprb &
15808  &, 0.168510e-03_jprb, 0.117193e-03_jprb, 0.118725e-03_jprb &
15809  &, 0.120269e-03_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
15810  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15811  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15812  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15813 xcw( 360, :) = (/ &
15814  & 0.961154e+00_jprb, 0.950586e+00_jprb, 0.939688e+00_jprb, 0.928473e+00_jprb &
15815  &, 0.916943e+00_jprb, 0.905109e+00_jprb, 0.892978e+00_jprb &
15816  &, 0.880559e+00_jprb, 0.867860e+00_jprb, 0.854889e+00_jprb, 0.841660e+00_jprb &
15817  &, 0.828177e+00_jprb, 0.814454e+00_jprb, 0.800498e+00_jprb &
15818  &, 0.786323e+00_jprb, 0.771939e+00_jprb, 0.757354e+00_jprb, 0.742585e+00_jprb &
15819  &, 0.727640e+00_jprb, 0.712537e+00_jprb, 0.697281e+00_jprb &
15820  &, 0.681893e+00_jprb, 0.666385e+00_jprb, 0.650769e+00_jprb, 0.635061e+00_jprb &
15821  &, 0.619279e+00_jprb, 0.603435e+00_jprb, 0.587546e+00_jprb &
15822  &, 0.571629e+00_jprb, 0.555697e+00_jprb, 0.539773e+00_jprb, 0.523870e+00_jprb &
15823  &, 0.508007e+00_jprb, 0.492197e+00_jprb, 0.476462e+00_jprb &
15824  &, 0.460815e+00_jprb, 0.445280e+00_jprb, 0.429876e+00_jprb, 0.414604e+00_jprb &
15825  &, 0.399496e+00_jprb, 0.384566e+00_jprb, 0.369830e+00_jprb &
15826  &, 0.355292e+00_jprb, 0.340992e+00_jprb, 0.326913e+00_jprb, 0.313096e+00_jprb &
15827  &, 0.299545e+00_jprb, 0.286266e+00_jprb, 0.273275e+00_jprb &
15828  &, 0.260586e+00_jprb, 0.248216e+00_jprb, 0.236150e+00_jprb, 0.224414e+00_jprb &
15829  &, 0.213020e+00_jprb, 0.201961e+00_jprb, 0.191260e+00_jprb &
15830  &, 0.180893e+00_jprb, 0.170894e+00_jprb, 0.161248e+00_jprb, 0.151955e+00_jprb &
15831  &, 0.143011e+00_jprb, 0.134427e+00_jprb, 0.126214e+00_jprb &
15832  &, 0.118326e+00_jprb, 0.110803e+00_jprb, 0.103630e+00_jprb, 0.967900e-01_jprb &
15833  &, 0.902800e-01_jprb, 0.840962e-01_jprb, 0.782323e-01_jprb &
15834  &, 0.726796e-01_jprb, 0.674272e-01_jprb, 0.624834e-01_jprb, 0.578107e-01_jprb &
15835  &, 0.534130e-01_jprb, 0.492931e-01_jprb, 0.454287e-01_jprb &
15836  &, 0.417946e-01_jprb, 0.384119e-01_jprb, 0.352518e-01_jprb, 0.323077e-01_jprb &
15837  &, 0.295718e-01_jprb, 0.270078e-01_jprb, 0.246578e-01_jprb &
15838  &, 0.224828e-01_jprb, 0.204398e-01_jprb, 0.185691e-01_jprb, 0.168541e-01_jprb &
15839  &, 0.152765e-01_jprb, 0.138161e-01_jprb, 0.124818e-01_jprb &
15840  &, 0.112827e-01_jprb, 0.101638e-01_jprb, 0.913100e-02_jprb, 0.822407e-02_jprb &
15841  &, 0.738314e-02_jprb, 0.661300e-02_jprb, 0.591851e-02_jprb &
15842  &, 0.526888e-02_jprb, 0.470375e-02_jprb, 0.419129e-02_jprb, 0.373492e-02_jprb &
15843  &, 0.329987e-02_jprb, 0.292668e-02_jprb, 0.257944e-02_jprb &
15844  &, 0.230006e-02_jprb, 0.201063e-02_jprb, 0.179398e-02_jprb, 0.156964e-02_jprb &
15845  &, 0.138033e-02_jprb, 0.122798e-02_jprb, 0.107037e-02_jprb &
15846  &, 0.907407e-03_jprb, 0.784601e-03_jprb, 0.703977e-03_jprb, 0.620629e-03_jprb &
15847  &, 0.534521e-03_jprb, 0.445618e-03_jprb, 0.403009e-03_jprb &
15848  &, 0.358994e-03_jprb, 0.262962e-03_jprb, 0.266672e-03_jprb, 0.218330e-03_jprb &
15849  &, 0.168510e-03_jprb, 0.170789e-03_jprb, 0.118725e-03_jprb &
15850  &, 0.120269e-03_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
15851  &, 0.682814e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15852  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15853  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15854 xcw( 361, :) = (/ &
15855  & 0.961415e+00_jprb, 0.950909e+00_jprb, 0.940074e+00_jprb, 0.928919e+00_jprb &
15856  &, 0.917449e+00_jprb, 0.905673e+00_jprb, 0.893599e+00_jprb &
15857  &, 0.881236e+00_jprb, 0.868591e+00_jprb, 0.855676e+00_jprb, 0.842498e+00_jprb &
15858  &, 0.829065e+00_jprb, 0.815390e+00_jprb, 0.801483e+00_jprb &
15859  &, 0.787354e+00_jprb, 0.773013e+00_jprb, 0.758472e+00_jprb, 0.743743e+00_jprb &
15860  &, 0.728839e+00_jprb, 0.713771e+00_jprb, 0.698552e+00_jprb &
15861  &, 0.683196e+00_jprb, 0.667722e+00_jprb, 0.652133e+00_jprb, 0.636457e+00_jprb &
15862  &, 0.620698e+00_jprb, 0.604877e+00_jprb, 0.589011e+00_jprb &
15863  &, 0.573111e+00_jprb, 0.557200e+00_jprb, 0.541288e+00_jprb, 0.525398e+00_jprb &
15864  &, 0.509548e+00_jprb, 0.493750e+00_jprb, 0.478018e+00_jprb &
15865  &, 0.462377e+00_jprb, 0.446844e+00_jprb, 0.431441e+00_jprb, 0.416168e+00_jprb &
15866  &, 0.401058e+00_jprb, 0.386115e+00_jprb, 0.371375e+00_jprb &
15867  &, 0.356831e+00_jprb, 0.342502e+00_jprb, 0.328426e+00_jprb, 0.314586e+00_jprb &
15868  &, 0.301011e+00_jprb, 0.287718e+00_jprb, 0.274698e+00_jprb &
15869  &, 0.261992e+00_jprb, 0.249588e+00_jprb, 0.237501e+00_jprb, 0.225741e+00_jprb &
15870  &, 0.214320e+00_jprb, 0.203233e+00_jprb, 0.192487e+00_jprb &
15871  &, 0.182102e+00_jprb, 0.172067e+00_jprb, 0.162384e+00_jprb, 0.153050e+00_jprb &
15872  &, 0.144080e+00_jprb, 0.135469e+00_jprb, 0.127208e+00_jprb &
15873  &, 0.119288e+00_jprb, 0.111730e+00_jprb, 0.104521e+00_jprb, 0.976424e-01_jprb &
15874  &, 0.910915e-01_jprb, 0.848645e-01_jprb, 0.789757e-01_jprb &
15875  &, 0.733966e-01_jprb, 0.681162e-01_jprb, 0.631208e-01_jprb, 0.584165e-01_jprb &
15876  &, 0.539855e-01_jprb, 0.498306e-01_jprb, 0.459294e-01_jprb &
15877  &, 0.422811e-01_jprb, 0.388585e-01_jprb, 0.356818e-01_jprb, 0.326946e-01_jprb &
15878  &, 0.299400e-01_jprb, 0.273564e-01_jprb, 0.249857e-01_jprb &
15879  &, 0.227891e-01_jprb, 0.207236e-01_jprb, 0.188582e-01_jprb, 0.171191e-01_jprb &
15880  &, 0.155164e-01_jprb, 0.140299e-01_jprb, 0.126995e-01_jprb &
15881  &, 0.114410e-01_jprb, 0.103249e-01_jprb, 0.929505e-02_jprb, 0.835763e-02_jprb &
15882  &, 0.748508e-02_jprb, 0.671671e-02_jprb, 0.602402e-02_jprb &
15883  &, 0.537620e-02_jprb, 0.477652e-02_jprb, 0.426529e-02_jprb, 0.381017e-02_jprb &
15884  &, 0.337637e-02_jprb, 0.300446e-02_jprb, 0.265850e-02_jprb &
15885  &, 0.234024e-02_jprb, 0.205146e-02_jprb, 0.183546e-02_jprb, 0.161179e-02_jprb &
15886  &, 0.142316e-02_jprb, 0.122798e-02_jprb, 0.107037e-02_jprb &
15887  &, 0.952278e-03_jprb, 0.830166e-03_jprb, 0.703977e-03_jprb, 0.620629e-03_jprb &
15888  &, 0.534521e-03_jprb, 0.445618e-03_jprb, 0.403009e-03_jprb &
15889  &, 0.358994e-03_jprb, 0.313555e-03_jprb, 0.266672e-03_jprb, 0.218330e-03_jprb &
15890  &, 0.168510e-03_jprb, 0.170789e-03_jprb, 0.118725e-03_jprb &
15891  &, 0.120269e-03_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
15892  &, 0.682814e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15893  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15894  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15895 xcw( 362, :) = (/ &
15896  & 0.961676e+00_jprb, 0.951232e+00_jprb, 0.940459e+00_jprb, 0.929364e+00_jprb &
15897  &, 0.917954e+00_jprb, 0.906237e+00_jprb, 0.894221e+00_jprb &
15898  &, 0.881913e+00_jprb, 0.869323e+00_jprb, 0.856461e+00_jprb, 0.843335e+00_jprb &
15899  &, 0.829953e+00_jprb, 0.816328e+00_jprb, 0.802467e+00_jprb &
15900  &, 0.788383e+00_jprb, 0.774086e+00_jprb, 0.759589e+00_jprb, 0.744901e+00_jprb &
15901  &, 0.730036e+00_jprb, 0.715005e+00_jprb, 0.699823e+00_jprb &
15902  &, 0.684502e+00_jprb, 0.669058e+00_jprb, 0.653501e+00_jprb, 0.637849e+00_jprb &
15903  &, 0.622120e+00_jprb, 0.606323e+00_jprb, 0.590477e+00_jprb &
15904  &, 0.574597e+00_jprb, 0.558702e+00_jprb, 0.542808e+00_jprb, 0.526931e+00_jprb &
15905  &, 0.511088e+00_jprb, 0.495298e+00_jprb, 0.479578e+00_jprb &
15906  &, 0.463940e+00_jprb, 0.448408e+00_jprb, 0.433005e+00_jprb, 0.417732e+00_jprb &
15907  &, 0.402621e+00_jprb, 0.387675e+00_jprb, 0.372920e+00_jprb &
15908  &, 0.358360e+00_jprb, 0.344034e+00_jprb, 0.329927e+00_jprb, 0.316077e+00_jprb &
15909  &, 0.302490e+00_jprb, 0.289171e+00_jprb, 0.276135e+00_jprb &
15910  &, 0.263398e+00_jprb, 0.250975e+00_jprb, 0.238865e+00_jprb, 0.227068e+00_jprb &
15911  &, 0.215621e+00_jprb, 0.204506e+00_jprb, 0.193729e+00_jprb &
15912  &, 0.183311e+00_jprb, 0.173241e+00_jprb, 0.163519e+00_jprb, 0.154145e+00_jprb &
15913  &, 0.145150e+00_jprb, 0.136493e+00_jprb, 0.128202e+00_jprb &
15914  &, 0.120250e+00_jprb, 0.112658e+00_jprb, 0.105393e+00_jprb, 0.984947e-01_jprb &
15915  &, 0.919029e-01_jprb, 0.856530e-01_jprb, 0.797191e-01_jprb &
15916  &, 0.740926e-01_jprb, 0.687837e-01_jprb, 0.637583e-01_jprb, 0.590224e-01_jprb &
15917  &, 0.545809e-01_jprb, 0.503914e-01_jprb, 0.464539e-01_jprb &
15918  &, 0.427675e-01_jprb, 0.393298e-01_jprb, 0.361119e-01_jprb, 0.331074e-01_jprb &
15919  &, 0.303082e-01_jprb, 0.277317e-01_jprb, 0.253136e-01_jprb &
15920  &, 0.230954e-01_jprb, 0.210073e-01_jprb, 0.191183e-01_jprb, 0.173547e-01_jprb &
15921  &, 0.157264e-01_jprb, 0.142437e-01_jprb, 0.128861e-01_jprb &
15922  &, 0.116310e-01_jprb, 0.104861e-01_jprb, 0.945910e-02_jprb, 0.849119e-02_jprb &
15923  &, 0.762099e-02_jprb, 0.682042e-02_jprb, 0.612953e-02_jprb &
15924  &, 0.548353e-02_jprb, 0.488568e-02_jprb, 0.433930e-02_jprb, 0.388542e-02_jprb &
15925  &, 0.345288e-02_jprb, 0.304335e-02_jprb, 0.269803e-02_jprb &
15926  &, 0.238041e-02_jprb, 0.213312e-02_jprb, 0.187695e-02_jprb, 0.165394e-02_jprb &
15927  &, 0.142316e-02_jprb, 0.127148e-02_jprb, 0.111455e-02_jprb &
15928  &, 0.952278e-03_jprb, 0.830166e-03_jprb, 0.750242e-03_jprb, 0.620629e-03_jprb &
15929  &, 0.534521e-03_jprb, 0.494019e-03_jprb, 0.403009e-03_jprb &
15930  &, 0.358994e-03_jprb, 0.313555e-03_jprb, 0.266672e-03_jprb, 0.218330e-03_jprb &
15931  &, 0.168510e-03_jprb, 0.170789e-03_jprb, 0.118725e-03_jprb &
15932  &, 0.120269e-03_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
15933  &, 0.682814e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15934  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15935  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15936 xcw( 363, :) = (/ &
15937  & 0.961936e+00_jprb, 0.951556e+00_jprb, 0.940843e+00_jprb, 0.929810e+00_jprb &
15938  &, 0.918459e+00_jprb, 0.906800e+00_jprb, 0.894841e+00_jprb &
15939  &, 0.882589e+00_jprb, 0.870055e+00_jprb, 0.857246e+00_jprb, 0.844172e+00_jprb &
15940  &, 0.830840e+00_jprb, 0.817264e+00_jprb, 0.803451e+00_jprb &
15941  &, 0.789414e+00_jprb, 0.775162e+00_jprb, 0.760706e+00_jprb, 0.746060e+00_jprb &
15942  &, 0.731233e+00_jprb, 0.716239e+00_jprb, 0.701094e+00_jprb &
15943  &, 0.685805e+00_jprb, 0.670394e+00_jprb, 0.654868e+00_jprb, 0.639245e+00_jprb &
15944  &, 0.623539e+00_jprb, 0.607768e+00_jprb, 0.591942e+00_jprb &
15945  &, 0.576087e+00_jprb, 0.560209e+00_jprb, 0.544332e+00_jprb, 0.528467e+00_jprb &
15946  &, 0.512637e+00_jprb, 0.496855e+00_jprb, 0.481138e+00_jprb &
15947  &, 0.465512e+00_jprb, 0.449982e+00_jprb, 0.434570e+00_jprb, 0.419296e+00_jprb &
15948  &, 0.404183e+00_jprb, 0.389224e+00_jprb, 0.374464e+00_jprb &
15949  &, 0.359899e+00_jprb, 0.345556e+00_jprb, 0.331439e+00_jprb, 0.317567e+00_jprb &
15950  &, 0.303968e+00_jprb, 0.290623e+00_jprb, 0.277571e+00_jprb &
15951  &, 0.264817e+00_jprb, 0.252361e+00_jprb, 0.240216e+00_jprb, 0.228409e+00_jprb &
15952  &, 0.216922e+00_jprb, 0.205778e+00_jprb, 0.194970e+00_jprb &
15953  &, 0.184520e+00_jprb, 0.174414e+00_jprb, 0.164655e+00_jprb, 0.155257e+00_jprb &
15954  &, 0.146219e+00_jprb, 0.137535e+00_jprb, 0.129196e+00_jprb &
15955  &, 0.121229e+00_jprb, 0.113585e+00_jprb, 0.106303e+00_jprb, 0.993471e-01_jprb &
15956  &, 0.927342e-01_jprb, 0.864415e-01_jprb, 0.804625e-01_jprb &
15957  &, 0.748095e-01_jprb, 0.694728e-01_jprb, 0.644178e-01_jprb, 0.596506e-01_jprb &
15958  &, 0.551534e-01_jprb, 0.509289e-01_jprb, 0.469784e-01_jprb &
15959  &, 0.432539e-01_jprb, 0.398011e-01_jprb, 0.365420e-01_jprb, 0.335202e-01_jprb &
15960  &, 0.307027e-01_jprb, 0.280802e-01_jprb, 0.256415e-01_jprb &
15961  &, 0.234017e-01_jprb, 0.213195e-01_jprb, 0.193785e-01_jprb, 0.176197e-01_jprb &
15962  &, 0.159663e-01_jprb, 0.144575e-01_jprb, 0.130727e-01_jprb &
15963  &, 0.118210e-01_jprb, 0.106473e-01_jprb, 0.959033e-02_jprb, 0.862475e-02_jprb &
15964  &, 0.775690e-02_jprb, 0.695871e-02_jprb, 0.623504e-02_jprb &
15965  &, 0.555508e-02_jprb, 0.495845e-02_jprb, 0.445031e-02_jprb, 0.396067e-02_jprb &
15966  &, 0.352939e-02_jprb, 0.312112e-02_jprb, 0.277709e-02_jprb &
15967  &, 0.246077e-02_jprb, 0.217395e-02_jprb, 0.191844e-02_jprb, 0.169610e-02_jprb &
15968  &, 0.146598e-02_jprb, 0.131498e-02_jprb, 0.111455e-02_jprb &
15969  &, 0.997148e-03_jprb, 0.875731e-03_jprb, 0.750242e-03_jprb, 0.667600e-03_jprb &
15970  &, 0.582205e-03_jprb, 0.494019e-03_jprb, 0.403009e-03_jprb &
15971  &, 0.358994e-03_jprb, 0.313555e-03_jprb, 0.266672e-03_jprb, 0.218330e-03_jprb &
15972  &, 0.168510e-03_jprb, 0.170789e-03_jprb, 0.118725e-03_jprb &
15973  &, 0.120269e-03_jprb, 0.659121e-04_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
15974  &, 0.682814e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15975  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
15976  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
15977 xcw( 364, :) = (/ &
15978  & 0.962196e+00_jprb, 0.951879e+00_jprb, 0.941228e+00_jprb, 0.930255e+00_jprb &
15979  &, 0.918964e+00_jprb, 0.907363e+00_jprb, 0.895462e+00_jprb &
15980  &, 0.883266e+00_jprb, 0.870786e+00_jprb, 0.858031e+00_jprb, 0.845008e+00_jprb &
15981  &, 0.831727e+00_jprb, 0.818200e+00_jprb, 0.804435e+00_jprb &
15982  &, 0.790443e+00_jprb, 0.776236e+00_jprb, 0.761823e+00_jprb, 0.747219e+00_jprb &
15983  &, 0.732432e+00_jprb, 0.717476e+00_jprb, 0.702365e+00_jprb &
15984  &, 0.687112e+00_jprb, 0.671730e+00_jprb, 0.656235e+00_jprb, 0.640641e+00_jprb &
15985  &, 0.624961e+00_jprb, 0.609213e+00_jprb, 0.593411e+00_jprb &
15986  &, 0.577573e+00_jprb, 0.561716e+00_jprb, 0.545851e+00_jprb, 0.530004e+00_jprb &
15987  &, 0.514182e+00_jprb, 0.498413e+00_jprb, 0.482703e+00_jprb &
15988  &, 0.467075e+00_jprb, 0.451555e+00_jprb, 0.436144e+00_jprb, 0.420870e+00_jprb &
15989  &, 0.405745e+00_jprb, 0.390794e+00_jprb, 0.376020e+00_jprb &
15990  &, 0.361438e+00_jprb, 0.347088e+00_jprb, 0.332952e+00_jprb, 0.319070e+00_jprb &
15991  &, 0.305447e+00_jprb, 0.292088e+00_jprb, 0.279008e+00_jprb &
15992  &, 0.266236e+00_jprb, 0.253747e+00_jprb, 0.241595e+00_jprb, 0.229750e+00_jprb &
15993  &, 0.218237e+00_jprb, 0.207065e+00_jprb, 0.196227e+00_jprb &
15994  &, 0.185728e+00_jprb, 0.175603e+00_jprb, 0.165807e+00_jprb, 0.156386e+00_jprb &
15995  &, 0.147306e+00_jprb, 0.138576e+00_jprb, 0.130208e+00_jprb &
15996  &, 0.122191e+00_jprb, 0.114531e+00_jprb, 0.107194e+00_jprb, 0.100219e+00_jprb &
15997  &, 0.935654e-01_jprb, 0.872300e-01_jprb, 0.812265e-01_jprb &
15998  &, 0.755476e-01_jprb, 0.701618e-01_jprb, 0.650553e-01_jprb, 0.602565e-01_jprb &
15999  &, 0.557488e-01_jprb, 0.514897e-01_jprb, 0.475030e-01_jprb &
16000  &, 0.437647e-01_jprb, 0.402477e-01_jprb, 0.369974e-01_jprb, 0.339329e-01_jprb &
16001  &, 0.310972e-01_jprb, 0.284556e-01_jprb, 0.259968e-01_jprb &
16002  &, 0.237080e-01_jprb, 0.216032e-01_jprb, 0.196676e-01_jprb, 0.178553e-01_jprb &
16003  &, 0.162062e-01_jprb, 0.146713e-01_jprb, 0.132904e-01_jprb &
16004  &, 0.120110e-01_jprb, 0.108407e-01_jprb, 0.975438e-02_jprb, 0.879171e-02_jprb &
16005  &, 0.789281e-02_jprb, 0.706242e-02_jprb, 0.634055e-02_jprb &
16006  &, 0.566240e-02_jprb, 0.506761e-02_jprb, 0.452431e-02_jprb, 0.403592e-02_jprb &
16007  &, 0.356765e-02_jprb, 0.316001e-02_jprb, 0.281662e-02_jprb &
16008  &, 0.250094e-02_jprb, 0.221478e-02_jprb, 0.195993e-02_jprb, 0.169610e-02_jprb &
16009  &, 0.150880e-02_jprb, 0.131498e-02_jprb, 0.115873e-02_jprb &
16010  &, 0.997148e-03_jprb, 0.875731e-03_jprb, 0.796507e-03_jprb, 0.667600e-03_jprb &
16011  &, 0.582205e-03_jprb, 0.494019e-03_jprb, 0.452135e-03_jprb &
16012  &, 0.358994e-03_jprb, 0.313555e-03_jprb, 0.266672e-03_jprb, 0.218330e-03_jprb &
16013  &, 0.221346e-03_jprb, 0.170789e-03_jprb, 0.118725e-03_jprb &
16014  &, 0.120269e-03_jprb, 0.121824e-03_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
16015  &, 0.682814e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16016  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16017  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16018 
16019 IF (lhook) CALL dr_hook('SU_MCICA:PART52',1,zhook_handle)
16020 END SUBROUTINE part52
16021 
16022 #ifdef VPP5000
16023 !OCL SCALAR
16024 #endif
16025 !option! -Nv -NO
16026 #ifdef RS6K
16027 @process nooptimize
16028 #endif
16029 !pgi$r opt=0
16030 SUBROUTINE part53
16031 
16032 REAL(KIND=JPRB) :: ZHOOK_HANDLE
16033 IF (lhook) CALL dr_hook('SU_MCICA:PART53',0,zhook_handle)
16034 
16035 xcw( 365, :) = (/ &
16036  & 0.962455e+00_jprb, 0.952201e+00_jprb, 0.941613e+00_jprb, 0.930700e+00_jprb &
16037  &, 0.919468e+00_jprb, 0.907926e+00_jprb, 0.896082e+00_jprb &
16038  &, 0.883943e+00_jprb, 0.871517e+00_jprb, 0.858815e+00_jprb, 0.845844e+00_jprb &
16039  &, 0.832614e+00_jprb, 0.819136e+00_jprb, 0.805418e+00_jprb &
16040  &, 0.791474e+00_jprb, 0.777311e+00_jprb, 0.762941e+00_jprb, 0.748376e+00_jprb &
16041  &, 0.733629e+00_jprb, 0.718710e+00_jprb, 0.703636e+00_jprb &
16042  &, 0.688418e+00_jprb, 0.673070e+00_jprb, 0.657603e+00_jprb, 0.642038e+00_jprb &
16043  &, 0.626379e+00_jprb, 0.610663e+00_jprb, 0.594880e+00_jprb &
16044  &, 0.579063e+00_jprb, 0.563222e+00_jprb, 0.547375e+00_jprb, 0.531540e+00_jprb &
16045  &, 0.515731e+00_jprb, 0.499970e+00_jprb, 0.484268e+00_jprb &
16046  &, 0.468646e+00_jprb, 0.453129e+00_jprb, 0.437718e+00_jprb, 0.422444e+00_jprb &
16047  &, 0.407318e+00_jprb, 0.392354e+00_jprb, 0.377576e+00_jprb &
16048  &, 0.362989e+00_jprb, 0.348621e+00_jprb, 0.334476e+00_jprb, 0.320572e+00_jprb &
16049  &, 0.306925e+00_jprb, 0.293553e+00_jprb, 0.280458e+00_jprb &
16050  &, 0.267655e+00_jprb, 0.255147e+00_jprb, 0.242959e+00_jprb, 0.231090e+00_jprb &
16051  &, 0.219552e+00_jprb, 0.208337e+00_jprb, 0.197484e+00_jprb &
16052  &, 0.186953e+00_jprb, 0.176793e+00_jprb, 0.166959e+00_jprb, 0.157498e+00_jprb &
16053  &, 0.148392e+00_jprb, 0.139635e+00_jprb, 0.131220e+00_jprb &
16054  &, 0.123171e+00_jprb, 0.115459e+00_jprb, 0.108104e+00_jprb, 0.101071e+00_jprb &
16055  &, 0.943967e-01_jprb, 0.880387e-01_jprb, 0.819906e-01_jprb &
16056  &, 0.762646e-01_jprb, 0.708508e-01_jprb, 0.657147e-01_jprb, 0.608847e-01_jprb &
16057  &, 0.563442e-01_jprb, 0.520505e-01_jprb, 0.480275e-01_jprb &
16058  &, 0.442511e-01_jprb, 0.407190e-01_jprb, 0.374275e-01_jprb, 0.343456e-01_jprb &
16059  &, 0.314917e-01_jprb, 0.288041e-01_jprb, 0.263247e-01_jprb &
16060  &, 0.240422e-01_jprb, 0.219153e-01_jprb, 0.199278e-01_jprb, 0.181203e-01_jprb &
16061  &, 0.164462e-01_jprb, 0.149157e-01_jprb, 0.134770e-01_jprb &
16062  &, 0.122010e-01_jprb, 0.110019e-01_jprb, 0.991843e-02_jprb, 0.892527e-02_jprb &
16063  &, 0.802872e-02_jprb, 0.720070e-02_jprb, 0.644606e-02_jprb &
16064  &, 0.576973e-02_jprb, 0.517676e-02_jprb, 0.459832e-02_jprb, 0.411117e-02_jprb &
16065  &, 0.364415e-02_jprb, 0.323779e-02_jprb, 0.289567e-02_jprb &
16066  &, 0.254112e-02_jprb, 0.225560e-02_jprb, 0.200141e-02_jprb, 0.173825e-02_jprb &
16067  &, 0.155163e-02_jprb, 0.135848e-02_jprb, 0.120291e-02_jprb &
16068  &, 0.104202e-02_jprb, 0.921295e-03_jprb, 0.796507e-03_jprb, 0.667600e-03_jprb &
16069  &, 0.582205e-03_jprb, 0.542421e-03_jprb, 0.452135e-03_jprb &
16070  &, 0.408850e-03_jprb, 0.313555e-03_jprb, 0.266672e-03_jprb, 0.218330e-03_jprb &
16071  &, 0.221346e-03_jprb, 0.170789e-03_jprb, 0.173087e-03_jprb &
16072  &, 0.120269e-03_jprb, 0.121824e-03_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
16073  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.100000e-04_jprb &
16074  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16075  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16076 xcw( 366, :) = (/ &
16077  & 0.962714e+00_jprb, 0.952522e+00_jprb, 0.941997e+00_jprb, 0.931145e+00_jprb &
16078  &, 0.919973e+00_jprb, 0.908489e+00_jprb, 0.896702e+00_jprb &
16079  &, 0.884618e+00_jprb, 0.872248e+00_jprb, 0.859599e+00_jprb, 0.846680e+00_jprb &
16080  &, 0.833502e+00_jprb, 0.820072e+00_jprb, 0.806404e+00_jprb &
16081  &, 0.792503e+00_jprb, 0.778385e+00_jprb, 0.764058e+00_jprb, 0.749535e+00_jprb &
16082  &, 0.734828e+00_jprb, 0.719947e+00_jprb, 0.704911e+00_jprb &
16083  &, 0.689724e+00_jprb, 0.674406e+00_jprb, 0.658974e+00_jprb, 0.643434e+00_jprb &
16084  &, 0.627809e+00_jprb, 0.612108e+00_jprb, 0.596353e+00_jprb &
16085  &, 0.580556e+00_jprb, 0.564733e+00_jprb, 0.548902e+00_jprb, 0.533081e+00_jprb &
16086  &, 0.517268e+00_jprb, 0.501532e+00_jprb, 0.485838e+00_jprb &
16087  &, 0.470218e+00_jprb, 0.454702e+00_jprb, 0.439293e+00_jprb, 0.424018e+00_jprb &
16088  &, 0.408891e+00_jprb, 0.393913e+00_jprb, 0.379131e+00_jprb &
16089  &, 0.364539e+00_jprb, 0.350153e+00_jprb, 0.336000e+00_jprb, 0.322086e+00_jprb &
16090  &, 0.308416e+00_jprb, 0.295030e+00_jprb, 0.281907e+00_jprb &
16091  &, 0.269074e+00_jprb, 0.256547e+00_jprb, 0.244337e+00_jprb, 0.232445e+00_jprb &
16092  &, 0.220867e+00_jprb, 0.209639e+00_jprb, 0.198741e+00_jprb &
16093  &, 0.188177e+00_jprb, 0.177982e+00_jprb, 0.168127e+00_jprb, 0.158627e+00_jprb &
16094  &, 0.149478e+00_jprb, 0.140694e+00_jprb, 0.132249e+00_jprb &
16095  &, 0.124151e+00_jprb, 0.116405e+00_jprb, 0.109014e+00_jprb, 0.101962e+00_jprb &
16096  &, 0.952279e-01_jprb, 0.888272e-01_jprb, 0.827546e-01_jprb &
16097  &, 0.770027e-01_jprb, 0.715399e-01_jprb, 0.663962e-01_jprb, 0.615130e-01_jprb &
16098  &, 0.569396e-01_jprb, 0.526114e-01_jprb, 0.485758e-01_jprb &
16099  &, 0.447619e-01_jprb, 0.412152e-01_jprb, 0.378829e-01_jprb, 0.347842e-01_jprb &
16100  &, 0.318863e-01_jprb, 0.291795e-01_jprb, 0.266799e-01_jprb &
16101  &, 0.243485e-01_jprb, 0.221991e-01_jprb, 0.202169e-01_jprb, 0.183853e-01_jprb &
16102  &, 0.166861e-01_jprb, 0.151295e-01_jprb, 0.136947e-01_jprb &
16103  &, 0.123910e-01_jprb, 0.111953e-01_jprb, 0.100825e-01_jprb, 0.905883e-02_jprb &
16104  &, 0.816463e-02_jprb, 0.733898e-02_jprb, 0.655157e-02_jprb &
16105  &, 0.587705e-02_jprb, 0.524953e-02_jprb, 0.467232e-02_jprb, 0.418642e-02_jprb &
16106  &, 0.372066e-02_jprb, 0.331557e-02_jprb, 0.293520e-02_jprb &
16107  &, 0.258130e-02_jprb, 0.229643e-02_jprb, 0.204290e-02_jprb, 0.178040e-02_jprb &
16108  &, 0.159445e-02_jprb, 0.140198e-02_jprb, 0.120291e-02_jprb &
16109  &, 0.108689e-02_jprb, 0.921295e-03_jprb, 0.796507e-03_jprb, 0.714572e-03_jprb &
16110  &, 0.629888e-03_jprb, 0.542421e-03_jprb, 0.452135e-03_jprb &
16111  &, 0.408850e-03_jprb, 0.364147e-03_jprb, 0.318007e-03_jprb, 0.270413e-03_jprb &
16112  &, 0.221346e-03_jprb, 0.170789e-03_jprb, 0.173087e-03_jprb &
16113  &, 0.120269e-03_jprb, 0.121824e-03_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
16114  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.100000e-04_jprb &
16115  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16116  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16117 xcw( 367, :) = (/ &
16118  & 0.962973e+00_jprb, 0.952846e+00_jprb, 0.942381e+00_jprb, 0.931590e+00_jprb &
16119  &, 0.920477e+00_jprb, 0.909052e+00_jprb, 0.897321e+00_jprb &
16120  &, 0.885294e+00_jprb, 0.872978e+00_jprb, 0.860362e+00_jprb, 0.847516e+00_jprb &
16121  &, 0.834388e+00_jprb, 0.821009e+00_jprb, 0.807386e+00_jprb &
16122  &, 0.793534e+00_jprb, 0.779460e+00_jprb, 0.765176e+00_jprb, 0.750695e+00_jprb &
16123  &, 0.736026e+00_jprb, 0.721185e+00_jprb, 0.706182e+00_jprb &
16124  &, 0.691031e+00_jprb, 0.675746e+00_jprb, 0.660344e+00_jprb, 0.644833e+00_jprb &
16125  &, 0.629235e+00_jprb, 0.613557e+00_jprb, 0.597826e+00_jprb &
16126  &, 0.582046e+00_jprb, 0.566244e+00_jprb, 0.550426e+00_jprb, 0.534622e+00_jprb &
16127  &, 0.518834e+00_jprb, 0.503093e+00_jprb, 0.487407e+00_jprb &
16128  &, 0.471800e+00_jprb, 0.456276e+00_jprb, 0.440877e+00_jprb, 0.425592e+00_jprb &
16129  &, 0.410463e+00_jprb, 0.395483e+00_jprb, 0.380687e+00_jprb &
16130  &, 0.366090e+00_jprb, 0.351697e+00_jprb, 0.337524e+00_jprb, 0.323589e+00_jprb &
16131  &, 0.309919e+00_jprb, 0.296495e+00_jprb, 0.283356e+00_jprb &
16132  &, 0.270507e+00_jprb, 0.257960e+00_jprb, 0.245716e+00_jprb, 0.233786e+00_jprb &
16133  &, 0.222196e+00_jprb, 0.210926e+00_jprb, 0.199998e+00_jprb &
16134  &, 0.189417e+00_jprb, 0.179171e+00_jprb, 0.169295e+00_jprb, 0.159755e+00_jprb &
16135  &, 0.150582e+00_jprb, 0.141753e+00_jprb, 0.133208e+00_jprb &
16136  &, 0.125149e+00_jprb, 0.117369e+00_jprb, 0.109924e+00_jprb, 0.102834e+00_jprb &
16137  &, 0.960790e-01_jprb, 0.896359e-01_jprb, 0.835393e-01_jprb &
16138  &, 0.777408e-01_jprb, 0.722504e-01_jprb, 0.670557e-01_jprb, 0.621637e-01_jprb &
16139  &, 0.575350e-01_jprb, 0.531956e-01_jprb, 0.491004e-01_jprb &
16140  &, 0.452726e-01_jprb, 0.416865e-01_jprb, 0.383383e-01_jprb, 0.351969e-01_jprb &
16141  &, 0.322808e-01_jprb, 0.295548e-01_jprb, 0.270352e-01_jprb &
16142  &, 0.246827e-01_jprb, 0.225112e-01_jprb, 0.205059e-01_jprb, 0.186504e-01_jprb &
16143  &, 0.169261e-01_jprb, 0.153433e-01_jprb, 0.139125e-01_jprb &
16144  &, 0.125810e-01_jprb, 0.113564e-01_jprb, 0.102465e-01_jprb, 0.922578e-02_jprb &
16145  &, 0.830054e-02_jprb, 0.744270e-02_jprb, 0.669225e-02_jprb &
16146  &, 0.598437e-02_jprb, 0.535869e-02_jprb, 0.478333e-02_jprb, 0.426167e-02_jprb &
16147  &, 0.379717e-02_jprb, 0.335446e-02_jprb, 0.297473e-02_jprb &
16148  &, 0.266165e-02_jprb, 0.233726e-02_jprb, 0.208439e-02_jprb, 0.182255e-02_jprb &
16149  &, 0.159445e-02_jprb, 0.140198e-02_jprb, 0.124709e-02_jprb &
16150  &, 0.108689e-02_jprb, 0.966860e-03_jprb, 0.842772e-03_jprb, 0.714572e-03_jprb &
16151  &, 0.629888e-03_jprb, 0.542421e-03_jprb, 0.452135e-03_jprb &
16152  &, 0.408850e-03_jprb, 0.364147e-03_jprb, 0.318007e-03_jprb, 0.270413e-03_jprb &
16153  &, 0.221346e-03_jprb, 0.170789e-03_jprb, 0.173087e-03_jprb &
16154  &, 0.120269e-03_jprb, 0.121824e-03_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
16155  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.100000e-04_jprb &
16156  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16157  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16158 xcw( 368, :) = (/ &
16159  & 0.963234e+00_jprb, 0.953169e+00_jprb, 0.942764e+00_jprb, 0.932033e+00_jprb &
16160  &, 0.920981e+00_jprb, 0.909614e+00_jprb, 0.897940e+00_jprb &
16161  &, 0.885970e+00_jprb, 0.873707e+00_jprb, 0.861166e+00_jprb, 0.848347e+00_jprb &
16162  &, 0.835275e+00_jprb, 0.821945e+00_jprb, 0.808370e+00_jprb &
16163  &, 0.794563e+00_jprb, 0.780534e+00_jprb, 0.766294e+00_jprb, 0.751854e+00_jprb &
16164  &, 0.737225e+00_jprb, 0.722422e+00_jprb, 0.707456e+00_jprb &
16165  &, 0.692340e+00_jprb, 0.677086e+00_jprb, 0.661715e+00_jprb, 0.646233e+00_jprb &
16166  &, 0.630661e+00_jprb, 0.615010e+00_jprb, 0.599299e+00_jprb &
16167  &, 0.583540e+00_jprb, 0.567754e+00_jprb, 0.551958e+00_jprb, 0.536162e+00_jprb &
16168  &, 0.520392e+00_jprb, 0.504655e+00_jprb, 0.488981e+00_jprb &
16169  &, 0.473372e+00_jprb, 0.457859e+00_jprb, 0.442451e+00_jprb, 0.427176e+00_jprb &
16170  &, 0.412036e+00_jprb, 0.397064e+00_jprb, 0.382254e+00_jprb &
16171  &, 0.367640e+00_jprb, 0.353241e+00_jprb, 0.339060e+00_jprb, 0.325115e+00_jprb &
16172  &, 0.311410e+00_jprb, 0.297972e+00_jprb, 0.284819e+00_jprb &
16173  &, 0.271939e+00_jprb, 0.259373e+00_jprb, 0.247108e+00_jprb, 0.235155e+00_jprb &
16174  &, 0.223526e+00_jprb, 0.212228e+00_jprb, 0.201270e+00_jprb &
16175  &, 0.190657e+00_jprb, 0.180377e+00_jprb, 0.170463e+00_jprb, 0.160900e+00_jprb &
16176  &, 0.151668e+00_jprb, 0.142812e+00_jprb, 0.134308e+00_jprb &
16177  &, 0.126129e+00_jprb, 0.118315e+00_jprb, 0.110853e+00_jprb, 0.103725e+00_jprb &
16178  &, 0.969300e-01_jprb, 0.904648e-01_jprb, 0.843034e-01_jprb &
16179  &, 0.784789e-01_jprb, 0.729610e-01_jprb, 0.677371e-01_jprb, 0.627920e-01_jprb &
16180  &, 0.581533e-01_jprb, 0.537798e-01_jprb, 0.496487e-01_jprb &
16181  &, 0.457834e-01_jprb, 0.421827e-01_jprb, 0.387936e-01_jprb, 0.356355e-01_jprb &
16182  &, 0.326753e-01_jprb, 0.299301e-01_jprb, 0.273904e-01_jprb &
16183  &, 0.250169e-01_jprb, 0.228233e-01_jprb, 0.207950e-01_jprb, 0.189154e-01_jprb &
16184  &, 0.171660e-01_jprb, 0.155876e-01_jprb, 0.141302e-01_jprb &
16185  &, 0.127710e-01_jprb, 0.115498e-01_jprb, 0.104106e-01_jprb, 0.939273e-02_jprb &
16186  &, 0.843645e-02_jprb, 0.758098e-02_jprb, 0.679775e-02_jprb &
16187  &, 0.609170e-02_jprb, 0.543146e-02_jprb, 0.485733e-02_jprb, 0.433692e-02_jprb &
16188  &, 0.387368e-02_jprb, 0.343224e-02_jprb, 0.305379e-02_jprb &
16189  &, 0.270183e-02_jprb, 0.237809e-02_jprb, 0.212588e-02_jprb, 0.186471e-02_jprb &
16190  &, 0.163727e-02_jprb, 0.144548e-02_jprb, 0.129128e-02_jprb &
16191  &, 0.113176e-02_jprb, 0.966860e-03_jprb, 0.842772e-03_jprb, 0.761543e-03_jprb &
16192  &, 0.629888e-03_jprb, 0.542421e-03_jprb, 0.501261e-03_jprb &
16193  &, 0.408850e-03_jprb, 0.364147e-03_jprb, 0.318007e-03_jprb, 0.270413e-03_jprb &
16194  &, 0.221346e-03_jprb, 0.170789e-03_jprb, 0.173087e-03_jprb &
16195  &, 0.120269e-03_jprb, 0.121824e-03_jprb, 0.666959e-04_jprb, 0.674857e-04_jprb &
16196  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.100000e-04_jprb &
16197  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16198  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16199 xcw( 369, :) = (/ &
16200  & 0.963494e+00_jprb, 0.953488e+00_jprb, 0.943148e+00_jprb, 0.932478e+00_jprb &
16201  &, 0.921484e+00_jprb, 0.910175e+00_jprb, 0.898559e+00_jprb &
16202  &, 0.886644e+00_jprb, 0.874438e+00_jprb, 0.861950e+00_jprb, 0.849187e+00_jprb &
16203  &, 0.836161e+00_jprb, 0.822880e+00_jprb, 0.809354e+00_jprb &
16204  &, 0.795594e+00_jprb, 0.781609e+00_jprb, 0.767411e+00_jprb, 0.753013e+00_jprb &
16205  &, 0.738425e+00_jprb, 0.723659e+00_jprb, 0.708727e+00_jprb &
16206  &, 0.693646e+00_jprb, 0.678429e+00_jprb, 0.663086e+00_jprb, 0.647633e+00_jprb &
16207  &, 0.632086e+00_jprb, 0.616463e+00_jprb, 0.600773e+00_jprb &
16208  &, 0.585037e+00_jprb, 0.569269e+00_jprb, 0.553486e+00_jprb, 0.537707e+00_jprb &
16209  &, 0.521946e+00_jprb, 0.506226e+00_jprb, 0.490555e+00_jprb &
16210  &, 0.474953e+00_jprb, 0.459442e+00_jprb, 0.444045e+00_jprb, 0.428760e+00_jprb &
16211  &, 0.413619e+00_jprb, 0.398634e+00_jprb, 0.383831e+00_jprb &
16212  &, 0.369202e+00_jprb, 0.354785e+00_jprb, 0.340596e+00_jprb, 0.326629e+00_jprb &
16213  &, 0.312913e+00_jprb, 0.299462e+00_jprb, 0.286281e+00_jprb &
16214  &, 0.273384e+00_jprb, 0.260786e+00_jprb, 0.248486e+00_jprb, 0.236510e+00_jprb &
16215  &, 0.224855e+00_jprb, 0.213530e+00_jprb, 0.202542e+00_jprb &
16216  &, 0.191896e+00_jprb, 0.181598e+00_jprb, 0.171631e+00_jprb, 0.162029e+00_jprb &
16217  &, 0.152789e+00_jprb, 0.143888e+00_jprb, 0.135338e+00_jprb &
16218  &, 0.127145e+00_jprb, 0.119280e+00_jprb, 0.111782e+00_jprb, 0.104616e+00_jprb &
16219  &, 0.977811e-01_jprb, 0.912735e-01_jprb, 0.850881e-01_jprb &
16220  &, 0.792170e-01_jprb, 0.736715e-01_jprb, 0.684186e-01_jprb, 0.634427e-01_jprb &
16221  &, 0.587487e-01_jprb, 0.543406e-01_jprb, 0.501971e-01_jprb &
16222  &, 0.463185e-01_jprb, 0.426540e-01_jprb, 0.392490e-01_jprb, 0.360482e-01_jprb &
16223  &, 0.330961e-01_jprb, 0.303055e-01_jprb, 0.277456e-01_jprb &
16224  &, 0.253510e-01_jprb, 0.231354e-01_jprb, 0.210841e-01_jprb, 0.191804e-01_jprb &
16225  &, 0.174360e-01_jprb, 0.158015e-01_jprb, 0.143479e-01_jprb &
16226  &, 0.129610e-01_jprb, 0.117110e-01_jprb, 0.105746e-01_jprb, 0.952630e-02_jprb &
16227  &, 0.857236e-02_jprb, 0.771926e-02_jprb, 0.690326e-02_jprb &
16228  &, 0.619902e-02_jprb, 0.554062e-02_jprb, 0.496834e-02_jprb, 0.441217e-02_jprb &
16229  &, 0.395019e-02_jprb, 0.351001e-02_jprb, 0.313285e-02_jprb &
16230  &, 0.278218e-02_jprb, 0.245975e-02_jprb, 0.216737e-02_jprb, 0.190686e-02_jprb &
16231  &, 0.168009e-02_jprb, 0.148898e-02_jprb, 0.129128e-02_jprb &
16232  &, 0.113176e-02_jprb, 0.101242e-02_jprb, 0.889037e-03_jprb, 0.761543e-03_jprb &
16233  &, 0.677572e-03_jprb, 0.590823e-03_jprb, 0.501261e-03_jprb &
16234  &, 0.408850e-03_jprb, 0.364147e-03_jprb, 0.318007e-03_jprb, 0.270413e-03_jprb &
16235  &, 0.221346e-03_jprb, 0.224386e-03_jprb, 0.173087e-03_jprb &
16236  &, 0.120269e-03_jprb, 0.121824e-03_jprb, 0.123392e-03_jprb, 0.674857e-04_jprb &
16237  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.100000e-04_jprb &
16238  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16239  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16240 xcw( 370, :) = (/ &
16241  & 0.963752e+00_jprb, 0.953810e+00_jprb, 0.943530e+00_jprb, 0.932922e+00_jprb &
16242  &, 0.921986e+00_jprb, 0.910737e+00_jprb, 0.899178e+00_jprb &
16243  &, 0.887319e+00_jprb, 0.875168e+00_jprb, 0.862733e+00_jprb, 0.850023e+00_jprb &
16244  &, 0.837047e+00_jprb, 0.823816e+00_jprb, 0.810337e+00_jprb &
16245  &, 0.796623e+00_jprb, 0.782683e+00_jprb, 0.768530e+00_jprb, 0.754173e+00_jprb &
16246  &, 0.739624e+00_jprb, 0.724896e+00_jprb, 0.710001e+00_jprb &
16247  &, 0.694956e+00_jprb, 0.679768e+00_jprb, 0.664457e+00_jprb, 0.649032e+00_jprb &
16248  &, 0.633516e+00_jprb, 0.617916e+00_jprb, 0.602249e+00_jprb &
16249  &, 0.586531e+00_jprb, 0.570783e+00_jprb, 0.555017e+00_jprb, 0.539252e+00_jprb &
16250  &, 0.523503e+00_jprb, 0.507792e+00_jprb, 0.492129e+00_jprb &
16251  &, 0.476534e+00_jprb, 0.461035e+00_jprb, 0.445629e+00_jprb, 0.430344e+00_jprb &
16252  &, 0.415202e+00_jprb, 0.400215e+00_jprb, 0.385397e+00_jprb &
16253  &, 0.370763e+00_jprb, 0.356340e+00_jprb, 0.342132e+00_jprb, 0.328156e+00_jprb &
16254  &, 0.314416e+00_jprb, 0.300952e+00_jprb, 0.287743e+00_jprb &
16255  &, 0.274830e+00_jprb, 0.262213e+00_jprb, 0.249892e+00_jprb, 0.237879e+00_jprb &
16256  &, 0.226199e+00_jprb, 0.214846e+00_jprb, 0.203829e+00_jprb &
16257  &, 0.193136e+00_jprb, 0.182803e+00_jprb, 0.172816e+00_jprb, 0.163174e+00_jprb &
16258  &, 0.153892e+00_jprb, 0.144965e+00_jprb, 0.136385e+00_jprb &
16259  &, 0.128143e+00_jprb, 0.120263e+00_jprb, 0.112711e+00_jprb, 0.105507e+00_jprb &
16260  &, 0.986321e-01_jprb, 0.921025e-01_jprb, 0.858728e-01_jprb &
16261  &, 0.799761e-01_jprb, 0.743821e-01_jprb, 0.691000e-01_jprb, 0.640934e-01_jprb &
16262  &, 0.593670e-01_jprb, 0.549248e-01_jprb, 0.507455e-01_jprb &
16263  &, 0.468292e-01_jprb, 0.431501e-01_jprb, 0.397044e-01_jprb, 0.364868e-01_jprb &
16264  &, 0.334906e-01_jprb, 0.307076e-01_jprb, 0.281009e-01_jprb &
16265  &, 0.256852e-01_jprb, 0.234476e-01_jprb, 0.213732e-01_jprb, 0.194455e-01_jprb &
16266  &, 0.176759e-01_jprb, 0.160458e-01_jprb, 0.145345e-01_jprb &
16267  &, 0.131826e-01_jprb, 0.119044e-01_jprb, 0.107387e-01_jprb, 0.969325e-02_jprb &
16268  &, 0.870827e-02_jprb, 0.785755e-02_jprb, 0.704394e-02_jprb &
16269  &, 0.630635e-02_jprb, 0.564978e-02_jprb, 0.504235e-02_jprb, 0.452505e-02_jprb &
16270  &, 0.402670e-02_jprb, 0.358779e-02_jprb, 0.317238e-02_jprb &
16271  &, 0.282235e-02_jprb, 0.250058e-02_jprb, 0.220885e-02_jprb, 0.194901e-02_jprb &
16272  &, 0.172292e-02_jprb, 0.153248e-02_jprb, 0.133546e-02_jprb &
16273  &, 0.117663e-02_jprb, 0.101242e-02_jprb, 0.889037e-03_jprb, 0.761543e-03_jprb &
16274  &, 0.677572e-03_jprb, 0.590823e-03_jprb, 0.501261e-03_jprb &
16275  &, 0.458707e-03_jprb, 0.364147e-03_jprb, 0.318007e-03_jprb, 0.270413e-03_jprb &
16276  &, 0.221346e-03_jprb, 0.224386e-03_jprb, 0.173087e-03_jprb &
16277  &, 0.120269e-03_jprb, 0.121824e-03_jprb, 0.123392e-03_jprb, 0.674857e-04_jprb &
16278  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.100000e-04_jprb &
16279  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16280  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16281 xcw( 371, :) = (/ &
16282  & 0.964009e+00_jprb, 0.954132e+00_jprb, 0.943913e+00_jprb, 0.933365e+00_jprb &
16283  &, 0.922490e+00_jprb, 0.911298e+00_jprb, 0.899797e+00_jprb &
16284  &, 0.887994e+00_jprb, 0.875897e+00_jprb, 0.863516e+00_jprb, 0.850858e+00_jprb &
16285  &, 0.837933e+00_jprb, 0.824751e+00_jprb, 0.811321e+00_jprb &
16286  &, 0.797654e+00_jprb, 0.783759e+00_jprb, 0.769648e+00_jprb, 0.755332e+00_jprb &
16287  &, 0.740824e+00_jprb, 0.726134e+00_jprb, 0.711276e+00_jprb &
16288  &, 0.696266e+00_jprb, 0.681111e+00_jprb, 0.665831e+00_jprb, 0.650435e+00_jprb &
16289  &, 0.634942e+00_jprb, 0.619369e+00_jprb, 0.603726e+00_jprb &
16290  &, 0.588028e+00_jprb, 0.572302e+00_jprb, 0.556553e+00_jprb, 0.540801e+00_jprb &
16291  &, 0.525066e+00_jprb, 0.509362e+00_jprb, 0.493707e+00_jprb &
16292  &, 0.478124e+00_jprb, 0.462618e+00_jprb, 0.447223e+00_jprb, 0.431938e+00_jprb &
16293  &, 0.416795e+00_jprb, 0.401796e+00_jprb, 0.386975e+00_jprb &
16294  &, 0.372336e+00_jprb, 0.357895e+00_jprb, 0.343668e+00_jprb, 0.329682e+00_jprb &
16295  &, 0.315931e+00_jprb, 0.302442e+00_jprb, 0.289218e+00_jprb &
16296  &, 0.276275e+00_jprb, 0.263626e+00_jprb, 0.251284e+00_jprb, 0.239249e+00_jprb &
16297  &, 0.227543e+00_jprb, 0.216163e+00_jprb, 0.205101e+00_jprb &
16298  &, 0.194391e+00_jprb, 0.184024e+00_jprb, 0.174000e+00_jprb, 0.164336e+00_jprb &
16299  &, 0.155012e+00_jprb, 0.146041e+00_jprb, 0.137432e+00_jprb &
16300  &, 0.129160e+00_jprb, 0.121227e+00_jprb, 0.113659e+00_jprb, 0.106418e+00_jprb &
16301  &, 0.995029e-01_jprb, 0.929314e-01_jprb, 0.866781e-01_jprb &
16302  &, 0.807353e-01_jprb, 0.751142e-01_jprb, 0.697815e-01_jprb, 0.647441e-01_jprb &
16303  &, 0.600082e-01_jprb, 0.555324e-01_jprb, 0.513177e-01_jprb &
16304  &, 0.473643e-01_jprb, 0.436463e-01_jprb, 0.401851e-01_jprb, 0.369253e-01_jprb &
16305  &, 0.339114e-01_jprb, 0.310830e-01_jprb, 0.284561e-01_jprb &
16306  &, 0.260194e-01_jprb, 0.237597e-01_jprb, 0.216623e-01_jprb, 0.197399e-01_jprb &
16307  &, 0.179458e-01_jprb, 0.162902e-01_jprb, 0.147833e-01_jprb &
16308  &, 0.133726e-01_jprb, 0.120978e-01_jprb, 0.109355e-01_jprb, 0.986020e-02_jprb &
16309  &, 0.887816e-02_jprb, 0.796126e-02_jprb, 0.714945e-02_jprb &
16310  &, 0.641367e-02_jprb, 0.575893e-02_jprb, 0.515335e-02_jprb, 0.460030e-02_jprb &
16311  &, 0.410320e-02_jprb, 0.366557e-02_jprb, 0.325144e-02_jprb &
16312  &, 0.286253e-02_jprb, 0.254141e-02_jprb, 0.225034e-02_jprb, 0.199116e-02_jprb &
16313  &, 0.176574e-02_jprb, 0.153248e-02_jprb, 0.137964e-02_jprb &
16314  &, 0.117663e-02_jprb, 0.105799e-02_jprb, 0.935302e-03_jprb, 0.808514e-03_jprb &
16315  &, 0.677572e-03_jprb, 0.590823e-03_jprb, 0.550388e-03_jprb &
16316  &, 0.458707e-03_jprb, 0.414739e-03_jprb, 0.318007e-03_jprb, 0.270413e-03_jprb &
16317  &, 0.274183e-03_jprb, 0.224386e-03_jprb, 0.173087e-03_jprb &
16318  &, 0.175403e-03_jprb, 0.121824e-03_jprb, 0.123392e-03_jprb, 0.674857e-04_jprb &
16319  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16320  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16321  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16322 
16323 IF (lhook) CALL dr_hook('SU_MCICA:PART53',1,zhook_handle)
16324 END SUBROUTINE part53
16325 
16326 #ifdef VPP5000
16327 !OCL SCALAR
16328 #endif
16329 !option! -Nv -NO
16330 #ifdef RS6K
16331 @process nooptimize
16332 #endif
16333 !pgi$r opt=0
16334 SUBROUTINE part54
16335 
16336 REAL(KIND=JPRB) :: ZHOOK_HANDLE
16337 IF (lhook) CALL dr_hook('SU_MCICA:PART54',0,zhook_handle)
16338 
16339 xcw( 372, :) = (/ &
16340  & 0.964269e+00_jprb, 0.954453e+00_jprb, 0.944296e+00_jprb, 0.933808e+00_jprb &
16341  &, 0.922992e+00_jprb, 0.911860e+00_jprb, 0.900415e+00_jprb &
16342  &, 0.888668e+00_jprb, 0.876627e+00_jprb, 0.864299e+00_jprb, 0.851693e+00_jprb &
16343  &, 0.838818e+00_jprb, 0.825685e+00_jprb, 0.812304e+00_jprb &
16344  &, 0.798683e+00_jprb, 0.784833e+00_jprb, 0.770765e+00_jprb, 0.756492e+00_jprb &
16345  &, 0.742024e+00_jprb, 0.727371e+00_jprb, 0.712553e+00_jprb &
16346  &, 0.697575e+00_jprb, 0.682454e+00_jprb, 0.667202e+00_jprb, 0.651839e+00_jprb &
16347  &, 0.636346e+00_jprb, 0.620821e+00_jprb, 0.605203e+00_jprb &
16348  &, 0.589530e+00_jprb, 0.573817e+00_jprb, 0.558085e+00_jprb, 0.542350e+00_jprb &
16349  &, 0.526628e+00_jprb, 0.510937e+00_jprb, 0.495290e+00_jprb &
16350  &, 0.479706e+00_jprb, 0.464211e+00_jprb, 0.448807e+00_jprb, 0.433532e+00_jprb &
16351  &, 0.418378e+00_jprb, 0.403387e+00_jprb, 0.388552e+00_jprb &
16352  &, 0.373897e+00_jprb, 0.359450e+00_jprb, 0.345215e+00_jprb, 0.331208e+00_jprb &
16353  &, 0.317446e+00_jprb, 0.303932e+00_jprb, 0.290693e+00_jprb &
16354  &, 0.277734e+00_jprb, 0.265066e+00_jprb, 0.252690e+00_jprb, 0.240632e+00_jprb &
16355  &, 0.228887e+00_jprb, 0.217480e+00_jprb, 0.206403e+00_jprb &
16356  &, 0.195647e+00_jprb, 0.185261e+00_jprb, 0.175201e+00_jprb, 0.165498e+00_jprb &
16357  &, 0.156133e+00_jprb, 0.147135e+00_jprb, 0.138480e+00_jprb &
16358  &, 0.130176e+00_jprb, 0.122211e+00_jprb, 0.114588e+00_jprb, 0.107309e+00_jprb &
16359  &, 0.100374e+00_jprb, 0.937603e-01_jprb, 0.874628e-01_jprb &
16360  &, 0.814945e-01_jprb, 0.758463e-01_jprb, 0.704849e-01_jprb, 0.654172e-01_jprb &
16361  &, 0.606265e-01_jprb, 0.561166e-01_jprb, 0.518660e-01_jprb &
16362  &, 0.478994e-01_jprb, 0.441672e-01_jprb, 0.406658e-01_jprb, 0.373897e-01_jprb &
16363  &, 0.343322e-01_jprb, 0.314851e-01_jprb, 0.288387e-01_jprb &
16364  &, 0.263535e-01_jprb, 0.240718e-01_jprb, 0.219514e-01_jprb, 0.200050e-01_jprb &
16365  &, 0.181858e-01_jprb, 0.165345e-01_jprb, 0.150010e-01_jprb &
16366  &, 0.135943e-01_jprb, 0.122912e-01_jprb, 0.110996e-01_jprb, 0.100272e-01_jprb &
16367  &, 0.901407e-02_jprb, 0.809954e-02_jprb, 0.729013e-02_jprb &
16368  &, 0.652100e-02_jprb, 0.586809e-02_jprb, 0.522736e-02_jprb, 0.467555e-02_jprb &
16369  &, 0.417971e-02_jprb, 0.370446e-02_jprb, 0.329097e-02_jprb &
16370  &, 0.294288e-02_jprb, 0.262307e-02_jprb, 0.229183e-02_jprb, 0.203331e-02_jprb &
16371  &, 0.180856e-02_jprb, 0.157598e-02_jprb, 0.137964e-02_jprb &
16372  &, 0.122150e-02_jprb, 0.105799e-02_jprb, 0.935302e-03_jprb, 0.808514e-03_jprb &
16373  &, 0.725256e-03_jprb, 0.639225e-03_jprb, 0.550388e-03_jprb &
16374  &, 0.458707e-03_jprb, 0.414739e-03_jprb, 0.369341e-03_jprb, 0.322495e-03_jprb &
16375  &, 0.274183e-03_jprb, 0.224386e-03_jprb, 0.173087e-03_jprb &
16376  &, 0.175403e-03_jprb, 0.121824e-03_jprb, 0.123392e-03_jprb, 0.674857e-04_jprb &
16377  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16378  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16379  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16380 xcw( 373, :) = (/ &
16381  & 0.964527e+00_jprb, 0.954774e+00_jprb, 0.944678e+00_jprb, 0.934251e+00_jprb &
16382  &, 0.923495e+00_jprb, 0.912420e+00_jprb, 0.901032e+00_jprb &
16383  &, 0.889342e+00_jprb, 0.877355e+00_jprb, 0.865081e+00_jprb, 0.852528e+00_jprb &
16384  &, 0.839705e+00_jprb, 0.826622e+00_jprb, 0.813287e+00_jprb &
16385  &, 0.799712e+00_jprb, 0.785908e+00_jprb, 0.771884e+00_jprb, 0.757652e+00_jprb &
16386  &, 0.743225e+00_jprb, 0.728611e+00_jprb, 0.713828e+00_jprb &
16387  &, 0.698885e+00_jprb, 0.683797e+00_jprb, 0.668576e+00_jprb, 0.653242e+00_jprb &
16388  &, 0.637804e+00_jprb, 0.622278e+00_jprb, 0.606684e+00_jprb &
16389  &, 0.591031e+00_jprb, 0.575339e+00_jprb, 0.559625e+00_jprb, 0.543904e+00_jprb &
16390  &, 0.528194e+00_jprb, 0.512512e+00_jprb, 0.496873e+00_jprb &
16391  &, 0.481296e+00_jprb, 0.465803e+00_jprb, 0.450410e+00_jprb, 0.435126e+00_jprb &
16392  &, 0.419971e+00_jprb, 0.404968e+00_jprb, 0.390129e+00_jprb &
16393  &, 0.375481e+00_jprb, 0.361017e+00_jprb, 0.346762e+00_jprb, 0.332746e+00_jprb &
16394  &, 0.318961e+00_jprb, 0.305434e+00_jprb, 0.292169e+00_jprb &
16395  &, 0.279192e+00_jprb, 0.266493e+00_jprb, 0.254096e+00_jprb, 0.242015e+00_jprb &
16396  &, 0.230246e+00_jprb, 0.218796e+00_jprb, 0.207690e+00_jprb &
16397  &, 0.196917e+00_jprb, 0.186482e+00_jprb, 0.176401e+00_jprb, 0.166660e+00_jprb &
16398  &, 0.157270e+00_jprb, 0.148228e+00_jprb, 0.139527e+00_jprb &
16399  &, 0.131192e+00_jprb, 0.123194e+00_jprb, 0.115535e+00_jprb, 0.108219e+00_jprb &
16400  &, 0.101245e+00_jprb, 0.946095e-01_jprb, 0.882682e-01_jprb &
16401  &, 0.822747e-01_jprb, 0.765784e-01_jprb, 0.711663e-01_jprb, 0.660679e-01_jprb &
16402  &, 0.612678e-01_jprb, 0.567241e-01_jprb, 0.524382e-01_jprb &
16403  &, 0.484344e-01_jprb, 0.446634e-01_jprb, 0.411212e-01_jprb, 0.378282e-01_jprb &
16404  &, 0.347530e-01_jprb, 0.318873e-01_jprb, 0.291939e-01_jprb &
16405  &, 0.267155e-01_jprb, 0.244123e-01_jprb, 0.222693e-01_jprb, 0.202994e-01_jprb &
16406  &, 0.184557e-01_jprb, 0.167789e-01_jprb, 0.152187e-01_jprb &
16407  &, 0.137843e-01_jprb, 0.124846e-01_jprb, 0.112636e-01_jprb, 0.101607e-01_jprb &
16408  &, 0.918396e-02_jprb, 0.823782e-02_jprb, 0.743081e-02_jprb &
16409  &, 0.666409e-02_jprb, 0.597725e-02_jprb, 0.533837e-02_jprb, 0.475080e-02_jprb &
16410  &, 0.425622e-02_jprb, 0.378224e-02_jprb, 0.337003e-02_jprb &
16411  &, 0.298306e-02_jprb, 0.266390e-02_jprb, 0.237480e-02_jprb, 0.207547e-02_jprb &
16412  &, 0.185139e-02_jprb, 0.161948e-02_jprb, 0.142382e-02_jprb &
16413  &, 0.126637e-02_jprb, 0.110355e-02_jprb, 0.981568e-03_jprb, 0.855486e-03_jprb &
16414  &, 0.725256e-03_jprb, 0.639225e-03_jprb, 0.550388e-03_jprb &
16415  &, 0.458707e-03_jprb, 0.414739e-03_jprb, 0.369341e-03_jprb, 0.322495e-03_jprb &
16416  &, 0.274183e-03_jprb, 0.224386e-03_jprb, 0.173087e-03_jprb &
16417  &, 0.175403e-03_jprb, 0.121824e-03_jprb, 0.123392e-03_jprb, 0.674857e-04_jprb &
16418  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16419  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16420  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16421 xcw( 374, :) = (/ &
16422  & 0.964784e+00_jprb, 0.955094e+00_jprb, 0.945061e+00_jprb, 0.934693e+00_jprb &
16423  &, 0.923998e+00_jprb, 0.912981e+00_jprb, 0.901651e+00_jprb &
16424  &, 0.890016e+00_jprb, 0.878084e+00_jprb, 0.865863e+00_jprb, 0.853363e+00_jprb &
16425  &, 0.840590e+00_jprb, 0.827556e+00_jprb, 0.814270e+00_jprb &
16426  &, 0.800743e+00_jprb, 0.786983e+00_jprb, 0.773002e+00_jprb, 0.758812e+00_jprb &
16427  &, 0.744425e+00_jprb, 0.729849e+00_jprb, 0.715102e+00_jprb &
16428  &, 0.700195e+00_jprb, 0.685140e+00_jprb, 0.669954e+00_jprb, 0.654645e+00_jprb &
16429  &, 0.639234e+00_jprb, 0.623735e+00_jprb, 0.608157e+00_jprb &
16430  &, 0.592533e+00_jprb, 0.576858e+00_jprb, 0.561161e+00_jprb, 0.545457e+00_jprb &
16431  &, 0.529761e+00_jprb, 0.514087e+00_jprb, 0.498461e+00_jprb &
16432  &, 0.482887e+00_jprb, 0.467396e+00_jprb, 0.452004e+00_jprb, 0.436720e+00_jprb &
16433  &, 0.421565e+00_jprb, 0.406559e+00_jprb, 0.391717e+00_jprb &
16434  &, 0.377054e+00_jprb, 0.362583e+00_jprb, 0.348321e+00_jprb, 0.334285e+00_jprb &
16435  &, 0.320488e+00_jprb, 0.306937e+00_jprb, 0.293656e+00_jprb &
16436  &, 0.280651e+00_jprb, 0.267933e+00_jprb, 0.255516e+00_jprb, 0.243398e+00_jprb &
16437  &, 0.231604e+00_jprb, 0.220128e+00_jprb, 0.208992e+00_jprb &
16438  &, 0.198188e+00_jprb, 0.187719e+00_jprb, 0.177602e+00_jprb, 0.167821e+00_jprb &
16439  &, 0.158407e+00_jprb, 0.149322e+00_jprb, 0.140592e+00_jprb &
16440  &, 0.132226e+00_jprb, 0.124177e+00_jprb, 0.116502e+00_jprb, 0.109149e+00_jprb &
16441  &, 0.102135e+00_jprb, 0.954384e-01_jprb, 0.890942e-01_jprb &
16442  &, 0.830339e-01_jprb, 0.773105e-01_jprb, 0.718698e-01_jprb, 0.667411e-01_jprb &
16443  &, 0.618861e-01_jprb, 0.573317e-01_jprb, 0.530104e-01_jprb &
16444  &, 0.489695e-01_jprb, 0.451844e-01_jprb, 0.416272e-01_jprb, 0.382926e-01_jprb &
16445  &, 0.351738e-01_jprb, 0.322894e-01_jprb, 0.295765e-01_jprb &
16446  &, 0.270776e-01_jprb, 0.247244e-01_jprb, 0.225584e-01_jprb, 0.205645e-01_jprb &
16447  &, 0.187257e-01_jprb, 0.170232e-01_jprb, 0.154364e-01_jprb &
16448  &, 0.140059e-01_jprb, 0.126780e-01_jprb, 0.114605e-01_jprb, 0.103277e-01_jprb &
16449  &, 0.931987e-02_jprb, 0.837610e-02_jprb, 0.753632e-02_jprb &
16450  &, 0.677142e-02_jprb, 0.608640e-02_jprb, 0.544938e-02_jprb, 0.486368e-02_jprb &
16451  &, 0.433273e-02_jprb, 0.386001e-02_jprb, 0.344909e-02_jprb &
16452  &, 0.306341e-02_jprb, 0.270473e-02_jprb, 0.241629e-02_jprb, 0.211762e-02_jprb &
16453  &, 0.189421e-02_jprb, 0.166298e-02_jprb, 0.146800e-02_jprb &
16454  &, 0.126637e-02_jprb, 0.114912e-02_jprb, 0.981568e-03_jprb, 0.855486e-03_jprb &
16455  &, 0.772939e-03_jprb, 0.639225e-03_jprb, 0.550388e-03_jprb &
16456  &, 0.508563e-03_jprb, 0.414739e-03_jprb, 0.369341e-03_jprb, 0.322495e-03_jprb &
16457  &, 0.274183e-03_jprb, 0.224386e-03_jprb, 0.173087e-03_jprb &
16458  &, 0.175403e-03_jprb, 0.121824e-03_jprb, 0.123392e-03_jprb, 0.674857e-04_jprb &
16459  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16460  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16461  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16462 xcw( 375, :) = (/ &
16463  & 0.965044e+00_jprb, 0.955415e+00_jprb, 0.945443e+00_jprb, 0.935136e+00_jprb &
16464  &, 0.924499e+00_jprb, 0.913541e+00_jprb, 0.902269e+00_jprb &
16465  &, 0.890690e+00_jprb, 0.878812e+00_jprb, 0.866646e+00_jprb, 0.854192e+00_jprb &
16466  &, 0.841475e+00_jprb, 0.828491e+00_jprb, 0.815253e+00_jprb &
16467  &, 0.801772e+00_jprb, 0.788059e+00_jprb, 0.774121e+00_jprb, 0.759973e+00_jprb &
16468  &, 0.745625e+00_jprb, 0.731089e+00_jprb, 0.716379e+00_jprb &
16469  &, 0.701508e+00_jprb, 0.686484e+00_jprb, 0.671328e+00_jprb, 0.656052e+00_jprb &
16470  &, 0.640667e+00_jprb, 0.625195e+00_jprb, 0.609645e+00_jprb &
16471  &, 0.594034e+00_jprb, 0.578380e+00_jprb, 0.562701e+00_jprb, 0.547010e+00_jprb &
16472  &, 0.531327e+00_jprb, 0.515667e+00_jprb, 0.500049e+00_jprb &
16473  &, 0.484487e+00_jprb, 0.468998e+00_jprb, 0.453608e+00_jprb, 0.438324e+00_jprb &
16474  &, 0.423168e+00_jprb, 0.408161e+00_jprb, 0.393305e+00_jprb &
16475  &, 0.378637e+00_jprb, 0.364150e+00_jprb, 0.349881e+00_jprb, 0.335823e+00_jprb &
16476  &, 0.322016e+00_jprb, 0.308451e+00_jprb, 0.295144e+00_jprb &
16477  &, 0.282122e+00_jprb, 0.269373e+00_jprb, 0.256936e+00_jprb, 0.244796e+00_jprb &
16478  &, 0.232977e+00_jprb, 0.221474e+00_jprb, 0.210295e+00_jprb &
16479  &, 0.199459e+00_jprb, 0.188956e+00_jprb, 0.178803e+00_jprb, 0.169000e+00_jprb &
16480  &, 0.159545e+00_jprb, 0.150433e+00_jprb, 0.141657e+00_jprb &
16481  &, 0.133243e+00_jprb, 0.125178e+00_jprb, 0.117450e+00_jprb, 0.110079e+00_jprb &
16482  &, 0.103026e+00_jprb, 0.962876e-01_jprb, 0.898995e-01_jprb &
16483  &, 0.838142e-01_jprb, 0.780641e-01_jprb, 0.725952e-01_jprb, 0.674142e-01_jprb &
16484  &, 0.625273e-01_jprb, 0.579393e-01_jprb, 0.535826e-01_jprb &
16485  &, 0.495289e-01_jprb, 0.456805e-01_jprb, 0.421078e-01_jprb, 0.387569e-01_jprb &
16486  &, 0.356209e-01_jprb, 0.326916e-01_jprb, 0.299590e-01_jprb &
16487  &, 0.274117e-01_jprb, 0.250649e-01_jprb, 0.228764e-01_jprb, 0.208589e-01_jprb &
16488  &, 0.189956e-01_jprb, 0.172676e-01_jprb, 0.156853e-01_jprb &
16489  &, 0.142276e-01_jprb, 0.128714e-01_jprb, 0.116245e-01_jprb, 0.104946e-01_jprb &
16490  &, 0.948976e-02_jprb, 0.854896e-02_jprb, 0.767700e-02_jprb &
16491  &, 0.687874e-02_jprb, 0.619556e-02_jprb, 0.552338e-02_jprb, 0.493893e-02_jprb &
16492  &, 0.440924e-02_jprb, 0.393779e-02_jprb, 0.352815e-02_jprb &
16493  &, 0.310359e-02_jprb, 0.278638e-02_jprb, 0.245778e-02_jprb, 0.215977e-02_jprb &
16494  &, 0.193703e-02_jprb, 0.170648e-02_jprb, 0.151219e-02_jprb &
16495  &, 0.131124e-02_jprb, 0.114912e-02_jprb, 0.102783e-02_jprb, 0.902457e-03_jprb &
16496  &, 0.772939e-03_jprb, 0.687627e-03_jprb, 0.599514e-03_jprb &
16497  &, 0.508563e-03_jprb, 0.414739e-03_jprb, 0.369341e-03_jprb, 0.322495e-03_jprb &
16498  &, 0.274183e-03_jprb, 0.224386e-03_jprb, 0.227450e-03_jprb &
16499  &, 0.175403e-03_jprb, 0.121824e-03_jprb, 0.123392e-03_jprb, 0.124971e-03_jprb &
16500  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16501  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16502  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16503 xcw( 376, :) = (/ &
16504  & 0.965302e+00_jprb, 0.955736e+00_jprb, 0.945824e+00_jprb, 0.935578e+00_jprb &
16505  &, 0.925001e+00_jprb, 0.914101e+00_jprb, 0.902886e+00_jprb &
16506  &, 0.891363e+00_jprb, 0.879541e+00_jprb, 0.867428e+00_jprb, 0.855032e+00_jprb &
16507  &, 0.842361e+00_jprb, 0.829426e+00_jprb, 0.816237e+00_jprb &
16508  &, 0.802803e+00_jprb, 0.789134e+00_jprb, 0.775240e+00_jprb, 0.761134e+00_jprb &
16509  &, 0.746827e+00_jprb, 0.732329e+00_jprb, 0.717657e+00_jprb &
16510  &, 0.702817e+00_jprb, 0.687830e+00_jprb, 0.672706e+00_jprb, 0.657459e+00_jprb &
16511  &, 0.642104e+00_jprb, 0.626655e+00_jprb, 0.611126e+00_jprb &
16512  &, 0.595540e+00_jprb, 0.579907e+00_jprb, 0.564245e+00_jprb, 0.548568e+00_jprb &
16513  &, 0.532898e+00_jprb, 0.517246e+00_jprb, 0.501636e+00_jprb &
16514  &, 0.486077e+00_jprb, 0.470600e+00_jprb, 0.455211e+00_jprb, 0.439929e+00_jprb &
16515  &, 0.424772e+00_jprb, 0.409752e+00_jprb, 0.394893e+00_jprb &
16516  &, 0.380221e+00_jprb, 0.365728e+00_jprb, 0.351440e+00_jprb, 0.337373e+00_jprb &
16517  &, 0.323543e+00_jprb, 0.309954e+00_jprb, 0.296632e+00_jprb &
16518  &, 0.283594e+00_jprb, 0.270826e+00_jprb, 0.258355e+00_jprb, 0.246193e+00_jprb &
16519  &, 0.234335e+00_jprb, 0.222806e+00_jprb, 0.211612e+00_jprb &
16520  &, 0.200745e+00_jprb, 0.190209e+00_jprb, 0.180019e+00_jprb, 0.170178e+00_jprb &
16521  &, 0.160682e+00_jprb, 0.151544e+00_jprb, 0.142740e+00_jprb &
16522  &, 0.134295e+00_jprb, 0.126180e+00_jprb, 0.118417e+00_jprb, 0.110989e+00_jprb &
16523  &, 0.103916e+00_jprb, 0.971569e-01_jprb, 0.907255e-01_jprb &
16524  &, 0.846155e-01_jprb, 0.787962e-01_jprb, 0.732986e-01_jprb, 0.681098e-01_jprb &
16525  &, 0.631914e-01_jprb, 0.585468e-01_jprb, 0.541787e-01_jprb &
16526  &, 0.500640e-01_jprb, 0.462015e-01_jprb, 0.425885e-01_jprb, 0.391955e-01_jprb &
16527  &, 0.360417e-01_jprb, 0.330937e-01_jprb, 0.303416e-01_jprb &
16528  &, 0.277737e-01_jprb, 0.254054e-01_jprb, 0.231944e-01_jprb, 0.211534e-01_jprb &
16529  &, 0.192655e-01_jprb, 0.175119e-01_jprb, 0.159030e-01_jprb &
16530  &, 0.144176e-01_jprb, 0.130648e-01_jprb, 0.118214e-01_jprb, 0.106950e-01_jprb &
16531  &, 0.962567e-02_jprb, 0.868724e-02_jprb, 0.781768e-02_jprb &
16532  &, 0.702184e-02_jprb, 0.630472e-02_jprb, 0.563439e-02_jprb, 0.505181e-02_jprb &
16533  &, 0.448575e-02_jprb, 0.401557e-02_jprb, 0.356768e-02_jprb &
16534  &, 0.318394e-02_jprb, 0.282721e-02_jprb, 0.249927e-02_jprb, 0.220192e-02_jprb &
16535  &, 0.197986e-02_jprb, 0.174998e-02_jprb, 0.151219e-02_jprb &
16536  &, 0.135611e-02_jprb, 0.119468e-02_jprb, 0.102783e-02_jprb, 0.902457e-03_jprb &
16537  &, 0.772939e-03_jprb, 0.687627e-03_jprb, 0.599514e-03_jprb &
16538  &, 0.508563e-03_jprb, 0.465332e-03_jprb, 0.369341e-03_jprb, 0.322495e-03_jprb &
16539  &, 0.274183e-03_jprb, 0.224386e-03_jprb, 0.227450e-03_jprb &
16540  &, 0.175403e-03_jprb, 0.121824e-03_jprb, 0.123392e-03_jprb, 0.124971e-03_jprb &
16541  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16542  &, 0.707043e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16543  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16544 xcw( 377, :) = (/ &
16545  & 0.965560e+00_jprb, 0.956056e+00_jprb, 0.946205e+00_jprb, 0.936020e+00_jprb &
16546  &, 0.925502e+00_jprb, 0.914661e+00_jprb, 0.903503e+00_jprb &
16547  &, 0.892036e+00_jprb, 0.880269e+00_jprb, 0.868209e+00_jprb, 0.855865e+00_jprb &
16548  &, 0.843246e+00_jprb, 0.830361e+00_jprb, 0.817220e+00_jprb &
16549  &, 0.803832e+00_jprb, 0.790208e+00_jprb, 0.776359e+00_jprb, 0.762295e+00_jprb &
16550  &, 0.748029e+00_jprb, 0.733570e+00_jprb, 0.718934e+00_jprb &
16551  &, 0.704130e+00_jprb, 0.689176e+00_jprb, 0.674084e+00_jprb, 0.658865e+00_jprb &
16552  &, 0.643537e+00_jprb, 0.628115e+00_jprb, 0.612610e+00_jprb &
16553  &, 0.597045e+00_jprb, 0.581434e+00_jprb, 0.565785e+00_jprb, 0.550125e+00_jprb &
16554  &, 0.534469e+00_jprb, 0.518830e+00_jprb, 0.503228e+00_jprb &
16555  &, 0.487677e+00_jprb, 0.472202e+00_jprb, 0.456815e+00_jprb, 0.441533e+00_jprb &
16556  &, 0.426375e+00_jprb, 0.411354e+00_jprb, 0.396492e+00_jprb &
16557  &, 0.381805e+00_jprb, 0.367305e+00_jprb, 0.352999e+00_jprb, 0.338923e+00_jprb &
16558  &, 0.325071e+00_jprb, 0.311469e+00_jprb, 0.298133e+00_jprb &
16559  &, 0.285066e+00_jprb, 0.272280e+00_jprb, 0.259789e+00_jprb, 0.247590e+00_jprb &
16560  &, 0.235708e+00_jprb, 0.224152e+00_jprb, 0.212929e+00_jprb &
16561  &, 0.202016e+00_jprb, 0.191461e+00_jprb, 0.181236e+00_jprb, 0.171356e+00_jprb &
16562  &, 0.161836e+00_jprb, 0.152655e+00_jprb, 0.143823e+00_jprb &
16563  &, 0.135329e+00_jprb, 0.127200e+00_jprb, 0.119384e+00_jprb, 0.111939e+00_jprb &
16564  &, 0.104807e+00_jprb, 0.980061e-01_jprb, 0.915515e-01_jprb &
16565  &, 0.853958e-01_jprb, 0.795498e-01_jprb, 0.740240e-01_jprb, 0.687830e-01_jprb &
16566  &, 0.638326e-01_jprb, 0.591544e-01_jprb, 0.547509e-01_jprb &
16567  &, 0.506234e-01_jprb, 0.467472e-01_jprb, 0.430945e-01_jprb, 0.396856e-01_jprb &
16568  &, 0.364889e-01_jprb, 0.334959e-01_jprb, 0.307241e-01_jprb &
16569  &, 0.281358e-01_jprb, 0.257459e-01_jprb, 0.235124e-01_jprb, 0.214479e-01_jprb &
16570  &, 0.195355e-01_jprb, 0.177868e-01_jprb, 0.161518e-01_jprb &
16571  &, 0.146392e-01_jprb, 0.132582e-01_jprb, 0.120182e-01_jprb, 0.108619e-01_jprb &
16572  &, 0.979555e-02_jprb, 0.882552e-02_jprb, 0.792318e-02_jprb &
16573  &, 0.712916e-02_jprb, 0.641387e-02_jprb, 0.574540e-02_jprb, 0.512706e-02_jprb &
16574  &, 0.460051e-02_jprb, 0.409335e-02_jprb, 0.364674e-02_jprb &
16575  &, 0.326430e-02_jprb, 0.286804e-02_jprb, 0.254076e-02_jprb, 0.228623e-02_jprb &
16576  &, 0.202268e-02_jprb, 0.174998e-02_jprb, 0.155637e-02_jprb &
16577  &, 0.135611e-02_jprb, 0.119468e-02_jprb, 0.107410e-02_jprb, 0.949429e-03_jprb &
16578  &, 0.820623e-03_jprb, 0.687627e-03_jprb, 0.599514e-03_jprb &
16579  &, 0.558419e-03_jprb, 0.465332e-03_jprb, 0.420676e-03_jprb, 0.322495e-03_jprb &
16580  &, 0.274183e-03_jprb, 0.277982e-03_jprb, 0.227450e-03_jprb &
16581  &, 0.175403e-03_jprb, 0.177736e-03_jprb, 0.123392e-03_jprb, 0.124971e-03_jprb &
16582  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16583  &, 0.707043e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16584  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16585 xcw( 378, :) = (/ &
16586  & 0.965818e+00_jprb, 0.956375e+00_jprb, 0.946587e+00_jprb, 0.936462e+00_jprb &
16587  &, 0.926004e+00_jprb, 0.915220e+00_jprb, 0.904119e+00_jprb &
16588  &, 0.892709e+00_jprb, 0.880997e+00_jprb, 0.868991e+00_jprb, 0.856700e+00_jprb &
16589  &, 0.844131e+00_jprb, 0.831297e+00_jprb, 0.818203e+00_jprb &
16590  &, 0.804863e+00_jprb, 0.791283e+00_jprb, 0.777478e+00_jprb, 0.763456e+00_jprb &
16591  &, 0.749231e+00_jprb, 0.734810e+00_jprb, 0.720212e+00_jprb &
16592  &, 0.705443e+00_jprb, 0.690523e+00_jprb, 0.675462e+00_jprb, 0.660272e+00_jprb &
16593  &, 0.644974e+00_jprb, 0.629576e+00_jprb, 0.614099e+00_jprb &
16594  &, 0.598554e+00_jprb, 0.582960e+00_jprb, 0.567334e+00_jprb, 0.551687e+00_jprb &
16595  &, 0.536044e+00_jprb, 0.520418e+00_jprb, 0.504825e+00_jprb &
16596  &, 0.489277e+00_jprb, 0.473814e+00_jprb, 0.458428e+00_jprb, 0.443147e+00_jprb &
16597  &, 0.427979e+00_jprb, 0.412956e+00_jprb, 0.398091e+00_jprb &
16598  &, 0.383388e+00_jprb, 0.368883e+00_jprb, 0.354569e+00_jprb, 0.340473e+00_jprb &
16599  &, 0.326610e+00_jprb, 0.312996e+00_jprb, 0.299634e+00_jprb &
16600  &, 0.286537e+00_jprb, 0.273733e+00_jprb, 0.261222e+00_jprb, 0.249002e+00_jprb &
16601  &, 0.237095e+00_jprb, 0.225513e+00_jprb, 0.214247e+00_jprb &
16602  &, 0.203318e+00_jprb, 0.192714e+00_jprb, 0.182469e+00_jprb, 0.172551e+00_jprb &
16603  &, 0.162991e+00_jprb, 0.153766e+00_jprb, 0.144905e+00_jprb &
16604  &, 0.136382e+00_jprb, 0.128202e+00_jprb, 0.120370e+00_jprb, 0.112868e+00_jprb &
16605  &, 0.105718e+00_jprb, 0.988755e-01_jprb, 0.923776e-01_jprb &
16606  &, 0.861971e-01_jprb, 0.803250e-01_jprb, 0.747494e-01_jprb, 0.694785e-01_jprb &
16607  &, 0.644967e-01_jprb, 0.597853e-01_jprb, 0.553469e-01_jprb &
16608  &, 0.511828e-01_jprb, 0.472682e-01_jprb, 0.436005e-01_jprb, 0.401499e-01_jprb &
16609  &, 0.369360e-01_jprb, 0.339249e-01_jprb, 0.311067e-01_jprb &
16610  &, 0.284978e-01_jprb, 0.260864e-01_jprb, 0.238304e-01_jprb, 0.217424e-01_jprb &
16611  &, 0.198054e-01_jprb, 0.180312e-01_jprb, 0.164006e-01_jprb &
16612  &, 0.148609e-01_jprb, 0.134839e-01_jprb, 0.122151e-01_jprb, 0.110289e-01_jprb &
16613  &, 0.996544e-02_jprb, 0.896381e-02_jprb, 0.806386e-02_jprb &
16614  &, 0.727226e-02_jprb, 0.652303e-02_jprb, 0.585640e-02_jprb, 0.523993e-02_jprb &
16615  &, 0.467702e-02_jprb, 0.417113e-02_jprb, 0.372580e-02_jprb &
16616  &, 0.330447e-02_jprb, 0.294970e-02_jprb, 0.262373e-02_jprb, 0.232838e-02_jprb &
16617  &, 0.206550e-02_jprb, 0.179348e-02_jprb, 0.160055e-02_jprb &
16618  &, 0.140098e-02_jprb, 0.124025e-02_jprb, 0.107410e-02_jprb, 0.949429e-03_jprb &
16619  &, 0.820623e-03_jprb, 0.736029e-03_jprb, 0.648640e-03_jprb &
16620  &, 0.558419e-03_jprb, 0.465332e-03_jprb, 0.420676e-03_jprb, 0.374578e-03_jprb &
16621  &, 0.327019e-03_jprb, 0.277982e-03_jprb, 0.227450e-03_jprb &
16622  &, 0.175403e-03_jprb, 0.177736e-03_jprb, 0.123392e-03_jprb, 0.124971e-03_jprb &
16623  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16624  &, 0.707043e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16625  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16626 
16627 IF (lhook) CALL dr_hook('SU_MCICA:PART54',1,zhook_handle)
16628 END SUBROUTINE part54
16629 
16630 #ifdef VPP5000
16631 !OCL SCALAR
16632 #endif
16633 !option! -Nv -NO
16634 #ifdef RS6K
16635 @process nooptimize
16636 #endif
16637 !pgi$r opt=0
16638 SUBROUTINE part55
16639 
16640 REAL(KIND=JPRB) :: ZHOOK_HANDLE
16641 IF (lhook) CALL dr_hook('SU_MCICA:PART55',0,zhook_handle)
16642 
16643 xcw( 379, :) = (/ &
16644  & 0.966075e+00_jprb, 0.956695e+00_jprb, 0.946967e+00_jprb, 0.936903e+00_jprb &
16645  &, 0.926504e+00_jprb, 0.915779e+00_jprb, 0.904737e+00_jprb &
16646  &, 0.893382e+00_jprb, 0.881725e+00_jprb, 0.869773e+00_jprb, 0.857533e+00_jprb &
16647  &, 0.845016e+00_jprb, 0.832232e+00_jprb, 0.819187e+00_jprb &
16648  &, 0.805892e+00_jprb, 0.792358e+00_jprb, 0.778597e+00_jprb, 0.764618e+00_jprb &
16649  &, 0.750432e+00_jprb, 0.736051e+00_jprb, 0.721489e+00_jprb &
16650  &, 0.706756e+00_jprb, 0.691869e+00_jprb, 0.676840e+00_jprb, 0.661682e+00_jprb &
16651  &, 0.646410e+00_jprb, 0.631040e+00_jprb, 0.615583e+00_jprb &
16652  &, 0.600064e+00_jprb, 0.584487e+00_jprb, 0.568878e+00_jprb, 0.553249e+00_jprb &
16653  &, 0.537619e+00_jprb, 0.522002e+00_jprb, 0.506422e+00_jprb &
16654  &, 0.490886e+00_jprb, 0.475416e+00_jprb, 0.460032e+00_jprb, 0.444761e+00_jprb &
16655  &, 0.429592e+00_jprb, 0.414568e+00_jprb, 0.399690e+00_jprb &
16656  &, 0.384983e+00_jprb, 0.370461e+00_jprb, 0.356140e+00_jprb, 0.342035e+00_jprb &
16657  &, 0.328162e+00_jprb, 0.314524e+00_jprb, 0.301135e+00_jprb &
16658  &, 0.288022e+00_jprb, 0.275200e+00_jprb, 0.262656e+00_jprb, 0.250413e+00_jprb &
16659  &, 0.238483e+00_jprb, 0.226859e+00_jprb, 0.215564e+00_jprb &
16660  &, 0.204604e+00_jprb, 0.193983e+00_jprb, 0.183702e+00_jprb, 0.173746e+00_jprb &
16661  &, 0.164145e+00_jprb, 0.154895e+00_jprb, 0.145988e+00_jprb &
16662  &, 0.137434e+00_jprb, 0.129222e+00_jprb, 0.121355e+00_jprb, 0.113818e+00_jprb &
16663  &, 0.106628e+00_jprb, 0.997651e-01_jprb, 0.932242e-01_jprb &
16664  &, 0.869985e-01_jprb, 0.810786e-01_jprb, 0.754748e-01_jprb, 0.701741e-01_jprb &
16665  &, 0.651608e-01_jprb, 0.604163e-01_jprb, 0.559430e-01_jprb &
16666  &, 0.517422e-01_jprb, 0.477891e-01_jprb, 0.440812e-01_jprb, 0.406143e-01_jprb &
16667  &, 0.373831e-01_jprb, 0.343270e-01_jprb, 0.315166e-01_jprb &
16668  &, 0.288876e-01_jprb, 0.264269e-01_jprb, 0.241484e-01_jprb, 0.220369e-01_jprb &
16669  &, 0.201053e-01_jprb, 0.183061e-01_jprb, 0.166183e-01_jprb &
16670  &, 0.150825e-01_jprb, 0.136773e-01_jprb, 0.123791e-01_jprb, 0.111958e-01_jprb &
16671  &, 0.101014e-01_jprb, 0.913666e-02_jprb, 0.820454e-02_jprb &
16672  &, 0.737959e-02_jprb, 0.663219e-02_jprb, 0.593041e-02_jprb, 0.531518e-02_jprb &
16673  &, 0.475353e-02_jprb, 0.424891e-02_jprb, 0.380486e-02_jprb &
16674  &, 0.338483e-02_jprb, 0.299053e-02_jprb, 0.266522e-02_jprb, 0.237053e-02_jprb &
16675  &, 0.210832e-02_jprb, 0.183698e-02_jprb, 0.164473e-02_jprb &
16676  &, 0.144585e-02_jprb, 0.128581e-02_jprb, 0.112036e-02_jprb, 0.996400e-03_jprb &
16677  &, 0.868307e-03_jprb, 0.736029e-03_jprb, 0.648640e-03_jprb &
16678  &, 0.558419e-03_jprb, 0.465332e-03_jprb, 0.420676e-03_jprb, 0.374578e-03_jprb &
16679  &, 0.327019e-03_jprb, 0.277982e-03_jprb, 0.227450e-03_jprb &
16680  &, 0.175403e-03_jprb, 0.177736e-03_jprb, 0.123392e-03_jprb, 0.124971e-03_jprb &
16681  &, 0.682814e-04_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16682  &, 0.707043e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16683  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16684 xcw( 380, :) = (/ &
16685  & 0.966332e+00_jprb, 0.957014e+00_jprb, 0.947349e+00_jprb, 0.937345e+00_jprb &
16686  &, 0.927005e+00_jprb, 0.916339e+00_jprb, 0.905353e+00_jprb &
16687  &, 0.894054e+00_jprb, 0.882453e+00_jprb, 0.870554e+00_jprb, 0.858368e+00_jprb &
16688  &, 0.845901e+00_jprb, 0.833166e+00_jprb, 0.820170e+00_jprb &
16689  &, 0.806923e+00_jprb, 0.793435e+00_jprb, 0.779716e+00_jprb, 0.765780e+00_jprb &
16690  &, 0.751634e+00_jprb, 0.737291e+00_jprb, 0.722767e+00_jprb &
16691  &, 0.708072e+00_jprb, 0.693219e+00_jprb, 0.678221e+00_jprb, 0.663093e+00_jprb &
16692  &, 0.647847e+00_jprb, 0.632504e+00_jprb, 0.617071e+00_jprb &
16693  &, 0.601573e+00_jprb, 0.586018e+00_jprb, 0.570426e+00_jprb, 0.554815e+00_jprb &
16694  &, 0.539198e+00_jprb, 0.523595e+00_jprb, 0.508018e+00_jprb &
16695  &, 0.492495e+00_jprb, 0.477028e+00_jprb, 0.461655e+00_jprb, 0.446375e+00_jprb &
16696  &, 0.431206e+00_jprb, 0.416180e+00_jprb, 0.401300e+00_jprb &
16697  &, 0.386589e+00_jprb, 0.372050e+00_jprb, 0.357722e+00_jprb, 0.343597e+00_jprb &
16698  &, 0.329701e+00_jprb, 0.316051e+00_jprb, 0.302648e+00_jprb &
16699  &, 0.289520e+00_jprb, 0.276667e+00_jprb, 0.264089e+00_jprb, 0.251824e+00_jprb &
16700  &, 0.239870e+00_jprb, 0.228220e+00_jprb, 0.216897e+00_jprb &
16701  &, 0.205906e+00_jprb, 0.195251e+00_jprb, 0.184935e+00_jprb, 0.174958e+00_jprb &
16702  &, 0.165316e+00_jprb, 0.156040e+00_jprb, 0.147089e+00_jprb &
16703  &, 0.138505e+00_jprb, 0.130242e+00_jprb, 0.122341e+00_jprb, 0.114767e+00_jprb &
16704  &, 0.107538e+00_jprb, 0.100634e+00_jprb, 0.940502e-01_jprb &
16705  &, 0.877998e-01_jprb, 0.818538e-01_jprb, 0.762222e-01_jprb, 0.708697e-01_jprb &
16706  &, 0.658249e-01_jprb, 0.610472e-01_jprb, 0.565629e-01_jprb &
16707  &, 0.523259e-01_jprb, 0.483349e-01_jprb, 0.446125e-01_jprb, 0.411044e-01_jprb &
16708  &, 0.378302e-01_jprb, 0.347560e-01_jprb, 0.318991e-01_jprb &
16709  &, 0.292496e-01_jprb, 0.267674e-01_jprb, 0.244664e-01_jprb, 0.223608e-01_jprb &
16710  &, 0.203753e-01_jprb, 0.185504e-01_jprb, 0.168671e-01_jprb &
16711  &, 0.153358e-01_jprb, 0.139029e-01_jprb, 0.125760e-01_jprb, 0.113962e-01_jprb &
16712  &, 0.102712e-01_jprb, 0.927494e-02_jprb, 0.834522e-02_jprb &
16713  &, 0.752269e-02_jprb, 0.674134e-02_jprb, 0.604142e-02_jprb, 0.542806e-02_jprb &
16714  &, 0.486829e-02_jprb, 0.432668e-02_jprb, 0.388392e-02_jprb &
16715  &, 0.346518e-02_jprb, 0.307219e-02_jprb, 0.270671e-02_jprb, 0.241269e-02_jprb &
16716  &, 0.215115e-02_jprb, 0.188048e-02_jprb, 0.168891e-02_jprb &
16717  &, 0.149072e-02_jprb, 0.128581e-02_jprb, 0.112036e-02_jprb, 0.996400e-03_jprb &
16718  &, 0.868307e-03_jprb, 0.784431e-03_jprb, 0.648640e-03_jprb &
16719  &, 0.558419e-03_jprb, 0.515924e-03_jprb, 0.420676e-03_jprb, 0.374578e-03_jprb &
16720  &, 0.327019e-03_jprb, 0.277982e-03_jprb, 0.227450e-03_jprb &
16721  &, 0.175403e-03_jprb, 0.177736e-03_jprb, 0.123392e-03_jprb, 0.124971e-03_jprb &
16722  &, 0.126563e-03_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16723  &, 0.707043e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16724  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16725 xcw( 381, :) = (/ &
16726  & 0.966588e+00_jprb, 0.957334e+00_jprb, 0.947729e+00_jprb, 0.937786e+00_jprb &
16727  &, 0.927506e+00_jprb, 0.916898e+00_jprb, 0.905969e+00_jprb &
16728  &, 0.894726e+00_jprb, 0.883180e+00_jprb, 0.871335e+00_jprb, 0.859201e+00_jprb &
16729  &, 0.846786e+00_jprb, 0.834101e+00_jprb, 0.821153e+00_jprb &
16730  &, 0.807953e+00_jprb, 0.794511e+00_jprb, 0.780837e+00_jprb, 0.766942e+00_jprb &
16731  &, 0.752837e+00_jprb, 0.738535e+00_jprb, 0.724048e+00_jprb &
16732  &, 0.709385e+00_jprb, 0.694565e+00_jprb, 0.679602e+00_jprb, 0.664503e+00_jprb &
16733  &, 0.649288e+00_jprb, 0.633968e+00_jprb, 0.618564e+00_jprb &
16734  &, 0.603086e+00_jprb, 0.587548e+00_jprb, 0.571978e+00_jprb, 0.556381e+00_jprb &
16735  &, 0.540778e+00_jprb, 0.525188e+00_jprb, 0.509619e+00_jprb &
16736  &, 0.494104e+00_jprb, 0.478649e+00_jprb, 0.463269e+00_jprb, 0.447989e+00_jprb &
16737  &, 0.432830e+00_jprb, 0.417793e+00_jprb, 0.402909e+00_jprb &
16738  &, 0.388184e+00_jprb, 0.373640e+00_jprb, 0.359305e+00_jprb, 0.345159e+00_jprb &
16739  &, 0.331253e+00_jprb, 0.317578e+00_jprb, 0.304162e+00_jprb &
16740  &, 0.291018e+00_jprb, 0.278134e+00_jprb, 0.265537e+00_jprb, 0.253250e+00_jprb &
16741  &, 0.241257e+00_jprb, 0.229581e+00_jprb, 0.218229e+00_jprb &
16742  &, 0.207208e+00_jprb, 0.196520e+00_jprb, 0.186168e+00_jprb, 0.176153e+00_jprb &
16743  &, 0.166488e+00_jprb, 0.157169e+00_jprb, 0.148189e+00_jprb &
16744  &, 0.139558e+00_jprb, 0.131281e+00_jprb, 0.123327e+00_jprb, 0.115735e+00_jprb &
16745  &, 0.108449e+00_jprb, 0.101524e+00_jprb, 0.948969e-01_jprb &
16746  &, 0.886012e-01_jprb, 0.826289e-01_jprb, 0.769477e-01_jprb, 0.715877e-01_jprb &
16747  &, 0.664890e-01_jprb, 0.616781e-01_jprb, 0.571589e-01_jprb &
16748  &, 0.528853e-01_jprb, 0.488807e-01_jprb, 0.451184e-01_jprb, 0.415946e-01_jprb &
16749  &, 0.382773e-01_jprb, 0.351849e-01_jprb, 0.323090e-01_jprb &
16750  &, 0.296395e-01_jprb, 0.271363e-01_jprb, 0.248133e-01_jprb, 0.226553e-01_jprb &
16751  &, 0.206752e-01_jprb, 0.188253e-01_jprb, 0.171159e-01_jprb &
16752  &, 0.155575e-01_jprb, 0.140963e-01_jprb, 0.127728e-01_jprb, 0.115631e-01_jprb &
16753  &, 0.104411e-01_jprb, 0.941323e-02_jprb, 0.848590e-02_jprb &
16754  &, 0.763001e-02_jprb, 0.688689e-02_jprb, 0.615242e-02_jprb, 0.554094e-02_jprb &
16755  &, 0.494480e-02_jprb, 0.440446e-02_jprb, 0.396298e-02_jprb &
16756  &, 0.350536e-02_jprb, 0.311302e-02_jprb, 0.278968e-02_jprb, 0.245484e-02_jprb &
16757  &, 0.219397e-02_jprb, 0.192398e-02_jprb, 0.168891e-02_jprb &
16758  &, 0.149072e-02_jprb, 0.133138e-02_jprb, 0.116663e-02_jprb, 0.104337e-02_jprb &
16759  &, 0.915991e-03_jprb, 0.784431e-03_jprb, 0.697766e-03_jprb &
16760  &, 0.608276e-03_jprb, 0.515924e-03_jprb, 0.472010e-03_jprb, 0.374578e-03_jprb &
16761  &, 0.327019e-03_jprb, 0.277982e-03_jprb, 0.227450e-03_jprb &
16762  &, 0.230537e-03_jprb, 0.177736e-03_jprb, 0.123392e-03_jprb, 0.124971e-03_jprb &
16763  &, 0.126563e-03_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16764  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16765  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16766 xcw( 382, :) = (/ &
16767  & 0.966846e+00_jprb, 0.957654e+00_jprb, 0.948110e+00_jprb, 0.938227e+00_jprb &
16768  &, 0.928005e+00_jprb, 0.917456e+00_jprb, 0.906585e+00_jprb &
16769  &, 0.895399e+00_jprb, 0.883907e+00_jprb, 0.872116e+00_jprb, 0.860034e+00_jprb &
16770  &, 0.847672e+00_jprb, 0.835035e+00_jprb, 0.822136e+00_jprb &
16771  &, 0.808982e+00_jprb, 0.795586e+00_jprb, 0.781956e+00_jprb, 0.768104e+00_jprb &
16772  &, 0.754041e+00_jprb, 0.739775e+00_jprb, 0.725325e+00_jprb &
16773  &, 0.710701e+00_jprb, 0.695915e+00_jprb, 0.680983e+00_jprb, 0.665913e+00_jprb &
16774  &, 0.650728e+00_jprb, 0.635436e+00_jprb, 0.620052e+00_jprb &
16775  &, 0.604599e+00_jprb, 0.589083e+00_jprb, 0.573527e+00_jprb, 0.557947e+00_jprb &
16776  &, 0.542357e+00_jprb, 0.526780e+00_jprb, 0.511225e+00_jprb &
16777  &, 0.495713e+00_jprb, 0.480261e+00_jprb, 0.464892e+00_jprb, 0.449613e+00_jprb &
16778  &, 0.434444e+00_jprb, 0.419405e+00_jprb, 0.404519e+00_jprb &
16779  &, 0.389789e+00_jprb, 0.375240e+00_jprb, 0.360887e+00_jprb, 0.346733e+00_jprb &
16780  &, 0.332805e+00_jprb, 0.319118e+00_jprb, 0.305688e+00_jprb &
16781  &, 0.292516e+00_jprb, 0.279615e+00_jprb, 0.266998e+00_jprb, 0.254676e+00_jprb &
16782  &, 0.242659e+00_jprb, 0.230957e+00_jprb, 0.219577e+00_jprb &
16783  &, 0.208525e+00_jprb, 0.197804e+00_jprb, 0.187418e+00_jprb, 0.177381e+00_jprb &
16784  &, 0.167676e+00_jprb, 0.158314e+00_jprb, 0.149307e+00_jprb &
16785  &, 0.140628e+00_jprb, 0.132320e+00_jprb, 0.124332e+00_jprb, 0.116685e+00_jprb &
16786  &, 0.109379e+00_jprb, 0.102414e+00_jprb, 0.957641e-01_jprb &
16787  &, 0.894236e-01_jprb, 0.834041e-01_jprb, 0.776950e-01_jprb, 0.722833e-01_jprb &
16788  &, 0.671760e-01_jprb, 0.623324e-01_jprb, 0.577788e-01_jprb &
16789  &, 0.534690e-01_jprb, 0.494264e-01_jprb, 0.456244e-01_jprb, 0.420847e-01_jprb &
16790  &, 0.387507e-01_jprb, 0.356139e-01_jprb, 0.327189e-01_jprb &
16791  &, 0.300015e-01_jprb, 0.274768e-01_jprb, 0.251313e-01_jprb, 0.229792e-01_jprb &
16792  &, 0.209451e-01_jprb, 0.191002e-01_jprb, 0.173647e-01_jprb &
16793  &, 0.157792e-01_jprb, 0.143220e-01_jprb, 0.129697e-01_jprb, 0.117635e-01_jprb &
16794  &, 0.106110e-01_jprb, 0.958608e-02_jprb, 0.862658e-02_jprb &
16795  &, 0.777311e-02_jprb, 0.699604e-02_jprb, 0.626343e-02_jprb, 0.561619e-02_jprb &
16796  &, 0.502131e-02_jprb, 0.452113e-02_jprb, 0.400251e-02_jprb &
16797  &, 0.358571e-02_jprb, 0.319468e-02_jprb, 0.283117e-02_jprb, 0.249699e-02_jprb &
16798  &, 0.223679e-02_jprb, 0.196748e-02_jprb, 0.173310e-02_jprb &
16799  &, 0.153559e-02_jprb, 0.137694e-02_jprb, 0.121289e-02_jprb, 0.104337e-02_jprb &
16800  &, 0.915991e-03_jprb, 0.784431e-03_jprb, 0.697766e-03_jprb &
16801  &, 0.608276e-03_jprb, 0.515924e-03_jprb, 0.472010e-03_jprb, 0.374578e-03_jprb &
16802  &, 0.327019e-03_jprb, 0.277982e-03_jprb, 0.227450e-03_jprb &
16803  &, 0.230537e-03_jprb, 0.177736e-03_jprb, 0.180088e-03_jprb, 0.124971e-03_jprb &
16804  &, 0.126563e-03_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16805  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16806  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16807 xcw( 383, :) = (/ &
16808  & 0.967104e+00_jprb, 0.957972e+00_jprb, 0.948490e+00_jprb, 0.938667e+00_jprb &
16809  &, 0.928505e+00_jprb, 0.918015e+00_jprb, 0.907201e+00_jprb &
16810  &, 0.896071e+00_jprb, 0.884634e+00_jprb, 0.872897e+00_jprb, 0.860868e+00_jprb &
16811  &, 0.848555e+00_jprb, 0.835969e+00_jprb, 0.823120e+00_jprb &
16812  &, 0.810013e+00_jprb, 0.796663e+00_jprb, 0.783077e+00_jprb, 0.769267e+00_jprb &
16813  &, 0.755244e+00_jprb, 0.741019e+00_jprb, 0.726606e+00_jprb &
16814  &, 0.712018e+00_jprb, 0.697265e+00_jprb, 0.682365e+00_jprb, 0.667327e+00_jprb &
16815  &, 0.652168e+00_jprb, 0.636903e+00_jprb, 0.621544e+00_jprb &
16816  &, 0.606112e+00_jprb, 0.590618e+00_jprb, 0.575083e+00_jprb, 0.559517e+00_jprb &
16817  &, 0.543945e+00_jprb, 0.528377e+00_jprb, 0.512831e+00_jprb &
16818  &, 0.497322e+00_jprb, 0.481882e+00_jprb, 0.466515e+00_jprb, 0.451237e+00_jprb &
16819  &, 0.436068e+00_jprb, 0.421028e+00_jprb, 0.406129e+00_jprb &
16820  &, 0.391395e+00_jprb, 0.376841e+00_jprb, 0.362469e+00_jprb, 0.348307e+00_jprb &
16821  &, 0.334369e+00_jprb, 0.320621e+00_jprb, 0.307214e+00_jprb &
16822  &, 0.294014e+00_jprb, 0.281095e+00_jprb, 0.268445e+00_jprb, 0.256101e+00_jprb &
16823  &, 0.244061e+00_jprb, 0.232333e+00_jprb, 0.220925e+00_jprb &
16824  &, 0.209842e+00_jprb, 0.199089e+00_jprb, 0.188667e+00_jprb, 0.178593e+00_jprb &
16825  &, 0.168847e+00_jprb, 0.159460e+00_jprb, 0.150408e+00_jprb &
16826  &, 0.141717e+00_jprb, 0.133358e+00_jprb, 0.125336e+00_jprb, 0.117653e+00_jprb &
16827  &, 0.110309e+00_jprb, 0.103303e+00_jprb, 0.966108e-01_jprb &
16828  &, 0.902461e-01_jprb, 0.842008e-01_jprb, 0.784424e-01_jprb, 0.730013e-01_jprb &
16829  &, 0.678630e-01_jprb, 0.629867e-01_jprb, 0.583748e-01_jprb &
16830  &, 0.540527e-01_jprb, 0.499722e-01_jprb, 0.461557e-01_jprb, 0.425749e-01_jprb &
16831  &, 0.391978e-01_jprb, 0.360697e-01_jprb, 0.331288e-01_jprb &
16832  &, 0.303914e-01_jprb, 0.278457e-01_jprb, 0.254782e-01_jprb, 0.232737e-01_jprb &
16833  &, 0.212451e-01_jprb, 0.193751e-01_jprb, 0.176136e-01_jprb &
16834  &, 0.160325e-01_jprb, 0.145476e-01_jprb, 0.131994e-01_jprb, 0.119304e-01_jprb &
16835  &, 0.107809e-01_jprb, 0.975893e-02_jprb, 0.880243e-02_jprb &
16836  &, 0.791621e-02_jprb, 0.710520e-02_jprb, 0.637444e-02_jprb, 0.572906e-02_jprb &
16837  &, 0.513607e-02_jprb, 0.459891e-02_jprb, 0.408157e-02_jprb &
16838  &, 0.366606e-02_jprb, 0.323550e-02_jprb, 0.291415e-02_jprb, 0.258130e-02_jprb &
16839  &, 0.227962e-02_jprb, 0.201098e-02_jprb, 0.177728e-02_jprb &
16840  &, 0.158046e-02_jprb, 0.137694e-02_jprb, 0.121289e-02_jprb, 0.109034e-02_jprb &
16841  &, 0.915991e-03_jprb, 0.832833e-03_jprb, 0.697766e-03_jprb &
16842  &, 0.608276e-03_jprb, 0.566517e-03_jprb, 0.472010e-03_jprb, 0.426660e-03_jprb &
16843  &, 0.327019e-03_jprb, 0.277982e-03_jprb, 0.281812e-03_jprb &
16844  &, 0.230537e-03_jprb, 0.177736e-03_jprb, 0.180088e-03_jprb, 0.124971e-03_jprb &
16845  &, 0.126563e-03_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16846  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16847  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16848 xcw( 384, :) = (/ &
16849  & 0.967358e+00_jprb, 0.958292e+00_jprb, 0.948870e+00_jprb, 0.939107e+00_jprb &
16850  &, 0.929006e+00_jprb, 0.918573e+00_jprb, 0.907816e+00_jprb &
16851  &, 0.896743e+00_jprb, 0.885361e+00_jprb, 0.873677e+00_jprb, 0.861702e+00_jprb &
16852  &, 0.849441e+00_jprb, 0.836904e+00_jprb, 0.824102e+00_jprb &
16853  &, 0.811044e+00_jprb, 0.797738e+00_jprb, 0.784196e+00_jprb, 0.770429e+00_jprb &
16854  &, 0.756447e+00_jprb, 0.742262e+00_jprb, 0.727887e+00_jprb &
16855  &, 0.713334e+00_jprb, 0.698618e+00_jprb, 0.683749e+00_jprb, 0.668741e+00_jprb &
16856  &, 0.653609e+00_jprb, 0.638371e+00_jprb, 0.623040e+00_jprb &
16857  &, 0.607629e+00_jprb, 0.592156e+00_jprb, 0.576635e+00_jprb, 0.561091e+00_jprb &
16858  &, 0.545529e+00_jprb, 0.529974e+00_jprb, 0.514441e+00_jprb &
16859  &, 0.498941e+00_jprb, 0.483503e+00_jprb, 0.468138e+00_jprb, 0.452861e+00_jprb &
16860  &, 0.437692e+00_jprb, 0.422651e+00_jprb, 0.407749e+00_jprb &
16861  &, 0.393012e+00_jprb, 0.378441e+00_jprb, 0.364063e+00_jprb, 0.349893e+00_jprb &
16862  &, 0.335933e+00_jprb, 0.322211e+00_jprb, 0.308741e+00_jprb &
16863  &, 0.295525e+00_jprb, 0.282576e+00_jprb, 0.269920e+00_jprb, 0.257541e+00_jprb &
16864  &, 0.245477e+00_jprb, 0.233723e+00_jprb, 0.222272e+00_jprb &
16865  &, 0.211159e+00_jprb, 0.200373e+00_jprb, 0.189933e+00_jprb, 0.179821e+00_jprb &
16866  &, 0.170053e+00_jprb, 0.160623e+00_jprb, 0.151544e+00_jprb &
16867  &, 0.142806e+00_jprb, 0.134397e+00_jprb, 0.126341e+00_jprb, 0.118641e+00_jprb &
16868  &, 0.111259e+00_jprb, 0.104213e+00_jprb, 0.974781e-01_jprb &
16869  &, 0.910685e-01_jprb, 0.849975e-01_jprb, 0.792118e-01_jprb, 0.737194e-01_jprb &
16870  &, 0.685500e-01_jprb, 0.636410e-01_jprb, 0.590186e-01_jprb &
16871  &, 0.546365e-01_jprb, 0.505428e-01_jprb, 0.466870e-01_jprb, 0.430650e-01_jprb &
16872  &, 0.396712e-01_jprb, 0.364986e-01_jprb, 0.335387e-01_jprb &
16873  &, 0.307812e-01_jprb, 0.282145e-01_jprb, 0.258251e-01_jprb, 0.235976e-01_jprb &
16874  &, 0.215450e-01_jprb, 0.196500e-01_jprb, 0.178935e-01_jprb &
16875  &, 0.162541e-01_jprb, 0.147733e-01_jprb, 0.133962e-01_jprb, 0.121308e-01_jprb &
16876  &, 0.109508e-01_jprb, 0.989722e-02_jprb, 0.894311e-02_jprb &
16877  &, 0.805931e-02_jprb, 0.725074e-02_jprb, 0.648545e-02_jprb, 0.584194e-02_jprb &
16878  &, 0.521258e-02_jprb, 0.467668e-02_jprb, 0.416063e-02_jprb &
16879  &, 0.374641e-02_jprb, 0.331716e-02_jprb, 0.295563e-02_jprb, 0.262345e-02_jprb &
16880  &, 0.232244e-02_jprb, 0.205447e-02_jprb, 0.182146e-02_jprb &
16881  &, 0.162533e-02_jprb, 0.142251e-02_jprb, 0.125916e-02_jprb, 0.109034e-02_jprb &
16882  &, 0.963674e-03_jprb, 0.832833e-03_jprb, 0.746892e-03_jprb &
16883  &, 0.658132e-03_jprb, 0.566517e-03_jprb, 0.472010e-03_jprb, 0.426660e-03_jprb &
16884  &, 0.379856e-03_jprb, 0.331579e-03_jprb, 0.281812e-03_jprb &
16885  &, 0.230537e-03_jprb, 0.177736e-03_jprb, 0.180088e-03_jprb, 0.124971e-03_jprb &
16886  &, 0.126563e-03_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16887  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16888  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16889 xcw( 385, :) = (/ &
16890  & 0.967617e+00_jprb, 0.958609e+00_jprb, 0.949251e+00_jprb, 0.939548e+00_jprb &
16891  &, 0.929505e+00_jprb, 0.919131e+00_jprb, 0.908432e+00_jprb &
16892  &, 0.897415e+00_jprb, 0.886087e+00_jprb, 0.874458e+00_jprb, 0.862535e+00_jprb &
16893  &, 0.850324e+00_jprb, 0.837839e+00_jprb, 0.825086e+00_jprb &
16894  &, 0.812075e+00_jprb, 0.798815e+00_jprb, 0.785316e+00_jprb, 0.771592e+00_jprb &
16895  &, 0.757652e+00_jprb, 0.743506e+00_jprb, 0.729171e+00_jprb &
16896  &, 0.714653e+00_jprb, 0.699968e+00_jprb, 0.685131e+00_jprb, 0.670155e+00_jprb &
16897  &, 0.655053e+00_jprb, 0.639843e+00_jprb, 0.624532e+00_jprb &
16898  &, 0.609146e+00_jprb, 0.593695e+00_jprb, 0.578196e+00_jprb, 0.562662e+00_jprb &
16899  &, 0.547117e+00_jprb, 0.531576e+00_jprb, 0.516051e+00_jprb &
16900  &, 0.500559e+00_jprb, 0.485125e+00_jprb, 0.469761e+00_jprb, 0.454496e+00_jprb &
16901  &, 0.439326e+00_jprb, 0.424284e+00_jprb, 0.409370e+00_jprb &
16902  &, 0.394629e+00_jprb, 0.380053e+00_jprb, 0.365657e+00_jprb, 0.351467e+00_jprb &
16903  &, 0.337497e+00_jprb, 0.323763e+00_jprb, 0.310267e+00_jprb &
16904  &, 0.297036e+00_jprb, 0.284070e+00_jprb, 0.271381e+00_jprb, 0.258980e+00_jprb &
16905  &, 0.246893e+00_jprb, 0.235099e+00_jprb, 0.223635e+00_jprb &
16906  &, 0.212492e+00_jprb, 0.201674e+00_jprb, 0.191182e+00_jprb, 0.181049e+00_jprb &
16907  &, 0.171241e+00_jprb, 0.161786e+00_jprb, 0.152662e+00_jprb &
16908  &, 0.143895e+00_jprb, 0.135454e+00_jprb, 0.127365e+00_jprb, 0.119610e+00_jprb &
16909  &, 0.112189e+00_jprb, 0.105103e+00_jprb, 0.983454e-01_jprb &
16910  &, 0.919120e-01_jprb, 0.857942e-01_jprb, 0.799812e-01_jprb, 0.744598e-01_jprb &
16911  &, 0.692370e-01_jprb, 0.642953e-01_jprb, 0.596385e-01_jprb &
16912  &, 0.552445e-01_jprb, 0.511133e-01_jprb, 0.472183e-01_jprb, 0.435551e-01_jprb &
16913  &, 0.401446e-01_jprb, 0.369544e-01_jprb, 0.339759e-01_jprb &
16914  &, 0.311711e-01_jprb, 0.285834e-01_jprb, 0.261720e-01_jprb, 0.239215e-01_jprb &
16915  &, 0.218449e-01_jprb, 0.199249e-01_jprb, 0.181423e-01_jprb &
16916  &, 0.165074e-01_jprb, 0.149989e-01_jprb, 0.135931e-01_jprb, 0.123311e-01_jprb &
16917  &, 0.111547e-01_jprb, 0.100701e-01_jprb, 0.908379e-02_jprb &
16918  &, 0.820241e-02_jprb, 0.735990e-02_jprb, 0.663346e-02_jprb, 0.595482e-02_jprb &
16919  &, 0.532734e-02_jprb, 0.475446e-02_jprb, 0.423969e-02_jprb &
16920  &, 0.378659e-02_jprb, 0.339882e-02_jprb, 0.299712e-02_jprb, 0.266560e-02_jprb &
16921  &, 0.236526e-02_jprb, 0.209797e-02_jprb, 0.186564e-02_jprb &
16922  &, 0.162533e-02_jprb, 0.146807e-02_jprb, 0.125916e-02_jprb, 0.113731e-02_jprb &
16923  &, 0.963674e-03_jprb, 0.881235e-03_jprb, 0.746892e-03_jprb &
16924  &, 0.658132e-03_jprb, 0.566517e-03_jprb, 0.523345e-03_jprb, 0.426660e-03_jprb &
16925  &, 0.379856e-03_jprb, 0.331579e-03_jprb, 0.281812e-03_jprb &
16926  &, 0.230537e-03_jprb, 0.177736e-03_jprb, 0.180088e-03_jprb, 0.124971e-03_jprb &
16927  &, 0.126563e-03_jprb, 0.690831e-04_jprb, 0.698907e-04_jprb &
16928  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16929  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16930 
16931 IF (lhook) CALL dr_hook('SU_MCICA:PART55',1,zhook_handle)
16932 END SUBROUTINE part55
16933 
16934 #ifdef VPP5000
16935 !OCL SCALAR
16936 #endif
16937 !option! -Nv -NO
16938 #ifdef RS6K
16939 @process nooptimize
16940 #endif
16941 !pgi$r opt=0
16942 SUBROUTINE part56
16943 
16944 REAL(KIND=JPRB) :: ZHOOK_HANDLE
16945 IF (lhook) CALL dr_hook('SU_MCICA:PART56',0,zhook_handle)
16946 
16947 xcw( 386, :) = (/ &
16948  & 0.967874e+00_jprb, 0.958927e+00_jprb, 0.949630e+00_jprb, 0.939988e+00_jprb &
16949  &, 0.930005e+00_jprb, 0.919689e+00_jprb, 0.909047e+00_jprb &
16950  &, 0.898086e+00_jprb, 0.886813e+00_jprb, 0.875238e+00_jprb, 0.863368e+00_jprb &
16951  &, 0.851210e+00_jprb, 0.838774e+00_jprb, 0.826068e+00_jprb &
16952  &, 0.813105e+00_jprb, 0.799890e+00_jprb, 0.786438e+00_jprb, 0.772755e+00_jprb &
16953  &, 0.758857e+00_jprb, 0.744750e+00_jprb, 0.730452e+00_jprb &
16954  &, 0.715970e+00_jprb, 0.701321e+00_jprb, 0.686512e+00_jprb, 0.671572e+00_jprb &
16955  &, 0.656497e+00_jprb, 0.641314e+00_jprb, 0.626028e+00_jprb &
16956  &, 0.610664e+00_jprb, 0.595234e+00_jprb, 0.579752e+00_jprb, 0.564240e+00_jprb &
16957  &, 0.548710e+00_jprb, 0.533178e+00_jprb, 0.517662e+00_jprb &
16958  &, 0.502178e+00_jprb, 0.486755e+00_jprb, 0.471394e+00_jprb, 0.456130e+00_jprb &
16959  &, 0.440961e+00_jprb, 0.425907e+00_jprb, 0.411001e+00_jprb &
16960  &, 0.396246e+00_jprb, 0.381654e+00_jprb, 0.367263e+00_jprb, 0.353053e+00_jprb &
16961  &, 0.339073e+00_jprb, 0.325316e+00_jprb, 0.311807e+00_jprb &
16962  &, 0.298547e+00_jprb, 0.285564e+00_jprb, 0.272856e+00_jprb, 0.260434e+00_jprb &
16963  &, 0.248309e+00_jprb, 0.236490e+00_jprb, 0.224998e+00_jprb &
16964  &, 0.213825e+00_jprb, 0.202974e+00_jprb, 0.192464e+00_jprb, 0.182277e+00_jprb &
16965  &, 0.172446e+00_jprb, 0.162949e+00_jprb, 0.153798e+00_jprb &
16966  &, 0.144983e+00_jprb, 0.136512e+00_jprb, 0.128388e+00_jprb, 0.120598e+00_jprb &
16967  &, 0.113139e+00_jprb, 0.106012e+00_jprb, 0.992334e-01_jprb &
16968  &, 0.927555e-01_jprb, 0.865909e-01_jprb, 0.807286e-01_jprb, 0.751778e-01_jprb &
16969  &, 0.699240e-01_jprb, 0.649496e-01_jprb, 0.602584e-01_jprb &
16970  &, 0.558282e-01_jprb, 0.516591e-01_jprb, 0.477496e-01_jprb, 0.440711e-01_jprb &
16971  &, 0.406180e-01_jprb, 0.374102e-01_jprb, 0.343858e-01_jprb &
16972  &, 0.315610e-01_jprb, 0.289523e-01_jprb, 0.265189e-01_jprb, 0.242454e-01_jprb &
16973  &, 0.221449e-01_jprb, 0.201998e-01_jprb, 0.184222e-01_jprb &
16974  &, 0.167608e-01_jprb, 0.152245e-01_jprb, 0.138227e-01_jprb, 0.124981e-01_jprb &
16975  &, 0.113245e-01_jprb, 0.102429e-01_jprb, 0.922446e-02_jprb &
16976  &, 0.830973e-02_jprb, 0.750544e-02_jprb, 0.674446e-02_jprb, 0.603007e-02_jprb &
16977  &, 0.540385e-02_jprb, 0.487113e-02_jprb, 0.435828e-02_jprb &
16978  &, 0.386694e-02_jprb, 0.343965e-02_jprb, 0.308010e-02_jprb, 0.274991e-02_jprb &
16979  &, 0.240808e-02_jprb, 0.214147e-02_jprb, 0.190982e-02_jprb &
16980  &, 0.167020e-02_jprb, 0.146807e-02_jprb, 0.130542e-02_jprb, 0.113731e-02_jprb &
16981  &, 0.101136e-02_jprb, 0.881235e-03_jprb, 0.796018e-03_jprb &
16982  &, 0.658132e-03_jprb, 0.566517e-03_jprb, 0.523345e-03_jprb, 0.426660e-03_jprb &
16983  &, 0.379856e-03_jprb, 0.331579e-03_jprb, 0.281812e-03_jprb &
16984  &, 0.230537e-03_jprb, 0.233649e-03_jprb, 0.180088e-03_jprb, 0.124971e-03_jprb &
16985  &, 0.126563e-03_jprb, 0.128166e-03_jprb, 0.698907e-04_jprb &
16986  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb &
16987  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
16988 xcw( 387, :) = (/ &
16989  & 0.968127e+00_jprb, 0.959247e+00_jprb, 0.950009e+00_jprb, 0.940427e+00_jprb &
16990  &, 0.930504e+00_jprb, 0.920247e+00_jprb, 0.909662e+00_jprb &
16991  &, 0.898757e+00_jprb, 0.887540e+00_jprb, 0.876018e+00_jprb, 0.864201e+00_jprb &
16992  &, 0.852093e+00_jprb, 0.839709e+00_jprb, 0.827052e+00_jprb &
16993  &, 0.814136e+00_jprb, 0.800967e+00_jprb, 0.787559e+00_jprb, 0.773920e+00_jprb &
16994  &, 0.760062e+00_jprb, 0.745996e+00_jprb, 0.731733e+00_jprb &
16995  &, 0.717289e+00_jprb, 0.702675e+00_jprb, 0.687903e+00_jprb, 0.672986e+00_jprb &
16996  &, 0.657945e+00_jprb, 0.642786e+00_jprb, 0.627528e+00_jprb &
16997  &, 0.612185e+00_jprb, 0.596776e+00_jprb, 0.581313e+00_jprb, 0.565814e+00_jprb &
16998  &, 0.550298e+00_jprb, 0.534784e+00_jprb, 0.519281e+00_jprb &
16999  &, 0.503805e+00_jprb, 0.488386e+00_jprb, 0.473027e+00_jprb, 0.457764e+00_jprb &
17000  &, 0.442595e+00_jprb, 0.427540e+00_jprb, 0.412632e+00_jprb &
17001  &, 0.397863e+00_jprb, 0.383277e+00_jprb, 0.368857e+00_jprb, 0.354651e+00_jprb &
17002  &, 0.340650e+00_jprb, 0.326881e+00_jprb, 0.313346e+00_jprb &
17003  &, 0.300071e+00_jprb, 0.287058e+00_jprb, 0.274330e+00_jprb, 0.261888e+00_jprb &
17004  &, 0.249740e+00_jprb, 0.237895e+00_jprb, 0.226361e+00_jprb &
17005  &, 0.215158e+00_jprb, 0.204274e+00_jprb, 0.193729e+00_jprb, 0.183522e+00_jprb &
17006  &, 0.173651e+00_jprb, 0.164113e+00_jprb, 0.154934e+00_jprb &
17007  &, 0.146090e+00_jprb, 0.137569e+00_jprb, 0.129412e+00_jprb, 0.121586e+00_jprb &
17008  &, 0.114089e+00_jprb, 0.106942e+00_jprb, 0.100101e+00_jprb &
17009  &, 0.935991e-01_jprb, 0.874091e-01_jprb, 0.815199e-01_jprb, 0.759183e-01_jprb &
17010  &, 0.706339e-01_jprb, 0.656273e-01_jprb, 0.609021e-01_jprb &
17011  &, 0.564363e-01_jprb, 0.522297e-01_jprb, 0.482808e-01_jprb, 0.445870e-01_jprb &
17012  &, 0.411177e-01_jprb, 0.378659e-01_jprb, 0.348230e-01_jprb &
17013  &, 0.319787e-01_jprb, 0.293212e-01_jprb, 0.268658e-01_jprb, 0.245694e-01_jprb &
17014  &, 0.224448e-01_jprb, 0.205053e-01_jprb, 0.186710e-01_jprb &
17015  &, 0.169824e-01_jprb, 0.154502e-01_jprb, 0.140196e-01_jprb, 0.126984e-01_jprb &
17016  &, 0.114944e-01_jprb, 0.104158e-01_jprb, 0.940031e-02_jprb &
17017  &, 0.845283e-02_jprb, 0.761460e-02_jprb, 0.685547e-02_jprb, 0.614294e-02_jprb &
17018  &, 0.551861e-02_jprb, 0.494891e-02_jprb, 0.443734e-02_jprb &
17019  &, 0.394730e-02_jprb, 0.352131e-02_jprb, 0.312159e-02_jprb, 0.279206e-02_jprb &
17020  &, 0.249373e-02_jprb, 0.218497e-02_jprb, 0.195400e-02_jprb &
17021  &, 0.171507e-02_jprb, 0.151364e-02_jprb, 0.135169e-02_jprb, 0.118429e-02_jprb &
17022  &, 0.101136e-02_jprb, 0.929637e-03_jprb, 0.796018e-03_jprb &
17023  &, 0.707988e-03_jprb, 0.617109e-03_jprb, 0.523345e-03_jprb, 0.478743e-03_jprb &
17024  &, 0.379856e-03_jprb, 0.331579e-03_jprb, 0.281812e-03_jprb &
17025  &, 0.230537e-03_jprb, 0.233649e-03_jprb, 0.180088e-03_jprb, 0.124971e-03_jprb &
17026  &, 0.126563e-03_jprb, 0.128166e-03_jprb, 0.698907e-04_jprb &
17027  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.100000e-04_jprb &
17028  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17029 xcw( 388, :) = (/ &
17030  & 0.968384e+00_jprb, 0.959564e+00_jprb, 0.950388e+00_jprb, 0.940867e+00_jprb &
17031  &, 0.931003e+00_jprb, 0.920804e+00_jprb, 0.910276e+00_jprb &
17032  &, 0.899428e+00_jprb, 0.888266e+00_jprb, 0.876799e+00_jprb, 0.865034e+00_jprb &
17033  &, 0.852979e+00_jprb, 0.840643e+00_jprb, 0.828036e+00_jprb &
17034  &, 0.815167e+00_jprb, 0.802044e+00_jprb, 0.788680e+00_jprb, 0.775083e+00_jprb &
17035  &, 0.761267e+00_jprb, 0.747240e+00_jprb, 0.733017e+00_jprb &
17036  &, 0.718609e+00_jprb, 0.704028e+00_jprb, 0.689288e+00_jprb, 0.674404e+00_jprb &
17037  &, 0.659389e+00_jprb, 0.644257e+00_jprb, 0.629028e+00_jprb &
17038  &, 0.613706e+00_jprb, 0.598319e+00_jprb, 0.582874e+00_jprb, 0.567393e+00_jprb &
17039  &, 0.551894e+00_jprb, 0.536389e+00_jprb, 0.520896e+00_jprb &
17040  &, 0.505433e+00_jprb, 0.490017e+00_jprb, 0.474670e+00_jprb, 0.459398e+00_jprb &
17041  &, 0.444229e+00_jprb, 0.429184e+00_jprb, 0.414264e+00_jprb &
17042  &, 0.399491e+00_jprb, 0.384889e+00_jprb, 0.370463e+00_jprb, 0.356248e+00_jprb &
17043  &, 0.342226e+00_jprb, 0.328446e+00_jprb, 0.314898e+00_jprb &
17044  &, 0.301596e+00_jprb, 0.288565e+00_jprb, 0.275805e+00_jprb, 0.263342e+00_jprb &
17045  &, 0.251171e+00_jprb, 0.239301e+00_jprb, 0.227739e+00_jprb &
17046  &, 0.216506e+00_jprb, 0.205591e+00_jprb, 0.195011e+00_jprb, 0.184767e+00_jprb &
17047  &, 0.174857e+00_jprb, 0.165293e+00_jprb, 0.156070e+00_jprb &
17048  &, 0.147179e+00_jprb, 0.138645e+00_jprb, 0.130455e+00_jprb, 0.122593e+00_jprb &
17049  &, 0.115059e+00_jprb, 0.107872e+00_jprb, 0.100989e+00_jprb &
17050  &, 0.944426e-01_jprb, 0.882058e-01_jprb, 0.822893e-01_jprb, 0.766812e-01_jprb &
17051  &, 0.713438e-01_jprb, 0.663050e-01_jprb, 0.615458e-01_jprb &
17052  &, 0.570443e-01_jprb, 0.528250e-01_jprb, 0.488374e-01_jprb, 0.451030e-01_jprb &
17053  &, 0.415912e-01_jprb, 0.383217e-01_jprb, 0.352329e-01_jprb &
17054  &, 0.323685e-01_jprb, 0.297184e-01_jprb, 0.272127e-01_jprb, 0.249227e-01_jprb &
17055  &, 0.227747e-01_jprb, 0.207802e-01_jprb, 0.189509e-01_jprb &
17056  &, 0.172357e-01_jprb, 0.156758e-01_jprb, 0.142493e-01_jprb, 0.128987e-01_jprb &
17057  &, 0.116983e-01_jprb, 0.105886e-01_jprb, 0.954099e-02_jprb &
17058  &, 0.859593e-02_jprb, 0.776014e-02_jprb, 0.696648e-02_jprb, 0.625582e-02_jprb &
17059  &, 0.563337e-02_jprb, 0.502669e-02_jprb, 0.451640e-02_jprb &
17060  &, 0.402765e-02_jprb, 0.360297e-02_jprb, 0.320456e-02_jprb, 0.283421e-02_jprb &
17061  &, 0.253655e-02_jprb, 0.222847e-02_jprb, 0.199819e-02_jprb &
17062  &, 0.175994e-02_jprb, 0.155920e-02_jprb, 0.135169e-02_jprb, 0.118429e-02_jprb &
17063  &, 0.105904e-02_jprb, 0.929637e-03_jprb, 0.796018e-03_jprb &
17064  &, 0.707988e-03_jprb, 0.617109e-03_jprb, 0.523345e-03_jprb, 0.478743e-03_jprb &
17065  &, 0.379856e-03_jprb, 0.331579e-03_jprb, 0.281812e-03_jprb &
17066  &, 0.230537e-03_jprb, 0.233649e-03_jprb, 0.180088e-03_jprb, 0.182457e-03_jprb &
17067  &, 0.126563e-03_jprb, 0.128166e-03_jprb, 0.698907e-04_jprb &
17068  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.100000e-04_jprb &
17069  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17070 xcw( 389, :) = (/ &
17071  & 0.968640e+00_jprb, 0.959883e+00_jprb, 0.950768e+00_jprb, 0.941307e+00_jprb &
17072  &, 0.931502e+00_jprb, 0.921361e+00_jprb, 0.910891e+00_jprb &
17073  &, 0.900099e+00_jprb, 0.888992e+00_jprb, 0.877579e+00_jprb, 0.865866e+00_jprb &
17074  &, 0.853862e+00_jprb, 0.841577e+00_jprb, 0.829019e+00_jprb &
17075  &, 0.816197e+00_jprb, 0.803121e+00_jprb, 0.789802e+00_jprb, 0.776248e+00_jprb &
17076  &, 0.762473e+00_jprb, 0.748487e+00_jprb, 0.734301e+00_jprb &
17077  &, 0.719929e+00_jprb, 0.705384e+00_jprb, 0.690676e+00_jprb, 0.675825e+00_jprb &
17078  &, 0.660836e+00_jprb, 0.645732e+00_jprb, 0.630527e+00_jprb &
17079  &, 0.615231e+00_jprb, 0.599862e+00_jprb, 0.584438e+00_jprb, 0.568976e+00_jprb &
17080  &, 0.553491e+00_jprb, 0.538000e+00_jprb, 0.522515e+00_jprb &
17081  &, 0.507061e+00_jprb, 0.491657e+00_jprb, 0.476313e+00_jprb, 0.461042e+00_jprb &
17082  &, 0.445874e+00_jprb, 0.430818e+00_jprb, 0.415895e+00_jprb &
17083  &, 0.401119e+00_jprb, 0.386513e+00_jprb, 0.372080e+00_jprb, 0.357846e+00_jprb &
17084  &, 0.343814e+00_jprb, 0.330011e+00_jprb, 0.316450e+00_jprb &
17085  &, 0.303133e+00_jprb, 0.290072e+00_jprb, 0.277294e+00_jprb, 0.264796e+00_jprb &
17086  &, 0.252601e+00_jprb, 0.240706e+00_jprb, 0.229117e+00_jprb &
17087  &, 0.217854e+00_jprb, 0.206907e+00_jprb, 0.196292e+00_jprb, 0.186012e+00_jprb &
17088  &, 0.176079e+00_jprb, 0.166474e+00_jprb, 0.157224e+00_jprb &
17089  &, 0.148304e+00_jprb, 0.139721e+00_jprb, 0.131479e+00_jprb, 0.123581e+00_jprb &
17090  &, 0.116029e+00_jprb, 0.108782e+00_jprb, 0.101877e+00_jprb &
17091  &, 0.953072e-01_jprb, 0.890240e-01_jprb, 0.830807e-01_jprb, 0.774217e-01_jprb &
17092  &, 0.720537e-01_jprb, 0.669827e-01_jprb, 0.621895e-01_jprb &
17093  &, 0.576524e-01_jprb, 0.533956e-01_jprb, 0.493940e-01_jprb, 0.456189e-01_jprb &
17094  &, 0.420909e-01_jprb, 0.387775e-01_jprb, 0.356701e-01_jprb &
17095  &, 0.327863e-01_jprb, 0.300873e-01_jprb, 0.275885e-01_jprb, 0.252466e-01_jprb &
17096  &, 0.230747e-01_jprb, 0.210856e-01_jprb, 0.192308e-01_jprb &
17097  &, 0.174891e-01_jprb, 0.159015e-01_jprb, 0.144461e-01_jprb, 0.130991e-01_jprb &
17098  &, 0.118682e-01_jprb, 0.107615e-01_jprb, 0.971684e-02_jprb &
17099  &, 0.877480e-02_jprb, 0.790568e-02_jprb, 0.711449e-02_jprb, 0.636870e-02_jprb &
17100  &, 0.570988e-02_jprb, 0.514335e-02_jprb, 0.459546e-02_jprb &
17101  &, 0.410800e-02_jprb, 0.368463e-02_jprb, 0.324605e-02_jprb, 0.291852e-02_jprb &
17102  &, 0.257938e-02_jprb, 0.227197e-02_jprb, 0.204237e-02_jprb &
17103  &, 0.180482e-02_jprb, 0.160477e-02_jprb, 0.139795e-02_jprb, 0.123126e-02_jprb &
17104  &, 0.110673e-02_jprb, 0.929637e-03_jprb, 0.845144e-03_jprb &
17105  &, 0.707988e-03_jprb, 0.617109e-03_jprb, 0.574679e-03_jprb, 0.478743e-03_jprb &
17106  &, 0.432692e-03_jprb, 0.385175e-03_jprb, 0.336174e-03_jprb &
17107  &, 0.285671e-03_jprb, 0.233649e-03_jprb, 0.180088e-03_jprb, 0.182457e-03_jprb &
17108  &, 0.126563e-03_jprb, 0.128166e-03_jprb, 0.698907e-04_jprb &
17109  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.100000e-04_jprb &
17110  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17111 xcw( 390, :) = (/ &
17112  & 0.968895e+00_jprb, 0.960199e+00_jprb, 0.951147e+00_jprb, 0.941746e+00_jprb &
17113  &, 0.932001e+00_jprb, 0.921919e+00_jprb, 0.911506e+00_jprb &
17114  &, 0.900770e+00_jprb, 0.889718e+00_jprb, 0.878359e+00_jprb, 0.866699e+00_jprb &
17115  &, 0.854748e+00_jprb, 0.842512e+00_jprb, 0.830002e+00_jprb &
17116  &, 0.817228e+00_jprb, 0.804197e+00_jprb, 0.790922e+00_jprb, 0.777413e+00_jprb &
17117  &, 0.763678e+00_jprb, 0.749734e+00_jprb, 0.735585e+00_jprb &
17118  &, 0.721251e+00_jprb, 0.706738e+00_jprb, 0.692065e+00_jprb, 0.677242e+00_jprb &
17119  &, 0.662288e+00_jprb, 0.647211e+00_jprb, 0.632027e+00_jprb &
17120  &, 0.616755e+00_jprb, 0.601408e+00_jprb, 0.586007e+00_jprb, 0.570559e+00_jprb &
17121  &, 0.555088e+00_jprb, 0.539610e+00_jprb, 0.524139e+00_jprb &
17122  &, 0.508689e+00_jprb, 0.493288e+00_jprb, 0.477955e+00_jprb, 0.462686e+00_jprb &
17123  &, 0.447519e+00_jprb, 0.432462e+00_jprb, 0.417537e+00_jprb &
17124  &, 0.402758e+00_jprb, 0.388136e+00_jprb, 0.373697e+00_jprb, 0.359444e+00_jprb &
17125  &, 0.345403e+00_jprb, 0.331588e+00_jprb, 0.318002e+00_jprb &
17126  &, 0.304657e+00_jprb, 0.291593e+00_jprb, 0.278783e+00_jprb, 0.266263e+00_jprb &
17127  &, 0.254047e+00_jprb, 0.242112e+00_jprb, 0.230510e+00_jprb &
17128  &, 0.219202e+00_jprb, 0.208239e+00_jprb, 0.197590e+00_jprb, 0.187273e+00_jprb &
17129  &, 0.177301e+00_jprb, 0.167671e+00_jprb, 0.158378e+00_jprb &
17130  &, 0.149411e+00_jprb, 0.140797e+00_jprb, 0.132540e+00_jprb, 0.124588e+00_jprb &
17131  &, 0.116999e+00_jprb, 0.109732e+00_jprb, 0.102785e+00_jprb &
17132  &, 0.961718e-01_jprb, 0.898637e-01_jprb, 0.838720e-01_jprb, 0.781845e-01_jprb &
17133  &, 0.727865e-01_jprb, 0.676603e-01_jprb, 0.628333e-01_jprb &
17134  &, 0.582847e-01_jprb, 0.539910e-01_jprb, 0.499506e-01_jprb, 0.461348e-01_jprb &
17135  &, 0.425906e-01_jprb, 0.392333e-01_jprb, 0.361073e-01_jprb &
17136  &, 0.332040e-01_jprb, 0.304845e-01_jprb, 0.279354e-01_jprb, 0.256000e-01_jprb &
17137  &, 0.234046e-01_jprb, 0.213605e-01_jprb, 0.194797e-01_jprb &
17138  &, 0.177424e-01_jprb, 0.161593e-01_jprb, 0.146758e-01_jprb, 0.132994e-01_jprb &
17139  &, 0.120721e-01_jprb, 0.109343e-01_jprb, 0.985752e-02_jprb &
17140  &, 0.891790e-02_jprb, 0.801484e-02_jprb, 0.722550e-02_jprb, 0.648157e-02_jprb &
17141  &, 0.582465e-02_jprb, 0.522113e-02_jprb, 0.467452e-02_jprb &
17142  &, 0.418836e-02_jprb, 0.372545e-02_jprb, 0.332902e-02_jprb, 0.296067e-02_jprb &
17143  &, 0.262220e-02_jprb, 0.235897e-02_jprb, 0.208655e-02_jprb &
17144  &, 0.184969e-02_jprb, 0.160477e-02_jprb, 0.144422e-02_jprb, 0.127823e-02_jprb &
17145  &, 0.110673e-02_jprb, 0.978039e-03_jprb, 0.845144e-03_jprb &
17146  &, 0.757844e-03_jprb, 0.667701e-03_jprb, 0.574679e-03_jprb, 0.478743e-03_jprb &
17147  &, 0.432692e-03_jprb, 0.385175e-03_jprb, 0.336174e-03_jprb &
17148  &, 0.285671e-03_jprb, 0.233649e-03_jprb, 0.180088e-03_jprb, 0.182457e-03_jprb &
17149  &, 0.126563e-03_jprb, 0.128166e-03_jprb, 0.698907e-04_jprb &
17150  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.100000e-04_jprb &
17151  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17152 xcw( 391, :) = (/ &
17153  & 0.969151e+00_jprb, 0.960518e+00_jprb, 0.951526e+00_jprb, 0.942185e+00_jprb &
17154  &, 0.932498e+00_jprb, 0.922475e+00_jprb, 0.912119e+00_jprb &
17155  &, 0.901440e+00_jprb, 0.890444e+00_jprb, 0.879139e+00_jprb, 0.867532e+00_jprb &
17156  &, 0.855631e+00_jprb, 0.843446e+00_jprb, 0.830985e+00_jprb &
17157  &, 0.818259e+00_jprb, 0.805276e+00_jprb, 0.792044e+00_jprb, 0.778578e+00_jprb &
17158  &, 0.764885e+00_jprb, 0.750977e+00_jprb, 0.736869e+00_jprb &
17159  &, 0.722571e+00_jprb, 0.708094e+00_jprb, 0.693456e+00_jprb, 0.678663e+00_jprb &
17160  &, 0.663735e+00_jprb, 0.648687e+00_jprb, 0.633531e+00_jprb &
17161  &, 0.618280e+00_jprb, 0.602959e+00_jprb, 0.587572e+00_jprb, 0.572146e+00_jprb &
17162  &, 0.556689e+00_jprb, 0.541221e+00_jprb, 0.525763e+00_jprb &
17163  &, 0.510326e+00_jprb, 0.494928e+00_jprb, 0.479598e+00_jprb, 0.464341e+00_jprb &
17164  &, 0.449173e+00_jprb, 0.434116e+00_jprb, 0.419179e+00_jprb &
17165  &, 0.404397e+00_jprb, 0.389770e+00_jprb, 0.375314e+00_jprb, 0.361054e+00_jprb &
17166  &, 0.346991e+00_jprb, 0.333166e+00_jprb, 0.319554e+00_jprb &
17167  &, 0.306208e+00_jprb, 0.293114e+00_jprb, 0.280285e+00_jprb, 0.267745e+00_jprb &
17168  &, 0.255492e+00_jprb, 0.243532e+00_jprb, 0.231888e+00_jprb &
17169  &, 0.220566e+00_jprb, 0.209555e+00_jprb, 0.198888e+00_jprb, 0.188534e+00_jprb &
17170  &, 0.178540e+00_jprb, 0.168869e+00_jprb, 0.159532e+00_jprb &
17171  &, 0.150536e+00_jprb, 0.141891e+00_jprb, 0.133583e+00_jprb, 0.125615e+00_jprb &
17172  &, 0.117969e+00_jprb, 0.110663e+00_jprb, 0.103694e+00_jprb &
17173  &, 0.970364e-01_jprb, 0.906820e-01_jprb, 0.846634e-01_jprb, 0.789250e-01_jprb &
17174  &, 0.734964e-01_jprb, 0.683614e-01_jprb, 0.635008e-01_jprb &
17175  &, 0.589171e-01_jprb, 0.545864e-01_jprb, 0.505072e-01_jprb, 0.466766e-01_jprb &
17176  &, 0.430903e-01_jprb, 0.397158e-01_jprb, 0.365718e-01_jprb &
17177  &, 0.336217e-01_jprb, 0.308818e-01_jprb, 0.283112e-01_jprb, 0.259239e-01_jprb &
17178  &, 0.237345e-01_jprb, 0.216660e-01_jprb, 0.197596e-01_jprb &
17179  &, 0.180274e-01_jprb, 0.163850e-01_jprb, 0.149055e-01_jprb, 0.135332e-01_jprb &
17180  &, 0.122419e-01_jprb, 0.111072e-01_jprb, 0.100334e-01_jprb &
17181  &, 0.906100e-02_jprb, 0.816038e-02_jprb, 0.733651e-02_jprb, 0.659445e-02_jprb &
17182  &, 0.593941e-02_jprb, 0.533780e-02_jprb, 0.475357e-02_jprb &
17183  &, 0.426871e-02_jprb, 0.380711e-02_jprb, 0.341200e-02_jprb, 0.304497e-02_jprb &
17184  &, 0.270785e-02_jprb, 0.240247e-02_jprb, 0.213073e-02_jprb &
17185  &, 0.189456e-02_jprb, 0.165033e-02_jprb, 0.144422e-02_jprb, 0.127823e-02_jprb &
17186  &, 0.115441e-02_jprb, 0.978039e-03_jprb, 0.894271e-03_jprb &
17187  &, 0.757844e-03_jprb, 0.667701e-03_jprb, 0.574679e-03_jprb, 0.530825e-03_jprb &
17188  &, 0.432692e-03_jprb, 0.385175e-03_jprb, 0.336174e-03_jprb &
17189  &, 0.285671e-03_jprb, 0.233649e-03_jprb, 0.180088e-03_jprb, 0.182457e-03_jprb &
17190  &, 0.126563e-03_jprb, 0.128166e-03_jprb, 0.129781e-03_jprb &
17191  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.100000e-04_jprb &
17192  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17193 xcw( 392, :) = (/ &
17194  & 0.969408e+00_jprb, 0.960835e+00_jprb, 0.951905e+00_jprb, 0.942624e+00_jprb &
17195  &, 0.932997e+00_jprb, 0.923031e+00_jprb, 0.912734e+00_jprb &
17196  &, 0.902111e+00_jprb, 0.891169e+00_jprb, 0.879918e+00_jprb, 0.868364e+00_jprb &
17197  &, 0.856515e+00_jprb, 0.844381e+00_jprb, 0.831969e+00_jprb &
17198  &, 0.819291e+00_jprb, 0.806352e+00_jprb, 0.793168e+00_jprb, 0.779743e+00_jprb &
17199  &, 0.766093e+00_jprb, 0.752227e+00_jprb, 0.738156e+00_jprb &
17200  &, 0.723894e+00_jprb, 0.709451e+00_jprb, 0.694844e+00_jprb, 0.680031e+00_jprb &
17201  &, 0.665187e+00_jprb, 0.650165e+00_jprb, 0.635034e+00_jprb &
17202  &, 0.619809e+00_jprb, 0.604506e+00_jprb, 0.589140e+00_jprb, 0.573733e+00_jprb &
17203  &, 0.558290e+00_jprb, 0.542840e+00_jprb, 0.527391e+00_jprb &
17204  &, 0.511963e+00_jprb, 0.496578e+00_jprb, 0.481241e+00_jprb, 0.465985e+00_jprb &
17205  &, 0.450818e+00_jprb, 0.435760e+00_jprb, 0.420832e+00_jprb &
17206  &, 0.406036e+00_jprb, 0.391394e+00_jprb, 0.376932e+00_jprb, 0.362664e+00_jprb &
17207  &, 0.348592e+00_jprb, 0.334743e+00_jprb, 0.321119e+00_jprb &
17208  &, 0.307745e+00_jprb, 0.294635e+00_jprb, 0.281787e+00_jprb, 0.269213e+00_jprb &
17209  &, 0.256937e+00_jprb, 0.244952e+00_jprb, 0.233281e+00_jprb &
17210  &, 0.221930e+00_jprb, 0.210903e+00_jprb, 0.200186e+00_jprb, 0.189812e+00_jprb &
17211  &, 0.179762e+00_jprb, 0.170067e+00_jprb, 0.160703e+00_jprb &
17212  &, 0.151680e+00_jprb, 0.142985e+00_jprb, 0.134644e+00_jprb, 0.126641e+00_jprb &
17213  &, 0.118958e+00_jprb, 0.111613e+00_jprb, 0.104602e+00_jprb &
17214  &, 0.979010e-01_jprb, 0.915217e-01_jprb, 0.854548e-01_jprb, 0.797103e-01_jprb &
17215  &, 0.742292e-01_jprb, 0.690624e-01_jprb, 0.641684e-01_jprb &
17216  &, 0.595251e-01_jprb, 0.551818e-01_jprb, 0.510637e-01_jprb, 0.472183e-01_jprb &
17217  &, 0.435900e-01_jprb, 0.401984e-01_jprb, 0.370091e-01_jprb &
17218  &, 0.340394e-01_jprb, 0.312790e-01_jprb, 0.286870e-01_jprb, 0.262773e-01_jprb &
17219  &, 0.240344e-01_jprb, 0.219714e-01_jprb, 0.200706e-01_jprb &
17220  &, 0.182807e-01_jprb, 0.166428e-01_jprb, 0.151351e-01_jprb, 0.137335e-01_jprb &
17221  &, 0.124458e-01_jprb, 0.112800e-01_jprb, 0.102092e-01_jprb &
17222  &, 0.920410e-02_jprb, 0.830593e-02_jprb, 0.748452e-02_jprb, 0.674495e-02_jprb &
17223  &, 0.605417e-02_jprb, 0.541558e-02_jprb, 0.487216e-02_jprb &
17224  &, 0.434906e-02_jprb, 0.388877e-02_jprb, 0.345349e-02_jprb, 0.308712e-02_jprb &
17225  &, 0.275067e-02_jprb, 0.244597e-02_jprb, 0.217491e-02_jprb &
17226  &, 0.193943e-02_jprb, 0.169590e-02_jprb, 0.149048e-02_jprb, 0.132520e-02_jprb &
17227  &, 0.115441e-02_jprb, 0.102644e-02_jprb, 0.894271e-03_jprb &
17228  &, 0.807701e-03_jprb, 0.667701e-03_jprb, 0.574679e-03_jprb, 0.530825e-03_jprb &
17229  &, 0.432692e-03_jprb, 0.385175e-03_jprb, 0.336174e-03_jprb &
17230  &, 0.285671e-03_jprb, 0.233649e-03_jprb, 0.236784e-03_jprb, 0.182457e-03_jprb &
17231  &, 0.126563e-03_jprb, 0.128166e-03_jprb, 0.129781e-03_jprb &
17232  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17233  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17234 
17235 IF (lhook) CALL dr_hook('SU_MCICA:PART56',1,zhook_handle)
17236 END SUBROUTINE part56
17237 
17238 #ifdef VPP5000
17239 !OCL SCALAR
17240 #endif
17241 !option! -Nv -NO
17242 #ifdef RS6K
17243 @process nooptimize
17244 #endif
17245 !pgi$r opt=0
17246 SUBROUTINE part57
17247 
17248 REAL(KIND=JPRB) :: ZHOOK_HANDLE
17249 IF (lhook) CALL dr_hook('SU_MCICA:PART57',0,zhook_handle)
17250 
17251 xcw( 393, :) = (/ &
17252  & 0.969662e+00_jprb, 0.961152e+00_jprb, 0.952282e+00_jprb, 0.943063e+00_jprb &
17253  &, 0.933495e+00_jprb, 0.923588e+00_jprb, 0.913348e+00_jprb &
17254  &, 0.902781e+00_jprb, 0.891896e+00_jprb, 0.880698e+00_jprb, 0.869197e+00_jprb &
17255  &, 0.857400e+00_jprb, 0.845316e+00_jprb, 0.832953e+00_jprb &
17256  &, 0.820321e+00_jprb, 0.807431e+00_jprb, 0.794290e+00_jprb, 0.780909e+00_jprb &
17257  &, 0.767301e+00_jprb, 0.753474e+00_jprb, 0.739440e+00_jprb &
17258  &, 0.725217e+00_jprb, 0.710811e+00_jprb, 0.696236e+00_jprb, 0.681509e+00_jprb &
17259  &, 0.666641e+00_jprb, 0.651644e+00_jprb, 0.636542e+00_jprb &
17260  &, 0.621338e+00_jprb, 0.606060e+00_jprb, 0.590713e+00_jprb, 0.575320e+00_jprb &
17261  &, 0.559895e+00_jprb, 0.544455e+00_jprb, 0.529019e+00_jprb &
17262  &, 0.513600e+00_jprb, 0.498219e+00_jprb, 0.482893e+00_jprb, 0.467639e+00_jprb &
17263  &, 0.452473e+00_jprb, 0.437414e+00_jprb, 0.422474e+00_jprb &
17264  &, 0.407675e+00_jprb, 0.393040e+00_jprb, 0.378560e+00_jprb, 0.364273e+00_jprb &
17265  &, 0.350193e+00_jprb, 0.336333e+00_jprb, 0.322697e+00_jprb &
17266  &, 0.309295e+00_jprb, 0.296156e+00_jprb, 0.283290e+00_jprb, 0.270695e+00_jprb &
17267  &, 0.258396e+00_jprb, 0.246387e+00_jprb, 0.234689e+00_jprb &
17268  &, 0.223309e+00_jprb, 0.212235e+00_jprb, 0.201501e+00_jprb, 0.191090e+00_jprb &
17269  &, 0.181002e+00_jprb, 0.171265e+00_jprb, 0.161875e+00_jprb &
17270  &, 0.152805e+00_jprb, 0.144080e+00_jprb, 0.135706e+00_jprb, 0.127649e+00_jprb &
17271  &, 0.119948e+00_jprb, 0.112563e+00_jprb, 0.105511e+00_jprb &
17272  &, 0.987867e-01_jprb, 0.923615e-01_jprb, 0.862681e-01_jprb, 0.804732e-01_jprb &
17273  &, 0.749620e-01_jprb, 0.697635e-01_jprb, 0.648360e-01_jprb &
17274  &, 0.601818e-01_jprb, 0.557771e-01_jprb, 0.516456e-01_jprb, 0.477600e-01_jprb &
17275  &, 0.440897e-01_jprb, 0.406810e-01_jprb, 0.374736e-01_jprb &
17276  &, 0.344571e-01_jprb, 0.316763e-01_jprb, 0.290628e-01_jprb, 0.266307e-01_jprb &
17277  &, 0.243644e-01_jprb, 0.222769e-01_jprb, 0.203505e-01_jprb &
17278  &, 0.185340e-01_jprb, 0.169007e-01_jprb, 0.153648e-01_jprb, 0.139338e-01_jprb &
17279  &, 0.126497e-01_jprb, 0.114529e-01_jprb, 0.103499e-01_jprb &
17280  &, 0.934720e-02_jprb, 0.845147e-02_jprb, 0.759552e-02_jprb, 0.685783e-02_jprb &
17281  &, 0.616893e-02_jprb, 0.553224e-02_jprb, 0.495122e-02_jprb &
17282  &, 0.442941e-02_jprb, 0.397043e-02_jprb, 0.353646e-02_jprb, 0.317143e-02_jprb &
17283  &, 0.279349e-02_jprb, 0.248947e-02_jprb, 0.221910e-02_jprb &
17284  &, 0.193943e-02_jprb, 0.174146e-02_jprb, 0.153675e-02_jprb, 0.137217e-02_jprb &
17285  &, 0.120209e-02_jprb, 0.102644e-02_jprb, 0.943397e-03_jprb &
17286  &, 0.807701e-03_jprb, 0.718294e-03_jprb, 0.626014e-03_jprb, 0.530825e-03_jprb &
17287  &, 0.485529e-03_jprb, 0.385175e-03_jprb, 0.336174e-03_jprb &
17288  &, 0.285671e-03_jprb, 0.233649e-03_jprb, 0.236784e-03_jprb, 0.182457e-03_jprb &
17289  &, 0.184844e-03_jprb, 0.128166e-03_jprb, 0.129781e-03_jprb &
17290  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17291  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17292 xcw( 394, :) = (/ &
17293  & 0.969918e+00_jprb, 0.961470e+00_jprb, 0.952661e+00_jprb, 0.943502e+00_jprb &
17294  &, 0.933993e+00_jprb, 0.924145e+00_jprb, 0.913962e+00_jprb &
17295  &, 0.903451e+00_jprb, 0.892611e+00_jprb, 0.881477e+00_jprb, 0.870029e+00_jprb &
17296  &, 0.858284e+00_jprb, 0.846251e+00_jprb, 0.833937e+00_jprb &
17297  &, 0.821354e+00_jprb, 0.808509e+00_jprb, 0.795412e+00_jprb, 0.782075e+00_jprb &
17298  &, 0.768509e+00_jprb, 0.754721e+00_jprb, 0.740727e+00_jprb &
17299  &, 0.726540e+00_jprb, 0.712171e+00_jprb, 0.697628e+00_jprb, 0.682933e+00_jprb &
17300  &, 0.668093e+00_jprb, 0.653127e+00_jprb, 0.638049e+00_jprb &
17301  &, 0.622871e+00_jprb, 0.607611e+00_jprb, 0.592286e+00_jprb, 0.576911e+00_jprb &
17302  &, 0.561505e+00_jprb, 0.546078e+00_jprb, 0.530652e+00_jprb &
17303  &, 0.515246e+00_jprb, 0.499868e+00_jprb, 0.484546e+00_jprb, 0.469293e+00_jprb &
17304  &, 0.454128e+00_jprb, 0.439069e+00_jprb, 0.424127e+00_jprb &
17305  &, 0.409325e+00_jprb, 0.394674e+00_jprb, 0.380189e+00_jprb, 0.365895e+00_jprb &
17306  &, 0.351806e+00_jprb, 0.337923e+00_jprb, 0.324261e+00_jprb &
17307  &, 0.310859e+00_jprb, 0.297690e+00_jprb, 0.284806e+00_jprb, 0.272177e+00_jprb &
17308  &, 0.259856e+00_jprb, 0.247822e+00_jprb, 0.236097e+00_jprb &
17309  &, 0.224673e+00_jprb, 0.213583e+00_jprb, 0.202815e+00_jprb, 0.192368e+00_jprb &
17310  &, 0.182258e+00_jprb, 0.172480e+00_jprb, 0.163046e+00_jprb &
17311  &, 0.153948e+00_jprb, 0.145193e+00_jprb, 0.136768e+00_jprb, 0.128695e+00_jprb &
17312  &, 0.120937e+00_jprb, 0.113533e+00_jprb, 0.106440e+00_jprb &
17313  &, 0.996724e-01_jprb, 0.932228e-01_jprb, 0.870814e-01_jprb, 0.812361e-01_jprb &
17314  &, 0.757177e-01_jprb, 0.704645e-01_jprb, 0.655036e-01_jprb &
17315  &, 0.608142e-01_jprb, 0.563973e-01_jprb, 0.522275e-01_jprb, 0.483018e-01_jprb &
17316  &, 0.446157e-01_jprb, 0.411636e-01_jprb, 0.379108e-01_jprb &
17317  &, 0.349026e-01_jprb, 0.320735e-01_jprb, 0.294386e-01_jprb, 0.269841e-01_jprb &
17318  &, 0.246943e-01_jprb, 0.225823e-01_jprb, 0.206304e-01_jprb &
17319  &, 0.188190e-01_jprb, 0.171264e-01_jprb, 0.155944e-01_jprb, 0.141676e-01_jprb &
17320  &, 0.128535e-01_jprb, 0.116257e-01_jprb, 0.105257e-01_jprb &
17321  &, 0.952607e-02_jprb, 0.859701e-02_jprb, 0.774353e-02_jprb, 0.697070e-02_jprb &
17322  &, 0.628370e-02_jprb, 0.561002e-02_jprb, 0.503028e-02_jprb &
17323  &, 0.450977e-02_jprb, 0.405209e-02_jprb, 0.361944e-02_jprb, 0.321358e-02_jprb &
17324  &, 0.287914e-02_jprb, 0.253297e-02_jprb, 0.226328e-02_jprb &
17325  &, 0.198430e-02_jprb, 0.178703e-02_jprb, 0.158301e-02_jprb, 0.137217e-02_jprb &
17326  &, 0.120209e-02_jprb, 0.107484e-02_jprb, 0.943397e-03_jprb &
17327  &, 0.807701e-03_jprb, 0.718294e-03_jprb, 0.626014e-03_jprb, 0.530825e-03_jprb &
17328  &, 0.485529e-03_jprb, 0.438772e-03_jprb, 0.336174e-03_jprb &
17329  &, 0.285671e-03_jprb, 0.289561e-03_jprb, 0.236784e-03_jprb, 0.182457e-03_jprb &
17330  &, 0.184844e-03_jprb, 0.128166e-03_jprb, 0.129781e-03_jprb &
17331  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17332  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17333 xcw( 395, :) = (/ &
17334  & 0.970173e+00_jprb, 0.961787e+00_jprb, 0.953039e+00_jprb, 0.943940e+00_jprb &
17335  &, 0.934491e+00_jprb, 0.924701e+00_jprb, 0.914575e+00_jprb &
17336  &, 0.904121e+00_jprb, 0.893346e+00_jprb, 0.882256e+00_jprb, 0.870862e+00_jprb &
17337  &, 0.859168e+00_jprb, 0.847185e+00_jprb, 0.834921e+00_jprb &
17338  &, 0.822386e+00_jprb, 0.809586e+00_jprb, 0.796535e+00_jprb, 0.783242e+00_jprb &
17339  &, 0.769717e+00_jprb, 0.755971e+00_jprb, 0.742015e+00_jprb &
17340  &, 0.727866e+00_jprb, 0.713527e+00_jprb, 0.699023e+00_jprb, 0.684358e+00_jprb &
17341  &, 0.669548e+00_jprb, 0.654610e+00_jprb, 0.639557e+00_jprb &
17342  &, 0.624404e+00_jprb, 0.609166e+00_jprb, 0.593863e+00_jprb, 0.578502e+00_jprb &
17343  &, 0.563110e+00_jprb, 0.547702e+00_jprb, 0.532285e+00_jprb &
17344  &, 0.516883e+00_jprb, 0.501518e+00_jprb, 0.486208e+00_jprb, 0.470957e+00_jprb &
17345  &, 0.455793e+00_jprb, 0.440734e+00_jprb, 0.425791e+00_jprb &
17346  &, 0.410975e+00_jprb, 0.396320e+00_jprb, 0.381830e+00_jprb, 0.367517e+00_jprb &
17347  &, 0.353406e+00_jprb, 0.339513e+00_jprb, 0.325839e+00_jprb &
17348  &, 0.312410e+00_jprb, 0.299238e+00_jprb, 0.286322e+00_jprb, 0.273674e+00_jprb &
17349  &, 0.261315e+00_jprb, 0.249257e+00_jprb, 0.237506e+00_jprb &
17350  &, 0.226052e+00_jprb, 0.214931e+00_jprb, 0.204129e+00_jprb, 0.193646e+00_jprb &
17351  &, 0.183514e+00_jprb, 0.173695e+00_jprb, 0.164235e+00_jprb &
17352  &, 0.155091e+00_jprb, 0.146306e+00_jprb, 0.137848e+00_jprb, 0.129722e+00_jprb &
17353  &, 0.121947e+00_jprb, 0.114484e+00_jprb, 0.107369e+00_jprb &
17354  &, 0.100558e+00_jprb, 0.940840e-01_jprb, 0.878948e-01_jprb, 0.820215e-01_jprb &
17355  &, 0.764505e-01_jprb, 0.711889e-01_jprb, 0.661711e-01_jprb &
17356  &, 0.614465e-01_jprb, 0.569927e-01_jprb, 0.528094e-01_jprb, 0.488435e-01_jprb &
17357  &, 0.451417e-01_jprb, 0.416462e-01_jprb, 0.383753e-01_jprb &
17358  &, 0.353204e-01_jprb, 0.324708e-01_jprb, 0.298144e-01_jprb, 0.273374e-01_jprb &
17359  &, 0.250542e-01_jprb, 0.229183e-01_jprb, 0.209103e-01_jprb &
17360  &, 0.191040e-01_jprb, 0.173842e-01_jprb, 0.158241e-01_jprb, 0.143679e-01_jprb &
17361  &, 0.130574e-01_jprb, 0.118332e-01_jprb, 0.107016e-01_jprb &
17362  &, 0.966917e-02_jprb, 0.874255e-02_jprb, 0.789154e-02_jprb, 0.708358e-02_jprb &
17363  &, 0.639846e-02_jprb, 0.572669e-02_jprb, 0.514887e-02_jprb &
17364  &, 0.459012e-02_jprb, 0.413375e-02_jprb, 0.366093e-02_jprb, 0.329789e-02_jprb &
17365  &, 0.292196e-02_jprb, 0.261997e-02_jprb, 0.230746e-02_jprb &
17366  &, 0.202917e-02_jprb, 0.183259e-02_jprb, 0.158301e-02_jprb, 0.141914e-02_jprb &
17367  &, 0.124978e-02_jprb, 0.107484e-02_jprb, 0.943397e-03_jprb &
17368  &, 0.857557e-03_jprb, 0.718294e-03_jprb, 0.626014e-03_jprb, 0.582908e-03_jprb &
17369  &, 0.485529e-03_jprb, 0.438772e-03_jprb, 0.390537e-03_jprb &
17370  &, 0.340806e-03_jprb, 0.289561e-03_jprb, 0.236784e-03_jprb, 0.182457e-03_jprb &
17371  &, 0.184844e-03_jprb, 0.128166e-03_jprb, 0.129781e-03_jprb &
17372  &, 0.707043e-04_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17373  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17374 xcw( 396, :) = (/ &
17375  & 0.970427e+00_jprb, 0.962103e+00_jprb, 0.953417e+00_jprb, 0.944378e+00_jprb &
17376  &, 0.934989e+00_jprb, 0.925256e+00_jprb, 0.915189e+00_jprb &
17377  &, 0.904791e+00_jprb, 0.894071e+00_jprb, 0.883036e+00_jprb, 0.871695e+00_jprb &
17378  &, 0.860053e+00_jprb, 0.848120e+00_jprb, 0.835904e+00_jprb &
17379  &, 0.823416e+00_jprb, 0.810665e+00_jprb, 0.797659e+00_jprb, 0.784408e+00_jprb &
17380  &, 0.770925e+00_jprb, 0.757221e+00_jprb, 0.743305e+00_jprb &
17381  &, 0.729189e+00_jprb, 0.714891e+00_jprb, 0.700414e+00_jprb, 0.685782e+00_jprb &
17382  &, 0.671003e+00_jprb, 0.656092e+00_jprb, 0.641068e+00_jprb &
17383  &, 0.625936e+00_jprb, 0.610724e+00_jprb, 0.595436e+00_jprb, 0.580098e+00_jprb &
17384  &, 0.564724e+00_jprb, 0.549326e+00_jprb, 0.533923e+00_jprb &
17385  &, 0.518529e+00_jprb, 0.503178e+00_jprb, 0.487870e+00_jprb, 0.472622e+00_jprb &
17386  &, 0.457458e+00_jprb, 0.442399e+00_jprb, 0.427444e+00_jprb &
17387  &, 0.412636e+00_jprb, 0.397966e+00_jprb, 0.383470e+00_jprb, 0.369150e+00_jprb &
17388  &, 0.355031e+00_jprb, 0.341116e+00_jprb, 0.327430e+00_jprb &
17389  &, 0.313973e+00_jprb, 0.300772e+00_jprb, 0.287838e+00_jprb, 0.275170e+00_jprb &
17390  &, 0.262789e+00_jprb, 0.250707e+00_jprb, 0.238929e+00_jprb &
17391  &, 0.227447e+00_jprb, 0.216295e+00_jprb, 0.205459e+00_jprb, 0.194941e+00_jprb &
17392  &, 0.184770e+00_jprb, 0.174928e+00_jprb, 0.165425e+00_jprb &
17393  &, 0.156252e+00_jprb, 0.147419e+00_jprb, 0.138929e+00_jprb, 0.130768e+00_jprb &
17394  &, 0.122956e+00_jprb, 0.115454e+00_jprb, 0.108299e+00_jprb &
17395  &, 0.101465e+00_jprb, 0.949238e-01_jprb, 0.887301e-01_jprb, 0.828068e-01_jprb &
17396  &, 0.772062e-01_jprb, 0.718899e-01_jprb, 0.668625e-01_jprb &
17397  &, 0.621032e-01_jprb, 0.576129e-01_jprb, 0.533913e-01_jprb, 0.494110e-01_jprb &
17398  &, 0.456677e-01_jprb, 0.421556e-01_jprb, 0.388399e-01_jprb &
17399  &, 0.357659e-01_jprb, 0.328964e-01_jprb, 0.302191e-01_jprb, 0.277203e-01_jprb &
17400  &, 0.253841e-01_jprb, 0.232237e-01_jprb, 0.212214e-01_jprb &
17401  &, 0.193573e-01_jprb, 0.176421e-01_jprb, 0.160538e-01_jprb, 0.146017e-01_jprb &
17402  &, 0.132613e-01_jprb, 0.120060e-01_jprb, 0.108774e-01_jprb &
17403  &, 0.984804e-02_jprb, 0.888810e-02_jprb, 0.800255e-02_jprb, 0.723408e-02_jprb &
17404  &, 0.651322e-02_jprb, 0.584336e-02_jprb, 0.522793e-02_jprb &
17405  &, 0.471065e-02_jprb, 0.421540e-02_jprb, 0.374390e-02_jprb, 0.334004e-02_jprb &
17406  &, 0.296478e-02_jprb, 0.266347e-02_jprb, 0.235164e-02_jprb &
17407  &, 0.207404e-02_jprb, 0.183259e-02_jprb, 0.162928e-02_jprb, 0.146611e-02_jprb &
17408  &, 0.129746e-02_jprb, 0.112324e-02_jprb, 0.992523e-03_jprb &
17409  &, 0.857557e-03_jprb, 0.768886e-03_jprb, 0.677348e-03_jprb, 0.582908e-03_jprb &
17410  &, 0.485529e-03_jprb, 0.438772e-03_jprb, 0.390537e-03_jprb &
17411  &, 0.340806e-03_jprb, 0.289561e-03_jprb, 0.236784e-03_jprb, 0.182457e-03_jprb &
17412  &, 0.184844e-03_jprb, 0.128166e-03_jprb, 0.129781e-03_jprb &
17413  &, 0.131409e-03_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17414  &, 0.100000e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17415 xcw( 397, :) = (/ &
17416  & 0.970682e+00_jprb, 0.962420e+00_jprb, 0.953795e+00_jprb, 0.944816e+00_jprb &
17417  &, 0.935486e+00_jprb, 0.925812e+00_jprb, 0.915802e+00_jprb &
17418  &, 0.905461e+00_jprb, 0.894797e+00_jprb, 0.883816e+00_jprb, 0.872527e+00_jprb &
17419  &, 0.860937e+00_jprb, 0.849055e+00_jprb, 0.836890e+00_jprb &
17420  &, 0.824448e+00_jprb, 0.811744e+00_jprb, 0.798783e+00_jprb, 0.785576e+00_jprb &
17421  &, 0.772134e+00_jprb, 0.758471e+00_jprb, 0.744592e+00_jprb &
17422  &, 0.730515e+00_jprb, 0.716251e+00_jprb, 0.701810e+00_jprb, 0.687210e+00_jprb &
17423  &, 0.672461e+00_jprb, 0.657579e+00_jprb, 0.642579e+00_jprb &
17424  &, 0.627473e+00_jprb, 0.612283e+00_jprb, 0.597017e+00_jprb, 0.581697e+00_jprb &
17425  &, 0.566333e+00_jprb, 0.550954e+00_jprb, 0.535565e+00_jprb &
17426  &, 0.520185e+00_jprb, 0.504837e+00_jprb, 0.489533e+00_jprb, 0.474286e+00_jprb &
17427  &, 0.459123e+00_jprb, 0.444064e+00_jprb, 0.429108e+00_jprb &
17428  &, 0.414297e+00_jprb, 0.399624e+00_jprb, 0.385111e+00_jprb, 0.370784e+00_jprb &
17429  &, 0.356644e+00_jprb, 0.342718e+00_jprb, 0.329007e+00_jprb &
17430  &, 0.315550e+00_jprb, 0.302320e+00_jprb, 0.289368e+00_jprb, 0.276680e+00_jprb &
17431  &, 0.264264e+00_jprb, 0.252157e+00_jprb, 0.240337e+00_jprb &
17432  &, 0.228842e+00_jprb, 0.217658e+00_jprb, 0.206790e+00_jprb, 0.196235e+00_jprb &
17433  &, 0.186026e+00_jprb, 0.176160e+00_jprb, 0.166614e+00_jprb &
17434  &, 0.157414e+00_jprb, 0.148550e+00_jprb, 0.140009e+00_jprb, 0.131814e+00_jprb &
17435  &, 0.123966e+00_jprb, 0.116445e+00_jprb, 0.109228e+00_jprb &
17436  &, 0.102351e+00_jprb, 0.958066e-01_jprb, 0.895434e-01_jprb, 0.836146e-01_jprb &
17437  &, 0.779619e-01_jprb, 0.726144e-01_jprb, 0.675540e-01_jprb &
17438  &, 0.627599e-01_jprb, 0.582331e-01_jprb, 0.539732e-01_jprb, 0.499528e-01_jprb &
17439  &, 0.461937e-01_jprb, 0.426382e-01_jprb, 0.393317e-01_jprb &
17440  &, 0.362115e-01_jprb, 0.333220e-01_jprb, 0.305949e-01_jprb, 0.280736e-01_jprb &
17441  &, 0.257140e-01_jprb, 0.235597e-01_jprb, 0.215324e-01_jprb &
17442  &, 0.196423e-01_jprb, 0.179000e-01_jprb, 0.163163e-01_jprb, 0.148354e-01_jprb &
17443  &, 0.134651e-01_jprb, 0.122135e-01_jprb, 0.110533e-01_jprb &
17444  &, 0.999114e-02_jprb, 0.903364e-02_jprb, 0.815056e-02_jprb, 0.734696e-02_jprb &
17445  &, 0.662799e-02_jprb, 0.596002e-02_jprb, 0.534652e-02_jprb &
17446  &, 0.479100e-02_jprb, 0.429706e-02_jprb, 0.382688e-02_jprb, 0.342434e-02_jprb &
17447  &, 0.305043e-02_jprb, 0.270697e-02_jprb, 0.239582e-02_jprb &
17448  &, 0.211891e-02_jprb, 0.187816e-02_jprb, 0.167554e-02_jprb, 0.146611e-02_jprb &
17449  &, 0.129746e-02_jprb, 0.117165e-02_jprb, 0.992523e-03_jprb &
17450  &, 0.907413e-03_jprb, 0.768886e-03_jprb, 0.677348e-03_jprb, 0.582908e-03_jprb &
17451  &, 0.538365e-03_jprb, 0.438772e-03_jprb, 0.390537e-03_jprb &
17452  &, 0.340806e-03_jprb, 0.289561e-03_jprb, 0.236784e-03_jprb, 0.239943e-03_jprb &
17453  &, 0.184844e-03_jprb, 0.128166e-03_jprb, 0.129781e-03_jprb &
17454  &, 0.131409e-03_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17455  &, 0.740184e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17456 xcw( 398, :) = (/ &
17457  & 0.970934e+00_jprb, 0.962736e+00_jprb, 0.954172e+00_jprb, 0.945254e+00_jprb &
17458  &, 0.935984e+00_jprb, 0.926369e+00_jprb, 0.916416e+00_jprb &
17459  &, 0.906130e+00_jprb, 0.895522e+00_jprb, 0.884595e+00_jprb, 0.873359e+00_jprb &
17460  &, 0.861821e+00_jprb, 0.849990e+00_jprb, 0.837873e+00_jprb &
17461  &, 0.825480e+00_jprb, 0.812822e+00_jprb, 0.799906e+00_jprb, 0.786744e+00_jprb &
17462  &, 0.773344e+00_jprb, 0.759721e+00_jprb, 0.745883e+00_jprb &
17463  &, 0.731841e+00_jprb, 0.717614e+00_jprb, 0.703208e+00_jprb, 0.688638e+00_jprb &
17464  &, 0.673920e+00_jprb, 0.659065e+00_jprb, 0.644090e+00_jprb &
17465  &, 0.629010e+00_jprb, 0.613842e+00_jprb, 0.598598e+00_jprb, 0.583293e+00_jprb &
17466  &, 0.567952e+00_jprb, 0.552582e+00_jprb, 0.537207e+00_jprb &
17467  &, 0.521831e+00_jprb, 0.506496e+00_jprb, 0.491195e+00_jprb, 0.475960e+00_jprb &
17468  &, 0.460799e+00_jprb, 0.445729e+00_jprb, 0.430782e+00_jprb &
17469  &, 0.415958e+00_jprb, 0.401281e+00_jprb, 0.386763e+00_jprb, 0.372417e+00_jprb &
17470  &, 0.358269e+00_jprb, 0.344321e+00_jprb, 0.330611e+00_jprb &
17471  &, 0.317114e+00_jprb, 0.303881e+00_jprb, 0.290898e+00_jprb, 0.278190e+00_jprb &
17472  &, 0.265752e+00_jprb, 0.253606e+00_jprb, 0.241776e+00_jprb &
17473  &, 0.230236e+00_jprb, 0.219022e+00_jprb, 0.208120e+00_jprb, 0.197546e+00_jprb &
17474  &, 0.187300e+00_jprb, 0.177393e+00_jprb, 0.167821e+00_jprb &
17475  &, 0.158575e+00_jprb, 0.149682e+00_jprb, 0.141109e+00_jprb, 0.132879e+00_jprb &
17476  &, 0.124975e+00_jprb, 0.117415e+00_jprb, 0.110178e+00_jprb &
17477  &, 0.103279e+00_jprb, 0.966679e-01_jprb, 0.903788e-01_jprb, 0.843999e-01_jprb &
17478  &, 0.787405e-01_jprb, 0.733388e-01_jprb, 0.682454e-01_jprb &
17479  &, 0.634166e-01_jprb, 0.588781e-01_jprb, 0.545803e-01_jprb, 0.505203e-01_jprb &
17480  &, 0.467198e-01_jprb, 0.431476e-01_jprb, 0.397963e-01_jprb &
17481  &, 0.366570e-01_jprb, 0.337192e-01_jprb, 0.309996e-01_jprb, 0.284564e-01_jprb &
17482  &, 0.260740e-01_jprb, 0.238652e-01_jprb, 0.218123e-01_jprb &
17483  &, 0.199273e-01_jprb, 0.181578e-01_jprb, 0.165459e-01_jprb, 0.150691e-01_jprb &
17484  &, 0.136690e-01_jprb, 0.124209e-01_jprb, 0.112291e-01_jprb &
17485  &, 0.101700e-01_jprb, 0.917918e-02_jprb, 0.829857e-02_jprb, 0.745983e-02_jprb &
17486  &, 0.674275e-02_jprb, 0.603780e-02_jprb, 0.542558e-02_jprb &
17487  &, 0.487136e-02_jprb, 0.437872e-02_jprb, 0.390985e-02_jprb, 0.346650e-02_jprb &
17488  &, 0.309325e-02_jprb, 0.275047e-02_jprb, 0.244001e-02_jprb &
17489  &, 0.216378e-02_jprb, 0.192372e-02_jprb, 0.172181e-02_jprb, 0.151309e-02_jprb &
17490  &, 0.134514e-02_jprb, 0.117165e-02_jprb, 0.104165e-02_jprb &
17491  &, 0.907413e-03_jprb, 0.819479e-03_jprb, 0.677348e-03_jprb, 0.634990e-03_jprb &
17492  &, 0.538365e-03_jprb, 0.438772e-03_jprb, 0.390537e-03_jprb &
17493  &, 0.340806e-03_jprb, 0.289561e-03_jprb, 0.236784e-03_jprb, 0.239943e-03_jprb &
17494  &, 0.184844e-03_jprb, 0.128166e-03_jprb, 0.129781e-03_jprb &
17495  &, 0.131409e-03_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17496  &, 0.740184e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17497 xcw( 399, :) = (/ &
17498  & 0.971185e+00_jprb, 0.963052e+00_jprb, 0.954550e+00_jprb, 0.945692e+00_jprb &
17499  &, 0.936480e+00_jprb, 0.926924e+00_jprb, 0.917029e+00_jprb &
17500  &, 0.906800e+00_jprb, 0.896246e+00_jprb, 0.885372e+00_jprb, 0.874192e+00_jprb &
17501  &, 0.862705e+00_jprb, 0.850925e+00_jprb, 0.838857e+00_jprb &
17502  &, 0.826514e+00_jprb, 0.813902e+00_jprb, 0.801031e+00_jprb, 0.787912e+00_jprb &
17503  &, 0.774555e+00_jprb, 0.760970e+00_jprb, 0.747170e+00_jprb &
17504  &, 0.733171e+00_jprb, 0.718974e+00_jprb, 0.704603e+00_jprb, 0.690066e+00_jprb &
17505  &, 0.675378e+00_jprb, 0.660552e+00_jprb, 0.645605e+00_jprb &
17506  &, 0.630550e+00_jprb, 0.615404e+00_jprb, 0.600179e+00_jprb, 0.584897e+00_jprb &
17507  &, 0.569501e+00_jprb, 0.554214e+00_jprb, 0.538849e+00_jprb &
17508  &, 0.523487e+00_jprb, 0.508156e+00_jprb, 0.492867e+00_jprb, 0.477624e+00_jprb &
17509  &, 0.462474e+00_jprb, 0.447405e+00_jprb, 0.432446e+00_jprb &
17510  &, 0.417620e+00_jprb, 0.402938e+00_jprb, 0.388415e+00_jprb, 0.374063e+00_jprb &
17511  &, 0.359894e+00_jprb, 0.345936e+00_jprb, 0.332201e+00_jprb &
17512  &, 0.318690e+00_jprb, 0.305429e+00_jprb, 0.292428e+00_jprb, 0.279700e+00_jprb &
17513  &, 0.267240e+00_jprb, 0.255071e+00_jprb, 0.243199e+00_jprb &
17514  &, 0.231647e+00_jprb, 0.220386e+00_jprb, 0.209467e+00_jprb, 0.198858e+00_jprb &
17515  &, 0.188573e+00_jprb, 0.178625e+00_jprb, 0.169028e+00_jprb &
17516  &, 0.159755e+00_jprb, 0.150813e+00_jprb, 0.142208e+00_jprb, 0.133945e+00_jprb &
17517  &, 0.126004e+00_jprb, 0.118406e+00_jprb, 0.111128e+00_jprb &
17518  &, 0.104185e+00_jprb, 0.975507e-01_jprb, 0.912361e-01_jprb, 0.852077e-01_jprb &
17519  &, 0.794962e-01_jprb, 0.740865e-01_jprb, 0.689368e-01_jprb &
17520  &, 0.640976e-01_jprb, 0.594983e-01_jprb, 0.551622e-01_jprb, 0.510878e-01_jprb &
17521  &, 0.472458e-01_jprb, 0.436569e-01_jprb, 0.402881e-01_jprb &
17522  &, 0.371026e-01_jprb, 0.341449e-01_jprb, 0.314043e-01_jprb, 0.288098e-01_jprb &
17523  &, 0.264339e-01_jprb, 0.242012e-01_jprb, 0.221233e-01_jprb &
17524  &, 0.202122e-01_jprb, 0.184480e-01_jprb, 0.168084e-01_jprb, 0.152695e-01_jprb &
17525  &, 0.138729e-01_jprb, 0.125937e-01_jprb, 0.114402e-01_jprb &
17526  &, 0.103489e-01_jprb, 0.936111e-02_jprb, 0.844658e-02_jprb, 0.761034e-02_jprb &
17527  &, 0.685751e-02_jprb, 0.615447e-02_jprb, 0.554417e-02_jprb &
17528  &, 0.495171e-02_jprb, 0.446038e-02_jprb, 0.399283e-02_jprb, 0.355080e-02_jprb &
17529  &, 0.317890e-02_jprb, 0.283747e-02_jprb, 0.252837e-02_jprb &
17530  &, 0.225352e-02_jprb, 0.196928e-02_jprb, 0.176807e-02_jprb, 0.156006e-02_jprb &
17531  &, 0.139283e-02_jprb, 0.122005e-02_jprb, 0.104165e-02_jprb &
17532  &, 0.957270e-03_jprb, 0.819479e-03_jprb, 0.728683e-03_jprb, 0.634990e-03_jprb &
17533  &, 0.538365e-03_jprb, 0.492368e-03_jprb, 0.390537e-03_jprb &
17534  &, 0.340806e-03_jprb, 0.289561e-03_jprb, 0.236784e-03_jprb, 0.239943e-03_jprb &
17535  &, 0.184844e-03_jprb, 0.187249e-03_jprb, 0.129781e-03_jprb &
17536  &, 0.131409e-03_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17537  &, 0.740184e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17538 
17539 IF (lhook) CALL dr_hook('SU_MCICA:PART57',1,zhook_handle)
17540 END SUBROUTINE part57
17541 
17542 #ifdef VPP5000
17543 !OCL SCALAR
17544 #endif
17545 !option! -Nv -NO
17546 #ifdef RS6K
17547 @process nooptimize
17548 #endif
17549 !pgi$r opt=0
17550 SUBROUTINE part58
17551 
17552 REAL(KIND=JPRB) :: ZHOOK_HANDLE
17553 IF (lhook) CALL dr_hook('SU_MCICA:PART58',0,zhook_handle)
17554 
17555 xcw( 400, :) = (/ &
17556  & 0.971444e+00_jprb, 0.963370e+00_jprb, 0.954927e+00_jprb, 0.946129e+00_jprb &
17557  &, 0.936978e+00_jprb, 0.927480e+00_jprb, 0.917641e+00_jprb &
17558  &, 0.907469e+00_jprb, 0.896971e+00_jprb, 0.886153e+00_jprb, 0.875024e+00_jprb &
17559  &, 0.863590e+00_jprb, 0.851859e+00_jprb, 0.839842e+00_jprb &
17560  &, 0.827546e+00_jprb, 0.814980e+00_jprb, 0.802155e+00_jprb, 0.789079e+00_jprb &
17561  &, 0.775766e+00_jprb, 0.762220e+00_jprb, 0.748461e+00_jprb &
17562  &, 0.734497e+00_jprb, 0.720341e+00_jprb, 0.706002e+00_jprb, 0.691498e+00_jprb &
17563  &, 0.676841e+00_jprb, 0.662042e+00_jprb, 0.647120e+00_jprb &
17564  &, 0.632091e+00_jprb, 0.616967e+00_jprb, 0.601765e+00_jprb, 0.586496e+00_jprb &
17565  &, 0.571188e+00_jprb, 0.555847e+00_jprb, 0.540495e+00_jprb &
17566  &, 0.525143e+00_jprb, 0.509825e+00_jprb, 0.494529e+00_jprb, 0.479309e+00_jprb &
17567  &, 0.464150e+00_jprb, 0.449080e+00_jprb, 0.434131e+00_jprb &
17568  &, 0.419292e+00_jprb, 0.404596e+00_jprb, 0.390067e+00_jprb, 0.375708e+00_jprb &
17569  &, 0.361532e+00_jprb, 0.347551e+00_jprb, 0.333805e+00_jprb &
17570  &, 0.320280e+00_jprb, 0.307003e+00_jprb, 0.293972e+00_jprb, 0.281211e+00_jprb &
17571  &, 0.268729e+00_jprb, 0.256536e+00_jprb, 0.244638e+00_jprb &
17572  &, 0.233057e+00_jprb, 0.221766e+00_jprb, 0.210813e+00_jprb, 0.200169e+00_jprb &
17573  &, 0.189863e+00_jprb, 0.179875e+00_jprb, 0.170235e+00_jprb &
17574  &, 0.160916e+00_jprb, 0.151945e+00_jprb, 0.143308e+00_jprb, 0.135010e+00_jprb &
17575  &, 0.127033e+00_jprb, 0.119397e+00_jprb, 0.112098e+00_jprb &
17576  &, 0.105113e+00_jprb, 0.984335e-01_jprb, 0.920714e-01_jprb, 0.860379e-01_jprb &
17577  &, 0.802748e-01_jprb, 0.748109e-01_jprb, 0.696520e-01_jprb &
17578  &, 0.647543e-01_jprb, 0.601432e-01_jprb, 0.557694e-01_jprb, 0.516554e-01_jprb &
17579  &, 0.477981e-01_jprb, 0.441663e-01_jprb, 0.407527e-01_jprb &
17580  &, 0.375760e-01_jprb, 0.345989e-01_jprb, 0.318091e-01_jprb, 0.291926e-01_jprb &
17581  &, 0.267938e-01_jprb, 0.245371e-01_jprb, 0.224343e-01_jprb &
17582  &, 0.204972e-01_jprb, 0.187058e-01_jprb, 0.170381e-01_jprb, 0.155032e-01_jprb &
17583  &, 0.141107e-01_jprb, 0.128012e-01_jprb, 0.116160e-01_jprb &
17584  &, 0.105278e-01_jprb, 0.950665e-02_jprb, 0.859459e-02_jprb, 0.776084e-02_jprb &
17585  &, 0.697227e-02_jprb, 0.627114e-02_jprb, 0.562323e-02_jprb &
17586  &, 0.507224e-02_jprb, 0.454204e-02_jprb, 0.407580e-02_jprb, 0.363511e-02_jprb &
17587  &, 0.322172e-02_jprb, 0.288096e-02_jprb, 0.257255e-02_jprb &
17588  &, 0.229839e-02_jprb, 0.201485e-02_jprb, 0.181434e-02_jprb, 0.160703e-02_jprb &
17589  &, 0.139283e-02_jprb, 0.122005e-02_jprb, 0.109078e-02_jprb &
17590  &, 0.957270e-03_jprb, 0.819479e-03_jprb, 0.728683e-03_jprb, 0.634990e-03_jprb &
17591  &, 0.538365e-03_jprb, 0.492368e-03_jprb, 0.444899e-03_jprb &
17592  &, 0.340806e-03_jprb, 0.289561e-03_jprb, 0.293480e-03_jprb, 0.239943e-03_jprb &
17593  &, 0.184844e-03_jprb, 0.187249e-03_jprb, 0.129781e-03_jprb &
17594  &, 0.131409e-03_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17595  &, 0.740184e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17596 xcw( 401, :) = (/ &
17597  & 0.971700e+00_jprb, 0.963685e+00_jprb, 0.955304e+00_jprb, 0.946566e+00_jprb &
17598  &, 0.937474e+00_jprb, 0.928034e+00_jprb, 0.918254e+00_jprb &
17599  &, 0.908139e+00_jprb, 0.897696e+00_jprb, 0.886933e+00_jprb, 0.875856e+00_jprb &
17600  &, 0.864474e+00_jprb, 0.852794e+00_jprb, 0.840826e+00_jprb &
17601  &, 0.828578e+00_jprb, 0.816060e+00_jprb, 0.803280e+00_jprb, 0.790249e+00_jprb &
17602  &, 0.776977e+00_jprb, 0.763473e+00_jprb, 0.749754e+00_jprb &
17603  &, 0.735826e+00_jprb, 0.721704e+00_jprb, 0.707401e+00_jprb, 0.692930e+00_jprb &
17604  &, 0.678299e+00_jprb, 0.663532e+00_jprb, 0.648639e+00_jprb &
17605  &, 0.633631e+00_jprb, 0.618530e+00_jprb, 0.603350e+00_jprb, 0.588104e+00_jprb &
17606  &, 0.572811e+00_jprb, 0.557484e+00_jprb, 0.542146e+00_jprb &
17607  &, 0.526807e+00_jprb, 0.511484e+00_jprb, 0.496211e+00_jprb, 0.480983e+00_jprb &
17608  &, 0.465825e+00_jprb, 0.450766e+00_jprb, 0.435806e+00_jprb &
17609  &, 0.420964e+00_jprb, 0.406264e+00_jprb, 0.391719e+00_jprb, 0.377354e+00_jprb &
17610  &, 0.363169e+00_jprb, 0.349179e+00_jprb, 0.335408e+00_jprb &
17611  &, 0.321870e+00_jprb, 0.308565e+00_jprb, 0.295516e+00_jprb, 0.282735e+00_jprb &
17612  &, 0.270232e+00_jprb, 0.258015e+00_jprb, 0.246092e+00_jprb &
17613  &, 0.234467e+00_jprb, 0.223161e+00_jprb, 0.212160e+00_jprb, 0.201496e+00_jprb &
17614  &, 0.191153e+00_jprb, 0.181143e+00_jprb, 0.171460e+00_jprb &
17615  &, 0.162114e+00_jprb, 0.153095e+00_jprb, 0.144426e+00_jprb, 0.136075e+00_jprb &
17616  &, 0.128082e+00_jprb, 0.120408e+00_jprb, 0.113048e+00_jprb &
17617  &, 0.106020e+00_jprb, 0.993164e-01_jprb, 0.929287e-01_jprb, 0.868457e-01_jprb &
17618  &, 0.810534e-01_jprb, 0.755587e-01_jprb, 0.703673e-01_jprb &
17619  &, 0.654353e-01_jprb, 0.607882e-01_jprb, 0.563766e-01_jprb, 0.522487e-01_jprb &
17620  &, 0.483504e-01_jprb, 0.446757e-01_jprb, 0.412445e-01_jprb &
17621  &, 0.380215e-01_jprb, 0.350245e-01_jprb, 0.322138e-01_jprb, 0.295755e-01_jprb &
17622  &, 0.271537e-01_jprb, 0.248731e-01_jprb, 0.227453e-01_jprb &
17623  &, 0.207822e-01_jprb, 0.189637e-01_jprb, 0.173005e-01_jprb, 0.157369e-01_jprb &
17624  &, 0.143146e-01_jprb, 0.130086e-01_jprb, 0.117919e-01_jprb &
17625  &, 0.106709e-01_jprb, 0.965220e-02_jprb, 0.874260e-02_jprb, 0.787371e-02_jprb &
17626  &, 0.708704e-02_jprb, 0.638780e-02_jprb, 0.574182e-02_jprb &
17627  &, 0.515259e-02_jprb, 0.462370e-02_jprb, 0.411729e-02_jprb, 0.367726e-02_jprb &
17628  &, 0.330737e-02_jprb, 0.292446e-02_jprb, 0.261673e-02_jprb &
17629  &, 0.234326e-02_jprb, 0.206041e-02_jprb, 0.181434e-02_jprb, 0.160703e-02_jprb &
17630  &, 0.144051e-02_jprb, 0.126845e-02_jprb, 0.109078e-02_jprb &
17631  &, 0.957270e-03_jprb, 0.870071e-03_jprb, 0.728683e-03_jprb, 0.634990e-03_jprb &
17632  &, 0.591202e-03_jprb, 0.492368e-03_jprb, 0.444899e-03_jprb &
17633  &, 0.395940e-03_jprb, 0.345473e-03_jprb, 0.293480e-03_jprb, 0.239943e-03_jprb &
17634  &, 0.184844e-03_jprb, 0.187249e-03_jprb, 0.129781e-03_jprb &
17635  &, 0.131409e-03_jprb, 0.715239e-04_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17636  &, 0.740184e-04_jprb, 0.100000e-04_jprb, 0.100000e-04_jprb/)
17637 xcw( 402, :) = (/ &
17638  & 0.971953e+00_jprb, 0.964000e+00_jprb, 0.955681e+00_jprb, 0.947004e+00_jprb &
17639  &, 0.937971e+00_jprb, 0.928589e+00_jprb, 0.918867e+00_jprb &
17640  &, 0.908807e+00_jprb, 0.898420e+00_jprb, 0.887712e+00_jprb, 0.876689e+00_jprb &
17641  &, 0.865358e+00_jprb, 0.853730e+00_jprb, 0.841811e+00_jprb &
17642  &, 0.829612e+00_jprb, 0.817139e+00_jprb, 0.804405e+00_jprb, 0.791418e+00_jprb &
17643  &, 0.778188e+00_jprb, 0.764727e+00_jprb, 0.751045e+00_jprb &
17644  &, 0.737156e+00_jprb, 0.723071e+00_jprb, 0.708799e+00_jprb, 0.694361e+00_jprb &
17645  &, 0.679765e+00_jprb, 0.665026e+00_jprb, 0.650158e+00_jprb &
17646  &, 0.635176e+00_jprb, 0.620097e+00_jprb, 0.604935e+00_jprb, 0.589708e+00_jprb &
17647  &, 0.574433e+00_jprb, 0.559121e+00_jprb, 0.543797e+00_jprb &
17648  &, 0.528463e+00_jprb, 0.513163e+00_jprb, 0.497883e+00_jprb, 0.482667e+00_jprb &
17649  &, 0.467511e+00_jprb, 0.452452e+00_jprb, 0.437491e+00_jprb &
17650  &, 0.422647e+00_jprb, 0.407944e+00_jprb, 0.393383e+00_jprb, 0.378999e+00_jprb &
17651  &, 0.364807e+00_jprb, 0.350806e+00_jprb, 0.337024e+00_jprb &
17652  &, 0.323460e+00_jprb, 0.310139e+00_jprb, 0.297073e+00_jprb, 0.284259e+00_jprb &
17653  &, 0.271735e+00_jprb, 0.259494e+00_jprb, 0.247545e+00_jprb &
17654  &, 0.235893e+00_jprb, 0.224541e+00_jprb, 0.213523e+00_jprb, 0.202824e+00_jprb &
17655  &, 0.192443e+00_jprb, 0.182393e+00_jprb, 0.172684e+00_jprb &
17656  &, 0.163293e+00_jprb, 0.154245e+00_jprb, 0.145545e+00_jprb, 0.137160e+00_jprb &
17657  &, 0.129131e+00_jprb, 0.121418e+00_jprb, 0.114019e+00_jprb &
17658  &, 0.106969e+00_jprb, 0.100221e+00_jprb, 0.937860e-01_jprb, 0.876759e-01_jprb &
17659  &, 0.818549e-01_jprb, 0.763299e-01_jprb, 0.710826e-01_jprb &
17660  &, 0.661163e-01_jprb, 0.614332e-01_jprb, 0.570091e-01_jprb, 0.528420e-01_jprb &
17661  &, 0.489027e-01_jprb, 0.452119e-01_jprb, 0.417364e-01_jprb &
17662  &, 0.384949e-01_jprb, 0.354501e-01_jprb, 0.326185e-01_jprb, 0.299583e-01_jprb &
17663  &, 0.275136e-01_jprb, 0.252091e-01_jprb, 0.230564e-01_jprb &
17664  &, 0.210989e-01_jprb, 0.192538e-01_jprb, 0.175630e-01_jprb, 0.160041e-01_jprb &
17665  &, 0.145524e-01_jprb, 0.132160e-01_jprb, 0.119677e-01_jprb &
17666  &, 0.108497e-01_jprb, 0.983412e-02_jprb, 0.889061e-02_jprb, 0.802421e-02_jprb &
17667  &, 0.724005e-02_jprb, 0.650447e-02_jprb, 0.586041e-02_jprb &
17668  &, 0.523294e-02_jprb, 0.470535e-02_jprb, 0.420027e-02_jprb, 0.376156e-02_jprb &
17669  &, 0.335019e-02_jprb, 0.301146e-02_jprb, 0.266092e-02_jprb &
17670  &, 0.238813e-02_jprb, 0.210598e-02_jprb, 0.186060e-02_jprb, 0.165400e-02_jprb &
17671  &, 0.148819e-02_jprb, 0.131685e-02_jprb, 0.113990e-02_jprb &
17672  &, 0.100713e-02_jprb, 0.870071e-03_jprb, 0.780017e-03_jprb, 0.687073e-03_jprb &
17673  &, 0.591202e-03_jprb, 0.492368e-03_jprb, 0.444899e-03_jprb &
17674  &, 0.395940e-03_jprb, 0.345473e-03_jprb, 0.293480e-03_jprb, 0.239943e-03_jprb &
17675  &, 0.184844e-03_jprb, 0.187249e-03_jprb, 0.129781e-03_jprb &
17676  &, 0.131409e-03_jprb, 0.133048e-03_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17677  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.100000e-04_jprb/)
17678 xcw( 403, :) = (/ &
17679  & 0.972208e+00_jprb, 0.964317e+00_jprb, 0.956058e+00_jprb, 0.947441e+00_jprb &
17680  &, 0.938467e+00_jprb, 0.929145e+00_jprb, 0.919479e+00_jprb &
17681  &, 0.909476e+00_jprb, 0.899144e+00_jprb, 0.888491e+00_jprb, 0.877520e+00_jprb &
17682  &, 0.866243e+00_jprb, 0.854665e+00_jprb, 0.842797e+00_jprb &
17683  &, 0.830645e+00_jprb, 0.818221e+00_jprb, 0.805531e+00_jprb, 0.792588e+00_jprb &
17684  &, 0.779401e+00_jprb, 0.765980e+00_jprb, 0.752339e+00_jprb &
17685  &, 0.738485e+00_jprb, 0.724434e+00_jprb, 0.710201e+00_jprb, 0.695793e+00_jprb &
17686  &, 0.681227e+00_jprb, 0.666516e+00_jprb, 0.651677e+00_jprb &
17687  &, 0.636720e+00_jprb, 0.621667e+00_jprb, 0.606528e+00_jprb, 0.591320e+00_jprb &
17688  &, 0.576060e+00_jprb, 0.560762e+00_jprb, 0.545448e+00_jprb &
17689  &, 0.530128e+00_jprb, 0.514832e+00_jprb, 0.499565e+00_jprb, 0.484351e+00_jprb &
17690  &, 0.469197e+00_jprb, 0.454138e+00_jprb, 0.439176e+00_jprb &
17691  &, 0.424331e+00_jprb, 0.409613e+00_jprb, 0.395059e+00_jprb, 0.380657e+00_jprb &
17692  &, 0.366456e+00_jprb, 0.352434e+00_jprb, 0.338628e+00_jprb &
17693  &, 0.325050e+00_jprb, 0.311714e+00_jprb, 0.298631e+00_jprb, 0.285798e+00_jprb &
17694  &, 0.273238e+00_jprb, 0.260974e+00_jprb, 0.248999e+00_jprb &
17695  &, 0.237319e+00_jprb, 0.225952e+00_jprb, 0.214886e+00_jprb, 0.204152e+00_jprb &
17696  &, 0.193750e+00_jprb, 0.183660e+00_jprb, 0.173909e+00_jprb &
17697  &, 0.164491e+00_jprb, 0.155413e+00_jprb, 0.146663e+00_jprb, 0.138245e+00_jprb &
17698  &, 0.130180e+00_jprb, 0.122429e+00_jprb, 0.114989e+00_jprb &
17699  &, 0.107897e+00_jprb, 0.101125e+00_jprb, 0.946433e-01_jprb, 0.884837e-01_jprb &
17700  &, 0.826335e-01_jprb, 0.770776e-01_jprb, 0.717978e-01_jprb &
17701  &, 0.667973e-01_jprb, 0.620782e-01_jprb, 0.576162e-01_jprb, 0.534095e-01_jprb &
17702  &, 0.494550e-01_jprb, 0.457481e-01_jprb, 0.422556e-01_jprb &
17703  &, 0.389684e-01_jprb, 0.359041e-01_jprb, 0.330232e-01_jprb, 0.303705e-01_jprb &
17704  &, 0.278735e-01_jprb, 0.255451e-01_jprb, 0.233985e-01_jprb &
17705  &, 0.213838e-01_jprb, 0.195439e-01_jprb, 0.178255e-01_jprb, 0.162378e-01_jprb &
17706  &, 0.147563e-01_jprb, 0.134234e-01_jprb, 0.121787e-01_jprb &
17707  &, 0.110286e-01_jprb, 0.997967e-02_jprb, 0.903862e-02_jprb, 0.813709e-02_jprb &
17708  &, 0.735482e-02_jprb, 0.662114e-02_jprb, 0.593947e-02_jprb &
17709  &, 0.535347e-02_jprb, 0.478701e-02_jprb, 0.428324e-02_jprb, 0.384587e-02_jprb &
17710  &, 0.343584e-02_jprb, 0.305496e-02_jprb, 0.274928e-02_jprb &
17711  &, 0.243300e-02_jprb, 0.215154e-02_jprb, 0.190687e-02_jprb, 0.170097e-02_jprb &
17712  &, 0.148819e-02_jprb, 0.131685e-02_jprb, 0.118903e-02_jprb &
17713  &, 0.100713e-02_jprb, 0.920664e-03_jprb, 0.780017e-03_jprb, 0.687073e-03_jprb &
17714  &, 0.591202e-03_jprb, 0.545965e-03_jprb, 0.444899e-03_jprb &
17715  &, 0.395940e-03_jprb, 0.345473e-03_jprb, 0.293480e-03_jprb, 0.239943e-03_jprb &
17716  &, 0.243126e-03_jprb, 0.187249e-03_jprb, 0.129781e-03_jprb &
17717  &, 0.131409e-03_jprb, 0.133048e-03_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17718  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.100000e-04_jprb/)
17719 xcw( 404, :) = (/ &
17720  & 0.972462e+00_jprb, 0.964632e+00_jprb, 0.956435e+00_jprb, 0.947878e+00_jprb &
17721  &, 0.938964e+00_jprb, 0.929700e+00_jprb, 0.920091e+00_jprb &
17722  &, 0.910146e+00_jprb, 0.899870e+00_jprb, 0.889269e+00_jprb, 0.878353e+00_jprb &
17723  &, 0.867127e+00_jprb, 0.855600e+00_jprb, 0.843782e+00_jprb &
17724  &, 0.831679e+00_jprb, 0.819300e+00_jprb, 0.806656e+00_jprb, 0.793757e+00_jprb &
17725  &, 0.780614e+00_jprb, 0.767233e+00_jprb, 0.753632e+00_jprb &
17726  &, 0.739818e+00_jprb, 0.725805e+00_jprb, 0.711603e+00_jprb, 0.697228e+00_jprb &
17727  &, 0.682693e+00_jprb, 0.668013e+00_jprb, 0.653199e+00_jprb &
17728  &, 0.638269e+00_jprb, 0.623238e+00_jprb, 0.608118e+00_jprb, 0.592928e+00_jprb &
17729  &, 0.577687e+00_jprb, 0.562408e+00_jprb, 0.547109e+00_jprb &
17730  &, 0.531802e+00_jprb, 0.516510e+00_jprb, 0.501247e+00_jprb, 0.486036e+00_jprb &
17731  &, 0.470893e+00_jprb, 0.455825e+00_jprb, 0.440862e+00_jprb &
17732  &, 0.426014e+00_jprb, 0.411293e+00_jprb, 0.396722e+00_jprb, 0.382326e+00_jprb &
17733  &, 0.368106e+00_jprb, 0.354074e+00_jprb, 0.340257e+00_jprb &
17734  &, 0.326653e+00_jprb, 0.313302e+00_jprb, 0.300188e+00_jprb, 0.287336e+00_jprb &
17735  &, 0.274755e+00_jprb, 0.262468e+00_jprb, 0.250453e+00_jprb &
17736  &, 0.238744e+00_jprb, 0.227348e+00_jprb, 0.216265e+00_jprb, 0.205496e+00_jprb &
17737  &, 0.195057e+00_jprb, 0.184927e+00_jprb, 0.175152e+00_jprb &
17738  &, 0.165689e+00_jprb, 0.156582e+00_jprb, 0.147801e+00_jprb, 0.139349e+00_jprb &
17739  &, 0.131229e+00_jprb, 0.123440e+00_jprb, 0.115981e+00_jprb &
17740  &, 0.108846e+00_jprb, 0.102029e+00_jprb, 0.955226e-01_jprb, 0.893363e-01_jprb &
17741  &, 0.834350e-01_jprb, 0.778488e-01_jprb, 0.725369e-01_jprb &
17742  &, 0.675026e-01_jprb, 0.627480e-01_jprb, 0.582487e-01_jprb, 0.540029e-01_jprb &
17743  &, 0.500336e-01_jprb, 0.462843e-01_jprb, 0.427475e-01_jprb &
17744  &, 0.394418e-01_jprb, 0.363581e-01_jprb, 0.334568e-01_jprb, 0.307534e-01_jprb &
17745  &, 0.282335e-01_jprb, 0.258811e-01_jprb, 0.237095e-01_jprb &
17746  &, 0.217005e-01_jprb, 0.198018e-01_jprb, 0.180880e-01_jprb, 0.164715e-01_jprb &
17747  &, 0.149941e-01_jprb, 0.136308e-01_jprb, 0.123897e-01_jprb &
17748  &, 0.112075e-01_jprb, 0.101616e-01_jprb, 0.918663e-02_jprb, 0.828759e-02_jprb &
17749  &, 0.746958e-02_jprb, 0.673780e-02_jprb, 0.605806e-02_jprb &
17750  &, 0.543383e-02_jprb, 0.490950e-02_jprb, 0.436622e-02_jprb, 0.393017e-02_jprb &
17751  &, 0.352148e-02_jprb, 0.314196e-02_jprb, 0.279346e-02_jprb &
17752  &, 0.247787e-02_jprb, 0.219711e-02_jprb, 0.195314e-02_jprb, 0.174794e-02_jprb &
17753  &, 0.153588e-02_jprb, 0.136525e-02_jprb, 0.118903e-02_jprb &
17754  &, 0.105698e-02_jprb, 0.920664e-03_jprb, 0.831352e-03_jprb, 0.687073e-03_jprb &
17755  &, 0.644038e-03_jprb, 0.545965e-03_jprb, 0.499262e-03_jprb &
17756  &, 0.395940e-03_jprb, 0.345473e-03_jprb, 0.293480e-03_jprb, 0.239943e-03_jprb &
17757  &, 0.243126e-03_jprb, 0.187249e-03_jprb, 0.189672e-03_jprb &
17758  &, 0.131409e-03_jprb, 0.133048e-03_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17759  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.100000e-04_jprb/)
17760 xcw( 405, :) = (/ &
17761  & 0.972716e+00_jprb, 0.964947e+00_jprb, 0.956812e+00_jprb, 0.948315e+00_jprb &
17762  &, 0.939460e+00_jprb, 0.930254e+00_jprb, 0.920704e+00_jprb &
17763  &, 0.910815e+00_jprb, 0.900593e+00_jprb, 0.890048e+00_jprb, 0.879185e+00_jprb &
17764  &, 0.868012e+00_jprb, 0.856536e+00_jprb, 0.844767e+00_jprb &
17765  &, 0.832712e+00_jprb, 0.820376e+00_jprb, 0.807783e+00_jprb, 0.794928e+00_jprb &
17766  &, 0.781826e+00_jprb, 0.768489e+00_jprb, 0.754926e+00_jprb &
17767  &, 0.741148e+00_jprb, 0.727171e+00_jprb, 0.713005e+00_jprb, 0.698663e+00_jprb &
17768  &, 0.684159e+00_jprb, 0.669507e+00_jprb, 0.654722e+00_jprb &
17769  &, 0.639817e+00_jprb, 0.624809e+00_jprb, 0.609711e+00_jprb, 0.594541e+00_jprb &
17770  &, 0.579318e+00_jprb, 0.564054e+00_jprb, 0.548764e+00_jprb &
17771  &, 0.533467e+00_jprb, 0.518188e+00_jprb, 0.502938e+00_jprb, 0.487730e+00_jprb &
17772  &, 0.472589e+00_jprb, 0.457521e+00_jprb, 0.442558e+00_jprb &
17773  &, 0.427697e+00_jprb, 0.412973e+00_jprb, 0.398398e+00_jprb, 0.383995e+00_jprb &
17774  &, 0.369755e+00_jprb, 0.355714e+00_jprb, 0.341873e+00_jprb &
17775  &, 0.328269e+00_jprb, 0.314890e+00_jprb, 0.301760e+00_jprb, 0.288889e+00_jprb &
17776  &, 0.276272e+00_jprb, 0.263962e+00_jprb, 0.251921e+00_jprb &
17777  &, 0.240186e+00_jprb, 0.228759e+00_jprb, 0.217644e+00_jprb, 0.206841e+00_jprb &
17778  &, 0.196364e+00_jprb, 0.186212e+00_jprb, 0.176394e+00_jprb &
17779  &, 0.166905e+00_jprb, 0.157750e+00_jprb, 0.148938e+00_jprb, 0.140453e+00_jprb &
17780  &, 0.132298e+00_jprb, 0.124471e+00_jprb, 0.116972e+00_jprb &
17781  &, 0.109795e+00_jprb, 0.102934e+00_jprb, 0.964019e-01_jprb, 0.901665e-01_jprb &
17782  &, 0.842365e-01_jprb, 0.785966e-01_jprb, 0.732522e-01_jprb &
17783  &, 0.682080e-01_jprb, 0.634178e-01_jprb, 0.588812e-01_jprb, 0.546220e-01_jprb &
17784  &, 0.505859e-01_jprb, 0.468205e-01_jprb, 0.432666e-01_jprb &
17785  &, 0.399152e-01_jprb, 0.368121e-01_jprb, 0.338905e-01_jprb, 0.311656e-01_jprb &
17786  &, 0.286234e-01_jprb, 0.262476e-01_jprb, 0.240516e-01_jprb &
17787  &, 0.219855e-01_jprb, 0.200919e-01_jprb, 0.183504e-01_jprb, 0.167387e-01_jprb &
17788  &, 0.152320e-01_jprb, 0.138383e-01_jprb, 0.125656e-01_jprb &
17789  &, 0.113864e-01_jprb, 0.103435e-01_jprb, 0.933464e-02_jprb, 0.843809e-02_jprb &
17790  &, 0.762260e-02_jprb, 0.685447e-02_jprb, 0.617665e-02_jprb &
17791  &, 0.555436e-02_jprb, 0.499116e-02_jprb, 0.444920e-02_jprb, 0.401448e-02_jprb &
17792  &, 0.356430e-02_jprb, 0.318546e-02_jprb, 0.283764e-02_jprb &
17793  &, 0.252274e-02_jprb, 0.224267e-02_jprb, 0.199940e-02_jprb, 0.179491e-02_jprb &
17794  &, 0.158356e-02_jprb, 0.136525e-02_jprb, 0.123815e-02_jprb &
17795  &, 0.105698e-02_jprb, 0.971256e-03_jprb, 0.831352e-03_jprb, 0.739156e-03_jprb &
17796  &, 0.644038e-03_jprb, 0.545965e-03_jprb, 0.499262e-03_jprb &
17797  &, 0.395940e-03_jprb, 0.345473e-03_jprb, 0.293480e-03_jprb, 0.297428e-03_jprb &
17798  &, 0.243126e-03_jprb, 0.187249e-03_jprb, 0.189672e-03_jprb &
17799  &, 0.131409e-03_jprb, 0.133048e-03_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17800  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.100000e-04_jprb/)
17801 xcw( 406, :) = (/ &
17802  & 0.972970e+00_jprb, 0.965263e+00_jprb, 0.957188e+00_jprb, 0.948752e+00_jprb &
17803  &, 0.939956e+00_jprb, 0.930809e+00_jprb, 0.921316e+00_jprb &
17804  &, 0.911483e+00_jprb, 0.901318e+00_jprb, 0.890827e+00_jprb, 0.880018e+00_jprb &
17805  &, 0.868896e+00_jprb, 0.857471e+00_jprb, 0.845752e+00_jprb &
17806  &, 0.833746e+00_jprb, 0.821461e+00_jprb, 0.808909e+00_jprb, 0.796099e+00_jprb &
17807  &, 0.783041e+00_jprb, 0.769742e+00_jprb, 0.756220e+00_jprb &
17808  &, 0.742481e+00_jprb, 0.728541e+00_jprb, 0.714411e+00_jprb, 0.700102e+00_jprb &
17809  &, 0.685628e+00_jprb, 0.671005e+00_jprb, 0.656248e+00_jprb &
17810  &, 0.641369e+00_jprb, 0.626383e+00_jprb, 0.611309e+00_jprb, 0.596157e+00_jprb &
17811  &, 0.580950e+00_jprb, 0.565700e+00_jprb, 0.550429e+00_jprb &
17812  &, 0.535141e+00_jprb, 0.519867e+00_jprb, 0.504620e+00_jprb, 0.489424e+00_jprb &
17813  &, 0.474285e+00_jprb, 0.459218e+00_jprb, 0.444254e+00_jprb &
17814  &, 0.429392e+00_jprb, 0.414665e+00_jprb, 0.400085e+00_jprb, 0.385665e+00_jprb &
17815  &, 0.371417e+00_jprb, 0.357354e+00_jprb, 0.343502e+00_jprb &
17816  &, 0.329872e+00_jprb, 0.316478e+00_jprb, 0.303331e+00_jprb, 0.290427e+00_jprb &
17817  &, 0.277804e+00_jprb, 0.265456e+00_jprb, 0.253390e+00_jprb &
17818  &, 0.241627e+00_jprb, 0.230170e+00_jprb, 0.219023e+00_jprb, 0.208185e+00_jprb &
17819  &, 0.197672e+00_jprb, 0.187496e+00_jprb, 0.177637e+00_jprb &
17820  &, 0.168120e+00_jprb, 0.158937e+00_jprb, 0.150076e+00_jprb, 0.141558e+00_jprb &
17821  &, 0.133367e+00_jprb, 0.125502e+00_jprb, 0.117963e+00_jprb &
17822  &, 0.110744e+00_jprb, 0.103860e+00_jprb, 0.972812e-01_jprb, 0.910192e-01_jprb &
17823  &, 0.850609e-01_jprb, 0.793911e-01_jprb, 0.739913e-01_jprb &
17824  &, 0.689133e-01_jprb, 0.640876e-01_jprb, 0.595137e-01_jprb, 0.552153e-01_jprb &
17825  &, 0.511646e-01_jprb, 0.473567e-01_jprb, 0.437585e-01_jprb &
17826  &, 0.404164e-01_jprb, 0.372661e-01_jprb, 0.343241e-01_jprb, 0.315485e-01_jprb &
17827  &, 0.289833e-01_jprb, 0.266142e-01_jprb, 0.243626e-01_jprb &
17828  &, 0.223021e-01_jprb, 0.203820e-01_jprb, 0.186129e-01_jprb, 0.169724e-01_jprb &
17829  &, 0.154698e-01_jprb, 0.140457e-01_jprb, 0.127766e-01_jprb &
17830  &, 0.116010e-01_jprb, 0.104891e-01_jprb, 0.948265e-02_jprb, 0.858860e-02_jprb &
17831  &, 0.773736e-02_jprb, 0.697114e-02_jprb, 0.629524e-02_jprb &
17832  &, 0.563471e-02_jprb, 0.507282e-02_jprb, 0.453217e-02_jprb, 0.405663e-02_jprb &
17833  &, 0.364995e-02_jprb, 0.327246e-02_jprb, 0.292601e-02_jprb &
17834  &, 0.256761e-02_jprb, 0.228824e-02_jprb, 0.204567e-02_jprb, 0.179491e-02_jprb &
17835  &, 0.158356e-02_jprb, 0.141366e-02_jprb, 0.123815e-02_jprb &
17836  &, 0.110684e-02_jprb, 0.971256e-03_jprb, 0.831352e-03_jprb, 0.739156e-03_jprb &
17837  &, 0.644038e-03_jprb, 0.545965e-03_jprb, 0.499262e-03_jprb &
17838  &, 0.451074e-03_jprb, 0.401385e-03_jprb, 0.350176e-03_jprb, 0.297428e-03_jprb &
17839  &, 0.243126e-03_jprb, 0.187249e-03_jprb, 0.189672e-03_jprb &
17840  &, 0.131409e-03_jprb, 0.133048e-03_jprb, 0.723494e-04_jprb, 0.731809e-04_jprb &
17841  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.100000e-04_jprb/)
17842 
17843 IF (lhook) CALL dr_hook('SU_MCICA:PART58',1,zhook_handle)
17844 END SUBROUTINE part58
17845 
17846 #ifdef VPP5000
17847 !OCL SCALAR
17848 #endif
17849 !option! -Nv -NO
17850 #ifdef RS6K
17851 @process nooptimize
17852 #endif
17853 !pgi$r opt=0
17854 SUBROUTINE part59
17855 
17856 REAL(KIND=JPRB) :: ZHOOK_HANDLE
17857 IF (lhook) CALL dr_hook('SU_MCICA:PART59',0,zhook_handle)
17858 
17859 xcw( 407, :) = (/ &
17860  & 0.973221e+00_jprb, 0.965579e+00_jprb, 0.957564e+00_jprb, 0.949188e+00_jprb &
17861  &, 0.940452e+00_jprb, 0.931364e+00_jprb, 0.921928e+00_jprb &
17862  &, 0.912152e+00_jprb, 0.902043e+00_jprb, 0.891606e+00_jprb, 0.880850e+00_jprb &
17863  &, 0.869781e+00_jprb, 0.858407e+00_jprb, 0.846737e+00_jprb &
17864  &, 0.834780e+00_jprb, 0.822542e+00_jprb, 0.810037e+00_jprb, 0.797270e+00_jprb &
17865  &, 0.784255e+00_jprb, 0.770999e+00_jprb, 0.757517e+00_jprb &
17866  &, 0.743817e+00_jprb, 0.729912e+00_jprb, 0.715813e+00_jprb, 0.701537e+00_jprb &
17867  &, 0.687098e+00_jprb, 0.672502e+00_jprb, 0.657775e+00_jprb &
17868  &, 0.642918e+00_jprb, 0.627958e+00_jprb, 0.612906e+00_jprb, 0.597774e+00_jprb &
17869  &, 0.582585e+00_jprb, 0.567350e+00_jprb, 0.552089e+00_jprb &
17870  &, 0.536816e+00_jprb, 0.521555e+00_jprb, 0.506322e+00_jprb, 0.491119e+00_jprb &
17871  &, 0.475981e+00_jprb, 0.460914e+00_jprb, 0.445950e+00_jprb &
17872  &, 0.431086e+00_jprb, 0.416356e+00_jprb, 0.401760e+00_jprb, 0.387334e+00_jprb &
17873  &, 0.373079e+00_jprb, 0.359007e+00_jprb, 0.345144e+00_jprb &
17874  &, 0.331489e+00_jprb, 0.318080e+00_jprb, 0.304902e+00_jprb, 0.291980e+00_jprb &
17875  &, 0.279336e+00_jprb, 0.266965e+00_jprb, 0.254874e+00_jprb &
17876  &, 0.243084e+00_jprb, 0.231597e+00_jprb, 0.220418e+00_jprb, 0.209546e+00_jprb &
17877  &, 0.198996e+00_jprb, 0.188781e+00_jprb, 0.178897e+00_jprb &
17878  &, 0.169336e+00_jprb, 0.160106e+00_jprb, 0.151213e+00_jprb, 0.142662e+00_jprb &
17879  &, 0.134435e+00_jprb, 0.126534e+00_jprb, 0.118954e+00_jprb &
17880  &, 0.111714e+00_jprb, 0.104786e+00_jprb, 0.981824e-01_jprb, 0.918718e-01_jprb &
17881  &, 0.858625e-01_jprb, 0.801622e-01_jprb, 0.747542e-01_jprb &
17882  &, 0.696186e-01_jprb, 0.647574e-01_jprb, 0.601715e-01_jprb, 0.558345e-01_jprb &
17883  &, 0.517432e-01_jprb, 0.478929e-01_jprb, 0.442777e-01_jprb &
17884  &, 0.408898e-01_jprb, 0.377201e-01_jprb, 0.347577e-01_jprb, 0.319607e-01_jprb &
17885  &, 0.293732e-01_jprb, 0.269502e-01_jprb, 0.247047e-01_jprb &
17886  &, 0.226188e-01_jprb, 0.206721e-01_jprb, 0.188754e-01_jprb, 0.172395e-01_jprb &
17887  &, 0.157077e-01_jprb, 0.142877e-01_jprb, 0.129876e-01_jprb &
17888  &, 0.117799e-01_jprb, 0.106710e-01_jprb, 0.966767e-02_jprb, 0.873910e-02_jprb &
17889  &, 0.789038e-02_jprb, 0.712669e-02_jprb, 0.641383e-02_jprb &
17890  &, 0.575524e-02_jprb, 0.515448e-02_jprb, 0.465663e-02_jprb, 0.414093e-02_jprb &
17891  &, 0.373560e-02_jprb, 0.331596e-02_jprb, 0.297019e-02_jprb &
17892  &, 0.265735e-02_jprb, 0.233380e-02_jprb, 0.209193e-02_jprb, 0.184189e-02_jprb &
17893  &, 0.163125e-02_jprb, 0.146206e-02_jprb, 0.128728e-02_jprb &
17894  &, 0.115669e-02_jprb, 0.102185e-02_jprb, 0.882686e-03_jprb, 0.791238e-03_jprb &
17895  &, 0.696875e-03_jprb, 0.599561e-03_jprb, 0.499262e-03_jprb &
17896  &, 0.451074e-03_jprb, 0.401385e-03_jprb, 0.350176e-03_jprb, 0.297428e-03_jprb &
17897  &, 0.243126e-03_jprb, 0.187249e-03_jprb, 0.189672e-03_jprb &
17898  &, 0.131409e-03_jprb, 0.133048e-03_jprb, 0.134699e-03_jprb, 0.731809e-04_jprb &
17899  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
17900 xcw( 408, :) = (/ &
17901  & 0.973475e+00_jprb, 0.965894e+00_jprb, 0.957941e+00_jprb, 0.949624e+00_jprb &
17902  &, 0.940948e+00_jprb, 0.931918e+00_jprb, 0.922540e+00_jprb &
17903  &, 0.912821e+00_jprb, 0.902766e+00_jprb, 0.892385e+00_jprb, 0.881682e+00_jprb &
17904  &, 0.870666e+00_jprb, 0.859343e+00_jprb, 0.847723e+00_jprb &
17905  &, 0.835815e+00_jprb, 0.823625e+00_jprb, 0.811164e+00_jprb, 0.798442e+00_jprb &
17906  &, 0.785469e+00_jprb, 0.772255e+00_jprb, 0.758811e+00_jprb &
17907  &, 0.745150e+00_jprb, 0.731282e+00_jprb, 0.717222e+00_jprb, 0.702979e+00_jprb &
17908  &, 0.688568e+00_jprb, 0.674003e+00_jprb, 0.659301e+00_jprb &
17909  &, 0.644474e+00_jprb, 0.629537e+00_jprb, 0.614504e+00_jprb, 0.599394e+00_jprb &
17910  &, 0.584221e+00_jprb, 0.569004e+00_jprb, 0.553758e+00_jprb &
17911  &, 0.538499e+00_jprb, 0.523243e+00_jprb, 0.508013e+00_jprb, 0.492823e+00_jprb &
17912  &, 0.477687e+00_jprb, 0.462622e+00_jprb, 0.447657e+00_jprb &
17913  &, 0.432792e+00_jprb, 0.418047e+00_jprb, 0.403459e+00_jprb, 0.389015e+00_jprb &
17914  &, 0.374740e+00_jprb, 0.360660e+00_jprb, 0.346786e+00_jprb &
17915  &, 0.333118e+00_jprb, 0.319682e+00_jprb, 0.306488e+00_jprb, 0.293547e+00_jprb &
17916  &, 0.280868e+00_jprb, 0.268474e+00_jprb, 0.256358e+00_jprb &
17917  &, 0.244540e+00_jprb, 0.233009e+00_jprb, 0.221813e+00_jprb, 0.210907e+00_jprb &
17918  &, 0.200337e+00_jprb, 0.190083e+00_jprb, 0.180157e+00_jprb &
17919  &, 0.170570e+00_jprb, 0.161312e+00_jprb, 0.152369e+00_jprb, 0.143785e+00_jprb &
17920  &, 0.135504e+00_jprb, 0.127585e+00_jprb, 0.119966e+00_jprb &
17921  &, 0.112684e+00_jprb, 0.105711e+00_jprb, 0.990617e-01_jprb, 0.927245e-01_jprb &
17922  &, 0.866869e-01_jprb, 0.809567e-01_jprb, 0.754933e-01_jprb &
17923  &, 0.703239e-01_jprb, 0.654272e-01_jprb, 0.608039e-01_jprb, 0.564536e-01_jprb &
17924  &, 0.523218e-01_jprb, 0.484560e-01_jprb, 0.447969e-01_jprb &
17925  &, 0.413911e-01_jprb, 0.381741e-01_jprb, 0.351913e-01_jprb, 0.323730e-01_jprb &
17926  &, 0.297631e-01_jprb, 0.273167e-01_jprb, 0.250469e-01_jprb &
17927  &, 0.229354e-01_jprb, 0.209945e-01_jprb, 0.191707e-01_jprb, 0.174732e-01_jprb &
17928  &, 0.159455e-01_jprb, 0.144951e-01_jprb, 0.131635e-01_jprb &
17929  &, 0.119587e-01_jprb, 0.108529e-01_jprb, 0.981568e-02_jprb, 0.888960e-02_jprb &
17930  &, 0.800514e-02_jprb, 0.724336e-02_jprb, 0.653241e-02_jprb &
17931  &, 0.587577e-02_jprb, 0.527696e-02_jprb, 0.473961e-02_jprb, 0.422524e-02_jprb &
17932  &, 0.377842e-02_jprb, 0.340296e-02_jprb, 0.301437e-02_jprb &
17933  &, 0.270222e-02_jprb, 0.242493e-02_jprb, 0.213820e-02_jprb, 0.188886e-02_jprb &
17934  &, 0.167893e-02_jprb, 0.151046e-02_jprb, 0.133641e-02_jprb &
17935  &, 0.115669e-02_jprb, 0.102185e-02_jprb, 0.882686e-03_jprb, 0.791238e-03_jprb &
17936  &, 0.696875e-03_jprb, 0.599561e-03_jprb, 0.553624e-03_jprb &
17937  &, 0.451074e-03_jprb, 0.401385e-03_jprb, 0.350176e-03_jprb, 0.297428e-03_jprb &
17938  &, 0.243126e-03_jprb, 0.246332e-03_jprb, 0.189672e-03_jprb &
17939  &, 0.131409e-03_jprb, 0.133048e-03_jprb, 0.134699e-03_jprb, 0.731809e-04_jprb &
17940  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
17941 xcw( 409, :) = (/ &
17942  & 0.973730e+00_jprb, 0.966211e+00_jprb, 0.958316e+00_jprb, 0.950061e+00_jprb &
17943  &, 0.941444e+00_jprb, 0.932472e+00_jprb, 0.923152e+00_jprb &
17944  &, 0.913489e+00_jprb, 0.903491e+00_jprb, 0.893164e+00_jprb, 0.882514e+00_jprb &
17945  &, 0.871550e+00_jprb, 0.860279e+00_jprb, 0.848709e+00_jprb &
17946  &, 0.836848e+00_jprb, 0.824706e+00_jprb, 0.812292e+00_jprb, 0.799615e+00_jprb &
17947  &, 0.786685e+00_jprb, 0.773511e+00_jprb, 0.760108e+00_jprb &
17948  &, 0.746486e+00_jprb, 0.732655e+00_jprb, 0.718628e+00_jprb, 0.704418e+00_jprb &
17949  &, 0.690041e+00_jprb, 0.675505e+00_jprb, 0.660832e+00_jprb &
17950  &, 0.646014e+00_jprb, 0.631115e+00_jprb, 0.616105e+00_jprb, 0.601015e+00_jprb &
17951  &, 0.585860e+00_jprb, 0.570659e+00_jprb, 0.555427e+00_jprb &
17952  &, 0.540173e+00_jprb, 0.524931e+00_jprb, 0.509715e+00_jprb, 0.494527e+00_jprb &
17953  &, 0.479393e+00_jprb, 0.464329e+00_jprb, 0.449364e+00_jprb &
17954  &, 0.434497e+00_jprb, 0.419750e+00_jprb, 0.405146e+00_jprb, 0.390697e+00_jprb &
17955  &, 0.376415e+00_jprb, 0.362325e+00_jprb, 0.348427e+00_jprb &
17956  &, 0.334747e+00_jprb, 0.321283e+00_jprb, 0.308073e+00_jprb, 0.295113e+00_jprb &
17957  &, 0.282414e+00_jprb, 0.269983e+00_jprb, 0.257842e+00_jprb &
17958  &, 0.245997e+00_jprb, 0.234452e+00_jprb, 0.223209e+00_jprb, 0.212284e+00_jprb &
17959  &, 0.201678e+00_jprb, 0.191385e+00_jprb, 0.181435e+00_jprb &
17960  &, 0.171804e+00_jprb, 0.162499e+00_jprb, 0.153545e+00_jprb, 0.144909e+00_jprb &
17961  &, 0.136593e+00_jprb, 0.128636e+00_jprb, 0.120978e+00_jprb &
17962  &, 0.113654e+00_jprb, 0.106659e+00_jprb, 0.999630e-01_jprb, 0.935996e-01_jprb &
17963  &, 0.875113e-01_jprb, 0.817279e-01_jprb, 0.762562e-01_jprb &
17964  &, 0.710536e-01_jprb, 0.661218e-01_jprb, 0.614617e-01_jprb, 0.570727e-01_jprb &
17965  &, 0.529267e-01_jprb, 0.490190e-01_jprb, 0.453434e-01_jprb &
17966  &, 0.418923e-01_jprb, 0.386565e-01_jprb, 0.356250e-01_jprb, 0.327853e-01_jprb &
17967  &, 0.301530e-01_jprb, 0.276832e-01_jprb, 0.253890e-01_jprb &
17968  &, 0.232521e-01_jprb, 0.212846e-01_jprb, 0.194331e-01_jprb, 0.177404e-01_jprb &
17969  &, 0.161833e-01_jprb, 0.147371e-01_jprb, 0.133745e-01_jprb &
17970  &, 0.121734e-01_jprb, 0.110349e-01_jprb, 0.100007e-01_jprb, 0.904010e-02_jprb &
17971  &, 0.815816e-02_jprb, 0.736003e-02_jprb, 0.665100e-02_jprb &
17972  &, 0.595612e-02_jprb, 0.535862e-02_jprb, 0.482259e-02_jprb, 0.430954e-02_jprb &
17973  &, 0.386407e-02_jprb, 0.344646e-02_jprb, 0.310274e-02_jprb &
17974  &, 0.274709e-02_jprb, 0.247050e-02_jprb, 0.218446e-02_jprb, 0.193583e-02_jprb &
17975  &, 0.172661e-02_jprb, 0.151046e-02_jprb, 0.133641e-02_jprb &
17976  &, 0.120655e-02_jprb, 0.102185e-02_jprb, 0.934021e-03_jprb, 0.791238e-03_jprb &
17977  &, 0.696875e-03_jprb, 0.599561e-03_jprb, 0.553624e-03_jprb &
17978  &, 0.451074e-03_jprb, 0.401385e-03_jprb, 0.350176e-03_jprb, 0.297428e-03_jprb &
17979  &, 0.243126e-03_jprb, 0.246332e-03_jprb, 0.189672e-03_jprb &
17980  &, 0.192113e-03_jprb, 0.133048e-03_jprb, 0.134699e-03_jprb, 0.731809e-04_jprb &
17981  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
17982 xcw( 410, :) = (/ &
17983  & 0.973982e+00_jprb, 0.966523e+00_jprb, 0.958692e+00_jprb, 0.950497e+00_jprb &
17984  &, 0.941939e+00_jprb, 0.933026e+00_jprb, 0.923763e+00_jprb &
17985  &, 0.914157e+00_jprb, 0.904215e+00_jprb, 0.893943e+00_jprb, 0.883347e+00_jprb &
17986  &, 0.872435e+00_jprb, 0.861214e+00_jprb, 0.849694e+00_jprb &
17987  &, 0.837883e+00_jprb, 0.825789e+00_jprb, 0.813420e+00_jprb, 0.800787e+00_jprb &
17988  &, 0.787901e+00_jprb, 0.774770e+00_jprb, 0.761405e+00_jprb &
17989  &, 0.747822e+00_jprb, 0.734026e+00_jprb, 0.720037e+00_jprb, 0.705861e+00_jprb &
17990  &, 0.691514e+00_jprb, 0.677010e+00_jprb, 0.662362e+00_jprb &
17991  &, 0.647586e+00_jprb, 0.632694e+00_jprb, 0.617707e+00_jprb, 0.602640e+00_jprb &
17992  &, 0.587487e+00_jprb, 0.572318e+00_jprb, 0.557097e+00_jprb &
17993  &, 0.541857e+00_jprb, 0.526628e+00_jprb, 0.511416e+00_jprb, 0.496232e+00_jprb &
17994  &, 0.481099e+00_jprb, 0.466047e+00_jprb, 0.451071e+00_jprb &
17995  &, 0.436203e+00_jprb, 0.421453e+00_jprb, 0.406845e+00_jprb, 0.392378e+00_jprb &
17996  &, 0.378089e+00_jprb, 0.363977e+00_jprb, 0.350069e+00_jprb &
17997  &, 0.336377e+00_jprb, 0.322898e+00_jprb, 0.309672e+00_jprb, 0.296680e+00_jprb &
17998  &, 0.283960e+00_jprb, 0.271507e+00_jprb, 0.259341e+00_jprb &
17999  &, 0.247469e+00_jprb, 0.235879e+00_jprb, 0.224620e+00_jprb, 0.213662e+00_jprb &
18000  &, 0.203019e+00_jprb, 0.192687e+00_jprb, 0.182696e+00_jprb &
18001  &, 0.173038e+00_jprb, 0.163705e+00_jprb, 0.154701e+00_jprb, 0.146032e+00_jprb &
18002  &, 0.137701e+00_jprb, 0.129688e+00_jprb, 0.122010e+00_jprb &
18003  &, 0.114645e+00_jprb, 0.107606e+00_jprb, 0.100864e+00_jprb, 0.944522e-01_jprb &
18004  &, 0.883586e-01_jprb, 0.825457e-01_jprb, 0.770192e-01_jprb &
18005  &, 0.717832e-01_jprb, 0.668164e-01_jprb, 0.621195e-01_jprb, 0.576918e-01_jprb &
18006  &, 0.535053e-01_jprb, 0.495820e-01_jprb, 0.458626e-01_jprb &
18007  &, 0.423936e-01_jprb, 0.391388e-01_jprb, 0.360875e-01_jprb, 0.332270e-01_jprb &
18008  &, 0.305429e-01_jprb, 0.280498e-01_jprb, 0.257311e-01_jprb &
18009  &, 0.236004e-01_jprb, 0.215747e-01_jprb, 0.197284e-01_jprb, 0.180075e-01_jprb &
18010  &, 0.164212e-01_jprb, 0.149445e-01_jprb, 0.135855e-01_jprb &
18011  &, 0.123523e-01_jprb, 0.112168e-01_jprb, 0.101487e-01_jprb, 0.919060e-02_jprb &
18012  &, 0.831117e-02_jprb, 0.747670e-02_jprb, 0.676959e-02_jprb &
18013  &, 0.607665e-02_jprb, 0.548111e-02_jprb, 0.490556e-02_jprb, 0.439385e-02_jprb &
18014  &, 0.394971e-02_jprb, 0.353346e-02_jprb, 0.314692e-02_jprb &
18015  &, 0.279196e-02_jprb, 0.251606e-02_jprb, 0.223073e-02_jprb, 0.198280e-02_jprb &
18016  &, 0.177430e-02_jprb, 0.155886e-02_jprb, 0.138553e-02_jprb &
18017  &, 0.120655e-02_jprb, 0.107244e-02_jprb, 0.934021e-03_jprb, 0.843321e-03_jprb &
18018  &, 0.749711e-03_jprb, 0.653158e-03_jprb, 0.553624e-03_jprb &
18019  &, 0.506209e-03_jprb, 0.401385e-03_jprb, 0.350176e-03_jprb, 0.297428e-03_jprb &
18020  &, 0.243126e-03_jprb, 0.246332e-03_jprb, 0.189672e-03_jprb &
18021  &, 0.192113e-03_jprb, 0.133048e-03_jprb, 0.134699e-03_jprb, 0.731809e-04_jprb &
18022  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18023 xcw( 411, :) = (/ &
18024  & 0.974236e+00_jprb, 0.966838e+00_jprb, 0.959069e+00_jprb, 0.950933e+00_jprb &
18025  &, 0.942434e+00_jprb, 0.933580e+00_jprb, 0.924375e+00_jprb &
18026  &, 0.914826e+00_jprb, 0.904940e+00_jprb, 0.894721e+00_jprb, 0.884179e+00_jprb &
18027  &, 0.873320e+00_jprb, 0.862150e+00_jprb, 0.850681e+00_jprb &
18028  &, 0.838918e+00_jprb, 0.826872e+00_jprb, 0.814549e+00_jprb, 0.801961e+00_jprb &
18029  &, 0.789118e+00_jprb, 0.776027e+00_jprb, 0.762705e+00_jprb &
18030  &, 0.749158e+00_jprb, 0.735402e+00_jprb, 0.721446e+00_jprb, 0.707303e+00_jprb &
18031  &, 0.692987e+00_jprb, 0.678511e+00_jprb, 0.663892e+00_jprb &
18032  &, 0.649143e+00_jprb, 0.634277e+00_jprb, 0.619313e+00_jprb, 0.604265e+00_jprb &
18033  &, 0.589144e+00_jprb, 0.573977e+00_jprb, 0.558775e+00_jprb &
18034  &, 0.543550e+00_jprb, 0.528326e+00_jprb, 0.513117e+00_jprb, 0.497936e+00_jprb &
18035  &, 0.482816e+00_jprb, 0.467764e+00_jprb, 0.452789e+00_jprb &
18036  &, 0.437919e+00_jprb, 0.423167e+00_jprb, 0.408543e+00_jprb, 0.394071e+00_jprb &
18037  &, 0.379775e+00_jprb, 0.365655e+00_jprb, 0.351724e+00_jprb &
18038  &, 0.338006e+00_jprb, 0.324513e+00_jprb, 0.311270e+00_jprb, 0.298261e+00_jprb &
18039  &, 0.285507e+00_jprb, 0.273031e+00_jprb, 0.260840e+00_jprb &
18040  &, 0.248941e+00_jprb, 0.237322e+00_jprb, 0.226032e+00_jprb, 0.215039e+00_jprb &
18041  &, 0.204360e+00_jprb, 0.194006e+00_jprb, 0.183991e+00_jprb &
18042  &, 0.174290e+00_jprb, 0.164910e+00_jprb, 0.155877e+00_jprb, 0.147175e+00_jprb &
18043  &, 0.138790e+00_jprb, 0.130739e+00_jprb, 0.123022e+00_jprb &
18044  &, 0.115636e+00_jprb, 0.108554e+00_jprb, 0.101788e+00_jprb, 0.953273e-01_jprb &
18045  &, 0.891830e-01_jprb, 0.833403e-01_jprb, 0.777821e-01_jprb &
18046  &, 0.725129e-01_jprb, 0.675111e-01_jprb, 0.627773e-01_jprb, 0.583110e-01_jprb &
18047  &, 0.541102e-01_jprb, 0.501450e-01_jprb, 0.464091e-01_jprb &
18048  &, 0.428948e-01_jprb, 0.396212e-01_jprb, 0.365211e-01_jprb, 0.336392e-01_jprb &
18049  &, 0.309328e-01_jprb, 0.284468e-01_jprb, 0.261043e-01_jprb &
18050  &, 0.239170e-01_jprb, 0.218970e-01_jprb, 0.200237e-01_jprb, 0.182746e-01_jprb &
18051  &, 0.166590e-01_jprb, 0.151865e-01_jprb, 0.137965e-01_jprb &
18052  &, 0.125669e-01_jprb, 0.113987e-01_jprb, 0.103337e-01_jprb, 0.934110e-02_jprb &
18053  &, 0.846419e-02_jprb, 0.763225e-02_jprb, 0.688818e-02_jprb &
18054  &, 0.619718e-02_jprb, 0.556277e-02_jprb, 0.498854e-02_jprb, 0.447815e-02_jprb &
18055  &, 0.403536e-02_jprb, 0.362046e-02_jprb, 0.323528e-02_jprb &
18056  &, 0.288170e-02_jprb, 0.256163e-02_jprb, 0.227699e-02_jprb, 0.202977e-02_jprb &
18057  &, 0.177430e-02_jprb, 0.160726e-02_jprb, 0.138553e-02_jprb &
18058  &, 0.125641e-02_jprb, 0.112303e-02_jprb, 0.985355e-03_jprb, 0.843321e-03_jprb &
18059  &, 0.749711e-03_jprb, 0.653158e-03_jprb, 0.553624e-03_jprb &
18060  &, 0.506209e-03_jprb, 0.457297e-03_jprb, 0.350176e-03_jprb, 0.297428e-03_jprb &
18061  &, 0.301407e-03_jprb, 0.246332e-03_jprb, 0.189672e-03_jprb &
18062  &, 0.192113e-03_jprb, 0.133048e-03_jprb, 0.134699e-03_jprb, 0.731809e-04_jprb &
18063  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18064 xcw( 412, :) = (/ &
18065  & 0.974489e+00_jprb, 0.967154e+00_jprb, 0.959444e+00_jprb, 0.951369e+00_jprb &
18066  &, 0.942930e+00_jprb, 0.934134e+00_jprb, 0.924987e+00_jprb &
18067  &, 0.915495e+00_jprb, 0.905663e+00_jprb, 0.895500e+00_jprb, 0.885012e+00_jprb &
18068  &, 0.874204e+00_jprb, 0.863088e+00_jprb, 0.851668e+00_jprb &
18069  &, 0.839953e+00_jprb, 0.827954e+00_jprb, 0.815677e+00_jprb, 0.803135e+00_jprb &
18070  &, 0.790334e+00_jprb, 0.777286e+00_jprb, 0.764005e+00_jprb &
18071  &, 0.750497e+00_jprb, 0.736776e+00_jprb, 0.722855e+00_jprb, 0.708745e+00_jprb &
18072  &, 0.694464e+00_jprb, 0.680020e+00_jprb, 0.665426e+00_jprb &
18073  &, 0.650703e+00_jprb, 0.635864e+00_jprb, 0.620919e+00_jprb, 0.605890e+00_jprb &
18074  &, 0.590793e+00_jprb, 0.575640e+00_jprb, 0.560449e+00_jprb &
18075  &, 0.545233e+00_jprb, 0.530024e+00_jprb, 0.514819e+00_jprb, 0.499650e+00_jprb &
18076  &, 0.484533e+00_jprb, 0.469482e+00_jprb, 0.454506e+00_jprb &
18077  &, 0.439636e+00_jprb, 0.424870e+00_jprb, 0.410242e+00_jprb, 0.395776e+00_jprb &
18078  &, 0.381461e+00_jprb, 0.367320e+00_jprb, 0.353379e+00_jprb &
18079  &, 0.339648e+00_jprb, 0.326142e+00_jprb, 0.312869e+00_jprb, 0.299842e+00_jprb &
18080  &, 0.287067e+00_jprb, 0.274569e+00_jprb, 0.262355e+00_jprb &
18081  &, 0.250414e+00_jprb, 0.238781e+00_jprb, 0.227443e+00_jprb, 0.216417e+00_jprb &
18082  &, 0.205718e+00_jprb, 0.195326e+00_jprb, 0.185269e+00_jprb &
18083  &, 0.175542e+00_jprb, 0.166134e+00_jprb, 0.157052e+00_jprb, 0.148318e+00_jprb &
18084  &, 0.139898e+00_jprb, 0.131810e+00_jprb, 0.124055e+00_jprb &
18085  &, 0.116627e+00_jprb, 0.109501e+00_jprb, 0.102711e+00_jprb, 0.962248e-01_jprb &
18086  &, 0.900303e-01_jprb, 0.841581e-01_jprb, 0.785450e-01_jprb &
18087  &, 0.732425e-01_jprb, 0.682305e-01_jprb, 0.634604e-01_jprb, 0.589559e-01_jprb &
18088  &, 0.547151e-01_jprb, 0.507080e-01_jprb, 0.469556e-01_jprb &
18089  &, 0.434239e-01_jprb, 0.401036e-01_jprb, 0.369836e-01_jprb, 0.340809e-01_jprb &
18090  &, 0.313527e-01_jprb, 0.288134e-01_jprb, 0.264464e-01_jprb &
18091  &, 0.242337e-01_jprb, 0.221871e-01_jprb, 0.203190e-01_jprb, 0.185417e-01_jprb &
18092  &, 0.169309e-01_jprb, 0.154285e-01_jprb, 0.140427e-01_jprb &
18093  &, 0.127458e-01_jprb, 0.115806e-01_jprb, 0.104817e-01_jprb, 0.949161e-02_jprb &
18094  &, 0.857895e-02_jprb, 0.774892e-02_jprb, 0.700677e-02_jprb &
18095  &, 0.631771e-02_jprb, 0.568525e-02_jprb, 0.511300e-02_jprb, 0.456246e-02_jprb &
18096  &, 0.412100e-02_jprb, 0.366395e-02_jprb, 0.327946e-02_jprb &
18097  &, 0.292657e-02_jprb, 0.260719e-02_jprb, 0.232326e-02_jprb, 0.207674e-02_jprb &
18098  &, 0.182198e-02_jprb, 0.160726e-02_jprb, 0.143466e-02_jprb &
18099  &, 0.125641e-02_jprb, 0.112303e-02_jprb, 0.985355e-03_jprb, 0.895403e-03_jprb &
18100  &, 0.749711e-03_jprb, 0.653158e-03_jprb, 0.607987e-03_jprb &
18101  &, 0.506209e-03_jprb, 0.457297e-03_jprb, 0.406872e-03_jprb, 0.354914e-03_jprb &
18102  &, 0.301407e-03_jprb, 0.246332e-03_jprb, 0.189672e-03_jprb &
18103  &, 0.192113e-03_jprb, 0.133048e-03_jprb, 0.134699e-03_jprb, 0.136362e-03_jprb &
18104  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18105 xcw( 413, :) = (/ &
18106  & 0.974741e+00_jprb, 0.967467e+00_jprb, 0.959819e+00_jprb, 0.951805e+00_jprb &
18107  &, 0.943425e+00_jprb, 0.934688e+00_jprb, 0.925598e+00_jprb &
18108  &, 0.916163e+00_jprb, 0.906387e+00_jprb, 0.896279e+00_jprb, 0.885844e+00_jprb &
18109  &, 0.875089e+00_jprb, 0.864024e+00_jprb, 0.852654e+00_jprb &
18110  &, 0.840989e+00_jprb, 0.829037e+00_jprb, 0.816807e+00_jprb, 0.804309e+00_jprb &
18111  &, 0.791552e+00_jprb, 0.778546e+00_jprb, 0.765302e+00_jprb &
18112  &, 0.751834e+00_jprb, 0.738153e+00_jprb, 0.724267e+00_jprb, 0.710191e+00_jprb &
18113  &, 0.695940e+00_jprb, 0.681525e+00_jprb, 0.666964e+00_jprb &
18114  &, 0.652267e+00_jprb, 0.637450e+00_jprb, 0.622528e+00_jprb, 0.607523e+00_jprb &
18115  &, 0.592441e+00_jprb, 0.577304e+00_jprb, 0.562127e+00_jprb &
18116  &, 0.546926e+00_jprb, 0.531721e+00_jprb, 0.516530e+00_jprb, 0.501375e+00_jprb &
18117  &, 0.486249e+00_jprb, 0.471200e+00_jprb, 0.456224e+00_jprb &
18118  &, 0.441352e+00_jprb, 0.426584e+00_jprb, 0.411952e+00_jprb, 0.397469e+00_jprb &
18119  &, 0.383147e+00_jprb, 0.368998e+00_jprb, 0.355046e+00_jprb &
18120  &, 0.341304e+00_jprb, 0.327770e+00_jprb, 0.314482e+00_jprb, 0.301422e+00_jprb &
18121  &, 0.288628e+00_jprb, 0.276108e+00_jprb, 0.263854e+00_jprb &
18122  &, 0.251901e+00_jprb, 0.240240e+00_jprb, 0.228871e+00_jprb, 0.217811e+00_jprb &
18123  &, 0.207076e+00_jprb, 0.196662e+00_jprb, 0.186565e+00_jprb &
18124  &, 0.176794e+00_jprb, 0.167359e+00_jprb, 0.158246e+00_jprb, 0.149461e+00_jprb &
18125  &, 0.141006e+00_jprb, 0.132882e+00_jprb, 0.125087e+00_jprb &
18126  &, 0.117618e+00_jprb, 0.110470e+00_jprb, 0.103634e+00_jprb, 0.970999e-01_jprb &
18127  &, 0.908776e-01_jprb, 0.849760e-01_jprb, 0.793318e-01_jprb &
18128  &, 0.739965e-01_jprb, 0.689251e-01_jprb, 0.641434e-01_jprb, 0.596008e-01_jprb &
18129  &, 0.553200e-01_jprb, 0.512978e-01_jprb, 0.475021e-01_jprb &
18130  &, 0.439252e-01_jprb, 0.405859e-01_jprb, 0.374462e-01_jprb, 0.344932e-01_jprb &
18131  &, 0.317726e-01_jprb, 0.292104e-01_jprb, 0.268197e-01_jprb &
18132  &, 0.245820e-01_jprb, 0.225095e-01_jprb, 0.206143e-01_jprb, 0.188089e-01_jprb &
18133  &, 0.171687e-01_jprb, 0.156705e-01_jprb, 0.142537e-01_jprb &
18134  &, 0.129604e-01_jprb, 0.117626e-01_jprb, 0.106667e-01_jprb, 0.967973e-02_jprb &
18135  &, 0.873197e-02_jprb, 0.790447e-02_jprb, 0.712536e-02_jprb &
18136  &, 0.643824e-02_jprb, 0.576691e-02_jprb, 0.519598e-02_jprb, 0.464676e-02_jprb &
18137  &, 0.416383e-02_jprb, 0.375095e-02_jprb, 0.336783e-02_jprb &
18138  &, 0.297144e-02_jprb, 0.265276e-02_jprb, 0.236952e-02_jprb, 0.212371e-02_jprb &
18139  &, 0.186966e-02_jprb, 0.165567e-02_jprb, 0.148378e-02_jprb &
18140  &, 0.130626e-02_jprb, 0.117363e-02_jprb, 0.103669e-02_jprb, 0.895403e-03_jprb &
18141  &, 0.802548e-03_jprb, 0.706754e-03_jprb, 0.607987e-03_jprb &
18142  &, 0.506209e-03_jprb, 0.457297e-03_jprb, 0.406872e-03_jprb, 0.354914e-03_jprb &
18143  &, 0.301407e-03_jprb, 0.246332e-03_jprb, 0.189672e-03_jprb &
18144  &, 0.192113e-03_jprb, 0.133048e-03_jprb, 0.134699e-03_jprb, 0.136362e-03_jprb &
18145  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18146 
18147 IF (lhook) CALL dr_hook('SU_MCICA:PART59',1,zhook_handle)
18148 END SUBROUTINE part59
18149 
18150 #ifdef VPP5000
18151 !OCL SCALAR
18152 #endif
18153 !option! -Nv -NO
18154 #ifdef RS6K
18155 @process nooptimize
18156 #endif
18157 !pgi$r opt=0
18158 SUBROUTINE part60
18159 
18160 REAL(KIND=JPRB) :: ZHOOK_HANDLE
18161 IF (lhook) CALL dr_hook('SU_MCICA:PART60',0,zhook_handle)
18162 
18163 xcw( 414, :) = (/ &
18164  & 0.974995e+00_jprb, 0.967782e+00_jprb, 0.960195e+00_jprb, 0.952240e+00_jprb &
18165  &, 0.943920e+00_jprb, 0.935241e+00_jprb, 0.926209e+00_jprb &
18166  &, 0.916831e+00_jprb, 0.907112e+00_jprb, 0.897058e+00_jprb, 0.886677e+00_jprb &
18167  &, 0.875974e+00_jprb, 0.864960e+00_jprb, 0.853641e+00_jprb &
18168  &, 0.842024e+00_jprb, 0.830121e+00_jprb, 0.817936e+00_jprb, 0.805483e+00_jprb &
18169  &, 0.792770e+00_jprb, 0.779805e+00_jprb, 0.766606e+00_jprb &
18170  &, 0.753173e+00_jprb, 0.739530e+00_jprb, 0.725680e+00_jprb, 0.711637e+00_jprb &
18171  &, 0.697417e+00_jprb, 0.683034e+00_jprb, 0.668498e+00_jprb &
18172  &, 0.653831e+00_jprb, 0.639037e+00_jprb, 0.624142e+00_jprb, 0.609152e+00_jprb &
18173  &, 0.594090e+00_jprb, 0.578972e+00_jprb, 0.563810e+00_jprb &
18174  &, 0.548619e+00_jprb, 0.533428e+00_jprb, 0.518251e+00_jprb, 0.503089e+00_jprb &
18175  &, 0.487976e+00_jprb, 0.472928e+00_jprb, 0.457952e+00_jprb &
18176  &, 0.443069e+00_jprb, 0.428309e+00_jprb, 0.413674e+00_jprb, 0.399174e+00_jprb &
18177  &, 0.384846e+00_jprb, 0.370688e+00_jprb, 0.356714e+00_jprb &
18178  &, 0.342947e+00_jprb, 0.329399e+00_jprb, 0.316095e+00_jprb, 0.303017e+00_jprb &
18179  &, 0.290203e+00_jprb, 0.277646e+00_jprb, 0.265383e+00_jprb &
18180  &, 0.253389e+00_jprb, 0.241699e+00_jprb, 0.230299e+00_jprb, 0.219222e+00_jprb &
18181  &, 0.208451e+00_jprb, 0.197999e+00_jprb, 0.187861e+00_jprb &
18182  &, 0.178065e+00_jprb, 0.168583e+00_jprb, 0.159440e+00_jprb, 0.150623e+00_jprb &
18183  &, 0.142134e+00_jprb, 0.133974e+00_jprb, 0.126140e+00_jprb &
18184  &, 0.118631e+00_jprb, 0.111439e+00_jprb, 0.104557e+00_jprb, 0.979974e-01_jprb &
18185  &, 0.917478e-01_jprb, 0.857939e-01_jprb, 0.801186e-01_jprb &
18186  &, 0.747505e-01_jprb, 0.696445e-01_jprb, 0.648265e-01_jprb, 0.602457e-01_jprb &
18187  &, 0.559513e-01_jprb, 0.518877e-01_jprb, 0.480487e-01_jprb &
18188  &, 0.444543e-01_jprb, 0.410683e-01_jprb, 0.379087e-01_jprb, 0.349349e-01_jprb &
18189  &, 0.321626e-01_jprb, 0.295770e-01_jprb, 0.271618e-01_jprb &
18190  &, 0.249303e-01_jprb, 0.228318e-01_jprb, 0.209096e-01_jprb, 0.191094e-01_jprb &
18191  &, 0.174405e-01_jprb, 0.158779e-01_jprb, 0.144648e-01_jprb &
18192  &, 0.131751e-01_jprb, 0.119445e-01_jprb, 0.108517e-01_jprb, 0.983023e-02_jprb &
18193  &, 0.888498e-02_jprb, 0.802114e-02_jprb, 0.724395e-02_jprb &
18194  &, 0.655877e-02_jprb, 0.588940e-02_jprb, 0.527895e-02_jprb, 0.477322e-02_jprb &
18195  &, 0.424947e-02_jprb, 0.383795e-02_jprb, 0.341201e-02_jprb &
18196  &, 0.306119e-02_jprb, 0.274389e-02_jprb, 0.241579e-02_jprb, 0.217069e-02_jprb &
18197  &, 0.191735e-02_jprb, 0.170407e-02_jprb, 0.153291e-02_jprb &
18198  &, 0.135612e-02_jprb, 0.117363e-02_jprb, 0.103669e-02_jprb, 0.895403e-03_jprb &
18199  &, 0.802548e-03_jprb, 0.706754e-03_jprb, 0.607987e-03_jprb &
18200  &, 0.561343e-03_jprb, 0.457297e-03_jprb, 0.406872e-03_jprb, 0.354914e-03_jprb &
18201  &, 0.301407e-03_jprb, 0.246332e-03_jprb, 0.249563e-03_jprb &
18202  &, 0.192113e-03_jprb, 0.133048e-03_jprb, 0.134699e-03_jprb, 0.136362e-03_jprb &
18203  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18204 xcw( 415, :) = (/ &
18205  & 0.975247e+00_jprb, 0.968097e+00_jprb, 0.960570e+00_jprb, 0.952676e+00_jprb &
18206  &, 0.944416e+00_jprb, 0.935795e+00_jprb, 0.926822e+00_jprb &
18207  &, 0.917499e+00_jprb, 0.907836e+00_jprb, 0.897837e+00_jprb, 0.887509e+00_jprb &
18208  &, 0.876859e+00_jprb, 0.865898e+00_jprb, 0.854629e+00_jprb &
18209  &, 0.843061e+00_jprb, 0.831205e+00_jprb, 0.819067e+00_jprb, 0.806658e+00_jprb &
18210  &, 0.793989e+00_jprb, 0.781068e+00_jprb, 0.767906e+00_jprb &
18211  &, 0.754516e+00_jprb, 0.740907e+00_jprb, 0.727092e+00_jprb, 0.713086e+00_jprb &
18212  &, 0.698898e+00_jprb, 0.684546e+00_jprb, 0.670040e+00_jprb &
18213  &, 0.655395e+00_jprb, 0.640628e+00_jprb, 0.625752e+00_jprb, 0.610785e+00_jprb &
18214  &, 0.595743e+00_jprb, 0.580640e+00_jprb, 0.565497e+00_jprb &
18215  &, 0.550321e+00_jprb, 0.535135e+00_jprb, 0.519962e+00_jprb, 0.504813e+00_jprb &
18216  &, 0.489703e+00_jprb, 0.474656e+00_jprb, 0.459681e+00_jprb &
18217  &, 0.444796e+00_jprb, 0.430035e+00_jprb, 0.415385e+00_jprb, 0.400880e+00_jprb &
18218  &, 0.386544e+00_jprb, 0.372366e+00_jprb, 0.358381e+00_jprb &
18219  &, 0.344602e+00_jprb, 0.331041e+00_jprb, 0.317707e+00_jprb, 0.304612e+00_jprb &
18220  &, 0.291778e+00_jprb, 0.279200e+00_jprb, 0.266897e+00_jprb &
18221  &, 0.254892e+00_jprb, 0.243158e+00_jprb, 0.231743e+00_jprb, 0.220616e+00_jprb &
18222  &, 0.209826e+00_jprb, 0.199336e+00_jprb, 0.189174e+00_jprb &
18223  &, 0.179335e+00_jprb, 0.169826e+00_jprb, 0.160635e+00_jprb, 0.151786e+00_jprb &
18224  &, 0.143262e+00_jprb, 0.135065e+00_jprb, 0.127193e+00_jprb &
18225  &, 0.119643e+00_jprb, 0.112408e+00_jprb, 0.105503e+00_jprb, 0.988950e-01_jprb &
18226  &, 0.926180e-01_jprb, 0.866118e-01_jprb, 0.809054e-01_jprb &
18227  &, 0.755045e-01_jprb, 0.703639e-01_jprb, 0.655096e-01_jprb, 0.609164e-01_jprb &
18228  &, 0.565562e-01_jprb, 0.524775e-01_jprb, 0.485952e-01_jprb &
18229  &, 0.449834e-01_jprb, 0.415791e-01_jprb, 0.383712e-01_jprb, 0.353766e-01_jprb &
18230  &, 0.325825e-01_jprb, 0.299740e-01_jprb, 0.275350e-01_jprb &
18231  &, 0.252786e-01_jprb, 0.231541e-01_jprb, 0.212049e-01_jprb, 0.193765e-01_jprb &
18232  &, 0.176784e-01_jprb, 0.161199e-01_jprb, 0.147109e-01_jprb &
18233  &, 0.133540e-01_jprb, 0.121628e-01_jprb, 0.110368e-01_jprb, 0.998074e-02_jprb &
18234  &, 0.903800e-02_jprb, 0.817670e-02_jprb, 0.740207e-02_jprb &
18235  &, 0.667930e-02_jprb, 0.601189e-02_jprb, 0.540341e-02_jprb, 0.485752e-02_jprb &
18236  &, 0.433512e-02_jprb, 0.388145e-02_jprb, 0.350037e-02_jprb &
18237  &, 0.310606e-02_jprb, 0.278945e-02_jprb, 0.246205e-02_jprb, 0.221766e-02_jprb &
18238  &, 0.196503e-02_jprb, 0.175247e-02_jprb, 0.153291e-02_jprb &
18239  &, 0.135612e-02_jprb, 0.122422e-02_jprb, 0.108802e-02_jprb, 0.947486e-03_jprb &
18240  &, 0.802548e-03_jprb, 0.706754e-03_jprb, 0.607987e-03_jprb &
18241  &, 0.561343e-03_jprb, 0.457297e-03_jprb, 0.406872e-03_jprb, 0.354914e-03_jprb &
18242  &, 0.301407e-03_jprb, 0.246332e-03_jprb, 0.249563e-03_jprb &
18243  &, 0.192113e-03_jprb, 0.194572e-03_jprb, 0.134699e-03_jprb, 0.136362e-03_jprb &
18244  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18245 xcw( 416, :) = (/ &
18246  & 0.975499e+00_jprb, 0.968411e+00_jprb, 0.960946e+00_jprb, 0.953112e+00_jprb &
18247  &, 0.944910e+00_jprb, 0.936349e+00_jprb, 0.927433e+00_jprb &
18248  &, 0.918167e+00_jprb, 0.908559e+00_jprb, 0.898615e+00_jprb, 0.888342e+00_jprb &
18249  &, 0.877746e+00_jprb, 0.866834e+00_jprb, 0.855615e+00_jprb &
18250  &, 0.844097e+00_jprb, 0.832289e+00_jprb, 0.820198e+00_jprb, 0.807834e+00_jprb &
18251  &, 0.795209e+00_jprb, 0.782327e+00_jprb, 0.769209e+00_jprb &
18252  &, 0.755855e+00_jprb, 0.742284e+00_jprb, 0.728508e+00_jprb, 0.714532e+00_jprb &
18253  &, 0.700378e+00_jprb, 0.686055e+00_jprb, 0.671578e+00_jprb &
18254  &, 0.656963e+00_jprb, 0.642219e+00_jprb, 0.627370e+00_jprb, 0.612423e+00_jprb &
18255  &, 0.597400e+00_jprb, 0.582312e+00_jprb, 0.567184e+00_jprb &
18256  &, 0.552023e+00_jprb, 0.536852e+00_jprb, 0.521683e+00_jprb, 0.506538e+00_jprb &
18257  &, 0.491440e+00_jprb, 0.476384e+00_jprb, 0.461420e+00_jprb &
18258  &, 0.446535e+00_jprb, 0.431760e+00_jprb, 0.417107e+00_jprb, 0.402597e+00_jprb &
18259  &, 0.388242e+00_jprb, 0.374056e+00_jprb, 0.360061e+00_jprb &
18260  &, 0.346271e+00_jprb, 0.332683e+00_jprb, 0.319334e+00_jprb, 0.306221e+00_jprb &
18261  &, 0.293354e+00_jprb, 0.280753e+00_jprb, 0.268427e+00_jprb &
18262  &, 0.256380e+00_jprb, 0.244633e+00_jprb, 0.233187e+00_jprb, 0.222027e+00_jprb &
18263  &, 0.211201e+00_jprb, 0.200672e+00_jprb, 0.190488e+00_jprb &
18264  &, 0.180605e+00_jprb, 0.171068e+00_jprb, 0.161848e+00_jprb, 0.152948e+00_jprb &
18265  &, 0.144391e+00_jprb, 0.136157e+00_jprb, 0.128247e+00_jprb &
18266  &, 0.120655e+00_jprb, 0.113398e+00_jprb, 0.106448e+00_jprb, 0.998149e-01_jprb &
18267  &, 0.934882e-01_jprb, 0.874530e-01_jprb, 0.817160e-01_jprb &
18268  &, 0.762584e-01_jprb, 0.710833e-01_jprb, 0.661927e-01_jprb, 0.615614e-01_jprb &
18269  &, 0.571874e-01_jprb, 0.530673e-01_jprb, 0.491690e-01_jprb &
18270  &, 0.455125e-01_jprb, 0.420898e-01_jprb, 0.388627e-01_jprb, 0.358478e-01_jprb &
18271  &, 0.330024e-01_jprb, 0.303711e-01_jprb, 0.279082e-01_jprb &
18272  &, 0.256269e-01_jprb, 0.234765e-01_jprb, 0.215001e-01_jprb, 0.196770e-01_jprb &
18273  &, 0.179502e-01_jprb, 0.163965e-01_jprb, 0.149220e-01_jprb &
18274  &, 0.135686e-01_jprb, 0.123447e-01_jprb, 0.112218e-01_jprb, 0.101689e-01_jprb &
18275  &, 0.919102e-02_jprb, 0.833225e-02_jprb, 0.752066e-02_jprb &
18276  &, 0.679983e-02_jprb, 0.609355e-02_jprb, 0.548639e-02_jprb, 0.494183e-02_jprb &
18277  &, 0.442076e-02_jprb, 0.396845e-02_jprb, 0.354455e-02_jprb &
18278  &, 0.319580e-02_jprb, 0.283502e-02_jprb, 0.255458e-02_jprb, 0.226463e-02_jprb &
18279  &, 0.201272e-02_jprb, 0.180087e-02_jprb, 0.158204e-02_jprb &
18280  &, 0.140598e-02_jprb, 0.122422e-02_jprb, 0.108802e-02_jprb, 0.947486e-03_jprb &
18281  &, 0.855384e-03_jprb, 0.760351e-03_jprb, 0.662349e-03_jprb &
18282  &, 0.561343e-03_jprb, 0.513209e-03_jprb, 0.406872e-03_jprb, 0.354914e-03_jprb &
18283  &, 0.301407e-03_jprb, 0.305415e-03_jprb, 0.249563e-03_jprb &
18284  &, 0.192113e-03_jprb, 0.194572e-03_jprb, 0.134699e-03_jprb, 0.136362e-03_jprb &
18285  &, 0.740184e-04_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18286 xcw( 417, :) = (/ &
18287  & 0.975753e+00_jprb, 0.968726e+00_jprb, 0.961321e+00_jprb, 0.953547e+00_jprb &
18288  &, 0.945405e+00_jprb, 0.936902e+00_jprb, 0.928044e+00_jprb &
18289  &, 0.918836e+00_jprb, 0.909284e+00_jprb, 0.899395e+00_jprb, 0.889175e+00_jprb &
18290  &, 0.878631e+00_jprb, 0.867772e+00_jprb, 0.856603e+00_jprb &
18291  &, 0.845134e+00_jprb, 0.833373e+00_jprb, 0.821329e+00_jprb, 0.809011e+00_jprb &
18292  &, 0.796428e+00_jprb, 0.783590e+00_jprb, 0.770509e+00_jprb &
18293  &, 0.757198e+00_jprb, 0.743664e+00_jprb, 0.729920e+00_jprb, 0.715985e+00_jprb &
18294  &, 0.701862e+00_jprb, 0.687567e+00_jprb, 0.673120e+00_jprb &
18295  &, 0.658531e+00_jprb, 0.643813e+00_jprb, 0.628984e+00_jprb, 0.614060e+00_jprb &
18296  &, 0.599057e+00_jprb, 0.583989e+00_jprb, 0.568872e+00_jprb &
18297  &, 0.553725e+00_jprb, 0.538559e+00_jprb, 0.523404e+00_jprb, 0.508272e+00_jprb &
18298  &, 0.493167e+00_jprb, 0.478123e+00_jprb, 0.463149e+00_jprb &
18299  &, 0.448274e+00_jprb, 0.433486e+00_jprb, 0.418828e+00_jprb, 0.404314e+00_jprb &
18300  &, 0.389953e+00_jprb, 0.375759e+00_jprb, 0.361742e+00_jprb &
18301  &, 0.347940e+00_jprb, 0.334338e+00_jprb, 0.320960e+00_jprb, 0.307830e+00_jprb &
18302  &, 0.294943e+00_jprb, 0.282321e+00_jprb, 0.269971e+00_jprb &
18303  &, 0.257899e+00_jprb, 0.246107e+00_jprb, 0.234631e+00_jprb, 0.223454e+00_jprb &
18304  &, 0.212593e+00_jprb, 0.202026e+00_jprb, 0.191801e+00_jprb &
18305  &, 0.181894e+00_jprb, 0.172311e+00_jprb, 0.163061e+00_jprb, 0.154130e+00_jprb &
18306  &, 0.145519e+00_jprb, 0.137249e+00_jprb, 0.129320e+00_jprb &
18307  &, 0.121688e+00_jprb, 0.114389e+00_jprb, 0.107393e+00_jprb, 0.100735e+00_jprb &
18308  &, 0.943584e-01_jprb, 0.882943e-01_jprb, 0.825266e-01_jprb &
18309  &, 0.770367e-01_jprb, 0.718275e-01_jprb, 0.669010e-01_jprb, 0.622321e-01_jprb &
18310  &, 0.578186e-01_jprb, 0.536571e-01_jprb, 0.497428e-01_jprb &
18311  &, 0.460416e-01_jprb, 0.425722e-01_jprb, 0.393252e-01_jprb, 0.362895e-01_jprb &
18312  &, 0.334223e-01_jprb, 0.307682e-01_jprb, 0.282814e-01_jprb &
18313  &, 0.259753e-01_jprb, 0.237988e-01_jprb, 0.217954e-01_jprb, 0.199441e-01_jprb &
18314  &, 0.182220e-01_jprb, 0.166385e-01_jprb, 0.151681e-01_jprb &
18315  &, 0.137833e-01_jprb, 0.125267e-01_jprb, 0.114068e-01_jprb, 0.103194e-01_jprb &
18316  &, 0.934404e-02_jprb, 0.844892e-02_jprb, 0.763925e-02_jprb &
18317  &, 0.692036e-02_jprb, 0.621603e-02_jprb, 0.561085e-02_jprb, 0.502613e-02_jprb &
18318  &, 0.450641e-02_jprb, 0.405545e-02_jprb, 0.363292e-02_jprb &
18319  &, 0.324067e-02_jprb, 0.288058e-02_jprb, 0.260085e-02_jprb, 0.231160e-02_jprb &
18320  &, 0.206040e-02_jprb, 0.180087e-02_jprb, 0.163116e-02_jprb &
18321  &, 0.145583e-02_jprb, 0.127481e-02_jprb, 0.113936e-02_jprb, 0.999568e-03_jprb &
18322  &, 0.855384e-03_jprb, 0.760351e-03_jprb, 0.662349e-03_jprb &
18323  &, 0.561343e-03_jprb, 0.513209e-03_jprb, 0.463567e-03_jprb, 0.412400e-03_jprb &
18324  &, 0.359689e-03_jprb, 0.305415e-03_jprb, 0.249563e-03_jprb &
18325  &, 0.192113e-03_jprb, 0.194572e-03_jprb, 0.134699e-03_jprb, 0.136362e-03_jprb &
18326  &, 0.138037e-03_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18327 xcw( 418, :) = (/ &
18328  & 0.976003e+00_jprb, 0.969041e+00_jprb, 0.961696e+00_jprb, 0.953982e+00_jprb &
18329  &, 0.945900e+00_jprb, 0.937456e+00_jprb, 0.928655e+00_jprb &
18330  &, 0.919503e+00_jprb, 0.910008e+00_jprb, 0.900173e+00_jprb, 0.890008e+00_jprb &
18331  &, 0.879516e+00_jprb, 0.868709e+00_jprb, 0.857590e+00_jprb &
18332  &, 0.846171e+00_jprb, 0.834457e+00_jprb, 0.822460e+00_jprb, 0.810188e+00_jprb &
18333  &, 0.797648e+00_jprb, 0.784853e+00_jprb, 0.771816e+00_jprb &
18334  &, 0.758541e+00_jprb, 0.745044e+00_jprb, 0.731340e+00_jprb, 0.717434e+00_jprb &
18335  &, 0.703346e+00_jprb, 0.689083e+00_jprb, 0.674665e+00_jprb &
18336  &, 0.660102e+00_jprb, 0.645408e+00_jprb, 0.630606e+00_jprb, 0.615702e+00_jprb &
18337  &, 0.600718e+00_jprb, 0.585666e+00_jprb, 0.570564e+00_jprb &
18338  &, 0.555428e+00_jprb, 0.540276e+00_jprb, 0.525135e+00_jprb, 0.509997e+00_jprb &
18339  &, 0.494904e+00_jprb, 0.479862e+00_jprb, 0.464888e+00_jprb &
18340  &, 0.450013e+00_jprb, 0.435223e+00_jprb, 0.420562e+00_jprb, 0.406043e+00_jprb &
18341  &, 0.391664e+00_jprb, 0.377461e+00_jprb, 0.363435e+00_jprb &
18342  &, 0.349608e+00_jprb, 0.335993e+00_jprb, 0.322601e+00_jprb, 0.309439e+00_jprb &
18343  &, 0.296533e+00_jprb, 0.283889e+00_jprb, 0.271501e+00_jprb &
18344  &, 0.259402e+00_jprb, 0.247598e+00_jprb, 0.236091e+00_jprb, 0.224881e+00_jprb &
18345  &, 0.213985e+00_jprb, 0.203398e+00_jprb, 0.193133e+00_jprb &
18346  &, 0.183182e+00_jprb, 0.173573e+00_jprb, 0.164275e+00_jprb, 0.155311e+00_jprb &
18347  &, 0.146667e+00_jprb, 0.138361e+00_jprb, 0.130374e+00_jprb &
18348  &, 0.122722e+00_jprb, 0.115379e+00_jprb, 0.108360e+00_jprb, 0.101655e+00_jprb &
18349  &, 0.952286e-01_jprb, 0.891355e-01_jprb, 0.833134e-01_jprb &
18350  &, 0.778150e-01_jprb, 0.725718e-01_jprb, 0.676094e-01_jprb, 0.629028e-01_jprb &
18351  &, 0.584498e-01_jprb, 0.542738e-01_jprb, 0.503167e-01_jprb &
18352  &, 0.465985e-01_jprb, 0.431113e-01_jprb, 0.398167e-01_jprb, 0.367312e-01_jprb &
18353  &, 0.338722e-01_jprb, 0.311653e-01_jprb, 0.286547e-01_jprb &
18354  &, 0.263236e-01_jprb, 0.241534e-01_jprb, 0.221235e-01_jprb, 0.202447e-01_jprb &
18355  &, 0.184938e-01_jprb, 0.168805e-01_jprb, 0.153792e-01_jprb &
18356  &, 0.139979e-01_jprb, 0.127450e-01_jprb, 0.115918e-01_jprb, 0.105075e-01_jprb &
18357  &, 0.953531e-02_jprb, 0.860448e-02_jprb, 0.779737e-02_jprb &
18358  &, 0.704089e-02_jprb, 0.633852e-02_jprb, 0.569383e-02_jprb, 0.515259e-02_jprb &
18359  &, 0.459206e-02_jprb, 0.414245e-02_jprb, 0.372128e-02_jprb &
18360  &, 0.333041e-02_jprb, 0.297171e-02_jprb, 0.264711e-02_jprb, 0.235857e-02_jprb &
18361  &, 0.210808e-02_jprb, 0.184927e-02_jprb, 0.163116e-02_jprb &
18362  &, 0.145583e-02_jprb, 0.127481e-02_jprb, 0.113936e-02_jprb, 0.999568e-03_jprb &
18363  &, 0.908221e-03_jprb, 0.760351e-03_jprb, 0.662349e-03_jprb &
18364  &, 0.616477e-03_jprb, 0.513209e-03_jprb, 0.463567e-03_jprb, 0.412400e-03_jprb &
18365  &, 0.359689e-03_jprb, 0.305415e-03_jprb, 0.249563e-03_jprb &
18366  &, 0.192113e-03_jprb, 0.194572e-03_jprb, 0.134699e-03_jprb, 0.136362e-03_jprb &
18367  &, 0.138037e-03_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18368 xcw( 419, :) = (/ &
18369  & 0.976256e+00_jprb, 0.969354e+00_jprb, 0.962071e+00_jprb, 0.954417e+00_jprb &
18370  &, 0.946395e+00_jprb, 0.938009e+00_jprb, 0.929266e+00_jprb &
18371  &, 0.920172e+00_jprb, 0.910732e+00_jprb, 0.900952e+00_jprb, 0.890841e+00_jprb &
18372  &, 0.880403e+00_jprb, 0.869645e+00_jprb, 0.858578e+00_jprb &
18373  &, 0.847208e+00_jprb, 0.835543e+00_jprb, 0.823593e+00_jprb, 0.811365e+00_jprb &
18374  &, 0.798870e+00_jprb, 0.786118e+00_jprb, 0.773120e+00_jprb &
18375  &, 0.759884e+00_jprb, 0.746428e+00_jprb, 0.732756e+00_jprb, 0.718887e+00_jprb &
18376  &, 0.704830e+00_jprb, 0.690600e+00_jprb, 0.676211e+00_jprb &
18377  &, 0.661674e+00_jprb, 0.647007e+00_jprb, 0.632224e+00_jprb, 0.617344e+00_jprb &
18378  &, 0.602380e+00_jprb, 0.587347e+00_jprb, 0.572260e+00_jprb &
18379  &, 0.557139e+00_jprb, 0.542002e+00_jprb, 0.526856e+00_jprb, 0.511741e+00_jprb &
18380  &, 0.496651e+00_jprb, 0.481611e+00_jprb, 0.466638e+00_jprb &
18381  &, 0.451751e+00_jprb, 0.436971e+00_jprb, 0.422296e+00_jprb, 0.407760e+00_jprb &
18382  &, 0.393387e+00_jprb, 0.379164e+00_jprb, 0.365128e+00_jprb &
18383  &, 0.351277e+00_jprb, 0.337649e+00_jprb, 0.324241e+00_jprb, 0.311062e+00_jprb &
18384  &, 0.298137e+00_jprb, 0.285458e+00_jprb, 0.273060e+00_jprb &
18385  &, 0.260936e+00_jprb, 0.249089e+00_jprb, 0.237551e+00_jprb, 0.226309e+00_jprb &
18386  &, 0.215377e+00_jprb, 0.204752e+00_jprb, 0.194464e+00_jprb &
18387  &, 0.184470e+00_jprb, 0.174834e+00_jprb, 0.165488e+00_jprb, 0.156493e+00_jprb &
18388  &, 0.147815e+00_jprb, 0.139473e+00_jprb, 0.131447e+00_jprb &
18389  &, 0.123755e+00_jprb, 0.116391e+00_jprb, 0.109327e+00_jprb, 0.102575e+00_jprb &
18390  &, 0.961217e-01_jprb, 0.899768e-01_jprb, 0.841479e-01_jprb &
18391  &, 0.785933e-01_jprb, 0.733160e-01_jprb, 0.683178e-01_jprb, 0.635735e-01_jprb &
18392  &, 0.591073e-01_jprb, 0.548636e-01_jprb, 0.508905e-01_jprb &
18393  &, 0.471276e-01_jprb, 0.436220e-01_jprb, 0.403081e-01_jprb, 0.372024e-01_jprb &
18394  &, 0.342921e-01_jprb, 0.315929e-01_jprb, 0.290590e-01_jprb &
18395  &, 0.266719e-01_jprb, 0.244757e-01_jprb, 0.224188e-01_jprb, 0.205452e-01_jprb &
18396  &, 0.187656e-01_jprb, 0.171225e-01_jprb, 0.156254e-01_jprb &
18397  &, 0.142483e-01_jprb, 0.129633e-01_jprb, 0.117768e-01_jprb, 0.106956e-01_jprb &
18398  &, 0.968833e-02_jprb, 0.876003e-02_jprb, 0.791596e-02_jprb &
18399  &, 0.716142e-02_jprb, 0.646101e-02_jprb, 0.581829e-02_jprb, 0.523690e-02_jprb &
18400  &, 0.472052e-02_jprb, 0.422945e-02_jprb, 0.376546e-02_jprb &
18401  &, 0.337528e-02_jprb, 0.301727e-02_jprb, 0.269338e-02_jprb, 0.240554e-02_jprb &
18402  &, 0.215577e-02_jprb, 0.189768e-02_jprb, 0.168029e-02_jprb &
18403  &, 0.150569e-02_jprb, 0.132540e-02_jprb, 0.119069e-02_jprb, 0.105165e-02_jprb &
18404  &, 0.908221e-03_jprb, 0.813947e-03_jprb, 0.716711e-03_jprb &
18405  &, 0.616477e-03_jprb, 0.513209e-03_jprb, 0.463567e-03_jprb, 0.412400e-03_jprb &
18406  &, 0.359689e-03_jprb, 0.305415e-03_jprb, 0.249563e-03_jprb &
18407  &, 0.252817e-03_jprb, 0.194572e-03_jprb, 0.134699e-03_jprb, 0.136362e-03_jprb &
18408  &, 0.138037e-03_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18409 xcw( 420, :) = (/ &
18410  & 0.976508e+00_jprb, 0.969668e+00_jprb, 0.962446e+00_jprb, 0.954853e+00_jprb &
18411  &, 0.946889e+00_jprb, 0.938562e+00_jprb, 0.929878e+00_jprb &
18412  &, 0.920840e+00_jprb, 0.911455e+00_jprb, 0.901732e+00_jprb, 0.891674e+00_jprb &
18413  &, 0.881288e+00_jprb, 0.870583e+00_jprb, 0.859567e+00_jprb &
18414  &, 0.848246e+00_jprb, 0.836628e+00_jprb, 0.824725e+00_jprb, 0.812543e+00_jprb &
18415  &, 0.800092e+00_jprb, 0.787381e+00_jprb, 0.774423e+00_jprb &
18416  &, 0.761230e+00_jprb, 0.747809e+00_jprb, 0.734175e+00_jprb, 0.720340e+00_jprb &
18417  &, 0.706318e+00_jprb, 0.692116e+00_jprb, 0.677756e+00_jprb &
18418  &, 0.663246e+00_jprb, 0.648606e+00_jprb, 0.633851e+00_jprb, 0.618990e+00_jprb &
18419  &, 0.604041e+00_jprb, 0.589028e+00_jprb, 0.573957e+00_jprb &
18420  &, 0.558850e+00_jprb, 0.543718e+00_jprb, 0.528596e+00_jprb, 0.513476e+00_jprb &
18421  &, 0.498388e+00_jprb, 0.483361e+00_jprb, 0.468388e+00_jprb &
18422  &, 0.453501e+00_jprb, 0.438708e+00_jprb, 0.424041e+00_jprb, 0.409501e+00_jprb &
18423  &, 0.395097e+00_jprb, 0.380867e+00_jprb, 0.366821e+00_jprb &
18424  &, 0.352959e+00_jprb, 0.339318e+00_jprb, 0.325881e+00_jprb, 0.312686e+00_jprb &
18425  &, 0.299727e+00_jprb, 0.287041e+00_jprb, 0.274605e+00_jprb &
18426  &, 0.262455e+00_jprb, 0.250595e+00_jprb, 0.239011e+00_jprb, 0.227753e+00_jprb &
18427  &, 0.216786e+00_jprb, 0.206123e+00_jprb, 0.195795e+00_jprb &
18428  &, 0.185777e+00_jprb, 0.176095e+00_jprb, 0.166720e+00_jprb, 0.157694e+00_jprb &
18429  &, 0.148982e+00_jprb, 0.140605e+00_jprb, 0.132542e+00_jprb &
18430  &, 0.124809e+00_jprb, 0.117382e+00_jprb, 0.110295e+00_jprb, 0.103495e+00_jprb &
18431  &, 0.970148e-01_jprb, 0.908414e-01_jprb, 0.849585e-01_jprb &
18432  &, 0.793716e-01_jprb, 0.740602e-01_jprb, 0.690262e-01_jprb, 0.642442e-01_jprb &
18433  &, 0.597385e-01_jprb, 0.554802e-01_jprb, 0.514644e-01_jprb &
18434  &, 0.476846e-01_jprb, 0.441328e-01_jprb, 0.407995e-01_jprb, 0.376736e-01_jprb &
18435  &, 0.347420e-01_jprb, 0.319900e-01_jprb, 0.294322e-01_jprb &
18436  &, 0.270519e-01_jprb, 0.248303e-01_jprb, 0.227469e-01_jprb, 0.208457e-01_jprb &
18437  &, 0.190375e-01_jprb, 0.173991e-01_jprb, 0.158715e-01_jprb &
18438  &, 0.144630e-01_jprb, 0.131452e-01_jprb, 0.119618e-01_jprb, 0.108461e-01_jprb &
18439  &, 0.984134e-02_jprb, 0.891559e-02_jprb, 0.807408e-02_jprb &
18440  &, 0.728195e-02_jprb, 0.658350e-02_jprb, 0.590127e-02_jprb, 0.532120e-02_jprb &
18441  &, 0.480617e-02_jprb, 0.431645e-02_jprb, 0.385383e-02_jprb &
18442  &, 0.346502e-02_jprb, 0.310840e-02_jprb, 0.273964e-02_jprb, 0.245251e-02_jprb &
18443  &, 0.220345e-02_jprb, 0.194608e-02_jprb, 0.172941e-02_jprb &
18444  &, 0.155555e-02_jprb, 0.137600e-02_jprb, 0.119069e-02_jprb, 0.105165e-02_jprb &
18445  &, 0.908221e-03_jprb, 0.813947e-03_jprb, 0.716711e-03_jprb &
18446  &, 0.616477e-03_jprb, 0.569121e-03_jprb, 0.463567e-03_jprb, 0.412400e-03_jprb &
18447  &, 0.359689e-03_jprb, 0.305415e-03_jprb, 0.249563e-03_jprb &
18448  &, 0.252817e-03_jprb, 0.194572e-03_jprb, 0.197048e-03_jprb, 0.136362e-03_jprb &
18449  &, 0.138037e-03_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18450 
18451 IF (lhook) CALL dr_hook('SU_MCICA:PART60',1,zhook_handle)
18452 END SUBROUTINE part60
18453 
18454 #ifdef VPP5000
18455 !OCL SCALAR
18456 #endif
18457 !option! -Nv -NO
18458 #ifdef RS6K
18459 @process nooptimize
18460 #endif
18461 !pgi$r opt=0
18462 SUBROUTINE part61
18463 
18464 REAL(KIND=JPRB) :: ZHOOK_HANDLE
18465 IF (lhook) CALL dr_hook('SU_MCICA:PART61',0,zhook_handle)
18466 
18467 xcw( 421, :) = (/ &
18468  & 0.976761e+00_jprb, 0.969981e+00_jprb, 0.962821e+00_jprb, 0.955287e+00_jprb &
18469  &, 0.947384e+00_jprb, 0.939116e+00_jprb, 0.930488e+00_jprb &
18470  &, 0.921507e+00_jprb, 0.912180e+00_jprb, 0.902510e+00_jprb, 0.892506e+00_jprb &
18471  &, 0.882175e+00_jprb, 0.871522e+00_jprb, 0.860555e+00_jprb &
18472  &, 0.849284e+00_jprb, 0.837716e+00_jprb, 0.825858e+00_jprb, 0.813722e+00_jprb &
18473  &, 0.801314e+00_jprb, 0.788647e+00_jprb, 0.775730e+00_jprb &
18474  &, 0.762576e+00_jprb, 0.749192e+00_jprb, 0.735595e+00_jprb, 0.721797e+00_jprb &
18475  &, 0.707806e+00_jprb, 0.693636e+00_jprb, 0.679306e+00_jprb &
18476  &, 0.664826e+00_jprb, 0.650208e+00_jprb, 0.635473e+00_jprb, 0.620636e+00_jprb &
18477  &, 0.605711e+00_jprb, 0.590714e+00_jprb, 0.575657e+00_jprb &
18478  &, 0.560562e+00_jprb, 0.545444e+00_jprb, 0.530327e+00_jprb, 0.515220e+00_jprb &
18479  &, 0.500136e+00_jprb, 0.485110e+00_jprb, 0.470139e+00_jprb &
18480  &, 0.455251e+00_jprb, 0.440456e+00_jprb, 0.425775e+00_jprb, 0.411230e+00_jprb &
18481  &, 0.396832e+00_jprb, 0.382582e+00_jprb, 0.368527e+00_jprb &
18482  &, 0.354654e+00_jprb, 0.340987e+00_jprb, 0.327535e+00_jprb, 0.314309e+00_jprb &
18483  &, 0.301345e+00_jprb, 0.288623e+00_jprb, 0.276165e+00_jprb &
18484  &, 0.263989e+00_jprb, 0.252086e+00_jprb, 0.240488e+00_jprb, 0.229180e+00_jprb &
18485  &, 0.218195e+00_jprb, 0.207512e+00_jprb, 0.197144e+00_jprb &
18486  &, 0.187084e+00_jprb, 0.177375e+00_jprb, 0.167971e+00_jprb, 0.158895e+00_jprb &
18487  &, 0.150150e+00_jprb, 0.141717e+00_jprb, 0.133636e+00_jprb &
18488  &, 0.125864e+00_jprb, 0.118394e+00_jprb, 0.111262e+00_jprb, 0.104437e+00_jprb &
18489  &, 0.979308e-01_jprb, 0.917060e-01_jprb, 0.857930e-01_jprb &
18490  &, 0.801742e-01_jprb, 0.748044e-01_jprb, 0.697345e-01_jprb, 0.649408e-01_jprb &
18491  &, 0.603960e-01_jprb, 0.561237e-01_jprb, 0.520655e-01_jprb &
18492  &, 0.482415e-01_jprb, 0.446719e-01_jprb, 0.412910e-01_jprb, 0.381447e-01_jprb &
18493  &, 0.351918e-01_jprb, 0.324176e-01_jprb, 0.298365e-01_jprb &
18494  &, 0.274002e-01_jprb, 0.251527e-01_jprb, 0.230750e-01_jprb, 0.211462e-01_jprb &
18495  &, 0.193433e-01_jprb, 0.176756e-01_jprb, 0.161177e-01_jprb &
18496  &, 0.146776e-01_jprb, 0.133635e-01_jprb, 0.121468e-01_jprb, 0.110342e-01_jprb &
18497  &, 0.999436e-02_jprb, 0.907115e-02_jprb, 0.819267e-02_jprb &
18498  &, 0.740248e-02_jprb, 0.670598e-02_jprb, 0.602573e-02_jprb, 0.544766e-02_jprb &
18499  &, 0.489182e-02_jprb, 0.440345e-02_jprb, 0.394219e-02_jprb &
18500  &, 0.350989e-02_jprb, 0.315397e-02_jprb, 0.283217e-02_jprb, 0.249949e-02_jprb &
18501  &, 0.225113e-02_jprb, 0.199448e-02_jprb, 0.177854e-02_jprb &
18502  &, 0.155555e-02_jprb, 0.137600e-02_jprb, 0.124203e-02_jprb, 0.110373e-02_jprb &
18503  &, 0.961057e-03_jprb, 0.867544e-03_jprb, 0.716711e-03_jprb &
18504  &, 0.671611e-03_jprb, 0.569121e-03_jprb, 0.520263e-03_jprb, 0.412400e-03_jprb &
18505  &, 0.359689e-03_jprb, 0.305415e-03_jprb, 0.309454e-03_jprb &
18506  &, 0.252817e-03_jprb, 0.194572e-03_jprb, 0.197048e-03_jprb, 0.136362e-03_jprb &
18507  &, 0.138037e-03_jprb, 0.748618e-04_jprb, 0.757111e-04_jprb/)
18508 xcw( 422, :) = (/ &
18509  & 0.977014e+00_jprb, 0.970296e+00_jprb, 0.963195e+00_jprb, 0.955723e+00_jprb &
18510  &, 0.947878e+00_jprb, 0.939669e+00_jprb, 0.931100e+00_jprb &
18511  &, 0.922176e+00_jprb, 0.912904e+00_jprb, 0.903289e+00_jprb, 0.893340e+00_jprb &
18512  &, 0.883060e+00_jprb, 0.872459e+00_jprb, 0.861545e+00_jprb &
18513  &, 0.850323e+00_jprb, 0.838801e+00_jprb, 0.826992e+00_jprb, 0.814900e+00_jprb &
18514  &, 0.802538e+00_jprb, 0.789913e+00_jprb, 0.777037e+00_jprb &
18515  &, 0.763922e+00_jprb, 0.750579e+00_jprb, 0.737018e+00_jprb, 0.723250e+00_jprb &
18516  &, 0.709293e+00_jprb, 0.695156e+00_jprb, 0.680855e+00_jprb &
18517  &, 0.666402e+00_jprb, 0.651811e+00_jprb, 0.637103e+00_jprb, 0.622286e+00_jprb &
18518  &, 0.607381e+00_jprb, 0.592399e+00_jprb, 0.577358e+00_jprb &
18519  &, 0.562283e+00_jprb, 0.547180e+00_jprb, 0.532068e+00_jprb, 0.516964e+00_jprb &
18520  &, 0.501894e+00_jprb, 0.486859e+00_jprb, 0.471889e+00_jprb &
18521  &, 0.457001e+00_jprb, 0.442204e+00_jprb, 0.427531e+00_jprb, 0.412970e+00_jprb &
18522  &, 0.398555e+00_jprb, 0.384310e+00_jprb, 0.370233e+00_jprb &
18523  &, 0.356336e+00_jprb, 0.342656e+00_jprb, 0.329189e+00_jprb, 0.315946e+00_jprb &
18524  &, 0.302949e+00_jprb, 0.290206e+00_jprb, 0.277724e+00_jprb &
18525  &, 0.265523e+00_jprb, 0.253608e+00_jprb, 0.241964e+00_jprb, 0.230641e+00_jprb &
18526  &, 0.219604e+00_jprb, 0.208901e+00_jprb, 0.198493e+00_jprb &
18527  &, 0.188408e+00_jprb, 0.178655e+00_jprb, 0.169203e+00_jprb, 0.160096e+00_jprb &
18528  &, 0.151318e+00_jprb, 0.142870e+00_jprb, 0.134731e+00_jprb &
18529  &, 0.126918e+00_jprb, 0.119427e+00_jprb, 0.112251e+00_jprb, 0.105380e+00_jprb &
18530  &, 0.988239e-01_jprb, 0.925706e-01_jprb, 0.866274e-01_jprb &
18531  &, 0.809525e-01_jprb, 0.755735e-01_jprb, 0.704682e-01_jprb, 0.656373e-01_jprb &
18532  &, 0.610536e-01_jprb, 0.567403e-01_jprb, 0.526667e-01_jprb &
18533  &, 0.488263e-01_jprb, 0.452110e-01_jprb, 0.418113e-01_jprb, 0.386159e-01_jprb &
18534  &, 0.356417e-01_jprb, 0.328452e-01_jprb, 0.302097e-01_jprb &
18535  &, 0.277802e-01_jprb, 0.255072e-01_jprb, 0.234031e-01_jprb, 0.214467e-01_jprb &
18536  &, 0.196151e-01_jprb, 0.179176e-01_jprb, 0.163639e-01_jprb &
18537  &, 0.149281e-01_jprb, 0.135818e-01_jprb, 0.123689e-01_jprb, 0.112224e-01_jprb &
18538  &, 0.101856e-01_jprb, 0.922670e-02_jprb, 0.835078e-02_jprb &
18539  &, 0.756318e-02_jprb, 0.682847e-02_jprb, 0.615020e-02_jprb, 0.553196e-02_jprb &
18540  &, 0.497746e-02_jprb, 0.449044e-02_jprb, 0.403056e-02_jprb &
18541  &, 0.359963e-02_jprb, 0.319953e-02_jprb, 0.287844e-02_jprb, 0.254646e-02_jprb &
18542  &, 0.229882e-02_jprb, 0.204288e-02_jprb, 0.182767e-02_jprb &
18543  &, 0.160540e-02_jprb, 0.142659e-02_jprb, 0.124203e-02_jprb, 0.110373e-02_jprb &
18544  &, 0.961057e-03_jprb, 0.867544e-03_jprb, 0.771074e-03_jprb &
18545  &, 0.671611e-03_jprb, 0.569121e-03_jprb, 0.520263e-03_jprb, 0.469886e-03_jprb &
18546  &, 0.359689e-03_jprb, 0.305415e-03_jprb, 0.309454e-03_jprb &
18547  &, 0.252817e-03_jprb, 0.194572e-03_jprb, 0.197048e-03_jprb, 0.136362e-03_jprb &
18548  &, 0.138037e-03_jprb, 0.139724e-03_jprb, 0.757111e-04_jprb/)
18549 xcw( 423, :) = (/ &
18550  & 0.977266e+00_jprb, 0.970608e+00_jprb, 0.963569e+00_jprb, 0.956157e+00_jprb &
18551  &, 0.948372e+00_jprb, 0.940222e+00_jprb, 0.931711e+00_jprb &
18552  &, 0.922844e+00_jprb, 0.913627e+00_jprb, 0.904069e+00_jprb, 0.894173e+00_jprb &
18553  &, 0.883946e+00_jprb, 0.873398e+00_jprb, 0.862533e+00_jprb &
18554  &, 0.851361e+00_jprb, 0.839888e+00_jprb, 0.828126e+00_jprb, 0.816080e+00_jprb &
18555  &, 0.803761e+00_jprb, 0.791178e+00_jprb, 0.778347e+00_jprb &
18556  &, 0.765271e+00_jprb, 0.751963e+00_jprb, 0.738441e+00_jprb, 0.724710e+00_jprb &
18557  &, 0.710785e+00_jprb, 0.696679e+00_jprb, 0.682405e+00_jprb &
18558  &, 0.667981e+00_jprb, 0.653418e+00_jprb, 0.638730e+00_jprb, 0.623936e+00_jprb &
18559  &, 0.609051e+00_jprb, 0.594089e+00_jprb, 0.579069e+00_jprb &
18560  &, 0.564003e+00_jprb, 0.548906e+00_jprb, 0.533808e+00_jprb, 0.518719e+00_jprb &
18561  &, 0.503651e+00_jprb, 0.488619e+00_jprb, 0.473650e+00_jprb &
18562  &, 0.458762e+00_jprb, 0.443963e+00_jprb, 0.429277e+00_jprb, 0.414711e+00_jprb &
18563  &, 0.400290e+00_jprb, 0.386038e+00_jprb, 0.371939e+00_jprb &
18564  &, 0.358044e+00_jprb, 0.344338e+00_jprb, 0.330857e+00_jprb, 0.317597e+00_jprb &
18565  &, 0.304568e+00_jprb, 0.291804e+00_jprb, 0.279299e+00_jprb &
18566  &, 0.267073e+00_jprb, 0.255115e+00_jprb, 0.243457e+00_jprb, 0.232101e+00_jprb &
18567  &, 0.221030e+00_jprb, 0.210290e+00_jprb, 0.199842e+00_jprb &
18568  &, 0.189733e+00_jprb, 0.179935e+00_jprb, 0.170455e+00_jprb, 0.161316e+00_jprb &
18569  &, 0.152505e+00_jprb, 0.144002e+00_jprb, 0.135825e+00_jprb &
18570  &, 0.127973e+00_jprb, 0.120461e+00_jprb, 0.113240e+00_jprb, 0.106344e+00_jprb &
18571  &, 0.997399e-01_jprb, 0.934586e-01_jprb, 0.874619e-01_jprb &
18572  &, 0.817551e-01_jprb, 0.763425e-01_jprb, 0.712019e-01_jprb, 0.663338e-01_jprb &
18573  &, 0.617374e-01_jprb, 0.573569e-01_jprb, 0.532679e-01_jprb &
18574  &, 0.493832e-01_jprb, 0.457502e-01_jprb, 0.423028e-01_jprb, 0.390871e-01_jprb &
18575  &, 0.360916e-01_jprb, 0.332728e-01_jprb, 0.306141e-01_jprb &
18576  &, 0.281601e-01_jprb, 0.258618e-01_jprb, 0.237312e-01_jprb, 0.217472e-01_jprb &
18577  &, 0.198869e-01_jprb, 0.181942e-01_jprb, 0.166101e-01_jprb &
18578  &, 0.151427e-01_jprb, 0.138002e-01_jprb, 0.125539e-01_jprb, 0.114105e-01_jprb &
18579  &, 0.103386e-01_jprb, 0.938226e-02_jprb, 0.850890e-02_jprb &
18580  &, 0.768371e-02_jprb, 0.695096e-02_jprb, 0.627466e-02_jprb, 0.565842e-02_jprb &
18581  &, 0.506311e-02_jprb, 0.457744e-02_jprb, 0.407474e-02_jprb &
18582  &, 0.368937e-02_jprb, 0.329066e-02_jprb, 0.292470e-02_jprb, 0.264040e-02_jprb &
18583  &, 0.234650e-02_jprb, 0.209128e-02_jprb, 0.182767e-02_jprb &
18584  &, 0.165526e-02_jprb, 0.147718e-02_jprb, 0.129336e-02_jprb, 0.115582e-02_jprb &
18585  &, 0.101389e-02_jprb, 0.867544e-03_jprb, 0.771074e-03_jprb &
18586  &, 0.671611e-03_jprb, 0.625033e-03_jprb, 0.520263e-03_jprb, 0.469886e-03_jprb &
18587  &, 0.417970e-03_jprb, 0.364499e-03_jprb, 0.309454e-03_jprb &
18588  &, 0.252817e-03_jprb, 0.194572e-03_jprb, 0.197048e-03_jprb, 0.136362e-03_jprb &
18589  &, 0.138037e-03_jprb, 0.139724e-03_jprb, 0.757111e-04_jprb/)
18590 xcw( 424, :) = (/ &
18591  & 0.977516e+00_jprb, 0.970923e+00_jprb, 0.963944e+00_jprb, 0.956591e+00_jprb &
18592  &, 0.948866e+00_jprb, 0.940774e+00_jprb, 0.932321e+00_jprb &
18593  &, 0.923511e+00_jprb, 0.914352e+00_jprb, 0.904848e+00_jprb, 0.895006e+00_jprb &
18594  &, 0.884833e+00_jprb, 0.874336e+00_jprb, 0.863522e+00_jprb &
18595  &, 0.852400e+00_jprb, 0.840975e+00_jprb, 0.829260e+00_jprb, 0.817260e+00_jprb &
18596  &, 0.804986e+00_jprb, 0.792447e+00_jprb, 0.779653e+00_jprb &
18597  &, 0.766621e+00_jprb, 0.753350e+00_jprb, 0.739863e+00_jprb, 0.726166e+00_jprb &
18598  &, 0.712276e+00_jprb, 0.698203e+00_jprb, 0.683958e+00_jprb &
18599  &, 0.669561e+00_jprb, 0.655025e+00_jprb, 0.640364e+00_jprb, 0.625590e+00_jprb &
18600  &, 0.610726e+00_jprb, 0.595779e+00_jprb, 0.580774e+00_jprb &
18601  &, 0.565724e+00_jprb, 0.550642e+00_jprb, 0.535549e+00_jprb, 0.520463e+00_jprb &
18602  &, 0.505409e+00_jprb, 0.490379e+00_jprb, 0.475421e+00_jprb &
18603  &, 0.460522e+00_jprb, 0.445723e+00_jprb, 0.431033e+00_jprb, 0.416464e+00_jprb &
18604  &, 0.402038e+00_jprb, 0.387765e+00_jprb, 0.373658e+00_jprb &
18605  &, 0.359739e+00_jprb, 0.346020e+00_jprb, 0.332511e+00_jprb, 0.319235e+00_jprb &
18606  &, 0.306201e+00_jprb, 0.293402e+00_jprb, 0.280874e+00_jprb &
18607  &, 0.268623e+00_jprb, 0.256637e+00_jprb, 0.244949e+00_jprb, 0.233562e+00_jprb &
18608  &, 0.222473e+00_jprb, 0.211679e+00_jprb, 0.201209e+00_jprb &
18609  &, 0.191058e+00_jprb, 0.181233e+00_jprb, 0.171725e+00_jprb, 0.162537e+00_jprb &
18610  &, 0.153673e+00_jprb, 0.145154e+00_jprb, 0.136940e+00_jprb &
18611  &, 0.129048e+00_jprb, 0.121494e+00_jprb, 0.114229e+00_jprb, 0.107309e+00_jprb &
18612  &, 0.100679e+00_jprb, 0.943466e-01_jprb, 0.883202e-01_jprb &
18613  &, 0.825821e-01_jprb, 0.771115e-01_jprb, 0.719356e-01_jprb, 0.670303e-01_jprb &
18614  &, 0.623949e-01_jprb, 0.580004e-01_jprb, 0.538690e-01_jprb &
18615  &, 0.499680e-01_jprb, 0.462893e-01_jprb, 0.428231e-01_jprb, 0.395877e-01_jprb &
18616  &, 0.365415e-01_jprb, 0.337005e-01_jprb, 0.310184e-01_jprb &
18617  &, 0.285401e-01_jprb, 0.262164e-01_jprb, 0.240593e-01_jprb, 0.220477e-01_jprb &
18618  &, 0.201927e-01_jprb, 0.184707e-01_jprb, 0.168563e-01_jprb &
18619  &, 0.153931e-01_jprb, 0.140185e-01_jprb, 0.127389e-01_jprb, 0.115986e-01_jprb &
18620  &, 0.105299e-01_jprb, 0.953782e-02_jprb, 0.862749e-02_jprb &
18621  &, 0.780424e-02_jprb, 0.707345e-02_jprb, 0.635763e-02_jprb, 0.574273e-02_jprb &
18622  &, 0.514875e-02_jprb, 0.466444e-02_jprb, 0.416310e-02_jprb &
18623  &, 0.373424e-02_jprb, 0.333623e-02_jprb, 0.301723e-02_jprb, 0.268737e-02_jprb &
18624  &, 0.239419e-02_jprb, 0.213969e-02_jprb, 0.187679e-02_jprb &
18625  &, 0.170511e-02_jprb, 0.147718e-02_jprb, 0.134470e-02_jprb, 0.115582e-02_jprb &
18626  &, 0.101389e-02_jprb, 0.921140e-03_jprb, 0.825436e-03_jprb &
18627  &, 0.726746e-03_jprb, 0.625033e-03_jprb, 0.520263e-03_jprb, 0.469886e-03_jprb &
18628  &, 0.417970e-03_jprb, 0.364499e-03_jprb, 0.309454e-03_jprb &
18629  &, 0.252817e-03_jprb, 0.256096e-03_jprb, 0.197048e-03_jprb, 0.136362e-03_jprb &
18630  &, 0.138037e-03_jprb, 0.139724e-03_jprb, 0.757111e-04_jprb/)
18631 xcw( 425, :) = (/ &
18632  & 0.977768e+00_jprb, 0.971235e+00_jprb, 0.964318e+00_jprb, 0.957027e+00_jprb &
18633  &, 0.949361e+00_jprb, 0.941328e+00_jprb, 0.932932e+00_jprb &
18634  &, 0.924179e+00_jprb, 0.915076e+00_jprb, 0.905627e+00_jprb, 0.895840e+00_jprb &
18635  &, 0.885719e+00_jprb, 0.875275e+00_jprb, 0.864512e+00_jprb &
18636  &, 0.853439e+00_jprb, 0.842064e+00_jprb, 0.830394e+00_jprb, 0.818440e+00_jprb &
18637  &, 0.806211e+00_jprb, 0.793716e+00_jprb, 0.780963e+00_jprb &
18638  &, 0.767970e+00_jprb, 0.754741e+00_jprb, 0.741290e+00_jprb, 0.727626e+00_jprb &
18639  &, 0.713771e+00_jprb, 0.699727e+00_jprb, 0.685515e+00_jprb &
18640  &, 0.671144e+00_jprb, 0.656636e+00_jprb, 0.641994e+00_jprb, 0.627245e+00_jprb &
18641  &, 0.612400e+00_jprb, 0.597474e+00_jprb, 0.582484e+00_jprb &
18642  &, 0.567445e+00_jprb, 0.552378e+00_jprb, 0.537299e+00_jprb, 0.522218e+00_jprb &
18643  &, 0.507167e+00_jprb, 0.492149e+00_jprb, 0.477182e+00_jprb &
18644  &, 0.462294e+00_jprb, 0.447494e+00_jprb, 0.432790e+00_jprb, 0.418217e+00_jprb &
18645  &, 0.403785e+00_jprb, 0.389493e+00_jprb, 0.375377e+00_jprb &
18646  &, 0.361447e+00_jprb, 0.347716e+00_jprb, 0.334193e+00_jprb, 0.320886e+00_jprb &
18647  &, 0.307834e+00_jprb, 0.295014e+00_jprb, 0.282464e+00_jprb &
18648  &, 0.270173e+00_jprb, 0.258175e+00_jprb, 0.246442e+00_jprb, 0.235022e+00_jprb &
18649  &, 0.223898e+00_jprb, 0.213085e+00_jprb, 0.202576e+00_jprb &
18650  &, 0.192401e+00_jprb, 0.182532e+00_jprb, 0.172995e+00_jprb, 0.163777e+00_jprb &
18651  &, 0.154880e+00_jprb, 0.146307e+00_jprb, 0.138055e+00_jprb &
18652  &, 0.130124e+00_jprb, 0.122528e+00_jprb, 0.115241e+00_jprb, 0.108274e+00_jprb &
18653  &, 0.101595e+00_jprb, 0.952346e-01_jprb, 0.891785e-01_jprb &
18654  &, 0.833847e-01_jprb, 0.779054e-01_jprb, 0.726946e-01_jprb, 0.677526e-01_jprb &
18655  &, 0.630787e-01_jprb, 0.586438e-01_jprb, 0.544702e-01_jprb &
18656  &, 0.505250e-01_jprb, 0.468284e-01_jprb, 0.433435e-01_jprb, 0.400588e-01_jprb &
18657  &, 0.369914e-01_jprb, 0.341281e-01_jprb, 0.314227e-01_jprb &
18658  &, 0.289201e-01_jprb, 0.265710e-01_jprb, 0.243874e-01_jprb, 0.223816e-01_jprb &
18659  &, 0.204985e-01_jprb, 0.187473e-01_jprb, 0.171376e-01_jprb &
18660  &, 0.156078e-01_jprb, 0.142368e-01_jprb, 0.129609e-01_jprb, 0.117868e-01_jprb &
18661  &, 0.107212e-01_jprb, 0.969337e-02_jprb, 0.878561e-02_jprb &
18662  &, 0.796495e-02_jprb, 0.719593e-02_jprb, 0.648210e-02_jprb, 0.586918e-02_jprb &
18663  &, 0.527722e-02_jprb, 0.475144e-02_jprb, 0.425147e-02_jprb &
18664  &, 0.382398e-02_jprb, 0.342736e-02_jprb, 0.306350e-02_jprb, 0.273434e-02_jprb &
18665  &, 0.244187e-02_jprb, 0.218809e-02_jprb, 0.192592e-02_jprb &
18666  &, 0.170511e-02_jprb, 0.152777e-02_jprb, 0.134470e-02_jprb, 0.120790e-02_jprb &
18667  &, 0.106673e-02_jprb, 0.921140e-03_jprb, 0.825436e-03_jprb &
18668  &, 0.726746e-03_jprb, 0.625033e-03_jprb, 0.576959e-03_jprb, 0.469886e-03_jprb &
18669  &, 0.417970e-03_jprb, 0.364499e-03_jprb, 0.309454e-03_jprb &
18670  &, 0.252817e-03_jprb, 0.256096e-03_jprb, 0.197048e-03_jprb, 0.199543e-03_jprb &
18671  &, 0.138037e-03_jprb, 0.139724e-03_jprb, 0.757111e-04_jprb/)
18672 xcw( 426, :) = (/ &
18673  & 0.978022e+00_jprb, 0.971548e+00_jprb, 0.964692e+00_jprb, 0.957461e+00_jprb &
18674  &, 0.949855e+00_jprb, 0.941881e+00_jprb, 0.933543e+00_jprb &
18675  &, 0.924848e+00_jprb, 0.915800e+00_jprb, 0.906407e+00_jprb, 0.896673e+00_jprb &
18676  &, 0.886606e+00_jprb, 0.876214e+00_jprb, 0.865502e+00_jprb &
18677  &, 0.854479e+00_jprb, 0.843152e+00_jprb, 0.831529e+00_jprb, 0.819622e+00_jprb &
18678  &, 0.807437e+00_jprb, 0.794985e+00_jprb, 0.782273e+00_jprb &
18679  &, 0.769319e+00_jprb, 0.756128e+00_jprb, 0.742716e+00_jprb, 0.729090e+00_jprb &
18680  &, 0.715266e+00_jprb, 0.701254e+00_jprb, 0.687072e+00_jprb &
18681  &, 0.672732e+00_jprb, 0.658246e+00_jprb, 0.643633e+00_jprb, 0.628903e+00_jprb &
18682  &, 0.614079e+00_jprb, 0.599173e+00_jprb, 0.584199e+00_jprb &
18683  &, 0.569175e+00_jprb, 0.554123e+00_jprb, 0.539049e+00_jprb, 0.523982e+00_jprb &
18684  &, 0.508934e+00_jprb, 0.493920e+00_jprb, 0.478954e+00_jprb &
18685  &, 0.464066e+00_jprb, 0.449265e+00_jprb, 0.434559e+00_jprb, 0.419970e+00_jprb &
18686  &, 0.405532e+00_jprb, 0.391233e+00_jprb, 0.377108e+00_jprb &
18687  &, 0.363156e+00_jprb, 0.349412e+00_jprb, 0.335874e+00_jprb, 0.322552e+00_jprb &
18688  &, 0.309467e+00_jprb, 0.296627e+00_jprb, 0.284054e+00_jprb &
18689  &, 0.271738e+00_jprb, 0.259697e+00_jprb, 0.247951e+00_jprb, 0.236499e+00_jprb &
18690  &, 0.225341e+00_jprb, 0.214491e+00_jprb, 0.203960e+00_jprb &
18691  &, 0.193743e+00_jprb, 0.183830e+00_jprb, 0.174265e+00_jprb, 0.164997e+00_jprb &
18692  &, 0.156068e+00_jprb, 0.147459e+00_jprb, 0.139170e+00_jprb &
18693  &, 0.131220e+00_jprb, 0.123583e+00_jprb, 0.116252e+00_jprb, 0.109239e+00_jprb &
18694  &, 0.102534e+00_jprb, 0.961225e-01_jprb, 0.900368e-01_jprb &
18695  &, 0.842116e-01_jprb, 0.786992e-01_jprb, 0.734535e-01_jprb, 0.684749e-01_jprb &
18696  &, 0.637625e-01_jprb, 0.592873e-01_jprb, 0.550987e-01_jprb &
18697  &, 0.511098e-01_jprb, 0.473959e-01_jprb, 0.438638e-01_jprb, 0.405594e-01_jprb &
18698  &, 0.374713e-01_jprb, 0.345557e-01_jprb, 0.318581e-01_jprb &
18699  &, 0.293001e-01_jprb, 0.269578e-01_jprb, 0.247483e-01_jprb, 0.226822e-01_jprb &
18700  &, 0.208043e-01_jprb, 0.190239e-01_jprb, 0.173838e-01_jprb &
18701  &, 0.158582e-01_jprb, 0.144551e-01_jprb, 0.131829e-01_jprb, 0.119749e-01_jprb &
18702  &, 0.108742e-01_jprb, 0.988782e-02_jprb, 0.894373e-02_jprb &
18703  &, 0.808548e-02_jprb, 0.731842e-02_jprb, 0.660656e-02_jprb, 0.595349e-02_jprb &
18704  &, 0.536287e-02_jprb, 0.483844e-02_jprb, 0.433983e-02_jprb &
18705  &, 0.391372e-02_jprb, 0.347292e-02_jprb, 0.310976e-02_jprb, 0.278131e-02_jprb &
18706  &, 0.248955e-02_jprb, 0.223649e-02_jprb, 0.197505e-02_jprb &
18707  &, 0.175497e-02_jprb, 0.157836e-02_jprb, 0.139603e-02_jprb, 0.120790e-02_jprb &
18708  &, 0.106673e-02_jprb, 0.974737e-03_jprb, 0.825436e-03_jprb &
18709  &, 0.726746e-03_jprb, 0.625033e-03_jprb, 0.576959e-03_jprb, 0.469886e-03_jprb &
18710  &, 0.417970e-03_jprb, 0.364499e-03_jprb, 0.309454e-03_jprb &
18711  &, 0.252817e-03_jprb, 0.256096e-03_jprb, 0.197048e-03_jprb, 0.199543e-03_jprb &
18712  &, 0.138037e-03_jprb, 0.139724e-03_jprb, 0.757111e-04_jprb/)
18713 xcw( 427, :) = (/ &
18714  & 0.978272e+00_jprb, 0.971862e+00_jprb, 0.965067e+00_jprb, 0.957895e+00_jprb &
18715  &, 0.950348e+00_jprb, 0.942434e+00_jprb, 0.934154e+00_jprb &
18716  &, 0.925515e+00_jprb, 0.916524e+00_jprb, 0.907186e+00_jprb, 0.897508e+00_jprb &
18717  &, 0.887494e+00_jprb, 0.877153e+00_jprb, 0.866492e+00_jprb &
18718  &, 0.855519e+00_jprb, 0.844241e+00_jprb, 0.832666e+00_jprb, 0.820804e+00_jprb &
18719  &, 0.808663e+00_jprb, 0.796254e+00_jprb, 0.783586e+00_jprb &
18720  &, 0.770672e+00_jprb, 0.757518e+00_jprb, 0.744142e+00_jprb, 0.730550e+00_jprb &
18721  &, 0.716761e+00_jprb, 0.702781e+00_jprb, 0.688629e+00_jprb &
18722  &, 0.674315e+00_jprb, 0.659857e+00_jprb, 0.645272e+00_jprb, 0.630566e+00_jprb &
18723  &, 0.615762e+00_jprb, 0.600872e+00_jprb, 0.585918e+00_jprb &
18724  &, 0.570905e+00_jprb, 0.555868e+00_jprb, 0.540809e+00_jprb, 0.525747e+00_jprb &
18725  &, 0.510702e+00_jprb, 0.495690e+00_jprb, 0.480726e+00_jprb &
18726  &, 0.465838e+00_jprb, 0.451035e+00_jprb, 0.436327e+00_jprb, 0.421735e+00_jprb &
18727  &, 0.407280e+00_jprb, 0.392974e+00_jprb, 0.378840e+00_jprb &
18728  &, 0.364877e+00_jprb, 0.351108e+00_jprb, 0.337556e+00_jprb, 0.324217e+00_jprb &
18729  &, 0.311114e+00_jprb, 0.298254e+00_jprb, 0.285644e+00_jprb &
18730  &, 0.273303e+00_jprb, 0.261236e+00_jprb, 0.249460e+00_jprb, 0.237976e+00_jprb &
18731  &, 0.226801e+00_jprb, 0.215914e+00_jprb, 0.205345e+00_jprb &
18732  &, 0.195086e+00_jprb, 0.185147e+00_jprb, 0.175535e+00_jprb, 0.166237e+00_jprb &
18733  &, 0.157275e+00_jprb, 0.148632e+00_jprb, 0.140306e+00_jprb &
18734  &, 0.132317e+00_jprb, 0.124638e+00_jprb, 0.117263e+00_jprb, 0.110204e+00_jprb &
18735  &, 0.103473e+00_jprb, 0.970339e-01_jprb, 0.908951e-01_jprb &
18736  &, 0.850385e-01_jprb, 0.794931e-01_jprb, 0.742125e-01_jprb, 0.691972e-01_jprb &
18737  &, 0.644463e-01_jprb, 0.599575e-01_jprb, 0.557272e-01_jprb &
18738  &, 0.517224e-01_jprb, 0.479350e-01_jprb, 0.443842e-01_jprb, 0.410600e-01_jprb &
18739  &, 0.379512e-01_jprb, 0.350139e-01_jprb, 0.322625e-01_jprb &
18740  &, 0.297117e-01_jprb, 0.273124e-01_jprb, 0.250764e-01_jprb, 0.230161e-01_jprb &
18741  &, 0.210761e-01_jprb, 0.193004e-01_jprb, 0.176300e-01_jprb &
18742  &, 0.161086e-01_jprb, 0.147098e-01_jprb, 0.133679e-01_jprb, 0.121630e-01_jprb &
18743  &, 0.110655e-01_jprb, 0.100434e-01_jprb, 0.910185e-02_jprb &
18744  &, 0.824618e-02_jprb, 0.744091e-02_jprb, 0.673102e-02_jprb, 0.607994e-02_jprb &
18745  &, 0.549134e-02_jprb, 0.492544e-02_jprb, 0.442819e-02_jprb &
18746  &, 0.395859e-02_jprb, 0.356405e-02_jprb, 0.320229e-02_jprb, 0.282829e-02_jprb &
18747  &, 0.253724e-02_jprb, 0.228489e-02_jprb, 0.202417e-02_jprb &
18748  &, 0.180483e-02_jprb, 0.157836e-02_jprb, 0.139603e-02_jprb, 0.125998e-02_jprb &
18749  &, 0.111957e-02_jprb, 0.974737e-03_jprb, 0.879799e-03_jprb &
18750  &, 0.781880e-03_jprb, 0.680946e-03_jprb, 0.576959e-03_jprb, 0.527371e-03_jprb &
18751  &, 0.417970e-03_jprb, 0.364499e-03_jprb, 0.309454e-03_jprb &
18752  &, 0.313522e-03_jprb, 0.256096e-03_jprb, 0.197048e-03_jprb, 0.199543e-03_jprb &
18753  &, 0.138037e-03_jprb, 0.139724e-03_jprb, 0.141422e-03_jprb/)
18754 
18755 IF (lhook) CALL dr_hook('SU_MCICA:PART61',1,zhook_handle)
18756 END SUBROUTINE part61
18757 
18758 #ifdef VPP5000
18759 !OCL SCALAR
18760 #endif
18761 !option! -Nv -NO
18762 #ifdef RS6K
18763 @process nooptimize
18764 #endif
18765 !pgi$r opt=0
18766 SUBROUTINE part62
18767 
18768 REAL(KIND=JPRB) :: ZHOOK_HANDLE
18769 IF (lhook) CALL dr_hook('SU_MCICA:PART62',0,zhook_handle)
18770 
18771 xcw( 428, :) = (/ &
18772  & 0.978524e+00_jprb, 0.972175e+00_jprb, 0.965441e+00_jprb, 0.958330e+00_jprb &
18773  &, 0.950842e+00_jprb, 0.942986e+00_jprb, 0.934765e+00_jprb &
18774  &, 0.926184e+00_jprb, 0.917248e+00_jprb, 0.907965e+00_jprb, 0.898341e+00_jprb &
18775  &, 0.888380e+00_jprb, 0.878092e+00_jprb, 0.867483e+00_jprb &
18776  &, 0.856559e+00_jprb, 0.845329e+00_jprb, 0.833802e+00_jprb, 0.821987e+00_jprb &
18777  &, 0.809890e+00_jprb, 0.797523e+00_jprb, 0.784900e+00_jprb &
18778  &, 0.772025e+00_jprb, 0.758909e+00_jprb, 0.745569e+00_jprb, 0.732014e+00_jprb &
18779  &, 0.718259e+00_jprb, 0.704312e+00_jprb, 0.690190e+00_jprb &
18780  &, 0.675907e+00_jprb, 0.661476e+00_jprb, 0.646910e+00_jprb, 0.632229e+00_jprb &
18781  &, 0.617445e+00_jprb, 0.602575e+00_jprb, 0.587637e+00_jprb &
18782  &, 0.572644e+00_jprb, 0.557613e+00_jprb, 0.542559e+00_jprb, 0.527511e+00_jprb &
18783  &, 0.512470e+00_jprb, 0.497471e+00_jprb, 0.482509e+00_jprb &
18784  &, 0.467621e+00_jprb, 0.452806e+00_jprb, 0.438096e+00_jprb, 0.423511e+00_jprb &
18785  &, 0.409039e+00_jprb, 0.394726e+00_jprb, 0.380572e+00_jprb &
18786  &, 0.366598e+00_jprb, 0.352817e+00_jprb, 0.339237e+00_jprb, 0.325883e+00_jprb &
18787  &, 0.312762e+00_jprb, 0.299867e+00_jprb, 0.287249e+00_jprb &
18788  &, 0.274884e+00_jprb, 0.262790e+00_jprb, 0.250985e+00_jprb, 0.239470e+00_jprb &
18789  &, 0.228244e+00_jprb, 0.217338e+00_jprb, 0.206729e+00_jprb &
18790  &, 0.196447e+00_jprb, 0.186464e+00_jprb, 0.176824e+00_jprb, 0.167496e+00_jprb &
18791  &, 0.158482e+00_jprb, 0.149804e+00_jprb, 0.141442e+00_jprb &
18792  &, 0.133413e+00_jprb, 0.125693e+00_jprb, 0.118296e+00_jprb, 0.111191e+00_jprb &
18793  &, 0.104412e+00_jprb, 0.979453e-01_jprb, 0.917534e-01_jprb &
18794  &, 0.858898e-01_jprb, 0.802869e-01_jprb, 0.749715e-01_jprb, 0.699195e-01_jprb &
18795  &, 0.651301e-01_jprb, 0.606278e-01_jprb, 0.563283e-01_jprb &
18796  &, 0.523072e-01_jprb, 0.485025e-01_jprb, 0.449334e-01_jprb, 0.415607e-01_jprb &
18797  &, 0.384311e-01_jprb, 0.354720e-01_jprb, 0.326979e-01_jprb &
18798  &, 0.300917e-01_jprb, 0.276992e-01_jprb, 0.254373e-01_jprb, 0.233500e-01_jprb &
18799  &, 0.213819e-01_jprb, 0.195770e-01_jprb, 0.179114e-01_jprb &
18800  &, 0.163590e-01_jprb, 0.149281e-01_jprb, 0.135899e-01_jprb, 0.123888e-01_jprb &
18801  &, 0.112567e-01_jprb, 0.101989e-01_jprb, 0.925997e-02_jprb &
18802  &, 0.836671e-02_jprb, 0.760423e-02_jprb, 0.685549e-02_jprb, 0.620640e-02_jprb &
18803  &, 0.557698e-02_jprb, 0.501244e-02_jprb, 0.451656e-02_jprb &
18804  &, 0.404833e-02_jprb, 0.365518e-02_jprb, 0.324856e-02_jprb, 0.292223e-02_jprb &
18805  &, 0.258492e-02_jprb, 0.233329e-02_jprb, 0.207330e-02_jprb &
18806  &, 0.185468e-02_jprb, 0.162896e-02_jprb, 0.144737e-02_jprb, 0.125998e-02_jprb &
18807  &, 0.111957e-02_jprb, 0.102833e-02_jprb, 0.879799e-03_jprb &
18808  &, 0.781880e-03_jprb, 0.680946e-03_jprb, 0.576959e-03_jprb, 0.527371e-03_jprb &
18809  &, 0.476251e-03_jprb, 0.423582e-03_jprb, 0.369344e-03_jprb &
18810  &, 0.313522e-03_jprb, 0.256096e-03_jprb, 0.197048e-03_jprb, 0.199543e-03_jprb &
18811  &, 0.138037e-03_jprb, 0.139724e-03_jprb, 0.141422e-03_jprb/)
18812 xcw( 429, :) = (/ &
18813  & 0.978775e+00_jprb, 0.972489e+00_jprb, 0.965815e+00_jprb, 0.958764e+00_jprb &
18814  &, 0.951337e+00_jprb, 0.943539e+00_jprb, 0.935376e+00_jprb &
18815  &, 0.926852e+00_jprb, 0.917972e+00_jprb, 0.908746e+00_jprb, 0.899175e+00_jprb &
18816  &, 0.889268e+00_jprb, 0.879032e+00_jprb, 0.868473e+00_jprb &
18817  &, 0.857599e+00_jprb, 0.846419e+00_jprb, 0.834939e+00_jprb, 0.823170e+00_jprb &
18818  &, 0.811118e+00_jprb, 0.798796e+00_jprb, 0.786213e+00_jprb &
18819  &, 0.773378e+00_jprb, 0.760303e+00_jprb, 0.746999e+00_jprb, 0.733481e+00_jprb &
18820  &, 0.719758e+00_jprb, 0.705844e+00_jprb, 0.691750e+00_jprb &
18821  &, 0.677494e+00_jprb, 0.663091e+00_jprb, 0.648553e+00_jprb, 0.633892e+00_jprb &
18822  &, 0.619132e+00_jprb, 0.604278e+00_jprb, 0.589356e+00_jprb &
18823  &, 0.574374e+00_jprb, 0.559359e+00_jprb, 0.544319e+00_jprb, 0.529276e+00_jprb &
18824  &, 0.514249e+00_jprb, 0.499252e+00_jprb, 0.484291e+00_jprb &
18825  &, 0.469404e+00_jprb, 0.454589e+00_jprb, 0.439876e+00_jprb, 0.425276e+00_jprb &
18826  &, 0.410811e+00_jprb, 0.396479e+00_jprb, 0.382316e+00_jprb &
18827  &, 0.368333e+00_jprb, 0.354526e+00_jprb, 0.340933e+00_jprb, 0.327562e+00_jprb &
18828  &, 0.314409e+00_jprb, 0.301509e+00_jprb, 0.288854e+00_jprb &
18829  &, 0.276465e+00_jprb, 0.264344e+00_jprb, 0.252510e+00_jprb, 0.240964e+00_jprb &
18830  &, 0.229721e+00_jprb, 0.218761e+00_jprb, 0.208132e+00_jprb &
18831  &, 0.197808e+00_jprb, 0.187800e+00_jprb, 0.178113e+00_jprb, 0.168755e+00_jprb &
18832  &, 0.159709e+00_jprb, 0.150977e+00_jprb, 0.142598e+00_jprb &
18833  &, 0.134510e+00_jprb, 0.126748e+00_jprb, 0.119307e+00_jprb, 0.112201e+00_jprb &
18834  &, 0.105373e+00_jprb, 0.988566e-01_jprb, 0.926356e-01_jprb &
18835  &, 0.867167e-01_jprb, 0.810807e-01_jprb, 0.757305e-01_jprb, 0.706419e-01_jprb &
18836  &, 0.658403e-01_jprb, 0.612712e-01_jprb, 0.569842e-01_jprb &
18837  &, 0.529198e-01_jprb, 0.490700e-01_jprb, 0.454827e-01_jprb, 0.420907e-01_jprb &
18838  &, 0.389110e-01_jprb, 0.358997e-01_jprb, 0.331333e-01_jprb &
18839  &, 0.305034e-01_jprb, 0.280537e-01_jprb, 0.257982e-01_jprb, 0.236839e-01_jprb &
18840  &, 0.217217e-01_jprb, 0.198881e-01_jprb, 0.181927e-01_jprb &
18841  &, 0.166095e-01_jprb, 0.151464e-01_jprb, 0.138120e-01_jprb, 0.125769e-01_jprb &
18842  &, 0.114480e-01_jprb, 0.103934e-01_jprb, 0.941809e-02_jprb &
18843  &, 0.852742e-02_jprb, 0.772671e-02_jprb, 0.697995e-02_jprb, 0.629071e-02_jprb &
18844  &, 0.566263e-02_jprb, 0.509944e-02_jprb, 0.460492e-02_jprb &
18845  &, 0.413807e-02_jprb, 0.370075e-02_jprb, 0.334109e-02_jprb, 0.296920e-02_jprb &
18846  &, 0.268029e-02_jprb, 0.238170e-02_jprb, 0.212242e-02_jprb &
18847  &, 0.190454e-02_jprb, 0.167955e-02_jprb, 0.149870e-02_jprb, 0.131206e-02_jprb &
18848  &, 0.117240e-02_jprb, 0.102833e-02_jprb, 0.934161e-03_jprb &
18849  &, 0.781880e-03_jprb, 0.680946e-03_jprb, 0.633655e-03_jprb, 0.527371e-03_jprb &
18850  &, 0.476251e-03_jprb, 0.423582e-03_jprb, 0.369344e-03_jprb &
18851  &, 0.313522e-03_jprb, 0.256096e-03_jprb, 0.259398e-03_jprb, 0.199543e-03_jprb &
18852  &, 0.138037e-03_jprb, 0.139724e-03_jprb, 0.141422e-03_jprb/)
18853 xcw( 430, :) = (/ &
18854  & 0.979028e+00_jprb, 0.972800e+00_jprb, 0.966189e+00_jprb, 0.959199e+00_jprb &
18855  &, 0.951831e+00_jprb, 0.944092e+00_jprb, 0.935986e+00_jprb &
18856  &, 0.927519e+00_jprb, 0.918697e+00_jprb, 0.909525e+00_jprb, 0.900009e+00_jprb &
18857  &, 0.890155e+00_jprb, 0.879972e+00_jprb, 0.869464e+00_jprb &
18858  &, 0.858636e+00_jprb, 0.847509e+00_jprb, 0.836077e+00_jprb, 0.824353e+00_jprb &
18859  &, 0.812346e+00_jprb, 0.800068e+00_jprb, 0.787526e+00_jprb &
18860  &, 0.774731e+00_jprb, 0.761697e+00_jprb, 0.748432e+00_jprb, 0.734948e+00_jprb &
18861  &, 0.721257e+00_jprb, 0.707375e+00_jprb, 0.693315e+00_jprb &
18862  &, 0.679090e+00_jprb, 0.664710e+00_jprb, 0.650196e+00_jprb, 0.635559e+00_jprb &
18863  &, 0.620819e+00_jprb, 0.605986e+00_jprb, 0.591084e+00_jprb &
18864  &, 0.576114e+00_jprb, 0.561113e+00_jprb, 0.546089e+00_jprb, 0.531050e+00_jprb &
18865  &, 0.516027e+00_jprb, 0.501033e+00_jprb, 0.486084e+00_jprb &
18866  &, 0.471187e+00_jprb, 0.456371e+00_jprb, 0.441656e+00_jprb, 0.427053e+00_jprb &
18867  &, 0.412570e+00_jprb, 0.398244e+00_jprb, 0.384060e+00_jprb &
18868  &, 0.370067e+00_jprb, 0.356249e+00_jprb, 0.342628e+00_jprb, 0.329242e+00_jprb &
18869  &, 0.316071e+00_jprb, 0.303136e+00_jprb, 0.290459e+00_jprb &
18870  &, 0.278045e+00_jprb, 0.265898e+00_jprb, 0.254035e+00_jprb, 0.242458e+00_jprb &
18871  &, 0.231181e+00_jprb, 0.220202e+00_jprb, 0.209534e+00_jprb &
18872  &, 0.199169e+00_jprb, 0.189135e+00_jprb, 0.179421e+00_jprb, 0.170014e+00_jprb &
18873  &, 0.160936e+00_jprb, 0.152170e+00_jprb, 0.143734e+00_jprb &
18874  &, 0.135628e+00_jprb, 0.127825e+00_jprb, 0.120362e+00_jprb, 0.113188e+00_jprb &
18875  &, 0.106335e+00_jprb, 0.997913e-01_jprb, 0.935177e-01_jprb &
18876  &, 0.875680e-01_jprb, 0.818994e-01_jprb, 0.765147e-01_jprb, 0.713900e-01_jprb &
18877  &, 0.665504e-01_jprb, 0.619415e-01_jprb, 0.576127e-01_jprb &
18878  &, 0.535046e-01_jprb, 0.496659e-01_jprb, 0.460030e-01_jprb, 0.425913e-01_jprb &
18879  &, 0.393909e-01_jprb, 0.363578e-01_jprb, 0.335376e-01_jprb &
18880  &, 0.309150e-01_jprb, 0.284405e-01_jprb, 0.261591e-01_jprb, 0.240178e-01_jprb &
18881  &, 0.220275e-01_jprb, 0.201647e-01_jprb, 0.184389e-01_jprb &
18882  &, 0.168599e-01_jprb, 0.154011e-01_jprb, 0.140340e-01_jprb, 0.127650e-01_jprb &
18883  &, 0.116393e-01_jprb, 0.105489e-01_jprb, 0.957621e-02_jprb &
18884  &, 0.868812e-02_jprb, 0.784920e-02_jprb, 0.710441e-02_jprb, 0.641716e-02_jprb &
18885  &, 0.579110e-02_jprb, 0.522994e-02_jprb, 0.469328e-02_jprb &
18886  &, 0.422782e-02_jprb, 0.379188e-02_jprb, 0.338735e-02_jprb, 0.301617e-02_jprb &
18887  &, 0.272797e-02_jprb, 0.243010e-02_jprb, 0.217155e-02_jprb &
18888  &, 0.190454e-02_jprb, 0.173014e-02_jprb, 0.149870e-02_jprb, 0.136415e-02_jprb &
18889  &, 0.117240e-02_jprb, 0.102833e-02_jprb, 0.934161e-03_jprb &
18890  &, 0.837014e-03_jprb, 0.736858e-03_jprb, 0.633655e-03_jprb, 0.527371e-03_jprb &
18891  &, 0.476251e-03_jprb, 0.423582e-03_jprb, 0.369344e-03_jprb &
18892  &, 0.313522e-03_jprb, 0.256096e-03_jprb, 0.259398e-03_jprb, 0.199543e-03_jprb &
18893  &, 0.202055e-03_jprb, 0.139724e-03_jprb, 0.141422e-03_jprb/)
18894 xcw( 431, :) = (/ &
18895  & 0.979278e+00_jprb, 0.973115e+00_jprb, 0.966563e+00_jprb, 0.959633e+00_jprb &
18896  &, 0.952324e+00_jprb, 0.944644e+00_jprb, 0.936597e+00_jprb &
18897  &, 0.928187e+00_jprb, 0.919422e+00_jprb, 0.910305e+00_jprb, 0.900844e+00_jprb &
18898  &, 0.891043e+00_jprb, 0.880911e+00_jprb, 0.870455e+00_jprb &
18899  &, 0.859682e+00_jprb, 0.848599e+00_jprb, 0.837214e+00_jprb, 0.825537e+00_jprb &
18900  &, 0.813576e+00_jprb, 0.801340e+00_jprb, 0.788839e+00_jprb &
18901  &, 0.776087e+00_jprb, 0.763091e+00_jprb, 0.749862e+00_jprb, 0.736415e+00_jprb &
18902  &, 0.722759e+00_jprb, 0.708909e+00_jprb, 0.694880e+00_jprb &
18903  &, 0.680681e+00_jprb, 0.666332e+00_jprb, 0.651842e+00_jprb, 0.637230e+00_jprb &
18904  &, 0.622511e+00_jprb, 0.607698e+00_jprb, 0.592808e+00_jprb &
18905  &, 0.577862e+00_jprb, 0.562868e+00_jprb, 0.547849e+00_jprb, 0.532825e+00_jprb &
18906  &, 0.517815e+00_jprb, 0.502824e+00_jprb, 0.487867e+00_jprb &
18907  &, 0.472981e+00_jprb, 0.458164e+00_jprb, 0.443448e+00_jprb, 0.428829e+00_jprb &
18908  &, 0.414342e+00_jprb, 0.399997e+00_jprb, 0.385818e+00_jprb &
18909  &, 0.371802e+00_jprb, 0.357972e+00_jprb, 0.344337e+00_jprb, 0.330921e+00_jprb &
18910  &, 0.317733e+00_jprb, 0.304778e+00_jprb, 0.292079e+00_jprb &
18911  &, 0.279641e+00_jprb, 0.267468e+00_jprb, 0.255576e+00_jprb, 0.243968e+00_jprb &
18912  &, 0.232658e+00_jprb, 0.221643e+00_jprb, 0.210954e+00_jprb &
18913  &, 0.200548e+00_jprb, 0.190471e+00_jprb, 0.180710e+00_jprb, 0.171273e+00_jprb &
18914  &, 0.162163e+00_jprb, 0.153363e+00_jprb, 0.144891e+00_jprb &
18915  &, 0.136745e+00_jprb, 0.128923e+00_jprb, 0.121396e+00_jprb, 0.114198e+00_jprb &
18916  &, 0.107297e+00_jprb, 0.100703e+00_jprb, 0.944237e-01_jprb &
18917  &, 0.884193e-01_jprb, 0.827180e-01_jprb, 0.772990e-01_jprb, 0.721381e-01_jprb &
18918  &, 0.672605e-01_jprb, 0.626385e-01_jprb, 0.582685e-01_jprb &
18919  &, 0.541173e-01_jprb, 0.502334e-01_jprb, 0.465523e-01_jprb, 0.431214e-01_jprb &
18920  &, 0.398708e-01_jprb, 0.368465e-01_jprb, 0.340042e-01_jprb &
18921  &, 0.313266e-01_jprb, 0.288274e-01_jprb, 0.265200e-01_jprb, 0.243517e-01_jprb &
18922  &, 0.223333e-01_jprb, 0.204758e-01_jprb, 0.187203e-01_jprb &
18923  &, 0.171103e-01_jprb, 0.156194e-01_jprb, 0.142560e-01_jprb, 0.129908e-01_jprb &
18924  &, 0.118306e-01_jprb, 0.107434e-01_jprb, 0.973433e-02_jprb &
18925  &, 0.884883e-02_jprb, 0.801252e-02_jprb, 0.722888e-02_jprb, 0.654362e-02_jprb &
18926  &, 0.587674e-02_jprb, 0.531693e-02_jprb, 0.478165e-02_jprb &
18927  &, 0.431756e-02_jprb, 0.383744e-02_jprb, 0.347988e-02_jprb, 0.311011e-02_jprb &
18928  &, 0.277566e-02_jprb, 0.247850e-02_jprb, 0.222068e-02_jprb &
18929  &, 0.195440e-02_jprb, 0.173014e-02_jprb, 0.155003e-02_jprb, 0.136415e-02_jprb &
18930  &, 0.122524e-02_jprb, 0.108193e-02_jprb, 0.934161e-03_jprb &
18931  &, 0.837014e-03_jprb, 0.736858e-03_jprb, 0.633655e-03_jprb, 0.584857e-03_jprb &
18932  &, 0.476251e-03_jprb, 0.423582e-03_jprb, 0.369344e-03_jprb &
18933  &, 0.313522e-03_jprb, 0.256096e-03_jprb, 0.259398e-03_jprb, 0.199543e-03_jprb &
18934  &, 0.202055e-03_jprb, 0.139724e-03_jprb, 0.141422e-03_jprb/)
18935 xcw( 432, :) = (/ &
18936  & 0.979529e+00_jprb, 0.973426e+00_jprb, 0.966937e+00_jprb, 0.960067e+00_jprb &
18937  &, 0.952818e+00_jprb, 0.945197e+00_jprb, 0.937207e+00_jprb &
18938  &, 0.928855e+00_jprb, 0.920146e+00_jprb, 0.911085e+00_jprb, 0.901678e+00_jprb &
18939  &, 0.891931e+00_jprb, 0.881852e+00_jprb, 0.871447e+00_jprb &
18940  &, 0.860724e+00_jprb, 0.849690e+00_jprb, 0.838353e+00_jprb, 0.826722e+00_jprb &
18941  &, 0.814806e+00_jprb, 0.802412e+00_jprb, 0.790156e+00_jprb &
18942  &, 0.777443e+00_jprb, 0.764488e+00_jprb, 0.751295e+00_jprb, 0.737886e+00_jprb &
18943  &, 0.724265e+00_jprb, 0.710448e+00_jprb, 0.696448e+00_jprb &
18944  &, 0.682280e+00_jprb, 0.667955e+00_jprb, 0.653489e+00_jprb, 0.638901e+00_jprb &
18945  &, 0.624203e+00_jprb, 0.609410e+00_jprb, 0.594541e+00_jprb &
18946  &, 0.579602e+00_jprb, 0.564632e+00_jprb, 0.549619e+00_jprb, 0.534609e+00_jprb &
18947  &, 0.519594e+00_jprb, 0.504616e+00_jprb, 0.489660e+00_jprb &
18948  &, 0.474775e+00_jprb, 0.459958e+00_jprb, 0.445240e+00_jprb, 0.430618e+00_jprb &
18949  &, 0.416126e+00_jprb, 0.401775e+00_jprb, 0.387575e+00_jprb &
18950  &, 0.373536e+00_jprb, 0.359694e+00_jprb, 0.346046e+00_jprb, 0.332615e+00_jprb &
18951  &, 0.319409e+00_jprb, 0.306435e+00_jprb, 0.293700e+00_jprb &
18952  &, 0.281238e+00_jprb, 0.269038e+00_jprb, 0.257118e+00_jprb, 0.245478e+00_jprb &
18953  &, 0.234135e+00_jprb, 0.223101e+00_jprb, 0.212356e+00_jprb &
18954  &, 0.201946e+00_jprb, 0.191825e+00_jprb, 0.182038e+00_jprb, 0.172552e+00_jprb &
18955  &, 0.163410e+00_jprb, 0.154576e+00_jprb, 0.146068e+00_jprb &
18956  &, 0.137863e+00_jprb, 0.130000e+00_jprb, 0.122451e+00_jprb, 0.115208e+00_jprb &
18957  &, 0.108282e+00_jprb, 0.101637e+00_jprb, 0.953297e-01_jprb &
18958  &, 0.892948e-01_jprb, 0.835367e-01_jprb, 0.780833e-01_jprb, 0.728862e-01_jprb &
18959  &, 0.679706e-01_jprb, 0.633088e-01_jprb, 0.588970e-01_jprb &
18960  &, 0.547578e-01_jprb, 0.508292e-01_jprb, 0.471304e-01_jprb, 0.436514e-01_jprb &
18961  &, 0.403806e-01_jprb, 0.373047e-01_jprb, 0.344396e-01_jprb &
18962  &, 0.317383e-01_jprb, 0.292142e-01_jprb, 0.268809e-01_jprb, 0.246856e-01_jprb &
18963  &, 0.226731e-01_jprb, 0.207524e-01_jprb, 0.190016e-01_jprb &
18964  &, 0.173965e-01_jprb, 0.158741e-01_jprb, 0.144780e-01_jprb, 0.131789e-01_jprb &
18965  &, 0.120218e-01_jprb, 0.108989e-01_jprb, 0.993198e-02_jprb &
18966  &, 0.900954e-02_jprb, 0.813500e-02_jprb, 0.735334e-02_jprb, 0.667008e-02_jprb &
18967  &, 0.600521e-02_jprb, 0.540393e-02_jprb, 0.487001e-02_jprb &
18968  &, 0.436243e-02_jprb, 0.392857e-02_jprb, 0.352615e-02_jprb, 0.315709e-02_jprb &
18969  &, 0.282334e-02_jprb, 0.252690e-02_jprb, 0.226980e-02_jprb &
18970  &, 0.200425e-02_jprb, 0.178073e-02_jprb, 0.160137e-02_jprb, 0.141623e-02_jprb &
18971  &, 0.122524e-02_jprb, 0.108193e-02_jprb, 0.988523e-03_jprb &
18972  &, 0.837014e-03_jprb, 0.736858e-03_jprb, 0.690351e-03_jprb, 0.584857e-03_jprb &
18973  &, 0.534533e-03_jprb, 0.423582e-03_jprb, 0.369344e-03_jprb &
18974  &, 0.313522e-03_jprb, 0.317620e-03_jprb, 0.259398e-03_jprb, 0.199543e-03_jprb &
18975  &, 0.202055e-03_jprb, 0.139724e-03_jprb, 0.141422e-03_jprb/)
18976 xcw( 433, :) = (/ &
18977  & 0.979780e+00_jprb, 0.973740e+00_jprb, 0.967310e+00_jprb, 0.960501e+00_jprb &
18978  &, 0.953312e+00_jprb, 0.945749e+00_jprb, 0.937818e+00_jprb &
18979  &, 0.929524e+00_jprb, 0.920870e+00_jprb, 0.911865e+00_jprb, 0.902513e+00_jprb &
18980  &, 0.892820e+00_jprb, 0.882793e+00_jprb, 0.872440e+00_jprb &
18981  &, 0.861766e+00_jprb, 0.850780e+00_jprb, 0.839492e+00_jprb, 0.827908e+00_jprb &
18982  &, 0.816037e+00_jprb, 0.803887e+00_jprb, 0.791472e+00_jprb &
18983  &, 0.778802e+00_jprb, 0.765882e+00_jprb, 0.752732e+00_jprb, 0.739356e+00_jprb &
18984  &, 0.725767e+00_jprb, 0.711983e+00_jprb, 0.698017e+00_jprb &
18985  &, 0.683876e+00_jprb, 0.669578e+00_jprb, 0.655140e+00_jprb, 0.640577e+00_jprb &
18986  &, 0.625899e+00_jprb, 0.611127e+00_jprb, 0.596273e+00_jprb &
18987  &, 0.581350e+00_jprb, 0.566387e+00_jprb, 0.551399e+00_jprb, 0.536394e+00_jprb &
18988  &, 0.521392e+00_jprb, 0.506407e+00_jprb, 0.491464e+00_jprb &
18989  &, 0.476580e+00_jprb, 0.461763e+00_jprb, 0.447031e+00_jprb, 0.432406e+00_jprb &
18990  &, 0.417910e+00_jprb, 0.403540e+00_jprb, 0.389332e+00_jprb &
18991  &, 0.375297e+00_jprb, 0.361430e+00_jprb, 0.347769e+00_jprb, 0.334309e+00_jprb &
18992  &, 0.321085e+00_jprb, 0.308092e+00_jprb, 0.295335e+00_jprb &
18993  &, 0.282849e+00_jprb, 0.270623e+00_jprb, 0.258675e+00_jprb, 0.247005e+00_jprb &
18994  &, 0.235628e+00_jprb, 0.224560e+00_jprb, 0.213794e+00_jprb &
18995  &, 0.203325e+00_jprb, 0.193179e+00_jprb, 0.183346e+00_jprb, 0.173830e+00_jprb &
18996  &, 0.164657e+00_jprb, 0.155789e+00_jprb, 0.147224e+00_jprb &
18997  &, 0.139002e+00_jprb, 0.131098e+00_jprb, 0.123506e+00_jprb, 0.116217e+00_jprb &
18998  &, 0.109243e+00_jprb, 0.102595e+00_jprb, 0.962357e-01_jprb &
18999  &, 0.901461e-01_jprb, 0.843801e-01_jprb, 0.788676e-01_jprb, 0.736601e-01_jprb &
19000  &, 0.687070e-01_jprb, 0.640059e-01_jprb, 0.595528e-01_jprb &
19001  &, 0.553704e-01_jprb, 0.514251e-01_jprb, 0.476797e-01_jprb, 0.441815e-01_jprb &
19002  &, 0.408605e-01_jprb, 0.377629e-01_jprb, 0.348750e-01_jprb &
19003  &, 0.321499e-01_jprb, 0.296332e-01_jprb, 0.272418e-01_jprb, 0.250529e-01_jprb &
19004  &, 0.229789e-01_jprb, 0.210635e-01_jprb, 0.192830e-01_jprb &
19005  &, 0.176469e-01_jprb, 0.161288e-01_jprb, 0.147000e-01_jprb, 0.134046e-01_jprb &
19006  &, 0.122131e-01_jprb, 0.110934e-01_jprb, 0.100901e-01_jprb &
19007  &, 0.913007e-02_jprb, 0.829832e-02_jprb, 0.751929e-02_jprb, 0.679654e-02_jprb &
19008  &, 0.613368e-02_jprb, 0.553443e-02_jprb, 0.495838e-02_jprb &
19009  &, 0.445217e-02_jprb, 0.401970e-02_jprb, 0.361868e-02_jprb, 0.325103e-02_jprb &
19010  &, 0.287102e-02_jprb, 0.257530e-02_jprb, 0.231893e-02_jprb &
19011  &, 0.205411e-02_jprb, 0.183133e-02_jprb, 0.165270e-02_jprb, 0.146831e-02_jprb &
19012  &, 0.127808e-02_jprb, 0.113553e-02_jprb, 0.988523e-03_jprb &
19013  &, 0.892149e-03_jprb, 0.792770e-03_jprb, 0.690351e-03_jprb, 0.584857e-03_jprb &
19014  &, 0.534533e-03_jprb, 0.482665e-03_jprb, 0.429235e-03_jprb &
19015  &, 0.374226e-03_jprb, 0.317620e-03_jprb, 0.259398e-03_jprb, 0.199543e-03_jprb &
19016  &, 0.202055e-03_jprb, 0.139724e-03_jprb, 0.141422e-03_jprb/)
19017 xcw( 434, :) = (/ &
19018  & 0.980033e+00_jprb, 0.974052e+00_jprb, 0.967684e+00_jprb, 0.960934e+00_jprb &
19019  &, 0.953806e+00_jprb, 0.946302e+00_jprb, 0.938429e+00_jprb &
19020  &, 0.930192e+00_jprb, 0.921595e+00_jprb, 0.912645e+00_jprb, 0.903347e+00_jprb &
19021  &, 0.893708e+00_jprb, 0.883734e+00_jprb, 0.873432e+00_jprb &
19022  &, 0.862809e+00_jprb, 0.851872e+00_jprb, 0.840631e+00_jprb, 0.829094e+00_jprb &
19023  &, 0.817268e+00_jprb, 0.805163e+00_jprb, 0.792792e+00_jprb &
19024  &, 0.780161e+00_jprb, 0.767283e+00_jprb, 0.754165e+00_jprb, 0.740827e+00_jprb &
19025  &, 0.727276e+00_jprb, 0.713525e+00_jprb, 0.699585e+00_jprb &
19026  &, 0.685475e+00_jprb, 0.671209e+00_jprb, 0.656795e+00_jprb, 0.642252e+00_jprb &
19027  &, 0.627599e+00_jprb, 0.612843e+00_jprb, 0.598010e+00_jprb &
19028  &, 0.583108e+00_jprb, 0.568151e+00_jprb, 0.553178e+00_jprb, 0.538178e+00_jprb &
19029  &, 0.523181e+00_jprb, 0.508209e+00_jprb, 0.493269e+00_jprb &
19030  &, 0.478374e+00_jprb, 0.463556e+00_jprb, 0.448835e+00_jprb, 0.434207e+00_jprb &
19031  &, 0.419694e+00_jprb, 0.405318e+00_jprb, 0.391102e+00_jprb &
19032  &, 0.377044e+00_jprb, 0.363167e+00_jprb, 0.349492e+00_jprb, 0.336017e+00_jprb &
19033  &, 0.322762e+00_jprb, 0.309749e+00_jprb, 0.296971e+00_jprb &
19034  &, 0.284461e+00_jprb, 0.272209e+00_jprb, 0.260217e+00_jprb, 0.248532e+00_jprb &
19035  &, 0.237122e+00_jprb, 0.226018e+00_jprb, 0.215214e+00_jprb &
19036  &, 0.204722e+00_jprb, 0.194533e+00_jprb, 0.184673e+00_jprb, 0.175128e+00_jprb &
19037  &, 0.165904e+00_jprb, 0.157002e+00_jprb, 0.148401e+00_jprb &
19038  &, 0.140141e+00_jprb, 0.132196e+00_jprb, 0.124561e+00_jprb, 0.117249e+00_jprb &
19039  &, 0.110251e+00_jprb, 0.103530e+00_jprb, 0.971417e-01_jprb &
19040  &, 0.910217e-01_jprb, 0.852236e-01_jprb, 0.796771e-01_jprb, 0.744082e-01_jprb &
19041  &, 0.694171e-01_jprb, 0.647029e-01_jprb, 0.602359e-01_jprb &
19042  &, 0.560109e-01_jprb, 0.520210e-01_jprb, 0.482579e-01_jprb, 0.447116e-01_jprb &
19043  &, 0.413704e-01_jprb, 0.382516e-01_jprb, 0.353415e-01_jprb &
19044  &, 0.325932e-01_jprb, 0.300200e-01_jprb, 0.276355e-01_jprb, 0.253868e-01_jprb &
19045  &, 0.233186e-01_jprb, 0.213747e-01_jprb, 0.195995e-01_jprb &
19046  &, 0.179331e-01_jprb, 0.163835e-01_jprb, 0.149590e-01_jprb, 0.136304e-01_jprb &
19047  &, 0.124044e-01_jprb, 0.112878e-01_jprb, 0.102482e-01_jprb &
19048  &, 0.929077e-02_jprb, 0.842081e-02_jprb, 0.764376e-02_jprb, 0.692299e-02_jprb &
19049  &, 0.621933e-02_jprb, 0.562143e-02_jprb, 0.504674e-02_jprb &
19050  &, 0.454191e-02_jprb, 0.411083e-02_jprb, 0.366494e-02_jprb, 0.329800e-02_jprb &
19051  &, 0.296639e-02_jprb, 0.262371e-02_jprb, 0.236805e-02_jprb &
19052  &, 0.210396e-02_jprb, 0.188192e-02_jprb, 0.165270e-02_jprb, 0.146831e-02_jprb &
19053  &, 0.133091e-02_jprb, 0.113553e-02_jprb, 0.104289e-02_jprb &
19054  &, 0.892149e-03_jprb, 0.792770e-03_jprb, 0.690351e-03_jprb, 0.642343e-03_jprb &
19055  &, 0.534533e-03_jprb, 0.482665e-03_jprb, 0.429235e-03_jprb &
19056  &, 0.374226e-03_jprb, 0.317620e-03_jprb, 0.259398e-03_jprb, 0.199543e-03_jprb &
19057  &, 0.202055e-03_jprb, 0.139724e-03_jprb, 0.141422e-03_jprb/)
19058 
19059 IF (lhook) CALL dr_hook('SU_MCICA:PART62',1,zhook_handle)
19060 END SUBROUTINE part62
19061 
19062 #ifdef VPP5000
19063 !OCL SCALAR
19064 #endif
19065 !option! -Nv -NO
19066 #ifdef RS6K
19067 @process nooptimize
19068 #endif
19069 !pgi$r opt=0
19070 SUBROUTINE part63
19071 
19072 REAL(KIND=JPRB) :: ZHOOK_HANDLE
19073 IF (lhook) CALL dr_hook('SU_MCICA:PART63',0,zhook_handle)
19074 
19075 xcw( 435, :) = (/ &
19076  & 0.980284e+00_jprb, 0.974366e+00_jprb, 0.968058e+00_jprb, 0.961369e+00_jprb &
19077  &, 0.954299e+00_jprb, 0.946854e+00_jprb, 0.939040e+00_jprb &
19078  &, 0.930859e+00_jprb, 0.922319e+00_jprb, 0.913425e+00_jprb, 0.904182e+00_jprb &
19079  &, 0.894596e+00_jprb, 0.884674e+00_jprb, 0.874424e+00_jprb &
19080  &, 0.863852e+00_jprb, 0.852965e+00_jprb, 0.841769e+00_jprb, 0.830280e+00_jprb &
19081  &, 0.818500e+00_jprb, 0.806438e+00_jprb, 0.794108e+00_jprb &
19082  &, 0.781521e+00_jprb, 0.768680e+00_jprb, 0.755602e+00_jprb, 0.742301e+00_jprb &
19083  &, 0.728782e+00_jprb, 0.715064e+00_jprb, 0.701157e+00_jprb &
19084  &, 0.687078e+00_jprb, 0.672836e+00_jprb, 0.658450e+00_jprb, 0.643932e+00_jprb &
19085  &, 0.629299e+00_jprb, 0.614564e+00_jprb, 0.599748e+00_jprb &
19086  &, 0.584857e+00_jprb, 0.569925e+00_jprb, 0.554958e+00_jprb, 0.539963e+00_jprb &
19087  &, 0.524980e+00_jprb, 0.510011e+00_jprb, 0.495073e+00_jprb &
19088  &, 0.480191e+00_jprb, 0.465373e+00_jprb, 0.450638e+00_jprb, 0.436007e+00_jprb &
19089  &, 0.421490e+00_jprb, 0.407109e+00_jprb, 0.392873e+00_jprb &
19090  &, 0.378805e+00_jprb, 0.364916e+00_jprb, 0.351215e+00_jprb, 0.337725e+00_jprb &
19091  &, 0.324452e+00_jprb, 0.311406e+00_jprb, 0.298621e+00_jprb &
19092  &, 0.286073e+00_jprb, 0.273795e+00_jprb, 0.261790e+00_jprb, 0.250059e+00_jprb &
19093  &, 0.238633e+00_jprb, 0.227493e+00_jprb, 0.216652e+00_jprb &
19094  &, 0.206119e+00_jprb, 0.195906e+00_jprb, 0.186019e+00_jprb, 0.176426e+00_jprb &
19095  &, 0.167171e+00_jprb, 0.158215e+00_jprb, 0.149599e+00_jprb &
19096  &, 0.141300e+00_jprb, 0.133316e+00_jprb, 0.125638e+00_jprb, 0.118282e+00_jprb &
19097  &, 0.111236e+00_jprb, 0.104488e+00_jprb, 0.980477e-01_jprb &
19098  &, 0.919216e-01_jprb, 0.860670e-01_jprb, 0.804867e-01_jprb, 0.751821e-01_jprb &
19099  &, 0.701535e-01_jprb, 0.654000e-01_jprb, 0.608918e-01_jprb &
19100  &, 0.566235e-01_jprb, 0.526168e-01_jprb, 0.488071e-01_jprb, 0.452416e-01_jprb &
19101  &, 0.418803e-01_jprb, 0.387403e-01_jprb, 0.357770e-01_jprb &
19102  &, 0.330049e-01_jprb, 0.304391e-01_jprb, 0.279964e-01_jprb, 0.257541e-01_jprb &
19103  &, 0.236584e-01_jprb, 0.216858e-01_jprb, 0.198809e-01_jprb &
19104  &, 0.181835e-01_jprb, 0.166382e-01_jprb, 0.151810e-01_jprb, 0.138562e-01_jprb &
19105  &, 0.125956e-01_jprb, 0.114823e-01_jprb, 0.104459e-01_jprb &
19106  &, 0.945148e-02_jprb, 0.858413e-02_jprb, 0.776822e-02_jprb, 0.704945e-02_jprb &
19107  &, 0.634780e-02_jprb, 0.575193e-02_jprb, 0.517929e-02_jprb &
19108  &, 0.463165e-02_jprb, 0.420196e-02_jprb, 0.375747e-02_jprb, 0.334497e-02_jprb &
19109  &, 0.301407e-02_jprb, 0.272051e-02_jprb, 0.241718e-02_jprb &
19110  &, 0.215382e-02_jprb, 0.193251e-02_jprb, 0.170404e-02_jprb, 0.152039e-02_jprb &
19111  &, 0.133091e-02_jprb, 0.118912e-02_jprb, 0.104289e-02_jprb &
19112  &, 0.947283e-03_jprb, 0.792770e-03_jprb, 0.747047e-03_jprb, 0.642343e-03_jprb &
19113  &, 0.534533e-03_jprb, 0.482665e-03_jprb, 0.429235e-03_jprb &
19114  &, 0.374226e-03_jprb, 0.317620e-03_jprb, 0.259398e-03_jprb, 0.262724e-03_jprb &
19115  &, 0.202055e-03_jprb, 0.204585e-03_jprb, 0.141422e-03_jprb/)
19116 xcw( 436, :) = (/ &
19117  & 0.980532e+00_jprb, 0.974676e+00_jprb, 0.968431e+00_jprb, 0.961803e+00_jprb &
19118  &, 0.954792e+00_jprb, 0.947407e+00_jprb, 0.939651e+00_jprb &
19119  &, 0.931529e+00_jprb, 0.923045e+00_jprb, 0.914205e+00_jprb, 0.905017e+00_jprb &
19120  &, 0.895485e+00_jprb, 0.885616e+00_jprb, 0.875418e+00_jprb &
19121  &, 0.864894e+00_jprb, 0.854057e+00_jprb, 0.842912e+00_jprb, 0.831468e+00_jprb &
19122  &, 0.819732e+00_jprb, 0.807716e+00_jprb, 0.795428e+00_jprb &
19123  &, 0.782880e+00_jprb, 0.770081e+00_jprb, 0.757042e+00_jprb, 0.743776e+00_jprb &
19124  &, 0.730292e+00_jprb, 0.716606e+00_jprb, 0.702733e+00_jprb &
19125  &, 0.688681e+00_jprb, 0.674466e+00_jprb, 0.660105e+00_jprb, 0.645611e+00_jprb &
19126  &, 0.630999e+00_jprb, 0.616285e+00_jprb, 0.601490e+00_jprb &
19127  &, 0.586615e+00_jprb, 0.571699e+00_jprb, 0.556738e+00_jprb, 0.541757e+00_jprb &
19128  &, 0.526779e+00_jprb, 0.511813e+00_jprb, 0.496888e+00_jprb &
19129  &, 0.481996e+00_jprb, 0.467178e+00_jprb, 0.452441e+00_jprb, 0.437808e+00_jprb &
19130  &, 0.423286e+00_jprb, 0.408899e+00_jprb, 0.394655e+00_jprb &
19131  &, 0.380566e+00_jprb, 0.366666e+00_jprb, 0.352952e+00_jprb, 0.339446e+00_jprb &
19132  &, 0.326143e+00_jprb, 0.313093e+00_jprb, 0.300272e+00_jprb &
19133  &, 0.287700e+00_jprb, 0.275397e+00_jprb, 0.263364e+00_jprb, 0.251602e+00_jprb &
19134  &, 0.240144e+00_jprb, 0.228969e+00_jprb, 0.218107e+00_jprb &
19135  &, 0.207535e+00_jprb, 0.197278e+00_jprb, 0.187346e+00_jprb, 0.177724e+00_jprb &
19136  &, 0.168437e+00_jprb, 0.159448e+00_jprb, 0.150796e+00_jprb &
19137  &, 0.142439e+00_jprb, 0.134414e+00_jprb, 0.126715e+00_jprb, 0.119314e+00_jprb &
19138  &, 0.112243e+00_jprb, 0.105446e+00_jprb, 0.989775e-01_jprb &
19139  &, 0.927972e-01_jprb, 0.869105e-01_jprb, 0.812963e-01_jprb, 0.759560e-01_jprb &
19140  &, 0.709163e-01_jprb, 0.661239e-01_jprb, 0.615749e-01_jprb &
19141  &, 0.572640e-01_jprb, 0.532127e-01_jprb, 0.493853e-01_jprb, 0.458011e-01_jprb &
19142  &, 0.424202e-01_jprb, 0.392290e-01_jprb, 0.362435e-01_jprb &
19143  &, 0.334482e-01_jprb, 0.308259e-01_jprb, 0.283901e-01_jprb, 0.261214e-01_jprb &
19144  &, 0.239982e-01_jprb, 0.219970e-01_jprb, 0.201622e-01_jprb &
19145  &, 0.184697e-01_jprb, 0.168929e-01_jprb, 0.154031e-01_jprb, 0.140819e-01_jprb &
19146  &, 0.128252e-01_jprb, 0.116767e-01_jprb, 0.106040e-01_jprb &
19147  &, 0.961218e-02_jprb, 0.874744e-02_jprb, 0.789268e-02_jprb, 0.717591e-02_jprb &
19148  &, 0.647626e-02_jprb, 0.583893e-02_jprb, 0.526765e-02_jprb &
19149  &, 0.472139e-02_jprb, 0.424752e-02_jprb, 0.385000e-02_jprb, 0.343891e-02_jprb &
19150  &, 0.306176e-02_jprb, 0.276891e-02_jprb, 0.246631e-02_jprb &
19151  &, 0.220368e-02_jprb, 0.198310e-02_jprb, 0.175537e-02_jprb, 0.157248e-02_jprb &
19152  &, 0.138375e-02_jprb, 0.124272e-02_jprb, 0.109725e-02_jprb &
19153  &, 0.947283e-03_jprb, 0.848682e-03_jprb, 0.747047e-03_jprb, 0.642343e-03_jprb &
19154  &, 0.592814e-03_jprb, 0.482665e-03_jprb, 0.429235e-03_jprb &
19155  &, 0.374226e-03_jprb, 0.317620e-03_jprb, 0.259398e-03_jprb, 0.262724e-03_jprb &
19156  &, 0.202055e-03_jprb, 0.204585e-03_jprb, 0.141422e-03_jprb/)
19157 xcw( 437, :) = (/ &
19158  & 0.980786e+00_jprb, 0.974991e+00_jprb, 0.968805e+00_jprb, 0.962236e+00_jprb &
19159  &, 0.955286e+00_jprb, 0.947960e+00_jprb, 0.940262e+00_jprb &
19160  &, 0.932197e+00_jprb, 0.923769e+00_jprb, 0.914985e+00_jprb, 0.905852e+00_jprb &
19161  &, 0.896374e+00_jprb, 0.886557e+00_jprb, 0.876411e+00_jprb &
19162  &, 0.865939e+00_jprb, 0.855150e+00_jprb, 0.844054e+00_jprb, 0.832656e+00_jprb &
19163  &, 0.820967e+00_jprb, 0.808995e+00_jprb, 0.796748e+00_jprb &
19164  &, 0.784243e+00_jprb, 0.771481e+00_jprb, 0.758483e+00_jprb, 0.745250e+00_jprb &
19165  &, 0.731805e+00_jprb, 0.718152e+00_jprb, 0.704309e+00_jprb &
19166  &, 0.690288e+00_jprb, 0.676101e+00_jprb, 0.661764e+00_jprb, 0.647295e+00_jprb &
19167  &, 0.632708e+00_jprb, 0.618015e+00_jprb, 0.603231e+00_jprb &
19168  &, 0.588382e+00_jprb, 0.573473e+00_jprb, 0.558527e+00_jprb, 0.543562e+00_jprb &
19169  &, 0.528588e+00_jprb, 0.513626e+00_jprb, 0.498692e+00_jprb &
19170  &, 0.483812e+00_jprb, 0.468994e+00_jprb, 0.454257e+00_jprb, 0.439620e+00_jprb &
19171  &, 0.425083e+00_jprb, 0.410689e+00_jprb, 0.396438e+00_jprb &
19172  &, 0.382340e+00_jprb, 0.368416e+00_jprb, 0.354689e+00_jprb, 0.341154e+00_jprb &
19173  &, 0.327849e+00_jprb, 0.314764e+00_jprb, 0.301922e+00_jprb &
19174  &, 0.289327e+00_jprb, 0.276998e+00_jprb, 0.264938e+00_jprb, 0.253146e+00_jprb &
19175  &, 0.241655e+00_jprb, 0.230445e+00_jprb, 0.219545e+00_jprb &
19176  &, 0.208950e+00_jprb, 0.198669e+00_jprb, 0.188692e+00_jprb, 0.179041e+00_jprb &
19177  &, 0.169704e+00_jprb, 0.160682e+00_jprb, 0.151994e+00_jprb &
19178  &, 0.143599e+00_jprb, 0.135555e+00_jprb, 0.127792e+00_jprb, 0.120368e+00_jprb &
19179  &, 0.113251e+00_jprb, 0.106428e+00_jprb, 0.999073e-01_jprb &
19180  &, 0.936971e-01_jprb, 0.877539e-01_jprb, 0.821311e-01_jprb, 0.767557e-01_jprb &
19181  &, 0.716527e-01_jprb, 0.668209e-01_jprb, 0.622580e-01_jprb &
19182  &, 0.579323e-01_jprb, 0.538370e-01_jprb, 0.499924e-01_jprb, 0.463606e-01_jprb &
19183  &, 0.429301e-01_jprb, 0.397177e-01_jprb, 0.367100e-01_jprb &
19184  &, 0.338915e-01_jprb, 0.312449e-01_jprb, 0.287838e-01_jprb, 0.264887e-01_jprb &
19185  &, 0.243380e-01_jprb, 0.223427e-01_jprb, 0.204788e-01_jprb &
19186  &, 0.187559e-01_jprb, 0.171476e-01_jprb, 0.156621e-01_jprb, 0.143077e-01_jprb &
19187  &, 0.130164e-01_jprb, 0.118712e-01_jprb, 0.108016e-01_jprb &
19188  &, 0.981307e-02_jprb, 0.886993e-02_jprb, 0.805863e-02_jprb, 0.730236e-02_jprb &
19189  &, 0.660473e-02_jprb, 0.596943e-02_jprb, 0.535601e-02_jprb &
19190  &, 0.481113e-02_jprb, 0.433865e-02_jprb, 0.389627e-02_jprb, 0.348589e-02_jprb &
19191  &, 0.315712e-02_jprb, 0.281731e-02_jprb, 0.251543e-02_jprb &
19192  &, 0.225353e-02_jprb, 0.198310e-02_jprb, 0.180671e-02_jprb, 0.157248e-02_jprb &
19193  &, 0.138375e-02_jprb, 0.124272e-02_jprb, 0.109725e-02_jprb &
19194  &, 0.100242e-02_jprb, 0.848682e-03_jprb, 0.747047e-03_jprb, 0.642343e-03_jprb &
19195  &, 0.592814e-03_jprb, 0.541748e-03_jprb, 0.429235e-03_jprb &
19196  &, 0.374226e-03_jprb, 0.317620e-03_jprb, 0.321747e-03_jprb, 0.262724e-03_jprb &
19197  &, 0.202055e-03_jprb, 0.204585e-03_jprb, 0.141422e-03_jprb/)
19198 xcw( 438, :) = (/ &
19199  & 0.981035e+00_jprb, 0.975303e+00_jprb, 0.969178e+00_jprb, 0.962671e+00_jprb &
19200  &, 0.955779e+00_jprb, 0.948512e+00_jprb, 0.940872e+00_jprb &
19201  &, 0.932864e+00_jprb, 0.924494e+00_jprb, 0.915767e+00_jprb, 0.906688e+00_jprb &
19202  &, 0.897264e+00_jprb, 0.887500e+00_jprb, 0.877405e+00_jprb &
19203  &, 0.866983e+00_jprb, 0.856245e+00_jprb, 0.845195e+00_jprb, 0.833845e+00_jprb &
19204  &, 0.822201e+00_jprb, 0.810273e+00_jprb, 0.798071e+00_jprb &
19205  &, 0.785605e+00_jprb, 0.772885e+00_jprb, 0.759923e+00_jprb, 0.746728e+00_jprb &
19206  &, 0.733318e+00_jprb, 0.719698e+00_jprb, 0.705885e+00_jprb &
19207  &, 0.691895e+00_jprb, 0.677736e+00_jprb, 0.663428e+00_jprb, 0.648983e+00_jprb &
19208  &, 0.634413e+00_jprb, 0.619741e+00_jprb, 0.604978e+00_jprb &
19209  &, 0.590140e+00_jprb, 0.575247e+00_jprb, 0.560317e+00_jprb, 0.545357e+00_jprb &
19210  &, 0.530397e+00_jprb, 0.515439e+00_jprb, 0.500518e+00_jprb &
19211  &, 0.485639e+00_jprb, 0.470810e+00_jprb, 0.456071e+00_jprb, 0.441433e+00_jprb &
19212  &, 0.426891e+00_jprb, 0.412480e+00_jprb, 0.398221e+00_jprb &
19213  &, 0.384114e+00_jprb, 0.370179e+00_jprb, 0.356439e+00_jprb, 0.342890e+00_jprb &
19214  &, 0.329554e+00_jprb, 0.316451e+00_jprb, 0.303588e+00_jprb &
19215  &, 0.290970e+00_jprb, 0.278600e+00_jprb, 0.266512e+00_jprb, 0.254706e+00_jprb &
19216  &, 0.243183e+00_jprb, 0.231938e+00_jprb, 0.221001e+00_jprb &
19217  &, 0.210384e+00_jprb, 0.200060e+00_jprb, 0.190056e+00_jprb, 0.180359e+00_jprb &
19218  &, 0.170991e+00_jprb, 0.161935e+00_jprb, 0.153192e+00_jprb &
19219  &, 0.144780e+00_jprb, 0.136675e+00_jprb, 0.128892e+00_jprb, 0.121423e+00_jprb &
19220  &, 0.114259e+00_jprb, 0.107409e+00_jprb, 0.100861e+00_jprb &
19221  &, 0.945970e-01_jprb, 0.886222e-01_jprb, 0.829407e-01_jprb, 0.775554e-01_jprb &
19222  &, 0.724154e-01_jprb, 0.675448e-01_jprb, 0.629412e-01_jprb &
19223  &, 0.585728e-01_jprb, 0.544612e-01_jprb, 0.505705e-01_jprb, 0.468907e-01_jprb &
19224  &, 0.434699e-01_jprb, 0.402064e-01_jprb, 0.371765e-01_jprb &
19225  &, 0.343348e-01_jprb, 0.316640e-01_jprb, 0.291775e-01_jprb, 0.268560e-01_jprb &
19226  &, 0.246778e-01_jprb, 0.226538e-01_jprb, 0.207601e-01_jprb &
19227  &, 0.190421e-01_jprb, 0.174023e-01_jprb, 0.159211e-01_jprb, 0.145334e-01_jprb &
19228  &, 0.132460e-01_jprb, 0.120656e-01_jprb, 0.109598e-01_jprb &
19229  &, 0.997377e-02_jprb, 0.903325e-02_jprb, 0.818310e-02_jprb, 0.742882e-02_jprb &
19230  &, 0.669038e-02_jprb, 0.605643e-02_jprb, 0.548856e-02_jprb &
19231  &, 0.494574e-02_jprb, 0.442978e-02_jprb, 0.398880e-02_jprb, 0.357983e-02_jprb &
19232  &, 0.320481e-02_jprb, 0.286571e-02_jprb, 0.256456e-02_jprb &
19233  &, 0.230339e-02_jprb, 0.203370e-02_jprb, 0.180671e-02_jprb, 0.162456e-02_jprb &
19234  &, 0.143659e-02_jprb, 0.129632e-02_jprb, 0.115161e-02_jprb &
19235  &, 0.100242e-02_jprb, 0.904594e-03_jprb, 0.803743e-03_jprb, 0.699828e-03_jprb &
19236  &, 0.592814e-03_jprb, 0.541748e-03_jprb, 0.489126e-03_jprb &
19237  &, 0.374226e-03_jprb, 0.379143e-03_jprb, 0.321747e-03_jprb, 0.262724e-03_jprb &
19238  &, 0.202055e-03_jprb, 0.204585e-03_jprb, 0.141422e-03_jprb/)
19239 xcw( 439, :) = (/ &
19240  & 0.981287e+00_jprb, 0.975615e+00_jprb, 0.969551e+00_jprb, 0.963104e+00_jprb &
19241  &, 0.956272e+00_jprb, 0.949065e+00_jprb, 0.941483e+00_jprb &
19242  &, 0.933533e+00_jprb, 0.925218e+00_jprb, 0.916547e+00_jprb, 0.907524e+00_jprb &
19243  &, 0.898153e+00_jprb, 0.888442e+00_jprb, 0.878398e+00_jprb &
19244  &, 0.868028e+00_jprb, 0.857339e+00_jprb, 0.846338e+00_jprb, 0.835034e+00_jprb &
19245  &, 0.823436e+00_jprb, 0.811552e+00_jprb, 0.799393e+00_jprb &
19246  &, 0.786968e+00_jprb, 0.774289e+00_jprb, 0.761363e+00_jprb, 0.748209e+00_jprb &
19247  &, 0.734831e+00_jprb, 0.721244e+00_jprb, 0.707465e+00_jprb &
19248  &, 0.693502e+00_jprb, 0.679375e+00_jprb, 0.665091e+00_jprb, 0.650671e+00_jprb &
19249  &, 0.636126e+00_jprb, 0.621475e+00_jprb, 0.606729e+00_jprb &
19250  &, 0.591907e+00_jprb, 0.577030e+00_jprb, 0.562106e+00_jprb, 0.547161e+00_jprb &
19251  &, 0.532206e+00_jprb, 0.517262e+00_jprb, 0.502343e+00_jprb &
19252  &, 0.487456e+00_jprb, 0.472638e+00_jprb, 0.457898e+00_jprb, 0.443245e+00_jprb &
19253  &, 0.428699e+00_jprb, 0.414282e+00_jprb, 0.400017e+00_jprb &
19254  &, 0.385888e+00_jprb, 0.371942e+00_jprb, 0.358176e+00_jprb, 0.344612e+00_jprb &
19255  &, 0.331273e+00_jprb, 0.318137e+00_jprb, 0.305254e+00_jprb &
19256  &, 0.292613e+00_jprb, 0.280217e+00_jprb, 0.268102e+00_jprb, 0.256266e+00_jprb &
19257  &, 0.244710e+00_jprb, 0.233448e+00_jprb, 0.222474e+00_jprb &
19258  &, 0.211817e+00_jprb, 0.201452e+00_jprb, 0.191421e+00_jprb, 0.181676e+00_jprb &
19259  &, 0.172277e+00_jprb, 0.163189e+00_jprb, 0.154410e+00_jprb &
19260  &, 0.145940e+00_jprb, 0.137816e+00_jprb, 0.129991e+00_jprb, 0.122477e+00_jprb &
19261  &, 0.115289e+00_jprb, 0.108391e+00_jprb, 0.101791e+00_jprb &
19262  &, 0.954969e-01_jprb, 0.894905e-01_jprb, 0.837756e-01_jprb, 0.783293e-01_jprb &
19263  &, 0.731781e-01_jprb, 0.682687e-01_jprb, 0.636243e-01_jprb &
19264  &, 0.592412e-01_jprb, 0.550855e-01_jprb, 0.511487e-01_jprb, 0.474796e-01_jprb &
19265  &, 0.439798e-01_jprb, 0.407257e-01_jprb, 0.376430e-01_jprb &
19266  &, 0.347781e-01_jprb, 0.320830e-01_jprb, 0.295712e-01_jprb, 0.272233e-01_jprb &
19267  &, 0.250175e-01_jprb, 0.229649e-01_jprb, 0.210767e-01_jprb &
19268  &, 0.193283e-01_jprb, 0.176570e-01_jprb, 0.161431e-01_jprb, 0.147592e-01_jprb &
19269  &, 0.134372e-01_jprb, 0.122600e-01_jprb, 0.111574e-01_jprb &
19270  &, 0.101345e-01_jprb, 0.919656e-02_jprb, 0.834905e-02_jprb, 0.755528e-02_jprb &
19271  &, 0.681885e-02_jprb, 0.618692e-02_jprb, 0.557692e-02_jprb &
19272  &, 0.503548e-02_jprb, 0.452091e-02_jprb, 0.408133e-02_jprb, 0.367377e-02_jprb &
19273  &, 0.330018e-02_jprb, 0.291412e-02_jprb, 0.261369e-02_jprb &
19274  &, 0.235325e-02_jprb, 0.208429e-02_jprb, 0.185804e-02_jprb, 0.167664e-02_jprb &
19275  &, 0.148942e-02_jprb, 0.129632e-02_jprb, 0.115161e-02_jprb &
19276  &, 0.100242e-02_jprb, 0.904594e-03_jprb, 0.803743e-03_jprb, 0.699828e-03_jprb &
19277  &, 0.592814e-03_jprb, 0.541748e-03_jprb, 0.489126e-03_jprb &
19278  &, 0.434930e-03_jprb, 0.379143e-03_jprb, 0.321747e-03_jprb, 0.262724e-03_jprb &
19279  &, 0.202055e-03_jprb, 0.204585e-03_jprb, 0.141422e-03_jprb/)
19280 xcw( 440, :) = (/ &
19281  & 0.981539e+00_jprb, 0.975928e+00_jprb, 0.969925e+00_jprb, 0.963538e+00_jprb &
19282  &, 0.956766e+00_jprb, 0.949618e+00_jprb, 0.942094e+00_jprb &
19283  &, 0.934201e+00_jprb, 0.925944e+00_jprb, 0.917328e+00_jprb, 0.908359e+00_jprb &
19284  &, 0.899042e+00_jprb, 0.889385e+00_jprb, 0.879392e+00_jprb &
19285  &, 0.869073e+00_jprb, 0.858433e+00_jprb, 0.847481e+00_jprb, 0.836225e+00_jprb &
19286  &, 0.824672e+00_jprb, 0.812834e+00_jprb, 0.800716e+00_jprb &
19287  &, 0.788334e+00_jprb, 0.775694e+00_jprb, 0.762807e+00_jprb, 0.749687e+00_jprb &
19288  &, 0.736348e+00_jprb, 0.722794e+00_jprb, 0.709045e+00_jprb &
19289  &, 0.695113e+00_jprb, 0.681014e+00_jprb, 0.666758e+00_jprb, 0.652359e+00_jprb &
19290  &, 0.637839e+00_jprb, 0.623209e+00_jprb, 0.608484e+00_jprb &
19291  &, 0.593674e+00_jprb, 0.578813e+00_jprb, 0.563905e+00_jprb, 0.548966e+00_jprb &
19292  &, 0.534025e+00_jprb, 0.519085e+00_jprb, 0.504169e+00_jprb &
19293  &, 0.489283e+00_jprb, 0.474465e+00_jprb, 0.459725e+00_jprb, 0.445070e+00_jprb &
19294  &, 0.430520e+00_jprb, 0.416098e+00_jprb, 0.401813e+00_jprb &
19295  &, 0.387675e+00_jprb, 0.373718e+00_jprb, 0.359940e+00_jprb, 0.346363e+00_jprb &
19296  &, 0.332979e+00_jprb, 0.319838e+00_jprb, 0.306919e+00_jprb &
19297  &, 0.294255e+00_jprb, 0.281851e+00_jprb, 0.269692e+00_jprb, 0.257826e+00_jprb &
19298  &, 0.246238e+00_jprb, 0.234941e+00_jprb, 0.223947e+00_jprb &
19299  &, 0.213251e+00_jprb, 0.202861e+00_jprb, 0.192786e+00_jprb, 0.183013e+00_jprb &
19300  &, 0.173564e+00_jprb, 0.164442e+00_jprb, 0.155629e+00_jprb &
19301  &, 0.147142e+00_jprb, 0.138957e+00_jprb, 0.131090e+00_jprb, 0.123555e+00_jprb &
19302  &, 0.116320e+00_jprb, 0.109372e+00_jprb, 0.102745e+00_jprb &
19303  &, 0.964211e-01_jprb, 0.903835e-01_jprb, 0.846105e-01_jprb, 0.791548e-01_jprb &
19304  &, 0.739408e-01_jprb, 0.689925e-01_jprb, 0.643348e-01_jprb &
19305  &, 0.599095e-01_jprb, 0.557097e-01_jprb, 0.517558e-01_jprb, 0.480391e-01_jprb &
19306  &, 0.445197e-01_jprb, 0.412449e-01_jprb, 0.381407e-01_jprb &
19307  &, 0.352214e-01_jprb, 0.325021e-01_jprb, 0.299649e-01_jprb, 0.275906e-01_jprb &
19308  &, 0.253573e-01_jprb, 0.233106e-01_jprb, 0.213932e-01_jprb &
19309  &, 0.196145e-01_jprb, 0.179481e-01_jprb, 0.164021e-01_jprb, 0.149849e-01_jprb &
19310  &, 0.136668e-01_jprb, 0.124545e-01_jprb, 0.113550e-01_jprb &
19311  &, 0.102952e-01_jprb, 0.935988e-02_jprb, 0.847351e-02_jprb, 0.768174e-02_jprb &
19312  &, 0.694732e-02_jprb, 0.627392e-02_jprb, 0.566529e-02_jprb &
19313  &, 0.512522e-02_jprb, 0.461204e-02_jprb, 0.412760e-02_jprb, 0.372074e-02_jprb &
19314  &, 0.334786e-02_jprb, 0.301092e-02_jprb, 0.266281e-02_jprb &
19315  &, 0.240310e-02_jprb, 0.213488e-02_jprb, 0.190938e-02_jprb, 0.167664e-02_jprb &
19316  &, 0.148942e-02_jprb, 0.134991e-02_jprb, 0.120597e-02_jprb &
19317  &, 0.105755e-02_jprb, 0.904594e-03_jprb, 0.803743e-03_jprb, 0.699828e-03_jprb &
19318  &, 0.651096e-03_jprb, 0.541748e-03_jprb, 0.489126e-03_jprb &
19319  &, 0.434930e-03_jprb, 0.379143e-03_jprb, 0.321747e-03_jprb, 0.262724e-03_jprb &
19320  &, 0.266073e-03_jprb, 0.204585e-03_jprb, 0.207133e-03_jprb/)
19321 xcw( 441, :) = (/ &
19322  & 0.981790e+00_jprb, 0.976240e+00_jprb, 0.970298e+00_jprb, 0.963972e+00_jprb &
19323  &, 0.957260e+00_jprb, 0.950170e+00_jprb, 0.942704e+00_jprb &
19324  &, 0.934869e+00_jprb, 0.926669e+00_jprb, 0.918110e+00_jprb, 0.909195e+00_jprb &
19325  &, 0.899933e+00_jprb, 0.890328e+00_jprb, 0.880387e+00_jprb &
19326  &, 0.870119e+00_jprb, 0.859529e+00_jprb, 0.848625e+00_jprb, 0.837415e+00_jprb &
19327  &, 0.825909e+00_jprb, 0.814112e+00_jprb, 0.802039e+00_jprb &
19328  &, 0.789700e+00_jprb, 0.777101e+00_jprb, 0.764254e+00_jprb, 0.751172e+00_jprb &
19329  &, 0.737865e+00_jprb, 0.724347e+00_jprb, 0.710629e+00_jprb &
19330  &, 0.696728e+00_jprb, 0.682656e+00_jprb, 0.668425e+00_jprb, 0.654056e+00_jprb &
19331  &, 0.639557e+00_jprb, 0.624943e+00_jprb, 0.610239e+00_jprb &
19332  &, 0.595451e+00_jprb, 0.580597e+00_jprb, 0.565704e+00_jprb, 0.550780e+00_jprb &
19333  &, 0.535844e+00_jprb, 0.520908e+00_jprb, 0.505995e+00_jprb &
19334  &, 0.491121e+00_jprb, 0.476304e+00_jprb, 0.461552e+00_jprb, 0.446894e+00_jprb &
19335  &, 0.432341e+00_jprb, 0.417913e+00_jprb, 0.403609e+00_jprb &
19336  &, 0.389475e+00_jprb, 0.375495e+00_jprb, 0.361704e+00_jprb, 0.348099e+00_jprb &
19337  &, 0.334713e+00_jprb, 0.321540e+00_jprb, 0.308600e+00_jprb &
19338  &, 0.295914e+00_jprb, 0.283468e+00_jprb, 0.271298e+00_jprb, 0.259403e+00_jprb &
19339  &, 0.247783e+00_jprb, 0.236451e+00_jprb, 0.225420e+00_jprb &
19340  &, 0.214703e+00_jprb, 0.204271e+00_jprb, 0.194151e+00_jprb, 0.184349e+00_jprb &
19341  &, 0.174870e+00_jprb, 0.165696e+00_jprb, 0.156847e+00_jprb &
19342  &, 0.148323e+00_jprb, 0.140098e+00_jprb, 0.132211e+00_jprb, 0.124632e+00_jprb &
19343  &, 0.117350e+00_jprb, 0.110377e+00_jprb, 0.103698e+00_jprb &
19344  &, 0.973453e-01_jprb, 0.912518e-01_jprb, 0.854706e-01_jprb, 0.799545e-01_jprb &
19345  &, 0.747035e-01_jprb, 0.697432e-01_jprb, 0.650179e-01_jprb &
19346  &, 0.605778e-01_jprb, 0.563623e-01_jprb, 0.523628e-01_jprb, 0.485987e-01_jprb &
19347  &, 0.450596e-01_jprb, 0.417336e-01_jprb, 0.386072e-01_jprb &
19348  &, 0.356964e-01_jprb, 0.329533e-01_jprb, 0.303587e-01_jprb, 0.279579e-01_jprb &
19349  &, 0.257311e-01_jprb, 0.236563e-01_jprb, 0.217097e-01_jprb &
19350  &, 0.199007e-01_jprb, 0.182028e-01_jprb, 0.166612e-01_jprb, 0.152107e-01_jprb &
19351  &, 0.138963e-01_jprb, 0.126489e-01_jprb, 0.115132e-01_jprb &
19352  &, 0.104961e-01_jprb, 0.952320e-02_jprb, 0.863946e-02_jprb, 0.785035e-02_jprb &
19353  &, 0.707579e-02_jprb, 0.640442e-02_jprb, 0.579783e-02_jprb &
19354  &, 0.521496e-02_jprb, 0.470317e-02_jprb, 0.422013e-02_jprb, 0.381469e-02_jprb &
19355  &, 0.339554e-02_jprb, 0.305932e-02_jprb, 0.276106e-02_jprb &
19356  &, 0.245296e-02_jprb, 0.218547e-02_jprb, 0.196071e-02_jprb, 0.172872e-02_jprb &
19357  &, 0.154226e-02_jprb, 0.134991e-02_jprb, 0.120597e-02_jprb &
19358  &, 0.105755e-02_jprb, 0.960506e-03_jprb, 0.860439e-03_jprb, 0.757314e-03_jprb &
19359  &, 0.651096e-03_jprb, 0.600831e-03_jprb, 0.489126e-03_jprb &
19360  &, 0.434930e-03_jprb, 0.379143e-03_jprb, 0.321747e-03_jprb, 0.262724e-03_jprb &
19361  &, 0.266073e-03_jprb, 0.204585e-03_jprb, 0.207133e-03_jprb/)
19362 
19363 IF (lhook) CALL dr_hook('SU_MCICA:PART63',1,zhook_handle)
19364 END SUBROUTINE part63
19365 
19366 #ifdef VPP5000
19367 !OCL SCALAR
19368 #endif
19369 !option! -Nv -NO
19370 #ifdef RS6K
19371 @process nooptimize
19372 #endif
19373 !pgi$r opt=0
19374 SUBROUTINE part64
19375 
19376 REAL(KIND=JPRB) :: ZHOOK_HANDLE
19377 IF (lhook) CALL dr_hook('SU_MCICA:PART64',0,zhook_handle)
19378 
19379 xcw( 442, :) = (/ &
19380  & 0.982040e+00_jprb, 0.976552e+00_jprb, 0.970671e+00_jprb, 0.964405e+00_jprb &
19381  &, 0.957753e+00_jprb, 0.950722e+00_jprb, 0.943316e+00_jprb &
19382  &, 0.935538e+00_jprb, 0.927394e+00_jprb, 0.918890e+00_jprb, 0.910032e+00_jprb &
19383  &, 0.900822e+00_jprb, 0.891271e+00_jprb, 0.881383e+00_jprb &
19384  &, 0.871164e+00_jprb, 0.860625e+00_jprb, 0.849768e+00_jprb, 0.838606e+00_jprb &
19385  &, 0.827147e+00_jprb, 0.815397e+00_jprb, 0.803366e+00_jprb &
19386  &, 0.791066e+00_jprb, 0.778508e+00_jprb, 0.765698e+00_jprb, 0.752653e+00_jprb &
19387  &, 0.739382e+00_jprb, 0.725897e+00_jprb, 0.712213e+00_jprb &
19388  &, 0.698343e+00_jprb, 0.684299e+00_jprb, 0.670097e+00_jprb, 0.655748e+00_jprb &
19389  &, 0.641274e+00_jprb, 0.626682e+00_jprb, 0.611995e+00_jprb &
19390  &, 0.597228e+00_jprb, 0.582390e+00_jprb, 0.567494e+00_jprb, 0.552595e+00_jprb &
19391  &, 0.537664e+00_jprb, 0.522741e+00_jprb, 0.507832e+00_jprb &
19392  &, 0.492960e+00_jprb, 0.478143e+00_jprb, 0.463390e+00_jprb, 0.448730e+00_jprb &
19393  &, 0.434174e+00_jprb, 0.419729e+00_jprb, 0.405417e+00_jprb &
19394  &, 0.391262e+00_jprb, 0.377271e+00_jprb, 0.363469e+00_jprb, 0.349849e+00_jprb &
19395  &, 0.336433e+00_jprb, 0.323241e+00_jprb, 0.310296e+00_jprb &
19396  &, 0.297572e+00_jprb, 0.285102e+00_jprb, 0.272904e+00_jprb, 0.260980e+00_jprb &
19397  &, 0.249328e+00_jprb, 0.237979e+00_jprb, 0.226911e+00_jprb &
19398  &, 0.216154e+00_jprb, 0.205681e+00_jprb, 0.195535e+00_jprb, 0.185705e+00_jprb &
19399  &, 0.176176e+00_jprb, 0.166969e+00_jprb, 0.158086e+00_jprb &
19400  &, 0.149525e+00_jprb, 0.141261e+00_jprb, 0.133332e+00_jprb, 0.125709e+00_jprb &
19401  &, 0.118381e+00_jprb, 0.111382e+00_jprb, 0.104676e+00_jprb &
19402  &, 0.982695e-01_jprb, 0.921448e-01_jprb, 0.863308e-01_jprb, 0.807800e-01_jprb &
19403  &, 0.754926e-01_jprb, 0.704939e-01_jprb, 0.657284e-01_jprb &
19404  &, 0.612462e-01_jprb, 0.569866e-01_jprb, 0.529699e-01_jprb, 0.491876e-01_jprb &
19405  &, 0.456294e-01_jprb, 0.422529e-01_jprb, 0.391048e-01_jprb &
19406  &, 0.361397e-01_jprb, 0.333724e-01_jprb, 0.307852e-01_jprb, 0.283585e-01_jprb &
19407  &, 0.261048e-01_jprb, 0.239675e-01_jprb, 0.220262e-01_jprb &
19408  &, 0.201869e-01_jprb, 0.184939e-01_jprb, 0.169202e-01_jprb, 0.154740e-01_jprb &
19409  &, 0.141258e-01_jprb, 0.128823e-01_jprb, 0.117108e-01_jprb &
19410  &, 0.106568e-01_jprb, 0.968651e-02_jprb, 0.880541e-02_jprb, 0.797680e-02_jprb &
19411  &, 0.720426e-02_jprb, 0.653492e-02_jprb, 0.588620e-02_jprb &
19412  &, 0.530470e-02_jprb, 0.479430e-02_jprb, 0.431266e-02_jprb, 0.386166e-02_jprb &
19413  &, 0.349091e-02_jprb, 0.310772e-02_jprb, 0.281019e-02_jprb &
19414  &, 0.250281e-02_jprb, 0.223607e-02_jprb, 0.201205e-02_jprb, 0.178081e-02_jprb &
19415  &, 0.159510e-02_jprb, 0.140351e-02_jprb, 0.126034e-02_jprb &
19416  &, 0.111269e-02_jprb, 0.960506e-03_jprb, 0.860439e-03_jprb, 0.757314e-03_jprb &
19417  &, 0.651096e-03_jprb, 0.600831e-03_jprb, 0.489126e-03_jprb &
19418  &, 0.434930e-03_jprb, 0.379143e-03_jprb, 0.321747e-03_jprb, 0.325905e-03_jprb &
19419  &, 0.266073e-03_jprb, 0.204585e-03_jprb, 0.207133e-03_jprb/)
19420 xcw( 443, :) = (/ &
19421  & 0.982290e+00_jprb, 0.976864e+00_jprb, 0.971045e+00_jprb, 0.964839e+00_jprb &
19422  &, 0.958246e+00_jprb, 0.951275e+00_jprb, 0.943927e+00_jprb &
19423  &, 0.936207e+00_jprb, 0.928121e+00_jprb, 0.919671e+00_jprb, 0.910868e+00_jprb &
19424  &, 0.901713e+00_jprb, 0.892215e+00_jprb, 0.882379e+00_jprb &
19425  &, 0.872211e+00_jprb, 0.861721e+00_jprb, 0.850914e+00_jprb, 0.839800e+00_jprb &
19426  &, 0.828384e+00_jprb, 0.816679e+00_jprb, 0.804692e+00_jprb &
19427  &, 0.792435e+00_jprb, 0.779916e+00_jprb, 0.767145e+00_jprb, 0.754138e+00_jprb &
19428  &, 0.740902e+00_jprb, 0.727454e+00_jprb, 0.713800e+00_jprb &
19429  &, 0.699962e+00_jprb, 0.685946e+00_jprb, 0.671768e+00_jprb, 0.657448e+00_jprb &
19430  &, 0.642996e+00_jprb, 0.628425e+00_jprb, 0.613759e+00_jprb &
19431  &, 0.599004e+00_jprb, 0.584183e+00_jprb, 0.569312e+00_jprb, 0.554410e+00_jprb &
19432  &, 0.539493e+00_jprb, 0.524575e+00_jprb, 0.509668e+00_jprb &
19433  &, 0.494798e+00_jprb, 0.479982e+00_jprb, 0.465228e+00_jprb, 0.450567e+00_jprb &
19434  &, 0.435994e+00_jprb, 0.421557e+00_jprb, 0.407239e+00_jprb &
19435  &, 0.393075e+00_jprb, 0.379061e+00_jprb, 0.365233e+00_jprb, 0.351599e+00_jprb &
19436  &, 0.338181e+00_jprb, 0.324957e+00_jprb, 0.311977e+00_jprb &
19437  &, 0.299245e+00_jprb, 0.286751e+00_jprb, 0.274526e+00_jprb, 0.262573e+00_jprb &
19438  &, 0.250889e+00_jprb, 0.239506e+00_jprb, 0.228403e+00_jprb &
19439  &, 0.217606e+00_jprb, 0.207109e+00_jprb, 0.196938e+00_jprb, 0.187061e+00_jprb &
19440  &, 0.177502e+00_jprb, 0.168263e+00_jprb, 0.159325e+00_jprb &
19441  &, 0.150727e+00_jprb, 0.142424e+00_jprb, 0.134453e+00_jprb, 0.126786e+00_jprb &
19442  &, 0.119434e+00_jprb, 0.112387e+00_jprb, 0.105653e+00_jprb &
19443  &, 0.991938e-01_jprb, 0.930379e-01_jprb, 0.871910e-01_jprb, 0.816055e-01_jprb &
19444  &, 0.762816e-01_jprb, 0.712446e-01_jprb, 0.664662e-01_jprb &
19445  &, 0.619145e-01_jprb, 0.576392e-01_jprb, 0.536059e-01_jprb, 0.497766e-01_jprb &
19446  &, 0.461693e-01_jprb, 0.428027e-01_jprb, 0.396025e-01_jprb &
19447  &, 0.366147e-01_jprb, 0.338237e-01_jprb, 0.312117e-01_jprb, 0.287592e-01_jprb &
19448  &, 0.264446e-01_jprb, 0.243132e-01_jprb, 0.223428e-01_jprb &
19449  &, 0.205089e-01_jprb, 0.187850e-01_jprb, 0.171792e-01_jprb, 0.156998e-01_jprb &
19450  &, 0.143553e-01_jprb, 0.130767e-01_jprb, 0.119085e-01_jprb &
19451  &, 0.108577e-01_jprb, 0.984983e-02_jprb, 0.892988e-02_jprb, 0.810326e-02_jprb &
19452  &, 0.733272e-02_jprb, 0.666542e-02_jprb, 0.601874e-02_jprb &
19453  &, 0.543931e-02_jprb, 0.488543e-02_jprb, 0.440519e-02_jprb, 0.395560e-02_jprb &
19454  &, 0.353859e-02_jprb, 0.320453e-02_jprb, 0.285932e-02_jprb &
19455  &, 0.255267e-02_jprb, 0.228666e-02_jprb, 0.206338e-02_jprb, 0.183289e-02_jprb &
19456  &, 0.159510e-02_jprb, 0.145711e-02_jprb, 0.126034e-02_jprb &
19457  &, 0.111269e-02_jprb, 0.101642e-02_jprb, 0.860439e-03_jprb, 0.757314e-03_jprb &
19458  &, 0.709377e-03_jprb, 0.600831e-03_jprb, 0.549017e-03_jprb &
19459  &, 0.434930e-03_jprb, 0.379143e-03_jprb, 0.321747e-03_jprb, 0.325905e-03_jprb &
19460  &, 0.266073e-03_jprb, 0.204585e-03_jprb, 0.207133e-03_jprb/)
19461 xcw( 444, :) = (/ &
19462  & 0.982539e+00_jprb, 0.977177e+00_jprb, 0.971418e+00_jprb, 0.965273e+00_jprb &
19463  &, 0.958740e+00_jprb, 0.951827e+00_jprb, 0.944537e+00_jprb &
19464  &, 0.936876e+00_jprb, 0.928845e+00_jprb, 0.920454e+00_jprb, 0.911705e+00_jprb &
19465  &, 0.902603e+00_jprb, 0.893159e+00_jprb, 0.883374e+00_jprb &
19466  &, 0.873259e+00_jprb, 0.862818e+00_jprb, 0.852059e+00_jprb, 0.840992e+00_jprb &
19467  &, 0.829623e+00_jprb, 0.817964e+00_jprb, 0.806018e+00_jprb &
19468  &, 0.793805e+00_jprb, 0.781327e+00_jprb, 0.768595e+00_jprb, 0.755623e+00_jprb &
19469  &, 0.742426e+00_jprb, 0.729007e+00_jprb, 0.715388e+00_jprb &
19470  &, 0.701580e+00_jprb, 0.687593e+00_jprb, 0.673444e+00_jprb, 0.659149e+00_jprb &
19471  &, 0.644718e+00_jprb, 0.630173e+00_jprb, 0.615524e+00_jprb &
19472  &, 0.600781e+00_jprb, 0.585985e+00_jprb, 0.571121e+00_jprb, 0.556234e+00_jprb &
19473  &, 0.541323e+00_jprb, 0.526409e+00_jprb, 0.511515e+00_jprb &
19474  &, 0.496647e+00_jprb, 0.481821e+00_jprb, 0.467078e+00_jprb, 0.452403e+00_jprb &
19475  &, 0.437839e+00_jprb, 0.423385e+00_jprb, 0.409060e+00_jprb &
19476  &, 0.394875e+00_jprb, 0.380865e+00_jprb, 0.367011e+00_jprb, 0.353363e+00_jprb &
19477  &, 0.339915e+00_jprb, 0.326688e+00_jprb, 0.313673e+00_jprb &
19478  &, 0.300919e+00_jprb, 0.288400e+00_jprb, 0.276149e+00_jprb, 0.264166e+00_jprb &
19479  &, 0.252451e+00_jprb, 0.241034e+00_jprb, 0.229911e+00_jprb &
19480  &, 0.219076e+00_jprb, 0.208537e+00_jprb, 0.198322e+00_jprb, 0.188417e+00_jprb &
19481  &, 0.178828e+00_jprb, 0.169537e+00_jprb, 0.160585e+00_jprb &
19482  &, 0.151929e+00_jprb, 0.143608e+00_jprb, 0.135596e+00_jprb, 0.127885e+00_jprb &
19483  &, 0.120487e+00_jprb, 0.113415e+00_jprb, 0.106631e+00_jprb &
19484  &, 0.100142e+00_jprb, 0.939558e-01_jprb, 0.880512e-01_jprb, 0.824310e-01_jprb &
19485  &, 0.770706e-01_jprb, 0.719953e-01_jprb, 0.671767e-01_jprb &
19486  &, 0.626107e-01_jprb, 0.582918e-01_jprb, 0.542130e-01_jprb, 0.503655e-01_jprb &
19487  &, 0.467392e-01_jprb, 0.433219e-01_jprb, 0.401001e-01_jprb &
19488  &, 0.370897e-01_jprb, 0.342749e-01_jprb, 0.316054e-01_jprb, 0.291265e-01_jprb &
19489  &, 0.268183e-01_jprb, 0.246589e-01_jprb, 0.226593e-01_jprb &
19490  &, 0.207951e-01_jprb, 0.190761e-01_jprb, 0.174382e-01_jprb, 0.159632e-01_jprb &
19491  &, 0.145849e-01_jprb, 0.133101e-01_jprb, 0.121061e-01_jprb &
19492  &, 0.110184e-01_jprb, 0.100131e-01_jprb, 0.909583e-02_jprb, 0.827187e-02_jprb &
19493  &, 0.750402e-02_jprb, 0.679592e-02_jprb, 0.610711e-02_jprb &
19494  &, 0.552906e-02_jprb, 0.497656e-02_jprb, 0.449772e-02_jprb, 0.404954e-02_jprb &
19495  &, 0.363396e-02_jprb, 0.325293e-02_jprb, 0.290844e-02_jprb &
19496  &, 0.260253e-02_jprb, 0.233725e-02_jprb, 0.206338e-02_jprb, 0.188497e-02_jprb &
19497  &, 0.164793e-02_jprb, 0.145711e-02_jprb, 0.131470e-02_jprb &
19498  &, 0.116782e-02_jprb, 0.101642e-02_jprb, 0.917135e-03_jprb, 0.814800e-03_jprb &
19499  &, 0.709377e-03_jprb, 0.600831e-03_jprb, 0.549017e-03_jprb &
19500  &, 0.495635e-03_jprb, 0.440667e-03_jprb, 0.384097e-03_jprb, 0.325905e-03_jprb &
19501  &, 0.266073e-03_jprb, 0.204585e-03_jprb, 0.207133e-03_jprb/)
19502 xcw( 445, :) = (/ &
19503  & 0.982791e+00_jprb, 0.977487e+00_jprb, 0.971791e+00_jprb, 0.965706e+00_jprb &
19504  &, 0.959234e+00_jprb, 0.952380e+00_jprb, 0.945149e+00_jprb &
19505  &, 0.937544e+00_jprb, 0.929571e+00_jprb, 0.921235e+00_jprb, 0.912542e+00_jprb &
19506  &, 0.903495e+00_jprb, 0.894102e+00_jprb, 0.884370e+00_jprb &
19507  &, 0.874305e+00_jprb, 0.863915e+00_jprb, 0.853206e+00_jprb, 0.842186e+00_jprb &
19508  &, 0.830864e+00_jprb, 0.819248e+00_jprb, 0.807347e+00_jprb &
19509  &, 0.795174e+00_jprb, 0.782738e+00_jprb, 0.770046e+00_jprb, 0.757111e+00_jprb &
19510  &, 0.743950e+00_jprb, 0.730568e+00_jprb, 0.716979e+00_jprb &
19511  &, 0.703199e+00_jprb, 0.689244e+00_jprb, 0.675119e+00_jprb, 0.660850e+00_jprb &
19512  &, 0.646444e+00_jprb, 0.631920e+00_jprb, 0.617288e+00_jprb &
19513  &, 0.602567e+00_jprb, 0.587778e+00_jprb, 0.572940e+00_jprb, 0.558059e+00_jprb &
19514  &, 0.543153e+00_jprb, 0.528253e+00_jprb, 0.513352e+00_jprb &
19515  &, 0.498497e+00_jprb, 0.483683e+00_jprb, 0.468928e+00_jprb, 0.454251e+00_jprb &
19516  &, 0.439672e+00_jprb, 0.425212e+00_jprb, 0.410882e+00_jprb &
19517  &, 0.396688e+00_jprb, 0.382655e+00_jprb, 0.368803e+00_jprb, 0.355128e+00_jprb &
19518  &, 0.341664e+00_jprb, 0.328419e+00_jprb, 0.315384e+00_jprb &
19519  &, 0.302593e+00_jprb, 0.290049e+00_jprb, 0.277771e+00_jprb, 0.265760e+00_jprb &
19520  &, 0.254030e+00_jprb, 0.242579e+00_jprb, 0.231402e+00_jprb &
19521  &, 0.220546e+00_jprb, 0.209984e+00_jprb, 0.199725e+00_jprb, 0.189793e+00_jprb &
19522  &, 0.180154e+00_jprb, 0.170831e+00_jprb, 0.161844e+00_jprb &
19523  &, 0.153152e+00_jprb, 0.144792e+00_jprb, 0.136739e+00_jprb, 0.128985e+00_jprb &
19524  &, 0.121564e+00_jprb, 0.114443e+00_jprb, 0.107608e+00_jprb &
19525  &, 0.101091e+00_jprb, 0.948737e-01_jprb, 0.889113e-01_jprb, 0.832565e-01_jprb &
19526  &, 0.778859e-01_jprb, 0.727728e-01_jprb, 0.679145e-01_jprb &
19527  &, 0.633069e-01_jprb, 0.589444e-01_jprb, 0.548489e-01_jprb, 0.509545e-01_jprb &
19528  &, 0.473090e-01_jprb, 0.438412e-01_jprb, 0.405977e-01_jprb &
19529  &, 0.375646e-01_jprb, 0.347262e-01_jprb, 0.320319e-01_jprb, 0.295272e-01_jprb &
19530  &, 0.271921e-01_jprb, 0.250392e-01_jprb, 0.230110e-01_jprb &
19531  &, 0.211171e-01_jprb, 0.193308e-01_jprb, 0.177342e-01_jprb, 0.161889e-01_jprb &
19532  &, 0.148144e-01_jprb, 0.135045e-01_jprb, 0.123038e-01_jprb &
19533  &, 0.112192e-01_jprb, 0.102173e-01_jprb, 0.926178e-02_jprb, 0.839833e-02_jprb &
19534  &, 0.763248e-02_jprb, 0.688291e-02_jprb, 0.623965e-02_jprb &
19535  &, 0.561880e-02_jprb, 0.506769e-02_jprb, 0.459025e-02_jprb, 0.414349e-02_jprb &
19536  &, 0.372933e-02_jprb, 0.334973e-02_jprb, 0.300669e-02_jprb &
19537  &, 0.265238e-02_jprb, 0.238784e-02_jprb, 0.211471e-02_jprb, 0.188497e-02_jprb &
19538  &, 0.170077e-02_jprb, 0.151070e-02_jprb, 0.131470e-02_jprb &
19539  &, 0.116782e-02_jprb, 0.107233e-02_jprb, 0.917135e-03_jprb, 0.814800e-03_jprb &
19540  &, 0.709377e-03_jprb, 0.659914e-03_jprb, 0.549017e-03_jprb &
19541  &, 0.495635e-03_jprb, 0.440667e-03_jprb, 0.384097e-03_jprb, 0.325905e-03_jprb &
19542  &, 0.266073e-03_jprb, 0.269447e-03_jprb, 0.207133e-03_jprb/)
19543 xcw( 446, :) = (/ &
19544  & 0.983042e+00_jprb, 0.977799e+00_jprb, 0.972164e+00_jprb, 0.966140e+00_jprb &
19545  &, 0.959727e+00_jprb, 0.952933e+00_jprb, 0.945760e+00_jprb &
19546  &, 0.938213e+00_jprb, 0.930297e+00_jprb, 0.922017e+00_jprb, 0.913379e+00_jprb &
19547  &, 0.904386e+00_jprb, 0.895048e+00_jprb, 0.885368e+00_jprb &
19548  &, 0.875354e+00_jprb, 0.865012e+00_jprb, 0.854352e+00_jprb, 0.843379e+00_jprb &
19549  &, 0.832104e+00_jprb, 0.820533e+00_jprb, 0.808677e+00_jprb &
19550  &, 0.796546e+00_jprb, 0.784149e+00_jprb, 0.771497e+00_jprb, 0.758600e+00_jprb &
19551  &, 0.745474e+00_jprb, 0.732125e+00_jprb, 0.718570e+00_jprb &
19552  &, 0.704826e+00_jprb, 0.690895e+00_jprb, 0.676803e+00_jprb, 0.662555e+00_jprb &
19553  &, 0.648175e+00_jprb, 0.633668e+00_jprb, 0.619057e+00_jprb &
19554  &, 0.604362e+00_jprb, 0.589590e+00_jprb, 0.574759e+00_jprb, 0.559884e+00_jprb &
19555  &, 0.544993e+00_jprb, 0.530097e+00_jprb, 0.515210e+00_jprb &
19556  &, 0.500346e+00_jprb, 0.485533e+00_jprb, 0.470778e+00_jprb, 0.456099e+00_jprb &
19557  &, 0.441517e+00_jprb, 0.427053e+00_jprb, 0.412703e+00_jprb &
19558  &, 0.398502e+00_jprb, 0.384458e+00_jprb, 0.370595e+00_jprb, 0.356906e+00_jprb &
19559  &, 0.343427e+00_jprb, 0.330150e+00_jprb, 0.317095e+00_jprb &
19560  &, 0.304282e+00_jprb, 0.291714e+00_jprb, 0.279410e+00_jprb, 0.267370e+00_jprb &
19561  &, 0.255609e+00_jprb, 0.244124e+00_jprb, 0.232929e+00_jprb &
19562  &, 0.222034e+00_jprb, 0.211431e+00_jprb, 0.201146e+00_jprb, 0.191168e+00_jprb &
19563  &, 0.181500e+00_jprb, 0.172145e+00_jprb, 0.163104e+00_jprb &
19564  &, 0.154375e+00_jprb, 0.145977e+00_jprb, 0.137882e+00_jprb, 0.130106e+00_jprb &
19565  &, 0.122640e+00_jprb, 0.115471e+00_jprb, 0.108610e+00_jprb &
19566  &, 0.102039e+00_jprb, 0.957915e-01_jprb, 0.897968e-01_jprb, 0.841078e-01_jprb &
19567  &, 0.786749e-01_jprb, 0.735235e-01_jprb, 0.686523e-01_jprb &
19568  &, 0.640031e-01_jprb, 0.596254e-01_jprb, 0.554849e-01_jprb, 0.515729e-01_jprb &
19569  &, 0.478789e-01_jprb, 0.443910e-01_jprb, 0.411264e-01_jprb &
19570  &, 0.380396e-01_jprb, 0.351775e-01_jprb, 0.324585e-01_jprb, 0.299279e-01_jprb &
19571  &, 0.275998e-01_jprb, 0.253849e-01_jprb, 0.233275e-01_jprb &
19572  &, 0.214033e-01_jprb, 0.196582e-01_jprb, 0.179932e-01_jprb, 0.164523e-01_jprb &
19573  &, 0.150439e-01_jprb, 0.137378e-01_jprb, 0.125409e-01_jprb &
19574  &, 0.114201e-01_jprb, 0.103806e-01_jprb, 0.942773e-02_jprb, 0.856694e-02_jprb &
19575  &, 0.776095e-02_jprb, 0.701341e-02_jprb, 0.637220e-02_jprb &
19576  &, 0.575341e-02_jprb, 0.520438e-02_jprb, 0.468278e-02_jprb, 0.419046e-02_jprb &
19577  &, 0.377701e-02_jprb, 0.339814e-02_jprb, 0.305582e-02_jprb &
19578  &, 0.275210e-02_jprb, 0.243844e-02_jprb, 0.216605e-02_jprb, 0.193705e-02_jprb &
19579  &, 0.175361e-02_jprb, 0.156430e-02_jprb, 0.136906e-02_jprb &
19580  &, 0.122295e-02_jprb, 0.107233e-02_jprb, 0.973831e-03_jprb, 0.872285e-03_jprb &
19581  &, 0.767658e-03_jprb, 0.659914e-03_jprb, 0.549017e-03_jprb &
19582  &, 0.495635e-03_jprb, 0.440667e-03_jprb, 0.384097e-03_jprb, 0.325905e-03_jprb &
19583  &, 0.266073e-03_jprb, 0.269447e-03_jprb, 0.207133e-03_jprb/)
19584 xcw( 447, :) = (/ &
19585  & 0.983292e+00_jprb, 0.978112e+00_jprb, 0.972537e+00_jprb, 0.966573e+00_jprb &
19586  &, 0.960221e+00_jprb, 0.953485e+00_jprb, 0.946371e+00_jprb &
19587  &, 0.938881e+00_jprb, 0.931023e+00_jprb, 0.922799e+00_jprb, 0.914216e+00_jprb &
19588  &, 0.905278e+00_jprb, 0.895992e+00_jprb, 0.886364e+00_jprb &
19589  &, 0.876402e+00_jprb, 0.866111e+00_jprb, 0.855499e+00_jprb, 0.844575e+00_jprb &
19590  &, 0.833346e+00_jprb, 0.821821e+00_jprb, 0.810006e+00_jprb &
19591  &, 0.797919e+00_jprb, 0.785563e+00_jprb, 0.772951e+00_jprb, 0.760092e+00_jprb &
19592  &, 0.747002e+00_jprb, 0.733686e+00_jprb, 0.720166e+00_jprb &
19593  &, 0.706448e+00_jprb, 0.692550e+00_jprb, 0.678483e+00_jprb, 0.664264e+00_jprb &
19594  &, 0.649905e+00_jprb, 0.635420e+00_jprb, 0.620831e+00_jprb &
19595  &, 0.606148e+00_jprb, 0.591392e+00_jprb, 0.576577e+00_jprb, 0.561718e+00_jprb &
19596  &, 0.546833e+00_jprb, 0.531941e+00_jprb, 0.517058e+00_jprb &
19597  &, 0.502207e+00_jprb, 0.487395e+00_jprb, 0.472640e+00_jprb, 0.457959e+00_jprb &
19598  &, 0.443374e+00_jprb, 0.428893e+00_jprb, 0.414550e+00_jprb &
19599  &, 0.400328e+00_jprb, 0.386275e+00_jprb, 0.372387e+00_jprb, 0.358684e+00_jprb &
19600  &, 0.345175e+00_jprb, 0.331881e+00_jprb, 0.318821e+00_jprb &
19601  &, 0.305971e+00_jprb, 0.293379e+00_jprb, 0.281049e+00_jprb, 0.268979e+00_jprb &
19602  &, 0.257187e+00_jprb, 0.245669e+00_jprb, 0.234438e+00_jprb &
19603  &, 0.223522e+00_jprb, 0.212878e+00_jprb, 0.202568e+00_jprb, 0.192543e+00_jprb &
19604  &, 0.182846e+00_jprb, 0.173439e+00_jprb, 0.164364e+00_jprb &
19605  &, 0.155619e+00_jprb, 0.147161e+00_jprb, 0.139047e+00_jprb, 0.131228e+00_jprb &
19606  &, 0.123716e+00_jprb, 0.116499e+00_jprb, 0.109611e+00_jprb &
19607  &, 0.103012e+00_jprb, 0.967094e-01_jprb, 0.906823e-01_jprb, 0.849591e-01_jprb &
19608  &, 0.794902e-01_jprb, 0.743010e-01_jprb, 0.693901e-01_jprb &
19609  &, 0.647271e-01_jprb, 0.603064e-01_jprb, 0.561209e-01_jprb, 0.521618e-01_jprb &
19610  &, 0.484488e-01_jprb, 0.449408e-01_jprb, 0.416241e-01_jprb &
19611  &, 0.385462e-01_jprb, 0.356288e-01_jprb, 0.329178e-01_jprb, 0.303620e-01_jprb &
19612  &, 0.279736e-01_jprb, 0.257306e-01_jprb, 0.236792e-01_jprb &
19613  &, 0.217252e-01_jprb, 0.199493e-01_jprb, 0.182523e-01_jprb, 0.167157e-01_jprb &
19614  &, 0.152734e-01_jprb, 0.139712e-01_jprb, 0.127386e-01_jprb &
19615  &, 0.115808e-01_jprb, 0.105439e-01_jprb, 0.959368e-02_jprb, 0.869339e-02_jprb &
19616  &, 0.788942e-02_jprb, 0.714391e-02_jprb, 0.646056e-02_jprb &
19617  &, 0.584315e-02_jprb, 0.529551e-02_jprb, 0.477531e-02_jprb, 0.428440e-02_jprb &
19618  &, 0.387238e-02_jprb, 0.344654e-02_jprb, 0.310495e-02_jprb &
19619  &, 0.280195e-02_jprb, 0.248903e-02_jprb, 0.221738e-02_jprb, 0.198914e-02_jprb &
19620  &, 0.175361e-02_jprb, 0.156430e-02_jprb, 0.142342e-02_jprb &
19621  &, 0.122295e-02_jprb, 0.112824e-02_jprb, 0.973831e-03_jprb, 0.872285e-03_jprb &
19622  &, 0.767658e-03_jprb, 0.659914e-03_jprb, 0.608907e-03_jprb &
19623  &, 0.495635e-03_jprb, 0.440667e-03_jprb, 0.384097e-03_jprb, 0.325905e-03_jprb &
19624  &, 0.330092e-03_jprb, 0.269447e-03_jprb, 0.207133e-03_jprb/)
19625 xcw( 448, :) = (/ &
19626  & 0.983540e+00_jprb, 0.978425e+00_jprb, 0.972910e+00_jprb, 0.967007e+00_jprb &
19627  &, 0.960714e+00_jprb, 0.954038e+00_jprb, 0.946982e+00_jprb &
19628  &, 0.939551e+00_jprb, 0.931749e+00_jprb, 0.923581e+00_jprb, 0.915053e+00_jprb &
19629  &, 0.906170e+00_jprb, 0.896937e+00_jprb, 0.887362e+00_jprb &
19630  &, 0.877452e+00_jprb, 0.867210e+00_jprb, 0.856648e+00_jprb, 0.845771e+00_jprb &
19631  &, 0.834589e+00_jprb, 0.823106e+00_jprb, 0.811339e+00_jprb &
19632  &, 0.799292e+00_jprb, 0.786977e+00_jprb, 0.774405e+00_jprb, 0.761584e+00_jprb &
19633  &, 0.748530e+00_jprb, 0.735251e+00_jprb, 0.721761e+00_jprb &
19634  &, 0.708075e+00_jprb, 0.694208e+00_jprb, 0.680167e+00_jprb, 0.665973e+00_jprb &
19635  &, 0.651640e+00_jprb, 0.637176e+00_jprb, 0.622609e+00_jprb &
19636  &, 0.607943e+00_jprb, 0.593204e+00_jprb, 0.578396e+00_jprb, 0.563553e+00_jprb &
19637  &, 0.548683e+00_jprb, 0.533796e+00_jprb, 0.518926e+00_jprb &
19638  &, 0.504067e+00_jprb, 0.489257e+00_jprb, 0.474501e+00_jprb, 0.459819e+00_jprb &
19639  &, 0.445232e+00_jprb, 0.430746e+00_jprb, 0.416384e+00_jprb &
19640  &, 0.402155e+00_jprb, 0.388092e+00_jprb, 0.374192e+00_jprb, 0.360477e+00_jprb &
19641  &, 0.346953e+00_jprb, 0.333626e+00_jprb, 0.320532e+00_jprb &
19642  &, 0.307676e+00_jprb, 0.295060e+00_jprb, 0.282704e+00_jprb, 0.270606e+00_jprb &
19643  &, 0.258783e+00_jprb, 0.247232e+00_jprb, 0.235982e+00_jprb &
19644  &, 0.225010e+00_jprb, 0.214343e+00_jprb, 0.203990e+00_jprb, 0.193938e+00_jprb &
19645  &, 0.184192e+00_jprb, 0.174773e+00_jprb, 0.165644e+00_jprb &
19646  &, 0.156863e+00_jprb, 0.148367e+00_jprb, 0.140190e+00_jprb, 0.132350e+00_jprb &
19647  &, 0.124793e+00_jprb, 0.117551e+00_jprb, 0.110612e+00_jprb &
19648  &, 0.103985e+00_jprb, 0.976273e-01_jprb, 0.915930e-01_jprb, 0.858104e-01_jprb &
19649  &, 0.803055e-01_jprb, 0.751053e-01_jprb, 0.701279e-01_jprb &
19650  &, 0.654233e-01_jprb, 0.609874e-01_jprb, 0.567569e-01_jprb, 0.527802e-01_jprb &
19651  &, 0.490186e-01_jprb, 0.454906e-01_jprb, 0.421528e-01_jprb &
19652  &, 0.390212e-01_jprb, 0.360801e-01_jprb, 0.333443e-01_jprb, 0.307627e-01_jprb &
19653  &, 0.283473e-01_jprb, 0.261109e-01_jprb, 0.239957e-01_jprb &
19654  &, 0.220472e-01_jprb, 0.202404e-01_jprb, 0.185483e-01_jprb, 0.169791e-01_jprb &
19655  &, 0.155412e-01_jprb, 0.141656e-01_jprb, 0.129362e-01_jprb &
19656  &, 0.117817e-01_jprb, 0.107481e-01_jprb, 0.975963e-02_jprb, 0.886200e-02_jprb &
19657  &, 0.806071e-02_jprb, 0.727441e-02_jprb, 0.659311e-02_jprb &
19658  &, 0.597776e-02_jprb, 0.538664e-02_jprb, 0.486784e-02_jprb, 0.437834e-02_jprb &
19659  &, 0.392006e-02_jprb, 0.354334e-02_jprb, 0.320320e-02_jprb &
19660  &, 0.285181e-02_jprb, 0.253962e-02_jprb, 0.226872e-02_jprb, 0.204122e-02_jprb &
19661  &, 0.180644e-02_jprb, 0.161789e-02_jprb, 0.142342e-02_jprb &
19662  &, 0.127809e-02_jprb, 0.112824e-02_jprb, 0.103053e-02_jprb, 0.872285e-03_jprb &
19663  &, 0.767658e-03_jprb, 0.718997e-03_jprb, 0.608907e-03_jprb &
19664  &, 0.556339e-03_jprb, 0.440667e-03_jprb, 0.384097e-03_jprb, 0.325905e-03_jprb &
19665  &, 0.330092e-03_jprb, 0.269447e-03_jprb, 0.207133e-03_jprb/)
19666 
19667 IF (lhook) CALL dr_hook('SU_MCICA:PART64',1,zhook_handle)
19668 END SUBROUTINE part64
19669 
19670 #ifdef VPP5000
19671 !OCL SCALAR
19672 #endif
19673 !option! -Nv -NO
19674 #ifdef RS6K
19675 @process nooptimize
19676 #endif
19677 !pgi$r opt=0
19678 SUBROUTINE part65
19679 
19680 REAL(KIND=JPRB) :: ZHOOK_HANDLE
19681 IF (lhook) CALL dr_hook('SU_MCICA:PART65',0,zhook_handle)
19682 
19683 xcw( 449, :) = (/ &
19684  & 0.983793e+00_jprb, 0.978736e+00_jprb, 0.973283e+00_jprb, 0.967440e+00_jprb &
19685  &, 0.961207e+00_jprb, 0.954590e+00_jprb, 0.947593e+00_jprb &
19686  &, 0.940219e+00_jprb, 0.932475e+00_jprb, 0.924363e+00_jprb, 0.915891e+00_jprb &
19687  &, 0.907062e+00_jprb, 0.897883e+00_jprb, 0.888360e+00_jprb &
19688  &, 0.878501e+00_jprb, 0.868310e+00_jprb, 0.857797e+00_jprb, 0.846968e+00_jprb &
19689  &, 0.835831e+00_jprb, 0.824397e+00_jprb, 0.812671e+00_jprb &
19690  &, 0.800668e+00_jprb, 0.788391e+00_jprb, 0.775859e+00_jprb, 0.763076e+00_jprb &
19691  &, 0.750057e+00_jprb, 0.736816e+00_jprb, 0.723360e+00_jprb &
19692  &, 0.709705e+00_jprb, 0.695867e+00_jprb, 0.681855e+00_jprb, 0.667686e+00_jprb &
19693  &, 0.653375e+00_jprb, 0.638937e+00_jprb, 0.624387e+00_jprb &
19694  &, 0.609738e+00_jprb, 0.595016e+00_jprb, 0.580225e+00_jprb, 0.565398e+00_jprb &
19695  &, 0.550533e+00_jprb, 0.535661e+00_jprb, 0.520785e+00_jprb &
19696  &, 0.505939e+00_jprb, 0.491130e+00_jprb, 0.476374e+00_jprb, 0.461680e+00_jprb &
19697  &, 0.447089e+00_jprb, 0.432599e+00_jprb, 0.418231e+00_jprb &
19698  &, 0.403994e+00_jprb, 0.389909e+00_jprb, 0.375998e+00_jprb, 0.362255e+00_jprb &
19699  &, 0.348716e+00_jprb, 0.335387e+00_jprb, 0.322274e+00_jprb &
19700  &, 0.309381e+00_jprb, 0.296741e+00_jprb, 0.284358e+00_jprb, 0.272232e+00_jprb &
19701  &, 0.260379e+00_jprb, 0.248794e+00_jprb, 0.237508e+00_jprb &
19702  &, 0.226516e+00_jprb, 0.215809e+00_jprb, 0.205412e+00_jprb, 0.195333e+00_jprb &
19703  &, 0.185557e+00_jprb, 0.176088e+00_jprb, 0.166945e+00_jprb &
19704  &, 0.158108e+00_jprb, 0.149572e+00_jprb, 0.141377e+00_jprb, 0.133472e+00_jprb &
19705  &, 0.125892e+00_jprb, 0.118603e+00_jprb, 0.111638e+00_jprb &
19706  &, 0.104958e+00_jprb, 0.985700e-01_jprb, 0.924785e-01_jprb, 0.866875e-01_jprb &
19707  &, 0.811472e-01_jprb, 0.758827e-01_jprb, 0.708930e-01_jprb &
19708  &, 0.661473e-01_jprb, 0.616684e-01_jprb, 0.574218e-01_jprb, 0.533986e-01_jprb &
19709  &, 0.496185e-01_jprb, 0.460404e-01_jprb, 0.426815e-01_jprb &
19710  &, 0.395279e-01_jprb, 0.365636e-01_jprb, 0.337708e-01_jprb, 0.311967e-01_jprb &
19711  &, 0.287551e-01_jprb, 0.264911e-01_jprb, 0.243474e-01_jprb &
19712  &, 0.223692e-01_jprb, 0.205315e-01_jprb, 0.188443e-01_jprb, 0.172424e-01_jprb &
19713  &, 0.157708e-01_jprb, 0.143989e-01_jprb, 0.131734e-01_jprb &
19714  &, 0.119826e-01_jprb, 0.109114e-01_jprb, 0.992558e-02_jprb, 0.903061e-02_jprb &
19715  &, 0.818918e-02_jprb, 0.740491e-02_jprb, 0.672565e-02_jprb &
19716  &, 0.606750e-02_jprb, 0.547777e-02_jprb, 0.496037e-02_jprb, 0.447229e-02_jprb &
19717  &, 0.401543e-02_jprb, 0.359174e-02_jprb, 0.325233e-02_jprb &
19718  &, 0.290166e-02_jprb, 0.259021e-02_jprb, 0.232005e-02_jprb, 0.209330e-02_jprb &
19719  &, 0.185928e-02_jprb, 0.167149e-02_jprb, 0.147779e-02_jprb &
19720  &, 0.133322e-02_jprb, 0.118415e-02_jprb, 0.103053e-02_jprb, 0.929771e-03_jprb &
19721  &, 0.825940e-03_jprb, 0.718997e-03_jprb, 0.608907e-03_jprb &
19722  &, 0.556339e-03_jprb, 0.502191e-03_jprb, 0.446446e-03_jprb, 0.389085e-03_jprb &
19723  &, 0.330092e-03_jprb, 0.269447e-03_jprb, 0.207133e-03_jprb/)
19724 xcw( 450, :) = (/ &
19725  & 0.984044e+00_jprb, 0.979046e+00_jprb, 0.973655e+00_jprb, 0.967874e+00_jprb &
19726  &, 0.961700e+00_jprb, 0.955144e+00_jprb, 0.948204e+00_jprb &
19727  &, 0.940889e+00_jprb, 0.933201e+00_jprb, 0.925146e+00_jprb, 0.916729e+00_jprb &
19728  &, 0.907954e+00_jprb, 0.898829e+00_jprb, 0.889359e+00_jprb &
19729  &, 0.879550e+00_jprb, 0.869410e+00_jprb, 0.858946e+00_jprb, 0.848165e+00_jprb &
19730  &, 0.837026e+00_jprb, 0.825685e+00_jprb, 0.814004e+00_jprb &
19731  &, 0.802044e+00_jprb, 0.789809e+00_jprb, 0.777317e+00_jprb, 0.764572e+00_jprb &
19732  &, 0.751592e+00_jprb, 0.738384e+00_jprb, 0.724959e+00_jprb &
19733  &, 0.711336e+00_jprb, 0.697526e+00_jprb, 0.683542e+00_jprb, 0.669399e+00_jprb &
19734  &, 0.655114e+00_jprb, 0.640698e+00_jprb, 0.626169e+00_jprb &
19735  &, 0.611542e+00_jprb, 0.596828e+00_jprb, 0.582063e+00_jprb, 0.567242e+00_jprb &
19736  &, 0.552383e+00_jprb, 0.537516e+00_jprb, 0.522654e+00_jprb &
19737  &, 0.507811e+00_jprb, 0.493003e+00_jprb, 0.478236e+00_jprb, 0.463552e+00_jprb &
19738  &, 0.448958e+00_jprb, 0.434465e+00_jprb, 0.420078e+00_jprb &
19739  &, 0.405834e+00_jprb, 0.391739e+00_jprb, 0.377790e+00_jprb, 0.364062e+00_jprb &
19740  &, 0.350493e+00_jprb, 0.337147e+00_jprb, 0.324000e+00_jprb &
19741  &, 0.311101e+00_jprb, 0.298438e+00_jprb, 0.286013e+00_jprb, 0.273859e+00_jprb &
19742  &, 0.261974e+00_jprb, 0.250374e+00_jprb, 0.239053e+00_jprb &
19743  &, 0.228022e+00_jprb, 0.217292e+00_jprb, 0.206853e+00_jprb, 0.196728e+00_jprb &
19744  &, 0.186923e+00_jprb, 0.177422e+00_jprb, 0.168225e+00_jprb &
19745  &, 0.159352e+00_jprb, 0.150800e+00_jprb, 0.142542e+00_jprb, 0.134617e+00_jprb &
19746  &, 0.126991e+00_jprb, 0.119677e+00_jprb, 0.112663e+00_jprb &
19747  &, 0.105931e+00_jprb, 0.995127e-01_jprb, 0.933893e-01_jprb, 0.875388e-01_jprb &
19748  &, 0.819888e-01_jprb, 0.766870e-01_jprb, 0.716581e-01_jprb &
19749  &, 0.668713e-01_jprb, 0.623494e-01_jprb, 0.580867e-01_jprb, 0.540170e-01_jprb &
19750  &, 0.502184e-01_jprb, 0.466207e-01_jprb, 0.432103e-01_jprb &
19751  &, 0.400345e-01_jprb, 0.370471e-01_jprb, 0.342302e-01_jprb, 0.315974e-01_jprb &
19752  &, 0.291288e-01_jprb, 0.268368e-01_jprb, 0.246991e-01_jprb &
19753  &, 0.226912e-01_jprb, 0.208590e-01_jprb, 0.191033e-01_jprb, 0.175058e-01_jprb &
19754  &, 0.160385e-01_jprb, 0.146323e-01_jprb, 0.133711e-01_jprb &
19755  &, 0.121835e-01_jprb, 0.111155e-01_jprb, 0.100915e-01_jprb, 0.919922e-02_jprb &
19756  &, 0.831765e-02_jprb, 0.757891e-02_jprb, 0.685820e-02_jprb &
19757  &, 0.620211e-02_jprb, 0.561447e-02_jprb, 0.505290e-02_jprb, 0.456623e-02_jprb &
19758  &, 0.411080e-02_jprb, 0.368855e-02_jprb, 0.330145e-02_jprb &
19759  &, 0.295152e-02_jprb, 0.264081e-02_jprb, 0.237139e-02_jprb, 0.214538e-02_jprb &
19760  &, 0.191211e-02_jprb, 0.167149e-02_jprb, 0.153215e-02_jprb &
19761  &, 0.133322e-02_jprb, 0.118415e-02_jprb, 0.103053e-02_jprb, 0.929771e-03_jprb &
19762  &, 0.825940e-03_jprb, 0.718997e-03_jprb, 0.668798e-03_jprb &
19763  &, 0.556339e-03_jprb, 0.502191e-03_jprb, 0.446446e-03_jprb, 0.389085e-03_jprb &
19764  &, 0.330092e-03_jprb, 0.269447e-03_jprb, 0.272845e-03_jprb/)
19765 xcw( 451, :) = (/ &
19766  & 0.984293e+00_jprb, 0.979361e+00_jprb, 0.974029e+00_jprb, 0.968307e+00_jprb &
19767  &, 0.962194e+00_jprb, 0.955696e+00_jprb, 0.948816e+00_jprb &
19768  &, 0.941558e+00_jprb, 0.933928e+00_jprb, 0.925929e+00_jprb, 0.917567e+00_jprb &
19769  &, 0.908847e+00_jprb, 0.899776e+00_jprb, 0.890357e+00_jprb &
19770  &, 0.880601e+00_jprb, 0.870510e+00_jprb, 0.860096e+00_jprb, 0.849363e+00_jprb &
19771  &, 0.838320e+00_jprb, 0.826976e+00_jprb, 0.815340e+00_jprb &
19772  &, 0.803419e+00_jprb, 0.791230e+00_jprb, 0.778774e+00_jprb, 0.766071e+00_jprb &
19773  &, 0.753123e+00_jprb, 0.739952e+00_jprb, 0.726562e+00_jprb &
19774  &, 0.712970e+00_jprb, 0.699189e+00_jprb, 0.685234e+00_jprb, 0.671117e+00_jprb &
19775  &, 0.656857e+00_jprb, 0.642463e+00_jprb, 0.627952e+00_jprb &
19776  &, 0.613347e+00_jprb, 0.598650e+00_jprb, 0.583892e+00_jprb, 0.569087e+00_jprb &
19777  &, 0.554244e+00_jprb, 0.539381e+00_jprb, 0.524523e+00_jprb &
19778  &, 0.509682e+00_jprb, 0.494876e+00_jprb, 0.480121e+00_jprb, 0.465436e+00_jprb &
19779  &, 0.450828e+00_jprb, 0.436318e+00_jprb, 0.421938e+00_jprb &
19780  &, 0.407687e+00_jprb, 0.393570e+00_jprb, 0.379623e+00_jprb, 0.365855e+00_jprb &
19781  &, 0.352285e+00_jprb, 0.338908e+00_jprb, 0.325757e+00_jprb &
19782  &, 0.312821e+00_jprb, 0.300135e+00_jprb, 0.287684e+00_jprb, 0.275502e+00_jprb &
19783  &, 0.263587e+00_jprb, 0.251953e+00_jprb, 0.240597e+00_jprb &
19784  &, 0.229547e+00_jprb, 0.218776e+00_jprb, 0.208312e+00_jprb, 0.198142e+00_jprb &
19785  &, 0.188308e+00_jprb, 0.178756e+00_jprb, 0.169526e+00_jprb &
19786  &, 0.160617e+00_jprb, 0.152027e+00_jprb, 0.143730e+00_jprb, 0.135761e+00_jprb &
19787  &, 0.128090e+00_jprb, 0.120752e+00_jprb, 0.113688e+00_jprb &
19788  &, 0.106928e+00_jprb, 0.100480e+00_jprb, 0.943001e-01_jprb, 0.884159e-01_jprb &
19789  &, 0.828304e-01_jprb, 0.774914e-01_jprb, 0.724232e-01_jprb &
19790  &, 0.676232e-01_jprb, 0.630588e-01_jprb, 0.587516e-01_jprb, 0.546649e-01_jprb &
19791  &, 0.508182e-01_jprb, 0.471705e-01_jprb, 0.437701e-01_jprb &
19792  &, 0.405411e-01_jprb, 0.375306e-01_jprb, 0.346895e-01_jprb, 0.320315e-01_jprb &
19793  &, 0.295366e-01_jprb, 0.272171e-01_jprb, 0.250508e-01_jprb &
19794  &, 0.230489e-01_jprb, 0.211501e-01_jprb, 0.193993e-01_jprb, 0.177692e-01_jprb &
19795  &, 0.162681e-01_jprb, 0.148656e-01_jprb, 0.136082e-01_jprb &
19796  &, 0.123844e-01_jprb, 0.112789e-01_jprb, 0.102990e-01_jprb, 0.932568e-02_jprb &
19797  &, 0.848894e-02_jprb, 0.770940e-02_jprb, 0.699075e-02_jprb &
19798  &, 0.629185e-02_jprb, 0.570560e-02_jprb, 0.514543e-02_jprb, 0.466017e-02_jprb &
19799  &, 0.420617e-02_jprb, 0.378535e-02_jprb, 0.339970e-02_jprb &
19800  &, 0.305123e-02_jprb, 0.274199e-02_jprb, 0.242272e-02_jprb, 0.219747e-02_jprb &
19801  &, 0.196495e-02_jprb, 0.172509e-02_jprb, 0.153215e-02_jprb &
19802  &, 0.138836e-02_jprb, 0.124007e-02_jprb, 0.108722e-02_jprb, 0.987257e-03_jprb &
19803  &, 0.825940e-03_jprb, 0.718997e-03_jprb, 0.668798e-03_jprb &
19804  &, 0.556339e-03_jprb, 0.502191e-03_jprb, 0.446446e-03_jprb, 0.389085e-03_jprb &
19805  &, 0.330092e-03_jprb, 0.269447e-03_jprb, 0.272845e-03_jprb/)
19806 xcw( 452, :) = (/ &
19807  & 0.984545e+00_jprb, 0.979672e+00_jprb, 0.974401e+00_jprb, 0.968740e+00_jprb &
19808  &, 0.962687e+00_jprb, 0.956249e+00_jprb, 0.949427e+00_jprb &
19809  &, 0.942227e+00_jprb, 0.934654e+00_jprb, 0.926711e+00_jprb, 0.918405e+00_jprb &
19810  &, 0.909740e+00_jprb, 0.900722e+00_jprb, 0.891357e+00_jprb &
19811  &, 0.881652e+00_jprb, 0.871612e+00_jprb, 0.861247e+00_jprb, 0.850561e+00_jprb &
19812  &, 0.839567e+00_jprb, 0.828268e+00_jprb, 0.816676e+00_jprb &
19813  &, 0.804799e+00_jprb, 0.792648e+00_jprb, 0.780235e+00_jprb, 0.767566e+00_jprb &
19814  &, 0.754658e+00_jprb, 0.741521e+00_jprb, 0.728164e+00_jprb &
19815  &, 0.714605e+00_jprb, 0.700856e+00_jprb, 0.686926e+00_jprb, 0.672839e+00_jprb &
19816  &, 0.658600e+00_jprb, 0.644228e+00_jprb, 0.629739e+00_jprb &
19817  &, 0.615151e+00_jprb, 0.600471e+00_jprb, 0.585730e+00_jprb, 0.570932e+00_jprb &
19818  &, 0.556104e+00_jprb, 0.541257e+00_jprb, 0.526402e+00_jprb &
19819  &, 0.511565e+00_jprb, 0.496760e+00_jprb, 0.482006e+00_jprb, 0.467308e+00_jprb &
19820  &, 0.452697e+00_jprb, 0.438196e+00_jprb, 0.423798e+00_jprb &
19821  &, 0.409539e+00_jprb, 0.395414e+00_jprb, 0.381456e+00_jprb, 0.367675e+00_jprb &
19822  &, 0.354077e+00_jprb, 0.340683e+00_jprb, 0.327498e+00_jprb &
19823  &, 0.314541e+00_jprb, 0.301832e+00_jprb, 0.289356e+00_jprb, 0.277145e+00_jprb &
19824  &, 0.265217e+00_jprb, 0.253550e+00_jprb, 0.242159e+00_jprb &
19825  &, 0.231071e+00_jprb, 0.220260e+00_jprb, 0.209772e+00_jprb, 0.199575e+00_jprb &
19826  &, 0.189674e+00_jprb, 0.180111e+00_jprb, 0.170848e+00_jprb &
19827  &, 0.161882e+00_jprb, 0.153254e+00_jprb, 0.144939e+00_jprb, 0.136928e+00_jprb &
19828  &, 0.129212e+00_jprb, 0.121827e+00_jprb, 0.114737e+00_jprb &
19829  &, 0.107925e+00_jprb, 0.101448e+00_jprb, 0.952361e-01_jprb, 0.893188e-01_jprb &
19830  &, 0.836720e-01_jprb, 0.782957e-01_jprb, 0.731883e-01_jprb &
19831  &, 0.683472e-01_jprb, 0.637681e-01_jprb, 0.594164e-01_jprb, 0.552833e-01_jprb &
19832  &, 0.514181e-01_jprb, 0.477509e-01_jprb, 0.442988e-01_jprb &
19833  &, 0.410478e-01_jprb, 0.380141e-01_jprb, 0.351488e-01_jprb, 0.324656e-01_jprb &
19834  &, 0.299443e-01_jprb, 0.275974e-01_jprb, 0.254025e-01_jprb &
19835  &, 0.233709e-01_jprb, 0.214775e-01_jprb, 0.196954e-01_jprb, 0.180702e-01_jprb &
19836  &, 0.165358e-01_jprb, 0.151378e-01_jprb, 0.138059e-01_jprb &
19837  &, 0.125852e-01_jprb, 0.114830e-01_jprb, 0.104649e-01_jprb, 0.949429e-02_jprb &
19838  &, 0.866024e-02_jprb, 0.783990e-02_jprb, 0.712329e-02_jprb &
19839  &, 0.642646e-02_jprb, 0.579673e-02_jprb, 0.523796e-02_jprb, 0.475411e-02_jprb &
19840  &, 0.425385e-02_jprb, 0.383375e-02_jprb, 0.344883e-02_jprb &
19841  &, 0.310109e-02_jprb, 0.279258e-02_jprb, 0.247406e-02_jprb, 0.224955e-02_jprb &
19842  &, 0.201779e-02_jprb, 0.177868e-02_jprb, 0.158651e-02_jprb &
19843  &, 0.138836e-02_jprb, 0.124007e-02_jprb, 0.108722e-02_jprb, 0.987257e-03_jprb &
19844  &, 0.884221e-03_jprb, 0.778080e-03_jprb, 0.668798e-03_jprb &
19845  &, 0.617043e-03_jprb, 0.502191e-03_jprb, 0.446446e-03_jprb, 0.389085e-03_jprb &
19846  &, 0.330092e-03_jprb, 0.334309e-03_jprb, 0.272845e-03_jprb/)
19847 xcw( 453, :) = (/ &
19848  & 0.984792e+00_jprb, 0.979983e+00_jprb, 0.974775e+00_jprb, 0.969174e+00_jprb &
19849  &, 0.963181e+00_jprb, 0.956801e+00_jprb, 0.950039e+00_jprb &
19850  &, 0.942897e+00_jprb, 0.935381e+00_jprb, 0.927495e+00_jprb, 0.919244e+00_jprb &
19851  &, 0.910634e+00_jprb, 0.901669e+00_jprb, 0.892357e+00_jprb &
19852  &, 0.882702e+00_jprb, 0.872714e+00_jprb, 0.862398e+00_jprb, 0.851761e+00_jprb &
19853  &, 0.840812e+00_jprb, 0.829559e+00_jprb, 0.818012e+00_jprb &
19854  &, 0.806178e+00_jprb, 0.794069e+00_jprb, 0.781696e+00_jprb, 0.769069e+00_jprb &
19855  &, 0.756197e+00_jprb, 0.743093e+00_jprb, 0.729771e+00_jprb &
19856  &, 0.716243e+00_jprb, 0.702523e+00_jprb, 0.688622e+00_jprb, 0.674560e+00_jprb &
19857  &, 0.660348e+00_jprb, 0.645998e+00_jprb, 0.631531e+00_jprb &
19858  &, 0.616956e+00_jprb, 0.602302e+00_jprb, 0.587568e+00_jprb, 0.572786e+00_jprb &
19859  &, 0.557964e+00_jprb, 0.543122e+00_jprb, 0.528282e+00_jprb &
19860  &, 0.513448e+00_jprb, 0.498645e+00_jprb, 0.483890e+00_jprb, 0.469192e+00_jprb &
19861  &, 0.454579e+00_jprb, 0.440074e+00_jprb, 0.425671e+00_jprb &
19862  &, 0.411392e+00_jprb, 0.397258e+00_jprb, 0.383290e+00_jprb, 0.369482e+00_jprb &
19863  &, 0.355869e+00_jprb, 0.342458e+00_jprb, 0.329254e+00_jprb &
19864  &, 0.316277e+00_jprb, 0.303544e+00_jprb, 0.291043e+00_jprb, 0.278805e+00_jprb &
19865  &, 0.266829e+00_jprb, 0.255130e+00_jprb, 0.243721e+00_jprb &
19866  &, 0.232595e+00_jprb, 0.221763e+00_jprb, 0.211232e+00_jprb, 0.200989e+00_jprb &
19867  &, 0.191079e+00_jprb, 0.181466e+00_jprb, 0.172149e+00_jprb &
19868  &, 0.163169e+00_jprb, 0.154503e+00_jprb, 0.146126e+00_jprb, 0.138072e+00_jprb &
19869  &, 0.130334e+00_jprb, 0.122902e+00_jprb, 0.115762e+00_jprb &
19870  &, 0.108947e+00_jprb, 0.102415e+00_jprb, 0.961469e-01_jprb, 0.901959e-01_jprb &
19871  &, 0.845136e-01_jprb, 0.791268e-01_jprb, 0.739808e-01_jprb &
19872  &, 0.690991e-01_jprb, 0.644775e-01_jprb, 0.600813e-01_jprb, 0.559311e-01_jprb &
19873  &, 0.520179e-01_jprb, 0.483312e-01_jprb, 0.448586e-01_jprb &
19874  &, 0.415861e-01_jprb, 0.384976e-01_jprb, 0.356082e-01_jprb, 0.328997e-01_jprb &
19875  &, 0.303520e-01_jprb, 0.279777e-01_jprb, 0.257894e-01_jprb &
19876  &, 0.237286e-01_jprb, 0.218050e-01_jprb, 0.199914e-01_jprb, 0.183336e-01_jprb &
19877  &, 0.168036e-01_jprb, 0.153712e-01_jprb, 0.140431e-01_jprb &
19878  &, 0.128263e-01_jprb, 0.116871e-01_jprb, 0.106309e-01_jprb, 0.966290e-02_jprb &
19879  &, 0.878870e-02_jprb, 0.797040e-02_jprb, 0.725584e-02_jprb &
19880  &, 0.656107e-02_jprb, 0.593342e-02_jprb, 0.537675e-02_jprb, 0.484806e-02_jprb &
19881  &, 0.434922e-02_jprb, 0.393056e-02_jprb, 0.354708e-02_jprb &
19882  &, 0.315095e-02_jprb, 0.284318e-02_jprb, 0.252539e-02_jprb, 0.230163e-02_jprb &
19883  &, 0.201779e-02_jprb, 0.183228e-02_jprb, 0.164087e-02_jprb &
19884  &, 0.144349e-02_jprb, 0.129598e-02_jprb, 0.114392e-02_jprb, 0.987257e-03_jprb &
19885  &, 0.884221e-03_jprb, 0.778080e-03_jprb, 0.668798e-03_jprb &
19886  &, 0.617043e-03_jprb, 0.563715e-03_jprb, 0.446446e-03_jprb, 0.389085e-03_jprb &
19887  &, 0.330092e-03_jprb, 0.334309e-03_jprb, 0.272845e-03_jprb/)
19888 xcw( 454, :) = (/ &
19889  & 0.985044e+00_jprb, 0.980297e+00_jprb, 0.975147e+00_jprb, 0.969607e+00_jprb &
19890  &, 0.963674e+00_jprb, 0.957354e+00_jprb, 0.950651e+00_jprb &
19891  &, 0.943567e+00_jprb, 0.936108e+00_jprb, 0.928279e+00_jprb, 0.920083e+00_jprb &
19892  &, 0.911527e+00_jprb, 0.902616e+00_jprb, 0.893356e+00_jprb &
19893  &, 0.883755e+00_jprb, 0.873817e+00_jprb, 0.863550e+00_jprb, 0.852963e+00_jprb &
19894  &, 0.842060e+00_jprb, 0.830853e+00_jprb, 0.819348e+00_jprb &
19895  &, 0.807561e+00_jprb, 0.795493e+00_jprb, 0.783158e+00_jprb, 0.770568e+00_jprb &
19896  &, 0.757736e+00_jprb, 0.744665e+00_jprb, 0.731378e+00_jprb &
19897  &, 0.717881e+00_jprb, 0.704194e+00_jprb, 0.690323e+00_jprb, 0.676286e+00_jprb &
19898  &, 0.662096e+00_jprb, 0.647772e+00_jprb, 0.633327e+00_jprb &
19899  &, 0.618769e+00_jprb, 0.604133e+00_jprb, 0.589416e+00_jprb, 0.574651e+00_jprb &
19900  &, 0.559835e+00_jprb, 0.544998e+00_jprb, 0.530162e+00_jprb &
19901  &, 0.515330e+00_jprb, 0.500540e+00_jprb, 0.485775e+00_jprb, 0.471088e+00_jprb &
19902  &, 0.456473e+00_jprb, 0.441952e+00_jprb, 0.427531e+00_jprb &
19903  &, 0.413258e+00_jprb, 0.399115e+00_jprb, 0.385123e+00_jprb, 0.371303e+00_jprb &
19904  &, 0.357676e+00_jprb, 0.344248e+00_jprb, 0.331026e+00_jprb &
19905  &, 0.318028e+00_jprb, 0.305257e+00_jprb, 0.292730e+00_jprb, 0.280464e+00_jprb &
19906  &, 0.268476e+00_jprb, 0.256745e+00_jprb, 0.245301e+00_jprb &
19907  &, 0.234138e+00_jprb, 0.223265e+00_jprb, 0.212691e+00_jprb, 0.202423e+00_jprb &
19908  &, 0.192465e+00_jprb, 0.182820e+00_jprb, 0.173491e+00_jprb &
19909  &, 0.164455e+00_jprb, 0.155731e+00_jprb, 0.147335e+00_jprb, 0.139239e+00_jprb &
19910  &, 0.131457e+00_jprb, 0.124001e+00_jprb, 0.116811e+00_jprb &
19911  &, 0.109944e+00_jprb, 0.103383e+00_jprb, 0.970830e-01_jprb, 0.910988e-01_jprb &
19912  &, 0.853816e-01_jprb, 0.799311e-01_jprb, 0.747732e-01_jprb &
19913  &, 0.698510e-01_jprb, 0.651869e-01_jprb, 0.607751e-01_jprb, 0.565790e-01_jprb &
19914  &, 0.526478e-01_jprb, 0.489116e-01_jprb, 0.454185e-01_jprb &
19915  &, 0.420927e-01_jprb, 0.389811e-01_jprb, 0.360675e-01_jprb, 0.333337e-01_jprb &
19916  &, 0.307937e-01_jprb, 0.283925e-01_jprb, 0.261411e-01_jprb &
19917  &, 0.240506e-01_jprb, 0.220961e-01_jprb, 0.202874e-01_jprb, 0.186346e-01_jprb &
19918  &, 0.170714e-01_jprb, 0.156045e-01_jprb, 0.142803e-01_jprb &
19919  &, 0.130272e-01_jprb, 0.118913e-01_jprb, 0.108383e-01_jprb, 0.983151e-02_jprb &
19920  &, 0.896000e-02_jprb, 0.814440e-02_jprb, 0.738838e-02_jprb &
19921  &, 0.669569e-02_jprb, 0.602455e-02_jprb, 0.546928e-02_jprb, 0.494200e-02_jprb &
19922  &, 0.444458e-02_jprb, 0.402736e-02_jprb, 0.359621e-02_jprb &
19923  &, 0.325066e-02_jprb, 0.289377e-02_jprb, 0.262806e-02_jprb, 0.235371e-02_jprb &
19924  &, 0.207062e-02_jprb, 0.188588e-02_jprb, 0.164087e-02_jprb &
19925  &, 0.149863e-02_jprb, 0.129598e-02_jprb, 0.114392e-02_jprb, 0.104474e-02_jprb &
19926  &, 0.942503e-03_jprb, 0.837163e-03_jprb, 0.728689e-03_jprb &
19927  &, 0.617043e-03_jprb, 0.563715e-03_jprb, 0.508795e-03_jprb, 0.452266e-03_jprb &
19928  &, 0.394110e-03_jprb, 0.334309e-03_jprb, 0.272845e-03_jprb/)
19929 xcw( 455, :) = (/ &
19930  & 0.985294e+00_jprb, 0.980607e+00_jprb, 0.975520e+00_jprb, 0.970041e+00_jprb &
19931  &, 0.964168e+00_jprb, 0.957907e+00_jprb, 0.951262e+00_jprb &
19932  &, 0.944236e+00_jprb, 0.936835e+00_jprb, 0.929062e+00_jprb, 0.920922e+00_jprb &
19933  &, 0.912420e+00_jprb, 0.903565e+00_jprb, 0.894357e+00_jprb &
19934  &, 0.884807e+00_jprb, 0.874920e+00_jprb, 0.864702e+00_jprb, 0.854162e+00_jprb &
19935  &, 0.843309e+00_jprb, 0.832147e+00_jprb, 0.820687e+00_jprb &
19936  &, 0.808940e+00_jprb, 0.796917e+00_jprb, 0.784622e+00_jprb, 0.772071e+00_jprb &
19937  &, 0.759274e+00_jprb, 0.746241e+00_jprb, 0.732988e+00_jprb &
19938  &, 0.719524e+00_jprb, 0.705865e+00_jprb, 0.692023e+00_jprb, 0.678012e+00_jprb &
19939  &, 0.663852e+00_jprb, 0.649546e+00_jprb, 0.635123e+00_jprb &
19940  &, 0.620592e+00_jprb, 0.605965e+00_jprb, 0.591264e+00_jprb, 0.576506e+00_jprb &
19941  &, 0.561706e+00_jprb, 0.546884e+00_jprb, 0.532053e+00_jprb &
19942  &, 0.517224e+00_jprb, 0.502436e+00_jprb, 0.487672e+00_jprb, 0.472983e+00_jprb &
19943  &, 0.458367e+00_jprb, 0.443830e+00_jprb, 0.429416e+00_jprb &
19944  &, 0.415124e+00_jprb, 0.400972e+00_jprb, 0.386970e+00_jprb, 0.373138e+00_jprb &
19945  &, 0.359482e+00_jprb, 0.346038e+00_jprb, 0.332783e+00_jprb &
19946  &, 0.319764e+00_jprb, 0.306985e+00_jprb, 0.294434e+00_jprb, 0.282141e+00_jprb &
19947  &, 0.270106e+00_jprb, 0.258359e+00_jprb, 0.246881e+00_jprb &
19948  &, 0.235680e+00_jprb, 0.224786e+00_jprb, 0.214170e+00_jprb, 0.203876e+00_jprb &
19949  &, 0.193870e+00_jprb, 0.184195e+00_jprb, 0.174812e+00_jprb &
19950  &, 0.165742e+00_jprb, 0.157001e+00_jprb, 0.148566e+00_jprb, 0.140428e+00_jprb &
19951  &, 0.132602e+00_jprb, 0.125099e+00_jprb, 0.117884e+00_jprb &
19952  &, 0.110965e+00_jprb, 0.104350e+00_jprb, 0.980443e-01_jprb, 0.920017e-01_jprb &
19953  &, 0.862495e-01_jprb, 0.807622e-01_jprb, 0.755657e-01_jprb &
19954  &, 0.706029e-01_jprb, 0.658962e-01_jprb, 0.614689e-01_jprb, 0.572563e-01_jprb &
19955  &, 0.532777e-01_jprb, 0.495225e-01_jprb, 0.459783e-01_jprb &
19956  &, 0.426310e-01_jprb, 0.394969e-01_jprb, 0.365596e-01_jprb, 0.338012e-01_jprb &
19957  &, 0.312015e-01_jprb, 0.287728e-01_jprb, 0.265280e-01_jprb &
19958  &, 0.244083e-01_jprb, 0.224236e-01_jprb, 0.206204e-01_jprb, 0.188980e-01_jprb &
19959  &, 0.173392e-01_jprb, 0.158378e-01_jprb, 0.145174e-01_jprb &
19960  &, 0.132281e-01_jprb, 0.120954e-01_jprb, 0.110043e-01_jprb, 0.100001e-01_jprb &
19961  &, 0.913129e-02_jprb, 0.827490e-02_jprb, 0.752093e-02_jprb &
19962  &, 0.678543e-02_jprb, 0.616124e-02_jprb, 0.556181e-02_jprb, 0.503594e-02_jprb &
19963  &, 0.453995e-02_jprb, 0.407576e-02_jprb, 0.369446e-02_jprb &
19964  &, 0.330052e-02_jprb, 0.294436e-02_jprb, 0.267939e-02_jprb, 0.240580e-02_jprb &
19965  &, 0.212346e-02_jprb, 0.188588e-02_jprb, 0.169523e-02_jprb &
19966  &, 0.149863e-02_jprb, 0.135189e-02_jprb, 0.120061e-02_jprb, 0.104474e-02_jprb &
19967  &, 0.942503e-03_jprb, 0.837163e-03_jprb, 0.728689e-03_jprb &
19968  &, 0.617043e-03_jprb, 0.563715e-03_jprb, 0.508795e-03_jprb, 0.452266e-03_jprb &
19969  &, 0.394110e-03_jprb, 0.334309e-03_jprb, 0.272845e-03_jprb/)
19970 
19971 IF (lhook) CALL dr_hook('SU_MCICA:PART65',1,zhook_handle)
19972 END SUBROUTINE part65
19973 
19974 #ifdef VPP5000
19975 !OCL SCALAR
19976 #endif
19977 !option! -Nv -NO
19978 #ifdef RS6K
19979 @process nooptimize
19980 #endif
19981 !pgi$r opt=0
19982 SUBROUTINE part66
19983 
19984 REAL(KIND=JPRB) :: ZHOOK_HANDLE
19985 IF (lhook) CALL dr_hook('SU_MCICA:PART66',0,zhook_handle)
19986 
19987 xcw( 456, :) = (/ &
19988  & 0.985545e+00_jprb, 0.980919e+00_jprb, 0.975893e+00_jprb, 0.970474e+00_jprb &
19989  &, 0.964661e+00_jprb, 0.958460e+00_jprb, 0.951874e+00_jprb &
19990  &, 0.944907e+00_jprb, 0.937562e+00_jprb, 0.929844e+00_jprb, 0.921762e+00_jprb &
19991  &, 0.913315e+00_jprb, 0.904512e+00_jprb, 0.895359e+00_jprb &
19992  &, 0.885860e+00_jprb, 0.876024e+00_jprb, 0.865856e+00_jprb, 0.855365e+00_jprb &
19993  &, 0.844557e+00_jprb, 0.833442e+00_jprb, 0.822029e+00_jprb &
19994  &, 0.810326e+00_jprb, 0.798342e+00_jprb, 0.786087e+00_jprb, 0.773577e+00_jprb &
19995  &, 0.760817e+00_jprb, 0.747820e+00_jprb, 0.734598e+00_jprb &
19996  &, 0.721170e+00_jprb, 0.707539e+00_jprb, 0.693727e+00_jprb, 0.679742e+00_jprb &
19997  &, 0.665604e+00_jprb, 0.651329e+00_jprb, 0.636924e+00_jprb &
19998  &, 0.622406e+00_jprb, 0.607805e+00_jprb, 0.593112e+00_jprb, 0.578371e+00_jprb &
19999  &, 0.563587e+00_jprb, 0.548770e+00_jprb, 0.533943e+00_jprb &
20000  &, 0.519129e+00_jprb, 0.504332e+00_jprb, 0.489580e+00_jprb, 0.474879e+00_jprb &
20001  &, 0.460261e+00_jprb, 0.445720e+00_jprb, 0.431302e+00_jprb &
20002  &, 0.416990e+00_jprb, 0.402829e+00_jprb, 0.388817e+00_jprb, 0.374972e+00_jprb &
20003  &, 0.361303e+00_jprb, 0.347829e+00_jprb, 0.334569e+00_jprb &
20004  &, 0.321515e+00_jprb, 0.308714e+00_jprb, 0.296137e+00_jprb, 0.283817e+00_jprb &
20005  &, 0.271752e+00_jprb, 0.259974e+00_jprb, 0.248460e+00_jprb &
20006  &, 0.237241e+00_jprb, 0.226307e+00_jprb, 0.215668e+00_jprb, 0.205329e+00_jprb &
20007  &, 0.195295e+00_jprb, 0.185570e+00_jprb, 0.176155e+00_jprb &
20008  &, 0.167049e+00_jprb, 0.158250e+00_jprb, 0.149775e+00_jprb, 0.141617e+00_jprb &
20009  &, 0.133747e+00_jprb, 0.126197e+00_jprb, 0.118957e+00_jprb &
20010  &, 0.112011e+00_jprb, 0.105342e+00_jprb, 0.989804e-01_jprb, 0.929046e-01_jprb &
20011  &, 0.871174e-01_jprb, 0.815933e-01_jprb, 0.763581e-01_jprb &
20012  &, 0.713826e-01_jprb, 0.666340e-01_jprb, 0.621627e-01_jprb, 0.579041e-01_jprb &
20013  &, 0.539075e-01_jprb, 0.501028e-01_jprb, 0.465381e-01_jprb &
20014  &, 0.431693e-01_jprb, 0.400126e-01_jprb, 0.370190e-01_jprb, 0.342353e-01_jprb &
20015  &, 0.316432e-01_jprb, 0.291877e-01_jprb, 0.268797e-01_jprb &
20016  &, 0.247661e-01_jprb, 0.227874e-01_jprb, 0.209164e-01_jprb, 0.191990e-01_jprb &
20017  &, 0.176070e-01_jprb, 0.161101e-01_jprb, 0.147151e-01_jprb &
20018  &, 0.134691e-01_jprb, 0.122996e-01_jprb, 0.112117e-01_jprb, 0.102109e-01_jprb &
20019  &, 0.925976e-02_jprb, 0.840540e-02_jprb, 0.765347e-02_jprb &
20020  &, 0.692004e-02_jprb, 0.625237e-02_jprb, 0.565435e-02_jprb, 0.512989e-02_jprb &
20021  &, 0.463532e-02_jprb, 0.417257e-02_jprb, 0.374359e-02_jprb &
20022  &, 0.335037e-02_jprb, 0.304555e-02_jprb, 0.273073e-02_jprb, 0.245788e-02_jprb &
20023  &, 0.217630e-02_jprb, 0.193947e-02_jprb, 0.174960e-02_jprb &
20024  &, 0.155376e-02_jprb, 0.135189e-02_jprb, 0.120061e-02_jprb, 0.110223e-02_jprb &
20025  &, 0.942503e-03_jprb, 0.837163e-03_jprb, 0.728689e-03_jprb &
20026  &, 0.677748e-03_jprb, 0.563715e-03_jprb, 0.508795e-03_jprb, 0.452266e-03_jprb &
20027  &, 0.394110e-03_jprb, 0.334309e-03_jprb, 0.272845e-03_jprb/)
20028 xcw( 457, :) = (/ &
20029  & 0.985794e+00_jprb, 0.981230e+00_jprb, 0.976266e+00_jprb, 0.970908e+00_jprb &
20030  &, 0.965155e+00_jprb, 0.959014e+00_jprb, 0.952486e+00_jprb &
20031  &, 0.945576e+00_jprb, 0.938289e+00_jprb, 0.930629e+00_jprb, 0.922602e+00_jprb &
20032  &, 0.914210e+00_jprb, 0.905461e+00_jprb, 0.896360e+00_jprb &
20033  &, 0.886914e+00_jprb, 0.877129e+00_jprb, 0.867010e+00_jprb, 0.856568e+00_jprb &
20034  &, 0.845808e+00_jprb, 0.834739e+00_jprb, 0.823368e+00_jprb &
20035  &, 0.811708e+00_jprb, 0.799766e+00_jprb, 0.787555e+00_jprb, 0.775083e+00_jprb &
20036  &, 0.762359e+00_jprb, 0.749400e+00_jprb, 0.736213e+00_jprb &
20037  &, 0.722816e+00_jprb, 0.709218e+00_jprb, 0.695432e+00_jprb, 0.681477e+00_jprb &
20038  &, 0.667365e+00_jprb, 0.653107e+00_jprb, 0.638725e+00_jprb &
20039  &, 0.624229e+00_jprb, 0.609636e+00_jprb, 0.594970e+00_jprb, 0.580245e+00_jprb &
20040  &, 0.565468e+00_jprb, 0.550657e+00_jprb, 0.535845e+00_jprb &
20041  &, 0.521022e+00_jprb, 0.506239e+00_jprb, 0.491488e+00_jprb, 0.476787e+00_jprb &
20042  &, 0.462155e+00_jprb, 0.447623e+00_jprb, 0.433188e+00_jprb &
20043  &, 0.418869e+00_jprb, 0.404700e+00_jprb, 0.390664e+00_jprb, 0.376807e+00_jprb &
20044  &, 0.363124e+00_jprb, 0.349633e+00_jprb, 0.336341e+00_jprb &
20045  &, 0.323282e+00_jprb, 0.310442e+00_jprb, 0.297841e+00_jprb, 0.285493e+00_jprb &
20046  &, 0.273416e+00_jprb, 0.261588e+00_jprb, 0.250058e+00_jprb &
20047  &, 0.238801e+00_jprb, 0.227828e+00_jprb, 0.217146e+00_jprb, 0.206781e+00_jprb &
20048  &, 0.196720e+00_jprb, 0.186945e+00_jprb, 0.177497e+00_jprb &
20049  &, 0.168356e+00_jprb, 0.159520e+00_jprb, 0.151006e+00_jprb, 0.142806e+00_jprb &
20050  &, 0.134914e+00_jprb, 0.127319e+00_jprb, 0.120030e+00_jprb &
20051  &, 0.113033e+00_jprb, 0.106335e+00_jprb, 0.999418e-01_jprb, 0.938333e-01_jprb &
20052  &, 0.880116e-01_jprb, 0.824512e-01_jprb, 0.771779e-01_jprb &
20053  &, 0.721345e-01_jprb, 0.673717e-01_jprb, 0.628565e-01_jprb, 0.585814e-01_jprb &
20054  &, 0.545374e-01_jprb, 0.507137e-01_jprb, 0.470980e-01_jprb &
20055  &, 0.437076e-01_jprb, 0.405284e-01_jprb, 0.375111e-01_jprb, 0.347027e-01_jprb &
20056  &, 0.320509e-01_jprb, 0.296025e-01_jprb, 0.272665e-01_jprb &
20057  &, 0.251238e-01_jprb, 0.231149e-01_jprb, 0.212495e-01_jprb, 0.195000e-01_jprb &
20058  &, 0.178747e-01_jprb, 0.163823e-01_jprb, 0.149523e-01_jprb &
20059  &, 0.136700e-01_jprb, 0.125037e-01_jprb, 0.113777e-01_jprb, 0.103795e-01_jprb &
20060  &, 0.943105e-02_jprb, 0.857939e-02_jprb, 0.778602e-02_jprb &
20061  &, 0.705465e-02_jprb, 0.638907e-02_jprb, 0.579314e-02_jprb, 0.522383e-02_jprb &
20062  &, 0.473069e-02_jprb, 0.426937e-02_jprb, 0.384184e-02_jprb &
20063  &, 0.345008e-02_jprb, 0.309614e-02_jprb, 0.278206e-02_jprb, 0.250996e-02_jprb &
20064  &, 0.222913e-02_jprb, 0.199307e-02_jprb, 0.180396e-02_jprb &
20065  &, 0.160889e-02_jprb, 0.140780e-02_jprb, 0.125731e-02_jprb, 0.110223e-02_jprb &
20066  &, 0.100078e-02_jprb, 0.896246e-03_jprb, 0.788580e-03_jprb &
20067  &, 0.677748e-03_jprb, 0.625239e-03_jprb, 0.508795e-03_jprb, 0.452266e-03_jprb &
20068  &, 0.394110e-03_jprb, 0.334309e-03_jprb, 0.338556e-03_jprb/)
20069 xcw( 458, :) = (/ &
20070  & 0.986045e+00_jprb, 0.981543e+00_jprb, 0.976640e+00_jprb, 0.971341e+00_jprb &
20071  &, 0.965648e+00_jprb, 0.959566e+00_jprb, 0.953097e+00_jprb &
20072  &, 0.946246e+00_jprb, 0.939016e+00_jprb, 0.931414e+00_jprb, 0.923442e+00_jprb &
20073  &, 0.915105e+00_jprb, 0.906411e+00_jprb, 0.897362e+00_jprb &
20074  &, 0.887968e+00_jprb, 0.878233e+00_jprb, 0.868165e+00_jprb, 0.857771e+00_jprb &
20075  &, 0.847058e+00_jprb, 0.836037e+00_jprb, 0.824711e+00_jprb &
20076  &, 0.813094e+00_jprb, 0.801194e+00_jprb, 0.789023e+00_jprb, 0.776589e+00_jprb &
20077  &, 0.763905e+00_jprb, 0.750979e+00_jprb, 0.737827e+00_jprb &
20078  &, 0.724462e+00_jprb, 0.710897e+00_jprb, 0.697140e+00_jprb, 0.683211e+00_jprb &
20079  &, 0.669126e+00_jprb, 0.654890e+00_jprb, 0.640530e+00_jprb &
20080  &, 0.626052e+00_jprb, 0.611486e+00_jprb, 0.596828e+00_jprb, 0.582110e+00_jprb &
20081  &, 0.567349e+00_jprb, 0.552554e+00_jprb, 0.537746e+00_jprb &
20082  &, 0.522938e+00_jprb, 0.508146e+00_jprb, 0.493396e+00_jprb, 0.478695e+00_jprb &
20083  &, 0.464061e+00_jprb, 0.449526e+00_jprb, 0.435086e+00_jprb &
20084  &, 0.420761e+00_jprb, 0.406571e+00_jprb, 0.392525e+00_jprb, 0.378656e+00_jprb &
20085  &, 0.364959e+00_jprb, 0.351438e+00_jprb, 0.338143e+00_jprb &
20086  &, 0.325048e+00_jprb, 0.312187e+00_jprb, 0.299561e+00_jprb, 0.287186e+00_jprb &
20087  &, 0.275079e+00_jprb, 0.263220e+00_jprb, 0.251655e+00_jprb &
20088  &, 0.240362e+00_jprb, 0.229368e+00_jprb, 0.218663e+00_jprb, 0.208254e+00_jprb &
20089  &, 0.198145e+00_jprb, 0.188340e+00_jprb, 0.178860e+00_jprb &
20090  &, 0.169685e+00_jprb, 0.160812e+00_jprb, 0.152259e+00_jprb, 0.143996e+00_jprb &
20091  &, 0.136059e+00_jprb, 0.128440e+00_jprb, 0.121103e+00_jprb &
20092  &, 0.114079e+00_jprb, 0.107352e+00_jprb, 0.100903e+00_jprb, 0.947619e-01_jprb &
20093  &, 0.889058e-01_jprb, 0.833092e-01_jprb, 0.779703e-01_jprb &
20094  &, 0.729142e-01_jprb, 0.681095e-01_jprb, 0.635503e-01_jprb, 0.592587e-01_jprb &
20095  &, 0.551672e-01_jprb, 0.513246e-01_jprb, 0.476889e-01_jprb &
20096  &, 0.442459e-01_jprb, 0.410441e-01_jprb, 0.380032e-01_jprb, 0.351702e-01_jprb &
20097  &, 0.324926e-01_jprb, 0.299828e-01_jprb, 0.276534e-01_jprb &
20098  &, 0.254816e-01_jprb, 0.234424e-01_jprb, 0.215455e-01_jprb, 0.198010e-01_jprb &
20099  &, 0.181425e-01_jprb, 0.166156e-01_jprb, 0.152290e-01_jprb &
20100  &, 0.139111e-01_jprb, 0.127079e-01_jprb, 0.115851e-01_jprb, 0.105481e-01_jprb &
20101  &, 0.960234e-02_jprb, 0.870989e-02_jprb, 0.791857e-02_jprb &
20102  &, 0.718926e-02_jprb, 0.652576e-02_jprb, 0.588567e-02_jprb, 0.531777e-02_jprb &
20103  &, 0.482605e-02_jprb, 0.431777e-02_jprb, 0.389097e-02_jprb &
20104  &, 0.349994e-02_jprb, 0.314673e-02_jprb, 0.283340e-02_jprb, 0.256204e-02_jprb &
20105  &, 0.228197e-02_jprb, 0.204667e-02_jprb, 0.180396e-02_jprb &
20106  &, 0.160889e-02_jprb, 0.146372e-02_jprb, 0.131401e-02_jprb, 0.115971e-02_jprb &
20107  &, 0.100078e-02_jprb, 0.896246e-03_jprb, 0.788580e-03_jprb &
20108  &, 0.677748e-03_jprb, 0.625239e-03_jprb, 0.571145e-03_jprb, 0.452266e-03_jprb &
20109  &, 0.394110e-03_jprb, 0.334309e-03_jprb, 0.338556e-03_jprb/)
20110 xcw( 459, :) = (/ &
20111  & 0.986296e+00_jprb, 0.981853e+00_jprb, 0.977011e+00_jprb, 0.971775e+00_jprb &
20112  &, 0.966142e+00_jprb, 0.960120e+00_jprb, 0.953710e+00_jprb &
20113  &, 0.946917e+00_jprb, 0.939744e+00_jprb, 0.932198e+00_jprb, 0.924282e+00_jprb &
20114  &, 0.916001e+00_jprb, 0.907359e+00_jprb, 0.898365e+00_jprb &
20115  &, 0.889023e+00_jprb, 0.879340e+00_jprb, 0.869322e+00_jprb, 0.858975e+00_jprb &
20116  &, 0.848311e+00_jprb, 0.837335e+00_jprb, 0.826053e+00_jprb &
20117  &, 0.814480e+00_jprb, 0.802625e+00_jprb, 0.790494e+00_jprb, 0.778099e+00_jprb &
20118  &, 0.765451e+00_jprb, 0.752562e+00_jprb, 0.739445e+00_jprb &
20119  &, 0.726112e+00_jprb, 0.712576e+00_jprb, 0.698852e+00_jprb, 0.684950e+00_jprb &
20120  &, 0.670886e+00_jprb, 0.656678e+00_jprb, 0.642340e+00_jprb &
20121  &, 0.627885e+00_jprb, 0.613327e+00_jprb, 0.598696e+00_jprb, 0.583995e+00_jprb &
20122  &, 0.569240e+00_jprb, 0.554451e+00_jprb, 0.539647e+00_jprb &
20123  &, 0.524843e+00_jprb, 0.510064e+00_jprb, 0.495304e+00_jprb, 0.480615e+00_jprb &
20124  &, 0.465979e+00_jprb, 0.451429e+00_jprb, 0.436984e+00_jprb &
20125  &, 0.422653e+00_jprb, 0.408455e+00_jprb, 0.394399e+00_jprb, 0.380505e+00_jprb &
20126  &, 0.366794e+00_jprb, 0.353258e+00_jprb, 0.339930e+00_jprb &
20127  &, 0.326815e+00_jprb, 0.313931e+00_jprb, 0.301280e+00_jprb, 0.288863e+00_jprb &
20128  &, 0.276743e+00_jprb, 0.264869e+00_jprb, 0.253271e+00_jprb &
20129  &, 0.241941e+00_jprb, 0.230907e+00_jprb, 0.220161e+00_jprb, 0.209726e+00_jprb &
20130  &, 0.199590e+00_jprb, 0.189755e+00_jprb, 0.180223e+00_jprb &
20131  &, 0.170992e+00_jprb, 0.162104e+00_jprb, 0.153490e+00_jprb, 0.145207e+00_jprb &
20132  &, 0.137227e+00_jprb, 0.129562e+00_jprb, 0.122199e+00_jprb &
20133  &, 0.115124e+00_jprb, 0.108369e+00_jprb, 0.101890e+00_jprb, 0.956906e-01_jprb &
20134  &, 0.898001e-01_jprb, 0.841671e-01_jprb, 0.787901e-01_jprb &
20135  &, 0.736939e-01_jprb, 0.688756e-01_jprb, 0.642730e-01_jprb, 0.599360e-01_jprb &
20136  &, 0.558271e-01_jprb, 0.519355e-01_jprb, 0.482798e-01_jprb &
20137  &, 0.448159e-01_jprb, 0.415599e-01_jprb, 0.384954e-01_jprb, 0.356377e-01_jprb &
20138  &, 0.329343e-01_jprb, 0.303976e-01_jprb, 0.280403e-01_jprb &
20139  &, 0.258393e-01_jprb, 0.238062e-01_jprb, 0.218785e-01_jprb, 0.201020e-01_jprb &
20140  &, 0.184103e-01_jprb, 0.168878e-01_jprb, 0.154661e-01_jprb &
20141  &, 0.141521e-01_jprb, 0.129120e-01_jprb, 0.117925e-01_jprb, 0.107167e-01_jprb &
20142  &, 0.977363e-02_jprb, 0.888389e-02_jprb, 0.809529e-02_jprb &
20143  &, 0.732387e-02_jprb, 0.661689e-02_jprb, 0.602447e-02_jprb, 0.545869e-02_jprb &
20144  &, 0.492142e-02_jprb, 0.441458e-02_jprb, 0.398922e-02_jprb &
20145  &, 0.359965e-02_jprb, 0.324791e-02_jprb, 0.288473e-02_jprb, 0.261413e-02_jprb &
20146  &, 0.233481e-02_jprb, 0.210026e-02_jprb, 0.185832e-02_jprb &
20147  &, 0.166403e-02_jprb, 0.146372e-02_jprb, 0.131401e-02_jprb, 0.115971e-02_jprb &
20148  &, 0.105907e-02_jprb, 0.896246e-03_jprb, 0.788580e-03_jprb &
20149  &, 0.738452e-03_jprb, 0.625239e-03_jprb, 0.571145e-03_jprb, 0.515447e-03_jprb &
20150  &, 0.458128e-03_jprb, 0.399171e-03_jprb, 0.338556e-03_jprb/)
20151 xcw( 460, :) = (/ &
20152  & 0.986545e+00_jprb, 0.982165e+00_jprb, 0.977385e+00_jprb, 0.972208e+00_jprb &
20153  &, 0.966636e+00_jprb, 0.960673e+00_jprb, 0.954322e+00_jprb &
20154  &, 0.947587e+00_jprb, 0.940472e+00_jprb, 0.932983e+00_jprb, 0.925123e+00_jprb &
20155  &, 0.916897e+00_jprb, 0.908309e+00_jprb, 0.899367e+00_jprb &
20156  &, 0.890078e+00_jprb, 0.880446e+00_jprb, 0.870478e+00_jprb, 0.860181e+00_jprb &
20157  &, 0.849564e+00_jprb, 0.838632e+00_jprb, 0.827399e+00_jprb &
20158  &, 0.815869e+00_jprb, 0.804057e+00_jprb, 0.791966e+00_jprb, 0.779609e+00_jprb &
20159  &, 0.767000e+00_jprb, 0.754149e+00_jprb, 0.741067e+00_jprb &
20160  &, 0.727766e+00_jprb, 0.714259e+00_jprb, 0.700565e+00_jprb, 0.686692e+00_jprb &
20161  &, 0.672656e+00_jprb, 0.658469e+00_jprb, 0.644154e+00_jprb &
20162  &, 0.629717e+00_jprb, 0.615177e+00_jprb, 0.600563e+00_jprb, 0.585870e+00_jprb &
20163  &, 0.571132e+00_jprb, 0.556347e+00_jprb, 0.541560e+00_jprb &
20164  &, 0.526759e+00_jprb, 0.511983e+00_jprb, 0.497224e+00_jprb, 0.482534e+00_jprb &
20165  &, 0.467898e+00_jprb, 0.453345e+00_jprb, 0.438883e+00_jprb &
20166  &, 0.424545e+00_jprb, 0.410339e+00_jprb, 0.396274e+00_jprb, 0.382368e+00_jprb &
20167  &, 0.368630e+00_jprb, 0.355078e+00_jprb, 0.341732e+00_jprb &
20168  &, 0.328597e+00_jprb, 0.315691e+00_jprb, 0.303016e+00_jprb, 0.290589e+00_jprb &
20169  &, 0.278423e+00_jprb, 0.266518e+00_jprb, 0.254886e+00_jprb &
20170  &, 0.243520e+00_jprb, 0.232447e+00_jprb, 0.221677e+00_jprb, 0.211198e+00_jprb &
20171  &, 0.201034e+00_jprb, 0.191150e+00_jprb, 0.181586e+00_jprb &
20172  &, 0.172342e+00_jprb, 0.163396e+00_jprb, 0.154743e+00_jprb, 0.146419e+00_jprb &
20173  &, 0.138418e+00_jprb, 0.130707e+00_jprb, 0.123296e+00_jprb &
20174  &, 0.116195e+00_jprb, 0.109386e+00_jprb, 0.102876e+00_jprb, 0.966451e-01_jprb &
20175  &, 0.906943e-01_jprb, 0.850250e-01_jprb, 0.796372e-01_jprb &
20176  &, 0.745015e-01_jprb, 0.696133e-01_jprb, 0.649957e-01_jprb, 0.606133e-01_jprb &
20177  &, 0.564869e-01_jprb, 0.525464e-01_jprb, 0.488708e-01_jprb &
20178  &, 0.453542e-01_jprb, 0.420756e-01_jprb, 0.389875e-01_jprb, 0.361051e-01_jprb &
20179  &, 0.333760e-01_jprb, 0.308470e-01_jprb, 0.284623e-01_jprb &
20180  &, 0.262329e-01_jprb, 0.241337e-01_jprb, 0.222115e-01_jprb, 0.204030e-01_jprb &
20181  &, 0.187163e-01_jprb, 0.171601e-01_jprb, 0.157033e-01_jprb &
20182  &, 0.143530e-01_jprb, 0.131162e-01_jprb, 0.120000e-01_jprb, 0.109275e-01_jprb &
20183  &, 0.994492e-02_jprb, 0.905789e-02_jprb, 0.822784e-02_jprb &
20184  &, 0.745848e-02_jprb, 0.675359e-02_jprb, 0.611700e-02_jprb, 0.555263e-02_jprb &
20185  &, 0.501679e-02_jprb, 0.451138e-02_jprb, 0.408747e-02_jprb &
20186  &, 0.364951e-02_jprb, 0.329851e-02_jprb, 0.298740e-02_jprb, 0.266621e-02_jprb &
20187  &, 0.238764e-02_jprb, 0.215386e-02_jprb, 0.191268e-02_jprb &
20188  &, 0.171916e-02_jprb, 0.151963e-02_jprb, 0.137070e-02_jprb, 0.121720e-02_jprb &
20189  &, 0.105907e-02_jprb, 0.955330e-03_jprb, 0.848470e-03_jprb &
20190  &, 0.738452e-03_jprb, 0.625239e-03_jprb, 0.571145e-03_jprb, 0.515447e-03_jprb &
20191  &, 0.458128e-03_jprb, 0.399171e-03_jprb, 0.338556e-03_jprb/)
20192 xcw( 461, :) = (/ &
20193  & 0.986793e+00_jprb, 0.982478e+00_jprb, 0.977757e+00_jprb, 0.972642e+00_jprb &
20194  &, 0.967130e+00_jprb, 0.961226e+00_jprb, 0.954934e+00_jprb &
20195  &, 0.948258e+00_jprb, 0.941201e+00_jprb, 0.933768e+00_jprb, 0.925964e+00_jprb &
20196  &, 0.917793e+00_jprb, 0.909259e+00_jprb, 0.900371e+00_jprb &
20197  &, 0.891134e+00_jprb, 0.881553e+00_jprb, 0.871634e+00_jprb, 0.861387e+00_jprb &
20198  &, 0.850817e+00_jprb, 0.839933e+00_jprb, 0.828745e+00_jprb &
20199  &, 0.817258e+00_jprb, 0.805488e+00_jprb, 0.793437e+00_jprb, 0.781122e+00_jprb &
20200  &, 0.768550e+00_jprb, 0.755677e+00_jprb, 0.742689e+00_jprb &
20201  &, 0.729420e+00_jprb, 0.715946e+00_jprb, 0.702282e+00_jprb, 0.688435e+00_jprb &
20202  &, 0.674425e+00_jprb, 0.660261e+00_jprb, 0.645969e+00_jprb &
20203  &, 0.631549e+00_jprb, 0.617037e+00_jprb, 0.602431e+00_jprb, 0.587754e+00_jprb &
20204  &, 0.573023e+00_jprb, 0.558255e+00_jprb, 0.543472e+00_jprb &
20205  &, 0.528675e+00_jprb, 0.513901e+00_jprb, 0.499155e+00_jprb, 0.484454e+00_jprb &
20206  &, 0.469816e+00_jprb, 0.455260e+00_jprb, 0.440794e+00_jprb &
20207  &, 0.426450e+00_jprb, 0.412224e+00_jprb, 0.398148e+00_jprb, 0.384231e+00_jprb &
20208  &, 0.370479e+00_jprb, 0.356912e+00_jprb, 0.343549e+00_jprb &
20209  &, 0.330395e+00_jprb, 0.317452e+00_jprb, 0.304752e+00_jprb, 0.292298e+00_jprb &
20210  &, 0.280104e+00_jprb, 0.268167e+00_jprb, 0.256501e+00_jprb &
20211  &, 0.245116e+00_jprb, 0.234005e+00_jprb, 0.223213e+00_jprb, 0.212690e+00_jprb &
20212  &, 0.202479e+00_jprb, 0.192565e+00_jprb, 0.182969e+00_jprb &
20213  &, 0.173671e+00_jprb, 0.164688e+00_jprb, 0.156018e+00_jprb, 0.147653e+00_jprb &
20214  &, 0.139586e+00_jprb, 0.131852e+00_jprb, 0.124393e+00_jprb &
20215  &, 0.117265e+00_jprb, 0.110403e+00_jprb, 0.103863e+00_jprb, 0.975996e-01_jprb &
20216  &, 0.916148e-01_jprb, 0.859097e-01_jprb, 0.804570e-01_jprb &
20217  &, 0.753091e-01_jprb, 0.703795e-01_jprb, 0.657184e-01_jprb, 0.613200e-01_jprb &
20218  &, 0.571468e-01_jprb, 0.531878e-01_jprb, 0.494617e-01_jprb &
20219  &, 0.459242e-01_jprb, 0.426236e-01_jprb, 0.395125e-01_jprb, 0.365726e-01_jprb &
20220  &, 0.338177e-01_jprb, 0.312619e-01_jprb, 0.288492e-01_jprb &
20221  &, 0.265906e-01_jprb, 0.244975e-01_jprb, 0.225446e-01_jprb, 0.207040e-01_jprb &
20222  &, 0.189841e-01_jprb, 0.174323e-01_jprb, 0.159405e-01_jprb &
20223  &, 0.145941e-01_jprb, 0.133611e-01_jprb, 0.121659e-01_jprb, 0.110961e-01_jprb &
20224  &, 0.101162e-01_jprb, 0.918839e-02_jprb, 0.836038e-02_jprb &
20225  &, 0.759309e-02_jprb, 0.689028e-02_jprb, 0.625579e-02_jprb, 0.564657e-02_jprb &
20226  &, 0.511216e-02_jprb, 0.460818e-02_jprb, 0.413660e-02_jprb &
20227  &, 0.374922e-02_jprb, 0.334910e-02_jprb, 0.303874e-02_jprb, 0.271829e-02_jprb &
20228  &, 0.244048e-02_jprb, 0.220746e-02_jprb, 0.196705e-02_jprb &
20229  &, 0.171916e-02_jprb, 0.157554e-02_jprb, 0.137070e-02_jprb, 0.121720e-02_jprb &
20230  &, 0.111735e-02_jprb, 0.955330e-03_jprb, 0.848470e-03_jprb &
20231  &, 0.738452e-03_jprb, 0.686763e-03_jprb, 0.571145e-03_jprb, 0.515447e-03_jprb &
20232  &, 0.458128e-03_jprb, 0.399171e-03_jprb, 0.338556e-03_jprb/)
20233 xcw( 462, :) = (/ &
20234  & 0.987045e+00_jprb, 0.982789e+00_jprb, 0.978130e+00_jprb, 0.973075e+00_jprb &
20235  &, 0.967623e+00_jprb, 0.961779e+00_jprb, 0.955547e+00_jprb &
20236  &, 0.948929e+00_jprb, 0.941929e+00_jprb, 0.934554e+00_jprb, 0.926805e+00_jprb &
20237  &, 0.918689e+00_jprb, 0.910211e+00_jprb, 0.901376e+00_jprb &
20238  &, 0.892191e+00_jprb, 0.882661e+00_jprb, 0.872792e+00_jprb, 0.862594e+00_jprb &
20239  &, 0.852072e+00_jprb, 0.841233e+00_jprb, 0.830090e+00_jprb &
20240  &, 0.818651e+00_jprb, 0.806919e+00_jprb, 0.794912e+00_jprb, 0.782636e+00_jprb &
20241  &, 0.770103e+00_jprb, 0.757323e+00_jprb, 0.744311e+00_jprb &
20242  &, 0.731078e+00_jprb, 0.717633e+00_jprb, 0.703998e+00_jprb, 0.690178e+00_jprb &
20243  &, 0.676194e+00_jprb, 0.662058e+00_jprb, 0.647788e+00_jprb &
20244  &, 0.633391e+00_jprb, 0.618887e+00_jprb, 0.604299e+00_jprb, 0.589639e+00_jprb &
20245  &, 0.574924e+00_jprb, 0.560173e+00_jprb, 0.545384e+00_jprb &
20246  &, 0.530602e+00_jprb, 0.515831e+00_jprb, 0.501087e+00_jprb, 0.486386e+00_jprb &
20247  &, 0.471747e+00_jprb, 0.457176e+00_jprb, 0.442718e+00_jprb &
20248  &, 0.428355e+00_jprb, 0.414121e+00_jprb, 0.400037e+00_jprb, 0.386095e+00_jprb &
20249  &, 0.372329e+00_jprb, 0.358746e+00_jprb, 0.345366e+00_jprb &
20250  &, 0.332177e+00_jprb, 0.319228e+00_jprb, 0.306505e+00_jprb, 0.294024e+00_jprb &
20251  &, 0.281802e+00_jprb, 0.269834e+00_jprb, 0.258134e+00_jprb &
20252  &, 0.246713e+00_jprb, 0.235582e+00_jprb, 0.224729e+00_jprb, 0.214181e+00_jprb &
20253  &, 0.203944e+00_jprb, 0.194001e+00_jprb, 0.184353e+00_jprb &
20254  &, 0.175020e+00_jprb, 0.166001e+00_jprb, 0.157293e+00_jprb, 0.148887e+00_jprb &
20255  &, 0.140777e+00_jprb, 0.132997e+00_jprb, 0.125513e+00_jprb &
20256  &, 0.118335e+00_jprb, 0.111445e+00_jprb, 0.104850e+00_jprb, 0.985541e-01_jprb &
20257  &, 0.925353e-01_jprb, 0.867945e-01_jprb, 0.813041e-01_jprb &
20258  &, 0.761166e-01_jprb, 0.711456e-01_jprb, 0.664701e-01_jprb, 0.620268e-01_jprb &
20259  &, 0.578066e-01_jprb, 0.538292e-01_jprb, 0.500526e-01_jprb &
20260  &, 0.464942e-01_jprb, 0.431716e-01_jprb, 0.400046e-01_jprb, 0.370735e-01_jprb &
20261  &, 0.342934e-01_jprb, 0.316767e-01_jprb, 0.292360e-01_jprb &
20262  &, 0.269841e-01_jprb, 0.248614e-01_jprb, 0.228776e-01_jprb, 0.210050e-01_jprb &
20263  &, 0.192901e-01_jprb, 0.177045e-01_jprb, 0.162172e-01_jprb &
20264  &, 0.148351e-01_jprb, 0.135653e-01_jprb, 0.123734e-01_jprb, 0.113068e-01_jprb &
20265  &, 0.102875e-01_jprb, 0.936238e-02_jprb, 0.853711e-02_jprb &
20266  &, 0.772770e-02_jprb, 0.702697e-02_jprb, 0.634832e-02_jprb, 0.574052e-02_jprb &
20267  &, 0.520752e-02_jprb, 0.470499e-02_jprb, 0.423485e-02_jprb &
20268  &, 0.379908e-02_jprb, 0.345028e-02_jprb, 0.309007e-02_jprb, 0.277037e-02_jprb &
20269  &, 0.249332e-02_jprb, 0.220746e-02_jprb, 0.202141e-02_jprb &
20270  &, 0.177430e-02_jprb, 0.157554e-02_jprb, 0.142740e-02_jprb, 0.127469e-02_jprb &
20271  &, 0.111735e-02_jprb, 0.101441e-02_jprb, 0.908361e-03_jprb &
20272  &, 0.799156e-03_jprb, 0.686763e-03_jprb, 0.633494e-03_jprb, 0.515447e-03_jprb &
20273  &, 0.458128e-03_jprb, 0.399171e-03_jprb, 0.338556e-03_jprb/)
20274 
20275 IF (lhook) CALL dr_hook('SU_MCICA:PART66',1,zhook_handle)
20276 END SUBROUTINE part66
20277 
20278 #ifdef VPP5000
20279 !OCL SCALAR
20280 #endif
20281 !option! -Nv -NO
20282 #ifdef RS6K
20283 @process nooptimize
20284 #endif
20285 !pgi$r opt=0
20286 SUBROUTINE part67
20287 
20288 REAL(KIND=JPRB) :: ZHOOK_HANDLE
20289 IF (lhook) CALL dr_hook('SU_MCICA:PART67',0,zhook_handle)
20290 
20291 xcw( 463, :) = (/ &
20292  & 0.987294e+00_jprb, 0.983101e+00_jprb, 0.978503e+00_jprb, 0.973509e+00_jprb &
20293  &, 0.968117e+00_jprb, 0.962333e+00_jprb, 0.956159e+00_jprb &
20294  &, 0.949599e+00_jprb, 0.942658e+00_jprb, 0.935338e+00_jprb, 0.927646e+00_jprb &
20295  &, 0.919585e+00_jprb, 0.911162e+00_jprb, 0.902381e+00_jprb &
20296  &, 0.893247e+00_jprb, 0.883768e+00_jprb, 0.873951e+00_jprb, 0.863802e+00_jprb &
20297  &, 0.853328e+00_jprb, 0.842537e+00_jprb, 0.831439e+00_jprb &
20298  &, 0.820040e+00_jprb, 0.808354e+00_jprb, 0.796387e+00_jprb, 0.784153e+00_jprb &
20299  &, 0.771656e+00_jprb, 0.758914e+00_jprb, 0.745936e+00_jprb &
20300  &, 0.732736e+00_jprb, 0.719324e+00_jprb, 0.705719e+00_jprb, 0.691929e+00_jprb &
20301  &, 0.677972e+00_jprb, 0.663858e+00_jprb, 0.649607e+00_jprb &
20302  &, 0.635233e+00_jprb, 0.620756e+00_jprb, 0.606176e+00_jprb, 0.591534e+00_jprb &
20303  &, 0.576826e+00_jprb, 0.562080e+00_jprb, 0.547307e+00_jprb &
20304  &, 0.532529e+00_jprb, 0.517761e+00_jprb, 0.503018e+00_jprb, 0.488318e+00_jprb &
20305  &, 0.473677e+00_jprb, 0.459104e+00_jprb, 0.444642e+00_jprb &
20306  &, 0.430274e+00_jprb, 0.416032e+00_jprb, 0.401925e+00_jprb, 0.387972e+00_jprb &
20307  &, 0.374193e+00_jprb, 0.360596e+00_jprb, 0.347183e+00_jprb &
20308  &, 0.333990e+00_jprb, 0.321004e+00_jprb, 0.308257e+00_jprb, 0.295750e+00_jprb &
20309  &, 0.283499e+00_jprb, 0.271501e+00_jprb, 0.259767e+00_jprb &
20310  &, 0.248328e+00_jprb, 0.237158e+00_jprb, 0.226284e+00_jprb, 0.215692e+00_jprb &
20311  &, 0.205408e+00_jprb, 0.195416e+00_jprb, 0.185757e+00_jprb &
20312  &, 0.176370e+00_jprb, 0.167315e+00_jprb, 0.158568e+00_jprb, 0.150121e+00_jprb &
20313  &, 0.141991e+00_jprb, 0.134166e+00_jprb, 0.126634e+00_jprb &
20314  &, 0.119405e+00_jprb, 0.112487e+00_jprb, 0.105862e+00_jprb, 0.995086e-01_jprb &
20315  &, 0.934558e-01_jprb, 0.876792e-01_jprb, 0.821512e-01_jprb &
20316  &, 0.769242e-01_jprb, 0.719401e-01_jprb, 0.671928e-01_jprb, 0.627335e-01_jprb &
20317  &, 0.584665e-01_jprb, 0.544401e-01_jprb, 0.506747e-01_jprb &
20318  &, 0.470641e-01_jprb, 0.437195e-01_jprb, 0.405296e-01_jprb, 0.375409e-01_jprb &
20319  &, 0.347351e-01_jprb, 0.321262e-01_jprb, 0.296581e-01_jprb &
20320  &, 0.273419e-01_jprb, 0.251889e-01_jprb, 0.232106e-01_jprb, 0.213436e-01_jprb &
20321  &, 0.195962e-01_jprb, 0.179767e-01_jprb, 0.164544e-01_jprb &
20322  &, 0.150762e-01_jprb, 0.138103e-01_jprb, 0.125808e-01_jprb, 0.114755e-01_jprb &
20323  &, 0.104588e-01_jprb, 0.953638e-02_jprb, 0.866966e-02_jprb &
20324  &, 0.786232e-02_jprb, 0.716367e-02_jprb, 0.648712e-02_jprb, 0.588143e-02_jprb &
20325  &, 0.530289e-02_jprb, 0.480179e-02_jprb, 0.433310e-02_jprb &
20326  &, 0.389879e-02_jprb, 0.350088e-02_jprb, 0.314140e-02_jprb, 0.282246e-02_jprb &
20327  &, 0.254615e-02_jprb, 0.226105e-02_jprb, 0.202141e-02_jprb &
20328  &, 0.182943e-02_jprb, 0.163145e-02_jprb, 0.142740e-02_jprb, 0.127469e-02_jprb &
20329  &, 0.117563e-02_jprb, 0.101441e-02_jprb, 0.908361e-03_jprb &
20330  &, 0.799156e-03_jprb, 0.686763e-03_jprb, 0.633494e-03_jprb, 0.578628e-03_jprb &
20331  &, 0.458128e-03_jprb, 0.399171e-03_jprb, 0.338556e-03_jprb/)
20332 xcw( 464, :) = (/ &
20333  & 0.987544e+00_jprb, 0.983412e+00_jprb, 0.978876e+00_jprb, 0.973943e+00_jprb &
20334  &, 0.968611e+00_jprb, 0.962887e+00_jprb, 0.956772e+00_jprb &
20335  &, 0.950270e+00_jprb, 0.943386e+00_jprb, 0.936125e+00_jprb, 0.928488e+00_jprb &
20336  &, 0.920482e+00_jprb, 0.912113e+00_jprb, 0.903386e+00_jprb &
20337  &, 0.894305e+00_jprb, 0.884878e+00_jprb, 0.875111e+00_jprb, 0.865011e+00_jprb &
20338  &, 0.854584e+00_jprb, 0.843841e+00_jprb, 0.832788e+00_jprb &
20339  &, 0.821436e+00_jprb, 0.809792e+00_jprb, 0.797866e+00_jprb, 0.785669e+00_jprb &
20340  &, 0.773213e+00_jprb, 0.760505e+00_jprb, 0.747562e+00_jprb &
20341  &, 0.734398e+00_jprb, 0.721019e+00_jprb, 0.707440e+00_jprb, 0.693680e+00_jprb &
20342  &, 0.679746e+00_jprb, 0.665659e+00_jprb, 0.651435e+00_jprb &
20343  &, 0.637074e+00_jprb, 0.622616e+00_jprb, 0.608063e+00_jprb, 0.593429e+00_jprb &
20344  &, 0.578738e+00_jprb, 0.563998e+00_jprb, 0.549241e+00_jprb &
20345  &, 0.534467e+00_jprb, 0.519702e+00_jprb, 0.504961e+00_jprb, 0.490261e+00_jprb &
20346  &, 0.475608e+00_jprb, 0.461044e+00_jprb, 0.446566e+00_jprb &
20347  &, 0.432192e+00_jprb, 0.417930e+00_jprb, 0.403827e+00_jprb, 0.389849e+00_jprb &
20348  &, 0.376057e+00_jprb, 0.362445e+00_jprb, 0.349016e+00_jprb &
20349  &, 0.335788e+00_jprb, 0.322796e+00_jprb, 0.310009e+00_jprb, 0.297476e+00_jprb &
20350  &, 0.285197e+00_jprb, 0.273167e+00_jprb, 0.261418e+00_jprb &
20351  &, 0.249925e+00_jprb, 0.238735e+00_jprb, 0.227819e+00_jprb, 0.217203e+00_jprb &
20352  &, 0.206873e+00_jprb, 0.196872e+00_jprb, 0.187140e+00_jprb &
20353  &, 0.177741e+00_jprb, 0.168650e+00_jprb, 0.159842e+00_jprb, 0.151378e+00_jprb &
20354  &, 0.143204e+00_jprb, 0.135334e+00_jprb, 0.127755e+00_jprb &
20355  &, 0.120500e+00_jprb, 0.113529e+00_jprb, 0.106874e+00_jprb, 0.100489e+00_jprb &
20356  &, 0.943763e-01_jprb, 0.885640e-01_jprb, 0.830256e-01_jprb &
20357  &, 0.777318e-01_jprb, 0.727062e-01_jprb, 0.679444e-01_jprb, 0.634403e-01_jprb &
20358  &, 0.591563e-01_jprb, 0.551121e-01_jprb, 0.512656e-01_jprb &
20359  &, 0.476658e-01_jprb, 0.442675e-01_jprb, 0.410545e-01_jprb, 0.380418e-01_jprb &
20360  &, 0.352108e-01_jprb, 0.325410e-01_jprb, 0.300801e-01_jprb &
20361  &, 0.277354e-01_jprb, 0.255891e-01_jprb, 0.235436e-01_jprb, 0.216446e-01_jprb &
20362  &, 0.199022e-01_jprb, 0.182490e-01_jprb, 0.167311e-01_jprb &
20363  &, 0.153172e-01_jprb, 0.140144e-01_jprb, 0.128297e-01_jprb, 0.116862e-01_jprb &
20364  &, 0.106729e-01_jprb, 0.971038e-02_jprb, 0.884639e-02_jprb &
20365  &, 0.804180e-02_jprb, 0.730036e-02_jprb, 0.662591e-02_jprb, 0.597537e-02_jprb &
20366  &, 0.539826e-02_jprb, 0.489860e-02_jprb, 0.443135e-02_jprb &
20367  &, 0.399850e-02_jprb, 0.360206e-02_jprb, 0.324407e-02_jprb, 0.292662e-02_jprb &
20368  &, 0.259899e-02_jprb, 0.231465e-02_jprb, 0.207577e-02_jprb &
20369  &, 0.188457e-02_jprb, 0.168736e-02_jprb, 0.148409e-02_jprb, 0.133217e-02_jprb &
20370  &, 0.117563e-02_jprb, 0.107350e-02_jprb, 0.908361e-03_jprb &
20371  &, 0.799156e-03_jprb, 0.748287e-03_jprb, 0.633494e-03_jprb, 0.578628e-03_jprb &
20372  &, 0.522147e-03_jprb, 0.464032e-03_jprb, 0.404267e-03_jprb/)
20373 xcw( 465, :) = (/ &
20374  & 0.987795e+00_jprb, 0.983723e+00_jprb, 0.979249e+00_jprb, 0.974376e+00_jprb &
20375  &, 0.969105e+00_jprb, 0.963440e+00_jprb, 0.957384e+00_jprb &
20376  &, 0.950941e+00_jprb, 0.944115e+00_jprb, 0.936910e+00_jprb, 0.929330e+00_jprb &
20377  &, 0.921380e+00_jprb, 0.913065e+00_jprb, 0.904391e+00_jprb &
20378  &, 0.895363e+00_jprb, 0.885987e+00_jprb, 0.876271e+00_jprb, 0.866220e+00_jprb &
20379  &, 0.855842e+00_jprb, 0.845145e+00_jprb, 0.834137e+00_jprb &
20380  &, 0.822829e+00_jprb, 0.811230e+00_jprb, 0.799344e+00_jprb, 0.787186e+00_jprb &
20381  &, 0.774770e+00_jprb, 0.762099e+00_jprb, 0.749192e+00_jprb &
20382  &, 0.736059e+00_jprb, 0.722714e+00_jprb, 0.709164e+00_jprb, 0.695432e+00_jprb &
20383  &, 0.681528e+00_jprb, 0.667464e+00_jprb, 0.653262e+00_jprb &
20384  &, 0.638925e+00_jprb, 0.624485e+00_jprb, 0.609941e+00_jprb, 0.595324e+00_jprb &
20385  &, 0.580650e+00_jprb, 0.565927e+00_jprb, 0.551174e+00_jprb &
20386  &, 0.536405e+00_jprb, 0.521643e+00_jprb, 0.506904e+00_jprb, 0.492205e+00_jprb &
20387  &, 0.477563e+00_jprb, 0.462985e+00_jprb, 0.448503e+00_jprb &
20388  &, 0.434111e+00_jprb, 0.419855e+00_jprb, 0.405729e+00_jprb, 0.391740e+00_jprb &
20389  &, 0.377936e+00_jprb, 0.364294e+00_jprb, 0.350848e+00_jprb &
20390  &, 0.337601e+00_jprb, 0.324588e+00_jprb, 0.311778e+00_jprb, 0.299219e+00_jprb &
20391  &, 0.286911e+00_jprb, 0.274851e+00_jprb, 0.263069e+00_jprb &
20392  &, 0.251559e+00_jprb, 0.240330e+00_jprb, 0.229374e+00_jprb, 0.218714e+00_jprb &
20393  &, 0.208357e+00_jprb, 0.198307e+00_jprb, 0.188565e+00_jprb &
20394  &, 0.179111e+00_jprb, 0.169985e+00_jprb, 0.161139e+00_jprb, 0.152634e+00_jprb &
20395  &, 0.144418e+00_jprb, 0.136502e+00_jprb, 0.128899e+00_jprb &
20396  &, 0.121594e+00_jprb, 0.114596e+00_jprb, 0.107886e+00_jprb, 0.101469e+00_jprb &
20397  &, 0.953232e-01_jprb, 0.894755e-01_jprb, 0.838727e-01_jprb &
20398  &, 0.785672e-01_jprb, 0.735007e-01_jprb, 0.686960e-01_jprb, 0.641470e-01_jprb &
20399  &, 0.598461e-01_jprb, 0.557535e-01_jprb, 0.518876e-01_jprb &
20400  &, 0.482357e-01_jprb, 0.448155e-01_jprb, 0.415795e-01_jprb, 0.385427e-01_jprb &
20401  &, 0.356865e-01_jprb, 0.329904e-01_jprb, 0.305021e-01_jprb &
20402  &, 0.281289e-01_jprb, 0.259530e-01_jprb, 0.238766e-01_jprb, 0.219832e-01_jprb &
20403  &, 0.202082e-01_jprb, 0.185601e-01_jprb, 0.170078e-01_jprb &
20404  &, 0.155583e-01_jprb, 0.142594e-01_jprb, 0.130372e-01_jprb, 0.118970e-01_jprb &
20405  &, 0.108442e-01_jprb, 0.988438e-02_jprb, 0.897893e-02_jprb &
20406  &, 0.817641e-02_jprb, 0.743706e-02_jprb, 0.671844e-02_jprb, 0.611629e-02_jprb &
20407  &, 0.554131e-02_jprb, 0.499540e-02_jprb, 0.452960e-02_jprb &
20408  &, 0.404836e-02_jprb, 0.365265e-02_jprb, 0.329541e-02_jprb, 0.297870e-02_jprb &
20409  &, 0.265183e-02_jprb, 0.236825e-02_jprb, 0.213013e-02_jprb &
20410  &, 0.188457e-02_jprb, 0.168736e-02_jprb, 0.154079e-02_jprb, 0.133217e-02_jprb &
20411  &, 0.123391e-02_jprb, 0.107350e-02_jprb, 0.968252e-03_jprb &
20412  &, 0.859861e-03_jprb, 0.748287e-03_jprb, 0.633494e-03_jprb, 0.578628e-03_jprb &
20413  &, 0.522147e-03_jprb, 0.464032e-03_jprb, 0.404267e-03_jprb/)
20414 xcw( 466, :) = (/ &
20415  & 0.988045e+00_jprb, 0.984036e+00_jprb, 0.979622e+00_jprb, 0.974810e+00_jprb &
20416  &, 0.969599e+00_jprb, 0.963994e+00_jprb, 0.957998e+00_jprb &
20417  &, 0.951612e+00_jprb, 0.944844e+00_jprb, 0.937696e+00_jprb, 0.930173e+00_jprb &
20418  &, 0.922279e+00_jprb, 0.914017e+00_jprb, 0.905397e+00_jprb &
20419  &, 0.896422e+00_jprb, 0.887098e+00_jprb, 0.877432e+00_jprb, 0.867430e+00_jprb &
20420  &, 0.857101e+00_jprb, 0.846452e+00_jprb, 0.835489e+00_jprb &
20421  &, 0.824224e+00_jprb, 0.812668e+00_jprb, 0.800826e+00_jprb, 0.788707e+00_jprb &
20422  &, 0.776326e+00_jprb, 0.763697e+00_jprb, 0.750825e+00_jprb &
20423  &, 0.737725e+00_jprb, 0.724409e+00_jprb, 0.710893e+00_jprb, 0.697191e+00_jprb &
20424  &, 0.683310e+00_jprb, 0.669273e+00_jprb, 0.655090e+00_jprb &
20425  &, 0.640776e+00_jprb, 0.626354e+00_jprb, 0.611837e+00_jprb, 0.597228e+00_jprb &
20426  &, 0.582562e+00_jprb, 0.567855e+00_jprb, 0.553108e+00_jprb &
20427  &, 0.538343e+00_jprb, 0.523596e+00_jprb, 0.508859e+00_jprb, 0.494148e+00_jprb &
20428  &, 0.479506e+00_jprb, 0.464926e+00_jprb, 0.450440e+00_jprb &
20429  &, 0.436042e+00_jprb, 0.421779e+00_jprb, 0.407631e+00_jprb, 0.393646e+00_jprb &
20430  &, 0.379815e+00_jprb, 0.366158e+00_jprb, 0.352695e+00_jprb &
20431  &, 0.339430e+00_jprb, 0.326380e+00_jprb, 0.313562e+00_jprb, 0.300978e+00_jprb &
20432  &, 0.288626e+00_jprb, 0.276552e+00_jprb, 0.264737e+00_jprb &
20433  &, 0.253192e+00_jprb, 0.241925e+00_jprb, 0.230947e+00_jprb, 0.220245e+00_jprb &
20434  &, 0.209862e+00_jprb, 0.199763e+00_jprb, 0.189970e+00_jprb &
20435  &, 0.180503e+00_jprb, 0.171320e+00_jprb, 0.162458e+00_jprb, 0.153891e+00_jprb &
20436  &, 0.145632e+00_jprb, 0.137694e+00_jprb, 0.130043e+00_jprb &
20437  &, 0.122688e+00_jprb, 0.115662e+00_jprb, 0.108898e+00_jprb, 0.102449e+00_jprb &
20438  &, 0.962700e-01_jprb, 0.903871e-01_jprb, 0.847471e-01_jprb &
20439  &, 0.794026e-01_jprb, 0.742952e-01_jprb, 0.694765e-01_jprb, 0.648832e-01_jprb &
20440  &, 0.605360e-01_jprb, 0.564255e-01_jprb, 0.525097e-01_jprb &
20441  &, 0.488374e-01_jprb, 0.453635e-01_jprb, 0.421044e-01_jprb, 0.390435e-01_jprb &
20442  &, 0.361622e-01_jprb, 0.334399e-01_jprb, 0.309242e-01_jprb &
20443  &, 0.285224e-01_jprb, 0.263168e-01_jprb, 0.242467e-01_jprb, 0.223219e-01_jprb &
20444  &, 0.205143e-01_jprb, 0.188323e-01_jprb, 0.172845e-01_jprb &
20445  &, 0.158395e-01_jprb, 0.145044e-01_jprb, 0.132446e-01_jprb, 0.121077e-01_jprb &
20446  &, 0.110155e-01_jprb, 0.100584e-01_jprb, 0.915566e-02_jprb &
20447  &, 0.831102e-02_jprb, 0.757375e-02_jprb, 0.685724e-02_jprb, 0.621023e-02_jprb &
20448  &, 0.563668e-02_jprb, 0.509220e-02_jprb, 0.457873e-02_jprb &
20449  &, 0.414807e-02_jprb, 0.375384e-02_jprb, 0.334674e-02_jprb, 0.303079e-02_jprb &
20450  &, 0.270466e-02_jprb, 0.242184e-02_jprb, 0.218450e-02_jprb &
20451  &, 0.193970e-02_jprb, 0.174328e-02_jprb, 0.154079e-02_jprb, 0.138966e-02_jprb &
20452  &, 0.123391e-02_jprb, 0.107350e-02_jprb, 0.968252e-03_jprb &
20453  &, 0.859861e-03_jprb, 0.748287e-03_jprb, 0.695844e-03_jprb, 0.578628e-03_jprb &
20454  &, 0.522147e-03_jprb, 0.464032e-03_jprb, 0.404267e-03_jprb/)
20455 xcw( 467, :) = (/ &
20456  & 0.988294e+00_jprb, 0.984347e+00_jprb, 0.979995e+00_jprb, 0.975243e+00_jprb &
20457  &, 0.970092e+00_jprb, 0.964548e+00_jprb, 0.958610e+00_jprb &
20458  &, 0.952284e+00_jprb, 0.945573e+00_jprb, 0.938483e+00_jprb, 0.931016e+00_jprb &
20459  &, 0.923176e+00_jprb, 0.914970e+00_jprb, 0.906405e+00_jprb &
20460  &, 0.897482e+00_jprb, 0.888210e+00_jprb, 0.878593e+00_jprb, 0.868642e+00_jprb &
20461  &, 0.858360e+00_jprb, 0.847759e+00_jprb, 0.836841e+00_jprb &
20462  &, 0.825624e+00_jprb, 0.814106e+00_jprb, 0.802308e+00_jprb, 0.790231e+00_jprb &
20463  &, 0.777890e+00_jprb, 0.765295e+00_jprb, 0.752458e+00_jprb &
20464  &, 0.739395e+00_jprb, 0.726112e+00_jprb, 0.712622e+00_jprb, 0.698946e+00_jprb &
20465  &, 0.685097e+00_jprb, 0.671083e+00_jprb, 0.656928e+00_jprb &
20466  &, 0.642637e+00_jprb, 0.628233e+00_jprb, 0.613725e+00_jprb, 0.599133e+00_jprb &
20467  &, 0.584484e+00_jprb, 0.569783e+00_jprb, 0.555042e+00_jprb &
20468  &, 0.540292e+00_jprb, 0.525537e+00_jprb, 0.510802e+00_jprb, 0.496104e+00_jprb &
20469  &, 0.481461e+00_jprb, 0.466879e+00_jprb, 0.452377e+00_jprb &
20470  &, 0.437987e+00_jprb, 0.423704e+00_jprb, 0.409547e+00_jprb, 0.395537e+00_jprb &
20471  &, 0.381693e+00_jprb, 0.368022e+00_jprb, 0.354542e+00_jprb &
20472  &, 0.341258e+00_jprb, 0.328187e+00_jprb, 0.315347e+00_jprb, 0.302721e+00_jprb &
20473  &, 0.290357e+00_jprb, 0.278254e+00_jprb, 0.266406e+00_jprb &
20474  &, 0.254825e+00_jprb, 0.243521e+00_jprb, 0.232502e+00_jprb, 0.221794e+00_jprb &
20475  &, 0.211366e+00_jprb, 0.201239e+00_jprb, 0.191394e+00_jprb &
20476  &, 0.181874e+00_jprb, 0.172676e+00_jprb, 0.163755e+00_jprb, 0.155147e+00_jprb &
20477  &, 0.146868e+00_jprb, 0.138886e+00_jprb, 0.131188e+00_jprb &
20478  &, 0.123807e+00_jprb, 0.116729e+00_jprb, 0.109935e+00_jprb, 0.103430e+00_jprb &
20479  &, 0.972168e-01_jprb, 0.912986e-01_jprb, 0.856216e-01_jprb &
20480  &, 0.802380e-01_jprb, 0.751180e-01_jprb, 0.702281e-01_jprb, 0.656194e-01_jprb &
20481  &, 0.612258e-01_jprb, 0.570669e-01_jprb, 0.531628e-01_jprb &
20482  &, 0.494390e-01_jprb, 0.459437e-01_jprb, 0.426622e-01_jprb, 0.395444e-01_jprb &
20483  &, 0.366379e-01_jprb, 0.338893e-01_jprb, 0.313462e-01_jprb &
20484  &, 0.289517e-01_jprb, 0.266807e-01_jprb, 0.246167e-01_jprb, 0.226605e-01_jprb &
20485  &, 0.208203e-01_jprb, 0.191045e-01_jprb, 0.175612e-01_jprb &
20486  &, 0.160806e-01_jprb, 0.147085e-01_jprb, 0.134521e-01_jprb, 0.123185e-01_jprb &
20487  &, 0.112296e-01_jprb, 0.102324e-01_jprb, 0.933239e-02_jprb &
20488  &, 0.849050e-02_jprb, 0.771045e-02_jprb, 0.699603e-02_jprb, 0.635114e-02_jprb &
20489  &, 0.573205e-02_jprb, 0.518901e-02_jprb, 0.467698e-02_jprb &
20490  &, 0.424779e-02_jprb, 0.380443e-02_jprb, 0.344941e-02_jprb, 0.308287e-02_jprb &
20491  &, 0.275750e-02_jprb, 0.247544e-02_jprb, 0.223886e-02_jprb &
20492  &, 0.199483e-02_jprb, 0.179919e-02_jprb, 0.159749e-02_jprb, 0.144714e-02_jprb &
20493  &, 0.129219e-02_jprb, 0.113258e-02_jprb, 0.102814e-02_jprb &
20494  &, 0.859861e-03_jprb, 0.809811e-03_jprb, 0.695844e-03_jprb, 0.641809e-03_jprb &
20495  &, 0.522147e-03_jprb, 0.464032e-03_jprb, 0.404267e-03_jprb/)
20496 xcw( 468, :) = (/ &
20497  & 0.988545e+00_jprb, 0.984658e+00_jprb, 0.980368e+00_jprb, 0.975677e+00_jprb &
20498  &, 0.970587e+00_jprb, 0.965101e+00_jprb, 0.959223e+00_jprb &
20499  &, 0.952956e+00_jprb, 0.946304e+00_jprb, 0.939270e+00_jprb, 0.931859e+00_jprb &
20500  &, 0.924075e+00_jprb, 0.915924e+00_jprb, 0.907411e+00_jprb &
20501  &, 0.898541e+00_jprb, 0.889322e+00_jprb, 0.879755e+00_jprb, 0.869854e+00_jprb &
20502  &, 0.859621e+00_jprb, 0.849066e+00_jprb, 0.838196e+00_jprb &
20503  &, 0.827019e+00_jprb, 0.815544e+00_jprb, 0.803790e+00_jprb, 0.791755e+00_jprb &
20504  &, 0.779451e+00_jprb, 0.766894e+00_jprb, 0.754095e+00_jprb &
20505  &, 0.741064e+00_jprb, 0.727814e+00_jprb, 0.714355e+00_jprb, 0.700710e+00_jprb &
20506  &, 0.686888e+00_jprb, 0.672897e+00_jprb, 0.658765e+00_jprb &
20507  &, 0.644487e+00_jprb, 0.630102e+00_jprb, 0.615622e+00_jprb, 0.601048e+00_jprb &
20508  &, 0.586406e+00_jprb, 0.571712e+00_jprb, 0.556987e+00_jprb &
20509  &, 0.542241e+00_jprb, 0.527501e+00_jprb, 0.512768e+00_jprb, 0.498071e+00_jprb &
20510  &, 0.483416e+00_jprb, 0.468832e+00_jprb, 0.454326e+00_jprb &
20511  &, 0.439919e+00_jprb, 0.425629e+00_jprb, 0.411463e+00_jprb, 0.397457e+00_jprb &
20512  &, 0.383587e+00_jprb, 0.369901e+00_jprb, 0.356390e+00_jprb &
20513  &, 0.343087e+00_jprb, 0.329995e+00_jprb, 0.317132e+00_jprb, 0.304497e+00_jprb &
20514  &, 0.292089e+00_jprb, 0.279955e+00_jprb, 0.268074e+00_jprb &
20515  &, 0.256458e+00_jprb, 0.245134e+00_jprb, 0.234094e+00_jprb, 0.223325e+00_jprb &
20516  &, 0.212870e+00_jprb, 0.202694e+00_jprb, 0.192840e+00_jprb &
20517  &, 0.183287e+00_jprb, 0.174033e+00_jprb, 0.165074e+00_jprb, 0.156449e+00_jprb &
20518  &, 0.148105e+00_jprb, 0.140078e+00_jprb, 0.132356e+00_jprb &
20519  &, 0.124926e+00_jprb, 0.117821e+00_jprb, 0.110972e+00_jprb, 0.104436e+00_jprb &
20520  &, 0.981899e-01_jprb, 0.922101e-01_jprb, 0.865233e-01_jprb &
20521  &, 0.811013e-01_jprb, 0.759125e-01_jprb, 0.710086e-01_jprb, 0.663556e-01_jprb &
20522  &, 0.619456e-01_jprb, 0.577389e-01_jprb, 0.537848e-01_jprb &
20523  &, 0.500406e-01_jprb, 0.465239e-01_jprb, 0.431871e-01_jprb, 0.400786e-01_jprb &
20524  &, 0.371136e-01_jprb, 0.343733e-01_jprb, 0.317682e-01_jprb &
20525  &, 0.293453e-01_jprb, 0.270809e-01_jprb, 0.249497e-01_jprb, 0.229991e-01_jprb &
20526  &, 0.211263e-01_jprb, 0.194156e-01_jprb, 0.178379e-01_jprb &
20527  &, 0.163217e-01_jprb, 0.149535e-01_jprb, 0.137010e-01_jprb, 0.125293e-01_jprb &
20528  &, 0.114009e-01_jprb, 0.104064e-01_jprb, 0.950912e-02_jprb &
20529  &, 0.862511e-02_jprb, 0.784714e-02_jprb, 0.713483e-02_jprb, 0.644509e-02_jprb &
20530  &, 0.587510e-02_jprb, 0.528581e-02_jprb, 0.477524e-02_jprb &
20531  &, 0.434750e-02_jprb, 0.390562e-02_jprb, 0.350075e-02_jprb, 0.318703e-02_jprb &
20532  &, 0.286317e-02_jprb, 0.252903e-02_jprb, 0.229322e-02_jprb &
20533  &, 0.204997e-02_jprb, 0.185510e-02_jprb, 0.165418e-02_jprb, 0.144714e-02_jprb &
20534  &, 0.129219e-02_jprb, 0.113258e-02_jprb, 0.102814e-02_jprb &
20535  &, 0.920565e-03_jprb, 0.809811e-03_jprb, 0.695844e-03_jprb, 0.641809e-03_jprb &
20536  &, 0.522147e-03_jprb, 0.464032e-03_jprb, 0.404267e-03_jprb/)
20537 xcw( 469, :) = (/ &
20538  & 0.988795e+00_jprb, 0.984972e+00_jprb, 0.980741e+00_jprb, 0.976111e+00_jprb &
20539  &, 0.971081e+00_jprb, 0.965655e+00_jprb, 0.959836e+00_jprb &
20540  &, 0.953628e+00_jprb, 0.947033e+00_jprb, 0.940057e+00_jprb, 0.932703e+00_jprb &
20541  &, 0.924973e+00_jprb, 0.916879e+00_jprb, 0.908419e+00_jprb &
20542  &, 0.899602e+00_jprb, 0.890433e+00_jprb, 0.880919e+00_jprb, 0.871068e+00_jprb &
20543  &, 0.860884e+00_jprb, 0.850373e+00_jprb, 0.839552e+00_jprb &
20544  &, 0.828422e+00_jprb, 0.816992e+00_jprb, 0.805275e+00_jprb, 0.793279e+00_jprb &
20545  &, 0.781015e+00_jprb, 0.768496e+00_jprb, 0.755732e+00_jprb &
20546  &, 0.742734e+00_jprb, 0.729517e+00_jprb, 0.716093e+00_jprb, 0.702474e+00_jprb &
20547  &, 0.688679e+00_jprb, 0.674715e+00_jprb, 0.660602e+00_jprb &
20548  &, 0.646357e+00_jprb, 0.631990e+00_jprb, 0.617519e+00_jprb, 0.602963e+00_jprb &
20549  &, 0.588338e+00_jprb, 0.573662e+00_jprb, 0.558942e+00_jprb &
20550  &, 0.544201e+00_jprb, 0.529464e+00_jprb, 0.514734e+00_jprb, 0.500039e+00_jprb &
20551  &, 0.485383e+00_jprb, 0.470798e+00_jprb, 0.456289e+00_jprb &
20552  &, 0.441876e+00_jprb, 0.427567e+00_jprb, 0.413393e+00_jprb, 0.399362e+00_jprb &
20553  &, 0.385494e+00_jprb, 0.371780e+00_jprb, 0.358268e+00_jprb &
20554  &, 0.344931e+00_jprb, 0.331819e+00_jprb, 0.318916e+00_jprb, 0.306256e+00_jprb &
20555  &, 0.293837e+00_jprb, 0.281673e+00_jprb, 0.269761e+00_jprb &
20556  &, 0.258128e+00_jprb, 0.246748e+00_jprb, 0.235668e+00_jprb, 0.224874e+00_jprb &
20557  &, 0.214374e+00_jprb, 0.204170e+00_jprb, 0.194285e+00_jprb &
20558  &, 0.184679e+00_jprb, 0.175389e+00_jprb, 0.166371e+00_jprb, 0.157728e+00_jprb &
20559  &, 0.149364e+00_jprb, 0.141293e+00_jprb, 0.133524e+00_jprb &
20560  &, 0.126069e+00_jprb, 0.118887e+00_jprb, 0.112035e+00_jprb, 0.105442e+00_jprb &
20561  &, 0.991630e-01_jprb, 0.931485e-01_jprb, 0.874250e-01_jprb &
20562  &, 0.819367e-01_jprb, 0.767354e-01_jprb, 0.717892e-01_jprb, 0.670918e-01_jprb &
20563  &, 0.626355e-01_jprb, 0.584109e-01_jprb, 0.544380e-01_jprb &
20564  &, 0.506739e-01_jprb, 0.471041e-01_jprb, 0.437449e-01_jprb, 0.405795e-01_jprb &
20565  &, 0.376232e-01_jprb, 0.348227e-01_jprb, 0.322255e-01_jprb &
20566  &, 0.297746e-01_jprb, 0.274812e-01_jprb, 0.253197e-01_jprb, 0.233378e-01_jprb &
20567  &, 0.214706e-01_jprb, 0.197267e-01_jprb, 0.181146e-01_jprb &
20568  &, 0.166029e-01_jprb, 0.151985e-01_jprb, 0.139084e-01_jprb, 0.127400e-01_jprb &
20569  &, 0.116150e-01_jprb, 0.105804e-01_jprb, 0.964166e-02_jprb &
20570  &, 0.880459e-02_jprb, 0.798383e-02_jprb, 0.727362e-02_jprb, 0.658600e-02_jprb &
20571  &, 0.597046e-02_jprb, 0.538262e-02_jprb, 0.487349e-02_jprb &
20572  &, 0.439735e-02_jprb, 0.400680e-02_jprb, 0.360341e-02_jprb, 0.323912e-02_jprb &
20573  &, 0.291601e-02_jprb, 0.258263e-02_jprb, 0.234758e-02_jprb &
20574  &, 0.210510e-02_jprb, 0.185510e-02_jprb, 0.165418e-02_jprb, 0.150463e-02_jprb &
20575  &, 0.135047e-02_jprb, 0.119166e-02_jprb, 0.102814e-02_jprb &
20576  &, 0.920565e-03_jprb, 0.809811e-03_jprb, 0.758193e-03_jprb, 0.641809e-03_jprb &
20577  &, 0.586165e-03_jprb, 0.528894e-03_jprb, 0.469978e-03_jprb/)
20578 
20579 IF (lhook) CALL dr_hook('SU_MCICA:PART67',1,zhook_handle)
20580 END SUBROUTINE part67
20581 
20582 #ifdef VPP5000
20583 !OCL SCALAR
20584 #endif
20585 !option! -Nv -NO
20586 #ifdef RS6K
20587 @process nooptimize
20588 #endif
20589 !pgi$r opt=0
20590 SUBROUTINE part68
20591 
20592 REAL(KIND=JPRB) :: ZHOOK_HANDLE
20593 IF (lhook) CALL dr_hook('SU_MCICA:PART68',0,zhook_handle)
20594 
20595 xcw( 470, :) = (/ &
20596  & 0.989045e+00_jprb, 0.985282e+00_jprb, 0.981114e+00_jprb, 0.976545e+00_jprb &
20597  &, 0.971575e+00_jprb, 0.966210e+00_jprb, 0.960449e+00_jprb &
20598  &, 0.954299e+00_jprb, 0.947763e+00_jprb, 0.940844e+00_jprb, 0.933546e+00_jprb &
20599  &, 0.925874e+00_jprb, 0.917833e+00_jprb, 0.909428e+00_jprb &
20600  &, 0.900663e+00_jprb, 0.891547e+00_jprb, 0.882083e+00_jprb, 0.872281e+00_jprb &
20601  &, 0.862146e+00_jprb, 0.851683e+00_jprb, 0.840907e+00_jprb &
20602  &, 0.829821e+00_jprb, 0.818437e+00_jprb, 0.806760e+00_jprb, 0.794806e+00_jprb &
20603  &, 0.782583e+00_jprb, 0.770101e+00_jprb, 0.757373e+00_jprb &
20604  &, 0.744411e+00_jprb, 0.731224e+00_jprb, 0.717830e+00_jprb, 0.704242e+00_jprb &
20605  &, 0.690474e+00_jprb, 0.676533e+00_jprb, 0.662448e+00_jprb &
20606  &, 0.648217e+00_jprb, 0.633869e+00_jprb, 0.619425e+00_jprb, 0.604878e+00_jprb &
20607  &, 0.590271e+00_jprb, 0.575601e+00_jprb, 0.560876e+00_jprb &
20608  &, 0.546162e+00_jprb, 0.531428e+00_jprb, 0.516701e+00_jprb, 0.502006e+00_jprb &
20609  &, 0.487350e+00_jprb, 0.472763e+00_jprb, 0.458251e+00_jprb &
20610  &, 0.443821e+00_jprb, 0.429518e+00_jprb, 0.415336e+00_jprb, 0.401282e+00_jprb &
20611  &, 0.387387e+00_jprb, 0.373673e+00_jprb, 0.360130e+00_jprb &
20612  &, 0.346791e+00_jprb, 0.333642e+00_jprb, 0.320733e+00_jprb, 0.308032e+00_jprb &
20613  &, 0.295586e+00_jprb, 0.283392e+00_jprb, 0.271447e+00_jprb &
20614  &, 0.259779e+00_jprb, 0.248381e+00_jprb, 0.237260e+00_jprb, 0.226443e+00_jprb &
20615  &, 0.215898e+00_jprb, 0.205666e+00_jprb, 0.195731e+00_jprb &
20616  &, 0.186092e+00_jprb, 0.176768e+00_jprb, 0.167734e+00_jprb, 0.159029e+00_jprb &
20617  &, 0.150601e+00_jprb, 0.142508e+00_jprb, 0.134693e+00_jprb &
20618  &, 0.127188e+00_jprb, 0.120004e+00_jprb, 0.113097e+00_jprb, 0.106474e+00_jprb &
20619  &, 0.100136e+00_jprb, 0.940869e-01_jprb, 0.882995e-01_jprb &
20620  &, 0.828000e-01_jprb, 0.775583e-01_jprb, 0.725986e-01_jprb, 0.678574e-01_jprb &
20621  &, 0.633553e-01_jprb, 0.591134e-01_jprb, 0.550911e-01_jprb &
20622  &, 0.512756e-01_jprb, 0.476844e-01_jprb, 0.443026e-01_jprb, 0.411137e-01_jprb &
20623  &, 0.381329e-01_jprb, 0.353067e-01_jprb, 0.326475e-01_jprb &
20624  &, 0.301681e-01_jprb, 0.278450e-01_jprb, 0.256898e-01_jprb, 0.236764e-01_jprb &
20625  &, 0.217767e-01_jprb, 0.200379e-01_jprb, 0.183914e-01_jprb &
20626  &, 0.168841e-01_jprb, 0.154434e-01_jprb, 0.141573e-01_jprb, 0.129508e-01_jprb &
20627  &, 0.118291e-01_jprb, 0.107979e-01_jprb, 0.981839e-02_jprb &
20628  &, 0.893920e-02_jprb, 0.812053e-02_jprb, 0.741242e-02_jprb, 0.672692e-02_jprb &
20629  &, 0.606583e-02_jprb, 0.552782e-02_jprb, 0.497174e-02_jprb &
20630  &, 0.449707e-02_jprb, 0.405739e-02_jprb, 0.365475e-02_jprb, 0.329120e-02_jprb &
20631  &, 0.296885e-02_jprb, 0.268982e-02_jprb, 0.240195e-02_jprb &
20632  &, 0.216024e-02_jprb, 0.191101e-02_jprb, 0.171088e-02_jprb, 0.150463e-02_jprb &
20633  &, 0.135047e-02_jprb, 0.119166e-02_jprb, 0.108803e-02_jprb &
20634  &, 0.981270e-03_jprb, 0.871335e-03_jprb, 0.758193e-03_jprb, 0.641809e-03_jprb &
20635  &, 0.586165e-03_jprb, 0.528894e-03_jprb, 0.469978e-03_jprb/)
20636 xcw( 471, :) = (/ &
20637  & 0.989294e+00_jprb, 0.985593e+00_jprb, 0.981486e+00_jprb, 0.976979e+00_jprb &
20638  &, 0.972070e+00_jprb, 0.966764e+00_jprb, 0.961063e+00_jprb &
20639  &, 0.954972e+00_jprb, 0.948494e+00_jprb, 0.941631e+00_jprb, 0.934390e+00_jprb &
20640  &, 0.926774e+00_jprb, 0.918787e+00_jprb, 0.910392e+00_jprb &
20641  &, 0.901725e+00_jprb, 0.892660e+00_jprb, 0.883248e+00_jprb, 0.873496e+00_jprb &
20642  &, 0.863408e+00_jprb, 0.852997e+00_jprb, 0.842266e+00_jprb &
20643  &, 0.831223e+00_jprb, 0.819881e+00_jprb, 0.808249e+00_jprb, 0.796337e+00_jprb &
20644  &, 0.784150e+00_jprb, 0.771707e+00_jprb, 0.759014e+00_jprb &
20645  &, 0.746085e+00_jprb, 0.732935e+00_jprb, 0.719571e+00_jprb, 0.706010e+00_jprb &
20646  &, 0.692269e+00_jprb, 0.678356e+00_jprb, 0.664294e+00_jprb &
20647  &, 0.650087e+00_jprb, 0.635757e+00_jprb, 0.621332e+00_jprb, 0.606803e+00_jprb &
20648  &, 0.592203e+00_jprb, 0.577550e+00_jprb, 0.562853e+00_jprb &
20649  &, 0.548122e+00_jprb, 0.533392e+00_jprb, 0.518679e+00_jprb, 0.503962e+00_jprb &
20650  &, 0.489330e+00_jprb, 0.474729e+00_jprb, 0.460214e+00_jprb &
20651  &, 0.445792e+00_jprb, 0.431470e+00_jprb, 0.417266e+00_jprb, 0.403215e+00_jprb &
20652  &, 0.389309e+00_jprb, 0.375567e+00_jprb, 0.362008e+00_jprb &
20653  &, 0.348635e+00_jprb, 0.335482e+00_jprb, 0.322534e+00_jprb, 0.309824e+00_jprb &
20654  &, 0.297351e+00_jprb, 0.285128e+00_jprb, 0.273151e+00_jprb &
20655  &, 0.261448e+00_jprb, 0.250013e+00_jprb, 0.238871e+00_jprb, 0.228013e+00_jprb &
20656  &, 0.217442e+00_jprb, 0.207162e+00_jprb, 0.197197e+00_jprb &
20657  &, 0.187526e+00_jprb, 0.178146e+00_jprb, 0.169075e+00_jprb, 0.160331e+00_jprb &
20658  &, 0.151883e+00_jprb, 0.143723e+00_jprb, 0.135885e+00_jprb &
20659  &, 0.128331e+00_jprb, 0.121095e+00_jprb, 0.114160e+00_jprb, 0.107506e+00_jprb &
20660  &, 0.101136e+00_jprb, 0.950252e-01_jprb, 0.892286e-01_jprb &
20661  &, 0.836911e-01_jprb, 0.784095e-01_jprb, 0.733791e-01_jprb, 0.686231e-01_jprb &
20662  &, 0.640752e-01_jprb, 0.598159e-01_jprb, 0.557442e-01_jprb &
20663  &, 0.519089e-01_jprb, 0.482968e-01_jprb, 0.448604e-01_jprb, 0.416480e-01_jprb &
20664  &, 0.386086e-01_jprb, 0.357907e-01_jprb, 0.331047e-01_jprb &
20665  &, 0.305974e-01_jprb, 0.282453e-01_jprb, 0.260598e-01_jprb, 0.240150e-01_jprb &
20666  &, 0.221210e-01_jprb, 0.203490e-01_jprb, 0.186681e-01_jprb &
20667  &, 0.171252e-01_jprb, 0.157292e-01_jprb, 0.143648e-01_jprb, 0.131615e-01_jprb &
20668  &, 0.120432e-01_jprb, 0.109719e-01_jprb, 0.999512e-02_jprb &
20669  &, 0.911869e-02_jprb, 0.830279e-02_jprb, 0.755121e-02_jprb, 0.682086e-02_jprb &
20670  &, 0.620888e-02_jprb, 0.562463e-02_jprb, 0.506999e-02_jprb &
20671  &, 0.459678e-02_jprb, 0.415858e-02_jprb, 0.375742e-02_jprb, 0.339536e-02_jprb &
20672  &, 0.302168e-02_jprb, 0.274342e-02_jprb, 0.245631e-02_jprb &
20673  &, 0.221537e-02_jprb, 0.196692e-02_jprb, 0.176757e-02_jprb, 0.156211e-02_jprb &
20674  &, 0.140875e-02_jprb, 0.125075e-02_jprb, 0.108803e-02_jprb &
20675  &, 0.981270e-03_jprb, 0.871335e-03_jprb, 0.758193e-03_jprb, 0.704990e-03_jprb &
20676  &, 0.586165e-03_jprb, 0.528894e-03_jprb, 0.469978e-03_jprb/)
20677 xcw( 472, :) = (/ &
20678  & 0.989542e+00_jprb, 0.985906e+00_jprb, 0.981859e+00_jprb, 0.977413e+00_jprb &
20679  &, 0.972565e+00_jprb, 0.967318e+00_jprb, 0.961677e+00_jprb &
20680  &, 0.955645e+00_jprb, 0.949224e+00_jprb, 0.942420e+00_jprb, 0.935235e+00_jprb &
20681  &, 0.927674e+00_jprb, 0.919742e+00_jprb, 0.911446e+00_jprb &
20682  &, 0.902787e+00_jprb, 0.893775e+00_jprb, 0.884415e+00_jprb, 0.874711e+00_jprb &
20683  &, 0.864674e+00_jprb, 0.854307e+00_jprb, 0.843624e+00_jprb &
20684  &, 0.832626e+00_jprb, 0.821330e+00_jprb, 0.809738e+00_jprb, 0.797865e+00_jprb &
20685  &, 0.785722e+00_jprb, 0.773316e+00_jprb, 0.760659e+00_jprb &
20686  &, 0.747766e+00_jprb, 0.734646e+00_jprb, 0.721316e+00_jprb, 0.707782e+00_jprb &
20687  &, 0.694068e+00_jprb, 0.680183e+00_jprb, 0.666144e+00_jprb &
20688  &, 0.651956e+00_jprb, 0.637655e+00_jprb, 0.623239e+00_jprb, 0.608728e+00_jprb &
20689  &, 0.594146e+00_jprb, 0.579500e+00_jprb, 0.564808e+00_jprb &
20690  &, 0.550093e+00_jprb, 0.535367e+00_jprb, 0.520656e+00_jprb, 0.505965e+00_jprb &
20691  &, 0.491309e+00_jprb, 0.476707e+00_jprb, 0.462189e+00_jprb &
20692  &, 0.447750e+00_jprb, 0.433421e+00_jprb, 0.419223e+00_jprb, 0.405149e+00_jprb &
20693  &, 0.391231e+00_jprb, 0.377475e+00_jprb, 0.363885e+00_jprb &
20694  &, 0.350510e+00_jprb, 0.337321e+00_jprb, 0.324351e+00_jprb, 0.311617e+00_jprb &
20695  &, 0.299116e+00_jprb, 0.286864e+00_jprb, 0.274855e+00_jprb &
20696  &, 0.263118e+00_jprb, 0.251664e+00_jprb, 0.240483e+00_jprb, 0.229582e+00_jprb &
20697  &, 0.218986e+00_jprb, 0.208659e+00_jprb, 0.198663e+00_jprb &
20698  &, 0.188938e+00_jprb, 0.179545e+00_jprb, 0.170438e+00_jprb, 0.161632e+00_jprb &
20699  &, 0.153143e+00_jprb, 0.144962e+00_jprb, 0.137077e+00_jprb &
20700  &, 0.129499e+00_jprb, 0.122211e+00_jprb, 0.115222e+00_jprb, 0.108537e+00_jprb &
20701  &, 0.102109e+00_jprb, 0.959904e-01_jprb, 0.901303e-01_jprb &
20702  &, 0.845543e-01_jprb, 0.792324e-01_jprb, 0.741886e-01_jprb, 0.693887e-01_jprb &
20703  &, 0.648250e-01_jprb, 0.604879e-01_jprb, 0.563974e-01_jprb &
20704  &, 0.525422e-01_jprb, 0.488770e-01_jprb, 0.454182e-01_jprb, 0.421822e-01_jprb &
20705  &, 0.391182e-01_jprb, 0.362401e-01_jprb, 0.335619e-01_jprb &
20706  &, 0.310267e-01_jprb, 0.286455e-01_jprb, 0.264298e-01_jprb, 0.243913e-01_jprb &
20707  &, 0.224270e-01_jprb, 0.206601e-01_jprb, 0.189843e-01_jprb &
20708  &, 0.174064e-01_jprb, 0.159742e-01_jprb, 0.146137e-01_jprb, 0.133723e-01_jprb &
20709  &, 0.122145e-01_jprb, 0.111459e-01_jprb, 0.101718e-01_jprb &
20710  &, 0.929817e-02_jprb, 0.843948e-02_jprb, 0.769001e-02_jprb, 0.696177e-02_jprb &
20711  &, 0.630425e-02_jprb, 0.572143e-02_jprb, 0.516824e-02_jprb &
20712  &, 0.469649e-02_jprb, 0.425976e-02_jprb, 0.380875e-02_jprb, 0.344745e-02_jprb &
20713  &, 0.307452e-02_jprb, 0.279702e-02_jprb, 0.251067e-02_jprb &
20714  &, 0.227051e-02_jprb, 0.202284e-02_jprb, 0.182427e-02_jprb, 0.161960e-02_jprb &
20715  &, 0.140875e-02_jprb, 0.125075e-02_jprb, 0.114792e-02_jprb &
20716  &, 0.981270e-03_jprb, 0.871335e-03_jprb, 0.820543e-03_jprb, 0.704990e-03_jprb &
20717  &, 0.650184e-03_jprb, 0.528894e-03_jprb, 0.469978e-03_jprb/)
20718 xcw( 473, :) = (/ &
20719  & 0.989792e+00_jprb, 0.986216e+00_jprb, 0.982233e+00_jprb, 0.977847e+00_jprb &
20720  &, 0.973059e+00_jprb, 0.967872e+00_jprb, 0.962291e+00_jprb &
20721  &, 0.956317e+00_jprb, 0.949955e+00_jprb, 0.943208e+00_jprb, 0.936080e+00_jprb &
20722  &, 0.928575e+00_jprb, 0.920698e+00_jprb, 0.912455e+00_jprb &
20723  &, 0.903851e+00_jprb, 0.894891e+00_jprb, 0.885580e+00_jprb, 0.875928e+00_jprb &
20724  &, 0.865939e+00_jprb, 0.855620e+00_jprb, 0.844983e+00_jprb &
20725  &, 0.834032e+00_jprb, 0.822778e+00_jprb, 0.811230e+00_jprb, 0.799400e+00_jprb &
20726  &, 0.787293e+00_jprb, 0.774925e+00_jprb, 0.762304e+00_jprb &
20727  &, 0.749447e+00_jprb, 0.736361e+00_jprb, 0.723062e+00_jprb, 0.709559e+00_jprb &
20728  &, 0.695872e+00_jprb, 0.682015e+00_jprb, 0.667995e+00_jprb &
20729  &, 0.653835e+00_jprb, 0.639553e+00_jprb, 0.625155e+00_jprb, 0.610663e+00_jprb &
20730  &, 0.596089e+00_jprb, 0.581460e+00_jprb, 0.566774e+00_jprb &
20731  &, 0.552076e+00_jprb, 0.537354e+00_jprb, 0.522634e+00_jprb, 0.507944e+00_jprb &
20732  &, 0.493289e+00_jprb, 0.478698e+00_jprb, 0.464165e+00_jprb &
20733  &, 0.449721e+00_jprb, 0.435386e+00_jprb, 0.421167e+00_jprb, 0.407083e+00_jprb &
20734  &, 0.393153e+00_jprb, 0.379384e+00_jprb, 0.365778e+00_jprb &
20735  &, 0.352370e+00_jprb, 0.339177e+00_jprb, 0.326185e+00_jprb, 0.313409e+00_jprb &
20736  &, 0.300882e+00_jprb, 0.288600e+00_jprb, 0.276577e+00_jprb &
20737  &, 0.264806e+00_jprb, 0.253315e+00_jprb, 0.242094e+00_jprb, 0.231170e+00_jprb &
20738  &, 0.220529e+00_jprb, 0.210175e+00_jprb, 0.200129e+00_jprb &
20739  &, 0.190372e+00_jprb, 0.180945e+00_jprb, 0.171801e+00_jprb, 0.162956e+00_jprb &
20740  &, 0.154425e+00_jprb, 0.146200e+00_jprb, 0.138269e+00_jprb &
20741  &, 0.130666e+00_jprb, 0.123328e+00_jprb, 0.116310e+00_jprb, 0.109569e+00_jprb &
20742  &, 0.103108e+00_jprb, 0.969555e-01_jprb, 0.910594e-01_jprb &
20743  &, 0.854455e-01_jprb, 0.800836e-01_jprb, 0.749980e-01_jprb, 0.701543e-01_jprb &
20744  &, 0.655748e-01_jprb, 0.611904e-01_jprb, 0.570816e-01_jprb &
20745  &, 0.531755e-01_jprb, 0.494895e-01_jprb, 0.460087e-01_jprb, 0.427165e-01_jprb &
20746  &, 0.396279e-01_jprb, 0.367586e-01_jprb, 0.340191e-01_jprb &
20747  &, 0.314560e-01_jprb, 0.290821e-01_jprb, 0.268369e-01_jprb, 0.247299e-01_jprb &
20748  &, 0.227713e-01_jprb, 0.209712e-01_jprb, 0.192610e-01_jprb &
20749  &, 0.176877e-01_jprb, 0.162192e-01_jprb, 0.148626e-01_jprb, 0.136252e-01_jprb &
20750  &, 0.124287e-01_jprb, 0.113634e-01_jprb, 0.103486e-01_jprb &
20751  &, 0.943278e-02_jprb, 0.857618e-02_jprb, 0.782880e-02_jprb, 0.710269e-02_jprb &
20752  &, 0.644730e-02_jprb, 0.586664e-02_jprb, 0.526650e-02_jprb &
20753  &, 0.479620e-02_jprb, 0.431036e-02_jprb, 0.391142e-02_jprb, 0.349953e-02_jprb &
20754  &, 0.318019e-02_jprb, 0.285061e-02_jprb, 0.256503e-02_jprb &
20755  &, 0.227051e-02_jprb, 0.207875e-02_jprb, 0.182427e-02_jprb, 0.161960e-02_jprb &
20756  &, 0.146704e-02_jprb, 0.130983e-02_jprb, 0.114792e-02_jprb &
20757  &, 0.104197e-02_jprb, 0.932859e-03_jprb, 0.820543e-03_jprb, 0.704990e-03_jprb &
20758  &, 0.650184e-03_jprb, 0.528894e-03_jprb, 0.469978e-03_jprb/)
20759 xcw( 474, :) = (/ &
20760  & 0.990043e+00_jprb, 0.986529e+00_jprb, 0.982606e+00_jprb, 0.978281e+00_jprb &
20761  &, 0.973553e+00_jprb, 0.968427e+00_jprb, 0.962905e+00_jprb &
20762  &, 0.956989e+00_jprb, 0.950686e+00_jprb, 0.943996e+00_jprb, 0.936925e+00_jprb &
20763  &, 0.929476e+00_jprb, 0.921655e+00_jprb, 0.913466e+00_jprb &
20764  &, 0.904914e+00_jprb, 0.896007e+00_jprb, 0.886748e+00_jprb, 0.877146e+00_jprb &
20765  &, 0.867206e+00_jprb, 0.856937e+00_jprb, 0.846345e+00_jprb &
20766  &, 0.835437e+00_jprb, 0.824229e+00_jprb, 0.812723e+00_jprb, 0.800934e+00_jprb &
20767  &, 0.788868e+00_jprb, 0.776538e+00_jprb, 0.763953e+00_jprb &
20768  &, 0.751129e+00_jprb, 0.738076e+00_jprb, 0.724807e+00_jprb, 0.711339e+00_jprb &
20769  &, 0.697680e+00_jprb, 0.683846e+00_jprb, 0.669855e+00_jprb &
20770  &, 0.655714e+00_jprb, 0.641451e+00_jprb, 0.627072e+00_jprb, 0.612598e+00_jprb &
20771  &, 0.598041e+00_jprb, 0.583420e+00_jprb, 0.568751e+00_jprb &
20772  &, 0.554047e+00_jprb, 0.539340e+00_jprb, 0.524624e+00_jprb, 0.509936e+00_jprb &
20773  &, 0.495280e+00_jprb, 0.480688e+00_jprb, 0.466153e+00_jprb &
20774  &, 0.451705e+00_jprb, 0.437365e+00_jprb, 0.423124e+00_jprb, 0.409030e+00_jprb &
20775  &, 0.395090e+00_jprb, 0.381292e+00_jprb, 0.367686e+00_jprb &
20776  &, 0.354245e+00_jprb, 0.341032e+00_jprb, 0.328018e+00_jprb, 0.315218e+00_jprb &
20777  &, 0.302664e+00_jprb, 0.290353e+00_jprb, 0.278298e+00_jprb &
20778  &, 0.266493e+00_jprb, 0.254984e+00_jprb, 0.243724e+00_jprb, 0.232759e+00_jprb &
20779  &, 0.222093e+00_jprb, 0.211691e+00_jprb, 0.201616e+00_jprb &
20780  &, 0.191827e+00_jprb, 0.182344e+00_jprb, 0.173164e+00_jprb, 0.164280e+00_jprb &
20781  &, 0.155708e+00_jprb, 0.147439e+00_jprb, 0.139485e+00_jprb &
20782  &, 0.131833e+00_jprb, 0.124469e+00_jprb, 0.117398e+00_jprb, 0.110627e+00_jprb &
20783  &, 0.104134e+00_jprb, 0.979207e-01_jprb, 0.919885e-01_jprb &
20784  &, 0.863366e-01_jprb, 0.809349e-01_jprb, 0.758074e-01_jprb, 0.709494e-01_jprb &
20785  &, 0.662946e-01_jprb, 0.619235e-01_jprb, 0.577658e-01_jprb &
20786  &, 0.538088e-01_jprb, 0.501019e-01_jprb, 0.465993e-01_jprb, 0.432841e-01_jprb &
20787  &, 0.401715e-01_jprb, 0.372426e-01_jprb, 0.344763e-01_jprb &
20788  &, 0.318853e-01_jprb, 0.294824e-01_jprb, 0.272069e-01_jprb, 0.251062e-01_jprb &
20789  &, 0.231156e-01_jprb, 0.212823e-01_jprb, 0.195772e-01_jprb &
20790  &, 0.179689e-01_jprb, 0.165050e-01_jprb, 0.151116e-01_jprb, 0.138360e-01_jprb &
20791  &, 0.126428e-01_jprb, 0.115374e-01_jprb, 0.105695e-01_jprb &
20792  &, 0.961226e-02_jprb, 0.875844e-02_jprb, 0.796760e-02_jprb, 0.724360e-02_jprb &
20793  &, 0.659035e-02_jprb, 0.596344e-02_jprb, 0.541388e-02_jprb &
20794  &, 0.489592e-02_jprb, 0.441154e-02_jprb, 0.396276e-02_jprb, 0.360369e-02_jprb &
20795  &, 0.323303e-02_jprb, 0.290421e-02_jprb, 0.261940e-02_jprb &
20796  &, 0.232564e-02_jprb, 0.207875e-02_jprb, 0.188097e-02_jprb, 0.167709e-02_jprb &
20797  &, 0.152532e-02_jprb, 0.136891e-02_jprb, 0.120781e-02_jprb &
20798  &, 0.104197e-02_jprb, 0.932859e-03_jprb, 0.820543e-03_jprb, 0.768171e-03_jprb &
20799  &, 0.650184e-03_jprb, 0.593756e-03_jprb, 0.535689e-03_jprb/)
20800 xcw( 475, :) = (/ &
20801  & 0.990295e+00_jprb, 0.986839e+00_jprb, 0.982979e+00_jprb, 0.978714e+00_jprb &
20802  &, 0.974047e+00_jprb, 0.968982e+00_jprb, 0.963519e+00_jprb &
20803  &, 0.957663e+00_jprb, 0.951417e+00_jprb, 0.944785e+00_jprb, 0.937770e+00_jprb &
20804  &, 0.930377e+00_jprb, 0.922612e+00_jprb, 0.914477e+00_jprb &
20805  &, 0.905980e+00_jprb, 0.897124e+00_jprb, 0.887917e+00_jprb, 0.878364e+00_jprb &
20806  &, 0.868473e+00_jprb, 0.858250e+00_jprb, 0.847707e+00_jprb &
20807  &, 0.836847e+00_jprb, 0.825681e+00_jprb, 0.814218e+00_jprb, 0.802469e+00_jprb &
20808  &, 0.790443e+00_jprb, 0.778151e+00_jprb, 0.765605e+00_jprb &
20809  &, 0.752814e+00_jprb, 0.739795e+00_jprb, 0.726561e+00_jprb, 0.713120e+00_jprb &
20810  &, 0.699489e+00_jprb, 0.685682e+00_jprb, 0.671714e+00_jprb &
20811  &, 0.657593e+00_jprb, 0.643349e+00_jprb, 0.628988e+00_jprb, 0.614532e+00_jprb &
20812  &, 0.599994e+00_jprb, 0.585380e+00_jprb, 0.570729e+00_jprb &
20813  &, 0.556040e+00_jprb, 0.541327e+00_jprb, 0.526625e+00_jprb, 0.511939e+00_jprb &
20814  &, 0.497284e+00_jprb, 0.482679e+00_jprb, 0.468141e+00_jprb &
20815  &, 0.453689e+00_jprb, 0.439329e+00_jprb, 0.425095e+00_jprb, 0.410992e+00_jprb &
20816  &, 0.397026e+00_jprb, 0.383215e+00_jprb, 0.369579e+00_jprb &
20817  &, 0.356136e+00_jprb, 0.342887e+00_jprb, 0.329852e+00_jprb, 0.317044e+00_jprb &
20818  &, 0.304447e+00_jprb, 0.292107e+00_jprb, 0.280020e+00_jprb &
20819  &, 0.268199e+00_jprb, 0.256635e+00_jprb, 0.245355e+00_jprb, 0.234366e+00_jprb &
20820  &, 0.223656e+00_jprb, 0.213228e+00_jprb, 0.203103e+00_jprb &
20821  &, 0.193283e+00_jprb, 0.183766e+00_jprb, 0.174549e+00_jprb, 0.165626e+00_jprb &
20822  &, 0.157013e+00_jprb, 0.148701e+00_jprb, 0.140701e+00_jprb &
20823  &, 0.133001e+00_jprb, 0.125585e+00_jprb, 0.118486e+00_jprb, 0.111685e+00_jprb &
20824  &, 0.105133e+00_jprb, 0.988859e-01_jprb, 0.929448e-01_jprb &
20825  &, 0.872277e-01_jprb, 0.818145e-01_jprb, 0.766458e-01_jprb, 0.717151e-01_jprb &
20826  &, 0.670745e-01_jprb, 0.626260e-01_jprb, 0.584501e-01_jprb &
20827  &, 0.544737e-01_jprb, 0.507144e-01_jprb, 0.471899e-01_jprb, 0.438517e-01_jprb &
20828  &, 0.406812e-01_jprb, 0.377266e-01_jprb, 0.349687e-01_jprb &
20829  &, 0.323503e-01_jprb, 0.298826e-01_jprb, 0.276139e-01_jprb, 0.254824e-01_jprb &
20830  &, 0.234599e-01_jprb, 0.215934e-01_jprb, 0.198540e-01_jprb &
20831  &, 0.182501e-01_jprb, 0.167500e-01_jprb, 0.153605e-01_jprb, 0.140467e-01_jprb &
20832  &, 0.128569e-01_jprb, 0.117549e-01_jprb, 0.107462e-01_jprb &
20833  &, 0.979174e-02_jprb, 0.889513e-02_jprb, 0.810640e-02_jprb, 0.738452e-02_jprb &
20834  &, 0.668572e-02_jprb, 0.606024e-02_jprb, 0.551213e-02_jprb &
20835  &, 0.499563e-02_jprb, 0.451272e-02_jprb, 0.406543e-02_jprb, 0.365578e-02_jprb &
20836  &, 0.328586e-02_jprb, 0.295781e-02_jprb, 0.267376e-02_jprb &
20837  &, 0.238077e-02_jprb, 0.213466e-02_jprb, 0.193766e-02_jprb, 0.173457e-02_jprb &
20838  &, 0.152532e-02_jprb, 0.136891e-02_jprb, 0.120781e-02_jprb &
20839  &, 0.110268e-02_jprb, 0.994383e-03_jprb, 0.882892e-03_jprb, 0.768171e-03_jprb &
20840  &, 0.650184e-03_jprb, 0.593756e-03_jprb, 0.535689e-03_jprb/)
20841 xcw( 476, :) = (/ &
20842  & 0.990542e+00_jprb, 0.987151e+00_jprb, 0.983352e+00_jprb, 0.979149e+00_jprb &
20843  &, 0.974543e+00_jprb, 0.969537e+00_jprb, 0.964133e+00_jprb &
20844  &, 0.958336e+00_jprb, 0.952149e+00_jprb, 0.945575e+00_jprb, 0.938617e+00_jprb &
20845  &, 0.931280e+00_jprb, 0.923569e+00_jprb, 0.915489e+00_jprb &
20846  &, 0.907045e+00_jprb, 0.898241e+00_jprb, 0.889085e+00_jprb, 0.879583e+00_jprb &
20847  &, 0.869742e+00_jprb, 0.859567e+00_jprb, 0.849068e+00_jprb &
20848  &, 0.838256e+00_jprb, 0.827136e+00_jprb, 0.815714e+00_jprb, 0.804007e+00_jprb &
20849  &, 0.792022e+00_jprb, 0.779768e+00_jprb, 0.767257e+00_jprb &
20850  &, 0.754503e+00_jprb, 0.741518e+00_jprb, 0.728314e+00_jprb, 0.714901e+00_jprb &
20851  &, 0.701301e+00_jprb, 0.687518e+00_jprb, 0.673574e+00_jprb &
20852  &, 0.659481e+00_jprb, 0.645256e+00_jprb, 0.630915e+00_jprb, 0.616477e+00_jprb &
20853  &, 0.601947e+00_jprb, 0.587350e+00_jprb, 0.572706e+00_jprb &
20854  &, 0.558023e+00_jprb, 0.543325e+00_jprb, 0.528626e+00_jprb, 0.513942e+00_jprb &
20855  &, 0.499288e+00_jprb, 0.484682e+00_jprb, 0.470142e+00_jprb &
20856  &, 0.455673e+00_jprb, 0.441321e+00_jprb, 0.427066e+00_jprb, 0.412940e+00_jprb &
20857  &, 0.398963e+00_jprb, 0.385153e+00_jprb, 0.371502e+00_jprb &
20858  &, 0.358026e+00_jprb, 0.344759e+00_jprb, 0.331701e+00_jprb, 0.318853e+00_jprb &
20859  &, 0.306246e+00_jprb, 0.293877e+00_jprb, 0.281760e+00_jprb &
20860  &, 0.269905e+00_jprb, 0.258323e+00_jprb, 0.247004e+00_jprb, 0.235974e+00_jprb &
20861  &, 0.225220e+00_jprb, 0.214764e+00_jprb, 0.204610e+00_jprb &
20862  &, 0.194738e+00_jprb, 0.185187e+00_jprb, 0.175933e+00_jprb, 0.166972e+00_jprb &
20863  &, 0.158318e+00_jprb, 0.149962e+00_jprb, 0.141941e+00_jprb &
20864  &, 0.134193e+00_jprb, 0.126751e+00_jprb, 0.119599e+00_jprb, 0.112742e+00_jprb &
20865  &, 0.106159e+00_jprb, 0.998778e-01_jprb, 0.938739e-01_jprb &
20866  &, 0.881466e-01_jprb, 0.826657e-01_jprb, 0.774841e-01_jprb, 0.725102e-01_jprb &
20867  &, 0.678243e-01_jprb, 0.633591e-01_jprb, 0.591343e-01_jprb &
20868  &, 0.551387e-01_jprb, 0.513268e-01_jprb, 0.477804e-01_jprb, 0.443860e-01_jprb &
20869  &, 0.412249e-01_jprb, 0.382452e-01_jprb, 0.354259e-01_jprb &
20870  &, 0.327796e-01_jprb, 0.303192e-01_jprb, 0.280209e-01_jprb, 0.258587e-01_jprb &
20871  &, 0.238424e-01_jprb, 0.219434e-01_jprb, 0.201702e-01_jprb &
20872  &, 0.185314e-01_jprb, 0.170358e-01_jprb, 0.156094e-01_jprb, 0.142997e-01_jprb &
20873  &, 0.130710e-01_jprb, 0.119724e-01_jprb, 0.109229e-01_jprb &
20874  &, 0.997122e-02_jprb, 0.907739e-02_jprb, 0.824519e-02_jprb, 0.752543e-02_jprb &
20875  &, 0.682877e-02_jprb, 0.620545e-02_jprb, 0.561038e-02_jprb &
20876  &, 0.509534e-02_jprb, 0.461391e-02_jprb, 0.416809e-02_jprb, 0.375994e-02_jprb &
20877  &, 0.339154e-02_jprb, 0.306500e-02_jprb, 0.272812e-02_jprb &
20878  &, 0.243591e-02_jprb, 0.219057e-02_jprb, 0.199436e-02_jprb, 0.179206e-02_jprb &
20879  &, 0.158360e-02_jprb, 0.142799e-02_jprb, 0.126771e-02_jprb &
20880  &, 0.110268e-02_jprb, 0.994383e-03_jprb, 0.882892e-03_jprb, 0.768171e-03_jprb &
20881  &, 0.714202e-03_jprb, 0.593756e-03_jprb, 0.535689e-03_jprb/)
20882 
20883 IF (lhook) CALL dr_hook('SU_MCICA:PART68',1,zhook_handle)
20884 END SUBROUTINE part68
20885 
20886 #ifdef VPP5000
20887 !OCL SCALAR
20888 #endif
20889 !option! -Nv -NO
20890 #ifdef RS6K
20891 @process nooptimize
20892 #endif
20893 !pgi$r opt=0
20894 SUBROUTINE part69
20895 
20896 REAL(KIND=JPRB) :: ZHOOK_HANDLE
20897 IF (lhook) CALL dr_hook('SU_MCICA:PART69',0,zhook_handle)
20898 
20899 xcw( 477, :) = (/ &
20900  & 0.990793e+00_jprb, 0.987463e+00_jprb, 0.983724e+00_jprb, 0.979583e+00_jprb &
20901  &, 0.975037e+00_jprb, 0.970091e+00_jprb, 0.964748e+00_jprb &
20902  &, 0.959010e+00_jprb, 0.952881e+00_jprb, 0.946364e+00_jprb, 0.939463e+00_jprb &
20903  &, 0.932183e+00_jprb, 0.924527e+00_jprb, 0.916501e+00_jprb &
20904  &, 0.908110e+00_jprb, 0.899360e+00_jprb, 0.890256e+00_jprb, 0.880804e+00_jprb &
20905  &, 0.871012e+00_jprb, 0.860887e+00_jprb, 0.850434e+00_jprb &
20906  &, 0.839668e+00_jprb, 0.828591e+00_jprb, 0.817213e+00_jprb, 0.805545e+00_jprb &
20907  &, 0.793600e+00_jprb, 0.781385e+00_jprb, 0.768914e+00_jprb &
20908  &, 0.756196e+00_jprb, 0.743241e+00_jprb, 0.730068e+00_jprb, 0.716690e+00_jprb &
20909  &, 0.703113e+00_jprb, 0.689363e+00_jprb, 0.675443e+00_jprb &
20910  &, 0.661369e+00_jprb, 0.647173e+00_jprb, 0.632851e+00_jprb, 0.618422e+00_jprb &
20911  &, 0.603911e+00_jprb, 0.589332e+00_jprb, 0.574693e+00_jprb &
20912  &, 0.560016e+00_jprb, 0.545323e+00_jprb, 0.530627e+00_jprb, 0.515945e+00_jprb &
20913  &, 0.501292e+00_jprb, 0.486685e+00_jprb, 0.472143e+00_jprb &
20914  &, 0.457670e+00_jprb, 0.443300e+00_jprb, 0.429051e+00_jprb, 0.414916e+00_jprb &
20915  &, 0.400913e+00_jprb, 0.387077e+00_jprb, 0.373410e+00_jprb &
20916  &, 0.359932e+00_jprb, 0.346646e+00_jprb, 0.333551e+00_jprb, 0.320695e+00_jprb &
20917  &, 0.308062e+00_jprb, 0.295666e+00_jprb, 0.283517e+00_jprb &
20918  &, 0.271629e+00_jprb, 0.260011e+00_jprb, 0.248653e+00_jprb, 0.237582e+00_jprb &
20919  &, 0.226803e+00_jprb, 0.216321e+00_jprb, 0.206118e+00_jprb &
20920  &, 0.196214e+00_jprb, 0.186608e+00_jprb, 0.177318e+00_jprb, 0.168319e+00_jprb &
20921  &, 0.159624e+00_jprb, 0.151248e+00_jprb, 0.143156e+00_jprb &
20922  &, 0.135384e+00_jprb, 0.127892e+00_jprb, 0.120712e+00_jprb, 0.113800e+00_jprb &
20923  &, 0.107211e+00_jprb, 0.100870e+00_jprb, 0.948303e-01_jprb &
20924  &, 0.890656e-01_jprb, 0.835454e-01_jprb, 0.783224e-01_jprb, 0.733347e-01_jprb &
20925  &, 0.685741e-01_jprb, 0.640921e-01_jprb, 0.598186e-01_jprb &
20926  &, 0.558036e-01_jprb, 0.519715e-01_jprb, 0.483710e-01_jprb, 0.449536e-01_jprb &
20927  &, 0.417685e-01_jprb, 0.387292e-01_jprb, 0.359183e-01_jprb &
20928  &, 0.332447e-01_jprb, 0.307559e-01_jprb, 0.284280e-01_jprb, 0.262349e-01_jprb &
20929  &, 0.241867e-01_jprb, 0.222545e-01_jprb, 0.204864e-01_jprb &
20930  &, 0.188528e-01_jprb, 0.172807e-01_jprb, 0.158583e-01_jprb, 0.145526e-01_jprb &
20931  &, 0.133279e-01_jprb, 0.121898e-01_jprb, 0.110997e-01_jprb &
20932  &, 0.101507e-01_jprb, 0.925965e-02_jprb, 0.843025e-02_jprb, 0.766634e-02_jprb &
20933  &, 0.697182e-02_jprb, 0.630225e-02_jprb, 0.570863e-02_jprb &
20934  &, 0.519506e-02_jprb, 0.471509e-02_jprb, 0.421943e-02_jprb, 0.381203e-02_jprb &
20935  &, 0.344437e-02_jprb, 0.311860e-02_jprb, 0.278248e-02_jprb &
20936  &, 0.249104e-02_jprb, 0.224649e-02_jprb, 0.199436e-02_jprb, 0.179206e-02_jprb &
20937  &, 0.164188e-02_jprb, 0.142799e-02_jprb, 0.126771e-02_jprb &
20938  &, 0.116338e-02_jprb, 0.994383e-03_jprb, 0.882892e-03_jprb, 0.831352e-03_jprb &
20939  &, 0.714202e-03_jprb, 0.658618e-03_jprb, 0.535689e-03_jprb/)
20940 xcw( 478, :) = (/ &
20941  & 0.991043e+00_jprb, 0.987775e+00_jprb, 0.984098e+00_jprb, 0.980017e+00_jprb &
20942  &, 0.975533e+00_jprb, 0.970647e+00_jprb, 0.965363e+00_jprb &
20943  &, 0.959684e+00_jprb, 0.953612e+00_jprb, 0.947154e+00_jprb, 0.940310e+00_jprb &
20944  &, 0.933086e+00_jprb, 0.925485e+00_jprb, 0.917515e+00_jprb &
20945  &, 0.909176e+00_jprb, 0.900479e+00_jprb, 0.891426e+00_jprb, 0.882025e+00_jprb &
20946  &, 0.872284e+00_jprb, 0.862207e+00_jprb, 0.851802e+00_jprb &
20947  &, 0.841080e+00_jprb, 0.830046e+00_jprb, 0.818713e+00_jprb, 0.807087e+00_jprb &
20948  &, 0.795182e+00_jprb, 0.783005e+00_jprb, 0.770570e+00_jprb &
20949  &, 0.757885e+00_jprb, 0.744968e+00_jprb, 0.731830e+00_jprb, 0.718479e+00_jprb &
20950  &, 0.704935e+00_jprb, 0.691208e+00_jprb, 0.677312e+00_jprb &
20951  &, 0.663267e+00_jprb, 0.649080e+00_jprb, 0.634777e+00_jprb, 0.620367e+00_jprb &
20952  &, 0.605874e+00_jprb, 0.591302e+00_jprb, 0.576681e+00_jprb &
20953  &, 0.562020e+00_jprb, 0.547332e+00_jprb, 0.532640e+00_jprb, 0.517960e+00_jprb &
20954  &, 0.503308e+00_jprb, 0.488689e+00_jprb, 0.474144e+00_jprb &
20955  &, 0.459681e+00_jprb, 0.445305e+00_jprb, 0.431036e+00_jprb, 0.416892e+00_jprb &
20956  &, 0.402879e+00_jprb, 0.389029e+00_jprb, 0.375333e+00_jprb &
20957  &, 0.361839e+00_jprb, 0.348517e+00_jprb, 0.335417e+00_jprb, 0.322521e+00_jprb &
20958  &, 0.309862e+00_jprb, 0.297436e+00_jprb, 0.285274e+00_jprb &
20959  &, 0.273353e+00_jprb, 0.261699e+00_jprb, 0.250322e+00_jprb, 0.239209e+00_jprb &
20960  &, 0.228387e+00_jprb, 0.217858e+00_jprb, 0.207625e+00_jprb &
20961  &, 0.197690e+00_jprb, 0.188050e+00_jprb, 0.178725e+00_jprb, 0.169687e+00_jprb &
20962  &, 0.160952e+00_jprb, 0.152533e+00_jprb, 0.144396e+00_jprb &
20963  &, 0.136576e+00_jprb, 0.129058e+00_jprb, 0.121826e+00_jprb, 0.114883e+00_jprb &
20964  &, 0.108237e+00_jprb, 0.101889e+00_jprb, 0.957867e-01_jprb &
20965  &, 0.899846e-01_jprb, 0.844534e-01_jprb, 0.791608e-01_jprb, 0.741298e-01_jprb &
20966  &, 0.693539e-01_jprb, 0.648252e-01_jprb, 0.605339e-01_jprb &
20967  &, 0.564686e-01_jprb, 0.526162e-01_jprb, 0.489616e-01_jprb, 0.455547e-01_jprb &
20968  &, 0.423121e-01_jprb, 0.392477e-01_jprb, 0.364106e-01_jprb &
20969  &, 0.337098e-01_jprb, 0.311925e-01_jprb, 0.288350e-01_jprb, 0.266112e-01_jprb &
20970  &, 0.245310e-01_jprb, 0.226045e-01_jprb, 0.208027e-01_jprb &
20971  &, 0.191340e-01_jprb, 0.175665e-01_jprb, 0.161073e-01_jprb, 0.147633e-01_jprb &
20972  &, 0.135421e-01_jprb, 0.123638e-01_jprb, 0.113206e-01_jprb &
20973  &, 0.103302e-01_jprb, 0.939634e-02_jprb, 0.856905e-02_jprb, 0.780726e-02_jprb &
20974  &, 0.706719e-02_jprb, 0.644746e-02_jprb, 0.585601e-02_jprb &
20975  &, 0.529477e-02_jprb, 0.476569e-02_jprb, 0.432210e-02_jprb, 0.391619e-02_jprb &
20976  &, 0.355005e-02_jprb, 0.317219e-02_jprb, 0.283685e-02_jprb &
20977  &, 0.254618e-02_jprb, 0.230240e-02_jprb, 0.205105e-02_jprb, 0.184954e-02_jprb &
20978  &, 0.164188e-02_jprb, 0.148708e-02_jprb, 0.132760e-02_jprb &
20979  &, 0.116338e-02_jprb, 0.105591e-02_jprb, 0.945241e-03_jprb, 0.831352e-03_jprb &
20980  &, 0.714202e-03_jprb, 0.658618e-03_jprb, 0.601400e-03_jprb/)
20981 xcw( 479, :) = (/ &
20982  & 0.991291e+00_jprb, 0.988087e+00_jprb, 0.984471e+00_jprb, 0.980451e+00_jprb &
20983  &, 0.976027e+00_jprb, 0.971202e+00_jprb, 0.965977e+00_jprb &
20984  &, 0.960358e+00_jprb, 0.954345e+00_jprb, 0.947944e+00_jprb, 0.941157e+00_jprb &
20985  &, 0.933989e+00_jprb, 0.926445e+00_jprb, 0.918528e+00_jprb &
20986  &, 0.910244e+00_jprb, 0.901599e+00_jprb, 0.892599e+00_jprb, 0.883248e+00_jprb &
20987  &, 0.873555e+00_jprb, 0.863526e+00_jprb, 0.853167e+00_jprb &
20988  &, 0.842493e+00_jprb, 0.831504e+00_jprb, 0.820208e+00_jprb, 0.808629e+00_jprb &
20989  &, 0.796765e+00_jprb, 0.784626e+00_jprb, 0.772230e+00_jprb &
20990  &, 0.759582e+00_jprb, 0.746699e+00_jprb, 0.733591e+00_jprb, 0.720272e+00_jprb &
20991  &, 0.706756e+00_jprb, 0.693053e+00_jprb, 0.679185e+00_jprb &
20992  &, 0.665164e+00_jprb, 0.650997e+00_jprb, 0.636713e+00_jprb, 0.622322e+00_jprb &
20993  &, 0.607848e+00_jprb, 0.593283e+00_jprb, 0.578669e+00_jprb &
20994  &, 0.564014e+00_jprb, 0.549341e+00_jprb, 0.534653e+00_jprb, 0.519976e+00_jprb &
20995  &, 0.505324e+00_jprb, 0.490717e+00_jprb, 0.476158e+00_jprb &
20996  &, 0.461691e+00_jprb, 0.447297e+00_jprb, 0.433021e+00_jprb, 0.418868e+00_jprb &
20997  &, 0.404844e+00_jprb, 0.390982e+00_jprb, 0.377271e+00_jprb &
20998  &, 0.363745e+00_jprb, 0.350420e+00_jprb, 0.337282e+00_jprb, 0.324380e+00_jprb &
20999  &, 0.311678e+00_jprb, 0.299242e+00_jprb, 0.287032e+00_jprb &
21000  &, 0.275077e+00_jprb, 0.263405e+00_jprb, 0.251990e+00_jprb, 0.240856e+00_jprb &
21001  &, 0.229990e+00_jprb, 0.219435e+00_jprb, 0.209153e+00_jprb &
21002  &, 0.199187e+00_jprb, 0.189515e+00_jprb, 0.180132e+00_jprb, 0.171056e+00_jprb &
21003  &, 0.162280e+00_jprb, 0.153818e+00_jprb, 0.145660e+00_jprb &
21004  &, 0.137792e+00_jprb, 0.130224e+00_jprb, 0.122964e+00_jprb, 0.115993e+00_jprb &
21005  &, 0.109289e+00_jprb, 0.102881e+00_jprb, 0.967705e-01_jprb &
21006  &, 0.909035e-01_jprb, 0.853330e-01_jprb, 0.800280e-01_jprb, 0.749543e-01_jprb &
21007  &, 0.701338e-01_jprb, 0.655888e-01_jprb, 0.612492e-01_jprb &
21008  &, 0.571336e-01_jprb, 0.532609e-01_jprb, 0.495850e-01_jprb, 0.461223e-01_jprb &
21009  &, 0.428558e-01_jprb, 0.397663e-01_jprb, 0.369030e-01_jprb &
21010  &, 0.341748e-01_jprb, 0.316291e-01_jprb, 0.292420e-01_jprb, 0.269874e-01_jprb &
21011  &, 0.249135e-01_jprb, 0.229545e-01_jprb, 0.211189e-01_jprb &
21012  &, 0.194153e-01_jprb, 0.178523e-01_jprb, 0.163977e-01_jprb, 0.150163e-01_jprb &
21013  &, 0.137562e-01_jprb, 0.125813e-01_jprb, 0.114973e-01_jprb &
21014  &, 0.105097e-01_jprb, 0.957860e-02_jprb, 0.875411e-02_jprb, 0.794817e-02_jprb &
21015  &, 0.721024e-02_jprb, 0.654426e-02_jprb, 0.595426e-02_jprb &
21016  &, 0.539448e-02_jprb, 0.486687e-02_jprb, 0.442477e-02_jprb, 0.396827e-02_jprb &
21017  &, 0.360288e-02_jprb, 0.322579e-02_jprb, 0.294557e-02_jprb &
21018  &, 0.260131e-02_jprb, 0.235831e-02_jprb, 0.210775e-02_jprb, 0.190703e-02_jprb &
21019  &, 0.170016e-02_jprb, 0.154616e-02_jprb, 0.132760e-02_jprb &
21020  &, 0.122409e-02_jprb, 0.105591e-02_jprb, 0.945241e-03_jprb, 0.831352e-03_jprb &
21021  &, 0.778220e-03_jprb, 0.658618e-03_jprb, 0.601400e-03_jprb/)
21022 xcw( 480, :) = (/ &
21023  & 0.991543e+00_jprb, 0.988398e+00_jprb, 0.984845e+00_jprb, 0.980886e+00_jprb &
21024  &, 0.976522e+00_jprb, 0.971757e+00_jprb, 0.966592e+00_jprb &
21025  &, 0.961032e+00_jprb, 0.955078e+00_jprb, 0.948734e+00_jprb, 0.942005e+00_jprb &
21026  &, 0.934893e+00_jprb, 0.927405e+00_jprb, 0.919541e+00_jprb &
21027  &, 0.911312e+00_jprb, 0.902719e+00_jprb, 0.893771e+00_jprb, 0.884471e+00_jprb &
21028  &, 0.874828e+00_jprb, 0.864846e+00_jprb, 0.854539e+00_jprb &
21029  &, 0.843905e+00_jprb, 0.832962e+00_jprb, 0.821718e+00_jprb, 0.810174e+00_jprb &
21030  &, 0.798351e+00_jprb, 0.786250e+00_jprb, 0.773890e+00_jprb &
21031  &, 0.761279e+00_jprb, 0.748430e+00_jprb, 0.735353e+00_jprb, 0.722065e+00_jprb &
21032  &, 0.708577e+00_jprb, 0.694907e+00_jprb, 0.681063e+00_jprb &
21033  &, 0.667062e+00_jprb, 0.652923e+00_jprb, 0.638659e+00_jprb, 0.624287e+00_jprb &
21034  &, 0.609821e+00_jprb, 0.595275e+00_jprb, 0.580668e+00_jprb &
21035  &, 0.566029e+00_jprb, 0.551350e+00_jprb, 0.536678e+00_jprb, 0.522003e+00_jprb &
21036  &, 0.507340e+00_jprb, 0.492732e+00_jprb, 0.478184e+00_jprb &
21037  &, 0.463702e+00_jprb, 0.449302e+00_jprb, 0.435019e+00_jprb, 0.420844e+00_jprb &
21038  &, 0.406824e+00_jprb, 0.392935e+00_jprb, 0.379210e+00_jprb &
21039  &, 0.365666e+00_jprb, 0.352323e+00_jprb, 0.339164e+00_jprb, 0.326222e+00_jprb &
21040  &, 0.313512e+00_jprb, 0.301030e+00_jprb, 0.288807e+00_jprb &
21041  &, 0.276819e+00_jprb, 0.265112e+00_jprb, 0.253658e+00_jprb, 0.242483e+00_jprb &
21042  &, 0.231593e+00_jprb, 0.220992e+00_jprb, 0.210681e+00_jprb &
21043  &, 0.200685e+00_jprb, 0.190957e+00_jprb, 0.181539e+00_jprb, 0.172447e+00_jprb &
21044  &, 0.163631e+00_jprb, 0.155127e+00_jprb, 0.146923e+00_jprb &
21045  &, 0.139008e+00_jprb, 0.131415e+00_jprb, 0.124102e+00_jprb, 0.117076e+00_jprb &
21046  &, 0.110341e+00_jprb, 0.103899e+00_jprb, 0.977542e-01_jprb &
21047  &, 0.918503e-01_jprb, 0.862410e-01_jprb, 0.808664e-01_jprb, 0.757788e-01_jprb &
21048  &, 0.709436e-01_jprb, 0.663219e-01_jprb, 0.619646e-01_jprb &
21049  &, 0.578302e-01_jprb, 0.539056e-01_jprb, 0.502083e-01_jprb, 0.466899e-01_jprb &
21050  &, 0.433994e-01_jprb, 0.403194e-01_jprb, 0.373954e-01_jprb &
21051  &, 0.346399e-01_jprb, 0.320658e-01_jprb, 0.296490e-01_jprb, 0.274013e-01_jprb &
21052  &, 0.252578e-01_jprb, 0.233045e-01_jprb, 0.214747e-01_jprb &
21053  &, 0.197367e-01_jprb, 0.181382e-01_jprb, 0.166466e-01_jprb, 0.152692e-01_jprb &
21054  &, 0.140131e-01_jprb, 0.127988e-01_jprb, 0.117182e-01_jprb &
21055  &, 0.106891e-01_jprb, 0.976086e-02_jprb, 0.889290e-02_jprb, 0.808909e-02_jprb &
21056  &, 0.735329e-02_jprb, 0.668947e-02_jprb, 0.605251e-02_jprb &
21057  &, 0.549419e-02_jprb, 0.496806e-02_jprb, 0.452744e-02_jprb, 0.407244e-02_jprb &
21058  &, 0.365572e-02_jprb, 0.333298e-02_jprb, 0.299993e-02_jprb &
21059  &, 0.271158e-02_jprb, 0.241422e-02_jprb, 0.216445e-02_jprb, 0.196451e-02_jprb &
21060  &, 0.175844e-02_jprb, 0.154616e-02_jprb, 0.138749e-02_jprb &
21061  &, 0.122409e-02_jprb, 0.111743e-02_jprb, 0.100759e-02_jprb, 0.894533e-03_jprb &
21062  &, 0.778220e-03_jprb, 0.658618e-03_jprb, 0.601400e-03_jprb/)
21063 xcw( 481, :) = (/ &
21064  & 0.991793e+00_jprb, 0.988710e+00_jprb, 0.985217e+00_jprb, 0.981320e+00_jprb &
21065  &, 0.977018e+00_jprb, 0.972313e+00_jprb, 0.967208e+00_jprb &
21066  &, 0.961705e+00_jprb, 0.955810e+00_jprb, 0.949525e+00_jprb, 0.942853e+00_jprb &
21067  &, 0.935797e+00_jprb, 0.928364e+00_jprb, 0.920556e+00_jprb &
21068  &, 0.912381e+00_jprb, 0.903841e+00_jprb, 0.894944e+00_jprb, 0.885695e+00_jprb &
21069  &, 0.876102e+00_jprb, 0.866169e+00_jprb, 0.855907e+00_jprb &
21070  &, 0.845324e+00_jprb, 0.834424e+00_jprb, 0.823221e+00_jprb, 0.811723e+00_jprb &
21071  &, 0.799936e+00_jprb, 0.787878e+00_jprb, 0.775554e+00_jprb &
21072  &, 0.762980e+00_jprb, 0.750165e+00_jprb, 0.737119e+00_jprb, 0.723863e+00_jprb &
21073  &, 0.710406e+00_jprb, 0.696761e+00_jprb, 0.682941e+00_jprb &
21074  &, 0.668968e+00_jprb, 0.654850e+00_jprb, 0.640605e+00_jprb, 0.626242e+00_jprb &
21075  &, 0.611795e+00_jprb, 0.597267e+00_jprb, 0.582677e+00_jprb &
21076  &, 0.568034e+00_jprb, 0.553371e+00_jprb, 0.538702e+00_jprb, 0.524030e+00_jprb &
21077  &, 0.509381e+00_jprb, 0.494761e+00_jprb, 0.480211e+00_jprb &
21078  &, 0.465725e+00_jprb, 0.451321e+00_jprb, 0.437018e+00_jprb, 0.422848e+00_jprb &
21079  &, 0.408804e+00_jprb, 0.394903e+00_jprb, 0.381163e+00_jprb &
21080  &, 0.367604e+00_jprb, 0.354226e+00_jprb, 0.341046e+00_jprb, 0.328081e+00_jprb &
21081  &, 0.315345e+00_jprb, 0.302835e+00_jprb, 0.290582e+00_jprb &
21082  &, 0.278579e+00_jprb, 0.266818e+00_jprb, 0.255345e+00_jprb, 0.244130e+00_jprb &
21083  &, 0.233216e+00_jprb, 0.222589e+00_jprb, 0.212230e+00_jprb &
21084  &, 0.202182e+00_jprb, 0.192421e+00_jprb, 0.182968e+00_jprb, 0.173816e+00_jprb &
21085  &, 0.164982e+00_jprb, 0.156435e+00_jprb, 0.148187e+00_jprb &
21086  &, 0.140249e+00_jprb, 0.132581e+00_jprb, 0.125241e+00_jprb, 0.118186e+00_jprb &
21087  &, 0.111419e+00_jprb, 0.104945e+00_jprb, 0.987379e-01_jprb &
21088  &, 0.927971e-01_jprb, 0.871490e-01_jprb, 0.817625e-01_jprb, 0.766034e-01_jprb &
21089  &, 0.717234e-01_jprb, 0.670855e-01_jprb, 0.626799e-01_jprb &
21090  &, 0.584952e-01_jprb, 0.545502e-01_jprb, 0.508317e-01_jprb, 0.472910e-01_jprb &
21091  &, 0.439770e-01_jprb, 0.408380e-01_jprb, 0.378878e-01_jprb &
21092  &, 0.351050e-01_jprb, 0.325024e-01_jprb, 0.300561e-01_jprb, 0.277776e-01_jprb &
21093  &, 0.256403e-01_jprb, 0.236545e-01_jprb, 0.217909e-01_jprb &
21094  &, 0.200581e-01_jprb, 0.184240e-01_jprb, 0.169370e-01_jprb, 0.155221e-01_jprb &
21095  &, 0.142272e-01_jprb, 0.130163e-01_jprb, 0.118949e-01_jprb &
21096  &, 0.108686e-01_jprb, 0.994312e-02_jprb, 0.907796e-02_jprb, 0.823000e-02_jprb &
21097  &, 0.749634e-02_jprb, 0.683467e-02_jprb, 0.619989e-02_jprb &
21098  &, 0.559391e-02_jprb, 0.506924e-02_jprb, 0.457877e-02_jprb, 0.417660e-02_jprb &
21099  &, 0.376139e-02_jprb, 0.338658e-02_jprb, 0.305429e-02_jprb &
21100  &, 0.276671e-02_jprb, 0.247013e-02_jprb, 0.222114e-02_jprb, 0.196451e-02_jprb &
21101  &, 0.175844e-02_jprb, 0.160524e-02_jprb, 0.144738e-02_jprb &
21102  &, 0.128479e-02_jprb, 0.111743e-02_jprb, 0.100759e-02_jprb, 0.894533e-03_jprb &
21103  &, 0.778220e-03_jprb, 0.723479e-03_jprb, 0.601400e-03_jprb/)
21104 xcw( 482, :) = (/ &
21105  & 0.992041e+00_jprb, 0.989022e+00_jprb, 0.985591e+00_jprb, 0.981755e+00_jprb &
21106  &, 0.977512e+00_jprb, 0.972868e+00_jprb, 0.967823e+00_jprb &
21107  &, 0.962381e+00_jprb, 0.956544e+00_jprb, 0.950316e+00_jprb, 0.943701e+00_jprb &
21108  &, 0.936703e+00_jprb, 0.929324e+00_jprb, 0.921572e+00_jprb &
21109  &, 0.913449e+00_jprb, 0.904964e+00_jprb, 0.896118e+00_jprb, 0.886920e+00_jprb &
21110  &, 0.877376e+00_jprb, 0.867492e+00_jprb, 0.857279e+00_jprb &
21111  &, 0.846740e+00_jprb, 0.835886e+00_jprb, 0.824727e+00_jprb, 0.813272e+00_jprb &
21112  &, 0.801526e+00_jprb, 0.789506e+00_jprb, 0.777221e+00_jprb &
21113  &, 0.764681e+00_jprb, 0.751900e+00_jprb, 0.738889e+00_jprb, 0.725665e+00_jprb &
21114  &, 0.712236e+00_jprb, 0.698619e+00_jprb, 0.684823e+00_jprb &
21115  &, 0.670875e+00_jprb, 0.656776e+00_jprb, 0.642551e+00_jprb, 0.628207e+00_jprb &
21116  &, 0.613778e+00_jprb, 0.599258e+00_jprb, 0.584686e+00_jprb &
21117  &, 0.570061e+00_jprb, 0.555403e+00_jprb, 0.540726e+00_jprb, 0.526057e+00_jprb &
21118  &, 0.511409e+00_jprb, 0.496801e+00_jprb, 0.482238e+00_jprb &
21119  &, 0.467749e+00_jprb, 0.453340e+00_jprb, 0.439030e+00_jprb, 0.424838e+00_jprb &
21120  &, 0.410784e+00_jprb, 0.396870e+00_jprb, 0.383117e+00_jprb &
21121  &, 0.369525e+00_jprb, 0.356145e+00_jprb, 0.342945e+00_jprb, 0.329956e+00_jprb &
21122  &, 0.317195e+00_jprb, 0.304658e+00_jprb, 0.292374e+00_jprb &
21123  &, 0.280321e+00_jprb, 0.268543e+00_jprb, 0.257032e+00_jprb, 0.245796e+00_jprb &
21124  &, 0.234839e+00_jprb, 0.224166e+00_jprb, 0.213779e+00_jprb &
21125  &, 0.203700e+00_jprb, 0.193907e+00_jprb, 0.184419e+00_jprb, 0.175230e+00_jprb &
21126  &, 0.166333e+00_jprb, 0.157744e+00_jprb, 0.149451e+00_jprb &
21127  &, 0.141465e+00_jprb, 0.133797e+00_jprb, 0.126405e+00_jprb, 0.119295e+00_jprb &
21128  &, 0.112497e+00_jprb, 0.105964e+00_jprb, 0.997216e-01_jprb &
21129  &, 0.937440e-01_jprb, 0.880569e-01_jprb, 0.826298e-01_jprb, 0.774574e-01_jprb &
21130  &, 0.725332e-01_jprb, 0.678491e-01_jprb, 0.634264e-01_jprb &
21131  &, 0.592235e-01_jprb, 0.552272e-01_jprb, 0.514551e-01_jprb, 0.478920e-01_jprb &
21132  &, 0.445547e-01_jprb, 0.413911e-01_jprb, 0.383802e-01_jprb &
21133  &, 0.356058e-01_jprb, 0.329754e-01_jprb, 0.305001e-01_jprb, 0.281914e-01_jprb &
21134  &, 0.260229e-01_jprb, 0.240045e-01_jprb, 0.221072e-01_jprb &
21135  &, 0.203795e-01_jprb, 0.187098e-01_jprb, 0.171860e-01_jprb, 0.157750e-01_jprb &
21136  &, 0.144842e-01_jprb, 0.132338e-01_jprb, 0.121158e-01_jprb &
21137  &, 0.110930e-01_jprb, 0.101254e-01_jprb, 0.921676e-02_jprb, 0.841789e-02_jprb &
21138  &, 0.763939e-02_jprb, 0.693148e-02_jprb, 0.629815e-02_jprb &
21139  &, 0.574347e-02_jprb, 0.517043e-02_jprb, 0.468144e-02_jprb, 0.422869e-02_jprb &
21140  &, 0.381423e-02_jprb, 0.344017e-02_jprb, 0.310866e-02_jprb &
21141  &, 0.282185e-02_jprb, 0.252605e-02_jprb, 0.227784e-02_jprb, 0.202200e-02_jprb &
21142  &, 0.181672e-02_jprb, 0.160524e-02_jprb, 0.144738e-02_jprb &
21143  &, 0.128479e-02_jprb, 0.117895e-02_jprb, 0.100759e-02_jprb, 0.894533e-03_jprb &
21144  &, 0.842239e-03_jprb, 0.723479e-03_jprb, 0.667111e-03_jprb/)
21145 xcw( 483, :) = (/ &
21146  & 0.992293e+00_jprb, 0.989334e+00_jprb, 0.985965e+00_jprb, 0.982189e+00_jprb &
21147  &, 0.978008e+00_jprb, 0.973424e+00_jprb, 0.968438e+00_jprb &
21148  &, 0.963056e+00_jprb, 0.957277e+00_jprb, 0.951108e+00_jprb, 0.944549e+00_jprb &
21149  &, 0.937608e+00_jprb, 0.930286e+00_jprb, 0.922588e+00_jprb &
21150  &, 0.914520e+00_jprb, 0.906087e+00_jprb, 0.897294e+00_jprb, 0.888148e+00_jprb &
21151  &, 0.878653e+00_jprb, 0.868818e+00_jprb, 0.858650e+00_jprb &
21152  &, 0.848159e+00_jprb, 0.837351e+00_jprb, 0.826237e+00_jprb, 0.814821e+00_jprb &
21153  &, 0.803119e+00_jprb, 0.791138e+00_jprb, 0.778889e+00_jprb &
21154  &, 0.766386e+00_jprb, 0.753639e+00_jprb, 0.740663e+00_jprb, 0.727466e+00_jprb &
21155  &, 0.714066e+00_jprb, 0.700477e+00_jprb, 0.686710e+00_jprb &
21156  &, 0.672782e+00_jprb, 0.658703e+00_jprb, 0.644506e+00_jprb, 0.630182e+00_jprb &
21157  &, 0.615762e+00_jprb, 0.601261e+00_jprb, 0.586696e+00_jprb &
21158  &, 0.572076e+00_jprb, 0.557435e+00_jprb, 0.542763e+00_jprb, 0.528096e+00_jprb &
21159  &, 0.513450e+00_jprb, 0.498842e+00_jprb, 0.484277e+00_jprb &
21160  &, 0.469772e+00_jprb, 0.455359e+00_jprb, 0.441043e+00_jprb, 0.426843e+00_jprb &
21161  &, 0.412778e+00_jprb, 0.398853e+00_jprb, 0.385070e+00_jprb &
21162  &, 0.371478e+00_jprb, 0.358063e+00_jprb, 0.344843e+00_jprb, 0.331832e+00_jprb &
21163  &, 0.319046e+00_jprb, 0.306481e+00_jprb, 0.294167e+00_jprb &
21164  &, 0.282099e+00_jprb, 0.270287e+00_jprb, 0.258739e+00_jprb, 0.247462e+00_jprb &
21165  &, 0.236481e+00_jprb, 0.225763e+00_jprb, 0.215348e+00_jprb &
21166  &, 0.205218e+00_jprb, 0.195393e+00_jprb, 0.185847e+00_jprb, 0.176621e+00_jprb &
21167  &, 0.167707e+00_jprb, 0.159076e+00_jprb, 0.150738e+00_jprb &
21168  &, 0.142730e+00_jprb, 0.134987e+00_jprb, 0.127568e+00_jprb, 0.120430e+00_jprb &
21169  &, 0.113576e+00_jprb, 0.107009e+00_jprb, 0.100733e+00_jprb &
21170  &, 0.947186e-01_jprb, 0.889933e-01_jprb, 0.835259e-01_jprb, 0.783113e-01_jprb &
21171  &, 0.733430e-01_jprb, 0.686432e-01_jprb, 0.641417e-01_jprb &
21172  &, 0.599201e-01_jprb, 0.559041e-01_jprb, 0.520785e-01_jprb, 0.484930e-01_jprb &
21173  &, 0.450983e-01_jprb, 0.419097e-01_jprb, 0.389077e-01_jprb &
21174  &, 0.360709e-01_jprb, 0.334120e-01_jprb, 0.309441e-01_jprb, 0.286053e-01_jprb &
21175  &, 0.264054e-01_jprb, 0.243545e-01_jprb, 0.224629e-01_jprb &
21176  &, 0.206607e-01_jprb, 0.190364e-01_jprb, 0.174764e-01_jprb, 0.160279e-01_jprb &
21177  &, 0.146983e-01_jprb, 0.134948e-01_jprb, 0.123368e-01_jprb &
21178  &, 0.112725e-01_jprb, 0.103076e-01_jprb, 0.940182e-02_jprb, 0.855880e-02_jprb &
21179  &, 0.778244e-02_jprb, 0.707668e-02_jprb, 0.644552e-02_jprb &
21180  &, 0.584319e-02_jprb, 0.527161e-02_jprb, 0.478411e-02_jprb, 0.433285e-02_jprb &
21181  &, 0.391990e-02_jprb, 0.354737e-02_jprb, 0.316302e-02_jprb &
21182  &, 0.287698e-02_jprb, 0.258196e-02_jprb, 0.233453e-02_jprb, 0.207948e-02_jprb &
21183  &, 0.187501e-02_jprb, 0.166433e-02_jprb, 0.150727e-02_jprb &
21184  &, 0.134550e-02_jprb, 0.117895e-02_jprb, 0.106994e-02_jprb, 0.957714e-03_jprb &
21185  &, 0.842239e-03_jprb, 0.723479e-03_jprb, 0.667111e-03_jprb/)
21186 
21187 IF (lhook) CALL dr_hook('SU_MCICA:PART69',1,zhook_handle)
21188 END SUBROUTINE part69
21189 
21190 #ifdef VPP5000
21191 !OCL SCALAR
21192 #endif
21193 !option! -Nv -NO
21194 #ifdef RS6K
21195 @process nooptimize
21196 #endif
21197 !pgi$r opt=0
21198 SUBROUTINE part70
21199 
21200 REAL(KIND=JPRB) :: ZHOOK_HANDLE
21201 IF (lhook) CALL dr_hook('SU_MCICA:PART70',0,zhook_handle)
21202 
21203 xcw( 484, :) = (/ &
21204  & 0.992543e+00_jprb, 0.989646e+00_jprb, 0.986338e+00_jprb, 0.982624e+00_jprb &
21205  &, 0.978504e+00_jprb, 0.973980e+00_jprb, 0.969054e+00_jprb &
21206  &, 0.963730e+00_jprb, 0.958011e+00_jprb, 0.951899e+00_jprb, 0.945399e+00_jprb &
21207  &, 0.938514e+00_jprb, 0.931247e+00_jprb, 0.923605e+00_jprb &
21208  &, 0.915591e+00_jprb, 0.907211e+00_jprb, 0.898470e+00_jprb, 0.889375e+00_jprb &
21209  &, 0.879931e+00_jprb, 0.870144e+00_jprb, 0.860025e+00_jprb &
21210  &, 0.849581e+00_jprb, 0.838816e+00_jprb, 0.827746e+00_jprb, 0.816373e+00_jprb &
21211  &, 0.804712e+00_jprb, 0.792769e+00_jprb, 0.780561e+00_jprb &
21212  &, 0.768094e+00_jprb, 0.755382e+00_jprb, 0.742437e+00_jprb, 0.729272e+00_jprb &
21213  &, 0.715904e+00_jprb, 0.702344e+00_jprb, 0.688602e+00_jprb &
21214  &, 0.674698e+00_jprb, 0.660639e+00_jprb, 0.646462e+00_jprb, 0.632157e+00_jprb &
21215  &, 0.617756e+00_jprb, 0.603263e+00_jprb, 0.588716e+00_jprb &
21216  &, 0.574103e+00_jprb, 0.559467e+00_jprb, 0.544810e+00_jprb, 0.530147e+00_jprb &
21217  &, 0.515503e+00_jprb, 0.500883e+00_jprb, 0.486317e+00_jprb &
21218  &, 0.471822e+00_jprb, 0.457391e+00_jprb, 0.443069e+00_jprb, 0.428861e+00_jprb &
21219  &, 0.414772e+00_jprb, 0.400835e+00_jprb, 0.387038e+00_jprb &
21220  &, 0.373430e+00_jprb, 0.359982e+00_jprb, 0.346741e+00_jprb, 0.333707e+00_jprb &
21221  &, 0.320896e+00_jprb, 0.308321e+00_jprb, 0.295960e+00_jprb &
21222  &, 0.283860e+00_jprb, 0.272030e+00_jprb, 0.260445e+00_jprb, 0.249147e+00_jprb &
21223  &, 0.238104e+00_jprb, 0.227360e+00_jprb, 0.216918e+00_jprb &
21224  &, 0.206758e+00_jprb, 0.196879e+00_jprb, 0.187320e+00_jprb, 0.178034e+00_jprb &
21225  &, 0.169081e+00_jprb, 0.160408e+00_jprb, 0.152049e+00_jprb &
21226  &, 0.143970e+00_jprb, 0.136203e+00_jprb, 0.128732e+00_jprb, 0.121539e+00_jprb &
21227  &, 0.114654e+00_jprb, 0.108055e+00_jprb, 0.101744e+00_jprb &
21228  &, 0.956933e-01_jprb, 0.899013e-01_jprb, 0.843932e-01_jprb, 0.791653e-01_jprb &
21229  &, 0.741528e-01_jprb, 0.694069e-01_jprb, 0.648881e-01_jprb &
21230  &, 0.606167e-01_jprb, 0.565810e-01_jprb, 0.527347e-01_jprb, 0.491275e-01_jprb &
21231  &, 0.457099e-01_jprb, 0.424628e-01_jprb, 0.394352e-01_jprb &
21232  &, 0.365717e-01_jprb, 0.338850e-01_jprb, 0.313882e-01_jprb, 0.290192e-01_jprb &
21233  &, 0.267880e-01_jprb, 0.247434e-01_jprb, 0.228187e-01_jprb &
21234  &, 0.209821e-01_jprb, 0.193222e-01_jprb, 0.177668e-01_jprb, 0.163230e-01_jprb &
21235  &, 0.149552e-01_jprb, 0.137123e-01_jprb, 0.125577e-01_jprb &
21236  &, 0.114519e-01_jprb, 0.104899e-01_jprb, 0.954061e-02_jprb, 0.869972e-02_jprb &
21237  &, 0.792550e-02_jprb, 0.722189e-02_jprb, 0.654378e-02_jprb &
21238  &, 0.594290e-02_jprb, 0.542339e-02_jprb, 0.488678e-02_jprb, 0.443702e-02_jprb &
21239  &, 0.402558e-02_jprb, 0.360096e-02_jprb, 0.327174e-02_jprb &
21240  &, 0.293212e-02_jprb, 0.263787e-02_jprb, 0.239123e-02_jprb, 0.213697e-02_jprb &
21241  &, 0.193329e-02_jprb, 0.172341e-02_jprb, 0.150727e-02_jprb &
21242  &, 0.134550e-02_jprb, 0.124048e-02_jprb, 0.106994e-02_jprb, 0.957714e-03_jprb &
21243  &, 0.842239e-03_jprb, 0.788341e-03_jprb, 0.667111e-03_jprb/)
21244 xcw( 485, :) = (/ &
21245  & 0.992793e+00_jprb, 0.989958e+00_jprb, 0.986711e+00_jprb, 0.983058e+00_jprb &
21246  &, 0.979000e+00_jprb, 0.974536e+00_jprb, 0.969670e+00_jprb &
21247  &, 0.964406e+00_jprb, 0.958745e+00_jprb, 0.952692e+00_jprb, 0.946249e+00_jprb &
21248  &, 0.939419e+00_jprb, 0.932210e+00_jprb, 0.924622e+00_jprb &
21249  &, 0.916663e+00_jprb, 0.908336e+00_jprb, 0.899647e+00_jprb, 0.890603e+00_jprb &
21250  &, 0.881208e+00_jprb, 0.871473e+00_jprb, 0.861400e+00_jprb &
21251  &, 0.851004e+00_jprb, 0.840285e+00_jprb, 0.829256e+00_jprb, 0.817926e+00_jprb &
21252  &, 0.806305e+00_jprb, 0.794405e+00_jprb, 0.782232e+00_jprb &
21253  &, 0.769803e+00_jprb, 0.757125e+00_jprb, 0.744216e+00_jprb, 0.731082e+00_jprb &
21254  &, 0.717743e+00_jprb, 0.704211e+00_jprb, 0.690493e+00_jprb &
21255  &, 0.676614e+00_jprb, 0.662584e+00_jprb, 0.648417e+00_jprb, 0.634132e+00_jprb &
21256  &, 0.619750e+00_jprb, 0.605276e+00_jprb, 0.590736e+00_jprb &
21257  &, 0.576140e+00_jprb, 0.561510e+00_jprb, 0.546846e+00_jprb, 0.532198e+00_jprb &
21258  &, 0.517556e+00_jprb, 0.502936e+00_jprb, 0.488369e+00_jprb &
21259  &, 0.473859e+00_jprb, 0.459437e+00_jprb, 0.445109e+00_jprb, 0.430879e+00_jprb &
21260  &, 0.416781e+00_jprb, 0.402817e+00_jprb, 0.389022e+00_jprb &
21261  &, 0.375383e+00_jprb, 0.361933e+00_jprb, 0.348672e+00_jprb, 0.335599e+00_jprb &
21262  &, 0.322763e+00_jprb, 0.310161e+00_jprb, 0.297771e+00_jprb &
21263  &, 0.285656e+00_jprb, 0.273774e+00_jprb, 0.262170e+00_jprb, 0.250832e+00_jprb &
21264  &, 0.239767e+00_jprb, 0.228978e+00_jprb, 0.218487e+00_jprb &
21265  &, 0.208297e+00_jprb, 0.198386e+00_jprb, 0.188771e+00_jprb, 0.179470e+00_jprb &
21266  &, 0.170455e+00_jprb, 0.161740e+00_jprb, 0.153337e+00_jprb &
21267  &, 0.145235e+00_jprb, 0.137418e+00_jprb, 0.129921e+00_jprb, 0.122700e+00_jprb &
21268  &, 0.115759e+00_jprb, 0.109127e+00_jprb, 0.102755e+00_jprb &
21269  &, 0.966679e-01_jprb, 0.908661e-01_jprb, 0.853182e-01_jprb, 0.800193e-01_jprb &
21270  &, 0.749926e-01_jprb, 0.702010e-01_jprb, 0.656657e-01_jprb &
21271  &, 0.613450e-01_jprb, 0.572579e-01_jprb, 0.533908e-01_jprb, 0.497285e-01_jprb &
21272  &, 0.462875e-01_jprb, 0.430159e-01_jprb, 0.399628e-01_jprb &
21273  &, 0.370726e-01_jprb, 0.343581e-01_jprb, 0.318322e-01_jprb, 0.294331e-01_jprb &
21274  &, 0.272088e-01_jprb, 0.250934e-01_jprb, 0.231349e-01_jprb &
21275  &, 0.213437e-01_jprb, 0.196488e-01_jprb, 0.180572e-01_jprb, 0.165759e-01_jprb &
21276  &, 0.152121e-01_jprb, 0.139298e-01_jprb, 0.127786e-01_jprb &
21277  &, 0.116763e-01_jprb, 0.106722e-01_jprb, 0.972567e-02_jprb, 0.888760e-02_jprb &
21278  &, 0.806855e-02_jprb, 0.736710e-02_jprb, 0.669116e-02_jprb &
21279  &, 0.609247e-02_jprb, 0.552457e-02_jprb, 0.498945e-02_jprb, 0.454118e-02_jprb &
21280  &, 0.407841e-02_jprb, 0.370816e-02_jprb, 0.332611e-02_jprb &
21281  &, 0.298725e-02_jprb, 0.269378e-02_jprb, 0.244793e-02_jprb, 0.219446e-02_jprb &
21282  &, 0.193329e-02_jprb, 0.178249e-02_jprb, 0.156716e-02_jprb &
21283  &, 0.140620e-02_jprb, 0.124048e-02_jprb, 0.113229e-02_jprb, 0.102089e-02_jprb &
21284  &, 0.906257e-03_jprb, 0.788341e-03_jprb, 0.667111e-03_jprb/)
21285 xcw( 486, :) = (/ &
21286  & 0.993043e+00_jprb, 0.990267e+00_jprb, 0.987085e+00_jprb, 0.983494e+00_jprb &
21287  &, 0.979494e+00_jprb, 0.975092e+00_jprb, 0.970286e+00_jprb &
21288  &, 0.965081e+00_jprb, 0.959480e+00_jprb, 0.953484e+00_jprb, 0.947098e+00_jprb &
21289  &, 0.940326e+00_jprb, 0.933172e+00_jprb, 0.925640e+00_jprb &
21290  &, 0.917735e+00_jprb, 0.909461e+00_jprb, 0.900826e+00_jprb, 0.891832e+00_jprb &
21291  &, 0.882489e+00_jprb, 0.872802e+00_jprb, 0.862778e+00_jprb &
21292  &, 0.852426e+00_jprb, 0.841753e+00_jprb, 0.830769e+00_jprb, 0.819482e+00_jprb &
21293  &, 0.807902e+00_jprb, 0.796040e+00_jprb, 0.783907e+00_jprb &
21294  &, 0.771516e+00_jprb, 0.758872e+00_jprb, 0.745998e+00_jprb, 0.732897e+00_jprb &
21295  &, 0.719585e+00_jprb, 0.706078e+00_jprb, 0.692389e+00_jprb &
21296  &, 0.678530e+00_jprb, 0.664530e+00_jprb, 0.650383e+00_jprb, 0.636117e+00_jprb &
21297  &, 0.621744e+00_jprb, 0.607289e+00_jprb, 0.592757e+00_jprb &
21298  &, 0.578178e+00_jprb, 0.563554e+00_jprb, 0.548906e+00_jprb, 0.534248e+00_jprb &
21299  &, 0.519608e+00_jprb, 0.504990e+00_jprb, 0.490421e+00_jprb &
21300  &, 0.475909e+00_jprb, 0.461483e+00_jprb, 0.447135e+00_jprb, 0.432912e+00_jprb &
21301  &, 0.418790e+00_jprb, 0.404829e+00_jprb, 0.391006e+00_jprb &
21302  &, 0.377351e+00_jprb, 0.363867e+00_jprb, 0.350586e+00_jprb, 0.337508e+00_jprb &
21303  &, 0.324647e+00_jprb, 0.312001e+00_jprb, 0.299599e+00_jprb &
21304  &, 0.287434e+00_jprb, 0.275536e+00_jprb, 0.263895e+00_jprb, 0.252517e+00_jprb &
21305  &, 0.241429e+00_jprb, 0.230615e+00_jprb, 0.220077e+00_jprb &
21306  &, 0.209837e+00_jprb, 0.199893e+00_jprb, 0.190244e+00_jprb, 0.180906e+00_jprb &
21307  &, 0.171852e+00_jprb, 0.163095e+00_jprb, 0.154648e+00_jprb &
21308  &, 0.146499e+00_jprb, 0.138659e+00_jprb, 0.131110e+00_jprb, 0.123835e+00_jprb &
21309  &, 0.116863e+00_jprb, 0.110173e+00_jprb, 0.103793e+00_jprb &
21310  &, 0.976426e-01_jprb, 0.918024e-01_jprb, 0.862144e-01_jprb, 0.809027e-01_jprb &
21311  &, 0.758324e-01_jprb, 0.709952e-01_jprb, 0.664121e-01_jprb &
21312  &, 0.620733e-01_jprb, 0.579348e-01_jprb, 0.540470e-01_jprb, 0.503629e-01_jprb &
21313  &, 0.468651e-01_jprb, 0.436036e-01_jprb, 0.404903e-01_jprb &
21314  &, 0.375734e-01_jprb, 0.348311e-01_jprb, 0.322762e-01_jprb, 0.298470e-01_jprb &
21315  &, 0.275913e-01_jprb, 0.254823e-01_jprb, 0.234907e-01_jprb &
21316  &, 0.216651e-01_jprb, 0.199346e-01_jprb, 0.183476e-01_jprb, 0.168288e-01_jprb &
21317  &, 0.154691e-01_jprb, 0.141908e-01_jprb, 0.129995e-01_jprb &
21318  &, 0.119006e-01_jprb, 0.108544e-01_jprb, 0.991074e-02_jprb, 0.902852e-02_jprb &
21319  &, 0.825928e-02_jprb, 0.751230e-02_jprb, 0.683853e-02_jprb &
21320  &, 0.619218e-02_jprb, 0.562576e-02_jprb, 0.509211e-02_jprb, 0.459326e-02_jprb &
21321  &, 0.418409e-02_jprb, 0.376175e-02_jprb, 0.338047e-02_jprb &
21322  &, 0.304239e-02_jprb, 0.274969e-02_jprb, 0.250462e-02_jprb, 0.225194e-02_jprb &
21323  &, 0.199157e-02_jprb, 0.178249e-02_jprb, 0.162705e-02_jprb &
21324  &, 0.146690e-02_jprb, 0.130200e-02_jprb, 0.113229e-02_jprb, 0.102089e-02_jprb &
21325  &, 0.906257e-03_jprb, 0.788341e-03_jprb, 0.732822e-03_jprb/)
21326 xcw( 487, :) = (/ &
21327  & 0.993292e+00_jprb, 0.990582e+00_jprb, 0.987458e+00_jprb, 0.983929e+00_jprb &
21328  &, 0.979990e+00_jprb, 0.975648e+00_jprb, 0.970903e+00_jprb &
21329  &, 0.965757e+00_jprb, 0.960214e+00_jprb, 0.954277e+00_jprb, 0.947950e+00_jprb &
21330  &, 0.941233e+00_jprb, 0.934136e+00_jprb, 0.926659e+00_jprb &
21331  &, 0.918808e+00_jprb, 0.910587e+00_jprb, 0.902004e+00_jprb, 0.893062e+00_jprb &
21332  &, 0.883769e+00_jprb, 0.874132e+00_jprb, 0.864156e+00_jprb &
21333  &, 0.853852e+00_jprb, 0.843225e+00_jprb, 0.832286e+00_jprb, 0.821041e+00_jprb &
21334  &, 0.809503e+00_jprb, 0.797679e+00_jprb, 0.785587e+00_jprb &
21335  &, 0.773228e+00_jprb, 0.760623e+00_jprb, 0.747780e+00_jprb, 0.734711e+00_jprb &
21336  &, 0.721432e+00_jprb, 0.707954e+00_jprb, 0.694290e+00_jprb &
21337  &, 0.680456e+00_jprb, 0.666475e+00_jprb, 0.652348e+00_jprb, 0.638102e+00_jprb &
21338  &, 0.623749e+00_jprb, 0.609312e+00_jprb, 0.594787e+00_jprb &
21339  &, 0.580216e+00_jprb, 0.565597e+00_jprb, 0.550953e+00_jprb, 0.536311e+00_jprb &
21340  &, 0.521673e+00_jprb, 0.507055e+00_jprb, 0.492486e+00_jprb &
21341  &, 0.477971e+00_jprb, 0.463528e+00_jprb, 0.449189e+00_jprb, 0.434944e+00_jprb &
21342  &, 0.420813e+00_jprb, 0.406826e+00_jprb, 0.392989e+00_jprb &
21343  &, 0.379319e+00_jprb, 0.365818e+00_jprb, 0.352517e+00_jprb, 0.339417e+00_jprb &
21344  &, 0.326515e+00_jprb, 0.313859e+00_jprb, 0.301427e+00_jprb &
21345  &, 0.289231e+00_jprb, 0.277298e+00_jprb, 0.265620e+00_jprb, 0.254222e+00_jprb &
21346  &, 0.243092e+00_jprb, 0.232233e+00_jprb, 0.221667e+00_jprb &
21347  &, 0.211397e+00_jprb, 0.201422e+00_jprb, 0.191717e+00_jprb, 0.182342e+00_jprb &
21348  &, 0.173249e+00_jprb, 0.164451e+00_jprb, 0.155983e+00_jprb &
21349  &, 0.147788e+00_jprb, 0.139899e+00_jprb, 0.132299e+00_jprb, 0.124996e+00_jprb &
21350  &, 0.117994e+00_jprb, 0.111272e+00_jprb, 0.104804e+00_jprb &
21351  &, 0.986451e-01_jprb, 0.927672e-01_jprb, 0.871394e-01_jprb, 0.817567e-01_jprb &
21352  &, 0.766722e-01_jprb, 0.717893e-01_jprb, 0.671897e-01_jprb &
21353  &, 0.628016e-01_jprb, 0.586440e-01_jprb, 0.547032e-01_jprb, 0.509973e-01_jprb &
21354  &, 0.474767e-01_jprb, 0.441568e-01_jprb, 0.410179e-01_jprb &
21355  &, 0.380743e-01_jprb, 0.353041e-01_jprb, 0.327203e-01_jprb, 0.302985e-01_jprb &
21356  &, 0.280121e-01_jprb, 0.258712e-01_jprb, 0.238465e-01_jprb &
21357  &, 0.219865e-01_jprb, 0.202613e-01_jprb, 0.186380e-01_jprb, 0.171239e-01_jprb &
21358  &, 0.157260e-01_jprb, 0.144083e-01_jprb, 0.132204e-01_jprb &
21359  &, 0.120801e-01_jprb, 0.110367e-01_jprb, 0.100958e-01_jprb, 0.921640e-02_jprb &
21360  &, 0.840233e-02_jprb, 0.765751e-02_jprb, 0.693679e-02_jprb &
21361  &, 0.634175e-02_jprb, 0.572694e-02_jprb, 0.519478e-02_jprb, 0.469743e-02_jprb &
21362  &, 0.423692e-02_jprb, 0.386895e-02_jprb, 0.348919e-02_jprb &
21363  &, 0.315265e-02_jprb, 0.280561e-02_jprb, 0.256132e-02_jprb, 0.230943e-02_jprb &
21364  &, 0.204985e-02_jprb, 0.184158e-02_jprb, 0.162705e-02_jprb &
21365  &, 0.146690e-02_jprb, 0.130200e-02_jprb, 0.119464e-02_jprb, 0.102089e-02_jprb &
21366  &, 0.906257e-03_jprb, 0.853203e-03_jprb, 0.732822e-03_jprb/)
21367 xcw( 488, :) = (/ &
21368  & 0.993543e+00_jprb, 0.990893e+00_jprb, 0.987833e+00_jprb, 0.984364e+00_jprb &
21369  &, 0.980486e+00_jprb, 0.976205e+00_jprb, 0.971519e+00_jprb &
21370  &, 0.966433e+00_jprb, 0.960949e+00_jprb, 0.955070e+00_jprb, 0.948801e+00_jprb &
21371  &, 0.942141e+00_jprb, 0.935100e+00_jprb, 0.927678e+00_jprb &
21372  &, 0.919881e+00_jprb, 0.911715e+00_jprb, 0.903184e+00_jprb, 0.894294e+00_jprb &
21373  &, 0.885051e+00_jprb, 0.875461e+00_jprb, 0.865534e+00_jprb &
21374  &, 0.855277e+00_jprb, 0.844697e+00_jprb, 0.833802e+00_jprb, 0.822601e+00_jprb &
21375  &, 0.811103e+00_jprb, 0.799322e+00_jprb, 0.787266e+00_jprb &
21376  &, 0.774949e+00_jprb, 0.762374e+00_jprb, 0.749567e+00_jprb, 0.736529e+00_jprb &
21377  &, 0.723279e+00_jprb, 0.709829e+00_jprb, 0.696195e+00_jprb &
21378  &, 0.682390e+00_jprb, 0.668430e+00_jprb, 0.654324e+00_jprb, 0.640097e+00_jprb &
21379  &, 0.625763e+00_jprb, 0.611335e+00_jprb, 0.596829e+00_jprb &
21380  &, 0.582265e+00_jprb, 0.567652e+00_jprb, 0.553024e+00_jprb, 0.538374e+00_jprb &
21381  &, 0.523738e+00_jprb, 0.509121e+00_jprb, 0.494552e+00_jprb &
21382  &, 0.480034e+00_jprb, 0.465587e+00_jprb, 0.451229e+00_jprb, 0.436977e+00_jprb &
21383  &, 0.422850e+00_jprb, 0.408838e+00_jprb, 0.394988e+00_jprb &
21384  &, 0.381303e+00_jprb, 0.367784e+00_jprb, 0.354464e+00_jprb, 0.341325e+00_jprb &
21385  &, 0.328416e+00_jprb, 0.315716e+00_jprb, 0.303255e+00_jprb &
21386  &, 0.291046e+00_jprb, 0.279079e+00_jprb, 0.267364e+00_jprb, 0.255927e+00_jprb &
21387  &, 0.244754e+00_jprb, 0.233870e+00_jprb, 0.223278e+00_jprb &
21388  &, 0.212958e+00_jprb, 0.202951e+00_jprb, 0.193211e+00_jprb, 0.183779e+00_jprb &
21389  &, 0.174669e+00_jprb, 0.165829e+00_jprb, 0.157295e+00_jprb &
21390  &, 0.149077e+00_jprb, 0.141140e+00_jprb, 0.133514e+00_jprb, 0.126157e+00_jprb &
21391  &, 0.119099e+00_jprb, 0.112345e+00_jprb, 0.105870e+00_jprb &
21392  &, 0.996476e-01_jprb, 0.937319e-01_jprb, 0.880645e-01_jprb, 0.826696e-01_jprb &
21393  &, 0.775120e-01_jprb, 0.726140e-01_jprb, 0.679672e-01_jprb &
21394  &, 0.635299e-01_jprb, 0.593531e-01_jprb, 0.553922e-01_jprb, 0.516317e-01_jprb &
21395  &, 0.480883e-01_jprb, 0.447445e-01_jprb, 0.415806e-01_jprb &
21396  &, 0.386109e-01_jprb, 0.358135e-01_jprb, 0.331643e-01_jprb, 0.307123e-01_jprb &
21397  &, 0.283947e-01_jprb, 0.262601e-01_jprb, 0.242418e-01_jprb &
21398  &, 0.223481e-01_jprb, 0.205879e-01_jprb, 0.189284e-01_jprb, 0.174189e-01_jprb &
21399  &, 0.159830e-01_jprb, 0.146693e-01_jprb, 0.134413e-01_jprb &
21400  &, 0.123045e-01_jprb, 0.112645e-01_jprb, 0.102809e-01_jprb, 0.935732e-02_jprb &
21401  &, 0.854538e-02_jprb, 0.780271e-02_jprb, 0.708416e-02_jprb &
21402  &, 0.644146e-02_jprb, 0.582813e-02_jprb, 0.529745e-02_jprb, 0.480159e-02_jprb &
21403  &, 0.434260e-02_jprb, 0.392254e-02_jprb, 0.354356e-02_jprb &
21404  &, 0.320779e-02_jprb, 0.286152e-02_jprb, 0.261801e-02_jprb, 0.236691e-02_jprb &
21405  &, 0.210813e-02_jprb, 0.190066e-02_jprb, 0.168694e-02_jprb &
21406  &, 0.152761e-02_jprb, 0.136353e-02_jprb, 0.119464e-02_jprb, 0.108408e-02_jprb &
21407  &, 0.970275e-03_jprb, 0.853203e-03_jprb, 0.732822e-03_jprb/)
21408 xcw( 489, :) = (/ &
21409  & 0.993792e+00_jprb, 0.991205e+00_jprb, 0.988205e+00_jprb, 0.984799e+00_jprb &
21410  &, 0.980982e+00_jprb, 0.976762e+00_jprb, 0.972136e+00_jprb &
21411  &, 0.967109e+00_jprb, 0.961684e+00_jprb, 0.955864e+00_jprb, 0.949651e+00_jprb &
21412  &, 0.943050e+00_jprb, 0.936064e+00_jprb, 0.928698e+00_jprb &
21413  &, 0.920957e+00_jprb, 0.912843e+00_jprb, 0.904364e+00_jprb, 0.895526e+00_jprb &
21414  &, 0.886334e+00_jprb, 0.876793e+00_jprb, 0.866915e+00_jprb &
21415  &, 0.856706e+00_jprb, 0.846169e+00_jprb, 0.835319e+00_jprb, 0.824160e+00_jprb &
21416  &, 0.812707e+00_jprb, 0.800965e+00_jprb, 0.788949e+00_jprb &
21417  &, 0.776665e+00_jprb, 0.764129e+00_jprb, 0.751353e+00_jprb, 0.738335e+00_jprb &
21418  &, 0.725130e+00_jprb, 0.711710e+00_jprb, 0.698100e+00_jprb &
21419  &, 0.684316e+00_jprb, 0.670376e+00_jprb, 0.656299e+00_jprb, 0.642093e+00_jprb &
21420  &, 0.627778e+00_jprb, 0.613358e+00_jprb, 0.598871e+00_jprb &
21421  &, 0.584313e+00_jprb, 0.569718e+00_jprb, 0.555084e+00_jprb, 0.540449e+00_jprb &
21422  &, 0.525816e+00_jprb, 0.511199e+00_jprb, 0.496630e+00_jprb &
21423  &, 0.482097e+00_jprb, 0.467647e+00_jprb, 0.453282e+00_jprb, 0.439023e+00_jprb &
21424  &, 0.424873e+00_jprb, 0.410865e+00_jprb, 0.397002e+00_jprb &
21425  &, 0.383287e+00_jprb, 0.369751e+00_jprb, 0.356411e+00_jprb, 0.343251e+00_jprb &
21426  &, 0.330317e+00_jprb, 0.317591e+00_jprb, 0.305101e+00_jprb &
21427  &, 0.292860e+00_jprb, 0.280860e+00_jprb, 0.269127e+00_jprb, 0.257651e+00_jprb &
21428  &, 0.246456e+00_jprb, 0.235528e+00_jprb, 0.224889e+00_jprb &
21429  &, 0.214539e+00_jprb, 0.204479e+00_jprb, 0.194706e+00_jprb, 0.185237e+00_jprb &
21430  &, 0.176089e+00_jprb, 0.167208e+00_jprb, 0.158630e+00_jprb &
21431  &, 0.150367e+00_jprb, 0.142405e+00_jprb, 0.134728e+00_jprb, 0.127343e+00_jprb &
21432  &, 0.120230e+00_jprb, 0.113444e+00_jprb, 0.106908e+00_jprb &
21433  &, 0.100678e+00_jprb, 0.946966e-01_jprb, 0.889896e-01_jprb, 0.835530e-01_jprb &
21434  &, 0.783518e-01_jprb, 0.734387e-01_jprb, 0.687447e-01_jprb &
21435  &, 0.642899e-01_jprb, 0.600623e-01_jprb, 0.560484e-01_jprb, 0.522662e-01_jprb &
21436  &, 0.486999e-01_jprb, 0.452976e-01_jprb, 0.421081e-01_jprb &
21437  &, 0.391118e-01_jprb, 0.362865e-01_jprb, 0.336453e-01_jprb, 0.311638e-01_jprb &
21438  &, 0.288155e-01_jprb, 0.266490e-01_jprb, 0.245975e-01_jprb &
21439  &, 0.226695e-01_jprb, 0.208737e-01_jprb, 0.192189e-01_jprb, 0.176719e-01_jprb &
21440  &, 0.162399e-01_jprb, 0.148868e-01_jprb, 0.136622e-01_jprb &
21441  &, 0.125288e-01_jprb, 0.114468e-01_jprb, 0.104659e-01_jprb, 0.954520e-02_jprb &
21442  &, 0.868843e-02_jprb, 0.794792e-02_jprb, 0.723154e-02_jprb &
21443  &, 0.659103e-02_jprb, 0.597991e-02_jprb, 0.540012e-02_jprb, 0.490576e-02_jprb &
21444  &, 0.444827e-02_jprb, 0.402974e-02_jprb, 0.365228e-02_jprb &
21445  &, 0.326292e-02_jprb, 0.297334e-02_jprb, 0.267471e-02_jprb, 0.236691e-02_jprb &
21446  &, 0.216641e-02_jprb, 0.190066e-02_jprb, 0.174683e-02_jprb &
21447  &, 0.152761e-02_jprb, 0.136353e-02_jprb, 0.125699e-02_jprb, 0.108408e-02_jprb &
21448  &, 0.970275e-03_jprb, 0.853203e-03_jprb, 0.798534e-03_jprb/)
21449 xcw( 490, :) = (/ &
21450  & 0.994042e+00_jprb, 0.991517e+00_jprb, 0.988579e+00_jprb, 0.985235e+00_jprb &
21451  &, 0.981479e+00_jprb, 0.977318e+00_jprb, 0.972753e+00_jprb &
21452  &, 0.967786e+00_jprb, 0.962420e+00_jprb, 0.956658e+00_jprb, 0.950504e+00_jprb &
21453  &, 0.943959e+00_jprb, 0.937029e+00_jprb, 0.929718e+00_jprb &
21454  &, 0.922032e+00_jprb, 0.913972e+00_jprb, 0.905546e+00_jprb, 0.896759e+00_jprb &
21455  &, 0.887618e+00_jprb, 0.878129e+00_jprb, 0.868300e+00_jprb &
21456  &, 0.858135e+00_jprb, 0.847644e+00_jprb, 0.836839e+00_jprb, 0.825723e+00_jprb &
21457  &, 0.814311e+00_jprb, 0.802612e+00_jprb, 0.790631e+00_jprb &
21458  &, 0.778390e+00_jprb, 0.765888e+00_jprb, 0.753148e+00_jprb, 0.740175e+00_jprb &
21459  &, 0.726986e+00_jprb, 0.713594e+00_jprb, 0.700014e+00_jprb &
21460  &, 0.686250e+00_jprb, 0.672340e+00_jprb, 0.658284e+00_jprb, 0.644088e+00_jprb &
21461  &, 0.629793e+00_jprb, 0.615392e+00_jprb, 0.600913e+00_jprb &
21462  &, 0.586373e+00_jprb, 0.571784e+00_jprb, 0.557166e+00_jprb, 0.542524e+00_jprb &
21463  &, 0.527893e+00_jprb, 0.513278e+00_jprb, 0.498707e+00_jprb &
21464  &, 0.484173e+00_jprb, 0.469719e+00_jprb, 0.455350e+00_jprb, 0.441084e+00_jprb &
21465  &, 0.426925e+00_jprb, 0.412892e+00_jprb, 0.399001e+00_jprb &
21466  &, 0.385286e+00_jprb, 0.371733e+00_jprb, 0.358358e+00_jprb, 0.345176e+00_jprb &
21467  &, 0.332218e+00_jprb, 0.319466e+00_jprb, 0.306965e+00_jprb &
21468  &, 0.294675e+00_jprb, 0.282659e+00_jprb, 0.270890e+00_jprb, 0.259375e+00_jprb &
21469  &, 0.248139e+00_jprb, 0.237186e+00_jprb, 0.226499e+00_jprb &
21470  &, 0.216121e+00_jprb, 0.206030e+00_jprb, 0.196223e+00_jprb, 0.186718e+00_jprb &
21471  &, 0.177509e+00_jprb, 0.168587e+00_jprb, 0.159989e+00_jprb &
21472  &, 0.151680e+00_jprb, 0.143670e+00_jprb, 0.135943e+00_jprb, 0.128530e+00_jprb &
21473  &, 0.121387e+00_jprb, 0.114543e+00_jprb, 0.107974e+00_jprb &
21474  &, 0.101680e+00_jprb, 0.956614e-01_jprb, 0.899435e-01_jprb, 0.844659e-01_jprb &
21475  &, 0.792216e-01_jprb, 0.742634e-01_jprb, 0.695223e-01_jprb &
21476  &, 0.650498e-01_jprb, 0.607714e-01_jprb, 0.567374e-01_jprb, 0.529340e-01_jprb &
21477  &, 0.493115e-01_jprb, 0.458853e-01_jprb, 0.426709e-01_jprb &
21478  &, 0.396484e-01_jprb, 0.367959e-01_jprb, 0.341264e-01_jprb, 0.316154e-01_jprb &
21479  &, 0.292362e-01_jprb, 0.270379e-01_jprb, 0.249533e-01_jprb &
21480  &, 0.230311e-01_jprb, 0.212412e-01_jprb, 0.195508e-01_jprb, 0.179669e-01_jprb &
21481  &, 0.164968e-01_jprb, 0.151478e-01_jprb, 0.138831e-01_jprb &
21482  &, 0.127532e-01_jprb, 0.116290e-01_jprb, 0.106510e-01_jprb, 0.973309e-02_jprb &
21483  &, 0.887917e-02_jprb, 0.809313e-02_jprb, 0.737892e-02_jprb &
21484  &, 0.669074e-02_jprb, 0.608109e-02_jprb, 0.550279e-02_jprb, 0.500992e-02_jprb &
21485  &, 0.455394e-02_jprb, 0.408333e-02_jprb, 0.370664e-02_jprb &
21486  &, 0.337319e-02_jprb, 0.302925e-02_jprb, 0.273140e-02_jprb, 0.242440e-02_jprb &
21487  &, 0.222469e-02_jprb, 0.195974e-02_jprb, 0.174683e-02_jprb &
21488  &, 0.158831e-02_jprb, 0.142505e-02_jprb, 0.125699e-02_jprb, 0.114726e-02_jprb &
21489  &, 0.103429e-02_jprb, 0.918065e-03_jprb, 0.798534e-03_jprb/)
21490 
21491 IF (lhook) CALL dr_hook('SU_MCICA:PART70',1,zhook_handle)
21492 END SUBROUTINE part70
21493 
21494 #ifdef VPP5000
21495 !OCL SCALAR
21496 #endif
21497 !option! -Nv -NO
21498 #ifdef RS6K
21499 @process nooptimize
21500 #endif
21501 !pgi$r opt=0
21502 SUBROUTINE part71
21503 
21504 REAL(KIND=JPRB) :: ZHOOK_HANDLE
21505 IF (lhook) CALL dr_hook('SU_MCICA:PART71',0,zhook_handle)
21506 
21507 xcw( 491, :) = (/ &
21508  & 0.994292e+00_jprb, 0.991830e+00_jprb, 0.988954e+00_jprb, 0.985670e+00_jprb &
21509  &, 0.981975e+00_jprb, 0.977876e+00_jprb, 0.973370e+00_jprb &
21510  &, 0.968463e+00_jprb, 0.963156e+00_jprb, 0.957453e+00_jprb, 0.951356e+00_jprb &
21511  &, 0.944869e+00_jprb, 0.937996e+00_jprb, 0.930740e+00_jprb &
21512  &, 0.923108e+00_jprb, 0.915102e+00_jprb, 0.906729e+00_jprb, 0.897994e+00_jprb &
21513  &, 0.888904e+00_jprb, 0.879465e+00_jprb, 0.869681e+00_jprb &
21514  &, 0.859564e+00_jprb, 0.849123e+00_jprb, 0.838359e+00_jprb, 0.827290e+00_jprb &
21515  &, 0.815919e+00_jprb, 0.804258e+00_jprb, 0.792318e+00_jprb &
21516  &, 0.780114e+00_jprb, 0.767647e+00_jprb, 0.754942e+00_jprb, 0.742002e+00_jprb &
21517  &, 0.728842e+00_jprb, 0.715479e+00_jprb, 0.701928e+00_jprb &
21518  &, 0.688194e+00_jprb, 0.674305e+00_jprb, 0.660269e+00_jprb, 0.646093e+00_jprb &
21519  &, 0.631807e+00_jprb, 0.617426e+00_jprb, 0.602966e+00_jprb &
21520  &, 0.588433e+00_jprb, 0.573849e+00_jprb, 0.559237e+00_jprb, 0.544610e+00_jprb &
21521  &, 0.529982e+00_jprb, 0.515368e+00_jprb, 0.500785e+00_jprb &
21522  &, 0.486263e+00_jprb, 0.471805e+00_jprb, 0.457418e+00_jprb, 0.443145e+00_jprb &
21523  &, 0.428963e+00_jprb, 0.414934e+00_jprb, 0.401030e+00_jprb &
21524  &, 0.387285e+00_jprb, 0.373715e+00_jprb, 0.360321e+00_jprb, 0.347118e+00_jprb &
21525  &, 0.334137e+00_jprb, 0.321358e+00_jprb, 0.308811e+00_jprb &
21526  &, 0.296508e+00_jprb, 0.284458e+00_jprb, 0.272653e+00_jprb, 0.261118e+00_jprb &
21527  &, 0.249841e+00_jprb, 0.238844e+00_jprb, 0.228131e+00_jprb &
21528  &, 0.217724e+00_jprb, 0.207580e+00_jprb, 0.197740e+00_jprb, 0.188199e+00_jprb &
21529  &, 0.178951e+00_jprb, 0.169989e+00_jprb, 0.161348e+00_jprb &
21530  &, 0.152993e+00_jprb, 0.144935e+00_jprb, 0.137182e+00_jprb, 0.129717e+00_jprb &
21531  &, 0.122544e+00_jprb, 0.115642e+00_jprb, 0.109040e+00_jprb &
21532  &, 0.102711e+00_jprb, 0.966545e-01_jprb, 0.908686e-01_jprb, 0.853493e-01_jprb &
21533  &, 0.800914e-01_jprb, 0.750881e-01_jprb, 0.703309e-01_jprb &
21534  &, 0.658098e-01_jprb, 0.615128e-01_jprb, 0.574264e-01_jprb, 0.535684e-01_jprb &
21535  &, 0.499231e-01_jprb, 0.465076e-01_jprb, 0.432336e-01_jprb &
21536  &, 0.401850e-01_jprb, 0.373053e-01_jprb, 0.346074e-01_jprb, 0.320669e-01_jprb &
21537  &, 0.296570e-01_jprb, 0.274268e-01_jprb, 0.253486e-01_jprb &
21538  &, 0.233927e-01_jprb, 0.215678e-01_jprb, 0.198412e-01_jprb, 0.182620e-01_jprb &
21539  &, 0.167966e-01_jprb, 0.154088e-01_jprb, 0.141482e-01_jprb &
21540  &, 0.129327e-01_jprb, 0.118568e-01_jprb, 0.108360e-01_jprb, 0.992097e-02_jprb &
21541  &, 0.902222e-02_jprb, 0.823833e-02_jprb, 0.752630e-02_jprb &
21542  &, 0.684031e-02_jprb, 0.618228e-02_jprb, 0.565679e-02_jprb, 0.511409e-02_jprb &
21543  &, 0.460678e-02_jprb, 0.419053e-02_jprb, 0.381537e-02_jprb &
21544  &, 0.342833e-02_jprb, 0.308517e-02_jprb, 0.278810e-02_jprb, 0.248188e-02_jprb &
21545  &, 0.222469e-02_jprb, 0.201883e-02_jprb, 0.180672e-02_jprb &
21546  &, 0.164902e-02_jprb, 0.142505e-02_jprb, 0.131934e-02_jprb, 0.114726e-02_jprb &
21547  &, 0.103429e-02_jprb, 0.918065e-03_jprb, 0.798534e-03_jprb/)
21548 xcw( 492, :) = (/ &
21549  & 0.994542e+00_jprb, 0.992141e+00_jprb, 0.989328e+00_jprb, 0.986105e+00_jprb &
21550  &, 0.982472e+00_jprb, 0.978433e+00_jprb, 0.973987e+00_jprb &
21551  &, 0.969140e+00_jprb, 0.963892e+00_jprb, 0.958247e+00_jprb, 0.952209e+00_jprb &
21552  &, 0.945779e+00_jprb, 0.938962e+00_jprb, 0.931762e+00_jprb &
21553  &, 0.924185e+00_jprb, 0.916233e+00_jprb, 0.907912e+00_jprb, 0.899230e+00_jprb &
21554  &, 0.890191e+00_jprb, 0.880800e+00_jprb, 0.871066e+00_jprb &
21555  &, 0.860996e+00_jprb, 0.850602e+00_jprb, 0.839886e+00_jprb, 0.828856e+00_jprb &
21556  &, 0.817530e+00_jprb, 0.805908e+00_jprb, 0.794009e+00_jprb &
21557  &, 0.781838e+00_jprb, 0.769410e+00_jprb, 0.756737e+00_jprb, 0.743833e+00_jprb &
21558  &, 0.730706e+00_jprb, 0.717368e+00_jprb, 0.703842e+00_jprb &
21559  &, 0.690138e+00_jprb, 0.676269e+00_jprb, 0.662254e+00_jprb, 0.648108e+00_jprb &
21560  &, 0.633832e+00_jprb, 0.619471e+00_jprb, 0.605018e+00_jprb &
21561  &, 0.590504e+00_jprb, 0.575927e+00_jprb, 0.561320e+00_jprb, 0.546697e+00_jprb &
21562  &, 0.532072e+00_jprb, 0.517459e+00_jprb, 0.502876e+00_jprb &
21563  &, 0.488352e+00_jprb, 0.473878e+00_jprb, 0.459499e+00_jprb, 0.445205e+00_jprb &
21564  &, 0.431030e+00_jprb, 0.416975e+00_jprb, 0.403059e+00_jprb &
21565  &, 0.389300e+00_jprb, 0.375697e+00_jprb, 0.362284e+00_jprb, 0.349076e+00_jprb &
21566  &, 0.336055e+00_jprb, 0.323250e+00_jprb, 0.310693e+00_jprb &
21567  &, 0.298359e+00_jprb, 0.286258e+00_jprb, 0.274435e+00_jprb, 0.262862e+00_jprb &
21568  &, 0.251563e+00_jprb, 0.240522e+00_jprb, 0.229783e+00_jprb &
21569  &, 0.219326e+00_jprb, 0.209152e+00_jprb, 0.199257e+00_jprb, 0.189680e+00_jprb &
21570  &, 0.180394e+00_jprb, 0.171391e+00_jprb, 0.162707e+00_jprb &
21571  &, 0.154307e+00_jprb, 0.146225e+00_jprb, 0.138422e+00_jprb, 0.130903e+00_jprb &
21572  &, 0.123701e+00_jprb, 0.116768e+00_jprb, 0.110105e+00_jprb &
21573  &, 0.103741e+00_jprb, 0.976476e-01_jprb, 0.918515e-01_jprb, 0.862917e-01_jprb &
21574  &, 0.809912e-01_jprb, 0.759434e-01_jprb, 0.711396e-01_jprb &
21575  &, 0.665697e-01_jprb, 0.622542e-01_jprb, 0.581482e-01_jprb, 0.542362e-01_jprb &
21576  &, 0.505687e-01_jprb, 0.470953e-01_jprb, 0.438315e-01_jprb &
21577  &, 0.407216e-01_jprb, 0.378147e-01_jprb, 0.350884e-01_jprb, 0.325184e-01_jprb &
21578  &, 0.300778e-01_jprb, 0.278157e-01_jprb, 0.257044e-01_jprb &
21579  &, 0.237543e-01_jprb, 0.218944e-01_jprb, 0.201731e-01_jprb, 0.185571e-01_jprb &
21580  &, 0.170535e-01_jprb, 0.156698e-01_jprb, 0.143691e-01_jprb &
21581  &, 0.131570e-01_jprb, 0.120847e-01_jprb, 0.110211e-01_jprb, 0.101089e-01_jprb &
21582  &, 0.921296e-02_jprb, 0.838354e-02_jprb, 0.767368e-02_jprb &
21583  &, 0.694003e-02_jprb, 0.633405e-02_jprb, 0.575946e-02_jprb, 0.521825e-02_jprb &
21584  &, 0.471245e-02_jprb, 0.429772e-02_jprb, 0.386973e-02_jprb &
21585  &, 0.348346e-02_jprb, 0.314108e-02_jprb, 0.284480e-02_jprb, 0.253937e-02_jprb &
21586  &, 0.228298e-02_jprb, 0.207791e-02_jprb, 0.186661e-02_jprb &
21587  &, 0.164902e-02_jprb, 0.148657e-02_jprb, 0.131934e-02_jprb, 0.121044e-02_jprb &
21588  &, 0.103429e-02_jprb, 0.918065e-03_jprb, 0.864245e-03_jprb/)
21589 xcw( 493, :) = (/ &
21590  & 0.994792e+00_jprb, 0.992453e+00_jprb, 0.989701e+00_jprb, 0.986541e+00_jprb &
21591  &, 0.982969e+00_jprb, 0.978990e+00_jprb, 0.974606e+00_jprb &
21592  &, 0.969818e+00_jprb, 0.964629e+00_jprb, 0.959043e+00_jprb, 0.953061e+00_jprb &
21593  &, 0.946688e+00_jprb, 0.939929e+00_jprb, 0.932785e+00_jprb &
21594  &, 0.925263e+00_jprb, 0.917365e+00_jprb, 0.909097e+00_jprb, 0.900466e+00_jprb &
21595  &, 0.891478e+00_jprb, 0.882139e+00_jprb, 0.872453e+00_jprb &
21596  &, 0.862432e+00_jprb, 0.852080e+00_jprb, 0.841410e+00_jprb, 0.830427e+00_jprb &
21597  &, 0.819142e+00_jprb, 0.807562e+00_jprb, 0.795699e+00_jprb &
21598  &, 0.783570e+00_jprb, 0.771177e+00_jprb, 0.758540e+00_jprb, 0.745664e+00_jprb &
21599  &, 0.732566e+00_jprb, 0.719262e+00_jprb, 0.705766e+00_jprb &
21600  &, 0.692082e+00_jprb, 0.678243e+00_jprb, 0.664248e+00_jprb, 0.650113e+00_jprb &
21601  &, 0.635868e+00_jprb, 0.621515e+00_jprb, 0.607082e+00_jprb &
21602  &, 0.592575e+00_jprb, 0.578004e+00_jprb, 0.563414e+00_jprb, 0.548796e+00_jprb &
21603  &, 0.534173e+00_jprb, 0.519563e+00_jprb, 0.504980e+00_jprb &
21604  &, 0.490441e+00_jprb, 0.475978e+00_jprb, 0.461580e+00_jprb, 0.447280e+00_jprb &
21605  &, 0.433082e+00_jprb, 0.419017e+00_jprb, 0.405088e+00_jprb &
21606  &, 0.391314e+00_jprb, 0.377695e+00_jprb, 0.364263e+00_jprb, 0.351018e+00_jprb &
21607  &, 0.337990e+00_jprb, 0.325160e+00_jprb, 0.312574e+00_jprb &
21608  &, 0.300210e+00_jprb, 0.288075e+00_jprb, 0.276217e+00_jprb, 0.264605e+00_jprb &
21609  &, 0.253285e+00_jprb, 0.242220e+00_jprb, 0.231435e+00_jprb &
21610  &, 0.220929e+00_jprb, 0.210724e+00_jprb, 0.200795e+00_jprb, 0.191183e+00_jprb &
21611  &, 0.181837e+00_jprb, 0.172816e+00_jprb, 0.164090e+00_jprb &
21612  &, 0.155644e+00_jprb, 0.147515e+00_jprb, 0.139661e+00_jprb, 0.132116e+00_jprb &
21613  &, 0.124859e+00_jprb, 0.117894e+00_jprb, 0.111198e+00_jprb &
21614  &, 0.104799e+00_jprb, 0.986691e-01_jprb, 0.928055e-01_jprb, 0.872045e-01_jprb &
21615  &, 0.818610e-01_jprb, 0.767986e-01_jprb, 0.719482e-01_jprb &
21616  &, 0.673614e-01_jprb, 0.629956e-01_jprb, 0.588372e-01_jprb, 0.549040e-01_jprb &
21617  &, 0.512143e-01_jprb, 0.476830e-01_jprb, 0.443942e-01_jprb &
21618  &, 0.412582e-01_jprb, 0.383241e-01_jprb, 0.355695e-01_jprb, 0.329699e-01_jprb &
21619  &, 0.305369e-01_jprb, 0.282434e-01_jprb, 0.260997e-01_jprb &
21620  &, 0.241159e-01_jprb, 0.222211e-01_jprb, 0.204635e-01_jprb, 0.188521e-01_jprb &
21621  &, 0.173533e-01_jprb, 0.159308e-01_jprb, 0.146342e-01_jprb &
21622  &, 0.134262e-01_jprb, 0.122669e-01_jprb, 0.112524e-01_jprb, 0.102498e-01_jprb &
21623  &, 0.935601e-02_jprb, 0.857714e-02_jprb, 0.782106e-02_jprb &
21624  &, 0.708959e-02_jprb, 0.643524e-02_jprb, 0.586213e-02_jprb, 0.532242e-02_jprb &
21625  &, 0.481812e-02_jprb, 0.435132e-02_jprb, 0.397846e-02_jprb &
21626  &, 0.359373e-02_jprb, 0.325290e-02_jprb, 0.290149e-02_jprb, 0.259686e-02_jprb &
21627  &, 0.234126e-02_jprb, 0.213699e-02_jprb, 0.192650e-02_jprb &
21628  &, 0.170972e-02_jprb, 0.154810e-02_jprb, 0.138169e-02_jprb, 0.121044e-02_jprb &
21629  &, 0.109831e-02_jprb, 0.982926e-03_jprb, 0.864245e-03_jprb/)
21630 xcw( 494, :) = (/ &
21631  & 0.995041e+00_jprb, 0.992766e+00_jprb, 0.990075e+00_jprb, 0.986976e+00_jprb &
21632  &, 0.983465e+00_jprb, 0.979548e+00_jprb, 0.975224e+00_jprb &
21633  &, 0.970495e+00_jprb, 0.965365e+00_jprb, 0.959838e+00_jprb, 0.953915e+00_jprb &
21634  &, 0.947601e+00_jprb, 0.940897e+00_jprb, 0.933808e+00_jprb &
21635  &, 0.926341e+00_jprb, 0.918497e+00_jprb, 0.910283e+00_jprb, 0.901704e+00_jprb &
21636  &, 0.892768e+00_jprb, 0.883478e+00_jprb, 0.873841e+00_jprb &
21637  &, 0.863868e+00_jprb, 0.853562e+00_jprb, 0.842937e+00_jprb, 0.831997e+00_jprb &
21638  &, 0.820753e+00_jprb, 0.809216e+00_jprb, 0.797394e+00_jprb &
21639  &, 0.785299e+00_jprb, 0.772944e+00_jprb, 0.760343e+00_jprb, 0.747500e+00_jprb &
21640  &, 0.734434e+00_jprb, 0.721160e+00_jprb, 0.707689e+00_jprb &
21641  &, 0.694035e+00_jprb, 0.680218e+00_jprb, 0.666243e+00_jprb, 0.652128e+00_jprb &
21642  &, 0.637903e+00_jprb, 0.623570e+00_jprb, 0.609145e+00_jprb &
21643  &, 0.594646e+00_jprb, 0.580093e+00_jprb, 0.565509e+00_jprb, 0.550894e+00_jprb &
21644  &, 0.536275e+00_jprb, 0.521666e+00_jprb, 0.507083e+00_jprb &
21645  &, 0.492544e+00_jprb, 0.478064e+00_jprb, 0.463675e+00_jprb, 0.449355e+00_jprb &
21646  &, 0.435163e+00_jprb, 0.421073e+00_jprb, 0.407133e+00_jprb &
21647  &, 0.393329e+00_jprb, 0.379709e+00_jprb, 0.366259e+00_jprb, 0.352993e+00_jprb &
21648  &, 0.339925e+00_jprb, 0.327069e+00_jprb, 0.314456e+00_jprb &
21649  &, 0.302061e+00_jprb, 0.289912e+00_jprb, 0.278018e+00_jprb, 0.266368e+00_jprb &
21650  &, 0.255006e+00_jprb, 0.243898e+00_jprb, 0.233087e+00_jprb &
21651  &, 0.222553e+00_jprb, 0.212296e+00_jprb, 0.202334e+00_jprb, 0.192686e+00_jprb &
21652  &, 0.183302e+00_jprb, 0.174242e+00_jprb, 0.165472e+00_jprb &
21653  &, 0.156982e+00_jprb, 0.148805e+00_jprb, 0.140926e+00_jprb, 0.133328e+00_jprb &
21654  &, 0.126042e+00_jprb, 0.119020e+00_jprb, 0.112291e+00_jprb &
21655  &, 0.105858e+00_jprb, 0.996906e-01_jprb, 0.937883e-01_jprb, 0.881469e-01_jprb &
21656  &, 0.827608e-01_jprb, 0.776538e-01_jprb, 0.727569e-01_jprb &
21657  &, 0.681213e-01_jprb, 0.637370e-01_jprb, 0.595590e-01_jprb, 0.556052e-01_jprb &
21658  &, 0.518598e-01_jprb, 0.483052e-01_jprb, 0.449569e-01_jprb &
21659  &, 0.418306e-01_jprb, 0.388699e-01_jprb, 0.360505e-01_jprb, 0.334214e-01_jprb &
21660  &, 0.309577e-01_jprb, 0.286712e-01_jprb, 0.264950e-01_jprb &
21661  &, 0.244775e-01_jprb, 0.225885e-01_jprb, 0.207954e-01_jprb, 0.191472e-01_jprb &
21662  &, 0.176102e-01_jprb, 0.161918e-01_jprb, 0.148551e-01_jprb &
21663  &, 0.136506e-01_jprb, 0.124947e-01_jprb, 0.114375e-01_jprb, 0.104377e-01_jprb &
21664  &, 0.954674e-02_jprb, 0.872235e-02_jprb, 0.796843e-02_jprb &
21665  &, 0.723916e-02_jprb, 0.658701e-02_jprb, 0.596480e-02_jprb, 0.542658e-02_jprb &
21666  &, 0.492380e-02_jprb, 0.445851e-02_jprb, 0.403282e-02_jprb &
21667  &, 0.364886e-02_jprb, 0.330882e-02_jprb, 0.295819e-02_jprb, 0.265434e-02_jprb &
21668  &, 0.239954e-02_jprb, 0.219607e-02_jprb, 0.192650e-02_jprb &
21669  &, 0.177043e-02_jprb, 0.154810e-02_jprb, 0.138169e-02_jprb, 0.127362e-02_jprb &
21670  &, 0.109831e-02_jprb, 0.982926e-03_jprb, 0.864245e-03_jprb/)
21671 xcw( 495, :) = (/ &
21672  & 0.995294e+00_jprb, 0.993079e+00_jprb, 0.990451e+00_jprb, 0.987412e+00_jprb &
21673  &, 0.983963e+00_jprb, 0.980106e+00_jprb, 0.975841e+00_jprb &
21674  &, 0.971173e+00_jprb, 0.966103e+00_jprb, 0.960634e+00_jprb, 0.954770e+00_jprb &
21675  &, 0.948512e+00_jprb, 0.941865e+00_jprb, 0.934833e+00_jprb &
21676  &, 0.927420e+00_jprb, 0.919630e+00_jprb, 0.911469e+00_jprb, 0.902944e+00_jprb &
21677  &, 0.894057e+00_jprb, 0.884817e+00_jprb, 0.875229e+00_jprb &
21678  &, 0.865303e+00_jprb, 0.855048e+00_jprb, 0.844467e+00_jprb, 0.833570e+00_jprb &
21679  &, 0.822368e+00_jprb, 0.810874e+00_jprb, 0.799092e+00_jprb &
21680  &, 0.787035e+00_jprb, 0.774715e+00_jprb, 0.762146e+00_jprb, 0.749339e+00_jprb &
21681  &, 0.736307e+00_jprb, 0.723062e+00_jprb, 0.709617e+00_jprb &
21682  &, 0.695989e+00_jprb, 0.682192e+00_jprb, 0.668238e+00_jprb, 0.654153e+00_jprb &
21683  &, 0.639938e+00_jprb, 0.625625e+00_jprb, 0.611209e+00_jprb &
21684  &, 0.596728e+00_jprb, 0.582193e+00_jprb, 0.567603e+00_jprb, 0.552993e+00_jprb &
21685  &, 0.538377e+00_jprb, 0.523782e+00_jprb, 0.509200e+00_jprb &
21686  &, 0.494659e+00_jprb, 0.480177e+00_jprb, 0.465770e+00_jprb, 0.451444e+00_jprb &
21687  &, 0.437229e+00_jprb, 0.423144e+00_jprb, 0.409177e+00_jprb &
21688  &, 0.395375e+00_jprb, 0.381723e+00_jprb, 0.368238e+00_jprb, 0.354968e+00_jprb &
21689  &, 0.341877e+00_jprb, 0.328996e+00_jprb, 0.316355e+00_jprb &
21690  &, 0.303930e+00_jprb, 0.291748e+00_jprb, 0.279819e+00_jprb, 0.268150e+00_jprb &
21691  &, 0.256748e+00_jprb, 0.245617e+00_jprb, 0.234759e+00_jprb &
21692  &, 0.224177e+00_jprb, 0.213889e+00_jprb, 0.203895e+00_jprb, 0.194190e+00_jprb &
21693  &, 0.184791e+00_jprb, 0.175667e+00_jprb, 0.166855e+00_jprb &
21694  &, 0.158344e+00_jprb, 0.150120e+00_jprb, 0.142191e+00_jprb, 0.134567e+00_jprb &
21695  &, 0.127226e+00_jprb, 0.120173e+00_jprb, 0.113412e+00_jprb &
21696  &, 0.106916e+00_jprb, 0.100712e+00_jprb, 0.947712e-01_jprb, 0.890892e-01_jprb &
21697  &, 0.836606e-01_jprb, 0.785091e-01_jprb, 0.735966e-01_jprb &
21698  &, 0.689129e-01_jprb, 0.644784e-01_jprb, 0.602808e-01_jprb, 0.562730e-01_jprb &
21699  &, 0.525054e-01_jprb, 0.489275e-01_jprb, 0.455548e-01_jprb &
21700  &, 0.423672e-01_jprb, 0.393793e-01_jprb, 0.365685e-01_jprb, 0.339105e-01_jprb &
21701  &, 0.314167e-01_jprb, 0.290601e-01_jprb, 0.268903e-01_jprb &
21702  &, 0.248391e-01_jprb, 0.229152e-01_jprb, 0.211273e-01_jprb, 0.194844e-01_jprb &
21703  &, 0.179100e-01_jprb, 0.164528e-01_jprb, 0.151202e-01_jprb &
21704  &, 0.138749e-01_jprb, 0.127226e-01_jprb, 0.116225e-01_jprb, 0.106255e-01_jprb &
21705  &, 0.973748e-02_jprb, 0.886756e-02_jprb, 0.811581e-02_jprb &
21706  &, 0.738873e-02_jprb, 0.673879e-02_jprb, 0.611880e-02_jprb, 0.553075e-02_jprb &
21707  &, 0.502947e-02_jprb, 0.456570e-02_jprb, 0.414154e-02_jprb &
21708  &, 0.375913e-02_jprb, 0.336473e-02_jprb, 0.301488e-02_jprb, 0.276931e-02_jprb &
21709  &, 0.245782e-02_jprb, 0.219607e-02_jprb, 0.198639e-02_jprb &
21710  &, 0.177043e-02_jprb, 0.160962e-02_jprb, 0.144404e-02_jprb, 0.127362e-02_jprb &
21711  &, 0.116233e-02_jprb, 0.104779e-02_jprb, 0.929956e-03_jprb/)
21712 xcw( 496, :) = (/ &
21713  & 0.995543e+00_jprb, 0.993392e+00_jprb, 0.990825e+00_jprb, 0.987848e+00_jprb &
21714  &, 0.984460e+00_jprb, 0.980663e+00_jprb, 0.976460e+00_jprb &
21715  &, 0.971851e+00_jprb, 0.966841e+00_jprb, 0.961430e+00_jprb, 0.955624e+00_jprb &
21716  &, 0.949424e+00_jprb, 0.942834e+00_jprb, 0.935858e+00_jprb &
21717  &, 0.928500e+00_jprb, 0.920765e+00_jprb, 0.912657e+00_jprb, 0.904183e+00_jprb &
21718  &, 0.895349e+00_jprb, 0.886158e+00_jprb, 0.876620e+00_jprb &
21719  &, 0.866742e+00_jprb, 0.856533e+00_jprb, 0.845998e+00_jprb, 0.835144e+00_jprb &
21720  &, 0.823987e+00_jprb, 0.812532e+00_jprb, 0.800790e+00_jprb &
21721  &, 0.788771e+00_jprb, 0.776490e+00_jprb, 0.763957e+00_jprb, 0.751183e+00_jprb &
21722  &, 0.738180e+00_jprb, 0.724964e+00_jprb, 0.711549e+00_jprb &
21723  &, 0.697942e+00_jprb, 0.684175e+00_jprb, 0.670242e+00_jprb, 0.656178e+00_jprb &
21724  &, 0.641984e+00_jprb, 0.627680e+00_jprb, 0.613283e+00_jprb &
21725  &, 0.598821e+00_jprb, 0.584282e+00_jprb, 0.569709e+00_jprb, 0.555103e+00_jprb &
21726  &, 0.540503e+00_jprb, 0.525898e+00_jprb, 0.511316e+00_jprb &
21727  &, 0.496775e+00_jprb, 0.482290e+00_jprb, 0.467866e+00_jprb, 0.453547e+00_jprb &
21728  &, 0.439325e+00_jprb, 0.425215e+00_jprb, 0.411236e+00_jprb &
21729  &, 0.397405e+00_jprb, 0.383737e+00_jprb, 0.370250e+00_jprb, 0.356943e+00_jprb &
21730  &, 0.343830e+00_jprb, 0.330923e+00_jprb, 0.318254e+00_jprb &
21731  &, 0.305799e+00_jprb, 0.293584e+00_jprb, 0.281639e+00_jprb, 0.269932e+00_jprb &
21732  &, 0.258490e+00_jprb, 0.247315e+00_jprb, 0.236432e+00_jprb &
21733  &, 0.225822e+00_jprb, 0.215482e+00_jprb, 0.205456e+00_jprb, 0.195716e+00_jprb &
21734  &, 0.186256e+00_jprb, 0.177116e+00_jprb, 0.168262e+00_jprb &
21735  &, 0.159706e+00_jprb, 0.151435e+00_jprb, 0.143482e+00_jprb, 0.135805e+00_jprb &
21736  &, 0.128409e+00_jprb, 0.121326e+00_jprb, 0.114505e+00_jprb &
21737  &, 0.107974e+00_jprb, 0.101734e+00_jprb, 0.957541e-01_jprb, 0.900315e-01_jprb &
21738  &, 0.845904e-01_jprb, 0.793949e-01_jprb, 0.744364e-01_jprb &
21739  &, 0.697362e-01_jprb, 0.652520e-01_jprb, 0.610026e-01_jprb, 0.569742e-01_jprb &
21740  &, 0.531510e-01_jprb, 0.495498e-01_jprb, 0.461527e-01_jprb &
21741  &, 0.429396e-01_jprb, 0.399251e-01_jprb, 0.370496e-01_jprb, 0.343996e-01_jprb &
21742  &, 0.318758e-01_jprb, 0.294879e-01_jprb, 0.272856e-01_jprb &
21743  &, 0.252007e-01_jprb, 0.232826e-01_jprb, 0.214592e-01_jprb, 0.197795e-01_jprb &
21744  &, 0.182098e-01_jprb, 0.167573e-01_jprb, 0.153853e-01_jprb &
21745  &, 0.140993e-01_jprb, 0.129504e-01_jprb, 0.118539e-01_jprb, 0.108604e-01_jprb &
21746  &, 0.992821e-02_jprb, 0.906116e-02_jprb, 0.826319e-02_jprb &
21747  &, 0.753830e-02_jprb, 0.683998e-02_jprb, 0.622147e-02_jprb, 0.563491e-02_jprb &
21748  &, 0.513514e-02_jprb, 0.467289e-02_jprb, 0.419591e-02_jprb &
21749  &, 0.381427e-02_jprb, 0.342064e-02_jprb, 0.312828e-02_jprb, 0.282680e-02_jprb &
21750  &, 0.251610e-02_jprb, 0.225516e-02_jprb, 0.204629e-02_jprb &
21751  &, 0.183113e-02_jprb, 0.167115e-02_jprb, 0.144404e-02_jprb, 0.133680e-02_jprb &
21752  &, 0.116233e-02_jprb, 0.104779e-02_jprb, 0.929956e-03_jprb/)
21753 xcw( 497, :) = (/ &
21754  & 0.995792e+00_jprb, 0.993704e+00_jprb, 0.991199e+00_jprb, 0.988285e+00_jprb &
21755  &, 0.984957e+00_jprb, 0.981221e+00_jprb, 0.977078e+00_jprb &
21756  &, 0.972530e+00_jprb, 0.967579e+00_jprb, 0.962228e+00_jprb, 0.956479e+00_jprb &
21757  &, 0.950336e+00_jprb, 0.943803e+00_jprb, 0.936882e+00_jprb &
21758  &, 0.929581e+00_jprb, 0.921900e+00_jprb, 0.913846e+00_jprb, 0.905425e+00_jprb &
21759  &, 0.896641e+00_jprb, 0.887500e+00_jprb, 0.878014e+00_jprb &
21760  &, 0.868185e+00_jprb, 0.858019e+00_jprb, 0.847528e+00_jprb, 0.836721e+00_jprb &
21761  &, 0.825605e+00_jprb, 0.814193e+00_jprb, 0.802492e+00_jprb &
21762  &, 0.790511e+00_jprb, 0.778266e+00_jprb, 0.765768e+00_jprb, 0.753027e+00_jprb &
21763  &, 0.740057e+00_jprb, 0.726871e+00_jprb, 0.713486e+00_jprb &
21764  &, 0.699905e+00_jprb, 0.686159e+00_jprb, 0.672257e+00_jprb, 0.658203e+00_jprb &
21765  &, 0.644029e+00_jprb, 0.629745e+00_jprb, 0.615368e+00_jprb &
21766  &, 0.600903e+00_jprb, 0.586382e+00_jprb, 0.571815e+00_jprb, 0.557226e+00_jprb &
21767  &, 0.542617e+00_jprb, 0.528014e+00_jprb, 0.513433e+00_jprb &
21768  &, 0.498890e+00_jprb, 0.484403e+00_jprb, 0.469974e+00_jprb, 0.455650e+00_jprb &
21769  &, 0.441406e+00_jprb, 0.427286e+00_jprb, 0.413296e+00_jprb &
21770  &, 0.399450e+00_jprb, 0.385767e+00_jprb, 0.372262e+00_jprb, 0.358935e+00_jprb &
21771  &, 0.345799e+00_jprb, 0.332868e+00_jprb, 0.320171e+00_jprb &
21772  &, 0.307686e+00_jprb, 0.295439e+00_jprb, 0.283459e+00_jprb, 0.271715e+00_jprb &
21773  &, 0.260251e+00_jprb, 0.249034e+00_jprb, 0.238105e+00_jprb &
21774  &, 0.227466e+00_jprb, 0.217097e+00_jprb, 0.207038e+00_jprb, 0.197241e+00_jprb &
21775  &, 0.187768e+00_jprb, 0.178565e+00_jprb, 0.169669e+00_jprb &
21776  &, 0.161068e+00_jprb, 0.152774e+00_jprb, 0.144772e+00_jprb, 0.137043e+00_jprb &
21777  &, 0.129619e+00_jprb, 0.122479e+00_jprb, 0.115625e+00_jprb &
21778  &, 0.109060e+00_jprb, 0.102783e+00_jprb, 0.967370e-01_jprb, 0.910033e-01_jprb &
21779  &, 0.854902e-01_jprb, 0.802501e-01_jprb, 0.752761e-01_jprb &
21780  &, 0.705279e-01_jprb, 0.660256e-01_jprb, 0.617244e-01_jprb, 0.576754e-01_jprb &
21781  &, 0.538305e-01_jprb, 0.502066e-01_jprb, 0.467505e-01_jprb &
21782  &, 0.435120e-01_jprb, 0.404708e-01_jprb, 0.375676e-01_jprb, 0.348511e-01_jprb &
21783  &, 0.323348e-01_jprb, 0.299157e-01_jprb, 0.276809e-01_jprb &
21784  &, 0.256024e-01_jprb, 0.236501e-01_jprb, 0.217911e-01_jprb, 0.200745e-01_jprb &
21785  &, 0.185095e-01_jprb, 0.170183e-01_jprb, 0.156504e-01_jprb &
21786  &, 0.143685e-01_jprb, 0.131782e-01_jprb, 0.120389e-01_jprb, 0.110483e-01_jprb &
21787  &, 0.100713e-01_jprb, 0.920637e-02_jprb, 0.841057e-02_jprb &
21788  &, 0.768787e-02_jprb, 0.699175e-02_jprb, 0.637548e-02_jprb, 0.579116e-02_jprb &
21789  &, 0.524082e-02_jprb, 0.472649e-02_jprb, 0.430463e-02_jprb &
21790  &, 0.386940e-02_jprb, 0.353246e-02_jprb, 0.318497e-02_jprb, 0.288428e-02_jprb &
21791  &, 0.257438e-02_jprb, 0.231424e-02_jprb, 0.210618e-02_jprb &
21792  &, 0.189183e-02_jprb, 0.167115e-02_jprb, 0.150639e-02_jprb, 0.133680e-02_jprb &
21793  &, 0.122635e-02_jprb, 0.104779e-02_jprb, 0.929956e-03_jprb/)
21794 
21795 IF (lhook) CALL dr_hook('SU_MCICA:PART71',1,zhook_handle)
21796 END SUBROUTINE part71
21797 
21798 #ifdef VPP5000
21799 !OCL SCALAR
21800 #endif
21801 !option! -Nv -NO
21802 #ifdef RS6K
21803 @process nooptimize
21804 #endif
21805 !pgi$r opt=0
21806 SUBROUTINE part72
21807 
21808 REAL(KIND=JPRB) :: ZHOOK_HANDLE
21809 IF (lhook) CALL dr_hook('SU_MCICA:PART72',0,zhook_handle)
21810 
21811 xcw( 498, :) = (/ &
21812  & 0.996044e+00_jprb, 0.994016e+00_jprb, 0.991573e+00_jprb, 0.988720e+00_jprb &
21813  &, 0.985454e+00_jprb, 0.981780e+00_jprb, 0.977697e+00_jprb &
21814  &, 0.973209e+00_jprb, 0.968317e+00_jprb, 0.963025e+00_jprb, 0.957335e+00_jprb &
21815  &, 0.951250e+00_jprb, 0.944773e+00_jprb, 0.937909e+00_jprb &
21816  &, 0.930661e+00_jprb, 0.923035e+00_jprb, 0.915035e+00_jprb, 0.906666e+00_jprb &
21817  &, 0.897936e+00_jprb, 0.888846e+00_jprb, 0.879408e+00_jprb &
21818  &, 0.869627e+00_jprb, 0.859508e+00_jprb, 0.849065e+00_jprb, 0.838302e+00_jprb &
21819  &, 0.827228e+00_jprb, 0.815855e+00_jprb, 0.804194e+00_jprb &
21820  &, 0.792255e+00_jprb, 0.780045e+00_jprb, 0.767583e+00_jprb, 0.754875e+00_jprb &
21821  &, 0.741935e+00_jprb, 0.728783e+00_jprb, 0.715423e+00_jprb &
21822  &, 0.701876e+00_jprb, 0.688152e+00_jprb, 0.674271e+00_jprb, 0.660239e+00_jprb &
21823  &, 0.646085e+00_jprb, 0.631811e+00_jprb, 0.617453e+00_jprb &
21824  &, 0.603007e+00_jprb, 0.588493e+00_jprb, 0.573932e+00_jprb, 0.559348e+00_jprb &
21825  &, 0.544743e+00_jprb, 0.530142e+00_jprb, 0.515562e+00_jprb &
21826  &, 0.501019e+00_jprb, 0.486529e+00_jprb, 0.472097e+00_jprb, 0.457753e+00_jprb &
21827  &, 0.443501e+00_jprb, 0.429372e+00_jprb, 0.415370e+00_jprb &
21828  &, 0.401511e+00_jprb, 0.387813e+00_jprb, 0.374274e+00_jprb, 0.360926e+00_jprb &
21829  &, 0.347768e+00_jprb, 0.334812e+00_jprb, 0.322088e+00_jprb &
21830  &, 0.309573e+00_jprb, 0.297313e+00_jprb, 0.285279e+00_jprb, 0.273516e+00_jprb &
21831  &, 0.262013e+00_jprb, 0.250772e+00_jprb, 0.239798e+00_jprb &
21832  &, 0.229132e+00_jprb, 0.218712e+00_jprb, 0.208577e+00_jprb, 0.198790e+00_jprb &
21833  &, 0.189256e+00_jprb, 0.180037e+00_jprb, 0.171099e+00_jprb &
21834  &, 0.162454e+00_jprb, 0.154114e+00_jprb, 0.146062e+00_jprb, 0.138307e+00_jprb &
21835  &, 0.130829e+00_jprb, 0.123658e+00_jprb, 0.116773e+00_jprb &
21836  &, 0.110146e+00_jprb, 0.103833e+00_jprb, 0.977488e-01_jprb, 0.919751e-01_jprb &
21837  &, 0.864200e-01_jprb, 0.811664e-01_jprb, 0.761158e-01_jprb &
21838  &, 0.713512e-01_jprb, 0.667992e-01_jprb, 0.624790e-01_jprb, 0.583766e-01_jprb &
21839  &, 0.545101e-01_jprb, 0.508289e-01_jprb, 0.473836e-01_jprb &
21840  &, 0.440844e-01_jprb, 0.410166e-01_jprb, 0.380856e-01_jprb, 0.353403e-01_jprb &
21841  &, 0.327939e-01_jprb, 0.303823e-01_jprb, 0.281157e-01_jprb &
21842  &, 0.260042e-01_jprb, 0.240176e-01_jprb, 0.221645e-01_jprb, 0.204118e-01_jprb &
21843  &, 0.188093e-01_jprb, 0.172793e-01_jprb, 0.159155e-01_jprb &
21844  &, 0.145929e-01_jprb, 0.134060e-01_jprb, 0.122703e-01_jprb, 0.112362e-01_jprb &
21845  &, 0.102620e-01_jprb, 0.939998e-02_jprb, 0.855795e-02_jprb &
21846  &, 0.783744e-02_jprb, 0.709294e-02_jprb, 0.647815e-02_jprb, 0.589533e-02_jprb &
21847  &, 0.534649e-02_jprb, 0.483368e-02_jprb, 0.441336e-02_jprb &
21848  &, 0.397967e-02_jprb, 0.358838e-02_jprb, 0.324167e-02_jprb, 0.294177e-02_jprb &
21849  &, 0.263266e-02_jprb, 0.237332e-02_jprb, 0.216607e-02_jprb &
21850  &, 0.195254e-02_jprb, 0.173267e-02_jprb, 0.156874e-02_jprb, 0.139998e-02_jprb &
21851  &, 0.122635e-02_jprb, 0.111265e-02_jprb, 0.995667e-03_jprb/)
21852 xcw( 499, :) = (/ &
21853  & 0.996294e+00_jprb, 0.994328e+00_jprb, 0.991947e+00_jprb, 0.989156e+00_jprb &
21854  &, 0.985952e+00_jprb, 0.982338e+00_jprb, 0.978316e+00_jprb &
21855  &, 0.973888e+00_jprb, 0.969056e+00_jprb, 0.963823e+00_jprb, 0.958191e+00_jprb &
21856  &, 0.952164e+00_jprb, 0.945744e+00_jprb, 0.938936e+00_jprb &
21857  &, 0.931745e+00_jprb, 0.924173e+00_jprb, 0.916226e+00_jprb, 0.907910e+00_jprb &
21858  &, 0.899231e+00_jprb, 0.890191e+00_jprb, 0.880803e+00_jprb &
21859  &, 0.871069e+00_jprb, 0.861000e+00_jprb, 0.850599e+00_jprb, 0.839883e+00_jprb &
21860  &, 0.828854e+00_jprb, 0.817524e+00_jprb, 0.805900e+00_jprb &
21861  &, 0.793998e+00_jprb, 0.781828e+00_jprb, 0.769398e+00_jprb, 0.756727e+00_jprb &
21862  &, 0.743820e+00_jprb, 0.730694e+00_jprb, 0.717364e+00_jprb &
21863  &, 0.703839e+00_jprb, 0.690145e+00_jprb, 0.676285e+00_jprb, 0.662274e+00_jprb &
21864  &, 0.648140e+00_jprb, 0.633887e+00_jprb, 0.619538e+00_jprb &
21865  &, 0.605111e+00_jprb, 0.590605e+00_jprb, 0.576061e+00_jprb, 0.561471e+00_jprb &
21866  &, 0.546881e+00_jprb, 0.532283e+00_jprb, 0.517704e+00_jprb &
21867  &, 0.503147e+00_jprb, 0.488656e+00_jprb, 0.474220e+00_jprb, 0.459870e+00_jprb &
21868  &, 0.445611e+00_jprb, 0.431473e+00_jprb, 0.417460e+00_jprb &
21869  &, 0.403573e+00_jprb, 0.389858e+00_jprb, 0.376302e+00_jprb, 0.362935e+00_jprb &
21870  &, 0.349754e+00_jprb, 0.336774e+00_jprb, 0.324005e+00_jprb &
21871  &, 0.311479e+00_jprb, 0.299186e+00_jprb, 0.287118e+00_jprb, 0.275318e+00_jprb &
21872  &, 0.263794e+00_jprb, 0.252511e+00_jprb, 0.241512e+00_jprb &
21873  &, 0.230798e+00_jprb, 0.220349e+00_jprb, 0.210204e+00_jprb, 0.200338e+00_jprb &
21874  &, 0.190768e+00_jprb, 0.181509e+00_jprb, 0.172530e+00_jprb &
21875  &, 0.163841e+00_jprb, 0.155453e+00_jprb, 0.147352e+00_jprb, 0.139571e+00_jprb &
21876  &, 0.132065e+00_jprb, 0.124838e+00_jprb, 0.117893e+00_jprb &
21877  &, 0.111260e+00_jprb, 0.104883e+00_jprb, 0.987895e-01_jprb, 0.929468e-01_jprb &
21878  &, 0.873798e-01_jprb, 0.820522e-01_jprb, 0.769867e-01_jprb &
21879  &, 0.721744e-01_jprb, 0.675728e-01_jprb, 0.632337e-01_jprb, 0.591112e-01_jprb &
21880  &, 0.551897e-01_jprb, 0.514857e-01_jprb, 0.479815e-01_jprb &
21881  &, 0.446926e-01_jprb, 0.415624e-01_jprb, 0.386037e-01_jprb, 0.358670e-01_jprb &
21882  &, 0.332529e-01_jprb, 0.308101e-01_jprb, 0.285110e-01_jprb &
21883  &, 0.263658e-01_jprb, 0.243850e-01_jprb, 0.224964e-01_jprb, 0.207490e-01_jprb &
21884  &, 0.191090e-01_jprb, 0.175838e-01_jprb, 0.161806e-01_jprb &
21885  &, 0.148621e-01_jprb, 0.136339e-01_jprb, 0.125016e-01_jprb, 0.114241e-01_jprb &
21886  &, 0.104527e-01_jprb, 0.954518e-02_jprb, 0.875445e-02_jprb &
21887  &, 0.798701e-02_jprb, 0.724472e-02_jprb, 0.658082e-02_jprb, 0.599949e-02_jprb &
21888  &, 0.545216e-02_jprb, 0.494088e-02_jprb, 0.446772e-02_jprb &
21889  &, 0.408994e-02_jprb, 0.370020e-02_jprb, 0.329836e-02_jprb, 0.299926e-02_jprb &
21890  &, 0.269095e-02_jprb, 0.243241e-02_jprb, 0.216607e-02_jprb &
21891  &, 0.195254e-02_jprb, 0.179419e-02_jprb, 0.156874e-02_jprb, 0.139998e-02_jprb &
21892  &, 0.129037e-02_jprb, 0.111265e-02_jprb, 0.995667e-03_jprb/)
21893 xcw( 500, :) = (/ &
21894  & 0.996546e+00_jprb, 0.994643e+00_jprb, 0.992322e+00_jprb, 0.989592e+00_jprb &
21895  &, 0.986450e+00_jprb, 0.982897e+00_jprb, 0.978935e+00_jprb &
21896  &, 0.974568e+00_jprb, 0.969795e+00_jprb, 0.964579e+00_jprb, 0.959048e+00_jprb &
21897  &, 0.953078e+00_jprb, 0.946716e+00_jprb, 0.939964e+00_jprb &
21898  &, 0.932827e+00_jprb, 0.925312e+00_jprb, 0.917418e+00_jprb, 0.909155e+00_jprb &
21899  &, 0.900527e+00_jprb, 0.891539e+00_jprb, 0.882200e+00_jprb &
21900  &, 0.872515e+00_jprb, 0.862492e+00_jprb, 0.852140e+00_jprb, 0.841464e+00_jprb &
21901  &, 0.830479e+00_jprb, 0.819189e+00_jprb, 0.807610e+00_jprb &
21902  &, 0.795746e+00_jprb, 0.783611e+00_jprb, 0.771217e+00_jprb, 0.758579e+00_jprb &
21903  &, 0.745706e+00_jprb, 0.732614e+00_jprb, 0.719310e+00_jprb &
21904  &, 0.705811e+00_jprb, 0.692138e+00_jprb, 0.678309e+00_jprb, 0.664319e+00_jprb &
21905  &, 0.650207e+00_jprb, 0.635973e+00_jprb, 0.621634e+00_jprb &
21906  &, 0.607216e+00_jprb, 0.592727e+00_jprb, 0.578191e+00_jprb, 0.563605e+00_jprb &
21907  &, 0.549019e+00_jprb, 0.534424e+00_jprb, 0.519846e+00_jprb &
21908  &, 0.505289e+00_jprb, 0.490796e+00_jprb, 0.476356e+00_jprb, 0.461987e+00_jprb &
21909  &, 0.447721e+00_jprb, 0.433574e+00_jprb, 0.419534e+00_jprb &
21910  &, 0.405649e+00_jprb, 0.391904e+00_jprb, 0.378330e+00_jprb, 0.364943e+00_jprb &
21911  &, 0.351740e+00_jprb, 0.338735e+00_jprb, 0.325958e+00_jprb &
21912  &, 0.313384e+00_jprb, 0.301060e+00_jprb, 0.288975e+00_jprb, 0.277139e+00_jprb &
21913  &, 0.265575e+00_jprb, 0.254250e+00_jprb, 0.243226e+00_jprb &
21914  &, 0.232464e+00_jprb, 0.221985e+00_jprb, 0.211808e+00_jprb, 0.201909e+00_jprb &
21915  &, 0.192302e+00_jprb, 0.182981e+00_jprb, 0.173960e+00_jprb &
21916  &, 0.165227e+00_jprb, 0.156818e+00_jprb, 0.148668e+00_jprb, 0.140835e+00_jprb &
21917  &, 0.133275e+00_jprb, 0.126018e+00_jprb, 0.119041e+00_jprb &
21918  &, 0.112346e+00_jprb, 0.105933e+00_jprb, 0.998013e-01_jprb, 0.939186e-01_jprb &
21919  &, 0.883095e-01_jprb, 0.829686e-01_jprb, 0.778575e-01_jprb &
21920  &, 0.729977e-01_jprb, 0.683787e-01_jprb, 0.639883e-01_jprb, 0.598124e-01_jprb &
21921  &, 0.558692e-01_jprb, 0.521426e-01_jprb, 0.486145e-01_jprb &
21922  &, 0.452650e-01_jprb, 0.421082e-01_jprb, 0.391587e-01_jprb, 0.363562e-01_jprb &
21923  &, 0.337120e-01_jprb, 0.312768e-01_jprb, 0.289458e-01_jprb &
21924  &, 0.267675e-01_jprb, 0.247525e-01_jprb, 0.228283e-01_jprb, 0.210862e-01_jprb &
21925  &, 0.194088e-01_jprb, 0.178883e-01_jprb, 0.164457e-01_jprb &
21926  &, 0.150864e-01_jprb, 0.138617e-01_jprb, 0.127329e-01_jprb, 0.116589e-01_jprb &
21927  &, 0.106435e-01_jprb, 0.973879e-02_jprb, 0.890183e-02_jprb &
21928  &, 0.813658e-02_jprb, 0.739649e-02_jprb, 0.673482e-02_jprb, 0.610366e-02_jprb &
21929  &, 0.555784e-02_jprb, 0.504807e-02_jprb, 0.457644e-02_jprb &
21930  &, 0.414507e-02_jprb, 0.375611e-02_jprb, 0.341176e-02_jprb, 0.305674e-02_jprb &
21931  &, 0.274923e-02_jprb, 0.249149e-02_jprb, 0.222596e-02_jprb &
21932  &, 0.201324e-02_jprb, 0.179419e-02_jprb, 0.163109e-02_jprb, 0.146316e-02_jprb &
21933  &, 0.129037e-02_jprb, 0.117751e-02_jprb, 0.106138e-02_jprb/)
21934 xcw( 501, :) = (/ &
21935  & 0.996795e+00_jprb, 0.994954e+00_jprb, 0.992697e+00_jprb, 0.990029e+00_jprb &
21936  &, 0.986948e+00_jprb, 0.983456e+00_jprb, 0.979555e+00_jprb &
21937  &, 0.975247e+00_jprb, 0.970535e+00_jprb, 0.965420e+00_jprb, 0.959905e+00_jprb &
21938  &, 0.953993e+00_jprb, 0.947688e+00_jprb, 0.940993e+00_jprb &
21939  &, 0.933912e+00_jprb, 0.926450e+00_jprb, 0.918611e+00_jprb, 0.910401e+00_jprb &
21940  &, 0.901824e+00_jprb, 0.892887e+00_jprb, 0.883598e+00_jprb &
21941  &, 0.873960e+00_jprb, 0.863984e+00_jprb, 0.853678e+00_jprb, 0.843048e+00_jprb &
21942  &, 0.832094e+00_jprb, 0.820862e+00_jprb, 0.809319e+00_jprb &
21943  &, 0.797494e+00_jprb, 0.785398e+00_jprb, 0.773041e+00_jprb, 0.760436e+00_jprb &
21944  &, 0.747596e+00_jprb, 0.734534e+00_jprb, 0.721260e+00_jprb &
21945  &, 0.707792e+00_jprb, 0.694141e+00_jprb, 0.680333e+00_jprb, 0.666364e+00_jprb &
21946  &, 0.652273e+00_jprb, 0.638049e+00_jprb, 0.623730e+00_jprb &
21947  &, 0.609331e+00_jprb, 0.594850e+00_jprb, 0.580320e+00_jprb, 0.565751e+00_jprb &
21948  &, 0.551158e+00_jprb, 0.536565e+00_jprb, 0.521988e+00_jprb &
21949  &, 0.507444e+00_jprb, 0.492936e+00_jprb, 0.478493e+00_jprb, 0.464119e+00_jprb &
21950  &, 0.449845e+00_jprb, 0.435674e+00_jprb, 0.421639e+00_jprb &
21951  &, 0.407726e+00_jprb, 0.393966e+00_jprb, 0.380374e+00_jprb, 0.366968e+00_jprb &
21952  &, 0.353743e+00_jprb, 0.340714e+00_jprb, 0.327893e+00_jprb &
21953  &, 0.315308e+00_jprb, 0.302952e+00_jprb, 0.290833e+00_jprb, 0.278960e+00_jprb &
21954  &, 0.267356e+00_jprb, 0.256009e+00_jprb, 0.244940e+00_jprb &
21955  &, 0.234151e+00_jprb, 0.223643e+00_jprb, 0.213413e+00_jprb, 0.203479e+00_jprb &
21956  &, 0.193814e+00_jprb, 0.184477e+00_jprb, 0.175414e+00_jprb &
21957  &, 0.166638e+00_jprb, 0.158182e+00_jprb, 0.150009e+00_jprb, 0.142125e+00_jprb &
21958  &, 0.134537e+00_jprb, 0.127224e+00_jprb, 0.120216e+00_jprb &
21959  &, 0.113488e+00_jprb, 0.107011e+00_jprb, 0.100842e+00_jprb, 0.949198e-01_jprb &
21960  &, 0.892693e-01_jprb, 0.838849e-01_jprb, 0.787284e-01_jprb &
21961  &, 0.738210e-01_jprb, 0.691846e-01_jprb, 0.647429e-01_jprb, 0.605470e-01_jprb &
21962  &, 0.565827e-01_jprb, 0.527994e-01_jprb, 0.492476e-01_jprb &
21963  &, 0.458732e-01_jprb, 0.426904e-01_jprb, 0.396767e-01_jprb, 0.368453e-01_jprb &
21964  &, 0.342093e-01_jprb, 0.317046e-01_jprb, 0.293806e-01_jprb &
21965  &, 0.271693e-01_jprb, 0.251199e-01_jprb, 0.232017e-01_jprb, 0.214234e-01_jprb &
21966  &, 0.197514e-01_jprb, 0.181493e-01_jprb, 0.167108e-01_jprb &
21967  &, 0.153557e-01_jprb, 0.140895e-01_jprb, 0.129180e-01_jprb, 0.118468e-01_jprb &
21968  &, 0.108342e-01_jprb, 0.993240e-02_jprb, 0.904921e-02_jprb &
21969  &, 0.828614e-02_jprb, 0.754827e-02_jprb, 0.688882e-02_jprb, 0.625990e-02_jprb &
21970  &, 0.566351e-02_jprb, 0.515526e-02_jprb, 0.468517e-02_jprb &
21971  &, 0.425534e-02_jprb, 0.386794e-02_jprb, 0.346845e-02_jprb, 0.311423e-02_jprb &
21972  &, 0.280751e-02_jprb, 0.255057e-02_jprb, 0.228585e-02_jprb &
21973  &, 0.207395e-02_jprb, 0.185572e-02_jprb, 0.169343e-02_jprb, 0.146316e-02_jprb &
21974  &, 0.135439e-02_jprb, 0.117751e-02_jprb, 0.106138e-02_jprb/)
21975 xcw( 502, :) = (/ &
21976  & 0.997046e+00_jprb, 0.995266e+00_jprb, 0.993072e+00_jprb, 0.990466e+00_jprb &
21977  &, 0.987446e+00_jprb, 0.984015e+00_jprb, 0.980176e+00_jprb &
21978  &, 0.975927e+00_jprb, 0.971274e+00_jprb, 0.966219e+00_jprb, 0.960762e+00_jprb &
21979  &, 0.954908e+00_jprb, 0.948660e+00_jprb, 0.942022e+00_jprb &
21980  &, 0.934998e+00_jprb, 0.927589e+00_jprb, 0.919805e+00_jprb, 0.911648e+00_jprb &
21981  &, 0.903123e+00_jprb, 0.894236e+00_jprb, 0.884995e+00_jprb &
21982  &, 0.875409e+00_jprb, 0.865480e+00_jprb, 0.855222e+00_jprb, 0.844636e+00_jprb &
21983  &, 0.833739e+00_jprb, 0.822534e+00_jprb, 0.811033e+00_jprb &
21984  &, 0.799250e+00_jprb, 0.787189e+00_jprb, 0.774868e+00_jprb, 0.762296e+00_jprb &
21985  &, 0.749491e+00_jprb, 0.736458e+00_jprb, 0.723215e+00_jprb &
21986  &, 0.709773e+00_jprb, 0.696153e+00_jprb, 0.682357e+00_jprb, 0.668419e+00_jprb &
21987  &, 0.654339e+00_jprb, 0.640136e+00_jprb, 0.625836e+00_jprb &
21988  &, 0.611446e+00_jprb, 0.596973e+00_jprb, 0.582461e+00_jprb, 0.567898e+00_jprb &
21989  &, 0.553308e+00_jprb, 0.538718e+00_jprb, 0.524143e+00_jprb &
21990  &, 0.509586e+00_jprb, 0.495089e+00_jprb, 0.480629e+00_jprb, 0.466264e+00_jprb &
21991  &, 0.451969e+00_jprb, 0.437790e+00_jprb, 0.423744e+00_jprb &
21992  &, 0.409818e+00_jprb, 0.396043e+00_jprb, 0.382435e+00_jprb, 0.368992e+00_jprb &
21993  &, 0.355746e+00_jprb, 0.342693e+00_jprb, 0.329845e+00_jprb &
21994  &, 0.317231e+00_jprb, 0.304844e+00_jprb, 0.292710e+00_jprb, 0.280800e+00_jprb &
21995  &, 0.269157e+00_jprb, 0.257788e+00_jprb, 0.246675e+00_jprb &
21996  &, 0.235838e+00_jprb, 0.225301e+00_jprb, 0.215018e+00_jprb, 0.205050e+00_jprb &
21997  &, 0.195371e+00_jprb, 0.185972e+00_jprb, 0.176869e+00_jprb &
21998  &, 0.168073e+00_jprb, 0.159547e+00_jprb, 0.151324e+00_jprb, 0.143415e+00_jprb &
21999  &, 0.135773e+00_jprb, 0.128431e+00_jprb, 0.121364e+00_jprb &
22000  &, 0.114602e+00_jprb, 0.108090e+00_jprb, 0.101883e+00_jprb, 0.959211e-01_jprb &
22001  &, 0.902291e-01_jprb, 0.848012e-01_jprb, 0.796303e-01_jprb &
22002  &, 0.746760e-01_jprb, 0.699904e-01_jprb, 0.655303e-01_jprb, 0.612816e-01_jprb &
22003  &, 0.572623e-01_jprb, 0.534563e-01_jprb, 0.498806e-01_jprb &
22004  &, 0.464813e-01_jprb, 0.432725e-01_jprb, 0.402318e-01_jprb, 0.373720e-01_jprb &
22005  &, 0.347066e-01_jprb, 0.321712e-01_jprb, 0.298155e-01_jprb &
22006  &, 0.275711e-01_jprb, 0.255282e-01_jprb, 0.235751e-01_jprb, 0.217606e-01_jprb &
22007  &, 0.200511e-01_jprb, 0.184538e-01_jprb, 0.169759e-01_jprb &
22008  &, 0.156249e-01_jprb, 0.143629e-01_jprb, 0.131493e-01_jprb, 0.120817e-01_jprb &
22009  &, 0.110249e-01_jprb, 0.101260e-01_jprb, 0.924571e-02_jprb &
22010  &, 0.843571e-02_jprb, 0.770005e-02_jprb, 0.699149e-02_jprb, 0.636407e-02_jprb &
22011  &, 0.582202e-02_jprb, 0.526246e-02_jprb, 0.479389e-02_jprb &
22012  &, 0.431047e-02_jprb, 0.392385e-02_jprb, 0.352515e-02_jprb, 0.322920e-02_jprb &
22013  &, 0.292407e-02_jprb, 0.260966e-02_jprb, 0.234574e-02_jprb &
22014  &, 0.213465e-02_jprb, 0.191724e-02_jprb, 0.169343e-02_jprb, 0.152634e-02_jprb &
22015  &, 0.135439e-02_jprb, 0.124237e-02_jprb, 0.112709e-02_jprb/)
22016 xcw( 503, :) = (/ &
22017  & 0.997295e+00_jprb, 0.995580e+00_jprb, 0.993447e+00_jprb, 0.990903e+00_jprb &
22018  &, 0.987944e+00_jprb, 0.984575e+00_jprb, 0.980795e+00_jprb &
22019  &, 0.976608e+00_jprb, 0.972015e+00_jprb, 0.967019e+00_jprb, 0.961621e+00_jprb &
22020  &, 0.955824e+00_jprb, 0.949633e+00_jprb, 0.943052e+00_jprb &
22021  &, 0.936083e+00_jprb, 0.928731e+00_jprb, 0.921000e+00_jprb, 0.912895e+00_jprb &
22022  &, 0.904423e+00_jprb, 0.895587e+00_jprb, 0.886399e+00_jprb &
22023  &, 0.876858e+00_jprb, 0.866979e+00_jprb, 0.856766e+00_jprb, 0.846224e+00_jprb &
22024  &, 0.835372e+00_jprb, 0.824207e+00_jprb, 0.812750e+00_jprb &
22025  &, 0.801005e+00_jprb, 0.788984e+00_jprb, 0.776700e+00_jprb, 0.764161e+00_jprb &
22026  &, 0.751385e+00_jprb, 0.738383e+00_jprb, 0.725170e+00_jprb &
22027  &, 0.711754e+00_jprb, 0.698156e+00_jprb, 0.684391e+00_jprb, 0.670475e+00_jprb &
22028  &, 0.656415e+00_jprb, 0.642233e+00_jprb, 0.627943e+00_jprb &
22029  &, 0.613561e+00_jprb, 0.599107e+00_jprb, 0.584601e+00_jprb, 0.570044e+00_jprb &
22030  &, 0.555471e+00_jprb, 0.540884e+00_jprb, 0.526298e+00_jprb &
22031  &, 0.511754e+00_jprb, 0.497242e+00_jprb, 0.482779e+00_jprb, 0.468395e+00_jprb &
22032  &, 0.454108e+00_jprb, 0.439920e+00_jprb, 0.425849e+00_jprb &
22033  &, 0.411910e+00_jprb, 0.398120e+00_jprb, 0.384479e+00_jprb, 0.371034e+00_jprb &
22034  &, 0.357749e+00_jprb, 0.344690e+00_jprb, 0.331815e+00_jprb &
22035  &, 0.319173e+00_jprb, 0.306754e+00_jprb, 0.294587e+00_jprb, 0.282640e+00_jprb &
22036  &, 0.270978e+00_jprb, 0.259567e+00_jprb, 0.248409e+00_jprb &
22037  &, 0.237547e+00_jprb, 0.226959e+00_jprb, 0.216666e+00_jprb, 0.206643e+00_jprb &
22038  &, 0.196905e+00_jprb, 0.187468e+00_jprb, 0.178347e+00_jprb &
22039  &, 0.169483e+00_jprb, 0.160936e+00_jprb, 0.152665e+00_jprb, 0.144705e+00_jprb &
22040  &, 0.137036e+00_jprb, 0.129664e+00_jprb, 0.122539e+00_jprb &
22041  &, 0.115743e+00_jprb, 0.109196e+00_jprb, 0.102923e+00_jprb, 0.969223e-01_jprb &
22042  &, 0.911889e-01_jprb, 0.857176e-01_jprb, 0.805012e-01_jprb &
22043  &, 0.755309e-01_jprb, 0.707963e-01_jprb, 0.663177e-01_jprb, 0.620162e-01_jprb &
22044  &, 0.579758e-01_jprb, 0.541477e-01_jprb, 0.505137e-01_jprb &
22045  &, 0.470895e-01_jprb, 0.438183e-01_jprb, 0.407868e-01_jprb, 0.378988e-01_jprb &
22046  &, 0.352039e-01_jprb, 0.326379e-01_jprb, 0.302503e-01_jprb &
22047  &, 0.280130e-01_jprb, 0.258957e-01_jprb, 0.239485e-01_jprb, 0.220979e-01_jprb &
22048  &, 0.203509e-01_jprb, 0.187583e-01_jprb, 0.172851e-01_jprb &
22049  &, 0.158941e-01_jprb, 0.145907e-01_jprb, 0.133806e-01_jprb, 0.122695e-01_jprb &
22050  &, 0.112634e-01_jprb, 0.102712e-01_jprb, 0.939309e-02_jprb &
22051  &, 0.858528e-02_jprb, 0.785183e-02_jprb, 0.714549e-02_jprb, 0.652032e-02_jprb &
22052  &, 0.592769e-02_jprb, 0.536965e-02_jprb, 0.490262e-02_jprb &
22053  &, 0.442074e-02_jprb, 0.403567e-02_jprb, 0.363854e-02_jprb, 0.328668e-02_jprb &
22054  &, 0.298235e-02_jprb, 0.266874e-02_jprb, 0.240563e-02_jprb &
22055  &, 0.219536e-02_jprb, 0.197877e-02_jprb, 0.175578e-02_jprb, 0.158952e-02_jprb &
22056  &, 0.141840e-02_jprb, 0.124237e-02_jprb, 0.112709e-02_jprb/)
22057 xcw( 504, :) = (/ &
22058  & 0.997548e+00_jprb, 0.995893e+00_jprb, 0.993822e+00_jprb, 0.991339e+00_jprb &
22059  &, 0.988442e+00_jprb, 0.985134e+00_jprb, 0.981416e+00_jprb &
22060  &, 0.977289e+00_jprb, 0.972755e+00_jprb, 0.967819e+00_jprb, 0.962480e+00_jprb &
22061  &, 0.956741e+00_jprb, 0.950608e+00_jprb, 0.944082e+00_jprb &
22062  &, 0.937169e+00_jprb, 0.929872e+00_jprb, 0.922195e+00_jprb, 0.914145e+00_jprb &
22063  &, 0.905724e+00_jprb, 0.896942e+00_jprb, 0.887800e+00_jprb &
22064  &, 0.878310e+00_jprb, 0.868478e+00_jprb, 0.858311e+00_jprb, 0.847816e+00_jprb &
22065  &, 0.837005e+00_jprb, 0.825887e+00_jprb, 0.814467e+00_jprb &
22066  &, 0.802761e+00_jprb, 0.790779e+00_jprb, 0.778532e+00_jprb, 0.766030e+00_jprb &
22067  &, 0.753288e+00_jprb, 0.740316e+00_jprb, 0.727062e+00_jprb &
22068  &, 0.713745e+00_jprb, 0.700178e+00_jprb, 0.686435e+00_jprb, 0.672530e+00_jprb &
22069  &, 0.658491e+00_jprb, 0.644330e+00_jprb, 0.630060e+00_jprb &
22070  &, 0.615688e+00_jprb, 0.601252e+00_jprb, 0.586754e+00_jprb, 0.572202e+00_jprb &
22071  &, 0.557634e+00_jprb, 0.543050e+00_jprb, 0.528466e+00_jprb &
22072  &, 0.513922e+00_jprb, 0.499382e+00_jprb, 0.484943e+00_jprb, 0.470555e+00_jprb &
22073  &, 0.456247e+00_jprb, 0.442051e+00_jprb, 0.427969e+00_jprb &
22074  &, 0.414018e+00_jprb, 0.400198e+00_jprb, 0.386556e+00_jprb, 0.373075e+00_jprb &
22075  &, 0.359787e+00_jprb, 0.346686e+00_jprb, 0.333786e+00_jprb &
22076  &, 0.321115e+00_jprb, 0.308665e+00_jprb, 0.296463e+00_jprb, 0.284500e+00_jprb &
22077  &, 0.272799e+00_jprb, 0.261346e+00_jprb, 0.250164e+00_jprb &
22078  &, 0.239255e+00_jprb, 0.228639e+00_jprb, 0.218293e+00_jprb, 0.208236e+00_jprb &
22079  &, 0.198462e+00_jprb, 0.188987e+00_jprb, 0.179801e+00_jprb &
22080  &, 0.170918e+00_jprb, 0.162325e+00_jprb, 0.154031e+00_jprb, 0.146020e+00_jprb &
22081  &, 0.138298e+00_jprb, 0.130870e+00_jprb, 0.123741e+00_jprb &
22082  &, 0.116885e+00_jprb, 0.110303e+00_jprb, 0.103993e+00_jprb, 0.979529e-01_jprb &
22083  &, 0.921786e-01_jprb, 0.866644e-01_jprb, 0.814031e-01_jprb &
22084  &, 0.763859e-01_jprb, 0.716344e-01_jprb, 0.671052e-01_jprb, 0.627842e-01_jprb &
22085  &, 0.586893e-01_jprb, 0.548391e-01_jprb, 0.511468e-01_jprb &
22086  &, 0.476977e-01_jprb, 0.444369e-01_jprb, 0.413419e-01_jprb, 0.384256e-01_jprb &
22087  &, 0.357012e-01_jprb, 0.331046e-01_jprb, 0.306851e-01_jprb &
22088  &, 0.284148e-01_jprb, 0.263040e-01_jprb, 0.242804e-01_jprb, 0.224351e-01_jprb &
22089  &, 0.206935e-01_jprb, 0.190628e-01_jprb, 0.175502e-01_jprb &
22090  &, 0.161633e-01_jprb, 0.148641e-01_jprb, 0.136119e-01_jprb, 0.125044e-01_jprb &
22091  &, 0.114541e-01_jprb, 0.104648e-01_jprb, 0.958960e-02_jprb &
22092  &, 0.873485e-02_jprb, 0.800360e-02_jprb, 0.729950e-02_jprb, 0.662448e-02_jprb &
22093  &, 0.603336e-02_jprb, 0.547684e-02_jprb, 0.501134e-02_jprb &
22094  &, 0.453101e-02_jprb, 0.409159e-02_jprb, 0.369524e-02_jprb, 0.334417e-02_jprb &
22095  &, 0.304063e-02_jprb, 0.272782e-02_jprb, 0.246552e-02_jprb &
22096  &, 0.219536e-02_jprb, 0.197877e-02_jprb, 0.181813e-02_jprb, 0.158952e-02_jprb &
22097  &, 0.141840e-02_jprb, 0.130724e-02_jprb, 0.112709e-02_jprb/)
22098 
22099 IF (lhook) CALL dr_hook('SU_MCICA:PART72',1,zhook_handle)
22100 END SUBROUTINE part72
22101 
22102 #ifdef VPP5000
22103 !OCL SCALAR
22104 #endif
22105 !option! -Nv -NO
22106 #ifdef RS6K
22107 @process nooptimize
22108 #endif
22109 !pgi$r opt=0
22110 SUBROUTINE part73
22111 
22112 REAL(KIND=JPRB) :: ZHOOK_HANDLE
22113 IF (lhook) CALL dr_hook('SU_MCICA:PART73',0,zhook_handle)
22114 
22115 xcw( 505, :) = (/ &
22116  & 0.997796e+00_jprb, 0.996205e+00_jprb, 0.994196e+00_jprb, 0.991776e+00_jprb &
22117  &, 0.988941e+00_jprb, 0.985694e+00_jprb, 0.982037e+00_jprb &
22118  &, 0.977970e+00_jprb, 0.973497e+00_jprb, 0.968619e+00_jprb, 0.963339e+00_jprb &
22119  &, 0.957659e+00_jprb, 0.951583e+00_jprb, 0.945114e+00_jprb &
22120  &, 0.938257e+00_jprb, 0.931016e+00_jprb, 0.923393e+00_jprb, 0.915395e+00_jprb &
22121  &, 0.907027e+00_jprb, 0.898293e+00_jprb, 0.889204e+00_jprb &
22122  &, 0.879759e+00_jprb, 0.869981e+00_jprb, 0.859859e+00_jprb, 0.849411e+00_jprb &
22123  &, 0.838642e+00_jprb, 0.827564e+00_jprb, 0.816189e+00_jprb &
22124  &, 0.804520e+00_jprb, 0.792578e+00_jprb, 0.780367e+00_jprb, 0.767899e+00_jprb &
22125  &, 0.755191e+00_jprb, 0.742250e+00_jprb, 0.729098e+00_jprb &
22126  &, 0.715735e+00_jprb, 0.702190e+00_jprb, 0.688478e+00_jprb, 0.674595e+00_jprb &
22127  &, 0.660578e+00_jprb, 0.646438e+00_jprb, 0.632178e+00_jprb &
22128  &, 0.617825e+00_jprb, 0.603398e+00_jprb, 0.588906e+00_jprb, 0.574360e+00_jprb &
22129  &, 0.559796e+00_jprb, 0.545216e+00_jprb, 0.530646e+00_jprb &
22130  &, 0.516090e+00_jprb, 0.501576e+00_jprb, 0.487107e+00_jprb, 0.472714e+00_jprb &
22131  &, 0.458400e+00_jprb, 0.444181e+00_jprb, 0.430089e+00_jprb &
22132  &, 0.416125e+00_jprb, 0.402291e+00_jprb, 0.388632e+00_jprb, 0.375133e+00_jprb &
22133  &, 0.361807e+00_jprb, 0.348682e+00_jprb, 0.335774e+00_jprb &
22134  &, 0.323074e+00_jprb, 0.310594e+00_jprb, 0.298359e+00_jprb, 0.286360e+00_jprb &
22135  &, 0.274620e+00_jprb, 0.263146e+00_jprb, 0.251940e+00_jprb &
22136  &, 0.240984e+00_jprb, 0.230318e+00_jprb, 0.219942e+00_jprb, 0.209852e+00_jprb &
22137  &, 0.200042e+00_jprb, 0.190529e+00_jprb, 0.181303e+00_jprb &
22138  &, 0.172378e+00_jprb, 0.163739e+00_jprb, 0.155398e+00_jprb, 0.147336e+00_jprb &
22139  &, 0.139587e+00_jprb, 0.132104e+00_jprb, 0.124916e+00_jprb &
22140  &, 0.118027e+00_jprb, 0.111409e+00_jprb, 0.105063e+00_jprb, 0.989836e-01_jprb &
22141  &, 0.931684e-01_jprb, 0.876113e-01_jprb, 0.823051e-01_jprb &
22142  &, 0.772725e-01_jprb, 0.724724e-01_jprb, 0.678926e-01_jprb, 0.635522e-01_jprb &
22143  &, 0.594369e-01_jprb, 0.555305e-01_jprb, 0.518150e-01_jprb &
22144  &, 0.483059e-01_jprb, 0.450190e-01_jprb, 0.418969e-01_jprb, 0.389523e-01_jprb &
22145  &, 0.361985e-01_jprb, 0.335712e-01_jprb, 0.311199e-01_jprb &
22146  &, 0.288567e-01_jprb, 0.266714e-01_jprb, 0.246952e-01_jprb, 0.227723e-01_jprb &
22147  &, 0.210361e-01_jprb, 0.193673e-01_jprb, 0.178595e-01_jprb &
22148  &, 0.164326e-01_jprb, 0.150919e-01_jprb, 0.138433e-01_jprb, 0.127393e-01_jprb &
22149  &, 0.116448e-01_jprb, 0.106584e-01_jprb, 0.978610e-02_jprb &
22150  &, 0.893428e-02_jprb, 0.815538e-02_jprb, 0.745350e-02_jprb, 0.678073e-02_jprb &
22151  &, 0.613904e-02_jprb, 0.558404e-02_jprb, 0.506570e-02_jprb &
22152  &, 0.464128e-02_jprb, 0.420341e-02_jprb, 0.380863e-02_jprb, 0.345914e-02_jprb &
22153  &, 0.309892e-02_jprb, 0.278691e-02_jprb, 0.252541e-02_jprb &
22154  &, 0.225606e-02_jprb, 0.204029e-02_jprb, 0.181813e-02_jprb, 0.165270e-02_jprb &
22155  &, 0.148242e-02_jprb, 0.130724e-02_jprb, 0.119280e-02_jprb/)
22156 xcw( 506, :) = (/ &
22157  & 0.998048e+00_jprb, 0.996520e+00_jprb, 0.994572e+00_jprb, 0.992214e+00_jprb &
22158  &, 0.989440e+00_jprb, 0.986254e+00_jprb, 0.982657e+00_jprb &
22159  &, 0.978651e+00_jprb, 0.974238e+00_jprb, 0.969420e+00_jprb, 0.964196e+00_jprb &
22160  &, 0.958576e+00_jprb, 0.952558e+00_jprb, 0.946147e+00_jprb &
22161  &, 0.939345e+00_jprb, 0.932158e+00_jprb, 0.924590e+00_jprb, 0.916646e+00_jprb &
22162  &, 0.908331e+00_jprb, 0.899651e+00_jprb, 0.890611e+00_jprb &
22163  &, 0.881218e+00_jprb, 0.871483e+00_jprb, 0.861410e+00_jprb, 0.851006e+00_jprb &
22164  &, 0.840282e+00_jprb, 0.829247e+00_jprb, 0.817913e+00_jprb &
22165  &, 0.806284e+00_jprb, 0.794377e+00_jprb, 0.782203e+00_jprb, 0.769773e+00_jprb &
22166  &, 0.757094e+00_jprb, 0.744187e+00_jprb, 0.731062e+00_jprb &
22167  &, 0.717735e+00_jprb, 0.704212e+00_jprb, 0.690522e+00_jprb, 0.676670e+00_jprb &
22168  &, 0.662664e+00_jprb, 0.648545e+00_jprb, 0.634306e+00_jprb &
22169  &, 0.619962e+00_jprb, 0.605543e+00_jprb, 0.591059e+00_jprb, 0.576531e+00_jprb &
22170  &, 0.561971e+00_jprb, 0.547395e+00_jprb, 0.532827e+00_jprb &
22171  &, 0.518271e+00_jprb, 0.503756e+00_jprb, 0.489285e+00_jprb, 0.474874e+00_jprb &
22172  &, 0.460553e+00_jprb, 0.446341e+00_jprb, 0.432224e+00_jprb &
22173  &, 0.418233e+00_jprb, 0.404400e+00_jprb, 0.390709e+00_jprb, 0.377191e+00_jprb &
22174  &, 0.363844e+00_jprb, 0.350714e+00_jprb, 0.337762e+00_jprb &
22175  &, 0.325034e+00_jprb, 0.312523e+00_jprb, 0.300255e+00_jprb, 0.288239e+00_jprb &
22176  &, 0.276461e+00_jprb, 0.264945e+00_jprb, 0.253696e+00_jprb &
22177  &, 0.242713e+00_jprb, 0.232019e+00_jprb, 0.221590e+00_jprb, 0.211467e+00_jprb &
22178  &, 0.201622e+00_jprb, 0.192072e+00_jprb, 0.182805e+00_jprb &
22179  &, 0.173837e+00_jprb, 0.165153e+00_jprb, 0.156764e+00_jprb, 0.148677e+00_jprb &
22180  &, 0.140876e+00_jprb, 0.133364e+00_jprb, 0.126146e+00_jprb &
22181  &, 0.119196e+00_jprb, 0.112516e+00_jprb, 0.106132e+00_jprb, 0.100014e+00_jprb &
22182  &, 0.941582e-01_jprb, 0.885887e-01_jprb, 0.832381e-01_jprb &
22183  &, 0.781591e-01_jprb, 0.733105e-01_jprb, 0.686800e-01_jprb, 0.643201e-01_jprb &
22184  &, 0.601504e-01_jprb, 0.562219e-01_jprb, 0.524832e-01_jprb &
22185  &, 0.489498e-01_jprb, 0.456012e-01_jprb, 0.424519e-01_jprb, 0.394791e-01_jprb &
22186  &, 0.366958e-01_jprb, 0.340768e-01_jprb, 0.315943e-01_jprb &
22187  &, 0.292585e-01_jprb, 0.270797e-01_jprb, 0.250686e-01_jprb, 0.231517e-01_jprb &
22188  &, 0.213786e-01_jprb, 0.197153e-01_jprb, 0.181688e-01_jprb &
22189  &, 0.167018e-01_jprb, 0.153653e-01_jprb, 0.141209e-01_jprb, 0.129271e-01_jprb &
22190  &, 0.118832e-01_jprb, 0.108520e-01_jprb, 0.993348e-02_jprb &
22191  &, 0.908385e-02_jprb, 0.830716e-02_jprb, 0.755617e-02_jprb, 0.688489e-02_jprb &
22192  &, 0.629755e-02_jprb, 0.574482e-02_jprb, 0.517443e-02_jprb &
22193  &, 0.469641e-02_jprb, 0.425932e-02_jprb, 0.386532e-02_jprb, 0.351663e-02_jprb &
22194  &, 0.315720e-02_jprb, 0.284599e-02_jprb, 0.258530e-02_jprb &
22195  &, 0.231676e-02_jprb, 0.210181e-02_jprb, 0.188048e-02_jprb, 0.171588e-02_jprb &
22196  &, 0.154644e-02_jprb, 0.137210e-02_jprb, 0.119280e-02_jprb/)
22197 xcw( 507, :) = (/ &
22198  & 0.998300e+00_jprb, 0.996832e+00_jprb, 0.994947e+00_jprb, 0.992651e+00_jprb &
22199  &, 0.989939e+00_jprb, 0.986814e+00_jprb, 0.983279e+00_jprb &
22200  &, 0.979333e+00_jprb, 0.974979e+00_jprb, 0.970221e+00_jprb, 0.965059e+00_jprb &
22201  &, 0.959496e+00_jprb, 0.953534e+00_jprb, 0.947180e+00_jprb &
22202  &, 0.940435e+00_jprb, 0.933304e+00_jprb, 0.925789e+00_jprb, 0.917899e+00_jprb &
22203  &, 0.909637e+00_jprb, 0.901006e+00_jprb, 0.892018e+00_jprb &
22204  &, 0.882677e+00_jprb, 0.872985e+00_jprb, 0.862961e+00_jprb, 0.852601e+00_jprb &
22205  &, 0.841923e+00_jprb, 0.830931e+00_jprb, 0.819638e+00_jprb &
22206  &, 0.808051e+00_jprb, 0.796185e+00_jprb, 0.784039e+00_jprb, 0.771650e+00_jprb &
22207  &, 0.759006e+00_jprb, 0.746130e+00_jprb, 0.733035e+00_jprb &
22208  &, 0.719735e+00_jprb, 0.706243e+00_jprb, 0.692576e+00_jprb, 0.678736e+00_jprb &
22209  &, 0.664761e+00_jprb, 0.650653e+00_jprb, 0.636434e+00_jprb &
22210  &, 0.622111e+00_jprb, 0.607700e+00_jprb, 0.593234e+00_jprb, 0.578713e+00_jprb &
22211  &, 0.564159e+00_jprb, 0.549586e+00_jprb, 0.535008e+00_jprb &
22212  &, 0.520452e+00_jprb, 0.505937e+00_jprb, 0.491463e+00_jprb, 0.477048e+00_jprb &
22213  &, 0.462721e+00_jprb, 0.448486e+00_jprb, 0.434359e+00_jprb &
22214  &, 0.420371e+00_jprb, 0.406509e+00_jprb, 0.392802e+00_jprb, 0.379266e+00_jprb &
22215  &, 0.365898e+00_jprb, 0.352727e+00_jprb, 0.339768e+00_jprb &
22216  &, 0.327012e+00_jprb, 0.314470e+00_jprb, 0.302170e+00_jprb, 0.290118e+00_jprb &
22217  &, 0.278321e+00_jprb, 0.266765e+00_jprb, 0.255471e+00_jprb &
22218  &, 0.244463e+00_jprb, 0.233720e+00_jprb, 0.223261e+00_jprb, 0.213083e+00_jprb &
22219  &, 0.203203e+00_jprb, 0.193614e+00_jprb, 0.184307e+00_jprb &
22220  &, 0.175296e+00_jprb, 0.166567e+00_jprb, 0.158155e+00_jprb, 0.150019e+00_jprb &
22221  &, 0.142164e+00_jprb, 0.134624e+00_jprb, 0.127348e+00_jprb &
22222  &, 0.120366e+00_jprb, 0.113651e+00_jprb, 0.107231e+00_jprb, 0.101074e+00_jprb &
22223  &, 0.951780e-01_jprb, 0.895356e-01_jprb, 0.841712e-01_jprb &
22224  &, 0.790457e-01_jprb, 0.741486e-01_jprb, 0.695002e-01_jprb, 0.650881e-01_jprb &
22225  &, 0.608979e-01_jprb, 0.569133e-01_jprb, 0.531514e-01_jprb &
22226  &, 0.495937e-01_jprb, 0.462198e-01_jprb, 0.430440e-01_jprb, 0.400435e-01_jprb &
22227  &, 0.372314e-01_jprb, 0.345435e-01_jprb, 0.320687e-01_jprb &
22228  &, 0.297004e-01_jprb, 0.274880e-01_jprb, 0.254420e-01_jprb, 0.235310e-01_jprb &
22229  &, 0.217212e-01_jprb, 0.200198e-01_jprb, 0.184339e-01_jprb &
22230  &, 0.169710e-01_jprb, 0.156387e-01_jprb, 0.143522e-01_jprb, 0.131620e-01_jprb &
22231  &, 0.120740e-01_jprb, 0.110940e-01_jprb, 0.101300e-01_jprb &
22232  &, 0.928327e-02_jprb, 0.845893e-02_jprb, 0.771017e-02_jprb, 0.704114e-02_jprb &
22233  &, 0.640322e-02_jprb, 0.585202e-02_jprb, 0.528315e-02_jprb &
22234  &, 0.480668e-02_jprb, 0.437115e-02_jprb, 0.397872e-02_jprb, 0.357411e-02_jprb &
22235  &, 0.321548e-02_jprb, 0.290507e-02_jprb, 0.264519e-02_jprb &
22236  &, 0.237747e-02_jprb, 0.216334e-02_jprb, 0.194283e-02_jprb, 0.171588e-02_jprb &
22237  &, 0.154644e-02_jprb, 0.137210e-02_jprb, 0.125851e-02_jprb/)
22238 xcw( 508, :) = (/ &
22239  & 0.998550e+00_jprb, 0.997144e+00_jprb, 0.995323e+00_jprb, 0.993088e+00_jprb &
22240  &, 0.990438e+00_jprb, 0.987375e+00_jprb, 0.983899e+00_jprb &
22241  &, 0.980015e+00_jprb, 0.975722e+00_jprb, 0.971022e+00_jprb, 0.965920e+00_jprb &
22242  &, 0.960415e+00_jprb, 0.954512e+00_jprb, 0.948215e+00_jprb &
22243  &, 0.941526e+00_jprb, 0.934449e+00_jprb, 0.926990e+00_jprb, 0.919152e+00_jprb &
22244  &, 0.910943e+00_jprb, 0.902363e+00_jprb, 0.893426e+00_jprb &
22245  &, 0.884132e+00_jprb, 0.874495e+00_jprb, 0.864513e+00_jprb, 0.854203e+00_jprb &
22246  &, 0.843567e+00_jprb, 0.832619e+00_jprb, 0.821367e+00_jprb &
22247  &, 0.809819e+00_jprb, 0.797992e+00_jprb, 0.785891e+00_jprb, 0.773528e+00_jprb &
22248  &, 0.760918e+00_jprb, 0.748076e+00_jprb, 0.735013e+00_jprb &
22249  &, 0.721735e+00_jprb, 0.708275e+00_jprb, 0.694629e+00_jprb, 0.680821e+00_jprb &
22250  &, 0.666858e+00_jprb, 0.652771e+00_jprb, 0.638563e+00_jprb &
22251  &, 0.624259e+00_jprb, 0.609868e+00_jprb, 0.595398e+00_jprb, 0.580895e+00_jprb &
22252  &, 0.566346e+00_jprb, 0.551777e+00_jprb, 0.537201e+00_jprb &
22253  &, 0.522647e+00_jprb, 0.508131e+00_jprb, 0.493641e+00_jprb, 0.479235e+00_jprb &
22254  &, 0.464889e+00_jprb, 0.450646e+00_jprb, 0.436509e+00_jprb &
22255  &, 0.422495e+00_jprb, 0.408507e+00_jprb, 0.394895e+00_jprb, 0.381340e+00_jprb &
22256  &, 0.367952e+00_jprb, 0.354758e+00_jprb, 0.341773e+00_jprb &
22257  &, 0.328990e+00_jprb, 0.316437e+00_jprb, 0.304103e+00_jprb, 0.292016e+00_jprb &
22258  &, 0.280182e+00_jprb, 0.268584e+00_jprb, 0.257268e+00_jprb &
22259  &, 0.246214e+00_jprb, 0.235443e+00_jprb, 0.224954e+00_jprb, 0.214721e+00_jprb &
22260  &, 0.204806e+00_jprb, 0.195156e+00_jprb, 0.185810e+00_jprb &
22261  &, 0.176756e+00_jprb, 0.168006e+00_jprb, 0.159547e+00_jprb, 0.151360e+00_jprb &
22262  &, 0.143479e+00_jprb, 0.135884e+00_jprb, 0.128578e+00_jprb &
22263  &, 0.121536e+00_jprb, 0.114786e+00_jprb, 0.108329e+00_jprb, 0.102135e+00_jprb &
22264  &, 0.961977e-01_jprb, 0.905130e-01_jprb, 0.851042e-01_jprb &
22265  &, 0.799324e-01_jprb, 0.750189e-01_jprb, 0.703205e-01_jprb, 0.658561e-01_jprb &
22266  &, 0.616454e-01_jprb, 0.576393e-01_jprb, 0.538197e-01_jprb &
22267  &, 0.502377e-01_jprb, 0.468383e-01_jprb, 0.436360e-01_jprb, 0.406078e-01_jprb &
22268  &, 0.377287e-01_jprb, 0.350490e-01_jprb, 0.325035e-01_jprb &
22269  &, 0.301424e-01_jprb, 0.279372e-01_jprb, 0.258154e-01_jprb, 0.238683e-01_jprb &
22270  &, 0.220638e-01_jprb, 0.203677e-01_jprb, 0.187431e-01_jprb &
22271  &, 0.172851e-01_jprb, 0.158665e-01_jprb, 0.145835e-01_jprb, 0.133969e-01_jprb &
22272  &, 0.123124e-01_jprb, 0.112877e-01_jprb, 0.103265e-01_jprb &
22273  &, 0.943284e-02_jprb, 0.861071e-02_jprb, 0.786418e-02_jprb, 0.719739e-02_jprb &
22274  &, 0.656173e-02_jprb, 0.595921e-02_jprb, 0.539188e-02_jprb &
22275  &, 0.491695e-02_jprb, 0.448297e-02_jprb, 0.403541e-02_jprb, 0.368908e-02_jprb &
22276  &, 0.333204e-02_jprb, 0.302324e-02_jprb, 0.270508e-02_jprb &
22277  &, 0.243817e-02_jprb, 0.222486e-02_jprb, 0.200518e-02_jprb, 0.177907e-02_jprb &
22278  &, 0.161046e-02_jprb, 0.143696e-02_jprb, 0.125851e-02_jprb/)
22279 xcw( 509, :) = (/ &
22280  & 0.998801e+00_jprb, 0.997457e+00_jprb, 0.995699e+00_jprb, 0.993526e+00_jprb &
22281  &, 0.990937e+00_jprb, 0.987936e+00_jprb, 0.984522e+00_jprb &
22282  &, 0.980698e+00_jprb, 0.976465e+00_jprb, 0.971825e+00_jprb, 0.966781e+00_jprb &
22283  &, 0.961334e+00_jprb, 0.955490e+00_jprb, 0.949249e+00_jprb &
22284  &, 0.942617e+00_jprb, 0.935596e+00_jprb, 0.928191e+00_jprb, 0.920408e+00_jprb &
22285  &, 0.912250e+00_jprb, 0.903724e+00_jprb, 0.894836e+00_jprb &
22286  &, 0.885594e+00_jprb, 0.876001e+00_jprb, 0.866067e+00_jprb, 0.855802e+00_jprb &
22287  &, 0.845214e+00_jprb, 0.834306e+00_jprb, 0.823096e+00_jprb &
22288  &, 0.811590e+00_jprb, 0.799799e+00_jprb, 0.787735e+00_jprb, 0.775409e+00_jprb &
22289  &, 0.762838e+00_jprb, 0.749992e+00_jprb, 0.736991e+00_jprb &
22290  &, 0.723744e+00_jprb, 0.710306e+00_jprb, 0.696682e+00_jprb, 0.682896e+00_jprb &
22291  &, 0.668965e+00_jprb, 0.654889e+00_jprb, 0.640702e+00_jprb &
22292  &, 0.626408e+00_jprb, 0.612037e+00_jprb, 0.597586e+00_jprb, 0.583077e+00_jprb &
22293  &, 0.568533e+00_jprb, 0.553968e+00_jprb, 0.539407e+00_jprb &
22294  &, 0.524854e+00_jprb, 0.510324e+00_jprb, 0.495846e+00_jprb, 0.481423e+00_jprb &
22295  &, 0.467071e+00_jprb, 0.452821e+00_jprb, 0.438675e+00_jprb &
22296  &, 0.424649e+00_jprb, 0.410759e+00_jprb, 0.397004e+00_jprb, 0.383432e+00_jprb &
22297  &, 0.370023e+00_jprb, 0.356807e+00_jprb, 0.343797e+00_jprb &
22298  &, 0.330986e+00_jprb, 0.318384e+00_jprb, 0.306037e+00_jprb, 0.293914e+00_jprb &
22299  &, 0.282042e+00_jprb, 0.270424e+00_jprb, 0.259064e+00_jprb &
22300  &, 0.247985e+00_jprb, 0.237165e+00_jprb, 0.226624e+00_jprb, 0.216381e+00_jprb &
22301  &, 0.206409e+00_jprb, 0.196745e+00_jprb, 0.187359e+00_jprb &
22302  &, 0.178264e+00_jprb, 0.169445e+00_jprb, 0.160938e+00_jprb, 0.152728e+00_jprb &
22303  &, 0.144794e+00_jprb, 0.137144e+00_jprb, 0.129807e+00_jprb &
22304  &, 0.122733e+00_jprb, 0.115949e+00_jprb, 0.109428e+00_jprb, 0.103195e+00_jprb &
22305  &, 0.972175e-01_jprb, 0.914905e-01_jprb, 0.860373e-01_jprb &
22306  &, 0.808506e-01_jprb, 0.758893e-01_jprb, 0.711407e-01_jprb, 0.666575e-01_jprb &
22307  &, 0.623929e-01_jprb, 0.583653e-01_jprb, 0.545230e-01_jprb &
22308  &, 0.508816e-01_jprb, 0.474569e-01_jprb, 0.441911e-01_jprb, 0.411346e-01_jprb &
22309  &, 0.382642e-01_jprb, 0.355546e-01_jprb, 0.329778e-01_jprb &
22310  &, 0.305843e-01_jprb, 0.283454e-01_jprb, 0.262303e-01_jprb, 0.242476e-01_jprb &
22311  &, 0.224064e-01_jprb, 0.206722e-01_jprb, 0.190524e-01_jprb &
22312  &, 0.175543e-01_jprb, 0.161399e-01_jprb, 0.148611e-01_jprb, 0.136317e-01_jprb &
22313  &, 0.125031e-01_jprb, 0.114813e-01_jprb, 0.105230e-01_jprb &
22314  &, 0.963227e-02_jprb, 0.881308e-02_jprb, 0.801818e-02_jprb, 0.730156e-02_jprb &
22315  &, 0.666740e-02_jprb, 0.606640e-02_jprb, 0.555497e-02_jprb &
22316  &, 0.502722e-02_jprb, 0.453888e-02_jprb, 0.414880e-02_jprb, 0.374657e-02_jprb &
22317  &, 0.339032e-02_jprb, 0.308232e-02_jprb, 0.276497e-02_jprb &
22318  &, 0.249888e-02_jprb, 0.222486e-02_jprb, 0.200518e-02_jprb, 0.184225e-02_jprb &
22319  &, 0.161046e-02_jprb, 0.143696e-02_jprb, 0.132422e-02_jprb/)
22320 xcw( 510, :) = (/ &
22321  & 0.999050e+00_jprb, 0.997772e+00_jprb, 0.996074e+00_jprb, 0.993963e+00_jprb &
22322  &, 0.991437e+00_jprb, 0.988497e+00_jprb, 0.985145e+00_jprb &
22323  &, 0.981380e+00_jprb, 0.977208e+00_jprb, 0.972627e+00_jprb, 0.967643e+00_jprb &
22324  &, 0.962254e+00_jprb, 0.956467e+00_jprb, 0.950285e+00_jprb &
22325  &, 0.943709e+00_jprb, 0.936743e+00_jprb, 0.929394e+00_jprb, 0.921664e+00_jprb &
22326  &, 0.913560e+00_jprb, 0.905085e+00_jprb, 0.896250e+00_jprb &
22327  &, 0.887056e+00_jprb, 0.877513e+00_jprb, 0.867626e+00_jprb, 0.857407e+00_jprb &
22328  &, 0.846862e+00_jprb, 0.836001e+00_jprb, 0.824832e+00_jprb &
22329  &, 0.813365e+00_jprb, 0.801614e+00_jprb, 0.789587e+00_jprb, 0.777295e+00_jprb &
22330  &, 0.764758e+00_jprb, 0.751978e+00_jprb, 0.738973e+00_jprb &
22331  &, 0.725753e+00_jprb, 0.712347e+00_jprb, 0.698746e+00_jprb, 0.684992e+00_jprb &
22332  &, 0.671073e+00_jprb, 0.657018e+00_jprb, 0.642852e+00_jprb &
22333  &, 0.628567e+00_jprb, 0.614205e+00_jprb, 0.599761e+00_jprb, 0.585271e+00_jprb &
22334  &, 0.570732e+00_jprb, 0.556171e+00_jprb, 0.541613e+00_jprb &
22335  &, 0.527062e+00_jprb, 0.512532e+00_jprb, 0.498038e+00_jprb, 0.483611e+00_jprb &
22336  &, 0.469253e+00_jprb, 0.454995e+00_jprb, 0.440840e+00_jprb &
22337  &, 0.426787e+00_jprb, 0.412884e+00_jprb, 0.399130e+00_jprb, 0.385523e+00_jprb &
22338  &, 0.372094e+00_jprb, 0.358855e+00_jprb, 0.345820e+00_jprb &
22339  &, 0.332982e+00_jprb, 0.320369e+00_jprb, 0.307971e+00_jprb, 0.295832e+00_jprb &
22340  &, 0.283922e+00_jprb, 0.272264e+00_jprb, 0.260882e+00_jprb &
22341  &, 0.249757e+00_jprb, 0.238909e+00_jprb, 0.228339e+00_jprb, 0.218042e+00_jprb &
22342  &, 0.208034e+00_jprb, 0.198311e+00_jprb, 0.188885e+00_jprb &
22343  &, 0.179747e+00_jprb, 0.170908e+00_jprb, 0.162355e+00_jprb, 0.154095e+00_jprb &
22344  &, 0.146109e+00_jprb, 0.138431e+00_jprb, 0.131037e+00_jprb &
22345  &, 0.123930e+00_jprb, 0.117084e+00_jprb, 0.110555e+00_jprb, 0.104255e+00_jprb &
22346  &, 0.982372e-01_jprb, 0.924984e-01_jprb, 0.870014e-01_jprb &
22347  &, 0.817373e-01_jprb, 0.767596e-01_jprb, 0.719937e-01_jprb, 0.674588e-01_jprb &
22348  &, 0.631744e-01_jprb, 0.590913e-01_jprb, 0.552264e-01_jprb &
22349  &, 0.515613e-01_jprb, 0.480754e-01_jprb, 0.448201e-01_jprb, 0.416990e-01_jprb &
22350  &, 0.387998e-01_jprb, 0.360601e-01_jprb, 0.334522e-01_jprb &
22351  &, 0.310263e-01_jprb, 0.287537e-01_jprb, 0.266452e-01_jprb, 0.246270e-01_jprb &
22352  &, 0.227490e-01_jprb, 0.210202e-01_jprb, 0.193617e-01_jprb &
22353  &, 0.178684e-01_jprb, 0.164133e-01_jprb, 0.150924e-01_jprb, 0.138666e-01_jprb &
22354  &, 0.127415e-01_jprb, 0.116749e-01_jprb, 0.107195e-01_jprb &
22355  &, 0.978183e-02_jprb, 0.896486e-02_jprb, 0.817219e-02_jprb, 0.745780e-02_jprb &
22356  &, 0.682591e-02_jprb, 0.622719e-02_jprb, 0.566369e-02_jprb &
22357  &, 0.513749e-02_jprb, 0.465071e-02_jprb, 0.420550e-02_jprb, 0.380406e-02_jprb &
22358  &, 0.344860e-02_jprb, 0.314140e-02_jprb, 0.282486e-02_jprb &
22359  &, 0.255958e-02_jprb, 0.228638e-02_jprb, 0.206753e-02_jprb, 0.184225e-02_jprb &
22360  &, 0.167448e-02_jprb, 0.150182e-02_jprb, 0.132422e-02_jprb/)
22361 xcw( 511, :) = (/ &
22362  & 0.999301e+00_jprb, 0.998084e+00_jprb, 0.996450e+00_jprb, 0.994402e+00_jprb &
22363  &, 0.991937e+00_jprb, 0.989059e+00_jprb, 0.985766e+00_jprb &
22364  &, 0.982064e+00_jprb, 0.977952e+00_jprb, 0.973431e+00_jprb, 0.968506e+00_jprb &
22365  &, 0.963176e+00_jprb, 0.957448e+00_jprb, 0.951321e+00_jprb &
22366  &, 0.944801e+00_jprb, 0.937893e+00_jprb, 0.930598e+00_jprb, 0.922922e+00_jprb &
22367  &, 0.914871e+00_jprb, 0.906449e+00_jprb, 0.897664e+00_jprb &
22368  &, 0.888518e+00_jprb, 0.879022e+00_jprb, 0.869187e+00_jprb, 0.859013e+00_jprb &
22369  &, 0.848514e+00_jprb, 0.837693e+00_jprb, 0.826569e+00_jprb &
22370  &, 0.815140e+00_jprb, 0.803429e+00_jprb, 0.791439e+00_jprb, 0.779185e+00_jprb &
22371  &, 0.766679e+00_jprb, 0.753934e+00_jprb, 0.740960e+00_jprb &
22372  &, 0.727771e+00_jprb, 0.714388e+00_jprb, 0.700818e+00_jprb, 0.687077e+00_jprb &
22373  &, 0.673190e+00_jprb, 0.659157e+00_jprb, 0.645001e+00_jprb &
22374  &, 0.630738e+00_jprb, 0.616384e+00_jprb, 0.601949e+00_jprb, 0.587465e+00_jprb &
22375  &, 0.572944e+00_jprb, 0.558387e+00_jprb, 0.543820e+00_jprb &
22376  &, 0.529269e+00_jprb, 0.514739e+00_jprb, 0.500243e+00_jprb, 0.485812e+00_jprb &
22377  &, 0.471449e+00_jprb, 0.457185e+00_jprb, 0.443005e+00_jprb &
22378  &, 0.428957e+00_jprb, 0.415025e+00_jprb, 0.401255e+00_jprb, 0.387631e+00_jprb &
22379  &, 0.374182e+00_jprb, 0.360921e+00_jprb, 0.347844e+00_jprb &
22380  &, 0.334997e+00_jprb, 0.322335e+00_jprb, 0.309923e+00_jprb, 0.297750e+00_jprb &
22381  &, 0.285802e+00_jprb, 0.274124e+00_jprb, 0.262699e+00_jprb &
22382  &, 0.251528e+00_jprb, 0.240654e+00_jprb, 0.230032e+00_jprb, 0.219702e+00_jprb &
22383  &, 0.209660e+00_jprb, 0.199900e+00_jprb, 0.190435e+00_jprb &
22384  &, 0.181255e+00_jprb, 0.172372e+00_jprb, 0.163772e+00_jprb, 0.155462e+00_jprb &
22385  &, 0.147451e+00_jprb, 0.139718e+00_jprb, 0.132294e+00_jprb &
22386  &, 0.125128e+00_jprb, 0.118276e+00_jprb, 0.111654e+00_jprb, 0.105344e+00_jprb &
22387  &, 0.992870e-01_jprb, 0.934758e-01_jprb, 0.879656e-01_jprb &
22388  &, 0.826555e-01_jprb, 0.776299e-01_jprb, 0.728468e-01_jprb, 0.682602e-01_jprb &
22389  &, 0.639219e-01_jprb, 0.598173e-01_jprb, 0.558947e-01_jprb &
22390  &, 0.522053e-01_jprb, 0.487304e-01_jprb, 0.454121e-01_jprb, 0.423010e-01_jprb &
22391  &, 0.393354e-01_jprb, 0.365657e-01_jprb, 0.339661e-01_jprb &
22392  &, 0.315084e-01_jprb, 0.292029e-01_jprb, 0.270601e-01_jprb, 0.250064e-01_jprb &
22393  &, 0.231344e-01_jprb, 0.213682e-01_jprb, 0.197151e-01_jprb &
22394  &, 0.181376e-01_jprb, 0.167323e-01_jprb, 0.153700e-01_jprb, 0.141484e-01_jprb &
22395  &, 0.129800e-01_jprb, 0.119169e-01_jprb, 0.109160e-01_jprb &
22396  &, 0.998126e-02_jprb, 0.911663e-02_jprb, 0.832619e-02_jprb, 0.761405e-02_jprb &
22397  &, 0.693158e-02_jprb, 0.633439e-02_jprb, 0.577242e-02_jprb &
22398  &, 0.524776e-02_jprb, 0.476253e-02_jprb, 0.431889e-02_jprb, 0.391903e-02_jprb &
22399  &, 0.356517e-02_jprb, 0.320049e-02_jprb, 0.288476e-02_jprb &
22400  &, 0.262029e-02_jprb, 0.234791e-02_jprb, 0.212988e-02_jprb, 0.190543e-02_jprb &
22401  &, 0.173850e-02_jprb, 0.156668e-02_jprb, 0.138993e-02_jprb/)
22402 
22403 IF (lhook) CALL dr_hook('SU_MCICA:PART73',1,zhook_handle)
22404 END SUBROUTINE part73
22405 
22406 #ifdef VPP5000
22407 !OCL SCALAR
22408 #endif
22409 !option! -Nv -NO
22410 #ifdef RS6K
22411 @process nooptimize
22412 #endif
22413 !pgi$r opt=0
22414 SUBROUTINE part74
22415 
22416 REAL(KIND=JPRB) :: ZHOOK_HANDLE
22417 IF (lhook) CALL dr_hook('SU_MCICA:PART74',0,zhook_handle)
22418 
22419 xcw( 512, :) = (/ &
22420  & 0.999555e+00_jprb, 0.998399e+00_jprb, 0.996826e+00_jprb, 0.994839e+00_jprb &
22421  &, 0.992437e+00_jprb, 0.989620e+00_jprb, 0.986389e+00_jprb &
22422  &, 0.982748e+00_jprb, 0.978695e+00_jprb, 0.974235e+00_jprb, 0.969369e+00_jprb &
22423  &, 0.964098e+00_jprb, 0.958427e+00_jprb, 0.952358e+00_jprb &
22424  &, 0.945895e+00_jprb, 0.939037e+00_jprb, 0.931802e+00_jprb, 0.924181e+00_jprb &
22425  &, 0.916183e+00_jprb, 0.907814e+00_jprb, 0.899077e+00_jprb &
22426  &, 0.889984e+00_jprb, 0.880538e+00_jprb, 0.870749e+00_jprb, 0.860619e+00_jprb &
22427  &, 0.850165e+00_jprb, 0.839391e+00_jprb, 0.828305e+00_jprb &
22428  &, 0.816923e+00_jprb, 0.805248e+00_jprb, 0.793295e+00_jprb, 0.781079e+00_jprb &
22429  &, 0.768608e+00_jprb, 0.755894e+00_jprb, 0.742951e+00_jprb &
22430  &, 0.729790e+00_jprb, 0.716438e+00_jprb, 0.702891e+00_jprb, 0.689172e+00_jprb &
22431  &, 0.675307e+00_jprb, 0.661286e+00_jprb, 0.647151e+00_jprb &
22432  &, 0.632909e+00_jprb, 0.618564e+00_jprb, 0.604148e+00_jprb, 0.589671e+00_jprb &
22433  &, 0.575156e+00_jprb, 0.560603e+00_jprb, 0.546039e+00_jprb &
22434  &, 0.531490e+00_jprb, 0.516959e+00_jprb, 0.502462e+00_jprb, 0.488028e+00_jprb &
22435  &, 0.473660e+00_jprb, 0.459374e+00_jprb, 0.445186e+00_jprb &
22436  &, 0.431127e+00_jprb, 0.417181e+00_jprb, 0.403380e+00_jprb, 0.389739e+00_jprb &
22437  &, 0.376270e+00_jprb, 0.362987e+00_jprb, 0.349903e+00_jprb &
22438  &, 0.337011e+00_jprb, 0.324338e+00_jprb, 0.311895e+00_jprb, 0.299668e+00_jprb &
22439  &, 0.287702e+00_jprb, 0.275984e+00_jprb, 0.264516e+00_jprb &
22440  &, 0.253320e+00_jprb, 0.242398e+00_jprb, 0.231746e+00_jprb, 0.221385e+00_jprb &
22441  &, 0.211286e+00_jprb, 0.201489e+00_jprb, 0.191985e+00_jprb &
22442  &, 0.182763e+00_jprb, 0.173836e+00_jprb, 0.165214e+00_jprb, 0.156855e+00_jprb &
22443  &, 0.148792e+00_jprb, 0.141031e+00_jprb, 0.133551e+00_jprb &
22444  &, 0.126353e+00_jprb, 0.119439e+00_jprb, 0.112810e+00_jprb, 0.106434e+00_jprb &
22445  &, 0.100337e+00_jprb, 0.945143e-01_jprb, 0.889297e-01_jprb &
22446  &, 0.836055e-01_jprb, 0.785325e-01_jprb, 0.736998e-01_jprb, 0.690950e-01_jprb &
22447  &, 0.647034e-01_jprb, 0.605433e-01_jprb, 0.566332e-01_jprb &
22448  &, 0.528850e-01_jprb, 0.493489e-01_jprb, 0.460042e-01_jprb, 0.428654e-01_jprb &
22449  &, 0.398709e-01_jprb, 0.370713e-01_jprb, 0.344404e-01_jprb &
22450  &, 0.319503e-01_jprb, 0.296520e-01_jprb, 0.274334e-01_jprb, 0.253857e-01_jprb &
22451  &, 0.234770e-01_jprb, 0.216727e-01_jprb, 0.200244e-01_jprb &
22452  &, 0.184517e-01_jprb, 0.170057e-01_jprb, 0.156476e-01_jprb, 0.143833e-01_jprb &
22453  &, 0.132184e-01_jprb, 0.121105e-01_jprb, 0.111125e-01_jprb &
22454  &, 0.101807e-01_jprb, 0.931900e-02_jprb, 0.848019e-02_jprb, 0.777030e-02_jprb &
22455  &, 0.709009e-02_jprb, 0.644158e-02_jprb, 0.588114e-02_jprb &
22456  &, 0.535803e-02_jprb, 0.487436e-02_jprb, 0.443228e-02_jprb, 0.397651e-02_jprb &
22457  &, 0.362345e-02_jprb, 0.325957e-02_jprb, 0.294465e-02_jprb &
22458  &, 0.268099e-02_jprb, 0.240943e-02_jprb, 0.219223e-02_jprb, 0.196861e-02_jprb &
22459  &, 0.173850e-02_jprb, 0.156668e-02_jprb, 0.138993e-02_jprb/)
22460 xcw( 513, :) = (/ &
22461  & 0.999805e+00_jprb, 0.998712e+00_jprb, 0.997201e+00_jprb, 0.995277e+00_jprb &
22462  &, 0.992937e+00_jprb, 0.990181e+00_jprb, 0.987012e+00_jprb &
22463  &, 0.983431e+00_jprb, 0.979439e+00_jprb, 0.975039e+00_jprb, 0.970233e+00_jprb &
22464  &, 0.965020e+00_jprb, 0.959407e+00_jprb, 0.953397e+00_jprb &
22465  &, 0.946990e+00_jprb, 0.940193e+00_jprb, 0.933007e+00_jprb, 0.925440e+00_jprb &
22466  &, 0.917495e+00_jprb, 0.909178e+00_jprb, 0.900494e+00_jprb &
22467  &, 0.891449e+00_jprb, 0.882054e+00_jprb, 0.872311e+00_jprb, 0.862232e+00_jprb &
22468  &, 0.851820e+00_jprb, 0.841090e+00_jprb, 0.830049e+00_jprb &
22469  &, 0.818702e+00_jprb, 0.807071e+00_jprb, 0.795156e+00_jprb, 0.782974e+00_jprb &
22470  &, 0.770537e+00_jprb, 0.757858e+00_jprb, 0.744947e+00_jprb &
22471  &, 0.731817e+00_jprb, 0.718489e+00_jprb, 0.704964e+00_jprb, 0.691278e+00_jprb &
22472  &, 0.677425e+00_jprb, 0.663436e+00_jprb, 0.649312e+00_jprb &
22473  &, 0.635079e+00_jprb, 0.620755e+00_jprb, 0.606347e+00_jprb, 0.591877e+00_jprb &
22474  &, 0.577367e+00_jprb, 0.562819e+00_jprb, 0.548271e+00_jprb &
22475  &, 0.533711e+00_jprb, 0.519180e+00_jprb, 0.504681e+00_jprb, 0.490244e+00_jprb &
22476  &, 0.475872e+00_jprb, 0.461579e+00_jprb, 0.447382e+00_jprb &
22477  &, 0.433296e+00_jprb, 0.419338e+00_jprb, 0.405522e+00_jprb, 0.391863e+00_jprb &
22478  &, 0.378375e+00_jprb, 0.365070e+00_jprb, 0.351944e+00_jprb &
22479  &, 0.339025e+00_jprb, 0.326342e+00_jprb, 0.313847e+00_jprb, 0.301605e+00_jprb &
22480  &, 0.289602e+00_jprb, 0.277864e+00_jprb, 0.266354e+00_jprb &
22481  &, 0.255134e+00_jprb, 0.244163e+00_jprb, 0.233483e+00_jprb, 0.223068e+00_jprb &
22482  &, 0.212935e+00_jprb, 0.203101e+00_jprb, 0.193558e+00_jprb &
22483  &, 0.184295e+00_jprb, 0.175324e+00_jprb, 0.166656e+00_jprb, 0.158248e+00_jprb &
22484  &, 0.150160e+00_jprb, 0.142345e+00_jprb, 0.134835e+00_jprb &
22485  &, 0.127578e+00_jprb, 0.120631e+00_jprb, 0.113937e+00_jprb, 0.107523e+00_jprb &
22486  &, 0.101387e+00_jprb, 0.955223e-01_jprb, 0.898939e-01_jprb &
22487  &, 0.845554e-01_jprb, 0.794350e-01_jprb, 0.745529e-01_jprb, 0.698963e-01_jprb &
22488  &, 0.654849e-01_jprb, 0.613038e-01_jprb, 0.573366e-01_jprb &
22489  &, 0.535647e-01_jprb, 0.500039e-01_jprb, 0.466332e-01_jprb, 0.434297e-01_jprb &
22490  &, 0.404447e-01_jprb, 0.376157e-01_jprb, 0.349543e-01_jprb &
22491  &, 0.324324e-01_jprb, 0.301011e-01_jprb, 0.278898e-01_jprb, 0.258073e-01_jprb &
22492  &, 0.238624e-01_jprb, 0.220207e-01_jprb, 0.203337e-01_jprb &
22493  &, 0.187658e-01_jprb, 0.172790e-01_jprb, 0.159252e-01_jprb, 0.146181e-01_jprb &
22494  &, 0.134568e-01_jprb, 0.123525e-01_jprb, 0.113090e-01_jprb &
22495  &, 0.103801e-01_jprb, 0.947078e-02_jprb, 0.868553e-02_jprb, 0.792655e-02_jprb &
22496  &, 0.724860e-02_jprb, 0.660237e-02_jprb, 0.598987e-02_jprb &
22497  &, 0.546829e-02_jprb, 0.498618e-02_jprb, 0.448898e-02_jprb, 0.409148e-02_jprb &
22498  &, 0.368173e-02_jprb, 0.337774e-02_jprb, 0.300454e-02_jprb &
22499  &, 0.274170e-02_jprb, 0.247096e-02_jprb, 0.225458e-02_jprb, 0.203179e-02_jprb &
22500  &, 0.180251e-02_jprb, 0.163154e-02_jprb, 0.145564e-02_jprb/)
22501 xcw( 514, :) = (/ &
22502  & 0.100005e+01_jprb, 0.999025e+00_jprb, 0.997578e+00_jprb, 0.995717e+00_jprb &
22503  &, 0.993437e+00_jprb, 0.990744e+00_jprb, 0.987636e+00_jprb &
22504  &, 0.984115e+00_jprb, 0.980184e+00_jprb, 0.975844e+00_jprb, 0.971097e+00_jprb &
22505  &, 0.965943e+00_jprb, 0.960389e+00_jprb, 0.954435e+00_jprb &
22506  &, 0.948085e+00_jprb, 0.941344e+00_jprb, 0.934214e+00_jprb, 0.926702e+00_jprb &
22507  &, 0.918810e+00_jprb, 0.910545e+00_jprb, 0.901911e+00_jprb &
22508  &, 0.892918e+00_jprb, 0.883570e+00_jprb, 0.873876e+00_jprb, 0.863844e+00_jprb &
22509  &, 0.853478e+00_jprb, 0.842792e+00_jprb, 0.831793e+00_jprb &
22510  &, 0.820489e+00_jprb, 0.808894e+00_jprb, 0.797020e+00_jprb, 0.784872e+00_jprb &
22511  &, 0.772470e+00_jprb, 0.759822e+00_jprb, 0.746943e+00_jprb &
22512  &, 0.733845e+00_jprb, 0.720539e+00_jprb, 0.707047e+00_jprb, 0.693383e+00_jprb &
22513  &, 0.679552e+00_jprb, 0.665575e+00_jprb, 0.651473e+00_jprb &
22514  &, 0.637261e+00_jprb, 0.622946e+00_jprb, 0.608557e+00_jprb, 0.594094e+00_jprb &
22515  &, 0.579591e+00_jprb, 0.565048e+00_jprb, 0.550503e+00_jprb &
22516  &, 0.535944e+00_jprb, 0.521414e+00_jprb, 0.506914e+00_jprb, 0.492474e+00_jprb &
22517  &, 0.478083e+00_jprb, 0.463783e+00_jprb, 0.449577e+00_jprb &
22518  &, 0.435481e+00_jprb, 0.421511e+00_jprb, 0.407680e+00_jprb, 0.394004e+00_jprb &
22519  &, 0.380497e+00_jprb, 0.367153e+00_jprb, 0.354021e+00_jprb &
22520  &, 0.341076e+00_jprb, 0.328345e+00_jprb, 0.315838e+00_jprb, 0.303561e+00_jprb &
22521  &, 0.291522e+00_jprb, 0.279745e+00_jprb, 0.268212e+00_jprb &
22522  &, 0.256948e+00_jprb, 0.245950e+00_jprb, 0.235219e+00_jprb, 0.224773e+00_jprb &
22523  &, 0.214607e+00_jprb, 0.204714e+00_jprb, 0.195132e+00_jprb &
22524  &, 0.185828e+00_jprb, 0.176813e+00_jprb, 0.168098e+00_jprb, 0.159667e+00_jprb &
22525  &, 0.151527e+00_jprb, 0.143659e+00_jprb, 0.136092e+00_jprb &
22526  &, 0.128832e+00_jprb, 0.121823e+00_jprb, 0.115094e+00_jprb, 0.108642e+00_jprb &
22527  &, 0.102466e+00_jprb, 0.965608e-01_jprb, 0.908891e-01_jprb &
22528  &, 0.854737e-01_jprb, 0.803376e-01_jprb, 0.754059e-01_jprb, 0.707311e-01_jprb &
22529  &, 0.663003e-01_jprb, 0.620644e-01_jprb, 0.580400e-01_jprb &
22530  &, 0.542444e-01_jprb, 0.506588e-01_jprb, 0.472623e-01_jprb, 0.440317e-01_jprb &
22531  &, 0.410186e-01_jprb, 0.381601e-01_jprb, 0.354287e-01_jprb &
22532  &, 0.329146e-01_jprb, 0.305502e-01_jprb, 0.283047e-01_jprb, 0.261866e-01_jprb &
22533  &, 0.242478e-01_jprb, 0.224122e-01_jprb, 0.206871e-01_jprb &
22534  &, 0.190799e-01_jprb, 0.175980e-01_jprb, 0.162028e-01_jprb, 0.148999e-01_jprb &
22535  &, 0.136952e-01_jprb, 0.125461e-01_jprb, 0.115055e-01_jprb &
22536  &, 0.105795e-01_jprb, 0.967315e-02_jprb, 0.883953e-02_jprb, 0.808279e-02_jprb &
22537  &, 0.735428e-02_jprb, 0.670956e-02_jprb, 0.609859e-02_jprb &
22538  &, 0.557856e-02_jprb, 0.504209e-02_jprb, 0.460237e-02_jprb, 0.420646e-02_jprb &
22539  &, 0.379829e-02_jprb, 0.343682e-02_jprb, 0.312432e-02_jprb &
22540  &, 0.280240e-02_jprb, 0.253248e-02_jprb, 0.225458e-02_jprb, 0.203179e-02_jprb &
22541  &, 0.186653e-02_jprb, 0.163154e-02_jprb, 0.152136e-02_jprb/)
22542 xcw( 515, :) = (/ &
22543  & 0.100031e+01_jprb, 0.999338e+00_jprb, 0.997954e+00_jprb, 0.996155e+00_jprb &
22544  &, 0.993937e+00_jprb, 0.991306e+00_jprb, 0.988259e+00_jprb &
22545  &, 0.984800e+00_jprb, 0.980930e+00_jprb, 0.976649e+00_jprb, 0.971962e+00_jprb &
22546  &, 0.966867e+00_jprb, 0.961371e+00_jprb, 0.955475e+00_jprb &
22547  &, 0.949182e+00_jprb, 0.942497e+00_jprb, 0.935423e+00_jprb, 0.927965e+00_jprb &
22548  &, 0.920127e+00_jprb, 0.911913e+00_jprb, 0.903331e+00_jprb &
22549  &, 0.894390e+00_jprb, 0.885090e+00_jprb, 0.875444e+00_jprb, 0.865457e+00_jprb &
22550  &, 0.855137e+00_jprb, 0.844495e+00_jprb, 0.833537e+00_jprb &
22551  &, 0.822276e+00_jprb, 0.810722e+00_jprb, 0.798885e+00_jprb, 0.786775e+00_jprb &
22552  &, 0.774408e+00_jprb, 0.761796e+00_jprb, 0.748947e+00_jprb &
22553  &, 0.735873e+00_jprb, 0.722599e+00_jprb, 0.709130e+00_jprb, 0.695488e+00_jprb &
22554  &, 0.681680e+00_jprb, 0.667735e+00_jprb, 0.653644e+00_jprb &
22555  &, 0.639454e+00_jprb, 0.625148e+00_jprb, 0.610768e+00_jprb, 0.596324e+00_jprb &
22556  &, 0.581827e+00_jprb, 0.567289e+00_jprb, 0.552734e+00_jprb &
22557  &, 0.538191e+00_jprb, 0.523662e+00_jprb, 0.509147e+00_jprb, 0.494705e+00_jprb &
22558  &, 0.480308e+00_jprb, 0.466002e+00_jprb, 0.451773e+00_jprb &
22559  &, 0.437666e+00_jprb, 0.423683e+00_jprb, 0.409838e+00_jprb, 0.396145e+00_jprb &
22560  &, 0.382601e+00_jprb, 0.369254e+00_jprb, 0.356080e+00_jprb &
22561  &, 0.343108e+00_jprb, 0.330367e+00_jprb, 0.317828e+00_jprb, 0.305518e+00_jprb &
22562  &, 0.293442e+00_jprb, 0.281625e+00_jprb, 0.270071e+00_jprb &
22563  &, 0.258761e+00_jprb, 0.247738e+00_jprb, 0.236956e+00_jprb, 0.226478e+00_jprb &
22564  &, 0.216278e+00_jprb, 0.206349e+00_jprb, 0.196729e+00_jprb &
22565  &, 0.187384e+00_jprb, 0.178326e+00_jprb, 0.169565e+00_jprb, 0.161086e+00_jprb &
22566  &, 0.152895e+00_jprb, 0.144999e+00_jprb, 0.137404e+00_jprb &
22567  &, 0.130057e+00_jprb, 0.123015e+00_jprb, 0.116250e+00_jprb, 0.109761e+00_jprb &
22568  &, 0.103546e+00_jprb, 0.975993e-01_jprb, 0.918844e-01_jprb &
22569  &, 0.864553e-01_jprb, 0.812401e-01_jprb, 0.762918e-01_jprb, 0.715659e-01_jprb &
22570  &, 0.670818e-01_jprb, 0.628249e-01_jprb, 0.587786e-01_jprb &
22571  &, 0.549599e-01_jprb, 0.513138e-01_jprb, 0.478913e-01_jprb, 0.446337e-01_jprb &
22572  &, 0.415541e-01_jprb, 0.386657e-01_jprb, 0.359426e-01_jprb &
22573  &, 0.333967e-01_jprb, 0.309993e-01_jprb, 0.287196e-01_jprb, 0.266082e-01_jprb &
22574  &, 0.246332e-01_jprb, 0.227602e-01_jprb, 0.209964e-01_jprb &
22575  &, 0.193940e-01_jprb, 0.178714e-01_jprb, 0.164804e-01_jprb, 0.151348e-01_jprb &
22576  &, 0.139336e-01_jprb, 0.127881e-01_jprb, 0.117511e-01_jprb &
22577  &, 0.107291e-01_jprb, 0.982493e-02_jprb, 0.899354e-02_jprb, 0.823904e-02_jprb &
22578  &, 0.751279e-02_jprb, 0.687035e-02_jprb, 0.626168e-02_jprb &
22579  &, 0.568883e-02_jprb, 0.515392e-02_jprb, 0.471576e-02_jprb, 0.426394e-02_jprb &
22580  &, 0.385657e-02_jprb, 0.349590e-02_jprb, 0.318421e-02_jprb &
22581  &, 0.286310e-02_jprb, 0.259400e-02_jprb, 0.231693e-02_jprb, 0.209497e-02_jprb &
22582  &, 0.186653e-02_jprb, 0.169641e-02_jprb, 0.152136e-02_jprb/)
22583 xcw( 516, :) = (/ &
22584  & 0.100056e+01_jprb, 0.999654e+00_jprb, 0.998331e+00_jprb, 0.996593e+00_jprb &
22585  &, 0.994428e+00_jprb, 0.991869e+00_jprb, 0.988884e+00_jprb &
22586  &, 0.985485e+00_jprb, 0.981676e+00_jprb, 0.977455e+00_jprb, 0.972827e+00_jprb &
22587  &, 0.967791e+00_jprb, 0.962354e+00_jprb, 0.956515e+00_jprb &
22588  &, 0.950280e+00_jprb, 0.943651e+00_jprb, 0.936630e+00_jprb, 0.929228e+00_jprb &
22589  &, 0.921443e+00_jprb, 0.913283e+00_jprb, 0.904755e+00_jprb &
22590  &, 0.895862e+00_jprb, 0.886612e+00_jprb, 0.877013e+00_jprb, 0.867073e+00_jprb &
22591  &, 0.856799e+00_jprb, 0.846201e+00_jprb, 0.835289e+00_jprb &
22592  &, 0.824067e+00_jprb, 0.812553e+00_jprb, 0.800753e+00_jprb, 0.788682e+00_jprb &
22593  &, 0.776350e+00_jprb, 0.763769e+00_jprb, 0.750952e+00_jprb &
22594  &, 0.737910e+00_jprb, 0.724668e+00_jprb, 0.711222e+00_jprb, 0.697604e+00_jprb &
22595  &, 0.683818e+00_jprb, 0.669885e+00_jprb, 0.655826e+00_jprb &
22596  &, 0.641635e+00_jprb, 0.627350e+00_jprb, 0.612990e+00_jprb, 0.598554e+00_jprb &
22597  &, 0.584063e+00_jprb, 0.569530e+00_jprb, 0.554992e+00_jprb &
22598  &, 0.540438e+00_jprb, 0.525909e+00_jprb, 0.511394e+00_jprb, 0.496935e+00_jprb &
22599  &, 0.482548e+00_jprb, 0.468221e+00_jprb, 0.453999e+00_jprb &
22600  &, 0.439867e+00_jprb, 0.425871e+00_jprb, 0.412012e+00_jprb, 0.398286e+00_jprb &
22601  &, 0.384740e+00_jprb, 0.371354e+00_jprb, 0.358175e+00_jprb &
22602  &, 0.345177e+00_jprb, 0.332389e+00_jprb, 0.319819e+00_jprb, 0.307494e+00_jprb &
22603  &, 0.295382e+00_jprb, 0.283525e+00_jprb, 0.271929e+00_jprb &
22604  &, 0.260596e+00_jprb, 0.249525e+00_jprb, 0.238715e+00_jprb, 0.228206e+00_jprb &
22605  &, 0.217950e+00_jprb, 0.207985e+00_jprb, 0.198326e+00_jprb &
22606  &, 0.188941e+00_jprb, 0.179839e+00_jprb, 0.171032e+00_jprb, 0.162505e+00_jprb &
22607  &, 0.154289e+00_jprb, 0.146340e+00_jprb, 0.138688e+00_jprb &
22608  &, 0.131338e+00_jprb, 0.124235e+00_jprb, 0.117435e+00_jprb, 0.110910e+00_jprb &
22609  &, 0.104626e+00_jprb, 0.986378e-01_jprb, 0.928797e-01_jprb &
22610  &, 0.874053e-01_jprb, 0.821749e-01_jprb, 0.771776e-01_jprb, 0.724340e-01_jprb &
22611  &, 0.678973e-01_jprb, 0.636201e-01_jprb, 0.595171e-01_jprb &
22612  &, 0.556754e-01_jprb, 0.520051e-01_jprb, 0.485204e-01_jprb, 0.452358e-01_jprb &
22613  &, 0.421279e-01_jprb, 0.392102e-01_jprb, 0.364565e-01_jprb &
22614  &, 0.338788e-01_jprb, 0.314485e-01_jprb, 0.291759e-01_jprb, 0.270297e-01_jprb &
22615  &, 0.250186e-01_jprb, 0.231082e-01_jprb, 0.213499e-01_jprb &
22616  &, 0.197081e-01_jprb, 0.181903e-01_jprb, 0.167580e-01_jprb, 0.154166e-01_jprb &
22617  &, 0.141721e-01_jprb, 0.130301e-01_jprb, 0.119477e-01_jprb &
22618  &, 0.109285e-01_jprb, 0.100273e-01_jprb, 0.919887e-02_jprb, 0.839529e-02_jprb &
22619  &, 0.767130e-02_jprb, 0.697754e-02_jprb, 0.637040e-02_jprb &
22620  &, 0.579910e-02_jprb, 0.526574e-02_jprb, 0.482915e-02_jprb, 0.437891e-02_jprb &
22621  &, 0.397314e-02_jprb, 0.361407e-02_jprb, 0.324410e-02_jprb &
22622  &, 0.292381e-02_jprb, 0.265553e-02_jprb, 0.237928e-02_jprb, 0.215815e-02_jprb &
22623  &, 0.193055e-02_jprb, 0.176127e-02_jprb, 0.158707e-02_jprb/)
22624 xcw( 517, :) = (/ &
22625  & 0.100081e+01_jprb, 0.999968e+00_jprb, 0.998708e+00_jprb, 0.997032e+00_jprb &
22626  &, 0.994939e+00_jprb, 0.992432e+00_jprb, 0.989508e+00_jprb &
22627  &, 0.986171e+00_jprb, 0.982422e+00_jprb, 0.978261e+00_jprb, 0.973692e+00_jprb &
22628  &, 0.968717e+00_jprb, 0.963337e+00_jprb, 0.957557e+00_jprb &
22629  &, 0.951380e+00_jprb, 0.944807e+00_jprb, 0.937843e+00_jprb, 0.930493e+00_jprb &
22630  &, 0.922763e+00_jprb, 0.914654e+00_jprb, 0.906178e+00_jprb &
22631  &, 0.897335e+00_jprb, 0.888135e+00_jprb, 0.878585e+00_jprb, 0.868693e+00_jprb &
22632  &, 0.858465e+00_jprb, 0.847911e+00_jprb, 0.837040e+00_jprb &
22633  &, 0.825862e+00_jprb, 0.814388e+00_jprb, 0.802626e+00_jprb, 0.790593e+00_jprb &
22634  &, 0.778296e+00_jprb, 0.765746e+00_jprb, 0.752962e+00_jprb &
22635  &, 0.739956e+00_jprb, 0.726738e+00_jprb, 0.713315e+00_jprb, 0.699729e+00_jprb &
22636  &, 0.685966e+00_jprb, 0.672056e+00_jprb, 0.658009e+00_jprb &
22637  &, 0.643839e+00_jprb, 0.629564e+00_jprb, 0.615213e+00_jprb, 0.600784e+00_jprb &
22638  &, 0.586299e+00_jprb, 0.571783e+00_jprb, 0.557237e+00_jprb &
22639  &, 0.542698e+00_jprb, 0.528157e+00_jprb, 0.513655e+00_jprb, 0.499193e+00_jprb &
22640  &, 0.484788e+00_jprb, 0.470455e+00_jprb, 0.456210e+00_jprb &
22641  &, 0.442083e+00_jprb, 0.428060e+00_jprb, 0.414186e+00_jprb, 0.400443e+00_jprb &
22642  &, 0.386879e+00_jprb, 0.373472e+00_jprb, 0.360251e+00_jprb &
22643  &, 0.347246e+00_jprb, 0.334429e+00_jprb, 0.321828e+00_jprb, 0.309470e+00_jprb &
22644  &, 0.297341e+00_jprb, 0.285446e+00_jprb, 0.273809e+00_jprb &
22645  &, 0.262430e+00_jprb, 0.251333e+00_jprb, 0.240495e+00_jprb, 0.229934e+00_jprb &
22646  &, 0.219645e+00_jprb, 0.209644e+00_jprb, 0.199924e+00_jprb &
22647  &, 0.190497e+00_jprb, 0.181352e+00_jprb, 0.172500e+00_jprb, 0.163949e+00_jprb &
22648  &, 0.155683e+00_jprb, 0.147707e+00_jprb, 0.140000e+00_jprb &
22649  &, 0.132591e+00_jprb, 0.125455e+00_jprb, 0.118621e+00_jprb, 0.112029e+00_jprb &
22650  &, 0.105736e+00_jprb, 0.996763e-01_jprb, 0.939060e-01_jprb &
22651  &, 0.883869e-01_jprb, 0.831097e-01_jprb, 0.780963e-01_jprb, 0.733022e-01_jprb &
22652  &, 0.687127e-01_jprb, 0.643806e-01_jprb, 0.602909e-01_jprb &
22653  &, 0.563552e-01_jprb, 0.526600e-01_jprb, 0.491494e-01_jprb, 0.458378e-01_jprb &
22654  &, 0.427400e-01_jprb, 0.397935e-01_jprb, 0.370099e-01_jprb &
22655  &, 0.343609e-01_jprb, 0.318976e-01_jprb, 0.295908e-01_jprb, 0.274091e-01_jprb &
22656  &, 0.254040e-01_jprb, 0.234997e-01_jprb, 0.217033e-01_jprb &
22657  &, 0.200222e-01_jprb, 0.184637e-01_jprb, 0.170356e-01_jprb, 0.156985e-01_jprb &
22658  &, 0.144105e-01_jprb, 0.132721e-01_jprb, 0.121442e-01_jprb &
22659  &, 0.111778e-01_jprb, 0.102297e-01_jprb, 0.935288e-02_jprb, 0.855154e-02_jprb &
22660  &, 0.782981e-02_jprb, 0.713833e-02_jprb, 0.653349e-02_jprb &
22661  &, 0.590937e-02_jprb, 0.537756e-02_jprb, 0.488585e-02_jprb, 0.443640e-02_jprb &
22662  &, 0.403142e-02_jprb, 0.367315e-02_jprb, 0.330399e-02_jprb &
22663  &, 0.298451e-02_jprb, 0.271705e-02_jprb, 0.244163e-02_jprb, 0.222133e-02_jprb &
22664  &, 0.199457e-02_jprb, 0.176127e-02_jprb, 0.158707e-02_jprb/)
22665 xcw( 518, :) = (/ &
22666  & 0.100106e+01_jprb, 0.100028e+01_jprb, 0.999084e+00_jprb, 0.997471e+00_jprb &
22667  &, 0.995441e+00_jprb, 0.992995e+00_jprb, 0.990132e+00_jprb &
22668  &, 0.986855e+00_jprb, 0.983167e+00_jprb, 0.979069e+00_jprb, 0.974559e+00_jprb &
22669  &, 0.969643e+00_jprb, 0.964322e+00_jprb, 0.958600e+00_jprb &
22670  &, 0.952478e+00_jprb, 0.945962e+00_jprb, 0.939054e+00_jprb, 0.931760e+00_jprb &
22671  &, 0.924083e+00_jprb, 0.916027e+00_jprb, 0.907602e+00_jprb &
22672  &, 0.898810e+00_jprb, 0.889661e+00_jprb, 0.880161e+00_jprb, 0.870313e+00_jprb &
22673  &, 0.860131e+00_jprb, 0.849621e+00_jprb, 0.838795e+00_jprb &
22674  &, 0.827656e+00_jprb, 0.816223e+00_jprb, 0.804503e+00_jprb, 0.792504e+00_jprb &
22675  &, 0.780242e+00_jprb, 0.767728e+00_jprb, 0.754976e+00_jprb &
22676  &, 0.741993e+00_jprb, 0.728807e+00_jprb, 0.715417e+00_jprb, 0.701845e+00_jprb &
22677  &, 0.686799e+00_jprb, 0.674216e+00_jprb, 0.660191e+00_jprb &
22678  &, 0.646043e+00_jprb, 0.631789e+00_jprb, 0.617435e+00_jprb, 0.603025e+00_jprb &
22679  &, 0.588548e+00_jprb, 0.574037e+00_jprb, 0.559494e+00_jprb &
22680  &, 0.544958e+00_jprb, 0.530418e+00_jprb, 0.515915e+00_jprb, 0.501437e+00_jprb &
22681  &, 0.487028e+00_jprb, 0.472689e+00_jprb, 0.458436e+00_jprb &
22682  &, 0.444299e+00_jprb, 0.430264e+00_jprb, 0.416360e+00_jprb, 0.402618e+00_jprb &
22683  &, 0.389018e+00_jprb, 0.375590e+00_jprb, 0.362364e+00_jprb &
22684  &, 0.349314e+00_jprb, 0.336470e+00_jprb, 0.323857e+00_jprb, 0.311446e+00_jprb &
22685  &, 0.299280e+00_jprb, 0.287367e+00_jprb, 0.275708e+00_jprb &
22686  &, 0.264286e+00_jprb, 0.253142e+00_jprb, 0.242276e+00_jprb, 0.231662e+00_jprb &
22687  &, 0.221339e+00_jprb, 0.211303e+00_jprb, 0.201545e+00_jprb &
22688  &, 0.192078e+00_jprb, 0.182890e+00_jprb, 0.173992e+00_jprb, 0.165394e+00_jprb &
22689  &, 0.157077e+00_jprb, 0.149074e+00_jprb, 0.141339e+00_jprb &
22690  &, 0.133872e+00_jprb, 0.126703e+00_jprb, 0.119806e+00_jprb, 0.113177e+00_jprb &
22691  &, 0.106845e+00_jprb, 0.100745e+00_jprb, 0.949324e-01_jprb &
22692  &, 0.893685e-01_jprb, 0.840445e-01_jprb, 0.789821e-01_jprb, 0.741703e-01_jprb &
22693  &, 0.695622e-01_jprb, 0.651757e-01_jprb, 0.610294e-01_jprb &
22694  &, 0.571064e-01_jprb, 0.533514e-01_jprb, 0.498154e-01_jprb, 0.464774e-01_jprb &
22695  &, 0.433138e-01_jprb, 0.403379e-01_jprb, 0.375238e-01_jprb &
22696  &, 0.348832e-01_jprb, 0.323875e-01_jprb, 0.300472e-01_jprb, 0.278306e-01_jprb &
22697  &, 0.257894e-01_jprb, 0.238477e-01_jprb, 0.220568e-01_jprb &
22698  &, 0.203811e-01_jprb, 0.187827e-01_jprb, 0.173132e-01_jprb, 0.159333e-01_jprb &
22699  &, 0.146489e-01_jprb, 0.134657e-01_jprb, 0.123898e-01_jprb &
22700  &, 0.113772e-01_jprb, 0.104320e-01_jprb, 0.955822e-02_jprb, 0.870778e-02_jprb &
22701  &, 0.798832e-02_jprb, 0.729912e-02_jprb, 0.664221e-02_jprb &
22702  &, 0.607477e-02_jprb, 0.548939e-02_jprb, 0.499924e-02_jprb, 0.455137e-02_jprb &
22703  &, 0.414798e-02_jprb, 0.373223e-02_jprb, 0.342377e-02_jprb &
22704  &, 0.304522e-02_jprb, 0.277858e-02_jprb, 0.250398e-02_jprb, 0.228451e-02_jprb &
22705  &, 0.205859e-02_jprb, 0.182613e-02_jprb, 0.165278e-02_jprb/)
22706 
22707 IF (lhook) CALL dr_hook('SU_MCICA:PART74',1,zhook_handle)
22708 END SUBROUTINE part74
22709 
22710 #ifdef VPP5000
22711 !OCL SCALAR
22712 #endif
22713 !option! -Nv -NO
22714 #ifdef RS6K
22715 @process nooptimize
22716 #endif
22717 !pgi$r opt=0
22718 SUBROUTINE part75
22719 
22720 REAL(KIND=JPRB) :: ZHOOK_HANDLE
22721 IF (lhook) CALL dr_hook('SU_MCICA:PART75',0,zhook_handle)
22722 
22723 xcw( 519, :) = (/ &
22724  & 0.100131e+01_jprb, 0.100060e+01_jprb, 0.999460e+00_jprb, 0.997911e+00_jprb &
22725  &, 0.995940e+00_jprb, 0.993558e+00_jprb, 0.990758e+00_jprb &
22726  &, 0.987543e+00_jprb, 0.983915e+00_jprb, 0.979876e+00_jprb, 0.975427e+00_jprb &
22727  &, 0.970569e+00_jprb, 0.965308e+00_jprb, 0.959643e+00_jprb &
22728  &, 0.953579e+00_jprb, 0.947119e+00_jprb, 0.940267e+00_jprb, 0.933027e+00_jprb &
22729  &, 0.925404e+00_jprb, 0.917401e+00_jprb, 0.909028e+00_jprb &
22730  &, 0.900289e+00_jprb, 0.891188e+00_jprb, 0.881736e+00_jprb, 0.871937e+00_jprb &
22731  &, 0.861801e+00_jprb, 0.851335e+00_jprb, 0.840551e+00_jprb &
22732  &, 0.829459e+00_jprb, 0.818062e+00_jprb, 0.806380e+00_jprb, 0.794420e+00_jprb &
22733  &, 0.782193e+00_jprb, 0.769715e+00_jprb, 0.756994e+00_jprb &
22734  &, 0.744048e+00_jprb, 0.730886e+00_jprb, 0.717520e+00_jprb, 0.703980e+00_jprb &
22735  &, 0.690263e+00_jprb, 0.676387e+00_jprb, 0.662384e+00_jprb &
22736  &, 0.648247e+00_jprb, 0.634013e+00_jprb, 0.619680e+00_jprb, 0.605267e+00_jprb &
22737  &, 0.590808e+00_jprb, 0.576303e+00_jprb, 0.561765e+00_jprb &
22738  &, 0.547218e+00_jprb, 0.532693e+00_jprb, 0.518175e+00_jprb, 0.503710e+00_jprb &
22739  &, 0.489282e+00_jprb, 0.474937e+00_jprb, 0.460677e+00_jprb &
22740  &, 0.446515e+00_jprb, 0.432468e+00_jprb, 0.418566e+00_jprb, 0.404792e+00_jprb &
22741  &, 0.391174e+00_jprb, 0.377725e+00_jprb, 0.364458e+00_jprb &
22742  &, 0.351401e+00_jprb, 0.338528e+00_jprb, 0.325885e+00_jprb, 0.313441e+00_jprb &
22743  &, 0.301260e+00_jprb, 0.289308e+00_jprb, 0.277608e+00_jprb &
22744  &, 0.266163e+00_jprb, 0.254972e+00_jprb, 0.244056e+00_jprb, 0.233412e+00_jprb &
22745  &, 0.223057e+00_jprb, 0.212962e+00_jprb, 0.203166e+00_jprb &
22746  &, 0.193659e+00_jprb, 0.184429e+00_jprb, 0.175510e+00_jprb, 0.166864e+00_jprb &
22747  &, 0.158497e+00_jprb, 0.150442e+00_jprb, 0.142650e+00_jprb &
22748  &, 0.135153e+00_jprb, 0.127952e+00_jprb, 0.121020e+00_jprb, 0.114355e+00_jprb &
22749  &, 0.107955e+00_jprb, 0.101845e+00_jprb, 0.959587e-01_jprb &
22750  &, 0.903501e-01_jprb, 0.850115e-01_jprb, 0.799008e-01_jprb, 0.750385e-01_jprb &
22751  &, 0.703776e-01_jprb, 0.659709e-01_jprb, 0.618032e-01_jprb &
22752  &, 0.578219e-01_jprb, 0.540427e-01_jprb, 0.504815e-01_jprb, 0.471170e-01_jprb &
22753  &, 0.439259e-01_jprb, 0.408824e-01_jprb, 0.380772e-01_jprb &
22754  &, 0.353653e-01_jprb, 0.328775e-01_jprb, 0.305035e-01_jprb, 0.282943e-01_jprb &
22755  &, 0.261748e-01_jprb, 0.242392e-01_jprb, 0.224102e-01_jprb &
22756  &, 0.206952e-01_jprb, 0.191016e-01_jprb, 0.175907e-01_jprb, 0.162151e-01_jprb &
22757  &, 0.149350e-01_jprb, 0.137078e-01_jprb, 0.125863e-01_jprb &
22758  &, 0.115767e-01_jprb, 0.106344e-01_jprb, 0.971222e-02_jprb, 0.891611e-02_jprb &
22759  &, 0.814683e-02_jprb, 0.740632e-02_jprb, 0.675094e-02_jprb &
22760  &, 0.618504e-02_jprb, 0.560121e-02_jprb, 0.511263e-02_jprb, 0.466634e-02_jprb &
22761  &, 0.420626e-02_jprb, 0.385040e-02_jprb, 0.348366e-02_jprb &
22762  &, 0.316663e-02_jprb, 0.284010e-02_jprb, 0.256633e-02_jprb, 0.234769e-02_jprb &
22763  &, 0.212261e-02_jprb, 0.189099e-02_jprb, 0.171849e-02_jprb/)
22764 xcw( 520, :) = (/ &
22765  & 0.100156e+01_jprb, 0.100091e+01_jprb, 0.999837e+00_jprb, 0.998349e+00_jprb &
22766  &, 0.996444e+00_jprb, 0.994122e+00_jprb, 0.991383e+00_jprb &
22767  &, 0.988229e+00_jprb, 0.984663e+00_jprb, 0.980684e+00_jprb, 0.976294e+00_jprb &
22768  &, 0.971497e+00_jprb, 0.966294e+00_jprb, 0.960687e+00_jprb &
22769  &, 0.954681e+00_jprb, 0.948277e+00_jprb, 0.941482e+00_jprb, 0.934297e+00_jprb &
22770  &, 0.926727e+00_jprb, 0.918778e+00_jprb, 0.910455e+00_jprb &
22771  &, 0.901767e+00_jprb, 0.892717e+00_jprb, 0.883312e+00_jprb, 0.873560e+00_jprb &
22772  &, 0.863470e+00_jprb, 0.853052e+00_jprb, 0.842310e+00_jprb &
22773  &, 0.831257e+00_jprb, 0.819906e+00_jprb, 0.808260e+00_jprb, 0.796339e+00_jprb &
22774  &, 0.784148e+00_jprb, 0.771701e+00_jprb, 0.759017e+00_jprb &
22775  &, 0.746095e+00_jprb, 0.732965e+00_jprb, 0.719632e+00_jprb, 0.706105e+00_jprb &
22776  &, 0.692421e+00_jprb, 0.678568e+00_jprb, 0.664577e+00_jprb &
22777  &, 0.650462e+00_jprb, 0.636238e+00_jprb, 0.621914e+00_jprb, 0.607521e+00_jprb &
22778  &, 0.593069e+00_jprb, 0.578569e+00_jprb, 0.564035e+00_jprb &
22779  &, 0.549492e+00_jprb, 0.534967e+00_jprb, 0.520450e+00_jprb, 0.505968e+00_jprb &
22780  &, 0.491551e+00_jprb, 0.477201e+00_jprb, 0.462918e+00_jprb &
22781  &, 0.448747e+00_jprb, 0.434688e+00_jprb, 0.420757e+00_jprb, 0.406966e+00_jprb &
22782  &, 0.393347e+00_jprb, 0.379878e+00_jprb, 0.366588e+00_jprb &
22783  &, 0.353488e+00_jprb, 0.340587e+00_jprb, 0.327914e+00_jprb, 0.315455e+00_jprb &
22784  &, 0.303239e+00_jprb, 0.291249e+00_jprb, 0.279508e+00_jprb &
22785  &, 0.268019e+00_jprb, 0.256803e+00_jprb, 0.245859e+00_jprb, 0.235184e+00_jprb &
22786  &, 0.224774e+00_jprb, 0.214645e+00_jprb, 0.204811e+00_jprb &
22787  &, 0.195264e+00_jprb, 0.185991e+00_jprb, 0.177028e+00_jprb, 0.168335e+00_jprb &
22788  &, 0.159944e+00_jprb, 0.151809e+00_jprb, 0.143989e+00_jprb &
22789  &, 0.136462e+00_jprb, 0.129200e+00_jprb, 0.122205e+00_jprb, 0.115504e+00_jprb &
22790  &, 0.109095e+00_jprb, 0.102914e+00_jprb, 0.970162e-01_jprb &
22791  &, 0.913634e-01_jprb, 0.859786e-01_jprb, 0.808195e-01_jprb, 0.759066e-01_jprb &
22792  &, 0.712271e-01_jprb, 0.668006e-01_jprb, 0.625769e-01_jprb &
22793  &, 0.585374e-01_jprb, 0.547340e-01_jprb, 0.511475e-01_jprb, 0.477190e-01_jprb &
22794  &, 0.444997e-01_jprb, 0.414657e-01_jprb, 0.385911e-01_jprb &
22795  &, 0.358876e-01_jprb, 0.333674e-01_jprb, 0.309599e-01_jprb, 0.287158e-01_jprb &
22796  &, 0.266031e-01_jprb, 0.246307e-01_jprb, 0.227637e-01_jprb &
22797  &, 0.210542e-01_jprb, 0.194206e-01_jprb, 0.179146e-01_jprb, 0.164970e-01_jprb &
22798  &, 0.151734e-01_jprb, 0.139498e-01_jprb, 0.128319e-01_jprb &
22799  &, 0.117761e-01_jprb, 0.107862e-01_jprb, 0.991756e-02_jprb, 0.907236e-02_jprb &
22800  &, 0.830533e-02_jprb, 0.756710e-02_jprb, 0.691403e-02_jprb &
22801  &, 0.629531e-02_jprb, 0.576895e-02_jprb, 0.522603e-02_jprb, 0.478131e-02_jprb &
22802  &, 0.432282e-02_jprb, 0.390948e-02_jprb, 0.354355e-02_jprb &
22803  &, 0.322733e-02_jprb, 0.290162e-02_jprb, 0.262868e-02_jprb, 0.234769e-02_jprb &
22804  &, 0.212261e-02_jprb, 0.195585e-02_jprb, 0.171849e-02_jprb/)
22805 xcw( 521, :) = (/ &
22806  & 0.100181e+01_jprb, 0.100122e+01_jprb, 0.100022e+01_jprb, 0.998789e+00_jprb &
22807  &, 0.996946e+00_jprb, 0.994686e+00_jprb, 0.992008e+00_jprb &
22808  &, 0.988917e+00_jprb, 0.985411e+00_jprb, 0.981492e+00_jprb, 0.977163e+00_jprb &
22809  &, 0.972425e+00_jprb, 0.967280e+00_jprb, 0.961731e+00_jprb &
22810  &, 0.955783e+00_jprb, 0.949437e+00_jprb, 0.942696e+00_jprb, 0.935566e+00_jprb &
22811  &, 0.928052e+00_jprb, 0.920158e+00_jprb, 0.911885e+00_jprb &
22812  &, 0.903249e+00_jprb, 0.894247e+00_jprb, 0.884891e+00_jprb, 0.875191e+00_jprb &
22813  &, 0.865147e+00_jprb, 0.854769e+00_jprb, 0.844073e+00_jprb &
22814  &, 0.833064e+00_jprb, 0.821753e+00_jprb, 0.810145e+00_jprb, 0.798263e+00_jprb &
22815  &, 0.786107e+00_jprb, 0.773697e+00_jprb, 0.761040e+00_jprb &
22816  &, 0.748150e+00_jprb, 0.735054e+00_jprb, 0.721744e+00_jprb, 0.708251e+00_jprb &
22817  &, 0.694580e+00_jprb, 0.680750e+00_jprb, 0.666781e+00_jprb &
22818  &, 0.652677e+00_jprb, 0.638475e+00_jprb, 0.624171e+00_jprb, 0.609786e+00_jprb &
22819  &, 0.595329e+00_jprb, 0.580835e+00_jprb, 0.566318e+00_jprb &
22820  &, 0.551778e+00_jprb, 0.537242e+00_jprb, 0.522724e+00_jprb, 0.508254e+00_jprb &
22821  &, 0.493820e+00_jprb, 0.479464e+00_jprb, 0.465174e+00_jprb &
22822  &, 0.450994e+00_jprb, 0.436924e+00_jprb, 0.422979e+00_jprb, 0.409173e+00_jprb &
22823  &, 0.395520e+00_jprb, 0.382031e+00_jprb, 0.368718e+00_jprb &
22824  &, 0.355593e+00_jprb, 0.342665e+00_jprb, 0.329961e+00_jprb, 0.317470e+00_jprb &
22825  &, 0.305218e+00_jprb, 0.293210e+00_jprb, 0.281428e+00_jprb &
22826  &, 0.269917e+00_jprb, 0.258654e+00_jprb, 0.247661e+00_jprb, 0.236957e+00_jprb &
22827  &, 0.226515e+00_jprb, 0.216351e+00_jprb, 0.206457e+00_jprb &
22828  &, 0.196870e+00_jprb, 0.187554e+00_jprb, 0.178546e+00_jprb, 0.169805e+00_jprb &
22829  &, 0.161364e+00_jprb, 0.153203e+00_jprb, 0.145356e+00_jprb &
22830  &, 0.137771e+00_jprb, 0.130449e+00_jprb, 0.123448e+00_jprb, 0.116682e+00_jprb &
22831  &, 0.110204e+00_jprb, 0.104014e+00_jprb, 0.980737e-01_jprb &
22832  &, 0.923767e-01_jprb, 0.869456e-01_jprb, 0.817381e-01_jprb, 0.768082e-01_jprb &
22833  &, 0.720765e-01_jprb, 0.675957e-01_jprb, 0.633506e-01_jprb &
22834  &, 0.592887e-01_jprb, 0.554617e-01_jprb, 0.518136e-01_jprb, 0.483587e-01_jprb &
22835  &, 0.451118e-01_jprb, 0.420491e-01_jprb, 0.391445e-01_jprb &
22836  &, 0.364099e-01_jprb, 0.338574e-01_jprb, 0.314163e-01_jprb, 0.291373e-01_jprb &
22837  &, 0.270313e-01_jprb, 0.250222e-01_jprb, 0.231171e-01_jprb &
22838  &, 0.213683e-01_jprb, 0.197395e-01_jprb, 0.182385e-01_jprb, 0.167788e-01_jprb &
22839  &, 0.154595e-01_jprb, 0.142402e-01_jprb, 0.130776e-01_jprb &
22840  &, 0.120254e-01_jprb, 0.109886e-01_jprb, 0.100716e-01_jprb, 0.922861e-02_jprb &
22841  &, 0.846384e-02_jprb, 0.772789e-02_jprb, 0.707711e-02_jprb &
22842  &, 0.646071e-02_jprb, 0.588077e-02_jprb, 0.533942e-02_jprb, 0.483880e-02_jprb &
22843  &, 0.443939e-02_jprb, 0.402765e-02_jprb, 0.366333e-02_jprb &
22844  &, 0.328803e-02_jprb, 0.296315e-02_jprb, 0.269103e-02_jprb, 0.241087e-02_jprb &
22845  &, 0.218662e-02_jprb, 0.195585e-02_jprb, 0.178420e-02_jprb/)
22846 xcw( 522, :) = (/ &
22847  & 0.100207e+01_jprb, 0.100154e+01_jprb, 0.100059e+01_jprb, 0.999229e+00_jprb &
22848  &, 0.997448e+00_jprb, 0.995249e+00_jprb, 0.992635e+00_jprb &
22849  &, 0.989604e+00_jprb, 0.986159e+00_jprb, 0.982302e+00_jprb, 0.978033e+00_jprb &
22850  &, 0.973354e+00_jprb, 0.968267e+00_jprb, 0.962779e+00_jprb &
22851  &, 0.956887e+00_jprb, 0.950597e+00_jprb, 0.943908e+00_jprb, 0.936838e+00_jprb &
22852  &, 0.929378e+00_jprb, 0.921535e+00_jprb, 0.913318e+00_jprb &
22853  &, 0.904731e+00_jprb, 0.895783e+00_jprb, 0.886474e+00_jprb, 0.876818e+00_jprb &
22854  &, 0.866824e+00_jprb, 0.856494e+00_jprb, 0.845840e+00_jprb &
22855  &, 0.834870e+00_jprb, 0.823600e+00_jprb, 0.812035e+00_jprb, 0.800187e+00_jprb &
22856  &, 0.788070e+00_jprb, 0.775692e+00_jprb, 0.763072e+00_jprb &
22857  &, 0.750215e+00_jprb, 0.737142e+00_jprb, 0.723856e+00_jprb, 0.710386e+00_jprb &
22858  &, 0.696749e+00_jprb, 0.682941e+00_jprb, 0.668985e+00_jprb &
22859  &, 0.654903e+00_jprb, 0.640711e+00_jprb, 0.626417e+00_jprb, 0.612052e+00_jprb &
22860  &, 0.597614e+00_jprb, 0.583126e+00_jprb, 0.568601e+00_jprb &
22861  &, 0.554064e+00_jprb, 0.539530e+00_jprb, 0.525026e+00_jprb, 0.510541e+00_jprb &
22862  &, 0.496103e+00_jprb, 0.481728e+00_jprb, 0.467445e+00_jprb &
22863  &, 0.453241e+00_jprb, 0.439160e+00_jprb, 0.425202e+00_jprb, 0.411364e+00_jprb &
22864  &, 0.397693e+00_jprb, 0.384183e+00_jprb, 0.370848e+00_jprb &
22865  &, 0.357698e+00_jprb, 0.344761e+00_jprb, 0.332027e+00_jprb, 0.319504e+00_jprb &
22866  &, 0.307217e+00_jprb, 0.295171e+00_jprb, 0.283349e+00_jprb &
22867  &, 0.271815e+00_jprb, 0.260506e+00_jprb, 0.249486e+00_jprb, 0.238730e+00_jprb &
22868  &, 0.228255e+00_jprb, 0.218033e+00_jprb, 0.208126e+00_jprb &
22869  &, 0.198499e+00_jprb, 0.189142e+00_jprb, 0.180090e+00_jprb, 0.171301e+00_jprb &
22870  &, 0.162810e+00_jprb, 0.154624e+00_jprb, 0.146722e+00_jprb &
22871  &, 0.139079e+00_jprb, 0.131726e+00_jprb, 0.124662e+00_jprb, 0.117889e+00_jprb &
22872  &, 0.111374e+00_jprb, 0.105113e+00_jprb, 0.991311e-01_jprb &
22873  &, 0.933900e-01_jprb, 0.879126e-01_jprb, 0.826896e-01_jprb, 0.777097e-01_jprb &
22874  &, 0.729600e-01_jprb, 0.684254e-01_jprb, 0.641244e-01_jprb &
22875  &, 0.600400e-01_jprb, 0.561894e-01_jprb, 0.525166e-01_jprb, 0.490359e-01_jprb &
22876  &, 0.457238e-01_jprb, 0.426324e-01_jprb, 0.396979e-01_jprb &
22877  &, 0.369322e-01_jprb, 0.343473e-01_jprb, 0.318726e-01_jprb, 0.296010e-01_jprb &
22878  &, 0.274167e-01_jprb, 0.254137e-01_jprb, 0.235148e-01_jprb &
22879  &, 0.217273e-01_jprb, 0.200585e-01_jprb, 0.185161e-01_jprb, 0.170606e-01_jprb &
22880  &, 0.157456e-01_jprb, 0.144822e-01_jprb, 0.133232e-01_jprb &
22881  &, 0.122248e-01_jprb, 0.112415e-01_jprb, 0.102769e-01_jprb, 0.943694e-02_jprb &
22882  &, 0.862235e-02_jprb, 0.788868e-02_jprb, 0.718584e-02_jprb &
22883  &, 0.657098e-02_jprb, 0.599260e-02_jprb, 0.545281e-02_jprb, 0.495377e-02_jprb &
22884  &, 0.449767e-02_jprb, 0.408673e-02_jprb, 0.372323e-02_jprb &
22885  &, 0.334874e-02_jprb, 0.302467e-02_jprb, 0.275338e-02_jprb, 0.247406e-02_jprb &
22886  &, 0.225064e-02_jprb, 0.202071e-02_jprb, 0.184991e-02_jprb/)
22887 xcw( 523, :) = (/ &
22888  & 0.100232e+01_jprb, 0.100185e+01_jprb, 0.100097e+01_jprb, 0.999669e+00_jprb &
22889  &, 0.997950e+00_jprb, 0.995814e+00_jprb, 0.993261e+00_jprb &
22890  &, 0.990292e+00_jprb, 0.986908e+00_jprb, 0.983111e+00_jprb, 0.978902e+00_jprb &
22891  &, 0.974283e+00_jprb, 0.969256e+00_jprb, 0.963824e+00_jprb &
22892  &, 0.957991e+00_jprb, 0.951758e+00_jprb, 0.945130e+00_jprb, 0.938112e+00_jprb &
22893  &, 0.930705e+00_jprb, 0.922918e+00_jprb, 0.914752e+00_jprb &
22894  &, 0.906217e+00_jprb, 0.897316e+00_jprb, 0.888060e+00_jprb, 0.878452e+00_jprb &
22895  &, 0.868501e+00_jprb, 0.858211e+00_jprb, 0.847607e+00_jprb &
22896  &, 0.836685e+00_jprb, 0.825451e+00_jprb, 0.813928e+00_jprb, 0.802119e+00_jprb &
22897  &, 0.790034e+00_jprb, 0.777687e+00_jprb, 0.765104e+00_jprb &
22898  &, 0.752280e+00_jprb, 0.739231e+00_jprb, 0.725978e+00_jprb, 0.712542e+00_jprb &
22899  &, 0.698918e+00_jprb, 0.685133e+00_jprb, 0.671200e+00_jprb &
22900  &, 0.657140e+00_jprb, 0.642959e+00_jprb, 0.628686e+00_jprb, 0.614317e+00_jprb &
22901  &, 0.599887e+00_jprb, 0.585405e+00_jprb, 0.570897e+00_jprb &
22902  &, 0.556364e+00_jprb, 0.541831e+00_jprb, 0.527314e+00_jprb, 0.512827e+00_jprb &
22903  &, 0.498386e+00_jprb, 0.484006e+00_jprb, 0.469717e+00_jprb &
22904  &, 0.455504e+00_jprb, 0.441396e+00_jprb, 0.427425e+00_jprb, 0.413588e+00_jprb &
22905  &, 0.399882e+00_jprb, 0.386353e+00_jprb, 0.372996e+00_jprb &
22906  &, 0.359821e+00_jprb, 0.346857e+00_jprb, 0.334094e+00_jprb, 0.321538e+00_jprb &
22907  &, 0.309216e+00_jprb, 0.297132e+00_jprb, 0.285290e+00_jprb &
22908  &, 0.273713e+00_jprb, 0.262379e+00_jprb, 0.251310e+00_jprb, 0.240525e+00_jprb &
22909  &, 0.229996e+00_jprb, 0.219763e+00_jprb, 0.209794e+00_jprb &
22910  &, 0.200129e+00_jprb, 0.190730e+00_jprb, 0.181633e+00_jprb, 0.172797e+00_jprb &
22911  &, 0.164283e+00_jprb, 0.156045e+00_jprb, 0.148088e+00_jprb &
22912  &, 0.140416e+00_jprb, 0.133031e+00_jprb, 0.125905e+00_jprb, 0.119067e+00_jprb &
22913  &, 0.112514e+00_jprb, 0.106213e+00_jprb, 0.100189e+00_jprb &
22914  &, 0.944349e-01_jprb, 0.889119e-01_jprb, 0.836411e-01_jprb, 0.786113e-01_jprb &
22915  &, 0.738094e-01_jprb, 0.692551e-01_jprb, 0.649333e-01_jprb &
22916  &, 0.607912e-01_jprb, 0.568808e-01_jprb, 0.531827e-01_jprb, 0.496756e-01_jprb &
22917  &, 0.463741e-01_jprb, 0.432157e-01_jprb, 0.402513e-01_jprb &
22918  &, 0.374545e-01_jprb, 0.348373e-01_jprb, 0.323705e-01_jprb, 0.300225e-01_jprb &
22919  &, 0.278449e-01_jprb, 0.258052e-01_jprb, 0.238682e-01_jprb &
22920  &, 0.220862e-01_jprb, 0.204230e-01_jprb, 0.188399e-01_jprb, 0.173894e-01_jprb &
22921  &, 0.159840e-01_jprb, 0.147242e-01_jprb, 0.135688e-01_jprb &
22922  &, 0.124242e-01_jprb, 0.114439e-01_jprb, 0.104822e-01_jprb, 0.959319e-02_jprb &
22923  &, 0.878086e-02_jprb, 0.804947e-02_jprb, 0.734893e-02_jprb &
22924  &, 0.668125e-02_jprb, 0.610442e-02_jprb, 0.556620e-02_jprb, 0.506874e-02_jprb &
22925  &, 0.461423e-02_jprb, 0.420490e-02_jprb, 0.378312e-02_jprb &
22926  &, 0.347015e-02_jprb, 0.314772e-02_jprb, 0.281572e-02_jprb, 0.253724e-02_jprb &
22927  &, 0.231466e-02_jprb, 0.208558e-02_jprb, 0.184991e-02_jprb/)
22928 xcw( 524, :) = (/ &
22929  & 0.100257e+01_jprb, 0.100217e+01_jprb, 0.100135e+01_jprb, 0.100011e+01_jprb &
22930  &, 0.998453e+00_jprb, 0.996379e+00_jprb, 0.993888e+00_jprb &
22931  &, 0.990980e+00_jprb, 0.987657e+00_jprb, 0.983921e+00_jprb, 0.979773e+00_jprb &
22932  &, 0.975213e+00_jprb, 0.970246e+00_jprb, 0.964873e+00_jprb &
22933  &, 0.959096e+00_jprb, 0.952921e+00_jprb, 0.946350e+00_jprb, 0.939385e+00_jprb &
22934  &, 0.932034e+00_jprb, 0.924298e+00_jprb, 0.916188e+00_jprb &
22935  &, 0.907702e+00_jprb, 0.898852e+00_jprb, 0.889646e+00_jprb, 0.880086e+00_jprb &
22936  &, 0.870181e+00_jprb, 0.859944e+00_jprb, 0.849378e+00_jprb &
22937  &, 0.838495e+00_jprb, 0.827306e+00_jprb, 0.815821e+00_jprb, 0.804051e+00_jprb &
22938  &, 0.792006e+00_jprb, 0.779700e+00_jprb, 0.767141e+00_jprb &
22939  &, 0.754345e+00_jprb, 0.741329e+00_jprb, 0.728109e+00_jprb, 0.714687e+00_jprb &
22940  &, 0.701097e+00_jprb, 0.687325e+00_jprb, 0.673414e+00_jprb &
22941  &, 0.659377e+00_jprb, 0.645206e+00_jprb, 0.630943e+00_jprb, 0.616595e+00_jprb &
22942  &, 0.602172e+00_jprb, 0.587709e+00_jprb, 0.573193e+00_jprb &
22943  &, 0.558676e+00_jprb, 0.544133e+00_jprb, 0.529616e+00_jprb, 0.515128e+00_jprb &
22944  &, 0.500684e+00_jprb, 0.486299e+00_jprb, 0.471988e+00_jprb &
22945  &, 0.457766e+00_jprb, 0.443664e+00_jprb, 0.429664e+00_jprb, 0.415796e+00_jprb &
22946  &, 0.402089e+00_jprb, 0.388541e+00_jprb, 0.375162e+00_jprb &
22947  &, 0.361963e+00_jprb, 0.348953e+00_jprb, 0.336160e+00_jprb, 0.323592e+00_jprb &
22948  &, 0.311235e+00_jprb, 0.299113e+00_jprb, 0.287252e+00_jprb &
22949  &, 0.275632e+00_jprb, 0.264253e+00_jprb, 0.253157e+00_jprb, 0.242320e+00_jprb &
22950  &, 0.231759e+00_jprb, 0.221468e+00_jprb, 0.211487e+00_jprb &
22951  &, 0.201758e+00_jprb, 0.192317e+00_jprb, 0.183176e+00_jprb, 0.174320e+00_jprb &
22952  &, 0.165756e+00_jprb, 0.157466e+00_jprb, 0.149454e+00_jprb &
22953  &, 0.141753e+00_jprb, 0.134308e+00_jprb, 0.127177e+00_jprb, 0.120304e+00_jprb &
22954  &, 0.113684e+00_jprb, 0.107343e+00_jprb, 0.101277e+00_jprb &
22955  &, 0.954799e-01_jprb, 0.899111e-01_jprb, 0.845925e-01_jprb, 0.795462e-01_jprb &
22956  &, 0.746928e-01_jprb, 0.701194e-01_jprb, 0.657422e-01_jprb &
22957  &, 0.615783e-01_jprb, 0.576449e-01_jprb, 0.538857e-01_jprb, 0.503528e-01_jprb &
22958  &, 0.469862e-01_jprb, 0.438379e-01_jprb, 0.408443e-01_jprb &
22959  &, 0.380170e-01_jprb, 0.353681e-01_jprb, 0.328683e-01_jprb, 0.304862e-01_jprb &
22960  &, 0.282731e-01_jprb, 0.261967e-01_jprb, 0.242659e-01_jprb &
22961  &, 0.224452e-01_jprb, 0.207420e-01_jprb, 0.191638e-01_jprb, 0.176713e-01_jprb &
22962  &, 0.162701e-01_jprb, 0.150146e-01_jprb, 0.138144e-01_jprb &
22963  &, 0.126735e-01_jprb, 0.116463e-01_jprb, 0.106876e-01_jprb, 0.980152e-02_jprb &
22964  &, 0.893937e-02_jprb, 0.821026e-02_jprb, 0.751201e-02_jprb &
22965  &, 0.684665e-02_jprb, 0.621625e-02_jprb, 0.567959e-02_jprb, 0.518371e-02_jprb &
22966  &, 0.473079e-02_jprb, 0.426398e-02_jprb, 0.390290e-02_jprb &
22967  &, 0.353085e-02_jprb, 0.320924e-02_jprb, 0.287807e-02_jprb, 0.260042e-02_jprb &
22968  &, 0.237868e-02_jprb, 0.215044e-02_jprb, 0.191562e-02_jprb/)
22969 xcw( 525, :) = (/ &
22970  & 0.100282e+01_jprb, 0.100248e+01_jprb, 0.100172e+01_jprb, 0.100055e+01_jprb &
22971  &, 0.998956e+00_jprb, 0.996944e+00_jprb, 0.994515e+00_jprb &
22972  &, 0.991670e+00_jprb, 0.988407e+00_jprb, 0.984732e+00_jprb, 0.980644e+00_jprb &
22973  &, 0.976144e+00_jprb, 0.971236e+00_jprb, 0.965921e+00_jprb &
22974  &, 0.960203e+00_jprb, 0.954084e+00_jprb, 0.947569e+00_jprb, 0.940661e+00_jprb &
22975  &, 0.933363e+00_jprb, 0.925684e+00_jprb, 0.917624e+00_jprb &
22976  &, 0.909191e+00_jprb, 0.900392e+00_jprb, 0.891235e+00_jprb, 0.881724e+00_jprb &
22977  &, 0.871865e+00_jprb, 0.861672e+00_jprb, 0.851152e+00_jprb &
22978  &, 0.840313e+00_jprb, 0.829165e+00_jprb, 0.817718e+00_jprb, 0.805988e+00_jprb &
22979  &, 0.793978e+00_jprb, 0.781704e+00_jprb, 0.769182e+00_jprb &
22980  &, 0.756419e+00_jprb, 0.743437e+00_jprb, 0.730241e+00_jprb, 0.716843e+00_jprb &
22981  &, 0.703276e+00_jprb, 0.689538e+00_jprb, 0.675640e+00_jprb &
22982  &, 0.661614e+00_jprb, 0.647465e+00_jprb, 0.633223e+00_jprb, 0.618884e+00_jprb &
22983  &, 0.604469e+00_jprb, 0.590012e+00_jprb, 0.575502e+00_jprb &
22984  &, 0.560976e+00_jprb, 0.546447e+00_jprb, 0.531932e+00_jprb, 0.517443e+00_jprb &
22985  &, 0.502982e+00_jprb, 0.488592e+00_jprb, 0.474275e+00_jprb &
22986  &, 0.460044e+00_jprb, 0.445916e+00_jprb, 0.431903e+00_jprb, 0.418036e+00_jprb &
22987  &, 0.404296e+00_jprb, 0.390728e+00_jprb, 0.377327e+00_jprb &
22988  &, 0.364104e+00_jprb, 0.351068e+00_jprb, 0.338245e+00_jprb, 0.325645e+00_jprb &
22989  &, 0.313273e+00_jprb, 0.301115e+00_jprb, 0.289214e+00_jprb &
22990  &, 0.277551e+00_jprb, 0.266148e+00_jprb, 0.255003e+00_jprb, 0.244137e+00_jprb &
22991  &, 0.233545e+00_jprb, 0.223221e+00_jprb, 0.213180e+00_jprb &
22992  &, 0.203412e+00_jprb, 0.193930e+00_jprb, 0.184745e+00_jprb, 0.175842e+00_jprb &
22993  &, 0.167229e+00_jprb, 0.158887e+00_jprb, 0.150848e+00_jprb &
22994  &, 0.143089e+00_jprb, 0.135613e+00_jprb, 0.128420e+00_jprb, 0.121511e+00_jprb &
22995  &, 0.114853e+00_jprb, 0.108473e+00_jprb, 0.102366e+00_jprb &
22996  &, 0.965248e-01_jprb, 0.909104e-01_jprb, 0.855768e-01_jprb, 0.804478e-01_jprb &
22997  &, 0.756102e-01_jprb, 0.709490e-01_jprb, 0.665511e-01_jprb &
22998  &, 0.623653e-01_jprb, 0.583726e-01_jprb, 0.545888e-01_jprb, 0.510301e-01_jprb &
22999  &, 0.476365e-01_jprb, 0.444213e-01_jprb, 0.413977e-01_jprb &
23000  &, 0.385393e-01_jprb, 0.358580e-01_jprb, 0.333247e-01_jprb, 0.309499e-01_jprb &
23001  &, 0.287014e-01_jprb, 0.266317e-01_jprb, 0.246635e-01_jprb &
23002  &, 0.228041e-01_jprb, 0.211065e-01_jprb, 0.194876e-01_jprb, 0.179531e-01_jprb &
23003  &, 0.165562e-01_jprb, 0.152566e-01_jprb, 0.140601e-01_jprb &
23004  &, 0.129228e-01_jprb, 0.118486e-01_jprb, 0.108929e-01_jprb, 0.995776e-02_jprb &
23005  &, 0.915072e-02_jprb, 0.837105e-02_jprb, 0.762074e-02_jprb &
23006  &, 0.695692e-02_jprb, 0.638398e-02_jprb, 0.579298e-02_jprb, 0.529868e-02_jprb &
23007  &, 0.478908e-02_jprb, 0.438215e-02_jprb, 0.396279e-02_jprb &
23008  &, 0.359156e-02_jprb, 0.327077e-02_jprb, 0.294042e-02_jprb, 0.266360e-02_jprb &
23009  &, 0.244270e-02_jprb, 0.221530e-02_jprb, 0.198133e-02_jprb/)
23010 
23011 IF (lhook) CALL dr_hook('SU_MCICA:PART75',1,zhook_handle)
23012 END SUBROUTINE part75
23013 
23014 #ifdef VPP5000
23015 !OCL SCALAR
23016 #endif
23017 !option! -Nv -NO
23018 #ifdef RS6K
23019 @process nooptimize
23020 #endif
23021 !pgi$r opt=0
23022 SUBROUTINE part76
23023 
23024 REAL(KIND=JPRB) :: ZHOOK_HANDLE
23025 IF (lhook) CALL dr_hook('SU_MCICA:PART76',0,zhook_handle)
23026 
23027 xcw( 526, :) = (/ &
23028  & 0.100308e+01_jprb, 0.100280e+01_jprb, 0.100210e+01_jprb, 0.100099e+01_jprb &
23029  &, 0.999459e+00_jprb, 0.997510e+00_jprb, 0.995142e+00_jprb &
23030  &, 0.992358e+00_jprb, 0.989158e+00_jprb, 0.985543e+00_jprb, 0.981515e+00_jprb &
23031  &, 0.977076e+00_jprb, 0.972226e+00_jprb, 0.966971e+00_jprb &
23032  &, 0.961311e+00_jprb, 0.955249e+00_jprb, 0.948791e+00_jprb, 0.941938e+00_jprb &
23033  &, 0.934696e+00_jprb, 0.927067e+00_jprb, 0.919061e+00_jprb &
23034  &, 0.910683e+00_jprb, 0.901935e+00_jprb, 0.892825e+00_jprb, 0.883361e+00_jprb &
23035  &, 0.873553e+00_jprb, 0.863405e+00_jprb, 0.852931e+00_jprb &
23036  &, 0.842131e+00_jprb, 0.831029e+00_jprb, 0.819620e+00_jprb, 0.807928e+00_jprb &
23037  &, 0.795954e+00_jprb, 0.783717e+00_jprb, 0.771228e+00_jprb &
23038  &, 0.758493e+00_jprb, 0.745544e+00_jprb, 0.732373e+00_jprb, 0.719008e+00_jprb &
23039  &, 0.705455e+00_jprb, 0.691741e+00_jprb, 0.677876e+00_jprb &
23040  &, 0.663862e+00_jprb, 0.649736e+00_jprb, 0.635492e+00_jprb, 0.621174e+00_jprb &
23041  &, 0.606766e+00_jprb, 0.592316e+00_jprb, 0.577824e+00_jprb &
23042  &, 0.563302e+00_jprb, 0.548776e+00_jprb, 0.534247e+00_jprb, 0.519758e+00_jprb &
23043  &, 0.505294e+00_jprb, 0.490900e+00_jprb, 0.476576e+00_jprb &
23044  &, 0.462322e+00_jprb, 0.448183e+00_jprb, 0.434158e+00_jprb, 0.420277e+00_jprb &
23045  &, 0.406520e+00_jprb, 0.392933e+00_jprb, 0.379493e+00_jprb &
23046  &, 0.366245e+00_jprb, 0.353201e+00_jprb, 0.340349e+00_jprb, 0.327718e+00_jprb &
23047  &, 0.315292e+00_jprb, 0.303117e+00_jprb, 0.291175e+00_jprb &
23048  &, 0.279491e+00_jprb, 0.268042e+00_jprb, 0.256872e+00_jprb, 0.245955e+00_jprb &
23049  &, 0.235331e+00_jprb, 0.224950e+00_jprb, 0.214873e+00_jprb &
23050  &, 0.205066e+00_jprb, 0.195542e+00_jprb, 0.186313e+00_jprb, 0.177389e+00_jprb &
23051  &, 0.168728e+00_jprb, 0.160335e+00_jprb, 0.152269e+00_jprb &
23052  &, 0.144454e+00_jprb, 0.136947e+00_jprb, 0.129692e+00_jprb, 0.122748e+00_jprb &
23053  &, 0.116053e+00_jprb, 0.109634e+00_jprb, 0.103485e+00_jprb &
23054  &, 0.975697e-01_jprb, 0.919419e-01_jprb, 0.865611e-01_jprb, 0.814161e-01_jprb &
23055  &, 0.764936e-01_jprb, 0.718133e-01_jprb, 0.673600e-01_jprb &
23056  &, 0.631524e-01_jprb, 0.591367e-01_jprb, 0.552918e-01_jprb, 0.517073e-01_jprb &
23057  &, 0.482869e-01_jprb, 0.450435e-01_jprb, 0.419906e-01_jprb &
23058  &, 0.391017e-01_jprb, 0.363888e-01_jprb, 0.338226e-01_jprb, 0.314135e-01_jprb &
23059  &, 0.291724e-01_jprb, 0.270232e-01_jprb, 0.250612e-01_jprb &
23060  &, 0.231631e-01_jprb, 0.214254e-01_jprb, 0.198115e-01_jprb, 0.182819e-01_jprb &
23061  &, 0.168423e-01_jprb, 0.155470e-01_jprb, 0.143057e-01_jprb &
23062  &, 0.131222e-01_jprb, 0.121016e-01_jprb, 0.110983e-01_jprb, 0.101661e-01_jprb &
23063  &, 0.930923e-02_jprb, 0.853184e-02_jprb, 0.778382e-02_jprb &
23064  &, 0.712232e-02_jprb, 0.649581e-02_jprb, 0.590638e-02_jprb, 0.541365e-02_jprb &
23065  &, 0.490564e-02_jprb, 0.450032e-02_jprb, 0.408257e-02_jprb &
23066  &, 0.371296e-02_jprb, 0.333229e-02_jprb, 0.300277e-02_jprb, 0.272678e-02_jprb &
23067  &, 0.250672e-02_jprb, 0.221530e-02_jprb, 0.204705e-02_jprb/)
23068 xcw( 527, :) = (/ &
23069  & 0.100333e+01_jprb, 0.100311e+01_jprb, 0.100248e+01_jprb, 0.100143e+01_jprb &
23070  &, 0.999962e+00_jprb, 0.998075e+00_jprb, 0.995770e+00_jprb &
23071  &, 0.993047e+00_jprb, 0.989909e+00_jprb, 0.986355e+00_jprb, 0.982388e+00_jprb &
23072  &, 0.978008e+00_jprb, 0.973218e+00_jprb, 0.968021e+00_jprb &
23073  &, 0.962419e+00_jprb, 0.956416e+00_jprb, 0.950013e+00_jprb, 0.943217e+00_jprb &
23074  &, 0.936029e+00_jprb, 0.928457e+00_jprb, 0.920504e+00_jprb &
23075  &, 0.912175e+00_jprb, 0.903478e+00_jprb, 0.894418e+00_jprb, 0.885003e+00_jprb &
23076  &, 0.875241e+00_jprb, 0.865140e+00_jprb, 0.854709e+00_jprb &
23077  &, 0.843957e+00_jprb, 0.832892e+00_jprb, 0.821525e+00_jprb, 0.809869e+00_jprb &
23078  &, 0.797935e+00_jprb, 0.785735e+00_jprb, 0.773278e+00_jprb &
23079  &, 0.760577e+00_jprb, 0.747652e+00_jprb, 0.734514e+00_jprb, 0.721174e+00_jprb &
23080  &, 0.707655e+00_jprb, 0.693954e+00_jprb, 0.680102e+00_jprb &
23081  &, 0.666121e+00_jprb, 0.652006e+00_jprb, 0.637784e+00_jprb, 0.623463e+00_jprb &
23082  &, 0.609075e+00_jprb, 0.594632e+00_jprb, 0.580145e+00_jprb &
23083  &, 0.565627e+00_jprb, 0.551091e+00_jprb, 0.536577e+00_jprb, 0.522072e+00_jprb &
23084  &, 0.507621e+00_jprb, 0.493208e+00_jprb, 0.478878e+00_jprb &
23085  &, 0.464616e+00_jprb, 0.450467e+00_jprb, 0.436429e+00_jprb, 0.422517e+00_jprb &
23086  &, 0.408744e+00_jprb, 0.395137e+00_jprb, 0.381676e+00_jprb &
23087  &, 0.368423e+00_jprb, 0.355334e+00_jprb, 0.342454e+00_jprb, 0.329790e+00_jprb &
23088  &, 0.317350e+00_jprb, 0.305138e+00_jprb, 0.293158e+00_jprb &
23089  &, 0.281431e+00_jprb, 0.269959e+00_jprb, 0.258740e+00_jprb, 0.247795e+00_jprb &
23090  &, 0.237118e+00_jprb, 0.226703e+00_jprb, 0.216589e+00_jprb &
23091  &, 0.206744e+00_jprb, 0.197180e+00_jprb, 0.187907e+00_jprb, 0.178911e+00_jprb &
23092  &, 0.170227e+00_jprb, 0.161809e+00_jprb, 0.153663e+00_jprb &
23093  &, 0.145818e+00_jprb, 0.138280e+00_jprb, 0.130993e+00_jprb, 0.123985e+00_jprb &
23094  &, 0.117253e+00_jprb, 0.110795e+00_jprb, 0.104574e+00_jprb &
23095  &, 0.986464e-01_jprb, 0.929734e-01_jprb, 0.875454e-01_jprb, 0.823510e-01_jprb &
23096  &, 0.774110e-01_jprb, 0.726776e-01_jprb, 0.682041e-01_jprb &
23097  &, 0.639394e-01_jprb, 0.598644e-01_jprb, 0.560319e-01_jprb, 0.523846e-01_jprb &
23098  &, 0.489372e-01_jprb, 0.456657e-01_jprb, 0.425836e-01_jprb &
23099  &, 0.396642e-01_jprb, 0.369196e-01_jprb, 0.343204e-01_jprb, 0.319194e-01_jprb &
23100  &, 0.296007e-01_jprb, 0.274582e-01_jprb, 0.254588e-01_jprb &
23101  &, 0.235669e-01_jprb, 0.217900e-01_jprb, 0.201353e-01_jprb, 0.186107e-01_jprb &
23102  &, 0.171284e-01_jprb, 0.157890e-01_jprb, 0.145513e-01_jprb &
23103  &, 0.133715e-01_jprb, 0.123040e-01_jprb, 0.113036e-01_jprb, 0.103744e-01_jprb &
23104  &, 0.952057e-02_jprb, 0.869263e-02_jprb, 0.794691e-02_jprb &
23105  &, 0.728773e-02_jprb, 0.666354e-02_jprb, 0.607646e-02_jprb, 0.552863e-02_jprb &
23106  &, 0.502220e-02_jprb, 0.455940e-02_jprb, 0.414246e-02_jprb &
23107  &, 0.377367e-02_jprb, 0.339381e-02_jprb, 0.312747e-02_jprb, 0.278996e-02_jprb &
23108  &, 0.250672e-02_jprb, 0.228016e-02_jprb, 0.204705e-02_jprb/)
23109 xcw( 528, :) = (/ &
23110  & 0.100358e+01_jprb, 0.100343e+01_jprb, 0.100286e+01_jprb, 0.100187e+01_jprb &
23111  &, 0.100047e+01_jprb, 0.998641e+00_jprb, 0.996398e+00_jprb &
23112  &, 0.993737e+00_jprb, 0.990660e+00_jprb, 0.987168e+00_jprb, 0.983261e+00_jprb &
23113  &, 0.978941e+00_jprb, 0.974211e+00_jprb, 0.969072e+00_jprb &
23114  &, 0.963528e+00_jprb, 0.957582e+00_jprb, 0.951238e+00_jprb, 0.944496e+00_jprb &
23115  &, 0.937362e+00_jprb, 0.929843e+00_jprb, 0.921943e+00_jprb &
23116  &, 0.913667e+00_jprb, 0.905022e+00_jprb, 0.896014e+00_jprb, 0.886647e+00_jprb &
23117  &, 0.876932e+00_jprb, 0.866877e+00_jprb, 0.856491e+00_jprb &
23118  &, 0.845779e+00_jprb, 0.834759e+00_jprb, 0.823435e+00_jprb, 0.811818e+00_jprb &
23119  &, 0.799920e+00_jprb, 0.787756e+00_jprb, 0.775333e+00_jprb &
23120  &, 0.762670e+00_jprb, 0.749769e+00_jprb, 0.736655e+00_jprb, 0.723349e+00_jprb &
23121  &, 0.709844e+00_jprb, 0.696177e+00_jprb, 0.682349e+00_jprb &
23122  &, 0.668380e+00_jprb, 0.654276e+00_jprb, 0.640076e+00_jprb, 0.625776e+00_jprb &
23123  &, 0.611397e+00_jprb, 0.596949e+00_jprb, 0.582467e+00_jprb &
23124  &, 0.567953e+00_jprb, 0.553433e+00_jprb, 0.538906e+00_jprb, 0.524415e+00_jprb &
23125  &, 0.509947e+00_jprb, 0.495530e+00_jprb, 0.481180e+00_jprb &
23126  &, 0.466925e+00_jprb, 0.452750e+00_jprb, 0.438701e+00_jprb, 0.424775e+00_jprb &
23127  &, 0.410984e+00_jprb, 0.397359e+00_jprb, 0.383877e+00_jprb &
23128  &, 0.370582e+00_jprb, 0.357486e+00_jprb, 0.344577e+00_jprb, 0.331883e+00_jprb &
23129  &, 0.319409e+00_jprb, 0.307160e+00_jprb, 0.295161e+00_jprb &
23130  &, 0.283392e+00_jprb, 0.271875e+00_jprb, 0.260631e+00_jprb, 0.249635e+00_jprb &
23131  &, 0.238927e+00_jprb, 0.228479e+00_jprb, 0.218306e+00_jprb &
23132  &, 0.208422e+00_jprb, 0.198817e+00_jprb, 0.189501e+00_jprb, 0.180485e+00_jprb &
23133  &, 0.171726e+00_jprb, 0.163284e+00_jprb, 0.155111e+00_jprb &
23134  &, 0.147211e+00_jprb, 0.139614e+00_jprb, 0.132265e+00_jprb, 0.125221e+00_jprb &
23135  &, 0.118453e+00_jprb, 0.111955e+00_jprb, 0.105694e+00_jprb &
23136  &, 0.997229e-01_jprb, 0.940049e-01_jprb, 0.885297e-01_jprb, 0.832860e-01_jprb &
23137  &, 0.783284e-01_jprb, 0.735764e-01_jprb, 0.690481e-01_jprb &
23138  &, 0.647264e-01_jprb, 0.606285e-01_jprb, 0.567719e-01_jprb, 0.530618e-01_jprb &
23139  &, 0.495875e-01_jprb, 0.462880e-01_jprb, 0.431765e-01_jprb &
23140  &, 0.402267e-01_jprb, 0.374504e-01_jprb, 0.348598e-01_jprb, 0.323830e-01_jprb &
23141  &, 0.300717e-01_jprb, 0.278932e-01_jprb, 0.258564e-01_jprb &
23142  &, 0.239259e-01_jprb, 0.221545e-01_jprb, 0.204592e-01_jprb, 0.188925e-01_jprb &
23143  &, 0.174622e-01_jprb, 0.160794e-01_jprb, 0.147970e-01_jprb &
23144  &, 0.136208e-01_jprb, 0.125063e-01_jprb, 0.115089e-01_jprb, 0.105828e-01_jprb &
23145  &, 0.967908e-02_jprb, 0.885342e-02_jprb, 0.811000e-02_jprb &
23146  &, 0.739799e-02_jprb, 0.677537e-02_jprb, 0.618986e-02_jprb, 0.564360e-02_jprb &
23147  &, 0.513876e-02_jprb, 0.467756e-02_jprb, 0.426224e-02_jprb &
23148  &, 0.383437e-02_jprb, 0.351686e-02_jprb, 0.318982e-02_jprb, 0.285314e-02_jprb &
23149  &, 0.257073e-02_jprb, 0.234502e-02_jprb, 0.211276e-02_jprb/)
23150 xcw( 529, :) = (/ &
23151  & 0.100383e+01_jprb, 0.100375e+01_jprb, 0.100324e+01_jprb, 0.100231e+01_jprb &
23152  &, 0.100097e+01_jprb, 0.999207e+00_jprb, 0.997026e+00_jprb &
23153  &, 0.994428e+00_jprb, 0.991413e+00_jprb, 0.987981e+00_jprb, 0.984134e+00_jprb &
23154  &, 0.979874e+00_jprb, 0.975205e+00_jprb, 0.970125e+00_jprb &
23155  &, 0.964639e+00_jprb, 0.958751e+00_jprb, 0.952462e+00_jprb, 0.945777e+00_jprb &
23156  &, 0.938700e+00_jprb, 0.931236e+00_jprb, 0.923386e+00_jprb &
23157  &, 0.915165e+00_jprb, 0.906568e+00_jprb, 0.897610e+00_jprb, 0.888292e+00_jprb &
23158  &, 0.878627e+00_jprb, 0.868616e+00_jprb, 0.858277e+00_jprb &
23159  &, 0.847609e+00_jprb, 0.836630e+00_jprb, 0.825344e+00_jprb, 0.813767e+00_jprb &
23160  &, 0.801910e+00_jprb, 0.789778e+00_jprb, 0.777392e+00_jprb &
23161  &, 0.764753e+00_jprb, 0.751896e+00_jprb, 0.738807e+00_jprb, 0.725525e+00_jprb &
23162  &, 0.712054e+00_jprb, 0.698401e+00_jprb, 0.684596e+00_jprb &
23163  &, 0.670640e+00_jprb, 0.656558e+00_jprb, 0.642368e+00_jprb, 0.628078e+00_jprb &
23164  &, 0.613719e+00_jprb, 0.599277e+00_jprb, 0.584802e+00_jprb &
23165  &, 0.570292e+00_jprb, 0.555774e+00_jprb, 0.541249e+00_jprb, 0.526744e+00_jprb &
23166  &, 0.512274e+00_jprb, 0.497868e+00_jprb, 0.483512e+00_jprb &
23167  &, 0.469234e+00_jprb, 0.455050e+00_jprb, 0.440989e+00_jprb, 0.427048e+00_jprb &
23168  &, 0.413242e+00_jprb, 0.399581e+00_jprb, 0.386078e+00_jprb &
23169  &, 0.372760e+00_jprb, 0.359637e+00_jprb, 0.346700e+00_jprb, 0.333975e+00_jprb &
23170  &, 0.321467e+00_jprb, 0.309202e+00_jprb, 0.297164e+00_jprb &
23171  &, 0.285353e+00_jprb, 0.273813e+00_jprb, 0.262521e+00_jprb, 0.251497e+00_jprb &
23172  &, 0.240736e+00_jprb, 0.230255e+00_jprb, 0.220046e+00_jprb &
23173  &, 0.210125e+00_jprb, 0.200479e+00_jprb, 0.191120e+00_jprb, 0.182059e+00_jprb &
23174  &, 0.173252e+00_jprb, 0.164758e+00_jprb, 0.156532e+00_jprb &
23175  &, 0.148603e+00_jprb, 0.140948e+00_jprb, 0.133595e+00_jprb, 0.126488e+00_jprb &
23176  &, 0.119682e+00_jprb, 0.113116e+00_jprb, 0.106844e+00_jprb &
23177  &, 0.100800e+00_jprb, 0.950364e-01_jprb, 0.895468e-01_jprb, 0.842543e-01_jprb &
23178  &, 0.792458e-01_jprb, 0.744407e-01_jprb, 0.698922e-01_jprb &
23179  &, 0.655492e-01_jprb, 0.614290e-01_jprb, 0.575120e-01_jprb, 0.537767e-01_jprb &
23180  &, 0.502761e-01_jprb, 0.469491e-01_jprb, 0.437695e-01_jprb &
23181  &, 0.407891e-01_jprb, 0.380220e-01_jprb, 0.353576e-01_jprb, 0.328889e-01_jprb &
23182  &, 0.305428e-01_jprb, 0.283282e-01_jprb, 0.262541e-01_jprb &
23183  &, 0.243297e-01_jprb, 0.225190e-01_jprb, 0.208293e-01_jprb, 0.192213e-01_jprb &
23184  &, 0.177483e-01_jprb, 0.163699e-01_jprb, 0.150917e-01_jprb &
23185  &, 0.138701e-01_jprb, 0.127593e-01_jprb, 0.117143e-01_jprb, 0.107390e-01_jprb &
23186  &, 0.989043e-02_jprb, 0.906781e-02_jprb, 0.827309e-02_jprb &
23187  &, 0.756340e-02_jprb, 0.694310e-02_jprb, 0.630325e-02_jprb, 0.575857e-02_jprb &
23188  &, 0.525533e-02_jprb, 0.479573e-02_jprb, 0.432213e-02_jprb &
23189  &, 0.395578e-02_jprb, 0.357839e-02_jprb, 0.325217e-02_jprb, 0.291632e-02_jprb &
23190  &, 0.263475e-02_jprb, 0.240989e-02_jprb, 0.217847e-02_jprb/)
23191 xcw( 530, :) = (/ &
23192  & 0.100408e+01_jprb, 0.100406e+01_jprb, 0.100361e+01_jprb, 0.100276e+01_jprb &
23193  &, 0.100147e+01_jprb, 0.999775e+00_jprb, 0.997656e+00_jprb &
23194  &, 0.995117e+00_jprb, 0.992164e+00_jprb, 0.988794e+00_jprb, 0.985009e+00_jprb &
23195  &, 0.980809e+00_jprb, 0.976199e+00_jprb, 0.971178e+00_jprb &
23196  &, 0.965752e+00_jprb, 0.959920e+00_jprb, 0.953689e+00_jprb, 0.947060e+00_jprb &
23197  &, 0.940039e+00_jprb, 0.932629e+00_jprb, 0.924832e+00_jprb &
23198  &, 0.916660e+00_jprb, 0.908118e+00_jprb, 0.899210e+00_jprb, 0.889940e+00_jprb &
23199  &, 0.880322e+00_jprb, 0.870360e+00_jprb, 0.860063e+00_jprb &
23200  &, 0.849443e+00_jprb, 0.838502e+00_jprb, 0.827258e+00_jprb, 0.815720e+00_jprb &
23201  &, 0.803899e+00_jprb, 0.791805e+00_jprb, 0.779451e+00_jprb &
23202  &, 0.766846e+00_jprb, 0.754013e+00_jprb, 0.740968e+00_jprb, 0.727710e+00_jprb &
23203  &, 0.714254e+00_jprb, 0.700635e+00_jprb, 0.686843e+00_jprb &
23204  &, 0.672910e+00_jprb, 0.658851e+00_jprb, 0.644672e+00_jprb, 0.630391e+00_jprb &
23205  &, 0.616040e+00_jprb, 0.601618e+00_jprb, 0.587149e+00_jprb &
23206  &, 0.572644e+00_jprb, 0.558116e+00_jprb, 0.543606e+00_jprb, 0.529101e+00_jprb &
23207  &, 0.514629e+00_jprb, 0.500205e+00_jprb, 0.485844e+00_jprb &
23208  &, 0.471559e+00_jprb, 0.457365e+00_jprb, 0.443276e+00_jprb, 0.429322e+00_jprb &
23209  &, 0.415500e+00_jprb, 0.401821e+00_jprb, 0.388297e+00_jprb &
23210  &, 0.374956e+00_jprb, 0.361807e+00_jprb, 0.348842e+00_jprb, 0.336086e+00_jprb &
23211  &, 0.323545e+00_jprb, 0.311244e+00_jprb, 0.299167e+00_jprb &
23212  &, 0.287336e+00_jprb, 0.275751e+00_jprb, 0.264434e+00_jprb, 0.253359e+00_jprb &
23213  &, 0.242568e+00_jprb, 0.232054e+00_jprb, 0.221787e+00_jprb &
23214  &, 0.211827e+00_jprb, 0.202141e+00_jprb, 0.192739e+00_jprb, 0.183632e+00_jprb &
23215  &, 0.174803e+00_jprb, 0.166233e+00_jprb, 0.157980e+00_jprb &
23216  &, 0.149995e+00_jprb, 0.142310e+00_jprb, 0.134896e+00_jprb, 0.127754e+00_jprb &
23217  &, 0.120882e+00_jprb, 0.114307e+00_jprb, 0.107964e+00_jprb &
23218  &, 0.101908e+00_jprb, 0.961001e-01_jprb, 0.905639e-01_jprb, 0.852560e-01_jprb &
23219  &, 0.801632e-01_jprb, 0.753395e-01_jprb, 0.707363e-01_jprb &
23220  &, 0.663721e-01_jprb, 0.621931e-01_jprb, 0.582520e-01_jprb, 0.544916e-01_jprb &
23221  &, 0.509264e-01_jprb, 0.475713e-01_jprb, 0.444020e-01_jprb &
23222  &, 0.413918e-01_jprb, 0.385527e-01_jprb, 0.358970e-01_jprb, 0.333525e-01_jprb &
23223  &, 0.310138e-01_jprb, 0.287631e-01_jprb, 0.266959e-01_jprb &
23224  &, 0.247336e-01_jprb, 0.228835e-01_jprb, 0.211532e-01_jprb, 0.195501e-01_jprb &
23225  &, 0.180344e-01_jprb, 0.166603e-01_jprb, 0.153374e-01_jprb &
23226  &, 0.141193e-01_jprb, 0.130123e-01_jprb, 0.119196e-01_jprb, 0.109473e-01_jprb &
23227  &, 0.100489e-01_jprb, 0.922860e-02_jprb, 0.843617e-02_jprb &
23228  &, 0.772880e-02_jprb, 0.705493e-02_jprb, 0.647334e-02_jprb, 0.587354e-02_jprb &
23229  &, 0.537189e-02_jprb, 0.485481e-02_jprb, 0.444191e-02_jprb &
23230  &, 0.401649e-02_jprb, 0.363991e-02_jprb, 0.331452e-02_jprb, 0.304268e-02_jprb &
23231  &, 0.269877e-02_jprb, 0.247475e-02_jprb, 0.224418e-02_jprb/)
23232 xcw( 531, :) = (/ &
23233  & 0.100434e+01_jprb, 0.100438e+01_jprb, 0.100399e+01_jprb, 0.100320e+01_jprb &
23234  &, 0.100198e+01_jprb, 0.100034e+01_jprb, 0.998284e+00_jprb &
23235  &, 0.995811e+00_jprb, 0.992918e+00_jprb, 0.989609e+00_jprb, 0.985883e+00_jprb &
23236  &, 0.981745e+00_jprb, 0.977193e+00_jprb, 0.972232e+00_jprb &
23237  &, 0.966864e+00_jprb, 0.961090e+00_jprb, 0.954917e+00_jprb, 0.948343e+00_jprb &
23238  &, 0.941377e+00_jprb, 0.934021e+00_jprb, 0.926282e+00_jprb &
23239  &, 0.918163e+00_jprb, 0.909671e+00_jprb, 0.900810e+00_jprb, 0.891592e+00_jprb &
23240  &, 0.882021e+00_jprb, 0.872107e+00_jprb, 0.861853e+00_jprb &
23241  &, 0.851277e+00_jprb, 0.840381e+00_jprb, 0.829176e+00_jprb, 0.817678e+00_jprb &
23242  &, 0.805880e+00_jprb, 0.793835e+00_jprb, 0.781520e+00_jprb &
23243  &, 0.768948e+00_jprb, 0.756149e+00_jprb, 0.743119e+00_jprb, 0.729896e+00_jprb &
23244  &, 0.716464e+00_jprb, 0.702869e+00_jprb, 0.689101e+00_jprb &
23245  &, 0.675191e+00_jprb, 0.661144e+00_jprb, 0.646976e+00_jprb, 0.632716e+00_jprb &
23246  &, 0.618374e+00_jprb, 0.603960e+00_jprb, 0.589496e+00_jprb &
23247  &, 0.574996e+00_jprb, 0.560485e+00_jprb, 0.545963e+00_jprb, 0.531458e+00_jprb &
23248  &, 0.516971e+00_jprb, 0.502543e+00_jprb, 0.488176e+00_jprb &
23249  &, 0.473883e+00_jprb, 0.459680e+00_jprb, 0.445580e+00_jprb, 0.431596e+00_jprb &
23250  &, 0.417757e+00_jprb, 0.404060e+00_jprb, 0.390533e+00_jprb &
23251  &, 0.377151e+00_jprb, 0.363978e+00_jprb, 0.350985e+00_jprb, 0.338217e+00_jprb &
23252  &, 0.325643e+00_jprb, 0.313306e+00_jprb, 0.301191e+00_jprb &
23253  &, 0.289318e+00_jprb, 0.277710e+00_jprb, 0.266346e+00_jprb, 0.255244e+00_jprb &
23254  &, 0.244400e+00_jprb, 0.233854e+00_jprb, 0.223551e+00_jprb &
23255  &, 0.213554e+00_jprb, 0.203828e+00_jprb, 0.194384e+00_jprb, 0.185206e+00_jprb &
23256  &, 0.176329e+00_jprb, 0.167734e+00_jprb, 0.159456e+00_jprb &
23257  &, 0.151416e+00_jprb, 0.143672e+00_jprb, 0.136226e+00_jprb, 0.129050e+00_jprb &
23258  &, 0.122142e+00_jprb, 0.115498e+00_jprb, 0.109115e+00_jprb &
23259  &, 0.103016e+00_jprb, 0.971638e-01_jprb, 0.915809e-01_jprb, 0.862243e-01_jprb &
23260  &, 0.811146e-01_jprb, 0.762384e-01_jprb, 0.716155e-01_jprb &
23261  &, 0.671949e-01_jprb, 0.629935e-01_jprb, 0.589921e-01_jprb, 0.552065e-01_jprb &
23262  &, 0.516150e-01_jprb, 0.482324e-01_jprb, 0.449949e-01_jprb &
23263  &, 0.419944e-01_jprb, 0.391243e-01_jprb, 0.363948e-01_jprb, 0.338584e-01_jprb &
23264  &, 0.314849e-01_jprb, 0.291981e-01_jprb, 0.270935e-01_jprb &
23265  &, 0.250925e-01_jprb, 0.232480e-01_jprb, 0.215233e-01_jprb, 0.198789e-01_jprb &
23266  &, 0.183682e-01_jprb, 0.169507e-01_jprb, 0.156321e-01_jprb &
23267  &, 0.143686e-01_jprb, 0.132146e-01_jprb, 0.121763e-01_jprb, 0.111557e-01_jprb &
23268  &, 0.102603e-01_jprb, 0.938938e-02_jprb, 0.859926e-02_jprb &
23269  &, 0.789420e-02_jprb, 0.722267e-02_jprb, 0.658673e-02_jprb, 0.598851e-02_jprb &
23270  &, 0.548845e-02_jprb, 0.497298e-02_jprb, 0.456170e-02_jprb &
23271  &, 0.413790e-02_jprb, 0.376296e-02_jprb, 0.337687e-02_jprb, 0.310586e-02_jprb &
23272  &, 0.276279e-02_jprb, 0.253961e-02_jprb, 0.230989e-02_jprb/)
23273 xcw( 532, :) = (/ &
23274  & 0.100459e+01_jprb, 0.100469e+01_jprb, 0.100437e+01_jprb, 0.100364e+01_jprb &
23275  &, 0.100248e+01_jprb, 0.100091e+01_jprb, 0.998915e+00_jprb &
23276  &, 0.996502e+00_jprb, 0.993672e+00_jprb, 0.990424e+00_jprb, 0.986760e+00_jprb &
23277  &, 0.982680e+00_jprb, 0.978189e+00_jprb, 0.973288e+00_jprb &
23278  &, 0.967978e+00_jprb, 0.962263e+00_jprb, 0.956144e+00_jprb, 0.949629e+00_jprb &
23279  &, 0.942719e+00_jprb, 0.935417e+00_jprb, 0.927731e+00_jprb &
23280  &, 0.919664e+00_jprb, 0.911225e+00_jprb, 0.902414e+00_jprb, 0.893244e+00_jprb &
23281  &, 0.883723e+00_jprb, 0.873854e+00_jprb, 0.863647e+00_jprb &
23282  &, 0.853115e+00_jprb, 0.842260e+00_jprb, 0.831098e+00_jprb, 0.819639e+00_jprb &
23283  &, 0.807895e+00_jprb, 0.795875e+00_jprb, 0.783588e+00_jprb &
23284  &, 0.771050e+00_jprb, 0.758285e+00_jprb, 0.745290e+00_jprb, 0.732081e+00_jprb &
23285  &, 0.718684e+00_jprb, 0.705103e+00_jprb, 0.691359e+00_jprb &
23286  &, 0.677473e+00_jprb, 0.663437e+00_jprb, 0.649291e+00_jprb, 0.635029e+00_jprb &
23287  &, 0.620708e+00_jprb, 0.606313e+00_jprb, 0.591857e+00_jprb &
23288  &, 0.577361e+00_jprb, 0.562840e+00_jprb, 0.548320e+00_jprb, 0.533816e+00_jprb &
23289  &, 0.519341e+00_jprb, 0.504895e+00_jprb, 0.490523e+00_jprb &
23290  &, 0.476223e+00_jprb, 0.461995e+00_jprb, 0.447884e+00_jprb, 0.433903e+00_jprb &
23291  &, 0.420032e+00_jprb, 0.406317e+00_jprb, 0.392752e+00_jprb &
23292  &, 0.379365e+00_jprb, 0.366166e+00_jprb, 0.353146e+00_jprb, 0.340348e+00_jprb &
23293  &, 0.327741e+00_jprb, 0.315369e+00_jprb, 0.303235e+00_jprb &
23294  &, 0.291321e+00_jprb, 0.279670e+00_jprb, 0.268281e+00_jprb, 0.257129e+00_jprb &
23295  &, 0.246255e+00_jprb, 0.235653e+00_jprb, 0.225339e+00_jprb &
23296  &, 0.215281e+00_jprb, 0.205515e+00_jprb, 0.196028e+00_jprb, 0.186805e+00_jprb &
23297  &, 0.177907e+00_jprb, 0.169263e+00_jprb, 0.160904e+00_jprb &
23298  &, 0.152836e+00_jprb, 0.145062e+00_jprb, 0.137555e+00_jprb, 0.130345e+00_jprb &
23299  &, 0.123371e+00_jprb, 0.116690e+00_jprb, 0.110297e+00_jprb &
23300  &, 0.104124e+00_jprb, 0.982598e-01_jprb, 0.925980e-01_jprb, 0.872260e-01_jprb &
23301  &, 0.820660e-01_jprb, 0.771718e-01_jprb, 0.724948e-01_jprb &
23302  &, 0.680177e-01_jprb, 0.637940e-01_jprb, 0.597691e-01_jprb, 0.559590e-01_jprb &
23303  &, 0.523036e-01_jprb, 0.488935e-01_jprb, 0.456274e-01_jprb &
23304  &, 0.425569e-01_jprb, 0.396551e-01_jprb, 0.369341e-01_jprb, 0.343642e-01_jprb &
23305  &, 0.319559e-01_jprb, 0.296766e-01_jprb, 0.275353e-01_jprb &
23306  &, 0.254964e-01_jprb, 0.236125e-01_jprb, 0.218471e-01_jprb, 0.202077e-01_jprb &
23307  &, 0.186543e-01_jprb, 0.172411e-01_jprb, 0.158777e-01_jprb &
23308  &, 0.146179e-01_jprb, 0.134676e-01_jprb, 0.123816e-01_jprb, 0.113640e-01_jprb &
23309  &, 0.104716e-01_jprb, 0.960377e-02_jprb, 0.876235e-02_jprb &
23310  &, 0.805961e-02_jprb, 0.733449e-02_jprb, 0.670012e-02_jprb, 0.610348e-02_jprb &
23311  &, 0.560502e-02_jprb, 0.509115e-02_jprb, 0.462159e-02_jprb &
23312  &, 0.419860e-02_jprb, 0.382448e-02_jprb, 0.350157e-02_jprb, 0.316905e-02_jprb &
23313  &, 0.282681e-02_jprb, 0.260447e-02_jprb, 0.230989e-02_jprb/)
23314 
23315 IF (lhook) CALL dr_hook('SU_MCICA:PART76',1,zhook_handle)
23316 END SUBROUTINE part76
23317 
23318 #ifdef VPP5000
23319 !OCL SCALAR
23320 #endif
23321 !option! -Nv -NO
23322 #ifdef RS6K
23323 @process nooptimize
23324 #endif
23325 !pgi$r opt=0
23326 SUBROUTINE part77
23327 
23328 REAL(KIND=JPRB) :: ZHOOK_HANDLE
23329 IF (lhook) CALL dr_hook('SU_MCICA:PART77',0,zhook_handle)
23330 
23331 xcw( 533, :) = (/ &
23332  & 0.100484e+01_jprb, 0.100500e+01_jprb, 0.100475e+01_jprb, 0.100408e+01_jprb &
23333  &, 0.100299e+01_jprb, 0.100148e+01_jprb, 0.999545e+00_jprb &
23334  &, 0.997194e+00_jprb, 0.994425e+00_jprb, 0.991238e+00_jprb, 0.987636e+00_jprb &
23335  &, 0.983617e+00_jprb, 0.979186e+00_jprb, 0.974345e+00_jprb &
23336  &, 0.969093e+00_jprb, 0.963435e+00_jprb, 0.957375e+00_jprb, 0.950916e+00_jprb &
23337  &, 0.944060e+00_jprb, 0.936813e+00_jprb, 0.929181e+00_jprb &
23338  &, 0.921166e+00_jprb, 0.912778e+00_jprb, 0.904020e+00_jprb, 0.894900e+00_jprb &
23339  &, 0.885426e+00_jprb, 0.875605e+00_jprb, 0.865444e+00_jprb &
23340  &, 0.854952e+00_jprb, 0.844143e+00_jprb, 0.833024e+00_jprb, 0.821605e+00_jprb &
23341  &, 0.809897e+00_jprb, 0.797914e+00_jprb, 0.785666e+00_jprb &
23342  &, 0.773162e+00_jprb, 0.760422e+00_jprb, 0.747460e+00_jprb, 0.734277e+00_jprb &
23343  &, 0.720904e+00_jprb, 0.707348e+00_jprb, 0.693627e+00_jprb &
23344  &, 0.679754e+00_jprb, 0.665742e+00_jprb, 0.651618e+00_jprb, 0.637378e+00_jprb &
23345  &, 0.623054e+00_jprb, 0.608667e+00_jprb, 0.594217e+00_jprb &
23346  &, 0.579726e+00_jprb, 0.565209e+00_jprb, 0.550691e+00_jprb, 0.536187e+00_jprb &
23347  &, 0.521711e+00_jprb, 0.507262e+00_jprb, 0.492870e+00_jprb &
23348  &, 0.478563e+00_jprb, 0.464342e+00_jprb, 0.450204e+00_jprb, 0.436193e+00_jprb &
23349  &, 0.422324e+00_jprb, 0.408591e+00_jprb, 0.395006e+00_jprb &
23350  &, 0.381597e+00_jprb, 0.368355e+00_jprb, 0.355326e+00_jprb, 0.342479e+00_jprb &
23351  &, 0.329859e+00_jprb, 0.317451e+00_jprb, 0.305279e+00_jprb &
23352  &, 0.293346e+00_jprb, 0.281651e+00_jprb, 0.270215e+00_jprb, 0.259036e+00_jprb &
23353  &, 0.248133e+00_jprb, 0.237476e+00_jprb, 0.227104e+00_jprb &
23354  &, 0.217008e+00_jprb, 0.207202e+00_jprb, 0.197673e+00_jprb, 0.188430e+00_jprb &
23355  &, 0.179459e+00_jprb, 0.170791e+00_jprb, 0.162380e+00_jprb &
23356  &, 0.154284e+00_jprb, 0.146452e+00_jprb, 0.138914e+00_jprb, 0.131641e+00_jprb &
23357  &, 0.124631e+00_jprb, 0.117911e+00_jprb, 0.111447e+00_jprb &
23358  &, 0.105264e+00_jprb, 0.993235e-01_jprb, 0.936479e-01_jprb, 0.882277e-01_jprb &
23359  &, 0.830173e-01_jprb, 0.780706e-01_jprb, 0.733740e-01_jprb &
23360  &, 0.688763e-01_jprb, 0.645945e-01_jprb, 0.605462e-01_jprb, 0.566739e-01_jprb &
23361  &, 0.530304e-01_jprb, 0.495546e-01_jprb, 0.462599e-01_jprb &
23362  &, 0.431596e-01_jprb, 0.402267e-01_jprb, 0.374735e-01_jprb, 0.348700e-01_jprb &
23363  &, 0.324270e-01_jprb, 0.301116e-01_jprb, 0.279772e-01_jprb &
23364  &, 0.259451e-01_jprb, 0.240226e-01_jprb, 0.222173e-01_jprb, 0.205365e-01_jprb &
23365  &, 0.189881e-01_jprb, 0.175315e-01_jprb, 0.161725e-01_jprb &
23366  &, 0.149170e-01_jprb, 0.137205e-01_jprb, 0.126383e-01_jprb, 0.116244e-01_jprb &
23367  &, 0.106301e-01_jprb, 0.976456e-02_jprb, 0.897980e-02_jprb &
23368  &, 0.822501e-02_jprb, 0.750223e-02_jprb, 0.687021e-02_jprb, 0.627594e-02_jprb &
23369  &, 0.572158e-02_jprb, 0.520931e-02_jprb, 0.474137e-02_jprb &
23370  &, 0.432001e-02_jprb, 0.394753e-02_jprb, 0.356392e-02_jprb, 0.323223e-02_jprb &
23371  &, 0.295484e-02_jprb, 0.266933e-02_jprb, 0.237560e-02_jprb/)
23372 xcw( 534, :) = (/ &
23373  & 0.100509e+01_jprb, 0.100532e+01_jprb, 0.100513e+01_jprb, 0.100452e+01_jprb &
23374  &, 0.100349e+01_jprb, 0.100204e+01_jprb, 0.100017e+01_jprb &
23375  &, 0.997887e+00_jprb, 0.995179e+00_jprb, 0.992055e+00_jprb, 0.988513e+00_jprb &
23376  &, 0.984555e+00_jprb, 0.980184e+00_jprb, 0.975401e+00_jprb &
23377  &, 0.970208e+00_jprb, 0.964610e+00_jprb, 0.958606e+00_jprb, 0.952204e+00_jprb &
23378  &, 0.945405e+00_jprb, 0.938212e+00_jprb, 0.930633e+00_jprb &
23379  &, 0.922622e+00_jprb, 0.914338e+00_jprb, 0.905631e+00_jprb, 0.896559e+00_jprb &
23380  &, 0.887131e+00_jprb, 0.877359e+00_jprb, 0.867245e+00_jprb &
23381  &, 0.856798e+00_jprb, 0.846031e+00_jprb, 0.834954e+00_jprb, 0.823575e+00_jprb &
23382  &, 0.811904e+00_jprb, 0.799949e+00_jprb, 0.787743e+00_jprb &
23383  &, 0.775273e+00_jprb, 0.762567e+00_jprb, 0.749631e+00_jprb, 0.736483e+00_jprb &
23384  &, 0.723135e+00_jprb, 0.709603e+00_jprb, 0.695907e+00_jprb &
23385  &, 0.682046e+00_jprb, 0.668057e+00_jprb, 0.653945e+00_jprb, 0.639727e+00_jprb &
23386  &, 0.625412e+00_jprb, 0.611033e+00_jprb, 0.596590e+00_jprb &
23387  &, 0.582105e+00_jprb, 0.567591e+00_jprb, 0.553076e+00_jprb, 0.538572e+00_jprb &
23388  &, 0.524081e+00_jprb, 0.509629e+00_jprb, 0.495232e+00_jprb &
23389  &, 0.480919e+00_jprb, 0.466674e+00_jprb, 0.452540e+00_jprb, 0.438517e+00_jprb &
23390  &, 0.424616e+00_jprb, 0.410865e+00_jprb, 0.397261e+00_jprb &
23391  &, 0.383829e+00_jprb, 0.370563e+00_jprb, 0.357506e+00_jprb, 0.344629e+00_jprb &
23392  &, 0.331976e+00_jprb, 0.319533e+00_jprb, 0.307324e+00_jprb &
23393  &, 0.295370e+00_jprb, 0.283632e+00_jprb, 0.272171e+00_jprb, 0.260943e+00_jprb &
23394  &, 0.249987e+00_jprb, 0.239322e+00_jprb, 0.228892e+00_jprb &
23395  &, 0.218759e+00_jprb, 0.208913e+00_jprb, 0.199342e+00_jprb, 0.190056e+00_jprb &
23396  &, 0.181037e+00_jprb, 0.172319e+00_jprb, 0.163882e+00_jprb &
23397  &, 0.155732e+00_jprb, 0.147843e+00_jprb, 0.140273e+00_jprb, 0.132937e+00_jprb &
23398  &, 0.125921e+00_jprb, 0.119133e+00_jprb, 0.112629e+00_jprb &
23399  &, 0.106404e+00_jprb, 0.100419e+00_jprb, 0.946978e-01_jprb, 0.892295e-01_jprb &
23400  &, 0.840027e-01_jprb, 0.790040e-01_jprb, 0.742533e-01_jprb &
23401  &, 0.697349e-01_jprb, 0.653950e-01_jprb, 0.613232e-01_jprb, 0.574264e-01_jprb &
23402  &, 0.537190e-01_jprb, 0.502158e-01_jprb, 0.469319e-01_jprb &
23403  &, 0.438024e-01_jprb, 0.408392e-01_jprb, 0.380128e-01_jprb, 0.354180e-01_jprb &
23404  &, 0.329408e-01_jprb, 0.305901e-01_jprb, 0.283748e-01_jprb &
23405  &, 0.263489e-01_jprb, 0.243871e-01_jprb, 0.225874e-01_jprb, 0.209123e-01_jprb &
23406  &, 0.193219e-01_jprb, 0.178219e-01_jprb, 0.164673e-01_jprb &
23407  &, 0.151663e-01_jprb, 0.139735e-01_jprb, 0.128436e-01_jprb, 0.118327e-01_jprb &
23408  &, 0.108415e-01_jprb, 0.997895e-02_jprb, 0.914288e-02_jprb &
23409  &, 0.839041e-02_jprb, 0.766996e-02_jprb, 0.698360e-02_jprb, 0.639091e-02_jprb &
23410  &, 0.583814e-02_jprb, 0.532748e-02_jprb, 0.486115e-02_jprb &
23411  &, 0.438071e-02_jprb, 0.400905e-02_jprb, 0.362627e-02_jprb, 0.329541e-02_jprb &
23412  &, 0.301886e-02_jprb, 0.273419e-02_jprb, 0.244131e-02_jprb/)
23413 xcw( 535, :) = (/ &
23414  & 0.100535e+01_jprb, 0.100564e+01_jprb, 0.100551e+01_jprb, 0.100496e+01_jprb &
23415  &, 0.100400e+01_jprb, 0.100261e+01_jprb, 0.100081e+01_jprb &
23416  &, 0.998581e+00_jprb, 0.995935e+00_jprb, 0.992871e+00_jprb, 0.989391e+00_jprb &
23417  &, 0.985494e+00_jprb, 0.981183e+00_jprb, 0.976460e+00_jprb &
23418  &, 0.971327e+00_jprb, 0.965786e+00_jprb, 0.959840e+00_jprb, 0.953493e+00_jprb &
23419  &, 0.946751e+00_jprb, 0.939614e+00_jprb, 0.932089e+00_jprb &
23420  &, 0.924180e+00_jprb, 0.915895e+00_jprb, 0.907241e+00_jprb, 0.898207e+00_jprb &
23421  &, 0.888841e+00_jprb, 0.879114e+00_jprb, 0.869046e+00_jprb &
23422  &, 0.858644e+00_jprb, 0.847922e+00_jprb, 0.836885e+00_jprb, 0.825545e+00_jprb &
23423  &, 0.813915e+00_jprb, 0.802002e+00_jprb, 0.789825e+00_jprb &
23424  &, 0.777384e+00_jprb, 0.764713e+00_jprb, 0.751811e+00_jprb, 0.738688e+00_jprb &
23425  &, 0.725365e+00_jprb, 0.711858e+00_jprb, 0.698186e+00_jprb &
23426  &, 0.684350e+00_jprb, 0.670373e+00_jprb, 0.656283e+00_jprb, 0.642076e+00_jprb &
23427  &, 0.627770e+00_jprb, 0.613400e+00_jprb, 0.598963e+00_jprb &
23428  &, 0.584483e+00_jprb, 0.569987e+00_jprb, 0.555460e+00_jprb, 0.540957e+00_jprb &
23429  &, 0.526465e+00_jprb, 0.512011e+00_jprb, 0.497609e+00_jprb &
23430  &, 0.483275e+00_jprb, 0.469036e+00_jprb, 0.454877e+00_jprb, 0.440840e+00_jprb &
23431  &, 0.426924e+00_jprb, 0.413140e+00_jprb, 0.399533e+00_jprb &
23432  &, 0.386061e+00_jprb, 0.372788e+00_jprb, 0.359686e+00_jprb, 0.346799e+00_jprb &
23433  &, 0.334114e+00_jprb, 0.321636e+00_jprb, 0.309409e+00_jprb &
23434  &, 0.297395e+00_jprb, 0.285634e+00_jprb, 0.274128e+00_jprb, 0.262873e+00_jprb &
23435  &, 0.251888e+00_jprb, 0.241168e+00_jprb, 0.230704e+00_jprb &
23436  &, 0.220535e+00_jprb, 0.210625e+00_jprb, 0.201012e+00_jprb, 0.191681e+00_jprb &
23437  &, 0.182641e+00_jprb, 0.173874e+00_jprb, 0.165385e+00_jprb &
23438  &, 0.157180e+00_jprb, 0.149261e+00_jprb, 0.141631e+00_jprb, 0.134262e+00_jprb &
23439  &, 0.127181e+00_jprb, 0.120385e+00_jprb, 0.113842e+00_jprb &
23440  &, 0.107544e+00_jprb, 0.101548e+00_jprb, 0.957805e-01_jprb, 0.902646e-01_jprb &
23441  &, 0.849880e-01_jprb, 0.799720e-01_jprb, 0.751677e-01_jprb &
23442  &, 0.705935e-01_jprb, 0.662319e-01_jprb, 0.621003e-01_jprb, 0.581789e-01_jprb &
23443  &, 0.544458e-01_jprb, 0.509158e-01_jprb, 0.475643e-01_jprb &
23444  &, 0.444050e-01_jprb, 0.414108e-01_jprb, 0.385937e-01_jprb, 0.359238e-01_jprb &
23445  &, 0.334119e-01_jprb, 0.310686e-01_jprb, 0.288608e-01_jprb &
23446  &, 0.267527e-01_jprb, 0.247972e-01_jprb, 0.229575e-01_jprb, 0.212411e-01_jprb &
23447  &, 0.196557e-01_jprb, 0.181607e-01_jprb, 0.167620e-01_jprb &
23448  &, 0.154655e-01_jprb, 0.142265e-01_jprb, 0.131003e-01_jprb, 0.120411e-01_jprb &
23449  &, 0.110528e-01_jprb, 0.101397e-01_jprb, 0.930597e-02_jprb &
23450  &, 0.855581e-02_jprb, 0.783770e-02_jprb, 0.715369e-02_jprb, 0.650588e-02_jprb &
23451  &, 0.595470e-02_jprb, 0.544565e-02_jprb, 0.498093e-02_jprb &
23452  &, 0.450212e-02_jprb, 0.413210e-02_jprb, 0.375097e-02_jprb, 0.335859e-02_jprb &
23453  &, 0.308288e-02_jprb, 0.279906e-02_jprb, 0.250702e-02_jprb/)
23454 xcw( 536, :) = (/ &
23455  & 0.100560e+01_jprb, 0.100596e+01_jprb, 0.100589e+01_jprb, 0.100541e+01_jprb &
23456  &, 0.100450e+01_jprb, 0.100318e+01_jprb, 0.100144e+01_jprb &
23457  &, 0.999273e+00_jprb, 0.996691e+00_jprb, 0.993689e+00_jprb, 0.990270e+00_jprb &
23458  &, 0.986433e+00_jprb, 0.982183e+00_jprb, 0.977518e+00_jprb &
23459  &, 0.972445e+00_jprb, 0.966962e+00_jprb, 0.961074e+00_jprb, 0.954784e+00_jprb &
23460  &, 0.948097e+00_jprb, 0.941017e+00_jprb, 0.933545e+00_jprb &
23461  &, 0.925692e+00_jprb, 0.917458e+00_jprb, 0.908851e+00_jprb, 0.899884e+00_jprb &
23462  &, 0.890554e+00_jprb, 0.880872e+00_jprb, 0.870851e+00_jprb &
23463  &, 0.860489e+00_jprb, 0.849813e+00_jprb, 0.838819e+00_jprb, 0.827519e+00_jprb &
23464  &, 0.815930e+00_jprb, 0.804055e+00_jprb, 0.791912e+00_jprb &
23465  &, 0.779496e+00_jprb, 0.766868e+00_jprb, 0.753992e+00_jprb, 0.740904e+00_jprb &
23466  &, 0.727606e+00_jprb, 0.714124e+00_jprb, 0.700466e+00_jprb &
23467  &, 0.686653e+00_jprb, 0.672700e+00_jprb, 0.658622e+00_jprb, 0.644425e+00_jprb &
23468  &, 0.630141e+00_jprb, 0.615779e+00_jprb, 0.601348e+00_jprb &
23469  &, 0.586874e+00_jprb, 0.572382e+00_jprb, 0.557858e+00_jprb, 0.543357e+00_jprb &
23470  &, 0.528864e+00_jprb, 0.514393e+00_jprb, 0.499987e+00_jprb &
23471  &, 0.485646e+00_jprb, 0.471383e+00_jprb, 0.457229e+00_jprb, 0.443164e+00_jprb &
23472  &, 0.429233e+00_jprb, 0.415448e+00_jprb, 0.401805e+00_jprb &
23473  &, 0.388311e+00_jprb, 0.375014e+00_jprb, 0.361885e+00_jprb, 0.348968e+00_jprb &
23474  &, 0.336251e+00_jprb, 0.323759e+00_jprb, 0.311474e+00_jprb &
23475  &, 0.299440e+00_jprb, 0.287637e+00_jprb, 0.276106e+00_jprb, 0.264803e+00_jprb &
23476  &, 0.253789e+00_jprb, 0.243014e+00_jprb, 0.232516e+00_jprb &
23477  &, 0.222310e+00_jprb, 0.212362e+00_jprb, 0.202707e+00_jprb, 0.193332e+00_jprb &
23478  &, 0.184245e+00_jprb, 0.175429e+00_jprb, 0.166888e+00_jprb &
23479  &, 0.158656e+00_jprb, 0.150680e+00_jprb, 0.143019e+00_jprb, 0.135617e+00_jprb &
23480  &, 0.128470e+00_jprb, 0.121638e+00_jprb, 0.115024e+00_jprb &
23481  &, 0.108716e+00_jprb, 0.102644e+00_jprb, 0.968633e-01_jprb, 0.912997e-01_jprb &
23482  &, 0.859734e-01_jprb, 0.809054e-01_jprb, 0.760821e-01_jprb &
23483  &, 0.714521e-01_jprb, 0.670687e-01_jprb, 0.629143e-01_jprb, 0.589314e-01_jprb &
23484  &, 0.551726e-01_jprb, 0.516158e-01_jprb, 0.482363e-01_jprb &
23485  &, 0.450077e-01_jprb, 0.420232e-01_jprb, 0.391330e-01_jprb, 0.364718e-01_jprb &
23486  &, 0.339258e-01_jprb, 0.315471e-01_jprb, 0.293026e-01_jprb &
23487  &, 0.272014e-01_jprb, 0.252073e-01_jprb, 0.233276e-01_jprb, 0.216169e-01_jprb &
23488  &, 0.199895e-01_jprb, 0.184511e-01_jprb, 0.170568e-01_jprb &
23489  &, 0.157147e-01_jprb, 0.144794e-01_jprb, 0.133570e-01_jprb, 0.122494e-01_jprb &
23490  &, 0.112642e-01_jprb, 0.103541e-01_jprb, 0.952342e-02_jprb &
23491  &, 0.872122e-02_jprb, 0.794952e-02_jprb, 0.726708e-02_jprb, 0.667834e-02_jprb &
23492  &, 0.607127e-02_jprb, 0.556381e-02_jprb, 0.504082e-02_jprb &
23493  &, 0.462353e-02_jprb, 0.419363e-02_jprb, 0.381332e-02_jprb, 0.348495e-02_jprb &
23494  &, 0.314690e-02_jprb, 0.286392e-02_jprb, 0.257273e-02_jprb/)
23495 xcw( 537, :) = (/ &
23496  & 0.100585e+01_jprb, 0.100627e+01_jprb, 0.100627e+01_jprb, 0.100585e+01_jprb &
23497  &, 0.100501e+01_jprb, 0.100375e+01_jprb, 0.100207e+01_jprb &
23498  &, 0.999968e+00_jprb, 0.997444e+00_jprb, 0.994507e+00_jprb, 0.991146e+00_jprb &
23499  &, 0.987373e+00_jprb, 0.983182e+00_jprb, 0.978578e+00_jprb &
23500  &, 0.973564e+00_jprb, 0.968140e+00_jprb, 0.962309e+00_jprb, 0.956077e+00_jprb &
23501  &, 0.949446e+00_jprb, 0.942419e+00_jprb, 0.935004e+00_jprb &
23502  &, 0.927204e+00_jprb, 0.919022e+00_jprb, 0.910469e+00_jprb, 0.901546e+00_jprb &
23503  &, 0.892267e+00_jprb, 0.882634e+00_jprb, 0.872660e+00_jprb &
23504  &, 0.862346e+00_jprb, 0.851712e+00_jprb, 0.840757e+00_jprb, 0.829498e+00_jprb &
23505  &, 0.817946e+00_jprb, 0.806112e+00_jprb, 0.794003e+00_jprb &
23506  &, 0.781635e+00_jprb, 0.769024e+00_jprb, 0.756182e+00_jprb, 0.743119e+00_jprb &
23507  &, 0.729847e+00_jprb, 0.716389e+00_jprb, 0.702756e+00_jprb &
23508  &, 0.688968e+00_jprb, 0.675027e+00_jprb, 0.660961e+00_jprb, 0.646786e+00_jprb &
23509  &, 0.632511e+00_jprb, 0.618157e+00_jprb, 0.603747e+00_jprb &
23510  &, 0.589279e+00_jprb, 0.574778e+00_jprb, 0.560271e+00_jprb, 0.545756e+00_jprb &
23511  &, 0.531263e+00_jprb, 0.516804e+00_jprb, 0.502379e+00_jprb &
23512  &, 0.488032e+00_jprb, 0.473762e+00_jprb, 0.459582e+00_jprb, 0.445504e+00_jprb &
23513  &, 0.431558e+00_jprb, 0.417757e+00_jprb, 0.404077e+00_jprb &
23514  &, 0.390580e+00_jprb, 0.377240e+00_jprb, 0.364103e+00_jprb, 0.351157e+00_jprb &
23515  &, 0.338409e+00_jprb, 0.325882e+00_jprb, 0.313560e+00_jprb &
23516  &, 0.301507e+00_jprb, 0.289661e+00_jprb, 0.278085e+00_jprb, 0.266755e+00_jprb &
23517  &, 0.255690e+00_jprb, 0.244883e+00_jprb, 0.234352e+00_jprb &
23518  &, 0.224086e+00_jprb, 0.214098e+00_jprb, 0.204402e+00_jprb, 0.194983e+00_jprb &
23519  &, 0.185850e+00_jprb, 0.176984e+00_jprb, 0.168419e+00_jprb &
23520  &, 0.160132e+00_jprb, 0.152127e+00_jprb, 0.144407e+00_jprb, 0.136971e+00_jprb &
23521  &, 0.129790e+00_jprb, 0.122890e+00_jprb, 0.116268e+00_jprb &
23522  &, 0.109887e+00_jprb, 0.103772e+00_jprb, 0.979460e-01_jprb, 0.923348e-01_jprb &
23523  &, 0.869927e-01_jprb, 0.818734e-01_jprb, 0.769965e-01_jprb &
23524  &, 0.723464e-01_jprb, 0.679056e-01_jprb, 0.636914e-01_jprb, 0.596839e-01_jprb &
23525  &, 0.558995e-01_jprb, 0.523158e-01_jprb, 0.488688e-01_jprb &
23526  &, 0.456505e-01_jprb, 0.425948e-01_jprb, 0.397138e-01_jprb, 0.370198e-01_jprb &
23527  &, 0.344396e-01_jprb, 0.320256e-01_jprb, 0.297444e-01_jprb &
23528  &, 0.276053e-01_jprb, 0.256174e-01_jprb, 0.237440e-01_jprb, 0.219926e-01_jprb &
23529  &, 0.203233e-01_jprb, 0.187900e-01_jprb, 0.173515e-01_jprb &
23530  &, 0.160139e-01_jprb, 0.147324e-01_jprb, 0.135623e-01_jprb, 0.125098e-01_jprb &
23531  &, 0.114755e-01_jprb, 0.105685e-01_jprb, 0.968651e-02_jprb &
23532  &, 0.888662e-02_jprb, 0.811726e-02_jprb, 0.743717e-02_jprb, 0.679331e-02_jprb &
23533  &, 0.618783e-02_jprb, 0.568198e-02_jprb, 0.516060e-02_jprb &
23534  &, 0.468423e-02_jprb, 0.431667e-02_jprb, 0.387566e-02_jprb, 0.354813e-02_jprb &
23535  &, 0.321092e-02_jprb, 0.292878e-02_jprb, 0.263845e-02_jprb/)
23536 xcw( 538, :) = (/ &
23537  & 0.100611e+01_jprb, 0.100659e+01_jprb, 0.100665e+01_jprb, 0.100629e+01_jprb &
23538  &, 0.100552e+01_jprb, 0.100432e+01_jprb, 0.100270e+01_jprb &
23539  &, 0.100066e+01_jprb, 0.998203e+00_jprb, 0.995325e+00_jprb, 0.992029e+00_jprb &
23540  &, 0.988314e+00_jprb, 0.984185e+00_jprb, 0.979639e+00_jprb &
23541  &, 0.974684e+00_jprb, 0.969319e+00_jprb, 0.963547e+00_jprb, 0.957371e+00_jprb &
23542  &, 0.950796e+00_jprb, 0.943824e+00_jprb, 0.936463e+00_jprb &
23543  &, 0.928716e+00_jprb, 0.920589e+00_jprb, 0.912086e+00_jprb, 0.903216e+00_jprb &
23544  &, 0.893984e+00_jprb, 0.884400e+00_jprb, 0.874469e+00_jprb &
23545  &, 0.864204e+00_jprb, 0.853612e+00_jprb, 0.842700e+00_jprb, 0.831418e+00_jprb &
23546  &, 0.819969e+00_jprb, 0.808169e+00_jprb, 0.796098e+00_jprb &
23547  &, 0.783765e+00_jprb, 0.771188e+00_jprb, 0.758373e+00_jprb, 0.745335e+00_jprb &
23548  &, 0.732098e+00_jprb, 0.718666e+00_jprb, 0.705057e+00_jprb &
23549  &, 0.691282e+00_jprb, 0.677366e+00_jprb, 0.663323e+00_jprb, 0.649159e+00_jprb &
23550  &, 0.634894e+00_jprb, 0.620549e+00_jprb, 0.606146e+00_jprb &
23551  &, 0.591684e+00_jprb, 0.577187e+00_jprb, 0.562683e+00_jprb, 0.548170e+00_jprb &
23552  &, 0.533662e+00_jprb, 0.519201e+00_jprb, 0.504787e+00_jprb &
23553  &, 0.490419e+00_jprb, 0.476141e+00_jprb, 0.461950e+00_jprb, 0.447861e+00_jprb &
23554  &, 0.433901e+00_jprb, 0.420066e+00_jprb, 0.406384e+00_jprb &
23555  &, 0.392848e+00_jprb, 0.379503e+00_jprb, 0.366321e+00_jprb, 0.353346e+00_jprb &
23556  &, 0.340566e+00_jprb, 0.328005e+00_jprb, 0.315666e+00_jprb &
23557  &, 0.303573e+00_jprb, 0.291706e+00_jprb, 0.280085e+00_jprb, 0.268707e+00_jprb &
23558  &, 0.257613e+00_jprb, 0.246753e+00_jprb, 0.236187e+00_jprb &
23559  &, 0.225885e+00_jprb, 0.215860e+00_jprb, 0.206122e+00_jprb, 0.196660e+00_jprb &
23560  &, 0.187480e+00_jprb, 0.178566e+00_jprb, 0.169949e+00_jprb &
23561  &, 0.161636e+00_jprb, 0.153574e+00_jprb, 0.145794e+00_jprb, 0.138326e+00_jprb &
23562  &, 0.131110e+00_jprb, 0.124142e+00_jprb, 0.117481e+00_jprb &
23563  &, 0.111059e+00_jprb, 0.104932e+00_jprb, 0.990287e-01_jprb, 0.934033e-01_jprb &
23564  &, 0.879781e-01_jprb, 0.828414e-01_jprb, 0.779109e-01_jprb &
23565  &, 0.732408e-01_jprb, 0.687789e-01_jprb, 0.645054e-01_jprb, 0.604741e-01_jprb &
23566  &, 0.566263e-01_jprb, 0.530158e-01_jprb, 0.495804e-01_jprb &
23567  &, 0.462933e-01_jprb, 0.432073e-01_jprb, 0.402947e-01_jprb, 0.375678e-01_jprb &
23568  &, 0.349535e-01_jprb, 0.325041e-01_jprb, 0.302304e-01_jprb &
23569  &, 0.280540e-01_jprb, 0.260275e-01_jprb, 0.241141e-01_jprb, 0.223214e-01_jprb &
23570  &, 0.206570e-01_jprb, 0.191288e-01_jprb, 0.176463e-01_jprb &
23571  &, 0.162632e-01_jprb, 0.150359e-01_jprb, 0.138190e-01_jprb, 0.127181e-01_jprb &
23572  &, 0.116869e-01_jprb, 0.107829e-01_jprb, 0.984960e-02_jprb &
23573  &, 0.905202e-02_jprb, 0.828500e-02_jprb, 0.760725e-02_jprb, 0.696577e-02_jprb &
23574  &, 0.636267e-02_jprb, 0.580014e-02_jprb, 0.528039e-02_jprb &
23575  &, 0.480564e-02_jprb, 0.437820e-02_jprb, 0.400036e-02_jprb, 0.361131e-02_jprb &
23576  &, 0.327494e-02_jprb, 0.299364e-02_jprb, 0.270416e-02_jprb/)
23577 xcw( 539, :) = (/ &
23578  & 0.100636e+01_jprb, 0.100691e+01_jprb, 0.100703e+01_jprb, 0.100674e+01_jprb &
23579  &, 0.100602e+01_jprb, 0.100489e+01_jprb, 0.100333e+01_jprb &
23580  &, 0.100136e+01_jprb, 0.998961e+00_jprb, 0.996143e+00_jprb, 0.992910e+00_jprb &
23581  &, 0.989256e+00_jprb, 0.985186e+00_jprb, 0.980702e+00_jprb &
23582  &, 0.975803e+00_jprb, 0.970499e+00_jprb, 0.964784e+00_jprb, 0.958667e+00_jprb &
23583  &, 0.952148e+00_jprb, 0.945233e+00_jprb, 0.937926e+00_jprb &
23584  &, 0.930231e+00_jprb, 0.922155e+00_jprb, 0.913707e+00_jprb, 0.904886e+00_jprb &
23585  &, 0.895705e+00_jprb, 0.886166e+00_jprb, 0.876286e+00_jprb &
23586  &, 0.866065e+00_jprb, 0.855515e+00_jprb, 0.844646e+00_jprb, 0.833467e+00_jprb &
23587  &, 0.821993e+00_jprb, 0.810236e+00_jprb, 0.798198e+00_jprb &
23588  &, 0.785895e+00_jprb, 0.773353e+00_jprb, 0.760573e+00_jprb, 0.747561e+00_jprb &
23589  &, 0.734349e+00_jprb, 0.720942e+00_jprb, 0.707358e+00_jprb &
23590  &, 0.693608e+00_jprb, 0.679704e+00_jprb, 0.665673e+00_jprb, 0.651532e+00_jprb &
23591  &, 0.637289e+00_jprb, 0.622952e+00_jprb, 0.608544e+00_jprb &
23592  &, 0.594101e+00_jprb, 0.579610e+00_jprb, 0.565095e+00_jprb, 0.550583e+00_jprb &
23593  &, 0.536089e+00_jprb, 0.521612e+00_jprb, 0.507195e+00_jprb &
23594  &, 0.492821e+00_jprb, 0.478535e+00_jprb, 0.464319e+00_jprb, 0.450218e+00_jprb &
23595  &, 0.436244e+00_jprb, 0.422392e+00_jprb, 0.408692e+00_jprb &
23596  &, 0.395135e+00_jprb, 0.381748e+00_jprb, 0.368558e+00_jprb, 0.355554e+00_jprb &
23597  &, 0.342743e+00_jprb, 0.330148e+00_jprb, 0.317793e+00_jprb &
23598  &, 0.305640e+00_jprb, 0.293752e+00_jprb, 0.282085e+00_jprb, 0.270682e+00_jprb &
23599  &, 0.259537e+00_jprb, 0.248645e+00_jprb, 0.238047e+00_jprb &
23600  &, 0.227709e+00_jprb, 0.217621e+00_jprb, 0.207843e+00_jprb, 0.198336e+00_jprb &
23601  &, 0.189111e+00_jprb, 0.180174e+00_jprb, 0.171506e+00_jprb &
23602  &, 0.163139e+00_jprb, 0.155050e+00_jprb, 0.147211e+00_jprb, 0.139680e+00_jprb &
23603  &, 0.132429e+00_jprb, 0.125425e+00_jprb, 0.118725e+00_jprb &
23604  &, 0.112262e+00_jprb, 0.106060e+00_jprb, 0.100144e+00_jprb, 0.944384e-01_jprb &
23605  &, 0.889974e-01_jprb, 0.838093e-01_jprb, 0.788605e-01_jprb &
23606  &, 0.741352e-01_jprb, 0.696157e-01_jprb, 0.653565e-01_jprb, 0.612642e-01_jprb &
23607  &, 0.573914e-01_jprb, 0.537158e-01_jprb, 0.502524e-01_jprb &
23608  &, 0.469362e-01_jprb, 0.438197e-01_jprb, 0.408755e-01_jprb, 0.381158e-01_jprb &
23609  &, 0.354674e-01_jprb, 0.330261e-01_jprb, 0.306723e-01_jprb &
23610  &, 0.285027e-01_jprb, 0.264376e-01_jprb, 0.245305e-01_jprb, 0.226972e-01_jprb &
23611  &, 0.210385e-01_jprb, 0.194192e-01_jprb, 0.179410e-01_jprb &
23612  &, 0.165623e-01_jprb, 0.152889e-01_jprb, 0.140757e-01_jprb, 0.129786e-01_jprb &
23613  &, 0.119511e-01_jprb, 0.109437e-01_jprb, 0.100670e-01_jprb &
23614  &, 0.921743e-02_jprb, 0.845273e-02_jprb, 0.777734e-02_jprb, 0.708074e-02_jprb &
23615  &, 0.647924e-02_jprb, 0.591831e-02_jprb, 0.540017e-02_jprb &
23616  &, 0.492705e-02_jprb, 0.450124e-02_jprb, 0.406271e-02_jprb, 0.373767e-02_jprb &
23617  &, 0.333895e-02_jprb, 0.305850e-02_jprb, 0.276987e-02_jprb/)
23618 
23619 IF (lhook) CALL dr_hook('SU_MCICA:PART77',1,zhook_handle)
23620 END SUBROUTINE part77
23621 
23622 #ifdef VPP5000
23623 !OCL SCALAR
23624 #endif
23625 !option! -Nv -NO
23626 #ifdef RS6K
23627 @process nooptimize
23628 #endif
23629 !pgi$r opt=0
23630 SUBROUTINE part78
23631 
23632 REAL(KIND=JPRB) :: ZHOOK_HANDLE
23633 IF (lhook) CALL dr_hook('SU_MCICA:PART78',0,zhook_handle)
23634 
23635 xcw( 540, :) = (/ &
23636  & 0.100661e+01_jprb, 0.100722e+01_jprb, 0.100741e+01_jprb, 0.100718e+01_jprb &
23637  &, 0.100653e+01_jprb, 0.100546e+01_jprb, 0.100397e+01_jprb &
23638  &, 0.100205e+01_jprb, 0.999720e+00_jprb, 0.996964e+00_jprb, 0.993792e+00_jprb &
23639  &, 0.990198e+00_jprb, 0.986190e+00_jprb, 0.981766e+00_jprb &
23640  &, 0.976929e+00_jprb, 0.971680e+00_jprb, 0.966024e+00_jprb, 0.959964e+00_jprb &
23641  &, 0.953502e+00_jprb, 0.946641e+00_jprb, 0.939388e+00_jprb &
23642  &, 0.931750e+00_jprb, 0.923726e+00_jprb, 0.915327e+00_jprb, 0.906559e+00_jprb &
23643  &, 0.897425e+00_jprb, 0.887936e+00_jprb, 0.878102e+00_jprb &
23644  &, 0.867926e+00_jprb, 0.857422e+00_jprb, 0.846597e+00_jprb, 0.835459e+00_jprb &
23645  &, 0.824026e+00_jprb, 0.812302e+00_jprb, 0.800303e+00_jprb &
23646  &, 0.788034e+00_jprb, 0.775528e+00_jprb, 0.762773e+00_jprb, 0.749796e+00_jprb &
23647  &, 0.736610e+00_jprb, 0.723229e+00_jprb, 0.709659e+00_jprb &
23648  &, 0.695934e+00_jprb, 0.682054e+00_jprb, 0.668046e+00_jprb, 0.653917e+00_jprb &
23649  &, 0.639672e+00_jprb, 0.625356e+00_jprb, 0.610969e+00_jprb &
23650  &, 0.596519e+00_jprb, 0.582032e+00_jprb, 0.567521e+00_jprb, 0.553011e+00_jprb &
23651  &, 0.538517e+00_jprb, 0.524038e+00_jprb, 0.509602e+00_jprb &
23652  &, 0.495223e+00_jprb, 0.480930e+00_jprb, 0.466704e+00_jprb, 0.452591e+00_jprb &
23653  &, 0.438603e+00_jprb, 0.424719e+00_jprb, 0.410999e+00_jprb &
23654  &, 0.397421e+00_jprb, 0.384029e+00_jprb, 0.370795e+00_jprb, 0.357763e+00_jprb &
23655  &, 0.344940e+00_jprb, 0.332311e+00_jprb, 0.319899e+00_jprb &
23656  &, 0.307728e+00_jprb, 0.295797e+00_jprb, 0.284108e+00_jprb, 0.272656e+00_jprb &
23657  &, 0.261483e+00_jprb, 0.250562e+00_jprb, 0.239907e+00_jprb &
23658  &, 0.229509e+00_jprb, 0.219407e+00_jprb, 0.209588e+00_jprb, 0.200039e+00_jprb &
23659  &, 0.190768e+00_jprb, 0.181783e+00_jprb, 0.173064e+00_jprb &
23660  &, 0.164643e+00_jprb, 0.156497e+00_jprb, 0.148656e+00_jprb, 0.141064e+00_jprb &
23661  &, 0.133749e+00_jprb, 0.126739e+00_jprb, 0.119969e+00_jprb &
23662  &, 0.113466e+00_jprb, 0.107221e+00_jprb, 0.101260e+00_jprb, 0.955403e-01_jprb &
23663  &, 0.900507e-01_jprb, 0.848119e-01_jprb, 0.798101e-01_jprb &
23664  &, 0.750295e-01_jprb, 0.704890e-01_jprb, 0.661706e-01_jprb, 0.620543e-01_jprb &
23665  &, 0.581565e-01_jprb, 0.544547e-01_jprb, 0.509244e-01_jprb &
23666  &, 0.476192e-01_jprb, 0.444730e-01_jprb, 0.414563e-01_jprb, 0.386637e-01_jprb &
23667  &, 0.360241e-01_jprb, 0.335046e-01_jprb, 0.311583e-01_jprb &
23668  &, 0.289514e-01_jprb, 0.268476e-01_jprb, 0.249006e-01_jprb, 0.230730e-01_jprb &
23669  &, 0.213723e-01_jprb, 0.197580e-01_jprb, 0.182849e-01_jprb &
23670  &, 0.168614e-01_jprb, 0.155419e-01_jprb, 0.143323e-01_jprb, 0.131869e-01_jprb &
23671  &, 0.121624e-01_jprb, 0.111581e-01_jprb, 0.102845e-01_jprb &
23672  &, 0.943796e-02_jprb, 0.862047e-02_jprb, 0.789073e-02_jprb, 0.725320e-02_jprb &
23673  &, 0.659580e-02_jprb, 0.603648e-02_jprb, 0.551995e-02_jprb &
23674  &, 0.504846e-02_jprb, 0.456277e-02_jprb, 0.418741e-02_jprb, 0.380085e-02_jprb &
23675  &, 0.346699e-02_jprb, 0.312336e-02_jprb, 0.283558e-02_jprb/)
23676 xcw( 541, :) = (/ &
23677  & 0.100686e+01_jprb, 0.100754e+01_jprb, 0.100779e+01_jprb, 0.100762e+01_jprb &
23678  &, 0.100704e+01_jprb, 0.100603e+01_jprb, 0.100460e+01_jprb &
23679  &, 0.100275e+01_jprb, 0.100047e+01_jprb, 0.997785e+00_jprb, 0.994673e+00_jprb &
23680  &, 0.991142e+00_jprb, 0.987194e+00_jprb, 0.982830e+00_jprb &
23681  &, 0.978052e+00_jprb, 0.972863e+00_jprb, 0.967265e+00_jprb, 0.961262e+00_jprb &
23682  &, 0.954857e+00_jprb, 0.948053e+00_jprb, 0.940857e+00_jprb &
23683  &, 0.933268e+00_jprb, 0.925299e+00_jprb, 0.916951e+00_jprb, 0.908232e+00_jprb &
23684  &, 0.899149e+00_jprb, 0.889709e+00_jprb, 0.879923e+00_jprb &
23685  &, 0.869791e+00_jprb, 0.859329e+00_jprb, 0.848548e+00_jprb, 0.837454e+00_jprb &
23686  &, 0.826058e+00_jprb, 0.814372e+00_jprb, 0.802412e+00_jprb &
23687  &, 0.790183e+00_jprb, 0.777702e+00_jprb, 0.764983e+00_jprb, 0.752032e+00_jprb &
23688  &, 0.738872e+00_jprb, 0.725515e+00_jprb, 0.711982e+00_jprb &
23689  &, 0.698270e+00_jprb, 0.684415e+00_jprb, 0.670420e+00_jprb, 0.656301e+00_jprb &
23690  &, 0.642079e+00_jprb, 0.627773e+00_jprb, 0.613380e+00_jprb &
23691  &, 0.598950e+00_jprb, 0.584468e+00_jprb, 0.569960e+00_jprb, 0.555453e+00_jprb &
23692  &, 0.540945e+00_jprb, 0.526464e+00_jprb, 0.512025e+00_jprb &
23693  &, 0.497641e+00_jprb, 0.483340e+00_jprb, 0.469105e+00_jprb, 0.454981e+00_jprb &
23694  &, 0.440963e+00_jprb, 0.427079e+00_jprb, 0.413325e+00_jprb &
23695  &, 0.399726e+00_jprb, 0.386311e+00_jprb, 0.373051e+00_jprb, 0.359991e+00_jprb &
23696  &, 0.347137e+00_jprb, 0.334475e+00_jprb, 0.322047e+00_jprb &
23697  &, 0.309837e+00_jprb, 0.297864e+00_jprb, 0.286130e+00_jprb, 0.274653e+00_jprb &
23698  &, 0.263430e+00_jprb, 0.252478e+00_jprb, 0.241766e+00_jprb &
23699  &, 0.231358e+00_jprb, 0.221193e+00_jprb, 0.211334e+00_jprb, 0.201742e+00_jprb &
23700  &, 0.192425e+00_jprb, 0.183391e+00_jprb, 0.174649e+00_jprb &
23701  &, 0.166175e+00_jprb, 0.158001e+00_jprb, 0.150073e+00_jprb, 0.142448e+00_jprb &
23702  &, 0.135099e+00_jprb, 0.128022e+00_jprb, 0.121213e+00_jprb &
23703  &, 0.114669e+00_jprb, 0.108381e+00_jprb, 0.102375e+00_jprb, 0.966088e-01_jprb &
23704  &, 0.911040e-01_jprb, 0.858144e-01_jprb, 0.807597e-01_jprb &
23705  &, 0.759597e-01_jprb, 0.713622e-01_jprb, 0.670216e-01_jprb, 0.628821e-01_jprb &
23706  &, 0.589215e-01_jprb, 0.551935e-01_jprb, 0.516359e-01_jprb &
23707  &, 0.482620e-01_jprb, 0.450854e-01_jprb, 0.420786e-01_jprb, 0.392539e-01_jprb &
23708  &, 0.365380e-01_jprb, 0.340266e-01_jprb, 0.316443e-01_jprb &
23709  &, 0.294001e-01_jprb, 0.273033e-01_jprb, 0.253170e-01_jprb, 0.234487e-01_jprb &
23710  &, 0.217538e-01_jprb, 0.200968e-01_jprb, 0.185797e-01_jprb &
23711  &, 0.171606e-01_jprb, 0.158454e-01_jprb, 0.145890e-01_jprb, 0.134473e-01_jprb &
23712  &, 0.123737e-01_jprb, 0.113725e-01_jprb, 0.104476e-01_jprb &
23713  &, 0.960337e-02_jprb, 0.878820e-02_jprb, 0.806082e-02_jprb, 0.736817e-02_jprb &
23714  &, 0.677064e-02_jprb, 0.615464e-02_jprb, 0.563973e-02_jprb &
23715  &, 0.516987e-02_jprb, 0.468582e-02_jprb, 0.424976e-02_jprb, 0.386404e-02_jprb &
23716  &, 0.353101e-02_jprb, 0.318823e-02_jprb, 0.290129e-02_jprb/)
23717 xcw( 542, :) = (/ &
23718  & 0.100712e+01_jprb, 0.100785e+01_jprb, 0.100817e+01_jprb, 0.100807e+01_jprb &
23719  &, 0.100755e+01_jprb, 0.100660e+01_jprb, 0.100523e+01_jprb &
23720  &, 0.100345e+01_jprb, 0.100124e+01_jprb, 0.998606e+00_jprb, 0.995556e+00_jprb &
23721  &, 0.992084e+00_jprb, 0.988199e+00_jprb, 0.983895e+00_jprb &
23722  &, 0.979178e+00_jprb, 0.974047e+00_jprb, 0.968508e+00_jprb, 0.962563e+00_jprb &
23723  &, 0.956213e+00_jprb, 0.949465e+00_jprb, 0.942322e+00_jprb &
23724  &, 0.934790e+00_jprb, 0.926873e+00_jprb, 0.918579e+00_jprb, 0.909912e+00_jprb &
23725  &, 0.900877e+00_jprb, 0.891486e+00_jprb, 0.881743e+00_jprb &
23726  &, 0.871660e+00_jprb, 0.861245e+00_jprb, 0.850502e+00_jprb, 0.839454e+00_jprb &
23727  &, 0.828095e+00_jprb, 0.816451e+00_jprb, 0.804526e+00_jprb &
23728  &, 0.792332e+00_jprb, 0.779876e+00_jprb, 0.767192e+00_jprb, 0.754278e+00_jprb &
23729  &, 0.741143e+00_jprb, 0.727813e+00_jprb, 0.714294e+00_jprb &
23730  &, 0.700618e+00_jprb, 0.686776e+00_jprb, 0.672793e+00_jprb, 0.658698e+00_jprb &
23731  &, 0.644486e+00_jprb, 0.630189e+00_jprb, 0.615817e+00_jprb &
23732  &, 0.601381e+00_jprb, 0.586904e+00_jprb, 0.572414e+00_jprb, 0.557895e+00_jprb &
23733  &, 0.543387e+00_jprb, 0.528905e+00_jprb, 0.514463e+00_jprb &
23734  &, 0.500074e+00_jprb, 0.485750e+00_jprb, 0.471507e+00_jprb, 0.457371e+00_jprb &
23735  &, 0.443339e+00_jprb, 0.429423e+00_jprb, 0.415668e+00_jprb &
23736  &, 0.402048e+00_jprb, 0.388592e+00_jprb, 0.375326e+00_jprb, 0.362238e+00_jprb &
23737  &, 0.349334e+00_jprb, 0.336658e+00_jprb, 0.324195e+00_jprb &
23738  &, 0.311945e+00_jprb, 0.299932e+00_jprb, 0.288174e+00_jprb, 0.276650e+00_jprb &
23739  &, 0.265399e+00_jprb, 0.254394e+00_jprb, 0.243674e+00_jprb &
23740  &, 0.233206e+00_jprb, 0.223004e+00_jprb, 0.213080e+00_jprb, 0.203444e+00_jprb &
23741  &, 0.194082e+00_jprb, 0.185027e+00_jprb, 0.176234e+00_jprb &
23742  &, 0.167706e+00_jprb, 0.159476e+00_jprb, 0.151518e+00_jprb, 0.143862e+00_jprb &
23743  &, 0.136448e+00_jprb, 0.129335e+00_jprb, 0.122488e+00_jprb &
23744  &, 0.115904e+00_jprb, 0.109574e+00_jprb, 0.103524e+00_jprb, 0.977107e-01_jprb &
23745  &, 0.921233e-01_jprb, 0.868170e-01_jprb, 0.817444e-01_jprb &
23746  &, 0.768898e-01_jprb, 0.722719e-01_jprb, 0.678727e-01_jprb, 0.636722e-01_jprb &
23747  &, 0.596866e-01_jprb, 0.559324e-01_jprb, 0.523474e-01_jprb &
23748  &, 0.489450e-01_jprb, 0.457387e-01_jprb, 0.427010e-01_jprb, 0.398019e-01_jprb &
23749  &, 0.370947e-01_jprb, 0.345486e-01_jprb, 0.321303e-01_jprb &
23750  &, 0.298488e-01_jprb, 0.277589e-01_jprb, 0.257334e-01_jprb, 0.238715e-01_jprb &
23751  &, 0.220876e-01_jprb, 0.204356e-01_jprb, 0.189236e-01_jprb &
23752  &, 0.174597e-01_jprb, 0.161490e-01_jprb, 0.148970e-01_jprb, 0.137077e-01_jprb &
23753  &, 0.126379e-01_jprb, 0.115868e-01_jprb, 0.106650e-01_jprb &
23754  &, 0.982390e-02_jprb, 0.901185e-02_jprb, 0.823091e-02_jprb, 0.754063e-02_jprb &
23755  &, 0.688721e-02_jprb, 0.633189e-02_jprb, 0.575951e-02_jprb &
23756  &, 0.523057e-02_jprb, 0.480887e-02_jprb, 0.437446e-02_jprb, 0.399040e-02_jprb &
23757  &, 0.359503e-02_jprb, 0.325309e-02_jprb, 0.296700e-02_jprb/)
23758 xcw( 543, :) = (/ &
23759  & 0.100737e+01_jprb, 0.100817e+01_jprb, 0.100855e+01_jprb, 0.100851e+01_jprb &
23760  &, 0.100805e+01_jprb, 0.100717e+01_jprb, 0.100587e+01_jprb &
23761  &, 0.100414e+01_jprb, 0.100200e+01_jprb, 0.999428e+00_jprb, 0.996440e+00_jprb &
23762  &, 0.993032e+00_jprb, 0.989204e+00_jprb, 0.984962e+00_jprb &
23763  &, 0.980303e+00_jprb, 0.975233e+00_jprb, 0.969752e+00_jprb, 0.963864e+00_jprb &
23764  &, 0.957572e+00_jprb, 0.950880e+00_jprb, 0.943791e+00_jprb &
23765  &, 0.936315e+00_jprb, 0.928450e+00_jprb, 0.920207e+00_jprb, 0.911593e+00_jprb &
23766  &, 0.902609e+00_jprb, 0.893266e+00_jprb, 0.883571e+00_jprb &
23767  &, 0.873533e+00_jprb, 0.863160e+00_jprb, 0.852466e+00_jprb, 0.841453e+00_jprb &
23768  &, 0.830137e+00_jprb, 0.818531e+00_jprb, 0.806640e+00_jprb &
23769  &, 0.794480e+00_jprb, 0.782070e+00_jprb, 0.769412e+00_jprb, 0.756524e+00_jprb &
23770  &, 0.743415e+00_jprb, 0.730110e+00_jprb, 0.716628e+00_jprb &
23771  &, 0.702955e+00_jprb, 0.689137e+00_jprb, 0.675178e+00_jprb, 0.661095e+00_jprb &
23772  &, 0.646905e+00_jprb, 0.632618e+00_jprb, 0.618254e+00_jprb &
23773  &, 0.603825e+00_jprb, 0.589354e+00_jprb, 0.574854e+00_jprb, 0.560350e+00_jprb &
23774  &, 0.545844e+00_jprb, 0.531361e+00_jprb, 0.516901e+00_jprb &
23775  &, 0.502507e+00_jprb, 0.488177e+00_jprb, 0.473924e+00_jprb, 0.459761e+00_jprb &
23776  &, 0.445716e+00_jprb, 0.431801e+00_jprb, 0.418011e+00_jprb &
23777  &, 0.404371e+00_jprb, 0.390892e+00_jprb, 0.377600e+00_jprb, 0.364485e+00_jprb &
23778  &, 0.351550e+00_jprb, 0.338842e+00_jprb, 0.326342e+00_jprb &
23779  &, 0.314075e+00_jprb, 0.302020e+00_jprb, 0.290219e+00_jprb, 0.278670e+00_jprb &
23780  &, 0.267369e+00_jprb, 0.256334e+00_jprb, 0.245557e+00_jprb &
23781  &, 0.235055e+00_jprb, 0.224815e+00_jprb, 0.214851e+00_jprb, 0.205173e+00_jprb &
23782  &, 0.195765e+00_jprb, 0.186662e+00_jprb, 0.177819e+00_jprb &
23783  &, 0.169266e+00_jprb, 0.160980e+00_jprb, 0.152992e+00_jprb, 0.145275e+00_jprb &
23784  &, 0.137828e+00_jprb, 0.130679e+00_jprb, 0.123764e+00_jprb &
23785  &, 0.117139e+00_jprb, 0.110767e+00_jprb, 0.104672e+00_jprb, 0.988125e-01_jprb &
23786  &, 0.932106e-01_jprb, 0.878541e-01_jprb, 0.827292e-01_jprb &
23787  &, 0.778200e-01_jprb, 0.731815e-01_jprb, 0.687237e-01_jprb, 0.645000e-01_jprb &
23788  &, 0.604900e-01_jprb, 0.566713e-01_jprb, 0.530590e-01_jprb &
23789  &, 0.496280e-01_jprb, 0.463511e-01_jprb, 0.432818e-01_jprb, 0.403920e-01_jprb &
23790  &, 0.376514e-01_jprb, 0.350706e-01_jprb, 0.326163e-01_jprb &
23791  &, 0.303424e-01_jprb, 0.281690e-01_jprb, 0.261498e-01_jprb, 0.242473e-01_jprb &
23792  &, 0.224690e-01_jprb, 0.208228e-01_jprb, 0.192183e-01_jprb &
23793  &, 0.177588e-01_jprb, 0.164019e-01_jprb, 0.151537e-01_jprb, 0.139681e-01_jprb &
23794  &, 0.128493e-01_jprb, 0.118548e-01_jprb, 0.108825e-01_jprb &
23795  &, 0.998931e-02_jprb, 0.917959e-02_jprb, 0.840100e-02_jprb, 0.771308e-02_jprb &
23796  &, 0.706205e-02_jprb, 0.645006e-02_jprb, 0.587929e-02_jprb &
23797  &, 0.535198e-02_jprb, 0.493191e-02_jprb, 0.443681e-02_jprb, 0.405358e-02_jprb &
23798  &, 0.372306e-02_jprb, 0.338281e-02_jprb, 0.303271e-02_jprb/)
23799 xcw( 544, :) = (/ &
23800  & 0.100763e+01_jprb, 0.100849e+01_jprb, 0.100893e+01_jprb, 0.100896e+01_jprb &
23801  &, 0.100856e+01_jprb, 0.100774e+01_jprb, 0.100650e+01_jprb &
23802  &, 0.100484e+01_jprb, 0.100276e+01_jprb, 0.100025e+01_jprb, 0.997324e+00_jprb &
23803  &, 0.993977e+00_jprb, 0.990211e+00_jprb, 0.986029e+00_jprb &
23804  &, 0.981431e+00_jprb, 0.976419e+00_jprb, 0.970996e+00_jprb, 0.965155e+00_jprb &
23805  &, 0.958932e+00_jprb, 0.952295e+00_jprb, 0.945263e+00_jprb &
23806  &, 0.937840e+00_jprb, 0.930030e+00_jprb, 0.921841e+00_jprb, 0.913273e+00_jprb &
23807  &, 0.904340e+00_jprb, 0.895047e+00_jprb, 0.885399e+00_jprb &
23808  &, 0.875410e+00_jprb, 0.865080e+00_jprb, 0.854429e+00_jprb, 0.843457e+00_jprb &
23809  &, 0.832182e+00_jprb, 0.820615e+00_jprb, 0.808762e+00_jprb &
23810  &, 0.796638e+00_jprb, 0.784254e+00_jprb, 0.771632e+00_jprb, 0.758769e+00_jprb &
23811  &, 0.745697e+00_jprb, 0.732418e+00_jprb, 0.718950e+00_jprb &
23812  &, 0.705314e+00_jprb, 0.691510e+00_jprb, 0.677575e+00_jprb, 0.663504e+00_jprb &
23813  &, 0.649325e+00_jprb, 0.635047e+00_jprb, 0.620691e+00_jprb &
23814  &, 0.606282e+00_jprb, 0.591817e+00_jprb, 0.577321e+00_jprb, 0.562806e+00_jprb &
23815  &, 0.548301e+00_jprb, 0.533817e+00_jprb, 0.519354e+00_jprb &
23816  &, 0.504955e+00_jprb, 0.490603e+00_jprb, 0.476341e+00_jprb, 0.462167e+00_jprb &
23817  &, 0.448110e+00_jprb, 0.434145e+00_jprb, 0.420372e+00_jprb &
23818  &, 0.406712e+00_jprb, 0.393211e+00_jprb, 0.379875e+00_jprb, 0.366732e+00_jprb &
23819  &, 0.353787e+00_jprb, 0.341045e+00_jprb, 0.328511e+00_jprb &
23820  &, 0.316205e+00_jprb, 0.304130e+00_jprb, 0.292285e+00_jprb, 0.280711e+00_jprb &
23821  &, 0.269361e+00_jprb, 0.258296e+00_jprb, 0.247465e+00_jprb &
23822  &, 0.236927e+00_jprb, 0.226651e+00_jprb, 0.216647e+00_jprb, 0.206927e+00_jprb &
23823  &, 0.197474e+00_jprb, 0.188298e+00_jprb, 0.179431e+00_jprb &
23824  &, 0.170825e+00_jprb, 0.162512e+00_jprb, 0.154467e+00_jprb, 0.146689e+00_jprb &
23825  &, 0.139208e+00_jprb, 0.131992e+00_jprb, 0.125070e+00_jprb &
23826  &, 0.118374e+00_jprb, 0.111959e+00_jprb, 0.105820e+00_jprb, 0.999144e-01_jprb &
23827  &, 0.942639e-01_jprb, 0.888567e-01_jprb, 0.837139e-01_jprb &
23828  &, 0.787859e-01_jprb, 0.740912e-01_jprb, 0.696118e-01_jprb, 0.653277e-01_jprb &
23829  &, 0.612933e-01_jprb, 0.574102e-01_jprb, 0.537705e-01_jprb &
23830  &, 0.503110e-01_jprb, 0.470044e-01_jprb, 0.439041e-01_jprb, 0.409821e-01_jprb &
23831  &, 0.382081e-01_jprb, 0.355926e-01_jprb, 0.331464e-01_jprb &
23832  &, 0.307911e-01_jprb, 0.286247e-01_jprb, 0.265662e-01_jprb, 0.246700e-01_jprb &
23833  &, 0.228505e-01_jprb, 0.211616e-01_jprb, 0.195622e-01_jprb &
23834  &, 0.181078e-01_jprb, 0.167055e-01_jprb, 0.154103e-01_jprb, 0.142285e-01_jprb &
23835  &, 0.131135e-01_jprb, 0.120692e-01_jprb, 0.110999e-01_jprb &
23836  &, 0.102098e-01_jprb, 0.934733e-02_jprb, 0.857109e-02_jprb, 0.788554e-02_jprb &
23837  &, 0.717861e-02_jprb, 0.656822e-02_jprb, 0.599907e-02_jprb &
23838  &, 0.547339e-02_jprb, 0.499344e-02_jprb, 0.456151e-02_jprb, 0.417994e-02_jprb &
23839  &, 0.378708e-02_jprb, 0.344767e-02_jprb, 0.309842e-02_jprb/)
23840 xcw( 545, :) = (/ &
23841  & 0.100788e+01_jprb, 0.100881e+01_jprb, 0.100931e+01_jprb, 0.100940e+01_jprb &
23842  &, 0.100907e+01_jprb, 0.100831e+01_jprb, 0.100714e+01_jprb &
23843  &, 0.100554e+01_jprb, 0.100352e+01_jprb, 0.100107e+01_jprb, 0.998210e+00_jprb &
23844  &, 0.994925e+00_jprb, 0.991219e+00_jprb, 0.987097e+00_jprb &
23845  &, 0.982559e+00_jprb, 0.977607e+00_jprb, 0.972244e+00_jprb, 0.966471e+00_jprb &
23846  &, 0.960294e+00_jprb, 0.953713e+00_jprb, 0.946739e+00_jprb &
23847  &, 0.939368e+00_jprb, 0.931611e+00_jprb, 0.923472e+00_jprb, 0.914960e+00_jprb &
23848  &, 0.906075e+00_jprb, 0.896832e+00_jprb, 0.887231e+00_jprb &
23849  &, 0.877287e+00_jprb, 0.867003e+00_jprb, 0.856396e+00_jprb, 0.845469e+00_jprb &
23850  &, 0.834232e+00_jprb, 0.822703e+00_jprb, 0.810890e+00_jprb &
23851  &, 0.798796e+00_jprb, 0.786457e+00_jprb, 0.773861e+00_jprb, 0.761035e+00_jprb &
23852  &, 0.747989e+00_jprb, 0.734736e+00_jprb, 0.721295e+00_jprb &
23853  &, 0.707673e+00_jprb, 0.693894e+00_jprb, 0.679972e+00_jprb, 0.665924e+00_jprb &
23854  &, 0.651756e+00_jprb, 0.637488e+00_jprb, 0.623141e+00_jprb &
23855  &, 0.608739e+00_jprb, 0.594280e+00_jprb, 0.579788e+00_jprb, 0.565276e+00_jprb &
23856  &, 0.550772e+00_jprb, 0.536288e+00_jprb, 0.521822e+00_jprb &
23857  &, 0.507404e+00_jprb, 0.493061e+00_jprb, 0.478775e+00_jprb, 0.464591e+00_jprb &
23858  &, 0.450520e+00_jprb, 0.436558e+00_jprb, 0.422732e+00_jprb &
23859  &, 0.409053e+00_jprb, 0.395529e+00_jprb, 0.382169e+00_jprb, 0.369018e+00_jprb &
23860  &, 0.356023e+00_jprb, 0.343249e+00_jprb, 0.330699e+00_jprb &
23861  &, 0.318356e+00_jprb, 0.306240e+00_jprb, 0.294373e+00_jprb, 0.282753e+00_jprb &
23862  &, 0.271376e+00_jprb, 0.260259e+00_jprb, 0.249396e+00_jprb &
23863  &, 0.238800e+00_jprb, 0.228487e+00_jprb, 0.218443e+00_jprb, 0.208681e+00_jprb &
23864  &, 0.199184e+00_jprb, 0.189987e+00_jprb, 0.181043e+00_jprb &
23865  &, 0.172413e+00_jprb, 0.164045e+00_jprb, 0.155941e+00_jprb, 0.148132e+00_jprb &
23866  &, 0.140617e+00_jprb, 0.133336e+00_jprb, 0.126345e+00_jprb &
23867  &, 0.119640e+00_jprb, 0.113184e+00_jprb, 0.107001e+00_jprb, 0.101050e+00_jprb &
23868  &, 0.953512e-01_jprb, 0.899284e-01_jprb, 0.846987e-01_jprb &
23869  &, 0.797518e-01_jprb, 0.750008e-01_jprb, 0.704629e-01_jprb, 0.661931e-01_jprb &
23870  &, 0.620966e-01_jprb, 0.581880e-01_jprb, 0.545216e-01_jprb &
23871  &, 0.509940e-01_jprb, 0.476985e-01_jprb, 0.445679e-01_jprb, 0.415723e-01_jprb &
23872  &, 0.387648e-01_jprb, 0.361146e-01_jprb, 0.336325e-01_jprb &
23873  &, 0.312846e-01_jprb, 0.290803e-01_jprb, 0.270288e-01_jprb, 0.250458e-01_jprb &
23874  &, 0.232320e-01_jprb, 0.215005e-01_jprb, 0.199061e-01_jprb &
23875  &, 0.184070e-01_jprb, 0.170091e-01_jprb, 0.157184e-01_jprb, 0.144889e-01_jprb &
23876  &, 0.133248e-01_jprb, 0.122836e-01_jprb, 0.113174e-01_jprb &
23877  &, 0.103752e-01_jprb, 0.951506e-02_jprb, 0.874117e-02_jprb, 0.800051e-02_jprb &
23878  &, 0.735346e-02_jprb, 0.674547e-02_jprb, 0.611886e-02_jprb &
23879  &, 0.559480e-02_jprb, 0.511648e-02_jprb, 0.468621e-02_jprb, 0.424312e-02_jprb &
23880  &, 0.385110e-02_jprb, 0.351254e-02_jprb, 0.322985e-02_jprb/)
23881 xcw( 546, :) = (/ &
23882  & 0.100813e+01_jprb, 0.100912e+01_jprb, 0.100970e+01_jprb, 0.100985e+01_jprb &
23883  &, 0.100958e+01_jprb, 0.100889e+01_jprb, 0.100777e+01_jprb &
23884  &, 0.100624e+01_jprb, 0.100427e+01_jprb, 0.100190e+01_jprb, 0.999095e+00_jprb &
23885  &, 0.995870e+00_jprb, 0.992229e+00_jprb, 0.988167e+00_jprb &
23886  &, 0.983689e+00_jprb, 0.978797e+00_jprb, 0.973491e+00_jprb, 0.967777e+00_jprb &
23887  &, 0.961657e+00_jprb, 0.955134e+00_jprb, 0.948214e+00_jprb &
23888  &, 0.940900e+00_jprb, 0.933195e+00_jprb, 0.925111e+00_jprb, 0.916648e+00_jprb &
23889  &, 0.907814e+00_jprb, 0.898620e+00_jprb, 0.889066e+00_jprb &
23890  &, 0.879167e+00_jprb, 0.868930e+00_jprb, 0.858367e+00_jprb, 0.847481e+00_jprb &
23891  &, 0.836286e+00_jprb, 0.824795e+00_jprb, 0.813017e+00_jprb &
23892  &, 0.800963e+00_jprb, 0.788650e+00_jprb, 0.776091e+00_jprb, 0.763291e+00_jprb &
23893  &, 0.750281e+00_jprb, 0.737055e+00_jprb, 0.723639e+00_jprb &
23894  &, 0.710043e+00_jprb, 0.696278e+00_jprb, 0.682380e+00_jprb, 0.668345e+00_jprb &
23895  &, 0.654188e+00_jprb, 0.639942e+00_jprb, 0.625604e+00_jprb &
23896  &, 0.611209e+00_jprb, 0.596756e+00_jprb, 0.582269e+00_jprb, 0.567761e+00_jprb &
23897  &, 0.553257e+00_jprb, 0.538758e+00_jprb, 0.524291e+00_jprb &
23898  &, 0.509868e+00_jprb, 0.495503e+00_jprb, 0.481225e+00_jprb, 0.467030e+00_jprb &
23899  &, 0.452931e+00_jprb, 0.438954e+00_jprb, 0.425111e+00_jprb &
23900  &, 0.411412e+00_jprb, 0.397867e+00_jprb, 0.384482e+00_jprb, 0.371284e+00_jprb &
23901  &, 0.358280e+00_jprb, 0.345473e+00_jprb, 0.332888e+00_jprb &
23902  &, 0.320507e+00_jprb, 0.308372e+00_jprb, 0.296462e+00_jprb, 0.284795e+00_jprb &
23903  &, 0.273391e+00_jprb, 0.262222e+00_jprb, 0.251327e+00_jprb &
23904  &, 0.240697e+00_jprb, 0.230322e+00_jprb, 0.220239e+00_jprb, 0.210435e+00_jprb &
23905  &, 0.200894e+00_jprb, 0.191649e+00_jprb, 0.182683e+00_jprb &
23906  &, 0.173972e+00_jprb, 0.165577e+00_jprb, 0.157444e+00_jprb, 0.149575e+00_jprb &
23907  &, 0.141997e+00_jprb, 0.134711e+00_jprb, 0.127682e+00_jprb &
23908  &, 0.120907e+00_jprb, 0.114409e+00_jprb, 0.108182e+00_jprb, 0.102185e+00_jprb &
23909  &, 0.964385e-01_jprb, 0.909655e-01_jprb, 0.857186e-01_jprb &
23910  &, 0.807177e-01_jprb, 0.759105e-01_jprb, 0.713509e-01_jprb, 0.670209e-01_jprb &
23911  &, 0.629000e-01_jprb, 0.589658e-01_jprb, 0.552331e-01_jprb &
23912  &, 0.517172e-01_jprb, 0.483517e-01_jprb, 0.451902e-01_jprb, 0.422045e-01_jprb &
23913  &, 0.393643e-01_jprb, 0.366800e-01_jprb, 0.341626e-01_jprb &
23914  &, 0.317782e-01_jprb, 0.295360e-01_jprb, 0.274452e-01_jprb, 0.254685e-01_jprb &
23915  &, 0.236134e-01_jprb, 0.218877e-01_jprb, 0.202500e-01_jprb &
23916  &, 0.187560e-01_jprb, 0.173126e-01_jprb, 0.159750e-01_jprb, 0.147494e-01_jprb &
23917  &, 0.135890e-01_jprb, 0.124980e-01_jprb, 0.115348e-01_jprb &
23918  &, 0.105958e-01_jprb, 0.973871e-02_jprb, 0.891126e-02_jprb, 0.817297e-02_jprb &
23919  &, 0.752830e-02_jprb, 0.686364e-02_jprb, 0.629853e-02_jprb &
23920  &, 0.571621e-02_jprb, 0.523953e-02_jprb, 0.474856e-02_jprb, 0.436948e-02_jprb &
23921  &, 0.397914e-02_jprb, 0.357740e-02_jprb, 0.329556e-02_jprb/)
23922 
23923 IF (lhook) CALL dr_hook('SU_MCICA:PART78',1,zhook_handle)
23924 END SUBROUTINE part78
23925 
23926 #ifdef VPP5000
23927 !OCL SCALAR
23928 #endif
23929 !option! -Nv -NO
23930 #ifdef RS6K
23931 @process nooptimize
23932 #endif
23933 !pgi$r opt=0
23934 SUBROUTINE part79
23935 
23936 REAL(KIND=JPRB) :: ZHOOK_HANDLE
23937 IF (lhook) CALL dr_hook('SU_MCICA:PART79',0,zhook_handle)
23938 
23939 xcw( 547, :) = (/ &
23940  & 0.100839e+01_jprb, 0.100944e+01_jprb, 0.101008e+01_jprb, 0.101029e+01_jprb &
23941  &, 0.101009e+01_jprb, 0.100946e+01_jprb, 0.100841e+01_jprb &
23942  &, 0.100694e+01_jprb, 0.100504e+01_jprb, 0.100272e+01_jprb, 0.999982e+00_jprb &
23943  &, 0.996820e+00_jprb, 0.993238e+00_jprb, 0.989238e+00_jprb &
23944  &, 0.984820e+00_jprb, 0.979987e+00_jprb, 0.974741e+00_jprb, 0.969085e+00_jprb &
23945  &, 0.963023e+00_jprb, 0.956555e+00_jprb, 0.949689e+00_jprb &
23946  &, 0.942432e+00_jprb, 0.934782e+00_jprb, 0.926749e+00_jprb, 0.918339e+00_jprb &
23947  &, 0.909556e+00_jprb, 0.900408e+00_jprb, 0.890906e+00_jprb &
23948  &, 0.881052e+00_jprb, 0.870861e+00_jprb, 0.860338e+00_jprb, 0.849497e+00_jprb &
23949  &, 0.838344e+00_jprb, 0.826892e+00_jprb, 0.815154e+00_jprb &
23950  &, 0.803140e+00_jprb, 0.790853e+00_jprb, 0.778330e+00_jprb, 0.765567e+00_jprb &
23951  &, 0.752573e+00_jprb, 0.739373e+00_jprb, 0.725983e+00_jprb &
23952  &, 0.712413e+00_jprb, 0.698673e+00_jprb, 0.684789e+00_jprb, 0.670765e+00_jprb &
23953  &, 0.656632e+00_jprb, 0.642396e+00_jprb, 0.628067e+00_jprb &
23954  &, 0.613680e+00_jprb, 0.599233e+00_jprb, 0.584750e+00_jprb, 0.570245e+00_jprb &
23955  &, 0.555743e+00_jprb, 0.541243e+00_jprb, 0.526774e+00_jprb &
23956  &, 0.512347e+00_jprb, 0.497977e+00_jprb, 0.483675e+00_jprb, 0.469470e+00_jprb &
23957  &, 0.455358e+00_jprb, 0.441367e+00_jprb, 0.427489e+00_jprb &
23958  &, 0.413771e+00_jprb, 0.400204e+00_jprb, 0.386814e+00_jprb, 0.373589e+00_jprb &
23959  &, 0.360556e+00_jprb, 0.347717e+00_jprb, 0.335098e+00_jprb &
23960  &, 0.322679e+00_jprb, 0.310504e+00_jprb, 0.298550e+00_jprb, 0.286859e+00_jprb &
23961  &, 0.275407e+00_jprb, 0.264209e+00_jprb, 0.253282e+00_jprb &
23962  &, 0.242594e+00_jprb, 0.232208e+00_jprb, 0.222061e+00_jprb, 0.212215e+00_jprb &
23963  &, 0.202629e+00_jprb, 0.193338e+00_jprb, 0.184322e+00_jprb &
23964  &, 0.175587e+00_jprb, 0.167137e+00_jprb, 0.158948e+00_jprb, 0.151047e+00_jprb &
23965  &, 0.143437e+00_jprb, 0.136085e+00_jprb, 0.128989e+00_jprb &
23966  &, 0.122205e+00_jprb, 0.115634e+00_jprb, 0.109364e+00_jprb, 0.103320e+00_jprb &
23967  &, 0.975598e-01_jprb, 0.920372e-01_jprb, 0.867385e-01_jprb &
23968  &, 0.816836e-01_jprb, 0.768565e-01_jprb, 0.722760e-01_jprb, 0.678863e-01_jprb &
23969  &, 0.637033e-01_jprb, 0.597436e-01_jprb, 0.559842e-01_jprb &
23970  &, 0.524403e-01_jprb, 0.490458e-01_jprb, 0.458540e-01_jprb, 0.427947e-01_jprb &
23971  &, 0.399210e-01_jprb, 0.372455e-01_jprb, 0.346928e-01_jprb &
23972  &, 0.322718e-01_jprb, 0.300372e-01_jprb, 0.279079e-01_jprb, 0.258913e-01_jprb &
23973  &, 0.239949e-01_jprb, 0.222749e-01_jprb, 0.205939e-01_jprb &
23974  &, 0.190551e-01_jprb, 0.176162e-01_jprb, 0.162830e-01_jprb, 0.150098e-01_jprb &
23975  &, 0.138532e-01_jprb, 0.127660e-01_jprb, 0.117523e-01_jprb &
23976  &, 0.108163e-01_jprb, 0.990645e-02_jprb, 0.913804e-02_jprb, 0.834543e-02_jprb &
23977  &, 0.764487e-02_jprb, 0.698181e-02_jprb, 0.641831e-02_jprb &
23978  &, 0.583762e-02_jprb, 0.536258e-02_jprb, 0.487326e-02_jprb, 0.443266e-02_jprb &
23979  &, 0.404316e-02_jprb, 0.370712e-02_jprb, 0.336127e-02_jprb/)
23980 xcw( 548, :) = (/ &
23981  & 0.100864e+01_jprb, 0.100976e+01_jprb, 0.101046e+01_jprb, 0.101074e+01_jprb &
23982  &, 0.101060e+01_jprb, 0.101003e+01_jprb, 0.100905e+01_jprb &
23983  &, 0.100764e+01_jprb, 0.100580e+01_jprb, 0.100355e+01_jprb, 0.100087e+01_jprb &
23984  &, 0.997769e+00_jprb, 0.994249e+00_jprb, 0.990310e+00_jprb &
23985  &, 0.985952e+00_jprb, 0.981178e+00_jprb, 0.975993e+00_jprb, 0.970394e+00_jprb &
23986  &, 0.964390e+00_jprb, 0.957980e+00_jprb, 0.951171e+00_jprb &
23987  &, 0.943967e+00_jprb, 0.936369e+00_jprb, 0.928390e+00_jprb, 0.920005e+00_jprb &
23988  &, 0.911298e+00_jprb, 0.902203e+00_jprb, 0.892749e+00_jprb &
23989  &, 0.882941e+00_jprb, 0.872797e+00_jprb, 0.862318e+00_jprb, 0.851518e+00_jprb &
23990  &, 0.840407e+00_jprb, 0.828994e+00_jprb, 0.817294e+00_jprb &
23991  &, 0.805316e+00_jprb, 0.793066e+00_jprb, 0.780569e+00_jprb, 0.767832e+00_jprb &
23992  &, 0.754876e+00_jprb, 0.741702e+00_jprb, 0.728338e+00_jprb &
23993  &, 0.714794e+00_jprb, 0.701079e+00_jprb, 0.687209e+00_jprb, 0.673210e+00_jprb &
23994  &, 0.659087e+00_jprb, 0.644862e+00_jprb, 0.630542e+00_jprb &
23995  &, 0.616163e+00_jprb, 0.601722e+00_jprb, 0.587245e+00_jprb, 0.572743e+00_jprb &
23996  &, 0.558228e+00_jprb, 0.543729e+00_jprb, 0.529257e+00_jprb &
23997  &, 0.514827e+00_jprb, 0.500451e+00_jprb, 0.486141e+00_jprb, 0.471910e+00_jprb &
23998  &, 0.457785e+00_jprb, 0.443780e+00_jprb, 0.429903e+00_jprb &
23999  &, 0.416148e+00_jprb, 0.402559e+00_jprb, 0.389145e+00_jprb, 0.375895e+00_jprb &
24000  &, 0.362832e+00_jprb, 0.349961e+00_jprb, 0.337307e+00_jprb &
24001  &, 0.324872e+00_jprb, 0.312657e+00_jprb, 0.300682e+00_jprb, 0.288924e+00_jprb &
24002  &, 0.277445e+00_jprb, 0.266218e+00_jprb, 0.255237e+00_jprb &
24003  &, 0.244516e+00_jprb, 0.234068e+00_jprb, 0.223908e+00_jprb, 0.213995e+00_jprb &
24004  &, 0.204391e+00_jprb, 0.195027e+00_jprb, 0.185989e+00_jprb &
24005  &, 0.177202e+00_jprb, 0.168698e+00_jprb, 0.160480e+00_jprb, 0.152519e+00_jprb &
24006  &, 0.144846e+00_jprb, 0.137460e+00_jprb, 0.130326e+00_jprb &
24007  &, 0.123472e+00_jprb, 0.116891e+00_jprb, 0.110578e+00_jprb, 0.104489e+00_jprb &
24008  &, 0.986810e-01_jprb, 0.931089e-01_jprb, 0.877584e-01_jprb &
24009  &, 0.826853e-01_jprb, 0.778025e-01_jprb, 0.731640e-01_jprb, 0.687517e-01_jprb &
24010  &, 0.645449e-01_jprb, 0.605602e-01_jprb, 0.567353e-01_jprb &
24011  &, 0.531233e-01_jprb, 0.497399e-01_jprb, 0.464763e-01_jprb, 0.434270e-01_jprb &
24012  &, 0.405205e-01_jprb, 0.378110e-01_jprb, 0.352230e-01_jprb &
24013  &, 0.327654e-01_jprb, 0.304928e-01_jprb, 0.283243e-01_jprb, 0.263140e-01_jprb &
24014  &, 0.244241e-01_jprb, 0.226137e-01_jprb, 0.209869e-01_jprb &
24015  &, 0.194041e-01_jprb, 0.179197e-01_jprb, 0.165910e-01_jprb, 0.153223e-01_jprb &
24016  &, 0.141174e-01_jprb, 0.129804e-01_jprb, 0.119697e-01_jprb &
24017  &, 0.110369e-01_jprb, 0.101301e-01_jprb, 0.930813e-02_jprb, 0.851788e-02_jprb &
24018  &, 0.781971e-02_jprb, 0.715906e-02_jprb, 0.653809e-02_jprb &
24019  &, 0.601973e-02_jprb, 0.548563e-02_jprb, 0.499795e-02_jprb, 0.455903e-02_jprb &
24020  &, 0.417119e-02_jprb, 0.377198e-02_jprb, 0.342698e-02_jprb/)
24021 xcw( 549, :) = (/ &
24022  & 0.100889e+01_jprb, 0.101008e+01_jprb, 0.101084e+01_jprb, 0.101118e+01_jprb &
24023  &, 0.101111e+01_jprb, 0.101061e+01_jprb, 0.100968e+01_jprb &
24024  &, 0.100834e+01_jprb, 0.100657e+01_jprb, 0.100437e+01_jprb, 0.100176e+01_jprb &
24025  &, 0.998720e+00_jprb, 0.995261e+00_jprb, 0.991383e+00_jprb &
24026  &, 0.987085e+00_jprb, 0.982372e+00_jprb, 0.977244e+00_jprb, 0.971705e+00_jprb &
24027  &, 0.965757e+00_jprb, 0.959404e+00_jprb, 0.952653e+00_jprb &
24028  &, 0.945502e+00_jprb, 0.937960e+00_jprb, 0.930035e+00_jprb, 0.921728e+00_jprb &
24029  &, 0.913048e+00_jprb, 0.903999e+00_jprb, 0.894592e+00_jprb &
24030  &, 0.884833e+00_jprb, 0.874732e+00_jprb, 0.864301e+00_jprb, 0.853543e+00_jprb &
24031  &, 0.842474e+00_jprb, 0.831100e+00_jprb, 0.819435e+00_jprb &
24032  &, 0.807493e+00_jprb, 0.795278e+00_jprb, 0.782818e+00_jprb, 0.770118e+00_jprb &
24033  &, 0.757188e+00_jprb, 0.744041e+00_jprb, 0.730704e+00_jprb &
24034  &, 0.717175e+00_jprb, 0.703475e+00_jprb, 0.689629e+00_jprb, 0.675654e+00_jprb &
24035  &, 0.661544e+00_jprb, 0.647329e+00_jprb, 0.633031e+00_jprb &
24036  &, 0.618647e+00_jprb, 0.604226e+00_jprb, 0.589740e+00_jprb, 0.575241e+00_jprb &
24037  &, 0.560743e+00_jprb, 0.546229e+00_jprb, 0.531756e+00_jprb &
24038  &, 0.517322e+00_jprb, 0.502924e+00_jprb, 0.488607e+00_jprb, 0.474366e+00_jprb &
24039  &, 0.460230e+00_jprb, 0.446210e+00_jprb, 0.432300e+00_jprb &
24040  &, 0.418544e+00_jprb, 0.404934e+00_jprb, 0.391477e+00_jprb, 0.378200e+00_jprb &
24041  &, 0.365108e+00_jprb, 0.352226e+00_jprb, 0.339538e+00_jprb &
24042  &, 0.327066e+00_jprb, 0.314810e+00_jprb, 0.302793e+00_jprb, 0.291033e+00_jprb &
24043  &, 0.279483e+00_jprb, 0.268228e+00_jprb, 0.257192e+00_jprb &
24044  &, 0.246437e+00_jprb, 0.235954e+00_jprb, 0.225755e+00_jprb, 0.215801e+00_jprb &
24045  &, 0.206127e+00_jprb, 0.196743e+00_jprb, 0.187656e+00_jprb &
24046  &, 0.178817e+00_jprb, 0.170259e+00_jprb, 0.162012e+00_jprb, 0.154021e+00_jprb &
24047  &, 0.146286e+00_jprb, 0.138865e+00_jprb, 0.131695e+00_jprb &
24048  &, 0.124770e+00_jprb, 0.118148e+00_jprb, 0.111792e+00_jprb, 0.105658e+00_jprb &
24049  &, 0.998023e-01_jprb, 0.941805e-01_jprb, 0.888135e-01_jprb &
24050  &, 0.836870e-01_jprb, 0.787849e-01_jprb, 0.740891e-01_jprb, 0.696170e-01_jprb &
24051  &, 0.653865e-01_jprb, 0.613380e-01_jprb, 0.575258e-01_jprb &
24052  &, 0.538867e-01_jprb, 0.504340e-01_jprb, 0.471401e-01_jprb, 0.440592e-01_jprb &
24053  &, 0.411200e-01_jprb, 0.383765e-01_jprb, 0.357532e-01_jprb &
24054  &, 0.333038e-01_jprb, 0.309940e-01_jprb, 0.287869e-01_jprb, 0.267367e-01_jprb &
24055  &, 0.248055e-01_jprb, 0.230009e-01_jprb, 0.213307e-01_jprb &
24056  &, 0.197531e-01_jprb, 0.182739e-01_jprb, 0.168477e-01_jprb, 0.155827e-01_jprb &
24057  &, 0.143815e-01_jprb, 0.132483e-01_jprb, 0.121872e-01_jprb &
24058  &, 0.112023e-01_jprb, 0.102978e-01_jprb, 0.947822e-02_jprb, 0.869034e-02_jprb &
24059  &, 0.799455e-02_jprb, 0.733630e-02_jprb, 0.671776e-02_jprb &
24060  &, 0.614114e-02_jprb, 0.560868e-02_jprb, 0.512265e-02_jprb, 0.468539e-02_jprb &
24061  &, 0.423521e-02_jprb, 0.383684e-02_jprb, 0.349269e-02_jprb/)
24062 xcw( 550, :) = (/ &
24063  & 0.100915e+01_jprb, 0.101040e+01_jprb, 0.101122e+01_jprb, 0.101163e+01_jprb &
24064  &, 0.101162e+01_jprb, 0.101118e+01_jprb, 0.101032e+01_jprb &
24065  &, 0.100904e+01_jprb, 0.100733e+01_jprb, 0.100520e+01_jprb, 0.100265e+01_jprb &
24066  &, 0.999672e+00_jprb, 0.996275e+00_jprb, 0.992456e+00_jprb &
24067  &, 0.988220e+00_jprb, 0.983567e+00_jprb, 0.978498e+00_jprb, 0.973017e+00_jprb &
24068  &, 0.967128e+00_jprb, 0.960832e+00_jprb, 0.954135e+00_jprb &
24069  &, 0.947040e+00_jprb, 0.939554e+00_jprb, 0.931680e+00_jprb, 0.923426e+00_jprb &
24070  &, 0.914794e+00_jprb, 0.905798e+00_jprb, 0.896439e+00_jprb &
24071  &, 0.886729e+00_jprb, 0.876675e+00_jprb, 0.866285e+00_jprb, 0.855572e+00_jprb &
24072  &, 0.844541e+00_jprb, 0.833210e+00_jprb, 0.821585e+00_jprb &
24073  &, 0.809678e+00_jprb, 0.797500e+00_jprb, 0.785077e+00_jprb, 0.772404e+00_jprb &
24074  &, 0.759501e+00_jprb, 0.746381e+00_jprb, 0.733070e+00_jprb &
24075  &, 0.719567e+00_jprb, 0.705892e+00_jprb, 0.692061e+00_jprb, 0.678098e+00_jprb &
24076  &, 0.664012e+00_jprb, 0.649808e+00_jprb, 0.635519e+00_jprb &
24077  &, 0.621156e+00_jprb, 0.606729e+00_jprb, 0.592262e+00_jprb, 0.577754e+00_jprb &
24078  &, 0.563258e+00_jprb, 0.548744e+00_jprb, 0.534269e+00_jprb &
24079  &, 0.519817e+00_jprb, 0.505414e+00_jprb, 0.491089e+00_jprb, 0.476839e+00_jprb &
24080  &, 0.462691e+00_jprb, 0.448640e+00_jprb, 0.434731e+00_jprb &
24081  &, 0.420939e+00_jprb, 0.407308e+00_jprb, 0.393828e+00_jprb, 0.380524e+00_jprb &
24082  &, 0.367404e+00_jprb, 0.354490e+00_jprb, 0.341768e+00_jprb &
24083  &, 0.329259e+00_jprb, 0.316985e+00_jprb, 0.304925e+00_jprb, 0.293120e+00_jprb &
24084  &, 0.281567e+00_jprb, 0.270237e+00_jprb, 0.259195e+00_jprb &
24085  &, 0.248383e+00_jprb, 0.237864e+00_jprb, 0.227601e+00_jprb, 0.217607e+00_jprb &
24086  &, 0.207916e+00_jprb, 0.198486e+00_jprb, 0.189323e+00_jprb &
24087  &, 0.180460e+00_jprb, 0.171848e+00_jprb, 0.163544e+00_jprb, 0.155494e+00_jprb &
24088  &, 0.147756e+00_jprb, 0.140270e+00_jprb, 0.133032e+00_jprb &
24089  &, 0.126100e+00_jprb, 0.119405e+00_jprb, 0.113005e+00_jprb, 0.106826e+00_jprb &
24090  &, 0.100924e+00_jprb, 0.952868e-01_jprb, 0.898686e-01_jprb &
24091  &, 0.846887e-01_jprb, 0.797309e-01_jprb, 0.750142e-01_jprb, 0.705201e-01_jprb &
24092  &, 0.662281e-01_jprb, 0.621547e-01_jprb, 0.582769e-01_jprb &
24093  &, 0.546099e-01_jprb, 0.511281e-01_jprb, 0.478040e-01_jprb, 0.446915e-01_jprb &
24094  &, 0.417195e-01_jprb, 0.389420e-01_jprb, 0.362834e-01_jprb &
24095  &, 0.337974e-01_jprb, 0.314497e-01_jprb, 0.292496e-01_jprb, 0.272065e-01_jprb &
24096  &, 0.252347e-01_jprb, 0.233881e-01_jprb, 0.216746e-01_jprb &
24097  &, 0.201021e-01_jprb, 0.185774e-01_jprb, 0.171557e-01_jprb, 0.158431e-01_jprb &
24098  &, 0.146457e-01_jprb, 0.135163e-01_jprb, 0.124590e-01_jprb &
24099  &, 0.114228e-01_jprb, 0.105215e-01_jprb, 0.964831e-02_jprb, 0.886280e-02_jprb &
24100  &, 0.816940e-02_jprb, 0.745447e-02_jprb, 0.683754e-02_jprb &
24101  &, 0.626255e-02_jprb, 0.573172e-02_jprb, 0.524735e-02_jprb, 0.474857e-02_jprb &
24102  &, 0.436325e-02_jprb, 0.396657e-02_jprb, 0.362411e-02_jprb/)
24103 xcw( 551, :) = (/ &
24104  & 0.100940e+01_jprb, 0.101072e+01_jprb, 0.101161e+01_jprb, 0.101208e+01_jprb &
24105  &, 0.101213e+01_jprb, 0.101175e+01_jprb, 0.101096e+01_jprb &
24106  &, 0.100974e+01_jprb, 0.100809e+01_jprb, 0.100603e+01_jprb, 0.100354e+01_jprb &
24107  &, 0.100062e+01_jprb, 0.997288e+00_jprb, 0.993532e+00_jprb &
24108  &, 0.989355e+00_jprb, 0.984762e+00_jprb, 0.979754e+00_jprb, 0.974331e+00_jprb &
24109  &, 0.968500e+00_jprb, 0.962262e+00_jprb, 0.955620e+00_jprb &
24110  &, 0.948582e+00_jprb, 0.941151e+00_jprb, 0.933328e+00_jprb, 0.925127e+00_jprb &
24111  &, 0.916547e+00_jprb, 0.907601e+00_jprb, 0.898290e+00_jprb &
24112  &, 0.888626e+00_jprb, 0.878619e+00_jprb, 0.868272e+00_jprb, 0.857605e+00_jprb &
24113  &, 0.846617e+00_jprb, 0.835325e+00_jprb, 0.823731e+00_jprb &
24114  &, 0.811864e+00_jprb, 0.799722e+00_jprb, 0.787326e+00_jprb, 0.774690e+00_jprb &
24115  &, 0.761814e+00_jprb, 0.748731e+00_jprb, 0.735436e+00_jprb &
24116  &, 0.721959e+00_jprb, 0.708310e+00_jprb, 0.694504e+00_jprb, 0.680555e+00_jprb &
24117  &, 0.666480e+00_jprb, 0.652299e+00_jprb, 0.638020e+00_jprb &
24118  &, 0.623653e+00_jprb, 0.609232e+00_jprb, 0.594771e+00_jprb, 0.580280e+00_jprb &
24119  &, 0.565772e+00_jprb, 0.551274e+00_jprb, 0.536783e+00_jprb &
24120  &, 0.522328e+00_jprb, 0.507920e+00_jprb, 0.493588e+00_jprb, 0.479329e+00_jprb &
24121  &, 0.465153e+00_jprb, 0.451088e+00_jprb, 0.437163e+00_jprb &
24122  &, 0.423353e+00_jprb, 0.409701e+00_jprb, 0.396198e+00_jprb, 0.382868e+00_jprb &
24123  &, 0.369719e+00_jprb, 0.356775e+00_jprb, 0.344019e+00_jprb &
24124  &, 0.331494e+00_jprb, 0.319160e+00_jprb, 0.307079e+00_jprb, 0.295229e+00_jprb &
24125  &, 0.283628e+00_jprb, 0.272270e+00_jprb, 0.261174e+00_jprb &
24126  &, 0.250353e+00_jprb, 0.239774e+00_jprb, 0.229474e+00_jprb, 0.219438e+00_jprb &
24127  &, 0.209678e+00_jprb, 0.200201e+00_jprb, 0.191017e+00_jprb &
24128  &, 0.182103e+00_jprb, 0.173465e+00_jprb, 0.165105e+00_jprb, 0.157025e+00_jprb &
24129  &, 0.149195e+00_jprb, 0.141675e+00_jprb, 0.134432e+00_jprb &
24130  &, 0.127430e+00_jprb, 0.120695e+00_jprb, 0.114252e+00_jprb, 0.108028e+00_jprb &
24131  &, 0.102079e+00_jprb, 0.963931e-01_jprb, 0.909237e-01_jprb &
24132  &, 0.856904e-01_jprb, 0.807134e-01_jprb, 0.759392e-01_jprb, 0.714231e-01_jprb &
24133  &, 0.671080e-01_jprb, 0.629714e-01_jprb, 0.590675e-01_jprb &
24134  &, 0.553732e-01_jprb, 0.518222e-01_jprb, 0.485092e-01_jprb, 0.453238e-01_jprb &
24135  &, 0.423619e-01_jprb, 0.395075e-01_jprb, 0.368577e-01_jprb &
24136  &, 0.343358e-01_jprb, 0.319509e-01_jprb, 0.297122e-01_jprb, 0.276292e-01_jprb &
24137  &, 0.256638e-01_jprb, 0.238238e-01_jprb, 0.220676e-01_jprb &
24138  &, 0.204511e-01_jprb, 0.189316e-01_jprb, 0.174637e-01_jprb, 0.161556e-01_jprb &
24139  &, 0.149099e-01_jprb, 0.137307e-01_jprb, 0.126764e-01_jprb &
24140  &, 0.116433e-01_jprb, 0.107451e-01_jprb, 0.987509e-02_jprb, 0.903525e-02_jprb &
24141  &, 0.828596e-02_jprb, 0.763172e-02_jprb, 0.695733e-02_jprb &
24142  &, 0.638396e-02_jprb, 0.585477e-02_jprb, 0.530970e-02_jprb, 0.487493e-02_jprb &
24143  &, 0.442727e-02_jprb, 0.403143e-02_jprb, 0.368982e-02_jprb/)
24144 xcw( 552, :) = (/ &
24145  & 0.100966e+01_jprb, 0.101104e+01_jprb, 0.101199e+01_jprb, 0.101252e+01_jprb &
24146  &, 0.101264e+01_jprb, 0.101233e+01_jprb, 0.101160e+01_jprb &
24147  &, 0.101044e+01_jprb, 0.100886e+01_jprb, 0.100686e+01_jprb, 0.100443e+01_jprb &
24148  &, 0.100158e+01_jprb, 0.998303e+00_jprb, 0.994607e+00_jprb &
24149  &, 0.990492e+00_jprb, 0.985960e+00_jprb, 0.981010e+00_jprb, 0.975648e+00_jprb &
24150  &, 0.969874e+00_jprb, 0.963693e+00_jprb, 0.957108e+00_jprb &
24151  &, 0.950124e+00_jprb, 0.942749e+00_jprb, 0.934981e+00_jprb, 0.926829e+00_jprb &
24152  &, 0.918304e+00_jprb, 0.909404e+00_jprb, 0.900144e+00_jprb &
24153  &, 0.890530e+00_jprb, 0.880566e+00_jprb, 0.870268e+00_jprb, 0.859638e+00_jprb &
24154  &, 0.848697e+00_jprb, 0.837444e+00_jprb, 0.825895e+00_jprb &
24155  &, 0.814059e+00_jprb, 0.801954e+00_jprb, 0.789594e+00_jprb, 0.776986e+00_jprb &
24156  &, 0.764147e+00_jprb, 0.751081e+00_jprb, 0.737824e+00_jprb &
24157  &, 0.724362e+00_jprb, 0.710740e+00_jprb, 0.696947e+00_jprb, 0.683023e+00_jprb &
24158  &, 0.668960e+00_jprb, 0.654791e+00_jprb, 0.640522e+00_jprb &
24159  &, 0.626176e+00_jprb, 0.611763e+00_jprb, 0.597307e+00_jprb, 0.582806e+00_jprb &
24160  &, 0.568301e+00_jprb, 0.553804e+00_jprb, 0.539312e+00_jprb &
24161  &, 0.524854e+00_jprb, 0.510441e+00_jprb, 0.496086e+00_jprb, 0.481818e+00_jprb &
24162  &, 0.467631e+00_jprb, 0.453553e+00_jprb, 0.439595e+00_jprb &
24163  &, 0.425766e+00_jprb, 0.412094e+00_jprb, 0.398567e+00_jprb, 0.385212e+00_jprb &
24164  &, 0.372055e+00_jprb, 0.359059e+00_jprb, 0.346290e+00_jprb &
24165  &, 0.333708e+00_jprb, 0.321356e+00_jprb, 0.309255e+00_jprb, 0.297361e+00_jprb &
24166  &, 0.285712e+00_jprb, 0.274327e+00_jprb, 0.263176e+00_jprb &
24167  &, 0.252299e+00_jprb, 0.241709e+00_jprb, 0.231346e+00_jprb, 0.221270e+00_jprb &
24168  &, 0.211493e+00_jprb, 0.201971e+00_jprb, 0.192711e+00_jprb &
24169  &, 0.183746e+00_jprb, 0.175082e+00_jprb, 0.166666e+00_jprb, 0.158527e+00_jprb &
24170  &, 0.150695e+00_jprb, 0.143110e+00_jprb, 0.135800e+00_jprb &
24171  &, 0.128760e+00_jprb, 0.121984e+00_jprb, 0.115499e+00_jprb, 0.109230e+00_jprb &
24172  &, 0.103234e+00_jprb, 0.974993e-01_jprb, 0.919788e-01_jprb &
24173  &, 0.867279e-01_jprb, 0.816958e-01_jprb, 0.769013e-01_jprb, 0.723261e-01_jprb &
24174  &, 0.679495e-01_jprb, 0.638269e-01_jprb, 0.598581e-01_jprb &
24175  &, 0.561366e-01_jprb, 0.525571e-01_jprb, 0.491730e-01_jprb, 0.459983e-01_jprb &
24176  &, 0.429614e-01_jprb, 0.401165e-01_jprb, 0.374321e-01_jprb &
24177  &, 0.348743e-01_jprb, 0.324521e-01_jprb, 0.302211e-01_jprb, 0.280989e-01_jprb &
24178  &, 0.260930e-01_jprb, 0.242110e-01_jprb, 0.224606e-01_jprb &
24179  &, 0.208001e-01_jprb, 0.192351e-01_jprb, 0.178231e-01_jprb, 0.164681e-01_jprb &
24180  &, 0.151741e-01_jprb, 0.139987e-01_jprb, 0.128939e-01_jprb &
24181  &, 0.119190e-01_jprb, 0.109688e-01_jprb, 0.100452e-01_jprb, 0.926520e-02_jprb &
24182  &, 0.846081e-02_jprb, 0.780897e-02_jprb, 0.713700e-02_jprb &
24183  &, 0.650536e-02_jprb, 0.597782e-02_jprb, 0.543440e-02_jprb, 0.500129e-02_jprb &
24184  &, 0.455530e-02_jprb, 0.416115e-02_jprb, 0.375553e-02_jprb/)
24185 xcw( 553, :) = (/ &
24186  & 0.100991e+01_jprb, 0.101135e+01_jprb, 0.101237e+01_jprb, 0.101297e+01_jprb &
24187  &, 0.101315e+01_jprb, 0.101290e+01_jprb, 0.101223e+01_jprb &
24188  &, 0.101114e+01_jprb, 0.100963e+01_jprb, 0.100769e+01_jprb, 0.100532e+01_jprb &
24189  &, 0.100253e+01_jprb, 0.999318e+00_jprb, 0.995685e+00_jprb &
24190  &, 0.991632e+00_jprb, 0.987158e+00_jprb, 0.982245e+00_jprb, 0.976965e+00_jprb &
24191  &, 0.971249e+00_jprb, 0.965124e+00_jprb, 0.958596e+00_jprb &
24192  &, 0.951669e+00_jprb, 0.944346e+00_jprb, 0.936632e+00_jprb, 0.928538e+00_jprb &
24193  &, 0.920061e+00_jprb, 0.911215e+00_jprb, 0.902003e+00_jprb &
24194  &, 0.892434e+00_jprb, 0.882518e+00_jprb, 0.872264e+00_jprb, 0.861680e+00_jprb &
24195  &, 0.850777e+00_jprb, 0.839568e+00_jprb, 0.828058e+00_jprb &
24196  &, 0.816264e+00_jprb, 0.804195e+00_jprb, 0.791863e+00_jprb, 0.779281e+00_jprb &
24197  &, 0.766470e+00_jprb, 0.753441e+00_jprb, 0.740200e+00_jprb &
24198  &, 0.726776e+00_jprb, 0.713169e+00_jprb, 0.699402e+00_jprb, 0.685491e+00_jprb &
24199  &, 0.671441e+00_jprb, 0.657282e+00_jprb, 0.643036e+00_jprb &
24200  &, 0.628698e+00_jprb, 0.614293e+00_jprb, 0.599816e+00_jprb, 0.585347e+00_jprb &
24201  &, 0.570844e+00_jprb, 0.556333e+00_jprb, 0.541841e+00_jprb &
24202  &, 0.527380e+00_jprb, 0.512962e+00_jprb, 0.498601e+00_jprb, 0.484308e+00_jprb &
24203  &, 0.470110e+00_jprb, 0.456018e+00_jprb, 0.442045e+00_jprb &
24204  &, 0.428198e+00_jprb, 0.414505e+00_jprb, 0.400956e+00_jprb, 0.387576e+00_jprb &
24205  &, 0.374370e+00_jprb, 0.361364e+00_jprb, 0.348562e+00_jprb &
24206  &, 0.335965e+00_jprb, 0.323574e+00_jprb, 0.311410e+00_jprb, 0.299492e+00_jprb &
24207  &, 0.287818e+00_jprb, 0.276383e+00_jprb, 0.265203e+00_jprb &
24208  &, 0.254293e+00_jprb, 0.243644e+00_jprb, 0.233243e+00_jprb, 0.223127e+00_jprb &
24209  &, 0.213281e+00_jprb, 0.203740e+00_jprb, 0.194433e+00_jprb &
24210  &, 0.185417e+00_jprb, 0.176700e+00_jprb, 0.168256e+00_jprb, 0.160058e+00_jprb &
24211  &, 0.152165e+00_jprb, 0.144546e+00_jprb, 0.137200e+00_jprb &
24212  &, 0.130121e+00_jprb, 0.123306e+00_jprb, 0.116746e+00_jprb, 0.110466e+00_jprb &
24213  &, 0.104423e+00_jprb, 0.986056e-01_jprb, 0.930691e-01_jprb &
24214  &, 0.877653e-01_jprb, 0.827146e-01_jprb, 0.778634e-01_jprb, 0.732291e-01_jprb &
24215  &, 0.688294e-01_jprb, 0.646436e-01_jprb, 0.606882e-01_jprb &
24216  &, 0.568999e-01_jprb, 0.532921e-01_jprb, 0.498783e-01_jprb, 0.466727e-01_jprb &
24217  &, 0.436038e-01_jprb, 0.407255e-01_jprb, 0.379623e-01_jprb &
24218  &, 0.354127e-01_jprb, 0.329533e-01_jprb, 0.306838e-01_jprb, 0.285217e-01_jprb &
24219  &, 0.265221e-01_jprb, 0.245982e-01_jprb, 0.228045e-01_jprb &
24220  &, 0.211491e-01_jprb, 0.195893e-01_jprb, 0.181311e-01_jprb, 0.167285e-01_jprb &
24221  &, 0.154911e-01_jprb, 0.142667e-01_jprb, 0.131657e-01_jprb &
24222  &, 0.121395e-01_jprb, 0.111365e-01_jprb, 0.102720e-01_jprb, 0.943765e-02_jprb &
24223  &, 0.863565e-02_jprb, 0.792713e-02_jprb, 0.725678e-02_jprb &
24224  &, 0.668748e-02_jprb, 0.610087e-02_jprb, 0.555910e-02_jprb, 0.506447e-02_jprb &
24225  &, 0.461932e-02_jprb, 0.422601e-02_jprb, 0.388696e-02_jprb/)
24226 
24227 IF (lhook) CALL dr_hook('SU_MCICA:PART79',1,zhook_handle)
24228 END SUBROUTINE part79
24229 
24230 #ifdef VPP5000
24231 !OCL SCALAR
24232 #endif
24233 !option! -Nv -NO
24234 #ifdef RS6K
24235 @process nooptimize
24236 #endif
24237 !pgi$r opt=0
24238 SUBROUTINE part80
24239 
24240 REAL(KIND=JPRB) :: ZHOOK_HANDLE
24241 IF (lhook) CALL dr_hook('SU_MCICA:PART80',0,zhook_handle)
24242 
24243 xcw( 554, :) = (/ &
24244  & 0.101017e+01_jprb, 0.101167e+01_jprb, 0.101275e+01_jprb, 0.101342e+01_jprb &
24245  &, 0.101366e+01_jprb, 0.101348e+01_jprb, 0.101287e+01_jprb &
24246  &, 0.101185e+01_jprb, 0.101039e+01_jprb, 0.100851e+01_jprb, 0.100621e+01_jprb &
24247  &, 0.100349e+01_jprb, 0.100034e+01_jprb, 0.996763e+00_jprb &
24248  &, 0.992771e+00_jprb, 0.988358e+00_jprb, 0.983528e+00_jprb, 0.978283e+00_jprb &
24249  &, 0.972627e+00_jprb, 0.966561e+00_jprb, 0.960088e+00_jprb &
24250  &, 0.953217e+00_jprb, 0.945950e+00_jprb, 0.938291e+00_jprb, 0.930246e+00_jprb &
24251  &, 0.921821e+00_jprb, 0.913025e+00_jprb, 0.903861e+00_jprb &
24252  &, 0.894342e+00_jprb, 0.884473e+00_jprb, 0.874264e+00_jprb, 0.863726e+00_jprb &
24253  &, 0.852866e+00_jprb, 0.841691e+00_jprb, 0.830222e+00_jprb &
24254  &, 0.818468e+00_jprb, 0.806427e+00_jprb, 0.794131e+00_jprb, 0.781587e+00_jprb &
24255  &, 0.768814e+00_jprb, 0.755802e+00_jprb, 0.742599e+00_jprb &
24256  &, 0.729191e+00_jprb, 0.715609e+00_jprb, 0.701857e+00_jprb, 0.687971e+00_jprb &
24257  &, 0.673934e+00_jprb, 0.659799e+00_jprb, 0.645550e+00_jprb &
24258  &, 0.631221e+00_jprb, 0.616823e+00_jprb, 0.602379e+00_jprb, 0.587902e+00_jprb &
24259  &, 0.573388e+00_jprb, 0.558878e+00_jprb, 0.544385e+00_jprb &
24260  &, 0.529921e+00_jprb, 0.515484e+00_jprb, 0.501116e+00_jprb, 0.486830e+00_jprb &
24261  &, 0.472622e+00_jprb, 0.458501e+00_jprb, 0.444512e+00_jprb &
24262  &, 0.430648e+00_jprb, 0.416935e+00_jprb, 0.403363e+00_jprb, 0.389958e+00_jprb &
24263  &, 0.376725e+00_jprb, 0.363689e+00_jprb, 0.350854e+00_jprb &
24264  &, 0.338221e+00_jprb, 0.325792e+00_jprb, 0.313608e+00_jprb, 0.301646e+00_jprb &
24265  &, 0.289925e+00_jprb, 0.278463e+00_jprb, 0.267229e+00_jprb &
24266  &, 0.256287e+00_jprb, 0.245579e+00_jprb, 0.235166e+00_jprb, 0.225010e+00_jprb &
24267  &, 0.215122e+00_jprb, 0.205510e+00_jprb, 0.196182e+00_jprb &
24268  &, 0.187116e+00_jprb, 0.178346e+00_jprb, 0.169846e+00_jprb, 0.161619e+00_jprb &
24269  &, 0.153664e+00_jprb, 0.146012e+00_jprb, 0.138599e+00_jprb &
24270  &, 0.131483e+00_jprb, 0.124627e+00_jprb, 0.118025e+00_jprb, 0.111668e+00_jprb &
24271  &, 0.105578e+00_jprb, 0.997464e-01_jprb, 0.941593e-01_jprb &
24272  &, 0.888386e-01_jprb, 0.836970e-01_jprb, 0.788254e-01_jprb, 0.741697e-01_jprb &
24273  &, 0.697475e-01_jprb, 0.654991e-01_jprb, 0.614788e-01_jprb &
24274  &, 0.576633e-01_jprb, 0.540270e-01_jprb, 0.505836e-01_jprb, 0.473050e-01_jprb &
24275  &, 0.442461e-01_jprb, 0.413345e-01_jprb, 0.385366e-01_jprb &
24276  &, 0.359512e-01_jprb, 0.335001e-01_jprb, 0.311927e-01_jprb, 0.289914e-01_jprb &
24277  &, 0.269513e-01_jprb, 0.250338e-01_jprb, 0.231975e-01_jprb &
24278  &, 0.214981e-01_jprb, 0.199434e-01_jprb, 0.184391e-01_jprb, 0.170410e-01_jprb &
24279  &, 0.157553e-01_jprb, 0.145346e-01_jprb, 0.134375e-01_jprb &
24280  &, 0.123601e-01_jprb, 0.113602e-01_jprb, 0.104987e-01_jprb, 0.961011e-02_jprb &
24281  &, 0.881049e-02_jprb, 0.810438e-02_jprb, 0.743645e-02_jprb &
24282  &, 0.680889e-02_jprb, 0.622391e-02_jprb, 0.568380e-02_jprb, 0.519083e-02_jprb &
24283  &, 0.474736e-02_jprb, 0.435574e-02_jprb, 0.395267e-02_jprb/)
24284 xcw( 555, :) = (/ &
24285  & 0.101042e+01_jprb, 0.101199e+01_jprb, 0.101314e+01_jprb, 0.101387e+01_jprb &
24286  &, 0.101417e+01_jprb, 0.101405e+01_jprb, 0.101351e+01_jprb &
24287  &, 0.101255e+01_jprb, 0.101116e+01_jprb, 0.100934e+01_jprb, 0.100711e+01_jprb &
24288  &, 0.100444e+01_jprb, 0.100135e+01_jprb, 0.997843e+00_jprb &
24289  &, 0.993911e+00_jprb, 0.989554e+00_jprb, 0.984789e+00_jprb, 0.979602e+00_jprb &
24290  &, 0.974005e+00_jprb, 0.967998e+00_jprb, 0.961583e+00_jprb &
24291  &, 0.954769e+00_jprb, 0.947554e+00_jprb, 0.939950e+00_jprb, 0.931959e+00_jprb &
24292  &, 0.923585e+00_jprb, 0.914840e+00_jprb, 0.905728e+00_jprb &
24293  &, 0.896254e+00_jprb, 0.886432e+00_jprb, 0.876268e+00_jprb, 0.865772e+00_jprb &
24294  &, 0.854954e+00_jprb, 0.843824e+00_jprb, 0.832395e+00_jprb &
24295  &, 0.820673e+00_jprb, 0.808677e+00_jprb, 0.796419e+00_jprb, 0.783903e+00_jprb &
24296  &, 0.771147e+00_jprb, 0.758173e+00_jprb, 0.744997e+00_jprb &
24297  &, 0.731616e+00_jprb, 0.718050e+00_jprb, 0.704324e+00_jprb, 0.690452e+00_jprb &
24298  &, 0.676438e+00_jprb, 0.662315e+00_jprb, 0.648077e+00_jprb &
24299  &, 0.633757e+00_jprb, 0.619380e+00_jprb, 0.604929e+00_jprb, 0.590456e+00_jprb &
24300  &, 0.575946e+00_jprb, 0.561437e+00_jprb, 0.546944e+00_jprb &
24301  &, 0.532463e+00_jprb, 0.518037e+00_jprb, 0.503647e+00_jprb, 0.489353e+00_jprb &
24302  &, 0.475117e+00_jprb, 0.461001e+00_jprb, 0.446997e+00_jprb &
24303  &, 0.433097e+00_jprb, 0.419365e+00_jprb, 0.405771e+00_jprb, 0.392341e+00_jprb &
24304  &, 0.379081e+00_jprb, 0.366014e+00_jprb, 0.353146e+00_jprb &
24305  &, 0.340478e+00_jprb, 0.328031e+00_jprb, 0.315806e+00_jprb, 0.303800e+00_jprb &
24306  &, 0.292055e+00_jprb, 0.280543e+00_jprb, 0.269280e+00_jprb &
24307  &, 0.258282e+00_jprb, 0.247539e+00_jprb, 0.237089e+00_jprb, 0.226868e+00_jprb &
24308  &, 0.216937e+00_jprb, 0.207279e+00_jprb, 0.197903e+00_jprb &
24309  &, 0.188815e+00_jprb, 0.179991e+00_jprb, 0.171436e+00_jprb, 0.163180e+00_jprb &
24310  &, 0.155194e+00_jprb, 0.147478e+00_jprb, 0.140030e+00_jprb &
24311  &, 0.132844e+00_jprb, 0.125949e+00_jprb, 0.119305e+00_jprb, 0.112903e+00_jprb &
24312  &, 0.106802e+00_jprb, 0.100922e+00_jprb, 0.952847e-01_jprb &
24313  &, 0.898760e-01_jprb, 0.847158e-01_jprb, 0.798245e-01_jprb, 0.751103e-01_jprb &
24314  &, 0.706273e-01_jprb, 0.663547e-01_jprb, 0.623090e-01_jprb &
24315  &, 0.584266e-01_jprb, 0.547619e-01_jprb, 0.512889e-01_jprb, 0.480216e-01_jprb &
24316  &, 0.448885e-01_jprb, 0.419435e-01_jprb, 0.391552e-01_jprb &
24317  &, 0.364896e-01_jprb, 0.340013e-01_jprb, 0.316553e-01_jprb, 0.294611e-01_jprb &
24318  &, 0.273804e-01_jprb, 0.254210e-01_jprb, 0.235905e-01_jprb &
24319  &, 0.218969e-01_jprb, 0.202976e-01_jprb, 0.187471e-01_jprb, 0.173535e-01_jprb &
24320  &, 0.160195e-01_jprb, 0.148026e-01_jprb, 0.136550e-01_jprb &
24321  &, 0.125806e-01_jprb, 0.115838e-01_jprb, 0.106688e-01_jprb, 0.984005e-02_jprb &
24322  &, 0.904362e-02_jprb, 0.828163e-02_jprb, 0.761612e-02_jprb &
24323  &, 0.693029e-02_jprb, 0.634696e-02_jprb, 0.580850e-02_jprb, 0.531720e-02_jprb &
24324  &, 0.487540e-02_jprb, 0.442060e-02_jprb, 0.401838e-02_jprb/)
24325 xcw( 556, :) = (/ &
24326  & 0.101068e+01_jprb, 0.101231e+01_jprb, 0.101352e+01_jprb, 0.101431e+01_jprb &
24327  &, 0.101468e+01_jprb, 0.101463e+01_jprb, 0.101415e+01_jprb &
24328  &, 0.101325e+01_jprb, 0.101193e+01_jprb, 0.101018e+01_jprb, 0.100800e+01_jprb &
24329  &, 0.100540e+01_jprb, 0.100237e+01_jprb, 0.998924e+00_jprb &
24330  &, 0.995054e+00_jprb, 0.990763e+00_jprb, 0.986053e+00_jprb, 0.980926e+00_jprb &
24331  &, 0.975387e+00_jprb, 0.969435e+00_jprb, 0.963078e+00_jprb &
24332  &, 0.956321e+00_jprb, 0.949162e+00_jprb, 0.941609e+00_jprb, 0.933671e+00_jprb &
24333  &, 0.925349e+00_jprb, 0.916657e+00_jprb, 0.907594e+00_jprb &
24334  &, 0.898170e+00_jprb, 0.888396e+00_jprb, 0.878276e+00_jprb, 0.867826e+00_jprb &
24335  &, 0.857051e+00_jprb, 0.845961e+00_jprb, 0.834572e+00_jprb &
24336  &, 0.822886e+00_jprb, 0.810928e+00_jprb, 0.798698e+00_jprb, 0.786219e+00_jprb &
24337  &, 0.773501e+00_jprb, 0.760555e+00_jprb, 0.747395e+00_jprb &
24338  &, 0.734041e+00_jprb, 0.720502e+00_jprb, 0.706802e+00_jprb, 0.692944e+00_jprb &
24339  &, 0.678943e+00_jprb, 0.664832e+00_jprb, 0.650617e+00_jprb &
24340  &, 0.636306e+00_jprb, 0.621924e+00_jprb, 0.607493e+00_jprb, 0.593011e+00_jprb &
24341  &, 0.578518e+00_jprb, 0.564011e+00_jprb, 0.549503e+00_jprb &
24342  &, 0.535020e+00_jprb, 0.520590e+00_jprb, 0.506194e+00_jprb, 0.491876e+00_jprb &
24343  &, 0.477647e+00_jprb, 0.463500e+00_jprb, 0.449482e+00_jprb &
24344  &, 0.435565e+00_jprb, 0.421795e+00_jprb, 0.408179e+00_jprb, 0.394724e+00_jprb &
24345  &, 0.381456e+00_jprb, 0.368360e+00_jprb, 0.355459e+00_jprb &
24346  &, 0.342755e+00_jprb, 0.330270e+00_jprb, 0.318004e+00_jprb, 0.305977e+00_jprb &
24347  &, 0.294185e+00_jprb, 0.282646e+00_jprb, 0.271354e+00_jprb &
24348  &, 0.260300e+00_jprb, 0.249523e+00_jprb, 0.239011e+00_jprb, 0.228777e+00_jprb &
24349  &, 0.218804e+00_jprb, 0.209102e+00_jprb, 0.199679e+00_jprb &
24350  &, 0.190513e+00_jprb, 0.181665e+00_jprb, 0.173055e+00_jprb, 0.164740e+00_jprb &
24351  &, 0.156724e+00_jprb, 0.148944e+00_jprb, 0.141461e+00_jprb &
24352  &, 0.134238e+00_jprb, 0.127271e+00_jprb, 0.120584e+00_jprb, 0.114172e+00_jprb &
24353  &, 0.107991e+00_jprb, 0.102063e+00_jprb, 0.964102e-01_jprb &
24354  &, 0.909493e-01_jprb, 0.857710e-01_jprb, 0.807866e-01_jprb, 0.760510e-01_jprb &
24355  &, 0.715454e-01_jprb, 0.672491e-01_jprb, 0.631391e-01_jprb &
24356  &, 0.592302e-01_jprb, 0.555377e-01_jprb, 0.520357e-01_jprb, 0.486960e-01_jprb &
24357  &, 0.455308e-01_jprb, 0.425525e-01_jprb, 0.397296e-01_jprb &
24358  &, 0.370729e-01_jprb, 0.345481e-01_jprb, 0.321643e-01_jprb, 0.299308e-01_jprb &
24359  &, 0.278573e-01_jprb, 0.258566e-01_jprb, 0.239836e-01_jprb &
24360  &, 0.222459e-01_jprb, 0.206517e-01_jprb, 0.191064e-01_jprb, 0.176660e-01_jprb &
24361  &, 0.163365e-01_jprb, 0.150706e-01_jprb, 0.139268e-01_jprb &
24362  &, 0.128563e-01_jprb, 0.118075e-01_jprb, 0.108956e-01_jprb, 0.100125e-01_jprb &
24363  &, 0.921846e-02_jprb, 0.845888e-02_jprb, 0.773590e-02_jprb &
24364  &, 0.711241e-02_jprb, 0.653153e-02_jprb, 0.593320e-02_jprb, 0.544356e-02_jprb &
24365  &, 0.500343e-02_jprb, 0.455032e-02_jprb, 0.414980e-02_jprb/)
24366 xcw( 557, :) = (/ &
24367  & 0.101093e+01_jprb, 0.101263e+01_jprb, 0.101390e+01_jprb, 0.101476e+01_jprb &
24368  &, 0.101520e+01_jprb, 0.101521e+01_jprb, 0.101479e+01_jprb &
24369  &, 0.101396e+01_jprb, 0.101270e+01_jprb, 0.101101e+01_jprb, 0.100889e+01_jprb &
24370  &, 0.100636e+01_jprb, 0.100339e+01_jprb, 0.100001e+01_jprb &
24371  &, 0.996196e+00_jprb, 0.991967e+00_jprb, 0.987316e+00_jprb, 0.982251e+00_jprb &
24372  &, 0.976769e+00_jprb, 0.970876e+00_jprb, 0.964576e+00_jprb &
24373  &, 0.957872e+00_jprb, 0.950769e+00_jprb, 0.943275e+00_jprb, 0.935387e+00_jprb &
24374  &, 0.927121e+00_jprb, 0.918475e+00_jprb, 0.909464e+00_jprb &
24375  &, 0.900090e+00_jprb, 0.890359e+00_jprb, 0.880289e+00_jprb, 0.869880e+00_jprb &
24376  &, 0.859149e+00_jprb, 0.848102e+00_jprb, 0.836749e+00_jprb &
24377  &, 0.825100e+00_jprb, 0.813179e+00_jprb, 0.800986e+00_jprb, 0.788545e+00_jprb &
24378  &, 0.775855e+00_jprb, 0.762936e+00_jprb, 0.749805e+00_jprb &
24379  &, 0.736478e+00_jprb, 0.722965e+00_jprb, 0.709280e+00_jprb, 0.695436e+00_jprb &
24380  &, 0.681460e+00_jprb, 0.667361e+00_jprb, 0.653156e+00_jprb &
24381  &, 0.638869e+00_jprb, 0.624495e+00_jprb, 0.610057e+00_jprb, 0.595594e+00_jprb &
24382  &, 0.581090e+00_jprb, 0.566585e+00_jprb, 0.552077e+00_jprb &
24383  &, 0.537592e+00_jprb, 0.523143e+00_jprb, 0.508742e+00_jprb, 0.494415e+00_jprb &
24384  &, 0.480176e+00_jprb, 0.466018e+00_jprb, 0.451967e+00_jprb &
24385  &, 0.438051e+00_jprb, 0.424262e+00_jprb, 0.410624e+00_jprb, 0.397145e+00_jprb &
24386  &, 0.383831e+00_jprb, 0.370705e+00_jprb, 0.357772e+00_jprb &
24387  &, 0.345054e+00_jprb, 0.332531e+00_jprb, 0.320246e+00_jprb, 0.308176e+00_jprb &
24388  &, 0.296337e+00_jprb, 0.284749e+00_jprb, 0.273428e+00_jprb &
24389  &, 0.262344e+00_jprb, 0.251508e+00_jprb, 0.240959e+00_jprb, 0.230660e+00_jprb &
24390  &, 0.220645e+00_jprb, 0.210899e+00_jprb, 0.201428e+00_jprb &
24391  &, 0.192240e+00_jprb, 0.183339e+00_jprb, 0.174703e+00_jprb, 0.166330e+00_jprb &
24392  &, 0.158253e+00_jprb, 0.150441e+00_jprb, 0.142891e+00_jprb &
24393  &, 0.135631e+00_jprb, 0.128624e+00_jprb, 0.121897e+00_jprb, 0.115441e+00_jprb &
24394  &, 0.109214e+00_jprb, 0.103238e+00_jprb, 0.975356e-01_jprb &
24395  &, 0.920583e-01_jprb, 0.867898e-01_jprb, 0.817856e-01_jprb, 0.770292e-01_jprb &
24396  &, 0.724635e-01_jprb, 0.681047e-01_jprb, 0.639692e-01_jprb &
24397  &, 0.600337e-01_jprb, 0.563134e-01_jprb, 0.527410e-01_jprb, 0.493704e-01_jprb &
24398  &, 0.462160e-01_jprb, 0.431615e-01_jprb, 0.403039e-01_jprb &
24399  &, 0.376114e-01_jprb, 0.350949e-01_jprb, 0.326732e-01_jprb, 0.304005e-01_jprb &
24400  &, 0.282864e-01_jprb, 0.262923e-01_jprb, 0.244257e-01_jprb &
24401  &, 0.226448e-01_jprb, 0.210059e-01_jprb, 0.194658e-01_jprb, 0.179785e-01_jprb &
24402  &, 0.166535e-01_jprb, 0.153922e-01_jprb, 0.141986e-01_jprb &
24403  &, 0.130768e-01_jprb, 0.120870e-01_jprb, 0.111224e-01_jprb, 0.102425e-01_jprb &
24404  &, 0.939331e-02_jprb, 0.863613e-02_jprb, 0.791558e-02_jprb &
24405  &, 0.723382e-02_jprb, 0.665458e-02_jprb, 0.605789e-02_jprb, 0.556992e-02_jprb &
24406  &, 0.506745e-02_jprb, 0.461519e-02_jprb, 0.421551e-02_jprb/)
24407 xcw( 558, :) = (/ &
24408  & 0.101119e+01_jprb, 0.101295e+01_jprb, 0.101429e+01_jprb, 0.101521e+01_jprb &
24409  &, 0.101571e+01_jprb, 0.101578e+01_jprb, 0.101544e+01_jprb &
24410  &, 0.101466e+01_jprb, 0.101347e+01_jprb, 0.101184e+01_jprb, 0.100979e+01_jprb &
24411  &, 0.100731e+01_jprb, 0.100441e+01_jprb, 0.100109e+01_jprb &
24412  &, 0.997342e+00_jprb, 0.993172e+00_jprb, 0.988583e+00_jprb, 0.983575e+00_jprb &
24413  &, 0.978154e+00_jprb, 0.972319e+00_jprb, 0.966077e+00_jprb &
24414  &, 0.959431e+00_jprb, 0.952384e+00_jprb, 0.944941e+00_jprb, 0.937110e+00_jprb &
24415  &, 0.928892e+00_jprb, 0.920301e+00_jprb, 0.911337e+00_jprb &
24416  &, 0.902010e+00_jprb, 0.892330e+00_jprb, 0.882305e+00_jprb, 0.871943e+00_jprb &
24417  &, 0.861250e+00_jprb, 0.850248e+00_jprb, 0.838935e+00_jprb &
24418  &, 0.827323e+00_jprb, 0.815439e+00_jprb, 0.803284e+00_jprb, 0.790871e+00_jprb &
24419  &, 0.778209e+00_jprb, 0.765328e+00_jprb, 0.752225e+00_jprb &
24420  &, 0.738914e+00_jprb, 0.725429e+00_jprb, 0.711770e+00_jprb, 0.697952e+00_jprb &
24421  &, 0.683990e+00_jprb, 0.669902e+00_jprb, 0.655709e+00_jprb &
24422  &, 0.641431e+00_jprb, 0.627065e+00_jprb, 0.612634e+00_jprb, 0.598177e+00_jprb &
24423  &, 0.583677e+00_jprb, 0.569160e+00_jprb, 0.554651e+00_jprb &
24424  &, 0.540165e+00_jprb, 0.525712e+00_jprb, 0.511305e+00_jprb, 0.496971e+00_jprb &
24425  &, 0.482705e+00_jprb, 0.468535e+00_jprb, 0.454470e+00_jprb &
24426  &, 0.440537e+00_jprb, 0.426729e+00_jprb, 0.413069e+00_jprb, 0.399567e+00_jprb &
24427  &, 0.386225e+00_jprb, 0.373070e+00_jprb, 0.360105e+00_jprb &
24428  &, 0.347352e+00_jprb, 0.334792e+00_jprb, 0.322467e+00_jprb, 0.310375e+00_jprb &
24429  &, 0.298513e+00_jprb, 0.286875e+00_jprb, 0.275503e+00_jprb &
24430  &, 0.264387e+00_jprb, 0.253517e+00_jprb, 0.242907e+00_jprb, 0.232595e+00_jprb &
24431  &, 0.222513e+00_jprb, 0.212722e+00_jprb, 0.203232e+00_jprb &
24432  &, 0.193994e+00_jprb, 0.185014e+00_jprb, 0.176350e+00_jprb, 0.167921e+00_jprb &
24433  &, 0.159813e+00_jprb, 0.151938e+00_jprb, 0.144353e+00_jprb &
24434  &, 0.137056e+00_jprb, 0.130010e+00_jprb, 0.123209e+00_jprb, 0.116710e+00_jprb &
24435  &, 0.110437e+00_jprb, 0.104413e+00_jprb, 0.986610e-01_jprb &
24436  &, 0.931315e-01_jprb, 0.878449e-01_jprb, 0.828217e-01_jprb, 0.779699e-01_jprb &
24437  &, 0.733816e-01_jprb, 0.689991e-01_jprb, 0.648389e-01_jprb &
24438  &, 0.608372e-01_jprb, 0.570892e-01_jprb, 0.534878e-01_jprb, 0.500870e-01_jprb &
24439  &, 0.468583e-01_jprb, 0.438140e-01_jprb, 0.409225e-01_jprb &
24440  &, 0.381947e-01_jprb, 0.356416e-01_jprb, 0.331821e-01_jprb, 0.309172e-01_jprb &
24441  &, 0.287633e-01_jprb, 0.267279e-01_jprb, 0.248187e-01_jprb &
24442  &, 0.230436e-01_jprb, 0.213600e-01_jprb, 0.197738e-01_jprb, 0.183431e-01_jprb &
24443  &, 0.169705e-01_jprb, 0.156602e-01_jprb, 0.144704e-01_jprb &
24444  &, 0.133525e-01_jprb, 0.123107e-01_jprb, 0.113492e-01_jprb, 0.104149e-01_jprb &
24445  &, 0.956815e-02_jprb, 0.881338e-02_jprb, 0.809525e-02_jprb &
24446  &, 0.741593e-02_jprb, 0.677763e-02_jprb, 0.624494e-02_jprb, 0.569628e-02_jprb &
24447  &, 0.519549e-02_jprb, 0.474491e-02_jprb, 0.434694e-02_jprb/)
24448 xcw( 559, :) = (/ &
24449  & 0.101144e+01_jprb, 0.101327e+01_jprb, 0.101467e+01_jprb, 0.101566e+01_jprb &
24450  &, 0.101622e+01_jprb, 0.101636e+01_jprb, 0.101608e+01_jprb &
24451  &, 0.101537e+01_jprb, 0.101423e+01_jprb, 0.101267e+01_jprb, 0.101069e+01_jprb &
24452  &, 0.100827e+01_jprb, 0.100544e+01_jprb, 0.100217e+01_jprb &
24453  &, 0.998487e+00_jprb, 0.994379e+00_jprb, 0.989849e+00_jprb, 0.984903e+00_jprb &
24454  &, 0.979539e+00_jprb, 0.973763e+00_jprb, 0.967578e+00_jprb &
24455  &, 0.960989e+00_jprb, 0.953998e+00_jprb, 0.946610e+00_jprb, 0.938833e+00_jprb &
24456  &, 0.930667e+00_jprb, 0.922126e+00_jprb, 0.913215e+00_jprb &
24457  &, 0.903938e+00_jprb, 0.894302e+00_jprb, 0.884322e+00_jprb, 0.874006e+00_jprb &
24458  &, 0.863360e+00_jprb, 0.852393e+00_jprb, 0.841126e+00_jprb &
24459  &, 0.829555e+00_jprb, 0.817709e+00_jprb, 0.805581e+00_jprb, 0.793207e+00_jprb &
24460  &, 0.780573e+00_jprb, 0.767720e+00_jprb, 0.754644e+00_jprb &
24461  &, 0.741361e+00_jprb, 0.727903e+00_jprb, 0.714260e+00_jprb, 0.700456e+00_jprb &
24462  &, 0.686519e+00_jprb, 0.672456e+00_jprb, 0.658274e+00_jprb &
24463  &, 0.643993e+00_jprb, 0.629649e+00_jprb, 0.615226e+00_jprb, 0.600760e+00_jprb &
24464  &, 0.586264e+00_jprb, 0.571763e+00_jprb, 0.557256e+00_jprb &
24465  &, 0.542753e+00_jprb, 0.528297e+00_jprb, 0.513885e+00_jprb, 0.499527e+00_jprb &
24466  &, 0.485252e+00_jprb, 0.471069e+00_jprb, 0.456990e+00_jprb &
24467  &, 0.443042e+00_jprb, 0.429214e+00_jprb, 0.415515e+00_jprb, 0.401988e+00_jprb &
24468  &, 0.388640e+00_jprb, 0.375456e+00_jprb, 0.362459e+00_jprb &
24469  &, 0.349672e+00_jprb, 0.337075e+00_jprb, 0.324731e+00_jprb, 0.312574e+00_jprb &
24470  &, 0.300688e+00_jprb, 0.289025e+00_jprb, 0.277601e+00_jprb &
24471  &, 0.266430e+00_jprb, 0.255527e+00_jprb, 0.244881e+00_jprb, 0.234504e+00_jprb &
24472  &, 0.224406e+00_jprb, 0.214572e+00_jprb, 0.205008e+00_jprb &
24473  &, 0.195721e+00_jprb, 0.186716e+00_jprb, 0.177998e+00_jprb, 0.169540e+00_jprb &
24474  &, 0.161373e+00_jprb, 0.153465e+00_jprb, 0.145815e+00_jprb &
24475  &, 0.138481e+00_jprb, 0.131364e+00_jprb, 0.124554e+00_jprb, 0.117979e+00_jprb &
24476  &, 0.111660e+00_jprb, 0.105623e+00_jprb, 0.998216e-01_jprb &
24477  &, 0.942406e-01_jprb, 0.889365e-01_jprb, 0.838208e-01_jprb, 0.789858e-01_jprb &
24478  &, 0.743380e-01_jprb, 0.698936e-01_jprb, 0.656690e-01_jprb &
24479  &, 0.616809e-01_jprb, 0.578649e-01_jprb, 0.542346e-01_jprb, 0.508036e-01_jprb &
24480  &, 0.475435e-01_jprb, 0.444664e-01_jprb, 0.415410e-01_jprb &
24481  &, 0.387780e-01_jprb, 0.361884e-01_jprb, 0.337373e-01_jprb, 0.313869e-01_jprb &
24482  &, 0.292401e-01_jprb, 0.271635e-01_jprb, 0.252608e-01_jprb &
24483  &, 0.234425e-01_jprb, 0.217141e-01_jprb, 0.201331e-01_jprb, 0.186555e-01_jprb &
24484  &, 0.172347e-01_jprb, 0.159282e-01_jprb, 0.147422e-01_jprb &
24485  &, 0.135730e-01_jprb, 0.125343e-01_jprb, 0.115760e-01_jprb, 0.106449e-01_jprb &
24486  &, 0.980128e-02_jprb, 0.899063e-02_jprb, 0.827492e-02_jprb &
24487  &, 0.759804e-02_jprb, 0.696220e-02_jprb, 0.636964e-02_jprb, 0.582264e-02_jprb &
24488  &, 0.532352e-02_jprb, 0.487463e-02_jprb, 0.441265e-02_jprb/)
24489 xcw( 560, :) = (/ &
24490  & 0.101170e+01_jprb, 0.101359e+01_jprb, 0.101506e+01_jprb, 0.101611e+01_jprb &
24491  &, 0.101673e+01_jprb, 0.101694e+01_jprb, 0.101672e+01_jprb &
24492  &, 0.101607e+01_jprb, 0.101500e+01_jprb, 0.101351e+01_jprb, 0.101158e+01_jprb &
24493  &, 0.100923e+01_jprb, 0.100646e+01_jprb, 0.100326e+01_jprb &
24494  &, 0.999635e+00_jprb, 0.995587e+00_jprb, 0.991119e+00_jprb, 0.986232e+00_jprb &
24495  &, 0.980927e+00_jprb, 0.975209e+00_jprb, 0.969083e+00_jprb &
24496  &, 0.962551e+00_jprb, 0.955612e+00_jprb, 0.948279e+00_jprb, 0.940556e+00_jprb &
24497  &, 0.932446e+00_jprb, 0.923955e+00_jprb, 0.915093e+00_jprb &
24498  &, 0.905865e+00_jprb, 0.896281e+00_jprb, 0.886346e+00_jprb, 0.876073e+00_jprb &
24499  &, 0.865471e+00_jprb, 0.854548e+00_jprb, 0.843317e+00_jprb &
24500  &, 0.831788e+00_jprb, 0.819978e+00_jprb, 0.807889e+00_jprb, 0.795543e+00_jprb &
24501  &, 0.782947e+00_jprb, 0.770123e+00_jprb, 0.757075e+00_jprb &
24502  &, 0.743820e+00_jprb, 0.730378e+00_jprb, 0.716761e+00_jprb, 0.702984e+00_jprb &
24503  &, 0.689061e+00_jprb, 0.675010e+00_jprb, 0.660840e+00_jprb &
24504  &, 0.646582e+00_jprb, 0.632233e+00_jprb, 0.617817e+00_jprb, 0.603357e+00_jprb &
24505  &, 0.588865e+00_jprb, 0.574367e+00_jprb, 0.559845e+00_jprb &
24506  &, 0.545356e+00_jprb, 0.530882e+00_jprb, 0.516464e+00_jprb, 0.502100e+00_jprb &
24507  &, 0.487815e+00_jprb, 0.473621e+00_jprb, 0.459529e+00_jprb &
24508  &, 0.445546e+00_jprb, 0.431700e+00_jprb, 0.417979e+00_jprb, 0.404429e+00_jprb &
24509  &, 0.391055e+00_jprb, 0.377842e+00_jprb, 0.364813e+00_jprb &
24510  &, 0.351992e+00_jprb, 0.339379e+00_jprb, 0.326973e+00_jprb, 0.314817e+00_jprb &
24511  &, 0.302864e+00_jprb, 0.291175e+00_jprb, 0.279699e+00_jprb &
24512  &, 0.268497e+00_jprb, 0.257561e+00_jprb, 0.246879e+00_jprb, 0.236464e+00_jprb &
24513  &, 0.226300e+00_jprb, 0.216422e+00_jprb, 0.206811e+00_jprb &
24514  &, 0.197503e+00_jprb, 0.188447e+00_jprb, 0.179675e+00_jprb, 0.171160e+00_jprb &
24515  &, 0.162932e+00_jprb, 0.154992e+00_jprb, 0.147308e+00_jprb &
24516  &, 0.139906e+00_jprb, 0.132750e+00_jprb, 0.125900e+00_jprb, 0.119281e+00_jprb &
24517  &, 0.112918e+00_jprb, 0.106833e+00_jprb, 0.100982e+00_jprb &
24518  &, 0.953496e-01_jprb, 0.899917e-01_jprb, 0.848569e-01_jprb, 0.799640e-01_jprb &
24519  &, 0.752944e-01_jprb, 0.708269e-01_jprb, 0.665386e-01_jprb &
24520  &, 0.625246e-01_jprb, 0.586407e-01_jprb, 0.549813e-01_jprb, 0.515202e-01_jprb &
24521  &, 0.482286e-01_jprb, 0.451189e-01_jprb, 0.421596e-01_jprb &
24522  &, 0.393613e-01_jprb, 0.367352e-01_jprb, 0.342462e-01_jprb, 0.319036e-01_jprb &
24523  &, 0.297169e-01_jprb, 0.276475e-01_jprb, 0.256538e-01_jprb &
24524  &, 0.238413e-01_jprb, 0.221189e-01_jprb, 0.204925e-01_jprb, 0.189680e-01_jprb &
24525  &, 0.175517e-01_jprb, 0.162497e-01_jprb, 0.150140e-01_jprb &
24526  &, 0.138487e-01_jprb, 0.127580e-01_jprb, 0.118028e-01_jprb, 0.108748e-01_jprb &
24527  &, 0.997612e-02_jprb, 0.916788e-02_jprb, 0.845459e-02_jprb &
24528  &, 0.771945e-02_jprb, 0.708525e-02_jprb, 0.649434e-02_jprb, 0.594901e-02_jprb &
24529  &, 0.545156e-02_jprb, 0.500436e-02_jprb, 0.454407e-02_jprb/)
24530 
24531 IF (lhook) CALL dr_hook('SU_MCICA:PART80',1,zhook_handle)
24532 END SUBROUTINE part80
24533 
24534 #ifdef VPP5000
24535 !OCL SCALAR
24536 #endif
24537 !option! -Nv -NO
24538 #ifdef RS6K
24539 @process nooptimize
24540 #endif
24541 !pgi$r opt=0
24542 SUBROUTINE part81
24543 
24544 REAL(KIND=JPRB) :: ZHOOK_HANDLE
24545 IF (lhook) CALL dr_hook('SU_MCICA:PART81',0,zhook_handle)
24546 
24547 xcw( 561, :) = (/ &
24548  & 0.101195e+01_jprb, 0.101391e+01_jprb, 0.101544e+01_jprb, 0.101655e+01_jprb &
24549  &, 0.101725e+01_jprb, 0.101752e+01_jprb, 0.101736e+01_jprb &
24550  &, 0.101678e+01_jprb, 0.101578e+01_jprb, 0.101434e+01_jprb, 0.101248e+01_jprb &
24551  &, 0.101020e+01_jprb, 0.100748e+01_jprb, 0.100434e+01_jprb &
24552  &, 0.100078e+01_jprb, 0.996797e+00_jprb, 0.992390e+00_jprb, 0.987562e+00_jprb &
24553  &, 0.982319e+00_jprb, 0.976659e+00_jprb, 0.970590e+00_jprb &
24554  &, 0.964112e+00_jprb, 0.957234e+00_jprb, 0.949956e+00_jprb, 0.942286e+00_jprb &
24555  &, 0.934228e+00_jprb, 0.925788e+00_jprb, 0.916978e+00_jprb &
24556  &, 0.907797e+00_jprb, 0.898261e+00_jprb, 0.888375e+00_jprb, 0.878148e+00_jprb &
24557  &, 0.867590e+00_jprb, 0.856707e+00_jprb, 0.845517e+00_jprb &
24558  &, 0.834029e+00_jprb, 0.822248e+00_jprb, 0.810197e+00_jprb, 0.797889e+00_jprb &
24559  &, 0.785321e+00_jprb, 0.772526e+00_jprb, 0.759506e+00_jprb &
24560  &, 0.746279e+00_jprb, 0.732864e+00_jprb, 0.719263e+00_jprb, 0.705511e+00_jprb &
24561  &, 0.691602e+00_jprb, 0.677565e+00_jprb, 0.663418e+00_jprb &
24562  &, 0.649157e+00_jprb, 0.634831e+00_jprb, 0.620422e+00_jprb, 0.605968e+00_jprb &
24563  &, 0.591481e+00_jprb, 0.576971e+00_jprb, 0.562465e+00_jprb &
24564  &, 0.547960e+00_jprb, 0.533498e+00_jprb, 0.519060e+00_jprb, 0.504689e+00_jprb &
24565  &, 0.490395e+00_jprb, 0.476173e+00_jprb, 0.462067e+00_jprb &
24566  &, 0.448068e+00_jprb, 0.434204e+00_jprb, 0.420463e+00_jprb, 0.406889e+00_jprb &
24567  &, 0.393469e+00_jprb, 0.380248e+00_jprb, 0.367188e+00_jprb &
24568  &, 0.354333e+00_jprb, 0.341682e+00_jprb, 0.329259e+00_jprb, 0.317039e+00_jprb &
24569  &, 0.305062e+00_jprb, 0.293325e+00_jprb, 0.281844e+00_jprb &
24570  &, 0.270589e+00_jprb, 0.259595e+00_jprb, 0.248878e+00_jprb, 0.238373e+00_jprb &
24571  &, 0.228220e+00_jprb, 0.218298e+00_jprb, 0.208642e+00_jprb &
24572  &, 0.199257e+00_jprb, 0.190178e+00_jprb, 0.181351e+00_jprb, 0.172809e+00_jprb &
24573  &, 0.164522e+00_jprb, 0.156519e+00_jprb, 0.148800e+00_jprb &
24574  &, 0.141362e+00_jprb, 0.134169e+00_jprb, 0.127245e+00_jprb, 0.120583e+00_jprb &
24575  &, 0.114175e+00_jprb, 0.108043e+00_jprb, 0.102143e+00_jprb &
24576  &, 0.964944e-01_jprb, 0.910833e-01_jprb, 0.858929e-01_jprb, 0.809423e-01_jprb &
24577  &, 0.762507e-01_jprb, 0.717214e-01_jprb, 0.674478e-01_jprb &
24578  &, 0.633683e-01_jprb, 0.594573e-01_jprb, 0.557696e-01_jprb, 0.522790e-01_jprb &
24579  &, 0.489138e-01_jprb, 0.457714e-01_jprb, 0.427781e-01_jprb &
24580  &, 0.399895e-01_jprb, 0.373275e-01_jprb, 0.348014e-01_jprb, 0.324203e-01_jprb &
24581  &, 0.301938e-01_jprb, 0.280831e-01_jprb, 0.260960e-01_jprb &
24582  &, 0.242402e-01_jprb, 0.224730e-01_jprb, 0.208518e-01_jprb, 0.193326e-01_jprb &
24583  &, 0.178687e-01_jprb, 0.165713e-01_jprb, 0.152858e-01_jprb &
24584  &, 0.141244e-01_jprb, 0.130375e-01_jprb, 0.120295e-01_jprb, 0.110473e-01_jprb &
24585  &, 0.102092e-01_jprb, 0.934513e-02_jprb, 0.863427e-02_jprb &
24586  &, 0.790156e-02_jprb, 0.726982e-02_jprb, 0.661904e-02_jprb, 0.607537e-02_jprb &
24587  &, 0.557960e-02_jprb, 0.506922e-02_jprb, 0.467549e-02_jprb/)
24588 xcw( 562, :) = (/ &
24589  & 0.101221e+01_jprb, 0.101423e+01_jprb, 0.101583e+01_jprb, 0.101701e+01_jprb &
24590  &, 0.101776e+01_jprb, 0.101810e+01_jprb, 0.101801e+01_jprb &
24591  &, 0.101749e+01_jprb, 0.101655e+01_jprb, 0.101518e+01_jprb, 0.101338e+01_jprb &
24592  &, 0.101116e+01_jprb, 0.100851e+01_jprb, 0.100543e+01_jprb &
24593  &, 0.100193e+01_jprb, 0.998008e+00_jprb, 0.993661e+00_jprb, 0.988894e+00_jprb &
24594  &, 0.983710e+00_jprb, 0.978109e+00_jprb, 0.972098e+00_jprb &
24595  &, 0.965677e+00_jprb, 0.958855e+00_jprb, 0.951632e+00_jprb, 0.944016e+00_jprb &
24596  &, 0.936010e+00_jprb, 0.927625e+00_jprb, 0.918863e+00_jprb &
24597  &, 0.909732e+00_jprb, 0.900244e+00_jprb, 0.890404e+00_jprb, 0.880223e+00_jprb &
24598  &, 0.869708e+00_jprb, 0.858870e+00_jprb, 0.847721e+00_jprb &
24599  &, 0.836271e+00_jprb, 0.824527e+00_jprb, 0.812514e+00_jprb, 0.800235e+00_jprb &
24600  &, 0.787706e+00_jprb, 0.774939e+00_jprb, 0.761948e+00_jprb &
24601  &, 0.748748e+00_jprb, 0.735350e+00_jprb, 0.721776e+00_jprb, 0.708039e+00_jprb &
24602  &, 0.694156e+00_jprb, 0.680131e+00_jprb, 0.665996e+00_jprb &
24603  &, 0.651759e+00_jprb, 0.637428e+00_jprb, 0.623041e+00_jprb, 0.608593e+00_jprb &
24604  &, 0.594111e+00_jprb, 0.579604e+00_jprb, 0.565085e+00_jprb &
24605  &, 0.550579e+00_jprb, 0.536099e+00_jprb, 0.521672e+00_jprb, 0.507278e+00_jprb &
24606  &, 0.492975e+00_jprb, 0.478742e+00_jprb, 0.464623e+00_jprb &
24607  &, 0.450609e+00_jprb, 0.436708e+00_jprb, 0.422965e+00_jprb, 0.409349e+00_jprb &
24608  &, 0.395923e+00_jprb, 0.382654e+00_jprb, 0.369583e+00_jprb &
24609  &, 0.356694e+00_jprb, 0.344008e+00_jprb, 0.331545e+00_jprb, 0.319305e+00_jprb &
24610  &, 0.307283e+00_jprb, 0.295498e+00_jprb, 0.283966e+00_jprb &
24611  &, 0.272680e+00_jprb, 0.261654e+00_jprb, 0.250877e+00_jprb, 0.240385e+00_jprb &
24612  &, 0.230140e+00_jprb, 0.220175e+00_jprb, 0.210473e+00_jprb &
24613  &, 0.201067e+00_jprb, 0.191909e+00_jprb, 0.183028e+00_jprb, 0.174458e+00_jprb &
24614  &, 0.166141e+00_jprb, 0.158077e+00_jprb, 0.150324e+00_jprb &
24615  &, 0.142819e+00_jprb, 0.135587e+00_jprb, 0.128623e+00_jprb, 0.121919e+00_jprb &
24616  &, 0.115466e+00_jprb, 0.109288e+00_jprb, 0.103339e+00_jprb &
24617  &, 0.976392e-01_jprb, 0.921748e-01_jprb, 0.869660e-01_jprb, 0.819582e-01_jprb &
24618  &, 0.772071e-01_jprb, 0.726547e-01_jprb, 0.683175e-01_jprb &
24619  &, 0.642120e-01_jprb, 0.602739e-01_jprb, 0.565579e-01_jprb, 0.529956e-01_jprb &
24620  &, 0.496418e-01_jprb, 0.464674e-01_jprb, 0.434408e-01_jprb &
24621  &, 0.405728e-01_jprb, 0.378743e-01_jprb, 0.353566e-01_jprb, 0.329370e-01_jprb &
24622  &, 0.306706e-01_jprb, 0.285671e-01_jprb, 0.265381e-01_jprb &
24623  &, 0.246390e-01_jprb, 0.228778e-01_jprb, 0.212111e-01_jprb, 0.196972e-01_jprb &
24624  &, 0.182386e-01_jprb, 0.168393e-01_jprb, 0.155576e-01_jprb &
24625  &, 0.144000e-01_jprb, 0.132612e-01_jprb, 0.122563e-01_jprb, 0.112772e-01_jprb &
24626  &, 0.103841e-01_jprb, 0.958146e-02_jprb, 0.881394e-02_jprb &
24627  &, 0.808368e-02_jprb, 0.739287e-02_jprb, 0.680609e-02_jprb, 0.620173e-02_jprb &
24628  &, 0.570763e-02_jprb, 0.519894e-02_jprb, 0.474120e-02_jprb/)
24629 xcw( 563, :) = (/ &
24630  & 0.101247e+01_jprb, 0.101455e+01_jprb, 0.101621e+01_jprb, 0.101746e+01_jprb &
24631  &, 0.101828e+01_jprb, 0.101868e+01_jprb, 0.101865e+01_jprb &
24632  &, 0.101820e+01_jprb, 0.101732e+01_jprb, 0.101601e+01_jprb, 0.101428e+01_jprb &
24633  &, 0.101212e+01_jprb, 0.100954e+01_jprb, 0.100652e+01_jprb &
24634  &, 0.100308e+01_jprb, 0.999221e+00_jprb, 0.994935e+00_jprb, 0.990228e+00_jprb &
24635  &, 0.985103e+00_jprb, 0.979562e+00_jprb, 0.973609e+00_jprb &
24636  &, 0.967245e+00_jprb, 0.960479e+00_jprb, 0.953312e+00_jprb, 0.945749e+00_jprb &
24637  &, 0.937796e+00_jprb, 0.929465e+00_jprb, 0.920752e+00_jprb &
24638  &, 0.911676e+00_jprb, 0.902232e+00_jprb, 0.892441e+00_jprb, 0.882303e+00_jprb &
24639  &, 0.871832e+00_jprb, 0.861038e+00_jprb, 0.849930e+00_jprb &
24640  &, 0.838522e+00_jprb, 0.826816e+00_jprb, 0.814841e+00_jprb, 0.802591e+00_jprb &
24641  &, 0.790091e+00_jprb, 0.777363e+00_jprb, 0.764400e+00_jprb &
24642  &, 0.751229e+00_jprb, 0.737859e+00_jprb, 0.724301e+00_jprb, 0.710591e+00_jprb &
24643  &, 0.696722e+00_jprb, 0.682710e+00_jprb, 0.668587e+00_jprb &
24644  &, 0.654361e+00_jprb, 0.640053e+00_jprb, 0.625660e+00_jprb, 0.611219e+00_jprb &
24645  &, 0.596741e+00_jprb, 0.582223e+00_jprb, 0.567719e+00_jprb &
24646  &, 0.553213e+00_jprb, 0.538731e+00_jprb, 0.524284e+00_jprb, 0.509883e+00_jprb &
24647  &, 0.495573e+00_jprb, 0.481329e+00_jprb, 0.467179e+00_jprb &
24648  &, 0.453149e+00_jprb, 0.439231e+00_jprb, 0.425468e+00_jprb, 0.411829e+00_jprb &
24649  &, 0.398378e+00_jprb, 0.385080e+00_jprb, 0.371979e+00_jprb &
24650  &, 0.359056e+00_jprb, 0.346333e+00_jprb, 0.333853e+00_jprb, 0.321571e+00_jprb &
24651  &, 0.309505e+00_jprb, 0.297695e+00_jprb, 0.286112e+00_jprb &
24652  &, 0.274796e+00_jprb, 0.263713e+00_jprb, 0.252901e+00_jprb, 0.242372e+00_jprb &
24653  &, 0.232086e+00_jprb, 0.222079e+00_jprb, 0.212331e+00_jprb &
24654  &, 0.202850e+00_jprb, 0.193668e+00_jprb, 0.184763e+00_jprb, 0.176107e+00_jprb &
24655  &, 0.167731e+00_jprb, 0.159666e+00_jprb, 0.151848e+00_jprb &
24656  &, 0.144276e+00_jprb, 0.137005e+00_jprb, 0.130001e+00_jprb, 0.123254e+00_jprb &
24657  &, 0.116757e+00_jprb, 0.110498e+00_jprb, 0.104534e+00_jprb &
24658  &, 0.987839e-01_jprb, 0.933028e-01_jprb, 0.880391e-01_jprb, 0.830117e-01_jprb &
24659  &, 0.782017e-01_jprb, 0.735881e-01_jprb, 0.692267e-01_jprb &
24660  &, 0.650558e-01_jprb, 0.610904e-01_jprb, 0.573462e-01_jprb, 0.537543e-01_jprb &
24661  &, 0.503698e-01_jprb, 0.471199e-01_jprb, 0.441036e-01_jprb &
24662  &, 0.412010e-01_jprb, 0.384667e-01_jprb, 0.359117e-01_jprb, 0.334537e-01_jprb &
24663  &, 0.311951e-01_jprb, 0.290028e-01_jprb, 0.269803e-01_jprb &
24664  &, 0.250877e-01_jprb, 0.232825e-01_jprb, 0.216218e-01_jprb, 0.200097e-01_jprb &
24665  &, 0.185556e-01_jprb, 0.171609e-01_jprb, 0.158838e-01_jprb &
24666  &, 0.146757e-01_jprb, 0.135407e-01_jprb, 0.124831e-01_jprb, 0.115071e-01_jprb &
24667  &, 0.106172e-01_jprb, 0.975871e-02_jprb, 0.899361e-02_jprb &
24668  &, 0.826579e-02_jprb, 0.757744e-02_jprb, 0.693079e-02_jprb, 0.632809e-02_jprb &
24669  &, 0.583567e-02_jprb, 0.532866e-02_jprb, 0.487262e-02_jprb/)
24670 xcw( 564, :) = (/ &
24671  & 0.101272e+01_jprb, 0.101487e+01_jprb, 0.101660e+01_jprb, 0.101791e+01_jprb &
24672  &, 0.101879e+01_jprb, 0.101926e+01_jprb, 0.101929e+01_jprb &
24673  &, 0.101891e+01_jprb, 0.101809e+01_jprb, 0.101685e+01_jprb, 0.101518e+01_jprb &
24674  &, 0.101309e+01_jprb, 0.101056e+01_jprb, 0.100761e+01_jprb &
24675  &, 0.100424e+01_jprb, 0.100043e+01_jprb, 0.996211e+00_jprb, 0.991565e+00_jprb &
24676  &, 0.986498e+00_jprb, 0.981015e+00_jprb, 0.975120e+00_jprb &
24677  &, 0.968817e+00_jprb, 0.962104e+00_jprb, 0.954995e+00_jprb, 0.947486e+00_jprb &
24678  &, 0.939590e+00_jprb, 0.931305e+00_jprb, 0.922649e+00_jprb &
24679  &, 0.913619e+00_jprb, 0.904227e+00_jprb, 0.894478e+00_jprb, 0.884386e+00_jprb &
24680  &, 0.873963e+00_jprb, 0.863210e+00_jprb, 0.852144e+00_jprb &
24681  &, 0.840773e+00_jprb, 0.829105e+00_jprb, 0.817168e+00_jprb, 0.804957e+00_jprb &
24682  &, 0.792486e+00_jprb, 0.779787e+00_jprb, 0.766852e+00_jprb &
24683  &, 0.753709e+00_jprb, 0.740356e+00_jprb, 0.726837e+00_jprb, 0.713131e+00_jprb &
24684  &, 0.699288e+00_jprb, 0.685302e+00_jprb, 0.671191e+00_jprb &
24685  &, 0.656975e+00_jprb, 0.642664e+00_jprb, 0.628292e+00_jprb, 0.613858e+00_jprb &
24686  &, 0.599371e+00_jprb, 0.584871e+00_jprb, 0.570354e+00_jprb &
24687  &, 0.555848e+00_jprb, 0.541364e+00_jprb, 0.526913e+00_jprb, 0.512506e+00_jprb &
24688  &, 0.498170e+00_jprb, 0.483916e+00_jprb, 0.469753e+00_jprb &
24689  &, 0.455708e+00_jprb, 0.441772e+00_jprb, 0.427970e+00_jprb, 0.414328e+00_jprb &
24690  &, 0.400832e+00_jprb, 0.387526e+00_jprb, 0.374374e+00_jprb &
24691  &, 0.361439e+00_jprb, 0.348680e+00_jprb, 0.336162e+00_jprb, 0.323837e+00_jprb &
24692  &, 0.311749e+00_jprb, 0.299891e+00_jprb, 0.288282e+00_jprb &
24693  &, 0.276912e+00_jprb, 0.265797e+00_jprb, 0.254950e+00_jprb, 0.244358e+00_jprb &
24694  &, 0.234032e+00_jprb, 0.223982e+00_jprb, 0.214189e+00_jprb &
24695  &, 0.204688e+00_jprb, 0.195427e+00_jprb, 0.186468e+00_jprb, 0.177786e+00_jprb &
24696  &, 0.169381e+00_jprb, 0.161223e+00_jprb, 0.153372e+00_jprb &
24697  &, 0.145764e+00_jprb, 0.138456e+00_jprb, 0.131379e+00_jprb, 0.124590e+00_jprb &
24698  &, 0.118048e+00_jprb, 0.111777e+00_jprb, 0.105730e+00_jprb &
24699  &, 0.999645e-01_jprb, 0.943944e-01_jprb, 0.891121e-01_jprb, 0.840276e-01_jprb &
24700  &, 0.791963e-01_jprb, 0.745603e-01_jprb, 0.701359e-01_jprb &
24701  &, 0.659396e-01_jprb, 0.619479e-01_jprb, 0.581344e-01_jprb, 0.545130e-01_jprb &
24702  &, 0.510978e-01_jprb, 0.478159e-01_jprb, 0.447221e-01_jprb &
24703  &, 0.418292e-01_jprb, 0.390590e-01_jprb, 0.364669e-01_jprb, 0.340173e-01_jprb &
24704  &, 0.316720e-01_jprb, 0.294868e-01_jprb, 0.274224e-01_jprb &
24705  &, 0.254866e-01_jprb, 0.236873e-01_jprb, 0.219812e-01_jprb, 0.203743e-01_jprb &
24706  &, 0.188726e-01_jprb, 0.174825e-01_jprb, 0.161556e-01_jprb &
24707  &, 0.149514e-01_jprb, 0.138203e-01_jprb, 0.127099e-01_jprb, 0.117371e-01_jprb &
24708  &, 0.107921e-01_jprb, 0.993596e-02_jprb, 0.917328e-02_jprb &
24709  &, 0.838720e-02_jprb, 0.770049e-02_jprb, 0.711783e-02_jprb, 0.651763e-02_jprb &
24710  &, 0.596371e-02_jprb, 0.545839e-02_jprb, 0.500405e-02_jprb/)
24711 xcw( 565, :) = (/ &
24712  & 0.101298e+01_jprb, 0.101519e+01_jprb, 0.101698e+01_jprb, 0.101836e+01_jprb &
24713  &, 0.101931e+01_jprb, 0.101984e+01_jprb, 0.101994e+01_jprb &
24714  &, 0.101962e+01_jprb, 0.101887e+01_jprb, 0.101769e+01_jprb, 0.101609e+01_jprb &
24715  &, 0.101405e+01_jprb, 0.101159e+01_jprb, 0.100871e+01_jprb &
24716  &, 0.100539e+01_jprb, 0.100165e+01_jprb, 0.997488e+00_jprb, 0.992901e+00_jprb &
24717  &, 0.987896e+00_jprb, 0.982474e+00_jprb, 0.976635e+00_jprb &
24718  &, 0.970388e+00_jprb, 0.963735e+00_jprb, 0.956678e+00_jprb, 0.949227e+00_jprb &
24719  &, 0.941383e+00_jprb, 0.933153e+00_jprb, 0.924545e+00_jprb &
24720  &, 0.915558e+00_jprb, 0.906222e+00_jprb, 0.896523e+00_jprb, 0.886479e+00_jprb &
24721  &, 0.876095e+00_jprb, 0.865387e+00_jprb, 0.854362e+00_jprb &
24722  &, 0.843033e+00_jprb, 0.831403e+00_jprb, 0.819496e+00_jprb, 0.807323e+00_jprb &
24723  &, 0.794891e+00_jprb, 0.782210e+00_jprb, 0.769315e+00_jprb &
24724  &, 0.756190e+00_jprb, 0.742876e+00_jprb, 0.729373e+00_jprb, 0.715694e+00_jprb &
24725  &, 0.701866e+00_jprb, 0.687893e+00_jprb, 0.673795e+00_jprb &
24726  &, 0.659590e+00_jprb, 0.645302e+00_jprb, 0.630925e+00_jprb, 0.616497e+00_jprb &
24727  &, 0.602030e+00_jprb, 0.587519e+00_jprb, 0.573004e+00_jprb &
24728  &, 0.558498e+00_jprb, 0.543996e+00_jprb, 0.529541e+00_jprb, 0.515128e+00_jprb &
24729  &, 0.500784e+00_jprb, 0.486520e+00_jprb, 0.472344e+00_jprb &
24730  &, 0.458267e+00_jprb, 0.444313e+00_jprb, 0.430510e+00_jprb, 0.416827e+00_jprb &
24731  &, 0.403326e+00_jprb, 0.389973e+00_jprb, 0.376811e+00_jprb &
24732  &, 0.363822e+00_jprb, 0.351049e+00_jprb, 0.338492e+00_jprb, 0.326126e+00_jprb &
24733  &, 0.314016e+00_jprb, 0.302111e+00_jprb, 0.290451e+00_jprb &
24734  &, 0.279052e+00_jprb, 0.267906e+00_jprb, 0.256999e+00_jprb, 0.246370e+00_jprb &
24735  &, 0.236005e+00_jprb, 0.225886e+00_jprb, 0.216075e+00_jprb &
24736  &, 0.206498e+00_jprb, 0.197215e+00_jprb, 0.188203e+00_jprb, 0.179464e+00_jprb &
24737  &, 0.170970e+00_jprb, 0.162842e+00_jprb, 0.154928e+00_jprb &
24738  &, 0.147284e+00_jprb, 0.139906e+00_jprb, 0.132790e+00_jprb, 0.125959e+00_jprb &
24739  &, 0.119373e+00_jprb, 0.113022e+00_jprb, 0.106961e+00_jprb &
24740  &, 0.101145e+00_jprb, 0.955587e-01_jprb, 0.901852e-01_jprb, 0.850811e-01_jprb &
24741  &, 0.801909e-01_jprb, 0.755325e-01_jprb, 0.710450e-01_jprb &
24742  &, 0.668235e-01_jprb, 0.627644e-01_jprb, 0.589227e-01_jprb, 0.552718e-01_jprb &
24743  &, 0.518258e-01_jprb, 0.485119e-01_jprb, 0.454290e-01_jprb &
24744  &, 0.424574e-01_jprb, 0.396513e-01_jprb, 0.370221e-01_jprb, 0.345340e-01_jprb &
24745  &, 0.321965e-01_jprb, 0.299708e-01_jprb, 0.279136e-01_jprb &
24746  &, 0.259353e-01_jprb, 0.240920e-01_jprb, 0.223918e-01_jprb, 0.207388e-01_jprb &
24747  &, 0.192425e-01_jprb, 0.178040e-01_jprb, 0.164818e-01_jprb &
24748  &, 0.152271e-01_jprb, 0.140439e-01_jprb, 0.129934e-01_jprb, 0.119670e-01_jprb &
24749  &, 0.110252e-01_jprb, 0.101723e-01_jprb, 0.935296e-02_jprb &
24750  &, 0.856931e-02_jprb, 0.788506e-02_jprb, 0.724253e-02_jprb, 0.664400e-02_jprb &
24751  &, 0.609174e-02_jprb, 0.558811e-02_jprb, 0.506976e-02_jprb/)
24752 xcw( 566, :) = (/ &
24753  & 0.101324e+01_jprb, 0.101551e+01_jprb, 0.101737e+01_jprb, 0.101881e+01_jprb &
24754  &, 0.101982e+01_jprb, 0.102042e+01_jprb, 0.102058e+01_jprb &
24755  &, 0.102033e+01_jprb, 0.101964e+01_jprb, 0.101853e+01_jprb, 0.101699e+01_jprb &
24756  &, 0.101502e+01_jprb, 0.101262e+01_jprb, 0.100980e+01_jprb &
24757  &, 0.100655e+01_jprb, 0.100287e+01_jprb, 0.998766e+00_jprb, 0.994241e+00_jprb &
24758  &, 0.989296e+00_jprb, 0.983930e+00_jprb, 0.978152e+00_jprb &
24759  &, 0.971963e+00_jprb, 0.965366e+00_jprb, 0.958364e+00_jprb, 0.950968e+00_jprb &
24760  &, 0.943176e+00_jprb, 0.935001e+00_jprb, 0.926446e+00_jprb &
24761  &, 0.917513e+00_jprb, 0.908222e+00_jprb, 0.898568e+00_jprb, 0.888571e+00_jprb &
24762  &, 0.878236e+00_jprb, 0.867568e+00_jprb, 0.856584e+00_jprb &
24763  &, 0.845293e+00_jprb, 0.833702e+00_jprb, 0.821833e+00_jprb, 0.809699e+00_jprb &
24764  &, 0.797296e+00_jprb, 0.784655e+00_jprb, 0.771779e+00_jprb &
24765  &, 0.758682e+00_jprb, 0.745396e+00_jprb, 0.731910e+00_jprb, 0.718258e+00_jprb &
24766  &, 0.704444e+00_jprb, 0.690498e+00_jprb, 0.676412e+00_jprb &
24767  &, 0.662218e+00_jprb, 0.647940e+00_jprb, 0.633585e+00_jprb, 0.619151e+00_jprb &
24768  &, 0.604689e+00_jprb, 0.590182e+00_jprb, 0.575669e+00_jprb &
24769  &, 0.561148e+00_jprb, 0.546660e+00_jprb, 0.532186e+00_jprb, 0.517767e+00_jprb &
24770  &, 0.503415e+00_jprb, 0.489124e+00_jprb, 0.474936e+00_jprb &
24771  &, 0.460844e+00_jprb, 0.446892e+00_jprb, 0.433050e+00_jprb, 0.419345e+00_jprb &
24772  &, 0.405800e+00_jprb, 0.392439e+00_jprb, 0.379248e+00_jprb &
24773  &, 0.366226e+00_jprb, 0.353417e+00_jprb, 0.340822e+00_jprb, 0.328437e+00_jprb &
24774  &, 0.316283e+00_jprb, 0.303607e+00_jprb, 0.292645e+00_jprb &
24775  &, 0.281217e+00_jprb, 0.270014e+00_jprb, 0.259074e+00_jprb, 0.248382e+00_jprb &
24776  &, 0.237977e+00_jprb, 0.227843e+00_jprb, 0.217960e+00_jprb &
24777  &, 0.208336e+00_jprb, 0.199031e+00_jprb, 0.189966e+00_jprb, 0.181172e+00_jprb &
24778  &, 0.172680e+00_jprb, 0.164430e+00_jprb, 0.156483e+00_jprb &
24779  &, 0.148772e+00_jprb, 0.141357e+00_jprb, 0.134200e+00_jprb, 0.127328e+00_jprb &
24780  &, 0.120699e+00_jprb, 0.114301e+00_jprb, 0.108192e+00_jprb &
24781  &, 0.102326e+00_jprb, 0.966867e-01_jprb, 0.912953e-01_jprb, 0.861346e-01_jprb &
24782  &, 0.811855e-01_jprb, 0.765047e-01_jprb, 0.719937e-01_jprb &
24783  &, 0.677074e-01_jprb, 0.636218e-01_jprb, 0.597524e-01_jprb, 0.560727e-01_jprb &
24784  &, 0.525538e-01_jprb, 0.492514e-01_jprb, 0.460918e-01_jprb &
24785  &, 0.430856e-01_jprb, 0.402893e-01_jprb, 0.376235e-01_jprb, 0.350977e-01_jprb &
24786  &, 0.327210e-01_jprb, 0.304548e-01_jprb, 0.283558e-01_jprb &
24787  &, 0.263840e-01_jprb, 0.244967e-01_jprb, 0.227512e-01_jprb, 0.211034e-01_jprb &
24788  &, 0.195595e-01_jprb, 0.181256e-01_jprb, 0.168080e-01_jprb &
24789  &, 0.155027e-01_jprb, 0.143235e-01_jprb, 0.132202e-01_jprb, 0.121970e-01_jprb &
24790  &, 0.112583e-01_jprb, 0.103495e-01_jprb, 0.953263e-02_jprb &
24791  &, 0.875142e-02_jprb, 0.806963e-02_jprb, 0.742958e-02_jprb, 0.677036e-02_jprb &
24792  &, 0.621978e-02_jprb, 0.571784e-02_jprb, 0.520118e-02_jprb/)
24793 xcw( 567, :) = (/ &
24794  & 0.101349e+01_jprb, 0.101583e+01_jprb, 0.101776e+01_jprb, 0.101926e+01_jprb &
24795  &, 0.102034e+01_jprb, 0.102100e+01_jprb, 0.102123e+01_jprb &
24796  &, 0.102104e+01_jprb, 0.102042e+01_jprb, 0.101937e+01_jprb, 0.101789e+01_jprb &
24797  &, 0.101599e+01_jprb, 0.101365e+01_jprb, 0.101087e+01_jprb &
24798  &, 0.100770e+01_jprb, 0.100409e+01_jprb, 0.100005e+01_jprb, 0.995582e+00_jprb &
24799  &, 0.990697e+00_jprb, 0.985393e+00_jprb, 0.979673e+00_jprb &
24800  &, 0.973541e+00_jprb, 0.967001e+00_jprb, 0.960055e+00_jprb, 0.952712e+00_jprb &
24801  &, 0.944977e+00_jprb, 0.936852e+00_jprb, 0.928346e+00_jprb &
24802  &, 0.919468e+00_jprb, 0.910225e+00_jprb, 0.900621e+00_jprb, 0.890667e+00_jprb &
24803  &, 0.880376e+00_jprb, 0.869754e+00_jprb, 0.858812e+00_jprb &
24804  &, 0.847563e+00_jprb, 0.836010e+00_jprb, 0.824179e+00_jprb, 0.812075e+00_jprb &
24805  &, 0.799712e+00_jprb, 0.787100e+00_jprb, 0.774252e+00_jprb &
24806  &, 0.761185e+00_jprb, 0.747916e+00_jprb, 0.734458e+00_jprb, 0.720834e+00_jprb &
24807  &, 0.707035e+00_jprb, 0.693102e+00_jprb, 0.679041e+00_jprb &
24808  &, 0.664859e+00_jprb, 0.650591e+00_jprb, 0.636232e+00_jprb, 0.621819e+00_jprb &
24809  &, 0.607348e+00_jprb, 0.592859e+00_jprb, 0.578334e+00_jprb &
24810  &, 0.563814e+00_jprb, 0.549324e+00_jprb, 0.534846e+00_jprb, 0.520423e+00_jprb &
24811  &, 0.506047e+00_jprb, 0.491745e+00_jprb, 0.477545e+00_jprb &
24812  &, 0.463439e+00_jprb, 0.449451e+00_jprb, 0.435591e+00_jprb, 0.421882e+00_jprb &
24813  &, 0.408313e+00_jprb, 0.394906e+00_jprb, 0.381684e+00_jprb &
24814  &, 0.368651e+00_jprb, 0.355808e+00_jprb, 0.343174e+00_jprb, 0.330748e+00_jprb &
24815  &, 0.318550e+00_jprb, 0.306575e+00_jprb, 0.294862e+00_jprb &
24816  &, 0.283382e+00_jprb, 0.272123e+00_jprb, 0.261148e+00_jprb, 0.250420e+00_jprb &
24817  &, 0.239976e+00_jprb, 0.229773e+00_jprb, 0.219846e+00_jprb &
24818  &, 0.210201e+00_jprb, 0.200818e+00_jprb, 0.191729e+00_jprb, 0.182880e+00_jprb &
24819  &, 0.174330e+00_jprb, 0.166049e+00_jprb, 0.158038e+00_jprb &
24820  &, 0.150324e+00_jprb, 0.142840e+00_jprb, 0.135644e+00_jprb, 0.128697e+00_jprb &
24821  &, 0.122024e+00_jprb, 0.115614e+00_jprb, 0.109423e+00_jprb &
24822  &, 0.103506e+00_jprb, 0.978510e-01_jprb, 0.924054e-01_jprb, 0.871881e-01_jprb &
24823  &, 0.822184e-01_jprb, 0.774770e-01_jprb, 0.729425e-01_jprb &
24824  &, 0.686315e-01_jprb, 0.644793e-01_jprb, 0.605822e-01_jprb, 0.568314e-01_jprb &
24825  &, 0.533246e-01_jprb, 0.499474e-01_jprb, 0.467545e-01_jprb &
24826  &, 0.437586e-01_jprb, 0.408816e-01_jprb, 0.381787e-01_jprb, 0.356613e-01_jprb &
24827  &, 0.332455e-01_jprb, 0.309872e-01_jprb, 0.288470e-01_jprb &
24828  &, 0.268327e-01_jprb, 0.249521e-01_jprb, 0.231619e-01_jprb, 0.214680e-01_jprb &
24829  &, 0.199294e-01_jprb, 0.184472e-01_jprb, 0.170798e-01_jprb &
24830  &, 0.158335e-01_jprb, 0.146031e-01_jprb, 0.135036e-01_jprb, 0.124269e-01_jprb &
24831  &, 0.114914e-01_jprb, 0.105859e-01_jprb, 0.971230e-02_jprb &
24832  &, 0.893354e-02_jprb, 0.825420e-02_jprb, 0.755428e-02_jprb, 0.695990e-02_jprb &
24833  &, 0.634782e-02_jprb, 0.584756e-02_jprb, 0.533260e-02_jprb/)
24834 
24835 IF (lhook) CALL dr_hook('SU_MCICA:PART81',1,zhook_handle)
24836 END SUBROUTINE part81
24837 
24838 #ifdef VPP5000
24839 !OCL SCALAR
24840 #endif
24841 !option! -Nv -NO
24842 #ifdef RS6K
24843 @process nooptimize
24844 #endif
24845 !pgi$r opt=0
24846 SUBROUTINE part82
24847 
24848 REAL(KIND=JPRB) :: ZHOOK_HANDLE
24849 IF (lhook) CALL dr_hook('SU_MCICA:PART82',0,zhook_handle)
24850 
24851 xcw( 568, :) = (/ &
24852  & 0.101375e+01_jprb, 0.101616e+01_jprb, 0.101814e+01_jprb, 0.101971e+01_jprb &
24853  &, 0.102086e+01_jprb, 0.102158e+01_jprb, 0.102188e+01_jprb &
24854  &, 0.102175e+01_jprb, 0.102119e+01_jprb, 0.102021e+01_jprb, 0.101880e+01_jprb &
24855  &, 0.101696e+01_jprb, 0.101469e+01_jprb, 0.101199e+01_jprb &
24856  &, 0.100886e+01_jprb, 0.100531e+01_jprb, 0.100133e+01_jprb, 0.996925e+00_jprb &
24857  &, 0.992101e+00_jprb, 0.986855e+00_jprb, 0.981193e+00_jprb &
24858  &, 0.975120e+00_jprb, 0.968636e+00_jprb, 0.961748e+00_jprb, 0.954460e+00_jprb &
24859  &, 0.946777e+00_jprb, 0.938707e+00_jprb, 0.930254e+00_jprb &
24860  &, 0.921427e+00_jprb, 0.912229e+00_jprb, 0.902675e+00_jprb, 0.892772e+00_jprb &
24861  &, 0.882525e+00_jprb, 0.871943e+00_jprb, 0.861043e+00_jprb &
24862  &, 0.849832e+00_jprb, 0.838327e+00_jprb, 0.826526e+00_jprb, 0.814461e+00_jprb &
24863  &, 0.802127e+00_jprb, 0.789545e+00_jprb, 0.776726e+00_jprb &
24864  &, 0.763699e+00_jprb, 0.750448e+00_jprb, 0.737018e+00_jprb, 0.723409e+00_jprb &
24865  &, 0.709637e+00_jprb, 0.695718e+00_jprb, 0.681670e+00_jprb &
24866  &, 0.667514e+00_jprb, 0.653242e+00_jprb, 0.638906e+00_jprb, 0.624486e+00_jprb &
24867  &, 0.610036e+00_jprb, 0.595537e+00_jprb, 0.581015e+00_jprb &
24868  &, 0.566495e+00_jprb, 0.551989e+00_jprb, 0.537507e+00_jprb, 0.523078e+00_jprb &
24869  &, 0.508695e+00_jprb, 0.494384e+00_jprb, 0.480172e+00_jprb &
24870  &, 0.466052e+00_jprb, 0.452048e+00_jprb, 0.438150e+00_jprb, 0.424420e+00_jprb &
24871  &, 0.410827e+00_jprb, 0.397393e+00_jprb, 0.384142e+00_jprb &
24872  &, 0.371076e+00_jprb, 0.358198e+00_jprb, 0.345548e+00_jprb, 0.333082e+00_jprb &
24873  &, 0.320840e+00_jprb, 0.308841e+00_jprb, 0.297079e+00_jprb &
24874  &, 0.285546e+00_jprb, 0.274281e+00_jprb, 0.263248e+00_jprb, 0.252484e+00_jprb &
24875  &, 0.241975e+00_jprb, 0.231730e+00_jprb, 0.221786e+00_jprb &
24876  &, 0.212067e+00_jprb, 0.202663e+00_jprb, 0.193493e+00_jprb, 0.184617e+00_jprb &
24877  &, 0.176009e+00_jprb, 0.167699e+00_jprb, 0.159624e+00_jprb &
24878  &, 0.151843e+00_jprb, 0.144322e+00_jprb, 0.137088e+00_jprb, 0.130099e+00_jprb &
24879  &, 0.123383e+00_jprb, 0.116893e+00_jprb, 0.110689e+00_jprb &
24880  &, 0.104723e+00_jprb, 0.990153e-01_jprb, 0.935155e-01_jprb, 0.882792e-01_jprb &
24881  &, 0.832513e-01_jprb, 0.784492e-01_jprb, 0.738912e-01_jprb &
24882  &, 0.695153e-01_jprb, 0.653775e-01_jprb, 0.614120e-01_jprb, 0.576323e-01_jprb &
24883  &, 0.540526e-01_jprb, 0.506869e-01_jprb, 0.474614e-01_jprb &
24884  &, 0.443868e-01_jprb, 0.415195e-01_jprb, 0.387802e-01_jprb, 0.362250e-01_jprb &
24885  &, 0.337701e-01_jprb, 0.314713e-01_jprb, 0.292892e-01_jprb &
24886  &, 0.272814e-01_jprb, 0.253568e-01_jprb, 0.235725e-01_jprb, 0.218847e-01_jprb &
24887  &, 0.202992e-01_jprb, 0.188224e-01_jprb, 0.174060e-01_jprb &
24888  &, 0.161092e-01_jprb, 0.148826e-01_jprb, 0.137871e-01_jprb, 0.127143e-01_jprb &
24889  &, 0.117246e-01_jprb, 0.108222e-01_jprb, 0.995186e-02_jprb &
24890  &, 0.917635e-02_jprb, 0.843878e-02_jprb, 0.774133e-02_jprb, 0.708626e-02_jprb &
24891  &, 0.647585e-02_jprb, 0.597728e-02_jprb, 0.546402e-02_jprb/)
24892 xcw( 569, :) = (/ &
24893  & 0.101401e+01_jprb, 0.101648e+01_jprb, 0.101853e+01_jprb, 0.102016e+01_jprb &
24894  &, 0.102137e+01_jprb, 0.102216e+01_jprb, 0.102252e+01_jprb &
24895  &, 0.102246e+01_jprb, 0.102197e+01_jprb, 0.102105e+01_jprb, 0.101970e+01_jprb &
24896  &, 0.101792e+01_jprb, 0.101572e+01_jprb, 0.101308e+01_jprb &
24897  &, 0.101002e+01_jprb, 0.100653e+01_jprb, 0.100261e+01_jprb, 0.998269e+00_jprb &
24898  &, 0.993504e+00_jprb, 0.988321e+00_jprb, 0.982717e+00_jprb &
24899  &, 0.976701e+00_jprb, 0.970277e+00_jprb, 0.963445e+00_jprb, 0.956211e+00_jprb &
24900  &, 0.948585e+00_jprb, 0.940566e+00_jprb, 0.932166e+00_jprb &
24901  &, 0.923386e+00_jprb, 0.914240e+00_jprb, 0.904736e+00_jprb, 0.894877e+00_jprb &
24902  &, 0.884674e+00_jprb, 0.874142e+00_jprb, 0.863284e+00_jprb &
24903  &, 0.852111e+00_jprb, 0.840645e+00_jprb, 0.828883e+00_jprb, 0.816847e+00_jprb &
24904  &, 0.804553e+00_jprb, 0.792000e+00_jprb, 0.779222e+00_jprb &
24905  &, 0.766213e+00_jprb, 0.752991e+00_jprb, 0.739589e+00_jprb, 0.725997e+00_jprb &
24906  &, 0.712240e+00_jprb, 0.698348e+00_jprb, 0.684313e+00_jprb &
24907  &, 0.670168e+00_jprb, 0.655907e+00_jprb, 0.641580e+00_jprb, 0.627168e+00_jprb &
24908  &, 0.612724e+00_jprb, 0.598229e+00_jprb, 0.583710e+00_jprb &
24909  &, 0.569191e+00_jprb, 0.554669e+00_jprb, 0.540184e+00_jprb, 0.525750e+00_jprb &
24910  &, 0.511360e+00_jprb, 0.497040e+00_jprb, 0.482799e+00_jprb &
24911  &, 0.468665e+00_jprb, 0.454645e+00_jprb, 0.440728e+00_jprb, 0.426977e+00_jprb &
24912  &, 0.413360e+00_jprb, 0.399900e+00_jprb, 0.386620e+00_jprb &
24913  &, 0.373523e+00_jprb, 0.360609e+00_jprb, 0.347922e+00_jprb, 0.335416e+00_jprb &
24914  &, 0.323153e+00_jprb, 0.311108e+00_jprb, 0.299297e+00_jprb &
24915  &, 0.287735e+00_jprb, 0.276415e+00_jprb, 0.265348e+00_jprb, 0.254548e+00_jprb &
24916  &, 0.244000e+00_jprb, 0.233714e+00_jprb, 0.223699e+00_jprb &
24917  &, 0.213961e+00_jprb, 0.204479e+00_jprb, 0.195285e+00_jprb, 0.186355e+00_jprb &
24918  &, 0.177719e+00_jprb, 0.169348e+00_jprb, 0.161241e+00_jprb &
24919  &, 0.153395e+00_jprb, 0.145837e+00_jprb, 0.138531e+00_jprb, 0.131502e+00_jprb &
24920  &, 0.124742e+00_jprb, 0.118242e+00_jprb, 0.111955e+00_jprb &
24921  &, 0.105939e+00_jprb, 0.100180e+00_jprb, 0.946625e-01_jprb, 0.893704e-01_jprb &
24922  &, 0.843224e-01_jprb, 0.794603e-01_jprb, 0.748399e-01_jprb &
24923  &, 0.704394e-01_jprb, 0.662349e-01_jprb, 0.622417e-01_jprb, 0.584332e-01_jprb &
24924  &, 0.548234e-01_jprb, 0.514264e-01_jprb, 0.481683e-01_jprb &
24925  &, 0.450599e-01_jprb, 0.421574e-01_jprb, 0.393816e-01_jprb, 0.367886e-01_jprb &
24926  &, 0.342946e-01_jprb, 0.320037e-01_jprb, 0.297804e-01_jprb &
24927  &, 0.277301e-01_jprb, 0.258121e-01_jprb, 0.239832e-01_jprb, 0.222492e-01_jprb &
24928  &, 0.206691e-01_jprb, 0.191439e-01_jprb, 0.177321e-01_jprb &
24929  &, 0.164400e-01_jprb, 0.151622e-01_jprb, 0.140139e-01_jprb, 0.129443e-01_jprb &
24930  &, 0.119577e-01_jprb, 0.109995e-01_jprb, 0.101315e-01_jprb &
24931  &, 0.935847e-02_jprb, 0.856182e-02_jprb, 0.786603e-02_jprb, 0.721262e-02_jprb &
24932  &, 0.666791e-02_jprb, 0.610701e-02_jprb, 0.559545e-02_jprb/)
24933 xcw( 570, :) = (/ &
24934  & 0.101426e+01_jprb, 0.101680e+01_jprb, 0.101892e+01_jprb, 0.102062e+01_jprb &
24935  &, 0.102189e+01_jprb, 0.102274e+01_jprb, 0.102317e+01_jprb &
24936  &, 0.102317e+01_jprb, 0.102275e+01_jprb, 0.102189e+01_jprb, 0.102061e+01_jprb &
24937  &, 0.101890e+01_jprb, 0.101675e+01_jprb, 0.101418e+01_jprb &
24938  &, 0.101118e+01_jprb, 0.100775e+01_jprb, 0.100390e+01_jprb, 0.999617e+00_jprb &
24939  &, 0.994913e+00_jprb, 0.989787e+00_jprb, 0.984245e+00_jprb &
24940  &, 0.978286e+00_jprb, 0.971919e+00_jprb, 0.965142e+00_jprb, 0.957966e+00_jprb &
24941  &, 0.950393e+00_jprb, 0.942429e+00_jprb, 0.934078e+00_jprb &
24942  &, 0.925353e+00_jprb, 0.916256e+00_jprb, 0.906798e+00_jprb, 0.896986e+00_jprb &
24943  &, 0.886832e+00_jprb, 0.876341e+00_jprb, 0.865525e+00_jprb &
24944  &, 0.854399e+00_jprb, 0.842962e+00_jprb, 0.831229e+00_jprb, 0.819243e+00_jprb &
24945  &, 0.806979e+00_jprb, 0.794466e+00_jprb, 0.781707e+00_jprb &
24946  &, 0.768727e+00_jprb, 0.755545e+00_jprb, 0.742160e+00_jprb, 0.728596e+00_jprb &
24947  &, 0.714855e+00_jprb, 0.700977e+00_jprb, 0.686955e+00_jprb &
24948  &, 0.672822e+00_jprb, 0.658585e+00_jprb, 0.644268e+00_jprb, 0.629864e+00_jprb &
24949  &, 0.615412e+00_jprb, 0.600922e+00_jprb, 0.586405e+00_jprb &
24950  &, 0.571888e+00_jprb, 0.557364e+00_jprb, 0.542878e+00_jprb, 0.528422e+00_jprb &
24951  &, 0.514025e+00_jprb, 0.499696e+00_jprb, 0.485444e+00_jprb &
24952  &, 0.471296e+00_jprb, 0.457242e+00_jprb, 0.443325e+00_jprb, 0.429534e+00_jprb &
24953  &, 0.415893e+00_jprb, 0.402427e+00_jprb, 0.389118e+00_jprb &
24954  &, 0.375990e+00_jprb, 0.363042e+00_jprb, 0.350318e+00_jprb, 0.337794e+00_jprb &
24955  &, 0.325466e+00_jprb, 0.313398e+00_jprb, 0.301562e+00_jprb &
24956  &, 0.289949e+00_jprb, 0.278573e+00_jprb, 0.267473e+00_jprb, 0.256612e+00_jprb &
24957  &, 0.246025e+00_jprb, 0.235698e+00_jprb, 0.225639e+00_jprb &
24958  &, 0.215854e+00_jprb, 0.206351e+00_jprb, 0.197106e+00_jprb, 0.188122e+00_jprb &
24959  &, 0.179428e+00_jprb, 0.170998e+00_jprb, 0.162858e+00_jprb &
24960  &, 0.154978e+00_jprb, 0.147352e+00_jprb, 0.140008e+00_jprb, 0.132938e+00_jprb &
24961  &, 0.126101e+00_jprb, 0.119555e+00_jprb, 0.113256e+00_jprb &
24962  &, 0.107191e+00_jprb, 0.101380e+00_jprb, 0.958096e-01_jprb, 0.904615e-01_jprb &
24963  &, 0.853552e-01_jprb, 0.804714e-01_jprb, 0.758281e-01_jprb &
24964  &, 0.713635e-01_jprb, 0.671332e-01_jprb, 0.631130e-01_jprb, 0.592763e-01_jprb &
24965  &, 0.556370e-01_jprb, 0.521659e-01_jprb, 0.488752e-01_jprb &
24966  &, 0.457329e-01_jprb, 0.427953e-01_jprb, 0.399831e-01_jprb, 0.373523e-01_jprb &
24967  &, 0.348668e-01_jprb, 0.324877e-01_jprb, 0.302717e-01_jprb &
24968  &, 0.281788e-01_jprb, 0.262169e-01_jprb, 0.243939e-01_jprb, 0.226659e-01_jprb &
24969  &, 0.210389e-01_jprb, 0.195191e-01_jprb, 0.180583e-01_jprb &
24970  &, 0.167157e-01_jprb, 0.154977e-01_jprb, 0.142974e-01_jprb, 0.132317e-01_jprb &
24971  &, 0.121908e-01_jprb, 0.112358e-01_jprb, 0.103711e-01_jprb &
24972  &, 0.954058e-02_jprb, 0.874639e-02_jprb, 0.805308e-02_jprb, 0.740217e-02_jprb &
24973  &, 0.679595e-02_jprb, 0.623673e-02_jprb, 0.572687e-02_jprb/)
24974 xcw( 571, :) = (/ &
24975  & 0.101452e+01_jprb, 0.101712e+01_jprb, 0.101930e+01_jprb, 0.102107e+01_jprb &
24976  &, 0.102241e+01_jprb, 0.102333e+01_jprb, 0.102382e+01_jprb &
24977  &, 0.102389e+01_jprb, 0.102352e+01_jprb, 0.102274e+01_jprb, 0.102152e+01_jprb &
24978  &, 0.101987e+01_jprb, 0.101779e+01_jprb, 0.101528e+01_jprb &
24979  &, 0.101234e+01_jprb, 0.100898e+01_jprb, 0.100518e+01_jprb, 0.100096e+01_jprb &
24980  &, 0.996321e+00_jprb, 0.991255e+00_jprb, 0.985772e+00_jprb &
24981  &, 0.979874e+00_jprb, 0.973564e+00_jprb, 0.966843e+00_jprb, 0.959724e+00_jprb &
24982  &, 0.952204e+00_jprb, 0.944292e+00_jprb, 0.935998e+00_jprb &
24983  &, 0.927320e+00_jprb, 0.918275e+00_jprb, 0.908864e+00_jprb, 0.899103e+00_jprb &
24984  &, 0.888989e+00_jprb, 0.878544e+00_jprb, 0.867775e+00_jprb &
24985  &, 0.856687e+00_jprb, 0.845289e+00_jprb, 0.833606e+00_jprb, 0.821649e+00_jprb &
24986  &, 0.809415e+00_jprb, 0.796932e+00_jprb, 0.784213e+00_jprb &
24987  &, 0.771263e+00_jprb, 0.758099e+00_jprb, 0.744731e+00_jprb, 0.731196e+00_jprb &
24988  &, 0.717482e+00_jprb, 0.703618e+00_jprb, 0.689623e+00_jprb &
24989  &, 0.675503e+00_jprb, 0.661277e+00_jprb, 0.646955e+00_jprb, 0.632560e+00_jprb &
24990  &, 0.618114e+00_jprb, 0.603629e+00_jprb, 0.589116e+00_jprb &
24991  &, 0.574600e+00_jprb, 0.560076e+00_jprb, 0.545587e+00_jprb, 0.531111e+00_jprb &
24992  &, 0.516707e+00_jprb, 0.502369e+00_jprb, 0.488106e+00_jprb &
24993  &, 0.473927e+00_jprb, 0.459857e+00_jprb, 0.445922e+00_jprb, 0.432111e+00_jprb &
24994  &, 0.418446e+00_jprb, 0.404954e+00_jprb, 0.391617e+00_jprb &
24995  &, 0.378457e+00_jprb, 0.365476e+00_jprb, 0.352714e+00_jprb, 0.340150e+00_jprb &
24996  &, 0.327802e+00_jprb, 0.315688e+00_jprb, 0.303803e+00_jprb &
24997  &, 0.292162e+00_jprb, 0.280756e+00_jprb, 0.269623e+00_jprb, 0.258727e+00_jprb &
24998  &, 0.248077e+00_jprb, 0.237709e+00_jprb, 0.227606e+00_jprb &
24999  &, 0.217776e+00_jprb, 0.208196e+00_jprb, 0.198928e+00_jprb, 0.189889e+00_jprb &
25000  &, 0.181138e+00_jprb, 0.172677e+00_jprb, 0.164476e+00_jprb &
25001  &, 0.156562e+00_jprb, 0.148900e+00_jprb, 0.141484e+00_jprb, 0.134373e+00_jprb &
25002  &, 0.127494e+00_jprb, 0.120904e+00_jprb, 0.114558e+00_jprb &
25003  &, 0.108443e+00_jprb, 0.102581e+00_jprb, 0.969567e-01_jprb, 0.915903e-01_jprb &
25004  &, 0.864263e-01_jprb, 0.815214e-01_jprb, 0.768164e-01_jprb &
25005  &, 0.723277e-01_jprb, 0.680314e-01_jprb, 0.639842e-01_jprb, 0.600772e-01_jprb &
25006  &, 0.564078e-01_jprb, 0.529053e-01_jprb, 0.495821e-01_jprb &
25007  &, 0.464508e-01_jprb, 0.434332e-01_jprb, 0.406308e-01_jprb, 0.379629e-01_jprb &
25008  &, 0.354390e-01_jprb, 0.330201e-01_jprb, 0.308121e-01_jprb &
25009  &, 0.286774e-01_jprb, 0.266722e-01_jprb, 0.248046e-01_jprb, 0.230305e-01_jprb &
25010  &, 0.214088e-01_jprb, 0.198407e-01_jprb, 0.183845e-01_jprb &
25011  &, 0.170465e-01_jprb, 0.157772e-01_jprb, 0.145809e-01_jprb, 0.134616e-01_jprb &
25012  &, 0.124239e-01_jprb, 0.114721e-01_jprb, 0.105508e-01_jprb &
25013  &, 0.972269e-02_jprb, 0.893097e-02_jprb, 0.824013e-02_jprb, 0.759171e-02_jprb &
25014  &, 0.692398e-02_jprb, 0.636645e-02_jprb, 0.585829e-02_jprb/)
25015 xcw( 572, :) = (/ &
25016  & 0.101478e+01_jprb, 0.101744e+01_jprb, 0.101969e+01_jprb, 0.102152e+01_jprb &
25017  &, 0.102293e+01_jprb, 0.102391e+01_jprb, 0.102447e+01_jprb &
25018  &, 0.102460e+01_jprb, 0.102430e+01_jprb, 0.102358e+01_jprb, 0.102243e+01_jprb &
25019  &, 0.102084e+01_jprb, 0.101883e+01_jprb, 0.101638e+01_jprb &
25020  &, 0.101351e+01_jprb, 0.101020e+01_jprb, 0.100647e+01_jprb, 0.100231e+01_jprb &
25021  &, 0.997732e+00_jprb, 0.992728e+00_jprb, 0.987302e+00_jprb &
25022  &, 0.981462e+00_jprb, 0.975208e+00_jprb, 0.968547e+00_jprb, 0.961483e+00_jprb &
25023  &, 0.954019e+00_jprb, 0.946162e+00_jprb, 0.937917e+00_jprb &
25024  &, 0.929294e+00_jprb, 0.920299e+00_jprb, 0.910938e+00_jprb, 0.901221e+00_jprb &
25025  &, 0.891156e+00_jprb, 0.880756e+00_jprb, 0.870024e+00_jprb &
25026  &, 0.858975e+00_jprb, 0.847625e+00_jprb, 0.835982e+00_jprb, 0.824055e+00_jprb &
25027  &, 0.811861e+00_jprb, 0.799409e+00_jprb, 0.786720e+00_jprb &
25028  &, 0.773799e+00_jprb, 0.760653e+00_jprb, 0.747326e+00_jprb, 0.733807e+00_jprb &
25029  &, 0.720109e+00_jprb, 0.706273e+00_jprb, 0.692278e+00_jprb &
25030  &, 0.678183e+00_jprb, 0.663969e+00_jprb, 0.649657e+00_jprb, 0.635270e+00_jprb &
25031  &, 0.620831e+00_jprb, 0.606351e+00_jprb, 0.591841e+00_jprb &
25032  &, 0.577312e+00_jprb, 0.562788e+00_jprb, 0.548297e+00_jprb, 0.533816e+00_jprb &
25033  &, 0.519406e+00_jprb, 0.505043e+00_jprb, 0.490769e+00_jprb &
25034  &, 0.476577e+00_jprb, 0.462491e+00_jprb, 0.448538e+00_jprb, 0.434706e+00_jprb &
25035  &, 0.421019e+00_jprb, 0.407481e+00_jprb, 0.394116e+00_jprb &
25036  &, 0.380925e+00_jprb, 0.367930e+00_jprb, 0.355132e+00_jprb, 0.342551e+00_jprb &
25037  &, 0.330161e+00_jprb, 0.318002e+00_jprb, 0.306092e+00_jprb &
25038  &, 0.294399e+00_jprb, 0.282964e+00_jprb, 0.271774e+00_jprb, 0.260816e+00_jprb &
25039  &, 0.250154e+00_jprb, 0.239720e+00_jprb, 0.229574e+00_jprb &
25040  &, 0.219697e+00_jprb, 0.210097e+00_jprb, 0.200749e+00_jprb, 0.191685e+00_jprb &
25041  &, 0.182878e+00_jprb, 0.174357e+00_jprb, 0.166124e+00_jprb &
25042  &, 0.158145e+00_jprb, 0.150447e+00_jprb, 0.142993e+00_jprb, 0.135809e+00_jprb &
25043  &, 0.128921e+00_jprb, 0.122252e+00_jprb, 0.115859e+00_jprb &
25044  &, 0.109695e+00_jprb, 0.103782e+00_jprb, 0.981408e-01_jprb, 0.927190e-01_jprb &
25045  &, 0.875357e-01_jprb, 0.825714e-01_jprb, 0.778046e-01_jprb &
25046  &, 0.732919e-01_jprb, 0.689705e-01_jprb, 0.648554e-01_jprb, 0.609202e-01_jprb &
25047  &, 0.572215e-01_jprb, 0.536883e-01_jprb, 0.502890e-01_jprb &
25048  &, 0.471239e-01_jprb, 0.441167e-01_jprb, 0.412322e-01_jprb, 0.385266e-01_jprb &
25049  &, 0.360112e-01_jprb, 0.335525e-01_jprb, 0.313033e-01_jprb &
25050  &, 0.291759e-01_jprb, 0.271275e-01_jprb, 0.252666e-01_jprb, 0.234471e-01_jprb &
25051  &, 0.217786e-01_jprb, 0.202159e-01_jprb, 0.187107e-01_jprb &
25052  &, 0.173773e-01_jprb, 0.160568e-01_jprb, 0.148643e-01_jprb, 0.137491e-01_jprb &
25053  &, 0.126571e-01_jprb, 0.117085e-01_jprb, 0.107903e-01_jprb &
25054  &, 0.996551e-02_jprb, 0.911554e-02_jprb, 0.842717e-02_jprb, 0.771807e-02_jprb &
25055  &, 0.711604e-02_jprb, 0.649618e-02_jprb, 0.598971e-02_jprb/)
25056 xcw( 573, :) = (/ &
25057  & 0.101504e+01_jprb, 0.101777e+01_jprb, 0.102008e+01_jprb, 0.102197e+01_jprb &
25058  &, 0.102345e+01_jprb, 0.102449e+01_jprb, 0.102512e+01_jprb &
25059  &, 0.102531e+01_jprb, 0.102508e+01_jprb, 0.102442e+01_jprb, 0.102333e+01_jprb &
25060  &, 0.102181e+01_jprb, 0.101986e+01_jprb, 0.101748e+01_jprb &
25061  &, 0.101467e+01_jprb, 0.101143e+01_jprb, 0.100776e+01_jprb, 0.100367e+01_jprb &
25062  &, 0.999145e+00_jprb, 0.994200e+00_jprb, 0.988836e+00_jprb &
25063  &, 0.983053e+00_jprb, 0.976860e+00_jprb, 0.970254e+00_jprb, 0.963245e+00_jprb &
25064  &, 0.955838e+00_jprb, 0.948032e+00_jprb, 0.939844e+00_jprb &
25065  &, 0.931269e+00_jprb, 0.922326e+00_jprb, 0.913011e+00_jprb, 0.903342e+00_jprb &
25066  &, 0.893326e+00_jprb, 0.882968e+00_jprb, 0.872283e+00_jprb &
25067  &, 0.861273e+00_jprb, 0.849962e+00_jprb, 0.838358e+00_jprb, 0.826471e+00_jprb &
25068  &, 0.814308e+00_jprb, 0.801896e+00_jprb, 0.789226e+00_jprb &
25069  &, 0.776335e+00_jprb, 0.763230e+00_jprb, 0.749920e+00_jprb, 0.736418e+00_jprb &
25070  &, 0.722748e+00_jprb, 0.708927e+00_jprb, 0.694959e+00_jprb &
25071  &, 0.680864e+00_jprb, 0.666661e+00_jprb, 0.652372e+00_jprb, 0.637994e+00_jprb &
25072  &, 0.623562e+00_jprb, 0.609088e+00_jprb, 0.594567e+00_jprb &
25073  &, 0.580039e+00_jprb, 0.565515e+00_jprb, 0.551006e+00_jprb, 0.536538e+00_jprb &
25074  &, 0.522105e+00_jprb, 0.507733e+00_jprb, 0.493449e+00_jprb &
25075  &, 0.479244e+00_jprb, 0.465144e+00_jprb, 0.451155e+00_jprb, 0.437302e+00_jprb &
25076  &, 0.423592e+00_jprb, 0.410049e+00_jprb, 0.396656e+00_jprb &
25077  &, 0.383434e+00_jprb, 0.370406e+00_jprb, 0.357572e+00_jprb, 0.344929e+00_jprb &
25078  &, 0.332519e+00_jprb, 0.320338e+00_jprb, 0.308380e+00_jprb &
25079  &, 0.296637e+00_jprb, 0.285172e+00_jprb, 0.273924e+00_jprb, 0.262958e+00_jprb &
25080  &, 0.252232e+00_jprb, 0.241757e+00_jprb, 0.231568e+00_jprb &
25081  &, 0.221647e+00_jprb, 0.211970e+00_jprb, 0.202599e+00_jprb, 0.193481e+00_jprb &
25082  &, 0.184647e+00_jprb, 0.176068e+00_jprb, 0.167773e+00_jprb &
25083  &, 0.159760e+00_jprb, 0.151994e+00_jprb, 0.144502e+00_jprb, 0.137278e+00_jprb &
25084  &, 0.130314e+00_jprb, 0.123635e+00_jprb, 0.117160e+00_jprb &
25085  &, 0.110983e+00_jprb, 0.105019e+00_jprb, 0.993249e-01_jprb, 0.938478e-01_jprb &
25086  &, 0.886068e-01_jprb, 0.836214e-01_jprb, 0.788324e-01_jprb &
25087  &, 0.742562e-01_jprb, 0.699095e-01_jprb, 0.657267e-01_jprb, 0.617632e-01_jprb &
25088  &, 0.580351e-01_jprb, 0.544278e-01_jprb, 0.510401e-01_jprb &
25089  &, 0.478418e-01_jprb, 0.447546e-01_jprb, 0.418799e-01_jprb, 0.391372e-01_jprb &
25090  &, 0.365834e-01_jprb, 0.341334e-01_jprb, 0.317946e-01_jprb &
25091  &, 0.296246e-01_jprb, 0.275829e-01_jprb, 0.256772e-01_jprb, 0.238638e-01_jprb &
25092  &, 0.221485e-01_jprb, 0.205911e-01_jprb, 0.190912e-01_jprb &
25093  &, 0.177081e-01_jprb, 0.163923e-01_jprb, 0.151478e-01_jprb, 0.139790e-01_jprb &
25094  &, 0.129485e-01_jprb, 0.119448e-01_jprb, 0.110299e-01_jprb &
25095  &, 0.101476e-01_jprb, 0.936163e-02_jprb, 0.861422e-02_jprb, 0.790761e-02_jprb &
25096  &, 0.724407e-02_jprb, 0.662590e-02_jprb, 0.612114e-02_jprb/)
25097 xcw( 574, :) = (/ &
25098  & 0.101529e+01_jprb, 0.101809e+01_jprb, 0.102047e+01_jprb, 0.102243e+01_jprb &
25099  &, 0.102396e+01_jprb, 0.102508e+01_jprb, 0.102577e+01_jprb &
25100  &, 0.102603e+01_jprb, 0.102586e+01_jprb, 0.102527e+01_jprb, 0.102425e+01_jprb &
25101  &, 0.102279e+01_jprb, 0.102090e+01_jprb, 0.101859e+01_jprb &
25102  &, 0.101584e+01_jprb, 0.101266e+01_jprb, 0.100905e+01_jprb, 0.100502e+01_jprb &
25103  &, 0.100056e+01_jprb, 0.995675e+00_jprb, 0.990373e+00_jprb &
25104  &, 0.984648e+00_jprb, 0.978512e+00_jprb, 0.971965e+00_jprb, 0.965011e+00_jprb &
25105  &, 0.957657e+00_jprb, 0.949909e+00_jprb, 0.941771e+00_jprb &
25106  &, 0.933251e+00_jprb, 0.924354e+00_jprb, 0.915094e+00_jprb, 0.905472e+00_jprb &
25107  &, 0.895501e+00_jprb, 0.885189e+00_jprb, 0.874547e+00_jprb &
25108  &, 0.863580e+00_jprb, 0.852308e+00_jprb, 0.840744e+00_jprb, 0.828888e+00_jprb &
25109  &, 0.816764e+00_jprb, 0.804383e+00_jprb, 0.791754e+00_jprb &
25110  &, 0.778882e+00_jprb, 0.765807e+00_jprb, 0.752515e+00_jprb, 0.739041e+00_jprb &
25111  &, 0.725400e+00_jprb, 0.711594e+00_jprb, 0.697640e+00_jprb &
25112  &, 0.683557e+00_jprb, 0.669379e+00_jprb, 0.655088e+00_jprb, 0.640732e+00_jprb &
25113  &, 0.626293e+00_jprb, 0.611825e+00_jprb, 0.597308e+00_jprb &
25114  &, 0.582782e+00_jprb, 0.568259e+00_jprb, 0.553748e+00_jprb, 0.539260e+00_jprb &
25115  &, 0.524821e+00_jprb, 0.510441e+00_jprb, 0.496130e+00_jprb &
25116  &, 0.481912e+00_jprb, 0.467796e+00_jprb, 0.453809e+00_jprb, 0.439917e+00_jprb &
25117  &, 0.426185e+00_jprb, 0.412596e+00_jprb, 0.399196e+00_jprb &
25118  &, 0.385944e+00_jprb, 0.372883e+00_jprb, 0.360012e+00_jprb, 0.347353e+00_jprb &
25119  &, 0.334901e+00_jprb, 0.322675e+00_jprb, 0.310669e+00_jprb &
25120  &, 0.298899e+00_jprb, 0.287379e+00_jprb, 0.276100e+00_jprb, 0.265073e+00_jprb &
25121  &, 0.254310e+00_jprb, 0.243822e+00_jprb, 0.233563e+00_jprb &
25122  &, 0.223596e+00_jprb, 0.213899e+00_jprb, 0.204449e+00_jprb, 0.195307e+00_jprb &
25123  &, 0.186417e+00_jprb, 0.177778e+00_jprb, 0.169452e+00_jprb &
25124  &, 0.161375e+00_jprb, 0.153574e+00_jprb, 0.146044e+00_jprb, 0.138748e+00_jprb &
25125  &, 0.131741e+00_jprb, 0.124983e+00_jprb, 0.118497e+00_jprb &
25126  &, 0.112271e+00_jprb, 0.106256e+00_jprb, 0.100509e+00_jprb, 0.950142e-01_jprb &
25127  &, 0.897162e-01_jprb, 0.846715e-01_jprb, 0.798602e-01_jprb &
25128  &, 0.752204e-01_jprb, 0.708486e-01_jprb, 0.666394e-01_jprb, 0.626484e-01_jprb &
25129  &, 0.588487e-01_jprb, 0.552108e-01_jprb, 0.517912e-01_jprb &
25130  &, 0.485597e-01_jprb, 0.454381e-01_jprb, 0.425276e-01_jprb, 0.397478e-01_jprb &
25131  &, 0.371556e-01_jprb, 0.346658e-01_jprb, 0.323350e-01_jprb &
25132  &, 0.301232e-01_jprb, 0.280888e-01_jprb, 0.261393e-01_jprb, 0.242805e-01_jprb &
25133  &, 0.225712e-01_jprb, 0.209662e-01_jprb, 0.194174e-01_jprb &
25134  &, 0.179838e-01_jprb, 0.166718e-01_jprb, 0.154313e-01_jprb, 0.142664e-01_jprb &
25135  &, 0.131816e-01_jprb, 0.121811e-01_jprb, 0.112096e-01_jprb &
25136  &, 0.103297e-01_jprb, 0.954621e-02_jprb, 0.880127e-02_jprb, 0.809716e-02_jprb &
25137  &, 0.743613e-02_jprb, 0.682048e-02_jprb, 0.625256e-02_jprb/)
25138 
25139 IF (lhook) CALL dr_hook('SU_MCICA:PART82',1,zhook_handle)
25140 END SUBROUTINE part82
25141 
25142 #ifdef VPP5000
25143 !OCL SCALAR
25144 #endif
25145 !option! -Nv -NO
25146 #ifdef RS6K
25147 @process nooptimize
25148 #endif
25149 !pgi$r opt=0
25150 SUBROUTINE part83
25151 
25152 REAL(KIND=JPRB) :: ZHOOK_HANDLE
25153 IF (lhook) CALL dr_hook('SU_MCICA:PART83',0,zhook_handle)
25154 
25155 xcw( 575, :) = (/ &
25156  & 0.101555e+01_jprb, 0.101841e+01_jprb, 0.102086e+01_jprb, 0.102288e+01_jprb &
25157  &, 0.102448e+01_jprb, 0.102566e+01_jprb, 0.102642e+01_jprb &
25158  &, 0.102675e+01_jprb, 0.102665e+01_jprb, 0.102612e+01_jprb, 0.102516e+01_jprb &
25159  &, 0.102376e+01_jprb, 0.102194e+01_jprb, 0.101969e+01_jprb &
25160  &, 0.101701e+01_jprb, 0.101389e+01_jprb, 0.101035e+01_jprb, 0.100638e+01_jprb &
25161  &, 0.100198e+01_jprb, 0.997153e+00_jprb, 0.991910e+00_jprb &
25162  &, 0.986246e+00_jprb, 0.980167e+00_jprb, 0.973676e+00_jprb, 0.966780e+00_jprb &
25163  &, 0.959482e+00_jprb, 0.951787e+00_jprb, 0.943702e+00_jprb &
25164  &, 0.935234e+00_jprb, 0.926389e+00_jprb, 0.917176e+00_jprb, 0.907602e+00_jprb &
25165  &, 0.897676e+00_jprb, 0.887410e+00_jprb, 0.876815e+00_jprb &
25166  &, 0.865896e+00_jprb, 0.854664e+00_jprb, 0.843130e+00_jprb, 0.831314e+00_jprb &
25167  &, 0.819221e+00_jprb, 0.806870e+00_jprb, 0.794271e+00_jprb &
25168  &, 0.781440e+00_jprb, 0.768384e+00_jprb, 0.755133e+00_jprb, 0.741677e+00_jprb &
25169  &, 0.728051e+00_jprb, 0.714260e+00_jprb, 0.700334e+00_jprb &
25170  &, 0.686264e+00_jprb, 0.672098e+00_jprb, 0.657817e+00_jprb, 0.643470e+00_jprb &
25171  &, 0.629039e+00_jprb, 0.614577e+00_jprb, 0.600064e+00_jprb &
25172  &, 0.585541e+00_jprb, 0.571002e+00_jprb, 0.556490e+00_jprb, 0.541999e+00_jprb &
25173  &, 0.527554e+00_jprb, 0.513167e+00_jprb, 0.498845e+00_jprb &
25174  &, 0.484597e+00_jprb, 0.470467e+00_jprb, 0.456444e+00_jprb, 0.442552e+00_jprb &
25175  &, 0.428798e+00_jprb, 0.415184e+00_jprb, 0.401735e+00_jprb &
25176  &, 0.388474e+00_jprb, 0.375380e+00_jprb, 0.362474e+00_jprb, 0.349776e+00_jprb &
25177  &, 0.337283e+00_jprb, 0.325035e+00_jprb, 0.312982e+00_jprb &
25178  &, 0.301185e+00_jprb, 0.289612e+00_jprb, 0.278301e+00_jprb, 0.267240e+00_jprb &
25179  &, 0.256414e+00_jprb, 0.245859e+00_jprb, 0.235585e+00_jprb &
25180  &, 0.225573e+00_jprb, 0.215800e+00_jprb, 0.206328e+00_jprb, 0.197133e+00_jprb &
25181  &, 0.188186e+00_jprb, 0.179519e+00_jprb, 0.171132e+00_jprb &
25182  &, 0.162990e+00_jprb, 0.155153e+00_jprb, 0.147554e+00_jprb, 0.140250e+00_jprb &
25183  &, 0.133202e+00_jprb, 0.126400e+00_jprb, 0.119868e+00_jprb &
25184  &, 0.113559e+00_jprb, 0.107530e+00_jprb, 0.101730e+00_jprb, 0.961806e-01_jprb &
25185  &, 0.908256e-01_jprb, 0.857603e-01_jprb, 0.808880e-01_jprb &
25186  &, 0.762248e-01_jprb, 0.717877e-01_jprb, 0.675521e-01_jprb, 0.634915e-01_jprb &
25187  &, 0.596624e-01_jprb, 0.560373e-01_jprb, 0.525423e-01_jprb &
25188  &, 0.492777e-01_jprb, 0.461215e-01_jprb, 0.431754e-01_jprb, 0.403585e-01_jprb &
25189  &, 0.377278e-01_jprb, 0.352466e-01_jprb, 0.328754e-01_jprb &
25190  &, 0.306218e-01_jprb, 0.285441e-01_jprb, 0.265499e-01_jprb, 0.246971e-01_jprb &
25191  &, 0.229411e-01_jprb, 0.213414e-01_jprb, 0.197979e-01_jprb &
25192  &, 0.183697e-01_jprb, 0.170073e-01_jprb, 0.157148e-01_jprb, 0.145539e-01_jprb &
25193  &, 0.134730e-01_jprb, 0.124174e-01_jprb, 0.114491e-01_jprb &
25194  &, 0.105726e-01_jprb, 0.973078e-02_jprb, 0.898832e-02_jprb, 0.822352e-02_jprb &
25195  &, 0.756417e-02_jprb, 0.695021e-02_jprb, 0.638398e-02_jprb/)
25196 xcw( 576, :) = (/ &
25197  & 0.101581e+01_jprb, 0.101874e+01_jprb, 0.102125e+01_jprb, 0.102334e+01_jprb &
25198  &, 0.102500e+01_jprb, 0.102625e+01_jprb, 0.102707e+01_jprb &
25199  &, 0.102746e+01_jprb, 0.102743e+01_jprb, 0.102696e+01_jprb, 0.102607e+01_jprb &
25200  &, 0.102474e+01_jprb, 0.102299e+01_jprb, 0.102080e+01_jprb &
25201  &, 0.101818e+01_jprb, 0.101512e+01_jprb, 0.101164e+01_jprb, 0.100773e+01_jprb &
25202  &, 0.100340e+01_jprb, 0.998622e+00_jprb, 0.993450e+00_jprb &
25203  &, 0.987844e+00_jprb, 0.981825e+00_jprb, 0.975391e+00_jprb, 0.968552e+00_jprb &
25204  &, 0.961308e+00_jprb, 0.953668e+00_jprb, 0.945637e+00_jprb &
25205  &, 0.937220e+00_jprb, 0.928429e+00_jprb, 0.919266e+00_jprb, 0.909741e+00_jprb &
25206  &, 0.899860e+00_jprb, 0.889640e+00_jprb, 0.879087e+00_jprb &
25207  &, 0.868202e+00_jprb, 0.857019e+00_jprb, 0.845525e+00_jprb, 0.833750e+00_jprb &
25208  &, 0.821698e+00_jprb, 0.809378e+00_jprb, 0.796810e+00_jprb &
25209  &, 0.784009e+00_jprb, 0.770983e+00_jprb, 0.757739e+00_jprb, 0.744324e+00_jprb &
25210  &, 0.730715e+00_jprb, 0.716952e+00_jprb, 0.703027e+00_jprb &
25211  &, 0.688984e+00_jprb, 0.674817e+00_jprb, 0.660560e+00_jprb, 0.646208e+00_jprb &
25212  &, 0.631799e+00_jprb, 0.617328e+00_jprb, 0.602820e+00_jprb &
25213  &, 0.588299e+00_jprb, 0.573761e+00_jprb, 0.559248e+00_jprb, 0.544754e+00_jprb &
25214  &, 0.530287e+00_jprb, 0.515893e+00_jprb, 0.501561e+00_jprb &
25215  &, 0.487301e+00_jprb, 0.473157e+00_jprb, 0.459117e+00_jprb, 0.445186e+00_jprb &
25216  &, 0.431410e+00_jprb, 0.417772e+00_jprb, 0.404296e+00_jprb &
25217  &, 0.391005e+00_jprb, 0.377878e+00_jprb, 0.364958e+00_jprb, 0.352222e+00_jprb &
25218  &, 0.339687e+00_jprb, 0.327396e+00_jprb, 0.315318e+00_jprb &
25219  &, 0.303471e+00_jprb, 0.291870e+00_jprb, 0.280502e+00_jprb, 0.269407e+00_jprb &
25220  &, 0.258544e+00_jprb, 0.247950e+00_jprb, 0.237607e+00_jprb &
25221  &, 0.227550e+00_jprb, 0.217758e+00_jprb, 0.208236e+00_jprb, 0.198958e+00_jprb &
25222  &, 0.189986e+00_jprb, 0.181260e+00_jprb, 0.172811e+00_jprb &
25223  &, 0.164668e+00_jprb, 0.156765e+00_jprb, 0.149129e+00_jprb, 0.141753e+00_jprb &
25224  &, 0.134629e+00_jprb, 0.127783e+00_jprb, 0.121205e+00_jprb &
25225  &, 0.114883e+00_jprb, 0.108803e+00_jprb, 0.102951e+00_jprb, 0.973470e-01_jprb &
25226  &, 0.919732e-01_jprb, 0.868492e-01_jprb, 0.819157e-01_jprb &
25227  &, 0.772292e-01_jprb, 0.727267e-01_jprb, 0.684649e-01_jprb, 0.643767e-01_jprb &
25228  &, 0.605188e-01_jprb, 0.568203e-01_jprb, 0.533376e-01_jprb &
25229  &, 0.499956e-01_jprb, 0.468506e-01_jprb, 0.438231e-01_jprb, 0.410161e-01_jprb &
25230  &, 0.383477e-01_jprb, 0.357790e-01_jprb, 0.334158e-01_jprb &
25231  &, 0.311702e-01_jprb, 0.290500e-01_jprb, 0.270119e-01_jprb, 0.251659e-01_jprb &
25232  &, 0.233637e-01_jprb, 0.217166e-01_jprb, 0.201785e-01_jprb &
25233  &, 0.187005e-01_jprb, 0.173428e-01_jprb, 0.160549e-01_jprb, 0.148413e-01_jprb &
25234  &, 0.137061e-01_jprb, 0.126538e-01_jprb, 0.116887e-01_jprb &
25235  &, 0.108154e-01_jprb, 0.991535e-02_jprb, 0.917537e-02_jprb, 0.841306e-02_jprb &
25236  &, 0.775622e-02_jprb, 0.714479e-02_jprb, 0.651540e-02_jprb/)
25237 xcw( 577, :) = (/ &
25238  & 0.101607e+01_jprb, 0.101906e+01_jprb, 0.102163e+01_jprb, 0.102379e+01_jprb &
25239  &, 0.102552e+01_jprb, 0.102684e+01_jprb, 0.102772e+01_jprb &
25240  &, 0.102818e+01_jprb, 0.102821e+01_jprb, 0.102781e+01_jprb, 0.102698e+01_jprb &
25241  &, 0.102572e+01_jprb, 0.102403e+01_jprb, 0.102190e+01_jprb &
25242  &, 0.101935e+01_jprb, 0.101636e+01_jprb, 0.101294e+01_jprb, 0.100909e+01_jprb &
25243  &, 0.100482e+01_jprb, 0.100012e+01_jprb, 0.994990e+00_jprb &
25244  &, 0.989446e+00_jprb, 0.983484e+00_jprb, 0.977109e+00_jprb, 0.970328e+00_jprb &
25245  &, 0.963127e+00_jprb, 0.955553e+00_jprb, 0.947576e+00_jprb &
25246  &, 0.939214e+00_jprb, 0.930472e+00_jprb, 0.921356e+00_jprb, 0.911879e+00_jprb &
25247  &, 0.902043e+00_jprb, 0.891874e+00_jprb, 0.881364e+00_jprb &
25248  &, 0.870528e+00_jprb, 0.859375e+00_jprb, 0.847931e+00_jprb, 0.836186e+00_jprb &
25249  &, 0.824165e+00_jprb, 0.811886e+00_jprb, 0.799349e+00_jprb &
25250  &, 0.786579e+00_jprb, 0.773571e+00_jprb, 0.760369e+00_jprb, 0.746971e+00_jprb &
25251  &, 0.733379e+00_jprb, 0.719631e+00_jprb, 0.705695e+00_jprb &
25252  &, 0.691704e+00_jprb, 0.677562e+00_jprb, 0.663303e+00_jprb, 0.648975e+00_jprb &
25253  &, 0.634560e+00_jprb, 0.620095e+00_jprb, 0.605591e+00_jprb &
25254  &, 0.591073e+00_jprb, 0.576536e+00_jprb, 0.562006e+00_jprb, 0.547509e+00_jprb &
25255  &, 0.533037e+00_jprb, 0.518635e+00_jprb, 0.504277e+00_jprb &
25256  &, 0.490023e+00_jprb, 0.475846e+00_jprb, 0.461790e+00_jprb, 0.447840e+00_jprb &
25257  &, 0.434042e+00_jprb, 0.420380e+00_jprb, 0.406877e+00_jprb &
25258  &, 0.393556e+00_jprb, 0.380397e+00_jprb, 0.367442e+00_jprb, 0.354668e+00_jprb &
25259  &, 0.342115e+00_jprb, 0.329779e+00_jprb, 0.317655e+00_jprb &
25260  &, 0.305782e+00_jprb, 0.294127e+00_jprb, 0.282728e+00_jprb, 0.271574e+00_jprb &
25261  &, 0.260675e+00_jprb, 0.250042e+00_jprb, 0.239657e+00_jprb &
25262  &, 0.229555e+00_jprb, 0.219716e+00_jprb, 0.210115e+00_jprb, 0.200814e+00_jprb &
25263  &, 0.191786e+00_jprb, 0.183032e+00_jprb, 0.174522e+00_jprb &
25264  &, 0.166314e+00_jprb, 0.158377e+00_jprb, 0.150671e+00_jprb, 0.143255e+00_jprb &
25265  &, 0.136124e+00_jprb, 0.129235e+00_jprb, 0.122576e+00_jprb &
25266  &, 0.116206e+00_jprb, 0.110077e+00_jprb, 0.104172e+00_jprb, 0.985133e-01_jprb &
25267  &, 0.931208e-01_jprb, 0.879381e-01_jprb, 0.829830e-01_jprb &
25268  &, 0.782337e-01_jprb, 0.737066e-01_jprb, 0.693776e-01_jprb, 0.652619e-01_jprb &
25269  &, 0.613753e-01_jprb, 0.576468e-01_jprb, 0.540887e-01_jprb &
25270  &, 0.507135e-01_jprb, 0.475341e-01_jprb, 0.445170e-01_jprb, 0.416267e-01_jprb &
25271  &, 0.389199e-01_jprb, 0.363599e-01_jprb, 0.339562e-01_jprb &
25272  &, 0.316687e-01_jprb, 0.295054e-01_jprb, 0.274740e-01_jprb, 0.255825e-01_jprb &
25273  &, 0.237864e-01_jprb, 0.220918e-01_jprb, 0.205046e-01_jprb &
25274  &, 0.190313e-01_jprb, 0.176223e-01_jprb, 0.163384e-01_jprb, 0.151287e-01_jprb &
25275  &, 0.139975e-01_jprb, 0.129492e-01_jprb, 0.119283e-01_jprb &
25276  &, 0.109975e-01_jprb, 0.101614e-01_jprb, 0.936241e-02_jprb, 0.860260e-02_jprb &
25277  &, 0.788426e-02_jprb, 0.727452e-02_jprb, 0.664683e-02_jprb/)
25278 xcw( 578, :) = (/ &
25279  & 0.101633e+01_jprb, 0.101938e+01_jprb, 0.102202e+01_jprb, 0.102425e+01_jprb &
25280  &, 0.102605e+01_jprb, 0.102742e+01_jprb, 0.102837e+01_jprb &
25281  &, 0.102890e+01_jprb, 0.102899e+01_jprb, 0.102866e+01_jprb, 0.102790e+01_jprb &
25282  &, 0.102670e+01_jprb, 0.102507e+01_jprb, 0.102301e+01_jprb &
25283  &, 0.102052e+01_jprb, 0.101758e+01_jprb, 0.101424e+01_jprb, 0.101045e+01_jprb &
25284  &, 0.100624e+01_jprb, 0.100160e+01_jprb, 0.996530e+00_jprb &
25285  &, 0.991051e+00_jprb, 0.985149e+00_jprb, 0.978830e+00_jprb, 0.972105e+00_jprb &
25286  &, 0.964975e+00_jprb, 0.957442e+00_jprb, 0.949518e+00_jprb &
25287  &, 0.941208e+00_jprb, 0.932516e+00_jprb, 0.923455e+00_jprb, 0.914026e+00_jprb &
25288  &, 0.904244e+00_jprb, 0.894113e+00_jprb, 0.883646e+00_jprb &
25289  &, 0.872853e+00_jprb, 0.861673e+00_jprb, 0.850336e+00_jprb, 0.838632e+00_jprb &
25290  &, 0.826642e+00_jprb, 0.814394e+00_jprb, 0.801898e+00_jprb &
25291  &, 0.789148e+00_jprb, 0.776182e+00_jprb, 0.762998e+00_jprb, 0.749618e+00_jprb &
25292  &, 0.736067e+00_jprb, 0.722336e+00_jprb, 0.708453e+00_jprb &
25293  &, 0.694437e+00_jprb, 0.680308e+00_jprb, 0.666073e+00_jprb, 0.651741e+00_jprb &
25294  &, 0.637334e+00_jprb, 0.622876e+00_jprb, 0.608377e+00_jprb &
25295  &, 0.593847e+00_jprb, 0.579312e+00_jprb, 0.564780e+00_jprb, 0.550280e+00_jprb &
25296  &, 0.535804e+00_jprb, 0.521378e+00_jprb, 0.507028e+00_jprb &
25297  &, 0.492745e+00_jprb, 0.478555e+00_jprb, 0.464482e+00_jprb, 0.450514e+00_jprb &
25298  &, 0.436694e+00_jprb, 0.423009e+00_jprb, 0.409479e+00_jprb &
25299  &, 0.396108e+00_jprb, 0.382938e+00_jprb, 0.369948e+00_jprb, 0.357136e+00_jprb &
25300  &, 0.344542e+00_jprb, 0.332163e+00_jprb, 0.320015e+00_jprb &
25301  &, 0.308093e+00_jprb, 0.296409e+00_jprb, 0.284955e+00_jprb, 0.273766e+00_jprb &
25302  &, 0.262831e+00_jprb, 0.252133e+00_jprb, 0.241733e+00_jprb &
25303  &, 0.231560e+00_jprb, 0.221674e+00_jprb, 0.212052e+00_jprb, 0.202698e+00_jprb &
25304  &, 0.193615e+00_jprb, 0.184804e+00_jprb, 0.176263e+00_jprb &
25305  &, 0.167993e+00_jprb, 0.159988e+00_jprb, 0.152278e+00_jprb, 0.144791e+00_jprb &
25306  &, 0.137585e+00_jprb, 0.130653e+00_jprb, 0.123983e+00_jprb &
25307  &, 0.117530e+00_jprb, 0.111350e+00_jprb, 0.105430e+00_jprb, 0.997174e-01_jprb &
25308  &, 0.942685e-01_jprb, 0.890270e-01_jprb, 0.840503e-01_jprb &
25309  &, 0.792381e-01_jprb, 0.746866e-01_jprb, 0.703318e-01_jprb, 0.661893e-01_jprb &
25310  &, 0.622317e-01_jprb, 0.584733e-01_jprb, 0.548840e-01_jprb &
25311  &, 0.514763e-01_jprb, 0.482631e-01_jprb, 0.452110e-01_jprb, 0.422843e-01_jprb &
25312  &, 0.395398e-01_jprb, 0.369407e-01_jprb, 0.344965e-01_jprb &
25313  &, 0.322172e-01_jprb, 0.300113e-01_jprb, 0.279873e-01_jprb, 0.260513e-01_jprb &
25314  &, 0.242091e-01_jprb, 0.225205e-01_jprb, 0.208852e-01_jprb &
25315  &, 0.193621e-01_jprb, 0.179578e-01_jprb, 0.166786e-01_jprb, 0.154162e-01_jprb &
25316  &, 0.142889e-01_jprb, 0.131855e-01_jprb, 0.121678e-01_jprb &
25317  &, 0.112403e-01_jprb, 0.103460e-01_jprb, 0.954946e-02_jprb, 0.879215e-02_jprb &
25318  &, 0.807631e-02_jprb, 0.740424e-02_jprb, 0.684396e-02_jprb/)
25319 xcw( 579, :) = (/ &
25320  & 0.101659e+01_jprb, 0.101971e+01_jprb, 0.102241e+01_jprb, 0.102470e+01_jprb &
25321  &, 0.102657e+01_jprb, 0.102801e+01_jprb, 0.102903e+01_jprb &
25322  &, 0.102962e+01_jprb, 0.102978e+01_jprb, 0.102951e+01_jprb, 0.102881e+01_jprb &
25323  &, 0.102768e+01_jprb, 0.102612e+01_jprb, 0.102412e+01_jprb &
25324  &, 0.102169e+01_jprb, 0.101883e+01_jprb, 0.101554e+01_jprb, 0.101182e+01_jprb &
25325  &, 0.100766e+01_jprb, 0.100309e+01_jprb, 0.998084e+00_jprb &
25326  &, 0.992658e+00_jprb, 0.986814e+00_jprb, 0.980555e+00_jprb, 0.973885e+00_jprb &
25327  &, 0.966812e+00_jprb, 0.959334e+00_jprb, 0.951465e+00_jprb &
25328  &, 0.943206e+00_jprb, 0.934567e+00_jprb, 0.925553e+00_jprb, 0.916177e+00_jprb &
25329  &, 0.906441e+00_jprb, 0.896356e+00_jprb, 0.885936e+00_jprb &
25330  &, 0.875188e+00_jprb, 0.864114e+00_jprb, 0.852741e+00_jprb, 0.841079e+00_jprb &
25331  &, 0.829130e+00_jprb, 0.816923e+00_jprb, 0.804448e+00_jprb &
25332  &, 0.791739e+00_jprb, 0.778793e+00_jprb, 0.765639e+00_jprb, 0.752289e+00_jprb &
25333  &, 0.738755e+00_jprb, 0.725040e+00_jprb, 0.711185e+00_jprb &
25334  &, 0.697183e+00_jprb, 0.683067e+00_jprb, 0.668830e+00_jprb, 0.654522e+00_jprb &
25335  &, 0.640123e+00_jprb, 0.625672e+00_jprb, 0.611178e+00_jprb &
25336  &, 0.596652e+00_jprb, 0.582103e+00_jprb, 0.567571e+00_jprb, 0.553052e+00_jprb &
25337  &, 0.538571e+00_jprb, 0.524138e+00_jprb, 0.509780e+00_jprb &
25338  &, 0.495485e+00_jprb, 0.481281e+00_jprb, 0.467174e+00_jprb, 0.453206e+00_jprb &
25339  &, 0.439346e+00_jprb, 0.425637e+00_jprb, 0.412081e+00_jprb &
25340  &, 0.398702e+00_jprb, 0.385479e+00_jprb, 0.372454e+00_jprb, 0.359626e+00_jprb &
25341  &, 0.346992e+00_jprb, 0.334593e+00_jprb, 0.322399e+00_jprb &
25342  &, 0.310427e+00_jprb, 0.298692e+00_jprb, 0.287206e+00_jprb, 0.275985e+00_jprb &
25343  &, 0.264988e+00_jprb, 0.254278e+00_jprb, 0.243783e+00_jprb &
25344  &, 0.233593e+00_jprb, 0.223660e+00_jprb, 0.213989e+00_jprb, 0.204583e+00_jprb &
25345  &, 0.195445e+00_jprb, 0.186606e+00_jprb, 0.178005e+00_jprb &
25346  &, 0.169671e+00_jprb, 0.161632e+00_jprb, 0.153853e+00_jprb, 0.146327e+00_jprb &
25347  &, 0.139080e+00_jprb, 0.132105e+00_jprb, 0.125355e+00_jprb &
25348  &, 0.118889e+00_jprb, 0.112660e+00_jprb, 0.106688e+00_jprb, 0.100921e+00_jprb &
25349  &, 0.954161e-01_jprb, 0.901548e-01_jprb, 0.851176e-01_jprb &
25350  &, 0.802826e-01_jprb, 0.756664e-01_jprb, 0.712861e-01_jprb, 0.670745e-01_jprb &
25351  &, 0.630882e-01_jprb, 0.592998e-01_jprb, 0.556792e-01_jprb &
25352  &, 0.522391e-01_jprb, 0.489921e-01_jprb, 0.459050e-01_jprb, 0.429419e-01_jprb &
25353  &, 0.401597e-01_jprb, 0.375699e-01_jprb, 0.350861e-01_jprb &
25354  &, 0.327157e-01_jprb, 0.305172e-01_jprb, 0.284493e-01_jprb, 0.264679e-01_jprb &
25355  &, 0.246318e-01_jprb, 0.228957e-01_jprb, 0.212657e-01_jprb &
25356  &, 0.197481e-01_jprb, 0.182933e-01_jprb, 0.169621e-01_jprb, 0.157036e-01_jprb &
25357  &, 0.145221e-01_jprb, 0.134219e-01_jprb, 0.124074e-01_jprb &
25358  &, 0.114831e-01_jprb, 0.105921e-01_jprb, 0.973651e-02_jprb, 0.898169e-02_jprb &
25359  &, 0.826837e-02_jprb, 0.759883e-02_jprb, 0.697538e-02_jprb/)
25360 xcw( 580, :) = (/ &
25361  & 0.101685e+01_jprb, 0.102003e+01_jprb, 0.102280e+01_jprb, 0.102516e+01_jprb &
25362  &, 0.102709e+01_jprb, 0.102860e+01_jprb, 0.102968e+01_jprb &
25363  &, 0.103034e+01_jprb, 0.103056e+01_jprb, 0.103036e+01_jprb, 0.102973e+01_jprb &
25364  &, 0.102866e+01_jprb, 0.102716e+01_jprb, 0.102523e+01_jprb &
25365  &, 0.102287e+01_jprb, 0.102007e+01_jprb, 0.101684e+01_jprb, 0.101318e+01_jprb &
25366  &, 0.100909e+01_jprb, 0.100457e+01_jprb, 0.999630e+00_jprb &
25367  &, 0.994267e+00_jprb, 0.988483e+00_jprb, 0.982283e+00_jprb, 0.975671e+00_jprb &
25368  &, 0.968652e+00_jprb, 0.961230e+00_jprb, 0.953415e+00_jprb &
25369  &, 0.945208e+00_jprb, 0.936623e+00_jprb, 0.927660e+00_jprb, 0.918328e+00_jprb &
25370  &, 0.908642e+00_jprb, 0.898603e+00_jprb, 0.888227e+00_jprb &
25371  &, 0.877522e+00_jprb, 0.866499e+00_jprb, 0.855166e+00_jprb, 0.843535e+00_jprb &
25372  &, 0.831628e+00_jprb, 0.819441e+00_jprb, 0.807008e+00_jprb &
25373  &, 0.794331e+00_jprb, 0.781415e+00_jprb, 0.768292e+00_jprb, 0.754960e+00_jprb &
25374  &, 0.741443e+00_jprb, 0.727757e+00_jprb, 0.713917e+00_jprb &
25375  &, 0.699930e+00_jprb, 0.685826e+00_jprb, 0.671614e+00_jprb, 0.657302e+00_jprb &
25376  &, 0.642912e+00_jprb, 0.628468e+00_jprb, 0.613980e+00_jprb &
25377  &, 0.599457e+00_jprb, 0.584909e+00_jprb, 0.570378e+00_jprb, 0.555857e+00_jprb &
25378  &, 0.541355e+00_jprb, 0.526916e+00_jprb, 0.512531e+00_jprb &
25379  &, 0.498226e+00_jprb, 0.484008e+00_jprb, 0.469884e+00_jprb, 0.455899e+00_jprb &
25380  &, 0.442018e+00_jprb, 0.428286e+00_jprb, 0.414704e+00_jprb &
25381  &, 0.401296e+00_jprb, 0.388041e+00_jprb, 0.374982e+00_jprb, 0.362117e+00_jprb &
25382  &, 0.349465e+00_jprb, 0.337000e+00_jprb, 0.324784e+00_jprb &
25383  &, 0.312787e+00_jprb, 0.300999e+00_jprb, 0.289483e+00_jprb, 0.278204e+00_jprb &
25384  &, 0.267171e+00_jprb, 0.256396e+00_jprb, 0.245887e+00_jprb &
25385  &, 0.235626e+00_jprb, 0.225646e+00_jprb, 0.215926e+00_jprb, 0.206468e+00_jprb &
25386  &, 0.197304e+00_jprb, 0.188408e+00_jprb, 0.179747e+00_jprb &
25387  &, 0.171381e+00_jprb, 0.163308e+00_jprb, 0.155461e+00_jprb, 0.147897e+00_jprb &
25388  &, 0.140609e+00_jprb, 0.133557e+00_jprb, 0.126797e+00_jprb &
25389  &, 0.120249e+00_jprb, 0.113970e+00_jprb, 0.107946e+00_jprb, 0.102163e+00_jprb &
25390  &, 0.966020e-01_jprb, 0.912826e-01_jprb, 0.862245e-01_jprb &
25391  &, 0.813272e-01_jprb, 0.766872e-01_jprb, 0.722403e-01_jprb, 0.680018e-01_jprb &
25392  &, 0.639875e-01_jprb, 0.601263e-01_jprb, 0.564745e-01_jprb &
25393  &, 0.530019e-01_jprb, 0.497212e-01_jprb, 0.465990e-01_jprb, 0.435995e-01_jprb &
25394  &, 0.408273e-01_jprb, 0.381507e-01_jprb, 0.356265e-01_jprb &
25395  &, 0.332641e-01_jprb, 0.310232e-01_jprb, 0.289113e-01_jprb, 0.269367e-01_jprb &
25396  &, 0.250545e-01_jprb, 0.233245e-01_jprb, 0.216462e-01_jprb &
25397  &, 0.201340e-01_jprb, 0.186847e-01_jprb, 0.173023e-01_jprb, 0.160485e-01_jprb &
25398  &, 0.148135e-01_jprb, 0.137173e-01_jprb, 0.126469e-01_jprb &
25399  &, 0.117259e-01_jprb, 0.107767e-01_jprb, 0.998591e-02_jprb, 0.917123e-02_jprb &
25400  &, 0.846042e-02_jprb, 0.779341e-02_jprb, 0.710680e-02_jprb/)
25401 xcw( 581, :) = (/ &
25402  & 0.101710e+01_jprb, 0.102036e+01_jprb, 0.102319e+01_jprb, 0.102561e+01_jprb &
25403  &, 0.102761e+01_jprb, 0.102918e+01_jprb, 0.103033e+01_jprb &
25404  &, 0.103106e+01_jprb, 0.103135e+01_jprb, 0.103121e+01_jprb, 0.103064e+01_jprb &
25405  &, 0.102964e+01_jprb, 0.102821e+01_jprb, 0.102634e+01_jprb &
25406  &, 0.102404e+01_jprb, 0.102131e+01_jprb, 0.101815e+01_jprb, 0.101455e+01_jprb &
25407  &, 0.101052e+01_jprb, 0.100606e+01_jprb, 0.100118e+01_jprb &
25408  &, 0.995878e+00_jprb, 0.990155e+00_jprb, 0.984011e+00_jprb, 0.977458e+00_jprb &
25409  &, 0.970496e+00_jprb, 0.963130e+00_jprb, 0.955368e+00_jprb &
25410  &, 0.947218e+00_jprb, 0.938683e+00_jprb, 0.929771e+00_jprb, 0.920488e+00_jprb &
25411  &, 0.910847e+00_jprb, 0.900860e+00_jprb, 0.890527e+00_jprb &
25412  &, 0.879866e+00_jprb, 0.868883e+00_jprb, 0.857591e+00_jprb, 0.846001e+00_jprb &
25413  &, 0.834125e+00_jprb, 0.821981e+00_jprb, 0.809579e+00_jprb &
25414  &, 0.796922e+00_jprb, 0.784038e+00_jprb, 0.770945e+00_jprb, 0.757643e+00_jprb &
25415  &, 0.744144e+00_jprb, 0.730486e+00_jprb, 0.716662e+00_jprb &
25416  &, 0.702689e+00_jprb, 0.688598e+00_jprb, 0.674398e+00_jprb, 0.660097e+00_jprb &
25417  &, 0.645716e+00_jprb, 0.631279e+00_jprb, 0.616796e+00_jprb &
25418  &, 0.602262e+00_jprb, 0.587732e+00_jprb, 0.573185e+00_jprb, 0.558662e+00_jprb &
25419  &, 0.544156e+00_jprb, 0.529711e+00_jprb, 0.515318e+00_jprb &
25420  &, 0.500984e+00_jprb, 0.486753e+00_jprb, 0.472614e+00_jprb, 0.458591e+00_jprb &
25421  &, 0.444710e+00_jprb, 0.430934e+00_jprb, 0.417347e+00_jprb &
25422  &, 0.403890e+00_jprb, 0.390625e+00_jprb, 0.377532e+00_jprb, 0.364630e+00_jprb &
25423  &, 0.351939e+00_jprb, 0.339453e+00_jprb, 0.327192e+00_jprb &
25424  &, 0.315146e+00_jprb, 0.303331e+00_jprb, 0.291760e+00_jprb, 0.280448e+00_jprb &
25425  &, 0.269380e+00_jprb, 0.258540e+00_jprb, 0.247991e+00_jprb &
25426  &, 0.237687e+00_jprb, 0.227661e+00_jprb, 0.217891e+00_jprb, 0.208411e+00_jprb &
25427  &, 0.199164e+00_jprb, 0.190210e+00_jprb, 0.181519e+00_jprb &
25428  &, 0.173122e+00_jprb, 0.164952e+00_jprb, 0.157101e+00_jprb, 0.149466e+00_jprb &
25429  &, 0.142138e+00_jprb, 0.135043e+00_jprb, 0.128204e+00_jprb &
25430  &, 0.121644e+00_jprb, 0.115316e+00_jprb, 0.109242e+00_jprb, 0.103405e+00_jprb &
25431  &, 0.978261e-01_jprb, 0.924493e-01_jprb, 0.872918e-01_jprb &
25432  &, 0.824120e-01_jprb, 0.777079e-01_jprb, 0.732360e-01_jprb, 0.689292e-01_jprb &
25433  &, 0.648868e-01_jprb, 0.609962e-01_jprb, 0.573140e-01_jprb &
25434  &, 0.538096e-01_jprb, 0.504502e-01_jprb, 0.472930e-01_jprb, 0.443041e-01_jprb &
25435  &, 0.414471e-01_jprb, 0.387800e-01_jprb, 0.362160e-01_jprb &
25436  &, 0.338126e-01_jprb, 0.315797e-01_jprb, 0.294247e-01_jprb, 0.274054e-01_jprb &
25437  &, 0.255300e-01_jprb, 0.237532e-01_jprb, 0.220811e-01_jprb &
25438  &, 0.204648e-01_jprb, 0.190201e-01_jprb, 0.176424e-01_jprb, 0.163359e-01_jprb &
25439  &, 0.151049e-01_jprb, 0.140127e-01_jprb, 0.129464e-01_jprb &
25440  &, 0.119688e-01_jprb, 0.110228e-01_jprb, 0.101730e-01_jprb, 0.936077e-02_jprb &
25441  &, 0.865248e-02_jprb, 0.792314e-02_jprb, 0.730394e-02_jprb/)
25442 
25443 IF (lhook) CALL dr_hook('SU_MCICA:PART83',1,zhook_handle)
25444 END SUBROUTINE part83
25445 
25446 #ifdef VPP5000
25447 !OCL SCALAR
25448 #endif
25449 !option! -Nv -NO
25450 #ifdef RS6K
25451 @process nooptimize
25452 #endif
25453 !pgi$r opt=0
25454 SUBROUTINE part84
25455 
25456 REAL(KIND=JPRB) :: ZHOOK_HANDLE
25457 IF (lhook) CALL dr_hook('SU_MCICA:PART84',0,zhook_handle)
25458 
25459 xcw( 582, :) = (/ &
25460  & 0.101736e+01_jprb, 0.102068e+01_jprb, 0.102358e+01_jprb, 0.102607e+01_jprb &
25461  &, 0.102813e+01_jprb, 0.102977e+01_jprb, 0.103099e+01_jprb &
25462  &, 0.103178e+01_jprb, 0.103214e+01_jprb, 0.103207e+01_jprb, 0.103156e+01_jprb &
25463  &, 0.103063e+01_jprb, 0.102926e+01_jprb, 0.102746e+01_jprb &
25464  &, 0.102522e+01_jprb, 0.102255e+01_jprb, 0.101945e+01_jprb, 0.101592e+01_jprb &
25465  &, 0.101195e+01_jprb, 0.100756e+01_jprb, 0.100274e+01_jprb &
25466  &, 0.997492e+00_jprb, 0.991827e+00_jprb, 0.985743e+00_jprb, 0.979249e+00_jprb &
25467  &, 0.972341e+00_jprb, 0.965034e+00_jprb, 0.957326e+00_jprb &
25468  &, 0.949228e+00_jprb, 0.940738e+00_jprb, 0.931882e+00_jprb, 0.922652e+00_jprb &
25469  &, 0.913061e+00_jprb, 0.903116e+00_jprb, 0.892831e+00_jprb &
25470  &, 0.882210e+00_jprb, 0.871267e+00_jprb, 0.860016e+00_jprb, 0.848467e+00_jprb &
25471  &, 0.836633e+00_jprb, 0.824521e+00_jprb, 0.812151e+00_jprb &
25472  &, 0.799525e+00_jprb, 0.786682e+00_jprb, 0.773609e+00_jprb, 0.760326e+00_jprb &
25473  &, 0.746856e+00_jprb, 0.733216e+00_jprb, 0.719407e+00_jprb &
25474  &, 0.705461e+00_jprb, 0.691384e+00_jprb, 0.677196e+00_jprb, 0.662906e+00_jprb &
25475  &, 0.648534e+00_jprb, 0.634105e+00_jprb, 0.619613e+00_jprb &
25476  &, 0.605098e+00_jprb, 0.590555e+00_jprb, 0.576008e+00_jprb, 0.561483e+00_jprb &
25477  &, 0.546974e+00_jprb, 0.532506e+00_jprb, 0.518104e+00_jprb &
25478  &, 0.503760e+00_jprb, 0.489517e+00_jprb, 0.475363e+00_jprb, 0.461323e+00_jprb &
25479  &, 0.447402e+00_jprb, 0.433623e+00_jprb, 0.419990e+00_jprb &
25480  &, 0.406505e+00_jprb, 0.393209e+00_jprb, 0.380082e+00_jprb, 0.367166e+00_jprb &
25481  &, 0.354435e+00_jprb, 0.341907e+00_jprb, 0.329600e+00_jprb &
25482  &, 0.317529e+00_jprb, 0.305663e+00_jprb, 0.294062e+00_jprb, 0.282692e+00_jprb &
25483  &, 0.271589e+00_jprb, 0.260712e+00_jprb, 0.250123e+00_jprb &
25484  &, 0.239775e+00_jprb, 0.229675e+00_jprb, 0.219886e+00_jprb, 0.210325e+00_jprb &
25485  &, 0.201053e+00_jprb, 0.192043e+00_jprb, 0.183323e+00_jprb &
25486  &, 0.174864e+00_jprb, 0.166661e+00_jprb, 0.158742e+00_jprb, 0.151069e+00_jprb &
25487  &, 0.143667e+00_jprb, 0.136530e+00_jprb, 0.129646e+00_jprb &
25488  &, 0.123039e+00_jprb, 0.116662e+00_jprb, 0.110537e+00_jprb, 0.104646e+00_jprb &
25489  &, 0.990120e-01_jprb, 0.936159e-01_jprb, 0.884381e-01_jprb &
25490  &, 0.834566e-01_jprb, 0.787286e-01_jprb, 0.741902e-01_jprb, 0.698987e-01_jprb &
25491  &, 0.657860e-01_jprb, 0.618662e-01_jprb, 0.581092e-01_jprb &
25492  &, 0.545724e-01_jprb, 0.512248e-01_jprb, 0.480332e-01_jprb, 0.449617e-01_jprb &
25493  &, 0.421147e-01_jprb, 0.393608e-01_jprb, 0.368055e-01_jprb &
25494  &, 0.343610e-01_jprb, 0.320856e-01_jprb, 0.299380e-01_jprb, 0.278742e-01_jprb &
25495  &, 0.259527e-01_jprb, 0.241284e-01_jprb, 0.224617e-01_jprb &
25496  &, 0.208508e-01_jprb, 0.193556e-01_jprb, 0.179826e-01_jprb, 0.166234e-01_jprb &
25497  &, 0.153963e-01_jprb, 0.142490e-01_jprb, 0.131860e-01_jprb &
25498  &, 0.122116e-01_jprb, 0.112689e-01_jprb, 0.103600e-01_jprb, 0.955032e-02_jprb &
25499  &, 0.884453e-02_jprb, 0.811772e-02_jprb, 0.743536e-02_jprb/)
25500 xcw( 583, :) = (/ &
25501  & 0.101762e+01_jprb, 0.102101e+01_jprb, 0.102398e+01_jprb, 0.102653e+01_jprb &
25502  &, 0.102866e+01_jprb, 0.103036e+01_jprb, 0.103164e+01_jprb &
25503  &, 0.103250e+01_jprb, 0.103292e+01_jprb, 0.103292e+01_jprb, 0.103248e+01_jprb &
25504  &, 0.103161e+01_jprb, 0.103031e+01_jprb, 0.102857e+01_jprb &
25505  &, 0.102640e+01_jprb, 0.102380e+01_jprb, 0.102076e+01_jprb, 0.101729e+01_jprb &
25506  &, 0.101339e+01_jprb, 0.100905e+01_jprb, 0.100429e+01_jprb &
25507  &, 0.999111e+00_jprb, 0.993506e+00_jprb, 0.987478e+00_jprb, 0.981043e+00_jprb &
25508  &, 0.974192e+00_jprb, 0.966938e+00_jprb, 0.959288e+00_jprb &
25509  &, 0.951242e+00_jprb, 0.942810e+00_jprb, 0.934001e+00_jprb, 0.924819e+00_jprb &
25510  &, 0.915279e+00_jprb, 0.905381e+00_jprb, 0.895140e+00_jprb &
25511  &, 0.884563e+00_jprb, 0.873661e+00_jprb, 0.862451e+00_jprb, 0.850944e+00_jprb &
25512  &, 0.839141e+00_jprb, 0.827071e+00_jprb, 0.814733e+00_jprb &
25513  &, 0.802139e+00_jprb, 0.789316e+00_jprb, 0.776273e+00_jprb, 0.763020e+00_jprb &
25514  &, 0.749581e+00_jprb, 0.735958e+00_jprb, 0.722178e+00_jprb &
25515  &, 0.708247e+00_jprb, 0.694184e+00_jprb, 0.679981e+00_jprb, 0.665728e+00_jprb &
25516  &, 0.651366e+00_jprb, 0.636930e+00_jprb, 0.622445e+00_jprb &
25517  &, 0.607934e+00_jprb, 0.593393e+00_jprb, 0.578847e+00_jprb, 0.564305e+00_jprb &
25518  &, 0.549792e+00_jprb, 0.535318e+00_jprb, 0.520909e+00_jprb &
25519  &, 0.506555e+00_jprb, 0.492281e+00_jprb, 0.478112e+00_jprb, 0.464054e+00_jprb &
25520  &, 0.450113e+00_jprb, 0.436312e+00_jprb, 0.422654e+00_jprb &
25521  &, 0.409141e+00_jprb, 0.395814e+00_jprb, 0.382654e+00_jprb, 0.369701e+00_jprb &
25522  &, 0.356931e+00_jprb, 0.344384e+00_jprb, 0.332032e+00_jprb &
25523  &, 0.319913e+00_jprb, 0.308019e+00_jprb, 0.296365e+00_jprb, 0.284962e+00_jprb &
25524  &, 0.273799e+00_jprb, 0.262884e+00_jprb, 0.252254e+00_jprb &
25525  &, 0.241864e+00_jprb, 0.231718e+00_jprb, 0.221881e+00_jprb, 0.212269e+00_jprb &
25526  &, 0.202943e+00_jprb, 0.193906e+00_jprb, 0.185127e+00_jprb &
25527  &, 0.176605e+00_jprb, 0.168369e+00_jprb, 0.160382e+00_jprb, 0.152671e+00_jprb &
25528  &, 0.145230e+00_jprb, 0.138051e+00_jprb, 0.131123e+00_jprb &
25529  &, 0.124434e+00_jprb, 0.118009e+00_jprb, 0.111832e+00_jprb, 0.105926e+00_jprb &
25530  &, 0.100236e+00_jprb, 0.947826e-01_jprb, 0.895450e-01_jprb &
25531  &, 0.845414e-01_jprb, 0.797902e-01_jprb, 0.752274e-01_jprb, 0.708682e-01_jprb &
25532  &, 0.666853e-01_jprb, 0.627362e-01_jprb, 0.589487e-01_jprb &
25533  &, 0.553800e-01_jprb, 0.519538e-01_jprb, 0.487272e-01_jprb, 0.456662e-01_jprb &
25534  &, 0.427823e-01_jprb, 0.399900e-01_jprb, 0.373950e-01_jprb &
25535  &, 0.349593e-01_jprb, 0.326421e-01_jprb, 0.304514e-01_jprb, 0.283429e-01_jprb &
25536  &, 0.264283e-01_jprb, 0.246108e-01_jprb, 0.228422e-01_jprb &
25537  &, 0.212367e-01_jprb, 0.197470e-01_jprb, 0.183228e-01_jprb, 0.169683e-01_jprb &
25538  &, 0.157460e-01_jprb, 0.145444e-01_jprb, 0.134854e-01_jprb &
25539  &, 0.124544e-01_jprb, 0.115150e-01_jprb, 0.106094e-01_jprb, 0.980304e-02_jprb &
25540  &, 0.903659e-02_jprb, 0.831231e-02_jprb, 0.763249e-02_jprb/)
25541 xcw( 584, :) = (/ &
25542  & 0.101788e+01_jprb, 0.102133e+01_jprb, 0.102437e+01_jprb, 0.102698e+01_jprb &
25543  &, 0.102918e+01_jprb, 0.103095e+01_jprb, 0.103230e+01_jprb &
25544  &, 0.103322e+01_jprb, 0.103371e+01_jprb, 0.103377e+01_jprb, 0.103340e+01_jprb &
25545  &, 0.103260e+01_jprb, 0.103136e+01_jprb, 0.102969e+01_jprb &
25546  &, 0.102758e+01_jprb, 0.102504e+01_jprb, 0.102207e+01_jprb, 0.101866e+01_jprb &
25547  &, 0.101482e+01_jprb, 0.101055e+01_jprb, 0.100585e+01_jprb &
25548  &, 0.100073e+01_jprb, 0.995184e+00_jprb, 0.989217e+00_jprb, 0.982837e+00_jprb &
25549  &, 0.976047e+00_jprb, 0.968849e+00_jprb, 0.961253e+00_jprb &
25550  &, 0.953259e+00_jprb, 0.944881e+00_jprb, 0.936124e+00_jprb, 0.926992e+00_jprb &
25551  &, 0.917497e+00_jprb, 0.907646e+00_jprb, 0.897453e+00_jprb &
25552  &, 0.886916e+00_jprb, 0.876064e+00_jprb, 0.864896e+00_jprb, 0.853420e+00_jprb &
25553  &, 0.841660e+00_jprb, 0.829621e+00_jprb, 0.817315e+00_jprb &
25554  &, 0.804763e+00_jprb, 0.791972e+00_jprb, 0.778949e+00_jprb, 0.765727e+00_jprb &
25555  &, 0.752306e+00_jprb, 0.738712e+00_jprb, 0.724936e+00_jprb &
25556  &, 0.711033e+00_jprb, 0.696983e+00_jprb, 0.682820e+00_jprb, 0.668551e+00_jprb &
25557  &, 0.654199e+00_jprb, 0.639771e+00_jprb, 0.625291e+00_jprb &
25558  &, 0.610770e+00_jprb, 0.596232e+00_jprb, 0.581686e+00_jprb, 0.567143e+00_jprb &
25559  &, 0.552627e+00_jprb, 0.538148e+00_jprb, 0.523713e+00_jprb &
25560  &, 0.509349e+00_jprb, 0.495063e+00_jprb, 0.480880e+00_jprb, 0.466805e+00_jprb &
25561  &, 0.452844e+00_jprb, 0.439001e+00_jprb, 0.425318e+00_jprb &
25562  &, 0.411798e+00_jprb, 0.398441e+00_jprb, 0.385248e+00_jprb, 0.372259e+00_jprb &
25563  &, 0.359450e+00_jprb, 0.346861e+00_jprb, 0.334487e+00_jprb &
25564  &, 0.322321e+00_jprb, 0.310401e+00_jprb, 0.298692e+00_jprb, 0.287258e+00_jprb &
25565  &, 0.276034e+00_jprb, 0.265082e+00_jprb, 0.254385e+00_jprb &
25566  &, 0.243952e+00_jprb, 0.233790e+00_jprb, 0.223875e+00_jprb, 0.214242e+00_jprb &
25567  &, 0.204863e+00_jprb, 0.195769e+00_jprb, 0.186931e+00_jprb &
25568  &, 0.178379e+00_jprb, 0.170078e+00_jprb, 0.162055e+00_jprb, 0.154274e+00_jprb &
25569  &, 0.146793e+00_jprb, 0.139537e+00_jprb, 0.132565e+00_jprb &
25570  &, 0.125865e+00_jprb, 0.119391e+00_jprb, 0.113164e+00_jprb, 0.107205e+00_jprb &
25571  &, 0.101460e+00_jprb, 0.959493e-01_jprb, 0.906913e-01_jprb &
25572  &, 0.856663e-01_jprb, 0.808109e-01_jprb, 0.762231e-01_jprb, 0.718377e-01_jprb &
25573  &, 0.676274e-01_jprb, 0.636062e-01_jprb, 0.598323e-01_jprb &
25574  &, 0.561877e-01_jprb, 0.527284e-01_jprb, 0.494674e-01_jprb, 0.463708e-01_jprb &
25575  &, 0.434499e-01_jprb, 0.406676e-01_jprb, 0.380336e-01_jprb &
25576  &, 0.355077e-01_jprb, 0.331480e-01_jprb, 0.309647e-01_jprb, 0.288637e-01_jprb &
25577  &, 0.269038e-01_jprb, 0.250396e-01_jprb, 0.232771e-01_jprb &
25578  &, 0.216226e-01_jprb, 0.200825e-01_jprb, 0.186630e-01_jprb, 0.173132e-01_jprb &
25579  &, 0.160374e-01_jprb, 0.148399e-01_jprb, 0.137250e-01_jprb &
25580  &, 0.126972e-01_jprb, 0.116995e-01_jprb, 0.107965e-01_jprb, 0.999258e-02_jprb &
25581  &, 0.922864e-02_jprb, 0.844203e-02_jprb, 0.776391e-02_jprb/)
25582 xcw( 585, :) = (/ &
25583  & 0.101814e+01_jprb, 0.102166e+01_jprb, 0.102476e+01_jprb, 0.102744e+01_jprb &
25584  &, 0.102970e+01_jprb, 0.103154e+01_jprb, 0.103296e+01_jprb &
25585  &, 0.103394e+01_jprb, 0.103450e+01_jprb, 0.103463e+01_jprb, 0.103433e+01_jprb &
25586  &, 0.103359e+01_jprb, 0.103241e+01_jprb, 0.103081e+01_jprb &
25587  &, 0.102877e+01_jprb, 0.102629e+01_jprb, 0.102338e+01_jprb, 0.102004e+01_jprb &
25588  &, 0.101626e+01_jprb, 0.101205e+01_jprb, 0.100742e+01_jprb &
25589  &, 0.100235e+01_jprb, 0.996867e+00_jprb, 0.990959e+00_jprb, 0.984638e+00_jprb &
25590  &, 0.977902e+00_jprb, 0.970764e+00_jprb, 0.963222e+00_jprb &
25591  &, 0.955285e+00_jprb, 0.946957e+00_jprb, 0.938252e+00_jprb, 0.929168e+00_jprb &
25592  &, 0.919724e+00_jprb, 0.909920e+00_jprb, 0.899771e+00_jprb &
25593  &, 0.889288e+00_jprb, 0.878467e+00_jprb, 0.867340e+00_jprb, 0.855906e+00_jprb &
25594  &, 0.844188e+00_jprb, 0.832182e+00_jprb, 0.819918e+00_jprb &
25595  &, 0.807388e+00_jprb, 0.794629e+00_jprb, 0.781637e+00_jprb, 0.768434e+00_jprb &
25596  &, 0.755043e+00_jprb, 0.741466e+00_jprb, 0.727719e+00_jprb &
25597  &, 0.713818e+00_jprb, 0.699796e+00_jprb, 0.685646e+00_jprb, 0.671388e+00_jprb &
25598  &, 0.657045e+00_jprb, 0.642626e+00_jprb, 0.628153e+00_jprb &
25599  &, 0.613637e+00_jprb, 0.599102e+00_jprb, 0.584542e+00_jprb, 0.569997e+00_jprb &
25600  &, 0.555479e+00_jprb, 0.540977e+00_jprb, 0.526536e+00_jprb &
25601  &, 0.512162e+00_jprb, 0.497864e+00_jprb, 0.483666e+00_jprb, 0.469556e+00_jprb &
25602  &, 0.455576e+00_jprb, 0.441730e+00_jprb, 0.428002e+00_jprb &
25603  &, 0.414455e+00_jprb, 0.401068e+00_jprb, 0.387842e+00_jprb, 0.374817e+00_jprb &
25604  &, 0.361992e+00_jprb, 0.349361e+00_jprb, 0.336943e+00_jprb &
25605  &, 0.324753e+00_jprb, 0.312782e+00_jprb, 0.301045e+00_jprb, 0.289554e+00_jprb &
25606  &, 0.278296e+00_jprb, 0.267307e+00_jprb, 0.256571e+00_jprb &
25607  &, 0.246069e+00_jprb, 0.235861e+00_jprb, 0.225899e+00_jprb, 0.216215e+00_jprb &
25608  &, 0.206782e+00_jprb, 0.197632e+00_jprb, 0.188766e+00_jprb &
25609  &, 0.180152e+00_jprb, 0.171786e+00_jprb, 0.163729e+00_jprb, 0.155910e+00_jprb &
25610  &, 0.148356e+00_jprb, 0.141093e+00_jprb, 0.134077e+00_jprb &
25611  &, 0.127296e+00_jprb, 0.120774e+00_jprb, 0.114496e+00_jprb, 0.108484e+00_jprb &
25612  &, 0.102723e+00_jprb, 0.971548e-01_jprb, 0.918377e-01_jprb &
25613  &, 0.867511e-01_jprb, 0.818725e-01_jprb, 0.771773e-01_jprb, 0.728072e-01_jprb &
25614  &, 0.685695e-01_jprb, 0.645197e-01_jprb, 0.606718e-01_jprb &
25615  &, 0.569954e-01_jprb, 0.535486e-01_jprb, 0.502077e-01_jprb, 0.470754e-01_jprb &
25616  &, 0.441174e-01_jprb, 0.412969e-01_jprb, 0.386231e-01_jprb &
25617  &, 0.361060e-01_jprb, 0.337045e-01_jprb, 0.314780e-01_jprb, 0.293325e-01_jprb &
25618  &, 0.273265e-01_jprb, 0.254683e-01_jprb, 0.237120e-01_jprb &
25619  &, 0.220086e-01_jprb, 0.204738e-01_jprb, 0.190031e-01_jprb, 0.176006e-01_jprb &
25620  &, 0.163288e-01_jprb, 0.151353e-01_jprb, 0.140244e-01_jprb &
25621  &, 0.129400e-01_jprb, 0.119456e-01_jprb, 0.110458e-01_jprb, 0.101821e-01_jprb &
25622  &, 0.942070e-02_jprb, 0.863661e-02_jprb, 0.796105e-02_jprb/)
25623 xcw( 586, :) = (/ &
25624  & 0.101840e+01_jprb, 0.102198e+01_jprb, 0.102515e+01_jprb, 0.102790e+01_jprb &
25625  &, 0.103023e+01_jprb, 0.103213e+01_jprb, 0.103361e+01_jprb &
25626  &, 0.103467e+01_jprb, 0.103529e+01_jprb, 0.103549e+01_jprb, 0.103525e+01_jprb &
25627  &, 0.103457e+01_jprb, 0.103347e+01_jprb, 0.103193e+01_jprb &
25628  &, 0.102995e+01_jprb, 0.102754e+01_jprb, 0.102469e+01_jprb, 0.102141e+01_jprb &
25629  &, 0.101770e+01_jprb, 0.101355e+01_jprb, 0.100898e+01_jprb &
25630  &, 0.100398e+01_jprb, 0.998552e+00_jprb, 0.992705e+00_jprb, 0.986439e+00_jprb &
25631  &, 0.979764e+00_jprb, 0.972678e+00_jprb, 0.965191e+00_jprb &
25632  &, 0.957310e+00_jprb, 0.949036e+00_jprb, 0.940383e+00_jprb, 0.931353e+00_jprb &
25633  &, 0.921955e+00_jprb, 0.912199e+00_jprb, 0.902098e+00_jprb &
25634  &, 0.891651e+00_jprb, 0.880880e+00_jprb, 0.869794e+00_jprb, 0.858403e+00_jprb &
25635  &, 0.846717e+00_jprb, 0.834753e+00_jprb, 0.822511e+00_jprb &
25636  &, 0.810024e+00_jprb, 0.797296e+00_jprb, 0.784336e+00_jprb, 0.771164e+00_jprb &
25637  &, 0.757792e+00_jprb, 0.744233e+00_jprb, 0.730503e+00_jprb &
25638  &, 0.716630e+00_jprb, 0.702609e+00_jprb, 0.688471e+00_jprb, 0.674239e+00_jprb &
25639  &, 0.659892e+00_jprb, 0.645496e+00_jprb, 0.631015e+00_jprb &
25640  &, 0.616504e+00_jprb, 0.601972e+00_jprb, 0.587413e+00_jprb, 0.572869e+00_jprb &
25641  &, 0.558331e+00_jprb, 0.543824e+00_jprb, 0.529376e+00_jprb &
25642  &, 0.514993e+00_jprb, 0.500683e+00_jprb, 0.486453e+00_jprb, 0.472326e+00_jprb &
25643  &, 0.458327e+00_jprb, 0.444440e+00_jprb, 0.430707e+00_jprb &
25644  &, 0.417133e+00_jprb, 0.403717e+00_jprb, 0.390458e+00_jprb, 0.377397e+00_jprb &
25645  &, 0.364534e+00_jprb, 0.351862e+00_jprb, 0.339423e+00_jprb &
25646  &, 0.327185e+00_jprb, 0.315164e+00_jprb, 0.303398e+00_jprb, 0.291850e+00_jprb &
25647  &, 0.280584e+00_jprb, 0.269533e+00_jprb, 0.258730e+00_jprb &
25648  &, 0.248213e+00_jprb, 0.237961e+00_jprb, 0.227951e+00_jprb, 0.218217e+00_jprb &
25649  &, 0.208732e+00_jprb, 0.199526e+00_jprb, 0.190601e+00_jprb &
25650  &, 0.181894e+00_jprb, 0.173559e+00_jprb, 0.165435e+00_jprb, 0.157546e+00_jprb &
25651  &, 0.149953e+00_jprb, 0.142649e+00_jprb, 0.135554e+00_jprb &
25652  &, 0.128727e+00_jprb, 0.122193e+00_jprb, 0.115865e+00_jprb, 0.109801e+00_jprb &
25653  &, 0.103947e+00_jprb, 0.983604e-01_jprb, 0.930236e-01_jprb &
25654  &, 0.878760e-01_jprb, 0.829749e-01_jprb, 0.782560e-01_jprb, 0.737767e-01_jprb &
25655  &, 0.695116e-01_jprb, 0.654332e-01_jprb, 0.615554e-01_jprb &
25656  &, 0.578479e-01_jprb, 0.543232e-01_jprb, 0.509942e-01_jprb, 0.478269e-01_jprb &
25657  &, 0.447850e-01_jprb, 0.419261e-01_jprb, 0.392618e-01_jprb &
25658  &, 0.367042e-01_jprb, 0.342611e-01_jprb, 0.319914e-01_jprb, 0.298533e-01_jprb &
25659  &, 0.278020e-01_jprb, 0.258971e-01_jprb, 0.241469e-01_jprb &
25660  &, 0.224497e-01_jprb, 0.208652e-01_jprb, 0.193433e-01_jprb, 0.179455e-01_jprb &
25661  &, 0.166785e-01_jprb, 0.154307e-01_jprb, 0.142640e-01_jprb &
25662  &, 0.132435e-01_jprb, 0.121917e-01_jprb, 0.112952e-01_jprb, 0.104348e-01_jprb &
25663  &, 0.961275e-02_jprb, 0.883120e-02_jprb, 0.815818e-02_jprb/)
25664 xcw( 587, :) = (/ &
25665  & 0.101866e+01_jprb, 0.102231e+01_jprb, 0.102554e+01_jprb, 0.102836e+01_jprb &
25666  &, 0.103075e+01_jprb, 0.103272e+01_jprb, 0.103427e+01_jprb &
25667  &, 0.103539e+01_jprb, 0.103608e+01_jprb, 0.103634e+01_jprb, 0.103617e+01_jprb &
25668  &, 0.103556e+01_jprb, 0.103452e+01_jprb, 0.103305e+01_jprb &
25669  &, 0.103114e+01_jprb, 0.102879e+01_jprb, 0.102601e+01_jprb, 0.102279e+01_jprb &
25670  &, 0.101914e+01_jprb, 0.101506e+01_jprb, 0.101054e+01_jprb &
25671  &, 0.100561e+01_jprb, 0.100024e+01_jprb, 0.994451e+00_jprb, 0.988247e+00_jprb &
25672  &, 0.981627e+00_jprb, 0.974601e+00_jprb, 0.967168e+00_jprb &
25673  &, 0.959339e+00_jprb, 0.951120e+00_jprb, 0.942518e+00_jprb, 0.933538e+00_jprb &
25674  &, 0.924190e+00_jprb, 0.914486e+00_jprb, 0.904429e+00_jprb &
25675  &, 0.894032e+00_jprb, 0.883302e+00_jprb, 0.872259e+00_jprb, 0.860909e+00_jprb &
25676  &, 0.849256e+00_jprb, 0.837325e+00_jprb, 0.825125e+00_jprb &
25677  &, 0.812670e+00_jprb, 0.799964e+00_jprb, 0.787036e+00_jprb, 0.773883e+00_jprb &
25678  &, 0.760541e+00_jprb, 0.747013e+00_jprb, 0.733299e+00_jprb &
25679  &, 0.719442e+00_jprb, 0.705449e+00_jprb, 0.691325e+00_jprb, 0.677090e+00_jprb &
25680  &, 0.662768e+00_jprb, 0.648366e+00_jprb, 0.633892e+00_jprb &
25681  &, 0.619387e+00_jprb, 0.604843e+00_jprb, 0.590285e+00_jprb, 0.575740e+00_jprb &
25682  &, 0.561200e+00_jprb, 0.546689e+00_jprb, 0.532234e+00_jprb &
25683  &, 0.517824e+00_jprb, 0.503503e+00_jprb, 0.489259e+00_jprb, 0.475115e+00_jprb &
25684  &, 0.461098e+00_jprb, 0.447189e+00_jprb, 0.433433e+00_jprb &
25685  &, 0.419811e+00_jprb, 0.406365e+00_jprb, 0.393095e+00_jprb, 0.380000e+00_jprb &
25686  &, 0.367099e+00_jprb, 0.354409e+00_jprb, 0.341902e+00_jprb &
25687  &, 0.329642e+00_jprb, 0.317595e+00_jprb, 0.305776e+00_jprb, 0.294198e+00_jprb &
25688  &, 0.282846e+00_jprb, 0.271785e+00_jprb, 0.260944e+00_jprb &
25689  &, 0.250357e+00_jprb, 0.240061e+00_jprb, 0.230004e+00_jprb, 0.220220e+00_jprb &
25690  &, 0.210681e+00_jprb, 0.201450e+00_jprb, 0.192467e+00_jprb &
25691  &, 0.183762e+00_jprb, 0.175299e+00_jprb, 0.167141e+00_jprb, 0.159216e+00_jprb &
25692  &, 0.151584e+00_jprb, 0.144204e+00_jprb, 0.137066e+00_jprb &
25693  &, 0.130194e+00_jprb, 0.123576e+00_jprb, 0.117234e+00_jprb, 0.111118e+00_jprb &
25694  &, 0.105247e+00_jprb, 0.996048e-01_jprb, 0.942095e-01_jprb &
25695  &, 0.890009e-01_jprb, 0.840773e-01_jprb, 0.793347e-01_jprb, 0.747883e-01_jprb &
25696  &, 0.704537e-01_jprb, 0.663467e-01_jprb, 0.624391e-01_jprb &
25697  &, 0.587004e-01_jprb, 0.551434e-01_jprb, 0.517344e-01_jprb, 0.485315e-01_jprb &
25698  &, 0.455003e-01_jprb, 0.426037e-01_jprb, 0.399004e-01_jprb &
25699  &, 0.373025e-01_jprb, 0.348682e-01_jprb, 0.325561e-01_jprb, 0.303741e-01_jprb &
25700  &, 0.283304e-01_jprb, 0.263795e-01_jprb, 0.245818e-01_jprb &
25701  &, 0.228356e-01_jprb, 0.212566e-01_jprb, 0.197402e-01_jprb, 0.182904e-01_jprb &
25702  &, 0.169699e-01_jprb, 0.157261e-01_jprb, 0.145634e-01_jprb &
25703  &, 0.134864e-01_jprb, 0.124378e-01_jprb, 0.115446e-01_jprb, 0.106244e-01_jprb &
25704  &, 0.980481e-02_jprb, 0.902579e-02_jprb, 0.835531e-02_jprb/)
25705 xcw( 588, :) = (/ &
25706  & 0.101892e+01_jprb, 0.102263e+01_jprb, 0.102593e+01_jprb, 0.102882e+01_jprb &
25707  &, 0.103128e+01_jprb, 0.103332e+01_jprb, 0.103493e+01_jprb &
25708  &, 0.103612e+01_jprb, 0.103687e+01_jprb, 0.103720e+01_jprb, 0.103710e+01_jprb &
25709  &, 0.103656e+01_jprb, 0.103558e+01_jprb, 0.103417e+01_jprb &
25710  &, 0.103233e+01_jprb, 0.103004e+01_jprb, 0.102733e+01_jprb, 0.102417e+01_jprb &
25711  &, 0.102058e+01_jprb, 0.101657e+01_jprb, 0.101211e+01_jprb &
25712  &, 0.100723e+01_jprb, 0.100193e+01_jprb, 0.996203e+00_jprb, 0.990055e+00_jprb &
25713  &, 0.983496e+00_jprb, 0.976523e+00_jprb, 0.969149e+00_jprb &
25714  &, 0.961376e+00_jprb, 0.953208e+00_jprb, 0.944658e+00_jprb, 0.935731e+00_jprb &
25715  &, 0.926430e+00_jprb, 0.916773e+00_jprb, 0.906765e+00_jprb &
25716  &, 0.896413e+00_jprb, 0.885725e+00_jprb, 0.874723e+00_jprb, 0.863415e+00_jprb &
25717  &, 0.851805e+00_jprb, 0.839906e+00_jprb, 0.827740e+00_jprb &
25718  &, 0.815317e+00_jprb, 0.802643e+00_jprb, 0.789747e+00_jprb, 0.776626e+00_jprb &
25719  &, 0.763303e+00_jprb, 0.749792e+00_jprb, 0.736108e+00_jprb &
25720  &, 0.722267e+00_jprb, 0.708289e+00_jprb, 0.694178e+00_jprb, 0.679956e+00_jprb &
25721  &, 0.665644e+00_jprb, 0.651251e+00_jprb, 0.636785e+00_jprb &
25722  &, 0.622285e+00_jprb, 0.607745e+00_jprb, 0.593189e+00_jprb, 0.578628e+00_jprb &
25723  &, 0.564085e+00_jprb, 0.549571e+00_jprb, 0.535091e+00_jprb &
25724  &, 0.520673e+00_jprb, 0.506341e+00_jprb, 0.492083e+00_jprb, 0.477924e+00_jprb &
25725  &, 0.463868e+00_jprb, 0.449939e+00_jprb, 0.436159e+00_jprb &
25726  &, 0.422531e+00_jprb, 0.409057e+00_jprb, 0.395733e+00_jprb, 0.382625e+00_jprb &
25727  &, 0.369686e+00_jprb, 0.356933e+00_jprb, 0.344406e+00_jprb &
25728  &, 0.332098e+00_jprb, 0.320026e+00_jprb, 0.308154e+00_jprb, 0.296545e+00_jprb &
25729  &, 0.285160e+00_jprb, 0.274037e+00_jprb, 0.263157e+00_jprb &
25730  &, 0.252529e+00_jprb, 0.242160e+00_jprb, 0.232085e+00_jprb, 0.222252e+00_jprb &
25731  &, 0.212661e+00_jprb, 0.203375e+00_jprb, 0.194333e+00_jprb &
25732  &, 0.185567e+00_jprb, 0.177072e+00_jprb, 0.168847e+00_jprb, 0.160885e+00_jprb &
25733  &, 0.153215e+00_jprb, 0.145760e+00_jprb, 0.138614e+00_jprb &
25734  &, 0.131697e+00_jprb, 0.125031e+00_jprb, 0.118603e+00_jprb, 0.112435e+00_jprb &
25735  &, 0.106510e+00_jprb, 0.100849e+00_jprb, 0.953954e-01_jprb &
25736  &, 0.901661e-01_jprb, 0.851796e-01_jprb, 0.803719e-01_jprb, 0.758000e-01_jprb &
25737  &, 0.714387e-01_jprb, 0.672602e-01_jprb, 0.633227e-01_jprb &
25738  &, 0.595530e-01_jprb, 0.559635e-01_jprb, 0.525209e-01_jprb, 0.492830e-01_jprb &
25739  &, 0.462155e-01_jprb, 0.432813e-01_jprb, 0.405391e-01_jprb &
25740  &, 0.379008e-01_jprb, 0.354247e-01_jprb, 0.330694e-01_jprb, 0.308949e-01_jprb &
25741  &, 0.288059e-01_jprb, 0.268618e-01_jprb, 0.250167e-01_jprb &
25742  &, 0.232767e-01_jprb, 0.216480e-01_jprb, 0.200804e-01_jprb, 0.186354e-01_jprb &
25743  &, 0.173196e-01_jprb, 0.160215e-01_jprb, 0.148629e-01_jprb &
25744  &, 0.137292e-01_jprb, 0.127454e-01_jprb, 0.117317e-01_jprb, 0.108771e-01_jprb &
25745  &, 0.999686e-02_jprb, 0.922037e-02_jprb, 0.848674e-02_jprb/)
25746 
25747 IF (lhook) CALL dr_hook('SU_MCICA:PART84',1,zhook_handle)
25748 END SUBROUTINE part84
25749 
25750 #ifdef VPP5000
25751 !OCL SCALAR
25752 #endif
25753 !option! -Nv -NO
25754 #ifdef RS6K
25755 @process nooptimize
25756 #endif
25757 !pgi$r opt=0
25758 SUBROUTINE part85
25759 
25760 REAL(KIND=JPRB) :: ZHOOK_HANDLE
25761 IF (lhook) CALL dr_hook('SU_MCICA:PART85',0,zhook_handle)
25762 
25763 xcw( 589, :) = (/ &
25764  & 0.101918e+01_jprb, 0.102296e+01_jprb, 0.102633e+01_jprb, 0.102928e+01_jprb &
25765  &, 0.103180e+01_jprb, 0.103391e+01_jprb, 0.103559e+01_jprb &
25766  &, 0.103684e+01_jprb, 0.103767e+01_jprb, 0.103805e+01_jprb, 0.103802e+01_jprb &
25767  &, 0.103755e+01_jprb, 0.103664e+01_jprb, 0.103529e+01_jprb &
25768  &, 0.103351e+01_jprb, 0.103130e+01_jprb, 0.102864e+01_jprb, 0.102556e+01_jprb &
25769  &, 0.102203e+01_jprb, 0.101808e+01_jprb, 0.101369e+01_jprb &
25770  &, 0.100887e+01_jprb, 0.100362e+01_jprb, 0.997956e+00_jprb, 0.991867e+00_jprb &
25771  &, 0.985366e+00_jprb, 0.978453e+00_jprb, 0.971133e+00_jprb &
25772  &, 0.963414e+00_jprb, 0.955303e+00_jprb, 0.946802e+00_jprb, 0.937924e+00_jprb &
25773  &, 0.928678e+00_jprb, 0.919065e+00_jprb, 0.909106e+00_jprb &
25774  &, 0.898794e+00_jprb, 0.888157e+00_jprb, 0.877196e+00_jprb, 0.865922e+00_jprb &
25775  &, 0.854354e+00_jprb, 0.842499e+00_jprb, 0.830365e+00_jprb &
25776  &, 0.817975e+00_jprb, 0.805333e+00_jprb, 0.792457e+00_jprb, 0.779368e+00_jprb &
25777  &, 0.766077e+00_jprb, 0.752584e+00_jprb, 0.738917e+00_jprb &
25778  &, 0.725105e+00_jprb, 0.711142e+00_jprb, 0.697045e+00_jprb, 0.682835e+00_jprb &
25779  &, 0.668534e+00_jprb, 0.654135e+00_jprb, 0.639692e+00_jprb &
25780  &, 0.625182e+00_jprb, 0.610647e+00_jprb, 0.596094e+00_jprb, 0.581532e+00_jprb &
25781  &, 0.566971e+00_jprb, 0.552452e+00_jprb, 0.537967e+00_jprb &
25782  &, 0.523540e+00_jprb, 0.509179e+00_jprb, 0.494908e+00_jprb, 0.480733e+00_jprb &
25783  &, 0.466659e+00_jprb, 0.452729e+00_jprb, 0.438906e+00_jprb &
25784  &, 0.425252e+00_jprb, 0.411748e+00_jprb, 0.398393e+00_jprb, 0.385251e+00_jprb &
25785  &, 0.372274e+00_jprb, 0.359503e+00_jprb, 0.346933e+00_jprb &
25786  &, 0.334579e+00_jprb, 0.322457e+00_jprb, 0.310557e+00_jprb, 0.298893e+00_jprb &
25787  &, 0.287475e+00_jprb, 0.276316e+00_jprb, 0.265370e+00_jprb &
25788  &, 0.254701e+00_jprb, 0.244317e+00_jprb, 0.234167e+00_jprb, 0.224283e+00_jprb &
25789  &, 0.214670e+00_jprb, 0.205299e+00_jprb, 0.196231e+00_jprb &
25790  &, 0.187435e+00_jprb, 0.178877e+00_jprb, 0.170586e+00_jprb, 0.162588e+00_jprb &
25791  &, 0.154846e+00_jprb, 0.147350e+00_jprb, 0.140126e+00_jprb &
25792  &, 0.133163e+00_jprb, 0.126450e+00_jprb, 0.120009e+00_jprb, 0.113789e+00_jprb &
25793  &, 0.107810e+00_jprb, 0.102094e+00_jprb, 0.965813e-01_jprb &
25794  &, 0.913312e-01_jprb, 0.862820e-01_jprb, 0.814506e-01_jprb, 0.768538e-01_jprb &
25795  &, 0.724236e-01_jprb, 0.682172e-01_jprb, 0.642063e-01_jprb &
25796  &, 0.604055e-01_jprb, 0.567837e-01_jprb, 0.533074e-01_jprb, 0.500346e-01_jprb &
25797  &, 0.469308e-01_jprb, 0.439590e-01_jprb, 0.411777e-01_jprb &
25798  &, 0.384991e-01_jprb, 0.360318e-01_jprb, 0.336341e-01_jprb, 0.314158e-01_jprb &
25799  &, 0.292814e-01_jprb, 0.273442e-01_jprb, 0.254516e-01_jprb &
25800  &, 0.236626e-01_jprb, 0.220394e-01_jprb, 0.204772e-01_jprb, 0.190378e-01_jprb &
25801  &, 0.176693e-01_jprb, 0.163760e-01_jprb, 0.151624e-01_jprb &
25802  &, 0.140327e-01_jprb, 0.129915e-01_jprb, 0.119811e-01_jprb, 0.110667e-01_jprb &
25803  &, 0.102529e-01_jprb, 0.941496e-02_jprb, 0.868387e-02_jprb/)
25804 xcw( 590, :) = (/ &
25805  & 0.101944e+01_jprb, 0.102329e+01_jprb, 0.102672e+01_jprb, 0.102974e+01_jprb &
25806  &, 0.103233e+01_jprb, 0.103450e+01_jprb, 0.103625e+01_jprb &
25807  &, 0.103757e+01_jprb, 0.103846e+01_jprb, 0.103892e+01_jprb, 0.103895e+01_jprb &
25808  &, 0.103854e+01_jprb, 0.103770e+01_jprb, 0.103642e+01_jprb &
25809  &, 0.103471e+01_jprb, 0.103255e+01_jprb, 0.102996e+01_jprb, 0.102694e+01_jprb &
25810  &, 0.102348e+01_jprb, 0.101959e+01_jprb, 0.101526e+01_jprb &
25811  &, 0.101050e+01_jprb, 0.100532e+01_jprb, 0.999712e+00_jprb, 0.993686e+00_jprb &
25812  &, 0.987239e+00_jprb, 0.980382e+00_jprb, 0.973121e+00_jprb &
25813  &, 0.965455e+00_jprb, 0.957399e+00_jprb, 0.948954e+00_jprb, 0.940126e+00_jprb &
25814  &, 0.930926e+00_jprb, 0.921366e+00_jprb, 0.911451e+00_jprb &
25815  &, 0.901185e+00_jprb, 0.890588e+00_jprb, 0.879670e+00_jprb, 0.868448e+00_jprb &
25816  &, 0.856913e+00_jprb, 0.845091e+00_jprb, 0.833001e+00_jprb &
25817  &, 0.820633e+00_jprb, 0.808035e+00_jprb, 0.795192e+00_jprb, 0.782122e+00_jprb &
25818  &, 0.768850e+00_jprb, 0.755388e+00_jprb, 0.741752e+00_jprb &
25819  &, 0.727944e+00_jprb, 0.713995e+00_jprb, 0.699912e+00_jprb, 0.685714e+00_jprb &
25820  &, 0.671424e+00_jprb, 0.657050e+00_jprb, 0.642599e+00_jprb &
25821  &, 0.628096e+00_jprb, 0.613565e+00_jprb, 0.598998e+00_jprb, 0.584437e+00_jprb &
25822  &, 0.569891e+00_jprb, 0.555351e+00_jprb, 0.540860e+00_jprb &
25823  &, 0.526425e+00_jprb, 0.512054e+00_jprb, 0.497752e+00_jprb, 0.483561e+00_jprb &
25824  &, 0.469469e+00_jprb, 0.455499e+00_jprb, 0.441673e+00_jprb &
25825  &, 0.427972e+00_jprb, 0.414440e+00_jprb, 0.401075e+00_jprb, 0.387898e+00_jprb &
25826  &, 0.374885e+00_jprb, 0.362074e+00_jprb, 0.349484e+00_jprb &
25827  &, 0.337084e+00_jprb, 0.324913e+00_jprb, 0.312986e+00_jprb, 0.301266e+00_jprb &
25828  &, 0.289816e+00_jprb, 0.278594e+00_jprb, 0.267638e+00_jprb &
25829  &, 0.256901e+00_jprb, 0.246445e+00_jprb, 0.236277e+00_jprb, 0.226345e+00_jprb &
25830  &, 0.216680e+00_jprb, 0.207284e+00_jprb, 0.198128e+00_jprb &
25831  &, 0.189271e+00_jprb, 0.180683e+00_jprb, 0.172358e+00_jprb, 0.164291e+00_jprb &
25832  &, 0.156511e+00_jprb, 0.148975e+00_jprb, 0.141709e+00_jprb &
25833  &, 0.134666e+00_jprb, 0.127906e+00_jprb, 0.121415e+00_jprb, 0.115144e+00_jprb &
25834  &, 0.109149e+00_jprb, 0.103338e+00_jprb, 0.978067e-01_jprb &
25835  &, 0.924963e-01_jprb, 0.873844e-01_jprb, 0.825293e-01_jprb, 0.778655e-01_jprb &
25836  &, 0.734085e-01_jprb, 0.691741e-01_jprb, 0.651342e-01_jprb &
25837  &, 0.612581e-01_jprb, 0.576039e-01_jprb, 0.540939e-01_jprb, 0.507861e-01_jprb &
25838  &, 0.476460e-01_jprb, 0.446850e-01_jprb, 0.418164e-01_jprb &
25839  &, 0.391472e-01_jprb, 0.365883e-01_jprb, 0.341988e-01_jprb, 0.319366e-01_jprb &
25840  &, 0.298098e-01_jprb, 0.277730e-01_jprb, 0.258865e-01_jprb &
25841  &, 0.241037e-01_jprb, 0.224308e-01_jprb, 0.208741e-01_jprb, 0.193827e-01_jprb &
25842  &, 0.179607e-01_jprb, 0.166714e-01_jprb, 0.154618e-01_jprb &
25843  &, 0.143362e-01_jprb, 0.132376e-01_jprb, 0.122305e-01_jprb, 0.113194e-01_jprb &
25844  &, 0.104450e-01_jprb, 0.967440e-02_jprb, 0.888100e-02_jprb/)
25845 xcw( 591, :) = (/ &
25846  & 0.101970e+01_jprb, 0.102361e+01_jprb, 0.102711e+01_jprb, 0.103020e+01_jprb &
25847  &, 0.103286e+01_jprb, 0.103510e+01_jprb, 0.103691e+01_jprb &
25848  &, 0.103830e+01_jprb, 0.103926e+01_jprb, 0.103978e+01_jprb, 0.103988e+01_jprb &
25849  &, 0.103953e+01_jprb, 0.103876e+01_jprb, 0.103755e+01_jprb &
25850  &, 0.103590e+01_jprb, 0.103381e+01_jprb, 0.103129e+01_jprb, 0.102833e+01_jprb &
25851  &, 0.102493e+01_jprb, 0.102110e+01_jprb, 0.101683e+01_jprb &
25852  &, 0.101214e+01_jprb, 0.100702e+01_jprb, 0.100147e+01_jprb, 0.995505e+00_jprb &
25853  &, 0.989116e+00_jprb, 0.982319e+00_jprb, 0.975113e+00_jprb &
25854  &, 0.967503e+00_jprb, 0.959498e+00_jprb, 0.951106e+00_jprb, 0.942331e+00_jprb &
25855  &, 0.933183e+00_jprb, 0.923671e+00_jprb, 0.913800e+00_jprb &
25856  &, 0.903584e+00_jprb, 0.893039e+00_jprb, 0.882154e+00_jprb, 0.870964e+00_jprb &
25857  &, 0.859473e+00_jprb, 0.847694e+00_jprb, 0.835637e+00_jprb &
25858  &, 0.823313e+00_jprb, 0.810737e+00_jprb, 0.797914e+00_jprb, 0.784889e+00_jprb &
25859  &, 0.771636e+00_jprb, 0.758193e+00_jprb, 0.744574e+00_jprb &
25860  &, 0.730795e+00_jprb, 0.716862e+00_jprb, 0.702806e+00_jprb, 0.688622e+00_jprb &
25861  &, 0.674329e+00_jprb, 0.659964e+00_jprb, 0.645522e+00_jprb &
25862  &, 0.631025e+00_jprb, 0.616435e+00_jprb, 0.601934e+00_jprb, 0.587358e+00_jprb &
25863  &, 0.572811e+00_jprb, 0.558268e+00_jprb, 0.543754e+00_jprb &
25864  &, 0.529311e+00_jprb, 0.514929e+00_jprb, 0.500614e+00_jprb, 0.486409e+00_jprb &
25865  &, 0.472300e+00_jprb, 0.458309e+00_jprb, 0.444440e+00_jprb &
25866  &, 0.430735e+00_jprb, 0.417174e+00_jprb, 0.403779e+00_jprb, 0.390546e+00_jprb &
25867  &, 0.377518e+00_jprb, 0.364668e+00_jprb, 0.352035e+00_jprb &
25868  &, 0.339613e+00_jprb, 0.327394e+00_jprb, 0.315415e+00_jprb, 0.303665e+00_jprb &
25869  &, 0.292156e+00_jprb, 0.280900e+00_jprb, 0.269879e+00_jprb &
25870  &, 0.259129e+00_jprb, 0.248630e+00_jprb, 0.238387e+00_jprb, 0.228406e+00_jprb &
25871  &, 0.218689e+00_jprb, 0.209239e+00_jprb, 0.200056e+00_jprb &
25872  &, 0.191140e+00_jprb, 0.182520e+00_jprb, 0.174129e+00_jprb, 0.166028e+00_jprb &
25873  &, 0.158176e+00_jprb, 0.150600e+00_jprb, 0.143256e+00_jprb &
25874  &, 0.136204e+00_jprb, 0.129397e+00_jprb, 0.122821e+00_jprb, 0.116536e+00_jprb &
25875  &, 0.110450e+00_jprb, 0.104622e+00_jprb, 0.990321e-01_jprb &
25876  &, 0.936614e-01_jprb, 0.885276e-01_jprb, 0.836079e-01_jprb, 0.789193e-01_jprb &
25877  &, 0.744363e-01_jprb, 0.701311e-01_jprb, 0.660620e-01_jprb &
25878  &, 0.621555e-01_jprb, 0.584696e-01_jprb, 0.549267e-01_jprb, 0.515846e-01_jprb &
25879  &, 0.484090e-01_jprb, 0.453626e-01_jprb, 0.425041e-01_jprb &
25880  &, 0.397953e-01_jprb, 0.371954e-01_jprb, 0.347635e-01_jprb, 0.325095e-01_jprb &
25881  &, 0.303382e-01_jprb, 0.283089e-01_jprb, 0.263758e-01_jprb &
25882  &, 0.245448e-01_jprb, 0.228222e-01_jprb, 0.212710e-01_jprb, 0.197276e-01_jprb &
25883  &, 0.183104e-01_jprb, 0.170259e-01_jprb, 0.157613e-01_jprb &
25884  &, 0.145790e-01_jprb, 0.135453e-01_jprb, 0.124799e-01_jprb, 0.115721e-01_jprb &
25885  &, 0.107011e-01_jprb, 0.986899e-02_jprb, 0.907814e-02_jprb/)
25886 xcw( 592, :) = (/ &
25887  & 0.101996e+01_jprb, 0.102394e+01_jprb, 0.102751e+01_jprb, 0.103065e+01_jprb &
25888  &, 0.103338e+01_jprb, 0.103569e+01_jprb, 0.103757e+01_jprb &
25889  &, 0.103902e+01_jprb, 0.104005e+01_jprb, 0.104064e+01_jprb, 0.104080e+01_jprb &
25890  &, 0.104053e+01_jprb, 0.103982e+01_jprb, 0.103867e+01_jprb &
25891  &, 0.103709e+01_jprb, 0.103507e+01_jprb, 0.103261e+01_jprb, 0.102972e+01_jprb &
25892  &, 0.102638e+01_jprb, 0.102262e+01_jprb, 0.101842e+01_jprb &
25893  &, 0.101378e+01_jprb, 0.100872e+01_jprb, 0.100323e+01_jprb, 0.997327e+00_jprb &
25894  &, 0.991000e+00_jprb, 0.984257e+00_jprb, 0.977105e+00_jprb &
25895  &, 0.969552e+00_jprb, 0.961542e+00_jprb, 0.953266e+00_jprb, 0.944541e+00_jprb &
25896  &, 0.935444e+00_jprb, 0.925980e+00_jprb, 0.916159e+00_jprb &
25897  &, 0.905993e+00_jprb, 0.895481e+00_jprb, 0.884647e+00_jprb, 0.873501e+00_jprb &
25898  &, 0.862053e+00_jprb, 0.850308e+00_jprb, 0.838284e+00_jprb &
25899  &, 0.825993e+00_jprb, 0.813450e+00_jprb, 0.800660e+00_jprb, 0.787655e+00_jprb &
25900  &, 0.774434e+00_jprb, 0.761022e+00_jprb, 0.747421e+00_jprb &
25901  &, 0.733659e+00_jprb, 0.719742e+00_jprb, 0.705701e+00_jprb, 0.691529e+00_jprb &
25902  &, 0.677248e+00_jprb, 0.662893e+00_jprb, 0.648459e+00_jprb &
25903  &, 0.633969e+00_jprb, 0.619432e+00_jprb, 0.604871e+00_jprb, 0.590296e+00_jprb &
25904  &, 0.575731e+00_jprb, 0.561184e+00_jprb, 0.546682e+00_jprb &
25905  &, 0.532214e+00_jprb, 0.517804e+00_jprb, 0.503496e+00_jprb, 0.489257e+00_jprb &
25906  &, 0.475130e+00_jprb, 0.461119e+00_jprb, 0.447227e+00_jprb &
25907  &, 0.433497e+00_jprb, 0.419909e+00_jprb, 0.406483e+00_jprb, 0.393216e+00_jprb &
25908  &, 0.380152e+00_jprb, 0.367285e+00_jprb, 0.354610e+00_jprb &
25909  &, 0.342143e+00_jprb, 0.329899e+00_jprb, 0.317869e+00_jprb, 0.306090e+00_jprb &
25910  &, 0.294523e+00_jprb, 0.283233e+00_jprb, 0.272174e+00_jprb &
25911  &, 0.261357e+00_jprb, 0.250815e+00_jprb, 0.240527e+00_jprb, 0.230497e+00_jprb &
25912  &, 0.220729e+00_jprb, 0.211224e+00_jprb, 0.202016e+00_jprb &
25913  &, 0.193040e+00_jprb, 0.184357e+00_jprb, 0.175901e+00_jprb, 0.167764e+00_jprb &
25914  &, 0.159875e+00_jprb, 0.152225e+00_jprb, 0.144839e+00_jprb &
25915  &, 0.137743e+00_jprb, 0.130889e+00_jprb, 0.124265e+00_jprb, 0.117928e+00_jprb &
25916  &, 0.111789e+00_jprb, 0.105905e+00_jprb, 0.100297e+00_jprb &
25917  &, 0.948667e-01_jprb, 0.897117e-01_jprb, 0.847281e-01_jprb, 0.799731e-01_jprb &
25918  &, 0.754640e-01_jprb, 0.711316e-01_jprb, 0.669898e-01_jprb &
25919  &, 0.630529e-01_jprb, 0.592442e-01_jprb, 0.557595e-01_jprb, 0.523362e-01_jprb &
25920  &, 0.491242e-01_jprb, 0.460887e-01_jprb, 0.431919e-01_jprb &
25921  &, 0.404435e-01_jprb, 0.378531e-01_jprb, 0.353795e-01_jprb, 0.330303e-01_jprb &
25922  &, 0.308665e-01_jprb, 0.287913e-01_jprb, 0.268107e-01_jprb &
25923  &, 0.249858e-01_jprb, 0.232694e-01_jprb, 0.216678e-01_jprb, 0.201300e-01_jprb &
25924  &, 0.186601e-01_jprb, 0.173213e-01_jprb, 0.160607e-01_jprb &
25925  &, 0.148826e-01_jprb, 0.137914e-01_jprb, 0.127916e-01_jprb, 0.118248e-01_jprb &
25926  &, 0.108931e-01_jprb, 0.100636e-01_jprb, 0.927527e-02_jprb/)
25927 xcw( 593, :) = (/ &
25928  & 0.102023e+01_jprb, 0.102427e+01_jprb, 0.102790e+01_jprb, 0.103112e+01_jprb &
25929  &, 0.103391e+01_jprb, 0.103628e+01_jprb, 0.103823e+01_jprb &
25930  &, 0.103975e+01_jprb, 0.104085e+01_jprb, 0.104151e+01_jprb, 0.104174e+01_jprb &
25931  &, 0.104153e+01_jprb, 0.104088e+01_jprb, 0.103980e+01_jprb &
25932  &, 0.103829e+01_jprb, 0.103633e+01_jprb, 0.103394e+01_jprb, 0.103111e+01_jprb &
25933  &, 0.102783e+01_jprb, 0.102413e+01_jprb, 0.102000e+01_jprb &
25934  &, 0.101543e+01_jprb, 0.101043e+01_jprb, 0.100500e+01_jprb, 0.999153e+00_jprb &
25935  &, 0.992884e+00_jprb, 0.986201e+00_jprb, 0.979105e+00_jprb &
25936  &, 0.971609e+00_jprb, 0.963714e+00_jprb, 0.955426e+00_jprb, 0.946756e+00_jprb &
25937  &, 0.937710e+00_jprb, 0.928294e+00_jprb, 0.918522e+00_jprb &
25938  &, 0.908402e+00_jprb, 0.897941e+00_jprb, 0.887151e+00_jprb, 0.876037e+00_jprb &
25939  &, 0.864623e+00_jprb, 0.852921e+00_jprb, 0.840931e+00_jprb &
25940  &, 0.828673e+00_jprb, 0.816163e+00_jprb, 0.803406e+00_jprb, 0.790433e+00_jprb &
25941  &, 0.777233e+00_jprb, 0.763852e+00_jprb, 0.750269e+00_jprb &
25942  &, 0.736524e+00_jprb, 0.722636e+00_jprb, 0.708595e+00_jprb, 0.694437e+00_jprb &
25943  &, 0.680182e+00_jprb, 0.665823e+00_jprb, 0.651397e+00_jprb &
25944  &, 0.636914e+00_jprb, 0.622381e+00_jprb, 0.607824e+00_jprb, 0.593250e+00_jprb &
25945  &, 0.578684e+00_jprb, 0.564118e+00_jprb, 0.549611e+00_jprb &
25946  &, 0.535136e+00_jprb, 0.520716e+00_jprb, 0.506377e+00_jprb, 0.492124e+00_jprb &
25947  &, 0.477980e+00_jprb, 0.463950e+00_jprb, 0.450036e+00_jprb &
25948  &, 0.436260e+00_jprb, 0.422643e+00_jprb, 0.409186e+00_jprb, 0.395909e+00_jprb &
25949  &, 0.382808e+00_jprb, 0.369902e+00_jprb, 0.357185e+00_jprb &
25950  &, 0.344672e+00_jprb, 0.332405e+00_jprb, 0.320348e+00_jprb, 0.308515e+00_jprb &
25951  &, 0.296917e+00_jprb, 0.285565e+00_jprb, 0.274470e+00_jprb &
25952  &, 0.263612e+00_jprb, 0.253000e+00_jprb, 0.242666e+00_jprb, 0.232588e+00_jprb &
25953  &, 0.222798e+00_jprb, 0.213240e+00_jprb, 0.203944e+00_jprb &
25954  &, 0.194939e+00_jprb, 0.186195e+00_jprb, 0.177706e+00_jprb, 0.169500e+00_jprb &
25955  &, 0.161574e+00_jprb, 0.153884e+00_jprb, 0.146457e+00_jprb &
25956  &, 0.139281e+00_jprb, 0.132381e+00_jprb, 0.125708e+00_jprb, 0.119320e+00_jprb &
25957  &, 0.113166e+00_jprb, 0.107227e+00_jprb, 0.101562e+00_jprb &
25958  &, 0.960720e-01_jprb, 0.908549e-01_jprb, 0.858483e-01_jprb, 0.810691e-01_jprb &
25959  &, 0.764918e-01_jprb, 0.721321e-01_jprb, 0.679618e-01_jprb &
25960  &, 0.639503e-01_jprb, 0.602011e-01_jprb, 0.565922e-01_jprb, 0.531347e-01_jprb &
25961  &, 0.498872e-01_jprb, 0.468147e-01_jprb, 0.438796e-01_jprb &
25962  &, 0.410916e-01_jprb, 0.384602e-01_jprb, 0.359441e-01_jprb, 0.336032e-01_jprb &
25963  &, 0.313949e-01_jprb, 0.292737e-01_jprb, 0.272999e-01_jprb &
25964  &, 0.254269e-01_jprb, 0.237167e-01_jprb, 0.220647e-01_jprb, 0.204749e-01_jprb &
25965  &, 0.190680e-01_jprb, 0.176758e-01_jprb, 0.164201e-01_jprb &
25966  &, 0.151861e-01_jprb, 0.140990e-01_jprb, 0.130410e-01_jprb, 0.120776e-01_jprb &
25967  &, 0.111492e-01_jprb, 0.102582e-01_jprb, 0.947240e-02_jprb/)
25968 xcw( 594, :) = (/ &
25969  & 0.102049e+01_jprb, 0.102460e+01_jprb, 0.102830e+01_jprb, 0.103158e+01_jprb &
25970  &, 0.103444e+01_jprb, 0.103687e+01_jprb, 0.103889e+01_jprb &
25971  &, 0.104048e+01_jprb, 0.104164e+01_jprb, 0.104237e+01_jprb, 0.104267e+01_jprb &
25972  &, 0.104253e+01_jprb, 0.104195e+01_jprb, 0.104094e+01_jprb &
25973  &, 0.103948e+01_jprb, 0.103760e+01_jprb, 0.103527e+01_jprb, 0.103250e+01_jprb &
25974  &, 0.102930e+01_jprb, 0.102566e+01_jprb, 0.102158e+01_jprb &
25975  &, 0.101707e+01_jprb, 0.101214e+01_jprb, 0.100677e+01_jprb, 0.100098e+01_jprb &
25976  &, 0.994772e+00_jprb, 0.988146e+00_jprb, 0.981109e+00_jprb &
25977  &, 0.973670e+00_jprb, 0.965829e+00_jprb, 0.957594e+00_jprb, 0.948978e+00_jprb &
25978  &, 0.939980e+00_jprb, 0.930617e+00_jprb, 0.920890e+00_jprb &
25979  &, 0.910811e+00_jprb, 0.900392e+00_jprb, 0.889654e+00_jprb, 0.878584e+00_jprb &
25980  &, 0.867213e+00_jprb, 0.855545e+00_jprb, 0.843588e+00_jprb &
25981  &, 0.831375e+00_jprb, 0.818887e+00_jprb, 0.806163e+00_jprb, 0.793212e+00_jprb &
25982  &, 0.780055e+00_jprb, 0.766681e+00_jprb, 0.753129e+00_jprb &
25983  &, 0.739415e+00_jprb, 0.725529e+00_jprb, 0.711518e+00_jprb, 0.697373e+00_jprb &
25984  &, 0.683115e+00_jprb, 0.668781e+00_jprb, 0.654350e+00_jprb &
25985  &, 0.639874e+00_jprb, 0.625347e+00_jprb, 0.610777e+00_jprb, 0.596204e+00_jprb &
25986  &, 0.581638e+00_jprb, 0.567069e+00_jprb, 0.552540e+00_jprb &
25987  &, 0.538057e+00_jprb, 0.523629e+00_jprb, 0.509278e+00_jprb, 0.495010e+00_jprb &
25988  &, 0.480850e+00_jprb, 0.466780e+00_jprb, 0.452865e+00_jprb &
25989  &, 0.439065e+00_jprb, 0.425421e+00_jprb, 0.411934e+00_jprb, 0.398624e+00_jprb &
25990  &, 0.385487e+00_jprb, 0.372543e+00_jprb, 0.359784e+00_jprb &
25991  &, 0.347250e+00_jprb, 0.334910e+00_jprb, 0.322828e+00_jprb, 0.310940e+00_jprb &
25992  &, 0.299310e+00_jprb, 0.287924e+00_jprb, 0.276765e+00_jprb &
25993  &, 0.265868e+00_jprb, 0.255213e+00_jprb, 0.244834e+00_jprb, 0.234708e+00_jprb &
25994  &, 0.224868e+00_jprb, 0.215256e+00_jprb, 0.205934e+00_jprb &
25995  &, 0.196871e+00_jprb, 0.188064e+00_jprb, 0.179543e+00_jprb, 0.171270e+00_jprb &
25996  &, 0.163272e+00_jprb, 0.155544e+00_jprb, 0.148074e+00_jprb &
25997  &, 0.140855e+00_jprb, 0.133909e+00_jprb, 0.127188e+00_jprb, 0.120750e+00_jprb &
25998  &, 0.114505e+00_jprb, 0.108549e+00_jprb, 0.102827e+00_jprb &
25999  &, 0.973175e-01_jprb, 0.920389e-01_jprb, 0.870099e-01_jprb, 0.821650e-01_jprb &
26000  &, 0.775195e-01_jprb, 0.731326e-01_jprb, 0.688896e-01_jprb &
26001  &, 0.648926e-01_jprb, 0.610668e-01_jprb, 0.574250e-01_jprb, 0.539332e-01_jprb &
26002  &, 0.506501e-01_jprb, 0.475407e-01_jprb, 0.445674e-01_jprb &
26003  &, 0.417397e-01_jprb, 0.390673e-01_jprb, 0.365602e-01_jprb, 0.341761e-01_jprb &
26004  &, 0.319233e-01_jprb, 0.298096e-01_jprb, 0.277892e-01_jprb &
26005  &, 0.259231e-01_jprb, 0.241081e-01_jprb, 0.224616e-01_jprb, 0.208773e-01_jprb &
26006  &, 0.194177e-01_jprb, 0.180303e-01_jprb, 0.167195e-01_jprb &
26007  &, 0.154896e-01_jprb, 0.143451e-01_jprb, 0.132904e-01_jprb, 0.123303e-01_jprb &
26008  &, 0.114053e-01_jprb, 0.105176e-01_jprb, 0.966954e-02_jprb/)
26009 xcw( 595, :) = (/ &
26010  & 0.102075e+01_jprb, 0.102493e+01_jprb, 0.102869e+01_jprb, 0.103204e+01_jprb &
26011  &, 0.103497e+01_jprb, 0.103748e+01_jprb, 0.103956e+01_jprb &
26012  &, 0.104121e+01_jprb, 0.104244e+01_jprb, 0.104324e+01_jprb, 0.104360e+01_jprb &
26013  &, 0.104352e+01_jprb, 0.104302e+01_jprb, 0.104207e+01_jprb &
26014  &, 0.104068e+01_jprb, 0.103886e+01_jprb, 0.103660e+01_jprb, 0.103390e+01_jprb &
26015  &, 0.103076e+01_jprb, 0.102718e+01_jprb, 0.102317e+01_jprb &
26016  &, 0.101873e+01_jprb, 0.101385e+01_jprb, 0.100854e+01_jprb, 0.100281e+01_jprb &
26017  &, 0.996664e+00_jprb, 0.990098e+00_jprb, 0.983116e+00_jprb &
26018  &, 0.975730e+00_jprb, 0.967945e+00_jprb, 0.959767e+00_jprb, 0.951201e+00_jprb &
26019  &, 0.942258e+00_jprb, 0.932939e+00_jprb, 0.923267e+00_jprb &
26020  &, 0.913230e+00_jprb, 0.902862e+00_jprb, 0.892157e+00_jprb, 0.881140e+00_jprb &
26021  &, 0.869803e+00_jprb, 0.858169e+00_jprb, 0.846257e+00_jprb &
26022  &, 0.834077e+00_jprb, 0.821623e+00_jprb, 0.808932e+00_jprb, 0.796014e+00_jprb &
26023  &, 0.782878e+00_jprb, 0.769536e+00_jprb, 0.756002e+00_jprb &
26024  &, 0.742306e+00_jprb, 0.728436e+00_jprb, 0.714440e+00_jprb, 0.700309e+00_jprb &
26025  &, 0.686078e+00_jprb, 0.671740e+00_jprb, 0.657318e+00_jprb &
26026  &, 0.642849e+00_jprb, 0.628312e+00_jprb, 0.613762e+00_jprb, 0.599191e+00_jprb &
26027  &, 0.584609e+00_jprb, 0.570038e+00_jprb, 0.555504e+00_jprb &
26028  &, 0.540997e+00_jprb, 0.526559e+00_jprb, 0.512197e+00_jprb, 0.497916e+00_jprb &
26029  &, 0.483719e+00_jprb, 0.469651e+00_jprb, 0.455694e+00_jprb &
26030  &, 0.441869e+00_jprb, 0.428199e+00_jprb, 0.414682e+00_jprb, 0.401339e+00_jprb &
26031  &, 0.388167e+00_jprb, 0.375183e+00_jprb, 0.362406e+00_jprb &
26032  &, 0.349829e+00_jprb, 0.337466e+00_jprb, 0.325332e+00_jprb, 0.313416e+00_jprb &
26033  &, 0.301730e+00_jprb, 0.290284e+00_jprb, 0.279088e+00_jprb &
26034  &, 0.268151e+00_jprb, 0.257454e+00_jprb, 0.247031e+00_jprb, 0.236858e+00_jprb &
26035  &, 0.226937e+00_jprb, 0.217303e+00_jprb, 0.207925e+00_jprb &
26036  &, 0.198803e+00_jprb, 0.189966e+00_jprb, 0.181380e+00_jprb, 0.173073e+00_jprb &
26037  &, 0.165005e+00_jprb, 0.157237e+00_jprb, 0.149692e+00_jprb &
26038  &, 0.142429e+00_jprb, 0.135437e+00_jprb, 0.128668e+00_jprb, 0.122180e+00_jprb &
26039  &, 0.115920e+00_jprb, 0.109872e+00_jprb, 0.104092e+00_jprb &
26040  &, 0.985630e-01_jprb, 0.932230e-01_jprb, 0.881301e-01_jprb, 0.832610e-01_jprb &
26041  &, 0.785901e-01_jprb, 0.741331e-01_jprb, 0.699058e-01_jprb &
26042  &, 0.658348e-01_jprb, 0.619781e-01_jprb, 0.582578e-01_jprb, 0.547787e-01_jprb &
26043  &, 0.514130e-01_jprb, 0.482667e-01_jprb, 0.452552e-01_jprb &
26044  &, 0.424377e-01_jprb, 0.397251e-01_jprb, 0.371762e-01_jprb, 0.347490e-01_jprb &
26045  &, 0.324516e-01_jprb, 0.303456e-01_jprb, 0.282785e-01_jprb &
26046  &, 0.263642e-01_jprb, 0.245554e-01_jprb, 0.228585e-01_jprb, 0.212797e-01_jprb &
26047  &, 0.197674e-01_jprb, 0.183848e-01_jprb, 0.170789e-01_jprb &
26048  &, 0.157931e-01_jprb, 0.146527e-01_jprb, 0.136022e-01_jprb, 0.125830e-01_jprb &
26049  &, 0.115973e-01_jprb, 0.107122e-01_jprb, 0.993238e-02_jprb/)
26050 
26051 IF (lhook) CALL dr_hook('SU_MCICA:PART85',1,zhook_handle)
26052 END SUBROUTINE part85
26053 
26054 #ifdef VPP5000
26055 !OCL SCALAR
26056 #endif
26057 !option! -Nv -NO
26058 #ifdef RS6K
26059 @process nooptimize
26060 #endif
26061 !pgi$r opt=0
26062 SUBROUTINE part86
26063 
26064 REAL(KIND=JPRB) :: ZHOOK_HANDLE
26065 IF (lhook) CALL dr_hook('SU_MCICA:PART86',0,zhook_handle)
26066 
26067 xcw( 596, :) = (/ &
26068  & 0.102101e+01_jprb, 0.102525e+01_jprb, 0.102909e+01_jprb, 0.103250e+01_jprb &
26069  &, 0.103550e+01_jprb, 0.103807e+01_jprb, 0.104022e+01_jprb &
26070  &, 0.104195e+01_jprb, 0.104324e+01_jprb, 0.104410e+01_jprb, 0.104453e+01_jprb &
26071  &, 0.104453e+01_jprb, 0.104408e+01_jprb, 0.104320e+01_jprb &
26072  &, 0.104188e+01_jprb, 0.104013e+01_jprb, 0.103793e+01_jprb, 0.103529e+01_jprb &
26073  &, 0.103222e+01_jprb, 0.102871e+01_jprb, 0.102476e+01_jprb &
26074  &, 0.102038e+01_jprb, 0.101556e+01_jprb, 0.101032e+01_jprb, 0.100465e+01_jprb &
26075  &, 0.998559e+00_jprb, 0.992050e+00_jprb, 0.985127e+00_jprb &
26076  &, 0.977799e+00_jprb, 0.970069e+00_jprb, 0.961943e+00_jprb, 0.953432e+00_jprb &
26077  &, 0.944537e+00_jprb, 0.935271e+00_jprb, 0.925644e+00_jprb &
26078  &, 0.915657e+00_jprb, 0.905332e+00_jprb, 0.894680e+00_jprb, 0.883697e+00_jprb &
26079  &, 0.872404e+00_jprb, 0.860814e+00_jprb, 0.848936e+00_jprb &
26080  &, 0.836780e+00_jprb, 0.824370e+00_jprb, 0.811713e+00_jprb, 0.798816e+00_jprb &
26081  &, 0.785700e+00_jprb, 0.772391e+00_jprb, 0.758876e+00_jprb &
26082  &, 0.745196e+00_jprb, 0.731357e+00_jprb, 0.717376e+00_jprb, 0.703259e+00_jprb &
26083  &, 0.689026e+00_jprb, 0.674714e+00_jprb, 0.660301e+00_jprb &
26084  &, 0.645825e+00_jprb, 0.631309e+00_jprb, 0.616747e+00_jprb, 0.602162e+00_jprb &
26085  &, 0.587579e+00_jprb, 0.573006e+00_jprb, 0.558468e+00_jprb &
26086  &, 0.543955e+00_jprb, 0.529509e+00_jprb, 0.515116e+00_jprb, 0.500821e+00_jprb &
26087  &, 0.486609e+00_jprb, 0.472522e+00_jprb, 0.458544e+00_jprb &
26088  &, 0.444695e+00_jprb, 0.430998e+00_jprb, 0.417452e+00_jprb, 0.404076e+00_jprb &
26089  &, 0.390869e+00_jprb, 0.377847e+00_jprb, 0.365029e+00_jprb &
26090  &, 0.352431e+00_jprb, 0.340021e+00_jprb, 0.327837e+00_jprb, 0.315867e+00_jprb &
26091  &, 0.304149e+00_jprb, 0.292670e+00_jprb, 0.281438e+00_jprb &
26092  &, 0.270435e+00_jprb, 0.259696e+00_jprb, 0.249228e+00_jprb, 0.239007e+00_jprb &
26093  &, 0.229037e+00_jprb, 0.219349e+00_jprb, 0.209915e+00_jprb &
26094  &, 0.200766e+00_jprb, 0.191868e+00_jprb, 0.183218e+00_jprb, 0.174876e+00_jprb &
26095  &, 0.166772e+00_jprb, 0.158931e+00_jprb, 0.151345e+00_jprb &
26096  &, 0.144039e+00_jprb, 0.136966e+00_jprb, 0.130185e+00_jprb, 0.123610e+00_jprb &
26097  &, 0.117298e+00_jprb, 0.111233e+00_jprb, 0.105396e+00_jprb &
26098  &, 0.998084e-01_jprb, 0.944479e-01_jprb, 0.892918e-01_jprb, 0.843991e-01_jprb &
26099  &, 0.796607e-01_jprb, 0.751771e-01_jprb, 0.708778e-01_jprb &
26100  &, 0.667771e-01_jprb, 0.628438e-01_jprb, 0.591368e-01_jprb, 0.555772e-01_jprb &
26101  &, 0.522237e-01_jprb, 0.490412e-01_jprb, 0.459921e-01_jprb &
26102  &, 0.430858e-01_jprb, 0.403827e-01_jprb, 0.377922e-01_jprb, 0.353220e-01_jprb &
26103  &, 0.330328e-01_jprb, 0.308280e-01_jprb, 0.287677e-01_jprb &
26104  &, 0.268604e-01_jprb, 0.250027e-01_jprb, 0.233120e-01_jprb, 0.216821e-01_jprb &
26105  &, 0.201754e-01_jprb, 0.187393e-01_jprb, 0.173783e-01_jprb &
26106  &, 0.161574e-01_jprb, 0.149603e-01_jprb, 0.138516e-01_jprb, 0.128357e-01_jprb &
26107  &, 0.118534e-01_jprb, 0.109716e-01_jprb, 0.101295e-01_jprb/)
26108 xcw( 597, :) = (/ &
26109  & 0.102127e+01_jprb, 0.102558e+01_jprb, 0.102948e+01_jprb, 0.103296e+01_jprb &
26110  &, 0.103603e+01_jprb, 0.103867e+01_jprb, 0.104089e+01_jprb &
26111  &, 0.104268e+01_jprb, 0.104404e+01_jprb, 0.104497e+01_jprb, 0.104547e+01_jprb &
26112  &, 0.104553e+01_jprb, 0.104515e+01_jprb, 0.104434e+01_jprb &
26113  &, 0.104309e+01_jprb, 0.104140e+01_jprb, 0.103926e+01_jprb, 0.103669e+01_jprb &
26114  &, 0.103368e+01_jprb, 0.103024e+01_jprb, 0.102635e+01_jprb &
26115  &, 0.102203e+01_jprb, 0.101728e+01_jprb, 0.101210e+01_jprb, 0.100649e+01_jprb &
26116  &, 0.100046e+01_jprb, 0.994006e+00_jprb, 0.987142e+00_jprb &
26117  &, 0.979871e+00_jprb, 0.972196e+00_jprb, 0.964124e+00_jprb, 0.955663e+00_jprb &
26118  &, 0.946824e+00_jprb, 0.937607e+00_jprb, 0.928030e+00_jprb &
26119  &, 0.918094e+00_jprb, 0.907812e+00_jprb, 0.897202e+00_jprb, 0.886263e+00_jprb &
26120  &, 0.875004e+00_jprb, 0.863459e+00_jprb, 0.851615e+00_jprb &
26121  &, 0.839504e+00_jprb, 0.827117e+00_jprb, 0.814494e+00_jprb, 0.801630e+00_jprb &
26122  &, 0.788547e+00_jprb, 0.775258e+00_jprb, 0.761775e+00_jprb &
26123  &, 0.748113e+00_jprb, 0.734291e+00_jprb, 0.720312e+00_jprb, 0.706222e+00_jprb &
26124  &, 0.692003e+00_jprb, 0.677687e+00_jprb, 0.663284e+00_jprb &
26125  &, 0.648831e+00_jprb, 0.634307e+00_jprb, 0.619749e+00_jprb, 0.605166e+00_jprb &
26126  &, 0.590584e+00_jprb, 0.576010e+00_jprb, 0.561451e+00_jprb &
26127  &, 0.546931e+00_jprb, 0.532458e+00_jprb, 0.518074e+00_jprb, 0.503746e+00_jprb &
26128  &, 0.489518e+00_jprb, 0.475393e+00_jprb, 0.461393e+00_jprb &
26129  &, 0.447521e+00_jprb, 0.433797e+00_jprb, 0.420221e+00_jprb, 0.406814e+00_jprb &
26130  &, 0.393594e+00_jprb, 0.380534e+00_jprb, 0.367675e+00_jprb &
26131  &, 0.355033e+00_jprb, 0.342601e+00_jprb, 0.330367e+00_jprb, 0.318369e+00_jprb &
26132  &, 0.306595e+00_jprb, 0.295083e+00_jprb, 0.283788e+00_jprb &
26133  &, 0.272746e+00_jprb, 0.261966e+00_jprb, 0.251454e+00_jprb, 0.241186e+00_jprb &
26134  &, 0.231166e+00_jprb, 0.221426e+00_jprb, 0.211937e+00_jprb &
26135  &, 0.202729e+00_jprb, 0.193770e+00_jprb, 0.185088e+00_jprb, 0.176679e+00_jprb &
26136  &, 0.168539e+00_jprb, 0.160625e+00_jprb, 0.152998e+00_jprb &
26137  &, 0.145649e+00_jprb, 0.138530e+00_jprb, 0.131665e+00_jprb, 0.125077e+00_jprb &
26138  &, 0.118713e+00_jprb, 0.112594e+00_jprb, 0.106740e+00_jprb &
26139  &, 0.101094e+00_jprb, 0.956727e-01_jprb, 0.904949e-01_jprb, 0.854950e-01_jprb &
26140  &, 0.807741e-01_jprb, 0.762211e-01_jprb, 0.718498e-01_jprb &
26141  &, 0.677194e-01_jprb, 0.637551e-01_jprb, 0.600159e-01_jprb, 0.564227e-01_jprb &
26142  &, 0.530343e-01_jprb, 0.497672e-01_jprb, 0.467290e-01_jprb &
26143  &, 0.437838e-01_jprb, 0.410405e-01_jprb, 0.384082e-01_jprb, 0.359470e-01_jprb &
26144  &, 0.336140e-01_jprb, 0.313639e-01_jprb, 0.293113e-01_jprb &
26145  &, 0.273566e-01_jprb, 0.254500e-01_jprb, 0.237089e-01_jprb, 0.220845e-01_jprb &
26146  &, 0.205251e-01_jprb, 0.190938e-01_jprb, 0.177377e-01_jprb &
26147  &, 0.164609e-01_jprb, 0.152679e-01_jprb, 0.141633e-01_jprb, 0.130884e-01_jprb &
26148  &, 0.121095e-01_jprb, 0.112311e-01_jprb, 0.103266e-01_jprb/)
26149 xcw( 598, :) = (/ &
26150  & 0.102154e+01_jprb, 0.102591e+01_jprb, 0.102988e+01_jprb, 0.103343e+01_jprb &
26151  &, 0.103656e+01_jprb, 0.103927e+01_jprb, 0.104155e+01_jprb &
26152  &, 0.104341e+01_jprb, 0.104484e+01_jprb, 0.104584e+01_jprb, 0.104640e+01_jprb &
26153  &, 0.104653e+01_jprb, 0.104622e+01_jprb, 0.104548e+01_jprb &
26154  &, 0.104429e+01_jprb, 0.104267e+01_jprb, 0.104060e+01_jprb, 0.103809e+01_jprb &
26155  &, 0.103515e+01_jprb, 0.103176e+01_jprb, 0.102795e+01_jprb &
26156  &, 0.102369e+01_jprb, 0.101900e+01_jprb, 0.101388e+01_jprb, 0.100833e+01_jprb &
26157  &, 0.100236e+01_jprb, 0.995969e+00_jprb, 0.988676e+00_jprb &
26158  &, 0.981947e+00_jprb, 0.974328e+00_jprb, 0.966313e+00_jprb, 0.957903e+00_jprb &
26159  &, 0.949116e+00_jprb, 0.939952e+00_jprb, 0.930420e+00_jprb &
26160  &, 0.920531e+00_jprb, 0.910301e+00_jprb, 0.899725e+00_jprb, 0.888830e+00_jprb &
26161  &, 0.877625e+00_jprb, 0.866104e+00_jprb, 0.854305e+00_jprb &
26162  &, 0.842228e+00_jprb, 0.829876e+00_jprb, 0.817286e+00_jprb, 0.804444e+00_jprb &
26163  &, 0.791394e+00_jprb, 0.778125e+00_jprb, 0.764661e+00_jprb &
26164  &, 0.751030e+00_jprb, 0.737225e+00_jprb, 0.723275e+00_jprb, 0.709187e+00_jprb &
26165  &, 0.694994e+00_jprb, 0.680690e+00_jprb, 0.666297e+00_jprb &
26166  &, 0.651838e+00_jprb, 0.637320e+00_jprb, 0.622766e+00_jprb, 0.608170e+00_jprb &
26167  &, 0.593589e+00_jprb, 0.579013e+00_jprb, 0.564450e+00_jprb &
26168  &, 0.549907e+00_jprb, 0.535444e+00_jprb, 0.521031e+00_jprb, 0.506691e+00_jprb &
26169  &, 0.492448e+00_jprb, 0.478305e+00_jprb, 0.464284e+00_jprb &
26170  &, 0.450389e+00_jprb, 0.436639e+00_jprb, 0.423035e+00_jprb, 0.409596e+00_jprb &
26171  &, 0.396319e+00_jprb, 0.383245e+00_jprb, 0.370345e+00_jprb &
26172  &, 0.357660e+00_jprb, 0.345181e+00_jprb, 0.332922e+00_jprb, 0.320872e+00_jprb &
26173  &, 0.309068e+00_jprb, 0.297496e+00_jprb, 0.286165e+00_jprb &
26174  &, 0.275085e+00_jprb, 0.264264e+00_jprb, 0.253680e+00_jprb, 0.243366e+00_jprb &
26175  &, 0.233296e+00_jprb, 0.223503e+00_jprb, 0.213990e+00_jprb &
26176  &, 0.204724e+00_jprb, 0.195704e+00_jprb, 0.186991e+00_jprb, 0.178516e+00_jprb &
26177  &, 0.170306e+00_jprb, 0.162389e+00_jprb, 0.154686e+00_jprb &
26178  &, 0.147259e+00_jprb, 0.140131e+00_jprb, 0.133219e+00_jprb, 0.126544e+00_jprb &
26179  &, 0.120128e+00_jprb, 0.113994e+00_jprb, 0.108045e+00_jprb &
26180  &, 0.102380e+00_jprb, 0.968976e-01_jprb, 0.916566e-01_jprb, 0.866332e-01_jprb &
26181  &, 0.818447e-01_jprb, 0.772650e-01_jprb, 0.728660e-01_jprb &
26182  &, 0.687065e-01_jprb, 0.647120e-01_jprb, 0.608949e-01_jprb, 0.572682e-01_jprb &
26183  &, 0.538449e-01_jprb, 0.505416e-01_jprb, 0.474659e-01_jprb &
26184  &, 0.444818e-01_jprb, 0.416982e-01_jprb, 0.390756e-01_jprb, 0.365719e-01_jprb &
26185  &, 0.341952e-01_jprb, 0.319535e-01_jprb, 0.298006e-01_jprb &
26186  &, 0.277977e-01_jprb, 0.259532e-01_jprb, 0.241625e-01_jprb, 0.224869e-01_jprb &
26187  &, 0.209330e-01_jprb, 0.194483e-01_jprb, 0.180970e-01_jprb &
26188  &, 0.167644e-01_jprb, 0.155755e-01_jprb, 0.144127e-01_jprb, 0.133412e-01_jprb &
26189  &, 0.123655e-01_jprb, 0.114257e-01_jprb, 0.105895e-01_jprb/)
26190 xcw( 599, :) = (/ &
26191  & 0.102180e+01_jprb, 0.102624e+01_jprb, 0.103027e+01_jprb, 0.103389e+01_jprb &
26192  &, 0.103709e+01_jprb, 0.103987e+01_jprb, 0.104222e+01_jprb &
26193  &, 0.104414e+01_jprb, 0.104564e+01_jprb, 0.104671e+01_jprb, 0.104734e+01_jprb &
26194  &, 0.104754e+01_jprb, 0.104729e+01_jprb, 0.104662e+01_jprb &
26195  &, 0.104550e+01_jprb, 0.104394e+01_jprb, 0.104194e+01_jprb, 0.103950e+01_jprb &
26196  &, 0.103662e+01_jprb, 0.103330e+01_jprb, 0.102954e+01_jprb &
26197  &, 0.102535e+01_jprb, 0.102072e+01_jprb, 0.101567e+01_jprb, 0.101018e+01_jprb &
26198  &, 0.100427e+01_jprb, 0.997936e+00_jprb, 0.991187e+00_jprb &
26199  &, 0.984027e+00_jprb, 0.976464e+00_jprb, 0.968502e+00_jprb, 0.960150e+00_jprb &
26200  &, 0.951411e+00_jprb, 0.942296e+00_jprb, 0.932815e+00_jprb &
26201  &, 0.922978e+00_jprb, 0.912790e+00_jprb, 0.902268e+00_jprb, 0.891406e+00_jprb &
26202  &, 0.880246e+00_jprb, 0.868770e+00_jprb, 0.857006e+00_jprb &
26203  &, 0.844953e+00_jprb, 0.832645e+00_jprb, 0.820078e+00_jprb, 0.807282e+00_jprb &
26204  &, 0.794254e+00_jprb, 0.781004e+00_jprb, 0.767572e+00_jprb &
26205  &, 0.753961e+00_jprb, 0.740172e+00_jprb, 0.726238e+00_jprb, 0.712165e+00_jprb &
26206  &, 0.697986e+00_jprb, 0.683694e+00_jprb, 0.669311e+00_jprb &
26207  &, 0.654844e+00_jprb, 0.640333e+00_jprb, 0.625784e+00_jprb, 0.611208e+00_jprb &
26208  &, 0.596610e+00_jprb, 0.582016e+00_jprb, 0.567450e+00_jprb &
26209  &, 0.552920e+00_jprb, 0.538431e+00_jprb, 0.523988e+00_jprb, 0.509635e+00_jprb &
26210  &, 0.495377e+00_jprb, 0.481216e+00_jprb, 0.467175e+00_jprb &
26211  &, 0.453257e+00_jprb, 0.439482e+00_jprb, 0.425849e+00_jprb, 0.412378e+00_jprb &
26212  &, 0.399067e+00_jprb, 0.385956e+00_jprb, 0.373040e+00_jprb &
26213  &, 0.360311e+00_jprb, 0.347786e+00_jprb, 0.335477e+00_jprb, 0.323400e+00_jprb &
26214  &, 0.311540e+00_jprb, 0.299935e+00_jprb, 0.288570e+00_jprb &
26215  &, 0.277425e+00_jprb, 0.266563e+00_jprb, 0.255935e+00_jprb, 0.245574e+00_jprb &
26216  &, 0.235455e+00_jprb, 0.225611e+00_jprb, 0.216042e+00_jprb &
26217  &, 0.206719e+00_jprb, 0.197670e+00_jprb, 0.188894e+00_jprb, 0.180352e+00_jprb &
26218  &, 0.172107e+00_jprb, 0.164117e+00_jprb, 0.156375e+00_jprb &
26219  &, 0.148904e+00_jprb, 0.141696e+00_jprb, 0.134736e+00_jprb, 0.128049e+00_jprb &
26220  &, 0.121582e+00_jprb, 0.115355e+00_jprb, 0.109389e+00_jprb &
26221  &, 0.103665e+00_jprb, 0.981633e-01_jprb, 0.928597e-01_jprb, 0.878134e-01_jprb &
26222  &, 0.829581e-01_jprb, 0.783525e-01_jprb, 0.738822e-01_jprb &
26223  &, 0.696937e-01_jprb, 0.656233e-01_jprb, 0.618202e-01_jprb, 0.581606e-01_jprb &
26224  &, 0.546555e-01_jprb, 0.513645e-01_jprb, 0.482027e-01_jprb &
26225  &, 0.452297e-01_jprb, 0.424064e-01_jprb, 0.396916e-01_jprb, 0.371448e-01_jprb &
26226  &, 0.347764e-01_jprb, 0.324895e-01_jprb, 0.303442e-01_jprb &
26227  &, 0.282939e-01_jprb, 0.264005e-01_jprb, 0.246160e-01_jprb, 0.229468e-01_jprb &
26228  &, 0.213410e-01_jprb, 0.198619e-01_jprb, 0.184563e-01_jprb &
26229  &, 0.171286e-01_jprb, 0.158832e-01_jprb, 0.147245e-01_jprb, 0.136571e-01_jprb &
26230  &, 0.126216e-01_jprb, 0.116851e-01_jprb, 0.107866e-01_jprb/)
26231 xcw( 600, :) = (/ &
26232  & 0.102206e+01_jprb, 0.102657e+01_jprb, 0.103067e+01_jprb, 0.103435e+01_jprb &
26233  &, 0.103762e+01_jprb, 0.104046e+01_jprb, 0.104287e+01_jprb &
26234  &, 0.104488e+01_jprb, 0.104644e+01_jprb, 0.104758e+01_jprb, 0.104828e+01_jprb &
26235  &, 0.104854e+01_jprb, 0.104837e+01_jprb, 0.104776e+01_jprb &
26236  &, 0.104670e+01_jprb, 0.104521e+01_jprb, 0.104328e+01_jprb, 0.104090e+01_jprb &
26237  &, 0.103809e+01_jprb, 0.103484e+01_jprb, 0.103114e+01_jprb &
26238  &, 0.102701e+01_jprb, 0.102245e+01_jprb, 0.101745e+01_jprb, 0.101203e+01_jprb &
26239  &, 0.100618e+01_jprb, 0.999903e+00_jprb, 0.993214e+00_jprb &
26240  &, 0.986112e+00_jprb, 0.978603e+00_jprb, 0.970699e+00_jprb, 0.962398e+00_jprb &
26241  &, 0.953712e+00_jprb, 0.944650e+00_jprb, 0.935219e+00_jprb &
26242  &, 0.925424e+00_jprb, 0.915289e+00_jprb, 0.904800e+00_jprb, 0.893993e+00_jprb &
26243  &, 0.882867e+00_jprb, 0.871436e+00_jprb, 0.859707e+00_jprb &
26244  &, 0.847699e+00_jprb, 0.835427e+00_jprb, 0.822894e+00_jprb, 0.810120e+00_jprb &
26245  &, 0.797113e+00_jprb, 0.783896e+00_jprb, 0.770484e+00_jprb &
26246  &, 0.756891e+00_jprb, 0.743133e+00_jprb, 0.729216e+00_jprb, 0.715157e+00_jprb &
26247  &, 0.700991e+00_jprb, 0.686697e+00_jprb, 0.672324e+00_jprb &
26248  &, 0.657882e+00_jprb, 0.643377e+00_jprb, 0.628818e+00_jprb, 0.614245e+00_jprb &
26249  &, 0.599649e+00_jprb, 0.585054e+00_jprb, 0.570468e+00_jprb &
26250  &, 0.555932e+00_jprb, 0.541417e+00_jprb, 0.526984e+00_jprb, 0.512619e+00_jprb &
26251  &, 0.498326e+00_jprb, 0.484148e+00_jprb, 0.470087e+00_jprb &
26252  &, 0.456146e+00_jprb, 0.442324e+00_jprb, 0.428663e+00_jprb, 0.415161e+00_jprb &
26253  &, 0.401838e+00_jprb, 0.388690e+00_jprb, 0.375734e+00_jprb &
26254  &, 0.362962e+00_jprb, 0.350415e+00_jprb, 0.338058e+00_jprb, 0.325954e+00_jprb &
26255  &, 0.314038e+00_jprb, 0.302402e+00_jprb, 0.290974e+00_jprb &
26256  &, 0.279792e+00_jprb, 0.268861e+00_jprb, 0.258190e+00_jprb, 0.247783e+00_jprb &
26257  &, 0.237615e+00_jprb, 0.227749e+00_jprb, 0.218095e+00_jprb &
26258  &, 0.208745e+00_jprb, 0.199636e+00_jprb, 0.190796e+00_jprb, 0.182222e+00_jprb &
26259  &, 0.173907e+00_jprb, 0.165880e+00_jprb, 0.158098e+00_jprb &
26260  &, 0.150586e+00_jprb, 0.143333e+00_jprb, 0.136290e+00_jprb, 0.129554e+00_jprb &
26261  &, 0.123036e+00_jprb, 0.116794e+00_jprb, 0.110772e+00_jprb &
26262  &, 0.104951e+00_jprb, 0.994290e-01_jprb, 0.940629e-01_jprb, 0.889937e-01_jprb &
26263  &, 0.840714e-01_jprb, 0.793965e-01_jprb, 0.749426e-01_jprb &
26264  &, 0.706808e-01_jprb, 0.665801e-01_jprb, 0.626992e-01_jprb, 0.590061e-01_jprb &
26265  &, 0.555138e-01_jprb, 0.521389e-01_jprb, 0.489396e-01_jprb &
26266  &, 0.459277e-01_jprb, 0.430642e-01_jprb, 0.403589e-01_jprb, 0.377698e-01_jprb &
26267  &, 0.353576e-01_jprb, 0.330254e-01_jprb, 0.308879e-01_jprb &
26268  &, 0.288452e-01_jprb, 0.269037e-01_jprb, 0.250696e-01_jprb, 0.233492e-01_jprb &
26269  &, 0.217490e-01_jprb, 0.202164e-01_jprb, 0.188157e-01_jprb &
26270  &, 0.174321e-01_jprb, 0.161908e-01_jprb, 0.150362e-01_jprb, 0.139098e-01_jprb &
26271  &, 0.128777e-01_jprb, 0.119446e-01_jprb, 0.110495e-01_jprb/)
26272 xcw( 601, :) = (/ &
26273  & 0.102232e+01_jprb, 0.102690e+01_jprb, 0.103107e+01_jprb, 0.103482e+01_jprb &
26274  &, 0.103815e+01_jprb, 0.104106e+01_jprb, 0.104355e+01_jprb &
26275  &, 0.104561e+01_jprb, 0.104725e+01_jprb, 0.104845e+01_jprb, 0.104922e+01_jprb &
26276  &, 0.104955e+01_jprb, 0.104944e+01_jprb, 0.104890e+01_jprb &
26277  &, 0.104791e+01_jprb, 0.104649e+01_jprb, 0.104462e+01_jprb, 0.104231e+01_jprb &
26278  &, 0.103956e+01_jprb, 0.103637e+01_jprb, 0.103275e+01_jprb &
26279  &, 0.102868e+01_jprb, 0.102418e+01_jprb, 0.101924e+01_jprb, 0.101388e+01_jprb &
26280  &, 0.100809e+01_jprb, 0.100188e+01_jprb, 0.995244e+00_jprb &
26281  &, 0.988199e+00_jprb, 0.980751e+00_jprb, 0.972896e+00_jprb, 0.964650e+00_jprb &
26282  &, 0.956020e+00_jprb, 0.947008e+00_jprb, 0.937628e+00_jprb &
26283  &, 0.927879e+00_jprb, 0.917787e+00_jprb, 0.907352e+00_jprb, 0.896590e+00_jprb &
26284  &, 0.885499e+00_jprb, 0.874113e+00_jprb, 0.862418e+00_jprb &
26285  &, 0.850446e+00_jprb, 0.838208e+00_jprb, 0.825710e+00_jprb, 0.812958e+00_jprb &
26286  &, 0.799996e+00_jprb, 0.786801e+00_jprb, 0.773421e+00_jprb &
26287  &, 0.759847e+00_jprb, 0.746094e+00_jprb, 0.732207e+00_jprb, 0.718163e+00_jprb &
26288  &, 0.703997e+00_jprb, 0.689729e+00_jprb, 0.675368e+00_jprb &
26289  &, 0.660919e+00_jprb, 0.646422e+00_jprb, 0.631868e+00_jprb, 0.617282e+00_jprb &
26290  &, 0.602687e+00_jprb, 0.588092e+00_jprb, 0.573503e+00_jprb &
26291  &, 0.558944e+00_jprb, 0.544440e+00_jprb, 0.529979e+00_jprb, 0.515602e+00_jprb &
26292  &, 0.501294e+00_jprb, 0.487099e+00_jprb, 0.472999e+00_jprb &
26293  &, 0.459035e+00_jprb, 0.445209e+00_jprb, 0.431520e+00_jprb, 0.417988e+00_jprb &
26294  &, 0.404632e+00_jprb, 0.391447e+00_jprb, 0.378452e+00_jprb &
26295  &, 0.365638e+00_jprb, 0.353045e+00_jprb, 0.340663e+00_jprb, 0.328507e+00_jprb &
26296  &, 0.316563e+00_jprb, 0.304868e+00_jprb, 0.293406e+00_jprb &
26297  &, 0.282186e+00_jprb, 0.271216e+00_jprb, 0.260473e+00_jprb, 0.250021e+00_jprb &
26298  &, 0.239804e+00_jprb, 0.229887e+00_jprb, 0.220179e+00_jprb &
26299  &, 0.210772e+00_jprb, 0.201635e+00_jprb, 0.192732e+00_jprb, 0.184125e+00_jprb &
26300  &, 0.175742e+00_jprb, 0.167609e+00_jprb, 0.159821e+00_jprb &
26301  &, 0.152267e+00_jprb, 0.144934e+00_jprb, 0.137882e+00_jprb, 0.131059e+00_jprb &
26302  &, 0.124528e+00_jprb, 0.118194e+00_jprb, 0.112116e+00_jprb &
26303  &, 0.106277e+00_jprb, 0.100695e+00_jprb, 0.953075e-01_jprb, 0.901740e-01_jprb &
26304  &, 0.852277e-01_jprb, 0.804840e-01_jprb, 0.760029e-01_jprb &
26305  &, 0.716680e-01_jprb, 0.675825e-01_jprb, 0.636245e-01_jprb, 0.598986e-01_jprb &
26306  &, 0.563245e-01_jprb, 0.529617e-01_jprb, 0.497257e-01_jprb &
26307  &, 0.466755e-01_jprb, 0.437724e-01_jprb, 0.410263e-01_jprb, 0.383948e-01_jprb &
26308  &, 0.359388e-01_jprb, 0.336150e-01_jprb, 0.314315e-01_jprb &
26309  &, 0.293414e-01_jprb, 0.273510e-01_jprb, 0.255232e-01_jprb, 0.238091e-01_jprb &
26310  &, 0.221569e-01_jprb, 0.206300e-01_jprb, 0.191750e-01_jprb &
26311  &, 0.177964e-01_jprb, 0.164984e-01_jprb, 0.153480e-01_jprb, 0.142257e-01_jprb &
26312  &, 0.131978e-01_jprb, 0.122040e-01_jprb, 0.112466e-01_jprb/)
26313 xcw( 602, :) = (/ &
26314  & 0.102259e+01_jprb, 0.102723e+01_jprb, 0.103146e+01_jprb, 0.103528e+01_jprb &
26315  &, 0.103868e+01_jprb, 0.104166e+01_jprb, 0.104422e+01_jprb &
26316  &, 0.104635e+01_jprb, 0.104805e+01_jprb, 0.104932e+01_jprb, 0.105016e+01_jprb &
26317  &, 0.105056e+01_jprb, 0.105052e+01_jprb, 0.105004e+01_jprb &
26318  &, 0.104912e+01_jprb, 0.104776e+01_jprb, 0.104596e+01_jprb, 0.104372e+01_jprb &
26319  &, 0.104104e+01_jprb, 0.103792e+01_jprb, 0.103435e+01_jprb &
26320  &, 0.103035e+01_jprb, 0.102591e+01_jprb, 0.102104e+01_jprb, 0.101574e+01_jprb &
26321  &, 0.101001e+01_jprb, 0.100385e+01_jprb, 0.997282e+00_jprb &
26322  &, 0.990295e+00_jprb, 0.982899e+00_jprb, 0.975101e+00_jprb, 0.966911e+00_jprb &
26323  &, 0.958333e+00_jprb, 0.949371e+00_jprb, 0.940041e+00_jprb &
26324  &, 0.930344e+00_jprb, 0.920295e+00_jprb, 0.909904e+00_jprb, 0.899186e+00_jprb &
26325  &, 0.888140e+00_jprb, 0.876790e+00_jprb, 0.865141e+00_jprb &
26326  &, 0.853203e+00_jprb, 0.841000e+00_jprb, 0.828525e+00_jprb, 0.815820e+00_jprb &
26327  &, 0.802880e+00_jprb, 0.789718e+00_jprb, 0.776346e+00_jprb &
26328  &, 0.762804e+00_jprb, 0.749082e+00_jprb, 0.735198e+00_jprb, 0.721184e+00_jprb &
26329  &, 0.707032e+00_jprb, 0.692762e+00_jprb, 0.678411e+00_jprb &
26330  &, 0.663972e+00_jprb, 0.649482e+00_jprb, 0.634935e+00_jprb, 0.620352e+00_jprb &
26331  &, 0.605743e+00_jprb, 0.591147e+00_jprb, 0.576556e+00_jprb &
26332  &, 0.561993e+00_jprb, 0.547464e+00_jprb, 0.532993e+00_jprb, 0.518585e+00_jprb &
26333  &, 0.504283e+00_jprb, 0.490051e+00_jprb, 0.475952e+00_jprb &
26334  &, 0.461945e+00_jprb, 0.448094e+00_jprb, 0.434378e+00_jprb, 0.420815e+00_jprb &
26335  &, 0.407426e+00_jprb, 0.394205e+00_jprb, 0.381170e+00_jprb &
26336  &, 0.368337e+00_jprb, 0.355699e+00_jprb, 0.343269e+00_jprb, 0.331087e+00_jprb &
26337  &, 0.319088e+00_jprb, 0.307362e+00_jprb, 0.295838e+00_jprb &
26338  &, 0.284581e+00_jprb, 0.273543e+00_jprb, 0.262786e+00_jprb, 0.252288e+00_jprb &
26339  &, 0.242024e+00_jprb, 0.232025e+00_jprb, 0.222294e+00_jprb &
26340  &, 0.212830e+00_jprb, 0.203633e+00_jprb, 0.194701e+00_jprb, 0.186029e+00_jprb &
26341  &, 0.177611e+00_jprb, 0.169441e+00_jprb, 0.161580e+00_jprb &
26342  &, 0.153949e+00_jprb, 0.146571e+00_jprb, 0.139473e+00_jprb, 0.132602e+00_jprb &
26343  &, 0.126020e+00_jprb, 0.119633e+00_jprb, 0.113500e+00_jprb &
26344  &, 0.107643e+00_jprb, 0.101960e+00_jprb, 0.965521e-01_jprb, 0.913542e-01_jprb &
26345  &, 0.863839e-01_jprb, 0.816150e-01_jprb, 0.770633e-01_jprb &
26346  &, 0.727000e-01_jprb, 0.685394e-01_jprb, 0.645498e-01_jprb, 0.607910e-01_jprb &
26347  &, 0.571828e-01_jprb, 0.537846e-01_jprb, 0.505117e-01_jprb &
26348  &, 0.474233e-01_jprb, 0.444807e-01_jprb, 0.416936e-01_jprb, 0.390719e-01_jprb &
26349  &, 0.365729e-01_jprb, 0.342046e-01_jprb, 0.319751e-01_jprb &
26350  &, 0.298376e-01_jprb, 0.278542e-01_jprb, 0.259767e-01_jprb, 0.242115e-01_jprb &
26351  &, 0.225649e-01_jprb, 0.209845e-01_jprb, 0.195344e-01_jprb &
26352  &, 0.181606e-01_jprb, 0.168676e-01_jprb, 0.156597e-01_jprb, 0.144784e-01_jprb &
26353  &, 0.134539e-01_jprb, 0.124635e-01_jprb, 0.115094e-01_jprb/)
26354 
26355 IF (lhook) CALL dr_hook('SU_MCICA:PART86',1,zhook_handle)
26356 END SUBROUTINE part86
26357 
26358 #ifdef VPP5000
26359 !OCL SCALAR
26360 #endif
26361 !option! -Nv -NO
26362 #ifdef RS6K
26363 @process nooptimize
26364 #endif
26365 !pgi$r opt=0
26366 SUBROUTINE part87
26367 
26368 REAL(KIND=JPRB) :: ZHOOK_HANDLE
26369 IF (lhook) CALL dr_hook('SU_MCICA:PART87',0,zhook_handle)
26370 
26371 xcw( 603, :) = (/ &
26372  & 0.102285e+01_jprb, 0.102756e+01_jprb, 0.103186e+01_jprb, 0.103575e+01_jprb &
26373  &, 0.103922e+01_jprb, 0.104226e+01_jprb, 0.104489e+01_jprb &
26374  &, 0.104709e+01_jprb, 0.104886e+01_jprb, 0.105020e+01_jprb, 0.105110e+01_jprb &
26375  &, 0.105157e+01_jprb, 0.105160e+01_jprb, 0.105119e+01_jprb &
26376  &, 0.105034e+01_jprb, 0.104904e+01_jprb, 0.104731e+01_jprb, 0.104514e+01_jprb &
26377  &, 0.104252e+01_jprb, 0.103946e+01_jprb, 0.103596e+01_jprb &
26378  &, 0.103202e+01_jprb, 0.102765e+01_jprb, 0.102284e+01_jprb, 0.101760e+01_jprb &
26379  &, 0.101193e+01_jprb, 0.100583e+01_jprb, 0.999319e+00_jprb &
26380  &, 0.992391e+00_jprb, 0.985055e+00_jprb, 0.977315e+00_jprb, 0.969176e+00_jprb &
26381  &, 0.960650e+00_jprb, 0.951742e+00_jprb, 0.942318e+00_jprb &
26382  &, 0.932809e+00_jprb, 0.922813e+00_jprb, 0.912466e+00_jprb, 0.901793e+00_jprb &
26383  &, 0.890792e+00_jprb, 0.879477e+00_jprb, 0.867863e+00_jprb &
26384  &, 0.855972e+00_jprb, 0.843793e+00_jprb, 0.831364e+00_jprb, 0.818681e+00_jprb &
26385  &, 0.805764e+00_jprb, 0.792635e+00_jprb, 0.779296e+00_jprb &
26386  &, 0.765773e+00_jprb, 0.752070e+00_jprb, 0.738203e+00_jprb, 0.724204e+00_jprb &
26387  &, 0.710067e+00_jprb, 0.695825e+00_jprb, 0.681470e+00_jprb &
26388  &, 0.667040e+00_jprb, 0.652543e+00_jprb, 0.638001e+00_jprb, 0.623423e+00_jprb &
26389  &, 0.608816e+00_jprb, 0.594220e+00_jprb, 0.579609e+00_jprb &
26390  &, 0.565041e+00_jprb, 0.550506e+00_jprb, 0.536026e+00_jprb, 0.521607e+00_jprb &
26391  &, 0.507272e+00_jprb, 0.493023e+00_jprb, 0.478905e+00_jprb &
26392  &, 0.464876e+00_jprb, 0.451001e+00_jprb, 0.437258e+00_jprb, 0.423665e+00_jprb &
26393  &, 0.410242e+00_jprb, 0.396985e+00_jprb, 0.383911e+00_jprb &
26394  &, 0.371037e+00_jprb, 0.358378e+00_jprb, 0.345900e+00_jprb, 0.333667e+00_jprb &
26395  &, 0.321639e+00_jprb, 0.309855e+00_jprb, 0.298298e+00_jprb &
26396  &, 0.287004e+00_jprb, 0.275926e+00_jprb, 0.265099e+00_jprb, 0.254556e+00_jprb &
26397  &, 0.244243e+00_jprb, 0.234194e+00_jprb, 0.224409e+00_jprb &
26398  &, 0.214888e+00_jprb, 0.205632e+00_jprb, 0.196669e+00_jprb, 0.187932e+00_jprb &
26399  &, 0.179480e+00_jprb, 0.171273e+00_jprb, 0.163338e+00_jprb &
26400  &, 0.155666e+00_jprb, 0.148245e+00_jprb, 0.141064e+00_jprb, 0.134182e+00_jprb &
26401  &, 0.127511e+00_jprb, 0.121110e+00_jprb, 0.114923e+00_jprb &
26402  &, 0.108969e+00_jprb, 0.103267e+00_jprb, 0.977968e-01_jprb, 0.925767e-01_jprb &
26403  &, 0.875401e-01_jprb, 0.827460e-01_jprb, 0.781237e-01_jprb &
26404  &, 0.737320e-01_jprb, 0.695418e-01_jprb, 0.655214e-01_jprb, 0.616835e-01_jprb &
26405  &, 0.580411e-01_jprb, 0.546074e-01_jprb, 0.512977e-01_jprb &
26406  &, 0.481712e-01_jprb, 0.451890e-01_jprb, 0.423610e-01_jprb, 0.396969e-01_jprb &
26407  &, 0.372069e-01_jprb, 0.347941e-01_jprb, 0.325187e-01_jprb &
26408  &, 0.303890e-01_jprb, 0.283574e-01_jprb, 0.264870e-01_jprb, 0.246714e-01_jprb &
26409  &, 0.229729e-01_jprb, 0.213981e-01_jprb, 0.198937e-01_jprb &
26410  &, 0.185248e-01_jprb, 0.171752e-01_jprb, 0.159715e-01_jprb, 0.147943e-01_jprb &
26411  &, 0.137099e-01_jprb, 0.127229e-01_jprb, 0.117723e-01_jprb/)
26412 xcw( 604, :) = (/ &
26413  & 0.102312e+01_jprb, 0.102789e+01_jprb, 0.103226e+01_jprb, 0.103621e+01_jprb &
26414  &, 0.103975e+01_jprb, 0.104287e+01_jprb, 0.104556e+01_jprb &
26415  &, 0.104783e+01_jprb, 0.104966e+01_jprb, 0.105107e+01_jprb, 0.105204e+01_jprb &
26416  &, 0.105258e+01_jprb, 0.105267e+01_jprb, 0.105233e+01_jprb &
26417  &, 0.105155e+01_jprb, 0.105033e+01_jprb, 0.104866e+01_jprb, 0.104655e+01_jprb &
26418  &, 0.104400e+01_jprb, 0.104101e+01_jprb, 0.103757e+01_jprb &
26419  &, 0.103370e+01_jprb, 0.102939e+01_jprb, 0.102464e+01_jprb, 0.101946e+01_jprb &
26420  &, 0.101385e+01_jprb, 0.100782e+01_jprb, 0.100136e+01_jprb &
26421  &, 0.994495e+00_jprb, 0.987214e+00_jprb, 0.979528e+00_jprb, 0.971445e+00_jprb &
26422  &, 0.962972e+00_jprb, 0.954118e+00_jprb, 0.944885e+00_jprb &
26423  &, 0.935274e+00_jprb, 0.925340e+00_jprb, 0.915038e+00_jprb, 0.904400e+00_jprb &
26424  &, 0.893444e+00_jprb, 0.882175e+00_jprb, 0.870607e+00_jprb &
26425  &, 0.858740e+00_jprb, 0.846608e+00_jprb, 0.834203e+00_jprb, 0.821555e+00_jprb &
26426  &, 0.808672e+00_jprb, 0.795565e+00_jprb, 0.782259e+00_jprb &
26427  &, 0.768743e+00_jprb, 0.755071e+00_jprb, 0.741221e+00_jprb, 0.727239e+00_jprb &
26428  &, 0.713116e+00_jprb, 0.698887e+00_jprb, 0.684544e+00_jprb &
26429  &, 0.670124e+00_jprb, 0.655635e+00_jprb, 0.641084e+00_jprb, 0.626510e+00_jprb &
26430  &, 0.611905e+00_jprb, 0.597293e+00_jprb, 0.582698e+00_jprb &
26431  &, 0.568108e+00_jprb, 0.553567e+00_jprb, 0.539059e+00_jprb, 0.524629e+00_jprb &
26432  &, 0.510280e+00_jprb, 0.496015e+00_jprb, 0.481858e+00_jprb &
26433  &, 0.467829e+00_jprb, 0.453908e+00_jprb, 0.440137e+00_jprb, 0.426515e+00_jprb &
26434  &, 0.413059e+00_jprb, 0.399790e+00_jprb, 0.386677e+00_jprb &
26435  &, 0.373785e+00_jprb, 0.361058e+00_jprb, 0.348557e+00_jprb, 0.336272e+00_jprb &
26436  &, 0.324217e+00_jprb, 0.312375e+00_jprb, 0.300784e+00_jprb &
26437  &, 0.289427e+00_jprb, 0.278310e+00_jprb, 0.267440e+00_jprb, 0.256853e+00_jprb &
26438  &, 0.246493e+00_jprb, 0.236393e+00_jprb, 0.226555e+00_jprb &
26439  &, 0.216978e+00_jprb, 0.207695e+00_jprb, 0.198638e+00_jprb, 0.189868e+00_jprb &
26440  &, 0.181349e+00_jprb, 0.173105e+00_jprb, 0.165097e+00_jprb &
26441  &, 0.157383e+00_jprb, 0.149919e+00_jprb, 0.142692e+00_jprb, 0.135725e+00_jprb &
26442  &, 0.129042e+00_jprb, 0.122549e+00_jprb, 0.116346e+00_jprb &
26443  &, 0.110375e+00_jprb, 0.104614e+00_jprb, 0.990829e-01_jprb, 0.937991e-01_jprb &
26444  &, 0.887391e-01_jprb, 0.838770e-01_jprb, 0.792282e-01_jprb &
26445  &, 0.747640e-01_jprb, 0.705443e-01_jprb, 0.664930e-01_jprb, 0.626229e-01_jprb &
26446  &, 0.589471e-01_jprb, 0.554302e-01_jprb, 0.520837e-01_jprb &
26447  &, 0.489190e-01_jprb, 0.459479e-01_jprb, 0.430796e-01_jprb, 0.403740e-01_jprb &
26448  &, 0.377881e-01_jprb, 0.353837e-01_jprb, 0.331167e-01_jprb &
26449  &, 0.309403e-01_jprb, 0.288607e-01_jprb, 0.269406e-01_jprb, 0.251312e-01_jprb &
26450  &, 0.234391e-01_jprb, 0.218117e-01_jprb, 0.203130e-01_jprb &
26451  &, 0.188891e-01_jprb, 0.175443e-01_jprb, 0.162832e-01_jprb, 0.151102e-01_jprb &
26452  &, 0.140300e-01_jprb, 0.129824e-01_jprb, 0.120351e-01_jprb/)
26453 xcw( 605, :) = (/ &
26454  & 0.102338e+01_jprb, 0.102822e+01_jprb, 0.103266e+01_jprb, 0.103668e+01_jprb &
26455  &, 0.104028e+01_jprb, 0.104347e+01_jprb, 0.104623e+01_jprb &
26456  &, 0.104857e+01_jprb, 0.105047e+01_jprb, 0.105195e+01_jprb, 0.105299e+01_jprb &
26457  &, 0.105359e+01_jprb, 0.105375e+01_jprb, 0.105348e+01_jprb &
26458  &, 0.105277e+01_jprb, 0.105161e+01_jprb, 0.105001e+01_jprb, 0.104797e+01_jprb &
26459  &, 0.104548e+01_jprb, 0.104255e+01_jprb, 0.103919e+01_jprb &
26460  &, 0.103538e+01_jprb, 0.103113e+01_jprb, 0.102644e+01_jprb, 0.102133e+01_jprb &
26461  &, 0.101578e+01_jprb, 0.100981e+01_jprb, 0.100341e+01_jprb &
26462  &, 0.996602e+00_jprb, 0.989378e+00_jprb, 0.981746e+00_jprb, 0.973722e+00_jprb &
26463  &, 0.965302e+00_jprb, 0.956498e+00_jprb, 0.947316e+00_jprb &
26464  &, 0.937767e+00_jprb, 0.927868e+00_jprb, 0.917610e+00_jprb, 0.907026e+00_jprb &
26465  &, 0.896107e+00_jprb, 0.884883e+00_jprb, 0.873341e+00_jprb &
26466  &, 0.861520e+00_jprb, 0.849423e+00_jprb, 0.837054e+00_jprb, 0.824440e+00_jprb &
26467  &, 0.811580e+00_jprb, 0.798507e+00_jprb, 0.785222e+00_jprb &
26468  &, 0.771739e+00_jprb, 0.758072e+00_jprb, 0.744254e+00_jprb, 0.730287e+00_jprb &
26469  &, 0.716180e+00_jprb, 0.701949e+00_jprb, 0.687633e+00_jprb &
26470  &, 0.673208e+00_jprb, 0.658727e+00_jprb, 0.644199e+00_jprb, 0.629614e+00_jprb &
26471  &, 0.615012e+00_jprb, 0.600383e+00_jprb, 0.585786e+00_jprb &
26472  &, 0.571193e+00_jprb, 0.556627e+00_jprb, 0.542130e+00_jprb, 0.527670e+00_jprb &
26473  &, 0.513308e+00_jprb, 0.499028e+00_jprb, 0.484852e+00_jprb &
26474  &, 0.470781e+00_jprb, 0.456858e+00_jprb, 0.443061e+00_jprb, 0.429409e+00_jprb &
26475  &, 0.415922e+00_jprb, 0.402594e+00_jprb, 0.389467e+00_jprb &
26476  &, 0.376509e+00_jprb, 0.363762e+00_jprb, 0.351239e+00_jprb, 0.338904e+00_jprb &
26477  &, 0.326794e+00_jprb, 0.314922e+00_jprb, 0.303271e+00_jprb &
26478  &, 0.291877e+00_jprb, 0.280722e+00_jprb, 0.269811e+00_jprb, 0.259149e+00_jprb &
26479  &, 0.248742e+00_jprb, 0.238592e+00_jprb, 0.228701e+00_jprb &
26480  &, 0.219100e+00_jprb, 0.209726e+00_jprb, 0.200639e+00_jprb, 0.191805e+00_jprb &
26481  &, 0.183251e+00_jprb, 0.174938e+00_jprb, 0.166890e+00_jprb &
26482  &, 0.159136e+00_jprb, 0.151593e+00_jprb, 0.144320e+00_jprb, 0.137305e+00_jprb &
26483  &, 0.130572e+00_jprb, 0.124027e+00_jprb, 0.117769e+00_jprb &
26484  &, 0.111741e+00_jprb, 0.105962e+00_jprb, 0.100369e+00_jprb, 0.950215e-01_jprb &
26485  &, 0.898954e-01_jprb, 0.850079e-01_jprb, 0.803327e-01_jprb &
26486  &, 0.758409e-01_jprb, 0.715467e-01_jprb, 0.674645e-01_jprb, 0.635624e-01_jprb &
26487  &, 0.598531e-01_jprb, 0.563015e-01_jprb, 0.529189e-01_jprb &
26488  &, 0.497167e-01_jprb, 0.466562e-01_jprb, 0.437983e-01_jprb, 0.410510e-01_jprb &
26489  &, 0.384750e-01_jprb, 0.359732e-01_jprb, 0.336603e-01_jprb &
26490  &, 0.314917e-01_jprb, 0.294198e-01_jprb, 0.274508e-01_jprb, 0.255911e-01_jprb &
26491  &, 0.238471e-01_jprb, 0.222252e-01_jprb, 0.206723e-01_jprb &
26492  &, 0.192533e-01_jprb, 0.179135e-01_jprb, 0.165949e-01_jprb, 0.154261e-01_jprb &
26493  &, 0.142861e-01_jprb, 0.132418e-01_jprb, 0.122980e-01_jprb/)
26494 xcw( 606, :) = (/ &
26495  & 0.102364e+01_jprb, 0.102855e+01_jprb, 0.103306e+01_jprb, 0.103714e+01_jprb &
26496  &, 0.104082e+01_jprb, 0.104407e+01_jprb, 0.104690e+01_jprb &
26497  &, 0.104930e+01_jprb, 0.105128e+01_jprb, 0.105282e+01_jprb, 0.105393e+01_jprb &
26498  &, 0.105460e+01_jprb, 0.105484e+01_jprb, 0.105463e+01_jprb &
26499  &, 0.105398e+01_jprb, 0.105290e+01_jprb, 0.105136e+01_jprb, 0.104939e+01_jprb &
26500  &, 0.104697e+01_jprb, 0.104411e+01_jprb, 0.104080e+01_jprb &
26501  &, 0.103706e+01_jprb, 0.103287e+01_jprb, 0.102825e+01_jprb, 0.102320e+01_jprb &
26502  &, 0.101771e+01_jprb, 0.101180e+01_jprb, 0.100546e+01_jprb &
26503  &, 0.998710e+00_jprb, 0.991546e+00_jprb, 0.983972e+00_jprb, 0.976000e+00_jprb &
26504  &, 0.967633e+00_jprb, 0.958883e+00_jprb, 0.949720e+00_jprb &
26505  &, 0.940259e+00_jprb, 0.930395e+00_jprb, 0.920191e+00_jprb, 0.909653e+00_jprb &
26506  &, 0.898779e+00_jprb, 0.887591e+00_jprb, 0.876095e+00_jprb &
26507  &, 0.864311e+00_jprb, 0.852250e+00_jprb, 0.839916e+00_jprb, 0.827326e+00_jprb &
26508  &, 0.814500e+00_jprb, 0.801449e+00_jprb, 0.788198e+00_jprb &
26509  &, 0.774735e+00_jprb, 0.761101e+00_jprb, 0.747300e+00_jprb, 0.733336e+00_jprb &
26510  &, 0.719243e+00_jprb, 0.705041e+00_jprb, 0.690722e+00_jprb &
26511  &, 0.676323e+00_jprb, 0.661836e+00_jprb, 0.647298e+00_jprb, 0.632717e+00_jprb &
26512  &, 0.618118e+00_jprb, 0.603438e+00_jprb, 0.588875e+00_jprb &
26513  &, 0.574278e+00_jprb, 0.559725e+00_jprb, 0.545202e+00_jprb, 0.530731e+00_jprb &
26514  &, 0.516356e+00_jprb, 0.496885e+00_jprb, 0.487846e+00_jprb &
26515  &, 0.473755e+00_jprb, 0.459808e+00_jprb, 0.445985e+00_jprb, 0.432304e+00_jprb &
26516  &, 0.418784e+00_jprb, 0.405421e+00_jprb, 0.392256e+00_jprb &
26517  &, 0.379282e+00_jprb, 0.366490e+00_jprb, 0.353920e+00_jprb, 0.341535e+00_jprb &
26518  &, 0.329398e+00_jprb, 0.317469e+00_jprb, 0.305785e+00_jprb &
26519  &, 0.294328e+00_jprb, 0.283134e+00_jprb, 0.272181e+00_jprb, 0.261476e+00_jprb &
26520  &, 0.251022e+00_jprb, 0.240822e+00_jprb, 0.230878e+00_jprb &
26521  &, 0.221221e+00_jprb, 0.211821e+00_jprb, 0.202673e+00_jprb, 0.193775e+00_jprb &
26522  &, 0.185154e+00_jprb, 0.176804e+00_jprb, 0.168719e+00_jprb &
26523  &, 0.160889e+00_jprb, 0.153303e+00_jprb, 0.145985e+00_jprb, 0.138923e+00_jprb &
26524  &, 0.132102e+00_jprb, 0.125544e+00_jprb, 0.119232e+00_jprb &
26525  &, 0.113147e+00_jprb, 0.107309e+00_jprb, 0.101697e+00_jprb, 0.962861e-01_jprb &
26526  &, 0.911372e-01_jprb, 0.861824e-01_jprb, 0.814373e-01_jprb &
26527  &, 0.769178e-01_jprb, 0.725947e-01_jprb, 0.684361e-01_jprb, 0.645018e-01_jprb &
26528  &, 0.607114e-01_jprb, 0.571727e-01_jprb, 0.537540e-01_jprb &
26529  &, 0.505144e-01_jprb, 0.474151e-01_jprb, 0.445170e-01_jprb, 0.417281e-01_jprb &
26530  &, 0.391090e-01_jprb, 0.366164e-01_jprb, 0.342583e-01_jprb &
26531  &, 0.320430e-01_jprb, 0.299230e-01_jprb, 0.279611e-01_jprb, 0.260510e-01_jprb &
26532  &, 0.243134e-01_jprb, 0.226388e-01_jprb, 0.210915e-01_jprb &
26533  &, 0.196175e-01_jprb, 0.182211e-01_jprb, 0.169690e-01_jprb, 0.157420e-01_jprb &
26534  &, 0.146062e-01_jprb, 0.135661e-01_jprb, 0.125608e-01_jprb/)
26535 xcw( 607, :) = (/ &
26536  & 0.102391e+01_jprb, 0.102888e+01_jprb, 0.103346e+01_jprb, 0.103761e+01_jprb &
26537  &, 0.104135e+01_jprb, 0.104467e+01_jprb, 0.104757e+01_jprb &
26538  &, 0.105004e+01_jprb, 0.105209e+01_jprb, 0.105370e+01_jprb, 0.105488e+01_jprb &
26539  &, 0.105562e+01_jprb, 0.105592e+01_jprb, 0.105578e+01_jprb &
26540  &, 0.105520e+01_jprb, 0.105418e+01_jprb, 0.105272e+01_jprb, 0.105081e+01_jprb &
26541  &, 0.104846e+01_jprb, 0.104566e+01_jprb, 0.104242e+01_jprb &
26542  &, 0.103874e+01_jprb, 0.103462e+01_jprb, 0.103006e+01_jprb, 0.102507e+01_jprb &
26543  &, 0.101965e+01_jprb, 0.101380e+01_jprb, 0.100752e+01_jprb &
26544  &, 0.100083e+01_jprb, 0.993718e+00_jprb, 0.986202e+00_jprb, 0.978285e+00_jprb &
26545  &, 0.969972e+00_jprb, 0.961276e+00_jprb, 0.952197e+00_jprb &
26546  &, 0.942752e+00_jprb, 0.932941e+00_jprb, 0.922782e+00_jprb, 0.912280e+00_jprb &
26547  &, 0.901452e+00_jprb, 0.890310e+00_jprb, 0.878850e+00_jprb &
26548  &, 0.867102e+00_jprb, 0.855076e+00_jprb, 0.842778e+00_jprb, 0.830224e+00_jprb &
26549  &, 0.817433e+00_jprb, 0.804417e+00_jprb, 0.791174e+00_jprb &
26550  &, 0.777744e+00_jprb, 0.764129e+00_jprb, 0.750346e+00_jprb, 0.736413e+00_jprb &
26551  &, 0.722336e+00_jprb, 0.708133e+00_jprb, 0.693826e+00_jprb &
26552  &, 0.679438e+00_jprb, 0.664959e+00_jprb, 0.650429e+00_jprb, 0.635854e+00_jprb &
26553  &, 0.621242e+00_jprb, 0.606615e+00_jprb, 0.591999e+00_jprb &
26554  &, 0.577399e+00_jprb, 0.562822e+00_jprb, 0.548292e+00_jprb, 0.533811e+00_jprb &
26555  &, 0.519404e+00_jprb, 0.505093e+00_jprb, 0.490861e+00_jprb &
26556  &, 0.476749e+00_jprb, 0.462779e+00_jprb, 0.448886e+00_jprb, 0.435221e+00_jprb &
26557  &, 0.421669e+00_jprb, 0.408272e+00_jprb, 0.395069e+00_jprb &
26558  &, 0.382055e+00_jprb, 0.369244e+00_jprb, 0.356627e+00_jprb, 0.344218e+00_jprb &
26559  &, 0.332028e+00_jprb, 0.320043e+00_jprb, 0.308326e+00_jprb &
26560  &, 0.296834e+00_jprb, 0.285574e+00_jprb, 0.274580e+00_jprb, 0.263802e+00_jprb &
26561  &, 0.253301e+00_jprb, 0.243082e+00_jprb, 0.233086e+00_jprb &
26562  &, 0.223375e+00_jprb, 0.213884e+00_jprb, 0.204708e+00_jprb, 0.195779e+00_jprb &
26563  &, 0.187091e+00_jprb, 0.178671e+00_jprb, 0.170548e+00_jprb &
26564  &, 0.162642e+00_jprb, 0.155013e+00_jprb, 0.147650e+00_jprb, 0.140541e+00_jprb &
26565  &, 0.133670e+00_jprb, 0.127061e+00_jprb, 0.120694e+00_jprb &
26566  &, 0.114553e+00_jprb, 0.108656e+00_jprb, 0.102983e+00_jprb, 0.975506e-01_jprb &
26567  &, 0.923363e-01_jprb, 0.873569e-01_jprb, 0.825418e-01_jprb &
26568  &, 0.779947e-01_jprb, 0.735971e-01_jprb, 0.694539e-01_jprb, 0.654412e-01_jprb &
26569  &, 0.616650e-01_jprb, 0.580439e-01_jprb, 0.545891e-01_jprb &
26570  &, 0.513121e-01_jprb, 0.481740e-01_jprb, 0.452357e-01_jprb, 0.424052e-01_jprb &
26571  &, 0.397431e-01_jprb, 0.372596e-01_jprb, 0.348563e-01_jprb &
26572  &, 0.325944e-01_jprb, 0.304821e-01_jprb, 0.284714e-01_jprb, 0.265684e-01_jprb &
26573  &, 0.247796e-01_jprb, 0.231115e-01_jprb, 0.215108e-01_jprb &
26574  &, 0.199817e-01_jprb, 0.185902e-01_jprb, 0.172808e-01_jprb, 0.160580e-01_jprb &
26575  &, 0.149263e-01_jprb, 0.138256e-01_jprb, 0.128237e-01_jprb/)
26576 xcw( 608, :) = (/ &
26577  & 0.102417e+01_jprb, 0.102922e+01_jprb, 0.103386e+01_jprb, 0.103808e+01_jprb &
26578  &, 0.104189e+01_jprb, 0.104528e+01_jprb, 0.104824e+01_jprb &
26579  &, 0.105079e+01_jprb, 0.105290e+01_jprb, 0.105458e+01_jprb, 0.105582e+01_jprb &
26580  &, 0.105663e+01_jprb, 0.105701e+01_jprb, 0.105694e+01_jprb &
26581  &, 0.105643e+01_jprb, 0.105547e+01_jprb, 0.105407e+01_jprb, 0.105223e+01_jprb &
26582  &, 0.104995e+01_jprb, 0.104722e+01_jprb, 0.104404e+01_jprb &
26583  &, 0.104043e+01_jprb, 0.103637e+01_jprb, 0.103188e+01_jprb, 0.102695e+01_jprb &
26584  &, 0.102159e+01_jprb, 0.101580e+01_jprb, 0.100958e+01_jprb &
26585  &, 0.100295e+01_jprb, 0.995897e+00_jprb, 0.988436e+00_jprb, 0.980575e+00_jprb &
26586  &, 0.972319e+00_jprb, 0.963674e+00_jprb, 0.954646e+00_jprb &
26587  &, 0.945245e+00_jprb, 0.935487e+00_jprb, 0.925373e+00_jprb, 0.914926e+00_jprb &
26588  &, 0.904134e+00_jprb, 0.893029e+00_jprb, 0.881616e+00_jprb &
26589  &, 0.869915e+00_jprb, 0.857914e+00_jprb, 0.845652e+00_jprb, 0.833133e+00_jprb &
26590  &, 0.820377e+00_jprb, 0.807384e+00_jprb, 0.794175e+00_jprb &
26591  &, 0.780766e+00_jprb, 0.767170e+00_jprb, 0.753406e+00_jprb, 0.739490e+00_jprb &
26592  &, 0.725428e+00_jprb, 0.711240e+00_jprb, 0.696946e+00_jprb &
26593  &, 0.682553e+00_jprb, 0.668099e+00_jprb, 0.653560e+00_jprb, 0.638991e+00_jprb &
26594  &, 0.624382e+00_jprb, 0.609757e+00_jprb, 0.595123e+00_jprb &
26595  &, 0.580521e+00_jprb, 0.565939e+00_jprb, 0.551382e+00_jprb, 0.536891e+00_jprb &
26596  &, 0.522472e+00_jprb, 0.508146e+00_jprb, 0.493897e+00_jprb &
26597  &, 0.479765e+00_jprb, 0.465751e+00_jprb, 0.451876e+00_jprb, 0.438137e+00_jprb &
26598  &, 0.424555e+00_jprb, 0.411146e+00_jprb, 0.397907e+00_jprb &
26599  &, 0.384852e+00_jprb, 0.371998e+00_jprb, 0.359334e+00_jprb, 0.346875e+00_jprb &
26600  &, 0.334658e+00_jprb, 0.322643e+00_jprb, 0.310868e+00_jprb &
26601  &, 0.299340e+00_jprb, 0.288042e+00_jprb, 0.276980e+00_jprb, 0.266187e+00_jprb &
26602  &, 0.255611e+00_jprb, 0.245343e+00_jprb, 0.235294e+00_jprb &
26603  &, 0.225528e+00_jprb, 0.216011e+00_jprb, 0.206742e+00_jprb, 0.197782e+00_jprb &
26604  &, 0.189061e+00_jprb, 0.180573e+00_jprb, 0.172377e+00_jprb &
26605  &, 0.164466e+00_jprb, 0.156759e+00_jprb, 0.149352e+00_jprb, 0.142196e+00_jprb &
26606  &, 0.135277e+00_jprb, 0.128577e+00_jprb, 0.122157e+00_jprb &
26607  &, 0.116000e+00_jprb, 0.110045e+00_jprb, 0.104310e+00_jprb, 0.988574e-01_jprb &
26608  &, 0.935781e-01_jprb, 0.885314e-01_jprb, 0.836906e-01_jprb &
26609  &, 0.790716e-01_jprb, 0.746451e-01_jprb, 0.704255e-01_jprb, 0.664276e-01_jprb &
26610  &, 0.625710e-01_jprb, 0.589152e-01_jprb, 0.554243e-01_jprb &
26611  &, 0.521098e-01_jprb, 0.489835e-01_jprb, 0.459544e-01_jprb, 0.431343e-01_jprb &
26612  &, 0.404299e-01_jprb, 0.379027e-01_jprb, 0.354543e-01_jprb &
26613  &, 0.332008e-01_jprb, 0.310412e-01_jprb, 0.289816e-01_jprb, 0.270283e-01_jprb &
26614  &, 0.252459e-01_jprb, 0.235251e-01_jprb, 0.219300e-01_jprb &
26615  &, 0.204067e-01_jprb, 0.189594e-01_jprb, 0.176549e-01_jprb, 0.163739e-01_jprb &
26616  &, 0.152464e-01_jprb, 0.140850e-01_jprb, 0.130865e-01_jprb/)
26617 xcw( 609, :) = (/ &
26618  & 0.102444e+01_jprb, 0.102955e+01_jprb, 0.103425e+01_jprb, 0.103855e+01_jprb &
26619  &, 0.104242e+01_jprb, 0.104588e+01_jprb, 0.104892e+01_jprb &
26620  &, 0.105153e+01_jprb, 0.105371e+01_jprb, 0.105546e+01_jprb, 0.105677e+01_jprb &
26621  &, 0.105765e+01_jprb, 0.105809e+01_jprb, 0.105807e+01_jprb &
26622  &, 0.105765e+01_jprb, 0.105676e+01_jprb, 0.105543e+01_jprb, 0.105366e+01_jprb &
26623  &, 0.105144e+01_jprb, 0.104878e+01_jprb, 0.104567e+01_jprb &
26624  &, 0.104212e+01_jprb, 0.103813e+01_jprb, 0.103370e+01_jprb, 0.102883e+01_jprb &
26625  &, 0.102353e+01_jprb, 0.101780e+01_jprb, 0.101163e+01_jprb &
26626  &, 0.100507e+01_jprb, 0.998077e+00_jprb, 0.990678e+00_jprb, 0.982870e+00_jprb &
26627  &, 0.974667e+00_jprb, 0.966076e+00_jprb, 0.957100e+00_jprb &
26628  &, 0.947756e+00_jprb, 0.938043e+00_jprb, 0.927974e+00_jprb, 0.917573e+00_jprb &
26629  &, 0.906827e+00_jprb, 0.895769e+00_jprb, 0.884392e+00_jprb &
26630  &, 0.872728e+00_jprb, 0.860775e+00_jprb, 0.848537e+00_jprb, 0.836054e+00_jprb &
26631  &, 0.823322e+00_jprb, 0.810364e+00_jprb, 0.797177e+00_jprb &
26632  &, 0.783788e+00_jprb, 0.770226e+00_jprb, 0.756480e+00_jprb, 0.742581e+00_jprb &
26633  &, 0.728535e+00_jprb, 0.714361e+00_jprb, 0.700080e+00_jprb &
26634  &, 0.685699e+00_jprb, 0.671239e+00_jprb, 0.656724e+00_jprb, 0.642144e+00_jprb &
26635  &, 0.627539e+00_jprb, 0.612899e+00_jprb, 0.598282e+00_jprb &
26636  &, 0.583660e+00_jprb, 0.569055e+00_jprb, 0.554510e+00_jprb, 0.539990e+00_jprb &
26637  &, 0.525559e+00_jprb, 0.511199e+00_jprb, 0.496953e+00_jprb &
26638  &, 0.482801e+00_jprb, 0.468765e+00_jprb, 0.454843e+00_jprb, 0.441077e+00_jprb &
26639  &, 0.427486e+00_jprb, 0.414021e+00_jprb, 0.400768e+00_jprb &
26640  &, 0.387673e+00_jprb, 0.374776e+00_jprb, 0.362067e+00_jprb, 0.349584e+00_jprb &
26641  &, 0.337314e+00_jprb, 0.325271e+00_jprb, 0.313436e+00_jprb &
26642  &, 0.301847e+00_jprb, 0.290511e+00_jprb, 0.279408e+00_jprb, 0.268543e+00_jprb &
26643  &, 0.257950e+00_jprb, 0.247603e+00_jprb, 0.237534e+00_jprb &
26644  &, 0.227681e+00_jprb, 0.218139e+00_jprb, 0.208842e+00_jprb, 0.199785e+00_jprb &
26645  &, 0.190998e+00_jprb, 0.182509e+00_jprb, 0.174241e+00_jprb &
26646  &, 0.166255e+00_jprb, 0.158542e+00_jprb, 0.151054e+00_jprb, 0.143814e+00_jprb &
26647  &, 0.136845e+00_jprb, 0.130133e+00_jprb, 0.123659e+00_jprb &
26648  &, 0.117446e+00_jprb, 0.111433e+00_jprb, 0.105679e+00_jprb, 0.100122e+00_jprb &
26649  &, 0.948200e-01_jprb, 0.897494e-01_jprb, 0.848835e-01_jprb &
26650  &, 0.801934e-01_jprb, 0.757386e-01_jprb, 0.714896e-01_jprb, 0.674140e-01_jprb &
26651  &, 0.635247e-01_jprb, 0.598348e-01_jprb, 0.563086e-01_jprb &
26652  &, 0.529574e-01_jprb, 0.497423e-01_jprb, 0.467244e-01_jprb, 0.438635e-01_jprb &
26653  &, 0.411168e-01_jprb, 0.385459e-01_jprb, 0.360523e-01_jprb &
26654  &, 0.337522e-01_jprb, 0.315444e-01_jprb, 0.294919e-01_jprb, 0.275456e-01_jprb &
26655  &, 0.257121e-01_jprb, 0.239977e-01_jprb, 0.223492e-01_jprb &
26656  &, 0.208316e-01_jprb, 0.193285e-01_jprb, 0.180290e-01_jprb, 0.167529e-01_jprb &
26657  &, 0.155024e-01_jprb, 0.144093e-01_jprb, 0.133494e-01_jprb/)
26658 
26659 IF (lhook) CALL dr_hook('SU_MCICA:PART87',1,zhook_handle)
26660 END SUBROUTINE part87
26661 
26662 #ifdef VPP5000
26663 !OCL SCALAR
26664 #endif
26665 !option! -Nv -NO
26666 #ifdef RS6K
26667 @process nooptimize
26668 #endif
26669 !pgi$r opt=0
26670 SUBROUTINE part88
26671 
26672 REAL(KIND=JPRB) :: ZHOOK_HANDLE
26673 IF (lhook) CALL dr_hook('SU_MCICA:PART88',0,zhook_handle)
26674 
26675 xcw( 610, :) = (/ &
26676  & 0.102470e+01_jprb, 0.102988e+01_jprb, 0.103466e+01_jprb, 0.103902e+01_jprb &
26677  &, 0.104296e+01_jprb, 0.104649e+01_jprb, 0.104959e+01_jprb &
26678  &, 0.105227e+01_jprb, 0.105452e+01_jprb, 0.105634e+01_jprb, 0.105772e+01_jprb &
26679  &, 0.105867e+01_jprb, 0.105918e+01_jprb, 0.105925e+01_jprb &
26680  &, 0.105887e+01_jprb, 0.105806e+01_jprb, 0.105679e+01_jprb, 0.105509e+01_jprb &
26681  &, 0.105294e+01_jprb, 0.105034e+01_jprb, 0.104730e+01_jprb &
26682  &, 0.104381e+01_jprb, 0.103988e+01_jprb, 0.103552e+01_jprb, 0.103072e+01_jprb &
26683  &, 0.102548e+01_jprb, 0.101981e+01_jprb, 0.101372e+01_jprb &
26684  &, 0.100720e+01_jprb, 0.100026e+01_jprb, 0.992921e+00_jprb, 0.985172e+00_jprb &
26685  &, 0.977023e+00_jprb, 0.968483e+00_jprb, 0.959563e+00_jprb &
26686  &, 0.950268e+00_jprb, 0.940599e+00_jprb, 0.930585e+00_jprb, 0.920230e+00_jprb &
26687  &, 0.909531e+00_jprb, 0.898509e+00_jprb, 0.887180e+00_jprb &
26688  &, 0.875551e+00_jprb, 0.863624e+00_jprb, 0.851434e+00_jprb, 0.838976e+00_jprb &
26689  &, 0.826279e+00_jprb, 0.813343e+00_jprb, 0.800191e+00_jprb &
26690  &, 0.786836e+00_jprb, 0.773281e+00_jprb, 0.759540e+00_jprb, 0.745672e+00_jprb &
26691  &, 0.731642e+00_jprb, 0.717498e+00_jprb, 0.703215e+00_jprb &
26692  &, 0.688845e+00_jprb, 0.674395e+00_jprb, 0.659888e+00_jprb, 0.645314e+00_jprb &
26693  &, 0.630697e+00_jprb, 0.616076e+00_jprb, 0.601442e+00_jprb &
26694  &, 0.586799e+00_jprb, 0.572208e+00_jprb, 0.557638e+00_jprb, 0.543109e+00_jprb &
26695  &, 0.528666e+00_jprb, 0.514292e+00_jprb, 0.500009e+00_jprb &
26696  &, 0.485838e+00_jprb, 0.471780e+00_jprb, 0.457833e+00_jprb, 0.444061e+00_jprb &
26697  &, 0.430417e+00_jprb, 0.416942e+00_jprb, 0.403629e+00_jprb &
26698  &, 0.390494e+00_jprb, 0.377555e+00_jprb, 0.364824e+00_jprb, 0.352292e+00_jprb &
26699  &, 0.339971e+00_jprb, 0.327898e+00_jprb, 0.316032e+00_jprb &
26700  &, 0.304381e+00_jprb, 0.293008e+00_jprb, 0.281865e+00_jprb, 0.270958e+00_jprb &
26701  &, 0.260290e+00_jprb, 0.249894e+00_jprb, 0.239773e+00_jprb &
26702  &, 0.229898e+00_jprb, 0.220266e+00_jprb, 0.210909e+00_jprb, 0.201822e+00_jprb &
26703  &, 0.193003e+00_jprb, 0.184445e+00_jprb, 0.176140e+00_jprb &
26704  &, 0.168080e+00_jprb, 0.160289e+00_jprb, 0.152757e+00_jprb, 0.145508e+00_jprb &
26705  &, 0.138490e+00_jprb, 0.131688e+00_jprb, 0.125201e+00_jprb &
26706  &, 0.118892e+00_jprb, 0.112862e+00_jprb, 0.107049e+00_jprb, 0.101471e+00_jprb &
26707  &, 0.961047e-01_jprb, 0.909674e-01_jprb, 0.860322e-01_jprb &
26708  &, 0.813151e-01_jprb, 0.768322e-01_jprb, 0.725074e-01_jprb, 0.684004e-01_jprb &
26709  &, 0.644784e-01_jprb, 0.607060e-01_jprb, 0.571437e-01_jprb &
26710  &, 0.537551e-01_jprb, 0.505518e-01_jprb, 0.474944e-01_jprb, 0.445406e-01_jprb &
26711  &, 0.418037e-01_jprb, 0.391890e-01_jprb, 0.367046e-01_jprb &
26712  &, 0.343587e-01_jprb, 0.321595e-01_jprb, 0.300588e-01_jprb, 0.280630e-01_jprb &
26713  &, 0.261784e-01_jprb, 0.244113e-01_jprb, 0.227685e-01_jprb &
26714  &, 0.211958e-01_jprb, 0.197592e-01_jprb, 0.183407e-01_jprb, 0.170688e-01_jprb &
26715  &, 0.158225e-01_jprb, 0.147336e-01_jprb, 0.136779e-01_jprb/)
26716 xcw( 611, :) = (/ &
26717  & 0.102497e+01_jprb, 0.103021e+01_jprb, 0.103506e+01_jprb, 0.103948e+01_jprb &
26718  &, 0.104350e+01_jprb, 0.104710e+01_jprb, 0.105027e+01_jprb &
26719  &, 0.105302e+01_jprb, 0.105533e+01_jprb, 0.105722e+01_jprb, 0.105868e+01_jprb &
26720  &, 0.105969e+01_jprb, 0.106027e+01_jprb, 0.106041e+01_jprb &
26721  &, 0.106010e+01_jprb, 0.105935e+01_jprb, 0.105816e+01_jprb, 0.105652e+01_jprb &
26722  &, 0.105443e+01_jprb, 0.105190e+01_jprb, 0.104893e+01_jprb &
26723  &, 0.104551e+01_jprb, 0.104165e+01_jprb, 0.103735e+01_jprb, 0.103261e+01_jprb &
26724  &, 0.102743e+01_jprb, 0.102183e+01_jprb, 0.101579e+01_jprb &
26725  &, 0.100933e+01_jprb, 0.100246e+01_jprb, 0.995171e+00_jprb, 0.987475e+00_jprb &
26726  &, 0.979383e+00_jprb, 0.970899e+00_jprb, 0.962031e+00_jprb &
26727  &, 0.952779e+00_jprb, 0.943174e+00_jprb, 0.933206e+00_jprb, 0.922886e+00_jprb &
26728  &, 0.912234e+00_jprb, 0.901259e+00_jprb, 0.889967e+00_jprb &
26729  &, 0.878376e+00_jprb, 0.866496e+00_jprb, 0.854331e+00_jprb, 0.841921e+00_jprb &
26730  &, 0.829248e+00_jprb, 0.816348e+00_jprb, 0.803218e+00_jprb &
26731  &, 0.789885e+00_jprb, 0.776363e+00_jprb, 0.762655e+00_jprb, 0.748791e+00_jprb &
26732  &, 0.734778e+00_jprb, 0.720634e+00_jprb, 0.706380e+00_jprb &
26733  &, 0.692022e+00_jprb, 0.677567e+00_jprb, 0.663052e+00_jprb, 0.648484e+00_jprb &
26734  &, 0.633888e+00_jprb, 0.619253e+00_jprb, 0.604601e+00_jprb &
26735  &, 0.589975e+00_jprb, 0.575361e+00_jprb, 0.560784e+00_jprb, 0.546248e+00_jprb &
26736  &, 0.531794e+00_jprb, 0.517386e+00_jprb, 0.503086e+00_jprb &
26737  &, 0.488896e+00_jprb, 0.474816e+00_jprb, 0.460845e+00_jprb, 0.447023e+00_jprb &
26738  &, 0.433348e+00_jprb, 0.419839e+00_jprb, 0.406514e+00_jprb &
26739  &, 0.393340e+00_jprb, 0.380383e+00_jprb, 0.367607e+00_jprb, 0.355027e+00_jprb &
26740  &, 0.342680e+00_jprb, 0.330526e+00_jprb, 0.318628e+00_jprb &
26741  &, 0.306943e+00_jprb, 0.295505e+00_jprb, 0.284323e+00_jprb, 0.273373e+00_jprb &
26742  &, 0.262659e+00_jprb, 0.252215e+00_jprb, 0.242043e+00_jprb &
26743  &, 0.232114e+00_jprb, 0.222426e+00_jprb, 0.213041e+00_jprb, 0.203892e+00_jprb &
26744  &, 0.195008e+00_jprb, 0.186381e+00_jprb, 0.178039e+00_jprb &
26745  &, 0.169940e+00_jprb, 0.162108e+00_jprb, 0.154496e+00_jprb, 0.147201e+00_jprb &
26746  &, 0.140097e+00_jprb, 0.133283e+00_jprb, 0.126703e+00_jprb &
26747  &, 0.120379e+00_jprb, 0.114291e+00_jprb, 0.108418e+00_jprb, 0.102778e+00_jprb &
26748  &, 0.973894e-01_jprb, 0.921854e-01_jprb, 0.872251e-01_jprb &
26749  &, 0.824817e-01_jprb, 0.779257e-01_jprb, 0.735715e-01_jprb, 0.693868e-01_jprb &
26750  &, 0.654320e-01_jprb, 0.616741e-01_jprb, 0.580280e-01_jprb &
26751  &, 0.546026e-01_jprb, 0.513613e-01_jprb, 0.482644e-01_jprb, 0.453218e-01_jprb &
26752  &, 0.424906e-01_jprb, 0.398322e-01_jprb, 0.373570e-01_jprb &
26753  &, 0.349651e-01_jprb, 0.327186e-01_jprb, 0.305691e-01_jprb, 0.285804e-01_jprb &
26754  &, 0.267029e-01_jprb, 0.248840e-01_jprb, 0.231877e-01_jprb &
26755  &, 0.216207e-01_jprb, 0.201283e-01_jprb, 0.187148e-01_jprb, 0.173848e-01_jprb &
26756  &, 0.162066e-01_jprb, 0.149931e-01_jprb, 0.139408e-01_jprb/)
26757 xcw( 612, :) = (/ &
26758  & 0.102523e+01_jprb, 0.103055e+01_jprb, 0.103546e+01_jprb, 0.103995e+01_jprb &
26759  &, 0.104404e+01_jprb, 0.104770e+01_jprb, 0.105094e+01_jprb &
26760  &, 0.105376e+01_jprb, 0.105615e+01_jprb, 0.105810e+01_jprb, 0.105963e+01_jprb &
26761  &, 0.106071e+01_jprb, 0.106136e+01_jprb, 0.106157e+01_jprb &
26762  &, 0.106133e+01_jprb, 0.106065e+01_jprb, 0.105952e+01_jprb, 0.105795e+01_jprb &
26763  &, 0.105593e+01_jprb, 0.105347e+01_jprb, 0.105056e+01_jprb &
26764  &, 0.104721e+01_jprb, 0.104341e+01_jprb, 0.103917e+01_jprb, 0.103450e+01_jprb &
26765  &, 0.102939e+01_jprb, 0.102384e+01_jprb, 0.101787e+01_jprb &
26766  &, 0.101147e+01_jprb, 0.100466e+01_jprb, 0.997426e+00_jprb, 0.989790e+00_jprb &
26767  &, 0.981748e+00_jprb, 0.973319e+00_jprb, 0.964503e+00_jprb &
26768  &, 0.955309e+00_jprb, 0.945749e+00_jprb, 0.935826e+00_jprb, 0.925553e+00_jprb &
26769  &, 0.914948e+00_jprb, 0.904020e+00_jprb, 0.892765e+00_jprb &
26770  &, 0.881211e+00_jprb, 0.869368e+00_jprb, 0.857252e+00_jprb, 0.844866e+00_jprb &
26771  &, 0.832230e+00_jprb, 0.819353e+00_jprb, 0.806245e+00_jprb &
26772  &, 0.792946e+00_jprb, 0.779445e+00_jprb, 0.765756e+00_jprb, 0.751911e+00_jprb &
26773  &, 0.737914e+00_jprb, 0.723785e+00_jprb, 0.709544e+00_jprb &
26774  &, 0.695199e+00_jprb, 0.680754e+00_jprb, 0.666248e+00_jprb, 0.651687e+00_jprb &
26775  &, 0.637080e+00_jprb, 0.622447e+00_jprb, 0.607796e+00_jprb &
26776  &, 0.593151e+00_jprb, 0.578533e+00_jprb, 0.563950e+00_jprb, 0.549405e+00_jprb &
26777  &, 0.534921e+00_jprb, 0.520499e+00_jprb, 0.506183e+00_jprb &
26778  &, 0.491975e+00_jprb, 0.477852e+00_jprb, 0.463878e+00_jprb, 0.450030e+00_jprb &
26779  &, 0.436325e+00_jprb, 0.422784e+00_jprb, 0.409398e+00_jprb &
26780  &, 0.396210e+00_jprb, 0.383211e+00_jprb, 0.370390e+00_jprb, 0.357787e+00_jprb &
26781  &, 0.345389e+00_jprb, 0.333207e+00_jprb, 0.321251e+00_jprb &
26782  &, 0.309533e+00_jprb, 0.298030e+00_jprb, 0.286809e+00_jprb, 0.275787e+00_jprb &
26783  &, 0.265059e+00_jprb, 0.254567e+00_jprb, 0.244314e+00_jprb &
26784  &, 0.234331e+00_jprb, 0.224618e+00_jprb, 0.215174e+00_jprb, 0.205963e+00_jprb &
26785  &, 0.197012e+00_jprb, 0.188351e+00_jprb, 0.179938e+00_jprb &
26786  &, 0.171800e+00_jprb, 0.163891e+00_jprb, 0.156272e+00_jprb, 0.148894e+00_jprb &
26787  &, 0.141780e+00_jprb, 0.134877e+00_jprb, 0.128245e+00_jprb &
26788  &, 0.121865e+00_jprb, 0.115720e+00_jprb, 0.109828e+00_jprb, 0.104126e+00_jprb &
26789  &, 0.986741e-01_jprb, 0.934468e-01_jprb, 0.884180e-01_jprb &
26790  &, 0.836035e-01_jprb, 0.790193e-01_jprb, 0.746356e-01_jprb, 0.704202e-01_jprb &
26791  &, 0.664334e-01_jprb, 0.625937e-01_jprb, 0.589614e-01_jprb &
26792  &, 0.554502e-01_jprb, 0.521708e-01_jprb, 0.490344e-01_jprb, 0.460510e-01_jprb &
26793  &, 0.432303e-01_jprb, 0.405289e-01_jprb, 0.379550e-01_jprb &
26794  &, 0.355716e-01_jprb, 0.332777e-01_jprb, 0.311361e-01_jprb, 0.290978e-01_jprb &
26795  &, 0.271691e-01_jprb, 0.253567e-01_jprb, 0.236668e-01_jprb &
26796  &, 0.220457e-01_jprb, 0.205590e-01_jprb, 0.190889e-01_jprb, 0.177638e-01_jprb &
26797  &, 0.165267e-01_jprb, 0.153174e-01_jprb, 0.142036e-01_jprb/)
26798 xcw( 613, :) = (/ &
26799  & 0.102550e+01_jprb, 0.103088e+01_jprb, 0.103586e+01_jprb, 0.104042e+01_jprb &
26800  &, 0.104458e+01_jprb, 0.104831e+01_jprb, 0.105162e+01_jprb &
26801  &, 0.105451e+01_jprb, 0.105696e+01_jprb, 0.105899e+01_jprb, 0.106058e+01_jprb &
26802  &, 0.106174e+01_jprb, 0.106245e+01_jprb, 0.106273e+01_jprb &
26803  &, 0.106256e+01_jprb, 0.106195e+01_jprb, 0.106089e+01_jprb, 0.105939e+01_jprb &
26804  &, 0.105744e+01_jprb, 0.105504e+01_jprb, 0.105220e+01_jprb &
26805  &, 0.104891e+01_jprb, 0.104518e+01_jprb, 0.104101e+01_jprb, 0.103638e+01_jprb &
26806  &, 0.103135e+01_jprb, 0.102586e+01_jprb, 0.101995e+01_jprb &
26807  &, 0.101361e+01_jprb, 0.100686e+01_jprb, 0.999685e+00_jprb, 0.992105e+00_jprb &
26808  &, 0.984122e+00_jprb, 0.975747e+00_jprb, 0.966975e+00_jprb &
26809  &, 0.957839e+00_jprb, 0.948324e+00_jprb, 0.938457e+00_jprb, 0.928230e+00_jprb &
26810  &, 0.917672e+00_jprb, 0.906781e+00_jprb, 0.895574e+00_jprb &
26811  &, 0.884057e+00_jprb, 0.872252e+00_jprb, 0.860172e+00_jprb, 0.847811e+00_jprb &
26812  &, 0.835211e+00_jprb, 0.822370e+00_jprb, 0.809298e+00_jprb &
26813  &, 0.796008e+00_jprb, 0.782540e+00_jprb, 0.768871e+00_jprb, 0.755044e+00_jprb &
26814  &, 0.741064e+00_jprb, 0.726951e+00_jprb, 0.712724e+00_jprb &
26815  &, 0.698391e+00_jprb, 0.683957e+00_jprb, 0.669444e+00_jprb, 0.654891e+00_jprb &
26816  &, 0.640288e+00_jprb, 0.625641e+00_jprb, 0.610991e+00_jprb &
26817  &, 0.596344e+00_jprb, 0.581724e+00_jprb, 0.567116e+00_jprb, 0.552563e+00_jprb &
26818  &, 0.538067e+00_jprb, 0.523633e+00_jprb, 0.509301e+00_jprb &
26819  &, 0.495053e+00_jprb, 0.480931e+00_jprb, 0.466912e+00_jprb, 0.453036e+00_jprb &
26820  &, 0.439303e+00_jprb, 0.425728e+00_jprb, 0.412331e+00_jprb &
26821  &, 0.399104e+00_jprb, 0.386039e+00_jprb, 0.373198e+00_jprb, 0.360547e+00_jprb &
26822  &, 0.348019e+00_jprb, 0.335888e+00_jprb, 0.323902e+00_jprb &
26823  &, 0.312122e+00_jprb, 0.300584e+00_jprb, 0.289295e+00_jprb, 0.278261e+00_jprb &
26824  &, 0.267458e+00_jprb, 0.256919e+00_jprb, 0.246615e+00_jprb &
26825  &, 0.236579e+00_jprb, 0.226810e+00_jprb, 0.217306e+00_jprb, 0.208066e+00_jprb &
26826  &, 0.199051e+00_jprb, 0.190356e+00_jprb, 0.181873e+00_jprb &
26827  &, 0.173660e+00_jprb, 0.165710e+00_jprb, 0.158048e+00_jprb, 0.150625e+00_jprb &
26828  &, 0.143425e+00_jprb, 0.136511e+00_jprb, 0.129826e+00_jprb &
26829  &, 0.123392e+00_jprb, 0.117190e+00_jprb, 0.111239e+00_jprb, 0.105475e+00_jprb &
26830  &, 0.100002e+00_jprb, 0.947083e-01_jprb, 0.896551e-01_jprb &
26831  &, 0.847701e-01_jprb, 0.801584e-01_jprb, 0.756997e-01_jprb, 0.714536e-01_jprb &
26832  &, 0.673871e-01_jprb, 0.635618e-01_jprb, 0.598456e-01_jprb &
26833  &, 0.563476e-01_jprb, 0.529803e-01_jprb, 0.498045e-01_jprb, 0.467801e-01_jprb &
26834  &, 0.439172e-01_jprb, 0.412257e-01_jprb, 0.386617e-01_jprb &
26835  &, 0.361781e-01_jprb, 0.338928e-01_jprb, 0.317030e-01_jprb, 0.296151e-01_jprb &
26836  &, 0.276937e-01_jprb, 0.258293e-01_jprb, 0.240861e-01_jprb &
26837  &, 0.224706e-01_jprb, 0.209281e-01_jprb, 0.194630e-01_jprb, 0.181429e-01_jprb &
26838  &, 0.168468e-01_jprb, 0.156417e-01_jprb, 0.145322e-01_jprb/)
26839 xcw( 614, :) = (/ &
26840  & 0.102577e+01_jprb, 0.103121e+01_jprb, 0.103626e+01_jprb, 0.104089e+01_jprb &
26841  &, 0.104511e+01_jprb, 0.104892e+01_jprb, 0.105230e+01_jprb &
26842  &, 0.105525e+01_jprb, 0.105778e+01_jprb, 0.105988e+01_jprb, 0.106154e+01_jprb &
26843  &, 0.106276e+01_jprb, 0.106355e+01_jprb, 0.106389e+01_jprb &
26844  &, 0.106379e+01_jprb, 0.106325e+01_jprb, 0.106226e+01_jprb, 0.106082e+01_jprb &
26845  &, 0.105894e+01_jprb, 0.105661e+01_jprb, 0.105384e+01_jprb &
26846  &, 0.105062e+01_jprb, 0.104695e+01_jprb, 0.104284e+01_jprb, 0.103829e+01_jprb &
26847  &, 0.103331e+01_jprb, 0.102783e+01_jprb, 0.102204e+01_jprb &
26848  &, 0.101576e+01_jprb, 0.100906e+01_jprb, 0.100195e+01_jprb, 0.994425e+00_jprb &
26849  &, 0.986500e+00_jprb, 0.978176e+00_jprb, 0.969465e+00_jprb &
26850  &, 0.960378e+00_jprb, 0.950908e+00_jprb, 0.941087e+00_jprb, 0.930917e+00_jprb &
26851  &, 0.920395e+00_jprb, 0.909553e+00_jprb, 0.898383e+00_jprb &
26852  &, 0.886914e+00_jprb, 0.875146e+00_jprb, 0.863104e+00_jprb, 0.850780e+00_jprb &
26853  &, 0.838205e+00_jprb, 0.825387e+00_jprb, 0.812351e+00_jprb &
26854  &, 0.799096e+00_jprb, 0.785636e+00_jprb, 0.772000e+00_jprb, 0.758192e+00_jprb &
26855  &, 0.744229e+00_jprb, 0.730132e+00_jprb, 0.715919e+00_jprb &
26856  &, 0.701584e+00_jprb, 0.687160e+00_jprb, 0.672673e+00_jprb, 0.658110e+00_jprb &
26857  &, 0.643496e+00_jprb, 0.628870e+00_jprb, 0.614222e+00_jprb &
26858  &, 0.599556e+00_jprb, 0.584933e+00_jprb, 0.570320e+00_jprb, 0.555740e+00_jprb &
26859  &, 0.541234e+00_jprb, 0.526787e+00_jprb, 0.512420e+00_jprb &
26860  &, 0.498175e+00_jprb, 0.484010e+00_jprb, 0.469967e+00_jprb, 0.456066e+00_jprb &
26861  &, 0.442302e+00_jprb, 0.428696e+00_jprb, 0.415264e+00_jprb &
26862  &, 0.401998e+00_jprb, 0.388916e+00_jprb, 0.376032e+00_jprb, 0.363333e+00_jprb &
26863  &, 0.350859e+00_jprb, 0.338595e+00_jprb, 0.326553e+00_jprb &
26864  &, 0.314740e+00_jprb, 0.303166e+00_jprb, 0.291810e+00_jprb, 0.280735e+00_jprb &
26865  &, 0.269887e+00_jprb, 0.259271e+00_jprb, 0.248948e+00_jprb &
26866  &, 0.238859e+00_jprb, 0.229034e+00_jprb, 0.219472e+00_jprb, 0.210170e+00_jprb &
26867  &, 0.201124e+00_jprb, 0.192361e+00_jprb, 0.183842e+00_jprb &
26868  &, 0.175556e+00_jprb, 0.167566e+00_jprb, 0.159824e+00_jprb, 0.152355e+00_jprb &
26869  &, 0.145108e+00_jprb, 0.138144e+00_jprb, 0.131407e+00_jprb &
26870  &, 0.124919e+00_jprb, 0.118660e+00_jprb, 0.112649e+00_jprb, 0.106866e+00_jprb &
26871  &, 0.101329e+00_jprb, 0.959698e-01_jprb, 0.908480e-01_jprb &
26872  &, 0.859816e-01_jprb, 0.812975e-01_jprb, 0.768101e-01_jprb, 0.724869e-01_jprb &
26873  &, 0.683884e-01_jprb, 0.644814e-01_jprb, 0.607790e-01_jprb &
26874  &, 0.572450e-01_jprb, 0.538403e-01_jprb, 0.506258e-01_jprb, 0.475614e-01_jprb &
26875  &, 0.446569e-01_jprb, 0.419225e-01_jprb, 0.393140e-01_jprb &
26876  &, 0.368397e-01_jprb, 0.345078e-01_jprb, 0.322700e-01_jprb, 0.301900e-01_jprb &
26877  &, 0.282182e-01_jprb, 0.263020e-01_jprb, 0.245652e-01_jprb &
26878  &, 0.228955e-01_jprb, 0.213588e-01_jprb, 0.198995e-01_jprb, 0.185220e-01_jprb &
26879  &, 0.172309e-01_jprb, 0.159660e-01_jprb, 0.148607e-01_jprb/)
26880 xcw( 615, :) = (/ &
26881  & 0.102603e+01_jprb, 0.103155e+01_jprb, 0.103666e+01_jprb, 0.104137e+01_jprb &
26882  &, 0.104565e+01_jprb, 0.104953e+01_jprb, 0.105298e+01_jprb &
26883  &, 0.105600e+01_jprb, 0.105860e+01_jprb, 0.106076e+01_jprb, 0.106249e+01_jprb &
26884  &, 0.106379e+01_jprb, 0.106464e+01_jprb, 0.106506e+01_jprb &
26885  &, 0.106503e+01_jprb, 0.106455e+01_jprb, 0.106363e+01_jprb, 0.106226e+01_jprb &
26886  &, 0.106045e+01_jprb, 0.105819e+01_jprb, 0.105548e+01_jprb &
26887  &, 0.105232e+01_jprb, 0.104873e+01_jprb, 0.104468e+01_jprb, 0.104020e+01_jprb &
26888  &, 0.103528e+01_jprb, 0.102992e+01_jprb, 0.102413e+01_jprb &
26889  &, 0.101791e+01_jprb, 0.101128e+01_jprb, 0.100422e+01_jprb, 0.996753e+00_jprb &
26890  &, 0.988882e+00_jprb, 0.980614e+00_jprb, 0.971960e+00_jprb &
26891  &, 0.962917e+00_jprb, 0.953502e+00_jprb, 0.943737e+00_jprb, 0.933604e+00_jprb &
26892  &, 0.923130e+00_jprb, 0.912335e+00_jprb, 0.901213e+00_jprb &
26893  &, 0.889782e+00_jprb, 0.878052e+00_jprb, 0.866036e+00_jprb, 0.853749e+00_jprb &
26894  &, 0.841211e+00_jprb, 0.828430e+00_jprb, 0.815417e+00_jprb &
26895  &, 0.802184e+00_jprb, 0.788758e+00_jprb, 0.775143e+00_jprb, 0.761353e+00_jprb &
26896  &, 0.747408e+00_jprb, 0.733327e+00_jprb, 0.719115e+00_jprb &
26897  &, 0.704807e+00_jprb, 0.690396e+00_jprb, 0.675901e+00_jprb, 0.661347e+00_jprb &
26898  &, 0.646739e+00_jprb, 0.632099e+00_jprb, 0.617453e+00_jprb &
26899  &, 0.602786e+00_jprb, 0.588142e+00_jprb, 0.573524e+00_jprb, 0.558936e+00_jprb &
26900  &, 0.544421e+00_jprb, 0.529961e+00_jprb, 0.515579e+00_jprb &
26901  &, 0.501296e+00_jprb, 0.487111e+00_jprb, 0.473045e+00_jprb, 0.459117e+00_jprb &
26902  &, 0.445325e+00_jprb, 0.431687e+00_jprb, 0.418220e+00_jprb &
26903  &, 0.404917e+00_jprb, 0.391794e+00_jprb, 0.378865e+00_jprb, 0.366145e+00_jprb &
26904  &, 0.353621e+00_jprb, 0.341303e+00_jprb, 0.329231e+00_jprb &
26905  &, 0.317358e+00_jprb, 0.305748e+00_jprb, 0.294354e+00_jprb, 0.283208e+00_jprb &
26906  &, 0.272317e+00_jprb, 0.261684e+00_jprb, 0.251281e+00_jprb &
26907  &, 0.241139e+00_jprb, 0.231258e+00_jprb, 0.221637e+00_jprb, 0.212307e+00_jprb &
26908  &, 0.203196e+00_jprb, 0.194366e+00_jprb, 0.185812e+00_jprb &
26909  &, 0.177488e+00_jprb, 0.169422e+00_jprb, 0.161637e+00_jprb, 0.154086e+00_jprb &
26910  &, 0.146830e+00_jprb, 0.139777e+00_jprb, 0.132988e+00_jprb &
26911  &, 0.126445e+00_jprb, 0.120170e+00_jprb, 0.114101e+00_jprb, 0.108257e+00_jprb &
26912  &, 0.102657e+00_jprb, 0.972748e-01_jprb, 0.921293e-01_jprb &
26913  &, 0.871483e-01_jprb, 0.824367e-01_jprb, 0.779205e-01_jprb, 0.735673e-01_jprb &
26914  &, 0.694375e-01_jprb, 0.654978e-01_jprb, 0.617124e-01_jprb &
26915  &, 0.580926e-01_jprb, 0.547004e-01_jprb, 0.514472e-01_jprb, 0.483426e-01_jprb &
26916  &, 0.453966e-01_jprb, 0.426192e-01_jprb, 0.399664e-01_jprb &
26917  &, 0.374462e-01_jprb, 0.350669e-01_jprb, 0.328369e-01_jprb, 0.307074e-01_jprb &
26918  &, 0.287427e-01_jprb, 0.268337e-01_jprb, 0.250443e-01_jprb &
26919  &, 0.233812e-01_jprb, 0.217895e-01_jprb, 0.202736e-01_jprb, 0.189011e-01_jprb &
26920  &, 0.175510e-01_jprb, 0.162903e-01_jprb, 0.151236e-01_jprb/)
26921 xcw( 616, :) = (/ &
26922  & 0.102630e+01_jprb, 0.103188e+01_jprb, 0.103707e+01_jprb, 0.104184e+01_jprb &
26923  &, 0.104619e+01_jprb, 0.105014e+01_jprb, 0.105365e+01_jprb &
26924  &, 0.105675e+01_jprb, 0.105942e+01_jprb, 0.106165e+01_jprb, 0.106345e+01_jprb &
26925  &, 0.106481e+01_jprb, 0.106574e+01_jprb, 0.106622e+01_jprb &
26926  &, 0.106626e+01_jprb, 0.106586e+01_jprb, 0.106501e+01_jprb, 0.106371e+01_jprb &
26927  &, 0.106196e+01_jprb, 0.105977e+01_jprb, 0.105713e+01_jprb &
26928  &, 0.105404e+01_jprb, 0.105050e+01_jprb, 0.104653e+01_jprb, 0.104211e+01_jprb &
26929  &, 0.103725e+01_jprb, 0.103195e+01_jprb, 0.102623e+01_jprb &
26930  &, 0.102007e+01_jprb, 0.101349e+01_jprb, 0.100649e+01_jprb, 0.999085e+00_jprb &
26931  &, 0.991272e+00_jprb, 0.983060e+00_jprb, 0.974454e+00_jprb &
26932  &, 0.965466e+00_jprb, 0.956106e+00_jprb, 0.946387e+00_jprb, 0.936301e+00_jprb &
26933  &, 0.925874e+00_jprb, 0.915117e+00_jprb, 0.904044e+00_jprb &
26934  &, 0.892651e+00_jprb, 0.880958e+00_jprb, 0.868980e+00_jprb, 0.856718e+00_jprb &
26935  &, 0.844229e+00_jprb, 0.831472e+00_jprb, 0.818495e+00_jprb &
26936  &, 0.805285e+00_jprb, 0.791881e+00_jprb, 0.778285e+00_jprb, 0.764529e+00_jprb &
26937  &, 0.750602e+00_jprb, 0.736537e+00_jprb, 0.722340e+00_jprb &
26938  &, 0.708030e+00_jprb, 0.693630e+00_jprb, 0.679146e+00_jprb, 0.664583e+00_jprb &
26939  &, 0.649981e+00_jprb, 0.635346e+00_jprb, 0.620701e+00_jprb &
26940  &, 0.606035e+00_jprb, 0.591369e+00_jprb, 0.576746e+00_jprb, 0.562151e+00_jprb &
26941  &, 0.547607e+00_jprb, 0.533136e+00_jprb, 0.518739e+00_jprb &
26942  &, 0.504438e+00_jprb, 0.490233e+00_jprb, 0.476144e+00_jprb, 0.462191e+00_jprb &
26943  &, 0.448371e+00_jprb, 0.434701e+00_jprb, 0.421200e+00_jprb &
26944  &, 0.407860e+00_jprb, 0.394696e+00_jprb, 0.381724e+00_jprb, 0.368957e+00_jprb &
26945  &, 0.356409e+00_jprb, 0.344065e+00_jprb, 0.331936e+00_jprb &
26946  &, 0.320031e+00_jprb, 0.308359e+00_jprb, 0.296927e+00_jprb, 0.285711e+00_jprb &
26947  &, 0.274776e+00_jprb, 0.264097e+00_jprb, 0.253644e+00_jprb &
26948  &, 0.243450e+00_jprb, 0.233514e+00_jprb, 0.223868e+00_jprb, 0.214444e+00_jprb &
26949  &, 0.205303e+00_jprb, 0.196406e+00_jprb, 0.187781e+00_jprb &
26950  &, 0.179420e+00_jprb, 0.171314e+00_jprb, 0.163450e+00_jprb, 0.155892e+00_jprb &
26951  &, 0.148551e+00_jprb, 0.141449e+00_jprb, 0.134609e+00_jprb &
26952  &, 0.128012e+00_jprb, 0.121681e+00_jprb, 0.115554e+00_jprb, 0.109648e+00_jprb &
26953  &, 0.104027e+00_jprb, 0.985798e-01_jprb, 0.933664e-01_jprb &
26954  &, 0.883598e-01_jprb, 0.836213e-01_jprb, 0.790308e-01_jprb, 0.746476e-01_jprb &
26955  &, 0.704388e-01_jprb, 0.664659e-01_jprb, 0.626458e-01_jprb &
26956  &, 0.590399e-01_jprb, 0.555605e-01_jprb, 0.522685e-01_jprb, 0.491238e-01_jprb &
26957  &, 0.461891e-01_jprb, 0.433160e-01_jprb, 0.406731e-01_jprb &
26958  &, 0.381078e-01_jprb, 0.357378e-01_jprb, 0.334606e-01_jprb, 0.312822e-01_jprb &
26959  &, 0.292673e-01_jprb, 0.273064e-01_jprb, 0.255235e-01_jprb &
26960  &, 0.238061e-01_jprb, 0.222201e-01_jprb, 0.206477e-01_jprb, 0.192802e-01_jprb &
26961  &, 0.179351e-01_jprb, 0.166795e-01_jprb, 0.154521e-01_jprb/)
26962 
26963 IF (lhook) CALL dr_hook('SU_MCICA:PART88',1,zhook_handle)
26964 END SUBROUTINE part88
26965 
26966 #ifdef VPP5000
26967 !OCL SCALAR
26968 #endif
26969 !option! -Nv -NO
26970 #ifdef RS6K
26971 @process nooptimize
26972 #endif
26973 !pgi$r opt=0
26974 SUBROUTINE part89
26975 
26976 REAL(KIND=JPRB) :: ZHOOK_HANDLE
26977 IF (lhook) CALL dr_hook('SU_MCICA:PART89',0,zhook_handle)
26978 
26979 xcw( 617, :) = (/ &
26980  & 0.102656e+01_jprb, 0.103222e+01_jprb, 0.103747e+01_jprb, 0.104231e+01_jprb &
26981  &, 0.104674e+01_jprb, 0.105075e+01_jprb, 0.105433e+01_jprb &
26982  &, 0.105750e+01_jprb, 0.106023e+01_jprb, 0.106254e+01_jprb, 0.106441e+01_jprb &
26983  &, 0.106584e+01_jprb, 0.106684e+01_jprb, 0.106739e+01_jprb &
26984  &, 0.106750e+01_jprb, 0.106716e+01_jprb, 0.106638e+01_jprb, 0.106515e+01_jprb &
26985  &, 0.106348e+01_jprb, 0.106135e+01_jprb, 0.105877e+01_jprb &
26986  &, 0.105575e+01_jprb, 0.105228e+01_jprb, 0.104837e+01_jprb, 0.104402e+01_jprb &
26987  &, 0.103922e+01_jprb, 0.103399e+01_jprb, 0.102833e+01_jprb &
26988  &, 0.102223e+01_jprb, 0.101571e+01_jprb, 0.100878e+01_jprb, 0.100143e+01_jprb &
26989  &, 0.993667e+00_jprb, 0.985512e+00_jprb, 0.976958e+00_jprb &
26990  &, 0.968024e+00_jprb, 0.958719e+00_jprb, 0.949036e+00_jprb, 0.939007e+00_jprb &
26991  &, 0.928629e+00_jprb, 0.917920e+00_jprb, 0.906874e+00_jprb &
26992  &, 0.895530e+00_jprb, 0.883876e+00_jprb, 0.871946e+00_jprb, 0.859723e+00_jprb &
26993  &, 0.847259e+00_jprb, 0.834527e+00_jprb, 0.821574e+00_jprb &
26994  &, 0.808399e+00_jprb, 0.795016e+00_jprb, 0.781455e+00_jprb, 0.767705e+00_jprb &
26995  &, 0.753796e+00_jprb, 0.739748e+00_jprb, 0.725565e+00_jprb &
26996  &, 0.711269e+00_jprb, 0.696881e+00_jprb, 0.682391e+00_jprb, 0.667853e+00_jprb &
26997  &, 0.653257e+00_jprb, 0.638609e+00_jprb, 0.623949e+00_jprb &
26998  &, 0.609283e+00_jprb, 0.594615e+00_jprb, 0.579988e+00_jprb, 0.565387e+00_jprb &
26999  &, 0.550813e+00_jprb, 0.536330e+00_jprb, 0.521919e+00_jprb &
27000  &, 0.507580e+00_jprb, 0.493355e+00_jprb, 0.479244e+00_jprb, 0.465265e+00_jprb &
27001  &, 0.451417e+00_jprb, 0.437716e+00_jprb, 0.424180e+00_jprb &
27002  &, 0.410803e+00_jprb, 0.397624e+00_jprb, 0.384608e+00_jprb, 0.371820e+00_jprb &
27003  &, 0.359197e+00_jprb, 0.346612e+00_jprb, 0.334641e+00_jprb &
27004  &, 0.322704e+00_jprb, 0.310969e+00_jprb, 0.299499e+00_jprb, 0.288244e+00_jprb &
27005  &, 0.277266e+00_jprb, 0.266510e+00_jprb, 0.256008e+00_jprb &
27006  &, 0.245793e+00_jprb, 0.235803e+00_jprb, 0.226067e+00_jprb, 0.216614e+00_jprb &
27007  &, 0.207409e+00_jprb, 0.198480e+00_jprb, 0.189786e+00_jprb &
27008  &, 0.181388e+00_jprb, 0.173206e+00_jprb, 0.165300e+00_jprb, 0.157661e+00_jprb &
27009  &, 0.150273e+00_jprb, 0.143122e+00_jprb, 0.136230e+00_jprb &
27010  &, 0.129579e+00_jprb, 0.123192e+00_jprb, 0.117006e+00_jprb, 0.111082e+00_jprb &
27011  &, 0.105397e+00_jprb, 0.999283e-01_jprb, 0.946477e-01_jprb &
27012  &, 0.896161e-01_jprb, 0.847605e-01_jprb, 0.801412e-01_jprb, 0.757279e-01_jprb &
27013  &, 0.714879e-01_jprb, 0.674823e-01_jprb, 0.636284e-01_jprb &
27014  &, 0.599373e-01_jprb, 0.564205e-01_jprb, 0.530899e-01_jprb, 0.499572e-01_jprb &
27015  &, 0.469288e-01_jprb, 0.440663e-01_jprb, 0.413798e-01_jprb &
27016  &, 0.387694e-01_jprb, 0.363529e-01_jprb, 0.340276e-01_jprb, 0.318571e-01_jprb &
27017  &, 0.297918e-01_jprb, 0.278381e-01_jprb, 0.260026e-01_jprb &
27018  &, 0.242917e-01_jprb, 0.226508e-01_jprb, 0.210841e-01_jprb, 0.196593e-01_jprb &
27019  &, 0.182552e-01_jprb, 0.170038e-01_jprb, 0.157807e-01_jprb/)
27020 xcw( 618, :) = (/ &
27021  & 0.102683e+01_jprb, 0.103255e+01_jprb, 0.103787e+01_jprb, 0.104278e+01_jprb &
27022  &, 0.104728e+01_jprb, 0.105136e+01_jprb, 0.105501e+01_jprb &
27023  &, 0.105825e+01_jprb, 0.106105e+01_jprb, 0.106343e+01_jprb, 0.106537e+01_jprb &
27024  &, 0.106687e+01_jprb, 0.106794e+01_jprb, 0.106847e+01_jprb &
27025  &, 0.106874e+01_jprb, 0.106847e+01_jprb, 0.106776e+01_jprb, 0.106660e+01_jprb &
27026  &, 0.106499e+01_jprb, 0.106293e+01_jprb, 0.106042e+01_jprb &
27027  &, 0.105747e+01_jprb, 0.105407e+01_jprb, 0.105022e+01_jprb, 0.104593e+01_jprb &
27028  &, 0.104120e+01_jprb, 0.103603e+01_jprb, 0.103043e+01_jprb &
27029  &, 0.102440e+01_jprb, 0.101794e+01_jprb, 0.101106e+01_jprb, 0.100377e+01_jprb &
27030  &, 0.996067e+00_jprb, 0.987967e+00_jprb, 0.979471e+00_jprb &
27031  &, 0.970591e+00_jprb, 0.961332e+00_jprb, 0.951706e+00_jprb, 0.941724e+00_jprb &
27032  &, 0.931394e+00_jprb, 0.920723e+00_jprb, 0.909726e+00_jprb &
27033  &, 0.898420e+00_jprb, 0.886804e+00_jprb, 0.874902e+00_jprb, 0.862728e+00_jprb &
27034  &, 0.850289e+00_jprb, 0.837594e+00_jprb, 0.824678e+00_jprb &
27035  &, 0.811526e+00_jprb, 0.798166e+00_jprb, 0.784626e+00_jprb, 0.770895e+00_jprb &
27036  &, 0.757004e+00_jprb, 0.742973e+00_jprb, 0.728806e+00_jprb &
27037  &, 0.714524e+00_jprb, 0.700132e+00_jprb, 0.685668e+00_jprb, 0.671122e+00_jprb &
27038  &, 0.656533e+00_jprb, 0.641890e+00_jprb, 0.627233e+00_jprb &
27039  &, 0.612549e+00_jprb, 0.597880e+00_jprb, 0.583230e+00_jprb, 0.568622e+00_jprb &
27040  &, 0.554059e+00_jprb, 0.539545e+00_jprb, 0.525099e+00_jprb &
27041  &, 0.510764e+00_jprb, 0.496520e+00_jprb, 0.482387e+00_jprb, 0.468362e+00_jprb &
27042  &, 0.454485e+00_jprb, 0.440754e+00_jprb, 0.427184e+00_jprb &
27043  &, 0.413795e+00_jprb, 0.400551e+00_jprb, 0.387518e+00_jprb, 0.374658e+00_jprb &
27044  &, 0.362037e+00_jprb, 0.349588e+00_jprb, 0.337374e+00_jprb &
27045  &, 0.325378e+00_jprb, 0.313608e+00_jprb, 0.302101e+00_jprb, 0.290806e+00_jprb &
27046  &, 0.279755e+00_jprb, 0.268953e+00_jprb, 0.258403e+00_jprb &
27047  &, 0.248137e+00_jprb, 0.238092e+00_jprb, 0.228330e+00_jprb, 0.218785e+00_jprb &
27048  &, 0.209550e+00_jprb, 0.200555e+00_jprb, 0.191826e+00_jprb &
27049  &, 0.183355e+00_jprb, 0.175134e+00_jprb, 0.167188e+00_jprb, 0.159467e+00_jprb &
27050  &, 0.152032e+00_jprb, 0.144833e+00_jprb, 0.137890e+00_jprb &
27051  &, 0.131186e+00_jprb, 0.124743e+00_jprb, 0.118499e+00_jprb, 0.112515e+00_jprb &
27052  &, 0.106768e+00_jprb, 0.101233e+00_jprb, 0.959290e-01_jprb &
27053  &, 0.908725e-01_jprb, 0.859907e-01_jprb, 0.812978e-01_jprb, 0.768553e-01_jprb &
27054  &, 0.725846e-01_jprb, 0.684988e-01_jprb, 0.646109e-01_jprb &
27055  &, 0.608845e-01_jprb, 0.573312e-01_jprb, 0.539626e-01_jprb, 0.507384e-01_jprb &
27056  &, 0.477214e-01_jprb, 0.448167e-01_jprb, 0.420865e-01_jprb &
27057  &, 0.394310e-01_jprb, 0.369679e-01_jprb, 0.346512e-01_jprb, 0.324319e-01_jprb &
27058  &, 0.303163e-01_jprb, 0.283699e-01_jprb, 0.264817e-01_jprb &
27059  &, 0.247167e-01_jprb, 0.230815e-01_jprb, 0.215206e-01_jprb, 0.200383e-01_jprb &
27060  &, 0.186393e-01_jprb, 0.173281e-01_jprb, 0.161092e-01_jprb/)
27061 xcw( 619, :) = (/ &
27062  & 0.102710e+01_jprb, 0.103289e+01_jprb, 0.103828e+01_jprb, 0.104325e+01_jprb &
27063  &, 0.104782e+01_jprb, 0.105197e+01_jprb, 0.105570e+01_jprb &
27064  &, 0.105900e+01_jprb, 0.106188e+01_jprb, 0.106432e+01_jprb, 0.106633e+01_jprb &
27065  &, 0.106791e+01_jprb, 0.106904e+01_jprb, 0.106973e+01_jprb &
27066  &, 0.106998e+01_jprb, 0.106978e+01_jprb, 0.106914e+01_jprb, 0.106805e+01_jprb &
27067  &, 0.106651e+01_jprb, 0.106452e+01_jprb, 0.106208e+01_jprb &
27068  &, 0.105919e+01_jprb, 0.105586e+01_jprb, 0.105208e+01_jprb, 0.104785e+01_jprb &
27069  &, 0.104319e+01_jprb, 0.103808e+01_jprb, 0.103254e+01_jprb &
27070  &, 0.102657e+01_jprb, 0.102017e+01_jprb, 0.101335e+01_jprb, 0.100612e+01_jprb &
27071  &, 0.998475e+00_jprb, 0.990427e+00_jprb, 0.981989e+00_jprb &
27072  &, 0.973158e+00_jprb, 0.963955e+00_jprb, 0.954375e+00_jprb, 0.944441e+00_jprb &
27073  &, 0.934159e+00_jprb, 0.923537e+00_jprb, 0.912578e+00_jprb &
27074  &, 0.901311e+00_jprb, 0.889744e+00_jprb, 0.877880e+00_jprb, 0.865745e+00_jprb &
27075  &, 0.853332e+00_jprb, 0.840674e+00_jprb, 0.827782e+00_jprb &
27076  &, 0.814653e+00_jprb, 0.801329e+00_jprb, 0.787810e+00_jprb, 0.774099e+00_jprb &
27077  &, 0.760241e+00_jprb, 0.746213e+00_jprb, 0.732062e+00_jprb &
27078  &, 0.717794e+00_jprb, 0.703415e+00_jprb, 0.688946e+00_jprb, 0.674409e+00_jprb &
27079  &, 0.659827e+00_jprb, 0.645189e+00_jprb, 0.630517e+00_jprb &
27080  &, 0.615834e+00_jprb, 0.601163e+00_jprb, 0.586509e+00_jprb, 0.571876e+00_jprb &
27081  &, 0.557305e+00_jprb, 0.542779e+00_jprb, 0.528320e+00_jprb &
27082  &, 0.513948e+00_jprb, 0.499686e+00_jprb, 0.485531e+00_jprb, 0.471481e+00_jprb &
27083  &, 0.457577e+00_jprb, 0.443815e+00_jprb, 0.430212e+00_jprb &
27084  &, 0.416786e+00_jprb, 0.403528e+00_jprb, 0.390427e+00_jprb, 0.377547e+00_jprb &
27085  &, 0.364877e+00_jprb, 0.352376e+00_jprb, 0.340133e+00_jprb &
27086  &, 0.328079e+00_jprb, 0.316275e+00_jprb, 0.304703e+00_jprb, 0.293368e+00_jprb &
27087  &, 0.282275e+00_jprb, 0.271427e+00_jprb, 0.260829e+00_jprb &
27088  &, 0.250480e+00_jprb, 0.240413e+00_jprb, 0.230561e+00_jprb, 0.220988e+00_jprb &
27089  &, 0.211691e+00_jprb, 0.202663e+00_jprb, 0.193865e+00_jprb &
27090  &, 0.185323e+00_jprb, 0.177063e+00_jprb, 0.169038e+00_jprb, 0.161310e+00_jprb &
27091  &, 0.153792e+00_jprb, 0.146544e+00_jprb, 0.139550e+00_jprb &
27092  &, 0.132793e+00_jprb, 0.126295e+00_jprb, 0.120034e+00_jprb, 0.113990e+00_jprb &
27093  &, 0.108181e+00_jprb, 0.102582e+00_jprb, 0.972544e-01_jprb &
27094  &, 0.921289e-01_jprb, 0.871754e-01_jprb, 0.824544e-01_jprb, 0.779356e-01_jprb &
27095  &, 0.736336e-01_jprb, 0.695152e-01_jprb, 0.655934e-01_jprb &
27096  &, 0.618318e-01_jprb, 0.582419e-01_jprb, 0.548352e-01_jprb, 0.515717e-01_jprb &
27097  &, 0.485139e-01_jprb, 0.455670e-01_jprb, 0.427932e-01_jprb &
27098  &, 0.401478e-01_jprb, 0.376389e-01_jprb, 0.352749e-01_jprb, 0.330068e-01_jprb &
27099  &, 0.308992e-01_jprb, 0.289016e-01_jprb, 0.270207e-01_jprb &
27100  &, 0.252023e-01_jprb, 0.235121e-01_jprb, 0.219570e-01_jprb, 0.204174e-01_jprb &
27101  &, 0.190235e-01_jprb, 0.177173e-01_jprb, 0.165035e-01_jprb/)
27102 xcw( 620, :) = (/ &
27103  & 0.102737e+01_jprb, 0.103322e+01_jprb, 0.103868e+01_jprb, 0.104373e+01_jprb &
27104  &, 0.104836e+01_jprb, 0.105258e+01_jprb, 0.105638e+01_jprb &
27105  &, 0.105975e+01_jprb, 0.106270e+01_jprb, 0.106521e+01_jprb, 0.106730e+01_jprb &
27106  &, 0.106894e+01_jprb, 0.107015e+01_jprb, 0.107091e+01_jprb &
27107  &, 0.107123e+01_jprb, 0.107110e+01_jprb, 0.107053e+01_jprb, 0.106950e+01_jprb &
27108  &, 0.106803e+01_jprb, 0.106611e+01_jprb, 0.106374e+01_jprb &
27109  &, 0.106092e+01_jprb, 0.105765e+01_jprb, 0.105393e+01_jprb, 0.104978e+01_jprb &
27110  &, 0.104517e+01_jprb, 0.104013e+01_jprb, 0.103465e+01_jprb &
27111  &, 0.102874e+01_jprb, 0.102241e+01_jprb, 0.101565e+01_jprb, 0.100847e+01_jprb &
27112  &, 0.100089e+01_jprb, 0.992895e+00_jprb, 0.984511e+00_jprb &
27113  &, 0.975735e+00_jprb, 0.966577e+00_jprb, 0.957054e+00_jprb, 0.947168e+00_jprb &
27114  &, 0.936934e+00_jprb, 0.926350e+00_jprb, 0.915441e+00_jprb &
27115  &, 0.904224e+00_jprb, 0.892685e+00_jprb, 0.880870e+00_jprb, 0.868762e+00_jprb &
27116  &, 0.856387e+00_jprb, 0.843767e+00_jprb, 0.830899e+00_jprb &
27117  &, 0.817807e+00_jprb, 0.804505e+00_jprb, 0.791007e+00_jprb, 0.777317e+00_jprb &
27118  &, 0.763464e+00_jprb, 0.749467e+00_jprb, 0.735332e+00_jprb &
27119  &, 0.721079e+00_jprb, 0.706713e+00_jprb, 0.692255e+00_jprb, 0.677711e+00_jprb &
27120  &, 0.663120e+00_jprb, 0.648487e+00_jprb, 0.633818e+00_jprb &
27121  &, 0.619137e+00_jprb, 0.604465e+00_jprb, 0.589789e+00_jprb, 0.575150e+00_jprb &
27122  &, 0.560551e+00_jprb, 0.546014e+00_jprb, 0.531542e+00_jprb &
27123  &, 0.517154e+00_jprb, 0.502872e+00_jprb, 0.488674e+00_jprb, 0.474622e+00_jprb &
27124  &, 0.460691e+00_jprb, 0.446899e+00_jprb, 0.433264e+00_jprb &
27125  &, 0.419802e+00_jprb, 0.406480e+00_jprb, 0.393387e+00_jprb, 0.380437e+00_jprb &
27126  &, 0.367718e+00_jprb, 0.355218e+00_jprb, 0.342893e+00_jprb &
27127  &, 0.330808e+00_jprb, 0.318971e+00_jprb, 0.307334e+00_jprb, 0.295959e+00_jprb &
27128  &, 0.284824e+00_jprb, 0.273902e+00_jprb, 0.263255e+00_jprb &
27129  &, 0.252886e+00_jprb, 0.242733e+00_jprb, 0.232858e+00_jprb, 0.223226e+00_jprb &
27130  &, 0.213865e+00_jprb, 0.204772e+00_jprb, 0.195940e+00_jprb &
27131  &, 0.187326e+00_jprb, 0.179027e+00_jprb, 0.170962e+00_jprb, 0.163154e+00_jprb &
27132  &, 0.155590e+00_jprb, 0.148294e+00_jprb, 0.141250e+00_jprb &
27133  &, 0.134441e+00_jprb, 0.127887e+00_jprb, 0.121528e+00_jprb, 0.115465e+00_jprb &
27134  &, 0.109594e+00_jprb, 0.103974e+00_jprb, 0.985799e-01_jprb &
27135  &, 0.933853e-01_jprb, 0.884057e-01_jprb, 0.836573e-01_jprb, 0.791099e-01_jprb &
27136  &, 0.747304e-01_jprb, 0.705800e-01_jprb, 0.665759e-01_jprb &
27137  &, 0.627791e-01_jprb, 0.591525e-01_jprb, 0.557079e-01_jprb, 0.524050e-01_jprb &
27138  &, 0.493065e-01_jprb, 0.463174e-01_jprb, 0.434999e-01_jprb &
27139  &, 0.408094e-01_jprb, 0.383098e-01_jprb, 0.358985e-01_jprb, 0.336391e-01_jprb &
27140  &, 0.314820e-01_jprb, 0.294334e-01_jprb, 0.274999e-01_jprb &
27141  &, 0.256879e-01_jprb, 0.240043e-01_jprb, 0.223934e-01_jprb, 0.208597e-01_jprb &
27142  &, 0.194076e-01_jprb, 0.181064e-01_jprb, 0.168320e-01_jprb/)
27143 xcw( 621, :) = (/ &
27144  & 0.102763e+01_jprb, 0.103356e+01_jprb, 0.103908e+01_jprb, 0.104420e+01_jprb &
27145  &, 0.104890e+01_jprb, 0.105319e+01_jprb, 0.105706e+01_jprb &
27146  &, 0.106051e+01_jprb, 0.106352e+01_jprb, 0.106611e+01_jprb, 0.106826e+01_jprb &
27147  &, 0.106997e+01_jprb, 0.107125e+01_jprb, 0.107208e+01_jprb &
27148  &, 0.107247e+01_jprb, 0.107242e+01_jprb, 0.107191e+01_jprb, 0.107096e+01_jprb &
27149  &, 0.106955e+01_jprb, 0.106770e+01_jprb, 0.106540e+01_jprb &
27150  &, 0.106265e+01_jprb, 0.105944e+01_jprb, 0.105579e+01_jprb, 0.105170e+01_jprb &
27151  &, 0.104716e+01_jprb, 0.104218e+01_jprb, 0.103677e+01_jprb &
27152  &, 0.103092e+01_jprb, 0.102464e+01_jprb, 0.101795e+01_jprb, 0.101083e+01_jprb &
27153  &, 0.100330e+01_jprb, 0.995368e+00_jprb, 0.987037e+00_jprb &
27154  &, 0.978320e+00_jprb, 0.969209e+00_jprb, 0.959743e+00_jprb, 0.949905e+00_jprb &
27155  &, 0.939709e+00_jprb, 0.929185e+00_jprb, 0.918315e+00_jprb &
27156  &, 0.907136e+00_jprb, 0.895647e+00_jprb, 0.883861e+00_jprb, 0.871790e+00_jprb &
27157  &, 0.859454e+00_jprb, 0.846859e+00_jprb, 0.834029e+00_jprb &
27158  &, 0.820961e+00_jprb, 0.807681e+00_jprb, 0.794205e+00_jprb, 0.780549e+00_jprb &
27159  &, 0.766715e+00_jprb, 0.752737e+00_jprb, 0.738618e+00_jprb &
27160  &, 0.724365e+00_jprb, 0.710012e+00_jprb, 0.695565e+00_jprb, 0.681031e+00_jprb &
27161  &, 0.666447e+00_jprb, 0.651820e+00_jprb, 0.637138e+00_jprb &
27162  &, 0.622457e+00_jprb, 0.607767e+00_jprb, 0.593088e+00_jprb, 0.578443e+00_jprb &
27163  &, 0.563836e+00_jprb, 0.549290e+00_jprb, 0.534784e+00_jprb &
27164  &, 0.520380e+00_jprb, 0.506081e+00_jprb, 0.491861e+00_jprb, 0.477763e+00_jprb &
27165  &, 0.463806e+00_jprb, 0.449984e+00_jprb, 0.436316e+00_jprb &
27166  &, 0.422818e+00_jprb, 0.409482e+00_jprb, 0.396322e+00_jprb, 0.383377e+00_jprb &
27167  &, 0.370611e+00_jprb, 0.358033e+00_jprb, 0.345681e+00_jprb &
27168  &, 0.333565e+00_jprb, 0.321667e+00_jprb, 0.309993e+00_jprb, 0.298550e+00_jprb &
27169  &, 0.287373e+00_jprb, 0.276406e+00_jprb, 0.265712e+00_jprb &
27170  &, 0.255261e+00_jprb, 0.245086e+00_jprb, 0.235155e+00_jprb, 0.225463e+00_jprb &
27171  &, 0.216074e+00_jprb, 0.206916e+00_jprb, 0.198015e+00_jprb &
27172  &, 0.189366e+00_jprb, 0.180992e+00_jprb, 0.172886e+00_jprb, 0.164997e+00_jprb &
27173  &, 0.157388e+00_jprb, 0.150044e+00_jprb, 0.142950e+00_jprb &
27174  &, 0.136088e+00_jprb, 0.129479e+00_jprb, 0.123104e+00_jprb, 0.116941e+00_jprb &
27175  &, 0.111050e+00_jprb, 0.105366e+00_jprb, 0.999053e-01_jprb &
27176  &, 0.946865e-01_jprb, 0.896359e-01_jprb, 0.848602e-01_jprb, 0.802372e-01_jprb &
27177  &, 0.758271e-01_jprb, 0.715965e-01_jprb, 0.676076e-01_jprb &
27178  &, 0.637264e-01_jprb, 0.600632e-01_jprb, 0.565806e-01_jprb, 0.532904e-01_jprb &
27179  &, 0.500990e-01_jprb, 0.471213e-01_jprb, 0.442610e-01_jprb &
27180  &, 0.415261e-01_jprb, 0.389808e-01_jprb, 0.365222e-01_jprb, 0.342140e-01_jprb &
27181  &, 0.320648e-01_jprb, 0.299651e-01_jprb, 0.280389e-01_jprb &
27182  &, 0.261736e-01_jprb, 0.244350e-01_jprb, 0.228299e-01_jprb, 0.212388e-01_jprb &
27183  &, 0.197917e-01_jprb, 0.184307e-01_jprb, 0.171606e-01_jprb/)
27184 xcw( 622, :) = (/ &
27185  & 0.102790e+01_jprb, 0.103390e+01_jprb, 0.103949e+01_jprb, 0.104467e+01_jprb &
27186  &, 0.104945e+01_jprb, 0.105381e+01_jprb, 0.105774e+01_jprb &
27187  &, 0.106126e+01_jprb, 0.106435e+01_jprb, 0.106700e+01_jprb, 0.106923e+01_jprb &
27188  &, 0.107101e+01_jprb, 0.107236e+01_jprb, 0.107326e+01_jprb &
27189  &, 0.107372e+01_jprb, 0.107373e+01_jprb, 0.107330e+01_jprb, 0.107241e+01_jprb &
27190  &, 0.107108e+01_jprb, 0.106929e+01_jprb, 0.106706e+01_jprb &
27191  &, 0.106438e+01_jprb, 0.106124e+01_jprb, 0.105766e+01_jprb, 0.105363e+01_jprb &
27192  &, 0.104916e+01_jprb, 0.104424e+01_jprb, 0.103887e+01_jprb &
27193  &, 0.103311e+01_jprb, 0.102689e+01_jprb, 0.102026e+01_jprb, 0.101320e+01_jprb &
27194  &, 0.100573e+01_jprb, 0.997850e+00_jprb, 0.989573e+00_jprb &
27195  &, 0.980906e+00_jprb, 0.971860e+00_jprb, 0.962432e+00_jprb, 0.952642e+00_jprb &
27196  &, 0.942505e+00_jprb, 0.932020e+00_jprb, 0.921200e+00_jprb &
27197  &, 0.910060e+00_jprb, 0.898610e+00_jprb, 0.886862e+00_jprb, 0.874831e+00_jprb &
27198  &, 0.862533e+00_jprb, 0.849964e+00_jprb, 0.837158e+00_jprb &
27199  &, 0.824127e+00_jprb, 0.810884e+00_jprb, 0.797431e+00_jprb, 0.783795e+00_jprb &
27200  &, 0.769981e+00_jprb, 0.756006e+00_jprb, 0.741904e+00_jprb &
27201  &, 0.727665e+00_jprb, 0.713326e+00_jprb, 0.698891e+00_jprb, 0.684367e+00_jprb &
27202  &, 0.669248e+00_jprb, 0.655153e+00_jprb, 0.640475e+00_jprb &
27203  &, 0.625796e+00_jprb, 0.611105e+00_jprb, 0.596405e+00_jprb, 0.581755e+00_jprb &
27204  &, 0.567122e+00_jprb, 0.552565e+00_jprb, 0.538046e+00_jprb &
27205  &, 0.523628e+00_jprb, 0.509289e+00_jprb, 0.495071e+00_jprb, 0.480949e+00_jprb &
27206  &, 0.466966e+00_jprb, 0.453115e+00_jprb, 0.439415e+00_jprb &
27207  &, 0.425858e+00_jprb, 0.412508e+00_jprb, 0.399307e+00_jprb, 0.386292e+00_jprb &
27208  &, 0.373504e+00_jprb, 0.360902e+00_jprb, 0.348495e+00_jprb &
27209  &, 0.336322e+00_jprb, 0.324391e+00_jprb, 0.312682e+00_jprb, 0.301171e+00_jprb &
27210  &, 0.289953e+00_jprb, 0.278941e+00_jprb, 0.268200e+00_jprb &
27211  &, 0.257699e+00_jprb, 0.247472e+00_jprb, 0.237484e+00_jprb, 0.227733e+00_jprb &
27212  &, 0.218282e+00_jprb, 0.209059e+00_jprb, 0.200091e+00_jprb &
27213  &, 0.191405e+00_jprb, 0.182993e+00_jprb, 0.174810e+00_jprb, 0.166879e+00_jprb &
27214  &, 0.159224e+00_jprb, 0.151833e+00_jprb, 0.144649e+00_jprb &
27215  &, 0.137735e+00_jprb, 0.131072e+00_jprb, 0.124639e+00_jprb, 0.118458e+00_jprb &
27216  &, 0.112506e+00_jprb, 0.106758e+00_jprb, 0.101275e+00_jprb &
27217  &, 0.959877e-01_jprb, 0.909117e-01_jprb, 0.860631e-01_jprb, 0.814115e-01_jprb &
27218  &, 0.769238e-01_jprb, 0.727097e-01_jprb, 0.686392e-01_jprb &
27219  &, 0.647235e-01_jprb, 0.610245e-01_jprb, 0.575046e-01_jprb, 0.541238e-01_jprb &
27220  &, 0.509444e-01_jprb, 0.478717e-01_jprb, 0.450221e-01_jprb &
27221  &, 0.422429e-01_jprb, 0.396517e-01_jprb, 0.372025e-01_jprb, 0.348463e-01_jprb &
27222  &, 0.326476e-01_jprb, 0.305560e-01_jprb, 0.285779e-01_jprb &
27223  &, 0.266592e-01_jprb, 0.249272e-01_jprb, 0.232663e-01_jprb, 0.216811e-01_jprb &
27224  &, 0.202398e-01_jprb, 0.188199e-01_jprb, 0.175549e-01_jprb/)
27225 xcw( 623, :) = (/ &
27226  & 0.102817e+01_jprb, 0.103423e+01_jprb, 0.103990e+01_jprb, 0.104515e+01_jprb &
27227  &, 0.104999e+01_jprb, 0.105442e+01_jprb, 0.105843e+01_jprb &
27228  &, 0.106201e+01_jprb, 0.106517e+01_jprb, 0.106790e+01_jprb, 0.107019e+01_jprb &
27229  &, 0.107205e+01_jprb, 0.107347e+01_jprb, 0.107444e+01_jprb &
27230  &, 0.107497e+01_jprb, 0.107505e+01_jprb, 0.107469e+01_jprb, 0.107388e+01_jprb &
27231  &, 0.107261e+01_jprb, 0.107089e+01_jprb, 0.106873e+01_jprb &
27232  &, 0.106611e+01_jprb, 0.106304e+01_jprb, 0.105953e+01_jprb, 0.105557e+01_jprb &
27233  &, 0.105116e+01_jprb, 0.104631e+01_jprb, 0.104102e+01_jprb &
27234  &, 0.103530e+01_jprb, 0.102915e+01_jprb, 0.102257e+01_jprb, 0.101557e+01_jprb &
27235  &, 0.100816e+01_jprb, 0.100034e+01_jprb, 0.992117e+00_jprb &
27236  &, 0.983501e+00_jprb, 0.974502e+00_jprb, 0.965131e+00_jprb, 0.955399e+00_jprb &
27237  &, 0.945301e+00_jprb, 0.934865e+00_jprb, 0.924084e+00_jprb &
27238  &, 0.912995e+00_jprb, 0.901584e+00_jprb, 0.889876e+00_jprb, 0.877883e+00_jprb &
27239  &, 0.865612e+00_jprb, 0.853082e+00_jprb, 0.840314e+00_jprb &
27240  &, 0.827307e+00_jprb, 0.814088e+00_jprb, 0.800656e+00_jprb, 0.787041e+00_jprb &
27241  &, 0.773247e+00_jprb, 0.759305e+00_jprb, 0.745205e+00_jprb &
27242  &, 0.730997e+00_jprb, 0.716656e+00_jprb, 0.702233e+00_jprb, 0.687719e+00_jprb &
27243  &, 0.673135e+00_jprb, 0.658504e+00_jprb, 0.643829e+00_jprb &
27244  &, 0.629135e+00_jprb, 0.614444e+00_jprb, 0.599742e+00_jprb, 0.585068e+00_jprb &
27245  &, 0.570447e+00_jprb, 0.555860e+00_jprb, 0.541330e+00_jprb &
27246  &, 0.526897e+00_jprb, 0.512540e+00_jprb, 0.498280e+00_jprb, 0.484136e+00_jprb &
27247  &, 0.470126e+00_jprb, 0.456247e+00_jprb, 0.442515e+00_jprb &
27248  &, 0.428947e+00_jprb, 0.415535e+00_jprb, 0.402292e+00_jprb, 0.389259e+00_jprb &
27249  &, 0.376423e+00_jprb, 0.363770e+00_jprb, 0.351337e+00_jprb &
27250  &, 0.339106e+00_jprb, 0.327114e+00_jprb, 0.315370e+00_jprb, 0.303822e+00_jprb &
27251  &, 0.292532e+00_jprb, 0.281507e+00_jprb, 0.270688e+00_jprb &
27252  &, 0.260138e+00_jprb, 0.249857e+00_jprb, 0.239814e+00_jprb, 0.230037e+00_jprb &
27253  &, 0.220491e+00_jprb, 0.211237e+00_jprb, 0.202236e+00_jprb &
27254  &, 0.193480e+00_jprb, 0.184995e+00_jprb, 0.176771e+00_jprb, 0.168798e+00_jprb &
27255  &, 0.161060e+00_jprb, 0.153622e+00_jprb, 0.146389e+00_jprb &
27256  &, 0.139422e+00_jprb, 0.132705e+00_jprb, 0.126216e+00_jprb, 0.119976e+00_jprb &
27257  &, 0.113962e+00_jprb, 0.108193e+00_jprb, 0.102645e+00_jprb &
27258  &, 0.972890e-01_jprb, 0.921875e-01_jprb, 0.872660e-01_jprb, 0.825858e-01_jprb &
27259  &, 0.780682e-01_jprb, 0.737746e-01_jprb, 0.696709e-01_jprb &
27260  &, 0.657206e-01_jprb, 0.619857e-01_jprb, 0.584287e-01_jprb, 0.550092e-01_jprb &
27261  &, 0.517898e-01_jprb, 0.486756e-01_jprb, 0.457831e-01_jprb &
27262  &, 0.429596e-01_jprb, 0.403226e-01_jprb, 0.378262e-01_jprb, 0.354787e-01_jprb &
27263  &, 0.332304e-01_jprb, 0.310877e-01_jprb, 0.291169e-01_jprb &
27264  &, 0.272055e-01_jprb, 0.254194e-01_jprb, 0.237028e-01_jprb, 0.221233e-01_jprb &
27265  &, 0.206239e-01_jprb, 0.192091e-01_jprb, 0.178834e-01_jprb/)
27266 
27267 IF (lhook) CALL dr_hook('SU_MCICA:PART89',1,zhook_handle)
27268 END SUBROUTINE part89
27269 
27270 #ifdef VPP5000
27271 !OCL SCALAR
27272 #endif
27273 !option! -Nv -NO
27274 #ifdef RS6K
27275 @process nooptimize
27276 #endif
27277 !pgi$r opt=0
27278 SUBROUTINE part90
27279 
27280 REAL(KIND=JPRB) :: ZHOOK_HANDLE
27281 IF (lhook) CALL dr_hook('SU_MCICA:PART90',0,zhook_handle)
27282 
27283 xcw( 624, :) = (/ &
27284  & 0.102844e+01_jprb, 0.103457e+01_jprb, 0.104030e+01_jprb, 0.104562e+01_jprb &
27285  &, 0.105054e+01_jprb, 0.105504e+01_jprb, 0.105912e+01_jprb &
27286  &, 0.106277e+01_jprb, 0.106600e+01_jprb, 0.106880e+01_jprb, 0.107116e+01_jprb &
27287  &, 0.107309e+01_jprb, 0.107458e+01_jprb, 0.107562e+01_jprb &
27288  &, 0.107622e+01_jprb, 0.107638e+01_jprb, 0.107608e+01_jprb, 0.107534e+01_jprb &
27289  &, 0.107414e+01_jprb, 0.107250e+01_jprb, 0.107040e+01_jprb &
27290  &, 0.106785e+01_jprb, 0.106485e+01_jprb, 0.106140e+01_jprb, 0.105751e+01_jprb &
27291  &, 0.105316e+01_jprb, 0.104838e+01_jprb, 0.104316e+01_jprb &
27292  &, 0.103749e+01_jprb, 0.103140e+01_jprb, 0.102489e+01_jprb, 0.101795e+01_jprb &
27293  &, 0.101059e+01_jprb, 0.100282e+01_jprb, 0.994667e+00_jprb &
27294  &, 0.986105e+00_jprb, 0.977163e+00_jprb, 0.967840e+00_jprb, 0.958156e+00_jprb &
27295  &, 0.948107e+00_jprb, 0.937710e+00_jprb, 0.926990e+00_jprb &
27296  &, 0.915929e+00_jprb, 0.904558e+00_jprb, 0.892901e+00_jprb, 0.880936e+00_jprb &
27297  &, 0.868703e+00_jprb, 0.856211e+00_jprb, 0.843469e+00_jprb &
27298  &, 0.830500e+00_jprb, 0.817304e+00_jprb, 0.803895e+00_jprb, 0.790302e+00_jprb &
27299  &, 0.776542e+00_jprb, 0.762604e+00_jprb, 0.748537e+00_jprb &
27300  &, 0.734329e+00_jprb, 0.720002e+00_jprb, 0.705576e+00_jprb, 0.691072e+00_jprb &
27301  &, 0.676496e+00_jprb, 0.661871e+00_jprb, 0.647202e+00_jprb &
27302  &, 0.632492e+00_jprb, 0.617802e+00_jprb, 0.603097e+00_jprb, 0.588419e+00_jprb &
27303  &, 0.573772e+00_jprb, 0.559176e+00_jprb, 0.544634e+00_jprb &
27304  &, 0.530165e+00_jprb, 0.515792e+00_jprb, 0.501512e+00_jprb, 0.487344e+00_jprb &
27305  &, 0.473309e+00_jprb, 0.459401e+00_jprb, 0.445638e+00_jprb &
27306  &, 0.432036e+00_jprb, 0.418586e+00_jprb, 0.405328e+00_jprb, 0.392226e+00_jprb &
27307  &, 0.379343e+00_jprb, 0.366666e+00_jprb, 0.354179e+00_jprb &
27308  &, 0.341919e+00_jprb, 0.329895e+00_jprb, 0.318087e+00_jprb, 0.306501e+00_jprb &
27309  &, 0.295172e+00_jprb, 0.284073e+00_jprb, 0.273207e+00_jprb &
27310  &, 0.262608e+00_jprb, 0.252275e+00_jprb, 0.242176e+00_jprb, 0.232341e+00_jprb &
27311  &, 0.222733e+00_jprb, 0.213415e+00_jprb, 0.204381e+00_jprb &
27312  &, 0.195555e+00_jprb, 0.187032e+00_jprb, 0.178732e+00_jprb, 0.170717e+00_jprb &
27313  &, 0.162935e+00_jprb, 0.155411e+00_jprb, 0.148168e+00_jprb &
27314  &, 0.141110e+00_jprb, 0.134338e+00_jprb, 0.127834e+00_jprb, 0.121535e+00_jprb &
27315  &, 0.115461e+00_jprb, 0.109629e+00_jprb, 0.104014e+00_jprb &
27316  &, 0.986351e-01_jprb, 0.934633e-01_jprb, 0.885152e-01_jprb, 0.837601e-01_jprb &
27317  &, 0.792126e-01_jprb, 0.748878e-01_jprb, 0.707025e-01_jprb &
27318  &, 0.667676e-01_jprb, 0.629470e-01_jprb, 0.593527e-01_jprb, 0.558946e-01_jprb &
27319  &, 0.526352e-01_jprb, 0.494796e-01_jprb, 0.465442e-01_jprb &
27320  &, 0.437315e-01_jprb, 0.410495e-01_jprb, 0.385065e-01_jprb, 0.361110e-01_jprb &
27321  &, 0.338132e-01_jprb, 0.316785e-01_jprb, 0.296559e-01_jprb &
27322  &, 0.276912e-01_jprb, 0.259116e-01_jprb, 0.242016e-01_jprb, 0.225656e-01_jprb &
27323  &, 0.210720e-01_jprb, 0.195983e-01_jprb, 0.182777e-01_jprb/)
27324 xcw( 625, :) = (/ &
27325  & 0.102871e+01_jprb, 0.103491e+01_jprb, 0.104071e+01_jprb, 0.104610e+01_jprb &
27326  &, 0.105108e+01_jprb, 0.105565e+01_jprb, 0.105980e+01_jprb &
27327  &, 0.106353e+01_jprb, 0.106683e+01_jprb, 0.106970e+01_jprb, 0.107213e+01_jprb &
27328  &, 0.107413e+01_jprb, 0.107569e+01_jprb, 0.107680e+01_jprb &
27329  &, 0.107748e+01_jprb, 0.107770e+01_jprb, 0.107748e+01_jprb, 0.107680e+01_jprb &
27330  &, 0.107568e+01_jprb, 0.107410e+01_jprb, 0.107207e+01_jprb &
27331  &, 0.106959e+01_jprb, 0.106666e+01_jprb, 0.106328e+01_jprb, 0.105945e+01_jprb &
27332  &, 0.105517e+01_jprb, 0.105045e+01_jprb, 0.104529e+01_jprb &
27333  &, 0.103970e+01_jprb, 0.103367e+01_jprb, 0.102721e+01_jprb, 0.102033e+01_jprb &
27334  &, 0.101303e+01_jprb, 0.100533e+01_jprb, 0.997220e+00_jprb &
27335  &, 0.988719e+00_jprb, 0.979824e+00_jprb, 0.970558e+00_jprb, 0.960913e+00_jprb &
27336  &, 0.950923e+00_jprb, 0.940577e+00_jprb, 0.929896e+00_jprb &
27337  &, 0.918875e+00_jprb, 0.907555e+00_jprb, 0.895926e+00_jprb, 0.884012e+00_jprb &
27338  &, 0.871807e+00_jprb, 0.859354e+00_jprb, 0.846637e+00_jprb &
27339  &, 0.833693e+00_jprb, 0.820521e+00_jprb, 0.807148e+00_jprb, 0.793576e+00_jprb &
27340  &, 0.779837e+00_jprb, 0.765918e+00_jprb, 0.751868e+00_jprb &
27341  &, 0.737677e+00_jprb, 0.723364e+00_jprb, 0.708950e+00_jprb, 0.694441e+00_jprb &
27342  &, 0.679875e+00_jprb, 0.665239e+00_jprb, 0.650575e+00_jprb &
27343  &, 0.635886e+00_jprb, 0.621177e+00_jprb, 0.606471e+00_jprb, 0.591771e+00_jprb &
27344  &, 0.577117e+00_jprb, 0.562492e+00_jprb, 0.547938e+00_jprb &
27345  &, 0.533455e+00_jprb, 0.519064e+00_jprb, 0.504765e+00_jprb, 0.490575e+00_jprb &
27346  &, 0.476492e+00_jprb, 0.462556e+00_jprb, 0.448761e+00_jprb &
27347  &, 0.435125e+00_jprb, 0.421662e+00_jprb, 0.408364e+00_jprb, 0.395244e+00_jprb &
27348  &, 0.382315e+00_jprb, 0.369588e+00_jprb, 0.357048e+00_jprb &
27349  &, 0.344759e+00_jprb, 0.332676e+00_jprb, 0.320805e+00_jprb, 0.309181e+00_jprb &
27350  &, 0.297781e+00_jprb, 0.286639e+00_jprb, 0.275758e+00_jprb &
27351  &, 0.265077e+00_jprb, 0.254692e+00_jprb, 0.244538e+00_jprb, 0.234645e+00_jprb &
27352  &, 0.225010e+00_jprb, 0.215593e+00_jprb, 0.206527e+00_jprb &
27353  &, 0.197665e+00_jprb, 0.189070e+00_jprb, 0.180730e+00_jprb, 0.172635e+00_jprb &
27354  &, 0.164809e+00_jprb, 0.157238e+00_jprb, 0.149907e+00_jprb &
27355  &, 0.142837e+00_jprb, 0.136012e+00_jprb, 0.129410e+00_jprb, 0.123095e+00_jprb &
27356  &, 0.116959e+00_jprb, 0.111064e+00_jprb, 0.105428e+00_jprb &
27357  &, 0.999812e-01_jprb, 0.947847e-01_jprb, 0.897643e-01_jprb, 0.849813e-01_jprb &
27358  &, 0.804047e-01_jprb, 0.760011e-01_jprb, 0.717833e-01_jprb &
27359  &, 0.677647e-01_jprb, 0.639588e-01_jprb, 0.602767e-01_jprb, 0.567800e-01_jprb &
27360  &, 0.534806e-01_jprb, 0.503371e-01_jprb, 0.473053e-01_jprb &
27361  &, 0.444482e-01_jprb, 0.417764e-01_jprb, 0.391869e-01_jprb, 0.367434e-01_jprb &
27362  &, 0.344543e-01_jprb, 0.322694e-01_jprb, 0.301949e-01_jprb &
27363  &, 0.282375e-01_jprb, 0.264038e-01_jprb, 0.246380e-01_jprb, 0.230079e-01_jprb &
27364  &, 0.214562e-01_jprb, 0.199874e-01_jprb, 0.186720e-01_jprb/)
27365 xcw( 626, :) = (/ &
27366  & 0.102898e+01_jprb, 0.103525e+01_jprb, 0.104112e+01_jprb, 0.104658e+01_jprb &
27367  &, 0.105163e+01_jprb, 0.105627e+01_jprb, 0.106049e+01_jprb &
27368  &, 0.106429e+01_jprb, 0.106766e+01_jprb, 0.107060e+01_jprb, 0.107310e+01_jprb &
27369  &, 0.107517e+01_jprb, 0.107680e+01_jprb, 0.107799e+01_jprb &
27370  &, 0.107873e+01_jprb, 0.107903e+01_jprb, 0.107887e+01_jprb, 0.107827e+01_jprb &
27371  &, 0.107721e+01_jprb, 0.107571e+01_jprb, 0.107375e+01_jprb &
27372  &, 0.107134e+01_jprb, 0.106847e+01_jprb, 0.106516e+01_jprb, 0.106139e+01_jprb &
27373  &, 0.105718e+01_jprb, 0.105253e+01_jprb, 0.104743e+01_jprb &
27374  &, 0.104190e+01_jprb, 0.103593e+01_jprb, 0.102954e+01_jprb, 0.102272e+01_jprb &
27375  &, 0.101548e+01_jprb, 0.100784e+01_jprb, 0.999783e+00_jprb &
27376  &, 0.991333e+00_jprb, 0.982494e+00_jprb, 0.973276e+00_jprb, 0.963690e+00_jprb &
27377  &, 0.953740e+00_jprb, 0.943443e+00_jprb, 0.932802e+00_jprb &
27378  &, 0.921843e+00_jprb, 0.910552e+00_jprb, 0.898963e+00_jprb, 0.887089e+00_jprb &
27379  &, 0.874923e+00_jprb, 0.862497e+00_jprb, 0.849818e+00_jprb &
27380  &, 0.836912e+00_jprb, 0.823764e+00_jprb, 0.810415e+00_jprb, 0.796865e+00_jprb &
27381  &, 0.783146e+00_jprb, 0.769247e+00_jprb, 0.755214e+00_jprb &
27382  &, 0.741024e+00_jprb, 0.726726e+00_jprb, 0.712325e+00_jprb, 0.697844e+00_jprb &
27383  &, 0.683270e+00_jprb, 0.668642e+00_jprb, 0.653965e+00_jprb &
27384  &, 0.639279e+00_jprb, 0.624553e+00_jprb, 0.609846e+00_jprb, 0.595141e+00_jprb &
27385  &, 0.580481e+00_jprb, 0.565848e+00_jprb, 0.551283e+00_jprb &
27386  &, 0.536766e+00_jprb, 0.522359e+00_jprb, 0.508040e+00_jprb, 0.493807e+00_jprb &
27387  &, 0.479721e+00_jprb, 0.465757e+00_jprb, 0.451932e+00_jprb &
27388  &, 0.438262e+00_jprb, 0.424738e+00_jprb, 0.411400e+00_jprb, 0.398262e+00_jprb &
27389  &, 0.385287e+00_jprb, 0.372510e+00_jprb, 0.359945e+00_jprb &
27390  &, 0.347600e+00_jprb, 0.335457e+00_jprb, 0.323551e+00_jprb, 0.311890e+00_jprb &
27391  &, 0.300450e+00_jprb, 0.289265e+00_jprb, 0.278308e+00_jprb &
27392  &, 0.267611e+00_jprb, 0.257142e+00_jprb, 0.246933e+00_jprb, 0.236982e+00_jprb &
27393  &, 0.227320e+00_jprb, 0.217874e+00_jprb, 0.208707e+00_jprb &
27394  &, 0.199812e+00_jprb, 0.191144e+00_jprb, 0.182766e+00_jprb, 0.174592e+00_jprb &
27395  &, 0.166722e+00_jprb, 0.159105e+00_jprb, 0.151725e+00_jprb &
27396  &, 0.144605e+00_jprb, 0.137686e+00_jprb, 0.131070e+00_jprb, 0.124655e+00_jprb &
27397  &, 0.118501e+00_jprb, 0.112543e+00_jprb, 0.106842e+00_jprb &
27398  &, 0.101372e+00_jprb, 0.961061e-01_jprb, 0.910598e-01_jprb, 0.862026e-01_jprb &
27399  &, 0.815491e-01_jprb, 0.771143e-01_jprb, 0.728641e-01_jprb &
27400  &, 0.688117e-01_jprb, 0.649201e-01_jprb, 0.612521e-01_jprb, 0.577174e-01_jprb &
27401  &, 0.543788e-01_jprb, 0.511411e-01_jprb, 0.481207e-01_jprb &
27402  &, 0.452201e-01_jprb, 0.425032e-01_jprb, 0.398672e-01_jprb, 0.374332e-01_jprb &
27403  &, 0.350954e-01_jprb, 0.328602e-01_jprb, 0.307339e-01_jprb &
27404  &, 0.287839e-01_jprb, 0.268959e-01_jprb, 0.251368e-01_jprb, 0.234501e-01_jprb &
27405  &, 0.219043e-01_jprb, 0.204415e-01_jprb, 0.190005e-01_jprb/)
27406 xcw( 627, :) = (/ &
27407  & 0.102925e+01_jprb, 0.103558e+01_jprb, 0.104152e+01_jprb, 0.104705e+01_jprb &
27408  &, 0.105218e+01_jprb, 0.105689e+01_jprb, 0.106118e+01_jprb &
27409  &, 0.106505e+01_jprb, 0.106848e+01_jprb, 0.107150e+01_jprb, 0.107408e+01_jprb &
27410  &, 0.107622e+01_jprb, 0.107792e+01_jprb, 0.107917e+01_jprb &
27411  &, 0.107999e+01_jprb, 0.108036e+01_jprb, 0.108027e+01_jprb, 0.107974e+01_jprb &
27412  &, 0.107875e+01_jprb, 0.107731e+01_jprb, 0.107543e+01_jprb &
27413  &, 0.107308e+01_jprb, 0.107029e+01_jprb, 0.106704e+01_jprb, 0.106335e+01_jprb &
27414  &, 0.105920e+01_jprb, 0.105461e+01_jprb, 0.104958e+01_jprb &
27415  &, 0.104411e+01_jprb, 0.103821e+01_jprb, 0.103187e+01_jprb, 0.102511e+01_jprb &
27416  &, 0.101794e+01_jprb, 0.101034e+01_jprb, 0.100235e+01_jprb &
27417  &, 0.993956e+00_jprb, 0.985174e+00_jprb, 0.976005e+00_jprb, 0.966467e+00_jprb &
27418  &, 0.956577e+00_jprb, 0.946320e+00_jprb, 0.935730e+00_jprb &
27419  &, 0.924811e+00_jprb, 0.913560e+00_jprb, 0.902023e+00_jprb, 0.890177e+00_jprb &
27420  &, 0.878051e+00_jprb, 0.865664e+00_jprb, 0.853012e+00_jprb &
27421  &, 0.840132e+00_jprb, 0.827021e+00_jprb, 0.813695e+00_jprb, 0.800168e+00_jprb &
27422  &, 0.786470e+00_jprb, 0.772590e+00_jprb, 0.758561e+00_jprb &
27423  &, 0.744402e+00_jprb, 0.730119e+00_jprb, 0.715716e+00_jprb, 0.701246e+00_jprb &
27424  &, 0.686682e+00_jprb, 0.672062e+00_jprb, 0.657391e+00_jprb &
27425  &, 0.642546e+00_jprb, 0.627966e+00_jprb, 0.613239e+00_jprb, 0.598531e+00_jprb &
27426  &, 0.583846e+00_jprb, 0.569204e+00_jprb, 0.554628e+00_jprb &
27427  &, 0.540098e+00_jprb, 0.525675e+00_jprb, 0.511316e+00_jprb, 0.497083e+00_jprb &
27428  &, 0.482950e+00_jprb, 0.468959e+00_jprb, 0.455103e+00_jprb &
27429  &, 0.441400e+00_jprb, 0.427864e+00_jprb, 0.414486e+00_jprb, 0.401280e+00_jprb &
27430  &, 0.388285e+00_jprb, 0.375459e+00_jprb, 0.362869e+00_jprb &
27431  &, 0.350468e+00_jprb, 0.338294e+00_jprb, 0.326326e+00_jprb, 0.314629e+00_jprb &
27432  &, 0.303120e+00_jprb, 0.291892e+00_jprb, 0.280889e+00_jprb &
27433  &, 0.270112e+00_jprb, 0.259624e+00_jprb, 0.249361e+00_jprb, 0.239353e+00_jprb &
27434  &, 0.229631e+00_jprb, 0.220122e+00_jprb, 0.210923e+00_jprb &
27435  &, 0.201958e+00_jprb, 0.193218e+00_jprb, 0.184764e+00_jprb, 0.176586e+00_jprb &
27436  &, 0.168635e+00_jprb, 0.160972e+00_jprb, 0.153544e+00_jprb &
27437  &, 0.146333e+00_jprb, 0.139401e+00_jprb, 0.132729e+00_jprb, 0.126256e+00_jprb &
27438  &, 0.120043e+00_jprb, 0.114066e+00_jprb, 0.108300e+00_jprb &
27439  &, 0.102763e+00_jprb, 0.974275e-01_jprb, 0.923552e-01_jprb, 0.874238e-01_jprb &
27440  &, 0.827412e-01_jprb, 0.782759e-01_jprb, 0.739940e-01_jprb &
27441  &, 0.698587e-01_jprb, 0.659319e-01_jprb, 0.622274e-01_jprb, 0.586549e-01_jprb &
27442  &, 0.552242e-01_jprb, 0.519986e-01_jprb, 0.489362e-01_jprb &
27443  &, 0.459920e-01_jprb, 0.432301e-01_jprb, 0.406043e-01_jprb, 0.380655e-01_jprb &
27444  &, 0.357365e-01_jprb, 0.334510e-01_jprb, 0.313329e-01_jprb &
27445  &, 0.293302e-01_jprb, 0.274497e-01_jprb, 0.256356e-01_jprb, 0.239556e-01_jprb &
27446  &, 0.223524e-01_jprb, 0.208306e-01_jprb, 0.193948e-01_jprb/)
27447 xcw( 628, :) = (/ &
27448  & 0.102951e+01_jprb, 0.103592e+01_jprb, 0.104193e+01_jprb, 0.104753e+01_jprb &
27449  &, 0.105273e+01_jprb, 0.105751e+01_jprb, 0.106187e+01_jprb &
27450  &, 0.106581e+01_jprb, 0.106932e+01_jprb, 0.107240e+01_jprb, 0.107505e+01_jprb &
27451  &, 0.107726e+01_jprb, 0.107904e+01_jprb, 0.108036e+01_jprb &
27452  &, 0.108125e+01_jprb, 0.108169e+01_jprb, 0.108167e+01_jprb, 0.108121e+01_jprb &
27453  &, 0.108030e+01_jprb, 0.107893e+01_jprb, 0.107711e+01_jprb &
27454  &, 0.107483e+01_jprb, 0.107211e+01_jprb, 0.106893e+01_jprb, 0.106530e+01_jprb &
27455  &, 0.106122e+01_jprb, 0.105670e+01_jprb, 0.105173e+01_jprb &
27456  &, 0.104633e+01_jprb, 0.104048e+01_jprb, 0.103421e+01_jprb, 0.102751e+01_jprb &
27457  &, 0.102040e+01_jprb, 0.101286e+01_jprb, 0.100493e+01_jprb &
27458  &, 0.996588e+00_jprb, 0.987854e+00_jprb, 0.978742e+00_jprb, 0.969254e+00_jprb &
27459  &, 0.959414e+00_jprb, 0.949207e+00_jprb, 0.938658e+00_jprb &
27460  &, 0.927779e+00_jprb, 0.916580e+00_jprb, 0.905082e+00_jprb, 0.893277e+00_jprb &
27461  &, 0.881191e+00_jprb, 0.868832e+00_jprb, 0.856219e+00_jprb &
27462  &, 0.843364e+00_jprb, 0.830278e+00_jprb, 0.816976e+00_jprb, 0.803485e+00_jprb &
27463  &, 0.789793e+00_jprb, 0.775948e+00_jprb, 0.761938e+00_jprb &
27464  &, 0.747796e+00_jprb, 0.733513e+00_jprb, 0.719139e+00_jprb, 0.704648e+00_jprb &
27465  &, 0.690094e+00_jprb, 0.675481e+00_jprb, 0.660816e+00_jprb &
27466  &, 0.646102e+00_jprb, 0.631379e+00_jprb, 0.616651e+00_jprb, 0.601941e+00_jprb &
27467  &, 0.587250e+00_jprb, 0.572601e+00_jprb, 0.557994e+00_jprb &
27468  &, 0.543451e+00_jprb, 0.528991e+00_jprb, 0.514635e+00_jprb, 0.500359e+00_jprb &
27469  &, 0.486202e+00_jprb, 0.472184e+00_jprb, 0.458298e+00_jprb &
27470  &, 0.444561e+00_jprb, 0.430990e+00_jprb, 0.417573e+00_jprb, 0.404350e+00_jprb &
27471  &, 0.391283e+00_jprb, 0.378435e+00_jprb, 0.365792e+00_jprb &
27472  &, 0.353364e+00_jprb, 0.341132e+00_jprb, 0.329130e+00_jprb, 0.317367e+00_jprb &
27473  &, 0.305819e+00_jprb, 0.294519e+00_jprb, 0.283471e+00_jprb &
27474  &, 0.272677e+00_jprb, 0.262106e+00_jprb, 0.251789e+00_jprb, 0.241757e+00_jprb &
27475  &, 0.231941e+00_jprb, 0.222403e+00_jprb, 0.213138e+00_jprb &
27476  &, 0.204105e+00_jprb, 0.195328e+00_jprb, 0.186836e+00_jprb, 0.178580e+00_jprb &
27477  &, 0.170586e+00_jprb, 0.162838e+00_jprb, 0.155362e+00_jprb &
27478  &, 0.148101e+00_jprb, 0.141116e+00_jprb, 0.134389e+00_jprb, 0.127858e+00_jprb &
27479  &, 0.121584e+00_jprb, 0.115545e+00_jprb, 0.109758e+00_jprb &
27480  &, 0.104154e+00_jprb, 0.987944e-01_jprb, 0.936506e-01_jprb, 0.886921e-01_jprb &
27481  &, 0.839810e-01_jprb, 0.794376e-01_jprb, 0.750747e-01_jprb &
27482  &, 0.709555e-01_jprb, 0.669944e-01_jprb, 0.632028e-01_jprb, 0.595924e-01_jprb &
27483  &, 0.561224e-01_jprb, 0.528561e-01_jprb, 0.497516e-01_jprb &
27484  &, 0.467639e-01_jprb, 0.439569e-01_jprb, 0.412846e-01_jprb, 0.387554e-01_jprb &
27485  &, 0.363776e-01_jprb, 0.341009e-01_jprb, 0.319318e-01_jprb &
27486  &, 0.298765e-01_jprb, 0.279419e-01_jprb, 0.261344e-01_jprb, 0.243978e-01_jprb &
27487  &, 0.228005e-01_jprb, 0.212847e-01_jprb, 0.198548e-01_jprb/)
27488 xcw( 629, :) = (/ &
27489  & 0.102979e+01_jprb, 0.103626e+01_jprb, 0.104234e+01_jprb, 0.104801e+01_jprb &
27490  &, 0.105327e+01_jprb, 0.105812e+01_jprb, 0.106256e+01_jprb &
27491  &, 0.106657e+01_jprb, 0.107015e+01_jprb, 0.107330e+01_jprb, 0.107603e+01_jprb &
27492  &, 0.107831e+01_jprb, 0.108015e+01_jprb, 0.108156e+01_jprb &
27493  &, 0.108251e+01_jprb, 0.108302e+01_jprb, 0.108308e+01_jprb, 0.108269e+01_jprb &
27494  &, 0.108184e+01_jprb, 0.108054e+01_jprb, 0.107879e+01_jprb &
27495  &, 0.107659e+01_jprb, 0.107393e+01_jprb, 0.107082e+01_jprb, 0.106726e+01_jprb &
27496  &, 0.106325e+01_jprb, 0.105879e+01_jprb, 0.105389e+01_jprb &
27497  &, 0.104855e+01_jprb, 0.104277e+01_jprb, 0.103655e+01_jprb, 0.102992e+01_jprb &
27498  &, 0.102286e+01_jprb, 0.101539e+01_jprb, 0.100751e+01_jprb &
27499  &, 0.999220e+00_jprb, 0.990552e+00_jprb, 0.981490e+00_jprb, 0.972051e+00_jprb &
27500  &, 0.962261e+00_jprb, 0.952105e+00_jprb, 0.941607e+00_jprb &
27501  &, 0.930769e+00_jprb, 0.919611e+00_jprb, 0.908142e+00_jprb, 0.896389e+00_jprb &
27502  &, 0.884331e+00_jprb, 0.872012e+00_jprb, 0.859439e+00_jprb &
27503  &, 0.846610e+00_jprb, 0.833549e+00_jprb, 0.820284e+00_jprb, 0.806802e+00_jprb &
27504  &, 0.793146e+00_jprb, 0.779292e+00_jprb, 0.765330e+00_jprb &
27505  &, 0.751190e+00_jprb, 0.736922e+00_jprb, 0.722562e+00_jprb, 0.708084e+00_jprb &
27506  &, 0.693540e+00_jprb, 0.678919e+00_jprb, 0.664260e+00_jprb &
27507  &, 0.649550e+00_jprb, 0.634830e+00_jprb, 0.620083e+00_jprb, 0.605369e+00_jprb &
27508  &, 0.590654e+00_jprb, 0.575997e+00_jprb, 0.561381e+00_jprb &
27509  &, 0.546825e+00_jprb, 0.532350e+00_jprb, 0.517954e+00_jprb, 0.503657e+00_jprb &
27510  &, 0.489477e+00_jprb, 0.475432e+00_jprb, 0.461517e+00_jprb &
27511  &, 0.447748e+00_jprb, 0.434140e+00_jprb, 0.420685e+00_jprb, 0.407420e+00_jprb &
27512  &, 0.394334e+00_jprb, 0.381438e+00_jprb, 0.368744e+00_jprb &
27513  &, 0.356260e+00_jprb, 0.343998e+00_jprb, 0.331963e+00_jprb, 0.320136e+00_jprb &
27514  &, 0.308548e+00_jprb, 0.297207e+00_jprb, 0.286083e+00_jprb &
27515  &, 0.275242e+00_jprb, 0.264620e+00_jprb, 0.254250e+00_jprb, 0.244161e+00_jprb &
27516  &, 0.234320e+00_jprb, 0.224719e+00_jprb, 0.215354e+00_jprb &
27517  &, 0.206287e+00_jprb, 0.197475e+00_jprb, 0.188908e+00_jprb, 0.180612e+00_jprb &
27518  &, 0.172537e+00_jprb, 0.164744e+00_jprb, 0.157220e+00_jprb &
27519  &, 0.149909e+00_jprb, 0.142871e+00_jprb, 0.136049e+00_jprb, 0.129502e+00_jprb &
27520  &, 0.123169e+00_jprb, 0.117067e+00_jprb, 0.111216e+00_jprb &
27521  &, 0.105590e+00_jprb, 0.100161e+00_jprb, 0.949460e-01_jprb, 0.899603e-01_jprb &
27522  &, 0.851731e-01_jprb, 0.805992e-01_jprb, 0.762047e-01_jprb &
27523  &, 0.720025e-01_jprb, 0.680062e-01_jprb, 0.641781e-01_jprb, 0.605299e-01_jprb &
27524  &, 0.570734e-01_jprb, 0.537673e-01_jprb, 0.505670e-01_jprb &
27525  &, 0.475909e-01_jprb, 0.447397e-01_jprb, 0.420217e-01_jprb, 0.394452e-01_jprb &
27526  &, 0.370187e-01_jprb, 0.346918e-01_jprb, 0.325307e-01_jprb &
27527  &, 0.304229e-01_jprb, 0.284956e-01_jprb, 0.266332e-01_jprb, 0.249033e-01_jprb &
27528  &, 0.232487e-01_jprb, 0.216738e-01_jprb, 0.202490e-01_jprb/)
27529 xcw( 630, :) = (/ &
27530  & 0.103006e+01_jprb, 0.103660e+01_jprb, 0.104275e+01_jprb, 0.104849e+01_jprb &
27531  &, 0.105382e+01_jprb, 0.105874e+01_jprb, 0.106325e+01_jprb &
27532  &, 0.106733e+01_jprb, 0.107098e+01_jprb, 0.107421e+01_jprb, 0.107700e+01_jprb &
27533  &, 0.107936e+01_jprb, 0.108127e+01_jprb, 0.108275e+01_jprb &
27534  &, 0.108377e+01_jprb, 0.108435e+01_jprb, 0.108449e+01_jprb, 0.108417e+01_jprb &
27535  &, 0.108339e+01_jprb, 0.108216e+01_jprb, 0.108048e+01_jprb &
27536  &, 0.107834e+01_jprb, 0.107576e+01_jprb, 0.107271e+01_jprb, 0.106922e+01_jprb &
27537  &, 0.106528e+01_jprb, 0.106089e+01_jprb, 0.105605e+01_jprb &
27538  &, 0.105077e+01_jprb, 0.104505e+01_jprb, 0.103891e+01_jprb, 0.103233e+01_jprb &
27539  &, 0.102533e+01_jprb, 0.101792e+01_jprb, 0.101009e+01_jprb &
27540  &, 0.100187e+01_jprb, 0.993251e+00_jprb, 0.984238e+00_jprb, 0.974859e+00_jprb &
27541  &, 0.965108e+00_jprb, 0.955003e+00_jprb, 0.944556e+00_jprb &
27542  &, 0.933759e+00_jprb, 0.922653e+00_jprb, 0.911226e+00_jprb, 0.899501e+00_jprb &
27543  &, 0.887496e+00_jprb, 0.875204e+00_jprb, 0.862658e+00_jprb &
27544  &, 0.849868e+00_jprb, 0.836846e+00_jprb, 0.823592e+00_jprb, 0.810147e+00_jprb &
27545  &, 0.796513e+00_jprb, 0.782694e+00_jprb, 0.768722e+00_jprb &
27546  &, 0.754600e+00_jprb, 0.740363e+00_jprb, 0.726002e+00_jprb, 0.711536e+00_jprb &
27547  &, 0.696986e+00_jprb, 0.682373e+00_jprb, 0.667704e+00_jprb &
27548  &, 0.652998e+00_jprb, 0.638280e+00_jprb, 0.623533e+00_jprb, 0.608798e+00_jprb &
27549  &, 0.594098e+00_jprb, 0.579414e+00_jprb, 0.564767e+00_jprb &
27550  &, 0.550199e+00_jprb, 0.535709e+00_jprb, 0.521296e+00_jprb, 0.506978e+00_jprb &
27551  &, 0.492774e+00_jprb, 0.478703e+00_jprb, 0.464759e+00_jprb &
27552  &, 0.450958e+00_jprb, 0.437291e+00_jprb, 0.423822e+00_jprb, 0.410516e+00_jprb &
27553  &, 0.397385e+00_jprb, 0.384468e+00_jprb, 0.371722e+00_jprb &
27554  &, 0.359184e+00_jprb, 0.346892e+00_jprb, 0.334796e+00_jprb, 0.322933e+00_jprb &
27555  &, 0.311278e+00_jprb, 0.299895e+00_jprb, 0.288727e+00_jprb &
27556  &, 0.277807e+00_jprb, 0.267167e+00_jprb, 0.256743e+00_jprb, 0.246566e+00_jprb &
27557  &, 0.236664e+00_jprb, 0.227036e+00_jprb, 0.217640e+00_jprb &
27558  &, 0.208505e+00_jprb, 0.199622e+00_jprb, 0.191017e+00_jprb, 0.182644e+00_jprb &
27559  &, 0.174526e+00_jprb, 0.166688e+00_jprb, 0.159078e+00_jprb &
27560  &, 0.151716e+00_jprb, 0.144627e+00_jprb, 0.137750e+00_jprb, 0.131146e+00_jprb &
27561  &, 0.124753e+00_jprb, 0.118633e+00_jprb, 0.112718e+00_jprb &
27562  &, 0.107026e+00_jprb, 0.101528e+00_jprb, 0.962877e-01_jprb, 0.912755e-01_jprb &
27563  &, 0.864129e-01_jprb, 0.818093e-01_jprb, 0.773837e-01_jprb &
27564  &, 0.731492e-01_jprb, 0.690687e-01_jprb, 0.652048e-01_jprb, 0.615195e-01_jprb &
27565  &, 0.579717e-01_jprb, 0.546248e-01_jprb, 0.514368e-01_jprb &
27566  &, 0.484179e-01_jprb, 0.455225e-01_jprb, 0.427587e-01_jprb, 0.401350e-01_jprb &
27567  &, 0.376598e-01_jprb, 0.353417e-01_jprb, 0.331296e-01_jprb &
27568  &, 0.310299e-01_jprb, 0.290493e-01_jprb, 0.271320e-01_jprb, 0.254087e-01_jprb &
27569  &, 0.236968e-01_jprb, 0.221279e-01_jprb, 0.206433e-01_jprb/)
27570 
27571 IF (lhook) CALL dr_hook('SU_MCICA:PART90',1,zhook_handle)
27572 END SUBROUTINE part90
27573 
27574 #ifdef VPP5000
27575 !OCL SCALAR
27576 #endif
27577 !option! -Nv -NO
27578 #ifdef RS6K
27579 @process nooptimize
27580 #endif
27581 !pgi$r opt=0
27582 SUBROUTINE part91
27583 
27584 REAL(KIND=JPRB) :: ZHOOK_HANDLE
27585 IF (lhook) CALL dr_hook('SU_MCICA:PART91',0,zhook_handle)
27586 
27587 xcw( 631, :) = (/ &
27588  & 0.103033e+01_jprb, 0.103694e+01_jprb, 0.104316e+01_jprb, 0.104897e+01_jprb &
27589  &, 0.105437e+01_jprb, 0.105936e+01_jprb, 0.106394e+01_jprb &
27590  &, 0.106809e+01_jprb, 0.107182e+01_jprb, 0.107512e+01_jprb, 0.107798e+01_jprb &
27591  &, 0.108041e+01_jprb, 0.108240e+01_jprb, 0.108394e+01_jprb &
27592  &, 0.108504e+01_jprb, 0.108569e+01_jprb, 0.108589e+01_jprb, 0.108564e+01_jprb &
27593  &, 0.108494e+01_jprb, 0.108379e+01_jprb, 0.108217e+01_jprb &
27594  &, 0.108011e+01_jprb, 0.107759e+01_jprb, 0.107462e+01_jprb, 0.107119e+01_jprb &
27595  &, 0.106731e+01_jprb, 0.106299e+01_jprb, 0.105821e+01_jprb &
27596  &, 0.105300e+01_jprb, 0.104735e+01_jprb, 0.104127e+01_jprb, 0.103475e+01_jprb &
27597  &, 0.102781e+01_jprb, 0.102045e+01_jprb, 0.101269e+01_jprb &
27598  &, 0.100452e+01_jprb, 0.995950e+00_jprb, 0.987005e+00_jprb, 0.977676e+00_jprb &
27599  &, 0.967976e+00_jprb, 0.957912e+00_jprb, 0.947506e+00_jprb &
27600  &, 0.936772e+00_jprb, 0.925695e+00_jprb, 0.914320e+00_jprb, 0.902626e+00_jprb &
27601  &, 0.890661e+00_jprb, 0.878409e+00_jprb, 0.865891e+00_jprb &
27602  &, 0.853140e+00_jprb, 0.840144e+00_jprb, 0.826914e+00_jprb, 0.813492e+00_jprb &
27603  &, 0.799880e+00_jprb, 0.786082e+00_jprb, 0.772129e+00_jprb &
27604  &, 0.758024e+00_jprb, 0.743805e+00_jprb, 0.729442e+00_jprb, 0.715005e+00_jprb &
27605  &, 0.700466e+00_jprb, 0.685845e+00_jprb, 0.671183e+00_jprb &
27606  &, 0.656482e+00_jprb, 0.641748e+00_jprb, 0.627002e+00_jprb, 0.612266e+00_jprb &
27607  &, 0.597542e+00_jprb, 0.582851e+00_jprb, 0.568195e+00_jprb &
27608  &, 0.553615e+00_jprb, 0.539089e+00_jprb, 0.524659e+00_jprb, 0.510321e+00_jprb &
27609  &, 0.496095e+00_jprb, 0.481975e+00_jprb, 0.468002e+00_jprb &
27610  &, 0.454168e+00_jprb, 0.440491e+00_jprb, 0.426984e+00_jprb, 0.413637e+00_jprb &
27611  &, 0.400462e+00_jprb, 0.387497e+00_jprb, 0.374728e+00_jprb &
27612  &, 0.362136e+00_jprb, 0.349786e+00_jprb, 0.337658e+00_jprb, 0.325731e+00_jprb &
27613  &, 0.314037e+00_jprb, 0.302613e+00_jprb, 0.291402e+00_jprb &
27614  &, 0.280435e+00_jprb, 0.269713e+00_jprb, 0.259237e+00_jprb, 0.249036e+00_jprb &
27615  &, 0.239077e+00_jprb, 0.229352e+00_jprb, 0.219926e+00_jprb &
27616  &, 0.210723e+00_jprb, 0.201805e+00_jprb, 0.193126e+00_jprb, 0.184713e+00_jprb &
27617  &, 0.176553e+00_jprb, 0.168633e+00_jprb, 0.160975e+00_jprb &
27618  &, 0.153565e+00_jprb, 0.146423e+00_jprb, 0.139492e+00_jprb, 0.132832e+00_jprb &
27619  &, 0.126381e+00_jprb, 0.120199e+00_jprb, 0.114220e+00_jprb &
27620  &, 0.108462e+00_jprb, 0.102941e+00_jprb, 0.976294e-01_jprb, 0.925437e-01_jprb &
27621  &, 0.877003e-01_jprb, 0.830193e-01_jprb, 0.785136e-01_jprb &
27622  &, 0.742460e-01_jprb, 0.701311e-01_jprb, 0.662315e-01_jprb, 0.625090e-01_jprb &
27623  &, 0.589227e-01_jprb, 0.555360e-01_jprb, 0.523066e-01_jprb &
27624  &, 0.492449e-01_jprb, 0.463052e-01_jprb, 0.434958e-01_jprb, 0.408823e-01_jprb &
27625  &, 0.383592e-01_jprb, 0.359916e-01_jprb, 0.337285e-01_jprb &
27626  &, 0.316370e-01_jprb, 0.296030e-01_jprb, 0.276931e-01_jprb, 0.259142e-01_jprb &
27627  &, 0.242089e-01_jprb, 0.225819e-01_jprb, 0.211033e-01_jprb/)
27628 xcw( 632, :) = (/ &
27629  & 0.103060e+01_jprb, 0.103728e+01_jprb, 0.104357e+01_jprb, 0.104945e+01_jprb &
27630  &, 0.105492e+01_jprb, 0.105999e+01_jprb, 0.106463e+01_jprb &
27631  &, 0.106886e+01_jprb, 0.107266e+01_jprb, 0.107602e+01_jprb, 0.107896e+01_jprb &
27632  &, 0.108146e+01_jprb, 0.108352e+01_jprb, 0.108514e+01_jprb &
27633  &, 0.108631e+01_jprb, 0.108703e+01_jprb, 0.108731e+01_jprb, 0.108713e+01_jprb &
27634  &, 0.108650e+01_jprb, 0.108541e+01_jprb, 0.108387e+01_jprb &
27635  &, 0.108187e+01_jprb, 0.107942e+01_jprb, 0.107652e+01_jprb, 0.107316e+01_jprb &
27636  &, 0.106935e+01_jprb, 0.106509e+01_jprb, 0.106039e+01_jprb &
27637  &, 0.105524e+01_jprb, 0.104965e+01_jprb, 0.104363e+01_jprb, 0.103717e+01_jprb &
27638  &, 0.103030e+01_jprb, 0.102300e+01_jprb, 0.101529e+01_jprb &
27639  &, 0.100717e+01_jprb, 0.998668e+00_jprb, 0.989772e+00_jprb, 0.980493e+00_jprb &
27640  &, 0.970844e+00_jprb, 0.960831e+00_jprb, 0.950477e+00_jprb &
27641  &, 0.939784e+00_jprb, 0.928760e+00_jprb, 0.917415e+00_jprb, 0.905773e+00_jprb &
27642  &, 0.893838e+00_jprb, 0.881627e+00_jprb, 0.869149e+00_jprb &
27643  &, 0.856412e+00_jprb, 0.843441e+00_jprb, 0.830263e+00_jprb, 0.816865e+00_jprb &
27644  &, 0.803262e+00_jprb, 0.789499e+00_jprb, 0.775566e+00_jprb &
27645  &, 0.761480e+00_jprb, 0.747262e+00_jprb, 0.732914e+00_jprb, 0.718473e+00_jprb &
27646  &, 0.703946e+00_jprb, 0.689335e+00_jprb, 0.674679e+00_jprb &
27647  &, 0.659966e+00_jprb, 0.645235e+00_jprb, 0.630490e+00_jprb, 0.615733e+00_jprb &
27648  &, 0.601005e+00_jprb, 0.586288e+00_jprb, 0.571644e+00_jprb &
27649  &, 0.557031e+00_jprb, 0.542491e+00_jprb, 0.528044e+00_jprb, 0.513687e+00_jprb &
27650  &, 0.499415e+00_jprb, 0.485293e+00_jprb, 0.471292e+00_jprb &
27651  &, 0.457403e+00_jprb, 0.443691e+00_jprb, 0.430147e+00_jprb, 0.416759e+00_jprb &
27652  &, 0.403566e+00_jprb, 0.390554e+00_jprb, 0.377734e+00_jprb &
27653  &, 0.365116e+00_jprb, 0.352709e+00_jprb, 0.340520e+00_jprb, 0.328558e+00_jprb &
27654  &, 0.316827e+00_jprb, 0.305332e+00_jprb, 0.294077e+00_jprb &
27655  &, 0.283063e+00_jprb, 0.272292e+00_jprb, 0.261763e+00_jprb, 0.251507e+00_jprb &
27656  &, 0.241489e+00_jprb, 0.231737e+00_jprb, 0.222212e+00_jprb &
27657  &, 0.212977e+00_jprb, 0.203988e+00_jprb, 0.195235e+00_jprb, 0.186783e+00_jprb &
27658  &, 0.178543e+00_jprb, 0.170577e+00_jprb, 0.162873e+00_jprb &
27659  &, 0.155413e+00_jprb, 0.148220e+00_jprb, 0.141235e+00_jprb, 0.134518e+00_jprb &
27660  &, 0.128008e+00_jprb, 0.121765e+00_jprb, 0.115722e+00_jprb &
27661  &, 0.109942e+00_jprb, 0.104353e+00_jprb, 0.990174e-01_jprb, 0.939059e-01_jprb &
27662  &, 0.889401e-01_jprb, 0.842294e-01_jprb, 0.796926e-01_jprb &
27663  &, 0.753927e-01_jprb, 0.712441e-01_jprb, 0.672582e-01_jprb, 0.634986e-01_jprb &
27664  &, 0.598738e-01_jprb, 0.564471e-01_jprb, 0.531764e-01_jprb &
27665  &, 0.500719e-01_jprb, 0.470880e-01_jprb, 0.442895e-01_jprb, 0.415721e-01_jprb &
27666  &, 0.390585e-01_jprb, 0.366415e-01_jprb, 0.343873e-01_jprb &
27667  &, 0.321833e-01_jprb, 0.301567e-01_jprb, 0.282543e-01_jprb, 0.264196e-01_jprb &
27668  &, 0.246571e-01_jprb, 0.230359e-01_jprb, 0.214975e-01_jprb/)
27669 xcw( 633, :) = (/ &
27670  & 0.103087e+01_jprb, 0.103762e+01_jprb, 0.104398e+01_jprb, 0.104993e+01_jprb &
27671  &, 0.105548e+01_jprb, 0.106061e+01_jprb, 0.106533e+01_jprb &
27672  &, 0.106962e+01_jprb, 0.107349e+01_jprb, 0.107693e+01_jprb, 0.107994e+01_jprb &
27673  &, 0.108252e+01_jprb, 0.108465e+01_jprb, 0.108634e+01_jprb &
27674  &, 0.108754e+01_jprb, 0.108838e+01_jprb, 0.108872e+01_jprb, 0.108861e+01_jprb &
27675  &, 0.108805e+01_jprb, 0.108704e+01_jprb, 0.108557e+01_jprb &
27676  &, 0.108364e+01_jprb, 0.108126e+01_jprb, 0.107842e+01_jprb, 0.107513e+01_jprb &
27677  &, 0.107139e+01_jprb, 0.106720e+01_jprb, 0.106256e+01_jprb &
27678  &, 0.105748e+01_jprb, 0.105195e+01_jprb, 0.104599e+01_jprb, 0.103960e+01_jprb &
27679  &, 0.103279e+01_jprb, 0.102555e+01_jprb, 0.101790e+01_jprb &
27680  &, 0.100984e+01_jprb, 0.100139e+01_jprb, 0.992549e+00_jprb, 0.983320e+00_jprb &
27681  &, 0.973722e+00_jprb, 0.963761e+00_jprb, 0.953458e+00_jprb &
27682  &, 0.942807e+00_jprb, 0.931825e+00_jprb, 0.920522e+00_jprb, 0.908921e+00_jprb &
27683  &, 0.897027e+00_jprb, 0.884845e+00_jprb, 0.872407e+00_jprb &
27684  &, 0.859710e+00_jprb, 0.846765e+00_jprb, 0.833612e+00_jprb, 0.820238e+00_jprb &
27685  &, 0.806672e+00_jprb, 0.792917e+00_jprb, 0.779003e+00_jprb &
27686  &, 0.764936e+00_jprb, 0.750719e+00_jprb, 0.736402e+00_jprb, 0.721959e+00_jprb &
27687  &, 0.707443e+00_jprb, 0.692841e+00_jprb, 0.678176e+00_jprb &
27688  &, 0.663469e+00_jprb, 0.648741e+00_jprb, 0.633978e+00_jprb, 0.619220e+00_jprb &
27689  &, 0.604488e+00_jprb, 0.589766e+00_jprb, 0.575092e+00_jprb &
27690  &, 0.560469e+00_jprb, 0.545915e+00_jprb, 0.531429e+00_jprb, 0.517053e+00_jprb &
27691  &, 0.502782e+00_jprb, 0.488611e+00_jprb, 0.474582e+00_jprb &
27692  &, 0.460687e+00_jprb, 0.446941e+00_jprb, 0.433334e+00_jprb, 0.419932e+00_jprb &
27693  &, 0.406695e+00_jprb, 0.393637e+00_jprb, 0.380767e+00_jprb &
27694  &, 0.368123e+00_jprb, 0.355660e+00_jprb, 0.343440e+00_jprb, 0.331414e+00_jprb &
27695  &, 0.319646e+00_jprb, 0.308081e+00_jprb, 0.296782e+00_jprb &
27696  &, 0.285723e+00_jprb, 0.274903e+00_jprb, 0.264322e+00_jprb, 0.253978e+00_jprb &
27697  &, 0.243935e+00_jprb, 0.234088e+00_jprb, 0.224533e+00_jprb &
27698  &, 0.215231e+00_jprb, 0.206207e+00_jprb, 0.197419e+00_jprb, 0.188890e+00_jprb &
27699  &, 0.180608e+00_jprb, 0.172561e+00_jprb, 0.164810e+00_jprb &
27700  &, 0.157301e+00_jprb, 0.150016e+00_jprb, 0.142977e+00_jprb, 0.136204e+00_jprb &
27701  &, 0.129678e+00_jprb, 0.123374e+00_jprb, 0.117269e+00_jprb &
27702  &, 0.111423e+00_jprb, 0.105811e+00_jprb, 0.100405e+00_jprb, 0.952211e-01_jprb &
27703  &, 0.902276e-01_jprb, 0.854878e-01_jprb, 0.808716e-01_jprb &
27704  &, 0.765394e-01_jprb, 0.723066e-01_jprb, 0.683362e-01_jprb, 0.644882e-01_jprb &
27705  &, 0.608777e-01_jprb, 0.573582e-01_jprb, 0.540462e-01_jprb &
27706  &, 0.508989e-01_jprb, 0.479267e-01_jprb, 0.450266e-01_jprb, 0.423195e-01_jprb &
27707  &, 0.397579e-01_jprb, 0.372914e-01_jprb, 0.349862e-01_jprb &
27708  &, 0.327903e-01_jprb, 0.307104e-01_jprb, 0.287531e-01_jprb, 0.269251e-01_jprb &
27709  &, 0.251692e-01_jprb, 0.234900e-01_jprb, 0.219575e-01_jprb/)
27710 xcw( 634, :) = (/ &
27711  & 0.103114e+01_jprb, 0.103796e+01_jprb, 0.104439e+01_jprb, 0.105041e+01_jprb &
27712  &, 0.105603e+01_jprb, 0.106123e+01_jprb, 0.106602e+01_jprb &
27713  &, 0.107039e+01_jprb, 0.107433e+01_jprb, 0.107785e+01_jprb, 0.108093e+01_jprb &
27714  &, 0.108357e+01_jprb, 0.108578e+01_jprb, 0.108754e+01_jprb &
27715  &, 0.108885e+01_jprb, 0.108972e+01_jprb, 0.109014e+01_jprb, 0.109010e+01_jprb &
27716  &, 0.108961e+01_jprb, 0.108867e+01_jprb, 0.108727e+01_jprb &
27717  &, 0.108541e+01_jprb, 0.108310e+01_jprb, 0.108033e+01_jprb, 0.107711e+01_jprb &
27718  &, 0.107344e+01_jprb, 0.106931e+01_jprb, 0.106474e+01_jprb &
27719  &, 0.105972e+01_jprb, 0.105426e+01_jprb, 0.104837e+01_jprb, 0.104204e+01_jprb &
27720  &, 0.103528e+01_jprb, 0.102811e+01_jprb, 0.102052e+01_jprb &
27721  &, 0.101251e+01_jprb, 0.100411e+01_jprb, 0.995326e+00_jprb, 0.986157e+00_jprb &
27722  &, 0.976610e+00_jprb, 0.966701e+00_jprb, 0.956440e+00_jprb &
27723  &, 0.945831e+00_jprb, 0.934902e+00_jprb, 0.923640e+00_jprb, 0.912081e+00_jprb &
27724  &, 0.900216e+00_jprb, 0.888087e+00_jprb, 0.875678e+00_jprb &
27725  &, 0.863008e+00_jprb, 0.850103e+00_jprb, 0.836962e+00_jprb, 0.823626e+00_jprb &
27726  &, 0.810083e+00_jprb, 0.796349e+00_jprb, 0.782456e+00_jprb &
27727  &, 0.768392e+00_jprb, 0.754207e+00_jprb, 0.739890e+00_jprb, 0.725477e+00_jprb &
27728  &, 0.710957e+00_jprb, 0.696365e+00_jprb, 0.681709e+00_jprb &
27729  &, 0.666935e+00_jprb, 0.652266e+00_jprb, 0.637504e+00_jprb, 0.622746e+00_jprb &
27730  &, 0.607992e+00_jprb, 0.593263e+00_jprb, 0.578562e+00_jprb &
27731  &, 0.563927e+00_jprb, 0.549360e+00_jprb, 0.534859e+00_jprb, 0.520441e+00_jprb &
27732  &, 0.506148e+00_jprb, 0.491953e+00_jprb, 0.477896e+00_jprb &
27733  &, 0.463970e+00_jprb, 0.450191e+00_jprb, 0.436547e+00_jprb, 0.423105e+00_jprb &
27734  &, 0.409825e+00_jprb, 0.396720e+00_jprb, 0.383827e+00_jprb &
27735  &, 0.371131e+00_jprb, 0.358639e+00_jprb, 0.346360e+00_jprb, 0.334300e+00_jprb &
27736  &, 0.322465e+00_jprb, 0.310860e+00_jprb, 0.299519e+00_jprb &
27737  &, 0.288383e+00_jprb, 0.277514e+00_jprb, 0.266881e+00_jprb, 0.256516e+00_jprb &
27738  &, 0.246382e+00_jprb, 0.236508e+00_jprb, 0.226890e+00_jprb &
27739  &, 0.217520e+00_jprb, 0.208427e+00_jprb, 0.199602e+00_jprb, 0.190997e+00_jprb &
27740  &, 0.182674e+00_jprb, 0.174583e+00_jprb, 0.166747e+00_jprb &
27741  &, 0.159189e+00_jprb, 0.151854e+00_jprb, 0.144761e+00_jprb, 0.137933e+00_jprb &
27742  &, 0.131348e+00_jprb, 0.124984e+00_jprb, 0.118859e+00_jprb &
27743  &, 0.112949e+00_jprb, 0.107269e+00_jprb, 0.101840e+00_jprb, 0.965833e-01_jprb &
27744  &, 0.915627e-01_jprb, 0.867463e-01_jprb, 0.820998e-01_jprb &
27745  &, 0.776861e-01_jprb, 0.734702e-01_jprb, 0.694142e-01_jprb, 0.655298e-01_jprb &
27746  &, 0.618287e-01_jprb, 0.583230e-01_jprb, 0.549704e-01_jprb &
27747  &, 0.517811e-01_jprb, 0.487095e-01_jprb, 0.458203e-01_jprb, 0.430668e-01_jprb &
27748  &, 0.404573e-01_jprb, 0.380004e-01_jprb, 0.356450e-01_jprb &
27749  &, 0.333974e-01_jprb, 0.313257e-01_jprb, 0.293142e-01_jprb, 0.274305e-01_jprb &
27750  &, 0.256814e-01_jprb, 0.240089e-01_jprb, 0.224175e-01_jprb/)
27751 xcw( 635, :) = (/ &
27752  & 0.103141e+01_jprb, 0.103830e+01_jprb, 0.104480e+01_jprb, 0.105089e+01_jprb &
27753  &, 0.105658e+01_jprb, 0.106186e+01_jprb, 0.106672e+01_jprb &
27754  &, 0.107116e+01_jprb, 0.107517e+01_jprb, 0.107876e+01_jprb, 0.108191e+01_jprb &
27755  &, 0.108463e+01_jprb, 0.108690e+01_jprb, 0.108874e+01_jprb &
27756  &, 0.109013e+01_jprb, 0.109107e+01_jprb, 0.109156e+01_jprb, 0.109159e+01_jprb &
27757  &, 0.109118e+01_jprb, 0.109030e+01_jprb, 0.108897e+01_jprb &
27758  &, 0.108719e+01_jprb, 0.108495e+01_jprb, 0.108225e+01_jprb, 0.107910e+01_jprb &
27759  &, 0.107549e+01_jprb, 0.107143e+01_jprb, 0.106693e+01_jprb &
27760  &, 0.106197e+01_jprb, 0.105658e+01_jprb, 0.105074e+01_jprb, 0.104448e+01_jprb &
27761  &, 0.103778e+01_jprb, 0.103067e+01_jprb, 0.102314e+01_jprb &
27762  &, 0.101519e+01_jprb, 0.100685e+01_jprb, 0.998123e+00_jprb, 0.988924e+00_jprb &
27763  &, 0.979509e+00_jprb, 0.969651e+00_jprb, 0.959432e+00_jprb &
27764  &, 0.948876e+00_jprb, 0.937989e+00_jprb, 0.926770e+00_jprb, 0.915253e+00_jprb &
27765  &, 0.903430e+00_jprb, 0.891330e+00_jprb, 0.878948e+00_jprb &
27766  &, 0.866319e+00_jprb, 0.853441e+00_jprb, 0.840339e+00_jprb, 0.827027e+00_jprb &
27767  &, 0.813508e+00_jprb, 0.799796e+00_jprb, 0.785923e+00_jprb &
27768  &, 0.771879e+00_jprb, 0.757712e+00_jprb, 0.743411e+00_jprb, 0.728996e+00_jprb &
27769  &, 0.714487e+00_jprb, 0.699889e+00_jprb, 0.685241e+00_jprb &
27770  &, 0.670546e+00_jprb, 0.655790e+00_jprb, 0.641030e+00_jprb, 0.626271e+00_jprb &
27771  &, 0.611495e+00_jprb, 0.596761e+00_jprb, 0.582052e+00_jprb &
27772  &, 0.567407e+00_jprb, 0.552805e+00_jprb, 0.538288e+00_jprb, 0.523874e+00_jprb &
27773  &, 0.509537e+00_jprb, 0.495318e+00_jprb, 0.481234e+00_jprb &
27774  &, 0.467254e+00_jprb, 0.453440e+00_jprb, 0.439786e+00_jprb, 0.426303e+00_jprb &
27775  &, 0.412981e+00_jprb, 0.399857e+00_jprb, 0.386915e+00_jprb &
27776  &, 0.374166e+00_jprb, 0.361618e+00_jprb, 0.349308e+00_jprb, 0.337186e+00_jprb &
27777  &, 0.325315e+00_jprb, 0.313670e+00_jprb, 0.302256e+00_jprb &
27778  &, 0.291074e+00_jprb, 0.280157e+00_jprb, 0.269473e+00_jprb, 0.258987e+00_jprb &
27779  &, 0.248862e+00_jprb, 0.238928e+00_jprb, 0.229246e+00_jprb &
27780  &, 0.219846e+00_jprb, 0.210683e+00_jprb, 0.201785e+00_jprb, 0.193141e+00_jprb &
27781  &, 0.184740e+00_jprb, 0.176605e+00_jprb, 0.168723e+00_jprb &
27782  &, 0.161078e+00_jprb, 0.153732e+00_jprb, 0.146586e+00_jprb, 0.139703e+00_jprb &
27783  &, 0.133018e+00_jprb, 0.126593e+00_jprb, 0.120450e+00_jprb &
27784  &, 0.114474e+00_jprb, 0.108728e+00_jprb, 0.103227e+00_jprb, 0.979454e-01_jprb &
27785  &, 0.928502e-01_jprb, 0.880047e-01_jprb, 0.833279e-01_jprb &
27786  &, 0.788328e-01_jprb, 0.745832e-01_jprb, 0.704923e-01_jprb, 0.665715e-01_jprb &
27787  &, 0.628326e-01_jprb, 0.592877e-01_jprb, 0.558946e-01_jprb &
27788  &, 0.526632e-01_jprb, 0.495481e-01_jprb, 0.466141e-01_jprb, 0.438716e-01_jprb &
27789  &, 0.412150e-01_jprb, 0.387094e-01_jprb, 0.363038e-01_jprb &
27790  &, 0.340651e-01_jprb, 0.319409e-01_jprb, 0.298754e-01_jprb, 0.279991e-01_jprb &
27791  &, 0.261935e-01_jprb, 0.244629e-01_jprb, 0.228775e-01_jprb/)
27792 xcw( 636, :) = (/ &
27793  & 0.103168e+01_jprb, 0.103864e+01_jprb, 0.104521e+01_jprb, 0.105137e+01_jprb &
27794  &, 0.105713e+01_jprb, 0.106248e+01_jprb, 0.106741e+01_jprb &
27795  &, 0.107192e+01_jprb, 0.107601e+01_jprb, 0.107967e+01_jprb, 0.108290e+01_jprb &
27796  &, 0.108569e+01_jprb, 0.108803e+01_jprb, 0.108994e+01_jprb &
27797  &, 0.109140e+01_jprb, 0.109242e+01_jprb, 0.109298e+01_jprb, 0.109309e+01_jprb &
27798  &, 0.109274e+01_jprb, 0.109194e+01_jprb, 0.109068e+01_jprb &
27799  &, 0.108897e+01_jprb, 0.108680e+01_jprb, 0.108417e+01_jprb, 0.108109e+01_jprb &
27800  &, 0.107755e+01_jprb, 0.107356e+01_jprb, 0.106912e+01_jprb &
27801  &, 0.106423e+01_jprb, 0.105890e+01_jprb, 0.105313e+01_jprb, 0.104693e+01_jprb &
27802  &, 0.104030e+01_jprb, 0.103324e+01_jprb, 0.102576e+01_jprb &
27803  &, 0.101788e+01_jprb, 0.100960e+01_jprb, 0.100092e+01_jprb, 0.991852e+00_jprb &
27804  &, 0.982407e+00_jprb, 0.972602e+00_jprb, 0.962436e+00_jprb &
27805  &, 0.951922e+00_jprb, 0.941077e+00_jprb, 0.929911e+00_jprb, 0.918425e+00_jprb &
27806  &, 0.906655e+00_jprb, 0.894585e+00_jprb, 0.882245e+00_jprb &
27807  &, 0.869644e+00_jprb, 0.856805e+00_jprb, 0.843730e+00_jprb, 0.830443e+00_jprb &
27808  &, 0.816947e+00_jprb, 0.803258e+00_jprb, 0.789391e+00_jprb &
27809  &, 0.775381e+00_jprb, 0.761216e+00_jprb, 0.746932e+00_jprb, 0.732531e+00_jprb &
27810  &, 0.718035e+00_jprb, 0.703448e+00_jprb, 0.688791e+00_jprb &
27811  &, 0.674085e+00_jprb, 0.659351e+00_jprb, 0.644575e+00_jprb, 0.629816e+00_jprb &
27812  &, 0.615037e+00_jprb, 0.600279e+00_jprb, 0.585562e+00_jprb &
27813  &, 0.570907e+00_jprb, 0.556294e+00_jprb, 0.541761e+00_jprb, 0.527307e+00_jprb &
27814  &, 0.512949e+00_jprb, 0.498706e+00_jprb, 0.484572e+00_jprb &
27815  &, 0.470586e+00_jprb, 0.456740e+00_jprb, 0.443049e+00_jprb, 0.429528e+00_jprb &
27816  &, 0.416163e+00_jprb, 0.402994e+00_jprb, 0.390003e+00_jprb &
27817  &, 0.377229e+00_jprb, 0.364626e+00_jprb, 0.352257e+00_jprb, 0.340101e+00_jprb &
27818  &, 0.328194e+00_jprb, 0.316480e+00_jprb, 0.305024e+00_jprb &
27819  &, 0.293797e+00_jprb, 0.282800e+00_jprb, 0.272065e+00_jprb, 0.261591e+00_jprb &
27820  &, 0.251342e+00_jprb, 0.241383e+00_jprb, 0.231638e+00_jprb &
27821  &, 0.222171e+00_jprb, 0.212975e+00_jprb, 0.204005e+00_jprb, 0.195286e+00_jprb &
27822  &, 0.186844e+00_jprb, 0.178666e+00_jprb, 0.170700e+00_jprb &
27823  &, 0.163046e+00_jprb, 0.155610e+00_jprb, 0.148412e+00_jprb, 0.141431e+00_jprb &
27824  &, 0.134731e+00_jprb, 0.128246e+00_jprb, 0.122040e+00_jprb &
27825  &, 0.116045e+00_jprb, 0.110231e+00_jprb, 0.104662e+00_jprb, 0.993546e-01_jprb &
27826  &, 0.942330e-01_jprb, 0.893116e-01_jprb, 0.845561e-01_jprb &
27827  &, 0.800293e-01_jprb, 0.757468e-01_jprb, 0.715703e-01_jprb, 0.676131e-01_jprb &
27828  &, 0.638365e-01_jprb, 0.602525e-01_jprb, 0.568187e-01_jprb &
27829  &, 0.535454e-01_jprb, 0.503868e-01_jprb, 0.474645e-01_jprb, 0.446189e-01_jprb &
27830  &, 0.419143e-01_jprb, 0.394184e-01_jprb, 0.369626e-01_jprb &
27831  &, 0.346722e-01_jprb, 0.324946e-01_jprb, 0.304989e-01_jprb, 0.285046e-01_jprb &
27832  &, 0.267057e-01_jprb, 0.249818e-01_jprb, 0.233375e-01_jprb/)
27833 xcw( 637, :) = (/ &
27834  & 0.103195e+01_jprb, 0.103899e+01_jprb, 0.104562e+01_jprb, 0.105186e+01_jprb &
27835  &, 0.105769e+01_jprb, 0.106311e+01_jprb, 0.106811e+01_jprb &
27836  &, 0.107269e+01_jprb, 0.107685e+01_jprb, 0.108058e+01_jprb, 0.108388e+01_jprb &
27837  &, 0.108675e+01_jprb, 0.108917e+01_jprb, 0.109115e+01_jprb &
27838  &, 0.109268e+01_jprb, 0.109377e+01_jprb, 0.109440e+01_jprb, 0.109458e+01_jprb &
27839  &, 0.109431e+01_jprb, 0.109358e+01_jprb, 0.109239e+01_jprb &
27840  &, 0.109075e+01_jprb, 0.108865e+01_jprb, 0.108609e+01_jprb, 0.108308e+01_jprb &
27841  &, 0.107961e+01_jprb, 0.107569e+01_jprb, 0.107131e+01_jprb &
27842  &, 0.106649e+01_jprb, 0.106123e+01_jprb, 0.105552e+01_jprb, 0.104938e+01_jprb &
27843  &, 0.104281e+01_jprb, 0.103581e+01_jprb, 0.102840e+01_jprb &
27844  &, 0.102058e+01_jprb, 0.101234e+01_jprb, 0.100373e+01_jprb, 0.994709e+00_jprb &
27845  &, 0.985327e+00_jprb, 0.975563e+00_jprb, 0.965450e+00_jprb &
27846  &, 0.954989e+00_jprb, 0.944187e+00_jprb, 0.933064e+00_jprb, 0.921620e+00_jprb &
27847  &, 0.909881e+00_jprb, 0.897853e+00_jprb, 0.885554e+00_jprb &
27848  &, 0.872981e+00_jprb, 0.860170e+00_jprb, 0.847134e+00_jprb, 0.833859e+00_jprb &
27849  &, 0.820387e+00_jprb, 0.806734e+00_jprb, 0.792889e+00_jprb &
27850  &, 0.778899e+00_jprb, 0.764753e+00_jprb, 0.750468e+00_jprb, 0.736083e+00_jprb &
27851  &, 0.721600e+00_jprb, 0.707007e+00_jprb, 0.692376e+00_jprb &
27852  &, 0.677659e+00_jprb, 0.662913e+00_jprb, 0.648158e+00_jprb, 0.633361e+00_jprb &
27853  &, 0.618600e+00_jprb, 0.603837e+00_jprb, 0.589093e+00_jprb &
27854  &, 0.574408e+00_jprb, 0.559782e+00_jprb, 0.545234e+00_jprb, 0.530762e+00_jprb &
27855  &, 0.516384e+00_jprb, 0.502095e+00_jprb, 0.487957e+00_jprb &
27856  &, 0.473942e+00_jprb, 0.460064e+00_jprb, 0.446338e+00_jprb, 0.432753e+00_jprb &
27857  &, 0.419372e+00_jprb, 0.406157e+00_jprb, 0.393118e+00_jprb &
27858  &, 0.380293e+00_jprb, 0.367662e+00_jprb, 0.355263e+00_jprb, 0.343046e+00_jprb &
27859  &, 0.331073e+00_jprb, 0.319321e+00_jprb, 0.307823e+00_jprb &
27860  &, 0.296521e+00_jprb, 0.285508e+00_jprb, 0.274723e+00_jprb, 0.264162e+00_jprb &
27861  &, 0.253891e+00_jprb, 0.243837e+00_jprb, 0.234064e+00_jprb &
27862  &, 0.224532e+00_jprb, 0.215267e+00_jprb, 0.206225e+00_jprb, 0.197468e+00_jprb &
27863  &, 0.188986e+00_jprb, 0.180727e+00_jprb, 0.172716e+00_jprb &
27864  &, 0.164975e+00_jprb, 0.157488e+00_jprb, 0.150237e+00_jprb, 0.143244e+00_jprb &
27865  &, 0.136487e+00_jprb, 0.129943e+00_jprb, 0.123631e+00_jprb &
27866  &, 0.117570e+00_jprb, 0.111735e+00_jprb, 0.106142e+00_jprb, 0.100764e+00_jprb &
27867  &, 0.955682e-01_jprb, 0.906184e-01_jprb, 0.858334e-01_jprb &
27868  &, 0.812758e-01_jprb, 0.769105e-01_jprb, 0.726996e-01_jprb, 0.687069e-01_jprb &
27869  &, 0.648933e-01_jprb, 0.612172e-01_jprb, 0.577429e-01_jprb &
27870  &, 0.544275e-01_jprb, 0.512814e-01_jprb, 0.482582e-01_jprb, 0.454237e-01_jprb &
27871  &, 0.426720e-01_jprb, 0.401274e-01_jprb, 0.376813e-01_jprb &
27872  &, 0.353399e-01_jprb, 0.331099e-01_jprb, 0.310600e-01_jprb, 0.290732e-01_jprb &
27873  &, 0.272178e-01_jprb, 0.254358e-01_jprb, 0.237974e-01_jprb/)
27874 
27875 IF (lhook) CALL dr_hook('SU_MCICA:PART91',1,zhook_handle)
27876 END SUBROUTINE part91
27877 
27878 #ifdef VPP5000
27879 !OCL SCALAR
27880 #endif
27881 !option! -Nv -NO
27882 #ifdef RS6K
27883 @process nooptimize
27884 #endif
27885 !pgi$r opt=0
27886 SUBROUTINE part92
27887 
27888 REAL(KIND=JPRB) :: ZHOOK_HANDLE
27889 IF (lhook) CALL dr_hook('SU_MCICA:PART92',0,zhook_handle)
27890 
27891 xcw( 638, :) = (/ &
27892  & 0.103223e+01_jprb, 0.103933e+01_jprb, 0.104604e+01_jprb, 0.105234e+01_jprb &
27893  &, 0.105824e+01_jprb, 0.106373e+01_jprb, 0.106881e+01_jprb &
27894  &, 0.107346e+01_jprb, 0.107770e+01_jprb, 0.108150e+01_jprb, 0.108487e+01_jprb &
27895  &, 0.108781e+01_jprb, 0.109030e+01_jprb, 0.109236e+01_jprb &
27896  &, 0.109396e+01_jprb, 0.109512e+01_jprb, 0.109583e+01_jprb, 0.109608e+01_jprb &
27897  &, 0.109588e+01_jprb, 0.109522e+01_jprb, 0.109411e+01_jprb &
27898  &, 0.109254e+01_jprb, 0.109051e+01_jprb, 0.108802e+01_jprb, 0.108507e+01_jprb &
27899  &, 0.108167e+01_jprb, 0.107782e+01_jprb, 0.107351e+01_jprb &
27900  &, 0.106876e+01_jprb, 0.106356e+01_jprb, 0.105792e+01_jprb, 0.105184e+01_jprb &
27901  &, 0.104533e+01_jprb, 0.103840e+01_jprb, 0.103104e+01_jprb &
27902  &, 0.102327e+01_jprb, 0.101511e+01_jprb, 0.100654e+01_jprb, 0.997576e+00_jprb &
27903  &, 0.988246e+00_jprb, 0.978535e+00_jprb, 0.968475e+00_jprb &
27904  &, 0.958057e+00_jprb, 0.947298e+00_jprb, 0.936217e+00_jprb, 0.924828e+00_jprb &
27905  &, 0.913119e+00_jprb, 0.901133e+00_jprb, 0.888864e+00_jprb &
27906  &, 0.876332e+00_jprb, 0.863562e+00_jprb, 0.850539e+00_jprb, 0.837303e+00_jprb &
27907  &, 0.823855e+00_jprb, 0.810211e+00_jprb, 0.796402e+00_jprb &
27908  &, 0.782417e+00_jprb, 0.768289e+00_jprb, 0.754038e+00_jprb, 0.739651e+00_jprb &
27909  &, 0.725165e+00_jprb, 0.710600e+00_jprb, 0.695962e+00_jprb &
27910  &, 0.681252e+00_jprb, 0.666511e+00_jprb, 0.651741e+00_jprb, 0.636945e+00_jprb &
27911  &, 0.622163e+00_jprb, 0.607396e+00_jprb, 0.592645e+00_jprb &
27912  &, 0.577951e+00_jprb, 0.563292e+00_jprb, 0.548729e+00_jprb, 0.534218e+00_jprb &
27913  &, 0.519819e+00_jprb, 0.505530e+00_jprb, 0.491343e+00_jprb &
27914  &, 0.477298e+00_jprb, 0.463388e+00_jprb, 0.449627e+00_jprb, 0.436029e+00_jprb &
27915  &, 0.422581e+00_jprb, 0.409348e+00_jprb, 0.396261e+00_jprb &
27916  &, 0.383384e+00_jprb, 0.370727e+00_jprb, 0.358270e+00_jprb, 0.346020e+00_jprb &
27917  &, 0.333983e+00_jprb, 0.322192e+00_jprb, 0.310623e+00_jprb &
27918  &, 0.299307e+00_jprb, 0.288216e+00_jprb, 0.277380e+00_jprb, 0.266767e+00_jprb &
27919  &, 0.256439e+00_jprb, 0.246326e+00_jprb, 0.236491e+00_jprb &
27920  &, 0.226893e+00_jprb, 0.217596e+00_jprb, 0.208519e+00_jprb, 0.199688e+00_jprb &
27921  &, 0.191128e+00_jprb, 0.182827e+00_jprb, 0.174771e+00_jprb &
27922  &, 0.166943e+00_jprb, 0.159407e+00_jprb, 0.152104e+00_jprb, 0.145056e+00_jprb &
27923  &, 0.138200e+00_jprb, 0.131639e+00_jprb, 0.125310e+00_jprb &
27924  &, 0.119186e+00_jprb, 0.113284e+00_jprb, 0.107623e+00_jprb, 0.102173e+00_jprb &
27925  &, 0.969510e-01_jprb, 0.919253e-01_jprb, 0.871107e-01_jprb &
27926  &, 0.824723e-01_jprb, 0.780741e-01_jprb, 0.738290e-01_jprb, 0.698006e-01_jprb &
27927  &, 0.658971e-01_jprb, 0.622355e-01_jprb, 0.587214e-01_jprb &
27928  &, 0.553648e-01_jprb, 0.521760e-01_jprb, 0.491087e-01_jprb, 0.462285e-01_jprb &
27929  &, 0.434297e-01_jprb, 0.408364e-01_jprb, 0.383401e-01_jprb &
27930  &, 0.360077e-01_jprb, 0.337866e-01_jprb, 0.316835e-01_jprb, 0.296418e-01_jprb &
27931  &, 0.277299e-01_jprb, 0.259547e-01_jprb, 0.242574e-01_jprb/)
27932 xcw( 639, :) = (/ &
27933  & 0.103250e+01_jprb, 0.103967e+01_jprb, 0.104645e+01_jprb, 0.105282e+01_jprb &
27934  &, 0.105880e+01_jprb, 0.106436e+01_jprb, 0.106951e+01_jprb &
27935  &, 0.107424e+01_jprb, 0.107854e+01_jprb, 0.108242e+01_jprb, 0.108586e+01_jprb &
27936  &, 0.108887e+01_jprb, 0.109144e+01_jprb, 0.109357e+01_jprb &
27937  &, 0.109525e+01_jprb, 0.109648e+01_jprb, 0.109726e+01_jprb, 0.109759e+01_jprb &
27938  &, 0.109746e+01_jprb, 0.109687e+01_jprb, 0.109583e+01_jprb &
27939  &, 0.109433e+01_jprb, 0.109237e+01_jprb, 0.108995e+01_jprb, 0.108707e+01_jprb &
27940  &, 0.108374e+01_jprb, 0.107996e+01_jprb, 0.107572e+01_jprb &
27941  &, 0.107103e+01_jprb, 0.106589e+01_jprb, 0.106032e+01_jprb, 0.105431e+01_jprb &
27942  &, 0.104786e+01_jprb, 0.104099e+01_jprb, 0.103369e+01_jprb &
27943  &, 0.102599e+01_jprb, 0.101788e+01_jprb, 0.100936e+01_jprb, 0.100045e+01_jprb &
27944  &, 0.991175e+00_jprb, 0.981517e+00_jprb, 0.971500e+00_jprb &
27945  &, 0.961136e+00_jprb, 0.950419e+00_jprb, 0.939394e+00_jprb, 0.928035e+00_jprb &
27946  &, 0.916369e+00_jprb, 0.904426e+00_jprb, 0.892199e+00_jprb &
27947  &, 0.879696e+00_jprb, 0.866953e+00_jprb, 0.853971e+00_jprb, 0.840761e+00_jprb &
27948  &, 0.827338e+00_jprb, 0.813717e+00_jprb, 0.799930e+00_jprb &
27949  &, 0.785966e+00_jprb, 0.771857e+00_jprb, 0.757607e+00_jprb, 0.743236e+00_jprb &
27950  &, 0.728764e+00_jprb, 0.714194e+00_jprb, 0.699565e+00_jprb &
27951  &, 0.684864e+00_jprb, 0.670110e+00_jprb, 0.655343e+00_jprb, 0.640548e+00_jprb &
27952  &, 0.625745e+00_jprb, 0.610974e+00_jprb, 0.596217e+00_jprb &
27953  &, 0.581494e+00_jprb, 0.566844e+00_jprb, 0.552246e+00_jprb, 0.537718e+00_jprb &
27954  &, 0.523300e+00_jprb, 0.508965e+00_jprb, 0.494776e+00_jprb &
27955  &, 0.480679e+00_jprb, 0.466737e+00_jprb, 0.452941e+00_jprb, 0.439305e+00_jprb &
27956  &, 0.425842e+00_jprb, 0.412538e+00_jprb, 0.399430e+00_jprb &
27957  &, 0.386530e+00_jprb, 0.373791e+00_jprb, 0.361305e+00_jprb, 0.348994e+00_jprb &
27958  &, 0.336922e+00_jprb, 0.325063e+00_jprb, 0.313453e+00_jprb &
27959  &, 0.302094e+00_jprb, 0.290956e+00_jprb, 0.280038e+00_jprb, 0.269405e+00_jprb &
27960  &, 0.258987e+00_jprb, 0.248850e+00_jprb, 0.238953e+00_jprb &
27961  &, 0.229290e+00_jprb, 0.219925e+00_jprb, 0.210777e+00_jprb, 0.201908e+00_jprb &
27962  &, 0.193309e+00_jprb, 0.184927e+00_jprb, 0.176827e+00_jprb &
27963  &, 0.168952e+00_jprb, 0.161326e+00_jprb, 0.153971e+00_jprb, 0.146869e+00_jprb &
27964  &, 0.139998e+00_jprb, 0.133336e+00_jprb, 0.126945e+00_jprb &
27965  &, 0.120756e+00_jprb, 0.114833e+00_jprb, 0.109103e+00_jprb, 0.103629e+00_jprb &
27966  &, 0.983338e-01_jprb, 0.932806e-01_jprb, 0.883879e-01_jprb &
27967  &, 0.837187e-01_jprb, 0.792377e-01_jprb, 0.749584e-01_jprb, 0.708943e-01_jprb &
27968  &, 0.669539e-01_jprb, 0.632539e-01_jprb, 0.596999e-01_jprb &
27969  &, 0.563021e-01_jprb, 0.530147e-01_jprb, 0.499591e-01_jprb, 0.470333e-01_jprb &
27970  &, 0.442456e-01_jprb, 0.416045e-01_jprb, 0.390588e-01_jprb &
27971  &, 0.366754e-01_jprb, 0.344019e-01_jprb, 0.322447e-01_jprb, 0.302105e-01_jprb &
27972  &, 0.283061e-01_jprb, 0.264736e-01_jprb, 0.247831e-01_jprb/)
27973 xcw( 640, :) = (/ &
27974  & 0.103278e+01_jprb, 0.104002e+01_jprb, 0.104686e+01_jprb, 0.105331e+01_jprb &
27975  &, 0.105935e+01_jprb, 0.106499e+01_jprb, 0.107021e+01_jprb &
27976  &, 0.107501e+01_jprb, 0.107939e+01_jprb, 0.108334e+01_jprb, 0.108685e+01_jprb &
27977  &, 0.108994e+01_jprb, 0.109258e+01_jprb, 0.109478e+01_jprb &
27978  &, 0.109653e+01_jprb, 0.109784e+01_jprb, 0.109869e+01_jprb, 0.109909e+01_jprb &
27979  &, 0.109903e+01_jprb, 0.109852e+01_jprb, 0.109755e+01_jprb &
27980  &, 0.109612e+01_jprb, 0.109423e+01_jprb, 0.109188e+01_jprb, 0.108908e+01_jprb &
27981  &, 0.108582e+01_jprb, 0.108210e+01_jprb, 0.107793e+01_jprb &
27982  &, 0.107331e+01_jprb, 0.106824e+01_jprb, 0.106273e+01_jprb, 0.105678e+01_jprb &
27983  &, 0.105040e+01_jprb, 0.104358e+01_jprb, 0.103635e+01_jprb &
27984  &, 0.102871e+01_jprb, 0.102065e+01_jprb, 0.101219e+01_jprb, 0.100334e+01_jprb &
27985  &, 0.994115e+00_jprb, 0.984510e+00_jprb, 0.974546e+00_jprb &
27986  &, 0.964225e+00_jprb, 0.953564e+00_jprb, 0.942570e+00_jprb, 0.931255e+00_jprb &
27987  &, 0.919644e+00_jprb, 0.907731e+00_jprb, 0.895534e+00_jprb &
27988  &, 0.883073e+00_jprb, 0.870358e+00_jprb, 0.857403e+00_jprb, 0.844219e+00_jprb &
27989  &, 0.830820e+00_jprb, 0.817238e+00_jprb, 0.803459e+00_jprb &
27990  &, 0.789515e+00_jprb, 0.775425e+00_jprb, 0.761193e+00_jprb, 0.746838e+00_jprb &
27991  &, 0.732363e+00_jprb, 0.717822e+00_jprb, 0.703186e+00_jprb &
27992  &, 0.688475e+00_jprb, 0.673745e+00_jprb, 0.658964e+00_jprb, 0.644170e+00_jprb &
27993  &, 0.629367e+00_jprb, 0.614573e+00_jprb, 0.599790e+00_jprb &
27994  &, 0.585079e+00_jprb, 0.570397e+00_jprb, 0.555764e+00_jprb, 0.541241e+00_jprb &
27995  &, 0.526781e+00_jprb, 0.512447e+00_jprb, 0.498209e+00_jprb &
27996  &, 0.484084e+00_jprb, 0.470111e+00_jprb, 0.456281e+00_jprb, 0.442607e+00_jprb &
27997  &, 0.429103e+00_jprb, 0.415782e+00_jprb, 0.402627e+00_jprb &
27998  &, 0.389649e+00_jprb, 0.376912e+00_jprb, 0.364341e+00_jprb, 0.351998e+00_jprb &
27999  &, 0.339891e+00_jprb, 0.327996e+00_jprb, 0.316314e+00_jprb &
28000  &, 0.304880e+00_jprb, 0.293696e+00_jprb, 0.282761e+00_jprb, 0.272043e+00_jprb &
28001  &, 0.261570e+00_jprb, 0.251373e+00_jprb, 0.241415e+00_jprb &
28002  &, 0.231723e+00_jprb, 0.222290e+00_jprb, 0.213108e+00_jprb, 0.204166e+00_jprb &
28003  &, 0.195489e+00_jprb, 0.187066e+00_jprb, 0.178882e+00_jprb &
28004  &, 0.170961e+00_jprb, 0.163286e+00_jprb, 0.155880e+00_jprb, 0.148724e+00_jprb &
28005  &, 0.141754e+00_jprb, 0.135076e+00_jprb, 0.128624e+00_jprb &
28006  &, 0.122416e+00_jprb, 0.116382e+00_jprb, 0.110630e+00_jprb, 0.105085e+00_jprb &
28007  &, 0.997643e-01_jprb, 0.946358e-01_jprb, 0.897143e-01_jprb &
28008  &, 0.849651e-01_jprb, 0.804519e-01_jprb, 0.761391e-01_jprb, 0.719881e-01_jprb &
28009  &, 0.680634e-01_jprb, 0.642722e-01_jprb, 0.606784e-01_jprb &
28010  &, 0.572394e-01_jprb, 0.539652e-01_jprb, 0.508096e-01_jprb, 0.478381e-01_jprb &
28011  &, 0.450033e-01_jprb, 0.423135e-01_jprb, 0.397775e-01_jprb &
28012  &, 0.373432e-01_jprb, 0.350786e-01_jprb, 0.328682e-01_jprb, 0.308423e-01_jprb &
28013  &, 0.288823e-01_jprb, 0.269925e-01_jprb, 0.253088e-01_jprb/)
28014 xcw( 641, :) = (/ &
28015  & 0.103305e+01_jprb, 0.104036e+01_jprb, 0.104728e+01_jprb, 0.105379e+01_jprb &
28016  &, 0.105991e+01_jprb, 0.106562e+01_jprb, 0.107091e+01_jprb &
28017  &, 0.107578e+01_jprb, 0.108023e+01_jprb, 0.108426e+01_jprb, 0.108785e+01_jprb &
28018  &, 0.109100e+01_jprb, 0.109372e+01_jprb, 0.109599e+01_jprb &
28019  &, 0.109782e+01_jprb, 0.109920e+01_jprb, 0.110013e+01_jprb, 0.110060e+01_jprb &
28020  &, 0.110062e+01_jprb, 0.110018e+01_jprb, 0.109928e+01_jprb &
28021  &, 0.109792e+01_jprb, 0.109610e+01_jprb, 0.109382e+01_jprb, 0.109109e+01_jprb &
28022  &, 0.108790e+01_jprb, 0.108425e+01_jprb, 0.108014e+01_jprb &
28023  &, 0.107559e+01_jprb, 0.107059e+01_jprb, 0.106514e+01_jprb, 0.105926e+01_jprb &
28024  &, 0.105294e+01_jprb, 0.104619e+01_jprb, 0.103901e+01_jprb &
28025  &, 0.103142e+01_jprb, 0.102343e+01_jprb, 0.101503e+01_jprb, 0.100624e+01_jprb &
28026  &, 0.997055e+00_jprb, 0.987503e+00_jprb, 0.977593e+00_jprb &
28027  &, 0.967315e+00_jprb, 0.956708e+00_jprb, 0.945758e+00_jprb, 0.934486e+00_jprb &
28028  &, 0.922919e+00_jprb, 0.911036e+00_jprb, 0.898881e+00_jprb &
28029  &, 0.886463e+00_jprb, 0.873777e+00_jprb, 0.860849e+00_jprb, 0.847705e+00_jprb &
28030  &, 0.834332e+00_jprb, 0.820759e+00_jprb, 0.807017e+00_jprb &
28031  &, 0.793095e+00_jprb, 0.779009e+00_jprb, 0.764795e+00_jprb, 0.750456e+00_jprb &
28032  &, 0.735995e+00_jprb, 0.721450e+00_jprb, 0.706825e+00_jprb &
28033  &, 0.692122e+00_jprb, 0.677381e+00_jprb, 0.662604e+00_jprb, 0.647793e+00_jprb &
28034  &, 0.632989e+00_jprb, 0.618192e+00_jprb, 0.603404e+00_jprb &
28035  &, 0.588664e+00_jprb, 0.573972e+00_jprb, 0.559325e+00_jprb, 0.544764e+00_jprb &
28036  &, 0.530307e+00_jprb, 0.515929e+00_jprb, 0.501666e+00_jprb &
28037  &, 0.487514e+00_jprb, 0.473510e+00_jprb, 0.459646e+00_jprb, 0.445935e+00_jprb &
28038  &, 0.432391e+00_jprb, 0.419026e+00_jprb, 0.405825e+00_jprb &
28039  &, 0.392824e+00_jprb, 0.380033e+00_jprb, 0.367434e+00_jprb, 0.355031e+00_jprb &
28040  &, 0.342861e+00_jprb, 0.330928e+00_jprb, 0.319207e+00_jprb &
28041  &, 0.307730e+00_jprb, 0.296468e+00_jprb, 0.285484e+00_jprb, 0.274714e+00_jprb &
28042  &, 0.264186e+00_jprb, 0.253932e+00_jprb, 0.243912e+00_jprb &
28043  &, 0.234155e+00_jprb, 0.224655e+00_jprb, 0.215439e+00_jprb, 0.206423e+00_jprb &
28044  &, 0.197708e+00_jprb, 0.189205e+00_jprb, 0.180977e+00_jprb &
28045  &, 0.173010e+00_jprb, 0.165286e+00_jprb, 0.157788e+00_jprb, 0.150578e+00_jprb &
28046  &, 0.143595e+00_jprb, 0.136816e+00_jprb, 0.130303e+00_jprb &
28047  &, 0.124032e+00_jprb, 0.117977e+00_jprb, 0.112157e+00_jprb, 0.106541e+00_jprb &
28048  &, 0.101195e+00_jprb, 0.959911e-01_jprb, 0.910407e-01_jprb &
28049  &, 0.862614e-01_jprb, 0.817168e-01_jprb, 0.773198e-01_jprb, 0.731339e-01_jprb &
28050  &, 0.691202e-01_jprb, 0.652905e-01_jprb, 0.616570e-01_jprb &
28051  &, 0.581767e-01_jprb, 0.548598e-01_jprb, 0.517167e-01_jprb, 0.487004e-01_jprb &
28052  &, 0.458192e-01_jprb, 0.430816e-01_jprb, 0.404961e-01_jprb &
28053  &, 0.380716e-01_jprb, 0.356939e-01_jprb, 0.334916e-01_jprb, 0.314109e-01_jprb &
28054  &, 0.294584e-01_jprb, 0.275763e-01_jprb, 0.257688e-01_jprb/)
28055 xcw( 642, :) = (/ &
28056  & 0.103332e+01_jprb, 0.104070e+01_jprb, 0.104769e+01_jprb, 0.105428e+01_jprb &
28057  &, 0.106047e+01_jprb, 0.106625e+01_jprb, 0.107161e+01_jprb &
28058  &, 0.107656e+01_jprb, 0.108108e+01_jprb, 0.108518e+01_jprb, 0.108884e+01_jprb &
28059  &, 0.109207e+01_jprb, 0.109486e+01_jprb, 0.109721e+01_jprb &
28060  &, 0.109911e+01_jprb, 0.110056e+01_jprb, 0.110156e+01_jprb, 0.110211e+01_jprb &
28061  &, 0.110220e+01_jprb, 0.110183e+01_jprb, 0.110100e+01_jprb &
28062  &, 0.109972e+01_jprb, 0.109797e+01_jprb, 0.109577e+01_jprb, 0.109310e+01_jprb &
28063  &, 0.108998e+01_jprb, 0.108640e+01_jprb, 0.108236e+01_jprb &
28064  &, 0.107788e+01_jprb, 0.107294e+01_jprb, 0.106756e+01_jprb, 0.106174e+01_jprb &
28065  &, 0.105549e+01_jprb, 0.104880e+01_jprb, 0.104169e+01_jprb &
28066  &, 0.103416e+01_jprb, 0.102622e+01_jprb, 0.101787e+01_jprb, 0.100914e+01_jprb &
28067  &, 0.100002e+01_jprb, 0.990517e+00_jprb, 0.980650e+00_jprb &
28068  &, 0.970427e+00_jprb, 0.959864e+00_jprb, 0.948957e+00_jprb, 0.937729e+00_jprb &
28069  &, 0.926193e+00_jprb, 0.914367e+00_jprb, 0.902242e+00_jprb &
28070  &, 0.889853e+00_jprb, 0.877209e+00_jprb, 0.864308e+00_jprb, 0.851191e+00_jprb &
28071  &, 0.837844e+00_jprb, 0.824309e+00_jprb, 0.810576e+00_jprb &
28072  &, 0.796674e+00_jprb, 0.782609e+00_jprb, 0.768413e+00_jprb, 0.754074e+00_jprb &
28073  &, 0.739628e+00_jprb, 0.725096e+00_jprb, 0.710464e+00_jprb &
28074  &, 0.695770e+00_jprb, 0.681035e+00_jprb, 0.666244e+00_jprb, 0.651454e+00_jprb &
28075  &, 0.636630e+00_jprb, 0.621811e+00_jprb, 0.607038e+00_jprb &
28076  &, 0.592270e+00_jprb, 0.577567e+00_jprb, 0.562908e+00_jprb, 0.548331e+00_jprb &
28077  &, 0.533834e+00_jprb, 0.519434e+00_jprb, 0.505147e+00_jprb &
28078  &, 0.490967e+00_jprb, 0.476933e+00_jprb, 0.463036e+00_jprb, 0.449288e+00_jprb &
28079  &, 0.435705e+00_jprb, 0.422297e+00_jprb, 0.409022e+00_jprb &
28080  &, 0.396026e+00_jprb, 0.383183e+00_jprb, 0.370527e+00_jprb, 0.358094e+00_jprb &
28081  &, 0.345860e+00_jprb, 0.333891e+00_jprb, 0.322099e+00_jprb &
28082  &, 0.310580e+00_jprb, 0.299272e+00_jprb, 0.288207e+00_jprb, 0.277385e+00_jprb &
28083  &, 0.266836e+00_jprb, 0.256524e+00_jprb, 0.246444e+00_jprb &
28084  &, 0.236624e+00_jprb, 0.227093e+00_jprb, 0.217770e+00_jprb, 0.208718e+00_jprb &
28085  &, 0.199927e+00_jprb, 0.191383e+00_jprb, 0.183112e+00_jprb &
28086  &, 0.175059e+00_jprb, 0.167287e+00_jprb, 0.159738e+00_jprb, 0.152475e+00_jprb &
28087  &, 0.145394e+00_jprb, 0.138599e+00_jprb, 0.132026e+00_jprb &
28088  &, 0.125692e+00_jprb, 0.119618e+00_jprb, 0.113730e+00_jprb, 0.108044e+00_jprb &
28089  &, 0.102625e+00_jprb, 0.973947e-01_jprb, 0.923671e-01_jprb &
28090  &, 0.875577e-01_jprb, 0.829310e-01_jprb, 0.785004e-01_jprb, 0.742797e-01_jprb &
28091  &, 0.702297e-01_jprb, 0.663625e-01_jprb, 0.626899e-01_jprb &
28092  &, 0.591691e-01_jprb, 0.558103e-01_jprb, 0.525671e-01_jprb, 0.495052e-01_jprb &
28093  &, 0.466351e-01_jprb, 0.438497e-01_jprb, 0.412148e-01_jprb &
28094  &, 0.387394e-01_jprb, 0.363706e-01_jprb, 0.341775e-01_jprb, 0.320427e-01_jprb &
28095  &, 0.300346e-01_jprb, 0.280951e-01_jprb, 0.262945e-01_jprb/)
28096 xcw( 643, :) = (/ &
28097  & 0.103360e+01_jprb, 0.104105e+01_jprb, 0.104811e+01_jprb, 0.105477e+01_jprb &
28098  &, 0.106103e+01_jprb, 0.106688e+01_jprb, 0.107231e+01_jprb &
28099  &, 0.107733e+01_jprb, 0.108193e+01_jprb, 0.108610e+01_jprb, 0.108984e+01_jprb &
28100  &, 0.109314e+01_jprb, 0.109601e+01_jprb, 0.109843e+01_jprb &
28101  &, 0.110040e+01_jprb, 0.110193e+01_jprb, 0.110300e+01_jprb, 0.110362e+01_jprb &
28102  &, 0.110379e+01_jprb, 0.110349e+01_jprb, 0.110274e+01_jprb &
28103  &, 0.110152e+01_jprb, 0.109985e+01_jprb, 0.109771e+01_jprb, 0.109512e+01_jprb &
28104  &, 0.109207e+01_jprb, 0.108856e+01_jprb, 0.108458e+01_jprb &
28105  &, 0.108017e+01_jprb, 0.107530e+01_jprb, 0.106999e+01_jprb, 0.106423e+01_jprb &
28106  &, 0.105804e+01_jprb, 0.105142e+01_jprb, 0.104437e+01_jprb &
28107  &, 0.103689e+01_jprb, 0.102901e+01_jprb, 0.102073e+01_jprb, 0.101204e+01_jprb &
28108  &, 0.100298e+01_jprb, 0.993531e+00_jprb, 0.983718e+00_jprb &
28109  &, 0.973550e+00_jprb, 0.963031e+00_jprb, 0.952169e+00_jprb, 0.940985e+00_jprb &
28110  &, 0.929493e+00_jprb, 0.917697e+00_jprb, 0.905616e+00_jprb &
28111  &, 0.893269e+00_jprb, 0.880654e+00_jprb, 0.867796e+00_jprb, 0.854692e+00_jprb &
28112  &, 0.841384e+00_jprb, 0.827860e+00_jprb, 0.814149e+00_jprb &
28113  &, 0.800270e+00_jprb, 0.786224e+00_jprb, 0.772047e+00_jprb, 0.757725e+00_jprb &
28114  &, 0.743295e+00_jprb, 0.728759e+00_jprb, 0.714138e+00_jprb &
28115  &, 0.699454e+00_jprb, 0.684708e+00_jprb, 0.669921e+00_jprb, 0.655115e+00_jprb &
28116  &, 0.640292e+00_jprb, 0.625471e+00_jprb, 0.610672e+00_jprb &
28117  &, 0.595897e+00_jprb, 0.581163e+00_jprb, 0.566491e+00_jprb, 0.551899e+00_jprb &
28118  &, 0.537384e+00_jprb, 0.522962e+00_jprb, 0.508628e+00_jprb &
28119  &, 0.494445e+00_jprb, 0.480381e+00_jprb, 0.466451e+00_jprb, 0.452668e+00_jprb &
28120  &, 0.439045e+00_jprb, 0.425595e+00_jprb, 0.412328e+00_jprb &
28121  &, 0.399229e+00_jprb, 0.386333e+00_jprb, 0.373649e+00_jprb, 0.361156e+00_jprb &
28122  &, 0.348889e+00_jprb, 0.336854e+00_jprb, 0.325023e+00_jprb &
28123  &, 0.313461e+00_jprb, 0.302109e+00_jprb, 0.290996e+00_jprb, 0.280123e+00_jprb &
28124  &, 0.269486e+00_jprb, 0.259117e+00_jprb, 0.249012e+00_jprb &
28125  &, 0.239128e+00_jprb, 0.229494e+00_jprb, 0.220138e+00_jprb, 0.211051e+00_jprb &
28126  &, 0.202184e+00_jprb, 0.193600e+00_jprb, 0.185247e+00_jprb &
28127  &, 0.177148e+00_jprb, 0.169329e+00_jprb, 0.161729e+00_jprb, 0.154372e+00_jprb &
28128  &, 0.147278e+00_jprb, 0.140383e+00_jprb, 0.133793e+00_jprb &
28129  &, 0.127397e+00_jprb, 0.121212e+00_jprb, 0.115303e+00_jprb, 0.109594e+00_jprb &
28130  &, 0.104104e+00_jprb, 0.987984e-01_jprb, 0.937427e-01_jprb &
28131  &, 0.888539e-01_jprb, 0.841958e-01_jprb, 0.797325e-01_jprb, 0.754776e-01_jprb &
28132  &, 0.713393e-01_jprb, 0.674344e-01_jprb, 0.637227e-01_jprb &
28133  &, 0.601615e-01_jprb, 0.567608e-01_jprb, 0.534743e-01_jprb, 0.504250e-01_jprb &
28134  &, 0.474511e-01_jprb, 0.446768e-01_jprb, 0.419934e-01_jprb &
28135  &, 0.394678e-01_jprb, 0.370474e-01_jprb, 0.348010e-01_jprb, 0.326745e-01_jprb &
28136  &, 0.306108e-01_jprb, 0.286789e-01_jprb, 0.268201e-01_jprb/)
28137 xcw( 644, :) = (/ &
28138  & 0.103387e+01_jprb, 0.104139e+01_jprb, 0.104852e+01_jprb, 0.105525e+01_jprb &
28139  &, 0.106158e+01_jprb, 0.106751e+01_jprb, 0.107302e+01_jprb &
28140  &, 0.107811e+01_jprb, 0.108278e+01_jprb, 0.108703e+01_jprb, 0.109084e+01_jprb &
28141  &, 0.109421e+01_jprb, 0.109715e+01_jprb, 0.109965e+01_jprb &
28142  &, 0.110170e+01_jprb, 0.110330e+01_jprb, 0.110445e+01_jprb, 0.110514e+01_jprb &
28143  &, 0.110538e+01_jprb, 0.110515e+01_jprb, 0.110447e+01_jprb &
28144  &, 0.110333e+01_jprb, 0.110173e+01_jprb, 0.109966e+01_jprb, 0.109714e+01_jprb &
28145  &, 0.109416e+01_jprb, 0.109072e+01_jprb, 0.108682e+01_jprb &
28146  &, 0.108247e+01_jprb, 0.107767e+01_jprb, 0.107242e+01_jprb, 0.106673e+01_jprb &
28147  &, 0.106060e+01_jprb, 0.105404e+01_jprb, 0.104705e+01_jprb &
28148  &, 0.103964e+01_jprb, 0.103182e+01_jprb, 0.102359e+01_jprb, 0.101497e+01_jprb &
28149  &, 0.100596e+01_jprb, 0.996555e+00_jprb, 0.986797e+00_jprb &
28150  &, 0.976673e+00_jprb, 0.966198e+00_jprb, 0.955391e+00_jprb, 0.944252e+00_jprb &
28151  &, 0.932804e+00_jprb, 0.921052e+00_jprb, 0.909002e+00_jprb &
28152  &, 0.896686e+00_jprb, 0.884113e+00_jprb, 0.871283e+00_jprb, 0.858220e+00_jprb &
28153  &, 0.844925e+00_jprb, 0.831440e+00_jprb, 0.817753e+00_jprb &
28154  &, 0.803881e+00_jprb, 0.789856e+00_jprb, 0.775697e+00_jprb, 0.761393e+00_jprb &
28155  &, 0.746961e+00_jprb, 0.732439e+00_jprb, 0.717830e+00_jprb &
28156  &, 0.703137e+00_jprb, 0.688399e+00_jprb, 0.673618e+00_jprb, 0.658796e+00_jprb &
28157  &, 0.643973e+00_jprb, 0.629150e+00_jprb, 0.614327e+00_jprb &
28158  &, 0.599545e+00_jprb, 0.584802e+00_jprb, 0.570118e+00_jprb, 0.555489e+00_jprb &
28159  &, 0.540956e+00_jprb, 0.526514e+00_jprb, 0.512157e+00_jprb &
28160  &, 0.497923e+00_jprb, 0.483830e+00_jprb, 0.469866e+00_jprb, 0.456047e+00_jprb &
28161  &, 0.442385e+00_jprb, 0.428919e+00_jprb, 0.415607e+00_jprb &
28162  &, 0.402459e+00_jprb, 0.389539e+00_jprb, 0.376800e+00_jprb, 0.364278e+00_jprb &
28163  &, 0.351948e+00_jprb, 0.339847e+00_jprb, 0.327977e+00_jprb &
28164  &, 0.316343e+00_jprb, 0.304945e+00_jprb, 0.293785e+00_jprb, 0.282861e+00_jprb &
28165  &, 0.272171e+00_jprb, 0.261745e+00_jprb, 0.251579e+00_jprb &
28166  &, 0.241632e+00_jprb, 0.231968e+00_jprb, 0.222543e+00_jprb, 0.213384e+00_jprb &
28167  &, 0.204479e+00_jprb, 0.195816e+00_jprb, 0.187421e+00_jprb &
28168  &, 0.179278e+00_jprb, 0.171370e+00_jprb, 0.163721e+00_jprb, 0.156311e+00_jprb &
28169  &, 0.149119e+00_jprb, 0.142210e+00_jprb, 0.135516e+00_jprb &
28170  &, 0.129102e+00_jprb, 0.122853e+00_jprb, 0.116876e+00_jprb, 0.111097e+00_jprb &
28171  &, 0.105582e+00_jprb, 0.100250e+00_jprb, 0.951182e-01_jprb &
28172  &, 0.902000e-01_jprb, 0.855112e-01_jprb, 0.809645e-01_jprb, 0.766234e-01_jprb &
28173  &, 0.725017e-01_jprb, 0.685599e-01_jprb, 0.647556e-01_jprb &
28174  &, 0.611539e-01_jprb, 0.577113e-01_jprb, 0.543814e-01_jprb, 0.512872e-01_jprb &
28175  &, 0.482670e-01_jprb, 0.454449e-01_jprb, 0.427720e-01_jprb &
28176  &, 0.401963e-01_jprb, 0.377857e-01_jprb, 0.354868e-01_jprb, 0.332432e-01_jprb &
28177  &, 0.311869e-01_jprb, 0.292627e-01_jprb, 0.274115e-01_jprb/)
28178 
28179 IF (lhook) CALL dr_hook('SU_MCICA:PART92',1,zhook_handle)
28180 END SUBROUTINE part92
28181 
28182 #ifdef VPP5000
28183 !OCL SCALAR
28184 #endif
28185 !option! -Nv -NO
28186 #ifdef RS6K
28187 @process nooptimize
28188 #endif
28189 !pgi$r opt=0
28190 SUBROUTINE part93
28191 
28192 REAL(KIND=JPRB) :: ZHOOK_HANDLE
28193 IF (lhook) CALL dr_hook('SU_MCICA:PART93',0,zhook_handle)
28194 
28195 xcw( 645, :) = (/ &
28196  & 0.103415e+01_jprb, 0.104174e+01_jprb, 0.104894e+01_jprb, 0.105574e+01_jprb &
28197  &, 0.106214e+01_jprb, 0.106814e+01_jprb, 0.107372e+01_jprb &
28198  &, 0.107889e+01_jprb, 0.108363e+01_jprb, 0.108795e+01_jprb, 0.109184e+01_jprb &
28199  &, 0.109529e+01_jprb, 0.109830e+01_jprb, 0.110087e+01_jprb &
28200  &, 0.110300e+01_jprb, 0.110467e+01_jprb, 0.110589e+01_jprb, 0.110666e+01_jprb &
28201  &, 0.110697e+01_jprb, 0.110682e+01_jprb, 0.110621e+01_jprb &
28202  &, 0.110514e+01_jprb, 0.110361e+01_jprb, 0.110162e+01_jprb, 0.109917e+01_jprb &
28203  &, 0.109626e+01_jprb, 0.109289e+01_jprb, 0.108906e+01_jprb &
28204  &, 0.108477e+01_jprb, 0.108004e+01_jprb, 0.107486e+01_jprb, 0.106923e+01_jprb &
28205  &, 0.106317e+01_jprb, 0.105667e+01_jprb, 0.104975e+01_jprb &
28206  &, 0.104240e+01_jprb, 0.103463e+01_jprb, 0.102646e+01_jprb, 0.101790e+01_jprb &
28207  &, 0.100894e+01_jprb, 0.999590e+00_jprb, 0.989887e+00_jprb &
28208  &, 0.979807e+00_jprb, 0.969388e+00_jprb, 0.958626e+00_jprb, 0.947531e+00_jprb &
28209  &, 0.936127e+00_jprb, 0.924408e+00_jprb, 0.912401e+00_jprb &
28210  &, 0.900128e+00_jprb, 0.887572e+00_jprb, 0.874784e+00_jprb, 0.861749e+00_jprb &
28211  &, 0.848480e+00_jprb, 0.835020e+00_jprb, 0.821357e+00_jprb &
28212  &, 0.807522e+00_jprb, 0.793519e+00_jprb, 0.779299e+00_jprb, 0.765061e+00_jprb &
28213  &, 0.750662e+00_jprb, 0.736137e+00_jprb, 0.721540e+00_jprb &
28214  &, 0.706857e+00_jprb, 0.692109e+00_jprb, 0.677334e+00_jprb, 0.662515e+00_jprb &
28215  &, 0.647674e+00_jprb, 0.632830e+00_jprb, 0.618024e+00_jprb &
28216  &, 0.603214e+00_jprb, 0.588463e+00_jprb, 0.573745e+00_jprb, 0.559102e+00_jprb &
28217  &, 0.544551e+00_jprb, 0.530066e+00_jprb, 0.515709e+00_jprb &
28218  &, 0.501450e+00_jprb, 0.487228e+00_jprb, 0.473307e+00_jprb, 0.459478e+00_jprb &
28219  &, 0.445778e+00_jprb, 0.432243e+00_jprb, 0.418886e+00_jprb &
28220  &, 0.405717e+00_jprb, 0.392745e+00_jprb, 0.379951e+00_jprb, 0.367399e+00_jprb &
28221  &, 0.355038e+00_jprb, 0.342871e+00_jprb, 0.330963e+00_jprb &
28222  &, 0.319256e+00_jprb, 0.307814e+00_jprb, 0.296607e+00_jprb, 0.285599e+00_jprb &
28223  &, 0.274889e+00_jprb, 0.264407e+00_jprb, 0.254146e+00_jprb &
28224  &, 0.244172e+00_jprb, 0.234443e+00_jprb, 0.224949e+00_jprb, 0.215754e+00_jprb &
28225  &, 0.206774e+00_jprb, 0.198072e+00_jprb, 0.189595e+00_jprb &
28226  &, 0.181367e+00_jprb, 0.173411e+00_jprb, 0.165712e+00_jprb, 0.158250e+00_jprb &
28227  &, 0.151047e+00_jprb, 0.144037e+00_jprb, 0.137327e+00_jprb &
28228  &, 0.130807e+00_jprb, 0.124538e+00_jprb, 0.118495e+00_jprb, 0.112694e+00_jprb &
28229  &, 0.107060e+00_jprb, 0.101702e+00_jprb, 0.964938e-01_jprb &
28230  &, 0.915462e-01_jprb, 0.867760e-01_jprb, 0.821965e-01_jprb, 0.778213e-01_jprb &
28231  &, 0.736641e-01_jprb, 0.696318e-01_jprb, 0.658429e-01_jprb &
28232  &, 0.621463e-01_jprb, 0.586618e-01_jprb, 0.553452e-01_jprb, 0.521495e-01_jprb &
28233  &, 0.491412e-01_jprb, 0.462721e-01_jprb, 0.435506e-01_jprb &
28234  &, 0.409247e-01_jprb, 0.384624e-01_jprb, 0.361103e-01_jprb, 0.339382e-01_jprb &
28235  &, 0.318271e-01_jprb, 0.298464e-01_jprb, 0.279372e-01_jprb/)
28236 xcw( 646, :) = (/ &
28237  & 0.103442e+01_jprb, 0.104208e+01_jprb, 0.104935e+01_jprb, 0.105623e+01_jprb &
28238  &, 0.106270e+01_jprb, 0.106877e+01_jprb, 0.107443e+01_jprb &
28239  &, 0.107967e+01_jprb, 0.108448e+01_jprb, 0.108888e+01_jprb, 0.109284e+01_jprb &
28240  &, 0.109637e+01_jprb, 0.109945e+01_jprb, 0.110210e+01_jprb &
28241  &, 0.110429e+01_jprb, 0.110604e+01_jprb, 0.110734e+01_jprb, 0.110818e+01_jprb &
28242  &, 0.110857e+01_jprb, 0.110849e+01_jprb, 0.110796e+01_jprb &
28243  &, 0.110696e+01_jprb, 0.110550e+01_jprb, 0.110358e+01_jprb, 0.110120e+01_jprb &
28244  &, 0.109836e+01_jprb, 0.109506e+01_jprb, 0.109130e+01_jprb &
28245  &, 0.108708e+01_jprb, 0.108242e+01_jprb, 0.107730e+01_jprb, 0.107174e+01_jprb &
28246  &, 0.106574e+01_jprb, 0.105931e+01_jprb, 0.105245e+01_jprb &
28247  &, 0.104516e+01_jprb, 0.103745e+01_jprb, 0.102934e+01_jprb, 0.102083e+01_jprb &
28248  &, 0.101193e+01_jprb, 0.100264e+01_jprb, 0.992977e+00_jprb &
28249  &, 0.982952e+00_jprb, 0.972578e+00_jprb, 0.961860e+00_jprb, 0.950822e+00_jprb &
28250  &, 0.939451e+00_jprb, 0.927776e+00_jprb, 0.915813e+00_jprb &
28251  &, 0.903571e+00_jprb, 0.891058e+00_jprb, 0.878299e+00_jprb, 0.865291e+00_jprb &
28252  &, 0.852064e+00_jprb, 0.838615e+00_jprb, 0.824976e+00_jprb &
28253  &, 0.811164e+00_jprb, 0.797182e+00_jprb, 0.783031e+00_jprb, 0.768762e+00_jprb &
28254  &, 0.754363e+00_jprb, 0.739852e+00_jprb, 0.725250e+00_jprb &
28255  &, 0.710577e+00_jprb, 0.695837e+00_jprb, 0.681049e+00_jprb, 0.666235e+00_jprb &
28256  &, 0.651395e+00_jprb, 0.636550e+00_jprb, 0.621720e+00_jprb &
28257  &, 0.606905e+00_jprb, 0.592123e+00_jprb, 0.577416e+00_jprb, 0.562737e+00_jprb &
28258  &, 0.548170e+00_jprb, 0.533665e+00_jprb, 0.519262e+00_jprb &
28259  &, 0.504976e+00_jprb, 0.490825e+00_jprb, 0.476798e+00_jprb, 0.462909e+00_jprb &
28260  &, 0.449171e+00_jprb, 0.435622e+00_jprb, 0.422220e+00_jprb &
28261  &, 0.409003e+00_jprb, 0.395980e+00_jprb, 0.383160e+00_jprb, 0.370521e+00_jprb &
28262  &, 0.358127e+00_jprb, 0.345925e+00_jprb, 0.333949e+00_jprb &
28263  &, 0.322201e+00_jprb, 0.310715e+00_jprb, 0.299428e+00_jprb, 0.288404e+00_jprb &
28264  &, 0.277607e+00_jprb, 0.267069e+00_jprb, 0.256784e+00_jprb &
28265  &, 0.246748e+00_jprb, 0.236953e+00_jprb, 0.227391e+00_jprb, 0.218125e+00_jprb &
28266  &, 0.209108e+00_jprb, 0.200327e+00_jprb, 0.191809e+00_jprb &
28267  &, 0.183536e+00_jprb, 0.175494e+00_jprb, 0.167745e+00_jprb, 0.160231e+00_jprb &
28268  &, 0.152931e+00_jprb, 0.145907e+00_jprb, 0.139095e+00_jprb &
28269  &, 0.132557e+00_jprb, 0.126224e+00_jprb, 0.120114e+00_jprb, 0.114245e+00_jprb &
28270  &, 0.108586e+00_jprb, 0.103155e+00_jprb, 0.979184e-01_jprb &
28271  &, 0.928923e-01_jprb, 0.880914e-01_jprb, 0.834799e-01_jprb, 0.790713e-01_jprb &
28272  &, 0.748265e-01_jprb, 0.707574e-01_jprb, 0.668758e-01_jprb &
28273  &, 0.631939e-01_jprb, 0.596682e-01_jprb, 0.563091e-01_jprb, 0.530693e-01_jprb &
28274  &, 0.500155e-01_jprb, 0.470992e-01_jprb, 0.443291e-01_jprb &
28275  &, 0.417139e-01_jprb, 0.392007e-01_jprb, 0.367962e-01_jprb, 0.345700e-01_jprb &
28276  &, 0.324033e-01_jprb, 0.304302e-01_jprb, 0.285286e-01_jprb/)
28277 xcw( 647, :) = (/ &
28278  & 0.103470e+01_jprb, 0.104243e+01_jprb, 0.104977e+01_jprb, 0.105672e+01_jprb &
28279  &, 0.106327e+01_jprb, 0.106941e+01_jprb, 0.107514e+01_jprb &
28280  &, 0.108045e+01_jprb, 0.108534e+01_jprb, 0.108981e+01_jprb, 0.109384e+01_jprb &
28281  &, 0.109744e+01_jprb, 0.110060e+01_jprb, 0.110332e+01_jprb &
28282  &, 0.110560e+01_jprb, 0.110742e+01_jprb, 0.110879e+01_jprb, 0.110970e+01_jprb &
28283  &, 0.111016e+01_jprb, 0.111016e+01_jprb, 0.110970e+01_jprb &
28284  &, 0.110878e+01_jprb, 0.110740e+01_jprb, 0.110555e+01_jprb, 0.110324e+01_jprb &
28285  &, 0.110047e+01_jprb, 0.109724e+01_jprb, 0.109355e+01_jprb &
28286  &, 0.108940e+01_jprb, 0.108480e+01_jprb, 0.107975e+01_jprb, 0.107426e+01_jprb &
28287  &, 0.106832e+01_jprb, 0.106196e+01_jprb, 0.105515e+01_jprb &
28288  &, 0.104792e+01_jprb, 0.104029e+01_jprb, 0.103223e+01_jprb, 0.102377e+01_jprb &
28289  &, 0.101493e+01_jprb, 0.100569e+01_jprb, 0.996088e+00_jprb &
28290  &, 0.986120e+00_jprb, 0.975790e+00_jprb, 0.965118e+00_jprb, 0.954113e+00_jprb &
28291  &, 0.942799e+00_jprb, 0.931168e+00_jprb, 0.919238e+00_jprb &
28292  &, 0.907026e+00_jprb, 0.894557e+00_jprb, 0.881827e+00_jprb, 0.868848e+00_jprb &
28293  &, 0.855647e+00_jprb, 0.842239e+00_jprb, 0.828626e+00_jprb &
28294  &, 0.814822e+00_jprb, 0.800861e+00_jprb, 0.786730e+00_jprb, 0.772463e+00_jprb &
28295  &, 0.758080e+00_jprb, 0.743584e+00_jprb, 0.728995e+00_jprb &
28296  &, 0.714316e+00_jprb, 0.699584e+00_jprb, 0.684803e+00_jprb, 0.669973e+00_jprb &
28297  &, 0.655136e+00_jprb, 0.640290e+00_jprb, 0.625437e+00_jprb &
28298  &, 0.610616e+00_jprb, 0.595827e+00_jprb, 0.581087e+00_jprb, 0.566394e+00_jprb &
28299  &, 0.551788e+00_jprb, 0.537287e+00_jprb, 0.522862e+00_jprb &
28300  &, 0.508527e+00_jprb, 0.494348e+00_jprb, 0.480290e+00_jprb, 0.466366e+00_jprb &
28301  &, 0.452590e+00_jprb, 0.439000e+00_jprb, 0.425554e+00_jprb &
28302  &, 0.412317e+00_jprb, 0.399243e+00_jprb, 0.386369e+00_jprb, 0.373701e+00_jprb &
28303  &, 0.361246e+00_jprb, 0.349010e+00_jprb, 0.336966e+00_jprb &
28304  &, 0.325177e+00_jprb, 0.313616e+00_jprb, 0.302283e+00_jprb, 0.291209e+00_jprb &
28305  &, 0.280359e+00_jprb, 0.269765e+00_jprb, 0.259422e+00_jprb &
28306  &, 0.249324e+00_jprb, 0.239464e+00_jprb, 0.229870e+00_jprb, 0.220533e+00_jprb &
28307  &, 0.211441e+00_jprb, 0.202622e+00_jprb, 0.194022e+00_jprb &
28308  &, 0.185706e+00_jprb, 0.177617e+00_jprb, 0.169778e+00_jprb, 0.162212e+00_jprb &
28309  &, 0.154901e+00_jprb, 0.147778e+00_jprb, 0.140950e+00_jprb &
28310  &, 0.134307e+00_jprb, 0.127910e+00_jprb, 0.121780e+00_jprb, 0.115842e+00_jprb &
28311  &, 0.110159e+00_jprb, 0.104655e+00_jprb, 0.993431e-01_jprb &
28312  &, 0.942882e-01_jprb, 0.894068e-01_jprb, 0.847632e-01_jprb, 0.802692e-01_jprb &
28313  &, 0.759889e-01_jprb, 0.718829e-01_jprb, 0.679630e-01_jprb &
28314  &, 0.642414e-01_jprb, 0.606747e-01_jprb, 0.572729e-01_jprb, 0.539891e-01_jprb &
28315  &, 0.508897e-01_jprb, 0.479264e-01_jprb, 0.451077e-01_jprb &
28316  &, 0.424423e-01_jprb, 0.399390e-01_jprb, 0.375444e-01_jprb, 0.352018e-01_jprb &
28317  &, 0.330435e-01_jprb, 0.310139e-01_jprb, 0.290543e-01_jprb/)
28318 xcw( 648, :) = (/ &
28319  & 0.103497e+01_jprb, 0.104277e+01_jprb, 0.105019e+01_jprb, 0.105721e+01_jprb &
28320  &, 0.106383e+01_jprb, 0.107004e+01_jprb, 0.107585e+01_jprb &
28321  &, 0.108123e+01_jprb, 0.108620e+01_jprb, 0.109074e+01_jprb, 0.109485e+01_jprb &
28322  &, 0.109852e+01_jprb, 0.110176e+01_jprb, 0.110455e+01_jprb &
28323  &, 0.110690e+01_jprb, 0.110880e+01_jprb, 0.111024e+01_jprb, 0.111123e+01_jprb &
28324  &, 0.111177e+01_jprb, 0.111184e+01_jprb, 0.111145e+01_jprb &
28325  &, 0.111060e+01_jprb, 0.110929e+01_jprb, 0.110752e+01_jprb, 0.110528e+01_jprb &
28326  &, 0.110258e+01_jprb, 0.109942e+01_jprb, 0.109580e+01_jprb &
28327  &, 0.109172e+01_jprb, 0.108719e+01_jprb, 0.108221e+01_jprb, 0.107679e+01_jprb &
28328  &, 0.107091e+01_jprb, 0.106461e+01_jprb, 0.105787e+01_jprb &
28329  &, 0.105070e+01_jprb, 0.104312e+01_jprb, 0.103512e+01_jprb, 0.102673e+01_jprb &
28330  &, 0.101793e+01_jprb, 0.100876e+01_jprb, 0.999200e+00_jprb &
28331  &, 0.989287e+00_jprb, 0.979003e+00_jprb, 0.968387e+00_jprb, 0.957428e+00_jprb &
28332  &, 0.946147e+00_jprb, 0.934561e+00_jprb, 0.922675e+00_jprb &
28333  &, 0.910509e+00_jprb, 0.898056e+00_jprb, 0.885370e+00_jprb, 0.872419e+00_jprb &
28334  &, 0.859246e+00_jprb, 0.845864e+00_jprb, 0.832275e+00_jprb &
28335  &, 0.818494e+00_jprb, 0.804556e+00_jprb, 0.790445e+00_jprb, 0.776197e+00_jprb &
28336  &, 0.761815e+00_jprb, 0.747334e+00_jprb, 0.732758e+00_jprb &
28337  &, 0.718090e+00_jprb, 0.703349e+00_jprb, 0.688556e+00_jprb, 0.673731e+00_jprb &
28338  &, 0.658896e+00_jprb, 0.644031e+00_jprb, 0.629175e+00_jprb &
28339  &, 0.614349e+00_jprb, 0.599530e+00_jprb, 0.584780e+00_jprb, 0.570074e+00_jprb &
28340  &, 0.555452e+00_jprb, 0.540909e+00_jprb, 0.526462e+00_jprb &
28341  &, 0.512127e+00_jprb, 0.497895e+00_jprb, 0.483806e+00_jprb, 0.469849e+00_jprb &
28342  &, 0.456061e+00_jprb, 0.442404e+00_jprb, 0.428942e+00_jprb &
28343  &, 0.415631e+00_jprb, 0.402535e+00_jprb, 0.389606e+00_jprb, 0.376911e+00_jprb &
28344  &, 0.364396e+00_jprb, 0.352095e+00_jprb, 0.340014e+00_jprb &
28345  &, 0.328186e+00_jprb, 0.316550e+00_jprb, 0.305170e+00_jprb, 0.294047e+00_jprb &
28346  &, 0.283146e+00_jprb, 0.272496e+00_jprb, 0.262095e+00_jprb &
28347  &, 0.251935e+00_jprb, 0.242011e+00_jprb, 0.232349e+00_jprb, 0.222978e+00_jprb &
28348  &, 0.213813e+00_jprb, 0.204916e+00_jprb, 0.196275e+00_jprb &
28349  &, 0.187915e+00_jprb, 0.179740e+00_jprb, 0.171852e+00_jprb, 0.164236e+00_jprb &
28350  &, 0.156828e+00_jprb, 0.149692e+00_jprb, 0.142762e+00_jprb &
28351  &, 0.136102e+00_jprb, 0.129642e+00_jprb, 0.123445e+00_jprb, 0.117439e+00_jprb &
28352  &, 0.111685e+00_jprb, 0.106155e+00_jprb, 0.100817e+00_jprb &
28353  &, 0.956842e-01_jprb, 0.907728e-01_jprb, 0.860466e-01_jprb, 0.815192e-01_jprb &
28354  &, 0.772042e-01_jprb, 0.730620e-01_jprb, 0.691046e-01_jprb &
28355  &, 0.652890e-01_jprb, 0.616811e-01_jprb, 0.582367e-01_jprb, 0.549088e-01_jprb &
28356  &, 0.518222e-01_jprb, 0.488126e-01_jprb, 0.459462e-01_jprb &
28357  &, 0.432315e-01_jprb, 0.406773e-01_jprb, 0.382302e-01_jprb, 0.358968e-01_jprb &
28358  &, 0.336837e-01_jprb, 0.315977e-01_jprb, 0.296457e-01_jprb/)
28359 xcw( 649, :) = (/ &
28360  & 0.103525e+01_jprb, 0.104312e+01_jprb, 0.105061e+01_jprb, 0.105770e+01_jprb &
28361  &, 0.106439e+01_jprb, 0.107068e+01_jprb, 0.107655e+01_jprb &
28362  &, 0.108201e+01_jprb, 0.108705e+01_jprb, 0.109167e+01_jprb, 0.109585e+01_jprb &
28363  &, 0.109960e+01_jprb, 0.110291e+01_jprb, 0.110578e+01_jprb &
28364  &, 0.110821e+01_jprb, 0.111013e+01_jprb, 0.111170e+01_jprb, 0.111276e+01_jprb &
28365  &, 0.111337e+01_jprb, 0.111352e+01_jprb, 0.111320e+01_jprb &
28366  &, 0.111243e+01_jprb, 0.111119e+01_jprb, 0.110949e+01_jprb, 0.110732e+01_jprb &
28367  &, 0.110470e+01_jprb, 0.110161e+01_jprb, 0.109806e+01_jprb &
28368  &, 0.109405e+01_jprb, 0.108959e+01_jprb, 0.108467e+01_jprb, 0.107932e+01_jprb &
28369  &, 0.107351e+01_jprb, 0.106727e+01_jprb, 0.106059e+01_jprb &
28370  &, 0.105348e+01_jprb, 0.104596e+01_jprb, 0.103803e+01_jprb, 0.102969e+01_jprb &
28371  &, 0.102095e+01_jprb, 0.101167e+01_jprb, 0.100233e+01_jprb &
28372  &, 0.992454e+00_jprb, 0.982227e+00_jprb, 0.971657e+00_jprb, 0.960742e+00_jprb &
28373  &, 0.949507e+00_jprb, 0.937967e+00_jprb, 0.926126e+00_jprb &
28374  &, 0.913991e+00_jprb, 0.901583e+00_jprb, 0.888926e+00_jprb, 0.876004e+00_jprb &
28375  &, 0.862858e+00_jprb, 0.849503e+00_jprb, 0.835939e+00_jprb &
28376  &, 0.822183e+00_jprb, 0.808251e+00_jprb, 0.794177e+00_jprb, 0.779932e+00_jprb &
28377  &, 0.765583e+00_jprb, 0.751101e+00_jprb, 0.736521e+00_jprb &
28378  &, 0.721865e+00_jprb, 0.707133e+00_jprb, 0.692348e+00_jprb, 0.677528e+00_jprb &
28379  &, 0.662676e+00_jprb, 0.647791e+00_jprb, 0.632933e+00_jprb &
28380  &, 0.618082e+00_jprb, 0.603277e+00_jprb, 0.588495e+00_jprb, 0.573776e+00_jprb &
28381  &, 0.559139e+00_jprb, 0.544554e+00_jprb, 0.530086e+00_jprb &
28382  &, 0.515727e+00_jprb, 0.501468e+00_jprb, 0.487348e+00_jprb, 0.473357e+00_jprb &
28383  &, 0.459507e+00_jprb, 0.445836e+00_jprb, 0.432331e+00_jprb &
28384  &, 0.419000e+00_jprb, 0.405826e+00_jprb, 0.392873e+00_jprb, 0.380120e+00_jprb &
28385  &, 0.367575e+00_jprb, 0.355211e+00_jprb, 0.343093e+00_jprb &
28386  &, 0.331194e+00_jprb, 0.319515e+00_jprb, 0.308090e+00_jprb, 0.296885e+00_jprb &
28387  &, 0.285932e+00_jprb, 0.275227e+00_jprb, 0.264768e+00_jprb &
28388  &, 0.254547e+00_jprb, 0.244594e+00_jprb, 0.234865e+00_jprb, 0.225424e+00_jprb &
28389  &, 0.216223e+00_jprb, 0.207250e+00_jprb, 0.198568e+00_jprb &
28390  &, 0.190125e+00_jprb, 0.181904e+00_jprb, 0.173968e+00_jprb, 0.166259e+00_jprb &
28391  &, 0.158797e+00_jprb, 0.151606e+00_jprb, 0.144617e+00_jprb &
28392  &, 0.137897e+00_jprb, 0.131419e+00_jprb, 0.125157e+00_jprb, 0.119083e+00_jprb &
28393  &, 0.113259e+00_jprb, 0.107656e+00_jprb, 0.102291e+00_jprb &
28394  &, 0.971301e-01_jprb, 0.921388e-01_jprb, 0.873813e-01_jprb, 0.828212e-01_jprb &
28395  &, 0.784194e-01_jprb, 0.742411e-01_jprb, 0.702462e-01_jprb &
28396  &, 0.663917e-01_jprb, 0.627434e-01_jprb, 0.592006e-01_jprb, 0.558861e-01_jprb &
28397  &, 0.526964e-01_jprb, 0.496989e-01_jprb, 0.467847e-01_jprb &
28398  &, 0.440206e-01_jprb, 0.414156e-01_jprb, 0.389784e-01_jprb, 0.365917e-01_jprb &
28399  &, 0.343879e-01_jprb, 0.322463e-01_jprb, 0.302371e-01_jprb/)
28400 xcw( 650, :) = (/ &
28401  & 0.103552e+01_jprb, 0.104347e+01_jprb, 0.105103e+01_jprb, 0.105819e+01_jprb &
28402  &, 0.106495e+01_jprb, 0.107131e+01_jprb, 0.107727e+01_jprb &
28403  &, 0.108280e+01_jprb, 0.108791e+01_jprb, 0.109260e+01_jprb, 0.109686e+01_jprb &
28404  &, 0.110069e+01_jprb, 0.110407e+01_jprb, 0.110702e+01_jprb &
28405  &, 0.110951e+01_jprb, 0.111156e+01_jprb, 0.111316e+01_jprb, 0.111430e+01_jprb &
28406  &, 0.111498e+01_jprb, 0.111520e+01_jprb, 0.111496e+01_jprb &
28407  &, 0.111426e+01_jprb, 0.111310e+01_jprb, 0.111147e+01_jprb, 0.110937e+01_jprb &
28408  &, 0.110682e+01_jprb, 0.110380e+01_jprb, 0.110032e+01_jprb &
28409  &, 0.109638e+01_jprb, 0.109199e+01_jprb, 0.108714e+01_jprb, 0.108185e+01_jprb &
28410  &, 0.107611e+01_jprb, 0.106993e+01_jprb, 0.106332e+01_jprb &
28411  &, 0.105627e+01_jprb, 0.104881e+01_jprb, 0.104094e+01_jprb, 0.103266e+01_jprb &
28412  &, 0.102399e+01_jprb, 0.101491e+01_jprb, 0.100547e+01_jprb &
28413  &, 0.995644e+00_jprb, 0.985473e+00_jprb, 0.974938e+00_jprb, 0.964081e+00_jprb &
28414  &, 0.952892e+00_jprb, 0.941385e+00_jprb, 0.929576e+00_jprb &
28415  &, 0.917486e+00_jprb, 0.905122e+00_jprb, 0.892482e+00_jprb, 0.879603e+00_jprb &
28416  &, 0.866500e+00_jprb, 0.853157e+00_jprb, 0.839619e+00_jprb &
28417  &, 0.825887e+00_jprb, 0.811977e+00_jprb, 0.797909e+00_jprb, 0.783699e+00_jprb &
28418  &, 0.769352e+00_jprb, 0.754885e+00_jprb, 0.740320e+00_jprb &
28419  &, 0.725657e+00_jprb, 0.710936e+00_jprb, 0.696139e+00_jprb, 0.681325e+00_jprb &
28420  &, 0.666456e+00_jprb, 0.651592e+00_jprb, 0.636712e+00_jprb &
28421  &, 0.621856e+00_jprb, 0.607023e+00_jprb, 0.592232e+00_jprb, 0.577501e+00_jprb &
28422  &, 0.562826e+00_jprb, 0.548246e+00_jprb, 0.533734e+00_jprb &
28423  &, 0.519351e+00_jprb, 0.505065e+00_jprb, 0.490915e+00_jprb, 0.476891e+00_jprb &
28424  &, 0.463005e+00_jprb, 0.449295e+00_jprb, 0.435746e+00_jprb &
28425  &, 0.422370e+00_jprb, 0.409174e+00_jprb, 0.396169e+00_jprb, 0.383360e+00_jprb &
28426  &, 0.370754e+00_jprb, 0.358357e+00_jprb, 0.346203e+00_jprb &
28427  &, 0.334234e+00_jprb, 0.322513e+00_jprb, 0.311043e+00_jprb, 0.299790e+00_jprb &
28428  &, 0.288786e+00_jprb, 0.277993e+00_jprb, 0.267476e+00_jprb &
28429  &, 0.257194e+00_jprb, 0.247178e+00_jprb, 0.237418e+00_jprb, 0.227907e+00_jprb &
28430  &, 0.218633e+00_jprb, 0.209622e+00_jprb, 0.200861e+00_jprb &
28431  &, 0.192335e+00_jprb, 0.184109e+00_jprb, 0.176084e+00_jprb, 0.168325e+00_jprb &
28432  &, 0.160810e+00_jprb, 0.153563e+00_jprb, 0.146517e+00_jprb &
28433  &, 0.139736e+00_jprb, 0.133196e+00_jprb, 0.126869e+00_jprb, 0.120774e+00_jprb &
28434  &, 0.114880e+00_jprb, 0.109205e+00_jprb, 0.103764e+00_jprb &
28435  &, 0.985759e-01_jprb, 0.935554e-01_jprb, 0.887160e-01_jprb, 0.841233e-01_jprb &
28436  &, 0.796875e-01_jprb, 0.754203e-01_jprb, 0.713878e-01_jprb &
28437  &, 0.674944e-01_jprb, 0.637498e-01_jprb, 0.602211e-01_jprb, 0.568633e-01_jprb &
28438  &, 0.536289e-01_jprb, 0.505851e-01_jprb, 0.476231e-01_jprb &
28439  &, 0.448705e-01_jprb, 0.422154e-01_jprb, 0.396642e-01_jprb, 0.372867e-01_jprb &
28440  &, 0.350280e-01_jprb, 0.328949e-01_jprb, 0.308285e-01_jprb/)
28441 xcw( 651, :) = (/ &
28442  & 0.103580e+01_jprb, 0.104382e+01_jprb, 0.105145e+01_jprb, 0.105868e+01_jprb &
28443  &, 0.106552e+01_jprb, 0.107195e+01_jprb, 0.107798e+01_jprb &
28444  &, 0.108359e+01_jprb, 0.108877e+01_jprb, 0.109354e+01_jprb, 0.109787e+01_jprb &
28445  &, 0.110177e+01_jprb, 0.110523e+01_jprb, 0.110825e+01_jprb &
28446  &, 0.111083e+01_jprb, 0.111295e+01_jprb, 0.111462e+01_jprb, 0.111583e+01_jprb &
28447  &, 0.111659e+01_jprb, 0.111689e+01_jprb, 0.111672e+01_jprb &
28448  &, 0.111610e+01_jprb, 0.111501e+01_jprb, 0.111345e+01_jprb, 0.111143e+01_jprb &
28449  &, 0.110895e+01_jprb, 0.110600e+01_jprb, 0.110259e+01_jprb &
28450  &, 0.109872e+01_jprb, 0.109440e+01_jprb, 0.108962e+01_jprb, 0.108439e+01_jprb &
28451  &, 0.107872e+01_jprb, 0.107261e+01_jprb, 0.106606e+01_jprb &
28452  &, 0.105907e+01_jprb, 0.105164e+01_jprb, 0.104386e+01_jprb, 0.103564e+01_jprb &
28453  &, 0.102702e+01_jprb, 0.101800e+01_jprb, 0.100861e+01_jprb &
28454  &, 0.998844e+00_jprb, 0.988720e+00_jprb, 0.978242e+00_jprb, 0.967420e+00_jprb &
28455  &, 0.956277e+00_jprb, 0.944815e+00_jprb, 0.933052e+00_jprb &
28456  &, 0.920994e+00_jprb, 0.908662e+00_jprb, 0.896066e+00_jprb, 0.883217e+00_jprb &
28457  &, 0.870142e+00_jprb, 0.856826e+00_jprb, 0.843314e+00_jprb &
28458  &, 0.829606e+00_jprb, 0.815720e+00_jprb, 0.801673e+00_jprb, 0.787467e+00_jprb &
28459  &, 0.773137e+00_jprb, 0.758687e+00_jprb, 0.744118e+00_jprb &
28460  &, 0.729468e+00_jprb, 0.714757e+00_jprb, 0.699969e+00_jprb, 0.685141e+00_jprb &
28461  &, 0.670276e+00_jprb, 0.655393e+00_jprb, 0.640512e+00_jprb &
28462  &, 0.625652e+00_jprb, 0.610813e+00_jprb, 0.595991e+00_jprb, 0.581248e+00_jprb &
28463  &, 0.566558e+00_jprb, 0.551939e+00_jprb, 0.537405e+00_jprb &
28464  &, 0.522999e+00_jprb, 0.508687e+00_jprb, 0.494483e+00_jprb, 0.478800e+00_jprb &
28465  &, 0.466529e+00_jprb, 0.452780e+00_jprb, 0.439189e+00_jprb &
28466  &, 0.425767e+00_jprb, 0.412523e+00_jprb, 0.399464e+00_jprb, 0.386628e+00_jprb &
28467  &, 0.373963e+00_jprb, 0.361533e+00_jprb, 0.349313e+00_jprb &
28468  &, 0.337305e+00_jprb, 0.325543e+00_jprb, 0.313996e+00_jprb, 0.302695e+00_jprb &
28469  &, 0.291606e+00_jprb, 0.280793e+00_jprb, 0.270219e+00_jprb &
28470  &, 0.259877e+00_jprb, 0.249797e+00_jprb, 0.239972e+00_jprb, 0.230390e+00_jprb &
28471  &, 0.221081e+00_jprb, 0.211994e+00_jprb, 0.203193e+00_jprb &
28472  &, 0.194625e+00_jprb, 0.186314e+00_jprb, 0.178242e+00_jprb, 0.170432e+00_jprb &
28473  &, 0.162866e+00_jprb, 0.155521e+00_jprb, 0.148417e+00_jprb &
28474  &, 0.141576e+00_jprb, 0.134973e+00_jprb, 0.128581e+00_jprb, 0.122418e+00_jprb &
28475  &, 0.116501e+00_jprb, 0.110802e+00_jprb, 0.105287e+00_jprb &
28476  &, 0.100022e+00_jprb, 0.949720e-01_jprb, 0.901020e-01_jprb, 0.854254e-01_jprb &
28477  &, 0.809027e-01_jprb, 0.766530e-01_jprb, 0.725295e-01_jprb &
28478  &, 0.685970e-01_jprb, 0.648681e-01_jprb, 0.612416e-01_jprb, 0.578406e-01_jprb &
28479  &, 0.545614e-01_jprb, 0.514714e-01_jprb, 0.484616e-01_jprb &
28480  &, 0.456597e-01_jprb, 0.430152e-01_jprb, 0.404124e-01_jprb, 0.379817e-01_jprb &
28481  &, 0.357322e-01_jprb, 0.335435e-01_jprb, 0.314856e-01_jprb/)
28482 
28483 IF (lhook) CALL dr_hook('SU_MCICA:PART93',1,zhook_handle)
28484 END SUBROUTINE part93
28485 
28486 #ifdef VPP5000
28487 !OCL SCALAR
28488 #endif
28489 !option! -Nv -NO
28490 #ifdef RS6K
28491 @process nooptimize
28492 #endif
28493 !pgi$r opt=0
28494 SUBROUTINE part94
28495 
28496 REAL(KIND=JPRB) :: ZHOOK_HANDLE
28497 IF (lhook) CALL dr_hook('SU_MCICA:PART94',0,zhook_handle)
28498 
28499 xcw( 652, :) = (/ &
28500  & 0.103608e+01_jprb, 0.104416e+01_jprb, 0.105187e+01_jprb, 0.105917e+01_jprb &
28501  &, 0.106608e+01_jprb, 0.107259e+01_jprb, 0.107869e+01_jprb &
28502  &, 0.108437e+01_jprb, 0.108964e+01_jprb, 0.109447e+01_jprb, 0.109888e+01_jprb &
28503  &, 0.110286e+01_jprb, 0.110639e+01_jprb, 0.110949e+01_jprb &
28504  &, 0.111214e+01_jprb, 0.111434e+01_jprb, 0.111608e+01_jprb, 0.111737e+01_jprb &
28505  &, 0.111821e+01_jprb, 0.111858e+01_jprb, 0.111849e+01_jprb &
28506  &, 0.111793e+01_jprb, 0.111692e+01_jprb, 0.111543e+01_jprb, 0.111349e+01_jprb &
28507  &, 0.111108e+01_jprb, 0.110820e+01_jprb, 0.110486e+01_jprb &
28508  &, 0.110107e+01_jprb, 0.109681e+01_jprb, 0.109210e+01_jprb, 0.108694e+01_jprb &
28509  &, 0.108133e+01_jprb, 0.107529e+01_jprb, 0.106880e+01_jprb &
28510  &, 0.106188e+01_jprb, 0.105454e+01_jprb, 0.104679e+01_jprb, 0.103863e+01_jprb &
28511  &, 0.103006e+01_jprb, 0.102111e+01_jprb, 0.101176e+01_jprb &
28512  &, 0.100206e+01_jprb, 0.991978e+00_jprb, 0.981546e+00_jprb, 0.970782e+00_jprb &
28513  &, 0.959673e+00_jprb, 0.948258e+00_jprb, 0.936541e+00_jprb &
28514  &, 0.924516e+00_jprb, 0.912229e+00_jprb, 0.899663e+00_jprb, 0.886844e+00_jprb &
28515  &, 0.873798e+00_jprb, 0.860525e+00_jprb, 0.847039e+00_jprb &
28516  &, 0.833341e+00_jprb, 0.819478e+00_jprb, 0.805453e+00_jprb, 0.791267e+00_jprb &
28517  &, 0.776940e+00_jprb, 0.762506e+00_jprb, 0.747952e+00_jprb &
28518  &, 0.733315e+00_jprb, 0.718597e+00_jprb, 0.703817e+00_jprb, 0.688977e+00_jprb &
28519  &, 0.674116e+00_jprb, 0.659234e+00_jprb, 0.644332e+00_jprb &
28520  &, 0.629469e+00_jprb, 0.614603e+00_jprb, 0.599772e+00_jprb, 0.585018e+00_jprb &
28521  &, 0.570291e+00_jprb, 0.555654e+00_jprb, 0.541101e+00_jprb &
28522  &, 0.526671e+00_jprb, 0.512308e+00_jprb, 0.498100e+00_jprb, 0.484011e+00_jprb &
28523  &, 0.470080e+00_jprb, 0.456265e+00_jprb, 0.442632e+00_jprb &
28524  &, 0.429192e+00_jprb, 0.415899e+00_jprb, 0.402817e+00_jprb, 0.389927e+00_jprb &
28525  &, 0.377203e+00_jprb, 0.364741e+00_jprb, 0.352454e+00_jprb &
28526  &, 0.340408e+00_jprb, 0.328573e+00_jprb, 0.316981e+00_jprb, 0.305633e+00_jprb &
28527  &, 0.294494e+00_jprb, 0.283628e+00_jprb, 0.272997e+00_jprb &
28528  &, 0.262596e+00_jprb, 0.252454e+00_jprb, 0.242562e+00_jprb, 0.232911e+00_jprb &
28529  &, 0.223530e+00_jprb, 0.214405e+00_jprb, 0.205525e+00_jprb &
28530  &, 0.196915e+00_jprb, 0.188518e+00_jprb, 0.180399e+00_jprb, 0.172540e+00_jprb &
28531  &, 0.164878e+00_jprb, 0.157522e+00_jprb, 0.150361e+00_jprb &
28532  &, 0.143461e+00_jprb, 0.136795e+00_jprb, 0.130339e+00_jprb, 0.124109e+00_jprb &
28533  &, 0.118123e+00_jprb, 0.112399e+00_jprb, 0.106810e+00_jprb &
28534  &, 0.101517e+00_jprb, 0.963886e-01_jprb, 0.914367e-01_jprb, 0.867274e-01_jprb &
28535  &, 0.822236e-01_jprb, 0.778857e-01_jprb, 0.737254e-01_jprb &
28536  &, 0.697549e-01_jprb, 0.659304e-01_jprb, 0.623188e-01_jprb, 0.588179e-01_jprb &
28537  &, 0.554939e-01_jprb, 0.523576e-01_jprb, 0.493600e-01_jprb &
28538  &, 0.465095e-01_jprb, 0.437535e-01_jprb, 0.412230e-01_jprb, 0.387399e-01_jprb &
28539  &, 0.363724e-01_jprb, 0.341921e-01_jprb, 0.320770e-01_jprb/)
28540 xcw( 653, :) = (/ &
28541  & 0.103636e+01_jprb, 0.104451e+01_jprb, 0.105229e+01_jprb, 0.105967e+01_jprb &
28542  &, 0.106665e+01_jprb, 0.107323e+01_jprb, 0.107940e+01_jprb &
28543  &, 0.108516e+01_jprb, 0.109050e+01_jprb, 0.109541e+01_jprb, 0.109990e+01_jprb &
28544  &, 0.110395e+01_jprb, 0.110756e+01_jprb, 0.111073e+01_jprb &
28545  &, 0.111345e+01_jprb, 0.111573e+01_jprb, 0.111755e+01_jprb, 0.111891e+01_jprb &
28546  &, 0.111983e+01_jprb, 0.112027e+01_jprb, 0.112026e+01_jprb &
28547  &, 0.111978e+01_jprb, 0.111884e+01_jprb, 0.111743e+01_jprb, 0.111555e+01_jprb &
28548  &, 0.111321e+01_jprb, 0.111041e+01_jprb, 0.110714e+01_jprb &
28549  &, 0.110342e+01_jprb, 0.109923e+01_jprb, 0.109459e+01_jprb, 0.108950e+01_jprb &
28550  &, 0.108396e+01_jprb, 0.107798e+01_jprb, 0.107155e+01_jprb &
28551  &, 0.106470e+01_jprb, 0.105742e+01_jprb, 0.104973e+01_jprb, 0.104163e+01_jprb &
28552  &, 0.103312e+01_jprb, 0.102422e+01_jprb, 0.101493e+01_jprb &
28553  &, 0.100527e+01_jprb, 0.995247e+00_jprb, 0.984862e+00_jprb, 0.974145e+00_jprb &
28554  &, 0.963082e+00_jprb, 0.951714e+00_jprb, 0.940030e+00_jprb &
28555  &, 0.928063e+00_jprb, 0.915795e+00_jprb, 0.903275e+00_jprb, 0.890486e+00_jprb &
28556  &, 0.877469e+00_jprb, 0.864223e+00_jprb, 0.850764e+00_jprb &
28557  &, 0.837107e+00_jprb, 0.823252e+00_jprb, 0.809249e+00_jprb, 0.795068e+00_jprb &
28558  &, 0.780776e+00_jprb, 0.766343e+00_jprb, 0.751804e+00_jprb &
28559  &, 0.737162e+00_jprb, 0.722455e+00_jprb, 0.707665e+00_jprb, 0.692832e+00_jprb &
28560  &, 0.677975e+00_jprb, 0.663076e+00_jprb, 0.648173e+00_jprb &
28561  &, 0.633286e+00_jprb, 0.618414e+00_jprb, 0.603575e+00_jprb, 0.588787e+00_jprb &
28562  &, 0.574070e+00_jprb, 0.559393e+00_jprb, 0.544820e+00_jprb &
28563  &, 0.530344e+00_jprb, 0.515980e+00_jprb, 0.501743e+00_jprb, 0.487623e+00_jprb &
28564  &, 0.473630e+00_jprb, 0.459804e+00_jprb, 0.446130e+00_jprb &
28565  &, 0.432645e+00_jprb, 0.419304e+00_jprb, 0.406171e+00_jprb, 0.393225e+00_jprb &
28566  &, 0.380472e+00_jprb, 0.367948e+00_jprb, 0.355627e+00_jprb &
28567  &, 0.343511e+00_jprb, 0.331635e+00_jprb, 0.320000e+00_jprb, 0.308572e+00_jprb &
28568  &, 0.297382e+00_jprb, 0.286463e+00_jprb, 0.275776e+00_jprb &
28569  &, 0.265315e+00_jprb, 0.255110e+00_jprb, 0.245189e+00_jprb, 0.235470e+00_jprb &
28570  &, 0.226054e+00_jprb, 0.216855e+00_jprb, 0.207897e+00_jprb &
28571  &, 0.199205e+00_jprb, 0.190764e+00_jprb, 0.182598e+00_jprb, 0.174647e+00_jprb &
28572  &, 0.166977e+00_jprb, 0.159523e+00_jprb, 0.152305e+00_jprb &
28573  &, 0.145345e+00_jprb, 0.138618e+00_jprb, 0.132097e+00_jprb, 0.125846e+00_jprb &
28574  &, 0.119791e+00_jprb, 0.113997e+00_jprb, 0.108382e+00_jprb &
28575  &, 0.103013e+00_jprb, 0.978051e-01_jprb, 0.928228e-01_jprb, 0.880816e-01_jprb &
28576  &, 0.834917e-01_jprb, 0.791184e-01_jprb, 0.749214e-01_jprb &
28577  &, 0.708576e-01_jprb, 0.670486e-01_jprb, 0.633394e-01_jprb, 0.598526e-01_jprb &
28578  &, 0.564847e-01_jprb, 0.533030e-01_jprb, 0.502583e-01_jprb &
28579  &, 0.473594e-01_jprb, 0.446148e-01_jprb, 0.419712e-01_jprb, 0.394981e-01_jprb &
28580  &, 0.370766e-01_jprb, 0.348408e-01_jprb, 0.327341e-01_jprb/)
28581 xcw( 654, :) = (/ &
28582  & 0.103663e+01_jprb, 0.104486e+01_jprb, 0.105271e+01_jprb, 0.106016e+01_jprb &
28583  &, 0.106722e+01_jprb, 0.107387e+01_jprb, 0.108012e+01_jprb &
28584  &, 0.108595e+01_jprb, 0.109136e+01_jprb, 0.109635e+01_jprb, 0.110091e+01_jprb &
28585  &, 0.110503e+01_jprb, 0.110872e+01_jprb, 0.111197e+01_jprb &
28586  &, 0.111477e+01_jprb, 0.111712e+01_jprb, 0.111902e+01_jprb, 0.112046e+01_jprb &
28587  &, 0.112145e+01_jprb, 0.112197e+01_jprb, 0.112203e+01_jprb &
28588  &, 0.112162e+01_jprb, 0.112076e+01_jprb, 0.111942e+01_jprb, 0.111762e+01_jprb &
28589  &, 0.111535e+01_jprb, 0.111262e+01_jprb, 0.110943e+01_jprb &
28590  &, 0.110577e+01_jprb, 0.110166e+01_jprb, 0.109708e+01_jprb, 0.109206e+01_jprb &
28591  &, 0.108659e+01_jprb, 0.108067e+01_jprb, 0.107432e+01_jprb &
28592  &, 0.106753e+01_jprb, 0.106031e+01_jprb, 0.105267e+01_jprb, 0.104464e+01_jprb &
28593  &, 0.103619e+01_jprb, 0.102734e+01_jprb, 0.101811e+01_jprb &
28594  &, 0.100850e+01_jprb, 0.998528e+00_jprb, 0.988190e+00_jprb, 0.977519e+00_jprb &
28595  &, 0.966516e+00_jprb, 0.955182e+00_jprb, 0.943545e+00_jprb &
28596  &, 0.931611e+00_jprb, 0.919389e+00_jprb, 0.906900e+00_jprb, 0.894127e+00_jprb &
28597  &, 0.881154e+00_jprb, 0.867936e+00_jprb, 0.854504e+00_jprb &
28598  &, 0.840873e+00_jprb, 0.827042e+00_jprb, 0.813046e+00_jprb, 0.798902e+00_jprb &
28599  &, 0.784613e+00_jprb, 0.770197e+00_jprb, 0.755656e+00_jprb &
28600  &, 0.741027e+00_jprb, 0.726313e+00_jprb, 0.711551e+00_jprb, 0.696706e+00_jprb &
28601  &, 0.681835e+00_jprb, 0.666937e+00_jprb, 0.652034e+00_jprb &
28602  &, 0.637145e+00_jprb, 0.622268e+00_jprb, 0.607400e+00_jprb, 0.592602e+00_jprb &
28603  &, 0.577848e+00_jprb, 0.563179e+00_jprb, 0.548563e+00_jprb &
28604  &, 0.534065e+00_jprb, 0.519676e+00_jprb, 0.505386e+00_jprb, 0.491234e+00_jprb &
28605  &, 0.477233e+00_jprb, 0.463343e+00_jprb, 0.449655e+00_jprb &
28606  &, 0.436098e+00_jprb, 0.422738e+00_jprb, 0.409553e+00_jprb, 0.396552e+00_jprb &
28607  &, 0.383771e+00_jprb, 0.371185e+00_jprb, 0.358830e+00_jprb &
28608  &, 0.346678e+00_jprb, 0.334730e+00_jprb, 0.323018e+00_jprb, 0.311543e+00_jprb &
28609  &, 0.300338e+00_jprb, 0.289332e+00_jprb, 0.278589e+00_jprb &
28610  &, 0.268070e+00_jprb, 0.257802e+00_jprb, 0.247816e+00_jprb, 0.238066e+00_jprb &
28611  &, 0.228541e+00_jprb, 0.219305e+00_jprb, 0.210308e+00_jprb &
28612  &, 0.201535e+00_jprb, 0.193050e+00_jprb, 0.184797e+00_jprb, 0.176797e+00_jprb &
28613  &, 0.169075e+00_jprb, 0.161567e+00_jprb, 0.154293e+00_jprb &
28614  &, 0.147275e+00_jprb, 0.140486e+00_jprb, 0.133901e+00_jprb, 0.127584e+00_jprb &
28615  &, 0.121508e+00_jprb, 0.115642e+00_jprb, 0.109954e+00_jprb &
28616  &, 0.104509e+00_jprb, 0.992723e-01_jprb, 0.942601e-01_jprb, 0.894357e-01_jprb &
28617  &, 0.848126e-01_jprb, 0.803511e-01_jprb, 0.761174e-01_jprb &
28618  &, 0.720154e-01_jprb, 0.681669e-01_jprb, 0.644166e-01_jprb, 0.608873e-01_jprb &
28619  &, 0.574755e-01_jprb, 0.542483e-01_jprb, 0.511567e-01_jprb &
28620  &, 0.482092e-01_jprb, 0.454146e-01_jprb, 0.427817e-01_jprb, 0.402562e-01_jprb &
28621  &, 0.378449e-01_jprb, 0.355542e-01_jprb, 0.333913e-01_jprb/)
28622 xcw( 655, :) = (/ &
28623  & 0.103691e+01_jprb, 0.104521e+01_jprb, 0.105313e+01_jprb, 0.106065e+01_jprb &
28624  &, 0.106778e+01_jprb, 0.107451e+01_jprb, 0.108083e+01_jprb &
28625  &, 0.108674e+01_jprb, 0.109223e+01_jprb, 0.109729e+01_jprb, 0.110193e+01_jprb &
28626  &, 0.110613e+01_jprb, 0.110989e+01_jprb, 0.111322e+01_jprb &
28627  &, 0.111609e+01_jprb, 0.111852e+01_jprb, 0.112049e+01_jprb, 0.112201e+01_jprb &
28628  &, 0.112307e+01_jprb, 0.112367e+01_jprb, 0.112380e+01_jprb &
28629  &, 0.112348e+01_jprb, 0.112268e+01_jprb, 0.112142e+01_jprb, 0.111969e+01_jprb &
28630  &, 0.111750e+01_jprb, 0.111484e+01_jprb, 0.111172e+01_jprb &
28631  &, 0.110813e+01_jprb, 0.110409e+01_jprb, 0.109959e+01_jprb, 0.109463e+01_jprb &
28632  &, 0.108922e+01_jprb, 0.108337e+01_jprb, 0.107708e+01_jprb &
28633  &, 0.107036e+01_jprb, 0.106320e+01_jprb, 0.105564e+01_jprb, 0.104764e+01_jprb &
28634  &, 0.103926e+01_jprb, 0.103047e+01_jprb, 0.102129e+01_jprb &
28635  &, 0.101174e+01_jprb, 0.100182e+01_jprb, 0.991541e+00_jprb, 0.980906e+00_jprb &
28636  &, 0.969950e+00_jprb, 0.958662e+00_jprb, 0.947059e+00_jprb &
28637  &, 0.935172e+00_jprb, 0.922982e+00_jprb, 0.910538e+00_jprb, 0.897825e+00_jprb &
28638  &, 0.884853e+00_jprb, 0.871664e+00_jprb, 0.858259e+00_jprb &
28639  &, 0.844654e+00_jprb, 0.830848e+00_jprb, 0.816875e+00_jprb, 0.802752e+00_jprb &
28640  &, 0.788466e+00_jprb, 0.774068e+00_jprb, 0.759543e+00_jprb &
28641  &, 0.744929e+00_jprb, 0.730208e+00_jprb, 0.715438e+00_jprb, 0.700600e+00_jprb &
28642  &, 0.685733e+00_jprb, 0.670839e+00_jprb, 0.655917e+00_jprb &
28643  &, 0.641004e+00_jprb, 0.626122e+00_jprb, 0.611247e+00_jprb, 0.596439e+00_jprb &
28644  &, 0.581649e+00_jprb, 0.566964e+00_jprb, 0.552330e+00_jprb &
28645  &, 0.537811e+00_jprb, 0.523373e+00_jprb, 0.509055e+00_jprb, 0.494872e+00_jprb &
28646  &, 0.480836e+00_jprb, 0.466936e+00_jprb, 0.453180e+00_jprb &
28647  &, 0.439607e+00_jprb, 0.426199e+00_jprb, 0.412964e+00_jprb, 0.399939e+00_jprb &
28648  &, 0.387100e+00_jprb, 0.374454e+00_jprb, 0.362034e+00_jprb &
28649  &, 0.349844e+00_jprb, 0.337856e+00_jprb, 0.326102e+00_jprb, 0.314549e+00_jprb &
28650  &, 0.303260e+00_jprb, 0.292236e+00_jprb, 0.281403e+00_jprb &
28651  &, 0.270860e+00_jprb, 0.260531e+00_jprb, 0.250480e+00_jprb, 0.240662e+00_jprb &
28652  &, 0.231104e+00_jprb, 0.221794e+00_jprb, 0.212720e+00_jprb &
28653  &, 0.203906e+00_jprb, 0.195337e+00_jprb, 0.187037e+00_jprb, 0.178989e+00_jprb &
28654  &, 0.171173e+00_jprb, 0.163612e+00_jprb, 0.156282e+00_jprb &
28655  &, 0.149204e+00_jprb, 0.142354e+00_jprb, 0.135752e+00_jprb, 0.129369e+00_jprb &
28656  &, 0.123177e+00_jprb, 0.117288e+00_jprb, 0.111575e+00_jprb &
28657  &, 0.106054e+00_jprb, 0.100790e+00_jprb, 0.956975e-01_jprb, 0.907899e-01_jprb &
28658  &, 0.861335e-01_jprb, 0.816374e-01_jprb, 0.773677e-01_jprb &
28659  &, 0.732283e-01_jprb, 0.692851e-01_jprb, 0.654938e-01_jprb, 0.619221e-01_jprb &
28660  &, 0.584663e-01_jprb, 0.551936e-01_jprb, 0.520551e-01_jprb &
28661  &, 0.491198e-01_jprb, 0.462760e-01_jprb, 0.435299e-01_jprb, 0.410144e-01_jprb &
28662  &, 0.385491e-01_jprb, 0.362677e-01_jprb, 0.340484e-01_jprb/)
28663 xcw( 656, :) = (/ &
28664  & 0.103719e+01_jprb, 0.104556e+01_jprb, 0.105355e+01_jprb, 0.106115e+01_jprb &
28665  &, 0.106835e+01_jprb, 0.107515e+01_jprb, 0.108155e+01_jprb &
28666  &, 0.108753e+01_jprb, 0.109309e+01_jprb, 0.109823e+01_jprb, 0.110294e+01_jprb &
28667  &, 0.110722e+01_jprb, 0.111106e+01_jprb, 0.111446e+01_jprb &
28668  &, 0.111742e+01_jprb, 0.111992e+01_jprb, 0.112197e+01_jprb, 0.112356e+01_jprb &
28669  &, 0.112470e+01_jprb, 0.112537e+01_jprb, 0.112558e+01_jprb &
28670  &, 0.112533e+01_jprb, 0.112461e+01_jprb, 0.112343e+01_jprb, 0.112177e+01_jprb &
28671  &, 0.111965e+01_jprb, 0.111707e+01_jprb, 0.111401e+01_jprb &
28672  &, 0.111050e+01_jprb, 0.110653e+01_jprb, 0.110209e+01_jprb, 0.109721e+01_jprb &
28673  &, 0.109187e+01_jprb, 0.108609e+01_jprb, 0.107986e+01_jprb &
28674  &, 0.107319e+01_jprb, 0.106611e+01_jprb, 0.105860e+01_jprb, 0.105067e+01_jprb &
28675  &, 0.104234e+01_jprb, 0.103361e+01_jprb, 0.102449e+01_jprb &
28676  &, 0.101499e+01_jprb, 0.100511e+01_jprb, 0.994892e+00_jprb, 0.984304e+00_jprb &
28677  &, 0.973395e+00_jprb, 0.962155e+00_jprb, 0.950599e+00_jprb &
28678  &, 0.938746e+00_jprb, 0.926603e+00_jprb, 0.914177e+00_jprb, 0.901509e+00_jprb &
28679  &, 0.888582e+00_jprb, 0.875422e+00_jprb, 0.862030e+00_jprb &
28680  &, 0.848451e+00_jprb, 0.834670e+00_jprb, 0.820720e+00_jprb, 0.806603e+00_jprb &
28681  &, 0.792337e+00_jprb, 0.777957e+00_jprb, 0.763413e+00_jprb &
28682  &, 0.748830e+00_jprb, 0.734122e+00_jprb, 0.719362e+00_jprb, 0.704532e+00_jprb &
28683  &, 0.689652e+00_jprb, 0.674742e+00_jprb, 0.659819e+00_jprb &
28684  &, 0.644906e+00_jprb, 0.629998e+00_jprb, 0.615116e+00_jprb, 0.600276e+00_jprb &
28685  &, 0.585497e+00_jprb, 0.570773e+00_jprb, 0.556121e+00_jprb &
28686  &, 0.541556e+00_jprb, 0.527119e+00_jprb, 0.512774e+00_jprb, 0.498560e+00_jprb &
28687  &, 0.484466e+00_jprb, 0.470528e+00_jprb, 0.456732e+00_jprb &
28688  &, 0.443116e+00_jprb, 0.429661e+00_jprb, 0.416404e+00_jprb, 0.403325e+00_jprb &
28689  &, 0.390430e+00_jprb, 0.377753e+00_jprb, 0.365268e+00_jprb &
28690  &, 0.353011e+00_jprb, 0.340983e+00_jprb, 0.329186e+00_jprb, 0.317587e+00_jprb &
28691  &, 0.306250e+00_jprb, 0.295140e+00_jprb, 0.284287e+00_jprb &
28692  &, 0.273651e+00_jprb, 0.263297e+00_jprb, 0.253145e+00_jprb, 0.243296e+00_jprb &
28693  &, 0.233667e+00_jprb, 0.224283e+00_jprb, 0.215171e+00_jprb &
28694  &, 0.206316e+00_jprb, 0.197664e+00_jprb, 0.189319e+00_jprb, 0.181181e+00_jprb &
28695  &, 0.173314e+00_jprb, 0.165699e+00_jprb, 0.158314e+00_jprb &
28696  &, 0.151178e+00_jprb, 0.144268e+00_jprb, 0.137602e+00_jprb, 0.131154e+00_jprb &
28697  &, 0.124941e+00_jprb, 0.118934e+00_jprb, 0.113147e+00_jprb &
28698  &, 0.107600e+00_jprb, 0.102257e+00_jprb, 0.971349e-01_jprb, 0.921961e-01_jprb &
28699  &, 0.874545e-01_jprb, 0.829238e-01_jprb, 0.785637e-01_jprb &
28700  &, 0.744413e-01_jprb, 0.704593e-01_jprb, 0.666277e-01_jprb, 0.629568e-01_jprb &
28701  &, 0.595153e-01_jprb, 0.561980e-01_jprb, 0.530133e-01_jprb &
28702  &, 0.499697e-01_jprb, 0.471373e-01_jprb, 0.443404e-01_jprb, 0.417726e-01_jprb &
28703  &, 0.393173e-01_jprb, 0.369163e-01_jprb, 0.347055e-01_jprb/)
28704 xcw( 657, :) = (/ &
28705  & 0.103747e+01_jprb, 0.104591e+01_jprb, 0.105397e+01_jprb, 0.106165e+01_jprb &
28706  &, 0.106892e+01_jprb, 0.107580e+01_jprb, 0.108227e+01_jprb &
28707  &, 0.108832e+01_jprb, 0.109396e+01_jprb, 0.109918e+01_jprb, 0.110396e+01_jprb &
28708  &, 0.110832e+01_jprb, 0.111224e+01_jprb, 0.111571e+01_jprb &
28709  &, 0.111874e+01_jprb, 0.112132e+01_jprb, 0.112345e+01_jprb, 0.112512e+01_jprb &
28710  &, 0.112633e+01_jprb, 0.112708e+01_jprb, 0.112737e+01_jprb &
28711  &, 0.112719e+01_jprb, 0.112655e+01_jprb, 0.112544e+01_jprb, 0.112386e+01_jprb &
28712  &, 0.112181e+01_jprb, 0.111930e+01_jprb, 0.111629e+01_jprb &
28713  &, 0.111288e+01_jprb, 0.110897e+01_jprb, 0.110461e+01_jprb, 0.109979e+01_jprb &
28714  &, 0.109452e+01_jprb, 0.108880e+01_jprb, 0.108265e+01_jprb &
28715  &, 0.107605e+01_jprb, 0.106902e+01_jprb, 0.106157e+01_jprb, 0.105371e+01_jprb &
28716  &, 0.104543e+01_jprb, 0.103676e+01_jprb, 0.102770e+01_jprb &
28717  &, 0.101825e+01_jprb, 0.100843e+01_jprb, 0.998254e+00_jprb, 0.987726e+00_jprb &
28718  &, 0.976853e+00_jprb, 0.965661e+00_jprb, 0.954153e+00_jprb &
28719  &, 0.942333e+00_jprb, 0.930223e+00_jprb, 0.917844e+00_jprb, 0.905207e+00_jprb &
28720  &, 0.892310e+00_jprb, 0.879180e+00_jprb, 0.865831e+00_jprb &
28721  &, 0.852263e+00_jprb, 0.838507e+00_jprb, 0.824581e+00_jprb, 0.810487e+00_jprb &
28722  &, 0.796241e+00_jprb, 0.781863e+00_jprb, 0.767353e+00_jprb &
28723  &, 0.752750e+00_jprb, 0.738054e+00_jprb, 0.723286e+00_jprb, 0.708465e+00_jprb &
28724  &, 0.693591e+00_jprb, 0.678684e+00_jprb, 0.663743e+00_jprb &
28725  &, 0.648828e+00_jprb, 0.633895e+00_jprb, 0.619006e+00_jprb, 0.604157e+00_jprb &
28726  &, 0.589344e+00_jprb, 0.574606e+00_jprb, 0.559936e+00_jprb &
28727  &, 0.545350e+00_jprb, 0.530864e+00_jprb, 0.516493e+00_jprb, 0.502249e+00_jprb &
28728  &, 0.488122e+00_jprb, 0.474148e+00_jprb, 0.460339e+00_jprb &
28729  &, 0.446680e+00_jprb, 0.433179e+00_jprb, 0.419873e+00_jprb, 0.406741e+00_jprb &
28730  &, 0.393819e+00_jprb, 0.381082e+00_jprb, 0.368565e+00_jprb &
28731  &, 0.356241e+00_jprb, 0.344142e+00_jprb, 0.332303e+00_jprb, 0.320659e+00_jprb &
28732  &, 0.309240e+00_jprb, 0.298078e+00_jprb, 0.287171e+00_jprb &
28733  &, 0.276477e+00_jprb, 0.266062e+00_jprb, 0.255883e+00_jprb, 0.245930e+00_jprb &
28734  &, 0.236268e+00_jprb, 0.226811e+00_jprb, 0.217621e+00_jprb &
28735  &, 0.208687e+00_jprb, 0.200032e+00_jprb, 0.191601e+00_jprb, 0.183415e+00_jprb &
28736  &, 0.175498e+00_jprb, 0.167787e+00_jprb, 0.160346e+00_jprb &
28737  &, 0.153153e+00_jprb, 0.146182e+00_jprb, 0.139453e+00_jprb, 0.132939e+00_jprb &
28738  &, 0.126658e+00_jprb, 0.120628e+00_jprb, 0.114818e+00_jprb &
28739  &, 0.109195e+00_jprb, 0.103826e+00_jprb, 0.986236e-01_jprb, 0.936544e-01_jprb &
28740  &, 0.888282e-01_jprb, 0.842637e-01_jprb, 0.798684e-01_jprb &
28741  &, 0.756542e-01_jprb, 0.715775e-01_jprb, 0.677616e-01_jprb, 0.640491e-01_jprb &
28742  &, 0.605061e-01_jprb, 0.571434e-01_jprb, 0.539716e-01_jprb &
28743  &, 0.508802e-01_jprb, 0.479986e-01_jprb, 0.452133e-01_jprb, 0.425308e-01_jprb &
28744  &, 0.400215e-01_jprb, 0.376947e-01_jprb, 0.354283e-01_jprb/)
28745 xcw( 658, :) = (/ &
28746  & 0.103775e+01_jprb, 0.104626e+01_jprb, 0.105440e+01_jprb, 0.106214e+01_jprb &
28747  &, 0.106949e+01_jprb, 0.107644e+01_jprb, 0.108299e+01_jprb &
28748  &, 0.108912e+01_jprb, 0.109483e+01_jprb, 0.110012e+01_jprb, 0.110499e+01_jprb &
28749  &, 0.110942e+01_jprb, 0.111341e+01_jprb, 0.111696e+01_jprb &
28750  &, 0.112007e+01_jprb, 0.112273e+01_jprb, 0.112493e+01_jprb, 0.112668e+01_jprb &
28751  &, 0.112797e+01_jprb, 0.112879e+01_jprb, 0.112915e+01_jprb &
28752  &, 0.112905e+01_jprb, 0.112848e+01_jprb, 0.112745e+01_jprb, 0.112594e+01_jprb &
28753  &, 0.112397e+01_jprb, 0.112153e+01_jprb, 0.111862e+01_jprb &
28754  &, 0.111525e+01_jprb, 0.111142e+01_jprb, 0.110713e+01_jprb, 0.110238e+01_jprb &
28755  &, 0.109718e+01_jprb, 0.109153e+01_jprb, 0.108543e+01_jprb &
28756  &, 0.107890e+01_jprb, 0.107194e+01_jprb, 0.106456e+01_jprb, 0.105675e+01_jprb &
28757  &, 0.104853e+01_jprb, 0.103992e+01_jprb, 0.103091e+01_jprb &
28758  &, 0.102151e+01_jprb, 0.101175e+01_jprb, 0.100163e+01_jprb, 0.991149e+00_jprb &
28759  &, 0.980323e+00_jprb, 0.969179e+00_jprb, 0.957706e+00_jprb &
28760  &, 0.945933e+00_jprb, 0.933870e+00_jprb, 0.921524e+00_jprb, 0.908919e+00_jprb &
28761  &, 0.896053e+00_jprb, 0.882952e+00_jprb, 0.869632e+00_jprb &
28762  &, 0.856091e+00_jprb, 0.842361e+00_jprb, 0.828459e+00_jprb, 0.814370e+00_jprb &
28763  &, 0.800145e+00_jprb, 0.785786e+00_jprb, 0.771294e+00_jprb &
28764  &, 0.756688e+00_jprb, 0.742005e+00_jprb, 0.727248e+00_jprb, 0.712416e+00_jprb &
28765  &, 0.697529e+00_jprb, 0.682627e+00_jprb, 0.667687e+00_jprb &
28766  &, 0.652750e+00_jprb, 0.637836e+00_jprb, 0.622919e+00_jprb, 0.608039e+00_jprb &
28767  &, 0.593214e+00_jprb, 0.578461e+00_jprb, 0.563774e+00_jprb &
28768  &, 0.549169e+00_jprb, 0.534660e+00_jprb, 0.520237e+00_jprb, 0.505964e+00_jprb &
28769  &, 0.491804e+00_jprb, 0.477794e+00_jprb, 0.463946e+00_jprb &
28770  &, 0.450245e+00_jprb, 0.436698e+00_jprb, 0.423342e+00_jprb, 0.410187e+00_jprb &
28771  &, 0.397208e+00_jprb, 0.384411e+00_jprb, 0.371862e+00_jprb &
28772  &, 0.359502e+00_jprb, 0.347333e+00_jprb, 0.335420e+00_jprb, 0.323731e+00_jprb &
28773  &, 0.312298e+00_jprb, 0.301051e+00_jprb, 0.290090e+00_jprb &
28774  &, 0.279339e+00_jprb, 0.268864e+00_jprb, 0.258621e+00_jprb, 0.248601e+00_jprb &
28775  &, 0.238870e+00_jprb, 0.229378e+00_jprb, 0.220151e+00_jprb &
28776  &, 0.211138e+00_jprb, 0.202400e+00_jprb, 0.193924e+00_jprb, 0.185649e+00_jprb &
28777  &, 0.177682e+00_jprb, 0.169919e+00_jprb, 0.162423e+00_jprb &
28778  &, 0.155172e+00_jprb, 0.148141e+00_jprb, 0.141350e+00_jprb, 0.134771e+00_jprb &
28779  &, 0.128470e+00_jprb, 0.122322e+00_jprb, 0.116439e+00_jprb &
28780  &, 0.110791e+00_jprb, 0.105343e+00_jprb, 0.100112e+00_jprb, 0.950606e-01_jprb &
28781  &, 0.902548e-01_jprb, 0.856036e-01_jprb, 0.811187e-01_jprb &
28782  &, 0.768672e-01_jprb, 0.728076e-01_jprb, 0.688956e-01_jprb, 0.651413e-01_jprb &
28783  &, 0.615552e-01_jprb, 0.581478e-01_jprb, 0.549298e-01_jprb &
28784  &, 0.517908e-01_jprb, 0.488600e-01_jprb, 0.460239e-01_jprb, 0.433521e-01_jprb &
28785  &, 0.407897e-01_jprb, 0.384082e-01_jprb, 0.360854e-01_jprb/)
28786 
28787 IF (lhook) CALL dr_hook('SU_MCICA:PART94',1,zhook_handle)
28788 END SUBROUTINE part94
28789 
28790 #ifdef VPP5000
28791 !OCL SCALAR
28792 #endif
28793 !option! -Nv -NO
28794 #ifdef RS6K
28795 @process nooptimize
28796 #endif
28797 !pgi$r opt=0
28798 SUBROUTINE part95
28799 
28800 REAL(KIND=JPRB) :: ZHOOK_HANDLE
28801 IF (lhook) CALL dr_hook('SU_MCICA:PART95',0,zhook_handle)
28802 
28803 xcw( 659, :) = (/ &
28804  & 0.103803e+01_jprb, 0.104661e+01_jprb, 0.105482e+01_jprb, 0.106264e+01_jprb &
28805  &, 0.107006e+01_jprb, 0.107709e+01_jprb, 0.108371e+01_jprb &
28806  &, 0.108991e+01_jprb, 0.109570e+01_jprb, 0.110107e+01_jprb, 0.110601e+01_jprb &
28807  &, 0.111052e+01_jprb, 0.111459e+01_jprb, 0.111822e+01_jprb &
28808  &, 0.112140e+01_jprb, 0.112413e+01_jprb, 0.112642e+01_jprb, 0.112824e+01_jprb &
28809  &, 0.112960e+01_jprb, 0.113051e+01_jprb, 0.113095e+01_jprb &
28810  &, 0.113092e+01_jprb, 0.113043e+01_jprb, 0.112947e+01_jprb, 0.112804e+01_jprb &
28811  &, 0.112614e+01_jprb, 0.112377e+01_jprb, 0.112094e+01_jprb &
28812  &, 0.111764e+01_jprb, 0.111388e+01_jprb, 0.110966e+01_jprb, 0.110498e+01_jprb &
28813  &, 0.109984e+01_jprb, 0.109426e+01_jprb, 0.108823e+01_jprb &
28814  &, 0.108177e+01_jprb, 0.107487e+01_jprb, 0.106755e+01_jprb, 0.105980e+01_jprb &
28815  &, 0.105165e+01_jprb, 0.104309e+01_jprb, 0.103414e+01_jprb &
28816  &, 0.102480e+01_jprb, 0.101509e+01_jprb, 0.100501e+01_jprb, 0.994583e+00_jprb &
28817  &, 0.983806e+00_jprb, 0.972710e+00_jprb, 0.961284e+00_jprb &
28818  &, 0.949547e+00_jprb, 0.937517e+00_jprb, 0.925218e+00_jprb, 0.912645e+00_jprb &
28819  &, 0.899810e+00_jprb, 0.886739e+00_jprb, 0.873447e+00_jprb &
28820  &, 0.859934e+00_jprb, 0.846230e+00_jprb, 0.832353e+00_jprb, 0.818287e+00_jprb &
28821  &, 0.804067e+00_jprb, 0.789727e+00_jprb, 0.775252e+00_jprb &
28822  &, 0.760662e+00_jprb, 0.745975e+00_jprb, 0.731210e+00_jprb, 0.716387e+00_jprb &
28823  &, 0.701507e+00_jprb, 0.686589e+00_jprb, 0.671652e+00_jprb &
28824  &, 0.656715e+00_jprb, 0.641776e+00_jprb, 0.626854e+00_jprb, 0.611966e+00_jprb &
28825  &, 0.597130e+00_jprb, 0.582340e+00_jprb, 0.567613e+00_jprb &
28826  &, 0.552987e+00_jprb, 0.538456e+00_jprb, 0.524032e+00_jprb, 0.509705e+00_jprb &
28827  &, 0.495512e+00_jprb, 0.481467e+00_jprb, 0.467581e+00_jprb &
28828  &, 0.453837e+00_jprb, 0.440273e+00_jprb, 0.426869e+00_jprb, 0.413632e+00_jprb &
28829  &, 0.400627e+00_jprb, 0.387802e+00_jprb, 0.375159e+00_jprb &
28830  &, 0.362764e+00_jprb, 0.350557e+00_jprb, 0.338603e+00_jprb, 0.326870e+00_jprb &
28831  &, 0.315356e+00_jprb, 0.304059e+00_jprb, 0.293044e+00_jprb &
28832  &, 0.282237e+00_jprb, 0.271665e+00_jprb, 0.261359e+00_jprb, 0.251310e+00_jprb &
28833  &, 0.241509e+00_jprb, 0.231944e+00_jprb, 0.222642e+00_jprb &
28834  &, 0.213588e+00_jprb, 0.204809e+00_jprb, 0.196247e+00_jprb, 0.187925e+00_jprb &
28835  &, 0.179866e+00_jprb, 0.172094e+00_jprb, 0.164499e+00_jprb &
28836  &, 0.157191e+00_jprb, 0.150100e+00_jprb, 0.143247e+00_jprb, 0.136650e+00_jprb &
28837  &, 0.130234e+00_jprb, 0.124064e+00_jprb, 0.118158e+00_jprb &
28838  &, 0.112436e+00_jprb, 0.106912e+00_jprb, 0.101601e+00_jprb, 0.965189e-01_jprb &
28839  &, 0.916285e-01_jprb, 0.869435e-01_jprb, 0.824234e-01_jprb &
28840  &, 0.781353e-01_jprb, 0.739817e-01_jprb, 0.700295e-01_jprb, 0.662335e-01_jprb &
28841  &, 0.626625e-01_jprb, 0.592113e-01_jprb, 0.558881e-01_jprb &
28842  &, 0.527621e-01_jprb, 0.497828e-01_jprb, 0.468968e-01_jprb, 0.441735e-01_jprb &
28843  &, 0.416219e-01_jprb, 0.391216e-01_jprb, 0.368082e-01_jprb/)
28844 xcw( 660, :) = (/ &
28845  & 0.103831e+01_jprb, 0.104697e+01_jprb, 0.105525e+01_jprb, 0.106314e+01_jprb &
28846  &, 0.107063e+01_jprb, 0.107773e+01_jprb, 0.108443e+01_jprb &
28847  &, 0.109071e+01_jprb, 0.109658e+01_jprb, 0.110202e+01_jprb, 0.110703e+01_jprb &
28848  &, 0.111162e+01_jprb, 0.111577e+01_jprb, 0.111947e+01_jprb &
28849  &, 0.112273e+01_jprb, 0.112554e+01_jprb, 0.112790e+01_jprb, 0.112980e+01_jprb &
28850  &, 0.113125e+01_jprb, 0.113223e+01_jprb, 0.113274e+01_jprb &
28851  &, 0.113279e+01_jprb, 0.113237e+01_jprb, 0.113149e+01_jprb, 0.113013e+01_jprb &
28852  &, 0.112831e+01_jprb, 0.112602e+01_jprb, 0.112326e+01_jprb &
28853  &, 0.112003e+01_jprb, 0.111634e+01_jprb, 0.111219e+01_jprb, 0.110758e+01_jprb &
28854  &, 0.110251e+01_jprb, 0.109700e+01_jprb, 0.109104e+01_jprb &
28855  &, 0.108463e+01_jprb, 0.107780e+01_jprb, 0.107054e+01_jprb, 0.106286e+01_jprb &
28856  &, 0.105477e+01_jprb, 0.104626e+01_jprb, 0.103737e+01_jprb &
28857  &, 0.102809e+01_jprb, 0.101844e+01_jprb, 0.100841e+01_jprb, 0.998029e+00_jprb &
28858  &, 0.987300e+00_jprb, 0.976240e+00_jprb, 0.964863e+00_jprb &
28859  &, 0.953174e+00_jprb, 0.941192e+00_jprb, 0.928926e+00_jprb, 0.916386e+00_jprb &
28860  &, 0.903596e+00_jprb, 0.890556e+00_jprb, 0.877278e+00_jprb &
28861  &, 0.863808e+00_jprb, 0.850115e+00_jprb, 0.836247e+00_jprb, 0.822221e+00_jprb &
28862  &, 0.808022e+00_jprb, 0.793685e+00_jprb, 0.779211e+00_jprb &
28863  &, 0.764636e+00_jprb, 0.749963e+00_jprb, 0.735210e+00_jprb, 0.720320e+00_jprb &
28864  &, 0.705505e+00_jprb, 0.690592e+00_jprb, 0.675658e+00_jprb &
28865  &, 0.660701e+00_jprb, 0.645738e+00_jprb, 0.630811e+00_jprb, 0.615915e+00_jprb &
28866  &, 0.601046e+00_jprb, 0.586243e+00_jprb, 0.571499e+00_jprb &
28867  &, 0.556854e+00_jprb, 0.542276e+00_jprb, 0.527827e+00_jprb, 0.513471e+00_jprb &
28868  &, 0.499247e+00_jprb, 0.485167e+00_jprb, 0.471242e+00_jprb &
28869  &, 0.457457e+00_jprb, 0.443848e+00_jprb, 0.430396e+00_jprb, 0.417136e+00_jprb &
28870  &, 0.404076e+00_jprb, 0.391192e+00_jprb, 0.378518e+00_jprb &
28871  &, 0.366057e+00_jprb, 0.353812e+00_jprb, 0.341785e+00_jprb, 0.329975e+00_jprb &
28872  &, 0.318414e+00_jprb, 0.307101e+00_jprb, 0.295998e+00_jprb &
28873  &, 0.285134e+00_jprb, 0.274540e+00_jprb, 0.264171e+00_jprb, 0.254057e+00_jprb &
28874  &, 0.244187e+00_jprb, 0.234550e+00_jprb, 0.225211e+00_jprb &
28875  &, 0.216079e+00_jprb, 0.207218e+00_jprb, 0.198612e+00_jprb, 0.190244e+00_jprb &
28876  &, 0.182136e+00_jprb, 0.174269e+00_jprb, 0.166620e+00_jprb &
28877  &, 0.159255e+00_jprb, 0.152105e+00_jprb, 0.145190e+00_jprb, 0.138482e+00_jprb &
28878  &, 0.132046e+00_jprb, 0.125855e+00_jprb, 0.119829e+00_jprb &
28879  &, 0.114081e+00_jprb, 0.108480e+00_jprb, 0.103141e+00_jprb, 0.980293e-01_jprb &
28880  &, 0.930551e-01_jprb, 0.883370e-01_jprb, 0.837825e-01_jprb &
28881  &, 0.794034e-01_jprb, 0.752118e-01_jprb, 0.712201e-01_jprb, 0.673832e-01_jprb &
28882  &, 0.637116e-01_jprb, 0.602157e-01_jprb, 0.569062e-01_jprb &
28883  &, 0.536726e-01_jprb, 0.506442e-01_jprb, 0.477697e-01_jprb, 0.449948e-01_jprb &
28884  &, 0.423902e-01_jprb, 0.399000e-01_jprb, 0.375311e-01_jprb/)
28885 xcw( 661, :) = (/ &
28886  & 0.103859e+01_jprb, 0.104732e+01_jprb, 0.105567e+01_jprb, 0.106363e+01_jprb &
28887  &, 0.107121e+01_jprb, 0.107838e+01_jprb, 0.108515e+01_jprb &
28888  &, 0.109151e+01_jprb, 0.109745e+01_jprb, 0.110297e+01_jprb, 0.110806e+01_jprb &
28889  &, 0.111272e+01_jprb, 0.111695e+01_jprb, 0.112073e+01_jprb &
28890  &, 0.112407e+01_jprb, 0.112696e+01_jprb, 0.112939e+01_jprb, 0.113137e+01_jprb &
28891  &, 0.113289e+01_jprb, 0.113395e+01_jprb, 0.113454e+01_jprb &
28892  &, 0.113467e+01_jprb, 0.113433e+01_jprb, 0.113352e+01_jprb, 0.113224e+01_jprb &
28893  &, 0.113049e+01_jprb, 0.112827e+01_jprb, 0.112558e+01_jprb &
28894  &, 0.112242e+01_jprb, 0.111881e+01_jprb, 0.111473e+01_jprb, 0.111019e+01_jprb &
28895  &, 0.110519e+01_jprb, 0.109975e+01_jprb, 0.109386e+01_jprb &
28896  &, 0.108752e+01_jprb, 0.108075e+01_jprb, 0.107355e+01_jprb, 0.106593e+01_jprb &
28897  &, 0.105789e+01_jprb, 0.104946e+01_jprb, 0.104062e+01_jprb &
28898  &, 0.103139e+01_jprb, 0.102179e+01_jprb, 0.101182e+01_jprb, 0.100149e+01_jprb &
28899  &, 0.990807e+00_jprb, 0.979796e+00_jprb, 0.968468e+00_jprb &
28900  &, 0.956813e+00_jprb, 0.944879e+00_jprb, 0.932647e+00_jprb, 0.920140e+00_jprb &
28901  &, 0.907382e+00_jprb, 0.894373e+00_jprb, 0.881140e+00_jprb &
28902  &, 0.867683e+00_jprb, 0.854032e+00_jprb, 0.840173e+00_jprb, 0.826154e+00_jprb &
28903  &, 0.811977e+00_jprb, 0.797660e+00_jprb, 0.783204e+00_jprb &
28904  &, 0.768647e+00_jprb, 0.753969e+00_jprb, 0.739229e+00_jprb, 0.724407e+00_jprb &
28905  &, 0.709523e+00_jprb, 0.694596e+00_jprb, 0.679664e+00_jprb &
28906  &, 0.664686e+00_jprb, 0.649743e+00_jprb, 0.634790e+00_jprb, 0.619864e+00_jprb &
28907  &, 0.604985e+00_jprb, 0.590169e+00_jprb, 0.575409e+00_jprb &
28908  &, 0.560722e+00_jprb, 0.546121e+00_jprb, 0.531647e+00_jprb, 0.517263e+00_jprb &
28909  &, 0.503008e+00_jprb, 0.488893e+00_jprb, 0.474931e+00_jprb &
28910  &, 0.461105e+00_jprb, 0.447452e+00_jprb, 0.433952e+00_jprb, 0.420670e+00_jprb &
28911  &, 0.407526e+00_jprb, 0.394613e+00_jprb, 0.381908e+00_jprb &
28912  &, 0.369382e+00_jprb, 0.357100e+00_jprb, 0.345001e+00_jprb, 0.333147e+00_jprb &
28913  &, 0.321540e+00_jprb, 0.310144e+00_jprb, 0.298988e+00_jprb &
28914  &, 0.288068e+00_jprb, 0.277414e+00_jprb, 0.266983e+00_jprb, 0.256803e+00_jprb &
28915  &, 0.246865e+00_jprb, 0.237194e+00_jprb, 0.227781e+00_jprb &
28916  &, 0.218610e+00_jprb, 0.209668e+00_jprb, 0.200977e+00_jprb, 0.192562e+00_jprb &
28917  &, 0.184406e+00_jprb, 0.176444e+00_jprb, 0.168785e+00_jprb &
28918  &, 0.161319e+00_jprb, 0.154110e+00_jprb, 0.147133e+00_jprb, 0.140408e+00_jprb &
28919  &, 0.133906e+00_jprb, 0.127598e+00_jprb, 0.121548e+00_jprb &
28920  &, 0.115726e+00_jprb, 0.110099e+00_jprb, 0.104681e+00_jprb, 0.994876e-01_jprb &
28921  &, 0.945345e-01_jprb, 0.897305e-01_jprb, 0.850872e-01_jprb &
28922  &, 0.806715e-01_jprb, 0.764419e-01_jprb, 0.724107e-01_jprb, 0.685329e-01_jprb &
28923  &, 0.648189e-01_jprb, 0.612792e-01_jprb, 0.579243e-01_jprb &
28924  &, 0.546439e-01_jprb, 0.515670e-01_jprb, 0.486426e-01_jprb, 0.458793e-01_jprb &
28925  &, 0.432224e-01_jprb, 0.406783e-01_jprb, 0.382539e-01_jprb/)
28926 xcw( 662, :) = (/ &
28927  & 0.103887e+01_jprb, 0.104767e+01_jprb, 0.105610e+01_jprb, 0.106413e+01_jprb &
28928  &, 0.107178e+01_jprb, 0.107903e+01_jprb, 0.108587e+01_jprb &
28929  &, 0.109231e+01_jprb, 0.109832e+01_jprb, 0.110392e+01_jprb, 0.110909e+01_jprb &
28930  &, 0.111382e+01_jprb, 0.111813e+01_jprb, 0.112199e+01_jprb &
28931  &, 0.112541e+01_jprb, 0.112837e+01_jprb, 0.113089e+01_jprb, 0.113294e+01_jprb &
28932  &, 0.113454e+01_jprb, 0.113568e+01_jprb, 0.113634e+01_jprb &
28933  &, 0.113655e+01_jprb, 0.113628e+01_jprb, 0.113555e+01_jprb, 0.113434e+01_jprb &
28934  &, 0.113267e+01_jprb, 0.113053e+01_jprb, 0.112791e+01_jprb &
28935  &, 0.112483e+01_jprb, 0.112127e+01_jprb, 0.111728e+01_jprb, 0.111281e+01_jprb &
28936  &, 0.110788e+01_jprb, 0.110250e+01_jprb, 0.109668e+01_jprb &
28937  &, 0.109041e+01_jprb, 0.108371e+01_jprb, 0.107657e+01_jprb, 0.106901e+01_jprb &
28938  &, 0.106104e+01_jprb, 0.105266e+01_jprb, 0.104388e+01_jprb &
28939  &, 0.103470e+01_jprb, 0.102516e+01_jprb, 0.101524e+01_jprb, 0.100496e+01_jprb &
28940  &, 0.994339e+00_jprb, 0.983364e+00_jprb, 0.971982e+00_jprb &
28941  &, 0.960479e+00_jprb, 0.948567e+00_jprb, 0.936383e+00_jprb, 0.923908e+00_jprb &
28942  &, 0.911183e+00_jprb, 0.898219e+00_jprb, 0.885001e+00_jprb &
28943  &, 0.871572e+00_jprb, 0.857949e+00_jprb, 0.844132e+00_jprb, 0.830121e+00_jprb &
28944  &, 0.815966e+00_jprb, 0.801653e+00_jprb, 0.787216e+00_jprb &
28945  &, 0.772657e+00_jprb, 0.758013e+00_jprb, 0.743267e+00_jprb, 0.728436e+00_jprb &
28946  &, 0.713561e+00_jprb, 0.698639e+00_jprb, 0.683691e+00_jprb &
28947  &, 0.668714e+00_jprb, 0.653748e+00_jprb, 0.638790e+00_jprb, 0.623858e+00_jprb &
28948  &, 0.608969e+00_jprb, 0.594118e+00_jprb, 0.579343e+00_jprb &
28949  &, 0.564637e+00_jprb, 0.550016e+00_jprb, 0.535493e+00_jprb, 0.521081e+00_jprb &
28950  &, 0.506795e+00_jprb, 0.492647e+00_jprb, 0.478648e+00_jprb &
28951  &, 0.464781e+00_jprb, 0.451084e+00_jprb, 0.437565e+00_jprb, 0.424204e+00_jprb &
28952  &, 0.411035e+00_jprb, 0.398065e+00_jprb, 0.385298e+00_jprb &
28953  &, 0.372738e+00_jprb, 0.360388e+00_jprb, 0.348249e+00_jprb, 0.336353e+00_jprb &
28954  &, 0.324666e+00_jprb, 0.313220e+00_jprb, 0.302012e+00_jprb &
28955  &, 0.291037e+00_jprb, 0.280325e+00_jprb, 0.269833e+00_jprb, 0.259588e+00_jprb &
28956  &, 0.249619e+00_jprb, 0.239878e+00_jprb, 0.230390e+00_jprb &
28957  &, 0.221141e+00_jprb, 0.212158e+00_jprb, 0.203425e+00_jprb, 0.194923e+00_jprb &
28958  &, 0.186675e+00_jprb, 0.178662e+00_jprb, 0.170950e+00_jprb &
28959  &, 0.163428e+00_jprb, 0.156160e+00_jprb, 0.149122e+00_jprb, 0.142333e+00_jprb &
28960  &, 0.135766e+00_jprb, 0.129437e+00_jprb, 0.123317e+00_jprb &
28961  &, 0.117422e+00_jprb, 0.111769e+00_jprb, 0.106272e+00_jprb, 0.101050e+00_jprb &
28962  &, 0.959611e-01_jprb, 0.911240e-01_jprb, 0.864462e-01_jprb &
28963  &, 0.819947e-01_jprb, 0.777279e-01_jprb, 0.736013e-01_jprb, 0.696827e-01_jprb &
28964  &, 0.659263e-01_jprb, 0.623427e-01_jprb, 0.589425e-01_jprb &
28965  &, 0.556759e-01_jprb, 0.525514e-01_jprb, 0.495778e-01_jprb, 0.467007e-01_jprb &
28966  &, 0.440546e-01_jprb, 0.414567e-01_jprb, 0.390424e-01_jprb/)
28967 xcw( 663, :) = (/ &
28968  & 0.103915e+01_jprb, 0.104803e+01_jprb, 0.105652e+01_jprb, 0.106463e+01_jprb &
28969  &, 0.107236e+01_jprb, 0.107968e+01_jprb, 0.108660e+01_jprb &
28970  &, 0.109311e+01_jprb, 0.109920e+01_jprb, 0.110487e+01_jprb, 0.111012e+01_jprb &
28971  &, 0.111494e+01_jprb, 0.111932e+01_jprb, 0.112325e+01_jprb &
28972  &, 0.112675e+01_jprb, 0.112979e+01_jprb, 0.113238e+01_jprb, 0.113452e+01_jprb &
28973  &, 0.113619e+01_jprb, 0.113740e+01_jprb, 0.113815e+01_jprb &
28974  &, 0.113843e+01_jprb, 0.113824e+01_jprb, 0.113759e+01_jprb, 0.113646e+01_jprb &
28975  &, 0.113486e+01_jprb, 0.113279e+01_jprb, 0.113025e+01_jprb &
28976  &, 0.112725e+01_jprb, 0.112377e+01_jprb, 0.111983e+01_jprb, 0.111543e+01_jprb &
28977  &, 0.111058e+01_jprb, 0.110527e+01_jprb, 0.109951e+01_jprb &
28978  &, 0.109330e+01_jprb, 0.108666e+01_jprb, 0.107959e+01_jprb, 0.107210e+01_jprb &
28979  &, 0.106419e+01_jprb, 0.105586e+01_jprb, 0.104714e+01_jprb &
28980  &, 0.103804e+01_jprb, 0.102854e+01_jprb, 0.101867e+01_jprb, 0.100844e+01_jprb &
28981  &, 0.997870e+00_jprb, 0.986945e+00_jprb, 0.975702e+00_jprb &
28982  &, 0.964145e+00_jprb, 0.952282e+00_jprb, 0.940132e+00_jprb, 0.927705e+00_jprb &
28983  &, 0.915013e+00_jprb, 0.902066e+00_jprb, 0.888893e+00_jprb &
28984  &, 0.875493e+00_jprb, 0.861882e+00_jprb, 0.848091e+00_jprb, 0.834104e+00_jprb &
28985  &, 0.819973e+00_jprb, 0.805680e+00_jprb, 0.791245e+00_jprb &
28986  &, 0.776704e+00_jprb, 0.762057e+00_jprb, 0.747305e+00_jprb, 0.732504e+00_jprb &
28987  &, 0.717618e+00_jprb, 0.702703e+00_jprb, 0.687738e+00_jprb &
28988  &, 0.672763e+00_jprb, 0.657775e+00_jprb, 0.642813e+00_jprb, 0.627852e+00_jprb &
28989  &, 0.612954e+00_jprb, 0.598090e+00_jprb, 0.583277e+00_jprb &
28990  &, 0.568553e+00_jprb, 0.553911e+00_jprb, 0.539363e+00_jprb, 0.524925e+00_jprb &
28991  &, 0.510609e+00_jprb, 0.496427e+00_jprb, 0.482364e+00_jprb &
28992  &, 0.468485e+00_jprb, 0.454744e+00_jprb, 0.441179e+00_jprb, 0.427767e+00_jprb &
28993  &, 0.414574e+00_jprb, 0.401547e+00_jprb, 0.388719e+00_jprb &
28994  &, 0.376126e+00_jprb, 0.363708e+00_jprb, 0.351530e+00_jprb, 0.339558e+00_jprb &
28995  &, 0.327826e+00_jprb, 0.316332e+00_jprb, 0.305072e+00_jprb &
28996  &, 0.294042e+00_jprb, 0.283236e+00_jprb, 0.272682e+00_jprb, 0.262410e+00_jprb &
28997  &, 0.252335e+00_jprb, 0.242561e+00_jprb, 0.232999e+00_jprb &
28998  &, 0.223713e+00_jprb, 0.214649e+00_jprb, 0.205831e+00_jprb, 0.197283e+00_jprb &
28999  &, 0.188988e+00_jprb, 0.180924e+00_jprb, 0.173115e+00_jprb &
29000  &, 0.165537e+00_jprb, 0.158211e+00_jprb, 0.151112e+00_jprb, 0.144259e+00_jprb &
29001  &, 0.137625e+00_jprb, 0.131228e+00_jprb, 0.125085e+00_jprb &
29002  &, 0.119117e+00_jprb, 0.113388e+00_jprb, 0.107864e+00_jprb, 0.102561e+00_jprb &
29003  &, 0.974405e-01_jprb, 0.925711e-01_jprb, 0.878596e-01_jprb &
29004  &, 0.833179e-01_jprb, 0.790138e-01_jprb, 0.748486e-01_jprb, 0.708899e-01_jprb &
29005  &, 0.670919e-01_jprb, 0.634652e-01_jprb, 0.599606e-01_jprb &
29006  &, 0.566472e-01_jprb, 0.534743e-01_jprb, 0.504507e-01_jprb, 0.475852e-01_jprb &
29007  &, 0.448869e-01_jprb, 0.422350e-01_jprb, 0.397652e-01_jprb/)
29008 xcw( 664, :) = (/ &
29009  & 0.103943e+01_jprb, 0.104838e+01_jprb, 0.105695e+01_jprb, 0.106513e+01_jprb &
29010  &, 0.107293e+01_jprb, 0.108033e+01_jprb, 0.108732e+01_jprb &
29011  &, 0.109391e+01_jprb, 0.110008e+01_jprb, 0.110583e+01_jprb, 0.111115e+01_jprb &
29012  &, 0.111605e+01_jprb, 0.112050e+01_jprb, 0.112452e+01_jprb &
29013  &, 0.112809e+01_jprb, 0.113121e+01_jprb, 0.113388e+01_jprb, 0.113609e+01_jprb &
29014  &, 0.113785e+01_jprb, 0.113914e+01_jprb, 0.113996e+01_jprb &
29015  &, 0.114032e+01_jprb, 0.114021e+01_jprb, 0.113963e+01_jprb, 0.113858e+01_jprb &
29016  &, 0.113705e+01_jprb, 0.113500e+01_jprb, 0.113259e+01_jprb &
29017  &, 0.112966e+01_jprb, 0.112626e+01_jprb, 0.112239e+01_jprb, 0.111807e+01_jprb &
29018  &, 0.111328e+01_jprb, 0.110804e+01_jprb, 0.110235e+01_jprb &
29019  &, 0.109621e+01_jprb, 0.108964e+01_jprb, 0.108263e+01_jprb, 0.107520e+01_jprb &
29020  &, 0.106735e+01_jprb, 0.105909e+01_jprb, 0.105043e+01_jprb &
29021  &, 0.104137e+01_jprb, 0.103192e+01_jprb, 0.102212e+01_jprb, 0.101194e+01_jprb &
29022  &, 0.100141e+01_jprb, 0.990538e+00_jprb, 0.979345e+00_jprb &
29023  &, 0.967824e+00_jprb, 0.956010e+00_jprb, 0.943895e+00_jprb, 0.931502e+00_jprb &
29024  &, 0.918842e+00_jprb, 0.905942e+00_jprb, 0.892784e+00_jprb &
29025  &, 0.879414e+00_jprb, 0.865846e+00_jprb, 0.852066e+00_jprb, 0.838104e+00_jprb &
29026  &, 0.823979e+00_jprb, 0.809708e+00_jprb, 0.795292e+00_jprb &
29027  &, 0.780769e+00_jprb, 0.766119e+00_jprb, 0.751381e+00_jprb, 0.736573e+00_jprb &
29028  &, 0.721695e+00_jprb, 0.706767e+00_jprb, 0.691806e+00_jprb &
29029  &, 0.676833e+00_jprb, 0.661844e+00_jprb, 0.646858e+00_jprb, 0.631891e+00_jprb &
29030  &, 0.616961e+00_jprb, 0.602086e+00_jprb, 0.587259e+00_jprb &
29031  &, 0.572518e+00_jprb, 0.557830e+00_jprb, 0.543259e+00_jprb, 0.528794e+00_jprb &
29032  &, 0.514449e+00_jprb, 0.500234e+00_jprb, 0.486135e+00_jprb &
29033  &, 0.472216e+00_jprb, 0.458433e+00_jprb, 0.444821e+00_jprb, 0.431359e+00_jprb &
29034  &, 0.418113e+00_jprb, 0.405059e+00_jprb, 0.392171e+00_jprb &
29035  &, 0.379515e+00_jprb, 0.367061e+00_jprb, 0.354843e+00_jprb, 0.342797e+00_jprb &
29036  &, 0.331020e+00_jprb, 0.319478e+00_jprb, 0.308132e+00_jprb &
29037  &, 0.297047e+00_jprb, 0.286219e+00_jprb, 0.275605e+00_jprb, 0.265232e+00_jprb &
29038  &, 0.255128e+00_jprb, 0.245283e+00_jprb, 0.235647e+00_jprb &
29039  &, 0.226284e+00_jprb, 0.217180e+00_jprb, 0.208320e+00_jprb, 0.199686e+00_jprb &
29040  &, 0.191343e+00_jprb, 0.183230e+00_jprb, 0.175324e+00_jprb &
29041  &, 0.167691e+00_jprb, 0.160307e+00_jprb, 0.153148e+00_jprb, 0.146232e+00_jprb &
29042  &, 0.139533e+00_jprb, 0.133115e+00_jprb, 0.126854e+00_jprb &
29043  &, 0.120862e+00_jprb, 0.115057e+00_jprb, 0.109506e+00_jprb, 0.104123e+00_jprb &
29044  &, 0.989728e-01_jprb, 0.940182e-01_jprb, 0.892731e-01_jprb &
29045  &, 0.846963e-01_jprb, 0.802998e-01_jprb, 0.760959e-01_jprb, 0.720970e-01_jprb &
29046  &, 0.682575e-01_jprb, 0.645287e-01_jprb, 0.610387e-01_jprb &
29047  &, 0.576791e-01_jprb, 0.544587e-01_jprb, 0.513859e-01_jprb, 0.484698e-01_jprb &
29048  &, 0.457191e-01_jprb, 0.430782e-01_jprb, 0.405538e-01_jprb/)
29049 xcw( 665, :) = (/ &
29050  & 0.103971e+01_jprb, 0.104873e+01_jprb, 0.105738e+01_jprb, 0.106564e+01_jprb &
29051  &, 0.107351e+01_jprb, 0.108098e+01_jprb, 0.108805e+01_jprb &
29052  &, 0.109471e+01_jprb, 0.110096e+01_jprb, 0.110679e+01_jprb, 0.111219e+01_jprb &
29053  &, 0.111716e+01_jprb, 0.112169e+01_jprb, 0.112579e+01_jprb &
29054  &, 0.112944e+01_jprb, 0.113264e+01_jprb, 0.113539e+01_jprb, 0.113768e+01_jprb &
29055  &, 0.113951e+01_jprb, 0.114087e+01_jprb, 0.114178e+01_jprb &
29056  &, 0.114221e+01_jprb, 0.114218e+01_jprb, 0.114168e+01_jprb, 0.114070e+01_jprb &
29057  &, 0.113925e+01_jprb, 0.113733e+01_jprb, 0.113494e+01_jprb &
29058  &, 0.113208e+01_jprb, 0.112875e+01_jprb, 0.112496e+01_jprb, 0.112070e+01_jprb &
29059  &, 0.111599e+01_jprb, 0.111082e+01_jprb, 0.110520e+01_jprb &
29060  &, 0.109913e+01_jprb, 0.109262e+01_jprb, 0.108568e+01_jprb, 0.107831e+01_jprb &
29061  &, 0.107052e+01_jprb, 0.106232e+01_jprb, 0.105371e+01_jprb &
29062  &, 0.104472e+01_jprb, 0.103533e+01_jprb, 0.102557e+01_jprb, 0.101545e+01_jprb &
29063  &, 0.100497e+01_jprb, 0.994144e+00_jprb, 0.983000e+00_jprb &
29064  &, 0.971530e+00_jprb, 0.959751e+00_jprb, 0.947671e+00_jprb, 0.935327e+00_jprb &
29065  &, 0.922701e+00_jprb, 0.909818e+00_jprb, 0.896706e+00_jprb &
29066  &, 0.883366e+00_jprb, 0.869811e+00_jprb, 0.856057e+00_jprb, 0.842120e+00_jprb &
29067  &, 0.828019e+00_jprb, 0.813770e+00_jprb, 0.799357e+00_jprb &
29068  &, 0.784833e+00_jprb, 0.770218e+00_jprb, 0.755475e+00_jprb, 0.740679e+00_jprb &
29069  &, 0.725792e+00_jprb, 0.710871e+00_jprb, 0.695916e+00_jprb &
29070  &, 0.680924e+00_jprb, 0.665914e+00_jprb, 0.650925e+00_jprb, 0.635952e+00_jprb &
29071  &, 0.621015e+00_jprb, 0.606106e+00_jprb, 0.591264e+00_jprb &
29072  &, 0.576482e+00_jprb, 0.561799e+00_jprb, 0.547181e+00_jprb, 0.532690e+00_jprb &
29073  &, 0.518315e+00_jprb, 0.504041e+00_jprb, 0.489933e+00_jprb &
29074  &, 0.475948e+00_jprb, 0.462122e+00_jprb, 0.448492e+00_jprb, 0.435011e+00_jprb &
29075  &, 0.421592e+00_jprb, 0.408572e+00_jprb, 0.395655e+00_jprb &
29076  &, 0.382966e+00_jprb, 0.370445e+00_jprb, 0.358157e+00_jprb, 0.346069e+00_jprb &
29077  &, 0.334248e+00_jprb, 0.322624e+00_jprb, 0.311227e+00_jprb &
29078  &, 0.300088e+00_jprb, 0.289203e+00_jprb, 0.278528e+00_jprb, 0.268091e+00_jprb &
29079  &, 0.257920e+00_jprb, 0.248005e+00_jprb, 0.238335e+00_jprb &
29080  &, 0.228896e+00_jprb, 0.219712e+00_jprb, 0.210810e+00_jprb, 0.202131e+00_jprb &
29081  &, 0.193698e+00_jprb, 0.185535e+00_jprb, 0.177577e+00_jprb &
29082  &, 0.169889e+00_jprb, 0.162448e+00_jprb, 0.155229e+00_jprb, 0.148252e+00_jprb &
29083  &, 0.141488e+00_jprb, 0.134955e+00_jprb, 0.128671e+00_jprb &
29084  &, 0.122607e+00_jprb, 0.116777e+00_jprb, 0.111149e+00_jprb, 0.105738e+00_jprb &
29085  &, 0.100505e+00_jprb, 0.954653e-01_jprb, 0.906865e-01_jprb &
29086  &, 0.860746e-01_jprb, 0.816417e-01_jprb, 0.773433e-01_jprb, 0.733043e-01_jprb &
29087  &, 0.694232e-01_jprb, 0.656513e-01_jprb, 0.621167e-01_jprb &
29088  &, 0.587111e-01_jprb, 0.554430e-01_jprb, 0.523835e-01_jprb, 0.494175e-01_jprb &
29089  &, 0.466154e-01_jprb, 0.439214e-01_jprb, 0.413423e-01_jprb/)
29090 
29091 IF (lhook) CALL dr_hook('SU_MCICA:PART95',1,zhook_handle)
29092 END SUBROUTINE part95
29093 
29094 #ifdef VPP5000
29095 !OCL SCALAR
29096 #endif
29097 !option! -Nv -NO
29098 #ifdef RS6K
29099 @process nooptimize
29100 #endif
29101 !pgi$r opt=0
29102 SUBROUTINE part96
29103 
29104 REAL(KIND=JPRB) :: ZHOOK_HANDLE
29105 IF (lhook) CALL dr_hook('SU_MCICA:PART96',0,zhook_handle)
29106 
29107 xcw( 666, :) = (/ &
29108  & 0.103999e+01_jprb, 0.104909e+01_jprb, 0.105781e+01_jprb, 0.106614e+01_jprb &
29109  &, 0.107408e+01_jprb, 0.108163e+01_jprb, 0.108878e+01_jprb &
29110  &, 0.109552e+01_jprb, 0.110184e+01_jprb, 0.110774e+01_jprb, 0.111322e+01_jprb &
29111  &, 0.111827e+01_jprb, 0.112288e+01_jprb, 0.112706e+01_jprb &
29112  &, 0.113079e+01_jprb, 0.113406e+01_jprb, 0.113689e+01_jprb, 0.113926e+01_jprb &
29113  &, 0.114117e+01_jprb, 0.114262e+01_jprb, 0.114360e+01_jprb &
29114  &, 0.114411e+01_jprb, 0.114415e+01_jprb, 0.114373e+01_jprb, 0.114283e+01_jprb &
29115  &, 0.114146e+01_jprb, 0.113961e+01_jprb, 0.113730e+01_jprb &
29116  &, 0.113451e+01_jprb, 0.113126e+01_jprb, 0.112754e+01_jprb, 0.112335e+01_jprb &
29117  &, 0.111871e+01_jprb, 0.111361e+01_jprb, 0.110806e+01_jprb &
29118  &, 0.110206e+01_jprb, 0.109561e+01_jprb, 0.108874e+01_jprb, 0.108143e+01_jprb &
29119  &, 0.107370e+01_jprb, 0.106556e+01_jprb, 0.105702e+01_jprb &
29120  &, 0.104807e+01_jprb, 0.103875e+01_jprb, 0.102904e+01_jprb, 0.101897e+01_jprb &
29121  &, 0.100854e+01_jprb, 0.997762e+00_jprb, 0.986656e+00_jprb &
29122  &, 0.975235e+00_jprb, 0.963493e+00_jprb, 0.951462e+00_jprb, 0.939152e+00_jprb &
29123  &, 0.926574e+00_jprb, 0.913723e+00_jprb, 0.900643e+00_jprb &
29124  &, 0.887333e+00_jprb, 0.873807e+00_jprb, 0.860080e+00_jprb, 0.846153e+00_jprb &
29125  &, 0.832076e+00_jprb, 0.817832e+00_jprb, 0.803457e+00_jprb &
29126  &, 0.788935e+00_jprb, 0.774318e+00_jprb, 0.759589e+00_jprb, 0.744786e+00_jprb &
29127  &, 0.729928e+00_jprb, 0.714995e+00_jprb, 0.700025e+00_jprb &
29128  &, 0.685036e+00_jprb, 0.670026e+00_jprb, 0.655013e+00_jprb, 0.640036e+00_jprb &
29129  &, 0.625068e+00_jprb, 0.610148e+00_jprb, 0.595293e+00_jprb &
29130  &, 0.580495e+00_jprb, 0.565769e+00_jprb, 0.551127e+00_jprb, 0.536611e+00_jprb &
29131  &, 0.522181e+00_jprb, 0.507902e+00_jprb, 0.493759e+00_jprb &
29132  &, 0.479735e+00_jprb, 0.465867e+00_jprb, 0.452164e+00_jprb, 0.438662e+00_jprb &
29133  &, 0.425311e+00_jprb, 0.412145e+00_jprb, 0.399169e+00_jprb &
29134  &, 0.386417e+00_jprb, 0.373862e+00_jprb, 0.361504e+00_jprb, 0.349375e+00_jprb &
29135  &, 0.337476e+00_jprb, 0.325804e+00_jprb, 0.314357e+00_jprb &
29136  &, 0.303165e+00_jprb, 0.292187e+00_jprb, 0.281488e+00_jprb, 0.270988e+00_jprb &
29137  &, 0.260751e+00_jprb, 0.250767e+00_jprb, 0.241023e+00_jprb &
29138  &, 0.231547e+00_jprb, 0.222325e+00_jprb, 0.213340e+00_jprb, 0.204576e+00_jprb &
29139  &, 0.196096e+00_jprb, 0.187841e+00_jprb, 0.179830e+00_jprb &
29140  &, 0.172088e+00_jprb, 0.164590e+00_jprb, 0.157311e+00_jprb, 0.150272e+00_jprb &
29141  &, 0.143443e+00_jprb, 0.136891e+00_jprb, 0.130538e+00_jprb &
29142  &, 0.124401e+00_jprb, 0.118497e+00_jprb, 0.112792e+00_jprb, 0.107300e+00_jprb &
29143  &, 0.102037e+00_jprb, 0.969661e-01_jprb, 0.920999e-01_jprb &
29144  &, 0.874530e-01_jprb, 0.829836e-01_jprb, 0.786473e-01_jprb, 0.745115e-01_jprb &
29145  &, 0.705888e-01_jprb, 0.668330e-01_jprb, 0.631947e-01_jprb &
29146  &, 0.597431e-01_jprb, 0.564889e-01_jprb, 0.533188e-01_jprb, 0.503020e-01_jprb &
29147  &, 0.474476e-01_jprb, 0.447646e-01_jprb, 0.421308e-01_jprb/)
29148 xcw( 667, :) = (/ &
29149  & 0.104028e+01_jprb, 0.104944e+01_jprb, 0.105823e+01_jprb, 0.106664e+01_jprb &
29150  &, 0.107466e+01_jprb, 0.108228e+01_jprb, 0.108951e+01_jprb &
29151  &, 0.109632e+01_jprb, 0.110272e+01_jprb, 0.110870e+01_jprb, 0.111426e+01_jprb &
29152  &, 0.111939e+01_jprb, 0.112408e+01_jprb, 0.112833e+01_jprb &
29153  &, 0.113214e+01_jprb, 0.113549e+01_jprb, 0.113840e+01_jprb, 0.114085e+01_jprb &
29154  &, 0.114283e+01_jprb, 0.114436e+01_jprb, 0.114542e+01_jprb &
29155  &, 0.114601e+01_jprb, 0.114613e+01_jprb, 0.114578e+01_jprb, 0.114496e+01_jprb &
29156  &, 0.114366e+01_jprb, 0.114190e+01_jprb, 0.113966e+01_jprb &
29157  &, 0.113695e+01_jprb, 0.113377e+01_jprb, 0.113012e+01_jprb, 0.112601e+01_jprb &
29158  &, 0.112143e+01_jprb, 0.111640e+01_jprb, 0.111092e+01_jprb &
29159  &, 0.110499e+01_jprb, 0.109860e+01_jprb, 0.109180e+01_jprb, 0.108456e+01_jprb &
29160  &, 0.107689e+01_jprb, 0.106881e+01_jprb, 0.106032e+01_jprb &
29161  &, 0.105144e+01_jprb, 0.104218e+01_jprb, 0.103252e+01_jprb, 0.102250e+01_jprb &
29162  &, 0.101213e+01_jprb, 0.100141e+01_jprb, 0.990337e+00_jprb &
29163  &, 0.978954e+00_jprb, 0.967261e+00_jprb, 0.955280e+00_jprb, 0.943005e+00_jprb &
29164  &, 0.930447e+00_jprb, 0.917644e+00_jprb, 0.904596e+00_jprb &
29165  &, 0.891300e+00_jprb, 0.877803e+00_jprb, 0.864104e+00_jprb, 0.850220e+00_jprb &
29166  &, 0.836150e+00_jprb, 0.821929e+00_jprb, 0.807558e+00_jprb &
29167  &, 0.793054e+00_jprb, 0.778454e+00_jprb, 0.763741e+00_jprb, 0.748931e+00_jprb &
29168  &, 0.734065e+00_jprb, 0.719140e+00_jprb, 0.704155e+00_jprb &
29169  &, 0.689170e+00_jprb, 0.674139e+00_jprb, 0.659124e+00_jprb, 0.644142e+00_jprb &
29170  &, 0.629144e+00_jprb, 0.614214e+00_jprb, 0.599323e+00_jprb &
29171  &, 0.584508e+00_jprb, 0.569763e+00_jprb, 0.555099e+00_jprb, 0.540558e+00_jprb &
29172  &, 0.526100e+00_jprb, 0.511789e+00_jprb, 0.497584e+00_jprb &
29173  &, 0.483550e+00_jprb, 0.469641e+00_jprb, 0.455893e+00_jprb, 0.442343e+00_jprb &
29174  &, 0.428941e+00_jprb, 0.415719e+00_jprb, 0.402715e+00_jprb &
29175  &, 0.389901e+00_jprb, 0.377279e+00_jprb, 0.364883e+00_jprb, 0.352714e+00_jprb &
29176  &, 0.340772e+00_jprb, 0.329019e+00_jprb, 0.317522e+00_jprb &
29177  &, 0.306277e+00_jprb, 0.295243e+00_jprb, 0.284449e+00_jprb, 0.273923e+00_jprb &
29178  &, 0.263620e+00_jprb, 0.253567e+00_jprb, 0.243790e+00_jprb &
29179  &, 0.234239e+00_jprb, 0.224938e+00_jprb, 0.215871e+00_jprb, 0.207063e+00_jprb &
29180  &, 0.198494e+00_jprb, 0.190190e+00_jprb, 0.182128e+00_jprb &
29181  &, 0.174331e+00_jprb, 0.166731e+00_jprb, 0.159393e+00_jprb, 0.152291e+00_jprb &
29182  &, 0.145445e+00_jprb, 0.138778e+00_jprb, 0.132405e+00_jprb &
29183  &, 0.126196e+00_jprb, 0.120218e+00_jprb, 0.114486e+00_jprb, 0.108967e+00_jprb &
29184  &, 0.103622e+00_jprb, 0.985203e-01_jprb, 0.935677e-01_jprb &
29185  &, 0.888313e-01_jprb, 0.843255e-01_jprb, 0.799513e-01_jprb, 0.757761e-01_jprb &
29186  &, 0.718127e-01_jprb, 0.679556e-01_jprb, 0.643327e-01_jprb &
29187  &, 0.608357e-01_jprb, 0.574733e-01_jprb, 0.543164e-01_jprb, 0.512497e-01_jprb &
29188  &, 0.483439e-01_jprb, 0.456078e-01_jprb, 0.429851e-01_jprb/)
29189 xcw( 668, :) = (/ &
29190  & 0.104056e+01_jprb, 0.104980e+01_jprb, 0.105866e+01_jprb, 0.106715e+01_jprb &
29191  &, 0.107524e+01_jprb, 0.108294e+01_jprb, 0.109024e+01_jprb &
29192  &, 0.109713e+01_jprb, 0.110361e+01_jprb, 0.110967e+01_jprb, 0.111530e+01_jprb &
29193  &, 0.112051e+01_jprb, 0.112528e+01_jprb, 0.112961e+01_jprb &
29194  &, 0.113349e+01_jprb, 0.113693e+01_jprb, 0.113991e+01_jprb, 0.114244e+01_jprb &
29195  &, 0.114451e+01_jprb, 0.114611e+01_jprb, 0.114725e+01_jprb &
29196  &, 0.114792e+01_jprb, 0.114811e+01_jprb, 0.114784e+01_jprb, 0.114710e+01_jprb &
29197  &, 0.114588e+01_jprb, 0.114419e+01_jprb, 0.114202e+01_jprb &
29198  &, 0.113939e+01_jprb, 0.113628e+01_jprb, 0.113271e+01_jprb, 0.112867e+01_jprb &
29199  &, 0.112416e+01_jprb, 0.111920e+01_jprb, 0.111379e+01_jprb &
29200  &, 0.110792e+01_jprb, 0.110162e+01_jprb, 0.109487e+01_jprb, 0.108770e+01_jprb &
29201  &, 0.108009e+01_jprb, 0.107207e+01_jprb, 0.106365e+01_jprb &
29202  &, 0.105483e+01_jprb, 0.104560e+01_jprb, 0.103601e+01_jprb, 0.102605e+01_jprb &
29203  &, 0.101572e+01_jprb, 0.100505e+01_jprb, 0.994031e+00_jprb &
29204  &, 0.982699e+00_jprb, 0.971043e+00_jprb, 0.959098e+00_jprb, 0.946858e+00_jprb &
29205  &, 0.934348e+00_jprb, 0.921579e+00_jprb, 0.908563e+00_jprb &
29206  &, 0.895299e+00_jprb, 0.881831e+00_jprb, 0.868160e+00_jprb, 0.854286e+00_jprb &
29207  &, 0.840241e+00_jprb, 0.826043e+00_jprb, 0.811676e+00_jprb &
29208  &, 0.797191e+00_jprb, 0.782590e+00_jprb, 0.767892e+00_jprb, 0.753096e+00_jprb &
29209  &, 0.738221e+00_jprb, 0.723305e+00_jprb, 0.708326e+00_jprb &
29210  &, 0.693324e+00_jprb, 0.678295e+00_jprb, 0.663278e+00_jprb, 0.648248e+00_jprb &
29211  &, 0.633266e+00_jprb, 0.618304e+00_jprb, 0.603400e+00_jprb &
29212  &, 0.588570e+00_jprb, 0.573781e+00_jprb, 0.559122e+00_jprb, 0.544531e+00_jprb &
29213  &, 0.530045e+00_jprb, 0.515677e+00_jprb, 0.501465e+00_jprb &
29214  &, 0.487365e+00_jprb, 0.473443e+00_jprb, 0.459651e+00_jprb, 0.446024e+00_jprb &
29215  &, 0.432600e+00_jprb, 0.419354e+00_jprb, 0.406291e+00_jprb &
29216  &, 0.393415e+00_jprb, 0.380760e+00_jprb, 0.368295e+00_jprb, 0.356086e+00_jprb &
29217  &, 0.344067e+00_jprb, 0.332269e+00_jprb, 0.320723e+00_jprb &
29218  &, 0.309390e+00_jprb, 0.298300e+00_jprb, 0.287483e+00_jprb, 0.276858e+00_jprb &
29219  &, 0.266527e+00_jprb, 0.256405e+00_jprb, 0.246518e+00_jprb &
29220  &, 0.236931e+00_jprb, 0.227551e+00_jprb, 0.218443e+00_jprb, 0.209592e+00_jprb &
29221  &, 0.200935e+00_jprb, 0.192582e+00_jprb, 0.184470e+00_jprb &
29222  &, 0.176575e+00_jprb, 0.168919e+00_jprb, 0.161522e+00_jprb, 0.154358e+00_jprb &
29223  &, 0.147448e+00_jprb, 0.140714e+00_jprb, 0.134272e+00_jprb &
29224  &, 0.128041e+00_jprb, 0.121988e+00_jprb, 0.116180e+00_jprb, 0.110581e+00_jprb &
29225  &, 0.105208e+00_jprb, 0.100021e+00_jprb, 0.950899e-01_jprb &
29226  &, 0.902648e-01_jprb, 0.856674e-01_jprb, 0.813120e-01_jprb, 0.770983e-01_jprb &
29227  &, 0.730366e-01_jprb, 0.691372e-01_jprb, 0.654706e-01_jprb &
29228  &, 0.619284e-01_jprb, 0.585192e-01_jprb, 0.553139e-01_jprb, 0.521974e-01_jprb &
29229  &, 0.493041e-01_jprb, 0.464510e-01_jprb, 0.438393e-01_jprb/)
29230 xcw( 669, :) = (/ &
29231  & 0.104084e+01_jprb, 0.105016e+01_jprb, 0.105909e+01_jprb, 0.106765e+01_jprb &
29232  &, 0.107582e+01_jprb, 0.108360e+01_jprb, 0.109097e+01_jprb &
29233  &, 0.109794e+01_jprb, 0.110449e+01_jprb, 0.111063e+01_jprb, 0.111634e+01_jprb &
29234  &, 0.112163e+01_jprb, 0.112647e+01_jprb, 0.113088e+01_jprb &
29235  &, 0.113485e+01_jprb, 0.113836e+01_jprb, 0.114143e+01_jprb, 0.114403e+01_jprb &
29236  &, 0.114618e+01_jprb, 0.114786e+01_jprb, 0.114908e+01_jprb &
29237  &, 0.114983e+01_jprb, 0.115010e+01_jprb, 0.114991e+01_jprb, 0.114924e+01_jprb &
29238  &, 0.114810e+01_jprb, 0.114649e+01_jprb, 0.114440e+01_jprb &
29239  &, 0.114183e+01_jprb, 0.113880e+01_jprb, 0.113530e+01_jprb, 0.113134e+01_jprb &
29240  &, 0.112690e+01_jprb, 0.112201e+01_jprb, 0.111667e+01_jprb &
29241  &, 0.111087e+01_jprb, 0.110463e+01_jprb, 0.109795e+01_jprb, 0.109084e+01_jprb &
29242  &, 0.108330e+01_jprb, 0.107535e+01_jprb, 0.106698e+01_jprb &
29243  &, 0.105821e+01_jprb, 0.104905e+01_jprb, 0.103951e+01_jprb, 0.102960e+01_jprb &
29244  &, 0.101933e+01_jprb, 0.100870e+01_jprb, 0.997738e+00_jprb &
29245  &, 0.986457e+00_jprb, 0.974852e+00_jprb, 0.962943e+00_jprb, 0.950740e+00_jprb &
29246  &, 0.938265e+00_jprb, 0.925529e+00_jprb, 0.912545e+00_jprb &
29247  &, 0.899312e+00_jprb, 0.885875e+00_jprb, 0.872216e+00_jprb, 0.858369e+00_jprb &
29248  &, 0.844349e+00_jprb, 0.830158e+00_jprb, 0.815829e+00_jprb &
29249  &, 0.801347e+00_jprb, 0.786764e+00_jprb, 0.772063e+00_jprb, 0.757281e+00_jprb &
29250  &, 0.742417e+00_jprb, 0.727490e+00_jprb, 0.712498e+00_jprb &
29251  &, 0.697499e+00_jprb, 0.682472e+00_jprb, 0.667433e+00_jprb, 0.652399e+00_jprb &
29252  &, 0.637411e+00_jprb, 0.622440e+00_jprb, 0.607500e+00_jprb &
29253  &, 0.592632e+00_jprb, 0.577850e+00_jprb, 0.563145e+00_jprb, 0.548529e+00_jprb &
29254  &, 0.534016e+00_jprb, 0.519618e+00_jprb, 0.505345e+00_jprb &
29255  &, 0.491236e+00_jprb, 0.477245e+00_jprb, 0.463438e+00_jprb, 0.449764e+00_jprb &
29256  &, 0.436289e+00_jprb, 0.422989e+00_jprb, 0.409868e+00_jprb &
29257  &, 0.396962e+00_jprb, 0.384241e+00_jprb, 0.371740e+00_jprb, 0.359459e+00_jprb &
29258  &, 0.347397e+00_jprb, 0.335553e+00_jprb, 0.323923e+00_jprb &
29259  &, 0.312538e+00_jprb, 0.301429e+00_jprb, 0.290517e+00_jprb, 0.279830e+00_jprb &
29260  &, 0.269435e+00_jprb, 0.259244e+00_jprb, 0.249324e+00_jprb &
29261  &, 0.239663e+00_jprb, 0.230205e+00_jprb, 0.221057e+00_jprb, 0.212121e+00_jprb &
29262  &, 0.203419e+00_jprb, 0.194975e+00_jprb, 0.186811e+00_jprb &
29263  &, 0.178863e+00_jprb, 0.171151e+00_jprb, 0.163696e+00_jprb, 0.156472e+00_jprb &
29264  &, 0.149451e+00_jprb, 0.142699e+00_jprb, 0.136188e+00_jprb &
29265  &, 0.129886e+00_jprb, 0.123810e+00_jprb, 0.117925e+00_jprb, 0.112300e+00_jprb &
29266  &, 0.106845e+00_jprb, 0.101629e+00_jprb, 0.965576e-01_jprb &
29267  &, 0.917535e-01_jprb, 0.870652e-01_jprb, 0.826160e-01_jprb, 0.783630e-01_jprb &
29268  &, 0.742605e-01_jprb, 0.703780e-01_jprb, 0.666085e-01_jprb &
29269  &, 0.630211e-01_jprb, 0.595651e-01_jprb, 0.563115e-01_jprb, 0.532083e-01_jprb &
29270  &, 0.502004e-01_jprb, 0.473591e-01_jprb, 0.446936e-01_jprb/)
29271 xcw( 670, :) = (/ &
29272  & 0.104113e+01_jprb, 0.105051e+01_jprb, 0.105952e+01_jprb, 0.106815e+01_jprb &
29273  &, 0.107640e+01_jprb, 0.108425e+01_jprb, 0.109170e+01_jprb &
29274  &, 0.109875e+01_jprb, 0.110538e+01_jprb, 0.111160e+01_jprb, 0.111739e+01_jprb &
29275  &, 0.112275e+01_jprb, 0.112768e+01_jprb, 0.113216e+01_jprb &
29276  &, 0.113621e+01_jprb, 0.113980e+01_jprb, 0.114295e+01_jprb, 0.114563e+01_jprb &
29277  &, 0.114786e+01_jprb, 0.114962e+01_jprb, 0.115091e+01_jprb &
29278  &, 0.115174e+01_jprb, 0.115210e+01_jprb, 0.115198e+01_jprb, 0.115139e+01_jprb &
29279  &, 0.115032e+01_jprb, 0.114879e+01_jprb, 0.114677e+01_jprb &
29280  &, 0.114429e+01_jprb, 0.114133e+01_jprb, 0.113791e+01_jprb, 0.113401e+01_jprb &
29281  &, 0.112965e+01_jprb, 0.112484e+01_jprb, 0.111956e+01_jprb &
29282  &, 0.111383e+01_jprb, 0.110765e+01_jprb, 0.110105e+01_jprb, 0.109400e+01_jprb &
29283  &, 0.108652e+01_jprb, 0.107863e+01_jprb, 0.107033e+01_jprb &
29284  &, 0.106161e+01_jprb, 0.105252e+01_jprb, 0.104304e+01_jprb, 0.103317e+01_jprb &
29285  &, 0.102296e+01_jprb, 0.101237e+01_jprb, 0.100146e+01_jprb &
29286  &, 0.990215e+00_jprb, 0.978661e+00_jprb, 0.966789e+00_jprb, 0.954635e+00_jprb &
29287  &, 0.942195e+00_jprb, 0.929494e+00_jprb, 0.916543e+00_jprb &
29288  &, 0.903342e+00_jprb, 0.889934e+00_jprb, 0.876305e+00_jprb, 0.862485e+00_jprb &
29289  &, 0.848474e+00_jprb, 0.834307e+00_jprb, 0.820001e+00_jprb &
29290  &, 0.805539e+00_jprb, 0.790956e+00_jprb, 0.776271e+00_jprb, 0.761484e+00_jprb &
29291  &, 0.746613e+00_jprb, 0.731695e+00_jprb, 0.716710e+00_jprb &
29292  &, 0.701696e+00_jprb, 0.686671e+00_jprb, 0.671632e+00_jprb, 0.656573e+00_jprb &
29293  &, 0.641556e+00_jprb, 0.626576e+00_jprb, 0.611625e+00_jprb &
29294  &, 0.596742e+00_jprb, 0.581918e+00_jprb, 0.567192e+00_jprb, 0.552553e+00_jprb &
29295  &, 0.538014e+00_jprb, 0.523586e+00_jprb, 0.509280e+00_jprb &
29296  &, 0.495107e+00_jprb, 0.481104e+00_jprb, 0.467225e+00_jprb, 0.453534e+00_jprb &
29297  &, 0.440008e+00_jprb, 0.426654e+00_jprb, 0.413507e+00_jprb &
29298  &, 0.400540e+00_jprb, 0.387787e+00_jprb, 0.375218e+00_jprb, 0.362865e+00_jprb &
29299  &, 0.350761e+00_jprb, 0.338837e+00_jprb, 0.327194e+00_jprb &
29300  &, 0.315758e+00_jprb, 0.304522e+00_jprb, 0.293588e+00_jprb, 0.282840e+00_jprb &
29301  &, 0.272380e+00_jprb, 0.262122e+00_jprb, 0.252131e+00_jprb &
29302  &, 0.242395e+00_jprb, 0.232900e+00_jprb, 0.223671e+00_jprb, 0.214692e+00_jprb &
29303  &, 0.205946e+00_jprb, 0.197411e+00_jprb, 0.189153e+00_jprb &
29304  &, 0.181152e+00_jprb, 0.173384e+00_jprb, 0.165870e+00_jprb, 0.158586e+00_jprb &
29305  &, 0.151549e+00_jprb, 0.144683e+00_jprb, 0.138104e+00_jprb &
29306  &, 0.131730e+00_jprb, 0.125631e+00_jprb, 0.119671e+00_jprb, 0.113967e+00_jprb &
29307  &, 0.108483e+00_jprb, 0.103183e+00_jprb, 0.980798e-01_jprb &
29308  &, 0.931870e-01_jprb, 0.885189e-01_jprb, 0.839767e-01_jprb, 0.796852e-01_jprb &
29309  &, 0.755427e-01_jprb, 0.715596e-01_jprb, 0.677464e-01_jprb &
29310  &, 0.641138e-01_jprb, 0.606726e-01_jprb, 0.573715e-01_jprb, 0.541560e-01_jprb &
29311  &, 0.511607e-01_jprb, 0.482672e-01_jprb, 0.455478e-01_jprb/)
29312 xcw( 671, :) = (/ &
29313  & 0.104141e+01_jprb, 0.105087e+01_jprb, 0.105996e+01_jprb, 0.106866e+01_jprb &
29314  &, 0.107698e+01_jprb, 0.108491e+01_jprb, 0.109244e+01_jprb &
29315  &, 0.109956e+01_jprb, 0.110627e+01_jprb, 0.111256e+01_jprb, 0.111843e+01_jprb &
29316  &, 0.112387e+01_jprb, 0.112888e+01_jprb, 0.113345e+01_jprb &
29317  &, 0.113757e+01_jprb, 0.114124e+01_jprb, 0.114447e+01_jprb, 0.114723e+01_jprb &
29318  &, 0.114954e+01_jprb, 0.115138e+01_jprb, 0.115273e+01_jprb &
29319  &, 0.115365e+01_jprb, 0.115409e+01_jprb, 0.115405e+01_jprb, 0.115354e+01_jprb &
29320  &, 0.115256e+01_jprb, 0.115109e+01_jprb, 0.114916e+01_jprb &
29321  &, 0.114675e+01_jprb, 0.114387e+01_jprb, 0.114051e+01_jprb, 0.113670e+01_jprb &
29322  &, 0.113241e+01_jprb, 0.112766e+01_jprb, 0.112246e+01_jprb &
29323  &, 0.111680e+01_jprb, 0.111070e+01_jprb, 0.110415e+01_jprb, 0.109716e+01_jprb &
29324  &, 0.108975e+01_jprb, 0.108192e+01_jprb, 0.107368e+01_jprb &
29325  &, 0.106504e+01_jprb, 0.105599e+01_jprb, 0.104656e+01_jprb, 0.103676e+01_jprb &
29326  &, 0.102658e+01_jprb, 0.101607e+01_jprb, 0.100518e+01_jprb &
29327  &, 0.993999e+00_jprb, 0.982483e+00_jprb, 0.970662e+00_jprb, 0.958545e+00_jprb &
29328  &, 0.946140e+00_jprb, 0.933473e+00_jprb, 0.920556e+00_jprb &
29329  &, 0.907402e+00_jprb, 0.894010e+00_jprb, 0.880410e+00_jprb, 0.866617e+00_jprb &
29330  &, 0.852633e+00_jprb, 0.838473e+00_jprb, 0.824172e+00_jprb &
29331  &, 0.809731e+00_jprb, 0.795167e+00_jprb, 0.780480e+00_jprb, 0.765707e+00_jprb &
29332  &, 0.750848e+00_jprb, 0.735921e+00_jprb, 0.720943e+00_jprb &
29333  &, 0.705935e+00_jprb, 0.690891e+00_jprb, 0.675830e+00_jprb, 0.660791e+00_jprb &
29334  &, 0.645747e+00_jprb, 0.630735e+00_jprb, 0.615773e+00_jprb &
29335  &, 0.600877e+00_jprb, 0.586036e+00_jprb, 0.571266e+00_jprb, 0.556603e+00_jprb &
29336  &, 0.542011e+00_jprb, 0.527553e+00_jprb, 0.513242e+00_jprb &
29337  &, 0.499033e+00_jprb, 0.484963e+00_jprb, 0.471070e+00_jprb, 0.457332e+00_jprb &
29338  &, 0.443757e+00_jprb, 0.430350e+00_jprb, 0.417146e+00_jprb &
29339  &, 0.404150e+00_jprb, 0.391333e+00_jprb, 0.378729e+00_jprb, 0.366304e+00_jprb &
29340  &, 0.354125e+00_jprb, 0.342191e+00_jprb, 0.330465e+00_jprb &
29341  &, 0.318941e+00_jprb, 0.307687e+00_jprb, 0.296659e+00_jprb, 0.285888e+00_jprb &
29342  &, 0.275326e+00_jprb, 0.265039e+00_jprb, 0.254977e+00_jprb &
29343  &, 0.245207e+00_jprb, 0.235635e+00_jprb, 0.226326e+00_jprb, 0.217263e+00_jprb &
29344  &, 0.208472e+00_jprb, 0.199890e+00_jprb, 0.191583e+00_jprb &
29345  &, 0.183485e+00_jprb, 0.175662e+00_jprb, 0.168091e+00_jprb, 0.160746e+00_jprb &
29346  &, 0.153599e+00_jprb, 0.146716e+00_jprb, 0.140069e+00_jprb &
29347  &, 0.133625e+00_jprb, 0.127452e+00_jprb, 0.121467e+00_jprb, 0.115685e+00_jprb &
29348  &, 0.110121e+00_jprb, 0.104791e+00_jprb, 0.996563e-01_jprb &
29349  &, 0.946204e-01_jprb, 0.899726e-01_jprb, 0.853941e-01_jprb, 0.810073e-01_jprb &
29350  &, 0.768249e-01_jprb, 0.728004e-01_jprb, 0.689442e-01_jprb &
29351  &, 0.652672e-01_jprb, 0.617800e-01_jprb, 0.583691e-01_jprb, 0.551669e-01_jprb &
29352  &, 0.521209e-01_jprb, 0.491752e-01_jprb, 0.464021e-01_jprb/)
29353 xcw( 672, :) = (/ &
29354  & 0.104169e+01_jprb, 0.105123e+01_jprb, 0.106039e+01_jprb, 0.106917e+01_jprb &
29355  &, 0.107756e+01_jprb, 0.108557e+01_jprb, 0.109317e+01_jprb &
29356  &, 0.110037e+01_jprb, 0.110716e+01_jprb, 0.111353e+01_jprb, 0.111948e+01_jprb &
29357  &, 0.112500e+01_jprb, 0.113008e+01_jprb, 0.113473e+01_jprb &
29358  &, 0.113893e+01_jprb, 0.114269e+01_jprb, 0.114599e+01_jprb, 0.114884e+01_jprb &
29359  &, 0.115122e+01_jprb, 0.115314e+01_jprb, 0.115460e+01_jprb &
29360  &, 0.115556e+01_jprb, 0.115609e+01_jprb, 0.115614e+01_jprb, 0.115570e+01_jprb &
29361  &, 0.115479e+01_jprb, 0.115341e+01_jprb, 0.115155e+01_jprb &
29362  &, 0.114922e+01_jprb, 0.114641e+01_jprb, 0.114313e+01_jprb, 0.113939e+01_jprb &
29363  &, 0.113517e+01_jprb, 0.113050e+01_jprb, 0.112536e+01_jprb &
29364  &, 0.111977e+01_jprb, 0.111374e+01_jprb, 0.110726e+01_jprb, 0.110034e+01_jprb &
29365  &, 0.109300e+01_jprb, 0.108522e+01_jprb, 0.107705e+01_jprb &
29366  &, 0.106846e+01_jprb, 0.105948e+01_jprb, 0.105010e+01_jprb, 0.104035e+01_jprb &
29367  &, 0.103024e+01_jprb, 0.101976e+01_jprb, 0.100895e+01_jprb &
29368  &, 0.997797e+00_jprb, 0.986319e+00_jprb, 0.974549e+00_jprb, 0.962469e+00_jprb &
29369  &, 0.950100e+00_jprb, 0.937482e+00_jprb, 0.924584e+00_jprb &
29370  &, 0.911462e+00_jprb, 0.898101e+00_jprb, 0.884530e+00_jprb, 0.870750e+00_jprb &
29371  &, 0.856792e+00_jprb, 0.842674e+00_jprb, 0.828379e+00_jprb &
29372  &, 0.813959e+00_jprb, 0.799396e+00_jprb, 0.784727e+00_jprb, 0.769950e+00_jprb &
29373  &, 0.755103e+00_jprb, 0.740167e+00_jprb, 0.725197e+00_jprb &
29374  &, 0.710173e+00_jprb, 0.695133e+00_jprb, 0.680073e+00_jprb, 0.665010e+00_jprb &
29375  &, 0.649960e+00_jprb, 0.634942e+00_jprb, 0.619946e+00_jprb &
29376  &, 0.605011e+00_jprb, 0.590154e+00_jprb, 0.575364e+00_jprb, 0.560679e+00_jprb &
29377  &, 0.546062e+00_jprb, 0.531575e+00_jprb, 0.517204e+00_jprb &
29378  &, 0.502960e+00_jprb, 0.488879e+00_jprb, 0.474943e+00_jprb, 0.461160e+00_jprb &
29379  &, 0.447536e+00_jprb, 0.434076e+00_jprb, 0.420847e+00_jprb &
29380  &, 0.407760e+00_jprb, 0.394911e+00_jprb, 0.382239e+00_jprb, 0.369810e+00_jprb &
29381  &, 0.357556e+00_jprb, 0.345544e+00_jprb, 0.333771e+00_jprb &
29382  &, 0.322197e+00_jprb, 0.310889e+00_jprb, 0.299805e+00_jprb, 0.288936e+00_jprb &
29383  &, 0.278348e+00_jprb, 0.267994e+00_jprb, 0.257863e+00_jprb &
29384  &, 0.248020e+00_jprb, 0.238371e+00_jprb, 0.229023e+00_jprb, 0.219877e+00_jprb &
29385  &, 0.210999e+00_jprb, 0.202370e+00_jprb, 0.194013e+00_jprb &
29386  &, 0.185863e+00_jprb, 0.177986e+00_jprb, 0.170312e+00_jprb, 0.162907e+00_jprb &
29387  &, 0.155697e+00_jprb, 0.148749e+00_jprb, 0.142034e+00_jprb &
29388  &, 0.135569e+00_jprb, 0.129324e+00_jprb, 0.123264e+00_jprb, 0.117456e+00_jprb &
29389  &, 0.111812e+00_jprb, 0.106399e+00_jprb, 0.101233e+00_jprb &
29390  &, 0.962193e-01_jprb, 0.914263e-01_jprb, 0.868115e-01_jprb, 0.823870e-01_jprb &
29391  &, 0.781071e-01_jprb, 0.740411e-01_jprb, 0.701421e-01_jprb &
29392  &, 0.664205e-01_jprb, 0.628874e-01_jprb, 0.594914e-01_jprb, 0.561778e-01_jprb &
29393  &, 0.530812e-01_jprb, 0.501481e-01_jprb, 0.473220e-01_jprb/)
29394 
29395 IF (lhook) CALL dr_hook('SU_MCICA:PART96',1,zhook_handle)
29396 END SUBROUTINE part96
29397 
29398 #ifdef VPP5000
29399 !OCL SCALAR
29400 #endif
29401 !option! -Nv -NO
29402 #ifdef RS6K
29403 @process nooptimize
29404 #endif
29405 !pgi$r opt=0
29406 SUBROUTINE part97
29407 
29408 REAL(KIND=JPRB) :: ZHOOK_HANDLE
29409 IF (lhook) CALL dr_hook('SU_MCICA:PART97',0,zhook_handle)
29410 
29411 xcw( 673, :) = (/ &
29412  & 0.104198e+01_jprb, 0.105159e+01_jprb, 0.106082e+01_jprb, 0.106968e+01_jprb &
29413  &, 0.107815e+01_jprb, 0.108623e+01_jprb, 0.109391e+01_jprb &
29414  &, 0.110119e+01_jprb, 0.110805e+01_jprb, 0.111450e+01_jprb, 0.112053e+01_jprb &
29415  &, 0.112613e+01_jprb, 0.113129e+01_jprb, 0.113602e+01_jprb &
29416  &, 0.114030e+01_jprb, 0.114414e+01_jprb, 0.114752e+01_jprb, 0.115044e+01_jprb &
29417  &, 0.115291e+01_jprb, 0.115491e+01_jprb, 0.115644e+01_jprb &
29418  &, 0.115751e+01_jprb, 0.115810e+01_jprb, 0.115822e+01_jprb, 0.115786e+01_jprb &
29419  &, 0.115703e+01_jprb, 0.115573e+01_jprb, 0.115395e+01_jprb &
29420  &, 0.115169e+01_jprb, 0.114896e+01_jprb, 0.114576e+01_jprb, 0.114208e+01_jprb &
29421  &, 0.113794e+01_jprb, 0.113334e+01_jprb, 0.112828e+01_jprb &
29422  &, 0.112276e+01_jprb, 0.111679e+01_jprb, 0.111038e+01_jprb, 0.110353e+01_jprb &
29423  &, 0.109625e+01_jprb, 0.108854e+01_jprb, 0.108042e+01_jprb &
29424  &, 0.107189e+01_jprb, 0.106297e+01_jprb, 0.105366e+01_jprb, 0.104396e+01_jprb &
29425  &, 0.103388e+01_jprb, 0.102348e+01_jprb, 0.101271e+01_jprb &
29426  &, 0.100161e+01_jprb, 0.990181e+00_jprb, 0.978436e+00_jprb, 0.966407e+00_jprb &
29427  &, 0.954089e+00_jprb, 0.941492e+00_jprb, 0.928642e+00_jprb &
29428  &, 0.915538e+00_jprb, 0.902208e+00_jprb, 0.888668e+00_jprb, 0.874916e+00_jprb &
29429  &, 0.860985e+00_jprb, 0.846875e+00_jprb, 0.832603e+00_jprb &
29430  &, 0.818187e+00_jprb, 0.803644e+00_jprb, 0.788992e+00_jprb, 0.774231e+00_jprb &
29431  &, 0.759378e+00_jprb, 0.744453e+00_jprb, 0.729472e+00_jprb &
29432  &, 0.714454e+00_jprb, 0.699396e+00_jprb, 0.684315e+00_jprb, 0.669251e+00_jprb &
29433  &, 0.654197e+00_jprb, 0.639148e+00_jprb, 0.624142e+00_jprb &
29434  &, 0.609195e+00_jprb, 0.594322e+00_jprb, 0.579488e+00_jprb, 0.564781e+00_jprb &
29435  &, 0.550138e+00_jprb, 0.535623e+00_jprb, 0.521221e+00_jprb &
29436  &, 0.506942e+00_jprb, 0.492795e+00_jprb, 0.478817e+00_jprb, 0.464989e+00_jprb &
29437  &, 0.451345e+00_jprb, 0.437833e+00_jprb, 0.424548e+00_jprb &
29438  &, 0.411433e+00_jprb, 0.398521e+00_jprb, 0.385815e+00_jprb, 0.373283e+00_jprb &
29439  &, 0.361022e+00_jprb, 0.348932e+00_jprb, 0.337077e+00_jprb &
29440  &, 0.325488e+00_jprb, 0.314091e+00_jprb, 0.302950e+00_jprb, 0.292059e+00_jprb &
29441  &, 0.281370e+00_jprb, 0.270950e+00_jprb, 0.260788e+00_jprb &
29442  &, 0.250832e+00_jprb, 0.241147e+00_jprb, 0.231719e+00_jprb, 0.222532e+00_jprb &
29443  &, 0.213611e+00_jprb, 0.204892e+00_jprb, 0.196443e+00_jprb &
29444  &, 0.188241e+00_jprb, 0.180310e+00_jprb, 0.172579e+00_jprb, 0.165115e+00_jprb &
29445  &, 0.157843e+00_jprb, 0.150830e+00_jprb, 0.144048e+00_jprb &
29446  &, 0.137514e+00_jprb, 0.131196e+00_jprb, 0.125112e+00_jprb, 0.119227e+00_jprb &
29447  &, 0.113556e+00_jprb, 0.108061e+00_jprb, 0.102809e+00_jprb &
29448  &, 0.977631e-01_jprb, 0.928800e-01_jprb, 0.882289e-01_jprb, 0.837666e-01_jprb &
29449  &, 0.794476e-01_jprb, 0.753409e-01_jprb, 0.713998e-01_jprb &
29450  &, 0.676346e-01_jprb, 0.639949e-01_jprb, 0.605513e-01_jprb, 0.572519e-01_jprb &
29451  &, 0.541055e-01_jprb, 0.511211e-01_jprb, 0.482420e-01_jprb/)
29452 xcw( 674, :) = (/ &
29453  & 0.104227e+01_jprb, 0.105194e+01_jprb, 0.106125e+01_jprb, 0.107018e+01_jprb &
29454  &, 0.107873e+01_jprb, 0.108689e+01_jprb, 0.109465e+01_jprb &
29455  &, 0.110200e+01_jprb, 0.110895e+01_jprb, 0.111547e+01_jprb, 0.112158e+01_jprb &
29456  &, 0.112726e+01_jprb, 0.113250e+01_jprb, 0.113731e+01_jprb &
29457  &, 0.114167e+01_jprb, 0.114559e+01_jprb, 0.114905e+01_jprb, 0.115206e+01_jprb &
29458  &, 0.115460e+01_jprb, 0.115668e+01_jprb, 0.115829e+01_jprb &
29459  &, 0.115944e+01_jprb, 0.116011e+01_jprb, 0.116031e+01_jprb, 0.116004e+01_jprb &
29460  &, 0.115928e+01_jprb, 0.115806e+01_jprb, 0.115635e+01_jprb &
29461  &, 0.115417e+01_jprb, 0.115152e+01_jprb, 0.114839e+01_jprb, 0.114479e+01_jprb &
29462  &, 0.114072e+01_jprb, 0.113619e+01_jprb, 0.113120e+01_jprb &
29463  &, 0.112576e+01_jprb, 0.111985e+01_jprb, 0.111350e+01_jprb, 0.110672e+01_jprb &
29464  &, 0.109951e+01_jprb, 0.109187e+01_jprb, 0.108381e+01_jprb &
29465  &, 0.107535e+01_jprb, 0.106648e+01_jprb, 0.105722e+01_jprb, 0.104758e+01_jprb &
29466  &, 0.103757e+01_jprb, 0.102721e+01_jprb, 0.101649e+01_jprb &
29467  &, 0.100543e+01_jprb, 0.994044e+00_jprb, 0.982351e+00_jprb, 0.970359e+00_jprb &
29468  &, 0.958077e+00_jprb, 0.945530e+00_jprb, 0.932715e+00_jprb &
29469  &, 0.919645e+00_jprb, 0.906347e+00_jprb, 0.892821e+00_jprb, 0.879098e+00_jprb &
29470  &, 0.865195e+00_jprb, 0.851111e+00_jprb, 0.836846e+00_jprb &
29471  &, 0.822451e+00_jprb, 0.807910e+00_jprb, 0.793276e+00_jprb, 0.778512e+00_jprb &
29472  &, 0.763673e+00_jprb, 0.748739e+00_jprb, 0.733767e+00_jprb &
29473  &, 0.718735e+00_jprb, 0.703681e+00_jprb, 0.688602e+00_jprb, 0.673514e+00_jprb &
29474  &, 0.658456e+00_jprb, 0.643401e+00_jprb, 0.628386e+00_jprb &
29475  &, 0.613402e+00_jprb, 0.598490e+00_jprb, 0.583662e+00_jprb, 0.568909e+00_jprb &
29476  &, 0.554241e+00_jprb, 0.539699e+00_jprb, 0.525238e+00_jprb &
29477  &, 0.510952e+00_jprb, 0.496767e+00_jprb, 0.482749e+00_jprb, 0.468876e+00_jprb &
29478  &, 0.455155e+00_jprb, 0.441621e+00_jprb, 0.428280e+00_jprb &
29479  &, 0.415106e+00_jprb, 0.402164e+00_jprb, 0.389392e+00_jprb, 0.376822e+00_jprb &
29480  &, 0.364488e+00_jprb, 0.352354e+00_jprb, 0.340453e+00_jprb &
29481  &, 0.328779e+00_jprb, 0.317329e+00_jprb, 0.306132e+00_jprb, 0.295181e+00_jprb &
29482  &, 0.284430e+00_jprb, 0.273944e+00_jprb, 0.263713e+00_jprb &
29483  &, 0.253725e+00_jprb, 0.243964e+00_jprb, 0.234458e+00_jprb, 0.225230e+00_jprb &
29484  &, 0.216223e+00_jprb, 0.207459e+00_jprb, 0.198917e+00_jprb &
29485  &, 0.190664e+00_jprb, 0.182634e+00_jprb, 0.174846e+00_jprb, 0.167322e+00_jprb &
29486  &, 0.160037e+00_jprb, 0.152960e+00_jprb, 0.146111e+00_jprb &
29487  &, 0.139508e+00_jprb, 0.133119e+00_jprb, 0.126960e+00_jprb, 0.120998e+00_jprb &
29488  &, 0.115246e+00_jprb, 0.109722e+00_jprb, 0.104440e+00_jprb &
29489  &, 0.993069e-01_jprb, 0.943897e-01_jprb, 0.897030e-01_jprb, 0.851463e-01_jprb &
29490  &, 0.807880e-01_jprb, 0.766408e-01_jprb, 0.726575e-01_jprb &
29491  &, 0.687880e-01_jprb, 0.651638e-01_jprb, 0.616736e-01_jprb, 0.583260e-01_jprb &
29492  &, 0.551298e-01_jprb, 0.520291e-01_jprb, 0.491619e-01_jprb/)
29493 xcw( 675, :) = (/ &
29494  & 0.104255e+01_jprb, 0.105230e+01_jprb, 0.106169e+01_jprb, 0.107069e+01_jprb &
29495  &, 0.107932e+01_jprb, 0.108755e+01_jprb, 0.109539e+01_jprb &
29496  &, 0.110282e+01_jprb, 0.110984e+01_jprb, 0.111645e+01_jprb, 0.112263e+01_jprb &
29497  &, 0.112839e+01_jprb, 0.113372e+01_jprb, 0.113860e+01_jprb &
29498  &, 0.114305e+01_jprb, 0.114704e+01_jprb, 0.115058e+01_jprb, 0.115367e+01_jprb &
29499  &, 0.115630e+01_jprb, 0.115846e+01_jprb, 0.116015e+01_jprb &
29500  &, 0.116138e+01_jprb, 0.116213e+01_jprb, 0.116241e+01_jprb, 0.116221e+01_jprb &
29501  &, 0.116154e+01_jprb, 0.116039e+01_jprb, 0.115876e+01_jprb &
29502  &, 0.115666e+01_jprb, 0.115408e+01_jprb, 0.115103e+01_jprb, 0.114750e+01_jprb &
29503  &, 0.114351e+01_jprb, 0.113905e+01_jprb, 0.113413e+01_jprb &
29504  &, 0.112875e+01_jprb, 0.112292e+01_jprb, 0.111665e+01_jprb, 0.110993e+01_jprb &
29505  &, 0.110278e+01_jprb, 0.109520e+01_jprb, 0.108721e+01_jprb &
29506  &, 0.107880e+01_jprb, 0.107000e+01_jprb, 0.106080e+01_jprb, 0.105122e+01_jprb &
29507  &, 0.104126e+01_jprb, 0.103094e+01_jprb, 0.102028e+01_jprb &
29508  &, 0.100927e+01_jprb, 0.997934e+00_jprb, 0.986293e+00_jprb, 0.974339e+00_jprb &
29509  &, 0.962094e+00_jprb, 0.949569e+00_jprb, 0.936789e+00_jprb &
29510  &, 0.923767e+00_jprb, 0.910502e+00_jprb, 0.897007e+00_jprb, 0.883314e+00_jprb &
29511  &, 0.869422e+00_jprb, 0.855347e+00_jprb, 0.841123e+00_jprb &
29512  &, 0.826734e+00_jprb, 0.812213e+00_jprb, 0.797579e+00_jprb, 0.782832e+00_jprb &
29513  &, 0.767988e+00_jprb, 0.753066e+00_jprb, 0.738083e+00_jprb &
29514  &, 0.723058e+00_jprb, 0.707988e+00_jprb, 0.692910e+00_jprb, 0.677822e+00_jprb &
29515  &, 0.662739e+00_jprb, 0.647654e+00_jprb, 0.632630e+00_jprb &
29516  &, 0.617634e+00_jprb, 0.602707e+00_jprb, 0.587837e+00_jprb, 0.573062e+00_jprb &
29517  &, 0.558370e+00_jprb, 0.543774e+00_jprb, 0.529310e+00_jprb &
29518  &, 0.514962e+00_jprb, 0.500768e+00_jprb, 0.486680e+00_jprb, 0.472792e+00_jprb &
29519  &, 0.459024e+00_jprb, 0.445439e+00_jprb, 0.432044e+00_jprb &
29520  &, 0.418842e+00_jprb, 0.405806e+00_jprb, 0.393001e+00_jprb, 0.380395e+00_jprb &
29521  &, 0.367988e+00_jprb, 0.355811e+00_jprb, 0.343864e+00_jprb &
29522  &, 0.332107e+00_jprb, 0.320604e+00_jprb, 0.309351e+00_jprb, 0.298304e+00_jprb &
29523  &, 0.287529e+00_jprb, 0.276978e+00_jprb, 0.266678e+00_jprb &
29524  &, 0.256617e+00_jprb, 0.246782e+00_jprb, 0.237237e+00_jprb, 0.227928e+00_jprb &
29525  &, 0.218835e+00_jprb, 0.210025e+00_jprb, 0.201435e+00_jprb &
29526  &, 0.193132e+00_jprb, 0.185003e+00_jprb, 0.177159e+00_jprb, 0.169577e+00_jprb &
29527  &, 0.162182e+00_jprb, 0.155090e+00_jprb, 0.148174e+00_jprb &
29528  &, 0.141502e+00_jprb, 0.135041e+00_jprb, 0.128808e+00_jprb, 0.122821e+00_jprb &
29529  &, 0.117043e+00_jprb, 0.111437e+00_jprb, 0.106071e+00_jprb &
29530  &, 0.100906e+00_jprb, 0.959552e-01_jprb, 0.911770e-01_jprb, 0.865835e-01_jprb &
29531  &, 0.821868e-01_jprb, 0.779406e-01_jprb, 0.739152e-01_jprb &
29532  &, 0.700021e-01_jprb, 0.663328e-01_jprb, 0.627959e-01_jprb, 0.594001e-01_jprb &
29533  &, 0.561541e-01_jprb, 0.530669e-01_jprb, 0.500819e-01_jprb/)
29534 xcw( 676, :) = (/ &
29535  & 0.104284e+01_jprb, 0.105266e+01_jprb, 0.106212e+01_jprb, 0.107120e+01_jprb &
29536  &, 0.107990e+01_jprb, 0.108821e+01_jprb, 0.109613e+01_jprb &
29537  &, 0.110364e+01_jprb, 0.111074e+01_jprb, 0.111742e+01_jprb, 0.112369e+01_jprb &
29538  &, 0.112952e+01_jprb, 0.113493e+01_jprb, 0.113990e+01_jprb &
29539  &, 0.114442e+01_jprb, 0.114850e+01_jprb, 0.115212e+01_jprb, 0.115529e+01_jprb &
29540  &, 0.115800e+01_jprb, 0.116024e+01_jprb, 0.116201e+01_jprb &
29541  &, 0.116332e+01_jprb, 0.116415e+01_jprb, 0.116451e+01_jprb, 0.116439e+01_jprb &
29542  &, 0.116380e+01_jprb, 0.116273e+01_jprb, 0.116118e+01_jprb &
29543  &, 0.115915e+01_jprb, 0.115665e+01_jprb, 0.115367e+01_jprb, 0.115023e+01_jprb &
29544  &, 0.114631e+01_jprb, 0.114192e+01_jprb, 0.113707e+01_jprb &
29545  &, 0.113176e+01_jprb, 0.112600e+01_jprb, 0.111980e+01_jprb, 0.111315e+01_jprb &
29546  &, 0.110605e+01_jprb, 0.109855e+01_jprb, 0.109062e+01_jprb &
29547  &, 0.108228e+01_jprb, 0.107353e+01_jprb, 0.106439e+01_jprb, 0.105486e+01_jprb &
29548  &, 0.104496e+01_jprb, 0.103470e+01_jprb, 0.102408e+01_jprb &
29549  &, 0.101312e+01_jprb, 0.100184e+01_jprb, 0.990235e+00_jprb, 0.978319e+00_jprb &
29550  &, 0.966126e+00_jprb, 0.953637e+00_jprb, 0.940892e+00_jprb &
29551  &, 0.927905e+00_jprb, 0.914657e+00_jprb, 0.901177e+00_jprb, 0.887529e+00_jprb &
29552  &, 0.873666e+00_jprb, 0.859617e+00_jprb, 0.845401e+00_jprb &
29553  &, 0.831035e+00_jprb, 0.816535e+00_jprb, 0.801902e+00_jprb, 0.787151e+00_jprb &
29554  &, 0.772322e+00_jprb, 0.757413e+00_jprb, 0.742440e+00_jprb &
29555  &, 0.727402e+00_jprb, 0.712337e+00_jprb, 0.697241e+00_jprb, 0.682130e+00_jprb &
29556  &, 0.667044e+00_jprb, 0.651954e+00_jprb, 0.636897e+00_jprb &
29557  &, 0.621891e+00_jprb, 0.606949e+00_jprb, 0.592062e+00_jprb, 0.577241e+00_jprb &
29558  &, 0.562526e+00_jprb, 0.547902e+00_jprb, 0.533408e+00_jprb &
29559  &, 0.519028e+00_jprb, 0.504769e+00_jprb, 0.490670e+00_jprb, 0.476709e+00_jprb &
29560  &, 0.462923e+00_jprb, 0.449287e+00_jprb, 0.435838e+00_jprb &
29561  &, 0.422579e+00_jprb, 0.409513e+00_jprb, 0.396642e+00_jprb, 0.383968e+00_jprb &
29562  &, 0.371521e+00_jprb, 0.359303e+00_jprb, 0.347276e+00_jprb &
29563  &, 0.335469e+00_jprb, 0.323915e+00_jprb, 0.312608e+00_jprb, 0.301503e+00_jprb &
29564  &, 0.290628e+00_jprb, 0.280050e+00_jprb, 0.269682e+00_jprb &
29565  &, 0.259550e+00_jprb, 0.249680e+00_jprb, 0.240017e+00_jprb, 0.230668e+00_jprb &
29566  &, 0.221533e+00_jprb, 0.212635e+00_jprb, 0.203998e+00_jprb &
29567  &, 0.195600e+00_jprb, 0.187418e+00_jprb, 0.179519e+00_jprb, 0.171832e+00_jprb &
29568  &, 0.164423e+00_jprb, 0.157220e+00_jprb, 0.150238e+00_jprb &
29569  &, 0.143496e+00_jprb, 0.137014e+00_jprb, 0.130708e+00_jprb, 0.124644e+00_jprb &
29570  &, 0.118787e+00_jprb, 0.113152e+00_jprb, 0.107756e+00_jprb &
29571  &, 0.102505e+00_jprb, 0.974648e-01_jprb, 0.926511e-01_jprb, 0.880206e-01_jprb &
29572  &, 0.835856e-01_jprb, 0.792995e-01_jprb, 0.751729e-01_jprb &
29573  &, 0.712769e-01_jprb, 0.675017e-01_jprb, 0.639182e-01_jprb, 0.604741e-01_jprb &
29574  &, 0.571784e-01_jprb, 0.540399e-01_jprb, 0.510676e-01_jprb/)
29575 xcw( 677, :) = (/ &
29576  & 0.104312e+01_jprb, 0.105302e+01_jprb, 0.106256e+01_jprb, 0.107171e+01_jprb &
29577  &, 0.108049e+01_jprb, 0.108888e+01_jprb, 0.109687e+01_jprb &
29578  &, 0.110446e+01_jprb, 0.111164e+01_jprb, 0.111840e+01_jprb, 0.112474e+01_jprb &
29579  &, 0.113066e+01_jprb, 0.113615e+01_jprb, 0.114119e+01_jprb &
29580  &, 0.114580e+01_jprb, 0.114996e+01_jprb, 0.115366e+01_jprb, 0.115691e+01_jprb &
29581  &, 0.115970e+01_jprb, 0.116202e+01_jprb, 0.116388e+01_jprb &
29582  &, 0.116526e+01_jprb, 0.116618e+01_jprb, 0.116661e+01_jprb, 0.116658e+01_jprb &
29583  &, 0.116606e+01_jprb, 0.116507e+01_jprb, 0.116359e+01_jprb &
29584  &, 0.116165e+01_jprb, 0.115923e+01_jprb, 0.115633e+01_jprb, 0.115295e+01_jprb &
29585  &, 0.114911e+01_jprb, 0.114480e+01_jprb, 0.114002e+01_jprb &
29586  &, 0.113479e+01_jprb, 0.112910e+01_jprb, 0.112296e+01_jprb, 0.111638e+01_jprb &
29587  &, 0.110936e+01_jprb, 0.110191e+01_jprb, 0.109404e+01_jprb &
29588  &, 0.108577e+01_jprb, 0.107708e+01_jprb, 0.106799e+01_jprb, 0.105852e+01_jprb &
29589  &, 0.104868e+01_jprb, 0.103846e+01_jprb, 0.102791e+01_jprb &
29590  &, 0.101699e+01_jprb, 0.100575e+01_jprb, 0.994191e+00_jprb, 0.982328e+00_jprb &
29591  &, 0.970173e+00_jprb, 0.957720e+00_jprb, 0.945011e+00_jprb &
29592  &, 0.932058e+00_jprb, 0.918843e+00_jprb, 0.905411e+00_jprb, 0.891778e+00_jprb &
29593  &, 0.877926e+00_jprb, 0.863905e+00_jprb, 0.849715e+00_jprb &
29594  &, 0.835354e+00_jprb, 0.820857e+00_jprb, 0.806243e+00_jprb, 0.791510e+00_jprb &
29595  &, 0.776696e+00_jprb, 0.761780e+00_jprb, 0.746797e+00_jprb &
29596  &, 0.731768e+00_jprb, 0.716708e+00_jprb, 0.701594e+00_jprb, 0.686483e+00_jprb &
29597  &, 0.671372e+00_jprb, 0.656277e+00_jprb, 0.641213e+00_jprb &
29598  &, 0.626171e+00_jprb, 0.611216e+00_jprb, 0.596286e+00_jprb, 0.581446e+00_jprb &
29599  &, 0.566708e+00_jprb, 0.552058e+00_jprb, 0.537535e+00_jprb &
29600  &, 0.523093e+00_jprb, 0.508827e+00_jprb, 0.494457e+00_jprb, 0.480684e+00_jprb &
29601  &, 0.466852e+00_jprb, 0.453167e+00_jprb, 0.439663e+00_jprb &
29602  &, 0.426379e+00_jprb, 0.413252e+00_jprb, 0.400317e+00_jprb, 0.387607e+00_jprb &
29603  &, 0.375089e+00_jprb, 0.362795e+00_jprb, 0.350722e+00_jprb &
29604  &, 0.338868e+00_jprb, 0.327262e+00_jprb, 0.315864e+00_jprb, 0.304701e+00_jprb &
29605  &, 0.293803e+00_jprb, 0.283122e+00_jprb, 0.272686e+00_jprb &
29606  &, 0.262483e+00_jprb, 0.252579e+00_jprb, 0.242880e+00_jprb, 0.233408e+00_jprb &
29607  &, 0.224231e+00_jprb, 0.215245e+00_jprb, 0.206561e+00_jprb &
29608  &, 0.198068e+00_jprb, 0.189878e+00_jprb, 0.181878e+00_jprb, 0.174180e+00_jprb &
29609  &, 0.166665e+00_jprb, 0.159398e+00_jprb, 0.152350e+00_jprb &
29610  &, 0.145590e+00_jprb, 0.138987e+00_jprb, 0.132658e+00_jprb, 0.126518e+00_jprb &
29611  &, 0.120636e+00_jprb, 0.114921e+00_jprb, 0.109442e+00_jprb &
29612  &, 0.104159e+00_jprb, 0.990863e-01_jprb, 0.941819e-01_jprb, 0.894577e-01_jprb &
29613  &, 0.849843e-01_jprb, 0.806584e-01_jprb, 0.764905e-01_jprb &
29614  &, 0.724910e-01_jprb, 0.687322e-01_jprb, 0.650405e-01_jprb, 0.616114e-01_jprb &
29615  &, 0.582667e-01_jprb, 0.550776e-01_jprb, 0.520532e-01_jprb/)
29616 xcw( 678, :) = (/ &
29617  & 0.104341e+01_jprb, 0.105338e+01_jprb, 0.106299e+01_jprb, 0.107223e+01_jprb &
29618  &, 0.108108e+01_jprb, 0.108954e+01_jprb, 0.109761e+01_jprb &
29619  &, 0.110528e+01_jprb, 0.111254e+01_jprb, 0.111938e+01_jprb, 0.112580e+01_jprb &
29620  &, 0.113180e+01_jprb, 0.113737e+01_jprb, 0.114250e+01_jprb &
29621  &, 0.114718e+01_jprb, 0.115142e+01_jprb, 0.115521e+01_jprb, 0.115854e+01_jprb &
29622  &, 0.116141e+01_jprb, 0.116381e+01_jprb, 0.116575e+01_jprb &
29623  &, 0.116721e+01_jprb, 0.116821e+01_jprb, 0.116873e+01_jprb, 0.116877e+01_jprb &
29624  &, 0.116834e+01_jprb, 0.116742e+01_jprb, 0.116603e+01_jprb &
29625  &, 0.116416e+01_jprb, 0.116181e+01_jprb, 0.115899e+01_jprb, 0.115569e+01_jprb &
29626  &, 0.115192e+01_jprb, 0.114768e+01_jprb, 0.114298e+01_jprb &
29627  &, 0.113782e+01_jprb, 0.113220e+01_jprb, 0.112613e+01_jprb, 0.111962e+01_jprb &
29628  &, 0.111267e+01_jprb, 0.110529e+01_jprb, 0.109748e+01_jprb &
29629  &, 0.108926e+01_jprb, 0.108063e+01_jprb, 0.107161e+01_jprb, 0.106219e+01_jprb &
29630  &, 0.105240e+01_jprb, 0.104225e+01_jprb, 0.103173e+01_jprb &
29631  &, 0.102088e+01_jprb, 0.100968e+01_jprb, 0.998174e+00_jprb, 0.986350e+00_jprb &
29632  &, 0.974233e+00_jprb, 0.961818e+00_jprb, 0.949145e+00_jprb &
29633  &, 0.936227e+00_jprb, 0.923045e+00_jprb, 0.909646e+00_jprb, 0.896027e+00_jprb &
29634  &, 0.882221e+00_jprb, 0.868210e+00_jprb, 0.854028e+00_jprb &
29635  &, 0.839709e+00_jprb, 0.825216e+00_jprb, 0.810622e+00_jprb, 0.795888e+00_jprb &
29636  &, 0.781070e+00_jprb, 0.766167e+00_jprb, 0.751196e+00_jprb &
29637  &, 0.736154e+00_jprb, 0.721079e+00_jprb, 0.705990e+00_jprb, 0.690858e+00_jprb &
29638  &, 0.675746e+00_jprb, 0.660623e+00_jprb, 0.645552e+00_jprb &
29639  &, 0.630501e+00_jprb, 0.615483e+00_jprb, 0.600562e+00_jprb, 0.585702e+00_jprb &
29640  &, 0.570916e+00_jprb, 0.556240e+00_jprb, 0.541661e+00_jprb &
29641  &, 0.527215e+00_jprb, 0.512884e+00_jprb, 0.498706e+00_jprb, 0.484660e+00_jprb &
29642  &, 0.470781e+00_jprb, 0.457076e+00_jprb, 0.443551e+00_jprb &
29643  &, 0.430178e+00_jprb, 0.417024e+00_jprb, 0.404025e+00_jprb, 0.391247e+00_jprb &
29644  &, 0.378691e+00_jprb, 0.366356e+00_jprb, 0.354204e+00_jprb &
29645  &, 0.342302e+00_jprb, 0.330610e+00_jprb, 0.319157e+00_jprb, 0.307974e+00_jprb &
29646  &, 0.296978e+00_jprb, 0.286233e+00_jprb, 0.275730e+00_jprb &
29647  &, 0.265496e+00_jprb, 0.255478e+00_jprb, 0.245742e+00_jprb, 0.236232e+00_jprb &
29648  &, 0.226929e+00_jprb, 0.217942e+00_jprb, 0.209167e+00_jprb &
29649  &, 0.200625e+00_jprb, 0.192339e+00_jprb, 0.184284e+00_jprb, 0.176482e+00_jprb &
29650  &, 0.168906e+00_jprb, 0.161624e+00_jprb, 0.154512e+00_jprb &
29651  &, 0.147635e+00_jprb, 0.141011e+00_jprb, 0.134609e+00_jprb, 0.128393e+00_jprb &
29652  &, 0.122432e+00_jprb, 0.116690e+00_jprb, 0.111127e+00_jprb &
29653  &, 0.105813e+00_jprb, 0.100652e+00_jprb, 0.957127e-01_jprb, 0.909524e-01_jprb &
29654  &, 0.863831e-01_jprb, 0.820173e-01_jprb, 0.778081e-01_jprb &
29655  &, 0.737658e-01_jprb, 0.699627e-01_jprb, 0.662251e-01_jprb, 0.626855e-01_jprb &
29656  &, 0.593550e-01_jprb, 0.561154e-01_jprb, 0.530389e-01_jprb/)
29657 xcw( 679, :) = (/ &
29658  & 0.104370e+01_jprb, 0.105375e+01_jprb, 0.106343e+01_jprb, 0.107274e+01_jprb &
29659  &, 0.108167e+01_jprb, 0.109021e+01_jprb, 0.109835e+01_jprb &
29660  &, 0.110610e+01_jprb, 0.111344e+01_jprb, 0.112036e+01_jprb, 0.112687e+01_jprb &
29661  &, 0.113294e+01_jprb, 0.113859e+01_jprb, 0.114380e+01_jprb &
29662  &, 0.114857e+01_jprb, 0.115289e+01_jprb, 0.115675e+01_jprb, 0.116016e+01_jprb &
29663  &, 0.116312e+01_jprb, 0.116560e+01_jprb, 0.116762e+01_jprb &
29664  &, 0.116917e+01_jprb, 0.117024e+01_jprb, 0.117084e+01_jprb, 0.117097e+01_jprb &
29665  &, 0.117061e+01_jprb, 0.116978e+01_jprb, 0.116846e+01_jprb &
29666  &, 0.116667e+01_jprb, 0.116440e+01_jprb, 0.116165e+01_jprb, 0.115843e+01_jprb &
29667  &, 0.115474e+01_jprb, 0.115058e+01_jprb, 0.114595e+01_jprb &
29668  &, 0.114086e+01_jprb, 0.113531e+01_jprb, 0.112931e+01_jprb, 0.112286e+01_jprb &
29669  &, 0.111598e+01_jprb, 0.110867e+01_jprb, 0.110092e+01_jprb &
29670  &, 0.109277e+01_jprb, 0.108420e+01_jprb, 0.107524e+01_jprb, 0.106589e+01_jprb &
29671  &, 0.105615e+01_jprb, 0.104605e+01_jprb, 0.103559e+01_jprb &
29672  &, 0.102477e+01_jprb, 0.101363e+01_jprb, 0.100216e+01_jprb, 0.990387e+00_jprb &
29673  &, 0.978309e+00_jprb, 0.965946e+00_jprb, 0.953309e+00_jprb &
29674  &, 0.940411e+00_jprb, 0.927279e+00_jprb, 0.913897e+00_jprb, 0.900309e+00_jprb &
29675  &, 0.886516e+00_jprb, 0.872533e+00_jprb, 0.858377e+00_jprb &
29676  &, 0.844064e+00_jprb, 0.829612e+00_jprb, 0.815001e+00_jprb, 0.800305e+00_jprb &
29677  &, 0.785484e+00_jprb, 0.770595e+00_jprb, 0.755615e+00_jprb &
29678  &, 0.740582e+00_jprb, 0.725493e+00_jprb, 0.710386e+00_jprb, 0.695256e+00_jprb &
29679  &, 0.680120e+00_jprb, 0.664993e+00_jprb, 0.649891e+00_jprb &
29680  &, 0.634830e+00_jprb, 0.619799e+00_jprb, 0.604863e+00_jprb, 0.589959e+00_jprb &
29681  &, 0.575150e+00_jprb, 0.560450e+00_jprb, 0.545842e+00_jprb &
29682  &, 0.531364e+00_jprb, 0.516999e+00_jprb, 0.502782e+00_jprb, 0.488694e+00_jprb &
29683  &, 0.474770e+00_jprb, 0.461017e+00_jprb, 0.447439e+00_jprb &
29684  &, 0.434010e+00_jprb, 0.420795e+00_jprb, 0.407765e+00_jprb, 0.394953e+00_jprb &
29685  &, 0.382326e+00_jprb, 0.369916e+00_jprb, 0.357721e+00_jprb &
29686  &, 0.345772e+00_jprb, 0.334030e+00_jprb, 0.322524e+00_jprb, 0.311247e+00_jprb &
29687  &, 0.300191e+00_jprb, 0.289383e+00_jprb, 0.278814e+00_jprb &
29688  &, 0.268510e+00_jprb, 0.258459e+00_jprb, 0.248605e+00_jprb, 0.239056e+00_jprb &
29689  &, 0.229712e+00_jprb, 0.219943e+00_jprb, 0.211774e+00_jprb &
29690  &, 0.203183e+00_jprb, 0.194845e+00_jprb, 0.186736e+00_jprb, 0.178877e+00_jprb &
29691  &, 0.171242e+00_jprb, 0.163851e+00_jprb, 0.156673e+00_jprb &
29692  &, 0.149728e+00_jprb, 0.143035e+00_jprb, 0.136560e+00_jprb, 0.130321e+00_jprb &
29693  &, 0.124282e+00_jprb, 0.118458e+00_jprb, 0.112866e+00_jprb &
29694  &, 0.107467e+00_jprb, 0.102273e+00_jprb, 0.973002e-01_jprb, 0.924470e-01_jprb &
29695  &, 0.878401e-01_jprb, 0.834353e-01_jprb, 0.791856e-01_jprb &
29696  &, 0.751013e-01_jprb, 0.711932e-01_jprb, 0.674721e-01_jprb, 0.638859e-01_jprb &
29697  &, 0.604433e-01_jprb, 0.571532e-01_jprb, 0.540246e-01_jprb/)
29698 
29699 IF (lhook) CALL dr_hook('SU_MCICA:PART97',1,zhook_handle)
29700 END SUBROUTINE part97
29701 
29702 #ifdef VPP5000
29703 !OCL SCALAR
29704 #endif
29705 !option! -Nv -NO
29706 #ifdef RS6K
29707 @process nooptimize
29708 #endif
29709 !pgi$r opt=0
29710 SUBROUTINE part98
29711 
29712 REAL(KIND=JPRB) :: ZHOOK_HANDLE
29713 IF (lhook) CALL dr_hook('SU_MCICA:PART98',0,zhook_handle)
29714 
29715 xcw( 680, :) = (/ &
29716  & 0.104399e+01_jprb, 0.105411e+01_jprb, 0.106387e+01_jprb, 0.107325e+01_jprb &
29717  &, 0.108226e+01_jprb, 0.109087e+01_jprb, 0.109910e+01_jprb &
29718  &, 0.110692e+01_jprb, 0.111434e+01_jprb, 0.112134e+01_jprb, 0.112793e+01_jprb &
29719  &, 0.113409e+01_jprb, 0.113981e+01_jprb, 0.114510e+01_jprb &
29720  &, 0.114995e+01_jprb, 0.115436e+01_jprb, 0.115829e+01_jprb, 0.116180e+01_jprb &
29721  &, 0.116483e+01_jprb, 0.116740e+01_jprb, 0.116950e+01_jprb &
29722  &, 0.117113e+01_jprb, 0.117229e+01_jprb, 0.117296e+01_jprb, 0.117317e+01_jprb &
29723  &, 0.117289e+01_jprb, 0.117214e+01_jprb, 0.117091e+01_jprb &
29724  &, 0.116919e+01_jprb, 0.116700e+01_jprb, 0.116433e+01_jprb, 0.116119e+01_jprb &
29725  &, 0.115757e+01_jprb, 0.115348e+01_jprb, 0.114892e+01_jprb &
29726  &, 0.114390e+01_jprb, 0.113843e+01_jprb, 0.113250e+01_jprb, 0.112612e+01_jprb &
29727  &, 0.111931e+01_jprb, 0.111206e+01_jprb, 0.110438e+01_jprb &
29728  &, 0.109629e+01_jprb, 0.108779e+01_jprb, 0.107888e+01_jprb, 0.106958e+01_jprb &
29729  &, 0.105991e+01_jprb, 0.104986e+01_jprb, 0.103945e+01_jprb &
29730  &, 0.102869e+01_jprb, 0.101760e+01_jprb, 0.100617e+01_jprb, 0.994438e+00_jprb &
29731  &, 0.982398e+00_jprb, 0.970073e+00_jprb, 0.957473e+00_jprb &
29732  &, 0.944626e+00_jprb, 0.931513e+00_jprb, 0.918180e+00_jprb, 0.904608e+00_jprb &
29733  &, 0.890845e+00_jprb, 0.876890e+00_jprb, 0.862743e+00_jprb &
29734  &, 0.848455e+00_jprb, 0.834008e+00_jprb, 0.819418e+00_jprb, 0.804721e+00_jprb &
29735  &, 0.789917e+00_jprb, 0.775022e+00_jprb, 0.760055e+00_jprb &
29736  &, 0.745011e+00_jprb, 0.729929e+00_jprb, 0.714827e+00_jprb, 0.699677e+00_jprb &
29737  &, 0.684540e+00_jprb, 0.669410e+00_jprb, 0.654278e+00_jprb &
29738  &, 0.639208e+00_jprb, 0.624165e+00_jprb, 0.609164e+00_jprb, 0.594267e+00_jprb &
29739  &, 0.579437e+00_jprb, 0.564686e+00_jprb, 0.550050e+00_jprb &
29740  &, 0.535541e+00_jprb, 0.521141e+00_jprb, 0.506858e+00_jprb, 0.492758e+00_jprb &
29741  &, 0.478789e+00_jprb, 0.464987e+00_jprb, 0.451358e+00_jprb &
29742  &, 0.437905e+00_jprb, 0.424631e+00_jprb, 0.411538e+00_jprb, 0.398659e+00_jprb &
29743  &, 0.385996e+00_jprb, 0.373512e+00_jprb, 0.361273e+00_jprb &
29744  &, 0.349243e+00_jprb, 0.337450e+00_jprb, 0.325891e+00_jprb, 0.314521e+00_jprb &
29745  &, 0.303443e+00_jprb, 0.292572e+00_jprb, 0.281936e+00_jprb &
29746  &, 0.271563e+00_jprb, 0.261439e+00_jprb, 0.251551e+00_jprb, 0.241880e+00_jprb &
29747  &, 0.232496e+00_jprb, 0.223336e+00_jprb, 0.214425e+00_jprb &
29748  &, 0.205786e+00_jprb, 0.197351e+00_jprb, 0.189188e+00_jprb, 0.181226e+00_jprb &
29749  &, 0.173531e+00_jprb, 0.166077e+00_jprb, 0.158884e+00_jprb &
29750  &, 0.151872e+00_jprb, 0.145109e+00_jprb, 0.138613e+00_jprb, 0.132300e+00_jprb &
29751  &, 0.126184e+00_jprb, 0.120281e+00_jprb, 0.114660e+00_jprb &
29752  &, 0.109176e+00_jprb, 0.103895e+00_jprb, 0.988877e-01_jprb, 0.939991e-01_jprb &
29753  &, 0.893554e-01_jprb, 0.848533e-01_jprb, 0.805630e-01_jprb &
29754  &, 0.764368e-01_jprb, 0.724236e-01_jprb, 0.686567e-01_jprb, 0.650232e-01_jprb &
29755  &, 0.615957e-01_jprb, 0.582559e-01_jprb, 0.550759e-01_jprb/)
29756 xcw( 681, :) = (/ &
29757  & 0.104427e+01_jprb, 0.105447e+01_jprb, 0.106430e+01_jprb, 0.107377e+01_jprb &
29758  &, 0.108285e+01_jprb, 0.109154e+01_jprb, 0.109985e+01_jprb &
29759  &, 0.110775e+01_jprb, 0.111525e+01_jprb, 0.112233e+01_jprb, 0.112899e+01_jprb &
29760  &, 0.113523e+01_jprb, 0.114104e+01_jprb, 0.114641e+01_jprb &
29761  &, 0.115134e+01_jprb, 0.115583e+01_jprb, 0.115986e+01_jprb, 0.116343e+01_jprb &
29762  &, 0.116655e+01_jprb, 0.116920e+01_jprb, 0.117138e+01_jprb &
29763  &, 0.117309e+01_jprb, 0.117433e+01_jprb, 0.117509e+01_jprb, 0.117538e+01_jprb &
29764  &, 0.117517e+01_jprb, 0.117451e+01_jprb, 0.117336e+01_jprb &
29765  &, 0.117172e+01_jprb, 0.116961e+01_jprb, 0.116701e+01_jprb, 0.116395e+01_jprb &
29766  &, 0.116040e+01_jprb, 0.115639e+01_jprb, 0.115191e+01_jprb &
29767  &, 0.114696e+01_jprb, 0.114156e+01_jprb, 0.113570e+01_jprb, 0.112939e+01_jprb &
29768  &, 0.112265e+01_jprb, 0.111547e+01_jprb, 0.110785e+01_jprb &
29769  &, 0.109982e+01_jprb, 0.109138e+01_jprb, 0.108254e+01_jprb, 0.107329e+01_jprb &
29770  &, 0.106368e+01_jprb, 0.105289e+01_jprb, 0.104333e+01_jprb &
29771  &, 0.103262e+01_jprb, 0.102157e+01_jprb, 0.101019e+01_jprb, 0.998503e+00_jprb &
29772  &, 0.986517e+00_jprb, 0.974230e+00_jprb, 0.961668e+00_jprb &
29773  &, 0.948842e+00_jprb, 0.935779e+00_jprb, 0.922463e+00_jprb, 0.908923e+00_jprb &
29774  &, 0.895190e+00_jprb, 0.881248e+00_jprb, 0.867145e+00_jprb &
29775  &, 0.852865e+00_jprb, 0.838423e+00_jprb, 0.823854e+00_jprb, 0.809177e+00_jprb &
29776  &, 0.794370e+00_jprb, 0.779490e+00_jprb, 0.764515e+00_jprb &
29777  &, 0.749482e+00_jprb, 0.734386e+00_jprb, 0.719267e+00_jprb, 0.704142e+00_jprb &
29778  &, 0.688982e+00_jprb, 0.673826e+00_jprb, 0.658689e+00_jprb &
29779  &, 0.643586e+00_jprb, 0.628531e+00_jprb, 0.613515e+00_jprb, 0.598575e+00_jprb &
29780  &, 0.583724e+00_jprb, 0.568948e+00_jprb, 0.554285e+00_jprb &
29781  &, 0.539718e+00_jprb, 0.525284e+00_jprb, 0.510992e+00_jprb, 0.496822e+00_jprb &
29782  &, 0.482838e+00_jprb, 0.468989e+00_jprb, 0.455308e+00_jprb &
29783  &, 0.441799e+00_jprb, 0.428467e+00_jprb, 0.415344e+00_jprb, 0.402399e+00_jprb &
29784  &, 0.389665e+00_jprb, 0.377176e+00_jprb, 0.364861e+00_jprb &
29785  &, 0.352784e+00_jprb, 0.340907e+00_jprb, 0.329259e+00_jprb, 0.317870e+00_jprb &
29786  &, 0.306694e+00_jprb, 0.295800e+00_jprb, 0.285099e+00_jprb &
29787  &, 0.274657e+00_jprb, 0.264461e+00_jprb, 0.254496e+00_jprb, 0.244789e+00_jprb &
29788  &, 0.235322e+00_jprb, 0.226077e+00_jprb, 0.217120e+00_jprb &
29789  &, 0.208388e+00_jprb, 0.199903e+00_jprb, 0.191686e+00_jprb, 0.183668e+00_jprb &
29790  &, 0.175915e+00_jprb, 0.168400e+00_jprb, 0.161095e+00_jprb &
29791  &, 0.154066e+00_jprb, 0.147234e+00_jprb, 0.140615e+00_jprb, 0.134227e+00_jprb &
29792  &, 0.128086e+00_jprb, 0.122156e+00_jprb, 0.116400e+00_jprb &
29793  &, 0.110885e+00_jprb, 0.105572e+00_jprb, 0.100475e+00_jprb, 0.955512e-01_jprb &
29794  &, 0.908125e-01_jprb, 0.862713e-01_jprb, 0.819405e-01_jprb &
29795  &, 0.777723e-01_jprb, 0.737156e-01_jprb, 0.699037e-01_jprb, 0.662236e-01_jprb &
29796  &, 0.626840e-01_jprb, 0.593585e-01_jprb, 0.561273e-01_jprb/)
29797 xcw( 682, :) = (/ &
29798  & 0.104456e+01_jprb, 0.105483e+01_jprb, 0.106474e+01_jprb, 0.107428e+01_jprb &
29799  &, 0.108344e+01_jprb, 0.109221e+01_jprb, 0.110059e+01_jprb &
29800  &, 0.110858e+01_jprb, 0.111615e+01_jprb, 0.112332e+01_jprb, 0.113006e+01_jprb &
29801  &, 0.113638e+01_jprb, 0.114227e+01_jprb, 0.114772e+01_jprb &
29802  &, 0.115274e+01_jprb, 0.115730e+01_jprb, 0.116142e+01_jprb, 0.116507e+01_jprb &
29803  &, 0.116827e+01_jprb, 0.117100e+01_jprb, 0.117327e+01_jprb &
29804  &, 0.117506e+01_jprb, 0.117638e+01_jprb, 0.117723e+01_jprb, 0.117759e+01_jprb &
29805  &, 0.117748e+01_jprb, 0.117688e+01_jprb, 0.117581e+01_jprb &
29806  &, 0.117426e+01_jprb, 0.117222e+01_jprb, 0.116971e+01_jprb, 0.116671e+01_jprb &
29807  &, 0.116325e+01_jprb, 0.115931e+01_jprb, 0.115489e+01_jprb &
29808  &, 0.115003e+01_jprb, 0.114469e+01_jprb, 0.113891e+01_jprb, 0.113268e+01_jprb &
29809  &, 0.112599e+01_jprb, 0.111888e+01_jprb, 0.111134e+01_jprb &
29810  &, 0.110337e+01_jprb, 0.109498e+01_jprb, 0.108620e+01_jprb, 0.107702e+01_jprb &
29811  &, 0.106746e+01_jprb, 0.105752e+01_jprb, 0.104722e+01_jprb &
29812  &, 0.103656e+01_jprb, 0.102556e+01_jprb, 0.101423e+01_jprb, 0.100260e+01_jprb &
29813  &, 0.990650e+00_jprb, 0.978402e+00_jprb, 0.965878e+00_jprb &
29814  &, 0.953088e+00_jprb, 0.940045e+00_jprb, 0.926779e+00_jprb, 0.913271e+00_jprb &
29815  &, 0.899553e+00_jprb, 0.885640e+00_jprb, 0.871547e+00_jprb &
29816  &, 0.857293e+00_jprb, 0.842875e+00_jprb, 0.828328e+00_jprb, 0.813652e+00_jprb &
29817  &, 0.798863e+00_jprb, 0.783979e+00_jprb, 0.768996e+00_jprb &
29818  &, 0.753973e+00_jprb, 0.738886e+00_jprb, 0.723751e+00_jprb, 0.708607e+00_jprb &
29819  &, 0.693448e+00_jprb, 0.678289e+00_jprb, 0.663123e+00_jprb &
29820  &, 0.648012e+00_jprb, 0.632922e+00_jprb, 0.617892e+00_jprb, 0.602935e+00_jprb &
29821  &, 0.588064e+00_jprb, 0.573265e+00_jprb, 0.558548e+00_jprb &
29822  &, 0.543951e+00_jprb, 0.529483e+00_jprb, 0.515155e+00_jprb, 0.500944e+00_jprb &
29823  &, 0.486887e+00_jprb, 0.472990e+00_jprb, 0.459289e+00_jprb &
29824  &, 0.445726e+00_jprb, 0.432367e+00_jprb, 0.419182e+00_jprb, 0.406172e+00_jprb &
29825  &, 0.393403e+00_jprb, 0.380841e+00_jprb, 0.368448e+00_jprb &
29826  &, 0.356326e+00_jprb, 0.344400e+00_jprb, 0.332700e+00_jprb, 0.321256e+00_jprb &
29827  &, 0.310022e+00_jprb, 0.299028e+00_jprb, 0.288261e+00_jprb &
29828  &, 0.277750e+00_jprb, 0.267482e+00_jprb, 0.257483e+00_jprb, 0.247697e+00_jprb &
29829  &, 0.238148e+00_jprb, 0.228861e+00_jprb, 0.219859e+00_jprb &
29830  &, 0.211035e+00_jprb, 0.202500e+00_jprb, 0.194185e+00_jprb, 0.186111e+00_jprb &
29831  &, 0.178299e+00_jprb, 0.170724e+00_jprb, 0.163354e+00_jprb &
29832  &, 0.156210e+00_jprb, 0.149359e+00_jprb, 0.142669e+00_jprb, 0.136258e+00_jprb &
29833  &, 0.130041e+00_jprb, 0.124032e+00_jprb, 0.118248e+00_jprb &
29834  &, 0.112649e+00_jprb, 0.107305e+00_jprb, 0.102119e+00_jprb, 0.971608e-01_jprb &
29835  &, 0.923278e-01_jprb, 0.877484e-01_jprb, 0.833180e-01_jprb &
29836  &, 0.791078e-01_jprb, 0.750692e-01_jprb, 0.711507e-01_jprb, 0.674240e-01_jprb &
29837  &, 0.639003e-01_jprb, 0.604612e-01_jprb, 0.571787e-01_jprb/)
29838 xcw( 683, :) = (/ &
29839  & 0.104485e+01_jprb, 0.105520e+01_jprb, 0.106518e+01_jprb, 0.107480e+01_jprb &
29840  &, 0.108403e+01_jprb, 0.109288e+01_jprb, 0.110134e+01_jprb &
29841  &, 0.110940e+01_jprb, 0.111706e+01_jprb, 0.112430e+01_jprb, 0.113113e+01_jprb &
29842  &, 0.113753e+01_jprb, 0.114350e+01_jprb, 0.114904e+01_jprb &
29843  &, 0.115413e+01_jprb, 0.115878e+01_jprb, 0.116298e+01_jprb, 0.116672e+01_jprb &
29844  &, 0.117000e+01_jprb, 0.117281e+01_jprb, 0.117516e+01_jprb &
29845  &, 0.117704e+01_jprb, 0.117844e+01_jprb, 0.117936e+01_jprb, 0.117981e+01_jprb &
29846  &, 0.117978e+01_jprb, 0.117927e+01_jprb, 0.117827e+01_jprb &
29847  &, 0.117680e+01_jprb, 0.117484e+01_jprb, 0.117241e+01_jprb, 0.116949e+01_jprb &
29848  &, 0.116610e+01_jprb, 0.116224e+01_jprb, 0.115791e+01_jprb &
29849  &, 0.115311e+01_jprb, 0.114785e+01_jprb, 0.114213e+01_jprb, 0.113597e+01_jprb &
29850  &, 0.112935e+01_jprb, 0.112231e+01_jprb, 0.111483e+01_jprb &
29851  &, 0.110692e+01_jprb, 0.109860e+01_jprb, 0.108989e+01_jprb, 0.108077e+01_jprb &
29852  &, 0.107126e+01_jprb, 0.106138e+01_jprb, 0.105112e+01_jprb &
29853  &, 0.104053e+01_jprb, 0.102958e+01_jprb, 0.101830e+01_jprb, 0.100670e+01_jprb &
29854  &, 0.994797e+00_jprb, 0.982589e+00_jprb, 0.970102e+00_jprb &
29855  &, 0.957349e+00_jprb, 0.944342e+00_jprb, 0.931111e+00_jprb, 0.917636e+00_jprb &
29856  &, 0.903950e+00_jprb, 0.890049e+00_jprb, 0.875985e+00_jprb &
29857  &, 0.861739e+00_jprb, 0.847345e+00_jprb, 0.832802e+00_jprb, 0.818146e+00_jprb &
29858  &, 0.803356e+00_jprb, 0.788487e+00_jprb, 0.773518e+00_jprb &
29859  &, 0.758486e+00_jprb, 0.743408e+00_jprb, 0.728258e+00_jprb, 0.713117e+00_jprb &
29860  &, 0.697936e+00_jprb, 0.682753e+00_jprb, 0.667606e+00_jprb &
29861  &, 0.652463e+00_jprb, 0.637363e+00_jprb, 0.622319e+00_jprb, 0.607320e+00_jprb &
29862  &, 0.592403e+00_jprb, 0.577581e+00_jprb, 0.562838e+00_jprb &
29863  &, 0.548212e+00_jprb, 0.533711e+00_jprb, 0.519347e+00_jprb, 0.505096e+00_jprb &
29864  &, 0.490996e+00_jprb, 0.477052e+00_jprb, 0.463301e+00_jprb &
29865  &, 0.449684e+00_jprb, 0.436267e+00_jprb, 0.423021e+00_jprb, 0.410012e+00_jprb &
29866  &, 0.397174e+00_jprb, 0.384540e+00_jprb, 0.372106e+00_jprb &
29867  &, 0.359903e+00_jprb, 0.347930e+00_jprb, 0.336178e+00_jprb, 0.324642e+00_jprb &
29868  &, 0.313351e+00_jprb, 0.302294e+00_jprb, 0.291503e+00_jprb &
29869  &, 0.280924e+00_jprb, 0.270585e+00_jprb, 0.260470e+00_jprb, 0.250648e+00_jprb &
29870  &, 0.241060e+00_jprb, 0.231688e+00_jprb, 0.222599e+00_jprb &
29871  &, 0.213728e+00_jprb, 0.205097e+00_jprb, 0.196729e+00_jprb, 0.188600e+00_jprb &
29872  &, 0.180731e+00_jprb, 0.173047e+00_jprb, 0.165614e+00_jprb &
29873  &, 0.158453e+00_jprb, 0.151484e+00_jprb, 0.144773e+00_jprb, 0.138289e+00_jprb &
29874  &, 0.131996e+00_jprb, 0.125908e+00_jprb, 0.120097e+00_jprb &
29875  &, 0.114414e+00_jprb, 0.108983e+00_jprb, 0.103764e+00_jprb, 0.987129e-01_jprb &
29876  &, 0.939014e-01_jprb, 0.892255e-01_jprb, 0.847554e-01_jprb &
29877  &, 0.805040e-01_jprb, 0.763612e-01_jprb, 0.724600e-01_jprb, 0.686877e-01_jprb &
29878  &, 0.650527e-01_jprb, 0.616287e-01_jprb, 0.582958e-01_jprb/)
29879 xcw( 684, :) = (/ &
29880  & 0.104514e+01_jprb, 0.105556e+01_jprb, 0.106562e+01_jprb, 0.107531e+01_jprb &
29881  &, 0.108463e+01_jprb, 0.109356e+01_jprb, 0.110209e+01_jprb &
29882  &, 0.111023e+01_jprb, 0.111797e+01_jprb, 0.112530e+01_jprb, 0.113220e+01_jprb &
29883  &, 0.113869e+01_jprb, 0.114474e+01_jprb, 0.115036e+01_jprb &
29884  &, 0.115553e+01_jprb, 0.116026e+01_jprb, 0.116454e+01_jprb, 0.116837e+01_jprb &
29885  &, 0.117173e+01_jprb, 0.117463e+01_jprb, 0.117706e+01_jprb &
29886  &, 0.117901e+01_jprb, 0.118050e+01_jprb, 0.118151e+01_jprb, 0.118203e+01_jprb &
29887  &, 0.118209e+01_jprb, 0.118166e+01_jprb, 0.118074e+01_jprb &
29888  &, 0.117935e+01_jprb, 0.117747e+01_jprb, 0.117511e+01_jprb, 0.117228e+01_jprb &
29889  &, 0.116896e+01_jprb, 0.116518e+01_jprb, 0.116092e+01_jprb &
29890  &, 0.115620e+01_jprb, 0.115101e+01_jprb, 0.114536e+01_jprb, 0.113927e+01_jprb &
29891  &, 0.113272e+01_jprb, 0.112574e+01_jprb, 0.111833e+01_jprb &
29892  &, 0.111050e+01_jprb, 0.110224e+01_jprb, 0.109358e+01_jprb, 0.108452e+01_jprb &
29893  &, 0.107507e+01_jprb, 0.106524e+01_jprb, 0.105505e+01_jprb &
29894  &, 0.104450e+01_jprb, 0.103360e+01_jprb, 0.102236e+01_jprb, 0.101081e+01_jprb &
29895  &, 0.998959e+00_jprb, 0.986790e+00_jprb, 0.974357e+00_jprb &
29896  &, 0.961642e+00_jprb, 0.948672e+00_jprb, 0.935459e+00_jprb, 0.922001e+00_jprb &
29897  &, 0.908346e+00_jprb, 0.894493e+00_jprb, 0.880440e+00_jprb &
29898  &, 0.866221e+00_jprb, 0.851834e+00_jprb, 0.837314e+00_jprb, 0.822659e+00_jprb &
29899  &, 0.807888e+00_jprb, 0.793016e+00_jprb, 0.778061e+00_jprb &
29900  &, 0.763020e+00_jprb, 0.747930e+00_jprb, 0.732808e+00_jprb, 0.717627e+00_jprb &
29901  &, 0.702447e+00_jprb, 0.687263e+00_jprb, 0.672088e+00_jprb &
29902  &, 0.656938e+00_jprb, 0.641828e+00_jprb, 0.626747e+00_jprb, 0.611731e+00_jprb &
29903  &, 0.596796e+00_jprb, 0.581924e+00_jprb, 0.567156e+00_jprb &
29904  &, 0.552500e+00_jprb, 0.537968e+00_jprb, 0.523538e+00_jprb, 0.509278e+00_jprb &
29905  &, 0.495135e+00_jprb, 0.481145e+00_jprb, 0.467344e+00_jprb &
29906  &, 0.453674e+00_jprb, 0.440200e+00_jprb, 0.426925e+00_jprb, 0.413852e+00_jprb &
29907  &, 0.400946e+00_jprb, 0.388273e+00_jprb, 0.375798e+00_jprb &
29908  &, 0.363517e+00_jprb, 0.351495e+00_jprb, 0.339656e+00_jprb, 0.328066e+00_jprb &
29909  &, 0.316717e+00_jprb, 0.305600e+00_jprb, 0.294744e+00_jprb &
29910  &, 0.284098e+00_jprb, 0.273688e+00_jprb, 0.263541e+00_jprb, 0.253641e+00_jprb &
29911  &, 0.243972e+00_jprb, 0.234559e+00_jprb, 0.225382e+00_jprb &
29912  &, 0.216420e+00_jprb, 0.207740e+00_jprb, 0.199320e+00_jprb, 0.191090e+00_jprb &
29913  &, 0.183163e+00_jprb, 0.175419e+00_jprb, 0.167923e+00_jprb &
29914  &, 0.160697e+00_jprb, 0.153659e+00_jprb, 0.146878e+00_jprb, 0.140320e+00_jprb &
29915  &, 0.133951e+00_jprb, 0.127838e+00_jprb, 0.121945e+00_jprb &
29916  &, 0.116233e+00_jprb, 0.110772e+00_jprb, 0.105464e+00_jprb, 0.100380e+00_jprb &
29917  &, 0.954750e-01_jprb, 0.907616e-01_jprb, 0.862527e-01_jprb &
29918  &, 0.819002e-01_jprb, 0.777147e-01_jprb, 0.737694e-01_jprb, 0.698881e-01_jprb &
29919  &, 0.662690e-01_jprb, 0.627313e-01_jprb, 0.594129e-01_jprb/)
29920 xcw( 685, :) = (/ &
29921  & 0.104543e+01_jprb, 0.105593e+01_jprb, 0.106606e+01_jprb, 0.107583e+01_jprb &
29922  &, 0.108522e+01_jprb, 0.109423e+01_jprb, 0.110285e+01_jprb &
29923  &, 0.111107e+01_jprb, 0.111888e+01_jprb, 0.112629e+01_jprb, 0.113328e+01_jprb &
29924  &, 0.113984e+01_jprb, 0.114598e+01_jprb, 0.115168e+01_jprb &
29925  &, 0.115693e+01_jprb, 0.116175e+01_jprb, 0.116611e+01_jprb, 0.117002e+01_jprb &
29926  &, 0.117346e+01_jprb, 0.117644e+01_jprb, 0.117896e+01_jprb &
29927  &, 0.118100e+01_jprb, 0.118256e+01_jprb, 0.118366e+01_jprb, 0.118426e+01_jprb &
29928  &, 0.118440e+01_jprb, 0.118405e+01_jprb, 0.118322e+01_jprb &
29929  &, 0.118190e+01_jprb, 0.118010e+01_jprb, 0.117783e+01_jprb, 0.117507e+01_jprb &
29930  &, 0.117183e+01_jprb, 0.116812e+01_jprb, 0.116394e+01_jprb &
29931  &, 0.115929e+01_jprb, 0.115417e+01_jprb, 0.114861e+01_jprb, 0.114259e+01_jprb &
29932  &, 0.113611e+01_jprb, 0.112920e+01_jprb, 0.112185e+01_jprb &
29933  &, 0.111407e+01_jprb, 0.110589e+01_jprb, 0.109729e+01_jprb, 0.108829e+01_jprb &
29934  &, 0.107889e+01_jprb, 0.106913e+01_jprb, 0.105899e+01_jprb &
29935  &, 0.104849e+01_jprb, 0.103764e+01_jprb, 0.102646e+01_jprb, 0.101496e+01_jprb &
29936  &, 0.100314e+01_jprb, 0.991021e+00_jprb, 0.978612e+00_jprb &
29937  &, 0.965935e+00_jprb, 0.953001e+00_jprb, 0.939823e+00_jprb, 0.926383e+00_jprb &
29938  &, 0.912777e+00_jprb, 0.898937e+00_jprb, 0.884913e+00_jprb &
29939  &, 0.870703e+00_jprb, 0.856341e+00_jprb, 0.841845e+00_jprb, 0.827192e+00_jprb &
29940  &, 0.812440e+00_jprb, 0.797565e+00_jprb, 0.782625e+00_jprb &
29941  &, 0.767596e+00_jprb, 0.752495e+00_jprb, 0.737358e+00_jprb, 0.722182e+00_jprb &
29942  &, 0.707005e+00_jprb, 0.691796e+00_jprb, 0.676618e+00_jprb &
29943  &, 0.661438e+00_jprb, 0.646294e+00_jprb, 0.631199e+00_jprb, 0.616168e+00_jprb &
29944  &, 0.601214e+00_jprb, 0.586321e+00_jprb, 0.571528e+00_jprb &
29945  &, 0.556844e+00_jprb, 0.542252e+00_jprb, 0.527788e+00_jprb, 0.513489e+00_jprb &
29946  &, 0.499304e+00_jprb, 0.485269e+00_jprb, 0.471418e+00_jprb &
29947  &, 0.457727e+00_jprb, 0.444197e+00_jprb, 0.430863e+00_jprb, 0.417725e+00_jprb &
29948  &, 0.404751e+00_jprb, 0.392042e+00_jprb, 0.379491e+00_jprb &
29949  &, 0.367166e+00_jprb, 0.355061e+00_jprb, 0.343209e+00_jprb, 0.331565e+00_jprb &
29950  &, 0.320122e+00_jprb, 0.308945e+00_jprb, 0.297986e+00_jprb &
29951  &, 0.287312e+00_jprb, 0.276832e+00_jprb, 0.266611e+00_jprb, 0.256634e+00_jprb &
29952  &, 0.246884e+00_jprb, 0.237430e+00_jprb, 0.228166e+00_jprb &
29953  &, 0.219202e+00_jprb, 0.210428e+00_jprb, 0.201911e+00_jprb, 0.193673e+00_jprb &
29954  &, 0.185643e+00_jprb, 0.177839e+00_jprb, 0.170281e+00_jprb &
29955  &, 0.162990e+00_jprb, 0.155885e+00_jprb, 0.149034e+00_jprb, 0.142404e+00_jprb &
29956  &, 0.136011e+00_jprb, 0.129821e+00_jprb, 0.123848e+00_jprb &
29957  &, 0.118053e+00_jprb, 0.112505e+00_jprb, 0.107165e+00_jprb, 0.101990e+00_jprb &
29958  &, 0.970486e-01_jprb, 0.922978e-01_jprb, 0.876900e-01_jprb &
29959  &, 0.832964e-01_jprb, 0.791297e-01_jprb, 0.750787e-01_jprb, 0.712149e-01_jprb &
29960  &, 0.674853e-01_jprb, 0.638988e-01_jprb, 0.605300e-01_jprb/)
29961 xcw( 686, :) = (/ &
29962  & 0.104572e+01_jprb, 0.105629e+01_jprb, 0.106650e+01_jprb, 0.107635e+01_jprb &
29963  &, 0.108582e+01_jprb, 0.109490e+01_jprb, 0.110360e+01_jprb &
29964  &, 0.111190e+01_jprb, 0.111980e+01_jprb, 0.112728e+01_jprb, 0.113435e+01_jprb &
29965  &, 0.114100e+01_jprb, 0.114722e+01_jprb, 0.115300e+01_jprb &
29966  &, 0.115834e+01_jprb, 0.116324e+01_jprb, 0.116768e+01_jprb, 0.117167e+01_jprb &
29967  &, 0.117520e+01_jprb, 0.117827e+01_jprb, 0.118086e+01_jprb &
29968  &, 0.118299e+01_jprb, 0.118464e+01_jprb, 0.118581e+01_jprb, 0.118650e+01_jprb &
29969  &, 0.118672e+01_jprb, 0.118645e+01_jprb, 0.118570e+01_jprb &
29970  &, 0.118446e+01_jprb, 0.118275e+01_jprb, 0.118055e+01_jprb, 0.117787e+01_jprb &
29971  &, 0.117471e+01_jprb, 0.117108e+01_jprb, 0.116697e+01_jprb &
29972  &, 0.116239e+01_jprb, 0.115736e+01_jprb, 0.115185e+01_jprb, 0.114590e+01_jprb &
29973  &, 0.113950e+01_jprb, 0.113265e+01_jprb, 0.112538e+01_jprb &
29974  &, 0.111767e+01_jprb, 0.110955e+01_jprb, 0.110101e+01_jprb, 0.109207e+01_jprb &
29975  &, 0.108274e+01_jprb, 0.107303e+01_jprb, 0.106294e+01_jprb &
29976  &, 0.105250e+01_jprb, 0.104170e+01_jprb, 0.103057e+01_jprb, 0.101911e+01_jprb &
29977  &, 0.100734e+01_jprb, 0.995267e+00_jprb, 0.982898e+00_jprb &
29978  &, 0.970259e+00_jprb, 0.957362e+00_jprb, 0.944204e+00_jprb, 0.930831e+00_jprb &
29979  &, 0.917225e+00_jprb, 0.903416e+00_jprb, 0.889404e+00_jprb &
29980  &, 0.875222e+00_jprb, 0.860886e+00_jprb, 0.846394e+00_jprb, 0.831764e+00_jprb &
29981  &, 0.817012e+00_jprb, 0.802155e+00_jprb, 0.787209e+00_jprb &
29982  &, 0.772172e+00_jprb, 0.757081e+00_jprb, 0.741953e+00_jprb, 0.726782e+00_jprb &
29983  &, 0.711562e+00_jprb, 0.696353e+00_jprb, 0.681124e+00_jprb &
29984  &, 0.665962e+00_jprb, 0.650808e+00_jprb, 0.635702e+00_jprb, 0.620631e+00_jprb &
29985  &, 0.605659e+00_jprb, 0.590745e+00_jprb, 0.575900e+00_jprb &
29986  &, 0.561188e+00_jprb, 0.546565e+00_jprb, 0.532066e+00_jprb, 0.517729e+00_jprb &
29987  &, 0.503503e+00_jprb, 0.489423e+00_jprb, 0.475524e+00_jprb &
29988  &, 0.461780e+00_jprb, 0.448194e+00_jprb, 0.434832e+00_jprb, 0.421632e+00_jprb &
29989  &, 0.408625e+00_jprb, 0.395810e+00_jprb, 0.383219e+00_jprb &
29990  &, 0.370851e+00_jprb, 0.358700e+00_jprb, 0.346761e+00_jprb, 0.335064e+00_jprb &
29991  &, 0.323564e+00_jprb, 0.312328e+00_jprb, 0.301306e+00_jprb &
29992  &, 0.290526e+00_jprb, 0.280016e+00_jprb, 0.269722e+00_jprb, 0.259669e+00_jprb &
29993  &, 0.249882e+00_jprb, 0.240345e+00_jprb, 0.231037e+00_jprb &
29994  &, 0.221939e+00_jprb, 0.213116e+00_jprb, 0.204548e+00_jprb, 0.196210e+00_jprb &
29995  &, 0.188122e+00_jprb, 0.180259e+00_jprb, 0.172639e+00_jprb &
29996  &, 0.165284e+00_jprb, 0.158111e+00_jprb, 0.151190e+00_jprb, 0.144487e+00_jprb &
29997  &, 0.138019e+00_jprb, 0.131804e+00_jprb, 0.125750e+00_jprb &
29998  &, 0.119927e+00_jprb, 0.114294e+00_jprb, 0.108923e+00_jprb, 0.103714e+00_jprb &
29999  &, 0.986805e-01_jprb, 0.938340e-01_jprb, 0.892472e-01_jprb &
30000  &, 0.847533e-01_jprb, 0.804833e-01_jprb, 0.763880e-01_jprb, 0.724785e-01_jprb &
30001  &, 0.687017e-01_jprb, 0.651312e-01_jprb, 0.616470e-01_jprb/)
30002 
30003 IF (lhook) CALL dr_hook('SU_MCICA:PART98',1,zhook_handle)
30004 END SUBROUTINE part98
30005 
30006 #ifdef VPP5000
30007 !OCL SCALAR
30008 #endif
30009 !option! -Nv -NO
30010 #ifdef RS6K
30011 @process nooptimize
30012 #endif
30013 !pgi$r opt=0
30014 SUBROUTINE part99
30015 
30016 REAL(KIND=JPRB) :: ZHOOK_HANDLE
30017 IF (lhook) CALL dr_hook('SU_MCICA:PART99',0,zhook_handle)
30018 
30019 xcw( 687, :) = (/ &
30020  & 0.104601e+01_jprb, 0.105666e+01_jprb, 0.106695e+01_jprb, 0.107687e+01_jprb &
30021  &, 0.108641e+01_jprb, 0.109558e+01_jprb, 0.110435e+01_jprb &
30022  &, 0.111273e+01_jprb, 0.112071e+01_jprb, 0.112828e+01_jprb, 0.113543e+01_jprb &
30023  &, 0.114216e+01_jprb, 0.114846e+01_jprb, 0.115432e+01_jprb &
30024  &, 0.115975e+01_jprb, 0.116473e+01_jprb, 0.116926e+01_jprb, 0.117333e+01_jprb &
30025  &, 0.117694e+01_jprb, 0.118009e+01_jprb, 0.118277e+01_jprb &
30026  &, 0.118498e+01_jprb, 0.118671e+01_jprb, 0.118797e+01_jprb, 0.118875e+01_jprb &
30027  &, 0.118904e+01_jprb, 0.118886e+01_jprb, 0.118819e+01_jprb &
30028  &, 0.118703e+01_jprb, 0.118540e+01_jprb, 0.118328e+01_jprb, 0.118068e+01_jprb &
30029  &, 0.117760e+01_jprb, 0.117404e+01_jprb, 0.117002e+01_jprb &
30030  &, 0.116551e+01_jprb, 0.116054e+01_jprb, 0.115512e+01_jprb, 0.114924e+01_jprb &
30031  &, 0.114291e+01_jprb, 0.113613e+01_jprb, 0.112892e+01_jprb &
30032  &, 0.112128e+01_jprb, 0.111321e+01_jprb, 0.110475e+01_jprb, 0.109586e+01_jprb &
30033  &, 0.108659e+01_jprb, 0.107694e+01_jprb, 0.106691e+01_jprb &
30034  &, 0.105652e+01_jprb, 0.104578e+01_jprb, 0.103469e+01_jprb, 0.102327e+01_jprb &
30035  &, 0.101155e+01_jprb, 0.999513e+00_jprb, 0.987198e+00_jprb &
30036  &, 0.974598e+00_jprb, 0.961739e+00_jprb, 0.948617e+00_jprb, 0.935262e+00_jprb &
30037  &, 0.921689e+00_jprb, 0.907912e+00_jprb, 0.893930e+00_jprb &
30038  &, 0.879777e+00_jprb, 0.865449e+00_jprb, 0.850963e+00_jprb, 0.836355e+00_jprb &
30039  &, 0.821604e+00_jprb, 0.806764e+00_jprb, 0.791814e+00_jprb &
30040  &, 0.776791e+00_jprb, 0.761710e+00_jprb, 0.746569e+00_jprb, 0.731382e+00_jprb &
30041  &, 0.716165e+00_jprb, 0.700956e+00_jprb, 0.685725e+00_jprb &
30042  &, 0.670534e+00_jprb, 0.655348e+00_jprb, 0.640231e+00_jprb, 0.625146e+00_jprb &
30043  &, 0.610130e+00_jprb, 0.595169e+00_jprb, 0.580327e+00_jprb &
30044  &, 0.565560e+00_jprb, 0.550906e+00_jprb, 0.536402e+00_jprb, 0.521999e+00_jprb &
30045  &, 0.507732e+00_jprb, 0.493607e+00_jprb, 0.479660e+00_jprb &
30046  &, 0.465865e+00_jprb, 0.452256e+00_jprb, 0.438802e+00_jprb, 0.425572e+00_jprb &
30047  &, 0.412498e+00_jprb, 0.399647e+00_jprb, 0.387017e+00_jprb &
30048  &, 0.374571e+00_jprb, 0.362338e+00_jprb, 0.350350e+00_jprb, 0.338601e+00_jprb &
30049  &, 0.327046e+00_jprb, 0.315750e+00_jprb, 0.304666e+00_jprb &
30050  &, 0.293821e+00_jprb, 0.283242e+00_jprb, 0.272875e+00_jprb, 0.262746e+00_jprb &
30051  &, 0.252879e+00_jprb, 0.243259e+00_jprb, 0.233909e+00_jprb &
30052  &, 0.224766e+00_jprb, 0.215850e+00_jprb, 0.207231e+00_jprb, 0.198840e+00_jprb &
30053  &, 0.190649e+00_jprb, 0.182727e+00_jprb, 0.175046e+00_jprb &
30054  &, 0.167627e+00_jprb, 0.160388e+00_jprb, 0.153397e+00_jprb, 0.146622e+00_jprb &
30055  &, 0.140080e+00_jprb, 0.133787e+00_jprb, 0.127707e+00_jprb &
30056  &, 0.121802e+00_jprb, 0.116139e+00_jprb, 0.110680e+00_jprb, 0.105381e+00_jprb &
30057  &, 0.100312e+00_jprb, 0.954292e-01_jprb, 0.907445e-01_jprb &
30058  &, 0.862709e-01_jprb, 0.818983e-01_jprb, 0.777597e-01_jprb, 0.738053e-01_jprb &
30059  &, 0.699821e-01_jprb, 0.663636e-01_jprb, 0.628298e-01_jprb/)
30060 xcw( 688, :) = (/ &
30061  & 0.104630e+01_jprb, 0.105703e+01_jprb, 0.106739e+01_jprb, 0.107739e+01_jprb &
30062  &, 0.108701e+01_jprb, 0.109626e+01_jprb, 0.110511e+01_jprb &
30063  &, 0.111357e+01_jprb, 0.112163e+01_jprb, 0.112928e+01_jprb, 0.113651e+01_jprb &
30064  &, 0.114332e+01_jprb, 0.114970e+01_jprb, 0.115565e+01_jprb &
30065  &, 0.116116e+01_jprb, 0.116622e+01_jprb, 0.117084e+01_jprb, 0.117499e+01_jprb &
30066  &, 0.117869e+01_jprb, 0.118192e+01_jprb, 0.118469e+01_jprb &
30067  &, 0.118698e+01_jprb, 0.118880e+01_jprb, 0.119014e+01_jprb, 0.119100e+01_jprb &
30068  &, 0.119138e+01_jprb, 0.119127e+01_jprb, 0.119068e+01_jprb &
30069  &, 0.118961e+01_jprb, 0.118806e+01_jprb, 0.118602e+01_jprb, 0.118349e+01_jprb &
30070  &, 0.118049e+01_jprb, 0.117702e+01_jprb, 0.117306e+01_jprb &
30071  &, 0.116863e+01_jprb, 0.116375e+01_jprb, 0.115840e+01_jprb, 0.115258e+01_jprb &
30072  &, 0.114632e+01_jprb, 0.113962e+01_jprb, 0.113247e+01_jprb &
30073  &, 0.112489e+01_jprb, 0.111690e+01_jprb, 0.110849e+01_jprb, 0.109968e+01_jprb &
30074  &, 0.109047e+01_jprb, 0.108087e+01_jprb, 0.107089e+01_jprb &
30075  &, 0.106055e+01_jprb, 0.104987e+01_jprb, 0.103884e+01_jprb, 0.102747e+01_jprb &
30076  &, 0.101578e+01_jprb, 0.100380e+01_jprb, 0.991514e+00_jprb &
30077  &, 0.978953e+00_jprb, 0.966131e+00_jprb, 0.953046e+00_jprb, 0.939727e+00_jprb &
30078  &, 0.926188e+00_jprb, 0.912426e+00_jprb, 0.898475e+00_jprb &
30079  &, 0.884331e+00_jprb, 0.870030e+00_jprb, 0.855570e+00_jprb, 0.840966e+00_jprb &
30080  &, 0.826235e+00_jprb, 0.811394e+00_jprb, 0.796461e+00_jprb &
30081  &, 0.781430e+00_jprb, 0.766340e+00_jprb, 0.751207e+00_jprb, 0.735982e+00_jprb &
30082  &, 0.720790e+00_jprb, 0.705583e+00_jprb, 0.690351e+00_jprb &
30083  &, 0.675131e+00_jprb, 0.659938e+00_jprb, 0.644785e+00_jprb, 0.629660e+00_jprb &
30084  &, 0.614627e+00_jprb, 0.599646e+00_jprb, 0.584781e+00_jprb &
30085  &, 0.569988e+00_jprb, 0.555305e+00_jprb, 0.540739e+00_jprb, 0.526299e+00_jprb &
30086  &, 0.511991e+00_jprb, 0.497823e+00_jprb, 0.483828e+00_jprb &
30087  &, 0.469981e+00_jprb, 0.456317e+00_jprb, 0.442838e+00_jprb, 0.429546e+00_jprb &
30088  &, 0.416440e+00_jprb, 0.403519e+00_jprb, 0.390816e+00_jprb &
30089  &, 0.378327e+00_jprb, 0.366050e+00_jprb, 0.353976e+00_jprb, 0.342138e+00_jprb &
30090  &, 0.330527e+00_jprb, 0.319172e+00_jprb, 0.308026e+00_jprb &
30091  &, 0.297115e+00_jprb, 0.286467e+00_jprb, 0.276028e+00_jprb, 0.265865e+00_jprb &
30092  &, 0.255920e+00_jprb, 0.246260e+00_jprb, 0.236781e+00_jprb &
30093  &, 0.227593e+00_jprb, 0.218630e+00_jprb, 0.209915e+00_jprb, 0.201470e+00_jprb &
30094  &, 0.193224e+00_jprb, 0.185244e+00_jprb, 0.177503e+00_jprb &
30095  &, 0.169970e+00_jprb, 0.162665e+00_jprb, 0.155656e+00_jprb, 0.148810e+00_jprb &
30096  &, 0.142193e+00_jprb, 0.135824e+00_jprb, 0.129664e+00_jprb &
30097  &, 0.123731e+00_jprb, 0.117985e+00_jprb, 0.112438e+00_jprb, 0.107106e+00_jprb &
30098  &, 0.102002e+00_jprb, 0.970244e-01_jprb, 0.923016e-01_jprb &
30099  &, 0.877278e-01_jprb, 0.833749e-01_jprb, 0.791938e-01_jprb, 0.751321e-01_jprb &
30100  &, 0.712624e-01_jprb, 0.675960e-01_jprb, 0.640126e-01_jprb/)
30101 xcw( 689, :) = (/ &
30102  & 0.104660e+01_jprb, 0.105739e+01_jprb, 0.106783e+01_jprb, 0.107791e+01_jprb &
30103  &, 0.108761e+01_jprb, 0.109693e+01_jprb, 0.110587e+01_jprb &
30104  &, 0.111441e+01_jprb, 0.112255e+01_jprb, 0.113028e+01_jprb, 0.113759e+01_jprb &
30105  &, 0.114449e+01_jprb, 0.115095e+01_jprb, 0.115698e+01_jprb &
30106  &, 0.116258e+01_jprb, 0.116772e+01_jprb, 0.117242e+01_jprb, 0.117666e+01_jprb &
30107  &, 0.118044e+01_jprb, 0.118376e+01_jprb, 0.118660e+01_jprb &
30108  &, 0.118898e+01_jprb, 0.119088e+01_jprb, 0.119231e+01_jprb, 0.119325e+01_jprb &
30109  &, 0.119371e+01_jprb, 0.119369e+01_jprb, 0.119319e+01_jprb &
30110  &, 0.119220e+01_jprb, 0.119072e+01_jprb, 0.118876e+01_jprb, 0.118632e+01_jprb &
30111  &, 0.118340e+01_jprb, 0.118000e+01_jprb, 0.117612e+01_jprb &
30112  &, 0.117177e+01_jprb, 0.116695e+01_jprb, 0.116168e+01_jprb, 0.115594e+01_jprb &
30113  &, 0.114975e+01_jprb, 0.114312e+01_jprb, 0.113603e+01_jprb &
30114  &, 0.112853e+01_jprb, 0.112060e+01_jprb, 0.111225e+01_jprb, 0.110350e+01_jprb &
30115  &, 0.109435e+01_jprb, 0.108481e+01_jprb, 0.107489e+01_jprb &
30116  &, 0.106461e+01_jprb, 0.105398e+01_jprb, 0.104298e+01_jprb, 0.103167e+01_jprb &
30117  &, 0.102004e+01_jprb, 0.100809e+01_jprb, 0.995860e+00_jprb &
30118  &, 0.983338e+00_jprb, 0.970540e+00_jprb, 0.957492e+00_jprb, 0.944208e+00_jprb &
30119  &, 0.930703e+00_jprb, 0.916957e+00_jprb, 0.903036e+00_jprb &
30120  &, 0.888922e+00_jprb, 0.874631e+00_jprb, 0.860195e+00_jprb, 0.845595e+00_jprb &
30121  &, 0.830886e+00_jprb, 0.816044e+00_jprb, 0.801128e+00_jprb &
30122  &, 0.786112e+00_jprb, 0.771012e+00_jprb, 0.755867e+00_jprb, 0.740671e+00_jprb &
30123  &, 0.725462e+00_jprb, 0.710210e+00_jprb, 0.694976e+00_jprb &
30124  &, 0.679752e+00_jprb, 0.664527e+00_jprb, 0.649364e+00_jprb, 0.634226e+00_jprb &
30125  &, 0.619151e+00_jprb, 0.604150e+00_jprb, 0.589235e+00_jprb &
30126  &, 0.574416e+00_jprb, 0.559703e+00_jprb, 0.545104e+00_jprb, 0.530627e+00_jprb &
30127  &, 0.516280e+00_jprb, 0.502099e+00_jprb, 0.488027e+00_jprb &
30128  &, 0.474161e+00_jprb, 0.460443e+00_jprb, 0.446906e+00_jprb, 0.433552e+00_jprb &
30129  &, 0.420381e+00_jprb, 0.407425e+00_jprb, 0.394649e+00_jprb &
30130  &, 0.382120e+00_jprb, 0.369761e+00_jprb, 0.357640e+00_jprb, 0.345750e+00_jprb &
30131  &, 0.334084e+00_jprb, 0.322633e+00_jprb, 0.311426e+00_jprb &
30132  &, 0.300490e+00_jprb, 0.289734e+00_jprb, 0.279264e+00_jprb, 0.269027e+00_jprb &
30133  &, 0.259003e+00_jprb, 0.249262e+00_jprb, 0.239741e+00_jprb &
30134  &, 0.230464e+00_jprb, 0.221455e+00_jprb, 0.212645e+00_jprb, 0.204101e+00_jprb &
30135  &, 0.195847e+00_jprb, 0.187761e+00_jprb, 0.179959e+00_jprb &
30136  &, 0.172363e+00_jprb, 0.164992e+00_jprb, 0.157915e+00_jprb, 0.150997e+00_jprb &
30137  &, 0.144307e+00_jprb, 0.137914e+00_jprb, 0.131676e+00_jprb &
30138  &, 0.125661e+00_jprb, 0.119830e+00_jprb, 0.114252e+00_jprb, 0.108888e+00_jprb &
30139  &, 0.103693e+00_jprb, 0.986788e-01_jprb, 0.938588e-01_jprb &
30140  &, 0.892454e-01_jprb, 0.848515e-01_jprb, 0.805655e-01_jprb, 0.765221e-01_jprb &
30141  &, 0.726068e-01_jprb, 0.688283e-01_jprb, 0.652612e-01_jprb/)
30142 xcw( 690, :) = (/ &
30143  & 0.104689e+01_jprb, 0.105776e+01_jprb, 0.106828e+01_jprb, 0.107843e+01_jprb &
30144  &, 0.108821e+01_jprb, 0.109761e+01_jprb, 0.110663e+01_jprb &
30145  &, 0.111525e+01_jprb, 0.112347e+01_jprb, 0.113128e+01_jprb, 0.113868e+01_jprb &
30146  &, 0.114565e+01_jprb, 0.115220e+01_jprb, 0.115832e+01_jprb &
30147  &, 0.116399e+01_jprb, 0.116922e+01_jprb, 0.117401e+01_jprb, 0.117833e+01_jprb &
30148  &, 0.118220e+01_jprb, 0.118560e+01_jprb, 0.118853e+01_jprb &
30149  &, 0.119099e+01_jprb, 0.119298e+01_jprb, 0.119449e+01_jprb, 0.119551e+01_jprb &
30150  &, 0.119606e+01_jprb, 0.119612e+01_jprb, 0.119570e+01_jprb &
30151  &, 0.119479e+01_jprb, 0.119339e+01_jprb, 0.119152e+01_jprb, 0.118916e+01_jprb &
30152  &, 0.118631e+01_jprb, 0.118299e+01_jprb, 0.117919e+01_jprb &
30153  &, 0.117492e+01_jprb, 0.117018e+01_jprb, 0.116498e+01_jprb, 0.115931e+01_jprb &
30154  &, 0.115319e+01_jprb, 0.114663e+01_jprb, 0.113962e+01_jprb &
30155  &, 0.113218e+01_jprb, 0.112432e+01_jprb, 0.111603e+01_jprb, 0.110734e+01_jprb &
30156  &, 0.109825e+01_jprb, 0.108877e+01_jprb, 0.107891e+01_jprb &
30157  &, 0.106869e+01_jprb, 0.105809e+01_jprb, 0.104716e+01_jprb, 0.103589e+01_jprb &
30158  &, 0.102431e+01_jprb, 0.101241e+01_jprb, 0.100021e+01_jprb &
30159  &, 0.987724e+00_jprb, 0.974980e+00_jprb, 0.961970e+00_jprb, 0.948706e+00_jprb &
30160  &, 0.935235e+00_jprb, 0.921523e+00_jprb, 0.907616e+00_jprb &
30161  &, 0.893532e+00_jprb, 0.879268e+00_jprb, 0.864840e+00_jprb, 0.850264e+00_jprb &
30162  &, 0.835557e+00_jprb, 0.820735e+00_jprb, 0.805815e+00_jprb &
30163  &, 0.790793e+00_jprb, 0.775706e+00_jprb, 0.760572e+00_jprb, 0.745361e+00_jprb &
30164  &, 0.730134e+00_jprb, 0.714884e+00_jprb, 0.699649e+00_jprb &
30165  &, 0.684397e+00_jprb, 0.669166e+00_jprb, 0.653969e+00_jprb, 0.638818e+00_jprb &
30166  &, 0.623727e+00_jprb, 0.608708e+00_jprb, 0.593744e+00_jprb &
30167  &, 0.578899e+00_jprb, 0.564157e+00_jprb, 0.549498e+00_jprb, 0.534986e+00_jprb &
30168  &, 0.520599e+00_jprb, 0.506375e+00_jprb, 0.492288e+00_jprb &
30169  &, 0.478341e+00_jprb, 0.464569e+00_jprb, 0.451008e+00_jprb, 0.437593e+00_jprb &
30170  &, 0.424356e+00_jprb, 0.411367e+00_jprb, 0.398518e+00_jprb &
30171  &, 0.385912e+00_jprb, 0.373509e+00_jprb, 0.361340e+00_jprb, 0.349400e+00_jprb &
30172  &, 0.337642e+00_jprb, 0.326172e+00_jprb, 0.314904e+00_jprb &
30173  &, 0.303865e+00_jprb, 0.293041e+00_jprb, 0.282501e+00_jprb, 0.272188e+00_jprb &
30174  &, 0.262129e+00_jprb, 0.252307e+00_jprb, 0.242701e+00_jprb &
30175  &, 0.233381e+00_jprb, 0.224280e+00_jprb, 0.215420e+00_jprb, 0.206825e+00_jprb &
30176  &, 0.198470e+00_jprb, 0.190326e+00_jprb, 0.182415e+00_jprb &
30177  &, 0.174806e+00_jprb, 0.167370e+00_jprb, 0.160174e+00_jprb, 0.153237e+00_jprb &
30178  &, 0.146473e+00_jprb, 0.140004e+00_jprb, 0.133687e+00_jprb &
30179  &, 0.127591e+00_jprb, 0.121731e+00_jprb, 0.116123e+00_jprb, 0.110670e+00_jprb &
30180  &, 0.105383e+00_jprb, 0.100333e+00_jprb, 0.954758e-01_jprb &
30181  &, 0.908237e-01_jprb, 0.863280e-01_jprb, 0.819995e-01_jprb, 0.778489e-01_jprb &
30182  &, 0.738872e-01_jprb, 0.701256e-01_jprb, 0.664440e-01_jprb/)
30183 xcw( 691, :) = (/ &
30184  & 0.104718e+01_jprb, 0.105813e+01_jprb, 0.106872e+01_jprb, 0.107895e+01_jprb &
30185  &, 0.108881e+01_jprb, 0.109829e+01_jprb, 0.110739e+01_jprb &
30186  &, 0.111609e+01_jprb, 0.112439e+01_jprb, 0.113228e+01_jprb, 0.113976e+01_jprb &
30187  &, 0.114682e+01_jprb, 0.115345e+01_jprb, 0.115965e+01_jprb &
30188  &, 0.116541e+01_jprb, 0.117073e+01_jprb, 0.117559e+01_jprb, 0.118000e+01_jprb &
30189  &, 0.118396e+01_jprb, 0.118744e+01_jprb, 0.119046e+01_jprb &
30190  &, 0.119300e+01_jprb, 0.119508e+01_jprb, 0.119667e+01_jprb, 0.119778e+01_jprb &
30191  &, 0.119841e+01_jprb, 0.119855e+01_jprb, 0.119821e+01_jprb &
30192  &, 0.119739e+01_jprb, 0.119607e+01_jprb, 0.119428e+01_jprb, 0.119200e+01_jprb &
30193  &, 0.118924e+01_jprb, 0.118599e+01_jprb, 0.118227e+01_jprb &
30194  &, 0.117807e+01_jprb, 0.117341e+01_jprb, 0.116828e+01_jprb, 0.116269e+01_jprb &
30195  &, 0.115664e+01_jprb, 0.115015e+01_jprb, 0.114321e+01_jprb &
30196  &, 0.113584e+01_jprb, 0.112804e+01_jprb, 0.111981e+01_jprb, 0.111119e+01_jprb &
30197  &, 0.110216e+01_jprb, 0.109274e+01_jprb, 0.108293e+01_jprb &
30198  &, 0.107277e+01_jprb, 0.106224e+01_jprb, 0.105135e+01_jprb, 0.104014e+01_jprb &
30199  &, 0.102860e+01_jprb, 0.101675e+01_jprb, 0.100458e+01_jprb &
30200  &, 0.992141e+00_jprb, 0.979436e+00_jprb, 0.966464e+00_jprb, 0.953237e+00_jprb &
30201  &, 0.939785e+00_jprb, 0.926106e+00_jprb, 0.912231e+00_jprb &
30202  &, 0.898159e+00_jprb, 0.883905e+00_jprb, 0.869503e+00_jprb, 0.854952e+00_jprb &
30203  &, 0.840247e+00_jprb, 0.825446e+00_jprb, 0.810523e+00_jprb &
30204  &, 0.795517e+00_jprb, 0.780422e+00_jprb, 0.765276e+00_jprb, 0.750095e+00_jprb &
30205  &, 0.734851e+00_jprb, 0.719604e+00_jprb, 0.704322e+00_jprb &
30206  &, 0.689067e+00_jprb, 0.673830e+00_jprb, 0.658598e+00_jprb, 0.643436e+00_jprb &
30207  &, 0.628330e+00_jprb, 0.613266e+00_jprb, 0.598307e+00_jprb &
30208  &, 0.583411e+00_jprb, 0.568612e+00_jprb, 0.553950e+00_jprb, 0.539403e+00_jprb &
30209  &, 0.524978e+00_jprb, 0.510682e+00_jprb, 0.496549e+00_jprb &
30210  &, 0.482584e+00_jprb, 0.468759e+00_jprb, 0.455109e+00_jprb, 0.441666e+00_jprb &
30211  &, 0.428400e+00_jprb, 0.415308e+00_jprb, 0.402457e+00_jprb &
30212  &, 0.389775e+00_jprb, 0.377329e+00_jprb, 0.365077e+00_jprb, 0.353049e+00_jprb &
30213  &, 0.341276e+00_jprb, 0.329711e+00_jprb, 0.318383e+00_jprb &
30214  &, 0.307280e+00_jprb, 0.296389e+00_jprb, 0.285778e+00_jprb, 0.275392e+00_jprb &
30215  &, 0.265255e+00_jprb, 0.255352e+00_jprb, 0.245706e+00_jprb &
30216  &, 0.236297e+00_jprb, 0.227150e+00_jprb, 0.218243e+00_jprb, 0.209550e+00_jprb &
30217  &, 0.201092e+00_jprb, 0.192940e+00_jprb, 0.184970e+00_jprb &
30218  &, 0.177249e+00_jprb, 0.169748e+00_jprb, 0.162484e+00_jprb, 0.155476e+00_jprb &
30219  &, 0.148692e+00_jprb, 0.142094e+00_jprb, 0.135753e+00_jprb &
30220  &, 0.129631e+00_jprb, 0.123688e+00_jprb, 0.117994e+00_jprb, 0.112452e+00_jprb &
30221  &, 0.107131e+00_jprb, 0.102047e+00_jprb, 0.970929e-01_jprb &
30222  &, 0.924020e-01_jprb, 0.878661e-01_jprb, 0.834959e-01_jprb, 0.793020e-01_jprb &
30223  &, 0.752316e-01_jprb, 0.714228e-01_jprb, 0.676925e-01_jprb/)
30224 xcw( 692, :) = (/ &
30225  & 0.104747e+01_jprb, 0.105850e+01_jprb, 0.106917e+01_jprb, 0.107948e+01_jprb &
30226  &, 0.108941e+01_jprb, 0.109897e+01_jprb, 0.110815e+01_jprb &
30227  &, 0.111693e+01_jprb, 0.112531e+01_jprb, 0.113329e+01_jprb, 0.114085e+01_jprb &
30228  &, 0.114799e+01_jprb, 0.115471e+01_jprb, 0.116099e+01_jprb &
30229  &, 0.116684e+01_jprb, 0.117224e+01_jprb, 0.117719e+01_jprb, 0.118168e+01_jprb &
30230  &, 0.118571e+01_jprb, 0.118929e+01_jprb, 0.119239e+01_jprb &
30231  &, 0.119502e+01_jprb, 0.119718e+01_jprb, 0.119885e+01_jprb, 0.120005e+01_jprb &
30232  &, 0.120076e+01_jprb, 0.120099e+01_jprb, 0.120074e+01_jprb &
30233  &, 0.119999e+01_jprb, 0.119876e+01_jprb, 0.119705e+01_jprb, 0.119485e+01_jprb &
30234  &, 0.119217e+01_jprb, 0.118900e+01_jprb, 0.118536e+01_jprb &
30235  &, 0.118124e+01_jprb, 0.117665e+01_jprb, 0.117160e+01_jprb, 0.116607e+01_jprb &
30236  &, 0.116011e+01_jprb, 0.115368e+01_jprb, 0.114682e+01_jprb &
30237  &, 0.113951e+01_jprb, 0.113177e+01_jprb, 0.112362e+01_jprb, 0.111506e+01_jprb &
30238  &, 0.110609e+01_jprb, 0.109673e+01_jprb, 0.108699e+01_jprb &
30239  &, 0.107687e+01_jprb, 0.106640e+01_jprb, 0.105557e+01_jprb, 0.104440e+01_jprb &
30240  &, 0.103290e+01_jprb, 0.102110e+01_jprb, 0.100899e+01_jprb &
30241  &, 0.996588e+00_jprb, 0.983908e+00_jprb, 0.970974e+00_jprb, 0.957784e+00_jprb &
30242  &, 0.944351e+00_jprb, 0.930706e+00_jprb, 0.916864e+00_jprb &
30243  &, 0.902823e+00_jprb, 0.888598e+00_jprb, 0.874205e+00_jprb, 0.859659e+00_jprb &
30244  &, 0.844977e+00_jprb, 0.830177e+00_jprb, 0.815273e+00_jprb &
30245  &, 0.800262e+00_jprb, 0.785181e+00_jprb, 0.770024e+00_jprb, 0.754830e+00_jprb &
30246  &, 0.739591e+00_jprb, 0.724324e+00_jprb, 0.709043e+00_jprb &
30247  &, 0.693785e+00_jprb, 0.678518e+00_jprb, 0.663279e+00_jprb, 0.648079e+00_jprb &
30248  &, 0.632959e+00_jprb, 0.617877e+00_jprb, 0.602871e+00_jprb &
30249  &, 0.587950e+00_jprb, 0.573124e+00_jprb, 0.558430e+00_jprb, 0.543820e+00_jprb &
30250  &, 0.529357e+00_jprb, 0.515050e+00_jprb, 0.500872e+00_jprb &
30251  &, 0.486827e+00_jprb, 0.472982e+00_jprb, 0.459276e+00_jprb, 0.445773e+00_jprb &
30252  &, 0.432443e+00_jprb, 0.419318e+00_jprb, 0.406396e+00_jprb &
30253  &, 0.393675e+00_jprb, 0.381150e+00_jprb, 0.368851e+00_jprb, 0.356774e+00_jprb &
30254  &, 0.344910e+00_jprb, 0.333289e+00_jprb, 0.321862e+00_jprb &
30255  &, 0.310695e+00_jprb, 0.299778e+00_jprb, 0.289097e+00_jprb, 0.278637e+00_jprb &
30256  &, 0.268424e+00_jprb, 0.258484e+00_jprb, 0.248754e+00_jprb &
30257  &, 0.239304e+00_jprb, 0.230067e+00_jprb, 0.221065e+00_jprb, 0.212321e+00_jprb &
30258  &, 0.203810e+00_jprb, 0.195554e+00_jprb, 0.187524e+00_jprb &
30259  &, 0.179742e+00_jprb, 0.172176e+00_jprb, 0.164845e+00_jprb, 0.157768e+00_jprb &
30260  &, 0.150911e+00_jprb, 0.144238e+00_jprb, 0.137819e+00_jprb &
30261  &, 0.131616e+00_jprb, 0.125645e+00_jprb, 0.119865e+00_jprb, 0.114292e+00_jprb &
30262  &, 0.108938e+00_jprb, 0.103760e+00_jprb, 0.987698e-01_jprb &
30263  &, 0.939803e-01_jprb, 0.894042e-01_jprb, 0.849299e-01_jprb, 0.806920e-01_jprb &
30264  &, 0.766400e-01_jprb, 0.727200e-01_jprb, 0.690067e-01_jprb/)
30265 xcw( 693, :) = (/ &
30266  & 0.104777e+01_jprb, 0.105887e+01_jprb, 0.106962e+01_jprb, 0.108000e+01_jprb &
30267  &, 0.109002e+01_jprb, 0.109966e+01_jprb, 0.110891e+01_jprb &
30268  &, 0.111778e+01_jprb, 0.112624e+01_jprb, 0.113430e+01_jprb, 0.114194e+01_jprb &
30269  &, 0.114917e+01_jprb, 0.115596e+01_jprb, 0.116234e+01_jprb &
30270  &, 0.116826e+01_jprb, 0.117375e+01_jprb, 0.117878e+01_jprb, 0.118337e+01_jprb &
30271  &, 0.118749e+01_jprb, 0.119114e+01_jprb, 0.119433e+01_jprb &
30272  &, 0.119705e+01_jprb, 0.119929e+01_jprb, 0.120105e+01_jprb, 0.120233e+01_jprb &
30273  &, 0.120313e+01_jprb, 0.120344e+01_jprb, 0.120327e+01_jprb &
30274  &, 0.120261e+01_jprb, 0.120146e+01_jprb, 0.119983e+01_jprb, 0.119771e+01_jprb &
30275  &, 0.119510e+01_jprb, 0.119202e+01_jprb, 0.118845e+01_jprb &
30276  &, 0.118442e+01_jprb, 0.117990e+01_jprb, 0.117492e+01_jprb, 0.116948e+01_jprb &
30277  &, 0.116358e+01_jprb, 0.115723e+01_jprb, 0.115042e+01_jprb &
30278  &, 0.114319e+01_jprb, 0.113553e+01_jprb, 0.112745e+01_jprb, 0.111894e+01_jprb &
30279  &, 0.111004e+01_jprb, 0.110074e+01_jprb, 0.109105e+01_jprb &
30280  &, 0.108098e+01_jprb, 0.107057e+01_jprb, 0.105979e+01_jprb, 0.104868e+01_jprb &
30281  &, 0.103723e+01_jprb, 0.102546e+01_jprb, 0.101339e+01_jprb &
30282  &, 0.100104e+01_jprb, 0.988411e+00_jprb, 0.975501e+00_jprb, 0.962348e+00_jprb &
30283  &, 0.948952e+00_jprb, 0.935341e+00_jprb, 0.921514e+00_jprb &
30284  &, 0.907486e+00_jprb, 0.893291e+00_jprb, 0.878925e+00_jprb, 0.864386e+00_jprb &
30285  &, 0.849728e+00_jprb, 0.834928e+00_jprb, 0.820043e+00_jprb &
30286  &, 0.805028e+00_jprb, 0.789961e+00_jprb, 0.774816e+00_jprb, 0.759609e+00_jprb &
30287  &, 0.744355e+00_jprb, 0.729091e+00_jprb, 0.713811e+00_jprb &
30288  &, 0.698504e+00_jprb, 0.683232e+00_jprb, 0.667984e+00_jprb, 0.652774e+00_jprb &
30289  &, 0.637614e+00_jprb, 0.622488e+00_jprb, 0.607461e+00_jprb &
30290  &, 0.592517e+00_jprb, 0.577664e+00_jprb, 0.562940e+00_jprb, 0.548296e+00_jprb &
30291  &, 0.533796e+00_jprb, 0.519417e+00_jprb, 0.505195e+00_jprb &
30292  &, 0.491133e+00_jprb, 0.477205e+00_jprb, 0.463475e+00_jprb, 0.449914e+00_jprb &
30293  &, 0.436554e+00_jprb, 0.423363e+00_jprb, 0.410370e+00_jprb &
30294  &, 0.397574e+00_jprb, 0.385007e+00_jprb, 0.372663e+00_jprb, 0.360499e+00_jprb &
30295  &, 0.348583e+00_jprb, 0.336906e+00_jprb, 0.325419e+00_jprb &
30296  &, 0.314190e+00_jprb, 0.303207e+00_jprb, 0.292458e+00_jprb, 0.281925e+00_jprb &
30297  &, 0.271636e+00_jprb, 0.261616e+00_jprb, 0.251847e+00_jprb &
30298  &, 0.242265e+00_jprb, 0.232983e+00_jprb, 0.223933e+00_jprb, 0.215092e+00_jprb &
30299  &, 0.206528e+00_jprb, 0.198216e+00_jprb, 0.190128e+00_jprb &
30300  &, 0.182235e+00_jprb, 0.174604e+00_jprb, 0.167258e+00_jprb, 0.160060e+00_jprb &
30301  &, 0.153130e+00_jprb, 0.146436e+00_jprb, 0.139939e+00_jprb &
30302  &, 0.133656e+00_jprb, 0.127601e+00_jprb, 0.121793e+00_jprb, 0.116131e+00_jprb &
30303  &, 0.110745e+00_jprb, 0.105473e+00_jprb, 0.100447e+00_jprb &
30304  &, 0.956193e-01_jprb, 0.909423e-01_jprb, 0.864887e-01_jprb, 0.821452e-01_jprb &
30305  &, 0.780484e-01_jprb, 0.740821e-01_jprb, 0.702552e-01_jprb/)
30306 
30307 IF (lhook) CALL dr_hook('SU_MCICA:PART99',1,zhook_handle)
30308 END SUBROUTINE part99
30309 
30310 #ifdef VPP5000
30311 !OCL SCALAR
30312 #endif
30313 !option! -Nv -NO
30314 #ifdef RS6K
30315 @process nooptimize
30316 #endif
30317 !pgi$r opt=0
30318 SUBROUTINE part100
30319 
30320 REAL(KIND=JPRB) :: ZHOOK_HANDLE
30321 IF (lhook) CALL dr_hook('SU_MCICA:PART100',0,zhook_handle)
30322 
30323 xcw( 694, :) = (/ &
30324  & 0.104806e+01_jprb, 0.105924e+01_jprb, 0.107006e+01_jprb, 0.108053e+01_jprb &
30325  &, 0.109062e+01_jprb, 0.110034e+01_jprb, 0.110968e+01_jprb &
30326  &, 0.111862e+01_jprb, 0.112717e+01_jprb, 0.113531e+01_jprb, 0.114304e+01_jprb &
30327  &, 0.115035e+01_jprb, 0.115723e+01_jprb, 0.116368e+01_jprb &
30328  &, 0.116970e+01_jprb, 0.117526e+01_jprb, 0.118039e+01_jprb, 0.118505e+01_jprb &
30329  &, 0.118926e+01_jprb, 0.119300e+01_jprb, 0.119627e+01_jprb &
30330  &, 0.119908e+01_jprb, 0.120140e+01_jprb, 0.120325e+01_jprb, 0.120461e+01_jprb &
30331  &, 0.120550e+01_jprb, 0.120589e+01_jprb, 0.120581e+01_jprb &
30332  &, 0.120523e+01_jprb, 0.120416e+01_jprb, 0.120261e+01_jprb, 0.120058e+01_jprb &
30333  &, 0.119805e+01_jprb, 0.119505e+01_jprb, 0.119157e+01_jprb &
30334  &, 0.118760e+01_jprb, 0.118317e+01_jprb, 0.117826e+01_jprb, 0.117289e+01_jprb &
30335  &, 0.116707e+01_jprb, 0.116078e+01_jprb, 0.115405e+01_jprb &
30336  &, 0.114689e+01_jprb, 0.113930e+01_jprb, 0.113127e+01_jprb, 0.112284e+01_jprb &
30337  &, 0.111400e+01_jprb, 0.110476e+01_jprb, 0.109513e+01_jprb &
30338  &, 0.108512e+01_jprb, 0.107476e+01_jprb, 0.106403e+01_jprb, 0.105297e+01_jprb &
30339  &, 0.104158e+01_jprb, 0.102986e+01_jprb, 0.101783e+01_jprb &
30340  &, 0.100551e+01_jprb, 0.992915e+00_jprb, 0.980060e+00_jprb, 0.966929e+00_jprb &
30341  &, 0.953569e+00_jprb, 0.939993e+00_jprb, 0.926200e+00_jprb &
30342  &, 0.912186e+00_jprb, 0.898021e+00_jprb, 0.883664e+00_jprb, 0.869151e+00_jprb &
30343  &, 0.854497e+00_jprb, 0.839719e+00_jprb, 0.824834e+00_jprb &
30344  &, 0.809836e+00_jprb, 0.794762e+00_jprb, 0.779608e+00_jprb, 0.764411e+00_jprb &
30345  &, 0.749164e+00_jprb, 0.733882e+00_jprb, 0.718579e+00_jprb &
30346  &, 0.703271e+00_jprb, 0.687995e+00_jprb, 0.672715e+00_jprb, 0.657495e+00_jprb &
30347  &, 0.642295e+00_jprb, 0.627153e+00_jprb, 0.612107e+00_jprb &
30348  &, 0.597139e+00_jprb, 0.582232e+00_jprb, 0.567450e+00_jprb, 0.552802e+00_jprb &
30349  &, 0.538265e+00_jprb, 0.523846e+00_jprb, 0.509580e+00_jprb &
30350  &, 0.495472e+00_jprb, 0.481492e+00_jprb, 0.467708e+00_jprb, 0.454088e+00_jprb &
30351  &, 0.440666e+00_jprb, 0.427442e+00_jprb, 0.414380e+00_jprb &
30352  &, 0.401545e+00_jprb, 0.388900e+00_jprb, 0.376474e+00_jprb, 0.364262e+00_jprb &
30353  &, 0.352293e+00_jprb, 0.340522e+00_jprb, 0.329016e+00_jprb &
30354  &, 0.317726e+00_jprb, 0.306637e+00_jprb, 0.295818e+00_jprb, 0.285255e+00_jprb &
30355  &, 0.274890e+00_jprb, 0.264791e+00_jprb, 0.254940e+00_jprb &
30356  &, 0.245316e+00_jprb, 0.235944e+00_jprb, 0.226802e+00_jprb, 0.217957e+00_jprb &
30357  &, 0.209294e+00_jprb, 0.200878e+00_jprb, 0.192732e+00_jprb &
30358  &, 0.184777e+00_jprb, 0.177083e+00_jprb, 0.169670e+00_jprb, 0.162403e+00_jprb &
30359  &, 0.155402e+00_jprb, 0.148633e+00_jprb, 0.142113e+00_jprb &
30360  &, 0.135751e+00_jprb, 0.129614e+00_jprb, 0.123721e+00_jprb, 0.118028e+00_jprb &
30361  &, 0.112551e+00_jprb, 0.107246e+00_jprb, 0.102124e+00_jprb &
30362  &, 0.972584e-01_jprb, 0.925420e-01_jprb, 0.879850e-01_jprb, 0.836615e-01_jprb &
30363  &, 0.794568e-01_jprb, 0.754442e-01_jprb, 0.715694e-01_jprb/)
30364 xcw( 695, :) = (/ &
30365  & 0.104836e+01_jprb, 0.105961e+01_jprb, 0.107051e+01_jprb, 0.108105e+01_jprb &
30366  &, 0.109123e+01_jprb, 0.110103e+01_jprb, 0.111044e+01_jprb &
30367  &, 0.111947e+01_jprb, 0.112810e+01_jprb, 0.113632e+01_jprb, 0.114413e+01_jprb &
30368  &, 0.115153e+01_jprb, 0.115849e+01_jprb, 0.116503e+01_jprb &
30369  &, 0.117113e+01_jprb, 0.117678e+01_jprb, 0.118199e+01_jprb, 0.118674e+01_jprb &
30370  &, 0.119103e+01_jprb, 0.119486e+01_jprb, 0.119822e+01_jprb &
30371  &, 0.120110e+01_jprb, 0.120352e+01_jprb, 0.120546e+01_jprb, 0.120691e+01_jprb &
30372  &, 0.120787e+01_jprb, 0.120835e+01_jprb, 0.120835e+01_jprb &
30373  &, 0.120786e+01_jprb, 0.120688e+01_jprb, 0.120541e+01_jprb, 0.120345e+01_jprb &
30374  &, 0.120101e+01_jprb, 0.119809e+01_jprb, 0.119468e+01_jprb &
30375  &, 0.119080e+01_jprb, 0.118644e+01_jprb, 0.118161e+01_jprb, 0.117632e+01_jprb &
30376  &, 0.117056e+01_jprb, 0.116435e+01_jprb, 0.115770e+01_jprb &
30377  &, 0.115061e+01_jprb, 0.114308e+01_jprb, 0.113511e+01_jprb, 0.112675e+01_jprb &
30378  &, 0.111797e+01_jprb, 0.110879e+01_jprb, 0.109923e+01_jprb &
30379  &, 0.108928e+01_jprb, 0.107897e+01_jprb, 0.106829e+01_jprb, 0.105728e+01_jprb &
30380  &, 0.104594e+01_jprb, 0.103426e+01_jprb, 0.102228e+01_jprb &
30381  &, 0.101001e+01_jprb, 0.997450e+00_jprb, 0.984635e+00_jprb, 0.971543e+00_jprb &
30382  &, 0.958220e+00_jprb, 0.944663e+00_jprb, 0.930887e+00_jprb &
30383  &, 0.916923e+00_jprb, 0.902751e+00_jprb, 0.888422e+00_jprb, 0.873936e+00_jprb &
30384  &, 0.859307e+00_jprb, 0.844531e+00_jprb, 0.829645e+00_jprb &
30385  &, 0.814665e+00_jprb, 0.799586e+00_jprb, 0.784444e+00_jprb, 0.769235e+00_jprb &
30386  &, 0.753973e+00_jprb, 0.738696e+00_jprb, 0.723396e+00_jprb &
30387  &, 0.708087e+00_jprb, 0.692758e+00_jprb, 0.677472e+00_jprb, 0.662216e+00_jprb &
30388  &, 0.647003e+00_jprb, 0.631872e+00_jprb, 0.616779e+00_jprb &
30389  &, 0.601762e+00_jprb, 0.586857e+00_jprb, 0.572046e+00_jprb, 0.557337e+00_jprb &
30390  &, 0.542734e+00_jprb, 0.528306e+00_jprb, 0.513997e+00_jprb &
30391  &, 0.499810e+00_jprb, 0.485811e+00_jprb, 0.471973e+00_jprb, 0.458328e+00_jprb &
30392  &, 0.444845e+00_jprb, 0.431521e+00_jprb, 0.418424e+00_jprb &
30393  &, 0.405552e+00_jprb, 0.392829e+00_jprb, 0.380359e+00_jprb, 0.368100e+00_jprb &
30394  &, 0.356042e+00_jprb, 0.344217e+00_jprb, 0.332614e+00_jprb &
30395  &, 0.321261e+00_jprb, 0.310148e+00_jprb, 0.299262e+00_jprb, 0.288585e+00_jprb &
30396  &, 0.278188e+00_jprb, 0.268010e+00_jprb, 0.258077e+00_jprb &
30397  &, 0.248412e+00_jprb, 0.238952e+00_jprb, 0.229763e+00_jprb, 0.220823e+00_jprb &
30398  &, 0.212107e+00_jprb, 0.203589e+00_jprb, 0.195385e+00_jprb &
30399  &, 0.187370e+00_jprb, 0.179613e+00_jprb, 0.172083e+00_jprb, 0.164799e+00_jprb &
30400  &, 0.157727e+00_jprb, 0.150884e+00_jprb, 0.144288e+00_jprb &
30401  &, 0.137846e+00_jprb, 0.131683e+00_jprb, 0.125705e+00_jprb, 0.119925e+00_jprb &
30402  &, 0.114416e+00_jprb, 0.109018e+00_jprb, 0.103861e+00_jprb &
30403  &, 0.988974e-01_jprb, 0.941416e-01_jprb, 0.895438e-01_jprb, 0.851147e-01_jprb &
30404  &, 0.809292e-01_jprb, 0.768063e-01_jprb, 0.729494e-01_jprb/)
30405 xcw( 696, :) = (/ &
30406  & 0.104865e+01_jprb, 0.105998e+01_jprb, 0.107096e+01_jprb, 0.108158e+01_jprb &
30407  &, 0.109183e+01_jprb, 0.110171e+01_jprb, 0.111121e+01_jprb &
30408  &, 0.112032e+01_jprb, 0.112903e+01_jprb, 0.113734e+01_jprb, 0.114523e+01_jprb &
30409  &, 0.115271e+01_jprb, 0.115976e+01_jprb, 0.116638e+01_jprb &
30410  &, 0.117256e+01_jprb, 0.117831e+01_jprb, 0.118360e+01_jprb, 0.118844e+01_jprb &
30411  &, 0.119281e+01_jprb, 0.119673e+01_jprb, 0.120017e+01_jprb &
30412  &, 0.120315e+01_jprb, 0.120565e+01_jprb, 0.120767e+01_jprb, 0.120920e+01_jprb &
30413  &, 0.121026e+01_jprb, 0.121082e+01_jprb, 0.121090e+01_jprb &
30414  &, 0.121049e+01_jprb, 0.120960e+01_jprb, 0.120821e+01_jprb, 0.120634e+01_jprb &
30415  &, 0.120398e+01_jprb, 0.120114e+01_jprb, 0.119781e+01_jprb &
30416  &, 0.119400e+01_jprb, 0.118972e+01_jprb, 0.118497e+01_jprb, 0.117975e+01_jprb &
30417  &, 0.117408e+01_jprb, 0.116794e+01_jprb, 0.116136e+01_jprb &
30418  &, 0.115433e+01_jprb, 0.114687e+01_jprb, 0.113898e+01_jprb, 0.113067e+01_jprb &
30419  &, 0.112195e+01_jprb, 0.111285e+01_jprb, 0.110333e+01_jprb &
30420  &, 0.109344e+01_jprb, 0.108319e+01_jprb, 0.107258e+01_jprb, 0.106161e+01_jprb &
30421  &, 0.105032e+01_jprb, 0.103869e+01_jprb, 0.102677e+01_jprb &
30422  &, 0.101453e+01_jprb, 0.100202e+01_jprb, 0.989226e+00_jprb, 0.976174e+00_jprb &
30423  &, 0.962888e+00_jprb, 0.949350e+00_jprb, 0.935608e+00_jprb &
30424  &, 0.921659e+00_jprb, 0.907536e+00_jprb, 0.893219e+00_jprb, 0.878740e+00_jprb &
30425  &, 0.864116e+00_jprb, 0.849363e+00_jprb, 0.834498e+00_jprb &
30426  &, 0.819515e+00_jprb, 0.804452e+00_jprb, 0.789302e+00_jprb, 0.774104e+00_jprb &
30427  &, 0.758828e+00_jprb, 0.743533e+00_jprb, 0.728235e+00_jprb &
30428  &, 0.712902e+00_jprb, 0.697571e+00_jprb, 0.682278e+00_jprb, 0.667014e+00_jprb &
30429  &, 0.651764e+00_jprb, 0.636590e+00_jprb, 0.621479e+00_jprb &
30430  &, 0.606440e+00_jprb, 0.591482e+00_jprb, 0.576643e+00_jprb, 0.561901e+00_jprb &
30431  &, 0.547263e+00_jprb, 0.532796e+00_jprb, 0.518413e+00_jprb &
30432  &, 0.504211e+00_jprb, 0.490163e+00_jprb, 0.476271e+00_jprb, 0.462569e+00_jprb &
30433  &, 0.449024e+00_jprb, 0.435670e+00_jprb, 0.422539e+00_jprb &
30434  &, 0.409559e+00_jprb, 0.396796e+00_jprb, 0.384282e+00_jprb, 0.371937e+00_jprb &
30435  &, 0.359829e+00_jprb, 0.347950e+00_jprb, 0.336290e+00_jprb &
30436  &, 0.324837e+00_jprb, 0.313660e+00_jprb, 0.302705e+00_jprb, 0.292000e+00_jprb &
30437  &, 0.281485e+00_jprb, 0.271273e+00_jprb, 0.261258e+00_jprb &
30438  &, 0.251508e+00_jprb, 0.242004e+00_jprb, 0.232724e+00_jprb, 0.223688e+00_jprb &
30439  &, 0.214920e+00_jprb, 0.206348e+00_jprb, 0.198087e+00_jprb &
30440  &, 0.190012e+00_jprb, 0.182143e+00_jprb, 0.174547e+00_jprb, 0.167195e+00_jprb &
30441  &, 0.160052e+00_jprb, 0.153135e+00_jprb, 0.146462e+00_jprb &
30442  &, 0.139996e+00_jprb, 0.133752e+00_jprb, 0.127746e+00_jprb, 0.121880e+00_jprb &
30443  &, 0.116281e+00_jprb, 0.110850e+00_jprb, 0.105657e+00_jprb &
30444  &, 0.100597e+00_jprb, 0.958027e-01_jprb, 0.911025e-01_jprb, 0.866310e-01_jprb &
30445  &, 0.823376e-01_jprb, 0.782333e-01_jprb, 0.743293e-01_jprb/)
30446 xcw( 697, :) = (/ &
30447  & 0.104895e+01_jprb, 0.106035e+01_jprb, 0.107141e+01_jprb, 0.108211e+01_jprb &
30448  &, 0.109244e+01_jprb, 0.110240e+01_jprb, 0.111198e+01_jprb &
30449  &, 0.112117e+01_jprb, 0.112996e+01_jprb, 0.113835e+01_jprb, 0.114633e+01_jprb &
30450  &, 0.115389e+01_jprb, 0.116103e+01_jprb, 0.116774e+01_jprb &
30451  &, 0.117400e+01_jprb, 0.117983e+01_jprb, 0.118521e+01_jprb, 0.119013e+01_jprb &
30452  &, 0.119460e+01_jprb, 0.119860e+01_jprb, 0.120213e+01_jprb &
30453  &, 0.120519e+01_jprb, 0.120778e+01_jprb, 0.120988e+01_jprb, 0.121151e+01_jprb &
30454  &, 0.121264e+01_jprb, 0.121330e+01_jprb, 0.121346e+01_jprb &
30455  &, 0.121314e+01_jprb, 0.121232e+01_jprb, 0.121102e+01_jprb, 0.120923e+01_jprb &
30456  &, 0.120695e+01_jprb, 0.120419e+01_jprb, 0.120095e+01_jprb &
30457  &, 0.119722e+01_jprb, 0.119302e+01_jprb, 0.118835e+01_jprb, 0.118320e+01_jprb &
30458  &, 0.117759e+01_jprb, 0.117154e+01_jprb, 0.116502e+01_jprb &
30459  &, 0.115806e+01_jprb, 0.115067e+01_jprb, 0.114285e+01_jprb, 0.113462e+01_jprb &
30460  &, 0.112596e+01_jprb, 0.111690e+01_jprb, 0.110746e+01_jprb &
30461  &, 0.109763e+01_jprb, 0.108743e+01_jprb, 0.107686e+01_jprb, 0.106596e+01_jprb &
30462  &, 0.105471e+01_jprb, 0.104314e+01_jprb, 0.103125e+01_jprb &
30463  &, 0.101906e+01_jprb, 0.100658e+01_jprb, 0.993834e+00_jprb, 0.980821e+00_jprb &
30464  &, 0.967574e+00_jprb, 0.954072e+00_jprb, 0.940365e+00_jprb &
30465  &, 0.926432e+00_jprb, 0.912322e+00_jprb, 0.898034e+00_jprb, 0.883583e+00_jprb &
30466  &, 0.868945e+00_jprb, 0.854236e+00_jprb, 0.839371e+00_jprb &
30467  &, 0.824408e+00_jprb, 0.809340e+00_jprb, 0.794182e+00_jprb, 0.778973e+00_jprb &
30468  &, 0.763728e+00_jprb, 0.748417e+00_jprb, 0.733099e+00_jprb &
30469  &, 0.717767e+00_jprb, 0.702433e+00_jprb, 0.687110e+00_jprb, 0.671812e+00_jprb &
30470  &, 0.656550e+00_jprb, 0.641363e+00_jprb, 0.626207e+00_jprb &
30471  &, 0.611147e+00_jprb, 0.596164e+00_jprb, 0.581268e+00_jprb, 0.566495e+00_jprb &
30472  &, 0.551852e+00_jprb, 0.537316e+00_jprb, 0.522892e+00_jprb &
30473  &, 0.508644e+00_jprb, 0.494547e+00_jprb, 0.480634e+00_jprb, 0.466843e+00_jprb &
30474  &, 0.453271e+00_jprb, 0.439853e+00_jprb, 0.426654e+00_jprb &
30475  &, 0.413637e+00_jprb, 0.400834e+00_jprb, 0.388204e+00_jprb, 0.375813e+00_jprb &
30476  &, 0.363655e+00_jprb, 0.351684e+00_jprb, 0.339966e+00_jprb &
30477  &, 0.328493e+00_jprb, 0.317212e+00_jprb, 0.306190e+00_jprb, 0.295414e+00_jprb &
30478  &, 0.284868e+00_jprb, 0.274535e+00_jprb, 0.264483e+00_jprb &
30479  &, 0.254649e+00_jprb, 0.245057e+00_jprb, 0.235731e+00_jprb, 0.226647e+00_jprb &
30480  &, 0.217781e+00_jprb, 0.209155e+00_jprb, 0.200789e+00_jprb &
30481  &, 0.192655e+00_jprb, 0.184723e+00_jprb, 0.177063e+00_jprb, 0.169643e+00_jprb &
30482  &, 0.162429e+00_jprb, 0.155440e+00_jprb, 0.148691e+00_jprb &
30483  &, 0.142201e+00_jprb, 0.135876e+00_jprb, 0.129787e+00_jprb, 0.123892e+00_jprb &
30484  &, 0.118205e+00_jprb, 0.112681e+00_jprb, 0.107454e+00_jprb &
30485  &, 0.102358e+00_jprb, 0.974639e-01_jprb, 0.927236e-01_jprb, 0.882106e-01_jprb &
30486  &, 0.838740e-01_jprb, 0.796602e-01_jprb, 0.757092e-01_jprb/)
30487 xcw( 698, :) = (/ &
30488  & 0.104924e+01_jprb, 0.106073e+01_jprb, 0.107186e+01_jprb, 0.108264e+01_jprb &
30489  &, 0.109305e+01_jprb, 0.110309e+01_jprb, 0.111275e+01_jprb &
30490  &, 0.112202e+01_jprb, 0.113090e+01_jprb, 0.113937e+01_jprb, 0.114743e+01_jprb &
30491  &, 0.115508e+01_jprb, 0.116230e+01_jprb, 0.116909e+01_jprb &
30492  &, 0.117545e+01_jprb, 0.118136e+01_jprb, 0.118683e+01_jprb, 0.119184e+01_jprb &
30493  &, 0.119639e+01_jprb, 0.120048e+01_jprb, 0.120410e+01_jprb &
30494  &, 0.120724e+01_jprb, 0.120991e+01_jprb, 0.121211e+01_jprb, 0.121382e+01_jprb &
30495  &, 0.121504e+01_jprb, 0.121578e+01_jprb, 0.121603e+01_jprb &
30496  &, 0.121579e+01_jprb, 0.121506e+01_jprb, 0.121384e+01_jprb, 0.121214e+01_jprb &
30497  &, 0.120994e+01_jprb, 0.120726e+01_jprb, 0.120409e+01_jprb &
30498  &, 0.120044e+01_jprb, 0.119633e+01_jprb, 0.119173e+01_jprb, 0.118666e+01_jprb &
30499  &, 0.118113e+01_jprb, 0.117514e+01_jprb, 0.116870e+01_jprb &
30500  &, 0.116182e+01_jprb, 0.115450e+01_jprb, 0.114675e+01_jprb, 0.113858e+01_jprb &
30501  &, 0.112998e+01_jprb, 0.112100e+01_jprb, 0.111160e+01_jprb &
30502  &, 0.110184e+01_jprb, 0.109169e+01_jprb, 0.108118e+01_jprb, 0.107033e+01_jprb &
30503  &, 0.105913e+01_jprb, 0.104761e+01_jprb, 0.103576e+01_jprb &
30504  &, 0.102362e+01_jprb, 0.101118e+01_jprb, 0.998474e+00_jprb, 0.985501e+00_jprb &
30505  &, 0.972276e+00_jprb, 0.958811e+00_jprb, 0.945104e+00_jprb &
30506  &, 0.931240e+00_jprb, 0.917145e+00_jprb, 0.902887e+00_jprb, 0.888445e+00_jprb &
30507  &, 0.873854e+00_jprb, 0.859129e+00_jprb, 0.844265e+00_jprb &
30508  &, 0.829300e+00_jprb, 0.814249e+00_jprb, 0.799106e+00_jprb, 0.783909e+00_jprb &
30509  &, 0.768629e+00_jprb, 0.753324e+00_jprb, 0.737987e+00_jprb &
30510  &, 0.722655e+00_jprb, 0.707295e+00_jprb, 0.691968e+00_jprb, 0.676636e+00_jprb &
30511  &, 0.661363e+00_jprb, 0.646135e+00_jprb, 0.630989e+00_jprb &
30512  &, 0.615880e+00_jprb, 0.600874e+00_jprb, 0.585951e+00_jprb, 0.571147e+00_jprb &
30513  &, 0.556441e+00_jprb, 0.541867e+00_jprb, 0.527433e+00_jprb &
30514  &, 0.513109e+00_jprb, 0.498963e+00_jprb, 0.484998e+00_jprb, 0.471184e+00_jprb &
30515  &, 0.457519e+00_jprb, 0.444070e+00_jprb, 0.430804e+00_jprb &
30516  &, 0.417715e+00_jprb, 0.404873e+00_jprb, 0.392200e+00_jprb, 0.379726e+00_jprb &
30517  &, 0.367519e+00_jprb, 0.355495e+00_jprb, 0.343722e+00_jprb &
30518  &, 0.332149e+00_jprb, 0.320805e+00_jprb, 0.309716e+00_jprb, 0.298870e+00_jprb &
30519  &, 0.288251e+00_jprb, 0.277885e+00_jprb, 0.267708e+00_jprb &
30520  &, 0.257835e+00_jprb, 0.248156e+00_jprb, 0.238784e+00_jprb, 0.229606e+00_jprb &
30521  &, 0.220690e+00_jprb, 0.211962e+00_jprb, 0.203540e+00_jprb &
30522  &, 0.195347e+00_jprb, 0.187354e+00_jprb, 0.179629e+00_jprb, 0.172143e+00_jprb &
30523  &, 0.164860e+00_jprb, 0.157798e+00_jprb, 0.150974e+00_jprb &
30524  &, 0.144352e+00_jprb, 0.138001e+00_jprb, 0.131828e+00_jprb, 0.125846e+00_jprb &
30525  &, 0.120128e+00_jprb, 0.114572e+00_jprb, 0.109251e+00_jprb &
30526  &, 0.104118e+00_jprb, 0.991250e-01_jprb, 0.943447e-01_jprb, 0.897901e-01_jprb &
30527  &, 0.854105e-01_jprb, 0.811521e-01_jprb, 0.770892e-01_jprb/)
30528 xcw( 699, :) = (/ &
30529  & 0.104954e+01_jprb, 0.106110e+01_jprb, 0.107231e+01_jprb, 0.108317e+01_jprb &
30530  &, 0.109366e+01_jprb, 0.110378e+01_jprb, 0.111352e+01_jprb &
30531  &, 0.112288e+01_jprb, 0.113184e+01_jprb, 0.114039e+01_jprb, 0.114854e+01_jprb &
30532  &, 0.115627e+01_jprb, 0.116358e+01_jprb, 0.117045e+01_jprb &
30533  &, 0.117689e+01_jprb, 0.118289e+01_jprb, 0.118845e+01_jprb, 0.119354e+01_jprb &
30534  &, 0.119818e+01_jprb, 0.120236e+01_jprb, 0.120606e+01_jprb &
30535  &, 0.120930e+01_jprb, 0.121206e+01_jprb, 0.121434e+01_jprb, 0.121613e+01_jprb &
30536  &, 0.121744e+01_jprb, 0.121827e+01_jprb, 0.121860e+01_jprb &
30537  &, 0.121845e+01_jprb, 0.121780e+01_jprb, 0.121667e+01_jprb, 0.121505e+01_jprb &
30538  &, 0.121294e+01_jprb, 0.121033e+01_jprb, 0.120725e+01_jprb &
30539  &, 0.120368e+01_jprb, 0.119964e+01_jprb, 0.119512e+01_jprb, 0.119014e+01_jprb &
30540  &, 0.118467e+01_jprb, 0.117877e+01_jprb, 0.117240e+01_jprb &
30541  &, 0.116558e+01_jprb, 0.115834e+01_jprb, 0.115065e+01_jprb, 0.114255e+01_jprb &
30542  &, 0.113401e+01_jprb, 0.112509e+01_jprb, 0.111575e+01_jprb &
30543  &, 0.110606e+01_jprb, 0.109597e+01_jprb, 0.108552e+01_jprb, 0.107472e+01_jprb &
30544  &, 0.106357e+01_jprb, 0.105209e+01_jprb, 0.104030e+01_jprb &
30545  &, 0.102820e+01_jprb, 0.101581e+01_jprb, 0.100313e+01_jprb, 0.990198e+00_jprb &
30546  &, 0.977012e+00_jprb, 0.963585e+00_jprb, 0.949933e+00_jprb &
30547  &, 0.936049e+00_jprb, 0.921986e+00_jprb, 0.907740e+00_jprb, 0.893327e+00_jprb &
30548  &, 0.878762e+00_jprb, 0.864042e+00_jprb, 0.849201e+00_jprb &
30549  &, 0.834087e+00_jprb, 0.819201e+00_jprb, 0.804052e+00_jprb, 0.788846e+00_jprb &
30550  &, 0.773575e+00_jprb, 0.758278e+00_jprb, 0.742922e+00_jprb &
30551  &, 0.727568e+00_jprb, 0.712207e+00_jprb, 0.696851e+00_jprb, 0.681512e+00_jprb &
30552  &, 0.666229e+00_jprb, 0.650961e+00_jprb, 0.635771e+00_jprb &
30553  &, 0.620642e+00_jprb, 0.605613e+00_jprb, 0.590663e+00_jprb, 0.575800e+00_jprb &
30554  &, 0.561060e+00_jprb, 0.546449e+00_jprb, 0.531973e+00_jprb &
30555  &, 0.517637e+00_jprb, 0.503443e+00_jprb, 0.489394e+00_jprb, 0.475524e+00_jprb &
30556  &, 0.461834e+00_jprb, 0.448323e+00_jprb, 0.434989e+00_jprb &
30557  &, 0.421865e+00_jprb, 0.408948e+00_jprb, 0.396233e+00_jprb, 0.383714e+00_jprb &
30558  &, 0.371421e+00_jprb, 0.359345e+00_jprb, 0.347477e+00_jprb &
30559  &, 0.335845e+00_jprb, 0.324439e+00_jprb, 0.313284e+00_jprb, 0.302369e+00_jprb &
30560  &, 0.291677e+00_jprb, 0.281234e+00_jprb, 0.271022e+00_jprb &
30561  &, 0.261066e+00_jprb, 0.251300e+00_jprb, 0.241838e+00_jprb, 0.232613e+00_jprb &
30562  &, 0.223599e+00_jprb, 0.214866e+00_jprb, 0.206340e+00_jprb &
30563  &, 0.198039e+00_jprb, 0.189985e+00_jprb, 0.182196e+00_jprb, 0.174643e+00_jprb &
30564  &, 0.167290e+00_jprb, 0.160156e+00_jprb, 0.153258e+00_jprb &
30565  &, 0.146612e+00_jprb, 0.140182e+00_jprb, 0.133926e+00_jprb, 0.127916e+00_jprb &
30566  &, 0.122110e+00_jprb, 0.116463e+00_jprb, 0.111107e+00_jprb &
30567  &, 0.105878e+00_jprb, 0.100848e+00_jprb, 0.960281e-01_jprb, 0.913696e-01_jprb &
30568  &, 0.869469e-01_jprb, 0.826439e-01_jprb, 0.785348e-01_jprb/)
30569 xcw( 700, :) = (/ &
30570  & 0.104984e+01_jprb, 0.106147e+01_jprb, 0.107276e+01_jprb, 0.108370e+01_jprb &
30571  &, 0.109427e+01_jprb, 0.110447e+01_jprb, 0.111430e+01_jprb &
30572  &, 0.112373e+01_jprb, 0.113277e+01_jprb, 0.114141e+01_jprb, 0.114965e+01_jprb &
30573  &, 0.115746e+01_jprb, 0.116485e+01_jprb, 0.117182e+01_jprb &
30574  &, 0.117835e+01_jprb, 0.118443e+01_jprb, 0.119007e+01_jprb, 0.119525e+01_jprb &
30575  &, 0.119998e+01_jprb, 0.120424e+01_jprb, 0.120804e+01_jprb &
30576  &, 0.121136e+01_jprb, 0.121420e+01_jprb, 0.121657e+01_jprb, 0.121846e+01_jprb &
30577  &, 0.121985e+01_jprb, 0.122076e+01_jprb, 0.122118e+01_jprb &
30578  &, 0.122112e+01_jprb, 0.122056e+01_jprb, 0.121951e+01_jprb, 0.121797e+01_jprb &
30579  &, 0.121594e+01_jprb, 0.121342e+01_jprb, 0.121042e+01_jprb &
30580  &, 0.120694e+01_jprb, 0.120296e+01_jprb, 0.119853e+01_jprb, 0.119361e+01_jprb &
30581  &, 0.118824e+01_jprb, 0.118239e+01_jprb, 0.117610e+01_jprb &
30582  &, 0.116937e+01_jprb, 0.116219e+01_jprb, 0.115457e+01_jprb, 0.114653e+01_jprb &
30583  &, 0.113807e+01_jprb, 0.112921e+01_jprb, 0.111994e+01_jprb &
30584  &, 0.111029e+01_jprb, 0.110026e+01_jprb, 0.108985e+01_jprb, 0.107912e+01_jprb &
30585  &, 0.106802e+01_jprb, 0.105660e+01_jprb, 0.104485e+01_jprb &
30586  &, 0.103281e+01_jprb, 0.102044e+01_jprb, 0.100782e+01_jprb, 0.994911e+00_jprb &
30587  &, 0.981765e+00_jprb, 0.968359e+00_jprb, 0.954743e+00_jprb &
30588  &, 0.940876e+00_jprb, 0.926864e+00_jprb, 0.912631e+00_jprb, 0.898247e+00_jprb &
30589  &, 0.883690e+00_jprb, 0.868995e+00_jprb, 0.854157e+00_jprb &
30590  &, 0.839212e+00_jprb, 0.824154e+00_jprb, 0.809020e+00_jprb, 0.793827e+00_jprb &
30591  &, 0.778544e+00_jprb, 0.763232e+00_jprb, 0.747881e+00_jprb &
30592  &, 0.732530e+00_jprb, 0.717144e+00_jprb, 0.701784e+00_jprb, 0.686413e+00_jprb &
30593  &, 0.671095e+00_jprb, 0.655840e+00_jprb, 0.640607e+00_jprb &
30594  &, 0.625460e+00_jprb, 0.610380e+00_jprb, 0.595404e+00_jprb, 0.580512e+00_jprb &
30595  &, 0.565739e+00_jprb, 0.551092e+00_jprb, 0.536545e+00_jprb &
30596  &, 0.522165e+00_jprb, 0.507924e+00_jprb, 0.493857e+00_jprb, 0.479932e+00_jprb &
30597  &, 0.466183e+00_jprb, 0.452609e+00_jprb, 0.439245e+00_jprb &
30598  &, 0.426051e+00_jprb, 0.413060e+00_jprb, 0.400267e+00_jprb, 0.387702e+00_jprb &
30599  &, 0.375322e+00_jprb, 0.363195e+00_jprb, 0.351272e+00_jprb &
30600  &, 0.339582e+00_jprb, 0.328113e+00_jprb, 0.316894e+00_jprb, 0.305910e+00_jprb &
30601  &, 0.295146e+00_jprb, 0.284627e+00_jprb, 0.274336e+00_jprb &
30602  &, 0.264296e+00_jprb, 0.254489e+00_jprb, 0.244938e+00_jprb, 0.235619e+00_jprb &
30603  &, 0.226555e+00_jprb, 0.217722e+00_jprb, 0.209140e+00_jprb &
30604  &, 0.200781e+00_jprb, 0.192666e+00_jprb, 0.184814e+00_jprb, 0.177143e+00_jprb &
30605  &, 0.169774e+00_jprb, 0.162568e+00_jprb, 0.155595e+00_jprb &
30606  &, 0.148873e+00_jprb, 0.142362e+00_jprb, 0.136080e+00_jprb, 0.129985e+00_jprb &
30607  &, 0.124091e+00_jprb, 0.118413e+00_jprb, 0.112964e+00_jprb &
30608  &, 0.107700e+00_jprb, 0.102632e+00_jprb, 0.977116e-01_jprb, 0.930123e-01_jprb &
30609  &, 0.884834e-01_jprb, 0.841357e-01_jprb, 0.799804e-01_jprb/)
30610 
30611 IF (lhook) CALL dr_hook('SU_MCICA:PART100',1,zhook_handle)
30612 END SUBROUTINE part100
30613 
30614 #ifdef VPP5000
30615 !OCL SCALAR
30616 #endif
30617 !option! -Nv -NO
30618 #ifdef RS6K
30619 @process nooptimize
30620 #endif
30621 !pgi$r opt=0
30622 SUBROUTINE part101
30623 
30624 REAL(KIND=JPRB) :: ZHOOK_HANDLE
30625 IF (lhook) CALL dr_hook('SU_MCICA:PART101',0,zhook_handle)
30626 
30627 xcw( 701, :) = (/ &
30628  & 0.105013e+01_jprb, 0.106185e+01_jprb, 0.107322e+01_jprb, 0.108423e+01_jprb &
30629  &, 0.109488e+01_jprb, 0.110517e+01_jprb, 0.111507e+01_jprb &
30630  &, 0.112459e+01_jprb, 0.113371e+01_jprb, 0.114244e+01_jprb, 0.115075e+01_jprb &
30631  &, 0.115866e+01_jprb, 0.116613e+01_jprb, 0.117318e+01_jprb &
30632  &, 0.117980e+01_jprb, 0.118597e+01_jprb, 0.119170e+01_jprb, 0.119697e+01_jprb &
30633  &, 0.120178e+01_jprb, 0.120613e+01_jprb, 0.121002e+01_jprb &
30634  &, 0.121342e+01_jprb, 0.121636e+01_jprb, 0.121881e+01_jprb, 0.122078e+01_jprb &
30635  &, 0.122227e+01_jprb, 0.122327e+01_jprb, 0.122378e+01_jprb &
30636  &, 0.122379e+01_jprb, 0.122332e+01_jprb, 0.122235e+01_jprb, 0.122090e+01_jprb &
30637  &, 0.121895e+01_jprb, 0.121652e+01_jprb, 0.121360e+01_jprb &
30638  &, 0.121019e+01_jprb, 0.120630e+01_jprb, 0.120195e+01_jprb, 0.119711e+01_jprb &
30639  &, 0.119181e+01_jprb, 0.118605e+01_jprb, 0.117983e+01_jprb &
30640  &, 0.117316e+01_jprb, 0.116604e+01_jprb, 0.115850e+01_jprb, 0.115052e+01_jprb &
30641  &, 0.114214e+01_jprb, 0.113334e+01_jprb, 0.112413e+01_jprb &
30642  &, 0.111454e+01_jprb, 0.110458e+01_jprb, 0.109423e+01_jprb, 0.108354e+01_jprb &
30643  &, 0.107250e+01_jprb, 0.106113e+01_jprb, 0.104942e+01_jprb &
30644  &, 0.103742e+01_jprb, 0.102511e+01_jprb, 0.101252e+01_jprb, 0.999658e+00_jprb &
30645  &, 0.986535e+00_jprb, 0.973185e+00_jprb, 0.959589e+00_jprb &
30646  &, 0.945776e+00_jprb, 0.931761e+00_jprb, 0.917560e+00_jprb, 0.903187e+00_jprb &
30647  &, 0.888638e+00_jprb, 0.873948e+00_jprb, 0.859133e+00_jprb &
30648  &, 0.844209e+00_jprb, 0.829171e+00_jprb, 0.814032e+00_jprb, 0.798831e+00_jprb &
30649  &, 0.783560e+00_jprb, 0.768233e+00_jprb, 0.752888e+00_jprb &
30650  &, 0.737492e+00_jprb, 0.722105e+00_jprb, 0.706717e+00_jprb, 0.691366e+00_jprb &
30651  &, 0.676013e+00_jprb, 0.660720e+00_jprb, 0.645471e+00_jprb &
30652  &, 0.630305e+00_jprb, 0.615204e+00_jprb, 0.600174e+00_jprb, 0.585253e+00_jprb &
30653  &, 0.570448e+00_jprb, 0.555735e+00_jprb, 0.541179e+00_jprb &
30654  &, 0.526757e+00_jprb, 0.512469e+00_jprb, 0.498319e+00_jprb, 0.484373e+00_jprb &
30655  &, 0.470566e+00_jprb, 0.456931e+00_jprb, 0.443500e+00_jprb &
30656  &, 0.430272e+00_jprb, 0.417208e+00_jprb, 0.404374e+00_jprb, 0.391728e+00_jprb &
30657  &, 0.379301e+00_jprb, 0.367084e+00_jprb, 0.355106e+00_jprb &
30658  &, 0.343358e+00_jprb, 0.331829e+00_jprb, 0.320545e+00_jprb, 0.309451e+00_jprb &
30659  &, 0.298657e+00_jprb, 0.288063e+00_jprb, 0.277693e+00_jprb &
30660  &, 0.267572e+00_jprb, 0.257724e+00_jprb, 0.248084e+00_jprb, 0.238719e+00_jprb &
30661  &, 0.229559e+00_jprb, 0.220674e+00_jprb, 0.211989e+00_jprb &
30662  &, 0.203573e+00_jprb, 0.195398e+00_jprb, 0.187432e+00_jprb, 0.179747e+00_jprb &
30663  &, 0.172257e+00_jprb, 0.164980e+00_jprb, 0.157987e+00_jprb &
30664  &, 0.151188e+00_jprb, 0.144599e+00_jprb, 0.138235e+00_jprb, 0.132055e+00_jprb &
30665  &, 0.126131e+00_jprb, 0.120362e+00_jprb, 0.114880e+00_jprb &
30666  &, 0.109521e+00_jprb, 0.104355e+00_jprb, 0.994573e-01_jprb, 0.946550e-01_jprb &
30667  &, 0.900838e-01_jprb, 0.856924e-01_jprb, 0.814918e-01_jprb/)
30668 xcw( 702, :) = (/ &
30669  & 0.105043e+01_jprb, 0.106222e+01_jprb, 0.107367e+01_jprb, 0.108476e+01_jprb &
30670  &, 0.109550e+01_jprb, 0.110586e+01_jprb, 0.111585e+01_jprb &
30671  &, 0.112545e+01_jprb, 0.113466e+01_jprb, 0.114347e+01_jprb, 0.115187e+01_jprb &
30672  &, 0.115985e+01_jprb, 0.116742e+01_jprb, 0.117455e+01_jprb &
30673  &, 0.118126e+01_jprb, 0.118751e+01_jprb, 0.119333e+01_jprb, 0.119869e+01_jprb &
30674  &, 0.120359e+01_jprb, 0.120803e+01_jprb, 0.121200e+01_jprb &
30675  &, 0.121550e+01_jprb, 0.121852e+01_jprb, 0.122106e+01_jprb, 0.122312e+01_jprb &
30676  &, 0.122469e+01_jprb, 0.122578e+01_jprb, 0.122637e+01_jprb &
30677  &, 0.122647e+01_jprb, 0.122609e+01_jprb, 0.122521e+01_jprb, 0.122384e+01_jprb &
30678  &, 0.122198e+01_jprb, 0.121962e+01_jprb, 0.121679e+01_jprb &
30679  &, 0.121346e+01_jprb, 0.120966e+01_jprb, 0.120537e+01_jprb, 0.120062e+01_jprb &
30680  &, 0.119539e+01_jprb, 0.118971e+01_jprb, 0.118356e+01_jprb &
30681  &, 0.117697e+01_jprb, 0.116993e+01_jprb, 0.116244e+01_jprb, 0.115454e+01_jprb &
30682  &, 0.114622e+01_jprb, 0.113748e+01_jprb, 0.112834e+01_jprb &
30683  &, 0.111881e+01_jprb, 0.110890e+01_jprb, 0.109863e+01_jprb, 0.108799e+01_jprb &
30684  &, 0.107700e+01_jprb, 0.106567e+01_jprb, 0.105402e+01_jprb &
30685  &, 0.104206e+01_jprb, 0.102980e+01_jprb, 0.101725e+01_jprb, 0.100442e+01_jprb &
30686  &, 0.991339e+00_jprb, 0.978011e+00_jprb, 0.964452e+00_jprb &
30687  &, 0.950675e+00_jprb, 0.936677e+00_jprb, 0.922508e+00_jprb, 0.908146e+00_jprb &
30688  &, 0.893626e+00_jprb, 0.878962e+00_jprb, 0.864151e+00_jprb &
30689  &, 0.849228e+00_jprb, 0.834188e+00_jprb, 0.819066e+00_jprb, 0.803857e+00_jprb &
30690  &, 0.788598e+00_jprb, 0.773257e+00_jprb, 0.757895e+00_jprb &
30691  &, 0.742526e+00_jprb, 0.727116e+00_jprb, 0.711727e+00_jprb, 0.696319e+00_jprb &
30692  &, 0.680984e+00_jprb, 0.665653e+00_jprb, 0.650390e+00_jprb &
30693  &, 0.635179e+00_jprb, 0.620027e+00_jprb, 0.605002e+00_jprb, 0.590023e+00_jprb &
30694  &, 0.575187e+00_jprb, 0.560439e+00_jprb, 0.545845e+00_jprb &
30695  &, 0.531348e+00_jprb, 0.517046e+00_jprb, 0.502846e+00_jprb, 0.488847e+00_jprb &
30696  &, 0.474983e+00_jprb, 0.461321e+00_jprb, 0.447826e+00_jprb &
30697  &, 0.434530e+00_jprb, 0.421392e+00_jprb, 0.408518e+00_jprb, 0.395792e+00_jprb &
30698  &, 0.383318e+00_jprb, 0.371050e+00_jprb, 0.358980e+00_jprb &
30699  &, 0.347175e+00_jprb, 0.335585e+00_jprb, 0.324196e+00_jprb, 0.313076e+00_jprb &
30700  &, 0.302169e+00_jprb, 0.291500e+00_jprb, 0.281095e+00_jprb &
30701  &, 0.270937e+00_jprb, 0.260959e+00_jprb, 0.251276e+00_jprb, 0.241819e+00_jprb &
30702  &, 0.232611e+00_jprb, 0.223627e+00_jprb, 0.214888e+00_jprb &
30703  &, 0.206415e+00_jprb, 0.198130e+00_jprb, 0.190153e+00_jprb, 0.182351e+00_jprb &
30704  &, 0.174793e+00_jprb, 0.167445e+00_jprb, 0.160379e+00_jprb &
30705  &, 0.153504e+00_jprb, 0.146835e+00_jprb, 0.140389e+00_jprb, 0.134182e+00_jprb &
30706  &, 0.128171e+00_jprb, 0.122371e+00_jprb, 0.116797e+00_jprb &
30707  &, 0.111402e+00_jprb, 0.106200e+00_jprb, 0.101203e+00_jprb, 0.963609e-01_jprb &
30708  &, 0.917483e-01_jprb, 0.872491e-01_jprb, 0.830032e-01_jprb/)
30709 xcw( 703, :) = (/ &
30710  & 0.105073e+01_jprb, 0.106260e+01_jprb, 0.107413e+01_jprb, 0.108530e+01_jprb &
30711  &, 0.109611e+01_jprb, 0.110656e+01_jprb, 0.111663e+01_jprb &
30712  &, 0.112631e+01_jprb, 0.113560e+01_jprb, 0.114450e+01_jprb, 0.115298e+01_jprb &
30713  &, 0.116105e+01_jprb, 0.116870e+01_jprb, 0.117593e+01_jprb &
30714  &, 0.118271e+01_jprb, 0.118906e+01_jprb, 0.119496e+01_jprb, 0.120041e+01_jprb &
30715  &, 0.120540e+01_jprb, 0.120993e+01_jprb, 0.121399e+01_jprb &
30716  &, 0.121757e+01_jprb, 0.122068e+01_jprb, 0.122331e+01_jprb, 0.122546e+01_jprb &
30717  &, 0.122712e+01_jprb, 0.122829e+01_jprb, 0.122897e+01_jprb &
30718  &, 0.122916e+01_jprb, 0.122886e+01_jprb, 0.122807e+01_jprb, 0.122678e+01_jprb &
30719  &, 0.122501e+01_jprb, 0.122274e+01_jprb, 0.121998e+01_jprb &
30720  &, 0.121674e+01_jprb, 0.121302e+01_jprb, 0.120881e+01_jprb, 0.120414e+01_jprb &
30721  &, 0.119899e+01_jprb, 0.119337e+01_jprb, 0.118731e+01_jprb &
30722  &, 0.118079e+01_jprb, 0.117382e+01_jprb, 0.116641e+01_jprb, 0.115857e+01_jprb &
30723  &, 0.115031e+01_jprb, 0.114163e+01_jprb, 0.113258e+01_jprb &
30724  &, 0.112311e+01_jprb, 0.111326e+01_jprb, 0.110303e+01_jprb, 0.109245e+01_jprb &
30725  &, 0.108150e+01_jprb, 0.107024e+01_jprb, 0.105864e+01_jprb &
30726  &, 0.104672e+01_jprb, 0.103449e+01_jprb, 0.102200e+01_jprb, 0.100922e+01_jprb &
30727  &, 0.996160e+00_jprb, 0.982872e+00_jprb, 0.969334e+00_jprb &
30728  &, 0.955593e+00_jprb, 0.941629e+00_jprb, 0.927474e+00_jprb, 0.913144e+00_jprb &
30729  &, 0.898633e+00_jprb, 0.883976e+00_jprb, 0.869190e+00_jprb &
30730  &, 0.854268e+00_jprb, 0.839248e+00_jprb, 0.824122e+00_jprb, 0.808928e+00_jprb &
30731  &, 0.793659e+00_jprb, 0.778328e+00_jprb, 0.762949e+00_jprb &
30732  &, 0.747561e+00_jprb, 0.732152e+00_jprb, 0.716736e+00_jprb, 0.701324e+00_jprb &
30733  &, 0.685954e+00_jprb, 0.670613e+00_jprb, 0.655309e+00_jprb &
30734  &, 0.640080e+00_jprb, 0.624908e+00_jprb, 0.609829e+00_jprb, 0.594853e+00_jprb &
30735  &, 0.579956e+00_jprb, 0.565173e+00_jprb, 0.550541e+00_jprb &
30736  &, 0.536003e+00_jprb, 0.521624e+00_jprb, 0.507407e+00_jprb, 0.493355e+00_jprb &
30737  &, 0.479434e+00_jprb, 0.465712e+00_jprb, 0.452152e+00_jprb &
30738  &, 0.438822e+00_jprb, 0.425649e+00_jprb, 0.412663e+00_jprb, 0.399931e+00_jprb &
30739  &, 0.387373e+00_jprb, 0.375017e+00_jprb, 0.362933e+00_jprb &
30740  &, 0.351032e+00_jprb, 0.339341e+00_jprb, 0.327930e+00_jprb, 0.316701e+00_jprb &
30741  &, 0.305766e+00_jprb, 0.295023e+00_jprb, 0.284542e+00_jprb &
30742  &, 0.274258e+00_jprb, 0.264286e+00_jprb, 0.254514e+00_jprb, 0.244966e+00_jprb &
30743  &, 0.235663e+00_jprb, 0.226628e+00_jprb, 0.217835e+00_jprb &
30744  &, 0.209257e+00_jprb, 0.200912e+00_jprb, 0.192822e+00_jprb, 0.185007e+00_jprb &
30745  &, 0.177382e+00_jprb, 0.169964e+00_jprb, 0.162771e+00_jprb &
30746  &, 0.155875e+00_jprb, 0.149128e+00_jprb, 0.142657e+00_jprb, 0.136366e+00_jprb &
30747  &, 0.130269e+00_jprb, 0.124380e+00_jprb, 0.118773e+00_jprb &
30748  &, 0.113284e+00_jprb, 0.108046e+00_jprb, 0.102949e+00_jprb, 0.980668e-01_jprb &
30749  &, 0.933488e-01_jprb, 0.888706e-01_jprb, 0.845145e-01_jprb/)
30750 xcw( 704, :) = (/ &
30751  & 0.105103e+01_jprb, 0.106298e+01_jprb, 0.107458e+01_jprb, 0.108583e+01_jprb &
30752  &, 0.109673e+01_jprb, 0.110725e+01_jprb, 0.111740e+01_jprb &
30753  &, 0.112717e+01_jprb, 0.113655e+01_jprb, 0.114553e+01_jprb, 0.115410e+01_jprb &
30754  &, 0.116226e+01_jprb, 0.116999e+01_jprb, 0.117730e+01_jprb &
30755  &, 0.118418e+01_jprb, 0.119061e+01_jprb, 0.119660e+01_jprb, 0.120214e+01_jprb &
30756  &, 0.120722e+01_jprb, 0.121183e+01_jprb, 0.121598e+01_jprb &
30757  &, 0.121965e+01_jprb, 0.122286e+01_jprb, 0.122557e+01_jprb, 0.122781e+01_jprb &
30758  &, 0.122956e+01_jprb, 0.123082e+01_jprb, 0.123159e+01_jprb &
30759  &, 0.123187e+01_jprb, 0.123165e+01_jprb, 0.123094e+01_jprb, 0.122974e+01_jprb &
30760  &, 0.122805e+01_jprb, 0.122587e+01_jprb, 0.122319e+01_jprb &
30761  &, 0.122003e+01_jprb, 0.121639e+01_jprb, 0.121226e+01_jprb, 0.120767e+01_jprb &
30762  &, 0.120260e+01_jprb, 0.119706e+01_jprb, 0.119107e+01_jprb &
30763  &, 0.118462e+01_jprb, 0.117773e+01_jprb, 0.117039e+01_jprb, 0.116263e+01_jprb &
30764  &, 0.115443e+01_jprb, 0.114582e+01_jprb, 0.113682e+01_jprb &
30765  &, 0.112741e+01_jprb, 0.111762e+01_jprb, 0.110745e+01_jprb, 0.109692e+01_jprb &
30766  &, 0.108604e+01_jprb, 0.107483e+01_jprb, 0.106327e+01_jprb &
30767  &, 0.105140e+01_jprb, 0.103924e+01_jprb, 0.102677e+01_jprb, 0.101401e+01_jprb &
30768  &, 0.100102e+01_jprb, 0.987750e+00_jprb, 0.974250e+00_jprb &
30769  &, 0.960529e+00_jprb, 0.946600e+00_jprb, 0.932460e+00_jprb, 0.918161e+00_jprb &
30770  &, 0.903680e+00_jprb, 0.889031e+00_jprb, 0.874249e+00_jprb &
30771  &, 0.859351e+00_jprb, 0.844329e+00_jprb, 0.829222e+00_jprb, 0.814022e+00_jprb &
30772  &, 0.798742e+00_jprb, 0.783422e+00_jprb, 0.768051e+00_jprb &
30773  &, 0.752644e+00_jprb, 0.737213e+00_jprb, 0.721796e+00_jprb, 0.706380e+00_jprb &
30774  &, 0.690978e+00_jprb, 0.675599e+00_jprb, 0.660282e+00_jprb &
30775  &, 0.645037e+00_jprb, 0.629845e+00_jprb, 0.614715e+00_jprb, 0.599682e+00_jprb &
30776  &, 0.584784e+00_jprb, 0.569968e+00_jprb, 0.555269e+00_jprb &
30777  &, 0.540689e+00_jprb, 0.526297e+00_jprb, 0.512000e+00_jprb, 0.497896e+00_jprb &
30778  &, 0.483919e+00_jprb, 0.470171e+00_jprb, 0.456548e+00_jprb &
30779  &, 0.443151e+00_jprb, 0.429906e+00_jprb, 0.416881e+00_jprb, 0.404069e+00_jprb &
30780  &, 0.391466e+00_jprb, 0.379061e+00_jprb, 0.366886e+00_jprb &
30781  &, 0.354929e+00_jprb, 0.343179e+00_jprb, 0.331664e+00_jprb, 0.320410e+00_jprb &
30782  &, 0.309363e+00_jprb, 0.298590e+00_jprb, 0.287988e+00_jprb &
30783  &, 0.277668e+00_jprb, 0.267612e+00_jprb, 0.257753e+00_jprb, 0.248160e+00_jprb &
30784  &, 0.238810e+00_jprb, 0.229677e+00_jprb, 0.220783e+00_jprb &
30785  &, 0.212149e+00_jprb, 0.203746e+00_jprb, 0.195594e+00_jprb, 0.187663e+00_jprb &
30786  &, 0.179971e+00_jprb, 0.172484e+00_jprb, 0.165272e+00_jprb &
30787  &, 0.158245e+00_jprb, 0.151476e+00_jprb, 0.144868e+00_jprb, 0.138551e+00_jprb &
30788  &, 0.132367e+00_jprb, 0.126448e+00_jprb, 0.120750e+00_jprb &
30789  &, 0.115227e+00_jprb, 0.109892e+00_jprb, 0.104757e+00_jprb, 0.998359e-01_jprb &
30790  &, 0.950773e-01_jprb, 0.904922e-01_jprb, 0.860916e-01_jprb/)
30791 xcw( 705, :) = (/ &
30792  & 0.105133e+01_jprb, 0.106335e+01_jprb, 0.107504e+01_jprb, 0.108637e+01_jprb &
30793  &, 0.109734e+01_jprb, 0.110795e+01_jprb, 0.111819e+01_jprb &
30794  &, 0.112804e+01_jprb, 0.113750e+01_jprb, 0.114656e+01_jprb, 0.115522e+01_jprb &
30795  &, 0.116346e+01_jprb, 0.117129e+01_jprb, 0.117868e+01_jprb &
30796  &, 0.118565e+01_jprb, 0.119217e+01_jprb, 0.119825e+01_jprb, 0.120387e+01_jprb &
30797  &, 0.120904e+01_jprb, 0.121374e+01_jprb, 0.121798e+01_jprb &
30798  &, 0.122174e+01_jprb, 0.122503e+01_jprb, 0.122784e+01_jprb, 0.123016e+01_jprb &
30799  &, 0.123200e+01_jprb, 0.123335e+01_jprb, 0.123419e+01_jprb &
30800  &, 0.123457e+01_jprb, 0.123445e+01_jprb, 0.123382e+01_jprb, 0.123271e+01_jprb &
30801  &, 0.123110e+01_jprb, 0.122900e+01_jprb, 0.122642e+01_jprb &
30802  &, 0.122334e+01_jprb, 0.121978e+01_jprb, 0.121573e+01_jprb, 0.121121e+01_jprb &
30803  &, 0.120621e+01_jprb, 0.120076e+01_jprb, 0.119485e+01_jprb &
30804  &, 0.118847e+01_jprb, 0.118165e+01_jprb, 0.117438e+01_jprb, 0.116669e+01_jprb &
30805  &, 0.115856e+01_jprb, 0.115003e+01_jprb, 0.114108e+01_jprb &
30806  &, 0.113173e+01_jprb, 0.112201e+01_jprb, 0.111190e+01_jprb, 0.110142e+01_jprb &
30807  &, 0.109059e+01_jprb, 0.107943e+01_jprb, 0.106792e+01_jprb &
30808  &, 0.105610e+01_jprb, 0.104398e+01_jprb, 0.103156e+01_jprb, 0.101886e+01_jprb &
30809  &, 0.100589e+01_jprb, 0.992663e+00_jprb, 0.979203e+00_jprb &
30810  &, 0.965501e+00_jprb, 0.951590e+00_jprb, 0.937484e+00_jprb, 0.923198e+00_jprb &
30811  &, 0.908747e+00_jprb, 0.894126e+00_jprb, 0.879350e+00_jprb &
30812  &, 0.864454e+00_jprb, 0.849454e+00_jprb, 0.834344e+00_jprb, 0.819137e+00_jprb &
30813  &, 0.803872e+00_jprb, 0.788540e+00_jprb, 0.773153e+00_jprb &
30814  &, 0.757751e+00_jprb, 0.742323e+00_jprb, 0.726881e+00_jprb, 0.711436e+00_jprb &
30815  &, 0.696027e+00_jprb, 0.680640e+00_jprb, 0.665310e+00_jprb &
30816  &, 0.650021e+00_jprb, 0.634782e+00_jprb, 0.619629e+00_jprb, 0.604571e+00_jprb &
30817  &, 0.589613e+00_jprb, 0.574764e+00_jprb, 0.560027e+00_jprb &
30818  &, 0.545439e+00_jprb, 0.530971e+00_jprb, 0.516626e+00_jprb, 0.502470e+00_jprb &
30819  &, 0.488472e+00_jprb, 0.474631e+00_jprb, 0.460979e+00_jprb &
30820  &, 0.447516e+00_jprb, 0.434236e+00_jprb, 0.421136e+00_jprb, 0.408246e+00_jprb &
30821  &, 0.395559e+00_jprb, 0.383106e+00_jprb, 0.370878e+00_jprb &
30822  &, 0.358826e+00_jprb, 0.347058e+00_jprb, 0.335480e+00_jprb, 0.324120e+00_jprb &
30823  &, 0.313046e+00_jprb, 0.302157e+00_jprb, 0.291522e+00_jprb &
30824  &, 0.281123e+00_jprb, 0.270984e+00_jprb, 0.261038e+00_jprb, 0.251401e+00_jprb &
30825  &, 0.241957e+00_jprb, 0.232775e+00_jprb, 0.223780e+00_jprb &
30826  &, 0.215090e+00_jprb, 0.206629e+00_jprb, 0.198366e+00_jprb, 0.190372e+00_jprb &
30827  &, 0.182613e+00_jprb, 0.175056e+00_jprb, 0.167772e+00_jprb &
30828  &, 0.160671e+00_jprb, 0.153824e+00_jprb, 0.147193e+00_jprb, 0.140735e+00_jprb &
30829  &, 0.134524e+00_jprb, 0.128575e+00_jprb, 0.122726e+00_jprb &
30830  &, 0.117169e+00_jprb, 0.111799e+00_jprb, 0.106565e+00_jprb, 0.101605e+00_jprb &
30831  &, 0.967417e-01_jprb, 0.921137e-01_jprb, 0.876686e-01_jprb/)
30832 xcw( 706, :) = (/ &
30833  & 0.105163e+01_jprb, 0.106373e+01_jprb, 0.107550e+01_jprb, 0.108691e+01_jprb &
30834  &, 0.109796e+01_jprb, 0.110865e+01_jprb, 0.111897e+01_jprb &
30835  &, 0.112890e+01_jprb, 0.113845e+01_jprb, 0.114759e+01_jprb, 0.115634e+01_jprb &
30836  &, 0.116467e+01_jprb, 0.117258e+01_jprb, 0.118006e+01_jprb &
30837  &, 0.118712e+01_jprb, 0.119373e+01_jprb, 0.119989e+01_jprb, 0.120561e+01_jprb &
30838  &, 0.121086e+01_jprb, 0.121566e+01_jprb, 0.121998e+01_jprb &
30839  &, 0.122384e+01_jprb, 0.122721e+01_jprb, 0.123006e+01_jprb, 0.123253e+01_jprb &
30840  &, 0.123445e+01_jprb, 0.123589e+01_jprb, 0.123683e+01_jprb &
30841  &, 0.123729e+01_jprb, 0.123725e+01_jprb, 0.123671e+01_jprb, 0.123568e+01_jprb &
30842  &, 0.123416e+01_jprb, 0.123215e+01_jprb, 0.122964e+01_jprb &
30843  &, 0.122665e+01_jprb, 0.122317e+01_jprb, 0.121921e+01_jprb, 0.121477e+01_jprb &
30844  &, 0.120986e+01_jprb, 0.120448e+01_jprb, 0.119864e+01_jprb &
30845  &, 0.119234e+01_jprb, 0.118558e+01_jprb, 0.117840e+01_jprb, 0.117077e+01_jprb &
30846  &, 0.116272e+01_jprb, 0.115424e+01_jprb, 0.114536e+01_jprb &
30847  &, 0.113608e+01_jprb, 0.112641e+01_jprb, 0.111637e+01_jprb, 0.110594e+01_jprb &
30848  &, 0.109517e+01_jprb, 0.108406e+01_jprb, 0.107260e+01_jprb &
30849  &, 0.106082e+01_jprb, 0.104875e+01_jprb, 0.103637e+01_jprb, 0.102371e+01_jprb &
30850  &, 0.101078e+01_jprb, 0.997593e+00_jprb, 0.984155e+00_jprb &
30851  &, 0.970492e+00_jprb, 0.956617e+00_jprb, 0.942546e+00_jprb, 0.928273e+00_jprb &
30852  &, 0.913833e+00_jprb, 0.899221e+00_jprb, 0.884471e+00_jprb &
30853  &, 0.869600e+00_jprb, 0.854600e+00_jprb, 0.839488e+00_jprb, 0.824298e+00_jprb &
30854  &, 0.809024e+00_jprb, 0.793704e+00_jprb, 0.778303e+00_jprb &
30855  &, 0.762883e+00_jprb, 0.747458e+00_jprb, 0.731991e+00_jprb, 0.716544e+00_jprb &
30856  &, 0.701104e+00_jprb, 0.685707e+00_jprb, 0.670338e+00_jprb &
30857  &, 0.655034e+00_jprb, 0.639776e+00_jprb, 0.624601e+00_jprb, 0.609459e+00_jprb &
30858  &, 0.594502e+00_jprb, 0.579620e+00_jprb, 0.564848e+00_jprb &
30859  &, 0.550189e+00_jprb, 0.535678e+00_jprb, 0.521318e+00_jprb, 0.507112e+00_jprb &
30860  &, 0.493025e+00_jprb, 0.479160e+00_jprb, 0.465446e+00_jprb &
30861  &, 0.451916e+00_jprb, 0.438566e+00_jprb, 0.425428e+00_jprb, 0.412498e+00_jprb &
30862  &, 0.399729e+00_jprb, 0.387228e+00_jprb, 0.374911e+00_jprb &
30863  &, 0.362804e+00_jprb, 0.350937e+00_jprb, 0.339297e+00_jprb, 0.327913e+00_jprb &
30864  &, 0.316729e+00_jprb, 0.305768e+00_jprb, 0.295057e+00_jprb &
30865  &, 0.284623e+00_jprb, 0.274355e+00_jprb, 0.264369e+00_jprb, 0.254642e+00_jprb &
30866  &, 0.245152e+00_jprb, 0.235873e+00_jprb, 0.226825e+00_jprb &
30867  &, 0.218081e+00_jprb, 0.209513e+00_jprb, 0.201190e+00_jprb, 0.193132e+00_jprb &
30868  &, 0.185308e+00_jprb, 0.177682e+00_jprb, 0.170273e+00_jprb &
30869  &, 0.163152e+00_jprb, 0.156228e+00_jprb, 0.149517e+00_jprb, 0.143034e+00_jprb &
30870  &, 0.136738e+00_jprb, 0.130643e+00_jprb, 0.124822e+00_jprb &
30871  &, 0.119173e+00_jprb, 0.113706e+00_jprb, 0.108436e+00_jprb, 0.103374e+00_jprb &
30872  &, 0.984702e-01_jprb, 0.938001e-01_jprb, 0.893114e-01_jprb/)
30873 xcw( 707, :) = (/ &
30874  & 0.105193e+01_jprb, 0.106411e+01_jprb, 0.107595e+01_jprb, 0.108745e+01_jprb &
30875  &, 0.109858e+01_jprb, 0.110935e+01_jprb, 0.111975e+01_jprb &
30876  &, 0.112977e+01_jprb, 0.113940e+01_jprb, 0.114864e+01_jprb, 0.115746e+01_jprb &
30877  &, 0.116588e+01_jprb, 0.117388e+01_jprb, 0.118145e+01_jprb &
30878  &, 0.118854e+01_jprb, 0.119529e+01_jprb, 0.120154e+01_jprb, 0.120735e+01_jprb &
30879  &, 0.121269e+01_jprb, 0.121758e+01_jprb, 0.122199e+01_jprb &
30880  &, 0.122594e+01_jprb, 0.122940e+01_jprb, 0.123239e+01_jprb, 0.123489e+01_jprb &
30881  &, 0.123691e+01_jprb, 0.123844e+01_jprb, 0.123947e+01_jprb &
30882  &, 0.124001e+01_jprb, 0.124006e+01_jprb, 0.123961e+01_jprb, 0.123867e+01_jprb &
30883  &, 0.123724e+01_jprb, 0.123531e+01_jprb, 0.123288e+01_jprb &
30884  &, 0.122998e+01_jprb, 0.122658e+01_jprb, 0.122270e+01_jprb, 0.121834e+01_jprb &
30885  &, 0.121351e+01_jprb, 0.120820e+01_jprb, 0.120244e+01_jprb &
30886  &, 0.119621e+01_jprb, 0.118953e+01_jprb, 0.118242e+01_jprb, 0.117486e+01_jprb &
30887  &, 0.116687e+01_jprb, 0.115847e+01_jprb, 0.114966e+01_jprb &
30888  &, 0.114044e+01_jprb, 0.113083e+01_jprb, 0.112085e+01_jprb, 0.111049e+01_jprb &
30889  &, 0.109977e+01_jprb, 0.108871e+01_jprb, 0.107730e+01_jprb &
30890  &, 0.106558e+01_jprb, 0.105354e+01_jprb, 0.104121e+01_jprb, 0.102859e+01_jprb &
30891  &, 0.101570e+01_jprb, 0.100254e+01_jprb, 0.989143e+00_jprb &
30892  &, 0.975518e+00_jprb, 0.961662e+00_jprb, 0.947607e+00_jprb, 0.933368e+00_jprb &
30893  &, 0.918959e+00_jprb, 0.904356e+00_jprb, 0.889633e+00_jprb &
30894  &, 0.874766e+00_jprb, 0.859768e+00_jprb, 0.844675e+00_jprb, 0.829481e+00_jprb &
30895  &, 0.814223e+00_jprb, 0.798892e+00_jprb, 0.783501e+00_jprb &
30896  &, 0.768064e+00_jprb, 0.752618e+00_jprb, 0.737152e+00_jprb, 0.721678e+00_jprb &
30897  &, 0.706232e+00_jprb, 0.690801e+00_jprb, 0.675420e+00_jprb &
30898  &, 0.660074e+00_jprb, 0.644799e+00_jprb, 0.629574e+00_jprb, 0.614465e+00_jprb &
30899  &, 0.599421e+00_jprb, 0.584507e+00_jprb, 0.569700e+00_jprb &
30900  &, 0.555002e+00_jprb, 0.540448e+00_jprb, 0.526010e+00_jprb, 0.511753e+00_jprb &
30901  &, 0.497646e+00_jprb, 0.483723e+00_jprb, 0.469948e+00_jprb &
30902  &, 0.456352e+00_jprb, 0.442969e+00_jprb, 0.429758e+00_jprb, 0.416749e+00_jprb &
30903  &, 0.403937e+00_jprb, 0.391350e+00_jprb, 0.378982e+00_jprb &
30904  &, 0.366821e+00_jprb, 0.354897e+00_jprb, 0.343197e+00_jprb, 0.331707e+00_jprb &
30905  &, 0.320454e+00_jprb, 0.309422e+00_jprb, 0.298680e+00_jprb &
30906  &, 0.288123e+00_jprb, 0.277818e+00_jprb, 0.267746e+00_jprb, 0.257930e+00_jprb &
30907  &, 0.248347e+00_jprb, 0.239019e+00_jprb, 0.229920e+00_jprb &
30908  &, 0.221073e+00_jprb, 0.212448e+00_jprb, 0.204065e+00_jprb, 0.195892e+00_jprb &
30909  &, 0.188002e+00_jprb, 0.180309e+00_jprb, 0.172882e+00_jprb &
30910  &, 0.165633e+00_jprb, 0.158633e+00_jprb, 0.151842e+00_jprb, 0.145276e+00_jprb &
30911  &, 0.138953e+00_jprb, 0.132829e+00_jprb, 0.126918e+00_jprb &
30912  &, 0.121176e+00_jprb, 0.115675e+00_jprb, 0.110306e+00_jprb, 0.105206e+00_jprb &
30913  &, 0.100263e+00_jprb, 0.954865e-01_jprb, 0.909542e-01_jprb/)
30914 
30915 IF (lhook) CALL dr_hook('SU_MCICA:PART101',1,zhook_handle)
30916 END SUBROUTINE part101
30917 
30918 #ifdef VPP5000
30919 !OCL SCALAR
30920 #endif
30921 !option! -Nv -NO
30922 #ifdef RS6K
30923 @process nooptimize
30924 #endif
30925 !pgi$r opt=0
30926 SUBROUTINE part102
30927 
30928 REAL(KIND=JPRB) :: ZHOOK_HANDLE
30929 IF (lhook) CALL dr_hook('SU_MCICA:PART102',0,zhook_handle)
30930 
30931 xcw( 708, :) = (/ &
30932  & 0.105223e+01_jprb, 0.106449e+01_jprb, 0.107641e+01_jprb, 0.108798e+01_jprb &
30933  &, 0.109920e+01_jprb, 0.111006e+01_jprb, 0.112054e+01_jprb &
30934  &, 0.113064e+01_jprb, 0.114036e+01_jprb, 0.114968e+01_jprb, 0.115859e+01_jprb &
30935  &, 0.116709e+01_jprb, 0.117518e+01_jprb, 0.118284e+01_jprb &
30936  &, 0.119007e+01_jprb, 0.119686e+01_jprb, 0.120320e+01_jprb, 0.120909e+01_jprb &
30937  &, 0.121453e+01_jprb, 0.121950e+01_jprb, 0.122401e+01_jprb &
30938  &, 0.122804e+01_jprb, 0.123160e+01_jprb, 0.123467e+01_jprb, 0.123727e+01_jprb &
30939  &, 0.123937e+01_jprb, 0.124099e+01_jprb, 0.124211e+01_jprb &
30940  &, 0.124274e+01_jprb, 0.124288e+01_jprb, 0.124252e+01_jprb, 0.124167e+01_jprb &
30941  &, 0.124032e+01_jprb, 0.123847e+01_jprb, 0.123614e+01_jprb &
30942  &, 0.123331e+01_jprb, 0.123000e+01_jprb, 0.122620e+01_jprb, 0.122192e+01_jprb &
30943  &, 0.121716e+01_jprb, 0.121194e+01_jprb, 0.120626e+01_jprb &
30944  &, 0.120010e+01_jprb, 0.119350e+01_jprb, 0.118646e+01_jprb, 0.117897e+01_jprb &
30945  &, 0.117106e+01_jprb, 0.116272e+01_jprb, 0.115397e+01_jprb &
30946  &, 0.114482e+01_jprb, 0.113527e+01_jprb, 0.112534e+01_jprb, 0.111505e+01_jprb &
30947  &, 0.110438e+01_jprb, 0.109337e+01_jprb, 0.108202e+01_jprb &
30948  &, 0.107035e+01_jprb, 0.105836e+01_jprb, 0.104608e+01_jprb, 0.103350e+01_jprb &
30949  &, 0.102064e+01_jprb, 0.100752e+01_jprb, 0.994166e+00_jprb &
30950  &, 0.980563e+00_jprb, 0.966744e+00_jprb, 0.952726e+00_jprb, 0.938501e+00_jprb &
30951  &, 0.924105e+00_jprb, 0.909532e+00_jprb, 0.894817e+00_jprb &
30952  &, 0.879954e+00_jprb, 0.864979e+00_jprb, 0.849885e+00_jprb, 0.834710e+00_jprb &
30953  &, 0.819444e+00_jprb, 0.804103e+00_jprb, 0.788698e+00_jprb &
30954  &, 0.773269e+00_jprb, 0.757803e+00_jprb, 0.742339e+00_jprb, 0.726863e+00_jprb &
30955  &, 0.711387e+00_jprb, 0.695948e+00_jprb, 0.680530e+00_jprb &
30956  &, 0.665170e+00_jprb, 0.649849e+00_jprb, 0.634604e+00_jprb, 0.619471e+00_jprb &
30957  &, 0.604400e+00_jprb, 0.589425e+00_jprb, 0.574583e+00_jprb &
30958  &, 0.559846e+00_jprb, 0.545251e+00_jprb, 0.530767e+00_jprb, 0.516461e+00_jprb &
30959  &, 0.502301e+00_jprb, 0.488321e+00_jprb, 0.474485e+00_jprb &
30960  &, 0.460860e+00_jprb, 0.447408e+00_jprb, 0.434124e+00_jprb, 0.421076e+00_jprb &
30961  &, 0.408183e+00_jprb, 0.395550e+00_jprb, 0.383093e+00_jprb &
30962  &, 0.370879e+00_jprb, 0.358858e+00_jprb, 0.347097e+00_jprb, 0.335543e+00_jprb &
30963  &, 0.324223e+00_jprb, 0.313163e+00_jprb, 0.302303e+00_jprb &
30964  &, 0.291667e+00_jprb, 0.281327e+00_jprb, 0.271170e+00_jprb, 0.261265e+00_jprb &
30965  &, 0.251637e+00_jprb, 0.242213e+00_jprb, 0.233064e+00_jprb &
30966  &, 0.224114e+00_jprb, 0.215433e+00_jprb, 0.206939e+00_jprb, 0.198757e+00_jprb &
30967  &, 0.190750e+00_jprb, 0.182988e+00_jprb, 0.175274e+00_jprb &
30968  &, 0.168170e+00_jprb, 0.161093e+00_jprb, 0.154223e+00_jprb, 0.147633e+00_jprb &
30969  &, 0.141226e+00_jprb, 0.135015e+00_jprb, 0.129015e+00_jprb &
30970  &, 0.123240e+00_jprb, 0.117644e+00_jprb, 0.112239e+00_jprb, 0.107038e+00_jprb &
30971  &, 0.102055e+00_jprb, 0.972378e-01_jprb, 0.925970e-01_jprb/)
30972 xcw( 709, :) = (/ &
30973  & 0.105254e+01_jprb, 0.106487e+01_jprb, 0.107687e+01_jprb, 0.108852e+01_jprb &
30974  &, 0.109983e+01_jprb, 0.111076e+01_jprb, 0.112133e+01_jprb &
30975  &, 0.113152e+01_jprb, 0.114131e+01_jprb, 0.115072e+01_jprb, 0.115972e+01_jprb &
30976  &, 0.116831e+01_jprb, 0.117648e+01_jprb, 0.118423e+01_jprb &
30977  &, 0.119155e+01_jprb, 0.119843e+01_jprb, 0.120486e+01_jprb, 0.121084e+01_jprb &
30978  &, 0.121637e+01_jprb, 0.122143e+01_jprb, 0.122603e+01_jprb &
30979  &, 0.123015e+01_jprb, 0.123380e+01_jprb, 0.123697e+01_jprb, 0.123965e+01_jprb &
30980  &, 0.124184e+01_jprb, 0.124355e+01_jprb, 0.124476e+01_jprb &
30981  &, 0.124549e+01_jprb, 0.124571e+01_jprb, 0.124544e+01_jprb, 0.124467e+01_jprb &
30982  &, 0.124341e+01_jprb, 0.124165e+01_jprb, 0.123940e+01_jprb &
30983  &, 0.123665e+01_jprb, 0.123342e+01_jprb, 0.122971e+01_jprb, 0.122552e+01_jprb &
30984  &, 0.122084e+01_jprb, 0.121569e+01_jprb, 0.121008e+01_jprb &
30985  &, 0.120401e+01_jprb, 0.119749e+01_jprb, 0.119051e+01_jprb, 0.118310e+01_jprb &
30986  &, 0.117525e+01_jprb, 0.116698e+01_jprb, 0.115831e+01_jprb &
30987  &, 0.114922e+01_jprb, 0.113973e+01_jprb, 0.112986e+01_jprb, 0.111962e+01_jprb &
30988  &, 0.110902e+01_jprb, 0.109805e+01_jprb, 0.108676e+01_jprb &
30989  &, 0.107514e+01_jprb, 0.106320e+01_jprb, 0.105096e+01_jprb, 0.103841e+01_jprb &
30990  &, 0.102561e+01_jprb, 0.101252e+01_jprb, 0.999207e+00_jprb &
30991  &, 0.985644e+00_jprb, 0.971845e+00_jprb, 0.957844e+00_jprb, 0.943654e+00_jprb &
30992  &, 0.929270e+00_jprb, 0.914728e+00_jprb, 0.900020e+00_jprb &
30993  &, 0.885184e+00_jprb, 0.870211e+00_jprb, 0.855139e+00_jprb, 0.839960e+00_jprb &
30994  &, 0.824688e+00_jprb, 0.809360e+00_jprb, 0.793967e+00_jprb &
30995  &, 0.778522e+00_jprb, 0.763037e+00_jprb, 0.747550e+00_jprb, 0.732074e+00_jprb &
30996  &, 0.716542e+00_jprb, 0.701122e+00_jprb, 0.685668e+00_jprb &
30997  &, 0.670294e+00_jprb, 0.654957e+00_jprb, 0.639692e+00_jprb, 0.624507e+00_jprb &
30998  &, 0.609379e+00_jprb, 0.594282e+00_jprb, 0.579497e+00_jprb &
30999  &, 0.564723e+00_jprb, 0.550086e+00_jprb, 0.535557e+00_jprb, 0.521203e+00_jprb &
31000  &, 0.506990e+00_jprb, 0.492953e+00_jprb, 0.479021e+00_jprb &
31001  &, 0.465367e+00_jprb, 0.451847e+00_jprb, 0.438527e+00_jprb, 0.425403e+00_jprb &
31002  &, 0.412467e+00_jprb, 0.399750e+00_jprb, 0.387244e+00_jprb &
31003  &, 0.374977e+00_jprb, 0.362900e+00_jprb, 0.351038e+00_jprb, 0.339421e+00_jprb &
31004  &, 0.328034e+00_jprb, 0.316904e+00_jprb, 0.305970e+00_jprb &
31005  &, 0.295302e+00_jprb, 0.284835e+00_jprb, 0.274640e+00_jprb, 0.264647e+00_jprb &
31006  &, 0.254927e+00_jprb, 0.245456e+00_jprb, 0.236208e+00_jprb &
31007  &, 0.227205e+00_jprb, 0.218417e+00_jprb, 0.209865e+00_jprb, 0.201569e+00_jprb &
31008  &, 0.193550e+00_jprb, 0.185722e+00_jprb, 0.178101e+00_jprb &
31009  &, 0.170761e+00_jprb, 0.163609e+00_jprb, 0.156661e+00_jprb, 0.149990e+00_jprb &
31010  &, 0.143499e+00_jprb, 0.137201e+00_jprb, 0.131171e+00_jprb &
31011  &, 0.125304e+00_jprb, 0.119674e+00_jprb, 0.114172e+00_jprb, 0.108934e+00_jprb &
31012  &, 0.103848e+00_jprb, 0.989891e-01_jprb, 0.943055e-01_jprb/)
31013 xcw( 710, :) = (/ &
31014  & 0.105284e+01_jprb, 0.106525e+01_jprb, 0.107733e+01_jprb, 0.108907e+01_jprb &
31015  &, 0.110045e+01_jprb, 0.111147e+01_jprb, 0.112212e+01_jprb &
31016  &, 0.113239e+01_jprb, 0.114227e+01_jprb, 0.115176e+01_jprb, 0.116085e+01_jprb &
31017  &, 0.116953e+01_jprb, 0.117779e+01_jprb, 0.118563e+01_jprb &
31018  &, 0.119303e+01_jprb, 0.120000e+01_jprb, 0.120652e+01_jprb, 0.121260e+01_jprb &
31019  &, 0.121821e+01_jprb, 0.122336e+01_jprb, 0.122805e+01_jprb &
31020  &, 0.123227e+01_jprb, 0.123601e+01_jprb, 0.123926e+01_jprb, 0.124204e+01_jprb &
31021  &, 0.124432e+01_jprb, 0.124612e+01_jprb, 0.124742e+01_jprb &
31022  &, 0.124823e+01_jprb, 0.124855e+01_jprb, 0.124836e+01_jprb, 0.124769e+01_jprb &
31023  &, 0.124651e+01_jprb, 0.124484e+01_jprb, 0.124267e+01_jprb &
31024  &, 0.124001e+01_jprb, 0.123687e+01_jprb, 0.123324e+01_jprb, 0.122913e+01_jprb &
31025  &, 0.122454e+01_jprb, 0.121947e+01_jprb, 0.121393e+01_jprb &
31026  &, 0.120793e+01_jprb, 0.120148e+01_jprb, 0.119458e+01_jprb, 0.118724e+01_jprb &
31027  &, 0.117947e+01_jprb, 0.117126e+01_jprb, 0.116265e+01_jprb &
31028  &, 0.115362e+01_jprb, 0.114420e+01_jprb, 0.113440e+01_jprb, 0.112422e+01_jprb &
31029  &, 0.111367e+01_jprb, 0.110277e+01_jprb, 0.109153e+01_jprb &
31030  &, 0.107995e+01_jprb, 0.106807e+01_jprb, 0.105586e+01_jprb, 0.104337e+01_jprb &
31031  &, 0.103060e+01_jprb, 0.101756e+01_jprb, 0.100427e+01_jprb &
31032  &, 0.990743e+00_jprb, 0.976984e+00_jprb, 0.963000e+00_jprb, 0.948826e+00_jprb &
31033  &, 0.934476e+00_jprb, 0.919944e+00_jprb, 0.905266e+00_jprb &
31034  &, 0.890435e+00_jprb, 0.875486e+00_jprb, 0.860415e+00_jprb, 0.845233e+00_jprb &
31035  &, 0.829978e+00_jprb, 0.814642e+00_jprb, 0.799236e+00_jprb &
31036  &, 0.783800e+00_jprb, 0.768321e+00_jprb, 0.752812e+00_jprb, 0.737311e+00_jprb &
31037  &, 0.721802e+00_jprb, 0.706324e+00_jprb, 0.690859e+00_jprb &
31038  &, 0.675446e+00_jprb, 0.660093e+00_jprb, 0.644779e+00_jprb, 0.629572e+00_jprb &
31039  &, 0.614418e+00_jprb, 0.599383e+00_jprb, 0.584442e+00_jprb &
31040  &, 0.569631e+00_jprb, 0.554954e+00_jprb, 0.540380e+00_jprb, 0.525977e+00_jprb &
31041  &, 0.511713e+00_jprb, 0.497620e+00_jprb, 0.483699e+00_jprb &
31042  &, 0.469946e+00_jprb, 0.456359e+00_jprb, 0.443005e+00_jprb, 0.429805e+00_jprb &
31043  &, 0.416828e+00_jprb, 0.404028e+00_jprb, 0.391474e+00_jprb &
31044  &, 0.379115e+00_jprb, 0.366983e+00_jprb, 0.355063e+00_jprb, 0.343341e+00_jprb &
31045  &, 0.331888e+00_jprb, 0.320688e+00_jprb, 0.309681e+00_jprb &
31046  &, 0.298936e+00_jprb, 0.288389e+00_jprb, 0.278110e+00_jprb, 0.268076e+00_jprb &
31047  &, 0.258265e+00_jprb, 0.248699e+00_jprb, 0.239402e+00_jprb &
31048  &, 0.230296e+00_jprb, 0.221453e+00_jprb, 0.212843e+00_jprb, 0.204486e+00_jprb &
31049  &, 0.196351e+00_jprb, 0.188455e+00_jprb, 0.180765e+00_jprb &
31050  &, 0.173352e+00_jprb, 0.166125e+00_jprb, 0.159155e+00_jprb, 0.152347e+00_jprb &
31051  &, 0.145830e+00_jprb, 0.139446e+00_jprb, 0.133327e+00_jprb &
31052  &, 0.127428e+00_jprb, 0.121704e+00_jprb, 0.116167e+00_jprb, 0.110829e+00_jprb &
31053  &, 0.105704e+00_jprb, 0.100805e+00_jprb, 0.960140e-01_jprb/)
31054 xcw( 711, :) = (/ &
31055  & 0.105314e+01_jprb, 0.106563e+01_jprb, 0.107779e+01_jprb, 0.108961e+01_jprb &
31056  &, 0.110107e+01_jprb, 0.111217e+01_jprb, 0.112291e+01_jprb &
31057  &, 0.113326e+01_jprb, 0.114324e+01_jprb, 0.115281e+01_jprb, 0.116199e+01_jprb &
31058  &, 0.117075e+01_jprb, 0.117910e+01_jprb, 0.118703e+01_jprb &
31059  &, 0.119452e+01_jprb, 0.120158e+01_jprb, 0.120819e+01_jprb, 0.121436e+01_jprb &
31060  &, 0.122006e+01_jprb, 0.122531e+01_jprb, 0.123008e+01_jprb &
31061  &, 0.123439e+01_jprb, 0.123822e+01_jprb, 0.124157e+01_jprb, 0.124443e+01_jprb &
31062  &, 0.124681e+01_jprb, 0.124870e+01_jprb, 0.125009e+01_jprb &
31063  &, 0.125099e+01_jprb, 0.125139e+01_jprb, 0.125130e+01_jprb, 0.125071e+01_jprb &
31064  &, 0.124962e+01_jprb, 0.124804e+01_jprb, 0.124596e+01_jprb &
31065  &, 0.124339e+01_jprb, 0.124032e+01_jprb, 0.123678e+01_jprb, 0.123274e+01_jprb &
31066  &, 0.122824e+01_jprb, 0.122325e+01_jprb, 0.121779e+01_jprb &
31067  &, 0.121187e+01_jprb, 0.120549e+01_jprb, 0.119849e+01_jprb, 0.119140e+01_jprb &
31068  &, 0.118370e+01_jprb, 0.117557e+01_jprb, 0.116702e+01_jprb &
31069  &, 0.115806e+01_jprb, 0.114871e+01_jprb, 0.113896e+01_jprb, 0.112884e+01_jprb &
31070  &, 0.111835e+01_jprb, 0.110751e+01_jprb, 0.109632e+01_jprb &
31071  &, 0.108478e+01_jprb, 0.107295e+01_jprb, 0.106079e+01_jprb, 0.104834e+01_jprb &
31072  &, 0.103561e+01_jprb, 0.102261e+01_jprb, 0.100936e+01_jprb &
31073  &, 0.995860e+00_jprb, 0.982140e+00_jprb, 0.968195e+00_jprb, 0.954037e+00_jprb &
31074  &, 0.939721e+00_jprb, 0.925201e+00_jprb, 0.910531e+00_jprb &
31075  &, 0.895728e+00_jprb, 0.880783e+00_jprb, 0.865712e+00_jprb, 0.850551e+00_jprb &
31076  &, 0.835291e+00_jprb, 0.819946e+00_jprb, 0.804553e+00_jprb &
31077  &, 0.789102e+00_jprb, 0.773630e+00_jprb, 0.758100e+00_jprb, 0.742599e+00_jprb &
31078  &, 0.727062e+00_jprb, 0.711578e+00_jprb, 0.696079e+00_jprb &
31079  &, 0.680653e+00_jprb, 0.665257e+00_jprb, 0.649925e+00_jprb, 0.634666e+00_jprb &
31080  &, 0.619516e+00_jprb, 0.604422e+00_jprb, 0.589449e+00_jprb &
31081  &, 0.574602e+00_jprb, 0.559853e+00_jprb, 0.545269e+00_jprb, 0.530819e+00_jprb &
31082  &, 0.516504e+00_jprb, 0.502357e+00_jprb, 0.488377e+00_jprb &
31083  &, 0.474561e+00_jprb, 0.460907e+00_jprb, 0.447482e+00_jprb, 0.434245e+00_jprb &
31084  &, 0.421189e+00_jprb, 0.408345e+00_jprb, 0.395703e+00_jprb &
31085  &, 0.383294e+00_jprb, 0.371065e+00_jprb, 0.359087e+00_jprb, 0.347346e+00_jprb &
31086  &, 0.335785e+00_jprb, 0.324516e+00_jprb, 0.313437e+00_jprb &
31087  &, 0.302616e+00_jprb, 0.291989e+00_jprb, 0.281672e+00_jprb, 0.271552e+00_jprb &
31088  &, 0.261651e+00_jprb, 0.252039e+00_jprb, 0.242644e+00_jprb &
31089  &, 0.233487e+00_jprb, 0.224539e+00_jprb, 0.215872e+00_jprb, 0.207403e+00_jprb &
31090  &, 0.199204e+00_jprb, 0.191242e+00_jprb, 0.183483e+00_jprb &
31091  &, 0.175999e+00_jprb, 0.168697e+00_jprb, 0.161650e+00_jprb, 0.154761e+00_jprb &
31092  &, 0.148161e+00_jprb, 0.141750e+00_jprb, 0.135543e+00_jprb &
31093  &, 0.129553e+00_jprb, 0.123796e+00_jprb, 0.118162e+00_jprb, 0.112788e+00_jprb &
31094  &, 0.107625e+00_jprb, 0.102621e+00_jprb, 0.977882e-01_jprb/)
31095 xcw( 712, :) = (/ &
31096  & 0.105344e+01_jprb, 0.106602e+01_jprb, 0.107826e+01_jprb, 0.109015e+01_jprb &
31097  &, 0.110170e+01_jprb, 0.111288e+01_jprb, 0.112370e+01_jprb &
31098  &, 0.113414e+01_jprb, 0.114420e+01_jprb, 0.115386e+01_jprb, 0.116312e+01_jprb &
31099  &, 0.117198e+01_jprb, 0.118041e+01_jprb, 0.118843e+01_jprb &
31100  &, 0.119601e+01_jprb, 0.120316e+01_jprb, 0.120986e+01_jprb, 0.121612e+01_jprb &
31101  &, 0.122192e+01_jprb, 0.122725e+01_jprb, 0.123212e+01_jprb &
31102  &, 0.123652e+01_jprb, 0.124044e+01_jprb, 0.124388e+01_jprb, 0.124684e+01_jprb &
31103  &, 0.124930e+01_jprb, 0.125128e+01_jprb, 0.125277e+01_jprb &
31104  &, 0.125376e+01_jprb, 0.125425e+01_jprb, 0.125424e+01_jprb, 0.125374e+01_jprb &
31105  &, 0.125274e+01_jprb, 0.125124e+01_jprb, 0.124925e+01_jprb &
31106  &, 0.124677e+01_jprb, 0.124379e+01_jprb, 0.124033e+01_jprb, 0.123637e+01_jprb &
31107  &, 0.123195e+01_jprb, 0.122704e+01_jprb, 0.122166e+01_jprb &
31108  &, 0.121583e+01_jprb, 0.120952e+01_jprb, 0.120277e+01_jprb, 0.119557e+01_jprb &
31109  &, 0.118795e+01_jprb, 0.117989e+01_jprb, 0.117140e+01_jprb &
31110  &, 0.116252e+01_jprb, 0.115322e+01_jprb, 0.114354e+01_jprb, 0.113348e+01_jprb &
31111  &, 0.112305e+01_jprb, 0.111226e+01_jprb, 0.110112e+01_jprb &
31112  &, 0.108965e+01_jprb, 0.107785e+01_jprb, 0.106574e+01_jprb, 0.105335e+01_jprb &
31113  &, 0.104065e+01_jprb, 0.102770e+01_jprb, 0.101447e+01_jprb &
31114  &, 0.100101e+01_jprb, 0.987315e+00_jprb, 0.973408e+00_jprb, 0.959287e+00_jprb &
31115  &, 0.944965e+00_jprb, 0.930478e+00_jprb, 0.915838e+00_jprb &
31116  &, 0.901042e+00_jprb, 0.886102e+00_jprb, 0.871054e+00_jprb, 0.855891e+00_jprb &
31117  &, 0.840650e+00_jprb, 0.825297e+00_jprb, 0.809894e+00_jprb &
31118  &, 0.794453e+00_jprb, 0.778964e+00_jprb, 0.763438e+00_jprb, 0.747913e+00_jprb &
31119  &, 0.732375e+00_jprb, 0.716833e+00_jprb, 0.701352e+00_jprb &
31120  &, 0.685889e+00_jprb, 0.670478e+00_jprb, 0.655100e+00_jprb, 0.639819e+00_jprb &
31121  &, 0.624615e+00_jprb, 0.609493e+00_jprb, 0.594488e+00_jprb &
31122  &, 0.579605e+00_jprb, 0.564817e+00_jprb, 0.550190e+00_jprb, 0.535661e+00_jprb &
31123  &, 0.521295e+00_jprb, 0.507093e+00_jprb, 0.493089e+00_jprb &
31124  &, 0.479212e+00_jprb, 0.465528e+00_jprb, 0.452033e+00_jprb, 0.438722e+00_jprb &
31125  &, 0.425589e+00_jprb, 0.412700e+00_jprb, 0.399972e+00_jprb &
31126  &, 0.387472e+00_jprb, 0.375230e+00_jprb, 0.363153e+00_jprb, 0.351350e+00_jprb &
31127  &, 0.339724e+00_jprb, 0.328387e+00_jprb, 0.317236e+00_jprb &
31128  &, 0.306340e+00_jprb, 0.295680e+00_jprb, 0.285234e+00_jprb, 0.275028e+00_jprb &
31129  &, 0.265084e+00_jprb, 0.255379e+00_jprb, 0.245886e+00_jprb &
31130  &, 0.236678e+00_jprb, 0.227676e+00_jprb, 0.218900e+00_jprb, 0.210423e+00_jprb &
31131  &, 0.202110e+00_jprb, 0.194083e+00_jprb, 0.186256e+00_jprb &
31132  &, 0.178645e+00_jprb, 0.171269e+00_jprb, 0.164145e+00_jprb, 0.157233e+00_jprb &
31133  &, 0.150551e+00_jprb, 0.144055e+00_jprb, 0.137819e+00_jprb &
31134  &, 0.131738e+00_jprb, 0.125888e+00_jprb, 0.120220e+00_jprb, 0.114810e+00_jprb &
31135  &, 0.109545e+00_jprb, 0.104437e+00_jprb, 0.995624e-01_jprb/)
31136 xcw( 713, :) = (/ &
31137  & 0.105375e+01_jprb, 0.106640e+01_jprb, 0.107872e+01_jprb, 0.109070e+01_jprb &
31138  &, 0.110232e+01_jprb, 0.111359e+01_jprb, 0.112450e+01_jprb &
31139  &, 0.113502e+01_jprb, 0.114516e+01_jprb, 0.115491e+01_jprb, 0.116426e+01_jprb &
31140  &, 0.117320e+01_jprb, 0.118173e+01_jprb, 0.118983e+01_jprb &
31141  &, 0.119751e+01_jprb, 0.120475e+01_jprb, 0.121154e+01_jprb, 0.121789e+01_jprb &
31142  &, 0.122378e+01_jprb, 0.122920e+01_jprb, 0.123416e+01_jprb &
31143  &, 0.123865e+01_jprb, 0.124267e+01_jprb, 0.124620e+01_jprb, 0.124924e+01_jprb &
31144  &, 0.125181e+01_jprb, 0.125387e+01_jprb, 0.125545e+01_jprb &
31145  &, 0.125652e+01_jprb, 0.125711e+01_jprb, 0.125720e+01_jprb, 0.125679e+01_jprb &
31146  &, 0.125587e+01_jprb, 0.125446e+01_jprb, 0.125256e+01_jprb &
31147  &, 0.125016e+01_jprb, 0.124727e+01_jprb, 0.124389e+01_jprb, 0.124002e+01_jprb &
31148  &, 0.123568e+01_jprb, 0.123085e+01_jprb, 0.122555e+01_jprb &
31149  &, 0.121979e+01_jprb, 0.121356e+01_jprb, 0.120689e+01_jprb, 0.119977e+01_jprb &
31150  &, 0.119221e+01_jprb, 0.118422e+01_jprb, 0.117580e+01_jprb &
31151  &, 0.116699e+01_jprb, 0.115776e+01_jprb, 0.114814e+01_jprb, 0.113814e+01_jprb &
31152  &, 0.112776e+01_jprb, 0.111704e+01_jprb, 0.110595e+01_jprb &
31153  &, 0.109453e+01_jprb, 0.108278e+01_jprb, 0.107072e+01_jprb, 0.105836e+01_jprb &
31154  &, 0.104573e+01_jprb, 0.103280e+01_jprb, 0.101962e+01_jprb &
31155  &, 0.100619e+01_jprb, 0.992528e+00_jprb, 0.978640e+00_jprb, 0.964556e+00_jprb &
31156  &, 0.950270e+00_jprb, 0.935795e+00_jprb, 0.921166e+00_jprb &
31157  &, 0.906377e+00_jprb, 0.891463e+00_jprb, 0.876418e+00_jprb, 0.861276e+00_jprb &
31158  &, 0.846031e+00_jprb, 0.830695e+00_jprb, 0.815282e+00_jprb &
31159  &, 0.799828e+00_jprb, 0.784322e+00_jprb, 0.768801e+00_jprb, 0.753253e+00_jprb &
31160  &, 0.737714e+00_jprb, 0.722169e+00_jprb, 0.706654e+00_jprb &
31161  &, 0.691152e+00_jprb, 0.675727e+00_jprb, 0.660332e+00_jprb, 0.645002e+00_jprb &
31162  &, 0.629774e+00_jprb, 0.614624e+00_jprb, 0.599588e+00_jprb &
31163  &, 0.584640e+00_jprb, 0.569814e+00_jprb, 0.555112e+00_jprb, 0.540569e+00_jprb &
31164  &, 0.526153e+00_jprb, 0.511898e+00_jprb, 0.497837e+00_jprb &
31165  &, 0.483899e+00_jprb, 0.470149e+00_jprb, 0.456585e+00_jprb, 0.443237e+00_jprb &
31166  &, 0.430064e+00_jprb, 0.417056e+00_jprb, 0.404321e+00_jprb &
31167  &, 0.391731e+00_jprb, 0.379395e+00_jprb, 0.367302e+00_jprb, 0.355397e+00_jprb &
31168  &, 0.343707e+00_jprb, 0.332259e+00_jprb, 0.321080e+00_jprb &
31169  &, 0.310109e+00_jprb, 0.299370e+00_jprb, 0.288843e+00_jprb, 0.278598e+00_jprb &
31170  &, 0.268565e+00_jprb, 0.258767e+00_jprb, 0.249227e+00_jprb &
31171  &, 0.239919e+00_jprb, 0.230863e+00_jprb, 0.222032e+00_jprb, 0.213392e+00_jprb &
31172  &, 0.205069e+00_jprb, 0.196924e+00_jprb, 0.189028e+00_jprb &
31173  &, 0.181347e+00_jprb, 0.173953e+00_jprb, 0.166753e+00_jprb, 0.159763e+00_jprb &
31174  &, 0.152940e+00_jprb, 0.146418e+00_jprb, 0.140094e+00_jprb &
31175  &, 0.133924e+00_jprb, 0.128041e+00_jprb, 0.122340e+00_jprb, 0.116768e+00_jprb &
31176  &, 0.111466e+00_jprb, 0.106318e+00_jprb, 0.101402e+00_jprb/)
31177 xcw( 714, :) = (/ &
31178  & 0.105405e+01_jprb, 0.106678e+01_jprb, 0.107918e+01_jprb, 0.109124e+01_jprb &
31179  &, 0.110295e+01_jprb, 0.111431e+01_jprb, 0.112529e+01_jprb &
31180  &, 0.113590e+01_jprb, 0.114613e+01_jprb, 0.115597e+01_jprb, 0.116540e+01_jprb &
31181  &, 0.117443e+01_jprb, 0.118305e+01_jprb, 0.119124e+01_jprb &
31182  &, 0.119901e+01_jprb, 0.120634e+01_jprb, 0.121322e+01_jprb, 0.121966e+01_jprb &
31183  &, 0.122564e+01_jprb, 0.123116e+01_jprb, 0.123621e+01_jprb &
31184  &, 0.124079e+01_jprb, 0.124490e+01_jprb, 0.124852e+01_jprb, 0.125166e+01_jprb &
31185  &, 0.125431e+01_jprb, 0.125647e+01_jprb, 0.125814e+01_jprb &
31186  &, 0.125931e+01_jprb, 0.125999e+01_jprb, 0.126016e+01_jprb, 0.125984e+01_jprb &
31187  &, 0.125902e+01_jprb, 0.125769e+01_jprb, 0.125588e+01_jprb &
31188  &, 0.125356e+01_jprb, 0.125076e+01_jprb, 0.124747e+01_jprb, 0.124368e+01_jprb &
31189  &, 0.123942e+01_jprb, 0.123467e+01_jprb, 0.122945e+01_jprb &
31190  &, 0.122377e+01_jprb, 0.121763e+01_jprb, 0.121103e+01_jprb, 0.120398e+01_jprb &
31191  &, 0.119649e+01_jprb, 0.118857e+01_jprb, 0.118023e+01_jprb &
31192  &, 0.117145e+01_jprb, 0.116230e+01_jprb, 0.115276e+01_jprb, 0.114271e+01_jprb &
31193  &, 0.113250e+01_jprb, 0.112183e+01_jprb, 0.111079e+01_jprb &
31194  &, 0.109943e+01_jprb, 0.108773e+01_jprb, 0.107572e+01_jprb, 0.106341e+01_jprb &
31195  &, 0.105080e+01_jprb, 0.103794e+01_jprb, 0.102479e+01_jprb &
31196  &, 0.101139e+01_jprb, 0.997758e+00_jprb, 0.983910e+00_jprb, 0.969844e+00_jprb &
31197  &, 0.955594e+00_jprb, 0.941132e+00_jprb, 0.926535e+00_jprb &
31198  &, 0.911755e+00_jprb, 0.896868e+00_jprb, 0.881825e+00_jprb, 0.866684e+00_jprb &
31199  &, 0.851435e+00_jprb, 0.836093e+00_jprb, 0.820694e+00_jprb &
31200  &, 0.805252e+00_jprb, 0.789730e+00_jprb, 0.774190e+00_jprb, 0.758645e+00_jprb &
31201  &, 0.743079e+00_jprb, 0.727504e+00_jprb, 0.711982e+00_jprb &
31202  &, 0.696471e+00_jprb, 0.681005e+00_jprb, 0.665593e+00_jprb, 0.650244e+00_jprb &
31203  &, 0.634963e+00_jprb, 0.619786e+00_jprb, 0.604689e+00_jprb &
31204  &, 0.589706e+00_jprb, 0.574842e+00_jprb, 0.560131e+00_jprb, 0.545511e+00_jprb &
31205  &, 0.531046e+00_jprb, 0.516773e+00_jprb, 0.502620e+00_jprb &
31206  &, 0.488621e+00_jprb, 0.474843e+00_jprb, 0.461210e+00_jprb, 0.447790e+00_jprb &
31207  &, 0.434540e+00_jprb, 0.421489e+00_jprb, 0.408669e+00_jprb &
31208  &, 0.396070e+00_jprb, 0.383641e+00_jprb, 0.371450e+00_jprb, 0.359486e+00_jprb &
31209  &, 0.347732e+00_jprb, 0.336217e+00_jprb, 0.324968e+00_jprb &
31210  &, 0.313878e+00_jprb, 0.303061e+00_jprb, 0.292498e+00_jprb, 0.282167e+00_jprb &
31211  &, 0.272046e+00_jprb, 0.262203e+00_jprb, 0.252567e+00_jprb &
31212  &, 0.243209e+00_jprb, 0.234051e+00_jprb, 0.225112e+00_jprb, 0.216465e+00_jprb &
31213  &, 0.208027e+00_jprb, 0.199818e+00_jprb, 0.191855e+00_jprb &
31214  &, 0.184103e+00_jprb, 0.176636e+00_jprb, 0.169304e+00_jprb, 0.162292e+00_jprb &
31215  &, 0.155447e+00_jprb, 0.148781e+00_jprb, 0.142370e+00_jprb &
31216  &, 0.136170e+00_jprb, 0.130195e+00_jprb, 0.124397e+00_jprb, 0.118853e+00_jprb &
31217  &, 0.113451e+00_jprb, 0.108264e+00_jprb, 0.103242e+00_jprb/)
31218 
31219 IF (lhook) CALL dr_hook('SU_MCICA:PART102',1,zhook_handle)
31220 END SUBROUTINE part102
31221 
31222 #ifdef VPP5000
31223 !OCL SCALAR
31224 #endif
31225 !option! -Nv -NO
31226 #ifdef RS6K
31227 @process nooptimize
31228 #endif
31229 !pgi$r opt=0
31230 SUBROUTINE part103
31231 
31232 REAL(KIND=JPRB) :: ZHOOK_HANDLE
31233 IF (lhook) CALL dr_hook('SU_MCICA:PART103',0,zhook_handle)
31234 
31235 xcw( 715, :) = (/ &
31236  & 0.105436e+01_jprb, 0.106717e+01_jprb, 0.107965e+01_jprb, 0.109179e+01_jprb &
31237  &, 0.110358e+01_jprb, 0.111502e+01_jprb, 0.112609e+01_jprb &
31238  &, 0.113679e+01_jprb, 0.114710e+01_jprb, 0.115702e+01_jprb, 0.116655e+01_jprb &
31239  &, 0.117567e+01_jprb, 0.118437e+01_jprb, 0.119266e+01_jprb &
31240  &, 0.120051e+01_jprb, 0.120793e+01_jprb, 0.121491e+01_jprb, 0.122144e+01_jprb &
31241  &, 0.122751e+01_jprb, 0.123312e+01_jprb, 0.123826e+01_jprb &
31242  &, 0.124294e+01_jprb, 0.124714e+01_jprb, 0.125085e+01_jprb, 0.125409e+01_jprb &
31243  &, 0.125683e+01_jprb, 0.125908e+01_jprb, 0.126084e+01_jprb &
31244  &, 0.126210e+01_jprb, 0.126286e+01_jprb, 0.126313e+01_jprb, 0.126290e+01_jprb &
31245  &, 0.126217e+01_jprb, 0.126094e+01_jprb, 0.125921e+01_jprb &
31246  &, 0.125698e+01_jprb, 0.125426e+01_jprb, 0.125105e+01_jprb, 0.124735e+01_jprb &
31247  &, 0.124317e+01_jprb, 0.123851e+01_jprb, 0.123337e+01_jprb &
31248  &, 0.122777e+01_jprb, 0.122170e+01_jprb, 0.121517e+01_jprb, 0.120820e+01_jprb &
31249  &, 0.120079e+01_jprb, 0.119294e+01_jprb, 0.118466e+01_jprb &
31250  &, 0.117599e+01_jprb, 0.116688e+01_jprb, 0.115739e+01_jprb, 0.114751e+01_jprb &
31251  &, 0.113726e+01_jprb, 0.112664e+01_jprb, 0.111567e+01_jprb &
31252  &, 0.110436e+01_jprb, 0.109271e+01_jprb, 0.108075e+01_jprb, 0.106849e+01_jprb &
31253  &, 0.105593e+01_jprb, 0.104309e+01_jprb, 0.102999e+01_jprb &
31254  &, 0.101662e+01_jprb, 0.100303e+01_jprb, 0.989199e+00_jprb, 0.975171e+00_jprb &
31255  &, 0.960937e+00_jprb, 0.946510e+00_jprb, 0.931925e+00_jprb &
31256  &, 0.917174e+00_jprb, 0.902272e+00_jprb, 0.887255e+00_jprb, 0.872114e+00_jprb &
31257  &, 0.856886e+00_jprb, 0.841561e+00_jprb, 0.826154e+00_jprb &
31258  &, 0.810700e+00_jprb, 0.795188e+00_jprb, 0.779630e+00_jprb, 0.764062e+00_jprb &
31259  &, 0.748471e+00_jprb, 0.732919e+00_jprb, 0.717338e+00_jprb &
31260  &, 0.701817e+00_jprb, 0.686339e+00_jprb, 0.670884e+00_jprb, 0.655515e+00_jprb &
31261  &, 0.640212e+00_jprb, 0.624979e+00_jprb, 0.609852e+00_jprb &
31262  &, 0.594836e+00_jprb, 0.579935e+00_jprb, 0.565151e+00_jprb, 0.550519e+00_jprb &
31263  &, 0.536007e+00_jprb, 0.521647e+00_jprb, 0.507439e+00_jprb &
31264  &, 0.493415e+00_jprb, 0.479573e+00_jprb, 0.465872e+00_jprb, 0.452380e+00_jprb &
31265  &, 0.439092e+00_jprb, 0.426001e+00_jprb, 0.413096e+00_jprb &
31266  &, 0.400409e+00_jprb, 0.387928e+00_jprb, 0.375682e+00_jprb, 0.363617e+00_jprb &
31267  &, 0.351801e+00_jprb, 0.340219e+00_jprb, 0.328856e+00_jprb &
31268  &, 0.317737e+00_jprb, 0.306843e+00_jprb, 0.296199e+00_jprb, 0.285784e+00_jprb &
31269  &, 0.275622e+00_jprb, 0.265688e+00_jprb, 0.255957e+00_jprb &
31270  &, 0.246500e+00_jprb, 0.237288e+00_jprb, 0.228294e+00_jprb, 0.219538e+00_jprb &
31271  &, 0.211039e+00_jprb, 0.202766e+00_jprb, 0.194736e+00_jprb &
31272  &, 0.186915e+00_jprb, 0.179320e+00_jprb, 0.171969e+00_jprb, 0.164821e+00_jprb &
31273  &, 0.157953e+00_jprb, 0.151204e+00_jprb, 0.144766e+00_jprb &
31274  &, 0.138477e+00_jprb, 0.132409e+00_jprb, 0.126579e+00_jprb, 0.120938e+00_jprb &
31275  &, 0.115435e+00_jprb, 0.110210e+00_jprb, 0.105148e+00_jprb/)
31276 xcw( 716, :) = (/ &
31277  & 0.105466e+01_jprb, 0.106755e+01_jprb, 0.108011e+01_jprb, 0.109234e+01_jprb &
31278  &, 0.110421e+01_jprb, 0.111573e+01_jprb, 0.112689e+01_jprb &
31279  &, 0.113767e+01_jprb, 0.114807e+01_jprb, 0.115808e+01_jprb, 0.116770e+01_jprb &
31280  &, 0.117690e+01_jprb, 0.118570e+01_jprb, 0.119407e+01_jprb &
31281  &, 0.120202e+01_jprb, 0.120953e+01_jprb, 0.121660e+01_jprb, 0.122322e+01_jprb &
31282  &, 0.122938e+01_jprb, 0.123509e+01_jprb, 0.124032e+01_jprb &
31283  &, 0.124509e+01_jprb, 0.124938e+01_jprb, 0.125319e+01_jprb, 0.125652e+01_jprb &
31284  &, 0.125935e+01_jprb, 0.126170e+01_jprb, 0.126355e+01_jprb &
31285  &, 0.126490e+01_jprb, 0.126576e+01_jprb, 0.126612e+01_jprb, 0.126597e+01_jprb &
31286  &, 0.126533e+01_jprb, 0.126419e+01_jprb, 0.126255e+01_jprb &
31287  &, 0.126041e+01_jprb, 0.125777e+01_jprb, 0.125465e+01_jprb, 0.125104e+01_jprb &
31288  &, 0.124694e+01_jprb, 0.124236e+01_jprb, 0.123731e+01_jprb &
31289  &, 0.123178e+01_jprb, 0.122579e+01_jprb, 0.121934e+01_jprb, 0.121244e+01_jprb &
31290  &, 0.120510e+01_jprb, 0.119733e+01_jprb, 0.118913e+01_jprb &
31291  &, 0.118051e+01_jprb, 0.117148e+01_jprb, 0.116205e+01_jprb, 0.115224e+01_jprb &
31292  &, 0.114204e+01_jprb, 0.113149e+01_jprb, 0.112057e+01_jprb &
31293  &, 0.110930e+01_jprb, 0.109772e+01_jprb, 0.108581e+01_jprb, 0.107358e+01_jprb &
31294  &, 0.106107e+01_jprb, 0.104827e+01_jprb, 0.103520e+01_jprb &
31295  &, 0.102188e+01_jprb, 0.100831e+01_jprb, 0.994526e+00_jprb, 0.980518e+00_jprb &
31296  &, 0.966321e+00_jprb, 0.951909e+00_jprb, 0.937335e+00_jprb &
31297  &, 0.922615e+00_jprb, 0.907742e+00_jprb, 0.892729e+00_jprb, 0.877589e+00_jprb &
31298  &, 0.862359e+00_jprb, 0.847030e+00_jprb, 0.831638e+00_jprb &
31299  &, 0.816172e+00_jprb, 0.800645e+00_jprb, 0.785094e+00_jprb, 0.769531e+00_jprb &
31300  &, 0.753915e+00_jprb, 0.738335e+00_jprb, 0.722749e+00_jprb &
31301  &, 0.707192e+00_jprb, 0.691702e+00_jprb, 0.676232e+00_jprb, 0.660816e+00_jprb &
31302  &, 0.645490e+00_jprb, 0.630232e+00_jprb, 0.615046e+00_jprb &
31303  &, 0.599998e+00_jprb, 0.585060e+00_jprb, 0.570237e+00_jprb, 0.555528e+00_jprb &
31304  &, 0.540968e+00_jprb, 0.526556e+00_jprb, 0.512327e+00_jprb &
31305  &, 0.498244e+00_jprb, 0.484303e+00_jprb, 0.470571e+00_jprb, 0.457046e+00_jprb &
31306  &, 0.443683e+00_jprb, 0.430512e+00_jprb, 0.417563e+00_jprb &
31307  &, 0.404788e+00_jprb, 0.392256e+00_jprb, 0.379914e+00_jprb, 0.367790e+00_jprb &
31308  &, 0.355911e+00_jprb, 0.344265e+00_jprb, 0.332832e+00_jprb &
31309  &, 0.321641e+00_jprb, 0.310671e+00_jprb, 0.299947e+00_jprb, 0.289448e+00_jprb &
31310  &, 0.279198e+00_jprb, 0.269173e+00_jprb, 0.259396e+00_jprb &
31311  &, 0.249890e+00_jprb, 0.240577e+00_jprb, 0.231529e+00_jprb, 0.222715e+00_jprb &
31312  &, 0.214104e+00_jprb, 0.205767e+00_jprb, 0.197617e+00_jprb &
31313  &, 0.189727e+00_jprb, 0.182060e+00_jprb, 0.174633e+00_jprb, 0.167466e+00_jprb &
31314  &, 0.160459e+00_jprb, 0.153685e+00_jprb, 0.147162e+00_jprb &
31315  &, 0.140783e+00_jprb, 0.134686e+00_jprb, 0.128762e+00_jprb, 0.123023e+00_jprb &
31316  &, 0.117484e+00_jprb, 0.112156e+00_jprb, 0.107053e+00_jprb/)
31317 xcw( 717, :) = (/ &
31318  & 0.105497e+01_jprb, 0.106794e+01_jprb, 0.108058e+01_jprb, 0.109289e+01_jprb &
31319  &, 0.110484e+01_jprb, 0.111645e+01_jprb, 0.112769e+01_jprb &
31320  &, 0.113856e+01_jprb, 0.114905e+01_jprb, 0.115915e+01_jprb, 0.116885e+01_jprb &
31321  &, 0.117814e+01_jprb, 0.118703e+01_jprb, 0.119549e+01_jprb &
31322  &, 0.120353e+01_jprb, 0.121113e+01_jprb, 0.121829e+01_jprb, 0.122500e+01_jprb &
31323  &, 0.123126e+01_jprb, 0.123706e+01_jprb, 0.124239e+01_jprb &
31324  &, 0.124725e+01_jprb, 0.125163e+01_jprb, 0.125553e+01_jprb, 0.125895e+01_jprb &
31325  &, 0.126188e+01_jprb, 0.126432e+01_jprb, 0.126627e+01_jprb &
31326  &, 0.126771e+01_jprb, 0.126866e+01_jprb, 0.126911e+01_jprb, 0.126906e+01_jprb &
31327  &, 0.126850e+01_jprb, 0.126745e+01_jprb, 0.126590e+01_jprb &
31328  &, 0.126385e+01_jprb, 0.126130e+01_jprb, 0.125826e+01_jprb, 0.125474e+01_jprb &
31329  &, 0.125073e+01_jprb, 0.124622e+01_jprb, 0.124125e+01_jprb &
31330  &, 0.123581e+01_jprb, 0.122990e+01_jprb, 0.122353e+01_jprb, 0.121670e+01_jprb &
31331  &, 0.120944e+01_jprb, 0.120174e+01_jprb, 0.119361e+01_jprb &
31332  &, 0.118505e+01_jprb, 0.117609e+01_jprb, 0.116673e+01_jprb, 0.115698e+01_jprb &
31333  &, 0.114685e+01_jprb, 0.113634e+01_jprb, 0.112548e+01_jprb &
31334  &, 0.111427e+01_jprb, 0.110275e+01_jprb, 0.109087e+01_jprb, 0.107871e+01_jprb &
31335  &, 0.106623e+01_jprb, 0.105347e+01_jprb, 0.104046e+01_jprb &
31336  &, 0.102716e+01_jprb, 0.101364e+01_jprb, 0.999872e+00_jprb, 0.985903e+00_jprb &
31337  &, 0.971724e+00_jprb, 0.957347e+00_jprb, 0.942787e+00_jprb &
31338  &, 0.928077e+00_jprb, 0.913232e+00_jprb, 0.898224e+00_jprb, 0.883109e+00_jprb &
31339  &, 0.867878e+00_jprb, 0.852568e+00_jprb, 0.837169e+00_jprb &
31340  &, 0.821693e+00_jprb, 0.806177e+00_jprb, 0.790609e+00_jprb, 0.775026e+00_jprb &
31341  &, 0.759412e+00_jprb, 0.743804e+00_jprb, 0.728214e+00_jprb &
31342  &, 0.712622e+00_jprb, 0.697093e+00_jprb, 0.681609e+00_jprb, 0.666146e+00_jprb &
31343  &, 0.650799e+00_jprb, 0.635517e+00_jprb, 0.620302e+00_jprb &
31344  &, 0.605191e+00_jprb, 0.590218e+00_jprb, 0.575355e+00_jprb, 0.560603e+00_jprb &
31345  &, 0.545996e+00_jprb, 0.531534e+00_jprb, 0.517251e+00_jprb &
31346  &, 0.503110e+00_jprb, 0.489142e+00_jprb, 0.475345e+00_jprb, 0.461712e+00_jprb &
31347  &, 0.448312e+00_jprb, 0.435062e+00_jprb, 0.422030e+00_jprb &
31348  &, 0.409208e+00_jprb, 0.396625e+00_jprb, 0.384229e+00_jprb, 0.372047e+00_jprb &
31349  &, 0.360065e+00_jprb, 0.348354e+00_jprb, 0.336853e+00_jprb &
31350  &, 0.325589e+00_jprb, 0.314544e+00_jprb, 0.303741e+00_jprb, 0.293159e+00_jprb &
31351  &, 0.282822e+00_jprb, 0.272755e+00_jprb, 0.262884e+00_jprb &
31352  &, 0.253280e+00_jprb, 0.243916e+00_jprb, 0.234763e+00_jprb, 0.225892e+00_jprb &
31353  &, 0.217221e+00_jprb, 0.208768e+00_jprb, 0.200553e+00_jprb &
31354  &, 0.192594e+00_jprb, 0.184856e+00_jprb, 0.177355e+00_jprb, 0.170110e+00_jprb &
31355  &, 0.163023e+00_jprb, 0.156167e+00_jprb, 0.149557e+00_jprb &
31356  &, 0.143151e+00_jprb, 0.136962e+00_jprb, 0.130944e+00_jprb, 0.125171e+00_jprb &
31357  &, 0.119596e+00_jprb, 0.114167e+00_jprb, 0.108959e+00_jprb/)
31358 xcw( 718, :) = (/ &
31359  & 0.105528e+01_jprb, 0.106832e+01_jprb, 0.108105e+01_jprb, 0.109343e+01_jprb &
31360  &, 0.110548e+01_jprb, 0.111717e+01_jprb, 0.112849e+01_jprb &
31361  &, 0.113945e+01_jprb, 0.115002e+01_jprb, 0.116021e+01_jprb, 0.117000e+01_jprb &
31362  &, 0.117939e+01_jprb, 0.118836e+01_jprb, 0.119692e+01_jprb &
31363  &, 0.120504e+01_jprb, 0.121274e+01_jprb, 0.121999e+01_jprb, 0.122679e+01_jprb &
31364  &, 0.123314e+01_jprb, 0.123903e+01_jprb, 0.124446e+01_jprb &
31365  &, 0.124941e+01_jprb, 0.125389e+01_jprb, 0.125789e+01_jprb, 0.126140e+01_jprb &
31366  &, 0.126442e+01_jprb, 0.126695e+01_jprb, 0.126899e+01_jprb &
31367  &, 0.127053e+01_jprb, 0.127157e+01_jprb, 0.127211e+01_jprb, 0.127215e+01_jprb &
31368  &, 0.127169e+01_jprb, 0.127073e+01_jprb, 0.126927e+01_jprb &
31369  &, 0.126730e+01_jprb, 0.126484e+01_jprb, 0.126189e+01_jprb, 0.125845e+01_jprb &
31370  &, 0.125452e+01_jprb, 0.125010e+01_jprb, 0.124521e+01_jprb &
31371  &, 0.123985e+01_jprb, 0.123402e+01_jprb, 0.122773e+01_jprb, 0.122098e+01_jprb &
31372  &, 0.121379e+01_jprb, 0.120616e+01_jprb, 0.119811e+01_jprb &
31373  &, 0.118962e+01_jprb, 0.118073e+01_jprb, 0.117143e+01_jprb, 0.116174e+01_jprb &
31374  &, 0.115166e+01_jprb, 0.114122e+01_jprb, 0.113043e+01_jprb &
31375  &, 0.111928e+01_jprb, 0.110779e+01_jprb, 0.109598e+01_jprb, 0.108385e+01_jprb &
31376  &, 0.107143e+01_jprb, 0.105872e+01_jprb, 0.104573e+01_jprb &
31377  &, 0.103248e+01_jprb, 0.101900e+01_jprb, 0.100526e+01_jprb, 0.991308e+00_jprb &
31378  &, 0.977166e+00_jprb, 0.962806e+00_jprb, 0.948280e+00_jprb &
31379  &, 0.933581e+00_jprb, 0.918744e+00_jprb, 0.903764e+00_jprb, 0.888651e+00_jprb &
31380  &, 0.873420e+00_jprb, 0.858106e+00_jprb, 0.842724e+00_jprb &
31381  &, 0.827239e+00_jprb, 0.811710e+00_jprb, 0.796150e+00_jprb, 0.780546e+00_jprb &
31382  &, 0.764935e+00_jprb, 0.749300e+00_jprb, 0.733706e+00_jprb &
31383  &, 0.718108e+00_jprb, 0.702541e+00_jprb, 0.687014e+00_jprb, 0.671534e+00_jprb &
31384  &, 0.656138e+00_jprb, 0.640831e+00_jprb, 0.625589e+00_jprb &
31385  &, 0.610447e+00_jprb, 0.595408e+00_jprb, 0.580506e+00_jprb, 0.565712e+00_jprb &
31386  &, 0.551059e+00_jprb, 0.536547e+00_jprb, 0.522210e+00_jprb &
31387  &, 0.508011e+00_jprb, 0.493982e+00_jprb, 0.480118e+00_jprb, 0.466452e+00_jprb &
31388  &, 0.452979e+00_jprb, 0.439689e+00_jprb, 0.426576e+00_jprb &
31389  &, 0.413707e+00_jprb, 0.401034e+00_jprb, 0.388543e+00_jprb, 0.376304e+00_jprb &
31390  &, 0.364262e+00_jprb, 0.352486e+00_jprb, 0.340918e+00_jprb &
31391  &, 0.329538e+00_jprb, 0.318462e+00_jprb, 0.307581e+00_jprb, 0.296916e+00_jprb &
31392  &, 0.286541e+00_jprb, 0.276337e+00_jprb, 0.266421e+00_jprb &
31393  &, 0.256720e+00_jprb, 0.247255e+00_jprb, 0.238048e+00_jprb, 0.229069e+00_jprb &
31394  &, 0.220338e+00_jprb, 0.211823e+00_jprb, 0.203543e+00_jprb &
31395  &, 0.195516e+00_jprb, 0.187707e+00_jprb, 0.180133e+00_jprb, 0.172754e+00_jprb &
31396  &, 0.165646e+00_jprb, 0.158707e+00_jprb, 0.152013e+00_jprb &
31397  &, 0.145518e+00_jprb, 0.139300e+00_jprb, 0.133188e+00_jprb, 0.127383e+00_jprb &
31398  &, 0.121709e+00_jprb, 0.116242e+00_jprb, 0.110930e+00_jprb/)
31399 xcw( 719, :) = (/ &
31400  & 0.105558e+01_jprb, 0.106871e+01_jprb, 0.108152e+01_jprb, 0.109399e+01_jprb &
31401  &, 0.110611e+01_jprb, 0.111789e+01_jprb, 0.112930e+01_jprb &
31402  &, 0.114034e+01_jprb, 0.115100e+01_jprb, 0.116128e+01_jprb, 0.117116e+01_jprb &
31403  &, 0.118063e+01_jprb, 0.118970e+01_jprb, 0.119834e+01_jprb &
31404  &, 0.120656e+01_jprb, 0.121435e+01_jprb, 0.122169e+01_jprb, 0.122859e+01_jprb &
31405  &, 0.123503e+01_jprb, 0.124102e+01_jprb, 0.124654e+01_jprb &
31406  &, 0.125158e+01_jprb, 0.125615e+01_jprb, 0.126024e+01_jprb, 0.126385e+01_jprb &
31407  &, 0.126697e+01_jprb, 0.126959e+01_jprb, 0.127172e+01_jprb &
31408  &, 0.127336e+01_jprb, 0.127449e+01_jprb, 0.127512e+01_jprb, 0.127525e+01_jprb &
31409  &, 0.127488e+01_jprb, 0.127401e+01_jprb, 0.127264e+01_jprb &
31410  &, 0.127076e+01_jprb, 0.126840e+01_jprb, 0.126553e+01_jprb, 0.126218e+01_jprb &
31411  &, 0.125833e+01_jprb, 0.125400e+01_jprb, 0.124919e+01_jprb &
31412  &, 0.124391e+01_jprb, 0.123816e+01_jprb, 0.123195e+01_jprb, 0.122527e+01_jprb &
31413  &, 0.121817e+01_jprb, 0.121060e+01_jprb, 0.120262e+01_jprb &
31414  &, 0.119421e+01_jprb, 0.118537e+01_jprb, 0.117615e+01_jprb, 0.116652e+01_jprb &
31415  &, 0.115652e+01_jprb, 0.114614e+01_jprb, 0.113540e+01_jprb &
31416  &, 0.112430e+01_jprb, 0.111286e+01_jprb, 0.110109e+01_jprb, 0.108903e+01_jprb &
31417  &, 0.107664e+01_jprb, 0.106398e+01_jprb, 0.105104e+01_jprb &
31418  &, 0.103783e+01_jprb, 0.102438e+01_jprb, 0.101068e+01_jprb, 0.996751e+00_jprb &
31419  &, 0.982629e+00_jprb, 0.968305e+00_jprb, 0.953793e+00_jprb &
31420  &, 0.939127e+00_jprb, 0.924300e+00_jprb, 0.909325e+00_jprb, 0.894215e+00_jprb &
31421  &, 0.879007e+00_jprb, 0.863691e+00_jprb, 0.848303e+00_jprb &
31422  &, 0.832833e+00_jprb, 0.817316e+00_jprb, 0.801716e+00_jprb, 0.786118e+00_jprb &
31423  &, 0.770484e+00_jprb, 0.754850e+00_jprb, 0.739226e+00_jprb &
31424  &, 0.723594e+00_jprb, 0.708018e+00_jprb, 0.692478e+00_jprb, 0.676982e+00_jprb &
31425  &, 0.661537e+00_jprb, 0.646177e+00_jprb, 0.630908e+00_jprb &
31426  &, 0.615735e+00_jprb, 0.600662e+00_jprb, 0.585723e+00_jprb, 0.570888e+00_jprb &
31427  &, 0.556190e+00_jprb, 0.541629e+00_jprb, 0.527204e+00_jprb &
31428  &, 0.512948e+00_jprb, 0.498894e+00_jprb, 0.484965e+00_jprb, 0.471231e+00_jprb &
31429  &, 0.457684e+00_jprb, 0.444317e+00_jprb, 0.431161e+00_jprb &
31430  &, 0.418207e+00_jprb, 0.405484e+00_jprb, 0.392941e+00_jprb, 0.380562e+00_jprb &
31431  &, 0.368544e+00_jprb, 0.356662e+00_jprb, 0.345027e+00_jprb &
31432  &, 0.333576e+00_jprb, 0.322381e+00_jprb, 0.311467e+00_jprb, 0.300721e+00_jprb &
31433  &, 0.290261e+00_jprb, 0.280015e+00_jprb, 0.270007e+00_jprb &
31434  &, 0.260210e+00_jprb, 0.250695e+00_jprb, 0.241385e+00_jprb, 0.232350e+00_jprb &
31435  &, 0.223509e+00_jprb, 0.214932e+00_jprb, 0.206587e+00_jprb &
31436  &, 0.198493e+00_jprb, 0.190614e+00_jprb, 0.182911e+00_jprb, 0.175514e+00_jprb &
31437  &, 0.168268e+00_jprb, 0.161307e+00_jprb, 0.154528e+00_jprb &
31438  &, 0.147946e+00_jprb, 0.141638e+00_jprb, 0.135495e+00_jprb, 0.129594e+00_jprb &
31439  &, 0.123822e+00_jprb, 0.118318e+00_jprb, 0.112967e+00_jprb/)
31440 xcw( 720, :) = (/ &
31441  & 0.105589e+01_jprb, 0.106910e+01_jprb, 0.108199e+01_jprb, 0.109454e+01_jprb &
31442  &, 0.110675e+01_jprb, 0.111861e+01_jprb, 0.113010e+01_jprb &
31443  &, 0.114123e+01_jprb, 0.115198e+01_jprb, 0.116235e+01_jprb, 0.117231e+01_jprb &
31444  &, 0.118188e+01_jprb, 0.119103e+01_jprb, 0.119977e+01_jprb &
31445  &, 0.120808e+01_jprb, 0.121596e+01_jprb, 0.122340e+01_jprb, 0.123039e+01_jprb &
31446  &, 0.123693e+01_jprb, 0.124301e+01_jprb, 0.124862e+01_jprb &
31447  &, 0.125376e+01_jprb, 0.125843e+01_jprb, 0.126261e+01_jprb, 0.126631e+01_jprb &
31448  &, 0.126952e+01_jprb, 0.127224e+01_jprb, 0.127447e+01_jprb &
31449  &, 0.127619e+01_jprb, 0.127742e+01_jprb, 0.127814e+01_jprb, 0.127837e+01_jprb &
31450  &, 0.127809e+01_jprb, 0.127731e+01_jprb, 0.127602e+01_jprb &
31451  &, 0.127424e+01_jprb, 0.127196e+01_jprb, 0.126918e+01_jprb, 0.126592e+01_jprb &
31452  &, 0.126216e+01_jprb, 0.125791e+01_jprb, 0.125319e+01_jprb &
31453  &, 0.124799e+01_jprb, 0.124232e+01_jprb, 0.123617e+01_jprb, 0.122959e+01_jprb &
31454  &, 0.122255e+01_jprb, 0.121507e+01_jprb, 0.120715e+01_jprb &
31455  &, 0.119881e+01_jprb, 0.119006e+01_jprb, 0.118089e+01_jprb, 0.117133e+01_jprb &
31456  &, 0.116139e+01_jprb, 0.115106e+01_jprb, 0.114038e+01_jprb &
31457  &, 0.112934e+01_jprb, 0.111795e+01_jprb, 0.110625e+01_jprb, 0.109423e+01_jprb &
31458  &, 0.108189e+01_jprb, 0.106927e+01_jprb, 0.105636e+01_jprb &
31459  &, 0.104321e+01_jprb, 0.102977e+01_jprb, 0.101612e+01_jprb, 0.100223e+01_jprb &
31460  &, 0.988131e+00_jprb, 0.973825e+00_jprb, 0.959348e+00_jprb &
31461  &, 0.944694e+00_jprb, 0.929877e+00_jprb, 0.914930e+00_jprb, 0.899825e+00_jprb &
31462  &, 0.884641e+00_jprb, 0.869323e+00_jprb, 0.853930e+00_jprb &
31463  &, 0.838451e+00_jprb, 0.822923e+00_jprb, 0.807357e+00_jprb, 0.791716e+00_jprb &
31464  &, 0.776086e+00_jprb, 0.760427e+00_jprb, 0.744773e+00_jprb &
31465  &, 0.729135e+00_jprb, 0.713551e+00_jprb, 0.697971e+00_jprb, 0.682430e+00_jprb &
31466  &, 0.666995e+00_jprb, 0.651583e+00_jprb, 0.636288e+00_jprb &
31467  &, 0.621055e+00_jprb, 0.605948e+00_jprb, 0.590972e+00_jprb, 0.576063e+00_jprb &
31468  &, 0.561320e+00_jprb, 0.546711e+00_jprb, 0.532268e+00_jprb &
31469  &, 0.517956e+00_jprb, 0.503806e+00_jprb, 0.489850e+00_jprb, 0.476047e+00_jprb &
31470  &, 0.462466e+00_jprb, 0.449023e+00_jprb, 0.435826e+00_jprb &
31471  &, 0.422787e+00_jprb, 0.409976e+00_jprb, 0.397380e+00_jprb, 0.384988e+00_jprb &
31472  &, 0.372827e+00_jprb, 0.360882e+00_jprb, 0.349136e+00_jprb &
31473  &, 0.337660e+00_jprb, 0.326390e+00_jprb, 0.315353e+00_jprb, 0.304573e+00_jprb &
31474  &, 0.294028e+00_jprb, 0.283694e+00_jprb, 0.273593e+00_jprb &
31475  &, 0.263750e+00_jprb, 0.254136e+00_jprb, 0.244773e+00_jprb, 0.235631e+00_jprb &
31476  &, 0.226732e+00_jprb, 0.218094e+00_jprb, 0.209686e+00_jprb &
31477  &, 0.201471e+00_jprb, 0.193522e+00_jprb, 0.185746e+00_jprb, 0.178273e+00_jprb &
31478  &, 0.170949e+00_jprb, 0.163907e+00_jprb, 0.157044e+00_jprb &
31479  &, 0.150435e+00_jprb, 0.144037e+00_jprb, 0.137802e+00_jprb, 0.131805e+00_jprb &
31480  &, 0.125998e+00_jprb, 0.120393e+00_jprb, 0.115004e+00_jprb/)
31481 xcw( 721, :) = (/ &
31482  & 0.105620e+01_jprb, 0.106949e+01_jprb, 0.108246e+01_jprb, 0.109509e+01_jprb &
31483  &, 0.110739e+01_jprb, 0.111933e+01_jprb, 0.113091e+01_jprb &
31484  &, 0.114213e+01_jprb, 0.115296e+01_jprb, 0.116342e+01_jprb, 0.117347e+01_jprb &
31485  &, 0.118313e+01_jprb, 0.119238e+01_jprb, 0.120121e+01_jprb &
31486  &, 0.120961e+01_jprb, 0.121758e+01_jprb, 0.122511e+01_jprb, 0.123220e+01_jprb &
31487  &, 0.123883e+01_jprb, 0.124500e+01_jprb, 0.125071e+01_jprb &
31488  &, 0.125594e+01_jprb, 0.126070e+01_jprb, 0.126498e+01_jprb, 0.126878e+01_jprb &
31489  &, 0.127209e+01_jprb, 0.127490e+01_jprb, 0.127722e+01_jprb &
31490  &, 0.127904e+01_jprb, 0.128036e+01_jprb, 0.128118e+01_jprb, 0.128149e+01_jprb &
31491  &, 0.128130e+01_jprb, 0.128062e+01_jprb, 0.127943e+01_jprb &
31492  &, 0.127773e+01_jprb, 0.127554e+01_jprb, 0.127285e+01_jprb, 0.126967e+01_jprb &
31493  &, 0.126599e+01_jprb, 0.126183e+01_jprb, 0.125719e+01_jprb &
31494  &, 0.125207e+01_jprb, 0.124648e+01_jprb, 0.124043e+01_jprb, 0.123392e+01_jprb &
31495  &, 0.122695e+01_jprb, 0.121955e+01_jprb, 0.121170e+01_jprb &
31496  &, 0.120343e+01_jprb, 0.119475e+01_jprb, 0.118566e+01_jprb, 0.117616e+01_jprb &
31497  &, 0.116627e+01_jprb, 0.115602e+01_jprb, 0.114539e+01_jprb &
31498  &, 0.113441e+01_jprb, 0.112308e+01_jprb, 0.111143e+01_jprb, 0.109946e+01_jprb &
31499  &, 0.108717e+01_jprb, 0.107458e+01_jprb, 0.106172e+01_jprb &
31500  &, 0.104859e+01_jprb, 0.103521e+01_jprb, 0.102158e+01_jprb, 0.100773e+01_jprb &
31501  &, 0.993653e+00_jprb, 0.979385e+00_jprb, 0.964924e+00_jprb &
31502  &, 0.950283e+00_jprb, 0.935497e+00_jprb, 0.920558e+00_jprb, 0.905479e+00_jprb &
31503  &, 0.890274e+00_jprb, 0.874978e+00_jprb, 0.859604e+00_jprb &
31504  &, 0.844118e+00_jprb, 0.828579e+00_jprb, 0.812999e+00_jprb, 0.797366e+00_jprb &
31505  &, 0.781715e+00_jprb, 0.766057e+00_jprb, 0.750375e+00_jprb &
31506  &, 0.734733e+00_jprb, 0.719112e+00_jprb, 0.703492e+00_jprb, 0.687966e+00_jprb &
31507  &, 0.672454e+00_jprb, 0.657050e+00_jprb, 0.641700e+00_jprb &
31508  &, 0.626438e+00_jprb, 0.611299e+00_jprb, 0.596255e+00_jprb, 0.581339e+00_jprb &
31509  &, 0.566519e+00_jprb, 0.551862e+00_jprb, 0.537368e+00_jprb &
31510  &, 0.523000e+00_jprb, 0.508790e+00_jprb, 0.494771e+00_jprb, 0.480938e+00_jprb &
31511  &, 0.467247e+00_jprb, 0.453767e+00_jprb, 0.440490e+00_jprb &
31512  &, 0.427408e+00_jprb, 0.414508e+00_jprb, 0.401861e+00_jprb, 0.389414e+00_jprb &
31513  &, 0.377152e+00_jprb, 0.365144e+00_jprb, 0.353333e+00_jprb &
31514  &, 0.341788e+00_jprb, 0.330446e+00_jprb, 0.319332e+00_jprb, 0.308471e+00_jprb &
31515  &, 0.297842e+00_jprb, 0.287421e+00_jprb, 0.277278e+00_jprb &
31516  &, 0.267339e+00_jprb, 0.257677e+00_jprb, 0.248212e+00_jprb, 0.239017e+00_jprb &
31517  &, 0.230007e+00_jprb, 0.221256e+00_jprb, 0.212784e+00_jprb &
31518  &, 0.204503e+00_jprb, 0.196485e+00_jprb, 0.188637e+00_jprb, 0.181032e+00_jprb &
31519  &, 0.173689e+00_jprb, 0.166565e+00_jprb, 0.159619e+00_jprb &
31520  &, 0.152924e+00_jprb, 0.146437e+00_jprb, 0.140172e+00_jprb, 0.134080e+00_jprb &
31521  &, 0.128239e+00_jprb, 0.122599e+00_jprb, 0.117107e+00_jprb/)
31522 
31523 IF (lhook) CALL dr_hook('SU_MCICA:PART103',1,zhook_handle)
31524 END SUBROUTINE part103
31525 
31526 #ifdef VPP5000
31527 !OCL SCALAR
31528 #endif
31529 !option! -Nv -NO
31530 #ifdef RS6K
31531 @process nooptimize
31532 #endif
31533 !pgi$r opt=0
31534 SUBROUTINE part104
31535 
31536 REAL(KIND=JPRB) :: ZHOOK_HANDLE
31537 IF (lhook) CALL dr_hook('SU_MCICA:PART104',0,zhook_handle)
31538 
31539 xcw( 722, :) = (/ &
31540  & 0.105651e+01_jprb, 0.106988e+01_jprb, 0.108293e+01_jprb, 0.109565e+01_jprb &
31541  &, 0.110802e+01_jprb, 0.112005e+01_jprb, 0.113172e+01_jprb &
31542  &, 0.114302e+01_jprb, 0.115395e+01_jprb, 0.116449e+01_jprb, 0.117464e+01_jprb &
31543  &, 0.118439e+01_jprb, 0.119372e+01_jprb, 0.120264e+01_jprb &
31544  &, 0.121114e+01_jprb, 0.121920e+01_jprb, 0.122683e+01_jprb, 0.123401e+01_jprb &
31545  &, 0.124073e+01_jprb, 0.124700e+01_jprb, 0.125280e+01_jprb &
31546  &, 0.125813e+01_jprb, 0.126299e+01_jprb, 0.126736e+01_jprb, 0.127125e+01_jprb &
31547  &, 0.127465e+01_jprb, 0.127756e+01_jprb, 0.127998e+01_jprb &
31548  &, 0.128189e+01_jprb, 0.128331e+01_jprb, 0.128422e+01_jprb, 0.128463e+01_jprb &
31549  &, 0.128453e+01_jprb, 0.128393e+01_jprb, 0.128284e+01_jprb &
31550  &, 0.128124e+01_jprb, 0.127912e+01_jprb, 0.127653e+01_jprb, 0.127344e+01_jprb &
31551  &, 0.126984e+01_jprb, 0.126577e+01_jprb, 0.126121e+01_jprb &
31552  &, 0.125618e+01_jprb, 0.125067e+01_jprb, 0.124470e+01_jprb, 0.123826e+01_jprb &
31553  &, 0.123137e+01_jprb, 0.122405e+01_jprb, 0.121628e+01_jprb &
31554  &, 0.120803e+01_jprb, 0.119946e+01_jprb, 0.119044e+01_jprb, 0.118100e+01_jprb &
31555  &, 0.117119e+01_jprb, 0.116099e+01_jprb, 0.115042e+01_jprb &
31556  &, 0.113950e+01_jprb, 0.112823e+01_jprb, 0.111662e+01_jprb, 0.110470e+01_jprb &
31557  &, 0.109246e+01_jprb, 0.107993e+01_jprb, 0.106712e+01_jprb &
31558  &, 0.105402e+01_jprb, 0.104068e+01_jprb, 0.102708e+01_jprb, 0.101326e+01_jprb &
31559  &, 0.999214e+00_jprb, 0.984965e+00_jprb, 0.970540e+00_jprb &
31560  &, 0.955913e+00_jprb, 0.941138e+00_jprb, 0.926207e+00_jprb, 0.911156e+00_jprb &
31561  &, 0.895976e+00_jprb, 0.880680e+00_jprb, 0.865302e+00_jprb &
31562  &, 0.849833e+00_jprb, 0.834284e+00_jprb, 0.818692e+00_jprb, 0.803067e+00_jprb &
31563  &, 0.787396e+00_jprb, 0.771714e+00_jprb, 0.756031e+00_jprb &
31564  &, 0.740358e+00_jprb, 0.724702e+00_jprb, 0.709071e+00_jprb, 0.693503e+00_jprb &
31565  &, 0.677973e+00_jprb, 0.662518e+00_jprb, 0.647143e+00_jprb &
31566  &, 0.631853e+00_jprb, 0.616682e+00_jprb, 0.601570e+00_jprb, 0.586615e+00_jprb &
31567  &, 0.571785e+00_jprb, 0.557082e+00_jprb, 0.542503e+00_jprb &
31568  &, 0.528080e+00_jprb, 0.513848e+00_jprb, 0.499766e+00_jprb, 0.485829e+00_jprb &
31569  &, 0.472106e+00_jprb, 0.458590e+00_jprb, 0.445234e+00_jprb &
31570  &, 0.432068e+00_jprb, 0.419121e+00_jprb, 0.406383e+00_jprb, 0.393840e+00_jprb &
31571  &, 0.381520e+00_jprb, 0.369451e+00_jprb, 0.357574e+00_jprb &
31572  &, 0.345871e+00_jprb, 0.334547e+00_jprb, 0.323357e+00_jprb, 0.312417e+00_jprb &
31573  &, 0.301705e+00_jprb, 0.291196e+00_jprb, 0.280962e+00_jprb &
31574  &, 0.270979e+00_jprb, 0.261219e+00_jprb, 0.251652e+00_jprb, 0.242402e+00_jprb &
31575  &, 0.233336e+00_jprb, 0.224526e+00_jprb, 0.215937e+00_jprb &
31576  &, 0.207591e+00_jprb, 0.199449e+00_jprb, 0.191586e+00_jprb, 0.183907e+00_jprb &
31577  &, 0.176486e+00_jprb, 0.169283e+00_jprb, 0.162254e+00_jprb &
31578  &, 0.155474e+00_jprb, 0.148898e+00_jprb, 0.142541e+00_jprb, 0.136418e+00_jprb &
31579  &, 0.130479e+00_jprb, 0.124739e+00_jprb, 0.119210e+00_jprb/)
31580 xcw( 723, :) = (/ &
31581  & 0.105682e+01_jprb, 0.107027e+01_jprb, 0.108340e+01_jprb, 0.109620e+01_jprb &
31582  &, 0.110866e+01_jprb, 0.112078e+01_jprb, 0.113253e+01_jprb &
31583  &, 0.114392e+01_jprb, 0.115494e+01_jprb, 0.116557e+01_jprb, 0.117581e+01_jprb &
31584  &, 0.118564e+01_jprb, 0.119507e+01_jprb, 0.120408e+01_jprb &
31585  &, 0.121267e+01_jprb, 0.122083e+01_jprb, 0.122855e+01_jprb, 0.123582e+01_jprb &
31586  &, 0.124264e+01_jprb, 0.124900e+01_jprb, 0.125490e+01_jprb &
31587  &, 0.126033e+01_jprb, 0.126528e+01_jprb, 0.126975e+01_jprb, 0.127373e+01_jprb &
31588  &, 0.127723e+01_jprb, 0.128023e+01_jprb, 0.128274e+01_jprb &
31589  &, 0.128475e+01_jprb, 0.128626e+01_jprb, 0.128727e+01_jprb, 0.128777e+01_jprb &
31590  &, 0.128777e+01_jprb, 0.128727e+01_jprb, 0.128626e+01_jprb &
31591  &, 0.128474e+01_jprb, 0.128273e+01_jprb, 0.128022e+01_jprb, 0.127722e+01_jprb &
31592  &, 0.127372e+01_jprb, 0.126972e+01_jprb, 0.126525e+01_jprb &
31593  &, 0.126030e+01_jprb, 0.125488e+01_jprb, 0.124898e+01_jprb, 0.124264e+01_jprb &
31594  &, 0.123582e+01_jprb, 0.122857e+01_jprb, 0.122088e+01_jprb &
31595  &, 0.121274e+01_jprb, 0.120420e+01_jprb, 0.119524e+01_jprb, 0.118587e+01_jprb &
31596  &, 0.117613e+01_jprb, 0.116599e+01_jprb, 0.115548e+01_jprb &
31597  &, 0.114462e+01_jprb, 0.113340e+01_jprb, 0.112184e+01_jprb, 0.110998e+01_jprb &
31598  &, 0.109779e+01_jprb, 0.108530e+01_jprb, 0.107253e+01_jprb &
31599  &, 0.105948e+01_jprb, 0.104617e+01_jprb, 0.103261e+01_jprb, 0.101882e+01_jprb &
31600  &, 0.100482e+01_jprb, 0.990585e+00_jprb, 0.976178e+00_jprb &
31601  &, 0.961586e+00_jprb, 0.946823e+00_jprb, 0.931923e+00_jprb, 0.916878e+00_jprb &
31602  &, 0.901701e+00_jprb, 0.886405e+00_jprb, 0.871024e+00_jprb &
31603  &, 0.855549e+00_jprb, 0.840015e+00_jprb, 0.824434e+00_jprb, 0.808794e+00_jprb &
31604  &, 0.793103e+00_jprb, 0.777424e+00_jprb, 0.761715e+00_jprb &
31605  &, 0.746039e+00_jprb, 0.730349e+00_jprb, 0.714708e+00_jprb, 0.699098e+00_jprb &
31606  &, 0.683552e+00_jprb, 0.668046e+00_jprb, 0.652648e+00_jprb &
31607  &, 0.637331e+00_jprb, 0.622097e+00_jprb, 0.606950e+00_jprb, 0.591957e+00_jprb &
31608  &, 0.577052e+00_jprb, 0.562302e+00_jprb, 0.547673e+00_jprb &
31609  &, 0.533232e+00_jprb, 0.518906e+00_jprb, 0.504762e+00_jprb, 0.490796e+00_jprb &
31610  &, 0.477002e+00_jprb, 0.463412e+00_jprb, 0.449978e+00_jprb &
31611  &, 0.436769e+00_jprb, 0.423776e+00_jprb, 0.410947e+00_jprb, 0.398350e+00_jprb &
31612  &, 0.385973e+00_jprb, 0.373801e+00_jprb, 0.361860e+00_jprb &
31613  &, 0.350133e+00_jprb, 0.338647e+00_jprb, 0.327382e+00_jprb, 0.316363e+00_jprb &
31614  &, 0.305567e+00_jprb, 0.295020e+00_jprb, 0.284696e+00_jprb &
31615  &, 0.274618e+00_jprb, 0.264811e+00_jprb, 0.255194e+00_jprb, 0.245840e+00_jprb &
31616  &, 0.236665e+00_jprb, 0.227795e+00_jprb, 0.219145e+00_jprb &
31617  &, 0.210678e+00_jprb, 0.202468e+00_jprb, 0.194534e+00_jprb, 0.186781e+00_jprb &
31618  &, 0.179284e+00_jprb, 0.172001e+00_jprb, 0.164889e+00_jprb &
31619  &, 0.158084e+00_jprb, 0.151420e+00_jprb, 0.145035e+00_jprb, 0.138818e+00_jprb &
31620  &, 0.132784e+00_jprb, 0.126944e+00_jprb, 0.121378e+00_jprb/)
31621 xcw( 724, :) = (/ &
31622  & 0.105713e+01_jprb, 0.107066e+01_jprb, 0.108387e+01_jprb, 0.109676e+01_jprb &
31623  &, 0.110931e+01_jprb, 0.112150e+01_jprb, 0.113335e+01_jprb &
31624  &, 0.114482e+01_jprb, 0.115593e+01_jprb, 0.116665e+01_jprb, 0.117698e+01_jprb &
31625  &, 0.118690e+01_jprb, 0.119642e+01_jprb, 0.120553e+01_jprb &
31626  &, 0.121421e+01_jprb, 0.122246e+01_jprb, 0.123027e+01_jprb, 0.123764e+01_jprb &
31627  &, 0.124456e+01_jprb, 0.125101e+01_jprb, 0.125701e+01_jprb &
31628  &, 0.126253e+01_jprb, 0.126758e+01_jprb, 0.127214e+01_jprb, 0.127622e+01_jprb &
31629  &, 0.127982e+01_jprb, 0.128292e+01_jprb, 0.128552e+01_jprb &
31630  &, 0.128762e+01_jprb, 0.128923e+01_jprb, 0.129033e+01_jprb, 0.129093e+01_jprb &
31631  &, 0.129102e+01_jprb, 0.129061e+01_jprb, 0.128969e+01_jprb &
31632  &, 0.128827e+01_jprb, 0.128635e+01_jprb, 0.128393e+01_jprb, 0.128101e+01_jprb &
31633  &, 0.127759e+01_jprb, 0.127370e+01_jprb, 0.126932e+01_jprb &
31634  &, 0.126444e+01_jprb, 0.125909e+01_jprb, 0.125329e+01_jprb, 0.124701e+01_jprb &
31635  &, 0.124028e+01_jprb, 0.123310e+01_jprb, 0.122548e+01_jprb &
31636  &, 0.121743e+01_jprb, 0.120895e+01_jprb, 0.120006e+01_jprb, 0.119077e+01_jprb &
31637  &, 0.118109e+01_jprb, 0.117100e+01_jprb, 0.116057e+01_jprb &
31638  &, 0.114976e+01_jprb, 0.113860e+01_jprb, 0.112710e+01_jprb, 0.111527e+01_jprb &
31639  &, 0.110314e+01_jprb, 0.109069e+01_jprb, 0.107797e+01_jprb &
31640  &, 0.106496e+01_jprb, 0.105170e+01_jprb, 0.103817e+01_jprb, 0.102441e+01_jprb &
31641  &, 0.101044e+01_jprb, 0.996246e+00_jprb, 0.981857e+00_jprb &
31642  &, 0.967280e+00_jprb, 0.952550e+00_jprb, 0.937660e+00_jprb, 0.922622e+00_jprb &
31643  &, 0.907449e+00_jprb, 0.892177e+00_jprb, 0.876794e+00_jprb &
31644  &, 0.861338e+00_jprb, 0.845795e+00_jprb, 0.830203e+00_jprb, 0.814546e+00_jprb &
31645  &, 0.798863e+00_jprb, 0.783162e+00_jprb, 0.767453e+00_jprb &
31646  &, 0.751720e+00_jprb, 0.736024e+00_jprb, 0.720374e+00_jprb, 0.704634e+00_jprb &
31647  &, 0.689160e+00_jprb, 0.673636e+00_jprb, 0.658184e+00_jprb &
31648  &, 0.642840e+00_jprb, 0.627545e+00_jprb, 0.612397e+00_jprb, 0.597333e+00_jprb &
31649  &, 0.582386e+00_jprb, 0.567592e+00_jprb, 0.552913e+00_jprb &
31650  &, 0.538419e+00_jprb, 0.524036e+00_jprb, 0.509831e+00_jprb, 0.495800e+00_jprb &
31651  &, 0.481975e+00_jprb, 0.468312e+00_jprb, 0.454800e+00_jprb &
31652  &, 0.441550e+00_jprb, 0.428430e+00_jprb, 0.415552e+00_jprb, 0.402903e+00_jprb &
31653  &, 0.390427e+00_jprb, 0.378194e+00_jprb, 0.366190e+00_jprb &
31654  &, 0.354396e+00_jprb, 0.342839e+00_jprb, 0.331500e+00_jprb, 0.320402e+00_jprb &
31655  &, 0.309525e+00_jprb, 0.298892e+00_jprb, 0.288528e+00_jprb &
31656  &, 0.278358e+00_jprb, 0.268403e+00_jprb, 0.258736e+00_jprb, 0.249277e+00_jprb &
31657  &, 0.240099e+00_jprb, 0.231118e+00_jprb, 0.222352e+00_jprb &
31658  &, 0.213876e+00_jprb, 0.205599e+00_jprb, 0.197539e+00_jprb, 0.189713e+00_jprb &
31659  &, 0.182139e+00_jprb, 0.174778e+00_jprb, 0.167584e+00_jprb &
31660  &, 0.160694e+00_jprb, 0.154004e+00_jprb, 0.147466e+00_jprb, 0.141219e+00_jprb &
31661  &, 0.135089e+00_jprb, 0.129215e+00_jprb, 0.123547e+00_jprb/)
31662 xcw( 725, :) = (/ &
31663  & 0.105744e+01_jprb, 0.107105e+01_jprb, 0.108435e+01_jprb, 0.109732e+01_jprb &
31664  &, 0.110995e+01_jprb, 0.112223e+01_jprb, 0.113416e+01_jprb &
31665  &, 0.114573e+01_jprb, 0.115692e+01_jprb, 0.116773e+01_jprb, 0.117815e+01_jprb &
31666  &, 0.118817e+01_jprb, 0.119778e+01_jprb, 0.120698e+01_jprb &
31667  &, 0.121575e+01_jprb, 0.122410e+01_jprb, 0.123200e+01_jprb, 0.123947e+01_jprb &
31668  &, 0.124648e+01_jprb, 0.125303e+01_jprb, 0.125912e+01_jprb &
31669  &, 0.126474e+01_jprb, 0.126987e+01_jprb, 0.127454e+01_jprb, 0.127872e+01_jprb &
31670  &, 0.128241e+01_jprb, 0.128561e+01_jprb, 0.128831e+01_jprb &
31671  &, 0.129051e+01_jprb, 0.129220e+01_jprb, 0.129340e+01_jprb, 0.129410e+01_jprb &
31672  &, 0.129428e+01_jprb, 0.129396e+01_jprb, 0.129314e+01_jprb &
31673  &, 0.129181e+01_jprb, 0.128998e+01_jprb, 0.128764e+01_jprb, 0.128482e+01_jprb &
31674  &, 0.128150e+01_jprb, 0.127768e+01_jprb, 0.127338e+01_jprb &
31675  &, 0.126860e+01_jprb, 0.126334e+01_jprb, 0.125761e+01_jprb, 0.125141e+01_jprb &
31676  &, 0.124477e+01_jprb, 0.123766e+01_jprb, 0.123011e+01_jprb &
31677  &, 0.122213e+01_jprb, 0.121373e+01_jprb, 0.120491e+01_jprb, 0.119568e+01_jprb &
31678  &, 0.118606e+01_jprb, 0.117605e+01_jprb, 0.116567e+01_jprb &
31679  &, 0.115492e+01_jprb, 0.114382e+01_jprb, 0.113237e+01_jprb, 0.112060e+01_jprb &
31680  &, 0.110852e+01_jprb, 0.109613e+01_jprb, 0.108343e+01_jprb &
31681  &, 0.107048e+01_jprb, 0.105724e+01_jprb, 0.104376e+01_jprb, 0.103003e+01_jprb &
31682  &, 0.101610e+01_jprb, 0.100193e+01_jprb, 0.987556e+00_jprb &
31683  &, 0.973016e+00_jprb, 0.958299e+00_jprb, 0.943419e+00_jprb, 0.928411e+00_jprb &
31684  &, 0.913243e+00_jprb, 0.897972e+00_jprb, 0.882611e+00_jprb &
31685  &, 0.867150e+00_jprb, 0.851600e+00_jprb, 0.835996e+00_jprb, 0.820351e+00_jprb &
31686  &, 0.804649e+00_jprb, 0.788926e+00_jprb, 0.773219e+00_jprb &
31687  &, 0.757484e+00_jprb, 0.741755e+00_jprb, 0.726069e+00_jprb, 0.710405e+00_jprb &
31688  &, 0.694799e+00_jprb, 0.679256e+00_jprb, 0.663782e+00_jprb &
31689  &, 0.648382e+00_jprb, 0.633057e+00_jprb, 0.617843e+00_jprb, 0.602742e+00_jprb &
31690  &, 0.587755e+00_jprb, 0.572915e+00_jprb, 0.558188e+00_jprb &
31691  &, 0.543642e+00_jprb, 0.529203e+00_jprb, 0.514974e+00_jprb, 0.500880e+00_jprb &
31692  &, 0.486948e+00_jprb, 0.473212e+00_jprb, 0.459702e+00_jprb &
31693  &, 0.446331e+00_jprb, 0.433167e+00_jprb, 0.420240e+00_jprb, 0.407497e+00_jprb &
31694  &, 0.394966e+00_jprb, 0.382675e+00_jprb, 0.370564e+00_jprb &
31695  &, 0.358704e+00_jprb, 0.347077e+00_jprb, 0.335663e+00_jprb, 0.324489e+00_jprb &
31696  &, 0.313530e+00_jprb, 0.302813e+00_jprb, 0.292360e+00_jprb &
31697  &, 0.282097e+00_jprb, 0.272096e+00_jprb, 0.262329e+00_jprb, 0.252819e+00_jprb &
31698  &, 0.243534e+00_jprb, 0.234441e+00_jprb, 0.225668e+00_jprb &
31699  &, 0.217074e+00_jprb, 0.208730e+00_jprb, 0.200600e+00_jprb, 0.192702e+00_jprb &
31700  &, 0.184995e+00_jprb, 0.177555e+00_jprb, 0.170339e+00_jprb &
31701  &, 0.163365e+00_jprb, 0.156588e+00_jprb, 0.149960e+00_jprb, 0.143620e+00_jprb &
31702  &, 0.137457e+00_jprb, 0.131550e+00_jprb, 0.125781e+00_jprb/)
31703 xcw( 726, :) = (/ &
31704  & 0.105775e+01_jprb, 0.107145e+01_jprb, 0.108482e+01_jprb, 0.109788e+01_jprb &
31705  &, 0.111059e+01_jprb, 0.112296e+01_jprb, 0.113498e+01_jprb &
31706  &, 0.114663e+01_jprb, 0.115791e+01_jprb, 0.116881e+01_jprb, 0.117932e+01_jprb &
31707  &, 0.118943e+01_jprb, 0.119914e+01_jprb, 0.120843e+01_jprb &
31708  &, 0.121730e+01_jprb, 0.122574e+01_jprb, 0.123374e+01_jprb, 0.124130e+01_jprb &
31709  &, 0.124840e+01_jprb, 0.125505e+01_jprb, 0.126124e+01_jprb &
31710  &, 0.126695e+01_jprb, 0.127219e+01_jprb, 0.127695e+01_jprb, 0.128123e+01_jprb &
31711  &, 0.128501e+01_jprb, 0.128830e+01_jprb, 0.129110e+01_jprb &
31712  &, 0.129340e+01_jprb, 0.129519e+01_jprb, 0.129648e+01_jprb, 0.129727e+01_jprb &
31713  &, 0.129755e+01_jprb, 0.129733e+01_jprb, 0.129660e+01_jprb &
31714  &, 0.129536e+01_jprb, 0.129362e+01_jprb, 0.129138e+01_jprb, 0.128865e+01_jprb &
31715  &, 0.128541e+01_jprb, 0.128168e+01_jprb, 0.127747e+01_jprb &
31716  &, 0.127277e+01_jprb, 0.126760e+01_jprb, 0.126195e+01_jprb, 0.125584e+01_jprb &
31717  &, 0.124926e+01_jprb, 0.124224e+01_jprb, 0.123477e+01_jprb &
31718  &, 0.122686e+01_jprb, 0.121851e+01_jprb, 0.120978e+01_jprb, 0.120062e+01_jprb &
31719  &, 0.119102e+01_jprb, 0.118112e+01_jprb, 0.117080e+01_jprb &
31720  &, 0.116011e+01_jprb, 0.114907e+01_jprb, 0.113768e+01_jprb, 0.112596e+01_jprb &
31721  &, 0.111392e+01_jprb, 0.110158e+01_jprb, 0.108893e+01_jprb &
31722  &, 0.107601e+01_jprb, 0.106283e+01_jprb, 0.104939e+01_jprb, 0.103569e+01_jprb &
31723  &, 0.102178e+01_jprb, 0.100765e+01_jprb, 0.993297e+00_jprb &
31724  &, 0.978773e+00_jprb, 0.964091e+00_jprb, 0.949223e+00_jprb, 0.934223e+00_jprb &
31725  &, 0.919082e+00_jprb, 0.903814e+00_jprb, 0.888453e+00_jprb &
31726  &, 0.872988e+00_jprb, 0.857454e+00_jprb, 0.841840e+00_jprb, 0.826181e+00_jprb &
31727  &, 0.810487e+00_jprb, 0.794770e+00_jprb, 0.779012e+00_jprb &
31728  &, 0.763276e+00_jprb, 0.747544e+00_jprb, 0.731822e+00_jprb, 0.716148e+00_jprb &
31729  &, 0.700498e+00_jprb, 0.684907e+00_jprb, 0.669412e+00_jprb &
31730  &, 0.653955e+00_jprb, 0.638634e+00_jprb, 0.623355e+00_jprb, 0.608218e+00_jprb &
31731  &, 0.593191e+00_jprb, 0.578308e+00_jprb, 0.563534e+00_jprb &
31732  &, 0.548901e+00_jprb, 0.534442e+00_jprb, 0.520118e+00_jprb, 0.505959e+00_jprb &
31733  &, 0.491998e+00_jprb, 0.478229e+00_jprb, 0.464604e+00_jprb &
31734  &, 0.451192e+00_jprb, 0.437984e+00_jprb, 0.424970e+00_jprb, 0.412134e+00_jprb &
31735  &, 0.399548e+00_jprb, 0.387155e+00_jprb, 0.374673e+00_jprb &
31736  &, 0.363056e+00_jprb, 0.351360e+00_jprb, 0.339874e+00_jprb, 0.328622e+00_jprb &
31737  &, 0.317584e+00_jprb, 0.306782e+00_jprb, 0.296241e+00_jprb &
31738  &, 0.285936e+00_jprb, 0.275840e+00_jprb, 0.265974e+00_jprb, 0.256360e+00_jprb &
31739  &, 0.247021e+00_jprb, 0.237871e+00_jprb, 0.228984e+00_jprb &
31740  &, 0.220327e+00_jprb, 0.211861e+00_jprb, 0.203662e+00_jprb, 0.195691e+00_jprb &
31741  &, 0.187968e+00_jprb, 0.180450e+00_jprb, 0.173154e+00_jprb &
31742  &, 0.166036e+00_jprb, 0.159172e+00_jprb, 0.152517e+00_jprb, 0.146084e+00_jprb &
31743  &, 0.139890e+00_jprb, 0.133820e+00_jprb, 0.128015e+00_jprb/)
31744 xcw( 727, :) = (/ &
31745  & 0.105806e+01_jprb, 0.107184e+01_jprb, 0.108530e+01_jprb, 0.109844e+01_jprb &
31746  &, 0.111124e+01_jprb, 0.112370e+01_jprb, 0.113580e+01_jprb &
31747  &, 0.114754e+01_jprb, 0.115891e+01_jprb, 0.116990e+01_jprb, 0.118049e+01_jprb &
31748  &, 0.119070e+01_jprb, 0.120050e+01_jprb, 0.120989e+01_jprb &
31749  &, 0.121885e+01_jprb, 0.122738e+01_jprb, 0.123548e+01_jprb, 0.124313e+01_jprb &
31750  &, 0.125034e+01_jprb, 0.125708e+01_jprb, 0.126336e+01_jprb &
31751  &, 0.126917e+01_jprb, 0.127451e+01_jprb, 0.127937e+01_jprb, 0.128374e+01_jprb &
31752  &, 0.128762e+01_jprb, 0.129101e+01_jprb, 0.129391e+01_jprb &
31753  &, 0.129630e+01_jprb, 0.129819e+01_jprb, 0.129958e+01_jprb, 0.130046e+01_jprb &
31754  &, 0.130084e+01_jprb, 0.130071e+01_jprb, 0.130007e+01_jprb &
31755  &, 0.129893e+01_jprb, 0.129728e+01_jprb, 0.129513e+01_jprb, 0.129248e+01_jprb &
31756  &, 0.128933e+01_jprb, 0.128570e+01_jprb, 0.128157e+01_jprb &
31757  &, 0.127696e+01_jprb, 0.127187e+01_jprb, 0.126630e+01_jprb, 0.126027e+01_jprb &
31758  &, 0.125377e+01_jprb, 0.124683e+01_jprb, 0.123944e+01_jprb &
31759  &, 0.123161e+01_jprb, 0.122335e+01_jprb, 0.121467e+01_jprb, 0.120557e+01_jprb &
31760  &, 0.119609e+01_jprb, 0.118621e+01_jprb, 0.117595e+01_jprb &
31761  &, 0.116532e+01_jprb, 0.115435e+01_jprb, 0.114302e+01_jprb, 0.113134e+01_jprb &
31762  &, 0.111935e+01_jprb, 0.110706e+01_jprb, 0.109447e+01_jprb &
31763  &, 0.108159e+01_jprb, 0.106843e+01_jprb, 0.105504e+01_jprb, 0.104138e+01_jprb &
31764  &, 0.102750e+01_jprb, 0.101339e+01_jprb, 0.999079e+00_jprb &
31765  &, 0.984572e+00_jprb, 0.969905e+00_jprb, 0.955070e+00_jprb, 0.940079e+00_jprb &
31766  &, 0.924945e+00_jprb, 0.909703e+00_jprb, 0.894342e+00_jprb &
31767  &, 0.878873e+00_jprb, 0.863334e+00_jprb, 0.847735e+00_jprb, 0.832062e+00_jprb &
31768  &, 0.816352e+00_jprb, 0.800615e+00_jprb, 0.784860e+00_jprb &
31769  &, 0.769096e+00_jprb, 0.753361e+00_jprb, 0.737604e+00_jprb, 0.721920e+00_jprb &
31770  &, 0.706226e+00_jprb, 0.690619e+00_jprb, 0.675072e+00_jprb &
31771  &, 0.659623e+00_jprb, 0.644210e+00_jprb, 0.628933e+00_jprb, 0.613728e+00_jprb &
31772  &, 0.598662e+00_jprb, 0.583736e+00_jprb, 0.568915e+00_jprb &
31773  &, 0.554232e+00_jprb, 0.539718e+00_jprb, 0.525335e+00_jprb, 0.511114e+00_jprb &
31774  &, 0.497086e+00_jprb, 0.483245e+00_jprb, 0.469584e+00_jprb &
31775  &, 0.456094e+00_jprb, 0.442802e+00_jprb, 0.429699e+00_jprb, 0.416855e+00_jprb &
31776  &, 0.404173e+00_jprb, 0.391723e+00_jprb, 0.379489e+00_jprb &
31777  &, 0.367453e+00_jprb, 0.355689e+00_jprb, 0.344130e+00_jprb, 0.332803e+00_jprb &
31778  &, 0.321684e+00_jprb, 0.310799e+00_jprb, 0.300171e+00_jprb &
31779  &, 0.289775e+00_jprb, 0.279634e+00_jprb, 0.269670e+00_jprb, 0.260006e+00_jprb &
31780  &, 0.250561e+00_jprb, 0.241355e+00_jprb, 0.232355e+00_jprb &
31781  &, 0.223580e+00_jprb, 0.215104e+00_jprb, 0.206780e+00_jprb, 0.198738e+00_jprb &
31782  &, 0.190940e+00_jprb, 0.183345e+00_jprb, 0.175969e+00_jprb &
31783  &, 0.168768e+00_jprb, 0.161879e+00_jprb, 0.155135e+00_jprb, 0.148612e+00_jprb &
31784  &, 0.142323e+00_jprb, 0.136220e+00_jprb, 0.130315e+00_jprb/)
31785 xcw( 728, :) = (/ &
31786  & 0.105837e+01_jprb, 0.107223e+01_jprb, 0.108578e+01_jprb, 0.109900e+01_jprb &
31787  &, 0.111188e+01_jprb, 0.112443e+01_jprb, 0.113662e+01_jprb &
31788  &, 0.114845e+01_jprb, 0.115991e+01_jprb, 0.117099e+01_jprb, 0.118168e+01_jprb &
31789  &, 0.119198e+01_jprb, 0.120187e+01_jprb, 0.121135e+01_jprb &
31790  &, 0.122040e+01_jprb, 0.122903e+01_jprb, 0.123722e+01_jprb, 0.124497e+01_jprb &
31791  &, 0.125227e+01_jprb, 0.125911e+01_jprb, 0.126549e+01_jprb &
31792  &, 0.127140e+01_jprb, 0.127683e+01_jprb, 0.128179e+01_jprb, 0.128626e+01_jprb &
31793  &, 0.129024e+01_jprb, 0.129373e+01_jprb, 0.129672e+01_jprb &
31794  &, 0.129921e+01_jprb, 0.130120e+01_jprb, 0.130268e+01_jprb, 0.130366e+01_jprb &
31795  &, 0.130413e+01_jprb, 0.130409e+01_jprb, 0.130355e+01_jprb &
31796  &, 0.130250e+01_jprb, 0.130094e+01_jprb, 0.129889e+01_jprb, 0.129634e+01_jprb &
31797  &, 0.129328e+01_jprb, 0.128972e+01_jprb, 0.128535e+01_jprb &
31798  &, 0.128116e+01_jprb, 0.127616e+01_jprb, 0.127067e+01_jprb, 0.126472e+01_jprb &
31799  &, 0.125830e+01_jprb, 0.125144e+01_jprb, 0.124413e+01_jprb &
31800  &, 0.123638e+01_jprb, 0.122819e+01_jprb, 0.121958e+01_jprb, 0.121056e+01_jprb &
31801  &, 0.120115e+01_jprb, 0.119133e+01_jprb, 0.118113e+01_jprb &
31802  &, 0.117056e+01_jprb, 0.115964e+01_jprb, 0.114837e+01_jprb, 0.113675e+01_jprb &
31803  &, 0.112482e+01_jprb, 0.111257e+01_jprb, 0.110003e+01_jprb &
31804  &, 0.108719e+01_jprb, 0.107409e+01_jprb, 0.106071e+01_jprb, 0.104710e+01_jprb &
31805  &, 0.103324e+01_jprb, 0.101917e+01_jprb, 0.100488e+01_jprb &
31806  &, 0.990413e+00_jprb, 0.975762e+00_jprb, 0.960939e+00_jprb, 0.945958e+00_jprb &
31807  &, 0.930853e+00_jprb, 0.915615e+00_jprb, 0.900254e+00_jprb &
31808  &, 0.884808e+00_jprb, 0.869263e+00_jprb, 0.853655e+00_jprb, 0.837996e+00_jprb &
31809  &, 0.822270e+00_jprb, 0.806540e+00_jprb, 0.790762e+00_jprb &
31810  &, 0.774972e+00_jprb, 0.759206e+00_jprb, 0.743443e+00_jprb, 0.727721e+00_jprb &
31811  &, 0.712015e+00_jprb, 0.696392e+00_jprb, 0.680795e+00_jprb &
31812  &, 0.665291e+00_jprb, 0.649883e+00_jprb, 0.634543e+00_jprb, 0.619304e+00_jprb &
31813  &, 0.604200e+00_jprb, 0.589198e+00_jprb, 0.574331e+00_jprb &
31814  &, 0.559598e+00_jprb, 0.545031e+00_jprb, 0.530590e+00_jprb, 0.516344e+00_jprb &
31815  &, 0.502250e+00_jprb, 0.488301e+00_jprb, 0.474565e+00_jprb &
31816  &, 0.461035e+00_jprb, 0.447702e+00_jprb, 0.434512e+00_jprb, 0.421576e+00_jprb &
31817  &, 0.408841e+00_jprb, 0.396334e+00_jprb, 0.383995e+00_jprb &
31818  &, 0.371896e+00_jprb, 0.360063e+00_jprb, 0.348433e+00_jprb, 0.336983e+00_jprb &
31819  &, 0.325833e+00_jprb, 0.314865e+00_jprb, 0.304150e+00_jprb &
31820  &, 0.293664e+00_jprb, 0.283429e+00_jprb, 0.273418e+00_jprb, 0.263652e+00_jprb &
31821  &, 0.254154e+00_jprb, 0.244839e+00_jprb, 0.235780e+00_jprb &
31822  &, 0.226943e+00_jprb, 0.218347e+00_jprb, 0.210012e+00_jprb, 0.201842e+00_jprb &
31823  &, 0.193971e+00_jprb, 0.186240e+00_jprb, 0.178784e+00_jprb &
31824  &, 0.171560e+00_jprb, 0.164586e+00_jprb, 0.157754e+00_jprb, 0.151202e+00_jprb &
31825  &, 0.144820e+00_jprb, 0.138620e+00_jprb, 0.132681e+00_jprb/)
31826 
31827 IF (lhook) CALL dr_hook('SU_MCICA:PART104',1,zhook_handle)
31828 END SUBROUTINE part104
31829 
31830 #ifdef VPP5000
31831 !OCL SCALAR
31832 #endif
31833 !option! -Nv -NO
31834 #ifdef RS6K
31835 @process nooptimize
31836 #endif
31837 !pgi$r opt=0
31838 SUBROUTINE part105
31839 
31840 REAL(KIND=JPRB) :: ZHOOK_HANDLE
31841 IF (lhook) CALL dr_hook('SU_MCICA:PART105',0,zhook_handle)
31842 
31843 xcw( 729, :) = (/ &
31844  & 0.105869e+01_jprb, 0.107263e+01_jprb, 0.108626e+01_jprb, 0.109956e+01_jprb &
31845  &, 0.111253e+01_jprb, 0.112516e+01_jprb, 0.113744e+01_jprb &
31846  &, 0.114936e+01_jprb, 0.116091e+01_jprb, 0.117208e+01_jprb, 0.118287e+01_jprb &
31847  &, 0.119325e+01_jprb, 0.120324e+01_jprb, 0.121281e+01_jprb &
31848  &, 0.122196e+01_jprb, 0.123069e+01_jprb, 0.123897e+01_jprb, 0.124682e+01_jprb &
31849  &, 0.125421e+01_jprb, 0.126115e+01_jprb, 0.126763e+01_jprb &
31850  &, 0.127363e+01_jprb, 0.127917e+01_jprb, 0.128422e+01_jprb, 0.128878e+01_jprb &
31851  &, 0.129287e+01_jprb, 0.129645e+01_jprb, 0.129954e+01_jprb &
31852  &, 0.130213e+01_jprb, 0.130421e+01_jprb, 0.130579e+01_jprb, 0.130687e+01_jprb &
31853  &, 0.130744e+01_jprb, 0.130750e+01_jprb, 0.130705e+01_jprb &
31854  &, 0.130609e+01_jprb, 0.130464e+01_jprb, 0.130266e+01_jprb, 0.130020e+01_jprb &
31855  &, 0.129724e+01_jprb, 0.129377e+01_jprb, 0.128982e+01_jprb &
31856  &, 0.128539e+01_jprb, 0.128046e+01_jprb, 0.127507e+01_jprb, 0.126920e+01_jprb &
31857  &, 0.126286e+01_jprb, 0.125607e+01_jprb, 0.124884e+01_jprb &
31858  &, 0.124116e+01_jprb, 0.123306e+01_jprb, 0.122451e+01_jprb, 0.121557e+01_jprb &
31859  &, 0.120622e+01_jprb, 0.119646e+01_jprb, 0.118634e+01_jprb &
31860  &, 0.117583e+01_jprb, 0.116497e+01_jprb, 0.115374e+01_jprb, 0.114219e+01_jprb &
31861  &, 0.113032e+01_jprb, 0.111811e+01_jprb, 0.110560e+01_jprb &
31862  &, 0.109282e+01_jprb, 0.107976e+01_jprb, 0.106643e+01_jprb, 0.105285e+01_jprb &
31863  &, 0.103904e+01_jprb, 0.102498e+01_jprb, 0.101073e+01_jprb &
31864  &, 0.996276e+00_jprb, 0.981662e+00_jprb, 0.966852e+00_jprb, 0.951904e+00_jprb &
31865  &, 0.936784e+00_jprb, 0.921574e+00_jprb, 0.906215e+00_jprb &
31866  &, 0.890767e+00_jprb, 0.875241e+00_jprb, 0.859626e+00_jprb, 0.843955e+00_jprb &
31867  &, 0.828240e+00_jprb, 0.812465e+00_jprb, 0.796692e+00_jprb &
31868  &, 0.780904e+00_jprb, 0.765108e+00_jprb, 0.749312e+00_jprb, 0.733581e+00_jprb &
31869  &, 0.717864e+00_jprb, 0.702195e+00_jprb, 0.686580e+00_jprb &
31870  &, 0.671022e+00_jprb, 0.655557e+00_jprb, 0.640186e+00_jprb, 0.624914e+00_jprb &
31871  &, 0.609772e+00_jprb, 0.594695e+00_jprb, 0.579783e+00_jprb &
31872  &, 0.564964e+00_jprb, 0.550379e+00_jprb, 0.535918e+00_jprb, 0.521574e+00_jprb &
31873  &, 0.507414e+00_jprb, 0.493434e+00_jprb, 0.479665e+00_jprb &
31874  &, 0.466017e+00_jprb, 0.452601e+00_jprb, 0.439407e+00_jprb, 0.426381e+00_jprb &
31875  &, 0.413551e+00_jprb, 0.400988e+00_jprb, 0.388590e+00_jprb &
31876  &, 0.376428e+00_jprb, 0.364483e+00_jprb, 0.352782e+00_jprb, 0.341258e+00_jprb &
31877  &, 0.330029e+00_jprb, 0.318979e+00_jprb, 0.308178e+00_jprb &
31878  &, 0.297652e+00_jprb, 0.287324e+00_jprb, 0.277216e+00_jprb, 0.267350e+00_jprb &
31879  &, 0.257747e+00_jprb, 0.248376e+00_jprb, 0.239259e+00_jprb &
31880  &, 0.230306e+00_jprb, 0.221646e+00_jprb, 0.213187e+00_jprb, 0.205004e+00_jprb &
31881  &, 0.197001e+00_jprb, 0.189253e+00_jprb, 0.181719e+00_jprb &
31882  &, 0.174414e+00_jprb, 0.167294e+00_jprb, 0.160435e+00_jprb, 0.153792e+00_jprb &
31883  &, 0.147316e+00_jprb, 0.141084e+00_jprb, 0.135046e+00_jprb/)
31884 xcw( 730, :) = (/ &
31885  & 0.105900e+01_jprb, 0.107302e+01_jprb, 0.108674e+01_jprb, 0.110012e+01_jprb &
31886  &, 0.111318e+01_jprb, 0.112590e+01_jprb, 0.113827e+01_jprb &
31887  &, 0.115028e+01_jprb, 0.116191e+01_jprb, 0.117318e+01_jprb, 0.118405e+01_jprb &
31888  &, 0.119453e+01_jprb, 0.120461e+01_jprb, 0.121428e+01_jprb &
31889  &, 0.122352e+01_jprb, 0.123234e+01_jprb, 0.124073e+01_jprb, 0.124867e+01_jprb &
31890  &, 0.125616e+01_jprb, 0.126320e+01_jprb, 0.126977e+01_jprb &
31891  &, 0.127588e+01_jprb, 0.128151e+01_jprb, 0.128666e+01_jprb, 0.129132e+01_jprb &
31892  &, 0.129550e+01_jprb, 0.129918e+01_jprb, 0.130237e+01_jprb &
31893  &, 0.130506e+01_jprb, 0.130724e+01_jprb, 0.130892e+01_jprb, 0.131009e+01_jprb &
31894  &, 0.131075e+01_jprb, 0.131091e+01_jprb, 0.131056e+01_jprb &
31895  &, 0.130970e+01_jprb, 0.130833e+01_jprb, 0.130646e+01_jprb, 0.130409e+01_jprb &
31896  &, 0.130120e+01_jprb, 0.129784e+01_jprb, 0.129397e+01_jprb &
31897  &, 0.128962e+01_jprb, 0.128478e+01_jprb, 0.127948e+01_jprb, 0.127369e+01_jprb &
31898  &, 0.126744e+01_jprb, 0.126073e+01_jprb, 0.125357e+01_jprb &
31899  &, 0.124597e+01_jprb, 0.123793e+01_jprb, 0.122948e+01_jprb, 0.122059e+01_jprb &
31900  &, 0.121132e+01_jprb, 0.120163e+01_jprb, 0.119156e+01_jprb &
31901  &, 0.118113e+01_jprb, 0.117032e+01_jprb, 0.115916e+01_jprb, 0.114765e+01_jprb &
31902  &, 0.113583e+01_jprb, 0.112368e+01_jprb, 0.111123e+01_jprb &
31903  &, 0.109848e+01_jprb, 0.108546e+01_jprb, 0.107218e+01_jprb, 0.105862e+01_jprb &
31904  &, 0.104483e+01_jprb, 0.103084e+01_jprb, 0.101661e+01_jprb &
31905  &, 0.100218e+01_jprb, 0.987583e+00_jprb, 0.972788e+00_jprb, 0.957850e+00_jprb &
31906  &, 0.942761e+00_jprb, 0.927556e+00_jprb, 0.912223e+00_jprb &
31907  &, 0.896774e+00_jprb, 0.881245e+00_jprb, 0.865647e+00_jprb, 0.849966e+00_jprb &
31908  &, 0.834237e+00_jprb, 0.818471e+00_jprb, 0.802676e+00_jprb &
31909  &, 0.786863e+00_jprb, 0.771038e+00_jprb, 0.755238e+00_jprb, 0.739470e+00_jprb &
31910  &, 0.723712e+00_jprb, 0.708029e+00_jprb, 0.692334e+00_jprb &
31911  &, 0.676817e+00_jprb, 0.661294e+00_jprb, 0.645895e+00_jprb, 0.630590e+00_jprb &
31912  &, 0.615379e+00_jprb, 0.600295e+00_jprb, 0.585304e+00_jprb &
31913  &, 0.570473e+00_jprb, 0.555801e+00_jprb, 0.541246e+00_jprb, 0.526879e+00_jprb &
31914  &, 0.512655e+00_jprb, 0.498645e+00_jprb, 0.484764e+00_jprb &
31915  &, 0.471079e+00_jprb, 0.457583e+00_jprb, 0.444303e+00_jprb, 0.431229e+00_jprb &
31916  &, 0.418347e+00_jprb, 0.405686e+00_jprb, 0.393229e+00_jprb &
31917  &, 0.380959e+00_jprb, 0.368948e+00_jprb, 0.357177e+00_jprb, 0.345579e+00_jprb &
31918  &, 0.334273e+00_jprb, 0.323141e+00_jprb, 0.312256e+00_jprb &
31919  &, 0.301641e+00_jprb, 0.291220e+00_jprb, 0.281066e+00_jprb, 0.271152e+00_jprb &
31920  &, 0.261445e+00_jprb, 0.251967e+00_jprb, 0.242738e+00_jprb &
31921  &, 0.233779e+00_jprb, 0.225000e+00_jprb, 0.216475e+00_jprb, 0.208166e+00_jprb &
31922  &, 0.200032e+00_jprb, 0.192266e+00_jprb, 0.184653e+00_jprb &
31923  &, 0.177267e+00_jprb, 0.170124e+00_jprb, 0.163178e+00_jprb, 0.156383e+00_jprb &
31924  &, 0.149877e+00_jprb, 0.143549e+00_jprb, 0.137478e+00_jprb/)
31925 xcw( 731, :) = (/ &
31926  & 0.105932e+01_jprb, 0.107342e+01_jprb, 0.108722e+01_jprb, 0.110069e+01_jprb &
31927  &, 0.111383e+01_jprb, 0.112664e+01_jprb, 0.113909e+01_jprb &
31928  &, 0.115119e+01_jprb, 0.116292e+01_jprb, 0.117427e+01_jprb, 0.118524e+01_jprb &
31929  &, 0.119582e+01_jprb, 0.120599e+01_jprb, 0.121575e+01_jprb &
31930  &, 0.122509e+01_jprb, 0.123401e+01_jprb, 0.124249e+01_jprb, 0.125053e+01_jprb &
31931  &, 0.125812e+01_jprb, 0.126525e+01_jprb, 0.127192e+01_jprb &
31932  &, 0.127812e+01_jprb, 0.128386e+01_jprb, 0.128910e+01_jprb, 0.129387e+01_jprb &
31933  &, 0.129814e+01_jprb, 0.130193e+01_jprb, 0.130521e+01_jprb &
31934  &, 0.130800e+01_jprb, 0.131028e+01_jprb, 0.131205e+01_jprb, 0.131332e+01_jprb &
31935  &, 0.131408e+01_jprb, 0.131434e+01_jprb, 0.131408e+01_jprb &
31936  &, 0.131328e+01_jprb, 0.131204e+01_jprb, 0.131026e+01_jprb, 0.130798e+01_jprb &
31937  &, 0.130519e+01_jprb, 0.130192e+01_jprb, 0.129814e+01_jprb &
31938  &, 0.129388e+01_jprb, 0.128913e+01_jprb, 0.128390e+01_jprb, 0.127820e+01_jprb &
31939  &, 0.127204e+01_jprb, 0.126540e+01_jprb, 0.125833e+01_jprb &
31940  &, 0.125080e+01_jprb, 0.124284e+01_jprb, 0.123445e+01_jprb, 0.122565e+01_jprb &
31941  &, 0.121643e+01_jprb, 0.120682e+01_jprb, 0.119682e+01_jprb &
31942  &, 0.118644e+01_jprb, 0.117569e+01_jprb, 0.116460e+01_jprb, 0.115315e+01_jprb &
31943  &, 0.114137e+01_jprb, 0.112927e+01_jprb, 0.111687e+01_jprb &
31944  &, 0.110418e+01_jprb, 0.109119e+01_jprb, 0.107794e+01_jprb, 0.106444e+01_jprb &
31945  &, 0.105069e+01_jprb, 0.103672e+01_jprb, 0.102252e+01_jprb &
31946  &, 0.100813e+01_jprb, 0.993547e+00_jprb, 0.978789e+00_jprb, 0.963863e+00_jprb &
31947  &, 0.948784e+00_jprb, 0.933585e+00_jprb, 0.918255e+00_jprb &
31948  &, 0.902830e+00_jprb, 0.887298e+00_jprb, 0.871693e+00_jprb, 0.856002e+00_jprb &
31949  &, 0.840260e+00_jprb, 0.824503e+00_jprb, 0.808688e+00_jprb &
31950  &, 0.792850e+00_jprb, 0.777025e+00_jprb, 0.761222e+00_jprb, 0.745419e+00_jprb &
31951  &, 0.729651e+00_jprb, 0.713924e+00_jprb, 0.698243e+00_jprb &
31952  &, 0.682643e+00_jprb, 0.667096e+00_jprb, 0.651637e+00_jprb, 0.636300e+00_jprb &
31953  &, 0.621019e+00_jprb, 0.605896e+00_jprb, 0.590896e+00_jprb &
31954  &, 0.576018e+00_jprb, 0.561259e+00_jprb, 0.546612e+00_jprb, 0.532222e+00_jprb &
31955  &, 0.517973e+00_jprb, 0.503856e+00_jprb, 0.489942e+00_jprb &
31956  &, 0.476182e+00_jprb, 0.462645e+00_jprb, 0.449281e+00_jprb, 0.436119e+00_jprb &
31957  &, 0.423144e+00_jprb, 0.410427e+00_jprb, 0.397868e+00_jprb &
31958  &, 0.385581e+00_jprb, 0.373459e+00_jprb, 0.361618e+00_jprb, 0.349947e+00_jprb &
31959  &, 0.338564e+00_jprb, 0.327352e+00_jprb, 0.316431e+00_jprb &
31960  &, 0.305679e+00_jprb, 0.295217e+00_jprb, 0.284968e+00_jprb, 0.274954e+00_jprb &
31961  &, 0.265144e+00_jprb, 0.255612e+00_jprb, 0.246326e+00_jprb &
31962  &, 0.237253e+00_jprb, 0.228411e+00_jprb, 0.219820e+00_jprb, 0.211442e+00_jprb &
31963  &, 0.203296e+00_jprb, 0.195339e+00_jprb, 0.187648e+00_jprb &
31964  &, 0.180180e+00_jprb, 0.172954e+00_jprb, 0.165922e+00_jprb, 0.159100e+00_jprb &
31965  &, 0.152502e+00_jprb, 0.146079e+00_jprb, 0.139909e+00_jprb/)
31966 xcw( 732, :) = (/ &
31967  & 0.105963e+01_jprb, 0.107382e+01_jprb, 0.108770e+01_jprb, 0.110126e+01_jprb &
31968  &, 0.111449e+01_jprb, 0.112738e+01_jprb, 0.113992e+01_jprb &
31969  &, 0.115211e+01_jprb, 0.116393e+01_jprb, 0.117537e+01_jprb, 0.118644e+01_jprb &
31970  &, 0.119710e+01_jprb, 0.120737e+01_jprb, 0.121722e+01_jprb &
31971  &, 0.122666e+01_jprb, 0.123567e+01_jprb, 0.124425e+01_jprb, 0.125239e+01_jprb &
31972  &, 0.126008e+01_jprb, 0.126731e+01_jprb, 0.127408e+01_jprb &
31973  &, 0.128038e+01_jprb, 0.128621e+01_jprb, 0.129156e+01_jprb, 0.129642e+01_jprb &
31974  &, 0.130079e+01_jprb, 0.130468e+01_jprb, 0.130806e+01_jprb &
31975  &, 0.131094e+01_jprb, 0.131333e+01_jprb, 0.131520e+01_jprb, 0.131657e+01_jprb &
31976  &, 0.131742e+01_jprb, 0.131777e+01_jprb, 0.131761e+01_jprb &
31977  &, 0.131694e+01_jprb, 0.131576e+01_jprb, 0.131408e+01_jprb, 0.131189e+01_jprb &
31978  &, 0.130920e+01_jprb, 0.130601e+01_jprb, 0.130229e+01_jprb &
31979  &, 0.129814e+01_jprb, 0.129349e+01_jprb, 0.128834e+01_jprb, 0.128274e+01_jprb &
31980  &, 0.127664e+01_jprb, 0.127010e+01_jprb, 0.126310e+01_jprb &
31981  &, 0.125565e+01_jprb, 0.124777e+01_jprb, 0.123946e+01_jprb, 0.123073e+01_jprb &
31982  &, 0.122158e+01_jprb, 0.121203e+01_jprb, 0.120210e+01_jprb &
31983  &, 0.119178e+01_jprb, 0.118110e+01_jprb, 0.117006e+01_jprb, 0.115867e+01_jprb &
31984  &, 0.114695e+01_jprb, 0.113491e+01_jprb, 0.112255e+01_jprb &
31985  &, 0.110989e+01_jprb, 0.109696e+01_jprb, 0.108376e+01_jprb, 0.107029e+01_jprb &
31986  &, 0.105657e+01_jprb, 0.104263e+01_jprb, 0.102846e+01_jprb &
31987  &, 0.101410e+01_jprb, 0.999533e+00_jprb, 0.984812e+00_jprb, 0.969899e+00_jprb &
31988  &, 0.954852e+00_jprb, 0.939660e+00_jprb, 0.924335e+00_jprb &
31989  &, 0.908911e+00_jprb, 0.893376e+00_jprb, 0.877765e+00_jprb, 0.862090e+00_jprb &
31990  &, 0.846361e+00_jprb, 0.830562e+00_jprb, 0.814754e+00_jprb &
31991  &, 0.798921e+00_jprb, 0.783069e+00_jprb, 0.767235e+00_jprb, 0.751397e+00_jprb &
31992  &, 0.735619e+00_jprb, 0.719850e+00_jprb, 0.704152e+00_jprb &
31993  &, 0.688501e+00_jprb, 0.672931e+00_jprb, 0.657444e+00_jprb, 0.642043e+00_jprb &
31994  &, 0.626761e+00_jprb, 0.611565e+00_jprb, 0.596488e+00_jprb &
31995  &, 0.581564e+00_jprb, 0.566789e+00_jprb, 0.552125e+00_jprb, 0.537640e+00_jprb &
31996  &, 0.523290e+00_jprb, 0.509145e+00_jprb, 0.495160e+00_jprb &
31997  &, 0.481324e+00_jprb, 0.467708e+00_jprb, 0.454302e+00_jprb, 0.441050e+00_jprb &
31998  &, 0.428025e+00_jprb, 0.415212e+00_jprb, 0.402596e+00_jprb &
31999  &, 0.390248e+00_jprb, 0.378061e+00_jprb, 0.366106e+00_jprb, 0.354410e+00_jprb &
32000  &, 0.342904e+00_jprb, 0.331612e+00_jprb, 0.320607e+00_jprb &
32001  &, 0.309817e+00_jprb, 0.299214e+00_jprb, 0.288921e+00_jprb, 0.278808e+00_jprb &
32002  &, 0.268948e+00_jprb, 0.259310e+00_jprb, 0.249914e+00_jprb &
32003  &, 0.240781e+00_jprb, 0.231822e+00_jprb, 0.223165e+00_jprb, 0.214719e+00_jprb &
32004  &, 0.206501e+00_jprb, 0.198470e+00_jprb, 0.190702e+00_jprb &
32005  &, 0.183155e+00_jprb, 0.175845e+00_jprb, 0.168728e+00_jprb, 0.161816e+00_jprb &
32006  &, 0.155126e+00_jprb, 0.148673e+00_jprb, 0.142406e+00_jprb/)
32007 xcw( 733, :) = (/ &
32008  & 0.105995e+01_jprb, 0.107422e+01_jprb, 0.108818e+01_jprb, 0.110182e+01_jprb &
32009  &, 0.111514e+01_jprb, 0.112812e+01_jprb, 0.114075e+01_jprb &
32010  &, 0.115303e+01_jprb, 0.116494e+01_jprb, 0.117648e+01_jprb, 0.118763e+01_jprb &
32011  &, 0.119839e+01_jprb, 0.120875e+01_jprb, 0.121870e+01_jprb &
32012  &, 0.122824e+01_jprb, 0.123735e+01_jprb, 0.124602e+01_jprb, 0.125425e+01_jprb &
32013  &, 0.126204e+01_jprb, 0.126937e+01_jprb, 0.127624e+01_jprb &
32014  &, 0.128264e+01_jprb, 0.128857e+01_jprb, 0.129402e+01_jprb, 0.129898e+01_jprb &
32015  &, 0.130345e+01_jprb, 0.130744e+01_jprb, 0.131092e+01_jprb &
32016  &, 0.131390e+01_jprb, 0.131638e+01_jprb, 0.131836e+01_jprb, 0.131982e+01_jprb &
32017  &, 0.132078e+01_jprb, 0.132122e+01_jprb, 0.132116e+01_jprb &
32018  &, 0.132058e+01_jprb, 0.131950e+01_jprb, 0.131791e+01_jprb, 0.131582e+01_jprb &
32019  &, 0.131322e+01_jprb, 0.131012e+01_jprb, 0.130652e+01_jprb &
32020  &, 0.130244e+01_jprb, 0.129783e+01_jprb, 0.129281e+01_jprb, 0.128728e+01_jprb &
32021  &, 0.128128e+01_jprb, 0.127482e+01_jprb, 0.126790e+01_jprb &
32022  &, 0.126053e+01_jprb, 0.125272e+01_jprb, 0.124449e+01_jprb, 0.123582e+01_jprb &
32023  &, 0.122675e+01_jprb, 0.121726e+01_jprb, 0.120740e+01_jprb &
32024  &, 0.119715e+01_jprb, 0.118652e+01_jprb, 0.117555e+01_jprb, 0.116422e+01_jprb &
32025  &, 0.115255e+01_jprb, 0.114055e+01_jprb, 0.112825e+01_jprb &
32026  &, 0.111565e+01_jprb, 0.110276e+01_jprb, 0.108960e+01_jprb, 0.107617e+01_jprb &
32027  &, 0.106249e+01_jprb, 0.104859e+01_jprb, 0.103445e+01_jprb &
32028  &, 0.102011e+01_jprb, 0.100556e+01_jprb, 0.990857e+00_jprb, 0.975980e+00_jprb &
32029  &, 0.960944e+00_jprb, 0.945759e+00_jprb, 0.930438e+00_jprb &
32030  &, 0.915040e+00_jprb, 0.899503e+00_jprb, 0.883888e+00_jprb, 0.868023e+00_jprb &
32031  &, 0.852463e+00_jprb, 0.836675e+00_jprb, 0.820848e+00_jprb &
32032  &, 0.804991e+00_jprb, 0.789141e+00_jprb, 0.773277e+00_jprb, 0.757433e+00_jprb &
32033  &, 0.741618e+00_jprb, 0.725836e+00_jprb, 0.710093e+00_jprb &
32034  &, 0.694422e+00_jprb, 0.678797e+00_jprb, 0.663284e+00_jprb, 0.647853e+00_jprb &
32035  &, 0.632503e+00_jprb, 0.617270e+00_jprb, 0.602115e+00_jprb &
32036  &, 0.587180e+00_jprb, 0.572356e+00_jprb, 0.557638e+00_jprb, 0.543095e+00_jprb &
32037  &, 0.528684e+00_jprb, 0.514473e+00_jprb, 0.500418e+00_jprb &
32038  &, 0.486547e+00_jprb, 0.472853e+00_jprb, 0.459363e+00_jprb, 0.446067e+00_jprb &
32039  &, 0.432950e+00_jprb, 0.420084e+00_jprb, 0.407412e+00_jprb &
32040  &, 0.394914e+00_jprb, 0.382708e+00_jprb, 0.370640e+00_jprb, 0.358872e+00_jprb &
32041  &, 0.347290e+00_jprb, 0.335920e+00_jprb, 0.324832e+00_jprb &
32042  &, 0.313955e+00_jprb, 0.303312e+00_jprb, 0.292873e+00_jprb, 0.282714e+00_jprb &
32043  &, 0.272752e+00_jprb, 0.263062e+00_jprb, 0.253611e+00_jprb &
32044  &, 0.244365e+00_jprb, 0.235344e+00_jprb, 0.226567e+00_jprb, 0.218053e+00_jprb &
32045  &, 0.209707e+00_jprb, 0.201661e+00_jprb, 0.193816e+00_jprb &
32046  &, 0.186130e+00_jprb, 0.178737e+00_jprb, 0.171533e+00_jprb, 0.164596e+00_jprb &
32047  &, 0.157815e+00_jprb, 0.151268e+00_jprb, 0.144969e+00_jprb/)
32048 xcw( 734, :) = (/ &
32049  & 0.106027e+01_jprb, 0.107462e+01_jprb, 0.108866e+01_jprb, 0.110239e+01_jprb &
32050  &, 0.111580e+01_jprb, 0.112886e+01_jprb, 0.114159e+01_jprb &
32051  &, 0.115395e+01_jprb, 0.116595e+01_jprb, 0.117758e+01_jprb, 0.118883e+01_jprb &
32052  &, 0.119968e+01_jprb, 0.121014e+01_jprb, 0.122019e+01_jprb &
32053  &, 0.122982e+01_jprb, 0.123902e+01_jprb, 0.124779e+01_jprb, 0.125613e+01_jprb &
32054  &, 0.126401e+01_jprb, 0.127144e+01_jprb, 0.127841e+01_jprb &
32055  &, 0.128491e+01_jprb, 0.129094e+01_jprb, 0.129649e+01_jprb, 0.130155e+01_jprb &
32056  &, 0.130612e+01_jprb, 0.131020e+01_jprb, 0.131379e+01_jprb &
32057  &, 0.131687e+01_jprb, 0.131945e+01_jprb, 0.132152e+01_jprb, 0.132309e+01_jprb &
32058  &, 0.132414e+01_jprb, 0.132468e+01_jprb, 0.132472e+01_jprb &
32059  &, 0.132424e+01_jprb, 0.132325e+01_jprb, 0.132176e+01_jprb, 0.131976e+01_jprb &
32060  &, 0.131725e+01_jprb, 0.131425e+01_jprb, 0.131075e+01_jprb &
32061  &, 0.130675e+01_jprb, 0.130227e+01_jprb, 0.129729e+01_jprb, 0.129185e+01_jprb &
32062  &, 0.128593e+01_jprb, 0.127955e+01_jprb, 0.127271e+01_jprb &
32063  &, 0.126543e+01_jprb, 0.125769e+01_jprb, 0.124953e+01_jprb, 0.124095e+01_jprb &
32064  &, 0.123194e+01_jprb, 0.122253e+01_jprb, 0.121273e+01_jprb &
32065  &, 0.120255e+01_jprb, 0.119199e+01_jprb, 0.118106e+01_jprb, 0.116979e+01_jprb &
32066  &, 0.115819e+01_jprb, 0.114625e+01_jprb, 0.113398e+01_jprb &
32067  &, 0.112144e+01_jprb, 0.110859e+01_jprb, 0.109547e+01_jprb, 0.108208e+01_jprb &
32068  &, 0.106845e+01_jprb, 0.105457e+01_jprb, 0.104046e+01_jprb &
32069  &, 0.102616e+01_jprb, 0.101163e+01_jprb, 0.996946e+00_jprb, 0.982083e+00_jprb &
32070  &, 0.967058e+00_jprb, 0.951905e+00_jprb, 0.936613e+00_jprb &
32071  &, 0.921193e+00_jprb, 0.905680e+00_jprb, 0.890061e+00_jprb, 0.874395e+00_jprb &
32072  &, 0.858644e+00_jprb, 0.842841e+00_jprb, 0.826996e+00_jprb &
32073  &, 0.811146e+00_jprb, 0.795270e+00_jprb, 0.779376e+00_jprb, 0.763529e+00_jprb &
32074  &, 0.747677e+00_jprb, 0.731854e+00_jprb, 0.716095e+00_jprb &
32075  &, 0.700376e+00_jprb, 0.684729e+00_jprb, 0.669190e+00_jprb, 0.653696e+00_jprb &
32076  &, 0.638314e+00_jprb, 0.623043e+00_jprb, 0.607883e+00_jprb &
32077  &, 0.592868e+00_jprb, 0.577960e+00_jprb, 0.563189e+00_jprb, 0.548589e+00_jprb &
32078  &, 0.534154e+00_jprb, 0.519840e+00_jprb, 0.505754e+00_jprb &
32079  &, 0.491810e+00_jprb, 0.478038e+00_jprb, 0.464466e+00_jprb, 0.451125e+00_jprb &
32080  &, 0.437960e+00_jprb, 0.425000e+00_jprb, 0.412227e+00_jprb &
32081  &, 0.399670e+00_jprb, 0.387356e+00_jprb, 0.375266e+00_jprb, 0.363381e+00_jprb &
32082  &, 0.351725e+00_jprb, 0.340324e+00_jprb, 0.329106e+00_jprb &
32083  &, 0.318143e+00_jprb, 0.307410e+00_jprb, 0.296929e+00_jprb, 0.286672e+00_jprb &
32084  &, 0.276662e+00_jprb, 0.266867e+00_jprb, 0.257307e+00_jprb &
32085  &, 0.247949e+00_jprb, 0.238867e+00_jprb, 0.230025e+00_jprb, 0.221387e+00_jprb &
32086  &, 0.213029e+00_jprb, 0.204851e+00_jprb, 0.196931e+00_jprb &
32087  &, 0.189225e+00_jprb, 0.181690e+00_jprb, 0.174464e+00_jprb, 0.167376e+00_jprb &
32088  &, 0.160568e+00_jprb, 0.153927e+00_jprb, 0.147532e+00_jprb/)
32089 xcw( 735, :) = (/ &
32090  & 0.106058e+01_jprb, 0.107502e+01_jprb, 0.108915e+01_jprb, 0.110296e+01_jprb &
32091  &, 0.111645e+01_jprb, 0.112961e+01_jprb, 0.114242e+01_jprb &
32092  &, 0.115488e+01_jprb, 0.116697e+01_jprb, 0.117869e+01_jprb, 0.119003e+01_jprb &
32093  &, 0.120098e+01_jprb, 0.121153e+01_jprb, 0.122167e+01_jprb &
32094  &, 0.123140e+01_jprb, 0.124070e+01_jprb, 0.124957e+01_jprb, 0.125800e+01_jprb &
32095  &, 0.126599e+01_jprb, 0.127351e+01_jprb, 0.128056e+01_jprb &
32096  &, 0.128718e+01_jprb, 0.129331e+01_jprb, 0.129896e+01_jprb, 0.130413e+01_jprb &
32097  &, 0.130880e+01_jprb, 0.131298e+01_jprb, 0.131667e+01_jprb &
32098  &, 0.131985e+01_jprb, 0.132253e+01_jprb, 0.132470e+01_jprb, 0.132636e+01_jprb &
32099  &, 0.132752e+01_jprb, 0.132816e+01_jprb, 0.132829e+01_jprb &
32100  &, 0.132791e+01_jprb, 0.132702e+01_jprb, 0.132562e+01_jprb, 0.132372e+01_jprb &
32101  &, 0.132130e+01_jprb, 0.131839e+01_jprb, 0.131498e+01_jprb &
32102  &, 0.131107e+01_jprb, 0.130668e+01_jprb, 0.130179e+01_jprb, 0.129644e+01_jprb &
32103  &, 0.129060e+01_jprb, 0.128431e+01_jprb, 0.127754e+01_jprb &
32104  &, 0.127034e+01_jprb, 0.126269e+01_jprb, 0.125460e+01_jprb, 0.124608e+01_jprb &
32105  &, 0.123716e+01_jprb, 0.122783e+01_jprb, 0.121809e+01_jprb &
32106  &, 0.120797e+01_jprb, 0.119746e+01_jprb, 0.118661e+01_jprb, 0.117540e+01_jprb &
32107  &, 0.116384e+01_jprb, 0.115196e+01_jprb, 0.113975e+01_jprb &
32108  &, 0.112724e+01_jprb, 0.111445e+01_jprb, 0.110137e+01_jprb, 0.108803e+01_jprb &
32109  &, 0.107442e+01_jprb, 0.106058e+01_jprb, 0.104651e+01_jprb &
32110  &, 0.103223e+01_jprb, 0.101775e+01_jprb, 0.100308e+01_jprb, 0.988231e+00_jprb &
32111  &, 0.973241e+00_jprb, 0.958074e+00_jprb, 0.942812e+00_jprb &
32112  &, 0.927395e+00_jprb, 0.911882e+00_jprb, 0.896284e+00_jprb, 0.880612e+00_jprb &
32113  &, 0.864851e+00_jprb, 0.849034e+00_jprb, 0.833199e+00_jprb &
32114  &, 0.817328e+00_jprb, 0.801427e+00_jprb, 0.785534e+00_jprb, 0.769654e+00_jprb &
32115  &, 0.753765e+00_jprb, 0.737932e+00_jprb, 0.722160e+00_jprb &
32116  &, 0.706392e+00_jprb, 0.690724e+00_jprb, 0.675128e+00_jprb, 0.659606e+00_jprb &
32117  &, 0.644192e+00_jprb, 0.628851e+00_jprb, 0.613651e+00_jprb &
32118  &, 0.598556e+00_jprb, 0.583636e+00_jprb, 0.568813e+00_jprb, 0.554157e+00_jprb &
32119  &, 0.539624e+00_jprb, 0.525284e+00_jprb, 0.511091e+00_jprb &
32120  &, 0.497114e+00_jprb, 0.483305e+00_jprb, 0.469652e+00_jprb, 0.456225e+00_jprb &
32121  &, 0.442971e+00_jprb, 0.429959e+00_jprb, 0.417132e+00_jprb &
32122  &, 0.404516e+00_jprb, 0.392095e+00_jprb, 0.379939e+00_jprb, 0.367984e+00_jprb &
32123  &, 0.356255e+00_jprb, 0.344729e+00_jprb, 0.333478e+00_jprb &
32124  &, 0.322431e+00_jprb, 0.311609e+00_jprb, 0.301035e+00_jprb, 0.290683e+00_jprb &
32125  &, 0.280572e+00_jprb, 0.270672e+00_jprb, 0.261058e+00_jprb &
32126  &, 0.251643e+00_jprb, 0.242501e+00_jprb, 0.233541e+00_jprb, 0.224837e+00_jprb &
32127  &, 0.216351e+00_jprb, 0.208101e+00_jprb, 0.200105e+00_jprb &
32128  &, 0.192321e+00_jprb, 0.184705e+00_jprb, 0.177394e+00_jprb, 0.170283e+00_jprb &
32129  &, 0.163321e+00_jprb, 0.156651e+00_jprb, 0.150160e+00_jprb/)
32130 
32131 IF (lhook) CALL dr_hook('SU_MCICA:PART105',1,zhook_handle)
32132 END SUBROUTINE part105
32133 
32134 #ifdef VPP5000
32135 !OCL SCALAR
32136 #endif
32137 !option! -Nv -NO
32138 #ifdef RS6K
32139 @process nooptimize
32140 #endif
32141 !pgi$r opt=0
32142 SUBROUTINE part106
32143 
32144 REAL(KIND=JPRB) :: ZHOOK_HANDLE
32145 IF (lhook) CALL dr_hook('SU_MCICA:PART106',0,zhook_handle)
32146 
32147 xcw( 736, :) = (/ &
32148  & 0.106090e+01_jprb, 0.107542e+01_jprb, 0.108963e+01_jprb, 0.110353e+01_jprb &
32149  &, 0.111711e+01_jprb, 0.113036e+01_jprb, 0.114326e+01_jprb &
32150  &, 0.115580e+01_jprb, 0.116799e+01_jprb, 0.117980e+01_jprb, 0.119124e+01_jprb &
32151  &, 0.120228e+01_jprb, 0.121293e+01_jprb, 0.122317e+01_jprb &
32152  &, 0.123299e+01_jprb, 0.124239e+01_jprb, 0.125136e+01_jprb, 0.125989e+01_jprb &
32153  &, 0.126797e+01_jprb, 0.127560e+01_jprb, 0.128277e+01_jprb &
32154  &, 0.128947e+01_jprb, 0.129570e+01_jprb, 0.130145e+01_jprb, 0.130671e+01_jprb &
32155  &, 0.131149e+01_jprb, 0.131577e+01_jprb, 0.131955e+01_jprb &
32156  &, 0.132284e+01_jprb, 0.132562e+01_jprb, 0.132789e+01_jprb, 0.132965e+01_jprb &
32157  &, 0.133091e+01_jprb, 0.133165e+01_jprb, 0.133188e+01_jprb &
32158  &, 0.133159e+01_jprb, 0.133080e+01_jprb, 0.132949e+01_jprb, 0.132769e+01_jprb &
32159  &, 0.132537e+01_jprb, 0.132255e+01_jprb, 0.131923e+01_jprb &
32160  &, 0.131541e+01_jprb, 0.131111e+01_jprb, 0.130632e+01_jprb, 0.130104e+01_jprb &
32161  &, 0.129529e+01_jprb, 0.128909e+01_jprb, 0.128241e+01_jprb &
32162  &, 0.127528e+01_jprb, 0.126770e+01_jprb, 0.125969e+01_jprb, 0.125126e+01_jprb &
32163  &, 0.124240e+01_jprb, 0.123314e+01_jprb, 0.122347e+01_jprb &
32164  &, 0.121341e+01_jprb, 0.120298e+01_jprb, 0.119219e+01_jprb, 0.118103e+01_jprb &
32165  &, 0.116953e+01_jprb, 0.115770e+01_jprb, 0.114556e+01_jprb &
32166  &, 0.113310e+01_jprb, 0.112035e+01_jprb, 0.110730e+01_jprb, 0.109400e+01_jprb &
32167  &, 0.108044e+01_jprb, 0.106665e+01_jprb, 0.105260e+01_jprb &
32168  &, 0.103835e+01_jprb, 0.102389e+01_jprb, 0.100926e+01_jprb, 0.994424e+00_jprb &
32169  &, 0.979447e+00_jprb, 0.964314e+00_jprb, 0.949035e+00_jprb &
32170  &, 0.933646e+00_jprb, 0.918133e+00_jprb, 0.902533e+00_jprb, 0.886855e+00_jprb &
32171  &, 0.871110e+00_jprb, 0.855281e+00_jprb, 0.839429e+00_jprb &
32172  &, 0.823538e+00_jprb, 0.807641e+00_jprb, 0.791720e+00_jprb, 0.775779e+00_jprb &
32173  &, 0.759944e+00_jprb, 0.744071e+00_jprb, 0.728256e+00_jprb &
32174  &, 0.712472e+00_jprb, 0.696752e+00_jprb, 0.681100e+00_jprb, 0.665550e+00_jprb &
32175  &, 0.650104e+00_jprb, 0.634728e+00_jprb, 0.619489e+00_jprb &
32176  &, 0.604352e+00_jprb, 0.589348e+00_jprb, 0.574475e+00_jprb, 0.559763e+00_jprb &
32177  &, 0.545171e+00_jprb, 0.530768e+00_jprb, 0.516546e+00_jprb &
32178  &, 0.502457e+00_jprb, 0.488572e+00_jprb, 0.474879e+00_jprb, 0.461368e+00_jprb &
32179  &, 0.448067e+00_jprb, 0.434961e+00_jprb, 0.422080e+00_jprb &
32180  &, 0.409362e+00_jprb, 0.396879e+00_jprb, 0.384658e+00_jprb, 0.372587e+00_jprb &
32181  &, 0.360785e+00_jprb, 0.349182e+00_jprb, 0.337850e+00_jprb &
32182  &, 0.326718e+00_jprb, 0.315808e+00_jprb, 0.305142e+00_jprb, 0.294745e+00_jprb &
32183  &, 0.284535e+00_jprb, 0.274585e+00_jprb, 0.264864e+00_jprb &
32184  &, 0.255392e+00_jprb, 0.246135e+00_jprb, 0.237112e+00_jprb, 0.228286e+00_jprb &
32185  &, 0.219731e+00_jprb, 0.211409e+00_jprb, 0.203339e+00_jprb &
32186  &, 0.195478e+00_jprb, 0.187781e+00_jprb, 0.180387e+00_jprb, 0.173126e+00_jprb &
32187  &, 0.166138e+00_jprb, 0.159375e+00_jprb, 0.152788e+00_jprb/)
32188 xcw( 737, :) = (/ &
32189  & 0.106122e+01_jprb, 0.107582e+01_jprb, 0.109012e+01_jprb, 0.110411e+01_jprb &
32190  &, 0.111777e+01_jprb, 0.113110e+01_jprb, 0.114410e+01_jprb &
32191  &, 0.115673e+01_jprb, 0.116901e+01_jprb, 0.118092e+01_jprb, 0.119245e+01_jprb &
32192  &, 0.120358e+01_jprb, 0.121433e+01_jprb, 0.122466e+01_jprb &
32193  &, 0.123458e+01_jprb, 0.124408e+01_jprb, 0.125315e+01_jprb, 0.126177e+01_jprb &
32194  &, 0.126996e+01_jprb, 0.127769e+01_jprb, 0.128494e+01_jprb &
32195  &, 0.129176e+01_jprb, 0.129809e+01_jprb, 0.130394e+01_jprb, 0.130931e+01_jprb &
32196  &, 0.131418e+01_jprb, 0.131857e+01_jprb, 0.132245e+01_jprb &
32197  &, 0.132584e+01_jprb, 0.132872e+01_jprb, 0.133109e+01_jprb, 0.133295e+01_jprb &
32198  &, 0.133431e+01_jprb, 0.133515e+01_jprb, 0.133548e+01_jprb &
32199  &, 0.133529e+01_jprb, 0.133460e+01_jprb, 0.133339e+01_jprb, 0.133168e+01_jprb &
32200  &, 0.132945e+01_jprb, 0.132672e+01_jprb, 0.132349e+01_jprb &
32201  &, 0.131977e+01_jprb, 0.131556e+01_jprb, 0.131086e+01_jprb, 0.130567e+01_jprb &
32202  &, 0.130001e+01_jprb, 0.129388e+01_jprb, 0.128729e+01_jprb &
32203  &, 0.128024e+01_jprb, 0.127275e+01_jprb, 0.126482e+01_jprb, 0.125646e+01_jprb &
32204  &, 0.124766e+01_jprb, 0.123848e+01_jprb, 0.122887e+01_jprb &
32205  &, 0.121890e+01_jprb, 0.120852e+01_jprb, 0.119779e+01_jprb, 0.118669e+01_jprb &
32206  &, 0.117525e+01_jprb, 0.116348e+01_jprb, 0.115138e+01_jprb &
32207  &, 0.113898e+01_jprb, 0.112627e+01_jprb, 0.111327e+01_jprb, 0.110002e+01_jprb &
32208  &, 0.108650e+01_jprb, 0.107273e+01_jprb, 0.105870e+01_jprb &
32209  &, 0.104450e+01_jprb, 0.103009e+01_jprb, 0.101546e+01_jprb, 0.100066e+01_jprb &
32210  &, 0.985699e+00_jprb, 0.970576e+00_jprb, 0.955305e+00_jprb &
32211  &, 0.939921e+00_jprb, 0.924435e+00_jprb, 0.908833e+00_jprb, 0.893150e+00_jprb &
32212  &, 0.877396e+00_jprb, 0.861581e+00_jprb, 0.845714e+00_jprb &
32213  &, 0.829831e+00_jprb, 0.813912e+00_jprb, 0.797964e+00_jprb, 0.782052e+00_jprb &
32214  &, 0.766122e+00_jprb, 0.750241e+00_jprb, 0.734383e+00_jprb &
32215  &, 0.718583e+00_jprb, 0.702844e+00_jprb, 0.687169e+00_jprb, 0.671560e+00_jprb &
32216  &, 0.656050e+00_jprb, 0.640639e+00_jprb, 0.625363e+00_jprb &
32217  &, 0.610147e+00_jprb, 0.595097e+00_jprb, 0.580173e+00_jprb, 0.565407e+00_jprb &
32218  &, 0.550795e+00_jprb, 0.536329e+00_jprb, 0.522001e+00_jprb &
32219  &, 0.507881e+00_jprb, 0.493920e+00_jprb, 0.480148e+00_jprb, 0.466595e+00_jprb &
32220  &, 0.453205e+00_jprb, 0.440051e+00_jprb, 0.427073e+00_jprb &
32221  &, 0.414298e+00_jprb, 0.401755e+00_jprb, 0.389423e+00_jprb, 0.377285e+00_jprb &
32222  &, 0.365410e+00_jprb, 0.353731e+00_jprb, 0.342272e+00_jprb &
32223  &, 0.331106e+00_jprb, 0.320108e+00_jprb, 0.309352e+00_jprb, 0.298860e+00_jprb &
32224  &, 0.288550e+00_jprb, 0.278551e+00_jprb, 0.268723e+00_jprb &
32225  &, 0.259141e+00_jprb, 0.249825e+00_jprb, 0.240684e+00_jprb, 0.231850e+00_jprb &
32226  &, 0.223170e+00_jprb, 0.214777e+00_jprb, 0.206573e+00_jprb &
32227  &, 0.198635e+00_jprb, 0.190919e+00_jprb, 0.183380e+00_jprb, 0.176095e+00_jprb &
32228  &, 0.169018e+00_jprb, 0.162164e+00_jprb, 0.155483e+00_jprb/)
32229 xcw( 738, :) = (/ &
32230  & 0.106154e+01_jprb, 0.107622e+01_jprb, 0.109061e+01_jprb, 0.110468e+01_jprb &
32231  &, 0.111844e+01_jprb, 0.113186e+01_jprb, 0.114494e+01_jprb &
32232  &, 0.115767e+01_jprb, 0.117004e+01_jprb, 0.118204e+01_jprb, 0.119366e+01_jprb &
32233  &, 0.120489e+01_jprb, 0.121573e+01_jprb, 0.122616e+01_jprb &
32234  &, 0.123618e+01_jprb, 0.124577e+01_jprb, 0.125494e+01_jprb, 0.126367e+01_jprb &
32235  &, 0.127195e+01_jprb, 0.127978e+01_jprb, 0.128715e+01_jprb &
32236  &, 0.129405e+01_jprb, 0.130048e+01_jprb, 0.130644e+01_jprb, 0.131191e+01_jprb &
32237  &, 0.131689e+01_jprb, 0.132137e+01_jprb, 0.132536e+01_jprb &
32238  &, 0.132885e+01_jprb, 0.133183e+01_jprb, 0.133430e+01_jprb, 0.133627e+01_jprb &
32239  &, 0.133772e+01_jprb, 0.133866e+01_jprb, 0.133909e+01_jprb &
32240  &, 0.133901e+01_jprb, 0.133840e+01_jprb, 0.133730e+01_jprb, 0.133568e+01_jprb &
32241  &, 0.133355e+01_jprb, 0.133092e+01_jprb, 0.132778e+01_jprb &
32242  &, 0.132416e+01_jprb, 0.132003e+01_jprb, 0.131542e+01_jprb, 0.131032e+01_jprb &
32243  &, 0.130475e+01_jprb, 0.129870e+01_jprb, 0.129219e+01_jprb &
32244  &, 0.128523e+01_jprb, 0.127781e+01_jprb, 0.126996e+01_jprb, 0.126167e+01_jprb &
32245  &, 0.125295e+01_jprb, 0.124383e+01_jprb, 0.123431e+01_jprb &
32246  &, 0.122440e+01_jprb, 0.121410e+01_jprb, 0.120342e+01_jprb, 0.119238e+01_jprb &
32247  &, 0.118101e+01_jprb, 0.116928e+01_jprb, 0.115724e+01_jprb &
32248  &, 0.114488e+01_jprb, 0.113224e+01_jprb, 0.111928e+01_jprb, 0.110606e+01_jprb &
32249  &, 0.109259e+01_jprb, 0.107886e+01_jprb, 0.106489e+01_jprb &
32250  &, 0.105070e+01_jprb, 0.103629e+01_jprb, 0.102170e+01_jprb, 0.100692e+01_jprb &
32251  &, 0.991973e+00_jprb, 0.976886e+00_jprb, 0.961623e+00_jprb &
32252  &, 0.946269e+00_jprb, 0.930761e+00_jprb, 0.915183e+00_jprb, 0.899496e+00_jprb &
32253  &, 0.883734e+00_jprb, 0.867935e+00_jprb, 0.852054e+00_jprb &
32254  &, 0.836152e+00_jprb, 0.820212e+00_jprb, 0.804266e+00_jprb, 0.788324e+00_jprb &
32255  &, 0.772391e+00_jprb, 0.756472e+00_jprb, 0.740572e+00_jprb &
32256  &, 0.724758e+00_jprb, 0.708969e+00_jprb, 0.693239e+00_jprb, 0.677604e+00_jprb &
32257  &, 0.662064e+00_jprb, 0.646620e+00_jprb, 0.631271e+00_jprb &
32258  &, 0.616050e+00_jprb, 0.600919e+00_jprb, 0.585945e+00_jprb, 0.571126e+00_jprb &
32259  &, 0.556456e+00_jprb, 0.541929e+00_jprb, 0.527535e+00_jprb &
32260  &, 0.513345e+00_jprb, 0.499351e+00_jprb, 0.485500e+00_jprb, 0.471864e+00_jprb &
32261  &, 0.458387e+00_jprb, 0.445140e+00_jprb, 0.432109e+00_jprb &
32262  &, 0.419279e+00_jprb, 0.406630e+00_jprb, 0.394235e+00_jprb, 0.382029e+00_jprb &
32263  &, 0.370036e+00_jprb, 0.358330e+00_jprb, 0.346791e+00_jprb &
32264  &, 0.335493e+00_jprb, 0.324459e+00_jprb, 0.313612e+00_jprb, 0.303026e+00_jprb &
32265  &, 0.292672e+00_jprb, 0.282517e+00_jprb, 0.272637e+00_jprb &
32266  &, 0.263001e+00_jprb, 0.253572e+00_jprb, 0.244369e+00_jprb, 0.235414e+00_jprb &
32267  &, 0.226666e+00_jprb, 0.218204e+00_jprb, 0.209927e+00_jprb &
32268  &, 0.201852e+00_jprb, 0.194056e+00_jprb, 0.186497e+00_jprb, 0.179128e+00_jprb &
32269  &, 0.171963e+00_jprb, 0.165018e+00_jprb, 0.158242e+00_jprb/)
32270 xcw( 739, :) = (/ &
32271  & 0.106186e+01_jprb, 0.107663e+01_jprb, 0.109110e+01_jprb, 0.110526e+01_jprb &
32272  &, 0.111910e+01_jprb, 0.113261e+01_jprb, 0.114578e+01_jprb &
32273  &, 0.115860e+01_jprb, 0.117106e+01_jprb, 0.118316e+01_jprb, 0.119487e+01_jprb &
32274  &, 0.120620e+01_jprb, 0.121713e+01_jprb, 0.122766e+01_jprb &
32275  &, 0.123778e+01_jprb, 0.124747e+01_jprb, 0.125674e+01_jprb, 0.126557e+01_jprb &
32276  &, 0.127395e+01_jprb, 0.128188e+01_jprb, 0.128935e+01_jprb &
32277  &, 0.129636e+01_jprb, 0.130289e+01_jprb, 0.130895e+01_jprb, 0.131452e+01_jprb &
32278  &, 0.131960e+01_jprb, 0.132418e+01_jprb, 0.132828e+01_jprb &
32279  &, 0.133187e+01_jprb, 0.133495e+01_jprb, 0.133753e+01_jprb, 0.133959e+01_jprb &
32280  &, 0.134115e+01_jprb, 0.134212e+01_jprb, 0.134272e+01_jprb &
32281  &, 0.134273e+01_jprb, 0.134223e+01_jprb, 0.134122e+01_jprb, 0.133970e+01_jprb &
32282  &, 0.133766e+01_jprb, 0.133512e+01_jprb, 0.133209e+01_jprb &
32283  &, 0.132851e+01_jprb, 0.132451e+01_jprb, 0.131999e+01_jprb, 0.131499e+01_jprb &
32284  &, 0.130950e+01_jprb, 0.130354e+01_jprb, 0.129712e+01_jprb &
32285  &, 0.129024e+01_jprb, 0.128290e+01_jprb, 0.127513e+01_jprb, 0.126692e+01_jprb &
32286  &, 0.125827e+01_jprb, 0.124923e+01_jprb, 0.123978e+01_jprb &
32287  &, 0.122993e+01_jprb, 0.121968e+01_jprb, 0.120908e+01_jprb, 0.119811e+01_jprb &
32288  &, 0.118679e+01_jprb, 0.117513e+01_jprb, 0.116313e+01_jprb &
32289  &, 0.115083e+01_jprb, 0.113823e+01_jprb, 0.112533e+01_jprb, 0.111215e+01_jprb &
32290  &, 0.109871e+01_jprb, 0.108498e+01_jprb, 0.107109e+01_jprb &
32291  &, 0.105693e+01_jprb, 0.104255e+01_jprb, 0.102798e+01_jprb, 0.101323e+01_jprb &
32292  &, 0.998317e+00_jprb, 0.983218e+00_jprb, 0.967989e+00_jprb &
32293  &, 0.952641e+00_jprb, 0.937161e+00_jprb, 0.921558e+00_jprb, 0.905893e+00_jprb &
32294  &, 0.890126e+00_jprb, 0.874316e+00_jprb, 0.858421e+00_jprb &
32295  &, 0.842502e+00_jprb, 0.826567e+00_jprb, 0.810597e+00_jprb, 0.794626e+00_jprb &
32296  &, 0.778690e+00_jprb, 0.762734e+00_jprb, 0.746824e+00_jprb &
32297  &, 0.730964e+00_jprb, 0.715158e+00_jprb, 0.699407e+00_jprb, 0.683714e+00_jprb &
32298  &, 0.668146e+00_jprb, 0.652635e+00_jprb, 0.637250e+00_jprb &
32299  &, 0.621953e+00_jprb, 0.606813e+00_jprb, 0.591792e+00_jprb, 0.576883e+00_jprb &
32300  &, 0.562156e+00_jprb, 0.547568e+00_jprb, 0.533148e+00_jprb &
32301  &, 0.518889e+00_jprb, 0.504781e+00_jprb, 0.490894e+00_jprb, 0.477175e+00_jprb &
32302  &, 0.463654e+00_jprb, 0.450316e+00_jprb, 0.437234e+00_jprb &
32303  &, 0.424304e+00_jprb, 0.411597e+00_jprb, 0.399093e+00_jprb, 0.386820e+00_jprb &
32304  &, 0.374756e+00_jprb, 0.362928e+00_jprb, 0.351360e+00_jprb &
32305  &, 0.339980e+00_jprb, 0.328810e+00_jprb, 0.317924e+00_jprb, 0.307245e+00_jprb &
32306  &, 0.296793e+00_jprb, 0.286590e+00_jprb, 0.276606e+00_jprb &
32307  &, 0.266860e+00_jprb, 0.257374e+00_jprb, 0.248111e+00_jprb, 0.239036e+00_jprb &
32308  &, 0.230222e+00_jprb, 0.221631e+00_jprb, 0.213281e+00_jprb &
32309  &, 0.205191e+00_jprb, 0.197256e+00_jprb, 0.189615e+00_jprb, 0.182161e+00_jprb &
32310  &, 0.174908e+00_jprb, 0.167872e+00_jprb, 0.161068e+00_jprb/)
32311 xcw( 740, :) = (/ &
32312  & 0.106218e+01_jprb, 0.107703e+01_jprb, 0.109159e+01_jprb, 0.110583e+01_jprb &
32313  &, 0.111976e+01_jprb, 0.113336e+01_jprb, 0.114662e+01_jprb &
32314  &, 0.115954e+01_jprb, 0.117209e+01_jprb, 0.118428e+01_jprb, 0.119609e+01_jprb &
32315  &, 0.120751e+01_jprb, 0.121854e+01_jprb, 0.122917e+01_jprb &
32316  &, 0.123939e+01_jprb, 0.124918e+01_jprb, 0.125855e+01_jprb, 0.126747e+01_jprb &
32317  &, 0.127596e+01_jprb, 0.128399e+01_jprb, 0.129156e+01_jprb &
32318  &, 0.129867e+01_jprb, 0.130530e+01_jprb, 0.131146e+01_jprb, 0.131713e+01_jprb &
32319  &, 0.132232e+01_jprb, 0.132701e+01_jprb, 0.133121e+01_jprb &
32320  &, 0.133490e+01_jprb, 0.133808e+01_jprb, 0.134076e+01_jprb, 0.134290e+01_jprb &
32321  &, 0.134458e+01_jprb, 0.134566e+01_jprb, 0.134636e+01_jprb &
32322  &, 0.134647e+01_jprb, 0.134607e+01_jprb, 0.134516e+01_jprb, 0.134373e+01_jprb &
32323  &, 0.134180e+01_jprb, 0.133936e+01_jprb, 0.133641e+01_jprb &
32324  &, 0.133296e+01_jprb, 0.132902e+01_jprb, 0.132459e+01_jprb, 0.131968e+01_jprb &
32325  &, 0.131427e+01_jprb, 0.130839e+01_jprb, 0.130206e+01_jprb &
32326  &, 0.129526e+01_jprb, 0.128801e+01_jprb, 0.128031e+01_jprb, 0.127218e+01_jprb &
32327  &, 0.126362e+01_jprb, 0.125465e+01_jprb, 0.124526e+01_jprb &
32328  &, 0.123548e+01_jprb, 0.122531e+01_jprb, 0.121476e+01_jprb, 0.120387e+01_jprb &
32329  &, 0.119260e+01_jprb, 0.118100e+01_jprb, 0.116906e+01_jprb &
32330  &, 0.115680e+01_jprb, 0.114424e+01_jprb, 0.113140e+01_jprb, 0.111827e+01_jprb &
32331  &, 0.110486e+01_jprb, 0.109121e+01_jprb, 0.107732e+01_jprb &
32332  &, 0.106319e+01_jprb, 0.104884e+01_jprb, 0.103432e+01_jprb, 0.101958e+01_jprb &
32333  &, 0.100468e+01_jprb, 0.989598e+00_jprb, 0.974403e+00_jprb &
32334  &, 0.959038e+00_jprb, 0.943561e+00_jprb, 0.927984e+00_jprb, 0.912317e+00_jprb &
32335  &, 0.896569e+00_jprb, 0.880724e+00_jprb, 0.864842e+00_jprb &
32336  &, 0.848934e+00_jprb, 0.832952e+00_jprb, 0.816986e+00_jprb, 0.800986e+00_jprb &
32337  &, 0.785018e+00_jprb, 0.769057e+00_jprb, 0.753138e+00_jprb &
32338  &, 0.737234e+00_jprb, 0.721379e+00_jprb, 0.705608e+00_jprb, 0.689891e+00_jprb &
32339  &, 0.674262e+00_jprb, 0.658720e+00_jprb, 0.643264e+00_jprb &
32340  &, 0.627963e+00_jprb, 0.612744e+00_jprb, 0.597675e+00_jprb, 0.582715e+00_jprb &
32341  &, 0.567933e+00_jprb, 0.553284e+00_jprb, 0.538801e+00_jprb &
32342  &, 0.524474e+00_jprb, 0.510334e+00_jprb, 0.496329e+00_jprb, 0.482571e+00_jprb &
32343  &, 0.468964e+00_jprb, 0.455580e+00_jprb, 0.442360e+00_jprb &
32344  &, 0.429375e+00_jprb, 0.416609e+00_jprb, 0.404043e+00_jprb, 0.391705e+00_jprb &
32345  &, 0.379572e+00_jprb, 0.367623e+00_jprb, 0.355978e+00_jprb &
32346  &, 0.344517e+00_jprb, 0.333262e+00_jprb, 0.322288e+00_jprb, 0.311516e+00_jprb &
32347  &, 0.300967e+00_jprb, 0.290717e+00_jprb, 0.280629e+00_jprb &
32348  &, 0.270830e+00_jprb, 0.261231e+00_jprb, 0.251853e+00_jprb, 0.242715e+00_jprb &
32349  &, 0.233835e+00_jprb, 0.225176e+00_jprb, 0.216695e+00_jprb &
32350  &, 0.208529e+00_jprb, 0.200516e+00_jprb, 0.192794e+00_jprb, 0.185256e+00_jprb &
32351  &, 0.177917e+00_jprb, 0.170791e+00_jprb, 0.163894e+00_jprb/)
32352 xcw( 741, :) = (/ &
32353  & 0.106250e+01_jprb, 0.107744e+01_jprb, 0.109208e+01_jprb, 0.110641e+01_jprb &
32354  &, 0.112043e+01_jprb, 0.113412e+01_jprb, 0.114747e+01_jprb &
32355  &, 0.116047e+01_jprb, 0.117312e+01_jprb, 0.118540e+01_jprb, 0.119731e+01_jprb &
32356  &, 0.120883e+01_jprb, 0.121996e+01_jprb, 0.123068e+01_jprb &
32357  &, 0.124100e+01_jprb, 0.125089e+01_jprb, 0.126036e+01_jprb, 0.126938e+01_jprb &
32358  &, 0.127797e+01_jprb, 0.128610e+01_jprb, 0.129378e+01_jprb &
32359  &, 0.130099e+01_jprb, 0.130772e+01_jprb, 0.131398e+01_jprb, 0.131976e+01_jprb &
32360  &, 0.132505e+01_jprb, 0.132984e+01_jprb, 0.133414e+01_jprb &
32361  &, 0.133793e+01_jprb, 0.134123e+01_jprb, 0.134401e+01_jprb, 0.134628e+01_jprb &
32362  &, 0.134804e+01_jprb, 0.134928e+01_jprb, 0.135001e+01_jprb &
32363  &, 0.135022e+01_jprb, 0.134993e+01_jprb, 0.134911e+01_jprb, 0.134778e+01_jprb &
32364  &, 0.134595e+01_jprb, 0.134360e+01_jprb, 0.134075e+01_jprb &
32365  &, 0.133739e+01_jprb, 0.133355e+01_jprb, 0.132921e+01_jprb, 0.132437e+01_jprb &
32366  &, 0.131907e+01_jprb, 0.131328e+01_jprb, 0.130703e+01_jprb &
32367  &, 0.130031e+01_jprb, 0.129314e+01_jprb, 0.128552e+01_jprb, 0.127747e+01_jprb &
32368  &, 0.126899e+01_jprb, 0.126009e+01_jprb, 0.125077e+01_jprb &
32369  &, 0.124107e+01_jprb, 0.123097e+01_jprb, 0.122049e+01_jprb, 0.120964e+01_jprb &
32370  &, 0.119844e+01_jprb, 0.118687e+01_jprb, 0.117501e+01_jprb &
32371  &, 0.116281e+01_jprb, 0.115031e+01_jprb, 0.113750e+01_jprb, 0.112441e+01_jprb &
32372  &, 0.111106e+01_jprb, 0.109744e+01_jprb, 0.108358e+01_jprb &
32373  &, 0.106949e+01_jprb, 0.105519e+01_jprb, 0.104067e+01_jprb, 0.102597e+01_jprb &
32374  &, 0.101107e+01_jprb, 0.996024e+00_jprb, 0.980840e+00_jprb &
32375  &, 0.965507e+00_jprb, 0.950036e+00_jprb, 0.934461e+00_jprb, 0.918792e+00_jprb &
32376  &, 0.903039e+00_jprb, 0.887212e+00_jprb, 0.871319e+00_jprb &
32377  &, 0.855395e+00_jprb, 0.839421e+00_jprb, 0.823432e+00_jprb, 0.807406e+00_jprb &
32378  &, 0.791407e+00_jprb, 0.775440e+00_jprb, 0.759482e+00_jprb &
32379  &, 0.743535e+00_jprb, 0.727664e+00_jprb, 0.711842e+00_jprb, 0.696102e+00_jprb &
32380  &, 0.680412e+00_jprb, 0.664839e+00_jprb, 0.649348e+00_jprb &
32381  &, 0.633973e+00_jprb, 0.618748e+00_jprb, 0.603596e+00_jprb, 0.588585e+00_jprb &
32382  &, 0.573747e+00_jprb, 0.559040e+00_jprb, 0.544493e+00_jprb &
32383  &, 0.530099e+00_jprb, 0.515887e+00_jprb, 0.501847e+00_jprb, 0.488008e+00_jprb &
32384  &, 0.474317e+00_jprb, 0.460843e+00_jprb, 0.447573e+00_jprb &
32385  &, 0.434535e+00_jprb, 0.421666e+00_jprb, 0.409040e+00_jprb, 0.396590e+00_jprb &
32386  &, 0.384388e+00_jprb, 0.372415e+00_jprb, 0.360645e+00_jprb &
32387  &, 0.349104e+00_jprb, 0.337765e+00_jprb, 0.326703e+00_jprb, 0.315838e+00_jprb &
32388  &, 0.305247e+00_jprb, 0.294844e+00_jprb, 0.284706e+00_jprb &
32389  &, 0.274799e+00_jprb, 0.265089e+00_jprb, 0.255652e+00_jprb, 0.246451e+00_jprb &
32390  &, 0.237448e+00_jprb, 0.228721e+00_jprb, 0.220168e+00_jprb &
32391  &, 0.211929e+00_jprb, 0.203839e+00_jprb, 0.195974e+00_jprb, 0.188352e+00_jprb &
32392  &, 0.180990e+00_jprb, 0.173775e+00_jprb, 0.166785e+00_jprb/)
32393 xcw( 742, :) = (/ &
32394  & 0.106282e+01_jprb, 0.107785e+01_jprb, 0.109257e+01_jprb, 0.110699e+01_jprb &
32395  &, 0.112110e+01_jprb, 0.113488e+01_jprb, 0.114832e+01_jprb &
32396  &, 0.116142e+01_jprb, 0.117416e+01_jprb, 0.118653e+01_jprb, 0.119854e+01_jprb &
32397  &, 0.121015e+01_jprb, 0.122138e+01_jprb, 0.123220e+01_jprb &
32398  &, 0.124261e+01_jprb, 0.125260e+01_jprb, 0.126217e+01_jprb, 0.127130e+01_jprb &
32399  &, 0.127999e+01_jprb, 0.128822e+01_jprb, 0.129600e+01_jprb &
32400  &, 0.130331e+01_jprb, 0.131015e+01_jprb, 0.131652e+01_jprb, 0.132240e+01_jprb &
32401  &, 0.132779e+01_jprb, 0.133269e+01_jprb, 0.133709e+01_jprb &
32402  &, 0.134099e+01_jprb, 0.134438e+01_jprb, 0.134726e+01_jprb, 0.134964e+01_jprb &
32403  &, 0.135150e+01_jprb, 0.135284e+01_jprb, 0.135368e+01_jprb &
32404  &, 0.135399e+01_jprb, 0.135379e+01_jprb, 0.135308e+01_jprb, 0.135185e+01_jprb &
32405  &, 0.135011e+01_jprb, 0.134786e+01_jprb, 0.134507e+01_jprb &
32406  &, 0.134184e+01_jprb, 0.133809e+01_jprb, 0.133385e+01_jprb, 0.132911e+01_jprb &
32407  &, 0.132388e+01_jprb, 0.131818e+01_jprb, 0.131202e+01_jprb &
32408  &, 0.130539e+01_jprb, 0.129831e+01_jprb, 0.129076e+01_jprb, 0.128279e+01_jprb &
32409  &, 0.127438e+01_jprb, 0.126555e+01_jprb, 0.125631e+01_jprb &
32410  &, 0.124668e+01_jprb, 0.123665e+01_jprb, 0.122623e+01_jprb, 0.121545e+01_jprb &
32411  &, 0.120431e+01_jprb, 0.119282e+01_jprb, 0.118101e+01_jprb &
32412  &, 0.116885e+01_jprb, 0.115641e+01_jprb, 0.114364e+01_jprb, 0.113061e+01_jprb &
32413  &, 0.111729e+01_jprb, 0.110370e+01_jprb, 0.108990e+01_jprb &
32414  &, 0.107584e+01_jprb, 0.106157e+01_jprb, 0.104707e+01_jprb, 0.103239e+01_jprb &
32415  &, 0.101753e+01_jprb, 0.100250e+01_jprb, 0.987325e+00_jprb &
32416  &, 0.972001e+00_jprb, 0.956535e+00_jprb, 0.940988e+00_jprb, 0.925318e+00_jprb &
32417  &, 0.909562e+00_jprb, 0.893727e+00_jprb, 0.877822e+00_jprb &
32418  &, 0.861883e+00_jprb, 0.845919e+00_jprb, 0.829908e+00_jprb, 0.813885e+00_jprb &
32419  &, 0.797855e+00_jprb, 0.781855e+00_jprb, 0.765858e+00_jprb &
32420  &, 0.749900e+00_jprb, 0.734015e+00_jprb, 0.718141e+00_jprb, 0.702379e+00_jprb &
32421  &, 0.686664e+00_jprb, 0.671027e+00_jprb, 0.655503e+00_jprb &
32422  &, 0.640091e+00_jprb, 0.624788e+00_jprb, 0.609590e+00_jprb, 0.594529e+00_jprb &
32423  &, 0.579638e+00_jprb, 0.564873e+00_jprb, 0.550225e+00_jprb &
32424  &, 0.535804e+00_jprb, 0.521521e+00_jprb, 0.507406e+00_jprb, 0.493488e+00_jprb &
32425  &, 0.479755e+00_jprb, 0.466194e+00_jprb, 0.452875e+00_jprb &
32426  &, 0.439740e+00_jprb, 0.426815e+00_jprb, 0.414083e+00_jprb, 0.401569e+00_jprb &
32427  &, 0.389252e+00_jprb, 0.377206e+00_jprb, 0.365361e+00_jprb &
32428  &, 0.353740e+00_jprb, 0.342318e+00_jprb, 0.331169e+00_jprb, 0.320266e+00_jprb &
32429  &, 0.309526e+00_jprb, 0.299078e+00_jprb, 0.288837e+00_jprb &
32430  &, 0.278824e+00_jprb, 0.269059e+00_jprb, 0.259564e+00_jprb, 0.250245e+00_jprb &
32431  &, 0.241178e+00_jprb, 0.232325e+00_jprb, 0.223702e+00_jprb &
32432  &, 0.215328e+00_jprb, 0.207161e+00_jprb, 0.199279e+00_jprb, 0.191575e+00_jprb &
32433  &, 0.184063e+00_jprb, 0.176823e+00_jprb, 0.169742e+00_jprb/)
32434 
32435 IF (lhook) CALL dr_hook('SU_MCICA:PART106',1,zhook_handle)
32436 END SUBROUTINE part106
32437 
32438 #ifdef VPP5000
32439 !OCL SCALAR
32440 #endif
32441 !option! -Nv -NO
32442 #ifdef RS6K
32443 @process nooptimize
32444 #endif
32445 !pgi$r opt=0
32446 SUBROUTINE part107
32447 
32448 REAL(KIND=JPRB) :: ZHOOK_HANDLE
32449 IF (lhook) CALL dr_hook('SU_MCICA:PART107',0,zhook_handle)
32450 
32451 xcw( 743, :) = (/ &
32452  & 0.106315e+01_jprb, 0.107825e+01_jprb, 0.109307e+01_jprb, 0.110757e+01_jprb &
32453  &, 0.112177e+01_jprb, 0.113564e+01_jprb, 0.114917e+01_jprb &
32454  &, 0.116236e+01_jprb, 0.117519e+01_jprb, 0.118767e+01_jprb, 0.119976e+01_jprb &
32455  &, 0.121148e+01_jprb, 0.122280e+01_jprb, 0.123372e+01_jprb &
32456  &, 0.124423e+01_jprb, 0.125433e+01_jprb, 0.126399e+01_jprb, 0.127322e+01_jprb &
32457  &, 0.128201e+01_jprb, 0.129035e+01_jprb, 0.129823e+01_jprb &
32458  &, 0.130565e+01_jprb, 0.131259e+01_jprb, 0.131906e+01_jprb, 0.132504e+01_jprb &
32459  &, 0.133054e+01_jprb, 0.133554e+01_jprb, 0.134005e+01_jprb &
32460  &, 0.134405e+01_jprb, 0.134754e+01_jprb, 0.135053e+01_jprb, 0.135301e+01_jprb &
32461  &, 0.135498e+01_jprb, 0.135642e+01_jprb, 0.135736e+01_jprb &
32462  &, 0.135778e+01_jprb, 0.135768e+01_jprb, 0.135706e+01_jprb, 0.135593e+01_jprb &
32463  &, 0.135429e+01_jprb, 0.135214e+01_jprb, 0.134948e+01_jprb &
32464  &, 0.134632e+01_jprb, 0.134265e+01_jprb, 0.133850e+01_jprb, 0.133385e+01_jprb &
32465  &, 0.132872e+01_jprb, 0.132312e+01_jprb, 0.131703e+01_jprb &
32466  &, 0.131049e+01_jprb, 0.130349e+01_jprb, 0.129602e+01_jprb, 0.128813e+01_jprb &
32467  &, 0.127980e+01_jprb, 0.127105e+01_jprb, 0.126188e+01_jprb &
32468  &, 0.125232e+01_jprb, 0.124236e+01_jprb, 0.123201e+01_jprb, 0.122129e+01_jprb &
32469  &, 0.121022e+01_jprb, 0.119879e+01_jprb, 0.118702e+01_jprb &
32470  &, 0.117493e+01_jprb, 0.116253e+01_jprb, 0.114982e+01_jprb, 0.113683e+01_jprb &
32471  &, 0.112355e+01_jprb, 0.111001e+01_jprb, 0.109624e+01_jprb &
32472  &, 0.108221e+01_jprb, 0.106796e+01_jprb, 0.105351e+01_jprb, 0.103885e+01_jprb &
32473  &, 0.102403e+01_jprb, 0.100902e+01_jprb, 0.993858e+00_jprb &
32474  &, 0.978544e+00_jprb, 0.963109e+00_jprb, 0.947540e+00_jprb, 0.931871e+00_jprb &
32475  &, 0.916137e+00_jprb, 0.900295e+00_jprb, 0.884408e+00_jprb &
32476  &, 0.868455e+00_jprb, 0.852445e+00_jprb, 0.836441e+00_jprb, 0.820392e+00_jprb &
32477  &, 0.804364e+00_jprb, 0.788330e+00_jprb, 0.772327e+00_jprb &
32478  &, 0.756328e+00_jprb, 0.740397e+00_jprb, 0.724506e+00_jprb, 0.708690e+00_jprb &
32479  &, 0.692950e+00_jprb, 0.677284e+00_jprb, 0.661693e+00_jprb &
32480  &, 0.646208e+00_jprb, 0.630864e+00_jprb, 0.615622e+00_jprb, 0.600512e+00_jprb &
32481  &, 0.585568e+00_jprb, 0.570746e+00_jprb, 0.556076e+00_jprb &
32482  &, 0.541549e+00_jprb, 0.527196e+00_jprb, 0.513048e+00_jprb, 0.499052e+00_jprb &
32483  &, 0.485237e+00_jprb, 0.471631e+00_jprb, 0.458221e+00_jprb &
32484  &, 0.444989e+00_jprb, 0.431964e+00_jprb, 0.419172e+00_jprb, 0.406595e+00_jprb &
32485  &, 0.394211e+00_jprb, 0.382047e+00_jprb, 0.370126e+00_jprb &
32486  &, 0.358427e+00_jprb, 0.346973e+00_jprb, 0.335686e+00_jprb, 0.324693e+00_jprb &
32487  &, 0.313912e+00_jprb, 0.303366e+00_jprb, 0.293023e+00_jprb &
32488  &, 0.282959e+00_jprb, 0.273085e+00_jprb, 0.263476e+00_jprb, 0.254097e+00_jprb &
32489  &, 0.244909e+00_jprb, 0.235988e+00_jprb, 0.227295e+00_jprb &
32490  &, 0.218849e+00_jprb, 0.210606e+00_jprb, 0.202583e+00_jprb, 0.194797e+00_jprb &
32491  &, 0.187200e+00_jprb, 0.179872e+00_jprb, 0.172765e+00_jprb/)
32492 xcw( 744, :) = (/ &
32493  & 0.106347e+01_jprb, 0.107866e+01_jprb, 0.109356e+01_jprb, 0.110816e+01_jprb &
32494  &, 0.112244e+01_jprb, 0.113640e+01_jprb, 0.115002e+01_jprb &
32495  &, 0.116331e+01_jprb, 0.117623e+01_jprb, 0.118880e+01_jprb, 0.120099e+01_jprb &
32496  &, 0.121280e+01_jprb, 0.122423e+01_jprb, 0.123525e+01_jprb &
32497  &, 0.124586e+01_jprb, 0.125605e+01_jprb, 0.126582e+01_jprb, 0.127515e+01_jprb &
32498  &, 0.128404e+01_jprb, 0.129248e+01_jprb, 0.130047e+01_jprb &
32499  &, 0.130799e+01_jprb, 0.131503e+01_jprb, 0.132161e+01_jprb, 0.132770e+01_jprb &
32500  &, 0.133330e+01_jprb, 0.133840e+01_jprb, 0.134301e+01_jprb &
32501  &, 0.134712e+01_jprb, 0.135072e+01_jprb, 0.135381e+01_jprb, 0.135640e+01_jprb &
32502  &, 0.135846e+01_jprb, 0.136002e+01_jprb, 0.136105e+01_jprb &
32503  &, 0.136157e+01_jprb, 0.136157e+01_jprb, 0.136106e+01_jprb, 0.136003e+01_jprb &
32504  &, 0.135849e+01_jprb, 0.135643e+01_jprb, 0.135387e+01_jprb &
32505  &, 0.135080e+01_jprb, 0.134724e+01_jprb, 0.134318e+01_jprb, 0.133862e+01_jprb &
32506  &, 0.133359e+01_jprb, 0.132806e+01_jprb, 0.132207e+01_jprb &
32507  &, 0.131561e+01_jprb, 0.130868e+01_jprb, 0.130132e+01_jprb, 0.129351e+01_jprb &
32508  &, 0.128525e+01_jprb, 0.127657e+01_jprb, 0.126749e+01_jprb &
32509  &, 0.125800e+01_jprb, 0.124810e+01_jprb, 0.123782e+01_jprb, 0.122717e+01_jprb &
32510  &, 0.121614e+01_jprb, 0.120478e+01_jprb, 0.119308e+01_jprb &
32511  &, 0.118105e+01_jprb, 0.116869e+01_jprb, 0.115602e+01_jprb, 0.114308e+01_jprb &
32512  &, 0.112986e+01_jprb, 0.111636e+01_jprb, 0.110262e+01_jprb &
32513  &, 0.108864e+01_jprb, 0.107442e+01_jprb, 0.105999e+01_jprb, 0.104536e+01_jprb &
32514  &, 0.103056e+01_jprb, 0.101556e+01_jprb, 0.100041e+01_jprb &
32515  &, 0.985135e+00_jprb, 0.969708e+00_jprb, 0.954143e+00_jprb, 0.938500e+00_jprb &
32516  &, 0.922738e+00_jprb, 0.906917e+00_jprb, 0.890993e+00_jprb &
32517  &, 0.875055e+00_jprb, 0.859057e+00_jprb, 0.843003e+00_jprb, 0.826959e+00_jprb &
32518  &, 0.810902e+00_jprb, 0.794867e+00_jprb, 0.778827e+00_jprb &
32519  &, 0.762819e+00_jprb, 0.746844e+00_jprb, 0.730904e+00_jprb, 0.715068e+00_jprb &
32520  &, 0.699269e+00_jprb, 0.683576e+00_jprb, 0.667953e+00_jprb &
32521  &, 0.652433e+00_jprb, 0.637013e+00_jprb, 0.621727e+00_jprb, 0.606569e+00_jprb &
32522  &, 0.591535e+00_jprb, 0.576657e+00_jprb, 0.561926e+00_jprb &
32523  &, 0.547375e+00_jprb, 0.532953e+00_jprb, 0.518691e+00_jprb, 0.504658e+00_jprb &
32524  &, 0.490761e+00_jprb, 0.477069e+00_jprb, 0.463611e+00_jprb &
32525  &, 0.450284e+00_jprb, 0.437204e+00_jprb, 0.424354e+00_jprb, 0.411668e+00_jprb &
32526  &, 0.399218e+00_jprb, 0.386984e+00_jprb, 0.374990e+00_jprb &
32527  &, 0.363163e+00_jprb, 0.351627e+00_jprb, 0.340306e+00_jprb, 0.329172e+00_jprb &
32528  &, 0.318297e+00_jprb, 0.307654e+00_jprb, 0.297264e+00_jprb &
32529  &, 0.287094e+00_jprb, 0.277166e+00_jprb, 0.267445e+00_jprb, 0.257948e+00_jprb &
32530  &, 0.248755e+00_jprb, 0.239710e+00_jprb, 0.230949e+00_jprb &
32531  &, 0.222370e+00_jprb, 0.214052e+00_jprb, 0.205950e+00_jprb, 0.198082e+00_jprb &
32532  &, 0.190401e+00_jprb, 0.182985e+00_jprb, 0.175787e+00_jprb/)
32533 xcw( 745, :) = (/ &
32534  & 0.106380e+01_jprb, 0.107907e+01_jprb, 0.109406e+01_jprb, 0.110874e+01_jprb &
32535  &, 0.112311e+01_jprb, 0.113716e+01_jprb, 0.115088e+01_jprb &
32536  &, 0.116425e+01_jprb, 0.117728e+01_jprb, 0.118994e+01_jprb, 0.120223e+01_jprb &
32537  &, 0.121414e+01_jprb, 0.122566e+01_jprb, 0.123677e+01_jprb &
32538  &, 0.124749e+01_jprb, 0.125769e+01_jprb, 0.126765e+01_jprb, 0.127708e+01_jprb &
32539  &, 0.128608e+01_jprb, 0.129462e+01_jprb, 0.130271e+01_jprb &
32540  &, 0.131033e+01_jprb, 0.131749e+01_jprb, 0.132416e+01_jprb, 0.133036e+01_jprb &
32541  &, 0.133606e+01_jprb, 0.134128e+01_jprb, 0.134599e+01_jprb &
32542  &, 0.135020e+01_jprb, 0.135391e+01_jprb, 0.135711e+01_jprb, 0.135979e+01_jprb &
32543  &, 0.136197e+01_jprb, 0.136362e+01_jprb, 0.136476e+01_jprb &
32544  &, 0.136538e+01_jprb, 0.136549e+01_jprb, 0.136508e+01_jprb, 0.136415e+01_jprb &
32545  &, 0.136270e+01_jprb, 0.136075e+01_jprb, 0.135828e+01_jprb &
32546  &, 0.135531e+01_jprb, 0.135185e+01_jprb, 0.134788e+01_jprb, 0.134342e+01_jprb &
32547  &, 0.133846e+01_jprb, 0.133303e+01_jprb, 0.132703e+01_jprb &
32548  &, 0.132075e+01_jprb, 0.131392e+01_jprb, 0.130662e+01_jprb, 0.129890e+01_jprb &
32549  &, 0.129073e+01_jprb, 0.128212e+01_jprb, 0.127310e+01_jprb &
32550  &, 0.126368e+01_jprb, 0.125387e+01_jprb, 0.124366e+01_jprb, 0.123308e+01_jprb &
32551  &, 0.122212e+01_jprb, 0.121081e+01_jprb, 0.119916e+01_jprb &
32552  &, 0.118718e+01_jprb, 0.117488e+01_jprb, 0.116228e+01_jprb, 0.114938e+01_jprb &
32553  &, 0.113619e+01_jprb, 0.112275e+01_jprb, 0.110904e+01_jprb &
32554  &, 0.109509e+01_jprb, 0.108090e+01_jprb, 0.106652e+01_jprb, 0.105191e+01_jprb &
32555  &, 0.103713e+01_jprb, 0.102217e+01_jprb, 0.100704e+01_jprb &
32556  &, 0.991750e+00_jprb, 0.976332e+00_jprb, 0.960797e+00_jprb, 0.945156e+00_jprb &
32557  &, 0.929392e+00_jprb, 0.913566e+00_jprb, 0.897661e+00_jprb &
32558  &, 0.881711e+00_jprb, 0.865696e+00_jprb, 0.849652e+00_jprb, 0.833585e+00_jprb &
32559  &, 0.817501e+00_jprb, 0.801434e+00_jprb, 0.785359e+00_jprb &
32560  &, 0.769342e+00_jprb, 0.753323e+00_jprb, 0.737368e+00_jprb, 0.721479e+00_jprb &
32561  &, 0.705657e+00_jprb, 0.689903e+00_jprb, 0.674249e+00_jprb &
32562  &, 0.658694e+00_jprb, 0.643235e+00_jprb, 0.627906e+00_jprb, 0.612665e+00_jprb &
32563  &, 0.597580e+00_jprb, 0.582646e+00_jprb, 0.567855e+00_jprb &
32564  &, 0.553240e+00_jprb, 0.538751e+00_jprb, 0.524457e+00_jprb, 0.510307e+00_jprb &
32565  &, 0.496371e+00_jprb, 0.482593e+00_jprb, 0.469045e+00_jprb &
32566  &, 0.455669e+00_jprb, 0.442535e+00_jprb, 0.429582e+00_jprb, 0.416835e+00_jprb &
32567  &, 0.404272e+00_jprb, 0.391969e+00_jprb, 0.379853e+00_jprb &
32568  &, 0.367999e+00_jprb, 0.356332e+00_jprb, 0.344926e+00_jprb, 0.333755e+00_jprb &
32569  &, 0.322788e+00_jprb, 0.312049e+00_jprb, 0.301558e+00_jprb &
32570  &, 0.291284e+00_jprb, 0.281304e+00_jprb, 0.271470e+00_jprb, 0.261915e+00_jprb &
32571  &, 0.252602e+00_jprb, 0.243491e+00_jprb, 0.234602e+00_jprb &
32572  &, 0.226012e+00_jprb, 0.217559e+00_jprb, 0.209379e+00_jprb, 0.201431e+00_jprb &
32573  &, 0.193666e+00_jprb, 0.186163e+00_jprb, 0.178876e+00_jprb/)
32574 xcw( 746, :) = (/ &
32575  & 0.106412e+01_jprb, 0.107948e+01_jprb, 0.109455e+01_jprb, 0.110932e+01_jprb &
32576  &, 0.112379e+01_jprb, 0.113793e+01_jprb, 0.115174e+01_jprb &
32577  &, 0.116521e+01_jprb, 0.117832e+01_jprb, 0.119108e+01_jprb, 0.120347e+01_jprb &
32578  &, 0.121547e+01_jprb, 0.122709e+01_jprb, 0.123831e+01_jprb &
32579  &, 0.124912e+01_jprb, 0.125952e+01_jprb, 0.126949e+01_jprb, 0.127902e+01_jprb &
32580  &, 0.128812e+01_jprb, 0.129677e+01_jprb, 0.130496e+01_jprb &
32581  &, 0.131269e+01_jprb, 0.131995e+01_jprb, 0.132673e+01_jprb, 0.133303e+01_jprb &
32582  &, 0.133884e+01_jprb, 0.134416e+01_jprb, 0.134898e+01_jprb &
32583  &, 0.135330e+01_jprb, 0.135711e+01_jprb, 0.136041e+01_jprb, 0.136320e+01_jprb &
32584  &, 0.136548e+01_jprb, 0.136724e+01_jprb, 0.136848e+01_jprb &
32585  &, 0.136921e+01_jprb, 0.136942e+01_jprb, 0.136910e+01_jprb, 0.136828e+01_jprb &
32586  &, 0.136694e+01_jprb, 0.136508e+01_jprb, 0.136272e+01_jprb &
32587  &, 0.135984e+01_jprb, 0.135647e+01_jprb, 0.135259e+01_jprb, 0.134822e+01_jprb &
32588  &, 0.134337e+01_jprb, 0.133803e+01_jprb, 0.133221e+01_jprb &
32589  &, 0.132592e+01_jprb, 0.131917e+01_jprb, 0.131197e+01_jprb, 0.130432e+01_jprb &
32590  &, 0.129622e+01_jprb, 0.128770e+01_jprb, 0.127877e+01_jprb &
32591  &, 0.126942e+01_jprb, 0.125966e+01_jprb, 0.124953e+01_jprb, 0.123900e+01_jprb &
32592  &, 0.122811e+01_jprb, 0.121687e+01_jprb, 0.120529e+01_jprb &
32593  &, 0.119335e+01_jprb, 0.118111e+01_jprb, 0.116855e+01_jprb, 0.115571e+01_jprb &
32594  &, 0.114257e+01_jprb, 0.112916e+01_jprb, 0.111550e+01_jprb &
32595  &, 0.110159e+01_jprb, 0.108745e+01_jprb, 0.107307e+01_jprb, 0.105851e+01_jprb &
32596  &, 0.104375e+01_jprb, 0.102881e+01_jprb, 0.101369e+01_jprb &
32597  &, 0.998439e+00_jprb, 0.983030e+00_jprb, 0.967501e+00_jprb, 0.951863e+00_jprb &
32598  &, 0.936125e+00_jprb, 0.920269e+00_jprb, 0.904383e+00_jprb &
32599  &, 0.888394e+00_jprb, 0.872393e+00_jprb, 0.856330e+00_jprb, 0.840240e+00_jprb &
32600  &, 0.824159e+00_jprb, 0.808062e+00_jprb, 0.791984e+00_jprb &
32601  &, 0.775928e+00_jprb, 0.759899e+00_jprb, 0.743897e+00_jprb, 0.727957e+00_jprb &
32602  &, 0.712113e+00_jprb, 0.696298e+00_jprb, 0.680614e+00_jprb &
32603  &, 0.664990e+00_jprb, 0.649494e+00_jprb, 0.634123e+00_jprb, 0.618835e+00_jprb &
32604  &, 0.603700e+00_jprb, 0.588712e+00_jprb, 0.573864e+00_jprb &
32605  &, 0.559146e+00_jprb, 0.544630e+00_jprb, 0.530224e+00_jprb, 0.516039e+00_jprb &
32606  &, 0.502023e+00_jprb, 0.488204e+00_jprb, 0.474568e+00_jprb &
32607  &, 0.461098e+00_jprb, 0.447866e+00_jprb, 0.434856e+00_jprb, 0.422001e+00_jprb &
32608  &, 0.409422e+00_jprb, 0.397003e+00_jprb, 0.384815e+00_jprb &
32609  &, 0.372885e+00_jprb, 0.361139e+00_jprb, 0.349649e+00_jprb, 0.338390e+00_jprb &
32610  &, 0.327332e+00_jprb, 0.316497e+00_jprb, 0.305907e+00_jprb &
32611  &, 0.295585e+00_jprb, 0.285441e+00_jprb, 0.275552e+00_jprb, 0.265939e+00_jprb &
32612  &, 0.256507e+00_jprb, 0.247332e+00_jprb, 0.238375e+00_jprb &
32613  &, 0.229655e+00_jprb, 0.221127e+00_jprb, 0.212871e+00_jprb, 0.204843e+00_jprb &
32614  &, 0.196994e+00_jprb, 0.189406e+00_jprb, 0.182030e+00_jprb/)
32615 xcw( 747, :) = (/ &
32616  & 0.106445e+01_jprb, 0.107989e+01_jprb, 0.109505e+01_jprb, 0.110991e+01_jprb &
32617  &, 0.112446e+01_jprb, 0.113869e+01_jprb, 0.115260e+01_jprb &
32618  &, 0.116616e+01_jprb, 0.117937e+01_jprb, 0.119222e+01_jprb, 0.120471e+01_jprb &
32619  &, 0.121681e+01_jprb, 0.122853e+01_jprb, 0.123985e+01_jprb &
32620  &, 0.125076e+01_jprb, 0.126126e+01_jprb, 0.127133e+01_jprb, 0.128097e+01_jprb &
32621  &, 0.129017e+01_jprb, 0.129892e+01_jprb, 0.130722e+01_jprb &
32622  &, 0.131505e+01_jprb, 0.132242e+01_jprb, 0.132930e+01_jprb, 0.133571e+01_jprb &
32623  &, 0.134163e+01_jprb, 0.134705e+01_jprb, 0.135198e+01_jprb &
32624  &, 0.135640e+01_jprb, 0.136032e+01_jprb, 0.136373e+01_jprb, 0.136663e+01_jprb &
32625  &, 0.136901e+01_jprb, 0.137088e+01_jprb, 0.137222e+01_jprb &
32626  &, 0.137305e+01_jprb, 0.137336e+01_jprb, 0.137315e+01_jprb, 0.137243e+01_jprb &
32627  &, 0.137118e+01_jprb, 0.136943e+01_jprb, 0.136716e+01_jprb &
32628  &, 0.136439e+01_jprb, 0.136111e+01_jprb, 0.135733e+01_jprb, 0.135306e+01_jprb &
32629  &, 0.134830e+01_jprb, 0.134304e+01_jprb, 0.133732e+01_jprb &
32630  &, 0.133111e+01_jprb, 0.132446e+01_jprb, 0.131733e+01_jprb, 0.130977e+01_jprb &
32631  &, 0.130175e+01_jprb, 0.129330e+01_jprb, 0.128445e+01_jprb &
32632  &, 0.127517e+01_jprb, 0.126549e+01_jprb, 0.125542e+01_jprb, 0.124498e+01_jprb &
32633  &, 0.123414e+01_jprb, 0.122296e+01_jprb, 0.121143e+01_jprb &
32634  &, 0.119957e+01_jprb, 0.118738e+01_jprb, 0.117489e+01_jprb, 0.116207e+01_jprb &
32635  &, 0.114898e+01_jprb, 0.113563e+01_jprb, 0.112197e+01_jprb &
32636  &, 0.110813e+01_jprb, 0.109402e+01_jprb, 0.107969e+01_jprb, 0.106515e+01_jprb &
32637  &, 0.105041e+01_jprb, 0.103549e+01_jprb, 0.102039e+01_jprb &
32638  &, 0.100515e+01_jprb, 0.989753e+00_jprb, 0.974256e+00_jprb, 0.958596e+00_jprb &
32639  &, 0.942858e+00_jprb, 0.927052e+00_jprb, 0.911132e+00_jprb &
32640  &, 0.895161e+00_jprb, 0.879118e+00_jprb, 0.863066e+00_jprb, 0.846954e+00_jprb &
32641  &, 0.830847e+00_jprb, 0.814751e+00_jprb, 0.798639e+00_jprb &
32642  &, 0.782546e+00_jprb, 0.766474e+00_jprb, 0.750459e+00_jprb, 0.734501e+00_jprb &
32643  &, 0.718603e+00_jprb, 0.702763e+00_jprb, 0.687015e+00_jprb &
32644  &, 0.671358e+00_jprb, 0.655825e+00_jprb, 0.640376e+00_jprb, 0.625044e+00_jprb &
32645  &, 0.609859e+00_jprb, 0.594818e+00_jprb, 0.579912e+00_jprb &
32646  &, 0.565133e+00_jprb, 0.550551e+00_jprb, 0.536115e+00_jprb, 0.521814e+00_jprb &
32647  &, 0.507762e+00_jprb, 0.493859e+00_jprb, 0.480135e+00_jprb &
32648  &, 0.466617e+00_jprb, 0.453288e+00_jprb, 0.440176e+00_jprb, 0.427262e+00_jprb &
32649  &, 0.414572e+00_jprb, 0.402085e+00_jprb, 0.389826e+00_jprb &
32650  &, 0.377821e+00_jprb, 0.365995e+00_jprb, 0.354423e+00_jprb, 0.343026e+00_jprb &
32651  &, 0.331929e+00_jprb, 0.320999e+00_jprb, 0.310365e+00_jprb &
32652  &, 0.299885e+00_jprb, 0.289691e+00_jprb, 0.279748e+00_jprb, 0.269963e+00_jprb &
32653  &, 0.260470e+00_jprb, 0.251231e+00_jprb, 0.242148e+00_jprb &
32654  &, 0.233357e+00_jprb, 0.224757e+00_jprb, 0.216425e+00_jprb, 0.208254e+00_jprb &
32655  &, 0.200259e+00_jprb, 0.192649e+00_jprb, 0.185184e+00_jprb/)
32656 xcw( 748, :) = (/ &
32657  & 0.106477e+01_jprb, 0.108031e+01_jprb, 0.109555e+01_jprb, 0.111050e+01_jprb &
32658  &, 0.112514e+01_jprb, 0.113946e+01_jprb, 0.115346e+01_jprb &
32659  &, 0.116711e+01_jprb, 0.118042e+01_jprb, 0.119337e+01_jprb, 0.120595e+01_jprb &
32660  &, 0.121815e+01_jprb, 0.122997e+01_jprb, 0.124139e+01_jprb &
32661  &, 0.125240e+01_jprb, 0.126300e+01_jprb, 0.127318e+01_jprb, 0.128292e+01_jprb &
32662  &, 0.129222e+01_jprb, 0.130108e+01_jprb, 0.130948e+01_jprb &
32663  &, 0.131742e+01_jprb, 0.132489e+01_jprb, 0.133189e+01_jprb, 0.133840e+01_jprb &
32664  &, 0.134443e+01_jprb, 0.134996e+01_jprb, 0.135499e+01_jprb &
32665  &, 0.135952e+01_jprb, 0.136354e+01_jprb, 0.136706e+01_jprb, 0.137006e+01_jprb &
32666  &, 0.137255e+01_jprb, 0.137452e+01_jprb, 0.137597e+01_jprb &
32667  &, 0.137691e+01_jprb, 0.137732e+01_jprb, 0.137722e+01_jprb, 0.137659e+01_jprb &
32668  &, 0.137545e+01_jprb, 0.137380e+01_jprb, 0.137163e+01_jprb &
32669  &, 0.136896e+01_jprb, 0.136578e+01_jprb, 0.136209e+01_jprb, 0.135792e+01_jprb &
32670  &, 0.135323e+01_jprb, 0.134808e+01_jprb, 0.134245e+01_jprb &
32671  &, 0.133633e+01_jprb, 0.132976e+01_jprb, 0.132272e+01_jprb, 0.131523e+01_jprb &
32672  &, 0.130730e+01_jprb, 0.129894e+01_jprb, 0.129016e+01_jprb &
32673  &, 0.128096e+01_jprb, 0.127135e+01_jprb, 0.126136e+01_jprb, 0.125097e+01_jprb &
32674  &, 0.124022e+01_jprb, 0.122909e+01_jprb, 0.121762e+01_jprb &
32675  &, 0.120582e+01_jprb, 0.119367e+01_jprb, 0.118124e+01_jprb, 0.116848e+01_jprb &
32676  &, 0.115543e+01_jprb, 0.114212e+01_jprb, 0.112853e+01_jprb &
32677  &, 0.111471e+01_jprb, 0.110063e+01_jprb, 0.108633e+01_jprb, 0.107181e+01_jprb &
32678  &, 0.105710e+01_jprb, 0.104222e+01_jprb, 0.102714e+01_jprb &
32679  &, 0.101191e+01_jprb, 0.996550e+00_jprb, 0.981036e+00_jprb, 0.965407e+00_jprb &
32680  &, 0.949670e+00_jprb, 0.933835e+00_jprb, 0.917936e+00_jprb &
32681  &, 0.901956e+00_jprb, 0.885927e+00_jprb, 0.869859e+00_jprb, 0.853727e+00_jprb &
32682  &, 0.837626e+00_jprb, 0.821471e+00_jprb, 0.805357e+00_jprb &
32683  &, 0.789227e+00_jprb, 0.773147e+00_jprb, 0.757086e+00_jprb, 0.741113e+00_jprb &
32684  &, 0.725160e+00_jprb, 0.709297e+00_jprb, 0.693522e+00_jprb &
32685  &, 0.677797e+00_jprb, 0.662192e+00_jprb, 0.646704e+00_jprb, 0.631327e+00_jprb &
32686  &, 0.616095e+00_jprb, 0.600962e+00_jprb, 0.586000e+00_jprb &
32687  &, 0.571199e+00_jprb, 0.556512e+00_jprb, 0.542007e+00_jprb, 0.527674e+00_jprb &
32688  &, 0.513543e+00_jprb, 0.499558e+00_jprb, 0.485790e+00_jprb &
32689  &, 0.472181e+00_jprb, 0.458802e+00_jprb, 0.445589e+00_jprb, 0.432617e+00_jprb &
32690  &, 0.419817e+00_jprb, 0.407264e+00_jprb, 0.394935e+00_jprb &
32691  &, 0.382807e+00_jprb, 0.370903e+00_jprb, 0.359249e+00_jprb, 0.347765e+00_jprb &
32692  &, 0.336579e+00_jprb, 0.325555e+00_jprb, 0.314823e+00_jprb &
32693  &, 0.304296e+00_jprb, 0.293996e+00_jprb, 0.283943e+00_jprb, 0.274102e+00_jprb &
32694  &, 0.264491e+00_jprb, 0.255131e+00_jprb, 0.246041e+00_jprb &
32695  &, 0.237121e+00_jprb, 0.228448e+00_jprb, 0.219979e+00_jprb, 0.211792e+00_jprb &
32696  &, 0.203780e+00_jprb, 0.196022e+00_jprb, 0.188404e+00_jprb/)
32697 xcw( 749, :) = (/ &
32698  & 0.106510e+01_jprb, 0.108072e+01_jprb, 0.109605e+01_jprb, 0.111109e+01_jprb &
32699  &, 0.112582e+01_jprb, 0.114023e+01_jprb, 0.115432e+01_jprb &
32700  &, 0.116807e+01_jprb, 0.118147e+01_jprb, 0.119452e+01_jprb, 0.120720e+01_jprb &
32701  &, 0.121950e+01_jprb, 0.123142e+01_jprb, 0.124294e+01_jprb &
32702  &, 0.125405e+01_jprb, 0.126475e+01_jprb, 0.127503e+01_jprb, 0.128488e+01_jprb &
32703  &, 0.129429e+01_jprb, 0.130325e+01_jprb, 0.131176e+01_jprb &
32704  &, 0.131980e+01_jprb, 0.132738e+01_jprb, 0.133448e+01_jprb, 0.134110e+01_jprb &
32705  &, 0.134723e+01_jprb, 0.135287e+01_jprb, 0.135801e+01_jprb &
32706  &, 0.136265e+01_jprb, 0.136678e+01_jprb, 0.137040e+01_jprb, 0.137351e+01_jprb &
32707  &, 0.137611e+01_jprb, 0.137819e+01_jprb, 0.137974e+01_jprb &
32708  &, 0.138078e+01_jprb, 0.138130e+01_jprb, 0.138130e+01_jprb, 0.138078e+01_jprb &
32709  &, 0.137973e+01_jprb, 0.137818e+01_jprb, 0.137612e+01_jprb &
32710  &, 0.137354e+01_jprb, 0.137045e+01_jprb, 0.136687e+01_jprb, 0.136278e+01_jprb &
32711  &, 0.135821e+01_jprb, 0.135314e+01_jprb, 0.134759e+01_jprb &
32712  &, 0.134157e+01_jprb, 0.133509e+01_jprb, 0.132814e+01_jprb, 0.132073e+01_jprb &
32713  &, 0.131288e+01_jprb, 0.130461e+01_jprb, 0.129589e+01_jprb &
32714  &, 0.128677e+01_jprb, 0.127725e+01_jprb, 0.126731e+01_jprb, 0.125699e+01_jprb &
32715  &, 0.124631e+01_jprb, 0.123525e+01_jprb, 0.122384e+01_jprb &
32716  &, 0.121210e+01_jprb, 0.120002e+01_jprb, 0.118762e+01_jprb, 0.117493e+01_jprb &
32717  &, 0.116192e+01_jprb, 0.114865e+01_jprb, 0.113512e+01_jprb &
32718  &, 0.112133e+01_jprb, 0.110728e+01_jprb, 0.109301e+01_jprb, 0.107854e+01_jprb &
32719  &, 0.106386e+01_jprb, 0.104898e+01_jprb, 0.103394e+01_jprb &
32720  &, 0.101872e+01_jprb, 0.100337e+01_jprb, 0.987867e+00_jprb, 0.972269e+00_jprb &
32721  &, 0.956534e+00_jprb, 0.940698e+00_jprb, 0.924795e+00_jprb &
32722  &, 0.908806e+00_jprb, 0.892766e+00_jprb, 0.876681e+00_jprb, 0.860559e+00_jprb &
32723  &, 0.844434e+00_jprb, 0.828282e+00_jprb, 0.812106e+00_jprb &
32724  &, 0.795972e+00_jprb, 0.779852e+00_jprb, 0.763779e+00_jprb, 0.747757e+00_jprb &
32725  &, 0.731786e+00_jprb, 0.715865e+00_jprb, 0.700028e+00_jprb &
32726  &, 0.684308e+00_jprb, 0.668633e+00_jprb, 0.653105e+00_jprb, 0.637686e+00_jprb &
32727  &, 0.622368e+00_jprb, 0.607224e+00_jprb, 0.592166e+00_jprb &
32728  &, 0.577306e+00_jprb, 0.562554e+00_jprb, 0.547981e+00_jprb, 0.533575e+00_jprb &
32729  &, 0.519367e+00_jprb, 0.505343e+00_jprb, 0.491446e+00_jprb &
32730  &, 0.477790e+00_jprb, 0.464315e+00_jprb, 0.451049e+00_jprb, 0.437972e+00_jprb &
32731  &, 0.425158e+00_jprb, 0.412491e+00_jprb, 0.400093e+00_jprb &
32732  &, 0.387842e+00_jprb, 0.375861e+00_jprb, 0.364126e+00_jprb, 0.352609e+00_jprb &
32733  &, 0.341281e+00_jprb, 0.330218e+00_jprb, 0.319335e+00_jprb &
32734  &, 0.308762e+00_jprb, 0.298357e+00_jprb, 0.288195e+00_jprb, 0.278298e+00_jprb &
32735  &, 0.268629e+00_jprb, 0.259148e+00_jprb, 0.249934e+00_jprb &
32736  &, 0.240946e+00_jprb, 0.232201e+00_jprb, 0.223657e+00_jprb, 0.215331e+00_jprb &
32737  &, 0.207237e+00_jprb, 0.199395e+00_jprb, 0.191755e+00_jprb/)
32738 
32739 IF (lhook) CALL dr_hook('SU_MCICA:PART107',1,zhook_handle)
32740 END SUBROUTINE part107
32741 
32742 #ifdef VPP5000
32743 !OCL SCALAR
32744 #endif
32745 !option! -Nv -NO
32746 #ifdef RS6K
32747 @process nooptimize
32748 #endif
32749 !pgi$r opt=0
32750 SUBROUTINE part108
32751 
32752 REAL(KIND=JPRB) :: ZHOOK_HANDLE
32753 IF (lhook) CALL dr_hook('SU_MCICA:PART108',0,zhook_handle)
32754 
32755 xcw( 750, :) = (/ &
32756  & 0.106543e+01_jprb, 0.108113e+01_jprb, 0.109655e+01_jprb, 0.111168e+01_jprb &
32757  &, 0.112650e+01_jprb, 0.114101e+01_jprb, 0.115519e+01_jprb &
32758  &, 0.116903e+01_jprb, 0.118253e+01_jprb, 0.119567e+01_jprb, 0.120845e+01_jprb &
32759  &, 0.122085e+01_jprb, 0.123287e+01_jprb, 0.124449e+01_jprb &
32760  &, 0.125570e+01_jprb, 0.126651e+01_jprb, 0.127689e+01_jprb, 0.128684e+01_jprb &
32761  &, 0.129636e+01_jprb, 0.130542e+01_jprb, 0.131403e+01_jprb &
32762  &, 0.132219e+01_jprb, 0.132987e+01_jprb, 0.133708e+01_jprb, 0.134381e+01_jprb &
32763  &, 0.135004e+01_jprb, 0.135579e+01_jprb, 0.136104e+01_jprb &
32764  &, 0.136579e+01_jprb, 0.137003e+01_jprb, 0.137376e+01_jprb, 0.137697e+01_jprb &
32765  &, 0.137967e+01_jprb, 0.138186e+01_jprb, 0.138352e+01_jprb &
32766  &, 0.138467e+01_jprb, 0.138529e+01_jprb, 0.138540e+01_jprb, 0.138497e+01_jprb &
32767  &, 0.138404e+01_jprb, 0.138259e+01_jprb, 0.138062e+01_jprb &
32768  &, 0.137815e+01_jprb, 0.137517e+01_jprb, 0.137167e+01_jprb, 0.136768e+01_jprb &
32769  &, 0.136320e+01_jprb, 0.135822e+01_jprb, 0.135277e+01_jprb &
32770  &, 0.134684e+01_jprb, 0.134044e+01_jprb, 0.133357e+01_jprb, 0.132625e+01_jprb &
32771  &, 0.131849e+01_jprb, 0.131029e+01_jprb, 0.130166e+01_jprb &
32772  &, 0.129262e+01_jprb, 0.128316e+01_jprb, 0.127330e+01_jprb, 0.126305e+01_jprb &
32773  &, 0.125244e+01_jprb, 0.124145e+01_jprb, 0.123010e+01_jprb &
32774  &, 0.121841e+01_jprb, 0.120640e+01_jprb, 0.119405e+01_jprb, 0.118140e+01_jprb &
32775  &, 0.116845e+01_jprb, 0.115522e+01_jprb, 0.114173e+01_jprb &
32776  &, 0.112797e+01_jprb, 0.111398e+01_jprb, 0.109976e+01_jprb, 0.108530e+01_jprb &
32777  &, 0.107064e+01_jprb, 0.105580e+01_jprb, 0.104078e+01_jprb &
32778  &, 0.102558e+01_jprb, 0.101024e+01_jprb, 0.994749e+00_jprb, 0.979156e+00_jprb &
32779  &, 0.963425e+00_jprb, 0.947615e+00_jprb, 0.931709e+00_jprb &
32780  &, 0.915712e+00_jprb, 0.899661e+00_jprb, 0.883561e+00_jprb, 0.867450e+00_jprb &
32781  &, 0.851273e+00_jprb, 0.835124e+00_jprb, 0.818949e+00_jprb &
32782  &, 0.802780e+00_jprb, 0.786621e+00_jprb, 0.770538e+00_jprb, 0.754469e+00_jprb &
32783  &, 0.738446e+00_jprb, 0.722503e+00_jprb, 0.706640e+00_jprb &
32784  &, 0.690855e+00_jprb, 0.675146e+00_jprb, 0.659544e+00_jprb, 0.644082e+00_jprb &
32785  &, 0.628719e+00_jprb, 0.613485e+00_jprb, 0.598412e+00_jprb &
32786  &, 0.583453e+00_jprb, 0.568679e+00_jprb, 0.554038e+00_jprb, 0.539561e+00_jprb &
32787  &, 0.525276e+00_jprb, 0.511172e+00_jprb, 0.497233e+00_jprb &
32788  &, 0.483488e+00_jprb, 0.469919e+00_jprb, 0.456600e+00_jprb, 0.443420e+00_jprb &
32789  &, 0.430499e+00_jprb, 0.417767e+00_jprb, 0.405252e+00_jprb &
32790  &, 0.392977e+00_jprb, 0.380920e+00_jprb, 0.369054e+00_jprb, 0.357452e+00_jprb &
32791  &, 0.346036e+00_jprb, 0.334881e+00_jprb, 0.323956e+00_jprb &
32792  &, 0.313228e+00_jprb, 0.302774e+00_jprb, 0.292561e+00_jprb, 0.282552e+00_jprb &
32793  &, 0.272767e+00_jprb, 0.263225e+00_jprb, 0.253887e+00_jprb &
32794  &, 0.244831e+00_jprb, 0.235954e+00_jprb, 0.227336e+00_jprb, 0.218932e+00_jprb &
32795  &, 0.210758e+00_jprb, 0.202833e+00_jprb, 0.195106e+00_jprb/)
32796 xcw( 751, :) = (/ &
32797  & 0.106576e+01_jprb, 0.108155e+01_jprb, 0.109706e+01_jprb, 0.111227e+01_jprb &
32798  &, 0.112718e+01_jprb, 0.114178e+01_jprb, 0.115606e+01_jprb &
32799  &, 0.117000e+01_jprb, 0.118359e+01_jprb, 0.119683e+01_jprb, 0.120971e+01_jprb &
32800  &, 0.122221e+01_jprb, 0.123432e+01_jprb, 0.124604e+01_jprb &
32801  &, 0.125736e+01_jprb, 0.126827e+01_jprb, 0.127876e+01_jprb, 0.128881e+01_jprb &
32802  &, 0.129843e+01_jprb, 0.130760e+01_jprb, 0.131632e+01_jprb &
32803  &, 0.132458e+01_jprb, 0.133237e+01_jprb, 0.133969e+01_jprb, 0.134652e+01_jprb &
32804  &, 0.135287e+01_jprb, 0.135873e+01_jprb, 0.136408e+01_jprb &
32805  &, 0.136894e+01_jprb, 0.137328e+01_jprb, 0.137712e+01_jprb, 0.138045e+01_jprb &
32806  &, 0.138326e+01_jprb, 0.138555e+01_jprb, 0.138732e+01_jprb &
32807  &, 0.138857e+01_jprb, 0.138929e+01_jprb, 0.138950e+01_jprb, 0.138919e+01_jprb &
32808  &, 0.138836e+01_jprb, 0.138701e+01_jprb, 0.138515e+01_jprb &
32809  &, 0.138278e+01_jprb, 0.137989e+01_jprb, 0.137649e+01_jprb, 0.137261e+01_jprb &
32810  &, 0.136821e+01_jprb, 0.136333e+01_jprb, 0.135797e+01_jprb &
32811  &, 0.135214e+01_jprb, 0.134581e+01_jprb, 0.133904e+01_jprb, 0.133181e+01_jprb &
32812  &, 0.132412e+01_jprb, 0.131601e+01_jprb, 0.130746e+01_jprb &
32813  &, 0.129849e+01_jprb, 0.128911e+01_jprb, 0.127932e+01_jprb, 0.126914e+01_jprb &
32814  &, 0.125860e+01_jprb, 0.124768e+01_jprb, 0.123639e+01_jprb &
32815  &, 0.122476e+01_jprb, 0.121280e+01_jprb, 0.120052e+01_jprb, 0.118791e+01_jprb &
32816  &, 0.117502e+01_jprb, 0.116185e+01_jprb, 0.114840e+01_jprb &
32817  &, 0.113468e+01_jprb, 0.112072e+01_jprb, 0.110653e+01_jprb, 0.109210e+01_jprb &
32818  &, 0.107748e+01_jprb, 0.106267e+01_jprb, 0.104767e+01_jprb &
32819  &, 0.103249e+01_jprb, 0.101716e+01_jprb, 0.100171e+01_jprb, 0.986096e+00_jprb &
32820  &, 0.970395e+00_jprb, 0.954559e+00_jprb, 0.938649e+00_jprb &
32821  &, 0.922674e+00_jprb, 0.906613e+00_jprb, 0.890528e+00_jprb, 0.874370e+00_jprb &
32822  &, 0.858201e+00_jprb, 0.841997e+00_jprb, 0.825822e+00_jprb &
32823  &, 0.809620e+00_jprb, 0.793454e+00_jprb, 0.777330e+00_jprb, 0.761214e+00_jprb &
32824  &, 0.745173e+00_jprb, 0.729209e+00_jprb, 0.713287e+00_jprb &
32825  &, 0.697438e+00_jprb, 0.681149e+00_jprb, 0.666056e+00_jprb, 0.650554e+00_jprb &
32826  &, 0.635145e+00_jprb, 0.619862e+00_jprb, 0.604697e+00_jprb &
32827  &, 0.589680e+00_jprb, 0.574844e+00_jprb, 0.560137e+00_jprb, 0.545588e+00_jprb &
32828  &, 0.531229e+00_jprb, 0.517045e+00_jprb, 0.503065e+00_jprb &
32829  &, 0.489232e+00_jprb, 0.475615e+00_jprb, 0.462198e+00_jprb, 0.448963e+00_jprb &
32830  &, 0.435934e+00_jprb, 0.423140e+00_jprb, 0.410557e+00_jprb &
32831  &, 0.398162e+00_jprb, 0.386030e+00_jprb, 0.374084e+00_jprb, 0.362348e+00_jprb &
32832  &, 0.350897e+00_jprb, 0.339651e+00_jprb, 0.328631e+00_jprb &
32833  &, 0.317804e+00_jprb, 0.307247e+00_jprb, 0.296927e+00_jprb, 0.286806e+00_jprb &
32834  &, 0.276963e+00_jprb, 0.267361e+00_jprb, 0.257959e+00_jprb &
32835  &, 0.248776e+00_jprb, 0.239830e+00_jprb, 0.231077e+00_jprb, 0.222596e+00_jprb &
32836  &, 0.214343e+00_jprb, 0.206335e+00_jprb, 0.198458e+00_jprb/)
32837 xcw( 752, :) = (/ &
32838  & 0.106609e+01_jprb, 0.108196e+01_jprb, 0.109756e+01_jprb, 0.111287e+01_jprb &
32839  &, 0.112787e+01_jprb, 0.114256e+01_jprb, 0.115693e+01_jprb &
32840  &, 0.117096e+01_jprb, 0.118465e+01_jprb, 0.119799e+01_jprb, 0.121096e+01_jprb &
32841  &, 0.122356e+01_jprb, 0.123578e+01_jprb, 0.124760e+01_jprb &
32842  &, 0.125902e+01_jprb, 0.127004e+01_jprb, 0.128063e+01_jprb, 0.129079e+01_jprb &
32843  &, 0.130051e+01_jprb, 0.130979e+01_jprb, 0.131862e+01_jprb &
32844  &, 0.132698e+01_jprb, 0.133488e+01_jprb, 0.134231e+01_jprb, 0.134925e+01_jprb &
32845  &, 0.135570e+01_jprb, 0.136167e+01_jprb, 0.136713e+01_jprb &
32846  &, 0.137210e+01_jprb, 0.137655e+01_jprb, 0.138050e+01_jprb, 0.138394e+01_jprb &
32847  &, 0.138685e+01_jprb, 0.138925e+01_jprb, 0.139113e+01_jprb &
32848  &, 0.139249e+01_jprb, 0.139332e+01_jprb, 0.139364e+01_jprb, 0.139339e+01_jprb &
32849  &, 0.139270e+01_jprb, 0.139146e+01_jprb, 0.138970e+01_jprb &
32850  &, 0.138742e+01_jprb, 0.138463e+01_jprb, 0.138134e+01_jprb, 0.137754e+01_jprb &
32851  &, 0.137325e+01_jprb, 0.136847e+01_jprb, 0.136320e+01_jprb &
32852  &, 0.135745e+01_jprb, 0.135123e+01_jprb, 0.134454e+01_jprb, 0.133739e+01_jprb &
32853  &, 0.132979e+01_jprb, 0.132175e+01_jprb, 0.131329e+01_jprb &
32854  &, 0.130439e+01_jprb, 0.129509e+01_jprb, 0.128539e+01_jprb, 0.127528e+01_jprb &
32855  &, 0.126480e+01_jprb, 0.125393e+01_jprb, 0.124272e+01_jprb &
32856  &, 0.123115e+01_jprb, 0.121925e+01_jprb, 0.120702e+01_jprb, 0.119448e+01_jprb &
32857  &, 0.118163e+01_jprb, 0.116850e+01_jprb, 0.115509e+01_jprb &
32858  &, 0.114143e+01_jprb, 0.112750e+01_jprb, 0.111334e+01_jprb, 0.109896e+01_jprb &
32859  &, 0.108435e+01_jprb, 0.106956e+01_jprb, 0.105458e+01_jprb &
32860  &, 0.103945e+01_jprb, 0.102414e+01_jprb, 0.100869e+01_jprb, 0.993087e+00_jprb &
32861  &, 0.977391e+00_jprb, 0.961583e+00_jprb, 0.945672e+00_jprb &
32862  &, 0.929691e+00_jprb, 0.913621e+00_jprb, 0.897524e+00_jprb, 0.881349e+00_jprb &
32863  &, 0.865160e+00_jprb, 0.848961e+00_jprb, 0.832758e+00_jprb &
32864  &, 0.816554e+00_jprb, 0.800353e+00_jprb, 0.784187e+00_jprb, 0.768059e+00_jprb &
32865  &, 0.751969e+00_jprb, 0.735951e+00_jprb, 0.720004e+00_jprb &
32866  &, 0.704128e+00_jprb, 0.688281e+00_jprb, 0.672642e+00_jprb, 0.657063e+00_jprb &
32867  &, 0.641610e+00_jprb, 0.626279e+00_jprb, 0.611062e+00_jprb &
32868  &, 0.595988e+00_jprb, 0.581050e+00_jprb, 0.566319e+00_jprb, 0.551700e+00_jprb &
32869  &, 0.537267e+00_jprb, 0.523004e+00_jprb, 0.508942e+00_jprb &
32870  &, 0.495020e+00_jprb, 0.481356e+00_jprb, 0.467843e+00_jprb, 0.454553e+00_jprb &
32871  &, 0.441418e+00_jprb, 0.428561e+00_jprb, 0.415863e+00_jprb &
32872  &, 0.403397e+00_jprb, 0.391191e+00_jprb, 0.379167e+00_jprb, 0.367348e+00_jprb &
32873  &, 0.355811e+00_jprb, 0.344475e+00_jprb, 0.333360e+00_jprb &
32874  &, 0.322435e+00_jprb, 0.311776e+00_jprb, 0.301406e+00_jprb, 0.291175e+00_jprb &
32875  &, 0.281218e+00_jprb, 0.271497e+00_jprb, 0.262032e+00_jprb &
32876  &, 0.252783e+00_jprb, 0.243706e+00_jprb, 0.234943e+00_jprb, 0.226324e+00_jprb &
32877  &, 0.217992e+00_jprb, 0.209838e+00_jprb, 0.201940e+00_jprb/)
32878 xcw( 753, :) = (/ &
32879  & 0.106642e+01_jprb, 0.108238e+01_jprb, 0.109807e+01_jprb, 0.111346e+01_jprb &
32880  &, 0.112856e+01_jprb, 0.114334e+01_jprb, 0.115780e+01_jprb &
32881  &, 0.117193e+01_jprb, 0.118572e+01_jprb, 0.119915e+01_jprb, 0.121223e+01_jprb &
32882  &, 0.122493e+01_jprb, 0.123724e+01_jprb, 0.124917e+01_jprb &
32883  &, 0.126069e+01_jprb, 0.127181e+01_jprb, 0.128250e+01_jprb, 0.129277e+01_jprb &
32884  &, 0.130260e+01_jprb, 0.131199e+01_jprb, 0.132092e+01_jprb &
32885  &, 0.132939e+01_jprb, 0.133740e+01_jprb, 0.134493e+01_jprb, 0.135198e+01_jprb &
32886  &, 0.135855e+01_jprb, 0.136462e+01_jprb, 0.137020e+01_jprb &
32887  &, 0.137527e+01_jprb, 0.137984e+01_jprb, 0.138390e+01_jprb, 0.138744e+01_jprb &
32888  &, 0.139046e+01_jprb, 0.139297e+01_jprb, 0.139496e+01_jprb &
32889  &, 0.139642e+01_jprb, 0.139736e+01_jprb, 0.139778e+01_jprb, 0.139768e+01_jprb &
32890  &, 0.139705e+01_jprb, 0.139592e+01_jprb, 0.139426e+01_jprb &
32891  &, 0.139208e+01_jprb, 0.138940e+01_jprb, 0.138621e+01_jprb, 0.138250e+01_jprb &
32892  &, 0.137831e+01_jprb, 0.137362e+01_jprb, 0.136845e+01_jprb &
32893  &, 0.136279e+01_jprb, 0.135666e+01_jprb, 0.135005e+01_jprb, 0.134299e+01_jprb &
32894  &, 0.133548e+01_jprb, 0.132754e+01_jprb, 0.131914e+01_jprb &
32895  &, 0.131033e+01_jprb, 0.130110e+01_jprb, 0.129147e+01_jprb, 0.128144e+01_jprb &
32896  &, 0.127103e+01_jprb, 0.126023e+01_jprb, 0.124908e+01_jprb &
32897  &, 0.123757e+01_jprb, 0.122573e+01_jprb, 0.121356e+01_jprb, 0.120106e+01_jprb &
32898  &, 0.118826e+01_jprb, 0.117519e+01_jprb, 0.116182e+01_jprb &
32899  &, 0.114819e+01_jprb, 0.113432e+01_jprb, 0.112020e+01_jprb, 0.110585e+01_jprb &
32900  &, 0.109129e+01_jprb, 0.107653e+01_jprb, 0.106157e+01_jprb &
32901  &, 0.104643e+01_jprb, 0.103116e+01_jprb, 0.101570e+01_jprb, 0.100013e+01_jprb &
32902  &, 0.984439e+00_jprb, 0.968634e+00_jprb, 0.952722e+00_jprb &
32903  &, 0.936737e+00_jprb, 0.920687e+00_jprb, 0.904549e+00_jprb, 0.888387e+00_jprb &
32904  &, 0.872208e+00_jprb, 0.855986e+00_jprb, 0.839756e+00_jprb &
32905  &, 0.823521e+00_jprb, 0.807283e+00_jprb, 0.791110e+00_jprb, 0.774937e+00_jprb &
32906  &, 0.758832e+00_jprb, 0.742761e+00_jprb, 0.726757e+00_jprb &
32907  &, 0.710853e+00_jprb, 0.695012e+00_jprb, 0.679303e+00_jprb, 0.663647e+00_jprb &
32908  &, 0.648152e+00_jprb, 0.632735e+00_jprb, 0.617465e+00_jprb &
32909  &, 0.602336e+00_jprb, 0.587378e+00_jprb, 0.572542e+00_jprb, 0.557855e+00_jprb &
32910  &, 0.543348e+00_jprb, 0.529051e+00_jprb, 0.514862e+00_jprb &
32911  &, 0.500898e+00_jprb, 0.487143e+00_jprb, 0.473580e+00_jprb, 0.460189e+00_jprb &
32912  &, 0.446997e+00_jprb, 0.434030e+00_jprb, 0.421267e+00_jprb &
32913  &, 0.408732e+00_jprb, 0.396402e+00_jprb, 0.384300e+00_jprb, 0.372400e+00_jprb &
32914  &, 0.360778e+00_jprb, 0.349298e+00_jprb, 0.338144e+00_jprb &
32915  &, 0.327122e+00_jprb, 0.316417e+00_jprb, 0.305885e+00_jprb, 0.295601e+00_jprb &
32916  &, 0.285589e+00_jprb, 0.275751e+00_jprb, 0.266164e+00_jprb &
32917  &, 0.256789e+00_jprb, 0.247705e+00_jprb, 0.238808e+00_jprb, 0.230115e+00_jprb &
32918  &, 0.221706e+00_jprb, 0.213470e+00_jprb, 0.205489e+00_jprb/)
32919 xcw( 754, :) = (/ &
32920  & 0.106675e+01_jprb, 0.108280e+01_jprb, 0.109857e+01_jprb, 0.111406e+01_jprb &
32921  &, 0.112924e+01_jprb, 0.114412e+01_jprb, 0.115868e+01_jprb &
32922  &, 0.117290e+01_jprb, 0.118679e+01_jprb, 0.120032e+01_jprb, 0.121349e+01_jprb &
32923  &, 0.122629e+01_jprb, 0.123871e+01_jprb, 0.125074e+01_jprb &
32924  &, 0.126237e+01_jprb, 0.127359e+01_jprb, 0.128439e+01_jprb, 0.129476e+01_jprb &
32925  &, 0.130470e+01_jprb, 0.131419e+01_jprb, 0.132323e+01_jprb &
32926  &, 0.133181e+01_jprb, 0.133993e+01_jprb, 0.134757e+01_jprb, 0.135473e+01_jprb &
32927  &, 0.136140e+01_jprb, 0.136759e+01_jprb, 0.137327e+01_jprb &
32928  &, 0.137846e+01_jprb, 0.138313e+01_jprb, 0.138730e+01_jprb, 0.139095e+01_jprb &
32929  &, 0.139409e+01_jprb, 0.139670e+01_jprb, 0.139880e+01_jprb &
32930  &, 0.140037e+01_jprb, 0.140141e+01_jprb, 0.140195e+01_jprb, 0.140195e+01_jprb &
32931  &, 0.140143e+01_jprb, 0.140040e+01_jprb, 0.139884e+01_jprb &
32932  &, 0.139676e+01_jprb, 0.139418e+01_jprb, 0.139109e+01_jprb, 0.138748e+01_jprb &
32933  &, 0.138339e+01_jprb, 0.137881e+01_jprb, 0.137372e+01_jprb &
32934  &, 0.136816e+01_jprb, 0.136211e+01_jprb, 0.135561e+01_jprb, 0.134864e+01_jprb &
32935  &, 0.134121e+01_jprb, 0.133334e+01_jprb, 0.132503e+01_jprb &
32936  &, 0.131630e+01_jprb, 0.130714e+01_jprb, 0.129759e+01_jprb, 0.128763e+01_jprb &
32937  &, 0.127727e+01_jprb, 0.126657e+01_jprb, 0.125547e+01_jprb &
32938  &, 0.124403e+01_jprb, 0.123225e+01_jprb, 0.122014e+01_jprb, 0.120755e+01_jprb &
32939  &, 0.119495e+01_jprb, 0.118193e+01_jprb, 0.116862e+01_jprb &
32940  &, 0.115503e+01_jprb, 0.114117e+01_jprb, 0.112710e+01_jprb, 0.111279e+01_jprb &
32941  &, 0.109825e+01_jprb, 0.108351e+01_jprb, 0.106858e+01_jprb &
32942  &, 0.105348e+01_jprb, 0.103820e+01_jprb, 0.102278e+01_jprb, 0.100722e+01_jprb &
32943  &, 0.991540e+00_jprb, 0.975739e+00_jprb, 0.959827e+00_jprb &
32944  &, 0.943866e+00_jprb, 0.927780e+00_jprb, 0.911660e+00_jprb, 0.895484e+00_jprb &
32945  &, 0.879286e+00_jprb, 0.863042e+00_jprb, 0.846785e+00_jprb &
32946  &, 0.830550e+00_jprb, 0.814245e+00_jprb, 0.798065e+00_jprb, 0.781882e+00_jprb &
32947  &, 0.765730e+00_jprb, 0.749641e+00_jprb, 0.733615e+00_jprb &
32948  &, 0.717650e+00_jprb, 0.701780e+00_jprb, 0.686000e+00_jprb, 0.670307e+00_jprb &
32949  &, 0.654731e+00_jprb, 0.639268e+00_jprb, 0.623948e+00_jprb &
32950  &, 0.608764e+00_jprb, 0.593707e+00_jprb, 0.578848e+00_jprb, 0.564093e+00_jprb &
32951  &, 0.549514e+00_jprb, 0.535140e+00_jprb, 0.520915e+00_jprb &
32952  &, 0.506866e+00_jprb, 0.493021e+00_jprb, 0.479363e+00_jprb, 0.465873e+00_jprb &
32953  &, 0.452624e+00_jprb, 0.439596e+00_jprb, 0.426720e+00_jprb &
32954  &, 0.414116e+00_jprb, 0.401714e+00_jprb, 0.389485e+00_jprb, 0.377504e+00_jprb &
32955  &, 0.365797e+00_jprb, 0.354283e+00_jprb, 0.342982e+00_jprb &
32956  &, 0.331918e+00_jprb, 0.321057e+00_jprb, 0.310477e+00_jprb, 0.300085e+00_jprb &
32957  &, 0.289960e+00_jprb, 0.280064e+00_jprb, 0.270357e+00_jprb &
32958  &, 0.260917e+00_jprb, 0.251704e+00_jprb, 0.242736e+00_jprb, 0.233969e+00_jprb &
32959  &, 0.225419e+00_jprb, 0.217102e+00_jprb, 0.209037e+00_jprb/)
32960 xcw( 755, :) = (/ &
32961  & 0.106708e+01_jprb, 0.108322e+01_jprb, 0.109908e+01_jprb, 0.111466e+01_jprb &
32962  &, 0.112993e+01_jprb, 0.114490e+01_jprb, 0.115955e+01_jprb &
32963  &, 0.117388e+01_jprb, 0.118786e+01_jprb, 0.120149e+01_jprb, 0.121476e+01_jprb &
32964  &, 0.122766e+01_jprb, 0.124018e+01_jprb, 0.125231e+01_jprb &
32965  &, 0.126405e+01_jprb, 0.127537e+01_jprb, 0.128627e+01_jprb, 0.129675e+01_jprb &
32966  &, 0.130680e+01_jprb, 0.131640e+01_jprb, 0.132555e+01_jprb &
32967  &, 0.133423e+01_jprb, 0.134246e+01_jprb, 0.135022e+01_jprb, 0.135749e+01_jprb &
32968  &, 0.136427e+01_jprb, 0.137056e+01_jprb, 0.137636e+01_jprb &
32969  &, 0.138165e+01_jprb, 0.138644e+01_jprb, 0.139072e+01_jprb, 0.139448e+01_jprb &
32970  &, 0.139772e+01_jprb, 0.140045e+01_jprb, 0.140265e+01_jprb &
32971  &, 0.140434e+01_jprb, 0.140550e+01_jprb, 0.140612e+01_jprb, 0.140624e+01_jprb &
32972  &, 0.140582e+01_jprb, 0.140490e+01_jprb, 0.140344e+01_jprb &
32973  &, 0.140147e+01_jprb, 0.139899e+01_jprb, 0.139600e+01_jprb, 0.139251e+01_jprb &
32974  &, 0.138850e+01_jprb, 0.138400e+01_jprb, 0.137902e+01_jprb &
32975  &, 0.137354e+01_jprb, 0.136760e+01_jprb, 0.136118e+01_jprb, 0.135430e+01_jprb &
32976  &, 0.134696e+01_jprb, 0.133918e+01_jprb, 0.133095e+01_jprb &
32977  &, 0.132229e+01_jprb, 0.131323e+01_jprb, 0.130374e+01_jprb, 0.129385e+01_jprb &
32978  &, 0.128357e+01_jprb, 0.127292e+01_jprb, 0.126191e+01_jprb &
32979  &, 0.125053e+01_jprb, 0.123880e+01_jprb, 0.122675e+01_jprb, 0.121437e+01_jprb &
32980  &, 0.120168e+01_jprb, 0.118870e+01_jprb, 0.117543e+01_jprb &
32981  &, 0.116188e+01_jprb, 0.114808e+01_jprb, 0.113405e+01_jprb, 0.111976e+01_jprb &
32982  &, 0.110526e+01_jprb, 0.109055e+01_jprb, 0.107566e+01_jprb &
32983  &, 0.106058e+01_jprb, 0.104532e+01_jprb, 0.102991e+01_jprb, 0.101437e+01_jprb &
32984  &, 0.998694e+00_jprb, 0.982897e+00_jprb, 0.967013e+00_jprb &
32985  &, 0.951023e+00_jprb, 0.934959e+00_jprb, 0.918830e+00_jprb, 0.902640e+00_jprb &
32986  &, 0.886425e+00_jprb, 0.870159e+00_jprb, 0.853907e+00_jprb &
32987  &, 0.837611e+00_jprb, 0.821337e+00_jprb, 0.805086e+00_jprb, 0.788894e+00_jprb &
32988  &, 0.772695e+00_jprb, 0.756555e+00_jprb, 0.740508e+00_jprb &
32989  &, 0.724483e+00_jprb, 0.708584e+00_jprb, 0.692735e+00_jprb, 0.677004e+00_jprb &
32990  &, 0.661388e+00_jprb, 0.645879e+00_jprb, 0.630510e+00_jprb &
32991  &, 0.615273e+00_jprb, 0.600158e+00_jprb, 0.585196e+00_jprb, 0.570374e+00_jprb &
32992  &, 0.555766e+00_jprb, 0.541274e+00_jprb, 0.526968e+00_jprb &
32993  &, 0.512878e+00_jprb, 0.498944e+00_jprb, 0.485192e+00_jprb, 0.471650e+00_jprb &
32994  &, 0.458346e+00_jprb, 0.445163e+00_jprb, 0.432271e+00_jprb &
32995  &, 0.419551e+00_jprb, 0.407026e+00_jprb, 0.394772e+00_jprb, 0.382712e+00_jprb &
32996  &, 0.370870e+00_jprb, 0.359267e+00_jprb, 0.347875e+00_jprb &
32997  &, 0.336715e+00_jprb, 0.325810e+00_jprb, 0.315126e+00_jprb, 0.304627e+00_jprb &
32998  &, 0.294448e+00_jprb, 0.284436e+00_jprb, 0.274669e+00_jprb &
32999  &, 0.265106e+00_jprb, 0.255826e+00_jprb, 0.246727e+00_jprb, 0.237886e+00_jprb &
33000  &, 0.229260e+00_jprb, 0.220864e+00_jprb, 0.212651e+00_jprb/)
33001 xcw( 756, :) = (/ &
33002  & 0.106741e+01_jprb, 0.108364e+01_jprb, 0.109959e+01_jprb, 0.111526e+01_jprb &
33003  &, 0.113063e+01_jprb, 0.114569e+01_jprb, 0.116044e+01_jprb &
33004  &, 0.117485e+01_jprb, 0.118893e+01_jprb, 0.120266e+01_jprb, 0.121603e+01_jprb &
33005  &, 0.122904e+01_jprb, 0.124166e+01_jprb, 0.125389e+01_jprb &
33006  &, 0.126573e+01_jprb, 0.127716e+01_jprb, 0.128817e+01_jprb, 0.129876e+01_jprb &
33007  &, 0.130891e+01_jprb, 0.131861e+01_jprb, 0.132787e+01_jprb &
33008  &, 0.133668e+01_jprb, 0.134501e+01_jprb, 0.135287e+01_jprb, 0.136025e+01_jprb &
33009  &, 0.136715e+01_jprb, 0.137355e+01_jprb, 0.137946e+01_jprb &
33010  &, 0.138486e+01_jprb, 0.138976e+01_jprb, 0.139415e+01_jprb, 0.139802e+01_jprb &
33011  &, 0.140138e+01_jprb, 0.140421e+01_jprb, 0.140653e+01_jprb &
33012  &, 0.140832e+01_jprb, 0.140958e+01_jprb, 0.141032e+01_jprb, 0.141055e+01_jprb &
33013  &, 0.141024e+01_jprb, 0.140942e+01_jprb, 0.140806e+01_jprb &
33014  &, 0.140620e+01_jprb, 0.140382e+01_jprb, 0.140093e+01_jprb, 0.139754e+01_jprb &
33015  &, 0.139363e+01_jprb, 0.138924e+01_jprb, 0.138434e+01_jprb &
33016  &, 0.137897e+01_jprb, 0.137311e+01_jprb, 0.136679e+01_jprb, 0.135999e+01_jprb &
33017  &, 0.135274e+01_jprb, 0.134504e+01_jprb, 0.133690e+01_jprb &
33018  &, 0.132832e+01_jprb, 0.131933e+01_jprb, 0.130992e+01_jprb, 0.130011e+01_jprb &
33019  &, 0.128990e+01_jprb, 0.127933e+01_jprb, 0.126837e+01_jprb &
33020  &, 0.125706e+01_jprb, 0.124541e+01_jprb, 0.123341e+01_jprb, 0.122107e+01_jprb &
33021  &, 0.120845e+01_jprb, 0.119551e+01_jprb, 0.118229e+01_jprb &
33022  &, 0.116880e+01_jprb, 0.115504e+01_jprb, 0.114104e+01_jprb, 0.112679e+01_jprb &
33023  &, 0.111234e+01_jprb, 0.109765e+01_jprb, 0.108276e+01_jprb &
33024  &, 0.106771e+01_jprb, 0.105249e+01_jprb, 0.103710e+01_jprb, 0.102157e+01_jprb &
33025  &, 0.100590e+01_jprb, 0.990109e+00_jprb, 0.974227e+00_jprb &
33026  &, 0.958235e+00_jprb, 0.942166e+00_jprb, 0.926028e+00_jprb, 0.909855e+00_jprb &
33027  &, 0.893623e+00_jprb, 0.877336e+00_jprb, 0.861060e+00_jprb &
33028  &, 0.844768e+00_jprb, 0.828461e+00_jprb, 0.812206e+00_jprb, 0.795940e+00_jprb &
33029  &, 0.779729e+00_jprb, 0.763573e+00_jprb, 0.747437e+00_jprb &
33030  &, 0.731424e+00_jprb, 0.715461e+00_jprb, 0.699580e+00_jprb, 0.683777e+00_jprb &
33031  &, 0.668120e+00_jprb, 0.652568e+00_jprb, 0.637112e+00_jprb &
33032  &, 0.621822e+00_jprb, 0.606650e+00_jprb, 0.591626e+00_jprb, 0.576739e+00_jprb &
33033  &, 0.562061e+00_jprb, 0.547494e+00_jprb, 0.533153e+00_jprb &
33034  &, 0.518936e+00_jprb, 0.504959e+00_jprb, 0.491114e+00_jprb, 0.477522e+00_jprb &
33035  &, 0.464068e+00_jprb, 0.450874e+00_jprb, 0.437871e+00_jprb &
33036  &, 0.424985e+00_jprb, 0.412490e+00_jprb, 0.400111e+00_jprb, 0.387973e+00_jprb &
33037  &, 0.376048e+00_jprb, 0.364359e+00_jprb, 0.352876e+00_jprb &
33038  &, 0.341622e+00_jprb, 0.330618e+00_jprb, 0.319832e+00_jprb, 0.309283e+00_jprb &
33039  &, 0.298935e+00_jprb, 0.288867e+00_jprb, 0.278981e+00_jprb &
33040  &, 0.269355e+00_jprb, 0.259948e+00_jprb, 0.250779e+00_jprb, 0.241867e+00_jprb &
33041  &, 0.233101e+00_jprb, 0.224626e+00_jprb, 0.216331e+00_jprb/)
33042 
33043 IF (lhook) CALL dr_hook('SU_MCICA:PART108',1,zhook_handle)
33044 END SUBROUTINE part108
33045 
33046 #ifdef VPP5000
33047 !OCL SCALAR
33048 #endif
33049 !option! -Nv -NO
33050 #ifdef RS6K
33051 @process nooptimize
33052 #endif
33053 !pgi$r opt=0
33054 SUBROUTINE part109
33055 
33056 REAL(KIND=JPRB) :: ZHOOK_HANDLE
33057 IF (lhook) CALL dr_hook('SU_MCICA:PART109',0,zhook_handle)
33058 
33059 xcw( 757, :) = (/ &
33060  & 0.106775e+01_jprb, 0.108406e+01_jprb, 0.110010e+01_jprb, 0.111586e+01_jprb &
33061  &, 0.113132e+01_jprb, 0.114648e+01_jprb, 0.116132e+01_jprb &
33062  &, 0.117583e+01_jprb, 0.119001e+01_jprb, 0.120384e+01_jprb, 0.121731e+01_jprb &
33063  &, 0.123041e+01_jprb, 0.124314e+01_jprb, 0.125548e+01_jprb &
33064  &, 0.126742e+01_jprb, 0.127895e+01_jprb, 0.129007e+01_jprb, 0.130076e+01_jprb &
33065  &, 0.131102e+01_jprb, 0.132084e+01_jprb, 0.133021e+01_jprb &
33066  &, 0.133912e+01_jprb, 0.134756e+01_jprb, 0.135553e+01_jprb, 0.136303e+01_jprb &
33067  &, 0.137003e+01_jprb, 0.137655e+01_jprb, 0.138257e+01_jprb &
33068  &, 0.138808e+01_jprb, 0.139309e+01_jprb, 0.139759e+01_jprb, 0.140157e+01_jprb &
33069  &, 0.140504e+01_jprb, 0.140799e+01_jprb, 0.141041e+01_jprb &
33070  &, 0.141231e+01_jprb, 0.141369e+01_jprb, 0.141454e+01_jprb, 0.141487e+01_jprb &
33071  &, 0.141467e+01_jprb, 0.141395e+01_jprb, 0.141271e+01_jprb &
33072  &, 0.141095e+01_jprb, 0.140868e+01_jprb, 0.140588e+01_jprb, 0.140258e+01_jprb &
33073  &, 0.139879e+01_jprb, 0.139448e+01_jprb, 0.138969e+01_jprb &
33074  &, 0.138441e+01_jprb, 0.137865e+01_jprb, 0.137241e+01_jprb, 0.136570e+01_jprb &
33075  &, 0.135855e+01_jprb, 0.135093e+01_jprb, 0.134285e+01_jprb &
33076  &, 0.133438e+01_jprb, 0.132547e+01_jprb, 0.131613e+01_jprb, 0.130640e+01_jprb &
33077  &, 0.129627e+01_jprb, 0.128577e+01_jprb, 0.127487e+01_jprb &
33078  &, 0.126363e+01_jprb, 0.125203e+01_jprb, 0.124010e+01_jprb, 0.122783e+01_jprb &
33079  &, 0.121526e+01_jprb, 0.120237e+01_jprb, 0.118920e+01_jprb &
33080  &, 0.117576e+01_jprb, 0.116204e+01_jprb, 0.114807e+01_jprb, 0.113385e+01_jprb &
33081  &, 0.111944e+01_jprb, 0.110478e+01_jprb, 0.108994e+01_jprb &
33082  &, 0.107491e+01_jprb, 0.105971e+01_jprb, 0.104434e+01_jprb, 0.102882e+01_jprb &
33083  &, 0.101316e+01_jprb, 0.997375e+00_jprb, 0.981496e+00_jprb &
33084  &, 0.965503e+00_jprb, 0.949459e+00_jprb, 0.933313e+00_jprb, 0.917099e+00_jprb &
33085  &, 0.900851e+00_jprb, 0.884576e+00_jprb, 0.868276e+00_jprb &
33086  &, 0.851956e+00_jprb, 0.835649e+00_jprb, 0.819358e+00_jprb, 0.803052e+00_jprb &
33087  &, 0.786830e+00_jprb, 0.770625e+00_jprb, 0.754471e+00_jprb &
33088  &, 0.738400e+00_jprb, 0.722374e+00_jprb, 0.706463e+00_jprb, 0.690625e+00_jprb &
33089  &, 0.674891e+00_jprb, 0.659296e+00_jprb, 0.643792e+00_jprb &
33090  &, 0.628411e+00_jprb, 0.613182e+00_jprb, 0.598098e+00_jprb, 0.583188e+00_jprb &
33091  &, 0.568399e+00_jprb, 0.553802e+00_jprb, 0.539339e+00_jprb &
33092  &, 0.525083e+00_jprb, 0.511019e+00_jprb, 0.497129e+00_jprb, 0.483393e+00_jprb &
33093  &, 0.469933e+00_jprb, 0.456634e+00_jprb, 0.443521e+00_jprb &
33094  &, 0.430619e+00_jprb, 0.417954e+00_jprb, 0.405501e+00_jprb, 0.393285e+00_jprb &
33095  &, 0.381278e+00_jprb, 0.369504e+00_jprb, 0.357932e+00_jprb &
33096  &, 0.346584e+00_jprb, 0.335483e+00_jprb, 0.324594e+00_jprb, 0.313939e+00_jprb &
33097  &, 0.303540e+00_jprb, 0.293358e+00_jprb, 0.283413e+00_jprb &
33098  &, 0.273665e+00_jprb, 0.264194e+00_jprb, 0.254894e+00_jprb, 0.245847e+00_jprb &
33099  &, 0.237070e+00_jprb, 0.228453e+00_jprb, 0.220077e+00_jprb/)
33100 xcw( 758, :) = (/ &
33101  & 0.106808e+01_jprb, 0.108448e+01_jprb, 0.110061e+01_jprb, 0.111646e+01_jprb &
33102  &, 0.113202e+01_jprb, 0.114727e+01_jprb, 0.116220e+01_jprb &
33103  &, 0.117681e+01_jprb, 0.119109e+01_jprb, 0.120502e+01_jprb, 0.121859e+01_jprb &
33104  &, 0.123180e+01_jprb, 0.124462e+01_jprb, 0.125707e+01_jprb &
33105  &, 0.126911e+01_jprb, 0.128075e+01_jprb, 0.129198e+01_jprb, 0.130278e+01_jprb &
33106  &, 0.131315e+01_jprb, 0.132307e+01_jprb, 0.133255e+01_jprb &
33107  &, 0.134157e+01_jprb, 0.135013e+01_jprb, 0.135820e+01_jprb, 0.136581e+01_jprb &
33108  &, 0.137293e+01_jprb, 0.137956e+01_jprb, 0.138569e+01_jprb &
33109  &, 0.139132e+01_jprb, 0.139644e+01_jprb, 0.140105e+01_jprb, 0.140514e+01_jprb &
33110  &, 0.140872e+01_jprb, 0.141178e+01_jprb, 0.141432e+01_jprb &
33111  &, 0.141633e+01_jprb, 0.141781e+01_jprb, 0.141878e+01_jprb, 0.141921e+01_jprb &
33112  &, 0.141912e+01_jprb, 0.141851e+01_jprb, 0.141737e+01_jprb &
33113  &, 0.141571e+01_jprb, 0.141355e+01_jprb, 0.141086e+01_jprb, 0.140766e+01_jprb &
33114  &, 0.140397e+01_jprb, 0.139977e+01_jprb, 0.139506e+01_jprb &
33115  &, 0.138968e+01_jprb, 0.138421e+01_jprb, 0.137806e+01_jprb, 0.137146e+01_jprb &
33116  &, 0.136439e+01_jprb, 0.135686e+01_jprb, 0.134888e+01_jprb &
33117  &, 0.134047e+01_jprb, 0.133164e+01_jprb, 0.132239e+01_jprb, 0.131273e+01_jprb &
33118  &, 0.130267e+01_jprb, 0.129221e+01_jprb, 0.128142e+01_jprb &
33119  &, 0.127024e+01_jprb, 0.125871e+01_jprb, 0.124683e+01_jprb, 0.123461e+01_jprb &
33120  &, 0.122209e+01_jprb, 0.120926e+01_jprb, 0.119614e+01_jprb &
33121  &, 0.118274e+01_jprb, 0.116908e+01_jprb, 0.115515e+01_jprb, 0.114099e+01_jprb &
33122  &, 0.112658e+01_jprb, 0.111198e+01_jprb, 0.109716e+01_jprb &
33123  &, 0.108215e+01_jprb, 0.106695e+01_jprb, 0.105162e+01_jprb, 0.103612e+01_jprb &
33124  &, 0.102047e+01_jprb, 0.100469e+01_jprb, 0.988819e+00_jprb &
33125  &, 0.972855e+00_jprb, 0.956779e+00_jprb, 0.940626e+00_jprb, 0.924431e+00_jprb &
33126  &, 0.908170e+00_jprb, 0.891876e+00_jprb, 0.875554e+00_jprb &
33127  &, 0.859239e+00_jprb, 0.842902e+00_jprb, 0.826576e+00_jprb, 0.810264e+00_jprb &
33128  &, 0.793965e+00_jprb, 0.777747e+00_jprb, 0.761540e+00_jprb &
33129  &, 0.745447e+00_jprb, 0.729397e+00_jprb, 0.713419e+00_jprb, 0.697548e+00_jprb &
33130  &, 0.681739e+00_jprb, 0.666102e+00_jprb, 0.650552e+00_jprb &
33131  &, 0.635120e+00_jprb, 0.619838e+00_jprb, 0.604653e+00_jprb, 0.589680e+00_jprb &
33132  &, 0.574822e+00_jprb, 0.560153e+00_jprb, 0.545613e+00_jprb &
33133  &, 0.531320e+00_jprb, 0.517125e+00_jprb, 0.503189e+00_jprb, 0.489405e+00_jprb &
33134  &, 0.475798e+00_jprb, 0.462442e+00_jprb, 0.449269e+00_jprb &
33135  &, 0.436302e+00_jprb, 0.423519e+00_jprb, 0.410994e+00_jprb, 0.398650e+00_jprb &
33136  &, 0.386562e+00_jprb, 0.374703e+00_jprb, 0.363042e+00_jprb &
33137  &, 0.351601e+00_jprb, 0.340403e+00_jprb, 0.329413e+00_jprb, 0.318711e+00_jprb &
33138  &, 0.308202e+00_jprb, 0.297907e+00_jprb, 0.287845e+00_jprb &
33139  &, 0.278036e+00_jprb, 0.268439e+00_jprb, 0.259072e+00_jprb, 0.249954e+00_jprb &
33140  &, 0.241039e+00_jprb, 0.232345e+00_jprb, 0.223954e+00_jprb/)
33141 xcw( 759, :) = (/ &
33142  & 0.106842e+01_jprb, 0.108490e+01_jprb, 0.110113e+01_jprb, 0.111706e+01_jprb &
33143  &, 0.113271e+01_jprb, 0.114806e+01_jprb, 0.116309e+01_jprb &
33144  &, 0.117780e+01_jprb, 0.119217e+01_jprb, 0.120620e+01_jprb, 0.121988e+01_jprb &
33145  &, 0.123318e+01_jprb, 0.124611e+01_jprb, 0.125866e+01_jprb &
33146  &, 0.127081e+01_jprb, 0.128256e+01_jprb, 0.129389e+01_jprb, 0.130480e+01_jprb &
33147  &, 0.131527e+01_jprb, 0.132531e+01_jprb, 0.133490e+01_jprb &
33148  &, 0.134403e+01_jprb, 0.135270e+01_jprb, 0.136089e+01_jprb, 0.136861e+01_jprb &
33149  &, 0.137584e+01_jprb, 0.138258e+01_jprb, 0.138882e+01_jprb &
33150  &, 0.139456e+01_jprb, 0.139979e+01_jprb, 0.140452e+01_jprb, 0.140873e+01_jprb &
33151  &, 0.141242e+01_jprb, 0.141559e+01_jprb, 0.141823e+01_jprb &
33152  &, 0.142035e+01_jprb, 0.142196e+01_jprb, 0.142302e+01_jprb, 0.142357e+01_jprb &
33153  &, 0.142358e+01_jprb, 0.142308e+01_jprb, 0.142205e+01_jprb &
33154  &, 0.142051e+01_jprb, 0.141844e+01_jprb, 0.141586e+01_jprb, 0.141277e+01_jprb &
33155  &, 0.140917e+01_jprb, 0.140506e+01_jprb, 0.140046e+01_jprb &
33156  &, 0.139538e+01_jprb, 0.138981e+01_jprb, 0.138376e+01_jprb, 0.137723e+01_jprb &
33157  &, 0.137025e+01_jprb, 0.136281e+01_jprb, 0.135492e+01_jprb &
33158  &, 0.134659e+01_jprb, 0.133784e+01_jprb, 0.132867e+01_jprb, 0.131910e+01_jprb &
33159  &, 0.130912e+01_jprb, 0.129873e+01_jprb, 0.128800e+01_jprb &
33160  &, 0.127688e+01_jprb, 0.126542e+01_jprb, 0.125360e+01_jprb, 0.124145e+01_jprb &
33161  &, 0.122898e+01_jprb, 0.121622e+01_jprb, 0.120314e+01_jprb &
33162  &, 0.118978e+01_jprb, 0.117616e+01_jprb, 0.116227e+01_jprb, 0.114815e+01_jprb &
33163  &, 0.113379e+01_jprb, 0.111920e+01_jprb, 0.110441e+01_jprb &
33164  &, 0.108943e+01_jprb, 0.107427e+01_jprb, 0.105893e+01_jprb, 0.104347e+01_jprb &
33165  &, 0.102784e+01_jprb, 0.101207e+01_jprb, 0.996197e+00_jprb &
33166  &, 0.980234e+00_jprb, 0.964157e+00_jprb, 0.948027e+00_jprb, 0.931793e+00_jprb &
33167  &, 0.915548e+00_jprb, 0.899237e+00_jprb, 0.882894e+00_jprb &
33168  &, 0.866553e+00_jprb, 0.850186e+00_jprb, 0.833827e+00_jprb, 0.817510e+00_jprb &
33169  &, 0.801202e+00_jprb, 0.784937e+00_jprb, 0.768714e+00_jprb &
33170  &, 0.752531e+00_jprb, 0.736455e+00_jprb, 0.720413e+00_jprb, 0.704508e+00_jprb &
33171  &, 0.688663e+00_jprb, 0.672946e+00_jprb, 0.657351e+00_jprb &
33172  &, 0.641870e+00_jprb, 0.626534e+00_jprb, 0.611291e+00_jprb, 0.596256e+00_jprb &
33173  &, 0.581331e+00_jprb, 0.566591e+00_jprb, 0.551975e+00_jprb &
33174  &, 0.537557e+00_jprb, 0.523367e+00_jprb, 0.509296e+00_jprb, 0.495465e+00_jprb &
33175  &, 0.481759e+00_jprb, 0.468299e+00_jprb, 0.455065e+00_jprb &
33176  &, 0.441986e+00_jprb, 0.429185e+00_jprb, 0.416538e+00_jprb, 0.404118e+00_jprb &
33177  &, 0.391951e+00_jprb, 0.379955e+00_jprb, 0.368207e+00_jprb &
33178  &, 0.356674e+00_jprb, 0.345379e+00_jprb, 0.334346e+00_jprb, 0.323482e+00_jprb &
33179  &, 0.312923e+00_jprb, 0.302515e+00_jprb, 0.292397e+00_jprb &
33180  &, 0.282467e+00_jprb, 0.272807e+00_jprb, 0.263312e+00_jprb, 0.254124e+00_jprb &
33181  &, 0.245136e+00_jprb, 0.236366e+00_jprb, 0.227765e+00_jprb/)
33182 xcw( 760, :) = (/ &
33183  & 0.106875e+01_jprb, 0.108533e+01_jprb, 0.110164e+01_jprb, 0.111767e+01_jprb &
33184  &, 0.113341e+01_jprb, 0.114885e+01_jprb, 0.116398e+01_jprb &
33185  &, 0.117879e+01_jprb, 0.119326e+01_jprb, 0.120739e+01_jprb, 0.122116e+01_jprb &
33186  &, 0.123457e+01_jprb, 0.124761e+01_jprb, 0.126026e+01_jprb &
33187  &, 0.127252e+01_jprb, 0.128437e+01_jprb, 0.129581e+01_jprb, 0.130683e+01_jprb &
33188  &, 0.131741e+01_jprb, 0.132756e+01_jprb, 0.133725e+01_jprb &
33189  &, 0.134650e+01_jprb, 0.135527e+01_jprb, 0.136358e+01_jprb, 0.137141e+01_jprb &
33190  &, 0.137875e+01_jprb, 0.138561e+01_jprb, 0.139196e+01_jprb &
33191  &, 0.139782e+01_jprb, 0.140316e+01_jprb, 0.140800e+01_jprb, 0.141232e+01_jprb &
33192  &, 0.141613e+01_jprb, 0.141941e+01_jprb, 0.142217e+01_jprb &
33193  &, 0.142440e+01_jprb, 0.142611e+01_jprb, 0.142729e+01_jprb, 0.142795e+01_jprb &
33194  &, 0.142808e+01_jprb, 0.142768e+01_jprb, 0.142676e+01_jprb &
33195  &, 0.142531e+01_jprb, 0.142335e+01_jprb, 0.142088e+01_jprb, 0.141789e+01_jprb &
33196  &, 0.141439e+01_jprb, 0.141039e+01_jprb, 0.140589e+01_jprb &
33197  &, 0.140090e+01_jprb, 0.139542e+01_jprb, 0.138945e+01_jprb, 0.138303e+01_jprb &
33198  &, 0.137615e+01_jprb, 0.136880e+01_jprb, 0.136099e+01_jprb &
33199  &, 0.135276e+01_jprb, 0.134409e+01_jprb, 0.133500e+01_jprb, 0.132549e+01_jprb &
33200  &, 0.131559e+01_jprb, 0.130528e+01_jprb, 0.129461e+01_jprb &
33201  &, 0.128356e+01_jprb, 0.127215e+01_jprb, 0.126040e+01_jprb, 0.124833e+01_jprb &
33202  &, 0.123592e+01_jprb, 0.122319e+01_jprb, 0.121018e+01_jprb &
33203  &, 0.119687e+01_jprb, 0.118329e+01_jprb, 0.116944e+01_jprb, 0.115535e+01_jprb &
33204  &, 0.114103e+01_jprb, 0.112649e+01_jprb, 0.111173e+01_jprb &
33205  &, 0.109677e+01_jprb, 0.108164e+01_jprb, 0.106632e+01_jprb, 0.105087e+01_jprb &
33206  &, 0.103525e+01_jprb, 0.101949e+01_jprb, 0.100363e+01_jprb &
33207  &, 0.987670e+00_jprb, 0.971591e+00_jprb, 0.955456e+00_jprb, 0.939243e+00_jprb &
33208  &, 0.922956e+00_jprb, 0.906659e+00_jprb, 0.890296e+00_jprb &
33209  &, 0.873931e+00_jprb, 0.857568e+00_jprb, 0.841177e+00_jprb, 0.824822e+00_jprb &
33210  &, 0.808474e+00_jprb, 0.792163e+00_jprb, 0.775924e+00_jprb &
33211  &, 0.759722e+00_jprb, 0.743587e+00_jprb, 0.727517e+00_jprb, 0.711544e+00_jprb &
33212  &, 0.695664e+00_jprb, 0.679907e+00_jprb, 0.664229e+00_jprb &
33213  &, 0.648700e+00_jprb, 0.633270e+00_jprb, 0.618012e+00_jprb, 0.602874e+00_jprb &
33214  &, 0.587883e+00_jprb, 0.573072e+00_jprb, 0.558425e+00_jprb &
33215  &, 0.543929e+00_jprb, 0.529609e+00_jprb, 0.515496e+00_jprb, 0.501571e+00_jprb &
33216  &, 0.487814e+00_jprb, 0.474252e+00_jprb, 0.460911e+00_jprb &
33217  &, 0.447769e+00_jprb, 0.434852e+00_jprb, 0.422134e+00_jprb, 0.409639e+00_jprb &
33218  &, 0.397341e+00_jprb, 0.385315e+00_jprb, 0.373480e+00_jprb &
33219  &, 0.361856e+00_jprb, 0.350467e+00_jprb, 0.339335e+00_jprb, 0.328368e+00_jprb &
33220  &, 0.317702e+00_jprb, 0.307242e+00_jprb, 0.297008e+00_jprb &
33221  &, 0.286959e+00_jprb, 0.277175e+00_jprb, 0.267676e+00_jprb, 0.258357e+00_jprb &
33222  &, 0.249233e+00_jprb, 0.240388e+00_jprb, 0.231707e+00_jprb/)
33223 xcw( 761, :) = (/ &
33224  & 0.106909e+01_jprb, 0.108575e+01_jprb, 0.110216e+01_jprb, 0.111828e+01_jprb &
33225  &, 0.113411e+01_jprb, 0.114965e+01_jprb, 0.116487e+01_jprb &
33226  &, 0.117978e+01_jprb, 0.119435e+01_jprb, 0.120858e+01_jprb, 0.122246e+01_jprb &
33227  &, 0.123597e+01_jprb, 0.124911e+01_jprb, 0.126186e+01_jprb &
33228  &, 0.127423e+01_jprb, 0.128619e+01_jprb, 0.129773e+01_jprb, 0.130886e+01_jprb &
33229  &, 0.131956e+01_jprb, 0.132981e+01_jprb, 0.133962e+01_jprb &
33230  &, 0.134897e+01_jprb, 0.135786e+01_jprb, 0.136628e+01_jprb, 0.137423e+01_jprb &
33231  &, 0.138168e+01_jprb, 0.138865e+01_jprb, 0.139512e+01_jprb &
33232  &, 0.140109e+01_jprb, 0.140655e+01_jprb, 0.141150e+01_jprb, 0.141593e+01_jprb &
33233  &, 0.141985e+01_jprb, 0.142325e+01_jprb, 0.142612e+01_jprb &
33234  &, 0.142847e+01_jprb, 0.143029e+01_jprb, 0.143158e+01_jprb, 0.143234e+01_jprb &
33235  &, 0.143259e+01_jprb, 0.143229e+01_jprb, 0.143148e+01_jprb &
33236  &, 0.143015e+01_jprb, 0.142829e+01_jprb, 0.142593e+01_jprb, 0.142304e+01_jprb &
33237  &, 0.141964e+01_jprb, 0.141574e+01_jprb, 0.141134e+01_jprb &
33238  &, 0.140646e+01_jprb, 0.140108e+01_jprb, 0.139521e+01_jprb, 0.138888e+01_jprb &
33239  &, 0.138207e+01_jprb, 0.137480e+01_jprb, 0.136709e+01_jprb &
33240  &, 0.135894e+01_jprb, 0.135035e+01_jprb, 0.134134e+01_jprb, 0.133193e+01_jprb &
33241  &, 0.132209e+01_jprb, 0.131188e+01_jprb, 0.130126e+01_jprb &
33242  &, 0.129029e+01_jprb, 0.127894e+01_jprb, 0.126726e+01_jprb, 0.125524e+01_jprb &
33243  &, 0.124289e+01_jprb, 0.123023e+01_jprb, 0.121725e+01_jprb &
33244  &, 0.120399e+01_jprb, 0.119046e+01_jprb, 0.117667e+01_jprb, 0.116262e+01_jprb &
33245  &, 0.114834e+01_jprb, 0.113382e+01_jprb, 0.111910e+01_jprb &
33246  &, 0.110417e+01_jprb, 0.108906e+01_jprb, 0.107376e+01_jprb, 0.105833e+01_jprb &
33247  &, 0.104272e+01_jprb, 0.102697e+01_jprb, 0.101112e+01_jprb &
33248  &, 0.995161e+00_jprb, 0.979110e+00_jprb, 0.962944e+00_jprb, 0.946723e+00_jprb &
33249  &, 0.930454e+00_jprb, 0.914112e+00_jprb, 0.897760e+00_jprb &
33250  &, 0.881372e+00_jprb, 0.864982e+00_jprb, 0.848591e+00_jprb, 0.832202e+00_jprb &
33251  &, 0.815813e+00_jprb, 0.799492e+00_jprb, 0.783204e+00_jprb &
33252  &, 0.766948e+00_jprb, 0.750755e+00_jprb, 0.734659e+00_jprb, 0.718656e+00_jprb &
33253  &, 0.702702e+00_jprb, 0.686907e+00_jprb, 0.671186e+00_jprb &
33254  &, 0.655570e+00_jprb, 0.640089e+00_jprb, 0.624775e+00_jprb, 0.609576e+00_jprb &
33255  &, 0.594521e+00_jprb, 0.579640e+00_jprb, 0.564920e+00_jprb &
33256  &, 0.550345e+00_jprb, 0.535988e+00_jprb, 0.521788e+00_jprb, 0.507771e+00_jprb &
33257  &, 0.493918e+00_jprb, 0.480303e+00_jprb, 0.466856e+00_jprb &
33258  &, 0.453652e+00_jprb, 0.440619e+00_jprb, 0.427832e+00_jprb, 0.415264e+00_jprb &
33259  &, 0.402889e+00_jprb, 0.390728e+00_jprb, 0.378807e+00_jprb &
33260  &, 0.367094e+00_jprb, 0.355611e+00_jprb, 0.344381e+00_jprb, 0.333312e+00_jprb &
33261  &, 0.322539e+00_jprb, 0.311969e+00_jprb, 0.301620e+00_jprb &
33262  &, 0.291573e+00_jprb, 0.281666e+00_jprb, 0.272041e+00_jprb, 0.262590e+00_jprb &
33263  &, 0.253459e+00_jprb, 0.244474e+00_jprb, 0.235716e+00_jprb/)
33264 xcw( 762, :) = (/ &
33265  & 0.106943e+01_jprb, 0.108618e+01_jprb, 0.110267e+01_jprb, 0.111889e+01_jprb &
33266  &, 0.113482e+01_jprb, 0.115045e+01_jprb, 0.116577e+01_jprb &
33267  &, 0.118076e+01_jprb, 0.119544e+01_jprb, 0.120977e+01_jprb, 0.122375e+01_jprb &
33268  &, 0.123737e+01_jprb, 0.125061e+01_jprb, 0.126347e+01_jprb &
33269  &, 0.127594e+01_jprb, 0.128801e+01_jprb, 0.129966e+01_jprb, 0.131090e+01_jprb &
33270  &, 0.132171e+01_jprb, 0.133207e+01_jprb, 0.134199e+01_jprb &
33271  &, 0.135146e+01_jprb, 0.136046e+01_jprb, 0.136899e+01_jprb, 0.137705e+01_jprb &
33272  &, 0.138462e+01_jprb, 0.139170e+01_jprb, 0.139829e+01_jprb &
33273  &, 0.140437e+01_jprb, 0.140994e+01_jprb, 0.141501e+01_jprb, 0.141956e+01_jprb &
33274  &, 0.142359e+01_jprb, 0.142710e+01_jprb, 0.143009e+01_jprb &
33275  &, 0.143255e+01_jprb, 0.143448e+01_jprb, 0.143589e+01_jprb, 0.143676e+01_jprb &
33276  &, 0.143711e+01_jprb, 0.143693e+01_jprb, 0.143623e+01_jprb &
33277  &, 0.143500e+01_jprb, 0.143325e+01_jprb, 0.143099e+01_jprb, 0.142821e+01_jprb &
33278  &, 0.142492e+01_jprb, 0.142112e+01_jprb, 0.141682e+01_jprb &
33279  &, 0.141203e+01_jprb, 0.140674e+01_jprb, 0.140099e+01_jprb, 0.139474e+01_jprb &
33280  &, 0.138803e+01_jprb, 0.138085e+01_jprb, 0.137323e+01_jprb &
33281  &, 0.136516e+01_jprb, 0.135666e+01_jprb, 0.134774e+01_jprb, 0.133838e+01_jprb &
33282  &, 0.132864e+01_jprb, 0.131849e+01_jprb, 0.130796e+01_jprb &
33283  &, 0.129704e+01_jprb, 0.128577e+01_jprb, 0.127415e+01_jprb, 0.126220e+01_jprb &
33284  &, 0.124990e+01_jprb, 0.123728e+01_jprb, 0.122437e+01_jprb &
33285  &, 0.121116e+01_jprb, 0.119769e+01_jprb, 0.118393e+01_jprb, 0.116994e+01_jprb &
33286  &, 0.115569e+01_jprb, 0.114121e+01_jprb, 0.112651e+01_jprb &
33287  &, 0.111161e+01_jprb, 0.109652e+01_jprb, 0.108125e+01_jprb, 0.106583e+01_jprb &
33288  &, 0.105024e+01_jprb, 0.103453e+01_jprb, 0.101869e+01_jprb &
33289  &, 0.100271e+01_jprb, 0.986658e+00_jprb, 0.970518e+00_jprb, 0.954291e+00_jprb &
33290  &, 0.938013e+00_jprb, 0.921656e+00_jprb, 0.905287e+00_jprb &
33291  &, 0.888877e+00_jprb, 0.872460e+00_jprb, 0.856039e+00_jprb, 0.839614e+00_jprb &
33292  &, 0.823220e+00_jprb, 0.806855e+00_jprb, 0.790520e+00_jprb &
33293  &, 0.774246e+00_jprb, 0.758032e+00_jprb, 0.741874e+00_jprb, 0.725804e+00_jprb &
33294  &, 0.709856e+00_jprb, 0.693946e+00_jprb, 0.678183e+00_jprb &
33295  &, 0.662520e+00_jprb, 0.646989e+00_jprb, 0.631620e+00_jprb, 0.616362e+00_jprb &
33296  &, 0.601244e+00_jprb, 0.586296e+00_jprb, 0.571459e+00_jprb &
33297  &, 0.556851e+00_jprb, 0.542367e+00_jprb, 0.528126e+00_jprb, 0.514018e+00_jprb &
33298  &, 0.500117e+00_jprb, 0.486401e+00_jprb, 0.472898e+00_jprb &
33299  &, 0.459585e+00_jprb, 0.446488e+00_jprb, 0.433581e+00_jprb, 0.420889e+00_jprb &
33300  &, 0.408436e+00_jprb, 0.396195e+00_jprb, 0.384189e+00_jprb &
33301  &, 0.372387e+00_jprb, 0.360811e+00_jprb, 0.349484e+00_jprb, 0.338371e+00_jprb &
33302  &, 0.327493e+00_jprb, 0.316814e+00_jprb, 0.306411e+00_jprb &
33303  &, 0.296186e+00_jprb, 0.286219e+00_jprb, 0.276467e+00_jprb, 0.266949e+00_jprb &
33304  &, 0.257684e+00_jprb, 0.248625e+00_jprb, 0.239790e+00_jprb/)
33305 xcw( 763, :) = (/ &
33306  & 0.106976e+01_jprb, 0.108661e+01_jprb, 0.110319e+01_jprb, 0.111950e+01_jprb &
33307  &, 0.113552e+01_jprb, 0.115125e+01_jprb, 0.116667e+01_jprb &
33308  &, 0.118177e+01_jprb, 0.119654e+01_jprb, 0.121097e+01_jprb, 0.122504e+01_jprb &
33309  &, 0.123877e+01_jprb, 0.125212e+01_jprb, 0.126509e+01_jprb &
33310  &, 0.127766e+01_jprb, 0.128984e+01_jprb, 0.130160e+01_jprb, 0.131295e+01_jprb &
33311  &, 0.132386e+01_jprb, 0.133434e+01_jprb, 0.134437e+01_jprb &
33312  &, 0.135395e+01_jprb, 0.136307e+01_jprb, 0.137172e+01_jprb, 0.137988e+01_jprb &
33313  &, 0.138757e+01_jprb, 0.139476e+01_jprb, 0.140147e+01_jprb &
33314  &, 0.140766e+01_jprb, 0.141335e+01_jprb, 0.141853e+01_jprb, 0.142320e+01_jprb &
33315  &, 0.142735e+01_jprb, 0.143097e+01_jprb, 0.143407e+01_jprb &
33316  &, 0.143664e+01_jprb, 0.143869e+01_jprb, 0.144021e+01_jprb, 0.144119e+01_jprb &
33317  &, 0.144165e+01_jprb, 0.144159e+01_jprb, 0.144100e+01_jprb &
33318  &, 0.143988e+01_jprb, 0.143825e+01_jprb, 0.143608e+01_jprb, 0.143341e+01_jprb &
33319  &, 0.143022e+01_jprb, 0.142652e+01_jprb, 0.142233e+01_jprb &
33320  &, 0.141764e+01_jprb, 0.141245e+01_jprb, 0.140676e+01_jprb, 0.140064e+01_jprb &
33321  &, 0.139401e+01_jprb, 0.138693e+01_jprb, 0.137941e+01_jprb &
33322  &, 0.137142e+01_jprb, 0.136300e+01_jprb, 0.135416e+01_jprb, 0.134489e+01_jprb &
33323  &, 0.133521e+01_jprb, 0.132514e+01_jprb, 0.131468e+01_jprb &
33324  &, 0.130385e+01_jprb, 0.129265e+01_jprb, 0.128108e+01_jprb, 0.126919e+01_jprb &
33325  &, 0.125696e+01_jprb, 0.124440e+01_jprb, 0.123154e+01_jprb &
33326  &, 0.121840e+01_jprb, 0.120495e+01_jprb, 0.119125e+01_jprb, 0.117727e+01_jprb &
33327  &, 0.116308e+01_jprb, 0.114864e+01_jprb, 0.113398e+01_jprb &
33328  &, 0.111910e+01_jprb, 0.110404e+01_jprb, 0.108879e+01_jprb, 0.107339e+01_jprb &
33329  &, 0.105782e+01_jprb, 0.104212e+01_jprb, 0.102628e+01_jprb &
33330  &, 0.101034e+01_jprb, 0.994262e+00_jprb, 0.978120e+00_jprb, 0.961889e+00_jprb &
33331  &, 0.945601e+00_jprb, 0.929262e+00_jprb, 0.912876e+00_jprb &
33332  &, 0.896445e+00_jprb, 0.880003e+00_jprb, 0.863553e+00_jprb, 0.847127e+00_jprb &
33333  &, 0.830695e+00_jprb, 0.814288e+00_jprb, 0.797940e+00_jprb &
33334  &, 0.781616e+00_jprb, 0.765382e+00_jprb, 0.749164e+00_jprb, 0.733066e+00_jprb &
33335  &, 0.717048e+00_jprb, 0.701102e+00_jprb, 0.685298e+00_jprb &
33336  &, 0.669551e+00_jprb, 0.653971e+00_jprb, 0.638507e+00_jprb, 0.623191e+00_jprb &
33337  &, 0.608010e+00_jprb, 0.592995e+00_jprb, 0.578131e+00_jprb &
33338  &, 0.563402e+00_jprb, 0.548883e+00_jprb, 0.534511e+00_jprb, 0.520360e+00_jprb &
33339  &, 0.506363e+00_jprb, 0.492597e+00_jprb, 0.478990e+00_jprb &
33340  &, 0.465568e+00_jprb, 0.452407e+00_jprb, 0.439433e+00_jprb, 0.426670e+00_jprb &
33341  &, 0.414090e+00_jprb, 0.401769e+00_jprb, 0.389680e+00_jprb &
33342  &, 0.377790e+00_jprb, 0.366123e+00_jprb, 0.354643e+00_jprb, 0.343430e+00_jprb &
33343  &, 0.332447e+00_jprb, 0.321717e+00_jprb, 0.311202e+00_jprb &
33344  &, 0.300921e+00_jprb, 0.290833e+00_jprb, 0.281019e+00_jprb, 0.271372e+00_jprb &
33345  &, 0.262037e+00_jprb, 0.252841e+00_jprb, 0.243930e+00_jprb/)
33346 
33347 IF (lhook) CALL dr_hook('SU_MCICA:PART109',1,zhook_handle)
33348 END SUBROUTINE part109
33349 
33350 #ifdef VPP5000
33351 !OCL SCALAR
33352 #endif
33353 !option! -Nv -NO
33354 #ifdef RS6K
33355 @process nooptimize
33356 #endif
33357 !pgi$r opt=0
33358 SUBROUTINE part110
33359 
33360 REAL(KIND=JPRB) :: ZHOOK_HANDLE
33361 IF (lhook) CALL dr_hook('SU_MCICA:PART110',0,zhook_handle)
33362 
33363 xcw( 764, :) = (/ &
33364  & 0.107010e+01_jprb, 0.108704e+01_jprb, 0.110371e+01_jprb, 0.112011e+01_jprb &
33365  &, 0.113623e+01_jprb, 0.115205e+01_jprb, 0.116757e+01_jprb &
33366  &, 0.118277e+01_jprb, 0.119764e+01_jprb, 0.121217e+01_jprb, 0.122635e+01_jprb &
33367  &, 0.124018e+01_jprb, 0.125363e+01_jprb, 0.126670e+01_jprb &
33368  &, 0.127939e+01_jprb, 0.129167e+01_jprb, 0.130355e+01_jprb, 0.131500e+01_jprb &
33369  &, 0.132603e+01_jprb, 0.133662e+01_jprb, 0.134676e+01_jprb &
33370  &, 0.135646e+01_jprb, 0.136569e+01_jprb, 0.137445e+01_jprb, 0.138273e+01_jprb &
33371  &, 0.139047e+01_jprb, 0.139784e+01_jprb, 0.140466e+01_jprb &
33372  &, 0.141097e+01_jprb, 0.141678e+01_jprb, 0.142207e+01_jprb, 0.142685e+01_jprb &
33373  &, 0.143112e+01_jprb, 0.143485e+01_jprb, 0.143807e+01_jprb &
33374  &, 0.144076e+01_jprb, 0.144292e+01_jprb, 0.144455e+01_jprb, 0.144566e+01_jprb &
33375  &, 0.144623e+01_jprb, 0.144627e+01_jprb, 0.144579e+01_jprb &
33376  &, 0.144478e+01_jprb, 0.144325e+01_jprb, 0.144119e+01_jprb, 0.143863e+01_jprb &
33377  &, 0.143554e+01_jprb, 0.143195e+01_jprb, 0.142786e+01_jprb &
33378  &, 0.142326e+01_jprb, 0.141818e+01_jprb, 0.141260e+01_jprb, 0.140656e+01_jprb &
33379  &, 0.140004e+01_jprb, 0.139304e+01_jprb, 0.138560e+01_jprb &
33380  &, 0.137771e+01_jprb, 0.136938e+01_jprb, 0.136062e+01_jprb, 0.135143e+01_jprb &
33381  &, 0.134183e+01_jprb, 0.133184e+01_jprb, 0.132145e+01_jprb &
33382  &, 0.131069e+01_jprb, 0.129955e+01_jprb, 0.128806e+01_jprb, 0.127622e+01_jprb &
33383  &, 0.126405e+01_jprb, 0.125156e+01_jprb, 0.123876e+01_jprb &
33384  &, 0.122565e+01_jprb, 0.121227e+01_jprb, 0.119861e+01_jprb, 0.118468e+01_jprb &
33385  &, 0.117053e+01_jprb, 0.115612e+01_jprb, 0.114149e+01_jprb &
33386  &, 0.112664e+01_jprb, 0.111161e+01_jprb, 0.109640e+01_jprb, 0.108100e+01_jprb &
33387  &, 0.106547e+01_jprb, 0.104976e+01_jprb, 0.103393e+01_jprb &
33388  &, 0.101800e+01_jprb, 0.100195e+01_jprb, 0.985810e+00_jprb, 0.969574e+00_jprb &
33389  &, 0.953279e+00_jprb, 0.936929e+00_jprb, 0.920527e+00_jprb &
33390  &, 0.904076e+00_jprb, 0.887643e+00_jprb, 0.871164e+00_jprb, 0.854707e+00_jprb &
33391  &, 0.838238e+00_jprb, 0.821824e+00_jprb, 0.805432e+00_jprb &
33392  &, 0.789057e+00_jprb, 0.772768e+00_jprb, 0.756527e+00_jprb, 0.740365e+00_jprb &
33393  &, 0.724316e+00_jprb, 0.708335e+00_jprb, 0.692453e+00_jprb &
33394  &, 0.676663e+00_jprb, 0.661034e+00_jprb, 0.645477e+00_jprb, 0.630104e+00_jprb &
33395  &, 0.614862e+00_jprb, 0.599781e+00_jprb, 0.584846e+00_jprb &
33396  &, 0.570043e+00_jprb, 0.555444e+00_jprb, 0.541034e+00_jprb, 0.526748e+00_jprb &
33397  &, 0.512705e+00_jprb, 0.498840e+00_jprb, 0.485131e+00_jprb &
33398  &, 0.471651e+00_jprb, 0.458377e+00_jprb, 0.445337e+00_jprb, 0.432451e+00_jprb &
33399  &, 0.419849e+00_jprb, 0.407397e+00_jprb, 0.395170e+00_jprb &
33400  &, 0.383193e+00_jprb, 0.371434e+00_jprb, 0.359916e+00_jprb, 0.348603e+00_jprb &
33401  &, 0.337518e+00_jprb, 0.326680e+00_jprb, 0.316053e+00_jprb &
33402  &, 0.305656e+00_jprb, 0.295509e+00_jprb, 0.285570e+00_jprb, 0.275858e+00_jprb &
33403  &, 0.266390e+00_jprb, 0.257122e+00_jprb, 0.248135e+00_jprb/)
33404 xcw( 765, :) = (/ &
33405  & 0.107044e+01_jprb, 0.108747e+01_jprb, 0.110423e+01_jprb, 0.112073e+01_jprb &
33406  &, 0.113694e+01_jprb, 0.115285e+01_jprb, 0.116847e+01_jprb &
33407  &, 0.118377e+01_jprb, 0.119874e+01_jprb, 0.121337e+01_jprb, 0.122766e+01_jprb &
33408  &, 0.124159e+01_jprb, 0.125515e+01_jprb, 0.126833e+01_jprb &
33409  &, 0.128112e+01_jprb, 0.129351e+01_jprb, 0.130549e+01_jprb, 0.131706e+01_jprb &
33410  &, 0.132820e+01_jprb, 0.133891e+01_jprb, 0.134916e+01_jprb &
33411  &, 0.135897e+01_jprb, 0.136831e+01_jprb, 0.137719e+01_jprb, 0.138559e+01_jprb &
33412  &, 0.139350e+01_jprb, 0.140093e+01_jprb, 0.140786e+01_jprb &
33413  &, 0.141429e+01_jprb, 0.142021e+01_jprb, 0.142562e+01_jprb, 0.143046e+01_jprb &
33414  &, 0.143490e+01_jprb, 0.143876e+01_jprb, 0.144209e+01_jprb &
33415  &, 0.144489e+01_jprb, 0.144716e+01_jprb, 0.144891e+01_jprb, 0.145013e+01_jprb &
33416  &, 0.145081e+01_jprb, 0.145097e+01_jprb, 0.145060e+01_jprb &
33417  &, 0.144970e+01_jprb, 0.144828e+01_jprb, 0.144633e+01_jprb, 0.144388e+01_jprb &
33418  &, 0.144089e+01_jprb, 0.143741e+01_jprb, 0.143342e+01_jprb &
33419  &, 0.142893e+01_jprb, 0.142394e+01_jprb, 0.141846e+01_jprb, 0.141252e+01_jprb &
33420  &, 0.140609e+01_jprb, 0.139918e+01_jprb, 0.139184e+01_jprb &
33421  &, 0.138403e+01_jprb, 0.137579e+01_jprb, 0.136711e+01_jprb, 0.135800e+01_jprb &
33422  &, 0.134848e+01_jprb, 0.133858e+01_jprb, 0.132826e+01_jprb &
33423  &, 0.131756e+01_jprb, 0.130651e+01_jprb, 0.129507e+01_jprb, 0.128331e+01_jprb &
33424  &, 0.127119e+01_jprb, 0.125876e+01_jprb, 0.124601e+01_jprb &
33425  &, 0.123297e+01_jprb, 0.121964e+01_jprb, 0.120602e+01_jprb, 0.119213e+01_jprb &
33426  &, 0.117801e+01_jprb, 0.116364e+01_jprb, 0.114904e+01_jprb &
33427  &, 0.113425e+01_jprb, 0.111925e+01_jprb, 0.110404e+01_jprb, 0.108869e+01_jprb &
33428  &, 0.107315e+01_jprb, 0.105748e+01_jprb, 0.104167e+01_jprb &
33429  &, 0.102574e+01_jprb, 0.100967e+01_jprb, 0.993528e+00_jprb, 0.977319e+00_jprb &
33430  &, 0.961017e+00_jprb, 0.944626e+00_jprb, 0.928240e+00_jprb &
33431  &, 0.911771e+00_jprb, 0.895314e+00_jprb, 0.878809e+00_jprb, 0.862320e+00_jprb &
33432  &, 0.845849e+00_jprb, 0.829395e+00_jprb, 0.812958e+00_jprb &
33433  &, 0.796570e+00_jprb, 0.780227e+00_jprb, 0.763965e+00_jprb, 0.747740e+00_jprb &
33434  &, 0.731622e+00_jprb, 0.715607e+00_jprb, 0.699529e+00_jprb &
33435  &, 0.683854e+00_jprb, 0.668139e+00_jprb, 0.652572e+00_jprb, 0.637101e+00_jprb &
33436  &, 0.621799e+00_jprb, 0.606610e+00_jprb, 0.591606e+00_jprb &
33437  &, 0.576774e+00_jprb, 0.562097e+00_jprb, 0.547558e+00_jprb, 0.533230e+00_jprb &
33438  &, 0.519095e+00_jprb, 0.505133e+00_jprb, 0.491370e+00_jprb &
33439  &, 0.477833e+00_jprb, 0.464448e+00_jprb, 0.451292e+00_jprb, 0.438337e+00_jprb &
33440  &, 0.425608e+00_jprb, 0.413132e+00_jprb, 0.400824e+00_jprb &
33441  &, 0.388762e+00_jprb, 0.376858e+00_jprb, 0.365245e+00_jprb, 0.353834e+00_jprb &
33442  &, 0.342646e+00_jprb, 0.331703e+00_jprb, 0.321024e+00_jprb &
33443  &, 0.310513e+00_jprb, 0.300247e+00_jprb, 0.290247e+00_jprb, 0.280407e+00_jprb &
33444  &, 0.270872e+00_jprb, 0.261533e+00_jprb, 0.252406e+00_jprb/)
33445 xcw( 766, :) = (/ &
33446  & 0.107078e+01_jprb, 0.108790e+01_jprb, 0.110475e+01_jprb, 0.112134e+01_jprb &
33447  &, 0.113765e+01_jprb, 0.115366e+01_jprb, 0.116937e+01_jprb &
33448  &, 0.118476e+01_jprb, 0.119984e+01_jprb, 0.121458e+01_jprb, 0.122897e+01_jprb &
33449  &, 0.124300e+01_jprb, 0.125667e+01_jprb, 0.126996e+01_jprb &
33450  &, 0.128286e+01_jprb, 0.129536e+01_jprb, 0.130746e+01_jprb, 0.131913e+01_jprb &
33451  &, 0.133038e+01_jprb, 0.134120e+01_jprb, 0.135157e+01_jprb &
33452  &, 0.136149e+01_jprb, 0.137095e+01_jprb, 0.137994e+01_jprb, 0.138845e+01_jprb &
33453  &, 0.139648e+01_jprb, 0.140403e+01_jprb, 0.141107e+01_jprb &
33454  &, 0.141762e+01_jprb, 0.142366e+01_jprb, 0.142919e+01_jprb, 0.143420e+01_jprb &
33455  &, 0.143870e+01_jprb, 0.144267e+01_jprb, 0.144612e+01_jprb &
33456  &, 0.144904e+01_jprb, 0.145142e+01_jprb, 0.145329e+01_jprb, 0.145462e+01_jprb &
33457  &, 0.145542e+01_jprb, 0.145569e+01_jprb, 0.145544e+01_jprb &
33458  &, 0.145463e+01_jprb, 0.145333e+01_jprb, 0.145150e+01_jprb, 0.144915e+01_jprb &
33459  &, 0.144627e+01_jprb, 0.144290e+01_jprb, 0.143901e+01_jprb &
33460  &, 0.143462e+01_jprb, 0.142973e+01_jprb, 0.142436e+01_jprb, 0.141850e+01_jprb &
33461  &, 0.141216e+01_jprb, 0.140537e+01_jprb, 0.139811e+01_jprb &
33462  &, 0.139039e+01_jprb, 0.138222e+01_jprb, 0.137363e+01_jprb, 0.136461e+01_jprb &
33463  &, 0.135519e+01_jprb, 0.134535e+01_jprb, 0.133511e+01_jprb &
33464  &, 0.132450e+01_jprb, 0.131350e+01_jprb, 0.130215e+01_jprb, 0.129042e+01_jprb &
33465  &, 0.127838e+01_jprb, 0.126601e+01_jprb, 0.125332e+01_jprb &
33466  &, 0.124033e+01_jprb, 0.122704e+01_jprb, 0.121347e+01_jprb, 0.119964e+01_jprb &
33467  &, 0.118555e+01_jprb, 0.117121e+01_jprb, 0.115667e+01_jprb &
33468  &, 0.114189e+01_jprb, 0.112691e+01_jprb, 0.111176e+01_jprb, 0.109640e+01_jprb &
33469  &, 0.108091e+01_jprb, 0.106523e+01_jprb, 0.104943e+01_jprb &
33470  &, 0.103351e+01_jprb, 0.101747e+01_jprb, 0.100133e+01_jprb, 0.985093e+00_jprb &
33471  &, 0.968786e+00_jprb, 0.952415e+00_jprb, 0.936015e+00_jprb &
33472  &, 0.919529e+00_jprb, 0.903051e+00_jprb, 0.886552e+00_jprb, 0.870033e+00_jprb &
33473  &, 0.853528e+00_jprb, 0.837035e+00_jprb, 0.820449e+00_jprb &
33474  &, 0.804154e+00_jprb, 0.787759e+00_jprb, 0.771439e+00_jprb, 0.755190e+00_jprb &
33475  &, 0.739044e+00_jprb, 0.722957e+00_jprb, 0.706961e+00_jprb &
33476  &, 0.691086e+00_jprb, 0.675324e+00_jprb, 0.659666e+00_jprb, 0.644183e+00_jprb &
33477  &, 0.628779e+00_jprb, 0.613570e+00_jprb, 0.598410e+00_jprb &
33478  &, 0.583549e+00_jprb, 0.568795e+00_jprb, 0.554220e+00_jprb, 0.539806e+00_jprb &
33479  &, 0.525580e+00_jprb, 0.511522e+00_jprb, 0.497707e+00_jprb &
33480  &, 0.484065e+00_jprb, 0.470621e+00_jprb, 0.457349e+00_jprb, 0.444326e+00_jprb &
33481  &, 0.431473e+00_jprb, 0.418867e+00_jprb, 0.406478e+00_jprb &
33482  &, 0.394330e+00_jprb, 0.382393e+00_jprb, 0.370688e+00_jprb, 0.359181e+00_jprb &
33483  &, 0.347892e+00_jprb, 0.336843e+00_jprb, 0.326055e+00_jprb &
33484  &, 0.315430e+00_jprb, 0.305107e+00_jprb, 0.294985e+00_jprb, 0.285082e+00_jprb &
33485  &, 0.275417e+00_jprb, 0.265943e+00_jprb, 0.256743e+00_jprb/)
33486 xcw( 767, :) = (/ &
33487  & 0.107113e+01_jprb, 0.108833e+01_jprb, 0.110528e+01_jprb, 0.112196e+01_jprb &
33488  &, 0.113836e+01_jprb, 0.115447e+01_jprb, 0.117028e+01_jprb &
33489  &, 0.118578e+01_jprb, 0.120095e+01_jprb, 0.121579e+01_jprb, 0.123029e+01_jprb &
33490  &, 0.124443e+01_jprb, 0.125820e+01_jprb, 0.127159e+01_jprb &
33491  &, 0.128460e+01_jprb, 0.129721e+01_jprb, 0.130942e+01_jprb, 0.132121e+01_jprb &
33492  &, 0.133257e+01_jprb, 0.134350e+01_jprb, 0.135399e+01_jprb &
33493  &, 0.136402e+01_jprb, 0.137359e+01_jprb, 0.138270e+01_jprb, 0.139133e+01_jprb &
33494  &, 0.139948e+01_jprb, 0.140714e+01_jprb, 0.141430e+01_jprb &
33495  &, 0.142097e+01_jprb, 0.142713e+01_jprb, 0.143277e+01_jprb, 0.143790e+01_jprb &
33496  &, 0.144224e+01_jprb, 0.144661e+01_jprb, 0.145017e+01_jprb &
33497  &, 0.145321e+01_jprb, 0.145570e+01_jprb, 0.145769e+01_jprb, 0.145913e+01_jprb &
33498  &, 0.146005e+01_jprb, 0.146043e+01_jprb, 0.146029e+01_jprb &
33499  &, 0.145961e+01_jprb, 0.145841e+01_jprb, 0.145669e+01_jprb, 0.145444e+01_jprb &
33500  &, 0.145168e+01_jprb, 0.144840e+01_jprb, 0.144462e+01_jprb &
33501  &, 0.144033e+01_jprb, 0.143554e+01_jprb, 0.143028e+01_jprb, 0.142452e+01_jprb &
33502  &, 0.141827e+01_jprb, 0.141157e+01_jprb, 0.140441e+01_jprb &
33503  &, 0.139677e+01_jprb, 0.138871e+01_jprb, 0.138020e+01_jprb, 0.137126e+01_jprb &
33504  &, 0.136191e+01_jprb, 0.135215e+01_jprb, 0.134200e+01_jprb &
33505  &, 0.133145e+01_jprb, 0.132053e+01_jprb, 0.130924e+01_jprb, 0.129759e+01_jprb &
33506  &, 0.128562e+01_jprb, 0.127329e+01_jprb, 0.126067e+01_jprb &
33507  &, 0.124773e+01_jprb, 0.123449e+01_jprb, 0.122097e+01_jprb, 0.120718e+01_jprb &
33508  &, 0.119315e+01_jprb, 0.117886e+01_jprb, 0.116433e+01_jprb &
33509  &, 0.114960e+01_jprb, 0.113465e+01_jprb, 0.111952e+01_jprb, 0.110419e+01_jprb &
33510  &, 0.108869e+01_jprb, 0.107306e+01_jprb, 0.105727e+01_jprb &
33511  &, 0.104136e+01_jprb, 0.102533e+01_jprb, 0.100920e+01_jprb, 0.992956e+00_jprb &
33512  &, 0.976644e+00_jprb, 0.960265e+00_jprb, 0.943853e+00_jprb &
33513  &, 0.927382e+00_jprb, 0.910851e+00_jprb, 0.894328e+00_jprb, 0.877813e+00_jprb &
33514  &, 0.861275e+00_jprb, 0.844745e+00_jprb, 0.828257e+00_jprb &
33515  &, 0.811809e+00_jprb, 0.795364e+00_jprb, 0.779025e+00_jprb, 0.762715e+00_jprb &
33516  &, 0.746503e+00_jprb, 0.730385e+00_jprb, 0.714353e+00_jprb &
33517  &, 0.698398e+00_jprb, 0.682592e+00_jprb, 0.666885e+00_jprb, 0.651307e+00_jprb &
33518  &, 0.635845e+00_jprb, 0.620573e+00_jprb, 0.605391e+00_jprb &
33519  &, 0.590414e+00_jprb, 0.575584e+00_jprb, 0.560928e+00_jprb, 0.546429e+00_jprb &
33520  &, 0.532112e+00_jprb, 0.518008e+00_jprb, 0.504093e+00_jprb &
33521  &, 0.490347e+00_jprb, 0.476793e+00_jprb, 0.463509e+00_jprb, 0.450368e+00_jprb &
33522  &, 0.437444e+00_jprb, 0.424762e+00_jprb, 0.412240e+00_jprb &
33523  &, 0.400009e+00_jprb, 0.387984e+00_jprb, 0.376131e+00_jprb, 0.364527e+00_jprb &
33524  &, 0.353195e+00_jprb, 0.342042e+00_jprb, 0.331146e+00_jprb &
33525  &, 0.320468e+00_jprb, 0.309967e+00_jprb, 0.299786e+00_jprb, 0.289758e+00_jprb &
33526  &, 0.279962e+00_jprb, 0.270354e+00_jprb, 0.261146e+00_jprb/)
33527 xcw( 768, :) = (/ &
33528  & 0.107147e+01_jprb, 0.108876e+01_jprb, 0.110580e+01_jprb, 0.112258e+01_jprb &
33529  &, 0.113907e+01_jprb, 0.115528e+01_jprb, 0.117119e+01_jprb &
33530  &, 0.118679e+01_jprb, 0.120207e+01_jprb, 0.121701e+01_jprb, 0.123161e+01_jprb &
33531  &, 0.124585e+01_jprb, 0.125973e+01_jprb, 0.127323e+01_jprb &
33532  &, 0.128635e+01_jprb, 0.129907e+01_jprb, 0.131139e+01_jprb, 0.132329e+01_jprb &
33533  &, 0.133477e+01_jprb, 0.134581e+01_jprb, 0.135641e+01_jprb &
33534  &, 0.136656e+01_jprb, 0.137625e+01_jprb, 0.138547e+01_jprb, 0.139422e+01_jprb &
33535  &, 0.140248e+01_jprb, 0.141026e+01_jprb, 0.141754e+01_jprb &
33536  &, 0.142433e+01_jprb, 0.143060e+01_jprb, 0.143637e+01_jprb, 0.144162e+01_jprb &
33537  &, 0.144635e+01_jprb, 0.145056e+01_jprb, 0.145424e+01_jprb &
33538  &, 0.145739e+01_jprb, 0.146001e+01_jprb, 0.146210e+01_jprb, 0.146367e+01_jprb &
33539  &, 0.146470e+01_jprb, 0.146519e+01_jprb, 0.146516e+01_jprb &
33540  &, 0.146459e+01_jprb, 0.146350e+01_jprb, 0.146172e+01_jprb, 0.145976e+01_jprb &
33541  &, 0.145711e+01_jprb, 0.145394e+01_jprb, 0.145026e+01_jprb &
33542  &, 0.144607e+01_jprb, 0.144140e+01_jprb, 0.143620e+01_jprb, 0.143056e+01_jprb &
33543  &, 0.142431e+01_jprb, 0.141781e+01_jprb, 0.141074e+01_jprb &
33544  &, 0.140320e+01_jprb, 0.139523e+01_jprb, 0.138680e+01_jprb, 0.137795e+01_jprb &
33545  &, 0.136869e+01_jprb, 0.135901e+01_jprb, 0.134892e+01_jprb &
33546  &, 0.133845e+01_jprb, 0.132760e+01_jprb, 0.131638e+01_jprb, 0.130482e+01_jprb &
33547  &, 0.129288e+01_jprb, 0.128063e+01_jprb, 0.126807e+01_jprb &
33548  &, 0.125517e+01_jprb, 0.124201e+01_jprb, 0.122853e+01_jprb, 0.121479e+01_jprb &
33549  &, 0.120080e+01_jprb, 0.118654e+01_jprb, 0.117205e+01_jprb &
33550  &, 0.115736e+01_jprb, 0.114244e+01_jprb, 0.112732e+01_jprb, 0.111204e+01_jprb &
33551  &, 0.109656e+01_jprb, 0.108094e+01_jprb, 0.106517e+01_jprb &
33552  &, 0.104927e+01_jprb, 0.103325e+01_jprb, 0.101712e+01_jprb, 0.100088e+01_jprb &
33553  &, 0.984562e+00_jprb, 0.968176e+00_jprb, 0.951753e+00_jprb &
33554  &, 0.935266e+00_jprb, 0.918749e+00_jprb, 0.902202e+00_jprb, 0.885627e+00_jprb &
33555  &, 0.869090e+00_jprb, 0.852523e+00_jprb, 0.835994e+00_jprb &
33556  &, 0.819501e+00_jprb, 0.803078e+00_jprb, 0.786647e+00_jprb, 0.770315e+00_jprb &
33557  &, 0.754078e+00_jprb, 0.737891e+00_jprb, 0.721784e+00_jprb &
33558  &, 0.705791e+00_jprb, 0.689941e+00_jprb, 0.674145e+00_jprb, 0.658515e+00_jprb &
33559  &, 0.642996e+00_jprb, 0.627664e+00_jprb, 0.612416e+00_jprb &
33560  &, 0.597369e+00_jprb, 0.582464e+00_jprb, 0.567729e+00_jprb, 0.553146e+00_jprb &
33561  &, 0.538788e+00_jprb, 0.524590e+00_jprb, 0.510578e+00_jprb &
33562  &, 0.496728e+00_jprb, 0.483117e+00_jprb, 0.469669e+00_jprb, 0.456461e+00_jprb &
33563  &, 0.443467e+00_jprb, 0.430711e+00_jprb, 0.418111e+00_jprb &
33564  &, 0.405743e+00_jprb, 0.393631e+00_jprb, 0.381687e+00_jprb, 0.369988e+00_jprb &
33565  &, 0.358557e+00_jprb, 0.347300e+00_jprb, 0.336296e+00_jprb &
33566  &, 0.325507e+00_jprb, 0.314951e+00_jprb, 0.304649e+00_jprb, 0.294559e+00_jprb &
33567  &, 0.284636e+00_jprb, 0.275024e+00_jprb, 0.265614e+00_jprb/)
33568 xcw( 769, :) = (/ &
33569  & 0.107181e+01_jprb, 0.108920e+01_jprb, 0.110633e+01_jprb, 0.112320e+01_jprb &
33570  &, 0.113979e+01_jprb, 0.115610e+01_jprb, 0.117210e+01_jprb &
33571  &, 0.118780e+01_jprb, 0.120318e+01_jprb, 0.121823e+01_jprb, 0.123293e+01_jprb &
33572  &, 0.124728e+01_jprb, 0.126127e+01_jprb, 0.127488e+01_jprb &
33573  &, 0.128811e+01_jprb, 0.130094e+01_jprb, 0.131337e+01_jprb, 0.132538e+01_jprb &
33574  &, 0.133697e+01_jprb, 0.134812e+01_jprb, 0.135884e+01_jprb &
33575  &, 0.136911e+01_jprb, 0.137891e+01_jprb, 0.138825e+01_jprb, 0.139712e+01_jprb &
33576  &, 0.140550e+01_jprb, 0.141339e+01_jprb, 0.142080e+01_jprb &
33577  &, 0.142770e+01_jprb, 0.143409e+01_jprb, 0.143998e+01_jprb, 0.144535e+01_jprb &
33578  &, 0.145019e+01_jprb, 0.145452e+01_jprb, 0.145832e+01_jprb &
33579  &, 0.146159e+01_jprb, 0.146432e+01_jprb, 0.146654e+01_jprb, 0.146822e+01_jprb &
33580  &, 0.146937e+01_jprb, 0.146998e+01_jprb, 0.147006e+01_jprb &
33581  &, 0.146961e+01_jprb, 0.146864e+01_jprb, 0.146711e+01_jprb, 0.146511e+01_jprb &
33582  &, 0.146256e+01_jprb, 0.145950e+01_jprb, 0.145593e+01_jprb &
33583  &, 0.145186e+01_jprb, 0.144728e+01_jprb, 0.144220e+01_jprb, 0.143664e+01_jprb &
33584  &, 0.143060e+01_jprb, 0.142408e+01_jprb, 0.141710e+01_jprb &
33585  &, 0.140967e+01_jprb, 0.140178e+01_jprb, 0.139344e+01_jprb, 0.138467e+01_jprb &
33586  &, 0.137549e+01_jprb, 0.136588e+01_jprb, 0.135588e+01_jprb &
33587  &, 0.134549e+01_jprb, 0.133472e+01_jprb, 0.132357e+01_jprb, 0.131206e+01_jprb &
33588  &, 0.130021e+01_jprb, 0.128803e+01_jprb, 0.127550e+01_jprb &
33589  &, 0.126268e+01_jprb, 0.124954e+01_jprb, 0.123613e+01_jprb, 0.122244e+01_jprb &
33590  &, 0.120849e+01_jprb, 0.119428e+01_jprb, 0.117985e+01_jprb &
33591  &, 0.116516e+01_jprb, 0.115028e+01_jprb, 0.113521e+01_jprb, 0.111993e+01_jprb &
33592  &, 0.110447e+01_jprb, 0.108888e+01_jprb, 0.107312e+01_jprb &
33593  &, 0.105723e+01_jprb, 0.104122e+01_jprb, 0.102510e+01_jprb, 0.100886e+01_jprb &
33594  &, 0.992540e+00_jprb, 0.976148e+00_jprb, 0.959715e+00_jprb &
33595  &, 0.943214e+00_jprb, 0.926678e+00_jprb, 0.910109e+00_jprb, 0.893540e+00_jprb &
33596  &, 0.876972e+00_jprb, 0.860371e+00_jprb, 0.843837e+00_jprb &
33597  &, 0.827300e+00_jprb, 0.810828e+00_jprb, 0.794381e+00_jprb, 0.777991e+00_jprb &
33598  &, 0.761690e+00_jprb, 0.745474e+00_jprb, 0.729335e+00_jprb &
33599  &, 0.713263e+00_jprb, 0.697331e+00_jprb, 0.681530e+00_jprb, 0.665807e+00_jprb &
33600  &, 0.650234e+00_jprb, 0.634798e+00_jprb, 0.619529e+00_jprb &
33601  &, 0.604369e+00_jprb, 0.589390e+00_jprb, 0.574576e+00_jprb, 0.559956e+00_jprb &
33602  &, 0.545464e+00_jprb, 0.531221e+00_jprb, 0.517112e+00_jprb &
33603  &, 0.503210e+00_jprb, 0.489492e+00_jprb, 0.475983e+00_jprb, 0.462659e+00_jprb &
33604  &, 0.449596e+00_jprb, 0.436714e+00_jprb, 0.424037e+00_jprb &
33605  &, 0.411587e+00_jprb, 0.399334e+00_jprb, 0.387357e+00_jprb, 0.375564e+00_jprb &
33606  &, 0.363977e+00_jprb, 0.352677e+00_jprb, 0.341567e+00_jprb &
33607  &, 0.330667e+00_jprb, 0.319996e+00_jprb, 0.309575e+00_jprb, 0.299361e+00_jprb &
33608  &, 0.289437e+00_jprb, 0.279694e+00_jprb, 0.270148e+00_jprb/)
33609 xcw( 770, :) = (/ &
33610  & 0.107216e+01_jprb, 0.108963e+01_jprb, 0.110686e+01_jprb, 0.112382e+01_jprb &
33611  &, 0.114051e+01_jprb, 0.115691e+01_jprb, 0.117302e+01_jprb &
33612  &, 0.118882e+01_jprb, 0.120430e+01_jprb, 0.121945e+01_jprb, 0.123426e+01_jprb &
33613  &, 0.124871e+01_jprb, 0.126281e+01_jprb, 0.127653e+01_jprb &
33614  &, 0.128987e+01_jprb, 0.130281e+01_jprb, 0.131535e+01_jprb, 0.132748e+01_jprb &
33615  &, 0.133918e+01_jprb, 0.135045e+01_jprb, 0.136128e+01_jprb &
33616  &, 0.137166e+01_jprb, 0.138159e+01_jprb, 0.139104e+01_jprb, 0.140003e+01_jprb &
33617  &, 0.140853e+01_jprb, 0.141654e+01_jprb, 0.142406e+01_jprb &
33618  &, 0.143108e+01_jprb, 0.143760e+01_jprb, 0.144360e+01_jprb, 0.144909e+01_jprb &
33619  &, 0.145406e+01_jprb, 0.145850e+01_jprb, 0.146242e+01_jprb &
33620  &, 0.146581e+01_jprb, 0.146867e+01_jprb, 0.147100e+01_jprb, 0.147279e+01_jprb &
33621  &, 0.147405e+01_jprb, 0.147478e+01_jprb, 0.147498e+01_jprb &
33622  &, 0.147465e+01_jprb, 0.147378e+01_jprb, 0.147240e+01_jprb, 0.147048e+01_jprb &
33623  &, 0.146804e+01_jprb, 0.146509e+01_jprb, 0.146162e+01_jprb &
33624  &, 0.145765e+01_jprb, 0.145317e+01_jprb, 0.144821e+01_jprb, 0.144275e+01_jprb &
33625  &, 0.143681e+01_jprb, 0.143038e+01_jprb, 0.142350e+01_jprb &
33626  &, 0.141616e+01_jprb, 0.140836e+01_jprb, 0.140011e+01_jprb, 0.139143e+01_jprb &
33627  &, 0.138233e+01_jprb, 0.137281e+01_jprb, 0.136289e+01_jprb &
33628  &, 0.135257e+01_jprb, 0.134188e+01_jprb, 0.133081e+01_jprb, 0.131936e+01_jprb &
33629  &, 0.130757e+01_jprb, 0.129545e+01_jprb, 0.128300e+01_jprb &
33630  &, 0.127023e+01_jprb, 0.125717e+01_jprb, 0.124378e+01_jprb, 0.122998e+01_jprb &
33631  &, 0.121623e+01_jprb, 0.120208e+01_jprb, 0.118767e+01_jprb &
33632  &, 0.117304e+01_jprb, 0.115820e+01_jprb, 0.114313e+01_jprb, 0.112788e+01_jprb &
33633  &, 0.111247e+01_jprb, 0.109687e+01_jprb, 0.108113e+01_jprb &
33634  &, 0.106525e+01_jprb, 0.104925e+01_jprb, 0.103313e+01_jprb, 0.101690e+01_jprb &
33635  &, 0.100061e+01_jprb, 0.984211e+00_jprb, 0.967739e+00_jprb &
33636  &, 0.951257e+00_jprb, 0.934705e+00_jprb, 0.918114e+00_jprb, 0.901521e+00_jprb &
33637  &, 0.884923e+00_jprb, 0.868322e+00_jprb, 0.851715e+00_jprb &
33638  &, 0.835170e+00_jprb, 0.818651e+00_jprb, 0.802151e+00_jprb, 0.785742e+00_jprb &
33639  &, 0.769379e+00_jprb, 0.753096e+00_jprb, 0.736924e+00_jprb &
33640  &, 0.720817e+00_jprb, 0.704844e+00_jprb, 0.688956e+00_jprb, 0.673184e+00_jprb &
33641  &, 0.657556e+00_jprb, 0.642062e+00_jprb, 0.626687e+00_jprb &
33642  &, 0.611459e+00_jprb, 0.596407e+00_jprb, 0.581516e+00_jprb, 0.566814e+00_jprb &
33643  &, 0.552283e+00_jprb, 0.537901e+00_jprb, 0.523744e+00_jprb &
33644  &, 0.509741e+00_jprb, 0.495967e+00_jprb, 0.482349e+00_jprb, 0.468961e+00_jprb &
33645  &, 0.455778e+00_jprb, 0.442771e+00_jprb, 0.430017e+00_jprb &
33646  &, 0.417487e+00_jprb, 0.405149e+00_jprb, 0.393026e+00_jprb, 0.381140e+00_jprb &
33647  &, 0.369514e+00_jprb, 0.358054e+00_jprb, 0.346837e+00_jprb &
33648  &, 0.335887e+00_jprb, 0.325102e+00_jprb, 0.314625e+00_jprb, 0.304289e+00_jprb &
33649  &, 0.294238e+00_jprb, 0.284429e+00_jprb, 0.274814e+00_jprb/)
33650 
33651 IF (lhook) CALL dr_hook('SU_MCICA:PART110',1,zhook_handle)
33652 END SUBROUTINE part110
33653 
33654 #ifdef VPP5000
33655 !OCL SCALAR
33656 #endif
33657 !option! -Nv -NO
33658 #ifdef RS6K
33659 @process nooptimize
33660 #endif
33661 !pgi$r opt=0
33662 SUBROUTINE part111
33663 
33664 REAL(KIND=JPRB) :: ZHOOK_HANDLE
33665 IF (lhook) CALL dr_hook('SU_MCICA:PART111',0,zhook_handle)
33666 
33667 xcw( 771, :) = (/ &
33668  & 0.107251e+01_jprb, 0.109007e+01_jprb, 0.110739e+01_jprb, 0.112445e+01_jprb &
33669  &, 0.114123e+01_jprb, 0.115773e+01_jprb, 0.117394e+01_jprb &
33670  &, 0.118984e+01_jprb, 0.120542e+01_jprb, 0.122068e+01_jprb, 0.123559e+01_jprb &
33671  &, 0.125015e+01_jprb, 0.126436e+01_jprb, 0.127819e+01_jprb &
33672  &, 0.129163e+01_jprb, 0.130469e+01_jprb, 0.131734e+01_jprb, 0.132958e+01_jprb &
33673  &, 0.134140e+01_jprb, 0.135278e+01_jprb, 0.136373e+01_jprb &
33674  &, 0.137423e+01_jprb, 0.138427e+01_jprb, 0.139385e+01_jprb, 0.140295e+01_jprb &
33675  &, 0.141157e+01_jprb, 0.141970e+01_jprb, 0.142734e+01_jprb &
33676  &, 0.143448e+01_jprb, 0.144112e+01_jprb, 0.144724e+01_jprb, 0.145285e+01_jprb &
33677  &, 0.145794e+01_jprb, 0.146250e+01_jprb, 0.146654e+01_jprb &
33678  &, 0.147005e+01_jprb, 0.147303e+01_jprb, 0.147547e+01_jprb, 0.147739e+01_jprb &
33679  &, 0.147877e+01_jprb, 0.147961e+01_jprb, 0.147993e+01_jprb &
33680  &, 0.147970e+01_jprb, 0.147895e+01_jprb, 0.147768e+01_jprb, 0.147588e+01_jprb &
33681  &, 0.147355e+01_jprb, 0.147070e+01_jprb, 0.146736e+01_jprb &
33682  &, 0.146349e+01_jprb, 0.145912e+01_jprb, 0.145424e+01_jprb, 0.144889e+01_jprb &
33683  &, 0.144306e+01_jprb, 0.143673e+01_jprb, 0.142994e+01_jprb &
33684  &, 0.142268e+01_jprb, 0.141497e+01_jprb, 0.140683e+01_jprb, 0.139823e+01_jprb &
33685  &, 0.138923e+01_jprb, 0.137979e+01_jprb, 0.136994e+01_jprb &
33686  &, 0.135970e+01_jprb, 0.134908e+01_jprb, 0.133807e+01_jprb, 0.132671e+01_jprb &
33687  &, 0.131499e+01_jprb, 0.130293e+01_jprb, 0.129053e+01_jprb &
33688  &, 0.127782e+01_jprb, 0.126481e+01_jprb, 0.125150e+01_jprb, 0.123790e+01_jprb &
33689  &, 0.122404e+01_jprb, 0.120991e+01_jprb, 0.119556e+01_jprb &
33690  &, 0.118095e+01_jprb, 0.116613e+01_jprb, 0.115112e+01_jprb, 0.113590e+01_jprb &
33691  &, 0.112049e+01_jprb, 0.110494e+01_jprb, 0.108921e+01_jprb &
33692  &, 0.107336e+01_jprb, 0.105734e+01_jprb, 0.104123e+01_jprb, 0.102502e+01_jprb &
33693  &, 0.100871e+01_jprb, 0.992306e+00_jprb, 0.975857e+00_jprb &
33694  &, 0.959332e+00_jprb, 0.942763e+00_jprb, 0.926186e+00_jprb, 0.909568e+00_jprb &
33695  &, 0.892942e+00_jprb, 0.876308e+00_jprb, 0.859699e+00_jprb &
33696  &, 0.843112e+00_jprb, 0.826546e+00_jprb, 0.810033e+00_jprb, 0.793568e+00_jprb &
33697  &, 0.777145e+00_jprb, 0.760835e+00_jprb, 0.744593e+00_jprb &
33698  &, 0.728450e+00_jprb, 0.712397e+00_jprb, 0.696466e+00_jprb, 0.680645e+00_jprb &
33699  &, 0.664922e+00_jprb, 0.649370e+00_jprb, 0.633932e+00_jprb &
33700  &, 0.618638e+00_jprb, 0.603515e+00_jprb, 0.588549e+00_jprb, 0.573766e+00_jprb &
33701  &, 0.559149e+00_jprb, 0.544677e+00_jprb, 0.530425e+00_jprb &
33702  &, 0.516372e+00_jprb, 0.502494e+00_jprb, 0.488817e+00_jprb, 0.475315e+00_jprb &
33703  &, 0.462013e+00_jprb, 0.448988e+00_jprb, 0.436105e+00_jprb &
33704  &, 0.423496e+00_jprb, 0.410629e+00_jprb, 0.398866e+00_jprb, 0.386889e+00_jprb &
33705  &, 0.375109e+00_jprb, 0.363548e+00_jprb, 0.352287e+00_jprb &
33706  &, 0.341168e+00_jprb, 0.330332e+00_jprb, 0.319676e+00_jprb, 0.309281e+00_jprb &
33707  &, 0.299104e+00_jprb, 0.289164e+00_jprb, 0.279479e+00_jprb/)
33708 xcw( 772, :) = (/ &
33709  & 0.107285e+01_jprb, 0.109051e+01_jprb, 0.110792e+01_jprb, 0.112507e+01_jprb &
33710  &, 0.114195e+01_jprb, 0.115855e+01_jprb, 0.117486e+01_jprb &
33711  &, 0.119086e+01_jprb, 0.120655e+01_jprb, 0.122191e+01_jprb, 0.123693e+01_jprb &
33712  &, 0.125160e+01_jprb, 0.126591e+01_jprb, 0.127985e+01_jprb &
33713  &, 0.129340e+01_jprb, 0.130657e+01_jprb, 0.131934e+01_jprb, 0.133169e+01_jprb &
33714  &, 0.134363e+01_jprb, 0.135513e+01_jprb, 0.136619e+01_jprb &
33715  &, 0.137681e+01_jprb, 0.138696e+01_jprb, 0.139666e+01_jprb, 0.140588e+01_jprb &
33716  &, 0.141462e+01_jprb, 0.142288e+01_jprb, 0.143063e+01_jprb &
33717  &, 0.143790e+01_jprb, 0.144465e+01_jprb, 0.145089e+01_jprb, 0.145662e+01_jprb &
33718  &, 0.146183e+01_jprb, 0.146652e+01_jprb, 0.147068e+01_jprb &
33719  &, 0.147430e+01_jprb, 0.147740e+01_jprb, 0.147997e+01_jprb, 0.148200e+01_jprb &
33720  &, 0.148350e+01_jprb, 0.148446e+01_jprb, 0.148490e+01_jprb &
33721  &, 0.148478e+01_jprb, 0.148415e+01_jprb, 0.148298e+01_jprb, 0.148130e+01_jprb &
33722  &, 0.147909e+01_jprb, 0.147635e+01_jprb, 0.147310e+01_jprb &
33723  &, 0.146935e+01_jprb, 0.146509e+01_jprb, 0.146032e+01_jprb, 0.145506e+01_jprb &
33724  &, 0.144933e+01_jprb, 0.144311e+01_jprb, 0.143640e+01_jprb &
33725  &, 0.142925e+01_jprb, 0.142163e+01_jprb, 0.141358e+01_jprb, 0.140507e+01_jprb &
33726  &, 0.139615e+01_jprb, 0.138678e+01_jprb, 0.137704e+01_jprb &
33727  &, 0.136687e+01_jprb, 0.135633e+01_jprb, 0.134539e+01_jprb, 0.133411e+01_jprb &
33728  &, 0.132245e+01_jprb, 0.131045e+01_jprb, 0.129811e+01_jprb &
33729  &, 0.128548e+01_jprb, 0.127252e+01_jprb, 0.125926e+01_jprb, 0.124571e+01_jprb &
33730  &, 0.123190e+01_jprb, 0.121781e+01_jprb, 0.120350e+01_jprb &
33731  &, 0.118893e+01_jprb, 0.117415e+01_jprb, 0.115917e+01_jprb, 0.114397e+01_jprb &
33732  &, 0.112859e+01_jprb, 0.111306e+01_jprb, 0.109736e+01_jprb &
33733  &, 0.108149e+01_jprb, 0.106551e+01_jprb, 0.104941e+01_jprb, 0.103318e+01_jprb &
33734  &, 0.101689e+01_jprb, 0.100049e+01_jprb, 0.984037e+00_jprb &
33735  &, 0.967501e+00_jprb, 0.950918e+00_jprb, 0.934322e+00_jprb, 0.917682e+00_jprb &
33736  &, 0.901029e+00_jprb, 0.884363e+00_jprb, 0.867717e+00_jprb &
33737  &, 0.851090e+00_jprb, 0.834515e+00_jprb, 0.817952e+00_jprb, 0.801469e+00_jprb &
33738  &, 0.785025e+00_jprb, 0.768652e+00_jprb, 0.752341e+00_jprb &
33739  &, 0.736124e+00_jprb, 0.720032e+00_jprb, 0.704017e+00_jprb, 0.688148e+00_jprb &
33740  &, 0.672373e+00_jprb, 0.656765e+00_jprb, 0.641267e+00_jprb &
33741  &, 0.625907e+00_jprb, 0.610715e+00_jprb, 0.595673e+00_jprb, 0.580812e+00_jprb &
33742  &, 0.566111e+00_jprb, 0.551550e+00_jprb, 0.537204e+00_jprb &
33743  &, 0.523052e+00_jprb, 0.509121e+00_jprb, 0.495336e+00_jprb, 0.481773e+00_jprb &
33744  &, 0.468406e+00_jprb, 0.455205e+00_jprb, 0.442248e+00_jprb &
33745  &, 0.429561e+00_jprb, 0.417003e+00_jprb, 0.404706e+00_jprb, 0.392637e+00_jprb &
33746  &, 0.380762e+00_jprb, 0.369161e+00_jprb, 0.357737e+00_jprb &
33747  &, 0.346571e+00_jprb, 0.335623e+00_jprb, 0.324851e+00_jprb, 0.314398e+00_jprb &
33748  &, 0.304097e+00_jprb, 0.294093e+00_jprb, 0.284276e+00_jprb/)
33749 xcw( 773, :) = (/ &
33750  & 0.107320e+01_jprb, 0.109095e+01_jprb, 0.110845e+01_jprb, 0.112570e+01_jprb &
33751  &, 0.114268e+01_jprb, 0.115938e+01_jprb, 0.117578e+01_jprb &
33752  &, 0.119189e+01_jprb, 0.120768e+01_jprb, 0.122314e+01_jprb, 0.123827e+01_jprb &
33753  &, 0.125304e+01_jprb, 0.126746e+01_jprb, 0.128151e+01_jprb &
33754  &, 0.129518e+01_jprb, 0.130846e+01_jprb, 0.132134e+01_jprb, 0.133381e+01_jprb &
33755  &, 0.134586e+01_jprb, 0.135748e+01_jprb, 0.136866e+01_jprb &
33756  &, 0.137939e+01_jprb, 0.138967e+01_jprb, 0.139948e+01_jprb, 0.140882e+01_jprb &
33757  &, 0.141768e+01_jprb, 0.142606e+01_jprb, 0.143393e+01_jprb &
33758  &, 0.144132e+01_jprb, 0.144820e+01_jprb, 0.145456e+01_jprb, 0.146041e+01_jprb &
33759  &, 0.146574e+01_jprb, 0.147055e+01_jprb, 0.147483e+01_jprb &
33760  &, 0.147858e+01_jprb, 0.148180e+01_jprb, 0.148449e+01_jprb, 0.148664e+01_jprb &
33761  &, 0.148826e+01_jprb, 0.148934e+01_jprb, 0.148988e+01_jprb &
33762  &, 0.148989e+01_jprb, 0.148937e+01_jprb, 0.148832e+01_jprb, 0.148675e+01_jprb &
33763  &, 0.148465e+01_jprb, 0.148202e+01_jprb, 0.147889e+01_jprb &
33764  &, 0.147525e+01_jprb, 0.147109e+01_jprb, 0.146643e+01_jprb, 0.146127e+01_jprb &
33765  &, 0.145563e+01_jprb, 0.144951e+01_jprb, 0.144291e+01_jprb &
33766  &, 0.143586e+01_jprb, 0.142834e+01_jprb, 0.142036e+01_jprb, 0.141196e+01_jprb &
33767  &, 0.140311e+01_jprb, 0.139385e+01_jprb, 0.138416e+01_jprb &
33768  &, 0.137409e+01_jprb, 0.136362e+01_jprb, 0.135276e+01_jprb, 0.134154e+01_jprb &
33769  &, 0.132995e+01_jprb, 0.131801e+01_jprb, 0.130575e+01_jprb &
33770  &, 0.129318e+01_jprb, 0.128027e+01_jprb, 0.126706e+01_jprb, 0.125356e+01_jprb &
33771  &, 0.123980e+01_jprb, 0.122578e+01_jprb, 0.121149e+01_jprb &
33772  &, 0.119698e+01_jprb, 0.118223e+01_jprb, 0.116726e+01_jprb, 0.115210e+01_jprb &
33773  &, 0.113675e+01_jprb, 0.112124e+01_jprb, 0.110555e+01_jprb &
33774  &, 0.108970e+01_jprb, 0.107374e+01_jprb, 0.105765e+01_jprb, 0.104143e+01_jprb &
33775  &, 0.102511e+01_jprb, 0.100874e+01_jprb, 0.992247e+00_jprb &
33776  &, 0.975734e+00_jprb, 0.959138e+00_jprb, 0.942525e+00_jprb, 0.925862e+00_jprb &
33777  &, 0.909183e+00_jprb, 0.892521e+00_jprb, 0.875841e+00_jprb &
33778  &, 0.859175e+00_jprb, 0.842556e+00_jprb, 0.825981e+00_jprb, 0.809408e+00_jprb &
33779  &, 0.792944e+00_jprb, 0.776508e+00_jprb, 0.760168e+00_jprb &
33780  &, 0.743918e+00_jprb, 0.727749e+00_jprb, 0.711692e+00_jprb, 0.695777e+00_jprb &
33781  &, 0.679953e+00_jprb, 0.664247e+00_jprb, 0.648689e+00_jprb &
33782  &, 0.633266e+00_jprb, 0.617959e+00_jprb, 0.602891e+00_jprb, 0.587905e+00_jprb &
33783  &, 0.573121e+00_jprb, 0.558520e+00_jprb, 0.544082e+00_jprb &
33784  &, 0.529833e+00_jprb, 0.515800e+00_jprb, 0.501959e+00_jprb, 0.488284e+00_jprb &
33785  &, 0.474799e+00_jprb, 0.461583e+00_jprb, 0.448500e+00_jprb &
33786  &, 0.435681e+00_jprb, 0.423097e+00_jprb, 0.410659e+00_jprb, 0.398501e+00_jprb &
33787  &, 0.386532e+00_jprb, 0.374833e+00_jprb, 0.363307e+00_jprb &
33788  &, 0.352034e+00_jprb, 0.340975e+00_jprb, 0.330150e+00_jprb, 0.319516e+00_jprb &
33789  &, 0.309155e+00_jprb, 0.299023e+00_jprb, 0.289073e+00_jprb/)
33790 xcw( 774, :) = (/ &
33791  & 0.107355e+01_jprb, 0.109139e+01_jprb, 0.110899e+01_jprb, 0.112633e+01_jprb &
33792  &, 0.114341e+01_jprb, 0.116020e+01_jprb, 0.117671e+01_jprb &
33793  &, 0.119292e+01_jprb, 0.120881e+01_jprb, 0.122438e+01_jprb, 0.123961e+01_jprb &
33794  &, 0.125450e+01_jprb, 0.126902e+01_jprb, 0.128319e+01_jprb &
33795  &, 0.129697e+01_jprb, 0.131036e+01_jprb, 0.132335e+01_jprb, 0.133594e+01_jprb &
33796  &, 0.134810e+01_jprb, 0.135984e+01_jprb, 0.137114e+01_jprb &
33797  &, 0.138199e+01_jprb, 0.139238e+01_jprb, 0.140231e+01_jprb, 0.141178e+01_jprb &
33798  &, 0.142076e+01_jprb, 0.142925e+01_jprb, 0.143726e+01_jprb &
33799  &, 0.144476e+01_jprb, 0.145176e+01_jprb, 0.145824e+01_jprb, 0.146422e+01_jprb &
33800  &, 0.146967e+01_jprb, 0.147460e+01_jprb, 0.147893e+01_jprb &
33801  &, 0.148288e+01_jprb, 0.148621e+01_jprb, 0.148902e+01_jprb, 0.149129e+01_jprb &
33802  &, 0.149303e+01_jprb, 0.149423e+01_jprb, 0.149490e+01_jprb &
33803  &, 0.149503e+01_jprb, 0.149462e+01_jprb, 0.149369e+01_jprb, 0.149223e+01_jprb &
33804  &, 0.149023e+01_jprb, 0.148773e+01_jprb, 0.148470e+01_jprb &
33805  &, 0.148116e+01_jprb, 0.147712e+01_jprb, 0.147256e+01_jprb, 0.146751e+01_jprb &
33806  &, 0.146197e+01_jprb, 0.145595e+01_jprb, 0.144945e+01_jprb &
33807  &, 0.144249e+01_jprb, 0.143506e+01_jprb, 0.142719e+01_jprb, 0.141886e+01_jprb &
33808  &, 0.141010e+01_jprb, 0.140093e+01_jprb, 0.139135e+01_jprb &
33809  &, 0.138133e+01_jprb, 0.137094e+01_jprb, 0.136017e+01_jprb, 0.134902e+01_jprb &
33810  &, 0.133751e+01_jprb, 0.132564e+01_jprb, 0.131343e+01_jprb &
33811  &, 0.130091e+01_jprb, 0.128806e+01_jprb, 0.127491e+01_jprb, 0.126148e+01_jprb &
33812  &, 0.124777e+01_jprb, 0.123377e+01_jprb, 0.121954e+01_jprb &
33813  &, 0.120505e+01_jprb, 0.119035e+01_jprb, 0.117544e+01_jprb, 0.116030e+01_jprb &
33814  &, 0.114498e+01_jprb, 0.112947e+01_jprb, 0.111381e+01_jprb &
33815  &, 0.109800e+01_jprb, 0.108203e+01_jprb, 0.106594e+01_jprb, 0.104973e+01_jprb &
33816  &, 0.103345e+01_jprb, 0.101705e+01_jprb, 0.100055e+01_jprb &
33817  &, 0.984030e+00_jprb, 0.967422e+00_jprb, 0.950792e+00_jprb, 0.934110e+00_jprb &
33818  &, 0.917440e+00_jprb, 0.900715e+00_jprb, 0.884036e+00_jprb &
33819  &, 0.867332e+00_jprb, 0.850670e+00_jprb, 0.834048e+00_jprb, 0.817460e+00_jprb &
33820  &, 0.800939e+00_jprb, 0.784480e+00_jprb, 0.768074e+00_jprb &
33821  &, 0.751793e+00_jprb, 0.735547e+00_jprb, 0.719450e+00_jprb, 0.703449e+00_jprb &
33822  &, 0.687575e+00_jprb, 0.671772e+00_jprb, 0.656156e+00_jprb &
33823  &, 0.640669e+00_jprb, 0.625341e+00_jprb, 0.610154e+00_jprb, 0.595091e+00_jprb &
33824  &, 0.580273e+00_jprb, 0.565538e+00_jprb, 0.551058e+00_jprb &
33825  &, 0.536713e+00_jprb, 0.522579e+00_jprb, 0.508632e+00_jprb, 0.494898e+00_jprb &
33826  &, 0.481351e+00_jprb, 0.467961e+00_jprb, 0.454860e+00_jprb &
33827  &, 0.441911e+00_jprb, 0.429192e+00_jprb, 0.416725e+00_jprb, 0.404422e+00_jprb &
33828  &, 0.392361e+00_jprb, 0.380564e+00_jprb, 0.368937e+00_jprb &
33829  &, 0.357559e+00_jprb, 0.346390e+00_jprb, 0.335450e+00_jprb, 0.324760e+00_jprb &
33830  &, 0.314276e+00_jprb, 0.304082e+00_jprb, 0.294002e+00_jprb/)
33831 xcw( 775, :) = (/ &
33832  & 0.107390e+01_jprb, 0.109183e+01_jprb, 0.110952e+01_jprb, 0.112696e+01_jprb &
33833  &, 0.114413e+01_jprb, 0.116103e+01_jprb, 0.117764e+01_jprb &
33834  &, 0.119395e+01_jprb, 0.120995e+01_jprb, 0.122562e+01_jprb, 0.124096e+01_jprb &
33835  &, 0.125595e+01_jprb, 0.127059e+01_jprb, 0.128486e+01_jprb &
33836  &, 0.129876e+01_jprb, 0.131226e+01_jprb, 0.132537e+01_jprb, 0.133807e+01_jprb &
33837  &, 0.135035e+01_jprb, 0.136220e+01_jprb, 0.137362e+01_jprb &
33838  &, 0.138459e+01_jprb, 0.139511e+01_jprb, 0.140516e+01_jprb, 0.141474e+01_jprb &
33839  &, 0.142385e+01_jprb, 0.143246e+01_jprb, 0.144059e+01_jprb &
33840  &, 0.144821e+01_jprb, 0.145533e+01_jprb, 0.146194e+01_jprb, 0.146804e+01_jprb &
33841  &, 0.147362e+01_jprb, 0.147867e+01_jprb, 0.148319e+01_jprb &
33842  &, 0.148718e+01_jprb, 0.149065e+01_jprb, 0.149358e+01_jprb, 0.149597e+01_jprb &
33843  &, 0.149783e+01_jprb, 0.149915e+01_jprb, 0.149993e+01_jprb &
33844  &, 0.150018e+01_jprb, 0.149990e+01_jprb, 0.149907e+01_jprb, 0.149772e+01_jprb &
33845  &, 0.149585e+01_jprb, 0.149346e+01_jprb, 0.149055e+01_jprb &
33846  &, 0.148711e+01_jprb, 0.148317e+01_jprb, 0.147872e+01_jprb, 0.147379e+01_jprb &
33847  &, 0.146835e+01_jprb, 0.146243e+01_jprb, 0.145604e+01_jprb &
33848  &, 0.144917e+01_jprb, 0.144183e+01_jprb, 0.143405e+01_jprb, 0.142582e+01_jprb &
33849  &, 0.141715e+01_jprb, 0.140807e+01_jprb, 0.139855e+01_jprb &
33850  &, 0.138864e+01_jprb, 0.137833e+01_jprb, 0.136762e+01_jprb, 0.135654e+01_jprb &
33851  &, 0.134511e+01_jprb, 0.133332e+01_jprb, 0.132118e+01_jprb &
33852  &, 0.130872e+01_jprb, 0.129592e+01_jprb, 0.128282e+01_jprb, 0.126945e+01_jprb &
33853  &, 0.125578e+01_jprb, 0.124183e+01_jprb, 0.122765e+01_jprb &
33854  &, 0.121320e+01_jprb, 0.119853e+01_jprb, 0.118366e+01_jprb, 0.116856e+01_jprb &
33855  &, 0.115326e+01_jprb, 0.113778e+01_jprb, 0.112214e+01_jprb &
33856  &, 0.110633e+01_jprb, 0.109040e+01_jprb, 0.107433e+01_jprb, 0.105812e+01_jprb &
33857  &, 0.104182e+01_jprb, 0.102542e+01_jprb, 0.100895e+01_jprb &
33858  &, 0.992390e+00_jprb, 0.975803e+00_jprb, 0.959126e+00_jprb, 0.942457e+00_jprb &
33859  &, 0.925730e+00_jprb, 0.909012e+00_jprb, 0.892301e+00_jprb &
33860  &, 0.875560e+00_jprb, 0.858893e+00_jprb, 0.842225e+00_jprb, 0.825587e+00_jprb &
33861  &, 0.809011e+00_jprb, 0.792530e+00_jprb, 0.776059e+00_jprb &
33862  &, 0.759707e+00_jprb, 0.743468e+00_jprb, 0.727291e+00_jprb, 0.711205e+00_jprb &
33863  &, 0.695283e+00_jprb, 0.679428e+00_jprb, 0.663755e+00_jprb &
33864  &, 0.648162e+00_jprb, 0.632768e+00_jprb, 0.617511e+00_jprb, 0.602372e+00_jprb &
33865  &, 0.587473e+00_jprb, 0.572702e+00_jprb, 0.558083e+00_jprb &
33866  &, 0.543693e+00_jprb, 0.529460e+00_jprb, 0.515408e+00_jprb, 0.501565e+00_jprb &
33867  &, 0.487902e+00_jprb, 0.474500e+00_jprb, 0.461275e+00_jprb &
33868  &, 0.448252e+00_jprb, 0.435454e+00_jprb, 0.422848e+00_jprb, 0.410458e+00_jprb &
33869  &, 0.398305e+00_jprb, 0.386354e+00_jprb, 0.374686e+00_jprb &
33870  &, 0.363204e+00_jprb, 0.351927e+00_jprb, 0.340874e+00_jprb, 0.330067e+00_jprb &
33871  &, 0.319526e+00_jprb, 0.309141e+00_jprb, 0.299061e+00_jprb/)
33872 xcw( 776, :) = (/ &
33873  & 0.107425e+01_jprb, 0.109227e+01_jprb, 0.111006e+01_jprb, 0.112759e+01_jprb &
33874  &, 0.114487e+01_jprb, 0.116186e+01_jprb, 0.117857e+01_jprb &
33875  &, 0.119498e+01_jprb, 0.121109e+01_jprb, 0.122687e+01_jprb, 0.124231e+01_jprb &
33876  &, 0.125742e+01_jprb, 0.127217e+01_jprb, 0.128655e+01_jprb &
33877  &, 0.130055e+01_jprb, 0.131417e+01_jprb, 0.132740e+01_jprb, 0.134021e+01_jprb &
33878  &, 0.135261e+01_jprb, 0.136458e+01_jprb, 0.137612e+01_jprb &
33879  &, 0.138721e+01_jprb, 0.139784e+01_jprb, 0.140802e+01_jprb, 0.141772e+01_jprb &
33880  &, 0.142695e+01_jprb, 0.143569e+01_jprb, 0.144393e+01_jprb &
33881  &, 0.145168e+01_jprb, 0.145892e+01_jprb, 0.146566e+01_jprb, 0.147188e+01_jprb &
33882  &, 0.147758e+01_jprb, 0.148276e+01_jprb, 0.148740e+01_jprb &
33883  &, 0.149152e+01_jprb, 0.149510e+01_jprb, 0.149816e+01_jprb, 0.150067e+01_jprb &
33884  &, 0.150265e+01_jprb, 0.150409e+01_jprb, 0.150499e+01_jprb &
33885  &, 0.150536e+01_jprb, 0.150519e+01_jprb, 0.150448e+01_jprb, 0.150326e+01_jprb &
33886  &, 0.150150e+01_jprb, 0.149922e+01_jprb, 0.149641e+01_jprb &
33887  &, 0.149309e+01_jprb, 0.148927e+01_jprb, 0.148493e+01_jprb, 0.148010e+01_jprb &
33888  &, 0.147476e+01_jprb, 0.146895e+01_jprb, 0.146264e+01_jprb &
33889  &, 0.145588e+01_jprb, 0.144865e+01_jprb, 0.144096e+01_jprb, 0.143282e+01_jprb &
33890  &, 0.142425e+01_jprb, 0.141524e+01_jprb, 0.140581e+01_jprb &
33891  &, 0.139598e+01_jprb, 0.138575e+01_jprb, 0.137513e+01_jprb, 0.136411e+01_jprb &
33892  &, 0.135275e+01_jprb, 0.134102e+01_jprb, 0.132896e+01_jprb &
33893  &, 0.131656e+01_jprb, 0.130383e+01_jprb, 0.129080e+01_jprb, 0.127746e+01_jprb &
33894  &, 0.126384e+01_jprb, 0.124996e+01_jprb, 0.123580e+01_jprb &
33895  &, 0.122142e+01_jprb, 0.120679e+01_jprb, 0.119193e+01_jprb, 0.117686e+01_jprb &
33896  &, 0.116160e+01_jprb, 0.114614e+01_jprb, 0.113053e+01_jprb &
33897  &, 0.111474e+01_jprb, 0.109882e+01_jprb, 0.108274e+01_jprb, 0.106658e+01_jprb &
33898  &, 0.105028e+01_jprb, 0.103388e+01_jprb, 0.101738e+01_jprb &
33899  &, 0.100084e+01_jprb, 0.984216e+00_jprb, 0.967558e+00_jprb, 0.950838e+00_jprb &
33900  &, 0.934123e+00_jprb, 0.917378e+00_jprb, 0.900636e+00_jprb &
33901  &, 0.883895e+00_jprb, 0.867153e+00_jprb, 0.850440e+00_jprb, 0.833789e+00_jprb &
33902  &, 0.817197e+00_jprb, 0.800619e+00_jprb, 0.784162e+00_jprb &
33903  &, 0.767743e+00_jprb, 0.751430e+00_jprb, 0.735174e+00_jprb, 0.719046e+00_jprb &
33904  &, 0.703034e+00_jprb, 0.687171e+00_jprb, 0.671399e+00_jprb &
33905  &, 0.655746e+00_jprb, 0.640286e+00_jprb, 0.624959e+00_jprb, 0.609746e+00_jprb &
33906  &, 0.594721e+00_jprb, 0.579914e+00_jprb, 0.565206e+00_jprb &
33907  &, 0.550723e+00_jprb, 0.536391e+00_jprb, 0.522287e+00_jprb, 0.508336e+00_jprb &
33908  &, 0.494613e+00_jprb, 0.481092e+00_jprb, 0.467744e+00_jprb &
33909  &, 0.454647e+00_jprb, 0.441716e+00_jprb, 0.429028e+00_jprb, 0.416551e+00_jprb &
33910  &, 0.404308e+00_jprb, 0.392263e+00_jprb, 0.380496e+00_jprb &
33911  &, 0.368910e+00_jprb, 0.357525e+00_jprb, 0.346361e+00_jprb, 0.335501e+00_jprb &
33912  &, 0.324775e+00_jprb, 0.314330e+00_jprb, 0.304121e+00_jprb/)
33913 xcw( 777, :) = (/ &
33914  & 0.107460e+01_jprb, 0.109272e+01_jprb, 0.111060e+01_jprb, 0.112823e+01_jprb &
33915  &, 0.114560e+01_jprb, 0.116270e+01_jprb, 0.117951e+01_jprb &
33916  &, 0.119602e+01_jprb, 0.121223e+01_jprb, 0.122812e+01_jprb, 0.124367e+01_jprb &
33917  &, 0.125888e+01_jprb, 0.127374e+01_jprb, 0.128824e+01_jprb &
33918  &, 0.130236e+01_jprb, 0.131609e+01_jprb, 0.132943e+01_jprb, 0.134236e+01_jprb &
33919  &, 0.135488e+01_jprb, 0.136697e+01_jprb, 0.137862e+01_jprb &
33920  &, 0.138983e+01_jprb, 0.140059e+01_jprb, 0.141088e+01_jprb, 0.142071e+01_jprb &
33921  &, 0.143006e+01_jprb, 0.143892e+01_jprb, 0.144729e+01_jprb &
33922  &, 0.145516e+01_jprb, 0.146253e+01_jprb, 0.146939e+01_jprb, 0.147573e+01_jprb &
33923  &, 0.148156e+01_jprb, 0.148686e+01_jprb, 0.149163e+01_jprb &
33924  &, 0.149587e+01_jprb, 0.149958e+01_jprb, 0.150275e+01_jprb, 0.150539e+01_jprb &
33925  &, 0.150749e+01_jprb, 0.150905e+01_jprb, 0.151008e+01_jprb &
33926  &, 0.151057e+01_jprb, 0.151051e+01_jprb, 0.150993e+01_jprb, 0.150881e+01_jprb &
33927  &, 0.150718e+01_jprb, 0.150501e+01_jprb, 0.150231e+01_jprb &
33928  &, 0.149911e+01_jprb, 0.149538e+01_jprb, 0.149116e+01_jprb, 0.148644e+01_jprb &
33929  &, 0.148121e+01_jprb, 0.147549e+01_jprb, 0.146931e+01_jprb &
33930  &, 0.146264e+01_jprb, 0.145549e+01_jprb, 0.144791e+01_jprb, 0.143986e+01_jprb &
33931  &, 0.143138e+01_jprb, 0.142246e+01_jprb, 0.141311e+01_jprb &
33932  &, 0.140336e+01_jprb, 0.139320e+01_jprb, 0.138268e+01_jprb, 0.137174e+01_jprb &
33933  &, 0.136045e+01_jprb, 0.134879e+01_jprb, 0.133679e+01_jprb &
33934  &, 0.132445e+01_jprb, 0.131179e+01_jprb, 0.129883e+01_jprb, 0.128554e+01_jprb &
33935  &, 0.127197e+01_jprb, 0.125814e+01_jprb, 0.124403e+01_jprb &
33936  &, 0.122969e+01_jprb, 0.121508e+01_jprb, 0.120028e+01_jprb, 0.118522e+01_jprb &
33937  &, 0.116999e+01_jprb, 0.115459e+01_jprb, 0.113897e+01_jprb &
33938  &, 0.112320e+01_jprb, 0.110731e+01_jprb, 0.109124e+01_jprb, 0.107509e+01_jprb &
33939  &, 0.105879e+01_jprb, 0.104240e+01_jprb, 0.102590e+01_jprb &
33940  &, 0.100936e+01_jprb, 0.992726e+00_jprb, 0.976056e+00_jprb, 0.959320e+00_jprb &
33941  &, 0.942583e+00_jprb, 0.925813e+00_jprb, 0.909041e+00_jprb &
33942  &, 0.892267e+00_jprb, 0.875521e+00_jprb, 0.858765e+00_jprb, 0.842067e+00_jprb &
33943  &, 0.825422e+00_jprb, 0.808824e+00_jprb, 0.792306e+00_jprb &
33944  &, 0.775858e+00_jprb, 0.759473e+00_jprb, 0.743181e+00_jprb, 0.727012e+00_jprb &
33945  &, 0.710914e+00_jprb, 0.694957e+00_jprb, 0.679130e+00_jprb &
33946  &, 0.663418e+00_jprb, 0.647895e+00_jprb, 0.632454e+00_jprb, 0.617215e+00_jprb &
33947  &, 0.602112e+00_jprb, 0.587174e+00_jprb, 0.572428e+00_jprb &
33948  &, 0.557852e+00_jprb, 0.543423e+00_jprb, 0.529217e+00_jprb, 0.515210e+00_jprb &
33949  &, 0.501376e+00_jprb, 0.487738e+00_jprb, 0.474322e+00_jprb &
33950  &, 0.461153e+00_jprb, 0.448146e+00_jprb, 0.435321e+00_jprb, 0.422760e+00_jprb &
33951  &, 0.410428e+00_jprb, 0.398289e+00_jprb, 0.386365e+00_jprb &
33952  &, 0.374677e+00_jprb, 0.363186e+00_jprb, 0.351973e+00_jprb, 0.340934e+00_jprb &
33953  &, 0.330153e+00_jprb, 0.319649e+00_jprb, 0.309312e+00_jprb/)
33954 
33955 IF (lhook) CALL dr_hook('SU_MCICA:PART111',1,zhook_handle)
33956 END SUBROUTINE part111
33957 
33958 #ifdef VPP5000
33959 !OCL SCALAR
33960 #endif
33961 !option! -Nv -NO
33962 #ifdef RS6K
33963 @process nooptimize
33964 #endif
33965 !pgi$r opt=0
33966 SUBROUTINE part112
33967 
33968 REAL(KIND=JPRB) :: ZHOOK_HANDLE
33969 IF (lhook) CALL dr_hook('SU_MCICA:PART112',0,zhook_handle)
33970 
33971 xcw( 778, :) = (/ &
33972  & 0.107495e+01_jprb, 0.109316e+01_jprb, 0.111114e+01_jprb, 0.112887e+01_jprb &
33973  &, 0.114634e+01_jprb, 0.116353e+01_jprb, 0.118045e+01_jprb &
33974  &, 0.119706e+01_jprb, 0.121338e+01_jprb, 0.122937e+01_jprb, 0.124503e+01_jprb &
33975  &, 0.126035e+01_jprb, 0.127532e+01_jprb, 0.128993e+01_jprb &
33976  &, 0.130417e+01_jprb, 0.131801e+01_jprb, 0.133147e+01_jprb, 0.134452e+01_jprb &
33977  &, 0.135715e+01_jprb, 0.136936e+01_jprb, 0.138113e+01_jprb &
33978  &, 0.139247e+01_jprb, 0.140334e+01_jprb, 0.141376e+01_jprb, 0.142371e+01_jprb &
33979  &, 0.143318e+01_jprb, 0.144217e+01_jprb, 0.145066e+01_jprb &
33980  &, 0.145866e+01_jprb, 0.146615e+01_jprb, 0.147314e+01_jprb, 0.147960e+01_jprb &
33981  &, 0.148556e+01_jprb, 0.149098e+01_jprb, 0.149588e+01_jprb &
33982  &, 0.150024e+01_jprb, 0.150408e+01_jprb, 0.150737e+01_jprb, 0.151013e+01_jprb &
33983  &, 0.151235e+01_jprb, 0.151404e+01_jprb, 0.151519e+01_jprb &
33984  &, 0.151579e+01_jprb, 0.151586e+01_jprb, 0.151540e+01_jprb, 0.151441e+01_jprb &
33985  &, 0.151287e+01_jprb, 0.151082e+01_jprb, 0.150825e+01_jprb &
33986  &, 0.150515e+01_jprb, 0.150155e+01_jprb, 0.149743e+01_jprb, 0.149280e+01_jprb &
33987  &, 0.148768e+01_jprb, 0.148207e+01_jprb, 0.147598e+01_jprb &
33988  &, 0.146942e+01_jprb, 0.146239e+01_jprb, 0.145488e+01_jprb, 0.144693e+01_jprb &
33989  &, 0.143854e+01_jprb, 0.142971e+01_jprb, 0.142046e+01_jprb &
33990  &, 0.141080e+01_jprb, 0.140073e+01_jprb, 0.139026e+01_jprb, 0.137942e+01_jprb &
33991  &, 0.136819e+01_jprb, 0.135661e+01_jprb, 0.134468e+01_jprb &
33992  &, 0.133240e+01_jprb, 0.131980e+01_jprb, 0.130689e+01_jprb, 0.129368e+01_jprb &
33993  &, 0.128017e+01_jprb, 0.126637e+01_jprb, 0.125233e+01_jprb &
33994  &, 0.123801e+01_jprb, 0.122346e+01_jprb, 0.120868e+01_jprb, 0.119368e+01_jprb &
33995  &, 0.117846e+01_jprb, 0.116306e+01_jprb, 0.114750e+01_jprb &
33996  &, 0.113175e+01_jprb, 0.111585e+01_jprb, 0.109982e+01_jprb, 0.108365e+01_jprb &
33997  &, 0.106737e+01_jprb, 0.105098e+01_jprb, 0.103448e+01_jprb &
33998  &, 0.101794e+01_jprb, 0.100130e+01_jprb, 0.984619e+00_jprb, 0.967867e+00_jprb &
33999  &, 0.951111e+00_jprb, 0.934317e+00_jprb, 0.917517e+00_jprb &
34000  &, 0.900745e+00_jprb, 0.883926e+00_jprb, 0.867165e+00_jprb, 0.850457e+00_jprb &
34001  &, 0.833761e+00_jprb, 0.817108e+00_jprb, 0.800528e+00_jprb &
34002  &, 0.784014e+00_jprb, 0.767598e+00_jprb, 0.751271e+00_jprb, 0.735021e+00_jprb &
34003  &, 0.718879e+00_jprb, 0.702874e+00_jprb, 0.686951e+00_jprb &
34004  &, 0.671181e+00_jprb, 0.655550e+00_jprb, 0.640088e+00_jprb, 0.624730e+00_jprb &
34005  &, 0.609598e+00_jprb, 0.594579e+00_jprb, 0.579699e+00_jprb &
34006  &, 0.564982e+00_jprb, 0.550557e+00_jprb, 0.536250e+00_jprb, 0.522137e+00_jprb &
34007  &, 0.508245e+00_jprb, 0.494545e+00_jprb, 0.481009e+00_jprb &
34008  &, 0.467714e+00_jprb, 0.454632e+00_jprb, 0.441728e+00_jprb, 0.429026e+00_jprb &
34009  &, 0.416606e+00_jprb, 0.404375e+00_jprb, 0.392354e+00_jprb &
34010  &, 0.380565e+00_jprb, 0.368969e+00_jprb, 0.357646e+00_jprb, 0.346557e+00_jprb &
34011  &, 0.335658e+00_jprb, 0.324967e+00_jprb, 0.314569e+00_jprb/)
34012 xcw( 779, :) = (/ &
34013  & 0.107530e+01_jprb, 0.109361e+01_jprb, 0.111168e+01_jprb, 0.112951e+01_jprb &
34014  &, 0.114707e+01_jprb, 0.116437e+01_jprb, 0.118139e+01_jprb &
34015  &, 0.119811e+01_jprb, 0.121453e+01_jprb, 0.123063e+01_jprb, 0.124640e+01_jprb &
34016  &, 0.126183e+01_jprb, 0.127691e+01_jprb, 0.129163e+01_jprb &
34017  &, 0.130598e+01_jprb, 0.131995e+01_jprb, 0.133352e+01_jprb, 0.134668e+01_jprb &
34018  &, 0.135944e+01_jprb, 0.137176e+01_jprb, 0.138366e+01_jprb &
34019  &, 0.139511e+01_jprb, 0.140610e+01_jprb, 0.141665e+01_jprb, 0.142672e+01_jprb &
34020  &, 0.143632e+01_jprb, 0.144543e+01_jprb, 0.145405e+01_jprb &
34021  &, 0.146217e+01_jprb, 0.146979e+01_jprb, 0.147690e+01_jprb, 0.148349e+01_jprb &
34022  &, 0.148957e+01_jprb, 0.149512e+01_jprb, 0.150014e+01_jprb &
34023  &, 0.150462e+01_jprb, 0.150859e+01_jprb, 0.151201e+01_jprb, 0.151489e+01_jprb &
34024  &, 0.151724e+01_jprb, 0.151904e+01_jprb, 0.152032e+01_jprb &
34025  &, 0.152104e+01_jprb, 0.152124e+01_jprb, 0.152089e+01_jprb, 0.152002e+01_jprb &
34026  &, 0.151860e+01_jprb, 0.151668e+01_jprb, 0.151421e+01_jprb &
34027  &, 0.151122e+01_jprb, 0.150774e+01_jprb, 0.150373e+01_jprb, 0.149921e+01_jprb &
34028  &, 0.149420e+01_jprb, 0.148870e+01_jprb, 0.148271e+01_jprb &
34029  &, 0.147624e+01_jprb, 0.146930e+01_jprb, 0.146191e+01_jprb, 0.145405e+01_jprb &
34030  &, 0.144575e+01_jprb, 0.143702e+01_jprb, 0.142786e+01_jprb &
34031  &, 0.141828e+01_jprb, 0.140828e+01_jprb, 0.139790e+01_jprb, 0.138713e+01_jprb &
34032  &, 0.137599e+01_jprb, 0.136447e+01_jprb, 0.135261e+01_jprb &
34033  &, 0.134041e+01_jprb, 0.132788e+01_jprb, 0.131503e+01_jprb, 0.130185e+01_jprb &
34034  &, 0.128839e+01_jprb, 0.127466e+01_jprb, 0.126065e+01_jprb &
34035  &, 0.124640e+01_jprb, 0.123187e+01_jprb, 0.121713e+01_jprb, 0.120217e+01_jprb &
34036  &, 0.118701e+01_jprb, 0.117164e+01_jprb, 0.115608e+01_jprb &
34037  &, 0.114036e+01_jprb, 0.112447e+01_jprb, 0.110847e+01_jprb, 0.109231e+01_jprb &
34038  &, 0.107601e+01_jprb, 0.105963e+01_jprb, 0.104316e+01_jprb &
34039  &, 0.102659e+01_jprb, 0.100997e+01_jprb, 0.993248e+00_jprb, 0.976516e+00_jprb &
34040  &, 0.959742e+00_jprb, 0.942925e+00_jprb, 0.926099e+00_jprb &
34041  &, 0.909260e+00_jprb, 0.891895e+00_jprb, 0.875675e+00_jprb, 0.858886e+00_jprb &
34042  &, 0.842139e+00_jprb, 0.825469e+00_jprb, 0.808829e+00_jprb &
34043  &, 0.792291e+00_jprb, 0.775805e+00_jprb, 0.759403e+00_jprb, 0.743115e+00_jprb &
34044  &, 0.726929e+00_jprb, 0.710835e+00_jprb, 0.694903e+00_jprb &
34045  &, 0.679033e+00_jprb, 0.663342e+00_jprb, 0.647768e+00_jprb, 0.632387e+00_jprb &
34046  &, 0.617132e+00_jprb, 0.602033e+00_jprb, 0.587117e+00_jprb &
34047  &, 0.572360e+00_jprb, 0.557791e+00_jprb, 0.543386e+00_jprb, 0.529221e+00_jprb &
34048  &, 0.515166e+00_jprb, 0.501405e+00_jprb, 0.487750e+00_jprb &
34049  &, 0.474385e+00_jprb, 0.461173e+00_jprb, 0.448191e+00_jprb, 0.435407e+00_jprb &
34050  &, 0.422842e+00_jprb, 0.410519e+00_jprb, 0.398403e+00_jprb &
34051  &, 0.386515e+00_jprb, 0.374875e+00_jprb, 0.363382e+00_jprb, 0.352180e+00_jprb &
34052  &, 0.341164e+00_jprb, 0.330416e+00_jprb, 0.319892e+00_jprb/)
34053 xcw( 780, :) = (/ &
34054  & 0.107566e+01_jprb, 0.109406e+01_jprb, 0.111222e+01_jprb, 0.113015e+01_jprb &
34055  &, 0.114781e+01_jprb, 0.116521e+01_jprb, 0.118233e+01_jprb &
34056  &, 0.119916e+01_jprb, 0.121568e+01_jprb, 0.123189e+01_jprb, 0.124777e+01_jprb &
34057  &, 0.126331e+01_jprb, 0.127851e+01_jprb, 0.129334e+01_jprb &
34058  &, 0.130780e+01_jprb, 0.132188e+01_jprb, 0.133557e+01_jprb, 0.134885e+01_jprb &
34059  &, 0.136173e+01_jprb, 0.137417e+01_jprb, 0.138619e+01_jprb &
34060  &, 0.139776e+01_jprb, 0.140889e+01_jprb, 0.141955e+01_jprb, 0.142975e+01_jprb &
34061  &, 0.143947e+01_jprb, 0.144870e+01_jprb, 0.145745e+01_jprb &
34062  &, 0.146570e+01_jprb, 0.147344e+01_jprb, 0.148068e+01_jprb, 0.148740e+01_jprb &
34063  &, 0.149360e+01_jprb, 0.149927e+01_jprb, 0.150442e+01_jprb &
34064  &, 0.150904e+01_jprb, 0.151313e+01_jprb, 0.151667e+01_jprb, 0.151968e+01_jprb &
34065  &, 0.152215e+01_jprb, 0.152408e+01_jprb, 0.152547e+01_jprb &
34066  &, 0.152632e+01_jprb, 0.152664e+01_jprb, 0.152642e+01_jprb, 0.152566e+01_jprb &
34067  &, 0.152437e+01_jprb, 0.152255e+01_jprb, 0.152020e+01_jprb &
34068  &, 0.151733e+01_jprb, 0.151395e+01_jprb, 0.151005e+01_jprb, 0.150566e+01_jprb &
34069  &, 0.150075e+01_jprb, 0.149536e+01_jprb, 0.148948e+01_jprb &
34070  &, 0.148311e+01_jprb, 0.147628e+01_jprb, 0.146896e+01_jprb, 0.146122e+01_jprb &
34071  &, 0.145300e+01_jprb, 0.144437e+01_jprb, 0.143530e+01_jprb &
34072  &, 0.142579e+01_jprb, 0.141589e+01_jprb, 0.140560e+01_jprb, 0.139489e+01_jprb &
34073  &, 0.138383e+01_jprb, 0.137240e+01_jprb, 0.136060e+01_jprb &
34074  &, 0.134847e+01_jprb, 0.133599e+01_jprb, 0.132321e+01_jprb, 0.131011e+01_jprb &
34075  &, 0.129670e+01_jprb, 0.128301e+01_jprb, 0.126906e+01_jprb &
34076  &, 0.125484e+01_jprb, 0.124036e+01_jprb, 0.122565e+01_jprb, 0.121073e+01_jprb &
34077  &, 0.119561e+01_jprb, 0.118025e+01_jprb, 0.116474e+01_jprb &
34078  &, 0.114904e+01_jprb, 0.113319e+01_jprb, 0.111717e+01_jprb, 0.110103e+01_jprb &
34079  &, 0.108474e+01_jprb, 0.106836e+01_jprb, 0.105190e+01_jprb &
34080  &, 0.103533e+01_jprb, 0.101867e+01_jprb, 0.100198e+01_jprb, 0.985231e+00_jprb &
34081  &, 0.968372e+00_jprb, 0.951603e+00_jprb, 0.934751e+00_jprb &
34082  &, 0.917917e+00_jprb, 0.901064e+00_jprb, 0.884223e+00_jprb, 0.867427e+00_jprb &
34083  &, 0.850632e+00_jprb, 0.833908e+00_jprb, 0.817249e+00_jprb &
34084  &, 0.800647e+00_jprb, 0.784093e+00_jprb, 0.767659e+00_jprb, 0.751292e+00_jprb &
34085  &, 0.735066e+00_jprb, 0.718926e+00_jprb, 0.702900e+00_jprb &
34086  &, 0.686975e+00_jprb, 0.671225e+00_jprb, 0.655587e+00_jprb, 0.640090e+00_jprb &
34087  &, 0.624762e+00_jprb, 0.609584e+00_jprb, 0.594584e+00_jprb &
34088  &, 0.579739e+00_jprb, 0.565077e+00_jprb, 0.550624e+00_jprb, 0.536356e+00_jprb &
34089  &, 0.522246e+00_jprb, 0.508319e+00_jprb, 0.494599e+00_jprb &
34090  &, 0.481112e+00_jprb, 0.467827e+00_jprb, 0.454768e+00_jprb, 0.441902e+00_jprb &
34091  &, 0.429194e+00_jprb, 0.416782e+00_jprb, 0.404572e+00_jprb &
34092  &, 0.392585e+00_jprb, 0.380781e+00_jprb, 0.369243e+00_jprb, 0.357930e+00_jprb &
34093  &, 0.346797e+00_jprb, 0.335929e+00_jprb, 0.325280e+00_jprb/)
34094 xcw( 781, :) = (/ &
34095  & 0.107601e+01_jprb, 0.109451e+01_jprb, 0.111277e+01_jprb, 0.113079e+01_jprb &
34096  &, 0.114856e+01_jprb, 0.116606e+01_jprb, 0.118328e+01_jprb &
34097  &, 0.120021e+01_jprb, 0.121684e+01_jprb, 0.123315e+01_jprb, 0.124915e+01_jprb &
34098  &, 0.126480e+01_jprb, 0.128011e+01_jprb, 0.129505e+01_jprb &
34099  &, 0.130963e+01_jprb, 0.132383e+01_jprb, 0.133763e+01_jprb, 0.135104e+01_jprb &
34100  &, 0.136403e+01_jprb, 0.137659e+01_jprb, 0.138873e+01_jprb &
34101  &, 0.140043e+01_jprb, 0.141167e+01_jprb, 0.142246e+01_jprb, 0.143278e+01_jprb &
34102  &, 0.144263e+01_jprb, 0.145199e+01_jprb, 0.146086e+01_jprb &
34103  &, 0.146923e+01_jprb, 0.147711e+01_jprb, 0.148447e+01_jprb, 0.149132e+01_jprb &
34104  &, 0.149765e+01_jprb, 0.150345e+01_jprb, 0.150873e+01_jprb &
34105  &, 0.151347e+01_jprb, 0.151768e+01_jprb, 0.152135e+01_jprb, 0.152449e+01_jprb &
34106  &, 0.152708e+01_jprb, 0.152914e+01_jprb, 0.153066e+01_jprb &
34107  &, 0.153163e+01_jprb, 0.153207e+01_jprb, 0.153197e+01_jprb, 0.153132e+01_jprb &
34108  &, 0.153015e+01_jprb, 0.152846e+01_jprb, 0.152622e+01_jprb &
34109  &, 0.152347e+01_jprb, 0.152020e+01_jprb, 0.151642e+01_jprb, 0.151211e+01_jprb &
34110  &, 0.150734e+01_jprb, 0.150205e+01_jprb, 0.149628e+01_jprb &
34111  &, 0.149000e+01_jprb, 0.148327e+01_jprb, 0.147607e+01_jprb, 0.146840e+01_jprb &
34112  &, 0.146030e+01_jprb, 0.145174e+01_jprb, 0.144277e+01_jprb &
34113  &, 0.143336e+01_jprb, 0.142355e+01_jprb, 0.141333e+01_jprb, 0.140272e+01_jprb &
34114  &, 0.139172e+01_jprb, 0.138037e+01_jprb, 0.136863e+01_jprb &
34115  &, 0.135657e+01_jprb, 0.134418e+01_jprb, 0.133143e+01_jprb, 0.131839e+01_jprb &
34116  &, 0.130504e+01_jprb, 0.129142e+01_jprb, 0.127750e+01_jprb &
34117  &, 0.126335e+01_jprb, 0.124892e+01_jprb, 0.123426e+01_jprb, 0.121935e+01_jprb &
34118  &, 0.120426e+01_jprb, 0.118893e+01_jprb, 0.117346e+01_jprb &
34119  &, 0.115776e+01_jprb, 0.114192e+01_jprb, 0.112593e+01_jprb, 0.110980e+01_jprb &
34120  &, 0.109356e+01_jprb, 0.107719e+01_jprb, 0.106070e+01_jprb &
34121  &, 0.104413e+01_jprb, 0.102747e+01_jprb, 0.101077e+01_jprb, 0.994012e+00_jprb &
34122  &, 0.977206e+00_jprb, 0.960349e+00_jprb, 0.943473e+00_jprb &
34123  &, 0.926611e+00_jprb, 0.909724e+00_jprb, 0.892882e+00_jprb, 0.876043e+00_jprb &
34124  &, 0.859200e+00_jprb, 0.842463e+00_jprb, 0.825748e+00_jprb &
34125  &, 0.809084e+00_jprb, 0.792504e+00_jprb, 0.775998e+00_jprb, 0.759596e+00_jprb &
34126  &, 0.743288e+00_jprb, 0.727060e+00_jprb, 0.710986e+00_jprb &
34127  &, 0.695007e+00_jprb, 0.679153e+00_jprb, 0.663452e+00_jprb, 0.647887e+00_jprb &
34128  &, 0.632487e+00_jprb, 0.617232e+00_jprb, 0.602149e+00_jprb &
34129  &, 0.587218e+00_jprb, 0.572514e+00_jprb, 0.557913e+00_jprb, 0.543543e+00_jprb &
34130  &, 0.529379e+00_jprb, 0.514536e+00_jprb, 0.501558e+00_jprb &
34131  &, 0.487948e+00_jprb, 0.474592e+00_jprb, 0.461401e+00_jprb, 0.448456e+00_jprb &
34132  &, 0.435664e+00_jprb, 0.423163e+00_jprb, 0.410801e+00_jprb &
34133  &, 0.398716e+00_jprb, 0.386811e+00_jprb, 0.375167e+00_jprb, 0.363743e+00_jprb &
34134  &, 0.352559e+00_jprb, 0.341572e+00_jprb, 0.330800e+00_jprb/)
34135 xcw( 782, :) = (/ &
34136  & 0.107637e+01_jprb, 0.109496e+01_jprb, 0.111332e+01_jprb, 0.113143e+01_jprb &
34137  &, 0.114930e+01_jprb, 0.116690e+01_jprb, 0.118423e+01_jprb &
34138  &, 0.120126e+01_jprb, 0.121800e+01_jprb, 0.123443e+01_jprb, 0.125053e+01_jprb &
34139  &, 0.126629e+01_jprb, 0.128171e+01_jprb, 0.129677e+01_jprb &
34140  &, 0.131146e+01_jprb, 0.132578e+01_jprb, 0.133970e+01_jprb, 0.135322e+01_jprb &
34141  &, 0.136634e+01_jprb, 0.137902e+01_jprb, 0.139128e+01_jprb &
34142  &, 0.140310e+01_jprb, 0.141448e+01_jprb, 0.142539e+01_jprb, 0.143583e+01_jprb &
34143  &, 0.144580e+01_jprb, 0.145529e+01_jprb, 0.146429e+01_jprb &
34144  &, 0.147279e+01_jprb, 0.148079e+01_jprb, 0.148828e+01_jprb, 0.149525e+01_jprb &
34145  &, 0.150171e+01_jprb, 0.150765e+01_jprb, 0.151305e+01_jprb &
34146  &, 0.151792e+01_jprb, 0.152225e+01_jprb, 0.152605e+01_jprb, 0.152932e+01_jprb &
34147  &, 0.153204e+01_jprb, 0.153422e+01_jprb, 0.153587e+01_jprb &
34148  &, 0.153697e+01_jprb, 0.153752e+01_jprb, 0.153754e+01_jprb, 0.153702e+01_jprb &
34149  &, 0.153598e+01_jprb, 0.153439e+01_jprb, 0.153229e+01_jprb &
34150  &, 0.152964e+01_jprb, 0.152650e+01_jprb, 0.152282e+01_jprb, 0.151865e+01_jprb &
34151  &, 0.151395e+01_jprb, 0.150878e+01_jprb, 0.150311e+01_jprb &
34152  &, 0.149695e+01_jprb, 0.149033e+01_jprb, 0.148321e+01_jprb, 0.147566e+01_jprb &
34153  &, 0.146763e+01_jprb, 0.145919e+01_jprb, 0.145029e+01_jprb &
34154  &, 0.144098e+01_jprb, 0.143125e+01_jprb, 0.142110e+01_jprb, 0.141058e+01_jprb &
34155  &, 0.139966e+01_jprb, 0.138837e+01_jprb, 0.137673e+01_jprb &
34156  &, 0.136473e+01_jprb, 0.135240e+01_jprb, 0.133974e+01_jprb, 0.132676e+01_jprb &
34157  &, 0.131347e+01_jprb, 0.129988e+01_jprb, 0.128604e+01_jprb &
34158  &, 0.127191e+01_jprb, 0.125752e+01_jprb, 0.124291e+01_jprb, 0.122804e+01_jprb &
34159  &, 0.121299e+01_jprb, 0.119770e+01_jprb, 0.118223e+01_jprb &
34160  &, 0.116659e+01_jprb, 0.115078e+01_jprb, 0.113480e+01_jprb, 0.111867e+01_jprb &
34161  &, 0.110243e+01_jprb, 0.108605e+01_jprb, 0.106960e+01_jprb &
34162  &, 0.105303e+01_jprb, 0.103637e+01_jprb, 0.101966e+01_jprb, 0.100286e+01_jprb &
34163  &, 0.986041e+00_jprb, 0.969165e+00_jprb, 0.952300e+00_jprb &
34164  &, 0.935375e+00_jprb, 0.918493e+00_jprb, 0.901577e+00_jprb, 0.884734e+00_jprb &
34165  &, 0.867884e+00_jprb, 0.851058e+00_jprb, 0.834326e+00_jprb &
34166  &, 0.817602e+00_jprb, 0.800956e+00_jprb, 0.784420e+00_jprb, 0.767942e+00_jprb &
34167  &, 0.751596e+00_jprb, 0.735325e+00_jprb, 0.719159e+00_jprb &
34168  &, 0.703129e+00_jprb, 0.687218e+00_jprb, 0.671456e+00_jprb, 0.655825e+00_jprb &
34169  &, 0.640307e+00_jprb, 0.624976e+00_jprb, 0.609813e+00_jprb &
34170  &, 0.594796e+00_jprb, 0.580001e+00_jprb, 0.565357e+00_jprb, 0.550887e+00_jprb &
34171  &, 0.536565e+00_jprb, 0.522522e+00_jprb, 0.508625e+00_jprb &
34172  &, 0.494895e+00_jprb, 0.481413e+00_jprb, 0.468148e+00_jprb, 0.455067e+00_jprb &
34173  &, 0.442191e+00_jprb, 0.429603e+00_jprb, 0.417149e+00_jprb &
34174  &, 0.404969e+00_jprb, 0.392963e+00_jprb, 0.381214e+00_jprb, 0.369682e+00_jprb &
34175  &, 0.358385e+00_jprb, 0.347280e+00_jprb, 0.336385e+00_jprb/)
34176 xcw( 783, :) = (/ &
34177  & 0.107673e+01_jprb, 0.109541e+01_jprb, 0.111386e+01_jprb, 0.113208e+01_jprb &
34178  &, 0.115005e+01_jprb, 0.116775e+01_jprb, 0.118518e+01_jprb &
34179  &, 0.120232e+01_jprb, 0.121917e+01_jprb, 0.123570e+01_jprb, 0.125191e+01_jprb &
34180  &, 0.126779e+01_jprb, 0.128332e+01_jprb, 0.129850e+01_jprb &
34181  &, 0.131330e+01_jprb, 0.132774e+01_jprb, 0.134178e+01_jprb, 0.135542e+01_jprb &
34182  &, 0.136865e+01_jprb, 0.138146e+01_jprb, 0.139385e+01_jprb &
34183  &, 0.140579e+01_jprb, 0.141728e+01_jprb, 0.142832e+01_jprb, 0.143889e+01_jprb &
34184  &, 0.144899e+01_jprb, 0.145860e+01_jprb, 0.146773e+01_jprb &
34185  &, 0.147636e+01_jprb, 0.148449e+01_jprb, 0.149185e+01_jprb, 0.149921e+01_jprb &
34186  &, 0.150579e+01_jprb, 0.151186e+01_jprb, 0.151739e+01_jprb &
34187  &, 0.152239e+01_jprb, 0.152685e+01_jprb, 0.153079e+01_jprb, 0.153417e+01_jprb &
34188  &, 0.153702e+01_jprb, 0.153933e+01_jprb, 0.154109e+01_jprb &
34189  &, 0.154232e+01_jprb, 0.154300e+01_jprb, 0.154315e+01_jprb, 0.154275e+01_jprb &
34190  &, 0.154182e+01_jprb, 0.154036e+01_jprb, 0.153837e+01_jprb &
34191  &, 0.153585e+01_jprb, 0.153281e+01_jprb, 0.152926e+01_jprb, 0.152520e+01_jprb &
34192  &, 0.152062e+01_jprb, 0.151555e+01_jprb, 0.150998e+01_jprb &
34193  &, 0.150394e+01_jprb, 0.149740e+01_jprb, 0.149038e+01_jprb, 0.148294e+01_jprb &
34194  &, 0.147502e+01_jprb, 0.146666e+01_jprb, 0.145786e+01_jprb &
34195  &, 0.144864e+01_jprb, 0.143900e+01_jprb, 0.142895e+01_jprb, 0.141851e+01_jprb &
34196  &, 0.140766e+01_jprb, 0.139646e+01_jprb, 0.138488e+01_jprb &
34197  &, 0.137295e+01_jprb, 0.136069e+01_jprb, 0.134809e+01_jprb, 0.133517e+01_jprb &
34198  &, 0.132194e+01_jprb, 0.130841e+01_jprb, 0.129460e+01_jprb &
34199  &, 0.128055e+01_jprb, 0.126621e+01_jprb, 0.125161e+01_jprb, 0.123682e+01_jprb &
34200  &, 0.122178e+01_jprb, 0.120652e+01_jprb, 0.119108e+01_jprb &
34201  &, 0.117547e+01_jprb, 0.115966e+01_jprb, 0.114371e+01_jprb, 0.112762e+01_jprb &
34202  &, 0.111137e+01_jprb, 0.109497e+01_jprb, 0.107855e+01_jprb &
34203  &, 0.106199e+01_jprb, 0.104533e+01_jprb, 0.102858e+01_jprb, 0.101181e+01_jprb &
34204  &, 0.994977e+00_jprb, 0.978084e+00_jprb, 0.961198e+00_jprb &
34205  &, 0.944247e+00_jprb, 0.927335e+00_jprb, 0.910421e+00_jprb, 0.893501e+00_jprb &
34206  &, 0.876606e+00_jprb, 0.859769e+00_jprb, 0.842983e+00_jprb &
34207  &, 0.826200e+00_jprb, 0.809530e+00_jprb, 0.792925e+00_jprb, 0.776415e+00_jprb &
34208  &, 0.759989e+00_jprb, 0.743633e+00_jprb, 0.727421e+00_jprb &
34209  &, 0.711340e+00_jprb, 0.695328e+00_jprb, 0.679506e+00_jprb, 0.663810e+00_jprb &
34210  &, 0.648222e+00_jprb, 0.632817e+00_jprb, 0.617575e+00_jprb &
34211  &, 0.602474e+00_jprb, 0.587590e+00_jprb, 0.572852e+00_jprb, 0.558283e+00_jprb &
34212  &, 0.543909e+00_jprb, 0.529704e+00_jprb, 0.515746e+00_jprb &
34213  &, 0.501953e+00_jprb, 0.488347e+00_jprb, 0.475008e+00_jprb, 0.461793e+00_jprb &
34214  &, 0.448835e+00_jprb, 0.436102e+00_jprb, 0.423557e+00_jprb &
34215  &, 0.411282e+00_jprb, 0.399177e+00_jprb, 0.387325e+00_jprb, 0.375684e+00_jprb &
34216  &, 0.364274e+00_jprb, 0.353053e+00_jprb, 0.342102e+00_jprb/)
34217 xcw( 784, :) = (/ &
34218  & 0.107709e+01_jprb, 0.109586e+01_jprb, 0.111441e+01_jprb, 0.113273e+01_jprb &
34219  &, 0.115080e+01_jprb, 0.116860e+01_jprb, 0.118614e+01_jprb &
34220  &, 0.120338e+01_jprb, 0.122034e+01_jprb, 0.123698e+01_jprb, 0.125330e+01_jprb &
34221  &, 0.126929e+01_jprb, 0.128494e+01_jprb, 0.130023e+01_jprb &
34222  &, 0.131515e+01_jprb, 0.132970e+01_jprb, 0.134386e+01_jprb, 0.135763e+01_jprb &
34223  &, 0.137098e+01_jprb, 0.138391e+01_jprb, 0.139642e+01_jprb &
34224  &, 0.140849e+01_jprb, 0.142011e+01_jprb, 0.143127e+01_jprb, 0.144197e+01_jprb &
34225  &, 0.145219e+01_jprb, 0.146194e+01_jprb, 0.147119e+01_jprb &
34226  &, 0.147994e+01_jprb, 0.148820e+01_jprb, 0.149595e+01_jprb, 0.150318e+01_jprb &
34227  &, 0.150990e+01_jprb, 0.151609e+01_jprb, 0.152175e+01_jprb &
34228  &, 0.152687e+01_jprb, 0.153148e+01_jprb, 0.153553e+01_jprb, 0.153904e+01_jprb &
34229  &, 0.154203e+01_jprb, 0.154446e+01_jprb, 0.154636e+01_jprb &
34230  &, 0.154770e+01_jprb, 0.154851e+01_jprb, 0.154878e+01_jprb, 0.154851e+01_jprb &
34231  &, 0.154770e+01_jprb, 0.154636e+01_jprb, 0.154449e+01_jprb &
34232  &, 0.154209e+01_jprb, 0.153916e+01_jprb, 0.153573e+01_jprb, 0.153177e+01_jprb &
34233  &, 0.152732e+01_jprb, 0.152236e+01_jprb, 0.151690e+01_jprb &
34234  &, 0.151096e+01_jprb, 0.150454e+01_jprb, 0.149763e+01_jprb, 0.149028e+01_jprb &
34235  &, 0.148245e+01_jprb, 0.147419e+01_jprb, 0.146549e+01_jprb &
34236  &, 0.145635e+01_jprb, 0.144679e+01_jprb, 0.143684e+01_jprb, 0.142647e+01_jprb &
34237  &, 0.141571e+01_jprb, 0.140459e+01_jprb, 0.139308e+01_jprb &
34238  &, 0.138122e+01_jprb, 0.136903e+01_jprb, 0.135649e+01_jprb, 0.134363e+01_jprb &
34239  &, 0.133046e+01_jprb, 0.131701e+01_jprb, 0.130325e+01_jprb &
34240  &, 0.128923e+01_jprb, 0.127494e+01_jprb, 0.126039e+01_jprb, 0.124564e+01_jprb &
34241  &, 0.123064e+01_jprb, 0.121542e+01_jprb, 0.120002e+01_jprb &
34242  &, 0.118441e+01_jprb, 0.116863e+01_jprb, 0.115270e+01_jprb, 0.113660e+01_jprb &
34243  &, 0.112040e+01_jprb, 0.110404e+01_jprb, 0.108757e+01_jprb &
34244  &, 0.107101e+01_jprb, 0.105436e+01_jprb, 0.103764e+01_jprb, 0.102082e+01_jprb &
34245  &, 0.100398e+01_jprb, 0.987072e+00_jprb, 0.970166e+00_jprb &
34246  &, 0.953227e+00_jprb, 0.936249e+00_jprb, 0.919302e+00_jprb, 0.902343e+00_jprb &
34247  &, 0.885443e+00_jprb, 0.868558e+00_jprb, 0.851719e+00_jprb &
34248  &, 0.834918e+00_jprb, 0.818186e+00_jprb, 0.801223e+00_jprb, 0.784972e+00_jprb &
34249  &, 0.768468e+00_jprb, 0.752072e+00_jprb, 0.735816e+00_jprb &
34250  &, 0.719641e+00_jprb, 0.703576e+00_jprb, 0.687648e+00_jprb, 0.671889e+00_jprb &
34251  &, 0.656233e+00_jprb, 0.640755e+00_jprb, 0.625435e+00_jprb &
34252  &, 0.610251e+00_jprb, 0.595230e+00_jprb, 0.580449e+00_jprb, 0.565783e+00_jprb &
34253  &, 0.551306e+00_jprb, 0.537047e+00_jprb, 0.522976e+00_jprb &
34254  &, 0.509065e+00_jprb, 0.495391e+00_jprb, 0.481925e+00_jprb, 0.468633e+00_jprb &
34255  &, 0.455596e+00_jprb, 0.442720e+00_jprb, 0.430085e+00_jprb &
34256  &, 0.417717e+00_jprb, 0.405514e+00_jprb, 0.393497e+00_jprb, 0.381749e+00_jprb &
34257  &, 0.370228e+00_jprb, 0.358955e+00_jprb, 0.347885e+00_jprb/)
34258 
34259 IF (lhook) CALL dr_hook('SU_MCICA:PART112',1,zhook_handle)
34260 END SUBROUTINE part112
34261 
34262 #ifdef VPP5000
34263 !OCL SCALAR
34264 #endif
34265 !option! -Nv -NO
34266 #ifdef RS6K
34267 @process nooptimize
34268 #endif
34269 !pgi$r opt=0
34270 SUBROUTINE part113
34271 
34272 REAL(KIND=JPRB) :: ZHOOK_HANDLE
34273 IF (lhook) CALL dr_hook('SU_MCICA:PART113',0,zhook_handle)
34274 
34275 xcw( 785, :) = (/ &
34276  & 0.107745e+01_jprb, 0.109632e+01_jprb, 0.111497e+01_jprb, 0.113338e+01_jprb &
34277  &, 0.115155e+01_jprb, 0.116946e+01_jprb, 0.118710e+01_jprb &
34278  &, 0.120445e+01_jprb, 0.122151e+01_jprb, 0.123826e+01_jprb, 0.125469e+01_jprb &
34279  &, 0.127080e+01_jprb, 0.128656e+01_jprb, 0.130197e+01_jprb &
34280  &, 0.131701e+01_jprb, 0.133168e+01_jprb, 0.134596e+01_jprb, 0.135984e+01_jprb &
34281  &, 0.137331e+01_jprb, 0.138637e+01_jprb, 0.139900e+01_jprb &
34282  &, 0.141119e+01_jprb, 0.142294e+01_jprb, 0.143423e+01_jprb, 0.144505e+01_jprb &
34283  &, 0.145540e+01_jprb, 0.146528e+01_jprb, 0.147466e+01_jprb &
34284  &, 0.148355e+01_jprb, 0.149193e+01_jprb, 0.149981e+01_jprb, 0.150717e+01_jprb &
34285  &, 0.151402e+01_jprb, 0.152034e+01_jprb, 0.152613e+01_jprb &
34286  &, 0.153138e+01_jprb, 0.153611e+01_jprb, 0.154030e+01_jprb, 0.154395e+01_jprb &
34287  &, 0.154705e+01_jprb, 0.154962e+01_jprb, 0.155164e+01_jprb &
34288  &, 0.155311e+01_jprb, 0.155405e+01_jprb, 0.155445e+01_jprb, 0.155429e+01_jprb &
34289  &, 0.155361e+01_jprb, 0.155240e+01_jprb, 0.155064e+01_jprb &
34290  &, 0.154836e+01_jprb, 0.154556e+01_jprb, 0.154224e+01_jprb, 0.153839e+01_jprb &
34291  &, 0.153403e+01_jprb, 0.152919e+01_jprb, 0.152385e+01_jprb &
34292  &, 0.151802e+01_jprb, 0.151170e+01_jprb, 0.150490e+01_jprb, 0.149765e+01_jprb &
34293  &, 0.148992e+01_jprb, 0.148176e+01_jprb, 0.147314e+01_jprb &
34294  &, 0.146410e+01_jprb, 0.145464e+01_jprb, 0.144476e+01_jprb, 0.143449e+01_jprb &
34295  &, 0.142381e+01_jprb, 0.141276e+01_jprb, 0.140134e+01_jprb &
34296  &, 0.138955e+01_jprb, 0.137742e+01_jprb, 0.136495e+01_jprb, 0.135216e+01_jprb &
34297  &, 0.133905e+01_jprb, 0.132565e+01_jprb, 0.131196e+01_jprb &
34298  &, 0.129798e+01_jprb, 0.128375e+01_jprb, 0.126924e+01_jprb, 0.125451e+01_jprb &
34299  &, 0.123955e+01_jprb, 0.122438e+01_jprb, 0.120901e+01_jprb &
34300  &, 0.119343e+01_jprb, 0.117768e+01_jprb, 0.116177e+01_jprb, 0.114570e+01_jprb &
34301  &, 0.112949e+01_jprb, 0.111314e+01_jprb, 0.109669e+01_jprb &
34302  &, 0.108013e+01_jprb, 0.106348e+01_jprb, 0.104673e+01_jprb, 0.102994e+01_jprb &
34303  &, 0.101305e+01_jprb, 0.996164e+00_jprb, 0.979205e+00_jprb &
34304  &, 0.962242e+00_jprb, 0.945273e+00_jprb, 0.928293e+00_jprb, 0.911298e+00_jprb &
34305  &, 0.894356e+00_jprb, 0.877425e+00_jprb, 0.860534e+00_jprb &
34306  &, 0.843717e+00_jprb, 0.826923e+00_jprb, 0.810225e+00_jprb, 0.793613e+00_jprb &
34307  &, 0.777032e+00_jprb, 0.760598e+00_jprb, 0.744255e+00_jprb &
34308  &, 0.728032e+00_jprb, 0.711914e+00_jprb, 0.695930e+00_jprb, 0.680062e+00_jprb &
34309  &, 0.664339e+00_jprb, 0.648790e+00_jprb, 0.633344e+00_jprb &
34310  &, 0.618128e+00_jprb, 0.603021e+00_jprb, 0.588098e+00_jprb, 0.573387e+00_jprb &
34311  &, 0.558809e+00_jprb, 0.544443e+00_jprb, 0.530261e+00_jprb &
34312  &, 0.516287e+00_jprb, 0.502548e+00_jprb, 0.488956e+00_jprb, 0.475589e+00_jprb &
34313  &, 0.462415e+00_jprb, 0.449455e+00_jprb, 0.436733e+00_jprb &
34314  &, 0.424212e+00_jprb, 0.411913e+00_jprb, 0.399857e+00_jprb, 0.388004e+00_jprb &
34315  &, 0.376310e+00_jprb, 0.364922e+00_jprb, 0.353733e+00_jprb/)
34316 xcw( 786, :) = (/ &
34317  & 0.107780e+01_jprb, 0.109677e+01_jprb, 0.111552e+01_jprb, 0.113403e+01_jprb &
34318  &, 0.115230e+01_jprb, 0.117031e+01_jprb, 0.118806e+01_jprb &
34319  &, 0.120552e+01_jprb, 0.122269e+01_jprb, 0.123955e+01_jprb, 0.125609e+01_jprb &
34320  &, 0.127231e+01_jprb, 0.128819e+01_jprb, 0.130371e+01_jprb &
34321  &, 0.131887e+01_jprb, 0.133366e+01_jprb, 0.134805e+01_jprb, 0.136206e+01_jprb &
34322  &, 0.137566e+01_jprb, 0.138884e+01_jprb, 0.140159e+01_jprb &
34323  &, 0.141391e+01_jprb, 0.142578e+01_jprb, 0.143720e+01_jprb, 0.144815e+01_jprb &
34324  &, 0.145863e+01_jprb, 0.146863e+01_jprb, 0.147814e+01_jprb &
34325  &, 0.148716e+01_jprb, 0.149568e+01_jprb, 0.150369e+01_jprb, 0.151118e+01_jprb &
34326  &, 0.151815e+01_jprb, 0.152461e+01_jprb, 0.153053e+01_jprb &
34327  &, 0.153591e+01_jprb, 0.154077e+01_jprb, 0.154509e+01_jprb, 0.154887e+01_jprb &
34328  &, 0.155210e+01_jprb, 0.155480e+01_jprb, 0.155694e+01_jprb &
34329  &, 0.155855e+01_jprb, 0.155961e+01_jprb, 0.156013e+01_jprb, 0.156011e+01_jprb &
34330  &, 0.155955e+01_jprb, 0.155846e+01_jprb, 0.155682e+01_jprb &
34331  &, 0.155466e+01_jprb, 0.155198e+01_jprb, 0.154877e+01_jprb, 0.154505e+01_jprb &
34332  &, 0.154082e+01_jprb, 0.153609e+01_jprb, 0.153085e+01_jprb &
34333  &, 0.152512e+01_jprb, 0.151890e+01_jprb, 0.151222e+01_jprb, 0.150507e+01_jprb &
34334  &, 0.149744e+01_jprb, 0.148936e+01_jprb, 0.148086e+01_jprb &
34335  &, 0.147190e+01_jprb, 0.146254e+01_jprb, 0.145274e+01_jprb, 0.144255e+01_jprb &
34336  &, 0.143196e+01_jprb, 0.142098e+01_jprb, 0.140964e+01_jprb &
34337  &, 0.139794e+01_jprb, 0.138589e+01_jprb, 0.137348e+01_jprb, 0.136075e+01_jprb &
34338  &, 0.134770e+01_jprb, 0.133437e+01_jprb, 0.132073e+01_jprb &
34339  &, 0.130679e+01_jprb, 0.129260e+01_jprb, 0.127815e+01_jprb, 0.126346e+01_jprb &
34340  &, 0.124855e+01_jprb, 0.123341e+01_jprb, 0.121806e+01_jprb &
34341  &, 0.120251e+01_jprb, 0.118679e+01_jprb, 0.117091e+01_jprb, 0.115486e+01_jprb &
34342  &, 0.113867e+01_jprb, 0.112233e+01_jprb, 0.110589e+01_jprb &
34343  &, 0.108932e+01_jprb, 0.107267e+01_jprb, 0.105591e+01_jprb, 0.103912e+01_jprb &
34344  &, 0.102223e+01_jprb, 0.100533e+01_jprb, 0.988349e+00_jprb &
34345  &, 0.971365e+00_jprb, 0.954369e+00_jprb, 0.937359e+00_jprb, 0.920365e+00_jprb &
34346  &, 0.903346e+00_jprb, 0.886408e+00_jprb, 0.869468e+00_jprb &
34347  &, 0.852595e+00_jprb, 0.835783e+00_jprb, 0.819021e+00_jprb, 0.802339e+00_jprb &
34348  &, 0.785725e+00_jprb, 0.769211e+00_jprb, 0.752826e+00_jprb &
34349  &, 0.736512e+00_jprb, 0.720343e+00_jprb, 0.704258e+00_jprb, 0.688329e+00_jprb &
34350  &, 0.672541e+00_jprb, 0.656921e+00_jprb, 0.641401e+00_jprb &
34351  &, 0.626055e+00_jprb, 0.610913e+00_jprb, 0.595901e+00_jprb, 0.581095e+00_jprb &
34352  &, 0.566418e+00_jprb, 0.551947e+00_jprb, 0.537709e+00_jprb &
34353  &, 0.523620e+00_jprb, 0.509761e+00_jprb, 0.496043e+00_jprb, 0.482602e+00_jprb &
34354  &, 0.469350e+00_jprb, 0.456309e+00_jprb, 0.443441e+00_jprb &
34355  &, 0.430829e+00_jprb, 0.418434e+00_jprb, 0.406217e+00_jprb, 0.394259e+00_jprb &
34356  &, 0.382520e+00_jprb, 0.371019e+00_jprb, 0.359713e+00_jprb/)
34357 xcw( 787, :) = (/ &
34358  & 0.107817e+01_jprb, 0.109723e+01_jprb, 0.111607e+01_jprb, 0.113469e+01_jprb &
34359  &, 0.115306e+01_jprb, 0.117117e+01_jprb, 0.118902e+01_jprb &
34360  &, 0.120659e+01_jprb, 0.122387e+01_jprb, 0.124084e+01_jprb, 0.125750e+01_jprb &
34361  &, 0.127383e+01_jprb, 0.128982e+01_jprb, 0.130546e+01_jprb &
34362  &, 0.132074e+01_jprb, 0.133564e+01_jprb, 0.135016e+01_jprb, 0.136429e+01_jprb &
34363  &, 0.137801e+01_jprb, 0.139131e+01_jprb, 0.140420e+01_jprb &
34364  &, 0.141664e+01_jprb, 0.142864e+01_jprb, 0.144018e+01_jprb, 0.145125e+01_jprb &
34365  &, 0.146187e+01_jprb, 0.147200e+01_jprb, 0.148165e+01_jprb &
34366  &, 0.149079e+01_jprb, 0.149944e+01_jprb, 0.150758e+01_jprb, 0.151520e+01_jprb &
34367  &, 0.152231e+01_jprb, 0.152889e+01_jprb, 0.153495e+01_jprb &
34368  &, 0.154047e+01_jprb, 0.154546e+01_jprb, 0.154990e+01_jprb, 0.155381e+01_jprb &
34369  &, 0.155718e+01_jprb, 0.156001e+01_jprb, 0.156228e+01_jprb &
34370  &, 0.156401e+01_jprb, 0.156520e+01_jprb, 0.156585e+01_jprb, 0.156595e+01_jprb &
34371  &, 0.156551e+01_jprb, 0.156454e+01_jprb, 0.156303e+01_jprb &
34372  &, 0.156100e+01_jprb, 0.155844e+01_jprb, 0.155535e+01_jprb, 0.155174e+01_jprb &
34373  &, 0.154763e+01_jprb, 0.154301e+01_jprb, 0.153789e+01_jprb &
34374  &, 0.153226e+01_jprb, 0.152617e+01_jprb, 0.151952e+01_jprb, 0.151252e+01_jprb &
34375  &, 0.150500e+01_jprb, 0.149704e+01_jprb, 0.148862e+01_jprb &
34376  &, 0.147976e+01_jprb, 0.147048e+01_jprb, 0.146078e+01_jprb, 0.145066e+01_jprb &
34377  &, 0.144017e+01_jprb, 0.142927e+01_jprb, 0.141801e+01_jprb &
34378  &, 0.140638e+01_jprb, 0.139439e+01_jprb, 0.138205e+01_jprb, 0.136941e+01_jprb &
34379  &, 0.135643e+01_jprb, 0.134313e+01_jprb, 0.132955e+01_jprb &
34380  &, 0.131569e+01_jprb, 0.130153e+01_jprb, 0.128713e+01_jprb, 0.127249e+01_jprb &
34381  &, 0.125762e+01_jprb, 0.124250e+01_jprb, 0.122715e+01_jprb &
34382  &, 0.121167e+01_jprb, 0.119598e+01_jprb, 0.118010e+01_jprb, 0.116408e+01_jprb &
34383  &, 0.114790e+01_jprb, 0.113159e+01_jprb, 0.111513e+01_jprb &
34384  &, 0.109859e+01_jprb, 0.108195e+01_jprb, 0.106520e+01_jprb, 0.104837e+01_jprb &
34385  &, 0.103150e+01_jprb, 0.101456e+01_jprb, 0.997599e+00_jprb &
34386  &, 0.980559e+00_jprb, 0.963538e+00_jprb, 0.946499e+00_jprb, 0.929471e+00_jprb &
34387  &, 0.912450e+00_jprb, 0.895469e+00_jprb, 0.878480e+00_jprb &
34388  &, 0.861555e+00_jprb, 0.844684e+00_jprb, 0.827899e+00_jprb, 0.811148e+00_jprb &
34389  &, 0.794504e+00_jprb, 0.777911e+00_jprb, 0.761441e+00_jprb &
34390  &, 0.745083e+00_jprb, 0.728818e+00_jprb, 0.712724e+00_jprb, 0.696690e+00_jprb &
34391  &, 0.680838e+00_jprb, 0.665101e+00_jprb, 0.649556e+00_jprb &
34392  &, 0.634132e+00_jprb, 0.618856e+00_jprb, 0.603806e+00_jprb, 0.588855e+00_jprb &
34393  &, 0.574132e+00_jprb, 0.559611e+00_jprb, 0.545211e+00_jprb &
34394  &, 0.531063e+00_jprb, 0.517085e+00_jprb, 0.503300e+00_jprb, 0.489731e+00_jprb &
34395  &, 0.476344e+00_jprb, 0.463221e+00_jprb, 0.450269e+00_jprb &
34396  &, 0.437506e+00_jprb, 0.425017e+00_jprb, 0.412701e+00_jprb, 0.400640e+00_jprb &
34397  &, 0.388793e+00_jprb, 0.377181e+00_jprb, 0.365758e+00_jprb/)
34398 xcw( 788, :) = (/ &
34399  & 0.107853e+01_jprb, 0.109769e+01_jprb, 0.111663e+01_jprb, 0.113534e+01_jprb &
34400  &, 0.115382e+01_jprb, 0.117204e+01_jprb, 0.118999e+01_jprb &
34401  &, 0.120767e+01_jprb, 0.122505e+01_jprb, 0.124214e+01_jprb, 0.125891e+01_jprb &
34402  &, 0.127535e+01_jprb, 0.129146e+01_jprb, 0.130721e+01_jprb &
34403  &, 0.132261e+01_jprb, 0.133764e+01_jprb, 0.135228e+01_jprb, 0.136653e+01_jprb &
34404  &, 0.138037e+01_jprb, 0.139380e+01_jprb, 0.140681e+01_jprb &
34405  &, 0.141938e+01_jprb, 0.143150e+01_jprb, 0.144318e+01_jprb, 0.145439e+01_jprb &
34406  &, 0.146511e+01_jprb, 0.147539e+01_jprb, 0.148516e+01_jprb &
34407  &, 0.149444e+01_jprb, 0.150322e+01_jprb, 0.151143e+01_jprb, 0.151925e+01_jprb &
34408  &, 0.152649e+01_jprb, 0.153320e+01_jprb, 0.153939e+01_jprb &
34409  &, 0.154505e+01_jprb, 0.155017e+01_jprb, 0.155474e+01_jprb, 0.155878e+01_jprb &
34410  &, 0.156227e+01_jprb, 0.156523e+01_jprb, 0.156764e+01_jprb &
34411  &, 0.156950e+01_jprb, 0.157082e+01_jprb, 0.157159e+01_jprb, 0.157183e+01_jprb &
34412  &, 0.157152e+01_jprb, 0.157067e+01_jprb, 0.156929e+01_jprb &
34413  &, 0.156737e+01_jprb, 0.156492e+01_jprb, 0.156196e+01_jprb, 0.155848e+01_jprb &
34414  &, 0.155448e+01_jprb, 0.154996e+01_jprb, 0.154496e+01_jprb &
34415  &, 0.153946e+01_jprb, 0.153346e+01_jprb, 0.152698e+01_jprb, 0.152002e+01_jprb &
34416  &, 0.151262e+01_jprb, 0.150474e+01_jprb, 0.149643e+01_jprb &
34417  &, 0.148767e+01_jprb, 0.147847e+01_jprb, 0.146886e+01_jprb, 0.145884e+01_jprb &
34418  &, 0.144843e+01_jprb, 0.143762e+01_jprb, 0.142643e+01_jprb &
34419  &, 0.141487e+01_jprb, 0.140296e+01_jprb, 0.139069e+01_jprb, 0.137812e+01_jprb &
34420  &, 0.136520e+01_jprb, 0.135197e+01_jprb, 0.133844e+01_jprb &
34421  &, 0.132462e+01_jprb, 0.131054e+01_jprb, 0.129619e+01_jprb, 0.128160e+01_jprb &
34422  &, 0.126675e+01_jprb, 0.125167e+01_jprb, 0.123639e+01_jprb &
34423  &, 0.122092e+01_jprb, 0.120526e+01_jprb, 0.118941e+01_jprb, 0.117338e+01_jprb &
34424  &, 0.115723e+01_jprb, 0.114093e+01_jprb, 0.112449e+01_jprb &
34425  &, 0.110794e+01_jprb, 0.109130e+01_jprb, 0.107455e+01_jprb, 0.105772e+01_jprb &
34426  &, 0.104085e+01_jprb, 0.102389e+01_jprb, 0.100688e+01_jprb &
34427  &, 0.989860e+00_jprb, 0.972817e+00_jprb, 0.955749e+00_jprb, 0.938689e+00_jprb &
34428  &, 0.921631e+00_jprb, 0.904608e+00_jprb, 0.887612e+00_jprb &
34429  &, 0.870635e+00_jprb, 0.853707e+00_jprb, 0.836860e+00_jprb, 0.820085e+00_jprb &
34430  &, 0.803369e+00_jprb, 0.786741e+00_jprb, 0.770189e+00_jprb &
34431  &, 0.753787e+00_jprb, 0.737430e+00_jprb, 0.721237e+00_jprb, 0.705192e+00_jprb &
34432  &, 0.689230e+00_jprb, 0.673426e+00_jprb, 0.657809e+00_jprb &
34433  &, 0.642309e+00_jprb, 0.626951e+00_jprb, 0.611763e+00_jprb, 0.596772e+00_jprb &
34434  &, 0.581952e+00_jprb, 0.567275e+00_jprb, 0.552821e+00_jprb &
34435  &, 0.538562e+00_jprb, 0.524522e+00_jprb, 0.510614e+00_jprb, 0.496974e+00_jprb &
34436  &, 0.483454e+00_jprb, 0.470193e+00_jprb, 0.457156e+00_jprb &
34437  &, 0.444366e+00_jprb, 0.431723e+00_jprb, 0.419310e+00_jprb, 0.407148e+00_jprb &
34438  &, 0.395195e+00_jprb, 0.383473e+00_jprb, 0.371935e+00_jprb/)
34439 xcw( 789, :) = (/ &
34440  & 0.107889e+01_jprb, 0.109815e+01_jprb, 0.111719e+01_jprb, 0.113600e+01_jprb &
34441  &, 0.115458e+01_jprb, 0.117290e+01_jprb, 0.119096e+01_jprb &
34442  &, 0.120875e+01_jprb, 0.122624e+01_jprb, 0.124344e+01_jprb, 0.126032e+01_jprb &
34443  &, 0.127688e+01_jprb, 0.129310e+01_jprb, 0.130898e+01_jprb &
34444  &, 0.132449e+01_jprb, 0.133964e+01_jprb, 0.135440e+01_jprb, 0.136877e+01_jprb &
34445  &, 0.138274e+01_jprb, 0.139630e+01_jprb, 0.140943e+01_jprb &
34446  &, 0.142213e+01_jprb, 0.143438e+01_jprb, 0.144617e+01_jprb, 0.145752e+01_jprb &
34447  &, 0.146839e+01_jprb, 0.147878e+01_jprb, 0.148869e+01_jprb &
34448  &, 0.149810e+01_jprb, 0.150702e+01_jprb, 0.151542e+01_jprb, 0.152331e+01_jprb &
34449  &, 0.153069e+01_jprb, 0.153753e+01_jprb, 0.154385e+01_jprb &
34450  &, 0.154964e+01_jprb, 0.155489e+01_jprb, 0.155960e+01_jprb, 0.156378e+01_jprb &
34451  &, 0.156741e+01_jprb, 0.157049e+01_jprb, 0.157303e+01_jprb &
34452  &, 0.157502e+01_jprb, 0.157648e+01_jprb, 0.157738e+01_jprb, 0.157773e+01_jprb &
34453  &, 0.157755e+01_jprb, 0.157683e+01_jprb, 0.157556e+01_jprb &
34454  &, 0.157378e+01_jprb, 0.157146e+01_jprb, 0.156861e+01_jprb, 0.156524e+01_jprb &
34455  &, 0.156135e+01_jprb, 0.155696e+01_jprb, 0.155208e+01_jprb &
34456  &, 0.154668e+01_jprb, 0.154079e+01_jprb, 0.153443e+01_jprb, 0.152757e+01_jprb &
34457  &, 0.152028e+01_jprb, 0.151250e+01_jprb, 0.150427e+01_jprb &
34458  &, 0.149562e+01_jprb, 0.148652e+01_jprb, 0.147701e+01_jprb, 0.146707e+01_jprb &
34459  &, 0.145674e+01_jprb, 0.144601e+01_jprb, 0.143490e+01_jprb &
34460  &, 0.142344e+01_jprb, 0.141159e+01_jprb, 0.139940e+01_jprb, 0.138687e+01_jprb &
34461  &, 0.137402e+01_jprb, 0.136087e+01_jprb, 0.134741e+01_jprb &
34462  &, 0.133364e+01_jprb, 0.131962e+01_jprb, 0.130530e+01_jprb, 0.129076e+01_jprb &
34463  &, 0.127595e+01_jprb, 0.126092e+01_jprb, 0.124568e+01_jprb &
34464  &, 0.123022e+01_jprb, 0.121459e+01_jprb, 0.119878e+01_jprb, 0.118278e+01_jprb &
34465  &, 0.116662e+01_jprb, 0.115034e+01_jprb, 0.113392e+01_jprb &
34466  &, 0.111737e+01_jprb, 0.110074e+01_jprb, 0.108400e+01_jprb, 0.106717e+01_jprb &
34467  &, 0.105026e+01_jprb, 0.103329e+01_jprb, 0.101631e+01_jprb &
34468  &, 0.999269e+00_jprb, 0.982168e+00_jprb, 0.965074e+00_jprb, 0.947982e+00_jprb &
34469  &, 0.930927e+00_jprb, 0.913825e+00_jprb, 0.896783e+00_jprb &
34470  &, 0.879795e+00_jprb, 0.862812e+00_jprb, 0.845905e+00_jprb, 0.829063e+00_jprb &
34471  &, 0.812318e+00_jprb, 0.795615e+00_jprb, 0.779026e+00_jprb &
34472  &, 0.762537e+00_jprb, 0.746179e+00_jprb, 0.729888e+00_jprb, 0.713741e+00_jprb &
34473  &, 0.697718e+00_jprb, 0.681848e+00_jprb, 0.666111e+00_jprb &
34474  &, 0.650535e+00_jprb, 0.635147e+00_jprb, 0.619874e+00_jprb, 0.604792e+00_jprb &
34475  &, 0.589877e+00_jprb, 0.575100e+00_jprb, 0.560541e+00_jprb &
34476  &, 0.546170e+00_jprb, 0.532014e+00_jprb, 0.518041e+00_jprb, 0.504274e+00_jprb &
34477  &, 0.490681e+00_jprb, 0.477342e+00_jprb, 0.464163e+00_jprb &
34478  &, 0.451225e+00_jprb, 0.438491e+00_jprb, 0.425981e+00_jprb, 0.413719e+00_jprb &
34479  &, 0.401661e+00_jprb, 0.389829e+00_jprb, 0.378178e+00_jprb/)
34480 xcw( 790, :) = (/ &
34481  & 0.107926e+01_jprb, 0.109861e+01_jprb, 0.111775e+01_jprb, 0.113666e+01_jprb &
34482  &, 0.115534e+01_jprb, 0.117377e+01_jprb, 0.119194e+01_jprb &
34483  &, 0.120983e+01_jprb, 0.122744e+01_jprb, 0.124474e+01_jprb, 0.126174e+01_jprb &
34484  &, 0.127841e+01_jprb, 0.129475e+01_jprb, 0.131075e+01_jprb &
34485  &, 0.132638e+01_jprb, 0.134165e+01_jprb, 0.135654e+01_jprb, 0.137103e+01_jprb &
34486  &, 0.138512e+01_jprb, 0.139880e+01_jprb, 0.141206e+01_jprb &
34487  &, 0.142489e+01_jprb, 0.143727e+01_jprb, 0.144920e+01_jprb, 0.146067e+01_jprb &
34488  &, 0.147167e+01_jprb, 0.148220e+01_jprb, 0.149224e+01_jprb &
34489  &, 0.150178e+01_jprb, 0.151083e+01_jprb, 0.151937e+01_jprb, 0.152739e+01_jprb &
34490  &, 0.153490e+01_jprb, 0.154188e+01_jprb, 0.154834e+01_jprb &
34491  &, 0.155426e+01_jprb, 0.155964e+01_jprb, 0.156449e+01_jprb, 0.156880e+01_jprb &
34492  &, 0.157256e+01_jprb, 0.157577e+01_jprb, 0.157844e+01_jprb &
34493  &, 0.158057e+01_jprb, 0.158215e+01_jprb, 0.158318e+01_jprb, 0.158367e+01_jprb &
34494  &, 0.158362e+01_jprb, 0.158302e+01_jprb, 0.158189e+01_jprb &
34495  &, 0.158022e+01_jprb, 0.157802e+01_jprb, 0.157529e+01_jprb, 0.157205e+01_jprb &
34496  &, 0.156828e+01_jprb, 0.156400e+01_jprb, 0.155922e+01_jprb &
34497  &, 0.155394e+01_jprb, 0.154818e+01_jprb, 0.154191e+01_jprb, 0.153517e+01_jprb &
34498  &, 0.152797e+01_jprb, 0.152030e+01_jprb, 0.151205e+01_jprb &
34499  &, 0.150362e+01_jprb, 0.149461e+01_jprb, 0.148520e+01_jprb, 0.147534e+01_jprb &
34500  &, 0.146511e+01_jprb, 0.145446e+01_jprb, 0.144345e+01_jprb &
34501  &, 0.143204e+01_jprb, 0.142027e+01_jprb, 0.140817e+01_jprb, 0.139571e+01_jprb &
34502  &, 0.138292e+01_jprb, 0.136982e+01_jprb, 0.135642e+01_jprb &
34503  &, 0.134271e+01_jprb, 0.132875e+01_jprb, 0.131448e+01_jprb, 0.129997e+01_jprb &
34504  &, 0.128524e+01_jprb, 0.127025e+01_jprb, 0.125503e+01_jprb &
34505  &, 0.123960e+01_jprb, 0.122401e+01_jprb, 0.120820e+01_jprb, 0.119223e+01_jprb &
34506  &, 0.117610e+01_jprb, 0.115984e+01_jprb, 0.114343e+01_jprb &
34507  &, 0.112690e+01_jprb, 0.111025e+01_jprb, 0.109351e+01_jprb, 0.107669e+01_jprb &
34508  &, 0.105977e+01_jprb, 0.104280e+01_jprb, 0.102577e+01_jprb &
34509  &, 0.100871e+01_jprb, 0.991628e+00_jprb, 0.974509e+00_jprb, 0.957389e+00_jprb &
34510  &, 0.940261e+00_jprb, 0.923158e+00_jprb, 0.906112e+00_jprb &
34511  &, 0.889036e+00_jprb, 0.872039e+00_jprb, 0.855074e+00_jprb, 0.838210e+00_jprb &
34512  &, 0.821354e+00_jprb, 0.804620e+00_jprb, 0.787995e+00_jprb &
34513  &, 0.771421e+00_jprb, 0.754973e+00_jprb, 0.738633e+00_jprb, 0.722431e+00_jprb &
34514  &, 0.706349e+00_jprb, 0.690367e+00_jprb, 0.674561e+00_jprb &
34515  &, 0.658911e+00_jprb, 0.643394e+00_jprb, 0.628036e+00_jprb, 0.612865e+00_jprb &
34516  &, 0.597855e+00_jprb, 0.583033e+00_jprb, 0.568369e+00_jprb &
34517  &, 0.553944e+00_jprb, 0.539674e+00_jprb, 0.525581e+00_jprb, 0.511690e+00_jprb &
34518  &, 0.498025e+00_jprb, 0.484550e+00_jprb, 0.471290e+00_jprb &
34519  &, 0.458267e+00_jprb, 0.445443e+00_jprb, 0.432840e+00_jprb, 0.420416e+00_jprb &
34520  &, 0.408255e+00_jprb, 0.396251e+00_jprb, 0.384552e+00_jprb/)
34521 xcw( 791, :) = (/ &
34522  & 0.107962e+01_jprb, 0.109907e+01_jprb, 0.111831e+01_jprb, 0.113733e+01_jprb &
34523  &, 0.115611e+01_jprb, 0.117464e+01_jprb, 0.119292e+01_jprb &
34524  &, 0.121092e+01_jprb, 0.122863e+01_jprb, 0.124605e+01_jprb, 0.126316e+01_jprb &
34525  &, 0.127995e+01_jprb, 0.129641e+01_jprb, 0.131252e+01_jprb &
34526  &, 0.132828e+01_jprb, 0.134367e+01_jprb, 0.135867e+01_jprb, 0.137329e+01_jprb &
34527  &, 0.138751e+01_jprb, 0.140132e+01_jprb, 0.141470e+01_jprb &
34528  &, 0.142766e+01_jprb, 0.144017e+01_jprb, 0.145223e+01_jprb, 0.146384e+01_jprb &
34529  &, 0.147497e+01_jprb, 0.148563e+01_jprb, 0.149580e+01_jprb &
34530  &, 0.150548e+01_jprb, 0.151466e+01_jprb, 0.152333e+01_jprb, 0.153149e+01_jprb &
34531  &, 0.153913e+01_jprb, 0.154625e+01_jprb, 0.155284e+01_jprb &
34532  &, 0.155890e+01_jprb, 0.156442e+01_jprb, 0.156940e+01_jprb, 0.157384e+01_jprb &
34533  &, 0.157774e+01_jprb, 0.158108e+01_jprb, 0.158389e+01_jprb &
34534  &, 0.158615e+01_jprb, 0.158784e+01_jprb, 0.158902e+01_jprb, 0.158963e+01_jprb &
34535  &, 0.158969e+01_jprb, 0.158924e+01_jprb, 0.158824e+01_jprb &
34536  &, 0.158670e+01_jprb, 0.158463e+01_jprb, 0.158202e+01_jprb, 0.157889e+01_jprb &
34537  &, 0.157524e+01_jprb, 0.157109e+01_jprb, 0.156642e+01_jprb &
34538  &, 0.156126e+01_jprb, 0.155560e+01_jprb, 0.154945e+01_jprb, 0.154283e+01_jprb &
34539  &, 0.153572e+01_jprb, 0.152815e+01_jprb, 0.152014e+01_jprb &
34540  &, 0.151166e+01_jprb, 0.150277e+01_jprb, 0.149342e+01_jprb, 0.148369e+01_jprb &
34541  &, 0.147352e+01_jprb, 0.146298e+01_jprb, 0.145204e+01_jprb &
34542  &, 0.144071e+01_jprb, 0.142904e+01_jprb, 0.141698e+01_jprb, 0.140459e+01_jprb &
34543  &, 0.139188e+01_jprb, 0.137886e+01_jprb, 0.136550e+01_jprb &
34544  &, 0.135186e+01_jprb, 0.133795e+01_jprb, 0.132374e+01_jprb, 0.130928e+01_jprb &
34545  &, 0.129458e+01_jprb, 0.127963e+01_jprb, 0.126445e+01_jprb &
34546  &, 0.124907e+01_jprb, 0.123349e+01_jprb, 0.121771e+01_jprb, 0.120177e+01_jprb &
34547  &, 0.118567e+01_jprb, 0.116940e+01_jprb, 0.115301e+01_jprb &
34548  &, 0.113650e+01_jprb, 0.111986e+01_jprb, 0.110313e+01_jprb, 0.108627e+01_jprb &
34549  &, 0.106939e+01_jprb, 0.105241e+01_jprb, 0.103537e+01_jprb &
34550  &, 0.101773e+01_jprb, 0.100116e+01_jprb, 0.984019e+00_jprb, 0.966908e+00_jprb &
34551  &, 0.949748e+00_jprb, 0.932608e+00_jprb, 0.915480e+00_jprb &
34552  &, 0.898397e+00_jprb, 0.881348e+00_jprb, 0.864325e+00_jprb, 0.847400e+00_jprb &
34553  &, 0.830518e+00_jprb, 0.813711e+00_jprb, 0.797008e+00_jprb &
34554  &, 0.780396e+00_jprb, 0.763903e+00_jprb, 0.747469e+00_jprb, 0.731214e+00_jprb &
34555  &, 0.715027e+00_jprb, 0.698982e+00_jprb, 0.683109e+00_jprb &
34556  &, 0.667386e+00_jprb, 0.651792e+00_jprb, 0.636352e+00_jprb, 0.621094e+00_jprb &
34557  &, 0.605992e+00_jprb, 0.591072e+00_jprb, 0.576306e+00_jprb &
34558  &, 0.561773e+00_jprb, 0.547390e+00_jprb, 0.533235e+00_jprb, 0.519221e+00_jprb &
34559  &, 0.505485e+00_jprb, 0.491877e+00_jprb, 0.478537e+00_jprb &
34560  &, 0.465370e+00_jprb, 0.452457e+00_jprb, 0.439698e+00_jprb, 0.427176e+00_jprb &
34561  &, 0.414913e+00_jprb, 0.402866e+00_jprb, 0.390991e+00_jprb/)
34562 
34563 IF (lhook) CALL dr_hook('SU_MCICA:PART113',1,zhook_handle)
34564 END SUBROUTINE part113
34565 
34566 #ifdef VPP5000
34567 !OCL SCALAR
34568 #endif
34569 !option! -Nv -NO
34570 #ifdef RS6K
34571 @process nooptimize
34572 #endif
34573 !pgi$r opt=0
34574 SUBROUTINE part114
34575 
34576 REAL(KIND=JPRB) :: ZHOOK_HANDLE
34577 IF (lhook) CALL dr_hook('SU_MCICA:PART114',0,zhook_handle)
34578 
34579 xcw( 792, :) = (/ &
34580  & 0.107999e+01_jprb, 0.109954e+01_jprb, 0.111887e+01_jprb, 0.113799e+01_jprb &
34581  &, 0.115688e+01_jprb, 0.117552e+01_jprb, 0.119390e+01_jprb &
34582  &, 0.121201e+01_jprb, 0.122984e+01_jprb, 0.124737e+01_jprb, 0.126459e+01_jprb &
34583  &, 0.128150e+01_jprb, 0.129807e+01_jprb, 0.131430e+01_jprb &
34584  &, 0.133018e+01_jprb, 0.134569e+01_jprb, 0.136082e+01_jprb, 0.137557e+01_jprb &
34585  &, 0.138991e+01_jprb, 0.140385e+01_jprb, 0.141736e+01_jprb &
34586  &, 0.143044e+01_jprb, 0.144309e+01_jprb, 0.145528e+01_jprb, 0.146702e+01_jprb &
34587  &, 0.147828e+01_jprb, 0.148907e+01_jprb, 0.149937e+01_jprb &
34588  &, 0.150919e+01_jprb, 0.151850e+01_jprb, 0.152730e+01_jprb, 0.153560e+01_jprb &
34589  &, 0.154338e+01_jprb, 0.155064e+01_jprb, 0.155736e+01_jprb &
34590  &, 0.156356e+01_jprb, 0.156921e+01_jprb, 0.157433e+01_jprb, 0.157890e+01_jprb &
34591  &, 0.158294e+01_jprb, 0.158642e+01_jprb, 0.158936e+01_jprb &
34592  &, 0.159175e+01_jprb, 0.159360e+01_jprb, 0.159489e+01_jprb, 0.159564e+01_jprb &
34593  &, 0.159584e+01_jprb, 0.159550e+01_jprb, 0.159463e+01_jprb &
34594  &, 0.159320e+01_jprb, 0.159126e+01_jprb, 0.158877e+01_jprb, 0.158577e+01_jprb &
34595  &, 0.158225e+01_jprb, 0.157820e+01_jprb, 0.157365e+01_jprb &
34596  &, 0.156861e+01_jprb, 0.156307e+01_jprb, 0.155703e+01_jprb, 0.155051e+01_jprb &
34597  &, 0.154351e+01_jprb, 0.153606e+01_jprb, 0.152813e+01_jprb &
34598  &, 0.151977e+01_jprb, 0.151097e+01_jprb, 0.150173e+01_jprb, 0.149208e+01_jprb &
34599  &, 0.148201e+01_jprb, 0.147155e+01_jprb, 0.146069e+01_jprb &
34600  &, 0.144944e+01_jprb, 0.143784e+01_jprb, 0.142586e+01_jprb, 0.141357e+01_jprb &
34601  &, 0.140092e+01_jprb, 0.138795e+01_jprb, 0.137466e+01_jprb &
34602  &, 0.136107e+01_jprb, 0.134720e+01_jprb, 0.133307e+01_jprb, 0.131864e+01_jprb &
34603  &, 0.130399e+01_jprb, 0.128910e+01_jprb, 0.127396e+01_jprb &
34604  &, 0.125860e+01_jprb, 0.124305e+01_jprb, 0.122731e+01_jprb, 0.121140e+01_jprb &
34605  &, 0.119532e+01_jprb, 0.117908e+01_jprb, 0.116268e+01_jprb &
34606  &, 0.114619e+01_jprb, 0.112956e+01_jprb, 0.111281e+01_jprb, 0.109599e+01_jprb &
34607  &, 0.107907e+01_jprb, 0.106209e+01_jprb, 0.104504e+01_jprb &
34608  &, 0.102792e+01_jprb, 0.101080e+01_jprb, 0.993640e+00_jprb, 0.976465e+00_jprb &
34609  &, 0.959312e+00_jprb, 0.942136e+00_jprb, 0.924968e+00_jprb &
34610  &, 0.907838e+00_jprb, 0.890739e+00_jprb, 0.873702e+00_jprb, 0.856715e+00_jprb &
34611  &, 0.839768e+00_jprb, 0.822933e+00_jprb, 0.806154e+00_jprb &
34612  &, 0.789459e+00_jprb, 0.772880e+00_jprb, 0.756445e+00_jprb, 0.739904e+00_jprb &
34613  &, 0.723849e+00_jprb, 0.707743e+00_jprb, 0.691755e+00_jprb &
34614  &, 0.675962e+00_jprb, 0.660241e+00_jprb, 0.644720e+00_jprb, 0.629375e+00_jprb &
34615  &, 0.614182e+00_jprb, 0.599165e+00_jprb, 0.584352e+00_jprb &
34616  &, 0.569713e+00_jprb, 0.555218e+00_jprb, 0.540946e+00_jprb, 0.526866e+00_jprb &
34617  &, 0.513003e+00_jprb, 0.499321e+00_jprb, 0.485844e+00_jprb &
34618  &, 0.472593e+00_jprb, 0.459532e+00_jprb, 0.446744e+00_jprb, 0.434126e+00_jprb &
34619  &, 0.421699e+00_jprb, 0.409547e+00_jprb, 0.397562e+00_jprb/)
34620 xcw( 793, :) = (/ &
34621  & 0.108036e+01_jprb, 0.110000e+01_jprb, 0.111944e+01_jprb, 0.113866e+01_jprb &
34622  &, 0.115765e+01_jprb, 0.117639e+01_jprb, 0.119488e+01_jprb &
34623  &, 0.121310e+01_jprb, 0.123104e+01_jprb, 0.124869e+01_jprb, 0.126603e+01_jprb &
34624  &, 0.128305e+01_jprb, 0.129974e+01_jprb, 0.131609e+01_jprb &
34625  &, 0.133209e+01_jprb, 0.134772e+01_jprb, 0.136298e+01_jprb, 0.137785e+01_jprb &
34626  &, 0.139232e+01_jprb, 0.140638e+01_jprb, 0.142003e+01_jprb &
34627  &, 0.143324e+01_jprb, 0.144601e+01_jprb, 0.145834e+01_jprb, 0.147021e+01_jprb &
34628  &, 0.148160e+01_jprb, 0.149253e+01_jprb, 0.150297e+01_jprb &
34629  &, 0.151291e+01_jprb, 0.152237e+01_jprb, 0.153131e+01_jprb, 0.153974e+01_jprb &
34630  &, 0.154765e+01_jprb, 0.155505e+01_jprb, 0.156191e+01_jprb &
34631  &, 0.156824e+01_jprb, 0.157403e+01_jprb, 0.157929e+01_jprb, 0.158400e+01_jprb &
34632  &, 0.158817e+01_jprb, 0.159179e+01_jprb, 0.159486e+01_jprb &
34633  &, 0.159738e+01_jprb, 0.159936e+01_jprb, 0.160079e+01_jprb, 0.160166e+01_jprb &
34634  &, 0.160200e+01_jprb, 0.160180e+01_jprb, 0.160104e+01_jprb &
34635  &, 0.159976e+01_jprb, 0.159794e+01_jprb, 0.159558e+01_jprb, 0.159269e+01_jprb &
34636  &, 0.158929e+01_jprb, 0.158538e+01_jprb, 0.158094e+01_jprb &
34637  &, 0.157601e+01_jprb, 0.157057e+01_jprb, 0.156466e+01_jprb, 0.155824e+01_jprb &
34638  &, 0.155136e+01_jprb, 0.154401e+01_jprb, 0.153619e+01_jprb &
34639  &, 0.152792e+01_jprb, 0.151923e+01_jprb, 0.151009e+01_jprb, 0.150053e+01_jprb &
34640  &, 0.149054e+01_jprb, 0.148016e+01_jprb, 0.146938e+01_jprb &
34641  &, 0.145823e+01_jprb, 0.144671e+01_jprb, 0.143481e+01_jprb, 0.142259e+01_jprb &
34642  &, 0.141001e+01_jprb, 0.139711e+01_jprb, 0.138389e+01_jprb &
34643  &, 0.137037e+01_jprb, 0.135656e+01_jprb, 0.134246e+01_jprb, 0.132808e+01_jprb &
34644  &, 0.131349e+01_jprb, 0.129861e+01_jprb, 0.128353e+01_jprb &
34645  &, 0.126823e+01_jprb, 0.125270e+01_jprb, 0.123699e+01_jprb, 0.122109e+01_jprb &
34646  &, 0.120504e+01_jprb, 0.118880e+01_jprb, 0.117245e+01_jprb &
34647  &, 0.115594e+01_jprb, 0.113933e+01_jprb, 0.112258e+01_jprb, 0.110577e+01_jprb &
34648  &, 0.108882e+01_jprb, 0.107184e+01_jprb, 0.105478e+01_jprb &
34649  &, 0.103769e+01_jprb, 0.102052e+01_jprb, 0.100333e+01_jprb, 0.986135e+00_jprb &
34650  &, 0.968952e+00_jprb, 0.951742e+00_jprb, 0.934534e+00_jprb &
34651  &, 0.917400e+00_jprb, 0.900252e+00_jprb, 0.883161e+00_jprb, 0.866115e+00_jprb &
34652  &, 0.849146e+00_jprb, 0.832242e+00_jprb, 0.815387e+00_jprb &
34653  &, 0.798658e+00_jprb, 0.782038e+00_jprb, 0.765466e+00_jprb, 0.749063e+00_jprb &
34654  &, 0.732765e+00_jprb, 0.716552e+00_jprb, 0.700500e+00_jprb &
34655  &, 0.684587e+00_jprb, 0.668842e+00_jprb, 0.653241e+00_jprb, 0.637813e+00_jprb &
34656  &, 0.622530e+00_jprb, 0.607419e+00_jprb, 0.592506e+00_jprb &
34657  &, 0.577762e+00_jprb, 0.563157e+00_jprb, 0.548827e+00_jprb, 0.534627e+00_jprb &
34658  &, 0.520638e+00_jprb, 0.506884e+00_jprb, 0.493270e+00_jprb &
34659  &, 0.479939e+00_jprb, 0.466792e+00_jprb, 0.453852e+00_jprb, 0.441076e+00_jprb &
34660  &, 0.428613e+00_jprb, 0.416293e+00_jprb, 0.404199e+00_jprb/)
34661 xcw( 794, :) = (/ &
34662  & 0.108073e+01_jprb, 0.110047e+01_jprb, 0.112001e+01_jprb, 0.113933e+01_jprb &
34663  &, 0.115842e+01_jprb, 0.117727e+01_jprb, 0.119587e+01_jprb &
34664  &, 0.121420e+01_jprb, 0.123225e+01_jprb, 0.125001e+01_jprb, 0.126747e+01_jprb &
34665  &, 0.128461e+01_jprb, 0.130142e+01_jprb, 0.131789e+01_jprb &
34666  &, 0.133401e+01_jprb, 0.134976e+01_jprb, 0.136514e+01_jprb, 0.138014e+01_jprb &
34667  &, 0.139474e+01_jprb, 0.140893e+01_jprb, 0.142270e+01_jprb &
34668  &, 0.143604e+01_jprb, 0.144895e+01_jprb, 0.146141e+01_jprb, 0.147341e+01_jprb &
34669  &, 0.148494e+01_jprb, 0.149600e+01_jprb, 0.150657e+01_jprb &
34670  &, 0.151666e+01_jprb, 0.152624e+01_jprb, 0.153533e+01_jprb, 0.154390e+01_jprb &
34671  &, 0.155195e+01_jprb, 0.155947e+01_jprb, 0.156648e+01_jprb &
34672  &, 0.157294e+01_jprb, 0.157887e+01_jprb, 0.158426e+01_jprb, 0.158911e+01_jprb &
34673  &, 0.159342e+01_jprb, 0.159717e+01_jprb, 0.160038e+01_jprb &
34674  &, 0.160305e+01_jprb, 0.160515e+01_jprb, 0.160672e+01_jprb, 0.160773e+01_jprb &
34675  &, 0.160819e+01_jprb, 0.160812e+01_jprb, 0.160750e+01_jprb &
34676  &, 0.160634e+01_jprb, 0.160464e+01_jprb, 0.160242e+01_jprb, 0.159966e+01_jprb &
34677  &, 0.159638e+01_jprb, 0.159258e+01_jprb, 0.158827e+01_jprb &
34678  &, 0.158345e+01_jprb, 0.157813e+01_jprb, 0.157233e+01_jprb, 0.156603e+01_jprb &
34679  &, 0.155925e+01_jprb, 0.155200e+01_jprb, 0.154430e+01_jprb &
34680  &, 0.153614e+01_jprb, 0.152754e+01_jprb, 0.151849e+01_jprb, 0.150901e+01_jprb &
34681  &, 0.149913e+01_jprb, 0.148884e+01_jprb, 0.147816e+01_jprb &
34682  &, 0.146709e+01_jprb, 0.145563e+01_jprb, 0.144382e+01_jprb, 0.143168e+01_jprb &
34683  &, 0.141915e+01_jprb, 0.140632e+01_jprb, 0.139318e+01_jprb &
34684  &, 0.137971e+01_jprb, 0.136596e+01_jprb, 0.135192e+01_jprb, 0.133760e+01_jprb &
34685  &, 0.132306e+01_jprb, 0.130824e+01_jprb, 0.129317e+01_jprb &
34686  &, 0.127792e+01_jprb, 0.126243e+01_jprb, 0.124674e+01_jprb, 0.123089e+01_jprb &
34687  &, 0.121485e+01_jprb, 0.119863e+01_jprb, 0.118228e+01_jprb &
34688  &, 0.116579e+01_jprb, 0.114919e+01_jprb, 0.113246e+01_jprb, 0.111562e+01_jprb &
34689  &, 0.109871e+01_jprb, 0.108169e+01_jprb, 0.106463e+01_jprb &
34690  &, 0.104753e+01_jprb, 0.103034e+01_jprb, 0.101314e+01_jprb, 0.995917e+00_jprb &
34691  &, 0.978707e+00_jprb, 0.961464e+00_jprb, 0.944219e+00_jprb &
34692  &, 0.927043e+00_jprb, 0.909847e+00_jprb, 0.892703e+00_jprb, 0.875642e+00_jprb &
34693  &, 0.858610e+00_jprb, 0.841638e+00_jprb, 0.824754e+00_jprb &
34694  &, 0.807946e+00_jprb, 0.791242e+00_jprb, 0.774627e+00_jprb, 0.758129e+00_jprb &
34695  &, 0.741778e+00_jprb, 0.725507e+00_jprb, 0.709392e+00_jprb &
34696  &, 0.693411e+00_jprb, 0.677544e+00_jprb, 0.661866e+00_jprb, 0.646354e+00_jprb &
34697  &, 0.630984e+00_jprb, 0.615780e+00_jprb, 0.600769e+00_jprb &
34698  &, 0.585922e+00_jprb, 0.571264e+00_jprb, 0.556764e+00_jprb, 0.542502e+00_jprb &
34699  &, 0.528389e+00_jprb, 0.514506e+00_jprb, 0.500816e+00_jprb &
34700  &, 0.487344e+00_jprb, 0.474113e+00_jprb, 0.461022e+00_jprb, 0.448215e+00_jprb &
34701  &, 0.435591e+00_jprb, 0.423168e+00_jprb, 0.410967e+00_jprb/)
34702 xcw( 795, :) = (/ &
34703  & 0.108110e+01_jprb, 0.110094e+01_jprb, 0.112058e+01_jprb, 0.114000e+01_jprb &
34704  &, 0.115920e+01_jprb, 0.117816e+01_jprb, 0.119686e+01_jprb &
34705  &, 0.121530e+01_jprb, 0.123347e+01_jprb, 0.125134e+01_jprb, 0.126891e+01_jprb &
34706  &, 0.128617e+01_jprb, 0.130310e+01_jprb, 0.131969e+01_jprb &
34707  &, 0.133593e+01_jprb, 0.135181e+01_jprb, 0.136732e+01_jprb, 0.138244e+01_jprb &
34708  &, 0.139717e+01_jprb, 0.141148e+01_jprb, 0.142539e+01_jprb &
34709  &, 0.143886e+01_jprb, 0.145190e+01_jprb, 0.146449e+01_jprb, 0.147662e+01_jprb &
34710  &, 0.148829e+01_jprb, 0.149949e+01_jprb, 0.151020e+01_jprb &
34711  &, 0.152042e+01_jprb, 0.153014e+01_jprb, 0.153936e+01_jprb, 0.154806e+01_jprb &
34712  &, 0.155626e+01_jprb, 0.156392e+01_jprb, 0.157107e+01_jprb &
34713  &, 0.157767e+01_jprb, 0.158374e+01_jprb, 0.158927e+01_jprb, 0.159425e+01_jprb &
34714  &, 0.159869e+01_jprb, 0.160259e+01_jprb, 0.160594e+01_jprb &
34715  &, 0.160873e+01_jprb, 0.161099e+01_jprb, 0.161268e+01_jprb, 0.161383e+01_jprb &
34716  &, 0.161443e+01_jprb, 0.161448e+01_jprb, 0.161399e+01_jprb &
34717  &, 0.161296e+01_jprb, 0.161140e+01_jprb, 0.160927e+01_jprb, 0.160666e+01_jprb &
34718  &, 0.160351e+01_jprb, 0.159983e+01_jprb, 0.159564e+01_jprb &
34719  &, 0.159094e+01_jprb, 0.158574e+01_jprb, 0.158004e+01_jprb, 0.157386e+01_jprb &
34720  &, 0.156720e+01_jprb, 0.156005e+01_jprb, 0.155245e+01_jprb &
34721  &, 0.154440e+01_jprb, 0.153588e+01_jprb, 0.152694e+01_jprb, 0.151757e+01_jprb &
34722  &, 0.150778e+01_jprb, 0.149759e+01_jprb, 0.148698e+01_jprb &
34723  &, 0.147599e+01_jprb, 0.146463e+01_jprb, 0.145290e+01_jprb, 0.144081e+01_jprb &
34724  &, 0.142838e+01_jprb, 0.141562e+01_jprb, 0.140253e+01_jprb &
34725  &, 0.138914e+01_jprb, 0.137543e+01_jprb, 0.136146e+01_jprb, 0.134720e+01_jprb &
34726  &, 0.133268e+01_jprb, 0.131792e+01_jprb, 0.130290e+01_jprb &
34727  &, 0.128767e+01_jprb, 0.127222e+01_jprb, 0.125659e+01_jprb, 0.124076e+01_jprb &
34728  &, 0.122472e+01_jprb, 0.120856e+01_jprb, 0.119220e+01_jprb &
34729  &, 0.117573e+01_jprb, 0.115912e+01_jprb, 0.114240e+01_jprb, 0.112557e+01_jprb &
34730  &, 0.110867e+01_jprb, 0.109165e+01_jprb, 0.107459e+01_jprb &
34731  &, 0.105744e+01_jprb, 0.104028e+01_jprb, 0.102306e+01_jprb, 0.100581e+01_jprb &
34732  &, 0.988538e+00_jprb, 0.971264e+00_jprb, 0.954022e+00_jprb &
34733  &, 0.936765e+00_jprb, 0.919564e+00_jprb, 0.902370e+00_jprb, 0.885252e+00_jprb &
34734  &, 0.868160e+00_jprb, 0.851164e+00_jprb, 0.834209e+00_jprb &
34735  &, 0.817324e+00_jprb, 0.800583e+00_jprb, 0.783880e+00_jprb, 0.767335e+00_jprb &
34736  &, 0.750885e+00_jprb, 0.734558e+00_jprb, 0.718332e+00_jprb &
34737  &, 0.702286e+00_jprb, 0.686347e+00_jprb, 0.670592e+00_jprb, 0.654948e+00_jprb &
34738  &, 0.639490e+00_jprb, 0.624248e+00_jprb, 0.609086e+00_jprb &
34739  &, 0.594137e+00_jprb, 0.579427e+00_jprb, 0.564815e+00_jprb, 0.550436e+00_jprb &
34740  &, 0.536257e+00_jprb, 0.522305e+00_jprb, 0.508482e+00_jprb &
34741  &, 0.494933e+00_jprb, 0.481558e+00_jprb, 0.468379e+00_jprb, 0.455418e+00_jprb &
34742  &, 0.442697e+00_jprb, 0.430173e+00_jprb, 0.417867e+00_jprb/)
34743 xcw( 796, :) = (/ &
34744  & 0.108147e+01_jprb, 0.110141e+01_jprb, 0.112115e+01_jprb, 0.114067e+01_jprb &
34745  &, 0.115998e+01_jprb, 0.117904e+01_jprb, 0.119786e+01_jprb &
34746  &, 0.121641e+01_jprb, 0.123468e+01_jprb, 0.125267e+01_jprb, 0.127036e+01_jprb &
34747  &, 0.128773e+01_jprb, 0.130478e+01_jprb, 0.132150e+01_jprb &
34748  &, 0.133786e+01_jprb, 0.135387e+01_jprb, 0.136950e+01_jprb, 0.138475e+01_jprb &
34749  &, 0.139960e+01_jprb, 0.141405e+01_jprb, 0.142809e+01_jprb &
34750  &, 0.144169e+01_jprb, 0.145486e+01_jprb, 0.146759e+01_jprb, 0.147986e+01_jprb &
34751  &, 0.149166e+01_jprb, 0.150299e+01_jprb, 0.151384e+01_jprb &
34752  &, 0.152420e+01_jprb, 0.153406e+01_jprb, 0.154342e+01_jprb, 0.155226e+01_jprb &
34753  &, 0.156059e+01_jprb, 0.156840e+01_jprb, 0.157568e+01_jprb &
34754  &, 0.158242e+01_jprb, 0.158863e+01_jprb, 0.159430e+01_jprb, 0.159943e+01_jprb &
34755  &, 0.160401e+01_jprb, 0.160804e+01_jprb, 0.161152e+01_jprb &
34756  &, 0.161446e+01_jprb, 0.161683e+01_jprb, 0.161867e+01_jprb, 0.161996e+01_jprb &
34757  &, 0.162068e+01_jprb, 0.162087e+01_jprb, 0.162051e+01_jprb &
34758  &, 0.161961e+01_jprb, 0.161818e+01_jprb, 0.161620e+01_jprb, 0.161371e+01_jprb &
34759  &, 0.161066e+01_jprb, 0.160711e+01_jprb, 0.160305e+01_jprb &
34760  &, 0.159847e+01_jprb, 0.159339e+01_jprb, 0.158781e+01_jprb, 0.158173e+01_jprb &
34761  &, 0.157517e+01_jprb, 0.156816e+01_jprb, 0.156067e+01_jprb &
34762  &, 0.155271e+01_jprb, 0.154430e+01_jprb, 0.153545e+01_jprb, 0.152619e+01_jprb &
34763  &, 0.151649e+01_jprb, 0.150638e+01_jprb, 0.149588e+01_jprb &
34764  &, 0.148497e+01_jprb, 0.147369e+01_jprb, 0.146205e+01_jprb, 0.145003e+01_jprb &
34765  &, 0.143768e+01_jprb, 0.142499e+01_jprb, 0.141197e+01_jprb &
34766  &, 0.139863e+01_jprb, 0.138498e+01_jprb, 0.137107e+01_jprb, 0.135687e+01_jprb &
34767  &, 0.134242e+01_jprb, 0.132768e+01_jprb, 0.131271e+01_jprb &
34768  &, 0.129753e+01_jprb, 0.128212e+01_jprb, 0.126651e+01_jprb, 0.125068e+01_jprb &
34769  &, 0.123470e+01_jprb, 0.121855e+01_jprb, 0.120221e+01_jprb &
34770  &, 0.118577e+01_jprb, 0.116918e+01_jprb, 0.115244e+01_jprb, 0.113562e+01_jprb &
34771  &, 0.111869e+01_jprb, 0.110171e+01_jprb, 0.108461e+01_jprb &
34772  &, 0.106746e+01_jprb, 0.105028e+01_jprb, 0.103305e+01_jprb, 0.101578e+01_jprb &
34773  &, 0.998484e+00_jprb, 0.981181e+00_jprb, 0.963904e+00_jprb &
34774  &, 0.946608e+00_jprb, 0.929363e+00_jprb, 0.912119e+00_jprb, 0.894947e+00_jprb &
34775  &, 0.877838e+00_jprb, 0.860777e+00_jprb, 0.843752e+00_jprb &
34776  &, 0.826836e+00_jprb, 0.810015e+00_jprb, 0.793272e+00_jprb, 0.776636e+00_jprb &
34777  &, 0.760088e+00_jprb, 0.743706e+00_jprb, 0.727421e+00_jprb &
34778  &, 0.711310e+00_jprb, 0.695302e+00_jprb, 0.679422e+00_jprb, 0.663698e+00_jprb &
34779  &, 0.648156e+00_jprb, 0.632770e+00_jprb, 0.617567e+00_jprb &
34780  &, 0.602517e+00_jprb, 0.587702e+00_jprb, 0.573036e+00_jprb, 0.558541e+00_jprb &
34781  &, 0.544242e+00_jprb, 0.530163e+00_jprb, 0.516268e+00_jprb &
34782  &, 0.502581e+00_jprb, 0.489064e+00_jprb, 0.475799e+00_jprb, 0.462747e+00_jprb &
34783  &, 0.449931e+00_jprb, 0.437243e+00_jprb, 0.424833e+00_jprb/)
34784 xcw( 797, :) = (/ &
34785  & 0.108184e+01_jprb, 0.110188e+01_jprb, 0.112172e+01_jprb, 0.114135e+01_jprb &
34786  &, 0.116076e+01_jprb, 0.117993e+01_jprb, 0.119885e+01_jprb &
34787  &, 0.121752e+01_jprb, 0.123591e+01_jprb, 0.125401e+01_jprb, 0.127181e+01_jprb &
34788  &, 0.128931e+01_jprb, 0.130648e+01_jprb, 0.132332e+01_jprb &
34789  &, 0.133980e+01_jprb, 0.135593e+01_jprb, 0.137169e+01_jprb, 0.138707e+01_jprb &
34790  &, 0.140205e+01_jprb, 0.141663e+01_jprb, 0.143080e+01_jprb &
34791  &, 0.144454e+01_jprb, 0.145784e+01_jprb, 0.147070e+01_jprb, 0.148310e+01_jprb &
34792  &, 0.149504e+01_jprb, 0.150651e+01_jprb, 0.151750e+01_jprb &
34793  &, 0.152799e+01_jprb, 0.153799e+01_jprb, 0.154748e+01_jprb, 0.155647e+01_jprb &
34794  &, 0.156494e+01_jprb, 0.157289e+01_jprb, 0.158031e+01_jprb &
34795  &, 0.158719e+01_jprb, 0.159354e+01_jprb, 0.159935e+01_jprb, 0.160462e+01_jprb &
34796  &, 0.160934e+01_jprb, 0.161351e+01_jprb, 0.161713e+01_jprb &
34797  &, 0.162020e+01_jprb, 0.162272e+01_jprb, 0.162470e+01_jprb, 0.162611e+01_jprb &
34798  &, 0.162699e+01_jprb, 0.162730e+01_jprb, 0.162708e+01_jprb &
34799  &, 0.162631e+01_jprb, 0.162500e+01_jprb, 0.162316e+01_jprb, 0.162078e+01_jprb &
34800  &, 0.161787e+01_jprb, 0.161445e+01_jprb, 0.161050e+01_jprb &
34801  &, 0.160605e+01_jprb, 0.160108e+01_jprb, 0.159561e+01_jprb, 0.158966e+01_jprb &
34802  &, 0.158322e+01_jprb, 0.157630e+01_jprb, 0.156892e+01_jprb &
34803  &, 0.156107e+01_jprb, 0.155278e+01_jprb, 0.154389e+01_jprb, 0.153485e+01_jprb &
34804  &, 0.152526e+01_jprb, 0.151524e+01_jprb, 0.150482e+01_jprb &
34805  &, 0.149402e+01_jprb, 0.148280e+01_jprb, 0.147123e+01_jprb, 0.145932e+01_jprb &
34806  &, 0.144702e+01_jprb, 0.143441e+01_jprb, 0.142146e+01_jprb &
34807  &, 0.140819e+01_jprb, 0.139461e+01_jprb, 0.138076e+01_jprb, 0.136660e+01_jprb &
34808  &, 0.135220e+01_jprb, 0.133752e+01_jprb, 0.132260e+01_jprb &
34809  &, 0.130744e+01_jprb, 0.129208e+01_jprb, 0.127651e+01_jprb, 0.126072e+01_jprb &
34810  &, 0.124475e+01_jprb, 0.122863e+01_jprb, 0.121232e+01_jprb &
34811  &, 0.119587e+01_jprb, 0.117930e+01_jprb, 0.116258e+01_jprb, 0.114577e+01_jprb &
34812  &, 0.112885e+01_jprb, 0.111184e+01_jprb, 0.109474e+01_jprb &
34813  &, 0.107758e+01_jprb, 0.106040e+01_jprb, 0.104311e+01_jprb, 0.102583e+01_jprb &
34814  &, 0.100855e+01_jprb, 0.991214e+00_jprb, 0.973866e+00_jprb &
34815  &, 0.956572e+00_jprb, 0.939285e+00_jprb, 0.921993e+00_jprb, 0.904769e+00_jprb &
34816  &, 0.887601e+00_jprb, 0.870478e+00_jprb, 0.853428e+00_jprb &
34817  &, 0.836439e+00_jprb, 0.819538e+00_jprb, 0.802756e+00_jprb, 0.786030e+00_jprb &
34818  &, 0.769434e+00_jprb, 0.752951e+00_jprb, 0.736607e+00_jprb &
34819  &, 0.720384e+00_jprb, 0.704307e+00_jprb, 0.688354e+00_jprb, 0.672604e+00_jprb &
34820  &, 0.656926e+00_jprb, 0.641453e+00_jprb, 0.626156e+00_jprb &
34821  &, 0.611008e+00_jprb, 0.596089e+00_jprb, 0.581313e+00_jprb, 0.566704e+00_jprb &
34822  &, 0.552343e+00_jprb, 0.538139e+00_jprb, 0.524114e+00_jprb &
34823  &, 0.510351e+00_jprb, 0.496754e+00_jprb, 0.483343e+00_jprb, 0.470202e+00_jprb &
34824  &, 0.457229e+00_jprb, 0.444508e+00_jprb, 0.431995e+00_jprb/)
34825 xcw( 798, :) = (/ &
34826  & 0.108222e+01_jprb, 0.110235e+01_jprb, 0.112229e+01_jprb, 0.114203e+01_jprb &
34827  &, 0.116154e+01_jprb, 0.118082e+01_jprb, 0.119986e+01_jprb &
34828  &, 0.121863e+01_jprb, 0.123713e+01_jprb, 0.125535e+01_jprb, 0.127328e+01_jprb &
34829  &, 0.129089e+01_jprb, 0.130818e+01_jprb, 0.132514e+01_jprb &
34830  &, 0.134175e+01_jprb, 0.135800e+01_jprb, 0.137389e+01_jprb, 0.138940e+01_jprb &
34831  &, 0.140451e+01_jprb, 0.141922e+01_jprb, 0.143352e+01_jprb &
34832  &, 0.144739e+01_jprb, 0.146083e+01_jprb, 0.147382e+01_jprb, 0.148636e+01_jprb &
34833  &, 0.149844e+01_jprb, 0.151005e+01_jprb, 0.152117e+01_jprb &
34834  &, 0.153181e+01_jprb, 0.154195e+01_jprb, 0.155158e+01_jprb, 0.156071e+01_jprb &
34835  &, 0.156932e+01_jprb, 0.157741e+01_jprb, 0.158497e+01_jprb &
34836  &, 0.159199e+01_jprb, 0.159848e+01_jprb, 0.160444e+01_jprb, 0.160984e+01_jprb &
34837  &, 0.161470e+01_jprb, 0.161901e+01_jprb, 0.162278e+01_jprb &
34838  &, 0.162598e+01_jprb, 0.162865e+01_jprb, 0.163075e+01_jprb, 0.163231e+01_jprb &
34839  &, 0.163332e+01_jprb, 0.163376e+01_jprb, 0.163367e+01_jprb &
34840  &, 0.163304e+01_jprb, 0.163187e+01_jprb, 0.163015e+01_jprb, 0.162791e+01_jprb &
34841  &, 0.162513e+01_jprb, 0.162182e+01_jprb, 0.161801e+01_jprb &
34842  &, 0.161367e+01_jprb, 0.160882e+01_jprb, 0.160348e+01_jprb, 0.159764e+01_jprb &
34843  &, 0.159132e+01_jprb, 0.158451e+01_jprb, 0.157723e+01_jprb &
34844  &, 0.156949e+01_jprb, 0.156129e+01_jprb, 0.155267e+01_jprb, 0.154359e+01_jprb &
34845  &, 0.153409e+01_jprb, 0.152416e+01_jprb, 0.151382e+01_jprb &
34846  &, 0.150311e+01_jprb, 0.149200e+01_jprb, 0.148051e+01_jprb, 0.146865e+01_jprb &
34847  &, 0.145646e+01_jprb, 0.144389e+01_jprb, 0.143102e+01_jprb &
34848  &, 0.141782e+01_jprb, 0.140431e+01_jprb, 0.139050e+01_jprb, 0.137643e+01_jprb &
34849  &, 0.136206e+01_jprb, 0.134743e+01_jprb, 0.133258e+01_jprb &
34850  &, 0.131746e+01_jprb, 0.130213e+01_jprb, 0.128657e+01_jprb, 0.127082e+01_jprb &
34851  &, 0.125489e+01_jprb, 0.123880e+01_jprb, 0.122252e+01_jprb &
34852  &, 0.120610e+01_jprb, 0.118952e+01_jprb, 0.117281e+01_jprb, 0.115599e+01_jprb &
34853  &, 0.113908e+01_jprb, 0.112207e+01_jprb, 0.110497e+01_jprb &
34854  &, 0.108781e+01_jprb, 0.107058e+01_jprb, 0.105332e+01_jprb, 0.103603e+01_jprb &
34855  &, 0.101868e+01_jprb, 0.100133e+01_jprb, 0.983986e+00_jprb &
34856  &, 0.966616e+00_jprb, 0.949288e+00_jprb, 0.931992e+00_jprb, 0.914717e+00_jprb &
34857  &, 0.897493e+00_jprb, 0.880309e+00_jprb, 0.863192e+00_jprb &
34858  &, 0.846176e+00_jprb, 0.829198e+00_jprb, 0.812333e+00_jprb, 0.795565e+00_jprb &
34859  &, 0.778923e+00_jprb, 0.762341e+00_jprb, 0.745941e+00_jprb &
34860  &, 0.729607e+00_jprb, 0.713464e+00_jprb, 0.697440e+00_jprb, 0.681562e+00_jprb &
34861  &, 0.665750e+00_jprb, 0.650243e+00_jprb, 0.634854e+00_jprb &
34862  &, 0.619664e+00_jprb, 0.604588e+00_jprb, 0.589704e+00_jprb, 0.575039e+00_jprb &
34863  &, 0.560561e+00_jprb, 0.546233e+00_jprb, 0.532139e+00_jprb &
34864  &, 0.518243e+00_jprb, 0.504506e+00_jprb, 0.491012e+00_jprb, 0.477721e+00_jprb &
34865  &, 0.464655e+00_jprb, 0.451837e+00_jprb, 0.439157e+00_jprb/)
34866 
34867 IF (lhook) CALL dr_hook('SU_MCICA:PART114',1,zhook_handle)
34868 END SUBROUTINE part114
34869 
34870 #ifdef VPP5000
34871 !OCL SCALAR
34872 #endif
34873 !option! -Nv -NO
34874 #ifdef RS6K
34875 @process nooptimize
34876 #endif
34877 !pgi$r opt=0
34878 SUBROUTINE part115
34879 
34880 REAL(KIND=JPRB) :: ZHOOK_HANDLE
34881 IF (lhook) CALL dr_hook('SU_MCICA:PART115',0,zhook_handle)
34882 
34883 xcw( 799, :) = (/ &
34884  & 0.108259e+01_jprb, 0.110283e+01_jprb, 0.112287e+01_jprb, 0.114271e+01_jprb &
34885  &, 0.116233e+01_jprb, 0.118172e+01_jprb, 0.120086e+01_jprb &
34886  &, 0.121975e+01_jprb, 0.123837e+01_jprb, 0.125670e+01_jprb, 0.127474e+01_jprb &
34887  &, 0.129247e+01_jprb, 0.130989e+01_jprb, 0.132697e+01_jprb &
34888  &, 0.134370e+01_jprb, 0.136009e+01_jprb, 0.137610e+01_jprb, 0.139173e+01_jprb &
34889  &, 0.140698e+01_jprb, 0.142182e+01_jprb, 0.143625e+01_jprb &
34890  &, 0.145025e+01_jprb, 0.146383e+01_jprb, 0.147696e+01_jprb, 0.148964e+01_jprb &
34891  &, 0.150185e+01_jprb, 0.151360e+01_jprb, 0.152486e+01_jprb &
34892  &, 0.153564e+01_jprb, 0.154592e+01_jprb, 0.155569e+01_jprb, 0.156496e+01_jprb &
34893  &, 0.157371e+01_jprb, 0.158194e+01_jprb, 0.158965e+01_jprb &
34894  &, 0.159681e+01_jprb, 0.160344e+01_jprb, 0.160954e+01_jprb, 0.161509e+01_jprb &
34895  &, 0.162008e+01_jprb, 0.162454e+01_jprb, 0.162844e+01_jprb &
34896  &, 0.163180e+01_jprb, 0.163460e+01_jprb, 0.163684e+01_jprb, 0.163853e+01_jprb &
34897  &, 0.163967e+01_jprb, 0.164027e+01_jprb, 0.164032e+01_jprb &
34898  &, 0.163981e+01_jprb, 0.163877e+01_jprb, 0.163718e+01_jprb, 0.163506e+01_jprb &
34899  &, 0.163242e+01_jprb, 0.162924e+01_jprb, 0.162555e+01_jprb &
34900  &, 0.162133e+01_jprb, 0.161662e+01_jprb, 0.161138e+01_jprb, 0.160566e+01_jprb &
34901  &, 0.159945e+01_jprb, 0.159276e+01_jprb, 0.158560e+01_jprb &
34902  &, 0.157797e+01_jprb, 0.156988e+01_jprb, 0.156135e+01_jprb, 0.155236e+01_jprb &
34903  &, 0.154297e+01_jprb, 0.153313e+01_jprb, 0.152291e+01_jprb &
34904  &, 0.151228e+01_jprb, 0.150125e+01_jprb, 0.148985e+01_jprb, 0.147808e+01_jprb &
34905  &, 0.146594e+01_jprb, 0.145348e+01_jprb, 0.144063e+01_jprb &
34906  &, 0.142755e+01_jprb, 0.141408e+01_jprb, 0.140035e+01_jprb, 0.138631e+01_jprb &
34907  &, 0.137200e+01_jprb, 0.135743e+01_jprb, 0.134261e+01_jprb &
34908  &, 0.132755e+01_jprb, 0.131226e+01_jprb, 0.129675e+01_jprb, 0.128104e+01_jprb &
34909  &, 0.126512e+01_jprb, 0.124903e+01_jprb, 0.123279e+01_jprb &
34910  &, 0.121639e+01_jprb, 0.119983e+01_jprb, 0.118315e+01_jprb, 0.116634e+01_jprb &
34911  &, 0.114941e+01_jprb, 0.113241e+01_jprb, 0.111531e+01_jprb &
34912  &, 0.109811e+01_jprb, 0.108088e+01_jprb, 0.106361e+01_jprb, 0.104630e+01_jprb &
34913  &, 0.102893e+01_jprb, 0.101155e+01_jprb, 0.994145e+00_jprb &
34914  &, 0.976781e+00_jprb, 0.959414e+00_jprb, 0.942074e+00_jprb, 0.924749e+00_jprb &
34915  &, 0.907471e+00_jprb, 0.890226e+00_jprb, 0.873089e+00_jprb &
34916  &, 0.856002e+00_jprb, 0.838994e+00_jprb, 0.822049e+00_jprb, 0.805194e+00_jprb &
34917  &, 0.788460e+00_jprb, 0.771827e+00_jprb, 0.755324e+00_jprb &
34918  &, 0.738980e+00_jprb, 0.722723e+00_jprb, 0.706629e+00_jprb, 0.690624e+00_jprb &
34919  &, 0.674838e+00_jprb, 0.659193e+00_jprb, 0.643661e+00_jprb &
34920  &, 0.628375e+00_jprb, 0.613198e+00_jprb, 0.598265e+00_jprb, 0.583432e+00_jprb &
34921  &, 0.568837e+00_jprb, 0.554446e+00_jprb, 0.540224e+00_jprb &
34922  &, 0.526256e+00_jprb, 0.512443e+00_jprb, 0.498805e+00_jprb, 0.485429e+00_jprb &
34923  &, 0.472209e+00_jprb, 0.459231e+00_jprb, 0.446517e+00_jprb/)
34924 xcw( 800, :) = (/ &
34925  & 0.108297e+01_jprb, 0.110330e+01_jprb, 0.112345e+01_jprb, 0.114339e+01_jprb &
34926  &, 0.116312e+01_jprb, 0.118261e+01_jprb, 0.120187e+01_jprb &
34927  &, 0.122087e+01_jprb, 0.123960e+01_jprb, 0.125805e+01_jprb, 0.127621e+01_jprb &
34928  &, 0.129406e+01_jprb, 0.131160e+01_jprb, 0.132880e+01_jprb &
34929  &, 0.134567e+01_jprb, 0.136217e+01_jprb, 0.137832e+01_jprb, 0.139408e+01_jprb &
34930  &, 0.140946e+01_jprb, 0.142443e+01_jprb, 0.143899e+01_jprb &
34931  &, 0.145314e+01_jprb, 0.146684e+01_jprb, 0.148011e+01_jprb, 0.149293e+01_jprb &
34932  &, 0.150528e+01_jprb, 0.151716e+01_jprb, 0.152857e+01_jprb &
34933  &, 0.153948e+01_jprb, 0.154991e+01_jprb, 0.155983e+01_jprb, 0.156923e+01_jprb &
34934  &, 0.157813e+01_jprb, 0.158650e+01_jprb, 0.159435e+01_jprb &
34935  &, 0.160166e+01_jprb, 0.160828e+01_jprb, 0.161465e+01_jprb, 0.162036e+01_jprb &
34936  &, 0.162550e+01_jprb, 0.163009e+01_jprb, 0.163414e+01_jprb &
34937  &, 0.163763e+01_jprb, 0.164058e+01_jprb, 0.164296e+01_jprb, 0.164479e+01_jprb &
34938  &, 0.164607e+01_jprb, 0.164681e+01_jprb, 0.164699e+01_jprb &
34939  &, 0.164662e+01_jprb, 0.164572e+01_jprb, 0.164427e+01_jprb, 0.164227e+01_jprb &
34940  &, 0.163975e+01_jprb, 0.163668e+01_jprb, 0.163313e+01_jprb &
34941  &, 0.162904e+01_jprb, 0.162445e+01_jprb, 0.161935e+01_jprb, 0.161374e+01_jprb &
34942  &, 0.160765e+01_jprb, 0.160107e+01_jprb, 0.159402e+01_jprb &
34943  &, 0.158650e+01_jprb, 0.157851e+01_jprb, 0.157009e+01_jprb, 0.156122e+01_jprb &
34944  &, 0.155192e+01_jprb, 0.154219e+01_jprb, 0.153203e+01_jprb &
34945  &, 0.152150e+01_jprb, 0.151056e+01_jprb, 0.149924e+01_jprb, 0.148739e+01_jprb &
34946  &, 0.147551e+01_jprb, 0.146310e+01_jprb, 0.145038e+01_jprb &
34947  &, 0.143732e+01_jprb, 0.142393e+01_jprb, 0.141026e+01_jprb, 0.139629e+01_jprb &
34948  &, 0.138202e+01_jprb, 0.136752e+01_jprb, 0.135274e+01_jprb &
34949  &, 0.133771e+01_jprb, 0.132247e+01_jprb, 0.130701e+01_jprb, 0.129132e+01_jprb &
34950  &, 0.127543e+01_jprb, 0.125939e+01_jprb, 0.124314e+01_jprb &
34951  &, 0.122677e+01_jprb, 0.121021e+01_jprb, 0.119355e+01_jprb, 0.117676e+01_jprb &
34952  &, 0.115984e+01_jprb, 0.114281e+01_jprb, 0.112572e+01_jprb &
34953  &, 0.110856e+01_jprb, 0.109129e+01_jprb, 0.107401e+01_jprb, 0.105664e+01_jprb &
34954  &, 0.103926e+01_jprb, 0.102186e+01_jprb, 0.100446e+01_jprb &
34955  &, 0.987026e+00_jprb, 0.969621e+00_jprb, 0.952238e+00_jprb, 0.934908e+00_jprb &
34956  &, 0.917577e+00_jprb, 0.900275e+00_jprb, 0.883074e+00_jprb &
34957  &, 0.865918e+00_jprb, 0.848836e+00_jprb, 0.831857e+00_jprb, 0.814964e+00_jprb &
34958  &, 0.798140e+00_jprb, 0.781459e+00_jprb, 0.764855e+00_jprb &
34959  &, 0.748403e+00_jprb, 0.732082e+00_jprb, 0.715921e+00_jprb, 0.699843e+00_jprb &
34960  &, 0.683926e+00_jprb, 0.668197e+00_jprb, 0.652631e+00_jprb &
34961  &, 0.637197e+00_jprb, 0.621976e+00_jprb, 0.606883e+00_jprb, 0.591998e+00_jprb &
34962  &, 0.577287e+00_jprb, 0.562776e+00_jprb, 0.548489e+00_jprb &
34963  &, 0.534330e+00_jprb, 0.520441e+00_jprb, 0.506724e+00_jprb, 0.493200e+00_jprb &
34964  &, 0.479892e+00_jprb, 0.466820e+00_jprb, 0.453943e+00_jprb/)
34965 xcw( 801, :) = (/ &
34966  & 0.108335e+01_jprb, 0.110378e+01_jprb, 0.112403e+01_jprb, 0.114408e+01_jprb &
34967  &, 0.116391e+01_jprb, 0.118352e+01_jprb, 0.120288e+01_jprb &
34968  &, 0.122200e+01_jprb, 0.124084e+01_jprb, 0.125941e+01_jprb, 0.127769e+01_jprb &
34969  &, 0.129566e+01_jprb, 0.131332e+01_jprb, 0.133065e+01_jprb &
34970  &, 0.134764e+01_jprb, 0.136427e+01_jprb, 0.138054e+01_jprb, 0.139644e+01_jprb &
34971  &, 0.141194e+01_jprb, 0.142705e+01_jprb, 0.144175e+01_jprb &
34972  &, 0.145602e+01_jprb, 0.146987e+01_jprb, 0.148327e+01_jprb, 0.149623e+01_jprb &
34973  &, 0.150872e+01_jprb, 0.152075e+01_jprb, 0.153229e+01_jprb &
34974  &, 0.154335e+01_jprb, 0.155391e+01_jprb, 0.156396e+01_jprb, 0.157353e+01_jprb &
34975  &, 0.158256e+01_jprb, 0.159108e+01_jprb, 0.159907e+01_jprb &
34976  &, 0.160638e+01_jprb, 0.161344e+01_jprb, 0.161983e+01_jprb, 0.162566e+01_jprb &
34977  &, 0.163095e+01_jprb, 0.163569e+01_jprb, 0.163987e+01_jprb &
34978  &, 0.164350e+01_jprb, 0.164658e+01_jprb, 0.164912e+01_jprb, 0.165109e+01_jprb &
34979  &, 0.165251e+01_jprb, 0.165338e+01_jprb, 0.165369e+01_jprb &
34980  &, 0.165342e+01_jprb, 0.165269e+01_jprb, 0.165138e+01_jprb, 0.164953e+01_jprb &
34981  &, 0.164714e+01_jprb, 0.164421e+01_jprb, 0.164077e+01_jprb &
34982  &, 0.163681e+01_jprb, 0.163233e+01_jprb, 0.162735e+01_jprb, 0.162188e+01_jprb &
34983  &, 0.161590e+01_jprb, 0.160944e+01_jprb, 0.160249e+01_jprb &
34984  &, 0.159508e+01_jprb, 0.158721e+01_jprb, 0.157888e+01_jprb, 0.157013e+01_jprb &
34985  &, 0.156092e+01_jprb, 0.155129e+01_jprb, 0.154124e+01_jprb &
34986  &, 0.153080e+01_jprb, 0.151994e+01_jprb, 0.150871e+01_jprb, 0.149711e+01_jprb &
34987  &, 0.148515e+01_jprb, 0.147282e+01_jprb, 0.146016e+01_jprb &
34988  &, 0.144717e+01_jprb, 0.143386e+01_jprb, 0.142026e+01_jprb, 0.140633e+01_jprb &
34989  &, 0.139215e+01_jprb, 0.137768e+01_jprb, 0.136296e+01_jprb &
34990  &, 0.134799e+01_jprb, 0.133277e+01_jprb, 0.131733e+01_jprb, 0.130169e+01_jprb &
34991  &, 0.128584e+01_jprb, 0.126983e+01_jprb, 0.125363e+01_jprb &
34992  &, 0.123725e+01_jprb, 0.122072e+01_jprb, 0.120405e+01_jprb, 0.118728e+01_jprb &
34993  &, 0.117037e+01_jprb, 0.115336e+01_jprb, 0.113624e+01_jprb &
34994  &, 0.111908e+01_jprb, 0.110180e+01_jprb, 0.108448e+01_jprb, 0.106714e+01_jprb &
34995  &, 0.104974e+01_jprb, 0.103232e+01_jprb, 0.101486e+01_jprb &
34996  &, 0.997432e+00_jprb, 0.979992e+00_jprb, 0.962569e+00_jprb, 0.945151e+00_jprb &
34997  &, 0.927769e+00_jprb, 0.910454e+00_jprb, 0.893192e+00_jprb &
34998  &, 0.875969e+00_jprb, 0.858860e+00_jprb, 0.841804e+00_jprb, 0.824828e+00_jprb &
34999  &, 0.807963e+00_jprb, 0.791188e+00_jprb, 0.774533e+00_jprb &
35000  &, 0.757975e+00_jprb, 0.741594e+00_jprb, 0.725315e+00_jprb, 0.709166e+00_jprb &
35001  &, 0.693172e+00_jprb, 0.677362e+00_jprb, 0.661655e+00_jprb &
35002  &, 0.646184e+00_jprb, 0.630811e+00_jprb, 0.615671e+00_jprb, 0.600678e+00_jprb &
35003  &, 0.585855e+00_jprb, 0.571225e+00_jprb, 0.556814e+00_jprb &
35004  &, 0.542585e+00_jprb, 0.528562e+00_jprb, 0.514767e+00_jprb, 0.501098e+00_jprb &
35005  &, 0.487702e+00_jprb, 0.474474e+00_jprb, 0.461499e+00_jprb/)
35006 xcw( 802, :) = (/ &
35007  & 0.108372e+01_jprb, 0.110426e+01_jprb, 0.112461e+01_jprb, 0.114476e+01_jprb &
35008  &, 0.116470e+01_jprb, 0.118442e+01_jprb, 0.120390e+01_jprb &
35009  &, 0.122313e+01_jprb, 0.124209e+01_jprb, 0.126078e+01_jprb, 0.127917e+01_jprb &
35010  &, 0.129727e+01_jprb, 0.131505e+01_jprb, 0.133250e+01_jprb &
35011  &, 0.134961e+01_jprb, 0.136638e+01_jprb, 0.138278e+01_jprb, 0.139880e+01_jprb &
35012  &, 0.141444e+01_jprb, 0.142968e+01_jprb, 0.144452e+01_jprb &
35013  &, 0.145893e+01_jprb, 0.147291e+01_jprb, 0.148645e+01_jprb, 0.149955e+01_jprb &
35014  &, 0.151218e+01_jprb, 0.152434e+01_jprb, 0.153603e+01_jprb &
35015  &, 0.154723e+01_jprb, 0.155794e+01_jprb, 0.156815e+01_jprb, 0.157784e+01_jprb &
35016  &, 0.158702e+01_jprb, 0.159569e+01_jprb, 0.160382e+01_jprb &
35017  &, 0.161142e+01_jprb, 0.161848e+01_jprb, 0.162501e+01_jprb, 0.163099e+01_jprb &
35018  &, 0.163642e+01_jprb, 0.164131e+01_jprb, 0.164564e+01_jprb &
35019  &, 0.164942e+01_jprb, 0.165263e+01_jprb, 0.165531e+01_jprb, 0.165742e+01_jprb &
35020  &, 0.165898e+01_jprb, 0.165999e+01_jprb, 0.166044e+01_jprb &
35021  &, 0.166036e+01_jprb, 0.165971e+01_jprb, 0.165853e+01_jprb, 0.165681e+01_jprb &
35022  &, 0.165455e+01_jprb, 0.165177e+01_jprb, 0.164846e+01_jprb &
35023  &, 0.164462e+01_jprb, 0.164026e+01_jprb, 0.163541e+01_jprb, 0.163004e+01_jprb &
35024  &, 0.162420e+01_jprb, 0.161784e+01_jprb, 0.161102e+01_jprb &
35025  &, 0.160372e+01_jprb, 0.159596e+01_jprb, 0.158776e+01_jprb, 0.157908e+01_jprb &
35026  &, 0.156999e+01_jprb, 0.156045e+01_jprb, 0.155050e+01_jprb &
35027  &, 0.154014e+01_jprb, 0.152940e+01_jprb, 0.151825e+01_jprb, 0.150673e+01_jprb &
35028  &, 0.149484e+01_jprb, 0.148262e+01_jprb, 0.147003e+01_jprb &
35029  &, 0.145710e+01_jprb, 0.144385e+01_jprb, 0.143030e+01_jprb, 0.141646e+01_jprb &
35030  &, 0.140233e+01_jprb, 0.138792e+01_jprb, 0.137324e+01_jprb &
35031  &, 0.135832e+01_jprb, 0.134316e+01_jprb, 0.132777e+01_jprb, 0.131217e+01_jprb &
35032  &, 0.129634e+01_jprb, 0.128034e+01_jprb, 0.126417e+01_jprb &
35033  &, 0.124780e+01_jprb, 0.123129e+01_jprb, 0.121465e+01_jprb, 0.119789e+01_jprb &
35034  &, 0.118097e+01_jprb, 0.116397e+01_jprb, 0.114686e+01_jprb &
35035  &, 0.112967e+01_jprb, 0.111243e+01_jprb, 0.109510e+01_jprb, 0.107771e+01_jprb &
35036  &, 0.106030e+01_jprb, 0.104286e+01_jprb, 0.102537e+01_jprb &
35037  &, 0.100788e+01_jprb, 0.990403e+00_jprb, 0.972941e+00_jprb, 0.955520e+00_jprb &
35038  &, 0.938090e+00_jprb, 0.920720e+00_jprb, 0.903398e+00_jprb &
35039  &, 0.886155e+00_jprb, 0.868976e+00_jprb, 0.851843e+00_jprb, 0.834786e+00_jprb &
35040  &, 0.817881e+00_jprb, 0.801014e+00_jprb, 0.784309e+00_jprb &
35041  &, 0.767697e+00_jprb, 0.751206e+00_jprb, 0.734863e+00_jprb, 0.718645e+00_jprb &
35042  &, 0.702577e+00_jprb, 0.686635e+00_jprb, 0.670842e+00_jprb &
35043  &, 0.655226e+00_jprb, 0.639813e+00_jprb, 0.624572e+00_jprb, 0.609473e+00_jprb &
35044  &, 0.594539e+00_jprb, 0.579852e+00_jprb, 0.565319e+00_jprb &
35045  &, 0.550963e+00_jprb, 0.536806e+00_jprb, 0.522872e+00_jprb, 0.509122e+00_jprb &
35046  &, 0.495640e+00_jprb, 0.482322e+00_jprb, 0.469188e+00_jprb/)
35047 xcw( 803, :) = (/ &
35048  & 0.108410e+01_jprb, 0.110474e+01_jprb, 0.112520e+01_jprb, 0.114545e+01_jprb &
35049  &, 0.116550e+01_jprb, 0.118533e+01_jprb, 0.120492e+01_jprb &
35050  &, 0.122426e+01_jprb, 0.124334e+01_jprb, 0.126214e+01_jprb, 0.128066e+01_jprb &
35051  &, 0.129888e+01_jprb, 0.131677e+01_jprb, 0.133436e+01_jprb &
35052  &, 0.135160e+01_jprb, 0.136849e+01_jprb, 0.138502e+01_jprb, 0.140118e+01_jprb &
35053  &, 0.141695e+01_jprb, 0.143232e+01_jprb, 0.144729e+01_jprb &
35054  &, 0.146185e+01_jprb, 0.147596e+01_jprb, 0.148965e+01_jprb, 0.150288e+01_jprb &
35055  &, 0.151565e+01_jprb, 0.152796e+01_jprb, 0.153979e+01_jprb &
35056  &, 0.155113e+01_jprb, 0.156199e+01_jprb, 0.157233e+01_jprb, 0.158218e+01_jprb &
35057  &, 0.159150e+01_jprb, 0.160031e+01_jprb, 0.160859e+01_jprb &
35058  &, 0.161633e+01_jprb, 0.162354e+01_jprb, 0.163022e+01_jprb, 0.163634e+01_jprb &
35059  &, 0.164192e+01_jprb, 0.164694e+01_jprb, 0.165143e+01_jprb &
35060  &, 0.165534e+01_jprb, 0.165872e+01_jprb, 0.166153e+01_jprb, 0.166379e+01_jprb &
35061  &, 0.166549e+01_jprb, 0.166664e+01_jprb, 0.166723e+01_jprb &
35062  &, 0.166728e+01_jprb, 0.166678e+01_jprb, 0.166573e+01_jprb, 0.166415e+01_jprb &
35063  &, 0.166202e+01_jprb, 0.165936e+01_jprb, 0.165618e+01_jprb &
35064  &, 0.165248e+01_jprb, 0.164825e+01_jprb, 0.164352e+01_jprb, 0.163827e+01_jprb &
35065  &, 0.163255e+01_jprb, 0.162631e+01_jprb, 0.161961e+01_jprb &
35066  &, 0.161243e+01_jprb, 0.160477e+01_jprb, 0.159667e+01_jprb, 0.158810e+01_jprb &
35067  &, 0.157911e+01_jprb, 0.156969e+01_jprb, 0.155983e+01_jprb &
35068  &, 0.154956e+01_jprb, 0.153891e+01_jprb, 0.152786e+01_jprb, 0.151643e+01_jprb &
35069  &, 0.150461e+01_jprb, 0.149245e+01_jprb, 0.147995e+01_jprb &
35070  &, 0.146712e+01_jprb, 0.145395e+01_jprb, 0.144044e+01_jprb, 0.142668e+01_jprb &
35071  &, 0.141259e+01_jprb, 0.139824e+01_jprb, 0.138362e+01_jprb &
35072  &, 0.136873e+01_jprb, 0.135363e+01_jprb, 0.133829e+01_jprb, 0.132271e+01_jprb &
35073  &, 0.130693e+01_jprb, 0.129097e+01_jprb, 0.127481e+01_jprb &
35074  &, 0.125847e+01_jprb, 0.124199e+01_jprb, 0.122537e+01_jprb, 0.120858e+01_jprb &
35075  &, 0.119171e+01_jprb, 0.117469e+01_jprb, 0.115759e+01_jprb &
35076  &, 0.114040e+01_jprb, 0.112313e+01_jprb, 0.110579e+01_jprb, 0.108840e+01_jprb &
35077  &, 0.107098e+01_jprb, 0.105348e+01_jprb, 0.103601e+01_jprb &
35078  &, 0.101848e+01_jprb, 0.100098e+01_jprb, 0.983478e+00_jprb, 0.965974e+00_jprb &
35079  &, 0.948538e+00_jprb, 0.931116e+00_jprb, 0.913736e+00_jprb &
35080  &, 0.896430e+00_jprb, 0.879182e+00_jprb, 0.862022e+00_jprb, 0.844885e+00_jprb &
35081  &, 0.827895e+00_jprb, 0.810985e+00_jprb, 0.794183e+00_jprb &
35082  &, 0.777519e+00_jprb, 0.760920e+00_jprb, 0.744514e+00_jprb, 0.728176e+00_jprb &
35083  &, 0.712035e+00_jprb, 0.696014e+00_jprb, 0.680138e+00_jprb &
35084  &, 0.664433e+00_jprb, 0.648926e+00_jprb, 0.633530e+00_jprb, 0.618384e+00_jprb &
35085  &, 0.603339e+00_jprb, 0.588537e+00_jprb, 0.573883e+00_jprb &
35086  &, 0.559461e+00_jprb, 0.545173e+00_jprb, 0.531165e+00_jprb, 0.517272e+00_jprb &
35087  &, 0.503642e+00_jprb, 0.490235e+00_jprb, 0.477007e+00_jprb/)
35088 xcw( 804, :) = (/ &
35089  & 0.108449e+01_jprb, 0.110522e+01_jprb, 0.112578e+01_jprb, 0.114615e+01_jprb &
35090  &, 0.116630e+01_jprb, 0.118624e+01_jprb, 0.120594e+01_jprb &
35091  &, 0.122540e+01_jprb, 0.124459e+01_jprb, 0.126352e+01_jprb, 0.128215e+01_jprb &
35092  &, 0.130049e+01_jprb, 0.131852e+01_jprb, 0.133623e+01_jprb &
35093  &, 0.135359e+01_jprb, 0.137062e+01_jprb, 0.138728e+01_jprb, 0.140356e+01_jprb &
35094  &, 0.141947e+01_jprb, 0.143498e+01_jprb, 0.145009e+01_jprb &
35095  &, 0.146477e+01_jprb, 0.147903e+01_jprb, 0.149285e+01_jprb, 0.150623e+01_jprb &
35096  &, 0.151914e+01_jprb, 0.153159e+01_jprb, 0.154356e+01_jprb &
35097  &, 0.155505e+01_jprb, 0.156605e+01_jprb, 0.157654e+01_jprb, 0.158653e+01_jprb &
35098  &, 0.159601e+01_jprb, 0.160496e+01_jprb, 0.161339e+01_jprb &
35099  &, 0.162128e+01_jprb, 0.162864e+01_jprb, 0.163545e+01_jprb, 0.164172e+01_jprb &
35100  &, 0.164745e+01_jprb, 0.165262e+01_jprb, 0.165725e+01_jprb &
35101  &, 0.166131e+01_jprb, 0.166483e+01_jprb, 0.166778e+01_jprb, 0.167017e+01_jprb &
35102  &, 0.167203e+01_jprb, 0.167333e+01_jprb, 0.167406e+01_jprb &
35103  &, 0.167425e+01_jprb, 0.167388e+01_jprb, 0.167298e+01_jprb, 0.167152e+01_jprb &
35104  &, 0.166954e+01_jprb, 0.166701e+01_jprb, 0.166396e+01_jprb &
35105  &, 0.166038e+01_jprb, 0.165626e+01_jprb, 0.165168e+01_jprb, 0.164656e+01_jprb &
35106  &, 0.164095e+01_jprb, 0.163484e+01_jprb, 0.162826e+01_jprb &
35107  &, 0.162118e+01_jprb, 0.161364e+01_jprb, 0.160565e+01_jprb, 0.159719e+01_jprb &
35108  &, 0.158829e+01_jprb, 0.157899e+01_jprb, 0.156923e+01_jprb &
35109  &, 0.155905e+01_jprb, 0.154850e+01_jprb, 0.153753e+01_jprb, 0.152619e+01_jprb &
35110  &, 0.151446e+01_jprb, 0.150239e+01_jprb, 0.148996e+01_jprb &
35111  &, 0.147719e+01_jprb, 0.146410e+01_jprb, 0.145069e+01_jprb, 0.143695e+01_jprb &
35112  &, 0.142295e+01_jprb, 0.140864e+01_jprb, 0.139409e+01_jprb &
35113  &, 0.137926e+01_jprb, 0.136418e+01_jprb, 0.134887e+01_jprb, 0.133334e+01_jprb &
35114  &, 0.131760e+01_jprb, 0.130166e+01_jprb, 0.128554e+01_jprb &
35115  &, 0.126924e+01_jprb, 0.125279e+01_jprb, 0.123617e+01_jprb, 0.121940e+01_jprb &
35116  &, 0.120251e+01_jprb, 0.118551e+01_jprb, 0.116842e+01_jprb &
35117  &, 0.115124e+01_jprb, 0.113393e+01_jprb, 0.111660e+01_jprb, 0.109920e+01_jprb &
35118  &, 0.108173e+01_jprb, 0.106425e+01_jprb, 0.104672e+01_jprb &
35119  &, 0.102917e+01_jprb, 0.101163e+01_jprb, 0.994099e+00_jprb, 0.976597e+00_jprb &
35120  &, 0.959073e+00_jprb, 0.941643e+00_jprb, 0.924208e+00_jprb &
35121  &, 0.906840e+00_jprb, 0.889525e+00_jprb, 0.872293e+00_jprb, 0.855125e+00_jprb &
35122  &, 0.838051e+00_jprb, 0.821101e+00_jprb, 0.804205e+00_jprb &
35123  &, 0.787440e+00_jprb, 0.770785e+00_jprb, 0.754268e+00_jprb, 0.737915e+00_jprb &
35124  &, 0.721651e+00_jprb, 0.705554e+00_jprb, 0.689597e+00_jprb &
35125  &, 0.673806e+00_jprb, 0.658152e+00_jprb, 0.642715e+00_jprb, 0.627409e+00_jprb &
35126  &, 0.612314e+00_jprb, 0.597340e+00_jprb, 0.582627e+00_jprb &
35127  &, 0.568081e+00_jprb, 0.553725e+00_jprb, 0.539520e+00_jprb, 0.525612e+00_jprb &
35128  &, 0.511837e+00_jprb, 0.498278e+00_jprb, 0.484958e+00_jprb/)
35129 xcw( 805, :) = (/ &
35130  & 0.108487e+01_jprb, 0.110571e+01_jprb, 0.112637e+01_jprb, 0.114684e+01_jprb &
35131  &, 0.116711e+01_jprb, 0.118715e+01_jprb, 0.120697e+01_jprb &
35132  &, 0.122654e+01_jprb, 0.124585e+01_jprb, 0.126490e+01_jprb, 0.128365e+01_jprb &
35133  &, 0.130211e+01_jprb, 0.132027e+01_jprb, 0.133810e+01_jprb &
35134  &, 0.135560e+01_jprb, 0.137275e+01_jprb, 0.138954e+01_jprb, 0.140596e+01_jprb &
35135  &, 0.142200e+01_jprb, 0.143764e+01_jprb, 0.145289e+01_jprb &
35136  &, 0.146771e+01_jprb, 0.148211e+01_jprb, 0.149608e+01_jprb, 0.150959e+01_jprb &
35137  &, 0.152265e+01_jprb, 0.153524e+01_jprb, 0.154736e+01_jprb &
35138  &, 0.155899e+01_jprb, 0.157013e+01_jprb, 0.158077e+01_jprb, 0.159091e+01_jprb &
35139  &, 0.160053e+01_jprb, 0.160963e+01_jprb, 0.161820e+01_jprb &
35140  &, 0.162625e+01_jprb, 0.163375e+01_jprb, 0.164071e+01_jprb, 0.164714e+01_jprb &
35141  &, 0.165301e+01_jprb, 0.165833e+01_jprb, 0.166310e+01_jprb &
35142  &, 0.166731e+01_jprb, 0.167097e+01_jprb, 0.167407e+01_jprb, 0.167662e+01_jprb &
35143  &, 0.167861e+01_jprb, 0.168004e+01_jprb, 0.168093e+01_jprb &
35144  &, 0.168125e+01_jprb, 0.168103e+01_jprb, 0.168025e+01_jprb, 0.167894e+01_jprb &
35145  &, 0.167709e+01_jprb, 0.167471e+01_jprb, 0.167178e+01_jprb &
35146  &, 0.166833e+01_jprb, 0.166437e+01_jprb, 0.165989e+01_jprb, 0.165490e+01_jprb &
35147  &, 0.164941e+01_jprb, 0.164336e+01_jprb, 0.163696e+01_jprb &
35148  &, 0.162999e+01_jprb, 0.162258e+01_jprb, 0.161469e+01_jprb, 0.160635e+01_jprb &
35149  &, 0.159756e+01_jprb, 0.158835e+01_jprb, 0.157868e+01_jprb &
35150  &, 0.156863e+01_jprb, 0.155814e+01_jprb, 0.154720e+01_jprb, 0.153586e+01_jprb &
35151  &, 0.152440e+01_jprb, 0.151239e+01_jprb, 0.150004e+01_jprb &
35152  &, 0.148735e+01_jprb, 0.147432e+01_jprb, 0.146099e+01_jprb, 0.144732e+01_jprb &
35153  &, 0.143336e+01_jprb, 0.141913e+01_jprb, 0.140464e+01_jprb &
35154  &, 0.138984e+01_jprb, 0.137483e+01_jprb, 0.135956e+01_jprb, 0.134409e+01_jprb &
35155  &, 0.132837e+01_jprb, 0.131247e+01_jprb, 0.129636e+01_jprb &
35156  &, 0.128010e+01_jprb, 0.126365e+01_jprb, 0.124706e+01_jprb, 0.123032e+01_jprb &
35157  &, 0.121345e+01_jprb, 0.119647e+01_jprb, 0.117936e+01_jprb &
35158  &, 0.116215e+01_jprb, 0.114488e+01_jprb, 0.112751e+01_jprb, 0.111011e+01_jprb &
35159  &, 0.109263e+01_jprb, 0.107510e+01_jprb, 0.105755e+01_jprb &
35160  &, 0.104002e+01_jprb, 0.102241e+01_jprb, 0.100484e+01_jprb, 0.987303e+00_jprb &
35161  &, 0.969693e+00_jprb, 0.952257e+00_jprb, 0.934767e+00_jprb &
35162  &, 0.917340e+00_jprb, 0.900005e+00_jprb, 0.882702e+00_jprb, 0.865459e+00_jprb &
35163  &, 0.848351e+00_jprb, 0.831265e+00_jprb, 0.814325e+00_jprb &
35164  &, 0.797511e+00_jprb, 0.780803e+00_jprb, 0.764175e+00_jprb, 0.747707e+00_jprb &
35165  &, 0.731373e+00_jprb, 0.715202e+00_jprb, 0.699165e+00_jprb &
35166  &, 0.683234e+00_jprb, 0.667545e+00_jprb, 0.651956e+00_jprb, 0.636549e+00_jprb &
35167  &, 0.621348e+00_jprb, 0.606321e+00_jprb, 0.591491e+00_jprb &
35168  &, 0.576823e+00_jprb, 0.562339e+00_jprb, 0.548061e+00_jprb, 0.534015e+00_jprb &
35169  &, 0.520095e+00_jprb, 0.506451e+00_jprb, 0.492975e+00_jprb/)
35170 
35171 IF (lhook) CALL dr_hook('SU_MCICA:PART115',1,zhook_handle)
35172 END SUBROUTINE part115
35173 
35174 #ifdef VPP5000
35175 !OCL SCALAR
35176 #endif
35177 !option! -Nv -NO
35178 #ifdef RS6K
35179 @process nooptimize
35180 #endif
35181 !pgi$r opt=0
35182 SUBROUTINE part116
35183 
35184 REAL(KIND=JPRB) :: ZHOOK_HANDLE
35185 IF (lhook) CALL dr_hook('SU_MCICA:PART116',0,zhook_handle)
35186 
35187 xcw( 806, :) = (/ &
35188  & 0.108525e+01_jprb, 0.110619e+01_jprb, 0.112696e+01_jprb, 0.114754e+01_jprb &
35189  &, 0.116791e+01_jprb, 0.118807e+01_jprb, 0.120800e+01_jprb &
35190  &, 0.122769e+01_jprb, 0.124712e+01_jprb, 0.126628e+01_jprb, 0.128516e+01_jprb &
35191  &, 0.130374e+01_jprb, 0.132202e+01_jprb, 0.133998e+01_jprb &
35192  &, 0.135761e+01_jprb, 0.137489e+01_jprb, 0.139181e+01_jprb, 0.140837e+01_jprb &
35193  &, 0.142454e+01_jprb, 0.144033e+01_jprb, 0.145570e+01_jprb &
35194  &, 0.147067e+01_jprb, 0.148521e+01_jprb, 0.149931e+01_jprb, 0.151297e+01_jprb &
35195  &, 0.152617e+01_jprb, 0.153891e+01_jprb, 0.155117e+01_jprb &
35196  &, 0.156295e+01_jprb, 0.157424e+01_jprb, 0.158502e+01_jprb, 0.159531e+01_jprb &
35197  &, 0.160508e+01_jprb, 0.161432e+01_jprb, 0.162305e+01_jprb &
35198  &, 0.163123e+01_jprb, 0.163889e+01_jprb, 0.164600e+01_jprb, 0.165257e+01_jprb &
35199  &, 0.165860e+01_jprb, 0.166407e+01_jprb, 0.166898e+01_jprb &
35200  &, 0.167335e+01_jprb, 0.167715e+01_jprb, 0.168040e+01_jprb, 0.168309e+01_jprb &
35201  &, 0.168522e+01_jprb, 0.168681e+01_jprb, 0.168783e+01_jprb &
35202  &, 0.168829e+01_jprb, 0.168822e+01_jprb, 0.168759e+01_jprb, 0.168641e+01_jprb &
35203  &, 0.168469e+01_jprb, 0.168244e+01_jprb, 0.167965e+01_jprb &
35204  &, 0.167634e+01_jprb, 0.167250e+01_jprb, 0.166815e+01_jprb, 0.166329e+01_jprb &
35205  &, 0.165793e+01_jprb, 0.165206e+01_jprb, 0.164571e+01_jprb &
35206  &, 0.163887e+01_jprb, 0.163156e+01_jprb, 0.162379e+01_jprb, 0.161555e+01_jprb &
35207  &, 0.160688e+01_jprb, 0.159777e+01_jprb, 0.158822e+01_jprb &
35208  &, 0.157824e+01_jprb, 0.156787e+01_jprb, 0.155710e+01_jprb, 0.154593e+01_jprb &
35209  &, 0.153438e+01_jprb, 0.152248e+01_jprb, 0.151020e+01_jprb &
35210  &, 0.149759e+01_jprb, 0.148464e+01_jprb, 0.147136e+01_jprb, 0.145777e+01_jprb &
35211  &, 0.144388e+01_jprb, 0.142972e+01_jprb, 0.141526e+01_jprb &
35212  &, 0.140053e+01_jprb, 0.138555e+01_jprb, 0.137035e+01_jprb, 0.135490e+01_jprb &
35213  &, 0.133923e+01_jprb, 0.132338e+01_jprb, 0.130731e+01_jprb &
35214  &, 0.129105e+01_jprb, 0.127465e+01_jprb, 0.125805e+01_jprb, 0.124134e+01_jprb &
35215  &, 0.122446e+01_jprb, 0.120749e+01_jprb, 0.119040e+01_jprb &
35216  &, 0.117321e+01_jprb, 0.115591e+01_jprb, 0.113854e+01_jprb, 0.112110e+01_jprb &
35217  &, 0.110361e+01_jprb, 0.108610e+01_jprb, 0.106854e+01_jprb &
35218  &, 0.105095e+01_jprb, 0.103331e+01_jprb, 0.101571e+01_jprb, 0.998137e+00_jprb &
35219  &, 0.980527e+00_jprb, 0.963001e+00_jprb, 0.945459e+00_jprb &
35220  &, 0.927974e+00_jprb, 0.910576e+00_jprb, 0.893204e+00_jprb, 0.875933e+00_jprb &
35221  &, 0.858746e+00_jprb, 0.841623e+00_jprb, 0.824592e+00_jprb &
35222  &, 0.807682e+00_jprb, 0.790871e+00_jprb, 0.774237e+00_jprb, 0.757655e+00_jprb &
35223  &, 0.741254e+00_jprb, 0.724956e+00_jprb, 0.708841e+00_jprb &
35224  &, 0.692827e+00_jprb, 0.676994e+00_jprb, 0.661368e+00_jprb, 0.645862e+00_jprb &
35225  &, 0.630557e+00_jprb, 0.615420e+00_jprb, 0.600475e+00_jprb &
35226  &, 0.585686e+00_jprb, 0.571075e+00_jprb, 0.556728e+00_jprb, 0.542544e+00_jprb &
35227  &, 0.528546e+00_jprb, 0.514753e+00_jprb, 0.501189e+00_jprb/)
35228 xcw( 807, :) = (/ &
35229  & 0.108564e+01_jprb, 0.110668e+01_jprb, 0.112755e+01_jprb, 0.114824e+01_jprb &
35230  &, 0.116872e+01_jprb, 0.118899e+01_jprb, 0.120903e+01_jprb &
35231  &, 0.122884e+01_jprb, 0.124839e+01_jprb, 0.126767e+01_jprb, 0.128667e+01_jprb &
35232  &, 0.130538e+01_jprb, 0.132378e+01_jprb, 0.134187e+01_jprb &
35233  &, 0.135962e+01_jprb, 0.137704e+01_jprb, 0.139409e+01_jprb, 0.141078e+01_jprb &
35234  &, 0.142709e+01_jprb, 0.144301e+01_jprb, 0.145853e+01_jprb &
35235  &, 0.147364e+01_jprb, 0.148832e+01_jprb, 0.150256e+01_jprb, 0.151636e+01_jprb &
35236  &, 0.152971e+01_jprb, 0.154259e+01_jprb, 0.155500e+01_jprb &
35237  &, 0.156692e+01_jprb, 0.157836e+01_jprb, 0.158930e+01_jprb, 0.159973e+01_jprb &
35238  &, 0.160964e+01_jprb, 0.161905e+01_jprb, 0.162792e+01_jprb &
35239  &, 0.163626e+01_jprb, 0.164406e+01_jprb, 0.165132e+01_jprb, 0.165805e+01_jprb &
35240  &, 0.166421e+01_jprb, 0.166983e+01_jprb, 0.167490e+01_jprb &
35241  &, 0.167941e+01_jprb, 0.168336e+01_jprb, 0.168677e+01_jprb, 0.168960e+01_jprb &
35242  &, 0.169188e+01_jprb, 0.169361e+01_jprb, 0.169478e+01_jprb &
35243  &, 0.169539e+01_jprb, 0.169545e+01_jprb, 0.169496e+01_jprb, 0.169392e+01_jprb &
35244  &, 0.169234e+01_jprb, 0.169022e+01_jprb, 0.168757e+01_jprb &
35245  &, 0.168440e+01_jprb, 0.168068e+01_jprb, 0.167644e+01_jprb, 0.167173e+01_jprb &
35246  &, 0.166648e+01_jprb, 0.166076e+01_jprb, 0.165453e+01_jprb &
35247  &, 0.164780e+01_jprb, 0.164061e+01_jprb, 0.163295e+01_jprb, 0.162483e+01_jprb &
35248  &, 0.161626e+01_jprb, 0.160725e+01_jprb, 0.159781e+01_jprb &
35249  &, 0.158795e+01_jprb, 0.157767e+01_jprb, 0.156699e+01_jprb, 0.155592e+01_jprb &
35250  &, 0.154446e+01_jprb, 0.153262e+01_jprb, 0.152045e+01_jprb &
35251  &, 0.150790e+01_jprb, 0.149503e+01_jprb, 0.148183e+01_jprb, 0.146832e+01_jprb &
35252  &, 0.145448e+01_jprb, 0.144039e+01_jprb, 0.142598e+01_jprb &
35253  &, 0.141131e+01_jprb, 0.139639e+01_jprb, 0.138122e+01_jprb, 0.136582e+01_jprb &
35254  &, 0.135021e+01_jprb, 0.133437e+01_jprb, 0.131832e+01_jprb &
35255  &, 0.130210e+01_jprb, 0.128570e+01_jprb, 0.126914e+01_jprb, 0.125245e+01_jprb &
35256  &, 0.123561e+01_jprb, 0.121863e+01_jprb, 0.120155e+01_jprb &
35257  &, 0.118433e+01_jprb, 0.116704e+01_jprb, 0.114968e+01_jprb, 0.113223e+01_jprb &
35258  &, 0.111474e+01_jprb, 0.109719e+01_jprb, 0.107961e+01_jprb &
35259  &, 0.106200e+01_jprb, 0.104434e+01_jprb, 0.102671e+01_jprb, 0.100905e+01_jprb &
35260  &, 0.991447e+00_jprb, 0.973832e+00_jprb, 0.956284e+00_jprb &
35261  &, 0.938743e+00_jprb, 0.921284e+00_jprb, 0.903892e+00_jprb, 0.886549e+00_jprb &
35262  &, 0.869284e+00_jprb, 0.852078e+00_jprb, 0.835007e+00_jprb &
35263  &, 0.818002e+00_jprb, 0.801141e+00_jprb, 0.784350e+00_jprb, 0.767759e+00_jprb &
35264  &, 0.751240e+00_jprb, 0.734871e+00_jprb, 0.718627e+00_jprb &
35265  &, 0.702531e+00_jprb, 0.686667e+00_jprb, 0.670893e+00_jprb, 0.655289e+00_jprb &
35266  &, 0.639882e+00_jprb, 0.624636e+00_jprb, 0.609578e+00_jprb &
35267  &, 0.594670e+00_jprb, 0.579996e+00_jprb, 0.565519e+00_jprb, 0.551200e+00_jprb &
35268  &, 0.537124e+00_jprb, 0.523185e+00_jprb, 0.509534e+00_jprb/)
35269 xcw( 808, :) = (/ &
35270  & 0.108602e+01_jprb, 0.110717e+01_jprb, 0.112815e+01_jprb, 0.114894e+01_jprb &
35271  &, 0.116953e+01_jprb, 0.118992e+01_jprb, 0.121007e+01_jprb &
35272  &, 0.122999e+01_jprb, 0.124966e+01_jprb, 0.126906e+01_jprb, 0.128819e+01_jprb &
35273  &, 0.130702e+01_jprb, 0.132555e+01_jprb, 0.134377e+01_jprb &
35274  &, 0.136165e+01_jprb, 0.137919e+01_jprb, 0.139639e+01_jprb, 0.141321e+01_jprb &
35275  &, 0.142966e+01_jprb, 0.144572e+01_jprb, 0.146137e+01_jprb &
35276  &, 0.147662e+01_jprb, 0.149144e+01_jprb, 0.150583e+01_jprb, 0.151977e+01_jprb &
35277  &, 0.153326e+01_jprb, 0.154629e+01_jprb, 0.155885e+01_jprb &
35278  &, 0.157092e+01_jprb, 0.158250e+01_jprb, 0.159359e+01_jprb, 0.160417e+01_jprb &
35279  &, 0.161424e+01_jprb, 0.162379e+01_jprb, 0.163281e+01_jprb &
35280  &, 0.164130e+01_jprb, 0.164925e+01_jprb, 0.165667e+01_jprb, 0.166354e+01_jprb &
35281  &, 0.166986e+01_jprb, 0.167563e+01_jprb, 0.168085e+01_jprb &
35282  &, 0.168551e+01_jprb, 0.168962e+01_jprb, 0.169316e+01_jprb, 0.169615e+01_jprb &
35283  &, 0.169858e+01_jprb, 0.170044e+01_jprb, 0.170176e+01_jprb &
35284  &, 0.170251e+01_jprb, 0.170271e+01_jprb, 0.170238e+01_jprb, 0.170148e+01_jprb &
35285  &, 0.170004e+01_jprb, 0.169806e+01_jprb, 0.169555e+01_jprb &
35286  &, 0.169251e+01_jprb, 0.168893e+01_jprb, 0.168483e+01_jprb, 0.168023e+01_jprb &
35287  &, 0.167512e+01_jprb, 0.166951e+01_jprb, 0.166339e+01_jprb &
35288  &, 0.165680e+01_jprb, 0.164972e+01_jprb, 0.164218e+01_jprb, 0.163417e+01_jprb &
35289  &, 0.162572e+01_jprb, 0.161681e+01_jprb, 0.160747e+01_jprb &
35290  &, 0.159771e+01_jprb, 0.158753e+01_jprb, 0.157695e+01_jprb, 0.156597e+01_jprb &
35291  &, 0.155461e+01_jprb, 0.154286e+01_jprb, 0.153075e+01_jprb &
35292  &, 0.151831e+01_jprb, 0.150550e+01_jprb, 0.149238e+01_jprb, 0.147892e+01_jprb &
35293  &, 0.146519e+01_jprb, 0.145114e+01_jprb, 0.143680e+01_jprb &
35294  &, 0.142217e+01_jprb, 0.140731e+01_jprb, 0.139220e+01_jprb, 0.137684e+01_jprb &
35295  &, 0.136124e+01_jprb, 0.134546e+01_jprb, 0.132945e+01_jprb &
35296  &, 0.131325e+01_jprb, 0.129689e+01_jprb, 0.128036e+01_jprb, 0.126367e+01_jprb &
35297  &, 0.124682e+01_jprb, 0.122986e+01_jprb, 0.121266e+01_jprb &
35298  &, 0.119560e+01_jprb, 0.117829e+01_jprb, 0.116093e+01_jprb, 0.114348e+01_jprb &
35299  &, 0.112595e+01_jprb, 0.110839e+01_jprb, 0.109080e+01_jprb &
35300  &, 0.107316e+01_jprb, 0.105548e+01_jprb, 0.103783e+01_jprb, 0.102014e+01_jprb &
35301  &, 0.100250e+01_jprb, 0.984838e+00_jprb, 0.967241e+00_jprb &
35302  &, 0.949647e+00_jprb, 0.932128e+00_jprb, 0.914671e+00_jprb, 0.897258e+00_jprb &
35303  &, 0.879917e+00_jprb, 0.862678e+00_jprb, 0.845520e+00_jprb &
35304  &, 0.828472e+00_jprb, 0.811512e+00_jprb, 0.794668e+00_jprb, 0.777967e+00_jprb &
35305  &, 0.761331e+00_jprb, 0.744894e+00_jprb, 0.728575e+00_jprb &
35306  &, 0.712400e+00_jprb, 0.696396e+00_jprb, 0.680531e+00_jprb, 0.664832e+00_jprb &
35307  &, 0.649323e+00_jprb, 0.633972e+00_jprb, 0.618801e+00_jprb &
35308  &, 0.603836e+00_jprb, 0.589040e+00_jprb, 0.574435e+00_jprb, 0.559982e+00_jprb &
35309  &, 0.545767e+00_jprb, 0.531747e+00_jprb, 0.517945e+00_jprb/)
35310 xcw( 809, :) = (/ &
35311  & 0.108641e+01_jprb, 0.110766e+01_jprb, 0.112874e+01_jprb, 0.114964e+01_jprb &
35312  &, 0.117035e+01_jprb, 0.119084e+01_jprb, 0.121112e+01_jprb &
35313  &, 0.123115e+01_jprb, 0.125094e+01_jprb, 0.127046e+01_jprb, 0.128971e+01_jprb &
35314  &, 0.130867e+01_jprb, 0.132733e+01_jprb, 0.134567e+01_jprb &
35315  &, 0.136369e+01_jprb, 0.138136e+01_jprb, 0.139869e+01_jprb, 0.141565e+01_jprb &
35316  &, 0.143223e+01_jprb, 0.144843e+01_jprb, 0.146422e+01_jprb &
35317  &, 0.147961e+01_jprb, 0.149458e+01_jprb, 0.150911e+01_jprb, 0.152320e+01_jprb &
35318  &, 0.153683e+01_jprb, 0.155000e+01_jprb, 0.156271e+01_jprb &
35319  &, 0.157494e+01_jprb, 0.158667e+01_jprb, 0.159790e+01_jprb, 0.160864e+01_jprb &
35320  &, 0.161885e+01_jprb, 0.162855e+01_jprb, 0.163773e+01_jprb &
35321  &, 0.164637e+01_jprb, 0.165448e+01_jprb, 0.166205e+01_jprb, 0.166906e+01_jprb &
35322  &, 0.167554e+01_jprb, 0.168147e+01_jprb, 0.168683e+01_jprb &
35323  &, 0.169164e+01_jprb, 0.169590e+01_jprb, 0.169959e+01_jprb, 0.170273e+01_jprb &
35324  &, 0.170531e+01_jprb, 0.170732e+01_jprb, 0.170879e+01_jprb &
35325  &, 0.170969e+01_jprb, 0.171003e+01_jprb, 0.170983e+01_jprb, 0.170908e+01_jprb &
35326  &, 0.170779e+01_jprb, 0.170594e+01_jprb, 0.170356e+01_jprb &
35327  &, 0.170066e+01_jprb, 0.169722e+01_jprb, 0.169325e+01_jprb, 0.168878e+01_jprb &
35328  &, 0.168380e+01_jprb, 0.167831e+01_jprb, 0.167233e+01_jprb &
35329  &, 0.166585e+01_jprb, 0.165890e+01_jprb, 0.165147e+01_jprb, 0.164358e+01_jprb &
35330  &, 0.163524e+01_jprb, 0.162644e+01_jprb, 0.161722e+01_jprb &
35331  &, 0.160756e+01_jprb, 0.159748e+01_jprb, 0.158699e+01_jprb, 0.157611e+01_jprb &
35332  &, 0.156482e+01_jprb, 0.155319e+01_jprb, 0.154115e+01_jprb &
35333  &, 0.152877e+01_jprb, 0.151607e+01_jprb, 0.150301e+01_jprb, 0.148962e+01_jprb &
35334  &, 0.147594e+01_jprb, 0.146197e+01_jprb, 0.144767e+01_jprb &
35335  &, 0.143314e+01_jprb, 0.141832e+01_jprb, 0.140325e+01_jprb, 0.138794e+01_jprb &
35336  &, 0.137240e+01_jprb, 0.135664e+01_jprb, 0.134068e+01_jprb &
35337  &, 0.132452e+01_jprb, 0.130817e+01_jprb, 0.129165e+01_jprb, 0.127499e+01_jprb &
35338  &, 0.125817e+01_jprb, 0.124124e+01_jprb, 0.122413e+01_jprb &
35339  &, 0.120694e+01_jprb, 0.118967e+01_jprb, 0.117229e+01_jprb, 0.115481e+01_jprb &
35340  &, 0.113731e+01_jprb, 0.111970e+01_jprb, 0.110210e+01_jprb &
35341  &, 0.108441e+01_jprb, 0.106675e+01_jprb, 0.104903e+01_jprb, 0.103131e+01_jprb &
35342  &, 0.101363e+01_jprb, 0.995930e+00_jprb, 0.978286e+00_jprb &
35343  &, 0.960685e+00_jprb, 0.943064e+00_jprb, 0.925544e+00_jprb, 0.908109e+00_jprb &
35344  &, 0.890694e+00_jprb, 0.873375e+00_jprb, 0.856180e+00_jprb &
35345  &, 0.839042e+00_jprb, 0.821985e+00_jprb, 0.805089e+00_jprb, 0.788279e+00_jprb &
35346  &, 0.771582e+00_jprb, 0.755077e+00_jprb, 0.738632e+00_jprb &
35347  &, 0.722379e+00_jprb, 0.706292e+00_jprb, 0.690340e+00_jprb, 0.674547e+00_jprb &
35348  &, 0.658940e+00_jprb, 0.643484e+00_jprb, 0.628204e+00_jprb &
35349  &, 0.613063e+00_jprb, 0.598207e+00_jprb, 0.583476e+00_jprb, 0.568954e+00_jprb &
35350  &, 0.554601e+00_jprb, 0.540503e+00_jprb, 0.526553e+00_jprb/)
35351 xcw( 810, :) = (/ &
35352  & 0.108680e+01_jprb, 0.110815e+01_jprb, 0.112934e+01_jprb, 0.115035e+01_jprb &
35353  &, 0.117117e+01_jprb, 0.119178e+01_jprb, 0.121216e+01_jprb &
35354  &, 0.123232e+01_jprb, 0.125222e+01_jprb, 0.127187e+01_jprb, 0.129124e+01_jprb &
35355  &, 0.131032e+01_jprb, 0.132911e+01_jprb, 0.134758e+01_jprb &
35356  &, 0.136573e+01_jprb, 0.138354e+01_jprb, 0.140100e+01_jprb, 0.141809e+01_jprb &
35357  &, 0.143482e+01_jprb, 0.145115e+01_jprb, 0.146709e+01_jprb &
35358  &, 0.148262e+01_jprb, 0.149773e+01_jprb, 0.151241e+01_jprb, 0.152664e+01_jprb &
35359  &, 0.154042e+01_jprb, 0.155374e+01_jprb, 0.156660e+01_jprb &
35360  &, 0.157897e+01_jprb, 0.159085e+01_jprb, 0.160224e+01_jprb, 0.161312e+01_jprb &
35361  &, 0.162349e+01_jprb, 0.163334e+01_jprb, 0.164267e+01_jprb &
35362  &, 0.165146e+01_jprb, 0.165973e+01_jprb, 0.166745e+01_jprb, 0.167462e+01_jprb &
35363  &, 0.168125e+01_jprb, 0.168733e+01_jprb, 0.169285e+01_jprb &
35364  &, 0.169781e+01_jprb, 0.170222e+01_jprb, 0.170606e+01_jprb, 0.170935e+01_jprb &
35365  &, 0.171208e+01_jprb, 0.171424e+01_jprb, 0.171585e+01_jprb &
35366  &, 0.171690e+01_jprb, 0.171740e+01_jprb, 0.171733e+01_jprb, 0.171673e+01_jprb &
35367  &, 0.171558e+01_jprb, 0.171388e+01_jprb, 0.171163e+01_jprb &
35368  &, 0.170885e+01_jprb, 0.170556e+01_jprb, 0.170174e+01_jprb, 0.169739e+01_jprb &
35369  &, 0.169254e+01_jprb, 0.168718e+01_jprb, 0.168131e+01_jprb &
35370  &, 0.167496e+01_jprb, 0.166814e+01_jprb, 0.166084e+01_jprb, 0.165306e+01_jprb &
35371  &, 0.164482e+01_jprb, 0.163614e+01_jprb, 0.162700e+01_jprb &
35372  &, 0.161747e+01_jprb, 0.160747e+01_jprb, 0.159710e+01_jprb, 0.158630e+01_jprb &
35373  &, 0.157512e+01_jprb, 0.156356e+01_jprb, 0.155164e+01_jprb &
35374  &, 0.153935e+01_jprb, 0.152671e+01_jprb, 0.151374e+01_jprb, 0.150043e+01_jprb &
35375  &, 0.148681e+01_jprb, 0.147288e+01_jprb, 0.145869e+01_jprb &
35376  &, 0.144417e+01_jprb, 0.142942e+01_jprb, 0.141440e+01_jprb, 0.139913e+01_jprb &
35377  &, 0.138365e+01_jprb, 0.136791e+01_jprb, 0.135200e+01_jprb &
35378  &, 0.133586e+01_jprb, 0.131955e+01_jprb, 0.130307e+01_jprb, 0.128641e+01_jprb &
35379  &, 0.126962e+01_jprb, 0.125268e+01_jprb, 0.123563e+01_jprb &
35380  &, 0.121842e+01_jprb, 0.120114e+01_jprb, 0.118376e+01_jprb, 0.116629e+01_jprb &
35381  &, 0.114875e+01_jprb, 0.113118e+01_jprb, 0.111352e+01_jprb &
35382  &, 0.109582e+01_jprb, 0.107810e+01_jprb, 0.106040e+01_jprb, 0.104265e+01_jprb &
35383  &, 0.102489e+01_jprb, 0.100720e+01_jprb, 0.989464e+00_jprb &
35384  &, 0.971813e+00_jprb, 0.954182e+00_jprb, 0.936601e+00_jprb, 0.919053e+00_jprb &
35385  &, 0.901613e+00_jprb, 0.884217e+00_jprb, 0.866939e+00_jprb &
35386  &, 0.849711e+00_jprb, 0.832609e+00_jprb, 0.815612e+00_jprb, 0.798748e+00_jprb &
35387  &, 0.781991e+00_jprb, 0.765368e+00_jprb, 0.748852e+00_jprb &
35388  &, 0.732524e+00_jprb, 0.716300e+00_jprb, 0.700262e+00_jprb, 0.684377e+00_jprb &
35389  &, 0.668614e+00_jprb, 0.653115e+00_jprb, 0.637727e+00_jprb &
35390  &, 0.622472e+00_jprb, 0.607497e+00_jprb, 0.592641e+00_jprb, 0.577989e+00_jprb &
35391  &, 0.563564e+00_jprb, 0.549324e+00_jprb, 0.535293e+00_jprb/)
35392 xcw( 811, :) = (/ &
35393  & 0.108719e+01_jprb, 0.110865e+01_jprb, 0.112994e+01_jprb, 0.115106e+01_jprb &
35394  &, 0.117199e+01_jprb, 0.119271e+01_jprb, 0.121321e+01_jprb &
35395  &, 0.123348e+01_jprb, 0.125351e+01_jprb, 0.127328e+01_jprb, 0.129278e+01_jprb &
35396  &, 0.131199e+01_jprb, 0.133090e+01_jprb, 0.134950e+01_jprb &
35397  &, 0.136778e+01_jprb, 0.138573e+01_jprb, 0.140332e+01_jprb, 0.142055e+01_jprb &
35398  &, 0.143741e+01_jprb, 0.145389e+01_jprb, 0.146997e+01_jprb &
35399  &, 0.148564e+01_jprb, 0.150089e+01_jprb, 0.151572e+01_jprb, 0.153010e+01_jprb &
35400  &, 0.154403e+01_jprb, 0.155750e+01_jprb, 0.157050e+01_jprb &
35401  &, 0.158302e+01_jprb, 0.159506e+01_jprb, 0.160659e+01_jprb, 0.161763e+01_jprb &
35402  &, 0.162815e+01_jprb, 0.163816e+01_jprb, 0.164764e+01_jprb &
35403  &, 0.165659e+01_jprb, 0.166500e+01_jprb, 0.167288e+01_jprb, 0.168021e+01_jprb &
35404  &, 0.168699e+01_jprb, 0.169322e+01_jprb, 0.169881e+01_jprb &
35405  &, 0.170401e+01_jprb, 0.170856e+01_jprb, 0.171257e+01_jprb, 0.171600e+01_jprb &
35406  &, 0.171889e+01_jprb, 0.172120e+01_jprb, 0.172296e+01_jprb &
35407  &, 0.172415e+01_jprb, 0.172480e+01_jprb, 0.172489e+01_jprb, 0.172442e+01_jprb &
35408  &, 0.172341e+01_jprb, 0.172185e+01_jprb, 0.171975e+01_jprb &
35409  &, 0.171712e+01_jprb, 0.171395e+01_jprb, 0.171027e+01_jprb, 0.170606e+01_jprb &
35410  &, 0.170133e+01_jprb, 0.169610e+01_jprb, 0.169037e+01_jprb &
35411  &, 0.168414e+01_jprb, 0.167743e+01_jprb, 0.167024e+01_jprb, 0.166259e+01_jprb &
35412  &, 0.165448e+01_jprb, 0.164591e+01_jprb, 0.163690e+01_jprb &
35413  &, 0.162744e+01_jprb, 0.161757e+01_jprb, 0.160728e+01_jprb, 0.159660e+01_jprb &
35414  &, 0.158550e+01_jprb, 0.157403e+01_jprb, 0.156220e+01_jprb &
35415  &, 0.154998e+01_jprb, 0.153743e+01_jprb, 0.152454e+01_jprb, 0.151129e+01_jprb &
35416  &, 0.149775e+01_jprb, 0.148390e+01_jprb, 0.146975e+01_jprb &
35417  &, 0.145534e+01_jprb, 0.144063e+01_jprb, 0.142565e+01_jprb, 0.141044e+01_jprb &
35418  &, 0.139499e+01_jprb, 0.137930e+01_jprb, 0.136342e+01_jprb &
35419  &, 0.134732e+01_jprb, 0.133106e+01_jprb, 0.131458e+01_jprb, 0.129797e+01_jprb &
35420  &, 0.128117e+01_jprb, 0.126426e+01_jprb, 0.124720e+01_jprb &
35421  &, 0.123002e+01_jprb, 0.121274e+01_jprb, 0.119534e+01_jprb, 0.117787e+01_jprb &
35422  &, 0.116034e+01_jprb, 0.114273e+01_jprb, 0.112507e+01_jprb &
35423  &, 0.110735e+01_jprb, 0.108962e+01_jprb, 0.107185e+01_jprb, 0.105407e+01_jprb &
35424  &, 0.103633e+01_jprb, 0.101855e+01_jprb, 0.100077e+01_jprb &
35425  &, 0.983075e+00_jprb, 0.965391e+00_jprb, 0.947751e+00_jprb, 0.930185e+00_jprb &
35426  &, 0.912676e+00_jprb, 0.895204e+00_jprb, 0.877845e+00_jprb &
35427  &, 0.860579e+00_jprb, 0.843386e+00_jprb, 0.826341e+00_jprb, 0.809373e+00_jprb &
35428  &, 0.792505e+00_jprb, 0.775819e+00_jprb, 0.759235e+00_jprb &
35429  &, 0.742779e+00_jprb, 0.726476e+00_jprb, 0.710353e+00_jprb, 0.694322e+00_jprb &
35430  &, 0.678522e+00_jprb, 0.662863e+00_jprb, 0.647369e+00_jprb &
35431  &, 0.632064e+00_jprb, 0.616910e+00_jprb, 0.601994e+00_jprb, 0.587213e+00_jprb &
35432  &, 0.572654e+00_jprb, 0.558275e+00_jprb, 0.544098e+00_jprb/)
35433 xcw( 812, :) = (/ &
35434  & 0.108758e+01_jprb, 0.110915e+01_jprb, 0.113055e+01_jprb, 0.115177e+01_jprb &
35435  &, 0.117281e+01_jprb, 0.119365e+01_jprb, 0.121427e+01_jprb &
35436  &, 0.123466e+01_jprb, 0.125480e+01_jprb, 0.127470e+01_jprb, 0.129432e+01_jprb &
35437  &, 0.131365e+01_jprb, 0.133270e+01_jprb, 0.135143e+01_jprb &
35438  &, 0.136984e+01_jprb, 0.138792e+01_jprb, 0.140565e+01_jprb, 0.142302e+01_jprb &
35439  &, 0.144002e+01_jprb, 0.145664e+01_jprb, 0.147286e+01_jprb &
35440  &, 0.148867e+01_jprb, 0.150407e+01_jprb, 0.151904e+01_jprb, 0.153357e+01_jprb &
35441  &, 0.154765e+01_jprb, 0.156127e+01_jprb, 0.157442e+01_jprb &
35442  &, 0.158710e+01_jprb, 0.159928e+01_jprb, 0.161097e+01_jprb, 0.162216e+01_jprb &
35443  &, 0.163284e+01_jprb, 0.164300e+01_jprb, 0.165263e+01_jprb &
35444  &, 0.166174e+01_jprb, 0.167031e+01_jprb, 0.167834e+01_jprb, 0.168583e+01_jprb &
35445  &, 0.169276e+01_jprb, 0.169914e+01_jprb, 0.170497e+01_jprb &
35446  &, 0.171025e+01_jprb, 0.171496e+01_jprb, 0.171911e+01_jprb, 0.172270e+01_jprb &
35447  &, 0.172573e+01_jprb, 0.172820e+01_jprb, 0.173010e+01_jprb &
35448  &, 0.173146e+01_jprb, 0.173224e+01_jprb, 0.173248e+01_jprb, 0.173217e+01_jprb &
35449  &, 0.173130e+01_jprb, 0.172989e+01_jprb, 0.172793e+01_jprb &
35450  &, 0.172544e+01_jprb, 0.172241e+01_jprb, 0.171885e+01_jprb, 0.171479e+01_jprb &
35451  &, 0.171018e+01_jprb, 0.170509e+01_jprb, 0.169949e+01_jprb &
35452  &, 0.169338e+01_jprb, 0.168680e+01_jprb, 0.167974e+01_jprb, 0.167220e+01_jprb &
35453  &, 0.166420e+01_jprb, 0.165573e+01_jprb, 0.164683e+01_jprb &
35454  &, 0.163750e+01_jprb, 0.162773e+01_jprb, 0.161755e+01_jprb, 0.160694e+01_jprb &
35455  &, 0.159596e+01_jprb, 0.158459e+01_jprb, 0.157283e+01_jprb &
35456  &, 0.156071e+01_jprb, 0.154824e+01_jprb, 0.153542e+01_jprb, 0.152226e+01_jprb &
35457  &, 0.150879e+01_jprb, 0.149502e+01_jprb, 0.148093e+01_jprb &
35458  &, 0.146656e+01_jprb, 0.145192e+01_jprb, 0.143701e+01_jprb, 0.142183e+01_jprb &
35459  &, 0.140644e+01_jprb, 0.139079e+01_jprb, 0.137495e+01_jprb &
35460  &, 0.135888e+01_jprb, 0.134263e+01_jprb, 0.132620e+01_jprb, 0.130962e+01_jprb &
35461  &, 0.129286e+01_jprb, 0.127594e+01_jprb, 0.125887e+01_jprb &
35462  &, 0.124171e+01_jprb, 0.122442e+01_jprb, 0.120703e+01_jprb, 0.118958e+01_jprb &
35463  &, 0.117201e+01_jprb, 0.115439e+01_jprb, 0.113673e+01_jprb &
35464  &, 0.111901e+01_jprb, 0.110121e+01_jprb, 0.108346e+01_jprb, 0.106562e+01_jprb &
35465  &, 0.104784e+01_jprb, 0.103003e+01_jprb, 0.101222e+01_jprb &
35466  &, 0.994472e+00_jprb, 0.976736e+00_jprb, 0.959040e+00_jprb, 0.941411e+00_jprb &
35467  &, 0.923834e+00_jprb, 0.906336e+00_jprb, 0.888898e+00_jprb &
35468  &, 0.871548e+00_jprb, 0.854314e+00_jprb, 0.837173e+00_jprb, 0.820102e+00_jprb &
35469  &, 0.803178e+00_jprb, 0.786378e+00_jprb, 0.769727e+00_jprb &
35470  &, 0.753199e+00_jprb, 0.736764e+00_jprb, 0.720559e+00_jprb, 0.704440e+00_jprb &
35471  &, 0.688547e+00_jprb, 0.672730e+00_jprb, 0.657131e+00_jprb &
35472  &, 0.641716e+00_jprb, 0.626508e+00_jprb, 0.611471e+00_jprb, 0.596564e+00_jprb &
35473  &, 0.581873e+00_jprb, 0.567421e+00_jprb, 0.553101e+00_jprb/)
35474 
35475 IF (lhook) CALL dr_hook('SU_MCICA:PART116',1,zhook_handle)
35476 END SUBROUTINE part116
35477 
35478 #ifdef VPP5000
35479 !OCL SCALAR
35480 #endif
35481 !option! -Nv -NO
35482 #ifdef RS6K
35483 @process nooptimize
35484 #endif
35485 !pgi$r opt=0
35486 SUBROUTINE part117
35487 
35488 REAL(KIND=JPRB) :: ZHOOK_HANDLE
35489 IF (lhook) CALL dr_hook('SU_MCICA:PART117',0,zhook_handle)
35490 
35491 xcw( 813, :) = (/ &
35492  & 0.108797e+01_jprb, 0.110964e+01_jprb, 0.113115e+01_jprb, 0.115249e+01_jprb &
35493  &, 0.117364e+01_jprb, 0.119459e+01_jprb, 0.121533e+01_jprb &
35494  &, 0.123584e+01_jprb, 0.125610e+01_jprb, 0.127612e+01_jprb, 0.129586e+01_jprb &
35495  &, 0.131533e+01_jprb, 0.133450e+01_jprb, 0.135337e+01_jprb &
35496  &, 0.137191e+01_jprb, 0.139013e+01_jprb, 0.140799e+01_jprb, 0.142550e+01_jprb &
35497  &, 0.144264e+01_jprb, 0.145940e+01_jprb, 0.147577e+01_jprb &
35498  &, 0.149172e+01_jprb, 0.150727e+01_jprb, 0.152238e+01_jprb, 0.153706e+01_jprb &
35499  &, 0.155129e+01_jprb, 0.156506e+01_jprb, 0.157836e+01_jprb &
35500  &, 0.159119e+01_jprb, 0.160353e+01_jprb, 0.161537e+01_jprb, 0.162672e+01_jprb &
35501  &, 0.163755e+01_jprb, 0.164786e+01_jprb, 0.165765e+01_jprb &
35502  &, 0.166691e+01_jprb, 0.167564e+01_jprb, 0.168382e+01_jprb, 0.169147e+01_jprb &
35503  &, 0.169856e+01_jprb, 0.170510e+01_jprb, 0.171108e+01_jprb &
35504  &, 0.171652e+01_jprb, 0.172138e+01_jprb, 0.172570e+01_jprb, 0.172944e+01_jprb &
35505  &, 0.173262e+01_jprb, 0.173524e+01_jprb, 0.173730e+01_jprb &
35506  &, 0.173880e+01_jprb, 0.173974e+01_jprb, 0.174013e+01_jprb, 0.173996e+01_jprb &
35507  &, 0.173923e+01_jprb, 0.173796e+01_jprb, 0.173615e+01_jprb &
35508  &, 0.173381e+01_jprb, 0.173041e+01_jprb, 0.172750e+01_jprb, 0.172357e+01_jprb &
35509  &, 0.171911e+01_jprb, 0.171414e+01_jprb, 0.170867e+01_jprb &
35510  &, 0.170269e+01_jprb, 0.169622e+01_jprb, 0.168929e+01_jprb, 0.168186e+01_jprb &
35511  &, 0.167397e+01_jprb, 0.166564e+01_jprb, 0.165684e+01_jprb &
35512  &, 0.164762e+01_jprb, 0.163796e+01_jprb, 0.162788e+01_jprb, 0.161740e+01_jprb &
35513  &, 0.160650e+01_jprb, 0.159523e+01_jprb, 0.158356e+01_jprb &
35514  &, 0.157153e+01_jprb, 0.155913e+01_jprb, 0.154640e+01_jprb, 0.153332e+01_jprb &
35515  &, 0.151992e+01_jprb, 0.150620e+01_jprb, 0.149219e+01_jprb &
35516  &, 0.147789e+01_jprb, 0.146330e+01_jprb, 0.144846e+01_jprb, 0.143335e+01_jprb &
35517  &, 0.141799e+01_jprb, 0.140239e+01_jprb, 0.138659e+01_jprb &
35518  &, 0.137056e+01_jprb, 0.135436e+01_jprb, 0.133794e+01_jprb, 0.132137e+01_jprb &
35519  &, 0.130461e+01_jprb, 0.128773e+01_jprb, 0.127069e+01_jprb &
35520  &, 0.125352e+01_jprb, 0.123625e+01_jprb, 0.121887e+01_jprb, 0.120139e+01_jprb &
35521  &, 0.118383e+01_jprb, 0.116621e+01_jprb, 0.114851e+01_jprb &
35522  &, 0.113078e+01_jprb, 0.111297e+01_jprb, 0.109516e+01_jprb, 0.107734e+01_jprb &
35523  &, 0.105949e+01_jprb, 0.104165e+01_jprb, 0.102384e+01_jprb &
35524  &, 0.100600e+01_jprb, 0.988219e+00_jprb, 0.970467e+00_jprb, 0.952779e+00_jprb &
35525  &, 0.935135e+00_jprb, 0.917566e+00_jprb, 0.900099e+00_jprb &
35526  &, 0.882666e+00_jprb, 0.865343e+00_jprb, 0.848107e+00_jprb, 0.830987e+00_jprb &
35527  &, 0.814010e+00_jprb, 0.797097e+00_jprb, 0.780328e+00_jprb &
35528  &, 0.763730e+00_jprb, 0.747220e+00_jprb, 0.730877e+00_jprb, 0.714730e+00_jprb &
35529  &, 0.698688e+00_jprb, 0.682774e+00_jprb, 0.667073e+00_jprb &
35530  &, 0.651550e+00_jprb, 0.636229e+00_jprb, 0.621073e+00_jprb, 0.606104e+00_jprb &
35531  &, 0.591284e+00_jprb, 0.576696e+00_jprb, 0.562300e+00_jprb/)
35532 xcw( 814, :) = (/ &
35533  & 0.108837e+01_jprb, 0.111014e+01_jprb, 0.113176e+01_jprb, 0.115321e+01_jprb &
35534  &, 0.117447e+01_jprb, 0.119553e+01_jprb, 0.121639e+01_jprb &
35535  &, 0.123702e+01_jprb, 0.125741e+01_jprb, 0.127755e+01_jprb, 0.129742e+01_jprb &
35536  &, 0.131701e+01_jprb, 0.133631e+01_jprb, 0.135531e+01_jprb &
35537  &, 0.137399e+01_jprb, 0.139234e+01_jprb, 0.141034e+01_jprb, 0.142799e+01_jprb &
35538  &, 0.144528e+01_jprb, 0.146217e+01_jprb, 0.147869e+01_jprb &
35539  &, 0.149479e+01_jprb, 0.151048e+01_jprb, 0.152574e+01_jprb, 0.154057e+01_jprb &
35540  &, 0.155495e+01_jprb, 0.156887e+01_jprb, 0.158233e+01_jprb &
35541  &, 0.159530e+01_jprb, 0.160780e+01_jprb, 0.161980e+01_jprb, 0.163130e+01_jprb &
35542  &, 0.164228e+01_jprb, 0.165275e+01_jprb, 0.166270e+01_jprb &
35543  &, 0.167212e+01_jprb, 0.168100e+01_jprb, 0.168935e+01_jprb, 0.169715e+01_jprb &
35544  &, 0.170440e+01_jprb, 0.171110e+01_jprb, 0.171724e+01_jprb &
35545  &, 0.172282e+01_jprb, 0.172785e+01_jprb, 0.173231e+01_jprb, 0.173621e+01_jprb &
35546  &, 0.173955e+01_jprb, 0.174232e+01_jprb, 0.174453e+01_jprb &
35547  &, 0.174619e+01_jprb, 0.174727e+01_jprb, 0.174782e+01_jprb, 0.174779e+01_jprb &
35548  &, 0.174722e+01_jprb, 0.174610e+01_jprb, 0.174443e+01_jprb &
35549  &, 0.174222e+01_jprb, 0.173947e+01_jprb, 0.173620e+01_jprb, 0.173240e+01_jprb &
35550  &, 0.172807e+01_jprb, 0.172323e+01_jprb, 0.171790e+01_jprb &
35551  &, 0.171205e+01_jprb, 0.170572e+01_jprb, 0.169890e+01_jprb, 0.169161e+01_jprb &
35552  &, 0.168385e+01_jprb, 0.167561e+01_jprb, 0.166694e+01_jprb &
35553  &, 0.165783e+01_jprb, 0.164828e+01_jprb, 0.163830e+01_jprb, 0.162790e+01_jprb &
35554  &, 0.161712e+01_jprb, 0.160593e+01_jprb, 0.159436e+01_jprb &
35555  &, 0.158243e+01_jprb, 0.157012e+01_jprb, 0.155745e+01_jprb, 0.154447e+01_jprb &
35556  &, 0.153115e+01_jprb, 0.151752e+01_jprb, 0.150355e+01_jprb &
35557  &, 0.148931e+01_jprb, 0.147479e+01_jprb, 0.145999e+01_jprb, 0.144495e+01_jprb &
35558  &, 0.142963e+01_jprb, 0.141409e+01_jprb, 0.139831e+01_jprb &
35559  &, 0.138234e+01_jprb, 0.136616e+01_jprb, 0.134979e+01_jprb, 0.133323e+01_jprb &
35560  &, 0.131651e+01_jprb, 0.129963e+01_jprb, 0.128261e+01_jprb &
35561  &, 0.126547e+01_jprb, 0.124818e+01_jprb, 0.123083e+01_jprb, 0.121335e+01_jprb &
35562  &, 0.119576e+01_jprb, 0.117811e+01_jprb, 0.116041e+01_jprb &
35563  &, 0.114267e+01_jprb, 0.112485e+01_jprb, 0.110703e+01_jprb, 0.108914e+01_jprb &
35564  &, 0.107127e+01_jprb, 0.105339e+01_jprb, 0.103555e+01_jprb &
35565  &, 0.101767e+01_jprb, 0.999838e+00_jprb, 0.982033e+00_jprb, 0.964287e+00_jprb &
35566  &, 0.946627e+00_jprb, 0.928989e+00_jprb, 0.911398e+00_jprb &
35567  &, 0.893933e+00_jprb, 0.876524e+00_jprb, 0.859247e+00_jprb, 0.842028e+00_jprb &
35568  &, 0.824947e+00_jprb, 0.807977e+00_jprb, 0.791146e+00_jprb &
35569  &, 0.774426e+00_jprb, 0.757843e+00_jprb, 0.741366e+00_jprb, 0.725077e+00_jprb &
35570  &, 0.708945e+00_jprb, 0.692996e+00_jprb, 0.677195e+00_jprb &
35571  &, 0.661566e+00_jprb, 0.646073e+00_jprb, 0.630799e+00_jprb, 0.615708e+00_jprb &
35572  &, 0.600822e+00_jprb, 0.586101e+00_jprb, 0.571565e+00_jprb/)
35573 xcw( 815, :) = (/ &
35574  & 0.108877e+01_jprb, 0.111064e+01_jprb, 0.113237e+01_jprb, 0.115393e+01_jprb &
35575  &, 0.117530e+01_jprb, 0.119648e+01_jprb, 0.121746e+01_jprb &
35576  &, 0.123820e+01_jprb, 0.125872e+01_jprb, 0.127898e+01_jprb, 0.129898e+01_jprb &
35577  &, 0.131870e+01_jprb, 0.133814e+01_jprb, 0.135726e+01_jprb &
35578  &, 0.137608e+01_jprb, 0.139456e+01_jprb, 0.141271e+01_jprb, 0.143050e+01_jprb &
35579  &, 0.144792e+01_jprb, 0.146496e+01_jprb, 0.148162e+01_jprb &
35580  &, 0.149787e+01_jprb, 0.151370e+01_jprb, 0.152912e+01_jprb, 0.154409e+01_jprb &
35581  &, 0.155862e+01_jprb, 0.157270e+01_jprb, 0.158631e+01_jprb &
35582  &, 0.159944e+01_jprb, 0.161208e+01_jprb, 0.162424e+01_jprb, 0.163590e+01_jprb &
35583  &, 0.164704e+01_jprb, 0.165767e+01_jprb, 0.166778e+01_jprb &
35584  &, 0.167735e+01_jprb, 0.168639e+01_jprb, 0.169489e+01_jprb, 0.170286e+01_jprb &
35585  &, 0.171026e+01_jprb, 0.171712e+01_jprb, 0.172342e+01_jprb &
35586  &, 0.172917e+01_jprb, 0.173434e+01_jprb, 0.173897e+01_jprb, 0.174302e+01_jprb &
35587  &, 0.174652e+01_jprb, 0.174945e+01_jprb, 0.175182e+01_jprb &
35588  &, 0.175363e+01_jprb, 0.175487e+01_jprb, 0.175555e+01_jprb, 0.175568e+01_jprb &
35589  &, 0.175526e+01_jprb, 0.175428e+01_jprb, 0.175276e+01_jprb &
35590  &, 0.175070e+01_jprb, 0.174810e+01_jprb, 0.174496e+01_jprb, 0.174129e+01_jprb &
35591  &, 0.173710e+01_jprb, 0.173240e+01_jprb, 0.172720e+01_jprb &
35592  &, 0.172149e+01_jprb, 0.171529e+01_jprb, 0.170859e+01_jprb, 0.170141e+01_jprb &
35593  &, 0.169376e+01_jprb, 0.168566e+01_jprb, 0.167710e+01_jprb &
35594  &, 0.166810e+01_jprb, 0.165865e+01_jprb, 0.164878e+01_jprb, 0.163851e+01_jprb &
35595  &, 0.162782e+01_jprb, 0.161672e+01_jprb, 0.160526e+01_jprb &
35596  &, 0.159340e+01_jprb, 0.158119e+01_jprb, 0.156861e+01_jprb, 0.155572e+01_jprb &
35597  &, 0.154246e+01_jprb, 0.152889e+01_jprb, 0.151500e+01_jprb &
35598  &, 0.150084e+01_jprb, 0.148637e+01_jprb, 0.147164e+01_jprb, 0.145664e+01_jprb &
35599  &, 0.144139e+01_jprb, 0.142588e+01_jprb, 0.141016e+01_jprb &
35600  &, 0.139422e+01_jprb, 0.137809e+01_jprb, 0.136173e+01_jprb, 0.134521e+01_jprb &
35601  &, 0.132850e+01_jprb, 0.131166e+01_jprb, 0.129454e+01_jprb &
35602  &, 0.127752e+01_jprb, 0.126026e+01_jprb, 0.124289e+01_jprb, 0.122539e+01_jprb &
35603  &, 0.120785e+01_jprb, 0.119017e+01_jprb, 0.117246e+01_jprb &
35604  &, 0.115468e+01_jprb, 0.113686e+01_jprb, 0.111898e+01_jprb, 0.110111e+01_jprb &
35605  &, 0.108322e+01_jprb, 0.106527e+01_jprb, 0.104739e+01_jprb &
35606  &, 0.102947e+01_jprb, 0.101159e+01_jprb, 0.993739e+00_jprb, 0.975936e+00_jprb &
35607  &, 0.958214e+00_jprb, 0.940508e+00_jprb, 0.922894e+00_jprb &
35608  &, 0.905351e+00_jprb, 0.887856e+00_jprb, 0.870489e+00_jprb, 0.853226e+00_jprb &
35609  &, 0.836042e+00_jprb, 0.818964e+00_jprb, 0.802073e+00_jprb &
35610  &, 0.785233e+00_jprb, 0.768578e+00_jprb, 0.752025e+00_jprb, 0.735654e+00_jprb &
35611  &, 0.719436e+00_jprb, 0.703335e+00_jprb, 0.687436e+00_jprb &
35612  &, 0.671704e+00_jprb, 0.656101e+00_jprb, 0.640713e+00_jprb, 0.625501e+00_jprb &
35613  &, 0.610489e+00_jprb, 0.595636e+00_jprb, 0.581028e+00_jprb/)
35614 xcw( 816, :) = (/ &
35615  & 0.108916e+01_jprb, 0.111115e+01_jprb, 0.113298e+01_jprb, 0.115465e+01_jprb &
35616  &, 0.117614e+01_jprb, 0.119744e+01_jprb, 0.121853e+01_jprb &
35617  &, 0.123940e+01_jprb, 0.126003e+01_jprb, 0.128042e+01_jprb, 0.130055e+01_jprb &
35618  &, 0.132040e+01_jprb, 0.133996e+01_jprb, 0.135923e+01_jprb &
35619  &, 0.137818e+01_jprb, 0.139680e+01_jprb, 0.141508e+01_jprb, 0.143301e+01_jprb &
35620  &, 0.145058e+01_jprb, 0.146776e+01_jprb, 0.148456e+01_jprb &
35621  &, 0.150096e+01_jprb, 0.151694e+01_jprb, 0.153251e+01_jprb, 0.154763e+01_jprb &
35622  &, 0.156232e+01_jprb, 0.157654e+01_jprb, 0.159031e+01_jprb &
35623  &, 0.160359e+01_jprb, 0.161640e+01_jprb, 0.162871e+01_jprb, 0.164052e+01_jprb &
35624  &, 0.165183e+01_jprb, 0.166261e+01_jprb, 0.167288e+01_jprb &
35625  &, 0.168261e+01_jprb, 0.169182e+01_jprb, 0.170048e+01_jprb, 0.170859e+01_jprb &
35626  &, 0.171616e+01_jprb, 0.172318e+01_jprb, 0.172965e+01_jprb &
35627  &, 0.173554e+01_jprb, 0.174088e+01_jprb, 0.174566e+01_jprb, 0.174988e+01_jprb &
35628  &, 0.175353e+01_jprb, 0.175662e+01_jprb, 0.175914e+01_jprb &
35629  &, 0.176110e+01_jprb, 0.176250e+01_jprb, 0.176334e+01_jprb, 0.176361e+01_jprb &
35630  &, 0.176334e+01_jprb, 0.176252e+01_jprb, 0.176113e+01_jprb &
35631  &, 0.175922e+01_jprb, 0.175677e+01_jprb, 0.175377e+01_jprb, 0.175025e+01_jprb &
35632  &, 0.174620e+01_jprb, 0.174164e+01_jprb, 0.173657e+01_jprb &
35633  &, 0.173098e+01_jprb, 0.172491e+01_jprb, 0.171835e+01_jprb, 0.171129e+01_jprb &
35634  &, 0.170378e+01_jprb, 0.169579e+01_jprb, 0.168734e+01_jprb &
35635  &, 0.167846e+01_jprb, 0.166912e+01_jprb, 0.165936e+01_jprb, 0.164919e+01_jprb &
35636  &, 0.163860e+01_jprb, 0.162761e+01_jprb, 0.161623e+01_jprb &
35637  &, 0.160446e+01_jprb, 0.159235e+01_jprb, 0.157987e+01_jprb, 0.156704e+01_jprb &
35638  &, 0.155387e+01_jprb, 0.154039e+01_jprb, 0.152656e+01_jprb &
35639  &, 0.151245e+01_jprb, 0.149806e+01_jprb, 0.148338e+01_jprb, 0.146845e+01_jprb &
35640  &, 0.145323e+01_jprb, 0.143780e+01_jprb, 0.142210e+01_jprb &
35641  &, 0.140622e+01_jprb, 0.139011e+01_jprb, 0.137380e+01_jprb, 0.135730e+01_jprb &
35642  &, 0.134063e+01_jprb, 0.132379e+01_jprb, 0.130681e+01_jprb &
35643  &, 0.128969e+01_jprb, 0.127245e+01_jprb, 0.125506e+01_jprb, 0.123759e+01_jprb &
35644  &, 0.122001e+01_jprb, 0.120234e+01_jprb, 0.118464e+01_jprb &
35645  &, 0.116686e+01_jprb, 0.114898e+01_jprb, 0.113109e+01_jprb, 0.111317e+01_jprb &
35646  &, 0.109525e+01_jprb, 0.107732e+01_jprb, 0.105936e+01_jprb &
35647  &, 0.104141e+01_jprb, 0.102349e+01_jprb, 0.100558e+01_jprb, 0.987725e+00_jprb &
35648  &, 0.969944e+00_jprb, 0.952173e+00_jprb, 0.934487e+00_jprb &
35649  &, 0.916867e+00_jprb, 0.899341e+00_jprb, 0.881885e+00_jprb, 0.864528e+00_jprb &
35650  &, 0.847297e+00_jprb, 0.830166e+00_jprb, 0.813109e+00_jprb &
35651  &, 0.796204e+00_jprb, 0.779481e+00_jprb, 0.762854e+00_jprb, 0.746347e+00_jprb &
35652  &, 0.729926e+00_jprb, 0.713852e+00_jprb, 0.697797e+00_jprb &
35653  &, 0.681963e+00_jprb, 0.666314e+00_jprb, 0.650813e+00_jprb, 0.635484e+00_jprb &
35654  &, 0.620348e+00_jprb, 0.605365e+00_jprb, 0.590622e+00_jprb/)
35655 xcw( 817, :) = (/ &
35656  & 0.108956e+01_jprb, 0.111165e+01_jprb, 0.113360e+01_jprb, 0.115538e+01_jprb &
35657  &, 0.117698e+01_jprb, 0.119839e+01_jprb, 0.121960e+01_jprb &
35658  &, 0.124059e+01_jprb, 0.126135e+01_jprb, 0.128187e+01_jprb, 0.130212e+01_jprb &
35659  &, 0.132210e+01_jprb, 0.134180e+01_jprb, 0.136120e+01_jprb &
35660  &, 0.138028e+01_jprb, 0.139904e+01_jprb, 0.141746e+01_jprb, 0.143554e+01_jprb &
35661  &, 0.145324e+01_jprb, 0.147057e+01_jprb, 0.148752e+01_jprb &
35662  &, 0.150407e+01_jprb, 0.152020e+01_jprb, 0.153591e+01_jprb, 0.155119e+01_jprb &
35663  &, 0.156603e+01_jprb, 0.158041e+01_jprb, 0.159433e+01_jprb &
35664  &, 0.160777e+01_jprb, 0.162073e+01_jprb, 0.163320e+01_jprb, 0.164517e+01_jprb &
35665  &, 0.165663e+01_jprb, 0.166758e+01_jprb, 0.167801e+01_jprb &
35666  &, 0.168790e+01_jprb, 0.169726e+01_jprb, 0.170609e+01_jprb, 0.171437e+01_jprb &
35667  &, 0.172210e+01_jprb, 0.172928e+01_jprb, 0.173590e+01_jprb &
35668  &, 0.174196e+01_jprb, 0.174746e+01_jprb, 0.175240e+01_jprb, 0.175677e+01_jprb &
35669  &, 0.176059e+01_jprb, 0.176383e+01_jprb, 0.176651e+01_jprb &
35670  &, 0.176853e+01_jprb, 0.177018e+01_jprb, 0.177117e+01_jprb, 0.177160e+01_jprb &
35671  &, 0.177147e+01_jprb, 0.177081e+01_jprb, 0.176958e+01_jprb &
35672  &, 0.176781e+01_jprb, 0.176549e+01_jprb, 0.176264e+01_jprb, 0.175927e+01_jprb &
35673  &, 0.175535e+01_jprb, 0.175092e+01_jprb, 0.174600e+01_jprb &
35674  &, 0.174054e+01_jprb, 0.173460e+01_jprb, 0.172817e+01_jprb, 0.172125e+01_jprb &
35675  &, 0.171385e+01_jprb, 0.170598e+01_jprb, 0.169767e+01_jprb &
35676  &, 0.168887e+01_jprb, 0.167967e+01_jprb, 0.167002e+01_jprb, 0.165994e+01_jprb &
35677  &, 0.164946e+01_jprb, 0.163857e+01_jprb, 0.162729e+01_jprb &
35678  &, 0.161563e+01_jprb, 0.160359e+01_jprb, 0.159120e+01_jprb, 0.157844e+01_jprb &
35679  &, 0.156537e+01_jprb, 0.155194e+01_jprb, 0.153823e+01_jprb &
35680  &, 0.152418e+01_jprb, 0.150986e+01_jprb, 0.149523e+01_jprb, 0.148034e+01_jprb &
35681  &, 0.146520e+01_jprb, 0.144980e+01_jprb, 0.143417e+01_jprb &
35682  &, 0.141832e+01_jprb, 0.140226e+01_jprb, 0.138598e+01_jprb, 0.136952e+01_jprb &
35683  &, 0.135286e+01_jprb, 0.133606e+01_jprb, 0.131909e+01_jprb &
35684  &, 0.130199e+01_jprb, 0.128475e+01_jprb, 0.126738e+01_jprb, 0.124989e+01_jprb &
35685  &, 0.123233e+01_jprb, 0.121467e+01_jprb, 0.119693e+01_jprb &
35686  &, 0.117911e+01_jprb, 0.116127e+01_jprb, 0.114333e+01_jprb, 0.112539e+01_jprb &
35687  &, 0.110745e+01_jprb, 0.108945e+01_jprb, 0.107147e+01_jprb &
35688  &, 0.105348e+01_jprb, 0.103551e+01_jprb, 0.101757e+01_jprb, 0.999656e+00_jprb &
35689  &, 0.981818e+00_jprb, 0.963983e+00_jprb, 0.946229e+00_jprb &
35690  &, 0.928584e+00_jprb, 0.910876e+00_jprb, 0.893435e+00_jprb, 0.875986e+00_jprb &
35691  &, 0.858656e+00_jprb, 0.841421e+00_jprb, 0.824362e+00_jprb &
35692  &, 0.807341e+00_jprb, 0.790496e+00_jprb, 0.773796e+00_jprb, 0.757212e+00_jprb &
35693  &, 0.740767e+00_jprb, 0.724487e+00_jprb, 0.708338e+00_jprb &
35694  &, 0.692404e+00_jprb, 0.676588e+00_jprb, 0.660976e+00_jprb, 0.645529e+00_jprb &
35695  &, 0.630271e+00_jprb, 0.615224e+00_jprb, 0.600347e+00_jprb/)
35696 xcw( 818, :) = (/ &
35697  & 0.108996e+01_jprb, 0.111216e+01_jprb, 0.113421e+01_jprb, 0.115610e+01_jprb &
35698  &, 0.117782e+01_jprb, 0.119935e+01_jprb, 0.122068e+01_jprb &
35699  &, 0.124179e+01_jprb, 0.126268e+01_jprb, 0.128332e+01_jprb, 0.130370e+01_jprb &
35700  &, 0.132381e+01_jprb, 0.134364e+01_jprb, 0.136318e+01_jprb &
35701  &, 0.138240e+01_jprb, 0.140130e+01_jprb, 0.141986e+01_jprb, 0.143807e+01_jprb &
35702  &, 0.145592e+01_jprb, 0.147340e+01_jprb, 0.149049e+01_jprb &
35703  &, 0.150719e+01_jprb, 0.152347e+01_jprb, 0.153934e+01_jprb, 0.155477e+01_jprb &
35704  &, 0.156976e+01_jprb, 0.158430e+01_jprb, 0.159837e+01_jprb &
35705  &, 0.161197e+01_jprb, 0.162509e+01_jprb, 0.163771e+01_jprb, 0.164984e+01_jprb &
35706  &, 0.166147e+01_jprb, 0.167257e+01_jprb, 0.168316e+01_jprb &
35707  &, 0.169322e+01_jprb, 0.170275e+01_jprb, 0.171173e+01_jprb, 0.172017e+01_jprb &
35708  &, 0.172806e+01_jprb, 0.173540e+01_jprb, 0.174219e+01_jprb &
35709  &, 0.174841e+01_jprb, 0.175407e+01_jprb, 0.175917e+01_jprb, 0.176371e+01_jprb &
35710  &, 0.176768e+01_jprb, 0.177108e+01_jprb, 0.177392e+01_jprb &
35711  &, 0.177620e+01_jprb, 0.177791e+01_jprb, 0.177905e+01_jprb, 0.177963e+01_jprb &
35712  &, 0.177967e+01_jprb, 0.177915e+01_jprb, 0.177806e+01_jprb &
35713  &, 0.177642e+01_jprb, 0.177428e+01_jprb, 0.177158e+01_jprb, 0.176834e+01_jprb &
35714  &, 0.176457e+01_jprb, 0.176028e+01_jprb, 0.175549e+01_jprb &
35715  &, 0.175018e+01_jprb, 0.174437e+01_jprb, 0.173807e+01_jprb, 0.173126e+01_jprb &
35716  &, 0.172399e+01_jprb, 0.171625e+01_jprb, 0.170806e+01_jprb &
35717  &, 0.169940e+01_jprb, 0.169029e+01_jprb, 0.168075e+01_jprb, 0.167080e+01_jprb &
35718  &, 0.166040e+01_jprb, 0.164963e+01_jprb, 0.163845e+01_jprb &
35719  &, 0.162689e+01_jprb, 0.161493e+01_jprb, 0.160264e+01_jprb, 0.158997e+01_jprb &
35720  &, 0.157696e+01_jprb, 0.156363e+01_jprb, 0.154998e+01_jprb &
35721  &, 0.153601e+01_jprb, 0.152175e+01_jprb, 0.150720e+01_jprb, 0.149236e+01_jprb &
35722  &, 0.147729e+01_jprb, 0.146193e+01_jprb, 0.144636e+01_jprb &
35723  &, 0.143054e+01_jprb, 0.141451e+01_jprb, 0.139828e+01_jprb, 0.138184e+01_jprb &
35724  &, 0.136523e+01_jprb, 0.134844e+01_jprb, 0.133150e+01_jprb &
35725  &, 0.131441e+01_jprb, 0.129716e+01_jprb, 0.127982e+01_jprb, 0.126234e+01_jprb &
35726  &, 0.124477e+01_jprb, 0.122711e+01_jprb, 0.120934e+01_jprb &
35727  &, 0.119152e+01_jprb, 0.117364e+01_jprb, 0.115574e+01_jprb, 0.113775e+01_jprb &
35728  &, 0.111979e+01_jprb, 0.110176e+01_jprb, 0.108375e+01_jprb &
35729  &, 0.106573e+01_jprb, 0.104768e+01_jprb, 0.102973e+01_jprb, 0.101177e+01_jprb &
35730  &, 0.993834e+00_jprb, 0.975938e+00_jprb, 0.958166e+00_jprb &
35731  &, 0.940399e+00_jprb, 0.922715e+00_jprb, 0.905140e+00_jprb, 0.887601e+00_jprb &
35732  &, 0.870228e+00_jprb, 0.852891e+00_jprb, 0.835723e+00_jprb &
35733  &, 0.818644e+00_jprb, 0.801678e+00_jprb, 0.784852e+00_jprb, 0.768191e+00_jprb &
35734  &, 0.751665e+00_jprb, 0.735299e+00_jprb, 0.719058e+00_jprb &
35735  &, 0.702966e+00_jprb, 0.687109e+00_jprb, 0.671389e+00_jprb, 0.655828e+00_jprb &
35736  &, 0.640450e+00_jprb, 0.625277e+00_jprb, 0.610269e+00_jprb/)
35737 xcw( 819, :) = (/ &
35738  & 0.109036e+01_jprb, 0.111267e+01_jprb, 0.113483e+01_jprb, 0.115684e+01_jprb &
35739  &, 0.117867e+01_jprb, 0.120032e+01_jprb, 0.122177e+01_jprb &
35740  &, 0.124300e+01_jprb, 0.126401e+01_jprb, 0.128478e+01_jprb, 0.130529e+01_jprb &
35741  &, 0.132553e+01_jprb, 0.134549e+01_jprb, 0.136516e+01_jprb &
35742  &, 0.138452e+01_jprb, 0.140356e+01_jprb, 0.142226e+01_jprb, 0.144062e+01_jprb &
35743  &, 0.145862e+01_jprb, 0.147624e+01_jprb, 0.149348e+01_jprb &
35744  &, 0.151032e+01_jprb, 0.152675e+01_jprb, 0.154278e+01_jprb, 0.155836e+01_jprb &
35745  &, 0.157351e+01_jprb, 0.158820e+01_jprb, 0.160243e+01_jprb &
35746  &, 0.161619e+01_jprb, 0.162946e+01_jprb, 0.164225e+01_jprb, 0.165454e+01_jprb &
35747  &, 0.166633e+01_jprb, 0.167759e+01_jprb, 0.168835e+01_jprb &
35748  &, 0.169857e+01_jprb, 0.170825e+01_jprb, 0.171740e+01_jprb, 0.172601e+01_jprb &
35749  &, 0.173407e+01_jprb, 0.174157e+01_jprb, 0.174851e+01_jprb &
35750  &, 0.175490e+01_jprb, 0.176073e+01_jprb, 0.176599e+01_jprb, 0.177069e+01_jprb &
35751  &, 0.177482e+01_jprb, 0.177838e+01_jprb, 0.178139e+01_jprb &
35752  &, 0.178381e+01_jprb, 0.178569e+01_jprb, 0.178698e+01_jprb, 0.178772e+01_jprb &
35753  &, 0.178792e+01_jprb, 0.178754e+01_jprb, 0.178662e+01_jprb &
35754  &, 0.178515e+01_jprb, 0.178313e+01_jprb, 0.178057e+01_jprb, 0.177747e+01_jprb &
35755  &, 0.177385e+01_jprb, 0.176971e+01_jprb, 0.176504e+01_jprb &
35756  &, 0.175987e+01_jprb, 0.175420e+01_jprb, 0.174802e+01_jprb, 0.174137e+01_jprb &
35757  &, 0.173422e+01_jprb, 0.172660e+01_jprb, 0.171853e+01_jprb &
35758  &, 0.170998e+01_jprb, 0.170099e+01_jprb, 0.169156e+01_jprb, 0.168173e+01_jprb &
35759  &, 0.167144e+01_jprb, 0.166077e+01_jprb, 0.164968e+01_jprb &
35760  &, 0.163822e+01_jprb, 0.162636e+01_jprb, 0.161415e+01_jprb, 0.160158e+01_jprb &
35761  &, 0.158867e+01_jprb, 0.157540e+01_jprb, 0.156184e+01_jprb &
35762  &, 0.154793e+01_jprb, 0.153375e+01_jprb, 0.151925e+01_jprb, 0.150449e+01_jprb &
35763  &, 0.148946e+01_jprb, 0.147417e+01_jprb, 0.145865e+01_jprb &
35764  &, 0.144289e+01_jprb, 0.142689e+01_jprb, 0.141068e+01_jprb, 0.139430e+01_jprb &
35765  &, 0.137770e+01_jprb, 0.136095e+01_jprb, 0.134402e+01_jprb &
35766  &, 0.132693e+01_jprb, 0.130971e+01_jprb, 0.129236e+01_jprb, 0.127491e+01_jprb &
35767  &, 0.125735e+01_jprb, 0.123968e+01_jprb, 0.122192e+01_jprb &
35768  &, 0.120410e+01_jprb, 0.118618e+01_jprb, 0.116827e+01_jprb, 0.115026e+01_jprb &
35769  &, 0.113225e+01_jprb, 0.111421e+01_jprb, 0.109612e+01_jprb &
35770  &, 0.107807e+01_jprb, 0.106003e+01_jprb, 0.104199e+01_jprb, 0.102399e+01_jprb &
35771  &, 0.100599e+01_jprb, 0.988087e+00_jprb, 0.970202e+00_jprb &
35772  &, 0.952365e+00_jprb, 0.934654e+00_jprb, 0.916947e+00_jprb, 0.899371e+00_jprb &
35773  &, 0.881904e+00_jprb, 0.864521e+00_jprb, 0.847248e+00_jprb &
35774  &, 0.830057e+00_jprb, 0.813028e+00_jprb, 0.796134e+00_jprb, 0.779343e+00_jprb &
35775  &, 0.762739e+00_jprb, 0.746230e+00_jprb, 0.729898e+00_jprb &
35776  &, 0.713711e+00_jprb, 0.697753e+00_jprb, 0.681863e+00_jprb, 0.666253e+00_jprb &
35777  &, 0.650757e+00_jprb, 0.635461e+00_jprb, 0.620323e+00_jprb/)
35778 
35779 IF (lhook) CALL dr_hook('SU_MCICA:PART117',1,zhook_handle)
35780 END SUBROUTINE part117
35781 
35782 #ifdef VPP5000
35783 !OCL SCALAR
35784 #endif
35785 !option! -Nv -NO
35786 #ifdef RS6K
35787 @process nooptimize
35788 #endif
35789 !pgi$r opt=0
35790 SUBROUTINE part118
35791 
35792 REAL(KIND=JPRB) :: ZHOOK_HANDLE
35793 IF (lhook) CALL dr_hook('SU_MCICA:PART118',0,zhook_handle)
35794 
35795 xcw( 820, :) = (/ &
35796  & 0.109077e+01_jprb, 0.111318e+01_jprb, 0.113545e+01_jprb, 0.115757e+01_jprb &
35797  &, 0.117952e+01_jprb, 0.120129e+01_jprb, 0.122285e+01_jprb &
35798  &, 0.124421e+01_jprb, 0.126535e+01_jprb, 0.128624e+01_jprb, 0.130688e+01_jprb &
35799  &, 0.132726e+01_jprb, 0.134735e+01_jprb, 0.136716e+01_jprb &
35800  &, 0.138666e+01_jprb, 0.140583e+01_jprb, 0.142468e+01_jprb, 0.144318e+01_jprb &
35801  &, 0.146132e+01_jprb, 0.147909e+01_jprb, 0.149648e+01_jprb &
35802  &, 0.151347e+01_jprb, 0.153006e+01_jprb, 0.154623e+01_jprb, 0.156197e+01_jprb &
35803  &, 0.157727e+01_jprb, 0.159212e+01_jprb, 0.160651e+01_jprb &
35804  &, 0.162043e+01_jprb, 0.163387e+01_jprb, 0.164681e+01_jprb, 0.165927e+01_jprb &
35805  &, 0.167121e+01_jprb, 0.168265e+01_jprb, 0.169356e+01_jprb &
35806  &, 0.170394e+01_jprb, 0.171379e+01_jprb, 0.172310e+01_jprb, 0.173187e+01_jprb &
35807  &, 0.174010e+01_jprb, 0.174776e+01_jprb, 0.175488e+01_jprb &
35808  &, 0.176143e+01_jprb, 0.176742e+01_jprb, 0.177284e+01_jprb, 0.177771e+01_jprb &
35809  &, 0.178200e+01_jprb, 0.178573e+01_jprb, 0.178889e+01_jprb &
35810  &, 0.179148e+01_jprb, 0.179351e+01_jprb, 0.179497e+01_jprb, 0.179587e+01_jprb &
35811  &, 0.179621e+01_jprb, 0.179599e+01_jprb, 0.179522e+01_jprb &
35812  &, 0.179390e+01_jprb, 0.179204e+01_jprb, 0.178962e+01_jprb, 0.178668e+01_jprb &
35813  &, 0.178321e+01_jprb, 0.177920e+01_jprb, 0.177468e+01_jprb &
35814  &, 0.176963e+01_jprb, 0.176411e+01_jprb, 0.175807e+01_jprb, 0.175152e+01_jprb &
35815  &, 0.174451e+01_jprb, 0.173703e+01_jprb, 0.172906e+01_jprb &
35816  &, 0.172065e+01_jprb, 0.171177e+01_jprb, 0.170246e+01_jprb, 0.169272e+01_jprb &
35817  &, 0.168257e+01_jprb, 0.167199e+01_jprb, 0.166102e+01_jprb &
35818  &, 0.164965e+01_jprb, 0.163790e+01_jprb, 0.162576e+01_jprb, 0.161330e+01_jprb &
35819  &, 0.160045e+01_jprb, 0.158728e+01_jprb, 0.157378e+01_jprb &
35820  &, 0.155996e+01_jprb, 0.154584e+01_jprb, 0.153142e+01_jprb, 0.151671e+01_jprb &
35821  &, 0.150176e+01_jprb, 0.148651e+01_jprb, 0.147103e+01_jprb &
35822  &, 0.145533e+01_jprb, 0.143936e+01_jprb, 0.142321e+01_jprb, 0.140685e+01_jprb &
35823  &, 0.139031e+01_jprb, 0.137357e+01_jprb, 0.135668e+01_jprb &
35824  &, 0.133959e+01_jprb, 0.132241e+01_jprb, 0.130509e+01_jprb, 0.128763e+01_jprb &
35825  &, 0.127005e+01_jprb, 0.125239e+01_jprb, 0.123460e+01_jprb &
35826  &, 0.121676e+01_jprb, 0.119888e+01_jprb, 0.118092e+01_jprb, 0.116274e+01_jprb &
35827  &, 0.114484e+01_jprb, 0.112678e+01_jprb, 0.110867e+01_jprb &
35828  &, 0.109058e+01_jprb, 0.107247e+01_jprb, 0.105439e+01_jprb, 0.103634e+01_jprb &
35829  &, 0.101834e+01_jprb, 0.100033e+01_jprb, 0.982385e+00_jprb &
35830  &, 0.964530e+00_jprb, 0.946695e+00_jprb, 0.928959e+00_jprb, 0.911298e+00_jprb &
35831  &, 0.893740e+00_jprb, 0.876259e+00_jprb, 0.858936e+00_jprb &
35832  &, 0.841690e+00_jprb, 0.824546e+00_jprb, 0.807530e+00_jprb, 0.790668e+00_jprb &
35833  &, 0.773929e+00_jprb, 0.757337e+00_jprb, 0.740918e+00_jprb &
35834  &, 0.724638e+00_jprb, 0.708519e+00_jprb, 0.692587e+00_jprb, 0.676804e+00_jprb &
35835  &, 0.661192e+00_jprb, 0.645774e+00_jprb, 0.630508e+00_jprb/)
35836 xcw( 821, :) = (/ &
35837  & 0.109117e+01_jprb, 0.111369e+01_jprb, 0.113608e+01_jprb, 0.115831e+01_jprb &
35838  &, 0.118037e+01_jprb, 0.120226e+01_jprb, 0.122395e+01_jprb &
35839  &, 0.124543e+01_jprb, 0.126669e+01_jprb, 0.128771e+01_jprb, 0.130848e+01_jprb &
35840  &, 0.132899e+01_jprb, 0.134922e+01_jprb, 0.136916e+01_jprb &
35841  &, 0.138880e+01_jprb, 0.140812e+01_jprb, 0.142711e+01_jprb, 0.144575e+01_jprb &
35842  &, 0.146404e+01_jprb, 0.148196e+01_jprb, 0.149950e+01_jprb &
35843  &, 0.151664e+01_jprb, 0.153338e+01_jprb, 0.154971e+01_jprb, 0.156560e+01_jprb &
35844  &, 0.158106e+01_jprb, 0.159607e+01_jprb, 0.161061e+01_jprb &
35845  &, 0.162469e+01_jprb, 0.163829e+01_jprb, 0.165140e+01_jprb, 0.166402e+01_jprb &
35846  &, 0.167613e+01_jprb, 0.168772e+01_jprb, 0.169880e+01_jprb &
35847  &, 0.170935e+01_jprb, 0.171876e+01_jprb, 0.172884e+01_jprb, 0.173778e+01_jprb &
35848  &, 0.174616e+01_jprb, 0.175400e+01_jprb, 0.176128e+01_jprb &
35849  &, 0.176799e+01_jprb, 0.177416e+01_jprb, 0.177974e+01_jprb, 0.178477e+01_jprb &
35850  &, 0.178923e+01_jprb, 0.179312e+01_jprb, 0.179643e+01_jprb &
35851  &, 0.179919e+01_jprb, 0.180138e+01_jprb, 0.180300e+01_jprb, 0.180407e+01_jprb &
35852  &, 0.180455e+01_jprb, 0.180449e+01_jprb, 0.180388e+01_jprb &
35853  &, 0.180271e+01_jprb, 0.180100e+01_jprb, 0.179874e+01_jprb, 0.179594e+01_jprb &
35854  &, 0.179261e+01_jprb, 0.178875e+01_jprb, 0.178437e+01_jprb &
35855  &, 0.177949e+01_jprb, 0.177407e+01_jprb, 0.176817e+01_jprb, 0.176177e+01_jprb &
35856  &, 0.175488e+01_jprb, 0.174752e+01_jprb, 0.173969e+01_jprb &
35857  &, 0.173139e+01_jprb, 0.172265e+01_jprb, 0.171346e+01_jprb, 0.170383e+01_jprb &
35858  &, 0.169377e+01_jprb, 0.168330e+01_jprb, 0.167244e+01_jprb &
35859  &, 0.166108e+01_jprb, 0.164951e+01_jprb, 0.163747e+01_jprb, 0.162508e+01_jprb &
35860  &, 0.161234e+01_jprb, 0.159926e+01_jprb, 0.158583e+01_jprb &
35861  &, 0.157210e+01_jprb, 0.155804e+01_jprb, 0.154371e+01_jprb, 0.152905e+01_jprb &
35862  &, 0.151415e+01_jprb, 0.149898e+01_jprb, 0.148356e+01_jprb &
35863  &, 0.146787e+01_jprb, 0.145197e+01_jprb, 0.143585e+01_jprb, 0.141954e+01_jprb &
35864  &, 0.140301e+01_jprb, 0.138633e+01_jprb, 0.136945e+01_jprb &
35865  &, 0.135240e+01_jprb, 0.133522e+01_jprb, 0.131789e+01_jprb, 0.130046e+01_jprb &
35866  &, 0.128287e+01_jprb, 0.126523e+01_jprb, 0.124745e+01_jprb &
35867  &, 0.122961e+01_jprb, 0.121166e+01_jprb, 0.119370e+01_jprb, 0.117568e+01_jprb &
35868  &, 0.115760e+01_jprb, 0.113948e+01_jprb, 0.112135e+01_jprb &
35869  &, 0.110324e+01_jprb, 0.108509e+01_jprb, 0.106698e+01_jprb, 0.104888e+01_jprb &
35870  &, 0.103079e+01_jprb, 0.101258e+01_jprb, 0.994765e+00_jprb &
35871  &, 0.976795e+00_jprb, 0.958939e+00_jprb, 0.941125e+00_jprb, 0.923381e+00_jprb &
35872  &, 0.905734e+00_jprb, 0.888211e+00_jprb, 0.870787e+00_jprb &
35873  &, 0.853434e+00_jprb, 0.836232e+00_jprb, 0.819096e+00_jprb, 0.802165e+00_jprb &
35874  &, 0.785352e+00_jprb, 0.768622e+00_jprb, 0.752118e+00_jprb &
35875  &, 0.735686e+00_jprb, 0.719471e+00_jprb, 0.703436e+00_jprb, 0.687545e+00_jprb &
35876  &, 0.671819e+00_jprb, 0.656281e+00_jprb, 0.640891e+00_jprb/)
35877 xcw( 822, :) = (/ &
35878  & 0.109158e+01_jprb, 0.111421e+01_jprb, 0.113670e+01_jprb, 0.115905e+01_jprb &
35879  &, 0.118123e+01_jprb, 0.120323e+01_jprb, 0.122504e+01_jprb &
35880  &, 0.124665e+01_jprb, 0.126803e+01_jprb, 0.128919e+01_jprb, 0.131009e+01_jprb &
35881  &, 0.133073e+01_jprb, 0.135110e+01_jprb, 0.137118e+01_jprb &
35882  &, 0.139095e+01_jprb, 0.141041e+01_jprb, 0.142954e+01_jprb, 0.144833e+01_jprb &
35883  &, 0.146677e+01_jprb, 0.148484e+01_jprb, 0.150253e+01_jprb &
35884  &, 0.151982e+01_jprb, 0.153672e+01_jprb, 0.155320e+01_jprb, 0.156925e+01_jprb &
35885  &, 0.158486e+01_jprb, 0.160003e+01_jprb, 0.161474e+01_jprb &
35886  &, 0.162898e+01_jprb, 0.164274e+01_jprb, 0.165601e+01_jprb, 0.166879e+01_jprb &
35887  &, 0.168106e+01_jprb, 0.169283e+01_jprb, 0.170407e+01_jprb &
35888  &, 0.171478e+01_jprb, 0.172497e+01_jprb, 0.173461e+01_jprb, 0.174371e+01_jprb &
35889  &, 0.175227e+01_jprb, 0.176027e+01_jprb, 0.176772e+01_jprb &
35890  &, 0.177460e+01_jprb, 0.178092e+01_jprb, 0.178668e+01_jprb, 0.179187e+01_jprb &
35891  &, 0.179649e+01_jprb, 0.180055e+01_jprb, 0.180404e+01_jprb &
35892  &, 0.180695e+01_jprb, 0.180931e+01_jprb, 0.181109e+01_jprb, 0.181231e+01_jprb &
35893  &, 0.181296e+01_jprb, 0.181306e+01_jprb, 0.181260e+01_jprb &
35894  &, 0.181159e+01_jprb, 0.181002e+01_jprb, 0.180791e+01_jprb, 0.180527e+01_jprb &
35895  &, 0.180208e+01_jprb, 0.179837e+01_jprb, 0.179413e+01_jprb &
35896  &, 0.178938e+01_jprb, 0.178412e+01_jprb, 0.177835e+01_jprb, 0.177210e+01_jprb &
35897  &, 0.176533e+01_jprb, 0.175810e+01_jprb, 0.175039e+01_jprb &
35898  &, 0.174223e+01_jprb, 0.173361e+01_jprb, 0.172453e+01_jprb, 0.171500e+01_jprb &
35899  &, 0.170508e+01_jprb, 0.169473e+01_jprb, 0.168396e+01_jprb &
35900  &, 0.167278e+01_jprb, 0.166124e+01_jprb, 0.164929e+01_jprb, 0.163700e+01_jprb &
35901  &, 0.162433e+01_jprb, 0.161133e+01_jprb, 0.159799e+01_jprb &
35902  &, 0.158433e+01_jprb, 0.157036e+01_jprb, 0.155608e+01_jprb, 0.154151e+01_jprb &
35903  &, 0.152666e+01_jprb, 0.151156e+01_jprb, 0.149613e+01_jprb &
35904  &, 0.148057e+01_jprb, 0.146470e+01_jprb, 0.144864e+01_jprb, 0.143233e+01_jprb &
35905  &, 0.141586e+01_jprb, 0.139919e+01_jprb, 0.138236e+01_jprb &
35906  &, 0.136532e+01_jprb, 0.134817e+01_jprb, 0.133084e+01_jprb, 0.131340e+01_jprb &
35907  &, 0.129583e+01_jprb, 0.127818e+01_jprb, 0.126042e+01_jprb &
35908  &, 0.124255e+01_jprb, 0.122464e+01_jprb, 0.120664e+01_jprb, 0.118858e+01_jprb &
35909  &, 0.117049e+01_jprb, 0.115235e+01_jprb, 0.113420e+01_jprb &
35910  &, 0.111603e+01_jprb, 0.109785e+01_jprb, 0.107970e+01_jprb, 0.106156e+01_jprb &
35911  &, 0.104342e+01_jprb, 0.102531e+01_jprb, 0.100724e+01_jprb &
35912  &, 0.989259e+00_jprb, 0.971334e+00_jprb, 0.953445e+00_jprb, 0.935621e+00_jprb &
35913  &, 0.917939e+00_jprb, 0.900217e+00_jprb, 0.882747e+00_jprb &
35914  &, 0.865343e+00_jprb, 0.848029e+00_jprb, 0.830832e+00_jprb, 0.813777e+00_jprb &
35915  &, 0.796892e+00_jprb, 0.780084e+00_jprb, 0.763437e+00_jprb &
35916  &, 0.746977e+00_jprb, 0.730606e+00_jprb, 0.714472e+00_jprb, 0.698412e+00_jprb &
35917  &, 0.682574e+00_jprb, 0.666919e+00_jprb, 0.651470e+00_jprb/)
35918 xcw( 823, :) = (/ &
35919  & 0.109199e+01_jprb, 0.111472e+01_jprb, 0.113733e+01_jprb, 0.115979e+01_jprb &
35920  &, 0.118209e+01_jprb, 0.120421e+01_jprb, 0.122615e+01_jprb &
35921  &, 0.124788e+01_jprb, 0.126939e+01_jprb, 0.129067e+01_jprb, 0.131170e+01_jprb &
35922  &, 0.133248e+01_jprb, 0.135298e+01_jprb, 0.137320e+01_jprb &
35923  &, 0.139312e+01_jprb, 0.141272e+01_jprb, 0.143200e+01_jprb, 0.145093e+01_jprb &
35924  &, 0.146951e+01_jprb, 0.148773e+01_jprb, 0.150557e+01_jprb &
35925  &, 0.152302e+01_jprb, 0.154007e+01_jprb, 0.155671e+01_jprb, 0.157292e+01_jprb &
35926  &, 0.158869e+01_jprb, 0.160401e+01_jprb, 0.161888e+01_jprb &
35927  &, 0.163329e+01_jprb, 0.164721e+01_jprb, 0.166065e+01_jprb, 0.167359e+01_jprb &
35928  &, 0.168603e+01_jprb, 0.169796e+01_jprb, 0.170937e+01_jprb &
35929  &, 0.172025e+01_jprb, 0.173060e+01_jprb, 0.174041e+01_jprb, 0.174969e+01_jprb &
35930  &, 0.175841e+01_jprb, 0.176657e+01_jprb, 0.177419e+01_jprb &
35931  &, 0.178124e+01_jprb, 0.178773e+01_jprb, 0.179366e+01_jprb, 0.179902e+01_jprb &
35932  &, 0.180381e+01_jprb, 0.180803e+01_jprb, 0.181168e+01_jprb &
35933  &, 0.181477e+01_jprb, 0.181727e+01_jprb, 0.181922e+01_jprb, 0.182061e+01_jprb &
35934  &, 0.182142e+01_jprb, 0.182168e+01_jprb, 0.182137e+01_jprb &
35935  &, 0.182051e+01_jprb, 0.181911e+01_jprb, 0.181716e+01_jprb, 0.181465e+01_jprb &
35936  &, 0.181162e+01_jprb, 0.180806e+01_jprb, 0.180397e+01_jprb &
35937  &, 0.179936e+01_jprb, 0.179423e+01_jprb, 0.178861e+01_jprb, 0.178248e+01_jprb &
35938  &, 0.177586e+01_jprb, 0.176875e+01_jprb, 0.176119e+01_jprb &
35939  &, 0.175313e+01_jprb, 0.174463e+01_jprb, 0.173568e+01_jprb, 0.172629e+01_jprb &
35940  &, 0.171646e+01_jprb, 0.170622e+01_jprb, 0.169555e+01_jprb &
35941  &, 0.168450e+01_jprb, 0.167305e+01_jprb, 0.166120e+01_jprb, 0.164900e+01_jprb &
35942  &, 0.163643e+01_jprb, 0.162353e+01_jprb, 0.161026e+01_jprb &
35943  &, 0.159669e+01_jprb, 0.158278e+01_jprb, 0.156857e+01_jprb, 0.155408e+01_jprb &
35944  &, 0.153928e+01_jprb, 0.152424e+01_jprb, 0.150891e+01_jprb &
35945  &, 0.149336e+01_jprb, 0.147756e+01_jprb, 0.146150e+01_jprb, 0.144529e+01_jprb &
35946  &, 0.142884e+01_jprb, 0.141219e+01_jprb, 0.139537e+01_jprb &
35947  &, 0.137837e+01_jprb, 0.136123e+01_jprb, 0.134394e+01_jprb, 0.132649e+01_jprb &
35948  &, 0.130896e+01_jprb, 0.129128e+01_jprb, 0.127354e+01_jprb &
35949  &, 0.125565e+01_jprb, 0.123771e+01_jprb, 0.121971e+01_jprb, 0.120165e+01_jprb &
35950  &, 0.118355e+01_jprb, 0.116536e+01_jprb, 0.114719e+01_jprb &
35951  &, 0.112899e+01_jprb, 0.111079e+01_jprb, 0.109256e+01_jprb, 0.107439e+01_jprb &
35952  &, 0.105620e+01_jprb, 0.103804e+01_jprb, 0.101992e+01_jprb &
35953  &, 0.100187e+01_jprb, 0.983881e+00_jprb, 0.965920e+00_jprb, 0.948068e+00_jprb &
35954  &, 0.930250e+00_jprb, 0.912544e+00_jprb, 0.894924e+00_jprb &
35955  &, 0.877417e+00_jprb, 0.860050e+00_jprb, 0.842738e+00_jprb, 0.825619e+00_jprb &
35956  &, 0.808606e+00_jprb, 0.791723e+00_jprb, 0.774936e+00_jprb &
35957  &, 0.758328e+00_jprb, 0.741927e+00_jprb, 0.725633e+00_jprb, 0.709532e+00_jprb &
35958  &, 0.693585e+00_jprb, 0.677751e+00_jprb, 0.662181e+00_jprb/)
35959 xcw( 824, :) = (/ &
35960  & 0.109240e+01_jprb, 0.111524e+01_jprb, 0.113796e+01_jprb, 0.116054e+01_jprb &
35961  &, 0.118295e+01_jprb, 0.120520e+01_jprb, 0.122725e+01_jprb &
35962  &, 0.124911e+01_jprb, 0.127075e+01_jprb, 0.129216e+01_jprb, 0.131333e+01_jprb &
35963  &, 0.133424e+01_jprb, 0.135488e+01_jprb, 0.137523e+01_jprb &
35964  &, 0.139529e+01_jprb, 0.141503e+01_jprb, 0.143446e+01_jprb, 0.145354e+01_jprb &
35965  &, 0.147227e+01_jprb, 0.149064e+01_jprb, 0.150863e+01_jprb &
35966  &, 0.152624e+01_jprb, 0.154344e+01_jprb, 0.156023e+01_jprb, 0.157660e+01_jprb &
35967  &, 0.159253e+01_jprb, 0.160802e+01_jprb, 0.162305e+01_jprb &
35968  &, 0.163761e+01_jprb, 0.165170e+01_jprb, 0.166531e+01_jprb, 0.167841e+01_jprb &
35969  &, 0.169102e+01_jprb, 0.170312e+01_jprb, 0.171470e+01_jprb &
35970  &, 0.172574e+01_jprb, 0.173627e+01_jprb, 0.174625e+01_jprb, 0.175569e+01_jprb &
35971  &, 0.176458e+01_jprb, 0.177292e+01_jprb, 0.178070e+01_jprb &
35972  &, 0.178793e+01_jprb, 0.179459e+01_jprb, 0.180068e+01_jprb, 0.180621e+01_jprb &
35973  &, 0.181116e+01_jprb, 0.181555e+01_jprb, 0.181938e+01_jprb &
35974  &, 0.182262e+01_jprb, 0.182530e+01_jprb, 0.182741e+01_jprb, 0.182895e+01_jprb &
35975  &, 0.182993e+01_jprb, 0.183035e+01_jprb, 0.183021e+01_jprb &
35976  &, 0.182949e+01_jprb, 0.182826e+01_jprb, 0.182645e+01_jprb, 0.182411e+01_jprb &
35977  &, 0.182123e+01_jprb, 0.181781e+01_jprb, 0.181387e+01_jprb &
35978  &, 0.180941e+01_jprb, 0.180443e+01_jprb, 0.179894e+01_jprb, 0.179296e+01_jprb &
35979  &, 0.178647e+01_jprb, 0.177951e+01_jprb, 0.177205e+01_jprb &
35980  &, 0.176414e+01_jprb, 0.175574e+01_jprb, 0.174691e+01_jprb, 0.173764e+01_jprb &
35981  &, 0.172794e+01_jprb, 0.171781e+01_jprb, 0.170725e+01_jprb &
35982  &, 0.169630e+01_jprb, 0.168496e+01_jprb, 0.167322e+01_jprb, 0.166110e+01_jprb &
35983  &, 0.164863e+01_jprb, 0.163581e+01_jprb, 0.162264e+01_jprb &
35984  &, 0.160914e+01_jprb, 0.159530e+01_jprb, 0.158118e+01_jprb, 0.156674e+01_jprb &
35985  &, 0.155203e+01_jprb, 0.153703e+01_jprb, 0.152178e+01_jprb &
35986  &, 0.150628e+01_jprb, 0.149052e+01_jprb, 0.147453e+01_jprb, 0.145834e+01_jprb &
35987  &, 0.144192e+01_jprb, 0.142532e+01_jprb, 0.140852e+01_jprb &
35988  &, 0.139157e+01_jprb, 0.137444e+01_jprb, 0.135715e+01_jprb, 0.133974e+01_jprb &
35989  &, 0.132219e+01_jprb, 0.130454e+01_jprb, 0.128678e+01_jprb &
35990  &, 0.126890e+01_jprb, 0.125097e+01_jprb, 0.123294e+01_jprb, 0.121484e+01_jprb &
35991  &, 0.119674e+01_jprb, 0.117854e+01_jprb, 0.116032e+01_jprb &
35992  &, 0.114210e+01_jprb, 0.112386e+01_jprb, 0.110561e+01_jprb, 0.108735e+01_jprb &
35993  &, 0.106913e+01_jprb, 0.105091e+01_jprb, 0.103274e+01_jprb &
35994  &, 0.101464e+01_jprb, 0.996579e+00_jprb, 0.978548e+00_jprb, 0.960620e+00_jprb &
35995  &, 0.942719e+00_jprb, 0.924978e+00_jprb, 0.907264e+00_jprb &
35996  &, 0.889657e+00_jprb, 0.872183e+00_jprb, 0.854815e+00_jprb, 0.837576e+00_jprb &
35997  &, 0.820437e+00_jprb, 0.803481e+00_jprb, 0.786615e+00_jprb &
35998  &, 0.769923e+00_jprb, 0.753370e+00_jprb, 0.736980e+00_jprb, 0.720778e+00_jprb &
35999  &, 0.704660e+00_jprb, 0.688777e+00_jprb, 0.673089e+00_jprb/)
36000 xcw( 825, :) = (/ &
36001  & 0.109281e+01_jprb, 0.111576e+01_jprb, 0.113860e+01_jprb, 0.116129e+01_jprb &
36002  &, 0.118382e+01_jprb, 0.120618e+01_jprb, 0.122836e+01_jprb &
36003  &, 0.125034e+01_jprb, 0.127211e+01_jprb, 0.129365e+01_jprb, 0.131495e+01_jprb &
36004  &, 0.133600e+01_jprb, 0.135678e+01_jprb, 0.137727e+01_jprb &
36005  &, 0.139747e+01_jprb, 0.141736e+01_jprb, 0.143693e+01_jprb, 0.145616e+01_jprb &
36006  &, 0.147504e+01_jprb, 0.149356e+01_jprb, 0.151171e+01_jprb &
36007  &, 0.152947e+01_jprb, 0.154683e+01_jprb, 0.156378e+01_jprb, 0.158030e+01_jprb &
36008  &, 0.159640e+01_jprb, 0.161205e+01_jprb, 0.162724e+01_jprb &
36009  &, 0.164197e+01_jprb, 0.165622e+01_jprb, 0.166999e+01_jprb, 0.168327e+01_jprb &
36010  &, 0.169604e+01_jprb, 0.170831e+01_jprb, 0.172005e+01_jprb &
36011  &, 0.173127e+01_jprb, 0.174196e+01_jprb, 0.175211e+01_jprb, 0.176173e+01_jprb &
36012  &, 0.177079e+01_jprb, 0.177930e+01_jprb, 0.178726e+01_jprb &
36013  &, 0.179465e+01_jprb, 0.180148e+01_jprb, 0.180775e+01_jprb, 0.181344e+01_jprb &
36014  &, 0.181857e+01_jprb, 0.182313e+01_jprb, 0.182711e+01_jprb &
36015  &, 0.183053e+01_jprb, 0.183336e+01_jprb, 0.183565e+01_jprb, 0.183736e+01_jprb &
36016  &, 0.183850e+01_jprb, 0.183908e+01_jprb, 0.183910e+01_jprb &
36017  &, 0.183857e+01_jprb, 0.183747e+01_jprb, 0.183583e+01_jprb, 0.183364e+01_jprb &
36018  &, 0.183091e+01_jprb, 0.182764e+01_jprb, 0.182385e+01_jprb &
36019  &, 0.181954e+01_jprb, 0.181469e+01_jprb, 0.180935e+01_jprb, 0.180350e+01_jprb &
36020  &, 0.179716e+01_jprb, 0.179032e+01_jprb, 0.178299e+01_jprb &
36021  &, 0.177521e+01_jprb, 0.176696e+01_jprb, 0.175826e+01_jprb, 0.174909e+01_jprb &
36022  &, 0.173950e+01_jprb, 0.172948e+01_jprb, 0.171906e+01_jprb &
36023  &, 0.170819e+01_jprb, 0.169696e+01_jprb, 0.168532e+01_jprb, 0.167330e+01_jprb &
36024  &, 0.166094e+01_jprb, 0.164819e+01_jprb, 0.163510e+01_jprb &
36025  &, 0.162170e+01_jprb, 0.160795e+01_jprb, 0.159389e+01_jprb, 0.157952e+01_jprb &
36026  &, 0.156490e+01_jprb, 0.154995e+01_jprb, 0.153475e+01_jprb &
36027  &, 0.151929e+01_jprb, 0.150361e+01_jprb, 0.148769e+01_jprb, 0.147153e+01_jprb &
36028  &, 0.145514e+01_jprb, 0.143857e+01_jprb, 0.142182e+01_jprb &
36029  &, 0.140488e+01_jprb, 0.138779e+01_jprb, 0.137051e+01_jprb, 0.135313e+01_jprb &
36030  &, 0.133558e+01_jprb, 0.131792e+01_jprb, 0.130018e+01_jprb &
36031  &, 0.128228e+01_jprb, 0.126437e+01_jprb, 0.124630e+01_jprb, 0.122820e+01_jprb &
36032  &, 0.121006e+01_jprb, 0.119185e+01_jprb, 0.117361e+01_jprb &
36033  &, 0.115533e+01_jprb, 0.113708e+01_jprb, 0.111879e+01_jprb, 0.110050e+01_jprb &
36034  &, 0.108224e+01_jprb, 0.106398e+01_jprb, 0.104576e+01_jprb &
36035  &, 0.102755e+01_jprb, 0.100943e+01_jprb, 0.991330e+00_jprb, 0.973328e+00_jprb &
36036  &, 0.955400e+00_jprb, 0.937520e+00_jprb, 0.919768e+00_jprb &
36037  &, 0.902117e+00_jprb, 0.884540e+00_jprb, 0.867061e+00_jprb, 0.849706e+00_jprb &
36038  &, 0.832502e+00_jprb, 0.815416e+00_jprb, 0.798473e+00_jprb &
36039  &, 0.781700e+00_jprb, 0.764998e+00_jprb, 0.748515e+00_jprb, 0.732150e+00_jprb &
36040  &, 0.715991e+00_jprb, 0.699998e+00_jprb, 0.684129e+00_jprb/)
36041 xcw( 826, :) = (/ &
36042  & 0.109322e+01_jprb, 0.111629e+01_jprb, 0.113923e+01_jprb, 0.116204e+01_jprb &
36043  &, 0.118469e+01_jprb, 0.120718e+01_jprb, 0.122948e+01_jprb &
36044  &, 0.125159e+01_jprb, 0.127348e+01_jprb, 0.129516e+01_jprb, 0.131659e+01_jprb &
36045  &, 0.133777e+01_jprb, 0.135869e+01_jprb, 0.137932e+01_jprb &
36046  &, 0.139967e+01_jprb, 0.141970e+01_jprb, 0.143941e+01_jprb, 0.145879e+01_jprb &
36047  &, 0.147783e+01_jprb, 0.149650e+01_jprb, 0.151480e+01_jprb &
36048  &, 0.153270e+01_jprb, 0.155023e+01_jprb, 0.156734e+01_jprb, 0.158403e+01_jprb &
36049  &, 0.160028e+01_jprb, 0.161609e+01_jprb, 0.163145e+01_jprb &
36050  &, 0.164634e+01_jprb, 0.166076e+01_jprb, 0.167470e+01_jprb, 0.168815e+01_jprb &
36051  &, 0.170109e+01_jprb, 0.171352e+01_jprb, 0.172544e+01_jprb &
36052  &, 0.173683e+01_jprb, 0.174769e+01_jprb, 0.175802e+01_jprb, 0.176780e+01_jprb &
36053  &, 0.177704e+01_jprb, 0.178572e+01_jprb, 0.179385e+01_jprb &
36054  &, 0.180142e+01_jprb, 0.180841e+01_jprb, 0.181486e+01_jprb, 0.182072e+01_jprb &
36055  &, 0.182602e+01_jprb, 0.183075e+01_jprb, 0.183491e+01_jprb &
36056  &, 0.183850e+01_jprb, 0.184149e+01_jprb, 0.184395e+01_jprb, 0.184583e+01_jprb &
36057  &, 0.184713e+01_jprb, 0.184782e+01_jprb, 0.184805e+01_jprb &
36058  &, 0.184768e+01_jprb, 0.184675e+01_jprb, 0.184526e+01_jprb, 0.184323e+01_jprb &
36059  &, 0.184065e+01_jprb, 0.183753e+01_jprb, 0.183390e+01_jprb &
36060  &, 0.182972e+01_jprb, 0.182502e+01_jprb, 0.181983e+01_jprb, 0.181411e+01_jprb &
36061  &, 0.180792e+01_jprb, 0.180122e+01_jprb, 0.179404e+01_jprb &
36062  &, 0.178638e+01_jprb, 0.177824e+01_jprb, 0.176966e+01_jprb, 0.176064e+01_jprb &
36063  &, 0.175116e+01_jprb, 0.174125e+01_jprb, 0.173093e+01_jprb &
36064  &, 0.172021e+01_jprb, 0.170907e+01_jprb, 0.169753e+01_jprb, 0.168563e+01_jprb &
36065  &, 0.167333e+01_jprb, 0.166068e+01_jprb, 0.164770e+01_jprb &
36066  &, 0.163437e+01_jprb, 0.162072e+01_jprb, 0.160673e+01_jprb, 0.159245e+01_jprb &
36067  &, 0.157785e+01_jprb, 0.156300e+01_jprb, 0.154788e+01_jprb &
36068  &, 0.153247e+01_jprb, 0.151682e+01_jprb, 0.150094e+01_jprb, 0.148482e+01_jprb &
36069  &, 0.146849e+01_jprb, 0.145198e+01_jprb, 0.143525e+01_jprb &
36070  &, 0.141833e+01_jprb, 0.140126e+01_jprb, 0.138402e+01_jprb, 0.136664e+01_jprb &
36071  &, 0.134912e+01_jprb, 0.133145e+01_jprb, 0.131370e+01_jprb &
36072  &, 0.129582e+01_jprb, 0.127788e+01_jprb, 0.125983e+01_jprb, 0.124174e+01_jprb &
36073  &, 0.122355e+01_jprb, 0.120534e+01_jprb, 0.118705e+01_jprb &
36074  &, 0.116875e+01_jprb, 0.115047e+01_jprb, 0.113212e+01_jprb, 0.111380e+01_jprb &
36075  &, 0.109550e+01_jprb, 0.107720e+01_jprb, 0.105892e+01_jprb &
36076  &, 0.104066e+01_jprb, 0.102248e+01_jprb, 0.100432e+01_jprb, 0.986245e+00_jprb &
36077  &, 0.968239e+00_jprb, 0.950276e+00_jprb, 0.932434e+00_jprb &
36078  &, 0.914688e+00_jprb, 0.897064e+00_jprb, 0.879477e+00_jprb, 0.862065e+00_jprb &
36079  &, 0.844741e+00_jprb, 0.827587e+00_jprb, 0.810511e+00_jprb &
36080  &, 0.793598e+00_jprb, 0.776811e+00_jprb, 0.760237e+00_jprb, 0.743776e+00_jprb &
36081  &, 0.727451e+00_jprb, 0.711349e+00_jprb, 0.695365e+00_jprb/)
36082 
36083 IF (lhook) CALL dr_hook('SU_MCICA:PART118',1,zhook_handle)
36084 END SUBROUTINE part118
36085 
36086 #ifdef VPP5000
36087 !OCL SCALAR
36088 #endif
36089 !option! -Nv -NO
36090 #ifdef RS6K
36091 @process nooptimize
36092 #endif
36093 !pgi$r opt=0
36094 SUBROUTINE part119
36095 
36096 REAL(KIND=JPRB) :: ZHOOK_HANDLE
36097 IF (lhook) CALL dr_hook('SU_MCICA:PART119',0,zhook_handle)
36098 
36099 xcw( 827, :) = (/ &
36100  & 0.109363e+01_jprb, 0.111681e+01_jprb, 0.113987e+01_jprb, 0.116279e+01_jprb &
36101  &, 0.118556e+01_jprb, 0.120817e+01_jprb, 0.123060e+01_jprb &
36102  &, 0.125283e+01_jprb, 0.127486e+01_jprb, 0.129667e+01_jprb, 0.131823e+01_jprb &
36103  &, 0.133955e+01_jprb, 0.136061e+01_jprb, 0.138138e+01_jprb &
36104  &, 0.140187e+01_jprb, 0.142205e+01_jprb, 0.144191e+01_jprb, 0.146144e+01_jprb &
36105  &, 0.148062e+01_jprb, 0.149945e+01_jprb, 0.151790e+01_jprb &
36106  &, 0.153597e+01_jprb, 0.155365e+01_jprb, 0.157092e+01_jprb, 0.158777e+01_jprb &
36107  &, 0.160418e+01_jprb, 0.162016e+01_jprb, 0.163568e+01_jprb &
36108  &, 0.165074e+01_jprb, 0.166533e+01_jprb, 0.167944e+01_jprb, 0.169305e+01_jprb &
36109  &, 0.170617e+01_jprb, 0.171877e+01_jprb, 0.173086e+01_jprb &
36110  &, 0.174242e+01_jprb, 0.175346e+01_jprb, 0.176396e+01_jprb, 0.177391e+01_jprb &
36111  &, 0.178332e+01_jprb, 0.179218e+01_jprb, 0.180048e+01_jprb &
36112  &, 0.180822e+01_jprb, 0.181540e+01_jprb, 0.182201e+01_jprb, 0.182805e+01_jprb &
36113  &, 0.183352e+01_jprb, 0.183841e+01_jprb, 0.184275e+01_jprb &
36114  &, 0.184650e+01_jprb, 0.184968e+01_jprb, 0.185230e+01_jprb, 0.185434e+01_jprb &
36115  &, 0.185581e+01_jprb, 0.185673e+01_jprb, 0.185706e+01_jprb &
36116  &, 0.185685e+01_jprb, 0.185609e+01_jprb, 0.185475e+01_jprb, 0.185287e+01_jprb &
36117  &, 0.185046e+01_jprb, 0.184750e+01_jprb, 0.184401e+01_jprb &
36118  &, 0.183999e+01_jprb, 0.183545e+01_jprb, 0.183039e+01_jprb, 0.182482e+01_jprb &
36119  &, 0.181875e+01_jprb, 0.181220e+01_jprb, 0.180515e+01_jprb &
36120  &, 0.179762e+01_jprb, 0.178963e+01_jprb, 0.178118e+01_jprb, 0.177227e+01_jprb &
36121  &, 0.176293e+01_jprb, 0.175315e+01_jprb, 0.174292e+01_jprb &
36122  &, 0.173230e+01_jprb, 0.172127e+01_jprb, 0.170986e+01_jprb, 0.169804e+01_jprb &
36123  &, 0.168585e+01_jprb, 0.167331e+01_jprb, 0.166040e+01_jprb &
36124  &, 0.164715e+01_jprb, 0.163357e+01_jprb, 0.161968e+01_jprb, 0.160547e+01_jprb &
36125  &, 0.159096e+01_jprb, 0.157616e+01_jprb, 0.156110e+01_jprb &
36126  &, 0.154577e+01_jprb, 0.153017e+01_jprb, 0.151433e+01_jprb, 0.149828e+01_jprb &
36127  &, 0.148198e+01_jprb, 0.146550e+01_jprb, 0.144879e+01_jprb &
36128  &, 0.143193e+01_jprb, 0.141487e+01_jprb, 0.139767e+01_jprb, 0.138030e+01_jprb &
36129  &, 0.136278e+01_jprb, 0.134514e+01_jprb, 0.132738e+01_jprb &
36130  &, 0.130952e+01_jprb, 0.129156e+01_jprb, 0.127352e+01_jprb, 0.125539e+01_jprb &
36131  &, 0.123721e+01_jprb, 0.121895e+01_jprb, 0.120065e+01_jprb &
36132  &, 0.118234e+01_jprb, 0.116401e+01_jprb, 0.114563e+01_jprb, 0.112728e+01_jprb &
36133  &, 0.110889e+01_jprb, 0.109055e+01_jprb, 0.107224e+01_jprb &
36134  &, 0.105392e+01_jprb, 0.103569e+01_jprb, 0.101746e+01_jprb, 0.999318e+00_jprb &
36135  &, 0.981237e+00_jprb, 0.963246e+00_jprb, 0.945318e+00_jprb &
36136  &, 0.927479e+00_jprb, 0.909700e+00_jprb, 0.892064e+00_jprb, 0.874540e+00_jprb &
36137  &, 0.857155e+00_jprb, 0.839876e+00_jprb, 0.822729e+00_jprb &
36138  &, 0.805678e+00_jprb, 0.788808e+00_jprb, 0.772083e+00_jprb, 0.755527e+00_jprb &
36139  &, 0.739102e+00_jprb, 0.722894e+00_jprb, 0.706799e+00_jprb/)
36140 xcw( 828, :) = (/ &
36141  & 0.109405e+01_jprb, 0.111734e+01_jprb, 0.114051e+01_jprb, 0.116355e+01_jprb &
36142  &, 0.118644e+01_jprb, 0.120917e+01_jprb, 0.123173e+01_jprb &
36143  &, 0.125409e+01_jprb, 0.127624e+01_jprb, 0.129818e+01_jprb, 0.131989e+01_jprb &
36144  &, 0.134134e+01_jprb, 0.136254e+01_jprb, 0.138345e+01_jprb &
36145  &, 0.140408e+01_jprb, 0.142441e+01_jprb, 0.144442e+01_jprb, 0.146410e+01_jprb &
36146  &, 0.148343e+01_jprb, 0.150241e+01_jprb, 0.152103e+01_jprb &
36147  &, 0.153925e+01_jprb, 0.155709e+01_jprb, 0.157452e+01_jprb, 0.159153e+01_jprb &
36148  &, 0.160811e+01_jprb, 0.162425e+01_jprb, 0.163994e+01_jprb &
36149  &, 0.165517e+01_jprb, 0.166992e+01_jprb, 0.168420e+01_jprb, 0.169798e+01_jprb &
36150  &, 0.171127e+01_jprb, 0.172405e+01_jprb, 0.173631e+01_jprb &
36151  &, 0.174805e+01_jprb, 0.175925e+01_jprb, 0.176993e+01_jprb, 0.178006e+01_jprb &
36152  &, 0.178964e+01_jprb, 0.179867e+01_jprb, 0.180715e+01_jprb &
36153  &, 0.181507e+01_jprb, 0.182242e+01_jprb, 0.182920e+01_jprb, 0.183542e+01_jprb &
36154  &, 0.184106e+01_jprb, 0.184614e+01_jprb, 0.185064e+01_jprb &
36155  &, 0.185457e+01_jprb, 0.185792e+01_jprb, 0.186071e+01_jprb, 0.186292e+01_jprb &
36156  &, 0.186455e+01_jprb, 0.186563e+01_jprb, 0.186615e+01_jprb &
36157  &, 0.186609e+01_jprb, 0.186546e+01_jprb, 0.186432e+01_jprb, 0.186260e+01_jprb &
36158  &, 0.186034e+01_jprb, 0.185753e+01_jprb, 0.185420e+01_jprb &
36159  &, 0.185033e+01_jprb, 0.184595e+01_jprb, 0.184102e+01_jprb, 0.183561e+01_jprb &
36160  &, 0.182969e+01_jprb, 0.182326e+01_jprb, 0.181637e+01_jprb &
36161  &, 0.180897e+01_jprb, 0.180111e+01_jprb, 0.179279e+01_jprb, 0.178400e+01_jprb &
36162  &, 0.177477e+01_jprb, 0.176511e+01_jprb, 0.175501e+01_jprb &
36163  &, 0.174451e+01_jprb, 0.173358e+01_jprb, 0.172228e+01_jprb, 0.171055e+01_jprb &
36164  &, 0.169847e+01_jprb, 0.168602e+01_jprb, 0.167322e+01_jprb &
36165  &, 0.166004e+01_jprb, 0.164657e+01_jprb, 0.163275e+01_jprb, 0.161860e+01_jprb &
36166  &, 0.160419e+01_jprb, 0.158945e+01_jprb, 0.157444e+01_jprb &
36167  &, 0.155894e+01_jprb, 0.154364e+01_jprb, 0.152788e+01_jprb, 0.151183e+01_jprb &
36168  &, 0.149560e+01_jprb, 0.147915e+01_jprb, 0.146251e+01_jprb &
36169  &, 0.144567e+01_jprb, 0.142862e+01_jprb, 0.141144e+01_jprb, 0.139411e+01_jprb &
36170  &, 0.137659e+01_jprb, 0.135899e+01_jprb, 0.134122e+01_jprb &
36171  &, 0.132338e+01_jprb, 0.130540e+01_jprb, 0.128734e+01_jprb, 0.126922e+01_jprb &
36172  &, 0.125100e+01_jprb, 0.123274e+01_jprb, 0.121444e+01_jprb &
36173  &, 0.119607e+01_jprb, 0.117772e+01_jprb, 0.115932e+01_jprb, 0.114090e+01_jprb &
36174  &, 0.112248e+01_jprb, 0.110411e+01_jprb, 0.108570e+01_jprb &
36175  &, 0.106733e+01_jprb, 0.104904e+01_jprb, 0.103076e+01_jprb, 0.101255e+01_jprb &
36176  &, 0.994393e+00_jprb, 0.976324e+00_jprb, 0.958310e+00_jprb &
36177  &, 0.940380e+00_jprb, 0.922560e+00_jprb, 0.904877e+00_jprb, 0.887244e+00_jprb &
36178  &, 0.869744e+00_jprb, 0.852343e+00_jprb, 0.835126e+00_jprb &
36179  &, 0.818001e+00_jprb, 0.800990e+00_jprb, 0.784179e+00_jprb, 0.767468e+00_jprb &
36180  &, 0.750945e+00_jprb, 0.734569e+00_jprb, 0.718430e+00_jprb/)
36181 xcw( 829, :) = (/ &
36182  & 0.109447e+01_jprb, 0.111787e+01_jprb, 0.114116e+01_jprb, 0.116431e+01_jprb &
36183  &, 0.118732e+01_jprb, 0.121018e+01_jprb, 0.123286e+01_jprb &
36184  &, 0.125535e+01_jprb, 0.127763e+01_jprb, 0.129970e+01_jprb, 0.132154e+01_jprb &
36185  &, 0.134314e+01_jprb, 0.136447e+01_jprb, 0.138553e+01_jprb &
36186  &, 0.140631e+01_jprb, 0.142678e+01_jprb, 0.144694e+01_jprb, 0.146677e+01_jprb &
36187  &, 0.148626e+01_jprb, 0.150539e+01_jprb, 0.152416e+01_jprb &
36188  &, 0.154255e+01_jprb, 0.156054e+01_jprb, 0.157814e+01_jprb, 0.159531e+01_jprb &
36189  &, 0.161206e+01_jprb, 0.162836e+01_jprb, 0.164422e+01_jprb &
36190  &, 0.165962e+01_jprb, 0.167454e+01_jprb, 0.168899e+01_jprb, 0.170295e+01_jprb &
36191  &, 0.171640e+01_jprb, 0.172935e+01_jprb, 0.174179e+01_jprb &
36192  &, 0.175370e+01_jprb, 0.176509e+01_jprb, 0.177593e+01_jprb, 0.178624e+01_jprb &
36193  &, 0.179601e+01_jprb, 0.180522e+01_jprb, 0.181387e+01_jprb &
36194  &, 0.182196e+01_jprb, 0.182948e+01_jprb, 0.183645e+01_jprb, 0.184284e+01_jprb &
36195  &, 0.184866e+01_jprb, 0.185390e+01_jprb, 0.185858e+01_jprb &
36196  &, 0.186269e+01_jprb, 0.186621e+01_jprb, 0.186917e+01_jprb, 0.187155e+01_jprb &
36197  &, 0.187335e+01_jprb, 0.187460e+01_jprb, 0.187528e+01_jprb &
36198  &, 0.187540e+01_jprb, 0.187496e+01_jprb, 0.187394e+01_jprb, 0.187239e+01_jprb &
36199  &, 0.187029e+01_jprb, 0.186765e+01_jprb, 0.186446e+01_jprb &
36200  &, 0.186075e+01_jprb, 0.185650e+01_jprb, 0.185175e+01_jprb, 0.184648e+01_jprb &
36201  &, 0.184070e+01_jprb, 0.183442e+01_jprb, 0.182764e+01_jprb &
36202  &, 0.182040e+01_jprb, 0.181267e+01_jprb, 0.180448e+01_jprb, 0.179583e+01_jprb &
36203  &, 0.178672e+01_jprb, 0.177717e+01_jprb, 0.176719e+01_jprb &
36204  &, 0.175681e+01_jprb, 0.174601e+01_jprb, 0.173477e+01_jprb, 0.172319e+01_jprb &
36205  &, 0.171120e+01_jprb, 0.169886e+01_jprb, 0.168614e+01_jprb &
36206  &, 0.167307e+01_jprb, 0.165965e+01_jprb, 0.164593e+01_jprb, 0.163188e+01_jprb &
36207  &, 0.161750e+01_jprb, 0.160286e+01_jprb, 0.158794e+01_jprb &
36208  &, 0.157271e+01_jprb, 0.155724e+01_jprb, 0.154153e+01_jprb, 0.152556e+01_jprb &
36209  &, 0.150936e+01_jprb, 0.149294e+01_jprb, 0.147633e+01_jprb &
36210  &, 0.145951e+01_jprb, 0.144252e+01_jprb, 0.142539e+01_jprb, 0.140803e+01_jprb &
36211  &, 0.139055e+01_jprb, 0.137295e+01_jprb, 0.135521e+01_jprb &
36212  &, 0.133737e+01_jprb, 0.131940e+01_jprb, 0.130132e+01_jprb, 0.128321e+01_jprb &
36213  &, 0.126496e+01_jprb, 0.124670e+01_jprb, 0.122836e+01_jprb &
36214  &, 0.120998e+01_jprb, 0.119157e+01_jprb, 0.117315e+01_jprb, 0.115471e+01_jprb &
36215  &, 0.113627e+01_jprb, 0.111780e+01_jprb, 0.109935e+01_jprb &
36216  &, 0.108094e+01_jprb, 0.106260e+01_jprb, 0.104426e+01_jprb, 0.102598e+01_jprb &
36217  &, 0.100776e+01_jprb, 0.989616e+00_jprb, 0.971521e+00_jprb &
36218  &, 0.953502e+00_jprb, 0.935588e+00_jprb, 0.917804e+00_jprb, 0.900121e+00_jprb &
36219  &, 0.882507e+00_jprb, 0.865046e+00_jprb, 0.847644e+00_jprb &
36220  &, 0.830445e+00_jprb, 0.813356e+00_jprb, 0.796399e+00_jprb, 0.779599e+00_jprb &
36221  &, 0.762981e+00_jprb, 0.746504e+00_jprb, 0.730192e+00_jprb/)
36222 xcw( 830, :) = (/ &
36223  & 0.109488e+01_jprb, 0.111840e+01_jprb, 0.114180e+01_jprb, 0.116508e+01_jprb &
36224  &, 0.118821e+01_jprb, 0.121119e+01_jprb, 0.123399e+01_jprb &
36225  &, 0.125661e+01_jprb, 0.127903e+01_jprb, 0.130123e+01_jprb, 0.132321e+01_jprb &
36226  &, 0.134494e+01_jprb, 0.136642e+01_jprb, 0.138762e+01_jprb &
36227  &, 0.140854e+01_jprb, 0.142916e+01_jprb, 0.144947e+01_jprb, 0.146946e+01_jprb &
36228  &, 0.148910e+01_jprb, 0.150839e+01_jprb, 0.152731e+01_jprb &
36229  &, 0.154586e+01_jprb, 0.156402e+01_jprb, 0.158177e+01_jprb, 0.159911e+01_jprb &
36230  &, 0.161602e+01_jprb, 0.163250e+01_jprb, 0.164852e+01_jprb &
36231  &, 0.166409e+01_jprb, 0.167919e+01_jprb, 0.169380e+01_jprb, 0.170793e+01_jprb &
36232  &, 0.172156e+01_jprb, 0.173468e+01_jprb, 0.174730e+01_jprb &
36233  &, 0.175939e+01_jprb, 0.177095e+01_jprb, 0.178198e+01_jprb, 0.179247e+01_jprb &
36234  &, 0.180240e+01_jprb, 0.181179e+01_jprb, 0.182062e+01_jprb &
36235  &, 0.182889e+01_jprb, 0.183659e+01_jprb, 0.184373e+01_jprb, 0.185030e+01_jprb &
36236  &, 0.185630e+01_jprb, 0.186173e+01_jprb, 0.186638e+01_jprb &
36237  &, 0.187085e+01_jprb, 0.187455e+01_jprb, 0.187766e+01_jprb, 0.188024e+01_jprb &
36238  &, 0.188223e+01_jprb, 0.188364e+01_jprb, 0.188449e+01_jprb &
36239  &, 0.188476e+01_jprb, 0.188449e+01_jprb, 0.188364e+01_jprb, 0.188225e+01_jprb &
36240  &, 0.188032e+01_jprb, 0.187782e+01_jprb, 0.187481e+01_jprb &
36241  &, 0.187125e+01_jprb, 0.186717e+01_jprb, 0.186254e+01_jprb, 0.185743e+01_jprb &
36242  &, 0.185180e+01_jprb, 0.184566e+01_jprb, 0.183902e+01_jprb &
36243  &, 0.183191e+01_jprb, 0.182432e+01_jprb, 0.181627e+01_jprb, 0.180774e+01_jprb &
36244  &, 0.179877e+01_jprb, 0.178934e+01_jprb, 0.177949e+01_jprb &
36245  &, 0.176922e+01_jprb, 0.175851e+01_jprb, 0.174742e+01_jprb, 0.173593e+01_jprb &
36246  &, 0.172404e+01_jprb, 0.171179e+01_jprb, 0.169918e+01_jprb &
36247  &, 0.168619e+01_jprb, 0.167287e+01_jprb, 0.165923e+01_jprb, 0.164525e+01_jprb &
36248  &, 0.163097e+01_jprb, 0.161639e+01_jprb, 0.160153e+01_jprb &
36249  &, 0.158639e+01_jprb, 0.157098e+01_jprb, 0.155531e+01_jprb, 0.153941e+01_jprb &
36250  &, 0.152326e+01_jprb, 0.150688e+01_jprb, 0.149033e+01_jprb &
36251  &, 0.147353e+01_jprb, 0.145656e+01_jprb, 0.143945e+01_jprb, 0.142214e+01_jprb &
36252  &, 0.140467e+01_jprb, 0.138710e+01_jprb, 0.136936e+01_jprb &
36253  &, 0.135151e+01_jprb, 0.133353e+01_jprb, 0.131546e+01_jprb, 0.129733e+01_jprb &
36254  &, 0.127909e+01_jprb, 0.126080e+01_jprb, 0.124245e+01_jprb &
36255  &, 0.122403e+01_jprb, 0.120561e+01_jprb, 0.118713e+01_jprb, 0.116866e+01_jprb &
36256  &, 0.115019e+01_jprb, 0.113170e+01_jprb, 0.111321e+01_jprb &
36257  &, 0.109475e+01_jprb, 0.107631e+01_jprb, 0.105791e+01_jprb, 0.103958e+01_jprb &
36258  &, 0.102129e+01_jprb, 0.100307e+01_jprb, 0.984894e+00_jprb &
36259  &, 0.966845e+00_jprb, 0.948839e+00_jprb, 0.930957e+00_jprb, 0.913113e+00_jprb &
36260  &, 0.895446e+00_jprb, 0.877867e+00_jprb, 0.860400e+00_jprb &
36261  &, 0.843072e+00_jprb, 0.825907e+00_jprb, 0.808869e+00_jprb, 0.791983e+00_jprb &
36262  &, 0.775208e+00_jprb, 0.758633e+00_jprb, 0.742151e+00_jprb/)
36263 xcw( 831, :) = (/ &
36264  & 0.109531e+01_jprb, 0.111893e+01_jprb, 0.114245e+01_jprb, 0.116584e+01_jprb &
36265  &, 0.118910e+01_jprb, 0.121220e+01_jprb, 0.123513e+01_jprb &
36266  &, 0.125788e+01_jprb, 0.128043e+01_jprb, 0.130277e+01_jprb, 0.132488e+01_jprb &
36267  &, 0.134676e+01_jprb, 0.136837e+01_jprb, 0.138972e+01_jprb &
36268  &, 0.141079e+01_jprb, 0.143156e+01_jprb, 0.145202e+01_jprb, 0.147215e+01_jprb &
36269  &, 0.149195e+01_jprb, 0.151140e+01_jprb, 0.153048e+01_jprb &
36270  &, 0.154919e+01_jprb, 0.156751e+01_jprb, 0.158543e+01_jprb, 0.160293e+01_jprb &
36271  &, 0.162001e+01_jprb, 0.163665e+01_jprb, 0.165285e+01_jprb &
36272  &, 0.166859e+01_jprb, 0.168385e+01_jprb, 0.169865e+01_jprb, 0.171295e+01_jprb &
36273  &, 0.172676e+01_jprb, 0.174006e+01_jprb, 0.175285e+01_jprb &
36274  &, 0.176511e+01_jprb, 0.177685e+01_jprb, 0.178806e+01_jprb, 0.179872e+01_jprb &
36275  &, 0.180883e+01_jprb, 0.181840e+01_jprb, 0.182742e+01_jprb &
36276  &, 0.183586e+01_jprb, 0.184375e+01_jprb, 0.185106e+01_jprb, 0.185781e+01_jprb &
36277  &, 0.186399e+01_jprb, 0.186959e+01_jprb, 0.187462e+01_jprb &
36278  &, 0.187907e+01_jprb, 0.188295e+01_jprb, 0.188604e+01_jprb, 0.188899e+01_jprb &
36279  &, 0.189114e+01_jprb, 0.189272e+01_jprb, 0.189375e+01_jprb &
36280  &, 0.189420e+01_jprb, 0.189408e+01_jprb, 0.189341e+01_jprb, 0.189219e+01_jprb &
36281  &, 0.189041e+01_jprb, 0.188808e+01_jprb, 0.188523e+01_jprb &
36282  &, 0.188182e+01_jprb, 0.187789e+01_jprb, 0.187342e+01_jprb, 0.186845e+01_jprb &
36283  &, 0.186296e+01_jprb, 0.185698e+01_jprb, 0.185050e+01_jprb &
36284  &, 0.184353e+01_jprb, 0.183606e+01_jprb, 0.182814e+01_jprb, 0.181974e+01_jprb &
36285  &, 0.181090e+01_jprb, 0.180161e+01_jprb, 0.179187e+01_jprb &
36286  &, 0.178172e+01_jprb, 0.177114e+01_jprb, 0.176015e+01_jprb, 0.174878e+01_jprb &
36287  &, 0.173700e+01_jprb, 0.172484e+01_jprb, 0.171232e+01_jprb &
36288  &, 0.169945e+01_jprb, 0.168621e+01_jprb, 0.167267e+01_jprb, 0.165877e+01_jprb &
36289  &, 0.164456e+01_jprb, 0.163007e+01_jprb, 0.161528e+01_jprb &
36290  &, 0.160020e+01_jprb, 0.158484e+01_jprb, 0.156925e+01_jprb, 0.155337e+01_jprb &
36291  &, 0.153729e+01_jprb, 0.152098e+01_jprb, 0.150443e+01_jprb &
36292  &, 0.148770e+01_jprb, 0.147072e+01_jprb, 0.145366e+01_jprb, 0.143640e+01_jprb &
36293  &, 0.141894e+01_jprb, 0.140138e+01_jprb, 0.138363e+01_jprb &
36294  &, 0.136581e+01_jprb, 0.134786e+01_jprb, 0.132978e+01_jprb, 0.131162e+01_jprb &
36295  &, 0.129339e+01_jprb, 0.127507e+01_jprb, 0.125672e+01_jprb &
36296  &, 0.123830e+01_jprb, 0.121982e+01_jprb, 0.120133e+01_jprb, 0.118280e+01_jprb &
36297  &, 0.116426e+01_jprb, 0.114573e+01_jprb, 0.112721e+01_jprb &
36298  &, 0.110871e+01_jprb, 0.109023e+01_jprb, 0.107177e+01_jprb, 0.105338e+01_jprb &
36299  &, 0.103497e+01_jprb, 0.101668e+01_jprb, 0.998484e+00_jprb &
36300  &, 0.980298e+00_jprb, 0.962258e+00_jprb, 0.944281e+00_jprb, 0.926392e+00_jprb &
36301  &, 0.908617e+00_jprb, 0.890924e+00_jprb, 0.873397e+00_jprb &
36302  &, 0.855941e+00_jprb, 0.838642e+00_jprb, 0.821027e+00_jprb, 0.804493e+00_jprb &
36303  &, 0.787628e+00_jprb, 0.770892e+00_jprb, 0.754374e+00_jprb/)
36304 xcw( 832, :) = (/ &
36305  & 0.109573e+01_jprb, 0.111947e+01_jprb, 0.114310e+01_jprb, 0.116661e+01_jprb &
36306  &, 0.118999e+01_jprb, 0.121322e+01_jprb, 0.123628e+01_jprb &
36307  &, 0.125915e+01_jprb, 0.128184e+01_jprb, 0.130431e+01_jprb, 0.132656e+01_jprb &
36308  &, 0.134858e+01_jprb, 0.137034e+01_jprb, 0.139183e+01_jprb &
36309  &, 0.141305e+01_jprb, 0.143397e+01_jprb, 0.145458e+01_jprb, 0.147487e+01_jprb &
36310  &, 0.149482e+01_jprb, 0.151442e+01_jprb, 0.153367e+01_jprb &
36311  &, 0.155254e+01_jprb, 0.157102e+01_jprb, 0.158910e+01_jprb, 0.160677e+01_jprb &
36312  &, 0.162402e+01_jprb, 0.164083e+01_jprb, 0.165720e+01_jprb &
36313  &, 0.167311e+01_jprb, 0.168855e+01_jprb, 0.170352e+01_jprb, 0.171800e+01_jprb &
36314  &, 0.173198e+01_jprb, 0.174546e+01_jprb, 0.175842e+01_jprb &
36315  &, 0.177087e+01_jprb, 0.178279e+01_jprb, 0.179417e+01_jprb, 0.180502e+01_jprb &
36316  &, 0.181531e+01_jprb, 0.182506e+01_jprb, 0.183425e+01_jprb &
36317  &, 0.184288e+01_jprb, 0.185095e+01_jprb, 0.185844e+01_jprb, 0.186537e+01_jprb &
36318  &, 0.187173e+01_jprb, 0.187751e+01_jprb, 0.188272e+01_jprb &
36319  &, 0.188735e+01_jprb, 0.189140e+01_jprb, 0.189489e+01_jprb, 0.189780e+01_jprb &
36320  &, 0.190013e+01_jprb, 0.190188e+01_jprb, 0.190308e+01_jprb &
36321  &, 0.190370e+01_jprb, 0.190376e+01_jprb, 0.190326e+01_jprb, 0.190220e+01_jprb &
36322  &, 0.190058e+01_jprb, 0.189841e+01_jprb, 0.189572e+01_jprb &
36323  &, 0.189247e+01_jprb, 0.188870e+01_jprb, 0.188440e+01_jprb, 0.187957e+01_jprb &
36324  &, 0.187425e+01_jprb, 0.186839e+01_jprb, 0.186206e+01_jprb &
36325  &, 0.185522e+01_jprb, 0.184790e+01_jprb, 0.184012e+01_jprb, 0.183186e+01_jprb &
36326  &, 0.182313e+01_jprb, 0.181397e+01_jprb, 0.180436e+01_jprb &
36327  &, 0.179434e+01_jprb, 0.178386e+01_jprb, 0.177300e+01_jprb, 0.176173e+01_jprb &
36328  &, 0.175007e+01_jprb, 0.173801e+01_jprb, 0.172560e+01_jprb &
36329  &, 0.171281e+01_jprb, 0.169969e+01_jprb, 0.168620e+01_jprb, 0.167240e+01_jprb &
36330  &, 0.165830e+01_jprb, 0.164385e+01_jprb, 0.162915e+01_jprb &
36331  &, 0.161413e+01_jprb, 0.159886e+01_jprb, 0.158329e+01_jprb, 0.156749e+01_jprb &
36332  &, 0.155146e+01_jprb, 0.153519e+01_jprb, 0.151871e+01_jprb &
36333  &, 0.150201e+01_jprb, 0.148513e+01_jprb, 0.146805e+01_jprb, 0.145077e+01_jprb &
36334  &, 0.143336e+01_jprb, 0.141580e+01_jprb, 0.139810e+01_jprb &
36335  &, 0.138027e+01_jprb, 0.136232e+01_jprb, 0.134426e+01_jprb, 0.132608e+01_jprb &
36336  &, 0.130782e+01_jprb, 0.128951e+01_jprb, 0.127112e+01_jprb &
36337  &, 0.125270e+01_jprb, 0.123418e+01_jprb, 0.121567e+01_jprb, 0.119712e+01_jprb &
36338  &, 0.117856e+01_jprb, 0.115996e+01_jprb, 0.114141e+01_jprb &
36339  &, 0.112282e+01_jprb, 0.110429e+01_jprb, 0.108579e+01_jprb, 0.106734e+01_jprb &
36340  &, 0.104871e+01_jprb, 0.103051e+01_jprb, 0.101224e+01_jprb &
36341  &, 0.993971e+00_jprb, 0.975844e+00_jprb, 0.957774e+00_jprb, 0.939786e+00_jprb &
36342  &, 0.921905e+00_jprb, 0.904159e+00_jprb, 0.886513e+00_jprb &
36343  &, 0.868993e+00_jprb, 0.851562e+00_jprb, 0.834308e+00_jprb, 0.817192e+00_jprb &
36344  &, 0.800239e+00_jprb, 0.783410e+00_jprb, 0.766728e+00_jprb/)
36345 xcw( 833, :) = (/ &
36346  & 0.109615e+01_jprb, 0.112001e+01_jprb, 0.114376e+01_jprb, 0.116739e+01_jprb &
36347  &, 0.119089e+01_jprb, 0.121424e+01_jprb, 0.123743e+01_jprb &
36348  &, 0.126044e+01_jprb, 0.128325e+01_jprb, 0.130586e+01_jprb, 0.132825e+01_jprb &
36349  &, 0.135041e+01_jprb, 0.137231e+01_jprb, 0.139395e+01_jprb &
36350  &, 0.141531e+01_jprb, 0.143638e+01_jprb, 0.145715e+01_jprb, 0.147759e+01_jprb &
36351  &, 0.149770e+01_jprb, 0.151747e+01_jprb, 0.153687e+01_jprb &
36352  &, 0.155590e+01_jprb, 0.157455e+01_jprb, 0.159280e+01_jprb, 0.161063e+01_jprb &
36353  &, 0.162805e+01_jprb, 0.164503e+01_jprb, 0.166157e+01_jprb &
36354  &, 0.167765e+01_jprb, 0.169327e+01_jprb, 0.170841e+01_jprb, 0.172307e+01_jprb &
36355  &, 0.173722e+01_jprb, 0.175088e+01_jprb, 0.176403e+01_jprb &
36356  &, 0.177666e+01_jprb, 0.178876e+01_jprb, 0.180032e+01_jprb, 0.181135e+01_jprb &
36357  &, 0.182183e+01_jprb, 0.183176e+01_jprb, 0.184112e+01_jprb &
36358  &, 0.184994e+01_jprb, 0.185819e+01_jprb, 0.186587e+01_jprb, 0.187298e+01_jprb &
36359  &, 0.187952e+01_jprb, 0.188549e+01_jprb, 0.189088e+01_jprb &
36360  &, 0.189568e+01_jprb, 0.189992e+01_jprb, 0.190358e+01_jprb, 0.190666e+01_jprb &
36361  &, 0.190916e+01_jprb, 0.191111e+01_jprb, 0.191247e+01_jprb &
36362  &, 0.191326e+01_jprb, 0.191349e+01_jprb, 0.191316e+01_jprb, 0.191227e+01_jprb &
36363  &, 0.191083e+01_jprb, 0.190883e+01_jprb, 0.190628e+01_jprb &
36364  &, 0.190319e+01_jprb, 0.189959e+01_jprb, 0.189543e+01_jprb, 0.189077e+01_jprb &
36365  &, 0.188559e+01_jprb, 0.187989e+01_jprb, 0.187371e+01_jprb &
36366  &, 0.186703e+01_jprb, 0.185985e+01_jprb, 0.185218e+01_jprb, 0.184407e+01_jprb &
36367  &, 0.183548e+01_jprb, 0.182645e+01_jprb, 0.181697e+01_jprb &
36368  &, 0.180706e+01_jprb, 0.179671e+01_jprb, 0.178596e+01_jprb, 0.177481e+01_jprb &
36369  &, 0.176325e+01_jprb, 0.175130e+01_jprb, 0.173899e+01_jprb &
36370  &, 0.172629e+01_jprb, 0.171317e+01_jprb, 0.169987e+01_jprb, 0.168618e+01_jprb &
36371  &, 0.167212e+01_jprb, 0.165778e+01_jprb, 0.164314e+01_jprb &
36372  &, 0.162819e+01_jprb, 0.161298e+01_jprb, 0.159750e+01_jprb, 0.158175e+01_jprb &
36373  &, 0.156577e+01_jprb, 0.154954e+01_jprb, 0.153313e+01_jprb &
36374  &, 0.151646e+01_jprb, 0.149961e+01_jprb, 0.148255e+01_jprb, 0.146533e+01_jprb &
36375  &, 0.144793e+01_jprb, 0.143039e+01_jprb, 0.141273e+01_jprb &
36376  &, 0.139490e+01_jprb, 0.137693e+01_jprb, 0.135890e+01_jprb, 0.134071e+01_jprb &
36377  &, 0.132247e+01_jprb, 0.130412e+01_jprb, 0.128575e+01_jprb &
36378  &, 0.126728e+01_jprb, 0.124876e+01_jprb, 0.123020e+01_jprb, 0.121159e+01_jprb &
36379  &, 0.119301e+01_jprb, 0.117439e+01_jprb, 0.115575e+01_jprb &
36380  &, 0.113718e+01_jprb, 0.111856e+01_jprb, 0.110001e+01_jprb, 0.108145e+01_jprb &
36381  &, 0.106298e+01_jprb, 0.104455e+01_jprb, 0.102615e+01_jprb &
36382  &, 0.100786e+01_jprb, 0.989599e+00_jprb, 0.971495e+00_jprb, 0.953410e+00_jprb &
36383  &, 0.935427e+00_jprb, 0.917570e+00_jprb, 0.899868e+00_jprb &
36384  &, 0.882226e+00_jprb, 0.864729e+00_jprb, 0.847339e+00_jprb, 0.830081e+00_jprb &
36385  &, 0.813043e+00_jprb, 0.796058e+00_jprb, 0.779278e+00_jprb/)
36386 
36387 IF (lhook) CALL dr_hook('SU_MCICA:PART119',1,zhook_handle)
36388 END SUBROUTINE part119
36389 
36390 #ifdef VPP5000
36391 !OCL SCALAR
36392 #endif
36393 !option! -Nv -NO
36394 #ifdef RS6K
36395 @process nooptimize
36396 #endif
36397 !pgi$r opt=0
36398 SUBROUTINE part120
36399 
36400 REAL(KIND=JPRB) :: ZHOOK_HANDLE
36401 IF (lhook) CALL dr_hook('SU_MCICA:PART120',0,zhook_handle)
36402 
36403 xcw( 834, :) = (/ &
36404  & 0.109658e+01_jprb, 0.112055e+01_jprb, 0.114442e+01_jprb, 0.116817e+01_jprb &
36405  &, 0.119179e+01_jprb, 0.121526e+01_jprb, 0.123858e+01_jprb &
36406  &, 0.126172e+01_jprb, 0.128467e+01_jprb, 0.130742e+01_jprb, 0.132995e+01_jprb &
36407  &, 0.135225e+01_jprb, 0.137429e+01_jprb, 0.139608e+01_jprb &
36408  &, 0.141759e+01_jprb, 0.143881e+01_jprb, 0.145973e+01_jprb, 0.148033e+01_jprb &
36409  &, 0.150060e+01_jprb, 0.152052e+01_jprb, 0.154009e+01_jprb &
36410  &, 0.155928e+01_jprb, 0.157810e+01_jprb, 0.159651e+01_jprb, 0.161452e+01_jprb &
36411  &, 0.163210e+01_jprb, 0.164926e+01_jprb, 0.166597e+01_jprb &
36412  &, 0.168223e+01_jprb, 0.169802e+01_jprb, 0.171334e+01_jprb, 0.172817e+01_jprb &
36413  &, 0.174251e+01_jprb, 0.175635e+01_jprb, 0.176968e+01_jprb &
36414  &, 0.178248e+01_jprb, 0.179477e+01_jprb, 0.180651e+01_jprb, 0.181772e+01_jprb &
36415  &, 0.182838e+01_jprb, 0.183850e+01_jprb, 0.184805e+01_jprb &
36416  &, 0.185704e+01_jprb, 0.186548e+01_jprb, 0.187334e+01_jprb, 0.188064e+01_jprb &
36417  &, 0.188736e+01_jprb, 0.189350e+01_jprb, 0.189907e+01_jprb &
36418  &, 0.190408e+01_jprb, 0.190848e+01_jprb, 0.191233e+01_jprb, 0.191558e+01_jprb &
36419  &, 0.191828e+01_jprb, 0.192039e+01_jprb, 0.192193e+01_jprb &
36420  &, 0.192290e+01_jprb, 0.192331e+01_jprb, 0.192313e+01_jprb, 0.192241e+01_jprb &
36421  &, 0.192113e+01_jprb, 0.191931e+01_jprb, 0.191693e+01_jprb &
36422  &, 0.191401e+01_jprb, 0.191055e+01_jprb, 0.190658e+01_jprb, 0.190206e+01_jprb &
36423  &, 0.189703e+01_jprb, 0.189149e+01_jprb, 0.188544e+01_jprb &
36424  &, 0.187890e+01_jprb, 0.187187e+01_jprb, 0.186436e+01_jprb, 0.185639e+01_jprb &
36425  &, 0.184793e+01_jprb, 0.183902e+01_jprb, 0.182968e+01_jprb &
36426  &, 0.181988e+01_jprb, 0.180966e+01_jprb, 0.179903e+01_jprb, 0.178799e+01_jprb &
36427  &, 0.177653e+01_jprb, 0.176471e+01_jprb, 0.175249e+01_jprb &
36428  &, 0.173991e+01_jprb, 0.172698e+01_jprb, 0.171369e+01_jprb, 0.170005e+01_jprb &
36429  &, 0.168610e+01_jprb, 0.167186e+01_jprb, 0.165726e+01_jprb &
36430  &, 0.164241e+01_jprb, 0.162726e+01_jprb, 0.161184e+01_jprb, 0.159614e+01_jprb &
36431  &, 0.158024e+01_jprb, 0.156406e+01_jprb, 0.154765e+01_jprb &
36432  &, 0.153106e+01_jprb, 0.151424e+01_jprb, 0.149724e+01_jprb, 0.148004e+01_jprb &
36433  &, 0.146270e+01_jprb, 0.144517e+01_jprb, 0.142747e+01_jprb &
36434  &, 0.140968e+01_jprb, 0.139171e+01_jprb, 0.137367e+01_jprb, 0.135550e+01_jprb &
36435  &, 0.133724e+01_jprb, 0.131891e+01_jprb, 0.130051e+01_jprb &
36436  &, 0.128200e+01_jprb, 0.126348e+01_jprb, 0.124491e+01_jprb, 0.122629e+01_jprb &
36437  &, 0.120765e+01_jprb, 0.118900e+01_jprb, 0.117034e+01_jprb &
36438  &, 0.115169e+01_jprb, 0.113303e+01_jprb, 0.111438e+01_jprb, 0.109583e+01_jprb &
36439  &, 0.107724e+01_jprb, 0.105876e+01_jprb, 0.104029e+01_jprb &
36440  &, 0.102192e+01_jprb, 0.100358e+01_jprb, 0.985385e+00_jprb, 0.967207e+00_jprb &
36441  &, 0.949181e+00_jprb, 0.931219e+00_jprb, 0.913404e+00_jprb &
36442  &, 0.895642e+00_jprb, 0.878018e+00_jprb, 0.860557e+00_jprb, 0.843222e+00_jprb &
36443  &, 0.826039e+00_jprb, 0.808966e+00_jprb, 0.792026e+00_jprb/)
36444 xcw( 835, :) = (/ &
36445  & 0.109701e+01_jprb, 0.112109e+01_jprb, 0.114508e+01_jprb, 0.116895e+01_jprb &
36446  &, 0.119269e+01_jprb, 0.121630e+01_jprb, 0.123974e+01_jprb &
36447  &, 0.126301e+01_jprb, 0.128610e+01_jprb, 0.130899e+01_jprb, 0.133166e+01_jprb &
36448  &, 0.135409e+01_jprb, 0.137629e+01_jprb, 0.139822e+01_jprb &
36449  &, 0.141988e+01_jprb, 0.144126e+01_jprb, 0.146233e+01_jprb, 0.148308e+01_jprb &
36450  &, 0.150351e+01_jprb, 0.152360e+01_jprb, 0.154332e+01_jprb &
36451  &, 0.156268e+01_jprb, 0.158166e+01_jprb, 0.160025e+01_jprb, 0.161842e+01_jprb &
36452  &, 0.163618e+01_jprb, 0.165351e+01_jprb, 0.167039e+01_jprb &
36453  &, 0.168683e+01_jprb, 0.170279e+01_jprb, 0.171829e+01_jprb, 0.173331e+01_jprb &
36454  &, 0.174783e+01_jprb, 0.176184e+01_jprb, 0.177535e+01_jprb &
36455  &, 0.178834e+01_jprb, 0.180080e+01_jprb, 0.181274e+01_jprb, 0.182413e+01_jprb &
36456  &, 0.183498e+01_jprb, 0.184527e+01_jprb, 0.185502e+01_jprb &
36457  &, 0.186420e+01_jprb, 0.187281e+01_jprb, 0.188087e+01_jprb, 0.188835e+01_jprb &
36458  &, 0.189525e+01_jprb, 0.190159e+01_jprb, 0.190733e+01_jprb &
36459  &, 0.191251e+01_jprb, 0.191711e+01_jprb, 0.192114e+01_jprb, 0.192457e+01_jprb &
36460  &, 0.192745e+01_jprb, 0.192974e+01_jprb, 0.193146e+01_jprb &
36461  &, 0.193260e+01_jprb, 0.193317e+01_jprb, 0.193319e+01_jprb, 0.193264e+01_jprb &
36462  &, 0.193154e+01_jprb, 0.192987e+01_jprb, 0.192767e+01_jprb &
36463  &, 0.192491e+01_jprb, 0.192161e+01_jprb, 0.191778e+01_jprb, 0.191343e+01_jprb &
36464  &, 0.190856e+01_jprb, 0.190318e+01_jprb, 0.189727e+01_jprb &
36465  &, 0.189090e+01_jprb, 0.188401e+01_jprb, 0.187663e+01_jprb, 0.186879e+01_jprb &
36466  &, 0.186048e+01_jprb, 0.185171e+01_jprb, 0.184248e+01_jprb &
36467  &, 0.183282e+01_jprb, 0.182274e+01_jprb, 0.181222e+01_jprb, 0.180128e+01_jprb &
36468  &, 0.178995e+01_jprb, 0.177822e+01_jprb, 0.176613e+01_jprb &
36469  &, 0.175364e+01_jprb, 0.174080e+01_jprb, 0.172762e+01_jprb, 0.171407e+01_jprb &
36470  &, 0.170023e+01_jprb, 0.168603e+01_jprb, 0.167154e+01_jprb &
36471  &, 0.165675e+01_jprb, 0.164166e+01_jprb, 0.162634e+01_jprb, 0.161070e+01_jprb &
36472  &, 0.159485e+01_jprb, 0.157871e+01_jprb, 0.156239e+01_jprb &
36473  &, 0.154580e+01_jprb, 0.152904e+01_jprb, 0.151208e+01_jprb, 0.149491e+01_jprb &
36474  &, 0.147758e+01_jprb, 0.146006e+01_jprb, 0.144241e+01_jprb &
36475  &, 0.142463e+01_jprb, 0.140670e+01_jprb, 0.138865e+01_jprb, 0.137047e+01_jprb &
36476  &, 0.135223e+01_jprb, 0.133388e+01_jprb, 0.131544e+01_jprb &
36477  &, 0.129694e+01_jprb, 0.127837e+01_jprb, 0.125976e+01_jprb, 0.124114e+01_jprb &
36478  &, 0.122248e+01_jprb, 0.120377e+01_jprb, 0.118508e+01_jprb &
36479  &, 0.116635e+01_jprb, 0.114765e+01_jprb, 0.112901e+01_jprb, 0.111036e+01_jprb &
36480  &, 0.109172e+01_jprb, 0.107317e+01_jprb, 0.105464e+01_jprb &
36481  &, 0.103615e+01_jprb, 0.101778e+01_jprb, 0.999446e+00_jprb, 0.981233e+00_jprb &
36482  &, 0.963110e+00_jprb, 0.945044e+00_jprb, 0.927119e+00_jprb &
36483  &, 0.909300e+00_jprb, 0.891553e+00_jprb, 0.874024e+00_jprb, 0.856554e+00_jprb &
36484  &, 0.839227e+00_jprb, 0.822068e+00_jprb, 0.805037e+00_jprb/)
36485 xcw( 836, :) = (/ &
36486  & 0.109744e+01_jprb, 0.112163e+01_jprb, 0.114574e+01_jprb, 0.116973e+01_jprb &
36487  &, 0.119360e+01_jprb, 0.121733e+01_jprb, 0.124091e+01_jprb &
36488  &, 0.126431e+01_jprb, 0.128754e+01_jprb, 0.131056e+01_jprb, 0.133337e+01_jprb &
36489  &, 0.135595e+01_jprb, 0.137829e+01_jprb, 0.140037e+01_jprb &
36490  &, 0.142218e+01_jprb, 0.144371e+01_jprb, 0.146494e+01_jprb, 0.148585e+01_jprb &
36491  &, 0.150644e+01_jprb, 0.152668e+01_jprb, 0.154658e+01_jprb &
36492  &, 0.156610e+01_jprb, 0.158525e+01_jprb, 0.160400e+01_jprb, 0.162235e+01_jprb &
36493  &, 0.164028e+01_jprb, 0.165778e+01_jprb, 0.167484e+01_jprb &
36494  &, 0.169145e+01_jprb, 0.170760e+01_jprb, 0.172327e+01_jprb, 0.173847e+01_jprb &
36495  &, 0.175317e+01_jprb, 0.176737e+01_jprb, 0.178106e+01_jprb &
36496  &, 0.179423e+01_jprb, 0.180689e+01_jprb, 0.181900e+01_jprb, 0.183058e+01_jprb &
36497  &, 0.184161e+01_jprb, 0.185210e+01_jprb, 0.186203e+01_jprb &
36498  &, 0.187140e+01_jprb, 0.188020e+01_jprb, 0.188843e+01_jprb, 0.189610e+01_jprb &
36499  &, 0.190320e+01_jprb, 0.190972e+01_jprb, 0.191566e+01_jprb &
36500  &, 0.192101e+01_jprb, 0.192580e+01_jprb, 0.193001e+01_jprb, 0.193364e+01_jprb &
36501  &, 0.193668e+01_jprb, 0.193913e+01_jprb, 0.194104e+01_jprb &
36502  &, 0.194237e+01_jprb, 0.194313e+01_jprb, 0.194332e+01_jprb, 0.194294e+01_jprb &
36503  &, 0.194201e+01_jprb, 0.194051e+01_jprb, 0.193848e+01_jprb &
36504  &, 0.193589e+01_jprb, 0.193276e+01_jprb, 0.192908e+01_jprb, 0.192490e+01_jprb &
36505  &, 0.192018e+01_jprb, 0.191495e+01_jprb, 0.190921e+01_jprb &
36506  &, 0.190296e+01_jprb, 0.189622e+01_jprb, 0.188900e+01_jprb, 0.188129e+01_jprb &
36507  &, 0.187312e+01_jprb, 0.186450e+01_jprb, 0.185541e+01_jprb &
36508  &, 0.184588e+01_jprb, 0.183591e+01_jprb, 0.182552e+01_jprb, 0.181472e+01_jprb &
36509  &, 0.180349e+01_jprb, 0.179189e+01_jprb, 0.177987e+01_jprb &
36510  &, 0.176750e+01_jprb, 0.175476e+01_jprb, 0.174167e+01_jprb, 0.172823e+01_jprb &
36511  &, 0.171447e+01_jprb, 0.170035e+01_jprb, 0.168594e+01_jprb &
36512  &, 0.167125e+01_jprb, 0.165623e+01_jprb, 0.164094e+01_jprb, 0.162539e+01_jprb &
36513  &, 0.160960e+01_jprb, 0.159355e+01_jprb, 0.157723e+01_jprb &
36514  &, 0.156072e+01_jprb, 0.154400e+01_jprb, 0.152707e+01_jprb, 0.150992e+01_jprb &
36515  &, 0.149261e+01_jprb, 0.147515e+01_jprb, 0.145751e+01_jprb &
36516  &, 0.143973e+01_jprb, 0.142185e+01_jprb, 0.140379e+01_jprb, 0.138564e+01_jprb &
36517  &, 0.136735e+01_jprb, 0.134902e+01_jprb, 0.133042e+01_jprb &
36518  &, 0.131206e+01_jprb, 0.129346e+01_jprb, 0.127485e+01_jprb, 0.125617e+01_jprb &
36519  &, 0.123745e+01_jprb, 0.121872e+01_jprb, 0.120001e+01_jprb &
36520  &, 0.118126e+01_jprb, 0.116252e+01_jprb, 0.114379e+01_jprb, 0.112504e+01_jprb &
36521  &, 0.110641e+01_jprb, 0.108775e+01_jprb, 0.106916e+01_jprb &
36522  &, 0.105065e+01_jprb, 0.103215e+01_jprb, 0.101379e+01_jprb, 0.995432e+00_jprb &
36523  &, 0.977214e+00_jprb, 0.959106e+00_jprb, 0.941073e+00_jprb &
36524  &, 0.923141e+00_jprb, 0.905334e+00_jprb, 0.887617e+00_jprb, 0.870074e+00_jprb &
36525  &, 0.852671e+00_jprb, 0.835365e+00_jprb, 0.818245e+00_jprb/)
36526 xcw( 837, :) = (/ &
36527  & 0.109787e+01_jprb, 0.112218e+01_jprb, 0.114641e+01_jprb, 0.117052e+01_jprb &
36528  &, 0.119452e+01_jprb, 0.121837e+01_jprb, 0.124208e+01_jprb &
36529  &, 0.126562e+01_jprb, 0.128898e+01_jprb, 0.131214e+01_jprb, 0.133509e+01_jprb &
36530  &, 0.135782e+01_jprb, 0.138030e+01_jprb, 0.140253e+01_jprb &
36531  &, 0.142450e+01_jprb, 0.144618e+01_jprb, 0.146756e+01_jprb, 0.148863e+01_jprb &
36532  &, 0.150938e+01_jprb, 0.152979e+01_jprb, 0.154985e+01_jprb &
36533  &, 0.156954e+01_jprb, 0.158885e+01_jprb, 0.160777e+01_jprb, 0.162630e+01_jprb &
36534  &, 0.164440e+01_jprb, 0.166208e+01_jprb, 0.167931e+01_jprb &
36535  &, 0.169610e+01_jprb, 0.171243e+01_jprb, 0.172828e+01_jprb, 0.174366e+01_jprb &
36536  &, 0.175855e+01_jprb, 0.177293e+01_jprb, 0.178680e+01_jprb &
36537  &, 0.180016e+01_jprb, 0.181300e+01_jprb, 0.182530e+01_jprb, 0.183707e+01_jprb &
36538  &, 0.184829e+01_jprb, 0.185896e+01_jprb, 0.186908e+01_jprb &
36539  &, 0.187864e+01_jprb, 0.188764e+01_jprb, 0.189605e+01_jprb, 0.190391e+01_jprb &
36540  &, 0.191120e+01_jprb, 0.191790e+01_jprb, 0.192402e+01_jprb &
36541  &, 0.192958e+01_jprb, 0.193455e+01_jprb, 0.193893e+01_jprb, 0.194274e+01_jprb &
36542  &, 0.194597e+01_jprb, 0.194863e+01_jprb, 0.195072e+01_jprb &
36543  &, 0.195222e+01_jprb, 0.195315e+01_jprb, 0.195352e+01_jprb, 0.195332e+01_jprb &
36544  &, 0.195255e+01_jprb, 0.195124e+01_jprb, 0.194936e+01_jprb &
36545  &, 0.194694e+01_jprb, 0.194398e+01_jprb, 0.194047e+01_jprb, 0.193644e+01_jprb &
36546  &, 0.193190e+01_jprb, 0.192682e+01_jprb, 0.192123e+01_jprb &
36547  &, 0.191515e+01_jprb, 0.190856e+01_jprb, 0.190147e+01_jprb, 0.189393e+01_jprb &
36548  &, 0.188588e+01_jprb, 0.187739e+01_jprb, 0.186769e+01_jprb &
36549  &, 0.185904e+01_jprb, 0.184921e+01_jprb, 0.183893e+01_jprb, 0.182823e+01_jprb &
36550  &, 0.181714e+01_jprb, 0.180565e+01_jprb, 0.179375e+01_jprb &
36551  &, 0.178148e+01_jprb, 0.176887e+01_jprb, 0.175587e+01_jprb, 0.174252e+01_jprb &
36552  &, 0.172884e+01_jprb, 0.171483e+01_jprb, 0.170050e+01_jprb &
36553  &, 0.168585e+01_jprb, 0.167093e+01_jprb, 0.165573e+01_jprb, 0.164025e+01_jprb &
36554  &, 0.162448e+01_jprb, 0.160848e+01_jprb, 0.159225e+01_jprb &
36555  &, 0.157578e+01_jprb, 0.155910e+01_jprb, 0.154220e+01_jprb, 0.152512e+01_jprb &
36556  &, 0.150784e+01_jprb, 0.149039e+01_jprb, 0.147281e+01_jprb &
36557  &, 0.145504e+01_jprb, 0.143712e+01_jprb, 0.141910e+01_jprb, 0.140094e+01_jprb &
36558  &, 0.138268e+01_jprb, 0.136433e+01_jprb, 0.134588e+01_jprb &
36559  &, 0.132737e+01_jprb, 0.130877e+01_jprb, 0.129011e+01_jprb, 0.127139e+01_jprb &
36560  &, 0.125266e+01_jprb, 0.123392e+01_jprb, 0.121510e+01_jprb &
36561  &, 0.119631e+01_jprb, 0.117755e+01_jprb, 0.115873e+01_jprb, 0.113999e+01_jprb &
36562  &, 0.112125e+01_jprb, 0.110254e+01_jprb, 0.108389e+01_jprb &
36563  &, 0.106526e+01_jprb, 0.104674e+01_jprb, 0.102825e+01_jprb, 0.100986e+01_jprb &
36564  &, 0.991552e+00_jprb, 0.973345e+00_jprb, 0.955207e+00_jprb &
36565  &, 0.937164e+00_jprb, 0.919239e+00_jprb, 0.901458e+00_jprb, 0.883785e+00_jprb &
36566  &, 0.866242e+00_jprb, 0.848856e+00_jprb, 0.831584e+00_jprb/)
36567 xcw( 838, :) = (/ &
36568  & 0.109830e+01_jprb, 0.112273e+01_jprb, 0.114707e+01_jprb, 0.117131e+01_jprb &
36569  &, 0.119543e+01_jprb, 0.121942e+01_jprb, 0.124326e+01_jprb &
36570  &, 0.126693e+01_jprb, 0.129042e+01_jprb, 0.131373e+01_jprb, 0.133682e+01_jprb &
36571  &, 0.135969e+01_jprb, 0.138232e+01_jprb, 0.140471e+01_jprb &
36572  &, 0.142682e+01_jprb, 0.144866e+01_jprb, 0.147020e+01_jprb, 0.149143e+01_jprb &
36573  &, 0.151234e+01_jprb, 0.153291e+01_jprb, 0.155313e+01_jprb &
36574  &, 0.157299e+01_jprb, 0.159247e+01_jprb, 0.161157e+01_jprb, 0.163026e+01_jprb &
36575  &, 0.164854e+01_jprb, 0.166640e+01_jprb, 0.168381e+01_jprb &
36576  &, 0.170078e+01_jprb, 0.171729e+01_jprb, 0.173332e+01_jprb, 0.174888e+01_jprb &
36577  &, 0.176395e+01_jprb, 0.177852e+01_jprb, 0.179259e+01_jprb &
36578  &, 0.180613e+01_jprb, 0.181915e+01_jprb, 0.183165e+01_jprb, 0.184360e+01_jprb &
36579  &, 0.185502e+01_jprb, 0.186587e+01_jprb, 0.187618e+01_jprb &
36580  &, 0.188591e+01_jprb, 0.189512e+01_jprb, 0.190373e+01_jprb, 0.191178e+01_jprb &
36581  &, 0.191924e+01_jprb, 0.192614e+01_jprb, 0.193246e+01_jprb &
36582  &, 0.193819e+01_jprb, 0.194335e+01_jprb, 0.194793e+01_jprb, 0.195193e+01_jprb &
36583  &, 0.195535e+01_jprb, 0.195818e+01_jprb, 0.196044e+01_jprb &
36584  &, 0.196213e+01_jprb, 0.196324e+01_jprb, 0.196379e+01_jprb, 0.196377e+01_jprb &
36585  &, 0.196318e+01_jprb, 0.196204e+01_jprb, 0.196033e+01_jprb &
36586  &, 0.195809e+01_jprb, 0.195529e+01_jprb, 0.195196e+01_jprb, 0.194809e+01_jprb &
36587  &, 0.194369e+01_jprb, 0.193878e+01_jprb, 0.193335e+01_jprb &
36588  &, 0.192742e+01_jprb, 0.192098e+01_jprb, 0.191404e+01_jprb, 0.190665e+01_jprb &
36589  &, 0.189875e+01_jprb, 0.189039e+01_jprb, 0.188158e+01_jprb &
36590  &, 0.187232e+01_jprb, 0.186260e+01_jprb, 0.185247e+01_jprb, 0.184191e+01_jprb &
36591  &, 0.183092e+01_jprb, 0.181954e+01_jprb, 0.180777e+01_jprb &
36592  &, 0.179560e+01_jprb, 0.178308e+01_jprb, 0.177018e+01_jprb, 0.175695e+01_jprb &
36593  &, 0.174336e+01_jprb, 0.172943e+01_jprb, 0.171518e+01_jprb &
36594  &, 0.170064e+01_jprb, 0.168579e+01_jprb, 0.167066e+01_jprb, 0.165524e+01_jprb &
36595  &, 0.163953e+01_jprb, 0.162362e+01_jprb, 0.160744e+01_jprb &
36596  &, 0.159102e+01_jprb, 0.157438e+01_jprb, 0.155752e+01_jprb, 0.154047e+01_jprb &
36597  &, 0.152322e+01_jprb, 0.150583e+01_jprb, 0.148823e+01_jprb &
36598  &, 0.147051e+01_jprb, 0.145259e+01_jprb, 0.143458e+01_jprb, 0.141646e+01_jprb &
36599  &, 0.139818e+01_jprb, 0.137981e+01_jprb, 0.136134e+01_jprb &
36600  &, 0.134285e+01_jprb, 0.132421e+01_jprb, 0.130557e+01_jprb, 0.128684e+01_jprb &
36601  &, 0.126806e+01_jprb, 0.124926e+01_jprb, 0.123042e+01_jprb &
36602  &, 0.121162e+01_jprb, 0.119278e+01_jprb, 0.117393e+01_jprb, 0.115510e+01_jprb &
36603  &, 0.113631e+01_jprb, 0.111755e+01_jprb, 0.109884e+01_jprb &
36604  &, 0.108015e+01_jprb, 0.106156e+01_jprb, 0.104299e+01_jprb, 0.102452e+01_jprb &
36605  &, 0.100612e+01_jprb, 0.987761e+00_jprb, 0.969581e+00_jprb &
36606  &, 0.951429e+00_jprb, 0.933451e+00_jprb, 0.915549e+00_jprb, 0.897748e+00_jprb &
36607  &, 0.880134e+00_jprb, 0.862607e+00_jprb, 0.845252e+00_jprb/)
36608 xcw( 839, :) = (/ &
36609  & 0.109874e+01_jprb, 0.112328e+01_jprb, 0.114775e+01_jprb, 0.117211e+01_jprb &
36610  &, 0.119635e+01_jprb, 0.122047e+01_jprb, 0.124444e+01_jprb &
36611  &, 0.126825e+01_jprb, 0.129188e+01_jprb, 0.131532e+01_jprb, 0.133856e+01_jprb &
36612  &, 0.136158e+01_jprb, 0.138436e+01_jprb, 0.140689e+01_jprb &
36613  &, 0.142916e+01_jprb, 0.145115e+01_jprb, 0.147285e+01_jprb, 0.149424e+01_jprb &
36614  &, 0.151531e+01_jprb, 0.153605e+01_jprb, 0.155644e+01_jprb &
36615  &, 0.157647e+01_jprb, 0.159612e+01_jprb, 0.161539e+01_jprb, 0.163425e+01_jprb &
36616  &, 0.165271e+01_jprb, 0.167074e+01_jprb, 0.168834e+01_jprb &
36617  &, 0.170548e+01_jprb, 0.172218e+01_jprb, 0.173840e+01_jprb, 0.175414e+01_jprb &
36618  &, 0.176939e+01_jprb, 0.178415e+01_jprb, 0.179840e+01_jprb &
36619  &, 0.181214e+01_jprb, 0.182534e+01_jprb, 0.183803e+01_jprb, 0.185017e+01_jprb &
36620  &, 0.186178e+01_jprb, 0.187283e+01_jprb, 0.188333e+01_jprb &
36621  &, 0.189327e+01_jprb, 0.190264e+01_jprb, 0.191145e+01_jprb, 0.191969e+01_jprb &
36622  &, 0.192735e+01_jprb, 0.193439e+01_jprb, 0.194094e+01_jprb &
36623  &, 0.194687e+01_jprb, 0.195222e+01_jprb, 0.195699e+01_jprb, 0.196117e+01_jprb &
36624  &, 0.196477e+01_jprb, 0.196780e+01_jprb, 0.197025e+01_jprb &
36625  &, 0.197212e+01_jprb, 0.197342e+01_jprb, 0.197414e+01_jprb, 0.197429e+01_jprb &
36626  &, 0.197389e+01_jprb, 0.197292e+01_jprb, 0.197139e+01_jprb &
36627  &, 0.196932e+01_jprb, 0.196670e+01_jprb, 0.196353e+01_jprb, 0.195982e+01_jprb &
36628  &, 0.195559e+01_jprb, 0.195085e+01_jprb, 0.194557e+01_jprb &
36629  &, 0.193980e+01_jprb, 0.193351e+01_jprb, 0.192673e+01_jprb, 0.191946e+01_jprb &
36630  &, 0.191173e+01_jprb, 0.190352e+01_jprb, 0.189484e+01_jprb &
36631  &, 0.188569e+01_jprb, 0.187612e+01_jprb, 0.186610e+01_jprb, 0.185568e+01_jprb &
36632  &, 0.184483e+01_jprb, 0.183356e+01_jprb, 0.182190e+01_jprb &
36633  &, 0.180986e+01_jprb, 0.179744e+01_jprb, 0.178463e+01_jprb, 0.177149e+01_jprb &
36634  &, 0.175799e+01_jprb, 0.174419e+01_jprb, 0.173001e+01_jprb &
36635  &, 0.171555e+01_jprb, 0.170078e+01_jprb, 0.168572e+01_jprb, 0.167037e+01_jprb &
36636  &, 0.165475e+01_jprb, 0.163887e+01_jprb, 0.162278e+01_jprb &
36637  &, 0.160640e+01_jprb, 0.158981e+01_jprb, 0.157299e+01_jprb, 0.155601e+01_jprb &
36638  &, 0.153879e+01_jprb, 0.152139e+01_jprb, 0.150384e+01_jprb &
36639  &, 0.148614e+01_jprb, 0.146827e+01_jprb, 0.145026e+01_jprb, 0.143214e+01_jprb &
36640  &, 0.141385e+01_jprb, 0.139552e+01_jprb, 0.137703e+01_jprb &
36641  &, 0.135851e+01_jprb, 0.133989e+01_jprb, 0.132116e+01_jprb, 0.130243e+01_jprb &
36642  &, 0.128366e+01_jprb, 0.126480e+01_jprb, 0.124595e+01_jprb &
36643  &, 0.122707e+01_jprb, 0.120821e+01_jprb, 0.118933e+01_jprb, 0.117046e+01_jprb &
36644  &, 0.115158e+01_jprb, 0.113277e+01_jprb, 0.111395e+01_jprb &
36645  &, 0.109520e+01_jprb, 0.107654e+01_jprb, 0.105790e+01_jprb, 0.103935e+01_jprb &
36646  &, 0.102087e+01_jprb, 0.100247e+01_jprb, 0.984135e+00_jprb &
36647  &, 0.965937e+00_jprb, 0.947786e+00_jprb, 0.929827e+00_jprb, 0.911963e+00_jprb &
36648  &, 0.894154e+00_jprb, 0.876552e+00_jprb, 0.859052e+00_jprb/)
36649 xcw( 840, :) = (/ &
36650  & 0.109917e+01_jprb, 0.112384e+01_jprb, 0.114842e+01_jprb, 0.117291e+01_jprb &
36651  &, 0.119728e+01_jprb, 0.122152e+01_jprb, 0.124563e+01_jprb &
36652  &, 0.126957e+01_jprb, 0.129334e+01_jprb, 0.131692e+01_jprb, 0.134030e+01_jprb &
36653  &, 0.136347e+01_jprb, 0.138640e+01_jprb, 0.140908e+01_jprb &
36654  &, 0.143151e+01_jprb, 0.145366e+01_jprb, 0.147551e+01_jprb, 0.149707e+01_jprb &
36655  &, 0.151830e+01_jprb, 0.153920e+01_jprb, 0.155976e+01_jprb &
36656  &, 0.157996e+01_jprb, 0.159979e+01_jprb, 0.161923e+01_jprb, 0.163827e+01_jprb &
36657  &, 0.165690e+01_jprb, 0.167511e+01_jprb, 0.169289e+01_jprb &
36658  &, 0.171022e+01_jprb, 0.172709e+01_jprb, 0.174350e+01_jprb, 0.175942e+01_jprb &
36659  &, 0.177487e+01_jprb, 0.178981e+01_jprb, 0.180425e+01_jprb &
36660  &, 0.181817e+01_jprb, 0.183158e+01_jprb, 0.184445e+01_jprb, 0.185679e+01_jprb &
36661  &, 0.186858e+01_jprb, 0.187983e+01_jprb, 0.189052e+01_jprb &
36662  &, 0.190065e+01_jprb, 0.191023e+01_jprb, 0.191922e+01_jprb, 0.192765e+01_jprb &
36663  &, 0.193549e+01_jprb, 0.194279e+01_jprb, 0.194948e+01_jprb &
36664  &, 0.195561e+01_jprb, 0.196115e+01_jprb, 0.196610e+01_jprb, 0.197048e+01_jprb &
36665  &, 0.197427e+01_jprb, 0.197748e+01_jprb, 0.198011e+01_jprb &
36666  &, 0.198218e+01_jprb, 0.198366e+01_jprb, 0.198456e+01_jprb, 0.198490e+01_jprb &
36667  &, 0.198467e+01_jprb, 0.198389e+01_jprb, 0.198254e+01_jprb &
36668  &, 0.198064e+01_jprb, 0.197818e+01_jprb, 0.197518e+01_jprb, 0.197166e+01_jprb &
36669  &, 0.196758e+01_jprb, 0.196301e+01_jprb, 0.195790e+01_jprb &
36670  &, 0.195226e+01_jprb, 0.194615e+01_jprb, 0.193952e+01_jprb, 0.193241e+01_jprb &
36671  &, 0.192481e+01_jprb, 0.191675e+01_jprb, 0.190819e+01_jprb &
36672  &, 0.189922e+01_jprb, 0.188977e+01_jprb, 0.187989e+01_jprb, 0.186959e+01_jprb &
36673  &, 0.185885e+01_jprb, 0.184771e+01_jprb, 0.183616e+01_jprb &
36674  &, 0.182423e+01_jprb, 0.181191e+01_jprb, 0.179923e+01_jprb, 0.178619e+01_jprb &
36675  &, 0.177281e+01_jprb, 0.175906e+01_jprb, 0.174500e+01_jprb &
36676  &, 0.173063e+01_jprb, 0.171593e+01_jprb, 0.170095e+01_jprb, 0.168566e+01_jprb &
36677  &, 0.167011e+01_jprb, 0.165432e+01_jprb, 0.163825e+01_jprb &
36678  &, 0.162196e+01_jprb, 0.160542e+01_jprb, 0.158864e+01_jprb, 0.157170e+01_jprb &
36679  &, 0.155451e+01_jprb, 0.153718e+01_jprb, 0.151965e+01_jprb &
36680  &, 0.150193e+01_jprb, 0.148411e+01_jprb, 0.146611e+01_jprb, 0.144799e+01_jprb &
36681  &, 0.142974e+01_jprb, 0.141135e+01_jprb, 0.139289e+01_jprb &
36682  &, 0.137434e+01_jprb, 0.135570e+01_jprb, 0.133703e+01_jprb, 0.131822e+01_jprb &
36683  &, 0.129944e+01_jprb, 0.128058e+01_jprb, 0.126167e+01_jprb &
36684  &, 0.124273e+01_jprb, 0.122384e+01_jprb, 0.120488e+01_jprb, 0.118598e+01_jprb &
36685  &, 0.116706e+01_jprb, 0.114815e+01_jprb, 0.112933e+01_jprb &
36686  &, 0.111052e+01_jprb, 0.109175e+01_jprb, 0.107304e+01_jprb, 0.105441e+01_jprb &
36687  &, 0.103585e+01_jprb, 0.101736e+01_jprb, 0.998928e+00_jprb &
36688  &, 0.980628e+00_jprb, 0.962429e+00_jprb, 0.944292e+00_jprb, 0.926305e+00_jprb &
36689  &, 0.908494e+00_jprb, 0.890757e+00_jprb, 0.873114e+00_jprb/)
36690 
36691 IF (lhook) CALL dr_hook('SU_MCICA:PART120',1,zhook_handle)
36692 END SUBROUTINE part120
36693 
36694 #ifdef VPP5000
36695 !OCL SCALAR
36696 #endif
36697 !option! -Nv -NO
36698 #ifdef RS6K
36699 @process nooptimize
36700 #endif
36701 !pgi$r opt=0
36702 SUBROUTINE part121
36703 
36704 REAL(KIND=JPRB) :: ZHOOK_HANDLE
36705 IF (lhook) CALL dr_hook('SU_MCICA:PART121',0,zhook_handle)
36706 
36707 xcw( 841, :) = (/ &
36708  & 0.109961e+01_jprb, 0.112439e+01_jprb, 0.114910e+01_jprb, 0.117371e+01_jprb &
36709  &, 0.119821e+01_jprb, 0.122258e+01_jprb, 0.124682e+01_jprb &
36710  &, 0.127090e+01_jprb, 0.129481e+01_jprb, 0.131853e+01_jprb, 0.134206e+01_jprb &
36711  &, 0.136537e+01_jprb, 0.138845e+01_jprb, 0.141129e+01_jprb &
36712  &, 0.143387e+01_jprb, 0.145617e+01_jprb, 0.147819e+01_jprb, 0.149991e+01_jprb &
36713  &, 0.152131e+01_jprb, 0.154238e+01_jprb, 0.156310e+01_jprb &
36714  &, 0.158347e+01_jprb, 0.160347e+01_jprb, 0.162309e+01_jprb, 0.164231e+01_jprb &
36715  &, 0.166112e+01_jprb, 0.167951e+01_jprb, 0.169746e+01_jprb &
36716  &, 0.171496e+01_jprb, 0.173203e+01_jprb, 0.174863e+01_jprb, 0.176474e+01_jprb &
36717  &, 0.178037e+01_jprb, 0.179551e+01_jprb, 0.181014e+01_jprb &
36718  &, 0.182425e+01_jprb, 0.183784e+01_jprb, 0.185091e+01_jprb, 0.186345e+01_jprb &
36719  &, 0.187543e+01_jprb, 0.188688e+01_jprb, 0.189776e+01_jprb &
36720  &, 0.190809e+01_jprb, 0.191786e+01_jprb, 0.192705e+01_jprb, 0.193568e+01_jprb &
36721  &, 0.194373e+01_jprb, 0.195119e+01_jprb, 0.195809e+01_jprb &
36722  &, 0.196440e+01_jprb, 0.197014e+01_jprb, 0.197529e+01_jprb, 0.197985e+01_jprb &
36723  &, 0.198383e+01_jprb, 0.198724e+01_jprb, 0.199006e+01_jprb &
36724  &, 0.199230e+01_jprb, 0.199397e+01_jprb, 0.199507e+01_jprb, 0.199559e+01_jprb &
36725  &, 0.199555e+01_jprb, 0.199493e+01_jprb, 0.199377e+01_jprb &
36726  &, 0.199204e+01_jprb, 0.198976e+01_jprb, 0.198694e+01_jprb, 0.198357e+01_jprb &
36727  &, 0.197968e+01_jprb, 0.197526e+01_jprb, 0.197031e+01_jprb &
36728  &, 0.196485e+01_jprb, 0.195888e+01_jprb, 0.195238e+01_jprb, 0.194544e+01_jprb &
36729  &, 0.193800e+01_jprb, 0.193009e+01_jprb, 0.192169e+01_jprb &
36730  &, 0.191284e+01_jprb, 0.190353e+01_jprb, 0.189378e+01_jprb, 0.188359e+01_jprb &
36731  &, 0.187300e+01_jprb, 0.186198e+01_jprb, 0.185056e+01_jprb &
36732  &, 0.183874e+01_jprb, 0.182655e+01_jprb, 0.181397e+01_jprb, 0.180103e+01_jprb &
36733  &, 0.178775e+01_jprb, 0.177409e+01_jprb, 0.176012e+01_jprb &
36734  &, 0.174583e+01_jprb, 0.173124e+01_jprb, 0.171633e+01_jprb, 0.170112e+01_jprb &
36735  &, 0.168564e+01_jprb, 0.166991e+01_jprb, 0.165390e+01_jprb &
36736  &, 0.163767e+01_jprb, 0.162117e+01_jprb, 0.160448e+01_jprb, 0.158754e+01_jprb &
36737  &, 0.157042e+01_jprb, 0.155312e+01_jprb, 0.153558e+01_jprb &
36738  &, 0.151792e+01_jprb, 0.150011e+01_jprb, 0.148212e+01_jprb, 0.146400e+01_jprb &
36739  &, 0.144576e+01_jprb, 0.142740e+01_jprb, 0.140897e+01_jprb &
36740  &, 0.139041e+01_jprb, 0.137174e+01_jprb, 0.135303e+01_jprb, 0.133423e+01_jprb &
36741  &, 0.131541e+01_jprb, 0.129650e+01_jprb, 0.127758e+01_jprb &
36742  &, 0.125863e+01_jprb, 0.123968e+01_jprb, 0.122069e+01_jprb, 0.120171e+01_jprb &
36743  &, 0.118276e+01_jprb, 0.116380e+01_jprb, 0.114488e+01_jprb &
36744  &, 0.112602e+01_jprb, 0.110718e+01_jprb, 0.108840e+01_jprb, 0.106965e+01_jprb &
36745  &, 0.105100e+01_jprb, 0.103243e+01_jprb, 0.101396e+01_jprb &
36746  &, 0.995561e+00_jprb, 0.977256e+00_jprb, 0.959069e+00_jprb, 0.940963e+00_jprb &
36747  &, 0.922963e+00_jprb, 0.905156e+00_jprb, 0.887439e+00_jprb/)
36748 xcw( 842, :) = (/ &
36749  & 0.110005e+01_jprb, 0.112495e+01_jprb, 0.114978e+01_jprb, 0.117451e+01_jprb &
36750  &, 0.119914e+01_jprb, 0.122365e+01_jprb, 0.124802e+01_jprb &
36751  &, 0.127223e+01_jprb, 0.129629e+01_jprb, 0.132015e+01_jprb, 0.134382e+01_jprb &
36752  &, 0.136728e+01_jprb, 0.139052e+01_jprb, 0.141351e+01_jprb &
36753  &, 0.143624e+01_jprb, 0.145871e+01_jprb, 0.148089e+01_jprb, 0.150276e+01_jprb &
36754  &, 0.152433e+01_jprb, 0.154557e+01_jprb, 0.156646e+01_jprb &
36755  &, 0.158701e+01_jprb, 0.160718e+01_jprb, 0.162697e+01_jprb, 0.164636e+01_jprb &
36756  &, 0.166534e+01_jprb, 0.168393e+01_jprb, 0.170207e+01_jprb &
36757  &, 0.171976e+01_jprb, 0.173701e+01_jprb, 0.175379e+01_jprb, 0.177009e+01_jprb &
36758  &, 0.178591e+01_jprb, 0.180124e+01_jprb, 0.181604e+01_jprb &
36759  &, 0.183037e+01_jprb, 0.184416e+01_jprb, 0.185742e+01_jprb, 0.187014e+01_jprb &
36760  &, 0.188233e+01_jprb, 0.189397e+01_jprb, 0.190505e+01_jprb &
36761  &, 0.191557e+01_jprb, 0.192553e+01_jprb, 0.193493e+01_jprb, 0.194375e+01_jprb &
36762  &, 0.195200e+01_jprb, 0.195966e+01_jprb, 0.196673e+01_jprb &
36763  &, 0.197326e+01_jprb, 0.197920e+01_jprb, 0.198454e+01_jprb, 0.198929e+01_jprb &
36764  &, 0.199347e+01_jprb, 0.199706e+01_jprb, 0.200008e+01_jprb &
36765  &, 0.200251e+01_jprb, 0.200437e+01_jprb, 0.200565e+01_jprb, 0.200636e+01_jprb &
36766  &, 0.200650e+01_jprb, 0.200606e+01_jprb, 0.200508e+01_jprb &
36767  &, 0.200352e+01_jprb, 0.200137e+01_jprb, 0.199879e+01_jprb, 0.199560e+01_jprb &
36768  &, 0.199187e+01_jprb, 0.198761e+01_jprb, 0.198283e+01_jprb &
36769  &, 0.197753e+01_jprb, 0.197173e+01_jprb, 0.196541e+01_jprb, 0.195861e+01_jprb &
36770  &, 0.195130e+01_jprb, 0.194353e+01_jprb, 0.193521e+01_jprb &
36771  &, 0.192658e+01_jprb, 0.191743e+01_jprb, 0.190780e+01_jprb, 0.189776e+01_jprb &
36772  &, 0.188728e+01_jprb, 0.187640e+01_jprb, 0.186510e+01_jprb &
36773  &, 0.185339e+01_jprb, 0.184131e+01_jprb, 0.182883e+01_jprb, 0.181602e+01_jprb &
36774  &, 0.180271e+01_jprb, 0.178927e+01_jprb, 0.177539e+01_jprb &
36775  &, 0.176121e+01_jprb, 0.174668e+01_jprb, 0.173185e+01_jprb, 0.171675e+01_jprb &
36776  &, 0.170134e+01_jprb, 0.168568e+01_jprb, 0.166973e+01_jprb &
36777  &, 0.165355e+01_jprb, 0.163711e+01_jprb, 0.162046e+01_jprb, 0.160357e+01_jprb &
36778  &, 0.158649e+01_jprb, 0.156922e+01_jprb, 0.155175e+01_jprb &
36779  &, 0.153411e+01_jprb, 0.151632e+01_jprb, 0.149834e+01_jprb, 0.148023e+01_jprb &
36780  &, 0.146203e+01_jprb, 0.144367e+01_jprb, 0.142519e+01_jprb &
36781  &, 0.140665e+01_jprb, 0.138800e+01_jprb, 0.136927e+01_jprb, 0.135044e+01_jprb &
36782  &, 0.133158e+01_jprb, 0.131267e+01_jprb, 0.129370e+01_jprb &
36783  &, 0.127474e+01_jprb, 0.125571e+01_jprb, 0.123671e+01_jprb, 0.121770e+01_jprb &
36784  &, 0.119866e+01_jprb, 0.117967e+01_jprb, 0.116070e+01_jprb &
36785  &, 0.114173e+01_jprb, 0.112284e+01_jprb, 0.110399e+01_jprb, 0.108517e+01_jprb &
36786  &, 0.106644e+01_jprb, 0.104779e+01_jprb, 0.102917e+01_jprb &
36787  &, 0.101068e+01_jprb, 0.992268e+00_jprb, 0.973970e+00_jprb, 0.955811e+00_jprb &
36788  &, 0.937687e+00_jprb, 0.919750e+00_jprb, 0.901961e+00_jprb/)
36789 xcw( 843, :) = (/ &
36790  & 0.110050e+01_jprb, 0.112551e+01_jprb, 0.115046e+01_jprb, 0.117532e+01_jprb &
36791  &, 0.120008e+01_jprb, 0.122472e+01_jprb, 0.124922e+01_jprb &
36792  &, 0.127358e+01_jprb, 0.129777e+01_jprb, 0.132178e+01_jprb, 0.134560e+01_jprb &
36793  &, 0.136921e+01_jprb, 0.139259e+01_jprb, 0.141574e+01_jprb &
36794  &, 0.143863e+01_jprb, 0.146125e+01_jprb, 0.148359e+01_jprb, 0.150563e+01_jprb &
36795  &, 0.152737e+01_jprb, 0.154877e+01_jprb, 0.156984e+01_jprb &
36796  &, 0.159056e+01_jprb, 0.161090e+01_jprb, 0.163087e+01_jprb, 0.165045e+01_jprb &
36797  &, 0.166962e+01_jprb, 0.168837e+01_jprb, 0.170670e+01_jprb &
36798  &, 0.172458e+01_jprb, 0.174201e+01_jprb, 0.175898e+01_jprb, 0.177547e+01_jprb &
36799  &, 0.179148e+01_jprb, 0.180700e+01_jprb, 0.182202e+01_jprb &
36800  &, 0.183652e+01_jprb, 0.185051e+01_jprb, 0.186396e+01_jprb, 0.187688e+01_jprb &
36801  &, 0.188927e+01_jprb, 0.190110e+01_jprb, 0.191238e+01_jprb &
36802  &, 0.192310e+01_jprb, 0.193326e+01_jprb, 0.194285e+01_jprb, 0.195188e+01_jprb &
36803  &, 0.196032e+01_jprb, 0.196818e+01_jprb, 0.197548e+01_jprb &
36804  &, 0.198218e+01_jprb, 0.198831e+01_jprb, 0.199384e+01_jprb, 0.199880e+01_jprb &
36805  &, 0.200318e+01_jprb, 0.200696e+01_jprb, 0.201017e+01_jprb &
36806  &, 0.201280e+01_jprb, 0.201484e+01_jprb, 0.201631e+01_jprb, 0.201721e+01_jprb &
36807  &, 0.201754e+01_jprb, 0.201729e+01_jprb, 0.201647e+01_jprb &
36808  &, 0.201512e+01_jprb, 0.201320e+01_jprb, 0.201073e+01_jprb, 0.200771e+01_jprb &
36809  &, 0.200416e+01_jprb, 0.200006e+01_jprb, 0.199546e+01_jprb &
36810  &, 0.199033e+01_jprb, 0.198467e+01_jprb, 0.197852e+01_jprb, 0.197188e+01_jprb &
36811  &, 0.196472e+01_jprb, 0.195710e+01_jprb, 0.194901e+01_jprb &
36812  &, 0.194044e+01_jprb, 0.193142e+01_jprb, 0.192194e+01_jprb, 0.191205e+01_jprb &
36813  &, 0.190170e+01_jprb, 0.189093e+01_jprb, 0.187975e+01_jprb &
36814  &, 0.186817e+01_jprb, 0.185620e+01_jprb, 0.184386e+01_jprb, 0.183112e+01_jprb &
36815  &, 0.181804e+01_jprb, 0.180460e+01_jprb, 0.179072e+01_jprb &
36816  &, 0.177673e+01_jprb, 0.176228e+01_jprb, 0.174754e+01_jprb, 0.173251e+01_jprb &
36817  &, 0.171717e+01_jprb, 0.170158e+01_jprb, 0.168569e+01_jprb &
36818  &, 0.166958e+01_jprb, 0.165323e+01_jprb, 0.163660e+01_jprb, 0.161978e+01_jprb &
36819  &, 0.160275e+01_jprb, 0.158552e+01_jprb, 0.156808e+01_jprb &
36820  &, 0.155046e+01_jprb, 0.153270e+01_jprb, 0.151477e+01_jprb, 0.149667e+01_jprb &
36821  &, 0.147847e+01_jprb, 0.146011e+01_jprb, 0.144167e+01_jprb &
36822  &, 0.142307e+01_jprb, 0.140441e+01_jprb, 0.138570e+01_jprb, 0.136688e+01_jprb &
36823  &, 0.134798e+01_jprb, 0.132903e+01_jprb, 0.131006e+01_jprb &
36824  &, 0.129104e+01_jprb, 0.127200e+01_jprb, 0.125293e+01_jprb, 0.123385e+01_jprb &
36825  &, 0.121477e+01_jprb, 0.119575e+01_jprb, 0.117668e+01_jprb &
36826  &, 0.115766e+01_jprb, 0.113872e+01_jprb, 0.111975e+01_jprb, 0.110092e+01_jprb &
36827  &, 0.108206e+01_jprb, 0.106333e+01_jprb, 0.104468e+01_jprb &
36828  &, 0.102610e+01_jprb, 0.100759e+01_jprb, 0.989184e+00_jprb, 0.970911e+00_jprb &
36829  &, 0.952667e+00_jprb, 0.934603e+00_jprb, 0.916680e+00_jprb/)
36830 xcw( 844, :) = (/ &
36831  & 0.110094e+01_jprb, 0.112608e+01_jprb, 0.115115e+01_jprb, 0.117614e+01_jprb &
36832  &, 0.120102e+01_jprb, 0.122579e+01_jprb, 0.125043e+01_jprb &
36833  &, 0.127493e+01_jprb, 0.129926e+01_jprb, 0.132342e+01_jprb, 0.134738e+01_jprb &
36834  &, 0.137114e+01_jprb, 0.139468e+01_jprb, 0.141797e+01_jprb &
36835  &, 0.144103e+01_jprb, 0.146381e+01_jprb, 0.148631e+01_jprb, 0.150852e+01_jprb &
36836  &, 0.153042e+01_jprb, 0.155200e+01_jprb, 0.157324e+01_jprb &
36837  &, 0.159413e+01_jprb, 0.161465e+01_jprb, 0.163480e+01_jprb, 0.165456e+01_jprb &
36838  &, 0.167391e+01_jprb, 0.169285e+01_jprb, 0.171135e+01_jprb &
36839  &, 0.172943e+01_jprb, 0.174705e+01_jprb, 0.176421e+01_jprb, 0.178089e+01_jprb &
36840  &, 0.179709e+01_jprb, 0.181281e+01_jprb, 0.182802e+01_jprb &
36841  &, 0.184271e+01_jprb, 0.185690e+01_jprb, 0.187055e+01_jprb, 0.188367e+01_jprb &
36842  &, 0.189626e+01_jprb, 0.190829e+01_jprb, 0.191976e+01_jprb &
36843  &, 0.193069e+01_jprb, 0.194105e+01_jprb, 0.195084e+01_jprb, 0.196006e+01_jprb &
36844  &, 0.196870e+01_jprb, 0.197677e+01_jprb, 0.198426e+01_jprb &
36845  &, 0.199117e+01_jprb, 0.199749e+01_jprb, 0.200323e+01_jprb, 0.200839e+01_jprb &
36846  &, 0.201295e+01_jprb, 0.201693e+01_jprb, 0.202034e+01_jprb &
36847  &, 0.202315e+01_jprb, 0.202540e+01_jprb, 0.202705e+01_jprb, 0.202814e+01_jprb &
36848  &, 0.202865e+01_jprb, 0.202859e+01_jprb, 0.202798e+01_jprb &
36849  &, 0.202679e+01_jprb, 0.202506e+01_jprb, 0.202277e+01_jprb, 0.201991e+01_jprb &
36850  &, 0.201655e+01_jprb, 0.201264e+01_jprb, 0.200818e+01_jprb &
36851  &, 0.200321e+01_jprb, 0.199774e+01_jprb, 0.199175e+01_jprb, 0.198525e+01_jprb &
36852  &, 0.197828e+01_jprb, 0.197080e+01_jprb, 0.196286e+01_jprb &
36853  &, 0.195443e+01_jprb, 0.194556e+01_jprb, 0.193623e+01_jprb, 0.192644e+01_jprb &
36854  &, 0.191624e+01_jprb, 0.190560e+01_jprb, 0.189456e+01_jprb &
36855  &, 0.188310e+01_jprb, 0.187124e+01_jprb, 0.185901e+01_jprb, 0.184641e+01_jprb &
36856  &, 0.183343e+01_jprb, 0.182009e+01_jprb, 0.180640e+01_jprb &
36857  &, 0.179240e+01_jprb, 0.177805e+01_jprb, 0.176341e+01_jprb, 0.174844e+01_jprb &
36858  &, 0.173321e+01_jprb, 0.171765e+01_jprb, 0.170187e+01_jprb &
36859  &, 0.168582e+01_jprb, 0.166949e+01_jprb, 0.165295e+01_jprb, 0.163619e+01_jprb &
36860  &, 0.161920e+01_jprb, 0.160201e+01_jprb, 0.158460e+01_jprb &
36861  &, 0.156701e+01_jprb, 0.154927e+01_jprb, 0.153137e+01_jprb, 0.151328e+01_jprb &
36862  &, 0.149509e+01_jprb, 0.147677e+01_jprb, 0.145828e+01_jprb &
36863  &, 0.143972e+01_jprb, 0.142108e+01_jprb, 0.140231e+01_jprb, 0.138346e+01_jprb &
36864  &, 0.136457e+01_jprb, 0.134563e+01_jprb, 0.132661e+01_jprb &
36865  &, 0.130754e+01_jprb, 0.128845e+01_jprb, 0.126936e+01_jprb, 0.125025e+01_jprb &
36866  &, 0.123115e+01_jprb, 0.121204e+01_jprb, 0.119294e+01_jprb &
36867  &, 0.117387e+01_jprb, 0.115482e+01_jprb, 0.113580e+01_jprb, 0.111684e+01_jprb &
36868  &, 0.109797e+01_jprb, 0.107910e+01_jprb, 0.106038e+01_jprb &
36869  &, 0.104170e+01_jprb, 0.102309e+01_jprb, 0.100458e+01_jprb, 0.986201e+00_jprb &
36870  &, 0.967904e+00_jprb, 0.949716e+00_jprb, 0.931662e+00_jprb/)
36871 xcw( 845, :) = (/ &
36872  & 0.110139e+01_jprb, 0.112665e+01_jprb, 0.115184e+01_jprb, 0.117695e+01_jprb &
36873  &, 0.120197e+01_jprb, 0.122687e+01_jprb, 0.125165e+01_jprb &
36874  &, 0.127628e+01_jprb, 0.130076e+01_jprb, 0.132506e+01_jprb, 0.134917e+01_jprb &
36875  &, 0.137308e+01_jprb, 0.139677e+01_jprb, 0.142023e+01_jprb &
36876  &, 0.144344e+01_jprb, 0.146638e+01_jprb, 0.148905e+01_jprb, 0.151143e+01_jprb &
36877  &, 0.153349e+01_jprb, 0.155524e+01_jprb, 0.157665e+01_jprb &
36878  &, 0.159772e+01_jprb, 0.161842e+01_jprb, 0.163875e+01_jprb, 0.165869e+01_jprb &
36879  &, 0.167822e+01_jprb, 0.169735e+01_jprb, 0.171604e+01_jprb &
36880  &, 0.173430e+01_jprb, 0.175211e+01_jprb, 0.176946e+01_jprb, 0.178634e+01_jprb &
36881  &, 0.180273e+01_jprb, 0.181865e+01_jprb, 0.183405e+01_jprb &
36882  &, 0.184895e+01_jprb, 0.186333e+01_jprb, 0.187718e+01_jprb, 0.189050e+01_jprb &
36883  &, 0.190329e+01_jprb, 0.191552e+01_jprb, 0.192720e+01_jprb &
36884  &, 0.193832e+01_jprb, 0.194888e+01_jprb, 0.195888e+01_jprb, 0.196830e+01_jprb &
36885  &, 0.197715e+01_jprb, 0.198542e+01_jprb, 0.199311e+01_jprb &
36886  &, 0.200022e+01_jprb, 0.200675e+01_jprb, 0.201267e+01_jprb, 0.201803e+01_jprb &
36887  &, 0.202279e+01_jprb, 0.202698e+01_jprb, 0.203058e+01_jprb &
36888  &, 0.203360e+01_jprb, 0.203603e+01_jprb, 0.203789e+01_jprb, 0.203916e+01_jprb &
36889  &, 0.203986e+01_jprb, 0.204000e+01_jprb, 0.203955e+01_jprb &
36890  &, 0.203857e+01_jprb, 0.203700e+01_jprb, 0.203490e+01_jprb, 0.203224e+01_jprb &
36891  &, 0.202904e+01_jprb, 0.202530e+01_jprb, 0.202103e+01_jprb &
36892  &, 0.201622e+01_jprb, 0.201092e+01_jprb, 0.200509e+01_jprb, 0.199876e+01_jprb &
36893  &, 0.199193e+01_jprb, 0.198461e+01_jprb, 0.197681e+01_jprb &
36894  &, 0.196856e+01_jprb, 0.195982e+01_jprb, 0.195063e+01_jprb, 0.194099e+01_jprb &
36895  &, 0.193092e+01_jprb, 0.192042e+01_jprb, 0.190951e+01_jprb &
36896  &, 0.189816e+01_jprb, 0.188645e+01_jprb, 0.187433e+01_jprb, 0.186181e+01_jprb &
36897  &, 0.184896e+01_jprb, 0.183573e+01_jprb, 0.182213e+01_jprb &
36898  &, 0.180824e+01_jprb, 0.179397e+01_jprb, 0.177943e+01_jprb, 0.176453e+01_jprb &
36899  &, 0.174938e+01_jprb, 0.173394e+01_jprb, 0.171819e+01_jprb &
36900  &, 0.170221e+01_jprb, 0.168594e+01_jprb, 0.166945e+01_jprb, 0.165274e+01_jprb &
36901  &, 0.163580e+01_jprb, 0.161865e+01_jprb, 0.160128e+01_jprb &
36902  &, 0.158377e+01_jprb, 0.156605e+01_jprb, 0.154817e+01_jprb, 0.153010e+01_jprb &
36903  &, 0.151192e+01_jprb, 0.149361e+01_jprb, 0.147516e+01_jprb &
36904  &, 0.145659e+01_jprb, 0.143790e+01_jprb, 0.141915e+01_jprb, 0.140032e+01_jprb &
36905  &, 0.138141e+01_jprb, 0.136243e+01_jprb, 0.134336e+01_jprb &
36906  &, 0.132429e+01_jprb, 0.130519e+01_jprb, 0.128604e+01_jprb, 0.126687e+01_jprb &
36907  &, 0.124769e+01_jprb, 0.122855e+01_jprb, 0.120936e+01_jprb &
36908  &, 0.119025e+01_jprb, 0.117115e+01_jprb, 0.115207e+01_jprb, 0.113305e+01_jprb &
36909  &, 0.111406e+01_jprb, 0.109517e+01_jprb, 0.107631e+01_jprb &
36910  &, 0.105754e+01_jprb, 0.103884e+01_jprb, 0.102023e+01_jprb, 0.100174e+01_jprb &
36911  &, 0.983396e+00_jprb, 0.965088e+00_jprb, 0.946908e+00_jprb/)
36912 xcw( 846, :) = (/ &
36913  & 0.110184e+01_jprb, 0.112722e+01_jprb, 0.115253e+01_jprb, 0.117777e+01_jprb &
36914  &, 0.120292e+01_jprb, 0.122796e+01_jprb, 0.125287e+01_jprb &
36915  &, 0.127764e+01_jprb, 0.130226e+01_jprb, 0.132671e+01_jprb, 0.135097e+01_jprb &
36916  &, 0.137503e+01_jprb, 0.139888e+01_jprb, 0.142249e+01_jprb &
36917  &, 0.144586e+01_jprb, 0.146897e+01_jprb, 0.149180e+01_jprb, 0.151434e+01_jprb &
36918  &, 0.153658e+01_jprb, 0.155850e+01_jprb, 0.158009e+01_jprb &
36919  &, 0.160133e+01_jprb, 0.162221e+01_jprb, 0.164272e+01_jprb, 0.166284e+01_jprb &
36920  &, 0.168256e+01_jprb, 0.170187e+01_jprb, 0.172076e+01_jprb &
36921  &, 0.173920e+01_jprb, 0.175721e+01_jprb, 0.177475e+01_jprb, 0.179182e+01_jprb &
36922  &, 0.180841e+01_jprb, 0.182452e+01_jprb, 0.184012e+01_jprb &
36923  &, 0.185522e+01_jprb, 0.186980e+01_jprb, 0.188386e+01_jprb, 0.189737e+01_jprb &
36924  &, 0.191036e+01_jprb, 0.192280e+01_jprb, 0.193468e+01_jprb &
36925  &, 0.194600e+01_jprb, 0.195677e+01_jprb, 0.196697e+01_jprb, 0.197660e+01_jprb &
36926  &, 0.198565e+01_jprb, 0.199412e+01_jprb, 0.200202e+01_jprb &
36927  &, 0.200933e+01_jprb, 0.201606e+01_jprb, 0.202220e+01_jprb, 0.202775e+01_jprb &
36928  &, 0.203272e+01_jprb, 0.203710e+01_jprb, 0.204089e+01_jprb &
36929  &, 0.204411e+01_jprb, 0.204675e+01_jprb, 0.204879e+01_jprb, 0.205026e+01_jprb &
36930  &, 0.205116e+01_jprb, 0.205147e+01_jprb, 0.205123e+01_jprb &
36931  &, 0.205042e+01_jprb, 0.204906e+01_jprb, 0.204713e+01_jprb, 0.204465e+01_jprb &
36932  &, 0.204162e+01_jprb, 0.203805e+01_jprb, 0.203395e+01_jprb &
36933  &, 0.202934e+01_jprb, 0.202418e+01_jprb, 0.201855e+01_jprb, 0.201238e+01_jprb &
36934  &, 0.200571e+01_jprb, 0.199856e+01_jprb, 0.199090e+01_jprb &
36935  &, 0.198279e+01_jprb, 0.197421e+01_jprb, 0.196515e+01_jprb, 0.195567e+01_jprb &
36936  &, 0.194572e+01_jprb, 0.193538e+01_jprb, 0.192459e+01_jprb &
36937  &, 0.191337e+01_jprb, 0.190177e+01_jprb, 0.188977e+01_jprb, 0.187739e+01_jprb &
36938  &, 0.186465e+01_jprb, 0.185152e+01_jprb, 0.183803e+01_jprb &
36939  &, 0.182423e+01_jprb, 0.181006e+01_jprb, 0.179560e+01_jprb, 0.178083e+01_jprb &
36940  &, 0.176572e+01_jprb, 0.175036e+01_jprb, 0.173469e+01_jprb &
36941  &, 0.171877e+01_jprb, 0.170260e+01_jprb, 0.168618e+01_jprb, 0.166949e+01_jprb &
36942  &, 0.165259e+01_jprb, 0.163549e+01_jprb, 0.161820e+01_jprb &
36943  &, 0.160068e+01_jprb, 0.158300e+01_jprb, 0.156514e+01_jprb, 0.154713e+01_jprb &
36944  &, 0.152896e+01_jprb, 0.151066e+01_jprb, 0.149221e+01_jprb &
36945  &, 0.147364e+01_jprb, 0.145498e+01_jprb, 0.143622e+01_jprb, 0.141737e+01_jprb &
36946  &, 0.139843e+01_jprb, 0.137942e+01_jprb, 0.136036e+01_jprb &
36947  &, 0.134124e+01_jprb, 0.132209e+01_jprb, 0.130293e+01_jprb, 0.128369e+01_jprb &
36948  &, 0.126449e+01_jprb, 0.124527e+01_jprb, 0.122610e+01_jprb &
36949  &, 0.120690e+01_jprb, 0.118770e+01_jprb, 0.116857e+01_jprb, 0.114949e+01_jprb &
36950  &, 0.113044e+01_jprb, 0.111142e+01_jprb, 0.109248e+01_jprb &
36951  &, 0.107363e+01_jprb, 0.105484e+01_jprb, 0.103620e+01_jprb, 0.101760e+01_jprb &
36952  &, 0.999081e+00_jprb, 0.980655e+00_jprb, 0.962415e+00_jprb/)
36953 xcw( 847, :) = (/ &
36954  & 0.110229e+01_jprb, 0.112779e+01_jprb, 0.115323e+01_jprb, 0.117860e+01_jprb &
36955  &, 0.120388e+01_jprb, 0.122905e+01_jprb, 0.125410e+01_jprb &
36956  &, 0.127901e+01_jprb, 0.130377e+01_jprb, 0.132837e+01_jprb, 0.135278e+01_jprb &
36957  &, 0.137699e+01_jprb, 0.140099e+01_jprb, 0.142477e+01_jprb &
36958  &, 0.144830e+01_jprb, 0.147157e+01_jprb, 0.149457e+01_jprb, 0.151728e+01_jprb &
36959  &, 0.153969e+01_jprb, 0.156178e+01_jprb, 0.158354e+01_jprb &
36960  &, 0.160497e+01_jprb, 0.162603e+01_jprb, 0.164672e+01_jprb, 0.166702e+01_jprb &
36961  &, 0.168693e+01_jprb, 0.170643e+01_jprb, 0.172550e+01_jprb &
36962  &, 0.174414e+01_jprb, 0.176233e+01_jprb, 0.178007e+01_jprb, 0.179734e+01_jprb &
36963  &, 0.181413e+01_jprb, 0.183043e+01_jprb, 0.184624e+01_jprb &
36964  &, 0.186153e+01_jprb, 0.187631e+01_jprb, 0.189057e+01_jprb, 0.190429e+01_jprb &
36965  &, 0.191748e+01_jprb, 0.193012e+01_jprb, 0.194221e+01_jprb &
36966  &, 0.195375e+01_jprb, 0.196472e+01_jprb, 0.197512e+01_jprb, 0.198496e+01_jprb &
36967  &, 0.199421e+01_jprb, 0.200289e+01_jprb, 0.201099e+01_jprb &
36968  &, 0.201851e+01_jprb, 0.202544e+01_jprb, 0.203179e+01_jprb, 0.203755e+01_jprb &
36969  &, 0.204271e+01_jprb, 0.204730e+01_jprb, 0.205130e+01_jprb &
36970  &, 0.205471e+01_jprb, 0.205753e+01_jprb, 0.205978e+01_jprb, 0.206145e+01_jprb &
36971  &, 0.206254e+01_jprb, 0.206305e+01_jprb, 0.206300e+01_jprb &
36972  &, 0.206237e+01_jprb, 0.206119e+01_jprb, 0.205945e+01_jprb, 0.205717e+01_jprb &
36973  &, 0.205431e+01_jprb, 0.205093e+01_jprb, 0.204701e+01_jprb &
36974  &, 0.204256e+01_jprb, 0.203760e+01_jprb, 0.203211e+01_jprb, 0.202611e+01_jprb &
36975  &, 0.201959e+01_jprb, 0.201260e+01_jprb, 0.200511e+01_jprb &
36976  &, 0.199716e+01_jprb, 0.198872e+01_jprb, 0.197982e+01_jprb, 0.197048e+01_jprb &
36977  &, 0.196069e+01_jprb, 0.195045e+01_jprb, 0.193981e+01_jprb &
36978  &, 0.192874e+01_jprb, 0.191727e+01_jprb, 0.190538e+01_jprb, 0.189311e+01_jprb &
36979  &, 0.188048e+01_jprb, 0.186746e+01_jprb, 0.185411e+01_jprb &
36980  &, 0.184038e+01_jprb, 0.182633e+01_jprb, 0.181194e+01_jprb, 0.179725e+01_jprb &
36981  &, 0.178224e+01_jprb, 0.176695e+01_jprb, 0.175139e+01_jprb &
36982  &, 0.173551e+01_jprb, 0.171941e+01_jprb, 0.170305e+01_jprb, 0.168646e+01_jprb &
36983  &, 0.166962e+01_jprb, 0.165256e+01_jprb, 0.163528e+01_jprb &
36984  &, 0.161780e+01_jprb, 0.160015e+01_jprb, 0.158235e+01_jprb, 0.156433e+01_jprb &
36985  &, 0.154618e+01_jprb, 0.152789e+01_jprb, 0.150949e+01_jprb &
36986  &, 0.149092e+01_jprb, 0.147225e+01_jprb, 0.145347e+01_jprb, 0.143461e+01_jprb &
36987  &, 0.141564e+01_jprb, 0.139665e+01_jprb, 0.137756e+01_jprb &
36988  &, 0.135844e+01_jprb, 0.133924e+01_jprb, 0.132003e+01_jprb, 0.130077e+01_jprb &
36989  &, 0.128151e+01_jprb, 0.126226e+01_jprb, 0.124301e+01_jprb &
36990  &, 0.122377e+01_jprb, 0.120452e+01_jprb, 0.118530e+01_jprb, 0.116616e+01_jprb &
36991  &, 0.114699e+01_jprb, 0.112797e+01_jprb, 0.110895e+01_jprb &
36992  &, 0.108996e+01_jprb, 0.107114e+01_jprb, 0.105234e+01_jprb, 0.103365e+01_jprb &
36993  &, 0.101502e+01_jprb, 0.996546e+00_jprb, 0.978120e+00_jprb/)
36994 
36995 IF (lhook) CALL dr_hook('SU_MCICA:PART121',1,zhook_handle)
36996 END SUBROUTINE part121
36997 
36998 #ifdef VPP5000
36999 !OCL SCALAR
37000 #endif
37001 !option! -Nv -NO
37002 #ifdef RS6K
37003 @process nooptimize
37004 #endif
37005 !pgi$r opt=0
37006 SUBROUTINE part122
37007 
37008 REAL(KIND=JPRB) :: ZHOOK_HANDLE
37009 IF (lhook) CALL dr_hook('SU_MCICA:PART122',0,zhook_handle)
37010 
37011 xcw( 848, :) = (/ &
37012  & 0.110274e+01_jprb, 0.112836e+01_jprb, 0.115393e+01_jprb, 0.117943e+01_jprb &
37013  &, 0.120484e+01_jprb, 0.123014e+01_jprb, 0.125533e+01_jprb &
37014  &, 0.128039e+01_jprb, 0.130530e+01_jprb, 0.133004e+01_jprb, 0.135460e+01_jprb &
37015  &, 0.137897e+01_jprb, 0.140312e+01_jprb, 0.142706e+01_jprb &
37016  &, 0.145075e+01_jprb, 0.147418e+01_jprb, 0.149735e+01_jprb, 0.152023e+01_jprb &
37017  &, 0.154281e+01_jprb, 0.156508e+01_jprb, 0.158702e+01_jprb &
37018  &, 0.160862e+01_jprb, 0.162986e+01_jprb, 0.165073e+01_jprb, 0.167122e+01_jprb &
37019  &, 0.169132e+01_jprb, 0.171101e+01_jprb, 0.173027e+01_jprb &
37020  &, 0.174910e+01_jprb, 0.176749e+01_jprb, 0.178543e+01_jprb, 0.180289e+01_jprb &
37021  &, 0.181988e+01_jprb, 0.183638e+01_jprb, 0.185239e+01_jprb &
37022  &, 0.186789e+01_jprb, 0.188287e+01_jprb, 0.189733e+01_jprb, 0.191126e+01_jprb &
37023  &, 0.192466e+01_jprb, 0.193750e+01_jprb, 0.194980e+01_jprb &
37024  &, 0.196154e+01_jprb, 0.197272e+01_jprb, 0.198333e+01_jprb, 0.199336e+01_jprb &
37025  &, 0.200284e+01_jprb, 0.201173e+01_jprb, 0.202003e+01_jprb &
37026  &, 0.202775e+01_jprb, 0.203489e+01_jprb, 0.204144e+01_jprb, 0.204740e+01_jprb &
37027  &, 0.205278e+01_jprb, 0.205757e+01_jprb, 0.206177e+01_jprb &
37028  &, 0.206538e+01_jprb, 0.206841e+01_jprb, 0.207086e+01_jprb, 0.207273e+01_jprb &
37029  &, 0.207401e+01_jprb, 0.207472e+01_jprb, 0.207485e+01_jprb &
37030  &, 0.207444e+01_jprb, 0.207341e+01_jprb, 0.207189e+01_jprb, 0.206978e+01_jprb &
37031  &, 0.206712e+01_jprb, 0.206391e+01_jprb, 0.206018e+01_jprb &
37032  &, 0.205591e+01_jprb, 0.205110e+01_jprb, 0.204578e+01_jprb, 0.203995e+01_jprb &
37033  &, 0.203354e+01_jprb, 0.202679e+01_jprb, 0.201946e+01_jprb &
37034  &, 0.201166e+01_jprb, 0.200338e+01_jprb, 0.199462e+01_jprb, 0.198544e+01_jprb &
37035  &, 0.197579e+01_jprb, 0.196570e+01_jprb, 0.195517e+01_jprb &
37036  &, 0.194422e+01_jprb, 0.193287e+01_jprb, 0.192114e+01_jprb, 0.190898e+01_jprb &
37037  &, 0.189647e+01_jprb, 0.188356e+01_jprb, 0.187031e+01_jprb &
37038  &, 0.185668e+01_jprb, 0.184274e+01_jprb, 0.182848e+01_jprb, 0.181385e+01_jprb &
37039  &, 0.179896e+01_jprb, 0.178375e+01_jprb, 0.176824e+01_jprb &
37040  &, 0.175247e+01_jprb, 0.173641e+01_jprb, 0.172011e+01_jprb, 0.170358e+01_jprb &
37041  &, 0.168679e+01_jprb, 0.166979e+01_jprb, 0.165255e+01_jprb &
37042  &, 0.163515e+01_jprb, 0.161754e+01_jprb, 0.159974e+01_jprb, 0.158178e+01_jprb &
37043  &, 0.156365e+01_jprb, 0.154537e+01_jprb, 0.152694e+01_jprb &
37044  &, 0.150842e+01_jprb, 0.148975e+01_jprb, 0.147096e+01_jprb, 0.145208e+01_jprb &
37045  &, 0.143314e+01_jprb, 0.141412e+01_jprb, 0.139500e+01_jprb &
37046  &, 0.137584e+01_jprb, 0.135665e+01_jprb, 0.133738e+01_jprb, 0.131811e+01_jprb &
37047  &, 0.129878e+01_jprb, 0.127947e+01_jprb, 0.126019e+01_jprb &
37048  &, 0.124086e+01_jprb, 0.122158e+01_jprb, 0.120230e+01_jprb, 0.118307e+01_jprb &
37049  &, 0.116383e+01_jprb, 0.114469e+01_jprb, 0.112560e+01_jprb &
37050  &, 0.110659e+01_jprb, 0.108763e+01_jprb, 0.106874e+01_jprb, 0.104995e+01_jprb &
37051  &, 0.103122e+01_jprb, 0.101263e+01_jprb, 0.994154e+00_jprb/)
37052 xcw( 849, :) = (/ &
37053  & 0.110319e+01_jprb, 0.112894e+01_jprb, 0.115464e+01_jprb, 0.118026e+01_jprb &
37054  &, 0.120580e+01_jprb, 0.123125e+01_jprb, 0.125657e+01_jprb &
37055  &, 0.128177e+01_jprb, 0.130682e+01_jprb, 0.133171e+01_jprb, 0.135643e+01_jprb &
37056  &, 0.138095e+01_jprb, 0.140526e+01_jprb, 0.142936e+01_jprb &
37057  &, 0.145321e+01_jprb, 0.147681e+01_jprb, 0.150015e+01_jprb, 0.152320e+01_jprb &
37058  &, 0.154595e+01_jprb, 0.156840e+01_jprb, 0.159052e+01_jprb &
37059  &, 0.161229e+01_jprb, 0.163372e+01_jprb, 0.165478e+01_jprb, 0.167545e+01_jprb &
37060  &, 0.169574e+01_jprb, 0.171562e+01_jprb, 0.173507e+01_jprb &
37061  &, 0.175410e+01_jprb, 0.177269e+01_jprb, 0.179081e+01_jprb, 0.180848e+01_jprb &
37062  &, 0.182567e+01_jprb, 0.184237e+01_jprb, 0.185858e+01_jprb &
37063  &, 0.187428e+01_jprb, 0.188947e+01_jprb, 0.190413e+01_jprb, 0.191828e+01_jprb &
37064  &, 0.193187e+01_jprb, 0.194493e+01_jprb, 0.195743e+01_jprb &
37065  &, 0.196938e+01_jprb, 0.198078e+01_jprb, 0.199159e+01_jprb, 0.200184e+01_jprb &
37066  &, 0.201152e+01_jprb, 0.202062e+01_jprb, 0.202914e+01_jprb &
37067  &, 0.203707e+01_jprb, 0.204442e+01_jprb, 0.205117e+01_jprb, 0.205733e+01_jprb &
37068  &, 0.206292e+01_jprb, 0.206790e+01_jprb, 0.207233e+01_jprb &
37069  &, 0.207614e+01_jprb, 0.207938e+01_jprb, 0.208202e+01_jprb, 0.208408e+01_jprb &
37070  &, 0.208557e+01_jprb, 0.208649e+01_jprb, 0.208682e+01_jprb &
37071  &, 0.208658e+01_jprb, 0.208578e+01_jprb, 0.208442e+01_jprb, 0.208250e+01_jprb &
37072  &, 0.208002e+01_jprb, 0.207701e+01_jprb, 0.207346e+01_jprb &
37073  &, 0.206937e+01_jprb, 0.206473e+01_jprb, 0.205959e+01_jprb, 0.205393e+01_jprb &
37074  &, 0.204776e+01_jprb, 0.204109e+01_jprb, 0.203393e+01_jprb &
37075  &, 0.202591e+01_jprb, 0.201817e+01_jprb, 0.200957e+01_jprb, 0.200051e+01_jprb &
37076  &, 0.199101e+01_jprb, 0.198107e+01_jprb, 0.197069e+01_jprb &
37077  &, 0.195987e+01_jprb, 0.194868e+01_jprb, 0.193704e+01_jprb, 0.192503e+01_jprb &
37078  &, 0.191261e+01_jprb, 0.189984e+01_jprb, 0.188670e+01_jprb &
37079  &, 0.187318e+01_jprb, 0.185934e+01_jprb, 0.184514e+01_jprb, 0.183065e+01_jprb &
37080  &, 0.181584e+01_jprb, 0.180069e+01_jprb, 0.178530e+01_jprb &
37081  &, 0.176957e+01_jprb, 0.175362e+01_jprb, 0.173739e+01_jprb, 0.172088e+01_jprb &
37082  &, 0.170416e+01_jprb, 0.168721e+01_jprb, 0.167006e+01_jprb &
37083  &, 0.165267e+01_jprb, 0.163510e+01_jprb, 0.161733e+01_jprb, 0.159940e+01_jprb &
37084  &, 0.158129e+01_jprb, 0.156303e+01_jprb, 0.154465e+01_jprb &
37085  &, 0.152610e+01_jprb, 0.150743e+01_jprb, 0.148868e+01_jprb, 0.146979e+01_jprb &
37086  &, 0.145083e+01_jprb, 0.143179e+01_jprb, 0.141268e+01_jprb &
37087  &, 0.139349e+01_jprb, 0.137425e+01_jprb, 0.135498e+01_jprb, 0.133567e+01_jprb &
37088  &, 0.131633e+01_jprb, 0.129694e+01_jprb, 0.127758e+01_jprb &
37089  &, 0.125823e+01_jprb, 0.123886e+01_jprb, 0.121954e+01_jprb, 0.120020e+01_jprb &
37090  &, 0.118097e+01_jprb, 0.116170e+01_jprb, 0.114255e+01_jprb &
37091  &, 0.112340e+01_jprb, 0.110436e+01_jprb, 0.108539e+01_jprb, 0.106650e+01_jprb &
37092  &, 0.104773e+01_jprb, 0.102898e+01_jprb, 0.101038e+01_jprb/)
37093 xcw( 850, :) = (/ &
37094  & 0.110365e+01_jprb, 0.112952e+01_jprb, 0.115534e+01_jprb, 0.118110e+01_jprb &
37095  &, 0.120677e+01_jprb, 0.123235e+01_jprb, 0.125782e+01_jprb &
37096  &, 0.128316e+01_jprb, 0.130836e+01_jprb, 0.133340e+01_jprb, 0.135827e+01_jprb &
37097  &, 0.138294e+01_jprb, 0.140742e+01_jprb, 0.143167e+01_jprb &
37098  &, 0.145569e+01_jprb, 0.147946e+01_jprb, 0.150296e+01_jprb, 0.152618e+01_jprb &
37099  &, 0.154911e+01_jprb, 0.157173e+01_jprb, 0.159403e+01_jprb &
37100  &, 0.161599e+01_jprb, 0.163760e+01_jprb, 0.165885e+01_jprb, 0.167971e+01_jprb &
37101  &, 0.170019e+01_jprb, 0.172025e+01_jprb, 0.173990e+01_jprb &
37102  &, 0.175913e+01_jprb, 0.177791e+01_jprb, 0.179624e+01_jprb, 0.181410e+01_jprb &
37103  &, 0.183149e+01_jprb, 0.184840e+01_jprb, 0.186481e+01_jprb &
37104  &, 0.188072e+01_jprb, 0.189611e+01_jprb, 0.191099e+01_jprb, 0.192534e+01_jprb &
37105  &, 0.193913e+01_jprb, 0.195241e+01_jprb, 0.196513e+01_jprb &
37106  &, 0.197729e+01_jprb, 0.198888e+01_jprb, 0.199992e+01_jprb, 0.201038e+01_jprb &
37107  &, 0.202027e+01_jprb, 0.202957e+01_jprb, 0.203830e+01_jprb &
37108  &, 0.204645e+01_jprb, 0.205400e+01_jprb, 0.206097e+01_jprb, 0.206736e+01_jprb &
37109  &, 0.207314e+01_jprb, 0.207834e+01_jprb, 0.208296e+01_jprb &
37110  &, 0.208699e+01_jprb, 0.209042e+01_jprb, 0.209328e+01_jprb, 0.209555e+01_jprb &
37111  &, 0.209724e+01_jprb, 0.209835e+01_jprb, 0.209887e+01_jprb &
37112  &, 0.209883e+01_jprb, 0.209823e+01_jprb, 0.209706e+01_jprb, 0.209533e+01_jprb &
37113  &, 0.209304e+01_jprb, 0.209022e+01_jprb, 0.208684e+01_jprb &
37114  &, 0.208293e+01_jprb, 0.207849e+01_jprb, 0.207350e+01_jprb, 0.206802e+01_jprb &
37115  &, 0.206203e+01_jprb, 0.205553e+01_jprb, 0.204853e+01_jprb &
37116  &, 0.204104e+01_jprb, 0.203308e+01_jprb, 0.202465e+01_jprb, 0.201575e+01_jprb &
37117  &, 0.200640e+01_jprb, 0.199659e+01_jprb, 0.198635e+01_jprb &
37118  &, 0.197569e+01_jprb, 0.196459e+01_jprb, 0.195311e+01_jprb, 0.194120e+01_jprb &
37119  &, 0.192892e+01_jprb, 0.191627e+01_jprb, 0.190325e+01_jprb &
37120  &, 0.188984e+01_jprb, 0.187610e+01_jprb, 0.186201e+01_jprb, 0.184761e+01_jprb &
37121  &, 0.183286e+01_jprb, 0.181784e+01_jprb, 0.180249e+01_jprb &
37122  &, 0.178688e+01_jprb, 0.177097e+01_jprb, 0.175482e+01_jprb, 0.173842e+01_jprb &
37123  &, 0.172176e+01_jprb, 0.170487e+01_jprb, 0.168773e+01_jprb &
37124  &, 0.167039e+01_jprb, 0.165286e+01_jprb, 0.163513e+01_jprb, 0.161723e+01_jprb &
37125  &, 0.159915e+01_jprb, 0.158091e+01_jprb, 0.156255e+01_jprb &
37126  &, 0.154404e+01_jprb, 0.152538e+01_jprb, 0.150663e+01_jprb, 0.148774e+01_jprb &
37127  &, 0.146876e+01_jprb, 0.144970e+01_jprb, 0.143056e+01_jprb &
37128  &, 0.141134e+01_jprb, 0.139211e+01_jprb, 0.137280e+01_jprb, 0.135343e+01_jprb &
37129  &, 0.133403e+01_jprb, 0.131462e+01_jprb, 0.129525e+01_jprb &
37130  &, 0.127582e+01_jprb, 0.125641e+01_jprb, 0.123700e+01_jprb, 0.121761e+01_jprb &
37131  &, 0.119828e+01_jprb, 0.117901e+01_jprb, 0.115973e+01_jprb &
37132  &, 0.114052e+01_jprb, 0.112141e+01_jprb, 0.110235e+01_jprb, 0.108337e+01_jprb &
37133  &, 0.106444e+01_jprb, 0.104565e+01_jprb, 0.102694e+01_jprb/)
37134 xcw( 851, :) = (/ &
37135  & 0.110411e+01_jprb, 0.113010e+01_jprb, 0.115605e+01_jprb, 0.118194e+01_jprb &
37136  &, 0.120775e+01_jprb, 0.123347e+01_jprb, 0.125908e+01_jprb &
37137  &, 0.128456e+01_jprb, 0.130990e+01_jprb, 0.133509e+01_jprb, 0.136011e+01_jprb &
37138  &, 0.138495e+01_jprb, 0.140958e+01_jprb, 0.143400e+01_jprb &
37139  &, 0.145818e+01_jprb, 0.148211e+01_jprb, 0.150579e+01_jprb, 0.152919e+01_jprb &
37140  &, 0.155229e+01_jprb, 0.157509e+01_jprb, 0.159757e+01_jprb &
37141  &, 0.161971e+01_jprb, 0.164151e+01_jprb, 0.166294e+01_jprb, 0.168399e+01_jprb &
37142  &, 0.170466e+01_jprb, 0.172492e+01_jprb, 0.174477e+01_jprb &
37143  &, 0.176419e+01_jprb, 0.178317e+01_jprb, 0.180170e+01_jprb, 0.181976e+01_jprb &
37144  &, 0.183736e+01_jprb, 0.185447e+01_jprb, 0.187109e+01_jprb &
37145  &, 0.188720e+01_jprb, 0.190281e+01_jprb, 0.191788e+01_jprb, 0.193244e+01_jprb &
37146  &, 0.194647e+01_jprb, 0.195994e+01_jprb, 0.197287e+01_jprb &
37147  &, 0.198524e+01_jprb, 0.199706e+01_jprb, 0.200830e+01_jprb, 0.201898e+01_jprb &
37148  &, 0.202908e+01_jprb, 0.203860e+01_jprb, 0.204753e+01_jprb &
37149  &, 0.205589e+01_jprb, 0.206366e+01_jprb, 0.207085e+01_jprb, 0.207743e+01_jprb &
37150  &, 0.208345e+01_jprb, 0.208886e+01_jprb, 0.209368e+01_jprb &
37151  &, 0.209791e+01_jprb, 0.210157e+01_jprb, 0.210462e+01_jprb, 0.210709e+01_jprb &
37152  &, 0.210898e+01_jprb, 0.211029e+01_jprb, 0.211103e+01_jprb &
37153  &, 0.211119e+01_jprb, 0.211077e+01_jprb, 0.210980e+01_jprb, 0.210827e+01_jprb &
37154  &, 0.210616e+01_jprb, 0.210354e+01_jprb, 0.210034e+01_jprb &
37155  &, 0.209661e+01_jprb, 0.209236e+01_jprb, 0.208755e+01_jprb, 0.208225e+01_jprb &
37156  &, 0.207643e+01_jprb, 0.207009e+01_jprb, 0.206326e+01_jprb &
37157  &, 0.205594e+01_jprb, 0.204814e+01_jprb, 0.203986e+01_jprb, 0.203113e+01_jprb &
37158  &, 0.202192e+01_jprb, 0.201225e+01_jprb, 0.200217e+01_jprb &
37159  &, 0.199165e+01_jprb, 0.198068e+01_jprb, 0.196933e+01_jprb, 0.195757e+01_jprb &
37160  &, 0.194542e+01_jprb, 0.193286e+01_jprb, 0.191995e+01_jprb &
37161  &, 0.190668e+01_jprb, 0.189303e+01_jprb, 0.187907e+01_jprb, 0.186474e+01_jprb &
37162  &, 0.185013e+01_jprb, 0.183516e+01_jprb, 0.181994e+01_jprb &
37163  &, 0.180438e+01_jprb, 0.178855e+01_jprb, 0.177247e+01_jprb, 0.175614e+01_jprb &
37164  &, 0.173951e+01_jprb, 0.172268e+01_jprb, 0.170560e+01_jprb &
37165  &, 0.168835e+01_jprb, 0.167086e+01_jprb, 0.165317e+01_jprb, 0.163531e+01_jprb &
37166  &, 0.161726e+01_jprb, 0.159905e+01_jprb, 0.158066e+01_jprb &
37167  &, 0.156217e+01_jprb, 0.154352e+01_jprb, 0.152477e+01_jprb, 0.150591e+01_jprb &
37168  &, 0.148693e+01_jprb, 0.146785e+01_jprb, 0.144869e+01_jprb &
37169  &, 0.142949e+01_jprb, 0.141012e+01_jprb, 0.139087e+01_jprb, 0.137145e+01_jprb &
37170  &, 0.135204e+01_jprb, 0.133092e+01_jprb, 0.131313e+01_jprb &
37171  &, 0.129368e+01_jprb, 0.127419e+01_jprb, 0.125475e+01_jprb, 0.123532e+01_jprb &
37172  &, 0.121588e+01_jprb, 0.119650e+01_jprb, 0.117722e+01_jprb &
37173  &, 0.115788e+01_jprb, 0.113869e+01_jprb, 0.111956e+01_jprb, 0.110043e+01_jprb &
37174  &, 0.108147e+01_jprb, 0.106251e+01_jprb, 0.104370e+01_jprb/)
37175 xcw( 852, :) = (/ &
37176  & 0.110457e+01_jprb, 0.113069e+01_jprb, 0.115677e+01_jprb, 0.118278e+01_jprb &
37177  &, 0.120873e+01_jprb, 0.123458e+01_jprb, 0.126033e+01_jprb &
37178  &, 0.128596e+01_jprb, 0.131146e+01_jprb, 0.133680e+01_jprb, 0.136197e+01_jprb &
37179  &, 0.138696e+01_jprb, 0.141176e+01_jprb, 0.143633e+01_jprb &
37180  &, 0.146068e+01_jprb, 0.148479e+01_jprb, 0.150863e+01_jprb, 0.153221e+01_jprb &
37181  &, 0.155549e+01_jprb, 0.157847e+01_jprb, 0.160112e+01_jprb &
37182  &, 0.162345e+01_jprb, 0.164543e+01_jprb, 0.166705e+01_jprb, 0.168830e+01_jprb &
37183  &, 0.170915e+01_jprb, 0.172962e+01_jprb, 0.174966e+01_jprb &
37184  &, 0.176928e+01_jprb, 0.178846e+01_jprb, 0.180719e+01_jprb, 0.182546e+01_jprb &
37185  &, 0.184326e+01_jprb, 0.186058e+01_jprb, 0.187740e+01_jprb &
37186  &, 0.189373e+01_jprb, 0.190954e+01_jprb, 0.192484e+01_jprb, 0.193960e+01_jprb &
37187  &, 0.195384e+01_jprb, 0.196752e+01_jprb, 0.198065e+01_jprb &
37188  &, 0.199325e+01_jprb, 0.200528e+01_jprb, 0.201674e+01_jprb, 0.202763e+01_jprb &
37189  &, 0.203795e+01_jprb, 0.204769e+01_jprb, 0.205684e+01_jprb &
37190  &, 0.206541e+01_jprb, 0.207339e+01_jprb, 0.208079e+01_jprb, 0.208760e+01_jprb &
37191  &, 0.209382e+01_jprb, 0.209945e+01_jprb, 0.210448e+01_jprb &
37192  &, 0.210893e+01_jprb, 0.211278e+01_jprb, 0.211604e+01_jprb, 0.211872e+01_jprb &
37193  &, 0.212083e+01_jprb, 0.212234e+01_jprb, 0.212328e+01_jprb &
37194  &, 0.212364e+01_jprb, 0.212342e+01_jprb, 0.212265e+01_jprb, 0.212131e+01_jprb &
37195  &, 0.211941e+01_jprb, 0.211696e+01_jprb, 0.211395e+01_jprb &
37196  &, 0.211042e+01_jprb, 0.210633e+01_jprb, 0.210173e+01_jprb, 0.209659e+01_jprb &
37197  &, 0.209095e+01_jprb, 0.208479e+01_jprb, 0.207814e+01_jprb &
37198  &, 0.207098e+01_jprb, 0.206334e+01_jprb, 0.205521e+01_jprb, 0.204663e+01_jprb &
37199  &, 0.203759e+01_jprb, 0.202809e+01_jprb, 0.201813e+01_jprb &
37200  &, 0.200774e+01_jprb, 0.199694e+01_jprb, 0.198572e+01_jprb, 0.197409e+01_jprb &
37201  &, 0.196207e+01_jprb, 0.194963e+01_jprb, 0.193684e+01_jprb &
37202  &, 0.192369e+01_jprb, 0.191014e+01_jprb, 0.189629e+01_jprb, 0.188207e+01_jprb &
37203  &, 0.186752e+01_jprb, 0.185269e+01_jprb, 0.183752e+01_jprb &
37204  &, 0.182209e+01_jprb, 0.180634e+01_jprb, 0.179030e+01_jprb, 0.177405e+01_jprb &
37205  &, 0.175749e+01_jprb, 0.174072e+01_jprb, 0.172371e+01_jprb &
37206  &, 0.170647e+01_jprb, 0.168903e+01_jprb, 0.167139e+01_jprb, 0.165356e+01_jprb &
37207  &, 0.163555e+01_jprb, 0.161736e+01_jprb, 0.159904e+01_jprb &
37208  &, 0.158057e+01_jprb, 0.156192e+01_jprb, 0.154318e+01_jprb, 0.152428e+01_jprb &
37209  &, 0.150534e+01_jprb, 0.148624e+01_jprb, 0.146706e+01_jprb &
37210  &, 0.144784e+01_jprb, 0.142854e+01_jprb, 0.140919e+01_jprb, 0.138978e+01_jprb &
37211  &, 0.137027e+01_jprb, 0.135080e+01_jprb, 0.133129e+01_jprb &
37212  &, 0.131177e+01_jprb, 0.129225e+01_jprb, 0.127278e+01_jprb, 0.125326e+01_jprb &
37213  &, 0.123377e+01_jprb, 0.121434e+01_jprb, 0.119489e+01_jprb &
37214  &, 0.117555e+01_jprb, 0.115623e+01_jprb, 0.113701e+01_jprb, 0.111781e+01_jprb &
37215  &, 0.109869e+01_jprb, 0.107970e+01_jprb, 0.106078e+01_jprb/)
37216 xcw( 853, :) = (/ &
37217  & 0.110504e+01_jprb, 0.113128e+01_jprb, 0.115748e+01_jprb, 0.118363e+01_jprb &
37218  &, 0.120971e+01_jprb, 0.123571e+01_jprb, 0.126160e+01_jprb &
37219  &, 0.128738e+01_jprb, 0.131302e+01_jprb, 0.133851e+01_jprb, 0.136384e+01_jprb &
37220  &, 0.138899e+01_jprb, 0.141394e+01_jprb, 0.143869e+01_jprb &
37221  &, 0.146320e+01_jprb, 0.148748e+01_jprb, 0.151150e+01_jprb, 0.153524e+01_jprb &
37222  &, 0.155870e+01_jprb, 0.158186e+01_jprb, 0.160470e+01_jprb &
37223  &, 0.162722e+01_jprb, 0.164938e+01_jprb, 0.167119e+01_jprb, 0.169263e+01_jprb &
37224  &, 0.171368e+01_jprb, 0.173434e+01_jprb, 0.175458e+01_jprb &
37225  &, 0.177440e+01_jprb, 0.179378e+01_jprb, 0.181272e+01_jprb, 0.183119e+01_jprb &
37226  &, 0.184920e+01_jprb, 0.186672e+01_jprb, 0.188376e+01_jprb &
37227  &, 0.190029e+01_jprb, 0.191632e+01_jprb, 0.193183e+01_jprb, 0.194681e+01_jprb &
37228  &, 0.196126e+01_jprb, 0.197516e+01_jprb, 0.198851e+01_jprb &
37229  &, 0.200132e+01_jprb, 0.201356e+01_jprb, 0.202525e+01_jprb, 0.203635e+01_jprb &
37230  &, 0.204689e+01_jprb, 0.205684e+01_jprb, 0.206617e+01_jprb &
37231  &, 0.207500e+01_jprb, 0.208320e+01_jprb, 0.209083e+01_jprb, 0.209784e+01_jprb &
37232  &, 0.210427e+01_jprb, 0.211012e+01_jprb, 0.211536e+01_jprb &
37233  &, 0.212003e+01_jprb, 0.212408e+01_jprb, 0.212756e+01_jprb, 0.213046e+01_jprb &
37234  &, 0.213276e+01_jprb, 0.213449e+01_jprb, 0.213563e+01_jprb &
37235  &, 0.213619e+01_jprb, 0.213618e+01_jprb, 0.213560e+01_jprb, 0.213446e+01_jprb &
37236  &, 0.213276e+01_jprb, 0.213051e+01_jprb, 0.212768e+01_jprb &
37237  &, 0.212434e+01_jprb, 0.212045e+01_jprb, 0.211602e+01_jprb, 0.211108e+01_jprb &
37238  &, 0.210560e+01_jprb, 0.209962e+01_jprb, 0.209313e+01_jprb &
37239  &, 0.208615e+01_jprb, 0.207868e+01_jprb, 0.207072e+01_jprb, 0.206229e+01_jprb &
37240  &, 0.205340e+01_jprb, 0.204404e+01_jprb, 0.203425e+01_jprb &
37241  &, 0.202401e+01_jprb, 0.201334e+01_jprb, 0.200225e+01_jprb, 0.199076e+01_jprb &
37242  &, 0.197886e+01_jprb, 0.196658e+01_jprb, 0.195391e+01_jprb &
37243  &, 0.194085e+01_jprb, 0.192745e+01_jprb, 0.191368e+01_jprb, 0.189953e+01_jprb &
37244  &, 0.188516e+01_jprb, 0.187039e+01_jprb, 0.185532e+01_jprb &
37245  &, 0.183994e+01_jprb, 0.182431e+01_jprb, 0.180836e+01_jprb, 0.179215e+01_jprb &
37246  &, 0.177570e+01_jprb, 0.175896e+01_jprb, 0.174201e+01_jprb &
37247  &, 0.172487e+01_jprb, 0.170745e+01_jprb, 0.168985e+01_jprb, 0.167207e+01_jprb &
37248  &, 0.165409e+01_jprb, 0.163594e+01_jprb, 0.161764e+01_jprb &
37249  &, 0.159915e+01_jprb, 0.158056e+01_jprb, 0.156183e+01_jprb, 0.154293e+01_jprb &
37250  &, 0.152398e+01_jprb, 0.150487e+01_jprb, 0.148573e+01_jprb &
37251  &, 0.146643e+01_jprb, 0.144711e+01_jprb, 0.142772e+01_jprb, 0.140827e+01_jprb &
37252  &, 0.138882e+01_jprb, 0.136929e+01_jprb, 0.134972e+01_jprb &
37253  &, 0.133018e+01_jprb, 0.131059e+01_jprb, 0.129103e+01_jprb, 0.127148e+01_jprb &
37254  &, 0.125189e+01_jprb, 0.123237e+01_jprb, 0.121292e+01_jprb &
37255  &, 0.119346e+01_jprb, 0.117407e+01_jprb, 0.115472e+01_jprb, 0.113550e+01_jprb &
37256  &, 0.111630e+01_jprb, 0.109715e+01_jprb, 0.107813e+01_jprb/)
37257 xcw( 854, :) = (/ &
37258  & 0.110550e+01_jprb, 0.113187e+01_jprb, 0.115820e+01_jprb, 0.118449e+01_jprb &
37259  &, 0.121070e+01_jprb, 0.123684e+01_jprb, 0.126287e+01_jprb &
37260  &, 0.128880e+01_jprb, 0.131459e+01_jprb, 0.134023e+01_jprb, 0.136572e+01_jprb &
37261  &, 0.139103e+01_jprb, 0.141614e+01_jprb, 0.144105e+01_jprb &
37262  &, 0.146574e+01_jprb, 0.149018e+01_jprb, 0.151437e+01_jprb, 0.153830e+01_jprb &
37263  &, 0.156194e+01_jprb, 0.158528e+01_jprb, 0.160830e+01_jprb &
37264  &, 0.163100e+01_jprb, 0.165336e+01_jprb, 0.167536e+01_jprb, 0.169699e+01_jprb &
37265  &, 0.171824e+01_jprb, 0.173909e+01_jprb, 0.175953e+01_jprb &
37266  &, 0.177956e+01_jprb, 0.179914e+01_jprb, 0.181828e+01_jprb, 0.183696e+01_jprb &
37267  &, 0.185518e+01_jprb, 0.187291e+01_jprb, 0.189016e+01_jprb &
37268  &, 0.190691e+01_jprb, 0.192314e+01_jprb, 0.193887e+01_jprb, 0.195406e+01_jprb &
37269  &, 0.196869e+01_jprb, 0.198285e+01_jprb, 0.199642e+01_jprb &
37270  &, 0.200945e+01_jprb, 0.202191e+01_jprb, 0.203381e+01_jprb, 0.204514e+01_jprb &
37271  &, 0.205588e+01_jprb, 0.206606e+01_jprb, 0.207566e+01_jprb &
37272  &, 0.208467e+01_jprb, 0.209308e+01_jprb, 0.210091e+01_jprb, 0.210816e+01_jprb &
37273  &, 0.211479e+01_jprb, 0.212087e+01_jprb, 0.212633e+01_jprb &
37274  &, 0.213118e+01_jprb, 0.213549e+01_jprb, 0.213918e+01_jprb, 0.214229e+01_jprb &
37275  &, 0.214480e+01_jprb, 0.214673e+01_jprb, 0.214807e+01_jprb &
37276  &, 0.214884e+01_jprb, 0.214905e+01_jprb, 0.214866e+01_jprb, 0.214773e+01_jprb &
37277  &, 0.214622e+01_jprb, 0.214416e+01_jprb, 0.214154e+01_jprb &
37278  &, 0.213839e+01_jprb, 0.213469e+01_jprb, 0.213046e+01_jprb, 0.212569e+01_jprb &
37279  &, 0.212040e+01_jprb, 0.211458e+01_jprb, 0.210827e+01_jprb &
37280  &, 0.210148e+01_jprb, 0.209416e+01_jprb, 0.208638e+01_jprb, 0.207810e+01_jprb &
37281  &, 0.206936e+01_jprb, 0.206018e+01_jprb, 0.205053e+01_jprb &
37282  &, 0.204044e+01_jprb, 0.202991e+01_jprb, 0.201899e+01_jprb, 0.200760e+01_jprb &
37283  &, 0.199584e+01_jprb, 0.198368e+01_jprb, 0.197114e+01_jprb &
37284  &, 0.195820e+01_jprb, 0.194492e+01_jprb, 0.193127e+01_jprb, 0.191726e+01_jprb &
37285  &, 0.190289e+01_jprb, 0.188830e+01_jprb, 0.187332e+01_jprb &
37286  &, 0.185804e+01_jprb, 0.184247e+01_jprb, 0.182660e+01_jprb, 0.181047e+01_jprb &
37287  &, 0.179410e+01_jprb, 0.177743e+01_jprb, 0.176055e+01_jprb &
37288  &, 0.174343e+01_jprb, 0.172610e+01_jprb, 0.170856e+01_jprb, 0.169078e+01_jprb &
37289  &, 0.167285e+01_jprb, 0.165473e+01_jprb, 0.163646e+01_jprb &
37290  &, 0.161799e+01_jprb, 0.159942e+01_jprb, 0.158066e+01_jprb, 0.156181e+01_jprb &
37291  &, 0.154286e+01_jprb, 0.152375e+01_jprb, 0.150460e+01_jprb &
37292  &, 0.148533e+01_jprb, 0.146598e+01_jprb, 0.144656e+01_jprb, 0.142707e+01_jprb &
37293  &, 0.140758e+01_jprb, 0.138800e+01_jprb, 0.136842e+01_jprb &
37294  &, 0.134882e+01_jprb, 0.132915e+01_jprb, 0.130957e+01_jprb, 0.128993e+01_jprb &
37295  &, 0.127031e+01_jprb, 0.125074e+01_jprb, 0.123118e+01_jprb &
37296  &, 0.121167e+01_jprb, 0.119216e+01_jprb, 0.117274e+01_jprb, 0.115338e+01_jprb &
37297  &, 0.113410e+01_jprb, 0.111492e+01_jprb, 0.109574e+01_jprb/)
37298 
37299 IF (lhook) CALL dr_hook('SU_MCICA:PART122',1,zhook_handle)
37300 END SUBROUTINE part122
37301 
37302 #ifdef VPP5000
37303 !OCL SCALAR
37304 #endif
37305 !option! -Nv -NO
37306 #ifdef RS6K
37307 @process nooptimize
37308 #endif
37309 !pgi$r opt=0
37310 SUBROUTINE part123
37311 
37312 REAL(KIND=JPRB) :: ZHOOK_HANDLE
37313 IF (lhook) CALL dr_hook('SU_MCICA:PART123',0,zhook_handle)
37314 
37315 xcw( 855, :) = (/ &
37316  & 0.110597e+01_jprb, 0.113246e+01_jprb, 0.115893e+01_jprb, 0.118535e+01_jprb &
37317  &, 0.121170e+01_jprb, 0.123797e+01_jprb, 0.126415e+01_jprb &
37318  &, 0.129022e+01_jprb, 0.131617e+01_jprb, 0.134197e+01_jprb, 0.136761e+01_jprb &
37319  &, 0.139308e+01_jprb, 0.141836e+01_jprb, 0.144343e+01_jprb &
37320  &, 0.146828e+01_jprb, 0.149290e+01_jprb, 0.151727e+01_jprb, 0.154137e+01_jprb &
37321  &, 0.156519e+01_jprb, 0.158871e+01_jprb, 0.161193e+01_jprb &
37322  &, 0.163481e+01_jprb, 0.165736e+01_jprb, 0.167955e+01_jprb, 0.170138e+01_jprb &
37323  &, 0.172283e+01_jprb, 0.174388e+01_jprb, 0.176452e+01_jprb &
37324  &, 0.178475e+01_jprb, 0.180453e+01_jprb, 0.182388e+01_jprb, 0.184277e+01_jprb &
37325  &, 0.186120e+01_jprb, 0.187915e+01_jprb, 0.189660e+01_jprb &
37326  &, 0.191357e+01_jprb, 0.193002e+01_jprb, 0.194596e+01_jprb, 0.196137e+01_jprb &
37327  &, 0.197626e+01_jprb, 0.199059e+01_jprb, 0.200440e+01_jprb &
37328  &, 0.201763e+01_jprb, 0.203032e+01_jprb, 0.204243e+01_jprb, 0.205399e+01_jprb &
37329  &, 0.206496e+01_jprb, 0.207535e+01_jprb, 0.208517e+01_jprb &
37330  &, 0.209439e+01_jprb, 0.210304e+01_jprb, 0.211110e+01_jprb, 0.211856e+01_jprb &
37331  &, 0.212543e+01_jprb, 0.213170e+01_jprb, 0.213740e+01_jprb &
37332  &, 0.214248e+01_jprb, 0.214698e+01_jprb, 0.215089e+01_jprb, 0.215421e+01_jprb &
37333  &, 0.215694e+01_jprb, 0.215907e+01_jprb, 0.216064e+01_jprb &
37334  &, 0.216162e+01_jprb, 0.216202e+01_jprb, 0.216186e+01_jprb, 0.216111e+01_jprb &
37335  &, 0.215980e+01_jprb, 0.215795e+01_jprb, 0.215552e+01_jprb &
37336  &, 0.215256e+01_jprb, 0.214905e+01_jprb, 0.214501e+01_jprb, 0.214043e+01_jprb &
37337  &, 0.213531e+01_jprb, 0.212970e+01_jprb, 0.212356e+01_jprb &
37338  &, 0.211692e+01_jprb, 0.210978e+01_jprb, 0.210217e+01_jprb, 0.209407e+01_jprb &
37339  &, 0.208551e+01_jprb, 0.207646e+01_jprb, 0.206698e+01_jprb &
37340  &, 0.205703e+01_jprb, 0.204665e+01_jprb, 0.203584e+01_jprb, 0.202463e+01_jprb &
37341  &, 0.201299e+01_jprb, 0.200097e+01_jprb, 0.198856e+01_jprb &
37342  &, 0.197575e+01_jprb, 0.196259e+01_jprb, 0.194905e+01_jprb, 0.193516e+01_jprb &
37343  &, 0.192093e+01_jprb, 0.190638e+01_jprb, 0.189151e+01_jprb &
37344  &, 0.187632e+01_jprb, 0.186084e+01_jprb, 0.184507e+01_jprb, 0.182902e+01_jprb &
37345  &, 0.181269e+01_jprb, 0.179606e+01_jprb, 0.177929e+01_jprb &
37346  &, 0.176223e+01_jprb, 0.174489e+01_jprb, 0.172744e+01_jprb, 0.170975e+01_jprb &
37347  &, 0.169186e+01_jprb, 0.167370e+01_jprb, 0.165551e+01_jprb &
37348  &, 0.163706e+01_jprb, 0.161852e+01_jprb, 0.159981e+01_jprb, 0.158093e+01_jprb &
37349  &, 0.156199e+01_jprb, 0.154287e+01_jprb, 0.152371e+01_jprb &
37350  &, 0.150442e+01_jprb, 0.148505e+01_jprb, 0.146566e+01_jprb, 0.144613e+01_jprb &
37351  &, 0.142660e+01_jprb, 0.140702e+01_jprb, 0.138739e+01_jprb &
37352  &, 0.136773e+01_jprb, 0.134805e+01_jprb, 0.132834e+01_jprb, 0.130867e+01_jprb &
37353  &, 0.128902e+01_jprb, 0.126935e+01_jprb, 0.124975e+01_jprb &
37354  &, 0.123012e+01_jprb, 0.121055e+01_jprb, 0.119107e+01_jprb, 0.117164e+01_jprb &
37355  &, 0.115221e+01_jprb, 0.113289e+01_jprb, 0.111368e+01_jprb/)
37356 xcw( 856, :) = (/ &
37357  & 0.110644e+01_jprb, 0.113306e+01_jprb, 0.115966e+01_jprb, 0.118621e+01_jprb &
37358  &, 0.121270e+01_jprb, 0.123912e+01_jprb, 0.126544e+01_jprb &
37359  &, 0.129166e+01_jprb, 0.131775e+01_jprb, 0.134371e+01_jprb, 0.136951e+01_jprb &
37360  &, 0.139514e+01_jprb, 0.142058e+01_jprb, 0.144582e+01_jprb &
37361  &, 0.147085e+01_jprb, 0.149564e+01_jprb, 0.152018e+01_jprb, 0.154446e+01_jprb &
37362  &, 0.156846e+01_jprb, 0.159217e+01_jprb, 0.161557e+01_jprb &
37363  &, 0.163865e+01_jprb, 0.166139e+01_jprb, 0.168377e+01_jprb, 0.170580e+01_jprb &
37364  &, 0.172744e+01_jprb, 0.174869e+01_jprb, 0.176954e+01_jprb &
37365  &, 0.178997e+01_jprb, 0.180996e+01_jprb, 0.182952e+01_jprb, 0.184862e+01_jprb &
37366  &, 0.186726e+01_jprb, 0.188541e+01_jprb, 0.190309e+01_jprb &
37367  &, 0.192026e+01_jprb, 0.193694e+01_jprb, 0.195309e+01_jprb, 0.196873e+01_jprb &
37368  &, 0.198383e+01_jprb, 0.199839e+01_jprb, 0.201241e+01_jprb &
37369  &, 0.202587e+01_jprb, 0.203879e+01_jprb, 0.205112e+01_jprb, 0.206289e+01_jprb &
37370  &, 0.207409e+01_jprb, 0.208472e+01_jprb, 0.209476e+01_jprb &
37371  &, 0.210421e+01_jprb, 0.211307e+01_jprb, 0.212136e+01_jprb, 0.212904e+01_jprb &
37372  &, 0.213613e+01_jprb, 0.214263e+01_jprb, 0.214854e+01_jprb &
37373  &, 0.215384e+01_jprb, 0.215856e+01_jprb, 0.216269e+01_jprb, 0.216622e+01_jprb &
37374  &, 0.216918e+01_jprb, 0.217152e+01_jprb, 0.217330e+01_jprb &
37375  &, 0.217448e+01_jprb, 0.217510e+01_jprb, 0.217515e+01_jprb, 0.217462e+01_jprb &
37376  &, 0.217352e+01_jprb, 0.217186e+01_jprb, 0.216963e+01_jprb &
37377  &, 0.216686e+01_jprb, 0.216354e+01_jprb, 0.215969e+01_jprb, 0.215528e+01_jprb &
37378  &, 0.215037e+01_jprb, 0.214493e+01_jprb, 0.213898e+01_jprb &
37379  &, 0.213253e+01_jprb, 0.212556e+01_jprb, 0.211813e+01_jprb, 0.211019e+01_jprb &
37380  &, 0.210179e+01_jprb, 0.209292e+01_jprb, 0.208357e+01_jprb &
37381  &, 0.207380e+01_jprb, 0.206357e+01_jprb, 0.205290e+01_jprb, 0.204182e+01_jprb &
37382  &, 0.203033e+01_jprb, 0.201844e+01_jprb, 0.200616e+01_jprb &
37383  &, 0.199348e+01_jprb, 0.198041e+01_jprb, 0.196700e+01_jprb, 0.195326e+01_jprb &
37384  &, 0.193911e+01_jprb, 0.192466e+01_jprb, 0.190990e+01_jprb &
37385  &, 0.189482e+01_jprb, 0.187940e+01_jprb, 0.186372e+01_jprb, 0.184776e+01_jprb &
37386  &, 0.183151e+01_jprb, 0.181500e+01_jprb, 0.179826e+01_jprb &
37387  &, 0.178128e+01_jprb, 0.176403e+01_jprb, 0.174656e+01_jprb, 0.172893e+01_jprb &
37388  &, 0.171109e+01_jprb, 0.169301e+01_jprb, 0.167481e+01_jprb &
37389  &, 0.165640e+01_jprb, 0.163784e+01_jprb, 0.161915e+01_jprb, 0.160033e+01_jprb &
37390  &, 0.158134e+01_jprb, 0.156228e+01_jprb, 0.154311e+01_jprb &
37391  &, 0.152382e+01_jprb, 0.150443e+01_jprb, 0.148496e+01_jprb, 0.146546e+01_jprb &
37392  &, 0.144588e+01_jprb, 0.142627e+01_jprb, 0.140658e+01_jprb &
37393  &, 0.138691e+01_jprb, 0.136717e+01_jprb, 0.134745e+01_jprb, 0.132770e+01_jprb &
37394  &, 0.130796e+01_jprb, 0.128826e+01_jprb, 0.126856e+01_jprb &
37395  &, 0.124888e+01_jprb, 0.122926e+01_jprb, 0.120965e+01_jprb, 0.119015e+01_jprb &
37396  &, 0.117065e+01_jprb, 0.115124e+01_jprb, 0.113188e+01_jprb/)
37397 xcw( 857, :) = (/ &
37398  & 0.110691e+01_jprb, 0.113366e+01_jprb, 0.116039e+01_jprb, 0.118707e+01_jprb &
37399  &, 0.121371e+01_jprb, 0.124026e+01_jprb, 0.126673e+01_jprb &
37400  &, 0.129310e+01_jprb, 0.131935e+01_jprb, 0.134546e+01_jprb, 0.137142e+01_jprb &
37401  &, 0.139721e+01_jprb, 0.142282e+01_jprb, 0.144823e+01_jprb &
37402  &, 0.147342e+01_jprb, 0.149839e+01_jprb, 0.152311e+01_jprb, 0.154757e+01_jprb &
37403  &, 0.157176e+01_jprb, 0.159565e+01_jprb, 0.161924e+01_jprb &
37404  &, 0.164250e+01_jprb, 0.166544e+01_jprb, 0.168802e+01_jprb, 0.171024e+01_jprb &
37405  &, 0.173208e+01_jprb, 0.175354e+01_jprb, 0.177459e+01_jprb &
37406  &, 0.179522e+01_jprb, 0.181543e+01_jprb, 0.183520e+01_jprb, 0.185451e+01_jprb &
37407  &, 0.187336e+01_jprb, 0.189173e+01_jprb, 0.190962e+01_jprb &
37408  &, 0.192702e+01_jprb, 0.194390e+01_jprb, 0.196028e+01_jprb, 0.197613e+01_jprb &
37409  &, 0.199146e+01_jprb, 0.200625e+01_jprb, 0.202049e+01_jprb &
37410  &, 0.203418e+01_jprb, 0.204731e+01_jprb, 0.205984e+01_jprb, 0.207187e+01_jprb &
37411  &, 0.208330e+01_jprb, 0.209415e+01_jprb, 0.210442e+01_jprb &
37412  &, 0.211409e+01_jprb, 0.212319e+01_jprb, 0.213169e+01_jprb, 0.213958e+01_jprb &
37413  &, 0.214691e+01_jprb, 0.215364e+01_jprb, 0.215978e+01_jprb &
37414  &, 0.216531e+01_jprb, 0.217025e+01_jprb, 0.217460e+01_jprb, 0.217834e+01_jprb &
37415  &, 0.218150e+01_jprb, 0.218409e+01_jprb, 0.218606e+01_jprb &
37416  &, 0.218748e+01_jprb, 0.218830e+01_jprb, 0.218855e+01_jprb, 0.218821e+01_jprb &
37417  &, 0.218733e+01_jprb, 0.218587e+01_jprb, 0.218385e+01_jprb &
37418  &, 0.218128e+01_jprb, 0.217816e+01_jprb, 0.217451e+01_jprb, 0.217030e+01_jprb &
37419  &, 0.216558e+01_jprb, 0.216033e+01_jprb, 0.215455e+01_jprb &
37420  &, 0.214827e+01_jprb, 0.214149e+01_jprb, 0.213422e+01_jprb, 0.212645e+01_jprb &
37421  &, 0.211823e+01_jprb, 0.210951e+01_jprb, 0.210035e+01_jprb &
37422  &, 0.209070e+01_jprb, 0.208065e+01_jprb, 0.207013e+01_jprb, 0.205920e+01_jprb &
37423  &, 0.204785e+01_jprb, 0.203610e+01_jprb, 0.202392e+01_jprb &
37424  &, 0.201140e+01_jprb, 0.199846e+01_jprb, 0.198517e+01_jprb, 0.197152e+01_jprb &
37425  &, 0.195753e+01_jprb, 0.194316e+01_jprb, 0.192851e+01_jprb &
37426  &, 0.191349e+01_jprb, 0.189821e+01_jprb, 0.188263e+01_jprb, 0.186672e+01_jprb &
37427  &, 0.185056e+01_jprb, 0.183413e+01_jprb, 0.181743e+01_jprb &
37428  &, 0.180052e+01_jprb, 0.178335e+01_jprb, 0.176594e+01_jprb, 0.174832e+01_jprb &
37429  &, 0.173053e+01_jprb, 0.171254e+01_jprb, 0.169434e+01_jprb &
37430  &, 0.167596e+01_jprb, 0.165743e+01_jprb, 0.163877e+01_jprb, 0.161996e+01_jprb &
37431  &, 0.160099e+01_jprb, 0.158193e+01_jprb, 0.156271e+01_jprb &
37432  &, 0.154346e+01_jprb, 0.152406e+01_jprb, 0.150462e+01_jprb, 0.148504e+01_jprb &
37433  &, 0.146506e+01_jprb, 0.144583e+01_jprb, 0.142610e+01_jprb &
37434  &, 0.140638e+01_jprb, 0.138657e+01_jprb, 0.136684e+01_jprb, 0.134701e+01_jprb &
37435  &, 0.132725e+01_jprb, 0.130746e+01_jprb, 0.128766e+01_jprb &
37436  &, 0.126794e+01_jprb, 0.124821e+01_jprb, 0.122854e+01_jprb, 0.120891e+01_jprb &
37437  &, 0.118934e+01_jprb, 0.116986e+01_jprb, 0.115041e+01_jprb/)
37438 xcw( 858, :) = (/ &
37439  & 0.110739e+01_jprb, 0.113427e+01_jprb, 0.116113e+01_jprb, 0.118795e+01_jprb &
37440  &, 0.121472e+01_jprb, 0.124142e+01_jprb, 0.126803e+01_jprb &
37441  &, 0.129455e+01_jprb, 0.132095e+01_jprb, 0.134722e+01_jprb, 0.137334e+01_jprb &
37442  &, 0.139929e+01_jprb, 0.142507e+01_jprb, 0.145065e+01_jprb &
37443  &, 0.147602e+01_jprb, 0.150116e+01_jprb, 0.152606e+01_jprb, 0.155070e+01_jprb &
37444  &, 0.157507e+01_jprb, 0.159915e+01_jprb, 0.162292e+01_jprb &
37445  &, 0.164639e+01_jprb, 0.166951e+01_jprb, 0.169229e+01_jprb, 0.171471e+01_jprb &
37446  &, 0.173676e+01_jprb, 0.175842e+01_jprb, 0.177967e+01_jprb &
37447  &, 0.180051e+01_jprb, 0.182093e+01_jprb, 0.184091e+01_jprb, 0.186043e+01_jprb &
37448  &, 0.187950e+01_jprb, 0.189809e+01_jprb, 0.191620e+01_jprb &
37449  &, 0.193381e+01_jprb, 0.195092e+01_jprb, 0.196753e+01_jprb, 0.198360e+01_jprb &
37450  &, 0.199915e+01_jprb, 0.201417e+01_jprb, 0.202863e+01_jprb &
37451  &, 0.204254e+01_jprb, 0.205590e+01_jprb, 0.206869e+01_jprb, 0.208092e+01_jprb &
37452  &, 0.209258e+01_jprb, 0.210365e+01_jprb, 0.211414e+01_jprb &
37453  &, 0.212405e+01_jprb, 0.213338e+01_jprb, 0.214209e+01_jprb, 0.215025e+01_jprb &
37454  &, 0.215780e+01_jprb, 0.216474e+01_jprb, 0.217109e+01_jprb &
37455  &, 0.217686e+01_jprb, 0.218201e+01_jprb, 0.218659e+01_jprb, 0.219057e+01_jprb &
37456  &, 0.219394e+01_jprb, 0.219674e+01_jprb, 0.219895e+01_jprb &
37457  &, 0.220056e+01_jprb, 0.220160e+01_jprb, 0.220207e+01_jprb, 0.220195e+01_jprb &
37458  &, 0.220126e+01_jprb, 0.220002e+01_jprb, 0.219820e+01_jprb &
37459  &, 0.219583e+01_jprb, 0.219291e+01_jprb, 0.218946e+01_jprb, 0.218544e+01_jprb &
37460  &, 0.218092e+01_jprb, 0.217585e+01_jprb, 0.217026e+01_jprb &
37461  &, 0.216418e+01_jprb, 0.215759e+01_jprb, 0.215044e+01_jprb, 0.214288e+01_jprb &
37462  &, 0.213482e+01_jprb, 0.212627e+01_jprb, 0.211726e+01_jprb &
37463  &, 0.210780e+01_jprb, 0.209790e+01_jprb, 0.208753e+01_jprb, 0.207675e+01_jprb &
37464  &, 0.206554e+01_jprb, 0.205394e+01_jprb, 0.204190e+01_jprb &
37465  &, 0.202948e+01_jprb, 0.201668e+01_jprb, 0.200351e+01_jprb, 0.198998e+01_jprb &
37466  &, 0.197611e+01_jprb, 0.196186e+01_jprb, 0.194729e+01_jprb &
37467  &, 0.193242e+01_jprb, 0.191721e+01_jprb, 0.190172e+01_jprb, 0.188591e+01_jprb &
37468  &, 0.186984e+01_jprb, 0.185346e+01_jprb, 0.183684e+01_jprb &
37469  &, 0.182001e+01_jprb, 0.180290e+01_jprb, 0.178556e+01_jprb, 0.176801e+01_jprb &
37470  &, 0.175023e+01_jprb, 0.173229e+01_jprb, 0.171414e+01_jprb &
37471  &, 0.169580e+01_jprb, 0.167729e+01_jprb, 0.165866e+01_jprb, 0.163983e+01_jprb &
37472  &, 0.162087e+01_jprb, 0.160182e+01_jprb, 0.158266e+01_jprb &
37473  &, 0.156335e+01_jprb, 0.154389e+01_jprb, 0.152449e+01_jprb, 0.150493e+01_jprb &
37474  &, 0.148530e+01_jprb, 0.146561e+01_jprb, 0.144589e+01_jprb &
37475  &, 0.142611e+01_jprb, 0.140631e+01_jprb, 0.138645e+01_jprb, 0.136662e+01_jprb &
37476  &, 0.134678e+01_jprb, 0.132696e+01_jprb, 0.130713e+01_jprb &
37477  &, 0.128731e+01_jprb, 0.126753e+01_jprb, 0.124775e+01_jprb, 0.122806e+01_jprb &
37478  &, 0.120836e+01_jprb, 0.118880e+01_jprb, 0.116927e+01_jprb/)
37479 xcw( 859, :) = (/ &
37480  & 0.110787e+01_jprb, 0.113487e+01_jprb, 0.116186e+01_jprb, 0.118882e+01_jprb &
37481  &, 0.121573e+01_jprb, 0.124258e+01_jprb, 0.126934e+01_jprb &
37482  &, 0.129601e+01_jprb, 0.132256e+01_jprb, 0.134899e+01_jprb, 0.137527e+01_jprb &
37483  &, 0.140139e+01_jprb, 0.142733e+01_jprb, 0.145308e+01_jprb &
37484  &, 0.147862e+01_jprb, 0.150394e+01_jprb, 0.152902e+01_jprb, 0.155385e+01_jprb &
37485  &, 0.157840e+01_jprb, 0.160267e+01_jprb, 0.162664e+01_jprb &
37486  &, 0.165029e+01_jprb, 0.167361e+01_jprb, 0.169659e+01_jprb, 0.171921e+01_jprb &
37487  &, 0.174146e+01_jprb, 0.176333e+01_jprb, 0.178479e+01_jprb &
37488  &, 0.180584e+01_jprb, 0.182647e+01_jprb, 0.184666e+01_jprb, 0.186640e+01_jprb &
37489  &, 0.188568e+01_jprb, 0.190450e+01_jprb, 0.192282e+01_jprb &
37490  &, 0.194066e+01_jprb, 0.195799e+01_jprb, 0.197481e+01_jprb, 0.199111e+01_jprb &
37491  &, 0.200689e+01_jprb, 0.202213e+01_jprb, 0.203683e+01_jprb &
37492  &, 0.205097e+01_jprb, 0.206455e+01_jprb, 0.207758e+01_jprb, 0.209004e+01_jprb &
37493  &, 0.210192e+01_jprb, 0.211323e+01_jprb, 0.212395e+01_jprb &
37494  &, 0.213409e+01_jprb, 0.214365e+01_jprb, 0.215260e+01_jprb, 0.216098e+01_jprb &
37495  &, 0.216875e+01_jprb, 0.217592e+01_jprb, 0.218251e+01_jprb &
37496  &, 0.218849e+01_jprb, 0.219389e+01_jprb, 0.219869e+01_jprb, 0.220288e+01_jprb &
37497  &, 0.220649e+01_jprb, 0.220950e+01_jprb, 0.221190e+01_jprb &
37498  &, 0.221377e+01_jprb, 0.221503e+01_jprb, 0.221570e+01_jprb, 0.221580e+01_jprb &
37499  &, 0.221534e+01_jprb, 0.221429e+01_jprb, 0.221268e+01_jprb &
37500  &, 0.221053e+01_jprb, 0.220781e+01_jprb, 0.220454e+01_jprb, 0.220074e+01_jprb &
37501  &, 0.219640e+01_jprb, 0.219153e+01_jprb, 0.218614e+01_jprb &
37502  &, 0.218023e+01_jprb, 0.217381e+01_jprb, 0.216688e+01_jprb, 0.215949e+01_jprb &
37503  &, 0.215158e+01_jprb, 0.214321e+01_jprb, 0.213437e+01_jprb &
37504  &, 0.212506e+01_jprb, 0.211532e+01_jprb, 0.210511e+01_jprb, 0.209448e+01_jprb &
37505  &, 0.208342e+01_jprb, 0.207196e+01_jprb, 0.206006e+01_jprb &
37506  &, 0.204778e+01_jprb, 0.203511e+01_jprb, 0.202208e+01_jprb, 0.200865e+01_jprb &
37507  &, 0.199490e+01_jprb, 0.198077e+01_jprb, 0.196631e+01_jprb &
37508  &, 0.195152e+01_jprb, 0.193642e+01_jprb, 0.192103e+01_jprb, 0.190532e+01_jprb &
37509  &, 0.188931e+01_jprb, 0.187306e+01_jprb, 0.185653e+01_jprb &
37510  &, 0.183973e+01_jprb, 0.182266e+01_jprb, 0.180539e+01_jprb, 0.178790e+01_jprb &
37511  &, 0.177018e+01_jprb, 0.175226e+01_jprb, 0.173415e+01_jprb &
37512  &, 0.171585e+01_jprb, 0.169739e+01_jprb, 0.167879e+01_jprb, 0.165998e+01_jprb &
37513  &, 0.164104e+01_jprb, 0.162201e+01_jprb, 0.160285e+01_jprb &
37514  &, 0.158355e+01_jprb, 0.156413e+01_jprb, 0.154466e+01_jprb, 0.152509e+01_jprb &
37515  &, 0.150543e+01_jprb, 0.148570e+01_jprb, 0.146595e+01_jprb &
37516  &, 0.144613e+01_jprb, 0.142622e+01_jprb, 0.140641e+01_jprb, 0.138651e+01_jprb &
37517  &, 0.136665e+01_jprb, 0.134675e+01_jprb, 0.132683e+01_jprb &
37518  &, 0.130691e+01_jprb, 0.128709e+01_jprb, 0.126726e+01_jprb, 0.124745e+01_jprb &
37519  &, 0.122769e+01_jprb, 0.120800e+01_jprb, 0.118840e+01_jprb/)
37520 xcw( 860, :) = (/ &
37521  & 0.110835e+01_jprb, 0.113548e+01_jprb, 0.116261e+01_jprb, 0.118970e+01_jprb &
37522  &, 0.121675e+01_jprb, 0.124374e+01_jprb, 0.127066e+01_jprb &
37523  &, 0.129748e+01_jprb, 0.132418e+01_jprb, 0.135077e+01_jprb, 0.137721e+01_jprb &
37524  &, 0.140350e+01_jprb, 0.142961e+01_jprb, 0.145553e+01_jprb &
37525  &, 0.148125e+01_jprb, 0.150674e+01_jprb, 0.153200e+01_jprb, 0.155701e+01_jprb &
37526  &, 0.158176e+01_jprb, 0.160621e+01_jprb, 0.163037e+01_jprb &
37527  &, 0.165422e+01_jprb, 0.167774e+01_jprb, 0.170092e+01_jprb, 0.172375e+01_jprb &
37528  &, 0.174620e+01_jprb, 0.176827e+01_jprb, 0.178994e+01_jprb &
37529  &, 0.181120e+01_jprb, 0.183204e+01_jprb, 0.185245e+01_jprb, 0.187241e+01_jprb &
37530  &, 0.189191e+01_jprb, 0.191094e+01_jprb, 0.192949e+01_jprb &
37531  &, 0.194755e+01_jprb, 0.196511e+01_jprb, 0.198215e+01_jprb, 0.199869e+01_jprb &
37532  &, 0.201469e+01_jprb, 0.203015e+01_jprb, 0.204508e+01_jprb &
37533  &, 0.205945e+01_jprb, 0.207328e+01_jprb, 0.208653e+01_jprb, 0.209922e+01_jprb &
37534  &, 0.211125e+01_jprb, 0.212288e+01_jprb, 0.213383e+01_jprb &
37535  &, 0.214421e+01_jprb, 0.215400e+01_jprb, 0.216319e+01_jprb, 0.217179e+01_jprb &
37536  &, 0.217979e+01_jprb, 0.218721e+01_jprb, 0.219401e+01_jprb &
37537  &, 0.220024e+01_jprb, 0.220585e+01_jprb, 0.221087e+01_jprb, 0.221530e+01_jprb &
37538  &, 0.221914e+01_jprb, 0.222238e+01_jprb, 0.222502e+01_jprb &
37539  &, 0.222709e+01_jprb, 0.222857e+01_jprb, 0.222946e+01_jprb, 0.222979e+01_jprb &
37540  &, 0.222953e+01_jprb, 0.222869e+01_jprb, 0.222730e+01_jprb &
37541  &, 0.222533e+01_jprb, 0.222284e+01_jprb, 0.221977e+01_jprb, 0.221616e+01_jprb &
37542  &, 0.221202e+01_jprb, 0.220735e+01_jprb, 0.220214e+01_jprb &
37543  &, 0.219643e+01_jprb, 0.219021e+01_jprb, 0.218346e+01_jprb, 0.217623e+01_jprb &
37544  &, 0.216852e+01_jprb, 0.216032e+01_jprb, 0.215164e+01_jprb &
37545  &, 0.214250e+01_jprb, 0.213291e+01_jprb, 0.212286e+01_jprb, 0.211238e+01_jprb &
37546  &, 0.210147e+01_jprb, 0.209016e+01_jprb, 0.207841e+01_jprb &
37547  &, 0.206628e+01_jprb, 0.205375e+01_jprb, 0.204082e+01_jprb, 0.202755e+01_jprb &
37548  &, 0.201390e+01_jprb, 0.199989e+01_jprb, 0.198555e+01_jprb &
37549  &, 0.197087e+01_jprb, 0.195588e+01_jprb, 0.194057e+01_jprb, 0.192493e+01_jprb &
37550  &, 0.190905e+01_jprb, 0.189286e+01_jprb, 0.187637e+01_jprb &
37551  &, 0.185966e+01_jprb, 0.184271e+01_jprb, 0.182547e+01_jprb, 0.180805e+01_jprb &
37552  &, 0.179039e+01_jprb, 0.177253e+01_jprb, 0.175447e+01_jprb &
37553  &, 0.173618e+01_jprb, 0.171776e+01_jprb, 0.169914e+01_jprb, 0.168041e+01_jprb &
37554  &, 0.166150e+01_jprb, 0.164243e+01_jprb, 0.162328e+01_jprb &
37555  &, 0.160399e+01_jprb, 0.158462e+01_jprb, 0.156510e+01_jprb, 0.154551e+01_jprb &
37556  &, 0.152582e+01_jprb, 0.150612e+01_jprb, 0.148633e+01_jprb &
37557  &, 0.146647e+01_jprb, 0.144657e+01_jprb, 0.142665e+01_jprb, 0.140674e+01_jprb &
37558  &, 0.138676e+01_jprb, 0.136684e+01_jprb, 0.134683e+01_jprb &
37559  &, 0.132689e+01_jprb, 0.130696e+01_jprb, 0.128709e+01_jprb, 0.126717e+01_jprb &
37560  &, 0.124734e+01_jprb, 0.122758e+01_jprb, 0.120785e+01_jprb/)
37561 xcw( 861, :) = (/ &
37562  & 0.110883e+01_jprb, 0.113610e+01_jprb, 0.116336e+01_jprb, 0.119059e+01_jprb &
37563  &, 0.121778e+01_jprb, 0.124492e+01_jprb, 0.127198e+01_jprb &
37564  &, 0.129895e+01_jprb, 0.132582e+01_jprb, 0.135256e+01_jprb, 0.137917e+01_jprb &
37565  &, 0.140562e+01_jprb, 0.143190e+01_jprb, 0.145799e+01_jprb &
37566  &, 0.148389e+01_jprb, 0.150956e+01_jprb, 0.153501e+01_jprb, 0.156020e+01_jprb &
37567  &, 0.158513e+01_jprb, 0.160978e+01_jprb, 0.163413e+01_jprb &
37568  &, 0.165818e+01_jprb, 0.168190e+01_jprb, 0.170528e+01_jprb, 0.172830e+01_jprb &
37569  &, 0.175097e+01_jprb, 0.177325e+01_jprb, 0.179513e+01_jprb &
37570  &, 0.181660e+01_jprb, 0.183766e+01_jprb, 0.185828e+01_jprb, 0.187846e+01_jprb &
37571  &, 0.189818e+01_jprb, 0.191744e+01_jprb, 0.193621e+01_jprb &
37572  &, 0.195449e+01_jprb, 0.197227e+01_jprb, 0.198956e+01_jprb, 0.200631e+01_jprb &
37573  &, 0.202254e+01_jprb, 0.203825e+01_jprb, 0.205340e+01_jprb &
37574  &, 0.206801e+01_jprb, 0.208206e+01_jprb, 0.209556e+01_jprb, 0.210848e+01_jprb &
37575  &, 0.212083e+01_jprb, 0.213261e+01_jprb, 0.214380e+01_jprb &
37576  &, 0.215440e+01_jprb, 0.216443e+01_jprb, 0.217386e+01_jprb, 0.218268e+01_jprb &
37577  &, 0.219093e+01_jprb, 0.219857e+01_jprb, 0.220561e+01_jprb &
37578  &, 0.221206e+01_jprb, 0.221791e+01_jprb, 0.222317e+01_jprb, 0.222783e+01_jprb &
37579  &, 0.223190e+01_jprb, 0.223537e+01_jprb, 0.223825e+01_jprb &
37580  &, 0.224052e+01_jprb, 0.224223e+01_jprb, 0.224334e+01_jprb, 0.224387e+01_jprb &
37581  &, 0.224384e+01_jprb, 0.224323e+01_jprb, 0.224204e+01_jprb &
37582  &, 0.224031e+01_jprb, 0.223800e+01_jprb, 0.223514e+01_jprb, 0.223173e+01_jprb &
37583  &, 0.222780e+01_jprb, 0.222331e+01_jprb, 0.221830e+01_jprb &
37584  &, 0.221280e+01_jprb, 0.220676e+01_jprb, 0.220020e+01_jprb, 0.219316e+01_jprb &
37585  &, 0.218561e+01_jprb, 0.217758e+01_jprb, 0.216910e+01_jprb &
37586  &, 0.216012e+01_jprb, 0.215068e+01_jprb, 0.214081e+01_jprb, 0.213049e+01_jprb &
37587  &, 0.211974e+01_jprb, 0.210855e+01_jprb, 0.209698e+01_jprb &
37588  &, 0.208496e+01_jprb, 0.207257e+01_jprb, 0.205978e+01_jprb, 0.204665e+01_jprb &
37589  &, 0.203309e+01_jprb, 0.201921e+01_jprb, 0.200500e+01_jprb &
37590  &, 0.199044e+01_jprb, 0.197553e+01_jprb, 0.196033e+01_jprb, 0.194479e+01_jprb &
37591  &, 0.192898e+01_jprb, 0.191288e+01_jprb, 0.189649e+01_jprb &
37592  &, 0.187987e+01_jprb, 0.186296e+01_jprb, 0.184584e+01_jprb, 0.182845e+01_jprb &
37593  &, 0.181086e+01_jprb, 0.179301e+01_jprb, 0.177502e+01_jprb &
37594  &, 0.175677e+01_jprb, 0.173840e+01_jprb, 0.171982e+01_jprb, 0.170108e+01_jprb &
37595  &, 0.168220e+01_jprb, 0.166315e+01_jprb, 0.164402e+01_jprb &
37596  &, 0.162473e+01_jprb, 0.160531e+01_jprb, 0.158584e+01_jprb, 0.156624e+01_jprb &
37597  &, 0.154654e+01_jprb, 0.152681e+01_jprb, 0.150699e+01_jprb &
37598  &, 0.148709e+01_jprb, 0.146720e+01_jprb, 0.144723e+01_jprb, 0.142721e+01_jprb &
37599  &, 0.140721e+01_jprb, 0.138722e+01_jprb, 0.136720e+01_jprb &
37600  &, 0.134716e+01_jprb, 0.132714e+01_jprb, 0.130717e+01_jprb, 0.128726e+01_jprb &
37601  &, 0.126732e+01_jprb, 0.124743e+01_jprb, 0.122763e+01_jprb/)
37602 
37603 IF (lhook) CALL dr_hook('SU_MCICA:PART123',1,zhook_handle)
37604 END SUBROUTINE part123
37605 
37606 #ifdef VPP5000
37607 !OCL SCALAR
37608 #endif
37609 !option! -Nv -NO
37610 #ifdef RS6K
37611 @process nooptimize
37612 #endif
37613 !pgi$r opt=0
37614 SUBROUTINE part124
37615 
37616 REAL(KIND=JPRB) :: ZHOOK_HANDLE
37617 IF (lhook) CALL dr_hook('SU_MCICA:PART124',0,zhook_handle)
37618 
37619 xcw( 862, :) = (/ &
37620  & 0.110931e+01_jprb, 0.113671e+01_jprb, 0.116411e+01_jprb, 0.119148e+01_jprb &
37621  &, 0.121881e+01_jprb, 0.124610e+01_jprb, 0.127331e+01_jprb &
37622  &, 0.130043e+01_jprb, 0.132746e+01_jprb, 0.135436e+01_jprb, 0.138113e+01_jprb &
37623  &, 0.140775e+01_jprb, 0.143420e+01_jprb, 0.146047e+01_jprb &
37624  &, 0.148654e+01_jprb, 0.151240e+01_jprb, 0.153803e+01_jprb, 0.156341e+01_jprb &
37625  &, 0.158852e+01_jprb, 0.161337e+01_jprb, 0.163791e+01_jprb &
37626  &, 0.166216e+01_jprb, 0.168607e+01_jprb, 0.170966e+01_jprb, 0.173290e+01_jprb &
37627  &, 0.175576e+01_jprb, 0.177825e+01_jprb, 0.180035e+01_jprb &
37628  &, 0.182204e+01_jprb, 0.184331e+01_jprb, 0.186416e+01_jprb, 0.188455e+01_jprb &
37629  &, 0.190450e+01_jprb, 0.192397e+01_jprb, 0.194297e+01_jprb &
37630  &, 0.196149e+01_jprb, 0.197949e+01_jprb, 0.199701e+01_jprb, 0.201399e+01_jprb &
37631  &, 0.203046e+01_jprb, 0.204639e+01_jprb, 0.206178e+01_jprb &
37632  &, 0.207663e+01_jprb, 0.209091e+01_jprb, 0.210464e+01_jprb, 0.211780e+01_jprb &
37633  &, 0.213039e+01_jprb, 0.214240e+01_jprb, 0.215383e+01_jprb &
37634  &, 0.216468e+01_jprb, 0.217494e+01_jprb, 0.218461e+01_jprb, 0.219368e+01_jprb &
37635  &, 0.220216e+01_jprb, 0.221004e+01_jprb, 0.221732e+01_jprb &
37636  &, 0.222400e+01_jprb, 0.223009e+01_jprb, 0.223558e+01_jprb, 0.224046e+01_jprb &
37637  &, 0.224470e+01_jprb, 0.224846e+01_jprb, 0.225156e+01_jprb &
37638  &, 0.225407e+01_jprb, 0.225601e+01_jprb, 0.225734e+01_jprb, 0.225811e+01_jprb &
37639  &, 0.225828e+01_jprb, 0.225788e+01_jprb, 0.225691e+01_jprb &
37640  &, 0.225538e+01_jprb, 0.225314e+01_jprb, 0.225066e+01_jprb, 0.224746e+01_jprb &
37641  &, 0.224372e+01_jprb, 0.223944e+01_jprb, 0.223464e+01_jprb &
37642  &, 0.222931e+01_jprb, 0.222345e+01_jprb, 0.221710e+01_jprb, 0.221024e+01_jprb &
37643  &, 0.220289e+01_jprb, 0.219504e+01_jprb, 0.218670e+01_jprb &
37644  &, 0.217792e+01_jprb, 0.216867e+01_jprb, 0.215894e+01_jprb, 0.214878e+01_jprb &
37645  &, 0.213818e+01_jprb, 0.212715e+01_jprb, 0.211570e+01_jprb &
37646  &, 0.210386e+01_jprb, 0.209159e+01_jprb, 0.207894e+01_jprb, 0.206591e+01_jprb &
37647  &, 0.205253e+01_jprb, 0.203878e+01_jprb, 0.202466e+01_jprb &
37648  &, 0.201023e+01_jprb, 0.199544e+01_jprb, 0.198031e+01_jprb, 0.196488e+01_jprb &
37649  &, 0.194918e+01_jprb, 0.193318e+01_jprb, 0.191689e+01_jprb &
37650  &, 0.190032e+01_jprb, 0.188350e+01_jprb, 0.186642e+01_jprb, 0.184911e+01_jprb &
37651  &, 0.183155e+01_jprb, 0.181381e+01_jprb, 0.179583e+01_jprb &
37652  &, 0.177764e+01_jprb, 0.175931e+01_jprb, 0.174069e+01_jprb, 0.172203e+01_jprb &
37653  &, 0.170318e+01_jprb, 0.168416e+01_jprb, 0.166504e+01_jprb &
37654  &, 0.164577e+01_jprb, 0.162635e+01_jprb, 0.160683e+01_jprb, 0.158723e+01_jprb &
37655  &, 0.156756e+01_jprb, 0.154777e+01_jprb, 0.152792e+01_jprb &
37656  &, 0.150804e+01_jprb, 0.148806e+01_jprb, 0.146809e+01_jprb, 0.144807e+01_jprb &
37657  &, 0.142802e+01_jprb, 0.140790e+01_jprb, 0.138786e+01_jprb &
37658  &, 0.136774e+01_jprb, 0.134769e+01_jprb, 0.132762e+01_jprb, 0.130760e+01_jprb &
37659  &, 0.128761e+01_jprb, 0.126767e+01_jprb, 0.124773e+01_jprb/)
37660 xcw( 863, :) = (/ &
37661  & 0.110980e+01_jprb, 0.113733e+01_jprb, 0.116486e+01_jprb, 0.119237e+01_jprb &
37662  &, 0.121985e+01_jprb, 0.124728e+01_jprb, 0.127464e+01_jprb &
37663  &, 0.130192e+01_jprb, 0.132911e+01_jprb, 0.135617e+01_jprb, 0.138311e+01_jprb &
37664  &, 0.140990e+01_jprb, 0.143652e+01_jprb, 0.146297e+01_jprb &
37665  &, 0.148921e+01_jprb, 0.151525e+01_jprb, 0.154106e+01_jprb, 0.156663e+01_jprb &
37666  &, 0.159194e+01_jprb, 0.161698e+01_jprb, 0.164172e+01_jprb &
37667  &, 0.166617e+01_jprb, 0.169029e+01_jprb, 0.171408e+01_jprb, 0.173752e+01_jprb &
37668  &, 0.176059e+01_jprb, 0.178330e+01_jprb, 0.180561e+01_jprb &
37669  &, 0.182751e+01_jprb, 0.184901e+01_jprb, 0.187007e+01_jprb, 0.189069e+01_jprb &
37670  &, 0.191086e+01_jprb, 0.193056e+01_jprb, 0.194978e+01_jprb &
37671  &, 0.196853e+01_jprb, 0.198677e+01_jprb, 0.200451e+01_jprb, 0.202173e+01_jprb &
37672  &, 0.203843e+01_jprb, 0.205460e+01_jprb, 0.207023e+01_jprb &
37673  &, 0.208531e+01_jprb, 0.209984e+01_jprb, 0.211380e+01_jprb, 0.212720e+01_jprb &
37674  &, 0.213999e+01_jprb, 0.215228e+01_jprb, 0.216395e+01_jprb &
37675  &, 0.217503e+01_jprb, 0.218553e+01_jprb, 0.219544e+01_jprb, 0.220476e+01_jprb &
37676  &, 0.221348e+01_jprb, 0.222159e+01_jprb, 0.222911e+01_jprb &
37677  &, 0.223604e+01_jprb, 0.224237e+01_jprb, 0.224808e+01_jprb, 0.225321e+01_jprb &
37678  &, 0.225774e+01_jprb, 0.226167e+01_jprb, 0.226500e+01_jprb &
37679  &, 0.226774e+01_jprb, 0.226990e+01_jprb, 0.227147e+01_jprb, 0.227244e+01_jprb &
37680  &, 0.227285e+01_jprb, 0.227268e+01_jprb, 0.227193e+01_jprb &
37681  &, 0.227061e+01_jprb, 0.226875e+01_jprb, 0.226631e+01_jprb, 0.226332e+01_jprb &
37682  &, 0.225979e+01_jprb, 0.225572e+01_jprb, 0.225111e+01_jprb &
37683  &, 0.224599e+01_jprb, 0.224032e+01_jprb, 0.223416e+01_jprb, 0.222749e+01_jprb &
37684  &, 0.222033e+01_jprb, 0.221265e+01_jprb, 0.220451e+01_jprb &
37685  &, 0.219588e+01_jprb, 0.218680e+01_jprb, 0.217726e+01_jprb, 0.216727e+01_jprb &
37686  &, 0.215681e+01_jprb, 0.214597e+01_jprb, 0.213468e+01_jprb &
37687  &, 0.212296e+01_jprb, 0.211083e+01_jprb, 0.209833e+01_jprb, 0.208545e+01_jprb &
37688  &, 0.207217e+01_jprb, 0.205856e+01_jprb, 0.204457e+01_jprb &
37689  &, 0.203022e+01_jprb, 0.201556e+01_jprb, 0.200055e+01_jprb, 0.198524e+01_jprb &
37690  &, 0.196961e+01_jprb, 0.195368e+01_jprb, 0.193748e+01_jprb &
37691  &, 0.192101e+01_jprb, 0.190424e+01_jprb, 0.188725e+01_jprb, 0.187002e+01_jprb &
37692  &, 0.185253e+01_jprb, 0.183482e+01_jprb, 0.181690e+01_jprb &
37693  &, 0.179877e+01_jprb, 0.178045e+01_jprb, 0.176197e+01_jprb, 0.174331e+01_jprb &
37694  &, 0.172444e+01_jprb, 0.170545e+01_jprb, 0.168631e+01_jprb &
37695  &, 0.166705e+01_jprb, 0.164765e+01_jprb, 0.162819e+01_jprb, 0.160858e+01_jprb &
37696  &, 0.158886e+01_jprb, 0.156905e+01_jprb, 0.154923e+01_jprb &
37697  &, 0.152927e+01_jprb, 0.150930e+01_jprb, 0.148924e+01_jprb, 0.146917e+01_jprb &
37698  &, 0.144906e+01_jprb, 0.142893e+01_jprb, 0.140882e+01_jprb &
37699  &, 0.138868e+01_jprb, 0.136855e+01_jprb, 0.134844e+01_jprb, 0.132833e+01_jprb &
37700  &, 0.130823e+01_jprb, 0.128823e+01_jprb, 0.126823e+01_jprb/)
37701 xcw( 864, :) = (/ &
37702  & 0.111029e+01_jprb, 0.113795e+01_jprb, 0.116562e+01_jprb, 0.119327e+01_jprb &
37703  &, 0.122090e+01_jprb, 0.124847e+01_jprb, 0.127599e+01_jprb &
37704  &, 0.130342e+01_jprb, 0.133077e+01_jprb, 0.135799e+01_jprb, 0.138510e+01_jprb &
37705  &, 0.141205e+01_jprb, 0.143885e+01_jprb, 0.146547e+01_jprb &
37706  &, 0.149190e+01_jprb, 0.151812e+01_jprb, 0.154412e+01_jprb, 0.156988e+01_jprb &
37707  &, 0.159538e+01_jprb, 0.162061e+01_jprb, 0.164556e+01_jprb &
37708  &, 0.167020e+01_jprb, 0.169453e+01_jprb, 0.171852e+01_jprb, 0.174217e+01_jprb &
37709  &, 0.176546e+01_jprb, 0.178837e+01_jprb, 0.181090e+01_jprb &
37710  &, 0.183303e+01_jprb, 0.185474e+01_jprb, 0.187602e+01_jprb, 0.189686e+01_jprb &
37711  &, 0.191726e+01_jprb, 0.193719e+01_jprb, 0.195665e+01_jprb &
37712  &, 0.197561e+01_jprb, 0.199409e+01_jprb, 0.201207e+01_jprb, 0.202953e+01_jprb &
37713  &, 0.204646e+01_jprb, 0.206287e+01_jprb, 0.207873e+01_jprb &
37714  &, 0.209406e+01_jprb, 0.210883e+01_jprb, 0.212303e+01_jprb, 0.213668e+01_jprb &
37715  &, 0.214974e+01_jprb, 0.216224e+01_jprb, 0.217415e+01_jprb &
37716  &, 0.218548e+01_jprb, 0.219622e+01_jprb, 0.220637e+01_jprb, 0.221592e+01_jprb &
37717  &, 0.222488e+01_jprb, 0.223325e+01_jprb, 0.224099e+01_jprb &
37718  &, 0.224817e+01_jprb, 0.225474e+01_jprb, 0.226070e+01_jprb, 0.226605e+01_jprb &
37719  &, 0.227083e+01_jprb, 0.227498e+01_jprb, 0.227856e+01_jprb &
37720  &, 0.228153e+01_jprb, 0.228392e+01_jprb, 0.228572e+01_jprb, 0.228693e+01_jprb &
37721  &, 0.228756e+01_jprb, 0.228760e+01_jprb, 0.228708e+01_jprb &
37722  &, 0.228598e+01_jprb, 0.228434e+01_jprb, 0.228211e+01_jprb, 0.227935e+01_jprb &
37723  &, 0.227603e+01_jprb, 0.227215e+01_jprb, 0.226775e+01_jprb &
37724  &, 0.226283e+01_jprb, 0.225736e+01_jprb, 0.225141e+01_jprb, 0.224491e+01_jprb &
37725  &, 0.223795e+01_jprb, 0.223045e+01_jprb, 0.222249e+01_jprb &
37726  &, 0.221406e+01_jprb, 0.220513e+01_jprb, 0.219576e+01_jprb, 0.218594e+01_jprb &
37727  &, 0.217568e+01_jprb, 0.216497e+01_jprb, 0.215383e+01_jprb &
37728  &, 0.214227e+01_jprb, 0.213030e+01_jprb, 0.211792e+01_jprb, 0.210518e+01_jprb &
37729  &, 0.209205e+01_jprb, 0.207854e+01_jprb, 0.206468e+01_jprb &
37730  &, 0.205047e+01_jprb, 0.203590e+01_jprb, 0.202102e+01_jprb, 0.200578e+01_jprb &
37731  &, 0.199026e+01_jprb, 0.197445e+01_jprb, 0.195836e+01_jprb &
37732  &, 0.194194e+01_jprb, 0.192527e+01_jprb, 0.190837e+01_jprb, 0.189118e+01_jprb &
37733  &, 0.187377e+01_jprb, 0.185613e+01_jprb, 0.183824e+01_jprb &
37734  &, 0.182018e+01_jprb, 0.180191e+01_jprb, 0.178344e+01_jprb, 0.176482e+01_jprb &
37735  &, 0.174600e+01_jprb, 0.172704e+01_jprb, 0.170793e+01_jprb &
37736  &, 0.168869e+01_jprb, 0.166931e+01_jprb, 0.164980e+01_jprb, 0.163019e+01_jprb &
37737  &, 0.161047e+01_jprb, 0.159065e+01_jprb, 0.157081e+01_jprb &
37738  &, 0.155083e+01_jprb, 0.153083e+01_jprb, 0.151073e+01_jprb, 0.149061e+01_jprb &
37739  &, 0.147051e+01_jprb, 0.145032e+01_jprb, 0.143014e+01_jprb &
37740  &, 0.140993e+01_jprb, 0.138971e+01_jprb, 0.136952e+01_jprb, 0.134936e+01_jprb &
37741  &, 0.132922e+01_jprb, 0.130905e+01_jprb, 0.128900e+01_jprb/)
37742 xcw( 865, :) = (/ &
37743  & 0.111078e+01_jprb, 0.113858e+01_jprb, 0.116639e+01_jprb, 0.119418e+01_jprb &
37744  &, 0.122195e+01_jprb, 0.124967e+01_jprb, 0.127734e+01_jprb &
37745  &, 0.130493e+01_jprb, 0.133243e+01_jprb, 0.135983e+01_jprb, 0.138710e+01_jprb &
37746  &, 0.141423e+01_jprb, 0.144120e+01_jprb, 0.146800e+01_jprb &
37747  &, 0.149461e+01_jprb, 0.152101e+01_jprb, 0.154720e+01_jprb, 0.157315e+01_jprb &
37748  &, 0.159884e+01_jprb, 0.162427e+01_jprb, 0.164941e+01_jprb &
37749  &, 0.167426e+01_jprb, 0.169879e+01_jprb, 0.172299e+01_jprb, 0.174685e+01_jprb &
37750  &, 0.177035e+01_jprb, 0.179349e+01_jprb, 0.181623e+01_jprb &
37751  &, 0.183858e+01_jprb, 0.186051e+01_jprb, 0.188202e+01_jprb, 0.190309e+01_jprb &
37752  &, 0.192371e+01_jprb, 0.194387e+01_jprb, 0.196356e+01_jprb &
37753  &, 0.198277e+01_jprb, 0.200147e+01_jprb, 0.201968e+01_jprb, 0.203738e+01_jprb &
37754  &, 0.205456e+01_jprb, 0.207053e+01_jprb, 0.208731e+01_jprb &
37755  &, 0.210288e+01_jprb, 0.211788e+01_jprb, 0.213233e+01_jprb, 0.214622e+01_jprb &
37756  &, 0.215954e+01_jprb, 0.217227e+01_jprb, 0.218443e+01_jprb &
37757  &, 0.219600e+01_jprb, 0.220697e+01_jprb, 0.221739e+01_jprb, 0.222719e+01_jprb &
37758  &, 0.223640e+01_jprb, 0.224499e+01_jprb, 0.225301e+01_jprb &
37759  &, 0.226042e+01_jprb, 0.226722e+01_jprb, 0.227342e+01_jprb, 0.227901e+01_jprb &
37760  &, 0.228403e+01_jprb, 0.228844e+01_jprb, 0.229224e+01_jprb &
37761  &, 0.229545e+01_jprb, 0.229808e+01_jprb, 0.230009e+01_jprb, 0.230154e+01_jprb &
37762  &, 0.230240e+01_jprb, 0.230269e+01_jprb, 0.230238e+01_jprb &
37763  &, 0.230150e+01_jprb, 0.230008e+01_jprb, 0.229807e+01_jprb, 0.229552e+01_jprb &
37764  &, 0.229240e+01_jprb, 0.228858e+01_jprb, 0.228456e+01_jprb &
37765  &, 0.227983e+01_jprb, 0.227458e+01_jprb, 0.226882e+01_jprb, 0.226253e+01_jprb &
37766  &, 0.225573e+01_jprb, 0.224844e+01_jprb, 0.224067e+01_jprb &
37767  &, 0.223242e+01_jprb, 0.222369e+01_jprb, 0.221447e+01_jprb, 0.220482e+01_jprb &
37768  &, 0.219472e+01_jprb, 0.218415e+01_jprb, 0.217318e+01_jprb &
37769  &, 0.216178e+01_jprb, 0.214997e+01_jprb, 0.213774e+01_jprb, 0.212515e+01_jprb &
37770  &, 0.211213e+01_jprb, 0.209876e+01_jprb, 0.208501e+01_jprb &
37771  &, 0.207094e+01_jprb, 0.205649e+01_jprb, 0.204174e+01_jprb, 0.202663e+01_jprb &
37772  &, 0.201119e+01_jprb, 0.199548e+01_jprb, 0.197946e+01_jprb &
37773  &, 0.196315e+01_jprb, 0.194658e+01_jprb, 0.192973e+01_jprb, 0.191263e+01_jprb &
37774  &, 0.189527e+01_jprb, 0.187771e+01_jprb, 0.185989e+01_jprb &
37775  &, 0.184189e+01_jprb, 0.182365e+01_jprb, 0.180523e+01_jprb, 0.178662e+01_jprb &
37776  &, 0.176784e+01_jprb, 0.174892e+01_jprb, 0.172984e+01_jprb &
37777  &, 0.171058e+01_jprb, 0.169121e+01_jprb, 0.167172e+01_jprb, 0.165212e+01_jprb &
37778  &, 0.163239e+01_jprb, 0.161257e+01_jprb, 0.159267e+01_jprb &
37779  &, 0.157272e+01_jprb, 0.155269e+01_jprb, 0.153256e+01_jprb, 0.151240e+01_jprb &
37780  &, 0.149225e+01_jprb, 0.147201e+01_jprb, 0.145176e+01_jprb &
37781  &, 0.143142e+01_jprb, 0.141125e+01_jprb, 0.139096e+01_jprb, 0.137072e+01_jprb &
37782  &, 0.135054e+01_jprb, 0.133032e+01_jprb, 0.131016e+01_jprb/)
37783 xcw( 866, :) = (/ &
37784  & 0.111128e+01_jprb, 0.113921e+01_jprb, 0.116715e+01_jprb, 0.119509e+01_jprb &
37785  &, 0.122300e+01_jprb, 0.125088e+01_jprb, 0.127870e+01_jprb &
37786  &, 0.130645e+01_jprb, 0.133411e+01_jprb, 0.136167e+01_jprb, 0.138911e+01_jprb &
37787  &, 0.141641e+01_jprb, 0.144356e+01_jprb, 0.147054e+01_jprb &
37788  &, 0.149733e+01_jprb, 0.152392e+01_jprb, 0.155029e+01_jprb, 0.157644e+01_jprb &
37789  &, 0.160233e+01_jprb, 0.162795e+01_jprb, 0.165330e+01_jprb &
37790  &, 0.167834e+01_jprb, 0.170308e+01_jprb, 0.172749e+01_jprb, 0.175157e+01_jprb &
37791  &, 0.177528e+01_jprb, 0.179863e+01_jprb, 0.182160e+01_jprb &
37792  &, 0.184416e+01_jprb, 0.186632e+01_jprb, 0.188805e+01_jprb, 0.190935e+01_jprb &
37793  &, 0.193021e+01_jprb, 0.195060e+01_jprb, 0.197052e+01_jprb &
37794  &, 0.198996e+01_jprb, 0.200891e+01_jprb, 0.202736e+01_jprb, 0.204529e+01_jprb &
37795  &, 0.206271e+01_jprb, 0.207960e+01_jprb, 0.209595e+01_jprb &
37796  &, 0.211176e+01_jprb, 0.212701e+01_jprb, 0.214171e+01_jprb, 0.215584e+01_jprb &
37797  &, 0.216940e+01_jprb, 0.218239e+01_jprb, 0.219480e+01_jprb &
37798  &, 0.220662e+01_jprb, 0.221785e+01_jprb, 0.222850e+01_jprb, 0.223853e+01_jprb &
37799  &, 0.224799e+01_jprb, 0.225684e+01_jprb, 0.226509e+01_jprb &
37800  &, 0.227275e+01_jprb, 0.227981e+01_jprb, 0.228625e+01_jprb, 0.229209e+01_jprb &
37801  &, 0.229734e+01_jprb, 0.230199e+01_jprb, 0.230603e+01_jprb &
37802  &, 0.230949e+01_jprb, 0.231234e+01_jprb, 0.231461e+01_jprb, 0.231628e+01_jprb &
37803  &, 0.231738e+01_jprb, 0.231789e+01_jprb, 0.231781e+01_jprb &
37804  &, 0.231717e+01_jprb, 0.231597e+01_jprb, 0.231418e+01_jprb, 0.231184e+01_jprb &
37805  &, 0.230896e+01_jprb, 0.230552e+01_jprb, 0.230154e+01_jprb &
37806  &, 0.229700e+01_jprb, 0.229197e+01_jprb, 0.228640e+01_jprb, 0.228030e+01_jprb &
37807  &, 0.227372e+01_jprb, 0.226662e+01_jprb, 0.225903e+01_jprb &
37808  &, 0.225096e+01_jprb, 0.224238e+01_jprb, 0.223337e+01_jprb, 0.222390e+01_jprb &
37809  &, 0.221395e+01_jprb, 0.220357e+01_jprb, 0.219274e+01_jprb &
37810  &, 0.218150e+01_jprb, 0.216985e+01_jprb, 0.215778e+01_jprb, 0.214532e+01_jprb &
37811  &, 0.213245e+01_jprb, 0.211923e+01_jprb, 0.210562e+01_jprb &
37812  &, 0.209165e+01_jprb, 0.207734e+01_jprb, 0.206268e+01_jprb, 0.204770e+01_jprb &
37813  &, 0.203238e+01_jprb, 0.201676e+01_jprb, 0.200085e+01_jprb &
37814  &, 0.198461e+01_jprb, 0.196814e+01_jprb, 0.195135e+01_jprb, 0.193434e+01_jprb &
37815  &, 0.191706e+01_jprb, 0.189954e+01_jprb, 0.188181e+01_jprb &
37816  &, 0.186384e+01_jprb, 0.184566e+01_jprb, 0.182730e+01_jprb, 0.180874e+01_jprb &
37817  &, 0.179001e+01_jprb, 0.177109e+01_jprb, 0.175200e+01_jprb &
37818  &, 0.173282e+01_jprb, 0.171342e+01_jprb, 0.169395e+01_jprb, 0.167436e+01_jprb &
37819  &, 0.165464e+01_jprb, 0.163481e+01_jprb, 0.161490e+01_jprb &
37820  &, 0.159493e+01_jprb, 0.157483e+01_jprb, 0.155473e+01_jprb, 0.153453e+01_jprb &
37821  &, 0.151434e+01_jprb, 0.149404e+01_jprb, 0.147374e+01_jprb &
37822  &, 0.145345e+01_jprb, 0.143315e+01_jprb, 0.141279e+01_jprb, 0.139245e+01_jprb &
37823  &, 0.137218e+01_jprb, 0.135186e+01_jprb, 0.133165e+01_jprb/)
37824 xcw( 867, :) = (/ &
37825  & 0.111178e+01_jprb, 0.113984e+01_jprb, 0.116793e+01_jprb, 0.119600e+01_jprb &
37826  &, 0.122407e+01_jprb, 0.125209e+01_jprb, 0.128007e+01_jprb &
37827  &, 0.130798e+01_jprb, 0.133580e+01_jprb, 0.136353e+01_jprb, 0.139113e+01_jprb &
37828  &, 0.141861e+01_jprb, 0.144593e+01_jprb, 0.147309e+01_jprb &
37829  &, 0.150007e+01_jprb, 0.152685e+01_jprb, 0.155341e+01_jprb, 0.157974e+01_jprb &
37830  &, 0.160583e+01_jprb, 0.163166e+01_jprb, 0.165720e+01_jprb &
37831  &, 0.168246e+01_jprb, 0.170741e+01_jprb, 0.173203e+01_jprb, 0.175631e+01_jprb &
37832  &, 0.178025e+01_jprb, 0.180382e+01_jprb, 0.182700e+01_jprb &
37833  &, 0.184979e+01_jprb, 0.187217e+01_jprb, 0.189414e+01_jprb, 0.191566e+01_jprb &
37834  &, 0.193675e+01_jprb, 0.195738e+01_jprb, 0.197753e+01_jprb &
37835  &, 0.199721e+01_jprb, 0.201640e+01_jprb, 0.203509e+01_jprb, 0.205327e+01_jprb &
37836  &, 0.207092e+01_jprb, 0.208806e+01_jprb, 0.210465e+01_jprb &
37837  &, 0.212071e+01_jprb, 0.213621e+01_jprb, 0.215116e+01_jprb, 0.216553e+01_jprb &
37838  &, 0.217934e+01_jprb, 0.219258e+01_jprb, 0.220524e+01_jprb &
37839  &, 0.221732e+01_jprb, 0.222880e+01_jprb, 0.223969e+01_jprb, 0.224998e+01_jprb &
37840  &, 0.225969e+01_jprb, 0.226880e+01_jprb, 0.227730e+01_jprb &
37841  &, 0.228520e+01_jprb, 0.229249e+01_jprb, 0.229920e+01_jprb, 0.230529e+01_jprb &
37842  &, 0.231079e+01_jprb, 0.231567e+01_jprb, 0.231995e+01_jprb &
37843  &, 0.232365e+01_jprb, 0.232675e+01_jprb, 0.232925e+01_jprb, 0.233118e+01_jprb &
37844  &, 0.233242e+01_jprb, 0.233324e+01_jprb, 0.233340e+01_jprb &
37845  &, 0.233299e+01_jprb, 0.233199e+01_jprb, 0.233043e+01_jprb, 0.232833e+01_jprb &
37846  &, 0.232565e+01_jprb, 0.232244e+01_jprb, 0.231865e+01_jprb &
37847  &, 0.231436e+01_jprb, 0.230951e+01_jprb, 0.230416e+01_jprb, 0.229825e+01_jprb &
37848  &, 0.229187e+01_jprb, 0.228496e+01_jprb, 0.227758e+01_jprb &
37849  &, 0.226967e+01_jprb, 0.226131e+01_jprb, 0.225248e+01_jprb, 0.224316e+01_jprb &
37850  &, 0.223341e+01_jprb, 0.222318e+01_jprb, 0.221255e+01_jprb &
37851  &, 0.220145e+01_jprb, 0.218997e+01_jprb, 0.217803e+01_jprb, 0.216572e+01_jprb &
37852  &, 0.215300e+01_jprb, 0.213990e+01_jprb, 0.212644e+01_jprb &
37853  &, 0.211261e+01_jprb, 0.209841e+01_jprb, 0.208388e+01_jprb, 0.206899e+01_jprb &
37854  &, 0.205380e+01_jprb, 0.203830e+01_jprb, 0.202247e+01_jprb &
37855  &, 0.200634e+01_jprb, 0.198994e+01_jprb, 0.197325e+01_jprb, 0.195634e+01_jprb &
37856  &, 0.193912e+01_jprb, 0.192169e+01_jprb, 0.190399e+01_jprb &
37857  &, 0.188609e+01_jprb, 0.186798e+01_jprb, 0.184964e+01_jprb, 0.183114e+01_jprb &
37858  &, 0.181247e+01_jprb, 0.179354e+01_jprb, 0.177454e+01_jprb &
37859  &, 0.175535e+01_jprb, 0.173599e+01_jprb, 0.171653e+01_jprb, 0.169691e+01_jprb &
37860  &, 0.167720e+01_jprb, 0.165737e+01_jprb, 0.163746e+01_jprb &
37861  &, 0.161743e+01_jprb, 0.159736e+01_jprb, 0.157718e+01_jprb, 0.155701e+01_jprb &
37862  &, 0.153672e+01_jprb, 0.151644e+01_jprb, 0.149608e+01_jprb &
37863  &, 0.147573e+01_jprb, 0.145536e+01_jprb, 0.143498e+01_jprb, 0.141457e+01_jprb &
37864  &, 0.139420e+01_jprb, 0.137385e+01_jprb, 0.135340e+01_jprb/)
37865 xcw( 868, :) = (/ &
37866  & 0.111228e+01_jprb, 0.114048e+01_jprb, 0.116870e+01_jprb, 0.119692e+01_jprb &
37867  &, 0.122513e+01_jprb, 0.125331e+01_jprb, 0.128145e+01_jprb &
37868  &, 0.130951e+01_jprb, 0.133750e+01_jprb, 0.136539e+01_jprb, 0.139317e+01_jprb &
37869  &, 0.142082e+01_jprb, 0.144832e+01_jprb, 0.147566e+01_jprb &
37870  &, 0.150282e+01_jprb, 0.152979e+01_jprb, 0.155655e+01_jprb, 0.158308e+01_jprb &
37871  &, 0.160936e+01_jprb, 0.163539e+01_jprb, 0.166114e+01_jprb &
37872  &, 0.168660e+01_jprb, 0.171176e+01_jprb, 0.173659e+01_jprb, 0.176110e+01_jprb &
37873  &, 0.178525e+01_jprb, 0.180903e+01_jprb, 0.183244e+01_jprb &
37874  &, 0.185546e+01_jprb, 0.187807e+01_jprb, 0.190026e+01_jprb, 0.192203e+01_jprb &
37875  &, 0.194334e+01_jprb, 0.196420e+01_jprb, 0.198460e+01_jprb &
37876  &, 0.200452e+01_jprb, 0.202393e+01_jprb, 0.204288e+01_jprb, 0.206130e+01_jprb &
37877  &, 0.207921e+01_jprb, 0.209658e+01_jprb, 0.211343e+01_jprb &
37878  &, 0.212973e+01_jprb, 0.214548e+01_jprb, 0.216068e+01_jprb, 0.217531e+01_jprb &
37879  &, 0.218938e+01_jprb, 0.220282e+01_jprb, 0.221577e+01_jprb &
37880  &, 0.222768e+01_jprb, 0.223984e+01_jprb, 0.225098e+01_jprb, 0.226153e+01_jprb &
37881  &, 0.227148e+01_jprb, 0.228084e+01_jprb, 0.228959e+01_jprb &
37882  &, 0.229775e+01_jprb, 0.230531e+01_jprb, 0.231224e+01_jprb, 0.231860e+01_jprb &
37883  &, 0.232433e+01_jprb, 0.232948e+01_jprb, 0.233401e+01_jprb &
37884  &, 0.233795e+01_jprb, 0.234128e+01_jprb, 0.234404e+01_jprb, 0.234619e+01_jprb &
37885  &, 0.234774e+01_jprb, 0.234872e+01_jprb, 0.234911e+01_jprb &
37886  &, 0.234893e+01_jprb, 0.234818e+01_jprb, 0.234685e+01_jprb, 0.234498e+01_jprb &
37887  &, 0.234251e+01_jprb, 0.233952e+01_jprb, 0.233596e+01_jprb &
37888  &, 0.233187e+01_jprb, 0.232725e+01_jprb, 0.232210e+01_jprb, 0.231642e+01_jprb &
37889  &, 0.231022e+01_jprb, 0.230351e+01_jprb, 0.229630e+01_jprb &
37890  &, 0.228861e+01_jprb, 0.228043e+01_jprb, 0.227179e+01_jprb, 0.226265e+01_jprb &
37891  &, 0.225306e+01_jprb, 0.224304e+01_jprb, 0.223255e+01_jprb &
37892  &, 0.222162e+01_jprb, 0.221028e+01_jprb, 0.219853e+01_jprb, 0.218635e+01_jprb &
37893  &, 0.217380e+01_jprb, 0.216085e+01_jprb, 0.214751e+01_jprb &
37894  &, 0.213383e+01_jprb, 0.211969e+01_jprb, 0.210534e+01_jprb, 0.209059e+01_jprb &
37895  &, 0.207549e+01_jprb, 0.206008e+01_jprb, 0.204437e+01_jprb &
37896  &, 0.202836e+01_jprb, 0.201203e+01_jprb, 0.199545e+01_jprb, 0.197860e+01_jprb &
37897  &, 0.196147e+01_jprb, 0.194409e+01_jprb, 0.192652e+01_jprb &
37898  &, 0.190866e+01_jprb, 0.189058e+01_jprb, 0.187231e+01_jprb, 0.185388e+01_jprb &
37899  &, 0.183521e+01_jprb, 0.181634e+01_jprb, 0.179734e+01_jprb &
37900  &, 0.177818e+01_jprb, 0.175886e+01_jprb, 0.173938e+01_jprb, 0.171983e+01_jprb &
37901  &, 0.170008e+01_jprb, 0.168026e+01_jprb, 0.166035e+01_jprb &
37902  &, 0.164031e+01_jprb, 0.162023e+01_jprb, 0.160003e+01_jprb, 0.157977e+01_jprb &
37903  &, 0.155950e+01_jprb, 0.153912e+01_jprb, 0.151878e+01_jprb &
37904  &, 0.149838e+01_jprb, 0.147794e+01_jprb, 0.145749e+01_jprb, 0.143700e+01_jprb &
37905  &, 0.141654e+01_jprb, 0.139616e+01_jprb, 0.137574e+01_jprb/)
37906 
37907 IF (lhook) CALL dr_hook('SU_MCICA:PART124',1,zhook_handle)
37908 END SUBROUTINE part124
37909 
37910 #ifdef VPP5000
37911 !OCL SCALAR
37912 #endif
37913 !option! -Nv -NO
37914 #ifdef RS6K
37915 @process nooptimize
37916 #endif
37917 !pgi$r opt=0
37918 SUBROUTINE part125
37919 
37920 REAL(KIND=JPRB) :: ZHOOK_HANDLE
37921 IF (lhook) CALL dr_hook('SU_MCICA:PART125',0,zhook_handle)
37922 
37923 xcw( 869, :) = (/ &
37924  & 0.111278e+01_jprb, 0.114112e+01_jprb, 0.116948e+01_jprb, 0.119785e+01_jprb &
37925  &, 0.122621e+01_jprb, 0.125454e+01_jprb, 0.128283e+01_jprb &
37926  &, 0.131106e+01_jprb, 0.133921e+01_jprb, 0.136727e+01_jprb, 0.139522e+01_jprb &
37927  &, 0.142304e+01_jprb, 0.145073e+01_jprb, 0.147825e+01_jprb &
37928  &, 0.150560e+01_jprb, 0.153275e+01_jprb, 0.155970e+01_jprb, 0.158643e+01_jprb &
37929  &, 0.161291e+01_jprb, 0.163914e+01_jprb, 0.166510e+01_jprb &
37930  &, 0.169077e+01_jprb, 0.171614e+01_jprb, 0.174119e+01_jprb, 0.176591e+01_jprb &
37931  &, 0.179028e+01_jprb, 0.181429e+01_jprb, 0.183792e+01_jprb &
37932  &, 0.186117e+01_jprb, 0.188401e+01_jprb, 0.190644e+01_jprb, 0.192843e+01_jprb &
37933  &, 0.194998e+01_jprb, 0.197108e+01_jprb, 0.199172e+01_jprb &
37934  &, 0.201188e+01_jprb, 0.203155e+01_jprb, 0.205073e+01_jprb, 0.206940e+01_jprb &
37935  &, 0.208755e+01_jprb, 0.210518e+01_jprb, 0.212227e+01_jprb &
37936  &, 0.213882e+01_jprb, 0.215483e+01_jprb, 0.217028e+01_jprb, 0.218516e+01_jprb &
37937  &, 0.219948e+01_jprb, 0.221322e+01_jprb, 0.222639e+01_jprb &
37938  &, 0.223897e+01_jprb, 0.225097e+01_jprb, 0.226238e+01_jprb, 0.227317e+01_jprb &
37939  &, 0.228339e+01_jprb, 0.229300e+01_jprb, 0.230201e+01_jprb &
37940  &, 0.231041e+01_jprb, 0.231822e+01_jprb, 0.232542e+01_jprb, 0.233201e+01_jprb &
37941  &, 0.233801e+01_jprb, 0.234340e+01_jprb, 0.234816e+01_jprb &
37942  &, 0.235238e+01_jprb, 0.235595e+01_jprb, 0.235894e+01_jprb, 0.236134e+01_jprb &
37943  &, 0.236314e+01_jprb, 0.236437e+01_jprb, 0.236499e+01_jprb &
37944  &, 0.236504e+01_jprb, 0.236452e+01_jprb, 0.236345e+01_jprb, 0.236178e+01_jprb &
37945  &, 0.235954e+01_jprb, 0.235677e+01_jprb, 0.235344e+01_jprb &
37946  &, 0.234956e+01_jprb, 0.234516e+01_jprb, 0.234021e+01_jprb, 0.233473e+01_jprb &
37947  &, 0.232877e+01_jprb, 0.232225e+01_jprb, 0.231524e+01_jprb &
37948  &, 0.230774e+01_jprb, 0.229976e+01_jprb, 0.229131e+01_jprb, 0.228235e+01_jprb &
37949  &, 0.227294e+01_jprb, 0.226307e+01_jprb, 0.225277e+01_jprb &
37950  &, 0.224202e+01_jprb, 0.223084e+01_jprb, 0.221924e+01_jprb, 0.220722e+01_jprb &
37951  &, 0.219483e+01_jprb, 0.218201e+01_jprb, 0.216882e+01_jprb &
37952  &, 0.215526e+01_jprb, 0.214134e+01_jprb, 0.212703e+01_jprb, 0.211241e+01_jprb &
37953  &, 0.209745e+01_jprb, 0.208217e+01_jprb, 0.206655e+01_jprb &
37954  &, 0.205062e+01_jprb, 0.203440e+01_jprb, 0.201794e+01_jprb, 0.200115e+01_jprb &
37955  &, 0.198413e+01_jprb, 0.196684e+01_jprb, 0.194927e+01_jprb &
37956  &, 0.193150e+01_jprb, 0.191350e+01_jprb, 0.189531e+01_jprb, 0.187689e+01_jprb &
37957  &, 0.185824e+01_jprb, 0.183948e+01_jprb, 0.182048e+01_jprb &
37958  &, 0.180132e+01_jprb, 0.178203e+01_jprb, 0.176258e+01_jprb, 0.174300e+01_jprb &
37959  &, 0.172333e+01_jprb, 0.170347e+01_jprb, 0.168356e+01_jprb &
37960  &, 0.166352e+01_jprb, 0.164344e+01_jprb, 0.162321e+01_jprb, 0.160294e+01_jprb &
37961  &, 0.158258e+01_jprb, 0.156223e+01_jprb, 0.154178e+01_jprb &
37962  &, 0.152132e+01_jprb, 0.150082e+01_jprb, 0.148037e+01_jprb, 0.145987e+01_jprb &
37963  &, 0.143933e+01_jprb, 0.141880e+01_jprb, 0.139834e+01_jprb/)
37964 xcw( 870, :) = (/ &
37965  & 0.111329e+01_jprb, 0.114176e+01_jprb, 0.117027e+01_jprb, 0.119878e+01_jprb &
37966  &, 0.122729e+01_jprb, 0.125577e+01_jprb, 0.128422e+01_jprb &
37967  &, 0.131261e+01_jprb, 0.134093e+01_jprb, 0.136916e+01_jprb, 0.139728e+01_jprb &
37968  &, 0.142529e+01_jprb, 0.145315e+01_jprb, 0.148086e+01_jprb &
37969  &, 0.150839e+01_jprb, 0.153574e+01_jprb, 0.156288e+01_jprb, 0.158981e+01_jprb &
37970  &, 0.161649e+01_jprb, 0.164292e+01_jprb, 0.166909e+01_jprb &
37971  &, 0.169497e+01_jprb, 0.172055e+01_jprb, 0.174582e+01_jprb, 0.177076e+01_jprb &
37972  &, 0.179535e+01_jprb, 0.181958e+01_jprb, 0.184344e+01_jprb &
37973  &, 0.186692e+01_jprb, 0.188999e+01_jprb, 0.191265e+01_jprb, 0.193488e+01_jprb &
37974  &, 0.195667e+01_jprb, 0.197802e+01_jprb, 0.199889e+01_jprb &
37975  &, 0.201929e+01_jprb, 0.203921e+01_jprb, 0.205864e+01_jprb, 0.207755e+01_jprb &
37976  &, 0.209596e+01_jprb, 0.211385e+01_jprb, 0.213118e+01_jprb &
37977  &, 0.214799e+01_jprb, 0.216426e+01_jprb, 0.217996e+01_jprb, 0.219510e+01_jprb &
37978  &, 0.220967e+01_jprb, 0.222368e+01_jprb, 0.223710e+01_jprb &
37979  &, 0.224994e+01_jprb, 0.226219e+01_jprb, 0.227386e+01_jprb, 0.228491e+01_jprb &
37980  &, 0.229539e+01_jprb, 0.230526e+01_jprb, 0.231452e+01_jprb &
37981  &, 0.232320e+01_jprb, 0.233125e+01_jprb, 0.233871e+01_jprb, 0.234555e+01_jprb &
37982  &, 0.235180e+01_jprb, 0.235744e+01_jprb, 0.236248e+01_jprb &
37983  &, 0.236693e+01_jprb, 0.237075e+01_jprb, 0.237401e+01_jprb, 0.237664e+01_jprb &
37984  &, 0.237870e+01_jprb, 0.238016e+01_jprb, 0.238102e+01_jprb &
37985  &, 0.238132e+01_jprb, 0.238104e+01_jprb, 0.238018e+01_jprb, 0.237875e+01_jprb &
37986  &, 0.237674e+01_jprb, 0.237420e+01_jprb, 0.237111e+01_jprb &
37987  &, 0.236743e+01_jprb, 0.236324e+01_jprb, 0.235853e+01_jprb, 0.235325e+01_jprb &
37988  &, 0.234749e+01_jprb, 0.234118e+01_jprb, 0.233439e+01_jprb &
37989  &, 0.232710e+01_jprb, 0.231931e+01_jprb, 0.231102e+01_jprb, 0.230226e+01_jprb &
37990  &, 0.229304e+01_jprb, 0.228336e+01_jprb, 0.227323e+01_jprb &
37991  &, 0.226266e+01_jprb, 0.225163e+01_jprb, 0.224020e+01_jprb, 0.222836e+01_jprb &
37992  &, 0.221610e+01_jprb, 0.220344e+01_jprb, 0.219038e+01_jprb &
37993  &, 0.217697e+01_jprb, 0.216317e+01_jprb, 0.214901e+01_jprb, 0.213450e+01_jprb &
37994  &, 0.211968e+01_jprb, 0.210449e+01_jprb, 0.208900e+01_jprb &
37995  &, 0.207320e+01_jprb, 0.205707e+01_jprb, 0.204067e+01_jprb, 0.202400e+01_jprb &
37996  &, 0.200704e+01_jprb, 0.198985e+01_jprb, 0.197238e+01_jprb &
37997  &, 0.195465e+01_jprb, 0.193674e+01_jprb, 0.191858e+01_jprb, 0.190019e+01_jprb &
37998  &, 0.188166e+01_jprb, 0.186290e+01_jprb, 0.184396e+01_jprb &
37999  &, 0.182485e+01_jprb, 0.180555e+01_jprb, 0.178614e+01_jprb, 0.176660e+01_jprb &
38000  &, 0.174689e+01_jprb, 0.172705e+01_jprb, 0.170710e+01_jprb &
38001  &, 0.168706e+01_jprb, 0.166697e+01_jprb, 0.164674e+01_jprb, 0.162645e+01_jprb &
38002  &, 0.160607e+01_jprb, 0.158568e+01_jprb, 0.156519e+01_jprb &
38003  &, 0.154469e+01_jprb, 0.152414e+01_jprb, 0.150363e+01_jprb, 0.148306e+01_jprb &
38004  &, 0.146245e+01_jprb, 0.144189e+01_jprb, 0.142128e+01_jprb/)
38005 xcw( 871, :) = (/ &
38006  & 0.111380e+01_jprb, 0.114241e+01_jprb, 0.117106e+01_jprb, 0.119972e+01_jprb &
38007  &, 0.122838e+01_jprb, 0.125702e+01_jprb, 0.128562e+01_jprb &
38008  &, 0.131418e+01_jprb, 0.134266e+01_jprb, 0.137106e+01_jprb, 0.139936e+01_jprb &
38009  &, 0.142754e+01_jprb, 0.145558e+01_jprb, 0.148348e+01_jprb &
38010  &, 0.151120e+01_jprb, 0.153874e+01_jprb, 0.156608e+01_jprb, 0.159320e+01_jprb &
38011  &, 0.162009e+01_jprb, 0.164673e+01_jprb, 0.167310e+01_jprb &
38012  &, 0.169920e+01_jprb, 0.172499e+01_jprb, 0.175048e+01_jprb, 0.177564e+01_jprb &
38013  &, 0.180046e+01_jprb, 0.182492e+01_jprb, 0.184900e+01_jprb &
38014  &, 0.187271e+01_jprb, 0.189602e+01_jprb, 0.191891e+01_jprb, 0.194138e+01_jprb &
38015  &, 0.196342e+01_jprb, 0.198500e+01_jprb, 0.200612e+01_jprb &
38016  &, 0.202677e+01_jprb, 0.204694e+01_jprb, 0.206661e+01_jprb, 0.208578e+01_jprb &
38017  &, 0.210443e+01_jprb, 0.212257e+01_jprb, 0.214017e+01_jprb &
38018  &, 0.215724e+01_jprb, 0.217376e+01_jprb, 0.218972e+01_jprb, 0.220512e+01_jprb &
38019  &, 0.221995e+01_jprb, 0.223421e+01_jprb, 0.224790e+01_jprb &
38020  &, 0.226099e+01_jprb, 0.227351e+01_jprb, 0.228544e+01_jprb, 0.229676e+01_jprb &
38021  &, 0.230750e+01_jprb, 0.231762e+01_jprb, 0.232715e+01_jprb &
38022  &, 0.233607e+01_jprb, 0.234440e+01_jprb, 0.235212e+01_jprb, 0.235923e+01_jprb &
38023  &, 0.236574e+01_jprb, 0.237163e+01_jprb, 0.237693e+01_jprb &
38024  &, 0.238161e+01_jprb, 0.238570e+01_jprb, 0.238919e+01_jprb, 0.239208e+01_jprb &
38025  &, 0.239439e+01_jprb, 0.239609e+01_jprb, 0.239721e+01_jprb &
38026  &, 0.239775e+01_jprb, 0.239770e+01_jprb, 0.239708e+01_jprb, 0.239589e+01_jprb &
38027  &, 0.239412e+01_jprb, 0.239179e+01_jprb, 0.238892e+01_jprb &
38028  &, 0.238550e+01_jprb, 0.238152e+01_jprb, 0.237702e+01_jprb, 0.237198e+01_jprb &
38029  &, 0.236640e+01_jprb, 0.236032e+01_jprb, 0.235374e+01_jprb &
38030  &, 0.234664e+01_jprb, 0.233906e+01_jprb, 0.233097e+01_jprb, 0.232240e+01_jprb &
38031  &, 0.231337e+01_jprb, 0.230388e+01_jprb, 0.229392e+01_jprb &
38032  &, 0.228353e+01_jprb, 0.227268e+01_jprb, 0.226140e+01_jprb, 0.224973e+01_jprb &
38033  &, 0.223761e+01_jprb, 0.222512e+01_jprb, 0.221222e+01_jprb &
38034  &, 0.219894e+01_jprb, 0.218530e+01_jprb, 0.217125e+01_jprb, 0.215689e+01_jprb &
38035  &, 0.214217e+01_jprb, 0.212712e+01_jprb, 0.211173e+01_jprb &
38036  &, 0.209602e+01_jprb, 0.208001e+01_jprb, 0.206374e+01_jprb, 0.204714e+01_jprb &
38037  &, 0.203029e+01_jprb, 0.201316e+01_jprb, 0.199575e+01_jprb &
38038  &, 0.197812e+01_jprb, 0.196025e+01_jprb, 0.194217e+01_jprb, 0.192387e+01_jprb &
38039  &, 0.190536e+01_jprb, 0.188662e+01_jprb, 0.186774e+01_jprb &
38040  &, 0.184868e+01_jprb, 0.182943e+01_jprb, 0.181001e+01_jprb, 0.179050e+01_jprb &
38041  &, 0.177077e+01_jprb, 0.175095e+01_jprb, 0.173102e+01_jprb &
38042  &, 0.171099e+01_jprb, 0.169085e+01_jprb, 0.167061e+01_jprb, 0.165031e+01_jprb &
38043  &, 0.162997e+01_jprb, 0.160949e+01_jprb, 0.158897e+01_jprb &
38044  &, 0.156843e+01_jprb, 0.154789e+01_jprb, 0.152726e+01_jprb, 0.150662e+01_jprb &
38045  &, 0.148594e+01_jprb, 0.146530e+01_jprb, 0.144467e+01_jprb/)
38046 xcw( 872, :) = (/ &
38047  & 0.111431e+01_jprb, 0.114306e+01_jprb, 0.117185e+01_jprb, 0.120066e+01_jprb &
38048  &, 0.122947e+01_jprb, 0.125827e+01_jprb, 0.128703e+01_jprb &
38049  &, 0.131575e+01_jprb, 0.134440e+01_jprb, 0.137297e+01_jprb, 0.140145e+01_jprb &
38050  &, 0.142981e+01_jprb, 0.145803e+01_jprb, 0.148611e+01_jprb &
38051  &, 0.151403e+01_jprb, 0.154177e+01_jprb, 0.156928e+01_jprb, 0.159662e+01_jprb &
38052  &, 0.162372e+01_jprb, 0.165056e+01_jprb, 0.167715e+01_jprb &
38053  &, 0.170346e+01_jprb, 0.172947e+01_jprb, 0.175518e+01_jprb, 0.178056e+01_jprb &
38054  &, 0.180560e+01_jprb, 0.183029e+01_jprb, 0.185461e+01_jprb &
38055  &, 0.187854e+01_jprb, 0.190209e+01_jprb, 0.192522e+01_jprb, 0.194793e+01_jprb &
38056  &, 0.197021e+01_jprb, 0.199204e+01_jprb, 0.201340e+01_jprb &
38057  &, 0.203431e+01_jprb, 0.205472e+01_jprb, 0.207465e+01_jprb, 0.209406e+01_jprb &
38058  &, 0.211298e+01_jprb, 0.213137e+01_jprb, 0.214922e+01_jprb &
38059  &, 0.216655e+01_jprb, 0.218333e+01_jprb, 0.219955e+01_jprb, 0.221522e+01_jprb &
38060  &, 0.223031e+01_jprb, 0.224484e+01_jprb, 0.225878e+01_jprb &
38061  &, 0.227215e+01_jprb, 0.228492e+01_jprb, 0.229711e+01_jprb, 0.230871e+01_jprb &
38062  &, 0.231971e+01_jprb, 0.233010e+01_jprb, 0.233990e+01_jprb &
38063  &, 0.234908e+01_jprb, 0.235767e+01_jprb, 0.236564e+01_jprb, 0.237302e+01_jprb &
38064  &, 0.237977e+01_jprb, 0.238593e+01_jprb, 0.239148e+01_jprb &
38065  &, 0.239644e+01_jprb, 0.240078e+01_jprb, 0.240453e+01_jprb, 0.240767e+01_jprb &
38066  &, 0.241022e+01_jprb, 0.241219e+01_jprb, 0.241354e+01_jprb &
38067  &, 0.241432e+01_jprb, 0.241452e+01_jprb, 0.241414e+01_jprb, 0.241319e+01_jprb &
38068  &, 0.241166e+01_jprb, 0.240958e+01_jprb, 0.240694e+01_jprb &
38069  &, 0.240374e+01_jprb, 0.239998e+01_jprb, 0.239572e+01_jprb, 0.239089e+01_jprb &
38070  &, 0.238555e+01_jprb, 0.237968e+01_jprb, 0.237328e+01_jprb &
38071  &, 0.236639e+01_jprb, 0.235900e+01_jprb, 0.235112e+01_jprb, 0.234275e+01_jprb &
38072  &, 0.233392e+01_jprb, 0.232459e+01_jprb, 0.231482e+01_jprb &
38073  &, 0.230462e+01_jprb, 0.229396e+01_jprb, 0.228285e+01_jprb, 0.227133e+01_jprb &
38074  &, 0.225939e+01_jprb, 0.224704e+01_jprb, 0.223431e+01_jprb &
38075  &, 0.222115e+01_jprb, 0.220764e+01_jprb, 0.219378e+01_jprb, 0.217954e+01_jprb &
38076  &, 0.216493e+01_jprb, 0.215003e+01_jprb, 0.213474e+01_jprb &
38077  &, 0.211916e+01_jprb, 0.210328e+01_jprb, 0.208705e+01_jprb, 0.207058e+01_jprb &
38078  &, 0.205380e+01_jprb, 0.203679e+01_jprb, 0.201948e+01_jprb &
38079  &, 0.200190e+01_jprb, 0.198413e+01_jprb, 0.196609e+01_jprb, 0.194782e+01_jprb &
38080  &, 0.192939e+01_jprb, 0.191073e+01_jprb, 0.189186e+01_jprb &
38081  &, 0.187281e+01_jprb, 0.185362e+01_jprb, 0.183424e+01_jprb, 0.181472e+01_jprb &
38082  &, 0.179508e+01_jprb, 0.177523e+01_jprb, 0.175532e+01_jprb &
38083  &, 0.173531e+01_jprb, 0.171511e+01_jprb, 0.169488e+01_jprb, 0.167457e+01_jprb &
38084  &, 0.165415e+01_jprb, 0.163372e+01_jprb, 0.161317e+01_jprb &
38085  &, 0.159259e+01_jprb, 0.157195e+01_jprb, 0.155126e+01_jprb, 0.153057e+01_jprb &
38086  &, 0.150988e+01_jprb, 0.148917e+01_jprb, 0.146846e+01_jprb/)
38087 xcw( 873, :) = (/ &
38088  & 0.111483e+01_jprb, 0.114372e+01_jprb, 0.117265e+01_jprb, 0.120161e+01_jprb &
38089  &, 0.123057e+01_jprb, 0.125952e+01_jprb, 0.128845e+01_jprb &
38090  &, 0.131733e+01_jprb, 0.134616e+01_jprb, 0.137490e+01_jprb, 0.140355e+01_jprb &
38091  &, 0.143209e+01_jprb, 0.146050e+01_jprb, 0.148877e+01_jprb &
38092  &, 0.151688e+01_jprb, 0.154481e+01_jprb, 0.157254e+01_jprb, 0.160007e+01_jprb &
38093  &, 0.162737e+01_jprb, 0.165442e+01_jprb, 0.168122e+01_jprb &
38094  &, 0.170774e+01_jprb, 0.173398e+01_jprb, 0.175990e+01_jprb, 0.178551e+01_jprb &
38095  &, 0.181078e+01_jprb, 0.183570e+01_jprb, 0.186025e+01_jprb &
38096  &, 0.188442e+01_jprb, 0.190820e+01_jprb, 0.193158e+01_jprb, 0.195453e+01_jprb &
38097  &, 0.197705e+01_jprb, 0.199913e+01_jprb, 0.202074e+01_jprb &
38098  &, 0.204190e+01_jprb, 0.206257e+01_jprb, 0.208274e+01_jprb, 0.210243e+01_jprb &
38099  &, 0.212159e+01_jprb, 0.214024e+01_jprb, 0.215836e+01_jprb &
38100  &, 0.217595e+01_jprb, 0.219299e+01_jprb, 0.220947e+01_jprb, 0.222539e+01_jprb &
38101  &, 0.224076e+01_jprb, 0.225555e+01_jprb, 0.226977e+01_jprb &
38102  &, 0.228340e+01_jprb, 0.229644e+01_jprb, 0.230889e+01_jprb, 0.232075e+01_jprb &
38103  &, 0.233202e+01_jprb, 0.234268e+01_jprb, 0.235274e+01_jprb &
38104  &, 0.236220e+01_jprb, 0.237105e+01_jprb, 0.237928e+01_jprb, 0.238693e+01_jprb &
38105  &, 0.239395e+01_jprb, 0.240037e+01_jprb, 0.240620e+01_jprb &
38106  &, 0.241141e+01_jprb, 0.241601e+01_jprb, 0.242002e+01_jprb, 0.242338e+01_jprb &
38107  &, 0.242622e+01_jprb, 0.242842e+01_jprb, 0.243004e+01_jprb &
38108  &, 0.243107e+01_jprb, 0.243153e+01_jprb, 0.243139e+01_jprb, 0.243067e+01_jprb &
38109  &, 0.242939e+01_jprb, 0.242755e+01_jprb, 0.242513e+01_jprb &
38110  &, 0.242218e+01_jprb, 0.241866e+01_jprb, 0.241459e+01_jprb, 0.240995e+01_jprb &
38111  &, 0.240488e+01_jprb, 0.239922e+01_jprb, 0.239303e+01_jprb &
38112  &, 0.238635e+01_jprb, 0.237918e+01_jprb, 0.237150e+01_jprb, 0.236333e+01_jprb &
38113  &, 0.235467e+01_jprb, 0.234558e+01_jprb, 0.233587e+01_jprb &
38114  &, 0.232596e+01_jprb, 0.231546e+01_jprb, 0.230454e+01_jprb, 0.229317e+01_jprb &
38115  &, 0.228140e+01_jprb, 0.226923e+01_jprb, 0.225664e+01_jprb &
38116  &, 0.224366e+01_jprb, 0.223030e+01_jprb, 0.221657e+01_jprb, 0.220245e+01_jprb &
38117  &, 0.218800e+01_jprb, 0.217321e+01_jprb, 0.215806e+01_jprb &
38118  &, 0.214258e+01_jprb, 0.212680e+01_jprb, 0.211070e+01_jprb, 0.209435e+01_jprb &
38119  &, 0.207765e+01_jprb, 0.206071e+01_jprb, 0.204351e+01_jprb &
38120  &, 0.202604e+01_jprb, 0.200828e+01_jprb, 0.199034e+01_jprb, 0.197215e+01_jprb &
38121  &, 0.195375e+01_jprb, 0.193517e+01_jprb, 0.191632e+01_jprb &
38122  &, 0.189734e+01_jprb, 0.187815e+01_jprb, 0.185883e+01_jprb, 0.183936e+01_jprb &
38123  &, 0.181970e+01_jprb, 0.179989e+01_jprb, 0.178000e+01_jprb &
38124  &, 0.175995e+01_jprb, 0.173977e+01_jprb, 0.171954e+01_jprb, 0.169917e+01_jprb &
38125  &, 0.167875e+01_jprb, 0.165830e+01_jprb, 0.163772e+01_jprb &
38126  &, 0.161705e+01_jprb, 0.159643e+01_jprb, 0.157570e+01_jprb, 0.155496e+01_jprb &
38127  &, 0.153421e+01_jprb, 0.151343e+01_jprb, 0.149264e+01_jprb/)
38128 xcw( 874, :) = (/ &
38129  & 0.111534e+01_jprb, 0.114438e+01_jprb, 0.117346e+01_jprb, 0.120256e+01_jprb &
38130  &, 0.123168e+01_jprb, 0.126079e+01_jprb, 0.128988e+01_jprb &
38131  &, 0.131893e+01_jprb, 0.134792e+01_jprb, 0.137684e+01_jprb, 0.140567e+01_jprb &
38132  &, 0.143439e+01_jprb, 0.146299e+01_jprb, 0.149144e+01_jprb &
38133  &, 0.151975e+01_jprb, 0.154787e+01_jprb, 0.157581e+01_jprb, 0.160354e+01_jprb &
38134  &, 0.163105e+01_jprb, 0.165831e+01_jprb, 0.168532e+01_jprb &
38135  &, 0.171206e+01_jprb, 0.173852e+01_jprb, 0.176467e+01_jprb, 0.179050e+01_jprb &
38136  &, 0.181600e+01_jprb, 0.184115e+01_jprb, 0.186594e+01_jprb &
38137  &, 0.189034e+01_jprb, 0.191437e+01_jprb, 0.193798e+01_jprb, 0.196118e+01_jprb &
38138  &, 0.198395e+01_jprb, 0.200627e+01_jprb, 0.202814e+01_jprb &
38139  &, 0.204954e+01_jprb, 0.207046e+01_jprb, 0.209091e+01_jprb, 0.211085e+01_jprb &
38140  &, 0.213027e+01_jprb, 0.214918e+01_jprb, 0.216757e+01_jprb &
38141  &, 0.218541e+01_jprb, 0.220272e+01_jprb, 0.221947e+01_jprb, 0.223567e+01_jprb &
38142  &, 0.225130e+01_jprb, 0.226636e+01_jprb, 0.228084e+01_jprb &
38143  &, 0.229474e+01_jprb, 0.230806e+01_jprb, 0.232078e+01_jprb, 0.233289e+01_jprb &
38144  &, 0.234445e+01_jprb, 0.235537e+01_jprb, 0.236570e+01_jprb &
38145  &, 0.237544e+01_jprb, 0.238455e+01_jprb, 0.239304e+01_jprb, 0.240097e+01_jprb &
38146  &, 0.240826e+01_jprb, 0.241496e+01_jprb, 0.242104e+01_jprb &
38147  &, 0.242650e+01_jprb, 0.243137e+01_jprb, 0.243564e+01_jprb, 0.243931e+01_jprb &
38148  &, 0.244237e+01_jprb, 0.244484e+01_jprb, 0.244671e+01_jprb &
38149  &, 0.244798e+01_jprb, 0.244869e+01_jprb, 0.244880e+01_jprb, 0.244833e+01_jprb &
38150  &, 0.244730e+01_jprb, 0.244568e+01_jprb, 0.244351e+01_jprb &
38151  &, 0.244079e+01_jprb, 0.243752e+01_jprb, 0.243367e+01_jprb, 0.242930e+01_jprb &
38152  &, 0.242439e+01_jprb, 0.241893e+01_jprb, 0.241301e+01_jprb &
38153  &, 0.240654e+01_jprb, 0.239958e+01_jprb, 0.239211e+01_jprb, 0.238412e+01_jprb &
38154  &, 0.237570e+01_jprb, 0.236677e+01_jprb, 0.235736e+01_jprb &
38155  &, 0.234752e+01_jprb, 0.233721e+01_jprb, 0.232649e+01_jprb, 0.231531e+01_jprb &
38156  &, 0.230369e+01_jprb, 0.229167e+01_jprb, 0.227925e+01_jprb &
38157  &, 0.226644e+01_jprb, 0.225323e+01_jprb, 0.223963e+01_jprb, 0.222567e+01_jprb &
38158  &, 0.221134e+01_jprb, 0.219666e+01_jprb, 0.218166e+01_jprb &
38159  &, 0.216633e+01_jprb, 0.215065e+01_jprb, 0.213468e+01_jprb, 0.211838e+01_jprb &
38160  &, 0.210180e+01_jprb, 0.208498e+01_jprb, 0.206786e+01_jprb &
38161  &, 0.205045e+01_jprb, 0.203279e+01_jprb, 0.201495e+01_jprb, 0.199681e+01_jprb &
38162  &, 0.197845e+01_jprb, 0.195990e+01_jprb, 0.194118e+01_jprb &
38163  &, 0.192222e+01_jprb, 0.190309e+01_jprb, 0.188378e+01_jprb, 0.186430e+01_jprb &
38164  &, 0.184469e+01_jprb, 0.182492e+01_jprb, 0.180501e+01_jprb &
38165  &, 0.178498e+01_jprb, 0.176482e+01_jprb, 0.174454e+01_jprb, 0.172418e+01_jprb &
38166  &, 0.170375e+01_jprb, 0.168323e+01_jprb, 0.166264e+01_jprb &
38167  &, 0.164200e+01_jprb, 0.162129e+01_jprb, 0.160052e+01_jprb, 0.157972e+01_jprb &
38168  &, 0.155892e+01_jprb, 0.153808e+01_jprb, 0.151721e+01_jprb/)
38169 xcw( 875, :) = (/ &
38170  & 0.111587e+01_jprb, 0.114504e+01_jprb, 0.117426e+01_jprb, 0.120352e+01_jprb &
38171  &, 0.123279e+01_jprb, 0.126206e+01_jprb, 0.129131e+01_jprb &
38172  &, 0.132053e+01_jprb, 0.134969e+01_jprb, 0.137879e+01_jprb, 0.140780e+01_jprb &
38173  &, 0.143670e+01_jprb, 0.146549e+01_jprb, 0.149414e+01_jprb &
38174  &, 0.152263e+01_jprb, 0.155096e+01_jprb, 0.157910e+01_jprb, 0.160703e+01_jprb &
38175  &, 0.163475e+01_jprb, 0.166223e+01_jprb, 0.168945e+01_jprb &
38176  &, 0.171641e+01_jprb, 0.174309e+01_jprb, 0.176946e+01_jprb, 0.179552e+01_jprb &
38177  &, 0.182125e+01_jprb, 0.184664e+01_jprb, 0.187166e+01_jprb &
38178  &, 0.189631e+01_jprb, 0.192057e+01_jprb, 0.194444e+01_jprb, 0.196788e+01_jprb &
38179  &, 0.199090e+01_jprb, 0.201348e+01_jprb, 0.203560e+01_jprb &
38180  &, 0.205725e+01_jprb, 0.207844e+01_jprb, 0.209913e+01_jprb, 0.211933e+01_jprb &
38181  &, 0.213902e+01_jprb, 0.215820e+01_jprb, 0.217685e+01_jprb &
38182  &, 0.219496e+01_jprb, 0.221253e+01_jprb, 0.222956e+01_jprb, 0.224602e+01_jprb &
38183  &, 0.226192e+01_jprb, 0.227725e+01_jprb, 0.229201e+01_jprb &
38184  &, 0.230618e+01_jprb, 0.231977e+01_jprb, 0.233277e+01_jprb, 0.234517e+01_jprb &
38185  &, 0.235698e+01_jprb, 0.236818e+01_jprb, 0.237878e+01_jprb &
38186  &, 0.238879e+01_jprb, 0.239819e+01_jprb, 0.240696e+01_jprb, 0.241514e+01_jprb &
38187  &, 0.242270e+01_jprb, 0.242966e+01_jprb, 0.243602e+01_jprb &
38188  &, 0.244175e+01_jprb, 0.244690e+01_jprb, 0.245141e+01_jprb, 0.245535e+01_jprb &
38189  &, 0.245867e+01_jprb, 0.246140e+01_jprb, 0.246354e+01_jprb &
38190  &, 0.246506e+01_jprb, 0.246602e+01_jprb, 0.246639e+01_jprb, 0.246617e+01_jprb &
38191  &, 0.246539e+01_jprb, 0.246402e+01_jprb, 0.246209e+01_jprb &
38192  &, 0.245959e+01_jprb, 0.245654e+01_jprb, 0.245297e+01_jprb, 0.244883e+01_jprb &
38193  &, 0.244415e+01_jprb, 0.243893e+01_jprb, 0.243320e+01_jprb &
38194  &, 0.242696e+01_jprb, 0.242015e+01_jprb, 0.241292e+01_jprb, 0.240518e+01_jprb &
38195  &, 0.239693e+01_jprb, 0.238821e+01_jprb, 0.237901e+01_jprb &
38196  &, 0.236934e+01_jprb, 0.235923e+01_jprb, 0.234867e+01_jprb, 0.233768e+01_jprb &
38197  &, 0.232625e+01_jprb, 0.231441e+01_jprb, 0.230215e+01_jprb &
38198  &, 0.228948e+01_jprb, 0.227641e+01_jprb, 0.226298e+01_jprb, 0.224911e+01_jprb &
38199  &, 0.223498e+01_jprb, 0.222046e+01_jprb, 0.220557e+01_jprb &
38200  &, 0.219035e+01_jprb, 0.217482e+01_jprb, 0.215895e+01_jprb, 0.214278e+01_jprb &
38201  &, 0.212630e+01_jprb, 0.210956e+01_jprb, 0.209251e+01_jprb &
38202  &, 0.207522e+01_jprb, 0.205767e+01_jprb, 0.203984e+01_jprb, 0.202180e+01_jprb &
38203  &, 0.200354e+01_jprb, 0.198502e+01_jprb, 0.196633e+01_jprb &
38204  &, 0.194745e+01_jprb, 0.192834e+01_jprb, 0.190909e+01_jprb, 0.188962e+01_jprb &
38205  &, 0.187005e+01_jprb, 0.185027e+01_jprb, 0.183039e+01_jprb &
38206  &, 0.181034e+01_jprb, 0.179020e+01_jprb, 0.176994e+01_jprb, 0.174959e+01_jprb &
38207  &, 0.172916e+01_jprb, 0.170857e+01_jprb, 0.168797e+01_jprb &
38208  &, 0.166732e+01_jprb, 0.164657e+01_jprb, 0.162577e+01_jprb, 0.160493e+01_jprb &
38209  &, 0.158408e+01_jprb, 0.156318e+01_jprb, 0.154225e+01_jprb/)
38210 
38211 IF (lhook) CALL dr_hook('SU_MCICA:PART125',1,zhook_handle)
38212 END SUBROUTINE part125
38213 
38214 #ifdef VPP5000
38215 !OCL SCALAR
38216 #endif
38217 !option! -Nv -NO
38218 #ifdef RS6K
38219 @process nooptimize
38220 #endif
38221 !pgi$r opt=0
38222 SUBROUTINE part126
38223 
38224 REAL(KIND=JPRB) :: ZHOOK_HANDLE
38225 IF (lhook) CALL dr_hook('SU_MCICA:PART126',0,zhook_handle)
38226 
38227 xcw( 876, :) = (/ &
38228  & 0.111639e+01_jprb, 0.114571e+01_jprb, 0.117508e+01_jprb, 0.120448e+01_jprb &
38229  &, 0.123391e+01_jprb, 0.126334e+01_jprb, 0.129276e+01_jprb &
38230  &, 0.132214e+01_jprb, 0.135148e+01_jprb, 0.138075e+01_jprb, 0.140994e+01_jprb &
38231  &, 0.143903e+01_jprb, 0.146800e+01_jprb, 0.149685e+01_jprb &
38232  &, 0.152554e+01_jprb, 0.155406e+01_jprb, 0.158240e+01_jprb, 0.161055e+01_jprb &
38233  &, 0.163847e+01_jprb, 0.166617e+01_jprb, 0.169361e+01_jprb &
38234  &, 0.172079e+01_jprb, 0.174769e+01_jprb, 0.177429e+01_jprb, 0.180059e+01_jprb &
38235  &, 0.182655e+01_jprb, 0.185217e+01_jprb, 0.187742e+01_jprb &
38236  &, 0.190232e+01_jprb, 0.192683e+01_jprb, 0.195094e+01_jprb, 0.197463e+01_jprb &
38237  &, 0.199790e+01_jprb, 0.202073e+01_jprb, 0.204311e+01_jprb &
38238  &, 0.206503e+01_jprb, 0.208647e+01_jprb, 0.210742e+01_jprb, 0.212789e+01_jprb &
38239  &, 0.214785e+01_jprb, 0.216728e+01_jprb, 0.218620e+01_jprb &
38240  &, 0.220458e+01_jprb, 0.222243e+01_jprb, 0.223972e+01_jprb, 0.225647e+01_jprb &
38241  &, 0.227264e+01_jprb, 0.228824e+01_jprb, 0.230327e+01_jprb &
38242  &, 0.231772e+01_jprb, 0.233159e+01_jprb, 0.234487e+01_jprb, 0.235755e+01_jprb &
38243  &, 0.236962e+01_jprb, 0.238111e+01_jprb, 0.239199e+01_jprb &
38244  &, 0.240226e+01_jprb, 0.241193e+01_jprb, 0.242100e+01_jprb, 0.242945e+01_jprb &
38245  &, 0.243729e+01_jprb, 0.244452e+01_jprb, 0.245114e+01_jprb &
38246  &, 0.245715e+01_jprb, 0.246255e+01_jprb, 0.246735e+01_jprb, 0.247154e+01_jprb &
38247  &, 0.247514e+01_jprb, 0.247814e+01_jprb, 0.248053e+01_jprb &
38248  &, 0.248231e+01_jprb, 0.248353e+01_jprb, 0.248415e+01_jprb, 0.248418e+01_jprb &
38249  &, 0.248366e+01_jprb, 0.248253e+01_jprb, 0.248085e+01_jprb &
38250  &, 0.247861e+01_jprb, 0.247582e+01_jprb, 0.247245e+01_jprb, 0.246854e+01_jprb &
38251  &, 0.246411e+01_jprb, 0.245912e+01_jprb, 0.245362e+01_jprb &
38252  &, 0.244759e+01_jprb, 0.244104e+01_jprb, 0.243400e+01_jprb, 0.242644e+01_jprb &
38253  &, 0.241841e+01_jprb, 0.240990e+01_jprb, 0.240091e+01_jprb &
38254  &, 0.239144e+01_jprb, 0.238150e+01_jprb, 0.237114e+01_jprb, 0.236032e+01_jprb &
38255  &, 0.234909e+01_jprb, 0.233740e+01_jprb, 0.232529e+01_jprb &
38256  &, 0.231281e+01_jprb, 0.229991e+01_jprb, 0.228662e+01_jprb, 0.227296e+01_jprb &
38257  &, 0.225892e+01_jprb, 0.224453e+01_jprb, 0.222977e+01_jprb &
38258  &, 0.221470e+01_jprb, 0.219927e+01_jprb, 0.218351e+01_jprb, 0.216744e+01_jprb &
38259  &, 0.215109e+01_jprb, 0.213444e+01_jprb, 0.211752e+01_jprb &
38260  &, 0.210030e+01_jprb, 0.208282e+01_jprb, 0.206510e+01_jprb, 0.204717e+01_jprb &
38261  &, 0.202895e+01_jprb, 0.201053e+01_jprb, 0.199188e+01_jprb &
38262  &, 0.197302e+01_jprb, 0.195399e+01_jprb, 0.193476e+01_jprb, 0.191535e+01_jprb &
38263  &, 0.189578e+01_jprb, 0.187605e+01_jprb, 0.185616e+01_jprb &
38264  &, 0.183615e+01_jprb, 0.181604e+01_jprb, 0.179580e+01_jprb, 0.177540e+01_jprb &
38265  &, 0.175492e+01_jprb, 0.173439e+01_jprb, 0.171372e+01_jprb &
38266  &, 0.169293e+01_jprb, 0.167223e+01_jprb, 0.165140e+01_jprb, 0.163052e+01_jprb &
38267  &, 0.160962e+01_jprb, 0.158867e+01_jprb, 0.156768e+01_jprb/)
38268 xcw( 877, :) = (/ &
38269  & 0.111692e+01_jprb, 0.114638e+01_jprb, 0.117590e+01_jprb, 0.120546e+01_jprb &
38270  &, 0.123504e+01_jprb, 0.126463e+01_jprb, 0.129421e+01_jprb &
38271  &, 0.132377e+01_jprb, 0.135328e+01_jprb, 0.138273e+01_jprb, 0.141210e+01_jprb &
38272  &, 0.144137e+01_jprb, 0.147054e+01_jprb, 0.149957e+01_jprb &
38273  &, 0.152846e+01_jprb, 0.155719e+01_jprb, 0.158574e+01_jprb, 0.161409e+01_jprb &
38274  &, 0.164223e+01_jprb, 0.167014e+01_jprb, 0.169780e+01_jprb &
38275  &, 0.172521e+01_jprb, 0.175233e+01_jprb, 0.177916e+01_jprb, 0.180569e+01_jprb &
38276  &, 0.183188e+01_jprb, 0.185774e+01_jprb, 0.188325e+01_jprb &
38277  &, 0.190838e+01_jprb, 0.193314e+01_jprb, 0.195749e+01_jprb, 0.198144e+01_jprb &
38278  &, 0.200496e+01_jprb, 0.202805e+01_jprb, 0.205068e+01_jprb &
38279  &, 0.207286e+01_jprb, 0.209456e+01_jprb, 0.211579e+01_jprb, 0.213651e+01_jprb &
38280  &, 0.215674e+01_jprb, 0.217645e+01_jprb, 0.219564e+01_jprb &
38281  &, 0.221430e+01_jprb, 0.223241e+01_jprb, 0.224999e+01_jprb, 0.226699e+01_jprb &
38282  &, 0.228345e+01_jprb, 0.229934e+01_jprb, 0.231464e+01_jprb &
38283  &, 0.232936e+01_jprb, 0.234351e+01_jprb, 0.235707e+01_jprb, 0.237002e+01_jprb &
38284  &, 0.238237e+01_jprb, 0.239416e+01_jprb, 0.240531e+01_jprb &
38285  &, 0.241587e+01_jprb, 0.242581e+01_jprb, 0.243516e+01_jprb, 0.244389e+01_jprb &
38286  &, 0.245200e+01_jprb, 0.245950e+01_jprb, 0.246641e+01_jprb &
38287  &, 0.247269e+01_jprb, 0.247837e+01_jprb, 0.248345e+01_jprb, 0.248791e+01_jprb &
38288  &, 0.249177e+01_jprb, 0.249502e+01_jprb, 0.249769e+01_jprb &
38289  &, 0.249975e+01_jprb, 0.250119e+01_jprb, 0.250211e+01_jprb, 0.250240e+01_jprb &
38290  &, 0.250212e+01_jprb, 0.250125e+01_jprb, 0.249983e+01_jprb &
38291  &, 0.249782e+01_jprb, 0.249527e+01_jprb, 0.249216e+01_jprb, 0.248848e+01_jprb &
38292  &, 0.248428e+01_jprb, 0.247952e+01_jprb, 0.247425e+01_jprb &
38293  &, 0.246845e+01_jprb, 0.246212e+01_jprb, 0.245530e+01_jprb, 0.244796e+01_jprb &
38294  &, 0.244015e+01_jprb, 0.243183e+01_jprb, 0.242305e+01_jprb &
38295  &, 0.241377e+01_jprb, 0.240404e+01_jprb, 0.239385e+01_jprb, 0.238322e+01_jprb &
38296  &, 0.237216e+01_jprb, 0.236067e+01_jprb, 0.234875e+01_jprb &
38297  &, 0.233642e+01_jprb, 0.232367e+01_jprb, 0.231056e+01_jprb, 0.229704e+01_jprb &
38298  &, 0.228314e+01_jprb, 0.226891e+01_jprb, 0.225428e+01_jprb &
38299  &, 0.223933e+01_jprb, 0.222406e+01_jprb, 0.220845e+01_jprb, 0.219248e+01_jprb &
38300  &, 0.217623e+01_jprb, 0.215971e+01_jprb, 0.214288e+01_jprb &
38301  &, 0.212574e+01_jprb, 0.210838e+01_jprb, 0.209073e+01_jprb, 0.207286e+01_jprb &
38302  &, 0.205470e+01_jprb, 0.203633e+01_jprb, 0.201777e+01_jprb &
38303  &, 0.199900e+01_jprb, 0.197999e+01_jprb, 0.196078e+01_jprb, 0.194144e+01_jprb &
38304  &, 0.192189e+01_jprb, 0.190220e+01_jprb, 0.188236e+01_jprb &
38305  &, 0.186234e+01_jprb, 0.184226e+01_jprb, 0.182199e+01_jprb, 0.180161e+01_jprb &
38306  &, 0.178115e+01_jprb, 0.176057e+01_jprb, 0.173990e+01_jprb &
38307  &, 0.171916e+01_jprb, 0.169838e+01_jprb, 0.167752e+01_jprb, 0.165655e+01_jprb &
38308  &, 0.163562e+01_jprb, 0.161461e+01_jprb, 0.159357e+01_jprb/)
38309 xcw( 878, :) = (/ &
38310  & 0.111745e+01_jprb, 0.114705e+01_jprb, 0.117672e+01_jprb, 0.120643e+01_jprb &
38311  &, 0.123618e+01_jprb, 0.126593e+01_jprb, 0.129568e+01_jprb &
38312  &, 0.132540e+01_jprb, 0.135509e+01_jprb, 0.138472e+01_jprb, 0.141427e+01_jprb &
38313  &, 0.144373e+01_jprb, 0.147309e+01_jprb, 0.150232e+01_jprb &
38314  &, 0.153141e+01_jprb, 0.156034e+01_jprb, 0.158909e+01_jprb, 0.161766e+01_jprb &
38315  &, 0.164601e+01_jprb, 0.167414e+01_jprb, 0.170202e+01_jprb &
38316  &, 0.172965e+01_jprb, 0.175700e+01_jprb, 0.178407e+01_jprb, 0.181082e+01_jprb &
38317  &, 0.183726e+01_jprb, 0.186336e+01_jprb, 0.188911e+01_jprb &
38318  &, 0.191449e+01_jprb, 0.193949e+01_jprb, 0.196410e+01_jprb, 0.198830e+01_jprb &
38319  &, 0.201208e+01_jprb, 0.203542e+01_jprb, 0.205832e+01_jprb &
38320  &, 0.208076e+01_jprb, 0.210273e+01_jprb, 0.212422e+01_jprb, 0.214521e+01_jprb &
38321  &, 0.216571e+01_jprb, 0.218569e+01_jprb, 0.220515e+01_jprb &
38322  &, 0.222409e+01_jprb, 0.224248e+01_jprb, 0.226033e+01_jprb, 0.227762e+01_jprb &
38323  &, 0.229435e+01_jprb, 0.231052e+01_jprb, 0.232611e+01_jprb &
38324  &, 0.234111e+01_jprb, 0.235554e+01_jprb, 0.236938e+01_jprb, 0.238261e+01_jprb &
38325  &, 0.239527e+01_jprb, 0.240731e+01_jprb, 0.241876e+01_jprb &
38326  &, 0.242960e+01_jprb, 0.243983e+01_jprb, 0.244945e+01_jprb, 0.245846e+01_jprb &
38327  &, 0.246686e+01_jprb, 0.247464e+01_jprb, 0.248181e+01_jprb &
38328  &, 0.248838e+01_jprb, 0.249434e+01_jprb, 0.249969e+01_jprb, 0.250443e+01_jprb &
38329  &, 0.250855e+01_jprb, 0.251208e+01_jprb, 0.251502e+01_jprb &
38330  &, 0.251734e+01_jprb, 0.251908e+01_jprb, 0.252022e+01_jprb, 0.252078e+01_jprb &
38331  &, 0.252076e+01_jprb, 0.252015e+01_jprb, 0.251897e+01_jprb &
38332  &, 0.251723e+01_jprb, 0.251491e+01_jprb, 0.251207e+01_jprb, 0.250863e+01_jprb &
38333  &, 0.250466e+01_jprb, 0.250016e+01_jprb, 0.249507e+01_jprb &
38334  &, 0.248953e+01_jprb, 0.248346e+01_jprb, 0.247684e+01_jprb, 0.246973e+01_jprb &
38335  &, 0.246211e+01_jprb, 0.245401e+01_jprb, 0.244544e+01_jprb &
38336  &, 0.243638e+01_jprb, 0.242686e+01_jprb, 0.241685e+01_jprb, 0.240643e+01_jprb &
38337  &, 0.239553e+01_jprb, 0.238421e+01_jprb, 0.237249e+01_jprb &
38338  &, 0.236032e+01_jprb, 0.234776e+01_jprb, 0.233480e+01_jprb, 0.232142e+01_jprb &
38339  &, 0.230770e+01_jprb, 0.229361e+01_jprb, 0.227914e+01_jprb &
38340  &, 0.226432e+01_jprb, 0.224917e+01_jprb, 0.223367e+01_jprb, 0.221786e+01_jprb &
38341  &, 0.220171e+01_jprb, 0.218529e+01_jprb, 0.216855e+01_jprb &
38342  &, 0.215154e+01_jprb, 0.213426e+01_jprb, 0.211636e+01_jprb, 0.209888e+01_jprb &
38343  &, 0.208083e+01_jprb, 0.206256e+01_jprb, 0.204405e+01_jprb &
38344  &, 0.202532e+01_jprb, 0.200640e+01_jprb, 0.198727e+01_jprb, 0.196795e+01_jprb &
38345  &, 0.194841e+01_jprb, 0.192873e+01_jprb, 0.190895e+01_jprb &
38346  &, 0.188897e+01_jprb, 0.186887e+01_jprb, 0.184858e+01_jprb, 0.182823e+01_jprb &
38347  &, 0.180778e+01_jprb, 0.178716e+01_jprb, 0.176649e+01_jprb &
38348  &, 0.174575e+01_jprb, 0.172489e+01_jprb, 0.170402e+01_jprb, 0.168309e+01_jprb &
38349  &, 0.166205e+01_jprb, 0.164101e+01_jprb, 0.161992e+01_jprb/)
38350 xcw( 879, :) = (/ &
38351  & 0.111798e+01_jprb, 0.114773e+01_jprb, 0.117755e+01_jprb, 0.120742e+01_jprb &
38352  &, 0.123732e+01_jprb, 0.126723e+01_jprb, 0.129715e+01_jprb &
38353  &, 0.132705e+01_jprb, 0.135691e+01_jprb, 0.138672e+01_jprb, 0.141646e+01_jprb &
38354  &, 0.144611e+01_jprb, 0.147566e+01_jprb, 0.150509e+01_jprb &
38355  &, 0.153438e+01_jprb, 0.156351e+01_jprb, 0.159248e+01_jprb, 0.162125e+01_jprb &
38356  &, 0.164982e+01_jprb, 0.167816e+01_jprb, 0.170628e+01_jprb &
38357  &, 0.173413e+01_jprb, 0.176171e+01_jprb, 0.178901e+01_jprb, 0.181600e+01_jprb &
38358  &, 0.184268e+01_jprb, 0.186902e+01_jprb, 0.189501e+01_jprb &
38359  &, 0.192064e+01_jprb, 0.194589e+01_jprb, 0.197076e+01_jprb, 0.199521e+01_jprb &
38360  &, 0.201925e+01_jprb, 0.204286e+01_jprb, 0.206602e+01_jprb &
38361  &, 0.208872e+01_jprb, 0.211096e+01_jprb, 0.213272e+01_jprb, 0.215399e+01_jprb &
38362  &, 0.217476e+01_jprb, 0.219501e+01_jprb, 0.221475e+01_jprb &
38363  &, 0.223396e+01_jprb, 0.225255e+01_jprb, 0.227077e+01_jprb, 0.228834e+01_jprb &
38364  &, 0.230535e+01_jprb, 0.232180e+01_jprb, 0.233768e+01_jprb &
38365  &, 0.235296e+01_jprb, 0.236768e+01_jprb, 0.238180e+01_jprb, 0.239533e+01_jprb &
38366  &, 0.240826e+01_jprb, 0.242060e+01_jprb, 0.243233e+01_jprb &
38367  &, 0.244345e+01_jprb, 0.245391e+01_jprb, 0.246388e+01_jprb, 0.247316e+01_jprb &
38368  &, 0.248185e+01_jprb, 0.248990e+01_jprb, 0.249738e+01_jprb &
38369  &, 0.250423e+01_jprb, 0.251046e+01_jprb, 0.251609e+01_jprb, 0.252111e+01_jprb &
38370  &, 0.252551e+01_jprb, 0.252933e+01_jprb, 0.253253e+01_jprb &
38371  &, 0.253514e+01_jprb, 0.253715e+01_jprb, 0.253856e+01_jprb, 0.253938e+01_jprb &
38372  &, 0.253961e+01_jprb, 0.253927e+01_jprb, 0.253836e+01_jprb &
38373  &, 0.253686e+01_jprb, 0.253481e+01_jprb, 0.253218e+01_jprb, 0.252901e+01_jprb &
38374  &, 0.252528e+01_jprb, 0.252102e+01_jprb, 0.251619e+01_jprb &
38375  &, 0.251086e+01_jprb, 0.250502e+01_jprb, 0.249864e+01_jprb, 0.249175e+01_jprb &
38376  &, 0.248436e+01_jprb, 0.247646e+01_jprb, 0.246809e+01_jprb &
38377  &, 0.245924e+01_jprb, 0.244990e+01_jprb, 0.244011e+01_jprb, 0.242987e+01_jprb &
38378  &, 0.241918e+01_jprb, 0.240807e+01_jprb, 0.239651e+01_jprb &
38379  &, 0.238447e+01_jprb, 0.237214e+01_jprb, 0.235933e+01_jprb, 0.234614e+01_jprb &
38380  &, 0.233256e+01_jprb, 0.231861e+01_jprb, 0.230428e+01_jprb &
38381  &, 0.228963e+01_jprb, 0.227460e+01_jprb, 0.225923e+01_jprb, 0.224353e+01_jprb &
38382  &, 0.222753e+01_jprb, 0.221122e+01_jprb, 0.219461e+01_jprb &
38383  &, 0.217770e+01_jprb, 0.216051e+01_jprb, 0.214306e+01_jprb, 0.212533e+01_jprb &
38384  &, 0.210734e+01_jprb, 0.208913e+01_jprb, 0.207073e+01_jprb &
38385  &, 0.205205e+01_jprb, 0.203317e+01_jprb, 0.201407e+01_jprb, 0.199482e+01_jprb &
38386  &, 0.197536e+01_jprb, 0.195564e+01_jprb, 0.193591e+01_jprb &
38387  &, 0.191598e+01_jprb, 0.189588e+01_jprb, 0.187562e+01_jprb, 0.185530e+01_jprb &
38388  &, 0.183483e+01_jprb, 0.181422e+01_jprb, 0.179356e+01_jprb &
38389  &, 0.177276e+01_jprb, 0.175190e+01_jprb, 0.173096e+01_jprb, 0.171000e+01_jprb &
38390  &, 0.168894e+01_jprb, 0.166787e+01_jprb, 0.164673e+01_jprb/)
38391 xcw( 880, :) = (/ &
38392  & 0.111852e+01_jprb, 0.114841e+01_jprb, 0.117838e+01_jprb, 0.120841e+01_jprb &
38393  &, 0.123847e+01_jprb, 0.126855e+01_jprb, 0.129863e+01_jprb &
38394  &, 0.132870e+01_jprb, 0.135874e+01_jprb, 0.138873e+01_jprb, 0.141866e+01_jprb &
38395  &, 0.144850e+01_jprb, 0.147825e+01_jprb, 0.150787e+01_jprb &
38396  &, 0.153737e+01_jprb, 0.156671e+01_jprb, 0.159588e+01_jprb, 0.162487e+01_jprb &
38397  &, 0.165366e+01_jprb, 0.168223e+01_jprb, 0.171056e+01_jprb &
38398  &, 0.173864e+01_jprb, 0.176646e+01_jprb, 0.179399e+01_jprb, 0.182122e+01_jprb &
38399  &, 0.184814e+01_jprb, 0.187472e+01_jprb, 0.190096e+01_jprb &
38400  &, 0.192684e+01_jprb, 0.195235e+01_jprb, 0.197747e+01_jprb, 0.200218e+01_jprb &
38401  &, 0.202648e+01_jprb, 0.205035e+01_jprb, 0.207378e+01_jprb &
38402  &, 0.209675e+01_jprb, 0.211925e+01_jprb, 0.214129e+01_jprb, 0.216283e+01_jprb &
38403  &, 0.218388e+01_jprb, 0.220441e+01_jprb, 0.222443e+01_jprb &
38404  &, 0.224392e+01_jprb, 0.226288e+01_jprb, 0.228128e+01_jprb, 0.229914e+01_jprb &
38405  &, 0.231644e+01_jprb, 0.233318e+01_jprb, 0.234934e+01_jprb &
38406  &, 0.236492e+01_jprb, 0.237993e+01_jprb, 0.239434e+01_jprb, 0.240816e+01_jprb &
38407  &, 0.242138e+01_jprb, 0.243400e+01_jprb, 0.244602e+01_jprb &
38408  &, 0.245743e+01_jprb, 0.246825e+01_jprb, 0.247843e+01_jprb, 0.248802e+01_jprb &
38409  &, 0.249699e+01_jprb, 0.250535e+01_jprb, 0.251309e+01_jprb &
38410  &, 0.252023e+01_jprb, 0.252675e+01_jprb, 0.253266e+01_jprb, 0.253797e+01_jprb &
38411  &, 0.254265e+01_jprb, 0.254674e+01_jprb, 0.255020e+01_jprb &
38412  &, 0.255309e+01_jprb, 0.255538e+01_jprb, 0.255707e+01_jprb, 0.255816e+01_jprb &
38413  &, 0.255866e+01_jprb, 0.255857e+01_jprb, 0.255793e+01_jprb &
38414  &, 0.255593e+01_jprb, 0.255488e+01_jprb, 0.255252e+01_jprb, 0.254959e+01_jprb &
38415  &, 0.254611e+01_jprb, 0.254210e+01_jprb, 0.253753e+01_jprb &
38416  &, 0.253244e+01_jprb, 0.252681e+01_jprb, 0.252066e+01_jprb, 0.251402e+01_jprb &
38417  &, 0.250683e+01_jprb, 0.249918e+01_jprb, 0.249101e+01_jprb &
38418  &, 0.248238e+01_jprb, 0.247302e+01_jprb, 0.246367e+01_jprb, 0.245361e+01_jprb &
38419  &, 0.244314e+01_jprb, 0.243220e+01_jprb, 0.242081e+01_jprb &
38420  &, 0.240901e+01_jprb, 0.239681e+01_jprb, 0.238416e+01_jprb, 0.237116e+01_jprb &
38421  &, 0.235773e+01_jprb, 0.234393e+01_jprb, 0.232978e+01_jprb &
38422  &, 0.231526e+01_jprb, 0.230037e+01_jprb, 0.228516e+01_jprb, 0.226958e+01_jprb &
38423  &, 0.225370e+01_jprb, 0.223749e+01_jprb, 0.222099e+01_jprb &
38424  &, 0.220422e+01_jprb, 0.218712e+01_jprb, 0.216975e+01_jprb, 0.215215e+01_jprb &
38425  &, 0.213424e+01_jprb, 0.211609e+01_jprb, 0.209775e+01_jprb &
38426  &, 0.207917e+01_jprb, 0.206034e+01_jprb, 0.204133e+01_jprb, 0.202211e+01_jprb &
38427  &, 0.200267e+01_jprb, 0.198308e+01_jprb, 0.196331e+01_jprb &
38428  &, 0.194338e+01_jprb, 0.192333e+01_jprb, 0.190312e+01_jprb, 0.188278e+01_jprb &
38429  &, 0.186228e+01_jprb, 0.184169e+01_jprb, 0.182099e+01_jprb &
38430  &, 0.180020e+01_jprb, 0.177934e+01_jprb, 0.175839e+01_jprb, 0.173736e+01_jprb &
38431  &, 0.171628e+01_jprb, 0.169511e+01_jprb, 0.167394e+01_jprb/)
38432 xcw( 881, :) = (/ &
38433  & 0.111906e+01_jprb, 0.114910e+01_jprb, 0.117922e+01_jprb, 0.120940e+01_jprb &
38434  &, 0.123962e+01_jprb, 0.126987e+01_jprb, 0.130013e+01_jprb &
38435  &, 0.133037e+01_jprb, 0.136059e+01_jprb, 0.139076e+01_jprb, 0.142088e+01_jprb &
38436  &, 0.145091e+01_jprb, 0.148085e+01_jprb, 0.151068e+01_jprb &
38437  &, 0.154037e+01_jprb, 0.156992e+01_jprb, 0.159931e+01_jprb, 0.162851e+01_jprb &
38438  &, 0.165752e+01_jprb, 0.168631e+01_jprb, 0.171487e+01_jprb &
38439  &, 0.174319e+01_jprb, 0.177123e+01_jprb, 0.179900e+01_jprb, 0.182648e+01_jprb &
38440  &, 0.185363e+01_jprb, 0.188047e+01_jprb, 0.190696e+01_jprb &
38441  &, 0.193309e+01_jprb, 0.195886e+01_jprb, 0.198423e+01_jprb, 0.200921e+01_jprb &
38442  &, 0.203377e+01_jprb, 0.205791e+01_jprb, 0.208160e+01_jprb &
38443  &, 0.210485e+01_jprb, 0.212763e+01_jprb, 0.214993e+01_jprb, 0.217175e+01_jprb &
38444  &, 0.219308e+01_jprb, 0.221389e+01_jprb, 0.223419e+01_jprb &
38445  &, 0.225397e+01_jprb, 0.227321e+01_jprb, 0.229191e+01_jprb, 0.231005e+01_jprb &
38446  &, 0.232762e+01_jprb, 0.234466e+01_jprb, 0.236111e+01_jprb &
38447  &, 0.237699e+01_jprb, 0.239228e+01_jprb, 0.240699e+01_jprb, 0.242110e+01_jprb &
38448  &, 0.243462e+01_jprb, 0.244754e+01_jprb, 0.245984e+01_jprb &
38449  &, 0.247155e+01_jprb, 0.248265e+01_jprb, 0.249314e+01_jprb, 0.250302e+01_jprb &
38450  &, 0.251228e+01_jprb, 0.252094e+01_jprb, 0.252896e+01_jprb &
38451  &, 0.253638e+01_jprb, 0.254320e+01_jprb, 0.254940e+01_jprb, 0.255498e+01_jprb &
38452  &, 0.255995e+01_jprb, 0.256433e+01_jprb, 0.256809e+01_jprb &
38453  &, 0.257124e+01_jprb, 0.257379e+01_jprb, 0.257577e+01_jprb, 0.257712e+01_jprb &
38454  &, 0.257790e+01_jprb, 0.257806e+01_jprb, 0.257770e+01_jprb &
38455  &, 0.257674e+01_jprb, 0.257520e+01_jprb, 0.257309e+01_jprb, 0.257041e+01_jprb &
38456  &, 0.256721e+01_jprb, 0.256344e+01_jprb, 0.255912e+01_jprb &
38457  &, 0.255425e+01_jprb, 0.254886e+01_jprb, 0.254295e+01_jprb, 0.253651e+01_jprb &
38458  &, 0.252959e+01_jprb, 0.252215e+01_jprb, 0.251421e+01_jprb &
38459  &, 0.250578e+01_jprb, 0.249687e+01_jprb, 0.248752e+01_jprb, 0.247765e+01_jprb &
38460  &, 0.246736e+01_jprb, 0.245664e+01_jprb, 0.244543e+01_jprb &
38461  &, 0.243383e+01_jprb, 0.242180e+01_jprb, 0.240936e+01_jprb, 0.239649e+01_jprb &
38462  &, 0.238325e+01_jprb, 0.236960e+01_jprb, 0.235559e+01_jprb &
38463  &, 0.234122e+01_jprb, 0.232650e+01_jprb, 0.231142e+01_jprb, 0.229597e+01_jprb &
38464  &, 0.228025e+01_jprb, 0.226416e+01_jprb, 0.224777e+01_jprb &
38465  &, 0.223110e+01_jprb, 0.221409e+01_jprb, 0.219686e+01_jprb, 0.217930e+01_jprb &
38466  &, 0.216151e+01_jprb, 0.214349e+01_jprb, 0.212521e+01_jprb &
38467  &, 0.210669e+01_jprb, 0.208791e+01_jprb, 0.206894e+01_jprb, 0.204977e+01_jprb &
38468  &, 0.203041e+01_jprb, 0.201090e+01_jprb, 0.199114e+01_jprb &
38469  &, 0.197128e+01_jprb, 0.195123e+01_jprb, 0.193102e+01_jprb, 0.191066e+01_jprb &
38470  &, 0.189019e+01_jprb, 0.186964e+01_jprb, 0.184896e+01_jprb &
38471  &, 0.182812e+01_jprb, 0.180727e+01_jprb, 0.178626e+01_jprb, 0.176522e+01_jprb &
38472  &, 0.174406e+01_jprb, 0.172293e+01_jprb, 0.170167e+01_jprb/)
38473 xcw( 882, :) = (/ &
38474  & 0.111960e+01_jprb, 0.114979e+01_jprb, 0.118007e+01_jprb, 0.121040e+01_jprb &
38475  &, 0.124079e+01_jprb, 0.127120e+01_jprb, 0.130163e+01_jprb &
38476  &, 0.133205e+01_jprb, 0.136245e+01_jprb, 0.139281e+01_jprb, 0.142311e+01_jprb &
38477  &, 0.145334e+01_jprb, 0.148347e+01_jprb, 0.151350e+01_jprb &
38478  &, 0.154341e+01_jprb, 0.157316e+01_jprb, 0.160276e+01_jprb, 0.163219e+01_jprb &
38479  &, 0.166141e+01_jprb, 0.169043e+01_jprb, 0.171922e+01_jprb &
38480  &, 0.174776e+01_jprb, 0.177605e+01_jprb, 0.180406e+01_jprb, 0.183177e+01_jprb &
38481  &, 0.185918e+01_jprb, 0.188626e+01_jprb, 0.191301e+01_jprb &
38482  &, 0.193940e+01_jprb, 0.196542e+01_jprb, 0.199105e+01_jprb, 0.201629e+01_jprb &
38483  &, 0.204112e+01_jprb, 0.206553e+01_jprb, 0.208949e+01_jprb &
38484  &, 0.211301e+01_jprb, 0.213607e+01_jprb, 0.215865e+01_jprb, 0.218074e+01_jprb &
38485  &, 0.220236e+01_jprb, 0.222345e+01_jprb, 0.224404e+01_jprb &
38486  &, 0.226410e+01_jprb, 0.228363e+01_jprb, 0.230262e+01_jprb, 0.232106e+01_jprb &
38487  &, 0.233894e+01_jprb, 0.235625e+01_jprb, 0.237300e+01_jprb &
38488  &, 0.238917e+01_jprb, 0.240476e+01_jprb, 0.241976e+01_jprb, 0.243416e+01_jprb &
38489  &, 0.244797e+01_jprb, 0.246119e+01_jprb, 0.247380e+01_jprb &
38490  &, 0.248581e+01_jprb, 0.249720e+01_jprb, 0.250799e+01_jprb, 0.251816e+01_jprb &
38491  &, 0.252771e+01_jprb, 0.253667e+01_jprb, 0.254499e+01_jprb &
38492  &, 0.255271e+01_jprb, 0.255980e+01_jprb, 0.256629e+01_jprb, 0.257218e+01_jprb &
38493  &, 0.257745e+01_jprb, 0.258210e+01_jprb, 0.258614e+01_jprb &
38494  &, 0.258959e+01_jprb, 0.259242e+01_jprb, 0.259466e+01_jprb, 0.259631e+01_jprb &
38495  &, 0.259736e+01_jprb, 0.259783e+01_jprb, 0.259770e+01_jprb &
38496  &, 0.259700e+01_jprb, 0.259574e+01_jprb, 0.259388e+01_jprb, 0.259149e+01_jprb &
38497  &, 0.258851e+01_jprb, 0.258499e+01_jprb, 0.258093e+01_jprb &
38498  &, 0.257622e+01_jprb, 0.257116e+01_jprb, 0.256550e+01_jprb, 0.255931e+01_jprb &
38499  &, 0.255260e+01_jprb, 0.254540e+01_jprb, 0.253769e+01_jprb &
38500  &, 0.252947e+01_jprb, 0.252079e+01_jprb, 0.251163e+01_jprb, 0.250199e+01_jprb &
38501  &, 0.249189e+01_jprb, 0.248136e+01_jprb, 0.247037e+01_jprb &
38502  &, 0.245895e+01_jprb, 0.244709e+01_jprb, 0.243478e+01_jprb, 0.242215e+01_jprb &
38503  &, 0.240907e+01_jprb, 0.239561e+01_jprb, 0.238176e+01_jprb &
38504  &, 0.236753e+01_jprb, 0.235295e+01_jprb, 0.233801e+01_jprb, 0.232273e+01_jprb &
38505  &, 0.230710e+01_jprb, 0.229117e+01_jprb, 0.227489e+01_jprb &
38506  &, 0.225834e+01_jprb, 0.224148e+01_jprb, 0.222434e+01_jprb, 0.220692e+01_jprb &
38507  &, 0.218922e+01_jprb, 0.217122e+01_jprb, 0.215301e+01_jprb &
38508  &, 0.213461e+01_jprb, 0.211594e+01_jprb, 0.209702e+01_jprb, 0.207789e+01_jprb &
38509  &, 0.205852e+01_jprb, 0.203909e+01_jprb, 0.201941e+01_jprb &
38510  &, 0.199957e+01_jprb, 0.197952e+01_jprb, 0.195936e+01_jprb, 0.193906e+01_jprb &
38511  &, 0.191858e+01_jprb, 0.189800e+01_jprb, 0.187735e+01_jprb &
38512  &, 0.185653e+01_jprb, 0.183564e+01_jprb, 0.181463e+01_jprb, 0.179353e+01_jprb &
38513  &, 0.177236e+01_jprb, 0.175115e+01_jprb, 0.172992e+01_jprb/)
38514 
38515 IF (lhook) CALL dr_hook('SU_MCICA:PART126',1,zhook_handle)
38516 END SUBROUTINE part126
38517 
38518 #ifdef VPP5000
38519 !OCL SCALAR
38520 #endif
38521 !option! -Nv -NO
38522 #ifdef RS6K
38523 @process nooptimize
38524 #endif
38525 !pgi$r opt=0
38526 SUBROUTINE part127
38527 
38528 REAL(KIND=JPRB) :: ZHOOK_HANDLE
38529 IF (lhook) CALL dr_hook('SU_MCICA:PART127',0,zhook_handle)
38530 
38531 xcw( 883, :) = (/ &
38532  & 0.112015e+01_jprb, 0.115049e+01_jprb, 0.118092e+01_jprb, 0.121141e+01_jprb &
38533  &, 0.124196e+01_jprb, 0.127254e+01_jprb, 0.130314e+01_jprb &
38534  &, 0.133374e+01_jprb, 0.136432e+01_jprb, 0.139487e+01_jprb, 0.142536e+01_jprb &
38535  &, 0.145578e+01_jprb, 0.148612e+01_jprb, 0.151635e+01_jprb &
38536  &, 0.154646e+01_jprb, 0.157643e+01_jprb, 0.160625e+01_jprb, 0.163589e+01_jprb &
38537  &, 0.166534e+01_jprb, 0.169458e+01_jprb, 0.172360e+01_jprb &
38538  &, 0.175238e+01_jprb, 0.178090e+01_jprb, 0.180916e+01_jprb, 0.183711e+01_jprb &
38539  &, 0.186477e+01_jprb, 0.189210e+01_jprb, 0.191910e+01_jprb &
38540  &, 0.194575e+01_jprb, 0.197203e+01_jprb, 0.199793e+01_jprb, 0.202343e+01_jprb &
38541  &, 0.204853e+01_jprb, 0.207321e+01_jprb, 0.209745e+01_jprb &
38542  &, 0.212124e+01_jprb, 0.214457e+01_jprb, 0.216744e+01_jprb, 0.218983e+01_jprb &
38543  &, 0.221171e+01_jprb, 0.223311e+01_jprb, 0.225397e+01_jprb &
38544  &, 0.227432e+01_jprb, 0.229414e+01_jprb, 0.231342e+01_jprb, 0.233216e+01_jprb &
38545  &, 0.235034e+01_jprb, 0.236795e+01_jprb, 0.238498e+01_jprb &
38546  &, 0.240146e+01_jprb, 0.241734e+01_jprb, 0.243264e+01_jprb, 0.244736e+01_jprb &
38547  &, 0.246147e+01_jprb, 0.247498e+01_jprb, 0.248789e+01_jprb &
38548  &, 0.250019e+01_jprb, 0.251189e+01_jprb, 0.252298e+01_jprb, 0.253344e+01_jprb &
38549  &, 0.254331e+01_jprb, 0.255255e+01_jprb, 0.256118e+01_jprb &
38550  &, 0.256919e+01_jprb, 0.257659e+01_jprb, 0.258337e+01_jprb, 0.258955e+01_jprb &
38551  &, 0.259510e+01_jprb, 0.260005e+01_jprb, 0.260439e+01_jprb &
38552  &, 0.260810e+01_jprb, 0.261124e+01_jprb, 0.261376e+01_jprb, 0.261569e+01_jprb &
38553  &, 0.261703e+01_jprb, 0.261776e+01_jprb, 0.261792e+01_jprb &
38554  &, 0.261748e+01_jprb, 0.261650e+01_jprb, 0.261491e+01_jprb, 0.261277e+01_jprb &
38555  &, 0.261008e+01_jprb, 0.260679e+01_jprb, 0.260298e+01_jprb &
38556  &, 0.259863e+01_jprb, 0.259375e+01_jprb, 0.258831e+01_jprb, 0.258236e+01_jprb &
38557  &, 0.257590e+01_jprb, 0.256892e+01_jprb, 0.256142e+01_jprb &
38558  &, 0.255347e+01_jprb, 0.254500e+01_jprb, 0.253604e+01_jprb, 0.252664e+01_jprb &
38559  &, 0.251673e+01_jprb, 0.250642e+01_jprb, 0.249562e+01_jprb &
38560  &, 0.248438e+01_jprb, 0.247274e+01_jprb, 0.246064e+01_jprb, 0.244815e+01_jprb &
38561  &, 0.243524e+01_jprb, 0.242194e+01_jprb, 0.240828e+01_jprb &
38562  &, 0.239421e+01_jprb, 0.237978e+01_jprb, 0.236498e+01_jprb, 0.234984e+01_jprb &
38563  &, 0.233437e+01_jprb, 0.231857e+01_jprb, 0.230242e+01_jprb &
38564  &, 0.228598e+01_jprb, 0.226923e+01_jprb, 0.225220e+01_jprb, 0.223486e+01_jprb &
38565  &, 0.221725e+01_jprb, 0.219939e+01_jprb, 0.218131e+01_jprb &
38566  &, 0.216293e+01_jprb, 0.214432e+01_jprb, 0.212551e+01_jprb, 0.210644e+01_jprb &
38567  &, 0.208721e+01_jprb, 0.206776e+01_jprb, 0.204811e+01_jprb &
38568  &, 0.202829e+01_jprb, 0.200832e+01_jprb, 0.198817e+01_jprb, 0.196786e+01_jprb &
38569  &, 0.194743e+01_jprb, 0.192689e+01_jprb, 0.190615e+01_jprb &
38570  &, 0.188537e+01_jprb, 0.186443e+01_jprb, 0.184343e+01_jprb, 0.182234e+01_jprb &
38571  &, 0.180117e+01_jprb, 0.177995e+01_jprb, 0.175864e+01_jprb/)
38572 xcw( 884, :) = (/ &
38573  & 0.112070e+01_jprb, 0.115119e+01_jprb, 0.118177e+01_jprb, 0.121243e+01_jprb &
38574  &, 0.124314e+01_jprb, 0.127389e+01_jprb, 0.130466e+01_jprb &
38575  &, 0.133544e+01_jprb, 0.136620e+01_jprb, 0.139694e+01_jprb, 0.142762e+01_jprb &
38576  &, 0.145824e+01_jprb, 0.148878e+01_jprb, 0.151922e+01_jprb &
38577  &, 0.154953e+01_jprb, 0.157972e+01_jprb, 0.160975e+01_jprb, 0.163961e+01_jprb &
38578  &, 0.166929e+01_jprb, 0.169876e+01_jprb, 0.172802e+01_jprb &
38579  &, 0.175703e+01_jprb, 0.178580e+01_jprb, 0.181429e+01_jprb, 0.184250e+01_jprb &
38580  &, 0.187040e+01_jprb, 0.189799e+01_jprb, 0.192524e+01_jprb &
38581  &, 0.195215e+01_jprb, 0.197869e+01_jprb, 0.200486e+01_jprb, 0.203063e+01_jprb &
38582  &, 0.205600e+01_jprb, 0.208095e+01_jprb, 0.210547e+01_jprb &
38583  &, 0.212954e+01_jprb, 0.215316e+01_jprb, 0.217631e+01_jprb, 0.219898e+01_jprb &
38584  &, 0.222116e+01_jprb, 0.224283e+01_jprb, 0.226400e+01_jprb &
38585  &, 0.228464e+01_jprb, 0.230476e+01_jprb, 0.232433e+01_jprb, 0.234335e+01_jprb &
38586  &, 0.236183e+01_jprb, 0.237975e+01_jprb, 0.239709e+01_jprb &
38587  &, 0.241386e+01_jprb, 0.243005e+01_jprb, 0.244566e+01_jprb, 0.246067e+01_jprb &
38588  &, 0.247509e+01_jprb, 0.248890e+01_jprb, 0.250212e+01_jprb &
38589  &, 0.251472e+01_jprb, 0.252673e+01_jprb, 0.253812e+01_jprb, 0.254890e+01_jprb &
38590  &, 0.255905e+01_jprb, 0.256859e+01_jprb, 0.257752e+01_jprb &
38591  &, 0.258585e+01_jprb, 0.259354e+01_jprb, 0.260062e+01_jprb, 0.260708e+01_jprb &
38592  &, 0.261295e+01_jprb, 0.261819e+01_jprb, 0.262281e+01_jprb &
38593  &, 0.262683e+01_jprb, 0.263025e+01_jprb, 0.263306e+01_jprb, 0.263528e+01_jprb &
38594  &, 0.263689e+01_jprb, 0.263793e+01_jprb, 0.263835e+01_jprb &
38595  &, 0.263821e+01_jprb, 0.263749e+01_jprb, 0.263616e+01_jprb, 0.263428e+01_jprb &
38596  &, 0.263185e+01_jprb, 0.262885e+01_jprb, 0.262530e+01_jprb &
38597  &, 0.262077e+01_jprb, 0.261656e+01_jprb, 0.261138e+01_jprb, 0.260569e+01_jprb &
38598  &, 0.259948e+01_jprb, 0.259271e+01_jprb, 0.258546e+01_jprb &
38599  &, 0.257773e+01_jprb, 0.256949e+01_jprb, 0.256078e+01_jprb, 0.255158e+01_jprb &
38600  &, 0.254191e+01_jprb, 0.253176e+01_jprb, 0.252119e+01_jprb &
38601  &, 0.251014e+01_jprb, 0.249869e+01_jprb, 0.248680e+01_jprb, 0.247448e+01_jprb &
38602  &, 0.246179e+01_jprb, 0.244866e+01_jprb, 0.243512e+01_jprb &
38603  &, 0.242125e+01_jprb, 0.240697e+01_jprb, 0.239232e+01_jprb, 0.237736e+01_jprb &
38604  &, 0.236200e+01_jprb, 0.234633e+01_jprb, 0.233034e+01_jprb &
38605  &, 0.231402e+01_jprb, 0.229739e+01_jprb, 0.228046e+01_jprb, 0.226323e+01_jprb &
38606  &, 0.224577e+01_jprb, 0.222800e+01_jprb, 0.220995e+01_jprb &
38607  &, 0.219169e+01_jprb, 0.217316e+01_jprb, 0.215442e+01_jprb, 0.213545e+01_jprb &
38608  &, 0.211627e+01_jprb, 0.209687e+01_jprb, 0.207725e+01_jprb &
38609  &, 0.205751e+01_jprb, 0.203756e+01_jprb, 0.201742e+01_jprb, 0.199718e+01_jprb &
38610  &, 0.197674e+01_jprb, 0.195619e+01_jprb, 0.193550e+01_jprb &
38611  &, 0.191469e+01_jprb, 0.189378e+01_jprb, 0.187274e+01_jprb, 0.185165e+01_jprb &
38612  &, 0.183042e+01_jprb, 0.180920e+01_jprb, 0.178781e+01_jprb/)
38613 xcw( 885, :) = (/ &
38614  & 0.112126e+01_jprb, 0.115190e+01_jprb, 0.118263e+01_jprb, 0.121345e+01_jprb &
38615  &, 0.124433e+01_jprb, 0.127525e+01_jprb, 0.130620e+01_jprb &
38616  &, 0.133715e+01_jprb, 0.136810e+01_jprb, 0.139903e+01_jprb, 0.142990e+01_jprb &
38617  &, 0.146072e+01_jprb, 0.149146e+01_jprb, 0.152210e+01_jprb &
38618  &, 0.155263e+01_jprb, 0.158303e+01_jprb, 0.161328e+01_jprb, 0.164337e+01_jprb &
38619  &, 0.167327e+01_jprb, 0.170298e+01_jprb, 0.173246e+01_jprb &
38620  &, 0.176172e+01_jprb, 0.179073e+01_jprb, 0.181947e+01_jprb, 0.184792e+01_jprb &
38621  &, 0.187608e+01_jprb, 0.190392e+01_jprb, 0.193144e+01_jprb &
38622  &, 0.195861e+01_jprb, 0.198541e+01_jprb, 0.201185e+01_jprb, 0.203789e+01_jprb &
38623  &, 0.206354e+01_jprb, 0.208877e+01_jprb, 0.211356e+01_jprb &
38624  &, 0.213791e+01_jprb, 0.216182e+01_jprb, 0.218526e+01_jprb, 0.220821e+01_jprb &
38625  &, 0.223068e+01_jprb, 0.225264e+01_jprb, 0.227411e+01_jprb &
38626  &, 0.229501e+01_jprb, 0.231546e+01_jprb, 0.233534e+01_jprb, 0.235466e+01_jprb &
38627  &, 0.237344e+01_jprb, 0.239166e+01_jprb, 0.240930e+01_jprb &
38628  &, 0.242636e+01_jprb, 0.244288e+01_jprb, 0.245878e+01_jprb, 0.247410e+01_jprb &
38629  &, 0.248883e+01_jprb, 0.250295e+01_jprb, 0.251647e+01_jprb &
38630  &, 0.252915e+01_jprb, 0.254170e+01_jprb, 0.255340e+01_jprb, 0.256448e+01_jprb &
38631  &, 0.257496e+01_jprb, 0.258480e+01_jprb, 0.259405e+01_jprb &
38632  &, 0.260267e+01_jprb, 0.261066e+01_jprb, 0.261804e+01_jprb, 0.262483e+01_jprb &
38633  &, 0.263098e+01_jprb, 0.263652e+01_jprb, 0.264144e+01_jprb &
38634  &, 0.264577e+01_jprb, 0.264948e+01_jprb, 0.265258e+01_jprb, 0.265507e+01_jprb &
38635  &, 0.265699e+01_jprb, 0.265831e+01_jprb, 0.265902e+01_jprb &
38636  &, 0.265915e+01_jprb, 0.265870e+01_jprb, 0.265766e+01_jprb, 0.265608e+01_jprb &
38637  &, 0.265389e+01_jprb, 0.265116e+01_jprb, 0.264787e+01_jprb &
38638  &, 0.264405e+01_jprb, 0.263966e+01_jprb, 0.263474e+01_jprb, 0.262927e+01_jprb &
38639  &, 0.262332e+01_jprb, 0.261681e+01_jprb, 0.260982e+01_jprb &
38640  &, 0.260230e+01_jprb, 0.259428e+01_jprb, 0.258578e+01_jprb, 0.257682e+01_jprb &
38641  &, 0.256736e+01_jprb, 0.255745e+01_jprb, 0.254707e+01_jprb &
38642  &, 0.253626e+01_jprb, 0.252499e+01_jprb, 0.251330e+01_jprb, 0.250116e+01_jprb &
38643  &, 0.248864e+01_jprb, 0.247569e+01_jprb, 0.246236e+01_jprb &
38644  &, 0.244865e+01_jprb, 0.243453e+01_jprb, 0.242004e+01_jprb, 0.240523e+01_jprb &
38645  &, 0.239004e+01_jprb, 0.237452e+01_jprb, 0.235862e+01_jprb &
38646  &, 0.234247e+01_jprb, 0.232595e+01_jprb, 0.230915e+01_jprb, 0.229203e+01_jprb &
38647  &, 0.227467e+01_jprb, 0.225699e+01_jprb, 0.223908e+01_jprb &
38648  &, 0.222086e+01_jprb, 0.220245e+01_jprb, 0.218378e+01_jprb, 0.216487e+01_jprb &
38649  &, 0.214575e+01_jprb, 0.212640e+01_jprb, 0.210688e+01_jprb &
38650  &, 0.208717e+01_jprb, 0.206725e+01_jprb, 0.204719e+01_jprb, 0.202696e+01_jprb &
38651  &, 0.200652e+01_jprb, 0.198603e+01_jprb, 0.196532e+01_jprb &
38652  &, 0.194455e+01_jprb, 0.192362e+01_jprb, 0.190260e+01_jprb, 0.188147e+01_jprb &
38653  &, 0.186026e+01_jprb, 0.183891e+01_jprb, 0.181758e+01_jprb/)
38654 xcw( 886, :) = (/ &
38655  & 0.112181e+01_jprb, 0.115261e+01_jprb, 0.118350e+01_jprb, 0.121448e+01_jprb &
38656  &, 0.124553e+01_jprb, 0.127662e+01_jprb, 0.130774e+01_jprb &
38657  &, 0.133888e+01_jprb, 0.137001e+01_jprb, 0.140113e+01_jprb, 0.143220e+01_jprb &
38658  &, 0.146322e+01_jprb, 0.149416e+01_jprb, 0.152501e+01_jprb &
38659  &, 0.155576e+01_jprb, 0.158637e+01_jprb, 0.161684e+01_jprb, 0.164716e+01_jprb &
38660  &, 0.167729e+01_jprb, 0.170722e+01_jprb, 0.173695e+01_jprb &
38661  &, 0.176645e+01_jprb, 0.179570e+01_jprb, 0.182468e+01_jprb, 0.185339e+01_jprb &
38662  &, 0.188180e+01_jprb, 0.190990e+01_jprb, 0.193768e+01_jprb &
38663  &, 0.196512e+01_jprb, 0.199219e+01_jprb, 0.201890e+01_jprb, 0.204522e+01_jprb &
38664  &, 0.207114e+01_jprb, 0.209665e+01_jprb, 0.212173e+01_jprb &
38665  &, 0.214637e+01_jprb, 0.217055e+01_jprb, 0.219427e+01_jprb, 0.221753e+01_jprb &
38666  &, 0.224029e+01_jprb, 0.226255e+01_jprb, 0.228431e+01_jprb &
38667  &, 0.230555e+01_jprb, 0.232626e+01_jprb, 0.234644e+01_jprb, 0.236607e+01_jprb &
38668  &, 0.238516e+01_jprb, 0.240368e+01_jprb, 0.242163e+01_jprb &
38669  &, 0.243901e+01_jprb, 0.245582e+01_jprb, 0.247204e+01_jprb, 0.248767e+01_jprb &
38670  &, 0.250270e+01_jprb, 0.251714e+01_jprb, 0.253098e+01_jprb &
38671  &, 0.254422e+01_jprb, 0.255683e+01_jprb, 0.256878e+01_jprb, 0.258023e+01_jprb &
38672  &, 0.259102e+01_jprb, 0.260117e+01_jprb, 0.261073e+01_jprb &
38673  &, 0.261966e+01_jprb, 0.262797e+01_jprb, 0.263566e+01_jprb, 0.264273e+01_jprb &
38674  &, 0.264919e+01_jprb, 0.265504e+01_jprb, 0.266027e+01_jprb &
38675  &, 0.266489e+01_jprb, 0.266890e+01_jprb, 0.267230e+01_jprb, 0.267511e+01_jprb &
38676  &, 0.267731e+01_jprb, 0.267889e+01_jprb, 0.267991e+01_jprb &
38677  &, 0.268033e+01_jprb, 0.268016e+01_jprb, 0.267942e+01_jprb, 0.267809e+01_jprb &
38678  &, 0.267619e+01_jprb, 0.267373e+01_jprb, 0.267072e+01_jprb &
38679  &, 0.266714e+01_jprb, 0.266304e+01_jprb, 0.265838e+01_jprb, 0.265313e+01_jprb &
38680  &, 0.264744e+01_jprb, 0.264118e+01_jprb, 0.263445e+01_jprb &
38681  &, 0.262716e+01_jprb, 0.261939e+01_jprb, 0.261111e+01_jprb, 0.260237e+01_jprb &
38682  &, 0.259315e+01_jprb, 0.258344e+01_jprb, 0.257327e+01_jprb &
38683  &, 0.256270e+01_jprb, 0.255163e+01_jprb, 0.254012e+01_jprb, 0.252821e+01_jprb &
38684  &, 0.251584e+01_jprb, 0.250310e+01_jprb, 0.248995e+01_jprb &
38685  &, 0.247641e+01_jprb, 0.246246e+01_jprb, 0.244812e+01_jprb, 0.243347e+01_jprb &
38686  &, 0.241844e+01_jprb, 0.240305e+01_jprb, 0.238734e+01_jprb &
38687  &, 0.237127e+01_jprb, 0.235489e+01_jprb, 0.233825e+01_jprb, 0.232124e+01_jprb &
38688  &, 0.230399e+01_jprb, 0.228642e+01_jprb, 0.226861e+01_jprb &
38689  &, 0.225052e+01_jprb, 0.223215e+01_jprb, 0.221355e+01_jprb, 0.219477e+01_jprb &
38690  &, 0.217571e+01_jprb, 0.215641e+01_jprb, 0.213694e+01_jprb &
38691  &, 0.211728e+01_jprb, 0.209744e+01_jprb, 0.207741e+01_jprb, 0.205719e+01_jprb &
38692  &, 0.203683e+01_jprb, 0.201634e+01_jprb, 0.199563e+01_jprb &
38693  &, 0.197484e+01_jprb, 0.195395e+01_jprb, 0.193290e+01_jprb, 0.191180e+01_jprb &
38694  &, 0.189054e+01_jprb, 0.186920e+01_jprb, 0.184781e+01_jprb/)
38695 xcw( 887, :) = (/ &
38696  & 0.112238e+01_jprb, 0.115332e+01_jprb, 0.118438e+01_jprb, 0.121552e+01_jprb &
38697  &, 0.124673e+01_jprb, 0.127800e+01_jprb, 0.130930e+01_jprb &
38698  &, 0.134062e+01_jprb, 0.137194e+01_jprb, 0.140324e+01_jprb, 0.143451e+01_jprb &
38699  &, 0.146573e+01_jprb, 0.149688e+01_jprb, 0.152794e+01_jprb &
38700  &, 0.155890e+01_jprb, 0.158974e+01_jprb, 0.162043e+01_jprb, 0.165097e+01_jprb &
38701  &, 0.168133e+01_jprb, 0.171151e+01_jprb, 0.174147e+01_jprb &
38702  &, 0.177121e+01_jprb, 0.180071e+01_jprb, 0.182994e+01_jprb, 0.185891e+01_jprb &
38703  &, 0.188758e+01_jprb, 0.191594e+01_jprb, 0.194398e+01_jprb &
38704  &, 0.197168e+01_jprb, 0.199903e+01_jprb, 0.202601e+01_jprb, 0.205261e+01_jprb &
38705  &, 0.207881e+01_jprb, 0.210459e+01_jprb, 0.212996e+01_jprb &
38706  &, 0.215489e+01_jprb, 0.217936e+01_jprb, 0.220338e+01_jprb, 0.222692e+01_jprb &
38707  &, 0.224998e+01_jprb, 0.227255e+01_jprb, 0.229461e+01_jprb &
38708  &, 0.231615e+01_jprb, 0.233717e+01_jprb, 0.235764e+01_jprb, 0.237759e+01_jprb &
38709  &, 0.239698e+01_jprb, 0.241581e+01_jprb, 0.243408e+01_jprb &
38710  &, 0.245177e+01_jprb, 0.246889e+01_jprb, 0.248542e+01_jprb, 0.250137e+01_jprb &
38711  &, 0.251672e+01_jprb, 0.253148e+01_jprb, 0.254562e+01_jprb &
38712  &, 0.255917e+01_jprb, 0.257211e+01_jprb, 0.258444e+01_jprb, 0.259615e+01_jprb &
38713  &, 0.260724e+01_jprb, 0.261772e+01_jprb, 0.262758e+01_jprb &
38714  &, 0.263682e+01_jprb, 0.264544e+01_jprb, 0.265346e+01_jprb, 0.266084e+01_jprb &
38715  &, 0.266762e+01_jprb, 0.267376e+01_jprb, 0.267929e+01_jprb &
38716  &, 0.268423e+01_jprb, 0.268854e+01_jprb, 0.269223e+01_jprb, 0.269535e+01_jprb &
38717  &, 0.269785e+01_jprb, 0.269974e+01_jprb, 0.270103e+01_jprb &
38718  &, 0.270173e+01_jprb, 0.270186e+01_jprb, 0.270141e+01_jprb, 0.270038e+01_jprb &
38719  &, 0.269876e+01_jprb, 0.269658e+01_jprb, 0.269384e+01_jprb &
38720  &, 0.269053e+01_jprb, 0.268668e+01_jprb, 0.268226e+01_jprb, 0.267733e+01_jprb &
38721  &, 0.267188e+01_jprb, 0.266586e+01_jprb, 0.265936e+01_jprb &
38722  &, 0.265233e+01_jprb, 0.264482e+01_jprb, 0.263677e+01_jprb, 0.262828e+01_jprb &
38723  &, 0.261928e+01_jprb, 0.260979e+01_jprb, 0.259986e+01_jprb &
38724  &, 0.258945e+01_jprb, 0.257859e+01_jprb, 0.256732e+01_jprb, 0.255560e+01_jprb &
38725  &, 0.254315e+01_jprb, 0.253087e+01_jprb, 0.251790e+01_jprb &
38726  &, 0.250453e+01_jprb, 0.249075e+01_jprb, 0.247662e+01_jprb, 0.246213e+01_jprb &
38727  &, 0.244726e+01_jprb, 0.243202e+01_jprb, 0.241645e+01_jprb &
38728  &, 0.240053e+01_jprb, 0.238428e+01_jprb, 0.236777e+01_jprb, 0.235088e+01_jprb &
38729  &, 0.233375e+01_jprb, 0.231629e+01_jprb, 0.229857e+01_jprb &
38730  &, 0.228059e+01_jprb, 0.226235e+01_jprb, 0.224384e+01_jprb, 0.222508e+01_jprb &
38731  &, 0.220609e+01_jprb, 0.218691e+01_jprb, 0.216749e+01_jprb &
38732  &, 0.214788e+01_jprb, 0.212808e+01_jprb, 0.210808e+01_jprb, 0.208795e+01_jprb &
38733  &, 0.206760e+01_jprb, 0.204712e+01_jprb, 0.202647e+01_jprb &
38734  &, 0.200568e+01_jprb, 0.198477e+01_jprb, 0.196377e+01_jprb, 0.194263e+01_jprb &
38735  &, 0.192139e+01_jprb, 0.189994e+01_jprb, 0.187863e+01_jprb/)
38736 xcw( 888, :) = (/ &
38737  & 0.112294e+01_jprb, 0.115404e+01_jprb, 0.118525e+01_jprb, 0.121656e+01_jprb &
38738  &, 0.124794e+01_jprb, 0.127938e+01_jprb, 0.131086e+01_jprb &
38739  &, 0.134237e+01_jprb, 0.137388e+01_jprb, 0.140538e+01_jprb, 0.143685e+01_jprb &
38740  &, 0.146827e+01_jprb, 0.149962e+01_jprb, 0.153090e+01_jprb &
38741  &, 0.156207e+01_jprb, 0.159313e+01_jprb, 0.162405e+01_jprb, 0.165481e+01_jprb &
38742  &, 0.168541e+01_jprb, 0.171582e+01_jprb, 0.174602e+01_jprb &
38743  &, 0.177601e+01_jprb, 0.180576e+01_jprb, 0.183525e+01_jprb, 0.186447e+01_jprb &
38744  &, 0.189339e+01_jprb, 0.192202e+01_jprb, 0.195033e+01_jprb &
38745  &, 0.197830e+01_jprb, 0.200592e+01_jprb, 0.203318e+01_jprb, 0.206005e+01_jprb &
38746  &, 0.208654e+01_jprb, 0.211261e+01_jprb, 0.213826e+01_jprb &
38747  &, 0.216348e+01_jprb, 0.218825e+01_jprb, 0.221257e+01_jprb, 0.223641e+01_jprb &
38748  &, 0.225977e+01_jprb, 0.228263e+01_jprb, 0.230499e+01_jprb &
38749  &, 0.232684e+01_jprb, 0.234816e+01_jprb, 0.236896e+01_jprb, 0.238921e+01_jprb &
38750  &, 0.240891e+01_jprb, 0.242805e+01_jprb, 0.244664e+01_jprb &
38751  &, 0.246465e+01_jprb, 0.248209e+01_jprb, 0.249894e+01_jprb, 0.251520e+01_jprb &
38752  &, 0.253087e+01_jprb, 0.254595e+01_jprb, 0.256042e+01_jprb &
38753  &, 0.257428e+01_jprb, 0.258754e+01_jprb, 0.260018e+01_jprb, 0.261221e+01_jprb &
38754  &, 0.262363e+01_jprb, 0.263444e+01_jprb, 0.264460e+01_jprb &
38755  &, 0.265417e+01_jprb, 0.266305e+01_jprb, 0.267143e+01_jprb, 0.267915e+01_jprb &
38756  &, 0.268622e+01_jprb, 0.269269e+01_jprb, 0.269853e+01_jprb &
38757  &, 0.270376e+01_jprb, 0.270839e+01_jprb, 0.271239e+01_jprb, 0.271579e+01_jprb &
38758  &, 0.271859e+01_jprb, 0.272079e+01_jprb, 0.272239e+01_jprb &
38759  &, 0.272340e+01_jprb, 0.272382e+01_jprb, 0.272364e+01_jprb, 0.272290e+01_jprb &
38760  &, 0.272156e+01_jprb, 0.271966e+01_jprb, 0.271720e+01_jprb &
38761  &, 0.271417e+01_jprb, 0.271060e+01_jprb, 0.270646e+01_jprb, 0.270180e+01_jprb &
38762  &, 0.269659e+01_jprb, 0.269085e+01_jprb, 0.268458e+01_jprb &
38763  &, 0.267782e+01_jprb, 0.267055e+01_jprb, 0.266275e+01_jprb, 0.265449e+01_jprb &
38764  &, 0.264571e+01_jprb, 0.263647e+01_jprb, 0.262677e+01_jprb &
38765  &, 0.261657e+01_jprb, 0.260595e+01_jprb, 0.259485e+01_jprb, 0.258333e+01_jprb &
38766  &, 0.257138e+01_jprb, 0.255903e+01_jprb, 0.254624e+01_jprb &
38767  &, 0.253306e+01_jprb, 0.251950e+01_jprb, 0.250550e+01_jprb, 0.249117e+01_jprb &
38768  &, 0.247646e+01_jprb, 0.246138e+01_jprb, 0.244597e+01_jprb &
38769  &, 0.243019e+01_jprb, 0.241412e+01_jprb, 0.239770e+01_jprb, 0.238099e+01_jprb &
38770  &, 0.236393e+01_jprb, 0.234663e+01_jprb, 0.232898e+01_jprb &
38771  &, 0.231115e+01_jprb, 0.229296e+01_jprb, 0.227454e+01_jprb, 0.225591e+01_jprb &
38772  &, 0.223700e+01_jprb, 0.221789e+01_jprb, 0.219853e+01_jprb &
38773  &, 0.217903e+01_jprb, 0.215928e+01_jprb, 0.213932e+01_jprb, 0.211916e+01_jprb &
38774  &, 0.209890e+01_jprb, 0.207844e+01_jprb, 0.205738e+01_jprb &
38775  &, 0.203707e+01_jprb, 0.201615e+01_jprb, 0.199513e+01_jprb, 0.197378e+01_jprb &
38776  &, 0.195276e+01_jprb, 0.193140e+01_jprb, 0.190997e+01_jprb/)
38777 xcw( 889, :) = (/ &
38778  & 0.112351e+01_jprb, 0.115477e+01_jprb, 0.118614e+01_jprb, 0.121761e+01_jprb &
38779  &, 0.124916e+01_jprb, 0.128078e+01_jprb, 0.131244e+01_jprb &
38780  &, 0.134413e+01_jprb, 0.137583e+01_jprb, 0.140753e+01_jprb, 0.143920e+01_jprb &
38781  &, 0.147082e+01_jprb, 0.150239e+01_jprb, 0.153387e+01_jprb &
38782  &, 0.156526e+01_jprb, 0.159654e+01_jprb, 0.162769e+01_jprb, 0.165869e+01_jprb &
38783  &, 0.168952e+01_jprb, 0.172017e+01_jprb, 0.175062e+01_jprb &
38784  &, 0.178085e+01_jprb, 0.181085e+01_jprb, 0.184059e+01_jprb, 0.187007e+01_jprb &
38785  &, 0.189926e+01_jprb, 0.192815e+01_jprb, 0.195673e+01_jprb &
38786  &, 0.198498e+01_jprb, 0.201287e+01_jprb, 0.204041e+01_jprb, 0.206757e+01_jprb &
38787  &, 0.209434e+01_jprb, 0.212070e+01_jprb, 0.214664e+01_jprb &
38788  &, 0.217215e+01_jprb, 0.219722e+01_jprb, 0.222183e+01_jprb, 0.224597e+01_jprb &
38789  &, 0.226963e+01_jprb, 0.229280e+01_jprb, 0.231548e+01_jprb &
38790  &, 0.233763e+01_jprb, 0.235928e+01_jprb, 0.238038e+01_jprb, 0.240095e+01_jprb &
38791  &, 0.242096e+01_jprb, 0.244042e+01_jprb, 0.245933e+01_jprb &
38792  &, 0.247766e+01_jprb, 0.249542e+01_jprb, 0.251259e+01_jprb, 0.252918e+01_jprb &
38793  &, 0.254514e+01_jprb, 0.256056e+01_jprb, 0.257536e+01_jprb &
38794  &, 0.258955e+01_jprb, 0.260313e+01_jprb, 0.261609e+01_jprb, 0.262845e+01_jprb &
38795  &, 0.264019e+01_jprb, 0.265131e+01_jprb, 0.266182e+01_jprb &
38796  &, 0.267170e+01_jprb, 0.268096e+01_jprb, 0.268961e+01_jprb, 0.269763e+01_jprb &
38797  &, 0.270502e+01_jprb, 0.271182e+01_jprb, 0.271797e+01_jprb &
38798  &, 0.272352e+01_jprb, 0.272846e+01_jprb, 0.273279e+01_jprb, 0.273650e+01_jprb &
38799  &, 0.273959e+01_jprb, 0.274210e+01_jprb, 0.274402e+01_jprb &
38800  &, 0.274532e+01_jprb, 0.274602e+01_jprb, 0.274616e+01_jprb, 0.274570e+01_jprb &
38801  &, 0.274466e+01_jprb, 0.274304e+01_jprb, 0.274086e+01_jprb &
38802  &, 0.273812e+01_jprb, 0.273483e+01_jprb, 0.273097e+01_jprb, 0.272657e+01_jprb &
38803  &, 0.272161e+01_jprb, 0.271614e+01_jprb, 0.271015e+01_jprb &
38804  &, 0.270363e+01_jprb, 0.269659e+01_jprb, 0.268907e+01_jprb, 0.268104e+01_jprb &
38805  &, 0.267249e+01_jprb, 0.266347e+01_jprb, 0.265399e+01_jprb &
38806  &, 0.264405e+01_jprb, 0.263364e+01_jprb, 0.262275e+01_jprb, 0.261148e+01_jprb &
38807  &, 0.259973e+01_jprb, 0.258757e+01_jprb, 0.257498e+01_jprb &
38808  &, 0.256199e+01_jprb, 0.254857e+01_jprb, 0.253479e+01_jprb, 0.252064e+01_jprb &
38809  &, 0.250609e+01_jprb, 0.249118e+01_jprb, 0.247592e+01_jprb &
38810  &, 0.246030e+01_jprb, 0.244438e+01_jprb, 0.242810e+01_jprb, 0.241148e+01_jprb &
38811  &, 0.239459e+01_jprb, 0.237737e+01_jprb, 0.235988e+01_jprb &
38812  &, 0.234211e+01_jprb, 0.232407e+01_jprb, 0.230575e+01_jprb, 0.228721e+01_jprb &
38813  &, 0.226839e+01_jprb, 0.224935e+01_jprb, 0.223012e+01_jprb &
38814  &, 0.221062e+01_jprb, 0.219093e+01_jprb, 0.217107e+01_jprb, 0.215095e+01_jprb &
38815  &, 0.213072e+01_jprb, 0.211028e+01_jprb, 0.208972e+01_jprb &
38816  &, 0.206894e+01_jprb, 0.204808e+01_jprb, 0.202705e+01_jprb, 0.200594e+01_jprb &
38817  &, 0.198471e+01_jprb, 0.196331e+01_jprb, 0.194184e+01_jprb/)
38818 
38819 IF (lhook) CALL dr_hook('SU_MCICA:PART127',1,zhook_handle)
38820 END SUBROUTINE part127
38821 
38822 #ifdef VPP5000
38823 !OCL SCALAR
38824 #endif
38825 !option! -Nv -NO
38826 #ifdef RS6K
38827 @process nooptimize
38828 #endif
38829 !pgi$r opt=0
38830 SUBROUTINE part128
38831 
38832 REAL(KIND=JPRB) :: ZHOOK_HANDLE
38833 IF (lhook) CALL dr_hook('SU_MCICA:PART128',0,zhook_handle)
38834 
38835 xcw( 890, :) = (/ &
38836  & 0.112408e+01_jprb, 0.115550e+01_jprb, 0.118703e+01_jprb, 0.121867e+01_jprb &
38837  &, 0.125039e+01_jprb, 0.128219e+01_jprb, 0.131403e+01_jprb &
38838  &, 0.134591e+01_jprb, 0.137780e+01_jprb, 0.140969e+01_jprb, 0.144156e+01_jprb &
38839  &, 0.147339e+01_jprb, 0.150517e+01_jprb, 0.153687e+01_jprb &
38840  &, 0.156848e+01_jprb, 0.159999e+01_jprb, 0.163136e+01_jprb, 0.166259e+01_jprb &
38841  &, 0.169366e+01_jprb, 0.172456e+01_jprb, 0.175525e+01_jprb &
38842  &, 0.178573e+01_jprb, 0.181598e+01_jprb, 0.184598e+01_jprb, 0.187572e+01_jprb &
38843  &, 0.190518e+01_jprb, 0.193434e+01_jprb, 0.196319e+01_jprb &
38844  &, 0.199171e+01_jprb, 0.201989e+01_jprb, 0.204770e+01_jprb, 0.207515e+01_jprb &
38845  &, 0.210220e+01_jprb, 0.212886e+01_jprb, 0.215510e+01_jprb &
38846  &, 0.218090e+01_jprb, 0.220627e+01_jprb, 0.223118e+01_jprb, 0.225563e+01_jprb &
38847  &, 0.227960e+01_jprb, 0.230308e+01_jprb, 0.232606e+01_jprb &
38848  &, 0.234853e+01_jprb, 0.237048e+01_jprb, 0.239191e+01_jprb, 0.241279e+01_jprb &
38849  &, 0.243313e+01_jprb, 0.245292e+01_jprb, 0.247214e+01_jprb &
38850  &, 0.249080e+01_jprb, 0.250888e+01_jprb, 0.252637e+01_jprb, 0.254328e+01_jprb &
38851  &, 0.255960e+01_jprb, 0.257533e+01_jprb, 0.259045e+01_jprb &
38852  &, 0.260496e+01_jprb, 0.261888e+01_jprb, 0.263217e+01_jprb, 0.264486e+01_jprb &
38853  &, 0.265693e+01_jprb, 0.266837e+01_jprb, 0.267920e+01_jprb &
38854  &, 0.268941e+01_jprb, 0.269899e+01_jprb, 0.270798e+01_jprb, 0.271632e+01_jprb &
38855  &, 0.272404e+01_jprb, 0.273114e+01_jprb, 0.273762e+01_jprb &
38856  &, 0.274349e+01_jprb, 0.274874e+01_jprb, 0.275339e+01_jprb, 0.275741e+01_jprb &
38857  &, 0.276085e+01_jprb, 0.276365e+01_jprb, 0.276586e+01_jprb &
38858  &, 0.276748e+01_jprb, 0.276850e+01_jprb, 0.276890e+01_jprb, 0.276876e+01_jprb &
38859  &, 0.276801e+01_jprb, 0.276668e+01_jprb, 0.276480e+01_jprb &
38860  &, 0.276235e+01_jprb, 0.275932e+01_jprb, 0.275575e+01_jprb, 0.275163e+01_jprb &
38861  &, 0.274695e+01_jprb, 0.274174e+01_jprb, 0.273603e+01_jprb &
38862  &, 0.272975e+01_jprb, 0.272299e+01_jprb, 0.271571e+01_jprb, 0.270791e+01_jprb &
38863  &, 0.269963e+01_jprb, 0.269085e+01_jprb, 0.268160e+01_jprb &
38864  &, 0.267188e+01_jprb, 0.266169e+01_jprb, 0.265106e+01_jprb, 0.263996e+01_jprb &
38865  &, 0.262842e+01_jprb, 0.261646e+01_jprb, 0.260407e+01_jprb &
38866  &, 0.259131e+01_jprb, 0.257809e+01_jprb, 0.256450e+01_jprb, 0.255048e+01_jprb &
38867  &, 0.253581e+01_jprb, 0.252141e+01_jprb, 0.250627e+01_jprb &
38868  &, 0.249085e+01_jprb, 0.247504e+01_jprb, 0.245891e+01_jprb, 0.244248e+01_jprb &
38869  &, 0.242573e+01_jprb, 0.240864e+01_jprb, 0.239127e+01_jprb &
38870  &, 0.237362e+01_jprb, 0.235564e+01_jprb, 0.233747e+01_jprb, 0.231898e+01_jprb &
38871  &, 0.230030e+01_jprb, 0.228134e+01_jprb, 0.226214e+01_jprb &
38872  &, 0.224271e+01_jprb, 0.222313e+01_jprb, 0.220327e+01_jprb, 0.218326e+01_jprb &
38873  &, 0.216307e+01_jprb, 0.214266e+01_jprb, 0.212212e+01_jprb &
38874  &, 0.210141e+01_jprb, 0.208056e+01_jprb, 0.205954e+01_jprb, 0.203842e+01_jprb &
38875  &, 0.201716e+01_jprb, 0.199581e+01_jprb, 0.197437e+01_jprb/)
38876 xcw( 891, :) = (/ &
38877  & 0.112466e+01_jprb, 0.115623e+01_jprb, 0.118793e+01_jprb, 0.121973e+01_jprb &
38878  &, 0.125163e+01_jprb, 0.128360e+01_jprb, 0.131563e+01_jprb &
38879  &, 0.134770e+01_jprb, 0.137978e+01_jprb, 0.141187e+01_jprb, 0.144395e+01_jprb &
38880  &, 0.147598e+01_jprb, 0.150797e+01_jprb, 0.153989e+01_jprb &
38881  &, 0.157173e+01_jprb, 0.160346e+01_jprb, 0.163506e+01_jprb, 0.166653e+01_jprb &
38882  &, 0.169784e+01_jprb, 0.172897e+01_jprb, 0.175992e+01_jprb &
38883  &, 0.179065e+01_jprb, 0.182116e+01_jprb, 0.185142e+01_jprb, 0.188142e+01_jprb &
38884  &, 0.191115e+01_jprb, 0.194058e+01_jprb, 0.196971e+01_jprb &
38885  &, 0.199850e+01_jprb, 0.202696e+01_jprb, 0.205506e+01_jprb, 0.208279e+01_jprb &
38886  &, 0.211014e+01_jprb, 0.213709e+01_jprb, 0.216362e+01_jprb &
38887  &, 0.218973e+01_jprb, 0.221540e+01_jprb, 0.224062e+01_jprb, 0.226538e+01_jprb &
38888  &, 0.228966e+01_jprb, 0.231345e+01_jprb, 0.233674e+01_jprb &
38889  &, 0.235953e+01_jprb, 0.238180e+01_jprb, 0.240354e+01_jprb, 0.242475e+01_jprb &
38890  &, 0.244541e+01_jprb, 0.246553e+01_jprb, 0.248507e+01_jprb &
38891  &, 0.250406e+01_jprb, 0.252246e+01_jprb, 0.254029e+01_jprb, 0.255753e+01_jprb &
38892  &, 0.257418e+01_jprb, 0.259024e+01_jprb, 0.260569e+01_jprb &
38893  &, 0.262054e+01_jprb, 0.263478e+01_jprb, 0.264841e+01_jprb, 0.266142e+01_jprb &
38894  &, 0.267384e+01_jprb, 0.268561e+01_jprb, 0.269677e+01_jprb &
38895  &, 0.270732e+01_jprb, 0.271723e+01_jprb, 0.272654e+01_jprb, 0.273521e+01_jprb &
38896  &, 0.274326e+01_jprb, 0.275069e+01_jprb, 0.275751e+01_jprb &
38897  &, 0.276369e+01_jprb, 0.276926e+01_jprb, 0.277423e+01_jprb, 0.277857e+01_jprb &
38898  &, 0.278228e+01_jprb, 0.278545e+01_jprb, 0.278796e+01_jprb &
38899  &, 0.278988e+01_jprb, 0.279122e+01_jprb, 0.279195e+01_jprb, 0.279208e+01_jprb &
38900  &, 0.279165e+01_jprb, 0.279063e+01_jprb, 0.278901e+01_jprb &
38901  &, 0.278685e+01_jprb, 0.278392e+01_jprb, 0.278084e+01_jprb, 0.277698e+01_jprb &
38902  &, 0.277260e+01_jprb, 0.276767e+01_jprb, 0.276221e+01_jprb &
38903  &, 0.275622e+01_jprb, 0.274971e+01_jprb, 0.274268e+01_jprb, 0.273516e+01_jprb &
38904  &, 0.272712e+01_jprb, 0.271858e+01_jprb, 0.270959e+01_jprb &
38905  &, 0.270011e+01_jprb, 0.269015e+01_jprb, 0.267973e+01_jprb, 0.266886e+01_jprb &
38906  &, 0.265753e+01_jprb, 0.264579e+01_jprb, 0.263360e+01_jprb &
38907  &, 0.262100e+01_jprb, 0.260801e+01_jprb, 0.259462e+01_jprb, 0.258079e+01_jprb &
38908  &, 0.256660e+01_jprb, 0.255204e+01_jprb, 0.253711e+01_jprb &
38909  &, 0.252181e+01_jprb, 0.250621e+01_jprb, 0.249023e+01_jprb, 0.247390e+01_jprb &
38910  &, 0.245729e+01_jprb, 0.244034e+01_jprb, 0.242311e+01_jprb &
38911  &, 0.240558e+01_jprb, 0.238777e+01_jprb, 0.236966e+01_jprb, 0.235128e+01_jprb &
38912  &, 0.233269e+01_jprb, 0.231382e+01_jprb, 0.229470e+01_jprb &
38913  &, 0.227535e+01_jprb, 0.225584e+01_jprb, 0.223604e+01_jprb, 0.221608e+01_jprb &
38914  &, 0.219594e+01_jprb, 0.217563e+01_jprb, 0.215416e+01_jprb &
38915  &, 0.213443e+01_jprb, 0.211360e+01_jprb, 0.209258e+01_jprb, 0.207152e+01_jprb &
38916  &, 0.205026e+01_jprb, 0.202889e+01_jprb, 0.200742e+01_jprb/)
38917 xcw( 892, :) = (/ &
38918  & 0.112524e+01_jprb, 0.115697e+01_jprb, 0.118883e+01_jprb, 0.122081e+01_jprb &
38919  &, 0.125288e+01_jprb, 0.128503e+01_jprb, 0.131724e+01_jprb &
38920  &, 0.134950e+01_jprb, 0.138178e+01_jprb, 0.141407e+01_jprb, 0.144635e+01_jprb &
38921  &, 0.147860e+01_jprb, 0.151080e+01_jprb, 0.154294e+01_jprb &
38922  &, 0.157500e+01_jprb, 0.160696e+01_jprb, 0.163880e+01_jprb, 0.167050e+01_jprb &
38923  &, 0.170205e+01_jprb, 0.173343e+01_jprb, 0.176462e+01_jprb &
38924  &, 0.179561e+01_jprb, 0.182638e+01_jprb, 0.185690e+01_jprb, 0.188717e+01_jprb &
38925  &, 0.191717e+01_jprb, 0.194687e+01_jprb, 0.197627e+01_jprb &
38926  &, 0.200535e+01_jprb, 0.203410e+01_jprb, 0.206249e+01_jprb, 0.209051e+01_jprb &
38927  &, 0.211815e+01_jprb, 0.214540e+01_jprb, 0.217223e+01_jprb &
38928  &, 0.219864e+01_jprb, 0.222462e+01_jprb, 0.225014e+01_jprb, 0.227521e+01_jprb &
38929  &, 0.229980e+01_jprb, 0.232391e+01_jprb, 0.234752e+01_jprb &
38930  &, 0.237064e+01_jprb, 0.239322e+01_jprb, 0.241529e+01_jprb, 0.243683e+01_jprb &
38931  &, 0.245781e+01_jprb, 0.247825e+01_jprb, 0.249813e+01_jprb &
38932  &, 0.251744e+01_jprb, 0.253618e+01_jprb, 0.255435e+01_jprb, 0.257193e+01_jprb &
38933  &, 0.258890e+01_jprb, 0.260530e+01_jprb, 0.262109e+01_jprb &
38934  &, 0.263629e+01_jprb, 0.265086e+01_jprb, 0.266483e+01_jprb, 0.267819e+01_jprb &
38935  &, 0.269092e+01_jprb, 0.270304e+01_jprb, 0.271454e+01_jprb &
38936  &, 0.272542e+01_jprb, 0.273567e+01_jprb, 0.274530e+01_jprb, 0.275431e+01_jprb &
38937  &, 0.276270e+01_jprb, 0.277047e+01_jprb, 0.277760e+01_jprb &
38938  &, 0.278413e+01_jprb, 0.279002e+01_jprb, 0.279531e+01_jprb, 0.279998e+01_jprb &
38939  &, 0.280403e+01_jprb, 0.280749e+01_jprb, 0.281032e+01_jprb &
38940  &, 0.281257e+01_jprb, 0.281422e+01_jprb, 0.281525e+01_jprb, 0.281569e+01_jprb &
38941  &, 0.281556e+01_jprb, 0.281484e+01_jprb, 0.281355e+01_jprb &
38942  &, 0.281167e+01_jprb, 0.280923e+01_jprb, 0.280625e+01_jprb, 0.280269e+01_jprb &
38943  &, 0.279857e+01_jprb, 0.279394e+01_jprb, 0.278874e+01_jprb &
38944  &, 0.278301e+01_jprb, 0.277676e+01_jprb, 0.277001e+01_jprb, 0.276274e+01_jprb &
38945  &, 0.275495e+01_jprb, 0.274669e+01_jprb, 0.273794e+01_jprb &
38946  &, 0.272869e+01_jprb, 0.271896e+01_jprb, 0.270878e+01_jprb, 0.269813e+01_jprb &
38947  &, 0.268707e+01_jprb, 0.267554e+01_jprb, 0.266357e+01_jprb &
38948  &, 0.265118e+01_jprb, 0.263835e+01_jprb, 0.262515e+01_jprb, 0.261152e+01_jprb &
38949  &, 0.259752e+01_jprb, 0.258314e+01_jprb, 0.256839e+01_jprb &
38950  &, 0.255327e+01_jprb, 0.253779e+01_jprb, 0.252197e+01_jprb, 0.250584e+01_jprb &
38951  &, 0.248934e+01_jprb, 0.247253e+01_jprb, 0.245543e+01_jprb &
38952  &, 0.243803e+01_jprb, 0.241873e+01_jprb, 0.240236e+01_jprb, 0.238409e+01_jprb &
38953  &, 0.236555e+01_jprb, 0.234679e+01_jprb, 0.232781e+01_jprb &
38954  &, 0.230854e+01_jprb, 0.228905e+01_jprb, 0.226938e+01_jprb, 0.224948e+01_jprb &
38955  &, 0.222939e+01_jprb, 0.220913e+01_jprb, 0.218860e+01_jprb &
38956  &, 0.216800e+01_jprb, 0.214719e+01_jprb, 0.212625e+01_jprb, 0.210513e+01_jprb &
38957  &, 0.208394e+01_jprb, 0.206255e+01_jprb, 0.204106e+01_jprb/)
38958 xcw( 893, :) = (/ &
38959  & 0.112583e+01_jprb, 0.115772e+01_jprb, 0.118974e+01_jprb, 0.122189e+01_jprb &
38960  &, 0.125414e+01_jprb, 0.128647e+01_jprb, 0.131887e+01_jprb &
38961  &, 0.135132e+01_jprb, 0.138379e+01_jprb, 0.141628e+01_jprb, 0.144877e+01_jprb &
38962  &, 0.148123e+01_jprb, 0.151365e+01_jprb, 0.154601e+01_jprb &
38963  &, 0.157829e+01_jprb, 0.161048e+01_jprb, 0.164256e+01_jprb, 0.167450e+01_jprb &
38964  &, 0.170630e+01_jprb, 0.173793e+01_jprb, 0.176937e+01_jprb &
38965  &, 0.180062e+01_jprb, 0.183164e+01_jprb, 0.186243e+01_jprb, 0.189297e+01_jprb &
38966  &, 0.192324e+01_jprb, 0.195322e+01_jprb, 0.198290e+01_jprb &
38967  &, 0.201227e+01_jprb, 0.204130e+01_jprb, 0.206998e+01_jprb, 0.209830e+01_jprb &
38968  &, 0.212624e+01_jprb, 0.215378e+01_jprb, 0.218092e+01_jprb &
38969  &, 0.220764e+01_jprb, 0.223392e+01_jprb, 0.225976e+01_jprb, 0.228514e+01_jprb &
38970  &, 0.231005e+01_jprb, 0.233448e+01_jprb, 0.235841e+01_jprb &
38971  &, 0.238184e+01_jprb, 0.240476e+01_jprb, 0.242716e+01_jprb, 0.244901e+01_jprb &
38972  &, 0.247034e+01_jprb, 0.249110e+01_jprb, 0.251133e+01_jprb &
38973  &, 0.253095e+01_jprb, 0.255005e+01_jprb, 0.256855e+01_jprb, 0.258647e+01_jprb &
38974  &, 0.260379e+01_jprb, 0.262052e+01_jprb, 0.263663e+01_jprb &
38975  &, 0.265219e+01_jprb, 0.266710e+01_jprb, 0.268141e+01_jprb, 0.269511e+01_jprb &
38976  &, 0.270818e+01_jprb, 0.272064e+01_jprb, 0.273248e+01_jprb &
38977  &, 0.274371e+01_jprb, 0.275431e+01_jprb, 0.276413e+01_jprb, 0.277362e+01_jprb &
38978  &, 0.278235e+01_jprb, 0.279044e+01_jprb, 0.279792e+01_jprb &
38979  &, 0.280477e+01_jprb, 0.281101e+01_jprb, 0.281663e+01_jprb, 0.282163e+01_jprb &
38980  &, 0.282602e+01_jprb, 0.282978e+01_jprb, 0.283295e+01_jprb &
38981  &, 0.283550e+01_jprb, 0.283746e+01_jprb, 0.283883e+01_jprb, 0.283960e+01_jprb &
38982  &, 0.283976e+01_jprb, 0.283937e+01_jprb, 0.283836e+01_jprb &
38983  &, 0.283678e+01_jprb, 0.283465e+01_jprb, 0.283195e+01_jprb, 0.282869e+01_jprb &
38984  &, 0.282488e+01_jprb, 0.282051e+01_jprb, 0.281558e+01_jprb &
38985  &, 0.281015e+01_jprb, 0.280419e+01_jprb, 0.279770e+01_jprb, 0.279069e+01_jprb &
38986  &, 0.278319e+01_jprb, 0.277514e+01_jprb, 0.276664e+01_jprb &
38987  &, 0.275752e+01_jprb, 0.274818e+01_jprb, 0.273824e+01_jprb, 0.272782e+01_jprb &
38988  &, 0.271637e+01_jprb, 0.270568e+01_jprb, 0.269393e+01_jprb &
38989  &, 0.268175e+01_jprb, 0.266914e+01_jprb, 0.265614e+01_jprb, 0.264271e+01_jprb &
38990  &, 0.262891e+01_jprb, 0.261472e+01_jprb, 0.260012e+01_jprb &
38991  &, 0.258517e+01_jprb, 0.256986e+01_jprb, 0.255421e+01_jprb, 0.253816e+01_jprb &
38992  &, 0.252191e+01_jprb, 0.250525e+01_jprb, 0.248825e+01_jprb &
38993  &, 0.247099e+01_jprb, 0.245344e+01_jprb, 0.243558e+01_jprb, 0.241742e+01_jprb &
38994  &, 0.239900e+01_jprb, 0.238034e+01_jprb, 0.236140e+01_jprb &
38995  &, 0.234228e+01_jprb, 0.232288e+01_jprb, 0.230328e+01_jprb, 0.228340e+01_jprb &
38996  &, 0.226337e+01_jprb, 0.224316e+01_jprb, 0.222274e+01_jprb &
38997  &, 0.220212e+01_jprb, 0.218140e+01_jprb, 0.216048e+01_jprb, 0.213938e+01_jprb &
38998  &, 0.211819e+01_jprb, 0.209680e+01_jprb, 0.207536e+01_jprb/)
38999 xcw( 894, :) = (/ &
39000  & 0.112642e+01_jprb, 0.115846e+01_jprb, 0.119066e+01_jprb, 0.122298e+01_jprb &
39001  &, 0.125540e+01_jprb, 0.128792e+01_jprb, 0.132051e+01_jprb &
39002  &, 0.135315e+01_jprb, 0.138582e+01_jprb, 0.141852e+01_jprb, 0.145121e+01_jprb &
39003  &, 0.148388e+01_jprb, 0.151652e+01_jprb, 0.154911e+01_jprb &
39004  &, 0.158162e+01_jprb, 0.161404e+01_jprb, 0.164635e+01_jprb, 0.167854e+01_jprb &
39005  &, 0.171058e+01_jprb, 0.174246e+01_jprb, 0.177416e+01_jprb &
39006  &, 0.180566e+01_jprb, 0.183695e+01_jprb, 0.186801e+01_jprb, 0.189882e+01_jprb &
39007  &, 0.192936e+01_jprb, 0.195963e+01_jprb, 0.198959e+01_jprb &
39008  &, 0.201924e+01_jprb, 0.204856e+01_jprb, 0.207754e+01_jprb, 0.210615e+01_jprb &
39009  &, 0.213439e+01_jprb, 0.216224e+01_jprb, 0.218969e+01_jprb &
39010  &, 0.221671e+01_jprb, 0.224331e+01_jprb, 0.226947e+01_jprb, 0.229517e+01_jprb &
39011  &, 0.232039e+01_jprb, 0.234515e+01_jprb, 0.236941e+01_jprb &
39012  &, 0.239316e+01_jprb, 0.241641e+01_jprb, 0.243913e+01_jprb, 0.246133e+01_jprb &
39013  &, 0.248298e+01_jprb, 0.250410e+01_jprb, 0.252455e+01_jprb &
39014  &, 0.254463e+01_jprb, 0.256406e+01_jprb, 0.258290e+01_jprb, 0.260115e+01_jprb &
39015  &, 0.261882e+01_jprb, 0.263589e+01_jprb, 0.265238e+01_jprb &
39016  &, 0.266826e+01_jprb, 0.268352e+01_jprb, 0.269817e+01_jprb, 0.271221e+01_jprb &
39017  &, 0.272565e+01_jprb, 0.273844e+01_jprb, 0.275062e+01_jprb &
39018  &, 0.276220e+01_jprb, 0.277313e+01_jprb, 0.278345e+01_jprb, 0.279315e+01_jprb &
39019  &, 0.280222e+01_jprb, 0.281066e+01_jprb, 0.281847e+01_jprb &
39020  &, 0.282567e+01_jprb, 0.283224e+01_jprb, 0.283820e+01_jprb, 0.284353e+01_jprb &
39021  &, 0.284823e+01_jprb, 0.285235e+01_jprb, 0.285583e+01_jprb &
39022  &, 0.285873e+01_jprb, 0.286100e+01_jprb, 0.286269e+01_jprb, 0.286377e+01_jprb &
39023  &, 0.286427e+01_jprb, 0.286417e+01_jprb, 0.286347e+01_jprb &
39024  &, 0.286224e+01_jprb, 0.286039e+01_jprb, 0.285799e+01_jprb, 0.285502e+01_jprb &
39025  &, 0.285151e+01_jprb, 0.284742e+01_jprb, 0.284280e+01_jprb &
39026  &, 0.283766e+01_jprb, 0.283198e+01_jprb, 0.282575e+01_jprb, 0.281900e+01_jprb &
39027  &, 0.281176e+01_jprb, 0.280400e+01_jprb, 0.279576e+01_jprb &
39028  &, 0.278700e+01_jprb, 0.277780e+01_jprb, 0.276810e+01_jprb, 0.275792e+01_jprb &
39029  &, 0.274728e+01_jprb, 0.273620e+01_jprb, 0.272468e+01_jprb &
39030  &, 0.271273e+01_jprb, 0.270037e+01_jprb, 0.268755e+01_jprb, 0.267433e+01_jprb &
39031  &, 0.266073e+01_jprb, 0.264673e+01_jprb, 0.263233e+01_jprb &
39032  &, 0.261757e+01_jprb, 0.260244e+01_jprb, 0.258697e+01_jprb, 0.257113e+01_jprb &
39033  &, 0.255495e+01_jprb, 0.253845e+01_jprb, 0.252161e+01_jprb &
39034  &, 0.250449e+01_jprb, 0.248703e+01_jprb, 0.246930e+01_jprb, 0.245127e+01_jprb &
39035  &, 0.243297e+01_jprb, 0.241442e+01_jprb, 0.239560e+01_jprb &
39036  &, 0.237652e+01_jprb, 0.235721e+01_jprb, 0.233770e+01_jprb, 0.231795e+01_jprb &
39037  &, 0.229799e+01_jprb, 0.227778e+01_jprb, 0.225741e+01_jprb &
39038  &, 0.223690e+01_jprb, 0.221616e+01_jprb, 0.219527e+01_jprb, 0.217425e+01_jprb &
39039  &, 0.215301e+01_jprb, 0.213169e+01_jprb, 0.211026e+01_jprb/)
39040 xcw( 895, :) = (/ &
39041  & 0.112701e+01_jprb, 0.115922e+01_jprb, 0.119158e+01_jprb, 0.122408e+01_jprb &
39042  &, 0.125668e+01_jprb, 0.128938e+01_jprb, 0.132216e+01_jprb &
39043  &, 0.135499e+01_jprb, 0.138787e+01_jprb, 0.142077e+01_jprb, 0.145367e+01_jprb &
39044  &, 0.148656e+01_jprb, 0.151942e+01_jprb, 0.155223e+01_jprb &
39045  &, 0.158497e+01_jprb, 0.161762e+01_jprb, 0.165018e+01_jprb, 0.168261e+01_jprb &
39046  &, 0.171490e+01_jprb, 0.174703e+01_jprb, 0.177899e+01_jprb &
39047  &, 0.181075e+01_jprb, 0.184231e+01_jprb, 0.187364e+01_jprb, 0.190472e+01_jprb &
39048  &, 0.193554e+01_jprb, 0.196609e+01_jprb, 0.199634e+01_jprb &
39049  &, 0.202628e+01_jprb, 0.205590e+01_jprb, 0.208517e+01_jprb, 0.211408e+01_jprb &
39050  &, 0.214262e+01_jprb, 0.217078e+01_jprb, 0.219854e+01_jprb &
39051  &, 0.222587e+01_jprb, 0.225279e+01_jprb, 0.227926e+01_jprb, 0.230528e+01_jprb &
39052  &, 0.233083e+01_jprb, 0.235592e+01_jprb, 0.238050e+01_jprb &
39053  &, 0.240459e+01_jprb, 0.242817e+01_jprb, 0.245123e+01_jprb, 0.247377e+01_jprb &
39054  &, 0.249577e+01_jprb, 0.251721e+01_jprb, 0.253811e+01_jprb &
39055  &, 0.255844e+01_jprb, 0.257820e+01_jprb, 0.259738e+01_jprb, 0.261600e+01_jprb &
39056  &, 0.263402e+01_jprb, 0.265144e+01_jprb, 0.266826e+01_jprb &
39057  &, 0.268437e+01_jprb, 0.270010e+01_jprb, 0.271511e+01_jprb, 0.272950e+01_jprb &
39058  &, 0.274328e+01_jprb, 0.275644e+01_jprb, 0.276898e+01_jprb &
39059  &, 0.278089e+01_jprb, 0.279218e+01_jprb, 0.280284e+01_jprb, 0.281289e+01_jprb &
39060  &, 0.282231e+01_jprb, 0.283110e+01_jprb, 0.283924e+01_jprb &
39061  &, 0.284680e+01_jprb, 0.285371e+01_jprb, 0.286000e+01_jprb, 0.286568e+01_jprb &
39062  &, 0.287074e+01_jprb, 0.287518e+01_jprb, 0.287901e+01_jprb &
39063  &, 0.288222e+01_jprb, 0.288482e+01_jprb, 0.288685e+01_jprb, 0.288825e+01_jprb &
39064  &, 0.288907e+01_jprb, 0.288929e+01_jprb, 0.288891e+01_jprb &
39065  &, 0.288797e+01_jprb, 0.288646e+01_jprb, 0.288436e+01_jprb, 0.288170e+01_jprb &
39066  &, 0.287847e+01_jprb, 0.287470e+01_jprb, 0.287039e+01_jprb &
39067  &, 0.286550e+01_jprb, 0.286008e+01_jprb, 0.285416e+01_jprb, 0.284772e+01_jprb &
39068  &, 0.284074e+01_jprb, 0.283325e+01_jprb, 0.282526e+01_jprb &
39069  &, 0.281677e+01_jprb, 0.280782e+01_jprb, 0.279837e+01_jprb, 0.278843e+01_jprb &
39070  &, 0.277803e+01_jprb, 0.276720e+01_jprb, 0.275591e+01_jprb &
39071  &, 0.274419e+01_jprb, 0.273201e+01_jprb, 0.271945e+01_jprb, 0.270645e+01_jprb &
39072  &, 0.269302e+01_jprb, 0.267888e+01_jprb, 0.266502e+01_jprb &
39073  &, 0.265046e+01_jprb, 0.263548e+01_jprb, 0.262019e+01_jprb, 0.260453e+01_jprb &
39074  &, 0.258852e+01_jprb, 0.257214e+01_jprb, 0.255545e+01_jprb &
39075  &, 0.253849e+01_jprb, 0.252118e+01_jprb, 0.250359e+01_jprb, 0.248570e+01_jprb &
39076  &, 0.246748e+01_jprb, 0.244905e+01_jprb, 0.243034e+01_jprb &
39077  &, 0.241136e+01_jprb, 0.239215e+01_jprb, 0.237273e+01_jprb, 0.235301e+01_jprb &
39078  &, 0.233313e+01_jprb, 0.231305e+01_jprb, 0.229275e+01_jprb &
39079  &, 0.227223e+01_jprb, 0.225160e+01_jprb, 0.223075e+01_jprb, 0.220970e+01_jprb &
39080  &, 0.218854e+01_jprb, 0.216724e+01_jprb, 0.214574e+01_jprb/)
39081 xcw( 896, :) = (/ &
39082  & 0.112761e+01_jprb, 0.115998e+01_jprb, 0.119251e+01_jprb, 0.122518e+01_jprb &
39083  &, 0.125797e+01_jprb, 0.129085e+01_jprb, 0.132382e+01_jprb &
39084  &, 0.135685e+01_jprb, 0.138993e+01_jprb, 0.142303e+01_jprb, 0.145615e+01_jprb &
39085  &, 0.148926e+01_jprb, 0.152234e+01_jprb, 0.155537e+01_jprb &
39086  &, 0.158835e+01_jprb, 0.162123e+01_jprb, 0.165403e+01_jprb, 0.168671e+01_jprb &
39087  &, 0.171925e+01_jprb, 0.175164e+01_jprb, 0.178386e+01_jprb &
39088  &, 0.181589e+01_jprb, 0.184771e+01_jprb, 0.187931e+01_jprb, 0.191068e+01_jprb &
39089  &, 0.194178e+01_jprb, 0.197261e+01_jprb, 0.200315e+01_jprb &
39090  &, 0.203338e+01_jprb, 0.206329e+01_jprb, 0.209287e+01_jprb, 0.212208e+01_jprb &
39091  &, 0.215093e+01_jprb, 0.217940e+01_jprb, 0.220747e+01_jprb &
39092  &, 0.223513e+01_jprb, 0.226236e+01_jprb, 0.228916e+01_jprb, 0.231550e+01_jprb &
39093  &, 0.234138e+01_jprb, 0.236679e+01_jprb, 0.239172e+01_jprb &
39094  &, 0.241614e+01_jprb, 0.244006e+01_jprb, 0.246346e+01_jprb, 0.248633e+01_jprb &
39095  &, 0.250867e+01_jprb, 0.253047e+01_jprb, 0.255171e+01_jprb &
39096  &, 0.257238e+01_jprb, 0.259250e+01_jprb, 0.261204e+01_jprb, 0.263099e+01_jprb &
39097  &, 0.264937e+01_jprb, 0.266714e+01_jprb, 0.268430e+01_jprb &
39098  &, 0.270091e+01_jprb, 0.271688e+01_jprb, 0.273224e+01_jprb, 0.274698e+01_jprb &
39099  &, 0.276113e+01_jprb, 0.277463e+01_jprb, 0.278753e+01_jprb &
39100  &, 0.279980e+01_jprb, 0.281144e+01_jprb, 0.282246e+01_jprb, 0.283286e+01_jprb &
39101  &, 0.284261e+01_jprb, 0.285176e+01_jprb, 0.286029e+01_jprb &
39102  &, 0.286816e+01_jprb, 0.287544e+01_jprb, 0.288207e+01_jprb, 0.288809e+01_jprb &
39103  &, 0.289348e+01_jprb, 0.289827e+01_jprb, 0.290245e+01_jprb &
39104  &, 0.290599e+01_jprb, 0.290896e+01_jprb, 0.291129e+01_jprb, 0.291302e+01_jprb &
39105  &, 0.291416e+01_jprb, 0.291470e+01_jprb, 0.291468e+01_jprb &
39106  &, 0.291406e+01_jprb, 0.291285e+01_jprb, 0.291107e+01_jprb, 0.290870e+01_jprb &
39107  &, 0.290580e+01_jprb, 0.290231e+01_jprb, 0.289828e+01_jprb &
39108  &, 0.289371e+01_jprb, 0.288861e+01_jprb, 0.288297e+01_jprb, 0.287677e+01_jprb &
39109  &, 0.287007e+01_jprb, 0.286288e+01_jprb, 0.285516e+01_jprb &
39110  &, 0.284682e+01_jprb, 0.283824e+01_jprb, 0.282904e+01_jprb, 0.281936e+01_jprb &
39111  &, 0.280925e+01_jprb, 0.279862e+01_jprb, 0.278757e+01_jprb &
39112  &, 0.277609e+01_jprb, 0.276414e+01_jprb, 0.275177e+01_jprb, 0.273899e+01_jprb &
39113  &, 0.272578e+01_jprb, 0.271220e+01_jprb, 0.269820e+01_jprb &
39114  &, 0.268380e+01_jprb, 0.266906e+01_jprb, 0.265392e+01_jprb, 0.263840e+01_jprb &
39115  &, 0.262257e+01_jprb, 0.260641e+01_jprb, 0.258989e+01_jprb &
39116  &, 0.257304e+01_jprb, 0.255589e+01_jprb, 0.253840e+01_jprb, 0.252065e+01_jprb &
39117  &, 0.250261e+01_jprb, 0.248426e+01_jprb, 0.246567e+01_jprb &
39118  &, 0.244681e+01_jprb, 0.242771e+01_jprb, 0.240834e+01_jprb, 0.238877e+01_jprb &
39119  &, 0.236892e+01_jprb, 0.234892e+01_jprb, 0.232868e+01_jprb &
39120  &, 0.230823e+01_jprb, 0.228759e+01_jprb, 0.226679e+01_jprb, 0.224584e+01_jprb &
39121  &, 0.222471e+01_jprb, 0.220343e+01_jprb, 0.218195e+01_jprb/)
39122 
39123 IF (lhook) CALL dr_hook('SU_MCICA:PART128',1,zhook_handle)
39124 END SUBROUTINE part128
39125 
39126 #ifdef VPP5000
39127 !OCL SCALAR
39128 #endif
39129 !option! -Nv -NO
39130 #ifdef RS6K
39131 @process nooptimize
39132 #endif
39133 !pgi$r opt=0
39134 SUBROUTINE part129
39135 
39136 REAL(KIND=JPRB) :: ZHOOK_HANDLE
39137 IF (lhook) CALL dr_hook('SU_MCICA:PART129',0,zhook_handle)
39138 
39139 xcw( 897, :) = (/ &
39140  & 0.112821e+01_jprb, 0.116075e+01_jprb, 0.119345e+01_jprb, 0.122629e+01_jprb &
39141  &, 0.125926e+01_jprb, 0.129233e+01_jprb, 0.132549e+01_jprb &
39142  &, 0.135872e+01_jprb, 0.139200e+01_jprb, 0.142532e+01_jprb, 0.145865e+01_jprb &
39143  &, 0.149197e+01_jprb, 0.152528e+01_jprb, 0.155854e+01_jprb &
39144  &, 0.159175e+01_jprb, 0.162488e+01_jprb, 0.165787e+01_jprb, 0.169085e+01_jprb &
39145  &, 0.172364e+01_jprb, 0.175629e+01_jprb, 0.178877e+01_jprb &
39146  &, 0.182107e+01_jprb, 0.185316e+01_jprb, 0.188504e+01_jprb, 0.191668e+01_jprb &
39147  &, 0.194807e+01_jprb, 0.197919e+01_jprb, 0.201002e+01_jprb &
39148  &, 0.204055e+01_jprb, 0.207076e+01_jprb, 0.210064e+01_jprb, 0.213016e+01_jprb &
39149  &, 0.215932e+01_jprb, 0.218810e+01_jprb, 0.221649e+01_jprb &
39150  &, 0.224447e+01_jprb, 0.227202e+01_jprb, 0.229914e+01_jprb, 0.232581e+01_jprb &
39151  &, 0.235203e+01_jprb, 0.237777e+01_jprb, 0.240303e+01_jprb &
39152  &, 0.242779e+01_jprb, 0.245206e+01_jprb, 0.247571e+01_jprb, 0.249902e+01_jprb &
39153  &, 0.252171e+01_jprb, 0.254385e+01_jprb, 0.256544e+01_jprb &
39154  &, 0.258645e+01_jprb, 0.260694e+01_jprb, 0.262684e+01_jprb, 0.264614e+01_jprb &
39155  &, 0.266487e+01_jprb, 0.268301e+01_jprb, 0.270053e+01_jprb &
39156  &, 0.271749e+01_jprb, 0.273382e+01_jprb, 0.274955e+01_jprb, 0.276466e+01_jprb &
39157  &, 0.277915e+01_jprb, 0.279304e+01_jprb, 0.280625e+01_jprb &
39158  &, 0.281891e+01_jprb, 0.283091e+01_jprb, 0.284229e+01_jprb, 0.285304e+01_jprb &
39159  &, 0.286318e+01_jprb, 0.287267e+01_jprb, 0.288151e+01_jprb &
39160  &, 0.288978e+01_jprb, 0.289740e+01_jprb, 0.290441e+01_jprb, 0.291078e+01_jprb &
39161  &, 0.291652e+01_jprb, 0.292157e+01_jprb, 0.292617e+01_jprb &
39162  &, 0.293007e+01_jprb, 0.293334e+01_jprb, 0.293603e+01_jprb, 0.293812e+01_jprb &
39163  &, 0.293960e+01_jprb, 0.294047e+01_jprb, 0.294075e+01_jprb &
39164  &, 0.294046e+01_jprb, 0.293955e+01_jprb, 0.293810e+01_jprb, 0.293606e+01_jprb &
39165  &, 0.293345e+01_jprb, 0.293029e+01_jprb, 0.292659e+01_jprb &
39166  &, 0.292231e+01_jprb, 0.291749e+01_jprb, 0.291214e+01_jprb, 0.290625e+01_jprb &
39167  &, 0.289983e+01_jprb, 0.289292e+01_jprb, 0.288547e+01_jprb &
39168  &, 0.287751e+01_jprb, 0.286909e+01_jprb, 0.286016e+01_jprb, 0.285074e+01_jprb &
39169  &, 0.284085e+01_jprb, 0.283051e+01_jprb, 0.281971e+01_jprb &
39170  &, 0.280843e+01_jprb, 0.279673e+01_jprb, 0.278459e+01_jprb, 0.277204e+01_jprb &
39171  &, 0.275905e+01_jprb, 0.274565e+01_jprb, 0.273187e+01_jprb &
39172  &, 0.271767e+01_jprb, 0.270309e+01_jprb, 0.268815e+01_jprb, 0.267283e+01_jprb &
39173  &, 0.265719e+01_jprb, 0.264116e+01_jprb, 0.262482e+01_jprb &
39174  &, 0.260814e+01_jprb, 0.259110e+01_jprb, 0.257382e+01_jprb, 0.255617e+01_jprb &
39175  &, 0.253828e+01_jprb, 0.252006e+01_jprb, 0.250155e+01_jprb &
39176  &, 0.248282e+01_jprb, 0.246383e+01_jprb, 0.244457e+01_jprb, 0.242504e+01_jprb &
39177  &, 0.240534e+01_jprb, 0.238537e+01_jprb, 0.236522e+01_jprb &
39178  &, 0.234484e+01_jprb, 0.232426e+01_jprb, 0.230351e+01_jprb, 0.228261e+01_jprb &
39179  &, 0.226146e+01_jprb, 0.224021e+01_jprb, 0.221881e+01_jprb/)
39180 xcw( 898, :) = (/ &
39181  & 0.112882e+01_jprb, 0.116152e+01_jprb, 0.119440e+01_jprb, 0.122742e+01_jprb &
39182  &, 0.126057e+01_jprb, 0.129383e+01_jprb, 0.132718e+01_jprb &
39183  &, 0.136061e+01_jprb, 0.139410e+01_jprb, 0.142762e+01_jprb, 0.146117e+01_jprb &
39184  &, 0.149472e+01_jprb, 0.152825e+01_jprb, 0.156174e+01_jprb &
39185  &, 0.159519e+01_jprb, 0.162856e+01_jprb, 0.166184e+01_jprb, 0.169502e+01_jprb &
39186  &, 0.172807e+01_jprb, 0.176098e+01_jprb, 0.179373e+01_jprb &
39187  &, 0.182629e+01_jprb, 0.185866e+01_jprb, 0.189082e+01_jprb, 0.192274e+01_jprb &
39188  &, 0.195442e+01_jprb, 0.198583e+01_jprb, 0.201695e+01_jprb &
39189  &, 0.204778e+01_jprb, 0.207830e+01_jprb, 0.210848e+01_jprb, 0.213831e+01_jprb &
39190  &, 0.216779e+01_jprb, 0.219689e+01_jprb, 0.222559e+01_jprb &
39191  &, 0.225389e+01_jprb, 0.228178e+01_jprb, 0.230923e+01_jprb, 0.233624e+01_jprb &
39192  &, 0.236279e+01_jprb, 0.238887e+01_jprb, 0.241447e+01_jprb &
39193  &, 0.243957e+01_jprb, 0.246418e+01_jprb, 0.248827e+01_jprb, 0.251184e+01_jprb &
39194  &, 0.253488e+01_jprb, 0.255737e+01_jprb, 0.257932e+01_jprb &
39195  &, 0.260071e+01_jprb, 0.262154e+01_jprb, 0.264180e+01_jprb, 0.266146e+01_jprb &
39196  &, 0.268055e+01_jprb, 0.269900e+01_jprb, 0.271696e+01_jprb &
39197  &, 0.273426e+01_jprb, 0.275096e+01_jprb, 0.276704e+01_jprb, 0.278253e+01_jprb &
39198  &, 0.279739e+01_jprb, 0.281163e+01_jprb, 0.282525e+01_jprb &
39199  &, 0.283823e+01_jprb, 0.285061e+01_jprb, 0.286237e+01_jprb, 0.287348e+01_jprb &
39200  &, 0.288396e+01_jprb, 0.289382e+01_jprb, 0.290305e+01_jprb &
39201  &, 0.291167e+01_jprb, 0.291964e+01_jprb, 0.292700e+01_jprb, 0.293371e+01_jprb &
39202  &, 0.293983e+01_jprb, 0.294531e+01_jprb, 0.295018e+01_jprb &
39203  &, 0.295441e+01_jprb, 0.295805e+01_jprb, 0.296108e+01_jprb, 0.296350e+01_jprb &
39204  &, 0.296532e+01_jprb, 0.296653e+01_jprb, 0.296715e+01_jprb &
39205  &, 0.296719e+01_jprb, 0.296662e+01_jprb, 0.296550e+01_jprb, 0.296377e+01_jprb &
39206  &, 0.296149e+01_jprb, 0.295863e+01_jprb, 0.295523e+01_jprb &
39207  &, 0.295128e+01_jprb, 0.294676e+01_jprb, 0.294170e+01_jprb, 0.293610e+01_jprb &
39208  &, 0.293000e+01_jprb, 0.292334e+01_jprb, 0.291621e+01_jprb &
39209  &, 0.290853e+01_jprb, 0.290038e+01_jprb, 0.289172e+01_jprb, 0.288257e+01_jprb &
39210  &, 0.287294e+01_jprb, 0.286283e+01_jprb, 0.285228e+01_jprb &
39211  &, 0.284125e+01_jprb, 0.282980e+01_jprb, 0.281790e+01_jprb, 0.280555e+01_jprb &
39212  &, 0.279279e+01_jprb, 0.277963e+01_jprb, 0.276602e+01_jprb &
39213  &, 0.275204e+01_jprb, 0.273768e+01_jprb, 0.272294e+01_jprb, 0.270782e+01_jprb &
39214  &, 0.269233e+01_jprb, 0.267649e+01_jprb, 0.266029e+01_jprb &
39215  &, 0.264379e+01_jprb, 0.262692e+01_jprb, 0.260975e+01_jprb, 0.259226e+01_jprb &
39216  &, 0.257452e+01_jprb, 0.255646e+01_jprb, 0.253808e+01_jprb &
39217  &, 0.251943e+01_jprb, 0.250057e+01_jprb, 0.248142e+01_jprb, 0.246201e+01_jprb &
39218  &, 0.244235e+01_jprb, 0.242248e+01_jprb, 0.240241e+01_jprb &
39219  &, 0.238211e+01_jprb, 0.236160e+01_jprb, 0.234092e+01_jprb, 0.232001e+01_jprb &
39220  &, 0.229897e+01_jprb, 0.227776e+01_jprb, 0.225640e+01_jprb/)
39221 xcw( 899, :) = (/ &
39222  & 0.112943e+01_jprb, 0.116230e+01_jprb, 0.119535e+01_jprb, 0.122855e+01_jprb &
39223  &, 0.126188e+01_jprb, 0.129533e+01_jprb, 0.132888e+01_jprb &
39224  &, 0.136252e+01_jprb, 0.139621e+01_jprb, 0.142995e+01_jprb, 0.146371e+01_jprb &
39225  &, 0.149748e+01_jprb, 0.153124e+01_jprb, 0.156497e+01_jprb &
39226  &, 0.159865e+01_jprb, 0.163227e+01_jprb, 0.166580e+01_jprb, 0.169923e+01_jprb &
39227  &, 0.173254e+01_jprb, 0.176571e+01_jprb, 0.179873e+01_jprb &
39228  &, 0.183157e+01_jprb, 0.186421e+01_jprb, 0.189665e+01_jprb, 0.192886e+01_jprb &
39229  &, 0.196082e+01_jprb, 0.199253e+01_jprb, 0.202395e+01_jprb &
39230  &, 0.205509e+01_jprb, 0.208590e+01_jprb, 0.211640e+01_jprb, 0.214655e+01_jprb &
39231  &, 0.217634e+01_jprb, 0.220576e+01_jprb, 0.223479e+01_jprb &
39232  &, 0.226342e+01_jprb, 0.229163e+01_jprb, 0.231941e+01_jprb, 0.234676e+01_jprb &
39233  &, 0.237364e+01_jprb, 0.240007e+01_jprb, 0.242602e+01_jprb &
39234  &, 0.245147e+01_jprb, 0.247643e+01_jprb, 0.250087e+01_jprb, 0.252479e+01_jprb &
39235  &, 0.254819e+01_jprb, 0.257104e+01_jprb, 0.259330e+01_jprb &
39236  &, 0.261510e+01_jprb, 0.263629e+01_jprb, 0.265690e+01_jprb, 0.267694e+01_jprb &
39237  &, 0.269640e+01_jprb, 0.271528e+01_jprb, 0.273354e+01_jprb &
39238  &, 0.275121e+01_jprb, 0.276829e+01_jprb, 0.278475e+01_jprb, 0.280059e+01_jprb &
39239  &, 0.281582e+01_jprb, 0.283043e+01_jprb, 0.284443e+01_jprb &
39240  &, 0.285780e+01_jprb, 0.287054e+01_jprb, 0.288265e+01_jprb, 0.289411e+01_jprb &
39241  &, 0.290500e+01_jprb, 0.291523e+01_jprb, 0.292480e+01_jprb &
39242  &, 0.293381e+01_jprb, 0.294214e+01_jprb, 0.294987e+01_jprb, 0.295696e+01_jprb &
39243  &, 0.296342e+01_jprb, 0.296924e+01_jprb, 0.297447e+01_jprb &
39244  &, 0.297907e+01_jprb, 0.298308e+01_jprb, 0.298645e+01_jprb, 0.298920e+01_jprb &
39245  &, 0.299138e+01_jprb, 0.299294e+01_jprb, 0.299390e+01_jprb &
39246  &, 0.299426e+01_jprb, 0.299406e+01_jprb, 0.299326e+01_jprb, 0.299186e+01_jprb &
39247  &, 0.298990e+01_jprb, 0.298737e+01_jprb, 0.298428e+01_jprb &
39248  &, 0.298063e+01_jprb, 0.297642e+01_jprb, 0.297169e+01_jprb, 0.296639e+01_jprb &
39249  &, 0.296058e+01_jprb, 0.295421e+01_jprb, 0.294737e+01_jprb &
39250  &, 0.293998e+01_jprb, 0.293182e+01_jprb, 0.292373e+01_jprb, 0.291485e+01_jprb &
39251  &, 0.290546e+01_jprb, 0.289565e+01_jprb, 0.288533e+01_jprb &
39252  &, 0.287456e+01_jprb, 0.286336e+01_jprb, 0.285167e+01_jprb, 0.283956e+01_jprb &
39253  &, 0.282705e+01_jprb, 0.281412e+01_jprb, 0.280075e+01_jprb &
39254  &, 0.278695e+01_jprb, 0.277281e+01_jprb, 0.275824e+01_jprb, 0.274333e+01_jprb &
39255  &, 0.272804e+01_jprb, 0.271236e+01_jprb, 0.269635e+01_jprb &
39256  &, 0.268004e+01_jprb, 0.266335e+01_jprb, 0.264630e+01_jprb, 0.262898e+01_jprb &
39257  &, 0.261135e+01_jprb, 0.259344e+01_jprb, 0.257516e+01_jprb &
39258  &, 0.255670e+01_jprb, 0.253792e+01_jprb, 0.251884e+01_jprb, 0.249955e+01_jprb &
39259  &, 0.248000e+01_jprb, 0.246023e+01_jprb, 0.244026e+01_jprb &
39260  &, 0.241999e+01_jprb, 0.239957e+01_jprb, 0.237895e+01_jprb, 0.235811e+01_jprb &
39261  &, 0.233713e+01_jprb, 0.231596e+01_jprb, 0.229458e+01_jprb/)
39262 xcw( 900, :) = (/ &
39263  & 0.113004e+01_jprb, 0.116309e+01_jprb, 0.119631e+01_jprb, 0.122969e+01_jprb &
39264  &, 0.126321e+01_jprb, 0.129685e+01_jprb, 0.133060e+01_jprb &
39265  &, 0.136443e+01_jprb, 0.139834e+01_jprb, 0.143229e+01_jprb, 0.146627e+01_jprb &
39266  &, 0.150027e+01_jprb, 0.153426e+01_jprb, 0.156822e+01_jprb &
39267  &, 0.160215e+01_jprb, 0.163601e+01_jprb, 0.166979e+01_jprb, 0.170348e+01_jprb &
39268  &, 0.173705e+01_jprb, 0.177049e+01_jprb, 0.180377e+01_jprb &
39269  &, 0.183689e+01_jprb, 0.186982e+01_jprb, 0.190254e+01_jprb, 0.193503e+01_jprb &
39270  &, 0.196729e+01_jprb, 0.199929e+01_jprb, 0.203102e+01_jprb &
39271  &, 0.206246e+01_jprb, 0.209358e+01_jprb, 0.212439e+01_jprb, 0.215486e+01_jprb &
39272  &, 0.218497e+01_jprb, 0.221471e+01_jprb, 0.224407e+01_jprb &
39273  &, 0.227303e+01_jprb, 0.230158e+01_jprb, 0.232970e+01_jprb, 0.235738e+01_jprb &
39274  &, 0.238462e+01_jprb, 0.241139e+01_jprb, 0.243768e+01_jprb &
39275  &, 0.246348e+01_jprb, 0.248880e+01_jprb, 0.251360e+01_jprb, 0.253788e+01_jprb &
39276  &, 0.256164e+01_jprb, 0.258485e+01_jprb, 0.260753e+01_jprb &
39277  &, 0.262965e+01_jprb, 0.265120e+01_jprb, 0.267219e+01_jprb, 0.269259e+01_jprb &
39278  &, 0.271220e+01_jprb, 0.273167e+01_jprb, 0.275031e+01_jprb &
39279  &, 0.276835e+01_jprb, 0.278580e+01_jprb, 0.280264e+01_jprb, 0.281886e+01_jprb &
39280  &, 0.283448e+01_jprb, 0.284945e+01_jprb, 0.286377e+01_jprb &
39281  &, 0.287757e+01_jprb, 0.289070e+01_jprb, 0.290318e+01_jprb, 0.291505e+01_jprb &
39282  &, 0.292627e+01_jprb, 0.293688e+01_jprb, 0.294685e+01_jprb &
39283  &, 0.295621e+01_jprb, 0.296493e+01_jprb, 0.297299e+01_jprb, 0.298045e+01_jprb &
39284  &, 0.298728e+01_jprb, 0.299350e+01_jprb, 0.299908e+01_jprb &
39285  &, 0.300405e+01_jprb, 0.300836e+01_jprb, 0.301213e+01_jprb, 0.301525e+01_jprb &
39286  &, 0.301776e+01_jprb, 0.301948e+01_jprb, 0.302098e+01_jprb &
39287  &, 0.302169e+01_jprb, 0.302181e+01_jprb, 0.302136e+01_jprb, 0.302031e+01_jprb &
39288  &, 0.301863e+01_jprb, 0.301648e+01_jprb, 0.301370e+01_jprb &
39289  &, 0.301033e+01_jprb, 0.300649e+01_jprb, 0.300207e+01_jprb, 0.299708e+01_jprb &
39290  &, 0.299157e+01_jprb, 0.298553e+01_jprb, 0.297896e+01_jprb &
39291  &, 0.297185e+01_jprb, 0.296428e+01_jprb, 0.295618e+01_jprb, 0.294744e+01_jprb &
39292  &, 0.293847e+01_jprb, 0.292890e+01_jprb, 0.291889e+01_jprb &
39293  &, 0.290831e+01_jprb, 0.289741e+01_jprb, 0.288598e+01_jprb, 0.287413e+01_jprb &
39294  &, 0.286182e+01_jprb, 0.284909e+01_jprb, 0.283596e+01_jprb &
39295  &, 0.282240e+01_jprb, 0.280849e+01_jprb, 0.279415e+01_jprb, 0.277940e+01_jprb &
39296  &, 0.276433e+01_jprb, 0.274885e+01_jprb, 0.273300e+01_jprb &
39297  &, 0.271683e+01_jprb, 0.270033e+01_jprb, 0.268347e+01_jprb, 0.266622e+01_jprb &
39298  &, 0.264881e+01_jprb, 0.263101e+01_jprb, 0.261294e+01_jprb &
39299  &, 0.259457e+01_jprb, 0.257588e+01_jprb, 0.255700e+01_jprb, 0.253777e+01_jprb &
39300  &, 0.251835e+01_jprb, 0.249869e+01_jprb, 0.247877e+01_jprb &
39301  &, 0.245860e+01_jprb, 0.243826e+01_jprb, 0.241773e+01_jprb, 0.239697e+01_jprb &
39302  &, 0.237599e+01_jprb, 0.235488e+01_jprb, 0.233354e+01_jprb/)
39303 xcw( 901, :) = (/ &
39304  & 0.113066e+01_jprb, 0.116388e+01_jprb, 0.119728e+01_jprb, 0.123084e+01_jprb &
39305  &, 0.126455e+01_jprb, 0.129838e+01_jprb, 0.133233e+01_jprb &
39306  &, 0.136637e+01_jprb, 0.140048e+01_jprb, 0.143465e+01_jprb, 0.146886e+01_jprb &
39307  &, 0.150308e+01_jprb, 0.153730e+01_jprb, 0.157151e+01_jprb &
39308  &, 0.160567e+01_jprb, 0.163978e+01_jprb, 0.167382e+01_jprb, 0.170777e+01_jprb &
39309  &, 0.174160e+01_jprb, 0.177530e+01_jprb, 0.180886e+01_jprb &
39310  &, 0.184226e+01_jprb, 0.187547e+01_jprb, 0.190848e+01_jprb, 0.194127e+01_jprb &
39311  &, 0.197382e+01_jprb, 0.200612e+01_jprb, 0.203815e+01_jprb &
39312  &, 0.206990e+01_jprb, 0.210134e+01_jprb, 0.213246e+01_jprb, 0.216325e+01_jprb &
39313  &, 0.219369e+01_jprb, 0.222376e+01_jprb, 0.225345e+01_jprb &
39314  &, 0.228274e+01_jprb, 0.231163e+01_jprb, 0.234009e+01_jprb, 0.236812e+01_jprb &
39315  &, 0.239570e+01_jprb, 0.242282e+01_jprb, 0.244947e+01_jprb &
39316  &, 0.247563e+01_jprb, 0.250130e+01_jprb, 0.252646e+01_jprb, 0.255110e+01_jprb &
39317  &, 0.257523e+01_jprb, 0.259881e+01_jprb, 0.262186e+01_jprb &
39318  &, 0.264434e+01_jprb, 0.266626e+01_jprb, 0.268763e+01_jprb, 0.270842e+01_jprb &
39319  &, 0.272862e+01_jprb, 0.274824e+01_jprb, 0.276727e+01_jprb &
39320  &, 0.278569e+01_jprb, 0.280351e+01_jprb, 0.282073e+01_jprb, 0.283733e+01_jprb &
39321  &, 0.285330e+01_jprb, 0.286869e+01_jprb, 0.288345e+01_jprb &
39322  &, 0.289757e+01_jprb, 0.291108e+01_jprb, 0.292396e+01_jprb, 0.293621e+01_jprb &
39323  &, 0.294781e+01_jprb, 0.295880e+01_jprb, 0.296915e+01_jprb &
39324  &, 0.297888e+01_jprb, 0.298796e+01_jprb, 0.299642e+01_jprb, 0.300426e+01_jprb &
39325  &, 0.301146e+01_jprb, 0.301803e+01_jprb, 0.302399e+01_jprb &
39326  &, 0.302932e+01_jprb, 0.303403e+01_jprb, 0.303814e+01_jprb, 0.304162e+01_jprb &
39327  &, 0.304446e+01_jprb, 0.304677e+01_jprb, 0.304841e+01_jprb &
39328  &, 0.304948e+01_jprb, 0.304996e+01_jprb, 0.304983e+01_jprb, 0.304914e+01_jprb &
39329  &, 0.304784e+01_jprb, 0.304596e+01_jprb, 0.304353e+01_jprb &
39330  &, 0.304054e+01_jprb, 0.303699e+01_jprb, 0.303288e+01_jprb, 0.302820e+01_jprb &
39331  &, 0.302300e+01_jprb, 0.301727e+01_jprb, 0.301099e+01_jprb &
39332  &, 0.300419e+01_jprb, 0.299691e+01_jprb, 0.298908e+01_jprb, 0.298077e+01_jprb &
39333  &, 0.297198e+01_jprb, 0.296269e+01_jprb, 0.295292e+01_jprb &
39334  &, 0.294266e+01_jprb, 0.293195e+01_jprb, 0.292079e+01_jprb, 0.290920e+01_jprb &
39335  &, 0.289707e+01_jprb, 0.288463e+01_jprb, 0.287175e+01_jprb &
39336  &, 0.285843e+01_jprb, 0.284471e+01_jprb, 0.283056e+01_jprb, 0.281604e+01_jprb &
39337  &, 0.280114e+01_jprb, 0.278588e+01_jprb, 0.277023e+01_jprb &
39338  &, 0.275427e+01_jprb, 0.273792e+01_jprb, 0.272125e+01_jprb, 0.270424e+01_jprb &
39339  &, 0.268691e+01_jprb, 0.266928e+01_jprb, 0.265132e+01_jprb &
39340  &, 0.263306e+01_jprb, 0.261457e+01_jprb, 0.259578e+01_jprb, 0.257669e+01_jprb &
39341  &, 0.255734e+01_jprb, 0.253781e+01_jprb, 0.251794e+01_jprb &
39342  &, 0.249793e+01_jprb, 0.247764e+01_jprb, 0.245714e+01_jprb, 0.243646e+01_jprb &
39343  &, 0.241555e+01_jprb, 0.239451e+01_jprb, 0.237323e+01_jprb/)
39344 xcw( 902, :) = (/ &
39345  & 0.113129e+01_jprb, 0.116467e+01_jprb, 0.119825e+01_jprb, 0.123200e+01_jprb &
39346  &, 0.126589e+01_jprb, 0.129993e+01_jprb, 0.133408e+01_jprb &
39347  &, 0.136832e+01_jprb, 0.140265e+01_jprb, 0.143703e+01_jprb, 0.147146e+01_jprb &
39348  &, 0.150591e+01_jprb, 0.154037e+01_jprb, 0.157482e+01_jprb &
39349  &, 0.160923e+01_jprb, 0.164359e+01_jprb, 0.167788e+01_jprb, 0.171209e+01_jprb &
39350  &, 0.174619e+01_jprb, 0.178017e+01_jprb, 0.181400e+01_jprb &
39351  &, 0.184768e+01_jprb, 0.188117e+01_jprb, 0.191447e+01_jprb, 0.194756e+01_jprb &
39352  &, 0.198041e+01_jprb, 0.201302e+01_jprb, 0.204535e+01_jprb &
39353  &, 0.207741e+01_jprb, 0.210917e+01_jprb, 0.214061e+01_jprb, 0.217172e+01_jprb &
39354  &, 0.220249e+01_jprb, 0.223290e+01_jprb, 0.226292e+01_jprb &
39355  &, 0.229256e+01_jprb, 0.232179e+01_jprb, 0.235059e+01_jprb, 0.237897e+01_jprb &
39356  &, 0.240691e+01_jprb, 0.243437e+01_jprb, 0.246138e+01_jprb &
39357  &, 0.248790e+01_jprb, 0.251393e+01_jprb, 0.253946e+01_jprb, 0.256447e+01_jprb &
39358  &, 0.258896e+01_jprb, 0.261292e+01_jprb, 0.263634e+01_jprb &
39359  &, 0.265920e+01_jprb, 0.268150e+01_jprb, 0.270324e+01_jprb, 0.272441e+01_jprb &
39360  &, 0.274500e+01_jprb, 0.276500e+01_jprb, 0.278441e+01_jprb &
39361  &, 0.280322e+01_jprb, 0.282143e+01_jprb, 0.283903e+01_jprb, 0.285602e+01_jprb &
39362  &, 0.287240e+01_jprb, 0.288817e+01_jprb, 0.290330e+01_jprb &
39363  &, 0.291781e+01_jprb, 0.293171e+01_jprb, 0.294496e+01_jprb, 0.295759e+01_jprb &
39364  &, 0.296960e+01_jprb, 0.298098e+01_jprb, 0.299170e+01_jprb &
39365  &, 0.300182e+01_jprb, 0.301128e+01_jprb, 0.302014e+01_jprb, 0.302835e+01_jprb &
39366  &, 0.303592e+01_jprb, 0.304290e+01_jprb, 0.304922e+01_jprb &
39367  &, 0.305493e+01_jprb, 0.306001e+01_jprb, 0.306448e+01_jprb, 0.306829e+01_jprb &
39368  &, 0.307157e+01_jprb, 0.307420e+01_jprb, 0.307623e+01_jprb &
39369  &, 0.307764e+01_jprb, 0.307848e+01_jprb, 0.307871e+01_jprb, 0.307832e+01_jprb &
39370  &, 0.307739e+01_jprb, 0.307586e+01_jprb, 0.307376e+01_jprb &
39371  &, 0.307110e+01_jprb, 0.306787e+01_jprb, 0.306408e+01_jprb, 0.305975e+01_jprb &
39372  &, 0.305487e+01_jprb, 0.304946e+01_jprb, 0.304349e+01_jprb &
39373  &, 0.303700e+01_jprb, 0.302999e+01_jprb, 0.302249e+01_jprb, 0.301448e+01_jprb &
39374  &, 0.300595e+01_jprb, 0.299696e+01_jprb, 0.298743e+01_jprb &
39375  &, 0.297749e+01_jprb, 0.296702e+01_jprb, 0.295614e+01_jprb, 0.294478e+01_jprb &
39376  &, 0.293300e+01_jprb, 0.292074e+01_jprb, 0.290806e+01_jprb &
39377  &, 0.289500e+01_jprb, 0.288148e+01_jprb, 0.286757e+01_jprb, 0.285329e+01_jprb &
39378  &, 0.283857e+01_jprb, 0.282354e+01_jprb, 0.280806e+01_jprb &
39379  &, 0.279226e+01_jprb, 0.277612e+01_jprb, 0.275960e+01_jprb, 0.274278e+01_jprb &
39380  &, 0.272564e+01_jprb, 0.270813e+01_jprb, 0.269035e+01_jprb &
39381  &, 0.267226e+01_jprb, 0.265388e+01_jprb, 0.263433e+01_jprb, 0.261624e+01_jprb &
39382  &, 0.259703e+01_jprb, 0.257757e+01_jprb, 0.255788e+01_jprb &
39383  &, 0.253794e+01_jprb, 0.251775e+01_jprb, 0.249735e+01_jprb, 0.247670e+01_jprb &
39384  &, 0.245588e+01_jprb, 0.243466e+01_jprb, 0.241345e+01_jprb/)
39385 xcw( 903, :) = (/ &
39386  & 0.113192e+01_jprb, 0.116548e+01_jprb, 0.119923e+01_jprb, 0.123316e+01_jprb &
39387  &, 0.126725e+01_jprb, 0.130148e+01_jprb, 0.133583e+01_jprb &
39388  &, 0.137029e+01_jprb, 0.140483e+01_jprb, 0.143944e+01_jprb, 0.147409e+01_jprb &
39389  &, 0.150877e+01_jprb, 0.154347e+01_jprb, 0.157816e+01_jprb &
39390  &, 0.161282e+01_jprb, 0.164743e+01_jprb, 0.168198e+01_jprb, 0.171645e+01_jprb &
39391  &, 0.175083e+01_jprb, 0.178508e+01_jprb, 0.181919e+01_jprb &
39392  &, 0.185314e+01_jprb, 0.188693e+01_jprb, 0.192052e+01_jprb, 0.195391e+01_jprb &
39393  &, 0.198706e+01_jprb, 0.201998e+01_jprb, 0.205263e+01_jprb &
39394  &, 0.208500e+01_jprb, 0.211708e+01_jprb, 0.214884e+01_jprb, 0.218029e+01_jprb &
39395  &, 0.221138e+01_jprb, 0.224212e+01_jprb, 0.227249e+01_jprb &
39396  &, 0.230246e+01_jprb, 0.233204e+01_jprb, 0.236119e+01_jprb, 0.238993e+01_jprb &
39397  &, 0.241821e+01_jprb, 0.244605e+01_jprb, 0.247342e+01_jprb &
39398  &, 0.250031e+01_jprb, 0.252670e+01_jprb, 0.255260e+01_jprb, 0.257798e+01_jprb &
39399  &, 0.260285e+01_jprb, 0.262718e+01_jprb, 0.265097e+01_jprb &
39400  &, 0.267422e+01_jprb, 0.269691e+01_jprb, 0.271904e+01_jprb, 0.274058e+01_jprb &
39401  &, 0.276156e+01_jprb, 0.278195e+01_jprb, 0.280175e+01_jprb &
39402  &, 0.282095e+01_jprb, 0.283956e+01_jprb, 0.285754e+01_jprb, 0.287494e+01_jprb &
39403  &, 0.289170e+01_jprb, 0.290785e+01_jprb, 0.292339e+01_jprb &
39404  &, 0.293829e+01_jprb, 0.295258e+01_jprb, 0.296623e+01_jprb, 0.297927e+01_jprb &
39405  &, 0.299165e+01_jprb, 0.300342e+01_jprb, 0.301454e+01_jprb &
39406  &, 0.302504e+01_jprb, 0.303490e+01_jprb, 0.304412e+01_jprb, 0.305274e+01_jprb &
39407  &, 0.306070e+01_jprb, 0.306804e+01_jprb, 0.307475e+01_jprb &
39408  &, 0.308086e+01_jprb, 0.308630e+01_jprb, 0.309117e+01_jprb, 0.309538e+01_jprb &
39409  &, 0.309900e+01_jprb, 0.310200e+01_jprb, 0.310438e+01_jprb &
39410  &, 0.310618e+01_jprb, 0.310736e+01_jprb, 0.310794e+01_jprb, 0.310795e+01_jprb &
39411  &, 0.310735e+01_jprb, 0.310613e+01_jprb, 0.310443e+01_jprb &
39412  &, 0.310210e+01_jprb, 0.309920e+01_jprb, 0.309574e+01_jprb, 0.309174e+01_jprb &
39413  &, 0.308718e+01_jprb, 0.308209e+01_jprb, 0.307645e+01_jprb &
39414  &, 0.307027e+01_jprb, 0.306357e+01_jprb, 0.305638e+01_jprb, 0.304865e+01_jprb &
39415  &, 0.304042e+01_jprb, 0.303172e+01_jprb, 0.302250e+01_jprb &
39416  &, 0.301281e+01_jprb, 0.300263e+01_jprb, 0.299203e+01_jprb, 0.298090e+01_jprb &
39417  &, 0.296935e+01_jprb, 0.295736e+01_jprb, 0.294496e+01_jprb &
39418  &, 0.293211e+01_jprb, 0.291884e+01_jprb, 0.290518e+01_jprb, 0.289110e+01_jprb &
39419  &, 0.287663e+01_jprb, 0.286177e+01_jprb, 0.284653e+01_jprb &
39420  &, 0.283095e+01_jprb, 0.281497e+01_jprb, 0.279866e+01_jprb, 0.278200e+01_jprb &
39421  &, 0.276500e+01_jprb, 0.274769e+01_jprb, 0.273004e+01_jprb &
39422  &, 0.271212e+01_jprb, 0.269386e+01_jprb, 0.267532e+01_jprb, 0.265654e+01_jprb &
39423  &, 0.263742e+01_jprb, 0.261810e+01_jprb, 0.259849e+01_jprb &
39424  &, 0.257867e+01_jprb, 0.255854e+01_jprb, 0.253826e+01_jprb, 0.251771e+01_jprb &
39425  &, 0.249698e+01_jprb, 0.247604e+01_jprb, 0.245491e+01_jprb/)
39426 
39427 IF (lhook) CALL dr_hook('SU_MCICA:PART129',1,zhook_handle)
39428 END SUBROUTINE part129
39429 
39430 #ifdef VPP5000
39431 !OCL SCALAR
39432 #endif
39433 !option! -Nv -NO
39434 #ifdef RS6K
39435 @process nooptimize
39436 #endif
39437 !pgi$r opt=0
39438 SUBROUTINE part130
39439 
39440 REAL(KIND=JPRB) :: ZHOOK_HANDLE
39441 IF (lhook) CALL dr_hook('SU_MCICA:PART130',0,zhook_handle)
39442 
39443 xcw( 904, :) = (/ &
39444  & 0.113255e+01_jprb, 0.116629e+01_jprb, 0.120022e+01_jprb, 0.123434e+01_jprb &
39445  &, 0.126862e+01_jprb, 0.130305e+01_jprb, 0.133761e+01_jprb &
39446  &, 0.137227e+01_jprb, 0.140703e+01_jprb, 0.144186e+01_jprb, 0.147674e+01_jprb &
39447  &, 0.151166e+01_jprb, 0.154659e+01_jprb, 0.158153e+01_jprb &
39448  &, 0.161644e+01_jprb, 0.165131e+01_jprb, 0.168612e+01_jprb, 0.172086e+01_jprb &
39449  &, 0.175550e+01_jprb, 0.179003e+01_jprb, 0.182442e+01_jprb &
39450  &, 0.185867e+01_jprb, 0.189274e+01_jprb, 0.192663e+01_jprb, 0.196032e+01_jprb &
39451  &, 0.199378e+01_jprb, 0.202700e+01_jprb, 0.205997e+01_jprb &
39452  &, 0.209266e+01_jprb, 0.212507e+01_jprb, 0.215716e+01_jprb, 0.218893e+01_jprb &
39453  &, 0.222036e+01_jprb, 0.225144e+01_jprb, 0.228215e+01_jprb &
39454  &, 0.231248e+01_jprb, 0.234240e+01_jprb, 0.237191e+01_jprb, 0.240100e+01_jprb &
39455  &, 0.242965e+01_jprb, 0.245785e+01_jprb, 0.248559e+01_jprb &
39456  &, 0.251284e+01_jprb, 0.253961e+01_jprb, 0.256588e+01_jprb, 0.259165e+01_jprb &
39457  &, 0.261688e+01_jprb, 0.264159e+01_jprb, 0.266578e+01_jprb &
39458  &, 0.268941e+01_jprb, 0.271248e+01_jprb, 0.273500e+01_jprb, 0.275694e+01_jprb &
39459  &, 0.277831e+01_jprb, 0.279910e+01_jprb, 0.281928e+01_jprb &
39460  &, 0.283888e+01_jprb, 0.285789e+01_jprb, 0.287628e+01_jprb, 0.289406e+01_jprb &
39461  &, 0.291122e+01_jprb, 0.292778e+01_jprb, 0.294371e+01_jprb &
39462  &, 0.295902e+01_jprb, 0.297370e+01_jprb, 0.298775e+01_jprb, 0.300118e+01_jprb &
39463  &, 0.301397e+01_jprb, 0.302614e+01_jprb, 0.303765e+01_jprb &
39464  &, 0.304855e+01_jprb, 0.305881e+01_jprb, 0.306844e+01_jprb, 0.307601e+01_jprb &
39465  &, 0.308580e+01_jprb, 0.309353e+01_jprb, 0.310064e+01_jprb &
39466  &, 0.310710e+01_jprb, 0.311295e+01_jprb, 0.311819e+01_jprb, 0.312277e+01_jprb &
39467  &, 0.312678e+01_jprb, 0.313015e+01_jprb, 0.313291e+01_jprb &
39468  &, 0.313509e+01_jprb, 0.313664e+01_jprb, 0.313760e+01_jprb, 0.313795e+01_jprb &
39469  &, 0.313770e+01_jprb, 0.313689e+01_jprb, 0.313550e+01_jprb &
39470  &, 0.313351e+01_jprb, 0.313098e+01_jprb, 0.312786e+01_jprb, 0.312419e+01_jprb &
39471  &, 0.311997e+01_jprb, 0.311517e+01_jprb, 0.310989e+01_jprb &
39472  &, 0.310404e+01_jprb, 0.309767e+01_jprb, 0.309076e+01_jprb, 0.308334e+01_jprb &
39473  &, 0.307542e+01_jprb, 0.306699e+01_jprb, 0.305807e+01_jprb &
39474  &, 0.304868e+01_jprb, 0.303880e+01_jprb, 0.302845e+01_jprb, 0.301762e+01_jprb &
39475  &, 0.300635e+01_jprb, 0.299460e+01_jprb, 0.298247e+01_jprb &
39476  &, 0.296985e+01_jprb, 0.295684e+01_jprb, 0.294340e+01_jprb, 0.292952e+01_jprb &
39477  &, 0.291530e+01_jprb, 0.290064e+01_jprb, 0.288563e+01_jprb &
39478  &, 0.287024e+01_jprb, 0.285449e+01_jprb, 0.283835e+01_jprb, 0.282189e+01_jprb &
39479  &, 0.280505e+01_jprb, 0.278794e+01_jprb, 0.277043e+01_jprb &
39480  &, 0.275264e+01_jprb, 0.273456e+01_jprb, 0.271620e+01_jprb, 0.269753e+01_jprb &
39481  &, 0.267857e+01_jprb, 0.265934e+01_jprb, 0.263987e+01_jprb &
39482  &, 0.262013e+01_jprb, 0.260013e+01_jprb, 0.257990e+01_jprb, 0.255947e+01_jprb &
39483  &, 0.253879e+01_jprb, 0.251794e+01_jprb, 0.249677e+01_jprb/)
39484 xcw( 905, :) = (/ &
39485  & 0.113320e+01_jprb, 0.116710e+01_jprb, 0.120122e+01_jprb, 0.123553e+01_jprb &
39486  &, 0.127000e+01_jprb, 0.130463e+01_jprb, 0.133940e+01_jprb &
39487  &, 0.137428e+01_jprb, 0.140925e+01_jprb, 0.144430e+01_jprb, 0.147942e+01_jprb &
39488  &, 0.151457e+01_jprb, 0.154975e+01_jprb, 0.158493e+01_jprb &
39489  &, 0.162009e+01_jprb, 0.165522e+01_jprb, 0.169030e+01_jprb, 0.172530e+01_jprb &
39490  &, 0.176022e+01_jprb, 0.179503e+01_jprb, 0.182971e+01_jprb &
39491  &, 0.186425e+01_jprb, 0.189862e+01_jprb, 0.193280e+01_jprb, 0.196679e+01_jprb &
39492  &, 0.200057e+01_jprb, 0.203411e+01_jprb, 0.206739e+01_jprb &
39493  &, 0.210040e+01_jprb, 0.213313e+01_jprb, 0.216556e+01_jprb, 0.219767e+01_jprb &
39494  &, 0.222944e+01_jprb, 0.226086e+01_jprb, 0.229192e+01_jprb &
39495  &, 0.232259e+01_jprb, 0.235287e+01_jprb, 0.238275e+01_jprb, 0.241219e+01_jprb &
39496  &, 0.244121e+01_jprb, 0.246977e+01_jprb, 0.249788e+01_jprb &
39497  &, 0.252551e+01_jprb, 0.255265e+01_jprb, 0.257931e+01_jprb, 0.260545e+01_jprb &
39498  &, 0.263108e+01_jprb, 0.265618e+01_jprb, 0.268074e+01_jprb &
39499  &, 0.270477e+01_jprb, 0.272824e+01_jprb, 0.275114e+01_jprb, 0.277348e+01_jprb &
39500  &, 0.279525e+01_jprb, 0.281644e+01_jprb, 0.283703e+01_jprb &
39501  &, 0.285703e+01_jprb, 0.287643e+01_jprb, 0.289522e+01_jprb, 0.291341e+01_jprb &
39502  &, 0.293098e+01_jprb, 0.294794e+01_jprb, 0.296428e+01_jprb &
39503  &, 0.297999e+01_jprb, 0.299507e+01_jprb, 0.300951e+01_jprb, 0.302338e+01_jprb &
39504  &, 0.303657e+01_jprb, 0.304913e+01_jprb, 0.306107e+01_jprb &
39505  &, 0.307236e+01_jprb, 0.308303e+01_jprb, 0.309306e+01_jprb, 0.310244e+01_jprb &
39506  &, 0.311113e+01_jprb, 0.311933e+01_jprb, 0.312684e+01_jprb &
39507  &, 0.313371e+01_jprb, 0.313994e+01_jprb, 0.314556e+01_jprb, 0.315056e+01_jprb &
39508  &, 0.315494e+01_jprb, 0.315870e+01_jprb, 0.316184e+01_jprb &
39509  &, 0.316438e+01_jprb, 0.316630e+01_jprb, 0.316763e+01_jprb, 0.316834e+01_jprb &
39510  &, 0.316851e+01_jprb, 0.316804e+01_jprb, 0.316700e+01_jprb &
39511  &, 0.316537e+01_jprb, 0.316318e+01_jprb, 0.316040e+01_jprb, 0.315708e+01_jprb &
39512  &, 0.315320e+01_jprb, 0.314878e+01_jprb, 0.314380e+01_jprb &
39513  &, 0.313827e+01_jprb, 0.313223e+01_jprb, 0.312565e+01_jprb, 0.311856e+01_jprb &
39514  &, 0.311092e+01_jprb, 0.310281e+01_jprb, 0.309420e+01_jprb &
39515  &, 0.308508e+01_jprb, 0.307551e+01_jprb, 0.306542e+01_jprb, 0.305488e+01_jprb &
39516  &, 0.304387e+01_jprb, 0.303240e+01_jprb, 0.302051e+01_jprb &
39517  &, 0.300816e+01_jprb, 0.299539e+01_jprb, 0.298221e+01_jprb, 0.296860e+01_jprb &
39518  &, 0.295459e+01_jprb, 0.294019e+01_jprb, 0.292537e+01_jprb &
39519  &, 0.291017e+01_jprb, 0.289460e+01_jprb, 0.287869e+01_jprb, 0.286241e+01_jprb &
39520  &, 0.284579e+01_jprb, 0.282883e+01_jprb, 0.281153e+01_jprb &
39521  &, 0.279394e+01_jprb, 0.277599e+01_jprb, 0.275776e+01_jprb, 0.273926e+01_jprb &
39522  &, 0.272041e+01_jprb, 0.270135e+01_jprb, 0.268198e+01_jprb &
39523  &, 0.266238e+01_jprb, 0.264246e+01_jprb, 0.262236e+01_jprb, 0.260205e+01_jprb &
39524  &, 0.258142e+01_jprb, 0.256069e+01_jprb, 0.253968e+01_jprb/)
39525 xcw( 906, :) = (/ &
39526  & 0.113384e+01_jprb, 0.116793e+01_jprb, 0.120223e+01_jprb, 0.123672e+01_jprb &
39527  &, 0.127140e+01_jprb, 0.130623e+01_jprb, 0.134120e+01_jprb &
39528  &, 0.137629e+01_jprb, 0.141149e+01_jprb, 0.144677e+01_jprb, 0.148212e+01_jprb &
39529  &, 0.151751e+01_jprb, 0.155293e+01_jprb, 0.158836e+01_jprb &
39530  &, 0.162378e+01_jprb, 0.165917e+01_jprb, 0.169451e+01_jprb, 0.172979e+01_jprb &
39531  &, 0.176499e+01_jprb, 0.180008e+01_jprb, 0.183504e+01_jprb &
39532  &, 0.186987e+01_jprb, 0.190454e+01_jprb, 0.193903e+01_jprb, 0.197333e+01_jprb &
39533  &, 0.200742e+01_jprb, 0.204127e+01_jprb, 0.207488e+01_jprb &
39534  &, 0.210822e+01_jprb, 0.214128e+01_jprb, 0.217404e+01_jprb, 0.220649e+01_jprb &
39535  &, 0.223861e+01_jprb, 0.227038e+01_jprb, 0.230178e+01_jprb &
39536  &, 0.233281e+01_jprb, 0.236345e+01_jprb, 0.239369e+01_jprb, 0.242350e+01_jprb &
39537  &, 0.245288e+01_jprb, 0.248183e+01_jprb, 0.251030e+01_jprb &
39538  &, 0.253832e+01_jprb, 0.256585e+01_jprb, 0.259288e+01_jprb, 0.261940e+01_jprb &
39539  &, 0.264542e+01_jprb, 0.267092e+01_jprb, 0.269588e+01_jprb &
39540  &, 0.272030e+01_jprb, 0.274416e+01_jprb, 0.276747e+01_jprb, 0.279020e+01_jprb &
39541  &, 0.281239e+01_jprb, 0.283397e+01_jprb, 0.285497e+01_jprb &
39542  &, 0.287538e+01_jprb, 0.289519e+01_jprb, 0.291439e+01_jprb, 0.293300e+01_jprb &
39543  &, 0.295098e+01_jprb, 0.296835e+01_jprb, 0.298509e+01_jprb &
39544  &, 0.300123e+01_jprb, 0.301672e+01_jprb, 0.303160e+01_jprb, 0.304583e+01_jprb &
39545  &, 0.305945e+01_jprb, 0.307242e+01_jprb, 0.308475e+01_jprb &
39546  &, 0.309646e+01_jprb, 0.310753e+01_jprb, 0.311799e+01_jprb, 0.312778e+01_jprb &
39547  &, 0.313693e+01_jprb, 0.314548e+01_jprb, 0.315338e+01_jprb &
39548  &, 0.315988e+01_jprb, 0.316730e+01_jprb, 0.317331e+01_jprb, 0.317870e+01_jprb &
39549  &, 0.318345e+01_jprb, 0.318763e+01_jprb, 0.319114e+01_jprb &
39550  &, 0.319407e+01_jprb, 0.319637e+01_jprb, 0.319810e+01_jprb, 0.319920e+01_jprb &
39551  &, 0.319970e+01_jprb, 0.319963e+01_jprb, 0.319894e+01_jprb &
39552  &, 0.319770e+01_jprb, 0.319587e+01_jprb, 0.319344e+01_jprb, 0.319047e+01_jprb &
39553  &, 0.318694e+01_jprb, 0.318286e+01_jprb, 0.317823e+01_jprb &
39554  &, 0.317301e+01_jprb, 0.316731e+01_jprb, 0.316106e+01_jprb, 0.315422e+01_jprb &
39555  &, 0.314700e+01_jprb, 0.313917e+01_jprb, 0.313085e+01_jprb &
39556  &, 0.312205e+01_jprb, 0.311274e+01_jprb, 0.310301e+01_jprb, 0.309273e+01_jprb &
39557  &, 0.308202e+01_jprb, 0.307081e+01_jprb, 0.305921e+01_jprb &
39558  &, 0.304711e+01_jprb, 0.303462e+01_jprb, 0.302168e+01_jprb, 0.300830e+01_jprb &
39559  &, 0.299378e+01_jprb, 0.298031e+01_jprb, 0.296575e+01_jprb &
39560  &, 0.295080e+01_jprb, 0.293548e+01_jprb, 0.291976e+01_jprb, 0.290366e+01_jprb &
39561  &, 0.288726e+01_jprb, 0.287048e+01_jprb, 0.285333e+01_jprb &
39562  &, 0.283590e+01_jprb, 0.281815e+01_jprb, 0.280011e+01_jprb, 0.278169e+01_jprb &
39563  &, 0.276302e+01_jprb, 0.274412e+01_jprb, 0.272486e+01_jprb &
39564  &, 0.270536e+01_jprb, 0.268559e+01_jprb, 0.266564e+01_jprb, 0.264539e+01_jprb &
39565  &, 0.262489e+01_jprb, 0.260421e+01_jprb, 0.258325e+01_jprb/)
39566 xcw( 907, :) = (/ &
39567  & 0.113449e+01_jprb, 0.116876e+01_jprb, 0.120324e+01_jprb, 0.123793e+01_jprb &
39568  &, 0.127280e+01_jprb, 0.130784e+01_jprb, 0.134302e+01_jprb &
39569  &, 0.137833e+01_jprb, 0.141375e+01_jprb, 0.144926e+01_jprb, 0.148484e+01_jprb &
39570  &, 0.152047e+01_jprb, 0.155614e+01_jprb, 0.159182e+01_jprb &
39571  &, 0.162750e+01_jprb, 0.166316e+01_jprb, 0.169877e+01_jprb, 0.173432e+01_jprb &
39572  &, 0.176980e+01_jprb, 0.180517e+01_jprb, 0.184043e+01_jprb &
39573  &, 0.187556e+01_jprb, 0.191053e+01_jprb, 0.194533e+01_jprb, 0.197994e+01_jprb &
39574  &, 0.201434e+01_jprb, 0.204851e+01_jprb, 0.208245e+01_jprb &
39575  &, 0.211612e+01_jprb, 0.214952e+01_jprb, 0.218262e+01_jprb, 0.221541e+01_jprb &
39576  &, 0.224787e+01_jprb, 0.228000e+01_jprb, 0.231176e+01_jprb &
39577  &, 0.234315e+01_jprb, 0.237415e+01_jprb, 0.240476e+01_jprb, 0.243494e+01_jprb &
39578  &, 0.246469e+01_jprb, 0.249401e+01_jprb, 0.252287e+01_jprb &
39579  &, 0.255126e+01_jprb, 0.257918e+01_jprb, 0.260660e+01_jprb, 0.263352e+01_jprb &
39580  &, 0.265994e+01_jprb, 0.268583e+01_jprb, 0.271118e+01_jprb &
39581  &, 0.273601e+01_jprb, 0.276029e+01_jprb, 0.278400e+01_jprb, 0.280715e+01_jprb &
39582  &, 0.282972e+01_jprb, 0.285172e+01_jprb, 0.287313e+01_jprb &
39583  &, 0.289396e+01_jprb, 0.291418e+01_jprb, 0.293380e+01_jprb, 0.295282e+01_jprb &
39584  &, 0.297121e+01_jprb, 0.298899e+01_jprb, 0.300616e+01_jprb &
39585  &, 0.302271e+01_jprb, 0.303863e+01_jprb, 0.305391e+01_jprb, 0.306857e+01_jprb &
39586  &, 0.308261e+01_jprb, 0.309600e+01_jprb, 0.310877e+01_jprb &
39587  &, 0.312088e+01_jprb, 0.313236e+01_jprb, 0.314322e+01_jprb, 0.315345e+01_jprb &
39588  &, 0.316302e+01_jprb, 0.317196e+01_jprb, 0.318027e+01_jprb &
39589  &, 0.318795e+01_jprb, 0.319501e+01_jprb, 0.320142e+01_jprb, 0.320721e+01_jprb &
39590  &, 0.321238e+01_jprb, 0.321693e+01_jprb, 0.322084e+01_jprb &
39591  &, 0.322417e+01_jprb, 0.322688e+01_jprb, 0.322897e+01_jprb, 0.323045e+01_jprb &
39592  &, 0.323134e+01_jprb, 0.323164e+01_jprb, 0.323135e+01_jprb &
39593  &, 0.323047e+01_jprb, 0.322900e+01_jprb, 0.322694e+01_jprb, 0.322433e+01_jprb &
39594  &, 0.322116e+01_jprb, 0.321743e+01_jprb, 0.321315e+01_jprb &
39595  &, 0.320829e+01_jprb, 0.320293e+01_jprb, 0.319699e+01_jprb, 0.319057e+01_jprb &
39596  &, 0.318357e+01_jprb, 0.317612e+01_jprb, 0.316812e+01_jprb &
39597  &, 0.315961e+01_jprb, 0.315063e+01_jprb, 0.314113e+01_jprb, 0.313117e+01_jprb &
39598  &, 0.312073e+01_jprb, 0.310983e+01_jprb, 0.309849e+01_jprb &
39599  &, 0.308669e+01_jprb, 0.307445e+01_jprb, 0.306174e+01_jprb, 0.304864e+01_jprb &
39600  &, 0.303513e+01_jprb, 0.302116e+01_jprb, 0.300682e+01_jprb &
39601  &, 0.299209e+01_jprb, 0.297697e+01_jprb, 0.296150e+01_jprb, 0.294564e+01_jprb &
39602  &, 0.292937e+01_jprb, 0.291282e+01_jprb, 0.289590e+01_jprb &
39603  &, 0.287863e+01_jprb, 0.286103e+01_jprb, 0.284314e+01_jprb, 0.282486e+01_jprb &
39604  &, 0.280644e+01_jprb, 0.278761e+01_jprb, 0.276852e+01_jprb &
39605  &, 0.274919e+01_jprb, 0.272958e+01_jprb, 0.270965e+01_jprb, 0.268956e+01_jprb &
39606  &, 0.266906e+01_jprb, 0.264858e+01_jprb, 0.262773e+01_jprb/)
39607 xcw( 908, :) = (/ &
39608  & 0.113515e+01_jprb, 0.116960e+01_jprb, 0.120427e+01_jprb, 0.123915e+01_jprb &
39609  &, 0.127422e+01_jprb, 0.130946e+01_jprb, 0.134486e+01_jprb &
39610  &, 0.138039e+01_jprb, 0.141603e+01_jprb, 0.145177e+01_jprb, 0.148759e+01_jprb &
39611  &, 0.152346e+01_jprb, 0.155938e+01_jprb, 0.159532e+01_jprb &
39612  &, 0.163126e+01_jprb, 0.166718e+01_jprb, 0.170307e+01_jprb, 0.173890e+01_jprb &
39613  &, 0.177466e+01_jprb, 0.181032e+01_jprb, 0.184587e+01_jprb &
39614  &, 0.188130e+01_jprb, 0.191657e+01_jprb, 0.195168e+01_jprb, 0.198661e+01_jprb &
39615  &, 0.202133e+01_jprb, 0.205583e+01_jprb, 0.209010e+01_jprb &
39616  &, 0.212410e+01_jprb, 0.215784e+01_jprb, 0.219128e+01_jprb, 0.222442e+01_jprb &
39617  &, 0.225723e+01_jprb, 0.228971e+01_jprb, 0.232184e+01_jprb &
39618  &, 0.235359e+01_jprb, 0.238497e+01_jprb, 0.241593e+01_jprb, 0.244650e+01_jprb &
39619  &, 0.247663e+01_jprb, 0.250633e+01_jprb, 0.253557e+01_jprb &
39620  &, 0.256436e+01_jprb, 0.259267e+01_jprb, 0.262049e+01_jprb, 0.264781e+01_jprb &
39621  &, 0.267461e+01_jprb, 0.270091e+01_jprb, 0.272668e+01_jprb &
39622  &, 0.275190e+01_jprb, 0.277658e+01_jprb, 0.280071e+01_jprb, 0.282427e+01_jprb &
39623  &, 0.284726e+01_jprb, 0.286968e+01_jprb, 0.289151e+01_jprb &
39624  &, 0.291274e+01_jprb, 0.293339e+01_jprb, 0.295343e+01_jprb, 0.297286e+01_jprb &
39625  &, 0.299169e+01_jprb, 0.300991e+01_jprb, 0.302749e+01_jprb &
39626  &, 0.304447e+01_jprb, 0.306081e+01_jprb, 0.307652e+01_jprb, 0.309160e+01_jprb &
39627  &, 0.310606e+01_jprb, 0.311987e+01_jprb, 0.313305e+01_jprb &
39628  &, 0.314562e+01_jprb, 0.315751e+01_jprb, 0.316879e+01_jprb, 0.317943e+01_jprb &
39629  &, 0.318942e+01_jprb, 0.319878e+01_jprb, 0.320753e+01_jprb &
39630  &, 0.321563e+01_jprb, 0.322309e+01_jprb, 0.322991e+01_jprb, 0.323610e+01_jprb &
39631  &, 0.324168e+01_jprb, 0.324664e+01_jprb, 0.325098e+01_jprb &
39632  &, 0.325469e+01_jprb, 0.325780e+01_jprb, 0.326028e+01_jprb, 0.326216e+01_jprb &
39633  &, 0.326343e+01_jprb, 0.326414e+01_jprb, 0.326419e+01_jprb &
39634  &, 0.326372e+01_jprb, 0.326262e+01_jprb, 0.326093e+01_jprb, 0.325869e+01_jprb &
39635  &, 0.325588e+01_jprb, 0.325252e+01_jprb, 0.324857e+01_jprb &
39636  &, 0.324410e+01_jprb, 0.323906e+01_jprb, 0.323348e+01_jprb, 0.322737e+01_jprb &
39637  &, 0.322075e+01_jprb, 0.321357e+01_jprb, 0.320592e+01_jprb &
39638  &, 0.319774e+01_jprb, 0.318905e+01_jprb, 0.317988e+01_jprb, 0.317025e+01_jprb &
39639  &, 0.316009e+01_jprb, 0.314950e+01_jprb, 0.313843e+01_jprb &
39640  &, 0.312689e+01_jprb, 0.311491e+01_jprb, 0.310250e+01_jprb, 0.308965e+01_jprb &
39641  &, 0.307642e+01_jprb, 0.306269e+01_jprb, 0.304863e+01_jprb &
39642  &, 0.303411e+01_jprb, 0.301921e+01_jprb, 0.300395e+01_jprb, 0.298830e+01_jprb &
39643  &, 0.297228e+01_jprb, 0.295591e+01_jprb, 0.293922e+01_jprb &
39644  &, 0.292213e+01_jprb, 0.290386e+01_jprb, 0.288702e+01_jprb, 0.286895e+01_jprb &
39645  &, 0.285061e+01_jprb, 0.283198e+01_jprb, 0.281302e+01_jprb &
39646  &, 0.279381e+01_jprb, 0.277431e+01_jprb, 0.275455e+01_jprb, 0.273454e+01_jprb &
39647  &, 0.271426e+01_jprb, 0.269378e+01_jprb, 0.267307e+01_jprb/)
39648 xcw( 909, :) = (/ &
39649  & 0.113581e+01_jprb, 0.117044e+01_jprb, 0.120530e+01_jprb, 0.124038e+01_jprb &
39650  &, 0.127565e+01_jprb, 0.131110e+01_jprb, 0.134671e+01_jprb &
39651  &, 0.138246e+01_jprb, 0.141833e+01_jprb, 0.145430e+01_jprb, 0.149036e+01_jprb &
39652  &, 0.152648e+01_jprb, 0.156265e+01_jprb, 0.159885e+01_jprb &
39653  &, 0.163505e+01_jprb, 0.167124e+01_jprb, 0.170740e+01_jprb, 0.174352e+01_jprb &
39654  &, 0.177956e+01_jprb, 0.181552e+01_jprb, 0.185137e+01_jprb &
39655  &, 0.188710e+01_jprb, 0.192268e+01_jprb, 0.195810e+01_jprb, 0.199335e+01_jprb &
39656  &, 0.202839e+01_jprb, 0.206322e+01_jprb, 0.209782e+01_jprb &
39657  &, 0.213217e+01_jprb, 0.216624e+01_jprb, 0.220003e+01_jprb, 0.223353e+01_jprb &
39658  &, 0.226670e+01_jprb, 0.229954e+01_jprb, 0.233203e+01_jprb &
39659  &, 0.236415e+01_jprb, 0.239590e+01_jprb, 0.242724e+01_jprb, 0.245818e+01_jprb &
39660  &, 0.248871e+01_jprb, 0.251878e+01_jprb, 0.254842e+01_jprb &
39661  &, 0.257760e+01_jprb, 0.260630e+01_jprb, 0.263452e+01_jprb, 0.266225e+01_jprb &
39662  &, 0.268946e+01_jprb, 0.271616e+01_jprb, 0.274234e+01_jprb &
39663  &, 0.276798e+01_jprb, 0.279307e+01_jprb, 0.281762e+01_jprb, 0.284160e+01_jprb &
39664  &, 0.286501e+01_jprb, 0.288785e+01_jprb, 0.291011e+01_jprb &
39665  &, 0.293177e+01_jprb, 0.295284e+01_jprb, 0.297331e+01_jprb, 0.299318e+01_jprb &
39666  &, 0.301243e+01_jprb, 0.303107e+01_jprb, 0.304910e+01_jprb &
39667  &, 0.306650e+01_jprb, 0.308327e+01_jprb, 0.309941e+01_jprb, 0.311493e+01_jprb &
39668  &, 0.312981e+01_jprb, 0.314407e+01_jprb, 0.315769e+01_jprb &
39669  &, 0.317065e+01_jprb, 0.318300e+01_jprb, 0.319470e+01_jprb, 0.320577e+01_jprb &
39670  &, 0.321619e+01_jprb, 0.322598e+01_jprb, 0.323513e+01_jprb &
39671  &, 0.324364e+01_jprb, 0.325155e+01_jprb, 0.325875e+01_jprb, 0.326540e+01_jprb &
39672  &, 0.327140e+01_jprb, 0.327677e+01_jprb, 0.328150e+01_jprb &
39673  &, 0.328563e+01_jprb, 0.328913e+01_jprb, 0.329202e+01_jprb, 0.329432e+01_jprb &
39674  &, 0.329601e+01_jprb, 0.329706e+01_jprb, 0.329754e+01_jprb &
39675  &, 0.329744e+01_jprb, 0.329673e+01_jprb, 0.329545e+01_jprb, 0.329358e+01_jprb &
39676  &, 0.329112e+01_jprb, 0.328813e+01_jprb, 0.328454e+01_jprb &
39677  &, 0.328044e+01_jprb, 0.327574e+01_jprb, 0.327052e+01_jprb, 0.326477e+01_jprb &
39678  &, 0.325847e+01_jprb, 0.325164e+01_jprb, 0.324434e+01_jprb &
39679  &, 0.323647e+01_jprb, 0.322813e+01_jprb, 0.321926e+01_jprb, 0.320991e+01_jprb &
39680  &, 0.320008e+01_jprb, 0.318978e+01_jprb, 0.317899e+01_jprb &
39681  &, 0.316777e+01_jprb, 0.315610e+01_jprb, 0.314396e+01_jprb, 0.313136e+01_jprb &
39682  &, 0.311838e+01_jprb, 0.310495e+01_jprb, 0.309108e+01_jprb &
39683  &, 0.307684e+01_jprb, 0.306222e+01_jprb, 0.304717e+01_jprb, 0.303173e+01_jprb &
39684  &, 0.301592e+01_jprb, 0.299970e+01_jprb, 0.298326e+01_jprb &
39685  &, 0.296640e+01_jprb, 0.294921e+01_jprb, 0.293164e+01_jprb, 0.291379e+01_jprb &
39686  &, 0.289561e+01_jprb, 0.287712e+01_jprb, 0.285836e+01_jprb &
39687  &, 0.283927e+01_jprb, 0.281990e+01_jprb, 0.280031e+01_jprb, 0.278041e+01_jprb &
39688  &, 0.276029e+01_jprb, 0.273990e+01_jprb, 0.271927e+01_jprb/)
39689 xcw( 910, :) = (/ &
39690  & 0.113648e+01_jprb, 0.117129e+01_jprb, 0.120634e+01_jprb, 0.124162e+01_jprb &
39691  &, 0.127709e+01_jprb, 0.131275e+01_jprb, 0.134858e+01_jprb &
39692  &, 0.138455e+01_jprb, 0.142065e+01_jprb, 0.145686e+01_jprb, 0.149316e+01_jprb &
39693  &, 0.152953e+01_jprb, 0.156596e+01_jprb, 0.160241e+01_jprb &
39694  &, 0.163888e+01_jprb, 0.167535e+01_jprb, 0.171178e+01_jprb, 0.174818e+01_jprb &
39695  &, 0.178452e+01_jprb, 0.182077e+01_jprb, 0.185692e+01_jprb &
39696  &, 0.189295e+01_jprb, 0.192885e+01_jprb, 0.196459e+01_jprb, 0.200016e+01_jprb &
39697  &, 0.203553e+01_jprb, 0.207069e+01_jprb, 0.210563e+01_jprb &
39698  &, 0.214031e+01_jprb, 0.217474e+01_jprb, 0.220888e+01_jprb, 0.224273e+01_jprb &
39699  &, 0.227626e+01_jprb, 0.230946e+01_jprb, 0.234232e+01_jprb &
39700  &, 0.237482e+01_jprb, 0.240694e+01_jprb, 0.243868e+01_jprb, 0.247000e+01_jprb &
39701  &, 0.250091e+01_jprb, 0.253139e+01_jprb, 0.256142e+01_jprb &
39702  &, 0.259099e+01_jprb, 0.262009e+01_jprb, 0.264872e+01_jprb, 0.267685e+01_jprb &
39703  &, 0.270448e+01_jprb, 0.273160e+01_jprb, 0.275818e+01_jprb &
39704  &, 0.278425e+01_jprb, 0.280976e+01_jprb, 0.283472e+01_jprb, 0.285913e+01_jprb &
39705  &, 0.288297e+01_jprb, 0.290624e+01_jprb, 0.292893e+01_jprb &
39706  &, 0.295102e+01_jprb, 0.297252e+01_jprb, 0.299342e+01_jprb, 0.301373e+01_jprb &
39707  &, 0.303341e+01_jprb, 0.305250e+01_jprb, 0.307096e+01_jprb &
39708  &, 0.308880e+01_jprb, 0.310601e+01_jprb, 0.312259e+01_jprb, 0.313856e+01_jprb &
39709  &, 0.315388e+01_jprb, 0.316856e+01_jprb, 0.318261e+01_jprb &
39710  &, 0.319604e+01_jprb, 0.320882e+01_jprb, 0.322095e+01_jprb, 0.323245e+01_jprb &
39711  &, 0.324330e+01_jprb, 0.325354e+01_jprb, 0.326312e+01_jprb &
39712  &, 0.327205e+01_jprb, 0.328037e+01_jprb, 0.328804e+01_jprb, 0.329510e+01_jprb &
39713  &, 0.330152e+01_jprb, 0.330731e+01_jprb, 0.331246e+01_jprb &
39714  &, 0.331701e+01_jprb, 0.332094e+01_jprb, 0.332423e+01_jprb, 0.332692e+01_jprb &
39715  &, 0.332903e+01_jprb, 0.333048e+01_jprb, 0.333137e+01_jprb &
39716  &, 0.333164e+01_jprb, 0.333135e+01_jprb, 0.333042e+01_jprb, 0.332894e+01_jprb &
39717  &, 0.332689e+01_jprb, 0.332426e+01_jprb, 0.332102e+01_jprb &
39718  &, 0.331704e+01_jprb, 0.331300e+01_jprb, 0.330815e+01_jprb, 0.330273e+01_jprb &
39719  &, 0.329680e+01_jprb, 0.329033e+01_jprb, 0.328331e+01_jprb &
39720  &, 0.327580e+01_jprb, 0.326777e+01_jprb, 0.325925e+01_jprb, 0.325025e+01_jprb &
39721  &, 0.324072e+01_jprb, 0.323072e+01_jprb, 0.322025e+01_jprb &
39722  &, 0.320932e+01_jprb, 0.319793e+01_jprb, 0.318606e+01_jprb, 0.317378e+01_jprb &
39723  &, 0.316106e+01_jprb, 0.314788e+01_jprb, 0.313431e+01_jprb &
39724  &, 0.312032e+01_jprb, 0.310593e+01_jprb, 0.309112e+01_jprb, 0.307595e+01_jprb &
39725  &, 0.306035e+01_jprb, 0.304440e+01_jprb, 0.302811e+01_jprb &
39726  &, 0.301144e+01_jprb, 0.299444e+01_jprb, 0.297711e+01_jprb, 0.295943e+01_jprb &
39727  &, 0.294141e+01_jprb, 0.292315e+01_jprb, 0.290453e+01_jprb &
39728  &, 0.288559e+01_jprb, 0.286641e+01_jprb, 0.284695e+01_jprb, 0.282717e+01_jprb &
39729  &, 0.280715e+01_jprb, 0.278686e+01_jprb, 0.276638e+01_jprb/)
39730 
39731 IF (lhook) CALL dr_hook('SU_MCICA:PART130',1,zhook_handle)
39732 END SUBROUTINE part130
39733 
39734 #ifdef VPP5000
39735 !OCL SCALAR
39736 #endif
39737 !option! -Nv -NO
39738 #ifdef RS6K
39739 @process nooptimize
39740 #endif
39741 !pgi$r opt=0
39742 SUBROUTINE part131
39743 
39744 REAL(KIND=JPRB) :: ZHOOK_HANDLE
39745 IF (lhook) CALL dr_hook('SU_MCICA:PART131',0,zhook_handle)
39746 
39747 xcw( 911, :) = (/ &
39748  & 0.113715e+01_jprb, 0.117215e+01_jprb, 0.120739e+01_jprb, 0.124287e+01_jprb &
39749  &, 0.127855e+01_jprb, 0.131442e+01_jprb, 0.135047e+01_jprb &
39750  &, 0.138666e+01_jprb, 0.142300e+01_jprb, 0.145945e+01_jprb, 0.149599e+01_jprb &
39751  &, 0.153261e+01_jprb, 0.156929e+01_jprb, 0.160601e+01_jprb &
39752  &, 0.164275e+01_jprb, 0.167949e+01_jprb, 0.171621e+01_jprb, 0.175289e+01_jprb &
39753  &, 0.178952e+01_jprb, 0.182607e+01_jprb, 0.186253e+01_jprb &
39754  &, 0.189887e+01_jprb, 0.193508e+01_jprb, 0.197114e+01_jprb, 0.200704e+01_jprb &
39755  &, 0.204274e+01_jprb, 0.207824e+01_jprb, 0.211352e+01_jprb &
39756  &, 0.214855e+01_jprb, 0.218332e+01_jprb, 0.221783e+01_jprb, 0.225203e+01_jprb &
39757  &, 0.228593e+01_jprb, 0.231950e+01_jprb, 0.235274e+01_jprb &
39758  &, 0.238561e+01_jprb, 0.241812e+01_jprb, 0.245023e+01_jprb, 0.248195e+01_jprb &
39759  &, 0.251325e+01_jprb, 0.254413e+01_jprb, 0.257455e+01_jprb &
39760  &, 0.260454e+01_jprb, 0.263405e+01_jprb, 0.266308e+01_jprb, 0.269163e+01_jprb &
39761  &, 0.271968e+01_jprb, 0.274721e+01_jprb, 0.277423e+01_jprb &
39762  &, 0.280070e+01_jprb, 0.282665e+01_jprb, 0.285204e+01_jprb, 0.287686e+01_jprb &
39763  &, 0.290115e+01_jprb, 0.292485e+01_jprb, 0.294798e+01_jprb &
39764  &, 0.297051e+01_jprb, 0.299246e+01_jprb, 0.301380e+01_jprb, 0.303454e+01_jprb &
39765  &, 0.305468e+01_jprb, 0.307420e+01_jprb, 0.309310e+01_jprb &
39766  &, 0.311139e+01_jprb, 0.312905e+01_jprb, 0.314608e+01_jprb, 0.316248e+01_jprb &
39767  &, 0.317824e+01_jprb, 0.319338e+01_jprb, 0.320789e+01_jprb &
39768  &, 0.322175e+01_jprb, 0.323496e+01_jprb, 0.324755e+01_jprb, 0.325949e+01_jprb &
39769  &, 0.327081e+01_jprb, 0.328146e+01_jprb, 0.329147e+01_jprb &
39770  &, 0.330087e+01_jprb, 0.330962e+01_jprb, 0.331774e+01_jprb, 0.332520e+01_jprb &
39771  &, 0.333205e+01_jprb, 0.333828e+01_jprb, 0.334386e+01_jprb &
39772  &, 0.334884e+01_jprb, 0.335317e+01_jprb, 0.335689e+01_jprb, 0.336002e+01_jprb &
39773  &, 0.336250e+01_jprb, 0.336438e+01_jprb, 0.336568e+01_jprb &
39774  &, 0.336637e+01_jprb, 0.336645e+01_jprb, 0.336596e+01_jprb, 0.336487e+01_jprb &
39775  &, 0.336322e+01_jprb, 0.336097e+01_jprb, 0.335816e+01_jprb &
39776  &, 0.335475e+01_jprb, 0.335084e+01_jprb, 0.334634e+01_jprb, 0.334130e+01_jprb &
39777  &, 0.333570e+01_jprb, 0.332961e+01_jprb, 0.332296e+01_jprb &
39778  &, 0.331578e+01_jprb, 0.330811e+01_jprb, 0.329991e+01_jprb, 0.329123e+01_jprb &
39779  &, 0.328200e+01_jprb, 0.327234e+01_jprb, 0.326218e+01_jprb &
39780  &, 0.325154e+01_jprb, 0.324039e+01_jprb, 0.322890e+01_jprb, 0.321690e+01_jprb &
39781  &, 0.320445e+01_jprb, 0.319159e+01_jprb, 0.317827e+01_jprb &
39782  &, 0.316454e+01_jprb, 0.315040e+01_jprb, 0.313583e+01_jprb, 0.312090e+01_jprb &
39783  &, 0.310558e+01_jprb, 0.308985e+01_jprb, 0.307377e+01_jprb &
39784  &, 0.305732e+01_jprb, 0.304057e+01_jprb, 0.302343e+01_jprb, 0.300594e+01_jprb &
39785  &, 0.298810e+01_jprb, 0.297000e+01_jprb, 0.295155e+01_jprb &
39786  &, 0.293282e+01_jprb, 0.291378e+01_jprb, 0.289446e+01_jprb, 0.287480e+01_jprb &
39787  &, 0.285497e+01_jprb, 0.283479e+01_jprb, 0.281442e+01_jprb/)
39788 xcw( 912, :) = (/ &
39789  & 0.113783e+01_jprb, 0.117302e+01_jprb, 0.120846e+01_jprb, 0.124413e+01_jprb &
39790  &, 0.128002e+01_jprb, 0.131611e+01_jprb, 0.135237e+01_jprb &
39791  &, 0.138880e+01_jprb, 0.142536e+01_jprb, 0.146205e+01_jprb, 0.149884e+01_jprb &
39792  &, 0.153572e+01_jprb, 0.157266e+01_jprb, 0.160964e+01_jprb &
39793  &, 0.164665e+01_jprb, 0.168367e+01_jprb, 0.172068e+01_jprb, 0.175765e+01_jprb &
39794  &, 0.179458e+01_jprb, 0.183143e+01_jprb, 0.186819e+01_jprb &
39795  &, 0.190485e+01_jprb, 0.194138e+01_jprb, 0.197777e+01_jprb, 0.201399e+01_jprb &
39796  &, 0.205003e+01_jprb, 0.208587e+01_jprb, 0.212149e+01_jprb &
39797  &, 0.215687e+01_jprb, 0.219201e+01_jprb, 0.222687e+01_jprb, 0.226144e+01_jprb &
39798  &, 0.229571e+01_jprb, 0.232966e+01_jprb, 0.236326e+01_jprb &
39799  &, 0.239653e+01_jprb, 0.242942e+01_jprb, 0.246192e+01_jprb, 0.249403e+01_jprb &
39800  &, 0.252574e+01_jprb, 0.255701e+01_jprb, 0.258785e+01_jprb &
39801  &, 0.261824e+01_jprb, 0.264817e+01_jprb, 0.267761e+01_jprb, 0.270658e+01_jprb &
39802  &, 0.273505e+01_jprb, 0.276301e+01_jprb, 0.279045e+01_jprb &
39803  &, 0.281736e+01_jprb, 0.284374e+01_jprb, 0.286957e+01_jprb, 0.289484e+01_jprb &
39804  &, 0.291956e+01_jprb, 0.294369e+01_jprb, 0.296727e+01_jprb &
39805  &, 0.299024e+01_jprb, 0.301263e+01_jprb, 0.303442e+01_jprb, 0.305562e+01_jprb &
39806  &, 0.307621e+01_jprb, 0.309617e+01_jprb, 0.311553e+01_jprb &
39807  &, 0.313426e+01_jprb, 0.315239e+01_jprb, 0.316987e+01_jprb, 0.318672e+01_jprb &
39808  &, 0.320294e+01_jprb, 0.321854e+01_jprb, 0.323347e+01_jprb &
39809  &, 0.324779e+01_jprb, 0.326147e+01_jprb, 0.327450e+01_jprb, 0.328691e+01_jprb &
39810  &, 0.329865e+01_jprb, 0.330976e+01_jprb, 0.332023e+01_jprb &
39811  &, 0.333004e+01_jprb, 0.333927e+01_jprb, 0.334783e+01_jprb, 0.335575e+01_jprb &
39812  &, 0.336303e+01_jprb, 0.336970e+01_jprb, 0.337572e+01_jprb &
39813  &, 0.338112e+01_jprb, 0.338589e+01_jprb, 0.339005e+01_jprb, 0.339359e+01_jprb &
39814  &, 0.339648e+01_jprb, 0.339881e+01_jprb, 0.340051e+01_jprb &
39815  &, 0.340162e+01_jprb, 0.340210e+01_jprb, 0.340201e+01_jprb, 0.340133e+01_jprb &
39816  &, 0.340005e+01_jprb, 0.339820e+01_jprb, 0.339579e+01_jprb &
39817  &, 0.339278e+01_jprb, 0.338922e+01_jprb, 0.338511e+01_jprb, 0.338047e+01_jprb &
39818  &, 0.337522e+01_jprb, 0.336936e+01_jprb, 0.336320e+01_jprb &
39819  &, 0.335639e+01_jprb, 0.334906e+01_jprb, 0.334119e+01_jprb, 0.333287e+01_jprb &
39820  &, 0.332401e+01_jprb, 0.331467e+01_jprb, 0.330482e+01_jprb &
39821  &, 0.329448e+01_jprb, 0.328373e+01_jprb, 0.327248e+01_jprb, 0.326077e+01_jprb &
39822  &, 0.324861e+01_jprb, 0.323602e+01_jprb, 0.322298e+01_jprb &
39823  &, 0.320951e+01_jprb, 0.319563e+01_jprb, 0.318136e+01_jprb, 0.316668e+01_jprb &
39824  &, 0.315160e+01_jprb, 0.313610e+01_jprb, 0.312030e+01_jprb &
39825  &, 0.310407e+01_jprb, 0.308748e+01_jprb, 0.307055e+01_jprb, 0.305331e+01_jprb &
39826  &, 0.303566e+01_jprb, 0.301774e+01_jprb, 0.299946e+01_jprb &
39827  &, 0.298090e+01_jprb, 0.296202e+01_jprb, 0.294290e+01_jprb, 0.292345e+01_jprb &
39828  &, 0.290369e+01_jprb, 0.288370e+01_jprb, 0.286344e+01_jprb/)
39829 xcw( 913, :) = (/ &
39830  & 0.113852e+01_jprb, 0.117389e+01_jprb, 0.120953e+01_jprb, 0.124540e+01_jprb &
39831  &, 0.128150e+01_jprb, 0.131780e+01_jprb, 0.135429e+01_jprb &
39832  &, 0.139095e+01_jprb, 0.142775e+01_jprb, 0.146468e+01_jprb, 0.150173e+01_jprb &
39833  &, 0.153886e+01_jprb, 0.157606e+01_jprb, 0.161331e+01_jprb &
39834  &, 0.165060e+01_jprb, 0.168790e+01_jprb, 0.172519e+01_jprb, 0.176246e+01_jprb &
39835  &, 0.179968e+01_jprb, 0.183684e+01_jprb, 0.187392e+01_jprb &
39836  &, 0.191089e+01_jprb, 0.194775e+01_jprb, 0.198446e+01_jprb, 0.202102e+01_jprb &
39837  &, 0.205740e+01_jprb, 0.209358e+01_jprb, 0.212955e+01_jprb &
39838  &, 0.216529e+01_jprb, 0.220078e+01_jprb, 0.223601e+01_jprb, 0.227095e+01_jprb &
39839  &, 0.230559e+01_jprb, 0.233992e+01_jprb, 0.237391e+01_jprb &
39840  &, 0.240756e+01_jprb, 0.244084e+01_jprb, 0.247375e+01_jprb, 0.250626e+01_jprb &
39841  &, 0.253836e+01_jprb, 0.257005e+01_jprb, 0.260130e+01_jprb &
39842  &, 0.263211e+01_jprb, 0.266245e+01_jprb, 0.269232e+01_jprb, 0.272171e+01_jprb &
39843  &, 0.275060e+01_jprb, 0.277900e+01_jprb, 0.280687e+01_jprb &
39844  &, 0.283422e+01_jprb, 0.286104e+01_jprb, 0.288731e+01_jprb, 0.291303e+01_jprb &
39845  &, 0.293819e+01_jprb, 0.296278e+01_jprb, 0.298679e+01_jprb &
39846  &, 0.301022e+01_jprb, 0.303307e+01_jprb, 0.305532e+01_jprb, 0.307696e+01_jprb &
39847  &, 0.309800e+01_jprb, 0.311843e+01_jprb, 0.313825e+01_jprb &
39848  &, 0.315745e+01_jprb, 0.317602e+01_jprb, 0.319397e+01_jprb, 0.321128e+01_jprb &
39849  &, 0.322796e+01_jprb, 0.324401e+01_jprb, 0.325943e+01_jprb &
39850  &, 0.327419e+01_jprb, 0.328834e+01_jprb, 0.330182e+01_jprb, 0.331469e+01_jprb &
39851  &, 0.332689e+01_jprb, 0.333845e+01_jprb, 0.334938e+01_jprb &
39852  &, 0.335968e+01_jprb, 0.336933e+01_jprb, 0.337834e+01_jprb, 0.338670e+01_jprb &
39853  &, 0.339446e+01_jprb, 0.340155e+01_jprb, 0.340802e+01_jprb &
39854  &, 0.341386e+01_jprb, 0.341906e+01_jprb, 0.342367e+01_jprb, 0.342763e+01_jprb &
39855  &, 0.343097e+01_jprb, 0.343372e+01_jprb, 0.343585e+01_jprb &
39856  &, 0.343737e+01_jprb, 0.343827e+01_jprb, 0.343860e+01_jprb, 0.343833e+01_jprb &
39857  &, 0.343746e+01_jprb, 0.343603e+01_jprb, 0.343402e+01_jprb &
39858  &, 0.343141e+01_jprb, 0.342812e+01_jprb, 0.342452e+01_jprb, 0.342024e+01_jprb &
39859  &, 0.341539e+01_jprb, 0.341003e+01_jprb, 0.340412e+01_jprb &
39860  &, 0.339766e+01_jprb, 0.339067e+01_jprb, 0.338317e+01_jprb, 0.337519e+01_jprb &
39861  &, 0.336666e+01_jprb, 0.335765e+01_jprb, 0.334816e+01_jprb &
39862  &, 0.333819e+01_jprb, 0.332770e+01_jprb, 0.331676e+01_jprb, 0.330539e+01_jprb &
39863  &, 0.329352e+01_jprb, 0.328123e+01_jprb, 0.326847e+01_jprb &
39864  &, 0.325533e+01_jprb, 0.324172e+01_jprb, 0.322767e+01_jprb, 0.321329e+01_jprb &
39865  &, 0.319842e+01_jprb, 0.318321e+01_jprb, 0.316760e+01_jprb &
39866  &, 0.315165e+01_jprb, 0.313528e+01_jprb, 0.311851e+01_jprb, 0.310154e+01_jprb &
39867  &, 0.308415e+01_jprb, 0.306642e+01_jprb, 0.304833e+01_jprb &
39868  &, 0.302995e+01_jprb, 0.301124e+01_jprb, 0.299179e+01_jprb, 0.297299e+01_jprb &
39869  &, 0.295337e+01_jprb, 0.293351e+01_jprb, 0.291338e+01_jprb/)
39870 xcw( 914, :) = (/ &
39871  & 0.113921e+01_jprb, 0.117477e+01_jprb, 0.121061e+01_jprb, 0.124669e+01_jprb &
39872  &, 0.128300e+01_jprb, 0.131952e+01_jprb, 0.135623e+01_jprb &
39873  &, 0.139312e+01_jprb, 0.143016e+01_jprb, 0.146734e+01_jprb, 0.150464e+01_jprb &
39874  &, 0.154203e+01_jprb, 0.157949e+01_jprb, 0.161702e+01_jprb &
39875  &, 0.165458e+01_jprb, 0.169217e+01_jprb, 0.172975e+01_jprb, 0.176732e+01_jprb &
39876  &, 0.180484e+01_jprb, 0.184231e+01_jprb, 0.187970e+01_jprb &
39877  &, 0.191700e+01_jprb, 0.195418e+01_jprb, 0.199123e+01_jprb, 0.202812e+01_jprb &
39878  &, 0.206484e+01_jprb, 0.210138e+01_jprb, 0.213770e+01_jprb &
39879  &, 0.217380e+01_jprb, 0.220966e+01_jprb, 0.224525e+01_jprb, 0.228057e+01_jprb &
39880  &, 0.231559e+01_jprb, 0.235030e+01_jprb, 0.238469e+01_jprb &
39881  &, 0.241872e+01_jprb, 0.245240e+01_jprb, 0.248571e+01_jprb, 0.251862e+01_jprb &
39882  &, 0.255114e+01_jprb, 0.258324e+01_jprb, 0.261491e+01_jprb &
39883  &, 0.264614e+01_jprb, 0.267691e+01_jprb, 0.270721e+01_jprb, 0.273702e+01_jprb &
39884  &, 0.276635e+01_jprb, 0.279519e+01_jprb, 0.282349e+01_jprb &
39885  &, 0.285129e+01_jprb, 0.287856e+01_jprb, 0.290527e+01_jprb, 0.293144e+01_jprb &
39886  &, 0.295706e+01_jprb, 0.298210e+01_jprb, 0.300656e+01_jprb &
39887  &, 0.303046e+01_jprb, 0.305376e+01_jprb, 0.307648e+01_jprb, 0.309859e+01_jprb &
39888  &, 0.312009e+01_jprb, 0.314096e+01_jprb, 0.316126e+01_jprb &
39889  &, 0.318093e+01_jprb, 0.319996e+01_jprb, 0.321838e+01_jprb, 0.323617e+01_jprb &
39890  &, 0.325329e+01_jprb, 0.326981e+01_jprb, 0.328572e+01_jprb &
39891  &, 0.330095e+01_jprb, 0.331558e+01_jprb, 0.332952e+01_jprb, 0.334285e+01_jprb &
39892  &, 0.335551e+01_jprb, 0.336757e+01_jprb, 0.337895e+01_jprb &
39893  &, 0.338970e+01_jprb, 0.339982e+01_jprb, 0.340928e+01_jprb, 0.341812e+01_jprb &
39894  &, 0.342631e+01_jprb, 0.343388e+01_jprb, 0.344079e+01_jprb &
39895  &, 0.344709e+01_jprb, 0.345274e+01_jprb, 0.345778e+01_jprb, 0.346220e+01_jprb &
39896  &, 0.346598e+01_jprb, 0.346915e+01_jprb, 0.347171e+01_jprb &
39897  &, 0.347366e+01_jprb, 0.347502e+01_jprb, 0.347577e+01_jprb, 0.347593e+01_jprb &
39898  &, 0.347548e+01_jprb, 0.347443e+01_jprb, 0.347284e+01_jprb &
39899  &, 0.347062e+01_jprb, 0.346789e+01_jprb, 0.346456e+01_jprb, 0.346065e+01_jprb &
39900  &, 0.345620e+01_jprb, 0.345122e+01_jprb, 0.344566e+01_jprb &
39901  &, 0.343960e+01_jprb, 0.343293e+01_jprb, 0.342587e+01_jprb, 0.341823e+01_jprb &
39902  &, 0.341004e+01_jprb, 0.340141e+01_jprb, 0.339225e+01_jprb &
39903  &, 0.338256e+01_jprb, 0.337244e+01_jprb, 0.336182e+01_jprb, 0.335076e+01_jprb &
39904  &, 0.333920e+01_jprb, 0.332721e+01_jprb, 0.331480e+01_jprb &
39905  &, 0.330189e+01_jprb, 0.328852e+01_jprb, 0.327484e+01_jprb, 0.326069e+01_jprb &
39906  &, 0.324613e+01_jprb, 0.323118e+01_jprb, 0.321582e+01_jprb &
39907  &, 0.320011e+01_jprb, 0.318398e+01_jprb, 0.316750e+01_jprb, 0.315069e+01_jprb &
39908  &, 0.313351e+01_jprb, 0.311599e+01_jprb, 0.309810e+01_jprb &
39909  &, 0.307990e+01_jprb, 0.306144e+01_jprb, 0.304260e+01_jprb, 0.302347e+01_jprb &
39910  &, 0.300407e+01_jprb, 0.298436e+01_jprb, 0.296437e+01_jprb/)
39911 xcw( 915, :) = (/ &
39912  & 0.113991e+01_jprb, 0.117567e+01_jprb, 0.121170e+01_jprb, 0.124798e+01_jprb &
39913  &, 0.128451e+01_jprb, 0.132125e+01_jprb, 0.135819e+01_jprb &
39914  &, 0.139532e+01_jprb, 0.143260e+01_jprb, 0.147003e+01_jprb, 0.150758e+01_jprb &
39915  &, 0.154523e+01_jprb, 0.158296e+01_jprb, 0.162076e+01_jprb &
39916  &, 0.165861e+01_jprb, 0.169648e+01_jprb, 0.173436e+01_jprb, 0.177223e+01_jprb &
39917  &, 0.181006e+01_jprb, 0.184784e+01_jprb, 0.188555e+01_jprb &
39918  &, 0.192317e+01_jprb, 0.196068e+01_jprb, 0.199807e+01_jprb, 0.203530e+01_jprb &
39919  &, 0.207237e+01_jprb, 0.210926e+01_jprb, 0.214594e+01_jprb &
39920  &, 0.218241e+01_jprb, 0.221863e+01_jprb, 0.225460e+01_jprb, 0.229030e+01_jprb &
39921  &, 0.232570e+01_jprb, 0.236080e+01_jprb, 0.239558e+01_jprb &
39922  &, 0.243001e+01_jprb, 0.246410e+01_jprb, 0.249781e+01_jprb, 0.253115e+01_jprb &
39923  &, 0.256407e+01_jprb, 0.259660e+01_jprb, 0.262869e+01_jprb &
39924  &, 0.266033e+01_jprb, 0.269153e+01_jprb, 0.272227e+01_jprb, 0.275252e+01_jprb &
39925  &, 0.278230e+01_jprb, 0.281158e+01_jprb, 0.284034e+01_jprb &
39926  &, 0.286858e+01_jprb, 0.289629e+01_jprb, 0.292346e+01_jprb, 0.295010e+01_jprb &
39927  &, 0.297616e+01_jprb, 0.300167e+01_jprb, 0.302660e+01_jprb &
39928  &, 0.305096e+01_jprb, 0.307473e+01_jprb, 0.309791e+01_jprb, 0.312049e+01_jprb &
39929  &, 0.314246e+01_jprb, 0.316382e+01_jprb, 0.318458e+01_jprb &
39930  &, 0.320472e+01_jprb, 0.322425e+01_jprb, 0.324312e+01_jprb, 0.326140e+01_jprb &
39931  &, 0.327902e+01_jprb, 0.329601e+01_jprb, 0.331238e+01_jprb &
39932  &, 0.332809e+01_jprb, 0.334318e+01_jprb, 0.335761e+01_jprb, 0.337141e+01_jprb &
39933  &, 0.338455e+01_jprb, 0.339706e+01_jprb, 0.340894e+01_jprb &
39934  &, 0.342012e+01_jprb, 0.343073e+01_jprb, 0.344067e+01_jprb, 0.344998e+01_jprb &
39935  &, 0.345864e+01_jprb, 0.346667e+01_jprb, 0.347404e+01_jprb &
39936  &, 0.348081e+01_jprb, 0.348690e+01_jprb, 0.349241e+01_jprb, 0.349727e+01_jprb &
39937  &, 0.350152e+01_jprb, 0.350513e+01_jprb, 0.350813e+01_jprb &
39938  &, 0.351055e+01_jprb, 0.351231e+01_jprb, 0.351350e+01_jprb, 0.351403e+01_jprb &
39939  &, 0.351404e+01_jprb, 0.351346e+01_jprb, 0.351227e+01_jprb &
39940  &, 0.351047e+01_jprb, 0.350813e+01_jprb, 0.350523e+01_jprb, 0.350173e+01_jprb &
39941  &, 0.349767e+01_jprb, 0.349306e+01_jprb, 0.348792e+01_jprb &
39942  &, 0.348223e+01_jprb, 0.347600e+01_jprb, 0.346926e+01_jprb, 0.346199e+01_jprb &
39943  &, 0.345415e+01_jprb, 0.344586e+01_jprb, 0.343705e+01_jprb &
39944  &, 0.342775e+01_jprb, 0.341796e+01_jprb, 0.340767e+01_jprb, 0.339694e+01_jprb &
39945  &, 0.338570e+01_jprb, 0.337401e+01_jprb, 0.336191e+01_jprb &
39946  &, 0.334931e+01_jprb, 0.333633e+01_jprb, 0.332289e+01_jprb, 0.330902e+01_jprb &
39947  &, 0.329468e+01_jprb, 0.328001e+01_jprb, 0.326496e+01_jprb &
39948  &, 0.324946e+01_jprb, 0.323363e+01_jprb, 0.321739e+01_jprb, 0.320076e+01_jprb &
39949  &, 0.318381e+01_jprb, 0.316651e+01_jprb, 0.314883e+01_jprb &
39950  &, 0.313041e+01_jprb, 0.311257e+01_jprb, 0.309391e+01_jprb, 0.307502e+01_jprb &
39951  &, 0.305573e+01_jprb, 0.303625e+01_jprb, 0.301641e+01_jprb/)
39952 xcw( 916, :) = (/ &
39953  & 0.114061e+01_jprb, 0.117656e+01_jprb, 0.121280e+01_jprb, 0.124929e+01_jprb &
39954  &, 0.128603e+01_jprb, 0.132300e+01_jprb, 0.136017e+01_jprb &
39955  &, 0.139753e+01_jprb, 0.143506e+01_jprb, 0.147274e+01_jprb, 0.151055e+01_jprb &
39956  &, 0.154846e+01_jprb, 0.158647e+01_jprb, 0.162455e+01_jprb &
39957  &, 0.166268e+01_jprb, 0.170084e+01_jprb, 0.173902e+01_jprb, 0.177719e+01_jprb &
39958  &, 0.181533e+01_jprb, 0.185343e+01_jprb, 0.189146e+01_jprb &
39959  &, 0.192941e+01_jprb, 0.196726e+01_jprb, 0.200498e+01_jprb, 0.204256e+01_jprb &
39960  &, 0.207998e+01_jprb, 0.211723e+01_jprb, 0.215428e+01_jprb &
39961  &, 0.219111e+01_jprb, 0.222771e+01_jprb, 0.226406e+01_jprb, 0.230014e+01_jprb &
39962  &, 0.233593e+01_jprb, 0.237143e+01_jprb, 0.240660e+01_jprb &
39963  &, 0.244144e+01_jprb, 0.247594e+01_jprb, 0.251006e+01_jprb, 0.254381e+01_jprb &
39964  &, 0.257715e+01_jprb, 0.261011e+01_jprb, 0.264262e+01_jprb &
39965  &, 0.267471e+01_jprb, 0.270634e+01_jprb, 0.273752e+01_jprb, 0.276823e+01_jprb &
39966  &, 0.279844e+01_jprb, 0.282817e+01_jprb, 0.285737e+01_jprb &
39967  &, 0.288607e+01_jprb, 0.291425e+01_jprb, 0.294188e+01_jprb, 0.296897e+01_jprb &
39968  &, 0.299551e+01_jprb, 0.302148e+01_jprb, 0.304689e+01_jprb &
39969  &, 0.307173e+01_jprb, 0.309596e+01_jprb, 0.311962e+01_jprb, 0.314268e+01_jprb &
39970  &, 0.316514e+01_jprb, 0.318698e+01_jprb, 0.320823e+01_jprb &
39971  &, 0.322884e+01_jprb, 0.324884e+01_jprb, 0.326822e+01_jprb, 0.328697e+01_jprb &
39972  &, 0.330507e+01_jprb, 0.332256e+01_jprb, 0.333939e+01_jprb &
39973  &, 0.335559e+01_jprb, 0.337117e+01_jprb, 0.338610e+01_jprb, 0.340038e+01_jprb &
39974  &, 0.341400e+01_jprb, 0.342700e+01_jprb, 0.343934e+01_jprb &
39975  &, 0.345106e+01_jprb, 0.346211e+01_jprb, 0.347253e+01_jprb, 0.348231e+01_jprb &
39976  &, 0.349143e+01_jprb, 0.349992e+01_jprb, 0.350779e+01_jprb &
39977  &, 0.351501e+01_jprb, 0.352160e+01_jprb, 0.352754e+01_jprb, 0.353288e+01_jprb &
39978  &, 0.353757e+01_jprb, 0.354166e+01_jprb, 0.354511e+01_jprb &
39979  &, 0.354797e+01_jprb, 0.355019e+01_jprb, 0.355182e+01_jprb, 0.355283e+01_jprb &
39980  &, 0.355325e+01_jprb, 0.355308e+01_jprb, 0.355233e+01_jprb &
39981  &, 0.355097e+01_jprb, 0.354903e+01_jprb, 0.354652e+01_jprb, 0.354346e+01_jprb &
39982  &, 0.353983e+01_jprb, 0.353565e+01_jprb, 0.353081e+01_jprb &
39983  &, 0.352558e+01_jprb, 0.351973e+01_jprb, 0.351336e+01_jprb, 0.350646e+01_jprb &
39984  &, 0.349903e+01_jprb, 0.349110e+01_jprb, 0.348265e+01_jprb &
39985  &, 0.347370e+01_jprb, 0.346425e+01_jprb, 0.345435e+01_jprb, 0.344391e+01_jprb &
39986  &, 0.343305e+01_jprb, 0.342169e+01_jprb, 0.340985e+01_jprb &
39987  &, 0.339762e+01_jprb, 0.338490e+01_jprb, 0.337176e+01_jprb, 0.335819e+01_jprb &
39988  &, 0.334419e+01_jprb, 0.332980e+01_jprb, 0.331498e+01_jprb &
39989  &, 0.329974e+01_jprb, 0.328418e+01_jprb, 0.326819e+01_jprb, 0.325180e+01_jprb &
39990  &, 0.323509e+01_jprb, 0.321803e+01_jprb, 0.320057e+01_jprb &
39991  &, 0.318280e+01_jprb, 0.316474e+01_jprb, 0.314629e+01_jprb, 0.312753e+01_jprb &
39992  &, 0.310849e+01_jprb, 0.308912e+01_jprb, 0.306951e+01_jprb/)
39993 xcw( 917, :) = (/ &
39994  & 0.114132e+01_jprb, 0.117747e+01_jprb, 0.121391e+01_jprb, 0.125062e+01_jprb &
39995  &, 0.128758e+01_jprb, 0.132477e+01_jprb, 0.136217e+01_jprb &
39996  &, 0.139977e+01_jprb, 0.143755e+01_jprb, 0.147548e+01_jprb, 0.151354e+01_jprb &
39997  &, 0.155173e+01_jprb, 0.159001e+01_jprb, 0.162837e+01_jprb &
39998  &, 0.166679e+01_jprb, 0.170525e+01_jprb, 0.174372e+01_jprb, 0.178220e+01_jprb &
39999  &, 0.182066e+01_jprb, 0.185908e+01_jprb, 0.189744e+01_jprb &
40000  &, 0.193572e+01_jprb, 0.197390e+01_jprb, 0.201197e+01_jprb, 0.204991e+01_jprb &
40001  &, 0.208769e+01_jprb, 0.212529e+01_jprb, 0.216271e+01_jprb &
40002  &, 0.219991e+01_jprb, 0.223689e+01_jprb, 0.227362e+01_jprb, 0.231009e+01_jprb &
40003  &, 0.234628e+01_jprb, 0.238218e+01_jprb, 0.241775e+01_jprb &
40004  &, 0.245300e+01_jprb, 0.248791e+01_jprb, 0.252246e+01_jprb, 0.255662e+01_jprb &
40005  &, 0.259040e+01_jprb, 0.262377e+01_jprb, 0.265673e+01_jprb &
40006  &, 0.268926e+01_jprb, 0.272134e+01_jprb, 0.275296e+01_jprb, 0.278411e+01_jprb &
40007  &, 0.281478e+01_jprb, 0.284496e+01_jprb, 0.287464e+01_jprb &
40008  &, 0.290380e+01_jprb, 0.293244e+01_jprb, 0.296054e+01_jprb, 0.298811e+01_jprb &
40009  &, 0.301511e+01_jprb, 0.304157e+01_jprb, 0.306745e+01_jprb &
40010  &, 0.309276e+01_jprb, 0.311748e+01_jprb, 0.314162e+01_jprb, 0.316517e+01_jprb &
40011  &, 0.318811e+01_jprb, 0.321045e+01_jprb, 0.323217e+01_jprb &
40012  &, 0.325328e+01_jprb, 0.327377e+01_jprb, 0.329364e+01_jprb, 0.331289e+01_jprb &
40013  &, 0.333149e+01_jprb, 0.334947e+01_jprb, 0.336679e+01_jprb &
40014  &, 0.338349e+01_jprb, 0.339955e+01_jprb, 0.341496e+01_jprb, 0.342975e+01_jprb &
40015  &, 0.344389e+01_jprb, 0.345735e+01_jprb, 0.347019e+01_jprb &
40016  &, 0.348239e+01_jprb, 0.349394e+01_jprb, 0.350483e+01_jprb, 0.351509e+01_jprb &
40017  &, 0.352473e+01_jprb, 0.353370e+01_jprb, 0.354203e+01_jprb &
40018  &, 0.354973e+01_jprb, 0.355679e+01_jprb, 0.356321e+01_jprb, 0.356901e+01_jprb &
40019  &, 0.357419e+01_jprb, 0.357874e+01_jprb, 0.358268e+01_jprb &
40020  &, 0.358597e+01_jprb, 0.358867e+01_jprb, 0.359073e+01_jprb, 0.359219e+01_jprb &
40021  &, 0.359308e+01_jprb, 0.359336e+01_jprb, 0.359302e+01_jprb &
40022  &, 0.359211e+01_jprb, 0.359062e+01_jprb, 0.358852e+01_jprb, 0.358586e+01_jprb &
40023  &, 0.358267e+01_jprb, 0.357889e+01_jprb, 0.357453e+01_jprb &
40024  &, 0.356965e+01_jprb, 0.356419e+01_jprb, 0.355821e+01_jprb, 0.355173e+01_jprb &
40025  &, 0.354468e+01_jprb, 0.353712e+01_jprb, 0.352904e+01_jprb &
40026  &, 0.352045e+01_jprb, 0.351137e+01_jprb, 0.350182e+01_jprb, 0.349173e+01_jprb &
40027  &, 0.348121e+01_jprb, 0.347019e+01_jprb, 0.345869e+01_jprb &
40028  &, 0.344677e+01_jprb, 0.343438e+01_jprb, 0.342156e+01_jprb, 0.340829e+01_jprb &
40029  &, 0.339460e+01_jprb, 0.338045e+01_jprb, 0.336591e+01_jprb &
40030  &, 0.335096e+01_jprb, 0.333567e+01_jprb, 0.331995e+01_jprb, 0.330383e+01_jprb &
40031  &, 0.328737e+01_jprb, 0.327055e+01_jprb, 0.325333e+01_jprb &
40032  &, 0.323579e+01_jprb, 0.321789e+01_jprb, 0.319972e+01_jprb, 0.318117e+01_jprb &
40033  &, 0.316232e+01_jprb, 0.314315e+01_jprb, 0.312365e+01_jprb/)
40034 
40035 IF (lhook) CALL dr_hook('SU_MCICA:PART131',1,zhook_handle)
40036 END SUBROUTINE part131
40037 
40038 #ifdef VPP5000
40039 !OCL SCALAR
40040 #endif
40041 !option! -Nv -NO
40042 #ifdef RS6K
40043 @process nooptimize
40044 #endif
40045 !pgi$r opt=0
40046 SUBROUTINE part132
40047 
40048 REAL(KIND=JPRB) :: ZHOOK_HANDLE
40049 IF (lhook) CALL dr_hook('SU_MCICA:PART132',0,zhook_handle)
40050 
40051 xcw( 918, :) = (/ &
40052  & 0.114204e+01_jprb, 0.117839e+01_jprb, 0.121503e+01_jprb, 0.125195e+01_jprb &
40053  &, 0.128913e+01_jprb, 0.132655e+01_jprb, 0.136419e+01_jprb &
40054  &, 0.140203e+01_jprb, 0.144006e+01_jprb, 0.147824e+01_jprb, 0.151658e+01_jprb &
40055  &, 0.155503e+01_jprb, 0.159359e+01_jprb, 0.163224e+01_jprb &
40056  &, 0.167095e+01_jprb, 0.170970e+01_jprb, 0.174848e+01_jprb, 0.178727e+01_jprb &
40057  &, 0.182605e+01_jprb, 0.186479e+01_jprb, 0.190348e+01_jprb &
40058  &, 0.194210e+01_jprb, 0.198063e+01_jprb, 0.201904e+01_jprb, 0.205733e+01_jprb &
40059  &, 0.209547e+01_jprb, 0.213345e+01_jprb, 0.217123e+01_jprb &
40060  &, 0.220882e+01_jprb, 0.224618e+01_jprb, 0.228330e+01_jprb, 0.232017e+01_jprb &
40061  &, 0.235676e+01_jprb, 0.239305e+01_jprb, 0.242904e+01_jprb &
40062  &, 0.246470e+01_jprb, 0.250003e+01_jprb, 0.253500e+01_jprb, 0.256959e+01_jprb &
40063  &, 0.260381e+01_jprb, 0.263762e+01_jprb, 0.267102e+01_jprb &
40064  &, 0.270399e+01_jprb, 0.273652e+01_jprb, 0.276860e+01_jprb, 0.280021e+01_jprb &
40065  &, 0.283133e+01_jprb, 0.286197e+01_jprb, 0.289212e+01_jprb &
40066  &, 0.292174e+01_jprb, 0.295086e+01_jprb, 0.297944e+01_jprb, 0.300749e+01_jprb &
40067  &, 0.303497e+01_jprb, 0.306191e+01_jprb, 0.308827e+01_jprb &
40068  &, 0.311383e+01_jprb, 0.313929e+01_jprb, 0.316393e+01_jprb, 0.318796e+01_jprb &
40069  &, 0.321140e+01_jprb, 0.323424e+01_jprb, 0.325645e+01_jprb &
40070  &, 0.327807e+01_jprb, 0.329905e+01_jprb, 0.331942e+01_jprb, 0.333915e+01_jprb &
40071  &, 0.335827e+01_jprb, 0.337674e+01_jprb, 0.339458e+01_jprb &
40072  &, 0.341179e+01_jprb, 0.342834e+01_jprb, 0.344427e+01_jprb, 0.345955e+01_jprb &
40073  &, 0.347416e+01_jprb, 0.348815e+01_jprb, 0.350150e+01_jprb &
40074  &, 0.351417e+01_jprb, 0.352624e+01_jprb, 0.353744e+01_jprb, 0.354840e+01_jprb &
40075  &, 0.355850e+01_jprb, 0.356799e+01_jprb, 0.357681e+01_jprb &
40076  &, 0.358499e+01_jprb, 0.359254e+01_jprb, 0.359943e+01_jprb, 0.360573e+01_jprb &
40077  &, 0.361138e+01_jprb, 0.361641e+01_jprb, 0.362081e+01_jprb &
40078  &, 0.362457e+01_jprb, 0.362774e+01_jprb, 0.363027e+01_jprb, 0.363210e+01_jprb &
40079  &, 0.363354e+01_jprb, 0.363425e+01_jprb, 0.363438e+01_jprb &
40080  &, 0.363393e+01_jprb, 0.363286e+01_jprb, 0.363122e+01_jprb, 0.362902e+01_jprb &
40081  &, 0.362621e+01_jprb, 0.362284e+01_jprb, 0.361892e+01_jprb &
40082  &, 0.361445e+01_jprb, 0.360943e+01_jprb, 0.360385e+01_jprb, 0.359772e+01_jprb &
40083  &, 0.359110e+01_jprb, 0.358393e+01_jprb, 0.357623e+01_jprb &
40084  &, 0.356801e+01_jprb, 0.355916e+01_jprb, 0.355012e+01_jprb, 0.354034e+01_jprb &
40085  &, 0.353023e+01_jprb, 0.351956e+01_jprb, 0.350840e+01_jprb &
40086  &, 0.349683e+01_jprb, 0.348477e+01_jprb, 0.347222e+01_jprb, 0.345928e+01_jprb &
40087  &, 0.344590e+01_jprb, 0.343190e+01_jprb, 0.341788e+01_jprb &
40088  &, 0.340323e+01_jprb, 0.338817e+01_jprb, 0.337274e+01_jprb, 0.335689e+01_jprb &
40089  &, 0.334070e+01_jprb, 0.332408e+01_jprb, 0.330712e+01_jprb &
40090  &, 0.328982e+01_jprb, 0.327216e+01_jprb, 0.325421e+01_jprb, 0.323588e+01_jprb &
40091  &, 0.321719e+01_jprb, 0.319821e+01_jprb, 0.317885e+01_jprb/)
40092 xcw( 919, :) = (/ &
40093  & 0.114277e+01_jprb, 0.117931e+01_jprb, 0.121616e+01_jprb, 0.125330e+01_jprb &
40094  &, 0.129070e+01_jprb, 0.132835e+01_jprb, 0.136623e+01_jprb &
40095  &, 0.140432e+01_jprb, 0.144259e+01_jprb, 0.148104e+01_jprb, 0.151964e+01_jprb &
40096  &, 0.155837e+01_jprb, 0.159721e+01_jprb, 0.163614e+01_jprb &
40097  &, 0.167515e+01_jprb, 0.171420e+01_jprb, 0.175329e+01_jprb, 0.179239e+01_jprb &
40098  &, 0.183149e+01_jprb, 0.187056e+01_jprb, 0.190959e+01_jprb &
40099  &, 0.194855e+01_jprb, 0.198743e+01_jprb, 0.202620e+01_jprb, 0.206484e+01_jprb &
40100  &, 0.210335e+01_jprb, 0.214170e+01_jprb, 0.217986e+01_jprb &
40101  &, 0.221783e+01_jprb, 0.225558e+01_jprb, 0.229309e+01_jprb, 0.233036e+01_jprb &
40102  &, 0.236735e+01_jprb, 0.240406e+01_jprb, 0.244047e+01_jprb &
40103  &, 0.247655e+01_jprb, 0.251230e+01_jprb, 0.254770e+01_jprb, 0.258274e+01_jprb &
40104  &, 0.261739e+01_jprb, 0.265164e+01_jprb, 0.268548e+01_jprb &
40105  &, 0.271891e+01_jprb, 0.275189e+01_jprb, 0.278442e+01_jprb, 0.281649e+01_jprb &
40106  &, 0.284810e+01_jprb, 0.287921e+01_jprb, 0.290982e+01_jprb &
40107  &, 0.293993e+01_jprb, 0.296953e+01_jprb, 0.299858e+01_jprb, 0.302712e+01_jprb &
40108  &, 0.305510e+01_jprb, 0.308252e+01_jprb, 0.310938e+01_jprb &
40109  &, 0.313568e+01_jprb, 0.316139e+01_jprb, 0.318653e+01_jprb, 0.321106e+01_jprb &
40110  &, 0.323499e+01_jprb, 0.325833e+01_jprb, 0.328107e+01_jprb &
40111  &, 0.330319e+01_jprb, 0.332469e+01_jprb, 0.334557e+01_jprb, 0.336581e+01_jprb &
40112  &, 0.338544e+01_jprb, 0.340442e+01_jprb, 0.342277e+01_jprb &
40113  &, 0.344047e+01_jprb, 0.345756e+01_jprb, 0.347399e+01_jprb, 0.348977e+01_jprb &
40114  &, 0.350492e+01_jprb, 0.351942e+01_jprb, 0.353325e+01_jprb &
40115  &, 0.354645e+01_jprb, 0.355901e+01_jprb, 0.357091e+01_jprb, 0.358217e+01_jprb &
40116  &, 0.359280e+01_jprb, 0.360276e+01_jprb, 0.361209e+01_jprb &
40117  &, 0.362077e+01_jprb, 0.362883e+01_jprb, 0.363623e+01_jprb, 0.364301e+01_jprb &
40118  &, 0.364914e+01_jprb, 0.365465e+01_jprb, 0.365953e+01_jprb &
40119  &, 0.366380e+01_jprb, 0.366742e+01_jprb, 0.367046e+01_jprb, 0.367283e+01_jprb &
40120  &, 0.367466e+01_jprb, 0.367584e+01_jprb, 0.367637e+01_jprb &
40121  &, 0.367640e+01_jprb, 0.367580e+01_jprb, 0.367462e+01_jprb, 0.367285e+01_jprb &
40122  &, 0.367051e+01_jprb, 0.366756e+01_jprb, 0.366407e+01_jprb &
40123  &, 0.366005e+01_jprb, 0.365540e+01_jprb, 0.365027e+01_jprb, 0.364459e+01_jprb &
40124  &, 0.363833e+01_jprb, 0.363156e+01_jprb, 0.362425e+01_jprb &
40125  &, 0.361643e+01_jprb, 0.360810e+01_jprb, 0.359930e+01_jprb, 0.358994e+01_jprb &
40126  &, 0.358015e+01_jprb, 0.356985e+01_jprb, 0.355905e+01_jprb &
40127  &, 0.354778e+01_jprb, 0.353607e+01_jprb, 0.352392e+01_jprb, 0.351126e+01_jprb &
40128  &, 0.349821e+01_jprb, 0.348469e+01_jprb, 0.347078e+01_jprb &
40129  &, 0.345643e+01_jprb, 0.344168e+01_jprb, 0.342654e+01_jprb, 0.341098e+01_jprb &
40130  &, 0.339502e+01_jprb, 0.337868e+01_jprb, 0.336198e+01_jprb &
40131  &, 0.334494e+01_jprb, 0.332753e+01_jprb, 0.330977e+01_jprb, 0.329167e+01_jprb &
40132  &, 0.327320e+01_jprb, 0.325445e+01_jprb, 0.323536e+01_jprb/)
40133 xcw( 920, :) = (/ &
40134  & 0.114350e+01_jprb, 0.118025e+01_jprb, 0.121731e+01_jprb, 0.125466e+01_jprb &
40135  &, 0.129229e+01_jprb, 0.133017e+01_jprb, 0.136829e+01_jprb &
40136  &, 0.140663e+01_jprb, 0.144516e+01_jprb, 0.148387e+01_jprb, 0.152273e+01_jprb &
40137  &, 0.156174e+01_jprb, 0.160086e+01_jprb, 0.164009e+01_jprb &
40138  &, 0.167939e+01_jprb, 0.171875e+01_jprb, 0.175816e+01_jprb, 0.179758e+01_jprb &
40139  &, 0.183700e+01_jprb, 0.187640e+01_jprb, 0.191577e+01_jprb &
40140  &, 0.195508e+01_jprb, 0.199430e+01_jprb, 0.203343e+01_jprb, 0.207245e+01_jprb &
40141  &, 0.211132e+01_jprb, 0.215004e+01_jprb, 0.218859e+01_jprb &
40142  &, 0.222695e+01_jprb, 0.226509e+01_jprb, 0.230300e+01_jprb, 0.234068e+01_jprb &
40143  &, 0.237808e+01_jprb, 0.241521e+01_jprb, 0.245203e+01_jprb &
40144  &, 0.248854e+01_jprb, 0.252473e+01_jprb, 0.256056e+01_jprb, 0.259603e+01_jprb &
40145  &, 0.263113e+01_jprb, 0.266583e+01_jprb, 0.270013e+01_jprb &
40146  &, 0.273401e+01_jprb, 0.276746e+01_jprb, 0.280046e+01_jprb, 0.283301e+01_jprb &
40147  &, 0.286508e+01_jprb, 0.289666e+01_jprb, 0.292776e+01_jprb &
40148  &, 0.295836e+01_jprb, 0.298844e+01_jprb, 0.301799e+01_jprb, 0.304701e+01_jprb &
40149  &, 0.307549e+01_jprb, 0.310341e+01_jprb, 0.313078e+01_jprb &
40150  &, 0.315756e+01_jprb, 0.318380e+01_jprb, 0.320943e+01_jprb, 0.323448e+01_jprb &
40151  &, 0.325893e+01_jprb, 0.328279e+01_jprb, 0.330603e+01_jprb &
40152  &, 0.332866e+01_jprb, 0.335067e+01_jprb, 0.337207e+01_jprb, 0.339283e+01_jprb &
40153  &, 0.341297e+01_jprb, 0.343248e+01_jprb, 0.345135e+01_jprb &
40154  &, 0.346960e+01_jprb, 0.348719e+01_jprb, 0.350415e+01_jprb, 0.352044e+01_jprb &
40155  &, 0.353611e+01_jprb, 0.355113e+01_jprb, 0.356549e+01_jprb &
40156  &, 0.357921e+01_jprb, 0.359228e+01_jprb, 0.360471e+01_jprb, 0.361647e+01_jprb &
40157  &, 0.362762e+01_jprb, 0.363810e+01_jprb, 0.364794e+01_jprb &
40158  &, 0.365714e+01_jprb, 0.366558e+01_jprb, 0.367361e+01_jprb, 0.368085e+01_jprb &
40159  &, 0.368751e+01_jprb, 0.369353e+01_jprb, 0.369890e+01_jprb &
40160  &, 0.370364e+01_jprb, 0.370778e+01_jprb, 0.371127e+01_jprb, 0.371417e+01_jprb &
40161  &, 0.371645e+01_jprb, 0.371809e+01_jprb, 0.371914e+01_jprb &
40162  &, 0.371961e+01_jprb, 0.371946e+01_jprb, 0.371873e+01_jprb, 0.371744e+01_jprb &
40163  &, 0.371553e+01_jprb, 0.371306e+01_jprb, 0.371000e+01_jprb &
40164  &, 0.370637e+01_jprb, 0.370219e+01_jprb, 0.369749e+01_jprb, 0.369222e+01_jprb &
40165  &, 0.368638e+01_jprb, 0.368002e+01_jprb, 0.367316e+01_jprb &
40166  &, 0.366574e+01_jprb, 0.365781e+01_jprb, 0.364936e+01_jprb, 0.364039e+01_jprb &
40167  &, 0.363098e+01_jprb, 0.362101e+01_jprb, 0.361058e+01_jprb &
40168  &, 0.359973e+01_jprb, 0.358833e+01_jprb, 0.357654e+01_jprb, 0.356423e+01_jprb &
40169  &, 0.355147e+01_jprb, 0.353834e+01_jprb, 0.352471e+01_jprb &
40170  &, 0.351069e+01_jprb, 0.349625e+01_jprb, 0.348137e+01_jprb, 0.346611e+01_jprb &
40171  &, 0.345044e+01_jprb, 0.343439e+01_jprb, 0.341797e+01_jprb &
40172  &, 0.340115e+01_jprb, 0.338401e+01_jprb, 0.336650e+01_jprb, 0.334860e+01_jprb &
40173  &, 0.333044e+01_jprb, 0.331185e+01_jprb, 0.329299e+01_jprb/)
40174 xcw( 921, :) = (/ &
40175  & 0.114424e+01_jprb, 0.118119e+01_jprb, 0.121846e+01_jprb, 0.125604e+01_jprb &
40176  &, 0.129389e+01_jprb, 0.133201e+01_jprb, 0.137037e+01_jprb &
40177  &, 0.140896e+01_jprb, 0.144775e+01_jprb, 0.148672e+01_jprb, 0.152586e+01_jprb &
40178  &, 0.156515e+01_jprb, 0.160456e+01_jprb, 0.164408e+01_jprb &
40179  &, 0.168368e+01_jprb, 0.172336e+01_jprb, 0.176308e+01_jprb, 0.180282e+01_jprb &
40180  &, 0.184257e+01_jprb, 0.188232e+01_jprb, 0.192202e+01_jprb &
40181  &, 0.196168e+01_jprb, 0.200126e+01_jprb, 0.204075e+01_jprb, 0.208013e+01_jprb &
40182  &, 0.211938e+01_jprb, 0.215849e+01_jprb, 0.219743e+01_jprb &
40183  &, 0.223617e+01_jprb, 0.227472e+01_jprb, 0.231304e+01_jprb, 0.235112e+01_jprb &
40184  &, 0.238894e+01_jprb, 0.242649e+01_jprb, 0.246374e+01_jprb &
40185  &, 0.250068e+01_jprb, 0.253731e+01_jprb, 0.257358e+01_jprb, 0.260950e+01_jprb &
40186  &, 0.264505e+01_jprb, 0.268020e+01_jprb, 0.271497e+01_jprb &
40187  &, 0.274932e+01_jprb, 0.278323e+01_jprb, 0.281671e+01_jprb, 0.284973e+01_jprb &
40188  &, 0.288229e+01_jprb, 0.291435e+01_jprb, 0.294594e+01_jprb &
40189  &, 0.297702e+01_jprb, 0.300760e+01_jprb, 0.303766e+01_jprb, 0.306718e+01_jprb &
40190  &, 0.309615e+01_jprb, 0.312459e+01_jprb, 0.315246e+01_jprb &
40191  &, 0.317977e+01_jprb, 0.320651e+01_jprb, 0.323265e+01_jprb, 0.325823e+01_jprb &
40192  &, 0.328320e+01_jprb, 0.330758e+01_jprb, 0.333134e+01_jprb &
40193  &, 0.335450e+01_jprb, 0.337703e+01_jprb, 0.339897e+01_jprb, 0.342026e+01_jprb &
40194  &, 0.344092e+01_jprb, 0.346097e+01_jprb, 0.348036e+01_jprb &
40195  &, 0.349914e+01_jprb, 0.351725e+01_jprb, 0.353475e+01_jprb, 0.355157e+01_jprb &
40196  &, 0.356775e+01_jprb, 0.358330e+01_jprb, 0.359822e+01_jprb &
40197  &, 0.361246e+01_jprb, 0.362606e+01_jprb, 0.363902e+01_jprb, 0.365130e+01_jprb &
40198  &, 0.366297e+01_jprb, 0.367397e+01_jprb, 0.368434e+01_jprb &
40199  &, 0.369404e+01_jprb, 0.370312e+01_jprb, 0.371154e+01_jprb, 0.371934e+01_jprb &
40200  &, 0.372650e+01_jprb, 0.373299e+01_jprb, 0.373887e+01_jprb &
40201  &, 0.374414e+01_jprb, 0.374872e+01_jprb, 0.375275e+01_jprb, 0.375614e+01_jprb &
40202  &, 0.375892e+01_jprb, 0.376106e+01_jprb, 0.376261e+01_jprb &
40203  &, 0.376354e+01_jprb, 0.376389e+01_jprb, 0.376361e+01_jprb, 0.376270e+01_jprb &
40204  &, 0.376132e+01_jprb, 0.375930e+01_jprb, 0.375672e+01_jprb &
40205  &, 0.375354e+01_jprb, 0.374984e+01_jprb, 0.374553e+01_jprb, 0.374070e+01_jprb &
40206  &, 0.373528e+01_jprb, 0.372935e+01_jprb, 0.372291e+01_jprb &
40207  &, 0.371591e+01_jprb, 0.370839e+01_jprb, 0.370034e+01_jprb, 0.369178e+01_jprb &
40208  &, 0.368272e+01_jprb, 0.367319e+01_jprb, 0.366315e+01_jprb &
40209  &, 0.365263e+01_jprb, 0.364160e+01_jprb, 0.363013e+01_jprb, 0.361818e+01_jprb &
40210  &, 0.360579e+01_jprb, 0.359296e+01_jprb, 0.357972e+01_jprb &
40211  &, 0.356599e+01_jprb, 0.355177e+01_jprb, 0.353733e+01_jprb, 0.352233e+01_jprb &
40212  &, 0.350698e+01_jprb, 0.349123e+01_jprb, 0.347505e+01_jprb &
40213  &, 0.345852e+01_jprb, 0.344166e+01_jprb, 0.342437e+01_jprb, 0.340672e+01_jprb &
40214  &, 0.338876e+01_jprb, 0.337049e+01_jprb, 0.335180e+01_jprb/)
40215 xcw( 922, :) = (/ &
40216  & 0.114498e+01_jprb, 0.118214e+01_jprb, 0.121963e+01_jprb, 0.125743e+01_jprb &
40217  &, 0.129551e+01_jprb, 0.133387e+01_jprb, 0.137248e+01_jprb &
40218  &, 0.141132e+01_jprb, 0.145037e+01_jprb, 0.148961e+01_jprb, 0.152903e+01_jprb &
40219  &, 0.156860e+01_jprb, 0.160830e+01_jprb, 0.164811e+01_jprb &
40220  &, 0.168803e+01_jprb, 0.172801e+01_jprb, 0.176805e+01_jprb, 0.180812e+01_jprb &
40221  &, 0.184821e+01_jprb, 0.188829e+01_jprb, 0.192835e+01_jprb &
40222  &, 0.196835e+01_jprb, 0.200830e+01_jprb, 0.204816e+01_jprb, 0.208792e+01_jprb &
40223  &, 0.212755e+01_jprb, 0.216704e+01_jprb, 0.220637e+01_jprb &
40224  &, 0.224551e+01_jprb, 0.228446e+01_jprb, 0.232320e+01_jprb, 0.236169e+01_jprb &
40225  &, 0.239993e+01_jprb, 0.243791e+01_jprb, 0.247560e+01_jprb &
40226  &, 0.251298e+01_jprb, 0.255004e+01_jprb, 0.258677e+01_jprb, 0.262314e+01_jprb &
40227  &, 0.265915e+01_jprb, 0.269477e+01_jprb, 0.273000e+01_jprb &
40228  &, 0.276482e+01_jprb, 0.279921e+01_jprb, 0.283317e+01_jprb, 0.286667e+01_jprb &
40229  &, 0.289971e+01_jprb, 0.293228e+01_jprb, 0.296437e+01_jprb &
40230  &, 0.299596e+01_jprb, 0.302702e+01_jprb, 0.305759e+01_jprb, 0.308761e+01_jprb &
40231  &, 0.311711e+01_jprb, 0.314606e+01_jprb, 0.317445e+01_jprb &
40232  &, 0.320227e+01_jprb, 0.322953e+01_jprb, 0.325621e+01_jprb, 0.328231e+01_jprb &
40233  &, 0.330782e+01_jprb, 0.333272e+01_jprb, 0.335701e+01_jprb &
40234  &, 0.338071e+01_jprb, 0.340378e+01_jprb, 0.342625e+01_jprb, 0.344808e+01_jprb &
40235  &, 0.346928e+01_jprb, 0.348986e+01_jprb, 0.350979e+01_jprb &
40236  &, 0.352911e+01_jprb, 0.354778e+01_jprb, 0.356578e+01_jprb, 0.358318e+01_jprb &
40237  &, 0.359991e+01_jprb, 0.361600e+01_jprb, 0.363143e+01_jprb &
40238  &, 0.364622e+01_jprb, 0.366035e+01_jprb, 0.367224e+01_jprb, 0.368667e+01_jprb &
40239  &, 0.369886e+01_jprb, 0.371040e+01_jprb, 0.372128e+01_jprb &
40240  &, 0.373155e+01_jprb, 0.374114e+01_jprb, 0.375010e+01_jprb, 0.375842e+01_jprb &
40241  &, 0.376609e+01_jprb, 0.377313e+01_jprb, 0.377952e+01_jprb &
40242  &, 0.378530e+01_jprb, 0.379043e+01_jprb, 0.379494e+01_jprb, 0.379882e+01_jprb &
40243  &, 0.380207e+01_jprb, 0.380472e+01_jprb, 0.380678e+01_jprb &
40244  &, 0.380819e+01_jprb, 0.380901e+01_jprb, 0.380924e+01_jprb, 0.380887e+01_jprb &
40245  &, 0.380791e+01_jprb, 0.380639e+01_jprb, 0.380424e+01_jprb &
40246  &, 0.380155e+01_jprb, 0.379827e+01_jprb, 0.379444e+01_jprb, 0.379006e+01_jprb &
40247  &, 0.378509e+01_jprb, 0.377959e+01_jprb, 0.377354e+01_jprb &
40248  &, 0.376697e+01_jprb, 0.375988e+01_jprb, 0.375225e+01_jprb, 0.374410e+01_jprb &
40249  &, 0.373546e+01_jprb, 0.372628e+01_jprb, 0.371665e+01_jprb &
40250  &, 0.370653e+01_jprb, 0.369589e+01_jprb, 0.368459e+01_jprb, 0.367323e+01_jprb &
40251  &, 0.366116e+01_jprb, 0.364870e+01_jprb, 0.363577e+01_jprb &
40252  &, 0.362239e+01_jprb, 0.360858e+01_jprb, 0.359436e+01_jprb, 0.357970e+01_jprb &
40253  &, 0.356462e+01_jprb, 0.354919e+01_jprb, 0.353332e+01_jprb &
40254  &, 0.351710e+01_jprb, 0.350047e+01_jprb, 0.348347e+01_jprb, 0.346611e+01_jprb &
40255  &, 0.344836e+01_jprb, 0.343035e+01_jprb, 0.341193e+01_jprb/)
40256 xcw( 923, :) = (/ &
40257  & 0.114574e+01_jprb, 0.118311e+01_jprb, 0.122081e+01_jprb, 0.125883e+01_jprb &
40258  &, 0.129715e+01_jprb, 0.133575e+01_jprb, 0.137460e+01_jprb &
40259  &, 0.141370e+01_jprb, 0.145301e+01_jprb, 0.149253e+01_jprb, 0.153223e+01_jprb &
40260  &, 0.157208e+01_jprb, 0.161208e+01_jprb, 0.165220e+01_jprb &
40261  &, 0.169242e+01_jprb, 0.173272e+01_jprb, 0.177308e+01_jprb, 0.181349e+01_jprb &
40262  &, 0.185391e+01_jprb, 0.189434e+01_jprb, 0.193474e+01_jprb &
40263  &, 0.197512e+01_jprb, 0.201543e+01_jprb, 0.205566e+01_jprb, 0.209579e+01_jprb &
40264  &, 0.213581e+01_jprb, 0.217569e+01_jprb, 0.221542e+01_jprb &
40265  &, 0.225497e+01_jprb, 0.229433e+01_jprb, 0.233348e+01_jprb, 0.237240e+01_jprb &
40266  &, 0.241107e+01_jprb, 0.244948e+01_jprb, 0.248761e+01_jprb &
40267  &, 0.252543e+01_jprb, 0.256294e+01_jprb, 0.260012e+01_jprb, 0.263696e+01_jprb &
40268  &, 0.267344e+01_jprb, 0.270953e+01_jprb, 0.274523e+01_jprb &
40269  &, 0.278053e+01_jprb, 0.281540e+01_jprb, 0.284985e+01_jprb, 0.288385e+01_jprb &
40270  &, 0.291739e+01_jprb, 0.295046e+01_jprb, 0.298304e+01_jprb &
40271  &, 0.301513e+01_jprb, 0.304673e+01_jprb, 0.307780e+01_jprb, 0.310835e+01_jprb &
40272  &, 0.313836e+01_jprb, 0.316783e+01_jprb, 0.319674e+01_jprb &
40273  &, 0.322510e+01_jprb, 0.325289e+01_jprb, 0.328011e+01_jprb, 0.330671e+01_jprb &
40274  &, 0.333277e+01_jprb, 0.335822e+01_jprb, 0.338307e+01_jprb &
40275  &, 0.340729e+01_jprb, 0.343092e+01_jprb, 0.345393e+01_jprb, 0.347630e+01_jprb &
40276  &, 0.349806e+01_jprb, 0.351920e+01_jprb, 0.353967e+01_jprb &
40277  &, 0.355954e+01_jprb, 0.357874e+01_jprb, 0.359731e+01_jprb, 0.361525e+01_jprb &
40278  &, 0.363254e+01_jprb, 0.364916e+01_jprb, 0.366515e+01_jprb &
40279  &, 0.368049e+01_jprb, 0.369518e+01_jprb, 0.370922e+01_jprb, 0.372260e+01_jprb &
40280  &, 0.373532e+01_jprb, 0.374743e+01_jprb, 0.375886e+01_jprb &
40281  &, 0.376964e+01_jprb, 0.377979e+01_jprb, 0.378927e+01_jprb, 0.379811e+01_jprb &
40282  &, 0.380634e+01_jprb, 0.381390e+01_jprb, 0.382082e+01_jprb &
40283  &, 0.382713e+01_jprb, 0.383278e+01_jprb, 0.383782e+01_jprb, 0.384222e+01_jprb &
40284  &, 0.384600e+01_jprb, 0.384914e+01_jprb, 0.385169e+01_jprb &
40285  &, 0.385362e+01_jprb, 0.385496e+01_jprb, 0.385568e+01_jprb, 0.385579e+01_jprb &
40286  &, 0.385531e+01_jprb, 0.385426e+01_jprb, 0.385262e+01_jprb &
40287  &, 0.385036e+01_jprb, 0.384759e+01_jprb, 0.384419e+01_jprb, 0.384026e+01_jprb &
40288  &, 0.383579e+01_jprb, 0.383075e+01_jprb, 0.382515e+01_jprb &
40289  &, 0.381902e+01_jprb, 0.381232e+01_jprb, 0.380513e+01_jprb, 0.379742e+01_jprb &
40290  &, 0.378915e+01_jprb, 0.378044e+01_jprb, 0.377118e+01_jprb &
40291  &, 0.376142e+01_jprb, 0.375118e+01_jprb, 0.374050e+01_jprb, 0.372928e+01_jprb &
40292  &, 0.371764e+01_jprb, 0.370551e+01_jprb, 0.369290e+01_jprb &
40293  &, 0.367989e+01_jprb, 0.366645e+01_jprb, 0.365253e+01_jprb, 0.363822e+01_jprb &
40294  &, 0.362348e+01_jprb, 0.360833e+01_jprb, 0.359280e+01_jprb &
40295  &, 0.357683e+01_jprb, 0.355954e+01_jprb, 0.354376e+01_jprb, 0.352671e+01_jprb &
40296  &, 0.350924e+01_jprb, 0.349145e+01_jprb, 0.347330e+01_jprb/)
40297 xcw( 924, :) = (/ &
40298  & 0.114650e+01_jprb, 0.118408e+01_jprb, 0.122200e+01_jprb, 0.126025e+01_jprb &
40299  &, 0.129881e+01_jprb, 0.133765e+01_jprb, 0.137675e+01_jprb &
40300  &, 0.141611e+01_jprb, 0.145569e+01_jprb, 0.149548e+01_jprb, 0.153546e+01_jprb &
40301  &, 0.157561e+01_jprb, 0.161590e+01_jprb, 0.165633e+01_jprb &
40302  &, 0.169686e+01_jprb, 0.173749e+01_jprb, 0.177818e+01_jprb, 0.181892e+01_jprb &
40303  &, 0.185968e+01_jprb, 0.190046e+01_jprb, 0.194122e+01_jprb &
40304  &, 0.198196e+01_jprb, 0.202264e+01_jprb, 0.206325e+01_jprb, 0.210377e+01_jprb &
40305  &, 0.214418e+01_jprb, 0.218445e+01_jprb, 0.222459e+01_jprb &
40306  &, 0.226455e+01_jprb, 0.230432e+01_jprb, 0.234390e+01_jprb, 0.238324e+01_jprb &
40307  &, 0.242235e+01_jprb, 0.246120e+01_jprb, 0.249977e+01_jprb &
40308  &, 0.253804e+01_jprb, 0.257602e+01_jprb, 0.261366e+01_jprb, 0.265096e+01_jprb &
40309  &, 0.268791e+01_jprb, 0.272448e+01_jprb, 0.276066e+01_jprb &
40310  &, 0.279645e+01_jprb, 0.283182e+01_jprb, 0.286676e+01_jprb, 0.290125e+01_jprb &
40311  &, 0.293529e+01_jprb, 0.296888e+01_jprb, 0.300197e+01_jprb &
40312  &, 0.303458e+01_jprb, 0.306669e+01_jprb, 0.309828e+01_jprb, 0.312936e+01_jprb &
40313  &, 0.315990e+01_jprb, 0.318991e+01_jprb, 0.321936e+01_jprb &
40314  &, 0.324825e+01_jprb, 0.327658e+01_jprb, 0.330433e+01_jprb, 0.333152e+01_jprb &
40315  &, 0.335810e+01_jprb, 0.338410e+01_jprb, 0.340950e+01_jprb &
40316  &, 0.343428e+01_jprb, 0.345843e+01_jprb, 0.348202e+01_jprb, 0.350495e+01_jprb &
40317  &, 0.352727e+01_jprb, 0.354896e+01_jprb, 0.357001e+01_jprb &
40318  &, 0.359041e+01_jprb, 0.361020e+01_jprb, 0.362933e+01_jprb, 0.364783e+01_jprb &
40319  &, 0.366565e+01_jprb, 0.368285e+01_jprb, 0.369941e+01_jprb &
40320  &, 0.371532e+01_jprb, 0.373055e+01_jprb, 0.374515e+01_jprb, 0.375908e+01_jprb &
40321  &, 0.377238e+01_jprb, 0.378504e+01_jprb, 0.379700e+01_jprb &
40322  &, 0.380835e+01_jprb, 0.381906e+01_jprb, 0.382908e+01_jprb, 0.383848e+01_jprb &
40323  &, 0.384725e+01_jprb, 0.385535e+01_jprb, 0.386281e+01_jprb &
40324  &, 0.386966e+01_jprb, 0.387585e+01_jprb, 0.388139e+01_jprb, 0.388633e+01_jprb &
40325  &, 0.389065e+01_jprb, 0.389433e+01_jprb, 0.389738e+01_jprb &
40326  &, 0.389985e+01_jprb, 0.390168e+01_jprb, 0.390289e+01_jprb, 0.390353e+01_jprb &
40327  &, 0.390355e+01_jprb, 0.390299e+01_jprb, 0.390184e+01_jprb &
40328  &, 0.390010e+01_jprb, 0.389777e+01_jprb, 0.389489e+01_jprb, 0.389143e+01_jprb &
40329  &, 0.388739e+01_jprb, 0.388282e+01_jprb, 0.387768e+01_jprb &
40330  &, 0.387196e+01_jprb, 0.386577e+01_jprb, 0.385898e+01_jprb, 0.385171e+01_jprb &
40331  &, 0.384389e+01_jprb, 0.383557e+01_jprb, 0.382674e+01_jprb &
40332  &, 0.381741e+01_jprb, 0.380760e+01_jprb, 0.379727e+01_jprb, 0.378646e+01_jprb &
40333  &, 0.377518e+01_jprb, 0.376345e+01_jprb, 0.375123e+01_jprb &
40334  &, 0.373856e+01_jprb, 0.372544e+01_jprb, 0.371189e+01_jprb, 0.369789e+01_jprb &
40335  &, 0.368351e+01_jprb, 0.366860e+01_jprb, 0.365347e+01_jprb &
40336  &, 0.363778e+01_jprb, 0.362180e+01_jprb, 0.360537e+01_jprb, 0.358856e+01_jprb &
40337  &, 0.357140e+01_jprb, 0.355385e+01_jprb, 0.353599e+01_jprb/)
40338 
40339 IF (lhook) CALL dr_hook('SU_MCICA:PART132',1,zhook_handle)
40340 END SUBROUTINE part132
40341 
40342 #ifdef VPP5000
40343 !OCL SCALAR
40344 #endif
40345 !option! -Nv -NO
40346 #ifdef RS6K
40347 @process nooptimize
40348 #endif
40349 !pgi$r opt=0
40350 SUBROUTINE part133
40351 
40352 REAL(KIND=JPRB) :: ZHOOK_HANDLE
40353 IF (lhook) CALL dr_hook('SU_MCICA:PART133',0,zhook_handle)
40354 
40355 xcw( 925, :) = (/ &
40356  & 0.114727e+01_jprb, 0.118506e+01_jprb, 0.122321e+01_jprb, 0.126169e+01_jprb &
40357  &, 0.130048e+01_jprb, 0.133957e+01_jprb, 0.137893e+01_jprb &
40358  &, 0.141854e+01_jprb, 0.145840e+01_jprb, 0.149847e+01_jprb, 0.153873e+01_jprb &
40359  &, 0.157917e+01_jprb, 0.161977e+01_jprb, 0.166051e+01_jprb &
40360  &, 0.170136e+01_jprb, 0.174231e+01_jprb, 0.178333e+01_jprb, 0.182441e+01_jprb &
40361  &, 0.186552e+01_jprb, 0.190665e+01_jprb, 0.194778e+01_jprb &
40362  &, 0.198888e+01_jprb, 0.202994e+01_jprb, 0.207093e+01_jprb, 0.211184e+01_jprb &
40363  &, 0.215264e+01_jprb, 0.219333e+01_jprb, 0.223387e+01_jprb &
40364  &, 0.227425e+01_jprb, 0.231445e+01_jprb, 0.235445e+01_jprb, 0.239423e+01_jprb &
40365  &, 0.243378e+01_jprb, 0.247307e+01_jprb, 0.251210e+01_jprb &
40366  &, 0.255083e+01_jprb, 0.258926e+01_jprb, 0.262737e+01_jprb, 0.266515e+01_jprb &
40367  &, 0.270258e+01_jprb, 0.273963e+01_jprb, 0.277630e+01_jprb &
40368  &, 0.281259e+01_jprb, 0.284846e+01_jprb, 0.288390e+01_jprb, 0.291890e+01_jprb &
40369  &, 0.295346e+01_jprb, 0.298756e+01_jprb, 0.302117e+01_jprb &
40370  &, 0.305430e+01_jprb, 0.308694e+01_jprb, 0.311907e+01_jprb, 0.315068e+01_jprb &
40371  &, 0.318176e+01_jprb, 0.321231e+01_jprb, 0.324230e+01_jprb &
40372  &, 0.327175e+01_jprb, 0.330062e+01_jprb, 0.332893e+01_jprb, 0.335667e+01_jprb &
40373  &, 0.338380e+01_jprb, 0.341035e+01_jprb, 0.343632e+01_jprb &
40374  &, 0.346166e+01_jprb, 0.348640e+01_jprb, 0.351053e+01_jprb, 0.353403e+01_jprb &
40375  &, 0.355692e+01_jprb, 0.357916e+01_jprb, 0.360080e+01_jprb &
40376  &, 0.362177e+01_jprb, 0.364213e+01_jprb, 0.366182e+01_jprb, 0.368090e+01_jprb &
40377  &, 0.369931e+01_jprb, 0.371709e+01_jprb, 0.373419e+01_jprb &
40378  &, 0.375068e+01_jprb, 0.376650e+01_jprb, 0.378166e+01_jprb, 0.379618e+01_jprb &
40379  &, 0.381004e+01_jprb, 0.382325e+01_jprb, 0.383578e+01_jprb &
40380  &, 0.384770e+01_jprb, 0.385895e+01_jprb, 0.386955e+01_jprb, 0.387950e+01_jprb &
40381  &, 0.388882e+01_jprb, 0.389750e+01_jprb, 0.390551e+01_jprb &
40382  &, 0.391288e+01_jprb, 0.391962e+01_jprb, 0.392575e+01_jprb, 0.393121e+01_jprb &
40383  &, 0.393608e+01_jprb, 0.394027e+01_jprb, 0.394387e+01_jprb &
40384  &, 0.394685e+01_jprb, 0.394916e+01_jprb, 0.395070e+01_jprb, 0.395211e+01_jprb &
40385  &, 0.395267e+01_jprb, 0.395261e+01_jprb, 0.395196e+01_jprb &
40386  &, 0.395073e+01_jprb, 0.394889e+01_jprb, 0.394650e+01_jprb, 0.394349e+01_jprb &
40387  &, 0.393998e+01_jprb, 0.393584e+01_jprb, 0.393119e+01_jprb &
40388  &, 0.392594e+01_jprb, 0.392017e+01_jprb, 0.391390e+01_jprb, 0.390705e+01_jprb &
40389  &, 0.389968e+01_jprb, 0.389177e+01_jprb, 0.388338e+01_jprb &
40390  &, 0.387449e+01_jprb, 0.386507e+01_jprb, 0.385513e+01_jprb, 0.384474e+01_jprb &
40391  &, 0.383388e+01_jprb, 0.382251e+01_jprb, 0.381071e+01_jprb &
40392  &, 0.379838e+01_jprb, 0.378565e+01_jprb, 0.377250e+01_jprb, 0.375883e+01_jprb &
40393  &, 0.374477e+01_jprb, 0.373028e+01_jprb, 0.371539e+01_jprb &
40394  &, 0.370006e+01_jprb, 0.368437e+01_jprb, 0.366828e+01_jprb, 0.365174e+01_jprb &
40395  &, 0.363484e+01_jprb, 0.361761e+01_jprb, 0.359999e+01_jprb/)
40396 xcw( 926, :) = (/ &
40397  & 0.114805e+01_jprb, 0.118606e+01_jprb, 0.122443e+01_jprb, 0.126314e+01_jprb &
40398  &, 0.130217e+01_jprb, 0.134151e+01_jprb, 0.138113e+01_jprb &
40399  &, 0.142101e+01_jprb, 0.146113e+01_jprb, 0.150149e+01_jprb, 0.154204e+01_jprb &
40400  &, 0.158278e+01_jprb, 0.162368e+01_jprb, 0.166473e+01_jprb &
40401  &, 0.170591e+01_jprb, 0.174718e+01_jprb, 0.178854e+01_jprb, 0.182997e+01_jprb &
40402  &, 0.187143e+01_jprb, 0.191292e+01_jprb, 0.195442e+01_jprb &
40403  &, 0.199589e+01_jprb, 0.203733e+01_jprb, 0.207871e+01_jprb, 0.212001e+01_jprb &
40404  &, 0.216122e+01_jprb, 0.220231e+01_jprb, 0.224327e+01_jprb &
40405  &, 0.228407e+01_jprb, 0.232470e+01_jprb, 0.236513e+01_jprb, 0.240536e+01_jprb &
40406  &, 0.244535e+01_jprb, 0.248510e+01_jprb, 0.252458e+01_jprb &
40407  &, 0.256378e+01_jprb, 0.260268e+01_jprb, 0.264127e+01_jprb, 0.267953e+01_jprb &
40408  &, 0.271744e+01_jprb, 0.275499e+01_jprb, 0.279216e+01_jprb &
40409  &, 0.282894e+01_jprb, 0.286531e+01_jprb, 0.290128e+01_jprb, 0.293680e+01_jprb &
40410  &, 0.297188e+01_jprb, 0.300649e+01_jprb, 0.304064e+01_jprb &
40411  &, 0.307430e+01_jprb, 0.310748e+01_jprb, 0.314014e+01_jprb, 0.317230e+01_jprb &
40412  &, 0.320393e+01_jprb, 0.323501e+01_jprb, 0.326558e+01_jprb &
40413  &, 0.329557e+01_jprb, 0.332501e+01_jprb, 0.335388e+01_jprb, 0.338218e+01_jprb &
40414  &, 0.340989e+01_jprb, 0.343702e+01_jprb, 0.346353e+01_jprb &
40415  &, 0.348946e+01_jprb, 0.351478e+01_jprb, 0.353948e+01_jprb, 0.356355e+01_jprb &
40416  &, 0.358702e+01_jprb, 0.360985e+01_jprb, 0.363206e+01_jprb &
40417  &, 0.365363e+01_jprb, 0.367456e+01_jprb, 0.369484e+01_jprb, 0.371449e+01_jprb &
40418  &, 0.373348e+01_jprb, 0.375186e+01_jprb, 0.376955e+01_jprb &
40419  &, 0.378660e+01_jprb, 0.380302e+01_jprb, 0.381874e+01_jprb, 0.383384e+01_jprb &
40420  &, 0.384788e+01_jprb, 0.386209e+01_jprb, 0.387521e+01_jprb &
40421  &, 0.388769e+01_jprb, 0.389953e+01_jprb, 0.391072e+01_jprb, 0.392123e+01_jprb &
40422  &, 0.393111e+01_jprb, 0.394036e+01_jprb, 0.394893e+01_jprb &
40423  &, 0.395689e+01_jprb, 0.396417e+01_jprb, 0.397086e+01_jprb, 0.397689e+01_jprb &
40424  &, 0.398229e+01_jprb, 0.398705e+01_jprb, 0.399117e+01_jprb &
40425  &, 0.399472e+01_jprb, 0.399759e+01_jprb, 0.399984e+01_jprb, 0.400155e+01_jprb &
40426  &, 0.400263e+01_jprb, 0.400309e+01_jprb, 0.400295e+01_jprb &
40427  &, 0.400223e+01_jprb, 0.400094e+01_jprb, 0.399902e+01_jprb, 0.399656e+01_jprb &
40428  &, 0.399351e+01_jprb, 0.398987e+01_jprb, 0.398571e+01_jprb &
40429  &, 0.398095e+01_jprb, 0.397567e+01_jprb, 0.396984e+01_jprb, 0.396327e+01_jprb &
40430  &, 0.395652e+01_jprb, 0.394908e+01_jprb, 0.394111e+01_jprb &
40431  &, 0.393267e+01_jprb, 0.392365e+01_jprb, 0.391421e+01_jprb, 0.390422e+01_jprb &
40432  &, 0.389374e+01_jprb, 0.388281e+01_jprb, 0.387137e+01_jprb &
40433  &, 0.385947e+01_jprb, 0.384710e+01_jprb, 0.383430e+01_jprb, 0.382103e+01_jprb &
40434  &, 0.380730e+01_jprb, 0.379320e+01_jprb, 0.377864e+01_jprb &
40435  &, 0.376368e+01_jprb, 0.374829e+01_jprb, 0.373250e+01_jprb, 0.371631e+01_jprb &
40436  &, 0.369976e+01_jprb, 0.368280e+01_jprb, 0.366544e+01_jprb/)
40437 xcw( 927, :) = (/ &
40438  & 0.114883e+01_jprb, 0.118706e+01_jprb, 0.122566e+01_jprb, 0.126460e+01_jprb &
40439  &, 0.130388e+01_jprb, 0.134347e+01_jprb, 0.138335e+01_jprb &
40440  &, 0.142350e+01_jprb, 0.146391e+01_jprb, 0.150454e+01_jprb, 0.154539e+01_jprb &
40441  &, 0.158643e+01_jprb, 0.162765e+01_jprb, 0.166901e+01_jprb &
40442  &, 0.171051e+01_jprb, 0.175212e+01_jprb, 0.179382e+01_jprb, 0.183559e+01_jprb &
40443  &, 0.187742e+01_jprb, 0.191927e+01_jprb, 0.196113e+01_jprb &
40444  &, 0.200299e+01_jprb, 0.204482e+01_jprb, 0.208659e+01_jprb, 0.212829e+01_jprb &
40445  &, 0.216991e+01_jprb, 0.221141e+01_jprb, 0.225279e+01_jprb &
40446  &, 0.229402e+01_jprb, 0.233508e+01_jprb, 0.237596e+01_jprb, 0.241663e+01_jprb &
40447  &, 0.245708e+01_jprb, 0.249729e+01_jprb, 0.253724e+01_jprb &
40448  &, 0.257691e+01_jprb, 0.261629e+01_jprb, 0.265536e+01_jprb, 0.269411e+01_jprb &
40449  &, 0.273252e+01_jprb, 0.277057e+01_jprb, 0.280824e+01_jprb &
40450  &, 0.284553e+01_jprb, 0.288242e+01_jprb, 0.291889e+01_jprb, 0.295494e+01_jprb &
40451  &, 0.299055e+01_jprb, 0.302571e+01_jprb, 0.306038e+01_jprb &
40452  &, 0.309459e+01_jprb, 0.312831e+01_jprb, 0.316153e+01_jprb, 0.319423e+01_jprb &
40453  &, 0.322641e+01_jprb, 0.325808e+01_jprb, 0.328918e+01_jprb &
40454  &, 0.331976e+01_jprb, 0.334977e+01_jprb, 0.337921e+01_jprb, 0.340807e+01_jprb &
40455  &, 0.343636e+01_jprb, 0.346406e+01_jprb, 0.349117e+01_jprb &
40456  &, 0.351768e+01_jprb, 0.354358e+01_jprb, 0.356886e+01_jprb, 0.359354e+01_jprb &
40457  &, 0.361760e+01_jprb, 0.364101e+01_jprb, 0.366382e+01_jprb &
40458  &, 0.368598e+01_jprb, 0.370733e+01_jprb, 0.372839e+01_jprb, 0.374862e+01_jprb &
40459  &, 0.376822e+01_jprb, 0.378717e+01_jprb, 0.380546e+01_jprb &
40460  &, 0.382311e+01_jprb, 0.384010e+01_jprb, 0.385647e+01_jprb, 0.387215e+01_jprb &
40461  &, 0.388718e+01_jprb, 0.390156e+01_jprb, 0.391530e+01_jprb &
40462  &, 0.392837e+01_jprb, 0.394079e+01_jprb, 0.395255e+01_jprb, 0.396367e+01_jprb &
40463  &, 0.397412e+01_jprb, 0.398392e+01_jprb, 0.399309e+01_jprb &
40464  &, 0.400164e+01_jprb, 0.400949e+01_jprb, 0.401673e+01_jprb, 0.402333e+01_jprb &
40465  &, 0.402928e+01_jprb, 0.403462e+01_jprb, 0.403932e+01_jprb &
40466  &, 0.404341e+01_jprb, 0.404686e+01_jprb, 0.404957e+01_jprb, 0.405193e+01_jprb &
40467  &, 0.405351e+01_jprb, 0.405454e+01_jprb, 0.405494e+01_jprb &
40468  &, 0.405470e+01_jprb, 0.405394e+01_jprb, 0.405254e+01_jprb, 0.405060e+01_jprb &
40469  &, 0.404806e+01_jprb, 0.404494e+01_jprb, 0.404124e+01_jprb &
40470  &, 0.403700e+01_jprb, 0.403217e+01_jprb, 0.402683e+01_jprb, 0.402076e+01_jprb &
40471  &, 0.401450e+01_jprb, 0.400750e+01_jprb, 0.400001e+01_jprb &
40472  &, 0.399200e+01_jprb, 0.398345e+01_jprb, 0.397443e+01_jprb, 0.396484e+01_jprb &
40473  &, 0.395482e+01_jprb, 0.394428e+01_jprb, 0.393324e+01_jprb &
40474  &, 0.392177e+01_jprb, 0.390983e+01_jprb, 0.389740e+01_jprb, 0.388449e+01_jprb &
40475  &, 0.387118e+01_jprb, 0.385743e+01_jprb, 0.384320e+01_jprb &
40476  &, 0.382863e+01_jprb, 0.381357e+01_jprb, 0.379809e+01_jprb, 0.378227e+01_jprb &
40477  &, 0.376602e+01_jprb, 0.374934e+01_jprb, 0.373234e+01_jprb/)
40478 xcw( 928, :) = (/ &
40479  & 0.114963e+01_jprb, 0.118808e+01_jprb, 0.122690e+01_jprb, 0.126609e+01_jprb &
40480  &, 0.130561e+01_jprb, 0.134545e+01_jprb, 0.138560e+01_jprb &
40481  &, 0.142602e+01_jprb, 0.146671e+01_jprb, 0.150763e+01_jprb, 0.154878e+01_jprb &
40482  &, 0.159013e+01_jprb, 0.163165e+01_jprb, 0.167334e+01_jprb &
40483  &, 0.171517e+01_jprb, 0.175712e+01_jprb, 0.179917e+01_jprb, 0.184129e+01_jprb &
40484  &, 0.188348e+01_jprb, 0.192570e+01_jprb, 0.196794e+01_jprb &
40485  &, 0.201018e+01_jprb, 0.205240e+01_jprb, 0.209457e+01_jprb, 0.213668e+01_jprb &
40486  &, 0.217871e+01_jprb, 0.222064e+01_jprb, 0.226244e+01_jprb &
40487  &, 0.230411e+01_jprb, 0.234561e+01_jprb, 0.238693e+01_jprb, 0.242806e+01_jprb &
40488  &, 0.246897e+01_jprb, 0.250964e+01_jprb, 0.255007e+01_jprb &
40489  &, 0.259022e+01_jprb, 0.263008e+01_jprb, 0.266965e+01_jprb, 0.270889e+01_jprb &
40490  &, 0.274780e+01_jprb, 0.278636e+01_jprb, 0.282454e+01_jprb &
40491  &, 0.286236e+01_jprb, 0.289977e+01_jprb, 0.293673e+01_jprb, 0.297335e+01_jprb &
40492  &, 0.300950e+01_jprb, 0.304519e+01_jprb, 0.308042e+01_jprb &
40493  &, 0.311518e+01_jprb, 0.314944e+01_jprb, 0.318323e+01_jprb, 0.321649e+01_jprb &
40494  &, 0.324925e+01_jprb, 0.328147e+01_jprb, 0.331315e+01_jprb &
40495  &, 0.334431e+01_jprb, 0.337488e+01_jprb, 0.340491e+01_jprb, 0.343436e+01_jprb &
40496  &, 0.346325e+01_jprb, 0.349153e+01_jprb, 0.351923e+01_jprb &
40497  &, 0.354633e+01_jprb, 0.357269e+01_jprb, 0.359872e+01_jprb, 0.362399e+01_jprb &
40498  &, 0.364802e+01_jprb, 0.367267e+01_jprb, 0.369607e+01_jprb &
40499  &, 0.371884e+01_jprb, 0.374097e+01_jprb, 0.376246e+01_jprb, 0.378331e+01_jprb &
40500  &, 0.380351e+01_jprb, 0.382306e+01_jprb, 0.384198e+01_jprb &
40501  &, 0.386022e+01_jprb, 0.387784e+01_jprb, 0.389479e+01_jprb, 0.391107e+01_jprb &
40502  &, 0.392668e+01_jprb, 0.394172e+01_jprb, 0.395604e+01_jprb &
40503  &, 0.396972e+01_jprb, 0.398272e+01_jprb, 0.399510e+01_jprb, 0.400681e+01_jprb &
40504  &, 0.401788e+01_jprb, 0.402827e+01_jprb, 0.403804e+01_jprb &
40505  &, 0.404714e+01_jprb, 0.405562e+01_jprb, 0.406342e+01_jprb, 0.407061e+01_jprb &
40506  &, 0.407715e+01_jprb, 0.408305e+01_jprb, 0.408835e+01_jprb &
40507  &, 0.409299e+01_jprb, 0.409700e+01_jprb, 0.410041e+01_jprb, 0.410318e+01_jprb &
40508  &, 0.410534e+01_jprb, 0.410689e+01_jprb, 0.410779e+01_jprb &
40509  &, 0.410818e+01_jprb, 0.410791e+01_jprb, 0.410710e+01_jprb, 0.410565e+01_jprb &
40510  &, 0.410348e+01_jprb, 0.410101e+01_jprb, 0.409784e+01_jprb &
40511  &, 0.409412e+01_jprb, 0.408981e+01_jprb, 0.408494e+01_jprb, 0.407953e+01_jprb &
40512  &, 0.407358e+01_jprb, 0.406708e+01_jprb, 0.406004e+01_jprb &
40513  &, 0.405253e+01_jprb, 0.404442e+01_jprb, 0.403583e+01_jprb, 0.402672e+01_jprb &
40514  &, 0.401712e+01_jprb, 0.400704e+01_jprb, 0.399641e+01_jprb &
40515  &, 0.398539e+01_jprb, 0.397385e+01_jprb, 0.396181e+01_jprb, 0.394933e+01_jprb &
40516  &, 0.393640e+01_jprb, 0.392301e+01_jprb, 0.390920e+01_jprb &
40517  &, 0.389492e+01_jprb, 0.388026e+01_jprb, 0.386518e+01_jprb, 0.384969e+01_jprb &
40518  &, 0.383375e+01_jprb, 0.381745e+01_jprb, 0.380074e+01_jprb/)
40519 xcw( 929, :) = (/ &
40520  & 0.115043e+01_jprb, 0.118911e+01_jprb, 0.122816e+01_jprb, 0.126759e+01_jprb &
40521  &, 0.130736e+01_jprb, 0.134746e+01_jprb, 0.138787e+01_jprb &
40522  &, 0.142857e+01_jprb, 0.146954e+01_jprb, 0.151076e+01_jprb, 0.155221e+01_jprb &
40523  &, 0.159386e+01_jprb, 0.163571e+01_jprb, 0.167773e+01_jprb &
40524  &, 0.171989e+01_jprb, 0.176218e+01_jprb, 0.180458e+01_jprb, 0.184706e+01_jprb &
40525  &, 0.188961e+01_jprb, 0.193221e+01_jprb, 0.197483e+01_jprb &
40526  &, 0.201746e+01_jprb, 0.206008e+01_jprb, 0.210266e+01_jprb, 0.214518e+01_jprb &
40527  &, 0.218763e+01_jprb, 0.222998e+01_jprb, 0.227222e+01_jprb &
40528  &, 0.231432e+01_jprb, 0.235628e+01_jprb, 0.239806e+01_jprb, 0.243964e+01_jprb &
40529  &, 0.248102e+01_jprb, 0.252217e+01_jprb, 0.256307e+01_jprb &
40530  &, 0.260371e+01_jprb, 0.264407e+01_jprb, 0.268414e+01_jprb, 0.272389e+01_jprb &
40531  &, 0.276330e+01_jprb, 0.280237e+01_jprb, 0.284108e+01_jprb &
40532  &, 0.287942e+01_jprb, 0.291736e+01_jprb, 0.295490e+01_jprb, 0.299203e+01_jprb &
40533  &, 0.302872e+01_jprb, 0.306496e+01_jprb, 0.310075e+01_jprb &
40534  &, 0.313607e+01_jprb, 0.317090e+01_jprb, 0.320525e+01_jprb, 0.323909e+01_jprb &
40535  &, 0.327241e+01_jprb, 0.330523e+01_jprb, 0.333749e+01_jprb &
40536  &, 0.336923e+01_jprb, 0.340040e+01_jprb, 0.343101e+01_jprb, 0.346106e+01_jprb &
40537  &, 0.349054e+01_jprb, 0.351942e+01_jprb, 0.354774e+01_jprb &
40538  &, 0.357544e+01_jprb, 0.360251e+01_jprb, 0.362903e+01_jprb, 0.365493e+01_jprb &
40539  &, 0.368018e+01_jprb, 0.370484e+01_jprb, 0.372885e+01_jprb &
40540  &, 0.375222e+01_jprb, 0.377499e+01_jprb, 0.379708e+01_jprb, 0.381856e+01_jprb &
40541  &, 0.383937e+01_jprb, 0.385947e+01_jprb, 0.387908e+01_jprb &
40542  &, 0.389795e+01_jprb, 0.391619e+01_jprb, 0.393375e+01_jprb, 0.395067e+01_jprb &
40543  &, 0.396692e+01_jprb, 0.398253e+01_jprb, 0.399747e+01_jprb &
40544  &, 0.401177e+01_jprb, 0.402540e+01_jprb, 0.403838e+01_jprb, 0.405059e+01_jprb &
40545  &, 0.406236e+01_jprb, 0.407338e+01_jprb, 0.408376e+01_jprb &
40546  &, 0.409347e+01_jprb, 0.410252e+01_jprb, 0.411096e+01_jprb, 0.411873e+01_jprb &
40547  &, 0.412588e+01_jprb, 0.413238e+01_jprb, 0.413822e+01_jprb &
40548  &, 0.414347e+01_jprb, 0.414805e+01_jprb, 0.415203e+01_jprb, 0.415540e+01_jprb &
40549  &, 0.415813e+01_jprb, 0.416024e+01_jprb, 0.416175e+01_jprb &
40550  &, 0.416266e+01_jprb, 0.416295e+01_jprb, 0.416265e+01_jprb, 0.416176e+01_jprb &
40551  &, 0.416026e+01_jprb, 0.415821e+01_jprb, 0.415559e+01_jprb &
40552  &, 0.415236e+01_jprb, 0.414855e+01_jprb, 0.414421e+01_jprb, 0.413932e+01_jprb &
40553  &, 0.413385e+01_jprb, 0.412787e+01_jprb, 0.412130e+01_jprb &
40554  &, 0.411425e+01_jprb, 0.410665e+01_jprb, 0.409851e+01_jprb, 0.408990e+01_jprb &
40555  &, 0.408073e+01_jprb, 0.407109e+01_jprb, 0.406094e+01_jprb &
40556  &, 0.405028e+01_jprb, 0.403921e+01_jprb, 0.402758e+01_jprb, 0.401556e+01_jprb &
40557  &, 0.400301e+01_jprb, 0.399001e+01_jprb, 0.397658e+01_jprb &
40558  &, 0.396273e+01_jprb, 0.394843e+01_jprb, 0.393370e+01_jprb, 0.391855e+01_jprb &
40559  &, 0.390295e+01_jprb, 0.388653e+01_jprb, 0.387066e+01_jprb/)
40560 xcw( 930, :) = (/ &
40561  & 0.115125e+01_jprb, 0.119014e+01_jprb, 0.122944e+01_jprb, 0.126911e+01_jprb &
40562  &, 0.130913e+01_jprb, 0.134950e+01_jprb, 0.139018e+01_jprb &
40563  &, 0.143116e+01_jprb, 0.147241e+01_jprb, 0.151393e+01_jprb, 0.155568e+01_jprb &
40564  &, 0.159765e+01_jprb, 0.163982e+01_jprb, 0.168216e+01_jprb &
40565  &, 0.172467e+01_jprb, 0.176731e+01_jprb, 0.181006e+01_jprb, 0.185291e+01_jprb &
40566  &, 0.189583e+01_jprb, 0.193881e+01_jprb, 0.198182e+01_jprb &
40567  &, 0.202484e+01_jprb, 0.206786e+01_jprb, 0.211085e+01_jprb, 0.215379e+01_jprb &
40568  &, 0.219667e+01_jprb, 0.223945e+01_jprb, 0.228213e+01_jprb &
40569  &, 0.232469e+01_jprb, 0.236709e+01_jprb, 0.240933e+01_jprb, 0.245139e+01_jprb &
40570  &, 0.249324e+01_jprb, 0.253487e+01_jprb, 0.257626e+01_jprb &
40571  &, 0.261739e+01_jprb, 0.265825e+01_jprb, 0.269882e+01_jprb, 0.273908e+01_jprb &
40572  &, 0.277902e+01_jprb, 0.281862e+01_jprb, 0.285786e+01_jprb &
40573  &, 0.289673e+01_jprb, 0.293522e+01_jprb, 0.297330e+01_jprb, 0.301097e+01_jprb &
40574  &, 0.304822e+01_jprb, 0.308503e+01_jprb, 0.312137e+01_jprb &
40575  &, 0.315726e+01_jprb, 0.319267e+01_jprb, 0.322760e+01_jprb, 0.326202e+01_jprb &
40576  &, 0.329594e+01_jprb, 0.332934e+01_jprb, 0.336220e+01_jprb &
40577  &, 0.339452e+01_jprb, 0.342630e+01_jprb, 0.345752e+01_jprb, 0.348818e+01_jprb &
40578  &, 0.351826e+01_jprb, 0.354777e+01_jprb, 0.357669e+01_jprb &
40579  &, 0.360500e+01_jprb, 0.363273e+01_jprb, 0.365984e+01_jprb, 0.368635e+01_jprb &
40580  &, 0.371224e+01_jprb, 0.373751e+01_jprb, 0.376215e+01_jprb &
40581  &, 0.378617e+01_jprb, 0.380955e+01_jprb, 0.383230e+01_jprb, 0.385435e+01_jprb &
40582  &, 0.387583e+01_jprb, 0.389665e+01_jprb, 0.391680e+01_jprb &
40583  &, 0.393623e+01_jprb, 0.395518e+01_jprb, 0.397337e+01_jprb, 0.399089e+01_jprb &
40584  &, 0.400782e+01_jprb, 0.402405e+01_jprb, 0.403963e+01_jprb &
40585  &, 0.405455e+01_jprb, 0.406881e+01_jprb, 0.408232e+01_jprb, 0.409536e+01_jprb &
40586  &, 0.410768e+01_jprb, 0.411929e+01_jprb, 0.413028e+01_jprb &
40587  &, 0.414061e+01_jprb, 0.415029e+01_jprb, 0.415932e+01_jprb, 0.416771e+01_jprb &
40588  &, 0.417549e+01_jprb, 0.418258e+01_jprb, 0.418904e+01_jprb &
40589  &, 0.419488e+01_jprb, 0.420008e+01_jprb, 0.420461e+01_jprb, 0.420856e+01_jprb &
40590  &, 0.421188e+01_jprb, 0.421457e+01_jprb, 0.421669e+01_jprb &
40591  &, 0.421814e+01_jprb, 0.421901e+01_jprb, 0.421928e+01_jprb, 0.421896e+01_jprb &
40592  &, 0.421803e+01_jprb, 0.421650e+01_jprb, 0.421439e+01_jprb &
40593  &, 0.421172e+01_jprb, 0.420846e+01_jprb, 0.420468e+01_jprb, 0.420020e+01_jprb &
40594  &, 0.419537e+01_jprb, 0.418983e+01_jprb, 0.418379e+01_jprb &
40595  &, 0.417722e+01_jprb, 0.417014e+01_jprb, 0.416252e+01_jprb, 0.415432e+01_jprb &
40596  &, 0.414567e+01_jprb, 0.413648e+01_jprb, 0.412677e+01_jprb &
40597  &, 0.411661e+01_jprb, 0.410592e+01_jprb, 0.409476e+01_jprb, 0.408316e+01_jprb &
40598  &, 0.407103e+01_jprb, 0.405849e+01_jprb, 0.404545e+01_jprb &
40599  &, 0.403199e+01_jprb, 0.401807e+01_jprb, 0.400372e+01_jprb, 0.398894e+01_jprb &
40600  &, 0.397376e+01_jprb, 0.395813e+01_jprb, 0.394215e+01_jprb/)
40601 xcw( 931, :) = (/ &
40602  & 0.115207e+01_jprb, 0.119120e+01_jprb, 0.123073e+01_jprb, 0.127064e+01_jprb &
40603  &, 0.131093e+01_jprb, 0.135155e+01_jprb, 0.139251e+01_jprb &
40604  &, 0.143377e+01_jprb, 0.147532e+01_jprb, 0.151713e+01_jprb, 0.155920e+01_jprb &
40605  &, 0.160148e+01_jprb, 0.164398e+01_jprb, 0.168666e+01_jprb &
40606  &, 0.172951e+01_jprb, 0.177250e+01_jprb, 0.181561e+01_jprb, 0.185883e+01_jprb &
40607  &, 0.190213e+01_jprb, 0.194549e+01_jprb, 0.198890e+01_jprb &
40608  &, 0.203232e+01_jprb, 0.207575e+01_jprb, 0.211916e+01_jprb, 0.216252e+01_jprb &
40609  &, 0.220583e+01_jprb, 0.224905e+01_jprb, 0.229218e+01_jprb &
40610  &, 0.233519e+01_jprb, 0.237806e+01_jprb, 0.242077e+01_jprb, 0.246330e+01_jprb &
40611  &, 0.250563e+01_jprb, 0.254775e+01_jprb, 0.258964e+01_jprb &
40612  &, 0.263127e+01_jprb, 0.267264e+01_jprb, 0.271373e+01_jprb, 0.275451e+01_jprb &
40613  &, 0.279497e+01_jprb, 0.283510e+01_jprb, 0.287488e+01_jprb &
40614  &, 0.291430e+01_jprb, 0.295334e+01_jprb, 0.299197e+01_jprb, 0.303021e+01_jprb &
40615  &, 0.306803e+01_jprb, 0.310540e+01_jprb, 0.314232e+01_jprb &
40616  &, 0.317544e+01_jprb, 0.321479e+01_jprb, 0.325030e+01_jprb, 0.328531e+01_jprb &
40617  &, 0.331983e+01_jprb, 0.335382e+01_jprb, 0.338729e+01_jprb &
40618  &, 0.342023e+01_jprb, 0.345260e+01_jprb, 0.348445e+01_jprb, 0.351572e+01_jprb &
40619  &, 0.354642e+01_jprb, 0.357655e+01_jprb, 0.360610e+01_jprb &
40620  &, 0.363505e+01_jprb, 0.366339e+01_jprb, 0.369116e+01_jprb, 0.371829e+01_jprb &
40621  &, 0.374482e+01_jprb, 0.377073e+01_jprb, 0.379598e+01_jprb &
40622  &, 0.382067e+01_jprb, 0.384469e+01_jprb, 0.386808e+01_jprb, 0.389081e+01_jprb &
40623  &, 0.391293e+01_jprb, 0.393434e+01_jprb, 0.395518e+01_jprb &
40624  &, 0.397534e+01_jprb, 0.399483e+01_jprb, 0.401367e+01_jprb, 0.403188e+01_jprb &
40625  &, 0.404943e+01_jprb, 0.406631e+01_jprb, 0.408253e+01_jprb &
40626  &, 0.409807e+01_jprb, 0.411299e+01_jprb, 0.412724e+01_jprb, 0.414082e+01_jprb &
40627  &, 0.415375e+01_jprb, 0.416602e+01_jprb, 0.417765e+01_jprb &
40628  &, 0.418862e+01_jprb, 0.419893e+01_jprb, 0.420860e+01_jprb, 0.421737e+01_jprb &
40629  &, 0.422598e+01_jprb, 0.423371e+01_jprb, 0.424077e+01_jprb &
40630  &, 0.424722e+01_jprb, 0.425306e+01_jprb, 0.425823e+01_jprb, 0.426274e+01_jprb &
40631  &, 0.426666e+01_jprb, 0.426999e+01_jprb, 0.427263e+01_jprb &
40632  &, 0.427471e+01_jprb, 0.427617e+01_jprb, 0.427703e+01_jprb, 0.427726e+01_jprb &
40633  &, 0.427682e+01_jprb, 0.427592e+01_jprb, 0.427439e+01_jprb &
40634  &, 0.427230e+01_jprb, 0.426957e+01_jprb, 0.426630e+01_jprb, 0.426248e+01_jprb &
40635  &, 0.425807e+01_jprb, 0.425309e+01_jprb, 0.424760e+01_jprb &
40636  &, 0.424153e+01_jprb, 0.423490e+01_jprb, 0.422782e+01_jprb, 0.422015e+01_jprb &
40637  &, 0.421193e+01_jprb, 0.420326e+01_jprb, 0.419402e+01_jprb &
40638  &, 0.418432e+01_jprb, 0.417413e+01_jprb, 0.416342e+01_jprb, 0.415220e+01_jprb &
40639  &, 0.414055e+01_jprb, 0.412844e+01_jprb, 0.411582e+01_jprb &
40640  &, 0.410277e+01_jprb, 0.408926e+01_jprb, 0.407536e+01_jprb, 0.406096e+01_jprb &
40641  &, 0.404616e+01_jprb, 0.403091e+01_jprb, 0.401522e+01_jprb/)
40642 
40643 IF (lhook) CALL dr_hook('SU_MCICA:PART133',1,zhook_handle)
40644 END SUBROUTINE part133
40645 
40646 #ifdef VPP5000
40647 !OCL SCALAR
40648 #endif
40649 !option! -Nv -NO
40650 #ifdef RS6K
40651 @process nooptimize
40652 #endif
40653 !pgi$r opt=0
40654 SUBROUTINE part134
40655 
40656 REAL(KIND=JPRB) :: ZHOOK_HANDLE
40657 IF (lhook) CALL dr_hook('SU_MCICA:PART134',0,zhook_handle)
40658 
40659 xcw( 932, :) = (/ &
40660  & 0.115290e+01_jprb, 0.119226e+01_jprb, 0.123203e+01_jprb, 0.127220e+01_jprb &
40661  &, 0.131274e+01_jprb, 0.135364e+01_jprb, 0.139487e+01_jprb &
40662  &, 0.143642e+01_jprb, 0.147826e+01_jprb, 0.152038e+01_jprb, 0.156276e+01_jprb &
40663  &, 0.160537e+01_jprb, 0.164819e+01_jprb, 0.169121e+01_jprb &
40664  &, 0.173441e+01_jprb, 0.177776e+01_jprb, 0.182124e+01_jprb, 0.186483e+01_jprb &
40665  &, 0.190851e+01_jprb, 0.195227e+01_jprb, 0.199607e+01_jprb &
40666  &, 0.203990e+01_jprb, 0.208374e+01_jprb, 0.212758e+01_jprb, 0.217137e+01_jprb &
40667  &, 0.221512e+01_jprb, 0.225879e+01_jprb, 0.230237e+01_jprb &
40668  &, 0.234584e+01_jprb, 0.238917e+01_jprb, 0.243236e+01_jprb, 0.247537e+01_jprb &
40669  &, 0.251820e+01_jprb, 0.256082e+01_jprb, 0.260321e+01_jprb &
40670  &, 0.264535e+01_jprb, 0.268724e+01_jprb, 0.272885e+01_jprb, 0.277016e+01_jprb &
40671  &, 0.281116e+01_jprb, 0.285184e+01_jprb, 0.289216e+01_jprb &
40672  &, 0.293214e+01_jprb, 0.297172e+01_jprb, 0.301094e+01_jprb, 0.304974e+01_jprb &
40673  &, 0.308813e+01_jprb, 0.312608e+01_jprb, 0.316359e+01_jprb &
40674  &, 0.320065e+01_jprb, 0.323724e+01_jprb, 0.327334e+01_jprb, 0.330897e+01_jprb &
40675  &, 0.334409e+01_jprb, 0.337869e+01_jprb, 0.341278e+01_jprb &
40676  &, 0.344632e+01_jprb, 0.347934e+01_jprb, 0.351181e+01_jprb, 0.354370e+01_jprb &
40677  &, 0.357505e+01_jprb, 0.360581e+01_jprb, 0.363599e+01_jprb &
40678  &, 0.366557e+01_jprb, 0.369457e+01_jprb, 0.372297e+01_jprb, 0.375076e+01_jprb &
40679  &, 0.377793e+01_jprb, 0.380449e+01_jprb, 0.383042e+01_jprb &
40680  &, 0.385574e+01_jprb, 0.388041e+01_jprb, 0.390446e+01_jprb, 0.392785e+01_jprb &
40681  &, 0.395062e+01_jprb, 0.397273e+01_jprb, 0.399421e+01_jprb &
40682  &, 0.401503e+01_jprb, 0.403519e+01_jprb, 0.405466e+01_jprb, 0.407354e+01_jprb &
40683  &, 0.409174e+01_jprb, 0.410928e+01_jprb, 0.412617e+01_jprb &
40684  &, 0.414240e+01_jprb, 0.415794e+01_jprb, 0.417286e+01_jprb, 0.418709e+01_jprb &
40685  &, 0.420069e+01_jprb, 0.421361e+01_jprb, 0.422589e+01_jprb &
40686  &, 0.423751e+01_jprb, 0.424844e+01_jprb, 0.425876e+01_jprb, 0.426842e+01_jprb &
40687  &, 0.427742e+01_jprb, 0.428581e+01_jprb, 0.429349e+01_jprb &
40688  &, 0.430059e+01_jprb, 0.430702e+01_jprb, 0.431281e+01_jprb, 0.431798e+01_jprb &
40689  &, 0.432251e+01_jprb, 0.432642e+01_jprb, 0.432971e+01_jprb &
40690  &, 0.433236e+01_jprb, 0.433443e+01_jprb, 0.433586e+01_jprb, 0.433669e+01_jprb &
40691  &, 0.433677e+01_jprb, 0.433656e+01_jprb, 0.433563e+01_jprb &
40692  &, 0.433404e+01_jprb, 0.433190e+01_jprb, 0.432922e+01_jprb, 0.432594e+01_jprb &
40693  &, 0.432206e+01_jprb, 0.431766e+01_jprb, 0.431270e+01_jprb &
40694  &, 0.430715e+01_jprb, 0.430107e+01_jprb, 0.429445e+01_jprb, 0.428734e+01_jprb &
40695  &, 0.427961e+01_jprb, 0.427144e+01_jprb, 0.426273e+01_jprb &
40696  &, 0.425351e+01_jprb, 0.424374e+01_jprb, 0.423355e+01_jprb, 0.422279e+01_jprb &
40697  &, 0.421160e+01_jprb, 0.419993e+01_jprb, 0.418775e+01_jprb &
40698  &, 0.417513e+01_jprb, 0.416210e+01_jprb, 0.414855e+01_jprb, 0.413457e+01_jprb &
40699  &, 0.412017e+01_jprb, 0.410531e+01_jprb, 0.409007e+01_jprb/)
40700 xcw( 933, :) = (/ &
40701  & 0.115375e+01_jprb, 0.119334e+01_jprb, 0.123335e+01_jprb, 0.127377e+01_jprb &
40702  &, 0.131458e+01_jprb, 0.135574e+01_jprb, 0.139726e+01_jprb &
40703  &, 0.143910e+01_jprb, 0.148124e+01_jprb, 0.152367e+01_jprb, 0.156636e+01_jprb &
40704  &, 0.160930e+01_jprb, 0.165246e+01_jprb, 0.169582e+01_jprb &
40705  &, 0.173938e+01_jprb, 0.178309e+01_jprb, 0.182694e+01_jprb, 0.187091e+01_jprb &
40706  &, 0.191498e+01_jprb, 0.195913e+01_jprb, 0.200334e+01_jprb &
40707  &, 0.204759e+01_jprb, 0.209185e+01_jprb, 0.213611e+01_jprb, 0.218035e+01_jprb &
40708  &, 0.222454e+01_jprb, 0.226866e+01_jprb, 0.231268e+01_jprb &
40709  &, 0.235664e+01_jprb, 0.240045e+01_jprb, 0.244412e+01_jprb, 0.248763e+01_jprb &
40710  &, 0.253095e+01_jprb, 0.257408e+01_jprb, 0.261698e+01_jprb &
40711  &, 0.265964e+01_jprb, 0.270205e+01_jprb, 0.274419e+01_jprb, 0.278604e+01_jprb &
40712  &, 0.282760e+01_jprb, 0.286882e+01_jprb, 0.290970e+01_jprb &
40713  &, 0.295023e+01_jprb, 0.299040e+01_jprb, 0.303018e+01_jprb, 0.306957e+01_jprb &
40714  &, 0.310853e+01_jprb, 0.314707e+01_jprb, 0.318519e+01_jprb &
40715  &, 0.322284e+01_jprb, 0.326003e+01_jprb, 0.329676e+01_jprb, 0.333299e+01_jprb &
40716  &, 0.336873e+01_jprb, 0.340396e+01_jprb, 0.343867e+01_jprb &
40717  &, 0.347285e+01_jprb, 0.350650e+01_jprb, 0.353960e+01_jprb, 0.357214e+01_jprb &
40718  &, 0.360412e+01_jprb, 0.363553e+01_jprb, 0.366636e+01_jprb &
40719  &, 0.369662e+01_jprb, 0.372627e+01_jprb, 0.375533e+01_jprb, 0.378377e+01_jprb &
40720  &, 0.381158e+01_jprb, 0.383884e+01_jprb, 0.386536e+01_jprb &
40721  &, 0.389142e+01_jprb, 0.391675e+01_jprb, 0.394146e+01_jprb, 0.396555e+01_jprb &
40722  &, 0.398898e+01_jprb, 0.401173e+01_jprb, 0.403391e+01_jprb &
40723  &, 0.405541e+01_jprb, 0.407625e+01_jprb, 0.409643e+01_jprb, 0.411595e+01_jprb &
40724  &, 0.413482e+01_jprb, 0.415304e+01_jprb, 0.417060e+01_jprb &
40725  &, 0.418749e+01_jprb, 0.420373e+01_jprb, 0.421928e+01_jprb, 0.423420e+01_jprb &
40726  &, 0.424847e+01_jprb, 0.426205e+01_jprb, 0.427500e+01_jprb &
40727  &, 0.428729e+01_jprb, 0.429892e+01_jprb, 0.430988e+01_jprb, 0.432017e+01_jprb &
40728  &, 0.432985e+01_jprb, 0.433887e+01_jprb, 0.434723e+01_jprb &
40729  &, 0.435494e+01_jprb, 0.436203e+01_jprb, 0.436846e+01_jprb, 0.437427e+01_jprb &
40730  &, 0.437943e+01_jprb, 0.438397e+01_jprb, 0.438790e+01_jprb &
40731  &, 0.439118e+01_jprb, 0.439384e+01_jprb, 0.439589e+01_jprb, 0.439735e+01_jprb &
40732  &, 0.439818e+01_jprb, 0.439842e+01_jprb, 0.439806e+01_jprb &
40733  &, 0.439708e+01_jprb, 0.439555e+01_jprb, 0.439339e+01_jprb, 0.439052e+01_jprb &
40734  &, 0.438739e+01_jprb, 0.438353e+01_jprb, 0.437911e+01_jprb &
40735  &, 0.437415e+01_jprb, 0.436862e+01_jprb, 0.436257e+01_jprb, 0.435593e+01_jprb &
40736  &, 0.434877e+01_jprb, 0.434111e+01_jprb, 0.433248e+01_jprb &
40737  &, 0.432408e+01_jprb, 0.431492e+01_jprb, 0.430522e+01_jprb, 0.429494e+01_jprb &
40738  &, 0.428422e+01_jprb, 0.427302e+01_jprb, 0.426130e+01_jprb &
40739  &, 0.424913e+01_jprb, 0.423630e+01_jprb, 0.422344e+01_jprb, 0.420988e+01_jprb &
40740  &, 0.419590e+01_jprb, 0.418126e+01_jprb, 0.416662e+01_jprb/)
40741 xcw( 934, :) = (/ &
40742  & 0.115460e+01_jprb, 0.119443e+01_jprb, 0.123469e+01_jprb, 0.127536e+01_jprb &
40743  &, 0.131643e+01_jprb, 0.135788e+01_jprb, 0.139968e+01_jprb &
40744  &, 0.144181e+01_jprb, 0.148426e+01_jprb, 0.152700e+01_jprb, 0.157002e+01_jprb &
40745  &, 0.161329e+01_jprb, 0.165679e+01_jprb, 0.170050e+01_jprb &
40746  &, 0.174441e+01_jprb, 0.178849e+01_jprb, 0.183272e+01_jprb, 0.187707e+01_jprb &
40747  &, 0.192154e+01_jprb, 0.196609e+01_jprb, 0.201072e+01_jprb &
40748  &, 0.205538e+01_jprb, 0.210007e+01_jprb, 0.214477e+01_jprb, 0.218945e+01_jprb &
40749  &, 0.223409e+01_jprb, 0.227868e+01_jprb, 0.232319e+01_jprb &
40750  &, 0.236760e+01_jprb, 0.241190e+01_jprb, 0.245606e+01_jprb, 0.250006e+01_jprb &
40751  &, 0.254390e+01_jprb, 0.258753e+01_jprb, 0.263095e+01_jprb &
40752  &, 0.267415e+01_jprb, 0.271709e+01_jprb, 0.275978e+01_jprb, 0.280217e+01_jprb &
40753  &, 0.284427e+01_jprb, 0.288606e+01_jprb, 0.292751e+01_jprb &
40754  &, 0.296862e+01_jprb, 0.300936e+01_jprb, 0.304973e+01_jprb, 0.308969e+01_jprb &
40755  &, 0.312927e+01_jprb, 0.316841e+01_jprb, 0.320712e+01_jprb &
40756  &, 0.324539e+01_jprb, 0.328321e+01_jprb, 0.332055e+01_jprb, 0.335741e+01_jprb &
40757  &, 0.339377e+01_jprb, 0.342964e+01_jprb, 0.346499e+01_jprb &
40758  &, 0.349982e+01_jprb, 0.353411e+01_jprb, 0.356785e+01_jprb, 0.360106e+01_jprb &
40759  &, 0.363370e+01_jprb, 0.366577e+01_jprb, 0.369725e+01_jprb &
40760  &, 0.372816e+01_jprb, 0.375849e+01_jprb, 0.378822e+01_jprb, 0.381734e+01_jprb &
40761  &, 0.384586e+01_jprb, 0.387376e+01_jprb, 0.390105e+01_jprb &
40762  &, 0.392769e+01_jprb, 0.395373e+01_jprb, 0.397914e+01_jprb, 0.400387e+01_jprb &
40763  &, 0.402800e+01_jprb, 0.405148e+01_jprb, 0.407432e+01_jprb &
40764  &, 0.409648e+01_jprb, 0.411802e+01_jprb, 0.413888e+01_jprb, 0.415911e+01_jprb &
40765  &, 0.417867e+01_jprb, 0.419757e+01_jprb, 0.421583e+01_jprb &
40766  &, 0.423341e+01_jprb, 0.425033e+01_jprb, 0.426661e+01_jprb, 0.428220e+01_jprb &
40767  &, 0.429714e+01_jprb, 0.431141e+01_jprb, 0.432504e+01_jprb &
40768  &, 0.433801e+01_jprb, 0.435030e+01_jprb, 0.436195e+01_jprb, 0.437293e+01_jprb &
40769  &, 0.438326e+01_jprb, 0.439294e+01_jprb, 0.440196e+01_jprb &
40770  &, 0.441035e+01_jprb, 0.441810e+01_jprb, 0.442518e+01_jprb, 0.443165e+01_jprb &
40771  &, 0.443746e+01_jprb, 0.444265e+01_jprb, 0.444719e+01_jprb &
40772  &, 0.445116e+01_jprb, 0.445443e+01_jprb, 0.445713e+01_jprb, 0.445923e+01_jprb &
40773  &, 0.446066e+01_jprb, 0.446149e+01_jprb, 0.446177e+01_jprb &
40774  &, 0.446143e+01_jprb, 0.446048e+01_jprb, 0.445890e+01_jprb, 0.445680e+01_jprb &
40775  &, 0.445410e+01_jprb, 0.445081e+01_jprb, 0.444691e+01_jprb &
40776  &, 0.444241e+01_jprb, 0.443762e+01_jprb, 0.443208e+01_jprb, 0.442604e+01_jprb &
40777  &, 0.441942e+01_jprb, 0.441207e+01_jprb, 0.440456e+01_jprb &
40778  &, 0.439636e+01_jprb, 0.438766e+01_jprb, 0.437847e+01_jprb, 0.436869e+01_jprb &
40779  &, 0.435847e+01_jprb, 0.434776e+01_jprb, 0.433652e+01_jprb &
40780  &, 0.432483e+01_jprb, 0.431265e+01_jprb, 0.430006e+01_jprb, 0.428696e+01_jprb &
40781  &, 0.427336e+01_jprb, 0.425942e+01_jprb, 0.424495e+01_jprb/)
40782 xcw( 935, :) = (/ &
40783  & 0.115546e+01_jprb, 0.119553e+01_jprb, 0.123604e+01_jprb, 0.127698e+01_jprb &
40784  &, 0.131832e+01_jprb, 0.136004e+01_jprb, 0.140213e+01_jprb &
40785  &, 0.144456e+01_jprb, 0.148732e+01_jprb, 0.153038e+01_jprb, 0.157372e+01_jprb &
40786  &, 0.161732e+01_jprb, 0.166117e+01_jprb, 0.170524e+01_jprb &
40787  &, 0.174951e+01_jprb, 0.179397e+01_jprb, 0.183858e+01_jprb, 0.188333e+01_jprb &
40788  &, 0.192819e+01_jprb, 0.197315e+01_jprb, 0.201819e+01_jprb &
40789  &, 0.206328e+01_jprb, 0.210841e+01_jprb, 0.215355e+01_jprb, 0.219868e+01_jprb &
40790  &, 0.224379e+01_jprb, 0.228884e+01_jprb, 0.233383e+01_jprb &
40791  &, 0.237873e+01_jprb, 0.242351e+01_jprb, 0.246817e+01_jprb, 0.251268e+01_jprb &
40792  &, 0.255703e+01_jprb, 0.260119e+01_jprb, 0.264514e+01_jprb &
40793  &, 0.268887e+01_jprb, 0.273236e+01_jprb, 0.277559e+01_jprb, 0.281855e+01_jprb &
40794  &, 0.286121e+01_jprb, 0.290357e+01_jprb, 0.294559e+01_jprb &
40795  &, 0.298729e+01_jprb, 0.302862e+01_jprb, 0.306958e+01_jprb, 0.311016e+01_jprb &
40796  &, 0.315032e+01_jprb, 0.319008e+01_jprb, 0.322942e+01_jprb &
40797  &, 0.326831e+01_jprb, 0.330675e+01_jprb, 0.334472e+01_jprb, 0.338222e+01_jprb &
40798  &, 0.341922e+01_jprb, 0.345574e+01_jprb, 0.349173e+01_jprb &
40799  &, 0.352722e+01_jprb, 0.356216e+01_jprb, 0.359658e+01_jprb, 0.363045e+01_jprb &
40800  &, 0.366376e+01_jprb, 0.369649e+01_jprb, 0.372866e+01_jprb &
40801  &, 0.376024e+01_jprb, 0.379125e+01_jprb, 0.382168e+01_jprb, 0.385149e+01_jprb &
40802  &, 0.388069e+01_jprb, 0.390928e+01_jprb, 0.393723e+01_jprb &
40803  &, 0.396462e+01_jprb, 0.399134e+01_jprb, 0.401743e+01_jprb, 0.404290e+01_jprb &
40804  &, 0.406771e+01_jprb, 0.409191e+01_jprb, 0.411545e+01_jprb &
40805  &, 0.413832e+01_jprb, 0.416057e+01_jprb, 0.418214e+01_jprb, 0.420304e+01_jprb &
40806  &, 0.422332e+01_jprb, 0.424293e+01_jprb, 0.426190e+01_jprb &
40807  &, 0.428019e+01_jprb, 0.429777e+01_jprb, 0.431477e+01_jprb, 0.433106e+01_jprb &
40808  &, 0.434672e+01_jprb, 0.436169e+01_jprb, 0.437602e+01_jprb &
40809  &, 0.438966e+01_jprb, 0.440268e+01_jprb, 0.441500e+01_jprb, 0.442669e+01_jprb &
40810  &, 0.443772e+01_jprb, 0.444808e+01_jprb, 0.445781e+01_jprb &
40811  &, 0.446684e+01_jprb, 0.447526e+01_jprb, 0.448305e+01_jprb, 0.449019e+01_jprb &
40812  &, 0.449664e+01_jprb, 0.450251e+01_jprb, 0.450775e+01_jprb &
40813  &, 0.451231e+01_jprb, 0.451629e+01_jprb, 0.451961e+01_jprb, 0.452233e+01_jprb &
40814  &, 0.452443e+01_jprb, 0.452591e+01_jprb, 0.452680e+01_jprb &
40815  &, 0.452707e+01_jprb, 0.452673e+01_jprb, 0.452580e+01_jprb, 0.452430e+01_jprb &
40816  &, 0.452214e+01_jprb, 0.451954e+01_jprb, 0.451627e+01_jprb &
40817  &, 0.451245e+01_jprb, 0.450810e+01_jprb, 0.450312e+01_jprb, 0.449765e+01_jprb &
40818  &, 0.449159e+01_jprb, 0.448502e+01_jprb, 0.447784e+01_jprb &
40819  &, 0.447019e+01_jprb, 0.446202e+01_jprb, 0.445336e+01_jprb, 0.444411e+01_jprb &
40820  &, 0.443441e+01_jprb, 0.442421e+01_jprb, 0.441348e+01_jprb &
40821  &, 0.440223e+01_jprb, 0.439036e+01_jprb, 0.437844e+01_jprb, 0.436581e+01_jprb &
40822  &, 0.435268e+01_jprb, 0.433913e+01_jprb, 0.432518e+01_jprb/)
40823 xcw( 936, :) = (/ &
40824  & 0.115634e+01_jprb, 0.119665e+01_jprb, 0.123741e+01_jprb, 0.127861e+01_jprb &
40825  &, 0.132022e+01_jprb, 0.136223e+01_jprb, 0.140461e+01_jprb &
40826  &, 0.144735e+01_jprb, 0.149041e+01_jprb, 0.153380e+01_jprb, 0.157747e+01_jprb &
40827  &, 0.162142e+01_jprb, 0.166562e+01_jprb, 0.171005e+01_jprb &
40828  &, 0.175469e+01_jprb, 0.179952e+01_jprb, 0.184452e+01_jprb, 0.188966e+01_jprb &
40829  &, 0.193494e+01_jprb, 0.198032e+01_jprb, 0.202578e+01_jprb &
40830  &, 0.207130e+01_jprb, 0.211687e+01_jprb, 0.216246e+01_jprb, 0.220805e+01_jprb &
40831  &, 0.225362e+01_jprb, 0.229915e+01_jprb, 0.234462e+01_jprb &
40832  &, 0.239001e+01_jprb, 0.243530e+01_jprb, 0.248047e+01_jprb, 0.252550e+01_jprb &
40833  &, 0.257037e+01_jprb, 0.261505e+01_jprb, 0.265955e+01_jprb &
40834  &, 0.270382e+01_jprb, 0.274787e+01_jprb, 0.279166e+01_jprb, 0.283518e+01_jprb &
40835  &, 0.287842e+01_jprb, 0.292136e+01_jprb, 0.296397e+01_jprb &
40836  &, 0.300625e+01_jprb, 0.304818e+01_jprb, 0.308975e+01_jprb, 0.313093e+01_jprb &
40837  &, 0.317173e+01_jprb, 0.321210e+01_jprb, 0.325207e+01_jprb &
40838  &, 0.329159e+01_jprb, 0.333067e+01_jprb, 0.336929e+01_jprb, 0.340743e+01_jprb &
40839  &, 0.344510e+01_jprb, 0.348226e+01_jprb, 0.351893e+01_jprb &
40840  &, 0.355508e+01_jprb, 0.359071e+01_jprb, 0.362579e+01_jprb, 0.366034e+01_jprb &
40841  &, 0.369433e+01_jprb, 0.372776e+01_jprb, 0.376061e+01_jprb &
40842  &, 0.379291e+01_jprb, 0.382460e+01_jprb, 0.385571e+01_jprb, 0.388622e+01_jprb &
40843  &, 0.391614e+01_jprb, 0.394543e+01_jprb, 0.397411e+01_jprb &
40844  &, 0.400203e+01_jprb, 0.402963e+01_jprb, 0.405645e+01_jprb, 0.408261e+01_jprb &
40845  &, 0.410815e+01_jprb, 0.413304e+01_jprb, 0.415731e+01_jprb &
40846  &, 0.418090e+01_jprb, 0.420388e+01_jprb, 0.422616e+01_jprb, 0.424780e+01_jprb &
40847  &, 0.426880e+01_jprb, 0.428915e+01_jprb, 0.430881e+01_jprb &
40848  &, 0.432781e+01_jprb, 0.434618e+01_jprb, 0.436385e+01_jprb, 0.438088e+01_jprb &
40849  &, 0.439723e+01_jprb, 0.441294e+01_jprb, 0.442796e+01_jprb &
40850  &, 0.444235e+01_jprb, 0.445606e+01_jprb, 0.446910e+01_jprb, 0.448148e+01_jprb &
40851  &, 0.449321e+01_jprb, 0.450429e+01_jprb, 0.451471e+01_jprb &
40852  &, 0.452447e+01_jprb, 0.453359e+01_jprb, 0.454200e+01_jprb, 0.454986e+01_jprb &
40853  &, 0.455705e+01_jprb, 0.456360e+01_jprb, 0.456950e+01_jprb &
40854  &, 0.457475e+01_jprb, 0.457937e+01_jprb, 0.458338e+01_jprb, 0.458678e+01_jprb &
40855  &, 0.458952e+01_jprb, 0.459164e+01_jprb, 0.459321e+01_jprb &
40856  &, 0.459411e+01_jprb, 0.459440e+01_jprb, 0.459414e+01_jprb, 0.459325e+01_jprb &
40857  &, 0.459176e+01_jprb, 0.458973e+01_jprb, 0.458706e+01_jprb &
40858  &, 0.458390e+01_jprb, 0.458009e+01_jprb, 0.457576e+01_jprb, 0.457077e+01_jprb &
40859  &, 0.456535e+01_jprb, 0.455936e+01_jprb, 0.455281e+01_jprb &
40860  &, 0.454484e+01_jprb, 0.453806e+01_jprb, 0.452990e+01_jprb, 0.452126e+01_jprb &
40861  &, 0.451204e+01_jprb, 0.450238e+01_jprb, 0.449218e+01_jprb &
40862  &, 0.448145e+01_jprb, 0.447028e+01_jprb, 0.445862e+01_jprb, 0.444649e+01_jprb &
40863  &, 0.443386e+01_jprb, 0.442079e+01_jprb, 0.440726e+01_jprb/)
40864 xcw( 937, :) = (/ &
40865  & 0.115722e+01_jprb, 0.119778e+01_jprb, 0.123880e+01_jprb, 0.128027e+01_jprb &
40866  &, 0.132216e+01_jprb, 0.136445e+01_jprb, 0.140713e+01_jprb &
40867  &, 0.145017e+01_jprb, 0.149356e+01_jprb, 0.153726e+01_jprb, 0.158128e+01_jprb &
40868  &, 0.162557e+01_jprb, 0.167012e+01_jprb, 0.171492e+01_jprb &
40869  &, 0.175994e+01_jprb, 0.180515e+01_jprb, 0.185054e+01_jprb, 0.189609e+01_jprb &
40870  &, 0.194178e+01_jprb, 0.198758e+01_jprb, 0.203347e+01_jprb &
40871  &, 0.207944e+01_jprb, 0.212546e+01_jprb, 0.217150e+01_jprb, 0.221756e+01_jprb &
40872  &, 0.226361e+01_jprb, 0.230962e+01_jprb, 0.235558e+01_jprb &
40873  &, 0.240148e+01_jprb, 0.244727e+01_jprb, 0.249295e+01_jprb, 0.253851e+01_jprb &
40874  &, 0.258391e+01_jprb, 0.262914e+01_jprb, 0.267418e+01_jprb &
40875  &, 0.271901e+01_jprb, 0.276361e+01_jprb, 0.280798e+01_jprb, 0.285208e+01_jprb &
40876  &, 0.289590e+01_jprb, 0.293942e+01_jprb, 0.298264e+01_jprb &
40877  &, 0.302553e+01_jprb, 0.306807e+01_jprb, 0.311025e+01_jprb, 0.315206e+01_jprb &
40878  &, 0.319348e+01_jprb, 0.323449e+01_jprb, 0.327509e+01_jprb &
40879  &, 0.331527e+01_jprb, 0.335500e+01_jprb, 0.339427e+01_jprb, 0.343308e+01_jprb &
40880  &, 0.347141e+01_jprb, 0.350925e+01_jprb, 0.354659e+01_jprb &
40881  &, 0.358341e+01_jprb, 0.361973e+01_jprb, 0.365551e+01_jprb, 0.369075e+01_jprb &
40882  &, 0.372543e+01_jprb, 0.375956e+01_jprb, 0.379312e+01_jprb &
40883  &, 0.382612e+01_jprb, 0.385853e+01_jprb, 0.389034e+01_jprb, 0.392158e+01_jprb &
40884  &, 0.395218e+01_jprb, 0.398223e+01_jprb, 0.401163e+01_jprb &
40885  &, 0.404043e+01_jprb, 0.406860e+01_jprb, 0.409615e+01_jprb, 0.412304e+01_jprb &
40886  &, 0.414932e+01_jprb, 0.417496e+01_jprb, 0.419994e+01_jprb &
40887  &, 0.422420e+01_jprb, 0.424796e+01_jprb, 0.427102e+01_jprb, 0.429339e+01_jprb &
40888  &, 0.431514e+01_jprb, 0.433620e+01_jprb, 0.435661e+01_jprb &
40889  &, 0.437627e+01_jprb, 0.439543e+01_jprb, 0.441387e+01_jprb, 0.443162e+01_jprb &
40890  &, 0.444873e+01_jprb, 0.446517e+01_jprb, 0.448092e+01_jprb &
40891  &, 0.449593e+01_jprb, 0.451047e+01_jprb, 0.452426e+01_jprb, 0.453738e+01_jprb &
40892  &, 0.454982e+01_jprb, 0.456161e+01_jprb, 0.457278e+01_jprb &
40893  &, 0.458325e+01_jprb, 0.459308e+01_jprb, 0.460224e+01_jprb, 0.461078e+01_jprb &
40894  &, 0.461867e+01_jprb, 0.462590e+01_jprb, 0.463251e+01_jprb &
40895  &, 0.463847e+01_jprb, 0.464376e+01_jprb, 0.464847e+01_jprb, 0.465254e+01_jprb &
40896  &, 0.465598e+01_jprb, 0.465863e+01_jprb, 0.466098e+01_jprb &
40897  &, 0.466258e+01_jprb, 0.466347e+01_jprb, 0.466390e+01_jprb, 0.466366e+01_jprb &
40898  &, 0.466286e+01_jprb, 0.466146e+01_jprb, 0.465943e+01_jprb &
40899  &, 0.465684e+01_jprb, 0.465370e+01_jprb, 0.464994e+01_jprb, 0.464567e+01_jprb &
40900  &, 0.464080e+01_jprb, 0.463536e+01_jprb, 0.462940e+01_jprb &
40901  &, 0.462291e+01_jprb, 0.461584e+01_jprb, 0.460826e+01_jprb, 0.460019e+01_jprb &
40902  &, 0.459154e+01_jprb, 0.458238e+01_jprb, 0.457273e+01_jprb &
40903  &, 0.456255e+01_jprb, 0.455192e+01_jprb, 0.454073e+01_jprb, 0.452913e+01_jprb &
40904  &, 0.451689e+01_jprb, 0.450440e+01_jprb, 0.449137e+01_jprb/)
40905 xcw( 938, :) = (/ &
40906  & 0.115812e+01_jprb, 0.119893e+01_jprb, 0.124021e+01_jprb, 0.128194e+01_jprb &
40907  &, 0.132412e+01_jprb, 0.136670e+01_jprb, 0.140968e+01_jprb &
40908  &, 0.145303e+01_jprb, 0.149674e+01_jprb, 0.154078e+01_jprb, 0.158513e+01_jprb &
40909  &, 0.162978e+01_jprb, 0.167469e+01_jprb, 0.171986e+01_jprb &
40910  &, 0.176526e+01_jprb, 0.181087e+01_jprb, 0.185666e+01_jprb, 0.190261e+01_jprb &
40911  &, 0.194872e+01_jprb, 0.199495e+01_jprb, 0.204128e+01_jprb &
40912  &, 0.208770e+01_jprb, 0.213417e+01_jprb, 0.218068e+01_jprb, 0.222721e+01_jprb &
40913  &, 0.227374e+01_jprb, 0.232025e+01_jprb, 0.236671e+01_jprb &
40914  &, 0.241311e+01_jprb, 0.245942e+01_jprb, 0.250564e+01_jprb, 0.255172e+01_jprb &
40915  &, 0.259767e+01_jprb, 0.264344e+01_jprb, 0.268904e+01_jprb &
40916  &, 0.273443e+01_jprb, 0.277962e+01_jprb, 0.282456e+01_jprb, 0.286925e+01_jprb &
40917  &, 0.291366e+01_jprb, 0.295779e+01_jprb, 0.300161e+01_jprb &
40918  &, 0.304511e+01_jprb, 0.308827e+01_jprb, 0.313109e+01_jprb, 0.317353e+01_jprb &
40919  &, 0.321558e+01_jprb, 0.325725e+01_jprb, 0.329851e+01_jprb &
40920  &, 0.333934e+01_jprb, 0.337974e+01_jprb, 0.341967e+01_jprb, 0.345916e+01_jprb &
40921  &, 0.349817e+01_jprb, 0.353669e+01_jprb, 0.357473e+01_jprb &
40922  &, 0.361222e+01_jprb, 0.364926e+01_jprb, 0.368573e+01_jprb, 0.372167e+01_jprb &
40923  &, 0.375707e+01_jprb, 0.379192e+01_jprb, 0.382620e+01_jprb &
40924  &, 0.385992e+01_jprb, 0.389305e+01_jprb, 0.392560e+01_jprb, 0.395757e+01_jprb &
40925  &, 0.398893e+01_jprb, 0.401969e+01_jprb, 0.404983e+01_jprb &
40926  &, 0.407938e+01_jprb, 0.410828e+01_jprb, 0.413657e+01_jprb, 0.416422e+01_jprb &
40927  &, 0.419125e+01_jprb, 0.421763e+01_jprb, 0.424336e+01_jprb &
40928  &, 0.426846e+01_jprb, 0.429291e+01_jprb, 0.431671e+01_jprb, 0.433985e+01_jprb &
40929  &, 0.436235e+01_jprb, 0.438417e+01_jprb, 0.440533e+01_jprb &
40930  &, 0.442583e+01_jprb, 0.444569e+01_jprb, 0.446486e+01_jprb, 0.448336e+01_jprb &
40931  &, 0.450122e+01_jprb, 0.451841e+01_jprb, 0.453492e+01_jprb &
40932  &, 0.455080e+01_jprb, 0.456598e+01_jprb, 0.458049e+01_jprb, 0.459434e+01_jprb &
40933  &, 0.460758e+01_jprb, 0.462011e+01_jprb, 0.463197e+01_jprb &
40934  &, 0.464321e+01_jprb, 0.465377e+01_jprb, 0.466366e+01_jprb, 0.467294e+01_jprb &
40935  &, 0.468141e+01_jprb, 0.468952e+01_jprb, 0.469682e+01_jprb &
40936  &, 0.470351e+01_jprb, 0.470953e+01_jprb, 0.471493e+01_jprb, 0.471969e+01_jprb &
40937  &, 0.472385e+01_jprb, 0.472718e+01_jprb, 0.473022e+01_jprb &
40938  &, 0.473253e+01_jprb, 0.473414e+01_jprb, 0.473520e+01_jprb, 0.473548e+01_jprb &
40939  &, 0.473548e+01_jprb, 0.473474e+01_jprb, 0.473336e+01_jprb &
40940  &, 0.473147e+01_jprb, 0.472893e+01_jprb, 0.472581e+01_jprb, 0.472218e+01_jprb &
40941  &, 0.471794e+01_jprb, 0.471312e+01_jprb, 0.470779e+01_jprb &
40942  &, 0.470186e+01_jprb, 0.469540e+01_jprb, 0.468842e+01_jprb, 0.468090e+01_jprb &
40943  &, 0.467284e+01_jprb, 0.466427e+01_jprb, 0.465514e+01_jprb &
40944  &, 0.464553e+01_jprb, 0.463547e+01_jprb, 0.462484e+01_jprb, 0.461373e+01_jprb &
40945  &, 0.460210e+01_jprb, 0.459008e+01_jprb, 0.457751e+01_jprb/)
40946 
40947 IF (lhook) CALL dr_hook('SU_MCICA:PART134',1,zhook_handle)
40948 END SUBROUTINE part134
40949 
40950 #ifdef VPP5000
40951 !OCL SCALAR
40952 #endif
40953 !option! -Nv -NO
40954 #ifdef RS6K
40955 @process nooptimize
40956 #endif
40957 !pgi$r opt=0
40958 SUBROUTINE part135
40959 
40960 REAL(KIND=JPRB) :: ZHOOK_HANDLE
40961 IF (lhook) CALL dr_hook('SU_MCICA:PART135',0,zhook_handle)
40962 
40963 xcw( 939, :) = (/ &
40964  & 0.115902e+01_jprb, 0.120009e+01_jprb, 0.124164e+01_jprb, 0.128365e+01_jprb &
40965  &, 0.132610e+01_jprb, 0.136898e+01_jprb, 0.141227e+01_jprb &
40966  &, 0.145593e+01_jprb, 0.149997e+01_jprb, 0.154435e+01_jprb, 0.158904e+01_jprb &
40967  &, 0.163405e+01_jprb, 0.167933e+01_jprb, 0.172488e+01_jprb &
40968  &, 0.177066e+01_jprb, 0.181666e+01_jprb, 0.186286e+01_jprb, 0.190924e+01_jprb &
40969  &, 0.195577e+01_jprb, 0.200243e+01_jprb, 0.204921e+01_jprb &
40970  &, 0.209608e+01_jprb, 0.214302e+01_jprb, 0.219000e+01_jprb, 0.223702e+01_jprb &
40971  &, 0.228404e+01_jprb, 0.233104e+01_jprb, 0.237801e+01_jprb &
40972  &, 0.242493e+01_jprb, 0.247177e+01_jprb, 0.251851e+01_jprb, 0.256514e+01_jprb &
40973  &, 0.261164e+01_jprb, 0.265798e+01_jprb, 0.270414e+01_jprb &
40974  &, 0.275011e+01_jprb, 0.279588e+01_jprb, 0.284141e+01_jprb, 0.288669e+01_jprb &
40975  &, 0.293171e+01_jprb, 0.297645e+01_jprb, 0.302090e+01_jprb &
40976  &, 0.306502e+01_jprb, 0.310882e+01_jprb, 0.315228e+01_jprb, 0.319537e+01_jprb &
40977  &, 0.323808e+01_jprb, 0.328040e+01_jprb, 0.332232e+01_jprb &
40978  &, 0.336382e+01_jprb, 0.340489e+01_jprb, 0.344552e+01_jprb, 0.348569e+01_jprb &
40979  &, 0.352539e+01_jprb, 0.356462e+01_jprb, 0.360335e+01_jprb &
40980  &, 0.364157e+01_jprb, 0.367929e+01_jprb, 0.371650e+01_jprb, 0.375315e+01_jprb &
40981  &, 0.378929e+01_jprb, 0.382485e+01_jprb, 0.385987e+01_jprb &
40982  &, 0.389433e+01_jprb, 0.392820e+01_jprb, 0.396151e+01_jprb, 0.399422e+01_jprb &
40983  &, 0.402634e+01_jprb, 0.405784e+01_jprb, 0.408873e+01_jprb &
40984  &, 0.411902e+01_jprb, 0.414870e+01_jprb, 0.417775e+01_jprb, 0.420618e+01_jprb &
40985  &, 0.423396e+01_jprb, 0.426112e+01_jprb, 0.428761e+01_jprb &
40986  &, 0.431348e+01_jprb, 0.433871e+01_jprb, 0.436328e+01_jprb, 0.438718e+01_jprb &
40987  &, 0.441045e+01_jprb, 0.443304e+01_jprb, 0.445498e+01_jprb &
40988  &, 0.447627e+01_jprb, 0.449690e+01_jprb, 0.451663e+01_jprb, 0.453613e+01_jprb &
40989  &, 0.455475e+01_jprb, 0.457272e+01_jprb, 0.459000e+01_jprb &
40990  &, 0.460663e+01_jprb, 0.462258e+01_jprb, 0.463788e+01_jprb, 0.465251e+01_jprb &
40991  &, 0.466650e+01_jprb, 0.467977e+01_jprb, 0.469242e+01_jprb &
40992  &, 0.470438e+01_jprb, 0.471570e+01_jprb, 0.472638e+01_jprb, 0.473637e+01_jprb &
40993  &, 0.474568e+01_jprb, 0.475447e+01_jprb, 0.476252e+01_jprb &
40994  &, 0.476992e+01_jprb, 0.477670e+01_jprb, 0.478281e+01_jprb, 0.478831e+01_jprb &
40995  &, 0.479314e+01_jprb, 0.479739e+01_jprb, 0.480100e+01_jprb &
40996  &, 0.480397e+01_jprb, 0.480632e+01_jprb, 0.480807e+01_jprb, 0.480923e+01_jprb &
40997  &, 0.480977e+01_jprb, 0.480966e+01_jprb, 0.480897e+01_jprb &
40998  &, 0.480775e+01_jprb, 0.480588e+01_jprb, 0.480343e+01_jprb, 0.480041e+01_jprb &
40999  &, 0.479683e+01_jprb, 0.479266e+01_jprb, 0.478798e+01_jprb &
41000  &, 0.478269e+01_jprb, 0.477686e+01_jprb, 0.477046e+01_jprb, 0.476350e+01_jprb &
41001  &, 0.475606e+01_jprb, 0.474810e+01_jprb, 0.473958e+01_jprb &
41002  &, 0.473052e+01_jprb, 0.472099e+01_jprb, 0.471095e+01_jprb, 0.470042e+01_jprb &
41003  &, 0.468936e+01_jprb, 0.467784e+01_jprb, 0.466583e+01_jprb/)
41004 xcw( 940, :) = (/ &
41005  & 0.115995e+01_jprb, 0.120127e+01_jprb, 0.124308e+01_jprb, 0.128537e+01_jprb &
41006  &, 0.132811e+01_jprb, 0.137129e+01_jprb, 0.141489e+01_jprb &
41007  &, 0.145888e+01_jprb, 0.150324e+01_jprb, 0.154796e+01_jprb, 0.159301e+01_jprb &
41008  &, 0.163838e+01_jprb, 0.168404e+01_jprb, 0.172996e+01_jprb &
41009  &, 0.177614e+01_jprb, 0.182255e+01_jprb, 0.186916e+01_jprb, 0.191596e+01_jprb &
41010  &, 0.196292e+01_jprb, 0.201003e+01_jprb, 0.205726e+01_jprb &
41011  &, 0.210459e+01_jprb, 0.215200e+01_jprb, 0.219947e+01_jprb, 0.224697e+01_jprb &
41012  &, 0.229449e+01_jprb, 0.234201e+01_jprb, 0.238950e+01_jprb &
41013  &, 0.243694e+01_jprb, 0.248431e+01_jprb, 0.253160e+01_jprb, 0.257879e+01_jprb &
41014  &, 0.262584e+01_jprb, 0.267275e+01_jprb, 0.271949e+01_jprb &
41015  &, 0.276605e+01_jprb, 0.281240e+01_jprb, 0.285854e+01_jprb, 0.290443e+01_jprb &
41016  &, 0.295007e+01_jprb, 0.299544e+01_jprb, 0.304051e+01_jprb &
41017  &, 0.308528e+01_jprb, 0.312972e+01_jprb, 0.317383e+01_jprb, 0.321757e+01_jprb &
41018  &, 0.326095e+01_jprb, 0.330395e+01_jprb, 0.334654e+01_jprb &
41019  &, 0.338873e+01_jprb, 0.343049e+01_jprb, 0.347181e+01_jprb, 0.351268e+01_jprb &
41020  &, 0.355310e+01_jprb, 0.359303e+01_jprb, 0.363248e+01_jprb &
41021  &, 0.367144e+01_jprb, 0.370988e+01_jprb, 0.374781e+01_jprb, 0.378522e+01_jprb &
41022  &, 0.382207e+01_jprb, 0.385839e+01_jprb, 0.389417e+01_jprb &
41023  &, 0.392937e+01_jprb, 0.396400e+01_jprb, 0.399806e+01_jprb, 0.403153e+01_jprb &
41024  &, 0.406442e+01_jprb, 0.409670e+01_jprb, 0.412836e+01_jprb &
41025  &, 0.415943e+01_jprb, 0.418989e+01_jprb, 0.421971e+01_jprb, 0.424892e+01_jprb &
41026  &, 0.427747e+01_jprb, 0.430542e+01_jprb, 0.433272e+01_jprb &
41027  &, 0.435938e+01_jprb, 0.438540e+01_jprb, 0.441075e+01_jprb, 0.443545e+01_jprb &
41028  &, 0.445950e+01_jprb, 0.448291e+01_jprb, 0.450559e+01_jprb &
41029  &, 0.452770e+01_jprb, 0.454911e+01_jprb, 0.456985e+01_jprb, 0.458996e+01_jprb &
41030  &, 0.460937e+01_jprb, 0.462813e+01_jprb, 0.464620e+01_jprb &
41031  &, 0.466363e+01_jprb, 0.468035e+01_jprb, 0.469644e+01_jprb, 0.471181e+01_jprb &
41032  &, 0.472657e+01_jprb, 0.474069e+01_jprb, 0.475411e+01_jprb &
41033  &, 0.476688e+01_jprb, 0.477897e+01_jprb, 0.479040e+01_jprb, 0.480116e+01_jprb &
41034  &, 0.481132e+01_jprb, 0.482077e+01_jprb, 0.482960e+01_jprb &
41035  &, 0.483774e+01_jprb, 0.484529e+01_jprb, 0.485218e+01_jprb, 0.485841e+01_jprb &
41036  &, 0.486401e+01_jprb, 0.486895e+01_jprb, 0.487332e+01_jprb &
41037  &, 0.487702e+01_jprb, 0.488009e+01_jprb, 0.488260e+01_jprb, 0.488438e+01_jprb &
41038  &, 0.488563e+01_jprb, 0.488628e+01_jprb, 0.488629e+01_jprb &
41039  &, 0.488573e+01_jprb, 0.488456e+01_jprb, 0.488274e+01_jprb, 0.488051e+01_jprb &
41040  &, 0.487756e+01_jprb, 0.487407e+01_jprb, 0.487001e+01_jprb &
41041  &, 0.486534e+01_jprb, 0.486017e+01_jprb, 0.485443e+01_jprb, 0.484812e+01_jprb &
41042  &, 0.484133e+01_jprb, 0.483395e+01_jprb, 0.482601e+01_jprb &
41043  &, 0.481757e+01_jprb, 0.480866e+01_jprb, 0.479917e+01_jprb, 0.478925e+01_jprb &
41044  &, 0.477872e+01_jprb, 0.476774e+01_jprb, 0.475631e+01_jprb/)
41045 xcw( 941, :) = (/ &
41046  & 0.116088e+01_jprb, 0.120246e+01_jprb, 0.124455e+01_jprb, 0.128712e+01_jprb &
41047  &, 0.133015e+01_jprb, 0.137364e+01_jprb, 0.141755e+01_jprb &
41048  &, 0.146186e+01_jprb, 0.150657e+01_jprb, 0.155163e+01_jprb, 0.159704e+01_jprb &
41049  &, 0.164278e+01_jprb, 0.168881e+01_jprb, 0.173513e+01_jprb &
41050  &, 0.178171e+01_jprb, 0.182852e+01_jprb, 0.187556e+01_jprb, 0.192278e+01_jprb &
41051  &, 0.197019e+01_jprb, 0.201775e+01_jprb, 0.206544e+01_jprb &
41052  &, 0.211324e+01_jprb, 0.216112e+01_jprb, 0.220908e+01_jprb, 0.225709e+01_jprb &
41053  &, 0.230512e+01_jprb, 0.235315e+01_jprb, 0.240116e+01_jprb &
41054  &, 0.244914e+01_jprb, 0.249706e+01_jprb, 0.254491e+01_jprb, 0.259265e+01_jprb &
41055  &, 0.264028e+01_jprb, 0.268777e+01_jprb, 0.273510e+01_jprb &
41056  &, 0.278225e+01_jprb, 0.282922e+01_jprb, 0.287596e+01_jprb, 0.292247e+01_jprb &
41057  &, 0.296875e+01_jprb, 0.301340e+01_jprb, 0.306045e+01_jprb &
41058  &, 0.310587e+01_jprb, 0.315098e+01_jprb, 0.319575e+01_jprb, 0.324016e+01_jprb &
41059  &, 0.328423e+01_jprb, 0.332790e+01_jprb, 0.337119e+01_jprb &
41060  &, 0.341408e+01_jprb, 0.345655e+01_jprb, 0.349857e+01_jprb, 0.354016e+01_jprb &
41061  &, 0.358129e+01_jprb, 0.362196e+01_jprb, 0.366215e+01_jprb &
41062  &, 0.370183e+01_jprb, 0.374103e+01_jprb, 0.377969e+01_jprb, 0.381785e+01_jprb &
41063  &, 0.385548e+01_jprb, 0.389256e+01_jprb, 0.392908e+01_jprb &
41064  &, 0.396507e+01_jprb, 0.400046e+01_jprb, 0.403531e+01_jprb, 0.406956e+01_jprb &
41065  &, 0.410307e+01_jprb, 0.413629e+01_jprb, 0.416875e+01_jprb &
41066  &, 0.420061e+01_jprb, 0.423186e+01_jprb, 0.426249e+01_jprb, 0.429247e+01_jprb &
41067  &, 0.432185e+01_jprb, 0.435059e+01_jprb, 0.437868e+01_jprb &
41068  &, 0.440615e+01_jprb, 0.443298e+01_jprb, 0.445914e+01_jprb, 0.448467e+01_jprb &
41069  &, 0.450953e+01_jprb, 0.453374e+01_jprb, 0.455729e+01_jprb &
41070  &, 0.458016e+01_jprb, 0.460240e+01_jprb, 0.462397e+01_jprb, 0.464485e+01_jprb &
41071  &, 0.466507e+01_jprb, 0.468463e+01_jprb, 0.470355e+01_jprb &
41072  &, 0.472176e+01_jprb, 0.473934e+01_jprb, 0.475622e+01_jprb, 0.477192e+01_jprb &
41073  &, 0.478800e+01_jprb, 0.480288e+01_jprb, 0.481710e+01_jprb &
41074  &, 0.483067e+01_jprb, 0.484356e+01_jprb, 0.485578e+01_jprb, 0.486735e+01_jprb &
41075  &, 0.487827e+01_jprb, 0.488852e+01_jprb, 0.489815e+01_jprb &
41076  &, 0.490709e+01_jprb, 0.491539e+01_jprb, 0.492304e+01_jprb, 0.493003e+01_jprb &
41077  &, 0.493638e+01_jprb, 0.494211e+01_jprb, 0.494724e+01_jprb &
41078  &, 0.495155e+01_jprb, 0.495550e+01_jprb, 0.495875e+01_jprb, 0.496132e+01_jprb &
41079  &, 0.496293e+01_jprb, 0.496465e+01_jprb, 0.496539e+01_jprb &
41080  &, 0.496555e+01_jprb, 0.496510e+01_jprb, 0.496406e+01_jprb, 0.496160e+01_jprb &
41081  &, 0.496009e+01_jprb, 0.495736e+01_jprb, 0.495400e+01_jprb &
41082  &, 0.495002e+01_jprb, 0.494549e+01_jprb, 0.494044e+01_jprb, 0.493481e+01_jprb &
41083  &, 0.492852e+01_jprb, 0.492187e+01_jprb, 0.491458e+01_jprb &
41084  &, 0.490680e+01_jprb, 0.489848e+01_jprb, 0.488958e+01_jprb, 0.488023e+01_jprb &
41085  &, 0.487033e+01_jprb, 0.485997e+01_jprb, 0.484897e+01_jprb/)
41086 xcw( 942, :) = (/ &
41087  & 0.116182e+01_jprb, 0.120367e+01_jprb, 0.124603e+01_jprb, 0.128889e+01_jprb &
41088  &, 0.133223e+01_jprb, 0.137602e+01_jprb, 0.142025e+01_jprb &
41089  &, 0.146489e+01_jprb, 0.150994e+01_jprb, 0.155536e+01_jprb, 0.160113e+01_jprb &
41090  &, 0.164724e+01_jprb, 0.169366e+01_jprb, 0.174037e+01_jprb &
41091  &, 0.178735e+01_jprb, 0.183459e+01_jprb, 0.188205e+01_jprb, 0.192972e+01_jprb &
41092  &, 0.197757e+01_jprb, 0.202558e+01_jprb, 0.207374e+01_jprb &
41093  &, 0.212202e+01_jprb, 0.217040e+01_jprb, 0.221885e+01_jprb, 0.226736e+01_jprb &
41094  &, 0.231591e+01_jprb, 0.236447e+01_jprb, 0.241302e+01_jprb &
41095  &, 0.246155e+01_jprb, 0.251002e+01_jprb, 0.255843e+01_jprb, 0.260675e+01_jprb &
41096  &, 0.265496e+01_jprb, 0.270304e+01_jprb, 0.275097e+01_jprb &
41097  &, 0.279873e+01_jprb, 0.284631e+01_jprb, 0.289368e+01_jprb, 0.294083e+01_jprb &
41098  &, 0.298773e+01_jprb, 0.303438e+01_jprb, 0.308075e+01_jprb &
41099  &, 0.312684e+01_jprb, 0.317260e+01_jprb, 0.321805e+01_jprb, 0.326316e+01_jprb &
41100  &, 0.330791e+01_jprb, 0.335229e+01_jprb, 0.339628e+01_jprb &
41101  &, 0.343987e+01_jprb, 0.348306e+01_jprb, 0.352582e+01_jprb, 0.356814e+01_jprb &
41102  &, 0.361001e+01_jprb, 0.365142e+01_jprb, 0.369234e+01_jprb &
41103  &, 0.373279e+01_jprb, 0.377274e+01_jprb, 0.381217e+01_jprb, 0.385109e+01_jprb &
41104  &, 0.388950e+01_jprb, 0.392735e+01_jprb, 0.396467e+01_jprb &
41105  &, 0.400143e+01_jprb, 0.403762e+01_jprb, 0.407324e+01_jprb, 0.410830e+01_jprb &
41106  &, 0.414273e+01_jprb, 0.417662e+01_jprb, 0.420991e+01_jprb &
41107  &, 0.424258e+01_jprb, 0.427462e+01_jprb, 0.430608e+01_jprb, 0.433690e+01_jprb &
41108  &, 0.436706e+01_jprb, 0.439665e+01_jprb, 0.442558e+01_jprb &
41109  &, 0.445387e+01_jprb, 0.448152e+01_jprb, 0.450772e+01_jprb, 0.453487e+01_jprb &
41110  &, 0.456055e+01_jprb, 0.458559e+01_jprb, 0.460997e+01_jprb &
41111  &, 0.463369e+01_jprb, 0.465677e+01_jprb, 0.467916e+01_jprb, 0.470089e+01_jprb &
41112  &, 0.472197e+01_jprb, 0.474233e+01_jprb, 0.476208e+01_jprb &
41113  &, 0.478113e+01_jprb, 0.479952e+01_jprb, 0.481725e+01_jprb, 0.483429e+01_jprb &
41114  &, 0.485069e+01_jprb, 0.486639e+01_jprb, 0.488143e+01_jprb &
41115  &, 0.489581e+01_jprb, 0.490953e+01_jprb, 0.492257e+01_jprb, 0.493496e+01_jprb &
41116  &, 0.494667e+01_jprb, 0.495778e+01_jprb, 0.496819e+01_jprb &
41117  &, 0.497792e+01_jprb, 0.498701e+01_jprb, 0.499547e+01_jprb, 0.500329e+01_jprb &
41118  &, 0.501042e+01_jprb, 0.501693e+01_jprb, 0.502283e+01_jprb &
41119  &, 0.502805e+01_jprb, 0.503268e+01_jprb, 0.503666e+01_jprb, 0.504000e+01_jprb &
41120  &, 0.504275e+01_jprb, 0.504485e+01_jprb, 0.504635e+01_jprb &
41121  &, 0.504721e+01_jprb, 0.504751e+01_jprb, 0.504722e+01_jprb, 0.504629e+01_jprb &
41122  &, 0.504474e+01_jprb, 0.504269e+01_jprb, 0.504000e+01_jprb &
41123  &, 0.503675e+01_jprb, 0.503294e+01_jprb, 0.502854e+01_jprb, 0.502357e+01_jprb &
41124  &, 0.501804e+01_jprb, 0.501197e+01_jprb, 0.500532e+01_jprb &
41125  &, 0.499816e+01_jprb, 0.499052e+01_jprb, 0.498229e+01_jprb, 0.497355e+01_jprb &
41126  &, 0.496425e+01_jprb, 0.495448e+01_jprb, 0.494418e+01_jprb/)
41127 xcw( 943, :) = (/ &
41128  & 0.116278e+01_jprb, 0.120490e+01_jprb, 0.124754e+01_jprb, 0.129069e+01_jprb &
41129  &, 0.133433e+01_jprb, 0.137843e+01_jprb, 0.142299e+01_jprb &
41130  &, 0.146797e+01_jprb, 0.151336e+01_jprb, 0.155914e+01_jprb, 0.160528e+01_jprb &
41131  &, 0.165177e+01_jprb, 0.169858e+01_jprb, 0.174570e+01_jprb &
41132  &, 0.179309e+01_jprb, 0.184075e+01_jprb, 0.188865e+01_jprb, 0.193676e+01_jprb &
41133  &, 0.198507e+01_jprb, 0.203355e+01_jprb, 0.208218e+01_jprb &
41134  &, 0.213095e+01_jprb, 0.217982e+01_jprb, 0.222878e+01_jprb, 0.227781e+01_jprb &
41135  &, 0.232689e+01_jprb, 0.237598e+01_jprb, 0.242508e+01_jprb &
41136  &, 0.247416e+01_jprb, 0.252321e+01_jprb, 0.257219e+01_jprb, 0.262109e+01_jprb &
41137  &, 0.266989e+01_jprb, 0.271857e+01_jprb, 0.276711e+01_jprb &
41138  &, 0.281549e+01_jprb, 0.286370e+01_jprb, 0.291170e+01_jprb, 0.295949e+01_jprb &
41139  &, 0.300706e+01_jprb, 0.305437e+01_jprb, 0.310141e+01_jprb &
41140  &, 0.314817e+01_jprb, 0.319463e+01_jprb, 0.324076e+01_jprb, 0.328657e+01_jprb &
41141  &, 0.333202e+01_jprb, 0.337712e+01_jprb, 0.342183e+01_jprb &
41142  &, 0.346615e+01_jprb, 0.351007e+01_jprb, 0.355356e+01_jprb, 0.359663e+01_jprb &
41143  &, 0.363925e+01_jprb, 0.368142e+01_jprb, 0.372311e+01_jprb &
41144  &, 0.376433e+01_jprb, 0.380504e+01_jprb, 0.384527e+01_jprb, 0.388496e+01_jprb &
41145  &, 0.392416e+01_jprb, 0.396281e+01_jprb, 0.400092e+01_jprb &
41146  &, 0.403849e+01_jprb, 0.407549e+01_jprb, 0.411193e+01_jprb, 0.414780e+01_jprb &
41147  &, 0.418307e+01_jprb, 0.421776e+01_jprb, 0.425187e+01_jprb &
41148  &, 0.428537e+01_jprb, 0.431824e+01_jprb, 0.435037e+01_jprb, 0.438218e+01_jprb &
41149  &, 0.441322e+01_jprb, 0.444364e+01_jprb, 0.447341e+01_jprb &
41150  &, 0.450253e+01_jprb, 0.453104e+01_jprb, 0.455887e+01_jprb, 0.458608e+01_jprb &
41151  &, 0.461263e+01_jprb, 0.463852e+01_jprb, 0.466375e+01_jprb &
41152  &, 0.468832e+01_jprb, 0.471227e+01_jprb, 0.473550e+01_jprb, 0.475808e+01_jprb &
41153  &, 0.478000e+01_jprb, 0.480125e+01_jprb, 0.482183e+01_jprb &
41154  &, 0.484171e+01_jprb, 0.486102e+01_jprb, 0.487958e+01_jprb, 0.489746e+01_jprb &
41155  &, 0.491467e+01_jprb, 0.493128e+01_jprb, 0.494716e+01_jprb &
41156  &, 0.496239e+01_jprb, 0.497695e+01_jprb, 0.499084e+01_jprb, 0.500408e+01_jprb &
41157  &, 0.501663e+01_jprb, 0.502852e+01_jprb, 0.503978e+01_jprb &
41158  &, 0.505036e+01_jprb, 0.506026e+01_jprb, 0.506953e+01_jprb, 0.507815e+01_jprb &
41159  &, 0.508613e+01_jprb, 0.509345e+01_jprb, 0.510015e+01_jprb &
41160  &, 0.510617e+01_jprb, 0.511156e+01_jprb, 0.511638e+01_jprb, 0.512046e+01_jprb &
41161  &, 0.512401e+01_jprb, 0.512689e+01_jprb, 0.512917e+01_jprb &
41162  &, 0.513082e+01_jprb, 0.513190e+01_jprb, 0.513233e+01_jprb, 0.513212e+01_jprb &
41163  &, 0.513139e+01_jprb, 0.513005e+01_jprb, 0.512807e+01_jprb &
41164  &, 0.512551e+01_jprb, 0.512246e+01_jprb, 0.511875e+01_jprb, 0.511451e+01_jprb &
41165  &, 0.510966e+01_jprb, 0.510432e+01_jprb, 0.509839e+01_jprb &
41166  &, 0.509189e+01_jprb, 0.508490e+01_jprb, 0.507731e+01_jprb, 0.506920e+01_jprb &
41167  &, 0.506060e+01_jprb, 0.505144e+01_jprb, 0.504183e+01_jprb/)
41168 xcw( 944, :) = (/ &
41169  & 0.116376e+01_jprb, 0.120614e+01_jprb, 0.124907e+01_jprb, 0.129251e+01_jprb &
41170  &, 0.133646e+01_jprb, 0.138088e+01_jprb, 0.142577e+01_jprb &
41171  &, 0.147109e+01_jprb, 0.151684e+01_jprb, 0.156298e+01_jprb, 0.160950e+01_jprb &
41172  &, 0.165637e+01_jprb, 0.170358e+01_jprb, 0.175111e+01_jprb &
41173  &, 0.179892e+01_jprb, 0.184701e+01_jprb, 0.189535e+01_jprb, 0.194392e+01_jprb &
41174  &, 0.199269e+01_jprb, 0.204164e+01_jprb, 0.209076e+01_jprb &
41175  &, 0.214003e+01_jprb, 0.218940e+01_jprb, 0.223888e+01_jprb, 0.228844e+01_jprb &
41176  &, 0.233805e+01_jprb, 0.238769e+01_jprb, 0.243735e+01_jprb &
41177  &, 0.248700e+01_jprb, 0.253661e+01_jprb, 0.258618e+01_jprb, 0.263567e+01_jprb &
41178  &, 0.268508e+01_jprb, 0.273438e+01_jprb, 0.278354e+01_jprb &
41179  &, 0.283255e+01_jprb, 0.288140e+01_jprb, 0.293006e+01_jprb, 0.297850e+01_jprb &
41180  &, 0.302673e+01_jprb, 0.307472e+01_jprb, 0.312244e+01_jprb &
41181  &, 0.316988e+01_jprb, 0.321705e+01_jprb, 0.326388e+01_jprb, 0.331041e+01_jprb &
41182  &, 0.335658e+01_jprb, 0.340241e+01_jprb, 0.344785e+01_jprb &
41183  &, 0.349292e+01_jprb, 0.353758e+01_jprb, 0.358183e+01_jprb, 0.362567e+01_jprb &
41184  &, 0.366905e+01_jprb, 0.371198e+01_jprb, 0.375445e+01_jprb &
41185  &, 0.379645e+01_jprb, 0.383796e+01_jprb, 0.387898e+01_jprb, 0.391950e+01_jprb &
41186  &, 0.395949e+01_jprb, 0.399895e+01_jprb, 0.403789e+01_jprb &
41187  &, 0.407627e+01_jprb, 0.411409e+01_jprb, 0.415136e+01_jprb, 0.418807e+01_jprb &
41188  &, 0.422419e+01_jprb, 0.425972e+01_jprb, 0.429466e+01_jprb &
41189  &, 0.432902e+01_jprb, 0.436277e+01_jprb, 0.439590e+01_jprb, 0.442841e+01_jprb &
41190  &, 0.446031e+01_jprb, 0.449157e+01_jprb, 0.452221e+01_jprb &
41191  &, 0.455220e+01_jprb, 0.458157e+01_jprb, 0.461028e+01_jprb, 0.463834e+01_jprb &
41192  &, 0.466578e+01_jprb, 0.469254e+01_jprb, 0.471867e+01_jprb &
41193  &, 0.474413e+01_jprb, 0.476890e+01_jprb, 0.479305e+01_jprb, 0.481650e+01_jprb &
41194  &, 0.483930e+01_jprb, 0.486143e+01_jprb, 0.488291e+01_jprb &
41195  &, 0.490368e+01_jprb, 0.492381e+01_jprb, 0.494327e+01_jprb, 0.496197e+01_jprb &
41196  &, 0.498014e+01_jprb, 0.499758e+01_jprb, 0.501433e+01_jprb &
41197  &, 0.503043e+01_jprb, 0.504586e+01_jprb, 0.506048e+01_jprb, 0.507470e+01_jprb &
41198  &, 0.508813e+01_jprb, 0.510089e+01_jprb, 0.511299e+01_jprb &
41199  &, 0.512440e+01_jprb, 0.513518e+01_jprb, 0.514533e+01_jprb, 0.515478e+01_jprb &
41200  &, 0.516360e+01_jprb, 0.517175e+01_jprb, 0.517919e+01_jprb &
41201  &, 0.518613e+01_jprb, 0.519234e+01_jprb, 0.519794e+01_jprb, 0.520289e+01_jprb &
41202  &, 0.520707e+01_jprb, 0.521091e+01_jprb, 0.521396e+01_jprb &
41203  &, 0.521642e+01_jprb, 0.521826e+01_jprb, 0.521950e+01_jprb, 0.521993e+01_jprb &
41204  &, 0.522010e+01_jprb, 0.521945e+01_jprb, 0.521837e+01_jprb &
41205  &, 0.521654e+01_jprb, 0.521421e+01_jprb, 0.521127e+01_jprb, 0.520591e+01_jprb &
41206  &, 0.520361e+01_jprb, 0.519897e+01_jprb, 0.519374e+01_jprb &
41207  &, 0.518799e+01_jprb, 0.518168e+01_jprb, 0.517476e+01_jprb, 0.516739e+01_jprb &
41208  &, 0.515944e+01_jprb, 0.515094e+01_jprb, 0.514197e+01_jprb/)
41209 xcw( 945, :) = (/ &
41210  & 0.116474e+01_jprb, 0.120741e+01_jprb, 0.125062e+01_jprb, 0.129437e+01_jprb &
41211  &, 0.133862e+01_jprb, 0.138337e+01_jprb, 0.142859e+01_jprb &
41212  &, 0.147426e+01_jprb, 0.152037e+01_jprb, 0.156688e+01_jprb, 0.161378e+01_jprb &
41213  &, 0.166105e+01_jprb, 0.170866e+01_jprb, 0.175661e+01_jprb &
41214  &, 0.180485e+01_jprb, 0.185338e+01_jprb, 0.190216e+01_jprb, 0.195119e+01_jprb &
41215  &, 0.200044e+01_jprb, 0.204987e+01_jprb, 0.209949e+01_jprb &
41216  &, 0.214925e+01_jprb, 0.219915e+01_jprb, 0.224915e+01_jprb, 0.229924e+01_jprb &
41217  &, 0.234940e+01_jprb, 0.239960e+01_jprb, 0.244982e+01_jprb &
41218  &, 0.250005e+01_jprb, 0.255025e+01_jprb, 0.260042e+01_jprb, 0.265052e+01_jprb &
41219  &, 0.270054e+01_jprb, 0.275046e+01_jprb, 0.280026e+01_jprb &
41220  &, 0.284992e+01_jprb, 0.289942e+01_jprb, 0.294873e+01_jprb, 0.299785e+01_jprb &
41221  &, 0.304676e+01_jprb, 0.309544e+01_jprb, 0.314386e+01_jprb &
41222  &, 0.319200e+01_jprb, 0.323987e+01_jprb, 0.328744e+01_jprb, 0.333468e+01_jprb &
41223  &, 0.338160e+01_jprb, 0.342816e+01_jprb, 0.347436e+01_jprb &
41224  &, 0.352018e+01_jprb, 0.356561e+01_jprb, 0.361064e+01_jprb, 0.365524e+01_jprb &
41225  &, 0.369941e+01_jprb, 0.374314e+01_jprb, 0.378641e+01_jprb &
41226  &, 0.382921e+01_jprb, 0.387154e+01_jprb, 0.391336e+01_jprb, 0.395470e+01_jprb &
41227  &, 0.399551e+01_jprb, 0.403581e+01_jprb, 0.407557e+01_jprb &
41228  &, 0.411479e+01_jprb, 0.415347e+01_jprb, 0.419159e+01_jprb, 0.422914e+01_jprb &
41229  &, 0.426611e+01_jprb, 0.430252e+01_jprb, 0.433833e+01_jprb &
41230  &, 0.437354e+01_jprb, 0.440816e+01_jprb, 0.444217e+01_jprb, 0.447557e+01_jprb &
41231  &, 0.450831e+01_jprb, 0.454050e+01_jprb, 0.457202e+01_jprb &
41232  &, 0.460291e+01_jprb, 0.463317e+01_jprb, 0.466278e+01_jprb, 0.469174e+01_jprb &
41233  &, 0.472006e+01_jprb, 0.474771e+01_jprb, 0.477469e+01_jprb &
41234  &, 0.480108e+01_jprb, 0.482667e+01_jprb, 0.485180e+01_jprb, 0.487616e+01_jprb &
41235  &, 0.489988e+01_jprb, 0.492291e+01_jprb, 0.494527e+01_jprb &
41236  &, 0.496698e+01_jprb, 0.498799e+01_jprb, 0.500833e+01_jprb, 0.502802e+01_jprb &
41237  &, 0.504701e+01_jprb, 0.506534e+01_jprb, 0.508302e+01_jprb &
41238  &, 0.510002e+01_jprb, 0.511634e+01_jprb, 0.513197e+01_jprb, 0.514694e+01_jprb &
41239  &, 0.516127e+01_jprb, 0.517490e+01_jprb, 0.518790e+01_jprb &
41240  &, 0.520013e+01_jprb, 0.521185e+01_jprb, 0.522283e+01_jprb, 0.523319e+01_jprb &
41241  &, 0.524282e+01_jprb, 0.525187e+01_jprb, 0.526022e+01_jprb &
41242  &, 0.526797e+01_jprb, 0.527504e+01_jprb, 0.528150e+01_jprb, 0.528726e+01_jprb &
41243  &, 0.529243e+01_jprb, 0.529693e+01_jprb, 0.530082e+01_jprb &
41244  &, 0.530412e+01_jprb, 0.530680e+01_jprb, 0.530882e+01_jprb, 0.531024e+01_jprb &
41245  &, 0.531103e+01_jprb, 0.531126e+01_jprb, 0.531084e+01_jprb &
41246  &, 0.530983e+01_jprb, 0.530825e+01_jprb, 0.530607e+01_jprb, 0.530330e+01_jprb &
41247  &, 0.529989e+01_jprb, 0.529610e+01_jprb, 0.529160e+01_jprb &
41248  &, 0.528651e+01_jprb, 0.528073e+01_jprb, 0.527477e+01_jprb, 0.526810e+01_jprb &
41249  &, 0.526085e+01_jprb, 0.525310e+01_jprb, 0.524474e+01_jprb/)
41250 
41251 IF (lhook) CALL dr_hook('SU_MCICA:PART135',1,zhook_handle)
41252 END SUBROUTINE part135
41253 
41254 #ifdef VPP5000
41255 !OCL SCALAR
41256 #endif
41257 !option! -Nv -NO
41258 #ifdef RS6K
41259 @process nooptimize
41260 #endif
41261 !pgi$r opt=0
41262 SUBROUTINE part136
41263 
41264 REAL(KIND=JPRB) :: ZHOOK_HANDLE
41265 IF (lhook) CALL dr_hook('SU_MCICA:PART136',0,zhook_handle)
41266 
41267 xcw( 946, :) = (/ &
41268  & 0.116575e+01_jprb, 0.120869e+01_jprb, 0.125220e+01_jprb, 0.129625e+01_jprb &
41269  &, 0.134082e+01_jprb, 0.138590e+01_jprb, 0.143146e+01_jprb &
41270  &, 0.147749e+01_jprb, 0.152395e+01_jprb, 0.157084e+01_jprb, 0.161813e+01_jprb &
41271  &, 0.166580e+01_jprb, 0.171383e+01_jprb, 0.176219e+01_jprb &
41272  &, 0.181087e+01_jprb, 0.185985e+01_jprb, 0.190909e+01_jprb, 0.195859e+01_jprb &
41273  &, 0.200831e+01_jprb, 0.205824e+01_jprb, 0.210836e+01_jprb &
41274  &, 0.215864e+01_jprb, 0.220906e+01_jprb, 0.225960e+01_jprb, 0.231024e+01_jprb &
41275  &, 0.236095e+01_jprb, 0.241172e+01_jprb, 0.246252e+01_jprb &
41276  &, 0.251333e+01_jprb, 0.256414e+01_jprb, 0.261491e+01_jprb, 0.266563e+01_jprb &
41277  &, 0.271628e+01_jprb, 0.276684e+01_jprb, 0.281729e+01_jprb &
41278  &, 0.286760e+01_jprb, 0.291776e+01_jprb, 0.296776e+01_jprb, 0.301756e+01_jprb &
41279  &, 0.306717e+01_jprb, 0.311653e+01_jprb, 0.316567e+01_jprb &
41280  &, 0.321454e+01_jprb, 0.326313e+01_jprb, 0.331143e+01_jprb, 0.335943e+01_jprb &
41281  &, 0.340709e+01_jprb, 0.345441e+01_jprb, 0.350138e+01_jprb &
41282  &, 0.354798e+01_jprb, 0.359419e+01_jprb, 0.364000e+01_jprb, 0.368540e+01_jprb &
41283  &, 0.373037e+01_jprb, 0.377490e+01_jprb, 0.381899e+01_jprb &
41284  &, 0.386261e+01_jprb, 0.390577e+01_jprb, 0.394842e+01_jprb, 0.399060e+01_jprb &
41285  &, 0.403226e+01_jprb, 0.407341e+01_jprb, 0.411402e+01_jprb &
41286  &, 0.415410e+01_jprb, 0.419365e+01_jprb, 0.423263e+01_jprb, 0.427106e+01_jprb &
41287  &, 0.430892e+01_jprb, 0.434619e+01_jprb, 0.438289e+01_jprb &
41288  &, 0.441900e+01_jprb, 0.445450e+01_jprb, 0.448941e+01_jprb, 0.452354e+01_jprb &
41289  &, 0.455738e+01_jprb, 0.459044e+01_jprb, 0.462287e+01_jprb &
41290  &, 0.465467e+01_jprb, 0.468584e+01_jprb, 0.471636e+01_jprb, 0.474625e+01_jprb &
41291  &, 0.477545e+01_jprb, 0.480410e+01_jprb, 0.483197e+01_jprb &
41292  &, 0.485928e+01_jprb, 0.488501e+01_jprb, 0.491187e+01_jprb, 0.493715e+01_jprb &
41293  &, 0.496179e+01_jprb, 0.498574e+01_jprb, 0.500903e+01_jprb &
41294  &, 0.503167e+01_jprb, 0.505359e+01_jprb, 0.507486e+01_jprb, 0.509547e+01_jprb &
41295  &, 0.511541e+01_jprb, 0.513466e+01_jprb, 0.515325e+01_jprb &
41296  &, 0.517117e+01_jprb, 0.518839e+01_jprb, 0.520494e+01_jprb, 0.522084e+01_jprb &
41297  &, 0.523606e+01_jprb, 0.525061e+01_jprb, 0.526451e+01_jprb &
41298  &, 0.527760e+01_jprb, 0.529029e+01_jprb, 0.530219e+01_jprb, 0.531340e+01_jprb &
41299  &, 0.532397e+01_jprb, 0.533374e+01_jprb, 0.534315e+01_jprb &
41300  &, 0.535174e+01_jprb, 0.535970e+01_jprb, 0.536704e+01_jprb, 0.537368e+01_jprb &
41301  &, 0.537973e+01_jprb, 0.538511e+01_jprb, 0.538984e+01_jprb &
41302  &, 0.539401e+01_jprb, 0.539741e+01_jprb, 0.540035e+01_jprb, 0.540258e+01_jprb &
41303  &, 0.540424e+01_jprb, 0.540527e+01_jprb, 0.540570e+01_jprb &
41304  &, 0.540549e+01_jprb, 0.540470e+01_jprb, 0.540336e+01_jprb, 0.540137e+01_jprb &
41305  &, 0.539879e+01_jprb, 0.539571e+01_jprb, 0.539197e+01_jprb &
41306  &, 0.538770e+01_jprb, 0.538286e+01_jprb, 0.537746e+01_jprb, 0.537146e+01_jprb &
41307  &, 0.536494e+01_jprb, 0.535792e+01_jprb, 0.535028e+01_jprb/)
41308 xcw( 947, :) = (/ &
41309  & 0.116676e+01_jprb, 0.120999e+01_jprb, 0.125380e+01_jprb, 0.129816e+01_jprb &
41310  &, 0.134306e+01_jprb, 0.138847e+01_jprb, 0.143438e+01_jprb &
41311  &, 0.148076e+01_jprb, 0.152760e+01_jprb, 0.157487e+01_jprb, 0.162256e+01_jprb &
41312  &, 0.167063e+01_jprb, 0.171908e+01_jprb, 0.176788e+01_jprb &
41313  &, 0.181700e+01_jprb, 0.186643e+01_jprb, 0.191614e+01_jprb, 0.196611e+01_jprb &
41314  &, 0.201633e+01_jprb, 0.206676e+01_jprb, 0.211739e+01_jprb &
41315  &, 0.216819e+01_jprb, 0.221915e+01_jprb, 0.227024e+01_jprb, 0.232143e+01_jprb &
41316  &, 0.237271e+01_jprb, 0.242406e+01_jprb, 0.247545e+01_jprb &
41317  &, 0.252686e+01_jprb, 0.257828e+01_jprb, 0.262967e+01_jprb, 0.268102e+01_jprb &
41318  &, 0.273231e+01_jprb, 0.278352e+01_jprb, 0.283463e+01_jprb &
41319  &, 0.288562e+01_jprb, 0.293646e+01_jprb, 0.298714e+01_jprb, 0.303764e+01_jprb &
41320  &, 0.308795e+01_jprb, 0.313804e+01_jprb, 0.318790e+01_jprb &
41321  &, 0.323751e+01_jprb, 0.328684e+01_jprb, 0.333590e+01_jprb, 0.338464e+01_jprb &
41322  &, 0.343307e+01_jprb, 0.348117e+01_jprb, 0.352892e+01_jprb &
41323  &, 0.357631e+01_jprb, 0.362333e+01_jprb, 0.366994e+01_jprb, 0.371615e+01_jprb &
41324  &, 0.376194e+01_jprb, 0.380730e+01_jprb, 0.385223e+01_jprb &
41325  &, 0.389669e+01_jprb, 0.394068e+01_jprb, 0.398420e+01_jprb, 0.402723e+01_jprb &
41326  &, 0.406974e+01_jprb, 0.411176e+01_jprb, 0.415325e+01_jprb &
41327  &, 0.419422e+01_jprb, 0.423464e+01_jprb, 0.427453e+01_jprb, 0.431385e+01_jprb &
41328  &, 0.435260e+01_jprb, 0.439079e+01_jprb, 0.442839e+01_jprb &
41329  &, 0.446540e+01_jprb, 0.450183e+01_jprb, 0.453766e+01_jprb, 0.457286e+01_jprb &
41330  &, 0.460746e+01_jprb, 0.464145e+01_jprb, 0.467482e+01_jprb &
41331  &, 0.470757e+01_jprb, 0.473967e+01_jprb, 0.477113e+01_jprb, 0.480194e+01_jprb &
41332  &, 0.483213e+01_jprb, 0.486166e+01_jprb, 0.489055e+01_jprb &
41333  &, 0.491876e+01_jprb, 0.494633e+01_jprb, 0.497324e+01_jprb, 0.499949e+01_jprb &
41334  &, 0.502508e+01_jprb, 0.504998e+01_jprb, 0.507422e+01_jprb &
41335  &, 0.509778e+01_jprb, 0.512070e+01_jprb, 0.514291e+01_jprb, 0.516445e+01_jprb &
41336  &, 0.518537e+01_jprb, 0.520556e+01_jprb, 0.522482e+01_jprb &
41337  &, 0.524394e+01_jprb, 0.526214e+01_jprb, 0.527965e+01_jprb, 0.529650e+01_jprb &
41338  &, 0.531265e+01_jprb, 0.532816e+01_jprb, 0.534294e+01_jprb &
41339  &, 0.535710e+01_jprb, 0.537060e+01_jprb, 0.538343e+01_jprb, 0.539560e+01_jprb &
41340  &, 0.540705e+01_jprb, 0.541787e+01_jprb, 0.542807e+01_jprb &
41341  &, 0.543758e+01_jprb, 0.544646e+01_jprb, 0.545467e+01_jprb, 0.546222e+01_jprb &
41342  &, 0.546914e+01_jprb, 0.547543e+01_jprb, 0.548106e+01_jprb &
41343  &, 0.548600e+01_jprb, 0.549045e+01_jprb, 0.549419e+01_jprb, 0.549732e+01_jprb &
41344  &, 0.549982e+01_jprb, 0.550169e+01_jprb, 0.550295e+01_jprb &
41345  &, 0.550362e+01_jprb, 0.550366e+01_jprb, 0.550269e+01_jprb, 0.550197e+01_jprb &
41346  &, 0.550026e+01_jprb, 0.549793e+01_jprb, 0.549499e+01_jprb &
41347  &, 0.549151e+01_jprb, 0.548745e+01_jprb, 0.548283e+01_jprb, 0.547761e+01_jprb &
41348  &, 0.547185e+01_jprb, 0.546559e+01_jprb, 0.545870e+01_jprb/)
41349 xcw( 948, :) = (/ &
41350  & 0.116780e+01_jprb, 0.121132e+01_jprb, 0.125542e+01_jprb, 0.130010e+01_jprb &
41351  &, 0.134532e+01_jprb, 0.139108e+01_jprb, 0.143734e+01_jprb &
41352  &, 0.148409e+01_jprb, 0.153130e+01_jprb, 0.157897e+01_jprb, 0.162705e+01_jprb &
41353  &, 0.167555e+01_jprb, 0.172442e+01_jprb, 0.177366e+01_jprb &
41354  &, 0.182323e+01_jprb, 0.187312e+01_jprb, 0.192331e+01_jprb, 0.197377e+01_jprb &
41355  &, 0.202449e+01_jprb, 0.207543e+01_jprb, 0.212658e+01_jprb &
41356  &, 0.217792e+01_jprb, 0.222942e+01_jprb, 0.228106e+01_jprb, 0.233282e+01_jprb &
41357  &, 0.238469e+01_jprb, 0.243662e+01_jprb, 0.248862e+01_jprb &
41358  &, 0.254064e+01_jprb, 0.259267e+01_jprb, 0.264470e+01_jprb, 0.269670e+01_jprb &
41359  &, 0.274864e+01_jprb, 0.280052e+01_jprb, 0.285230e+01_jprb &
41360  &, 0.290397e+01_jprb, 0.295550e+01_jprb, 0.300689e+01_jprb, 0.305812e+01_jprb &
41361  &, 0.310914e+01_jprb, 0.315996e+01_jprb, 0.321057e+01_jprb &
41362  &, 0.326092e+01_jprb, 0.331102e+01_jprb, 0.336083e+01_jprb, 0.341035e+01_jprb &
41363  &, 0.345957e+01_jprb, 0.350846e+01_jprb, 0.355702e+01_jprb &
41364  &, 0.360521e+01_jprb, 0.365304e+01_jprb, 0.370048e+01_jprb, 0.374752e+01_jprb &
41365  &, 0.379416e+01_jprb, 0.384036e+01_jprb, 0.388613e+01_jprb &
41366  &, 0.393145e+01_jprb, 0.397632e+01_jprb, 0.402070e+01_jprb, 0.406461e+01_jprb &
41367  &, 0.410802e+01_jprb, 0.415092e+01_jprb, 0.419331e+01_jprb &
41368  &, 0.423518e+01_jprb, 0.427651e+01_jprb, 0.431730e+01_jprb, 0.435753e+01_jprb &
41369  &, 0.439721e+01_jprb, 0.443632e+01_jprb, 0.447485e+01_jprb &
41370  &, 0.451280e+01_jprb, 0.455017e+01_jprb, 0.458690e+01_jprb, 0.462310e+01_jprb &
41371  &, 0.465864e+01_jprb, 0.469359e+01_jprb, 0.472790e+01_jprb &
41372  &, 0.476161e+01_jprb, 0.479467e+01_jprb, 0.482709e+01_jprb, 0.485888e+01_jprb &
41373  &, 0.489004e+01_jprb, 0.492053e+01_jprb, 0.495040e+01_jprb &
41374  &, 0.497958e+01_jprb, 0.500813e+01_jprb, 0.503600e+01_jprb, 0.506324e+01_jprb &
41375  &, 0.508977e+01_jprb, 0.511568e+01_jprb, 0.514087e+01_jprb &
41376  &, 0.516545e+01_jprb, 0.518933e+01_jprb, 0.521253e+01_jprb, 0.523504e+01_jprb &
41377  &, 0.525693e+01_jprb, 0.527809e+01_jprb, 0.529861e+01_jprb &
41378  &, 0.531846e+01_jprb, 0.533760e+01_jprb, 0.535609e+01_jprb, 0.537390e+01_jprb &
41379  &, 0.539103e+01_jprb, 0.540745e+01_jprb, 0.542330e+01_jprb &
41380  &, 0.543842e+01_jprb, 0.545287e+01_jprb, 0.546661e+01_jprb, 0.547974e+01_jprb &
41381  &, 0.549218e+01_jprb, 0.550395e+01_jprb, 0.551506e+01_jprb &
41382  &, 0.552553e+01_jprb, 0.553535e+01_jprb, 0.554451e+01_jprb, 0.555297e+01_jprb &
41383  &, 0.556084e+01_jprb, 0.556803e+01_jprb, 0.557460e+01_jprb &
41384  &, 0.558052e+01_jprb, 0.558582e+01_jprb, 0.559044e+01_jprb, 0.559446e+01_jprb &
41385  &, 0.559783e+01_jprb, 0.560057e+01_jprb, 0.560276e+01_jprb &
41386  &, 0.560430e+01_jprb, 0.560520e+01_jprb, 0.560554e+01_jprb, 0.560521e+01_jprb &
41387  &, 0.560435e+01_jprb, 0.560286e+01_jprb, 0.560081e+01_jprb &
41388  &, 0.559810e+01_jprb, 0.559487e+01_jprb, 0.559107e+01_jprb, 0.558666e+01_jprb &
41389  &, 0.558171e+01_jprb, 0.557624e+01_jprb, 0.557015e+01_jprb/)
41390 xcw( 949, :) = (/ &
41391  & 0.116885e+01_jprb, 0.121266e+01_jprb, 0.125708e+01_jprb, 0.130207e+01_jprb &
41392  &, 0.134763e+01_jprb, 0.139373e+01_jprb, 0.144035e+01_jprb &
41393  &, 0.148747e+01_jprb, 0.153507e+01_jprb, 0.158313e+01_jprb, 0.163163e+01_jprb &
41394  &, 0.168054e+01_jprb, 0.172985e+01_jprb, 0.177954e+01_jprb &
41395  &, 0.182957e+01_jprb, 0.187994e+01_jprb, 0.193061e+01_jprb, 0.198157e+01_jprb &
41396  &, 0.203279e+01_jprb, 0.208425e+01_jprb, 0.213594e+01_jprb &
41397  &, 0.218782e+01_jprb, 0.223988e+01_jprb, 0.229209e+01_jprb, 0.234443e+01_jprb &
41398  &, 0.239688e+01_jprb, 0.244942e+01_jprb, 0.250203e+01_jprb &
41399  &, 0.255468e+01_jprb, 0.260735e+01_jprb, 0.266002e+01_jprb, 0.271268e+01_jprb &
41400  &, 0.276529e+01_jprb, 0.281784e+01_jprb, 0.287031e+01_jprb &
41401  &, 0.292267e+01_jprb, 0.297493e+01_jprb, 0.302703e+01_jprb, 0.307898e+01_jprb &
41402  &, 0.313074e+01_jprb, 0.318231e+01_jprb, 0.323367e+01_jprb &
41403  &, 0.328479e+01_jprb, 0.333566e+01_jprb, 0.338627e+01_jprb, 0.343659e+01_jprb &
41404  &, 0.348660e+01_jprb, 0.353631e+01_jprb, 0.358568e+01_jprb &
41405  &, 0.363470e+01_jprb, 0.368337e+01_jprb, 0.373165e+01_jprb, 0.377954e+01_jprb &
41406  &, 0.382703e+01_jprb, 0.387387e+01_jprb, 0.392075e+01_jprb &
41407  &, 0.396695e+01_jprb, 0.401269e+01_jprb, 0.405797e+01_jprb, 0.410278e+01_jprb &
41408  &, 0.414708e+01_jprb, 0.419090e+01_jprb, 0.423421e+01_jprb &
41409  &, 0.427701e+01_jprb, 0.431926e+01_jprb, 0.436097e+01_jprb, 0.440216e+01_jprb &
41410  &, 0.444277e+01_jprb, 0.448284e+01_jprb, 0.452232e+01_jprb &
41411  &, 0.456122e+01_jprb, 0.459956e+01_jprb, 0.463728e+01_jprb, 0.467442e+01_jprb &
41412  &, 0.471095e+01_jprb, 0.474687e+01_jprb, 0.478216e+01_jprb &
41413  &, 0.481684e+01_jprb, 0.485091e+01_jprb, 0.488432e+01_jprb, 0.491710e+01_jprb &
41414  &, 0.494925e+01_jprb, 0.498075e+01_jprb, 0.501158e+01_jprb &
41415  &, 0.504179e+01_jprb, 0.507132e+01_jprb, 0.510020e+01_jprb, 0.512844e+01_jprb &
41416  &, 0.515599e+01_jprb, 0.518287e+01_jprb, 0.520911e+01_jprb &
41417  &, 0.523467e+01_jprb, 0.525956e+01_jprb, 0.528379e+01_jprb, 0.530733e+01_jprb &
41418  &, 0.533018e+01_jprb, 0.535238e+01_jprb, 0.537391e+01_jprb &
41419  &, 0.539473e+01_jprb, 0.541489e+01_jprb, 0.543439e+01_jprb, 0.545321e+01_jprb &
41420  &, 0.547132e+01_jprb, 0.548881e+01_jprb, 0.550556e+01_jprb &
41421  &, 0.552155e+01_jprb, 0.553710e+01_jprb, 0.555174e+01_jprb, 0.556598e+01_jprb &
41422  &, 0.557941e+01_jprb, 0.559217e+01_jprb, 0.560427e+01_jprb &
41423  &, 0.561572e+01_jprb, 0.562648e+01_jprb, 0.563658e+01_jprb, 0.564607e+01_jprb &
41424  &, 0.565487e+01_jprb, 0.566299e+01_jprb, 0.567054e+01_jprb &
41425  &, 0.567739e+01_jprb, 0.568361e+01_jprb, 0.568921e+01_jprb, 0.569414e+01_jprb &
41426  &, 0.569843e+01_jprb, 0.570203e+01_jprb, 0.570518e+01_jprb &
41427  &, 0.570762e+01_jprb, 0.570942e+01_jprb, 0.571065e+01_jprb, 0.571121e+01_jprb &
41428  &, 0.571124e+01_jprb, 0.571063e+01_jprb, 0.570945e+01_jprb &
41429  &, 0.570761e+01_jprb, 0.570525e+01_jprb, 0.570224e+01_jprb, 0.569874e+01_jprb &
41430  &, 0.569457e+01_jprb, 0.568968e+01_jprb, 0.568455e+01_jprb/)
41431 xcw( 950, :) = (/ &
41432  & 0.116992e+01_jprb, 0.121403e+01_jprb, 0.125876e+01_jprb, 0.130408e+01_jprb &
41433  &, 0.134998e+01_jprb, 0.139643e+01_jprb, 0.144342e+01_jprb &
41434  &, 0.149092e+01_jprb, 0.153891e+01_jprb, 0.158737e+01_jprb, 0.163629e+01_jprb &
41435  &, 0.168563e+01_jprb, 0.173538e+01_jprb, 0.178552e+01_jprb &
41436  &, 0.183603e+01_jprb, 0.188687e+01_jprb, 0.193804e+01_jprb, 0.198950e+01_jprb &
41437  &, 0.204124e+01_jprb, 0.209324e+01_jprb, 0.214547e+01_jprb &
41438  &, 0.219790e+01_jprb, 0.225053e+01_jprb, 0.230332e+01_jprb, 0.235625e+01_jprb &
41439  &, 0.240931e+01_jprb, 0.246246e+01_jprb, 0.251569e+01_jprb &
41440  &, 0.256898e+01_jprb, 0.262230e+01_jprb, 0.267563e+01_jprb, 0.272896e+01_jprb &
41441  &, 0.278226e+01_jprb, 0.283550e+01_jprb, 0.288868e+01_jprb &
41442  &, 0.294176e+01_jprb, 0.299473e+01_jprb, 0.304757e+01_jprb, 0.310026e+01_jprb &
41443  &, 0.315278e+01_jprb, 0.320512e+01_jprb, 0.325725e+01_jprb &
41444  &, 0.330915e+01_jprb, 0.336082e+01_jprb, 0.341222e+01_jprb, 0.346335e+01_jprb &
41445  &, 0.351419e+01_jprb, 0.356473e+01_jprb, 0.361493e+01_jprb &
41446  &, 0.366480e+01_jprb, 0.371431e+01_jprb, 0.376346e+01_jprb, 0.381223e+01_jprb &
41447  &, 0.386059e+01_jprb, 0.390855e+01_jprb, 0.395609e+01_jprb &
41448  &, 0.400318e+01_jprb, 0.404984e+01_jprb, 0.409603e+01_jprb, 0.414175e+01_jprb &
41449  &, 0.418699e+01_jprb, 0.423175e+01_jprb, 0.427599e+01_jprb &
41450  &, 0.431972e+01_jprb, 0.436295e+01_jprb, 0.440562e+01_jprb, 0.444776e+01_jprb &
41451  &, 0.448934e+01_jprb, 0.453037e+01_jprb, 0.457083e+01_jprb &
41452  &, 0.461074e+01_jprb, 0.465003e+01_jprb, 0.468877e+01_jprb, 0.472690e+01_jprb &
41453  &, 0.476442e+01_jprb, 0.480134e+01_jprb, 0.483764e+01_jprb &
41454  &, 0.487329e+01_jprb, 0.490841e+01_jprb, 0.494284e+01_jprb, 0.497661e+01_jprb &
41455  &, 0.500982e+01_jprb, 0.504230e+01_jprb, 0.507418e+01_jprb &
41456  &, 0.510542e+01_jprb, 0.513599e+01_jprb, 0.516591e+01_jprb, 0.519517e+01_jprb &
41457  &, 0.522375e+01_jprb, 0.525169e+01_jprb, 0.527896e+01_jprb &
41458  &, 0.530557e+01_jprb, 0.533148e+01_jprb, 0.535660e+01_jprb, 0.538129e+01_jprb &
41459  &, 0.540520e+01_jprb, 0.542844e+01_jprb, 0.545100e+01_jprb &
41460  &, 0.547282e+01_jprb, 0.549406e+01_jprb, 0.551458e+01_jprb, 0.553445e+01_jprb &
41461  &, 0.555361e+01_jprb, 0.557211e+01_jprb, 0.558992e+01_jprb &
41462  &, 0.560704e+01_jprb, 0.562349e+01_jprb, 0.563932e+01_jprb, 0.565442e+01_jprb &
41463  &, 0.566883e+01_jprb, 0.568261e+01_jprb, 0.569572e+01_jprb &
41464  &, 0.570819e+01_jprb, 0.571994e+01_jprb, 0.573106e+01_jprb, 0.574152e+01_jprb &
41465  &, 0.575133e+01_jprb, 0.576047e+01_jprb, 0.576894e+01_jprb &
41466  &, 0.577681e+01_jprb, 0.578399e+01_jprb, 0.579054e+01_jprb, 0.579643e+01_jprb &
41467  &, 0.580167e+01_jprb, 0.580633e+01_jprb, 0.581037e+01_jprb &
41468  &, 0.581370e+01_jprb, 0.581649e+01_jprb, 0.581866e+01_jprb, 0.582015e+01_jprb &
41469  &, 0.582104e+01_jprb, 0.582135e+01_jprb, 0.582103e+01_jprb &
41470  &, 0.582016e+01_jprb, 0.581869e+01_jprb, 0.581659e+01_jprb, 0.581392e+01_jprb &
41471  &, 0.581064e+01_jprb, 0.580682e+01_jprb, 0.580243e+01_jprb/)
41472 xcw( 951, :) = (/ &
41473  & 0.117100e+01_jprb, 0.121542e+01_jprb, 0.126047e+01_jprb, 0.130612e+01_jprb &
41474  &, 0.135236e+01_jprb, 0.139917e+01_jprb, 0.144653e+01_jprb &
41475  &, 0.149442e+01_jprb, 0.154281e+01_jprb, 0.159169e+01_jprb, 0.164103e+01_jprb &
41476  &, 0.169081e+01_jprb, 0.174101e+01_jprb, 0.179162e+01_jprb &
41477  &, 0.184260e+01_jprb, 0.189394e+01_jprb, 0.194561e+01_jprb, 0.199759e+01_jprb &
41478  &, 0.204986e+01_jprb, 0.210240e+01_jprb, 0.215518e+01_jprb &
41479  &, 0.220818e+01_jprb, 0.226139e+01_jprb, 0.231477e+01_jprb, 0.236831e+01_jprb &
41480  &, 0.242198e+01_jprb, 0.247576e+01_jprb, 0.252963e+01_jprb &
41481  &, 0.258357e+01_jprb, 0.263755e+01_jprb, 0.269156e+01_jprb, 0.274557e+01_jprb &
41482  &, 0.279956e+01_jprb, 0.285352e+01_jprb, 0.290741e+01_jprb &
41483  &, 0.296122e+01_jprb, 0.301493e+01_jprb, 0.306852e+01_jprb, 0.312198e+01_jprb &
41484  &, 0.317527e+01_jprb, 0.322839e+01_jprb, 0.328131e+01_jprb &
41485  &, 0.333402e+01_jprb, 0.338649e+01_jprb, 0.343871e+01_jprb, 0.349068e+01_jprb &
41486  &, 0.354235e+01_jprb, 0.359374e+01_jprb, 0.364480e+01_jprb &
41487  &, 0.369554e+01_jprb, 0.374592e+01_jprb, 0.379595e+01_jprb, 0.384561e+01_jprb &
41488  &, 0.389488e+01_jprb, 0.394374e+01_jprb, 0.399219e+01_jprb &
41489  &, 0.404021e+01_jprb, 0.408780e+01_jprb, 0.413492e+01_jprb, 0.418160e+01_jprb &
41490  &, 0.422778e+01_jprb, 0.427350e+01_jprb, 0.431870e+01_jprb &
41491  &, 0.436340e+01_jprb, 0.440759e+01_jprb, 0.445125e+01_jprb, 0.449437e+01_jprb &
41492  &, 0.453696e+01_jprb, 0.457898e+01_jprb, 0.462045e+01_jprb &
41493  &, 0.466135e+01_jprb, 0.470167e+01_jprb, 0.474141e+01_jprb, 0.478057e+01_jprb &
41494  &, 0.481911e+01_jprb, 0.485707e+01_jprb, 0.489441e+01_jprb &
41495  &, 0.493113e+01_jprb, 0.496723e+01_jprb, 0.500267e+01_jprb, 0.503755e+01_jprb &
41496  &, 0.507178e+01_jprb, 0.510536e+01_jprb, 0.513829e+01_jprb &
41497  &, 0.517055e+01_jprb, 0.520219e+01_jprb, 0.523315e+01_jprb, 0.526349e+01_jprb &
41498  &, 0.529315e+01_jprb, 0.532216e+01_jprb, 0.535047e+01_jprb &
41499  &, 0.537815e+01_jprb, 0.540513e+01_jprb, 0.543144e+01_jprb, 0.545709e+01_jprb &
41500  &, 0.548209e+01_jprb, 0.550636e+01_jprb, 0.552999e+01_jprb &
41501  &, 0.555282e+01_jprb, 0.557520e+01_jprb, 0.559679e+01_jprb, 0.561767e+01_jprb &
41502  &, 0.563792e+01_jprb, 0.565747e+01_jprb, 0.567637e+01_jprb &
41503  &, 0.569455e+01_jprb, 0.571201e+01_jprb, 0.572890e+01_jprb, 0.574509e+01_jprb &
41504  &, 0.576060e+01_jprb, 0.577539e+01_jprb, 0.578957e+01_jprb &
41505  &, 0.580305e+01_jprb, 0.581585e+01_jprb, 0.582803e+01_jprb, 0.583800e+01_jprb &
41506  &, 0.585032e+01_jprb, 0.586047e+01_jprb, 0.586685e+01_jprb &
41507  &, 0.587887e+01_jprb, 0.588704e+01_jprb, 0.589460e+01_jprb, 0.590148e+01_jprb &
41508  &, 0.590777e+01_jprb, 0.591342e+01_jprb, 0.591839e+01_jprb &
41509  &, 0.592276e+01_jprb, 0.592647e+01_jprb, 0.592950e+01_jprb, 0.593207e+01_jprb &
41510  &, 0.593393e+01_jprb, 0.593520e+01_jprb, 0.593584e+01_jprb &
41511  &, 0.593586e+01_jprb, 0.593528e+01_jprb, 0.593412e+01_jprb, 0.593238e+01_jprb &
41512  &, 0.593003e+01_jprb, 0.592708e+01_jprb, 0.592354e+01_jprb/)
41513 xcw( 952, :) = (/ &
41514  & 0.117211e+01_jprb, 0.121683e+01_jprb, 0.126221e+01_jprb, 0.130820e+01_jprb &
41515  &, 0.135479e+01_jprb, 0.140197e+01_jprb, 0.144971e+01_jprb &
41516  &, 0.149799e+01_jprb, 0.154678e+01_jprb, 0.159608e+01_jprb, 0.164586e+01_jprb &
41517  &, 0.169609e+01_jprb, 0.174675e+01_jprb, 0.179783e+01_jprb &
41518  &, 0.184930e+01_jprb, 0.190113e+01_jprb, 0.195332e+01_jprb, 0.200583e+01_jprb &
41519  &, 0.205864e+01_jprb, 0.211173e+01_jprb, 0.216508e+01_jprb &
41520  &, 0.221866e+01_jprb, 0.227245e+01_jprb, 0.232644e+01_jprb, 0.238059e+01_jprb &
41521  &, 0.243489e+01_jprb, 0.248932e+01_jprb, 0.254384e+01_jprb &
41522  &, 0.259844e+01_jprb, 0.265311e+01_jprb, 0.270780e+01_jprb, 0.276251e+01_jprb &
41523  &, 0.281722e+01_jprb, 0.287189e+01_jprb, 0.292652e+01_jprb &
41524  &, 0.298108e+01_jprb, 0.303555e+01_jprb, 0.308991e+01_jprb, 0.314414e+01_jprb &
41525  &, 0.319822e+01_jprb, 0.325214e+01_jprb, 0.330587e+01_jprb &
41526  &, 0.335940e+01_jprb, 0.341270e+01_jprb, 0.346578e+01_jprb, 0.351859e+01_jprb &
41527  &, 0.357112e+01_jprb, 0.362337e+01_jprb, 0.367530e+01_jprb &
41528  &, 0.372693e+01_jprb, 0.377821e+01_jprb, 0.382915e+01_jprb, 0.387971e+01_jprb &
41529  &, 0.392991e+01_jprb, 0.397969e+01_jprb, 0.402908e+01_jprb &
41530  &, 0.407805e+01_jprb, 0.412659e+01_jprb, 0.417467e+01_jprb, 0.422231e+01_jprb &
41531  &, 0.426947e+01_jprb, 0.431617e+01_jprb, 0.436237e+01_jprb &
41532  &, 0.440806e+01_jprb, 0.445324e+01_jprb, 0.449792e+01_jprb, 0.454205e+01_jprb &
41533  &, 0.458565e+01_jprb, 0.462869e+01_jprb, 0.467121e+01_jprb &
41534  &, 0.471314e+01_jprb, 0.475449e+01_jprb, 0.479527e+01_jprb, 0.483548e+01_jprb &
41535  &, 0.487507e+01_jprb, 0.491409e+01_jprb, 0.495249e+01_jprb &
41536  &, 0.499028e+01_jprb, 0.502746e+01_jprb, 0.506402e+01_jprb, 0.509992e+01_jprb &
41537  &, 0.513524e+01_jprb, 0.516987e+01_jprb, 0.520390e+01_jprb &
41538  &, 0.523728e+01_jprb, 0.527000e+01_jprb, 0.530207e+01_jprb, 0.533345e+01_jprb &
41539  &, 0.536421e+01_jprb, 0.539427e+01_jprb, 0.542374e+01_jprb &
41540  &, 0.545253e+01_jprb, 0.548059e+01_jprb, 0.550801e+01_jprb, 0.553476e+01_jprb &
41541  &, 0.556085e+01_jprb, 0.558625e+01_jprb, 0.561099e+01_jprb &
41542  &, 0.563503e+01_jprb, 0.565838e+01_jprb, 0.568109e+01_jprb, 0.570308e+01_jprb &
41543  &, 0.572441e+01_jprb, 0.574505e+01_jprb, 0.576440e+01_jprb &
41544  &, 0.578430e+01_jprb, 0.580294e+01_jprb, 0.582083e+01_jprb, 0.583812e+01_jprb &
41545  &, 0.585472e+01_jprb, 0.587061e+01_jprb, 0.588584e+01_jprb &
41546  &, 0.590042e+01_jprb, 0.591427e+01_jprb, 0.592750e+01_jprb, 0.594006e+01_jprb &
41547  &, 0.595194e+01_jprb, 0.596318e+01_jprb, 0.597375e+01_jprb &
41548  &, 0.598366e+01_jprb, 0.599288e+01_jprb, 0.600142e+01_jprb, 0.600945e+01_jprb &
41549  &, 0.601672e+01_jprb, 0.602340e+01_jprb, 0.602940e+01_jprb &
41550  &, 0.603479e+01_jprb, 0.603953e+01_jprb, 0.604363e+01_jprb, 0.604710e+01_jprb &
41551  &, 0.604997e+01_jprb, 0.605219e+01_jprb, 0.605383e+01_jprb &
41552  &, 0.605484e+01_jprb, 0.605525e+01_jprb, 0.605501e+01_jprb, 0.605419e+01_jprb &
41553  &, 0.605282e+01_jprb, 0.605083e+01_jprb, 0.604826e+01_jprb/)
41554 
41555 IF (lhook) CALL dr_hook('SU_MCICA:PART136',1,zhook_handle)
41556 END SUBROUTINE part136
41557 
41558 #ifdef VPP5000
41559 !OCL SCALAR
41560 #endif
41561 !option! -Nv -NO
41562 #ifdef RS6K
41563 @process nooptimize
41564 #endif
41565 !pgi$r opt=0
41566 SUBROUTINE part137
41567 
41568 REAL(KIND=JPRB) :: ZHOOK_HANDLE
41569 IF (lhook) CALL dr_hook('SU_MCICA:PART137',0,zhook_handle)
41570 
41571 xcw( 953, :) = (/ &
41572  & 0.117323e+01_jprb, 0.121827e+01_jprb, 0.126398e+01_jprb, 0.131031e+01_jprb &
41573  &, 0.135726e+01_jprb, 0.140481e+01_jprb, 0.145294e+01_jprb &
41574  &, 0.150162e+01_jprb, 0.155083e+01_jprb, 0.160056e+01_jprb, 0.165077e+01_jprb &
41575  &, 0.170146e+01_jprb, 0.175259e+01_jprb, 0.180416e+01_jprb &
41576  &, 0.185612e+01_jprb, 0.190847e+01_jprb, 0.196118e+01_jprb, 0.201423e+01_jprb &
41577  &, 0.206759e+01_jprb, 0.212124e+01_jprb, 0.217517e+01_jprb &
41578  &, 0.222934e+01_jprb, 0.228374e+01_jprb, 0.233835e+01_jprb, 0.239313e+01_jprb &
41579  &, 0.244808e+01_jprb, 0.250315e+01_jprb, 0.255834e+01_jprb &
41580  &, 0.261363e+01_jprb, 0.266898e+01_jprb, 0.272438e+01_jprb, 0.277981e+01_jprb &
41581  &, 0.283524e+01_jprb, 0.289066e+01_jprb, 0.294604e+01_jprb &
41582  &, 0.300136e+01_jprb, 0.305660e+01_jprb, 0.311175e+01_jprb, 0.316678e+01_jprb &
41583  &, 0.322167e+01_jprb, 0.327641e+01_jprb, 0.333097e+01_jprb &
41584  &, 0.338533e+01_jprb, 0.343948e+01_jprb, 0.349341e+01_jprb, 0.354710e+01_jprb &
41585  &, 0.360049e+01_jprb, 0.365364e+01_jprb, 0.370649e+01_jprb &
41586  &, 0.375901e+01_jprb, 0.381122e+01_jprb, 0.386307e+01_jprb, 0.391459e+01_jprb &
41587  &, 0.396572e+01_jprb, 0.401646e+01_jprb, 0.406681e+01_jprb &
41588  &, 0.411675e+01_jprb, 0.416625e+01_jprb, 0.421533e+01_jprb, 0.426395e+01_jprb &
41589  &, 0.431212e+01_jprb, 0.435981e+01_jprb, 0.440703e+01_jprb &
41590  &, 0.445374e+01_jprb, 0.449995e+01_jprb, 0.454565e+01_jprb, 0.459082e+01_jprb &
41591  &, 0.463547e+01_jprb, 0.467958e+01_jprb, 0.472312e+01_jprb &
41592  &, 0.476613e+01_jprb, 0.480855e+01_jprb, 0.485042e+01_jprb, 0.489169e+01_jprb &
41593  &, 0.493237e+01_jprb, 0.497246e+01_jprb, 0.501197e+01_jprb &
41594  &, 0.505084e+01_jprb, 0.508913e+01_jprb, 0.512679e+01_jprb, 0.516380e+01_jprb &
41595  &, 0.520021e+01_jprb, 0.523598e+01_jprb, 0.527112e+01_jprb &
41596  &, 0.530561e+01_jprb, 0.533943e+01_jprb, 0.537264e+01_jprb, 0.540519e+01_jprb &
41597  &, 0.543706e+01_jprb, 0.546828e+01_jprb, 0.549885e+01_jprb &
41598  &, 0.552874e+01_jprb, 0.555796e+01_jprb, 0.558548e+01_jprb, 0.561439e+01_jprb &
41599  &, 0.564162e+01_jprb, 0.566815e+01_jprb, 0.569399e+01_jprb &
41600  &, 0.571920e+01_jprb, 0.574370e+01_jprb, 0.576752e+01_jprb, 0.579068e+01_jprb &
41601  &, 0.581282e+01_jprb, 0.583492e+01_jprb, 0.585599e+01_jprb &
41602  &, 0.587643e+01_jprb, 0.589615e+01_jprb, 0.591518e+01_jprb, 0.593359e+01_jprb &
41603  &, 0.595133e+01_jprb, 0.596831e+01_jprb, 0.598472e+01_jprb &
41604  &, 0.600039e+01_jprb, 0.601538e+01_jprb, 0.602970e+01_jprb, 0.604335e+01_jprb &
41605  &, 0.605637e+01_jprb, 0.606865e+01_jprb, 0.608035e+01_jprb &
41606  &, 0.609125e+01_jprb, 0.610171e+01_jprb, 0.611128e+01_jprb, 0.612039e+01_jprb &
41607  &, 0.612873e+01_jprb, 0.613649e+01_jprb, 0.614356e+01_jprb &
41608  &, 0.614996e+01_jprb, 0.615577e+01_jprb, 0.616093e+01_jprb, 0.616547e+01_jprb &
41609  &, 0.616933e+01_jprb, 0.617260e+01_jprb, 0.617522e+01_jprb &
41610  &, 0.617722e+01_jprb, 0.617867e+01_jprb, 0.617946e+01_jprb, 0.617967e+01_jprb &
41611  &, 0.617919e+01_jprb, 0.617822e+01_jprb, 0.617659e+01_jprb/)
41612 xcw( 954, :) = (/ &
41613  & 0.117437e+01_jprb, 0.121974e+01_jprb, 0.126578e+01_jprb, 0.131246e+01_jprb &
41614  &, 0.135978e+01_jprb, 0.140771e+01_jprb, 0.145623e+01_jprb &
41615  &, 0.150532e+01_jprb, 0.155495e+01_jprb, 0.160512e+01_jprb, 0.165578e+01_jprb &
41616  &, 0.170694e+01_jprb, 0.175855e+01_jprb, 0.181061e+01_jprb &
41617  &, 0.186308e+01_jprb, 0.191595e+01_jprb, 0.196920e+01_jprb, 0.202279e+01_jprb &
41618  &, 0.207672e+01_jprb, 0.213095e+01_jprb, 0.218547e+01_jprb &
41619  &, 0.224025e+01_jprb, 0.229527e+01_jprb, 0.235050e+01_jprb, 0.240593e+01_jprb &
41620  &, 0.246153e+01_jprb, 0.251727e+01_jprb, 0.257315e+01_jprb &
41621  &, 0.262913e+01_jprb, 0.268516e+01_jprb, 0.274131e+01_jprb, 0.279747e+01_jprb &
41622  &, 0.285365e+01_jprb, 0.290982e+01_jprb, 0.296597e+01_jprb &
41623  &, 0.302208e+01_jprb, 0.307811e+01_jprb, 0.313406e+01_jprb, 0.318990e+01_jprb &
41624  &, 0.324563e+01_jprb, 0.330119e+01_jprb, 0.335661e+01_jprb &
41625  &, 0.341183e+01_jprb, 0.346686e+01_jprb, 0.352166e+01_jprb, 0.357624e+01_jprb &
41626  &, 0.363055e+01_jprb, 0.368461e+01_jprb, 0.373836e+01_jprb &
41627  &, 0.379182e+01_jprb, 0.384496e+01_jprb, 0.389778e+01_jprb, 0.395024e+01_jprb &
41628  &, 0.400234e+01_jprb, 0.405406e+01_jprb, 0.410540e+01_jprb &
41629  &, 0.415630e+01_jprb, 0.420683e+01_jprb, 0.425691e+01_jprb, 0.430656e+01_jprb &
41630  &, 0.435574e+01_jprb, 0.440448e+01_jprb, 0.445273e+01_jprb &
41631  &, 0.450048e+01_jprb, 0.454775e+01_jprb, 0.459453e+01_jprb, 0.464076e+01_jprb &
41632  &, 0.468649e+01_jprb, 0.473166e+01_jprb, 0.477630e+01_jprb &
41633  &, 0.482039e+01_jprb, 0.486391e+01_jprb, 0.490687e+01_jprb, 0.494926e+01_jprb &
41634  &, 0.499106e+01_jprb, 0.503226e+01_jprb, 0.507289e+01_jprb &
41635  &, 0.511289e+01_jprb, 0.515229e+01_jprb, 0.519100e+01_jprb, 0.522924e+01_jprb &
41636  &, 0.526680e+01_jprb, 0.530373e+01_jprb, 0.534001e+01_jprb &
41637  &, 0.537565e+01_jprb, 0.541063e+01_jprb, 0.544499e+01_jprb, 0.547869e+01_jprb &
41638  &, 0.551174e+01_jprb, 0.554412e+01_jprb, 0.557583e+01_jprb &
41639  &, 0.560689e+01_jprb, 0.563728e+01_jprb, 0.566701e+01_jprb, 0.569603e+01_jprb &
41640  &, 0.572446e+01_jprb, 0.575216e+01_jprb, 0.577920e+01_jprb &
41641  &, 0.580556e+01_jprb, 0.583125e+01_jprb, 0.585622e+01_jprb, 0.588053e+01_jprb &
41642  &, 0.590417e+01_jprb, 0.592717e+01_jprb, 0.594940e+01_jprb &
41643  &, 0.597100e+01_jprb, 0.599189e+01_jprb, 0.601213e+01_jprb, 0.603168e+01_jprb &
41644  &, 0.605055e+01_jprb, 0.606871e+01_jprb, 0.608625e+01_jprb &
41645  &, 0.610310e+01_jprb, 0.611922e+01_jprb, 0.613472e+01_jprb, 0.614951e+01_jprb &
41646  &, 0.616365e+01_jprb, 0.617711e+01_jprb, 0.618990e+01_jprb &
41647  &, 0.620203e+01_jprb, 0.621352e+01_jprb, 0.622432e+01_jprb, 0.623445e+01_jprb &
41648  &, 0.624391e+01_jprb, 0.625236e+01_jprb, 0.626093e+01_jprb &
41649  &, 0.626845e+01_jprb, 0.627536e+01_jprb, 0.628164e+01_jprb, 0.628711e+01_jprb &
41650  &, 0.629207e+01_jprb, 0.629649e+01_jprb, 0.630022e+01_jprb &
41651  &, 0.630331e+01_jprb, 0.630572e+01_jprb, 0.630759e+01_jprb, 0.630881e+01_jprb &
41652  &, 0.630940e+01_jprb, 0.630944e+01_jprb, 0.630880e+01_jprb/)
41653 xcw( 955, :) = (/ &
41654  & 0.117554e+01_jprb, 0.122123e+01_jprb, 0.126761e+01_jprb, 0.131466e+01_jprb &
41655  &, 0.136235e+01_jprb, 0.141066e+01_jprb, 0.145958e+01_jprb &
41656  &, 0.150909e+01_jprb, 0.155916e+01_jprb, 0.160976e+01_jprb, 0.166089e+01_jprb &
41657  &, 0.171252e+01_jprb, 0.176454e+01_jprb, 0.181719e+01_jprb &
41658  &, 0.187018e+01_jprb, 0.192358e+01_jprb, 0.197738e+01_jprb, 0.203153e+01_jprb &
41659  &, 0.208604e+01_jprb, 0.214086e+01_jprb, 0.219598e+01_jprb &
41660  &, 0.225137e+01_jprb, 0.230702e+01_jprb, 0.236290e+01_jprb, 0.241899e+01_jprb &
41661  &, 0.247526e+01_jprb, 0.253169e+01_jprb, 0.258824e+01_jprb &
41662  &, 0.264495e+01_jprb, 0.270174e+01_jprb, 0.275860e+01_jprb, 0.281551e+01_jprb &
41663  &, 0.287246e+01_jprb, 0.292940e+01_jprb, 0.298634e+01_jprb &
41664  &, 0.304324e+01_jprb, 0.310009e+01_jprb, 0.315686e+01_jprb, 0.321354e+01_jprb &
41665  &, 0.327011e+01_jprb, 0.332654e+01_jprb, 0.338281e+01_jprb &
41666  &, 0.343893e+01_jprb, 0.349484e+01_jprb, 0.355055e+01_jprb, 0.360604e+01_jprb &
41667  &, 0.366128e+01_jprb, 0.371627e+01_jprb, 0.377097e+01_jprb &
41668  &, 0.382538e+01_jprb, 0.387949e+01_jprb, 0.393327e+01_jprb, 0.398671e+01_jprb &
41669  &, 0.403981e+01_jprb, 0.409254e+01_jprb, 0.414487e+01_jprb &
41670  &, 0.419682e+01_jprb, 0.424836e+01_jprb, 0.429949e+01_jprb, 0.435017e+01_jprb &
41671  &, 0.440042e+01_jprb, 0.445021e+01_jprb, 0.449952e+01_jprb &
41672  &, 0.454835e+01_jprb, 0.459670e+01_jprb, 0.464455e+01_jprb, 0.469190e+01_jprb &
41673  &, 0.473872e+01_jprb, 0.478502e+01_jprb, 0.483077e+01_jprb &
41674  &, 0.487598e+01_jprb, 0.492063e+01_jprb, 0.496473e+01_jprb, 0.500825e+01_jprb &
41675  &, 0.505120e+01_jprb, 0.509355e+01_jprb, 0.513533e+01_jprb &
41676  &, 0.517649e+01_jprb, 0.521706e+01_jprb, 0.525703e+01_jprb, 0.529634e+01_jprb &
41677  &, 0.533507e+01_jprb, 0.537320e+01_jprb, 0.541064e+01_jprb &
41678  &, 0.544744e+01_jprb, 0.548361e+01_jprb, 0.551920e+01_jprb, 0.555408e+01_jprb &
41679  &, 0.558835e+01_jprb, 0.562192e+01_jprb, 0.565483e+01_jprb &
41680  &, 0.568710e+01_jprb, 0.571871e+01_jprb, 0.574952e+01_jprb, 0.577991e+01_jprb &
41681  &, 0.580950e+01_jprb, 0.583841e+01_jprb, 0.586663e+01_jprb &
41682  &, 0.589421e+01_jprb, 0.592112e+01_jprb, 0.594732e+01_jprb, 0.597282e+01_jprb &
41683  &, 0.599770e+01_jprb, 0.602186e+01_jprb, 0.604534e+01_jprb &
41684  &, 0.606815e+01_jprb, 0.609025e+01_jprb, 0.611170e+01_jprb, 0.613242e+01_jprb &
41685  &, 0.615251e+01_jprb, 0.617189e+01_jprb, 0.619061e+01_jprb &
41686  &, 0.620863e+01_jprb, 0.622598e+01_jprb, 0.624265e+01_jprb, 0.625863e+01_jprb &
41687  &, 0.627399e+01_jprb, 0.628858e+01_jprb, 0.630260e+01_jprb &
41688  &, 0.631591e+01_jprb, 0.632851e+01_jprb, 0.634049e+01_jprb, 0.635179e+01_jprb &
41689  &, 0.636243e+01_jprb, 0.637242e+01_jprb, 0.638172e+01_jprb &
41690  &, 0.639040e+01_jprb, 0.639843e+01_jprb, 0.640586e+01_jprb, 0.641254e+01_jprb &
41691  &, 0.641866e+01_jprb, 0.642400e+01_jprb, 0.642892e+01_jprb &
41692  &, 0.643309e+01_jprb, 0.643664e+01_jprb, 0.643958e+01_jprb, 0.644187e+01_jprb &
41693  &, 0.644352e+01_jprb, 0.644461e+01_jprb, 0.644509e+01_jprb/)
41694 xcw( 956, :) = (/ &
41695  & 0.117672e+01_jprb, 0.122275e+01_jprb, 0.126948e+01_jprb, 0.131689e+01_jprb &
41696  &, 0.136496e+01_jprb, 0.141367e+01_jprb, 0.146300e+01_jprb &
41697  &, 0.151293e+01_jprb, 0.156344e+01_jprb, 0.161451e+01_jprb, 0.166611e+01_jprb &
41698  &, 0.171822e+01_jprb, 0.177083e+01_jprb, 0.182390e+01_jprb &
41699  &, 0.187743e+01_jprb, 0.193137e+01_jprb, 0.198573e+01_jprb, 0.204046e+01_jprb &
41700  &, 0.209555e+01_jprb, 0.215097e+01_jprb, 0.220671e+01_jprb &
41701  &, 0.226274e+01_jprb, 0.231903e+01_jprb, 0.237557e+01_jprb, 0.243233e+01_jprb &
41702  &, 0.248929e+01_jprb, 0.254643e+01_jprb, 0.260371e+01_jprb &
41703  &, 0.266113e+01_jprb, 0.271866e+01_jprb, 0.277628e+01_jprb, 0.283395e+01_jprb &
41704  &, 0.289168e+01_jprb, 0.294942e+01_jprb, 0.300716e+01_jprb &
41705  &, 0.306488e+01_jprb, 0.312012e+01_jprb, 0.318018e+01_jprb, 0.323771e+01_jprb &
41706  &, 0.329515e+01_jprb, 0.335246e+01_jprb, 0.340963e+01_jprb &
41707  &, 0.346664e+01_jprb, 0.352347e+01_jprb, 0.358011e+01_jprb, 0.363653e+01_jprb &
41708  &, 0.369272e+01_jprb, 0.374866e+01_jprb, 0.380433e+01_jprb &
41709  &, 0.385973e+01_jprb, 0.391483e+01_jprb, 0.396961e+01_jprb, 0.402406e+01_jprb &
41710  &, 0.407817e+01_jprb, 0.413192e+01_jprb, 0.418530e+01_jprb &
41711  &, 0.423829e+01_jprb, 0.429089e+01_jprb, 0.434308e+01_jprb, 0.439484e+01_jprb &
41712  &, 0.444615e+01_jprb, 0.449704e+01_jprb, 0.454745e+01_jprb &
41713  &, 0.459740e+01_jprb, 0.464686e+01_jprb, 0.469583e+01_jprb, 0.474430e+01_jprb &
41714  &, 0.479226e+01_jprb, 0.483969e+01_jprb, 0.488659e+01_jprb &
41715  &, 0.493294e+01_jprb, 0.497876e+01_jprb, 0.502402e+01_jprb, 0.506872e+01_jprb &
41716  &, 0.511285e+01_jprb, 0.515639e+01_jprb, 0.519935e+01_jprb &
41717  &, 0.524169e+01_jprb, 0.528347e+01_jprb, 0.532463e+01_jprb, 0.536519e+01_jprb &
41718  &, 0.540511e+01_jprb, 0.544443e+01_jprb, 0.548308e+01_jprb &
41719  &, 0.552115e+01_jprb, 0.555855e+01_jprb, 0.559535e+01_jprb, 0.563146e+01_jprb &
41720  &, 0.566693e+01_jprb, 0.570173e+01_jprb, 0.573591e+01_jprb &
41721  &, 0.576943e+01_jprb, 0.580229e+01_jprb, 0.583443e+01_jprb, 0.586596e+01_jprb &
41722  &, 0.589683e+01_jprb, 0.592698e+01_jprb, 0.595646e+01_jprb &
41723  &, 0.598526e+01_jprb, 0.601343e+01_jprb, 0.604086e+01_jprb, 0.606767e+01_jprb &
41724  &, 0.609376e+01_jprb, 0.611920e+01_jprb, 0.614393e+01_jprb &
41725  &, 0.616795e+01_jprb, 0.619130e+01_jprb, 0.621401e+01_jprb, 0.623599e+01_jprb &
41726  &, 0.625730e+01_jprb, 0.627794e+01_jprb, 0.629792e+01_jprb &
41727  &, 0.631718e+01_jprb, 0.633574e+01_jprb, 0.635364e+01_jprb, 0.637089e+01_jprb &
41728  &, 0.638743e+01_jprb, 0.640330e+01_jprb, 0.641844e+01_jprb &
41729  &, 0.643267e+01_jprb, 0.644690e+01_jprb, 0.646005e+01_jprb, 0.647241e+01_jprb &
41730  &, 0.648443e+01_jprb, 0.649558e+01_jprb, 0.650610e+01_jprb &
41731  &, 0.651594e+01_jprb, 0.652518e+01_jprb, 0.653376e+01_jprb, 0.654165e+01_jprb &
41732  &, 0.654892e+01_jprb, 0.655552e+01_jprb, 0.656152e+01_jprb &
41733  &, 0.656682e+01_jprb, 0.657150e+01_jprb, 0.657557e+01_jprb, 0.657904e+01_jprb &
41734  &, 0.658180e+01_jprb, 0.658400e+01_jprb, 0.658558e+01_jprb/)
41735 xcw( 957, :) = (/ &
41736  & 0.117793e+01_jprb, 0.122430e+01_jprb, 0.127139e+01_jprb, 0.131917e+01_jprb &
41737  &, 0.136763e+01_jprb, 0.141674e+01_jprb, 0.146649e+01_jprb &
41738  &, 0.151686e+01_jprb, 0.156782e+01_jprb, 0.161935e+01_jprb, 0.167143e+01_jprb &
41739  &, 0.172404e+01_jprb, 0.177715e+01_jprb, 0.183076e+01_jprb &
41740  &, 0.188482e+01_jprb, 0.193933e+01_jprb, 0.199425e+01_jprb, 0.204957e+01_jprb &
41741  &, 0.210526e+01_jprb, 0.216131e+01_jprb, 0.221767e+01_jprb &
41742  &, 0.227435e+01_jprb, 0.233130e+01_jprb, 0.238852e+01_jprb, 0.244597e+01_jprb &
41743  &, 0.250363e+01_jprb, 0.256148e+01_jprb, 0.261950e+01_jprb &
41744  &, 0.267767e+01_jprb, 0.273596e+01_jprb, 0.279434e+01_jprb, 0.285281e+01_jprb &
41745  &, 0.291133e+01_jprb, 0.296989e+01_jprb, 0.302846e+01_jprb &
41746  &, 0.308702e+01_jprb, 0.314555e+01_jprb, 0.320403e+01_jprb, 0.326245e+01_jprb &
41747  &, 0.332078e+01_jprb, 0.337899e+01_jprb, 0.343707e+01_jprb &
41748  &, 0.349501e+01_jprb, 0.355277e+01_jprb, 0.361036e+01_jprb, 0.366774e+01_jprb &
41749  &, 0.372491e+01_jprb, 0.378182e+01_jprb, 0.383850e+01_jprb &
41750  &, 0.389489e+01_jprb, 0.395101e+01_jprb, 0.400681e+01_jprb, 0.406231e+01_jprb &
41751  &, 0.411746e+01_jprb, 0.417226e+01_jprb, 0.422672e+01_jprb &
41752  &, 0.428079e+01_jprb, 0.433446e+01_jprb, 0.438775e+01_jprb, 0.444061e+01_jprb &
41753  &, 0.449304e+01_jprb, 0.454503e+01_jprb, 0.459658e+01_jprb &
41754  &, 0.464765e+01_jprb, 0.469826e+01_jprb, 0.474838e+01_jprb, 0.479800e+01_jprb &
41755  &, 0.484714e+01_jprb, 0.489573e+01_jprb, 0.494383e+01_jprb &
41756  &, 0.499138e+01_jprb, 0.503839e+01_jprb, 0.508484e+01_jprb, 0.513074e+01_jprb &
41757  &, 0.517607e+01_jprb, 0.522084e+01_jprb, 0.526501e+01_jprb &
41758  &, 0.530860e+01_jprb, 0.535162e+01_jprb, 0.539400e+01_jprb, 0.543580e+01_jprb &
41759  &, 0.547699e+01_jprb, 0.551754e+01_jprb, 0.555746e+01_jprb &
41760  &, 0.559678e+01_jprb, 0.563547e+01_jprb, 0.567351e+01_jprb, 0.571086e+01_jprb &
41761  &, 0.574764e+01_jprb, 0.578365e+01_jprb, 0.581920e+01_jprb &
41762  &, 0.585397e+01_jprb, 0.588810e+01_jprb, 0.592158e+01_jprb, 0.595437e+01_jprb &
41763  &, 0.598646e+01_jprb, 0.601797e+01_jprb, 0.604874e+01_jprb &
41764  &, 0.607885e+01_jprb, 0.610829e+01_jprb, 0.613707e+01_jprb, 0.616512e+01_jprb &
41765  &, 0.619253e+01_jprb, 0.621922e+01_jprb, 0.624524e+01_jprb &
41766  &, 0.627060e+01_jprb, 0.629526e+01_jprb, 0.631910e+01_jprb, 0.634251e+01_jprb &
41767  &, 0.636513e+01_jprb, 0.638704e+01_jprb, 0.640829e+01_jprb &
41768  &, 0.642886e+01_jprb, 0.644870e+01_jprb, 0.646792e+01_jprb, 0.648639e+01_jprb &
41769  &, 0.650426e+01_jprb, 0.652135e+01_jprb, 0.653782e+01_jprb &
41770  &, 0.655362e+01_jprb, 0.656873e+01_jprb, 0.658320e+01_jprb, 0.659699e+01_jprb &
41771  &, 0.660923e+01_jprb, 0.662250e+01_jprb, 0.663424e+01_jprb &
41772  &, 0.664524e+01_jprb, 0.665579e+01_jprb, 0.666558e+01_jprb, 0.667473e+01_jprb &
41773  &, 0.668314e+01_jprb, 0.669099e+01_jprb, 0.669819e+01_jprb &
41774  &, 0.670468e+01_jprb, 0.671061e+01_jprb, 0.671585e+01_jprb, 0.672044e+01_jprb &
41775  &, 0.672443e+01_jprb, 0.672780e+01_jprb, 0.673054e+01_jprb/)
41776 xcw( 958, :) = (/ &
41777  & 0.117916e+01_jprb, 0.122588e+01_jprb, 0.127333e+01_jprb, 0.132149e+01_jprb &
41778  &, 0.137035e+01_jprb, 0.141988e+01_jprb, 0.147005e+01_jprb &
41779  &, 0.152086e+01_jprb, 0.157228e+01_jprb, 0.162429e+01_jprb, 0.167686e+01_jprb &
41780  &, 0.172998e+01_jprb, 0.178362e+01_jprb, 0.183775e+01_jprb &
41781  &, 0.189238e+01_jprb, 0.194745e+01_jprb, 0.200296e+01_jprb, 0.205888e+01_jprb &
41782  &, 0.211519e+01_jprb, 0.217186e+01_jprb, 0.222888e+01_jprb &
41783  &, 0.228622e+01_jprb, 0.234385e+01_jprb, 0.240176e+01_jprb, 0.245991e+01_jprb &
41784  &, 0.251829e+01_jprb, 0.257688e+01_jprb, 0.263565e+01_jprb &
41785  &, 0.269458e+01_jprb, 0.275365e+01_jprb, 0.281283e+01_jprb, 0.287210e+01_jprb &
41786  &, 0.293145e+01_jprb, 0.299084e+01_jprb, 0.305025e+01_jprb &
41787  &, 0.310967e+01_jprb, 0.316908e+01_jprb, 0.322846e+01_jprb, 0.328777e+01_jprb &
41788  &, 0.334700e+01_jprb, 0.340614e+01_jprb, 0.346517e+01_jprb &
41789  &, 0.352405e+01_jprb, 0.358279e+01_jprb, 0.364135e+01_jprb, 0.369971e+01_jprb &
41790  &, 0.375787e+01_jprb, 0.381580e+01_jprb, 0.387349e+01_jprb &
41791  &, 0.393092e+01_jprb, 0.398808e+01_jprb, 0.404493e+01_jprb, 0.410149e+01_jprb &
41792  &, 0.415772e+01_jprb, 0.421361e+01_jprb, 0.426916e+01_jprb &
41793  &, 0.432433e+01_jprb, 0.437913e+01_jprb, 0.443353e+01_jprb, 0.448753e+01_jprb &
41794  &, 0.454110e+01_jprb, 0.459424e+01_jprb, 0.464696e+01_jprb &
41795  &, 0.469921e+01_jprb, 0.475097e+01_jprb, 0.480228e+01_jprb, 0.485311e+01_jprb &
41796  &, 0.490343e+01_jprb, 0.495325e+01_jprb, 0.500254e+01_jprb &
41797  &, 0.505131e+01_jprb, 0.509956e+01_jprb, 0.514725e+01_jprb, 0.519440e+01_jprb &
41798  &, 0.524097e+01_jprb, 0.528699e+01_jprb, 0.533243e+01_jprb &
41799  &, 0.537729e+01_jprb, 0.542155e+01_jprb, 0.546524e+01_jprb, 0.550831e+01_jprb &
41800  &, 0.555077e+01_jprb, 0.559264e+01_jprb, 0.563387e+01_jprb &
41801  &, 0.567448e+01_jprb, 0.571446e+01_jprb, 0.575382e+01_jprb, 0.579251e+01_jprb &
41802  &, 0.583057e+01_jprb, 0.586798e+01_jprb, 0.590476e+01_jprb &
41803  &, 0.594086e+01_jprb, 0.597623e+01_jprb, 0.601111e+01_jprb, 0.604526e+01_jprb &
41804  &, 0.607874e+01_jprb, 0.611148e+01_jprb, 0.614363e+01_jprb &
41805  &, 0.617508e+01_jprb, 0.620584e+01_jprb, 0.623538e+01_jprb, 0.626536e+01_jprb &
41806  &, 0.629410e+01_jprb, 0.632212e+01_jprb, 0.634952e+01_jprb &
41807  &, 0.637618e+01_jprb, 0.640219e+01_jprb, 0.642747e+01_jprb, 0.645215e+01_jprb &
41808  &, 0.647608e+01_jprb, 0.649935e+01_jprb, 0.652193e+01_jprb &
41809  &, 0.654382e+01_jprb, 0.656503e+01_jprb, 0.658553e+01_jprb, 0.660537e+01_jprb &
41810  &, 0.662452e+01_jprb, 0.664298e+01_jprb, 0.666073e+01_jprb &
41811  &, 0.667786e+01_jprb, 0.669430e+01_jprb, 0.671004e+01_jprb, 0.672512e+01_jprb &
41812  &, 0.673952e+01_jprb, 0.675322e+01_jprb, 0.676628e+01_jprb &
41813  &, 0.677866e+01_jprb, 0.679043e+01_jprb, 0.680148e+01_jprb, 0.681189e+01_jprb &
41814  &, 0.682162e+01_jprb, 0.683072e+01_jprb, 0.683917e+01_jprb &
41815  &, 0.684691e+01_jprb, 0.685408e+01_jprb, 0.686057e+01_jprb, 0.686645e+01_jprb &
41816  &, 0.687161e+01_jprb, 0.687620e+01_jprb, 0.688016e+01_jprb/)
41817 xcw( 959, :) = (/ &
41818  & 0.118042e+01_jprb, 0.122749e+01_jprb, 0.127532e+01_jprb, 0.132387e+01_jprb &
41819  &, 0.137313e+01_jprb, 0.142307e+01_jprb, 0.147369e+01_jprb &
41820  &, 0.152495e+01_jprb, 0.157684e+01_jprb, 0.162933e+01_jprb, 0.168241e+01_jprb &
41821  &, 0.173604e+01_jprb, 0.179022e+01_jprb, 0.184491e+01_jprb &
41822  &, 0.190010e+01_jprb, 0.195576e+01_jprb, 0.201187e+01_jprb, 0.206840e+01_jprb &
41823  &, 0.212535e+01_jprb, 0.218266e+01_jprb, 0.224034e+01_jprb &
41824  &, 0.229836e+01_jprb, 0.235668e+01_jprb, 0.241530e+01_jprb, 0.247418e+01_jprb &
41825  &, 0.253330e+01_jprb, 0.259264e+01_jprb, 0.265218e+01_jprb &
41826  &, 0.271189e+01_jprb, 0.277176e+01_jprb, 0.283175e+01_jprb, 0.289185e+01_jprb &
41827  &, 0.295204e+01_jprb, 0.301229e+01_jprb, 0.307257e+01_jprb &
41828  &, 0.313287e+01_jprb, 0.319318e+01_jprb, 0.325346e+01_jprb, 0.331370e+01_jprb &
41829  &, 0.337388e+01_jprb, 0.343396e+01_jprb, 0.349395e+01_jprb &
41830  &, 0.355381e+01_jprb, 0.361353e+01_jprb, 0.367309e+01_jprb, 0.373248e+01_jprb &
41831  &, 0.379166e+01_jprb, 0.385063e+01_jprb, 0.390937e+01_jprb &
41832  &, 0.396786e+01_jprb, 0.402608e+01_jprb, 0.408402e+01_jprb, 0.414167e+01_jprb &
41833  &, 0.419900e+01_jprb, 0.425603e+01_jprb, 0.431268e+01_jprb &
41834  &, 0.436900e+01_jprb, 0.442494e+01_jprb, 0.448050e+01_jprb, 0.453566e+01_jprb &
41835  &, 0.459041e+01_jprb, 0.464474e+01_jprb, 0.469863e+01_jprb &
41836  &, 0.475208e+01_jprb, 0.480508e+01_jprb, 0.485760e+01_jprb, 0.490966e+01_jprb &
41837  &, 0.496122e+01_jprb, 0.501227e+01_jprb, 0.506282e+01_jprb &
41838  &, 0.511284e+01_jprb, 0.516235e+01_jprb, 0.521133e+01_jprb, 0.525974e+01_jprb &
41839  &, 0.530761e+01_jprb, 0.535493e+01_jprb, 0.540167e+01_jprb &
41840  &, 0.544782e+01_jprb, 0.549342e+01_jprb, 0.553841e+01_jprb, 0.558282e+01_jprb &
41841  &, 0.562659e+01_jprb, 0.566980e+01_jprb, 0.571237e+01_jprb &
41842  &, 0.575429e+01_jprb, 0.579564e+01_jprb, 0.583632e+01_jprb, 0.587641e+01_jprb &
41843  &, 0.591581e+01_jprb, 0.595458e+01_jprb, 0.599272e+01_jprb &
41844  &, 0.603022e+01_jprb, 0.606706e+01_jprb, 0.610321e+01_jprb, 0.613869e+01_jprb &
41845  &, 0.617357e+01_jprb, 0.620773e+01_jprb, 0.624123e+01_jprb &
41846  &, 0.627407e+01_jprb, 0.630622e+01_jprb, 0.633770e+01_jprb, 0.636849e+01_jprb &
41847  &, 0.639865e+01_jprb, 0.642810e+01_jprb, 0.645685e+01_jprb &
41848  &, 0.648490e+01_jprb, 0.651230e+01_jprb, 0.653903e+01_jprb, 0.656503e+01_jprb &
41849  &, 0.659033e+01_jprb, 0.661497e+01_jprb, 0.663896e+01_jprb &
41850  &, 0.666223e+01_jprb, 0.668473e+01_jprb, 0.670669e+01_jprb, 0.672792e+01_jprb &
41851  &, 0.674845e+01_jprb, 0.676825e+01_jprb, 0.678743e+01_jprb &
41852  &, 0.680594e+01_jprb, 0.682371e+01_jprb, 0.684064e+01_jprb, 0.685730e+01_jprb &
41853  &, 0.687304e+01_jprb, 0.688807e+01_jprb, 0.690246e+01_jprb &
41854  &, 0.691622e+01_jprb, 0.692931e+01_jprb, 0.694169e+01_jprb, 0.695342e+01_jprb &
41855  &, 0.696446e+01_jprb, 0.697489e+01_jprb, 0.698465e+01_jprb &
41856  &, 0.699364e+01_jprb, 0.700217e+01_jprb, 0.700996e+01_jprb, 0.701713e+01_jprb &
41857  &, 0.702359e+01_jprb, 0.702947e+01_jprb, 0.703465e+01_jprb/)
41858 
41859 IF (lhook) CALL dr_hook('SU_MCICA:PART137',1,zhook_handle)
41860 END SUBROUTINE part137
41861 
41862 #ifdef VPP5000
41863 !OCL SCALAR
41864 #endif
41865 !option! -Nv -NO
41866 #ifdef RS6K
41867 @process nooptimize
41868 #endif
41869 !pgi$r opt=0
41870 SUBROUTINE part138
41871 
41872 REAL(KIND=JPRB) :: ZHOOK_HANDLE
41873 IF (lhook) CALL dr_hook('SU_MCICA:PART138',0,zhook_handle)
41874 
41875 xcw( 960, :) = (/ &
41876  & 0.118170e+01_jprb, 0.122914e+01_jprb, 0.127734e+01_jprb, 0.132629e+01_jprb &
41877  &, 0.137596e+01_jprb, 0.142634e+01_jprb, 0.147740e+01_jprb &
41878  &, 0.152913e+01_jprb, 0.158150e+01_jprb, 0.163449e+01_jprb, 0.168808e+01_jprb &
41879  &, 0.174225e+01_jprb, 0.179697e+01_jprb, 0.185223e+01_jprb &
41880  &, 0.190800e+01_jprb, 0.196425e+01_jprb, 0.202098e+01_jprb, 0.207814e+01_jprb &
41881  &, 0.213573e+01_jprb, 0.219371e+01_jprb, 0.225206e+01_jprb &
41882  &, 0.231078e+01_jprb, 0.236982e+01_jprb, 0.242916e+01_jprb, 0.248878e+01_jprb &
41883  &, 0.254866e+01_jprb, 0.260878e+01_jprb, 0.266911e+01_jprb &
41884  &, 0.272962e+01_jprb, 0.279031e+01_jprb, 0.285113e+01_jprb, 0.291208e+01_jprb &
41885  &, 0.297313e+01_jprb, 0.303426e+01_jprb, 0.309544e+01_jprb &
41886  &, 0.315665e+01_jprb, 0.321788e+01_jprb, 0.327909e+01_jprb, 0.334027e+01_jprb &
41887  &, 0.340141e+01_jprb, 0.346248e+01_jprb, 0.352345e+01_jprb &
41888  &, 0.358432e+01_jprb, 0.364505e+01_jprb, 0.370564e+01_jprb, 0.376607e+01_jprb &
41889  &, 0.382631e+01_jprb, 0.388634e+01_jprb, 0.394616e+01_jprb &
41890  &, 0.400574e+01_jprb, 0.406507e+01_jprb, 0.412412e+01_jprb, 0.418290e+01_jprb &
41891  &, 0.424138e+01_jprb, 0.429952e+01_jprb, 0.435735e+01_jprb &
41892  &, 0.441484e+01_jprb, 0.447196e+01_jprb, 0.452870e+01_jprb, 0.458505e+01_jprb &
41893  &, 0.464102e+01_jprb, 0.469658e+01_jprb, 0.475170e+01_jprb &
41894  &, 0.480638e+01_jprb, 0.486063e+01_jprb, 0.491441e+01_jprb, 0.496771e+01_jprb &
41895  &, 0.502055e+01_jprb, 0.507290e+01_jprb, 0.512473e+01_jprb &
41896  &, 0.517607e+01_jprb, 0.522688e+01_jprb, 0.527716e+01_jprb, 0.532690e+01_jprb &
41897  &, 0.537610e+01_jprb, 0.542438e+01_jprb, 0.547281e+01_jprb &
41898  &, 0.552032e+01_jprb, 0.556727e+01_jprb, 0.561362e+01_jprb, 0.565938e+01_jprb &
41899  &, 0.570454e+01_jprb, 0.574910e+01_jprb, 0.579307e+01_jprb &
41900  &, 0.583641e+01_jprb, 0.587912e+01_jprb, 0.592111e+01_jprb, 0.596257e+01_jprb &
41901  &, 0.600348e+01_jprb, 0.604368e+01_jprb, 0.608300e+01_jprb &
41902  &, 0.612214e+01_jprb, 0.616038e+01_jprb, 0.619783e+01_jprb, 0.623489e+01_jprb &
41903  &, 0.627092e+01_jprb, 0.630677e+01_jprb, 0.634171e+01_jprb &
41904  &, 0.637596e+01_jprb, 0.640956e+01_jprb, 0.644249e+01_jprb, 0.647471e+01_jprb &
41905  &, 0.650625e+01_jprb, 0.653718e+01_jprb, 0.656733e+01_jprb &
41906  &, 0.659687e+01_jprb, 0.662569e+01_jprb, 0.665382e+01_jprb, 0.668100e+01_jprb &
41907  &, 0.670805e+01_jprb, 0.673416e+01_jprb, 0.675954e+01_jprb &
41908  &, 0.678428e+01_jprb, 0.680830e+01_jprb, 0.683161e+01_jprb, 0.685408e+01_jprb &
41909  &, 0.687619e+01_jprb, 0.689709e+01_jprb, 0.691805e+01_jprb &
41910  &, 0.693796e+01_jprb, 0.695718e+01_jprb, 0.697570e+01_jprb, 0.699355e+01_jprb &
41911  &, 0.701073e+01_jprb, 0.702721e+01_jprb, 0.704299e+01_jprb &
41912  &, 0.705814e+01_jprb, 0.707262e+01_jprb, 0.708643e+01_jprb, 0.709955e+01_jprb &
41913  &, 0.711198e+01_jprb, 0.712378e+01_jprb, 0.713491e+01_jprb &
41914  &, 0.714534e+01_jprb, 0.715512e+01_jprb, 0.716433e+01_jprb, 0.717281e+01_jprb &
41915  &, 0.718056e+01_jprb, 0.718780e+01_jprb, 0.719433e+01_jprb/)
41916 xcw( 961, :) = (/ &
41917  & 0.118301e+01_jprb, 0.123082e+01_jprb, 0.127941e+01_jprb, 0.132876e+01_jprb &
41918  &, 0.137886e+01_jprb, 0.142968e+01_jprb, 0.148120e+01_jprb &
41919  &, 0.153340e+01_jprb, 0.158626e+01_jprb, 0.163976e+01_jprb, 0.169388e+01_jprb &
41920  &, 0.174859e+01_jprb, 0.180388e+01_jprb, 0.185971e+01_jprb &
41921  &, 0.191608e+01_jprb, 0.197295e+01_jprb, 0.203030e+01_jprb, 0.208811e+01_jprb &
41922  &, 0.214636e+01_jprb, 0.220503e+01_jprb, 0.226408e+01_jprb &
41923  &, 0.232350e+01_jprb, 0.238327e+01_jprb, 0.244335e+01_jprb, 0.250374e+01_jprb &
41924  &, 0.256440e+01_jprb, 0.262531e+01_jprb, 0.268645e+01_jprb &
41925  &, 0.274779e+01_jprb, 0.280931e+01_jprb, 0.287100e+01_jprb, 0.293282e+01_jprb &
41926  &, 0.299475e+01_jprb, 0.305678e+01_jprb, 0.311887e+01_jprb &
41927  &, 0.318102e+01_jprb, 0.324319e+01_jprb, 0.330537e+01_jprb, 0.336753e+01_jprb &
41928  &, 0.342964e+01_jprb, 0.349172e+01_jprb, 0.355371e+01_jprb &
41929  &, 0.361561e+01_jprb, 0.367739e+01_jprb, 0.373904e+01_jprb, 0.380054e+01_jprb &
41930  &, 0.386186e+01_jprb, 0.392299e+01_jprb, 0.398392e+01_jprb &
41931  &, 0.404462e+01_jprb, 0.410508e+01_jprb, 0.416529e+01_jprb, 0.422522e+01_jprb &
41932  &, 0.428486e+01_jprb, 0.434420e+01_jprb, 0.440321e+01_jprb &
41933  &, 0.446190e+01_jprb, 0.452023e+01_jprb, 0.457820e+01_jprb, 0.463581e+01_jprb &
41934  &, 0.469301e+01_jprb, 0.474982e+01_jprb, 0.480621e+01_jprb &
41935  &, 0.486216e+01_jprb, 0.491769e+01_jprb, 0.497278e+01_jprb, 0.502740e+01_jprb &
41936  &, 0.508153e+01_jprb, 0.513519e+01_jprb, 0.518837e+01_jprb &
41937  &, 0.524104e+01_jprb, 0.529320e+01_jprb, 0.534482e+01_jprb, 0.539594e+01_jprb &
41938  &, 0.544650e+01_jprb, 0.549651e+01_jprb, 0.554598e+01_jprb &
41939  &, 0.559489e+01_jprb, 0.564323e+01_jprb, 0.569099e+01_jprb, 0.573816e+01_jprb &
41940  &, 0.578473e+01_jprb, 0.583071e+01_jprb, 0.587611e+01_jprb &
41941  &, 0.592087e+01_jprb, 0.596501e+01_jprb, 0.600856e+01_jprb, 0.605148e+01_jprb &
41942  &, 0.609376e+01_jprb, 0.613540e+01_jprb, 0.617640e+01_jprb &
41943  &, 0.621676e+01_jprb, 0.625647e+01_jprb, 0.629554e+01_jprb, 0.633392e+01_jprb &
41944  &, 0.637163e+01_jprb, 0.640876e+01_jprb, 0.644518e+01_jprb &
41945  &, 0.648092e+01_jprb, 0.651595e+01_jprb, 0.655042e+01_jprb, 0.658416e+01_jprb &
41946  &, 0.661719e+01_jprb, 0.664957e+01_jprb, 0.668126e+01_jprb &
41947  &, 0.671222e+01_jprb, 0.674258e+01_jprb, 0.677223e+01_jprb, 0.680121e+01_jprb &
41948  &, 0.682946e+01_jprb, 0.685705e+01_jprb, 0.688395e+01_jprb &
41949  &, 0.691014e+01_jprb, 0.693565e+01_jprb, 0.695976e+01_jprb, 0.698457e+01_jprb &
41950  &, 0.700804e+01_jprb, 0.703078e+01_jprb, 0.705285e+01_jprb &
41951  &, 0.707427e+01_jprb, 0.709494e+01_jprb, 0.711492e+01_jprb, 0.713428e+01_jprb &
41952  &, 0.715291e+01_jprb, 0.717084e+01_jprb, 0.718813e+01_jprb &
41953  &, 0.720474e+01_jprb, 0.722067e+01_jprb, 0.723594e+01_jprb, 0.725045e+01_jprb &
41954  &, 0.726438e+01_jprb, 0.727763e+01_jprb, 0.729015e+01_jprb &
41955  &, 0.730201e+01_jprb, 0.731323e+01_jprb, 0.732382e+01_jprb, 0.733367e+01_jprb &
41956  &, 0.734292e+01_jprb, 0.735151e+01_jprb, 0.735939e+01_jprb/)
41957 xcw( 962, :) = (/ &
41958  & 0.118435e+01_jprb, 0.123254e+01_jprb, 0.128153e+01_jprb, 0.133130e+01_jprb &
41959  &, 0.138182e+01_jprb, 0.143309e+01_jprb, 0.148508e+01_jprb &
41960  &, 0.153777e+01_jprb, 0.159114e+01_jprb, 0.164516e+01_jprb, 0.169982e+01_jprb &
41961  &, 0.175509e+01_jprb, 0.181095e+01_jprb, 0.186738e+01_jprb &
41962  &, 0.192435e+01_jprb, 0.198185e+01_jprb, 0.203985e+01_jprb, 0.209832e+01_jprb &
41963  &, 0.215725e+01_jprb, 0.221662e+01_jprb, 0.227638e+01_jprb &
41964  &, 0.233654e+01_jprb, 0.239705e+01_jprb, 0.245790e+01_jprb, 0.251907e+01_jprb &
41965  &, 0.258053e+01_jprb, 0.264225e+01_jprb, 0.270422e+01_jprb &
41966  &, 0.276641e+01_jprb, 0.282880e+01_jprb, 0.289136e+01_jprb, 0.295408e+01_jprb &
41967  &, 0.301692e+01_jprb, 0.307988e+01_jprb, 0.314292e+01_jprb &
41968  &, 0.320602e+01_jprb, 0.326916e+01_jprb, 0.333233e+01_jprb, 0.339549e+01_jprb &
41969  &, 0.345863e+01_jprb, 0.352173e+01_jprb, 0.358478e+01_jprb &
41970  &, 0.364774e+01_jprb, 0.371059e+01_jprb, 0.377333e+01_jprb, 0.383588e+01_jprb &
41971  &, 0.389837e+01_jprb, 0.396062e+01_jprb, 0.402270e+01_jprb &
41972  &, 0.408455e+01_jprb, 0.414618e+01_jprb, 0.420757e+01_jprb, 0.426869e+01_jprb &
41973  &, 0.432953e+01_jprb, 0.439009e+01_jprb, 0.445033e+01_jprb &
41974  &, 0.451025e+01_jprb, 0.456985e+01_jprb, 0.462908e+01_jprb, 0.468795e+01_jprb &
41975  &, 0.474643e+01_jprb, 0.480454e+01_jprb, 0.486223e+01_jprb &
41976  &, 0.491952e+01_jprb, 0.497638e+01_jprb, 0.503278e+01_jprb, 0.508875e+01_jprb &
41977  &, 0.514425e+01_jprb, 0.519926e+01_jprb, 0.525381e+01_jprb &
41978  &, 0.530787e+01_jprb, 0.536141e+01_jprb, 0.541444e+01_jprb, 0.546696e+01_jprb &
41979  &, 0.551893e+01_jprb, 0.557038e+01_jprb, 0.562127e+01_jprb &
41980  &, 0.567163e+01_jprb, 0.572140e+01_jprb, 0.577060e+01_jprb, 0.581922e+01_jprb &
41981  &, 0.586727e+01_jprb, 0.591473e+01_jprb, 0.596158e+01_jprb &
41982  &, 0.600784e+01_jprb, 0.605349e+01_jprb, 0.609852e+01_jprb, 0.614291e+01_jprb &
41983  &, 0.618671e+01_jprb, 0.622984e+01_jprb, 0.627238e+01_jprb &
41984  &, 0.631426e+01_jprb, 0.635543e+01_jprb, 0.639607e+01_jprb, 0.643600e+01_jprb &
41985  &, 0.647526e+01_jprb, 0.651382e+01_jprb, 0.655185e+01_jprb &
41986  &, 0.658885e+01_jprb, 0.662576e+01_jprb, 0.666169e+01_jprb, 0.669696e+01_jprb &
41987  &, 0.673157e+01_jprb, 0.676550e+01_jprb, 0.679874e+01_jprb &
41988  &, 0.683130e+01_jprb, 0.686315e+01_jprb, 0.689437e+01_jprb, 0.692485e+01_jprb &
41989  &, 0.695471e+01_jprb, 0.698380e+01_jprb, 0.701221e+01_jprb &
41990  &, 0.704004e+01_jprb, 0.706711e+01_jprb, 0.709347e+01_jprb, 0.711914e+01_jprb &
41991  &, 0.714413e+01_jprb, 0.716843e+01_jprb, 0.719051e+01_jprb &
41992  &, 0.721481e+01_jprb, 0.723721e+01_jprb, 0.725876e+01_jprb, 0.727964e+01_jprb &
41993  &, 0.729980e+01_jprb, 0.731925e+01_jprb, 0.733807e+01_jprb &
41994  &, 0.735619e+01_jprb, 0.737365e+01_jprb, 0.738953e+01_jprb, 0.740647e+01_jprb &
41995  &, 0.742192e+01_jprb, 0.743662e+01_jprb, 0.745066e+01_jprb &
41996  &, 0.746403e+01_jprb, 0.747676e+01_jprb, 0.748880e+01_jprb, 0.750022e+01_jprb &
41997  &, 0.751064e+01_jprb, 0.752086e+01_jprb, 0.753038e+01_jprb/)
41998 xcw( 963, :) = (/ &
41999  & 0.118572e+01_jprb, 0.123430e+01_jprb, 0.128369e+01_jprb, 0.133388e+01_jprb &
42000  &, 0.138486e+01_jprb, 0.143659e+01_jprb, 0.148906e+01_jprb &
42001  &, 0.154224e+01_jprb, 0.159613e+01_jprb, 0.165069e+01_jprb, 0.170590e+01_jprb &
42002  &, 0.176174e+01_jprb, 0.181819e+01_jprb, 0.187523e+01_jprb &
42003  &, 0.193283e+01_jprb, 0.199097e+01_jprb, 0.204963e+01_jprb, 0.210879e+01_jprb &
42004  &, 0.216842e+01_jprb, 0.222849e+01_jprb, 0.228900e+01_jprb &
42005  &, 0.234990e+01_jprb, 0.241118e+01_jprb, 0.247282e+01_jprb, 0.253479e+01_jprb &
42006  &, 0.259707e+01_jprb, 0.265963e+01_jprb, 0.272246e+01_jprb &
42007  &, 0.278552e+01_jprb, 0.284880e+01_jprb, 0.291227e+01_jprb, 0.297590e+01_jprb &
42008  &, 0.303968e+01_jprb, 0.310359e+01_jprb, 0.316760e+01_jprb &
42009  &, 0.323169e+01_jprb, 0.329583e+01_jprb, 0.336001e+01_jprb, 0.342421e+01_jprb &
42010  &, 0.348840e+01_jprb, 0.355257e+01_jprb, 0.361669e+01_jprb &
42011  &, 0.368073e+01_jprb, 0.374470e+01_jprb, 0.380855e+01_jprb, 0.387228e+01_jprb &
42012  &, 0.393587e+01_jprb, 0.399929e+01_jprb, 0.406254e+01_jprb &
42013  &, 0.412558e+01_jprb, 0.418842e+01_jprb, 0.425101e+01_jprb, 0.431336e+01_jprb &
42014  &, 0.437545e+01_jprb, 0.443727e+01_jprb, 0.449877e+01_jprb &
42015  &, 0.455998e+01_jprb, 0.462086e+01_jprb, 0.468139e+01_jprb, 0.474158e+01_jprb &
42016  &, 0.480140e+01_jprb, 0.486084e+01_jprb, 0.491988e+01_jprb &
42017  &, 0.497852e+01_jprb, 0.503674e+01_jprb, 0.509452e+01_jprb, 0.515188e+01_jprb &
42018  &, 0.520877e+01_jprb, 0.526521e+01_jprb, 0.532117e+01_jprb &
42019  &, 0.537666e+01_jprb, 0.543163e+01_jprb, 0.548610e+01_jprb, 0.554008e+01_jprb &
42020  &, 0.559352e+01_jprb, 0.564644e+01_jprb, 0.569881e+01_jprb &
42021  &, 0.575063e+01_jprb, 0.580190e+01_jprb, 0.585262e+01_jprb, 0.590275e+01_jprb &
42022  &, 0.595230e+01_jprb, 0.600128e+01_jprb, 0.604966e+01_jprb &
42023  &, 0.609745e+01_jprb, 0.614463e+01_jprb, 0.619120e+01_jprb, 0.623717e+01_jprb &
42024  &, 0.628250e+01_jprb, 0.632722e+01_jprb, 0.637132e+01_jprb &
42025  &, 0.641470e+01_jprb, 0.645755e+01_jprb, 0.649971e+01_jprb, 0.654121e+01_jprb &
42026  &, 0.658209e+01_jprb, 0.662227e+01_jprb, 0.666182e+01_jprb &
42027  &, 0.670072e+01_jprb, 0.673892e+01_jprb, 0.677533e+01_jprb, 0.681322e+01_jprb &
42028  &, 0.684959e+01_jprb, 0.688508e+01_jprb, 0.691994e+01_jprb &
42029  &, 0.695412e+01_jprb, 0.698760e+01_jprb, 0.702041e+01_jprb, 0.705253e+01_jprb &
42030  &, 0.708395e+01_jprb, 0.711474e+01_jprb, 0.714480e+01_jprb &
42031  &, 0.717415e+01_jprb, 0.720284e+01_jprb, 0.723083e+01_jprb, 0.725813e+01_jprb &
42032  &, 0.728475e+01_jprb, 0.731064e+01_jprb, 0.733587e+01_jprb &
42033  &, 0.736039e+01_jprb, 0.738407e+01_jprb, 0.740742e+01_jprb, 0.742990e+01_jprb &
42034  &, 0.745165e+01_jprb, 0.747275e+01_jprb, 0.749311e+01_jprb &
42035  &, 0.751239e+01_jprb, 0.753188e+01_jprb, 0.755021e+01_jprb, 0.756783e+01_jprb &
42036  &, 0.758487e+01_jprb, 0.760117e+01_jprb, 0.761673e+01_jprb &
42037  &, 0.763170e+01_jprb, 0.764596e+01_jprb, 0.765958e+01_jprb, 0.767245e+01_jprb &
42038  &, 0.768477e+01_jprb, 0.769638e+01_jprb, 0.770727e+01_jprb/)
42039 xcw( 964, :) = (/ &
42040  & 0.118712e+01_jprb, 0.123610e+01_jprb, 0.128591e+01_jprb, 0.133653e+01_jprb &
42041  &, 0.138796e+01_jprb, 0.144017e+01_jprb, 0.149313e+01_jprb &
42042  &, 0.154683e+01_jprb, 0.160124e+01_jprb, 0.165635e+01_jprb, 0.171213e+01_jprb &
42043  &, 0.176855e+01_jprb, 0.182561e+01_jprb, 0.188327e+01_jprb &
42044  &, 0.194152e+01_jprb, 0.200032e+01_jprb, 0.205966e+01_jprb, 0.211952e+01_jprb &
42045  &, 0.217987e+01_jprb, 0.224068e+01_jprb, 0.230193e+01_jprb &
42046  &, 0.236361e+01_jprb, 0.242569e+01_jprb, 0.248813e+01_jprb, 0.255093e+01_jprb &
42047  &, 0.261405e+01_jprb, 0.267747e+01_jprb, 0.274118e+01_jprb &
42048  &, 0.280514e+01_jprb, 0.286933e+01_jprb, 0.293373e+01_jprb, 0.299831e+01_jprb &
42049  &, 0.306306e+01_jprb, 0.312795e+01_jprb, 0.319295e+01_jprb &
42050  &, 0.325806e+01_jprb, 0.332323e+01_jprb, 0.338846e+01_jprb, 0.345372e+01_jprb &
42051  &, 0.351899e+01_jprb, 0.358425e+01_jprb, 0.364947e+01_jprb &
42052  &, 0.371464e+01_jprb, 0.377975e+01_jprb, 0.384476e+01_jprb, 0.390965e+01_jprb &
42053  &, 0.397443e+01_jprb, 0.403906e+01_jprb, 0.410351e+01_jprb &
42054  &, 0.416778e+01_jprb, 0.423186e+01_jprb, 0.429571e+01_jprb, 0.435933e+01_jprb &
42055  &, 0.442271e+01_jprb, 0.448581e+01_jprb, 0.454862e+01_jprb &
42056  &, 0.461114e+01_jprb, 0.467335e+01_jprb, 0.473524e+01_jprb, 0.479678e+01_jprb &
42057  &, 0.485796e+01_jprb, 0.491878e+01_jprb, 0.497922e+01_jprb &
42058  &, 0.503926e+01_jprb, 0.509890e+01_jprb, 0.515811e+01_jprb, 0.521689e+01_jprb &
42059  &, 0.527523e+01_jprb, 0.533312e+01_jprb, 0.539055e+01_jprb &
42060  &, 0.544749e+01_jprb, 0.550398e+01_jprb, 0.555994e+01_jprb, 0.561541e+01_jprb &
42061  &, 0.567037e+01_jprb, 0.572479e+01_jprb, 0.577870e+01_jprb &
42062  &, 0.583205e+01_jprb, 0.588488e+01_jprb, 0.593715e+01_jprb, 0.598883e+01_jprb &
42063  &, 0.603996e+01_jprb, 0.609050e+01_jprb, 0.614046e+01_jprb &
42064  &, 0.618985e+01_jprb, 0.623863e+01_jprb, 0.628680e+01_jprb, 0.633435e+01_jprb &
42065  &, 0.638130e+01_jprb, 0.642765e+01_jprb, 0.647336e+01_jprb &
42066  &, 0.651843e+01_jprb, 0.656237e+01_jprb, 0.660664e+01_jprb, 0.664980e+01_jprb &
42067  &, 0.669234e+01_jprb, 0.673417e+01_jprb, 0.677538e+01_jprb &
42068  &, 0.681581e+01_jprb, 0.685579e+01_jprb, 0.689503e+01_jprb, 0.693355e+01_jprb &
42069  &, 0.697143e+01_jprb, 0.700863e+01_jprb, 0.704517e+01_jprb &
42070  &, 0.708100e+01_jprb, 0.711617e+01_jprb, 0.715068e+01_jprb, 0.718446e+01_jprb &
42071  &, 0.721756e+01_jprb, 0.724998e+01_jprb, 0.728172e+01_jprb &
42072  &, 0.731280e+01_jprb, 0.734318e+01_jprb, 0.737287e+01_jprb, 0.740182e+01_jprb &
42073  &, 0.743013e+01_jprb, 0.745773e+01_jprb, 0.748462e+01_jprb &
42074  &, 0.751081e+01_jprb, 0.753636e+01_jprb, 0.756117e+01_jprb, 0.758531e+01_jprb &
42075  &, 0.760873e+01_jprb, 0.763151e+01_jprb, 0.765353e+01_jprb &
42076  &, 0.767492e+01_jprb, 0.769553e+01_jprb, 0.771565e+01_jprb, 0.773494e+01_jprb &
42077  &, 0.775354e+01_jprb, 0.777150e+01_jprb, 0.778874e+01_jprb &
42078  &, 0.780531e+01_jprb, 0.782124e+01_jprb, 0.783646e+01_jprb, 0.785100e+01_jprb &
42079  &, 0.786486e+01_jprb, 0.787812e+01_jprb, 0.789060e+01_jprb/)
42080 xcw( 965, :) = (/ &
42081  & 0.118856e+01_jprb, 0.123794e+01_jprb, 0.128817e+01_jprb, 0.133925e+01_jprb &
42082  &, 0.139114e+01_jprb, 0.144383e+01_jprb, 0.149730e+01_jprb &
42083  &, 0.155152e+01_jprb, 0.160648e+01_jprb, 0.166215e+01_jprb, 0.171851e+01_jprb &
42084  &, 0.177554e+01_jprb, 0.183322e+01_jprb, 0.189153e+01_jprb &
42085  &, 0.195043e+01_jprb, 0.200992e+01_jprb, 0.206996e+01_jprb, 0.213053e+01_jprb &
42086  &, 0.219162e+01_jprb, 0.225319e+01_jprb, 0.231522e+01_jprb &
42087  &, 0.237769e+01_jprb, 0.244058e+01_jprb, 0.250385e+01_jprb, 0.256750e+01_jprb &
42088  &, 0.263149e+01_jprb, 0.269580e+01_jprb, 0.276041e+01_jprb &
42089  &, 0.282529e+01_jprb, 0.289042e+01_jprb, 0.295578e+01_jprb, 0.302134e+01_jprb &
42090  &, 0.308708e+01_jprb, 0.315298e+01_jprb, 0.321902e+01_jprb &
42091  &, 0.328516e+01_jprb, 0.335140e+01_jprb, 0.341771e+01_jprb, 0.348407e+01_jprb &
42092  &, 0.355044e+01_jprb, 0.361683e+01_jprb, 0.368320e+01_jprb &
42093  &, 0.374954e+01_jprb, 0.381581e+01_jprb, 0.388201e+01_jprb, 0.394812e+01_jprb &
42094  &, 0.401412e+01_jprb, 0.407997e+01_jprb, 0.414568e+01_jprb &
42095  &, 0.421122e+01_jprb, 0.427657e+01_jprb, 0.434172e+01_jprb, 0.440666e+01_jprb &
42096  &, 0.447134e+01_jprb, 0.453578e+01_jprb, 0.459995e+01_jprb &
42097  &, 0.466383e+01_jprb, 0.472741e+01_jprb, 0.479070e+01_jprb, 0.485363e+01_jprb &
42098  &, 0.491622e+01_jprb, 0.497847e+01_jprb, 0.504034e+01_jprb &
42099  &, 0.510184e+01_jprb, 0.516293e+01_jprb, 0.522362e+01_jprb, 0.528388e+01_jprb &
42100  &, 0.534371e+01_jprb, 0.540312e+01_jprb, 0.546206e+01_jprb &
42101  &, 0.552054e+01_jprb, 0.557854e+01_jprb, 0.563589e+01_jprb, 0.569309e+01_jprb &
42102  &, 0.574960e+01_jprb, 0.580560e+01_jprb, 0.586110e+01_jprb &
42103  &, 0.591604e+01_jprb, 0.597047e+01_jprb, 0.602433e+01_jprb, 0.607763e+01_jprb &
42104  &, 0.613038e+01_jprb, 0.618257e+01_jprb, 0.623419e+01_jprb &
42105  &, 0.628520e+01_jprb, 0.633562e+01_jprb, 0.638547e+01_jprb, 0.643468e+01_jprb &
42106  &, 0.648331e+01_jprb, 0.653132e+01_jprb, 0.657870e+01_jprb &
42107  &, 0.662549e+01_jprb, 0.667161e+01_jprb, 0.671710e+01_jprb, 0.676196e+01_jprb &
42108  &, 0.680617e+01_jprb, 0.684974e+01_jprb, 0.689268e+01_jprb &
42109  &, 0.693493e+01_jprb, 0.697652e+01_jprb, 0.701751e+01_jprb, 0.705764e+01_jprb &
42110  &, 0.709736e+01_jprb, 0.713634e+01_jprb, 0.717451e+01_jprb &
42111  &, 0.721217e+01_jprb, 0.724907e+01_jprb, 0.728531e+01_jprb, 0.732087e+01_jprb &
42112  &, 0.735575e+01_jprb, 0.738992e+01_jprb, 0.742337e+01_jprb &
42113  &, 0.745621e+01_jprb, 0.748831e+01_jprb, 0.751976e+01_jprb, 0.755048e+01_jprb &
42114  &, 0.758053e+01_jprb, 0.760986e+01_jprb, 0.763854e+01_jprb &
42115  &, 0.766651e+01_jprb, 0.769375e+01_jprb, 0.772036e+01_jprb, 0.774625e+01_jprb &
42116  &, 0.777121e+01_jprb, 0.779594e+01_jprb, 0.781972e+01_jprb &
42117  &, 0.784281e+01_jprb, 0.786523e+01_jprb, 0.788698e+01_jprb, 0.790803e+01_jprb &
42118  &, 0.792838e+01_jprb, 0.794805e+01_jprb, 0.796692e+01_jprb &
42119  &, 0.798530e+01_jprb, 0.800292e+01_jprb, 0.801964e+01_jprb, 0.803612e+01_jprb &
42120  &, 0.805160e+01_jprb, 0.806654e+01_jprb, 0.808084e+01_jprb/)
42121 xcw( 966, :) = (/ &
42122  & 0.119003e+01_jprb, 0.123982e+01_jprb, 0.129050e+01_jprb, 0.134203e+01_jprb &
42123  &, 0.139440e+01_jprb, 0.144759e+01_jprb, 0.150158e+01_jprb &
42124  &, 0.155634e+01_jprb, 0.161186e+01_jprb, 0.166811e+01_jprb, 0.172507e+01_jprb &
42125  &, 0.178272e+01_jprb, 0.184104e+01_jprb, 0.190000e+01_jprb &
42126  &, 0.195959e+01_jprb, 0.201977e+01_jprb, 0.208053e+01_jprb, 0.214185e+01_jprb &
42127  &, 0.220369e+01_jprb, 0.226604e+01_jprb, 0.232887e+01_jprb &
42128  &, 0.239216e+01_jprb, 0.245588e+01_jprb, 0.252002e+01_jprb, 0.258454e+01_jprb &
42129  &, 0.264942e+01_jprb, 0.271464e+01_jprb, 0.278019e+01_jprb &
42130  &, 0.284602e+01_jprb, 0.291212e+01_jprb, 0.297846e+01_jprb, 0.304503e+01_jprb &
42131  &, 0.311180e+01_jprb, 0.317874e+01_jprb, 0.324583e+01_jprb &
42132  &, 0.331306e+01_jprb, 0.338039e+01_jprb, 0.344781e+01_jprb, 0.351530e+01_jprb &
42133  &, 0.358282e+01_jprb, 0.365037e+01_jprb, 0.371792e+01_jprb &
42134  &, 0.378545e+01_jprb, 0.385295e+01_jprb, 0.392037e+01_jprb, 0.398772e+01_jprb &
42135  &, 0.405498e+01_jprb, 0.412211e+01_jprb, 0.418911e+01_jprb &
42136  &, 0.425596e+01_jprb, 0.432264e+01_jprb, 0.438912e+01_jprb, 0.445541e+01_jprb &
42137  &, 0.452145e+01_jprb, 0.458728e+01_jprb, 0.465285e+01_jprb &
42138  &, 0.471813e+01_jprb, 0.478314e+01_jprb, 0.484785e+01_jprb, 0.491223e+01_jprb &
42139  &, 0.497630e+01_jprb, 0.504001e+01_jprb, 0.510337e+01_jprb &
42140  &, 0.516635e+01_jprb, 0.522896e+01_jprb, 0.529119e+01_jprb, 0.535297e+01_jprb &
42141  &, 0.541437e+01_jprb, 0.547532e+01_jprb, 0.553583e+01_jprb &
42142  &, 0.559589e+01_jprb, 0.565548e+01_jprb, 0.571459e+01_jprb, 0.577324e+01_jprb &
42143  &, 0.583136e+01_jprb, 0.588900e+01_jprb, 0.594612e+01_jprb &
42144  &, 0.600274e+01_jprb, 0.605881e+01_jprb, 0.611434e+01_jprb, 0.616933e+01_jprb &
42145  &, 0.622377e+01_jprb, 0.627764e+01_jprb, 0.633095e+01_jprb &
42146  &, 0.638367e+01_jprb, 0.643581e+01_jprb, 0.648737e+01_jprb, 0.653833e+01_jprb &
42147  &, 0.658867e+01_jprb, 0.663844e+01_jprb, 0.668756e+01_jprb &
42148  &, 0.673610e+01_jprb, 0.678398e+01_jprb, 0.683125e+01_jprb, 0.687685e+01_jprb &
42149  &, 0.692387e+01_jprb, 0.696918e+01_jprb, 0.701394e+01_jprb &
42150  &, 0.705800e+01_jprb, 0.710140e+01_jprb, 0.714409e+01_jprb, 0.718620e+01_jprb &
42151  &, 0.722762e+01_jprb, 0.726837e+01_jprb, 0.730848e+01_jprb &
42152  &, 0.734785e+01_jprb, 0.738658e+01_jprb, 0.742463e+01_jprb, 0.746200e+01_jprb &
42153  &, 0.749869e+01_jprb, 0.753468e+01_jprb, 0.757001e+01_jprb &
42154  &, 0.760464e+01_jprb, 0.763858e+01_jprb, 0.767188e+01_jprb, 0.770441e+01_jprb &
42155  &, 0.773631e+01_jprb, 0.776746e+01_jprb, 0.779795e+01_jprb &
42156  &, 0.782775e+01_jprb, 0.785681e+01_jprb, 0.788524e+01_jprb, 0.791296e+01_jprb &
42157  &, 0.793997e+01_jprb, 0.796627e+01_jprb, 0.799194e+01_jprb &
42158  &, 0.801681e+01_jprb, 0.804107e+01_jprb, 0.806461e+01_jprb, 0.808750e+01_jprb &
42159  &, 0.810952e+01_jprb, 0.813108e+01_jprb, 0.815186e+01_jprb &
42160  &, 0.817197e+01_jprb, 0.819143e+01_jprb, 0.821012e+01_jprb, 0.822812e+01_jprb &
42161  &, 0.824545e+01_jprb, 0.826217e+01_jprb, 0.827817e+01_jprb/)
42162 
42163 IF (lhook) CALL dr_hook('SU_MCICA:PART138',1,zhook_handle)
42164 END SUBROUTINE part138
42165 
42166 #ifdef VPP5000
42167 !OCL SCALAR
42168 #endif
42169 !option! -Nv -NO
42170 #ifdef RS6K
42171 @process nooptimize
42172 #endif
42173 !pgi$r opt=0
42174 SUBROUTINE part139
42175 
42176 REAL(KIND=JPRB) :: ZHOOK_HANDLE
42177 IF (lhook) CALL dr_hook('SU_MCICA:PART139',0,zhook_handle)
42178 
42179 xcw( 967, :) = (/ &
42180  & 0.119153e+01_jprb, 0.124176e+01_jprb, 0.129288e+01_jprb, 0.134489e+01_jprb &
42181  &, 0.139775e+01_jprb, 0.145145e+01_jprb, 0.150597e+01_jprb &
42182  &, 0.156128e+01_jprb, 0.161738e+01_jprb, 0.167422e+01_jprb, 0.173180e+01_jprb &
42183  &, 0.179009e+01_jprb, 0.184906e+01_jprb, 0.190871e+01_jprb &
42184  &, 0.196899e+01_jprb, 0.202990e+01_jprb, 0.209140e+01_jprb, 0.215347e+01_jprb &
42185  &, 0.221610e+01_jprb, 0.227925e+01_jprb, 0.234290e+01_jprb &
42186  &, 0.240703e+01_jprb, 0.247162e+01_jprb, 0.253664e+01_jprb, 0.260206e+01_jprb &
42187  &, 0.266787e+01_jprb, 0.273403e+01_jprb, 0.280053e+01_jprb &
42188  &, 0.286735e+01_jprb, 0.293445e+01_jprb, 0.300181e+01_jprb, 0.306942e+01_jprb &
42189  &, 0.313724e+01_jprb, 0.320526e+01_jprb, 0.327344e+01_jprb &
42190  &, 0.334178e+01_jprb, 0.341024e+01_jprb, 0.347882e+01_jprb, 0.354746e+01_jprb &
42191  &, 0.361617e+01_jprb, 0.368493e+01_jprb, 0.375369e+01_jprb &
42192  &, 0.382246e+01_jprb, 0.389120e+01_jprb, 0.395990e+01_jprb, 0.402854e+01_jprb &
42193  &, 0.409709e+01_jprb, 0.416555e+01_jprb, 0.423389e+01_jprb &
42194  &, 0.430208e+01_jprb, 0.437012e+01_jprb, 0.443800e+01_jprb, 0.450567e+01_jprb &
42195  &, 0.457314e+01_jprb, 0.464039e+01_jprb, 0.470739e+01_jprb &
42196  &, 0.477414e+01_jprb, 0.484062e+01_jprb, 0.490681e+01_jprb, 0.497271e+01_jprb &
42197  &, 0.503827e+01_jprb, 0.510351e+01_jprb, 0.516842e+01_jprb &
42198  &, 0.523295e+01_jprb, 0.529713e+01_jprb, 0.536091e+01_jprb, 0.542430e+01_jprb &
42199  &, 0.548730e+01_jprb, 0.554986e+01_jprb, 0.561200e+01_jprb &
42200  &, 0.567368e+01_jprb, 0.573493e+01_jprb, 0.579570e+01_jprb, 0.585601e+01_jprb &
42201  &, 0.591584e+01_jprb, 0.597516e+01_jprb, 0.603398e+01_jprb &
42202  &, 0.609230e+01_jprb, 0.615010e+01_jprb, 0.620734e+01_jprb, 0.626409e+01_jprb &
42203  &, 0.632027e+01_jprb, 0.637590e+01_jprb, 0.643096e+01_jprb &
42204  &, 0.648545e+01_jprb, 0.653938e+01_jprb, 0.659274e+01_jprb, 0.664546e+01_jprb &
42205  &, 0.669764e+01_jprb, 0.674919e+01_jprb, 0.680015e+01_jprb &
42206  &, 0.685050e+01_jprb, 0.690022e+01_jprb, 0.694933e+01_jprb, 0.699779e+01_jprb &
42207  &, 0.704564e+01_jprb, 0.709284e+01_jprb, 0.713939e+01_jprb &
42208  &, 0.718532e+01_jprb, 0.723060e+01_jprb, 0.727516e+01_jprb, 0.731917e+01_jprb &
42209  &, 0.736246e+01_jprb, 0.740511e+01_jprb, 0.744707e+01_jprb &
42210  &, 0.748835e+01_jprb, 0.752891e+01_jprb, 0.756892e+01_jprb, 0.760822e+01_jprb &
42211  &, 0.764682e+01_jprb, 0.768471e+01_jprb, 0.772195e+01_jprb &
42212  &, 0.775850e+01_jprb, 0.779432e+01_jprb, 0.782950e+01_jprb, 0.786392e+01_jprb &
42213  &, 0.789758e+01_jprb, 0.793081e+01_jprb, 0.796321e+01_jprb &
42214  &, 0.799457e+01_jprb, 0.802594e+01_jprb, 0.805624e+01_jprb, 0.808588e+01_jprb &
42215  &, 0.811475e+01_jprb, 0.814303e+01_jprb, 0.817046e+01_jprb &
42216  &, 0.819694e+01_jprb, 0.822351e+01_jprb, 0.824898e+01_jprb, 0.827369e+01_jprb &
42217  &, 0.829777e+01_jprb, 0.832116e+01_jprb, 0.834381e+01_jprb &
42218  &, 0.836580e+01_jprb, 0.838707e+01_jprb, 0.840771e+01_jprb, 0.842759e+01_jprb &
42219  &, 0.844678e+01_jprb, 0.846531e+01_jprb, 0.848319e+01_jprb/)
42220 xcw( 968, :) = (/ &
42221  & 0.119308e+01_jprb, 0.124375e+01_jprb, 0.129533e+01_jprb, 0.134782e+01_jprb &
42222  &, 0.140118e+01_jprb, 0.145541e+01_jprb, 0.151048e+01_jprb &
42223  &, 0.156636e+01_jprb, 0.162305e+01_jprb, 0.168051e+01_jprb, 0.173872e+01_jprb &
42224  &, 0.179766e+01_jprb, 0.185732e+01_jprb, 0.191766e+01_jprb &
42225  &, 0.197867e+01_jprb, 0.204031e+01_jprb, 0.210258e+01_jprb, 0.216544e+01_jprb &
42226  &, 0.222887e+01_jprb, 0.229284e+01_jprb, 0.235734e+01_jprb &
42227  &, 0.242234e+01_jprb, 0.248782e+01_jprb, 0.255375e+01_jprb, 0.262010e+01_jprb &
42228  &, 0.268686e+01_jprb, 0.275400e+01_jprb, 0.282149e+01_jprb &
42229  &, 0.288932e+01_jprb, 0.295745e+01_jprb, 0.302586e+01_jprb, 0.309454e+01_jprb &
42230  &, 0.316345e+01_jprb, 0.323258e+01_jprb, 0.330190e+01_jprb &
42231  &, 0.337139e+01_jprb, 0.344102e+01_jprb, 0.351077e+01_jprb, 0.358062e+01_jprb &
42232  &, 0.365056e+01_jprb, 0.372055e+01_jprb, 0.379058e+01_jprb &
42233  &, 0.386063e+01_jprb, 0.393066e+01_jprb, 0.400068e+01_jprb, 0.407064e+01_jprb &
42234  &, 0.414055e+01_jprb, 0.421037e+01_jprb, 0.428008e+01_jprb &
42235  &, 0.434968e+01_jprb, 0.441914e+01_jprb, 0.448843e+01_jprb, 0.455755e+01_jprb &
42236  &, 0.462650e+01_jprb, 0.469521e+01_jprb, 0.476372e+01_jprb &
42237  &, 0.483197e+01_jprb, 0.489998e+01_jprb, 0.496770e+01_jprb, 0.503515e+01_jprb &
42238  &, 0.510229e+01_jprb, 0.516911e+01_jprb, 0.523559e+01_jprb &
42239  &, 0.530175e+01_jprb, 0.536754e+01_jprb, 0.543297e+01_jprb, 0.549801e+01_jprb &
42240  &, 0.556265e+01_jprb, 0.562689e+01_jprb, 0.569070e+01_jprb &
42241  &, 0.575409e+01_jprb, 0.581705e+01_jprb, 0.587954e+01_jprb, 0.594159e+01_jprb &
42242  &, 0.600316e+01_jprb, 0.606424e+01_jprb, 0.612481e+01_jprb &
42243  &, 0.618491e+01_jprb, 0.624449e+01_jprb, 0.630355e+01_jprb, 0.636209e+01_jprb &
42244  &, 0.642008e+01_jprb, 0.647753e+01_jprb, 0.653444e+01_jprb &
42245  &, 0.659077e+01_jprb, 0.664655e+01_jprb, 0.670175e+01_jprb, 0.675636e+01_jprb &
42246  &, 0.681041e+01_jprb, 0.686385e+01_jprb, 0.691668e+01_jprb &
42247  &, 0.696893e+01_jprb, 0.702055e+01_jprb, 0.707158e+01_jprb, 0.712197e+01_jprb &
42248  &, 0.717173e+01_jprb, 0.722089e+01_jprb, 0.726938e+01_jprb &
42249  &, 0.731722e+01_jprb, 0.736446e+01_jprb, 0.741103e+01_jprb, 0.745692e+01_jprb &
42250  &, 0.750220e+01_jprb, 0.754666e+01_jprb, 0.759072e+01_jprb &
42251  &, 0.763399e+01_jprb, 0.767655e+01_jprb, 0.771853e+01_jprb, 0.775976e+01_jprb &
42252  &, 0.780034e+01_jprb, 0.784022e+01_jprb, 0.787946e+01_jprb &
42253  &, 0.791797e+01_jprb, 0.795580e+01_jprb, 0.799300e+01_jprb, 0.802945e+01_jprb &
42254  &, 0.806523e+01_jprb, 0.810032e+01_jprb, 0.813471e+01_jprb &
42255  &, 0.816842e+01_jprb, 0.820124e+01_jprb, 0.823375e+01_jprb, 0.826540e+01_jprb &
42256  &, 0.829630e+01_jprb, 0.832649e+01_jprb, 0.835600e+01_jprb &
42257  &, 0.838483e+01_jprb, 0.841300e+01_jprb, 0.844045e+01_jprb, 0.846719e+01_jprb &
42258  &, 0.849324e+01_jprb, 0.851861e+01_jprb, 0.854324e+01_jprb &
42259  &, 0.856715e+01_jprb, 0.859047e+01_jprb, 0.861302e+01_jprb, 0.863494e+01_jprb &
42260  &, 0.865606e+01_jprb, 0.867657e+01_jprb, 0.869642e+01_jprb/)
42261 xcw( 969, :) = (/ &
42262  & 0.119467e+01_jprb, 0.124579e+01_jprb, 0.129785e+01_jprb, 0.135083e+01_jprb &
42263  &, 0.140472e+01_jprb, 0.145948e+01_jprb, 0.151512e+01_jprb &
42264  &, 0.157159e+01_jprb, 0.162888e+01_jprb, 0.168697e+01_jprb, 0.174584e+01_jprb &
42265  &, 0.180546e+01_jprb, 0.186581e+01_jprb, 0.192687e+01_jprb &
42266  &, 0.198862e+01_jprb, 0.205104e+01_jprb, 0.211409e+01_jprb, 0.217776e+01_jprb &
42267  &, 0.224202e+01_jprb, 0.230685e+01_jprb, 0.237222e+01_jprb &
42268  &, 0.243812e+01_jprb, 0.250451e+01_jprb, 0.257138e+01_jprb, 0.263870e+01_jprb &
42269  &, 0.270644e+01_jprb, 0.277458e+01_jprb, 0.284310e+01_jprb &
42270  &, 0.291196e+01_jprb, 0.298116e+01_jprb, 0.305067e+01_jprb, 0.312045e+01_jprb &
42271  &, 0.319049e+01_jprb, 0.326077e+01_jprb, 0.333125e+01_jprb &
42272  &, 0.340192e+01_jprb, 0.347276e+01_jprb, 0.354374e+01_jprb, 0.361485e+01_jprb &
42273  &, 0.368604e+01_jprb, 0.375732e+01_jprb, 0.382866e+01_jprb &
42274  &, 0.390002e+01_jprb, 0.397140e+01_jprb, 0.404277e+01_jprb, 0.411411e+01_jprb &
42275  &, 0.418541e+01_jprb, 0.425665e+01_jprb, 0.432780e+01_jprb &
42276  &, 0.439885e+01_jprb, 0.446976e+01_jprb, 0.454054e+01_jprb, 0.461116e+01_jprb &
42277  &, 0.468161e+01_jprb, 0.475186e+01_jprb, 0.482191e+01_jprb &
42278  &, 0.489173e+01_jprb, 0.496131e+01_jprb, 0.503064e+01_jprb, 0.509969e+01_jprb &
42279  &, 0.516844e+01_jprb, 0.523690e+01_jprb, 0.530506e+01_jprb &
42280  &, 0.537288e+01_jprb, 0.544034e+01_jprb, 0.550747e+01_jprb, 0.557422e+01_jprb &
42281  &, 0.564059e+01_jprb, 0.570657e+01_jprb, 0.577214e+01_jprb &
42282  &, 0.583729e+01_jprb, 0.590202e+01_jprb, 0.596630e+01_jprb, 0.603013e+01_jprb &
42283  &, 0.609352e+01_jprb, 0.615642e+01_jprb, 0.621885e+01_jprb &
42284  &, 0.628077e+01_jprb, 0.634221e+01_jprb, 0.640313e+01_jprb, 0.646355e+01_jprb &
42285  &, 0.652344e+01_jprb, 0.658279e+01_jprb, 0.664159e+01_jprb &
42286  &, 0.669984e+01_jprb, 0.675755e+01_jprb, 0.681469e+01_jprb, 0.687124e+01_jprb &
42287  &, 0.692724e+01_jprb, 0.698264e+01_jprb, 0.703745e+01_jprb &
42288  &, 0.709166e+01_jprb, 0.714530e+01_jprb, 0.719829e+01_jprb, 0.725066e+01_jprb &
42289  &, 0.730245e+01_jprb, 0.735358e+01_jprb, 0.740411e+01_jprb &
42290  &, 0.745374e+01_jprb, 0.750324e+01_jprb, 0.755182e+01_jprb, 0.759978e+01_jprb &
42291  &, 0.764711e+01_jprb, 0.769374e+01_jprb, 0.773974e+01_jprb &
42292  &, 0.778505e+01_jprb, 0.782970e+01_jprb, 0.787373e+01_jprb, 0.791703e+01_jprb &
42293  &, 0.795968e+01_jprb, 0.800165e+01_jprb, 0.804293e+01_jprb &
42294  &, 0.808359e+01_jprb, 0.812352e+01_jprb, 0.816275e+01_jprb, 0.820122e+01_jprb &
42295  &, 0.823918e+01_jprb, 0.827636e+01_jprb, 0.831284e+01_jprb &
42296  &, 0.834865e+01_jprb, 0.838378e+01_jprb, 0.841820e+01_jprb, 0.845186e+01_jprb &
42297  &, 0.848487e+01_jprb, 0.851724e+01_jprb, 0.854882e+01_jprb &
42298  &, 0.857973e+01_jprb, 0.860997e+01_jprb, 0.863956e+01_jprb, 0.866833e+01_jprb &
42299  &, 0.869647e+01_jprb, 0.872351e+01_jprb, 0.875065e+01_jprb &
42300  &, 0.877670e+01_jprb, 0.880205e+01_jprb, 0.882669e+01_jprb, 0.885065e+01_jprb &
42301  &, 0.887385e+01_jprb, 0.889645e+01_jprb, 0.891833e+01_jprb/)
42302 xcw( 970, :) = (/ &
42303  & 0.119630e+01_jprb, 0.124788e+01_jprb, 0.130043e+01_jprb, 0.135393e+01_jprb &
42304  &, 0.140835e+01_jprb, 0.146368e+01_jprb, 0.151989e+01_jprb &
42305  &, 0.157696e+01_jprb, 0.163489e+01_jprb, 0.169363e+01_jprb, 0.175317e+01_jprb &
42306  &, 0.181349e+01_jprb, 0.187456e+01_jprb, 0.193637e+01_jprb &
42307  &, 0.199888e+01_jprb, 0.206208e+01_jprb, 0.212595e+01_jprb, 0.219045e+01_jprb &
42308  &, 0.225557e+01_jprb, 0.232128e+01_jprb, 0.238756e+01_jprb &
42309  &, 0.245439e+01_jprb, 0.252173e+01_jprb, 0.258957e+01_jprb, 0.265788e+01_jprb &
42310  &, 0.272664e+01_jprb, 0.279581e+01_jprb, 0.286539e+01_jprb &
42311  &, 0.293534e+01_jprb, 0.300564e+01_jprb, 0.307627e+01_jprb, 0.314720e+01_jprb &
42312  &, 0.321841e+01_jprb, 0.328987e+01_jprb, 0.336156e+01_jprb &
42313  &, 0.343346e+01_jprb, 0.350555e+01_jprb, 0.357781e+01_jprb, 0.365020e+01_jprb &
42314  &, 0.372271e+01_jprb, 0.379531e+01_jprb, 0.386799e+01_jprb &
42315  &, 0.394073e+01_jprb, 0.401350e+01_jprb, 0.408629e+01_jprb, 0.415905e+01_jprb &
42316  &, 0.423180e+01_jprb, 0.430449e+01_jprb, 0.437713e+01_jprb &
42317  &, 0.444967e+01_jprb, 0.452211e+01_jprb, 0.459443e+01_jprb, 0.466660e+01_jprb &
42318  &, 0.473863e+01_jprb, 0.481046e+01_jprb, 0.488210e+01_jprb &
42319  &, 0.495355e+01_jprb, 0.502478e+01_jprb, 0.509575e+01_jprb, 0.516648e+01_jprb &
42320  &, 0.523692e+01_jprb, 0.530709e+01_jprb, 0.537695e+01_jprb &
42321  &, 0.544650e+01_jprb, 0.551573e+01_jprb, 0.558461e+01_jprb, 0.565314e+01_jprb &
42322  &, 0.572128e+01_jprb, 0.578906e+01_jprb, 0.585646e+01_jprb &
42323  &, 0.592345e+01_jprb, 0.599002e+01_jprb, 0.605615e+01_jprb, 0.612186e+01_jprb &
42324  &, 0.618711e+01_jprb, 0.625193e+01_jprb, 0.631624e+01_jprb &
42325  &, 0.638009e+01_jprb, 0.644347e+01_jprb, 0.650635e+01_jprb, 0.656870e+01_jprb &
42326  &, 0.663056e+01_jprb, 0.669188e+01_jprb, 0.675267e+01_jprb &
42327  &, 0.681293e+01_jprb, 0.687264e+01_jprb, 0.693177e+01_jprb, 0.699039e+01_jprb &
42328  &, 0.704841e+01_jprb, 0.710586e+01_jprb, 0.716270e+01_jprb &
42329  &, 0.721899e+01_jprb, 0.727465e+01_jprb, 0.732975e+01_jprb, 0.738422e+01_jprb &
42330  &, 0.743808e+01_jprb, 0.749134e+01_jprb, 0.754395e+01_jprb &
42331  &, 0.759594e+01_jprb, 0.764729e+01_jprb, 0.769802e+01_jprb, 0.774810e+01_jprb &
42332  &, 0.779753e+01_jprb, 0.784634e+01_jprb, 0.789443e+01_jprb &
42333  &, 0.794194e+01_jprb, 0.798877e+01_jprb, 0.803487e+01_jprb, 0.808041e+01_jprb &
42334  &, 0.812523e+01_jprb, 0.816938e+01_jprb, 0.821149e+01_jprb &
42335  &, 0.825567e+01_jprb, 0.829776e+01_jprb, 0.833921e+01_jprb, 0.837995e+01_jprb &
42336  &, 0.842005e+01_jprb, 0.845936e+01_jprb, 0.849805e+01_jprb &
42337  &, 0.853606e+01_jprb, 0.857340e+01_jprb, 0.860998e+01_jprb, 0.864592e+01_jprb &
42338  &, 0.868110e+01_jprb, 0.871560e+01_jprb, 0.874942e+01_jprb &
42339  &, 0.878246e+01_jprb, 0.881489e+01_jprb, 0.884673e+01_jprb, 0.887776e+01_jprb &
42340  &, 0.890809e+01_jprb, 0.893775e+01_jprb, 0.896661e+01_jprb &
42341  &, 0.899488e+01_jprb, 0.902243e+01_jprb, 0.904928e+01_jprb, 0.907538e+01_jprb &
42342  &, 0.910080e+01_jprb, 0.912554e+01_jprb, 0.914963e+01_jprb/)
42343 xcw( 971, :) = (/ &
42344  & 0.119798e+01_jprb, 0.125004e+01_jprb, 0.130310e+01_jprb, 0.135712e+01_jprb &
42345  &, 0.141209e+01_jprb, 0.146799e+01_jprb, 0.152481e+01_jprb &
42346  &, 0.158251e+01_jprb, 0.164107e+01_jprb, 0.170049e+01_jprb, 0.176073e+01_jprb &
42347  &, 0.182176e+01_jprb, 0.188358e+01_jprb, 0.194616e+01_jprb &
42348  &, 0.200946e+01_jprb, 0.207348e+01_jprb, 0.213819e+01_jprb, 0.220356e+01_jprb &
42349  &, 0.226956e+01_jprb, 0.233618e+01_jprb, 0.240340e+01_jprb &
42350  &, 0.247118e+01_jprb, 0.253951e+01_jprb, 0.260835e+01_jprb, 0.267769e+01_jprb &
42351  &, 0.274749e+01_jprb, 0.281775e+01_jprb, 0.288842e+01_jprb &
42352  &, 0.295949e+01_jprb, 0.303093e+01_jprb, 0.310272e+01_jprb, 0.317484e+01_jprb &
42353  &, 0.324726e+01_jprb, 0.331995e+01_jprb, 0.339290e+01_jprb &
42354  &, 0.346607e+01_jprb, 0.353945e+01_jprb, 0.361302e+01_jprb, 0.368675e+01_jprb &
42355  &, 0.376063e+01_jprb, 0.383461e+01_jprb, 0.390869e+01_jprb &
42356  &, 0.398284e+01_jprb, 0.405701e+01_jprb, 0.413130e+01_jprb, 0.420555e+01_jprb &
42357  &, 0.427979e+01_jprb, 0.435401e+01_jprb, 0.442818e+01_jprb &
42358  &, 0.450228e+01_jprb, 0.457630e+01_jprb, 0.465020e+01_jprb, 0.472399e+01_jprb &
42359  &, 0.479764e+01_jprb, 0.487114e+01_jprb, 0.494445e+01_jprb &
42360  &, 0.501758e+01_jprb, 0.509049e+01_jprb, 0.516319e+01_jprb, 0.523565e+01_jprb &
42361  &, 0.530786e+01_jprb, 0.537979e+01_jprb, 0.545143e+01_jprb &
42362  &, 0.552279e+01_jprb, 0.559382e+01_jprb, 0.566453e+01_jprb, 0.573490e+01_jprb &
42363  &, 0.580494e+01_jprb, 0.587460e+01_jprb, 0.594387e+01_jprb &
42364  &, 0.601276e+01_jprb, 0.608125e+01_jprb, 0.614933e+01_jprb, 0.621697e+01_jprb &
42365  &, 0.628421e+01_jprb, 0.635099e+01_jprb, 0.641731e+01_jprb &
42366  &, 0.648315e+01_jprb, 0.654853e+01_jprb, 0.661342e+01_jprb, 0.667782e+01_jprb &
42367  &, 0.674171e+01_jprb, 0.680510e+01_jprb, 0.686795e+01_jprb &
42368  &, 0.693031e+01_jprb, 0.699210e+01_jprb, 0.705336e+01_jprb, 0.711407e+01_jprb &
42369  &, 0.717420e+01_jprb, 0.723378e+01_jprb, 0.729277e+01_jprb &
42370  &, 0.735122e+01_jprb, 0.740904e+01_jprb, 0.746631e+01_jprb, 0.752293e+01_jprb &
42371  &, 0.757899e+01_jprb, 0.763443e+01_jprb, 0.768923e+01_jprb &
42372  &, 0.774344e+01_jprb, 0.779702e+01_jprb, 0.784995e+01_jprb, 0.790229e+01_jprb &
42373  &, 0.795395e+01_jprb, 0.800493e+01_jprb, 0.805535e+01_jprb &
42374  &, 0.810510e+01_jprb, 0.815417e+01_jprb, 0.820261e+01_jprb, 0.825037e+01_jprb &
42375  &, 0.829743e+01_jprb, 0.834386e+01_jprb, 0.838963e+01_jprb &
42376  &, 0.843470e+01_jprb, 0.847907e+01_jprb, 0.852283e+01_jprb, 0.856586e+01_jprb &
42377  &, 0.860821e+01_jprb, 0.864987e+01_jprb, 0.869087e+01_jprb &
42378  &, 0.873119e+01_jprb, 0.877076e+01_jprb, 0.880968e+01_jprb, 0.884795e+01_jprb &
42379  &, 0.888542e+01_jprb, 0.892227e+01_jprb, 0.895839e+01_jprb &
42380  &, 0.899379e+01_jprb, 0.902859e+01_jprb, 0.906263e+01_jprb, 0.909597e+01_jprb &
42381  &, 0.912857e+01_jprb, 0.916061e+01_jprb, 0.919174e+01_jprb &
42382  &, 0.922221e+01_jprb, 0.925216e+01_jprb, 0.928128e+01_jprb, 0.930972e+01_jprb &
42383  &, 0.933747e+01_jprb, 0.936449e+01_jprb, 0.939079e+01_jprb/)
42384 xcw( 972, :) = (/ &
42385  & 0.119971e+01_jprb, 0.125227e+01_jprb, 0.130584e+01_jprb, 0.136041e+01_jprb &
42386  &, 0.141595e+01_jprb, 0.147244e+01_jprb, 0.152988e+01_jprb &
42387  &, 0.158822e+01_jprb, 0.164746e+01_jprb, 0.170757e+01_jprb, 0.176852e+01_jprb &
42388  &, 0.183031e+01_jprb, 0.189289e+01_jprb, 0.195626e+01_jprb &
42389  &, 0.202039e+01_jprb, 0.208525e+01_jprb, 0.215083e+01_jprb, 0.221709e+01_jprb &
42390  &, 0.228402e+01_jprb, 0.235158e+01_jprb, 0.241976e+01_jprb &
42391  &, 0.248854e+01_jprb, 0.255788e+01_jprb, 0.262776e+01_jprb, 0.269816e+01_jprb &
42392  &, 0.276906e+01_jprb, 0.284043e+01_jprb, 0.291224e+01_jprb &
42393  &, 0.298447e+01_jprb, 0.305706e+01_jprb, 0.313009e+01_jprb, 0.320344e+01_jprb &
42394  &, 0.327711e+01_jprb, 0.335108e+01_jprb, 0.342532e+01_jprb &
42395  &, 0.349982e+01_jprb, 0.357455e+01_jprb, 0.364948e+01_jprb, 0.372460e+01_jprb &
42396  &, 0.379988e+01_jprb, 0.387530e+01_jprb, 0.395083e+01_jprb &
42397  &, 0.402646e+01_jprb, 0.410216e+01_jprb, 0.417792e+01_jprb, 0.425369e+01_jprb &
42398  &, 0.432951e+01_jprb, 0.440530e+01_jprb, 0.448108e+01_jprb &
42399  &, 0.455680e+01_jprb, 0.463245e+01_jprb, 0.470802e+01_jprb, 0.478348e+01_jprb &
42400  &, 0.485883e+01_jprb, 0.493403e+01_jprb, 0.500909e+01_jprb &
42401  &, 0.508396e+01_jprb, 0.515865e+01_jprb, 0.523313e+01_jprb, 0.530740e+01_jprb &
42402  &, 0.538143e+01_jprb, 0.545520e+01_jprb, 0.552870e+01_jprb &
42403  &, 0.560193e+01_jprb, 0.567486e+01_jprb, 0.574749e+01_jprb, 0.581977e+01_jprb &
42404  &, 0.589175e+01_jprb, 0.596336e+01_jprb, 0.603461e+01_jprb &
42405  &, 0.610548e+01_jprb, 0.617597e+01_jprb, 0.624605e+01_jprb, 0.631575e+01_jprb &
42406  &, 0.638501e+01_jprb, 0.645383e+01_jprb, 0.652223e+01_jprb &
42407  &, 0.659016e+01_jprb, 0.665763e+01_jprb, 0.672463e+01_jprb, 0.679117e+01_jprb &
42408  &, 0.685719e+01_jprb, 0.692274e+01_jprb, 0.698775e+01_jprb &
42409  &, 0.705225e+01_jprb, 0.711624e+01_jprb, 0.717969e+01_jprb, 0.724260e+01_jprb &
42410  &, 0.730497e+01_jprb, 0.736677e+01_jprb, 0.742800e+01_jprb &
42411  &, 0.748868e+01_jprb, 0.754877e+01_jprb, 0.760830e+01_jprb, 0.766721e+01_jprb &
42412  &, 0.772554e+01_jprb, 0.778329e+01_jprb, 0.784039e+01_jprb &
42413  &, 0.789692e+01_jprb, 0.795278e+01_jprb, 0.800807e+01_jprb, 0.806272e+01_jprb &
42414  &, 0.811672e+01_jprb, 0.817009e+01_jprb, 0.822284e+01_jprb &
42415  &, 0.827492e+01_jprb, 0.832638e+01_jprb, 0.837719e+01_jprb, 0.842728e+01_jprb &
42416  &, 0.847677e+01_jprb, 0.852556e+01_jprb, 0.857374e+01_jprb &
42417  &, 0.862122e+01_jprb, 0.866798e+01_jprb, 0.871414e+01_jprb, 0.875957e+01_jprb &
42418  &, 0.880433e+01_jprb, 0.884827e+01_jprb, 0.889145e+01_jprb &
42419  &, 0.893456e+01_jprb, 0.897662e+01_jprb, 0.901784e+01_jprb, 0.905857e+01_jprb &
42420  &, 0.909851e+01_jprb, 0.913757e+01_jprb, 0.917633e+01_jprb &
42421  &, 0.921422e+01_jprb, 0.925140e+01_jprb, 0.928782e+01_jprb, 0.932361e+01_jprb &
42422  &, 0.935866e+01_jprb, 0.939304e+01_jprb, 0.942675e+01_jprb &
42423  &, 0.945975e+01_jprb, 0.949198e+01_jprb, 0.952357e+01_jprb, 0.955442e+01_jprb &
42424  &, 0.958433e+01_jprb, 0.961402e+01_jprb, 0.964279e+01_jprb/)
42425 xcw( 973, :) = (/ &
42426  & 0.120149e+01_jprb, 0.125456e+01_jprb, 0.130867e+01_jprb, 0.136380e+01_jprb &
42427  &, 0.141993e+01_jprb, 0.147704e+01_jprb, 0.153511e+01_jprb &
42428  &, 0.159412e+01_jprb, 0.165405e+01_jprb, 0.171488e+01_jprb, 0.177658e+01_jprb &
42429  &, 0.183913e+01_jprb, 0.190252e+01_jprb, 0.196671e+01_jprb &
42430  &, 0.203169e+01_jprb, 0.209742e+01_jprb, 0.216390e+01_jprb, 0.223109e+01_jprb &
42431  &, 0.229896e+01_jprb, 0.236751e+01_jprb, 0.243669e+01_jprb &
42432  &, 0.250650e+01_jprb, 0.257689e+01_jprb, 0.264785e+01_jprb, 0.271936e+01_jprb &
42433  &, 0.279139e+01_jprb, 0.286391e+01_jprb, 0.293690e+01_jprb &
42434  &, 0.301033e+01_jprb, 0.308419e+01_jprb, 0.315844e+01_jprb, 0.323306e+01_jprb &
42435  &, 0.330803e+01_jprb, 0.338333e+01_jprb, 0.345892e+01_jprb &
42436  &, 0.353479e+01_jprb, 0.361091e+01_jprb, 0.368727e+01_jprb, 0.376383e+01_jprb &
42437  &, 0.384057e+01_jprb, 0.391748e+01_jprb, 0.399452e+01_jprb &
42438  &, 0.407168e+01_jprb, 0.414894e+01_jprb, 0.422628e+01_jprb, 0.430367e+01_jprb &
42439  &, 0.438109e+01_jprb, 0.445853e+01_jprb, 0.453595e+01_jprb &
42440  &, 0.461337e+01_jprb, 0.469072e+01_jprb, 0.476801e+01_jprb, 0.484522e+01_jprb &
42441  &, 0.492233e+01_jprb, 0.499933e+01_jprb, 0.507619e+01_jprb &
42442  &, 0.515289e+01_jprb, 0.522942e+01_jprb, 0.530577e+01_jprb, 0.538191e+01_jprb &
42443  &, 0.545784e+01_jprb, 0.553353e+01_jprb, 0.560897e+01_jprb &
42444  &, 0.568415e+01_jprb, 0.575902e+01_jprb, 0.583365e+01_jprb, 0.590795e+01_jprb &
42445  &, 0.598194e+01_jprb, 0.605559e+01_jprb, 0.612889e+01_jprb &
42446  &, 0.620184e+01_jprb, 0.627442e+01_jprb, 0.634662e+01_jprb, 0.641842e+01_jprb &
42447  &, 0.648980e+01_jprb, 0.656078e+01_jprb, 0.663133e+01_jprb &
42448  &, 0.670146e+01_jprb, 0.677113e+01_jprb, 0.684033e+01_jprb, 0.690906e+01_jprb &
42449  &, 0.697733e+01_jprb, 0.704510e+01_jprb, 0.711238e+01_jprb &
42450  &, 0.717918e+01_jprb, 0.724543e+01_jprb, 0.731116e+01_jprb, 0.737639e+01_jprb &
42451  &, 0.744108e+01_jprb, 0.750520e+01_jprb, 0.756879e+01_jprb &
42452  &, 0.763180e+01_jprb, 0.769428e+01_jprb, 0.775614e+01_jprb, 0.781746e+01_jprb &
42453  &, 0.787816e+01_jprb, 0.793830e+01_jprb, 0.799785e+01_jprb &
42454  &, 0.805676e+01_jprb, 0.811510e+01_jprb, 0.817280e+01_jprb, 0.822989e+01_jprb &
42455  &, 0.828634e+01_jprb, 0.834218e+01_jprb, 0.839740e+01_jprb &
42456  &, 0.845194e+01_jprb, 0.850587e+01_jprb, 0.855915e+01_jprb, 0.861178e+01_jprb &
42457  &, 0.866361e+01_jprb, 0.871504e+01_jprb, 0.876571e+01_jprb &
42458  &, 0.881574e+01_jprb, 0.886500e+01_jprb, 0.891363e+01_jprb, 0.896169e+01_jprb &
42459  &, 0.900899e+01_jprb, 0.905558e+01_jprb, 0.910156e+01_jprb &
42460  &, 0.914645e+01_jprb, 0.919144e+01_jprb, 0.923529e+01_jprb, 0.927851e+01_jprb &
42461  &, 0.932101e+01_jprb, 0.936278e+01_jprb, 0.940384e+01_jprb &
42462  &, 0.944435e+01_jprb, 0.948416e+01_jprb, 0.952317e+01_jprb, 0.956149e+01_jprb &
42463  &, 0.959913e+01_jprb, 0.963611e+01_jprb, 0.967231e+01_jprb &
42464  &, 0.970785e+01_jprb, 0.974269e+01_jprb, 0.977677e+01_jprb, 0.981024e+01_jprb &
42465  &, 0.984296e+01_jprb, 0.987496e+01_jprb, 0.990629e+01_jprb/)
42466 
42467 IF (lhook) CALL dr_hook('SU_MCICA:PART139',1,zhook_handle)
42468 END SUBROUTINE part139
42469 
42470 #ifdef VPP5000
42471 !OCL SCALAR
42472 #endif
42473 !option! -Nv -NO
42474 #ifdef RS6K
42475 @process nooptimize
42476 #endif
42477 !pgi$r opt=0
42478 SUBROUTINE part140
42479 
42480 REAL(KIND=JPRB) :: ZHOOK_HANDLE
42481 IF (lhook) CALL dr_hook('SU_MCICA:PART140',0,zhook_handle)
42482 
42483 xcw( 974, :) = (/ &
42484  & 0.120334e+01_jprb, 0.125693e+01_jprb, 0.131159e+01_jprb, 0.136730e+01_jprb &
42485  &, 0.142404e+01_jprb, 0.148179e+01_jprb, 0.154052e+01_jprb &
42486  &, 0.160022e+01_jprb, 0.166087e+01_jprb, 0.172244e+01_jprb, 0.178491e+01_jprb &
42487  &, 0.184826e+01_jprb, 0.191247e+01_jprb, 0.197752e+01_jprb &
42488  &, 0.204338e+01_jprb, 0.211002e+01_jprb, 0.217743e+01_jprb, 0.224558e+01_jprb &
42489  &, 0.231445e+01_jprb, 0.238400e+01_jprb, 0.245423e+01_jprb &
42490  &, 0.252510e+01_jprb, 0.259659e+01_jprb, 0.266868e+01_jprb, 0.274133e+01_jprb &
42491  &, 0.281453e+01_jprb, 0.288825e+01_jprb, 0.296246e+01_jprb &
42492  &, 0.303715e+01_jprb, 0.311228e+01_jprb, 0.318784e+01_jprb, 0.326379e+01_jprb &
42493  &, 0.334011e+01_jprb, 0.341679e+01_jprb, 0.349378e+01_jprb &
42494  &, 0.357108e+01_jprb, 0.364865e+01_jprb, 0.372649e+01_jprb, 0.380454e+01_jprb &
42495  &, 0.388281e+01_jprb, 0.396127e+01_jprb, 0.403988e+01_jprb &
42496  &, 0.411865e+01_jprb, 0.419753e+01_jprb, 0.427650e+01_jprb, 0.435556e+01_jprb &
42497  &, 0.443467e+01_jprb, 0.451381e+01_jprb, 0.459297e+01_jprb &
42498  &, 0.467213e+01_jprb, 0.475126e+01_jprb, 0.483035e+01_jprb, 0.490938e+01_jprb &
42499  &, 0.498834e+01_jprb, 0.506719e+01_jprb, 0.514592e+01_jprb &
42500  &, 0.522453e+01_jprb, 0.530299e+01_jprb, 0.538128e+01_jprb, 0.545938e+01_jprb &
42501  &, 0.553728e+01_jprb, 0.561498e+01_jprb, 0.569245e+01_jprb &
42502  &, 0.576966e+01_jprb, 0.584662e+01_jprb, 0.592330e+01_jprb, 0.599969e+01_jprb &
42503  &, 0.607579e+01_jprb, 0.615157e+01_jprb, 0.622702e+01_jprb &
42504  &, 0.630213e+01_jprb, 0.637689e+01_jprb, 0.645128e+01_jprb, 0.652530e+01_jprb &
42505  &, 0.659892e+01_jprb, 0.667213e+01_jprb, 0.674496e+01_jprb &
42506  &, 0.681735e+01_jprb, 0.688931e+01_jprb, 0.696083e+01_jprb, 0.703188e+01_jprb &
42507  &, 0.710247e+01_jprb, 0.717261e+01_jprb, 0.724223e+01_jprb &
42508  &, 0.731140e+01_jprb, 0.738006e+01_jprb, 0.744819e+01_jprb, 0.751582e+01_jprb &
42509  &, 0.758294e+01_jprb, 0.764952e+01_jprb, 0.771553e+01_jprb &
42510  &, 0.778104e+01_jprb, 0.784597e+01_jprb, 0.791032e+01_jprb, 0.797413e+01_jprb &
42511  &, 0.803735e+01_jprb, 0.809999e+01_jprb, 0.816206e+01_jprb &
42512  &, 0.822354e+01_jprb, 0.828440e+01_jprb, 0.834468e+01_jprb, 0.840433e+01_jprb &
42513  &, 0.846334e+01_jprb, 0.852177e+01_jprb, 0.857955e+01_jprb &
42514  &, 0.863667e+01_jprb, 0.869327e+01_jprb, 0.874917e+01_jprb, 0.880438e+01_jprb &
42515  &, 0.885901e+01_jprb, 0.891292e+01_jprb, 0.896625e+01_jprb &
42516  &, 0.901887e+01_jprb, 0.907068e+01_jprb, 0.912220e+01_jprb, 0.917283e+01_jprb &
42517  &, 0.922280e+01_jprb, 0.927189e+01_jprb, 0.932061e+01_jprb &
42518  &, 0.936866e+01_jprb, 0.941592e+01_jprb, 0.946250e+01_jprb, 0.950841e+01_jprb &
42519  &, 0.955359e+01_jprb, 0.959807e+01_jprb, 0.964194e+01_jprb &
42520  &, 0.968506e+01_jprb, 0.972755e+01_jprb, 0.976929e+01_jprb, 0.981029e+01_jprb &
42521  &, 0.985068e+01_jprb, 0.989040e+01_jprb, 0.992924e+01_jprb &
42522  &, 0.996748e+01_jprb, 0.100051e+02_jprb, 0.100419e+02_jprb, 0.100781e+02_jprb &
42523  &, 0.101135e+02_jprb, 0.101482e+02_jprb, 0.101823e+02_jprb/)
42524 xcw( 975, :) = (/ &
42525  & 0.120524e+01_jprb, 0.125938e+01_jprb, 0.131462e+01_jprb, 0.137093e+01_jprb &
42526  &, 0.142830e+01_jprb, 0.148670e+01_jprb, 0.154612e+01_jprb &
42527  &, 0.160654e+01_jprb, 0.166793e+01_jprb, 0.173027e+01_jprb, 0.179354e+01_jprb &
42528  &, 0.185773e+01_jprb, 0.192279e+01_jprb, 0.198872e+01_jprb &
42529  &, 0.205549e+01_jprb, 0.212308e+01_jprb, 0.219146e+01_jprb, 0.226061e+01_jprb &
42530  &, 0.233050e+01_jprb, 0.240112e+01_jprb, 0.247242e+01_jprb &
42531  &, 0.254441e+01_jprb, 0.261703e+01_jprb, 0.269028e+01_jprb, 0.276413e+01_jprb &
42532  &, 0.283855e+01_jprb, 0.291352e+01_jprb, 0.298901e+01_jprb &
42533  &, 0.306500e+01_jprb, 0.314146e+01_jprb, 0.321837e+01_jprb, 0.329570e+01_jprb &
42534  &, 0.337344e+01_jprb, 0.345155e+01_jprb, 0.353000e+01_jprb &
42535  &, 0.360878e+01_jprb, 0.368787e+01_jprb, 0.376724e+01_jprb, 0.384687e+01_jprb &
42536  &, 0.392672e+01_jprb, 0.400679e+01_jprb, 0.408705e+01_jprb &
42537  &, 0.416748e+01_jprb, 0.424804e+01_jprb, 0.432873e+01_jprb, 0.440952e+01_jprb &
42538  &, 0.449039e+01_jprb, 0.457132e+01_jprb, 0.465229e+01_jprb &
42539  &, 0.473328e+01_jprb, 0.481426e+01_jprb, 0.489523e+01_jprb, 0.497616e+01_jprb &
42540  &, 0.505703e+01_jprb, 0.513783e+01_jprb, 0.521853e+01_jprb &
42541  &, 0.529912e+01_jprb, 0.537958e+01_jprb, 0.545990e+01_jprb, 0.554006e+01_jprb &
42542  &, 0.562004e+01_jprb, 0.569982e+01_jprb, 0.577939e+01_jprb &
42543  &, 0.585874e+01_jprb, 0.593785e+01_jprb, 0.601670e+01_jprb, 0.609529e+01_jprb &
42544  &, 0.617358e+01_jprb, 0.625158e+01_jprb, 0.632928e+01_jprb &
42545  &, 0.640666e+01_jprb, 0.648369e+01_jprb, 0.656040e+01_jprb, 0.663672e+01_jprb &
42546  &, 0.671267e+01_jprb, 0.678825e+01_jprb, 0.686343e+01_jprb &
42547  &, 0.693820e+01_jprb, 0.701255e+01_jprb, 0.708649e+01_jprb, 0.715999e+01_jprb &
42548  &, 0.723303e+01_jprb, 0.730562e+01_jprb, 0.737774e+01_jprb &
42549  &, 0.744938e+01_jprb, 0.752055e+01_jprb, 0.759120e+01_jprb, 0.766135e+01_jprb &
42550  &, 0.773102e+01_jprb, 0.780016e+01_jprb, 0.786874e+01_jprb &
42551  &, 0.793683e+01_jprb, 0.800434e+01_jprb, 0.807134e+01_jprb, 0.813775e+01_jprb &
42552  &, 0.820360e+01_jprb, 0.826890e+01_jprb, 0.833361e+01_jprb &
42553  &, 0.839776e+01_jprb, 0.846131e+01_jprb, 0.852425e+01_jprb, 0.858658e+01_jprb &
42554  &, 0.864834e+01_jprb, 0.870948e+01_jprb, 0.877001e+01_jprb &
42555  &, 0.882988e+01_jprb, 0.888917e+01_jprb, 0.894781e+01_jprb, 0.900583e+01_jprb &
42556  &, 0.906319e+01_jprb, 0.911989e+01_jprb, 0.917598e+01_jprb &
42557  &, 0.923142e+01_jprb, 0.928611e+01_jprb, 0.934029e+01_jprb, 0.939373e+01_jprb &
42558  &, 0.944654e+01_jprb, 0.949860e+01_jprb, 0.954856e+01_jprb &
42559  &, 0.960084e+01_jprb, 0.965097e+01_jprb, 0.970038e+01_jprb, 0.974918e+01_jprb &
42560  &, 0.979717e+01_jprb, 0.984456e+01_jprb, 0.989125e+01_jprb &
42561  &, 0.993719e+01_jprb, 0.998256e+01_jprb, 0.100271e+02_jprb, 0.100710e+02_jprb &
42562  &, 0.101143e+02_jprb, 0.101568e+02_jprb, 0.101986e+02_jprb &
42563  &, 0.102397e+02_jprb, 0.102802e+02_jprb, 0.103199e+02_jprb, 0.103586e+02_jprb &
42564  &, 0.103972e+02_jprb, 0.104347e+02_jprb, 0.104717e+02_jprb/)
42565 xcw( 976, :) = (/ &
42566  & 0.120721e+01_jprb, 0.126192e+01_jprb, 0.131775e+01_jprb, 0.137468e+01_jprb &
42567  &, 0.143270e+01_jprb, 0.149179e+01_jprb, 0.155193e+01_jprb &
42568  &, 0.161309e+01_jprb, 0.167525e+01_jprb, 0.173839e+01_jprb, 0.180250e+01_jprb &
42569  &, 0.186754e+01_jprb, 0.193350e+01_jprb, 0.200035e+01_jprb &
42570  &, 0.206807e+01_jprb, 0.213664e+01_jprb, 0.220603e+01_jprb, 0.227622e+01_jprb &
42571  &, 0.234718e+01_jprb, 0.241889e+01_jprb, 0.249132e+01_jprb &
42572  &, 0.256446e+01_jprb, 0.263828e+01_jprb, 0.271274e+01_jprb, 0.278783e+01_jprb &
42573  &, 0.286352e+01_jprb, 0.293979e+01_jprb, 0.301661e+01_jprb &
42574  &, 0.309396e+01_jprb, 0.317181e+01_jprb, 0.325013e+01_jprb, 0.332890e+01_jprb &
42575  &, 0.340810e+01_jprb, 0.348771e+01_jprb, 0.356769e+01_jprb &
42576  &, 0.364802e+01_jprb, 0.372868e+01_jprb, 0.380967e+01_jprb, 0.389093e+01_jprb &
42577  &, 0.397244e+01_jprb, 0.405420e+01_jprb, 0.413616e+01_jprb &
42578  &, 0.421833e+01_jprb, 0.430066e+01_jprb, 0.438314e+01_jprb, 0.446574e+01_jprb &
42579  &, 0.454845e+01_jprb, 0.463124e+01_jprb, 0.471409e+01_jprb &
42580  &, 0.479700e+01_jprb, 0.487993e+01_jprb, 0.496285e+01_jprb, 0.504577e+01_jprb &
42581  &, 0.512865e+01_jprb, 0.521147e+01_jprb, 0.529422e+01_jprb &
42582  &, 0.537690e+01_jprb, 0.545946e+01_jprb, 0.554190e+01_jprb, 0.562420e+01_jprb &
42583  &, 0.570634e+01_jprb, 0.578832e+01_jprb, 0.587009e+01_jprb &
42584  &, 0.595167e+01_jprb, 0.603304e+01_jprb, 0.611416e+01_jprb, 0.619503e+01_jprb &
42585  &, 0.627565e+01_jprb, 0.635599e+01_jprb, 0.643604e+01_jprb &
42586  &, 0.651580e+01_jprb, 0.659521e+01_jprb, 0.667431e+01_jprb, 0.675307e+01_jprb &
42587  &, 0.683147e+01_jprb, 0.690951e+01_jprb, 0.698717e+01_jprb &
42588  &, 0.706446e+01_jprb, 0.714133e+01_jprb, 0.721779e+01_jprb, 0.729382e+01_jprb &
42589  &, 0.736945e+01_jprb, 0.744460e+01_jprb, 0.751932e+01_jprb &
42590  &, 0.759357e+01_jprb, 0.766739e+01_jprb, 0.774068e+01_jprb, 0.781351e+01_jprb &
42591  &, 0.788584e+01_jprb, 0.795765e+01_jprb, 0.802897e+01_jprb &
42592  &, 0.809975e+01_jprb, 0.817002e+01_jprb, 0.823972e+01_jprb, 0.830891e+01_jprb &
42593  &, 0.837753e+01_jprb, 0.844563e+01_jprb, 0.851312e+01_jprb &
42594  &, 0.858007e+01_jprb, 0.864644e+01_jprb, 0.871219e+01_jprb, 0.877738e+01_jprb &
42595  &, 0.884198e+01_jprb, 0.890599e+01_jprb, 0.896936e+01_jprb &
42596  &, 0.903213e+01_jprb, 0.909430e+01_jprb, 0.915583e+01_jprb, 0.921676e+01_jprb &
42597  &, 0.927704e+01_jprb, 0.933669e+01_jprb, 0.939570e+01_jprb &
42598  &, 0.945406e+01_jprb, 0.951175e+01_jprb, 0.956875e+01_jprb, 0.962526e+01_jprb &
42599  &, 0.968104e+01_jprb, 0.973611e+01_jprb, 0.979056e+01_jprb &
42600  &, 0.984424e+01_jprb, 0.989745e+01_jprb, 0.994987e+01_jprb, 0.100015e+02_jprb &
42601  &, 0.100525e+02_jprb, 0.101029e+02_jprb, 0.101527e+02_jprb &
42602  &, 0.102017e+02_jprb, 0.102501e+02_jprb, 0.102977e+02_jprb, 0.103447e+02_jprb &
42603  &, 0.103909e+02_jprb, 0.104365e+02_jprb, 0.104814e+02_jprb &
42604  &, 0.105255e+02_jprb, 0.105690e+02_jprb, 0.106118e+02_jprb, 0.106528e+02_jprb &
42605  &, 0.106952e+02_jprb, 0.107358e+02_jprb, 0.107758e+02_jprb/)
42606 xcw( 977, :) = (/ &
42607  & 0.120926e+01_jprb, 0.126455e+01_jprb, 0.132100e+01_jprb, 0.137858e+01_jprb &
42608  &, 0.143728e+01_jprb, 0.149708e+01_jprb, 0.155795e+01_jprb &
42609  &, 0.161988e+01_jprb, 0.168285e+01_jprb, 0.174683e+01_jprb, 0.181180e+01_jprb &
42610  &, 0.187774e+01_jprb, 0.194463e+01_jprb, 0.201244e+01_jprb &
42611  &, 0.208115e+01_jprb, 0.215074e+01_jprb, 0.222118e+01_jprb, 0.229245e+01_jprb &
42612  &, 0.236453e+01_jprb, 0.243738e+01_jprb, 0.251100e+01_jprb &
42613  &, 0.258534e+01_jprb, 0.266039e+01_jprb, 0.273612e+01_jprb, 0.281251e+01_jprb &
42614  &, 0.288953e+01_jprb, 0.296716e+01_jprb, 0.304536e+01_jprb &
42615  &, 0.312412e+01_jprb, 0.320342e+01_jprb, 0.328322e+01_jprb, 0.336350e+01_jprb &
42616  &, 0.344424e+01_jprb, 0.352541e+01_jprb, 0.360698e+01_jprb &
42617  &, 0.368894e+01_jprb, 0.377125e+01_jprb, 0.385390e+01_jprb, 0.393687e+01_jprb &
42618  &, 0.402012e+01_jprb, 0.410364e+01_jprb, 0.418740e+01_jprb &
42619  &, 0.427138e+01_jprb, 0.435555e+01_jprb, 0.443990e+01_jprb, 0.452440e+01_jprb &
42620  &, 0.460903e+01_jprb, 0.469378e+01_jprb, 0.477861e+01_jprb &
42621  &, 0.486351e+01_jprb, 0.494847e+01_jprb, 0.503345e+01_jprb, 0.511845e+01_jprb &
42622  &, 0.520343e+01_jprb, 0.528839e+01_jprb, 0.537328e+01_jprb &
42623  &, 0.545814e+01_jprb, 0.554290e+01_jprb, 0.562757e+01_jprb, 0.571212e+01_jprb &
42624  &, 0.579653e+01_jprb, 0.588080e+01_jprb, 0.596489e+01_jprb &
42625  &, 0.604881e+01_jprb, 0.613254e+01_jprb, 0.621604e+01_jprb, 0.629933e+01_jprb &
42626  &, 0.638236e+01_jprb, 0.646514e+01_jprb, 0.654768e+01_jprb &
42627  &, 0.662990e+01_jprb, 0.671184e+01_jprb, 0.679347e+01_jprb, 0.687477e+01_jprb &
42628  &, 0.695575e+01_jprb, 0.703637e+01_jprb, 0.711666e+01_jprb &
42629  &, 0.719655e+01_jprb, 0.727606e+01_jprb, 0.735519e+01_jprb, 0.743392e+01_jprb &
42630  &, 0.751223e+01_jprb, 0.759010e+01_jprb, 0.766756e+01_jprb &
42631  &, 0.774456e+01_jprb, 0.782112e+01_jprb, 0.789722e+01_jprb, 0.797285e+01_jprb &
42632  &, 0.804799e+01_jprb, 0.812262e+01_jprb, 0.819680e+01_jprb &
42633  &, 0.827042e+01_jprb, 0.834357e+01_jprb, 0.841617e+01_jprb, 0.848828e+01_jprb &
42634  &, 0.855982e+01_jprb, 0.863082e+01_jprb, 0.870128e+01_jprb &
42635  &, 0.877118e+01_jprb, 0.884048e+01_jprb, 0.890926e+01_jprb, 0.897743e+01_jprb &
42636  &, 0.904504e+01_jprb, 0.911206e+01_jprb, 0.917847e+01_jprb &
42637  &, 0.924430e+01_jprb, 0.930951e+01_jprb, 0.937410e+01_jprb, 0.943810e+01_jprb &
42638  &, 0.950144e+01_jprb, 0.956419e+01_jprb, 0.962632e+01_jprb &
42639  &, 0.968779e+01_jprb, 0.974864e+01_jprb, 0.980882e+01_jprb, 0.986838e+01_jprb &
42640  &, 0.992728e+01_jprb, 0.998553e+01_jprb, 0.100431e+02_jprb &
42641  &, 0.101000e+02_jprb, 0.101563e+02_jprb, 0.102119e+02_jprb, 0.102668e+02_jprb &
42642  &, 0.103210e+02_jprb, 0.103747e+02_jprb, 0.104275e+02_jprb &
42643  &, 0.104798e+02_jprb, 0.105313e+02_jprb, 0.105817e+02_jprb, 0.106321e+02_jprb &
42644  &, 0.106818e+02_jprb, 0.107306e+02_jprb, 0.107787e+02_jprb &
42645  &, 0.108261e+02_jprb, 0.108728e+02_jprb, 0.109188e+02_jprb, 0.109622e+02_jprb &
42646  &, 0.110086e+02_jprb, 0.110526e+02_jprb, 0.110957e+02_jprb/)
42647 xcw( 978, :) = (/ &
42648  & 0.121138e+01_jprb, 0.126728e+01_jprb, 0.132437e+01_jprb, 0.138263e+01_jprb &
42649  &, 0.144204e+01_jprb, 0.150257e+01_jprb, 0.156422e+01_jprb &
42650  &, 0.162696e+01_jprb, 0.169076e+01_jprb, 0.175561e+01_jprb, 0.182148e+01_jprb &
42651  &, 0.188836e+01_jprb, 0.195621e+01_jprb, 0.202503e+01_jprb &
42652  &, 0.209477e+01_jprb, 0.216542e+01_jprb, 0.223696e+01_jprb, 0.230937e+01_jprb &
42653  &, 0.238261e+01_jprb, 0.245666e+01_jprb, 0.253150e+01_jprb &
42654  &, 0.260710e+01_jprb, 0.268345e+01_jprb, 0.276050e+01_jprb, 0.283825e+01_jprb &
42655  &, 0.291665e+01_jprb, 0.299570e+01_jprb, 0.307536e+01_jprb &
42656  &, 0.315560e+01_jprb, 0.323641e+01_jprb, 0.331776e+01_jprb, 0.339962e+01_jprb &
42657  &, 0.348196e+01_jprb, 0.356476e+01_jprb, 0.364801e+01_jprb &
42658  &, 0.373166e+01_jprb, 0.381571e+01_jprb, 0.390012e+01_jprb, 0.398487e+01_jprb &
42659  &, 0.406994e+01_jprb, 0.415531e+01_jprb, 0.424093e+01_jprb &
42660  &, 0.432682e+01_jprb, 0.441292e+01_jprb, 0.449923e+01_jprb, 0.458573e+01_jprb &
42661  &, 0.467238e+01_jprb, 0.475917e+01_jprb, 0.484607e+01_jprb &
42662  &, 0.493307e+01_jprb, 0.502015e+01_jprb, 0.510729e+01_jprb, 0.519447e+01_jprb &
42663  &, 0.528166e+01_jprb, 0.536885e+01_jprb, 0.545602e+01_jprb &
42664  &, 0.554314e+01_jprb, 0.563023e+01_jprb, 0.571722e+01_jprb, 0.580413e+01_jprb &
42665  &, 0.589093e+01_jprb, 0.597761e+01_jprb, 0.606414e+01_jprb &
42666  &, 0.615052e+01_jprb, 0.623673e+01_jprb, 0.632273e+01_jprb, 0.640855e+01_jprb &
42667  &, 0.649413e+01_jprb, 0.657950e+01_jprb, 0.666462e+01_jprb &
42668  &, 0.674947e+01_jprb, 0.683404e+01_jprb, 0.691833e+01_jprb, 0.700233e+01_jprb &
42669  &, 0.708601e+01_jprb, 0.716936e+01_jprb, 0.725237e+01_jprb &
42670  &, 0.733504e+01_jprb, 0.741734e+01_jprb, 0.749927e+01_jprb, 0.758081e+01_jprb &
42671  &, 0.766196e+01_jprb, 0.774270e+01_jprb, 0.782304e+01_jprb &
42672  &, 0.790296e+01_jprb, 0.798243e+01_jprb, 0.806145e+01_jprb, 0.814002e+01_jprb &
42673  &, 0.821814e+01_jprb, 0.829578e+01_jprb, 0.837293e+01_jprb &
42674  &, 0.844958e+01_jprb, 0.852576e+01_jprb, 0.860141e+01_jprb, 0.867657e+01_jprb &
42675  &, 0.875118e+01_jprb, 0.882528e+01_jprb, 0.889886e+01_jprb &
42676  &, 0.897188e+01_jprb, 0.904435e+01_jprb, 0.911626e+01_jprb, 0.918761e+01_jprb &
42677  &, 0.925838e+01_jprb, 0.932856e+01_jprb, 0.939814e+01_jprb &
42678  &, 0.946724e+01_jprb, 0.953566e+01_jprb, 0.960352e+01_jprb, 0.967074e+01_jprb &
42679  &, 0.973739e+01_jprb, 0.980340e+01_jprb, 0.986880e+01_jprb &
42680  &, 0.993355e+01_jprb, 0.999769e+01_jprb, 0.100612e+02_jprb, 0.101241e+02_jprb &
42681  &, 0.101863e+02_jprb, 0.102479e+02_jprb, 0.103088e+02_jprb &
42682  &, 0.103691e+02_jprb, 0.104288e+02_jprb, 0.104876e+02_jprb, 0.105460e+02_jprb &
42683  &, 0.106028e+02_jprb, 0.106607e+02_jprb, 0.107169e+02_jprb &
42684  &, 0.107725e+02_jprb, 0.108273e+02_jprb, 0.108818e+02_jprb, 0.109353e+02_jprb &
42685  &, 0.109882e+02_jprb, 0.110405e+02_jprb, 0.110920e+02_jprb &
42686  &, 0.111428e+02_jprb, 0.111930e+02_jprb, 0.112424e+02_jprb, 0.112907e+02_jprb &
42687  &, 0.113392e+02_jprb, 0.113866e+02_jprb, 0.114332e+02_jprb/)
42688 xcw( 979, :) = (/ &
42689  & 0.121359e+01_jprb, 0.127012e+01_jprb, 0.132788e+01_jprb, 0.138684e+01_jprb &
42690  &, 0.144699e+01_jprb, 0.150830e+01_jprb, 0.157075e+01_jprb &
42691  &, 0.163433e+01_jprb, 0.169901e+01_jprb, 0.176476e+01_jprb, 0.183158e+01_jprb &
42692  &, 0.189943e+01_jprb, 0.196830e+01_jprb, 0.203816e+01_jprb &
42693  &, 0.210898e+01_jprb, 0.218075e+01_jprb, 0.225344e+01_jprb, 0.232703e+01_jprb &
42694  &, 0.240148e+01_jprb, 0.247678e+01_jprb, 0.255291e+01_jprb &
42695  &, 0.262984e+01_jprb, 0.270753e+01_jprb, 0.278598e+01_jprb, 0.286514e+01_jprb &
42696  &, 0.294501e+01_jprb, 0.302554e+01_jprb, 0.310672e+01_jprb &
42697  &, 0.318852e+01_jprb, 0.327091e+01_jprb, 0.335388e+01_jprb, 0.343739e+01_jprb &
42698  &, 0.352142e+01_jprb, 0.360594e+01_jprb, 0.369093e+01_jprb &
42699  &, 0.377637e+01_jprb, 0.386223e+01_jprb, 0.394849e+01_jprb, 0.403511e+01_jprb &
42700  &, 0.412209e+01_jprb, 0.420939e+01_jprb, 0.429699e+01_jprb &
42701  &, 0.438487e+01_jprb, 0.447301e+01_jprb, 0.456138e+01_jprb, 0.464996e+01_jprb &
42702  &, 0.473874e+01_jprb, 0.482768e+01_jprb, 0.491676e+01_jprb &
42703  &, 0.500597e+01_jprb, 0.509529e+01_jprb, 0.518468e+01_jprb, 0.527416e+01_jprb &
42704  &, 0.536367e+01_jprb, 0.545321e+01_jprb, 0.554276e+01_jprb &
42705  &, 0.563228e+01_jprb, 0.572179e+01_jprb, 0.581126e+01_jprb, 0.590064e+01_jprb &
42706  &, 0.598995e+01_jprb, 0.607917e+01_jprb, 0.616826e+01_jprb &
42707  &, 0.625722e+01_jprb, 0.634603e+01_jprb, 0.643469e+01_jprb, 0.652317e+01_jprb &
42708  &, 0.661145e+01_jprb, 0.669953e+01_jprb, 0.678736e+01_jprb &
42709  &, 0.687499e+01_jprb, 0.696235e+01_jprb, 0.704943e+01_jprb, 0.713626e+01_jprb &
42710  &, 0.722279e+01_jprb, 0.730900e+01_jprb, 0.739492e+01_jprb &
42711  &, 0.748050e+01_jprb, 0.756573e+01_jprb, 0.765063e+01_jprb, 0.773515e+01_jprb &
42712  &, 0.781932e+01_jprb, 0.790308e+01_jprb, 0.798645e+01_jprb &
42713  &, 0.806943e+01_jprb, 0.815197e+01_jprb, 0.823409e+01_jprb, 0.831580e+01_jprb &
42714  &, 0.839704e+01_jprb, 0.847782e+01_jprb, 0.855814e+01_jprb &
42715  &, 0.863799e+01_jprb, 0.871739e+01_jprb, 0.879627e+01_jprb, 0.887464e+01_jprb &
42716  &, 0.895254e+01_jprb, 0.902991e+01_jprb, 0.910675e+01_jprb &
42717  &, 0.918309e+01_jprb, 0.925888e+01_jprb, 0.933413e+01_jprb, 0.940881e+01_jprb &
42718  &, 0.948297e+01_jprb, 0.955657e+01_jprb, 0.962958e+01_jprb &
42719  &, 0.970199e+01_jprb, 0.977386e+01_jprb, 0.984515e+01_jprb, 0.991581e+01_jprb &
42720  &, 0.998589e+01_jprb, 0.100554e+02_jprb, 0.101243e+02_jprb &
42721  &, 0.101925e+02_jprb, 0.102602e+02_jprb, 0.103272e+02_jprb, 0.103936e+02_jprb &
42722  &, 0.104594e+02_jprb, 0.105245e+02_jprb, 0.105890e+02_jprb &
42723  &, 0.106529e+02_jprb, 0.107160e+02_jprb, 0.107786e+02_jprb, 0.108405e+02_jprb &
42724  &, 0.109017e+02_jprb, 0.109623e+02_jprb, 0.110221e+02_jprb &
42725  &, 0.110814e+02_jprb, 0.111401e+02_jprb, 0.111980e+02_jprb, 0.112551e+02_jprb &
42726  &, 0.113113e+02_jprb, 0.113676e+02_jprb, 0.114224e+02_jprb &
42727  &, 0.114773e+02_jprb, 0.115311e+02_jprb, 0.115843e+02_jprb, 0.116367e+02_jprb &
42728  &, 0.116884e+02_jprb, 0.117395e+02_jprb, 0.117898e+02_jprb/)
42729 xcw( 980, :) = (/ &
42730  & 0.121589e+01_jprb, 0.127309e+01_jprb, 0.133155e+01_jprb, 0.139124e+01_jprb &
42731  &, 0.145216e+01_jprb, 0.151427e+01_jprb, 0.157757e+01_jprb &
42732  &, 0.164202e+01_jprb, 0.170762e+01_jprb, 0.177433e+01_jprb, 0.184213e+01_jprb &
42733  &, 0.191101e+01_jprb, 0.198093e+01_jprb, 0.205189e+01_jprb &
42734  &, 0.212384e+01_jprb, 0.219678e+01_jprb, 0.227068e+01_jprb, 0.234550e+01_jprb &
42735  &, 0.242124e+01_jprb, 0.249785e+01_jprb, 0.257533e+01_jprb &
42736  &, 0.265364e+01_jprb, 0.273275e+01_jprb, 0.281265e+01_jprb, 0.289331e+01_jprb &
42737  &, 0.297470e+01_jprb, 0.305680e+01_jprb, 0.313957e+01_jprb &
42738  &, 0.322301e+01_jprb, 0.330707e+01_jprb, 0.339173e+01_jprb, 0.347698e+01_jprb &
42739  &, 0.356278e+01_jprb, 0.364911e+01_jprb, 0.373594e+01_jprb &
42740  &, 0.382325e+01_jprb, 0.391102e+01_jprb, 0.399922e+01_jprb, 0.408781e+01_jprb &
42741  &, 0.417679e+01_jprb, 0.426613e+01_jprb, 0.435582e+01_jprb &
42742  &, 0.444580e+01_jprb, 0.453608e+01_jprb, 0.462662e+01_jprb, 0.471740e+01_jprb &
42743  &, 0.480840e+01_jprb, 0.489960e+01_jprb, 0.499099e+01_jprb &
42744  &, 0.508252e+01_jprb, 0.517420e+01_jprb, 0.526598e+01_jprb, 0.535787e+01_jprb &
42745  &, 0.544982e+01_jprb, 0.554184e+01_jprb, 0.563389e+01_jprb &
42746  &, 0.572596e+01_jprb, 0.581803e+01_jprb, 0.591008e+01_jprb, 0.600210e+01_jprb &
42747  &, 0.609406e+01_jprb, 0.618595e+01_jprb, 0.627774e+01_jprb &
42748  &, 0.636944e+01_jprb, 0.646102e+01_jprb, 0.655245e+01_jprb, 0.664374e+01_jprb &
42749  &, 0.673485e+01_jprb, 0.682579e+01_jprb, 0.691653e+01_jprb &
42750  &, 0.700704e+01_jprb, 0.709736e+01_jprb, 0.718742e+01_jprb, 0.727722e+01_jprb &
42751  &, 0.736676e+01_jprb, 0.745601e+01_jprb, 0.754500e+01_jprb &
42752  &, 0.763366e+01_jprb, 0.772200e+01_jprb, 0.781002e+01_jprb, 0.789770e+01_jprb &
42753  &, 0.798504e+01_jprb, 0.807199e+01_jprb, 0.815857e+01_jprb &
42754  &, 0.824478e+01_jprb, 0.833059e+01_jprb, 0.841601e+01_jprb, 0.850099e+01_jprb &
42755  &, 0.858558e+01_jprb, 0.866970e+01_jprb, 0.875340e+01_jprb &
42756  &, 0.883662e+01_jprb, 0.891940e+01_jprb, 0.900172e+01_jprb, 0.908353e+01_jprb &
42757  &, 0.916486e+01_jprb, 0.924573e+01_jprb, 0.932607e+01_jprb &
42758  &, 0.940589e+01_jprb, 0.948520e+01_jprb, 0.956399e+01_jprb, 0.964224e+01_jprb &
42759  &, 0.971996e+01_jprb, 0.979713e+01_jprb, 0.987376e+01_jprb &
42760  &, 0.994980e+01_jprb, 0.100253e+02_jprb, 0.101002e+02_jprb, 0.101745e+02_jprb &
42761  &, 0.102483e+02_jprb, 0.103215e+02_jprb, 0.103941e+02_jprb &
42762  &, 0.104661e+02_jprb, 0.105374e+02_jprb, 0.106082e+02_jprb, 0.106784e+02_jprb &
42763  &, 0.107479e+02_jprb, 0.108168e+02_jprb, 0.108850e+02_jprb &
42764  &, 0.109527e+02_jprb, 0.110197e+02_jprb, 0.110861e+02_jprb, 0.111518e+02_jprb &
42765  &, 0.112169e+02_jprb, 0.112813e+02_jprb, 0.113450e+02_jprb &
42766  &, 0.114080e+02_jprb, 0.114705e+02_jprb, 0.115324e+02_jprb, 0.115936e+02_jprb &
42767  &, 0.116540e+02_jprb, 0.117138e+02_jprb, 0.117729e+02_jprb &
42768  &, 0.118312e+02_jprb, 0.118890e+02_jprb, 0.119461e+02_jprb, 0.120024e+02_jprb &
42769  &, 0.120580e+02_jprb, 0.121131e+02_jprb, 0.121674e+02_jprb/)
42770 
42771 IF (lhook) CALL dr_hook('SU_MCICA:PART140',1,zhook_handle)
42772 END SUBROUTINE part140
42773 
42774 #ifdef VPP5000
42775 !OCL SCALAR
42776 #endif
42777 !option! -Nv -NO
42778 #ifdef RS6K
42779 @process nooptimize
42780 #endif
42781 !pgi$r opt=0
42782 SUBROUTINE part141
42783 
42784 REAL(KIND=JPRB) :: ZHOOK_HANDLE
42785 IF (lhook) CALL dr_hook('SU_MCICA:PART141',0,zhook_handle)
42786 
42787 xcw( 981, :) = (/ &
42788  & 0.121829e+01_jprb, 0.127619e+01_jprb, 0.133538e+01_jprb, 0.139584e+01_jprb &
42789  &, 0.145757e+01_jprb, 0.152053e+01_jprb, 0.158470e+01_jprb &
42790  &, 0.165008e+01_jprb, 0.171663e+01_jprb, 0.178434e+01_jprb, 0.185318e+01_jprb &
42791  &, 0.192313e+01_jprb, 0.199417e+01_jprb, 0.206627e+01_jprb &
42792  &, 0.213942e+01_jprb, 0.221358e+01_jprb, 0.228874e+01_jprb, 0.236487e+01_jprb &
42793  &, 0.244195e+01_jprb, 0.251995e+01_jprb, 0.259884e+01_jprb &
42794  &, 0.267861e+01_jprb, 0.275922e+01_jprb, 0.284065e+01_jprb, 0.292288e+01_jprb &
42795  &, 0.300587e+01_jprb, 0.308962e+01_jprb, 0.317407e+01_jprb &
42796  &, 0.325922e+01_jprb, 0.334504e+01_jprb, 0.343150e+01_jprb, 0.351858e+01_jprb &
42797  &, 0.360625e+01_jprb, 0.369448e+01_jprb, 0.378325e+01_jprb &
42798  &, 0.387254e+01_jprb, 0.396231e+01_jprb, 0.405256e+01_jprb, 0.414323e+01_jprb &
42799  &, 0.423434e+01_jprb, 0.432583e+01_jprb, 0.441769e+01_jprb &
42800  &, 0.450989e+01_jprb, 0.460243e+01_jprb, 0.469525e+01_jprb, 0.478836e+01_jprb &
42801  &, 0.488172e+01_jprb, 0.497531e+01_jprb, 0.506912e+01_jprb &
42802  &, 0.516311e+01_jprb, 0.525727e+01_jprb, 0.535159e+01_jprb, 0.544603e+01_jprb &
42803  &, 0.554056e+01_jprb, 0.563520e+01_jprb, 0.572989e+01_jprb &
42804  &, 0.582465e+01_jprb, 0.591943e+01_jprb, 0.601421e+01_jprb, 0.610900e+01_jprb &
42805  &, 0.620375e+01_jprb, 0.629847e+01_jprb, 0.639314e+01_jprb &
42806  &, 0.648772e+01_jprb, 0.658222e+01_jprb, 0.667660e+01_jprb, 0.677087e+01_jprb &
42807  &, 0.686498e+01_jprb, 0.695895e+01_jprb, 0.705276e+01_jprb &
42808  &, 0.714635e+01_jprb, 0.723977e+01_jprb, 0.733298e+01_jprb, 0.742594e+01_jprb &
42809  &, 0.751868e+01_jprb, 0.761115e+01_jprb, 0.770338e+01_jprb &
42810  &, 0.779530e+01_jprb, 0.788694e+01_jprb, 0.797828e+01_jprb, 0.806930e+01_jprb &
42811  &, 0.815999e+01_jprb, 0.825035e+01_jprb, 0.834037e+01_jprb &
42812  &, 0.842999e+01_jprb, 0.851928e+01_jprb, 0.860816e+01_jprb, 0.869667e+01_jprb &
42813  &, 0.878476e+01_jprb, 0.887242e+01_jprb, 0.895969e+01_jprb &
42814  &, 0.904653e+01_jprb, 0.913292e+01_jprb, 0.921885e+01_jprb, 0.930431e+01_jprb &
42815  &, 0.938932e+01_jprb, 0.947386e+01_jprb, 0.955791e+01_jprb &
42816  &, 0.964147e+01_jprb, 0.972455e+01_jprb, 0.980709e+01_jprb, 0.988914e+01_jprb &
42817  &, 0.997067e+01_jprb, 0.100517e+02_jprb, 0.101321e+02_jprb &
42818  &, 0.102120e+02_jprb, 0.102914e+02_jprb, 0.103702e+02_jprb, 0.104484e+02_jprb &
42819  &, 0.105261e+02_jprb, 0.106032e+02_jprb, 0.106797e+02_jprb &
42820  &, 0.107557e+02_jprb, 0.108310e+02_jprb, 0.109058e+02_jprb, 0.109799e+02_jprb &
42821  &, 0.110535e+02_jprb, 0.111264e+02_jprb, 0.111988e+02_jprb &
42822  &, 0.112704e+02_jprb, 0.113415e+02_jprb, 0.114120e+02_jprb, 0.114818e+02_jprb &
42823  &, 0.115510e+02_jprb, 0.116195e+02_jprb, 0.116874e+02_jprb &
42824  &, 0.117546e+02_jprb, 0.118212e+02_jprb, 0.118872e+02_jprb, 0.119524e+02_jprb &
42825  &, 0.120171e+02_jprb, 0.120808e+02_jprb, 0.121442e+02_jprb &
42826  &, 0.121992e+02_jprb, 0.122689e+02_jprb, 0.123301e+02_jprb, 0.123907e+02_jprb &
42827  &, 0.124505e+02_jprb, 0.125098e+02_jprb, 0.125683e+02_jprb/)
42828 xcw( 982, :) = (/ &
42829  & 0.122081e+01_jprb, 0.127943e+01_jprb, 0.133939e+01_jprb, 0.140066e+01_jprb &
42830  &, 0.146323e+01_jprb, 0.152708e+01_jprb, 0.159219e+01_jprb &
42831  &, 0.165853e+01_jprb, 0.172609e+01_jprb, 0.179485e+01_jprb, 0.186478e+01_jprb &
42832  &, 0.193586e+01_jprb, 0.200807e+01_jprb, 0.208138e+01_jprb &
42833  &, 0.215578e+01_jprb, 0.223124e+01_jprb, 0.230774e+01_jprb, 0.238524e+01_jprb &
42834  &, 0.246373e+01_jprb, 0.254318e+01_jprb, 0.262357e+01_jprb &
42835  &, 0.270488e+01_jprb, 0.278706e+01_jprb, 0.287011e+01_jprb, 0.295400e+01_jprb &
42836  &, 0.303869e+01_jprb, 0.312417e+01_jprb, 0.321040e+01_jprb &
42837  &, 0.329737e+01_jprb, 0.338504e+01_jprb, 0.347340e+01_jprb, 0.356240e+01_jprb &
42838  &, 0.365204e+01_jprb, 0.374228e+01_jprb, 0.383311e+01_jprb &
42839  &, 0.392448e+01_jprb, 0.401638e+01_jprb, 0.410878e+01_jprb, 0.420166e+01_jprb &
42840  &, 0.429500e+01_jprb, 0.438878e+01_jprb, 0.448295e+01_jprb &
42841  &, 0.457750e+01_jprb, 0.467242e+01_jprb, 0.476767e+01_jprb, 0.486323e+01_jprb &
42842  &, 0.495909e+01_jprb, 0.505521e+01_jprb, 0.515158e+01_jprb &
42843  &, 0.524818e+01_jprb, 0.534498e+01_jprb, 0.544195e+01_jprb, 0.553910e+01_jprb &
42844  &, 0.563637e+01_jprb, 0.573379e+01_jprb, 0.583128e+01_jprb &
42845  &, 0.592888e+01_jprb, 0.602653e+01_jprb, 0.612423e+01_jprb, 0.622196e+01_jprb &
42846  &, 0.631968e+01_jprb, 0.641741e+01_jprb, 0.651510e+01_jprb &
42847  &, 0.661275e+01_jprb, 0.671034e+01_jprb, 0.680784e+01_jprb, 0.690527e+01_jprb &
42848  &, 0.700257e+01_jprb, 0.709976e+01_jprb, 0.719681e+01_jprb &
42849  &, 0.729369e+01_jprb, 0.739041e+01_jprb, 0.748694e+01_jprb, 0.758330e+01_jprb &
42850  &, 0.767942e+01_jprb, 0.777531e+01_jprb, 0.787097e+01_jprb &
42851  &, 0.796638e+01_jprb, 0.806154e+01_jprb, 0.815639e+01_jprb, 0.825096e+01_jprb &
42852  &, 0.834525e+01_jprb, 0.843921e+01_jprb, 0.853286e+01_jprb &
42853  &, 0.862615e+01_jprb, 0.871910e+01_jprb, 0.881170e+01_jprb, 0.890392e+01_jprb &
42854  &, 0.899577e+01_jprb, 0.908724e+01_jprb, 0.917831e+01_jprb &
42855  &, 0.926894e+01_jprb, 0.935917e+01_jprb, 0.944898e+01_jprb, 0.953834e+01_jprb &
42856  &, 0.962726e+01_jprb, 0.971575e+01_jprb, 0.980374e+01_jprb &
42857  &, 0.989128e+01_jprb, 0.997834e+01_jprb, 0.100649e+02_jprb, 0.101510e+02_jprb &
42858  &, 0.102366e+02_jprb, 0.103216e+02_jprb, 0.104062e+02_jprb &
42859  &, 0.104902e+02_jprb, 0.105737e+02_jprb, 0.106567e+02_jprb, 0.107391e+02_jprb &
42860  &, 0.108209e+02_jprb, 0.109022e+02_jprb, 0.109830e+02_jprb &
42861  &, 0.110632e+02_jprb, 0.111428e+02_jprb, 0.112218e+02_jprb, 0.113003e+02_jprb &
42862  &, 0.113781e+02_jprb, 0.114553e+02_jprb, 0.115320e+02_jprb &
42863  &, 0.116080e+02_jprb, 0.116835e+02_jprb, 0.117583e+02_jprb, 0.118325e+02_jprb &
42864  &, 0.119060e+02_jprb, 0.119790e+02_jprb, 0.120513e+02_jprb &
42865  &, 0.121230e+02_jprb, 0.121940e+02_jprb, 0.122644e+02_jprb, 0.123341e+02_jprb &
42866  &, 0.124032e+02_jprb, 0.124717e+02_jprb, 0.125395e+02_jprb &
42867  &, 0.126065e+02_jprb, 0.126730e+02_jprb, 0.127389e+02_jprb, 0.128020e+02_jprb &
42868  &, 0.128683e+02_jprb, 0.129319e+02_jprb, 0.129952e+02_jprb/)
42869 xcw( 983, :) = (/ &
42870  & 0.122345e+01_jprb, 0.128284e+01_jprb, 0.134361e+01_jprb, 0.140573e+01_jprb &
42871  &, 0.146919e+01_jprb, 0.153397e+01_jprb, 0.160006e+01_jprb &
42872  &, 0.166742e+01_jprb, 0.173604e+01_jprb, 0.180591e+01_jprb, 0.187699e+01_jprb &
42873  &, 0.194926e+01_jprb, 0.202271e+01_jprb, 0.209730e+01_jprb &
42874  &, 0.217303e+01_jprb, 0.224985e+01_jprb, 0.232776e+01_jprb, 0.240671e+01_jprb &
42875  &, 0.248670e+01_jprb, 0.256769e+01_jprb, 0.264966e+01_jprb &
42876  &, 0.273259e+01_jprb, 0.281644e+01_jprb, 0.290120e+01_jprb, 0.298684e+01_jprb &
42877  &, 0.307333e+01_jprb, 0.316065e+01_jprb, 0.324876e+01_jprb &
42878  &, 0.333765e+01_jprb, 0.342729e+01_jprb, 0.351765e+01_jprb, 0.360870e+01_jprb &
42879  &, 0.370043e+01_jprb, 0.379281e+01_jprb, 0.388580e+01_jprb &
42880  &, 0.397938e+01_jprb, 0.407354e+01_jprb, 0.416823e+01_jprb, 0.426345e+01_jprb &
42881  &, 0.435917e+01_jprb, 0.445535e+01_jprb, 0.455197e+01_jprb &
42882  &, 0.464902e+01_jprb, 0.474647e+01_jprb, 0.484429e+01_jprb, 0.494248e+01_jprb &
42883  &, 0.504097e+01_jprb, 0.513979e+01_jprb, 0.523888e+01_jprb &
42884  &, 0.533824e+01_jprb, 0.543783e+01_jprb, 0.553765e+01_jprb, 0.563767e+01_jprb &
42885  &, 0.573786e+01_jprb, 0.583822e+01_jprb, 0.593871e+01_jprb &
42886  &, 0.603932e+01_jprb, 0.614001e+01_jprb, 0.624080e+01_jprb, 0.634165e+01_jprb &
42887  &, 0.644255e+01_jprb, 0.654346e+01_jprb, 0.664437e+01_jprb &
42888  &, 0.674529e+01_jprb, 0.684617e+01_jprb, 0.694703e+01_jprb, 0.704781e+01_jprb &
42889  &, 0.714850e+01_jprb, 0.724911e+01_jprb, 0.734962e+01_jprb &
42890  &, 0.745000e+01_jprb, 0.755024e+01_jprb, 0.765034e+01_jprb, 0.775026e+01_jprb &
42891  &, 0.785000e+01_jprb, 0.794954e+01_jprb, 0.804887e+01_jprb &
42892  &, 0.814799e+01_jprb, 0.824687e+01_jprb, 0.834550e+01_jprb, 0.844387e+01_jprb &
42893  &, 0.854195e+01_jprb, 0.863977e+01_jprb, 0.873728e+01_jprb &
42894  &, 0.883448e+01_jprb, 0.893137e+01_jprb, 0.902794e+01_jprb, 0.912413e+01_jprb &
42895  &, 0.921999e+01_jprb, 0.931550e+01_jprb, 0.941060e+01_jprb &
42896  &, 0.950536e+01_jprb, 0.959970e+01_jprb, 0.969363e+01_jprb, 0.978717e+01_jprb &
42897  &, 0.988029e+01_jprb, 0.997296e+01_jprb, 0.100652e+02_jprb &
42898  &, 0.101570e+02_jprb, 0.102483e+02_jprb, 0.103392e+02_jprb, 0.104296e+02_jprb &
42899  &, 0.105195e+02_jprb, 0.106089e+02_jprb, 0.106979e+02_jprb &
42900  &, 0.107863e+02_jprb, 0.108742e+02_jprb, 0.109617e+02_jprb, 0.110485e+02_jprb &
42901  &, 0.111349e+02_jprb, 0.112207e+02_jprb, 0.113059e+02_jprb &
42902  &, 0.113907e+02_jprb, 0.114749e+02_jprb, 0.115584e+02_jprb, 0.116415e+02_jprb &
42903  &, 0.117240e+02_jprb, 0.118058e+02_jprb, 0.118871e+02_jprb &
42904  &, 0.119678e+02_jprb, 0.120479e+02_jprb, 0.121274e+02_jprb, 0.122063e+02_jprb &
42905  &, 0.122847e+02_jprb, 0.123623e+02_jprb, 0.124394e+02_jprb &
42906  &, 0.125158e+02_jprb, 0.125916e+02_jprb, 0.126668e+02_jprb, 0.127414e+02_jprb &
42907  &, 0.128153e+02_jprb, 0.128886e+02_jprb, 0.129612e+02_jprb &
42908  &, 0.130332e+02_jprb, 0.131045e+02_jprb, 0.131751e+02_jprb, 0.132451e+02_jprb &
42909  &, 0.133144e+02_jprb, 0.133831e+02_jprb, 0.134511e+02_jprb/)
42910 xcw( 984, :) = (/ &
42911  & 0.122624e+01_jprb, 0.128643e+01_jprb, 0.134805e+01_jprb, 0.141107e+01_jprb &
42912  &, 0.147547e+01_jprb, 0.154124e+01_jprb, 0.160836e+01_jprb &
42913  &, 0.167680e+01_jprb, 0.174655e+01_jprb, 0.181758e+01_jprb, 0.188988e+01_jprb &
42914  &, 0.196342e+01_jprb, 0.203818e+01_jprb, 0.211413e+01_jprb &
42915  &, 0.219125e+01_jprb, 0.226952e+01_jprb, 0.234892e+01_jprb, 0.242942e+01_jprb &
42916  &, 0.251100e+01_jprb, 0.259362e+01_jprb, 0.267727e+01_jprb &
42917  &, 0.276192e+01_jprb, 0.284755e+01_jprb, 0.293412e+01_jprb, 0.302162e+01_jprb &
42918  &, 0.311001e+01_jprb, 0.319929e+01_jprb, 0.328940e+01_jprb &
42919  &, 0.338033e+01_jprb, 0.347206e+01_jprb, 0.356455e+01_jprb, 0.365778e+01_jprb &
42920  &, 0.375172e+01_jprb, 0.384637e+01_jprb, 0.394167e+01_jprb &
42921  &, 0.403761e+01_jprb, 0.413417e+01_jprb, 0.423130e+01_jprb, 0.432901e+01_jprb &
42922  &, 0.442725e+01_jprb, 0.452599e+01_jprb, 0.462524e+01_jprb &
42923  &, 0.472494e+01_jprb, 0.482508e+01_jprb, 0.492564e+01_jprb, 0.502660e+01_jprb &
42924  &, 0.512793e+01_jprb, 0.522960e+01_jprb, 0.533160e+01_jprb &
42925  &, 0.543390e+01_jprb, 0.553648e+01_jprb, 0.563932e+01_jprb, 0.574240e+01_jprb &
42926  &, 0.584570e+01_jprb, 0.594920e+01_jprb, 0.605287e+01_jprb &
42927  &, 0.615671e+01_jprb, 0.626066e+01_jprb, 0.636475e+01_jprb, 0.646894e+01_jprb &
42928  &, 0.657319e+01_jprb, 0.667753e+01_jprb, 0.678189e+01_jprb &
42929  &, 0.688629e+01_jprb, 0.699068e+01_jprb, 0.709508e+01_jprb, 0.719947e+01_jprb &
42930  &, 0.730379e+01_jprb, 0.740807e+01_jprb, 0.751226e+01_jprb &
42931  &, 0.761638e+01_jprb, 0.772039e+01_jprb, 0.782428e+01_jprb, 0.792804e+01_jprb &
42932  &, 0.803165e+01_jprb, 0.813509e+01_jprb, 0.823835e+01_jprb &
42933  &, 0.834142e+01_jprb, 0.844429e+01_jprb, 0.854696e+01_jprb, 0.864939e+01_jprb &
42934  &, 0.875157e+01_jprb, 0.885350e+01_jprb, 0.895518e+01_jprb &
42935  &, 0.905656e+01_jprb, 0.915766e+01_jprb, 0.925845e+01_jprb, 0.935892e+01_jprb &
42936  &, 0.945907e+01_jprb, 0.955891e+01_jprb, 0.965839e+01_jprb &
42937  &, 0.975750e+01_jprb, 0.985626e+01_jprb, 0.995463e+01_jprb, 0.100526e+02_jprb &
42938  &, 0.101502e+02_jprb, 0.102474e+02_jprb, 0.103442e+02_jprb &
42939  &, 0.104406e+02_jprb, 0.105365e+02_jprb, 0.106320e+02_jprb, 0.107270e+02_jprb &
42940  &, 0.108216e+02_jprb, 0.109157e+02_jprb, 0.110094e+02_jprb &
42941  &, 0.111025e+02_jprb, 0.111952e+02_jprb, 0.112874e+02_jprb, 0.113791e+02_jprb &
42942  &, 0.114703e+02_jprb, 0.115609e+02_jprb, 0.116511e+02_jprb &
42943  &, 0.117407e+02_jprb, 0.118298e+02_jprb, 0.119183e+02_jprb, 0.120063e+02_jprb &
42944  &, 0.120937e+02_jprb, 0.121806e+02_jprb, 0.122669e+02_jprb &
42945  &, 0.123526e+02_jprb, 0.124378e+02_jprb, 0.125223e+02_jprb, 0.126063e+02_jprb &
42946  &, 0.126897e+02_jprb, 0.127725e+02_jprb, 0.128547e+02_jprb &
42947  &, 0.129363e+02_jprb, 0.130172e+02_jprb, 0.130976e+02_jprb, 0.131773e+02_jprb &
42948  &, 0.132565e+02_jprb, 0.133349e+02_jprb, 0.134128e+02_jprb &
42949  &, 0.134900e+02_jprb, 0.135666e+02_jprb, 0.136426e+02_jprb, 0.137178e+02_jprb &
42950  &, 0.137924e+02_jprb, 0.138664e+02_jprb, 0.139398e+02_jprb/)
42951 xcw( 985, :) = (/ &
42952  & 0.122918e+01_jprb, 0.129023e+01_jprb, 0.135275e+01_jprb, 0.141672e+01_jprb &
42953  &, 0.148212e+01_jprb, 0.154894e+01_jprb, 0.161715e+01_jprb &
42954  &, 0.168674e+01_jprb, 0.175768e+01_jprb, 0.182996e+01_jprb, 0.190355e+01_jprb &
42955  &, 0.197843e+01_jprb, 0.205458e+01_jprb, 0.213197e+01_jprb &
42956  &, 0.221059e+01_jprb, 0.229040e+01_jprb, 0.237139e+01_jprb, 0.245352e+01_jprb &
42957  &, 0.253679e+01_jprb, 0.262115e+01_jprb, 0.270659e+01_jprb &
42958  &, 0.279307e+01_jprb, 0.288059e+01_jprb, 0.296910e+01_jprb, 0.305858e+01_jprb &
42959  &, 0.314901e+01_jprb, 0.324036e+01_jprb, 0.333260e+01_jprb &
42960  &, 0.342571e+01_jprb, 0.351967e+01_jprb, 0.361444e+01_jprb, 0.370999e+01_jprb &
42961  &, 0.380631e+01_jprb, 0.390337e+01_jprb, 0.400114e+01_jprb &
42962  &, 0.409958e+01_jprb, 0.419870e+01_jprb, 0.429845e+01_jprb, 0.439880e+01_jprb &
42963  &, 0.449974e+01_jprb, 0.460125e+01_jprb, 0.470327e+01_jprb &
42964  &, 0.480581e+01_jprb, 0.490885e+01_jprb, 0.501234e+01_jprb, 0.511626e+01_jprb &
42965  &, 0.522060e+01_jprb, 0.532534e+01_jprb, 0.543045e+01_jprb &
42966  &, 0.553590e+01_jprb, 0.564168e+01_jprb, 0.574776e+01_jprb, 0.585412e+01_jprb &
42967  &, 0.596073e+01_jprb, 0.606759e+01_jprb, 0.617467e+01_jprb &
42968  &, 0.628195e+01_jprb, 0.638941e+01_jprb, 0.649703e+01_jprb, 0.660478e+01_jprb &
42969  &, 0.671266e+01_jprb, 0.682064e+01_jprb, 0.692870e+01_jprb &
42970  &, 0.703684e+01_jprb, 0.714501e+01_jprb, 0.725322e+01_jprb, 0.736145e+01_jprb &
42971  &, 0.746966e+01_jprb, 0.757786e+01_jprb, 0.768603e+01_jprb &
42972  &, 0.779416e+01_jprb, 0.790219e+01_jprb, 0.801016e+01_jprb, 0.811802e+01_jprb &
42973  &, 0.822579e+01_jprb, 0.833341e+01_jprb, 0.844091e+01_jprb &
42974  &, 0.854825e+01_jprb, 0.865540e+01_jprb, 0.876241e+01_jprb, 0.886918e+01_jprb &
42975  &, 0.897578e+01_jprb, 0.908214e+01_jprb, 0.918826e+01_jprb &
42976  &, 0.929415e+01_jprb, 0.939975e+01_jprb, 0.950513e+01_jprb, 0.961020e+01_jprb &
42977  &, 0.971497e+01_jprb, 0.981945e+01_jprb, 0.992363e+01_jprb &
42978  &, 0.100274e+02_jprb, 0.101310e+02_jprb, 0.102341e+02_jprb, 0.103369e+02_jprb &
42979  &, 0.104394e+02_jprb, 0.105414e+02_jprb, 0.106431e+02_jprb &
42980  &, 0.107444e+02_jprb, 0.108453e+02_jprb, 0.109457e+02_jprb, 0.110458e+02_jprb &
42981  &, 0.111454e+02_jprb, 0.112446e+02_jprb, 0.113433e+02_jprb &
42982  &, 0.114416e+02_jprb, 0.115394e+02_jprb, 0.116368e+02_jprb, 0.117336e+02_jprb &
42983  &, 0.118300e+02_jprb, 0.119259e+02_jprb, 0.120213e+02_jprb &
42984  &, 0.121162e+02_jprb, 0.122106e+02_jprb, 0.123044e+02_jprb, 0.123977e+02_jprb &
42985  &, 0.124906e+02_jprb, 0.125828e+02_jprb, 0.126746e+02_jprb &
42986  &, 0.127657e+02_jprb, 0.128563e+02_jprb, 0.129464e+02_jprb, 0.130359e+02_jprb &
42987  &, 0.131248e+02_jprb, 0.132131e+02_jprb, 0.133009e+02_jprb &
42988  &, 0.133880e+02_jprb, 0.134746e+02_jprb, 0.135605e+02_jprb, 0.136459e+02_jprb &
42989  &, 0.137306e+02_jprb, 0.138148e+02_jprb, 0.138984e+02_jprb &
42990  &, 0.139813e+02_jprb, 0.140636e+02_jprb, 0.141452e+02_jprb, 0.142263e+02_jprb &
42991  &, 0.143066e+02_jprb, 0.143864e+02_jprb, 0.144655e+02_jprb/)
42992 xcw( 986, :) = (/ &
42993  & 0.123230e+01_jprb, 0.129426e+01_jprb, 0.135773e+01_jprb, 0.142271e+01_jprb &
42994  &, 0.148918e+01_jprb, 0.155711e+01_jprb, 0.162649e+01_jprb &
42995  &, 0.169730e+01_jprb, 0.176952e+01_jprb, 0.184312e+01_jprb, 0.191809e+01_jprb &
42996  &, 0.199440e+01_jprb, 0.207204e+01_jprb, 0.215097e+01_jprb &
42997  &, 0.223117e+01_jprb, 0.231263e+01_jprb, 0.239532e+01_jprb, 0.247921e+01_jprb &
42998  &, 0.256428e+01_jprb, 0.265050e+01_jprb, 0.273785e+01_jprb &
42999  &, 0.282630e+01_jprb, 0.291583e+01_jprb, 0.300641e+01_jprb, 0.309802e+01_jprb &
43000  &, 0.319063e+01_jprb, 0.328420e+01_jprb, 0.337873e+01_jprb &
43001  &, 0.347417e+01_jprb, 0.357051e+01_jprb, 0.366772e+01_jprb, 0.376576e+01_jprb &
43002  &, 0.386463e+01_jprb, 0.396428e+01_jprb, 0.406469e+01_jprb &
43003  &, 0.416584e+01_jprb, 0.426769e+01_jprb, 0.437024e+01_jprb, 0.447344e+01_jprb &
43004  &, 0.457728e+01_jprb, 0.468173e+01_jprb, 0.478675e+01_jprb &
43005  &, 0.489234e+01_jprb, 0.499847e+01_jprb, 0.510510e+01_jprb, 0.521222e+01_jprb &
43006  &, 0.531981e+01_jprb, 0.542783e+01_jprb, 0.553627e+01_jprb &
43007  &, 0.564511e+01_jprb, 0.575431e+01_jprb, 0.586387e+01_jprb, 0.597376e+01_jprb &
43008  &, 0.608395e+01_jprb, 0.619442e+01_jprb, 0.630517e+01_jprb &
43009  &, 0.641616e+01_jprb, 0.652737e+01_jprb, 0.663876e+01_jprb, 0.675039e+01_jprb &
43010  &, 0.686216e+01_jprb, 0.697407e+01_jprb, 0.708611e+01_jprb &
43011  &, 0.719827e+01_jprb, 0.731051e+01_jprb, 0.742282e+01_jprb, 0.753519e+01_jprb &
43012  &, 0.764761e+01_jprb, 0.776004e+01_jprb, 0.787248e+01_jprb &
43013  &, 0.798492e+01_jprb, 0.809731e+01_jprb, 0.820967e+01_jprb, 0.832199e+01_jprb &
43014  &, 0.843423e+01_jprb, 0.854636e+01_jprb, 0.865842e+01_jprb &
43015  &, 0.877033e+01_jprb, 0.888214e+01_jprb, 0.899379e+01_jprb, 0.910528e+01_jprb &
43016  &, 0.921661e+01_jprb, 0.932775e+01_jprb, 0.943870e+01_jprb &
43017  &, 0.954946e+01_jprb, 0.965995e+01_jprb, 0.977024e+01_jprb, 0.988029e+01_jprb &
43018  &, 0.999007e+01_jprb, 0.100996e+02_jprb, 0.102088e+02_jprb &
43019  &, 0.103178e+02_jprb, 0.104264e+02_jprb, 0.105347e+02_jprb, 0.106427e+02_jprb &
43020  &, 0.107504e+02_jprb, 0.108577e+02_jprb, 0.109647e+02_jprb &
43021  &, 0.110713e+02_jprb, 0.111775e+02_jprb, 0.112834e+02_jprb, 0.113889e+02_jprb &
43022  &, 0.114939e+02_jprb, 0.115986e+02_jprb, 0.117028e+02_jprb &
43023  &, 0.118066e+02_jprb, 0.119100e+02_jprb, 0.120130e+02_jprb, 0.121155e+02_jprb &
43024  &, 0.122175e+02_jprb, 0.123191e+02_jprb, 0.124202e+02_jprb &
43025  &, 0.125208e+02_jprb, 0.126209e+02_jprb, 0.127206e+02_jprb, 0.128197e+02_jprb &
43026  &, 0.129184e+02_jprb, 0.130165e+02_jprb, 0.131141e+02_jprb &
43027  &, 0.132112e+02_jprb, 0.133077e+02_jprb, 0.134038e+02_jprb, 0.134992e+02_jprb &
43028  &, 0.135941e+02_jprb, 0.136884e+02_jprb, 0.137822e+02_jprb &
43029  &, 0.138755e+02_jprb, 0.139681e+02_jprb, 0.140602e+02_jprb, 0.141517e+02_jprb &
43030  &, 0.142426e+02_jprb, 0.143329e+02_jprb, 0.144227e+02_jprb &
43031  &, 0.145118e+02_jprb, 0.146003e+02_jprb, 0.146882e+02_jprb, 0.147755e+02_jprb &
43032  &, 0.148621e+02_jprb, 0.149482e+02_jprb, 0.150336e+02_jprb/)
43033 xcw( 987, :) = (/ &
43034  & 0.123563e+01_jprb, 0.129855e+01_jprb, 0.136305e+01_jprb, 0.142911e+01_jprb &
43035  &, 0.149671e+01_jprb, 0.156584e+01_jprb, 0.163647e+01_jprb &
43036  &, 0.170858e+01_jprb, 0.178216e+01_jprb, 0.185718e+01_jprb, 0.193363e+01_jprb &
43037  &, 0.201148e+01_jprb, 0.209071e+01_jprb, 0.217129e+01_jprb &
43038  &, 0.225320e+01_jprb, 0.233643e+01_jprb, 0.242094e+01_jprb, 0.250671e+01_jprb &
43039  &, 0.259372e+01_jprb, 0.268193e+01_jprb, 0.277134e+01_jprb &
43040  &, 0.286191e+01_jprb, 0.295361e+01_jprb, 0.304641e+01_jprb, 0.314030e+01_jprb &
43041  &, 0.323525e+01_jprb, 0.333123e+01_jprb, 0.342821e+01_jprb &
43042  &, 0.352616e+01_jprb, 0.362507e+01_jprb, 0.372490e+01_jprb, 0.382563e+01_jprb &
43043  &, 0.392723e+01_jprb, 0.402967e+01_jprb, 0.413293e+01_jprb &
43044  &, 0.423698e+01_jprb, 0.434180e+01_jprb, 0.444736e+01_jprb, 0.455363e+01_jprb &
43045  &, 0.466059e+01_jprb, 0.476821e+01_jprb, 0.487647e+01_jprb &
43046  &, 0.498536e+01_jprb, 0.509481e+01_jprb, 0.520485e+01_jprb, 0.531541e+01_jprb &
43047  &, 0.542649e+01_jprb, 0.553807e+01_jprb, 0.565011e+01_jprb &
43048  &, 0.576260e+01_jprb, 0.587552e+01_jprb, 0.598883e+01_jprb, 0.610253e+01_jprb &
43049  &, 0.621659e+01_jprb, 0.633097e+01_jprb, 0.644568e+01_jprb &
43050  &, 0.656067e+01_jprb, 0.667596e+01_jprb, 0.679147e+01_jprb, 0.690723e+01_jprb &
43051  &, 0.702321e+01_jprb, 0.713937e+01_jprb, 0.725571e+01_jprb &
43052  &, 0.737222e+01_jprb, 0.748886e+01_jprb, 0.760562e+01_jprb, 0.772248e+01_jprb &
43053  &, 0.783943e+01_jprb, 0.795646e+01_jprb, 0.807353e+01_jprb &
43054  &, 0.819063e+01_jprb, 0.830775e+01_jprb, 0.842488e+01_jprb, 0.854199e+01_jprb &
43055  &, 0.865906e+01_jprb, 0.877612e+01_jprb, 0.889309e+01_jprb &
43056  &, 0.901000e+01_jprb, 0.912682e+01_jprb, 0.924355e+01_jprb, 0.936015e+01_jprb &
43057  &, 0.947662e+01_jprb, 0.959295e+01_jprb, 0.970915e+01_jprb &
43058  &, 0.982514e+01_jprb, 0.994097e+01_jprb, 0.100566e+02_jprb, 0.101720e+02_jprb &
43059  &, 0.102872e+02_jprb, 0.104022e+02_jprb, 0.105170e+02_jprb &
43060  &, 0.106313e+02_jprb, 0.107457e+02_jprb, 0.108596e+02_jprb, 0.109733e+02_jprb &
43061  &, 0.110866e+02_jprb, 0.111997e+02_jprb, 0.113124e+02_jprb &
43062  &, 0.114248e+02_jprb, 0.115369e+02_jprb, 0.116486e+02_jprb, 0.117600e+02_jprb &
43063  &, 0.118710e+02_jprb, 0.119816e+02_jprb, 0.120919e+02_jprb &
43064  &, 0.122017e+02_jprb, 0.123112e+02_jprb, 0.124202e+02_jprb, 0.125288e+02_jprb &
43065  &, 0.126371e+02_jprb, 0.127448e+02_jprb, 0.128521e+02_jprb &
43066  &, 0.129590e+02_jprb, 0.130654e+02_jprb, 0.131714e+02_jprb, 0.132769e+02_jprb &
43067  &, 0.133819e+02_jprb, 0.134864e+02_jprb, 0.135905e+02_jprb &
43068  &, 0.136940e+02_jprb, 0.137970e+02_jprb, 0.138995e+02_jprb, 0.140015e+02_jprb &
43069  &, 0.141030e+02_jprb, 0.142039e+02_jprb, 0.143043e+02_jprb &
43070  &, 0.144042e+02_jprb, 0.145035e+02_jprb, 0.146023e+02_jprb, 0.147005e+02_jprb &
43071  &, 0.147981e+02_jprb, 0.148952e+02_jprb, 0.149917e+02_jprb &
43072  &, 0.150876e+02_jprb, 0.151829e+02_jprb, 0.152777e+02_jprb, 0.153719e+02_jprb &
43073  &, 0.154654e+02_jprb, 0.155583e+02_jprb, 0.156507e+02_jprb/)
43074 
43075 IF (lhook) CALL dr_hook('SU_MCICA:PART141',1,zhook_handle)
43076 END SUBROUTINE part141
43077 
43078 #ifdef VPP5000
43079 !OCL SCALAR
43080 #endif
43081 !option! -Nv -NO
43082 #ifdef RS6K
43083 @process nooptimize
43084 #endif
43085 !pgi$r opt=0
43086 SUBROUTINE part142
43087 
43088 REAL(KIND=JPRB) :: ZHOOK_HANDLE
43089 IF (lhook) CALL dr_hook('SU_MCICA:PART142',0,zhook_handle)
43090 
43091 xcw( 988, :) = (/ &
43092  & 0.123919e+01_jprb, 0.130315e+01_jprb, 0.136875e+01_jprb, 0.143597e+01_jprb &
43093  &, 0.150479e+01_jprb, 0.157520e+01_jprb, 0.164717e+01_jprb &
43094  &, 0.172069e+01_jprb, 0.179574e+01_jprb, 0.187229e+01_jprb, 0.195033e+01_jprb &
43095  &, 0.202983e+01_jprb, 0.211078e+01_jprb, 0.219314e+01_jprb &
43096  &, 0.227690e+01_jprb, 0.236203e+01_jprb, 0.244851e+01_jprb, 0.253631e+01_jprb &
43097  &, 0.262541e+01_jprb, 0.271579e+01_jprb, 0.280741e+01_jprb &
43098  &, 0.290026e+01_jprb, 0.299431e+01_jprb, 0.308952e+01_jprb, 0.318588e+01_jprb &
43099  &, 0.328336e+01_jprb, 0.338194e+01_jprb, 0.348157e+01_jprb &
43100  &, 0.358225e+01_jprb, 0.368393e+01_jprb, 0.378661e+01_jprb, 0.389024e+01_jprb &
43101  &, 0.399481e+01_jprb, 0.410027e+01_jprb, 0.420662e+01_jprb &
43102  &, 0.431382e+01_jprb, 0.442184e+01_jprb, 0.453067e+01_jprb, 0.464027e+01_jprb &
43103  &, 0.475062e+01_jprb, 0.486168e+01_jprb, 0.497345e+01_jprb &
43104  &, 0.508590e+01_jprb, 0.519898e+01_jprb, 0.531269e+01_jprb, 0.542701e+01_jprb &
43105  &, 0.554189e+01_jprb, 0.565731e+01_jprb, 0.577327e+01_jprb &
43106  &, 0.588973e+01_jprb, 0.600668e+01_jprb, 0.612407e+01_jprb, 0.624191e+01_jprb &
43107  &, 0.636016e+01_jprb, 0.647879e+01_jprb, 0.659780e+01_jprb &
43108  &, 0.671716e+01_jprb, 0.683685e+01_jprb, 0.695684e+01_jprb, 0.707713e+01_jprb &
43109  &, 0.719768e+01_jprb, 0.731847e+01_jprb, 0.743950e+01_jprb &
43110  &, 0.756073e+01_jprb, 0.768215e+01_jprb, 0.780376e+01_jprb, 0.792551e+01_jprb &
43111  &, 0.804740e+01_jprb, 0.816941e+01_jprb, 0.829153e+01_jprb &
43112  &, 0.841373e+01_jprb, 0.853599e+01_jprb, 0.865831e+01_jprb, 0.878065e+01_jprb &
43113  &, 0.890304e+01_jprb, 0.902541e+01_jprb, 0.914777e+01_jprb &
43114  &, 0.927012e+01_jprb, 0.939241e+01_jprb, 0.951468e+01_jprb, 0.963685e+01_jprb &
43115  &, 0.975893e+01_jprb, 0.988073e+01_jprb, 0.100028e+02_jprb &
43116  &, 0.101246e+02_jprb, 0.102462e+02_jprb, 0.103677e+02_jprb, 0.104890e+02_jprb &
43117  &, 0.106101e+02_jprb, 0.107311e+02_jprb, 0.108519e+02_jprb &
43118  &, 0.109724e+02_jprb, 0.110927e+02_jprb, 0.112128e+02_jprb, 0.113327e+02_jprb &
43119  &, 0.114522e+02_jprb, 0.115715e+02_jprb, 0.116906e+02_jprb &
43120  &, 0.118093e+02_jprb, 0.119278e+02_jprb, 0.120459e+02_jprb, 0.121638e+02_jprb &
43121  &, 0.122813e+02_jprb, 0.123985e+02_jprb, 0.125153e+02_jprb &
43122  &, 0.126317e+02_jprb, 0.127479e+02_jprb, 0.128636e+02_jprb, 0.129789e+02_jprb &
43123  &, 0.130939e+02_jprb, 0.132084e+02_jprb, 0.133226e+02_jprb &
43124  &, 0.134364e+02_jprb, 0.135497e+02_jprb, 0.136625e+02_jprb, 0.137750e+02_jprb &
43125  &, 0.138870e+02_jprb, 0.139985e+02_jprb, 0.141096e+02_jprb &
43126  &, 0.142203e+02_jprb, 0.143304e+02_jprb, 0.144400e+02_jprb, 0.145493e+02_jprb &
43127  &, 0.146579e+02_jprb, 0.147661e+02_jprb, 0.148738e+02_jprb &
43128  &, 0.149809e+02_jprb, 0.150876e+02_jprb, 0.151937e+02_jprb, 0.152993e+02_jprb &
43129  &, 0.154044e+02_jprb, 0.155089e+02_jprb, 0.156129e+02_jprb &
43130  &, 0.157162e+02_jprb, 0.158191e+02_jprb, 0.159214e+02_jprb, 0.160231e+02_jprb &
43131  &, 0.161243e+02_jprb, 0.162249e+02_jprb, 0.163249e+02_jprb/)
43132 xcw( 989, :) = (/ &
43133  & 0.124302e+01_jprb, 0.130811e+01_jprb, 0.137489e+01_jprb, 0.144336e+01_jprb &
43134  &, 0.151351e+01_jprb, 0.158530e+01_jprb, 0.165873e+01_jprb &
43135  &, 0.173377e+01_jprb, 0.181041e+01_jprb, 0.188862e+01_jprb, 0.196839e+01_jprb &
43136  &, 0.204969e+01_jprb, 0.213249e+01_jprb, 0.221679e+01_jprb &
43137  &, 0.230255e+01_jprb, 0.238975e+01_jprb, 0.247837e+01_jprb, 0.256838e+01_jprb &
43138  &, 0.265976e+01_jprb, 0.275248e+01_jprb, 0.284652e+01_jprb &
43139  &, 0.294185e+01_jprb, 0.303844e+01_jprb, 0.313628e+01_jprb, 0.323533e+01_jprb &
43140  &, 0.333557e+01_jprb, 0.343696e+01_jprb, 0.353950e+01_jprb &
43141  &, 0.364313e+01_jprb, 0.374785e+01_jprb, 0.385362e+01_jprb, 0.396042e+01_jprb &
43142  &, 0.406821e+01_jprb, 0.417698e+01_jprb, 0.428670e+01_jprb &
43143  &, 0.439733e+01_jprb, 0.450885e+01_jprb, 0.462124e+01_jprb, 0.473448e+01_jprb &
43144  &, 0.484853e+01_jprb, 0.496336e+01_jprb, 0.507896e+01_jprb &
43145  &, 0.519530e+01_jprb, 0.531233e+01_jprb, 0.543007e+01_jprb, 0.554846e+01_jprb &
43146  &, 0.566750e+01_jprb, 0.578714e+01_jprb, 0.590738e+01_jprb &
43147  &, 0.602818e+01_jprb, 0.614953e+01_jprb, 0.627139e+01_jprb, 0.639375e+01_jprb &
43148  &, 0.651659e+01_jprb, 0.663988e+01_jprb, 0.676360e+01_jprb &
43149  &, 0.688771e+01_jprb, 0.701225e+01_jprb, 0.713713e+01_jprb, 0.726237e+01_jprb &
43150  &, 0.738792e+01_jprb, 0.751380e+01_jprb, 0.763995e+01_jprb &
43151  &, 0.776638e+01_jprb, 0.789305e+01_jprb, 0.801995e+01_jprb, 0.814706e+01_jprb &
43152  &, 0.827437e+01_jprb, 0.840186e+01_jprb, 0.852950e+01_jprb &
43153  &, 0.865727e+01_jprb, 0.878518e+01_jprb, 0.891319e+01_jprb, 0.904129e+01_jprb &
43154  &, 0.916948e+01_jprb, 0.929771e+01_jprb, 0.942598e+01_jprb &
43155  &, 0.955429e+01_jprb, 0.968260e+01_jprb, 0.981093e+01_jprb, 0.993924e+01_jprb &
43156  &, 0.100675e+02_jprb, 0.101957e+02_jprb, 0.103239e+02_jprb &
43157  &, 0.104520e+02_jprb, 0.105800e+02_jprb, 0.107079e+02_jprb, 0.108357e+02_jprb &
43158  &, 0.109633e+02_jprb, 0.110909e+02_jprb, 0.112182e+02_jprb &
43159  &, 0.113454e+02_jprb, 0.114725e+02_jprb, 0.115993e+02_jprb, 0.117260e+02_jprb &
43160  &, 0.118524e+02_jprb, 0.119786e+02_jprb, 0.121046e+02_jprb &
43161  &, 0.122304e+02_jprb, 0.123559e+02_jprb, 0.124811e+02_jprb, 0.126061e+02_jprb &
43162  &, 0.127307e+02_jprb, 0.128551e+02_jprb, 0.129792e+02_jprb &
43163  &, 0.131029e+02_jprb, 0.132264e+02_jprb, 0.133495e+02_jprb, 0.134723e+02_jprb &
43164  &, 0.135947e+02_jprb, 0.137167e+02_jprb, 0.138385e+02_jprb &
43165  &, 0.139598e+02_jprb, 0.140807e+02_jprb, 0.142012e+02_jprb, 0.143214e+02_jprb &
43166  &, 0.144411e+02_jprb, 0.145604e+02_jprb, 0.146793e+02_jprb &
43167  &, 0.147978e+02_jprb, 0.149158e+02_jprb, 0.150334e+02_jprb, 0.151506e+02_jprb &
43168  &, 0.152672e+02_jprb, 0.153834e+02_jprb, 0.154992e+02_jprb &
43169  &, 0.156144e+02_jprb, 0.157292e+02_jprb, 0.158435e+02_jprb, 0.159572e+02_jprb &
43170  &, 0.160705e+02_jprb, 0.161833e+02_jprb, 0.162956e+02_jprb &
43171  &, 0.164073e+02_jprb, 0.165185e+02_jprb, 0.166292e+02_jprb, 0.167393e+02_jprb &
43172  &, 0.168489e+02_jprb, 0.169579e+02_jprb, 0.170664e+02_jprb/)
43173 xcw( 990, :) = (/ &
43174  & 0.124718e+01_jprb, 0.131348e+01_jprb, 0.138156e+01_jprb, 0.145140e+01_jprb &
43175  &, 0.152298e+01_jprb, 0.159628e+01_jprb, 0.167130e+01_jprb &
43176  &, 0.174800e+01_jprb, 0.182637e+01_jprb, 0.190640e+01_jprb, 0.198805e+01_jprb &
43177  &, 0.207131e+01_jprb, 0.215615e+01_jprb, 0.224256e+01_jprb &
43178  &, 0.233051e+01_jprb, 0.241998e+01_jprb, 0.251094e+01_jprb, 0.260337e+01_jprb &
43179  &, 0.269724e+01_jprb, 0.279253e+01_jprb, 0.288921e+01_jprb &
43180  &, 0.298727e+01_jprb, 0.308666e+01_jprb, 0.318737e+01_jprb, 0.328937e+01_jprb &
43181  &, 0.339263e+01_jprb, 0.349713e+01_jprb, 0.360284e+01_jprb &
43182  &, 0.370973e+01_jprb, 0.381778e+01_jprb, 0.392695e+01_jprb, 0.403723e+01_jprb &
43183  &, 0.414857e+01_jprb, 0.426097e+01_jprb, 0.437439e+01_jprb &
43184  &, 0.448879e+01_jprb, 0.460416e+01_jprb, 0.472048e+01_jprb, 0.483771e+01_jprb &
43185  &, 0.495583e+01_jprb, 0.507480e+01_jprb, 0.519461e+01_jprb &
43186  &, 0.531523e+01_jprb, 0.543663e+01_jprb, 0.555880e+01_jprb, 0.568169e+01_jprb &
43187  &, 0.580529e+01_jprb, 0.592958e+01_jprb, 0.605453e+01_jprb &
43188  &, 0.618012e+01_jprb, 0.630632e+01_jprb, 0.643310e+01_jprb, 0.656045e+01_jprb &
43189  &, 0.668836e+01_jprb, 0.681677e+01_jprb, 0.694569e+01_jprb &
43190  &, 0.707509e+01_jprb, 0.720494e+01_jprb, 0.733523e+01_jprb, 0.746593e+01_jprb &
43191  &, 0.759703e+01_jprb, 0.772849e+01_jprb, 0.786030e+01_jprb &
43192  &, 0.799245e+01_jprb, 0.812492e+01_jprb, 0.825767e+01_jprb, 0.839072e+01_jprb &
43193  &, 0.852400e+01_jprb, 0.865753e+01_jprb, 0.879130e+01_jprb &
43194  &, 0.892526e+01_jprb, 0.905939e+01_jprb, 0.919371e+01_jprb, 0.932816e+01_jprb &
43195  &, 0.946276e+01_jprb, 0.959748e+01_jprb, 0.973230e+01_jprb &
43196  &, 0.986721e+01_jprb, 0.100022e+02_jprb, 0.101372e+02_jprb, 0.102723e+02_jprb &
43197  &, 0.104074e+02_jprb, 0.105425e+02_jprb, 0.106777e+02_jprb &
43198  &, 0.108127e+02_jprb, 0.109478e+02_jprb, 0.110829e+02_jprb, 0.112178e+02_jprb &
43199  &, 0.113527e+02_jprb, 0.114875e+02_jprb, 0.116222e+02_jprb &
43200  &, 0.117569e+02_jprb, 0.118913e+02_jprb, 0.120257e+02_jprb, 0.121599e+02_jprb &
43201  &, 0.122940e+02_jprb, 0.124279e+02_jprb, 0.125615e+02_jprb &
43202  &, 0.126951e+02_jprb, 0.128284e+02_jprb, 0.129615e+02_jprb, 0.130943e+02_jprb &
43203  &, 0.132270e+02_jprb, 0.133594e+02_jprb, 0.134915e+02_jprb &
43204  &, 0.136234e+02_jprb, 0.137550e+02_jprb, 0.138863e+02_jprb, 0.140174e+02_jprb &
43205  &, 0.141481e+02_jprb, 0.142785e+02_jprb, 0.144086e+02_jprb &
43206  &, 0.145383e+02_jprb, 0.146678e+02_jprb, 0.147968e+02_jprb, 0.149256e+02_jprb &
43207  &, 0.150539e+02_jprb, 0.151819e+02_jprb, 0.153095e+02_jprb &
43208  &, 0.154367e+02_jprb, 0.155636e+02_jprb, 0.156899e+02_jprb, 0.158160e+02_jprb &
43209  &, 0.159415e+02_jprb, 0.160667e+02_jprb, 0.161914e+02_jprb &
43210  &, 0.163157e+02_jprb, 0.164396e+02_jprb, 0.165630e+02_jprb, 0.166859e+02_jprb &
43211  &, 0.168084e+02_jprb, 0.169304e+02_jprb, 0.170519e+02_jprb &
43212  &, 0.171729e+02_jprb, 0.172935e+02_jprb, 0.174135e+02_jprb, 0.175330e+02_jprb &
43213  &, 0.176520e+02_jprb, 0.177706e+02_jprb, 0.178886e+02_jprb/)
43214 xcw( 991, :) = (/ &
43215  & 0.125173e+01_jprb, 0.131937e+01_jprb, 0.138887e+01_jprb, 0.146020e+01_jprb &
43216  &, 0.153336e+01_jprb, 0.160833e+01_jprb, 0.168509e+01_jprb &
43217  &, 0.176362e+01_jprb, 0.184390e+01_jprb, 0.192592e+01_jprb, 0.200965e+01_jprb &
43218  &, 0.209507e+01_jprb, 0.218217e+01_jprb, 0.227091e+01_jprb &
43219  &, 0.236127e+01_jprb, 0.245324e+01_jprb, 0.254679e+01_jprb, 0.264189e+01_jprb &
43220  &, 0.273852e+01_jprb, 0.283665e+01_jprb, 0.293626e+01_jprb &
43221  &, 0.303732e+01_jprb, 0.313982e+01_jprb, 0.324371e+01_jprb, 0.334897e+01_jprb &
43222  &, 0.345559e+01_jprb, 0.356352e+01_jprb, 0.367275e+01_jprb &
43223  &, 0.378324e+01_jprb, 0.389498e+01_jprb, 0.400792e+01_jprb, 0.412205e+01_jprb &
43224  &, 0.423734e+01_jprb, 0.435376e+01_jprb, 0.447128e+01_jprb &
43225  &, 0.458988e+01_jprb, 0.470953e+01_jprb, 0.483019e+01_jprb, 0.495186e+01_jprb &
43226  &, 0.507450e+01_jprb, 0.519807e+01_jprb, 0.532256e+01_jprb &
43227  &, 0.544794e+01_jprb, 0.557419e+01_jprb, 0.570128e+01_jprb, 0.582918e+01_jprb &
43228  &, 0.595787e+01_jprb, 0.608732e+01_jprb, 0.621751e+01_jprb &
43229  &, 0.634842e+01_jprb, 0.648002e+01_jprb, 0.661228e+01_jprb, 0.674520e+01_jprb &
43230  &, 0.687872e+01_jprb, 0.701285e+01_jprb, 0.714755e+01_jprb &
43231  &, 0.728281e+01_jprb, 0.741861e+01_jprb, 0.755491e+01_jprb, 0.769170e+01_jprb &
43232  &, 0.782896e+01_jprb, 0.796667e+01_jprb, 0.810479e+01_jprb &
43233  &, 0.824333e+01_jprb, 0.838227e+01_jprb, 0.852156e+01_jprb, 0.866120e+01_jprb &
43234  &, 0.880117e+01_jprb, 0.894145e+01_jprb, 0.908203e+01_jprb &
43235  &, 0.922288e+01_jprb, 0.936398e+01_jprb, 0.950533e+01_jprb, 0.964689e+01_jprb &
43236  &, 0.978868e+01_jprb, 0.993064e+01_jprb, 0.100728e+02_jprb &
43237  &, 0.102150e+02_jprb, 0.103575e+02_jprb, 0.105000e+02_jprb, 0.106427e+02_jprb &
43238  &, 0.107854e+02_jprb, 0.109283e+02_jprb, 0.110712e+02_jprb &
43239  &, 0.112141e+02_jprb, 0.113571e+02_jprb, 0.115001e+02_jprb, 0.116431e+02_jprb &
43240  &, 0.117861e+02_jprb, 0.119291e+02_jprb, 0.120720e+02_jprb &
43241  &, 0.122149e+02_jprb, 0.123577e+02_jprb, 0.125005e+02_jprb, 0.126432e+02_jprb &
43242  &, 0.127858e+02_jprb, 0.129282e+02_jprb, 0.130706e+02_jprb &
43243  &, 0.132128e+02_jprb, 0.133549e+02_jprb, 0.134968e+02_jprb, 0.136386e+02_jprb &
43244  &, 0.137802e+02_jprb, 0.139216e+02_jprb, 0.140628e+02_jprb &
43245  &, 0.142038e+02_jprb, 0.143445e+02_jprb, 0.144851e+02_jprb, 0.146254e+02_jprb &
43246  &, 0.147654e+02_jprb, 0.149052e+02_jprb, 0.150448e+02_jprb &
43247  &, 0.151840e+02_jprb, 0.153230e+02_jprb, 0.154617e+02_jprb, 0.156000e+02_jprb &
43248  &, 0.157381e+02_jprb, 0.158758e+02_jprb, 0.160132e+02_jprb &
43249  &, 0.161503e+02_jprb, 0.162870e+02_jprb, 0.164234e+02_jprb, 0.165594e+02_jprb &
43250  &, 0.166950e+02_jprb, 0.168303e+02_jprb, 0.169652e+02_jprb &
43251  &, 0.170996e+02_jprb, 0.172338e+02_jprb, 0.173674e+02_jprb, 0.175007e+02_jprb &
43252  &, 0.176335e+02_jprb, 0.177659e+02_jprb, 0.178979e+02_jprb &
43253  &, 0.180294e+02_jprb, 0.181605e+02_jprb, 0.182912e+02_jprb, 0.184214e+02_jprb &
43254  &, 0.185511e+02_jprb, 0.186803e+02_jprb, 0.188090e+02_jprb/)
43255 xcw( 992, :) = (/ &
43256  & 0.125676e+01_jprb, 0.132588e+01_jprb, 0.139695e+01_jprb, 0.146994e+01_jprb &
43257  &, 0.154486e+01_jprb, 0.162167e+01_jprb, 0.170037e+01_jprb &
43258  &, 0.178094e+01_jprb, 0.186335e+01_jprb, 0.194759e+01_jprb, 0.203364e+01_jprb &
43259  &, 0.212147e+01_jprb, 0.221107e+01_jprb, 0.230242e+01_jprb &
43260  &, 0.239548e+01_jprb, 0.249024e+01_jprb, 0.258668e+01_jprb, 0.268476e+01_jprb &
43261  &, 0.278447e+01_jprb, 0.288578e+01_jprb, 0.298867e+01_jprb &
43262  &, 0.309310e+01_jprb, 0.319906e+01_jprb, 0.330651e+01_jprb, 0.341544e+01_jprb &
43263  &, 0.352580e+01_jprb, 0.363759e+01_jprb, 0.375076e+01_jprb &
43264  &, 0.386529e+01_jprb, 0.398116e+01_jprb, 0.409834e+01_jprb, 0.421679e+01_jprb &
43265  &, 0.433650e+01_jprb, 0.445744e+01_jprb, 0.457957e+01_jprb &
43266  &, 0.470287e+01_jprb, 0.482728e+01_jprb, 0.495287e+01_jprb, 0.507952e+01_jprb &
43267  &, 0.520723e+01_jprb, 0.533597e+01_jprb, 0.546572e+01_jprb &
43268  &, 0.559646e+01_jprb, 0.572815e+01_jprb, 0.586077e+01_jprb, 0.599430e+01_jprb &
43269  &, 0.612871e+01_jprb, 0.626398e+01_jprb, 0.640006e+01_jprb &
43270  &, 0.653696e+01_jprb, 0.667463e+01_jprb, 0.681307e+01_jprb, 0.695224e+01_jprb &
43271  &, 0.709211e+01_jprb, 0.723267e+01_jprb, 0.737390e+01_jprb &
43272  &, 0.751576e+01_jprb, 0.765825e+01_jprb, 0.780134e+01_jprb, 0.794500e+01_jprb &
43273  &, 0.808919e+01_jprb, 0.823394e+01_jprb, 0.837920e+01_jprb &
43274  &, 0.852495e+01_jprb, 0.867117e+01_jprb, 0.881782e+01_jprb, 0.896493e+01_jprb &
43275  &, 0.911243e+01_jprb, 0.926035e+01_jprb, 0.940861e+01_jprb &
43276  &, 0.955725e+01_jprb, 0.970624e+01_jprb, 0.985553e+01_jprb, 0.100051e+02_jprb &
43277  &, 0.101550e+02_jprb, 0.103051e+02_jprb, 0.104555e+02_jprb &
43278  &, 0.106062e+02_jprb, 0.107570e+02_jprb, 0.109081e+02_jprb, 0.110593e+02_jprb &
43279  &, 0.112107e+02_jprb, 0.113623e+02_jprb, 0.115140e+02_jprb &
43280  &, 0.116658e+02_jprb, 0.118177e+02_jprb, 0.119697e+02_jprb, 0.121218e+02_jprb &
43281  &, 0.122740e+02_jprb, 0.124262e+02_jprb, 0.125785e+02_jprb &
43282  &, 0.127308e+02_jprb, 0.128831e+02_jprb, 0.130354e+02_jprb, 0.131877e+02_jprb &
43283  &, 0.133400e+02_jprb, 0.134922e+02_jprb, 0.136443e+02_jprb &
43284  &, 0.137965e+02_jprb, 0.139485e+02_jprb, 0.141005e+02_jprb, 0.142523e+02_jprb &
43285  &, 0.144040e+02_jprb, 0.145557e+02_jprb, 0.147071e+02_jprb &
43286  &, 0.148585e+02_jprb, 0.150097e+02_jprb, 0.151607e+02_jprb, 0.153116e+02_jprb &
43287  &, 0.154623e+02_jprb, 0.156128e+02_jprb, 0.157630e+02_jprb &
43288  &, 0.159131e+02_jprb, 0.160629e+02_jprb, 0.162125e+02_jprb, 0.163619e+02_jprb &
43289  &, 0.165110e+02_jprb, 0.166598e+02_jprb, 0.168084e+02_jprb &
43290  &, 0.169567e+02_jprb, 0.171047e+02_jprb, 0.172524e+02_jprb, 0.173998e+02_jprb &
43291  &, 0.175469e+02_jprb, 0.176937e+02_jprb, 0.178402e+02_jprb &
43292  &, 0.179863e+02_jprb, 0.181320e+02_jprb, 0.182775e+02_jprb, 0.184225e+02_jprb &
43293  &, 0.185672e+02_jprb, 0.187115e+02_jprb, 0.188555e+02_jprb &
43294  &, 0.189990e+02_jprb, 0.191422e+02_jprb, 0.192849e+02_jprb, 0.194273e+02_jprb &
43295  &, 0.195692e+02_jprb, 0.197107e+02_jprb, 0.198517e+02_jprb/)
43296 xcw( 993, :) = (/ &
43297  & 0.126240e+01_jprb, 0.133318e+01_jprb, 0.140601e+01_jprb, 0.148088e+01_jprb &
43298  &, 0.155776e+01_jprb, 0.163666e+01_jprb, 0.171755e+01_jprb &
43299  &, 0.180041e+01_jprb, 0.188522e+01_jprb, 0.197197e+01_jprb, 0.206063e+01_jprb &
43300  &, 0.215119e+01_jprb, 0.224363e+01_jprb, 0.233792e+01_jprb &
43301  &, 0.243404e+01_jprb, 0.253196e+01_jprb, 0.263167e+01_jprb, 0.273314e+01_jprb &
43302  &, 0.283634e+01_jprb, 0.294126e+01_jprb, 0.304785e+01_jprb &
43303  &, 0.315611e+01_jprb, 0.326600e+01_jprb, 0.337750e+01_jprb, 0.349058e+01_jprb &
43304  &, 0.360521e+01_jprb, 0.372137e+01_jprb, 0.383903e+01_jprb &
43305  &, 0.395815e+01_jprb, 0.407872e+01_jprb, 0.420072e+01_jprb, 0.432409e+01_jprb &
43306  &, 0.444883e+01_jprb, 0.457490e+01_jprb, 0.470228e+01_jprb &
43307  &, 0.483094e+01_jprb, 0.496084e+01_jprb, 0.509197e+01_jprb, 0.522429e+01_jprb &
43308  &, 0.535779e+01_jprb, 0.549243e+01_jprb, 0.562818e+01_jprb &
43309  &, 0.576503e+01_jprb, 0.590292e+01_jprb, 0.604187e+01_jprb, 0.618181e+01_jprb &
43310  &, 0.632275e+01_jprb, 0.646465e+01_jprb, 0.660747e+01_jprb &
43311  &, 0.675120e+01_jprb, 0.689583e+01_jprb, 0.704130e+01_jprb, 0.718761e+01_jprb &
43312  &, 0.733474e+01_jprb, 0.748266e+01_jprb, 0.763134e+01_jprb &
43313  &, 0.778075e+01_jprb, 0.793090e+01_jprb, 0.808173e+01_jprb, 0.823324e+01_jprb &
43314  &, 0.838541e+01_jprb, 0.853821e+01_jprb, 0.869160e+01_jprb &
43315  &, 0.884560e+01_jprb, 0.900017e+01_jprb, 0.915528e+01_jprb, 0.931092e+01_jprb &
43316  &, 0.946706e+01_jprb, 0.962370e+01_jprb, 0.978081e+01_jprb &
43317  &, 0.993838e+01_jprb, 0.100964e+02_jprb, 0.102548e+02_jprb, 0.104136e+02_jprb &
43318  &, 0.105727e+02_jprb, 0.107323e+02_jprb, 0.108921e+02_jprb &
43319  &, 0.110524e+02_jprb, 0.112129e+02_jprb, 0.113737e+02_jprb, 0.115347e+02_jprb &
43320  &, 0.116961e+02_jprb, 0.118577e+02_jprb, 0.120195e+02_jprb &
43321  &, 0.121815e+02_jprb, 0.123437e+02_jprb, 0.125061e+02_jprb, 0.126687e+02_jprb &
43322  &, 0.128314e+02_jprb, 0.129943e+02_jprb, 0.131573e+02_jprb &
43323  &, 0.133204e+02_jprb, 0.134836e+02_jprb, 0.136469e+02_jprb, 0.138102e+02_jprb &
43324  &, 0.139736e+02_jprb, 0.141371e+02_jprb, 0.143005e+02_jprb &
43325  &, 0.144640e+02_jprb, 0.146275e+02_jprb, 0.147910e+02_jprb, 0.149545e+02_jprb &
43326  &, 0.151180e+02_jprb, 0.152814e+02_jprb, 0.154447e+02_jprb &
43327  &, 0.156081e+02_jprb, 0.157713e+02_jprb, 0.159344e+02_jprb, 0.160974e+02_jprb &
43328  &, 0.162604e+02_jprb, 0.164231e+02_jprb, 0.165858e+02_jprb &
43329  &, 0.167484e+02_jprb, 0.169108e+02_jprb, 0.170730e+02_jprb, 0.172351e+02_jprb &
43330  &, 0.173969e+02_jprb, 0.175586e+02_jprb, 0.177201e+02_jprb &
43331  &, 0.178814e+02_jprb, 0.180425e+02_jprb, 0.182033e+02_jprb, 0.183639e+02_jprb &
43332  &, 0.185243e+02_jprb, 0.186844e+02_jprb, 0.188443e+02_jprb &
43333  &, 0.190039e+02_jprb, 0.191632e+02_jprb, 0.193222e+02_jprb, 0.194809e+02_jprb &
43334  &, 0.196394e+02_jprb, 0.197975e+02_jprb, 0.199553e+02_jprb &
43335  &, 0.201128e+02_jprb, 0.202699e+02_jprb, 0.204267e+02_jprb, 0.205832e+02_jprb &
43336  &, 0.207393e+02_jprb, 0.208951e+02_jprb, 0.210504e+02_jprb/)
43337 xcw( 994, :) = (/ &
43338  & 0.126881e+01_jprb, 0.134149e+01_jprb, 0.141634e+01_jprb, 0.149335e+01_jprb &
43339  &, 0.157250e+01_jprb, 0.165378e+01_jprb, 0.173717e+01_jprb &
43340  &, 0.182267e+01_jprb, 0.191024e+01_jprb, 0.199987e+01_jprb, 0.209155e+01_jprb &
43341  &, 0.218525e+01_jprb, 0.228095e+01_jprb, 0.237863e+01_jprb &
43342  &, 0.247827e+01_jprb, 0.257984e+01_jprb, 0.268332e+01_jprb, 0.278870e+01_jprb &
43343  &, 0.289593e+01_jprb, 0.300501e+01_jprb, 0.311590e+01_jprb &
43344  &, 0.322857e+01_jprb, 0.334301e+01_jprb, 0.345919e+01_jprb, 0.357707e+01_jprb &
43345  &, 0.369664e+01_jprb, 0.381785e+01_jprb, 0.394070e+01_jprb &
43346  &, 0.406515e+01_jprb, 0.419117e+01_jprb, 0.431874e+01_jprb, 0.444782e+01_jprb &
43347  &, 0.457839e+01_jprb, 0.471042e+01_jprb, 0.484388e+01_jprb &
43348  &, 0.497874e+01_jprb, 0.511499e+01_jprb, 0.525259e+01_jprb, 0.539151e+01_jprb &
43349  &, 0.553172e+01_jprb, 0.567320e+01_jprb, 0.581592e+01_jprb &
43350  &, 0.595986e+01_jprb, 0.610497e+01_jprb, 0.625126e+01_jprb, 0.639867e+01_jprb &
43351  &, 0.654719e+01_jprb, 0.669679e+01_jprb, 0.684746e+01_jprb &
43352  &, 0.699915e+01_jprb, 0.715185e+01_jprb, 0.730552e+01_jprb, 0.746016e+01_jprb &
43353  &, 0.761573e+01_jprb, 0.777220e+01_jprb, 0.792956e+01_jprb &
43354  &, 0.808778e+01_jprb, 0.824685e+01_jprb, 0.840672e+01_jprb, 0.856738e+01_jprb &
43355  &, 0.872876e+01_jprb, 0.889101e+01_jprb, 0.905392e+01_jprb &
43356  &, 0.921753e+01_jprb, 0.938183e+01_jprb, 0.954679e+01_jprb, 0.971240e+01_jprb &
43357  &, 0.987863e+01_jprb, 0.100455e+02_jprb, 0.102129e+02_jprb &
43358  &, 0.103808e+02_jprb, 0.105494e+02_jprb, 0.107184e+02_jprb, 0.108880e+02_jprb &
43359  &, 0.110580e+02_jprb, 0.112285e+02_jprb, 0.113995e+02_jprb &
43360  &, 0.115709e+02_jprb, 0.117427e+02_jprb, 0.119149e+02_jprb, 0.120875e+02_jprb &
43361  &, 0.122605e+02_jprb, 0.124338e+02_jprb, 0.126075e+02_jprb &
43362  &, 0.127814e+02_jprb, 0.129557e+02_jprb, 0.131303e+02_jprb, 0.133051e+02_jprb &
43363  &, 0.134802e+02_jprb, 0.136555e+02_jprb, 0.138311e+02_jprb &
43364  &, 0.140068e+02_jprb, 0.141828e+02_jprb, 0.143590e+02_jprb, 0.145353e+02_jprb &
43365  &, 0.147118e+02_jprb, 0.148884e+02_jprb, 0.150652e+02_jprb &
43366  &, 0.152420e+02_jprb, 0.154190e+02_jprb, 0.155961e+02_jprb, 0.157732e+02_jprb &
43367  &, 0.159504e+02_jprb, 0.161277e+02_jprb, 0.163049e+02_jprb &
43368  &, 0.164823e+02_jprb, 0.166597e+02_jprb, 0.168370e+02_jprb, 0.170144e+02_jprb &
43369  &, 0.171918e+02_jprb, 0.173691e+02_jprb, 0.175464e+02_jprb &
43370  &, 0.177236e+02_jprb, 0.179008e+02_jprb, 0.180779e+02_jprb, 0.182549e+02_jprb &
43371  &, 0.184319e+02_jprb, 0.186087e+02_jprb, 0.187854e+02_jprb &
43372  &, 0.189620e+02_jprb, 0.191385e+02_jprb, 0.193148e+02_jprb, 0.194910e+02_jprb &
43373  &, 0.196670e+02_jprb, 0.198429e+02_jprb, 0.200186e+02_jprb &
43374  &, 0.201941e+02_jprb, 0.203694e+02_jprb, 0.205445e+02_jprb, 0.207194e+02_jprb &
43375  &, 0.208941e+02_jprb, 0.210685e+02_jprb, 0.212427e+02_jprb &
43376  &, 0.214167e+02_jprb, 0.215904e+02_jprb, 0.217638e+02_jprb, 0.219371e+02_jprb &
43377  &, 0.221100e+02_jprb, 0.222826e+02_jprb, 0.224549e+02_jprb/)
43378 
43379 IF (lhook) CALL dr_hook('SU_MCICA:PART142',1,zhook_handle)
43380 END SUBROUTINE part142
43381 
43382 #ifdef VPP5000
43383 !OCL SCALAR
43384 #endif
43385 !option! -Nv -NO
43386 #ifdef RS6K
43387 @process nooptimize
43388 #endif
43389 !pgi$r opt=0
43390 SUBROUTINE part143
43391 
43392 REAL(KIND=JPRB) :: ZHOOK_HANDLE
43393 IF (lhook) CALL dr_hook('SU_MCICA:PART143',0,zhook_handle)
43394 
43395 xcw( 995, :) = (/ &
43396  & 0.127628e+01_jprb, 0.135118e+01_jprb, 0.142839e+01_jprb, 0.150790e+01_jprb &
43397  &, 0.158971e+01_jprb, 0.167379e+01_jprb, 0.176013e+01_jprb &
43398  &, 0.184872e+01_jprb, 0.193953e+01_jprb, 0.203256e+01_jprb, 0.212779e+01_jprb &
43399  &, 0.222518e+01_jprb, 0.232473e+01_jprb, 0.242642e+01_jprb &
43400  &, 0.253021e+01_jprb, 0.263609e+01_jprb, 0.274404e+01_jprb, 0.285402e+01_jprb &
43401  &, 0.296603e+01_jprb, 0.308003e+01_jprb, 0.319600e+01_jprb &
43402  &, 0.331391e+01_jprb, 0.343373e+01_jprb, 0.355545e+01_jprb, 0.367903e+01_jprb &
43403  &, 0.380445e+01_jprb, 0.393167e+01_jprb, 0.406068e+01_jprb &
43404  &, 0.419144e+01_jprb, 0.432392e+01_jprb, 0.445811e+01_jprb, 0.459396e+01_jprb &
43405  &, 0.473146e+01_jprb, 0.487057e+01_jprb, 0.501127e+01_jprb &
43406  &, 0.515352e+01_jprb, 0.529731e+01_jprb, 0.544260e+01_jprb, 0.558936e+01_jprb &
43407  &, 0.573757e+01_jprb, 0.588720e+01_jprb, 0.603822e+01_jprb &
43408  &, 0.619060e+01_jprb, 0.634432e+01_jprb, 0.649935e+01_jprb, 0.665566e+01_jprb &
43409  &, 0.681323e+01_jprb, 0.697203e+01_jprb, 0.713203e+01_jprb &
43410  &, 0.729321e+01_jprb, 0.745555e+01_jprb, 0.761901e+01_jprb, 0.778358e+01_jprb &
43411  &, 0.794922e+01_jprb, 0.811592e+01_jprb, 0.828365e+01_jprb &
43412  &, 0.845238e+01_jprb, 0.862209e+01_jprb, 0.879276e+01_jprb, 0.896438e+01_jprb &
43413  &, 0.913690e+01_jprb, 0.931030e+01_jprb, 0.948459e+01_jprb &
43414  &, 0.965971e+01_jprb, 0.983567e+01_jprb, 0.100124e+02_jprb, 0.101900e+02_jprb &
43415  &, 0.103683e+02_jprb, 0.105473e+02_jprb, 0.107271e+02_jprb &
43416  &, 0.109075e+02_jprb, 0.110886e+02_jprb, 0.112705e+02_jprb, 0.114529e+02_jprb &
43417  &, 0.116360e+02_jprb, 0.118196e+02_jprb, 0.120039e+02_jprb &
43418  &, 0.121887e+02_jprb, 0.123741e+02_jprb, 0.125600e+02_jprb, 0.127465e+02_jprb &
43419  &, 0.129334e+02_jprb, 0.131208e+02_jprb, 0.133087e+02_jprb &
43420  &, 0.134970e+02_jprb, 0.136857e+02_jprb, 0.138749e+02_jprb, 0.140645e+02_jprb &
43421  &, 0.142544e+02_jprb, 0.144447e+02_jprb, 0.146354e+02_jprb &
43422  &, 0.148264e+02_jprb, 0.150177e+02_jprb, 0.152094e+02_jprb, 0.154013e+02_jprb &
43423  &, 0.155935e+02_jprb, 0.157860e+02_jprb, 0.159787e+02_jprb &
43424  &, 0.161717e+02_jprb, 0.163649e+02_jprb, 0.165584e+02_jprb, 0.167519e+02_jprb &
43425  &, 0.169458e+02_jprb, 0.171397e+02_jprb, 0.173339e+02_jprb &
43426  &, 0.175281e+02_jprb, 0.177226e+02_jprb, 0.179171e+02_jprb, 0.181118e+02_jprb &
43427  &, 0.183065e+02_jprb, 0.185013e+02_jprb, 0.186963e+02_jprb &
43428  &, 0.188912e+02_jprb, 0.190863e+02_jprb, 0.192814e+02_jprb, 0.194765e+02_jprb &
43429  &, 0.196716e+02_jprb, 0.198667e+02_jprb, 0.200619e+02_jprb &
43430  &, 0.202570e+02_jprb, 0.204521e+02_jprb, 0.206472e+02_jprb, 0.208423e+02_jprb &
43431  &, 0.210372e+02_jprb, 0.212322e+02_jprb, 0.214271e+02_jprb &
43432  &, 0.216219e+02_jprb, 0.218165e+02_jprb, 0.220111e+02_jprb, 0.222056e+02_jprb &
43433  &, 0.224000e+02_jprb, 0.225943e+02_jprb, 0.227884e+02_jprb &
43434  &, 0.229823e+02_jprb, 0.231762e+02_jprb, 0.233698e+02_jprb, 0.235633e+02_jprb &
43435  &, 0.237566e+02_jprb, 0.239498e+02_jprb, 0.241427e+02_jprb/)
43436 xcw( 996, :) = (/ &
43437  & 0.128526e+01_jprb, 0.136283e+01_jprb, 0.144290e+01_jprb, 0.152545e+01_jprb &
43438  &, 0.161046e+01_jprb, 0.169794e+01_jprb, 0.178786e+01_jprb &
43439  &, 0.188021e+01_jprb, 0.197498e+01_jprb, 0.207214e+01_jprb, 0.217168e+01_jprb &
43440  &, 0.227359e+01_jprb, 0.237783e+01_jprb, 0.248440e+01_jprb &
43441  &, 0.259327e+01_jprb, 0.270441e+01_jprb, 0.281782e+01_jprb, 0.293345e+01_jprb &
43442  &, 0.305130e+01_jprb, 0.317132e+01_jprb, 0.329351e+01_jprb &
43443  &, 0.341783e+01_jprb, 0.354427e+01_jprb, 0.367278e+01_jprb, 0.380335e+01_jprb &
43444  &, 0.393594e+01_jprb, 0.407054e+01_jprb, 0.420712e+01_jprb &
43445  &, 0.434563e+01_jprb, 0.448607e+01_jprb, 0.462839e+01_jprb, 0.477258e+01_jprb &
43446  &, 0.491861e+01_jprb, 0.506643e+01_jprb, 0.521603e+01_jprb &
43447  &, 0.536739e+01_jprb, 0.552045e+01_jprb, 0.567522e+01_jprb, 0.583165e+01_jprb &
43448  &, 0.598971e+01_jprb, 0.614939e+01_jprb, 0.631064e+01_jprb &
43449  &, 0.647344e+01_jprb, 0.663777e+01_jprb, 0.680360e+01_jprb, 0.697089e+01_jprb &
43450  &, 0.713962e+01_jprb, 0.730978e+01_jprb, 0.748133e+01_jprb &
43451  &, 0.765424e+01_jprb, 0.782848e+01_jprb, 0.800404e+01_jprb, 0.818088e+01_jprb &
43452  &, 0.835900e+01_jprb, 0.853833e+01_jprb, 0.871888e+01_jprb &
43453  &, 0.890063e+01_jprb, 0.908354e+01_jprb, 0.926757e+01_jprb, 0.945273e+01_jprb &
43454  &, 0.963898e+01_jprb, 0.982631e+01_jprb, 0.100147e+02_jprb &
43455  &, 0.102041e+02_jprb, 0.103945e+02_jprb, 0.105858e+02_jprb, 0.107782e+02_jprb &
43456  &, 0.109714e+02_jprb, 0.111656e+02_jprb, 0.113607e+02_jprb &
43457  &, 0.115566e+02_jprb, 0.117534e+02_jprb, 0.119511e+02_jprb, 0.121495e+02_jprb &
43458  &, 0.123488e+02_jprb, 0.125488e+02_jprb, 0.127496e+02_jprb &
43459  &, 0.129511e+02_jprb, 0.131533e+02_jprb, 0.133563e+02_jprb, 0.135599e+02_jprb &
43460  &, 0.137642e+02_jprb, 0.139691e+02_jprb, 0.141747e+02_jprb &
43461  &, 0.143809e+02_jprb, 0.145877e+02_jprb, 0.147950e+02_jprb, 0.150029e+02_jprb &
43462  &, 0.152114e+02_jprb, 0.154204e+02_jprb, 0.156299e+02_jprb &
43463  &, 0.158399e+02_jprb, 0.160504e+02_jprb, 0.162613e+02_jprb, 0.164728e+02_jprb &
43464  &, 0.166846e+02_jprb, 0.168969e+02_jprb, 0.171096e+02_jprb &
43465  &, 0.173227e+02_jprb, 0.175361e+02_jprb, 0.177499e+02_jprb, 0.179641e+02_jprb &
43466  &, 0.181787e+02_jprb, 0.183935e+02_jprb, 0.186087e+02_jprb &
43467  &, 0.188241e+02_jprb, 0.190399e+02_jprb, 0.192559e+02_jprb, 0.194722e+02_jprb &
43468  &, 0.196887e+02_jprb, 0.199055e+02_jprb, 0.201225e+02_jprb &
43469  &, 0.203397e+02_jprb, 0.205571e+02_jprb, 0.207747e+02_jprb, 0.209925e+02_jprb &
43470  &, 0.212104e+02_jprb, 0.214286e+02_jprb, 0.216468e+02_jprb &
43471  &, 0.218652e+02_jprb, 0.220837e+02_jprb, 0.223023e+02_jprb, 0.225210e+02_jprb &
43472  &, 0.227398e+02_jprb, 0.229587e+02_jprb, 0.231776e+02_jprb &
43473  &, 0.233966e+02_jprb, 0.236157e+02_jprb, 0.238348e+02_jprb, 0.240539e+02_jprb &
43474  &, 0.242731e+02_jprb, 0.244923e+02_jprb, 0.247114e+02_jprb &
43475  &, 0.249306e+02_jprb, 0.251497e+02_jprb, 0.253687e+02_jprb, 0.255878e+02_jprb &
43476  &, 0.258068e+02_jprb, 0.260259e+02_jprb, 0.262448e+02_jprb/)
43477 xcw( 997, :) = (/ &
43478  & 0.129659e+01_jprb, 0.137756e+01_jprb, 0.146125e+01_jprb, 0.154766e+01_jprb &
43479  &, 0.163677e+01_jprb, 0.172858e+01_jprb, 0.182307e+01_jprb &
43480  &, 0.192023e+01_jprb, 0.202004e+01_jprb, 0.212250e+01_jprb, 0.222758e+01_jprb &
43481  &, 0.233527e+01_jprb, 0.244555e+01_jprb, 0.255839e+01_jprb &
43482  &, 0.267379e+01_jprb, 0.279171e+01_jprb, 0.291214e+01_jprb, 0.303505e+01_jprb &
43483  &, 0.316042e+01_jprb, 0.328823e+01_jprb, 0.341844e+01_jprb &
43484  &, 0.355105e+01_jprb, 0.368601e+01_jprb, 0.382331e+01_jprb, 0.396292e+01_jprb &
43485  &, 0.410480e+01_jprb, 0.424894e+01_jprb, 0.439531e+01_jprb &
43486  &, 0.454387e+01_jprb, 0.469461e+01_jprb, 0.484748e+01_jprb, 0.500247e+01_jprb &
43487  &, 0.515955e+01_jprb, 0.531868e+01_jprb, 0.547985e+01_jprb &
43488  &, 0.564300e+01_jprb, 0.580814e+01_jprb, 0.597521e+01_jprb, 0.614420e+01_jprb &
43489  &, 0.631508e+01_jprb, 0.648781e+01_jprb, 0.666237e+01_jprb &
43490  &, 0.683873e+01_jprb, 0.701687e+01_jprb, 0.719674e+01_jprb, 0.737834e+01_jprb &
43491  &, 0.756163e+01_jprb, 0.774658e+01_jprb, 0.793316e+01_jprb &
43492  &, 0.812135e+01_jprb, 0.831112e+01_jprb, 0.850246e+01_jprb, 0.869531e+01_jprb &
43493  &, 0.888968e+01_jprb, 0.908553e+01_jprb, 0.928282e+01_jprb &
43494  &, 0.948155e+01_jprb, 0.968168e+01_jprb, 0.988319e+01_jprb, 0.100860e+02_jprb &
43495  &, 0.102902e+02_jprb, 0.104957e+02_jprb, 0.107025e+02_jprb &
43496  &, 0.109106e+02_jprb, 0.111199e+02_jprb, 0.113303e+02_jprb, 0.115420e+02_jprb &
43497  &, 0.117549e+02_jprb, 0.119689e+02_jprb, 0.121840e+02_jprb &
43498  &, 0.124003e+02_jprb, 0.126176e+02_jprb, 0.128360e+02_jprb, 0.130555e+02_jprb &
43499  &, 0.132759e+02_jprb, 0.134974e+02_jprb, 0.137198e+02_jprb &
43500  &, 0.139433e+02_jprb, 0.141676e+02_jprb, 0.143929e+02_jprb, 0.146191e+02_jprb &
43501  &, 0.148462e+02_jprb, 0.150742e+02_jprb, 0.153030e+02_jprb &
43502  &, 0.155326e+02_jprb, 0.157631e+02_jprb, 0.159943e+02_jprb, 0.162264e+02_jprb &
43503  &, 0.164592e+02_jprb, 0.166928e+02_jprb, 0.169271e+02_jprb &
43504  &, 0.171621e+02_jprb, 0.173978e+02_jprb, 0.176342e+02_jprb, 0.178712e+02_jprb &
43505  &, 0.181090e+02_jprb, 0.183473e+02_jprb, 0.185863e+02_jprb &
43506  &, 0.188259e+02_jprb, 0.190661e+02_jprb, 0.193068e+02_jprb, 0.195481e+02_jprb &
43507  &, 0.197900e+02_jprb, 0.200325e+02_jprb, 0.202754e+02_jprb &
43508  &, 0.205188e+02_jprb, 0.207627e+02_jprb, 0.210072e+02_jprb, 0.212520e+02_jprb &
43509  &, 0.214973e+02_jprb, 0.217431e+02_jprb, 0.219893e+02_jprb &
43510  &, 0.222359e+02_jprb, 0.224829e+02_jprb, 0.227303e+02_jprb, 0.229781e+02_jprb &
43511  &, 0.232263e+02_jprb, 0.234748e+02_jprb, 0.237236e+02_jprb &
43512  &, 0.239727e+02_jprb, 0.242223e+02_jprb, 0.244721e+02_jprb, 0.247222e+02_jprb &
43513  &, 0.249726e+02_jprb, 0.252232e+02_jprb, 0.254741e+02_jprb &
43514  &, 0.257253e+02_jprb, 0.259767e+02_jprb, 0.262283e+02_jprb, 0.264802e+02_jprb &
43515  &, 0.267322e+02_jprb, 0.269845e+02_jprb, 0.272369e+02_jprb &
43516  &, 0.274895e+02_jprb, 0.277424e+02_jprb, 0.279953e+02_jprb, 0.282484e+02_jprb &
43517  &, 0.285016e+02_jprb, 0.287550e+02_jprb, 0.290085e+02_jprb/)
43518 xcw( 998, :) = (/ &
43519  & 0.131213e+01_jprb, 0.139779e+01_jprb, 0.148650e+01_jprb, 0.157825e+01_jprb &
43520  &, 0.167304e+01_jprb, 0.177087e+01_jprb, 0.187172e+01_jprb &
43521  &, 0.197559e+01_jprb, 0.208246e+01_jprb, 0.219232e+01_jprb, 0.230516e+01_jprb &
43522  &, 0.242095e+01_jprb, 0.253969e+01_jprb, 0.266135e+01_jprb &
43523  &, 0.278592e+01_jprb, 0.291337e+01_jprb, 0.304369e+01_jprb, 0.317685e+01_jprb &
43524  &, 0.331282e+01_jprb, 0.345160e+01_jprb, 0.359315e+01_jprb &
43525  &, 0.373744e+01_jprb, 0.388447e+01_jprb, 0.403419e+01_jprb, 0.418657e+01_jprb &
43526  &, 0.434161e+01_jprb, 0.449926e+01_jprb, 0.465950e+01_jprb &
43527  &, 0.482231e+01_jprb, 0.498765e+01_jprb, 0.515549e+01_jprb, 0.532582e+01_jprb &
43528  &, 0.549859e+01_jprb, 0.567379e+01_jprb, 0.585137e+01_jprb &
43529  &, 0.603132e+01_jprb, 0.621360e+01_jprb, 0.639819e+01_jprb, 0.658505e+01_jprb &
43530  &, 0.677417e+01_jprb, 0.696550e+01_jprb, 0.715902e+01_jprb &
43531  &, 0.735470e+01_jprb, 0.755252e+01_jprb, 0.775243e+01_jprb, 0.795443e+01_jprb &
43532  &, 0.815847e+01_jprb, 0.836454e+01_jprb, 0.857259e+01_jprb &
43533  &, 0.878261e+01_jprb, 0.899457e+01_jprb, 0.920844e+01_jprb, 0.942420e+01_jprb &
43534  &, 0.964181e+01_jprb, 0.986126e+01_jprb, 0.100825e+02_jprb &
43535  &, 0.103055e+02_jprb, 0.105303e+02_jprb, 0.107568e+02_jprb, 0.109851e+02_jprb &
43536  &, 0.112150e+02_jprb, 0.114465e+02_jprb, 0.116797e+02_jprb &
43537  &, 0.119145e+02_jprb, 0.121509e+02_jprb, 0.123888e+02_jprb, 0.126283e+02_jprb &
43538  &, 0.128693e+02_jprb, 0.131117e+02_jprb, 0.133557e+02_jprb &
43539  &, 0.136011e+02_jprb, 0.138479e+02_jprb, 0.140961e+02_jprb, 0.143457e+02_jprb &
43540  &, 0.145967e+02_jprb, 0.148490e+02_jprb, 0.151027e+02_jprb &
43541  &, 0.153576e+02_jprb, 0.156138e+02_jprb, 0.158713e+02_jprb, 0.161300e+02_jprb &
43542  &, 0.163899e+02_jprb, 0.166510e+02_jprb, 0.169134e+02_jprb &
43543  &, 0.171768e+02_jprb, 0.174415e+02_jprb, 0.177072e+02_jprb, 0.179741e+02_jprb &
43544  &, 0.182421e+02_jprb, 0.185111e+02_jprb, 0.187812e+02_jprb &
43545  &, 0.190523e+02_jprb, 0.193244e+02_jprb, 0.195976e+02_jprb, 0.198717e+02_jprb &
43546  &, 0.201469e+02_jprb, 0.204229e+02_jprb, 0.207000e+02_jprb &
43547  &, 0.209779e+02_jprb, 0.212567e+02_jprb, 0.215365e+02_jprb, 0.218171e+02_jprb &
43548  &, 0.220986e+02_jprb, 0.223809e+02_jprb, 0.226641e+02_jprb &
43549  &, 0.229481e+02_jprb, 0.232328e+02_jprb, 0.235184e+02_jprb, 0.238047e+02_jprb &
43550  &, 0.240919e+02_jprb, 0.243797e+02_jprb, 0.246683e+02_jprb &
43551  &, 0.249576e+02_jprb, 0.252476e+02_jprb, 0.255384e+02_jprb, 0.258297e+02_jprb &
43552  &, 0.261217e+02_jprb, 0.264145e+02_jprb, 0.267078e+02_jprb &
43553  &, 0.270018e+02_jprb, 0.272964e+02_jprb, 0.275916e+02_jprb, 0.278874e+02_jprb &
43554  &, 0.281838e+02_jprb, 0.284807e+02_jprb, 0.287782e+02_jprb &
43555  &, 0.290762e+02_jprb, 0.293748e+02_jprb, 0.296739e+02_jprb, 0.299735e+02_jprb &
43556  &, 0.302736e+02_jprb, 0.305742e+02_jprb, 0.308752e+02_jprb &
43557  &, 0.311767e+02_jprb, 0.314787e+02_jprb, 0.317810e+02_jprb, 0.320840e+02_jprb &
43558  &, 0.323872e+02_jprb, 0.326909e+02_jprb, 0.329950e+02_jprb/)
43559 xcw( 999, :) = (/ &
43560  & 0.133767e+01_jprb, 0.143110e+01_jprb, 0.152815e+01_jprb, 0.162883e+01_jprb &
43561  &, 0.173313e+01_jprb, 0.184106e+01_jprb, 0.195261e+01_jprb &
43562  &, 0.206778e+01_jprb, 0.218654e+01_jprb, 0.230893e+01_jprb, 0.243489e+01_jprb &
43563  &, 0.256443e+01_jprb, 0.269753e+01_jprb, 0.283418e+01_jprb &
43564  &, 0.297436e+01_jprb, 0.311805e+01_jprb, 0.326524e+01_jprb, 0.341591e+01_jprb &
43565  &, 0.357002e+01_jprb, 0.372757e+01_jprb, 0.388853e+01_jprb &
43566  &, 0.405288e+01_jprb, 0.422058e+01_jprb, 0.439163e+01_jprb, 0.456599e+01_jprb &
43567  &, 0.474363e+01_jprb, 0.492453e+01_jprb, 0.510867e+01_jprb &
43568  &, 0.529601e+01_jprb, 0.548653e+01_jprb, 0.568020e+01_jprb, 0.587699e+01_jprb &
43569  &, 0.607687e+01_jprb, 0.627982e+01_jprb, 0.648580e+01_jprb &
43570  &, 0.669479e+01_jprb, 0.690675e+01_jprb, 0.712166e+01_jprb, 0.733949e+01_jprb &
43571  &, 0.756021e+01_jprb, 0.778379e+01_jprb, 0.801020e+01_jprb &
43572  &, 0.823941e+01_jprb, 0.847139e+01_jprb, 0.870612e+01_jprb, 0.894355e+01_jprb &
43573  &, 0.918368e+01_jprb, 0.942647e+01_jprb, 0.967189e+01_jprb &
43574  &, 0.991989e+01_jprb, 0.101705e+02_jprb, 0.104236e+02_jprb, 0.106793e+02_jprb &
43575  &, 0.109374e+02_jprb, 0.111980e+02_jprb, 0.114610e+02_jprb &
43576  &, 0.117265e+02_jprb, 0.119943e+02_jprb, 0.122645e+02_jprb, 0.125370e+02_jprb &
43577  &, 0.128118e+02_jprb, 0.130889e+02_jprb, 0.133682e+02_jprb &
43578  &, 0.136498e+02_jprb, 0.139336e+02_jprb, 0.142196e+02_jprb, 0.145077e+02_jprb &
43579  &, 0.147979e+02_jprb, 0.150903e+02_jprb, 0.153847e+02_jprb &
43580  &, 0.156812e+02_jprb, 0.159798e+02_jprb, 0.162803e+02_jprb, 0.165829e+02_jprb &
43581  &, 0.168874e+02_jprb, 0.171939e+02_jprb, 0.175023e+02_jprb &
43582  &, 0.178126e+02_jprb, 0.181248e+02_jprb, 0.184388e+02_jprb, 0.187547e+02_jprb &
43583  &, 0.190725e+02_jprb, 0.193920e+02_jprb, 0.197133e+02_jprb &
43584  &, 0.200364e+02_jprb, 0.203612e+02_jprb, 0.206877e+02_jprb, 0.210159e+02_jprb &
43585  &, 0.213459e+02_jprb, 0.216775e+02_jprb, 0.220107e+02_jprb &
43586  &, 0.223456e+02_jprb, 0.226820e+02_jprb, 0.230201e+02_jprb, 0.233598e+02_jprb &
43587  &, 0.237010e+02_jprb, 0.240437e+02_jprb, 0.243880e+02_jprb &
43588  &, 0.247338e+02_jprb, 0.250810e+02_jprb, 0.254298e+02_jprb, 0.257800e+02_jprb &
43589  &, 0.261316e+02_jprb, 0.264847e+02_jprb, 0.268392e+02_jprb &
43590  &, 0.271950e+02_jprb, 0.275522e+02_jprb, 0.279108e+02_jprb, 0.282708e+02_jprb &
43591  &, 0.286320e+02_jprb, 0.289946e+02_jprb, 0.293585e+02_jprb &
43592  &, 0.297237e+02_jprb, 0.300901e+02_jprb, 0.304578e+02_jprb, 0.308268e+02_jprb &
43593  &, 0.311969e+02_jprb, 0.315683e+02_jprb, 0.319408e+02_jprb &
43594  &, 0.323146e+02_jprb, 0.326895e+02_jprb, 0.330656e+02_jprb, 0.334429e+02_jprb &
43595  &, 0.338213e+02_jprb, 0.342007e+02_jprb, 0.345813e+02_jprb &
43596  &, 0.349630e+02_jprb, 0.353458e+02_jprb, 0.357296e+02_jprb, 0.361145e+02_jprb &
43597  &, 0.365004e+02_jprb, 0.368873e+02_jprb, 0.372753e+02_jprb &
43598  &, 0.376643e+02_jprb, 0.380542e+02_jprb, 0.384452e+02_jprb, 0.388371e+02_jprb &
43599  &, 0.392299e+02_jprb, 0.396237e+02_jprb, 0.400185e+02_jprb/)
43600 xcw(1000, :) = (/ &
43601  & 0.100000e-04_jprb, 0.100000e-04_jprb, 0.255626e+01_jprb, 0.257657e+01_jprb &
43602  &, 0.260001e+01_jprb, 0.393985e+01_jprb, 0.464844e+01_jprb &
43603  &, 0.504199e+01_jprb, 0.545000e+01_jprb, 0.552812e+01_jprb, 0.561250e+01_jprb &
43604  &, 0.570312e+01_jprb, 0.580000e+01_jprb, 0.590312e+01_jprb &
43605  &, 0.601250e+01_jprb, 0.612812e+01_jprb, 0.625000e+01_jprb, 0.637812e+01_jprb &
43606  &, 0.651250e+01_jprb, 0.665312e+01_jprb, 0.680000e+01_jprb &
43607  &, 0.695312e+01_jprb, 0.711250e+01_jprb, 0.727812e+01_jprb, 0.745000e+01_jprb &
43608  &, 0.762812e+01_jprb, 0.781250e+01_jprb, 0.800312e+01_jprb &
43609  &, 0.820000e+01_jprb, 0.840312e+01_jprb, 0.861250e+01_jprb, 0.882812e+01_jprb &
43610  &, 0.905000e+01_jprb, 0.927812e+01_jprb, 0.951249e+01_jprb &
43611  &, 0.975312e+01_jprb, 0.999999e+01_jprb, 0.102531e+02_jprb, 0.105125e+02_jprb &
43612  &, 0.107781e+02_jprb, 0.110500e+02_jprb, 0.113281e+02_jprb &
43613  &, 0.116125e+02_jprb, 0.119031e+02_jprb, 0.122000e+02_jprb, 0.125031e+02_jprb &
43614  &, 0.128125e+02_jprb, 0.131281e+02_jprb, 0.134500e+02_jprb &
43615  &, 0.137781e+02_jprb, 0.141125e+02_jprb, 0.144531e+02_jprb, 0.148000e+02_jprb &
43616  &, 0.151531e+02_jprb, 0.155125e+02_jprb, 0.158781e+02_jprb &
43617  &, 0.162500e+02_jprb, 0.166281e+02_jprb, 0.170125e+02_jprb, 0.174031e+02_jprb &
43618  &, 0.178000e+02_jprb, 0.182031e+02_jprb, 0.186125e+02_jprb &
43619  &, 0.190281e+02_jprb, 0.194500e+02_jprb, 0.198781e+02_jprb, 0.203125e+02_jprb &
43620  &, 0.207531e+02_jprb, 0.212000e+02_jprb, 0.216531e+02_jprb &
43621  &, 0.221125e+02_jprb, 0.225781e+02_jprb, 0.230500e+02_jprb, 0.235281e+02_jprb &
43622  &, 0.240125e+02_jprb, 0.245031e+02_jprb, 0.250000e+02_jprb &
43623  &, 0.255031e+02_jprb, 0.260125e+02_jprb, 0.265281e+02_jprb, 0.270500e+02_jprb &
43624  &, 0.275781e+02_jprb, 0.281125e+02_jprb, 0.286531e+02_jprb &
43625  &, 0.292000e+02_jprb, 0.297531e+02_jprb, 0.303125e+02_jprb, 0.308781e+02_jprb &
43626  &, 0.314500e+02_jprb, 0.320281e+02_jprb, 0.326125e+02_jprb &
43627  &, 0.332031e+02_jprb, 0.338000e+02_jprb, 0.344031e+02_jprb, 0.350125e+02_jprb &
43628  &, 0.356281e+02_jprb, 0.362500e+02_jprb, 0.368781e+02_jprb &
43629  &, 0.375125e+02_jprb, 0.381531e+02_jprb, 0.388000e+02_jprb, 0.394531e+02_jprb &
43630  &, 0.401125e+02_jprb, 0.407781e+02_jprb, 0.414500e+02_jprb &
43631  &, 0.421281e+02_jprb, 0.428125e+02_jprb, 0.435031e+02_jprb, 0.442000e+02_jprb &
43632  &, 0.449031e+02_jprb, 0.456125e+02_jprb, 0.463281e+02_jprb &
43633  &, 0.470500e+02_jprb, 0.477781e+02_jprb, 0.485125e+02_jprb, 0.492531e+02_jprb &
43634  &, 0.500000e+02_jprb, 0.507531e+02_jprb, 0.515125e+02_jprb &
43635  &, 0.522781e+02_jprb, 0.530500e+02_jprb, 0.538281e+02_jprb, 0.546125e+02_jprb &
43636  &, 0.554031e+02_jprb, 0.561999e+02_jprb, 0.570031e+02_jprb &
43637  &, 0.578124e+02_jprb, 0.586281e+02_jprb, 0.594499e+02_jprb, 0.602781e+02_jprb &
43638  &, 0.611124e+02_jprb, 0.619531e+02_jprb, 0.627999e+02_jprb &
43639  &, 0.636531e+02_jprb, 0.645124e+02_jprb, 0.653781e+02_jprb, 0.662499e+02_jprb &
43640  &, 0.671281e+02_jprb, 0.680124e+02_jprb, 0.689031e+02_jprb/)
43641 
43642 IF (lhook) CALL dr_hook('SU_MCICA:PART143',1,zhook_handle)
43643 END SUBROUTINE part143
43644 
43645 
43646 END SUBROUTINE su_mcica
part60
subroutine part60
Definition: su_mcica.F90:18159
yoe_mcica::nmci1
integer(kind=jpim) nmci1
Definition: yoe_mcica.F90:11
part96
subroutine part96
Definition: su_mcica.F90:29103
part114
subroutine part114
Definition: su_mcica.F90:34575
part112
subroutine part112
Definition: su_mcica.F90:33967
part53
subroutine part53
Definition: su_mcica.F90:16031
part73
subroutine part73
Definition: su_mcica.F90:22111
part33
subroutine part33
Definition: rrtm_kgb3.F90:9709
part51
subroutine part51
Definition: su_mcica.F90:15423
part75
subroutine part75
Definition: su_mcica.F90:22719
part49
subroutine part49
Definition: su_mcica.F90:14815
part88
subroutine part88
Definition: su_mcica.F90:26671
part52
subroutine part52
Definition: su_mcica.F90:15727
part95
subroutine part95
Definition: su_mcica.F90:28799
part43
subroutine part43
Definition: su_mcica.F90:12991
part113
subroutine part113
Definition: su_mcica.F90:34271
part118
subroutine part118
Definition: su_mcica.F90:35791
part126
subroutine part126
Definition: su_mcica.F90:38223
part110
subroutine part110
Definition: su_mcica.F90:33359
part2
subroutine part2
Definition: rrtm_kgb1.F90:345
part92
subroutine part92
Definition: su_mcica.F90:27887
part137
subroutine part137
Definition: su_mcica.F90:41567
part105
subroutine part105
Definition: su_mcica.F90:31839
part56
subroutine part56
Definition: su_mcica.F90:16943
part138
subroutine part138
Definition: su_mcica.F90:41871
part58
subroutine part58
Definition: su_mcica.F90:17551
part30
subroutine part30
Definition: rrtm_kgb3.F90:8806
part139
subroutine part139
Definition: su_mcica.F90:42175
part35
subroutine part35
Definition: rrtm_kgb3.F90:10311
part90
subroutine part90
Definition: su_mcica.F90:27279
part103
subroutine part103
Definition: su_mcica.F90:31231
yoe_mcica::xcw
real(kind=jprb), dimension(1000, 140) xcw
Definition: yoe_mcica.F90:10
part12
subroutine part12
Definition: rrtm_kgb12.F90:3359
part34
subroutine part34
Definition: rrtm_kgb3.F90:10010
part61
subroutine part61
Definition: su_mcica.F90:18463
part15
subroutine part15
Definition: rrtm_kgb3.F90:4291
part44
subroutine part44
Definition: su_mcica.F90:13295
part84
subroutine part84
Definition: su_mcica.F90:25455
part20
subroutine part20
Definition: rrtm_kgb3.F90:5796
part78
subroutine part78
Definition: su_mcica.F90:23631
part7
subroutine part7
Definition: rrtm_kgb1.F90:1849
part123
subroutine part123
Definition: su_mcica.F90:37311
part91
subroutine part91
Definition: su_mcica.F90:27583
part28
subroutine part28
Definition: rrtm_kgb3.F90:8204
part107
subroutine part107
Definition: su_mcica.F90:32447
part48
subroutine part48
Definition: su_mcica.F90:14511
part127
subroutine part127
Definition: su_mcica.F90:38527
part119
subroutine part119
Definition: su_mcica.F90:36095
part45
subroutine part45
Definition: su_mcica.F90:13599
part13
subroutine part13
Definition: rrtm_kgb3.F90:3689
part42
subroutine part42
Definition: su_mcica.F90:12687
part121
subroutine part121
Definition: su_mcica.F90:36703
part83
subroutine part83
Definition: su_mcica.F90:25151
part46
subroutine part46
Definition: su_mcica.F90:13903
part27
subroutine part27
Definition: rrtm_kgb3.F90:7903
part76
subroutine part76
Definition: su_mcica.F90:23023
part94
subroutine part94
Definition: su_mcica.F90:28495
part70
subroutine part70
Definition: su_mcica.F90:21199
part120
subroutine part120
Definition: su_mcica.F90:36399
part3
subroutine part3
Definition: rrtm_kgb1.F90:645
part50
subroutine part50
Definition: su_mcica.F90:15119
part63
subroutine part63
Definition: su_mcica.F90:19071
part74
subroutine part74
Definition: su_mcica.F90:22415
part31
subroutine part31
Definition: rrtm_kgb3.F90:9107
part99
subroutine part99
Definition: su_mcica.F90:30015
part108
subroutine part108
Definition: su_mcica.F90:32751
part135
subroutine part135
Definition: su_mcica.F90:40959
parkind1::jprb
integer, parameter jprb
Definition: parkind1.F90:31
part10
subroutine part10
Definition: rrtm_kgb12.F90:2757
part16
subroutine part16
Definition: rrtm_kgb3.F90:4592
part101
subroutine part101
Definition: su_mcica.F90:30623
part25
subroutine part25
Definition: rrtm_kgb3.F90:7301
part4
subroutine part4
Definition: rrtm_kgb1.F90:946
part40
subroutine part40
Definition: su_mcica.F90:12079
part136
subroutine part136
Definition: su_mcica.F90:41263
part130
subroutine part130
Definition: su_mcica.F90:39439
part11
subroutine part11
Definition: rrtm_kgb12.F90:3059
part132
subroutine part132
Definition: su_mcica.F90:40047
part24
subroutine part24
Definition: rrtm_kgb3.F90:7000
part55
subroutine part55
Definition: su_mcica.F90:16639
part82
subroutine part82
Definition: su_mcica.F90:24847
part131
subroutine part131
Definition: su_mcica.F90:39743
part115
subroutine part115
Definition: su_mcica.F90:34879
part98
subroutine part98
Definition: su_mcica.F90:29711
part97
subroutine part97
Definition: su_mcica.F90:29407
part62
subroutine part62
Definition: su_mcica.F90:18767
part41
subroutine part41
Definition: su_mcica.F90:12383
part72
subroutine part72
Definition: su_mcica.F90:21807
part67
subroutine part67
Definition: su_mcica.F90:20287
part26
subroutine part26
Definition: rrtm_kgb3.F90:7602
part9
subroutine part9
Definition: rrtm_kgb12.F90:2458
part124
subroutine part124
Definition: su_mcica.F90:37615
part106
subroutine part106
Definition: su_mcica.F90:32143
part6
subroutine part6
Definition: rrtm_kgb1.F90:1548
part128
subroutine part128
Definition: su_mcica.F90:38831
yoe_mcica::nmci2
integer(kind=jpim) nmci2
Definition: yoe_mcica.F90:11
part104
subroutine part104
Definition: su_mcica.F90:31535
part39
subroutine part39
Definition: su_mcica.F90:11775
part87
subroutine part87
Definition: su_mcica.F90:26367
part100
subroutine part100
Definition: su_mcica.F90:30319
yomhook::lhook
logical lhook
Definition: yomhook.F90:12
part32
subroutine part32
Definition: rrtm_kgb3.F90:9408
part117
subroutine part117
Definition: su_mcica.F90:35487
part71
subroutine part71
Definition: su_mcica.F90:21503
part143
subroutine part143
Definition: su_mcica.F90:43391
part17
subroutine part17
Definition: rrtm_kgb3.F90:4893
part37
subroutine part37
Definition: rrtm_kgb3.F90:10913
part79
subroutine part79
Definition: su_mcica.F90:23935
part125
subroutine part125
Definition: su_mcica.F90:37919
part22
subroutine part22
Definition: rrtm_kgb3.F90:6398
part64
subroutine part64
Definition: su_mcica.F90:19375
part142
subroutine part142
Definition: su_mcica.F90:43087
part80
subroutine part80
Definition: su_mcica.F90:24239
part66
subroutine part66
Definition: su_mcica.F90:19983
part133
subroutine part133
Definition: su_mcica.F90:40351
part36
subroutine part36
Definition: rrtm_kgb3.F90:10612
part21
subroutine part21
Definition: rrtm_kgb3.F90:6097
part122
subroutine part122
Definition: su_mcica.F90:37007
part134
subroutine part134
Definition: su_mcica.F90:40655
part129
subroutine part129
Definition: su_mcica.F90:39135
yomhook::dr_hook
subroutine dr_hook(CDNAME, KSWITCH, PKEY)
Definition: yomhook.F90:17
su_mcica
subroutine su_mcica
Definition: su_mcica.F90:8
part116
subroutine part116
Definition: su_mcica.F90:35183
part59
subroutine part59
Definition: su_mcica.F90:17855
part57
subroutine part57
Definition: su_mcica.F90:17247
part140
subroutine part140
Definition: su_mcica.F90:42479
part109
subroutine part109
Definition: su_mcica.F90:33055
part14
subroutine part14
Definition: rrtm_kgb3.F90:3990
part5
subroutine part5
Definition: rrtm_kgb1.F90:1247
part8
subroutine part8
Definition: rrtm_kgb12.F90:2156
part111
subroutine part111
Definition: su_mcica.F90:33663
part38
subroutine part38
Definition: rrtm_kgb3.F90:11214
part18
subroutine part18
Definition: rrtm_kgb3.F90:5194
part23
subroutine part23
Definition: rrtm_kgb3.F90:6699
part85
subroutine part85
Definition: su_mcica.F90:25759
part89
subroutine part89
Definition: su_mcica.F90:26975
part19
subroutine part19
Definition: rrtm_kgb3.F90:5495
part81
subroutine part81
Definition: su_mcica.F90:24543
part47
subroutine part47
Definition: su_mcica.F90:14207
part86
subroutine part86
Definition: su_mcica.F90:26063
yoe_mcica
Definition: yoe_mcica.F90:1
part69
subroutine part69
Definition: su_mcica.F90:20895
part54
subroutine part54
Definition: su_mcica.F90:16335
part102
subroutine part102
Definition: su_mcica.F90:30927
part68
subroutine part68
Definition: su_mcica.F90:20591
part1
subroutine part1
Definition: rrtm_kgb1.F90:44
part77
subroutine part77
Definition: su_mcica.F90:23327
part65
subroutine part65
Definition: su_mcica.F90:19679
part141
subroutine part141
Definition: su_mcica.F90:42783
part29
subroutine part29
Definition: rrtm_kgb3.F90:8505
part93
subroutine part93
Definition: su_mcica.F90:28191