Line |
Branch |
Exec |
Source |
1 |
|
|
!OCL SCALAR |
2 |
|
|
!pgi$r opt=0 |
3 |
|
✗ |
SUBROUTINE SRTM_KGB21 |
4 |
|
|
|
5 |
|
|
! Originally by J.Delamere, Atmospheric & Environmental Research. |
6 |
|
|
! Revision: 2.4 |
7 |
|
|
! BAND 21: 6150-7700 cm-1 (low - H2O,CO2; high - H2O,CO2) |
8 |
|
|
! Reformatted for F90 by JJMorcrette, ECMWF |
9 |
|
|
! R. Elkhatib 12-10-2005 Split for faster and more robust compilation. |
10 |
|
|
|
11 |
|
|
! ------------------------------------------------------------------ |
12 |
|
|
|
13 |
|
|
USE PARKIND1 ,ONLY : JPRB |
14 |
|
|
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
15 |
|
|
|
16 |
|
|
USE YOESRTA21, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT & |
17 |
|
|
& , LAYREFFR |
18 |
|
|
|
19 |
|
|
! ------------------------------------------------------------------ |
20 |
|
|
|
21 |
|
|
IMPLICIT NONE |
22 |
|
|
|
23 |
|
|
! KURUCZ |
24 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
25 |
|
|
|
26 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21',0,ZHOOK_HANDLE) |
27 |
|
|
|
28 |
|
✗ |
CALL PART1 |
29 |
|
✗ |
CALL PART2 |
30 |
|
✗ |
CALL PART3 |
31 |
|
✗ |
CALL PART4 |
32 |
|
✗ |
CALL PART5 |
33 |
|
✗ |
CALL PART6 |
34 |
|
✗ |
CALL PART7 |
35 |
|
✗ |
CALL PART8 |
36 |
|
✗ |
CALL PART9 |
37 |
|
✗ |
CALL PART10 |
38 |
|
✗ |
CALL PART11 |
39 |
|
✗ |
CALL PART12 |
40 |
|
✗ |
CALL PART13 |
41 |
|
✗ |
CALL PART14 |
42 |
|
✗ |
CALL PART15 |
43 |
|
✗ |
CALL PART16 |
44 |
|
✗ |
CALL PART17 |
45 |
|
✗ |
CALL PART18 |
46 |
|
✗ |
CALL PART19 |
47 |
|
✗ |
CALL PART20 |
48 |
|
✗ |
CALL PART21 |
49 |
|
✗ |
CALL PART22 |
50 |
|
✗ |
CALL PART23 |
51 |
|
✗ |
CALL PART24 |
52 |
|
✗ |
CALL PART25 |
53 |
|
✗ |
CALL PART26 |
54 |
|
✗ |
CALL PART27 |
55 |
|
✗ |
CALL PART28 |
56 |
|
✗ |
CALL PART29 |
57 |
|
✗ |
CALL PART30 |
58 |
|
✗ |
CALL PART31 |
59 |
|
✗ |
CALL PART32 |
60 |
|
✗ |
CALL PART33 |
61 |
|
✗ |
CALL PART34 |
62 |
|
✗ |
CALL PART35 |
63 |
|
✗ |
CALL PART36 |
64 |
|
✗ |
CALL PART37 |
65 |
|
✗ |
CALL PART38 |
66 |
|
|
|
67 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21',1,ZHOOK_HANDLE) |
68 |
|
|
|
69 |
|
|
! ----------------------------------------------------------------- |
70 |
|
|
|
71 |
|
|
CONTAINS |
72 |
|
|
|
73 |
|
|
|
74 |
|
✗ |
SUBROUTINE PART1 |
75 |
|
|
|
76 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
77 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART1',0,ZHOOK_HANDLE) |
78 |
|
|
|
79 |
|
|
|
80 |
|
|
SFLUXREF(:, 1) = (/ & |
81 |
|
|
& 16.1643_JPRB , 15.5806_JPRB, 14.7254_JPRB , 13.5541_JPRB , & |
82 |
|
|
& 11.9519_JPRB ,10.44410_JPRB, 8.37884_JPRB , 6.26384_JPRB , & |
83 |
|
|
& 4.28435_JPRB ,0.465228_JPRB, 0.385095_JPRB ,0.304226_JPRB , & |
84 |
|
✗ |
& 0.222479_JPRB,0.143286_JPRB, 5.58046E-02_JPRB, 7.84856E-03_JPRB /) |
85 |
|
|
SFLUXREF(:, 2) = (/ & |
86 |
|
|
& 15.6451_JPRB , 15.3170_JPRB, 14.6987_JPRB , 13.7350_JPRB , & |
87 |
|
|
& 12.2267_JPRB ,10.51646_JPRB, 8.47150_JPRB , 6.38873_JPRB , & |
88 |
|
|
& 4.33536_JPRB ,0.470610_JPRB,0.389426_JPRB ,0.306461_JPRB , & |
89 |
|
✗ |
& 0.223537_JPRB,0.143273_JPRB, 5.58179E-02_JPRB, 7.84856E-03_JPRB /) |
90 |
|
|
SFLUXREF(:, 3) = (/ & |
91 |
|
|
& 15.6092_JPRB , 15.3293_JPRB, 14.6881_JPRB , 13.6693_JPRB , & |
92 |
|
|
& 12.2342_JPRB ,10.52010_JPRB, 8.49442_JPRB , 6.42138_JPRB , & |
93 |
|
|
& 4.35865_JPRB ,0.473349_JPRB,0.391349_JPRB ,0.308861_JPRB , & |
94 |
|
✗ |
& 0.224666_JPRB,0.144799_JPRB, 5.58176E-02_JPRB, 7.84881E-03_JPRB /) |
95 |
|
|
SFLUXREF(:, 4) = (/ & |
96 |
|
|
& 15.5786_JPRB , 15.3422_JPRB, 14.6894_JPRB , 13.6040_JPRB , & |
97 |
|
|
& 12.2567_JPRB ,10.49400_JPRB, 8.53521_JPRB , 6.44427_JPRB , & |
98 |
|
|
& 4.37208_JPRB ,0.475709_JPRB,0.392956_JPRB ,0.309737_JPRB , & |
99 |
|
✗ |
& 0.226274_JPRB,0.146483_JPRB, 5.59325E-02_JPRB, 7.84881E-03_JPRB /) |
100 |
|
|
SFLUXREF(:, 5) = (/ & |
101 |
|
|
& 15.5380_JPRB , 15.3826_JPRB, 14.6575_JPRB , 13.5722_JPRB , & |
102 |
|
|
& 12.2646_JPRB ,10.47672_JPRB, 8.57158_JPRB , 6.46343_JPRB , & |
103 |
|
|
& 4.38259_JPRB ,0.477647_JPRB,0.393982_JPRB ,0.310686_JPRB , & |
104 |
|
✗ |
& 0.227620_JPRB,0.148376_JPRB, 5.60398E-02_JPRB, 7.83925E-03_JPRB /) |
105 |
|
|
SFLUXREF(:, 6) = (/ & |
106 |
|
|
& 15.5124_JPRB , 15.3986_JPRB, 14.6240_JPRB , 13.5535_JPRB , & |
107 |
|
|
& 12.2468_JPRB ,10.48891_JPRB, 8.60434_JPRB , 6.47985_JPRB , & |
108 |
|
|
& 4.39448_JPRB ,0.478267_JPRB,0.395618_JPRB ,0.311043_JPRB , & |
109 |
|
✗ |
& 0.230927_JPRB,0.148774_JPRB, 5.61189E-02_JPRB, 7.83925E-03_JPRB /) |
110 |
|
|
SFLUXREF(:, 7) = (/ & |
111 |
|
|
& 15.4910_JPRB , 15.4028_JPRB, 14.5772_JPRB , 13.5507_JPRB , & |
112 |
|
|
& 12.2122_JPRB ,10.52735_JPRB, 8.62650_JPRB , 6.49644_JPRB , & |
113 |
|
|
& 4.41173_JPRB ,0.478627_JPRB,0.396433_JPRB ,0.314199_JPRB , & |
114 |
|
✗ |
& 0.233125_JPRB,0.149052_JPRB, 5.62309E-02_JPRB, 7.83925E-03_JPRB /) |
115 |
|
|
SFLUXREF(:, 8) = (/ & |
116 |
|
|
& 15.4562_JPRB , 15.3928_JPRB, 14.5510_JPRB , 13.5122_JPRB , & |
117 |
|
|
& 12.1890_JPRB , 10.5826_JPRB, 8.65842_JPRB , 6.51558_JPRB , & |
118 |
|
|
& 4.42747_JPRB ,0.480669_JPRB,0.400143_JPRB ,0.318144_JPRB , & |
119 |
|
✗ |
& 0.233937_JPRB,0.149119_JPRB, 5.62309E-02_JPRB, 7.83925E-03_JPRB /) |
120 |
|
|
SFLUXREF(:, 9) = (/ & |
121 |
|
|
& 15.0069_JPRB , 15.1479_JPRB, 14.7802_JPRB , 13.6085_JPRB , & |
122 |
|
|
& 12.2793_JPRB , 10.6929_JPRB, 8.72723_JPRB , 6.57114_JPRB , & |
123 |
|
|
& 4.46330_JPRB ,0.486724_JPRB,0.401446_JPRB ,0.318879_JPRB , & |
124 |
|
✗ |
& 0.233959_JPRB,0.149119_JPRB, 5.62309E-02_JPRB, 7.83925E-03_JPRB /) |
125 |
|
|
|
126 |
|
|
! Rayleigh extinction coefficient at v = 6925 cm-1. |
127 |
|
✗ |
RAYL = 9.41E-09_JPRB |
128 |
|
|
|
129 |
|
✗ |
STRRAT = 0.0045321_JPRB |
130 |
|
|
|
131 |
|
✗ |
LAYREFFR = 8 |
132 |
|
|
|
133 |
|
|
! ------------------------------------------------------------------ |
134 |
|
|
|
135 |
|
|
! The array KA contains absorption coefs at the 16 chosen g-values |
136 |
|
|
! for a range of pressure levels> ~100mb, temperatures, and binary |
137 |
|
|
! species parameters (see taumol.f for definition). The first |
138 |
|
|
! index in the array, JS, runs from 1 to 9, and corresponds to |
139 |
|
|
! different values of the binary species parameter. For instance, |
140 |
|
|
! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, |
141 |
|
|
! JS = 3 corresponds to the parameter value 2/8, etc. The second index |
142 |
|
|
! in the array, JT, which runs from 1 to 5, corresponds to different |
143 |
|
|
! temperatures. More specifically, JT = 3 means that the data are for |
144 |
|
|
! the reference temperature TREF for this pressure level, JT = 2 refers |
145 |
|
|
! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 |
146 |
|
|
! is for TREF+30. The third index, JP, runs from 1 to 13 and refers |
147 |
|
|
! to the JPth reference pressure level (see taumol.f for these levels |
148 |
|
|
! in mb). The fourth index, IG, goes from 1 to 16, and indicates |
149 |
|
|
! which g-interval the absorption coefficients are for. |
150 |
|
|
! ----------------------------------------------------------------- |
151 |
|
|
|
152 |
|
|
KA(:, 1, 1, 1) = (/ & |
153 |
|
|
& 0.31482E-07_JPRB,0.64010E-05_JPRB,0.95017E-05_JPRB,0.11735E-04_JPRB,0.13561E-04_JPRB, & |
154 |
|
✗ |
& 0.15077E-04_JPRB,0.16121E-04_JPRB,0.16138E-04_JPRB,0.41687E-06_JPRB /) |
155 |
|
|
KA(:, 2, 1, 1) = (/ & |
156 |
|
|
& 0.29791E-07_JPRB,0.68206E-05_JPRB,0.10260E-04_JPRB,0.12764E-04_JPRB,0.14880E-04_JPRB, & |
157 |
|
✗ |
& 0.16665E-04_JPRB,0.17944E-04_JPRB,0.18170E-04_JPRB,0.44246E-06_JPRB /) |
158 |
|
|
KA(:, 3, 1, 1) = (/ & |
159 |
|
|
& 0.28272E-07_JPRB,0.72448E-05_JPRB,0.11083E-04_JPRB,0.13866E-04_JPRB,0.16256E-04_JPRB, & |
160 |
|
✗ |
& 0.18323E-04_JPRB,0.19886E-04_JPRB,0.20229E-04_JPRB,0.47472E-06_JPRB /) |
161 |
|
|
KA(:, 4, 1, 1) = (/ & |
162 |
|
|
& 0.26900E-07_JPRB,0.76935E-05_JPRB,0.11934E-04_JPRB,0.15015E-04_JPRB,0.17657E-04_JPRB, & |
163 |
|
✗ |
& 0.20038E-04_JPRB,0.21902E-04_JPRB,0.22361E-04_JPRB,0.50770E-06_JPRB /) |
164 |
|
|
KA(:, 5, 1, 1) = (/ & |
165 |
|
|
& 0.25656E-07_JPRB,0.81661E-05_JPRB,0.12769E-04_JPRB,0.16181E-04_JPRB,0.19127E-04_JPRB, & |
166 |
|
✗ |
& 0.21755E-04_JPRB,0.23963E-04_JPRB,0.24421E-04_JPRB,0.54205E-06_JPRB /) |
167 |
|
|
KA(:, 1, 2, 1) = (/ & |
168 |
|
|
& 0.26396E-07_JPRB,0.52225E-05_JPRB,0.77221E-05_JPRB,0.95150E-05_JPRB,0.11004E-04_JPRB, & |
169 |
|
✗ |
& 0.12195E-04_JPRB,0.13037E-04_JPRB,0.12985E-04_JPRB,0.32097E-06_JPRB /) |
170 |
|
|
KA(:, 2, 2, 1) = (/ & |
171 |
|
|
& 0.24945E-07_JPRB,0.55737E-05_JPRB,0.83612E-05_JPRB,0.10375E-04_JPRB,0.12116E-04_JPRB, & |
172 |
|
✗ |
& 0.13569E-04_JPRB,0.14561E-04_JPRB,0.14711E-04_JPRB,0.34579E-06_JPRB /) |
173 |
|
|
KA(:, 3, 2, 1) = (/ & |
174 |
|
|
& 0.23646E-07_JPRB,0.59333E-05_JPRB,0.90531E-05_JPRB,0.11301E-04_JPRB,0.13247E-04_JPRB, & |
175 |
|
✗ |
& 0.14956E-04_JPRB,0.16193E-04_JPRB,0.16396E-04_JPRB,0.37200E-06_JPRB /) |
176 |
|
|
KA(:, 4, 2, 1) = (/ & |
177 |
|
|
& 0.22476E-07_JPRB,0.63144E-05_JPRB,0.97732E-05_JPRB,0.12274E-04_JPRB,0.14436E-04_JPRB, & |
178 |
|
✗ |
& 0.16377E-04_JPRB,0.17879E-04_JPRB,0.18223E-04_JPRB,0.40051E-06_JPRB /) |
179 |
|
|
KA(:, 5, 2, 1) = (/ & |
180 |
|
|
& 0.21415E-07_JPRB,0.67133E-05_JPRB,0.10471E-04_JPRB,0.13264E-04_JPRB,0.15681E-04_JPRB, & |
181 |
|
✗ |
& 0.17843E-04_JPRB,0.19627E-04_JPRB,0.19954E-04_JPRB,0.42929E-06_JPRB /) |
182 |
|
|
KA(:, 1, 3, 1) = (/ & |
183 |
|
|
& 0.22397E-07_JPRB,0.41930E-05_JPRB,0.61559E-05_JPRB,0.75544E-05_JPRB,0.86902E-05_JPRB, & |
184 |
|
✗ |
& 0.95896E-05_JPRB,0.10269E-04_JPRB,0.10114E-04_JPRB,0.24148E-06_JPRB /) |
185 |
|
|
KA(:, 2, 3, 1) = (/ & |
186 |
|
|
& 0.21124E-07_JPRB,0.44837E-05_JPRB,0.66786E-05_JPRB,0.82475E-05_JPRB,0.96353E-05_JPRB, & |
187 |
|
✗ |
& 0.10742E-04_JPRB,0.11469E-04_JPRB,0.11556E-04_JPRB,0.26304E-06_JPRB /) |
188 |
|
|
KA(:, 3, 3, 1) = (/ & |
189 |
|
|
& 0.19988E-07_JPRB,0.47839E-05_JPRB,0.72499E-05_JPRB,0.90229E-05_JPRB,0.10560E-04_JPRB, & |
190 |
|
✗ |
& 0.11900E-04_JPRB,0.12859E-04_JPRB,0.12935E-04_JPRB,0.28618E-06_JPRB /) |
191 |
|
|
KA(:, 4, 3, 1) = (/ & |
192 |
|
|
& 0.18968E-07_JPRB,0.51040E-05_JPRB,0.78586E-05_JPRB,0.98308E-05_JPRB,0.11551E-04_JPRB, & |
193 |
|
✗ |
& 0.13094E-04_JPRB,0.14240E-04_JPRB,0.14455E-04_JPRB,0.30983E-06_JPRB /) |
194 |
|
|
KA(:, 5, 3, 1) = (/ & |
195 |
|
|
& 0.18047E-07_JPRB,0.54366E-05_JPRB,0.84462E-05_JPRB,0.10670E-04_JPRB,0.12585E-04_JPRB, & |
196 |
|
✗ |
& 0.14313E-04_JPRB,0.15695E-04_JPRB,0.15934E-04_JPRB,0.33255E-06_JPRB /) |
197 |
|
|
KA(:, 1, 4, 1) = (/ & |
198 |
|
|
& 0.19080E-07_JPRB,0.33409E-05_JPRB,0.48738E-05_JPRB,0.59354E-05_JPRB,0.67877E-05_JPRB, & |
199 |
|
✗ |
& 0.74900E-05_JPRB,0.79142E-05_JPRB,0.77200E-05_JPRB,0.18466E-06_JPRB /) |
200 |
|
|
KA(:, 2, 4, 1) = (/ & |
201 |
|
|
& 0.17954E-07_JPRB,0.35910E-05_JPRB,0.52960E-05_JPRB,0.65037E-05_JPRB,0.75744E-05_JPRB, & |
202 |
|
✗ |
& 0.84082E-05_JPRB,0.89422E-05_JPRB,0.89302E-05_JPRB,0.20292E-06_JPRB /) |
203 |
|
|
KA(:, 3, 4, 1) = (/ & |
204 |
|
|
& 0.16954E-07_JPRB,0.38317E-05_JPRB,0.57536E-05_JPRB,0.71322E-05_JPRB,0.83424E-05_JPRB, & |
205 |
|
✗ |
& 0.93788E-05_JPRB,0.10063E-04_JPRB,0.10098E-04_JPRB,0.22173E-06_JPRB /) |
206 |
|
|
KA(:, 4, 4, 1) = (/ & |
207 |
|
|
& 0.16059E-07_JPRB,0.40932E-05_JPRB,0.62586E-05_JPRB,0.77961E-05_JPRB,0.91475E-05_JPRB, & |
208 |
|
✗ |
& 0.10347E-04_JPRB,0.11222E-04_JPRB,0.11312E-04_JPRB,0.24005E-06_JPRB /) |
209 |
|
|
KA(:, 5, 4, 1) = (/ & |
210 |
|
|
& 0.15254E-07_JPRB,0.43678E-05_JPRB,0.67525E-05_JPRB,0.84873E-05_JPRB,0.99995E-05_JPRB, & |
211 |
|
✗ |
& 0.11353E-04_JPRB,0.12416E-04_JPRB,0.12586E-04_JPRB,0.25939E-06_JPRB /) |
212 |
|
|
KA(:, 1, 5, 1) = (/ & |
213 |
|
|
& 0.16261E-07_JPRB,0.26540E-05_JPRB,0.38541E-05_JPRB,0.46443E-05_JPRB,0.52961E-05_JPRB, & |
214 |
|
✗ |
& 0.58054E-05_JPRB,0.60718E-05_JPRB,0.58540E-05_JPRB,0.14274E-06_JPRB /) |
215 |
|
|
KA(:, 2, 5, 1) = (/ & |
216 |
|
|
& 0.15265E-07_JPRB,0.28598E-05_JPRB,0.41831E-05_JPRB,0.51221E-05_JPRB,0.59110E-05_JPRB, & |
217 |
|
✗ |
& 0.65207E-05_JPRB,0.69761E-05_JPRB,0.68685E-05_JPRB,0.15725E-06_JPRB /) |
218 |
|
|
KA(:, 3, 5, 1) = (/ & |
219 |
|
|
& 0.14384E-07_JPRB,0.30623E-05_JPRB,0.45528E-05_JPRB,0.56124E-05_JPRB,0.65650E-05_JPRB, & |
220 |
|
✗ |
& 0.73436E-05_JPRB,0.78208E-05_JPRB,0.78523E-05_JPRB,0.17271E-06_JPRB /) |
221 |
|
|
KA(:, 4, 5, 1) = (/ & |
222 |
|
|
& 0.13599E-07_JPRB,0.32720E-05_JPRB,0.49622E-05_JPRB,0.61605E-05_JPRB,0.72244E-05_JPRB, & |
223 |
|
✗ |
& 0.81582E-05_JPRB,0.87971E-05_JPRB,0.88096E-05_JPRB,0.18766E-06_JPRB /) |
224 |
|
|
KA(:, 5, 5, 1) = (/ & |
225 |
|
|
& 0.12895E-07_JPRB,0.34985E-05_JPRB,0.53833E-05_JPRB,0.67240E-05_JPRB,0.79091E-05_JPRB, & |
226 |
|
✗ |
& 0.89688E-05_JPRB,0.97698E-05_JPRB,0.98639E-05_JPRB,0.20375E-06_JPRB /) |
227 |
|
|
KA(:, 1, 6, 1) = (/ & |
228 |
|
|
& 0.13898E-07_JPRB,0.20981E-05_JPRB,0.30384E-05_JPRB,0.36041E-05_JPRB,0.41040E-05_JPRB, & |
229 |
|
✗ |
& 0.44334E-05_JPRB,0.45761E-05_JPRB,0.43950E-05_JPRB,0.11025E-06_JPRB /) |
230 |
|
|
KA(:, 2, 6, 1) = (/ & |
231 |
|
|
& 0.13011E-07_JPRB,0.22645E-05_JPRB,0.32890E-05_JPRB,0.40042E-05_JPRB,0.45851E-05_JPRB, & |
232 |
|
✗ |
& 0.50473E-05_JPRB,0.53250E-05_JPRB,0.51854E-05_JPRB,0.12227E-06_JPRB /) |
233 |
|
|
KA(:, 3, 6, 1) = (/ & |
234 |
|
|
& 0.12231E-07_JPRB,0.24322E-05_JPRB,0.35842E-05_JPRB,0.43915E-05_JPRB,0.51259E-05_JPRB, & |
235 |
|
✗ |
& 0.56903E-05_JPRB,0.60343E-05_JPRB,0.60166E-05_JPRB,0.13506E-06_JPRB /) |
236 |
|
|
KA(:, 4, 6, 1) = (/ & |
237 |
|
|
& 0.11539E-07_JPRB,0.26032E-05_JPRB,0.39107E-05_JPRB,0.48321E-05_JPRB,0.56525E-05_JPRB, & |
238 |
|
✗ |
& 0.63625E-05_JPRB,0.68078E-05_JPRB,0.68024E-05_JPRB,0.14719E-06_JPRB /) |
239 |
|
|
KA(:, 5, 6, 1) = (/ & |
240 |
|
|
& 0.10921E-07_JPRB,0.27866E-05_JPRB,0.42578E-05_JPRB,0.52919E-05_JPRB,0.62181E-05_JPRB, & |
241 |
|
✗ |
& 0.70362E-05_JPRB,0.76140E-05_JPRB,0.76519E-05_JPRB,0.16052E-06_JPRB /) |
242 |
|
|
KA(:, 1, 7, 1) = (/ & |
243 |
|
|
& 0.11886E-07_JPRB,0.16563E-05_JPRB,0.23860E-05_JPRB,0.28276E-05_JPRB,0.31449E-05_JPRB, & |
244 |
|
✗ |
& 0.33771E-05_JPRB,0.34305E-05_JPRB,0.32824E-05_JPRB,0.84943E-07_JPRB /) |
245 |
|
|
KA(:, 2, 7, 1) = (/ & |
246 |
|
|
& 0.11096E-07_JPRB,0.17874E-05_JPRB,0.25861E-05_JPRB,0.31100E-05_JPRB,0.35425E-05_JPRB, & |
247 |
|
✗ |
& 0.38737E-05_JPRB,0.40468E-05_JPRB,0.38933E-05_JPRB,0.94734E-07_JPRB /) |
248 |
|
|
KA(:, 3, 7, 1) = (/ & |
249 |
|
|
& 0.10405E-07_JPRB,0.19286E-05_JPRB,0.28166E-05_JPRB,0.34417E-05_JPRB,0.39786E-05_JPRB, & |
250 |
|
✗ |
& 0.43804E-05_JPRB,0.46759E-05_JPRB,0.45835E-05_JPRB,0.10531E-06_JPRB /) |
251 |
|
|
KA(:, 4, 7, 1) = (/ & |
252 |
|
|
& 0.97948E-08_JPRB,0.20680E-05_JPRB,0.30741E-05_JPRB,0.37803E-05_JPRB,0.44163E-05_JPRB, & |
253 |
|
✗ |
& 0.49420E-05_JPRB,0.52477E-05_JPRB,0.52509E-05_JPRB,0.11517E-06_JPRB /) |
254 |
|
|
KA(:, 5, 7, 1) = (/ & |
255 |
|
|
& 0.92522E-08_JPRB,0.22140E-05_JPRB,0.33558E-05_JPRB,0.41544E-05_JPRB,0.48719E-05_JPRB, & |
256 |
|
✗ |
& 0.54968E-05_JPRB,0.59225E-05_JPRB,0.59027E-05_JPRB,0.12618E-06_JPRB /) |
257 |
|
|
KA(:, 1, 8, 1) = (/ & |
258 |
|
|
& 0.10164E-07_JPRB,0.13056E-05_JPRB,0.18690E-05_JPRB,0.21940E-05_JPRB,0.24210E-05_JPRB, & |
259 |
|
✗ |
& 0.25504E-05_JPRB,0.25676E-05_JPRB,0.24444E-05_JPRB,0.66021E-07_JPRB /) |
260 |
|
|
KA(:, 2, 8, 1) = (/ & |
261 |
|
|
& 0.94612E-08_JPRB,0.14106E-05_JPRB,0.20398E-05_JPRB,0.24136E-05_JPRB,0.27424E-05_JPRB, & |
262 |
|
✗ |
& 0.29578E-05_JPRB,0.30446E-05_JPRB,0.29182E-05_JPRB,0.73985E-07_JPRB /) |
263 |
|
|
KA(:, 3, 8, 1) = (/ & |
264 |
|
|
& 0.88489E-08_JPRB,0.15256E-05_JPRB,0.22123E-05_JPRB,0.26894E-05_JPRB,0.30704E-05_JPRB, & |
265 |
|
✗ |
& 0.33808E-05_JPRB,0.35521E-05_JPRB,0.34526E-05_JPRB,0.82666E-07_JPRB /) |
266 |
|
|
KA(:, 4, 8, 1) = (/ & |
267 |
|
|
& 0.83111E-08_JPRB,0.16396E-05_JPRB,0.24159E-05_JPRB,0.29563E-05_JPRB,0.34504E-05_JPRB, & |
268 |
|
✗ |
& 0.38196E-05_JPRB,0.40425E-05_JPRB,0.40093E-05_JPRB,0.90940E-07_JPRB /) |
269 |
|
|
KA(:, 5, 8, 1) = (/ & |
270 |
|
|
& 0.78349E-08_JPRB,0.17570E-05_JPRB,0.26398E-05_JPRB,0.32547E-05_JPRB,0.38060E-05_JPRB, & |
271 |
|
✗ |
& 0.42813E-05_JPRB,0.45732E-05_JPRB,0.45465E-05_JPRB,0.10022E-06_JPRB /) |
272 |
|
|
KA(:, 1, 9, 1) = (/ & |
273 |
|
|
& 0.86983E-08_JPRB,0.10284E-05_JPRB,0.14734E-05_JPRB,0.16973E-05_JPRB,0.18551E-05_JPRB, & |
274 |
|
✗ |
& 0.19223E-05_JPRB,0.19222E-05_JPRB,0.18289E-05_JPRB,0.53460E-07_JPRB /) |
275 |
|
|
KA(:, 2, 9, 1) = (/ & |
276 |
|
|
& 0.80712E-08_JPRB,0.11141E-05_JPRB,0.16016E-05_JPRB,0.18902E-05_JPRB,0.21027E-05_JPRB, & |
277 |
|
✗ |
& 0.22504E-05_JPRB,0.22800E-05_JPRB,0.21749E-05_JPRB,0.60180E-07_JPRB /) |
278 |
|
|
KA(:, 3, 9, 1) = (/ & |
279 |
|
|
& 0.75284E-08_JPRB,0.12033E-05_JPRB,0.17376E-05_JPRB,0.20849E-05_JPRB,0.23719E-05_JPRB, & |
280 |
|
✗ |
& 0.25906E-05_JPRB,0.26977E-05_JPRB,0.25910E-05_JPRB,0.66886E-07_JPRB /) |
281 |
|
|
KA(:, 4, 9, 1) = (/ & |
282 |
|
|
& 0.70541E-08_JPRB,0.12979E-05_JPRB,0.18959E-05_JPRB,0.23090E-05_JPRB,0.26695E-05_JPRB, & |
283 |
|
✗ |
& 0.29367E-05_JPRB,0.31239E-05_JPRB,0.30574E-05_JPRB,0.73978E-07_JPRB /) |
284 |
|
|
KA(:, 5, 9, 1) = (/ & |
285 |
|
|
& 0.66359E-08_JPRB,0.13937E-05_JPRB,0.20720E-05_JPRB,0.25448E-05_JPRB,0.29680E-05_JPRB, & |
286 |
|
✗ |
& 0.33208E-05_JPRB,0.35191E-05_JPRB,0.35097E-05_JPRB,0.81724E-07_JPRB /) |
287 |
|
|
KA(:, 1,10, 1) = (/ & |
288 |
|
|
& 0.74006E-08_JPRB,0.81705E-06_JPRB,0.11610E-05_JPRB,0.13325E-05_JPRB,0.14305E-05_JPRB, & |
289 |
|
✗ |
& 0.14668E-05_JPRB,0.14642E-05_JPRB,0.13765E-05_JPRB,0.44724E-07_JPRB /) |
290 |
|
|
KA(:, 2,10, 1) = (/ & |
291 |
|
|
& 0.68477E-08_JPRB,0.88306E-06_JPRB,0.12640E-05_JPRB,0.14768E-05_JPRB,0.16329E-05_JPRB, & |
292 |
|
✗ |
& 0.17209E-05_JPRB,0.17306E-05_JPRB,0.16441E-05_JPRB,0.50688E-07_JPRB /) |
293 |
|
|
KA(:, 3,10, 1) = (/ & |
294 |
|
|
& 0.63717E-08_JPRB,0.95522E-06_JPRB,0.13783E-05_JPRB,0.16303E-05_JPRB,0.18546E-05_JPRB, & |
295 |
|
✗ |
& 0.19963E-05_JPRB,0.20570E-05_JPRB,0.19678E-05_JPRB,0.56052E-07_JPRB /) |
296 |
|
|
KA(:, 4,10, 1) = (/ & |
297 |
|
|
& 0.59576E-08_JPRB,0.10331E-05_JPRB,0.14975E-05_JPRB,0.18180E-05_JPRB,0.20770E-05_JPRB, & |
298 |
|
✗ |
& 0.22813E-05_JPRB,0.24021E-05_JPRB,0.23350E-05_JPRB,0.62412E-07_JPRB /) |
299 |
|
|
KA(:, 5,10, 1) = (/ & |
300 |
|
|
& 0.55940E-08_JPRB,0.11102E-05_JPRB,0.16370E-05_JPRB,0.19999E-05_JPRB,0.23349E-05_JPRB, & |
301 |
|
✗ |
& 0.25900E-05_JPRB,0.27328E-05_JPRB,0.27057E-05_JPRB,0.69466E-07_JPRB /) |
302 |
|
|
KA(:, 1,11, 1) = (/ & |
303 |
|
|
& 0.60617E-08_JPRB,0.67167E-06_JPRB,0.95594E-06_JPRB,0.10939E-05_JPRB,0.11767E-05_JPRB, & |
304 |
|
✗ |
& 0.12059E-05_JPRB,0.12032E-05_JPRB,0.11314E-05_JPRB,0.37093E-07_JPRB /) |
305 |
|
|
KA(:, 2,11, 1) = (/ & |
306 |
|
|
& 0.56087E-08_JPRB,0.72704E-06_JPRB,0.10406E-05_JPRB,0.12137E-05_JPRB,0.13434E-05_JPRB, & |
307 |
|
✗ |
& 0.14171E-05_JPRB,0.14246E-05_JPRB,0.13521E-05_JPRB,0.41918E-07_JPRB /) |
308 |
|
|
KA(:, 3,11, 1) = (/ & |
309 |
|
|
& 0.52187E-08_JPRB,0.78681E-06_JPRB,0.11338E-05_JPRB,0.13419E-05_JPRB,0.15254E-05_JPRB, & |
310 |
|
✗ |
& 0.16426E-05_JPRB,0.16950E-05_JPRB,0.16203E-05_JPRB,0.46339E-07_JPRB /) |
311 |
|
|
KA(:, 4,11, 1) = (/ & |
312 |
|
|
& 0.48793E-08_JPRB,0.85013E-06_JPRB,0.12327E-05_JPRB,0.14971E-05_JPRB,0.17109E-05_JPRB, & |
313 |
|
✗ |
& 0.18776E-05_JPRB,0.19784E-05_JPRB,0.19240E-05_JPRB,0.51725E-07_JPRB /) |
314 |
|
|
KA(:, 5,11, 1) = (/ & |
315 |
|
|
& 0.45815E-08_JPRB,0.91420E-06_JPRB,0.13427E-05_JPRB,0.16458E-05_JPRB,0.19221E-05_JPRB, & |
316 |
|
✗ |
& 0.21323E-05_JPRB,0.22490E-05_JPRB,0.22263E-05_JPRB,0.57555E-07_JPRB /) |
317 |
|
|
KA(:, 1,12, 1) = (/ & |
318 |
|
|
& 0.49629E-08_JPRB,0.55223E-06_JPRB,0.78677E-06_JPRB,0.89789E-06_JPRB,0.96778E-06_JPRB, & |
319 |
|
✗ |
& 0.99148E-06_JPRB,0.98883E-06_JPRB,0.93028E-06_JPRB,0.30610E-07_JPRB /) |
320 |
|
|
KA(:, 2,12, 1) = (/ & |
321 |
|
|
& 0.45920E-08_JPRB,0.59832E-06_JPRB,0.85632E-06_JPRB,0.99730E-06_JPRB,0.11052E-05_JPRB, & |
322 |
|
✗ |
& 0.11665E-05_JPRB,0.11729E-05_JPRB,0.11125E-05_JPRB,0.34553E-07_JPRB /) |
323 |
|
|
KA(:, 3,12, 1) = (/ & |
324 |
|
|
& 0.42727E-08_JPRB,0.64760E-06_JPRB,0.93315E-06_JPRB,0.11041E-05_JPRB,0.12552E-05_JPRB, & |
325 |
|
✗ |
& 0.13521E-05_JPRB,0.13956E-05_JPRB,0.13333E-05_JPRB,0.38176E-07_JPRB /) |
326 |
|
|
KA(:, 4,12, 1) = (/ & |
327 |
|
|
& 0.39949E-08_JPRB,0.69926E-06_JPRB,0.10110E-05_JPRB,0.12304E-05_JPRB,0.14083E-05_JPRB, & |
328 |
|
✗ |
& 0.15442E-05_JPRB,0.16283E-05_JPRB,0.15837E-05_JPRB,0.42648E-07_JPRB /) |
329 |
|
|
KA(:, 5,12, 1) = (/ & |
330 |
|
|
& 0.37510E-08_JPRB,0.75239E-06_JPRB,0.11006E-05_JPRB,0.13535E-05_JPRB,0.15785E-05_JPRB, & |
331 |
|
✗ |
& 0.17547E-05_JPRB,0.18501E-05_JPRB,0.18298E-05_JPRB,0.47452E-07_JPRB /) |
332 |
|
|
KA(:, 1,13, 1) = (/ & |
333 |
|
|
& 0.40633E-08_JPRB,0.45378E-06_JPRB,0.64719E-06_JPRB,0.73637E-06_JPRB,0.79571E-06_JPRB, & |
334 |
|
✗ |
& 0.81503E-06_JPRB,0.81264E-06_JPRB,0.76488E-06_JPRB,0.25080E-07_JPRB /) |
335 |
|
|
KA(:, 2,13, 1) = (/ & |
336 |
|
|
& 0.37596E-08_JPRB,0.49208E-06_JPRB,0.70430E-06_JPRB,0.81894E-06_JPRB,0.90856E-06_JPRB, & |
337 |
|
✗ |
& 0.95919E-06_JPRB,0.96435E-06_JPRB,0.91411E-06_JPRB,0.28293E-07_JPRB /) |
338 |
|
|
KA(:, 3,13, 1) = (/ & |
339 |
|
|
& 0.34982E-08_JPRB,0.53259E-06_JPRB,0.76370E-06_JPRB,0.90761E-06_JPRB,0.10316E-05_JPRB, & |
340 |
|
✗ |
& 0.11116E-05_JPRB,0.11472E-05_JPRB,0.10956E-05_JPRB,0.31267E-07_JPRB /) |
341 |
|
|
KA(:, 4,13, 1) = (/ & |
342 |
|
|
& 0.32707E-08_JPRB,0.57488E-06_JPRB,0.82833E-06_JPRB,0.10096E-05_JPRB,0.11577E-05_JPRB, & |
343 |
|
✗ |
& 0.12688E-05_JPRB,0.13388E-05_JPRB,0.13015E-05_JPRB,0.34930E-07_JPRB /) |
344 |
|
|
KA(:, 5,13, 1) = (/ & |
345 |
|
|
& 0.30710E-08_JPRB,0.61832E-06_JPRB,0.90250E-06_JPRB,0.11120E-05_JPRB,0.12962E-05_JPRB, & |
346 |
|
✗ |
& 0.14424E-05_JPRB,0.15206E-05_JPRB,0.15032E-05_JPRB,0.38861E-07_JPRB /) |
347 |
|
|
KA(:, 1, 1, 2) = (/ & |
348 |
|
|
& 0.14215E-06_JPRB,0.65726E-04_JPRB,0.11327E-03_JPRB,0.15324E-03_JPRB,0.18473E-03_JPRB, & |
349 |
|
✗ |
& 0.20658E-03_JPRB,0.21603E-03_JPRB,0.20617E-03_JPRB,0.13252E-04_JPRB /) |
350 |
|
|
KA(:, 2, 1, 2) = (/ & |
351 |
|
|
& 0.13452E-06_JPRB,0.69521E-04_JPRB,0.12059E-03_JPRB,0.16342E-03_JPRB,0.19613E-03_JPRB, & |
352 |
|
✗ |
& 0.21987E-03_JPRB,0.22946E-03_JPRB,0.21879E-03_JPRB,0.14816E-04_JPRB /) |
353 |
|
|
KA(:, 3, 1, 2) = (/ & |
354 |
|
|
& 0.12766E-06_JPRB,0.73313E-04_JPRB,0.12786E-03_JPRB,0.17303E-03_JPRB,0.20754E-03_JPRB, & |
355 |
|
✗ |
& 0.23326E-03_JPRB,0.24324E-03_JPRB,0.22956E-03_JPRB,0.16536E-04_JPRB /) |
356 |
|
|
KA(:, 4, 1, 2) = (/ & |
357 |
|
|
& 0.12147E-06_JPRB,0.77087E-04_JPRB,0.13521E-03_JPRB,0.18263E-03_JPRB,0.21904E-03_JPRB, & |
358 |
|
✗ |
& 0.24614E-03_JPRB,0.25637E-03_JPRB,0.24060E-03_JPRB,0.18092E-04_JPRB /) |
359 |
|
|
KA(:, 5, 1, 2) = (/ & |
360 |
|
|
& 0.11584E-06_JPRB,0.80946E-04_JPRB,0.14233E-03_JPRB,0.19230E-03_JPRB,0.23047E-03_JPRB, & |
361 |
|
✗ |
& 0.25869E-03_JPRB,0.26904E-03_JPRB,0.25139E-03_JPRB,0.19768E-04_JPRB /) |
362 |
|
|
KA(:, 1, 2, 2) = (/ & |
363 |
|
|
& 0.11918E-06_JPRB,0.55167E-04_JPRB,0.94557E-04_JPRB,0.12760E-03_JPRB,0.15322E-03_JPRB, & |
364 |
|
✗ |
& 0.17148E-03_JPRB,0.17894E-03_JPRB,0.17049E-03_JPRB,0.10710E-04_JPRB /) |
365 |
|
|
KA(:, 2, 2, 2) = (/ & |
366 |
|
|
& 0.11264E-06_JPRB,0.58581E-04_JPRB,0.10113E-03_JPRB,0.13648E-03_JPRB,0.16335E-03_JPRB, & |
367 |
|
✗ |
& 0.18288E-03_JPRB,0.19059E-03_JPRB,0.18131E-03_JPRB,0.12067E-04_JPRB /) |
368 |
|
|
KA(:, 3, 2, 2) = (/ & |
369 |
|
|
& 0.10678E-06_JPRB,0.61935E-04_JPRB,0.10756E-03_JPRB,0.14497E-03_JPRB,0.17335E-03_JPRB, & |
370 |
|
✗ |
& 0.19437E-03_JPRB,0.20245E-03_JPRB,0.19070E-03_JPRB,0.13553E-04_JPRB /) |
371 |
|
|
|
372 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART1',1,ZHOOK_HANDLE) |
373 |
|
✗ |
END SUBROUTINE PART1 |
374 |
|
|
|
375 |
|
|
|
376 |
|
✗ |
SUBROUTINE PART2 |
377 |
|
|
|
378 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
379 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART2',0,ZHOOK_HANDLE) |
380 |
|
|
|
381 |
|
|
|
382 |
|
|
KA(:, 4, 2, 2) = (/ & |
383 |
|
|
& 0.10149E-06_JPRB,0.65261E-04_JPRB,0.11404E-03_JPRB,0.15331E-03_JPRB,0.18323E-03_JPRB, & |
384 |
|
✗ |
& 0.20559E-03_JPRB,0.21385E-03_JPRB,0.20024E-03_JPRB,0.14801E-04_JPRB /) |
385 |
|
|
KA(:, 5, 2, 2) = (/ & |
386 |
|
|
& 0.96699E-07_JPRB,0.68698E-04_JPRB,0.12038E-03_JPRB,0.16167E-03_JPRB,0.19308E-03_JPRB, & |
387 |
|
✗ |
& 0.21635E-03_JPRB,0.22479E-03_JPRB,0.20964E-03_JPRB,0.16245E-04_JPRB /) |
388 |
|
|
KA(:, 1, 3, 2) = (/ & |
389 |
|
|
& 0.10112E-06_JPRB,0.45399E-04_JPRB,0.77226E-04_JPRB,0.10397E-03_JPRB,0.12462E-03_JPRB, & |
390 |
|
✗ |
& 0.13956E-03_JPRB,0.14531E-03_JPRB,0.13816E-03_JPRB,0.83635E-05_JPRB /) |
391 |
|
|
KA(:, 2, 3, 2) = (/ & |
392 |
|
|
& 0.95381E-07_JPRB,0.48357E-04_JPRB,0.82986E-04_JPRB,0.11173E-03_JPRB,0.13338E-03_JPRB, & |
393 |
|
✗ |
& 0.14898E-03_JPRB,0.15534E-03_JPRB,0.14786E-03_JPRB,0.94915E-05_JPRB /) |
394 |
|
|
KA(:, 3, 3, 2) = (/ & |
395 |
|
|
& 0.90257E-07_JPRB,0.51355E-04_JPRB,0.88727E-04_JPRB,0.11920E-03_JPRB,0.14215E-03_JPRB, & |
396 |
|
✗ |
& 0.15859E-03_JPRB,0.16541E-03_JPRB,0.15622E-03_JPRB,0.10683E-04_JPRB /) |
397 |
|
|
KA(:, 4, 3, 2) = (/ & |
398 |
|
|
& 0.85653E-07_JPRB,0.54322E-04_JPRB,0.94369E-04_JPRB,0.12646E-03_JPRB,0.15072E-03_JPRB, & |
399 |
|
✗ |
& 0.16838E-03_JPRB,0.17536E-03_JPRB,0.16433E-03_JPRB,0.11764E-04_JPRB /) |
400 |
|
|
KA(:, 5, 3, 2) = (/ & |
401 |
|
|
& 0.81492E-07_JPRB,0.57300E-04_JPRB,0.99940E-04_JPRB,0.13355E-03_JPRB,0.15929E-03_JPRB, & |
402 |
|
✗ |
& 0.17800E-03_JPRB,0.18496E-03_JPRB,0.17234E-03_JPRB,0.12979E-04_JPRB /) |
403 |
|
|
KA(:, 1, 4, 2) = (/ & |
404 |
|
|
& 0.86132E-07_JPRB,0.36910E-04_JPRB,0.62346E-04_JPRB,0.83628E-04_JPRB,0.10025E-03_JPRB, & |
405 |
|
✗ |
& 0.11224E-03_JPRB,0.11706E-03_JPRB,0.11109E-03_JPRB,0.64715E-05_JPRB /) |
406 |
|
|
KA(:, 2, 4, 2) = (/ & |
407 |
|
|
& 0.81062E-07_JPRB,0.39490E-04_JPRB,0.67274E-04_JPRB,0.90384E-04_JPRB,0.10785E-03_JPRB, & |
408 |
|
✗ |
& 0.12026E-03_JPRB,0.12543E-03_JPRB,0.11944E-03_JPRB,0.73991E-05_JPRB /) |
409 |
|
|
KA(:, 3, 4, 2) = (/ & |
410 |
|
|
& 0.76553E-07_JPRB,0.42055E-04_JPRB,0.72269E-04_JPRB,0.96956E-04_JPRB,0.11528E-03_JPRB, & |
411 |
|
✗ |
& 0.12833E-03_JPRB,0.13396E-03_JPRB,0.12697E-03_JPRB,0.83899E-05_JPRB /) |
412 |
|
|
KA(:, 4, 4, 2) = (/ & |
413 |
|
|
& 0.72516E-07_JPRB,0.44696E-04_JPRB,0.77235E-04_JPRB,0.10321E-03_JPRB,0.12276E-03_JPRB, & |
414 |
|
✗ |
& 0.13674E-03_JPRB,0.14260E-03_JPRB,0.13384E-03_JPRB,0.93052E-05_JPRB /) |
415 |
|
|
KA(:, 5, 4, 2) = (/ & |
416 |
|
|
& 0.68881E-07_JPRB,0.47273E-04_JPRB,0.82118E-04_JPRB,0.10935E-03_JPRB,0.13016E-03_JPRB, & |
417 |
|
✗ |
& 0.14506E-03_JPRB,0.15080E-03_JPRB,0.14062E-03_JPRB,0.10314E-04_JPRB /) |
418 |
|
|
KA(:, 1, 5, 2) = (/ & |
419 |
|
|
& 0.73401E-07_JPRB,0.29772E-04_JPRB,0.49957E-04_JPRB,0.66720E-04_JPRB,0.80104E-04_JPRB, & |
420 |
|
✗ |
& 0.89761E-04_JPRB,0.93853E-04_JPRB,0.88953E-04_JPRB,0.50171E-05_JPRB /) |
421 |
|
|
KA(:, 2, 5, 2) = (/ & |
422 |
|
|
& 0.68916E-07_JPRB,0.31976E-04_JPRB,0.54217E-04_JPRB,0.72570E-04_JPRB,0.86671E-04_JPRB, & |
423 |
|
✗ |
& 0.96653E-04_JPRB,0.10073E-03_JPRB,0.95875E-04_JPRB,0.57746E-05_JPRB /) |
424 |
|
|
KA(:, 3, 5, 2) = (/ & |
425 |
|
|
& 0.64945E-07_JPRB,0.34219E-04_JPRB,0.58417E-04_JPRB,0.78327E-04_JPRB,0.92950E-04_JPRB, & |
426 |
|
✗ |
& 0.10358E-03_JPRB,0.10803E-03_JPRB,0.10274E-03_JPRB,0.66197E-05_JPRB /) |
427 |
|
|
KA(:, 4, 5, 2) = (/ & |
428 |
|
|
& 0.61405E-07_JPRB,0.36457E-04_JPRB,0.62694E-04_JPRB,0.83756E-04_JPRB,0.99356E-04_JPRB, & |
429 |
|
✗ |
& 0.11058E-03_JPRB,0.11542E-03_JPRB,0.10858E-03_JPRB,0.73729E-05_JPRB /) |
430 |
|
|
KA(:, 5, 5, 2) = (/ & |
431 |
|
|
& 0.58229E-07_JPRB,0.38713E-04_JPRB,0.67059E-04_JPRB,0.89033E-04_JPRB,0.10573E-03_JPRB, & |
432 |
|
✗ |
& 0.11764E-03_JPRB,0.12243E-03_JPRB,0.11440E-03_JPRB,0.82149E-05_JPRB /) |
433 |
|
|
KA(:, 1, 6, 2) = (/ & |
434 |
|
|
& 0.62723E-07_JPRB,0.23750E-04_JPRB,0.39643E-04_JPRB,0.52796E-04_JPRB,0.63478E-04_JPRB, & |
435 |
|
✗ |
& 0.71151E-04_JPRB,0.74640E-04_JPRB,0.70193E-04_JPRB,0.38899E-05_JPRB /) |
436 |
|
|
KA(:, 2, 6, 2) = (/ & |
437 |
|
|
& 0.58735E-07_JPRB,0.25657E-04_JPRB,0.43274E-04_JPRB,0.57719E-04_JPRB,0.69124E-04_JPRB, & |
438 |
|
✗ |
& 0.77375E-04_JPRB,0.80498E-04_JPRB,0.76543E-04_JPRB,0.44833E-05_JPRB /) |
439 |
|
|
KA(:, 3, 6, 2) = (/ & |
440 |
|
|
& 0.55222E-07_JPRB,0.27563E-04_JPRB,0.46866E-04_JPRB,0.62699E-04_JPRB,0.74494E-04_JPRB, & |
441 |
|
✗ |
& 0.82946E-04_JPRB,0.86653E-04_JPRB,0.82509E-04_JPRB,0.51635E-05_JPRB /) |
442 |
|
|
KA(:, 4, 6, 2) = (/ & |
443 |
|
|
& 0.52103E-07_JPRB,0.29528E-04_JPRB,0.50470E-04_JPRB,0.67473E-04_JPRB,0.79899E-04_JPRB, & |
444 |
|
✗ |
& 0.89004E-04_JPRB,0.92786E-04_JPRB,0.87628E-04_JPRB,0.58104E-05_JPRB /) |
445 |
|
|
KA(:, 5, 6, 2) = (/ & |
446 |
|
|
& 0.49317E-07_JPRB,0.31444E-04_JPRB,0.54175E-04_JPRB,0.72000E-04_JPRB,0.85322E-04_JPRB, & |
447 |
|
✗ |
& 0.94885E-04_JPRB,0.98826E-04_JPRB,0.92648E-04_JPRB,0.64997E-05_JPRB /) |
448 |
|
|
KA(:, 1, 7, 2) = (/ & |
449 |
|
|
& 0.53634E-07_JPRB,0.18862E-04_JPRB,0.31325E-04_JPRB,0.41575E-04_JPRB,0.50141E-04_JPRB, & |
450 |
|
✗ |
& 0.56190E-04_JPRB,0.58882E-04_JPRB,0.55026E-04_JPRB,0.29795E-05_JPRB /) |
451 |
|
|
KA(:, 2, 7, 2) = (/ & |
452 |
|
|
& 0.50084E-07_JPRB,0.20474E-04_JPRB,0.34342E-04_JPRB,0.45732E-04_JPRB,0.54884E-04_JPRB, & |
453 |
|
✗ |
& 0.61494E-04_JPRB,0.64187E-04_JPRB,0.60857E-04_JPRB,0.34589E-05_JPRB /) |
454 |
|
|
KA(:, 3, 7, 2) = (/ & |
455 |
|
|
& 0.46973E-07_JPRB,0.22063E-04_JPRB,0.37411E-04_JPRB,0.49893E-04_JPRB,0.59475E-04_JPRB, & |
456 |
|
✗ |
& 0.66279E-04_JPRB,0.69129E-04_JPRB,0.65758E-04_JPRB,0.39983E-05_JPRB /) |
457 |
|
|
KA(:, 4, 7, 2) = (/ & |
458 |
|
|
& 0.44224E-07_JPRB,0.23764E-04_JPRB,0.40481E-04_JPRB,0.54107E-04_JPRB,0.64026E-04_JPRB, & |
459 |
|
✗ |
& 0.71350E-04_JPRB,0.74328E-04_JPRB,0.70513E-04_JPRB,0.45526E-05_JPRB /) |
460 |
|
|
KA(:, 5, 7, 2) = (/ & |
461 |
|
|
& 0.41777E-07_JPRB,0.25434E-04_JPRB,0.43555E-04_JPRB,0.57958E-04_JPRB,0.68599E-04_JPRB, & |
462 |
|
✗ |
& 0.76304E-04_JPRB,0.79456E-04_JPRB,0.74649E-04_JPRB,0.51046E-05_JPRB /) |
463 |
|
|
KA(:, 1, 8, 2) = (/ & |
464 |
|
|
& 0.45857E-07_JPRB,0.14945E-04_JPRB,0.24594E-04_JPRB,0.32696E-04_JPRB,0.39571E-04_JPRB, & |
465 |
|
✗ |
& 0.44348E-04_JPRB,0.46090E-04_JPRB,0.43034E-04_JPRB,0.22833E-05_JPRB /) |
466 |
|
|
KA(:, 2, 8, 2) = (/ & |
467 |
|
|
& 0.42697E-07_JPRB,0.16265E-04_JPRB,0.27198E-04_JPRB,0.36108E-04_JPRB,0.43381E-04_JPRB, & |
468 |
|
✗ |
& 0.48642E-04_JPRB,0.50943E-04_JPRB,0.47848E-04_JPRB,0.26669E-05_JPRB /) |
469 |
|
|
KA(:, 3, 8, 2) = (/ & |
470 |
|
|
& 0.39944E-07_JPRB,0.17616E-04_JPRB,0.29775E-04_JPRB,0.39577E-04_JPRB,0.47366E-04_JPRB, & |
471 |
|
✗ |
& 0.52791E-04_JPRB,0.54992E-04_JPRB,0.52236E-04_JPRB,0.30932E-05_JPRB /) |
472 |
|
|
KA(:, 4, 8, 2) = (/ & |
473 |
|
|
& 0.37522E-07_JPRB,0.19042E-04_JPRB,0.32351E-04_JPRB,0.43126E-04_JPRB,0.51153E-04_JPRB, & |
474 |
|
✗ |
& 0.56987E-04_JPRB,0.59316E-04_JPRB,0.56438E-04_JPRB,0.35666E-05_JPRB /) |
475 |
|
|
KA(:, 5, 8, 2) = (/ & |
476 |
|
|
& 0.35376E-07_JPRB,0.20476E-04_JPRB,0.34946E-04_JPRB,0.46521E-04_JPRB,0.55009E-04_JPRB, & |
477 |
|
✗ |
& 0.61221E-04_JPRB,0.63714E-04_JPRB,0.60035E-04_JPRB,0.40037E-05_JPRB /) |
478 |
|
|
KA(:, 1, 9, 2) = (/ & |
479 |
|
|
& 0.39233E-07_JPRB,0.11817E-04_JPRB,0.19254E-04_JPRB,0.25596E-04_JPRB,0.30843E-04_JPRB, & |
480 |
|
✗ |
& 0.34574E-04_JPRB,0.36035E-04_JPRB,0.33425E-04_JPRB,0.17673E-05_JPRB /) |
481 |
|
|
KA(:, 2, 9, 2) = (/ & |
482 |
|
|
& 0.36418E-07_JPRB,0.12914E-04_JPRB,0.21404E-04_JPRB,0.28372E-04_JPRB,0.34161E-04_JPRB, & |
483 |
|
✗ |
& 0.38321E-04_JPRB,0.40053E-04_JPRB,0.37435E-04_JPRB,0.20751E-05_JPRB /) |
484 |
|
|
KA(:, 3, 9, 2) = (/ & |
485 |
|
|
& 0.33979E-07_JPRB,0.14026E-04_JPRB,0.23574E-04_JPRB,0.31316E-04_JPRB,0.37514E-04_JPRB, & |
486 |
|
✗ |
& 0.41977E-04_JPRB,0.43747E-04_JPRB,0.41346E-04_JPRB,0.24151E-05_JPRB /) |
487 |
|
|
KA(:, 4, 9, 2) = (/ & |
488 |
|
|
& 0.31844E-07_JPRB,0.15205E-04_JPRB,0.25770E-04_JPRB,0.34231E-04_JPRB,0.40723E-04_JPRB, & |
489 |
|
✗ |
& 0.45315E-04_JPRB,0.47202E-04_JPRB,0.44869E-04_JPRB,0.28151E-05_JPRB /) |
490 |
|
|
KA(:, 5, 9, 2) = (/ & |
491 |
|
|
& 0.29961E-07_JPRB,0.16420E-04_JPRB,0.27955E-04_JPRB,0.37187E-04_JPRB,0.43941E-04_JPRB, & |
492 |
|
✗ |
& 0.48873E-04_JPRB,0.50856E-04_JPRB,0.48170E-04_JPRB,0.31733E-05_JPRB /) |
493 |
|
|
KA(:, 1,10, 2) = (/ & |
494 |
|
|
& 0.33373E-07_JPRB,0.93505E-05_JPRB,0.15216E-04_JPRB,0.20198E-04_JPRB,0.24244E-04_JPRB, & |
495 |
|
✗ |
& 0.27077E-04_JPRB,0.28186E-04_JPRB,0.25996E-04_JPRB,0.13941E-05_JPRB /) |
496 |
|
|
KA(:, 2,10, 2) = (/ & |
497 |
|
|
& 0.30893E-07_JPRB,0.10284E-04_JPRB,0.16902E-04_JPRB,0.22468E-04_JPRB,0.27072E-04_JPRB, & |
498 |
|
✗ |
& 0.30382E-04_JPRB,0.31603E-04_JPRB,0.29456E-04_JPRB,0.16352E-05_JPRB /) |
499 |
|
|
KA(:, 3,10, 2) = (/ & |
500 |
|
|
& 0.28754E-07_JPRB,0.11207E-04_JPRB,0.18715E-04_JPRB,0.24849E-04_JPRB,0.29815E-04_JPRB, & |
501 |
|
✗ |
& 0.33379E-04_JPRB,0.34901E-04_JPRB,0.32836E-04_JPRB,0.19188E-05_JPRB /) |
502 |
|
|
KA(:, 4,10, 2) = (/ & |
503 |
|
|
& 0.26892E-07_JPRB,0.12172E-04_JPRB,0.20578E-04_JPRB,0.27269E-04_JPRB,0.32536E-04_JPRB, & |
504 |
|
✗ |
& 0.36182E-04_JPRB,0.37703E-04_JPRB,0.35750E-04_JPRB,0.22467E-05_JPRB /) |
505 |
|
|
KA(:, 5,10, 2) = (/ & |
506 |
|
|
& 0.25255E-07_JPRB,0.13195E-04_JPRB,0.22422E-04_JPRB,0.29781E-04_JPRB,0.35220E-04_JPRB, & |
507 |
|
✗ |
& 0.39157E-04_JPRB,0.40719E-04_JPRB,0.38729E-04_JPRB,0.25535E-05_JPRB /) |
508 |
|
|
KA(:, 1,11, 2) = (/ & |
509 |
|
|
& 0.27335E-07_JPRB,0.77491E-05_JPRB,0.12607E-04_JPRB,0.16695E-04_JPRB,0.20093E-04_JPRB, & |
510 |
|
✗ |
& 0.22431E-04_JPRB,0.23345E-04_JPRB,0.21522E-04_JPRB,0.11569E-05_JPRB /) |
511 |
|
|
KA(:, 2,11, 2) = (/ & |
512 |
|
|
& 0.25303E-07_JPRB,0.85322E-05_JPRB,0.14022E-04_JPRB,0.18593E-04_JPRB,0.22378E-04_JPRB, & |
513 |
|
✗ |
& 0.25133E-04_JPRB,0.26161E-04_JPRB,0.24379E-04_JPRB,0.13709E-05_JPRB /) |
514 |
|
|
KA(:, 3,11, 2) = (/ & |
515 |
|
|
& 0.23551E-07_JPRB,0.92912E-05_JPRB,0.15536E-04_JPRB,0.20618E-04_JPRB,0.24722E-04_JPRB, & |
516 |
|
✗ |
& 0.27647E-04_JPRB,0.28874E-04_JPRB,0.27196E-04_JPRB,0.16099E-05_JPRB /) |
517 |
|
|
KA(:, 4,11, 2) = (/ & |
518 |
|
|
& 0.22025E-07_JPRB,0.10117E-04_JPRB,0.17115E-04_JPRB,0.22645E-04_JPRB,0.26974E-04_JPRB, & |
519 |
|
✗ |
& 0.29947E-04_JPRB,0.31210E-04_JPRB,0.29581E-04_JPRB,0.18845E-05_JPRB /) |
520 |
|
|
KA(:, 5,11, 2) = (/ & |
521 |
|
|
& 0.20684E-07_JPRB,0.10977E-04_JPRB,0.18645E-04_JPRB,0.24734E-04_JPRB,0.29203E-04_JPRB, & |
522 |
|
✗ |
& 0.32453E-04_JPRB,0.33733E-04_JPRB,0.32056E-04_JPRB,0.21326E-05_JPRB /) |
523 |
|
|
KA(:, 1,12, 2) = (/ & |
524 |
|
|
& 0.22380E-07_JPRB,0.64144E-05_JPRB,0.10436E-04_JPRB,0.13802E-04_JPRB,0.16622E-04_JPRB, & |
525 |
|
✗ |
& 0.18557E-04_JPRB,0.19314E-04_JPRB,0.17793E-04_JPRB,0.95906E-06_JPRB /) |
526 |
|
|
KA(:, 2,12, 2) = (/ & |
527 |
|
|
& 0.20716E-07_JPRB,0.70603E-05_JPRB,0.11625E-04_JPRB,0.15385E-04_JPRB,0.18503E-04_JPRB, & |
528 |
|
✗ |
& 0.20776E-04_JPRB,0.21630E-04_JPRB,0.20152E-04_JPRB,0.11363E-05_JPRB /) |
529 |
|
|
KA(:, 3,12, 2) = (/ & |
530 |
|
|
& 0.19282E-07_JPRB,0.76960E-05_JPRB,0.12886E-04_JPRB,0.17087E-04_JPRB,0.20475E-04_JPRB, & |
531 |
|
✗ |
& 0.22867E-04_JPRB,0.23856E-04_JPRB,0.22506E-04_JPRB,0.13400E-05_JPRB /) |
532 |
|
|
KA(:, 4,12, 2) = (/ & |
533 |
|
|
& 0.18032E-07_JPRB,0.83983E-05_JPRB,0.14206E-04_JPRB,0.18783E-04_JPRB,0.22334E-04_JPRB, & |
534 |
|
✗ |
& 0.24764E-04_JPRB,0.25815E-04_JPRB,0.24461E-04_JPRB,0.15637E-05_JPRB /) |
535 |
|
|
KA(:, 5,12, 2) = (/ & |
536 |
|
|
& 0.16934E-07_JPRB,0.91186E-05_JPRB,0.15491E-04_JPRB,0.20513E-04_JPRB,0.24201E-04_JPRB, & |
537 |
|
✗ |
& 0.26864E-04_JPRB,0.27917E-04_JPRB,0.26491E-04_JPRB,0.17707E-05_JPRB /) |
538 |
|
|
KA(:, 1,13, 2) = (/ & |
539 |
|
|
& 0.18323E-07_JPRB,0.53022E-05_JPRB,0.86273E-05_JPRB,0.11385E-04_JPRB,0.13729E-04_JPRB, & |
540 |
|
✗ |
& 0.15318E-04_JPRB,0.15952E-04_JPRB,0.14693E-04_JPRB,0.78927E-06_JPRB /) |
541 |
|
|
KA(:, 2,13, 2) = (/ & |
542 |
|
|
& 0.16961E-07_JPRB,0.58316E-05_JPRB,0.96204E-05_JPRB,0.12717E-04_JPRB,0.15275E-04_JPRB, & |
543 |
|
✗ |
& 0.17141E-04_JPRB,0.17863E-04_JPRB,0.16639E-04_JPRB,0.93659E-06_JPRB /) |
544 |
|
|
KA(:, 3,13, 2) = (/ & |
545 |
|
|
& 0.15787E-07_JPRB,0.63710E-05_JPRB,0.10675E-04_JPRB,0.14140E-04_JPRB,0.16925E-04_JPRB, & |
546 |
|
✗ |
& 0.18881E-04_JPRB,0.19675E-04_JPRB,0.18564E-04_JPRB,0.11050E-05_JPRB /) |
547 |
|
|
KA(:, 4,13, 2) = (/ & |
548 |
|
|
& 0.14764E-07_JPRB,0.69607E-05_JPRB,0.11779E-04_JPRB,0.15554E-04_JPRB,0.18475E-04_JPRB, & |
549 |
|
✗ |
& 0.20461E-04_JPRB,0.21320E-04_JPRB,0.20207E-04_JPRB,0.12868E-05_JPRB /) |
550 |
|
|
KA(:, 5,13, 2) = (/ & |
551 |
|
|
& 0.13865E-07_JPRB,0.75611E-05_JPRB,0.12843E-04_JPRB,0.16991E-04_JPRB,0.20029E-04_JPRB, & |
552 |
|
✗ |
& 0.22208E-04_JPRB,0.23079E-04_JPRB,0.21838E-04_JPRB,0.14565E-05_JPRB /) |
553 |
|
|
KA(:, 1, 1, 3) = (/ & |
554 |
|
|
& 0.55948E-06_JPRB,0.43472E-03_JPRB,0.65689E-03_JPRB,0.80237E-03_JPRB,0.90326E-03_JPRB, & |
555 |
|
✗ |
& 0.95995E-03_JPRB,0.94242E-03_JPRB,0.81801E-03_JPRB,0.18380E-03_JPRB /) |
556 |
|
|
KA(:, 2, 1, 3) = (/ & |
557 |
|
|
& 0.53175E-06_JPRB,0.45395E-03_JPRB,0.68779E-03_JPRB,0.84040E-03_JPRB,0.94598E-03_JPRB, & |
558 |
|
✗ |
& 0.10011E-02_JPRB,0.98481E-03_JPRB,0.85748E-03_JPRB,0.19567E-03_JPRB /) |
559 |
|
|
KA(:, 3, 1, 3) = (/ & |
560 |
|
|
& 0.50648E-06_JPRB,0.46835E-03_JPRB,0.71403E-03_JPRB,0.87684E-03_JPRB,0.98520E-03_JPRB, & |
561 |
|
✗ |
& 0.10393E-02_JPRB,0.10233E-02_JPRB,0.89729E-03_JPRB,0.20725E-03_JPRB /) |
562 |
|
|
KA(:, 4, 1, 3) = (/ & |
563 |
|
|
& 0.48330E-06_JPRB,0.48143E-03_JPRB,0.73979E-03_JPRB,0.91063E-03_JPRB,0.10212E-02_JPRB, & |
564 |
|
✗ |
& 0.10762E-02_JPRB,0.10600E-02_JPRB,0.93507E-03_JPRB,0.21814E-03_JPRB /) |
565 |
|
|
KA(:, 5, 1, 3) = (/ & |
566 |
|
|
& 0.46195E-06_JPRB,0.49413E-03_JPRB,0.76470E-03_JPRB,0.94208E-03_JPRB,0.10547E-02_JPRB, & |
567 |
|
✗ |
& 0.11099E-02_JPRB,0.10960E-02_JPRB,0.97164E-03_JPRB,0.23056E-03_JPRB /) |
568 |
|
|
KA(:, 1, 2, 3) = (/ & |
569 |
|
|
& 0.46813E-06_JPRB,0.36711E-03_JPRB,0.55743E-03_JPRB,0.68070E-03_JPRB,0.76614E-03_JPRB, & |
570 |
|
✗ |
& 0.81442E-03_JPRB,0.79940E-03_JPRB,0.69691E-03_JPRB,0.14988E-03_JPRB /) |
571 |
|
|
KA(:, 2, 2, 3) = (/ & |
572 |
|
|
& 0.44450E-06_JPRB,0.38413E-03_JPRB,0.58502E-03_JPRB,0.71506E-03_JPRB,0.80409E-03_JPRB, & |
573 |
|
✗ |
& 0.85191E-03_JPRB,0.83722E-03_JPRB,0.73231E-03_JPRB,0.15985E-03_JPRB /) |
574 |
|
|
KA(:, 3, 2, 3) = (/ & |
575 |
|
|
& 0.42301E-06_JPRB,0.39744E-03_JPRB,0.60852E-03_JPRB,0.74741E-03_JPRB,0.83920E-03_JPRB, & |
576 |
|
✗ |
& 0.88588E-03_JPRB,0.87206E-03_JPRB,0.76677E-03_JPRB,0.16968E-03_JPRB /) |
577 |
|
|
KA(:, 4, 2, 3) = (/ & |
578 |
|
|
& 0.40335E-06_JPRB,0.40927E-03_JPRB,0.63200E-03_JPRB,0.77835E-03_JPRB,0.87190E-03_JPRB, & |
579 |
|
✗ |
& 0.91843E-03_JPRB,0.90467E-03_JPRB,0.79859E-03_JPRB,0.17948E-03_JPRB /) |
580 |
|
|
KA(:, 5, 2, 3) = (/ & |
581 |
|
|
& 0.38529E-06_JPRB,0.42034E-03_JPRB,0.65353E-03_JPRB,0.80758E-03_JPRB,0.90248E-03_JPRB, & |
582 |
|
✗ |
& 0.94929E-03_JPRB,0.93715E-03_JPRB,0.83136E-03_JPRB,0.19018E-03_JPRB /) |
583 |
|
|
KA(:, 1, 3, 3) = (/ & |
584 |
|
|
& 0.39591E-06_JPRB,0.30459E-03_JPRB,0.46364E-03_JPRB,0.56590E-03_JPRB,0.63680E-03_JPRB, & |
585 |
|
✗ |
& 0.67681E-03_JPRB,0.66517E-03_JPRB,0.58106E-03_JPRB,0.11936E-03_JPRB /) |
586 |
|
|
KA(:, 2, 3, 3) = (/ & |
587 |
|
|
& 0.37538E-06_JPRB,0.32036E-03_JPRB,0.48874E-03_JPRB,0.59649E-03_JPRB,0.67170E-03_JPRB, & |
588 |
|
✗ |
& 0.71161E-03_JPRB,0.69943E-03_JPRB,0.61159E-03_JPRB,0.12804E-03_JPRB /) |
589 |
|
|
KA(:, 3, 3, 3) = (/ & |
590 |
|
|
& 0.35675E-06_JPRB,0.33321E-03_JPRB,0.50999E-03_JPRB,0.62591E-03_JPRB,0.70319E-03_JPRB, & |
591 |
|
✗ |
& 0.74333E-03_JPRB,0.73015E-03_JPRB,0.64070E-03_JPRB,0.13642E-03_JPRB /) |
592 |
|
|
KA(:, 4, 3, 3) = (/ & |
593 |
|
|
& 0.33978E-06_JPRB,0.34382E-03_JPRB,0.53102E-03_JPRB,0.65391E-03_JPRB,0.73278E-03_JPRB, & |
594 |
|
✗ |
& 0.77303E-03_JPRB,0.75990E-03_JPRB,0.66979E-03_JPRB,0.14477E-03_JPRB /) |
595 |
|
|
KA(:, 5, 3, 3) = (/ & |
596 |
|
|
& 0.32422E-06_JPRB,0.35416E-03_JPRB,0.55071E-03_JPRB,0.68042E-03_JPRB,0.76041E-03_JPRB, & |
597 |
|
✗ |
& 0.80118E-03_JPRB,0.78914E-03_JPRB,0.69923E-03_JPRB,0.15365E-03_JPRB /) |
598 |
|
|
KA(:, 1, 4, 3) = (/ & |
599 |
|
|
& 0.33598E-06_JPRB,0.24970E-03_JPRB,0.38053E-03_JPRB,0.46464E-03_JPRB,0.52234E-03_JPRB, & |
600 |
|
✗ |
& 0.55488E-03_JPRB,0.54675E-03_JPRB,0.47794E-03_JPRB,0.95275E-04_JPRB /) |
601 |
|
|
KA(:, 2, 4, 3) = (/ & |
602 |
|
|
& 0.31800E-06_JPRB,0.26415E-03_JPRB,0.40313E-03_JPRB,0.49210E-03_JPRB,0.55359E-03_JPRB, & |
603 |
|
✗ |
& 0.58661E-03_JPRB,0.57694E-03_JPRB,0.50393E-03_JPRB,0.10292E-03_JPRB /) |
604 |
|
|
KA(:, 3, 4, 3) = (/ & |
605 |
|
|
& 0.30177E-06_JPRB,0.27638E-03_JPRB,0.42268E-03_JPRB,0.51823E-03_JPRB,0.58348E-03_JPRB, & |
606 |
|
✗ |
& 0.61591E-03_JPRB,0.60497E-03_JPRB,0.52947E-03_JPRB,0.11016E-03_JPRB /) |
607 |
|
|
KA(:, 4, 4, 3) = (/ & |
608 |
|
|
& 0.28703E-06_JPRB,0.28612E-03_JPRB,0.44165E-03_JPRB,0.54326E-03_JPRB,0.61010E-03_JPRB, & |
609 |
|
✗ |
& 0.64299E-03_JPRB,0.63151E-03_JPRB,0.55558E-03_JPRB,0.11708E-03_JPRB /) |
610 |
|
|
KA(:, 5, 4, 3) = (/ & |
611 |
|
|
& 0.27356E-06_JPRB,0.29550E-03_JPRB,0.45903E-03_JPRB,0.56703E-03_JPRB,0.63522E-03_JPRB, & |
612 |
|
✗ |
& 0.66839E-03_JPRB,0.65812E-03_JPRB,0.58142E-03_JPRB,0.12444E-03_JPRB /) |
613 |
|
|
KA(:, 1, 5, 3) = (/ & |
614 |
|
|
& 0.28517E-06_JPRB,0.20305E-03_JPRB,0.30940E-03_JPRB,0.37854E-03_JPRB,0.42516E-03_JPRB, & |
615 |
|
✗ |
& 0.45167E-03_JPRB,0.44617E-03_JPRB,0.39006E-03_JPRB,0.76394E-04_JPRB /) |
616 |
|
|
KA(:, 2, 5, 3) = (/ & |
617 |
|
|
& 0.26943E-06_JPRB,0.21631E-03_JPRB,0.32942E-03_JPRB,0.40279E-03_JPRB,0.45281E-03_JPRB, & |
618 |
|
✗ |
& 0.47959E-03_JPRB,0.47274E-03_JPRB,0.41219E-03_JPRB,0.83093E-04_JPRB /) |
619 |
|
|
KA(:, 3, 5, 3) = (/ & |
620 |
|
|
& 0.25526E-06_JPRB,0.22760E-03_JPRB,0.34736E-03_JPRB,0.42603E-03_JPRB,0.47928E-03_JPRB, & |
621 |
|
✗ |
& 0.50573E-03_JPRB,0.49753E-03_JPRB,0.43423E-03_JPRB,0.89137E-04_JPRB /) |
622 |
|
|
KA(:, 4, 5, 3) = (/ & |
623 |
|
|
& 0.24245E-06_JPRB,0.23661E-03_JPRB,0.36423E-03_JPRB,0.44832E-03_JPRB,0.50373E-03_JPRB, & |
624 |
|
✗ |
& 0.53021E-03_JPRB,0.52092E-03_JPRB,0.45715E-03_JPRB,0.95026E-04_JPRB /) |
625 |
|
|
KA(:, 5, 5, 3) = (/ & |
626 |
|
|
& 0.23079E-06_JPRB,0.24490E-03_JPRB,0.37979E-03_JPRB,0.46958E-03_JPRB,0.52671E-03_JPRB, & |
627 |
|
✗ |
& 0.55360E-03_JPRB,0.54422E-03_JPRB,0.47982E-03_JPRB,0.10100E-03_JPRB /) |
628 |
|
|
KA(:, 1, 6, 3) = (/ & |
629 |
|
|
& 0.24258E-06_JPRB,0.16374E-03_JPRB,0.24889E-03_JPRB,0.30526E-03_JPRB,0.34256E-03_JPRB, & |
630 |
|
✗ |
& 0.36437E-03_JPRB,0.36054E-03_JPRB,0.31643E-03_JPRB,0.60983E-04_JPRB /) |
631 |
|
|
KA(:, 2, 6, 3) = (/ & |
632 |
|
|
& 0.22873E-06_JPRB,0.17557E-03_JPRB,0.26674E-03_JPRB,0.32662E-03_JPRB,0.36698E-03_JPRB, & |
633 |
|
✗ |
& 0.38862E-03_JPRB,0.38395E-03_JPRB,0.33481E-03_JPRB,0.66717E-04_JPRB /) |
634 |
|
|
KA(:, 3, 6, 3) = (/ & |
635 |
|
|
& 0.21632E-06_JPRB,0.18596E-03_JPRB,0.28315E-03_JPRB,0.34710E-03_JPRB,0.39032E-03_JPRB, & |
636 |
|
✗ |
& 0.41186E-03_JPRB,0.40597E-03_JPRB,0.35347E-03_JPRB,0.71805E-04_JPRB /) |
637 |
|
|
KA(:, 4, 6, 3) = (/ & |
638 |
|
|
& 0.20515E-06_JPRB,0.19412E-03_JPRB,0.29825E-03_JPRB,0.36672E-03_JPRB,0.41223E-03_JPRB, & |
639 |
|
✗ |
& 0.43370E-03_JPRB,0.42654E-03_JPRB,0.37308E-03_JPRB,0.76950E-04_JPRB /) |
640 |
|
|
KA(:, 5, 6, 3) = (/ & |
641 |
|
|
& 0.19500E-06_JPRB,0.20163E-03_JPRB,0.31177E-03_JPRB,0.38573E-03_JPRB,0.43298E-03_JPRB, & |
642 |
|
✗ |
& 0.45474E-03_JPRB,0.44659E-03_JPRB,0.39273E-03_JPRB,0.81854E-04_JPRB /) |
643 |
|
|
KA(:, 1, 7, 3) = (/ & |
644 |
|
|
& 0.20644E-06_JPRB,0.13088E-03_JPRB,0.19883E-03_JPRB,0.24453E-03_JPRB,0.27379E-03_JPRB, & |
645 |
|
✗ |
& 0.29133E-03_JPRB,0.28972E-03_JPRB,0.25527E-03_JPRB,0.48483E-04_JPRB /) |
646 |
|
|
KA(:, 2, 7, 3) = (/ & |
647 |
|
|
& 0.19422E-06_JPRB,0.14123E-03_JPRB,0.21464E-03_JPRB,0.26307E-03_JPRB,0.29520E-03_JPRB, & |
648 |
|
✗ |
& 0.31262E-03_JPRB,0.30976E-03_JPRB,0.27057E-03_JPRB,0.53189E-04_JPRB /) |
649 |
|
|
KA(:, 3, 7, 3) = (/ & |
650 |
|
|
& 0.18334E-06_JPRB,0.15056E-03_JPRB,0.22945E-03_JPRB,0.28102E-03_JPRB,0.31570E-03_JPRB, & |
651 |
|
✗ |
& 0.33336E-03_JPRB,0.32921E-03_JPRB,0.28657E-03_JPRB,0.57664E-04_JPRB /) |
652 |
|
|
KA(:, 4, 7, 3) = (/ & |
653 |
|
|
& 0.17359E-06_JPRB,0.15845E-03_JPRB,0.24254E-03_JPRB,0.29812E-03_JPRB,0.33533E-03_JPRB, & |
654 |
|
✗ |
& 0.35273E-03_JPRB,0.34737E-03_JPRB,0.30290E-03_JPRB,0.62080E-04_JPRB /) |
655 |
|
|
KA(:, 5, 7, 3) = (/ & |
656 |
|
|
& 0.16476E-06_JPRB,0.16515E-03_JPRB,0.25472E-03_JPRB,0.31492E-03_JPRB,0.35368E-03_JPRB, & |
657 |
|
✗ |
& 0.37134E-03_JPRB,0.36466E-03_JPRB,0.31971E-03_JPRB,0.66283E-04_JPRB /) |
658 |
|
|
KA(:, 1, 8, 3) = (/ & |
659 |
|
|
& 0.17564E-06_JPRB,0.10377E-03_JPRB,0.15799E-03_JPRB,0.19443E-03_JPRB,0.21775E-03_JPRB, & |
660 |
|
✗ |
& 0.23221E-03_JPRB,0.23178E-03_JPRB,0.20518E-03_JPRB,0.38613E-04_JPRB /) |
661 |
|
|
KA(:, 2, 8, 3) = (/ & |
662 |
|
|
& 0.16486E-06_JPRB,0.11291E-03_JPRB,0.17177E-03_JPRB,0.21060E-03_JPRB,0.23605E-03_JPRB, & |
663 |
|
✗ |
& 0.25023E-03_JPRB,0.24860E-03_JPRB,0.21840E-03_JPRB,0.42574E-04_JPRB /) |
664 |
|
|
KA(:, 3, 8, 3) = (/ & |
665 |
|
|
& 0.15532E-06_JPRB,0.12160E-03_JPRB,0.18472E-03_JPRB,0.22613E-03_JPRB,0.25383E-03_JPRB, & |
666 |
|
✗ |
& 0.26813E-03_JPRB,0.26569E-03_JPRB,0.23149E-03_JPRB,0.46438E-04_JPRB /) |
667 |
|
|
KA(:, 4, 8, 3) = (/ & |
668 |
|
|
& 0.14679E-06_JPRB,0.12871E-03_JPRB,0.19629E-03_JPRB,0.24117E-03_JPRB,0.27101E-03_JPRB, & |
669 |
|
✗ |
& 0.28546E-03_JPRB,0.28148E-03_JPRB,0.24511E-03_JPRB,0.50132E-04_JPRB /) |
670 |
|
|
|
671 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART2',1,ZHOOK_HANDLE) |
672 |
|
✗ |
END SUBROUTINE PART2 |
673 |
|
|
|
674 |
|
|
|
675 |
|
✗ |
SUBROUTINE PART3 |
676 |
|
|
|
677 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
678 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART3',0,ZHOOK_HANDLE) |
679 |
|
|
|
680 |
|
|
|
681 |
|
|
KA(:, 5, 8, 3) = (/ & |
682 |
|
|
& 0.13913E-06_JPRB,0.13470E-03_JPRB,0.20711E-03_JPRB,0.25583E-03_JPRB,0.28735E-03_JPRB, & |
683 |
|
✗ |
& 0.30171E-03_JPRB,0.29653E-03_JPRB,0.25931E-03_JPRB,0.53892E-04_JPRB /) |
684 |
|
|
KA(:, 1, 9, 3) = (/ & |
685 |
|
|
& 0.14950E-06_JPRB,0.81941E-04_JPRB,0.12473E-03_JPRB,0.15363E-03_JPRB,0.17257E-03_JPRB, & |
686 |
|
✗ |
& 0.18409E-03_JPRB,0.18424E-03_JPRB,0.16439E-03_JPRB,0.30772E-04_JPRB /) |
687 |
|
|
KA(:, 2, 9, 3) = (/ & |
688 |
|
|
& 0.13998E-06_JPRB,0.89702E-04_JPRB,0.13655E-03_JPRB,0.16763E-03_JPRB,0.18779E-03_JPRB, & |
689 |
|
✗ |
& 0.19919E-03_JPRB,0.19877E-03_JPRB,0.17581E-03_JPRB,0.34022E-04_JPRB /) |
690 |
|
|
KA(:, 3, 9, 3) = (/ & |
691 |
|
|
& 0.13160E-06_JPRB,0.97263E-04_JPRB,0.14776E-03_JPRB,0.18089E-03_JPRB,0.20292E-03_JPRB, & |
692 |
|
✗ |
& 0.21451E-03_JPRB,0.21317E-03_JPRB,0.18640E-03_JPRB,0.37381E-04_JPRB /) |
693 |
|
|
KA(:, 4, 9, 3) = (/ & |
694 |
|
|
& 0.12415E-06_JPRB,0.10389E-03_JPRB,0.15817E-03_JPRB,0.19404E-03_JPRB,0.21794E-03_JPRB, & |
695 |
|
✗ |
& 0.22980E-03_JPRB,0.22715E-03_JPRB,0.19784E-03_JPRB,0.40457E-04_JPRB /) |
696 |
|
|
KA(:, 5, 9, 3) = (/ & |
697 |
|
|
& 0.11749E-06_JPRB,0.10934E-03_JPRB,0.16768E-03_JPRB,0.20680E-03_JPRB,0.23234E-03_JPRB, & |
698 |
|
✗ |
& 0.24414E-03_JPRB,0.24026E-03_JPRB,0.20959E-03_JPRB,0.43586E-04_JPRB /) |
699 |
|
|
KA(:, 1,10, 3) = (/ & |
700 |
|
|
& 0.12658E-06_JPRB,0.64763E-04_JPRB,0.98690E-04_JPRB,0.12170E-03_JPRB,0.13709E-03_JPRB, & |
701 |
|
✗ |
& 0.14644E-03_JPRB,0.14709E-03_JPRB,0.13215E-03_JPRB,0.24737E-04_JPRB /) |
702 |
|
|
KA(:, 2,10, 3) = (/ & |
703 |
|
|
& 0.11826E-06_JPRB,0.71405E-04_JPRB,0.10875E-03_JPRB,0.13368E-03_JPRB,0.14978E-03_JPRB, & |
704 |
|
✗ |
& 0.15901E-03_JPRB,0.15937E-03_JPRB,0.14153E-03_JPRB,0.27487E-04_JPRB /) |
705 |
|
|
KA(:, 3,10, 3) = (/ & |
706 |
|
|
& 0.11097E-06_JPRB,0.77857E-04_JPRB,0.11842E-03_JPRB,0.14510E-03_JPRB,0.16261E-03_JPRB, & |
707 |
|
✗ |
& 0.17204E-03_JPRB,0.17129E-03_JPRB,0.15041E-03_JPRB,0.30250E-04_JPRB /) |
708 |
|
|
KA(:, 4,10, 3) = (/ & |
709 |
|
|
& 0.10451E-06_JPRB,0.83764E-04_JPRB,0.12762E-03_JPRB,0.15625E-03_JPRB,0.17544E-03_JPRB, & |
710 |
|
✗ |
& 0.18516E-03_JPRB,0.18345E-03_JPRB,0.16010E-03_JPRB,0.32891E-04_JPRB /) |
711 |
|
|
KA(:, 5,10, 3) = (/ & |
712 |
|
|
& 0.98767E-07_JPRB,0.88833E-04_JPRB,0.13595E-03_JPRB,0.16723E-03_JPRB,0.18798E-03_JPRB, & |
713 |
|
✗ |
& 0.19766E-03_JPRB,0.19477E-03_JPRB,0.16979E-03_JPRB,0.35547E-04_JPRB /) |
714 |
|
|
KA(:, 1,11, 3) = (/ & |
715 |
|
|
& 0.10368E-06_JPRB,0.53714E-04_JPRB,0.81748E-04_JPRB,0.10085E-03_JPRB,0.11349E-03_JPRB, & |
716 |
|
✗ |
& 0.12126E-03_JPRB,0.12180E-03_JPRB,0.10950E-03_JPRB,0.20787E-04_JPRB /) |
717 |
|
|
KA(:, 2,11, 3) = (/ & |
718 |
|
|
& 0.96854E-07_JPRB,0.59175E-04_JPRB,0.90131E-04_JPRB,0.11085E-03_JPRB,0.12425E-03_JPRB, & |
719 |
|
✗ |
& 0.13166E-03_JPRB,0.13207E-03_JPRB,0.11733E-03_JPRB,0.23028E-04_JPRB /) |
720 |
|
|
KA(:, 3,11, 3) = (/ & |
721 |
|
|
& 0.90882E-07_JPRB,0.64593E-04_JPRB,0.98275E-04_JPRB,0.12041E-03_JPRB,0.13497E-03_JPRB, & |
722 |
|
✗ |
& 0.14273E-03_JPRB,0.14215E-03_JPRB,0.12479E-03_JPRB,0.25362E-04_JPRB /) |
723 |
|
|
KA(:, 4,11, 3) = (/ & |
724 |
|
|
& 0.85602E-07_JPRB,0.69545E-04_JPRB,0.10592E-03_JPRB,0.12982E-03_JPRB,0.14583E-03_JPRB, & |
725 |
|
✗ |
& 0.15388E-03_JPRB,0.15228E-03_JPRB,0.13297E-03_JPRB,0.27585E-04_JPRB /) |
726 |
|
|
KA(:, 5,11, 3) = (/ & |
727 |
|
|
& 0.80889E-07_JPRB,0.73731E-04_JPRB,0.11290E-03_JPRB,0.13914E-03_JPRB,0.15637E-03_JPRB, & |
728 |
|
✗ |
& 0.16431E-03_JPRB,0.16189E-03_JPRB,0.14116E-03_JPRB,0.29828E-04_JPRB /) |
729 |
|
|
KA(:, 1,12, 3) = (/ & |
730 |
|
|
& 0.84886E-07_JPRB,0.44418E-04_JPRB,0.67641E-04_JPRB,0.83490E-04_JPRB,0.93906E-04_JPRB, & |
731 |
|
✗ |
& 0.10034E-03_JPRB,0.10075E-03_JPRB,0.90614E-04_JPRB,0.17350E-04_JPRB /) |
732 |
|
|
KA(:, 2,12, 3) = (/ & |
733 |
|
|
& 0.79297E-07_JPRB,0.48981E-04_JPRB,0.74656E-04_JPRB,0.91821E-04_JPRB,0.10299E-03_JPRB, & |
734 |
|
✗ |
& 0.10891E-03_JPRB,0.10933E-03_JPRB,0.97221E-04_JPRB,0.19237E-04_JPRB /) |
735 |
|
|
KA(:, 3,12, 3) = (/ & |
736 |
|
|
& 0.74408E-07_JPRB,0.53553E-04_JPRB,0.81503E-04_JPRB,0.99872E-04_JPRB,0.11196E-03_JPRB, & |
737 |
|
✗ |
& 0.11832E-03_JPRB,0.11782E-03_JPRB,0.10341E-03_JPRB,0.21189E-04_JPRB /) |
738 |
|
|
KA(:, 4,12, 3) = (/ & |
739 |
|
|
& 0.70085E-07_JPRB,0.57698E-04_JPRB,0.87887E-04_JPRB,0.10781E-03_JPRB,0.12107E-03_JPRB, & |
740 |
|
✗ |
& 0.12775E-03_JPRB,0.12624E-03_JPRB,0.11034E-03_JPRB,0.23038E-04_JPRB /) |
741 |
|
|
KA(:, 5,12, 3) = (/ & |
742 |
|
|
& 0.66226E-07_JPRB,0.61177E-04_JPRB,0.93694E-04_JPRB,0.11567E-03_JPRB,0.12995E-03_JPRB, & |
743 |
|
✗ |
& 0.13645E-03_JPRB,0.13436E-03_JPRB,0.11726E-03_JPRB,0.24913E-04_JPRB /) |
744 |
|
|
KA(:, 1,13, 3) = (/ & |
745 |
|
|
& 0.69499E-07_JPRB,0.36716E-04_JPRB,0.55902E-04_JPRB,0.69067E-04_JPRB,0.77635E-04_JPRB, & |
746 |
|
✗ |
& 0.82934E-04_JPRB,0.83302E-04_JPRB,0.74905E-04_JPRB,0.14419E-04_JPRB /) |
747 |
|
|
KA(:, 2,13, 3) = (/ & |
748 |
|
|
& 0.64923E-07_JPRB,0.40511E-04_JPRB,0.61779E-04_JPRB,0.75984E-04_JPRB,0.85239E-04_JPRB, & |
749 |
|
✗ |
& 0.90090E-04_JPRB,0.90456E-04_JPRB,0.80264E-04_JPRB,0.15996E-04_JPRB /) |
750 |
|
|
KA(:, 3,13, 3) = (/ & |
751 |
|
|
& 0.60920E-07_JPRB,0.44356E-04_JPRB,0.67533E-04_JPRB,0.82746E-04_JPRB,0.92816E-04_JPRB, & |
752 |
|
✗ |
& 0.98017E-04_JPRB,0.97590E-04_JPRB,0.85621E-04_JPRB,0.17623E-04_JPRB /) |
753 |
|
|
KA(:, 4,13, 3) = (/ & |
754 |
|
|
& 0.57381E-07_JPRB,0.47826E-04_JPRB,0.72874E-04_JPRB,0.89443E-04_JPRB,0.10040E-03_JPRB, & |
755 |
|
✗ |
& 0.10588E-03_JPRB,0.10456E-03_JPRB,0.91429E-04_JPRB,0.19144E-04_JPRB /) |
756 |
|
|
KA(:, 5,13, 3) = (/ & |
757 |
|
|
& 0.54221E-07_JPRB,0.50750E-04_JPRB,0.77698E-04_JPRB,0.96005E-04_JPRB,0.10784E-03_JPRB, & |
758 |
|
✗ |
& 0.11318E-03_JPRB,0.11139E-03_JPRB,0.97258E-04_JPRB,0.20671E-04_JPRB /) |
759 |
|
|
KA(:, 1, 1, 4) = (/ & |
760 |
|
|
& 0.36654E-05_JPRB,0.13689E-02_JPRB,0.21108E-02_JPRB,0.26314E-02_JPRB,0.29458E-02_JPRB, & |
761 |
|
✗ |
& 0.30831E-02_JPRB,0.30207E-02_JPRB,0.26003E-02_JPRB,0.93689E-03_JPRB /) |
762 |
|
|
KA(:, 2, 1, 4) = (/ & |
763 |
|
|
& 0.35304E-05_JPRB,0.14025E-02_JPRB,0.21716E-02_JPRB,0.27078E-02_JPRB,0.30551E-02_JPRB, & |
764 |
|
✗ |
& 0.31948E-02_JPRB,0.31649E-02_JPRB,0.27258E-02_JPRB,0.97983E-03_JPRB /) |
765 |
|
|
KA(:, 3, 1, 4) = (/ & |
766 |
|
|
& 0.34059E-05_JPRB,0.14340E-02_JPRB,0.22214E-02_JPRB,0.27773E-02_JPRB,0.31348E-02_JPRB, & |
767 |
|
✗ |
& 0.33049E-02_JPRB,0.32835E-02_JPRB,0.28461E-02_JPRB,0.10251E-02_JPRB /) |
768 |
|
|
KA(:, 4, 1, 4) = (/ & |
769 |
|
|
& 0.32895E-05_JPRB,0.14610E-02_JPRB,0.22596E-02_JPRB,0.28314E-02_JPRB,0.32113E-02_JPRB, & |
770 |
|
✗ |
& 0.34131E-02_JPRB,0.33921E-02_JPRB,0.29508E-02_JPRB,0.10730E-02_JPRB /) |
771 |
|
|
KA(:, 5, 1, 4) = (/ & |
772 |
|
|
& 0.31814E-05_JPRB,0.14814E-02_JPRB,0.22905E-02_JPRB,0.28789E-02_JPRB,0.32785E-02_JPRB, & |
773 |
|
✗ |
& 0.34996E-02_JPRB,0.34952E-02_JPRB,0.30528E-02_JPRB,0.11205E-02_JPRB /) |
774 |
|
|
KA(:, 1, 2, 4) = (/ & |
775 |
|
|
& 0.30293E-05_JPRB,0.11600E-02_JPRB,0.17946E-02_JPRB,0.22370E-02_JPRB,0.25205E-02_JPRB, & |
776 |
|
✗ |
& 0.26432E-02_JPRB,0.26172E-02_JPRB,0.22691E-02_JPRB,0.78466E-03_JPRB /) |
777 |
|
|
KA(:, 2, 2, 4) = (/ & |
778 |
|
|
& 0.29173E-05_JPRB,0.11916E-02_JPRB,0.18468E-02_JPRB,0.23072E-02_JPRB,0.26094E-02_JPRB, & |
779 |
|
✗ |
& 0.27477E-02_JPRB,0.27388E-02_JPRB,0.23809E-02_JPRB,0.82356E-03_JPRB /) |
780 |
|
|
KA(:, 3, 2, 4) = (/ & |
781 |
|
|
& 0.28152E-05_JPRB,0.12203E-02_JPRB,0.18939E-02_JPRB,0.23691E-02_JPRB,0.26814E-02_JPRB, & |
782 |
|
✗ |
& 0.28506E-02_JPRB,0.28414E-02_JPRB,0.24825E-02_JPRB,0.86161E-03_JPRB /) |
783 |
|
|
KA(:, 4, 2, 4) = (/ & |
784 |
|
|
& 0.27207E-05_JPRB,0.12454E-02_JPRB,0.19291E-02_JPRB,0.24180E-02_JPRB,0.27489E-02_JPRB, & |
785 |
|
✗ |
& 0.29380E-02_JPRB,0.29345E-02_JPRB,0.25808E-02_JPRB,0.90328E-03_JPRB /) |
786 |
|
|
KA(:, 5, 2, 4) = (/ & |
787 |
|
|
& 0.26316E-05_JPRB,0.12644E-02_JPRB,0.19586E-02_JPRB,0.24624E-02_JPRB,0.28146E-02_JPRB, & |
788 |
|
✗ |
& 0.30125E-02_JPRB,0.30237E-02_JPRB,0.26695E-02_JPRB,0.94678E-03_JPRB /) |
789 |
|
|
KA(:, 1, 3, 4) = (/ & |
790 |
|
|
& 0.25288E-05_JPRB,0.97348E-03_JPRB,0.15070E-02_JPRB,0.18795E-02_JPRB,0.21206E-02_JPRB, & |
791 |
|
✗ |
& 0.22362E-02_JPRB,0.22210E-02_JPRB,0.19369E-02_JPRB,0.64308E-03_JPRB /) |
792 |
|
|
KA(:, 2, 3, 4) = (/ & |
793 |
|
|
& 0.24353E-05_JPRB,0.10031E-02_JPRB,0.15552E-02_JPRB,0.19441E-02_JPRB,0.22013E-02_JPRB, & |
794 |
|
✗ |
& 0.23257E-02_JPRB,0.23286E-02_JPRB,0.20362E-02_JPRB,0.67529E-03_JPRB /) |
795 |
|
|
KA(:, 3, 3, 4) = (/ & |
796 |
|
|
& 0.23495E-05_JPRB,0.10295E-02_JPRB,0.15986E-02_JPRB,0.20019E-02_JPRB,0.22663E-02_JPRB, & |
797 |
|
✗ |
& 0.24160E-02_JPRB,0.24204E-02_JPRB,0.21276E-02_JPRB,0.70991E-03_JPRB /) |
798 |
|
|
KA(:, 4, 3, 4) = (/ & |
799 |
|
|
& 0.22699E-05_JPRB,0.10533E-02_JPRB,0.16337E-02_JPRB,0.20489E-02_JPRB,0.23288E-02_JPRB, & |
800 |
|
✗ |
& 0.24911E-02_JPRB,0.25016E-02_JPRB,0.22148E-02_JPRB,0.74635E-03_JPRB /) |
801 |
|
|
KA(:, 5, 3, 4) = (/ & |
802 |
|
|
& 0.21951E-05_JPRB,0.10724E-02_JPRB,0.16625E-02_JPRB,0.20891E-02_JPRB,0.23896E-02_JPRB, & |
803 |
|
✗ |
& 0.25582E-02_JPRB,0.25812E-02_JPRB,0.22925E-02_JPRB,0.78432E-03_JPRB /) |
804 |
|
|
KA(:, 1, 4, 4) = (/ & |
805 |
|
|
& 0.21169E-05_JPRB,0.81053E-03_JPRB,0.12568E-02_JPRB,0.15647E-02_JPRB,0.17654E-02_JPRB, & |
806 |
|
✗ |
& 0.18662E-02_JPRB,0.18568E-02_JPRB,0.16269E-02_JPRB,0.52608E-03_JPRB /) |
807 |
|
|
KA(:, 2, 4, 4) = (/ & |
808 |
|
|
& 0.20407E-05_JPRB,0.83875E-03_JPRB,0.13019E-02_JPRB,0.16252E-02_JPRB,0.18383E-02_JPRB, & |
809 |
|
✗ |
& 0.19441E-02_JPRB,0.19538E-02_JPRB,0.17139E-02_JPRB,0.55325E-03_JPRB /) |
810 |
|
|
KA(:, 3, 4, 4) = (/ & |
811 |
|
|
& 0.19674E-05_JPRB,0.86329E-03_JPRB,0.13417E-02_JPRB,0.16788E-02_JPRB,0.18985E-02_JPRB, & |
812 |
|
✗ |
& 0.20246E-02_JPRB,0.20315E-02_JPRB,0.17978E-02_JPRB,0.58253E-03_JPRB /) |
813 |
|
|
KA(:, 4, 4, 4) = (/ & |
814 |
|
|
& 0.18994E-05_JPRB,0.88551E-03_JPRB,0.13753E-02_JPRB,0.17238E-02_JPRB,0.19566E-02_JPRB, & |
815 |
|
✗ |
& 0.20923E-02_JPRB,0.21035E-02_JPRB,0.18724E-02_JPRB,0.61438E-03_JPRB /) |
816 |
|
|
KA(:, 5, 4, 4) = (/ & |
817 |
|
|
& 0.18358E-05_JPRB,0.90442E-03_JPRB,0.14042E-02_JPRB,0.17619E-02_JPRB,0.20119E-02_JPRB, & |
818 |
|
✗ |
& 0.21542E-02_JPRB,0.21749E-02_JPRB,0.19425E-02_JPRB,0.64762E-03_JPRB /) |
819 |
|
|
KA(:, 1, 5, 4) = (/ & |
820 |
|
|
& 0.17725E-05_JPRB,0.67146E-03_JPRB,0.10396E-02_JPRB,0.12935E-02_JPRB,0.14576E-02_JPRB, & |
821 |
|
✗ |
& 0.15437E-02_JPRB,0.15341E-02_JPRB,0.13532E-02_JPRB,0.42981E-03_JPRB /) |
822 |
|
|
KA(:, 2, 5, 4) = (/ & |
823 |
|
|
& 0.17095E-05_JPRB,0.69774E-03_JPRB,0.10823E-02_JPRB,0.13477E-02_JPRB,0.15227E-02_JPRB, & |
824 |
|
✗ |
& 0.16117E-02_JPRB,0.16222E-02_JPRB,0.14302E-02_JPRB,0.45286E-03_JPRB /) |
825 |
|
|
KA(:, 3, 5, 4) = (/ & |
826 |
|
|
& 0.16478E-05_JPRB,0.72044E-03_JPRB,0.11190E-02_JPRB,0.13967E-02_JPRB,0.15783E-02_JPRB, & |
827 |
|
✗ |
& 0.16817E-02_JPRB,0.16897E-02_JPRB,0.15040E-02_JPRB,0.47782E-03_JPRB /) |
828 |
|
|
KA(:, 4, 5, 4) = (/ & |
829 |
|
|
& 0.15896E-05_JPRB,0.74136E-03_JPRB,0.11512E-02_JPRB,0.14394E-02_JPRB,0.16307E-02_JPRB, & |
830 |
|
✗ |
& 0.17435E-02_JPRB,0.17536E-02_JPRB,0.15687E-02_JPRB,0.50468E-03_JPRB /) |
831 |
|
|
KA(:, 5, 5, 4) = (/ & |
832 |
|
|
& 0.15353E-05_JPRB,0.75977E-03_JPRB,0.11790E-02_JPRB,0.14755E-02_JPRB,0.16811E-02_JPRB, & |
833 |
|
✗ |
& 0.17990E-02_JPRB,0.18175E-02_JPRB,0.16279E-02_JPRB,0.53353E-03_JPRB /) |
834 |
|
|
KA(:, 1, 6, 4) = (/ & |
835 |
|
|
& 0.14856E-05_JPRB,0.55163E-03_JPRB,0.85182E-03_JPRB,0.10583E-02_JPRB,0.11933E-02_JPRB, & |
836 |
|
✗ |
& 0.12633E-02_JPRB,0.12519E-02_JPRB,0.11126E-02_JPRB,0.34969E-03_JPRB /) |
837 |
|
|
KA(:, 2, 6, 4) = (/ & |
838 |
|
|
& 0.14323E-05_JPRB,0.57534E-03_JPRB,0.89211E-03_JPRB,0.11084E-02_JPRB,0.12510E-02_JPRB, & |
839 |
|
✗ |
& 0.13248E-02_JPRB,0.13302E-02_JPRB,0.11815E-02_JPRB,0.36893E-03_JPRB /) |
840 |
|
|
KA(:, 3, 6, 4) = (/ & |
841 |
|
|
& 0.13818E-05_JPRB,0.59705E-03_JPRB,0.92552E-03_JPRB,0.11530E-02_JPRB,0.13018E-02_JPRB, & |
842 |
|
✗ |
& 0.13860E-02_JPRB,0.13942E-02_JPRB,0.12437E-02_JPRB,0.38991E-03_JPRB /) |
843 |
|
|
KA(:, 4, 6, 4) = (/ & |
844 |
|
|
& 0.13317E-05_JPRB,0.61671E-03_JPRB,0.95568E-03_JPRB,0.11922E-02_JPRB,0.13481E-02_JPRB, & |
845 |
|
✗ |
& 0.14426E-02_JPRB,0.14508E-02_JPRB,0.13001E-02_JPRB,0.41248E-03_JPRB /) |
846 |
|
|
KA(:, 5, 6, 4) = (/ & |
847 |
|
|
& 0.12851E-05_JPRB,0.63414E-03_JPRB,0.98227E-03_JPRB,0.12265E-02_JPRB,0.13936E-02_JPRB, & |
848 |
|
✗ |
& 0.14913E-02_JPRB,0.15064E-02_JPRB,0.13512E-02_JPRB,0.43696E-03_JPRB /) |
849 |
|
|
KA(:, 1, 7, 4) = (/ & |
850 |
|
|
& 0.12453E-05_JPRB,0.44982E-03_JPRB,0.69286E-03_JPRB,0.85857E-03_JPRB,0.97115E-03_JPRB, & |
851 |
|
✗ |
& 0.10268E-02_JPRB,0.10132E-02_JPRB,0.90661E-03_JPRB,0.28333E-03_JPRB /) |
852 |
|
|
KA(:, 2, 7, 4) = (/ & |
853 |
|
|
& 0.11997E-05_JPRB,0.47163E-03_JPRB,0.72984E-03_JPRB,0.90525E-03_JPRB,0.10209E-02_JPRB, & |
854 |
|
✗ |
& 0.10830E-02_JPRB,0.10815E-02_JPRB,0.96820E-03_JPRB,0.29991E-03_JPRB /) |
855 |
|
|
KA(:, 3, 7, 4) = (/ & |
856 |
|
|
& 0.11571E-05_JPRB,0.49170E-03_JPRB,0.76064E-03_JPRB,0.94597E-03_JPRB,0.10683E-02_JPRB, & |
857 |
|
✗ |
& 0.11337E-02_JPRB,0.11418E-02_JPRB,0.10210E-02_JPRB,0.31738E-03_JPRB /) |
858 |
|
|
KA(:, 4, 7, 4) = (/ & |
859 |
|
|
& 0.11157E-05_JPRB,0.50964E-03_JPRB,0.78859E-03_JPRB,0.98236E-03_JPRB,0.11088E-02_JPRB, & |
860 |
|
✗ |
& 0.11859E-02_JPRB,0.11920E-02_JPRB,0.10690E-02_JPRB,0.33600E-03_JPRB /) |
861 |
|
|
KA(:, 5, 7, 4) = (/ & |
862 |
|
|
& 0.10757E-05_JPRB,0.52578E-03_JPRB,0.81330E-03_JPRB,0.10141E-02_JPRB,0.11493E-02_JPRB, & |
863 |
|
✗ |
& 0.12285E-02_JPRB,0.12399E-02_JPRB,0.11151E-02_JPRB,0.35631E-03_JPRB /) |
864 |
|
|
KA(:, 1, 8, 4) = (/ & |
865 |
|
|
& 0.10436E-05_JPRB,0.36475E-03_JPRB,0.55948E-03_JPRB,0.69399E-03_JPRB,0.78699E-03_JPRB, & |
866 |
|
✗ |
& 0.82733E-03_JPRB,0.81546E-03_JPRB,0.73443E-03_JPRB,0.22874E-03_JPRB /) |
867 |
|
|
KA(:, 2, 8, 4) = (/ & |
868 |
|
|
& 0.10043E-05_JPRB,0.38461E-03_JPRB,0.59365E-03_JPRB,0.73631E-03_JPRB,0.82902E-03_JPRB, & |
869 |
|
✗ |
& 0.87996E-03_JPRB,0.87589E-03_JPRB,0.78745E-03_JPRB,0.24281E-03_JPRB /) |
870 |
|
|
KA(:, 3, 8, 4) = (/ & |
871 |
|
|
& 0.96785E-06_JPRB,0.40227E-03_JPRB,0.62191E-03_JPRB,0.77183E-03_JPRB,0.87067E-03_JPRB, & |
872 |
|
✗ |
& 0.92338E-03_JPRB,0.93116E-03_JPRB,0.83334E-03_JPRB,0.25735E-03_JPRB /) |
873 |
|
|
KA(:, 4, 8, 4) = (/ & |
874 |
|
|
& 0.93367E-06_JPRB,0.41881E-03_JPRB,0.64697E-03_JPRB,0.80474E-03_JPRB,0.90754E-03_JPRB, & |
875 |
|
✗ |
& 0.96806E-03_JPRB,0.97434E-03_JPRB,0.87439E-03_JPRB,0.27286E-03_JPRB /) |
876 |
|
|
KA(:, 5, 8, 4) = (/ & |
877 |
|
|
& 0.90017E-06_JPRB,0.43377E-03_JPRB,0.67026E-03_JPRB,0.83398E-03_JPRB,0.94269E-03_JPRB, & |
878 |
|
✗ |
& 0.10080E-02_JPRB,0.10154E-02_JPRB,0.91479E-03_JPRB,0.28948E-03_JPRB /) |
879 |
|
|
KA(:, 1, 9, 4) = (/ & |
880 |
|
|
& 0.87469E-06_JPRB,0.29345E-03_JPRB,0.44857E-03_JPRB,0.55653E-03_JPRB,0.63371E-03_JPRB, & |
881 |
|
✗ |
& 0.66253E-03_JPRB,0.65229E-03_JPRB,0.59009E-03_JPRB,0.18475E-03_JPRB /) |
882 |
|
|
KA(:, 2, 9, 4) = (/ & |
883 |
|
|
& 0.84062E-06_JPRB,0.31152E-03_JPRB,0.47975E-03_JPRB,0.59422E-03_JPRB,0.67077E-03_JPRB, & |
884 |
|
✗ |
& 0.71168E-03_JPRB,0.70550E-03_JPRB,0.63674E-03_JPRB,0.19669E-03_JPRB /) |
885 |
|
|
KA(:, 3, 9, 4) = (/ & |
886 |
|
|
& 0.80947E-06_JPRB,0.32779E-03_JPRB,0.50582E-03_JPRB,0.62707E-03_JPRB,0.70705E-03_JPRB, & |
887 |
|
✗ |
& 0.74936E-03_JPRB,0.75252E-03_JPRB,0.67682E-03_JPRB,0.20896E-03_JPRB /) |
888 |
|
|
KA(:, 4, 9, 4) = (/ & |
889 |
|
|
& 0.78052E-06_JPRB,0.34262E-03_JPRB,0.52820E-03_JPRB,0.65631E-03_JPRB,0.74002E-03_JPRB, & |
890 |
|
✗ |
& 0.78731E-03_JPRB,0.79257E-03_JPRB,0.71155E-03_JPRB,0.22197E-03_JPRB /) |
891 |
|
|
KA(:, 5, 9, 4) = (/ & |
892 |
|
|
& 0.75300E-06_JPRB,0.35618E-03_JPRB,0.54940E-03_JPRB,0.68236E-03_JPRB,0.76978E-03_JPRB, & |
893 |
|
✗ |
& 0.82271E-03_JPRB,0.82806E-03_JPRB,0.74658E-03_JPRB,0.23588E-03_JPRB /) |
894 |
|
|
KA(:, 1,10, 4) = (/ & |
895 |
|
|
& 0.73080E-06_JPRB,0.23619E-03_JPRB,0.36002E-03_JPRB,0.44769E-03_JPRB,0.51001E-03_JPRB, & |
896 |
|
✗ |
& 0.53294E-03_JPRB,0.52319E-03_JPRB,0.47492E-03_JPRB,0.15005E-03_JPRB /) |
897 |
|
|
KA(:, 2,10, 4) = (/ & |
898 |
|
|
& 0.70142E-06_JPRB,0.25225E-03_JPRB,0.38742E-03_JPRB,0.48039E-03_JPRB,0.54285E-03_JPRB, & |
899 |
|
✗ |
& 0.57407E-03_JPRB,0.56765E-03_JPRB,0.51444E-03_JPRB,0.16000E-03_JPRB /) |
900 |
|
|
KA(:, 3,10, 4) = (/ & |
901 |
|
|
& 0.67484E-06_JPRB,0.26687E-03_JPRB,0.41119E-03_JPRB,0.50924E-03_JPRB,0.57372E-03_JPRB, & |
902 |
|
✗ |
& 0.60912E-03_JPRB,0.60813E-03_JPRB,0.54945E-03_JPRB,0.17036E-03_JPRB /) |
903 |
|
|
KA(:, 4,10, 4) = (/ & |
904 |
|
|
& 0.65032E-06_JPRB,0.28002E-03_JPRB,0.43104E-03_JPRB,0.53513E-03_JPRB,0.60294E-03_JPRB, & |
905 |
|
✗ |
& 0.63998E-03_JPRB,0.64485E-03_JPRB,0.57888E-03_JPRB,0.18120E-03_JPRB /) |
906 |
|
|
KA(:, 5,10, 4) = (/ & |
907 |
|
|
& 0.62752E-06_JPRB,0.29182E-03_JPRB,0.44950E-03_JPRB,0.55836E-03_JPRB,0.62849E-03_JPRB, & |
908 |
|
✗ |
& 0.67148E-03_JPRB,0.67570E-03_JPRB,0.60918E-03_JPRB,0.19271E-03_JPRB /) |
909 |
|
|
KA(:, 1,11, 4) = (/ & |
910 |
|
|
& 0.59846E-06_JPRB,0.19603E-03_JPRB,0.29902E-03_JPRB,0.37159E-03_JPRB,0.42367E-03_JPRB, & |
911 |
|
✗ |
& 0.44241E-03_JPRB,0.43550E-03_JPRB,0.39618E-03_JPRB,0.12498E-03_JPRB /) |
912 |
|
|
KA(:, 2,11, 4) = (/ & |
913 |
|
|
& 0.57447E-06_JPRB,0.20953E-03_JPRB,0.32187E-03_JPRB,0.39882E-03_JPRB,0.45021E-03_JPRB, & |
914 |
|
✗ |
& 0.47717E-03_JPRB,0.47240E-03_JPRB,0.42894E-03_JPRB,0.13362E-03_JPRB /) |
915 |
|
|
KA(:, 3,11, 4) = (/ & |
916 |
|
|
& 0.55265E-06_JPRB,0.22185E-03_JPRB,0.34133E-03_JPRB,0.42283E-03_JPRB,0.47616E-03_JPRB, & |
917 |
|
✗ |
& 0.50481E-03_JPRB,0.50553E-03_JPRB,0.45654E-03_JPRB,0.14246E-03_JPRB /) |
918 |
|
|
KA(:, 4,11, 4) = (/ & |
919 |
|
|
& 0.53259E-06_JPRB,0.23301E-03_JPRB,0.35816E-03_JPRB,0.44448E-03_JPRB,0.50048E-03_JPRB, & |
920 |
|
✗ |
& 0.53147E-03_JPRB,0.53574E-03_JPRB,0.48169E-03_JPRB,0.15168E-03_JPRB /) |
921 |
|
|
KA(:, 5,11, 4) = (/ & |
922 |
|
|
& 0.51379E-06_JPRB,0.24302E-03_JPRB,0.37383E-03_JPRB,0.46352E-03_JPRB,0.52203E-03_JPRB, & |
923 |
|
✗ |
& 0.55783E-03_JPRB,0.56175E-03_JPRB,0.50737E-03_JPRB,0.16153E-03_JPRB /) |
924 |
|
|
KA(:, 1,12, 4) = (/ & |
925 |
|
|
& 0.49006E-06_JPRB,0.16259E-03_JPRB,0.24802E-03_JPRB,0.30804E-03_JPRB,0.35111E-03_JPRB, & |
926 |
|
✗ |
& 0.36672E-03_JPRB,0.36166E-03_JPRB,0.32968E-03_JPRB,0.10401E-03_JPRB /) |
927 |
|
|
KA(:, 2,12, 4) = (/ & |
928 |
|
|
& 0.47033E-06_JPRB,0.17379E-03_JPRB,0.26697E-03_JPRB,0.33069E-03_JPRB,0.37292E-03_JPRB, & |
929 |
|
✗ |
& 0.39587E-03_JPRB,0.39239E-03_JPRB,0.35672E-03_JPRB,0.11138E-03_JPRB /) |
930 |
|
|
KA(:, 3,12, 4) = (/ & |
931 |
|
|
& 0.45247E-06_JPRB,0.18417E-03_JPRB,0.28295E-03_JPRB,0.35045E-03_JPRB,0.39465E-03_JPRB, & |
932 |
|
✗ |
& 0.41825E-03_JPRB,0.41984E-03_JPRB,0.37867E-03_JPRB,0.11882E-03_JPRB /) |
933 |
|
|
KA(:, 4,12, 4) = (/ & |
934 |
|
|
& 0.43605E-06_JPRB,0.19351E-03_JPRB,0.29716E-03_JPRB,0.36850E-03_JPRB,0.41489E-03_JPRB, & |
935 |
|
✗ |
& 0.44074E-03_JPRB,0.44460E-03_JPRB,0.40031E-03_JPRB,0.12667E-03_JPRB /) |
936 |
|
|
KA(:, 5,12, 4) = (/ & |
937 |
|
|
& 0.42066E-06_JPRB,0.20206E-03_JPRB,0.31038E-03_JPRB,0.38464E-03_JPRB,0.43337E-03_JPRB, & |
938 |
|
✗ |
& 0.46297E-03_JPRB,0.46667E-03_JPRB,0.42202E-03_JPRB,0.13498E-03_JPRB /) |
939 |
|
|
KA(:, 1,13, 4) = (/ & |
940 |
|
|
& 0.40122E-06_JPRB,0.13465E-03_JPRB,0.20541E-03_JPRB,0.25488E-03_JPRB,0.29006E-03_JPRB, & |
941 |
|
✗ |
& 0.30358E-03_JPRB,0.29984E-03_JPRB,0.27375E-03_JPRB,0.86406E-04_JPRB /) |
942 |
|
|
KA(:, 2,13, 4) = (/ & |
943 |
|
|
& 0.38502E-06_JPRB,0.14398E-03_JPRB,0.22086E-03_JPRB,0.27376E-03_JPRB,0.30832E-03_JPRB, & |
944 |
|
✗ |
& 0.32794E-03_JPRB,0.32517E-03_JPRB,0.29562E-03_JPRB,0.92614E-04_JPRB /) |
945 |
|
|
KA(:, 3,13, 4) = (/ & |
946 |
|
|
& 0.37045E-06_JPRB,0.15266E-03_JPRB,0.23416E-03_JPRB,0.29013E-03_JPRB,0.32675E-03_JPRB, & |
947 |
|
✗ |
& 0.34622E-03_JPRB,0.34816E-03_JPRB,0.31401E-03_JPRB,0.98880E-04_JPRB /) |
948 |
|
|
KA(:, 4,13, 4) = (/ & |
949 |
|
|
& 0.35702E-06_JPRB,0.16050E-03_JPRB,0.24608E-03_JPRB,0.30521E-03_JPRB,0.34336E-03_JPRB, & |
950 |
|
✗ |
& 0.36522E-03_JPRB,0.36857E-03_JPRB,0.33246E-03_JPRB,0.10559E-03_JPRB /) |
951 |
|
|
KA(:, 5,13, 4) = (/ & |
952 |
|
|
& 0.34440E-06_JPRB,0.16771E-03_JPRB,0.25742E-03_JPRB,0.31904E-03_JPRB,0.35943E-03_JPRB, & |
953 |
|
✗ |
& 0.38405E-03_JPRB,0.38715E-03_JPRB,0.35087E-03_JPRB,0.11262E-03_JPRB /) |
954 |
|
|
KA(:, 1, 1, 5) = (/ & |
955 |
|
|
& 0.15583E-03_JPRB,0.37546E-02_JPRB,0.53536E-02_JPRB,0.64161E-02_JPRB,0.71223E-02_JPRB, & |
956 |
|
✗ |
& 0.74982E-02_JPRB,0.73596E-02_JPRB,0.65135E-02_JPRB,0.35175E-02_JPRB /) |
957 |
|
|
KA(:, 2, 1, 5) = (/ & |
958 |
|
|
& 0.16148E-03_JPRB,0.38569E-02_JPRB,0.55256E-02_JPRB,0.66461E-02_JPRB,0.73757E-02_JPRB, & |
959 |
|
✗ |
& 0.77530E-02_JPRB,0.75665E-02_JPRB,0.66496E-02_JPRB,0.36840E-02_JPRB /) |
960 |
|
|
KA(:, 3, 1, 5) = (/ & |
961 |
|
|
& 0.16484E-03_JPRB,0.39353E-02_JPRB,0.56745E-02_JPRB,0.68364E-02_JPRB,0.76166E-02_JPRB, & |
962 |
|
✗ |
& 0.79711E-02_JPRB,0.77717E-02_JPRB,0.67846E-02_JPRB,0.38485E-02_JPRB /) |
963 |
|
|
KA(:, 4, 1, 5) = (/ & |
964 |
|
|
& 0.16621E-03_JPRB,0.39946E-02_JPRB,0.57947E-02_JPRB,0.70071E-02_JPRB,0.78193E-02_JPRB, & |
965 |
|
✗ |
& 0.81581E-02_JPRB,0.79592E-02_JPRB,0.69132E-02_JPRB,0.39769E-02_JPRB /) |
966 |
|
|
KA(:, 5, 1, 5) = (/ & |
967 |
|
|
& 0.16518E-03_JPRB,0.40386E-02_JPRB,0.58925E-02_JPRB,0.71530E-02_JPRB,0.79946E-02_JPRB, & |
968 |
|
✗ |
& 0.83258E-02_JPRB,0.81107E-02_JPRB,0.70226E-02_JPRB,0.41134E-02_JPRB /) |
969 |
|
|
KA(:, 1, 2, 5) = (/ & |
970 |
|
|
& 0.12482E-03_JPRB,0.32204E-02_JPRB,0.46102E-02_JPRB,0.55475E-02_JPRB,0.61730E-02_JPRB, & |
971 |
|
✗ |
& 0.65000E-02_JPRB,0.63942E-02_JPRB,0.56394E-02_JPRB,0.30002E-02_JPRB /) |
972 |
|
|
|
973 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART3',1,ZHOOK_HANDLE) |
974 |
|
✗ |
END SUBROUTINE PART3 |
975 |
|
|
|
976 |
|
|
|
977 |
|
✗ |
SUBROUTINE PART4 |
978 |
|
|
|
979 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
980 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART4',0,ZHOOK_HANDLE) |
981 |
|
|
|
982 |
|
|
|
983 |
|
|
KA(:, 2, 2, 5) = (/ & |
984 |
|
|
& 0.13027E-03_JPRB,0.33099E-02_JPRB,0.47617E-02_JPRB,0.57497E-02_JPRB,0.64031E-02_JPRB, & |
985 |
|
✗ |
& 0.67184E-02_JPRB,0.65829E-02_JPRB,0.57721E-02_JPRB,0.31442E-02_JPRB /) |
986 |
|
|
KA(:, 3, 2, 5) = (/ & |
987 |
|
|
& 0.13370E-03_JPRB,0.33808E-02_JPRB,0.48845E-02_JPRB,0.59235E-02_JPRB,0.66074E-02_JPRB, & |
988 |
|
✗ |
& 0.69048E-02_JPRB,0.67660E-02_JPRB,0.59018E-02_JPRB,0.32788E-02_JPRB /) |
989 |
|
|
KA(:, 4, 2, 5) = (/ & |
990 |
|
|
& 0.13549E-03_JPRB,0.34340E-02_JPRB,0.49885E-02_JPRB,0.60745E-02_JPRB,0.67877E-02_JPRB, & |
991 |
|
✗ |
& 0.70780E-02_JPRB,0.69202E-02_JPRB,0.60131E-02_JPRB,0.33946E-02_JPRB /) |
992 |
|
|
KA(:, 5, 2, 5) = (/ & |
993 |
|
|
& 0.13543E-03_JPRB,0.34778E-02_JPRB,0.50745E-02_JPRB,0.61981E-02_JPRB,0.69282E-02_JPRB, & |
994 |
|
✗ |
& 0.72229E-02_JPRB,0.70521E-02_JPRB,0.61218E-02_JPRB,0.35097E-02_JPRB /) |
995 |
|
|
KA(:, 1, 3, 5) = (/ & |
996 |
|
|
& 0.98437E-04_JPRB,0.27209E-02_JPRB,0.39035E-02_JPRB,0.47185E-02_JPRB,0.52706E-02_JPRB, & |
997 |
|
✗ |
& 0.55579E-02_JPRB,0.54846E-02_JPRB,0.48469E-02_JPRB,0.25077E-02_JPRB /) |
998 |
|
|
KA(:, 2, 3, 5) = (/ & |
999 |
|
|
& 0.10396E-03_JPRB,0.28031E-02_JPRB,0.40384E-02_JPRB,0.48993E-02_JPRB,0.54753E-02_JPRB, & |
1000 |
|
✗ |
& 0.57575E-02_JPRB,0.56525E-02_JPRB,0.49684E-02_JPRB,0.26366E-02_JPRB /) |
1001 |
|
|
KA(:, 3, 3, 5) = (/ & |
1002 |
|
|
& 0.10770E-03_JPRB,0.28702E-02_JPRB,0.41513E-02_JPRB,0.50504E-02_JPRB,0.56640E-02_JPRB, & |
1003 |
|
✗ |
& 0.59245E-02_JPRB,0.58125E-02_JPRB,0.50922E-02_JPRB,0.27478E-02_JPRB /) |
1004 |
|
|
KA(:, 4, 3, 5) = (/ & |
1005 |
|
|
& 0.10996E-03_JPRB,0.29232E-02_JPRB,0.42451E-02_JPRB,0.51838E-02_JPRB,0.58257E-02_JPRB, & |
1006 |
|
✗ |
& 0.60793E-02_JPRB,0.59498E-02_JPRB,0.51949E-02_JPRB,0.28490E-02_JPRB /) |
1007 |
|
|
KA(:, 5, 3, 5) = (/ & |
1008 |
|
|
& 0.11088E-03_JPRB,0.29645E-02_JPRB,0.43251E-02_JPRB,0.52992E-02_JPRB,0.59468E-02_JPRB, & |
1009 |
|
✗ |
& 0.62096E-02_JPRB,0.60648E-02_JPRB,0.52904E-02_JPRB,0.29495E-02_JPRB /) |
1010 |
|
|
KA(:, 1, 4, 5) = (/ & |
1011 |
|
|
& 0.76587E-04_JPRB,0.22792E-02_JPRB,0.32731E-02_JPRB,0.39724E-02_JPRB,0.44561E-02_JPRB, & |
1012 |
|
✗ |
& 0.47109E-02_JPRB,0.46706E-02_JPRB,0.41444E-02_JPRB,0.20810E-02_JPRB /) |
1013 |
|
|
KA(:, 2, 4, 5) = (/ & |
1014 |
|
|
& 0.82225E-04_JPRB,0.23548E-02_JPRB,0.33943E-02_JPRB,0.41325E-02_JPRB,0.46415E-02_JPRB, & |
1015 |
|
✗ |
& 0.48939E-02_JPRB,0.48200E-02_JPRB,0.42591E-02_JPRB,0.21925E-02_JPRB /) |
1016 |
|
|
KA(:, 3, 4, 5) = (/ & |
1017 |
|
|
& 0.86203E-04_JPRB,0.24180E-02_JPRB,0.34991E-02_JPRB,0.42684E-02_JPRB,0.48074E-02_JPRB, & |
1018 |
|
✗ |
& 0.50416E-02_JPRB,0.49651E-02_JPRB,0.43643E-02_JPRB,0.22938E-02_JPRB /) |
1019 |
|
|
KA(:, 4, 4, 5) = (/ & |
1020 |
|
|
& 0.88766E-04_JPRB,0.24694E-02_JPRB,0.35874E-02_JPRB,0.43875E-02_JPRB,0.49469E-02_JPRB, & |
1021 |
|
✗ |
& 0.51810E-02_JPRB,0.50850E-02_JPRB,0.44606E-02_JPRB,0.23791E-02_JPRB /) |
1022 |
|
|
KA(:, 5, 4, 5) = (/ & |
1023 |
|
|
& 0.90218E-04_JPRB,0.25110E-02_JPRB,0.36613E-02_JPRB,0.44937E-02_JPRB,0.50548E-02_JPRB, & |
1024 |
|
✗ |
& 0.52982E-02_JPRB,0.51883E-02_JPRB,0.45498E-02_JPRB,0.24658E-02_JPRB /) |
1025 |
|
|
KA(:, 1, 5, 5) = (/ & |
1026 |
|
|
& 0.59080E-04_JPRB,0.18972E-02_JPRB,0.27294E-02_JPRB,0.33195E-02_JPRB,0.37395E-02_JPRB, & |
1027 |
|
✗ |
& 0.39683E-02_JPRB,0.39523E-02_JPRB,0.35161E-02_JPRB,0.17195E-02_JPRB /) |
1028 |
|
|
KA(:, 2, 5, 5) = (/ & |
1029 |
|
|
& 0.64508E-04_JPRB,0.19673E-02_JPRB,0.28376E-02_JPRB,0.34632E-02_JPRB,0.39033E-02_JPRB, & |
1030 |
|
✗ |
& 0.41343E-02_JPRB,0.40826E-02_JPRB,0.36195E-02_JPRB,0.18173E-02_JPRB /) |
1031 |
|
|
KA(:, 3, 5, 5) = (/ & |
1032 |
|
|
& 0.68538E-04_JPRB,0.20264E-02_JPRB,0.29342E-02_JPRB,0.35856E-02_JPRB,0.40488E-02_JPRB, & |
1033 |
|
✗ |
& 0.42664E-02_JPRB,0.42141E-02_JPRB,0.37144E-02_JPRB,0.19081E-02_JPRB /) |
1034 |
|
|
KA(:, 4, 5, 5) = (/ & |
1035 |
|
|
& 0.71328E-04_JPRB,0.20750E-02_JPRB,0.30165E-02_JPRB,0.36933E-02_JPRB,0.41719E-02_JPRB, & |
1036 |
|
✗ |
& 0.43880E-02_JPRB,0.43221E-02_JPRB,0.38006E-02_JPRB,0.19818E-02_JPRB /) |
1037 |
|
|
KA(:, 5, 5, 5) = (/ & |
1038 |
|
|
& 0.73073E-04_JPRB,0.21155E-02_JPRB,0.30861E-02_JPRB,0.37892E-02_JPRB,0.42690E-02_JPRB, & |
1039 |
|
✗ |
& 0.44901E-02_JPRB,0.44161E-02_JPRB,0.38864E-02_JPRB,0.20583E-02_JPRB /) |
1040 |
|
|
KA(:, 1, 6, 5) = (/ & |
1041 |
|
|
& 0.45069E-04_JPRB,0.15673E-02_JPRB,0.22596E-02_JPRB,0.27566E-02_JPRB,0.31117E-02_JPRB, & |
1042 |
|
✗ |
& 0.33162E-02_JPRB,0.33135E-02_JPRB,0.29574E-02_JPRB,0.14089E-02_JPRB /) |
1043 |
|
|
KA(:, 2, 6, 5) = (/ & |
1044 |
|
|
& 0.49959E-04_JPRB,0.16342E-02_JPRB,0.23577E-02_JPRB,0.28828E-02_JPRB,0.32572E-02_JPRB, & |
1045 |
|
✗ |
& 0.34626E-02_JPRB,0.34302E-02_JPRB,0.30476E-02_JPRB,0.14955E-02_JPRB /) |
1046 |
|
|
KA(:, 3, 6, 5) = (/ & |
1047 |
|
|
& 0.54013E-04_JPRB,0.16891E-02_JPRB,0.24457E-02_JPRB,0.29926E-02_JPRB,0.33865E-02_JPRB, & |
1048 |
|
✗ |
& 0.35809E-02_JPRB,0.35427E-02_JPRB,0.31358E-02_JPRB,0.15763E-02_JPRB /) |
1049 |
|
|
KA(:, 4, 6, 5) = (/ & |
1050 |
|
|
& 0.56910E-04_JPRB,0.17356E-02_JPRB,0.25220E-02_JPRB,0.30903E-02_JPRB,0.34968E-02_JPRB, & |
1051 |
|
✗ |
& 0.36853E-02_JPRB,0.36443E-02_JPRB,0.32140E-02_JPRB,0.16428E-02_JPRB /) |
1052 |
|
|
KA(:, 5, 6, 5) = (/ & |
1053 |
|
|
& 0.58852E-04_JPRB,0.17743E-02_JPRB,0.25868E-02_JPRB,0.31771E-02_JPRB,0.35857E-02_JPRB, & |
1054 |
|
✗ |
& 0.37782E-02_JPRB,0.37284E-02_JPRB,0.32905E-02_JPRB,0.17079E-02_JPRB /) |
1055 |
|
|
KA(:, 1, 7, 5) = (/ & |
1056 |
|
|
& 0.34131E-04_JPRB,0.12873E-02_JPRB,0.18619E-02_JPRB,0.22745E-02_JPRB,0.25688E-02_JPRB, & |
1057 |
|
✗ |
& 0.27494E-02_JPRB,0.27574E-02_JPRB,0.24658E-02_JPRB,0.11444E-02_JPRB /) |
1058 |
|
|
KA(:, 2, 7, 5) = (/ & |
1059 |
|
|
& 0.38379E-04_JPRB,0.13503E-02_JPRB,0.19490E-02_JPRB,0.23869E-02_JPRB,0.26985E-02_JPRB, & |
1060 |
|
✗ |
& 0.28761E-02_JPRB,0.28607E-02_JPRB,0.25443E-02_JPRB,0.12242E-02_JPRB /) |
1061 |
|
|
KA(:, 3, 7, 5) = (/ & |
1062 |
|
|
& 0.42146E-04_JPRB,0.14018E-02_JPRB,0.20287E-02_JPRB,0.24843E-02_JPRB,0.28119E-02_JPRB, & |
1063 |
|
✗ |
& 0.29848E-02_JPRB,0.29569E-02_JPRB,0.26258E-02_JPRB,0.12956E-02_JPRB /) |
1064 |
|
|
KA(:, 4, 7, 5) = (/ & |
1065 |
|
|
& 0.45116E-04_JPRB,0.14454E-02_JPRB,0.20989E-02_JPRB,0.25718E-02_JPRB,0.29115E-02_JPRB, & |
1066 |
|
✗ |
& 0.30740E-02_JPRB,0.30482E-02_JPRB,0.26967E-02_JPRB,0.13537E-02_JPRB /) |
1067 |
|
|
KA(:, 5, 7, 5) = (/ & |
1068 |
|
|
& 0.47178E-04_JPRB,0.14818E-02_JPRB,0.21591E-02_JPRB,0.26509E-02_JPRB,0.29945E-02_JPRB, & |
1069 |
|
✗ |
& 0.31590E-02_JPRB,0.31235E-02_JPRB,0.27641E-02_JPRB,0.14100E-02_JPRB /) |
1070 |
|
|
KA(:, 1, 8, 5) = (/ & |
1071 |
|
|
& 0.25656E-04_JPRB,0.10525E-02_JPRB,0.15266E-02_JPRB,0.18648E-02_JPRB,0.21060E-02_JPRB, & |
1072 |
|
✗ |
& 0.22660E-02_JPRB,0.22807E-02_JPRB,0.20415E-02_JPRB,0.92482E-03_JPRB /) |
1073 |
|
|
KA(:, 2, 8, 5) = (/ & |
1074 |
|
|
& 0.29313E-04_JPRB,0.11096E-02_JPRB,0.16027E-02_JPRB,0.19628E-02_JPRB,0.22224E-02_JPRB, & |
1075 |
|
✗ |
& 0.23730E-02_JPRB,0.23683E-02_JPRB,0.21111E-02_JPRB,0.99366E-03_JPRB /) |
1076 |
|
|
KA(:, 3, 8, 5) = (/ & |
1077 |
|
|
& 0.32643E-04_JPRB,0.11579E-02_JPRB,0.16732E-02_JPRB,0.20503E-02_JPRB,0.23231E-02_JPRB, & |
1078 |
|
✗ |
& 0.24721E-02_JPRB,0.24512E-02_JPRB,0.21842E-02_JPRB,0.10570E-02_JPRB /) |
1079 |
|
|
KA(:, 4, 8, 5) = (/ & |
1080 |
|
|
& 0.35509E-04_JPRB,0.11985E-02_JPRB,0.17379E-02_JPRB,0.21284E-02_JPRB,0.24110E-02_JPRB, & |
1081 |
|
✗ |
& 0.25519E-02_JPRB,0.25339E-02_JPRB,0.22496E-02_JPRB,0.11116E-02_JPRB /) |
1082 |
|
|
KA(:, 5, 8, 5) = (/ & |
1083 |
|
|
& 0.37616E-04_JPRB,0.12327E-02_JPRB,0.17933E-02_JPRB,0.21996E-02_JPRB,0.24880E-02_JPRB, & |
1084 |
|
✗ |
& 0.26258E-02_JPRB,0.26029E-02_JPRB,0.23088E-02_JPRB,0.11595E-02_JPRB /) |
1085 |
|
|
KA(:, 1, 9, 5) = (/ & |
1086 |
|
|
& 0.19166E-04_JPRB,0.85559E-03_JPRB,0.12446E-02_JPRB,0.15213E-02_JPRB,0.17160E-02_JPRB, & |
1087 |
|
✗ |
& 0.18527E-02_JPRB,0.18723E-02_JPRB,0.16794E-02_JPRB,0.74316E-03_JPRB /) |
1088 |
|
|
KA(:, 2, 9, 5) = (/ & |
1089 |
|
|
& 0.22251E-04_JPRB,0.90701E-03_JPRB,0.13107E-02_JPRB,0.16061E-02_JPRB,0.18177E-02_JPRB, & |
1090 |
|
✗ |
& 0.19452E-02_JPRB,0.19496E-02_JPRB,0.17420E-02_JPRB,0.80168E-03_JPRB /) |
1091 |
|
|
KA(:, 3, 9, 5) = (/ & |
1092 |
|
|
& 0.25123E-04_JPRB,0.95106E-03_JPRB,0.13724E-02_JPRB,0.16826E-02_JPRB,0.19064E-02_JPRB, & |
1093 |
|
✗ |
& 0.20352E-02_JPRB,0.20241E-02_JPRB,0.18064E-02_JPRB,0.85659E-03_JPRB /) |
1094 |
|
|
KA(:, 4, 9, 5) = (/ & |
1095 |
|
|
& 0.27713E-04_JPRB,0.98903E-03_JPRB,0.14301E-02_JPRB,0.17523E-02_JPRB,0.19862E-02_JPRB, & |
1096 |
|
✗ |
& 0.21079E-02_JPRB,0.20944E-02_JPRB,0.18656E-02_JPRB,0.90655E-03_JPRB /) |
1097 |
|
|
KA(:, 5, 9, 5) = (/ & |
1098 |
|
|
& 0.29821E-04_JPRB,0.10207E-02_JPRB,0.14813E-02_JPRB,0.18163E-02_JPRB,0.20570E-02_JPRB, & |
1099 |
|
✗ |
& 0.21737E-02_JPRB,0.21574E-02_JPRB,0.19153E-02_JPRB,0.94882E-03_JPRB /) |
1100 |
|
|
KA(:, 1,10, 5) = (/ & |
1101 |
|
|
& 0.14455E-04_JPRB,0.69508E-03_JPRB,0.10143E-02_JPRB,0.12382E-02_JPRB,0.13977E-02_JPRB, & |
1102 |
|
✗ |
& 0.15101E-02_JPRB,0.15339E-02_JPRB,0.13794E-02_JPRB,0.60064E-03_JPRB /) |
1103 |
|
|
KA(:, 2,10, 5) = (/ & |
1104 |
|
|
& 0.16975E-04_JPRB,0.74055E-03_JPRB,0.10715E-02_JPRB,0.13117E-02_JPRB,0.14851E-02_JPRB, & |
1105 |
|
✗ |
& 0.15938E-02_JPRB,0.16026E-02_JPRB,0.14354E-02_JPRB,0.65034E-03_JPRB /) |
1106 |
|
|
KA(:, 3,10, 5) = (/ & |
1107 |
|
|
& 0.19421E-04_JPRB,0.77996E-03_JPRB,0.11243E-02_JPRB,0.13791E-02_JPRB,0.15636E-02_JPRB, & |
1108 |
|
✗ |
& 0.16707E-02_JPRB,0.16678E-02_JPRB,0.14908E-02_JPRB,0.69875E-03_JPRB /) |
1109 |
|
|
KA(:, 4,10, 5) = (/ & |
1110 |
|
|
& 0.21659E-04_JPRB,0.81369E-03_JPRB,0.11746E-02_JPRB,0.14408E-02_JPRB,0.16340E-02_JPRB, & |
1111 |
|
✗ |
& 0.17376E-02_JPRB,0.17267E-02_JPRB,0.15418E-02_JPRB,0.74336E-03_JPRB /) |
1112 |
|
|
KA(:, 5,10, 5) = (/ & |
1113 |
|
|
& 0.23616E-04_JPRB,0.84316E-03_JPRB,0.12215E-02_JPRB,0.14972E-02_JPRB,0.16971E-02_JPRB, & |
1114 |
|
✗ |
& 0.17945E-02_JPRB,0.17834E-02_JPRB,0.15844E-02_JPRB,0.78045E-03_JPRB /) |
1115 |
|
|
KA(:, 1,11, 5) = (/ & |
1116 |
|
|
& 0.11812E-04_JPRB,0.58067E-03_JPRB,0.84658E-03_JPRB,0.10349E-02_JPRB,0.11681E-02_JPRB, & |
1117 |
|
✗ |
& 0.12622E-02_JPRB,0.12806E-02_JPRB,0.11518E-02_JPRB,0.50197E-03_JPRB /) |
1118 |
|
|
KA(:, 2,11, 5) = (/ & |
1119 |
|
|
& 0.13870E-04_JPRB,0.61870E-03_JPRB,0.89364E-03_JPRB,0.10957E-02_JPRB,0.12411E-02_JPRB, & |
1120 |
|
✗ |
& 0.13307E-02_JPRB,0.13366E-02_JPRB,0.11990E-02_JPRB,0.54419E-03_JPRB /) |
1121 |
|
|
KA(:, 3,11, 5) = (/ & |
1122 |
|
|
& 0.15872E-04_JPRB,0.65131E-03_JPRB,0.93843E-03_JPRB,0.11520E-02_JPRB,0.13068E-02_JPRB, & |
1123 |
|
✗ |
& 0.13966E-02_JPRB,0.13927E-02_JPRB,0.12459E-02_JPRB,0.58412E-03_JPRB /) |
1124 |
|
|
KA(:, 4,11, 5) = (/ & |
1125 |
|
|
& 0.17706E-04_JPRB,0.67957E-03_JPRB,0.98128E-03_JPRB,0.12037E-02_JPRB,0.13653E-02_JPRB, & |
1126 |
|
✗ |
& 0.14510E-02_JPRB,0.14423E-02_JPRB,0.12873E-02_JPRB,0.62086E-03_JPRB /) |
1127 |
|
|
KA(:, 5,11, 5) = (/ & |
1128 |
|
|
& 0.19307E-04_JPRB,0.70477E-03_JPRB,0.10208E-02_JPRB,0.12522E-02_JPRB,0.14187E-02_JPRB, & |
1129 |
|
✗ |
& 0.15000E-02_JPRB,0.14882E-02_JPRB,0.13223E-02_JPRB,0.65273E-03_JPRB /) |
1130 |
|
|
KA(:, 1,12, 5) = (/ & |
1131 |
|
|
& 0.96633E-05_JPRB,0.48384E-03_JPRB,0.70464E-03_JPRB,0.86214E-03_JPRB,0.97325E-03_JPRB, & |
1132 |
|
✗ |
& 0.10525E-02_JPRB,0.10661E-02_JPRB,0.95818E-03_JPRB,0.41838E-03_JPRB /) |
1133 |
|
|
KA(:, 2,12, 5) = (/ & |
1134 |
|
|
& 0.11346E-04_JPRB,0.51544E-03_JPRB,0.74375E-03_JPRB,0.91255E-03_JPRB,0.10346E-02_JPRB, & |
1135 |
|
✗ |
& 0.11088E-02_JPRB,0.11124E-02_JPRB,0.99787E-03_JPRB,0.45436E-03_JPRB /) |
1136 |
|
|
KA(:, 3,12, 5) = (/ & |
1137 |
|
|
& 0.12983E-04_JPRB,0.54258E-03_JPRB,0.78191E-03_JPRB,0.95994E-03_JPRB,0.10893E-02_JPRB, & |
1138 |
|
✗ |
& 0.11636E-02_JPRB,0.11595E-02_JPRB,0.10379E-02_JPRB,0.48767E-03_JPRB /) |
1139 |
|
|
KA(:, 4,12, 5) = (/ & |
1140 |
|
|
& 0.14483E-04_JPRB,0.56662E-03_JPRB,0.81795E-03_JPRB,0.10036E-02_JPRB,0.11385E-02_JPRB, & |
1141 |
|
✗ |
& 0.12091E-02_JPRB,0.12012E-02_JPRB,0.10707E-02_JPRB,0.51810E-03_JPRB /) |
1142 |
|
|
KA(:, 5,12, 5) = (/ & |
1143 |
|
|
& 0.15790E-04_JPRB,0.58805E-03_JPRB,0.85165E-03_JPRB,0.10447E-02_JPRB,0.11830E-02_JPRB, & |
1144 |
|
✗ |
& 0.12500E-02_JPRB,0.12389E-02_JPRB,0.11012E-02_JPRB,0.54508E-03_JPRB /) |
1145 |
|
|
KA(:, 1,13, 5) = (/ & |
1146 |
|
|
& 0.79057E-05_JPRB,0.40215E-03_JPRB,0.58516E-03_JPRB,0.71666E-03_JPRB,0.80969E-03_JPRB, & |
1147 |
|
✗ |
& 0.87518E-03_JPRB,0.88581E-03_JPRB,0.79569E-03_JPRB,0.34825E-03_JPRB /) |
1148 |
|
|
KA(:, 2,13, 5) = (/ & |
1149 |
|
|
& 0.92808E-05_JPRB,0.42853E-03_JPRB,0.61818E-03_JPRB,0.75847E-03_JPRB,0.86082E-03_JPRB, & |
1150 |
|
✗ |
& 0.92160E-03_JPRB,0.92436E-03_JPRB,0.82894E-03_JPRB,0.37871E-03_JPRB /) |
1151 |
|
|
KA(:, 3,13, 5) = (/ & |
1152 |
|
|
& 0.10621E-04_JPRB,0.45134E-03_JPRB,0.65028E-03_JPRB,0.79815E-03_JPRB,0.90622E-03_JPRB, & |
1153 |
|
✗ |
& 0.96752E-03_JPRB,0.96291E-03_JPRB,0.86177E-03_JPRB,0.40642E-03_JPRB /) |
1154 |
|
|
KA(:, 4,13, 5) = (/ & |
1155 |
|
|
& 0.11849E-04_JPRB,0.47161E-03_JPRB,0.68090E-03_JPRB,0.83530E-03_JPRB,0.94770E-03_JPRB, & |
1156 |
|
✗ |
& 0.10054E-02_JPRB,0.99815E-03_JPRB,0.88908E-03_JPRB,0.43149E-03_JPRB /) |
1157 |
|
|
KA(:, 5,13, 5) = (/ & |
1158 |
|
|
& 0.12897E-04_JPRB,0.49000E-03_JPRB,0.70944E-03_JPRB,0.86982E-03_JPRB,0.98430E-03_JPRB, & |
1159 |
|
✗ |
& 0.10398E-02_JPRB,0.10297E-02_JPRB,0.91483E-03_JPRB,0.45459E-03_JPRB /) |
1160 |
|
|
KA(:, 1, 1, 6) = (/ & |
1161 |
|
|
& 0.23575E-02_JPRB,0.96457E-02_JPRB,0.13128E-01_JPRB,0.15361E-01_JPRB,0.16662E-01_JPRB, & |
1162 |
|
✗ |
& 0.16999E-01_JPRB,0.16303E-01_JPRB,0.14368E-01_JPRB,0.10185E-01_JPRB /) |
1163 |
|
|
KA(:, 2, 1, 6) = (/ & |
1164 |
|
|
& 0.24508E-02_JPRB,0.99768E-02_JPRB,0.13562E-01_JPRB,0.15786E-01_JPRB,0.17046E-01_JPRB, & |
1165 |
|
✗ |
& 0.17316E-01_JPRB,0.16539E-01_JPRB,0.14627E-01_JPRB,0.10447E-01_JPRB /) |
1166 |
|
|
KA(:, 3, 1, 6) = (/ & |
1167 |
|
|
& 0.25176E-02_JPRB,0.10262E-01_JPRB,0.13947E-01_JPRB,0.16182E-01_JPRB,0.17390E-01_JPRB, & |
1168 |
|
✗ |
& 0.17588E-01_JPRB,0.16752E-01_JPRB,0.14857E-01_JPRB,0.10699E-01_JPRB /) |
1169 |
|
|
KA(:, 4, 1, 6) = (/ & |
1170 |
|
|
& 0.25627E-02_JPRB,0.10510E-01_JPRB,0.14271E-01_JPRB,0.16517E-01_JPRB,0.17678E-01_JPRB, & |
1171 |
|
✗ |
& 0.17815E-01_JPRB,0.16941E-01_JPRB,0.15073E-01_JPRB,0.10970E-01_JPRB /) |
1172 |
|
|
KA(:, 5, 1, 6) = (/ & |
1173 |
|
|
& 0.25904E-02_JPRB,0.10712E-01_JPRB,0.14528E-01_JPRB,0.16788E-01_JPRB,0.17912E-01_JPRB, & |
1174 |
|
✗ |
& 0.18013E-01_JPRB,0.17126E-01_JPRB,0.15282E-01_JPRB,0.11215E-01_JPRB /) |
1175 |
|
|
KA(:, 1, 2, 6) = (/ & |
1176 |
|
|
& 0.19422E-02_JPRB,0.85179E-02_JPRB,0.11603E-01_JPRB,0.13561E-01_JPRB,0.14694E-01_JPRB, & |
1177 |
|
✗ |
& 0.14952E-01_JPRB,0.14274E-01_JPRB,0.12616E-01_JPRB,0.86910E-02_JPRB /) |
1178 |
|
|
KA(:, 2, 2, 6) = (/ & |
1179 |
|
|
& 0.20231E-02_JPRB,0.88208E-02_JPRB,0.11992E-01_JPRB,0.13942E-01_JPRB,0.15043E-01_JPRB, & |
1180 |
|
✗ |
& 0.15241E-01_JPRB,0.14503E-01_JPRB,0.12849E-01_JPRB,0.89203E-02_JPRB /) |
1181 |
|
|
KA(:, 3, 2, 6) = (/ & |
1182 |
|
|
& 0.20824E-02_JPRB,0.90892E-02_JPRB,0.12333E-01_JPRB,0.14283E-01_JPRB,0.15343E-01_JPRB, & |
1183 |
|
✗ |
& 0.15493E-01_JPRB,0.14704E-01_JPRB,0.13065E-01_JPRB,0.91412E-02_JPRB /) |
1184 |
|
|
KA(:, 4, 2, 6) = (/ & |
1185 |
|
|
& 0.21235E-02_JPRB,0.93193E-02_JPRB,0.12613E-01_JPRB,0.14573E-01_JPRB,0.15586E-01_JPRB, & |
1186 |
|
✗ |
& 0.15696E-01_JPRB,0.14900E-01_JPRB,0.13269E-01_JPRB,0.93731E-02_JPRB /) |
1187 |
|
|
KA(:, 5, 2, 6) = (/ & |
1188 |
|
|
& 0.21501E-02_JPRB,0.95064E-02_JPRB,0.12844E-01_JPRB,0.14802E-01_JPRB,0.15789E-01_JPRB, & |
1189 |
|
✗ |
& 0.15872E-01_JPRB,0.15079E-01_JPRB,0.13459E-01_JPRB,0.95922E-02_JPRB /) |
1190 |
|
|
KA(:, 1, 3, 6) = (/ & |
1191 |
|
|
& 0.15710E-02_JPRB,0.73739E-02_JPRB,0.10084E-01_JPRB,0.11795E-01_JPRB,0.12791E-01_JPRB, & |
1192 |
|
✗ |
& 0.13002E-01_JPRB,0.12408E-01_JPRB,0.10948E-01_JPRB,0.73256E-02_JPRB /) |
1193 |
|
|
KA(:, 2, 3, 6) = (/ & |
1194 |
|
|
& 0.16445E-02_JPRB,0.76603E-02_JPRB,0.10441E-01_JPRB,0.12136E-01_JPRB,0.13098E-01_JPRB, & |
1195 |
|
✗ |
& 0.13272E-01_JPRB,0.12629E-01_JPRB,0.11169E-01_JPRB,0.75277E-02_JPRB /) |
1196 |
|
|
KA(:, 3, 3, 6) = (/ & |
1197 |
|
|
& 0.17016E-02_JPRB,0.79120E-02_JPRB,0.10738E-01_JPRB,0.12444E-01_JPRB,0.13365E-01_JPRB, & |
1198 |
|
✗ |
& 0.13502E-01_JPRB,0.12827E-01_JPRB,0.11365E-01_JPRB,0.77275E-02_JPRB /) |
1199 |
|
|
KA(:, 4, 3, 6) = (/ & |
1200 |
|
|
& 0.17419E-02_JPRB,0.81204E-02_JPRB,0.10992E-01_JPRB,0.12704E-01_JPRB,0.13579E-01_JPRB, & |
1201 |
|
✗ |
& 0.13687E-01_JPRB,0.13022E-01_JPRB,0.11565E-01_JPRB,0.79327E-02_JPRB /) |
1202 |
|
|
KA(:, 5, 3, 6) = (/ & |
1203 |
|
|
& 0.17693E-02_JPRB,0.82896E-02_JPRB,0.11201E-01_JPRB,0.12903E-01_JPRB,0.13761E-01_JPRB, & |
1204 |
|
✗ |
& 0.13854E-01_JPRB,0.13193E-01_JPRB,0.11760E-01_JPRB,0.81324E-02_JPRB /) |
1205 |
|
|
KA(:, 1, 4, 6) = (/ & |
1206 |
|
|
& 0.12568E-02_JPRB,0.62925E-02_JPRB,0.86570E-02_JPRB,0.10156E-01_JPRB,0.11020E-01_JPRB, & |
1207 |
|
✗ |
& 0.11220E-01_JPRB,0.10710E-01_JPRB,0.94329E-02_JPRB,0.61812E-02_JPRB /) |
1208 |
|
|
KA(:, 2, 4, 6) = (/ & |
1209 |
|
|
& 0.13242E-02_JPRB,0.65532E-02_JPRB,0.89756E-02_JPRB,0.10460E-01_JPRB,0.11292E-01_JPRB, & |
1210 |
|
✗ |
& 0.11463E-01_JPRB,0.10924E-01_JPRB,0.96449E-02_JPRB,0.63620E-02_JPRB /) |
1211 |
|
|
KA(:, 3, 4, 6) = (/ & |
1212 |
|
|
& 0.13782E-02_JPRB,0.67807E-02_JPRB,0.92447E-02_JPRB,0.10739E-01_JPRB,0.11531E-01_JPRB, & |
1213 |
|
✗ |
& 0.11676E-01_JPRB,0.11115E-01_JPRB,0.98384E-02_JPRB,0.65417E-02_JPRB /) |
1214 |
|
|
KA(:, 4, 4, 6) = (/ & |
1215 |
|
|
& 0.14185E-02_JPRB,0.69728E-02_JPRB,0.94724E-02_JPRB,0.10967E-01_JPRB,0.11732E-01_JPRB, & |
1216 |
|
✗ |
& 0.11853E-01_JPRB,0.11299E-01_JPRB,0.10029E-01_JPRB,0.67314E-02_JPRB /) |
1217 |
|
|
KA(:, 5, 4, 6) = (/ & |
1218 |
|
|
& 0.14466E-02_JPRB,0.71294E-02_JPRB,0.96551E-02_JPRB,0.11150E-01_JPRB,0.11897E-01_JPRB, & |
1219 |
|
✗ |
& 0.12003E-01_JPRB,0.11457E-01_JPRB,0.10212E-01_JPRB,0.69134E-02_JPRB /) |
1220 |
|
|
KA(:, 1, 5, 6) = (/ & |
1221 |
|
|
& 0.99815E-03_JPRB,0.53184E-02_JPRB,0.73668E-02_JPRB,0.86661E-02_JPRB,0.94189E-02_JPRB, & |
1222 |
|
✗ |
& 0.96088E-02_JPRB,0.91860E-02_JPRB,0.80854E-02_JPRB,0.52147E-02_JPRB /) |
1223 |
|
|
KA(:, 2, 5, 6) = (/ & |
1224 |
|
|
& 0.10594E-02_JPRB,0.55502E-02_JPRB,0.76480E-02_JPRB,0.89382E-02_JPRB,0.96675E-02_JPRB, & |
1225 |
|
✗ |
& 0.98281E-02_JPRB,0.93908E-02_JPRB,0.82904E-02_JPRB,0.53805E-02_JPRB /) |
1226 |
|
|
KA(:, 3, 5, 6) = (/ & |
1227 |
|
|
& 0.11093E-02_JPRB,0.57534E-02_JPRB,0.78820E-02_JPRB,0.91873E-02_JPRB,0.98860E-02_JPRB, & |
1228 |
|
✗ |
& 0.10027E-01_JPRB,0.95739E-02_JPRB,0.84774E-02_JPRB,0.55398E-02_JPRB /) |
1229 |
|
|
KA(:, 4, 5, 6) = (/ & |
1230 |
|
|
& 0.11487E-02_JPRB,0.59264E-02_JPRB,0.80746E-02_JPRB,0.93952E-02_JPRB,0.10070E-01_JPRB, & |
1231 |
|
✗ |
& 0.10196E-01_JPRB,0.97460E-02_JPRB,0.86586E-02_JPRB,0.57118E-02_JPRB /) |
1232 |
|
|
KA(:, 5, 5, 6) = (/ & |
1233 |
|
|
& 0.11770E-02_JPRB,0.60715E-02_JPRB,0.82322E-02_JPRB,0.95590E-02_JPRB,0.10225E-01_JPRB, & |
1234 |
|
✗ |
& 0.10337E-01_JPRB,0.98891E-02_JPRB,0.88282E-02_JPRB,0.58756E-02_JPRB /) |
1235 |
|
|
KA(:, 1, 6, 6) = (/ & |
1236 |
|
|
& 0.78484E-03_JPRB,0.44557E-02_JPRB,0.62088E-02_JPRB,0.73238E-02_JPRB,0.79758E-02_JPRB, & |
1237 |
|
✗ |
& 0.81565E-02_JPRB,0.78234E-02_JPRB,0.68949E-02_JPRB,0.43721E-02_JPRB /) |
1238 |
|
|
KA(:, 2, 6, 6) = (/ & |
1239 |
|
|
& 0.84104E-03_JPRB,0.46584E-02_JPRB,0.64548E-02_JPRB,0.75720E-02_JPRB,0.82049E-02_JPRB, & |
1240 |
|
✗ |
& 0.83603E-02_JPRB,0.80139E-02_JPRB,0.70912E-02_JPRB,0.45208E-02_JPRB /) |
1241 |
|
|
KA(:, 3, 6, 6) = (/ & |
1242 |
|
|
& 0.88703E-03_JPRB,0.48386E-02_JPRB,0.66585E-02_JPRB,0.77939E-02_JPRB,0.84077E-02_JPRB, & |
1243 |
|
✗ |
& 0.85494E-02_JPRB,0.81878E-02_JPRB,0.72673E-02_JPRB,0.46664E-02_JPRB /) |
1244 |
|
|
KA(:, 4, 6, 6) = (/ & |
1245 |
|
|
& 0.92429E-03_JPRB,0.49939E-02_JPRB,0.68255E-02_JPRB,0.79793E-02_JPRB,0.85811E-02_JPRB, & |
1246 |
|
✗ |
& 0.87123E-02_JPRB,0.83423E-02_JPRB,0.74324E-02_JPRB,0.48193E-02_JPRB /) |
1247 |
|
|
KA(:, 5, 6, 6) = (/ & |
1248 |
|
|
& 0.95287E-03_JPRB,0.51269E-02_JPRB,0.69664E-02_JPRB,0.81216E-02_JPRB,0.87256E-02_JPRB, & |
1249 |
|
✗ |
& 0.88404E-02_JPRB,0.84793E-02_JPRB,0.75885E-02_JPRB,0.49684E-02_JPRB /) |
1250 |
|
|
KA(:, 1, 7, 6) = (/ & |
1251 |
|
|
& 0.61176E-03_JPRB,0.37105E-02_JPRB,0.51921E-02_JPRB,0.61495E-02_JPRB,0.67086E-02_JPRB, & |
1252 |
|
✗ |
& 0.68737E-02_JPRB,0.66196E-02_JPRB,0.58499E-02_JPRB,0.36398E-02_JPRB /) |
1253 |
|
|
KA(:, 2, 7, 6) = (/ & |
1254 |
|
|
& 0.66355E-03_JPRB,0.38845E-02_JPRB,0.54092E-02_JPRB,0.63684E-02_JPRB,0.69191E-02_JPRB, & |
1255 |
|
✗ |
& 0.70638E-02_JPRB,0.67967E-02_JPRB,0.60329E-02_JPRB,0.37725E-02_JPRB /) |
1256 |
|
|
KA(:, 3, 7, 6) = (/ & |
1257 |
|
|
& 0.70584E-03_JPRB,0.40429E-02_JPRB,0.55891E-02_JPRB,0.65665E-02_JPRB,0.71061E-02_JPRB, & |
1258 |
|
✗ |
& 0.72392E-02_JPRB,0.69566E-02_JPRB,0.61958E-02_JPRB,0.39040E-02_JPRB /) |
1259 |
|
|
KA(:, 4, 7, 6) = (/ & |
1260 |
|
|
& 0.74016E-03_JPRB,0.41804E-02_JPRB,0.57362E-02_JPRB,0.67306E-02_JPRB,0.72656E-02_JPRB, & |
1261 |
|
✗ |
& 0.73939E-02_JPRB,0.71002E-02_JPRB,0.63458E-02_JPRB,0.40422E-02_JPRB /) |
1262 |
|
|
KA(:, 5, 7, 6) = (/ & |
1263 |
|
|
& 0.76793E-03_JPRB,0.43013E-02_JPRB,0.58634E-02_JPRB,0.68605E-02_JPRB,0.73917E-02_JPRB, & |
1264 |
|
✗ |
& 0.75160E-02_JPRB,0.72292E-02_JPRB,0.64867E-02_JPRB,0.41753E-02_JPRB /) |
1265 |
|
|
KA(:, 1, 8, 6) = (/ & |
1266 |
|
|
& 0.47383E-03_JPRB,0.30719E-02_JPRB,0.43157E-02_JPRB,0.51299E-02_JPRB,0.56113E-02_JPRB, & |
1267 |
|
✗ |
& 0.57604E-02_JPRB,0.55584E-02_JPRB,0.49263E-02_JPRB,0.30099E-02_JPRB /) |
1268 |
|
|
KA(:, 2, 8, 6) = (/ & |
1269 |
|
|
& 0.52030E-03_JPRB,0.32224E-02_JPRB,0.45088E-02_JPRB,0.53256E-02_JPRB,0.58049E-02_JPRB, & |
1270 |
|
✗ |
& 0.59369E-02_JPRB,0.57249E-02_JPRB,0.50950E-02_JPRB,0.31335E-02_JPRB /) |
1271 |
|
|
KA(:, 3, 8, 6) = (/ & |
1272 |
|
|
& 0.55897E-03_JPRB,0.33601E-02_JPRB,0.46690E-02_JPRB,0.55008E-02_JPRB,0.59733E-02_JPRB, & |
1273 |
|
✗ |
& 0.60982E-02_JPRB,0.58703E-02_JPRB,0.52416E-02_JPRB,0.32505E-02_JPRB /) |
1274 |
|
|
|
1275 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART4',1,ZHOOK_HANDLE) |
1276 |
|
✗ |
END SUBROUTINE PART4 |
1277 |
|
|
|
1278 |
|
|
|
1279 |
|
✗ |
SUBROUTINE PART5 |
1280 |
|
|
|
1281 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1282 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART5',0,ZHOOK_HANDLE) |
1283 |
|
|
|
1284 |
|
|
|
1285 |
|
|
KA(:, 4, 8, 6) = (/ & |
1286 |
|
|
& 0.59051E-03_JPRB,0.34823E-02_JPRB,0.48003E-02_JPRB,0.56492E-02_JPRB,0.61147E-02_JPRB, & |
1287 |
|
✗ |
& 0.62407E-02_JPRB,0.60011E-02_JPRB,0.53776E-02_JPRB,0.33691E-02_JPRB /) |
1288 |
|
|
KA(:, 5, 8, 6) = (/ & |
1289 |
|
|
& 0.61638E-03_JPRB,0.35908E-02_JPRB,0.49151E-02_JPRB,0.57682E-02_JPRB,0.62269E-02_JPRB, & |
1290 |
|
✗ |
& 0.63505E-02_JPRB,0.61226E-02_JPRB,0.55061E-02_JPRB,0.34893E-02_JPRB /) |
1291 |
|
|
KA(:, 1, 9, 6) = (/ & |
1292 |
|
|
& 0.36452E-03_JPRB,0.25301E-02_JPRB,0.35655E-02_JPRB,0.42558E-02_JPRB,0.46668E-02_JPRB, & |
1293 |
|
✗ |
& 0.47995E-02_JPRB,0.46391E-02_JPRB,0.41176E-02_JPRB,0.24723E-02_JPRB /) |
1294 |
|
|
KA(:, 2, 9, 6) = (/ & |
1295 |
|
|
& 0.40521E-03_JPRB,0.26609E-02_JPRB,0.37368E-02_JPRB,0.44313E-02_JPRB,0.48422E-02_JPRB, & |
1296 |
|
✗ |
& 0.49605E-02_JPRB,0.47876E-02_JPRB,0.42682E-02_JPRB,0.25854E-02_JPRB /) |
1297 |
|
|
KA(:, 3, 9, 6) = (/ & |
1298 |
|
|
& 0.44042E-03_JPRB,0.27811E-02_JPRB,0.38822E-02_JPRB,0.45871E-02_JPRB,0.49951E-02_JPRB, & |
1299 |
|
✗ |
& 0.51048E-02_JPRB,0.49189E-02_JPRB,0.43988E-02_JPRB,0.26922E-02_JPRB /) |
1300 |
|
|
KA(:, 4, 9, 6) = (/ & |
1301 |
|
|
& 0.46934E-03_JPRB,0.28890E-02_JPRB,0.40015E-02_JPRB,0.47204E-02_JPRB,0.51195E-02_JPRB, & |
1302 |
|
✗ |
& 0.52329E-02_JPRB,0.50398E-02_JPRB,0.45211E-02_JPRB,0.27947E-02_JPRB /) |
1303 |
|
|
KA(:, 5, 9, 6) = (/ & |
1304 |
|
|
& 0.49296E-03_JPRB,0.29863E-02_JPRB,0.41052E-02_JPRB,0.48296E-02_JPRB,0.52212E-02_JPRB, & |
1305 |
|
✗ |
& 0.53320E-02_JPRB,0.51516E-02_JPRB,0.46410E-02_JPRB,0.29014E-02_JPRB /) |
1306 |
|
|
KA(:, 1,10, 6) = (/ & |
1307 |
|
|
& 0.28141E-03_JPRB,0.20839E-02_JPRB,0.29434E-02_JPRB,0.35250E-02_JPRB,0.38705E-02_JPRB, & |
1308 |
|
✗ |
& 0.39907E-02_JPRB,0.38574E-02_JPRB,0.34280E-02_JPRB,0.20276E-02_JPRB /) |
1309 |
|
|
KA(:, 2,10, 6) = (/ & |
1310 |
|
|
& 0.31642E-03_JPRB,0.21962E-02_JPRB,0.30947E-02_JPRB,0.36798E-02_JPRB,0.40279E-02_JPRB, & |
1311 |
|
✗ |
& 0.41317E-02_JPRB,0.39905E-02_JPRB,0.35591E-02_JPRB,0.21304E-02_JPRB /) |
1312 |
|
|
KA(:, 3,10, 6) = (/ & |
1313 |
|
|
& 0.34743E-03_JPRB,0.23002E-02_JPRB,0.32251E-02_JPRB,0.38167E-02_JPRB,0.41632E-02_JPRB, & |
1314 |
|
✗ |
& 0.42588E-02_JPRB,0.41077E-02_JPRB,0.36737E-02_JPRB,0.22246E-02_JPRB /) |
1315 |
|
|
KA(:, 4,10, 6) = (/ & |
1316 |
|
|
& 0.37337E-03_JPRB,0.23958E-02_JPRB,0.33326E-02_JPRB,0.39351E-02_JPRB,0.42727E-02_JPRB, & |
1317 |
|
✗ |
& 0.43699E-02_JPRB,0.42167E-02_JPRB,0.37850E-02_JPRB,0.23171E-02_JPRB /) |
1318 |
|
|
KA(:, 5,10, 6) = (/ & |
1319 |
|
|
& 0.39464E-03_JPRB,0.24818E-02_JPRB,0.34245E-02_JPRB,0.40341E-02_JPRB,0.43635E-02_JPRB, & |
1320 |
|
✗ |
& 0.44592E-02_JPRB,0.43133E-02_JPRB,0.38931E-02_JPRB,0.24123E-02_JPRB /) |
1321 |
|
|
KA(:, 1,11, 6) = (/ & |
1322 |
|
|
& 0.23046E-03_JPRB,0.17561E-02_JPRB,0.24821E-02_JPRB,0.29697E-02_JPRB,0.32603E-02_JPRB, & |
1323 |
|
✗ |
& 0.33590E-02_JPRB,0.32465E-02_JPRB,0.28911E-02_JPRB,0.17000E-02_JPRB /) |
1324 |
|
|
KA(:, 2,11, 6) = (/ & |
1325 |
|
|
& 0.25900E-03_JPRB,0.18499E-02_JPRB,0.26079E-02_JPRB,0.30983E-02_JPRB,0.33914E-02_JPRB, & |
1326 |
|
✗ |
& 0.34790E-02_JPRB,0.33598E-02_JPRB,0.30000E-02_JPRB,0.17879E-02_JPRB /) |
1327 |
|
|
KA(:, 3,11, 6) = (/ & |
1328 |
|
|
& 0.28431E-03_JPRB,0.19371E-02_JPRB,0.27154E-02_JPRB,0.32123E-02_JPRB,0.35009E-02_JPRB, & |
1329 |
|
✗ |
& 0.35810E-02_JPRB,0.34582E-02_JPRB,0.30989E-02_JPRB,0.18709E-02_JPRB /) |
1330 |
|
|
KA(:, 4,11, 6) = (/ & |
1331 |
|
|
& 0.30554E-03_JPRB,0.20175E-02_JPRB,0.28047E-02_JPRB,0.33094E-02_JPRB,0.35897E-02_JPRB, & |
1332 |
|
✗ |
& 0.36708E-02_JPRB,0.35500E-02_JPRB,0.31964E-02_JPRB,0.19524E-02_JPRB /) |
1333 |
|
|
KA(:, 5,11, 6) = (/ & |
1334 |
|
|
& 0.32290E-03_JPRB,0.20906E-02_JPRB,0.28827E-02_JPRB,0.33907E-02_JPRB,0.36638E-02_JPRB, & |
1335 |
|
✗ |
& 0.37448E-02_JPRB,0.36322E-02_JPRB,0.32921E-02_JPRB,0.20342E-02_JPRB /) |
1336 |
|
|
KA(:, 1,12, 6) = (/ & |
1337 |
|
|
& 0.18873E-03_JPRB,0.14753E-02_JPRB,0.20859E-02_JPRB,0.24932E-02_JPRB,0.27362E-02_JPRB, & |
1338 |
|
✗ |
& 0.28163E-02_JPRB,0.27231E-02_JPRB,0.24287E-02_JPRB,0.14226E-02_JPRB /) |
1339 |
|
|
KA(:, 2,12, 6) = (/ & |
1340 |
|
|
& 0.21206E-03_JPRB,0.15542E-02_JPRB,0.21905E-02_JPRB,0.25997E-02_JPRB,0.28436E-02_JPRB, & |
1341 |
|
✗ |
& 0.29146E-02_JPRB,0.28182E-02_JPRB,0.25196E-02_JPRB,0.14964E-02_JPRB /) |
1342 |
|
|
KA(:, 3,12, 6) = (/ & |
1343 |
|
|
& 0.23271E-03_JPRB,0.16282E-02_JPRB,0.22789E-02_JPRB,0.26937E-02_JPRB,0.29320E-02_JPRB, & |
1344 |
|
✗ |
& 0.29995E-02_JPRB,0.29004E-02_JPRB,0.26063E-02_JPRB,0.15684E-02_JPRB /) |
1345 |
|
|
KA(:, 4,12, 6) = (/ & |
1346 |
|
|
& 0.25005E-03_JPRB,0.16959E-02_JPRB,0.23539E-02_JPRB,0.27739E-02_JPRB,0.30052E-02_JPRB, & |
1347 |
|
✗ |
& 0.30738E-02_JPRB,0.29781E-02_JPRB,0.26924E-02_JPRB,0.16388E-02_JPRB /) |
1348 |
|
|
KA(:, 5,12, 6) = (/ & |
1349 |
|
|
& 0.26424E-03_JPRB,0.17579E-02_JPRB,0.24198E-02_JPRB,0.28418E-02_JPRB,0.30688E-02_JPRB, & |
1350 |
|
✗ |
& 0.31370E-02_JPRB,0.30478E-02_JPRB,0.27734E-02_JPRB,0.17090E-02_JPRB /) |
1351 |
|
|
KA(:, 1,13, 6) = (/ & |
1352 |
|
|
& 0.15451E-03_JPRB,0.12362E-02_JPRB,0.17471E-02_JPRB,0.20856E-02_JPRB,0.22870E-02_JPRB, & |
1353 |
|
✗ |
& 0.23530E-02_JPRB,0.22758E-02_JPRB,0.20318E-02_JPRB,0.11868E-02_JPRB /) |
1354 |
|
|
KA(:, 2,13, 6) = (/ & |
1355 |
|
|
& 0.17357E-03_JPRB,0.13027E-02_JPRB,0.18337E-02_JPRB,0.21736E-02_JPRB,0.23752E-02_JPRB, & |
1356 |
|
✗ |
& 0.24339E-02_JPRB,0.23549E-02_JPRB,0.21104E-02_JPRB,0.12492E-02_JPRB /) |
1357 |
|
|
KA(:, 3,13, 6) = (/ & |
1358 |
|
|
& 0.19045E-03_JPRB,0.13651E-02_JPRB,0.19071E-02_JPRB,0.22520E-02_JPRB,0.24479E-02_JPRB, & |
1359 |
|
✗ |
& 0.25052E-02_JPRB,0.24255E-02_JPRB,0.21862E-02_JPRB,0.13114E-02_JPRB /) |
1360 |
|
|
KA(:, 4,13, 6) = (/ & |
1361 |
|
|
& 0.20459E-03_JPRB,0.14225E-02_JPRB,0.19702E-02_JPRB,0.23195E-02_JPRB,0.25109E-02_JPRB, & |
1362 |
|
✗ |
& 0.25680E-02_JPRB,0.24906E-02_JPRB,0.22592E-02_JPRB,0.13717E-02_JPRB /) |
1363 |
|
|
KA(:, 5,13, 6) = (/ & |
1364 |
|
|
& 0.21621E-03_JPRB,0.14751E-02_JPRB,0.20267E-02_JPRB,0.23775E-02_JPRB,0.25654E-02_JPRB, & |
1365 |
|
✗ |
& 0.26221E-02_JPRB,0.25513E-02_JPRB,0.23283E-02_JPRB,0.14321E-02_JPRB /) |
1366 |
|
|
KA(:, 1, 1, 7) = (/ & |
1367 |
|
|
& 0.14551E-01_JPRB,0.26282E-01_JPRB,0.32053E-01_JPRB,0.35189E-01_JPRB,0.36600E-01_JPRB, & |
1368 |
|
✗ |
& 0.36646E-01_JPRB,0.35552E-01_JPRB,0.33215E-01_JPRB,0.27309E-01_JPRB /) |
1369 |
|
|
KA(:, 2, 1, 7) = (/ & |
1370 |
|
|
& 0.15360E-01_JPRB,0.26847E-01_JPRB,0.32411E-01_JPRB,0.35426E-01_JPRB,0.36803E-01_JPRB, & |
1371 |
|
✗ |
& 0.36994E-01_JPRB,0.36037E-01_JPRB,0.33674E-01_JPRB,0.27881E-01_JPRB /) |
1372 |
|
|
KA(:, 3, 1, 7) = (/ & |
1373 |
|
|
& 0.16052E-01_JPRB,0.27358E-01_JPRB,0.32711E-01_JPRB,0.35602E-01_JPRB,0.37002E-01_JPRB, & |
1374 |
|
✗ |
& 0.37322E-01_JPRB,0.36495E-01_JPRB,0.34092E-01_JPRB,0.28365E-01_JPRB /) |
1375 |
|
|
KA(:, 4, 1, 7) = (/ & |
1376 |
|
|
& 0.16634E-01_JPRB,0.27765E-01_JPRB,0.32975E-01_JPRB,0.35757E-01_JPRB,0.37198E-01_JPRB, & |
1377 |
|
✗ |
& 0.37629E-01_JPRB,0.36871E-01_JPRB,0.34489E-01_JPRB,0.28817E-01_JPRB /) |
1378 |
|
|
KA(:, 5, 1, 7) = (/ & |
1379 |
|
|
& 0.17092E-01_JPRB,0.28088E-01_JPRB,0.33173E-01_JPRB,0.35899E-01_JPRB,0.37369E-01_JPRB, & |
1380 |
|
✗ |
& 0.37894E-01_JPRB,0.37206E-01_JPRB,0.34856E-01_JPRB,0.29236E-01_JPRB /) |
1381 |
|
|
KA(:, 1, 2, 7) = (/ & |
1382 |
|
|
& 0.12675E-01_JPRB,0.23757E-01_JPRB,0.28827E-01_JPRB,0.31475E-01_JPRB,0.32647E-01_JPRB, & |
1383 |
|
✗ |
& 0.32779E-01_JPRB,0.31874E-01_JPRB,0.29659E-01_JPRB,0.23735E-01_JPRB /) |
1384 |
|
|
KA(:, 2, 2, 7) = (/ & |
1385 |
|
|
& 0.13363E-01_JPRB,0.24261E-01_JPRB,0.29165E-01_JPRB,0.31734E-01_JPRB,0.32905E-01_JPRB, & |
1386 |
|
✗ |
& 0.33137E-01_JPRB,0.32357E-01_JPRB,0.30114E-01_JPRB,0.24241E-01_JPRB /) |
1387 |
|
|
KA(:, 3, 2, 7) = (/ & |
1388 |
|
|
& 0.13952E-01_JPRB,0.24673E-01_JPRB,0.29458E-01_JPRB,0.31940E-01_JPRB,0.33167E-01_JPRB, & |
1389 |
|
✗ |
& 0.33486E-01_JPRB,0.32794E-01_JPRB,0.30540E-01_JPRB,0.24704E-01_JPRB /) |
1390 |
|
|
KA(:, 4, 2, 7) = (/ & |
1391 |
|
|
& 0.14440E-01_JPRB,0.25010E-01_JPRB,0.29692E-01_JPRB,0.32131E-01_JPRB,0.33402E-01_JPRB, & |
1392 |
|
✗ |
& 0.33816E-01_JPRB,0.33185E-01_JPRB,0.30944E-01_JPRB,0.25123E-01_JPRB /) |
1393 |
|
|
KA(:, 5, 2, 7) = (/ & |
1394 |
|
|
& 0.14810E-01_JPRB,0.25246E-01_JPRB,0.29865E-01_JPRB,0.32323E-01_JPRB,0.33624E-01_JPRB, & |
1395 |
|
✗ |
& 0.34125E-01_JPRB,0.33530E-01_JPRB,0.31299E-01_JPRB,0.25501E-01_JPRB /) |
1396 |
|
|
KA(:, 1, 3, 7) = (/ & |
1397 |
|
|
& 0.10764E-01_JPRB,0.21180E-01_JPRB,0.25645E-01_JPRB,0.27934E-01_JPRB,0.28891E-01_JPRB, & |
1398 |
|
✗ |
& 0.28978E-01_JPRB,0.28215E-01_JPRB,0.26250E-01_JPRB,0.20340E-01_JPRB /) |
1399 |
|
|
KA(:, 2, 3, 7) = (/ & |
1400 |
|
|
& 0.11371E-01_JPRB,0.21611E-01_JPRB,0.25976E-01_JPRB,0.28221E-01_JPRB,0.29204E-01_JPRB, & |
1401 |
|
✗ |
& 0.29347E-01_JPRB,0.28689E-01_JPRB,0.26687E-01_JPRB,0.20803E-01_JPRB /) |
1402 |
|
|
KA(:, 3, 3, 7) = (/ & |
1403 |
|
|
& 0.11882E-01_JPRB,0.21977E-01_JPRB,0.26258E-01_JPRB,0.28467E-01_JPRB,0.29498E-01_JPRB, & |
1404 |
|
✗ |
& 0.29730E-01_JPRB,0.29113E-01_JPRB,0.27115E-01_JPRB,0.21241E-01_JPRB /) |
1405 |
|
|
KA(:, 4, 3, 7) = (/ & |
1406 |
|
|
& 0.12302E-01_JPRB,0.22273E-01_JPRB,0.26477E-01_JPRB,0.28696E-01_JPRB,0.29766E-01_JPRB, & |
1407 |
|
✗ |
& 0.30099E-01_JPRB,0.29507E-01_JPRB,0.27503E-01_JPRB,0.21620E-01_JPRB /) |
1408 |
|
|
KA(:, 5, 3, 7) = (/ & |
1409 |
|
|
& 0.12624E-01_JPRB,0.22481E-01_JPRB,0.26631E-01_JPRB,0.28900E-01_JPRB,0.30032E-01_JPRB, & |
1410 |
|
✗ |
& 0.30425E-01_JPRB,0.29859E-01_JPRB,0.27842E-01_JPRB,0.21966E-01_JPRB /) |
1411 |
|
|
KA(:, 1, 4, 7) = (/ & |
1412 |
|
|
& 0.89860E-02_JPRB,0.18659E-01_JPRB,0.22605E-01_JPRB,0.24580E-01_JPRB,0.25383E-01_JPRB, & |
1413 |
|
✗ |
& 0.25435E-01_JPRB,0.24761E-01_JPRB,0.23037E-01_JPRB,0.17414E-01_JPRB /) |
1414 |
|
|
KA(:, 2, 4, 7) = (/ & |
1415 |
|
|
& 0.95207E-02_JPRB,0.19048E-01_JPRB,0.22924E-01_JPRB,0.24888E-01_JPRB,0.25739E-01_JPRB, & |
1416 |
|
✗ |
& 0.25823E-01_JPRB,0.25200E-01_JPRB,0.23450E-01_JPRB,0.17847E-01_JPRB /) |
1417 |
|
|
KA(:, 3, 4, 7) = (/ & |
1418 |
|
|
& 0.99723E-02_JPRB,0.19380E-01_JPRB,0.23182E-01_JPRB,0.25155E-01_JPRB,0.26061E-01_JPRB, & |
1419 |
|
✗ |
& 0.26209E-01_JPRB,0.25611E-01_JPRB,0.23862E-01_JPRB,0.18251E-01_JPRB /) |
1420 |
|
|
KA(:, 4, 4, 7) = (/ & |
1421 |
|
|
& 0.10354E-01_JPRB,0.19644E-01_JPRB,0.23397E-01_JPRB,0.25401E-01_JPRB,0.26345E-01_JPRB, & |
1422 |
|
✗ |
& 0.26580E-01_JPRB,0.26000E-01_JPRB,0.24233E-01_JPRB,0.18600E-01_JPRB /) |
1423 |
|
|
KA(:, 5, 4, 7) = (/ & |
1424 |
|
|
& 0.10637E-01_JPRB,0.19822E-01_JPRB,0.23556E-01_JPRB,0.25605E-01_JPRB,0.26619E-01_JPRB, & |
1425 |
|
✗ |
& 0.26913E-01_JPRB,0.26359E-01_JPRB,0.24562E-01_JPRB,0.18925E-01_JPRB /) |
1426 |
|
|
KA(:, 1, 5, 7) = (/ & |
1427 |
|
|
& 0.74104E-02_JPRB,0.16264E-01_JPRB,0.19717E-01_JPRB,0.21452E-01_JPRB,0.22172E-01_JPRB, & |
1428 |
|
✗ |
& 0.22207E-01_JPRB,0.21598E-01_JPRB,0.20075E-01_JPRB,0.14880E-01_JPRB /) |
1429 |
|
|
KA(:, 2, 5, 7) = (/ & |
1430 |
|
|
& 0.78778E-02_JPRB,0.16624E-01_JPRB,0.20022E-01_JPRB,0.21765E-01_JPRB,0.22531E-01_JPRB, & |
1431 |
|
✗ |
& 0.22596E-01_JPRB,0.21999E-01_JPRB,0.20458E-01_JPRB,0.15279E-01_JPRB /) |
1432 |
|
|
KA(:, 3, 5, 7) = (/ & |
1433 |
|
|
& 0.82694E-02_JPRB,0.16928E-01_JPRB,0.20277E-01_JPRB,0.22036E-01_JPRB,0.22859E-01_JPRB, & |
1434 |
|
✗ |
& 0.22978E-01_JPRB,0.22384E-01_JPRB,0.20834E-01_JPRB,0.15650E-01_JPRB /) |
1435 |
|
|
KA(:, 4, 5, 7) = (/ & |
1436 |
|
|
& 0.85919E-02_JPRB,0.17168E-01_JPRB,0.20498E-01_JPRB,0.22274E-01_JPRB,0.23143E-01_JPRB, & |
1437 |
|
✗ |
& 0.23326E-01_JPRB,0.22754E-01_JPRB,0.21189E-01_JPRB,0.15980E-01_JPRB /) |
1438 |
|
|
KA(:, 5, 5, 7) = (/ & |
1439 |
|
|
& 0.88337E-02_JPRB,0.17332E-01_JPRB,0.20664E-01_JPRB,0.22477E-01_JPRB,0.23407E-01_JPRB, & |
1440 |
|
✗ |
& 0.23648E-01_JPRB,0.23111E-01_JPRB,0.21509E-01_JPRB,0.16283E-01_JPRB /) |
1441 |
|
|
KA(:, 1, 6, 7) = (/ & |
1442 |
|
|
& 0.60305E-02_JPRB,0.14008E-01_JPRB,0.17028E-01_JPRB,0.18574E-01_JPRB,0.19236E-01_JPRB, & |
1443 |
|
✗ |
& 0.19269E-01_JPRB,0.18720E-01_JPRB,0.17347E-01_JPRB,0.12656E-01_JPRB /) |
1444 |
|
|
KA(:, 2, 6, 7) = (/ & |
1445 |
|
|
& 0.64356E-02_JPRB,0.14339E-01_JPRB,0.17318E-01_JPRB,0.18872E-01_JPRB,0.19580E-01_JPRB, & |
1446 |
|
✗ |
& 0.19645E-01_JPRB,0.19095E-01_JPRB,0.17705E-01_JPRB,0.13025E-01_JPRB /) |
1447 |
|
|
KA(:, 3, 6, 7) = (/ & |
1448 |
|
|
& 0.67708E-02_JPRB,0.14626E-01_JPRB,0.17575E-01_JPRB,0.19135E-01_JPRB,0.19883E-01_JPRB, & |
1449 |
|
✗ |
& 0.20004E-01_JPRB,0.19454E-01_JPRB,0.18055E-01_JPRB,0.13366E-01_JPRB /) |
1450 |
|
|
KA(:, 4, 6, 7) = (/ & |
1451 |
|
|
& 0.70449E-02_JPRB,0.14853E-01_JPRB,0.17795E-01_JPRB,0.19363E-01_JPRB,0.20156E-01_JPRB, & |
1452 |
|
✗ |
& 0.20324E-01_JPRB,0.19811E-01_JPRB,0.18392E-01_JPRB,0.13679E-01_JPRB /) |
1453 |
|
|
KA(:, 5, 6, 7) = (/ & |
1454 |
|
|
& 0.72586E-02_JPRB,0.15014E-01_JPRB,0.17954E-01_JPRB,0.19569E-01_JPRB,0.20401E-01_JPRB, & |
1455 |
|
✗ |
& 0.20622E-01_JPRB,0.20155E-01_JPRB,0.18706E-01_JPRB,0.13963E-01_JPRB /) |
1456 |
|
|
KA(:, 1, 7, 7) = (/ & |
1457 |
|
|
& 0.48615E-02_JPRB,0.11936E-01_JPRB,0.14574E-01_JPRB,0.15963E-01_JPRB,0.16578E-01_JPRB, & |
1458 |
|
✗ |
& 0.16615E-01_JPRB,0.16125E-01_JPRB,0.14904E-01_JPRB,0.10718E-01_JPRB /) |
1459 |
|
|
KA(:, 2, 7, 7) = (/ & |
1460 |
|
|
& 0.52093E-02_JPRB,0.12247E-01_JPRB,0.14845E-01_JPRB,0.16239E-01_JPRB,0.16890E-01_JPRB, & |
1461 |
|
✗ |
& 0.16965E-01_JPRB,0.16477E-01_JPRB,0.15238E-01_JPRB,0.11050E-01_JPRB /) |
1462 |
|
|
KA(:, 3, 7, 7) = (/ & |
1463 |
|
|
& 0.54981E-02_JPRB,0.12520E-01_JPRB,0.15089E-01_JPRB,0.16485E-01_JPRB,0.17163E-01_JPRB, & |
1464 |
|
✗ |
& 0.17296E-01_JPRB,0.16823E-01_JPRB,0.15561E-01_JPRB,0.11367E-01_JPRB /) |
1465 |
|
|
KA(:, 4, 7, 7) = (/ & |
1466 |
|
|
& 0.57341E-02_JPRB,0.12732E-01_JPRB,0.15302E-01_JPRB,0.16709E-01_JPRB,0.17412E-01_JPRB, & |
1467 |
|
✗ |
& 0.17587E-01_JPRB,0.17156E-01_JPRB,0.15882E-01_JPRB,0.11657E-01_JPRB /) |
1468 |
|
|
KA(:, 5, 7, 7) = (/ & |
1469 |
|
|
& 0.59245E-02_JPRB,0.12879E-01_JPRB,0.15460E-01_JPRB,0.16900E-01_JPRB,0.17646E-01_JPRB, & |
1470 |
|
✗ |
& 0.17862E-01_JPRB,0.17475E-01_JPRB,0.16189E-01_JPRB,0.11924E-01_JPRB /) |
1471 |
|
|
KA(:, 1, 8, 7) = (/ & |
1472 |
|
|
& 0.38903E-02_JPRB,0.10086E-01_JPRB,0.12393E-01_JPRB,0.13617E-01_JPRB,0.14179E-01_JPRB, & |
1473 |
|
✗ |
& 0.14230E-01_JPRB,0.13810E-01_JPRB,0.12741E-01_JPRB,0.90402E-02_JPRB /) |
1474 |
|
|
KA(:, 2, 8, 7) = (/ & |
1475 |
|
|
& 0.41883E-02_JPRB,0.10379E-01_JPRB,0.12642E-01_JPRB,0.13866E-01_JPRB,0.14454E-01_JPRB, & |
1476 |
|
✗ |
& 0.14549E-01_JPRB,0.14140E-01_JPRB,0.13050E-01_JPRB,0.93407E-02_JPRB /) |
1477 |
|
|
KA(:, 3, 8, 7) = (/ & |
1478 |
|
|
& 0.44374E-02_JPRB,0.10628E-01_JPRB,0.12866E-01_JPRB,0.14093E-01_JPRB,0.14702E-01_JPRB, & |
1479 |
|
✗ |
& 0.14847E-01_JPRB,0.14466E-01_JPRB,0.13354E-01_JPRB,0.96289E-02_JPRB /) |
1480 |
|
|
KA(:, 4, 8, 7) = (/ & |
1481 |
|
|
& 0.46417E-02_JPRB,0.10823E-01_JPRB,0.13067E-01_JPRB,0.14297E-01_JPRB,0.14936E-01_JPRB, & |
1482 |
|
✗ |
& 0.15113E-01_JPRB,0.14777E-01_JPRB,0.13659E-01_JPRB,0.98946E-02_JPRB /) |
1483 |
|
|
KA(:, 5, 8, 7) = (/ & |
1484 |
|
|
& 0.48106E-02_JPRB,0.10958E-01_JPRB,0.13212E-01_JPRB,0.14477E-01_JPRB,0.15155E-01_JPRB, & |
1485 |
|
✗ |
& 0.15369E-01_JPRB,0.15065E-01_JPRB,0.13954E-01_JPRB,0.10137E-01_JPRB /) |
1486 |
|
|
KA(:, 1, 9, 7) = (/ & |
1487 |
|
|
& 0.30906E-02_JPRB,0.84716E-02_JPRB,0.10475E-01_JPRB,0.11533E-01_JPRB,0.12037E-01_JPRB, & |
1488 |
|
✗ |
& 0.12102E-01_JPRB,0.11757E-01_JPRB,0.10840E-01_JPRB,0.75790E-02_JPRB /) |
1489 |
|
|
KA(:, 2, 9, 7) = (/ & |
1490 |
|
|
& 0.33456E-02_JPRB,0.87380E-02_JPRB,0.10698E-01_JPRB,0.11759E-01_JPRB,0.12281E-01_JPRB, & |
1491 |
|
✗ |
& 0.12384E-01_JPRB,0.12063E-01_JPRB,0.11124E-01_JPRB,0.78524E-02_JPRB /) |
1492 |
|
|
KA(:, 3, 9, 7) = (/ & |
1493 |
|
|
& 0.35624E-02_JPRB,0.89636E-02_JPRB,0.10908E-01_JPRB,0.11964E-01_JPRB,0.12503E-01_JPRB, & |
1494 |
|
✗ |
& 0.12651E-01_JPRB,0.12366E-01_JPRB,0.11413E-01_JPRB,0.81116E-02_JPRB /) |
1495 |
|
|
KA(:, 4, 9, 7) = (/ & |
1496 |
|
|
& 0.37409E-02_JPRB,0.91394E-02_JPRB,0.11085E-01_JPRB,0.12156E-01_JPRB,0.12717E-01_JPRB, & |
1497 |
|
✗ |
& 0.12895E-01_JPRB,0.12646E-01_JPRB,0.11703E-01_JPRB,0.83543E-02_JPRB /) |
1498 |
|
|
KA(:, 5, 9, 7) = (/ & |
1499 |
|
|
& 0.38899E-02_JPRB,0.92663E-02_JPRB,0.11210E-01_JPRB,0.12323E-01_JPRB,0.12923E-01_JPRB, & |
1500 |
|
✗ |
& 0.13135E-01_JPRB,0.12909E-01_JPRB,0.11979E-01_JPRB,0.85748E-02_JPRB /) |
1501 |
|
|
KA(:, 1,10, 7) = (/ & |
1502 |
|
|
& 0.24588E-02_JPRB,0.70997E-02_JPRB,0.88156E-02_JPRB,0.97280E-02_JPRB,0.10175E-01_JPRB, & |
1503 |
|
✗ |
& 0.10246E-01_JPRB,0.99712E-02_JPRB,0.91951E-02_JPRB,0.63324E-02_JPRB /) |
1504 |
|
|
KA(:, 2,10, 7) = (/ & |
1505 |
|
|
& 0.26743E-02_JPRB,0.73393E-02_JPRB,0.90183E-02_JPRB,0.99289E-02_JPRB,0.10387E-01_JPRB, & |
1506 |
|
✗ |
& 0.10496E-01_JPRB,0.10249E-01_JPRB,0.94566E-02_JPRB,0.65770E-02_JPRB /) |
1507 |
|
|
KA(:, 3,10, 7) = (/ & |
1508 |
|
|
& 0.28610E-02_JPRB,0.75352E-02_JPRB,0.92028E-02_JPRB,0.10117E-01_JPRB,0.10586E-01_JPRB, & |
1509 |
|
✗ |
& 0.10730E-01_JPRB,0.10524E-01_JPRB,0.97307E-02_JPRB,0.68077E-02_JPRB /) |
1510 |
|
|
KA(:, 4,10, 7) = (/ & |
1511 |
|
|
& 0.30147E-02_JPRB,0.76899E-02_JPRB,0.93550E-02_JPRB,0.10291E-01_JPRB,0.10781E-01_JPRB, & |
1512 |
|
✗ |
& 0.10954E-01_JPRB,0.10778E-01_JPRB,0.10001E-01_JPRB,0.70201E-02_JPRB /) |
1513 |
|
|
KA(:, 5,10, 7) = (/ & |
1514 |
|
|
& 0.31444E-02_JPRB,0.78050E-02_JPRB,0.94668E-02_JPRB,0.10433E-01_JPRB,0.10974E-01_JPRB, & |
1515 |
|
✗ |
& 0.11173E-01_JPRB,0.11019E-01_JPRB,0.10253E-01_JPRB,0.72189E-02_JPRB /) |
1516 |
|
|
KA(:, 1,11, 7) = (/ & |
1517 |
|
|
& 0.20345E-02_JPRB,0.60249E-02_JPRB,0.74716E-02_JPRB,0.82496E-02_JPRB,0.86458E-02_JPRB, & |
1518 |
|
✗ |
& 0.87340E-02_JPRB,0.85222E-02_JPRB,0.78657E-02_JPRB,0.53714E-02_JPRB /) |
1519 |
|
|
KA(:, 2,11, 7) = (/ & |
1520 |
|
|
& 0.22071E-02_JPRB,0.62176E-02_JPRB,0.76440E-02_JPRB,0.84251E-02_JPRB,0.88273E-02_JPRB, & |
1521 |
|
✗ |
& 0.89461E-02_JPRB,0.87689E-02_JPRB,0.81125E-02_JPRB,0.55835E-02_JPRB /) |
1522 |
|
|
KA(:, 3,11, 7) = (/ & |
1523 |
|
|
& 0.23554E-02_JPRB,0.63729E-02_JPRB,0.77932E-02_JPRB,0.85868E-02_JPRB,0.90058E-02_JPRB, & |
1524 |
|
✗ |
& 0.91548E-02_JPRB,0.90075E-02_JPRB,0.83660E-02_JPRB,0.57827E-02_JPRB /) |
1525 |
|
|
KA(:, 4,11, 7) = (/ & |
1526 |
|
|
& 0.24780E-02_JPRB,0.64944E-02_JPRB,0.79106E-02_JPRB,0.87291E-02_JPRB,0.91857E-02_JPRB, & |
1527 |
|
✗ |
& 0.93565E-02_JPRB,0.92302E-02_JPRB,0.86036E-02_JPRB,0.59695E-02_JPRB /) |
1528 |
|
|
KA(:, 5,11, 7) = (/ & |
1529 |
|
|
& 0.25820E-02_JPRB,0.65802E-02_JPRB,0.79974E-02_JPRB,0.88427E-02_JPRB,0.93482E-02_JPRB, & |
1530 |
|
✗ |
& 0.95539E-02_JPRB,0.94443E-02_JPRB,0.88180E-02_JPRB,0.61512E-02_JPRB /) |
1531 |
|
|
KA(:, 1,12, 7) = (/ & |
1532 |
|
|
& 0.16789E-02_JPRB,0.50906E-02_JPRB,0.63078E-02_JPRB,0.69750E-02_JPRB,0.73172E-02_JPRB, & |
1533 |
|
✗ |
& 0.74078E-02_JPRB,0.72504E-02_JPRB,0.67015E-02_JPRB,0.45394E-02_JPRB /) |
1534 |
|
|
KA(:, 2,12, 7) = (/ & |
1535 |
|
|
& 0.18170E-02_JPRB,0.52437E-02_JPRB,0.64512E-02_JPRB,0.71255E-02_JPRB,0.74790E-02_JPRB, & |
1536 |
|
✗ |
& 0.75959E-02_JPRB,0.74655E-02_JPRB,0.69307E-02_JPRB,0.47237E-02_JPRB /) |
1537 |
|
|
KA(:, 3,12, 7) = (/ & |
1538 |
|
|
& 0.19356E-02_JPRB,0.53689E-02_JPRB,0.65701E-02_JPRB,0.72610E-02_JPRB,0.76415E-02_JPRB, & |
1539 |
|
✗ |
& 0.77811E-02_JPRB,0.76703E-02_JPRB,0.71508E-02_JPRB,0.48953E-02_JPRB /) |
1540 |
|
|
KA(:, 4,12, 7) = (/ & |
1541 |
|
|
& 0.20342E-02_JPRB,0.54644E-02_JPRB,0.66640E-02_JPRB,0.73792E-02_JPRB,0.77929E-02_JPRB, & |
1542 |
|
✗ |
& 0.79635E-02_JPRB,0.78660E-02_JPRB,0.73532E-02_JPRB,0.50607E-02_JPRB /) |
1543 |
|
|
KA(:, 5,12, 7) = (/ & |
1544 |
|
|
& 0.21182E-02_JPRB,0.55328E-02_JPRB,0.67352E-02_JPRB,0.74736E-02_JPRB,0.79282E-02_JPRB, & |
1545 |
|
✗ |
& 0.81307E-02_JPRB,0.80542E-02_JPRB,0.75407E-02_JPRB,0.52234E-02_JPRB /) |
1546 |
|
|
KA(:, 1,13, 7) = (/ & |
1547 |
|
|
& 0.13819E-02_JPRB,0.42823E-02_JPRB,0.53096E-02_JPRB,0.58771E-02_JPRB,0.61745E-02_JPRB, & |
1548 |
|
✗ |
& 0.62601E-02_JPRB,0.61411E-02_JPRB,0.56893E-02_JPRB,0.38201E-02_JPRB /) |
1549 |
|
|
KA(:, 2,13, 7) = (/ & |
1550 |
|
|
& 0.14927E-02_JPRB,0.44078E-02_JPRB,0.54261E-02_JPRB,0.60055E-02_JPRB,0.63167E-02_JPRB, & |
1551 |
|
✗ |
& 0.64278E-02_JPRB,0.63268E-02_JPRB,0.58891E-02_JPRB,0.39789E-02_JPRB /) |
1552 |
|
|
KA(:, 3,13, 7) = (/ & |
1553 |
|
|
& 0.15884E-02_JPRB,0.45090E-02_JPRB,0.55246E-02_JPRB,0.61217E-02_JPRB,0.64577E-02_JPRB, & |
1554 |
|
✗ |
& 0.65903E-02_JPRB,0.65044E-02_JPRB,0.60758E-02_JPRB,0.41288E-02_JPRB /) |
1555 |
|
|
KA(:, 4,13, 7) = (/ & |
1556 |
|
|
& 0.16683E-02_JPRB,0.45858E-02_JPRB,0.56029E-02_JPRB,0.62193E-02_JPRB,0.65859E-02_JPRB, & |
1557 |
|
✗ |
& 0.67454E-02_JPRB,0.66768E-02_JPRB,0.62506E-02_JPRB,0.42765E-02_JPRB /) |
1558 |
|
|
KA(:, 5,13, 7) = (/ & |
1559 |
|
|
& 0.17364E-02_JPRB,0.46419E-02_JPRB,0.56644E-02_JPRB,0.62996E-02_JPRB,0.66998E-02_JPRB, & |
1560 |
|
✗ |
& 0.68888E-02_JPRB,0.68404E-02_JPRB,0.64188E-02_JPRB,0.44198E-02_JPRB /) |
1561 |
|
|
KA(:, 1, 1, 8) = (/ & |
1562 |
|
|
& 0.57760E-01_JPRB,0.69432E-01_JPRB,0.76402E-01_JPRB,0.81517E-01_JPRB,0.85125E-01_JPRB, & |
1563 |
|
✗ |
& 0.87289E-01_JPRB,0.87408E-01_JPRB,0.83317E-01_JPRB,0.74720E-01_JPRB /) |
1564 |
|
|
KA(:, 2, 1, 8) = (/ & |
1565 |
|
|
& 0.58256E-01_JPRB,0.69667E-01_JPRB,0.76723E-01_JPRB,0.81911E-01_JPRB,0.85362E-01_JPRB, & |
1566 |
|
✗ |
& 0.87289E-01_JPRB,0.87306E-01_JPRB,0.83357E-01_JPRB,0.75177E-01_JPRB /) |
1567 |
|
|
KA(:, 3, 1, 8) = (/ & |
1568 |
|
|
& 0.58710E-01_JPRB,0.69859E-01_JPRB,0.76973E-01_JPRB,0.82328E-01_JPRB,0.85690E-01_JPRB, & |
1569 |
|
✗ |
& 0.87420E-01_JPRB,0.87264E-01_JPRB,0.83435E-01_JPRB,0.75701E-01_JPRB /) |
1570 |
|
|
KA(:, 4, 1, 8) = (/ & |
1571 |
|
|
& 0.59052E-01_JPRB,0.70050E-01_JPRB,0.77176E-01_JPRB,0.82642E-01_JPRB,0.86071E-01_JPRB, & |
1572 |
|
✗ |
& 0.87660E-01_JPRB,0.87341E-01_JPRB,0.83544E-01_JPRB,0.76230E-01_JPRB /) |
1573 |
|
|
|
1574 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART5',1,ZHOOK_HANDLE) |
1575 |
|
✗ |
END SUBROUTINE PART5 |
1576 |
|
|
|
1577 |
|
|
|
1578 |
|
✗ |
SUBROUTINE PART6 |
1579 |
|
|
|
1580 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1581 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART6',0,ZHOOK_HANDLE) |
1582 |
|
|
|
1583 |
|
|
|
1584 |
|
|
KA(:, 5, 1, 8) = (/ & |
1585 |
|
|
& 0.59298E-01_JPRB,0.70198E-01_JPRB,0.77374E-01_JPRB,0.82883E-01_JPRB,0.86469E-01_JPRB, & |
1586 |
|
✗ |
& 0.87977E-01_JPRB,0.87473E-01_JPRB,0.83691E-01_JPRB,0.76769E-01_JPRB /) |
1587 |
|
|
KA(:, 1, 2, 8) = (/ & |
1588 |
|
|
& 0.50908E-01_JPRB,0.62848E-01_JPRB,0.70003E-01_JPRB,0.75263E-01_JPRB,0.78670E-01_JPRB, & |
1589 |
|
✗ |
& 0.80594E-01_JPRB,0.80694E-01_JPRB,0.77048E-01_JPRB,0.67048E-01_JPRB /) |
1590 |
|
|
KA(:, 2, 2, 8) = (/ & |
1591 |
|
|
& 0.51469E-01_JPRB,0.63178E-01_JPRB,0.70395E-01_JPRB,0.75763E-01_JPRB,0.79033E-01_JPRB, & |
1592 |
|
✗ |
& 0.80775E-01_JPRB,0.80686E-01_JPRB,0.77199E-01_JPRB,0.67605E-01_JPRB /) |
1593 |
|
|
KA(:, 3, 2, 8) = (/ & |
1594 |
|
|
& 0.51956E-01_JPRB,0.63519E-01_JPRB,0.70748E-01_JPRB,0.76221E-01_JPRB,0.79512E-01_JPRB, & |
1595 |
|
✗ |
& 0.81067E-01_JPRB,0.80797E-01_JPRB,0.77370E-01_JPRB,0.68182E-01_JPRB /) |
1596 |
|
|
KA(:, 4, 2, 8) = (/ & |
1597 |
|
|
& 0.52329E-01_JPRB,0.63831E-01_JPRB,0.71115E-01_JPRB,0.76591E-01_JPRB,0.80032E-01_JPRB, & |
1598 |
|
✗ |
& 0.81445E-01_JPRB,0.81001E-01_JPRB,0.77568E-01_JPRB,0.68768E-01_JPRB /) |
1599 |
|
|
KA(:, 5, 2, 8) = (/ & |
1600 |
|
|
& 0.52648E-01_JPRB,0.64108E-01_JPRB,0.71441E-01_JPRB,0.76941E-01_JPRB,0.80464E-01_JPRB, & |
1601 |
|
✗ |
& 0.81866E-01_JPRB,0.81282E-01_JPRB,0.77796E-01_JPRB,0.69377E-01_JPRB /) |
1602 |
|
|
KA(:, 1, 3, 8) = (/ & |
1603 |
|
|
& 0.44636E-01_JPRB,0.56575E-01_JPRB,0.63667E-01_JPRB,0.68804E-01_JPRB,0.72146E-01_JPRB, & |
1604 |
|
✗ |
& 0.73940E-01_JPRB,0.73756E-01_JPRB,0.70359E-01_JPRB,0.59446E-01_JPRB /) |
1605 |
|
|
KA(:, 2, 3, 8) = (/ & |
1606 |
|
|
& 0.45216E-01_JPRB,0.57005E-01_JPRB,0.64111E-01_JPRB,0.69328E-01_JPRB,0.72620E-01_JPRB, & |
1607 |
|
✗ |
& 0.74228E-01_JPRB,0.73854E-01_JPRB,0.70600E-01_JPRB,0.60086E-01_JPRB /) |
1608 |
|
|
KA(:, 3, 3, 8) = (/ & |
1609 |
|
|
& 0.45716E-01_JPRB,0.57448E-01_JPRB,0.64591E-01_JPRB,0.69816E-01_JPRB,0.73178E-01_JPRB, & |
1610 |
|
✗ |
& 0.74616E-01_JPRB,0.74093E-01_JPRB,0.70843E-01_JPRB,0.60738E-01_JPRB /) |
1611 |
|
|
KA(:, 4, 3, 8) = (/ & |
1612 |
|
|
& 0.46137E-01_JPRB,0.57862E-01_JPRB,0.65060E-01_JPRB,0.70283E-01_JPRB,0.73724E-01_JPRB, & |
1613 |
|
✗ |
& 0.75067E-01_JPRB,0.74408E-01_JPRB,0.71130E-01_JPRB,0.61385E-01_JPRB /) |
1614 |
|
|
KA(:, 5, 3, 8) = (/ & |
1615 |
|
|
& 0.46490E-01_JPRB,0.58240E-01_JPRB,0.65537E-01_JPRB,0.70752E-01_JPRB,0.74187E-01_JPRB, & |
1616 |
|
✗ |
& 0.75545E-01_JPRB,0.74817E-01_JPRB,0.71479E-01_JPRB,0.61998E-01_JPRB /) |
1617 |
|
|
KA(:, 1, 4, 8) = (/ & |
1618 |
|
|
& 0.38910E-01_JPRB,0.50823E-01_JPRB,0.57505E-01_JPRB,0.62364E-01_JPRB,0.65559E-01_JPRB, & |
1619 |
|
✗ |
& 0.67154E-01_JPRB,0.66798E-01_JPRB,0.63531E-01_JPRB,0.52401E-01_JPRB /) |
1620 |
|
|
KA(:, 2, 4, 8) = (/ & |
1621 |
|
|
& 0.39488E-01_JPRB,0.51307E-01_JPRB,0.58022E-01_JPRB,0.62912E-01_JPRB,0.66074E-01_JPRB, & |
1622 |
|
✗ |
& 0.67518E-01_JPRB,0.67025E-01_JPRB,0.63840E-01_JPRB,0.53093E-01_JPRB /) |
1623 |
|
|
KA(:, 3, 4, 8) = (/ & |
1624 |
|
|
& 0.39991E-01_JPRB,0.51812E-01_JPRB,0.58566E-01_JPRB,0.63451E-01_JPRB,0.66632E-01_JPRB, & |
1625 |
|
✗ |
& 0.68010E-01_JPRB,0.67348E-01_JPRB,0.64169E-01_JPRB,0.53782E-01_JPRB /) |
1626 |
|
|
KA(:, 4, 4, 8) = (/ & |
1627 |
|
|
& 0.40387E-01_JPRB,0.52291E-01_JPRB,0.59117E-01_JPRB,0.64001E-01_JPRB,0.67196E-01_JPRB, & |
1628 |
|
✗ |
& 0.68514E-01_JPRB,0.67789E-01_JPRB,0.64555E-01_JPRB,0.54470E-01_JPRB /) |
1629 |
|
|
KA(:, 5, 4, 8) = (/ & |
1630 |
|
|
& 0.40719E-01_JPRB,0.52739E-01_JPRB,0.59691E-01_JPRB,0.64572E-01_JPRB,0.67725E-01_JPRB, & |
1631 |
|
✗ |
& 0.69031E-01_JPRB,0.68307E-01_JPRB,0.64985E-01_JPRB,0.55091E-01_JPRB /) |
1632 |
|
|
KA(:, 1, 5, 8) = (/ & |
1633 |
|
|
& 0.33692E-01_JPRB,0.45459E-01_JPRB,0.51705E-01_JPRB,0.56111E-01_JPRB,0.58984E-01_JPRB, & |
1634 |
|
✗ |
& 0.60384E-01_JPRB,0.59951E-01_JPRB,0.56770E-01_JPRB,0.45939E-01_JPRB /) |
1635 |
|
|
KA(:, 2, 5, 8) = (/ & |
1636 |
|
|
& 0.34254E-01_JPRB,0.45979E-01_JPRB,0.52252E-01_JPRB,0.56664E-01_JPRB,0.59515E-01_JPRB, & |
1637 |
|
✗ |
& 0.60816E-01_JPRB,0.60273E-01_JPRB,0.57146E-01_JPRB,0.46647E-01_JPRB /) |
1638 |
|
|
KA(:, 3, 5, 8) = (/ & |
1639 |
|
|
& 0.34738E-01_JPRB,0.46532E-01_JPRB,0.52846E-01_JPRB,0.57238E-01_JPRB,0.60077E-01_JPRB, & |
1640 |
|
✗ |
& 0.61352E-01_JPRB,0.60714E-01_JPRB,0.57566E-01_JPRB,0.47359E-01_JPRB /) |
1641 |
|
|
KA(:, 4, 5, 8) = (/ & |
1642 |
|
|
& 0.35117E-01_JPRB,0.47047E-01_JPRB,0.53459E-01_JPRB,0.57849E-01_JPRB,0.60668E-01_JPRB, & |
1643 |
|
✗ |
& 0.61902E-01_JPRB,0.61259E-01_JPRB,0.58030E-01_JPRB,0.48036E-01_JPRB /) |
1644 |
|
|
KA(:, 5, 5, 8) = (/ & |
1645 |
|
|
& 0.35428E-01_JPRB,0.47508E-01_JPRB,0.54083E-01_JPRB,0.58493E-01_JPRB,0.61253E-01_JPRB, & |
1646 |
|
✗ |
& 0.62481E-01_JPRB,0.61851E-01_JPRB,0.58523E-01_JPRB,0.48648E-01_JPRB /) |
1647 |
|
|
KA(:, 1, 6, 8) = (/ & |
1648 |
|
|
& 0.28910E-01_JPRB,0.40429E-01_JPRB,0.46176E-01_JPRB,0.50108E-01_JPRB,0.52609E-01_JPRB, & |
1649 |
|
✗ |
& 0.53750E-01_JPRB,0.53289E-01_JPRB,0.50286E-01_JPRB,0.40061E-01_JPRB /) |
1650 |
|
|
KA(:, 2, 6, 8) = (/ & |
1651 |
|
|
& 0.29433E-01_JPRB,0.40967E-01_JPRB,0.46731E-01_JPRB,0.50653E-01_JPRB,0.53149E-01_JPRB, & |
1652 |
|
✗ |
& 0.54232E-01_JPRB,0.53687E-01_JPRB,0.50714E-01_JPRB,0.40756E-01_JPRB /) |
1653 |
|
|
KA(:, 3, 6, 8) = (/ & |
1654 |
|
|
& 0.29883E-01_JPRB,0.41520E-01_JPRB,0.47349E-01_JPRB,0.51251E-01_JPRB,0.53731E-01_JPRB, & |
1655 |
|
✗ |
& 0.54796E-01_JPRB,0.54207E-01_JPRB,0.51188E-01_JPRB,0.41443E-01_JPRB /) |
1656 |
|
|
KA(:, 4, 6, 8) = (/ & |
1657 |
|
|
& 0.30252E-01_JPRB,0.42024E-01_JPRB,0.47998E-01_JPRB,0.51918E-01_JPRB,0.54339E-01_JPRB, & |
1658 |
|
✗ |
& 0.55387E-01_JPRB,0.54820E-01_JPRB,0.51711E-01_JPRB,0.42085E-01_JPRB /) |
1659 |
|
|
KA(:, 5, 6, 8) = (/ & |
1660 |
|
|
& 0.30542E-01_JPRB,0.42447E-01_JPRB,0.48635E-01_JPRB,0.52598E-01_JPRB,0.54986E-01_JPRB, & |
1661 |
|
✗ |
& 0.56038E-01_JPRB,0.55430E-01_JPRB,0.52236E-01_JPRB,0.42675E-01_JPRB /) |
1662 |
|
|
KA(:, 1, 7, 8) = (/ & |
1663 |
|
|
& 0.24600E-01_JPRB,0.35725E-01_JPRB,0.40952E-01_JPRB,0.44398E-01_JPRB,0.46558E-01_JPRB, & |
1664 |
|
✗ |
& 0.47462E-01_JPRB,0.46950E-01_JPRB,0.44227E-01_JPRB,0.34751E-01_JPRB /) |
1665 |
|
|
KA(:, 2, 7, 8) = (/ & |
1666 |
|
|
& 0.25060E-01_JPRB,0.36250E-01_JPRB,0.41498E-01_JPRB,0.44950E-01_JPRB,0.47097E-01_JPRB, & |
1667 |
|
✗ |
& 0.47977E-01_JPRB,0.47399E-01_JPRB,0.44690E-01_JPRB,0.35410E-01_JPRB /) |
1668 |
|
|
KA(:, 3, 7, 8) = (/ & |
1669 |
|
|
& 0.25466E-01_JPRB,0.36769E-01_JPRB,0.42119E-01_JPRB,0.45572E-01_JPRB,0.47696E-01_JPRB, & |
1670 |
|
✗ |
& 0.48548E-01_JPRB,0.47965E-01_JPRB,0.45198E-01_JPRB,0.36050E-01_JPRB /) |
1671 |
|
|
KA(:, 4, 7, 8) = (/ & |
1672 |
|
|
& 0.25804E-01_JPRB,0.37232E-01_JPRB,0.42764E-01_JPRB,0.46249E-01_JPRB,0.48349E-01_JPRB, & |
1673 |
|
✗ |
& 0.49173E-01_JPRB,0.48603E-01_JPRB,0.45737E-01_JPRB,0.36649E-01_JPRB /) |
1674 |
|
|
KA(:, 5, 7, 8) = (/ & |
1675 |
|
|
& 0.26075E-01_JPRB,0.37645E-01_JPRB,0.43371E-01_JPRB,0.46950E-01_JPRB,0.49045E-01_JPRB, & |
1676 |
|
✗ |
& 0.49856E-01_JPRB,0.49223E-01_JPRB,0.46279E-01_JPRB,0.37198E-01_JPRB /) |
1677 |
|
|
KA(:, 1, 8, 8) = (/ & |
1678 |
|
|
& 0.20747E-01_JPRB,0.31325E-01_JPRB,0.36016E-01_JPRB,0.39047E-01_JPRB,0.40921E-01_JPRB, & |
1679 |
|
✗ |
& 0.41656E-01_JPRB,0.41097E-01_JPRB,0.38682E-01_JPRB,0.29955E-01_JPRB /) |
1680 |
|
|
KA(:, 2, 8, 8) = (/ & |
1681 |
|
|
& 0.21145E-01_JPRB,0.31811E-01_JPRB,0.36541E-01_JPRB,0.39597E-01_JPRB,0.41455E-01_JPRB, & |
1682 |
|
✗ |
& 0.42169E-01_JPRB,0.41575E-01_JPRB,0.39145E-01_JPRB,0.30577E-01_JPRB /) |
1683 |
|
|
KA(:, 3, 8, 8) = (/ & |
1684 |
|
|
& 0.21497E-01_JPRB,0.32290E-01_JPRB,0.37155E-01_JPRB,0.40238E-01_JPRB,0.42067E-01_JPRB, & |
1685 |
|
✗ |
& 0.42744E-01_JPRB,0.42154E-01_JPRB,0.39648E-01_JPRB,0.31178E-01_JPRB /) |
1686 |
|
|
KA(:, 4, 8, 8) = (/ & |
1687 |
|
|
& 0.21796E-01_JPRB,0.32717E-01_JPRB,0.37766E-01_JPRB,0.40923E-01_JPRB,0.42738E-01_JPRB, & |
1688 |
|
✗ |
& 0.43394E-01_JPRB,0.42768E-01_JPRB,0.40185E-01_JPRB,0.31733E-01_JPRB /) |
1689 |
|
|
KA(:, 5, 8, 8) = (/ & |
1690 |
|
|
& 0.22044E-01_JPRB,0.33112E-01_JPRB,0.38338E-01_JPRB,0.41597E-01_JPRB,0.43462E-01_JPRB, & |
1691 |
|
✗ |
& 0.44087E-01_JPRB,0.43385E-01_JPRB,0.40740E-01_JPRB,0.32254E-01_JPRB /) |
1692 |
|
|
KA(:, 1, 9, 8) = (/ & |
1693 |
|
|
& 0.17360E-01_JPRB,0.27218E-01_JPRB,0.31401E-01_JPRB,0.34084E-01_JPRB,0.35741E-01_JPRB, & |
1694 |
|
✗ |
& 0.36373E-01_JPRB,0.35798E-01_JPRB,0.33594E-01_JPRB,0.25664E-01_JPRB /) |
1695 |
|
|
KA(:, 2, 9, 8) = (/ & |
1696 |
|
|
& 0.17693E-01_JPRB,0.27662E-01_JPRB,0.31908E-01_JPRB,0.34622E-01_JPRB,0.36264E-01_JPRB, & |
1697 |
|
✗ |
& 0.36877E-01_JPRB,0.36285E-01_JPRB,0.34049E-01_JPRB,0.26251E-01_JPRB /) |
1698 |
|
|
KA(:, 3, 9, 8) = (/ & |
1699 |
|
|
& 0.17992E-01_JPRB,0.28089E-01_JPRB,0.32477E-01_JPRB,0.35255E-01_JPRB,0.36874E-01_JPRB, & |
1700 |
|
✗ |
& 0.37444E-01_JPRB,0.36831E-01_JPRB,0.34544E-01_JPRB,0.26814E-01_JPRB /) |
1701 |
|
|
KA(:, 4, 9, 8) = (/ & |
1702 |
|
|
& 0.18258E-01_JPRB,0.28481E-01_JPRB,0.33050E-01_JPRB,0.35909E-01_JPRB,0.37552E-01_JPRB, & |
1703 |
|
✗ |
& 0.38078E-01_JPRB,0.37421E-01_JPRB,0.35073E-01_JPRB,0.27335E-01_JPRB /) |
1704 |
|
|
KA(:, 5, 9, 8) = (/ & |
1705 |
|
|
& 0.18484E-01_JPRB,0.28849E-01_JPRB,0.33601E-01_JPRB,0.36536E-01_JPRB,0.38254E-01_JPRB, & |
1706 |
|
✗ |
& 0.38756E-01_JPRB,0.38026E-01_JPRB,0.35616E-01_JPRB,0.27829E-01_JPRB /) |
1707 |
|
|
KA(:, 1,10, 8) = (/ & |
1708 |
|
|
& 0.14462E-01_JPRB,0.23463E-01_JPRB,0.27186E-01_JPRB,0.29588E-01_JPRB,0.31079E-01_JPRB, & |
1709 |
|
✗ |
& 0.31625E-01_JPRB,0.31053E-01_JPRB,0.29012E-01_JPRB,0.21916E-01_JPRB /) |
1710 |
|
|
KA(:, 2,10, 8) = (/ & |
1711 |
|
|
& 0.14737E-01_JPRB,0.23853E-01_JPRB,0.27662E-01_JPRB,0.30109E-01_JPRB,0.31581E-01_JPRB, & |
1712 |
|
✗ |
& 0.32116E-01_JPRB,0.31527E-01_JPRB,0.29461E-01_JPRB,0.22460E-01_JPRB /) |
1713 |
|
|
KA(:, 3,10, 8) = (/ & |
1714 |
|
|
& 0.14983E-01_JPRB,0.24238E-01_JPRB,0.28187E-01_JPRB,0.30710E-01_JPRB,0.32176E-01_JPRB, & |
1715 |
|
✗ |
& 0.32664E-01_JPRB,0.32044E-01_JPRB,0.29948E-01_JPRB,0.22987E-01_JPRB /) |
1716 |
|
|
KA(:, 4,10, 8) = (/ & |
1717 |
|
|
& 0.15228E-01_JPRB,0.24593E-01_JPRB,0.28718E-01_JPRB,0.31312E-01_JPRB,0.32826E-01_JPRB, & |
1718 |
|
✗ |
& 0.33282E-01_JPRB,0.32615E-01_JPRB,0.30467E-01_JPRB,0.23478E-01_JPRB /) |
1719 |
|
|
KA(:, 5,10, 8) = (/ & |
1720 |
|
|
& 0.15411E-01_JPRB,0.24932E-01_JPRB,0.29228E-01_JPRB,0.31903E-01_JPRB,0.33455E-01_JPRB, & |
1721 |
|
✗ |
& 0.33943E-01_JPRB,0.33207E-01_JPRB,0.30994E-01_JPRB,0.23939E-01_JPRB /) |
1722 |
|
|
KA(:, 1,11, 8) = (/ & |
1723 |
|
|
& 0.12097E-01_JPRB,0.20230E-01_JPRB,0.23554E-01_JPRB,0.25737E-01_JPRB,0.27070E-01_JPRB, & |
1724 |
|
✗ |
& 0.27526E-01_JPRB,0.26987E-01_JPRB,0.25125E-01_JPRB,0.18843E-01_JPRB /) |
1725 |
|
|
KA(:, 2,11, 8) = (/ & |
1726 |
|
|
& 0.12316E-01_JPRB,0.20564E-01_JPRB,0.24014E-01_JPRB,0.26265E-01_JPRB,0.27589E-01_JPRB, & |
1727 |
|
✗ |
& 0.28021E-01_JPRB,0.27462E-01_JPRB,0.25580E-01_JPRB,0.19341E-01_JPRB /) |
1728 |
|
|
KA(:, 3,11, 8) = (/ & |
1729 |
|
|
& 0.12525E-01_JPRB,0.20893E-01_JPRB,0.24494E-01_JPRB,0.26817E-01_JPRB,0.28172E-01_JPRB, & |
1730 |
|
✗ |
& 0.28578E-01_JPRB,0.27985E-01_JPRB,0.26073E-01_JPRB,0.19811E-01_JPRB /) |
1731 |
|
|
KA(:, 4,11, 8) = (/ & |
1732 |
|
|
& 0.12698E-01_JPRB,0.21212E-01_JPRB,0.24971E-01_JPRB,0.27358E-01_JPRB,0.28752E-01_JPRB, & |
1733 |
|
✗ |
& 0.29196E-01_JPRB,0.28554E-01_JPRB,0.26575E-01_JPRB,0.20254E-01_JPRB /) |
1734 |
|
|
KA(:, 5,11, 8) = (/ & |
1735 |
|
|
& 0.12813E-01_JPRB,0.21527E-01_JPRB,0.25428E-01_JPRB,0.27886E-01_JPRB,0.29316E-01_JPRB, & |
1736 |
|
✗ |
& 0.29794E-01_JPRB,0.29144E-01_JPRB,0.27095E-01_JPRB,0.20669E-01_JPRB /) |
1737 |
|
|
KA(:, 1,12, 8) = (/ & |
1738 |
|
|
& 0.10079E-01_JPRB,0.17332E-01_JPRB,0.20326E-01_JPRB,0.22283E-01_JPRB,0.23452E-01_JPRB, & |
1739 |
|
✗ |
& 0.23840E-01_JPRB,0.23351E-01_JPRB,0.21701E-01_JPRB,0.16150E-01_JPRB /) |
1740 |
|
|
KA(:, 2,12, 8) = (/ & |
1741 |
|
|
& 0.10253E-01_JPRB,0.17624E-01_JPRB,0.20738E-01_JPRB,0.22772E-01_JPRB,0.23963E-01_JPRB, & |
1742 |
|
✗ |
& 0.24343E-01_JPRB,0.23830E-01_JPRB,0.22159E-01_JPRB,0.16605E-01_JPRB /) |
1743 |
|
|
KA(:, 3,12, 8) = (/ & |
1744 |
|
|
& 0.10412E-01_JPRB,0.17914E-01_JPRB,0.21165E-01_JPRB,0.23257E-01_JPRB,0.24491E-01_JPRB, & |
1745 |
|
✗ |
& 0.24907E-01_JPRB,0.24364E-01_JPRB,0.22633E-01_JPRB,0.17031E-01_JPRB /) |
1746 |
|
|
KA(:, 4,12, 8) = (/ & |
1747 |
|
|
& 0.10528E-01_JPRB,0.18203E-01_JPRB,0.21585E-01_JPRB,0.23732E-01_JPRB,0.25019E-01_JPRB, & |
1748 |
|
✗ |
& 0.25466E-01_JPRB,0.24925E-01_JPRB,0.23123E-01_JPRB,0.17440E-01_JPRB /) |
1749 |
|
|
KA(:, 5,12, 8) = (/ & |
1750 |
|
|
& 0.10595E-01_JPRB,0.18491E-01_JPRB,0.21987E-01_JPRB,0.24205E-01_JPRB,0.25526E-01_JPRB, & |
1751 |
|
✗ |
& 0.26013E-01_JPRB,0.25497E-01_JPRB,0.23633E-01_JPRB,0.17825E-01_JPRB /) |
1752 |
|
|
KA(:, 1,13, 8) = (/ & |
1753 |
|
|
& 0.83675E-02_JPRB,0.14778E-01_JPRB,0.17455E-01_JPRB,0.19201E-01_JPRB,0.20214E-01_JPRB, & |
1754 |
|
✗ |
& 0.20545E-01_JPRB,0.20133E-01_JPRB,0.18703E-01_JPRB,0.13810E-01_JPRB /) |
1755 |
|
|
KA(:, 2,13, 8) = (/ & |
1756 |
|
|
& 0.85037E-02_JPRB,0.15033E-01_JPRB,0.17824E-01_JPRB,0.19621E-01_JPRB,0.20684E-01_JPRB, & |
1757 |
|
✗ |
& 0.21052E-01_JPRB,0.20616E-01_JPRB,0.19145E-01_JPRB,0.14218E-01_JPRB /) |
1758 |
|
|
KA(:, 3,13, 8) = (/ & |
1759 |
|
|
& 0.86129E-02_JPRB,0.15303E-01_JPRB,0.18197E-01_JPRB,0.20043E-01_JPRB,0.21163E-01_JPRB, & |
1760 |
|
✗ |
& 0.21577E-01_JPRB,0.21143E-01_JPRB,0.19600E-01_JPRB,0.14617E-01_JPRB /) |
1761 |
|
|
KA(:, 4,13, 8) = (/ & |
1762 |
|
|
& 0.86912E-02_JPRB,0.15568E-01_JPRB,0.18565E-01_JPRB,0.20472E-01_JPRB,0.21636E-01_JPRB, & |
1763 |
|
✗ |
& 0.22091E-01_JPRB,0.21674E-01_JPRB,0.20090E-01_JPRB,0.14991E-01_JPRB /) |
1764 |
|
|
KA(:, 5,13, 8) = (/ & |
1765 |
|
|
& 0.87302E-02_JPRB,0.15800E-01_JPRB,0.18917E-01_JPRB,0.20887E-01_JPRB,0.22103E-01_JPRB, & |
1766 |
|
✗ |
& 0.22594E-01_JPRB,0.22198E-01_JPRB,0.20586E-01_JPRB,0.15351E-01_JPRB /) |
1767 |
|
|
KA(:, 1, 1, 9) = (/ & |
1768 |
|
|
& 0.23898E+00_JPRB,0.24353E+00_JPRB,0.26297E+00_JPRB,0.27410E+00_JPRB,0.27635E+00_JPRB, & |
1769 |
|
✗ |
& 0.27151E+00_JPRB,0.26001E+00_JPRB,0.24536E+00_JPRB,0.24840E+00_JPRB /) |
1770 |
|
|
KA(:, 2, 1, 9) = (/ & |
1771 |
|
|
& 0.23703E+00_JPRB,0.24151E+00_JPRB,0.26057E+00_JPRB,0.27148E+00_JPRB,0.27415E+00_JPRB, & |
1772 |
|
✗ |
& 0.26993E+00_JPRB,0.25912E+00_JPRB,0.24520E+00_JPRB,0.24830E+00_JPRB /) |
1773 |
|
|
KA(:, 3, 1, 9) = (/ & |
1774 |
|
|
& 0.23567E+00_JPRB,0.23998E+00_JPRB,0.25868E+00_JPRB,0.26917E+00_JPRB,0.27195E+00_JPRB, & |
1775 |
|
✗ |
& 0.26833E+00_JPRB,0.25809E+00_JPRB,0.24488E+00_JPRB,0.24801E+00_JPRB /) |
1776 |
|
|
KA(:, 4, 1, 9) = (/ & |
1777 |
|
|
& 0.23478E+00_JPRB,0.23885E+00_JPRB,0.25713E+00_JPRB,0.26729E+00_JPRB,0.26990E+00_JPRB, & |
1778 |
|
✗ |
& 0.26662E+00_JPRB,0.25696E+00_JPRB,0.24453E+00_JPRB,0.24772E+00_JPRB /) |
1779 |
|
|
KA(:, 5, 1, 9) = (/ & |
1780 |
|
|
& 0.23430E+00_JPRB,0.23810E+00_JPRB,0.25588E+00_JPRB,0.26568E+00_JPRB,0.26809E+00_JPRB, & |
1781 |
|
✗ |
& 0.26490E+00_JPRB,0.25575E+00_JPRB,0.24412E+00_JPRB,0.24745E+00_JPRB /) |
1782 |
|
|
KA(:, 1, 2, 9) = (/ & |
1783 |
|
|
& 0.22071E+00_JPRB,0.23189E+00_JPRB,0.25280E+00_JPRB,0.26428E+00_JPRB,0.26846E+00_JPRB, & |
1784 |
|
✗ |
& 0.26544E+00_JPRB,0.25423E+00_JPRB,0.23818E+00_JPRB,0.23526E+00_JPRB /) |
1785 |
|
|
KA(:, 2, 2, 9) = (/ & |
1786 |
|
|
& 0.21924E+00_JPRB,0.23025E+00_JPRB,0.25076E+00_JPRB,0.26194E+00_JPRB,0.26631E+00_JPRB, & |
1787 |
|
✗ |
& 0.26393E+00_JPRB,0.25356E+00_JPRB,0.23803E+00_JPRB,0.23534E+00_JPRB /) |
1788 |
|
|
KA(:, 3, 2, 9) = (/ & |
1789 |
|
|
& 0.21843E+00_JPRB,0.22915E+00_JPRB,0.24919E+00_JPRB,0.26005E+00_JPRB,0.26425E+00_JPRB, & |
1790 |
|
✗ |
& 0.26237E+00_JPRB,0.25262E+00_JPRB,0.23788E+00_JPRB,0.23535E+00_JPRB /) |
1791 |
|
|
KA(:, 4, 2, 9) = (/ & |
1792 |
|
|
& 0.21819E+00_JPRB,0.22852E+00_JPRB,0.24801E+00_JPRB,0.25855E+00_JPRB,0.26247E+00_JPRB, & |
1793 |
|
✗ |
& 0.26079E+00_JPRB,0.25163E+00_JPRB,0.23767E+00_JPRB,0.23532E+00_JPRB /) |
1794 |
|
|
KA(:, 5, 2, 9) = (/ & |
1795 |
|
|
& 0.21836E+00_JPRB,0.22826E+00_JPRB,0.24718E+00_JPRB,0.25726E+00_JPRB,0.26101E+00_JPRB, & |
1796 |
|
✗ |
& 0.25924E+00_JPRB,0.25059E+00_JPRB,0.23733E+00_JPRB,0.23520E+00_JPRB /) |
1797 |
|
|
KA(:, 1, 3, 9) = (/ & |
1798 |
|
|
& 0.20172E+00_JPRB,0.21909E+00_JPRB,0.24049E+00_JPRB,0.25259E+00_JPRB,0.25809E+00_JPRB, & |
1799 |
|
✗ |
& 0.25661E+00_JPRB,0.24776E+00_JPRB,0.23048E+00_JPRB,0.22176E+00_JPRB /) |
1800 |
|
|
KA(:, 2, 3, 9) = (/ & |
1801 |
|
|
& 0.20072E+00_JPRB,0.21779E+00_JPRB,0.23872E+00_JPRB,0.25058E+00_JPRB,0.25610E+00_JPRB, & |
1802 |
|
✗ |
& 0.25527E+00_JPRB,0.24712E+00_JPRB,0.23055E+00_JPRB,0.22209E+00_JPRB /) |
1803 |
|
|
KA(:, 3, 3, 9) = (/ & |
1804 |
|
|
& 0.20047E+00_JPRB,0.21708E+00_JPRB,0.23748E+00_JPRB,0.24902E+00_JPRB,0.25438E+00_JPRB, & |
1805 |
|
✗ |
& 0.25391E+00_JPRB,0.24629E+00_JPRB,0.23063E+00_JPRB,0.22233E+00_JPRB /) |
1806 |
|
|
KA(:, 4, 3, 9) = (/ & |
1807 |
|
|
& 0.20080E+00_JPRB,0.21687E+00_JPRB,0.23670E+00_JPRB,0.24777E+00_JPRB,0.25298E+00_JPRB, & |
1808 |
|
✗ |
& 0.25252E+00_JPRB,0.24542E+00_JPRB,0.23053E+00_JPRB,0.22249E+00_JPRB /) |
1809 |
|
|
KA(:, 5, 3, 9) = (/ & |
1810 |
|
|
& 0.20160E+00_JPRB,0.21710E+00_JPRB,0.23623E+00_JPRB,0.24683E+00_JPRB,0.25186E+00_JPRB, & |
1811 |
|
✗ |
& 0.25126E+00_JPRB,0.24453E+00_JPRB,0.23018E+00_JPRB,0.22257E+00_JPRB /) |
1812 |
|
|
KA(:, 1, 4, 9) = (/ & |
1813 |
|
|
& 0.18271E+00_JPRB,0.20499E+00_JPRB,0.22645E+00_JPRB,0.23921E+00_JPRB,0.24553E+00_JPRB, & |
1814 |
|
✗ |
& 0.24573E+00_JPRB,0.23916E+00_JPRB,0.22190E+00_JPRB,0.20803E+00_JPRB /) |
1815 |
|
|
KA(:, 2, 4, 9) = (/ & |
1816 |
|
|
& 0.18212E+00_JPRB,0.20407E+00_JPRB,0.22500E+00_JPRB,0.23755E+00_JPRB,0.24385E+00_JPRB, & |
1817 |
|
✗ |
& 0.24460E+00_JPRB,0.23866E+00_JPRB,0.22223E+00_JPRB,0.20862E+00_JPRB /) |
1818 |
|
|
KA(:, 3, 4, 9) = (/ & |
1819 |
|
|
& 0.18234E+00_JPRB,0.20374E+00_JPRB,0.22412E+00_JPRB,0.23625E+00_JPRB,0.24249E+00_JPRB, & |
1820 |
|
✗ |
& 0.24341E+00_JPRB,0.23801E+00_JPRB,0.22245E+00_JPRB,0.20916E+00_JPRB /) |
1821 |
|
|
KA(:, 4, 4, 9) = (/ & |
1822 |
|
|
& 0.18327E+00_JPRB,0.20396E+00_JPRB,0.22372E+00_JPRB,0.23535E+00_JPRB,0.24149E+00_JPRB, & |
1823 |
|
✗ |
& 0.24231E+00_JPRB,0.23730E+00_JPRB,0.22248E+00_JPRB,0.20951E+00_JPRB /) |
1824 |
|
|
KA(:, 5, 4, 9) = (/ & |
1825 |
|
|
& 0.18465E+00_JPRB,0.20466E+00_JPRB,0.22368E+00_JPRB,0.23479E+00_JPRB,0.24072E+00_JPRB, & |
1826 |
|
✗ |
& 0.24142E+00_JPRB,0.23656E+00_JPRB,0.22226E+00_JPRB,0.20975E+00_JPRB /) |
1827 |
|
|
KA(:, 1, 5, 9) = (/ & |
1828 |
|
|
& 0.16429E+00_JPRB,0.19018E+00_JPRB,0.21120E+00_JPRB,0.22440E+00_JPRB,0.23155E+00_JPRB, & |
1829 |
|
✗ |
& 0.23328E+00_JPRB,0.22834E+00_JPRB,0.21231E+00_JPRB,0.19389E+00_JPRB /) |
1830 |
|
|
KA(:, 2, 5, 9) = (/ & |
1831 |
|
|
& 0.16411E+00_JPRB,0.18954E+00_JPRB,0.21010E+00_JPRB,0.22306E+00_JPRB,0.23026E+00_JPRB, & |
1832 |
|
✗ |
& 0.23235E+00_JPRB,0.22803E+00_JPRB,0.21280E+00_JPRB,0.19477E+00_JPRB /) |
1833 |
|
|
KA(:, 3, 5, 9) = (/ & |
1834 |
|
|
& 0.16481E+00_JPRB,0.18955E+00_JPRB,0.20958E+00_JPRB,0.22215E+00_JPRB,0.22928E+00_JPRB, & |
1835 |
|
✗ |
& 0.23142E+00_JPRB,0.22762E+00_JPRB,0.21318E+00_JPRB,0.19549E+00_JPRB /) |
1836 |
|
|
KA(:, 4, 5, 9) = (/ & |
1837 |
|
|
& 0.16626E+00_JPRB,0.19018E+00_JPRB,0.20952E+00_JPRB,0.22166E+00_JPRB,0.22860E+00_JPRB, & |
1838 |
|
✗ |
& 0.23069E+00_JPRB,0.22713E+00_JPRB,0.21333E+00_JPRB,0.19598E+00_JPRB /) |
1839 |
|
|
KA(:, 5, 5, 9) = (/ & |
1840 |
|
|
& 0.16812E+00_JPRB,0.19134E+00_JPRB,0.20988E+00_JPRB,0.22152E+00_JPRB,0.22816E+00_JPRB, & |
1841 |
|
✗ |
& 0.23013E+00_JPRB,0.22663E+00_JPRB,0.21325E+00_JPRB,0.19645E+00_JPRB /) |
1842 |
|
|
KA(:, 1, 6, 9) = (/ & |
1843 |
|
|
& 0.14677E+00_JPRB,0.17503E+00_JPRB,0.19553E+00_JPRB,0.20871E+00_JPRB,0.21680E+00_JPRB, & |
1844 |
|
✗ |
& 0.21948E+00_JPRB,0.21556E+00_JPRB,0.20158E+00_JPRB,0.17922E+00_JPRB /) |
1845 |
|
|
KA(:, 2, 6, 9) = (/ & |
1846 |
|
|
& 0.14688E+00_JPRB,0.17460E+00_JPRB,0.19479E+00_JPRB,0.20777E+00_JPRB,0.21582E+00_JPRB, & |
1847 |
|
✗ |
& 0.21883E+00_JPRB,0.21549E+00_JPRB,0.20223E+00_JPRB,0.18038E+00_JPRB /) |
1848 |
|
|
KA(:, 3, 6, 9) = (/ & |
1849 |
|
|
& 0.14791E+00_JPRB,0.17490E+00_JPRB,0.19459E+00_JPRB,0.20727E+00_JPRB,0.21519E+00_JPRB, & |
1850 |
|
✗ |
& 0.21822E+00_JPRB,0.21533E+00_JPRB,0.20278E+00_JPRB,0.18127E+00_JPRB /) |
1851 |
|
|
KA(:, 4, 6, 9) = (/ & |
1852 |
|
|
& 0.14970E+00_JPRB,0.17592E+00_JPRB,0.19488E+00_JPRB,0.20713E+00_JPRB,0.21485E+00_JPRB, & |
1853 |
|
✗ |
& 0.21785E+00_JPRB,0.21514E+00_JPRB,0.20305E+00_JPRB,0.18200E+00_JPRB /) |
1854 |
|
|
KA(:, 5, 6, 9) = (/ & |
1855 |
|
|
& 0.15169E+00_JPRB,0.17756E+00_JPRB,0.19568E+00_JPRB,0.20736E+00_JPRB,0.21479E+00_JPRB, & |
1856 |
|
✗ |
& 0.21766E+00_JPRB,0.21494E+00_JPRB,0.20315E+00_JPRB,0.18271E+00_JPRB /) |
1857 |
|
|
KA(:, 1, 7, 9) = (/ & |
1858 |
|
|
& 0.13000E+00_JPRB,0.15987E+00_JPRB,0.17978E+00_JPRB,0.19301E+00_JPRB,0.20129E+00_JPRB, & |
1859 |
|
✗ |
& 0.20436E+00_JPRB,0.20140E+00_JPRB,0.18919E+00_JPRB,0.16414E+00_JPRB /) |
1860 |
|
|
KA(:, 2, 7, 9) = (/ & |
1861 |
|
|
& 0.13035E+00_JPRB,0.15964E+00_JPRB,0.17934E+00_JPRB,0.19244E+00_JPRB,0.20068E+00_JPRB, & |
1862 |
|
✗ |
& 0.20402E+00_JPRB,0.20156E+00_JPRB,0.19006E+00_JPRB,0.16551E+00_JPRB /) |
1863 |
|
|
KA(:, 3, 7, 9) = (/ & |
1864 |
|
|
& 0.13166E+00_JPRB,0.16021E+00_JPRB,0.17944E+00_JPRB,0.19225E+00_JPRB,0.20040E+00_JPRB, & |
1865 |
|
✗ |
& 0.20381E+00_JPRB,0.20166E+00_JPRB,0.19078E+00_JPRB,0.16662E+00_JPRB /) |
1866 |
|
|
KA(:, 4, 7, 9) = (/ & |
1867 |
|
|
& 0.13361E+00_JPRB,0.16157E+00_JPRB,0.18010E+00_JPRB,0.19248E+00_JPRB,0.20041E+00_JPRB, & |
1868 |
|
✗ |
& 0.20379E+00_JPRB,0.20172E+00_JPRB,0.19125E+00_JPRB,0.16758E+00_JPRB /) |
1869 |
|
|
KA(:, 5, 7, 9) = (/ & |
1870 |
|
|
& 0.13554E+00_JPRB,0.16344E+00_JPRB,0.18132E+00_JPRB,0.19308E+00_JPRB,0.20075E+00_JPRB, & |
1871 |
|
✗ |
& 0.20397E+00_JPRB,0.20182E+00_JPRB,0.19159E+00_JPRB,0.16855E+00_JPRB /) |
1872 |
|
|
KA(:, 1, 8, 9) = (/ & |
1873 |
|
|
& 0.11433E+00_JPRB,0.14488E+00_JPRB,0.16431E+00_JPRB,0.17738E+00_JPRB,0.18527E+00_JPRB, & |
1874 |
|
✗ |
& 0.18841E+00_JPRB,0.18617E+00_JPRB,0.17535E+00_JPRB,0.14893E+00_JPRB /) |
1875 |
|
|
|
1876 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART6',1,ZHOOK_HANDLE) |
1877 |
|
✗ |
END SUBROUTINE PART6 |
1878 |
|
|
|
1879 |
|
|
|
1880 |
|
✗ |
SUBROUTINE PART7 |
1881 |
|
|
|
1882 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1883 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART7',0,ZHOOK_HANDLE) |
1884 |
|
|
|
1885 |
|
|
|
1886 |
|
|
KA(:, 2, 8, 9) = (/ & |
1887 |
|
|
& 0.11487E+00_JPRB,0.14487E+00_JPRB,0.16414E+00_JPRB,0.17713E+00_JPRB,0.18501E+00_JPRB, & |
1888 |
|
✗ |
& 0.18837E+00_JPRB,0.18658E+00_JPRB,0.17646E+00_JPRB,0.15049E+00_JPRB /) |
1889 |
|
|
KA(:, 3, 8, 9) = (/ & |
1890 |
|
|
& 0.11635E+00_JPRB,0.14571E+00_JPRB,0.16452E+00_JPRB,0.17724E+00_JPRB,0.18506E+00_JPRB, & |
1891 |
|
✗ |
& 0.18853E+00_JPRB,0.18695E+00_JPRB,0.17741E+00_JPRB,0.15180E+00_JPRB /) |
1892 |
|
|
KA(:, 4, 8, 9) = (/ & |
1893 |
|
|
& 0.11822E+00_JPRB,0.14733E+00_JPRB,0.16549E+00_JPRB,0.17782E+00_JPRB,0.18544E+00_JPRB, & |
1894 |
|
✗ |
& 0.18888E+00_JPRB,0.18734E+00_JPRB,0.17811E+00_JPRB,0.15295E+00_JPRB /) |
1895 |
|
|
KA(:, 5, 8, 9) = (/ & |
1896 |
|
|
& 0.12009E+00_JPRB,0.14924E+00_JPRB,0.16704E+00_JPRB,0.17887E+00_JPRB,0.18614E+00_JPRB, & |
1897 |
|
✗ |
& 0.18940E+00_JPRB,0.18775E+00_JPRB,0.17867E+00_JPRB,0.15411E+00_JPRB /) |
1898 |
|
|
KA(:, 1, 9, 9) = (/ & |
1899 |
|
|
& 0.10002E+00_JPRB,0.13043E+00_JPRB,0.14919E+00_JPRB,0.16171E+00_JPRB,0.16913E+00_JPRB, & |
1900 |
|
✗ |
& 0.17211E+00_JPRB,0.17023E+00_JPRB,0.16067E+00_JPRB,0.13380E+00_JPRB /) |
1901 |
|
|
KA(:, 2, 9, 9) = (/ & |
1902 |
|
|
& 0.10070E+00_JPRB,0.13063E+00_JPRB,0.14927E+00_JPRB,0.16171E+00_JPRB,0.16923E+00_JPRB, & |
1903 |
|
✗ |
& 0.17237E+00_JPRB,0.17091E+00_JPRB,0.16202E+00_JPRB,0.13552E+00_JPRB /) |
1904 |
|
|
KA(:, 3, 9, 9) = (/ & |
1905 |
|
|
& 0.10219E+00_JPRB,0.13166E+00_JPRB,0.14990E+00_JPRB,0.16210E+00_JPRB,0.16959E+00_JPRB, & |
1906 |
|
✗ |
& 0.17285E+00_JPRB,0.17161E+00_JPRB,0.16316E+00_JPRB,0.13700E+00_JPRB /) |
1907 |
|
|
KA(:, 4, 9, 9) = (/ & |
1908 |
|
|
& 0.10390E+00_JPRB,0.13341E+00_JPRB,0.15118E+00_JPRB,0.16299E+00_JPRB,0.17031E+00_JPRB, & |
1909 |
|
✗ |
& 0.17358E+00_JPRB,0.17229E+00_JPRB,0.16405E+00_JPRB,0.13837E+00_JPRB /) |
1910 |
|
|
KA(:, 5, 9, 9) = (/ & |
1911 |
|
|
& 0.10569E+00_JPRB,0.13530E+00_JPRB,0.15298E+00_JPRB,0.16444E+00_JPRB,0.17139E+00_JPRB, & |
1912 |
|
✗ |
& 0.17443E+00_JPRB,0.17301E+00_JPRB,0.16481E+00_JPRB,0.13976E+00_JPRB /) |
1913 |
|
|
KA(:, 1,10, 9) = (/ & |
1914 |
|
|
& 0.87148E-01_JPRB,0.11690E+00_JPRB,0.13450E+00_JPRB,0.14609E+00_JPRB,0.15307E+00_JPRB, & |
1915 |
|
✗ |
& 0.15588E+00_JPRB,0.15420E+00_JPRB,0.14572E+00_JPRB,0.11917E+00_JPRB /) |
1916 |
|
|
KA(:, 2,10, 9) = (/ & |
1917 |
|
|
& 0.87948E-01_JPRB,0.11730E+00_JPRB,0.13485E+00_JPRB,0.14637E+00_JPRB,0.15348E+00_JPRB, & |
1918 |
|
✗ |
& 0.15645E+00_JPRB,0.15513E+00_JPRB,0.14723E+00_JPRB,0.12103E+00_JPRB /) |
1919 |
|
|
KA(:, 3,10, 9) = (/ & |
1920 |
|
|
& 0.89341E-01_JPRB,0.11856E+00_JPRB,0.13575E+00_JPRB,0.14709E+00_JPRB,0.15418E+00_JPRB, & |
1921 |
|
✗ |
& 0.15726E+00_JPRB,0.15609E+00_JPRB,0.14852E+00_JPRB,0.12266E+00_JPRB /) |
1922 |
|
|
KA(:, 4,10, 9) = (/ & |
1923 |
|
|
& 0.90912E-01_JPRB,0.12032E+00_JPRB,0.13733E+00_JPRB,0.14835E+00_JPRB,0.15527E+00_JPRB, & |
1924 |
|
✗ |
& 0.15827E+00_JPRB,0.15702E+00_JPRB,0.14960E+00_JPRB,0.12424E+00_JPRB /) |
1925 |
|
|
KA(:, 5,10, 9) = (/ & |
1926 |
|
|
& 0.92651E-01_JPRB,0.12218E+00_JPRB,0.13930E+00_JPRB,0.15018E+00_JPRB,0.15676E+00_JPRB, & |
1927 |
|
✗ |
& 0.15942E+00_JPRB,0.15802E+00_JPRB,0.15063E+00_JPRB,0.12583E+00_JPRB /) |
1928 |
|
|
KA(:, 1,11, 9) = (/ & |
1929 |
|
|
& 0.75810E-01_JPRB,0.10456E+00_JPRB,0.12069E+00_JPRB,0.13117E+00_JPRB,0.13761E+00_JPRB, & |
1930 |
|
✗ |
& 0.14039E+00_JPRB,0.13895E+00_JPRB,0.13157E+00_JPRB,0.10610E+00_JPRB /) |
1931 |
|
|
KA(:, 2,11, 9) = (/ & |
1932 |
|
|
& 0.76895E-01_JPRB,0.10557E+00_JPRB,0.12151E+00_JPRB,0.13190E+00_JPRB,0.13842E+00_JPRB, & |
1933 |
|
✗ |
& 0.14134E+00_JPRB,0.14014E+00_JPRB,0.13312E+00_JPRB,0.10796E+00_JPRB /) |
1934 |
|
|
KA(:, 3,11, 9) = (/ & |
1935 |
|
|
& 0.78244E-01_JPRB,0.10718E+00_JPRB,0.12298E+00_JPRB,0.13318E+00_JPRB,0.13962E+00_JPRB, & |
1936 |
|
✗ |
& 0.14250E+00_JPRB,0.14130E+00_JPRB,0.13446E+00_JPRB,0.10971E+00_JPRB /) |
1937 |
|
|
KA(:, 4,11, 9) = (/ & |
1938 |
|
|
& 0.79823E-01_JPRB,0.10896E+00_JPRB,0.12491E+00_JPRB,0.13508E+00_JPRB,0.14123E+00_JPRB, & |
1939 |
|
✗ |
& 0.14382E+00_JPRB,0.14250E+00_JPRB,0.13575E+00_JPRB,0.11145E+00_JPRB /) |
1940 |
|
|
KA(:, 5,11, 9) = (/ & |
1941 |
|
|
& 0.81587E-01_JPRB,0.11081E+00_JPRB,0.12696E+00_JPRB,0.13729E+00_JPRB,0.14323E+00_JPRB, & |
1942 |
|
✗ |
& 0.14541E+00_JPRB,0.14385E+00_JPRB,0.13708E+00_JPRB,0.11322E+00_JPRB /) |
1943 |
|
|
KA(:, 1,12, 9) = (/ & |
1944 |
|
|
& 0.65751E-01_JPRB,0.93358E-01_JPRB,0.10793E+00_JPRB,0.11727E+00_JPRB,0.12307E+00_JPRB, & |
1945 |
|
✗ |
& 0.12565E+00_JPRB,0.12447E+00_JPRB,0.11782E+00_JPRB,0.93944E-01_JPRB /) |
1946 |
|
|
KA(:, 2,12, 9) = (/ & |
1947 |
|
|
& 0.66851E-01_JPRB,0.94791E-01_JPRB,0.10927E+00_JPRB,0.11849E+00_JPRB,0.12430E+00_JPRB, & |
1948 |
|
✗ |
& 0.12692E+00_JPRB,0.12584E+00_JPRB,0.11940E+00_JPRB,0.95825E-01_JPRB /) |
1949 |
|
|
KA(:, 3,12, 9) = (/ & |
1950 |
|
|
& 0.68215E-01_JPRB,0.96468E-01_JPRB,0.11113E+00_JPRB,0.12035E+00_JPRB,0.12596E+00_JPRB, & |
1951 |
|
✗ |
& 0.12837E+00_JPRB,0.12723E+00_JPRB,0.12088E+00_JPRB,0.97697E-01_JPRB /) |
1952 |
|
|
KA(:, 4,12, 9) = (/ & |
1953 |
|
|
& 0.69822E-01_JPRB,0.98288E-01_JPRB,0.11318E+00_JPRB,0.12260E+00_JPRB,0.12800E+00_JPRB, & |
1954 |
|
✗ |
& 0.13009E+00_JPRB,0.12875E+00_JPRB,0.12246E+00_JPRB,0.99558E-01_JPRB /) |
1955 |
|
|
KA(:, 5,12, 9) = (/ & |
1956 |
|
|
& 0.71562E-01_JPRB,0.10021E+00_JPRB,0.11536E+00_JPRB,0.12491E+00_JPRB,0.13035E+00_JPRB, & |
1957 |
|
✗ |
& 0.13218E+00_JPRB,0.13049E+00_JPRB,0.12412E+00_JPRB,0.10142E+00_JPRB /) |
1958 |
|
|
KA(:, 1,13, 9) = (/ & |
1959 |
|
|
& 0.56716E-01_JPRB,0.83175E-01_JPRB,0.96227E-01_JPRB,0.10452E+00_JPRB,0.10961E+00_JPRB, & |
1960 |
|
✗ |
& 0.11186E+00_JPRB,0.11078E+00_JPRB,0.10487E+00_JPRB,0.82822E-01_JPRB /) |
1961 |
|
|
KA(:, 2,13, 9) = (/ & |
1962 |
|
|
& 0.57829E-01_JPRB,0.84711E-01_JPRB,0.97973E-01_JPRB,0.10625E+00_JPRB,0.11123E+00_JPRB, & |
1963 |
|
✗ |
& 0.11339E+00_JPRB,0.11236E+00_JPRB,0.10648E+00_JPRB,0.84781E-01_JPRB /) |
1964 |
|
|
KA(:, 3,13, 9) = (/ & |
1965 |
|
|
& 0.59231E-01_JPRB,0.86426E-01_JPRB,0.99996E-01_JPRB,0.10847E+00_JPRB,0.11329E+00_JPRB, & |
1966 |
|
✗ |
& 0.11518E+00_JPRB,0.11401E+00_JPRB,0.10821E+00_JPRB,0.86727E-01_JPRB /) |
1967 |
|
|
KA(:, 4,13, 9) = (/ & |
1968 |
|
|
& 0.60793E-01_JPRB,0.88335E-01_JPRB,0.10220E+00_JPRB,0.11080E+00_JPRB,0.11568E+00_JPRB, & |
1969 |
|
✗ |
& 0.11734E+00_JPRB,0.11592E+00_JPRB,0.11003E+00_JPRB,0.88652E-01_JPRB /) |
1970 |
|
|
KA(:, 5,13, |