Line |
Branch |
Exec |
Source |
1 |
|
|
!OCL SCALAR |
2 |
|
|
!pgi$r opt=0 |
3 |
|
✗ |
SUBROUTINE SRTM_KGB19 |
4 |
|
|
|
5 |
|
|
! Originally by J.Delamere, Atmospheric & Environmental Research. |
6 |
|
|
! Revision: 2.4 |
7 |
|
|
! BAND 16: 4650-5150 cm-1 (low - H2O,CO2; high - 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 YOESRTA19, 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_KGB19',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 |
|
|
|
46 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19',1,ZHOOK_HANDLE) |
47 |
|
|
|
48 |
|
|
! ----------------------------------------------------------------- |
49 |
|
|
|
50 |
|
|
CONTAINS |
51 |
|
|
|
52 |
|
|
|
53 |
|
✗ |
SUBROUTINE PART1 |
54 |
|
|
|
55 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
56 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART1',0,ZHOOK_HANDLE) |
57 |
|
|
|
58 |
|
|
|
59 |
|
|
SFLUXREF(:,1) = (/ & |
60 |
|
|
& 3.25791_JPRB , 3.29697_JPRB , 3.16031_JPRB , 2.96115_JPRB , & |
61 |
|
|
& 2.69238_JPRB , 2.33819_JPRB , 1.92760_JPRB , 1.44918_JPRB , & |
62 |
|
|
& 0.979764_JPRB , 0.107336_JPRB , 8.94523E-02_JPRB, 6.98325E-02_JPRB, & |
63 |
|
✗ |
& 5.12051E-02_JPRB, 3.23645E-02_JPRB, 1.23401E-02_JPRB, 1.71339E-03_JPRB /) |
64 |
|
|
SFLUXREF(:,2) = (/ & |
65 |
|
|
& 3.22769_JPRB , 3.28817_JPRB , 3.16687_JPRB , 2.97662_JPRB , & |
66 |
|
|
& 2.69495_JPRB , 2.34392_JPRB , 1.92900_JPRB , 1.45391_JPRB , & |
67 |
|
|
& 0.982522_JPRB , 0.107638_JPRB , 8.92458E-02_JPRB, 6.99885E-02_JPRB, & |
68 |
|
✗ |
& 5.09679E-02_JPRB, 3.23789E-02_JPRB, 1.22673E-02_JPRB, 1.56040E-03_JPRB /) |
69 |
|
|
SFLUXREF(:,3) = (/ & |
70 |
|
|
& 3.22294_JPRB , 3.27780_JPRB , 3.17424_JPRB , 2.97143_JPRB , & |
71 |
|
|
& 2.69785_JPRB , 2.34993_JPRB , 1.93155_JPRB , 1.45196_JPRB , & |
72 |
|
|
& 0.985329_JPRB , 0.108027_JPRB , 8.93552E-02_JPRB, 6.99937E-02_JPRB, & |
73 |
|
✗ |
& 5.11678E-02_JPRB, 3.24846E-02_JPRB, 1.20636E-02_JPRB, 1.56040E-03_JPRB /) |
74 |
|
|
SFLUXREF(:,4) = (/ & |
75 |
|
|
& 3.22445_JPRB , 3.26113_JPRB , 3.18438_JPRB , 2.96921_JPRB , & |
76 |
|
|
& 2.69579_JPRB , 2.35586_JPRB , 1.93454_JPRB , 1.44949_JPRB , & |
77 |
|
|
& 0.987347_JPRB , 0.108611_JPRB , 8.91643E-02_JPRB, 7.02236E-02_JPRB, & |
78 |
|
✗ |
& 5.12980E-02_JPRB, 3.25282E-02_JPRB, 1.21189E-02_JPRB, 1.56040E-03_JPRB /) |
79 |
|
|
SFLUXREF(:,5) = (/ & |
80 |
|
|
& 3.22497_JPRB , 3.25109_JPRB , 3.18741_JPRB , 2.96970_JPRB , & |
81 |
|
|
& 2.69460_JPRB , 2.36020_JPRB , 1.93301_JPRB , 1.45224_JPRB , & |
82 |
|
|
& 0.988564_JPRB , 0.108255_JPRB , 8.93830E-02_JPRB, 7.03655E-02_JPRB, & |
83 |
|
✗ |
& 5.13017E-02_JPRB, 3.29414E-02_JPRB, 1.21189E-02_JPRB, 1.56040E-03_JPRB /) |
84 |
|
|
SFLUXREF(:,6) = (/ & |
85 |
|
|
& 3.22632_JPRB , 3.24174_JPRB , 3.18524_JPRB , 2.97402_JPRB , & |
86 |
|
|
& 2.69807_JPRB , 2.35742_JPRB , 1.93377_JPRB , 1.45621_JPRB , & |
87 |
|
|
& 0.988132_JPRB , 0.108344_JPRB , 8.93188E-02_JPRB, 7.04907E-02_JPRB, & |
88 |
|
✗ |
& 5.17938E-02_JPRB, 3.31465E-02_JPRB, 1.21155E-02_JPRB, 1.56040E-03_JPRB /) |
89 |
|
|
SFLUXREF(:,7) = (/ & |
90 |
|
|
& 3.22793_JPRB , 3.23589_JPRB , 3.17720_JPRB , 2.97869_JPRB , & |
91 |
|
|
& 2.70293_JPRB , 2.35436_JPRB , 1.93557_JPRB , 1.45868_JPRB , & |
92 |
|
|
& 0.988654_JPRB , 0.108198_JPRB , 8.93375E-02_JPRB, 7.09790E-02_JPRB, & |
93 |
|
✗ |
& 5.24733E-02_JPRB, 3.31298E-02_JPRB, 1.21126E-02_JPRB, 1.56040E-03_JPRB /) |
94 |
|
|
SFLUXREF(:,8) = (/ & |
95 |
|
|
& 3.22966_JPRB , 3.24087_JPRB , 3.15676_JPRB , 2.98171_JPRB , & |
96 |
|
|
& 2.70894_JPRB , 2.34975_JPRB , 1.93855_JPRB , 1.46354_JPRB , & |
97 |
|
|
& 0.988544_JPRB , 0.108574_JPRB , 9.02522E-02_JPRB, 7.12908E-02_JPRB, & |
98 |
|
✗ |
& 5.24844E-02_JPRB, 3.31084E-02_JPRB, 1.21060E-02_JPRB, 1.56040E-03_JPRB /) |
99 |
|
|
SFLUXREF(:,9) = (/ & |
100 |
|
|
& 3.27240_JPRB , 3.24666_JPRB , 3.13886_JPRB , 2.95238_JPRB , & |
101 |
|
|
& 2.70190_JPRB , 2.34460_JPRB , 1.93948_JPRB , 1.47111_JPRB , & |
102 |
|
|
& 0.990821_JPRB , 0.108730_JPRB , 9.01625E-02_JPRB, 7.13261E-02_JPRB, & |
103 |
|
✗ |
& 5.24813E-02_JPRB, 3.31083E-02_JPRB, 1.21126E-02_JPRB, 1.56040E-03_JPRB /) |
104 |
|
|
|
105 |
|
|
! Rayleigh extinction coefficient at v = 4900 cm-1. |
106 |
|
✗ |
RAYL = 2.29E-09_JPRB |
107 |
|
|
|
108 |
|
✗ |
STRRAT = 5.49281_JPRB |
109 |
|
|
|
110 |
|
✗ |
LAYREFFR = 3 |
111 |
|
|
|
112 |
|
|
! ------------------------------------------------------------------ |
113 |
|
|
|
114 |
|
|
! The array KA contains absorption coefs at the 16 chosen g-values |
115 |
|
|
! for a range of pressure levels> ~100mb, temperatures, and binary |
116 |
|
|
! species parameters (see taumol.f for definition). The first |
117 |
|
|
! index in the array, JS, runs from 1 to 9, and corresponds to |
118 |
|
|
! different values of the binary species parameter. For instance, |
119 |
|
|
! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, |
120 |
|
|
! JS = 3 corresponds to the parameter value 2/8, etc. The second index |
121 |
|
|
! in the array, JT, which runs from 1 to 5, corresponds to different |
122 |
|
|
! temperatures. More specifically, JT = 3 means that the data are for |
123 |
|
|
! the reference temperature TREF for this pressure level, JT = 2 refers |
124 |
|
|
! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 |
125 |
|
|
! is for TREF+30. The third index, JP, runs from 1 to 13 and refers |
126 |
|
|
! to the JPth reference pressure level (see taumol.f for these levels |
127 |
|
|
! in mb). The fourth index, IG, goes from 1 to 16, and indicates |
128 |
|
|
! which g-interval the absorption coefficients are for. |
129 |
|
|
! ----------------------------------------------------------------- |
130 |
|
|
|
131 |
|
|
KA(:, 1, 1, 1) = (/ & |
132 |
|
|
& 0.14981E-05_JPRB,0.26659E-05_JPRB,0.31874E-05_JPRB,0.35509E-05_JPRB,0.37593E-05_JPRB, & |
133 |
|
✗ |
& 0.38514E-05_JPRB,0.37369E-05_JPRB,0.35011E-05_JPRB,0.23894E-05_JPRB /) |
134 |
|
|
KA(:, 2, 1, 1) = (/ & |
135 |
|
|
& 0.15103E-05_JPRB,0.27348E-05_JPRB,0.32692E-05_JPRB,0.36558E-05_JPRB,0.38926E-05_JPRB, & |
136 |
|
✗ |
& 0.39737E-05_JPRB,0.38798E-05_JPRB,0.36565E-05_JPRB,0.24072E-05_JPRB /) |
137 |
|
|
KA(:, 3, 1, 1) = (/ & |
138 |
|
|
& 0.15233E-05_JPRB,0.28090E-05_JPRB,0.33744E-05_JPRB,0.37729E-05_JPRB,0.40258E-05_JPRB, & |
139 |
|
✗ |
& 0.41107E-05_JPRB,0.40389E-05_JPRB,0.38226E-05_JPRB,0.24704E-05_JPRB /) |
140 |
|
|
KA(:, 4, 1, 1) = (/ & |
141 |
|
|
& 0.15219E-05_JPRB,0.28978E-05_JPRB,0.35015E-05_JPRB,0.38984E-05_JPRB,0.41569E-05_JPRB, & |
142 |
|
✗ |
& 0.42771E-05_JPRB,0.42110E-05_JPRB,0.39963E-05_JPRB,0.25504E-05_JPRB /) |
143 |
|
|
KA(:, 5, 1, 1) = (/ & |
144 |
|
|
& 0.15254E-05_JPRB,0.29633E-05_JPRB,0.36224E-05_JPRB,0.40435E-05_JPRB,0.42975E-05_JPRB, & |
145 |
|
✗ |
& 0.44410E-05_JPRB,0.43849E-05_JPRB,0.41847E-05_JPRB,0.26420E-05_JPRB /) |
146 |
|
|
KA(:, 1, 2, 1) = (/ & |
147 |
|
|
& 0.13024E-05_JPRB,0.23699E-05_JPRB,0.28370E-05_JPRB,0.31443E-05_JPRB,0.33326E-05_JPRB, & |
148 |
|
✗ |
& 0.33798E-05_JPRB,0.32797E-05_JPRB,0.30078E-05_JPRB,0.18819E-05_JPRB /) |
149 |
|
|
KA(:, 2, 2, 1) = (/ & |
150 |
|
|
& 0.13249E-05_JPRB,0.24299E-05_JPRB,0.29103E-05_JPRB,0.32336E-05_JPRB,0.34308E-05_JPRB, & |
151 |
|
✗ |
& 0.35019E-05_JPRB,0.34046E-05_JPRB,0.31323E-05_JPRB,0.19511E-05_JPRB /) |
152 |
|
|
KA(:, 3, 2, 1) = (/ & |
153 |
|
|
& 0.13241E-05_JPRB,0.25059E-05_JPRB,0.30019E-05_JPRB,0.33317E-05_JPRB,0.35516E-05_JPRB, & |
154 |
|
✗ |
& 0.36333E-05_JPRB,0.35372E-05_JPRB,0.32615E-05_JPRB,0.20254E-05_JPRB /) |
155 |
|
|
KA(:, 4, 2, 1) = (/ & |
156 |
|
|
& 0.13325E-05_JPRB,0.25840E-05_JPRB,0.31009E-05_JPRB,0.34399E-05_JPRB,0.36699E-05_JPRB, & |
157 |
|
✗ |
& 0.37727E-05_JPRB,0.36811E-05_JPRB,0.34016E-05_JPRB,0.20611E-05_JPRB /) |
158 |
|
|
KA(:, 5, 2, 1) = (/ & |
159 |
|
|
& 0.13321E-05_JPRB,0.26601E-05_JPRB,0.32189E-05_JPRB,0.35640E-05_JPRB,0.38012E-05_JPRB, & |
160 |
|
✗ |
& 0.39113E-05_JPRB,0.38271E-05_JPRB,0.35499E-05_JPRB,0.21368E-05_JPRB /) |
161 |
|
|
KA(:, 1, 3, 1) = (/ & |
162 |
|
|
& 0.11079E-05_JPRB,0.20757E-05_JPRB,0.24846E-05_JPRB,0.27511E-05_JPRB,0.28883E-05_JPRB, & |
163 |
|
✗ |
& 0.29142E-05_JPRB,0.28203E-05_JPRB,0.25706E-05_JPRB,0.15124E-05_JPRB /) |
164 |
|
|
KA(:, 2, 3, 1) = (/ & |
165 |
|
|
& 0.11298E-05_JPRB,0.21278E-05_JPRB,0.25551E-05_JPRB,0.28306E-05_JPRB,0.29814E-05_JPRB, & |
166 |
|
✗ |
& 0.30126E-05_JPRB,0.29328E-05_JPRB,0.26721E-05_JPRB,0.15784E-05_JPRB /) |
167 |
|
|
KA(:, 3, 3, 1) = (/ & |
168 |
|
|
& 0.11405E-05_JPRB,0.21812E-05_JPRB,0.26237E-05_JPRB,0.29130E-05_JPRB,0.30816E-05_JPRB, & |
169 |
|
✗ |
& 0.31265E-05_JPRB,0.30480E-05_JPRB,0.27784E-05_JPRB,0.16468E-05_JPRB /) |
170 |
|
|
KA(:, 4, 3, 1) = (/ & |
171 |
|
|
& 0.11347E-05_JPRB,0.22472E-05_JPRB,0.27094E-05_JPRB,0.30057E-05_JPRB,0.31821E-05_JPRB, & |
172 |
|
✗ |
& 0.32536E-05_JPRB,0.31714E-05_JPRB,0.28837E-05_JPRB,0.17189E-05_JPRB /) |
173 |
|
|
KA(:, 5, 3, 1) = (/ & |
174 |
|
|
& 0.11383E-05_JPRB,0.23152E-05_JPRB,0.28016E-05_JPRB,0.31126E-05_JPRB,0.33051E-05_JPRB, & |
175 |
|
✗ |
& 0.33759E-05_JPRB,0.32961E-05_JPRB,0.29993E-05_JPRB,0.17919E-05_JPRB /) |
176 |
|
|
KA(:, 1, 4, 1) = (/ & |
177 |
|
|
& 0.93104E-06_JPRB,0.18005E-05_JPRB,0.21693E-05_JPRB,0.23819E-05_JPRB,0.24829E-05_JPRB, & |
178 |
|
✗ |
& 0.24860E-05_JPRB,0.23860E-05_JPRB,0.21586E-05_JPRB,0.12198E-05_JPRB /) |
179 |
|
|
KA(:, 2, 4, 1) = (/ & |
180 |
|
|
& 0.94591E-06_JPRB,0.18309E-05_JPRB,0.22153E-05_JPRB,0.24487E-05_JPRB,0.25574E-05_JPRB, & |
181 |
|
✗ |
& 0.25721E-05_JPRB,0.24802E-05_JPRB,0.22458E-05_JPRB,0.13105E-05_JPRB /) |
182 |
|
|
KA(:, 3, 4, 1) = (/ & |
183 |
|
|
& 0.95638E-06_JPRB,0.18753E-05_JPRB,0.22788E-05_JPRB,0.25149E-05_JPRB,0.26499E-05_JPRB, & |
184 |
|
✗ |
& 0.26671E-05_JPRB,0.25797E-05_JPRB,0.23335E-05_JPRB,0.14017E-05_JPRB /) |
185 |
|
|
KA(:, 4, 4, 1) = (/ & |
186 |
|
|
& 0.95763E-06_JPRB,0.19379E-05_JPRB,0.23271E-05_JPRB,0.25858E-05_JPRB,0.27437E-05_JPRB, & |
187 |
|
✗ |
& 0.27792E-05_JPRB,0.26790E-05_JPRB,0.24268E-05_JPRB,0.14872E-05_JPRB /) |
188 |
|
|
KA(:, 5, 4, 1) = (/ & |
189 |
|
|
& 0.95668E-06_JPRB,0.19877E-05_JPRB,0.23997E-05_JPRB,0.26721E-05_JPRB,0.28382E-05_JPRB, & |
190 |
|
✗ |
& 0.28806E-05_JPRB,0.27857E-05_JPRB,0.25225E-05_JPRB,0.15698E-05_JPRB /) |
191 |
|
|
KA(:, 1, 5, 1) = (/ & |
192 |
|
|
& 0.77329E-06_JPRB,0.15354E-05_JPRB,0.18723E-05_JPRB,0.20411E-05_JPRB,0.21095E-05_JPRB, & |
193 |
|
✗ |
& 0.21017E-05_JPRB,0.19998E-05_JPRB,0.18017E-05_JPRB,0.97629E-06_JPRB /) |
194 |
|
|
KA(:, 2, 5, 1) = (/ & |
195 |
|
|
& 0.78241E-06_JPRB,0.15660E-05_JPRB,0.19091E-05_JPRB,0.20970E-05_JPRB,0.21786E-05_JPRB, & |
196 |
|
✗ |
& 0.21730E-05_JPRB,0.20794E-05_JPRB,0.18731E-05_JPRB,0.10645E-05_JPRB /) |
197 |
|
|
KA(:, 3, 5, 1) = (/ & |
198 |
|
|
& 0.79463E-06_JPRB,0.15948E-05_JPRB,0.19458E-05_JPRB,0.21529E-05_JPRB,0.22557E-05_JPRB, & |
199 |
|
✗ |
& 0.22576E-05_JPRB,0.21631E-05_JPRB,0.19462E-05_JPRB,0.11507E-05_JPRB /) |
200 |
|
|
KA(:, 4, 5, 1) = (/ & |
201 |
|
|
& 0.79779E-06_JPRB,0.16389E-05_JPRB,0.19877E-05_JPRB,0.22087E-05_JPRB,0.23274E-05_JPRB, & |
202 |
|
✗ |
& 0.23462E-05_JPRB,0.22501E-05_JPRB,0.20204E-05_JPRB,0.12366E-05_JPRB /) |
203 |
|
|
KA(:, 5, 5, 1) = (/ & |
204 |
|
|
& 0.79875E-06_JPRB,0.16865E-05_JPRB,0.20410E-05_JPRB,0.22789E-05_JPRB,0.24049E-05_JPRB, & |
205 |
|
✗ |
& 0.24283E-05_JPRB,0.23388E-05_JPRB,0.21006E-05_JPRB,0.13155E-05_JPRB /) |
206 |
|
|
KA(:, 1, 6, 1) = (/ & |
207 |
|
|
& 0.63799E-06_JPRB,0.13079E-05_JPRB,0.15873E-05_JPRB,0.17187E-05_JPRB,0.17689E-05_JPRB, & |
208 |
|
✗ |
& 0.17509E-05_JPRB,0.16625E-05_JPRB,0.14950E-05_JPRB,0.77624E-06_JPRB /) |
209 |
|
|
KA(:, 2, 6, 1) = (/ & |
210 |
|
|
& 0.64423E-06_JPRB,0.13180E-05_JPRB,0.16173E-05_JPRB,0.17648E-05_JPRB,0.18253E-05_JPRB, & |
211 |
|
✗ |
& 0.18152E-05_JPRB,0.17299E-05_JPRB,0.15482E-05_JPRB,0.85457E-06_JPRB /) |
212 |
|
|
KA(:, 3, 6, 1) = (/ & |
213 |
|
|
& 0.65214E-06_JPRB,0.13481E-05_JPRB,0.16476E-05_JPRB,0.18158E-05_JPRB,0.18867E-05_JPRB, & |
214 |
|
✗ |
& 0.18859E-05_JPRB,0.17999E-05_JPRB,0.16080E-05_JPRB,0.93968E-06_JPRB /) |
215 |
|
|
KA(:, 4, 6, 1) = (/ & |
216 |
|
|
& 0.65949E-06_JPRB,0.13728E-05_JPRB,0.16795E-05_JPRB,0.18618E-05_JPRB,0.19507E-05_JPRB, & |
217 |
|
✗ |
& 0.19568E-05_JPRB,0.18693E-05_JPRB,0.16710E-05_JPRB,0.10256E-05_JPRB /) |
218 |
|
|
KA(:, 5, 6, 1) = (/ & |
219 |
|
|
& 0.66012E-06_JPRB,0.14051E-05_JPRB,0.17174E-05_JPRB,0.19154E-05_JPRB,0.20111E-05_JPRB, & |
220 |
|
✗ |
& 0.20230E-05_JPRB,0.19421E-05_JPRB,0.17361E-05_JPRB,0.11072E-05_JPRB /) |
221 |
|
|
KA(:, 1, 7, 1) = (/ & |
222 |
|
|
& 0.52652E-06_JPRB,0.10995E-05_JPRB,0.13221E-05_JPRB,0.14282E-05_JPRB,0.14627E-05_JPRB, & |
223 |
|
✗ |
& 0.14494E-05_JPRB,0.13754E-05_JPRB,0.12359E-05_JPRB,0.62399E-06_JPRB /) |
224 |
|
|
KA(:, 2, 7, 1) = (/ & |
225 |
|
|
& 0.52631E-06_JPRB,0.11047E-05_JPRB,0.13498E-05_JPRB,0.14646E-05_JPRB,0.15094E-05_JPRB, & |
226 |
|
✗ |
& 0.14961E-05_JPRB,0.14272E-05_JPRB,0.12791E-05_JPRB,0.69692E-06_JPRB /) |
227 |
|
|
KA(:, 3, 7, 1) = (/ & |
228 |
|
|
& 0.53263E-06_JPRB,0.11231E-05_JPRB,0.13763E-05_JPRB,0.15059E-05_JPRB,0.15602E-05_JPRB, & |
229 |
|
✗ |
& 0.15533E-05_JPRB,0.14827E-05_JPRB,0.13257E-05_JPRB,0.76959E-06_JPRB /) |
230 |
|
|
KA(:, 4, 7, 1) = (/ & |
231 |
|
|
& 0.53788E-06_JPRB,0.11448E-05_JPRB,0.14026E-05_JPRB,0.15478E-05_JPRB,0.16122E-05_JPRB, & |
232 |
|
✗ |
& 0.16137E-05_JPRB,0.15398E-05_JPRB,0.13748E-05_JPRB,0.84488E-06_JPRB /) |
233 |
|
|
KA(:, 5, 7, 1) = (/ & |
234 |
|
|
& 0.54243E-06_JPRB,0.11660E-05_JPRB,0.14288E-05_JPRB,0.15891E-05_JPRB,0.16619E-05_JPRB, & |
235 |
|
✗ |
& 0.16672E-05_JPRB,0.15978E-05_JPRB,0.14265E-05_JPRB,0.92439E-06_JPRB /) |
236 |
|
|
KA(:, 1, 8, 1) = (/ & |
237 |
|
|
& 0.42860E-06_JPRB,0.91208E-06_JPRB,0.10887E-05_JPRB,0.11732E-05_JPRB,0.12000E-05_JPRB, & |
238 |
|
✗ |
& 0.11901E-05_JPRB,0.11300E-05_JPRB,0.10181E-05_JPRB,0.51360E-06_JPRB /) |
239 |
|
|
KA(:, 2, 8, 1) = (/ & |
240 |
|
|
& 0.42605E-06_JPRB,0.91355E-06_JPRB,0.11105E-05_JPRB,0.12004E-05_JPRB,0.12359E-05_JPRB, & |
241 |
|
✗ |
& 0.12238E-05_JPRB,0.11674E-05_JPRB,0.10496E-05_JPRB,0.58593E-06_JPRB /) |
242 |
|
|
KA(:, 3, 8, 1) = (/ & |
243 |
|
|
& 0.42910E-06_JPRB,0.92458E-06_JPRB,0.11341E-05_JPRB,0.12355E-05_JPRB,0.12754E-05_JPRB, & |
244 |
|
✗ |
& 0.12667E-05_JPRB,0.12100E-05_JPRB,0.10877E-05_JPRB,0.65209E-06_JPRB /) |
245 |
|
|
KA(:, 4, 8, 1) = (/ & |
246 |
|
|
& 0.43345E-06_JPRB,0.94024E-06_JPRB,0.11540E-05_JPRB,0.12669E-05_JPRB,0.13186E-05_JPRB, & |
247 |
|
✗ |
& 0.13163E-05_JPRB,0.12567E-05_JPRB,0.11280E-05_JPRB,0.72051E-06_JPRB /) |
248 |
|
|
KA(:, 5, 8, 1) = (/ & |
249 |
|
|
& 0.43744E-06_JPRB,0.95845E-06_JPRB,0.11764E-05_JPRB,0.13022E-05_JPRB,0.13595E-05_JPRB, & |
250 |
|
✗ |
& 0.13618E-05_JPRB,0.13034E-05_JPRB,0.11671E-05_JPRB,0.79373E-06_JPRB /) |
251 |
|
|
KA(:, 1, 9, 1) = (/ & |
252 |
|
|
& 0.34458E-06_JPRB,0.74844E-06_JPRB,0.89217E-06_JPRB,0.95875E-06_JPRB,0.98243E-06_JPRB, & |
253 |
|
✗ |
& 0.97566E-06_JPRB,0.92936E-06_JPRB,0.83611E-06_JPRB,0.44181E-06_JPRB /) |
254 |
|
|
KA(:, 2, 9, 1) = (/ & |
255 |
|
|
& 0.34797E-06_JPRB,0.75304E-06_JPRB,0.90816E-06_JPRB,0.98264E-06_JPRB,0.10080E-05_JPRB, & |
256 |
|
✗ |
& 0.99889E-06_JPRB,0.95318E-06_JPRB,0.86041E-06_JPRB,0.51013E-06_JPRB /) |
257 |
|
|
KA(:, 3, 9, 1) = (/ & |
258 |
|
|
& 0.34593E-06_JPRB,0.76020E-06_JPRB,0.92707E-06_JPRB,0.10062E-05_JPRB,0.10391E-05_JPRB, & |
259 |
|
✗ |
& 0.10296E-05_JPRB,0.98530E-06_JPRB,0.89011E-06_JPRB,0.58070E-06_JPRB /) |
260 |
|
|
KA(:, 4, 9, 1) = (/ & |
261 |
|
|
& 0.34971E-06_JPRB,0.77088E-06_JPRB,0.94623E-06_JPRB,0.10342E-05_JPRB,0.10726E-05_JPRB, & |
262 |
|
✗ |
& 0.10689E-05_JPRB,0.10210E-05_JPRB,0.92020E-06_JPRB,0.65697E-06_JPRB /) |
263 |
|
|
KA(:, 5, 9, 1) = (/ & |
264 |
|
|
& 0.35282E-06_JPRB,0.78517E-06_JPRB,0.96245E-06_JPRB,0.10609E-05_JPRB,0.11071E-05_JPRB, & |
265 |
|
✗ |
& 0.11073E-05_JPRB,0.10583E-05_JPRB,0.95054E-06_JPRB,0.72956E-06_JPRB /) |
266 |
|
|
KA(:, 1,10, 1) = (/ & |
267 |
|
|
& 0.27840E-06_JPRB,0.61035E-06_JPRB,0.72930E-06_JPRB,0.78415E-06_JPRB,0.80451E-06_JPRB, & |
268 |
|
✗ |
& 0.79924E-06_JPRB,0.76231E-06_JPRB,0.68727E-06_JPRB,0.40208E-06_JPRB /) |
269 |
|
|
KA(:, 2,10, 1) = (/ & |
270 |
|
|
& 0.28171E-06_JPRB,0.61798E-06_JPRB,0.74197E-06_JPRB,0.80115E-06_JPRB,0.82183E-06_JPRB, & |
271 |
|
✗ |
& 0.81621E-06_JPRB,0.78030E-06_JPRB,0.70425E-06_JPRB,0.46700E-06_JPRB /) |
272 |
|
|
KA(:, 3,10, 1) = (/ & |
273 |
|
|
& 0.28023E-06_JPRB,0.62269E-06_JPRB,0.75685E-06_JPRB,0.82101E-06_JPRB,0.84538E-06_JPRB, & |
274 |
|
✗ |
& 0.83821E-06_JPRB,0.80301E-06_JPRB,0.72663E-06_JPRB,0.53781E-06_JPRB /) |
275 |
|
|
KA(:, 4,10, 1) = (/ & |
276 |
|
|
& 0.28163E-06_JPRB,0.63156E-06_JPRB,0.77214E-06_JPRB,0.84244E-06_JPRB,0.87184E-06_JPRB, & |
277 |
|
✗ |
& 0.86752E-06_JPRB,0.83024E-06_JPRB,0.75000E-06_JPRB,0.60478E-06_JPRB /) |
278 |
|
|
KA(:, 5,10, 1) = (/ & |
279 |
|
|
& 0.28518E-06_JPRB,0.64070E-06_JPRB,0.78628E-06_JPRB,0.86439E-06_JPRB,0.89969E-06_JPRB, & |
280 |
|
✗ |
& 0.89910E-06_JPRB,0.85933E-06_JPRB,0.77376E-06_JPRB,0.67016E-06_JPRB /) |
281 |
|
|
KA(:, 1,11, 1) = (/ & |
282 |
|
|
& 0.22555E-06_JPRB,0.50042E-06_JPRB,0.59960E-06_JPRB,0.64537E-06_JPRB,0.66324E-06_JPRB, & |
283 |
|
✗ |
& 0.65924E-06_JPRB,0.63003E-06_JPRB,0.56890E-06_JPRB,0.34466E-06_JPRB /) |
284 |
|
|
KA(:, 2,11, 1) = (/ & |
285 |
|
|
& 0.22858E-06_JPRB,0.50705E-06_JPRB,0.60997E-06_JPRB,0.65948E-06_JPRB,0.67688E-06_JPRB, & |
286 |
|
✗ |
& 0.67311E-06_JPRB,0.64462E-06_JPRB,0.58333E-06_JPRB,0.40300E-06_JPRB /) |
287 |
|
|
KA(:, 3,11, 1) = (/ & |
288 |
|
|
& 0.22677E-06_JPRB,0.51178E-06_JPRB,0.62299E-06_JPRB,0.67572E-06_JPRB,0.69624E-06_JPRB, & |
289 |
|
✗ |
& 0.69126E-06_JPRB,0.66285E-06_JPRB,0.60090E-06_JPRB,0.46066E-06_JPRB /) |
290 |
|
|
KA(:, 4,11, 1) = (/ & |
291 |
|
|
& 0.22825E-06_JPRB,0.51907E-06_JPRB,0.63500E-06_JPRB,0.69311E-06_JPRB,0.71796E-06_JPRB, & |
292 |
|
✗ |
& 0.71484E-06_JPRB,0.68416E-06_JPRB,0.61859E-06_JPRB,0.51966E-06_JPRB /) |
293 |
|
|
KA(:, 5,11, 1) = (/ & |
294 |
|
|
& 0.23122E-06_JPRB,0.52598E-06_JPRB,0.64574E-06_JPRB,0.71116E-06_JPRB,0.74046E-06_JPRB, & |
295 |
|
✗ |
& 0.73979E-06_JPRB,0.70672E-06_JPRB,0.63708E-06_JPRB,0.58196E-06_JPRB /) |
296 |
|
|
KA(:, 1,12, 1) = (/ & |
297 |
|
|
& 0.18149E-06_JPRB,0.40829E-06_JPRB,0.49022E-06_JPRB,0.52910E-06_JPRB,0.54408E-06_JPRB, & |
298 |
|
✗ |
& 0.54163E-06_JPRB,0.51867E-06_JPRB,0.46933E-06_JPRB,0.28496E-06_JPRB /) |
299 |
|
|
KA(:, 2,12, 1) = (/ & |
300 |
|
|
& 0.18433E-06_JPRB,0.41378E-06_JPRB,0.49908E-06_JPRB,0.54027E-06_JPRB,0.55522E-06_JPRB, & |
301 |
|
✗ |
& 0.55286E-06_JPRB,0.53038E-06_JPRB,0.48103E-06_JPRB,0.33336E-06_JPRB /) |
302 |
|
|
KA(:, 3,12, 1) = (/ & |
303 |
|
|
& 0.18246E-06_JPRB,0.41799E-06_JPRB,0.50965E-06_JPRB,0.55347E-06_JPRB,0.57134E-06_JPRB, & |
304 |
|
✗ |
& 0.56787E-06_JPRB,0.54477E-06_JPRB,0.49462E-06_JPRB,0.38023E-06_JPRB /) |
305 |
|
|
KA(:, 4,12, 1) = (/ & |
306 |
|
|
& 0.18409E-06_JPRB,0.42347E-06_JPRB,0.51936E-06_JPRB,0.56749E-06_JPRB,0.58877E-06_JPRB, & |
307 |
|
✗ |
& 0.58648E-06_JPRB,0.56149E-06_JPRB,0.50825E-06_JPRB,0.43081E-06_JPRB /) |
308 |
|
|
KA(:, 5,12, 1) = (/ & |
309 |
|
|
& 0.18582E-06_JPRB,0.42888E-06_JPRB,0.52830E-06_JPRB,0.58240E-06_JPRB,0.60647E-06_JPRB, & |
310 |
|
✗ |
& 0.60598E-06_JPRB,0.57933E-06_JPRB,0.52277E-06_JPRB,0.48565E-06_JPRB /) |
311 |
|
|
KA(:, 1,13, 1) = (/ & |
312 |
|
|
& 0.14345E-06_JPRB,0.32927E-06_JPRB,0.39750E-06_JPRB,0.43000E-06_JPRB,0.44318E-06_JPRB, & |
313 |
|
✗ |
& 0.44201E-06_JPRB,0.42469E-06_JPRB,0.38538E-06_JPRB,0.23377E-06_JPRB /) |
314 |
|
|
KA(:, 2,13, 1) = (/ & |
315 |
|
|
& 0.14571E-06_JPRB,0.33355E-06_JPRB,0.40430E-06_JPRB,0.43954E-06_JPRB,0.45256E-06_JPRB, & |
316 |
|
✗ |
& 0.45159E-06_JPRB,0.43399E-06_JPRB,0.39467E-06_JPRB,0.27338E-06_JPRB /) |
317 |
|
|
KA(:, 3,13, 1) = (/ & |
318 |
|
|
& 0.14442E-06_JPRB,0.33719E-06_JPRB,0.41316E-06_JPRB,0.44996E-06_JPRB,0.46575E-06_JPRB, & |
319 |
|
✗ |
& 0.46364E-06_JPRB,0.44528E-06_JPRB,0.40510E-06_JPRB,0.31154E-06_JPRB /) |
320 |
|
|
KA(:, 4,13, 1) = (/ & |
321 |
|
|
& 0.14600E-06_JPRB,0.34141E-06_JPRB,0.42136E-06_JPRB,0.46096E-06_JPRB,0.47937E-06_JPRB, & |
322 |
|
✗ |
& 0.47817E-06_JPRB,0.45850E-06_JPRB,0.41598E-06_JPRB,0.35289E-06_JPRB /) |
323 |
|
|
KA(:, 5,13, 1) = (/ & |
324 |
|
|
& 0.14667E-06_JPRB,0.34608E-06_JPRB,0.42853E-06_JPRB,0.47296E-06_JPRB,0.49300E-06_JPRB, & |
325 |
|
✗ |
& 0.49352E-06_JPRB,0.47280E-06_JPRB,0.42757E-06_JPRB,0.39752E-06_JPRB /) |
326 |
|
|
KA(:, 1, 1, 2) = (/ & |
327 |
|
|
& 0.16288E-04_JPRB,0.25817E-04_JPRB,0.29597E-04_JPRB,0.31319E-04_JPRB,0.31220E-04_JPRB, & |
328 |
|
✗ |
& 0.29539E-04_JPRB,0.25627E-04_JPRB,0.19758E-04_JPRB,0.72944E-05_JPRB /) |
329 |
|
|
KA(:, 2, 1, 2) = (/ & |
330 |
|
|
& 0.18123E-04_JPRB,0.28565E-04_JPRB,0.32633E-04_JPRB,0.34427E-04_JPRB,0.34219E-04_JPRB, & |
331 |
|
✗ |
& 0.32223E-04_JPRB,0.27987E-04_JPRB,0.21485E-04_JPRB,0.79554E-05_JPRB /) |
332 |
|
|
KA(:, 3, 1, 2) = (/ & |
333 |
|
|
& 0.19957E-04_JPRB,0.31607E-04_JPRB,0.36033E-04_JPRB,0.37887E-04_JPRB,0.37694E-04_JPRB, & |
334 |
|
✗ |
& 0.35399E-04_JPRB,0.30718E-04_JPRB,0.23412E-04_JPRB,0.85293E-05_JPRB /) |
335 |
|
|
KA(:, 4, 1, 2) = (/ & |
336 |
|
|
& 0.22005E-04_JPRB,0.35064E-04_JPRB,0.39763E-04_JPRB,0.41694E-04_JPRB,0.41490E-04_JPRB, & |
337 |
|
✗ |
& 0.38891E-04_JPRB,0.33715E-04_JPRB,0.25512E-04_JPRB,0.91232E-05_JPRB /) |
338 |
|
|
KA(:, 5, 1, 2) = (/ & |
339 |
|
|
& 0.24240E-04_JPRB,0.38906E-04_JPRB,0.43899E-04_JPRB,0.45870E-04_JPRB,0.45580E-04_JPRB, & |
340 |
|
✗ |
& 0.42616E-04_JPRB,0.36912E-04_JPRB,0.27728E-04_JPRB,0.97792E-05_JPRB /) |
341 |
|
|
KA(:, 1, 2, 2) = (/ & |
342 |
|
|
& 0.14944E-04_JPRB,0.23223E-04_JPRB,0.25792E-04_JPRB,0.27019E-04_JPRB,0.26963E-04_JPRB, & |
343 |
|
✗ |
& 0.25431E-04_JPRB,0.22069E-04_JPRB,0.16933E-04_JPRB,0.59071E-05_JPRB /) |
344 |
|
|
KA(:, 2, 2, 2) = (/ & |
345 |
|
|
& 0.16615E-04_JPRB,0.25452E-04_JPRB,0.28322E-04_JPRB,0.29800E-04_JPRB,0.29593E-04_JPRB, & |
346 |
|
✗ |
& 0.27776E-04_JPRB,0.24123E-04_JPRB,0.18444E-04_JPRB,0.63142E-05_JPRB /) |
347 |
|
|
KA(:, 3, 2, 2) = (/ & |
348 |
|
|
& 0.18355E-04_JPRB,0.27996E-04_JPRB,0.31338E-04_JPRB,0.32892E-04_JPRB,0.32575E-04_JPRB, & |
349 |
|
✗ |
& 0.30478E-04_JPRB,0.26504E-04_JPRB,0.20132E-04_JPRB,0.67898E-05_JPRB /) |
350 |
|
|
|
351 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART1',1,ZHOOK_HANDLE) |
352 |
|
✗ |
END SUBROUTINE PART1 |
353 |
|
|
|
354 |
|
|
|
355 |
|
✗ |
SUBROUTINE PART2 |
356 |
|
|
|
357 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
358 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART2',0,ZHOOK_HANDLE) |
359 |
|
|
|
360 |
|
|
|
361 |
|
|
KA(:, 4, 2, 2) = (/ & |
362 |
|
|
& 0.20092E-04_JPRB,0.30938E-04_JPRB,0.34680E-04_JPRB,0.36255E-04_JPRB,0.35836E-04_JPRB, & |
363 |
|
✗ |
& 0.33500E-04_JPRB,0.29106E-04_JPRB,0.21950E-04_JPRB,0.73343E-05_JPRB /) |
364 |
|
|
KA(:, 5, 2, 2) = (/ & |
365 |
|
|
& 0.21897E-04_JPRB,0.34150E-04_JPRB,0.38274E-04_JPRB,0.39931E-04_JPRB,0.39337E-04_JPRB, & |
366 |
|
✗ |
& 0.36752E-04_JPRB,0.31831E-04_JPRB,0.23882E-04_JPRB,0.78705E-05_JPRB /) |
367 |
|
|
KA(:, 1, 3, 2) = (/ & |
368 |
|
|
& 0.13130E-04_JPRB,0.20363E-04_JPRB,0.22377E-04_JPRB,0.23003E-04_JPRB,0.22683E-04_JPRB, & |
369 |
|
✗ |
& 0.21429E-04_JPRB,0.18621E-04_JPRB,0.14177E-04_JPRB,0.47892E-05_JPRB /) |
370 |
|
|
KA(:, 2, 3, 2) = (/ & |
371 |
|
|
& 0.14610E-04_JPRB,0.22299E-04_JPRB,0.24486E-04_JPRB,0.25140E-04_JPRB,0.24842E-04_JPRB, & |
372 |
|
✗ |
& 0.23413E-04_JPRB,0.20361E-04_JPRB,0.15469E-04_JPRB,0.52250E-05_JPRB /) |
373 |
|
|
KA(:, 3, 3, 2) = (/ & |
374 |
|
|
& 0.16133E-04_JPRB,0.24482E-04_JPRB,0.26876E-04_JPRB,0.27653E-04_JPRB,0.27357E-04_JPRB, & |
375 |
|
✗ |
& 0.25669E-04_JPRB,0.22341E-04_JPRB,0.16897E-04_JPRB,0.56647E-05_JPRB /) |
376 |
|
|
KA(:, 4, 3, 2) = (/ & |
377 |
|
|
& 0.17708E-04_JPRB,0.26887E-04_JPRB,0.29522E-04_JPRB,0.30577E-04_JPRB,0.30151E-04_JPRB, & |
378 |
|
✗ |
& 0.28221E-04_JPRB,0.24545E-04_JPRB,0.18455E-04_JPRB,0.60735E-05_JPRB /) |
379 |
|
|
KA(:, 5, 3, 2) = (/ & |
380 |
|
|
& 0.19305E-04_JPRB,0.29364E-04_JPRB,0.32520E-04_JPRB,0.33741E-04_JPRB,0.33162E-04_JPRB, & |
381 |
|
✗ |
& 0.30976E-04_JPRB,0.26800E-04_JPRB,0.20103E-04_JPRB,0.64864E-05_JPRB /) |
382 |
|
|
KA(:, 1, 4, 2) = (/ & |
383 |
|
|
& 0.11163E-04_JPRB,0.17498E-04_JPRB,0.19069E-04_JPRB,0.19561E-04_JPRB,0.19154E-04_JPRB, & |
384 |
|
✗ |
& 0.17906E-04_JPRB,0.15522E-04_JPRB,0.11778E-04_JPRB,0.40461E-05_JPRB /) |
385 |
|
|
KA(:, 2, 4, 2) = (/ & |
386 |
|
|
& 0.12505E-04_JPRB,0.19238E-04_JPRB,0.20917E-04_JPRB,0.21365E-04_JPRB,0.20913E-04_JPRB, & |
387 |
|
✗ |
& 0.19471E-04_JPRB,0.16986E-04_JPRB,0.12856E-04_JPRB,0.43935E-05_JPRB /) |
388 |
|
|
KA(:, 3, 4, 2) = (/ & |
389 |
|
|
& 0.13848E-04_JPRB,0.21132E-04_JPRB,0.22975E-04_JPRB,0.23433E-04_JPRB,0.22893E-04_JPRB, & |
390 |
|
✗ |
& 0.21327E-04_JPRB,0.18662E-04_JPRB,0.14056E-04_JPRB,0.47015E-05_JPRB /) |
391 |
|
|
KA(:, 4, 4, 2) = (/ & |
392 |
|
|
& 0.15219E-04_JPRB,0.23159E-04_JPRB,0.25250E-04_JPRB,0.25753E-04_JPRB,0.25088E-04_JPRB, & |
393 |
|
✗ |
& 0.23437E-04_JPRB,0.20455E-04_JPRB,0.15366E-04_JPRB,0.50239E-05_JPRB /) |
394 |
|
|
KA(:, 5, 4, 2) = (/ & |
395 |
|
|
& 0.16631E-04_JPRB,0.25311E-04_JPRB,0.27651E-04_JPRB,0.28243E-04_JPRB,0.27566E-04_JPRB, & |
396 |
|
✗ |
& 0.25775E-04_JPRB,0.22344E-04_JPRB,0.16758E-04_JPRB,0.53594E-05_JPRB /) |
397 |
|
|
KA(:, 1, 5, 2) = (/ & |
398 |
|
|
& 0.92688E-05_JPRB,0.14829E-04_JPRB,0.16036E-04_JPRB,0.16388E-04_JPRB,0.16087E-04_JPRB, & |
399 |
|
✗ |
& 0.15049E-04_JPRB,0.12939E-04_JPRB,0.97243E-05_JPRB,0.35064E-05_JPRB /) |
400 |
|
|
KA(:, 2, 5, 2) = (/ & |
401 |
|
|
& 0.10428E-04_JPRB,0.16289E-04_JPRB,0.17596E-04_JPRB,0.17928E-04_JPRB,0.17547E-04_JPRB, & |
402 |
|
✗ |
& 0.16347E-04_JPRB,0.14108E-04_JPRB,0.10621E-04_JPRB,0.37893E-05_JPRB /) |
403 |
|
|
KA(:, 3, 5, 2) = (/ & |
404 |
|
|
& 0.11600E-04_JPRB,0.17922E-04_JPRB,0.19403E-04_JPRB,0.19701E-04_JPRB,0.19227E-04_JPRB, & |
405 |
|
✗ |
& 0.17835E-04_JPRB,0.15439E-04_JPRB,0.11627E-04_JPRB,0.40426E-05_JPRB /) |
406 |
|
|
KA(:, 4, 5, 2) = (/ & |
407 |
|
|
& 0.12795E-04_JPRB,0.19672E-04_JPRB,0.21360E-04_JPRB,0.21677E-04_JPRB,0.21078E-04_JPRB, & |
408 |
|
✗ |
& 0.19535E-04_JPRB,0.16919E-04_JPRB,0.12746E-04_JPRB,0.43015E-05_JPRB /) |
409 |
|
|
KA(:, 5, 5, 2) = (/ & |
410 |
|
|
& 0.14029E-04_JPRB,0.21551E-04_JPRB,0.23410E-04_JPRB,0.23746E-04_JPRB,0.23106E-04_JPRB, & |
411 |
|
✗ |
& 0.21397E-04_JPRB,0.18500E-04_JPRB,0.13918E-04_JPRB,0.45663E-05_JPRB /) |
412 |
|
|
KA(:, 1, 6, 2) = (/ & |
413 |
|
|
& 0.75358E-05_JPRB,0.12284E-04_JPRB,0.13321E-04_JPRB,0.13580E-04_JPRB,0.13322E-04_JPRB, & |
414 |
|
✗ |
& 0.12459E-04_JPRB,0.10757E-04_JPRB,0.80012E-05_JPRB,0.28595E-05_JPRB /) |
415 |
|
|
KA(:, 2, 6, 2) = (/ & |
416 |
|
|
& 0.84801E-05_JPRB,0.13541E-04_JPRB,0.14600E-04_JPRB,0.14857E-04_JPRB,0.14519E-04_JPRB, & |
417 |
|
✗ |
& 0.13528E-04_JPRB,0.11747E-04_JPRB,0.87199E-05_JPRB,0.31250E-05_JPRB /) |
418 |
|
|
KA(:, 3, 6, 2) = (/ & |
419 |
|
|
& 0.94797E-05_JPRB,0.14898E-04_JPRB,0.16088E-04_JPRB,0.16329E-04_JPRB,0.15922E-04_JPRB, & |
420 |
|
✗ |
& 0.14786E-04_JPRB,0.12839E-04_JPRB,0.95406E-05_JPRB,0.33925E-05_JPRB /) |
421 |
|
|
KA(:, 4, 6, 2) = (/ & |
422 |
|
|
& 0.10510E-04_JPRB,0.16387E-04_JPRB,0.17709E-04_JPRB,0.17968E-04_JPRB,0.17465E-04_JPRB, & |
423 |
|
✗ |
& 0.16205E-04_JPRB,0.13999E-04_JPRB,0.10465E-04_JPRB,0.36786E-05_JPRB /) |
424 |
|
|
KA(:, 5, 6, 2) = (/ & |
425 |
|
|
& 0.11554E-04_JPRB,0.17973E-04_JPRB,0.19442E-04_JPRB,0.19736E-04_JPRB,0.19170E-04_JPRB, & |
426 |
|
✗ |
& 0.17751E-04_JPRB,0.15288E-04_JPRB,0.11441E-04_JPRB,0.39618E-05_JPRB /) |
427 |
|
|
KA(:, 1, 7, 2) = (/ & |
428 |
|
|
& 0.59994E-05_JPRB,0.10068E-04_JPRB,0.10903E-04_JPRB,0.11100E-04_JPRB,0.10910E-04_JPRB, & |
429 |
|
✗ |
& 0.10207E-04_JPRB,0.88301E-05_JPRB,0.65755E-05_JPRB,0.23537E-05_JPRB /) |
430 |
|
|
KA(:, 2, 7, 2) = (/ & |
431 |
|
|
& 0.67911E-05_JPRB,0.11098E-04_JPRB,0.11964E-04_JPRB,0.12161E-04_JPRB,0.11910E-04_JPRB, & |
432 |
|
✗ |
& 0.11113E-04_JPRB,0.96475E-05_JPRB,0.71733E-05_JPRB,0.26021E-05_JPRB /) |
433 |
|
|
KA(:, 3, 7, 2) = (/ & |
434 |
|
|
& 0.76012E-05_JPRB,0.12205E-04_JPRB,0.13167E-04_JPRB,0.13368E-04_JPRB,0.13058E-04_JPRB, & |
435 |
|
✗ |
& 0.12136E-04_JPRB,0.10571E-04_JPRB,0.78452E-05_JPRB,0.28416E-05_JPRB /) |
436 |
|
|
KA(:, 4, 7, 2) = (/ & |
437 |
|
|
& 0.84582E-05_JPRB,0.13412E-04_JPRB,0.14518E-04_JPRB,0.14721E-04_JPRB,0.14328E-04_JPRB, & |
438 |
|
✗ |
& 0.13323E-04_JPRB,0.11527E-04_JPRB,0.85995E-05_JPRB,0.30925E-05_JPRB /) |
439 |
|
|
KA(:, 5, 7, 2) = (/ & |
440 |
|
|
& 0.93346E-05_JPRB,0.14749E-04_JPRB,0.15973E-04_JPRB,0.16180E-04_JPRB,0.15730E-04_JPRB, & |
441 |
|
✗ |
& 0.14597E-04_JPRB,0.12601E-04_JPRB,0.93973E-05_JPRB,0.33285E-05_JPRB /) |
442 |
|
|
KA(:, 1, 8, 2) = (/ & |
443 |
|
|
& 0.47174E-05_JPRB,0.81367E-05_JPRB,0.88184E-05_JPRB,0.90007E-05_JPRB,0.88363E-05_JPRB, & |
444 |
|
✗ |
& 0.83059E-05_JPRB,0.72101E-05_JPRB,0.53496E-05_JPRB,0.18862E-05_JPRB /) |
445 |
|
|
KA(:, 2, 8, 2) = (/ & |
446 |
|
|
& 0.53543E-05_JPRB,0.89852E-05_JPRB,0.96904E-05_JPRB,0.98666E-05_JPRB,0.96509E-05_JPRB, & |
447 |
|
✗ |
& 0.90368E-05_JPRB,0.78700E-05_JPRB,0.58341E-05_JPRB,0.21147E-05_JPRB /) |
448 |
|
|
KA(:, 3, 8, 2) = (/ & |
449 |
|
|
& 0.60088E-05_JPRB,0.98855E-05_JPRB,0.10666E-04_JPRB,0.10849E-04_JPRB,0.10597E-04_JPRB, & |
450 |
|
✗ |
& 0.98826E-05_JPRB,0.86243E-05_JPRB,0.63949E-05_JPRB,0.23672E-05_JPRB /) |
451 |
|
|
KA(:, 4, 8, 2) = (/ & |
452 |
|
|
& 0.66958E-05_JPRB,0.10873E-04_JPRB,0.11751E-04_JPRB,0.11945E-04_JPRB,0.11636E-04_JPRB, & |
453 |
|
✗ |
& 0.10852E-04_JPRB,0.94101E-05_JPRB,0.70262E-05_JPRB,0.26329E-05_JPRB /) |
454 |
|
|
KA(:, 5, 8, 2) = (/ & |
455 |
|
|
& 0.74191E-05_JPRB,0.11960E-04_JPRB,0.12943E-04_JPRB,0.13152E-04_JPRB,0.12788E-04_JPRB, & |
456 |
|
✗ |
& 0.11889E-04_JPRB,0.10297E-04_JPRB,0.76977E-05_JPRB,0.29019E-05_JPRB /) |
457 |
|
|
KA(:, 1, 9, 2) = (/ & |
458 |
|
|
& 0.36886E-05_JPRB,0.65140E-05_JPRB,0.70684E-05_JPRB,0.72377E-05_JPRB,0.71080E-05_JPRB, & |
459 |
|
✗ |
& 0.67076E-05_JPRB,0.58353E-05_JPRB,0.43297E-05_JPRB,0.16419E-05_JPRB /) |
460 |
|
|
KA(:, 2, 9, 2) = (/ & |
461 |
|
|
& 0.41772E-05_JPRB,0.72104E-05_JPRB,0.77793E-05_JPRB,0.79335E-05_JPRB,0.77682E-05_JPRB, & |
462 |
|
✗ |
& 0.72903E-05_JPRB,0.63640E-05_JPRB,0.47210E-05_JPRB,0.18721E-05_JPRB /) |
463 |
|
|
KA(:, 3, 9, 2) = (/ & |
464 |
|
|
& 0.47123E-05_JPRB,0.79471E-05_JPRB,0.85662E-05_JPRB,0.87396E-05_JPRB,0.85319E-05_JPRB, & |
465 |
|
✗ |
& 0.79769E-05_JPRB,0.69694E-05_JPRB,0.51793E-05_JPRB,0.21015E-05_JPRB /) |
466 |
|
|
KA(:, 4, 9, 2) = (/ & |
467 |
|
|
& 0.52612E-05_JPRB,0.87319E-05_JPRB,0.94365E-05_JPRB,0.96191E-05_JPRB,0.93783E-05_JPRB, & |
468 |
|
✗ |
& 0.87581E-05_JPRB,0.76277E-05_JPRB,0.56974E-05_JPRB,0.23505E-05_JPRB /) |
469 |
|
|
KA(:, 5, 9, 2) = (/ & |
470 |
|
|
& 0.58401E-05_JPRB,0.96106E-05_JPRB,0.10404E-04_JPRB,0.10594E-04_JPRB,0.10308E-04_JPRB, & |
471 |
|
✗ |
& 0.96030E-05_JPRB,0.83402E-05_JPRB,0.62627E-05_JPRB,0.26170E-05_JPRB /) |
472 |
|
|
KA(:, 1,10, 2) = (/ & |
473 |
|
|
& 0.29023E-05_JPRB,0.52230E-05_JPRB,0.56669E-05_JPRB,0.58158E-05_JPRB,0.57137E-05_JPRB, & |
474 |
|
✗ |
& 0.54241E-05_JPRB,0.47416E-05_JPRB,0.35098E-05_JPRB,0.14223E-05_JPRB /) |
475 |
|
|
KA(:, 2,10, 2) = (/ & |
476 |
|
|
& 0.32752E-05_JPRB,0.57903E-05_JPRB,0.62548E-05_JPRB,0.63859E-05_JPRB,0.62528E-05_JPRB, & |
477 |
|
✗ |
& 0.58881E-05_JPRB,0.51542E-05_JPRB,0.38257E-05_JPRB,0.16559E-05_JPRB /) |
478 |
|
|
KA(:, 3,10, 2) = (/ & |
479 |
|
|
& 0.37047E-05_JPRB,0.63892E-05_JPRB,0.68928E-05_JPRB,0.70312E-05_JPRB,0.68734E-05_JPRB, & |
480 |
|
✗ |
& 0.64357E-05_JPRB,0.56361E-05_JPRB,0.42003E-05_JPRB,0.19248E-05_JPRB /) |
481 |
|
|
KA(:, 4,10, 2) = (/ & |
482 |
|
|
& 0.41471E-05_JPRB,0.70179E-05_JPRB,0.75920E-05_JPRB,0.77496E-05_JPRB,0.75508E-05_JPRB, & |
483 |
|
✗ |
& 0.70624E-05_JPRB,0.61778E-05_JPRB,0.46271E-05_JPRB,0.22074E-05_JPRB /) |
484 |
|
|
KA(:, 5,10, 2) = (/ & |
485 |
|
|
& 0.46061E-05_JPRB,0.77215E-05_JPRB,0.83699E-05_JPRB,0.85300E-05_JPRB,0.83121E-05_JPRB, & |
486 |
|
✗ |
& 0.77493E-05_JPRB,0.67551E-05_JPRB,0.50931E-05_JPRB,0.25043E-05_JPRB /) |
487 |
|
|
KA(:, 1,11, 2) = (/ & |
488 |
|
|
& 0.24060E-05_JPRB,0.43752E-05_JPRB,0.47372E-05_JPRB,0.48598E-05_JPRB,0.47689E-05_JPRB, & |
489 |
|
✗ |
& 0.45290E-05_JPRB,0.39653E-05_JPRB,0.29444E-05_JPRB,0.12255E-05_JPRB /) |
490 |
|
|
KA(:, 2,11, 2) = (/ & |
491 |
|
|
& 0.27123E-05_JPRB,0.48479E-05_JPRB,0.52339E-05_JPRB,0.53482E-05_JPRB,0.52342E-05_JPRB, & |
492 |
|
✗ |
& 0.49275E-05_JPRB,0.43239E-05_JPRB,0.32196E-05_JPRB,0.14282E-05_JPRB /) |
493 |
|
|
KA(:, 3,11, 2) = (/ & |
494 |
|
|
& 0.30632E-05_JPRB,0.53402E-05_JPRB,0.57660E-05_JPRB,0.58936E-05_JPRB,0.57515E-05_JPRB, & |
495 |
|
✗ |
& 0.53873E-05_JPRB,0.47344E-05_JPRB,0.35410E-05_JPRB,0.16636E-05_JPRB /) |
496 |
|
|
KA(:, 4,11, 2) = (/ & |
497 |
|
|
& 0.34245E-05_JPRB,0.58653E-05_JPRB,0.63554E-05_JPRB,0.64878E-05_JPRB,0.63244E-05_JPRB, & |
498 |
|
✗ |
& 0.59147E-05_JPRB,0.51855E-05_JPRB,0.39068E-05_JPRB,0.18858E-05_JPRB /) |
499 |
|
|
KA(:, 5,11, 2) = (/ & |
500 |
|
|
& 0.37984E-05_JPRB,0.64557E-05_JPRB,0.70032E-05_JPRB,0.71432E-05_JPRB,0.69591E-05_JPRB, & |
501 |
|
✗ |
& 0.64936E-05_JPRB,0.56748E-05_JPRB,0.42889E-05_JPRB,0.21529E-05_JPRB /) |
502 |
|
|
KA(:, 1,12, 2) = (/ & |
503 |
|
|
& 0.19822E-05_JPRB,0.36438E-05_JPRB,0.39439E-05_JPRB,0.40428E-05_JPRB,0.39656E-05_JPRB, & |
504 |
|
✗ |
& 0.37627E-05_JPRB,0.33048E-05_JPRB,0.24620E-05_JPRB,0.10349E-05_JPRB /) |
505 |
|
|
KA(:, 2,12, 2) = (/ & |
506 |
|
|
& 0.22347E-05_JPRB,0.40329E-05_JPRB,0.43559E-05_JPRB,0.44535E-05_JPRB,0.43556E-05_JPRB, & |
507 |
|
✗ |
& 0.41018E-05_JPRB,0.36156E-05_JPRB,0.26976E-05_JPRB,0.12078E-05_JPRB /) |
508 |
|
|
KA(:, 3,12, 2) = (/ & |
509 |
|
|
& 0.25196E-05_JPRB,0.44405E-05_JPRB,0.47965E-05_JPRB,0.49025E-05_JPRB,0.47850E-05_JPRB, & |
510 |
|
✗ |
& 0.44854E-05_JPRB,0.39542E-05_JPRB,0.29734E-05_JPRB,0.13908E-05_JPRB /) |
511 |
|
|
KA(:, 4,12, 2) = (/ & |
512 |
|
|
& 0.28142E-05_JPRB,0.48792E-05_JPRB,0.52882E-05_JPRB,0.53962E-05_JPRB,0.52646E-05_JPRB, & |
513 |
|
✗ |
& 0.49202E-05_JPRB,0.43229E-05_JPRB,0.32817E-05_JPRB,0.15895E-05_JPRB /) |
514 |
|
|
KA(:, 5,12, 2) = (/ & |
515 |
|
|
& 0.31182E-05_JPRB,0.53684E-05_JPRB,0.58256E-05_JPRB,0.59413E-05_JPRB,0.57855E-05_JPRB, & |
516 |
|
✗ |
& 0.54043E-05_JPRB,0.47298E-05_JPRB,0.35925E-05_JPRB,0.18050E-05_JPRB /) |
517 |
|
|
KA(:, 1,13, 2) = (/ & |
518 |
|
|
& 0.16206E-05_JPRB,0.30122E-05_JPRB,0.32612E-05_JPRB,0.33451E-05_JPRB,0.32794E-05_JPRB, & |
519 |
|
✗ |
& 0.31144E-05_JPRB,0.27430E-05_JPRB,0.20488E-05_JPRB,0.85267E-06_JPRB /) |
520 |
|
|
KA(:, 2,13, 2) = (/ & |
521 |
|
|
& 0.18267E-05_JPRB,0.33331E-05_JPRB,0.36002E-05_JPRB,0.36816E-05_JPRB,0.36054E-05_JPRB, & |
522 |
|
✗ |
& 0.33950E-05_JPRB,0.30021E-05_JPRB,0.22487E-05_JPRB,0.99490E-06_JPRB /) |
523 |
|
|
KA(:, 3,13, 2) = (/ & |
524 |
|
|
& 0.20587E-05_JPRB,0.36681E-05_JPRB,0.39651E-05_JPRB,0.40531E-05_JPRB,0.39564E-05_JPRB, & |
525 |
|
✗ |
& 0.37127E-05_JPRB,0.32815E-05_JPRB,0.24795E-05_JPRB,0.11422E-05_JPRB /) |
526 |
|
|
KA(:, 4,13, 2) = (/ & |
527 |
|
|
& 0.22973E-05_JPRB,0.40325E-05_JPRB,0.43728E-05_JPRB,0.44600E-05_JPRB,0.43540E-05_JPRB, & |
528 |
|
✗ |
& 0.40718E-05_JPRB,0.35848E-05_JPRB,0.27366E-05_JPRB,0.13051E-05_JPRB /) |
529 |
|
|
KA(:, 5,13, 2) = (/ & |
530 |
|
|
& 0.25452E-05_JPRB,0.44379E-05_JPRB,0.48164E-05_JPRB,0.49100E-05_JPRB,0.47833E-05_JPRB, & |
531 |
|
✗ |
& 0.44674E-05_JPRB,0.39194E-05_JPRB,0.29904E-05_JPRB,0.14817E-05_JPRB /) |
532 |
|
|
KA(:, 1, 1, 3) = (/ & |
533 |
|
|
& 0.66641E-04_JPRB,0.92990E-04_JPRB,0.96277E-04_JPRB,0.95182E-04_JPRB,0.91424E-04_JPRB, & |
534 |
|
✗ |
& 0.85445E-04_JPRB,0.77014E-04_JPRB,0.62091E-04_JPRB,0.18284E-04_JPRB /) |
535 |
|
|
KA(:, 2, 1, 3) = (/ & |
536 |
|
|
& 0.75350E-04_JPRB,0.10391E-03_JPRB,0.10751E-03_JPRB,0.10606E-03_JPRB,0.10174E-03_JPRB, & |
537 |
|
✗ |
& 0.94756E-04_JPRB,0.84487E-04_JPRB,0.67267E-04_JPRB,0.20037E-04_JPRB /) |
538 |
|
|
KA(:, 3, 1, 3) = (/ & |
539 |
|
|
& 0.85286E-04_JPRB,0.11563E-03_JPRB,0.11966E-03_JPRB,0.11777E-03_JPRB,0.11259E-03_JPRB, & |
540 |
|
✗ |
& 0.10435E-03_JPRB,0.92076E-04_JPRB,0.72492E-04_JPRB,0.22229E-04_JPRB /) |
541 |
|
|
KA(:, 4, 1, 3) = (/ & |
542 |
|
|
& 0.96137E-04_JPRB,0.12836E-03_JPRB,0.13265E-03_JPRB,0.13031E-03_JPRB,0.12404E-03_JPRB, & |
543 |
|
✗ |
& 0.11409E-03_JPRB,0.99756E-04_JPRB,0.77897E-04_JPRB,0.24656E-04_JPRB /) |
544 |
|
|
KA(:, 5, 1, 3) = (/ & |
545 |
|
|
& 0.10739E-03_JPRB,0.14209E-03_JPRB,0.14652E-03_JPRB,0.14363E-03_JPRB,0.13579E-03_JPRB, & |
546 |
|
✗ |
& 0.12408E-03_JPRB,0.10749E-03_JPRB,0.83273E-04_JPRB,0.26998E-04_JPRB /) |
547 |
|
|
KA(:, 1, 2, 3) = (/ & |
548 |
|
|
& 0.57005E-04_JPRB,0.80688E-04_JPRB,0.84199E-04_JPRB,0.83067E-04_JPRB,0.79480E-04_JPRB, & |
549 |
|
✗ |
& 0.74096E-04_JPRB,0.66328E-04_JPRB,0.53532E-04_JPRB,0.14534E-04_JPRB /) |
550 |
|
|
KA(:, 2, 2, 3) = (/ & |
551 |
|
|
& 0.64518E-04_JPRB,0.90274E-04_JPRB,0.94149E-04_JPRB,0.92496E-04_JPRB,0.88374E-04_JPRB, & |
552 |
|
✗ |
& 0.82048E-04_JPRB,0.72698E-04_JPRB,0.57871E-04_JPRB,0.16202E-04_JPRB /) |
553 |
|
|
KA(:, 3, 2, 3) = (/ & |
554 |
|
|
& 0.73014E-04_JPRB,0.10065E-03_JPRB,0.10466E-03_JPRB,0.10271E-03_JPRB,0.97880E-04_JPRB, & |
555 |
|
✗ |
& 0.90372E-04_JPRB,0.79361E-04_JPRB,0.62357E-04_JPRB,0.18056E-04_JPRB /) |
556 |
|
|
KA(:, 4, 2, 3) = (/ & |
557 |
|
|
& 0.82297E-04_JPRB,0.11195E-03_JPRB,0.11586E-03_JPRB,0.11365E-03_JPRB,0.10799E-03_JPRB, & |
558 |
|
✗ |
& 0.98829E-04_JPRB,0.85923E-04_JPRB,0.66891E-04_JPRB,0.19890E-04_JPRB /) |
559 |
|
|
KA(:, 5, 2, 3) = (/ & |
560 |
|
|
& 0.92175E-04_JPRB,0.12399E-03_JPRB,0.12794E-03_JPRB,0.12531E-03_JPRB,0.11825E-03_JPRB, & |
561 |
|
✗ |
& 0.10764E-03_JPRB,0.92744E-04_JPRB,0.71608E-04_JPRB,0.21968E-04_JPRB /) |
562 |
|
|
KA(:, 1, 3, 3) = (/ & |
563 |
|
|
& 0.47324E-04_JPRB,0.68167E-04_JPRB,0.71069E-04_JPRB,0.70293E-04_JPRB,0.67313E-04_JPRB, & |
564 |
|
✗ |
& 0.62456E-04_JPRB,0.55646E-04_JPRB,0.44933E-04_JPRB,0.11374E-04_JPRB /) |
565 |
|
|
KA(:, 2, 3, 3) = (/ & |
566 |
|
|
& 0.53658E-04_JPRB,0.76342E-04_JPRB,0.79560E-04_JPRB,0.78547E-04_JPRB,0.74997E-04_JPRB, & |
567 |
|
✗ |
& 0.69264E-04_JPRB,0.61119E-04_JPRB,0.48587E-04_JPRB,0.12639E-04_JPRB /) |
568 |
|
|
KA(:, 3, 3, 3) = (/ & |
569 |
|
|
& 0.60905E-04_JPRB,0.85247E-04_JPRB,0.88738E-04_JPRB,0.87387E-04_JPRB,0.83098E-04_JPRB, & |
570 |
|
✗ |
& 0.76432E-04_JPRB,0.66733E-04_JPRB,0.52275E-04_JPRB,0.13871E-04_JPRB /) |
571 |
|
|
KA(:, 4, 3, 3) = (/ & |
572 |
|
|
& 0.68831E-04_JPRB,0.94960E-04_JPRB,0.98638E-04_JPRB,0.96778E-04_JPRB,0.91816E-04_JPRB, & |
573 |
|
✗ |
& 0.83747E-04_JPRB,0.72403E-04_JPRB,0.56165E-04_JPRB,0.15423E-04_JPRB /) |
574 |
|
|
KA(:, 5, 3, 3) = (/ & |
575 |
|
|
& 0.77259E-04_JPRB,0.10549E-03_JPRB,0.10909E-03_JPRB,0.10672E-03_JPRB,0.10065E-03_JPRB, & |
576 |
|
✗ |
& 0.91320E-04_JPRB,0.78406E-04_JPRB,0.60157E-04_JPRB,0.17141E-04_JPRB /) |
577 |
|
|
KA(:, 1, 4, 3) = (/ & |
578 |
|
|
& 0.40102E-04_JPRB,0.56990E-04_JPRB,0.59444E-04_JPRB,0.58732E-04_JPRB,0.56091E-04_JPRB, & |
579 |
|
✗ |
& 0.51902E-04_JPRB,0.46247E-04_JPRB,0.37442E-04_JPRB,0.94022E-05_JPRB /) |
580 |
|
|
KA(:, 2, 4, 3) = (/ & |
581 |
|
|
& 0.44930E-04_JPRB,0.63893E-04_JPRB,0.66629E-04_JPRB,0.65694E-04_JPRB,0.62627E-04_JPRB, & |
582 |
|
✗ |
& 0.57822E-04_JPRB,0.50819E-04_JPRB,0.40421E-04_JPRB,0.10475E-04_JPRB /) |
583 |
|
|
KA(:, 3, 4, 3) = (/ & |
584 |
|
|
& 0.50532E-04_JPRB,0.71424E-04_JPRB,0.74352E-04_JPRB,0.73221E-04_JPRB,0.69651E-04_JPRB, & |
585 |
|
✗ |
& 0.64034E-04_JPRB,0.55430E-04_JPRB,0.43529E-04_JPRB,0.11728E-04_JPRB /) |
586 |
|
|
KA(:, 4, 4, 3) = (/ & |
587 |
|
|
& 0.56953E-04_JPRB,0.79740E-04_JPRB,0.82769E-04_JPRB,0.81314E-04_JPRB,0.77278E-04_JPRB, & |
588 |
|
✗ |
& 0.70324E-04_JPRB,0.60396E-04_JPRB,0.46747E-04_JPRB,0.13063E-04_JPRB /) |
589 |
|
|
KA(:, 5, 4, 3) = (/ & |
590 |
|
|
& 0.64019E-04_JPRB,0.88647E-04_JPRB,0.91768E-04_JPRB,0.89926E-04_JPRB,0.84958E-04_JPRB, & |
591 |
|
✗ |
& 0.76740E-04_JPRB,0.65561E-04_JPRB,0.50066E-04_JPRB,0.14435E-04_JPRB /) |
592 |
|
|
KA(:, 1, 5, 3) = (/ & |
593 |
|
|
& 0.33806E-04_JPRB,0.47826E-04_JPRB,0.49443E-04_JPRB,0.48775E-04_JPRB,0.46477E-04_JPRB, & |
594 |
|
✗ |
& 0.42791E-04_JPRB,0.38155E-04_JPRB,0.31175E-04_JPRB,0.77886E-05_JPRB /) |
595 |
|
|
KA(:, 2, 5, 3) = (/ & |
596 |
|
|
& 0.37973E-04_JPRB,0.53392E-04_JPRB,0.55526E-04_JPRB,0.54719E-04_JPRB,0.52062E-04_JPRB, & |
597 |
|
✗ |
& 0.47763E-04_JPRB,0.42021E-04_JPRB,0.33510E-04_JPRB,0.87404E-05_JPRB /) |
598 |
|
|
KA(:, 3, 5, 3) = (/ & |
599 |
|
|
& 0.42758E-04_JPRB,0.59666E-04_JPRB,0.62058E-04_JPRB,0.61127E-04_JPRB,0.58012E-04_JPRB, & |
600 |
|
✗ |
& 0.53071E-04_JPRB,0.45971E-04_JPRB,0.36114E-04_JPRB,0.98499E-05_JPRB /) |
601 |
|
|
KA(:, 4, 5, 3) = (/ & |
602 |
|
|
& 0.48006E-04_JPRB,0.66679E-04_JPRB,0.69230E-04_JPRB,0.67989E-04_JPRB,0.64400E-04_JPRB, & |
603 |
|
✗ |
& 0.58521E-04_JPRB,0.50196E-04_JPRB,0.38710E-04_JPRB,0.11022E-04_JPRB /) |
604 |
|
|
KA(:, 5, 5, 3) = (/ & |
605 |
|
|
& 0.53657E-04_JPRB,0.74244E-04_JPRB,0.76813E-04_JPRB,0.75303E-04_JPRB,0.71011E-04_JPRB, & |
606 |
|
✗ |
& 0.64092E-04_JPRB,0.54599E-04_JPRB,0.41481E-04_JPRB,0.12225E-04_JPRB /) |
607 |
|
|
KA(:, 1, 6, 3) = (/ & |
608 |
|
|
& 0.27953E-04_JPRB,0.40223E-04_JPRB,0.41331E-04_JPRB,0.40332E-04_JPRB,0.38114E-04_JPRB, & |
609 |
|
✗ |
& 0.34967E-04_JPRB,0.31158E-04_JPRB,0.25701E-04_JPRB,0.67604E-05_JPRB /) |
610 |
|
|
KA(:, 2, 6, 3) = (/ & |
611 |
|
|
& 0.31595E-04_JPRB,0.44975E-04_JPRB,0.46374E-04_JPRB,0.45229E-04_JPRB,0.42775E-04_JPRB, & |
612 |
|
✗ |
& 0.39162E-04_JPRB,0.34373E-04_JPRB,0.27616E-04_JPRB,0.75558E-05_JPRB /) |
613 |
|
|
KA(:, 3, 6, 3) = (/ & |
614 |
|
|
& 0.35649E-04_JPRB,0.50263E-04_JPRB,0.51713E-04_JPRB,0.50516E-04_JPRB,0.47855E-04_JPRB, & |
615 |
|
✗ |
& 0.43605E-04_JPRB,0.37705E-04_JPRB,0.29800E-04_JPRB,0.84063E-05_JPRB /) |
616 |
|
|
KA(:, 4, 6, 3) = (/ & |
617 |
|
|
& 0.40086E-04_JPRB,0.55905E-04_JPRB,0.57584E-04_JPRB,0.56348E-04_JPRB,0.53200E-04_JPRB, & |
618 |
|
✗ |
& 0.48283E-04_JPRB,0.41331E-04_JPRB,0.31936E-04_JPRB,0.92686E-05_JPRB /) |
619 |
|
|
KA(:, 5, 6, 3) = (/ & |
620 |
|
|
& 0.44931E-04_JPRB,0.62025E-04_JPRB,0.63942E-04_JPRB,0.62498E-04_JPRB,0.58788E-04_JPRB, & |
621 |
|
✗ |
& 0.53032E-04_JPRB,0.45085E-04_JPRB,0.34229E-04_JPRB,0.10175E-04_JPRB /) |
622 |
|
|
KA(:, 1, 7, 3) = (/ & |
623 |
|
|
& 0.22829E-04_JPRB,0.33278E-04_JPRB,0.34196E-04_JPRB,0.33381E-04_JPRB,0.31444E-04_JPRB, & |
624 |
|
✗ |
& 0.28615E-04_JPRB,0.25331E-04_JPRB,0.21096E-04_JPRB,0.60732E-05_JPRB /) |
625 |
|
|
KA(:, 2, 7, 3) = (/ & |
626 |
|
|
& 0.25917E-04_JPRB,0.37424E-04_JPRB,0.38527E-04_JPRB,0.37580E-04_JPRB,0.35302E-04_JPRB, & |
627 |
|
✗ |
& 0.32020E-04_JPRB,0.27957E-04_JPRB,0.22660E-04_JPRB,0.68180E-05_JPRB /) |
628 |
|
|
KA(:, 3, 7, 3) = (/ & |
629 |
|
|
& 0.29386E-04_JPRB,0.41933E-04_JPRB,0.43213E-04_JPRB,0.42039E-04_JPRB,0.39445E-04_JPRB, & |
630 |
|
✗ |
& 0.35659E-04_JPRB,0.30780E-04_JPRB,0.24432E-04_JPRB,0.76296E-05_JPRB /) |
631 |
|
|
KA(:, 4, 7, 3) = (/ & |
632 |
|
|
& 0.33186E-04_JPRB,0.46811E-04_JPRB,0.48218E-04_JPRB,0.46849E-04_JPRB,0.43848E-04_JPRB, & |
633 |
|
✗ |
& 0.39567E-04_JPRB,0.33858E-04_JPRB,0.26257E-04_JPRB,0.82634E-05_JPRB /) |
634 |
|
|
KA(:, 5, 7, 3) = (/ & |
635 |
|
|
& 0.37227E-04_JPRB,0.52060E-04_JPRB,0.53592E-04_JPRB,0.51948E-04_JPRB,0.48471E-04_JPRB, & |
636 |
|
✗ |
& 0.43595E-04_JPRB,0.37022E-04_JPRB,0.28130E-04_JPRB,0.90053E-05_JPRB /) |
637 |
|
|
KA(:, 1, 8, 3) = (/ & |
638 |
|
|
& 0.18333E-04_JPRB,0.27259E-04_JPRB,0.27929E-04_JPRB,0.27230E-04_JPRB,0.25672E-04_JPRB, & |
639 |
|
✗ |
& 0.23374E-04_JPRB,0.20571E-04_JPRB,0.17333E-04_JPRB,0.54157E-05_JPRB /) |
640 |
|
|
KA(:, 2, 8, 3) = (/ & |
641 |
|
|
& 0.20948E-04_JPRB,0.30774E-04_JPRB,0.31604E-04_JPRB,0.30823E-04_JPRB,0.29002E-04_JPRB, & |
642 |
|
✗ |
& 0.26292E-04_JPRB,0.22734E-04_JPRB,0.18593E-04_JPRB,0.61669E-05_JPRB /) |
643 |
|
|
KA(:, 3, 8, 3) = (/ & |
644 |
|
|
& 0.23883E-04_JPRB,0.34642E-04_JPRB,0.35656E-04_JPRB,0.34670E-04_JPRB,0.32507E-04_JPRB, & |
645 |
|
✗ |
& 0.29303E-04_JPRB,0.25111E-04_JPRB,0.19985E-04_JPRB,0.69048E-05_JPRB /) |
646 |
|
|
KA(:, 4, 8, 3) = (/ & |
647 |
|
|
& 0.27098E-04_JPRB,0.38802E-04_JPRB,0.40013E-04_JPRB,0.38777E-04_JPRB,0.36214E-04_JPRB, & |
648 |
|
✗ |
& 0.32542E-04_JPRB,0.27674E-04_JPRB,0.21526E-04_JPRB,0.76591E-05_JPRB /) |
649 |
|
|
|
650 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART2',1,ZHOOK_HANDLE) |
651 |
|
✗ |
END SUBROUTINE PART2 |
652 |
|
|
|
653 |
|
|
|
654 |
|
✗ |
SUBROUTINE PART3 |
655 |
|
|
|
656 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
657 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART3',0,ZHOOK_HANDLE) |
658 |
|
|
|
659 |
|
|
|
660 |
|
|
KA(:, 5, 8, 3) = (/ & |
661 |
|
|
& 0.30462E-04_JPRB,0.43307E-04_JPRB,0.44596E-04_JPRB,0.43127E-04_JPRB,0.40142E-04_JPRB, & |
662 |
|
✗ |
& 0.35890E-04_JPRB,0.30276E-04_JPRB,0.23065E-04_JPRB,0.84480E-05_JPRB /) |
663 |
|
|
KA(:, 1, 9, 3) = (/ & |
664 |
|
|
& 0.14510E-04_JPRB,0.22049E-04_JPRB,0.22596E-04_JPRB,0.22021E-04_JPRB,0.20750E-04_JPRB, & |
665 |
|
✗ |
& 0.18895E-04_JPRB,0.16685E-04_JPRB,0.14158E-04_JPRB,0.50284E-05_JPRB /) |
666 |
|
|
KA(:, 2, 9, 3) = (/ & |
667 |
|
|
& 0.16710E-04_JPRB,0.25012E-04_JPRB,0.25686E-04_JPRB,0.25017E-04_JPRB,0.23537E-04_JPRB, & |
668 |
|
✗ |
& 0.21350E-04_JPRB,0.18517E-04_JPRB,0.15170E-04_JPRB,0.59016E-05_JPRB /) |
669 |
|
|
KA(:, 3, 9, 3) = (/ & |
670 |
|
|
& 0.19138E-04_JPRB,0.28271E-04_JPRB,0.29104E-04_JPRB,0.28272E-04_JPRB,0.26493E-04_JPRB, & |
671 |
|
✗ |
& 0.23916E-04_JPRB,0.20530E-04_JPRB,0.16297E-04_JPRB,0.68413E-05_JPRB /) |
672 |
|
|
KA(:, 4, 9, 3) = (/ & |
673 |
|
|
& 0.21798E-04_JPRB,0.31859E-04_JPRB,0.32802E-04_JPRB,0.31762E-04_JPRB,0.29603E-04_JPRB, & |
674 |
|
✗ |
& 0.26643E-04_JPRB,0.22650E-04_JPRB,0.17559E-04_JPRB,0.78093E-05_JPRB /) |
675 |
|
|
KA(:, 5, 9, 3) = (/ & |
676 |
|
|
& 0.24599E-04_JPRB,0.35618E-04_JPRB,0.36736E-04_JPRB,0.35456E-04_JPRB,0.32981E-04_JPRB, & |
677 |
|
✗ |
& 0.29459E-04_JPRB,0.24877E-04_JPRB,0.18821E-04_JPRB,0.88149E-05_JPRB /) |
678 |
|
|
KA(:, 1,10, 3) = (/ & |
679 |
|
|
& 0.11455E-04_JPRB,0.17796E-04_JPRB,0.18282E-04_JPRB,0.17833E-04_JPRB,0.16814E-04_JPRB, & |
680 |
|
✗ |
& 0.15305E-04_JPRB,0.13526E-04_JPRB,0.11628E-04_JPRB,0.47637E-05_JPRB /) |
681 |
|
|
KA(:, 2,10, 3) = (/ & |
682 |
|
|
& 0.13295E-04_JPRB,0.20290E-04_JPRB,0.20862E-04_JPRB,0.20316E-04_JPRB,0.19125E-04_JPRB, & |
683 |
|
✗ |
& 0.17348E-04_JPRB,0.15042E-04_JPRB,0.12455E-04_JPRB,0.56495E-05_JPRB /) |
684 |
|
|
KA(:, 3,10, 3) = (/ & |
685 |
|
|
& 0.15297E-04_JPRB,0.22994E-04_JPRB,0.23740E-04_JPRB,0.23076E-04_JPRB,0.21626E-04_JPRB, & |
686 |
|
✗ |
& 0.19529E-04_JPRB,0.16766E-04_JPRB,0.13399E-04_JPRB,0.65988E-05_JPRB /) |
687 |
|
|
KA(:, 4,10, 3) = (/ & |
688 |
|
|
& 0.17488E-04_JPRB,0.25986E-04_JPRB,0.26882E-04_JPRB,0.26021E-04_JPRB,0.24246E-04_JPRB, & |
689 |
|
✗ |
& 0.21820E-04_JPRB,0.18554E-04_JPRB,0.14427E-04_JPRB,0.74644E-05_JPRB /) |
690 |
|
|
KA(:, 5,10, 3) = (/ & |
691 |
|
|
& 0.19800E-04_JPRB,0.29160E-04_JPRB,0.30208E-04_JPRB,0.29161E-04_JPRB,0.27086E-04_JPRB, & |
692 |
|
✗ |
& 0.24189E-04_JPRB,0.20462E-04_JPRB,0.15474E-04_JPRB,0.84395E-05_JPRB /) |
693 |
|
|
KA(:, 1,11, 3) = (/ & |
694 |
|
|
& 0.96366E-05_JPRB,0.15168E-04_JPRB,0.15611E-04_JPRB,0.15230E-04_JPRB,0.14381E-04_JPRB, & |
695 |
|
✗ |
& 0.13058E-04_JPRB,0.11457E-04_JPRB,0.98195E-05_JPRB,0.43210E-05_JPRB /) |
696 |
|
|
KA(:, 2,11, 3) = (/ & |
697 |
|
|
& 0.11221E-04_JPRB,0.17304E-04_JPRB,0.17859E-04_JPRB,0.17390E-04_JPRB,0.16383E-04_JPRB, & |
698 |
|
✗ |
& 0.14837E-04_JPRB,0.12820E-04_JPRB,0.10541E-04_JPRB,0.50915E-05_JPRB /) |
699 |
|
|
KA(:, 3,11, 3) = (/ & |
700 |
|
|
& 0.12922E-04_JPRB,0.19611E-04_JPRB,0.20376E-04_JPRB,0.19769E-04_JPRB,0.18510E-04_JPRB, & |
701 |
|
✗ |
& 0.16733E-04_JPRB,0.14297E-04_JPRB,0.11375E-04_JPRB,0.59349E-05_JPRB /) |
702 |
|
|
KA(:, 4,11, 3) = (/ & |
703 |
|
|
& 0.14759E-04_JPRB,0.22226E-04_JPRB,0.23087E-04_JPRB,0.22319E-04_JPRB,0.20789E-04_JPRB, & |
704 |
|
✗ |
& 0.18677E-04_JPRB,0.15854E-04_JPRB,0.12233E-04_JPRB,0.68646E-05_JPRB /) |
705 |
|
|
KA(:, 5,11, 3) = (/ & |
706 |
|
|
& 0.16687E-04_JPRB,0.24901E-04_JPRB,0.25894E-04_JPRB,0.25020E-04_JPRB,0.23234E-04_JPRB, & |
707 |
|
✗ |
& 0.20746E-04_JPRB,0.17450E-04_JPRB,0.13143E-04_JPRB,0.77945E-05_JPRB /) |
708 |
|
|
KA(:, 1,12, 3) = (/ & |
709 |
|
|
& 0.80728E-05_JPRB,0.12833E-04_JPRB,0.13241E-04_JPRB,0.12930E-04_JPRB,0.12209E-04_JPRB, & |
710 |
|
✗ |
& 0.11077E-04_JPRB,0.96874E-05_JPRB,0.82518E-05_JPRB,0.36987E-05_JPRB /) |
711 |
|
|
KA(:, 2,12, 3) = (/ & |
712 |
|
|
& 0.94096E-05_JPRB,0.14647E-04_JPRB,0.15179E-04_JPRB,0.14789E-04_JPRB,0.13929E-04_JPRB, & |
713 |
|
✗ |
& 0.12614E-04_JPRB,0.10863E-04_JPRB,0.88839E-05_JPRB,0.43642E-05_JPRB /) |
714 |
|
|
KA(:, 3,12, 3) = (/ & |
715 |
|
|
& 0.10827E-04_JPRB,0.16625E-04_JPRB,0.17336E-04_JPRB,0.16825E-04_JPRB,0.15757E-04_JPRB, & |
716 |
|
✗ |
& 0.14215E-04_JPRB,0.12135E-04_JPRB,0.95702E-05_JPRB,0.51276E-05_JPRB /) |
717 |
|
|
KA(:, 4,12, 3) = (/ & |
718 |
|
|
& 0.12346E-04_JPRB,0.18823E-04_JPRB,0.19626E-04_JPRB,0.19011E-04_JPRB,0.17715E-04_JPRB, & |
719 |
|
✗ |
& 0.15891E-04_JPRB,0.13472E-04_JPRB,0.10297E-04_JPRB,0.58818E-05_JPRB /) |
720 |
|
|
KA(:, 5,12, 3) = (/ & |
721 |
|
|
& 0.13954E-04_JPRB,0.21071E-04_JPRB,0.21985E-04_JPRB,0.21278E-04_JPRB,0.19773E-04_JPRB, & |
722 |
|
✗ |
& 0.17642E-04_JPRB,0.14813E-04_JPRB,0.11109E-04_JPRB,0.66485E-05_JPRB /) |
723 |
|
|
KA(:, 1,13, 3) = (/ & |
724 |
|
|
& 0.67198E-05_JPRB,0.10777E-04_JPRB,0.11153E-04_JPRB,0.10900E-04_JPRB,0.10301E-04_JPRB, & |
725 |
|
✗ |
& 0.93345E-05_JPRB,0.81433E-05_JPRB,0.69156E-05_JPRB,0.30498E-05_JPRB /) |
726 |
|
|
KA(:, 2,13, 3) = (/ & |
727 |
|
|
& 0.78283E-05_JPRB,0.12283E-04_JPRB,0.12805E-04_JPRB,0.12492E-04_JPRB,0.11757E-04_JPRB, & |
728 |
|
✗ |
& 0.10649E-04_JPRB,0.91519E-05_JPRB,0.74495E-05_JPRB,0.36028E-05_JPRB /) |
729 |
|
|
KA(:, 3,13, 3) = (/ & |
730 |
|
|
& 0.89966E-05_JPRB,0.13983E-04_JPRB,0.14629E-04_JPRB,0.14218E-04_JPRB,0.13315E-04_JPRB, & |
731 |
|
✗ |
& 0.11990E-04_JPRB,0.10230E-04_JPRB,0.80237E-05_JPRB,0.42382E-05_JPRB /) |
732 |
|
|
KA(:, 4,13, 3) = (/ & |
733 |
|
|
& 0.10250E-04_JPRB,0.15794E-04_JPRB,0.16536E-04_JPRB,0.16055E-04_JPRB,0.14979E-04_JPRB, & |
734 |
|
✗ |
& 0.13421E-04_JPRB,0.11355E-04_JPRB,0.86371E-05_JPRB,0.48511E-05_JPRB /) |
735 |
|
|
KA(:, 5,13, 3) = (/ & |
736 |
|
|
& 0.11575E-04_JPRB,0.17689E-04_JPRB,0.18502E-04_JPRB,0.17950E-04_JPRB,0.16689E-04_JPRB, & |
737 |
|
✗ |
& 0.14883E-04_JPRB,0.12476E-04_JPRB,0.93537E-05_JPRB,0.54799E-05_JPRB /) |
738 |
|
|
KA(:, 1, 1, 4) = (/ & |
739 |
|
|
& 0.20313E-03_JPRB,0.26410E-03_JPRB,0.27054E-03_JPRB,0.25842E-03_JPRB,0.23794E-03_JPRB, & |
740 |
|
✗ |
& 0.21033E-03_JPRB,0.17730E-03_JPRB,0.13831E-03_JPRB,0.52995E-04_JPRB /) |
741 |
|
|
KA(:, 2, 1, 4) = (/ & |
742 |
|
|
& 0.22722E-03_JPRB,0.29058E-03_JPRB,0.29572E-03_JPRB,0.28200E-03_JPRB,0.25898E-03_JPRB, & |
743 |
|
✗ |
& 0.22814E-03_JPRB,0.19209E-03_JPRB,0.14957E-03_JPRB,0.59096E-04_JPRB /) |
744 |
|
|
KA(:, 3, 1, 4) = (/ & |
745 |
|
|
& 0.25054E-03_JPRB,0.31580E-03_JPRB,0.31991E-03_JPRB,0.30486E-03_JPRB,0.27955E-03_JPRB, & |
746 |
|
✗ |
& 0.24634E-03_JPRB,0.20787E-03_JPRB,0.16179E-03_JPRB,0.65118E-04_JPRB /) |
747 |
|
|
KA(:, 4, 1, 4) = (/ & |
748 |
|
|
& 0.27197E-03_JPRB,0.33971E-03_JPRB,0.34310E-03_JPRB,0.32677E-03_JPRB,0.30002E-03_JPRB, & |
749 |
|
✗ |
& 0.26574E-03_JPRB,0.22502E-03_JPRB,0.17520E-03_JPRB,0.71711E-04_JPRB /) |
750 |
|
|
KA(:, 5, 1, 4) = (/ & |
751 |
|
|
& 0.29178E-03_JPRB,0.36213E-03_JPRB,0.36503E-03_JPRB,0.34815E-03_JPRB,0.32114E-03_JPRB, & |
752 |
|
✗ |
& 0.28599E-03_JPRB,0.24328E-03_JPRB,0.18958E-03_JPRB,0.78523E-04_JPRB /) |
753 |
|
|
KA(:, 1, 2, 4) = (/ & |
754 |
|
|
& 0.17547E-03_JPRB,0.23012E-03_JPRB,0.23639E-03_JPRB,0.22606E-03_JPRB,0.20799E-03_JPRB, & |
755 |
|
✗ |
& 0.18326E-03_JPRB,0.15385E-03_JPRB,0.11888E-03_JPRB,0.43633E-04_JPRB /) |
756 |
|
|
KA(:, 2, 2, 4) = (/ & |
757 |
|
|
& 0.19601E-03_JPRB,0.25269E-03_JPRB,0.25751E-03_JPRB,0.24629E-03_JPRB,0.22623E-03_JPRB, & |
758 |
|
✗ |
& 0.19926E-03_JPRB,0.16712E-03_JPRB,0.12877E-03_JPRB,0.48382E-04_JPRB /) |
759 |
|
|
KA(:, 3, 2, 4) = (/ & |
760 |
|
|
& 0.21598E-03_JPRB,0.27423E-03_JPRB,0.27812E-03_JPRB,0.26576E-03_JPRB,0.24403E-03_JPRB, & |
761 |
|
✗ |
& 0.21552E-03_JPRB,0.18141E-03_JPRB,0.13982E-03_JPRB,0.53560E-04_JPRB /) |
762 |
|
|
KA(:, 4, 2, 4) = (/ & |
763 |
|
|
& 0.23449E-03_JPRB,0.29482E-03_JPRB,0.29820E-03_JPRB,0.28454E-03_JPRB,0.26171E-03_JPRB, & |
764 |
|
✗ |
& 0.23254E-03_JPRB,0.19681E-03_JPRB,0.15192E-03_JPRB,0.59054E-04_JPRB /) |
765 |
|
|
KA(:, 5, 2, 4) = (/ & |
766 |
|
|
& 0.25198E-03_JPRB,0.31408E-03_JPRB,0.31723E-03_JPRB,0.30341E-03_JPRB,0.28040E-03_JPRB, & |
767 |
|
✗ |
& 0.25022E-03_JPRB,0.21333E-03_JPRB,0.16487E-03_JPRB,0.64779E-04_JPRB /) |
768 |
|
|
KA(:, 1, 3, 4) = (/ & |
769 |
|
|
& 0.14736E-03_JPRB,0.19483E-03_JPRB,0.20065E-03_JPRB,0.19242E-03_JPRB,0.17728E-03_JPRB, & |
770 |
|
✗ |
& 0.15627E-03_JPRB,0.13078E-03_JPRB,0.10037E-03_JPRB,0.34217E-04_JPRB /) |
771 |
|
|
KA(:, 2, 3, 4) = (/ & |
772 |
|
|
& 0.16492E-03_JPRB,0.21441E-03_JPRB,0.21892E-03_JPRB,0.20980E-03_JPRB,0.19289E-03_JPRB, & |
773 |
|
✗ |
& 0.17000E-03_JPRB,0.14249E-03_JPRB,0.10902E-03_JPRB,0.38352E-04_JPRB /) |
774 |
|
|
KA(:, 3, 3, 4) = (/ & |
775 |
|
|
& 0.18200E-03_JPRB,0.23294E-03_JPRB,0.23658E-03_JPRB,0.22658E-03_JPRB,0.20822E-03_JPRB, & |
776 |
|
✗ |
& 0.18391E-03_JPRB,0.15484E-03_JPRB,0.11888E-03_JPRB,0.42700E-04_JPRB /) |
777 |
|
|
KA(:, 4, 3, 4) = (/ & |
778 |
|
|
& 0.19811E-03_JPRB,0.25094E-03_JPRB,0.25385E-03_JPRB,0.24276E-03_JPRB,0.22338E-03_JPRB, & |
779 |
|
✗ |
& 0.19841E-03_JPRB,0.16822E-03_JPRB,0.12943E-03_JPRB,0.47257E-04_JPRB /) |
780 |
|
|
KA(:, 5, 3, 4) = (/ & |
781 |
|
|
& 0.21352E-03_JPRB,0.26784E-03_JPRB,0.27027E-03_JPRB,0.25917E-03_JPRB,0.23966E-03_JPRB, & |
782 |
|
✗ |
& 0.21399E-03_JPRB,0.18239E-03_JPRB,0.14058E-03_JPRB,0.51997E-04_JPRB /) |
783 |
|
|
KA(:, 1, 4, 4) = (/ & |
784 |
|
|
& 0.12070E-03_JPRB,0.16282E-03_JPRB,0.16870E-03_JPRB,0.16215E-03_JPRB,0.14966E-03_JPRB, & |
785 |
|
✗ |
& 0.13195E-03_JPRB,0.11003E-03_JPRB,0.83743E-04_JPRB,0.26841E-04_JPRB /) |
786 |
|
|
KA(:, 2, 4, 4) = (/ & |
787 |
|
|
& 0.13616E-03_JPRB,0.17979E-03_JPRB,0.18420E-03_JPRB,0.17692E-03_JPRB,0.16288E-03_JPRB, & |
788 |
|
✗ |
& 0.14351E-03_JPRB,0.12000E-03_JPRB,0.91324E-04_JPRB,0.29956E-04_JPRB /) |
789 |
|
|
KA(:, 3, 4, 4) = (/ & |
790 |
|
|
& 0.15142E-03_JPRB,0.19606E-03_JPRB,0.19933E-03_JPRB,0.19132E-03_JPRB,0.17582E-03_JPRB, & |
791 |
|
✗ |
& 0.15506E-03_JPRB,0.13061E-03_JPRB,0.99881E-04_JPRB,0.33175E-04_JPRB /) |
792 |
|
|
KA(:, 4, 4, 4) = (/ & |
793 |
|
|
& 0.16591E-03_JPRB,0.21170E-03_JPRB,0.21421E-03_JPRB,0.20525E-03_JPRB,0.18888E-03_JPRB, & |
794 |
|
✗ |
& 0.16747E-03_JPRB,0.14192E-03_JPRB,0.10907E-03_JPRB,0.36625E-04_JPRB /) |
795 |
|
|
KA(:, 5, 4, 4) = (/ & |
796 |
|
|
& 0.17956E-03_JPRB,0.22655E-03_JPRB,0.22833E-03_JPRB,0.21949E-03_JPRB,0.20283E-03_JPRB, & |
797 |
|
✗ |
& 0.18086E-03_JPRB,0.15393E-03_JPRB,0.11865E-03_JPRB,0.40513E-04_JPRB /) |
798 |
|
|
KA(:, 1, 5, 4) = (/ & |
799 |
|
|
& 0.98625E-04_JPRB,0.13480E-03_JPRB,0.14099E-03_JPRB,0.13653E-03_JPRB,0.12600E-03_JPRB, & |
800 |
|
✗ |
& 0.11107E-03_JPRB,0.92102E-04_JPRB,0.69414E-04_JPRB,0.22597E-04_JPRB /) |
801 |
|
|
KA(:, 2, 5, 4) = (/ & |
802 |
|
|
& 0.11165E-03_JPRB,0.14975E-03_JPRB,0.15429E-03_JPRB,0.14886E-03_JPRB,0.13710E-03_JPRB, & |
803 |
|
✗ |
& 0.12076E-03_JPRB,0.10051E-03_JPRB,0.76046E-04_JPRB,0.25265E-04_JPRB /) |
804 |
|
|
KA(:, 3, 5, 4) = (/ & |
805 |
|
|
& 0.12461E-03_JPRB,0.16391E-03_JPRB,0.16725E-03_JPRB,0.16091E-03_JPRB,0.14796E-03_JPRB, & |
806 |
|
✗ |
& 0.13047E-03_JPRB,0.10941E-03_JPRB,0.83193E-04_JPRB,0.27962E-04_JPRB /) |
807 |
|
|
KA(:, 4, 5, 4) = (/ & |
808 |
|
|
& 0.13738E-03_JPRB,0.17761E-03_JPRB,0.17982E-03_JPRB,0.17281E-03_JPRB,0.15916E-03_JPRB, & |
809 |
|
✗ |
& 0.14087E-03_JPRB,0.11892E-03_JPRB,0.90972E-04_JPRB,0.30855E-04_JPRB /) |
810 |
|
|
KA(:, 5, 5, 4) = (/ & |
811 |
|
|
& 0.14967E-03_JPRB,0.19066E-03_JPRB,0.19231E-03_JPRB,0.18509E-03_JPRB,0.17109E-03_JPRB, & |
812 |
|
✗ |
& 0.15227E-03_JPRB,0.12906E-03_JPRB,0.99136E-04_JPRB,0.34017E-04_JPRB /) |
813 |
|
|
KA(:, 1, 6, 4) = (/ & |
814 |
|
|
& 0.79863E-04_JPRB,0.11034E-03_JPRB,0.11622E-03_JPRB,0.11400E-03_JPRB,0.10532E-03_JPRB, & |
815 |
|
✗ |
& 0.92978E-04_JPRB,0.76661E-04_JPRB,0.57287E-04_JPRB,0.18664E-04_JPRB /) |
816 |
|
|
KA(:, 2, 6, 4) = (/ & |
817 |
|
|
& 0.90753E-04_JPRB,0.12318E-03_JPRB,0.12766E-03_JPRB,0.12440E-03_JPRB,0.11482E-03_JPRB, & |
818 |
|
✗ |
& 0.10110E-03_JPRB,0.83697E-04_JPRB,0.62663E-04_JPRB,0.20928E-04_JPRB /) |
819 |
|
|
KA(:, 3, 6, 4) = (/ & |
820 |
|
|
& 0.10183E-03_JPRB,0.13532E-03_JPRB,0.13907E-03_JPRB,0.13464E-03_JPRB,0.12396E-03_JPRB, & |
821 |
|
✗ |
& 0.10925E-03_JPRB,0.90984E-04_JPRB,0.68513E-04_JPRB,0.23264E-04_JPRB /) |
822 |
|
|
KA(:, 4, 6, 4) = (/ & |
823 |
|
|
& 0.11293E-03_JPRB,0.14742E-03_JPRB,0.14995E-03_JPRB,0.14481E-03_JPRB,0.13354E-03_JPRB, & |
824 |
|
✗ |
& 0.11797E-03_JPRB,0.98845E-04_JPRB,0.74965E-04_JPRB,0.25850E-04_JPRB /) |
825 |
|
|
KA(:, 5, 6, 4) = (/ & |
826 |
|
|
& 0.12360E-03_JPRB,0.15914E-03_JPRB,0.16090E-03_JPRB,0.15521E-03_JPRB,0.14361E-03_JPRB, & |
827 |
|
✗ |
& 0.12755E-03_JPRB,0.10739E-03_JPRB,0.81915E-04_JPRB,0.28635E-04_JPRB /) |
828 |
|
|
KA(:, 1, 7, 4) = (/ & |
829 |
|
|
& 0.65679E-04_JPRB,0.90084E-04_JPRB,0.95681E-04_JPRB,0.94567E-04_JPRB,0.87338E-04_JPRB, & |
830 |
|
✗ |
& 0.77275E-04_JPRB,0.63642E-04_JPRB,0.47097E-04_JPRB,0.15508E-04_JPRB /) |
831 |
|
|
KA(:, 2, 7, 4) = (/ & |
832 |
|
|
& 0.74551E-04_JPRB,0.10089E-03_JPRB,0.10531E-03_JPRB,0.10327E-03_JPRB,0.95364E-04_JPRB, & |
833 |
|
✗ |
& 0.84154E-04_JPRB,0.69569E-04_JPRB,0.51426E-04_JPRB,0.17234E-04_JPRB /) |
834 |
|
|
KA(:, 3, 7, 4) = (/ & |
835 |
|
|
& 0.83584E-04_JPRB,0.11137E-03_JPRB,0.11469E-03_JPRB,0.11193E-03_JPRB,0.10325E-03_JPRB, & |
836 |
|
✗ |
& 0.91075E-04_JPRB,0.75479E-04_JPRB,0.56228E-04_JPRB,0.19127E-04_JPRB /) |
837 |
|
|
KA(:, 4, 7, 4) = (/ & |
838 |
|
|
& 0.92762E-04_JPRB,0.12171E-03_JPRB,0.12420E-03_JPRB,0.12060E-03_JPRB,0.11147E-03_JPRB, & |
839 |
|
✗ |
& 0.98465E-04_JPRB,0.81969E-04_JPRB,0.61529E-04_JPRB,0.21452E-04_JPRB /) |
840 |
|
|
KA(:, 5, 7, 4) = (/ & |
841 |
|
|
& 0.10189E-03_JPRB,0.13182E-03_JPRB,0.13364E-03_JPRB,0.12960E-03_JPRB,0.12008E-03_JPRB, & |
842 |
|
✗ |
& 0.10652E-03_JPRB,0.89045E-04_JPRB,0.67334E-04_JPRB,0.23711E-04_JPRB /) |
843 |
|
|
KA(:, 1, 8, 4) = (/ & |
844 |
|
|
& 0.53656E-04_JPRB,0.74109E-04_JPRB,0.78629E-04_JPRB,0.78245E-04_JPRB,0.72322E-04_JPRB, & |
845 |
|
✗ |
& 0.63915E-04_JPRB,0.52625E-04_JPRB,0.38591E-04_JPRB,0.14416E-04_JPRB /) |
846 |
|
|
KA(:, 2, 8, 4) = (/ & |
847 |
|
|
& 0.61163E-04_JPRB,0.83104E-04_JPRB,0.86832E-04_JPRB,0.85562E-04_JPRB,0.78992E-04_JPRB, & |
848 |
|
✗ |
& 0.69666E-04_JPRB,0.57574E-04_JPRB,0.42098E-04_JPRB,0.15921E-04_JPRB /) |
849 |
|
|
KA(:, 3, 8, 4) = (/ & |
850 |
|
|
& 0.68914E-04_JPRB,0.91909E-04_JPRB,0.94594E-04_JPRB,0.92816E-04_JPRB,0.85590E-04_JPRB, & |
851 |
|
✗ |
& 0.75491E-04_JPRB,0.62445E-04_JPRB,0.46109E-04_JPRB,0.17209E-04_JPRB /) |
852 |
|
|
KA(:, 4, 8, 4) = (/ & |
853 |
|
|
& 0.76847E-04_JPRB,0.10059E-03_JPRB,0.10256E-03_JPRB,0.10019E-03_JPRB,0.92496E-04_JPRB, & |
854 |
|
✗ |
& 0.81729E-04_JPRB,0.67763E-04_JPRB,0.50445E-04_JPRB,0.18589E-04_JPRB /) |
855 |
|
|
KA(:, 5, 8, 4) = (/ & |
856 |
|
|
& 0.84847E-04_JPRB,0.10902E-03_JPRB,0.11071E-03_JPRB,0.10784E-03_JPRB,0.99812E-04_JPRB, & |
857 |
|
✗ |
& 0.88516E-04_JPRB,0.73718E-04_JPRB,0.55250E-04_JPRB,0.20194E-04_JPRB /) |
858 |
|
|
KA(:, 1, 9, 4) = (/ & |
859 |
|
|
& 0.43346E-04_JPRB,0.60608E-04_JPRB,0.64818E-04_JPRB,0.64681E-04_JPRB,0.59655E-04_JPRB, & |
860 |
|
✗ |
& 0.52617E-04_JPRB,0.43206E-04_JPRB,0.31573E-04_JPRB,0.14696E-04_JPRB /) |
861 |
|
|
KA(:, 2, 9, 4) = (/ & |
862 |
|
|
& 0.49669E-04_JPRB,0.68380E-04_JPRB,0.71800E-04_JPRB,0.70860E-04_JPRB,0.65260E-04_JPRB, & |
863 |
|
✗ |
& 0.57496E-04_JPRB,0.47313E-04_JPRB,0.34405E-04_JPRB,0.16164E-04_JPRB /) |
864 |
|
|
KA(:, 3, 9, 4) = (/ & |
865 |
|
|
& 0.56274E-04_JPRB,0.76040E-04_JPRB,0.78454E-04_JPRB,0.76944E-04_JPRB,0.70665E-04_JPRB, & |
866 |
|
✗ |
& 0.62347E-04_JPRB,0.51383E-04_JPRB,0.37665E-04_JPRB,0.17841E-04_JPRB /) |
867 |
|
|
KA(:, 4, 9, 4) = (/ & |
868 |
|
|
& 0.63127E-04_JPRB,0.83451E-04_JPRB,0.85178E-04_JPRB,0.83082E-04_JPRB,0.76437E-04_JPRB, & |
869 |
|
✗ |
& 0.67538E-04_JPRB,0.55797E-04_JPRB,0.41264E-04_JPRB,0.19504E-04_JPRB /) |
870 |
|
|
KA(:, 5, 9, 4) = (/ & |
871 |
|
|
& 0.70124E-04_JPRB,0.90807E-04_JPRB,0.91960E-04_JPRB,0.89432E-04_JPRB,0.82527E-04_JPRB, & |
872 |
|
✗ |
& 0.73176E-04_JPRB,0.60668E-04_JPRB,0.45179E-04_JPRB,0.20992E-04_JPRB /) |
873 |
|
|
KA(:, 1,10, 4) = (/ & |
874 |
|
|
& 0.35059E-04_JPRB,0.49531E-04_JPRB,0.53376E-04_JPRB,0.53665E-04_JPRB,0.49644E-04_JPRB, & |
875 |
|
✗ |
& 0.43592E-04_JPRB,0.35609E-04_JPRB,0.25845E-04_JPRB,0.13231E-04_JPRB /) |
876 |
|
|
KA(:, 2,10, 4) = (/ & |
877 |
|
|
& 0.40376E-04_JPRB,0.56174E-04_JPRB,0.59502E-04_JPRB,0.59040E-04_JPRB,0.54399E-04_JPRB, & |
878 |
|
✗ |
& 0.47687E-04_JPRB,0.39007E-04_JPRB,0.28189E-04_JPRB,0.15223E-04_JPRB /) |
879 |
|
|
KA(:, 3,10, 4) = (/ & |
880 |
|
|
& 0.46006E-04_JPRB,0.62899E-04_JPRB,0.65214E-04_JPRB,0.64178E-04_JPRB,0.58976E-04_JPRB, & |
881 |
|
✗ |
& 0.51726E-04_JPRB,0.42386E-04_JPRB,0.30843E-04_JPRB,0.17241E-04_JPRB /) |
882 |
|
|
KA(:, 4,10, 4) = (/ & |
883 |
|
|
& 0.51905E-04_JPRB,0.69395E-04_JPRB,0.70988E-04_JPRB,0.69461E-04_JPRB,0.63801E-04_JPRB, & |
884 |
|
✗ |
& 0.56040E-04_JPRB,0.46059E-04_JPRB,0.33831E-04_JPRB,0.19714E-04_JPRB /) |
885 |
|
|
KA(:, 5,10, 4) = (/ & |
886 |
|
|
& 0.57990E-04_JPRB,0.75737E-04_JPRB,0.76826E-04_JPRB,0.74718E-04_JPRB,0.68839E-04_JPRB, & |
887 |
|
✗ |
& 0.60664E-04_JPRB,0.50105E-04_JPRB,0.37049E-04_JPRB,0.22308E-04_JPRB /) |
888 |
|
|
KA(:, 1,11, 4) = (/ & |
889 |
|
|
& 0.30150E-04_JPRB,0.42738E-04_JPRB,0.46011E-04_JPRB,0.46330E-04_JPRB,0.42907E-04_JPRB, & |
890 |
|
✗ |
& 0.37605E-04_JPRB,0.30702E-04_JPRB,0.21962E-04_JPRB,0.11791E-04_JPRB /) |
891 |
|
|
KA(:, 2,11, 4) = (/ & |
892 |
|
|
& 0.34714E-04_JPRB,0.48516E-04_JPRB,0.51120E-04_JPRB,0.50726E-04_JPRB,0.46912E-04_JPRB, & |
893 |
|
✗ |
& 0.41033E-04_JPRB,0.33505E-04_JPRB,0.23952E-04_JPRB,0.13242E-04_JPRB /) |
894 |
|
|
KA(:, 3,11, 4) = (/ & |
895 |
|
|
& 0.39649E-04_JPRB,0.54325E-04_JPRB,0.56146E-04_JPRB,0.55270E-04_JPRB,0.50902E-04_JPRB, & |
896 |
|
✗ |
& 0.44559E-04_JPRB,0.36351E-04_JPRB,0.26266E-04_JPRB,0.15075E-04_JPRB /) |
897 |
|
|
KA(:, 4,11, 4) = (/ & |
898 |
|
|
& 0.44779E-04_JPRB,0.59893E-04_JPRB,0.61166E-04_JPRB,0.59766E-04_JPRB,0.55070E-04_JPRB, & |
899 |
|
✗ |
& 0.48303E-04_JPRB,0.39491E-04_JPRB,0.28847E-04_JPRB,0.17164E-04_JPRB /) |
900 |
|
|
KA(:, 5,11, 4) = (/ & |
901 |
|
|
& 0.49946E-04_JPRB,0.65411E-04_JPRB,0.66256E-04_JPRB,0.64345E-04_JPRB,0.59474E-04_JPRB, & |
902 |
|
✗ |
& 0.52287E-04_JPRB,0.43003E-04_JPRB,0.31612E-04_JPRB,0.19542E-04_JPRB /) |
903 |
|
|
KA(:, 1,12, 4) = (/ & |
904 |
|
|
& 0.25681E-04_JPRB,0.36622E-04_JPRB,0.39428E-04_JPRB,0.39582E-04_JPRB,0.36786E-04_JPRB, & |
905 |
|
✗ |
& 0.32210E-04_JPRB,0.26270E-04_JPRB,0.18629E-04_JPRB,0.10035E-04_JPRB /) |
906 |
|
|
KA(:, 2,12, 4) = (/ & |
907 |
|
|
& 0.29636E-04_JPRB,0.41620E-04_JPRB,0.43701E-04_JPRB,0.43425E-04_JPRB,0.40150E-04_JPRB, & |
908 |
|
✗ |
& 0.35105E-04_JPRB,0.28637E-04_JPRB,0.20365E-04_JPRB,0.11416E-04_JPRB /) |
909 |
|
|
KA(:, 3,12, 4) = (/ & |
910 |
|
|
& 0.33921E-04_JPRB,0.46628E-04_JPRB,0.48062E-04_JPRB,0.47301E-04_JPRB,0.43633E-04_JPRB, & |
911 |
|
✗ |
& 0.38189E-04_JPRB,0.31133E-04_JPRB,0.22405E-04_JPRB,0.12946E-04_JPRB /) |
912 |
|
|
KA(:, 4,12, 4) = (/ & |
913 |
|
|
& 0.38341E-04_JPRB,0.51401E-04_JPRB,0.52457E-04_JPRB,0.51129E-04_JPRB,0.47238E-04_JPRB, & |
914 |
|
✗ |
& 0.41429E-04_JPRB,0.33905E-04_JPRB,0.24546E-04_JPRB,0.14770E-04_JPRB /) |
915 |
|
|
KA(:, 5,12, 4) = (/ & |
916 |
|
|
& 0.42576E-04_JPRB,0.56153E-04_JPRB,0.56863E-04_JPRB,0.55182E-04_JPRB,0.51113E-04_JPRB, & |
917 |
|
✗ |
& 0.44940E-04_JPRB,0.36987E-04_JPRB,0.26898E-04_JPRB,0.16865E-04_JPRB /) |
918 |
|
|
KA(:, 1,13, 4) = (/ & |
919 |
|
|
& 0.21707E-04_JPRB,0.31142E-04_JPRB,0.33487E-04_JPRB,0.33650E-04_JPRB,0.31301E-04_JPRB, & |
920 |
|
✗ |
& 0.27396E-04_JPRB,0.22352E-04_JPRB,0.15744E-04_JPRB,0.83005E-05_JPRB /) |
921 |
|
|
KA(:, 2,13, 4) = (/ & |
922 |
|
|
& 0.25112E-04_JPRB,0.35474E-04_JPRB,0.37158E-04_JPRB,0.36970E-04_JPRB,0.34170E-04_JPRB, & |
923 |
|
✗ |
& 0.29871E-04_JPRB,0.24361E-04_JPRB,0.17312E-04_JPRB,0.93559E-05_JPRB /) |
924 |
|
|
KA(:, 3,13, 4) = (/ & |
925 |
|
|
& 0.28762E-04_JPRB,0.39712E-04_JPRB,0.40924E-04_JPRB,0.40199E-04_JPRB,0.37169E-04_JPRB, & |
926 |
|
✗ |
& 0.32565E-04_JPRB,0.26566E-04_JPRB,0.19074E-04_JPRB,0.10670E-04_JPRB /) |
927 |
|
|
KA(:, 4,13, 4) = (/ & |
928 |
|
|
& 0.32448E-04_JPRB,0.43808E-04_JPRB,0.44734E-04_JPRB,0.43534E-04_JPRB,0.40323E-04_JPRB, & |
929 |
|
✗ |
& 0.35367E-04_JPRB,0.29011E-04_JPRB,0.20897E-04_JPRB,0.12240E-04_JPRB /) |
930 |
|
|
KA(:, 5,13, 4) = (/ & |
931 |
|
|
& 0.35905E-04_JPRB,0.47771E-04_JPRB,0.48482E-04_JPRB,0.47094E-04_JPRB,0.43703E-04_JPRB, & |
932 |
|
✗ |
& 0.38474E-04_JPRB,0.31715E-04_JPRB,0.22899E-04_JPRB,0.13958E-04_JPRB /) |
933 |
|
|
KA(:, 1, 1, 5) = (/ & |
934 |
|
|
& 0.50328E-03_JPRB,0.59028E-03_JPRB,0.59973E-03_JPRB,0.58955E-03_JPRB,0.56685E-03_JPRB, & |
935 |
|
✗ |
& 0.50893E-03_JPRB,0.43098E-03_JPRB,0.31518E-03_JPRB,0.12599E-03_JPRB /) |
936 |
|
|
KA(:, 2, 1, 5) = (/ & |
937 |
|
|
& 0.53454E-03_JPRB,0.62581E-03_JPRB,0.63729E-03_JPRB,0.62588E-03_JPRB,0.59902E-03_JPRB, & |
938 |
|
✗ |
& 0.54179E-03_JPRB,0.45928E-03_JPRB,0.33824E-03_JPRB,0.13937E-03_JPRB /) |
939 |
|
|
KA(:, 3, 1, 5) = (/ & |
940 |
|
|
& 0.56216E-03_JPRB,0.66315E-03_JPRB,0.67707E-03_JPRB,0.66553E-03_JPRB,0.63545E-03_JPRB, & |
941 |
|
✗ |
& 0.57719E-03_JPRB,0.48913E-03_JPRB,0.36332E-03_JPRB,0.15548E-03_JPRB /) |
942 |
|
|
KA(:, 4, 1, 5) = (/ & |
943 |
|
|
& 0.58821E-03_JPRB,0.70231E-03_JPRB,0.71934E-03_JPRB,0.70828E-03_JPRB,0.67637E-03_JPRB, & |
944 |
|
✗ |
& 0.61438E-03_JPRB,0.52042E-03_JPRB,0.38978E-03_JPRB,0.17254E-03_JPRB /) |
945 |
|
|
KA(:, 5, 1, 5) = (/ & |
946 |
|
|
& 0.61349E-03_JPRB,0.74309E-03_JPRB,0.76503E-03_JPRB,0.75486E-03_JPRB,0.71943E-03_JPRB, & |
947 |
|
✗ |
& 0.65213E-03_JPRB,0.55331E-03_JPRB,0.41818E-03_JPRB,0.19176E-03_JPRB /) |
948 |
|
|
KA(:, 1, 2, 5) = (/ & |
949 |
|
|
& 0.43720E-03_JPRB,0.51117E-03_JPRB,0.51919E-03_JPRB,0.50988E-03_JPRB,0.48875E-03_JPRB, & |
950 |
|
✗ |
& 0.44138E-03_JPRB,0.37418E-03_JPRB,0.27478E-03_JPRB,0.10374E-03_JPRB /) |
951 |
|
|
|
952 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART3',1,ZHOOK_HANDLE) |
953 |
|
✗ |
END SUBROUTINE PART3 |
954 |
|
|
|
955 |
|
|
|
956 |
|
✗ |
SUBROUTINE PART4 |
957 |
|
|
|
958 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
959 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART4',0,ZHOOK_HANDLE) |
960 |
|
|
|
961 |
|
|
|
962 |
|
|
KA(:, 2, 2, 5) = (/ & |
963 |
|
|
& 0.46400E-03_JPRB,0.54460E-03_JPRB,0.55429E-03_JPRB,0.54395E-03_JPRB,0.52067E-03_JPRB, & |
964 |
|
✗ |
& 0.47118E-03_JPRB,0.39949E-03_JPRB,0.29546E-03_JPRB,0.11585E-03_JPRB /) |
965 |
|
|
KA(:, 3, 2, 5) = (/ & |
966 |
|
|
& 0.48798E-03_JPRB,0.57940E-03_JPRB,0.59177E-03_JPRB,0.58113E-03_JPRB,0.55553E-03_JPRB, & |
967 |
|
✗ |
& 0.50290E-03_JPRB,0.42588E-03_JPRB,0.31727E-03_JPRB,0.12872E-03_JPRB /) |
968 |
|
|
KA(:, 4, 2, 5) = (/ & |
969 |
|
|
& 0.51088E-03_JPRB,0.61529E-03_JPRB,0.63115E-03_JPRB,0.62163E-03_JPRB,0.59296E-03_JPRB, & |
970 |
|
✗ |
& 0.53614E-03_JPRB,0.45317E-03_JPRB,0.34070E-03_JPRB,0.14334E-03_JPRB /) |
971 |
|
|
KA(:, 5, 2, 5) = (/ & |
972 |
|
|
& 0.53331E-03_JPRB,0.65233E-03_JPRB,0.67270E-03_JPRB,0.66363E-03_JPRB,0.63091E-03_JPRB, & |
973 |
|
✗ |
& 0.57023E-03_JPRB,0.48253E-03_JPRB,0.36597E-03_JPRB,0.15947E-03_JPRB /) |
974 |
|
|
KA(:, 1, 3, 5) = (/ & |
975 |
|
|
& 0.37168E-03_JPRB,0.43544E-03_JPRB,0.44351E-03_JPRB,0.43496E-03_JPRB,0.41418E-03_JPRB, & |
976 |
|
✗ |
& 0.37673E-03_JPRB,0.31849E-03_JPRB,0.23373E-03_JPRB,0.83035E-04_JPRB /) |
977 |
|
|
KA(:, 2, 3, 5) = (/ & |
978 |
|
|
& 0.39476E-03_JPRB,0.46532E-03_JPRB,0.47527E-03_JPRB,0.46587E-03_JPRB,0.44394E-03_JPRB, & |
979 |
|
✗ |
& 0.40288E-03_JPRB,0.34052E-03_JPRB,0.25172E-03_JPRB,0.92363E-04_JPRB /) |
980 |
|
|
KA(:, 3, 3, 5) = (/ & |
981 |
|
|
& 0.41559E-03_JPRB,0.49597E-03_JPRB,0.50880E-03_JPRB,0.49944E-03_JPRB,0.47605E-03_JPRB, & |
982 |
|
✗ |
& 0.43138E-03_JPRB,0.36384E-03_JPRB,0.27063E-03_JPRB,0.10327E-03_JPRB /) |
983 |
|
|
KA(:, 4, 3, 5) = (/ & |
984 |
|
|
& 0.43551E-03_JPRB,0.52738E-03_JPRB,0.54357E-03_JPRB,0.53553E-03_JPRB,0.50924E-03_JPRB, & |
985 |
|
✗ |
& 0.46069E-03_JPRB,0.38844E-03_JPRB,0.29089E-03_JPRB,0.11548E-03_JPRB /) |
986 |
|
|
KA(:, 5, 3, 5) = (/ & |
987 |
|
|
& 0.45509E-03_JPRB,0.56036E-03_JPRB,0.58045E-03_JPRB,0.57279E-03_JPRB,0.54320E-03_JPRB, & |
988 |
|
✗ |
& 0.49088E-03_JPRB,0.41461E-03_JPRB,0.31304E-03_JPRB,0.12901E-03_JPRB /) |
989 |
|
|
KA(:, 1, 4, 5) = (/ & |
990 |
|
|
& 0.31353E-03_JPRB,0.36800E-03_JPRB,0.37478E-03_JPRB,0.36628E-03_JPRB,0.34818E-03_JPRB, & |
991 |
|
✗ |
& 0.31938E-03_JPRB,0.26882E-03_JPRB,0.19725E-03_JPRB,0.65143E-04_JPRB /) |
992 |
|
|
KA(:, 2, 4, 5) = (/ & |
993 |
|
|
& 0.33327E-03_JPRB,0.39347E-03_JPRB,0.40240E-03_JPRB,0.39421E-03_JPRB,0.37500E-03_JPRB, & |
994 |
|
✗ |
& 0.34245E-03_JPRB,0.28782E-03_JPRB,0.21247E-03_JPRB,0.72911E-04_JPRB /) |
995 |
|
|
KA(:, 3, 4, 5) = (/ & |
996 |
|
|
& 0.35116E-03_JPRB,0.41935E-03_JPRB,0.43125E-03_JPRB,0.42396E-03_JPRB,0.40374E-03_JPRB, & |
997 |
|
✗ |
& 0.36745E-03_JPRB,0.30851E-03_JPRB,0.22861E-03_JPRB,0.82223E-04_JPRB /) |
998 |
|
|
KA(:, 4, 4, 5) = (/ & |
999 |
|
|
& 0.36817E-03_JPRB,0.44654E-03_JPRB,0.46141E-03_JPRB,0.45505E-03_JPRB,0.43257E-03_JPRB, & |
1000 |
|
✗ |
& 0.39339E-03_JPRB,0.33051E-03_JPRB,0.24594E-03_JPRB,0.92524E-04_JPRB /) |
1001 |
|
|
KA(:, 5, 4, 5) = (/ & |
1002 |
|
|
& 0.38502E-03_JPRB,0.47537E-03_JPRB,0.49387E-03_JPRB,0.48730E-03_JPRB,0.46233E-03_JPRB, & |
1003 |
|
✗ |
& 0.42007E-03_JPRB,0.35374E-03_JPRB,0.26504E-03_JPRB,0.10363E-03_JPRB /) |
1004 |
|
|
KA(:, 1, 5, 5) = (/ & |
1005 |
|
|
& 0.26371E-03_JPRB,0.30958E-03_JPRB,0.31480E-03_JPRB,0.30643E-03_JPRB,0.29119E-03_JPRB, & |
1006 |
|
✗ |
& 0.26781E-03_JPRB,0.22601E-03_JPRB,0.16580E-03_JPRB,0.51526E-04_JPRB /) |
1007 |
|
|
KA(:, 2, 5, 5) = (/ & |
1008 |
|
|
& 0.28046E-03_JPRB,0.33149E-03_JPRB,0.33831E-03_JPRB,0.33074E-03_JPRB,0.31455E-03_JPRB, & |
1009 |
|
✗ |
& 0.28912E-03_JPRB,0.24254E-03_JPRB,0.17884E-03_JPRB,0.57544E-04_JPRB /) |
1010 |
|
|
KA(:, 3, 5, 5) = (/ & |
1011 |
|
|
& 0.29571E-03_JPRB,0.35368E-03_JPRB,0.36281E-03_JPRB,0.35630E-03_JPRB,0.33882E-03_JPRB, & |
1012 |
|
✗ |
& 0.31097E-03_JPRB,0.26070E-03_JPRB,0.19272E-03_JPRB,0.64519E-04_JPRB /) |
1013 |
|
|
KA(:, 4, 5, 5) = (/ & |
1014 |
|
|
& 0.31016E-03_JPRB,0.37666E-03_JPRB,0.38893E-03_JPRB,0.38273E-03_JPRB,0.36412E-03_JPRB, & |
1015 |
|
✗ |
& 0.33364E-03_JPRB,0.28016E-03_JPRB,0.20757E-03_JPRB,0.72363E-04_JPRB /) |
1016 |
|
|
KA(:, 5, 5, 5) = (/ & |
1017 |
|
|
& 0.32452E-03_JPRB,0.40122E-03_JPRB,0.41666E-03_JPRB,0.41046E-03_JPRB,0.39013E-03_JPRB, & |
1018 |
|
✗ |
& 0.35668E-03_JPRB,0.30056E-03_JPRB,0.22388E-03_JPRB,0.80981E-04_JPRB /) |
1019 |
|
|
KA(:, 1, 6, 5) = (/ & |
1020 |
|
|
& 0.22069E-03_JPRB,0.25888E-03_JPRB,0.26323E-03_JPRB,0.25479E-03_JPRB,0.24246E-03_JPRB, & |
1021 |
|
✗ |
& 0.22303E-03_JPRB,0.18865E-03_JPRB,0.13826E-03_JPRB,0.42586E-04_JPRB /) |
1022 |
|
|
KA(:, 2, 6, 5) = (/ & |
1023 |
|
|
& 0.23505E-03_JPRB,0.27730E-03_JPRB,0.28289E-03_JPRB,0.27510E-03_JPRB,0.26179E-03_JPRB, & |
1024 |
|
✗ |
& 0.24147E-03_JPRB,0.20303E-03_JPRB,0.14956E-03_JPRB,0.47728E-04_JPRB /) |
1025 |
|
|
KA(:, 3, 6, 5) = (/ & |
1026 |
|
|
& 0.24799E-03_JPRB,0.29644E-03_JPRB,0.30324E-03_JPRB,0.29696E-03_JPRB,0.28190E-03_JPRB, & |
1027 |
|
✗ |
& 0.26059E-03_JPRB,0.21889E-03_JPRB,0.16173E-03_JPRB,0.53804E-04_JPRB /) |
1028 |
|
|
KA(:, 4, 6, 5) = (/ & |
1029 |
|
|
& 0.26027E-03_JPRB,0.31607E-03_JPRB,0.32548E-03_JPRB,0.31928E-03_JPRB,0.30338E-03_JPRB, & |
1030 |
|
✗ |
& 0.27984E-03_JPRB,0.23536E-03_JPRB,0.17457E-03_JPRB,0.60579E-04_JPRB /) |
1031 |
|
|
KA(:, 5, 6, 5) = (/ & |
1032 |
|
|
& 0.27261E-03_JPRB,0.33682E-03_JPRB,0.34889E-03_JPRB,0.34299E-03_JPRB,0.32589E-03_JPRB, & |
1033 |
|
✗ |
& 0.29875E-03_JPRB,0.25286E-03_JPRB,0.18852E-03_JPRB,0.67802E-04_JPRB /) |
1034 |
|
|
KA(:, 1, 7, 5) = (/ & |
1035 |
|
|
& 0.18284E-03_JPRB,0.21563E-03_JPRB,0.21874E-03_JPRB,0.21147E-03_JPRB,0.20158E-03_JPRB, & |
1036 |
|
✗ |
& 0.18535E-03_JPRB,0.15699E-03_JPRB,0.11455E-03_JPRB,0.35095E-04_JPRB /) |
1037 |
|
|
KA(:, 2, 7, 5) = (/ & |
1038 |
|
|
& 0.19537E-03_JPRB,0.23122E-03_JPRB,0.23571E-03_JPRB,0.22829E-03_JPRB,0.21760E-03_JPRB, & |
1039 |
|
✗ |
& 0.20013E-03_JPRB,0.16934E-03_JPRB,0.12429E-03_JPRB,0.39853E-04_JPRB /) |
1040 |
|
|
KA(:, 3, 7, 5) = (/ & |
1041 |
|
|
& 0.20672E-03_JPRB,0.24731E-03_JPRB,0.25313E-03_JPRB,0.24636E-03_JPRB,0.23401E-03_JPRB, & |
1042 |
|
✗ |
& 0.21622E-03_JPRB,0.18276E-03_JPRB,0.13469E-03_JPRB,0.45173E-04_JPRB /) |
1043 |
|
|
KA(:, 4, 7, 5) = (/ & |
1044 |
|
|
& 0.21741E-03_JPRB,0.26399E-03_JPRB,0.27153E-03_JPRB,0.26539E-03_JPRB,0.25198E-03_JPRB, & |
1045 |
|
✗ |
& 0.23212E-03_JPRB,0.19655E-03_JPRB,0.14593E-03_JPRB,0.50910E-04_JPRB /) |
1046 |
|
|
KA(:, 5, 7, 5) = (/ & |
1047 |
|
|
& 0.22822E-03_JPRB,0.28170E-03_JPRB,0.29118E-03_JPRB,0.28544E-03_JPRB,0.27112E-03_JPRB, & |
1048 |
|
✗ |
& 0.24842E-03_JPRB,0.21129E-03_JPRB,0.15803E-03_JPRB,0.57288E-04_JPRB /) |
1049 |
|
|
KA(:, 1, 8, 5) = (/ & |
1050 |
|
|
& 0.15136E-03_JPRB,0.17854E-03_JPRB,0.18119E-03_JPRB,0.17535E-03_JPRB,0.16721E-03_JPRB, & |
1051 |
|
✗ |
& 0.15392E-03_JPRB,0.13041E-03_JPRB,0.94463E-04_JPRB,0.29176E-04_JPRB /) |
1052 |
|
|
KA(:, 2, 8, 5) = (/ & |
1053 |
|
|
& 0.16197E-03_JPRB,0.19183E-03_JPRB,0.19544E-03_JPRB,0.18940E-03_JPRB,0.18045E-03_JPRB, & |
1054 |
|
✗ |
& 0.16606E-03_JPRB,0.14094E-03_JPRB,0.10292E-03_JPRB,0.33234E-04_JPRB /) |
1055 |
|
|
KA(:, 3, 8, 5) = (/ & |
1056 |
|
|
& 0.17149E-03_JPRB,0.20540E-03_JPRB,0.21055E-03_JPRB,0.20432E-03_JPRB,0.19421E-03_JPRB, & |
1057 |
|
✗ |
& 0.17914E-03_JPRB,0.15214E-03_JPRB,0.11170E-03_JPRB,0.37987E-04_JPRB /) |
1058 |
|
|
KA(:, 4, 8, 5) = (/ & |
1059 |
|
|
& 0.18048E-03_JPRB,0.21966E-03_JPRB,0.22618E-03_JPRB,0.22017E-03_JPRB,0.20926E-03_JPRB, & |
1060 |
|
✗ |
& 0.19215E-03_JPRB,0.16364E-03_JPRB,0.12118E-03_JPRB,0.43249E-04_JPRB /) |
1061 |
|
|
KA(:, 5, 8, 5) = (/ & |
1062 |
|
|
& 0.18968E-03_JPRB,0.23496E-03_JPRB,0.24258E-03_JPRB,0.23712E-03_JPRB,0.22524E-03_JPRB, & |
1063 |
|
✗ |
& 0.20589E-03_JPRB,0.17598E-03_JPRB,0.13139E-03_JPRB,0.48772E-04_JPRB /) |
1064 |
|
|
KA(:, 1, 9, 5) = (/ & |
1065 |
|
|
& 0.12535E-03_JPRB,0.14733E-03_JPRB,0.14911E-03_JPRB,0.14464E-03_JPRB,0.13810E-03_JPRB, & |
1066 |
|
✗ |
& 0.12766E-03_JPRB,0.10804E-03_JPRB,0.77667E-04_JPRB,0.31607E-04_JPRB /) |
1067 |
|
|
KA(:, 2, 9, 5) = (/ & |
1068 |
|
|
& 0.13428E-03_JPRB,0.15826E-03_JPRB,0.16122E-03_JPRB,0.15658E-03_JPRB,0.14914E-03_JPRB, & |
1069 |
|
✗ |
& 0.13752E-03_JPRB,0.11655E-03_JPRB,0.84956E-04_JPRB,0.35832E-04_JPRB /) |
1070 |
|
|
KA(:, 3, 9, 5) = (/ & |
1071 |
|
|
& 0.14212E-03_JPRB,0.16949E-03_JPRB,0.17392E-03_JPRB,0.16905E-03_JPRB,0.16073E-03_JPRB, & |
1072 |
|
✗ |
& 0.14802E-03_JPRB,0.12582E-03_JPRB,0.92269E-04_JPRB,0.39990E-04_JPRB /) |
1073 |
|
|
KA(:, 4, 9, 5) = (/ & |
1074 |
|
|
& 0.14955E-03_JPRB,0.18151E-03_JPRB,0.18720E-03_JPRB,0.18233E-03_JPRB,0.17343E-03_JPRB, & |
1075 |
|
✗ |
& 0.15845E-03_JPRB,0.13559E-03_JPRB,0.99998E-04_JPRB,0.44405E-04_JPRB /) |
1076 |
|
|
KA(:, 5, 9, 5) = (/ & |
1077 |
|
|
& 0.15720E-03_JPRB,0.19441E-03_JPRB,0.20115E-03_JPRB,0.19658E-03_JPRB,0.18679E-03_JPRB, & |
1078 |
|
✗ |
& 0.17045E-03_JPRB,0.14597E-03_JPRB,0.10853E-03_JPRB,0.48354E-04_JPRB /) |
1079 |
|
|
KA(:, 1,10, 5) = (/ & |
1080 |
|
|
& 0.10518E-03_JPRB,0.12283E-03_JPRB,0.12342E-03_JPRB,0.11933E-03_JPRB,0.11376E-03_JPRB, & |
1081 |
|
✗ |
& 0.10615E-03_JPRB,0.89610E-04_JPRB,0.64322E-04_JPRB,0.38897E-04_JPRB /) |
1082 |
|
|
KA(:, 2,10, 5) = (/ & |
1083 |
|
|
& 0.11277E-03_JPRB,0.13167E-03_JPRB,0.13319E-03_JPRB,0.12937E-03_JPRB,0.12328E-03_JPRB, & |
1084 |
|
✗ |
& 0.11434E-03_JPRB,0.96637E-04_JPRB,0.70434E-04_JPRB,0.44697E-04_JPRB /) |
1085 |
|
|
KA(:, 3,10, 5) = (/ & |
1086 |
|
|
& 0.11946E-03_JPRB,0.14071E-03_JPRB,0.14389E-03_JPRB,0.14002E-03_JPRB,0.13292E-03_JPRB, & |
1087 |
|
✗ |
& 0.12246E-03_JPRB,0.10436E-03_JPRB,0.76473E-04_JPRB,0.50672E-04_JPRB /) |
1088 |
|
|
KA(:, 4,10, 5) = (/ & |
1089 |
|
|
& 0.12573E-03_JPRB,0.15045E-03_JPRB,0.15515E-03_JPRB,0.15121E-03_JPRB,0.14368E-03_JPRB, & |
1090 |
|
✗ |
& 0.13136E-03_JPRB,0.11260E-03_JPRB,0.82864E-04_JPRB,0.56090E-04_JPRB /) |
1091 |
|
|
KA(:, 5,10, 5) = (/ & |
1092 |
|
|
& 0.13210E-03_JPRB,0.16128E-03_JPRB,0.16701E-03_JPRB,0.16339E-03_JPRB,0.15508E-03_JPRB, & |
1093 |
|
✗ |
& 0.14154E-03_JPRB,0.12132E-03_JPRB,0.89973E-04_JPRB,0.61017E-04_JPRB /) |
1094 |
|
|
KA(:, 1,11, 5) = (/ & |
1095 |
|
|
& 0.90693E-04_JPRB,0.10606E-03_JPRB,0.10639E-03_JPRB,0.10214E-03_JPRB,0.97041E-04_JPRB, & |
1096 |
|
✗ |
& 0.90929E-04_JPRB,0.76654E-04_JPRB,0.55448E-04_JPRB,0.34971E-04_JPRB /) |
1097 |
|
|
KA(:, 2,11, 5) = (/ & |
1098 |
|
|
& 0.96878E-04_JPRB,0.11346E-03_JPRB,0.11478E-03_JPRB,0.11094E-03_JPRB,0.10496E-03_JPRB, & |
1099 |
|
✗ |
& 0.97427E-04_JPRB,0.82680E-04_JPRB,0.60468E-04_JPRB,0.41599E-04_JPRB /) |
1100 |
|
|
KA(:, 3,11, 5) = (/ & |
1101 |
|
|
& 0.10232E-03_JPRB,0.12125E-03_JPRB,0.12365E-03_JPRB,0.11979E-03_JPRB,0.11346E-03_JPRB, & |
1102 |
|
✗ |
& 0.10430E-03_JPRB,0.89390E-04_JPRB,0.65549E-04_JPRB,0.48186E-04_JPRB /) |
1103 |
|
|
KA(:, 4,11, 5) = (/ & |
1104 |
|
|
& 0.10772E-03_JPRB,0.12969E-03_JPRB,0.13316E-03_JPRB,0.12963E-03_JPRB,0.12290E-03_JPRB, & |
1105 |
|
✗ |
& 0.11234E-03_JPRB,0.96526E-04_JPRB,0.71097E-04_JPRB,0.54537E-04_JPRB /) |
1106 |
|
|
KA(:, 5,11, 5) = (/ & |
1107 |
|
|
& 0.11345E-03_JPRB,0.13912E-03_JPRB,0.14339E-03_JPRB,0.14025E-03_JPRB,0.13275E-03_JPRB, & |
1108 |
|
✗ |
& 0.12106E-03_JPRB,0.10412E-03_JPRB,0.77240E-04_JPRB,0.60238E-04_JPRB /) |
1109 |
|
|
KA(:, 1,12, 5) = (/ & |
1110 |
|
|
& 0.77577E-04_JPRB,0.91005E-04_JPRB,0.91202E-04_JPRB,0.87618E-04_JPRB,0.82974E-04_JPRB, & |
1111 |
|
✗ |
& 0.77488E-04_JPRB,0.65261E-04_JPRB,0.47539E-04_JPRB,0.30516E-04_JPRB /) |
1112 |
|
|
KA(:, 2,12, 5) = (/ & |
1113 |
|
|
& 0.82612E-04_JPRB,0.97349E-04_JPRB,0.98497E-04_JPRB,0.95069E-04_JPRB,0.89699E-04_JPRB, & |
1114 |
|
✗ |
& 0.82714E-04_JPRB,0.70478E-04_JPRB,0.51645E-04_JPRB,0.35968E-04_JPRB /) |
1115 |
|
|
KA(:, 3,12, 5) = (/ & |
1116 |
|
|
& 0.87206E-04_JPRB,0.10402E-03_JPRB,0.10625E-03_JPRB,0.10294E-03_JPRB,0.97013E-04_JPRB, & |
1117 |
|
✗ |
& 0.88723E-04_JPRB,0.76259E-04_JPRB,0.55960E-04_JPRB,0.41899E-04_JPRB /) |
1118 |
|
|
KA(:, 4,12, 5) = (/ & |
1119 |
|
|
& 0.91929E-04_JPRB,0.11153E-03_JPRB,0.11462E-03_JPRB,0.11153E-03_JPRB,0.10500E-03_JPRB, & |
1120 |
|
✗ |
& 0.95633E-04_JPRB,0.82267E-04_JPRB,0.60868E-04_JPRB,0.48100E-04_JPRB /) |
1121 |
|
|
KA(:, 5,12, 5) = (/ & |
1122 |
|
|
& 0.97101E-04_JPRB,0.11996E-03_JPRB,0.12377E-03_JPRB,0.12058E-03_JPRB,0.11342E-03_JPRB, & |
1123 |
|
✗ |
& 0.10316E-03_JPRB,0.88884E-04_JPRB,0.66077E-04_JPRB,0.53563E-04_JPRB /) |
1124 |
|
|
KA(:, 1,13, 5) = (/ & |
1125 |
|
|
& 0.65838E-04_JPRB,0.77620E-04_JPRB,0.77829E-04_JPRB,0.74661E-04_JPRB,0.70473E-04_JPRB, & |
1126 |
|
✗ |
& 0.65575E-04_JPRB,0.55474E-04_JPRB,0.40441E-04_JPRB,0.25521E-04_JPRB /) |
1127 |
|
|
KA(:, 2,13, 5) = (/ & |
1128 |
|
|
& 0.69998E-04_JPRB,0.83015E-04_JPRB,0.84103E-04_JPRB,0.81066E-04_JPRB,0.76507E-04_JPRB, & |
1129 |
|
✗ |
& 0.70172E-04_JPRB,0.59914E-04_JPRB,0.43882E-04_JPRB,0.30126E-04_JPRB /) |
1130 |
|
|
KA(:, 3,13, 5) = (/ & |
1131 |
|
|
& 0.74003E-04_JPRB,0.88878E-04_JPRB,0.90840E-04_JPRB,0.88139E-04_JPRB,0.82951E-04_JPRB, & |
1132 |
|
✗ |
& 0.75471E-04_JPRB,0.64689E-04_JPRB,0.47652E-04_JPRB,0.35171E-04_JPRB /) |
1133 |
|
|
KA(:, 4,13, 5) = (/ & |
1134 |
|
|
& 0.78234E-04_JPRB,0.95561E-04_JPRB,0.98237E-04_JPRB,0.95653E-04_JPRB,0.89770E-04_JPRB, & |
1135 |
|
✗ |
& 0.81434E-04_JPRB,0.69913E-04_JPRB,0.51882E-04_JPRB,0.40221E-04_JPRB /) |
1136 |
|
|
KA(:, 5,13, 5) = (/ & |
1137 |
|
|
& 0.82825E-04_JPRB,0.10313E-03_JPRB,0.10644E-03_JPRB,0.10352E-03_JPRB,0.97040E-04_JPRB, & |
1138 |
|
✗ |
& 0.87602E-04_JPRB,0.75532E-04_JPRB,0.56387E-04_JPRB,0.44675E-04_JPRB /) |
1139 |
|
|
KA(:, 1, 1, 6) = (/ & |
1140 |
|
|
& 0.10615E-02_JPRB,0.12529E-02_JPRB,0.13083E-02_JPRB,0.12764E-02_JPRB,0.11881E-02_JPRB, & |
1141 |
|
✗ |
& 0.10853E-02_JPRB,0.93421E-03_JPRB,0.71644E-03_JPRB,0.30757E-03_JPRB /) |
1142 |
|
|
KA(:, 2, 1, 6) = (/ & |
1143 |
|
|
& 0.10918E-02_JPRB,0.13136E-02_JPRB,0.13677E-02_JPRB,0.13350E-02_JPRB,0.12522E-02_JPRB, & |
1144 |
|
✗ |
& 0.11402E-02_JPRB,0.98392E-03_JPRB,0.76040E-03_JPRB,0.35125E-03_JPRB /) |
1145 |
|
|
KA(:, 3, 1, 6) = (/ & |
1146 |
|
|
& 0.11297E-02_JPRB,0.13742E-02_JPRB,0.14266E-02_JPRB,0.13956E-02_JPRB,0.13143E-02_JPRB, & |
1147 |
|
✗ |
& 0.11951E-02_JPRB,0.10359E-02_JPRB,0.81032E-03_JPRB,0.39829E-03_JPRB /) |
1148 |
|
|
KA(:, 4, 1, 6) = (/ & |
1149 |
|
|
& 0.11716E-02_JPRB,0.14330E-02_JPRB,0.14865E-02_JPRB,0.14580E-02_JPRB,0.13738E-02_JPRB, & |
1150 |
|
✗ |
& 0.12536E-02_JPRB,0.10931E-02_JPRB,0.86605E-03_JPRB,0.44907E-03_JPRB /) |
1151 |
|
|
KA(:, 5, 1, 6) = (/ & |
1152 |
|
|
& 0.12137E-02_JPRB,0.14919E-02_JPRB,0.15477E-02_JPRB,0.15196E-02_JPRB,0.14358E-02_JPRB, & |
1153 |
|
✗ |
& 0.13166E-02_JPRB,0.11546E-02_JPRB,0.92748E-03_JPRB,0.50593E-03_JPRB /) |
1154 |
|
|
KA(:, 1, 2, 6) = (/ & |
1155 |
|
|
& 0.92435E-03_JPRB,0.10874E-02_JPRB,0.11275E-02_JPRB,0.11015E-02_JPRB,0.10311E-02_JPRB, & |
1156 |
|
✗ |
& 0.94231E-03_JPRB,0.80960E-03_JPRB,0.63033E-03_JPRB,0.26663E-03_JPRB /) |
1157 |
|
|
KA(:, 2, 2, 6) = (/ & |
1158 |
|
|
& 0.95885E-03_JPRB,0.11428E-02_JPRB,0.11829E-02_JPRB,0.11541E-02_JPRB,0.10849E-02_JPRB, & |
1159 |
|
✗ |
& 0.98930E-03_JPRB,0.85567E-03_JPRB,0.67200E-03_JPRB,0.30230E-03_JPRB /) |
1160 |
|
|
KA(:, 3, 2, 6) = (/ & |
1161 |
|
|
& 0.99776E-03_JPRB,0.11978E-02_JPRB,0.12376E-02_JPRB,0.12093E-02_JPRB,0.11390E-02_JPRB, & |
1162 |
|
✗ |
& 0.10392E-02_JPRB,0.90558E-03_JPRB,0.71833E-03_JPRB,0.34245E-03_JPRB /) |
1163 |
|
|
KA(:, 4, 2, 6) = (/ & |
1164 |
|
|
& 0.10380E-02_JPRB,0.12537E-02_JPRB,0.12935E-02_JPRB,0.12652E-02_JPRB,0.11933E-02_JPRB, & |
1165 |
|
✗ |
& 0.10921E-02_JPRB,0.95939E-03_JPRB,0.76948E-03_JPRB,0.38641E-03_JPRB /) |
1166 |
|
|
KA(:, 5, 2, 6) = (/ & |
1167 |
|
|
& 0.10779E-02_JPRB,0.13105E-02_JPRB,0.13515E-02_JPRB,0.13214E-02_JPRB,0.12497E-02_JPRB, & |
1168 |
|
✗ |
& 0.11514E-02_JPRB,0.10182E-02_JPRB,0.82552E-03_JPRB,0.43428E-03_JPRB /) |
1169 |
|
|
KA(:, 1, 3, 6) = (/ & |
1170 |
|
|
& 0.79958E-03_JPRB,0.93053E-03_JPRB,0.95669E-03_JPRB,0.93720E-03_JPRB,0.88165E-03_JPRB, & |
1171 |
|
✗ |
& 0.80178E-03_JPRB,0.69131E-03_JPRB,0.54027E-03_JPRB,0.22082E-03_JPRB /) |
1172 |
|
|
KA(:, 2, 3, 6) = (/ & |
1173 |
|
|
& 0.83354E-03_JPRB,0.98064E-03_JPRB,0.10079E-02_JPRB,0.98484E-03_JPRB,0.92834E-03_JPRB, & |
1174 |
|
✗ |
& 0.84387E-03_JPRB,0.73304E-03_JPRB,0.57932E-03_JPRB,0.25149E-03_JPRB /) |
1175 |
|
|
KA(:, 3, 3, 6) = (/ & |
1176 |
|
|
& 0.87012E-03_JPRB,0.10320E-02_JPRB,0.10600E-02_JPRB,0.10346E-02_JPRB,0.97491E-03_JPRB, & |
1177 |
|
✗ |
& 0.88683E-03_JPRB,0.77649E-03_JPRB,0.62208E-03_JPRB,0.28527E-03_JPRB /) |
1178 |
|
|
KA(:, 4, 3, 6) = (/ & |
1179 |
|
|
& 0.90759E-03_JPRB,0.10841E-02_JPRB,0.11129E-02_JPRB,0.10858E-02_JPRB,0.10238E-02_JPRB, & |
1180 |
|
✗ |
& 0.93520E-03_JPRB,0.82494E-03_JPRB,0.66854E-03_JPRB,0.32199E-03_JPRB /) |
1181 |
|
|
KA(:, 5, 3, 6) = (/ & |
1182 |
|
|
& 0.94443E-03_JPRB,0.11378E-02_JPRB,0.11668E-02_JPRB,0.11369E-02_JPRB,0.10746E-02_JPRB, & |
1183 |
|
✗ |
& 0.98835E-03_JPRB,0.87764E-03_JPRB,0.71868E-03_JPRB,0.36165E-03_JPRB /) |
1184 |
|
|
KA(:, 1, 4, 6) = (/ & |
1185 |
|
|
& 0.68628E-03_JPRB,0.79104E-03_JPRB,0.80863E-03_JPRB,0.79421E-03_JPRB,0.74681E-03_JPRB, & |
1186 |
|
✗ |
& 0.67391E-03_JPRB,0.58210E-03_JPRB,0.45790E-03_JPRB,0.18137E-03_JPRB /) |
1187 |
|
|
KA(:, 2, 4, 6) = (/ & |
1188 |
|
|
& 0.71790E-03_JPRB,0.83686E-03_JPRB,0.85591E-03_JPRB,0.83705E-03_JPRB,0.78808E-03_JPRB, & |
1189 |
|
✗ |
& 0.71172E-03_JPRB,0.61822E-03_JPRB,0.49245E-03_JPRB,0.20729E-03_JPRB /) |
1190 |
|
|
KA(:, 3, 4, 6) = (/ & |
1191 |
|
|
& 0.75117E-03_JPRB,0.88426E-03_JPRB,0.90462E-03_JPRB,0.88167E-03_JPRB,0.82945E-03_JPRB, & |
1192 |
|
✗ |
& 0.75050E-03_JPRB,0.65652E-03_JPRB,0.53019E-03_JPRB,0.23455E-03_JPRB /) |
1193 |
|
|
KA(:, 4, 4, 6) = (/ & |
1194 |
|
|
& 0.78430E-03_JPRB,0.93252E-03_JPRB,0.95418E-03_JPRB,0.92872E-03_JPRB,0.87301E-03_JPRB, & |
1195 |
|
✗ |
& 0.79337E-03_JPRB,0.69871E-03_JPRB,0.57160E-03_JPRB,0.26520E-03_JPRB /) |
1196 |
|
|
KA(:, 5, 4, 6) = (/ & |
1197 |
|
|
& 0.81683E-03_JPRB,0.98168E-03_JPRB,0.10045E-02_JPRB,0.97638E-03_JPRB,0.92000E-03_JPRB, & |
1198 |
|
✗ |
& 0.84034E-03_JPRB,0.74480E-03_JPRB,0.61518E-03_JPRB,0.29808E-03_JPRB /) |
1199 |
|
|
KA(:, 1, 5, 6) = (/ & |
1200 |
|
|
& 0.58497E-03_JPRB,0.66935E-03_JPRB,0.68301E-03_JPRB,0.66951E-03_JPRB,0.62962E-03_JPRB, & |
1201 |
|
✗ |
& 0.56579E-03_JPRB,0.48826E-03_JPRB,0.38379E-03_JPRB,0.14576E-03_JPRB /) |
1202 |
|
|
KA(:, 2, 5, 6) = (/ & |
1203 |
|
|
& 0.61310E-03_JPRB,0.71031E-03_JPRB,0.72592E-03_JPRB,0.70978E-03_JPRB,0.66652E-03_JPRB, & |
1204 |
|
✗ |
& 0.59753E-03_JPRB,0.51826E-03_JPRB,0.41385E-03_JPRB,0.16772E-03_JPRB /) |
1205 |
|
|
KA(:, 3, 5, 6) = (/ & |
1206 |
|
|
& 0.64179E-03_JPRB,0.75306E-03_JPRB,0.77095E-03_JPRB,0.75074E-03_JPRB,0.70458E-03_JPRB, & |
1207 |
|
✗ |
& 0.63276E-03_JPRB,0.55157E-03_JPRB,0.44695E-03_JPRB,0.19067E-03_JPRB /) |
1208 |
|
|
KA(:, 4, 5, 6) = (/ & |
1209 |
|
|
& 0.67039E-03_JPRB,0.79634E-03_JPRB,0.81655E-03_JPRB,0.79420E-03_JPRB,0.74416E-03_JPRB, & |
1210 |
|
✗ |
& 0.67043E-03_JPRB,0.58781E-03_JPRB,0.48223E-03_JPRB,0.21651E-03_JPRB /) |
1211 |
|
|
KA(:, 5, 5, 6) = (/ & |
1212 |
|
|
& 0.69870E-03_JPRB,0.83972E-03_JPRB,0.86240E-03_JPRB,0.83794E-03_JPRB,0.78674E-03_JPRB, & |
1213 |
|
✗ |
& 0.71204E-03_JPRB,0.62768E-03_JPRB,0.51780E-03_JPRB,0.24414E-03_JPRB /) |
1214 |
|
|
KA(:, 1, 6, 6) = (/ & |
1215 |
|
|
& 0.49594E-03_JPRB,0.56319E-03_JPRB,0.57248E-03_JPRB,0.55950E-03_JPRB,0.52657E-03_JPRB, & |
1216 |
|
✗ |
& 0.47274E-03_JPRB,0.40631E-03_JPRB,0.31914E-03_JPRB,0.11737E-03_JPRB /) |
1217 |
|
|
KA(:, 2, 6, 6) = (/ & |
1218 |
|
|
& 0.51946E-03_JPRB,0.59932E-03_JPRB,0.61091E-03_JPRB,0.59626E-03_JPRB,0.56011E-03_JPRB, & |
1219 |
|
✗ |
& 0.50076E-03_JPRB,0.43158E-03_JPRB,0.34422E-03_JPRB,0.13452E-03_JPRB /) |
1220 |
|
|
KA(:, 3, 6, 6) = (/ & |
1221 |
|
|
& 0.54355E-03_JPRB,0.63601E-03_JPRB,0.65111E-03_JPRB,0.63466E-03_JPRB,0.59552E-03_JPRB, & |
1222 |
|
✗ |
& 0.53122E-03_JPRB,0.45996E-03_JPRB,0.37172E-03_JPRB,0.15179E-03_JPRB /) |
1223 |
|
|
KA(:, 4, 6, 6) = (/ & |
1224 |
|
|
& 0.56762E-03_JPRB,0.67321E-03_JPRB,0.69130E-03_JPRB,0.67433E-03_JPRB,0.63164E-03_JPRB, & |
1225 |
|
✗ |
& 0.56508E-03_JPRB,0.49145E-03_JPRB,0.39979E-03_JPRB,0.17118E-03_JPRB /) |
1226 |
|
|
KA(:, 5, 6, 6) = (/ & |
1227 |
|
|
& 0.59180E-03_JPRB,0.71065E-03_JPRB,0.73195E-03_JPRB,0.71355E-03_JPRB,0.66898E-03_JPRB, & |
1228 |
|
✗ |
& 0.60268E-03_JPRB,0.52617E-03_JPRB,0.43141E-03_JPRB,0.19263E-03_JPRB /) |
1229 |
|
|
KA(:, 1, 7, 6) = (/ & |
1230 |
|
|
& 0.41932E-03_JPRB,0.47346E-03_JPRB,0.47850E-03_JPRB,0.46519E-03_JPRB,0.43628E-03_JPRB, & |
1231 |
|
✗ |
& 0.39132E-03_JPRB,0.33641E-03_JPRB,0.26485E-03_JPRB,0.10000E-03_JPRB /) |
1232 |
|
|
KA(:, 2, 7, 6) = (/ & |
1233 |
|
|
& 0.43848E-03_JPRB,0.50411E-03_JPRB,0.51171E-03_JPRB,0.49803E-03_JPRB,0.46737E-03_JPRB, & |
1234 |
|
✗ |
& 0.41801E-03_JPRB,0.35878E-03_JPRB,0.28532E-03_JPRB,0.11408E-03_JPRB /) |
1235 |
|
|
KA(:, 3, 7, 6) = (/ & |
1236 |
|
|
& 0.45836E-03_JPRB,0.53506E-03_JPRB,0.54578E-03_JPRB,0.53230E-03_JPRB,0.49970E-03_JPRB, & |
1237 |
|
✗ |
& 0.44506E-03_JPRB,0.38306E-03_JPRB,0.30828E-03_JPRB,0.13001E-03_JPRB /) |
1238 |
|
|
KA(:, 4, 7, 6) = (/ & |
1239 |
|
|
& 0.47855E-03_JPRB,0.56639E-03_JPRB,0.58020E-03_JPRB,0.56722E-03_JPRB,0.53202E-03_JPRB, & |
1240 |
|
✗ |
& 0.47546E-03_JPRB,0.41064E-03_JPRB,0.33104E-03_JPRB,0.14676E-03_JPRB /) |
1241 |
|
|
KA(:, 5, 7, 6) = (/ & |
1242 |
|
|
& 0.49885E-03_JPRB,0.59805E-03_JPRB,0.61555E-03_JPRB,0.60152E-03_JPRB,0.56466E-03_JPRB, & |
1243 |
|
✗ |
& 0.50884E-03_JPRB,0.44071E-03_JPRB,0.35766E-03_JPRB,0.16471E-03_JPRB /) |
1244 |
|
|
KA(:, 1, 8, 6) = (/ & |
1245 |
|
|
& 0.35434E-03_JPRB,0.39784E-03_JPRB,0.40003E-03_JPRB,0.38643E-03_JPRB,0.36029E-03_JPRB, & |
1246 |
|
✗ |
& 0.32228E-03_JPRB,0.27705E-03_JPRB,0.21936E-03_JPRB,0.85304E-04_JPRB /) |
1247 |
|
|
KA(:, 2, 8, 6) = (/ & |
1248 |
|
|
& 0.36972E-03_JPRB,0.42325E-03_JPRB,0.42802E-03_JPRB,0.41467E-03_JPRB,0.38745E-03_JPRB, & |
1249 |
|
✗ |
& 0.34637E-03_JPRB,0.29590E-03_JPRB,0.23622E-03_JPRB,0.97535E-04_JPRB /) |
1250 |
|
|
KA(:, 3, 8, 6) = (/ & |
1251 |
|
|
& 0.38589E-03_JPRB,0.44905E-03_JPRB,0.45611E-03_JPRB,0.44402E-03_JPRB,0.41681E-03_JPRB, & |
1252 |
|
✗ |
& 0.37125E-03_JPRB,0.31793E-03_JPRB,0.25523E-03_JPRB,0.11156E-03_JPRB /) |
1253 |
|
|
|
1254 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART4',1,ZHOOK_HANDLE) |
1255 |
|
✗ |
END SUBROUTINE PART4 |
1256 |
|
|
|
1257 |
|
|
|
1258 |
|
✗ |
SUBROUTINE PART5 |
1259 |
|
|
|
1260 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1261 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART5',0,ZHOOK_HANDLE) |
1262 |
|
|
|
1263 |
|
|
|
1264 |
|
|
KA(:, 4, 8, 6) = (/ & |
1265 |
|
|
& 0.40282E-03_JPRB,0.47505E-03_JPRB,0.48489E-03_JPRB,0.47391E-03_JPRB,0.44440E-03_JPRB, & |
1266 |
|
✗ |
& 0.39797E-03_JPRB,0.34220E-03_JPRB,0.27395E-03_JPRB,0.12650E-03_JPRB /) |
1267 |
|
|
KA(:, 5, 8, 6) = (/ & |
1268 |
|
|
& 0.41971E-03_JPRB,0.50175E-03_JPRB,0.51511E-03_JPRB,0.50365E-03_JPRB,0.47246E-03_JPRB, & |
1269 |
|
✗ |
& 0.42646E-03_JPRB,0.36852E-03_JPRB,0.29705E-03_JPRB,0.14272E-03_JPRB /) |
1270 |
|
|
KA(:, 1, 9, 6) = (/ & |
1271 |
|
|
& 0.29829E-03_JPRB,0.33364E-03_JPRB,0.33392E-03_JPRB,0.32092E-03_JPRB,0.29738E-03_JPRB, & |
1272 |
|
✗ |
& 0.26469E-03_JPRB,0.22642E-03_JPRB,0.18017E-03_JPRB,0.77064E-04_JPRB /) |
1273 |
|
|
KA(:, 2, 9, 6) = (/ & |
1274 |
|
|
& 0.31054E-03_JPRB,0.35463E-03_JPRB,0.35704E-03_JPRB,0.34432E-03_JPRB,0.32083E-03_JPRB, & |
1275 |
|
✗ |
& 0.28575E-03_JPRB,0.24402E-03_JPRB,0.19441E-03_JPRB,0.87743E-04_JPRB /) |
1276 |
|
|
KA(:, 3, 9, 6) = (/ & |
1277 |
|
|
& 0.32389E-03_JPRB,0.37581E-03_JPRB,0.38023E-03_JPRB,0.36873E-03_JPRB,0.34562E-03_JPRB, & |
1278 |
|
✗ |
& 0.30799E-03_JPRB,0.26274E-03_JPRB,0.21037E-03_JPRB,0.99662E-04_JPRB /) |
1279 |
|
|
KA(:, 4, 9, 6) = (/ & |
1280 |
|
|
& 0.33808E-03_JPRB,0.39748E-03_JPRB,0.40404E-03_JPRB,0.39387E-03_JPRB,0.36968E-03_JPRB, & |
1281 |
|
✗ |
& 0.33141E-03_JPRB,0.28405E-03_JPRB,0.22647E-03_JPRB,0.11282E-03_JPRB /) |
1282 |
|
|
KA(:, 5, 9, 6) = (/ & |
1283 |
|
|
& 0.35231E-03_JPRB,0.41983E-03_JPRB,0.42961E-03_JPRB,0.41951E-03_JPRB,0.39352E-03_JPRB, & |
1284 |
|
✗ |
& 0.35528E-03_JPRB,0.30599E-03_JPRB,0.24648E-03_JPRB,0.12841E-03_JPRB /) |
1285 |
|
|
KA(:, 1,10, 6) = (/ & |
1286 |
|
|
& 0.25036E-03_JPRB,0.27999E-03_JPRB,0.27949E-03_JPRB,0.26793E-03_JPRB,0.24735E-03_JPRB, & |
1287 |
|
✗ |
& 0.21800E-03_JPRB,0.18604E-03_JPRB,0.14807E-03_JPRB,0.93146E-04_JPRB /) |
1288 |
|
|
KA(:, 2,10, 6) = (/ & |
1289 |
|
|
& 0.26009E-03_JPRB,0.29745E-03_JPRB,0.29870E-03_JPRB,0.28727E-03_JPRB,0.26656E-03_JPRB, & |
1290 |
|
✗ |
& 0.23674E-03_JPRB,0.20160E-03_JPRB,0.16012E-03_JPRB,0.10408E-03_JPRB /) |
1291 |
|
|
KA(:, 3,10, 6) = (/ & |
1292 |
|
|
& 0.27084E-03_JPRB,0.31508E-03_JPRB,0.31779E-03_JPRB,0.30720E-03_JPRB,0.28751E-03_JPRB, & |
1293 |
|
✗ |
& 0.25636E-03_JPRB,0.21818E-03_JPRB,0.17357E-03_JPRB,0.11611E-03_JPRB /) |
1294 |
|
|
KA(:, 4,10, 6) = (/ & |
1295 |
|
|
& 0.28251E-03_JPRB,0.33335E-03_JPRB,0.33759E-03_JPRB,0.32814E-03_JPRB,0.30785E-03_JPRB, & |
1296 |
|
✗ |
& 0.27625E-03_JPRB,0.23573E-03_JPRB,0.18761E-03_JPRB,0.12959E-03_JPRB /) |
1297 |
|
|
KA(:, 5,10, 6) = (/ & |
1298 |
|
|
& 0.29455E-03_JPRB,0.35211E-03_JPRB,0.35903E-03_JPRB,0.34997E-03_JPRB,0.32871E-03_JPRB, & |
1299 |
|
✗ |
& 0.29658E-03_JPRB,0.25454E-03_JPRB,0.20476E-03_JPRB,0.14404E-03_JPRB /) |
1300 |
|
|
KA(:, 1,11, 6) = (/ & |
1301 |
|
|
& 0.21327E-03_JPRB,0.24042E-03_JPRB,0.24026E-03_JPRB,0.23068E-03_JPRB,0.21276E-03_JPRB, & |
1302 |
|
✗ |
& 0.18665E-03_JPRB,0.15901E-03_JPRB,0.12570E-03_JPRB,0.94295E-04_JPRB /) |
1303 |
|
|
KA(:, 2,11, 6) = (/ & |
1304 |
|
|
& 0.22127E-03_JPRB,0.25493E-03_JPRB,0.25609E-03_JPRB,0.24693E-03_JPRB,0.22931E-03_JPRB, & |
1305 |
|
✗ |
& 0.20329E-03_JPRB,0.17265E-03_JPRB,0.13686E-03_JPRB,0.10535E-03_JPRB /) |
1306 |
|
|
KA(:, 3,11, 6) = (/ & |
1307 |
|
|
& 0.23042E-03_JPRB,0.26962E-03_JPRB,0.27233E-03_JPRB,0.26383E-03_JPRB,0.24677E-03_JPRB, & |
1308 |
|
✗ |
& 0.22030E-03_JPRB,0.18718E-03_JPRB,0.14788E-03_JPRB,0.11369E-03_JPRB /) |
1309 |
|
|
KA(:, 4,11, 6) = (/ & |
1310 |
|
|
& 0.24025E-03_JPRB,0.28500E-03_JPRB,0.28961E-03_JPRB,0.28171E-03_JPRB,0.26402E-03_JPRB, & |
1311 |
|
✗ |
& 0.23726E-03_JPRB,0.20232E-03_JPRB,0.16110E-03_JPRB,0.12526E-03_JPRB /) |
1312 |
|
|
KA(:, 5,11, 6) = (/ & |
1313 |
|
|
& 0.25035E-03_JPRB,0.30139E-03_JPRB,0.30818E-03_JPRB,0.30033E-03_JPRB,0.28246E-03_JPRB, & |
1314 |
|
✗ |
& 0.25541E-03_JPRB,0.21869E-03_JPRB,0.17592E-03_JPRB,0.13806E-03_JPRB /) |
1315 |
|
|
KA(:, 1,12, 6) = (/ & |
1316 |
|
|
& 0.18213E-03_JPRB,0.20563E-03_JPRB,0.20558E-03_JPRB,0.19744E-03_JPRB,0.18197E-03_JPRB, & |
1317 |
|
✗ |
& 0.15967E-03_JPRB,0.13562E-03_JPRB,0.10709E-03_JPRB,0.84300E-04_JPRB /) |
1318 |
|
|
KA(:, 2,12, 6) = (/ & |
1319 |
|
|
& 0.18873E-03_JPRB,0.21755E-03_JPRB,0.21877E-03_JPRB,0.21098E-03_JPRB,0.19617E-03_JPRB, & |
1320 |
|
✗ |
& 0.17419E-03_JPRB,0.14735E-03_JPRB,0.11726E-03_JPRB,0.96090E-04_JPRB /) |
1321 |
|
|
KA(:, 3,12, 6) = (/ & |
1322 |
|
|
& 0.19633E-03_JPRB,0.22994E-03_JPRB,0.23250E-03_JPRB,0.22538E-03_JPRB,0.21092E-03_JPRB, & |
1323 |
|
✗ |
& 0.18881E-03_JPRB,0.15987E-03_JPRB,0.12650E-03_JPRB,0.10477E-03_JPRB /) |
1324 |
|
|
KA(:, 4,12, 6) = (/ & |
1325 |
|
|
& 0.20445E-03_JPRB,0.24309E-03_JPRB,0.24729E-03_JPRB,0.24084E-03_JPRB,0.22613E-03_JPRB, & |
1326 |
|
✗ |
& 0.20371E-03_JPRB,0.17330E-03_JPRB,0.13785E-03_JPRB,0.11268E-03_JPRB /) |
1327 |
|
|
KA(:, 5,12, 6) = (/ & |
1328 |
|
|
& 0.21299E-03_JPRB,0.25719E-03_JPRB,0.26315E-03_JPRB,0.25711E-03_JPRB,0.24260E-03_JPRB, & |
1329 |
|
✗ |
& 0.21944E-03_JPRB,0.18764E-03_JPRB,0.15038E-03_JPRB,0.12367E-03_JPRB /) |
1330 |
|
|
KA(:, 1,13, 6) = (/ & |
1331 |
|
|
& 0.15527E-03_JPRB,0.17641E-03_JPRB,0.17566E-03_JPRB,0.16836E-03_JPRB,0.15534E-03_JPRB, & |
1332 |
|
✗ |
& 0.13636E-03_JPRB,0.11530E-03_JPRB,0.91307E-04_JPRB,0.70205E-04_JPRB /) |
1333 |
|
|
KA(:, 2,13, 6) = (/ & |
1334 |
|
|
& 0.16096E-03_JPRB,0.18612E-03_JPRB,0.18657E-03_JPRB,0.17973E-03_JPRB,0.16702E-03_JPRB, & |
1335 |
|
✗ |
& 0.14851E-03_JPRB,0.12550E-03_JPRB,0.99145E-04_JPRB,0.79984E-04_JPRB /) |
1336 |
|
|
KA(:, 3,13, 6) = (/ & |
1337 |
|
|
& 0.16748E-03_JPRB,0.19648E-03_JPRB,0.19822E-03_JPRB,0.19209E-03_JPRB,0.17957E-03_JPRB, & |
1338 |
|
✗ |
& 0.16107E-03_JPRB,0.13652E-03_JPRB,0.10753E-03_JPRB,0.86067E-04_JPRB /) |
1339 |
|
|
KA(:, 4,13, 6) = (/ & |
1340 |
|
|
& 0.17450E-03_JPRB,0.20751E-03_JPRB,0.21098E-03_JPRB,0.20534E-03_JPRB,0.19295E-03_JPRB, & |
1341 |
|
✗ |
& 0.17420E-03_JPRB,0.14816E-03_JPRB,0.11772E-03_JPRB,0.93252E-04_JPRB /) |
1342 |
|
|
KA(:, 5,13, 6) = (/ & |
1343 |
|
|
& 0.18233E-03_JPRB,0.21950E-03_JPRB,0.22442E-03_JPRB,0.21958E-03_JPRB,0.20754E-03_JPRB, & |
1344 |
|
✗ |
& 0.18842E-03_JPRB,0.16097E-03_JPRB,0.12851E-03_JPRB,0.10278E-03_JPRB /) |
1345 |
|
|
KA(:, 1, 1, 7) = (/ & |
1346 |
|
|
& 0.23852E-02_JPRB,0.24955E-02_JPRB,0.25247E-02_JPRB,0.24784E-02_JPRB,0.23525E-02_JPRB, & |
1347 |
|
✗ |
& 0.21437E-02_JPRB,0.18704E-02_JPRB,0.15353E-02_JPRB,0.99116E-03_JPRB /) |
1348 |
|
|
KA(:, 2, 1, 7) = (/ & |
1349 |
|
|
& 0.23950E-02_JPRB,0.25560E-02_JPRB,0.26150E-02_JPRB,0.25851E-02_JPRB,0.24612E-02_JPRB, & |
1350 |
|
✗ |
& 0.22632E-02_JPRB,0.20004E-02_JPRB,0.16585E-02_JPRB,0.11087E-02_JPRB /) |
1351 |
|
|
KA(:, 3, 1, 7) = (/ & |
1352 |
|
|
& 0.24020E-02_JPRB,0.26226E-02_JPRB,0.27112E-02_JPRB,0.26940E-02_JPRB,0.25772E-02_JPRB, & |
1353 |
|
✗ |
& 0.23915E-02_JPRB,0.21332E-02_JPRB,0.17859E-02_JPRB,0.12435E-02_JPRB /) |
1354 |
|
|
KA(:, 4, 1, 7) = (/ & |
1355 |
|
|
& 0.24093E-02_JPRB,0.26930E-02_JPRB,0.28096E-02_JPRB,0.28038E-02_JPRB,0.27017E-02_JPRB, & |
1356 |
|
✗ |
& 0.25227E-02_JPRB,0.22696E-02_JPRB,0.19198E-02_JPRB,0.13912E-02_JPRB /) |
1357 |
|
|
KA(:, 5, 1, 7) = (/ & |
1358 |
|
|
& 0.24224E-02_JPRB,0.27647E-02_JPRB,0.29093E-02_JPRB,0.29173E-02_JPRB,0.28299E-02_JPRB, & |
1359 |
|
✗ |
& 0.26579E-02_JPRB,0.24103E-02_JPRB,0.20612E-02_JPRB,0.15535E-02_JPRB /) |
1360 |
|
|
KA(:, 1, 2, 7) = (/ & |
1361 |
|
|
& 0.20974E-02_JPRB,0.22118E-02_JPRB,0.22296E-02_JPRB,0.21778E-02_JPRB,0.20625E-02_JPRB, & |
1362 |
|
✗ |
& 0.18815E-02_JPRB,0.16530E-02_JPRB,0.13562E-02_JPRB,0.82141E-03_JPRB /) |
1363 |
|
|
KA(:, 2, 2, 7) = (/ & |
1364 |
|
|
& 0.21046E-02_JPRB,0.22702E-02_JPRB,0.23143E-02_JPRB,0.22813E-02_JPRB,0.21720E-02_JPRB, & |
1365 |
|
✗ |
& 0.19971E-02_JPRB,0.17712E-02_JPRB,0.14678E-02_JPRB,0.93003E-03_JPRB /) |
1366 |
|
|
KA(:, 3, 2, 7) = (/ & |
1367 |
|
|
& 0.21127E-02_JPRB,0.23326E-02_JPRB,0.24062E-02_JPRB,0.23885E-02_JPRB,0.22861E-02_JPRB, & |
1368 |
|
✗ |
& 0.21193E-02_JPRB,0.18939E-02_JPRB,0.15834E-02_JPRB,0.10463E-02_JPRB /) |
1369 |
|
|
KA(:, 4, 2, 7) = (/ & |
1370 |
|
|
& 0.21272E-02_JPRB,0.23971E-02_JPRB,0.25002E-02_JPRB,0.24977E-02_JPRB,0.24074E-02_JPRB, & |
1371 |
|
✗ |
& 0.22461E-02_JPRB,0.20177E-02_JPRB,0.17030E-02_JPRB,0.11732E-02_JPRB /) |
1372 |
|
|
KA(:, 5, 2, 7) = (/ & |
1373 |
|
|
& 0.21483E-02_JPRB,0.24652E-02_JPRB,0.25947E-02_JPRB,0.26138E-02_JPRB,0.25341E-02_JPRB, & |
1374 |
|
✗ |
& 0.23755E-02_JPRB,0.21449E-02_JPRB,0.18299E-02_JPRB,0.13107E-02_JPRB /) |
1375 |
|
|
KA(:, 1, 3, 7) = (/ & |
1376 |
|
|
& 0.18244E-02_JPRB,0.19320E-02_JPRB,0.19387E-02_JPRB,0.18795E-02_JPRB,0.17712E-02_JPRB, & |
1377 |
|
✗ |
& 0.16188E-02_JPRB,0.14258E-02_JPRB,0.11664E-02_JPRB,0.66404E-03_JPRB /) |
1378 |
|
|
KA(:, 2, 3, 7) = (/ & |
1379 |
|
|
& 0.18322E-02_JPRB,0.19846E-02_JPRB,0.20150E-02_JPRB,0.19741E-02_JPRB,0.18746E-02_JPRB, & |
1380 |
|
✗ |
& 0.17292E-02_JPRB,0.15311E-02_JPRB,0.12668E-02_JPRB,0.75772E-03_JPRB /) |
1381 |
|
|
KA(:, 3, 3, 7) = (/ & |
1382 |
|
|
& 0.18451E-02_JPRB,0.20412E-02_JPRB,0.20960E-02_JPRB,0.20746E-02_JPRB,0.19871E-02_JPRB, & |
1383 |
|
✗ |
& 0.18444E-02_JPRB,0.16430E-02_JPRB,0.13711E-02_JPRB,0.85470E-03_JPRB /) |
1384 |
|
|
KA(:, 4, 3, 7) = (/ & |
1385 |
|
|
& 0.18657E-02_JPRB,0.21020E-02_JPRB,0.21815E-02_JPRB,0.21798E-02_JPRB,0.21034E-02_JPRB, & |
1386 |
|
✗ |
& 0.19629E-02_JPRB,0.17571E-02_JPRB,0.14786E-02_JPRB,0.95834E-03_JPRB /) |
1387 |
|
|
KA(:, 5, 3, 7) = (/ & |
1388 |
|
|
& 0.18943E-02_JPRB,0.21674E-02_JPRB,0.22717E-02_JPRB,0.22915E-02_JPRB,0.22239E-02_JPRB, & |
1389 |
|
✗ |
& 0.20844E-02_JPRB,0.18739E-02_JPRB,0.15906E-02_JPRB,0.10775E-02_JPRB /) |
1390 |
|
|
KA(:, 1, 4, 7) = (/ & |
1391 |
|
|
& 0.15758E-02_JPRB,0.16711E-02_JPRB,0.16675E-02_JPRB,0.16043E-02_JPRB,0.15088E-02_JPRB, & |
1392 |
|
✗ |
& 0.13785E-02_JPRB,0.12140E-02_JPRB,0.98780E-03_JPRB,0.53258E-03_JPRB /) |
1393 |
|
|
KA(:, 2, 4, 7) = (/ & |
1394 |
|
|
& 0.15867E-02_JPRB,0.17169E-02_JPRB,0.17338E-02_JPRB,0.16891E-02_JPRB,0.16022E-02_JPRB, & |
1395 |
|
✗ |
& 0.14807E-02_JPRB,0.13108E-02_JPRB,0.10774E-02_JPRB,0.61127E-03_JPRB /) |
1396 |
|
|
KA(:, 3, 4, 7) = (/ & |
1397 |
|
|
& 0.16043E-02_JPRB,0.17687E-02_JPRB,0.18047E-02_JPRB,0.17788E-02_JPRB,0.17054E-02_JPRB, & |
1398 |
|
✗ |
& 0.15869E-02_JPRB,0.14121E-02_JPRB,0.11700E-02_JPRB,0.69092E-03_JPRB /) |
1399 |
|
|
KA(:, 4, 4, 7) = (/ & |
1400 |
|
|
& 0.16308E-02_JPRB,0.18263E-02_JPRB,0.18817E-02_JPRB,0.18741E-02_JPRB,0.18139E-02_JPRB, & |
1401 |
|
✗ |
& 0.16955E-02_JPRB,0.15162E-02_JPRB,0.12673E-02_JPRB,0.77859E-03_JPRB /) |
1402 |
|
|
KA(:, 5, 4, 7) = (/ & |
1403 |
|
|
& 0.16631E-02_JPRB,0.18894E-02_JPRB,0.19653E-02_JPRB,0.19764E-02_JPRB,0.19240E-02_JPRB, & |
1404 |
|
✗ |
& 0.18069E-02_JPRB,0.16237E-02_JPRB,0.13697E-02_JPRB,0.87657E-03_JPRB /) |
1405 |
|
|
KA(:, 1, 5, 7) = (/ & |
1406 |
|
|
& 0.13575E-02_JPRB,0.14376E-02_JPRB,0.14238E-02_JPRB,0.13660E-02_JPRB,0.12806E-02_JPRB, & |
1407 |
|
✗ |
& 0.11664E-02_JPRB,0.10231E-02_JPRB,0.82794E-03_JPRB,0.42595E-03_JPRB /) |
1408 |
|
|
KA(:, 2, 5, 7) = (/ & |
1409 |
|
|
& 0.13711E-02_JPRB,0.14787E-02_JPRB,0.14807E-02_JPRB,0.14369E-02_JPRB,0.13637E-02_JPRB, & |
1410 |
|
✗ |
& 0.12570E-02_JPRB,0.11125E-02_JPRB,0.90729E-03_JPRB,0.48990E-03_JPRB /) |
1411 |
|
|
KA(:, 3, 5, 7) = (/ & |
1412 |
|
|
& 0.13932E-02_JPRB,0.15262E-02_JPRB,0.15434E-02_JPRB,0.15158E-02_JPRB,0.14536E-02_JPRB, & |
1413 |
|
✗ |
& 0.13534E-02_JPRB,0.12033E-02_JPRB,0.99132E-03_JPRB,0.55848E-03_JPRB /) |
1414 |
|
|
KA(:, 4, 5, 7) = (/ & |
1415 |
|
|
& 0.14217E-02_JPRB,0.15804E-02_JPRB,0.16130E-02_JPRB,0.16009E-02_JPRB,0.15482E-02_JPRB, & |
1416 |
|
✗ |
& 0.14537E-02_JPRB,0.12991E-02_JPRB,0.10796E-02_JPRB,0.63246E-03_JPRB /) |
1417 |
|
|
KA(:, 5, 5, 7) = (/ & |
1418 |
|
|
& 0.14548E-02_JPRB,0.16406E-02_JPRB,0.16899E-02_JPRB,0.16924E-02_JPRB,0.16473E-02_JPRB, & |
1419 |
|
✗ |
& 0.15538E-02_JPRB,0.13988E-02_JPRB,0.11736E-02_JPRB,0.71422E-03_JPRB /) |
1420 |
|
|
KA(:, 1, 6, 7) = (/ & |
1421 |
|
|
& 0.11657E-02_JPRB,0.12310E-02_JPRB,0.12114E-02_JPRB,0.11593E-02_JPRB,0.10807E-02_JPRB, & |
1422 |
|
✗ |
& 0.97870E-03_JPRB,0.85220E-03_JPRB,0.68679E-03_JPRB,0.33278E-03_JPRB /) |
1423 |
|
|
KA(:, 2, 6, 7) = (/ & |
1424 |
|
|
& 0.11817E-02_JPRB,0.12689E-02_JPRB,0.12606E-02_JPRB,0.12200E-02_JPRB,0.11515E-02_JPRB, & |
1425 |
|
✗ |
& 0.10575E-02_JPRB,0.93300E-03_JPRB,0.75653E-03_JPRB,0.38390E-03_JPRB /) |
1426 |
|
|
KA(:, 3, 6, 7) = (/ & |
1427 |
|
|
& 0.12052E-02_JPRB,0.13132E-02_JPRB,0.13166E-02_JPRB,0.12868E-02_JPRB,0.12281E-02_JPRB, & |
1428 |
|
✗ |
& 0.11419E-02_JPRB,0.10150E-02_JPRB,0.83054E-03_JPRB,0.44291E-03_JPRB /) |
1429 |
|
|
KA(:, 4, 6, 7) = (/ & |
1430 |
|
|
& 0.12337E-02_JPRB,0.13638E-02_JPRB,0.13800E-02_JPRB,0.13608E-02_JPRB,0.13105E-02_JPRB, & |
1431 |
|
✗ |
& 0.12294E-02_JPRB,0.11010E-02_JPRB,0.91218E-03_JPRB,0.50714E-03_JPRB /) |
1432 |
|
|
KA(:, 5, 6, 7) = (/ & |
1433 |
|
|
& 0.12657E-02_JPRB,0.14200E-02_JPRB,0.14498E-02_JPRB,0.14421E-02_JPRB,0.13994E-02_JPRB, & |
1434 |
|
✗ |
& 0.13201E-02_JPRB,0.11915E-02_JPRB,0.99447E-03_JPRB,0.57759E-03_JPRB /) |
1435 |
|
|
KA(:, 1, 7, 7) = (/ & |
1436 |
|
|
& 0.99495E-03_JPRB,0.10489E-02_JPRB,0.10293E-02_JPRB,0.98184E-03_JPRB,0.91156E-03_JPRB, & |
1437 |
|
✗ |
& 0.82083E-03_JPRB,0.70758E-03_JPRB,0.56387E-03_JPRB,0.26025E-03_JPRB /) |
1438 |
|
|
KA(:, 2, 7, 7) = (/ & |
1439 |
|
|
& 0.10122E-02_JPRB,0.10837E-02_JPRB,0.10724E-02_JPRB,0.10344E-02_JPRB,0.96982E-03_JPRB, & |
1440 |
|
✗ |
& 0.88589E-03_JPRB,0.77530E-03_JPRB,0.62605E-03_JPRB,0.29914E-03_JPRB /) |
1441 |
|
|
KA(:, 3, 7, 7) = (/ & |
1442 |
|
|
& 0.10351E-02_JPRB,0.11253E-02_JPRB,0.11236E-02_JPRB,0.10922E-02_JPRB,0.10352E-02_JPRB, & |
1443 |
|
✗ |
& 0.95724E-03_JPRB,0.84889E-03_JPRB,0.69076E-03_JPRB,0.34305E-03_JPRB /) |
1444 |
|
|
KA(:, 4, 7, 7) = (/ & |
1445 |
|
|
& 0.10622E-02_JPRB,0.11721E-02_JPRB,0.11813E-02_JPRB,0.11564E-02_JPRB,0.11065E-02_JPRB, & |
1446 |
|
✗ |
& 0.10331E-02_JPRB,0.92494E-03_JPRB,0.76297E-03_JPRB,0.39175E-03_JPRB /) |
1447 |
|
|
KA(:, 5, 7, 7) = (/ & |
1448 |
|
|
& 0.10903E-02_JPRB,0.12244E-02_JPRB,0.12441E-02_JPRB,0.12287E-02_JPRB,0.11845E-02_JPRB, & |
1449 |
|
✗ |
& 0.11129E-02_JPRB,0.10035E-02_JPRB,0.83648E-03_JPRB,0.44712E-03_JPRB /) |
1450 |
|
|
KA(:, 1, 8, 7) = (/ & |
1451 |
|
|
& 0.84532E-03_JPRB,0.88892E-03_JPRB,0.86965E-03_JPRB,0.82727E-03_JPRB,0.76674E-03_JPRB, & |
1452 |
|
✗ |
& 0.68807E-03_JPRB,0.58679E-03_JPRB,0.46179E-03_JPRB,0.21931E-03_JPRB /) |
1453 |
|
|
KA(:, 2, 8, 7) = (/ & |
1454 |
|
|
& 0.86227E-03_JPRB,0.92051E-03_JPRB,0.90826E-03_JPRB,0.87315E-03_JPRB,0.81675E-03_JPRB, & |
1455 |
|
✗ |
& 0.74173E-03_JPRB,0.64502E-03_JPRB,0.51436E-03_JPRB,0.25538E-03_JPRB /) |
1456 |
|
|
KA(:, 3, 8, 7) = (/ & |
1457 |
|
|
& 0.88387E-03_JPRB,0.95827E-03_JPRB,0.95473E-03_JPRB,0.92480E-03_JPRB,0.87135E-03_JPRB, & |
1458 |
|
✗ |
& 0.80090E-03_JPRB,0.70594E-03_JPRB,0.57141E-03_JPRB,0.29275E-03_JPRB /) |
1459 |
|
|
KA(:, 4, 8, 7) = (/ & |
1460 |
|
|
& 0.90659E-03_JPRB,0.10014E-02_JPRB,0.10072E-02_JPRB,0.98186E-03_JPRB,0.93348E-03_JPRB, & |
1461 |
|
✗ |
& 0.86582E-03_JPRB,0.77148E-03_JPRB,0.63431E-03_JPRB,0.33522E-03_JPRB /) |
1462 |
|
|
KA(:, 5, 8, 7) = (/ & |
1463 |
|
|
& 0.93066E-03_JPRB,0.10477E-02_JPRB,0.10640E-02_JPRB,0.10456E-02_JPRB,0.10022E-02_JPRB, & |
1464 |
|
✗ |
& 0.93597E-03_JPRB,0.84005E-03_JPRB,0.69831E-03_JPRB,0.38214E-03_JPRB /) |
1465 |
|
|
KA(:, 1, 9, 7) = (/ & |
1466 |
|
|
& 0.71681E-03_JPRB,0.75151E-03_JPRB,0.73165E-03_JPRB,0.69303E-03_JPRB,0.64106E-03_JPRB, & |
1467 |
|
✗ |
& 0.57326E-03_JPRB,0.48762E-03_JPRB,0.37724E-03_JPRB,0.19963E-03_JPRB /) |
1468 |
|
|
KA(:, 2, 9, 7) = (/ & |
1469 |
|
|
& 0.73278E-03_JPRB,0.77936E-03_JPRB,0.76580E-03_JPRB,0.73272E-03_JPRB,0.68369E-03_JPRB, & |
1470 |
|
✗ |
& 0.61851E-03_JPRB,0.53463E-03_JPRB,0.42190E-03_JPRB,0.23258E-03_JPRB /) |
1471 |
|
|
KA(:, 3, 9, 7) = (/ & |
1472 |
|
|
& 0.75147E-03_JPRB,0.81327E-03_JPRB,0.80692E-03_JPRB,0.77827E-03_JPRB,0.73101E-03_JPRB, & |
1473 |
|
✗ |
& 0.66869E-03_JPRB,0.58582E-03_JPRB,0.47030E-03_JPRB,0.26770E-03_JPRB /) |
1474 |
|
|
KA(:, 4, 9, 7) = (/ & |
1475 |
|
|
& 0.77011E-03_JPRB,0.85035E-03_JPRB,0.85331E-03_JPRB,0.82912E-03_JPRB,0.78414E-03_JPRB, & |
1476 |
|
✗ |
& 0.72425E-03_JPRB,0.64047E-03_JPRB,0.52434E-03_JPRB,0.30603E-03_JPRB /) |
1477 |
|
|
KA(:, 5, 9, 7) = (/ & |
1478 |
|
|
& 0.79031E-03_JPRB,0.89033E-03_JPRB,0.90223E-03_JPRB,0.88462E-03_JPRB,0.84489E-03_JPRB, & |
1479 |
|
✗ |
& 0.78478E-03_JPRB,0.70032E-03_JPRB,0.57826E-03_JPRB,0.34848E-03_JPRB /) |
1480 |
|
|
KA(:, 1,10, 7) = (/ & |
1481 |
|
|
& 0.60860E-03_JPRB,0.63631E-03_JPRB,0.61722E-03_JPRB,0.58182E-03_JPRB,0.53631E-03_JPRB, & |
1482 |
|
✗ |
& 0.47875E-03_JPRB,0.40598E-03_JPRB,0.31001E-03_JPRB,0.21716E-03_JPRB /) |
1483 |
|
|
KA(:, 2,10, 7) = (/ & |
1484 |
|
|
& 0.62300E-03_JPRB,0.66096E-03_JPRB,0.64723E-03_JPRB,0.61624E-03_JPRB,0.57283E-03_JPRB, & |
1485 |
|
✗ |
& 0.51614E-03_JPRB,0.44515E-03_JPRB,0.34783E-03_JPRB,0.24030E-03_JPRB /) |
1486 |
|
|
KA(:, 3,10, 7) = (/ & |
1487 |
|
|
& 0.63811E-03_JPRB,0.69041E-03_JPRB,0.68320E-03_JPRB,0.65609E-03_JPRB,0.61386E-03_JPRB, & |
1488 |
|
✗ |
& 0.55902E-03_JPRB,0.48770E-03_JPRB,0.38933E-03_JPRB,0.26729E-03_JPRB /) |
1489 |
|
|
KA(:, 4,10, 7) = (/ & |
1490 |
|
|
& 0.65360E-03_JPRB,0.72213E-03_JPRB,0.72254E-03_JPRB,0.70011E-03_JPRB,0.66034E-03_JPRB, & |
1491 |
|
✗ |
& 0.60659E-03_JPRB,0.53507E-03_JPRB,0.43477E-03_JPRB,0.29849E-03_JPRB /) |
1492 |
|
|
KA(:, 5,10, 7) = (/ & |
1493 |
|
|
& 0.67038E-03_JPRB,0.75665E-03_JPRB,0.76418E-03_JPRB,0.74727E-03_JPRB,0.71207E-03_JPRB, & |
1494 |
|
✗ |
& 0.65924E-03_JPRB,0.58660E-03_JPRB,0.48108E-03_JPRB,0.33464E-03_JPRB /) |
1495 |
|
|
KA(:, 1,11, 7) = (/ & |
1496 |
|
|
& 0.52185E-03_JPRB,0.54797E-03_JPRB,0.53190E-03_JPRB,0.50128E-03_JPRB,0.46230E-03_JPRB, & |
1497 |
|
✗ |
& 0.41291E-03_JPRB,0.35086E-03_JPRB,0.26843E-03_JPRB,0.22407E-03_JPRB /) |
1498 |
|
|
KA(:, 2,11, 7) = (/ & |
1499 |
|
|
& 0.53416E-03_JPRB,0.57111E-03_JPRB,0.56029E-03_JPRB,0.53286E-03_JPRB,0.49524E-03_JPRB, & |
1500 |
|
✗ |
& 0.44633E-03_JPRB,0.38530E-03_JPRB,0.30138E-03_JPRB,0.24793E-03_JPRB /) |
1501 |
|
|
KA(:, 3,11, 7) = (/ & |
1502 |
|
|
& 0.54635E-03_JPRB,0.59685E-03_JPRB,0.59183E-03_JPRB,0.56852E-03_JPRB,0.53236E-03_JPRB, & |
1503 |
|
✗ |
& 0.48455E-03_JPRB,0.42287E-03_JPRB,0.33910E-03_JPRB,0.27073E-03_JPRB /) |
1504 |
|
|
KA(:, 4,11, 7) = (/ & |
1505 |
|
|
& 0.55941E-03_JPRB,0.62493E-03_JPRB,0.62582E-03_JPRB,0.60673E-03_JPRB,0.57348E-03_JPRB, & |
1506 |
|
✗ |
& 0.52713E-03_JPRB,0.46523E-03_JPRB,0.37861E-03_JPRB,0.29520E-03_JPRB /) |
1507 |
|
|
KA(:, 5,11, 7) = (/ & |
1508 |
|
|
& 0.57459E-03_JPRB,0.65537E-03_JPRB,0.66217E-03_JPRB,0.64854E-03_JPRB,0.61857E-03_JPRB, & |
1509 |
|
✗ |
& 0.57343E-03_JPRB,0.51159E-03_JPRB,0.41997E-03_JPRB,0.32408E-03_JPRB /) |
1510 |
|
|
KA(:, 1,12, 7) = (/ & |
1511 |
|
|
& 0.44547E-03_JPRB,0.47205E-03_JPRB,0.45856E-03_JPRB,0.43259E-03_JPRB,0.39885E-03_JPRB, & |
1512 |
|
✗ |
& 0.35629E-03_JPRB,0.30273E-03_JPRB,0.23099E-03_JPRB,0.20507E-03_JPRB /) |
1513 |
|
|
KA(:, 2,12, 7) = (/ & |
1514 |
|
|
& 0.45530E-03_JPRB,0.49200E-03_JPRB,0.48355E-03_JPRB,0.46058E-03_JPRB,0.42831E-03_JPRB, & |
1515 |
|
✗ |
& 0.38615E-03_JPRB,0.33301E-03_JPRB,0.25970E-03_JPRB,0.22582E-03_JPRB /) |
1516 |
|
|
KA(:, 3,12, 7) = (/ & |
1517 |
|
|
& 0.46565E-03_JPRB,0.51443E-03_JPRB,0.51077E-03_JPRB,0.49108E-03_JPRB,0.46067E-03_JPRB, & |
1518 |
|
✗ |
& 0.41962E-03_JPRB,0.36657E-03_JPRB,0.29355E-03_JPRB,0.24853E-03_JPRB /) |
1519 |
|
|
KA(:, 4,12, 7) = (/ & |
1520 |
|
|
& 0.47732E-03_JPRB,0.53905E-03_JPRB,0.54027E-03_JPRB,0.52415E-03_JPRB,0.49634E-03_JPRB, & |
1521 |
|
✗ |
& 0.45650E-03_JPRB,0.40422E-03_JPRB,0.32887E-03_JPRB,0.26943E-03_JPRB /) |
1522 |
|
|
KA(:, 5,12, 7) = (/ & |
1523 |
|
|
& 0.49131E-03_JPRB,0.56624E-03_JPRB,0.57259E-03_JPRB,0.56091E-03_JPRB,0.53532E-03_JPRB, & |
1524 |
|
✗ |
& 0.49724E-03_JPRB,0.44494E-03_JPRB,0.36671E-03_JPRB,0.29370E-03_JPRB /) |
1525 |
|
|
KA(:, 1,13, 7) = (/ & |
1526 |
|
|
& 0.37861E-03_JPRB,0.40433E-03_JPRB,0.39425E-03_JPRB,0.37277E-03_JPRB,0.34384E-03_JPRB, & |
1527 |
|
✗ |
& 0.30718E-03_JPRB,0.26082E-03_JPRB,0.19813E-03_JPRB,0.17021E-03_JPRB /) |
1528 |
|
|
KA(:, 2,13, 7) = (/ & |
1529 |
|
|
& 0.38646E-03_JPRB,0.42180E-03_JPRB,0.41569E-03_JPRB,0.39676E-03_JPRB,0.36941E-03_JPRB, & |
1530 |
|
✗ |
& 0.33370E-03_JPRB,0.28746E-03_JPRB,0.22445E-03_JPRB,0.18768E-03_JPRB /) |
1531 |
|
|
KA(:, 3,13, 7) = (/ & |
1532 |
|
|
& 0.39522E-03_JPRB,0.44150E-03_JPRB,0.43928E-03_JPRB,0.42293E-03_JPRB,0.39746E-03_JPRB, & |
1533 |
|
✗ |
& 0.36268E-03_JPRB,0.31709E-03_JPRB,0.25391E-03_JPRB,0.20463E-03_JPRB /) |
1534 |
|
|
KA(:, 4,13, 7) = (/ & |
1535 |
|
|
& 0.40576E-03_JPRB,0.46362E-03_JPRB,0.46497E-03_JPRB,0.45178E-03_JPRB,0.42852E-03_JPRB, & |
1536 |
|
✗ |
& 0.39486E-03_JPRB,0.34992E-03_JPRB,0.28472E-03_JPRB,0.22430E-03_JPRB /) |
1537 |
|
|
KA(:, 5,13, 7) = (/ & |
1538 |
|
|
& 0.41810E-03_JPRB,0.48813E-03_JPRB,0.49424E-03_JPRB,0.48434E-03_JPRB,0.46280E-03_JPRB, & |
1539 |
|
✗ |
& 0.43027E-03_JPRB,0.38540E-03_JPRB,0.31863E-03_JPRB,0.24541E-03_JPRB /) |
1540 |
|
|
KA(:, 1, 1, 8) = (/ & |
1541 |
|
|
& 0.52571E-02_JPRB,0.51649E-02_JPRB,0.50998E-02_JPRB,0.49978E-02_JPRB,0.48299E-02_JPRB, & |
1542 |
|
✗ |
& 0.45478E-02_JPRB,0.41071E-02_JPRB,0.34884E-02_JPRB,0.27402E-02_JPRB /) |
1543 |
|
|
KA(:, 2, 1, 8) = (/ & |
1544 |
|
|
& 0.51967E-02_JPRB,0.52277E-02_JPRB,0.52437E-02_JPRB,0.52099E-02_JPRB,0.50894E-02_JPRB, & |
1545 |
|
✗ |
& 0.48424E-02_JPRB,0.44165E-02_JPRB,0.38421E-02_JPRB,0.31643E-02_JPRB /) |
1546 |
|
|
KA(:, 3, 1, 8) = (/ & |
1547 |
|
|
& 0.51548E-02_JPRB,0.53047E-02_JPRB,0.54023E-02_JPRB,0.54271E-02_JPRB,0.53544E-02_JPRB, & |
1548 |
|
✗ |
& 0.51370E-02_JPRB,0.47457E-02_JPRB,0.42178E-02_JPRB,0.36142E-02_JPRB /) |
1549 |
|
|
KA(:, 4, 1, 8) = (/ & |
1550 |
|
|
& 0.51293E-02_JPRB,0.53942E-02_JPRB,0.55672E-02_JPRB,0.56512E-02_JPRB,0.56201E-02_JPRB, & |
1551 |
|
✗ |
& 0.54409E-02_JPRB,0.50927E-02_JPRB,0.46186E-02_JPRB,0.40998E-02_JPRB /) |
1552 |
|
|
|
1553 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART5',1,ZHOOK_HANDLE) |
1554 |
|
✗ |
END SUBROUTINE PART5 |
1555 |
|
|
|
1556 |
|
|
|
1557 |
|
✗ |
SUBROUTINE PART6 |
1558 |
|
|
|
1559 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1560 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART6',0,ZHOOK_HANDLE) |
1561 |
|
|
|
1562 |
|
|
|
1563 |
|
|
KA(:, 5, 1, 8) = (/ & |
1564 |
|
|
& 0.51178E-02_JPRB,0.54996E-02_JPRB,0.57406E-02_JPRB,0.58798E-02_JPRB,0.58932E-02_JPRB, & |
1565 |
|
✗ |
& 0.57606E-02_JPRB,0.54613E-02_JPRB,0.50399E-02_JPRB,0.46100E-02_JPRB /) |
1566 |
|
|
KA(:, 1, 2, 8) = (/ & |
1567 |
|
|
& 0.47778E-02_JPRB,0.47398E-02_JPRB,0.47115E-02_JPRB,0.46169E-02_JPRB,0.44426E-02_JPRB, & |
1568 |
|
✗ |
& 0.41630E-02_JPRB,0.37511E-02_JPRB,0.31426E-02_JPRB,0.23122E-02_JPRB /) |
1569 |
|
|
KA(:, 2, 2, 8) = (/ & |
1570 |
|
|
& 0.47384E-02_JPRB,0.48111E-02_JPRB,0.48532E-02_JPRB,0.48144E-02_JPRB,0.46755E-02_JPRB, & |
1571 |
|
✗ |
& 0.44342E-02_JPRB,0.40397E-02_JPRB,0.34599E-02_JPRB,0.26698E-02_JPRB /) |
1572 |
|
|
KA(:, 3, 2, 8) = (/ & |
1573 |
|
|
& 0.47181E-02_JPRB,0.49025E-02_JPRB,0.50071E-02_JPRB,0.50151E-02_JPRB,0.49194E-02_JPRB, & |
1574 |
|
✗ |
& 0.47085E-02_JPRB,0.43402E-02_JPRB,0.37956E-02_JPRB,0.30630E-02_JPRB /) |
1575 |
|
|
KA(:, 4, 2, 8) = (/ & |
1576 |
|
|
& 0.47137E-02_JPRB,0.50070E-02_JPRB,0.51691E-02_JPRB,0.52245E-02_JPRB,0.51706E-02_JPRB, & |
1577 |
|
✗ |
& 0.49959E-02_JPRB,0.46583E-02_JPRB,0.41574E-02_JPRB,0.34865E-02_JPRB /) |
1578 |
|
|
KA(:, 5, 2, 8) = (/ & |
1579 |
|
|
& 0.47212E-02_JPRB,0.51234E-02_JPRB,0.53397E-02_JPRB,0.54379E-02_JPRB,0.54276E-02_JPRB, & |
1580 |
|
✗ |
& 0.52983E-02_JPRB,0.49978E-02_JPRB,0.45412E-02_JPRB,0.39357E-02_JPRB /) |
1581 |
|
|
KA(:, 1, 3, 8) = (/ & |
1582 |
|
|
& 0.42971E-02_JPRB,0.42851E-02_JPRB,0.42729E-02_JPRB,0.41707E-02_JPRB,0.39926E-02_JPRB, & |
1583 |
|
✗ |
& 0.37146E-02_JPRB,0.33264E-02_JPRB,0.27717E-02_JPRB,0.18852E-02_JPRB /) |
1584 |
|
|
KA(:, 2, 3, 8) = (/ & |
1585 |
|
|
& 0.42740E-02_JPRB,0.43647E-02_JPRB,0.44079E-02_JPRB,0.43562E-02_JPRB,0.42040E-02_JPRB, & |
1586 |
|
✗ |
& 0.39559E-02_JPRB,0.35908E-02_JPRB,0.30443E-02_JPRB,0.21816E-02_JPRB /) |
1587 |
|
|
KA(:, 3, 3, 8) = (/ & |
1588 |
|
|
& 0.42703E-02_JPRB,0.44650E-02_JPRB,0.45616E-02_JPRB,0.45425E-02_JPRB,0.44233E-02_JPRB, & |
1589 |
|
✗ |
& 0.42066E-02_JPRB,0.38676E-02_JPRB,0.33396E-02_JPRB,0.25126E-02_JPRB /) |
1590 |
|
|
KA(:, 4, 3, 8) = (/ & |
1591 |
|
|
& 0.42812E-02_JPRB,0.45806E-02_JPRB,0.47230E-02_JPRB,0.47371E-02_JPRB,0.46519E-02_JPRB, & |
1592 |
|
✗ |
& 0.44691E-02_JPRB,0.41620E-02_JPRB,0.36586E-02_JPRB,0.28704E-02_JPRB /) |
1593 |
|
|
KA(:, 5, 3, 8) = (/ & |
1594 |
|
|
& 0.43030E-02_JPRB,0.47042E-02_JPRB,0.48922E-02_JPRB,0.49377E-02_JPRB,0.48939E-02_JPRB, & |
1595 |
|
✗ |
& 0.47477E-02_JPRB,0.44742E-02_JPRB,0.39985E-02_JPRB,0.32501E-02_JPRB /) |
1596 |
|
|
KA(:, 1, 4, 8) = (/ & |
1597 |
|
|
& 0.38233E-02_JPRB,0.38279E-02_JPRB,0.38143E-02_JPRB,0.37097E-02_JPRB,0.35270E-02_JPRB, & |
1598 |
|
✗ |
& 0.32658E-02_JPRB,0.29019E-02_JPRB,0.24142E-02_JPRB,0.15291E-02_JPRB /) |
1599 |
|
|
KA(:, 2, 4, 8) = (/ & |
1600 |
|
|
& 0.38114E-02_JPRB,0.39122E-02_JPRB,0.39475E-02_JPRB,0.38778E-02_JPRB,0.37194E-02_JPRB, & |
1601 |
|
✗ |
& 0.34777E-02_JPRB,0.31357E-02_JPRB,0.26541E-02_JPRB,0.17758E-02_JPRB /) |
1602 |
|
|
KA(:, 3, 4, 8) = (/ & |
1603 |
|
|
& 0.38202E-02_JPRB,0.40186E-02_JPRB,0.40970E-02_JPRB,0.40542E-02_JPRB,0.39201E-02_JPRB, & |
1604 |
|
✗ |
& 0.37024E-02_JPRB,0.33826E-02_JPRB,0.29146E-02_JPRB,0.20543E-02_JPRB /) |
1605 |
|
|
KA(:, 4, 4, 8) = (/ & |
1606 |
|
|
& 0.38442E-02_JPRB,0.41385E-02_JPRB,0.42569E-02_JPRB,0.42394E-02_JPRB,0.41310E-02_JPRB, & |
1607 |
|
✗ |
& 0.39403E-02_JPRB,0.36479E-02_JPRB,0.31917E-02_JPRB,0.23538E-02_JPRB /) |
1608 |
|
|
KA(:, 5, 4, 8) = (/ & |
1609 |
|
|
& 0.38788E-02_JPRB,0.42695E-02_JPRB,0.44229E-02_JPRB,0.44328E-02_JPRB,0.43540E-02_JPRB, & |
1610 |
|
✗ |
& 0.41948E-02_JPRB,0.39317E-02_JPRB,0.34895E-02_JPRB,0.26724E-02_JPRB /) |
1611 |
|
|
KA(:, 1, 5, 8) = (/ & |
1612 |
|
|
& 0.33660E-02_JPRB,0.33879E-02_JPRB,0.33669E-02_JPRB,0.32570E-02_JPRB,0.30787E-02_JPRB, & |
1613 |
|
✗ |
& 0.28362E-02_JPRB,0.25094E-02_JPRB,0.20819E-02_JPRB,0.12376E-02_JPRB /) |
1614 |
|
|
KA(:, 2, 5, 8) = (/ & |
1615 |
|
|
& 0.33649E-02_JPRB,0.34740E-02_JPRB,0.34949E-02_JPRB,0.34119E-02_JPRB,0.32508E-02_JPRB, & |
1616 |
|
✗ |
& 0.30247E-02_JPRB,0.27121E-02_JPRB,0.22949E-02_JPRB,0.14462E-02_JPRB /) |
1617 |
|
|
KA(:, 3, 5, 8) = (/ & |
1618 |
|
|
& 0.33839E-02_JPRB,0.35821E-02_JPRB,0.36398E-02_JPRB,0.35762E-02_JPRB,0.34359E-02_JPRB, & |
1619 |
|
✗ |
& 0.32230E-02_JPRB,0.29317E-02_JPRB,0.25218E-02_JPRB,0.16788E-02_JPRB /) |
1620 |
|
|
KA(:, 4, 5, 8) = (/ & |
1621 |
|
|
& 0.34188E-02_JPRB,0.37047E-02_JPRB,0.37932E-02_JPRB,0.37524E-02_JPRB,0.36321E-02_JPRB, & |
1622 |
|
✗ |
& 0.34359E-02_JPRB,0.31677E-02_JPRB,0.27663E-02_JPRB,0.19299E-02_JPRB /) |
1623 |
|
|
KA(:, 5, 5, 8) = (/ & |
1624 |
|
|
& 0.34572E-02_JPRB,0.38382E-02_JPRB,0.39563E-02_JPRB,0.39381E-02_JPRB,0.38416E-02_JPRB, & |
1625 |
|
✗ |
& 0.36710E-02_JPRB,0.34185E-02_JPRB,0.30298E-02_JPRB,0.21985E-02_JPRB /) |
1626 |
|
|
KA(:, 1, 6, 8) = (/ & |
1627 |
|
|
& 0.29383E-02_JPRB,0.29689E-02_JPRB,0.29375E-02_JPRB,0.28254E-02_JPRB,0.26571E-02_JPRB, & |
1628 |
|
✗ |
& 0.24356E-02_JPRB,0.21491E-02_JPRB,0.17706E-02_JPRB,0.99284E-03_JPRB /) |
1629 |
|
|
KA(:, 2, 6, 8) = (/ & |
1630 |
|
|
& 0.29460E-02_JPRB,0.30526E-02_JPRB,0.30576E-02_JPRB,0.29676E-02_JPRB,0.28114E-02_JPRB, & |
1631 |
|
✗ |
& 0.25995E-02_JPRB,0.23244E-02_JPRB,0.19573E-02_JPRB,0.11692E-02_JPRB /) |
1632 |
|
|
KA(:, 3, 6, 8) = (/ & |
1633 |
|
|
& 0.29740E-02_JPRB,0.31582E-02_JPRB,0.31942E-02_JPRB,0.31202E-02_JPRB,0.29785E-02_JPRB, & |
1634 |
|
✗ |
& 0.27771E-02_JPRB,0.25160E-02_JPRB,0.21565E-02_JPRB,0.13616E-02_JPRB /) |
1635 |
|
|
KA(:, 4, 6, 8) = (/ & |
1636 |
|
|
& 0.30101E-02_JPRB,0.32807E-02_JPRB,0.33417E-02_JPRB,0.32855E-02_JPRB,0.31583E-02_JPRB, & |
1637 |
|
✗ |
& 0.29708E-02_JPRB,0.27234E-02_JPRB,0.23688E-02_JPRB,0.15696E-02_JPRB /) |
1638 |
|
|
KA(:, 5, 6, 8) = (/ & |
1639 |
|
|
& 0.30525E-02_JPRB,0.34071E-02_JPRB,0.34999E-02_JPRB,0.34618E-02_JPRB,0.33518E-02_JPRB, & |
1640 |
|
✗ |
& 0.31829E-02_JPRB,0.29437E-02_JPRB,0.25986E-02_JPRB,0.17941E-02_JPRB /) |
1641 |
|
|
KA(:, 1, 7, 8) = (/ & |
1642 |
|
|
& 0.25527E-02_JPRB,0.25837E-02_JPRB,0.25415E-02_JPRB,0.24332E-02_JPRB,0.22747E-02_JPRB, & |
1643 |
|
✗ |
& 0.20758E-02_JPRB,0.18231E-02_JPRB,0.14951E-02_JPRB,0.78066E-03_JPRB /) |
1644 |
|
|
KA(:, 2, 7, 8) = (/ & |
1645 |
|
|
& 0.25661E-02_JPRB,0.26638E-02_JPRB,0.26497E-02_JPRB,0.25583E-02_JPRB,0.24134E-02_JPRB, & |
1646 |
|
✗ |
& 0.22212E-02_JPRB,0.19774E-02_JPRB,0.16540E-02_JPRB,0.92809E-03_JPRB /) |
1647 |
|
|
KA(:, 3, 7, 8) = (/ & |
1648 |
|
|
& 0.25966E-02_JPRB,0.27642E-02_JPRB,0.27764E-02_JPRB,0.26998E-02_JPRB,0.25630E-02_JPRB, & |
1649 |
|
✗ |
& 0.23812E-02_JPRB,0.21449E-02_JPRB,0.18264E-02_JPRB,0.10893E-02_JPRB /) |
1650 |
|
|
KA(:, 4, 7, 8) = (/ & |
1651 |
|
|
& 0.26340E-02_JPRB,0.28771E-02_JPRB,0.29165E-02_JPRB,0.28538E-02_JPRB,0.27279E-02_JPRB, & |
1652 |
|
✗ |
& 0.25553E-02_JPRB,0.23260E-02_JPRB,0.20107E-02_JPRB,0.12665E-02_JPRB /) |
1653 |
|
|
KA(:, 5, 7, 8) = (/ & |
1654 |
|
|
& 0.26829E-02_JPRB,0.29939E-02_JPRB,0.30639E-02_JPRB,0.30192E-02_JPRB,0.29089E-02_JPRB, & |
1655 |
|
✗ |
& 0.27450E-02_JPRB,0.25219E-02_JPRB,0.22101E-02_JPRB,0.14584E-02_JPRB /) |
1656 |
|
|
KA(:, 1, 8, 8) = (/ & |
1657 |
|
|
& 0.22109E-02_JPRB,0.22392E-02_JPRB,0.21909E-02_JPRB,0.20870E-02_JPRB,0.19391E-02_JPRB, & |
1658 |
|
✗ |
& 0.17569E-02_JPRB,0.15368E-02_JPRB,0.12514E-02_JPRB,0.62879E-03_JPRB /) |
1659 |
|
|
KA(:, 2, 8, 8) = (/ & |
1660 |
|
|
& 0.22276E-02_JPRB,0.23140E-02_JPRB,0.22874E-02_JPRB,0.21965E-02_JPRB,0.20609E-02_JPRB, & |
1661 |
|
✗ |
& 0.18868E-02_JPRB,0.16711E-02_JPRB,0.13887E-02_JPRB,0.73533E-03_JPRB /) |
1662 |
|
|
KA(:, 3, 8, 8) = (/ & |
1663 |
|
|
& 0.22565E-02_JPRB,0.24065E-02_JPRB,0.24031E-02_JPRB,0.23233E-02_JPRB,0.21969E-02_JPRB, & |
1664 |
|
✗ |
& 0.20302E-02_JPRB,0.18188E-02_JPRB,0.15365E-02_JPRB,0.85609E-03_JPRB /) |
1665 |
|
|
KA(:, 4, 8, 8) = (/ & |
1666 |
|
|
& 0.22974E-02_JPRB,0.25072E-02_JPRB,0.25290E-02_JPRB,0.24653E-02_JPRB,0.23482E-02_JPRB, & |
1667 |
|
✗ |
& 0.21882E-02_JPRB,0.19777E-02_JPRB,0.16966E-02_JPRB,0.98553E-03_JPRB /) |
1668 |
|
|
KA(:, 5, 8, 8) = (/ & |
1669 |
|
|
& 0.23517E-02_JPRB,0.26173E-02_JPRB,0.26619E-02_JPRB,0.26145E-02_JPRB,0.25139E-02_JPRB, & |
1670 |
|
✗ |
& 0.23587E-02_JPRB,0.21497E-02_JPRB,0.18671E-02_JPRB,0.11277E-02_JPRB /) |
1671 |
|
|
KA(:, 1, 9, 8) = (/ & |
1672 |
|
|
& 0.19109E-02_JPRB,0.19351E-02_JPRB,0.18847E-02_JPRB,0.17853E-02_JPRB,0.16484E-02_JPRB, & |
1673 |
|
✗ |
& 0.14828E-02_JPRB,0.12861E-02_JPRB,0.10403E-02_JPRB,0.59847E-03_JPRB /) |
1674 |
|
|
KA(:, 2, 9, 8) = (/ & |
1675 |
|
|
& 0.19272E-02_JPRB,0.20031E-02_JPRB,0.19691E-02_JPRB,0.18817E-02_JPRB,0.17540E-02_JPRB, & |
1676 |
|
✗ |
& 0.15965E-02_JPRB,0.14036E-02_JPRB,0.11571E-02_JPRB,0.69475E-03_JPRB /) |
1677 |
|
|
KA(:, 3, 9, 8) = (/ & |
1678 |
|
|
& 0.19559E-02_JPRB,0.20842E-02_JPRB,0.20709E-02_JPRB,0.19954E-02_JPRB,0.18765E-02_JPRB, & |
1679 |
|
✗ |
& 0.17233E-02_JPRB,0.15331E-02_JPRB,0.12839E-02_JPRB,0.80150E-03_JPRB /) |
1680 |
|
|
KA(:, 4, 9, 8) = (/ & |
1681 |
|
|
& 0.19994E-02_JPRB,0.21761E-02_JPRB,0.21815E-02_JPRB,0.21203E-02_JPRB,0.20143E-02_JPRB, & |
1682 |
|
✗ |
& 0.18645E-02_JPRB,0.16732E-02_JPRB,0.14206E-02_JPRB,0.91777E-03_JPRB /) |
1683 |
|
|
KA(:, 5, 9, 8) = (/ & |
1684 |
|
|
& 0.20550E-02_JPRB,0.22788E-02_JPRB,0.23027E-02_JPRB,0.22546E-02_JPRB,0.21605E-02_JPRB, & |
1685 |
|
✗ |
& 0.20175E-02_JPRB,0.18247E-02_JPRB,0.15687E-02_JPRB,0.10450E-02_JPRB /) |
1686 |
|
|
KA(:, 1,10, 8) = (/ & |
1687 |
|
|
& 0.16445E-02_JPRB,0.16716E-02_JPRB,0.16238E-02_JPRB,0.15300E-02_JPRB,0.14061E-02_JPRB, & |
1688 |
|
✗ |
& 0.12566E-02_JPRB,0.10807E-02_JPRB,0.86738E-03_JPRB,0.60827E-03_JPRB /) |
1689 |
|
|
KA(:, 2,10, 8) = (/ & |
1690 |
|
|
& 0.16600E-02_JPRB,0.17327E-02_JPRB,0.16984E-02_JPRB,0.16154E-02_JPRB,0.14994E-02_JPRB, & |
1691 |
|
✗ |
& 0.13556E-02_JPRB,0.11827E-02_JPRB,0.96695E-03_JPRB,0.70548E-03_JPRB /) |
1692 |
|
|
KA(:, 3,10, 8) = (/ & |
1693 |
|
|
& 0.16905E-02_JPRB,0.18053E-02_JPRB,0.17869E-02_JPRB,0.17163E-02_JPRB,0.16090E-02_JPRB, & |
1694 |
|
✗ |
& 0.14689E-02_JPRB,0.12961E-02_JPRB,0.10754E-02_JPRB,0.80786E-03_JPRB /) |
1695 |
|
|
KA(:, 4,10, 8) = (/ & |
1696 |
|
|
& 0.17354E-02_JPRB,0.18905E-02_JPRB,0.18865E-02_JPRB,0.18272E-02_JPRB,0.17299E-02_JPRB, & |
1697 |
|
✗ |
& 0.15951E-02_JPRB,0.14192E-02_JPRB,0.11936E-02_JPRB,0.91620E-03_JPRB /) |
1698 |
|
|
KA(:, 5,10, 8) = (/ & |
1699 |
|
|
& 0.17884E-02_JPRB,0.19860E-02_JPRB,0.19977E-02_JPRB,0.19501E-02_JPRB,0.18596E-02_JPRB, & |
1700 |
|
✗ |
& 0.17298E-02_JPRB,0.15525E-02_JPRB,0.13217E-02_JPRB,0.10338E-02_JPRB /) |
1701 |
|
|
KA(:, 1,11, 8) = (/ & |
1702 |
|
|
& 0.14133E-02_JPRB,0.14603E-02_JPRB,0.14202E-02_JPRB,0.13407E-02_JPRB,0.12334E-02_JPRB, & |
1703 |
|
✗ |
& 0.11026E-02_JPRB,0.94643E-03_JPRB,0.75979E-03_JPRB,0.57405E-03_JPRB /) |
1704 |
|
|
KA(:, 2,11, 8) = (/ & |
1705 |
|
|
& 0.14357E-02_JPRB,0.15193E-02_JPRB,0.14916E-02_JPRB,0.14232E-02_JPRB,0.13232E-02_JPRB, & |
1706 |
|
✗ |
& 0.11950E-02_JPRB,0.10392E-02_JPRB,0.84686E-03_JPRB,0.65471E-03_JPRB /) |
1707 |
|
|
KA(:, 3,11, 8) = (/ & |
1708 |
|
|
& 0.14730E-02_JPRB,0.15907E-02_JPRB,0.15765E-02_JPRB,0.15172E-02_JPRB,0.14237E-02_JPRB, & |
1709 |
|
✗ |
& 0.12997E-02_JPRB,0.11424E-02_JPRB,0.94298E-03_JPRB,0.75212E-03_JPRB /) |
1710 |
|
|
KA(:, 4,11, 8) = (/ & |
1711 |
|
|
& 0.15188E-02_JPRB,0.16737E-02_JPRB,0.16734E-02_JPRB,0.16227E-02_JPRB,0.15348E-02_JPRB, & |
1712 |
|
✗ |
& 0.14132E-02_JPRB,0.12544E-02_JPRB,0.10476E-02_JPRB,0.85445E-03_JPRB /) |
1713 |
|
|
KA(:, 5,11, 8) = (/ & |
1714 |
|
|
& 0.15705E-02_JPRB,0.17634E-02_JPRB,0.17799E-02_JPRB,0.17387E-02_JPRB,0.16551E-02_JPRB, & |
1715 |
|
✗ |
& 0.15344E-02_JPRB,0.13744E-02_JPRB,0.11635E-02_JPRB,0.96358E-03_JPRB /) |
1716 |
|
|
KA(:, 1,12, 8) = (/ & |
1717 |
|
|
& 0.12145E-02_JPRB,0.12721E-02_JPRB,0.12387E-02_JPRB,0.11722E-02_JPRB,0.10815E-02_JPRB, & |
1718 |
|
✗ |
& 0.96748E-03_JPRB,0.83052E-03_JPRB,0.66461E-03_JPRB,0.51952E-03_JPRB /) |
1719 |
|
|
KA(:, 2,12, 8) = (/ & |
1720 |
|
|
& 0.12432E-02_JPRB,0.13303E-02_JPRB,0.13076E-02_JPRB,0.12500E-02_JPRB,0.11644E-02_JPRB, & |
1721 |
|
✗ |
& 0.10531E-02_JPRB,0.91410E-03_JPRB,0.74198E-03_JPRB,0.58718E-03_JPRB /) |
1722 |
|
|
KA(:, 3,12, 8) = (/ & |
1723 |
|
|
& 0.12811E-02_JPRB,0.13998E-02_JPRB,0.13897E-02_JPRB,0.13394E-02_JPRB,0.12574E-02_JPRB, & |
1724 |
|
✗ |
& 0.11474E-02_JPRB,0.10067E-02_JPRB,0.82675E-03_JPRB,0.66821E-03_JPRB /) |
1725 |
|
|
KA(:, 4,12, 8) = (/ & |
1726 |
|
|
& 0.13251E-02_JPRB,0.14771E-02_JPRB,0.14813E-02_JPRB,0.14393E-02_JPRB,0.13610E-02_JPRB, & |
1727 |
|
✗ |
& 0.12504E-02_JPRB,0.11057E-02_JPRB,0.91975E-03_JPRB,0.76078E-03_JPRB /) |
1728 |
|
|
KA(:, 5,12, 8) = (/ & |
1729 |
|
|
& 0.13700E-02_JPRB,0.15597E-02_JPRB,0.15807E-02_JPRB,0.15467E-02_JPRB,0.14716E-02_JPRB, & |
1730 |
|
✗ |
& 0.13608E-02_JPRB,0.12138E-02_JPRB,0.10232E-02_JPRB,0.85832E-03_JPRB /) |
1731 |
|
|
KA(:, 1,13, 8) = (/ & |
1732 |
|
|
& 0.10471E-02_JPRB,0.11076E-02_JPRB,0.10790E-02_JPRB,0.10231E-02_JPRB,0.94527E-03_JPRB, & |
1733 |
|
✗ |
& 0.84789E-03_JPRB,0.72861E-03_JPRB,0.58068E-03_JPRB,0.44361E-03_JPRB /) |
1734 |
|
|
KA(:, 2,13, 8) = (/ & |
1735 |
|
|
& 0.10765E-02_JPRB,0.11637E-02_JPRB,0.11461E-02_JPRB,0.10966E-02_JPRB,0.10221E-02_JPRB, & |
1736 |
|
✗ |
& 0.92418E-03_JPRB,0.80364E-03_JPRB,0.64949E-03_JPRB,0.50409E-03_JPRB /) |
1737 |
|
|
KA(:, 3,13, 8) = (/ & |
1738 |
|
|
& 0.11121E-02_JPRB,0.12288E-02_JPRB,0.12232E-02_JPRB,0.11802E-02_JPRB,0.11084E-02_JPRB, & |
1739 |
|
✗ |
& 0.10099E-02_JPRB,0.88562E-03_JPRB,0.72467E-03_JPRB,0.57688E-03_JPRB /) |
1740 |
|
|
KA(:, 4,13, 8) = (/ & |
1741 |
|
|
& 0.11491E-02_JPRB,0.12989E-02_JPRB,0.13080E-02_JPRB,0.12720E-02_JPRB,0.12030E-02_JPRB, & |
1742 |
|
✗ |
& 0.11037E-02_JPRB,0.97404E-03_JPRB,0.80781E-03_JPRB,0.65303E-03_JPRB /) |
1743 |
|
|
KA(:, 5,13, 8) = (/ & |
1744 |
|
|
& 0.11880E-02_JPRB,0.13724E-02_JPRB,0.13975E-02_JPRB,0.13701E-02_JPRB,0.13034E-02_JPRB, & |
1745 |
|
✗ |
& 0.12049E-02_JPRB,0.10715E-02_JPRB,0.89944E-03_JPRB,0.73687E-03_JPRB /) |
1746 |
|
|
KA(:, 1, 1, 9) = (/ & |
1747 |
|
|
& 0.14418E-01_JPRB,0.13406E-01_JPRB,0.12605E-01_JPRB,0.11857E-01_JPRB,0.11091E-01_JPRB, & |
1748 |
|
✗ |
& 0.10336E-01_JPRB,0.95691E-02_JPRB,0.87036E-02_JPRB,0.88524E-02_JPRB /) |
1749 |
|
|
KA(:, 2, 1, 9) = (/ & |
1750 |
|
|
& 0.14296E-01_JPRB,0.13450E-01_JPRB,0.12870E-01_JPRB,0.12297E-01_JPRB,0.11684E-01_JPRB, & |
1751 |
|
✗ |
& 0.11070E-01_JPRB,0.10452E-01_JPRB,0.97477E-02_JPRB,0.10154E-01_JPRB /) |
1752 |
|
|
KA(:, 3, 1, 9) = (/ & |
1753 |
|
|
& 0.14166E-01_JPRB,0.13524E-01_JPRB,0.13158E-01_JPRB,0.12768E-01_JPRB,0.12317E-01_JPRB, & |
1754 |
|
✗ |
& 0.11876E-01_JPRB,0.11397E-01_JPRB,0.10864E-01_JPRB,0.11523E-01_JPRB /) |
1755 |
|
|
KA(:, 4, 1, 9) = (/ & |
1756 |
|
|
& 0.14022E-01_JPRB,0.13622E-01_JPRB,0.13487E-01_JPRB,0.13264E-01_JPRB,0.13003E-01_JPRB, & |
1757 |
|
✗ |
& 0.12732E-01_JPRB,0.12371E-01_JPRB,0.12050E-01_JPRB,0.12968E-01_JPRB /) |
1758 |
|
|
KA(:, 5, 1, 9) = (/ & |
1759 |
|
|
& 0.13872E-01_JPRB,0.13730E-01_JPRB,0.13820E-01_JPRB,0.13802E-01_JPRB,0.13718E-01_JPRB, & |
1760 |
|
✗ |
& 0.13604E-01_JPRB,0.13373E-01_JPRB,0.13315E-01_JPRB,0.14498E-01_JPRB /) |
1761 |
|
|
KA(:, 1, 2, 9) = (/ & |
1762 |
|
|
& 0.14547E-01_JPRB,0.13535E-01_JPRB,0.12726E-01_JPRB,0.11955E-01_JPRB,0.11121E-01_JPRB, & |
1763 |
|
✗ |
& 0.10242E-01_JPRB,0.92998E-02_JPRB,0.82716E-02_JPRB,0.79571E-02_JPRB /) |
1764 |
|
|
KA(:, 2, 2, 9) = (/ & |
1765 |
|
|
& 0.14415E-01_JPRB,0.13577E-01_JPRB,0.12984E-01_JPRB,0.12377E-01_JPRB,0.11698E-01_JPRB, & |
1766 |
|
✗ |
& 0.10932E-01_JPRB,0.10129E-01_JPRB,0.92199E-02_JPRB,0.91565E-02_JPRB /) |
1767 |
|
|
KA(:, 3, 2, 9) = (/ & |
1768 |
|
|
& 0.14274E-01_JPRB,0.13649E-01_JPRB,0.13264E-01_JPRB,0.12845E-01_JPRB,0.12290E-01_JPRB, & |
1769 |
|
✗ |
& 0.11686E-01_JPRB,0.11026E-01_JPRB,0.10231E-01_JPRB,0.10415E-01_JPRB /) |
1770 |
|
|
KA(:, 4, 2, 9) = (/ & |
1771 |
|
|
& 0.14122E-01_JPRB,0.13744E-01_JPRB,0.13589E-01_JPRB,0.13325E-01_JPRB,0.12935E-01_JPRB, & |
1772 |
|
✗ |
& 0.12484E-01_JPRB,0.11950E-01_JPRB,0.11311E-01_JPRB,0.11744E-01_JPRB /) |
1773 |
|
|
KA(:, 5, 2, 9) = (/ & |
1774 |
|
|
& 0.13965E-01_JPRB,0.13855E-01_JPRB,0.13924E-01_JPRB,0.13828E-01_JPRB,0.13608E-01_JPRB, & |
1775 |
|
✗ |
& 0.13305E-01_JPRB,0.12905E-01_JPRB,0.12457E-01_JPRB,0.13151E-01_JPRB /) |
1776 |
|
|
KA(:, 1, 3, 9) = (/ & |
1777 |
|
|
& 0.14475E-01_JPRB,0.13482E-01_JPRB,0.12654E-01_JPRB,0.11861E-01_JPRB,0.10971E-01_JPRB, & |
1778 |
|
✗ |
& 0.99930E-02_JPRB,0.88735E-02_JPRB,0.76595E-02_JPRB,0.68509E-02_JPRB /) |
1779 |
|
|
KA(:, 2, 3, 9) = (/ & |
1780 |
|
|
& 0.14335E-01_JPRB,0.13514E-01_JPRB,0.12906E-01_JPRB,0.12263E-01_JPRB,0.11533E-01_JPRB, & |
1781 |
|
✗ |
& 0.10637E-01_JPRB,0.96386E-02_JPRB,0.85394E-02_JPRB,0.79297E-02_JPRB /) |
1782 |
|
|
KA(:, 3, 3, 9) = (/ & |
1783 |
|
|
& 0.14181E-01_JPRB,0.13576E-01_JPRB,0.13177E-01_JPRB,0.12719E-01_JPRB,0.12099E-01_JPRB, & |
1784 |
|
✗ |
& 0.11329E-01_JPRB,0.10466E-01_JPRB,0.94601E-02_JPRB,0.90731E-02_JPRB /) |
1785 |
|
|
KA(:, 4, 3, 9) = (/ & |
1786 |
|
|
& 0.14024E-01_JPRB,0.13665E-01_JPRB,0.13491E-01_JPRB,0.13188E-01_JPRB,0.12703E-01_JPRB, & |
1787 |
|
✗ |
& 0.12072E-01_JPRB,0.11323E-01_JPRB,0.10433E-01_JPRB,0.10295E-01_JPRB /) |
1788 |
|
|
KA(:, 5, 3, 9) = (/ & |
1789 |
|
|
& 0.13862E-01_JPRB,0.13772E-01_JPRB,0.13824E-01_JPRB,0.13679E-01_JPRB,0.13333E-01_JPRB, & |
1790 |
|
✗ |
& 0.12836E-01_JPRB,0.12214E-01_JPRB,0.11468E-01_JPRB,0.11588E-01_JPRB /) |
1791 |
|
|
KA(:, 1, 4, 9) = (/ & |
1792 |
|
|
& 0.14153E-01_JPRB,0.13216E-01_JPRB,0.12406E-01_JPRB,0.11612E-01_JPRB,0.10690E-01_JPRB, & |
1793 |
|
✗ |
& 0.96495E-02_JPRB,0.84088E-02_JPRB,0.70121E-02_JPRB,0.57874E-02_JPRB /) |
1794 |
|
|
KA(:, 2, 4, 9) = (/ & |
1795 |
|
|
& 0.14005E-01_JPRB,0.13241E-01_JPRB,0.12647E-01_JPRB,0.11995E-01_JPRB,0.11231E-01_JPRB, & |
1796 |
|
✗ |
& 0.10266E-01_JPRB,0.91127E-02_JPRB,0.78123E-02_JPRB,0.67372E-02_JPRB /) |
1797 |
|
|
KA(:, 3, 4, 9) = (/ & |
1798 |
|
|
& 0.13845E-01_JPRB,0.13290E-01_JPRB,0.12907E-01_JPRB,0.12438E-01_JPRB,0.11783E-01_JPRB, & |
1799 |
|
✗ |
& 0.10918E-01_JPRB,0.98730E-02_JPRB,0.86646E-02_JPRB,0.77601E-02_JPRB /) |
1800 |
|
|
KA(:, 4, 4, 9) = (/ & |
1801 |
|
|
& 0.13685E-01_JPRB,0.13375E-01_JPRB,0.13206E-01_JPRB,0.12899E-01_JPRB,0.12360E-01_JPRB, & |
1802 |
|
✗ |
& 0.11608E-01_JPRB,0.10665E-01_JPRB,0.95624E-02_JPRB,0.88628E-02_JPRB /) |
1803 |
|
|
KA(:, 5, 4, 9) = (/ & |
1804 |
|
|
& 0.13529E-01_JPRB,0.13472E-01_JPRB,0.13531E-01_JPRB,0.13371E-01_JPRB,0.12964E-01_JPRB, & |
1805 |
|
✗ |
& 0.12311E-01_JPRB,0.11491E-01_JPRB,0.10508E-01_JPRB,0.10039E-01_JPRB /) |
1806 |
|
|
KA(:, 1, 5, 9) = (/ & |
1807 |
|
|
& 0.13587E-01_JPRB,0.12730E-01_JPRB,0.11973E-01_JPRB,0.11204E-01_JPRB,0.10282E-01_JPRB, & |
1808 |
|
✗ |
& 0.92218E-02_JPRB,0.79316E-02_JPRB,0.64044E-02_JPRB,0.48583E-02_JPRB /) |
1809 |
|
|
KA(:, 2, 5, 9) = (/ & |
1810 |
|
|
& 0.13430E-01_JPRB,0.12751E-01_JPRB,0.12205E-01_JPRB,0.11567E-01_JPRB,0.10798E-01_JPRB, & |
1811 |
|
✗ |
& 0.98163E-02_JPRB,0.85810E-02_JPRB,0.71221E-02_JPRB,0.56837E-02_JPRB /) |
1812 |
|
|
KA(:, 3, 5, 9) = (/ & |
1813 |
|
|
& 0.13271E-01_JPRB,0.12793E-01_JPRB,0.12448E-01_JPRB,0.11993E-01_JPRB,0.11338E-01_JPRB, & |
1814 |
|
✗ |
& 0.10437E-01_JPRB,0.92786E-02_JPRB,0.78957E-02_JPRB,0.65802E-02_JPRB /) |
1815 |
|
|
KA(:, 4, 5, 9) = (/ & |
1816 |
|
|
& 0.13115E-01_JPRB,0.12874E-01_JPRB,0.12735E-01_JPRB,0.12440E-01_JPRB,0.11897E-01_JPRB, & |
1817 |
|
✗ |
& 0.11094E-01_JPRB,0.10003E-01_JPRB,0.87146E-02_JPRB,0.75565E-02_JPRB /) |
1818 |
|
|
KA(:, 5, 5, 9) = (/ & |
1819 |
|
|
& 0.12984E-01_JPRB,0.12973E-01_JPRB,0.13053E-01_JPRB,0.12899E-01_JPRB,0.12481E-01_JPRB, & |
1820 |
|
✗ |
& 0.11759E-01_JPRB,0.10765E-01_JPRB,0.95850E-02_JPRB,0.86117E-02_JPRB /) |
1821 |
|
|
KA(:, 1, 6, 9) = (/ & |
1822 |
|
|
& 0.12817E-01_JPRB,0.12050E-01_JPRB,0.11369E-01_JPRB,0.10622E-01_JPRB,0.97180E-02_JPRB, & |
1823 |
|
✗ |
& 0.86745E-02_JPRB,0.73942E-02_JPRB,0.58154E-02_JPRB,0.40318E-02_JPRB /) |
1824 |
|
|
KA(:, 2, 6, 9) = (/ & |
1825 |
|
|
& 0.12656E-01_JPRB,0.12077E-01_JPRB,0.11582E-01_JPRB,0.10960E-01_JPRB,0.10205E-01_JPRB, & |
1826 |
|
✗ |
& 0.92477E-02_JPRB,0.80000E-02_JPRB,0.64500E-02_JPRB,0.47452E-02_JPRB /) |
1827 |
|
|
KA(:, 3, 6, 9) = (/ & |
1828 |
|
|
& 0.12499E-01_JPRB,0.12115E-01_JPRB,0.11810E-01_JPRB,0.11361E-01_JPRB,0.10734E-01_JPRB, & |
1829 |
|
✗ |
& 0.98374E-02_JPRB,0.86412E-02_JPRB,0.71467E-02_JPRB,0.55214E-02_JPRB /) |
1830 |
|
|
KA(:, 4, 6, 9) = (/ & |
1831 |
|
|
& 0.12364E-01_JPRB,0.12194E-01_JPRB,0.12081E-01_JPRB,0.11798E-01_JPRB,0.11270E-01_JPRB, & |
1832 |
|
✗ |
& 0.10459E-01_JPRB,0.93144E-02_JPRB,0.78844E-02_JPRB,0.63718E-02_JPRB /) |
1833 |
|
|
KA(:, 5, 6, 9) = (/ & |
1834 |
|
|
& 0.12255E-01_JPRB,0.12311E-01_JPRB,0.12390E-01_JPRB,0.12242E-01_JPRB,0.11833E-01_JPRB, & |
1835 |
|
✗ |
& 0.11093E-01_JPRB,0.10016E-01_JPRB,0.86730E-02_JPRB,0.72984E-02_JPRB /) |
1836 |
|
|
KA(:, 1, 7, 9) = (/ & |
1837 |
|
|
& 0.11891E-01_JPRB,0.11226E-01_JPRB,0.10633E-01_JPRB,0.99134E-02_JPRB,0.90439E-02_JPRB, & |
1838 |
|
✗ |
& 0.80297E-02_JPRB,0.68136E-02_JPRB,0.52756E-02_JPRB,0.33216E-02_JPRB /) |
1839 |
|
|
KA(:, 2, 7, 9) = (/ & |
1840 |
|
|
& 0.11730E-01_JPRB,0.11250E-01_JPRB,0.10822E-01_JPRB,0.10230E-01_JPRB,0.94903E-02_JPRB, & |
1841 |
|
✗ |
& 0.85683E-02_JPRB,0.73765E-02_JPRB,0.58347E-02_JPRB,0.39310E-02_JPRB /) |
1842 |
|
|
KA(:, 3, 7, 9) = (/ & |
1843 |
|
|
& 0.11586E-01_JPRB,0.11299E-01_JPRB,0.11036E-01_JPRB,0.10599E-01_JPRB,0.99917E-02_JPRB, & |
1844 |
|
✗ |
& 0.91260E-02_JPRB,0.79645E-02_JPRB,0.64502E-02_JPRB,0.46031E-02_JPRB /) |
1845 |
|
|
KA(:, 4, 7, 9) = (/ & |
1846 |
|
|
& 0.11473E-01_JPRB,0.11391E-01_JPRB,0.11290E-01_JPRB,0.11015E-01_JPRB,0.10500E-01_JPRB, & |
1847 |
|
✗ |
& 0.97132E-02_JPRB,0.85920E-02_JPRB,0.71112E-02_JPRB,0.53403E-02_JPRB /) |
1848 |
|
|
KA(:, 5, 7, 9) = (/ & |
1849 |
|
|
& 0.11384E-01_JPRB,0.11524E-01_JPRB,0.11598E-01_JPRB,0.11442E-01_JPRB,0.11036E-01_JPRB, & |
1850 |
|
✗ |
& 0.10317E-01_JPRB,0.92441E-02_JPRB,0.78209E-02_JPRB,0.61457E-02_JPRB /) |
1851 |
|
|
KA(:, 1, 8, 9) = (/ & |
1852 |
|
|
& 0.10852E-01_JPRB,0.10302E-01_JPRB,0.97896E-02_JPRB,0.91138E-02_JPRB,0.83000E-02_JPRB, & |
1853 |
|
✗ |
& 0.73373E-02_JPRB,0.61956E-02_JPRB,0.47644E-02_JPRB,0.26652E-02_JPRB /) |
1854 |
|
|
|
1855 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART6',1,ZHOOK_HANDLE) |
1856 |
|
✗ |
END SUBROUTINE PART6 |
1857 |
|
|
|
1858 |
|
|
|
1859 |
|
✗ |
SUBROUTINE PART7 |
1860 |
|
|
|
1861 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1862 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART7',0,ZHOOK_HANDLE) |
1863 |
|
|
|
1864 |
|
|
|
1865 |
|
|
KA(:, 2, 8, 9) = (/ & |
1866 |
|
|
& 0.10699E-01_JPRB,0.10325E-01_JPRB,0.99631E-02_JPRB,0.94045E-02_JPRB,0.87025E-02_JPRB, & |
1867 |
|
✗ |
& 0.78255E-02_JPRB,0.67137E-02_JPRB,0.52638E-02_JPRB,0.31922E-02_JPRB /) |
1868 |
|
|
KA(:, 3, 8, 9) = (/ & |
1869 |
|
|
& 0.10574E-01_JPRB,0.10385E-01_JPRB,0.10163E-01_JPRB,0.97460E-02_JPRB,0.91609E-02_JPRB, & |
1870 |
|
✗ |
& 0.83418E-02_JPRB,0.72560E-02_JPRB,0.58143E-02_JPRB,0.37766E-02_JPRB /) |
1871 |
|
|
KA(:, 4, 8, 9) = (/ & |
1872 |
|
|
& 0.10480E-01_JPRB,0.10499E-01_JPRB,0.10413E-01_JPRB,0.10139E-01_JPRB,0.96342E-02_JPRB, & |
1873 |
|
✗ |
& 0.88826E-02_JPRB,0.78405E-02_JPRB,0.64037E-02_JPRB,0.44295E-02_JPRB /) |
1874 |
|
|
KA(:, 5, 8, 9) = (/ & |
1875 |
|
|
& 0.10415E-01_JPRB,0.10646E-01_JPRB,0.10720E-01_JPRB,0.10553E-01_JPRB,0.10134E-01_JPRB, & |
1876 |
|
✗ |
& 0.94529E-02_JPRB,0.84471E-02_JPRB,0.70384E-02_JPRB,0.51485E-02_JPRB /) |
1877 |
|
|
KA(:, 1, 9, 9) = (/ & |
1878 |
|
|
& 0.97587E-02_JPRB,0.93185E-02_JPRB,0.88694E-02_JPRB,0.82517E-02_JPRB,0.75094E-02_JPRB, & |
1879 |
|
✗ |
& 0.66177E-02_JPRB,0.55658E-02_JPRB,0.42591E-02_JPRB,0.21931E-02_JPRB /) |
1880 |
|
|
KA(:, 2, 9, 9) = (/ & |
1881 |
|
|
& 0.96183E-02_JPRB,0.93436E-02_JPRB,0.90329E-02_JPRB,0.85198E-02_JPRB,0.78654E-02_JPRB, & |
1882 |
|
✗ |
& 0.70507E-02_JPRB,0.60316E-02_JPRB,0.47067E-02_JPRB,0.25691E-02_JPRB /) |
1883 |
|
|
KA(:, 3, 9, 9) = (/ & |
1884 |
|
|
& 0.95112E-02_JPRB,0.94166E-02_JPRB,0.92325E-02_JPRB,0.88355E-02_JPRB,0.82791E-02_JPRB, & |
1885 |
|
✗ |
& 0.75194E-02_JPRB,0.65208E-02_JPRB,0.52003E-02_JPRB,0.29789E-02_JPRB /) |
1886 |
|
|
KA(:, 4, 9, 9) = (/ & |
1887 |
|
|
& 0.94373E-02_JPRB,0.95446E-02_JPRB,0.94815E-02_JPRB,0.92092E-02_JPRB,0.87140E-02_JPRB, & |
1888 |
|
✗ |
& 0.80091E-02_JPRB,0.70556E-02_JPRB,0.57344E-02_JPRB,0.34284E-02_JPRB /) |
1889 |
|
|
KA(:, 5, 9, 9) = (/ & |
1890 |
|
|
& 0.93945E-02_JPRB,0.97041E-02_JPRB,0.97866E-02_JPRB,0.96055E-02_JPRB,0.91834E-02_JPRB, & |
1891 |
|
✗ |
& 0.85358E-02_JPRB,0.76199E-02_JPRB,0.63067E-02_JPRB,0.39360E-02_JPRB /) |
1892 |
|
|
KA(:, 1,10, 9) = (/ & |
1893 |
|
|
& 0.86571E-02_JPRB,0.83282E-02_JPRB,0.79327E-02_JPRB,0.73862E-02_JPRB,0.67217E-02_JPRB, & |
1894 |
|
✗ |
& 0.59210E-02_JPRB,0.49777E-02_JPRB,0.37950E-02_JPRB,0.25161E-02_JPRB /) |
1895 |
|
|
KA(:, 2,10, 9) = (/ & |
1896 |
|
|
& 0.85351E-02_JPRB,0.83629E-02_JPRB,0.80910E-02_JPRB,0.76400E-02_JPRB,0.70398E-02_JPRB, & |
1897 |
|
✗ |
& 0.63068E-02_JPRB,0.53903E-02_JPRB,0.41966E-02_JPRB,0.29067E-02_JPRB /) |
1898 |
|
|
KA(:, 3,10, 9) = (/ & |
1899 |
|
|
& 0.84483E-02_JPRB,0.84483E-02_JPRB,0.82944E-02_JPRB,0.79338E-02_JPRB,0.74159E-02_JPRB, & |
1900 |
|
✗ |
& 0.67272E-02_JPRB,0.58285E-02_JPRB,0.46411E-02_JPRB,0.33599E-02_JPRB /) |
1901 |
|
|
KA(:, 4,10, 9) = (/ & |
1902 |
|
|
& 0.83941E-02_JPRB,0.85821E-02_JPRB,0.85440E-02_JPRB,0.82866E-02_JPRB,0.78214E-02_JPRB, & |
1903 |
|
✗ |
& 0.71692E-02_JPRB,0.63103E-02_JPRB,0.51290E-02_JPRB,0.38620E-02_JPRB /) |
1904 |
|
|
KA(:, 5,10, 9) = (/ & |
1905 |
|
|
& 0.83806E-02_JPRB,0.87510E-02_JPRB,0.88459E-02_JPRB,0.86620E-02_JPRB,0.82607E-02_JPRB, & |
1906 |
|
✗ |
& 0.76554E-02_JPRB,0.68267E-02_JPRB,0.56504E-02_JPRB,0.44001E-02_JPRB /) |
1907 |
|
|
KA(:, 1,11, 9) = (/ & |
1908 |
|
|
& 0.75570E-02_JPRB,0.73902E-02_JPRB,0.70826E-02_JPRB,0.66405E-02_JPRB,0.60731E-02_JPRB, & |
1909 |
|
✗ |
& 0.53892E-02_JPRB,0.45656E-02_JPRB,0.35050E-02_JPRB,0.26164E-02_JPRB /) |
1910 |
|
|
KA(:, 2,11, 9) = (/ & |
1911 |
|
|
& 0.74683E-02_JPRB,0.74501E-02_JPRB,0.72578E-02_JPRB,0.68886E-02_JPRB,0.63823E-02_JPRB, & |
1912 |
|
✗ |
& 0.57485E-02_JPRB,0.49402E-02_JPRB,0.38790E-02_JPRB,0.30097E-02_JPRB /) |
1913 |
|
|
KA(:, 3,11, 9) = (/ & |
1914 |
|
|
& 0.74153E-02_JPRB,0.75630E-02_JPRB,0.74762E-02_JPRB,0.71912E-02_JPRB,0.67425E-02_JPRB, & |
1915 |
|
✗ |
& 0.61326E-02_JPRB,0.53447E-02_JPRB,0.42990E-02_JPRB,0.34771E-02_JPRB /) |
1916 |
|
|
KA(:, 4,11, 9) = (/ & |
1917 |
|
|
& 0.74057E-02_JPRB,0.77202E-02_JPRB,0.77477E-02_JPRB,0.75330E-02_JPRB,0.71268E-02_JPRB, & |
1918 |
|
✗ |
& 0.65549E-02_JPRB,0.57951E-02_JPRB,0.47555E-02_JPRB,0.39884E-02_JPRB /) |
1919 |
|
|
KA(:, 5,11, 9) = (/ & |
1920 |
|
|
& 0.74391E-02_JPRB,0.79220E-02_JPRB,0.80561E-02_JPRB,0.79014E-02_JPRB,0.75514E-02_JPRB, & |
1921 |
|
✗ |
& 0.70214E-02_JPRB,0.62779E-02_JPRB,0.52483E-02_JPRB,0.45376E-02_JPRB /) |
1922 |
|
|
KA(:, 1,12, 9) = (/ & |
1923 |
|
|
& 0.65546E-02_JPRB,0.65200E-02_JPRB,0.62910E-02_JPRB,0.59243E-02_JPRB,0.54454E-02_JPRB, & |
1924 |
|
✗ |
& 0.48623E-02_JPRB,0.41386E-02_JPRB,0.32013E-02_JPRB,0.25137E-02_JPRB /) |
1925 |
|
|
KA(:, 2,12, 9) = (/ & |
1926 |
|
|
& 0.64987E-02_JPRB,0.66047E-02_JPRB,0.64774E-02_JPRB,0.61754E-02_JPRB,0.57483E-02_JPRB, & |
1927 |
|
✗ |
& 0.51910E-02_JPRB,0.44799E-02_JPRB,0.35500E-02_JPRB,0.28998E-02_JPRB /) |
1928 |
|
|
KA(:, 3,12, 9) = (/ & |
1929 |
|
|
& 0.64867E-02_JPRB,0.67439E-02_JPRB,0.67077E-02_JPRB,0.64758E-02_JPRB,0.60840E-02_JPRB, & |
1930 |
|
✗ |
& 0.55472E-02_JPRB,0.48582E-02_JPRB,0.39433E-02_JPRB,0.33472E-02_JPRB /) |
1931 |
|
|
KA(:, 4,12, 9) = (/ & |
1932 |
|
|
& 0.65214E-02_JPRB,0.69269E-02_JPRB,0.69913E-02_JPRB,0.68034E-02_JPRB,0.64480E-02_JPRB, & |
1933 |
|
✗ |
& 0.59497E-02_JPRB,0.52811E-02_JPRB,0.43712E-02_JPRB,0.38283E-02_JPRB /) |
1934 |
|
|
KA(:, 5,12, 9) = (/ & |
1935 |
|
|
& 0.66068E-02_JPRB,0.71634E-02_JPRB,0.73032E-02_JPRB,0.71670E-02_JPRB,0.68605E-02_JPRB, & |
1936 |
|
✗ |
& 0.63896E-02_JPRB,0.57387E-02_JPRB,0.48340E-02_JPRB,0.43614E-02_JPRB /) |
1937 |
|
|
KA(:, 1,13, 9) = (/ & |
1938 |
|
|
& 0.56598E-02_JPRB,0.57241E-02_JPRB,0.55653E-02_JPRB,0.52616E-02_JPRB,0.48615E-02_JPRB, & |
1939 |
|
✗ |
& 0.43534E-02_JPRB,0.37143E-02_JPRB,0.28975E-02_JPRB,0.22483E-02_JPRB /) |
1940 |
|
|
KA(:, 2,13, 9) = (/ & |
1941 |
|
|
& 0.56408E-02_JPRB,0.58364E-02_JPRB,0.57539E-02_JPRB,0.55120E-02_JPRB,0.51475E-02_JPRB, & |
1942 |
|
✗ |
& 0.46559E-02_JPRB,0.40284E-02_JPRB,0.32222E-02_JPRB,0.26111E-02_JPRB /) |
1943 |
|
|
KA(:, 3,13, 9) = (/ & |
1944 |
|
|
& 0.56697E-02_JPRB,0.59982E-02_JPRB,0.59981E-02_JPRB,0.58053E-02_JPRB,0.54583E-02_JPRB, & |
1945 |
|
✗ |
& 0.49917E-02_JPRB,0.43867E-02_JPRB,0.35862E-02_JPRB,0.30268E-02_JPRB /) |
1946 |
|
|
KA(:, 4,13, 9) = (/ & |
1947 |
|
|
& 0.57519E-02_JPRB,0.62108E-02_JPRB,0.62874E-02_JPRB,0.61219E-02_JPRB,0.58111E-02_JPRB, & |
1948 |
|
✗ |
& 0.53715E-02_JPRB,0.47851E-02_JPRB,0.39858E-02_JPRB,0.34700E-02_JPRB /) |
1949 |
|
|
KA(:, 5,13, 9) = (/ & |
1950 |
|
|
& 0.58830E-02_JPRB,0.64813E-02_JPRB,0.66064E-02_JPRB,0.64830E-02_JPRB,0.62068E-02_JPRB, & |
1951 |
|
✗ |
& 0.57872E-02_JPRB,0.52185E-02_JPRB,0.44205E-02_JPRB,0.39619E-02_JPRB /) |
1952 |
|
|
KA(:, 1, 1,10) = (/ & |
1953 |
|
|
& 0.28544E-01_JPRB,0.26155E-01_JPRB,0.24149E-01_JPRB,0.22667E-01_JPRB,0.21632E-01_JPRB, & |
1954 |
|
✗ |
& 0.20279E-01_JPRB,0.18489E-01_JPRB,0.17580E-01_JPRB,0.19616E-01_JPRB /) |
1955 |
|
|
KA(:, 2, 1,10) = (/ & |
1956 |
|
|
& 0.28363E-01_JPRB,0.26242E-01_JPRB,0.24669E-01_JPRB,0.23473E-01_JPRB,0.22995E-01_JPRB, & |
1957 |
|
✗ |
& 0.21803E-01_JPRB,0.19985E-01_JPRB,0.19915E-01_JPRB,0.22325E-01_JPRB /) |
1958 |
|
|
KA(:, 3, 1,10) = (/ & |
1959 |
|
|
& 0.28168E-01_JPRB,0.26278E-01_JPRB,0.25280E-01_JPRB,0.24624E-01_JPRB,0.24316E-01_JPRB, & |
1960 |
|
✗ |
& 0.23197E-01_JPRB,0.21657E-01_JPRB,0.22779E-01_JPRB,0.25626E-01_JPRB /) |
1961 |
|
|
KA(:, 4, 1,10) = (/ & |
1962 |
|
|
& 0.27980E-01_JPRB,0.26431E-01_JPRB,0.25828E-01_JPRB,0.25920E-01_JPRB,0.25669E-01_JPRB, & |
|