Line |
Branch |
Exec |
Source |
1 |
|
|
!OCL SCALAR |
2 |
|
|
!pgi$r opt=0 |
3 |
|
✗ |
SUBROUTINE SRTM_KGB16 |
4 |
|
|
|
5 |
|
|
! Originally by J.Delamere, Atmospheric & Environmental Research. |
6 |
|
|
! Revision: 2.4 |
7 |
|
|
! BAND 16: 2600-3000 cm-1 (low - H2O,CH4; high - nothing) |
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 YOESRTA16, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT1 & |
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_KGB16',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_KGB16',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_KGB16:PART1',0,ZHOOK_HANDLE) |
57 |
|
|
|
58 |
|
|
|
59 |
|
|
SFLUXREF = (/ & |
60 |
|
|
& 1.92269_JPRB , 1.72844_JPRB , 1.64326_JPRB , 1.58451_JPRB & |
61 |
|
|
& , 1.44031_JPRB , 1.25108_JPRB , 1.02724_JPRB , 0.776759_JPRB & |
62 |
|
|
& , 0.534444_JPRB , 5.87755E-02_JPRB, 4.86706E-02_JPRB, 3.87989E-02_JPRB & |
63 |
|
✗ |
& , 2.84532E-02_JPRB, 1.82431E-02_JPRB, 6.92320E-03_JPRB, 9.70770E-04_JPRB /) |
64 |
|
|
|
65 |
|
|
! Rayleigh extinction coefficient at v = 2925 cm-1. |
66 |
|
✗ |
RAYL = 2.91E-10_JPRB |
67 |
|
|
|
68 |
|
✗ |
STRRAT1 = 252.131_JPRB |
69 |
|
|
|
70 |
|
✗ |
LAYREFFR = 18 |
71 |
|
|
|
72 |
|
|
! ------------------------------------------------------------------ |
73 |
|
|
|
74 |
|
|
! The array KA contains absorption coefs at the 16 chosen g-values |
75 |
|
|
! for a range of pressure levels> ~100mb, temperatures, and binary |
76 |
|
|
! species parameters (see taumol.f for definition). The first |
77 |
|
|
! index in the array, JS, runs from 1 to 9, and corresponds to |
78 |
|
|
! different values of the binary species parameter. For instance, |
79 |
|
|
! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, |
80 |
|
|
! JS = 3 corresponds to the parameter value 2/8, etc. The second index |
81 |
|
|
! in the array, JT, which runs from 1 to 5, corresponds to different |
82 |
|
|
! temperatures. More specifically, JT = 3 means that the data are for |
83 |
|
|
! the reference temperature TREF for this pressure level, JT = 2 refers |
84 |
|
|
! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 |
85 |
|
|
! is for TREF+30. The third index, JP, runs from 1 to 13 and refers |
86 |
|
|
! to the JPth reference pressure level (see taumol.f for these levels |
87 |
|
|
! in mb). The fourth index, IG, goes from 1 to 16, and indicates |
88 |
|
|
! which g-interval the absorption coefficients are for. |
89 |
|
|
! ----------------------------------------------------------------- |
90 |
|
|
|
91 |
|
|
KA(:, 1, 1, 1) = (/ & |
92 |
|
|
& 0.15349E-04_JPRB,0.89162E-04_JPRB,0.97706E-04_JPRB,0.96973E-04_JPRB,0.90703E-04_JPRB, & |
93 |
|
✗ |
& 0.80393E-04_JPRB,0.67242E-04_JPRB,0.50804E-04_JPRB,0.23334E-04_JPRB /) |
94 |
|
|
KA(:, 2, 1, 1) = (/ & |
95 |
|
|
& 0.16138E-04_JPRB,0.89235E-04_JPRB,0.97696E-04_JPRB,0.96116E-04_JPRB,0.89625E-04_JPRB, & |
96 |
|
✗ |
& 0.79382E-04_JPRB,0.66587E-04_JPRB,0.50583E-04_JPRB,0.24342E-04_JPRB /) |
97 |
|
|
KA(:, 3, 1, 1) = (/ & |
98 |
|
|
& 0.16801E-04_JPRB,0.89390E-04_JPRB,0.97492E-04_JPRB,0.95146E-04_JPRB,0.88483E-04_JPRB, & |
99 |
|
✗ |
& 0.78325E-04_JPRB,0.65873E-04_JPRB,0.50342E-04_JPRB,0.25245E-04_JPRB /) |
100 |
|
|
KA(:, 4, 1, 1) = (/ & |
101 |
|
|
& 0.17584E-04_JPRB,0.89321E-04_JPRB,0.97141E-04_JPRB,0.93952E-04_JPRB,0.87141E-04_JPRB, & |
102 |
|
✗ |
& 0.77126E-04_JPRB,0.65068E-04_JPRB,0.49985E-04_JPRB,0.26046E-04_JPRB /) |
103 |
|
|
KA(:, 5, 1, 1) = (/ & |
104 |
|
|
& 0.18258E-04_JPRB,0.89204E-04_JPRB,0.96602E-04_JPRB,0.92773E-04_JPRB,0.85832E-04_JPRB, & |
105 |
|
✗ |
& 0.76015E-04_JPRB,0.64318E-04_JPRB,0.49612E-04_JPRB,0.26697E-04_JPRB /) |
106 |
|
|
KA(:, 1, 2, 1) = (/ & |
107 |
|
|
& 0.12783E-04_JPRB,0.77013E-04_JPRB,0.85056E-04_JPRB,0.84160E-04_JPRB,0.79021E-04_JPRB, & |
108 |
|
✗ |
& 0.70101E-04_JPRB,0.58520E-04_JPRB,0.44007E-04_JPRB,0.19895E-04_JPRB /) |
109 |
|
|
KA(:, 2, 2, 1) = (/ & |
110 |
|
|
& 0.13452E-04_JPRB,0.77084E-04_JPRB,0.84929E-04_JPRB,0.83386E-04_JPRB,0.78122E-04_JPRB, & |
111 |
|
✗ |
& 0.69293E-04_JPRB,0.57974E-04_JPRB,0.43855E-04_JPRB,0.20713E-04_JPRB /) |
112 |
|
|
KA(:, 3, 2, 1) = (/ & |
113 |
|
|
& 0.14066E-04_JPRB,0.77185E-04_JPRB,0.84612E-04_JPRB,0.82498E-04_JPRB,0.77177E-04_JPRB, & |
114 |
|
✗ |
& 0.68443E-04_JPRB,0.57444E-04_JPRB,0.43722E-04_JPRB,0.21494E-04_JPRB /) |
115 |
|
|
KA(:, 4, 2, 1) = (/ & |
116 |
|
|
& 0.14678E-04_JPRB,0.76996E-04_JPRB,0.83962E-04_JPRB,0.81526E-04_JPRB,0.76049E-04_JPRB, & |
117 |
|
✗ |
& 0.67485E-04_JPRB,0.56822E-04_JPRB,0.43530E-04_JPRB,0.22200E-04_JPRB /) |
118 |
|
|
KA(:, 5, 2, 1) = (/ & |
119 |
|
|
& 0.15258E-04_JPRB,0.76788E-04_JPRB,0.82821E-04_JPRB,0.80320E-04_JPRB,0.74845E-04_JPRB, & |
120 |
|
✗ |
& 0.66487E-04_JPRB,0.56144E-04_JPRB,0.43262E-04_JPRB,0.22757E-04_JPRB /) |
121 |
|
|
KA(:, 1, 3, 1) = (/ & |
122 |
|
|
& 0.10474E-04_JPRB,0.66144E-04_JPRB,0.73703E-04_JPRB,0.72701E-04_JPRB,0.68638E-04_JPRB, & |
123 |
|
✗ |
& 0.60826E-04_JPRB,0.50854E-04_JPRB,0.37989E-04_JPRB,0.17743E-04_JPRB /) |
124 |
|
|
KA(:, 2, 3, 1) = (/ & |
125 |
|
|
& 0.11024E-04_JPRB,0.66096E-04_JPRB,0.73447E-04_JPRB,0.72029E-04_JPRB,0.67858E-04_JPRB, & |
126 |
|
✗ |
& 0.60163E-04_JPRB,0.50424E-04_JPRB,0.37886E-04_JPRB,0.18519E-04_JPRB /) |
127 |
|
|
KA(:, 3, 3, 1) = (/ & |
128 |
|
|
& 0.11534E-04_JPRB,0.65974E-04_JPRB,0.72795E-04_JPRB,0.71229E-04_JPRB,0.67005E-04_JPRB, & |
129 |
|
✗ |
& 0.59442E-04_JPRB,0.49950E-04_JPRB,0.37779E-04_JPRB,0.19184E-04_JPRB /) |
130 |
|
|
KA(:, 4, 3, 1) = (/ & |
131 |
|
|
& 0.12091E-04_JPRB,0.65752E-04_JPRB,0.72003E-04_JPRB,0.70357E-04_JPRB,0.66129E-04_JPRB, & |
132 |
|
✗ |
& 0.58718E-04_JPRB,0.49503E-04_JPRB,0.37690E-04_JPRB,0.19788E-04_JPRB /) |
133 |
|
|
KA(:, 5, 3, 1) = (/ & |
134 |
|
|
& 0.12560E-04_JPRB,0.65678E-04_JPRB,0.71013E-04_JPRB,0.69266E-04_JPRB,0.65076E-04_JPRB, & |
135 |
|
✗ |
& 0.57873E-04_JPRB,0.48947E-04_JPRB,0.37519E-04_JPRB,0.20290E-04_JPRB /) |
136 |
|
|
KA(:, 1, 4, 1) = (/ & |
137 |
|
|
& 0.85236E-05_JPRB,0.56692E-04_JPRB,0.63625E-04_JPRB,0.62567E-04_JPRB,0.59412E-04_JPRB, & |
138 |
|
✗ |
& 0.52601E-04_JPRB,0.43957E-04_JPRB,0.32602E-04_JPRB,0.16862E-04_JPRB /) |
139 |
|
|
KA(:, 2, 4, 1) = (/ & |
140 |
|
|
& 0.89886E-05_JPRB,0.56512E-04_JPRB,0.63288E-04_JPRB,0.61902E-04_JPRB,0.58733E-04_JPRB, & |
141 |
|
✗ |
& 0.52036E-04_JPRB,0.43629E-04_JPRB,0.32592E-04_JPRB,0.17543E-04_JPRB /) |
142 |
|
|
KA(:, 3, 4, 1) = (/ & |
143 |
|
|
& 0.94085E-05_JPRB,0.56287E-04_JPRB,0.62588E-04_JPRB,0.61197E-04_JPRB,0.58020E-04_JPRB, & |
144 |
|
✗ |
& 0.51469E-04_JPRB,0.43247E-04_JPRB,0.32567E-04_JPRB,0.18199E-04_JPRB /) |
145 |
|
|
KA(:, 4, 4, 1) = (/ & |
146 |
|
|
& 0.98830E-05_JPRB,0.55998E-04_JPRB,0.61716E-04_JPRB,0.60485E-04_JPRB,0.57250E-04_JPRB, & |
147 |
|
✗ |
& 0.50840E-04_JPRB,0.42842E-04_JPRB,0.32520E-04_JPRB,0.18771E-04_JPRB /) |
148 |
|
|
KA(:, 5, 4, 1) = (/ & |
149 |
|
|
& 0.10278E-04_JPRB,0.55929E-04_JPRB,0.61011E-04_JPRB,0.59745E-04_JPRB,0.56462E-04_JPRB, & |
150 |
|
✗ |
& 0.50254E-04_JPRB,0.42468E-04_JPRB,0.32457E-04_JPRB,0.19296E-04_JPRB /) |
151 |
|
|
KA(:, 1, 5, 1) = (/ & |
152 |
|
|
& 0.68852E-05_JPRB,0.48282E-04_JPRB,0.54761E-04_JPRB,0.53543E-04_JPRB,0.51345E-04_JPRB, & |
153 |
|
✗ |
& 0.45380E-04_JPRB,0.37794E-04_JPRB,0.27880E-04_JPRB,0.14959E-04_JPRB /) |
154 |
|
|
KA(:, 2, 5, 1) = (/ & |
155 |
|
|
& 0.72830E-05_JPRB,0.48206E-04_JPRB,0.54379E-04_JPRB,0.52923E-04_JPRB,0.50723E-04_JPRB, & |
156 |
|
✗ |
& 0.44903E-04_JPRB,0.37536E-04_JPRB,0.27938E-04_JPRB,0.15841E-04_JPRB /) |
157 |
|
|
KA(:, 3, 5, 1) = (/ & |
158 |
|
|
& 0.76436E-05_JPRB,0.47928E-04_JPRB,0.53597E-04_JPRB,0.52299E-04_JPRB,0.50061E-04_JPRB, & |
159 |
|
✗ |
& 0.44426E-04_JPRB,0.37240E-04_JPRB,0.27962E-04_JPRB,0.16760E-04_JPRB /) |
160 |
|
|
KA(:, 4, 5, 1) = (/ & |
161 |
|
|
& 0.80055E-05_JPRB,0.47625E-04_JPRB,0.52896E-04_JPRB,0.51678E-04_JPRB,0.49302E-04_JPRB, & |
162 |
|
✗ |
& 0.43902E-04_JPRB,0.36930E-04_JPRB,0.27968E-04_JPRB,0.17586E-04_JPRB /) |
163 |
|
|
KA(:, 5, 5, 1) = (/ & |
164 |
|
|
& 0.83555E-05_JPRB,0.47486E-04_JPRB,0.52258E-04_JPRB,0.51112E-04_JPRB,0.48444E-04_JPRB, & |
165 |
|
✗ |
& 0.43409E-04_JPRB,0.36652E-04_JPRB,0.27966E-04_JPRB,0.18270E-04_JPRB /) |
166 |
|
|
KA(:, 1, 6, 1) = (/ & |
167 |
|
|
& 0.55363E-05_JPRB,0.40995E-04_JPRB,0.46991E-04_JPRB,0.45840E-04_JPRB,0.44200E-04_JPRB, & |
168 |
|
✗ |
& 0.38984E-04_JPRB,0.32341E-04_JPRB,0.23743E-04_JPRB,0.12825E-04_JPRB /) |
169 |
|
|
KA(:, 2, 6, 1) = (/ & |
170 |
|
|
& 0.58741E-05_JPRB,0.40851E-04_JPRB,0.46490E-04_JPRB,0.45277E-04_JPRB,0.43651E-04_JPRB, & |
171 |
|
✗ |
& 0.38565E-04_JPRB,0.32141E-04_JPRB,0.23813E-04_JPRB,0.13671E-04_JPRB /) |
172 |
|
|
KA(:, 3, 6, 1) = (/ & |
173 |
|
|
& 0.61821E-05_JPRB,0.40643E-04_JPRB,0.45850E-04_JPRB,0.44728E-04_JPRB,0.42924E-04_JPRB, & |
174 |
|
✗ |
& 0.38164E-04_JPRB,0.31920E-04_JPRB,0.23858E-04_JPRB,0.14647E-04_JPRB /) |
175 |
|
|
KA(:, 4, 6, 1) = (/ & |
176 |
|
|
& 0.64614E-05_JPRB,0.40329E-04_JPRB,0.45202E-04_JPRB,0.44163E-04_JPRB,0.42054E-04_JPRB, & |
177 |
|
✗ |
& 0.37723E-04_JPRB,0.31679E-04_JPRB,0.23886E-04_JPRB,0.15533E-04_JPRB /) |
178 |
|
|
KA(:, 5, 6, 1) = (/ & |
179 |
|
|
& 0.67675E-05_JPRB,0.40137E-04_JPRB,0.44578E-04_JPRB,0.43574E-04_JPRB,0.41267E-04_JPRB, & |
180 |
|
✗ |
& 0.37271E-04_JPRB,0.31420E-04_JPRB,0.23883E-04_JPRB,0.16436E-04_JPRB /) |
181 |
|
|
KA(:, 1, 7, 1) = (/ & |
182 |
|
|
& 0.44217E-05_JPRB,0.34626E-04_JPRB,0.39970E-04_JPRB,0.39080E-04_JPRB,0.37744E-04_JPRB, & |
183 |
|
✗ |
& 0.33237E-04_JPRB,0.27507E-04_JPRB,0.20074E-04_JPRB,0.11007E-04_JPRB /) |
184 |
|
|
KA(:, 2, 7, 1) = (/ & |
185 |
|
|
& 0.47104E-05_JPRB,0.34494E-04_JPRB,0.39592E-04_JPRB,0.38568E-04_JPRB,0.37283E-04_JPRB, & |
186 |
|
✗ |
& 0.32875E-04_JPRB,0.27342E-04_JPRB,0.20149E-04_JPRB,0.11834E-04_JPRB /) |
187 |
|
|
KA(:, 3, 7, 1) = (/ & |
188 |
|
|
& 0.49764E-05_JPRB,0.34300E-04_JPRB,0.39007E-04_JPRB,0.38074E-04_JPRB,0.36415E-04_JPRB, & |
189 |
|
✗ |
& 0.32528E-04_JPRB,0.27158E-04_JPRB,0.20213E-04_JPRB,0.12801E-04_JPRB /) |
190 |
|
|
KA(:, 4, 7, 1) = (/ & |
191 |
|
|
& 0.52135E-05_JPRB,0.34067E-04_JPRB,0.38449E-04_JPRB,0.37591E-04_JPRB,0.35661E-04_JPRB, & |
192 |
|
✗ |
& 0.32173E-04_JPRB,0.26959E-04_JPRB,0.20265E-04_JPRB,0.13763E-04_JPRB /) |
193 |
|
|
KA(:, 5, 7, 1) = (/ & |
194 |
|
|
& 0.54275E-05_JPRB,0.33832E-04_JPRB,0.37875E-04_JPRB,0.37057E-04_JPRB,0.35065E-04_JPRB, & |
195 |
|
✗ |
& 0.31800E-04_JPRB,0.26760E-04_JPRB,0.20278E-04_JPRB,0.14677E-04_JPRB /) |
196 |
|
|
KA(:, 1, 8, 1) = (/ & |
197 |
|
|
& 0.35317E-05_JPRB,0.29115E-04_JPRB,0.33824E-04_JPRB,0.33370E-04_JPRB,0.32237E-04_JPRB, & |
198 |
|
✗ |
& 0.28331E-04_JPRB,0.23362E-04_JPRB,0.16932E-04_JPRB,0.96086E-05_JPRB /) |
199 |
|
|
KA(:, 2, 8, 1) = (/ & |
200 |
|
|
& 0.37854E-05_JPRB,0.29084E-04_JPRB,0.33632E-04_JPRB,0.32929E-04_JPRB,0.31805E-04_JPRB, & |
201 |
|
✗ |
& 0.28018E-04_JPRB,0.23236E-04_JPRB,0.17006E-04_JPRB,0.10621E-04_JPRB /) |
202 |
|
|
KA(:, 3, 8, 1) = (/ & |
203 |
|
|
& 0.40127E-05_JPRB,0.28935E-04_JPRB,0.33190E-04_JPRB,0.32483E-04_JPRB,0.30936E-04_JPRB, & |
204 |
|
✗ |
& 0.27716E-04_JPRB,0.23074E-04_JPRB,0.17087E-04_JPRB,0.11657E-04_JPRB /) |
205 |
|
|
KA(:, 4, 8, 1) = (/ & |
206 |
|
|
& 0.42184E-05_JPRB,0.28732E-04_JPRB,0.32711E-04_JPRB,0.32042E-04_JPRB,0.30351E-04_JPRB, & |
207 |
|
✗ |
& 0.27404E-04_JPRB,0.22906E-04_JPRB,0.17140E-04_JPRB,0.12504E-04_JPRB /) |
208 |
|
|
KA(:, 5, 8, 1) = (/ & |
209 |
|
|
& 0.44040E-05_JPRB,0.28488E-04_JPRB,0.32207E-04_JPRB,0.31581E-04_JPRB,0.29852E-04_JPRB, & |
210 |
|
✗ |
& 0.27086E-04_JPRB,0.22740E-04_JPRB,0.17166E-04_JPRB,0.13401E-04_JPRB /) |
211 |
|
|
KA(:, 1, 9, 1) = (/ & |
212 |
|
|
& 0.28004E-05_JPRB,0.24421E-04_JPRB,0.28507E-04_JPRB,0.28270E-04_JPRB,0.27415E-04_JPRB, & |
213 |
|
✗ |
& 0.24038E-04_JPRB,0.19759E-04_JPRB,0.14209E-04_JPRB,0.88498E-05_JPRB /) |
214 |
|
|
KA(:, 2, 9, 1) = (/ & |
215 |
|
|
& 0.30342E-05_JPRB,0.24385E-04_JPRB,0.28391E-04_JPRB,0.27999E-04_JPRB,0.26969E-04_JPRB, & |
216 |
|
✗ |
& 0.23770E-04_JPRB,0.19651E-04_JPRB,0.14288E-04_JPRB,0.10048E-04_JPRB /) |
217 |
|
|
KA(:, 3, 9, 1) = (/ & |
218 |
|
|
& 0.32304E-05_JPRB,0.24304E-04_JPRB,0.28136E-04_JPRB,0.27602E-04_JPRB,0.26246E-04_JPRB, & |
219 |
|
✗ |
& 0.23508E-04_JPRB,0.19517E-04_JPRB,0.14360E-04_JPRB,0.11188E-04_JPRB /) |
220 |
|
|
KA(:, 4, 9, 1) = (/ & |
221 |
|
|
& 0.34049E-05_JPRB,0.24160E-04_JPRB,0.27731E-04_JPRB,0.27211E-04_JPRB,0.25756E-04_JPRB, & |
222 |
|
✗ |
& 0.23246E-04_JPRB,0.19380E-04_JPRB,0.14426E-04_JPRB,0.12319E-04_JPRB /) |
223 |
|
|
KA(:, 5, 9, 1) = (/ & |
224 |
|
|
& 0.35648E-05_JPRB,0.23940E-04_JPRB,0.27283E-04_JPRB,0.26806E-04_JPRB,0.25320E-04_JPRB, & |
225 |
|
✗ |
& 0.22960E-04_JPRB,0.19234E-04_JPRB,0.14451E-04_JPRB,0.13506E-04_JPRB /) |
226 |
|
|
KA(:, 1,10, 1) = (/ & |
227 |
|
|
& 0.22115E-05_JPRB,0.20358E-04_JPRB,0.23898E-04_JPRB,0.23781E-04_JPRB,0.23142E-04_JPRB, & |
228 |
|
✗ |
& 0.20260E-04_JPRB,0.16593E-04_JPRB,0.11876E-04_JPRB,0.77665E-05_JPRB /) |
229 |
|
|
KA(:, 2,10, 1) = (/ & |
230 |
|
|
& 0.24264E-05_JPRB,0.20362E-04_JPRB,0.23820E-04_JPRB,0.23569E-04_JPRB,0.22708E-04_JPRB, & |
231 |
|
✗ |
& 0.20037E-04_JPRB,0.16524E-04_JPRB,0.11954E-04_JPRB,0.90216E-05_JPRB /) |
232 |
|
|
KA(:, 3,10, 1) = (/ & |
233 |
|
|
& 0.26002E-05_JPRB,0.20303E-04_JPRB,0.23663E-04_JPRB,0.23295E-04_JPRB,0.22132E-04_JPRB, & |
234 |
|
✗ |
& 0.19806E-04_JPRB,0.16414E-04_JPRB,0.12011E-04_JPRB,0.10379E-04_JPRB /) |
235 |
|
|
KA(:, 4,10, 1) = (/ & |
236 |
|
|
& 0.27486E-05_JPRB,0.20198E-04_JPRB,0.23357E-04_JPRB,0.22943E-04_JPRB,0.21707E-04_JPRB, & |
237 |
|
✗ |
& 0.19580E-04_JPRB,0.16298E-04_JPRB,0.12060E-04_JPRB,0.11771E-04_JPRB /) |
238 |
|
|
KA(:, 5,10, 1) = (/ & |
239 |
|
|
& 0.28881E-05_JPRB,0.20019E-04_JPRB,0.22982E-04_JPRB,0.22584E-04_JPRB,0.21296E-04_JPRB, & |
240 |
|
✗ |
& 0.19341E-04_JPRB,0.16164E-04_JPRB,0.12088E-04_JPRB,0.13279E-04_JPRB /) |
241 |
|
|
KA(:, 1,11, 1) = (/ & |
242 |
|
|
& 0.18320E-05_JPRB,0.16927E-04_JPRB,0.19968E-04_JPRB,0.19856E-04_JPRB,0.19352E-04_JPRB, & |
243 |
|
✗ |
& 0.16934E-04_JPRB,0.13866E-04_JPRB,0.99116E-05_JPRB,0.67134E-05_JPRB /) |
244 |
|
|
KA(:, 2,11, 1) = (/ & |
245 |
|
|
& 0.20049E-05_JPRB,0.16927E-04_JPRB,0.19853E-04_JPRB,0.19674E-04_JPRB,0.18853E-04_JPRB, & |
246 |
|
✗ |
& 0.16739E-04_JPRB,0.13797E-04_JPRB,0.99757E-05_JPRB,0.78968E-05_JPRB /) |
247 |
|
|
KA(:, 3,11, 1) = (/ & |
248 |
|
|
& 0.21502E-05_JPRB,0.16866E-04_JPRB,0.19704E-04_JPRB,0.19448E-04_JPRB,0.18441E-04_JPRB, & |
249 |
|
✗ |
& 0.16541E-04_JPRB,0.13705E-04_JPRB,0.10023E-04_JPRB,0.91593E-05_JPRB /) |
250 |
|
|
KA(:, 4,11, 1) = (/ & |
251 |
|
|
& 0.22714E-05_JPRB,0.16777E-04_JPRB,0.19465E-04_JPRB,0.19143E-04_JPRB,0.18062E-04_JPRB, & |
252 |
|
✗ |
& 0.16347E-04_JPRB,0.13601E-04_JPRB,0.10057E-04_JPRB,0.10536E-04_JPRB /) |
253 |
|
|
KA(:, 5,11, 1) = (/ & |
254 |
|
|
& 0.23867E-05_JPRB,0.16634E-04_JPRB,0.19123E-04_JPRB,0.18829E-04_JPRB,0.17732E-04_JPRB, & |
255 |
|
✗ |
& 0.16132E-04_JPRB,0.13484E-04_JPRB,0.10082E-04_JPRB,0.12018E-04_JPRB /) |
256 |
|
|
KA(:, 1,12, 1) = (/ & |
257 |
|
|
& 0.15169E-05_JPRB,0.14042E-04_JPRB,0.16626E-04_JPRB,0.16552E-04_JPRB,0.16148E-04_JPRB, & |
258 |
|
✗ |
& 0.14121E-04_JPRB,0.11557E-04_JPRB,0.82558E-05_JPRB,0.56116E-05_JPRB /) |
259 |
|
|
KA(:, 2,12, 1) = (/ & |
260 |
|
|
& 0.16576E-05_JPRB,0.14051E-04_JPRB,0.16515E-04_JPRB,0.16389E-04_JPRB,0.15651E-04_JPRB, & |
261 |
|
✗ |
& 0.13956E-04_JPRB,0.11498E-04_JPRB,0.83065E-05_JPRB,0.66756E-05_JPRB /) |
262 |
|
|
KA(:, 3,12, 1) = (/ & |
263 |
|
|
& 0.17786E-05_JPRB,0.13996E-04_JPRB,0.16382E-04_JPRB,0.16200E-04_JPRB,0.15335E-04_JPRB, & |
264 |
|
✗ |
& 0.13791E-04_JPRB,0.11414E-04_JPRB,0.83396E-05_JPRB,0.78609E-05_JPRB /) |
265 |
|
|
KA(:, 4,12, 1) = (/ & |
266 |
|
|
& 0.18784E-05_JPRB,0.13920E-04_JPRB,0.16173E-04_JPRB,0.15944E-04_JPRB,0.15016E-04_JPRB, & |
267 |
|
✗ |
& 0.13612E-04_JPRB,0.11321E-04_JPRB,0.83696E-05_JPRB,0.90657E-05_JPRB /) |
268 |
|
|
KA(:, 5,12, 1) = (/ & |
269 |
|
|
& 0.19730E-05_JPRB,0.13808E-04_JPRB,0.15876E-04_JPRB,0.15671E-04_JPRB,0.14704E-04_JPRB, & |
270 |
|
✗ |
& 0.13425E-04_JPRB,0.11218E-04_JPRB,0.83846E-05_JPRB,0.10342E-04_JPRB /) |
271 |
|
|
KA(:, 1,13, 1) = (/ & |
272 |
|
|
& 0.12548E-05_JPRB,0.11622E-04_JPRB,0.13817E-04_JPRB,0.13765E-04_JPRB,0.13366E-04_JPRB, & |
273 |
|
✗ |
& 0.11761E-04_JPRB,0.96214E-05_JPRB,0.68586E-05_JPRB,0.46815E-05_JPRB /) |
274 |
|
|
KA(:, 2,13, 1) = (/ & |
275 |
|
|
& 0.13720E-05_JPRB,0.11638E-04_JPRB,0.13707E-04_JPRB,0.13640E-04_JPRB,0.13007E-04_JPRB, & |
276 |
|
✗ |
& 0.11624E-04_JPRB,0.95672E-05_JPRB,0.68978E-05_JPRB,0.55831E-05_JPRB /) |
277 |
|
|
KA(:, 3,13, 1) = (/ & |
278 |
|
|
& 0.14716E-05_JPRB,0.11595E-04_JPRB,0.13603E-04_JPRB,0.13476E-04_JPRB,0.12728E-04_JPRB, & |
279 |
|
✗ |
& 0.11474E-04_JPRB,0.94883E-05_JPRB,0.69284E-05_JPRB,0.65694E-05_JPRB /) |
280 |
|
|
KA(:, 4,13, 1) = (/ & |
281 |
|
|
& 0.15544E-05_JPRB,0.11533E-04_JPRB,0.13432E-04_JPRB,0.13265E-04_JPRB,0.12450E-04_JPRB, & |
282 |
|
✗ |
& 0.11320E-04_JPRB,0.94054E-05_JPRB,0.69510E-05_JPRB,0.75699E-05_JPRB /) |
283 |
|
|
KA(:, 5,13, 1) = (/ & |
284 |
|
|
& 0.16324E-05_JPRB,0.11450E-04_JPRB,0.13177E-04_JPRB,0.13030E-04_JPRB,0.12193E-04_JPRB, & |
285 |
|
✗ |
& 0.11159E-04_JPRB,0.93157E-05_JPRB,0.69543E-05_JPRB,0.86449E-05_JPRB /) |
286 |
|
|
KA(:, 1, 1, 2) = (/ & |
287 |
|
|
& 0.10905E-03_JPRB,0.19084E-03_JPRB,0.20069E-03_JPRB,0.19832E-03_JPRB,0.18610E-03_JPRB, & |
288 |
|
✗ |
& 0.17089E-03_JPRB,0.14990E-03_JPRB,0.11759E-03_JPRB,0.64675E-04_JPRB /) |
289 |
|
|
KA(:, 2, 1, 2) = (/ & |
290 |
|
|
& 0.11105E-03_JPRB,0.18952E-03_JPRB,0.19885E-03_JPRB,0.19823E-03_JPRB,0.18675E-03_JPRB, & |
291 |
|
✗ |
& 0.17126E-03_JPRB,0.15098E-03_JPRB,0.11929E-03_JPRB,0.67071E-04_JPRB /) |
292 |
|
|
KA(:, 3, 1, 2) = (/ & |
293 |
|
|
& 0.11276E-03_JPRB,0.18853E-03_JPRB,0.19769E-03_JPRB,0.19892E-03_JPRB,0.18804E-03_JPRB, & |
294 |
|
✗ |
& 0.17228E-03_JPRB,0.15234E-03_JPRB,0.12104E-03_JPRB,0.69562E-04_JPRB /) |
295 |
|
|
KA(:, 4, 1, 2) = (/ & |
296 |
|
|
& 0.11331E-03_JPRB,0.18716E-03_JPRB,0.19673E-03_JPRB,0.19862E-03_JPRB,0.18922E-03_JPRB, & |
297 |
|
✗ |
& 0.17345E-03_JPRB,0.15364E-03_JPRB,0.12287E-03_JPRB,0.72145E-04_JPRB /) |
298 |
|
|
KA(:, 5, 1, 2) = (/ & |
299 |
|
|
& 0.11374E-03_JPRB,0.18626E-03_JPRB,0.19656E-03_JPRB,0.19857E-03_JPRB,0.19062E-03_JPRB, & |
300 |
|
✗ |
& 0.17445E-03_JPRB,0.15373E-03_JPRB,0.12483E-03_JPRB,0.74697E-04_JPRB /) |
301 |
|
|
KA(:, 1, 2, 2) = (/ & |
302 |
|
|
& 0.94458E-04_JPRB,0.16650E-03_JPRB,0.17483E-03_JPRB,0.17491E-03_JPRB,0.16501E-03_JPRB, & |
303 |
|
✗ |
& 0.15069E-03_JPRB,0.13359E-03_JPRB,0.10498E-03_JPRB,0.55352E-04_JPRB /) |
304 |
|
|
KA(:, 2, 2, 2) = (/ & |
305 |
|
|
& 0.96121E-04_JPRB,0.16557E-03_JPRB,0.17383E-03_JPRB,0.17514E-03_JPRB,0.16597E-03_JPRB, & |
306 |
|
✗ |
& 0.15082E-03_JPRB,0.13480E-03_JPRB,0.10677E-03_JPRB,0.57531E-04_JPRB /) |
307 |
|
|
KA(:, 3, 2, 2) = (/ & |
308 |
|
|
& 0.97581E-04_JPRB,0.16494E-03_JPRB,0.17349E-03_JPRB,0.17480E-03_JPRB,0.16726E-03_JPRB, & |
309 |
|
✗ |
& 0.15206E-03_JPRB,0.13520E-03_JPRB,0.10844E-03_JPRB,0.59621E-04_JPRB /) |
310 |
|
|
KA(:, 4, 2, 2) = (/ & |
311 |
|
|
& 0.98152E-04_JPRB,0.16427E-03_JPRB,0.17323E-03_JPRB,0.17471E-03_JPRB,0.16812E-03_JPRB, & |
312 |
|
✗ |
& 0.15352E-03_JPRB,0.13523E-03_JPRB,0.11008E-03_JPRB,0.61894E-04_JPRB /) |
313 |
|
|
KA(:, 5, 2, 2) = (/ & |
314 |
|
|
& 0.98081E-04_JPRB,0.16346E-03_JPRB,0.17334E-03_JPRB,0.17481E-03_JPRB,0.16845E-03_JPRB, & |
315 |
|
✗ |
& 0.15496E-03_JPRB,0.13612E-03_JPRB,0.11175E-03_JPRB,0.64159E-04_JPRB /) |
316 |
|
|
KA(:, 1, 3, 2) = (/ & |
317 |
|
|
& 0.80988E-04_JPRB,0.14444E-03_JPRB,0.15236E-03_JPRB,0.15355E-03_JPRB,0.14515E-03_JPRB, & |
318 |
|
✗ |
& 0.13201E-03_JPRB,0.11827E-03_JPRB,0.92843E-04_JPRB,0.47818E-04_JPRB /) |
319 |
|
|
KA(:, 2, 3, 2) = (/ & |
320 |
|
|
& 0.82627E-04_JPRB,0.14399E-03_JPRB,0.15198E-03_JPRB,0.15308E-03_JPRB,0.14622E-03_JPRB, & |
321 |
|
✗ |
& 0.13285E-03_JPRB,0.11829E-03_JPRB,0.94579E-04_JPRB,0.49498E-04_JPRB /) |
322 |
|
|
KA(:, 3, 3, 2) = (/ & |
323 |
|
|
& 0.83666E-04_JPRB,0.14365E-03_JPRB,0.15183E-03_JPRB,0.15300E-03_JPRB,0.14704E-03_JPRB, & |
324 |
|
✗ |
& 0.13418E-03_JPRB,0.11832E-03_JPRB,0.96259E-04_JPRB,0.51225E-04_JPRB /) |
325 |
|
|
KA(:, 4, 3, 2) = (/ & |
326 |
|
|
& 0.84164E-04_JPRB,0.14362E-03_JPRB,0.15205E-03_JPRB,0.15285E-03_JPRB,0.14764E-03_JPRB, & |
327 |
|
✗ |
& 0.13590E-03_JPRB,0.11954E-03_JPRB,0.97885E-04_JPRB,0.52990E-04_JPRB /) |
328 |
|
|
KA(:, 5, 3, 2) = (/ & |
329 |
|
|
& 0.84014E-04_JPRB,0.14269E-03_JPRB,0.15214E-03_JPRB,0.15331E-03_JPRB,0.14865E-03_JPRB, & |
330 |
|
✗ |
& 0.13747E-03_JPRB,0.12089E-03_JPRB,0.99389E-04_JPRB,0.54936E-04_JPRB /) |
331 |
|
|
KA(:, 1, 4, 2) = (/ & |
332 |
|
|
& 0.69055E-04_JPRB,0.12498E-03_JPRB,0.13260E-03_JPRB,0.13427E-03_JPRB,0.12748E-03_JPRB, & |
333 |
|
✗ |
& 0.11593E-03_JPRB,0.10318E-03_JPRB,0.81535E-04_JPRB,0.43344E-04_JPRB /) |
334 |
|
|
KA(:, 2, 4, 2) = (/ & |
335 |
|
|
& 0.70374E-04_JPRB,0.12479E-03_JPRB,0.13217E-03_JPRB,0.13387E-03_JPRB,0.12823E-03_JPRB, & |
336 |
|
✗ |
& 0.11702E-03_JPRB,0.10316E-03_JPRB,0.83059E-04_JPRB,0.44577E-04_JPRB /) |
337 |
|
|
KA(:, 3, 4, 2) = (/ & |
338 |
|
|
& 0.71321E-04_JPRB,0.12483E-03_JPRB,0.13205E-03_JPRB,0.13371E-03_JPRB,0.12866E-03_JPRB, & |
339 |
|
✗ |
& 0.11820E-03_JPRB,0.10422E-03_JPRB,0.84648E-04_JPRB,0.45880E-04_JPRB /) |
340 |
|
|
KA(:, 4, 4, 2) = (/ & |
341 |
|
|
& 0.71712E-04_JPRB,0.12475E-03_JPRB,0.13249E-03_JPRB,0.13379E-03_JPRB,0.12934E-03_JPRB, & |
342 |
|
✗ |
& 0.11960E-03_JPRB,0.10551E-03_JPRB,0.86238E-04_JPRB,0.47243E-04_JPRB /) |
343 |
|
|
KA(:, 5, 4, 2) = (/ & |
344 |
|
|
& 0.71917E-04_JPRB,0.12433E-03_JPRB,0.13275E-03_JPRB,0.13434E-03_JPRB,0.13049E-03_JPRB, & |
345 |
|
✗ |
& 0.12131E-03_JPRB,0.10676E-03_JPRB,0.87830E-04_JPRB,0.48641E-04_JPRB /) |
346 |
|
|
KA(:, 1, 5, 2) = (/ & |
347 |
|
|
& 0.58527E-04_JPRB,0.10840E-03_JPRB,0.11507E-03_JPRB,0.11730E-03_JPRB,0.11099E-03_JPRB, & |
348 |
|
✗ |
& 0.10118E-03_JPRB,0.89566E-04_JPRB,0.71122E-04_JPRB,0.43658E-04_JPRB /) |
349 |
|
|
|
350 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART1',1,ZHOOK_HANDLE) |
351 |
|
✗ |
END SUBROUTINE PART1 |
352 |
|
|
|
353 |
|
|
|
354 |
|
✗ |
SUBROUTINE PART2 |
355 |
|
|
|
356 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
357 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART2',0,ZHOOK_HANDLE) |
358 |
|
|
|
359 |
|
|
|
360 |
|
|
KA(:, 2, 5, 2) = (/ & |
361 |
|
|
& 0.59798E-04_JPRB,0.10799E-03_JPRB,0.11447E-03_JPRB,0.11692E-03_JPRB,0.11189E-03_JPRB, & |
362 |
|
✗ |
& 0.10224E-03_JPRB,0.90255E-04_JPRB,0.72476E-04_JPRB,0.44361E-04_JPRB /) |
363 |
|
|
KA(:, 3, 5, 2) = (/ & |
364 |
|
|
& 0.60601E-04_JPRB,0.10799E-03_JPRB,0.11464E-03_JPRB,0.11677E-03_JPRB,0.11225E-03_JPRB, & |
365 |
|
✗ |
& 0.10358E-03_JPRB,0.91122E-04_JPRB,0.73922E-04_JPRB,0.45004E-04_JPRB /) |
366 |
|
|
KA(:, 4, 5, 2) = (/ & |
367 |
|
|
& 0.60971E-04_JPRB,0.10798E-03_JPRB,0.11486E-03_JPRB,0.11681E-03_JPRB,0.11304E-03_JPRB, & |
368 |
|
✗ |
& 0.10512E-03_JPRB,0.91981E-04_JPRB,0.75441E-04_JPRB,0.45782E-04_JPRB /) |
369 |
|
|
KA(:, 5, 5, 2) = (/ & |
370 |
|
|
& 0.61166E-04_JPRB,0.10769E-03_JPRB,0.11529E-03_JPRB,0.11740E-03_JPRB,0.11428E-03_JPRB, & |
371 |
|
✗ |
& 0.10674E-03_JPRB,0.93329E-04_JPRB,0.76963E-04_JPRB,0.46781E-04_JPRB /) |
372 |
|
|
KA(:, 1, 6, 2) = (/ & |
373 |
|
|
& 0.49298E-04_JPRB,0.93665E-04_JPRB,0.99302E-04_JPRB,0.10166E-03_JPRB,0.96125E-04_JPRB, & |
374 |
|
✗ |
& 0.87991E-04_JPRB,0.77830E-04_JPRB,0.61651E-04_JPRB,0.45761E-04_JPRB /) |
375 |
|
|
KA(:, 2, 6, 2) = (/ & |
376 |
|
|
& 0.50498E-04_JPRB,0.93479E-04_JPRB,0.98966E-04_JPRB,0.10139E-03_JPRB,0.96705E-04_JPRB, & |
377 |
|
✗ |
& 0.89173E-04_JPRB,0.78227E-04_JPRB,0.62850E-04_JPRB,0.46039E-04_JPRB /) |
378 |
|
|
KA(:, 3, 6, 2) = (/ & |
379 |
|
|
& 0.51269E-04_JPRB,0.93203E-04_JPRB,0.98973E-04_JPRB,0.10127E-03_JPRB,0.97298E-04_JPRB, & |
380 |
|
✗ |
& 0.90362E-04_JPRB,0.78802E-04_JPRB,0.64157E-04_JPRB,0.46346E-04_JPRB /) |
381 |
|
|
KA(:, 4, 6, 2) = (/ & |
382 |
|
|
& 0.51588E-04_JPRB,0.93137E-04_JPRB,0.99162E-04_JPRB,0.10129E-03_JPRB,0.98592E-04_JPRB, & |
383 |
|
✗ |
& 0.91554E-04_JPRB,0.79929E-04_JPRB,0.65574E-04_JPRB,0.46727E-04_JPRB /) |
384 |
|
|
KA(:, 5, 6, 2) = (/ & |
385 |
|
|
& 0.51597E-04_JPRB,0.92792E-04_JPRB,0.99458E-04_JPRB,0.10170E-03_JPRB,0.99448E-04_JPRB, & |
386 |
|
✗ |
& 0.92834E-04_JPRB,0.81330E-04_JPRB,0.66366E-04_JPRB,0.47183E-04_JPRB /) |
387 |
|
|
KA(:, 1, 7, 2) = (/ & |
388 |
|
|
& 0.41246E-04_JPRB,0.80496E-04_JPRB,0.85316E-04_JPRB,0.87435E-04_JPRB,0.82542E-04_JPRB, & |
389 |
|
✗ |
& 0.75819E-04_JPRB,0.67022E-04_JPRB,0.53111E-04_JPRB,0.48352E-04_JPRB /) |
390 |
|
|
KA(:, 2, 7, 2) = (/ & |
391 |
|
|
& 0.42332E-04_JPRB,0.80236E-04_JPRB,0.84984E-04_JPRB,0.87173E-04_JPRB,0.83192E-04_JPRB, & |
392 |
|
✗ |
& 0.76872E-04_JPRB,0.67154E-04_JPRB,0.54235E-04_JPRB,0.49203E-04_JPRB /) |
393 |
|
|
KA(:, 3, 7, 2) = (/ & |
394 |
|
|
& 0.43069E-04_JPRB,0.79969E-04_JPRB,0.85117E-04_JPRB,0.87191E-04_JPRB,0.83963E-04_JPRB, & |
395 |
|
✗ |
& 0.78027E-04_JPRB,0.67911E-04_JPRB,0.55423E-04_JPRB,0.50036E-04_JPRB /) |
396 |
|
|
KA(:, 4, 7, 2) = (/ & |
397 |
|
|
& 0.43347E-04_JPRB,0.79762E-04_JPRB,0.85176E-04_JPRB,0.87282E-04_JPRB,0.84970E-04_JPRB, & |
398 |
|
✗ |
& 0.78971E-04_JPRB,0.69097E-04_JPRB,0.56659E-04_JPRB,0.50699E-04_JPRB /) |
399 |
|
|
KA(:, 5, 7, 2) = (/ & |
400 |
|
|
& 0.43381E-04_JPRB,0.79473E-04_JPRB,0.85320E-04_JPRB,0.87550E-04_JPRB,0.85526E-04_JPRB, & |
401 |
|
✗ |
& 0.80111E-04_JPRB,0.70399E-04_JPRB,0.56992E-04_JPRB,0.51218E-04_JPRB /) |
402 |
|
|
KA(:, 1, 8, 2) = (/ & |
403 |
|
|
& 0.34402E-04_JPRB,0.69256E-04_JPRB,0.73264E-04_JPRB,0.74907E-04_JPRB,0.70733E-04_JPRB, & |
404 |
|
✗ |
& 0.65058E-04_JPRB,0.57123E-04_JPRB,0.45547E-04_JPRB,0.49061E-04_JPRB /) |
405 |
|
|
KA(:, 2, 8, 2) = (/ & |
406 |
|
|
& 0.35394E-04_JPRB,0.68938E-04_JPRB,0.72891E-04_JPRB,0.74693E-04_JPRB,0.71198E-04_JPRB, & |
407 |
|
✗ |
& 0.66010E-04_JPRB,0.57419E-04_JPRB,0.46585E-04_JPRB,0.51368E-04_JPRB /) |
408 |
|
|
KA(:, 3, 8, 2) = (/ & |
409 |
|
|
& 0.36086E-04_JPRB,0.68637E-04_JPRB,0.72875E-04_JPRB,0.74679E-04_JPRB,0.72090E-04_JPRB, & |
410 |
|
✗ |
& 0.66902E-04_JPRB,0.58282E-04_JPRB,0.47622E-04_JPRB,0.51837E-04_JPRB /) |
411 |
|
|
KA(:, 4, 8, 2) = (/ & |
412 |
|
|
& 0.36445E-04_JPRB,0.68326E-04_JPRB,0.72869E-04_JPRB,0.74856E-04_JPRB,0.72765E-04_JPRB, & |
413 |
|
✗ |
& 0.67827E-04_JPRB,0.59362E-04_JPRB,0.48483E-04_JPRB,0.52297E-04_JPRB /) |
414 |
|
|
KA(:, 5, 8, 2) = (/ & |
415 |
|
|
& 0.36483E-04_JPRB,0.68010E-04_JPRB,0.72961E-04_JPRB,0.75096E-04_JPRB,0.73241E-04_JPRB, & |
416 |
|
✗ |
& 0.68587E-04_JPRB,0.60512E-04_JPRB,0.48784E-04_JPRB,0.53745E-04_JPRB /) |
417 |
|
|
KA(:, 1, 9, 2) = (/ & |
418 |
|
|
& 0.28433E-04_JPRB,0.59232E-04_JPRB,0.62701E-04_JPRB,0.63901E-04_JPRB,0.60103E-04_JPRB, & |
419 |
|
✗ |
& 0.55141E-04_JPRB,0.48531E-04_JPRB,0.38847E-04_JPRB,0.54662E-04_JPRB /) |
420 |
|
|
KA(:, 2, 9, 2) = (/ & |
421 |
|
|
& 0.29405E-04_JPRB,0.58918E-04_JPRB,0.62216E-04_JPRB,0.63604E-04_JPRB,0.60633E-04_JPRB, & |
422 |
|
✗ |
& 0.55830E-04_JPRB,0.48918E-04_JPRB,0.39795E-04_JPRB,0.56459E-04_JPRB /) |
423 |
|
|
KA(:, 3, 9, 2) = (/ & |
424 |
|
|
& 0.30040E-04_JPRB,0.58597E-04_JPRB,0.61986E-04_JPRB,0.63627E-04_JPRB,0.61357E-04_JPRB, & |
425 |
|
✗ |
& 0.56779E-04_JPRB,0.49706E-04_JPRB,0.40729E-04_JPRB,0.58698E-04_JPRB /) |
426 |
|
|
KA(:, 4, 9, 2) = (/ & |
427 |
|
|
& 0.30412E-04_JPRB,0.58268E-04_JPRB,0.61940E-04_JPRB,0.63690E-04_JPRB,0.61916E-04_JPRB, & |
428 |
|
✗ |
& 0.57700E-04_JPRB,0.50677E-04_JPRB,0.41137E-04_JPRB,0.60426E-04_JPRB /) |
429 |
|
|
KA(:, 5, 9, 2) = (/ & |
430 |
|
|
& 0.30517E-04_JPRB,0.57913E-04_JPRB,0.61982E-04_JPRB,0.63808E-04_JPRB,0.62307E-04_JPRB, & |
431 |
|
✗ |
& 0.58353E-04_JPRB,0.51602E-04_JPRB,0.41668E-04_JPRB,0.61933E-04_JPRB /) |
432 |
|
|
KA(:, 1,10, 2) = (/ & |
433 |
|
|
& 0.23291E-04_JPRB,0.50308E-04_JPRB,0.53243E-04_JPRB,0.54258E-04_JPRB,0.50787E-04_JPRB, & |
434 |
|
✗ |
& 0.46509E-04_JPRB,0.41036E-04_JPRB,0.32969E-04_JPRB,0.63749E-04_JPRB /) |
435 |
|
|
KA(:, 2,10, 2) = (/ & |
436 |
|
|
& 0.24304E-04_JPRB,0.50027E-04_JPRB,0.52858E-04_JPRB,0.54035E-04_JPRB,0.51457E-04_JPRB, & |
437 |
|
✗ |
& 0.47117E-04_JPRB,0.41427E-04_JPRB,0.33795E-04_JPRB,0.67891E-04_JPRB /) |
438 |
|
|
KA(:, 3,10, 2) = (/ & |
439 |
|
|
& 0.24884E-04_JPRB,0.49658E-04_JPRB,0.52484E-04_JPRB,0.53877E-04_JPRB,0.52001E-04_JPRB, & |
440 |
|
✗ |
& 0.47908E-04_JPRB,0.42080E-04_JPRB,0.34652E-04_JPRB,0.71374E-04_JPRB /) |
441 |
|
|
KA(:, 4,10, 2) = (/ & |
442 |
|
|
& 0.25245E-04_JPRB,0.49329E-04_JPRB,0.52369E-04_JPRB,0.53861E-04_JPRB,0.52353E-04_JPRB, & |
443 |
|
✗ |
& 0.48763E-04_JPRB,0.42918E-04_JPRB,0.34903E-04_JPRB,0.73983E-04_JPRB /) |
444 |
|
|
KA(:, 5,10, 2) = (/ & |
445 |
|
|
& 0.25399E-04_JPRB,0.49019E-04_JPRB,0.52344E-04_JPRB,0.53920E-04_JPRB,0.52702E-04_JPRB, & |
446 |
|
✗ |
& 0.49354E-04_JPRB,0.43795E-04_JPRB,0.35336E-04_JPRB,0.76874E-04_JPRB /) |
447 |
|
|
KA(:, 1,11, 2) = (/ & |
448 |
|
|
& 0.19464E-04_JPRB,0.42428E-04_JPRB,0.44774E-04_JPRB,0.45764E-04_JPRB,0.43065E-04_JPRB, & |
449 |
|
✗ |
& 0.39257E-04_JPRB,0.34681E-04_JPRB,0.28149E-04_JPRB,0.56538E-04_JPRB /) |
450 |
|
|
KA(:, 2,11, 2) = (/ & |
451 |
|
|
& 0.20274E-04_JPRB,0.42118E-04_JPRB,0.44484E-04_JPRB,0.45525E-04_JPRB,0.43594E-04_JPRB, & |
452 |
|
✗ |
& 0.39908E-04_JPRB,0.35109E-04_JPRB,0.28880E-04_JPRB,0.61143E-04_JPRB /) |
453 |
|
|
KA(:, 3,11, 2) = (/ & |
454 |
|
|
& 0.20723E-04_JPRB,0.41781E-04_JPRB,0.44183E-04_JPRB,0.45345E-04_JPRB,0.43968E-04_JPRB, & |
455 |
|
✗ |
& 0.40542E-04_JPRB,0.35722E-04_JPRB,0.29427E-04_JPRB,0.66428E-04_JPRB /) |
456 |
|
|
KA(:, 4,11, 2) = (/ & |
457 |
|
|
& 0.20986E-04_JPRB,0.41469E-04_JPRB,0.44005E-04_JPRB,0.45299E-04_JPRB,0.44240E-04_JPRB, & |
458 |
|
✗ |
& 0.41204E-04_JPRB,0.36501E-04_JPRB,0.29565E-04_JPRB,0.70536E-04_JPRB /) |
459 |
|
|
KA(:, 5,11, 2) = (/ & |
460 |
|
|
& 0.21088E-04_JPRB,0.41122E-04_JPRB,0.44008E-04_JPRB,0.45344E-04_JPRB,0.44427E-04_JPRB, & |
461 |
|
✗ |
& 0.41695E-04_JPRB,0.37345E-04_JPRB,0.29974E-04_JPRB,0.74164E-04_JPRB /) |
462 |
|
|
KA(:, 1,12, 2) = (/ & |
463 |
|
|
& 0.16205E-04_JPRB,0.35661E-04_JPRB,0.37585E-04_JPRB,0.38332E-04_JPRB,0.36196E-04_JPRB, & |
464 |
|
✗ |
& 0.33054E-04_JPRB,0.29216E-04_JPRB,0.23917E-04_JPRB,0.49111E-04_JPRB /) |
465 |
|
|
KA(:, 2,12, 2) = (/ & |
466 |
|
|
& 0.16873E-04_JPRB,0.35314E-04_JPRB,0.37290E-04_JPRB,0.38165E-04_JPRB,0.36667E-04_JPRB, & |
467 |
|
✗ |
& 0.33618E-04_JPRB,0.29598E-04_JPRB,0.24536E-04_JPRB,0.53408E-04_JPRB /) |
468 |
|
|
KA(:, 3,12, 2) = (/ & |
469 |
|
|
& 0.17216E-04_JPRB,0.35012E-04_JPRB,0.37013E-04_JPRB,0.37971E-04_JPRB,0.36937E-04_JPRB, & |
470 |
|
✗ |
& 0.34200E-04_JPRB,0.30188E-04_JPRB,0.24727E-04_JPRB,0.56692E-04_JPRB /) |
471 |
|
|
KA(:, 4,12, 2) = (/ & |
472 |
|
|
& 0.17409E-04_JPRB,0.34711E-04_JPRB,0.36851E-04_JPRB,0.37885E-04_JPRB,0.37053E-04_JPRB, & |
473 |
|
✗ |
& 0.34609E-04_JPRB,0.30881E-04_JPRB,0.24937E-04_JPRB,0.60809E-04_JPRB /) |
474 |
|
|
KA(:, 5,12, 2) = (/ & |
475 |
|
|
& 0.17480E-04_JPRB,0.34362E-04_JPRB,0.36830E-04_JPRB,0.37891E-04_JPRB,0.37213E-04_JPRB, & |
476 |
|
✗ |
& 0.35045E-04_JPRB,0.31524E-04_JPRB,0.25269E-04_JPRB,0.65163E-04_JPRB /) |
477 |
|
|
KA(:, 1,13, 2) = (/ & |
478 |
|
|
& 0.13457E-04_JPRB,0.29884E-04_JPRB,0.31446E-04_JPRB,0.32052E-04_JPRB,0.30374E-04_JPRB, & |
479 |
|
✗ |
& 0.27733E-04_JPRB,0.24511E-04_JPRB,0.20198E-04_JPRB,0.41009E-04_JPRB /) |
480 |
|
|
KA(:, 2,13, 2) = (/ & |
481 |
|
|
& 0.14007E-04_JPRB,0.29560E-04_JPRB,0.31187E-04_JPRB,0.31882E-04_JPRB,0.30716E-04_JPRB, & |
482 |
|
✗ |
& 0.28181E-04_JPRB,0.24877E-04_JPRB,0.20737E-04_JPRB,0.44661E-04_JPRB /) |
483 |
|
|
KA(:, 3,13, 2) = (/ & |
484 |
|
|
& 0.14280E-04_JPRB,0.29273E-04_JPRB,0.30932E-04_JPRB,0.31685E-04_JPRB,0.30856E-04_JPRB, & |
485 |
|
✗ |
& 0.28687E-04_JPRB,0.25310E-04_JPRB,0.20664E-04_JPRB,0.47397E-04_JPRB /) |
486 |
|
|
KA(:, 4,13, 2) = (/ & |
487 |
|
|
& 0.14434E-04_JPRB,0.28982E-04_JPRB,0.30751E-04_JPRB,0.31601E-04_JPRB,0.30957E-04_JPRB, & |
488 |
|
✗ |
& 0.28945E-04_JPRB,0.25864E-04_JPRB,0.20868E-04_JPRB,0.50575E-04_JPRB /) |
489 |
|
|
KA(:, 5,13, 2) = (/ & |
490 |
|
|
& 0.14483E-04_JPRB,0.28660E-04_JPRB,0.30711E-04_JPRB,0.31533E-04_JPRB,0.31075E-04_JPRB, & |
491 |
|
✗ |
& 0.29320E-04_JPRB,0.26408E-04_JPRB,0.21257E-04_JPRB,0.54097E-04_JPRB /) |
492 |
|
|
KA(:, 1, 1, 3) = (/ & |
493 |
|
|
& 0.22536E-03_JPRB,0.32037E-03_JPRB,0.33781E-03_JPRB,0.34273E-03_JPRB,0.33729E-03_JPRB, & |
494 |
|
✗ |
& 0.32075E-03_JPRB,0.29153E-03_JPRB,0.24856E-03_JPRB,0.16410E-03_JPRB /) |
495 |
|
|
KA(:, 2, 1, 3) = (/ & |
496 |
|
|
& 0.22342E-03_JPRB,0.32281E-03_JPRB,0.34293E-03_JPRB,0.34673E-03_JPRB,0.34167E-03_JPRB, & |
497 |
|
✗ |
& 0.32688E-03_JPRB,0.29787E-03_JPRB,0.25566E-03_JPRB,0.17029E-03_JPRB /) |
498 |
|
|
KA(:, 3, 1, 3) = (/ & |
499 |
|
|
& 0.22157E-03_JPRB,0.32559E-03_JPRB,0.34865E-03_JPRB,0.35164E-03_JPRB,0.34805E-03_JPRB, & |
500 |
|
✗ |
& 0.33353E-03_JPRB,0.30505E-03_JPRB,0.26380E-03_JPRB,0.17749E-03_JPRB /) |
501 |
|
|
KA(:, 4, 1, 3) = (/ & |
502 |
|
|
& 0.21986E-03_JPRB,0.32894E-03_JPRB,0.35375E-03_JPRB,0.35845E-03_JPRB,0.35514E-03_JPRB, & |
503 |
|
✗ |
& 0.33992E-03_JPRB,0.31266E-03_JPRB,0.27259E-03_JPRB,0.18209E-03_JPRB /) |
504 |
|
|
KA(:, 5, 1, 3) = (/ & |
505 |
|
|
& 0.21815E-03_JPRB,0.33282E-03_JPRB,0.35982E-03_JPRB,0.36699E-03_JPRB,0.36319E-03_JPRB, & |
506 |
|
✗ |
& 0.34849E-03_JPRB,0.32265E-03_JPRB,0.28174E-03_JPRB,0.18630E-03_JPRB /) |
507 |
|
|
KA(:, 1, 2, 3) = (/ & |
508 |
|
|
& 0.19541E-03_JPRB,0.28383E-03_JPRB,0.30057E-03_JPRB,0.30208E-03_JPRB,0.29811E-03_JPRB, & |
509 |
|
✗ |
& 0.28614E-03_JPRB,0.25813E-03_JPRB,0.22172E-03_JPRB,0.14533E-03_JPRB /) |
510 |
|
|
KA(:, 2, 2, 3) = (/ & |
511 |
|
|
& 0.19410E-03_JPRB,0.28606E-03_JPRB,0.30502E-03_JPRB,0.30638E-03_JPRB,0.30342E-03_JPRB, & |
512 |
|
✗ |
& 0.29123E-03_JPRB,0.26438E-03_JPRB,0.22759E-03_JPRB,0.15063E-03_JPRB /) |
513 |
|
|
KA(:, 3, 2, 3) = (/ & |
514 |
|
|
& 0.19280E-03_JPRB,0.28892E-03_JPRB,0.31031E-03_JPRB,0.31345E-03_JPRB,0.30930E-03_JPRB, & |
515 |
|
✗ |
& 0.29708E-03_JPRB,0.27075E-03_JPRB,0.23476E-03_JPRB,0.15387E-03_JPRB /) |
516 |
|
|
KA(:, 4, 2, 3) = (/ & |
517 |
|
|
& 0.19169E-03_JPRB,0.29226E-03_JPRB,0.31596E-03_JPRB,0.32060E-03_JPRB,0.31687E-03_JPRB, & |
518 |
|
✗ |
& 0.30282E-03_JPRB,0.27961E-03_JPRB,0.24147E-03_JPRB,0.15653E-03_JPRB /) |
519 |
|
|
KA(:, 5, 2, 3) = (/ & |
520 |
|
|
& 0.19047E-03_JPRB,0.29594E-03_JPRB,0.32186E-03_JPRB,0.32831E-03_JPRB,0.32510E-03_JPRB, & |
521 |
|
✗ |
& 0.31022E-03_JPRB,0.28786E-03_JPRB,0.24847E-03_JPRB,0.16195E-03_JPRB /) |
522 |
|
|
KA(:, 1, 3, 3) = (/ & |
523 |
|
|
& 0.16871E-03_JPRB,0.24969E-03_JPRB,0.26468E-03_JPRB,0.26465E-03_JPRB,0.26214E-03_JPRB, & |
524 |
|
✗ |
& 0.25247E-03_JPRB,0.22732E-03_JPRB,0.19530E-03_JPRB,0.12777E-03_JPRB /) |
525 |
|
|
KA(:, 2, 3, 3) = (/ & |
526 |
|
|
& 0.16793E-03_JPRB,0.25161E-03_JPRB,0.26876E-03_JPRB,0.26973E-03_JPRB,0.26695E-03_JPRB, & |
527 |
|
✗ |
& 0.25688E-03_JPRB,0.23244E-03_JPRB,0.20054E-03_JPRB,0.12972E-03_JPRB /) |
528 |
|
|
KA(:, 3, 3, 3) = (/ & |
529 |
|
|
& 0.16733E-03_JPRB,0.25378E-03_JPRB,0.27385E-03_JPRB,0.27612E-03_JPRB,0.27305E-03_JPRB, & |
530 |
|
✗ |
& 0.26119E-03_JPRB,0.23922E-03_JPRB,0.20542E-03_JPRB,0.13061E-03_JPRB /) |
531 |
|
|
KA(:, 4, 3, 3) = (/ & |
532 |
|
|
& 0.16706E-03_JPRB,0.25676E-03_JPRB,0.27970E-03_JPRB,0.28379E-03_JPRB,0.28013E-03_JPRB, & |
533 |
|
✗ |
& 0.26708E-03_JPRB,0.24668E-03_JPRB,0.21081E-03_JPRB,0.13394E-03_JPRB /) |
534 |
|
|
KA(:, 5, 3, 3) = (/ & |
535 |
|
|
& 0.16637E-03_JPRB,0.26037E-03_JPRB,0.28504E-03_JPRB,0.29050E-03_JPRB,0.28611E-03_JPRB, & |
536 |
|
✗ |
& 0.27355E-03_JPRB,0.25260E-03_JPRB,0.21670E-03_JPRB,0.13844E-03_JPRB /) |
537 |
|
|
KA(:, 1, 4, 3) = (/ & |
538 |
|
|
& 0.14579E-03_JPRB,0.21908E-03_JPRB,0.23187E-03_JPRB,0.23162E-03_JPRB,0.22921E-03_JPRB, & |
539 |
|
✗ |
& 0.22070E-03_JPRB,0.19997E-03_JPRB,0.17094E-03_JPRB,0.11198E-03_JPRB /) |
540 |
|
|
KA(:, 2, 4, 3) = (/ & |
541 |
|
|
& 0.14542E-03_JPRB,0.22095E-03_JPRB,0.23576E-03_JPRB,0.23659E-03_JPRB,0.23393E-03_JPRB, & |
542 |
|
✗ |
& 0.22421E-03_JPRB,0.20413E-03_JPRB,0.17485E-03_JPRB,0.11080E-03_JPRB /) |
543 |
|
|
KA(:, 3, 4, 3) = (/ & |
544 |
|
|
& 0.14519E-03_JPRB,0.22277E-03_JPRB,0.24039E-03_JPRB,0.24264E-03_JPRB,0.23941E-03_JPRB, & |
545 |
|
✗ |
& 0.22826E-03_JPRB,0.20957E-03_JPRB,0.17862E-03_JPRB,0.11236E-03_JPRB /) |
546 |
|
|
KA(:, 4, 4, 3) = (/ & |
547 |
|
|
& 0.14504E-03_JPRB,0.22526E-03_JPRB,0.24523E-03_JPRB,0.24877E-03_JPRB,0.24473E-03_JPRB, & |
548 |
|
✗ |
& 0.23381E-03_JPRB,0.21512E-03_JPRB,0.18339E-03_JPRB,0.11577E-03_JPRB /) |
549 |
|
|
KA(:, 5, 4, 3) = (/ & |
550 |
|
|
& 0.14497E-03_JPRB,0.22869E-03_JPRB,0.25070E-03_JPRB,0.25513E-03_JPRB,0.25076E-03_JPRB, & |
551 |
|
✗ |
& 0.23990E-03_JPRB,0.22117E-03_JPRB,0.18804E-03_JPRB,0.11947E-03_JPRB /) |
552 |
|
|
KA(:, 1, 5, 3) = (/ & |
553 |
|
|
& 0.12609E-03_JPRB,0.19125E-03_JPRB,0.20302E-03_JPRB,0.20235E-03_JPRB,0.20038E-03_JPRB, & |
554 |
|
✗ |
& 0.19210E-03_JPRB,0.17493E-03_JPRB,0.14918E-03_JPRB,0.95914E-04_JPRB /) |
555 |
|
|
KA(:, 2, 5, 3) = (/ & |
556 |
|
|
& 0.12575E-03_JPRB,0.19304E-03_JPRB,0.20668E-03_JPRB,0.20708E-03_JPRB,0.20395E-03_JPRB, & |
557 |
|
✗ |
& 0.19513E-03_JPRB,0.17862E-03_JPRB,0.15191E-03_JPRB,0.95952E-04_JPRB /) |
558 |
|
|
KA(:, 3, 5, 3) = (/ & |
559 |
|
|
& 0.12572E-03_JPRB,0.19504E-03_JPRB,0.21070E-03_JPRB,0.21227E-03_JPRB,0.20862E-03_JPRB, & |
560 |
|
✗ |
& 0.19877E-03_JPRB,0.18323E-03_JPRB,0.15540E-03_JPRB,0.98040E-04_JPRB /) |
561 |
|
|
KA(:, 4, 5, 3) = (/ & |
562 |
|
|
& 0.12578E-03_JPRB,0.19736E-03_JPRB,0.21498E-03_JPRB,0.21770E-03_JPRB,0.21305E-03_JPRB, & |
563 |
|
✗ |
& 0.20380E-03_JPRB,0.18766E-03_JPRB,0.15949E-03_JPRB,0.10020E-03_JPRB /) |
564 |
|
|
KA(:, 5, 5, 3) = (/ & |
565 |
|
|
& 0.12588E-03_JPRB,0.20051E-03_JPRB,0.21971E-03_JPRB,0.22313E-03_JPRB,0.21848E-03_JPRB, & |
566 |
|
✗ |
& 0.20915E-03_JPRB,0.19284E-03_JPRB,0.16321E-03_JPRB,0.10267E-03_JPRB /) |
567 |
|
|
KA(:, 1, 6, 3) = (/ & |
568 |
|
|
& 0.10863E-03_JPRB,0.16576E-03_JPRB,0.17695E-03_JPRB,0.17678E-03_JPRB,0.17469E-03_JPRB, & |
569 |
|
✗ |
& 0.16678E-03_JPRB,0.15163E-03_JPRB,0.12940E-03_JPRB,0.89550E-04_JPRB /) |
570 |
|
|
KA(:, 2, 6, 3) = (/ & |
571 |
|
|
& 0.10863E-03_JPRB,0.16706E-03_JPRB,0.18030E-03_JPRB,0.18081E-03_JPRB,0.17775E-03_JPRB, & |
572 |
|
✗ |
& 0.16938E-03_JPRB,0.15534E-03_JPRB,0.13148E-03_JPRB,0.89670E-04_JPRB /) |
573 |
|
|
KA(:, 3, 6, 3) = (/ & |
574 |
|
|
& 0.10855E-03_JPRB,0.16916E-03_JPRB,0.18384E-03_JPRB,0.18538E-03_JPRB,0.18134E-03_JPRB, & |
575 |
|
✗ |
& 0.17272E-03_JPRB,0.15912E-03_JPRB,0.13459E-03_JPRB,0.90520E-04_JPRB /) |
576 |
|
|
KA(:, 4, 6, 3) = (/ & |
577 |
|
|
& 0.10855E-03_JPRB,0.17152E-03_JPRB,0.18761E-03_JPRB,0.18997E-03_JPRB,0.18510E-03_JPRB, & |
578 |
|
✗ |
& 0.17711E-03_JPRB,0.16286E-03_JPRB,0.13757E-03_JPRB,0.91792E-04_JPRB /) |
579 |
|
|
KA(:, 5, 6, 3) = (/ & |
580 |
|
|
& 0.10853E-03_JPRB,0.17415E-03_JPRB,0.19152E-03_JPRB,0.19450E-03_JPRB,0.18955E-03_JPRB, & |
581 |
|
✗ |
& 0.18160E-03_JPRB,0.16658E-03_JPRB,0.14151E-03_JPRB,0.94030E-04_JPRB /) |
582 |
|
|
KA(:, 1, 7, 3) = (/ & |
583 |
|
|
& 0.92930E-04_JPRB,0.14283E-03_JPRB,0.15332E-03_JPRB,0.15365E-03_JPRB,0.15192E-03_JPRB, & |
584 |
|
✗ |
& 0.14476E-03_JPRB,0.13092E-03_JPRB,0.11095E-03_JPRB,0.91877E-04_JPRB /) |
585 |
|
|
KA(:, 2, 7, 3) = (/ & |
586 |
|
|
& 0.92984E-04_JPRB,0.14401E-03_JPRB,0.15614E-03_JPRB,0.15721E-03_JPRB,0.15413E-03_JPRB, & |
587 |
|
✗ |
& 0.14688E-03_JPRB,0.13443E-03_JPRB,0.11315E-03_JPRB,0.90405E-04_JPRB /) |
588 |
|
|
KA(:, 3, 7, 3) = (/ & |
589 |
|
|
& 0.92945E-04_JPRB,0.14573E-03_JPRB,0.15905E-03_JPRB,0.16110E-03_JPRB,0.15737E-03_JPRB, & |
590 |
|
✗ |
& 0.14983E-03_JPRB,0.13738E-03_JPRB,0.11591E-03_JPRB,0.89977E-04_JPRB /) |
591 |
|
|
KA(:, 4, 7, 3) = (/ & |
592 |
|
|
& 0.93035E-04_JPRB,0.14787E-03_JPRB,0.16239E-03_JPRB,0.16472E-03_JPRB,0.16084E-03_JPRB, & |
593 |
|
✗ |
& 0.15371E-03_JPRB,0.14051E-03_JPRB,0.11827E-03_JPRB,0.90955E-04_JPRB /) |
594 |
|
|
KA(:, 5, 7, 3) = (/ & |
595 |
|
|
& 0.92985E-04_JPRB,0.15023E-03_JPRB,0.16593E-03_JPRB,0.16877E-03_JPRB,0.16496E-03_JPRB, & |
596 |
|
✗ |
& 0.15743E-03_JPRB,0.14348E-03_JPRB,0.12221E-03_JPRB,0.92269E-04_JPRB /) |
597 |
|
|
KA(:, 1, 8, 3) = (/ & |
598 |
|
|
& 0.79600E-04_JPRB,0.12290E-03_JPRB,0.13269E-03_JPRB,0.13322E-03_JPRB,0.13145E-03_JPRB, & |
599 |
|
✗ |
& 0.12540E-03_JPRB,0.11354E-03_JPRB,0.94559E-04_JPRB,0.10796E-03_JPRB /) |
600 |
|
|
KA(:, 2, 8, 3) = (/ & |
601 |
|
|
& 0.79683E-04_JPRB,0.12390E-03_JPRB,0.13495E-03_JPRB,0.13633E-03_JPRB,0.13351E-03_JPRB, & |
602 |
|
✗ |
& 0.12708E-03_JPRB,0.11620E-03_JPRB,0.96898E-04_JPRB,0.10854E-03_JPRB /) |
603 |
|
|
KA(:, 3, 8, 3) = (/ & |
604 |
|
|
& 0.79630E-04_JPRB,0.12537E-03_JPRB,0.13745E-03_JPRB,0.13937E-03_JPRB,0.13626E-03_JPRB, & |
605 |
|
✗ |
& 0.12970E-03_JPRB,0.11867E-03_JPRB,0.99068E-04_JPRB,0.10974E-03_JPRB /) |
606 |
|
|
KA(:, 4, 8, 3) = (/ & |
607 |
|
|
& 0.79625E-04_JPRB,0.12719E-03_JPRB,0.14027E-03_JPRB,0.14234E-03_JPRB,0.13941E-03_JPRB, & |
608 |
|
✗ |
& 0.13283E-03_JPRB,0.12113E-03_JPRB,0.10155E-03_JPRB,0.11075E-03_JPRB /) |
609 |
|
|
KA(:, 5, 8, 3) = (/ & |
610 |
|
|
& 0.79589E-04_JPRB,0.12914E-03_JPRB,0.14322E-03_JPRB,0.14575E-03_JPRB,0.14305E-03_JPRB, & |
611 |
|
✗ |
& 0.13597E-03_JPRB,0.12361E-03_JPRB,0.10505E-03_JPRB,0.11038E-03_JPRB /) |
612 |
|
|
KA(:, 1, 9, 3) = (/ & |
613 |
|
|
& 0.67917E-04_JPRB,0.10525E-03_JPRB,0.11421E-03_JPRB,0.11510E-03_JPRB,0.11341E-03_JPRB, & |
614 |
|
✗ |
& 0.10850E-03_JPRB,0.97945E-04_JPRB,0.80197E-04_JPRB,0.13259E-03_JPRB /) |
615 |
|
|
KA(:, 2, 9, 3) = (/ & |
616 |
|
|
& 0.67928E-04_JPRB,0.10625E-03_JPRB,0.11606E-03_JPRB,0.11762E-03_JPRB,0.11532E-03_JPRB, & |
617 |
|
✗ |
& 0.11035E-03_JPRB,0.10017E-03_JPRB,0.82394E-04_JPRB,0.13427E-03_JPRB /) |
618 |
|
|
KA(:, 3, 9, 3) = (/ & |
619 |
|
|
& 0.67856E-04_JPRB,0.10744E-03_JPRB,0.11824E-03_JPRB,0.11998E-03_JPRB,0.11756E-03_JPRB, & |
620 |
|
✗ |
& 0.11235E-03_JPRB,0.10203E-03_JPRB,0.84408E-04_JPRB,0.13461E-03_JPRB /) |
621 |
|
|
KA(:, 4, 9, 3) = (/ & |
622 |
|
|
& 0.67768E-04_JPRB,0.10890E-03_JPRB,0.12070E-03_JPRB,0.12262E-03_JPRB,0.12012E-03_JPRB, & |
623 |
|
✗ |
& 0.11456E-03_JPRB,0.10420E-03_JPRB,0.86916E-04_JPRB,0.13504E-03_JPRB /) |
624 |
|
|
KA(:, 5, 9, 3) = (/ & |
625 |
|
|
& 0.67707E-04_JPRB,0.11054E-03_JPRB,0.12323E-03_JPRB,0.12567E-03_JPRB,0.12318E-03_JPRB, & |
626 |
|
✗ |
& 0.11694E-03_JPRB,0.10644E-03_JPRB,0.89648E-04_JPRB,0.13829E-03_JPRB /) |
627 |
|
|
KA(:, 1,10, 3) = (/ & |
628 |
|
|
& 0.57658E-04_JPRB,0.89812E-04_JPRB,0.97774E-04_JPRB,0.98825E-04_JPRB,0.97412E-04_JPRB, & |
629 |
|
✗ |
& 0.93433E-04_JPRB,0.84119E-04_JPRB,0.68026E-04_JPRB,0.20137E-03_JPRB /) |
630 |
|
|
KA(:, 2,10, 3) = (/ & |
631 |
|
|
& 0.57461E-04_JPRB,0.90575E-04_JPRB,0.99228E-04_JPRB,0.10076E-03_JPRB,0.98930E-04_JPRB, & |
632 |
|
✗ |
& 0.94984E-04_JPRB,0.86081E-04_JPRB,0.70085E-04_JPRB,0.20178E-03_JPRB /) |
633 |
|
|
KA(:, 3,10, 3) = (/ & |
634 |
|
|
& 0.57397E-04_JPRB,0.91666E-04_JPRB,0.10122E-03_JPRB,0.10281E-03_JPRB,0.10088E-03_JPRB, & |
635 |
|
✗ |
& 0.96688E-04_JPRB,0.87695E-04_JPRB,0.72010E-04_JPRB,0.20052E-03_JPRB /) |
636 |
|
|
KA(:, 4,10, 3) = (/ & |
637 |
|
|
& 0.57291E-04_JPRB,0.92869E-04_JPRB,0.10334E-03_JPRB,0.10517E-03_JPRB,0.10317E-03_JPRB, & |
638 |
|
✗ |
& 0.98293E-04_JPRB,0.89394E-04_JPRB,0.74251E-04_JPRB,0.20103E-03_JPRB /) |
639 |
|
|
KA(:, 5,10, 3) = (/ & |
640 |
|
|
& 0.57126E-04_JPRB,0.94072E-04_JPRB,0.10545E-03_JPRB,0.10789E-03_JPRB,0.10579E-03_JPRB, & |
641 |
|
✗ |
& 0.10034E-03_JPRB,0.91420E-04_JPRB,0.76761E-04_JPRB,0.20035E-03_JPRB /) |
642 |
|
|
KA(:, 1,11, 3) = (/ & |
643 |
|
|
& 0.48600E-04_JPRB,0.76535E-04_JPRB,0.83721E-04_JPRB,0.84782E-04_JPRB,0.83379E-04_JPRB, & |
644 |
|
✗ |
& 0.80481E-04_JPRB,0.72441E-04_JPRB,0.58503E-04_JPRB,0.20926E-03_JPRB /) |
645 |
|
|
KA(:, 2,11, 3) = (/ & |
646 |
|
|
& 0.48356E-04_JPRB,0.77272E-04_JPRB,0.85067E-04_JPRB,0.86588E-04_JPRB,0.84928E-04_JPRB, & |
647 |
|
✗ |
& 0.81803E-04_JPRB,0.74015E-04_JPRB,0.60222E-04_JPRB,0.21110E-03_JPRB /) |
648 |
|
|
KA(:, 3,11, 3) = (/ & |
649 |
|
|
& 0.48180E-04_JPRB,0.78198E-04_JPRB,0.86939E-04_JPRB,0.88416E-04_JPRB,0.86712E-04_JPRB, & |
650 |
|
✗ |
& 0.83176E-04_JPRB,0.75535E-04_JPRB,0.61973E-04_JPRB,0.20823E-03_JPRB /) |
651 |
|
|
|
652 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART2',1,ZHOOK_HANDLE) |
653 |
|
✗ |
END SUBROUTINE PART2 |
654 |
|
|
|
655 |
|
|
|
656 |
|
✗ |
SUBROUTINE PART3 |
657 |
|
|
|
658 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
659 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART3',0,ZHOOK_HANDLE) |
660 |
|
|
|
661 |
|
|
|
662 |
|
|
KA(:, 4,11, 3) = (/ & |
663 |
|
|
& 0.48042E-04_JPRB,0.79160E-04_JPRB,0.88776E-04_JPRB,0.90704E-04_JPRB,0.88934E-04_JPRB, & |
664 |
|
✗ |
& 0.84522E-04_JPRB,0.76983E-04_JPRB,0.64264E-04_JPRB,0.20745E-03_JPRB /) |
665 |
|
|
KA(:, 5,11, 3) = (/ & |
666 |
|
|
& 0.47901E-04_JPRB,0.80171E-04_JPRB,0.90395E-04_JPRB,0.92950E-04_JPRB,0.91253E-04_JPRB, & |
667 |
|
✗ |
& 0.86364E-04_JPRB,0.78675E-04_JPRB,0.66159E-04_JPRB,0.20642E-03_JPRB /) |
668 |
|
|
KA(:, 1,12, 3) = (/ & |
669 |
|
|
& 0.40769E-04_JPRB,0.64775E-04_JPRB,0.71240E-04_JPRB,0.72409E-04_JPRB,0.71085E-04_JPRB, & |
670 |
|
✗ |
& 0.68679E-04_JPRB,0.61925E-04_JPRB,0.50009E-04_JPRB,0.19056E-03_JPRB /) |
671 |
|
|
KA(:, 2,12, 3) = (/ & |
672 |
|
|
& 0.40486E-04_JPRB,0.65479E-04_JPRB,0.72574E-04_JPRB,0.73906E-04_JPRB,0.72438E-04_JPRB, & |
673 |
|
✗ |
& 0.69693E-04_JPRB,0.63286E-04_JPRB,0.51717E-04_JPRB,0.19000E-03_JPRB /) |
674 |
|
|
KA(:, 3,12, 3) = (/ & |
675 |
|
|
& 0.40313E-04_JPRB,0.66212E-04_JPRB,0.74137E-04_JPRB,0.75686E-04_JPRB,0.74201E-04_JPRB, & |
676 |
|
✗ |
& 0.70781E-04_JPRB,0.64554E-04_JPRB,0.53372E-04_JPRB,0.19242E-03_JPRB /) |
677 |
|
|
KA(:, 4,12, 3) = (/ & |
678 |
|
|
& 0.40107E-04_JPRB,0.66938E-04_JPRB,0.75524E-04_JPRB,0.77664E-04_JPRB,0.76142E-04_JPRB, & |
679 |
|
✗ |
& 0.72280E-04_JPRB,0.65894E-04_JPRB,0.55174E-04_JPRB,0.19382E-03_JPRB /) |
680 |
|
|
KA(:, 5,12, 3) = (/ & |
681 |
|
|
& 0.39910E-04_JPRB,0.67782E-04_JPRB,0.76780E-04_JPRB,0.79463E-04_JPRB,0.78210E-04_JPRB, & |
682 |
|
✗ |
& 0.73902E-04_JPRB,0.67292E-04_JPRB,0.56789E-04_JPRB,0.19106E-03_JPRB /) |
683 |
|
|
KA(:, 1,13, 3) = (/ & |
684 |
|
|
& 0.34103E-04_JPRB,0.54622E-04_JPRB,0.60315E-04_JPRB,0.61417E-04_JPRB,0.60332E-04_JPRB, & |
685 |
|
✗ |
& 0.58110E-04_JPRB,0.52537E-04_JPRB,0.42612E-04_JPRB,0.15955E-03_JPRB /) |
686 |
|
|
KA(:, 2,13, 3) = (/ & |
687 |
|
|
& 0.33853E-04_JPRB,0.55148E-04_JPRB,0.61492E-04_JPRB,0.62745E-04_JPRB,0.61577E-04_JPRB, & |
688 |
|
✗ |
& 0.59061E-04_JPRB,0.53702E-04_JPRB,0.43873E-04_JPRB,0.15892E-03_JPRB /) |
689 |
|
|
KA(:, 3,13, 3) = (/ & |
690 |
|
|
& 0.33647E-04_JPRB,0.55699E-04_JPRB,0.62687E-04_JPRB,0.64355E-04_JPRB,0.63160E-04_JPRB, & |
691 |
|
✗ |
& 0.60072E-04_JPRB,0.54954E-04_JPRB,0.45643E-04_JPRB,0.16047E-03_JPRB /) |
692 |
|
|
KA(:, 4,13, 3) = (/ & |
693 |
|
|
& 0.33430E-04_JPRB,0.56291E-04_JPRB,0.63770E-04_JPRB,0.65844E-04_JPRB,0.64844E-04_JPRB, & |
694 |
|
✗ |
& 0.61457E-04_JPRB,0.56064E-04_JPRB,0.47101E-04_JPRB,0.16125E-03_JPRB /) |
695 |
|
|
KA(:, 5,13, 3) = (/ & |
696 |
|
|
& 0.33186E-04_JPRB,0.56947E-04_JPRB,0.64747E-04_JPRB,0.67352E-04_JPRB,0.66508E-04_JPRB, & |
697 |
|
✗ |
& 0.62903E-04_JPRB,0.57307E-04_JPRB,0.48379E-04_JPRB,0.16021E-03_JPRB /) |
698 |
|
|
KA(:, 1, 1, 4) = (/ & |
699 |
|
|
& 0.36602E-03_JPRB,0.52858E-03_JPRB,0.59251E-03_JPRB,0.61027E-03_JPRB,0.60893E-03_JPRB, & |
700 |
|
✗ |
& 0.58987E-03_JPRB,0.55560E-03_JPRB,0.49855E-03_JPRB,0.38105E-03_JPRB /) |
701 |
|
|
KA(:, 2, 1, 4) = (/ & |
702 |
|
|
& 0.36935E-03_JPRB,0.53570E-03_JPRB,0.60138E-03_JPRB,0.62341E-03_JPRB,0.62297E-03_JPRB, & |
703 |
|
✗ |
& 0.60228E-03_JPRB,0.56872E-03_JPRB,0.51035E-03_JPRB,0.39106E-03_JPRB /) |
704 |
|
|
KA(:, 3, 1, 4) = (/ & |
705 |
|
|
& 0.37348E-03_JPRB,0.54590E-03_JPRB,0.61238E-03_JPRB,0.63855E-03_JPRB,0.63820E-03_JPRB, & |
706 |
|
✗ |
& 0.61734E-03_JPRB,0.58475E-03_JPRB,0.52206E-03_JPRB,0.40317E-03_JPRB /) |
707 |
|
|
KA(:, 4, 1, 4) = (/ & |
708 |
|
|
& 0.37665E-03_JPRB,0.55373E-03_JPRB,0.62261E-03_JPRB,0.65120E-03_JPRB,0.65250E-03_JPRB, & |
709 |
|
✗ |
& 0.63373E-03_JPRB,0.59840E-03_JPRB,0.53517E-03_JPRB,0.41639E-03_JPRB /) |
710 |
|
|
KA(:, 5, 1, 4) = (/ & |
711 |
|
|
& 0.38076E-03_JPRB,0.56302E-03_JPRB,0.63456E-03_JPRB,0.66611E-03_JPRB,0.66857E-03_JPRB, & |
712 |
|
✗ |
& 0.65240E-03_JPRB,0.61521E-03_JPRB,0.55178E-03_JPRB,0.43702E-03_JPRB /) |
713 |
|
|
KA(:, 1, 2, 4) = (/ & |
714 |
|
|
& 0.32225E-03_JPRB,0.47151E-03_JPRB,0.53262E-03_JPRB,0.55192E-03_JPRB,0.54706E-03_JPRB, & |
715 |
|
✗ |
& 0.52658E-03_JPRB,0.49569E-03_JPRB,0.43958E-03_JPRB,0.31739E-03_JPRB /) |
716 |
|
|
KA(:, 2, 2, 4) = (/ & |
717 |
|
|
& 0.32532E-03_JPRB,0.47816E-03_JPRB,0.54076E-03_JPRB,0.56222E-03_JPRB,0.55834E-03_JPRB, & |
718 |
|
✗ |
& 0.53879E-03_JPRB,0.50612E-03_JPRB,0.44777E-03_JPRB,0.32763E-03_JPRB /) |
719 |
|
|
KA(:, 3, 2, 4) = (/ & |
720 |
|
|
& 0.32941E-03_JPRB,0.48729E-03_JPRB,0.55083E-03_JPRB,0.57497E-03_JPRB,0.57312E-03_JPRB, & |
721 |
|
✗ |
& 0.55394E-03_JPRB,0.51991E-03_JPRB,0.45969E-03_JPRB,0.33942E-03_JPRB /) |
722 |
|
|
KA(:, 4, 2, 4) = (/ & |
723 |
|
|
& 0.33303E-03_JPRB,0.49510E-03_JPRB,0.56036E-03_JPRB,0.58720E-03_JPRB,0.58669E-03_JPRB, & |
724 |
|
✗ |
& 0.56974E-03_JPRB,0.53255E-03_JPRB,0.47385E-03_JPRB,0.35453E-03_JPRB /) |
725 |
|
|
KA(:, 5, 2, 4) = (/ & |
726 |
|
|
& 0.33657E-03_JPRB,0.50290E-03_JPRB,0.57014E-03_JPRB,0.59917E-03_JPRB,0.59997E-03_JPRB, & |
727 |
|
✗ |
& 0.58475E-03_JPRB,0.54777E-03_JPRB,0.48909E-03_JPRB,0.36980E-03_JPRB /) |
728 |
|
|
KA(:, 1, 3, 4) = (/ & |
729 |
|
|
& 0.28263E-03_JPRB,0.41968E-03_JPRB,0.47376E-03_JPRB,0.49297E-03_JPRB,0.48633E-03_JPRB, & |
730 |
|
✗ |
& 0.46530E-03_JPRB,0.43654E-03_JPRB,0.38496E-03_JPRB,0.26217E-03_JPRB /) |
731 |
|
|
KA(:, 2, 3, 4) = (/ & |
732 |
|
|
& 0.28517E-03_JPRB,0.42528E-03_JPRB,0.48017E-03_JPRB,0.50148E-03_JPRB,0.49564E-03_JPRB, & |
733 |
|
✗ |
& 0.47634E-03_JPRB,0.44517E-03_JPRB,0.39228E-03_JPRB,0.27386E-03_JPRB /) |
734 |
|
|
KA(:, 3, 3, 4) = (/ & |
735 |
|
|
& 0.28805E-03_JPRB,0.43254E-03_JPRB,0.48769E-03_JPRB,0.51075E-03_JPRB,0.50628E-03_JPRB, & |
736 |
|
✗ |
& 0.48940E-03_JPRB,0.45557E-03_JPRB,0.40274E-03_JPRB,0.28527E-03_JPRB /) |
737 |
|
|
KA(:, 4, 3, 4) = (/ & |
738 |
|
|
& 0.29156E-03_JPRB,0.44130E-03_JPRB,0.49824E-03_JPRB,0.52245E-03_JPRB,0.52001E-03_JPRB, & |
739 |
|
✗ |
& 0.50355E-03_JPRB,0.46711E-03_JPRB,0.41540E-03_JPRB,0.29729E-03_JPRB /) |
740 |
|
|
KA(:, 5, 3, 4) = (/ & |
741 |
|
|
& 0.29453E-03_JPRB,0.44828E-03_JPRB,0.50753E-03_JPRB,0.53257E-03_JPRB,0.53321E-03_JPRB, & |
742 |
|
✗ |
& 0.51645E-03_JPRB,0.48189E-03_JPRB,0.42882E-03_JPRB,0.30960E-03_JPRB /) |
743 |
|
|
KA(:, 1, 4, 4) = (/ & |
744 |
|
|
& 0.24709E-03_JPRB,0.37040E-03_JPRB,0.41811E-03_JPRB,0.43692E-03_JPRB,0.42924E-03_JPRB, & |
745 |
|
✗ |
& 0.40974E-03_JPRB,0.38217E-03_JPRB,0.33504E-03_JPRB,0.21956E-03_JPRB /) |
746 |
|
|
KA(:, 2, 4, 4) = (/ & |
747 |
|
|
& 0.24935E-03_JPRB,0.37531E-03_JPRB,0.42359E-03_JPRB,0.44356E-03_JPRB,0.43669E-03_JPRB, & |
748 |
|
✗ |
& 0.41955E-03_JPRB,0.39063E-03_JPRB,0.34337E-03_JPRB,0.23257E-03_JPRB /) |
749 |
|
|
KA(:, 3, 4, 4) = (/ & |
750 |
|
|
& 0.25192E-03_JPRB,0.38183E-03_JPRB,0.43049E-03_JPRB,0.45130E-03_JPRB,0.44572E-03_JPRB, & |
751 |
|
✗ |
& 0.43016E-03_JPRB,0.39919E-03_JPRB,0.35274E-03_JPRB,0.24051E-03_JPRB /) |
752 |
|
|
KA(:, 4, 4, 4) = (/ & |
753 |
|
|
& 0.25420E-03_JPRB,0.38887E-03_JPRB,0.43864E-03_JPRB,0.46020E-03_JPRB,0.45692E-03_JPRB, & |
754 |
|
✗ |
& 0.44111E-03_JPRB,0.40882E-03_JPRB,0.36219E-03_JPRB,0.24966E-03_JPRB /) |
755 |
|
|
KA(:, 5, 4, 4) = (/ & |
756 |
|
|
& 0.25772E-03_JPRB,0.39769E-03_JPRB,0.44993E-03_JPRB,0.47213E-03_JPRB,0.47068E-03_JPRB, & |
757 |
|
✗ |
& 0.45426E-03_JPRB,0.42157E-03_JPRB,0.37400E-03_JPRB,0.25930E-03_JPRB /) |
758 |
|
|
KA(:, 1, 5, 4) = (/ & |
759 |
|
|
& 0.21574E-03_JPRB,0.32603E-03_JPRB,0.36644E-03_JPRB,0.38307E-03_JPRB,0.37721E-03_JPRB, & |
760 |
|
✗ |
& 0.36018E-03_JPRB,0.33363E-03_JPRB,0.29143E-03_JPRB,0.18896E-03_JPRB /) |
761 |
|
|
KA(:, 2, 5, 4) = (/ & |
762 |
|
|
& 0.21778E-03_JPRB,0.33044E-03_JPRB,0.37107E-03_JPRB,0.38833E-03_JPRB,0.38426E-03_JPRB, & |
763 |
|
✗ |
& 0.36797E-03_JPRB,0.34054E-03_JPRB,0.29920E-03_JPRB,0.19816E-03_JPRB /) |
764 |
|
|
KA(:, 3, 5, 4) = (/ & |
765 |
|
|
& 0.22015E-03_JPRB,0.33584E-03_JPRB,0.37735E-03_JPRB,0.39513E-03_JPRB,0.39228E-03_JPRB, & |
766 |
|
✗ |
& 0.37720E-03_JPRB,0.34842E-03_JPRB,0.30654E-03_JPRB,0.20383E-03_JPRB /) |
767 |
|
|
KA(:, 4, 5, 4) = (/ & |
768 |
|
|
& 0.22252E-03_JPRB,0.34167E-03_JPRB,0.38484E-03_JPRB,0.40343E-03_JPRB,0.40251E-03_JPRB, & |
769 |
|
✗ |
& 0.38567E-03_JPRB,0.35760E-03_JPRB,0.31401E-03_JPRB,0.21178E-03_JPRB /) |
770 |
|
|
KA(:, 5, 5, 4) = (/ & |
771 |
|
|
& 0.22604E-03_JPRB,0.34964E-03_JPRB,0.39509E-03_JPRB,0.41443E-03_JPRB,0.41465E-03_JPRB, & |
772 |
|
✗ |
& 0.39685E-03_JPRB,0.36847E-03_JPRB,0.32400E-03_JPRB,0.21929E-03_JPRB /) |
773 |
|
|
KA(:, 1, 6, 4) = (/ & |
774 |
|
|
& 0.18783E-03_JPRB,0.28666E-03_JPRB,0.32037E-03_JPRB,0.33351E-03_JPRB,0.32945E-03_JPRB, & |
775 |
|
✗ |
& 0.31516E-03_JPRB,0.29066E-03_JPRB,0.25263E-03_JPRB,0.16238E-03_JPRB /) |
776 |
|
|
KA(:, 2, 6, 4) = (/ & |
777 |
|
|
& 0.18921E-03_JPRB,0.29078E-03_JPRB,0.32423E-03_JPRB,0.33799E-03_JPRB,0.33536E-03_JPRB, & |
778 |
|
✗ |
& 0.32156E-03_JPRB,0.29643E-03_JPRB,0.25941E-03_JPRB,0.16831E-03_JPRB /) |
779 |
|
|
KA(:, 3, 6, 4) = (/ & |
780 |
|
|
& 0.19117E-03_JPRB,0.29487E-03_JPRB,0.32978E-03_JPRB,0.34375E-03_JPRB,0.34274E-03_JPRB, & |
781 |
|
✗ |
& 0.32907E-03_JPRB,0.30344E-03_JPRB,0.26560E-03_JPRB,0.17389E-03_JPRB /) |
782 |
|
|
KA(:, 4, 6, 4) = (/ & |
783 |
|
|
& 0.19356E-03_JPRB,0.29979E-03_JPRB,0.33631E-03_JPRB,0.35135E-03_JPRB,0.35098E-03_JPRB, & |
784 |
|
✗ |
& 0.33648E-03_JPRB,0.31108E-03_JPRB,0.27199E-03_JPRB,0.18056E-03_JPRB /) |
785 |
|
|
KA(:, 5, 6, 4) = (/ & |
786 |
|
|
& 0.19643E-03_JPRB,0.30567E-03_JPRB,0.34396E-03_JPRB,0.35996E-03_JPRB,0.36067E-03_JPRB, & |
787 |
|
✗ |
& 0.34559E-03_JPRB,0.32056E-03_JPRB,0.28009E-03_JPRB,0.18507E-03_JPRB /) |
788 |
|
|
KA(:, 1, 7, 4) = (/ & |
789 |
|
|
& 0.16233E-03_JPRB,0.25159E-03_JPRB,0.28051E-03_JPRB,0.29071E-03_JPRB,0.28724E-03_JPRB, & |
790 |
|
✗ |
& 0.27399E-03_JPRB,0.25257E-03_JPRB,0.21995E-03_JPRB,0.15053E-03_JPRB /) |
791 |
|
|
KA(:, 2, 7, 4) = (/ & |
792 |
|
|
& 0.16394E-03_JPRB,0.25497E-03_JPRB,0.28374E-03_JPRB,0.29454E-03_JPRB,0.29203E-03_JPRB, & |
793 |
|
✗ |
& 0.28002E-03_JPRB,0.25781E-03_JPRB,0.22523E-03_JPRB,0.15467E-03_JPRB /) |
794 |
|
|
KA(:, 3, 7, 4) = (/ & |
795 |
|
|
& 0.16554E-03_JPRB,0.25862E-03_JPRB,0.28837E-03_JPRB,0.29946E-03_JPRB,0.29804E-03_JPRB, & |
796 |
|
✗ |
& 0.28580E-03_JPRB,0.26386E-03_JPRB,0.23003E-03_JPRB,0.15858E-03_JPRB /) |
797 |
|
|
KA(:, 4, 7, 4) = (/ & |
798 |
|
|
& 0.16755E-03_JPRB,0.26275E-03_JPRB,0.29380E-03_JPRB,0.30624E-03_JPRB,0.30499E-03_JPRB, & |
799 |
|
✗ |
& 0.29233E-03_JPRB,0.27029E-03_JPRB,0.23539E-03_JPRB,0.16161E-03_JPRB /) |
800 |
|
|
KA(:, 5, 7, 4) = (/ & |
801 |
|
|
& 0.17007E-03_JPRB,0.26765E-03_JPRB,0.30035E-03_JPRB,0.31353E-03_JPRB,0.31332E-03_JPRB, & |
802 |
|
✗ |
& 0.30019E-03_JPRB,0.27871E-03_JPRB,0.24192E-03_JPRB,0.16587E-03_JPRB /) |
803 |
|
|
KA(:, 1, 8, 4) = (/ & |
804 |
|
|
& 0.14021E-03_JPRB,0.21983E-03_JPRB,0.24557E-03_JPRB,0.25394E-03_JPRB,0.25027E-03_JPRB, & |
805 |
|
✗ |
& 0.23769E-03_JPRB,0.21853E-03_JPRB,0.19056E-03_JPRB,0.17210E-03_JPRB /) |
806 |
|
|
KA(:, 2, 8, 4) = (/ & |
807 |
|
|
& 0.14181E-03_JPRB,0.22244E-03_JPRB,0.24837E-03_JPRB,0.25730E-03_JPRB,0.25433E-03_JPRB, & |
808 |
|
✗ |
& 0.24284E-03_JPRB,0.22361E-03_JPRB,0.19448E-03_JPRB,0.16707E-03_JPRB /) |
809 |
|
|
KA(:, 3, 8, 4) = (/ & |
810 |
|
|
& 0.14344E-03_JPRB,0.22578E-03_JPRB,0.25216E-03_JPRB,0.26169E-03_JPRB,0.25950E-03_JPRB, & |
811 |
|
✗ |
& 0.24760E-03_JPRB,0.22868E-03_JPRB,0.19861E-03_JPRB,0.16518E-03_JPRB /) |
812 |
|
|
KA(:, 4, 8, 4) = (/ & |
813 |
|
|
& 0.14524E-03_JPRB,0.22935E-03_JPRB,0.25652E-03_JPRB,0.26715E-03_JPRB,0.26554E-03_JPRB, & |
814 |
|
✗ |
& 0.25327E-03_JPRB,0.23470E-03_JPRB,0.20360E-03_JPRB,0.16514E-03_JPRB /) |
815 |
|
|
KA(:, 5, 8, 4) = (/ & |
816 |
|
|
& 0.14752E-03_JPRB,0.23348E-03_JPRB,0.26209E-03_JPRB,0.27316E-03_JPRB,0.27225E-03_JPRB, & |
817 |
|
✗ |
& 0.26056E-03_JPRB,0.24203E-03_JPRB,0.20916E-03_JPRB,0.16671E-03_JPRB /) |
818 |
|
|
KA(:, 1, 9, 4) = (/ & |
819 |
|
|
& 0.12008E-03_JPRB,0.19084E-03_JPRB,0.21359E-03_JPRB,0.22137E-03_JPRB,0.21826E-03_JPRB, & |
820 |
|
✗ |
& 0.20646E-03_JPRB,0.18855E-03_JPRB,0.16443E-03_JPRB,0.31379E-03_JPRB /) |
821 |
|
|
KA(:, 2, 9, 4) = (/ & |
822 |
|
|
& 0.12170E-03_JPRB,0.19281E-03_JPRB,0.21619E-03_JPRB,0.22414E-03_JPRB,0.22156E-03_JPRB, & |
823 |
|
✗ |
& 0.21036E-03_JPRB,0.19272E-03_JPRB,0.16751E-03_JPRB,0.30810E-03_JPRB /) |
824 |
|
|
KA(:, 3, 9, 4) = (/ & |
825 |
|
|
& 0.12341E-03_JPRB,0.19553E-03_JPRB,0.21930E-03_JPRB,0.22810E-03_JPRB,0.22604E-03_JPRB, & |
826 |
|
✗ |
& 0.21457E-03_JPRB,0.19724E-03_JPRB,0.17093E-03_JPRB,0.30579E-03_JPRB /) |
827 |
|
|
KA(:, 4, 9, 4) = (/ & |
828 |
|
|
& 0.12515E-03_JPRB,0.19866E-03_JPRB,0.22306E-03_JPRB,0.23273E-03_JPRB,0.23128E-03_JPRB, & |
829 |
|
✗ |
& 0.22000E-03_JPRB,0.20255E-03_JPRB,0.17520E-03_JPRB,0.30468E-03_JPRB /) |
830 |
|
|
KA(:, 5, 9, 4) = (/ & |
831 |
|
|
& 0.12711E-03_JPRB,0.20244E-03_JPRB,0.22780E-03_JPRB,0.23779E-03_JPRB,0.23723E-03_JPRB, & |
832 |
|
✗ |
& 0.22672E-03_JPRB,0.20873E-03_JPRB,0.18006E-03_JPRB,0.30071E-03_JPRB /) |
833 |
|
|
KA(:, 1,10, 4) = (/ & |
834 |
|
|
& 0.10239E-03_JPRB,0.16495E-03_JPRB,0.18568E-03_JPRB,0.19287E-03_JPRB,0.19038E-03_JPRB, & |
835 |
|
✗ |
& 0.17962E-03_JPRB,0.16274E-03_JPRB,0.14112E-03_JPRB,0.46281E-03_JPRB /) |
836 |
|
|
KA(:, 2,10, 4) = (/ & |
837 |
|
|
& 0.10386E-03_JPRB,0.16652E-03_JPRB,0.18791E-03_JPRB,0.19539E-03_JPRB,0.19307E-03_JPRB, & |
838 |
|
✗ |
& 0.18291E-03_JPRB,0.16628E-03_JPRB,0.14354E-03_JPRB,0.46032E-03_JPRB /) |
839 |
|
|
KA(:, 3,10, 4) = (/ & |
840 |
|
|
& 0.10550E-03_JPRB,0.16884E-03_JPRB,0.19060E-03_JPRB,0.19863E-03_JPRB,0.19685E-03_JPRB, & |
841 |
|
✗ |
& 0.18669E-03_JPRB,0.17045E-03_JPRB,0.14674E-03_JPRB,0.45882E-03_JPRB /) |
842 |
|
|
KA(:, 4,10, 4) = (/ & |
843 |
|
|
& 0.10710E-03_JPRB,0.17185E-03_JPRB,0.19377E-03_JPRB,0.20238E-03_JPRB,0.20140E-03_JPRB, & |
844 |
|
✗ |
& 0.19164E-03_JPRB,0.17544E-03_JPRB,0.15076E-03_JPRB,0.45556E-03_JPRB /) |
845 |
|
|
KA(:, 5,10, 4) = (/ & |
846 |
|
|
& 0.10887E-03_JPRB,0.17528E-03_JPRB,0.19755E-03_JPRB,0.20663E-03_JPRB,0.20650E-03_JPRB, & |
847 |
|
✗ |
& 0.19756E-03_JPRB,0.18068E-03_JPRB,0.15495E-03_JPRB,0.45295E-03_JPRB /) |
848 |
|
|
KA(:, 1,11, 4) = (/ & |
849 |
|
|
& 0.87454E-04_JPRB,0.14214E-03_JPRB,0.16093E-03_JPRB,0.16784E-03_JPRB,0.16634E-03_JPRB, & |
850 |
|
✗ |
& 0.15750E-03_JPRB,0.14233E-03_JPRB,0.12157E-03_JPRB,0.50227E-03_JPRB /) |
851 |
|
|
KA(:, 2,11, 4) = (/ & |
852 |
|
|
& 0.89026E-04_JPRB,0.14363E-03_JPRB,0.16297E-03_JPRB,0.17024E-03_JPRB,0.16905E-03_JPRB, & |
853 |
|
✗ |
& 0.16052E-03_JPRB,0.14560E-03_JPRB,0.12384E-03_JPRB,0.48800E-03_JPRB /) |
854 |
|
|
KA(:, 3,11, 4) = (/ & |
855 |
|
|
& 0.90456E-04_JPRB,0.14595E-03_JPRB,0.16534E-03_JPRB,0.17342E-03_JPRB,0.17281E-03_JPRB, & |
856 |
|
✗ |
& 0.16441E-03_JPRB,0.14965E-03_JPRB,0.12699E-03_JPRB,0.48638E-03_JPRB /) |
857 |
|
|
KA(:, 4,11, 4) = (/ & |
858 |
|
|
& 0.91788E-04_JPRB,0.14885E-03_JPRB,0.16823E-03_JPRB,0.17680E-03_JPRB,0.17688E-03_JPRB, & |
859 |
|
✗ |
& 0.16911E-03_JPRB,0.15409E-03_JPRB,0.13060E-03_JPRB,0.48097E-03_JPRB /) |
860 |
|
|
KA(:, 5,11, 4) = (/ & |
861 |
|
|
& 0.92958E-04_JPRB,0.15220E-03_JPRB,0.17197E-03_JPRB,0.18085E-03_JPRB,0.18150E-03_JPRB, & |
862 |
|
✗ |
& 0.17440E-03_JPRB,0.15892E-03_JPRB,0.13466E-03_JPRB,0.48115E-03_JPRB /) |
863 |
|
|
KA(:, 1,12, 4) = (/ & |
864 |
|
|
& 0.74228E-04_JPRB,0.12171E-03_JPRB,0.13828E-03_JPRB,0.14464E-03_JPRB,0.14381E-03_JPRB, & |
865 |
|
✗ |
& 0.13674E-03_JPRB,0.12370E-03_JPRB,0.10454E-03_JPRB,0.48263E-03_JPRB /) |
866 |
|
|
KA(:, 2,12, 4) = (/ & |
867 |
|
|
& 0.75542E-04_JPRB,0.12330E-03_JPRB,0.13992E-03_JPRB,0.14688E-03_JPRB,0.14666E-03_JPRB, & |
868 |
|
✗ |
& 0.13981E-03_JPRB,0.12694E-03_JPRB,0.10662E-03_JPRB,0.46961E-03_JPRB /) |
869 |
|
|
KA(:, 3,12, 4) = (/ & |
870 |
|
|
& 0.76696E-04_JPRB,0.12551E-03_JPRB,0.14218E-03_JPRB,0.14964E-03_JPRB,0.14989E-03_JPRB, & |
871 |
|
✗ |
& 0.14346E-03_JPRB,0.13058E-03_JPRB,0.10986E-03_JPRB,0.45986E-03_JPRB /) |
872 |
|
|
KA(:, 4,12, 4) = (/ & |
873 |
|
|
& 0.77769E-04_JPRB,0.12821E-03_JPRB,0.14505E-03_JPRB,0.15276E-03_JPRB,0.15361E-03_JPRB, & |
874 |
|
✗ |
& 0.14764E-03_JPRB,0.13466E-03_JPRB,0.11322E-03_JPRB,0.45064E-03_JPRB /) |
875 |
|
|
KA(:, 5,12, 4) = (/ & |
876 |
|
|
& 0.78633E-04_JPRB,0.13113E-03_JPRB,0.14863E-03_JPRB,0.15667E-03_JPRB,0.15783E-03_JPRB, & |
877 |
|
✗ |
& 0.15249E-03_JPRB,0.13915E-03_JPRB,0.11696E-03_JPRB,0.45257E-03_JPRB /) |
878 |
|
|
KA(:, 1,13, 4) = (/ & |
879 |
|
|
& 0.62659E-04_JPRB,0.10388E-03_JPRB,0.11828E-03_JPRB,0.12392E-03_JPRB,0.12371E-03_JPRB, & |
880 |
|
✗ |
& 0.11811E-03_JPRB,0.10712E-03_JPRB,0.89769E-04_JPRB,0.40925E-03_JPRB /) |
881 |
|
|
KA(:, 2,13, 4) = (/ & |
882 |
|
|
& 0.63709E-04_JPRB,0.10546E-03_JPRB,0.11986E-03_JPRB,0.12594E-03_JPRB,0.12627E-03_JPRB, & |
883 |
|
✗ |
& 0.12095E-03_JPRB,0.11006E-03_JPRB,0.92053E-04_JPRB,0.39852E-03_JPRB /) |
884 |
|
|
KA(:, 3,13, 4) = (/ & |
885 |
|
|
& 0.64717E-04_JPRB,0.10750E-03_JPRB,0.12189E-03_JPRB,0.12839E-03_JPRB,0.12907E-03_JPRB, & |
886 |
|
✗ |
& 0.12414E-03_JPRB,0.11317E-03_JPRB,0.94939E-04_JPRB,0.39013E-03_JPRB /) |
887 |
|
|
KA(:, 4,13, 4) = (/ & |
888 |
|
|
& 0.65465E-04_JPRB,0.10983E-03_JPRB,0.12464E-03_JPRB,0.13149E-03_JPRB,0.13253E-03_JPRB, & |
889 |
|
✗ |
& 0.12801E-03_JPRB,0.11693E-03_JPRB,0.98001E-04_JPRB,0.38349E-03_JPRB /) |
890 |
|
|
KA(:, 5,13, 4) = (/ & |
891 |
|
|
& 0.66137E-04_JPRB,0.11222E-03_JPRB,0.12786E-03_JPRB,0.13517E-03_JPRB,0.13652E-03_JPRB, & |
892 |
|
✗ |
& 0.13219E-03_JPRB,0.12093E-03_JPRB,0.10155E-03_JPRB,0.38305E-03_JPRB /) |
893 |
|
|
KA(:, 1, 1, 5) = (/ & |
894 |
|
|
& 0.60998E-03_JPRB,0.92357E-03_JPRB,0.10463E-02_JPRB,0.11196E-02_JPRB,0.11571E-02_JPRB, & |
895 |
|
✗ |
& 0.11569E-02_JPRB,0.11152E-02_JPRB,0.10342E-02_JPRB,0.80721E-03_JPRB /) |
896 |
|
|
KA(:, 2, 1, 5) = (/ & |
897 |
|
|
& 0.61496E-03_JPRB,0.93510E-03_JPRB,0.10604E-02_JPRB,0.11361E-02_JPRB,0.11777E-02_JPRB, & |
898 |
|
✗ |
& 0.11834E-02_JPRB,0.11457E-02_JPRB,0.10708E-02_JPRB,0.83732E-03_JPRB /) |
899 |
|
|
KA(:, 3, 1, 5) = (/ & |
900 |
|
|
& 0.62454E-03_JPRB,0.95002E-03_JPRB,0.10819E-02_JPRB,0.11594E-02_JPRB,0.12038E-02_JPRB, & |
901 |
|
✗ |
& 0.12158E-02_JPRB,0.11823E-02_JPRB,0.11158E-02_JPRB,0.87187E-03_JPRB /) |
902 |
|
|
KA(:, 4, 1, 5) = (/ & |
903 |
|
|
& 0.63013E-03_JPRB,0.96444E-03_JPRB,0.11010E-02_JPRB,0.11847E-02_JPRB,0.12326E-02_JPRB, & |
904 |
|
✗ |
& 0.12499E-02_JPRB,0.12239E-02_JPRB,0.11623E-02_JPRB,0.91505E-03_JPRB /) |
905 |
|
|
KA(:, 5, 1, 5) = (/ & |
906 |
|
|
& 0.63867E-03_JPRB,0.98562E-03_JPRB,0.11276E-02_JPRB,0.12151E-02_JPRB,0.12673E-02_JPRB, & |
907 |
|
✗ |
& 0.12886E-02_JPRB,0.12687E-02_JPRB,0.12127E-02_JPRB,0.95931E-03_JPRB /) |
908 |
|
|
KA(:, 1, 2, 5) = (/ & |
909 |
|
|
& 0.54006E-03_JPRB,0.82110E-03_JPRB,0.93517E-03_JPRB,0.10086E-02_JPRB,0.10436E-02_JPRB, & |
910 |
|
✗ |
& 0.10473E-02_JPRB,0.10071E-02_JPRB,0.92435E-03_JPRB,0.69632E-03_JPRB /) |
911 |
|
|
KA(:, 2, 2, 5) = (/ & |
912 |
|
|
& 0.54512E-03_JPRB,0.83214E-03_JPRB,0.94586E-03_JPRB,0.10224E-02_JPRB,0.10616E-02_JPRB, & |
913 |
|
✗ |
& 0.10697E-02_JPRB,0.10360E-02_JPRB,0.95897E-03_JPRB,0.72282E-03_JPRB /) |
914 |
|
|
KA(:, 3, 2, 5) = (/ & |
915 |
|
|
& 0.55430E-03_JPRB,0.84713E-03_JPRB,0.96481E-03_JPRB,0.10423E-02_JPRB,0.10850E-02_JPRB, & |
916 |
|
✗ |
& 0.10972E-02_JPRB,0.10691E-02_JPRB,0.99640E-03_JPRB,0.75512E-03_JPRB /) |
917 |
|
|
KA(:, 4, 2, 5) = (/ & |
918 |
|
|
& 0.56089E-03_JPRB,0.86369E-03_JPRB,0.98575E-03_JPRB,0.10648E-02_JPRB,0.11112E-02_JPRB, & |
919 |
|
✗ |
& 0.11281E-02_JPRB,0.11049E-02_JPRB,0.10361E-02_JPRB,0.79150E-03_JPRB /) |
920 |
|
|
KA(:, 5, 2, 5) = (/ & |
921 |
|
|
& 0.56701E-03_JPRB,0.88105E-03_JPRB,0.10081E-02_JPRB,0.10898E-02_JPRB,0.11420E-02_JPRB, & |
922 |
|
✗ |
& 0.11626E-02_JPRB,0.11406E-02_JPRB,0.10780E-02_JPRB,0.83023E-03_JPRB /) |
923 |
|
|
KA(:, 1, 3, 5) = (/ & |
924 |
|
|
& 0.47586E-03_JPRB,0.72781E-03_JPRB,0.83369E-03_JPRB,0.89860E-03_JPRB,0.93234E-03_JPRB, & |
925 |
|
✗ |
& 0.93626E-03_JPRB,0.89909E-03_JPRB,0.81585E-03_JPRB,0.59036E-03_JPRB /) |
926 |
|
|
KA(:, 2, 3, 5) = (/ & |
927 |
|
|
& 0.48035E-03_JPRB,0.73757E-03_JPRB,0.84502E-03_JPRB,0.91276E-03_JPRB,0.94800E-03_JPRB, & |
928 |
|
✗ |
& 0.95536E-03_JPRB,0.92668E-03_JPRB,0.84501E-03_JPRB,0.61080E-03_JPRB /) |
929 |
|
|
KA(:, 3, 3, 5) = (/ & |
930 |
|
|
& 0.48667E-03_JPRB,0.74941E-03_JPRB,0.86058E-03_JPRB,0.92996E-03_JPRB,0.96794E-03_JPRB, & |
931 |
|
✗ |
& 0.97737E-03_JPRB,0.95368E-03_JPRB,0.87646E-03_JPRB,0.63872E-03_JPRB /) |
932 |
|
|
KA(:, 4, 3, 5) = (/ & |
933 |
|
|
& 0.49637E-03_JPRB,0.76538E-03_JPRB,0.87882E-03_JPRB,0.95073E-03_JPRB,0.99190E-03_JPRB, & |
934 |
|
✗ |
& 0.10051E-02_JPRB,0.98438E-03_JPRB,0.91070E-03_JPRB,0.66866E-03_JPRB /) |
935 |
|
|
KA(:, 5, 3, 5) = (/ & |
936 |
|
|
& 0.50269E-03_JPRB,0.78028E-03_JPRB,0.89635E-03_JPRB,0.97198E-03_JPRB,0.10179E-02_JPRB, & |
937 |
|
✗ |
& 0.10338E-02_JPRB,0.10130E-02_JPRB,0.94553E-03_JPRB,0.70095E-03_JPRB /) |
938 |
|
|
KA(:, 1, 4, 5) = (/ & |
939 |
|
|
& 0.41745E-03_JPRB,0.64505E-03_JPRB,0.73966E-03_JPRB,0.79761E-03_JPRB,0.82752E-03_JPRB, & |
940 |
|
✗ |
& 0.82878E-03_JPRB,0.79470E-03_JPRB,0.71636E-03_JPRB,0.49987E-03_JPRB /) |
941 |
|
|
KA(:, 2, 4, 5) = (/ & |
942 |
|
|
& 0.42212E-03_JPRB,0.65318E-03_JPRB,0.75017E-03_JPRB,0.80979E-03_JPRB,0.84194E-03_JPRB, & |
943 |
|
✗ |
& 0.84473E-03_JPRB,0.81717E-03_JPRB,0.73865E-03_JPRB,0.51625E-03_JPRB /) |
944 |
|
|
KA(:, 3, 4, 5) = (/ & |
945 |
|
|
& 0.42808E-03_JPRB,0.66407E-03_JPRB,0.76314E-03_JPRB,0.82416E-03_JPRB,0.85814E-03_JPRB, & |
946 |
|
✗ |
& 0.86375E-03_JPRB,0.83972E-03_JPRB,0.76440E-03_JPRB,0.53894E-03_JPRB /) |
947 |
|
|
KA(:, 4, 4, 5) = (/ & |
948 |
|
|
& 0.43544E-03_JPRB,0.67737E-03_JPRB,0.77911E-03_JPRB,0.84222E-03_JPRB,0.87777E-03_JPRB, & |
949 |
|
✗ |
& 0.88583E-03_JPRB,0.86479E-03_JPRB,0.79362E-03_JPRB,0.56271E-03_JPRB /) |
950 |
|
|
|
951 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART3',1,ZHOOK_HANDLE) |
952 |
|
✗ |
END SUBROUTINE PART3 |
953 |
|
|
|
954 |
|
|
|
955 |
|
✗ |
SUBROUTINE PART4 |
956 |
|
|
|
957 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
958 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART4',0,ZHOOK_HANDLE) |
959 |
|
|
|
960 |
|
|
|
961 |
|
|
KA(:, 5, 4, 5) = (/ & |
962 |
|
|
& 0.44549E-03_JPRB,0.69330E-03_JPRB,0.79686E-03_JPRB,0.86274E-03_JPRB,0.90103E-03_JPRB, & |
963 |
|
✗ |
& 0.91189E-03_JPRB,0.89184E-03_JPRB,0.82416E-03_JPRB,0.58887E-03_JPRB /) |
964 |
|
|
KA(:, 1, 5, 5) = (/ & |
965 |
|
|
& 0.36593E-03_JPRB,0.56942E-03_JPRB,0.65432E-03_JPRB,0.70354E-03_JPRB,0.72916E-03_JPRB, & |
966 |
|
✗ |
& 0.72850E-03_JPRB,0.69713E-03_JPRB,0.62558E-03_JPRB,0.42621E-03_JPRB /) |
967 |
|
|
KA(:, 2, 5, 5) = (/ & |
968 |
|
|
& 0.37099E-03_JPRB,0.57654E-03_JPRB,0.66395E-03_JPRB,0.71472E-03_JPRB,0.74107E-03_JPRB, & |
969 |
|
✗ |
& 0.74240E-03_JPRB,0.71535E-03_JPRB,0.64376E-03_JPRB,0.43884E-03_JPRB /) |
970 |
|
|
KA(:, 3, 5, 5) = (/ & |
971 |
|
|
& 0.37647E-03_JPRB,0.58652E-03_JPRB,0.67530E-03_JPRB,0.72837E-03_JPRB,0.75654E-03_JPRB, & |
972 |
|
✗ |
& 0.75759E-03_JPRB,0.73402E-03_JPRB,0.66546E-03_JPRB,0.45630E-03_JPRB /) |
973 |
|
|
KA(:, 4, 5, 5) = (/ & |
974 |
|
|
& 0.38311E-03_JPRB,0.59837E-03_JPRB,0.68871E-03_JPRB,0.74328E-03_JPRB,0.77277E-03_JPRB, & |
975 |
|
✗ |
& 0.77677E-03_JPRB,0.75490E-03_JPRB,0.68962E-03_JPRB,0.47449E-03_JPRB /) |
976 |
|
|
KA(:, 5, 5, 5) = (/ & |
977 |
|
|
& 0.39217E-03_JPRB,0.61368E-03_JPRB,0.70480E-03_JPRB,0.76178E-03_JPRB,0.79297E-03_JPRB, & |
978 |
|
✗ |
& 0.79889E-03_JPRB,0.77761E-03_JPRB,0.71542E-03_JPRB,0.49580E-03_JPRB /) |
979 |
|
|
KA(:, 1, 6, 5) = (/ & |
980 |
|
|
& 0.32055E-03_JPRB,0.49922E-03_JPRB,0.57435E-03_JPRB,0.61868E-03_JPRB,0.63931E-03_JPRB, & |
981 |
|
✗ |
& 0.63779E-03_JPRB,0.60689E-03_JPRB,0.54327E-03_JPRB,0.36282E-03_JPRB /) |
982 |
|
|
KA(:, 2, 6, 5) = (/ & |
983 |
|
|
& 0.32502E-03_JPRB,0.50520E-03_JPRB,0.58251E-03_JPRB,0.62835E-03_JPRB,0.64977E-03_JPRB, & |
984 |
|
✗ |
& 0.64920E-03_JPRB,0.62209E-03_JPRB,0.55837E-03_JPRB,0.37399E-03_JPRB /) |
985 |
|
|
KA(:, 3, 6, 5) = (/ & |
986 |
|
|
& 0.33055E-03_JPRB,0.51462E-03_JPRB,0.59267E-03_JPRB,0.63972E-03_JPRB,0.66253E-03_JPRB, & |
987 |
|
✗ |
& 0.66213E-03_JPRB,0.63802E-03_JPRB,0.57660E-03_JPRB,0.38710E-03_JPRB /) |
988 |
|
|
KA(:, 4, 6, 5) = (/ & |
989 |
|
|
& 0.33647E-03_JPRB,0.52569E-03_JPRB,0.60454E-03_JPRB,0.65260E-03_JPRB,0.67645E-03_JPRB, & |
990 |
|
✗ |
& 0.67638E-03_JPRB,0.65560E-03_JPRB,0.59667E-03_JPRB,0.40130E-03_JPRB /) |
991 |
|
|
KA(:, 5, 6, 5) = (/ & |
992 |
|
|
& 0.34306E-03_JPRB,0.53846E-03_JPRB,0.61820E-03_JPRB,0.66796E-03_JPRB,0.69284E-03_JPRB, & |
993 |
|
✗ |
& 0.69400E-03_JPRB,0.67340E-03_JPRB,0.61700E-03_JPRB,0.41923E-03_JPRB /) |
994 |
|
|
KA(:, 1, 7, 5) = (/ & |
995 |
|
|
& 0.28149E-03_JPRB,0.43644E-03_JPRB,0.49974E-03_JPRB,0.53938E-03_JPRB,0.55701E-03_JPRB, & |
996 |
|
✗ |
& 0.55579E-03_JPRB,0.52736E-03_JPRB,0.47001E-03_JPRB,0.31306E-03_JPRB /) |
997 |
|
|
KA(:, 2, 7, 5) = (/ & |
998 |
|
|
& 0.28528E-03_JPRB,0.44207E-03_JPRB,0.50655E-03_JPRB,0.54763E-03_JPRB,0.56691E-03_JPRB, & |
999 |
|
✗ |
& 0.56439E-03_JPRB,0.53930E-03_JPRB,0.48247E-03_JPRB,0.32173E-03_JPRB /) |
1000 |
|
|
KA(:, 3, 7, 5) = (/ & |
1001 |
|
|
& 0.29004E-03_JPRB,0.45020E-03_JPRB,0.51518E-03_JPRB,0.55741E-03_JPRB,0.57771E-03_JPRB, & |
1002 |
|
✗ |
& 0.57585E-03_JPRB,0.55263E-03_JPRB,0.49748E-03_JPRB,0.33090E-03_JPRB /) |
1003 |
|
|
KA(:, 4, 7, 5) = (/ & |
1004 |
|
|
& 0.29568E-03_JPRB,0.46070E-03_JPRB,0.52625E-03_JPRB,0.56864E-03_JPRB,0.58962E-03_JPRB, & |
1005 |
|
✗ |
& 0.58944E-03_JPRB,0.56702E-03_JPRB,0.51458E-03_JPRB,0.34232E-03_JPRB /) |
1006 |
|
|
KA(:, 5, 7, 5) = (/ & |
1007 |
|
|
& 0.30178E-03_JPRB,0.47274E-03_JPRB,0.53886E-03_JPRB,0.58253E-03_JPRB,0.60354E-03_JPRB, & |
1008 |
|
✗ |
& 0.60454E-03_JPRB,0.58225E-03_JPRB,0.53128E-03_JPRB,0.35470E-03_JPRB /) |
1009 |
|
|
KA(:, 1, 8, 5) = (/ & |
1010 |
|
|
& 0.24786E-03_JPRB,0.38205E-03_JPRB,0.43403E-03_JPRB,0.46727E-03_JPRB,0.48302E-03_JPRB, & |
1011 |
|
✗ |
& 0.48227E-03_JPRB,0.45812E-03_JPRB,0.40611E-03_JPRB,0.30468E-03_JPRB /) |
1012 |
|
|
KA(:, 2, 8, 5) = (/ & |
1013 |
|
|
& 0.25026E-03_JPRB,0.38705E-03_JPRB,0.43948E-03_JPRB,0.47351E-03_JPRB,0.49158E-03_JPRB, & |
1014 |
|
✗ |
& 0.49003E-03_JPRB,0.46771E-03_JPRB,0.41673E-03_JPRB,0.30992E-03_JPRB /) |
1015 |
|
|
KA(:, 3, 8, 5) = (/ & |
1016 |
|
|
& 0.25464E-03_JPRB,0.39453E-03_JPRB,0.44681E-03_JPRB,0.48211E-03_JPRB,0.50112E-03_JPRB, & |
1017 |
|
✗ |
& 0.49992E-03_JPRB,0.47844E-03_JPRB,0.42901E-03_JPRB,0.31626E-03_JPRB /) |
1018 |
|
|
KA(:, 4, 8, 5) = (/ & |
1019 |
|
|
& 0.25978E-03_JPRB,0.40390E-03_JPRB,0.45683E-03_JPRB,0.49220E-03_JPRB,0.51134E-03_JPRB, & |
1020 |
|
✗ |
& 0.51141E-03_JPRB,0.48898E-03_JPRB,0.44238E-03_JPRB,0.32406E-03_JPRB /) |
1021 |
|
|
KA(:, 5, 8, 5) = (/ & |
1022 |
|
|
& 0.26514E-03_JPRB,0.41428E-03_JPRB,0.46827E-03_JPRB,0.50433E-03_JPRB,0.52333E-03_JPRB, & |
1023 |
|
✗ |
& 0.52414E-03_JPRB,0.50147E-03_JPRB,0.45619E-03_JPRB,0.33317E-03_JPRB /) |
1024 |
|
|
KA(:, 1, 9, 5) = (/ & |
1025 |
|
|
& 0.21824E-03_JPRB,0.33786E-03_JPRB,0.37946E-03_JPRB,0.40535E-03_JPRB,0.41752E-03_JPRB, & |
1026 |
|
✗ |
& 0.41661E-03_JPRB,0.39611E-03_JPRB,0.34986E-03_JPRB,0.52178E-03_JPRB /) |
1027 |
|
|
KA(:, 2, 9, 5) = (/ & |
1028 |
|
|
& 0.22059E-03_JPRB,0.34230E-03_JPRB,0.38410E-03_JPRB,0.41056E-03_JPRB,0.42477E-03_JPRB, & |
1029 |
|
✗ |
& 0.42372E-03_JPRB,0.40485E-03_JPRB,0.35866E-03_JPRB,0.50681E-03_JPRB /) |
1030 |
|
|
KA(:, 3, 9, 5) = (/ & |
1031 |
|
|
& 0.22400E-03_JPRB,0.34814E-03_JPRB,0.39039E-03_JPRB,0.41748E-03_JPRB,0.43284E-03_JPRB, & |
1032 |
|
✗ |
& 0.43220E-03_JPRB,0.41363E-03_JPRB,0.36885E-03_JPRB,0.49302E-03_JPRB /) |
1033 |
|
|
KA(:, 4, 9, 5) = (/ & |
1034 |
|
|
& 0.22873E-03_JPRB,0.35603E-03_JPRB,0.39905E-03_JPRB,0.42659E-03_JPRB,0.44174E-03_JPRB, & |
1035 |
|
✗ |
& 0.44167E-03_JPRB,0.42288E-03_JPRB,0.37972E-03_JPRB,0.48294E-03_JPRB /) |
1036 |
|
|
KA(:, 5, 9, 5) = (/ & |
1037 |
|
|
& 0.23347E-03_JPRB,0.36495E-03_JPRB,0.40893E-03_JPRB,0.43763E-03_JPRB,0.45181E-03_JPRB, & |
1038 |
|
✗ |
& 0.45234E-03_JPRB,0.43347E-03_JPRB,0.39120E-03_JPRB,0.47762E-03_JPRB /) |
1039 |
|
|
KA(:, 1,10, 5) = (/ & |
1040 |
|
|
& 0.19122E-03_JPRB,0.29954E-03_JPRB,0.33486E-03_JPRB,0.35474E-03_JPRB,0.36349E-03_JPRB, & |
1041 |
|
✗ |
& 0.36120E-03_JPRB,0.34300E-03_JPRB,0.30153E-03_JPRB,0.10818E-02_JPRB /) |
1042 |
|
|
KA(:, 2,10, 5) = (/ & |
1043 |
|
|
& 0.19375E-03_JPRB,0.30331E-03_JPRB,0.33858E-03_JPRB,0.35959E-03_JPRB,0.36963E-03_JPRB, & |
1044 |
|
✗ |
& 0.36736E-03_JPRB,0.35033E-03_JPRB,0.30927E-03_JPRB,0.10683E-02_JPRB /) |
1045 |
|
|
KA(:, 3,10, 5) = (/ & |
1046 |
|
|
& 0.19685E-03_JPRB,0.30858E-03_JPRB,0.34410E-03_JPRB,0.36599E-03_JPRB,0.37648E-03_JPRB, & |
1047 |
|
✗ |
& 0.37420E-03_JPRB,0.35748E-03_JPRB,0.31737E-03_JPRB,0.10704E-02_JPRB /) |
1048 |
|
|
KA(:, 4,10, 5) = (/ & |
1049 |
|
|
& 0.20091E-03_JPRB,0.31499E-03_JPRB,0.35151E-03_JPRB,0.37400E-03_JPRB,0.38421E-03_JPRB, & |
1050 |
|
✗ |
& 0.38207E-03_JPRB,0.36506E-03_JPRB,0.32617E-03_JPRB,0.10743E-02_JPRB /) |
1051 |
|
|
KA(:, 5,10, 5) = (/ & |
1052 |
|
|
& 0.20539E-03_JPRB,0.32294E-03_JPRB,0.36050E-03_JPRB,0.38325E-03_JPRB,0.39308E-03_JPRB, & |
1053 |
|
✗ |
& 0.39074E-03_JPRB,0.37406E-03_JPRB,0.33544E-03_JPRB,0.10696E-02_JPRB /) |
1054 |
|
|
KA(:, 1,11, 5) = (/ & |
1055 |
|
|
& 0.16667E-03_JPRB,0.26520E-03_JPRB,0.29671E-03_JPRB,0.31441E-03_JPRB,0.32093E-03_JPRB, & |
1056 |
|
✗ |
& 0.31659E-03_JPRB,0.30045E-03_JPRB,0.26340E-03_JPRB,0.11835E-02_JPRB /) |
1057 |
|
|
KA(:, 2,11, 5) = (/ & |
1058 |
|
|
& 0.16885E-03_JPRB,0.26948E-03_JPRB,0.30096E-03_JPRB,0.31914E-03_JPRB,0.32661E-03_JPRB, & |
1059 |
|
✗ |
& 0.32210E-03_JPRB,0.30657E-03_JPRB,0.27004E-03_JPRB,0.11814E-02_JPRB /) |
1060 |
|
|
KA(:, 3,11, 5) = (/ & |
1061 |
|
|
& 0.17223E-03_JPRB,0.27439E-03_JPRB,0.30661E-03_JPRB,0.32470E-03_JPRB,0.33272E-03_JPRB, & |
1062 |
|
✗ |
& 0.32842E-03_JPRB,0.31227E-03_JPRB,0.27654E-03_JPRB,0.11630E-02_JPRB /) |
1063 |
|
|
KA(:, 4,11, 5) = (/ & |
1064 |
|
|
& 0.17618E-03_JPRB,0.28049E-03_JPRB,0.31365E-03_JPRB,0.33181E-03_JPRB,0.33965E-03_JPRB, & |
1065 |
|
✗ |
& 0.33555E-03_JPRB,0.31903E-03_JPRB,0.28400E-03_JPRB,0.11485E-02_JPRB /) |
1066 |
|
|
KA(:, 5,11, 5) = (/ & |
1067 |
|
|
& 0.18103E-03_JPRB,0.28752E-03_JPRB,0.32181E-03_JPRB,0.34031E-03_JPRB,0.34776E-03_JPRB, & |
1068 |
|
✗ |
& 0.34353E-03_JPRB,0.32710E-03_JPRB,0.29221E-03_JPRB,0.11367E-02_JPRB /) |
1069 |
|
|
KA(:, 1,12, 5) = (/ & |
1070 |
|
|
& 0.14364E-03_JPRB,0.23191E-03_JPRB,0.26011E-03_JPRB,0.27602E-03_JPRB,0.28230E-03_JPRB, & |
1071 |
|
✗ |
& 0.27753E-03_JPRB,0.26259E-03_JPRB,0.22940E-03_JPRB,0.11242E-02_JPRB /) |
1072 |
|
|
KA(:, 2,12, 5) = (/ & |
1073 |
|
|
& 0.14586E-03_JPRB,0.23578E-03_JPRB,0.26464E-03_JPRB,0.28074E-03_JPRB,0.28728E-03_JPRB, & |
1074 |
|
✗ |
& 0.28268E-03_JPRB,0.26740E-03_JPRB,0.23511E-03_JPRB,0.11131E-02_JPRB /) |
1075 |
|
|
KA(:, 3,12, 5) = (/ & |
1076 |
|
|
& 0.14908E-03_JPRB,0.24042E-03_JPRB,0.27020E-03_JPRB,0.28659E-03_JPRB,0.29280E-03_JPRB, & |
1077 |
|
✗ |
& 0.28866E-03_JPRB,0.27254E-03_JPRB,0.24089E-03_JPRB,0.10996E-02_JPRB /) |
1078 |
|
|
KA(:, 4,12, 5) = (/ & |
1079 |
|
|
& 0.15297E-03_JPRB,0.24595E-03_JPRB,0.27661E-03_JPRB,0.29313E-03_JPRB,0.29926E-03_JPRB, & |
1080 |
|
✗ |
& 0.29513E-03_JPRB,0.27870E-03_JPRB,0.24706E-03_JPRB,0.10965E-02_JPRB /) |
1081 |
|
|
KA(:, 5,12, 5) = (/ & |
1082 |
|
|
& 0.15735E-03_JPRB,0.25242E-03_JPRB,0.28422E-03_JPRB,0.30069E-03_JPRB,0.30695E-03_JPRB, & |
1083 |
|
✗ |
& 0.30241E-03_JPRB,0.28613E-03_JPRB,0.25425E-03_JPRB,0.10839E-02_JPRB /) |
1084 |
|
|
KA(:, 1,13, 5) = (/ & |
1085 |
|
|
& 0.12345E-03_JPRB,0.20108E-03_JPRB,0.22674E-03_JPRB,0.24086E-03_JPRB,0.24638E-03_JPRB, & |
1086 |
|
✗ |
& 0.24238E-03_JPRB,0.22876E-03_JPRB,0.19931E-03_JPRB,0.96895E-03_JPRB /) |
1087 |
|
|
KA(:, 2,13, 5) = (/ & |
1088 |
|
|
& 0.12581E-03_JPRB,0.20480E-03_JPRB,0.23117E-03_JPRB,0.24535E-03_JPRB,0.25104E-03_JPRB, & |
1089 |
|
✗ |
& 0.24702E-03_JPRB,0.23303E-03_JPRB,0.20421E-03_JPRB,0.96294E-03_JPRB /) |
1090 |
|
|
KA(:, 3,13, 5) = (/ & |
1091 |
|
|
& 0.12856E-03_JPRB,0.20921E-03_JPRB,0.23606E-03_JPRB,0.25076E-03_JPRB,0.25631E-03_JPRB, & |
1092 |
|
✗ |
& 0.25243E-03_JPRB,0.23816E-03_JPRB,0.20920E-03_JPRB,0.95736E-03_JPRB /) |
1093 |
|
|
KA(:, 4,13, 5) = (/ & |
1094 |
|
|
& 0.13210E-03_JPRB,0.21428E-03_JPRB,0.24223E-03_JPRB,0.25691E-03_JPRB,0.26218E-03_JPRB, & |
1095 |
|
✗ |
& 0.25847E-03_JPRB,0.24400E-03_JPRB,0.21468E-03_JPRB,0.95389E-03_JPRB /) |
1096 |
|
|
KA(:, 5,13, 5) = (/ & |
1097 |
|
|
& 0.13599E-03_JPRB,0.22037E-03_JPRB,0.24914E-03_JPRB,0.26391E-03_JPRB,0.26911E-03_JPRB, & |
1098 |
|
✗ |
& 0.26543E-03_JPRB,0.25095E-03_JPRB,0.22101E-03_JPRB,0.94116E-03_JPRB /) |
1099 |
|
|
KA(:, 1, 1, 6) = (/ & |
1100 |
|
|
& 0.10602E-02_JPRB,0.17123E-02_JPRB,0.20157E-02_JPRB,0.22277E-02_JPRB,0.23726E-02_JPRB, & |
1101 |
|
✗ |
& 0.24628E-02_JPRB,0.25069E-02_JPRB,0.24686E-02_JPRB,0.20168E-02_JPRB /) |
1102 |
|
|
KA(:, 2, 1, 6) = (/ & |
1103 |
|
|
& 0.10672E-02_JPRB,0.17270E-02_JPRB,0.20414E-02_JPRB,0.22652E-02_JPRB,0.24211E-02_JPRB, & |
1104 |
|
✗ |
& 0.25212E-02_JPRB,0.25704E-02_JPRB,0.25272E-02_JPRB,0.20646E-02_JPRB /) |
1105 |
|
|
KA(:, 3, 1, 6) = (/ & |
1106 |
|
|
& 0.10788E-02_JPRB,0.17509E-02_JPRB,0.20769E-02_JPRB,0.23112E-02_JPRB,0.24814E-02_JPRB, & |
1107 |
|
✗ |
& 0.25914E-02_JPRB,0.26418E-02_JPRB,0.25942E-02_JPRB,0.21193E-02_JPRB /) |
1108 |
|
|
KA(:, 4, 1, 6) = (/ & |
1109 |
|
|
& 0.10874E-02_JPRB,0.17764E-02_JPRB,0.21176E-02_JPRB,0.23585E-02_JPRB,0.25381E-02_JPRB, & |
1110 |
|
✗ |
& 0.26622E-02_JPRB,0.27175E-02_JPRB,0.26689E-02_JPRB,0.21851E-02_JPRB /) |
1111 |
|
|
KA(:, 5, 1, 6) = (/ & |
1112 |
|
|
& 0.11018E-02_JPRB,0.18090E-02_JPRB,0.21640E-02_JPRB,0.24172E-02_JPRB,0.26051E-02_JPRB, & |
1113 |
|
✗ |
& 0.27415E-02_JPRB,0.28075E-02_JPRB,0.27566E-02_JPRB,0.22604E-02_JPRB /) |
1114 |
|
|
KA(:, 1, 2, 6) = (/ & |
1115 |
|
|
& 0.95075E-03_JPRB,0.15355E-02_JPRB,0.17976E-02_JPRB,0.19766E-02_JPRB,0.21006E-02_JPRB, & |
1116 |
|
✗ |
& 0.21710E-02_JPRB,0.21998E-02_JPRB,0.21663E-02_JPRB,0.17568E-02_JPRB /) |
1117 |
|
|
KA(:, 2, 2, 6) = (/ & |
1118 |
|
|
& 0.96010E-03_JPRB,0.15501E-02_JPRB,0.18242E-02_JPRB,0.20112E-02_JPRB,0.21419E-02_JPRB, & |
1119 |
|
✗ |
& 0.22180E-02_JPRB,0.22475E-02_JPRB,0.22135E-02_JPRB,0.17960E-02_JPRB /) |
1120 |
|
|
KA(:, 3, 2, 6) = (/ & |
1121 |
|
|
& 0.97337E-03_JPRB,0.15726E-02_JPRB,0.18580E-02_JPRB,0.20531E-02_JPRB,0.21905E-02_JPRB, & |
1122 |
|
✗ |
& 0.22742E-02_JPRB,0.23072E-02_JPRB,0.22697E-02_JPRB,0.18409E-02_JPRB /) |
1123 |
|
|
KA(:, 4, 2, 6) = (/ & |
1124 |
|
|
& 0.98600E-03_JPRB,0.15975E-02_JPRB,0.18942E-02_JPRB,0.20984E-02_JPRB,0.22403E-02_JPRB, & |
1125 |
|
✗ |
& 0.23334E-02_JPRB,0.23735E-02_JPRB,0.23328E-02_JPRB,0.18922E-02_JPRB /) |
1126 |
|
|
KA(:, 5, 2, 6) = (/ & |
1127 |
|
|
& 0.99685E-03_JPRB,0.16266E-02_JPRB,0.19353E-02_JPRB,0.21493E-02_JPRB,0.22931E-02_JPRB, & |
1128 |
|
✗ |
& 0.23955E-02_JPRB,0.24466E-02_JPRB,0.24068E-02_JPRB,0.19548E-02_JPRB /) |
1129 |
|
|
KA(:, 1, 3, 6) = (/ & |
1130 |
|
|
& 0.85253E-03_JPRB,0.13731E-02_JPRB,0.15966E-02_JPRB,0.17555E-02_JPRB,0.18660E-02_JPRB, & |
1131 |
|
✗ |
& 0.19267E-02_JPRB,0.19415E-02_JPRB,0.18992E-02_JPRB,0.15125E-02_JPRB /) |
1132 |
|
|
KA(:, 2, 3, 6) = (/ & |
1133 |
|
|
& 0.86131E-03_JPRB,0.13853E-02_JPRB,0.16172E-02_JPRB,0.17827E-02_JPRB,0.18992E-02_JPRB, & |
1134 |
|
✗ |
& 0.19616E-02_JPRB,0.19781E-02_JPRB,0.19388E-02_JPRB,0.15472E-02_JPRB /) |
1135 |
|
|
KA(:, 3, 3, 6) = (/ & |
1136 |
|
|
& 0.87215E-03_JPRB,0.13990E-02_JPRB,0.16433E-02_JPRB,0.18151E-02_JPRB,0.19357E-02_JPRB, & |
1137 |
|
✗ |
& 0.20044E-02_JPRB,0.20244E-02_JPRB,0.19864E-02_JPRB,0.15842E-02_JPRB /) |
1138 |
|
|
KA(:, 4, 3, 6) = (/ & |
1139 |
|
|
& 0.88704E-03_JPRB,0.14261E-02_JPRB,0.16795E-02_JPRB,0.18576E-02_JPRB,0.19802E-02_JPRB, & |
1140 |
|
✗ |
& 0.20536E-02_JPRB,0.20804E-02_JPRB,0.20410E-02_JPRB,0.16256E-02_JPRB /) |
1141 |
|
|
KA(:, 5, 3, 6) = (/ & |
1142 |
|
|
& 0.89758E-03_JPRB,0.14527E-02_JPRB,0.17171E-02_JPRB,0.19025E-02_JPRB,0.20236E-02_JPRB, & |
1143 |
|
✗ |
& 0.21045E-02_JPRB,0.21413E-02_JPRB,0.21023E-02_JPRB,0.16764E-02_JPRB /) |
1144 |
|
|
KA(:, 1, 4, 6) = (/ & |
1145 |
|
|
& 0.76168E-03_JPRB,0.12206E-02_JPRB,0.14175E-02_JPRB,0.15588E-02_JPRB,0.16575E-02_JPRB, & |
1146 |
|
✗ |
& 0.17098E-02_JPRB,0.17134E-02_JPRB,0.16603E-02_JPRB,0.12974E-02_JPRB /) |
1147 |
|
|
KA(:, 2, 4, 6) = (/ & |
1148 |
|
|
& 0.76958E-03_JPRB,0.12314E-02_JPRB,0.14342E-02_JPRB,0.15807E-02_JPRB,0.16847E-02_JPRB, & |
1149 |
|
✗ |
& 0.17400E-02_JPRB,0.17442E-02_JPRB,0.16938E-02_JPRB,0.13260E-02_JPRB /) |
1150 |
|
|
KA(:, 3, 4, 6) = (/ & |
1151 |
|
|
& 0.78002E-03_JPRB,0.12481E-02_JPRB,0.14573E-02_JPRB,0.16092E-02_JPRB,0.17173E-02_JPRB, & |
1152 |
|
✗ |
& 0.17771E-02_JPRB,0.17830E-02_JPRB,0.17337E-02_JPRB,0.13577E-02_JPRB /) |
1153 |
|
|
KA(:, 4, 4, 6) = (/ & |
1154 |
|
|
& 0.79261E-03_JPRB,0.12694E-02_JPRB,0.14861E-02_JPRB,0.16420E-02_JPRB,0.17536E-02_JPRB, & |
1155 |
|
✗ |
& 0.18179E-02_JPRB,0.18286E-02_JPRB,0.17776E-02_JPRB,0.13930E-02_JPRB /) |
1156 |
|
|
KA(:, 5, 4, 6) = (/ & |
1157 |
|
|
& 0.80905E-03_JPRB,0.12930E-02_JPRB,0.15216E-02_JPRB,0.16835E-02_JPRB,0.17969E-02_JPRB, & |
1158 |
|
✗ |
& 0.18651E-02_JPRB,0.18829E-02_JPRB,0.18324E-02_JPRB,0.14370E-02_JPRB /) |
1159 |
|
|
KA(:, 1, 5, 6) = (/ & |
1160 |
|
|
& 0.67567E-03_JPRB,0.10847E-02_JPRB,0.12673E-02_JPRB,0.13865E-02_JPRB,0.14678E-02_JPRB, & |
1161 |
|
✗ |
& 0.15102E-02_JPRB,0.15099E-02_JPRB,0.14466E-02_JPRB,0.11079E-02_JPRB /) |
1162 |
|
|
KA(:, 2, 5, 6) = (/ & |
1163 |
|
|
& 0.68234E-03_JPRB,0.10948E-02_JPRB,0.12810E-02_JPRB,0.14048E-02_JPRB,0.14909E-02_JPRB, & |
1164 |
|
✗ |
& 0.15364E-02_JPRB,0.15351E-02_JPRB,0.14749E-02_JPRB,0.11322E-02_JPRB /) |
1165 |
|
|
KA(:, 3, 5, 6) = (/ & |
1166 |
|
|
& 0.69172E-03_JPRB,0.11094E-02_JPRB,0.12954E-02_JPRB,0.14275E-02_JPRB,0.15177E-02_JPRB, & |
1167 |
|
✗ |
& 0.15693E-02_JPRB,0.15680E-02_JPRB,0.15069E-02_JPRB,0.11581E-02_JPRB /) |
1168 |
|
|
KA(:, 4, 5, 6) = (/ & |
1169 |
|
|
& 0.70397E-03_JPRB,0.11284E-02_JPRB,0.13174E-02_JPRB,0.14563E-02_JPRB,0.15501E-02_JPRB, & |
1170 |
|
✗ |
& 0.16053E-02_JPRB,0.16071E-02_JPRB,0.15445E-02_JPRB,0.11891E-02_JPRB /) |
1171 |
|
|
KA(:, 5, 5, 6) = (/ & |
1172 |
|
|
& 0.72110E-03_JPRB,0.11540E-02_JPRB,0.13487E-02_JPRB,0.14917E-02_JPRB,0.15891E-02_JPRB, & |
1173 |
|
✗ |
& 0.16474E-02_JPRB,0.16536E-02_JPRB,0.15913E-02_JPRB,0.12262E-02_JPRB /) |
1174 |
|
|
KA(:, 1, 6, 6) = (/ & |
1175 |
|
|
& 0.59508E-03_JPRB,0.96565E-03_JPRB,0.11271E-02_JPRB,0.12321E-02_JPRB,0.12935E-02_JPRB, & |
1176 |
|
✗ |
& 0.13263E-02_JPRB,0.13235E-02_JPRB,0.12583E-02_JPRB,0.94318E-03_JPRB /) |
1177 |
|
|
KA(:, 2, 6, 6) = (/ & |
1178 |
|
|
& 0.60163E-03_JPRB,0.97555E-03_JPRB,0.11390E-02_JPRB,0.12428E-02_JPRB,0.13136E-02_JPRB, & |
1179 |
|
✗ |
& 0.13483E-02_JPRB,0.13443E-02_JPRB,0.12812E-02_JPRB,0.96040E-03_JPRB /) |
1180 |
|
|
KA(:, 3, 6, 6) = (/ & |
1181 |
|
|
& 0.61035E-03_JPRB,0.98842E-03_JPRB,0.11551E-02_JPRB,0.12623E-02_JPRB,0.13370E-02_JPRB, & |
1182 |
|
✗ |
& 0.13759E-02_JPRB,0.13716E-02_JPRB,0.13073E-02_JPRB,0.98049E-03_JPRB /) |
1183 |
|
|
KA(:, 4, 6, 6) = (/ & |
1184 |
|
|
& 0.62216E-03_JPRB,0.10038E-02_JPRB,0.11750E-02_JPRB,0.12870E-02_JPRB,0.13646E-02_JPRB, & |
1185 |
|
✗ |
& 0.14087E-02_JPRB,0.14042E-02_JPRB,0.13389E-02_JPRB,0.10049E-02_JPRB /) |
1186 |
|
|
KA(:, 5, 6, 6) = (/ & |
1187 |
|
|
& 0.63568E-03_JPRB,0.10246E-02_JPRB,0.11986E-02_JPRB,0.13152E-02_JPRB,0.13969E-02_JPRB, & |
1188 |
|
✗ |
& 0.14439E-02_JPRB,0.14425E-02_JPRB,0.13760E-02_JPRB,0.10351E-02_JPRB /) |
1189 |
|
|
KA(:, 1, 7, 6) = (/ & |
1190 |
|
|
& 0.52222E-03_JPRB,0.85609E-03_JPRB,0.99991E-03_JPRB,0.10870E-02_JPRB,0.11353E-02_JPRB, & |
1191 |
|
✗ |
& 0.11602E-02_JPRB,0.11537E-02_JPRB,0.10909E-02_JPRB,0.79969E-03_JPRB /) |
1192 |
|
|
KA(:, 2, 7, 6) = (/ & |
1193 |
|
|
& 0.52839E-03_JPRB,0.86572E-03_JPRB,0.10120E-02_JPRB,0.11011E-02_JPRB,0.11521E-02_JPRB, & |
1194 |
|
✗ |
& 0.11786E-02_JPRB,0.11705E-02_JPRB,0.11093E-02_JPRB,0.81421E-03_JPRB /) |
1195 |
|
|
KA(:, 3, 7, 6) = (/ & |
1196 |
|
|
& 0.53695E-03_JPRB,0.87703E-03_JPRB,0.10261E-02_JPRB,0.11177E-02_JPRB,0.11714E-02_JPRB, & |
1197 |
|
✗ |
& 0.12016E-02_JPRB,0.11930E-02_JPRB,0.11309E-02_JPRB,0.83157E-03_JPRB /) |
1198 |
|
|
KA(:, 4, 7, 6) = (/ & |
1199 |
|
|
& 0.54734E-03_JPRB,0.89105E-03_JPRB,0.10435E-02_JPRB,0.11340E-02_JPRB,0.11954E-02_JPRB, & |
1200 |
|
✗ |
& 0.12276E-02_JPRB,0.12204E-02_JPRB,0.11559E-02_JPRB,0.85189E-03_JPRB /) |
1201 |
|
|
KA(:, 5, 7, 6) = (/ & |
1202 |
|
|
& 0.56071E-03_JPRB,0.90902E-03_JPRB,0.10648E-02_JPRB,0.11575E-02_JPRB,0.12234E-02_JPRB, & |
1203 |
|
✗ |
& 0.12571E-02_JPRB,0.12523E-02_JPRB,0.11865E-02_JPRB,0.87630E-03_JPRB /) |
1204 |
|
|
KA(:, 1, 8, 6) = (/ & |
1205 |
|
|
& 0.45809E-03_JPRB,0.75296E-03_JPRB,0.88022E-03_JPRB,0.95530E-03_JPRB,0.99775E-03_JPRB, & |
1206 |
|
✗ |
& 0.10107E-02_JPRB,0.99991E-03_JPRB,0.94255E-03_JPRB,0.69349E-03_JPRB /) |
1207 |
|
|
KA(:, 2, 8, 6) = (/ & |
1208 |
|
|
& 0.46457E-03_JPRB,0.76241E-03_JPRB,0.89241E-03_JPRB,0.96833E-03_JPRB,0.10107E-02_JPRB, & |
1209 |
|
✗ |
& 0.10258E-02_JPRB,0.10136E-02_JPRB,0.95735E-03_JPRB,0.70413E-03_JPRB /) |
1210 |
|
|
KA(:, 3, 8, 6) = (/ & |
1211 |
|
|
& 0.47249E-03_JPRB,0.77258E-03_JPRB,0.90578E-03_JPRB,0.98260E-03_JPRB,0.10233E-02_JPRB, & |
1212 |
|
✗ |
& 0.10448E-02_JPRB,0.10324E-02_JPRB,0.97481E-03_JPRB,0.71522E-03_JPRB /) |
1213 |
|
|
KA(:, 4, 8, 6) = (/ & |
1214 |
|
|
& 0.48263E-03_JPRB,0.78537E-03_JPRB,0.92183E-03_JPRB,0.10012E-02_JPRB,0.10427E-02_JPRB, & |
1215 |
|
✗ |
& 0.10663E-02_JPRB,0.10558E-02_JPRB,0.99531E-03_JPRB,0.72922E-03_JPRB /) |
1216 |
|
|
KA(:, 5, 8, 6) = (/ & |
1217 |
|
|
& 0.49501E-03_JPRB,0.80218E-03_JPRB,0.94059E-03_JPRB,0.10219E-02_JPRB,0.10669E-02_JPRB, & |
1218 |
|
✗ |
& 0.10907E-02_JPRB,0.10824E-02_JPRB,0.10204E-02_JPRB,0.74659E-03_JPRB /) |
1219 |
|
|
KA(:, 1, 9, 6) = (/ & |
1220 |
|
|
& 0.40630E-03_JPRB,0.65697E-03_JPRB,0.76693E-03_JPRB,0.83253E-03_JPRB,0.86881E-03_JPRB, & |
1221 |
|
✗ |
& 0.87661E-03_JPRB,0.86393E-03_JPRB,0.81158E-03_JPRB,0.85763E-03_JPRB /) |
1222 |
|
|
KA(:, 2, 9, 6) = (/ & |
1223 |
|
|
& 0.41166E-03_JPRB,0.66657E-03_JPRB,0.77941E-03_JPRB,0.84564E-03_JPRB,0.88174E-03_JPRB, & |
1224 |
|
✗ |
& 0.88952E-03_JPRB,0.87488E-03_JPRB,0.82351E-03_JPRB,0.84633E-03_JPRB /) |
1225 |
|
|
KA(:, 3, 9, 6) = (/ & |
1226 |
|
|
& 0.41847E-03_JPRB,0.67680E-03_JPRB,0.79185E-03_JPRB,0.85875E-03_JPRB,0.89476E-03_JPRB, & |
1227 |
|
✗ |
& 0.90456E-03_JPRB,0.89101E-03_JPRB,0.83833E-03_JPRB,0.84017E-03_JPRB /) |
1228 |
|
|
KA(:, 4, 9, 6) = (/ & |
1229 |
|
|
& 0.42661E-03_JPRB,0.68815E-03_JPRB,0.80637E-03_JPRB,0.87435E-03_JPRB,0.91036E-03_JPRB, & |
1230 |
|
✗ |
& 0.92205E-03_JPRB,0.90961E-03_JPRB,0.85502E-03_JPRB,0.83895E-03_JPRB /) |
1231 |
|
|
KA(:, 5, 9, 6) = (/ & |
1232 |
|
|
& 0.43776E-03_JPRB,0.70278E-03_JPRB,0.82329E-03_JPRB,0.89247E-03_JPRB,0.92828E-03_JPRB, & |
1233 |
|
✗ |
& 0.94238E-03_JPRB,0.93168E-03_JPRB,0.87536E-03_JPRB,0.84088E-03_JPRB /) |
1234 |
|
|
KA(:, 1,10, 6) = (/ & |
1235 |
|
|
& 0.36854E-03_JPRB,0.57908E-03_JPRB,0.66869E-03_JPRB,0.72258E-03_JPRB,0.75231E-03_JPRB, & |
1236 |
|
✗ |
& 0.75942E-03_JPRB,0.74383E-03_JPRB,0.69709E-03_JPRB,0.20395E-02_JPRB /) |
1237 |
|
|
KA(:, 2,10, 6) = (/ & |
1238 |
|
|
& 0.37298E-03_JPRB,0.58711E-03_JPRB,0.68015E-03_JPRB,0.73349E-03_JPRB,0.76293E-03_JPRB, & |
1239 |
|
✗ |
& 0.77052E-03_JPRB,0.75338E-03_JPRB,0.70798E-03_JPRB,0.19202E-02_JPRB /) |
1240 |
|
|
KA(:, 3,10, 6) = (/ & |
1241 |
|
|
& 0.37876E-03_JPRB,0.59595E-03_JPRB,0.69100E-03_JPRB,0.74575E-03_JPRB,0.77497E-03_JPRB, & |
1242 |
|
✗ |
& 0.78295E-03_JPRB,0.76740E-03_JPRB,0.72017E-03_JPRB,0.18161E-02_JPRB /) |
1243 |
|
|
KA(:, 4,10, 6) = (/ & |
1244 |
|
|
& 0.38615E-03_JPRB,0.60708E-03_JPRB,0.70373E-03_JPRB,0.75914E-03_JPRB,0.78952E-03_JPRB, & |
1245 |
|
✗ |
& 0.79663E-03_JPRB,0.78331E-03_JPRB,0.73385E-03_JPRB,0.17247E-02_JPRB /) |
1246 |
|
|
KA(:, 5,10, 6) = (/ & |
1247 |
|
|
& 0.39564E-03_JPRB,0.62052E-03_JPRB,0.71856E-03_JPRB,0.77512E-03_JPRB,0.80699E-03_JPRB, & |
1248 |
|
✗ |
& 0.81444E-03_JPRB,0.80141E-03_JPRB,0.75081E-03_JPRB,0.16568E-02_JPRB /) |
1249 |
|
|
KA(:, 1,11, 6) = (/ & |
1250 |
|
|
& 0.33320E-03_JPRB,0.52088E-03_JPRB,0.59646E-03_JPRB,0.63812E-03_JPRB,0.65660E-03_JPRB, & |
1251 |
|
✗ |
& 0.65900E-03_JPRB,0.64138E-03_JPRB,0.60020E-03_JPRB,0.25696E-02_JPRB /) |
1252 |
|
|
|
1253 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART4',1,ZHOOK_HANDLE) |
1254 |
|
✗ |
END SUBROUTINE PART4 |
1255 |
|
|
|
1256 |
|
|
|
1257 |
|
✗ |
SUBROUTINE PART5 |
1258 |
|
|
|
1259 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1260 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART5',0,ZHOOK_HANDLE) |
1261 |
|
|
|
1262 |
|
|
|
1263 |
|
|
KA(:, 2,11, 6) = (/ & |
1264 |
|
|
& 0.33882E-03_JPRB,0.52942E-03_JPRB,0.60584E-03_JPRB,0.64728E-03_JPRB,0.66639E-03_JPRB, & |
1265 |
|
✗ |
& 0.66995E-03_JPRB,0.65115E-03_JPRB,0.61030E-03_JPRB,0.24243E-02_JPRB /) |
1266 |
|
|
KA(:, 3,11, 6) = (/ & |
1267 |
|
|
& 0.34516E-03_JPRB,0.53993E-03_JPRB,0.61579E-03_JPRB,0.65783E-03_JPRB,0.67758E-03_JPRB, & |
1268 |
|
✗ |
& 0.68193E-03_JPRB,0.66413E-03_JPRB,0.62169E-03_JPRB,0.23408E-02_JPRB /) |
1269 |
|
|
KA(:, 4,11, 6) = (/ & |
1270 |
|
|
& 0.35301E-03_JPRB,0.55124E-03_JPRB,0.62753E-03_JPRB,0.66999E-03_JPRB,0.69148E-03_JPRB, & |
1271 |
|
✗ |
& 0.69508E-03_JPRB,0.67858E-03_JPRB,0.63426E-03_JPRB,0.22732E-02_JPRB /) |
1272 |
|
|
KA(:, 5,11, 6) = (/ & |
1273 |
|
|
& 0.36214E-03_JPRB,0.56453E-03_JPRB,0.64151E-03_JPRB,0.68481E-03_JPRB,0.70755E-03_JPRB, & |
1274 |
|
✗ |
& 0.71086E-03_JPRB,0.69483E-03_JPRB,0.64938E-03_JPRB,0.21869E-02_JPRB /) |
1275 |
|
|
KA(:, 1,12, 6) = (/ & |
1276 |
|
|
& 0.29653E-03_JPRB,0.46559E-03_JPRB,0.53073E-03_JPRB,0.56520E-03_JPRB,0.57894E-03_JPRB, & |
1277 |
|
✗ |
& 0.57686E-03_JPRB,0.55698E-03_JPRB,0.51584E-03_JPRB,0.26304E-02_JPRB /) |
1278 |
|
|
KA(:, 2,12, 6) = (/ & |
1279 |
|
|
& 0.30188E-03_JPRB,0.47447E-03_JPRB,0.54017E-03_JPRB,0.57406E-03_JPRB,0.58804E-03_JPRB, & |
1280 |
|
✗ |
& 0.58653E-03_JPRB,0.56630E-03_JPRB,0.52472E-03_JPRB,0.24930E-02_JPRB /) |
1281 |
|
|
KA(:, 3,12, 6) = (/ & |
1282 |
|
|
& 0.30861E-03_JPRB,0.48517E-03_JPRB,0.55102E-03_JPRB,0.58380E-03_JPRB,0.59890E-03_JPRB, & |
1283 |
|
✗ |
& 0.59725E-03_JPRB,0.57721E-03_JPRB,0.53486E-03_JPRB,0.23834E-02_JPRB /) |
1284 |
|
|
KA(:, 4,12, 6) = (/ & |
1285 |
|
|
& 0.31637E-03_JPRB,0.49701E-03_JPRB,0.56299E-03_JPRB,0.59618E-03_JPRB,0.61191E-03_JPRB, & |
1286 |
|
✗ |
& 0.60936E-03_JPRB,0.58930E-03_JPRB,0.54649E-03_JPRB,0.22824E-02_JPRB /) |
1287 |
|
|
KA(:, 5,12, 6) = (/ & |
1288 |
|
|
& 0.32604E-03_JPRB,0.51148E-03_JPRB,0.57604E-03_JPRB,0.61103E-03_JPRB,0.62611E-03_JPRB, & |
1289 |
|
✗ |
& 0.62412E-03_JPRB,0.60375E-03_JPRB,0.56026E-03_JPRB,0.22084E-02_JPRB /) |
1290 |
|
|
KA(:, 1,13, 6) = (/ & |
1291 |
|
|
& 0.26154E-03_JPRB,0.41366E-03_JPRB,0.47019E-03_JPRB,0.50056E-03_JPRB,0.51140E-03_JPRB, & |
1292 |
|
✗ |
& 0.50695E-03_JPRB,0.48611E-03_JPRB,0.44348E-03_JPRB,0.22773E-02_JPRB /) |
1293 |
|
|
KA(:, 2,13, 6) = (/ & |
1294 |
|
|
& 0.26669E-03_JPRB,0.42267E-03_JPRB,0.47957E-03_JPRB,0.51009E-03_JPRB,0.52067E-03_JPRB, & |
1295 |
|
✗ |
& 0.51611E-03_JPRB,0.49506E-03_JPRB,0.45138E-03_JPRB,0.21516E-02_JPRB /) |
1296 |
|
|
KA(:, 3,13, 6) = (/ & |
1297 |
|
|
& 0.27302E-03_JPRB,0.43290E-03_JPRB,0.49082E-03_JPRB,0.52081E-03_JPRB,0.53105E-03_JPRB, & |
1298 |
|
✗ |
& 0.52578E-03_JPRB,0.50476E-03_JPRB,0.46026E-03_JPRB,0.20522E-02_JPRB /) |
1299 |
|
|
KA(:, 4,13, 6) = (/ & |
1300 |
|
|
& 0.28114E-03_JPRB,0.44552E-03_JPRB,0.50271E-03_JPRB,0.53316E-03_JPRB,0.54314E-03_JPRB, & |
1301 |
|
✗ |
& 0.53754E-03_JPRB,0.51555E-03_JPRB,0.47096E-03_JPRB,0.19694E-02_JPRB /) |
1302 |
|
|
KA(:, 5,13, 6) = (/ & |
1303 |
|
|
& 0.29046E-03_JPRB,0.45904E-03_JPRB,0.51716E-03_JPRB,0.54751E-03_JPRB,0.55727E-03_JPRB, & |
1304 |
|
✗ |
& 0.55147E-03_JPRB,0.52828E-03_JPRB,0.48333E-03_JPRB,0.19102E-02_JPRB /) |
1305 |
|
|
KA(:, 1, 1, 7) = (/ & |
1306 |
|
|
& 0.21025E-02_JPRB,0.35934E-02_JPRB,0.44505E-02_JPRB,0.51294E-02_JPRB,0.56565E-02_JPRB, & |
1307 |
|
✗ |
& 0.60638E-02_JPRB,0.63051E-02_JPRB,0.63060E-02_JPRB,0.53132E-02_JPRB /) |
1308 |
|
|
KA(:, 2, 1, 7) = (/ & |
1309 |
|
|
& 0.21147E-02_JPRB,0.36363E-02_JPRB,0.45228E-02_JPRB,0.52203E-02_JPRB,0.57590E-02_JPRB, & |
1310 |
|
✗ |
& 0.61627E-02_JPRB,0.64080E-02_JPRB,0.64123E-02_JPRB,0.54186E-02_JPRB /) |
1311 |
|
|
KA(:, 3, 1, 7) = (/ & |
1312 |
|
|
& 0.21423E-02_JPRB,0.36907E-02_JPRB,0.46129E-02_JPRB,0.53384E-02_JPRB,0.58809E-02_JPRB, & |
1313 |
|
✗ |
& 0.62832E-02_JPRB,0.65320E-02_JPRB,0.65359E-02_JPRB,0.55396E-02_JPRB /) |
1314 |
|
|
KA(:, 4, 1, 7) = (/ & |
1315 |
|
|
& 0.21655E-02_JPRB,0.37303E-02_JPRB,0.46928E-02_JPRB,0.54454E-02_JPRB,0.60067E-02_JPRB, & |
1316 |
|
✗ |
& 0.64159E-02_JPRB,0.66758E-02_JPRB,0.66776E-02_JPRB,0.56738E-02_JPRB /) |
1317 |
|
|
KA(:, 5, 1, 7) = (/ & |
1318 |
|
|
& 0.22041E-02_JPRB,0.37865E-02_JPRB,0.47900E-02_JPRB,0.55720E-02_JPRB,0.61575E-02_JPRB, & |
1319 |
|
✗ |
& 0.65795E-02_JPRB,0.68426E-02_JPRB,0.68332E-02_JPRB,0.58218E-02_JPRB /) |
1320 |
|
|
KA(:, 1, 2, 7) = (/ & |
1321 |
|
|
& 0.19184E-02_JPRB,0.32868E-02_JPRB,0.40037E-02_JPRB,0.45520E-02_JPRB,0.49723E-02_JPRB, & |
1322 |
|
✗ |
& 0.52862E-02_JPRB,0.54779E-02_JPRB,0.54778E-02_JPRB,0.44696E-02_JPRB /) |
1323 |
|
|
KA(:, 2, 2, 7) = (/ & |
1324 |
|
|
& 0.19302E-02_JPRB,0.33258E-02_JPRB,0.40693E-02_JPRB,0.46336E-02_JPRB,0.50634E-02_JPRB, & |
1325 |
|
✗ |
& 0.53829E-02_JPRB,0.55797E-02_JPRB,0.55784E-02_JPRB,0.45568E-02_JPRB /) |
1326 |
|
|
KA(:, 3, 2, 7) = (/ & |
1327 |
|
|
& 0.19586E-02_JPRB,0.33762E-02_JPRB,0.41518E-02_JPRB,0.47383E-02_JPRB,0.51749E-02_JPRB, & |
1328 |
|
✗ |
& 0.54993E-02_JPRB,0.56986E-02_JPRB,0.56923E-02_JPRB,0.46572E-02_JPRB /) |
1329 |
|
|
KA(:, 4, 2, 7) = (/ & |
1330 |
|
|
& 0.19876E-02_JPRB,0.34214E-02_JPRB,0.42297E-02_JPRB,0.48395E-02_JPRB,0.52957E-02_JPRB, & |
1331 |
|
✗ |
& 0.56305E-02_JPRB,0.58340E-02_JPRB,0.58219E-02_JPRB,0.47733E-02_JPRB /) |
1332 |
|
|
KA(:, 5, 2, 7) = (/ & |
1333 |
|
|
& 0.20222E-02_JPRB,0.34660E-02_JPRB,0.43057E-02_JPRB,0.49428E-02_JPRB,0.54286E-02_JPRB, & |
1334 |
|
✗ |
& 0.57769E-02_JPRB,0.59846E-02_JPRB,0.59651E-02_JPRB,0.49022E-02_JPRB /) |
1335 |
|
|
KA(:, 1, 3, 7) = (/ & |
1336 |
|
|
& 0.17389E-02_JPRB,0.29833E-02_JPRB,0.35894E-02_JPRB,0.40314E-02_JPRB,0.43535E-02_JPRB, & |
1337 |
|
✗ |
& 0.45848E-02_JPRB,0.47251E-02_JPRB,0.47273E-02_JPRB,0.37675E-02_JPRB /) |
1338 |
|
|
KA(:, 2, 3, 7) = (/ & |
1339 |
|
|
& 0.17511E-02_JPRB,0.30210E-02_JPRB,0.36487E-02_JPRB,0.40996E-02_JPRB,0.44314E-02_JPRB, & |
1340 |
|
✗ |
& 0.46730E-02_JPRB,0.48141E-02_JPRB,0.48126E-02_JPRB,0.38333E-02_JPRB /) |
1341 |
|
|
KA(:, 3, 3, 7) = (/ & |
1342 |
|
|
& 0.17713E-02_JPRB,0.30646E-02_JPRB,0.37133E-02_JPRB,0.41800E-02_JPRB,0.45216E-02_JPRB, & |
1343 |
|
✗ |
& 0.47732E-02_JPRB,0.49178E-02_JPRB,0.49079E-02_JPRB,0.39121E-02_JPRB /) |
1344 |
|
|
KA(:, 4, 3, 7) = (/ & |
1345 |
|
|
& 0.18058E-02_JPRB,0.31149E-02_JPRB,0.37889E-02_JPRB,0.42777E-02_JPRB,0.46349E-02_JPRB, & |
1346 |
|
✗ |
& 0.48925E-02_JPRB,0.50383E-02_JPRB,0.50219E-02_JPRB,0.40071E-02_JPRB /) |
1347 |
|
|
KA(:, 5, 3, 7) = (/ & |
1348 |
|
|
& 0.18379E-02_JPRB,0.31573E-02_JPRB,0.38545E-02_JPRB,0.43660E-02_JPRB,0.47479E-02_JPRB, & |
1349 |
|
✗ |
& 0.50186E-02_JPRB,0.51717E-02_JPRB,0.51483E-02_JPRB,0.41141E-02_JPRB /) |
1350 |
|
|
KA(:, 1, 4, 7) = (/ & |
1351 |
|
|
& 0.15760E-02_JPRB,0.26881E-02_JPRB,0.32116E-02_JPRB,0.35706E-02_JPRB,0.38258E-02_JPRB, & |
1352 |
|
✗ |
& 0.39911E-02_JPRB,0.40833E-02_JPRB,0.40813E-02_JPRB,0.32298E-02_JPRB /) |
1353 |
|
|
KA(:, 2, 4, 7) = (/ & |
1354 |
|
|
& 0.15813E-02_JPRB,0.27249E-02_JPRB,0.32627E-02_JPRB,0.36295E-02_JPRB,0.38889E-02_JPRB, & |
1355 |
|
✗ |
& 0.40640E-02_JPRB,0.41571E-02_JPRB,0.41534E-02_JPRB,0.32787E-02_JPRB /) |
1356 |
|
|
KA(:, 3, 4, 7) = (/ & |
1357 |
|
|
& 0.16001E-02_JPRB,0.27603E-02_JPRB,0.33193E-02_JPRB,0.36971E-02_JPRB,0.39631E-02_JPRB, & |
1358 |
|
✗ |
& 0.41442E-02_JPRB,0.42435E-02_JPRB,0.42324E-02_JPRB,0.33394E-02_JPRB /) |
1359 |
|
|
KA(:, 4, 4, 7) = (/ & |
1360 |
|
|
& 0.16258E-02_JPRB,0.28020E-02_JPRB,0.33780E-02_JPRB,0.37750E-02_JPRB,0.40494E-02_JPRB, & |
1361 |
|
✗ |
& 0.42369E-02_JPRB,0.43436E-02_JPRB,0.43281E-02_JPRB,0.34138E-02_JPRB /) |
1362 |
|
|
KA(:, 5, 4, 7) = (/ & |
1363 |
|
|
& 0.16664E-02_JPRB,0.28640E-02_JPRB,0.34503E-02_JPRB,0.38637E-02_JPRB,0.41572E-02_JPRB, & |
1364 |
|
✗ |
& 0.43540E-02_JPRB,0.44611E-02_JPRB,0.44376E-02_JPRB,0.34982E-02_JPRB /) |
1365 |
|
|
KA(:, 1, 5, 7) = (/ & |
1366 |
|
|
& 0.14233E-02_JPRB,0.24061E-02_JPRB,0.28484E-02_JPRB,0.31675E-02_JPRB,0.33803E-02_JPRB, & |
1367 |
|
✗ |
& 0.35027E-02_JPRB,0.35528E-02_JPRB,0.35417E-02_JPRB,0.27814E-02_JPRB /) |
1368 |
|
|
KA(:, 2, 5, 7) = (/ & |
1369 |
|
|
& 0.14350E-02_JPRB,0.24395E-02_JPRB,0.28937E-02_JPRB,0.32168E-02_JPRB,0.34318E-02_JPRB, & |
1370 |
|
✗ |
& 0.35619E-02_JPRB,0.36148E-02_JPRB,0.35990E-02_JPRB,0.28208E-02_JPRB /) |
1371 |
|
|
KA(:, 3, 5, 7) = (/ & |
1372 |
|
|
& 0.14521E-02_JPRB,0.24725E-02_JPRB,0.29512E-02_JPRB,0.32733E-02_JPRB,0.34917E-02_JPRB, & |
1373 |
|
✗ |
& 0.36258E-02_JPRB,0.36856E-02_JPRB,0.36654E-02_JPRB,0.28719E-02_JPRB /) |
1374 |
|
|
KA(:, 4, 5, 7) = (/ & |
1375 |
|
|
& 0.14701E-02_JPRB,0.25117E-02_JPRB,0.30081E-02_JPRB,0.33364E-02_JPRB,0.35619E-02_JPRB, & |
1376 |
|
✗ |
& 0.37016E-02_JPRB,0.37673E-02_JPRB,0.37455E-02_JPRB,0.29344E-02_JPRB /) |
1377 |
|
|
KA(:, 5, 5, 7) = (/ & |
1378 |
|
|
& 0.15037E-02_JPRB,0.25667E-02_JPRB,0.30753E-02_JPRB,0.34136E-02_JPRB,0.36518E-02_JPRB, & |
1379 |
|
✗ |
& 0.37975E-02_JPRB,0.38648E-02_JPRB,0.38367E-02_JPRB,0.30050E-02_JPRB /) |
1380 |
|
|
KA(:, 1, 6, 7) = (/ & |
1381 |
|
|
& 0.12833E-02_JPRB,0.21397E-02_JPRB,0.25249E-02_JPRB,0.27989E-02_JPRB,0.29941E-02_JPRB, & |
1382 |
|
✗ |
& 0.30943E-02_JPRB,0.31134E-02_JPRB,0.30718E-02_JPRB,0.23837E-02_JPRB /) |
1383 |
|
|
KA(:, 2, 6, 7) = (/ & |
1384 |
|
|
& 0.12955E-02_JPRB,0.21689E-02_JPRB,0.25640E-02_JPRB,0.28465E-02_JPRB,0.30386E-02_JPRB, & |
1385 |
|
✗ |
& 0.31442E-02_JPRB,0.31666E-02_JPRB,0.31216E-02_JPRB,0.24190E-02_JPRB /) |
1386 |
|
|
KA(:, 3, 6, 7) = (/ & |
1387 |
|
|
& 0.13128E-02_JPRB,0.22001E-02_JPRB,0.26092E-02_JPRB,0.28949E-02_JPRB,0.30875E-02_JPRB, & |
1388 |
|
✗ |
& 0.31967E-02_JPRB,0.32254E-02_JPRB,0.31772E-02_JPRB,0.24633E-02_JPRB /) |
1389 |
|
|
KA(:, 4, 6, 7) = (/ & |
1390 |
|
|
& 0.13321E-02_JPRB,0.22373E-02_JPRB,0.26583E-02_JPRB,0.29483E-02_JPRB,0.31454E-02_JPRB, & |
1391 |
|
✗ |
& 0.32584E-02_JPRB,0.32916E-02_JPRB,0.32451E-02_JPRB,0.25158E-02_JPRB /) |
1392 |
|
|
KA(:, 5, 6, 7) = (/ & |
1393 |
|
|
& 0.13570E-02_JPRB,0.22801E-02_JPRB,0.27142E-02_JPRB,0.30110E-02_JPRB,0.32147E-02_JPRB, & |
1394 |
|
✗ |
& 0.33324E-02_JPRB,0.33699E-02_JPRB,0.33240E-02_JPRB,0.25751E-02_JPRB /) |
1395 |
|
|
KA(:, 1, 7, 7) = (/ & |
1396 |
|
|
& 0.11500E-02_JPRB,0.18956E-02_JPRB,0.22352E-02_JPRB,0.24771E-02_JPRB,0.26462E-02_JPRB, & |
1397 |
|
✗ |
& 0.27285E-02_JPRB,0.27284E-02_JPRB,0.26574E-02_JPRB,0.20286E-02_JPRB /) |
1398 |
|
|
KA(:, 2, 7, 7) = (/ & |
1399 |
|
|
& 0.11641E-02_JPRB,0.19221E-02_JPRB,0.22681E-02_JPRB,0.25137E-02_JPRB,0.26876E-02_JPRB, & |
1400 |
|
✗ |
& 0.27741E-02_JPRB,0.27762E-02_JPRB,0.27013E-02_JPRB,0.20553E-02_JPRB /) |
1401 |
|
|
KA(:, 3, 7, 7) = (/ & |
1402 |
|
|
& 0.11813E-02_JPRB,0.19513E-02_JPRB,0.23065E-02_JPRB,0.25547E-02_JPRB,0.27305E-02_JPRB, & |
1403 |
|
✗ |
& 0.28210E-02_JPRB,0.28261E-02_JPRB,0.27499E-02_JPRB,0.20900E-02_JPRB /) |
1404 |
|
|
KA(:, 4, 7, 7) = (/ & |
1405 |
|
|
& 0.12020E-02_JPRB,0.19854E-02_JPRB,0.23499E-02_JPRB,0.26064E-02_JPRB,0.27813E-02_JPRB, & |
1406 |
|
✗ |
& 0.28738E-02_JPRB,0.28824E-02_JPRB,0.28095E-02_JPRB,0.21311E-02_JPRB /) |
1407 |
|
|
KA(:, 5, 7, 7) = (/ & |
1408 |
|
|
& 0.12251E-02_JPRB,0.20252E-02_JPRB,0.23984E-02_JPRB,0.26618E-02_JPRB,0.28401E-02_JPRB, & |
1409 |
|
✗ |
& 0.29374E-02_JPRB,0.29496E-02_JPRB,0.28780E-02_JPRB,0.21792E-02_JPRB /) |
1410 |
|
|
KA(:, 1, 8, 7) = (/ & |
1411 |
|
|
& 0.10232E-02_JPRB,0.16906E-02_JPRB,0.19769E-02_JPRB,0.21832E-02_JPRB,0.23202E-02_JPRB, & |
1412 |
|
✗ |
& 0.23917E-02_JPRB,0.23852E-02_JPRB,0.22950E-02_JPRB,0.17101E-02_JPRB /) |
1413 |
|
|
KA(:, 2, 8, 7) = (/ & |
1414 |
|
|
& 0.10391E-02_JPRB,0.17050E-02_JPRB,0.20071E-02_JPRB,0.22179E-02_JPRB,0.23606E-02_JPRB, & |
1415 |
|
✗ |
& 0.24337E-02_JPRB,0.24284E-02_JPRB,0.23335E-02_JPRB,0.17331E-02_JPRB /) |
1416 |
|
|
KA(:, 3, 8, 7) = (/ & |
1417 |
|
|
& 0.10558E-02_JPRB,0.17304E-02_JPRB,0.20412E-02_JPRB,0.22560E-02_JPRB,0.24048E-02_JPRB, & |
1418 |
|
✗ |
& 0.24767E-02_JPRB,0.24718E-02_JPRB,0.23758E-02_JPRB,0.17638E-02_JPRB /) |
1419 |
|
|
KA(:, 4, 8, 7) = (/ & |
1420 |
|
|
& 0.10757E-02_JPRB,0.17611E-02_JPRB,0.20788E-02_JPRB,0.22974E-02_JPRB,0.24509E-02_JPRB, & |
1421 |
|
✗ |
& 0.25242E-02_JPRB,0.25220E-02_JPRB,0.24275E-02_JPRB,0.17981E-02_JPRB /) |
1422 |
|
|
KA(:, 5, 8, 7) = (/ & |
1423 |
|
|
& 0.10980E-02_JPRB,0.17974E-02_JPRB,0.21207E-02_JPRB,0.23464E-02_JPRB,0.25025E-02_JPRB, & |
1424 |
|
✗ |
& 0.25827E-02_JPRB,0.25792E-02_JPRB,0.24843E-02_JPRB,0.18371E-02_JPRB /) |
1425 |
|
|
KA(:, 1, 9, 7) = (/ & |
1426 |
|
|
& 0.89817E-03_JPRB,0.14995E-02_JPRB,0.17424E-02_JPRB,0.19141E-02_JPRB,0.20277E-02_JPRB, & |
1427 |
|
✗ |
& 0.20847E-02_JPRB,0.20717E-02_JPRB,0.19779E-02_JPRB,0.16529E-02_JPRB /) |
1428 |
|
|
KA(:, 2, 9, 7) = (/ & |
1429 |
|
|
& 0.91497E-03_JPRB,0.15202E-02_JPRB,0.17713E-02_JPRB,0.19473E-02_JPRB,0.20642E-02_JPRB, & |
1430 |
|
✗ |
& 0.21241E-02_JPRB,0.21112E-02_JPRB,0.20125E-02_JPRB,0.16590E-02_JPRB /) |
1431 |
|
|
KA(:, 3, 9, 7) = (/ & |
1432 |
|
|
& 0.93269E-03_JPRB,0.15411E-02_JPRB,0.18029E-02_JPRB,0.19839E-02_JPRB,0.21017E-02_JPRB, & |
1433 |
|
✗ |
& 0.21633E-02_JPRB,0.21507E-02_JPRB,0.20494E-02_JPRB,0.16738E-02_JPRB /) |
1434 |
|
|
KA(:, 4, 9, 7) = (/ & |
1435 |
|
|
& 0.95304E-03_JPRB,0.15646E-02_JPRB,0.18368E-02_JPRB,0.20225E-02_JPRB,0.21451E-02_JPRB, & |
1436 |
|
✗ |
& 0.22062E-02_JPRB,0.21951E-02_JPRB,0.20930E-02_JPRB,0.16939E-02_JPRB /) |
1437 |
|
|
KA(:, 5, 9, 7) = (/ & |
1438 |
|
|
& 0.97498E-03_JPRB,0.15941E-02_JPRB,0.18742E-02_JPRB,0.20657E-02_JPRB,0.21958E-02_JPRB, & |
1439 |
|
✗ |
& 0.22577E-02_JPRB,0.22448E-02_JPRB,0.21409E-02_JPRB,0.17176E-02_JPRB /) |
1440 |
|
|
KA(:, 1,10, 7) = (/ & |
1441 |
|
|
& 0.79262E-03_JPRB,0.13163E-02_JPRB,0.15328E-02_JPRB,0.16707E-02_JPRB,0.17648E-02_JPRB, & |
1442 |
|
✗ |
& 0.18068E-02_JPRB,0.17935E-02_JPRB,0.17058E-02_JPRB,0.29700E-02_JPRB /) |
1443 |
|
|
KA(:, 2,10, 7) = (/ & |
1444 |
|
|
& 0.80762E-03_JPRB,0.13411E-02_JPRB,0.15596E-02_JPRB,0.17027E-02_JPRB,0.18000E-02_JPRB, & |
1445 |
|
✗ |
& 0.18435E-02_JPRB,0.18291E-02_JPRB,0.17355E-02_JPRB,0.28651E-02_JPRB /) |
1446 |
|
|
KA(:, 3,10, 7) = (/ & |
1447 |
|
|
& 0.82251E-03_JPRB,0.13646E-02_JPRB,0.15856E-02_JPRB,0.17370E-02_JPRB,0.18349E-02_JPRB, & |
1448 |
|
✗ |
& 0.18799E-02_JPRB,0.18643E-02_JPRB,0.17669E-02_JPRB,0.27637E-02_JPRB /) |
1449 |
|
|
KA(:, 4,10, 7) = (/ & |
1450 |
|
|
& 0.84077E-03_JPRB,0.13892E-02_JPRB,0.16170E-02_JPRB,0.17747E-02_JPRB,0.18736E-02_JPRB, & |
1451 |
|
✗ |
& 0.19201E-02_JPRB,0.19036E-02_JPRB,0.18042E-02_JPRB,0.26870E-02_JPRB /) |
1452 |
|
|
KA(:, 5,10, 7) = (/ & |
1453 |
|
|
& 0.86106E-03_JPRB,0.14180E-02_JPRB,0.16516E-02_JPRB,0.18147E-02_JPRB,0.19171E-02_JPRB, & |
1454 |
|
✗ |
& 0.19660E-02_JPRB,0.19468E-02_JPRB,0.18451E-02_JPRB,0.26342E-02_JPRB /) |
1455 |
|
|
KA(:, 1,11, 7) = (/ & |
1456 |
|
|
& 0.72744E-03_JPRB,0.11669E-02_JPRB,0.13481E-02_JPRB,0.14590E-02_JPRB,0.15393E-02_JPRB, & |
1457 |
|
✗ |
& 0.15747E-02_JPRB,0.15610E-02_JPRB,0.14772E-02_JPRB,0.38429E-02_JPRB /) |
1458 |
|
|
KA(:, 2,11, 7) = (/ & |
1459 |
|
|
& 0.73930E-03_JPRB,0.11904E-02_JPRB,0.13759E-02_JPRB,0.14894E-02_JPRB,0.15715E-02_JPRB, & |
1460 |
|
✗ |
& 0.16066E-02_JPRB,0.15925E-02_JPRB,0.15038E-02_JPRB,0.36308E-02_JPRB /) |
1461 |
|
|
KA(:, 3,11, 7) = (/ & |
1462 |
|
|
& 0.75350E-03_JPRB,0.12120E-02_JPRB,0.14044E-02_JPRB,0.15240E-02_JPRB,0.16053E-02_JPRB, & |
1463 |
|
✗ |
& 0.16390E-02_JPRB,0.16251E-02_JPRB,0.15339E-02_JPRB,0.34122E-02_JPRB /) |
1464 |
|
|
KA(:, 4,11, 7) = (/ & |
1465 |
|
|
& 0.76930E-03_JPRB,0.12355E-02_JPRB,0.14324E-02_JPRB,0.15603E-02_JPRB,0.16424E-02_JPRB, & |
1466 |
|
✗ |
& 0.16774E-02_JPRB,0.16611E-02_JPRB,0.15677E-02_JPRB,0.32391E-02_JPRB /) |
1467 |
|
|
KA(:, 5,11, 7) = (/ & |
1468 |
|
|
& 0.78824E-03_JPRB,0.12645E-02_JPRB,0.14660E-02_JPRB,0.15998E-02_JPRB,0.16846E-02_JPRB, & |
1469 |
|
✗ |
& 0.17204E-02_JPRB,0.17007E-02_JPRB,0.16046E-02_JPRB,0.31291E-02_JPRB /) |
1470 |
|
|
KA(:, 1,12, 7) = (/ & |
1471 |
|
|
& 0.66909E-03_JPRB,0.10517E-02_JPRB,0.11921E-02_JPRB,0.12822E-02_JPRB,0.13379E-02_JPRB, & |
1472 |
|
✗ |
& 0.13630E-02_JPRB,0.13492E-02_JPRB,0.12752E-02_JPRB,0.39255E-02_JPRB /) |
1473 |
|
|
KA(:, 2,12, 7) = (/ & |
1474 |
|
|
& 0.68372E-03_JPRB,0.10717E-02_JPRB,0.12175E-02_JPRB,0.13089E-02_JPRB,0.13666E-02_JPRB, & |
1475 |
|
✗ |
& 0.13913E-02_JPRB,0.13783E-02_JPRB,0.12999E-02_JPRB,0.37011E-02_JPRB /) |
1476 |
|
|
KA(:, 3,12, 7) = (/ & |
1477 |
|
|
& 0.69881E-03_JPRB,0.10912E-02_JPRB,0.12439E-02_JPRB,0.13402E-02_JPRB,0.13970E-02_JPRB, & |
1478 |
|
✗ |
& 0.14222E-02_JPRB,0.14099E-02_JPRB,0.13279E-02_JPRB,0.35002E-02_JPRB /) |
1479 |
|
|
KA(:, 4,12, 7) = (/ & |
1480 |
|
|
& 0.71487E-03_JPRB,0.11132E-02_JPRB,0.12732E-02_JPRB,0.13738E-02_JPRB,0.14317E-02_JPRB, & |
1481 |
|
✗ |
& 0.14583E-02_JPRB,0.14439E-02_JPRB,0.13590E-02_JPRB,0.33360E-02_JPRB /) |
1482 |
|
|
KA(:, 5,12, 7) = (/ & |
1483 |
|
|
& 0.73461E-03_JPRB,0.11382E-02_JPRB,0.13053E-02_JPRB,0.14102E-02_JPRB,0.14713E-02_JPRB, & |
1484 |
|
✗ |
& 0.14974E-02_JPRB,0.14808E-02_JPRB,0.13924E-02_JPRB,0.31844E-02_JPRB /) |
1485 |
|
|
KA(:, 1,13, 7) = (/ & |
1486 |
|
|
& 0.61282E-03_JPRB,0.95575E-03_JPRB,0.10730E-02_JPRB,0.11388E-02_JPRB,0.11718E-02_JPRB, & |
1487 |
|
✗ |
& 0.11795E-02_JPRB,0.11618E-02_JPRB,0.10974E-02_JPRB,0.34089E-02_JPRB /) |
1488 |
|
|
KA(:, 2,13, 7) = (/ & |
1489 |
|
|
& 0.62765E-03_JPRB,0.97500E-03_JPRB,0.10966E-02_JPRB,0.11619E-02_JPRB,0.11959E-02_JPRB, & |
1490 |
|
✗ |
& 0.12054E-02_JPRB,0.11876E-02_JPRB,0.11206E-02_JPRB,0.32141E-02_JPRB /) |
1491 |
|
|
KA(:, 3,13, 7) = (/ & |
1492 |
|
|
& 0.64409E-03_JPRB,0.99523E-03_JPRB,0.11197E-02_JPRB,0.11873E-02_JPRB,0.12235E-02_JPRB, & |
1493 |
|
✗ |
& 0.12347E-02_JPRB,0.12163E-02_JPRB,0.11468E-02_JPRB,0.30396E-02_JPRB /) |
1494 |
|
|
KA(:, 4,13, 7) = (/ & |
1495 |
|
|
& 0.66230E-03_JPRB,0.10180E-02_JPRB,0.11464E-02_JPRB,0.12161E-02_JPRB,0.12557E-02_JPRB, & |
1496 |
|
✗ |
& 0.12667E-02_JPRB,0.12475E-02_JPRB,0.11749E-02_JPRB,0.28911E-02_JPRB /) |
1497 |
|
|
KA(:, 5,13, 7) = (/ & |
1498 |
|
|
& 0.68383E-03_JPRB,0.10452E-02_JPRB,0.11767E-02_JPRB,0.12484E-02_JPRB,0.12902E-02_JPRB, & |
1499 |
|
✗ |
& 0.13021E-02_JPRB,0.12822E-02_JPRB,0.12049E-02_JPRB,0.27576E-02_JPRB /) |
1500 |
|
|
KA(:, 1, 1, 8) = (/ & |
1501 |
|
|
& 0.59073E-02_JPRB,0.94320E-02_JPRB,0.12084E-01_JPRB,0.14049E-01_JPRB,0.15571E-01_JPRB, & |
1502 |
|
✗ |
& 0.16640E-01_JPRB,0.17123E-01_JPRB,0.16625E-01_JPRB,0.14851E-01_JPRB /) |
1503 |
|
|
KA(:, 2, 1, 8) = (/ & |
1504 |
|
|
& 0.60213E-02_JPRB,0.95565E-02_JPRB,0.12218E-01_JPRB,0.14200E-01_JPRB,0.15736E-01_JPRB, & |
1505 |
|
✗ |
& 0.16810E-01_JPRB,0.17290E-01_JPRB,0.16722E-01_JPRB,0.14969E-01_JPRB /) |
1506 |
|
|
KA(:, 3, 1, 8) = (/ & |
1507 |
|
|
& 0.61698E-02_JPRB,0.97176E-02_JPRB,0.12383E-01_JPRB,0.14381E-01_JPRB,0.15939E-01_JPRB, & |
1508 |
|
✗ |
& 0.17010E-01_JPRB,0.17476E-01_JPRB,0.16866E-01_JPRB,0.15129E-01_JPRB /) |
1509 |
|
|
KA(:, 4, 1, 8) = (/ & |
1510 |
|
|
& 0.62862E-02_JPRB,0.98624E-02_JPRB,0.12544E-01_JPRB,0.14586E-01_JPRB,0.16163E-01_JPRB, & |
1511 |
|
✗ |
& 0.17225E-01_JPRB,0.17690E-01_JPRB,0.17043E-01_JPRB,0.15322E-01_JPRB /) |
1512 |
|
|
KA(:, 5, 1, 8) = (/ & |
1513 |
|
|
& 0.64346E-02_JPRB,0.10033E-01_JPRB,0.12746E-01_JPRB,0.14817E-01_JPRB,0.16408E-01_JPRB, & |
1514 |
|
✗ |
& 0.17481E-01_JPRB,0.17940E-01_JPRB,0.17253E-01_JPRB,0.15543E-01_JPRB /) |
1515 |
|
|
KA(:, 1, 2, 8) = (/ & |
1516 |
|
|
& 0.53740E-02_JPRB,0.87218E-02_JPRB,0.11053E-01_JPRB,0.12810E-01_JPRB,0.14176E-01_JPRB, & |
1517 |
|
✗ |
& 0.15120E-01_JPRB,0.15546E-01_JPRB,0.15059E-01_JPRB,0.12919E-01_JPRB /) |
1518 |
|
|
KA(:, 2, 2, 8) = (/ & |
1519 |
|
|
& 0.54730E-02_JPRB,0.88522E-02_JPRB,0.11203E-01_JPRB,0.12984E-01_JPRB,0.14363E-01_JPRB, & |
1520 |
|
✗ |
& 0.15303E-01_JPRB,0.15712E-01_JPRB,0.15177E-01_JPRB,0.13038E-01_JPRB /) |
1521 |
|
|
KA(:, 3, 2, 8) = (/ & |
1522 |
|
|
& 0.56074E-02_JPRB,0.90112E-02_JPRB,0.11386E-01_JPRB,0.13184E-01_JPRB,0.14577E-01_JPRB, & |
1523 |
|
✗ |
& 0.15506E-01_JPRB,0.15908E-01_JPRB,0.15341E-01_JPRB,0.13193E-01_JPRB /) |
1524 |
|
|
KA(:, 4, 2, 8) = (/ & |
1525 |
|
|
& 0.57291E-02_JPRB,0.91663E-02_JPRB,0.11581E-01_JPRB,0.13408E-01_JPRB,0.14805E-01_JPRB, & |
1526 |
|
✗ |
& 0.15738E-01_JPRB,0.16140E-01_JPRB,0.15527E-01_JPRB,0.13373E-01_JPRB /) |
1527 |
|
|
KA(:, 5, 2, 8) = (/ & |
1528 |
|
|
& 0.58374E-02_JPRB,0.93237E-02_JPRB,0.11790E-01_JPRB,0.13642E-01_JPRB,0.15063E-01_JPRB, & |
1529 |
|
✗ |
& 0.16008E-01_JPRB,0.16391E-01_JPRB,0.15740E-01_JPRB,0.13573E-01_JPRB /) |
1530 |
|
|
KA(:, 1, 3, 8) = (/ & |
1531 |
|
|
& 0.49151E-02_JPRB,0.80083E-02_JPRB,0.10006E-01_JPRB,0.11528E-01_JPRB,0.12727E-01_JPRB, & |
1532 |
|
✗ |
& 0.13551E-01_JPRB,0.13911E-01_JPRB,0.13469E-01_JPRB,0.11070E-01_JPRB /) |
1533 |
|
|
KA(:, 2, 3, 8) = (/ & |
1534 |
|
|
& 0.50045E-02_JPRB,0.81384E-02_JPRB,0.10158E-01_JPRB,0.11712E-01_JPRB,0.12918E-01_JPRB, & |
1535 |
|
✗ |
& 0.13727E-01_JPRB,0.14078E-01_JPRB,0.13598E-01_JPRB,0.11182E-01_JPRB /) |
1536 |
|
|
KA(:, 3, 3, 8) = (/ & |
1537 |
|
|
& 0.51018E-02_JPRB,0.82774E-02_JPRB,0.10333E-01_JPRB,0.11906E-01_JPRB,0.13128E-01_JPRB, & |
1538 |
|
✗ |
& 0.13932E-01_JPRB,0.14276E-01_JPRB,0.13758E-01_JPRB,0.11318E-01_JPRB /) |
1539 |
|
|
KA(:, 4, 3, 8) = (/ & |
1540 |
|
|
& 0.52290E-02_JPRB,0.84457E-02_JPRB,0.10545E-01_JPRB,0.12130E-01_JPRB,0.13362E-01_JPRB, & |
1541 |
|
✗ |
& 0.14179E-01_JPRB,0.14506E-01_JPRB,0.13944E-01_JPRB,0.11475E-01_JPRB /) |
1542 |
|
|
KA(:, 5, 3, 8) = (/ & |
1543 |
|
|
& 0.53219E-02_JPRB,0.86004E-02_JPRB,0.10753E-01_JPRB,0.12365E-01_JPRB,0.13624E-01_JPRB, & |
1544 |
|
✗ |
& 0.14443E-01_JPRB,0.14743E-01_JPRB,0.14150E-01_JPRB,0.11664E-01_JPRB /) |
1545 |
|
|
KA(:, 1, 4, 8) = (/ & |
1546 |
|
|
& 0.44996E-02_JPRB,0.73324E-02_JPRB,0.89976E-02_JPRB,0.10282E-01_JPRB,0.11291E-01_JPRB, & |
1547 |
|
✗ |
& 0.11989E-01_JPRB,0.12308E-01_JPRB,0.11915E-01_JPRB,0.94610E-02_JPRB /) |
1548 |
|
|
KA(:, 2, 4, 8) = (/ & |
1549 |
|
|
& 0.45903E-02_JPRB,0.74608E-02_JPRB,0.91511E-02_JPRB,0.10467E-01_JPRB,0.11476E-01_JPRB, & |
1550 |
|
✗ |
& 0.12168E-01_JPRB,0.12474E-01_JPRB,0.12040E-01_JPRB,0.95583E-02_JPRB /) |
1551 |
|
|
KA(:, 3, 4, 8) = (/ & |
1552 |
|
|
& 0.46786E-02_JPRB,0.75960E-02_JPRB,0.93200E-02_JPRB,0.10651E-01_JPRB,0.11685E-01_JPRB, & |
1553 |
|
✗ |
& 0.12375E-01_JPRB,0.12662E-01_JPRB,0.12197E-01_JPRB,0.96836E-02_JPRB /) |
1554 |
|
|
|
1555 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART5',1,ZHOOK_HANDLE) |
1556 |
|
✗ |
END SUBROUTINE PART5 |
1557 |
|
|
|
1558 |
|
|
|
1559 |
|
✗ |
SUBROUTINE PART6 |
1560 |
|
|
|
1561 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1562 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART6',0,ZHOOK_HANDLE) |
1563 |
|
|
|
1564 |
|
|
|
1565 |
|
|
KA(:, 4, 4, 8) = (/ & |
1566 |
|
|
& 0.47771E-02_JPRB,0.77407E-02_JPRB,0.95085E-02_JPRB,0.10860E-01_JPRB,0.11915E-01_JPRB, & |
1567 |
|
✗ |
& 0.12611E-01_JPRB,0.12868E-01_JPRB,0.12374E-01_JPRB,0.98243E-02_JPRB /) |
1568 |
|
|
KA(:, 5, 4, 8) = (/ & |
1569 |
|
|
& 0.48920E-02_JPRB,0.79194E-02_JPRB,0.97305E-02_JPRB,0.11107E-01_JPRB,0.12174E-01_JPRB, & |
1570 |
|
✗ |
& 0.12866E-01_JPRB,0.13096E-01_JPRB,0.12573E-01_JPRB,0.99978E-02_JPRB /) |
1571 |
|
|
KA(:, 1, 5, 8) = (/ & |
1572 |
|
|
& 0.41203E-02_JPRB,0.67057E-02_JPRB,0.80820E-02_JPRB,0.91247E-02_JPRB,0.99321E-02_JPRB, & |
1573 |
|
✗ |
& 0.10510E-01_JPRB,0.10783E-01_JPRB,0.10430E-01_JPRB,0.81020E-02_JPRB /) |
1574 |
|
|
KA(:, 2, 5, 8) = (/ & |
1575 |
|
|
& 0.41993E-02_JPRB,0.68279E-02_JPRB,0.82322E-02_JPRB,0.92959E-02_JPRB,0.10115E-01_JPRB, & |
1576 |
|
✗ |
& 0.10684E-01_JPRB,0.10936E-01_JPRB,0.10557E-01_JPRB,0.81860E-02_JPRB /) |
1577 |
|
|
KA(:, 3, 5, 8) = (/ & |
1578 |
|
|
& 0.42833E-02_JPRB,0.69588E-02_JPRB,0.83884E-02_JPRB,0.94726E-02_JPRB,0.10319E-01_JPRB, & |
1579 |
|
✗ |
& 0.10879E-01_JPRB,0.11113E-01_JPRB,0.10704E-01_JPRB,0.82915E-02_JPRB /) |
1580 |
|
|
KA(:, 4, 5, 8) = (/ & |
1581 |
|
|
& 0.43800E-02_JPRB,0.70975E-02_JPRB,0.85585E-02_JPRB,0.96769E-02_JPRB,0.10538E-01_JPRB, & |
1582 |
|
✗ |
& 0.11098E-01_JPRB,0.11307E-01_JPRB,0.10873E-01_JPRB,0.84082E-02_JPRB /) |
1583 |
|
|
KA(:, 5, 5, 8) = (/ & |
1584 |
|
|
& 0.44913E-02_JPRB,0.72638E-02_JPRB,0.87668E-02_JPRB,0.99106E-02_JPRB,0.10776E-01_JPRB, & |
1585 |
|
✗ |
& 0.11337E-01_JPRB,0.11521E-01_JPRB,0.11061E-01_JPRB,0.85492E-02_JPRB /) |
1586 |
|
|
KA(:, 1, 6, 8) = (/ & |
1587 |
|
|
& 0.37432E-02_JPRB,0.61135E-02_JPRB,0.72507E-02_JPRB,0.80822E-02_JPRB,0.86984E-02_JPRB, & |
1588 |
|
✗ |
& 0.91424E-02_JPRB,0.93607E-02_JPRB,0.90800E-02_JPRB,0.69637E-02_JPRB /) |
1589 |
|
|
KA(:, 2, 6, 8) = (/ & |
1590 |
|
|
& 0.38232E-02_JPRB,0.62277E-02_JPRB,0.73923E-02_JPRB,0.82383E-02_JPRB,0.88666E-02_JPRB, & |
1591 |
|
✗ |
& 0.93013E-02_JPRB,0.95051E-02_JPRB,0.91939E-02_JPRB,0.70311E-02_JPRB /) |
1592 |
|
|
KA(:, 3, 6, 8) = (/ & |
1593 |
|
|
& 0.39028E-02_JPRB,0.63516E-02_JPRB,0.75330E-02_JPRB,0.84072E-02_JPRB,0.90542E-02_JPRB, & |
1594 |
|
✗ |
& 0.94860E-02_JPRB,0.96693E-02_JPRB,0.93306E-02_JPRB,0.71143E-02_JPRB /) |
1595 |
|
|
KA(:, 4, 6, 8) = (/ & |
1596 |
|
|
& 0.39917E-02_JPRB,0.64850E-02_JPRB,0.76893E-02_JPRB,0.85935E-02_JPRB,0.92562E-02_JPRB, & |
1597 |
|
✗ |
& 0.96859E-02_JPRB,0.98481E-02_JPRB,0.94821E-02_JPRB,0.72080E-02_JPRB /) |
1598 |
|
|
KA(:, 5, 6, 8) = (/ & |
1599 |
|
|
& 0.40851E-02_JPRB,0.66256E-02_JPRB,0.78694E-02_JPRB,0.87911E-02_JPRB,0.94733E-02_JPRB, & |
1600 |
|
✗ |
& 0.99019E-02_JPRB,0.10042E-01_JPRB,0.96464E-02_JPRB,0.73211E-02_JPRB /) |
1601 |
|
|
KA(:, 1, 7, 8) = (/ & |
1602 |
|
|
& 0.33812E-02_JPRB,0.55475E-02_JPRB,0.65017E-02_JPRB,0.71556E-02_JPRB,0.76235E-02_JPRB, & |
1603 |
|
✗ |
& 0.79451E-02_JPRB,0.81101E-02_JPRB,0.78877E-02_JPRB,0.60070E-02_JPRB /) |
1604 |
|
|
KA(:, 2, 7, 8) = (/ & |
1605 |
|
|
& 0.34581E-02_JPRB,0.56575E-02_JPRB,0.66301E-02_JPRB,0.72977E-02_JPRB,0.77709E-02_JPRB, & |
1606 |
|
✗ |
& 0.80903E-02_JPRB,0.82426E-02_JPRB,0.79917E-02_JPRB,0.60625E-02_JPRB /) |
1607 |
|
|
KA(:, 3, 7, 8) = (/ & |
1608 |
|
|
& 0.35355E-02_JPRB,0.57759E-02_JPRB,0.67602E-02_JPRB,0.74532E-02_JPRB,0.79395E-02_JPRB, & |
1609 |
|
✗ |
& 0.82549E-02_JPRB,0.83890E-02_JPRB,0.81121E-02_JPRB,0.61274E-02_JPRB /) |
1610 |
|
|
KA(:, 4, 7, 8) = (/ & |
1611 |
|
|
& 0.36191E-02_JPRB,0.58987E-02_JPRB,0.69034E-02_JPRB,0.76219E-02_JPRB,0.81209E-02_JPRB, & |
1612 |
|
✗ |
& 0.84343E-02_JPRB,0.85495E-02_JPRB,0.82395E-02_JPRB,0.62026E-02_JPRB /) |
1613 |
|
|
KA(:, 5, 7, 8) = (/ & |
1614 |
|
|
& 0.37084E-02_JPRB,0.60308E-02_JPRB,0.70671E-02_JPRB,0.77977E-02_JPRB,0.83160E-02_JPRB, & |
1615 |
|
✗ |
& 0.86266E-02_JPRB,0.87205E-02_JPRB,0.83802E-02_JPRB,0.62947E-02_JPRB /) |
1616 |
|
|
KA(:, 1, 8, 8) = (/ & |
1617 |
|
|
& 0.30376E-02_JPRB,0.49774E-02_JPRB,0.58172E-02_JPRB,0.63470E-02_JPRB,0.67038E-02_JPRB, & |
1618 |
|
✗ |
& 0.69396E-02_JPRB,0.70412E-02_JPRB,0.68509E-02_JPRB,0.51374E-02_JPRB /) |
1619 |
|
|
KA(:, 2, 8, 8) = (/ & |
1620 |
|
|
& 0.31099E-02_JPRB,0.50996E-02_JPRB,0.59344E-02_JPRB,0.64736E-02_JPRB,0.68367E-02_JPRB, & |
1621 |
|
✗ |
& 0.70701E-02_JPRB,0.71564E-02_JPRB,0.69425E-02_JPRB,0.51813E-02_JPRB /) |
1622 |
|
|
KA(:, 3, 8, 8) = (/ & |
1623 |
|
|
& 0.31853E-02_JPRB,0.52155E-02_JPRB,0.60541E-02_JPRB,0.66147E-02_JPRB,0.69858E-02_JPRB, & |
1624 |
|
✗ |
& 0.72120E-02_JPRB,0.72858E-02_JPRB,0.70465E-02_JPRB,0.52319E-02_JPRB /) |
1625 |
|
|
KA(:, 4, 8, 8) = (/ & |
1626 |
|
|
& 0.32663E-02_JPRB,0.53312E-02_JPRB,0.61863E-02_JPRB,0.67654E-02_JPRB,0.71468E-02_JPRB, & |
1627 |
|
✗ |
& 0.73677E-02_JPRB,0.74252E-02_JPRB,0.71560E-02_JPRB,0.52932E-02_JPRB /) |
1628 |
|
|
KA(:, 5, 8, 8) = (/ & |
1629 |
|
|
& 0.33510E-02_JPRB,0.54583E-02_JPRB,0.63345E-02_JPRB,0.69235E-02_JPRB,0.73170E-02_JPRB, & |
1630 |
|
✗ |
& 0.75339E-02_JPRB,0.75720E-02_JPRB,0.72770E-02_JPRB,0.53726E-02_JPRB /) |
1631 |
|
|
KA(:, 1, 9, 8) = (/ & |
1632 |
|
|
& 0.27168E-02_JPRB,0.44406E-02_JPRB,0.51768E-02_JPRB,0.56339E-02_JPRB,0.59208E-02_JPRB, & |
1633 |
|
✗ |
& 0.60958E-02_JPRB,0.61438E-02_JPRB,0.59554E-02_JPRB,0.42511E-02_JPRB /) |
1634 |
|
|
KA(:, 2, 9, 8) = (/ & |
1635 |
|
|
& 0.27853E-02_JPRB,0.45486E-02_JPRB,0.52870E-02_JPRB,0.57491E-02_JPRB,0.60397E-02_JPRB, & |
1636 |
|
✗ |
& 0.62076E-02_JPRB,0.62421E-02_JPRB,0.60358E-02_JPRB,0.42982E-02_JPRB /) |
1637 |
|
|
KA(:, 3, 9, 8) = (/ & |
1638 |
|
|
& 0.28572E-02_JPRB,0.46609E-02_JPRB,0.53998E-02_JPRB,0.58755E-02_JPRB,0.61719E-02_JPRB, & |
1639 |
|
✗ |
& 0.63300E-02_JPRB,0.63536E-02_JPRB,0.61272E-02_JPRB,0.43479E-02_JPRB /) |
1640 |
|
|
KA(:, 4, 9, 8) = (/ & |
1641 |
|
|
& 0.29351E-02_JPRB,0.47766E-02_JPRB,0.55244E-02_JPRB,0.60103E-02_JPRB,0.63121E-02_JPRB, & |
1642 |
|
✗ |
& 0.64656E-02_JPRB,0.64718E-02_JPRB,0.62231E-02_JPRB,0.44012E-02_JPRB /) |
1643 |
|
|
KA(:, 5, 9, 8) = (/ & |
1644 |
|
|
& 0.30174E-02_JPRB,0.49013E-02_JPRB,0.56608E-02_JPRB,0.61542E-02_JPRB,0.64584E-02_JPRB, & |
1645 |
|
✗ |
& 0.66094E-02_JPRB,0.65960E-02_JPRB,0.63252E-02_JPRB,0.44655E-02_JPRB /) |
1646 |
|
|
KA(:, 1,10, 8) = (/ & |
1647 |
|
|
& 0.24055E-02_JPRB,0.39503E-02_JPRB,0.45833E-02_JPRB,0.49951E-02_JPRB,0.52507E-02_JPRB, & |
1648 |
|
✗ |
& 0.53857E-02_JPRB,0.53791E-02_JPRB,0.51629E-02_JPRB,0.55379E-02_JPRB /) |
1649 |
|
|
KA(:, 2,10, 8) = (/ & |
1650 |
|
|
& 0.24728E-02_JPRB,0.40487E-02_JPRB,0.46867E-02_JPRB,0.51042E-02_JPRB,0.53576E-02_JPRB, & |
1651 |
|
✗ |
& 0.54844E-02_JPRB,0.54704E-02_JPRB,0.52383E-02_JPRB,0.55398E-02_JPRB /) |
1652 |
|
|
KA(:, 3,10, 8) = (/ & |
1653 |
|
|
& 0.25454E-02_JPRB,0.41511E-02_JPRB,0.48010E-02_JPRB,0.52206E-02_JPRB,0.54751E-02_JPRB, & |
1654 |
|
✗ |
& 0.55927E-02_JPRB,0.55711E-02_JPRB,0.53216E-02_JPRB,0.55501E-02_JPRB /) |
1655 |
|
|
KA(:, 4,10, 8) = (/ & |
1656 |
|
|
& 0.26224E-02_JPRB,0.42542E-02_JPRB,0.49201E-02_JPRB,0.53438E-02_JPRB,0.55977E-02_JPRB, & |
1657 |
|
✗ |
& 0.57114E-02_JPRB,0.56753E-02_JPRB,0.54074E-02_JPRB,0.55558E-02_JPRB /) |
1658 |
|
|
KA(:, 5,10, 8) = (/ & |
1659 |
|
|
& 0.27039E-02_JPRB,0.43672E-02_JPRB,0.50470E-02_JPRB,0.54750E-02_JPRB,0.57276E-02_JPRB, & |
1660 |
|
✗ |
& 0.58363E-02_JPRB,0.57849E-02_JPRB,0.54996E-02_JPRB,0.55710E-02_JPRB /) |
1661 |
|
|
KA(:, 1,11, 8) = (/ & |
1662 |
|
|
& 0.21256E-02_JPRB,0.35221E-02_JPRB,0.40853E-02_JPRB,0.44612E-02_JPRB,0.46874E-02_JPRB, & |
1663 |
|
✗ |
& 0.47866E-02_JPRB,0.47389E-02_JPRB,0.44975E-02_JPRB,0.66135E-02_JPRB /) |
1664 |
|
|
KA(:, 2,11, 8) = (/ & |
1665 |
|
|
& 0.21937E-02_JPRB,0.36149E-02_JPRB,0.41854E-02_JPRB,0.45677E-02_JPRB,0.47907E-02_JPRB, & |
1666 |
|
✗ |
& 0.48833E-02_JPRB,0.48291E-02_JPRB,0.45707E-02_JPRB,0.65729E-02_JPRB /) |
1667 |
|
|
KA(:, 3,11, 8) = (/ & |
1668 |
|
|
& 0.22650E-02_JPRB,0.37098E-02_JPRB,0.42933E-02_JPRB,0.46764E-02_JPRB,0.49020E-02_JPRB, & |
1669 |
|
✗ |
& 0.49895E-02_JPRB,0.49234E-02_JPRB,0.46462E-02_JPRB,0.65598E-02_JPRB /) |
1670 |
|
|
KA(:, 4,11, 8) = (/ & |
1671 |
|
|
& 0.23425E-02_JPRB,0.38113E-02_JPRB,0.44107E-02_JPRB,0.47931E-02_JPRB,0.50165E-02_JPRB, & |
1672 |
|
✗ |
& 0.51000E-02_JPRB,0.50211E-02_JPRB,0.47251E-02_JPRB,0.65419E-02_JPRB /) |
1673 |
|
|
KA(:, 5,11, 8) = (/ & |
1674 |
|
|
& 0.24251E-02_JPRB,0.39222E-02_JPRB,0.45344E-02_JPRB,0.49164E-02_JPRB,0.51382E-02_JPRB, & |
1675 |
|
✗ |
& 0.52156E-02_JPRB,0.51233E-02_JPRB,0.48118E-02_JPRB,0.65404E-02_JPRB /) |
1676 |
|
|
KA(:, 1,12, 8) = (/ & |
1677 |
|
|
& 0.19014E-02_JPRB,0.31169E-02_JPRB,0.36336E-02_JPRB,0.39642E-02_JPRB,0.41602E-02_JPRB, & |
1678 |
|
✗ |
& 0.42352E-02_JPRB,0.41726E-02_JPRB,0.39183E-02_JPRB,0.68121E-02_JPRB /) |
1679 |
|
|
KA(:, 2,12, 8) = (/ & |
1680 |
|
|
& 0.19605E-02_JPRB,0.32068E-02_JPRB,0.37314E-02_JPRB,0.40676E-02_JPRB,0.42627E-02_JPRB, & |
1681 |
|
✗ |
& 0.43333E-02_JPRB,0.42591E-02_JPRB,0.39851E-02_JPRB,0.67229E-02_JPRB /) |
1682 |
|
|
KA(:, 3,12, 8) = (/ & |
1683 |
|
|
& 0.20227E-02_JPRB,0.33010E-02_JPRB,0.38333E-02_JPRB,0.41743E-02_JPRB,0.43708E-02_JPRB, & |
1684 |
|
✗ |
& 0.44355E-02_JPRB,0.43461E-02_JPRB,0.40520E-02_JPRB,0.66419E-02_JPRB /) |
1685 |
|
|
KA(:, 4,12, 8) = (/ & |
1686 |
|
|
& 0.20945E-02_JPRB,0.34006E-02_JPRB,0.39411E-02_JPRB,0.42851E-02_JPRB,0.44804E-02_JPRB, & |
1687 |
|
✗ |
& 0.45405E-02_JPRB,0.44353E-02_JPRB,0.41230E-02_JPRB,0.65948E-02_JPRB /) |
1688 |
|
|
KA(:, 5,12, 8) = (/ & |
1689 |
|
|
& 0.21695E-02_JPRB,0.35114E-02_JPRB,0.40581E-02_JPRB,0.44020E-02_JPRB,0.45960E-02_JPRB, & |
1690 |
|
✗ |
& 0.46501E-02_JPRB,0.45319E-02_JPRB,0.42045E-02_JPRB,0.65716E-02_JPRB /) |
1691 |
|
|
KA(:, 1,13, 8) = (/ & |
1692 |
|
|
& 0.17348E-02_JPRB,0.27575E-02_JPRB,0.32033E-02_JPRB,0.34905E-02_JPRB,0.36669E-02_JPRB, & |
1693 |
|
✗ |
& 0.37299E-02_JPRB,0.36615E-02_JPRB,0.34092E-02_JPRB,0.62173E-02_JPRB /) |
1694 |
|
|
KA(:, 2,13, 8) = (/ & |
1695 |
|
|
& 0.17868E-02_JPRB,0.28403E-02_JPRB,0.32978E-02_JPRB,0.35924E-02_JPRB,0.37684E-02_JPRB, & |
1696 |
|
✗ |
& 0.38248E-02_JPRB,0.37430E-02_JPRB,0.34686E-02_JPRB,0.61248E-02_JPRB /) |
1697 |
|
|
KA(:, 3,13, 8) = (/ & |
1698 |
|
|
& 0.18438E-02_JPRB,0.29272E-02_JPRB,0.33982E-02_JPRB,0.36985E-02_JPRB,0.38711E-02_JPRB, & |
1699 |
|
✗ |
& 0.39210E-02_JPRB,0.38240E-02_JPRB,0.35286E-02_JPRB,0.60637E-02_JPRB /) |
1700 |
|
|
KA(:, 4,13, 8) = (/ & |
1701 |
|
|
& 0.19066E-02_JPRB,0.30192E-02_JPRB,0.35016E-02_JPRB,0.38072E-02_JPRB,0.39764E-02_JPRB, & |
1702 |
|
✗ |
& 0.40199E-02_JPRB,0.39089E-02_JPRB,0.35954E-02_JPRB,0.60138E-02_JPRB /) |
1703 |
|
|
KA(:, 5,13, 8) = (/ & |
1704 |
|
|
& 0.19732E-02_JPRB,0.31237E-02_JPRB,0.36129E-02_JPRB,0.39207E-02_JPRB,0.40892E-02_JPRB, & |
1705 |
|
✗ |
& 0.41240E-02_JPRB,0.40022E-02_JPRB,0.36721E-02_JPRB,0.59944E-02_JPRB /) |
1706 |
|
|
KA(:, 1, 1, 9) = (/ & |
1707 |
|
|
& 0.41219E-01_JPRB,0.41795E-01_JPRB,0.46848E-01_JPRB,0.50877E-01_JPRB,0.53437E-01_JPRB, & |
1708 |
|
✗ |
& 0.54488E-01_JPRB,0.53560E-01_JPRB,0.50235E-01_JPRB,0.51545E-01_JPRB /) |
1709 |
|
|
KA(:, 2, 1, 9) = (/ & |
1710 |
|
|
& 0.42156E-01_JPRB,0.42406E-01_JPRB,0.47180E-01_JPRB,0.51006E-01_JPRB,0.53354E-01_JPRB, & |
1711 |
|
✗ |
& 0.54221E-01_JPRB,0.53185E-01_JPRB,0.49897E-01_JPRB,0.51289E-01_JPRB /) |
1712 |
|
|
KA(:, 3, 1, 9) = (/ & |
1713 |
|
|
& 0.43082E-01_JPRB,0.43034E-01_JPRB,0.47543E-01_JPRB,0.51133E-01_JPRB,0.53289E-01_JPRB, & |
1714 |
|
✗ |
& 0.53978E-01_JPRB,0.52866E-01_JPRB,0.49591E-01_JPRB,0.51083E-01_JPRB /) |
1715 |
|
|
KA(:, 4, 1, 9) = (/ & |
1716 |
|
|
& 0.43908E-01_JPRB,0.43606E-01_JPRB,0.47876E-01_JPRB,0.51241E-01_JPRB,0.53225E-01_JPRB, & |
1717 |
|
✗ |
& 0.53768E-01_JPRB,0.52555E-01_JPRB,0.49365E-01_JPRB,0.51010E-01_JPRB /) |
1718 |
|
|
KA(:, 5, 1, 9) = (/ & |
1719 |
|
|
& 0.44717E-01_JPRB,0.44169E-01_JPRB,0.48160E-01_JPRB,0.51395E-01_JPRB,0.53206E-01_JPRB, & |
1720 |
|
✗ |
& 0.53607E-01_JPRB,0.52301E-01_JPRB,0.49268E-01_JPRB,0.51108E-01_JPRB /) |
1721 |
|
|
KA(:, 1, 2, 9) = (/ & |
1722 |
|
|
& 0.38280E-01_JPRB,0.40368E-01_JPRB,0.46271E-01_JPRB,0.50387E-01_JPRB,0.53287E-01_JPRB, & |
1723 |
|
✗ |
& 0.54294E-01_JPRB,0.53147E-01_JPRB,0.49359E-01_JPRB,0.49444E-01_JPRB /) |
1724 |
|
|
KA(:, 2, 2, 9) = (/ & |
1725 |
|
|
& 0.39278E-01_JPRB,0.41016E-01_JPRB,0.46659E-01_JPRB,0.50565E-01_JPRB,0.53249E-01_JPRB, & |
1726 |
|
✗ |
& 0.54064E-01_JPRB,0.52823E-01_JPRB,0.49016E-01_JPRB,0.49210E-01_JPRB /) |
1727 |
|
|
KA(:, 3, 2, 9) = (/ & |
1728 |
|
|
& 0.40252E-01_JPRB,0.41678E-01_JPRB,0.47048E-01_JPRB,0.50745E-01_JPRB,0.53223E-01_JPRB, & |
1729 |
|
✗ |
& 0.53871E-01_JPRB,0.52519E-01_JPRB,0.48730E-01_JPRB,0.49081E-01_JPRB /) |
1730 |
|
|
KA(:, 4, 2, 9) = (/ & |
1731 |
|
|
& 0.41132E-01_JPRB,0.42274E-01_JPRB,0.47387E-01_JPRB,0.50925E-01_JPRB,0.53214E-01_JPRB, & |
1732 |
|
✗ |
& 0.53693E-01_JPRB,0.52217E-01_JPRB,0.48559E-01_JPRB,0.49102E-01_JPRB /) |
1733 |
|
|
KA(:, 5, 2, 9) = (/ & |
1734 |
|
|
& 0.41937E-01_JPRB,0.42806E-01_JPRB,0.47675E-01_JPRB,0.51115E-01_JPRB,0.53221E-01_JPRB, & |
1735 |
|
✗ |
& 0.53535E-01_JPRB,0.52007E-01_JPRB,0.48511E-01_JPRB,0.49285E-01_JPRB /) |
1736 |
|
|
KA(:, 1, 3, 9) = (/ & |
1737 |
|
|
& 0.35016E-01_JPRB,0.38740E-01_JPRB,0.45035E-01_JPRB,0.49481E-01_JPRB,0.52517E-01_JPRB, & |
1738 |
|
✗ |
& 0.53496E-01_JPRB,0.52191E-01_JPRB,0.48044E-01_JPRB,0.46584E-01_JPRB /) |
1739 |
|
|
KA(:, 2, 3, 9) = (/ & |
1740 |
|
|
& 0.36031E-01_JPRB,0.39393E-01_JPRB,0.45463E-01_JPRB,0.49713E-01_JPRB,0.52514E-01_JPRB, & |
1741 |
|
✗ |
& 0.53329E-01_JPRB,0.51912E-01_JPRB,0.47725E-01_JPRB,0.46413E-01_JPRB /) |
1742 |
|
|
KA(:, 3, 3, 9) = (/ & |
1743 |
|
|
& 0.36991E-01_JPRB,0.40024E-01_JPRB,0.45863E-01_JPRB,0.49943E-01_JPRB,0.52531E-01_JPRB, & |
1744 |
|
✗ |
& 0.53167E-01_JPRB,0.51622E-01_JPRB,0.47472E-01_JPRB,0.46354E-01_JPRB /) |
1745 |
|
|
KA(:, 4, 3, 9) = (/ & |
1746 |
|
|
& 0.37902E-01_JPRB,0.40620E-01_JPRB,0.46253E-01_JPRB,0.50181E-01_JPRB,0.52583E-01_JPRB, & |
1747 |
|
✗ |
& 0.53007E-01_JPRB,0.51384E-01_JPRB,0.47335E-01_JPRB,0.46441E-01_JPRB /) |
1748 |
|
|
KA(:, 5, 3, 9) = (/ & |
1749 |
|
|
& 0.38707E-01_JPRB,0.41126E-01_JPRB,0.46598E-01_JPRB,0.50384E-01_JPRB,0.52633E-01_JPRB, & |
1750 |
|
✗ |
& 0.52879E-01_JPRB,0.51240E-01_JPRB,0.47311E-01_JPRB,0.46661E-01_JPRB /) |
1751 |
|
|
KA(:, 1, 4, 9) = (/ & |
1752 |
|
|
& 0.31672E-01_JPRB,0.36966E-01_JPRB,0.43365E-01_JPRB,0.48073E-01_JPRB,0.51081E-01_JPRB, & |
1753 |
|
✗ |
& 0.52063E-01_JPRB,0.50596E-01_JPRB,0.46210E-01_JPRB,0.43228E-01_JPRB /) |
1754 |
|
|
KA(:, 2, 4, 9) = (/ & |
1755 |
|
|
& 0.32685E-01_JPRB,0.37616E-01_JPRB,0.43827E-01_JPRB,0.48349E-01_JPRB,0.51147E-01_JPRB, & |
1756 |
|
✗ |
& 0.51967E-01_JPRB,0.50386E-01_JPRB,0.45960E-01_JPRB,0.43137E-01_JPRB /) |
1757 |
|
|
KA(:, 3, 4, 9) = (/ & |
1758 |
|
|
& 0.33628E-01_JPRB,0.38241E-01_JPRB,0.44270E-01_JPRB,0.48639E-01_JPRB,0.51209E-01_JPRB, & |
1759 |
|
✗ |
& 0.51848E-01_JPRB,0.50172E-01_JPRB,0.45771E-01_JPRB,0.43147E-01_JPRB /) |
1760 |
|
|
KA(:, 4, 4, 9) = (/ & |
1761 |
|
|
& 0.34503E-01_JPRB,0.38804E-01_JPRB,0.44698E-01_JPRB,0.48896E-01_JPRB,0.51278E-01_JPRB, & |
1762 |
|
✗ |
& 0.51724E-01_JPRB,0.50016E-01_JPRB,0.45686E-01_JPRB,0.43281E-01_JPRB /) |
1763 |
|
|
KA(:, 5, 4, 9) = (/ & |
1764 |
|
|
& 0.35339E-01_JPRB,0.39319E-01_JPRB,0.45124E-01_JPRB,0.49160E-01_JPRB,0.51368E-01_JPRB, & |
1765 |
|
✗ |
& 0.51672E-01_JPRB,0.49945E-01_JPRB,0.45702E-01_JPRB,0.43520E-01_JPRB /) |
1766 |
|
|
KA(:, 1, 5, 9) = (/ & |
1767 |
|
|
& 0.28453E-01_JPRB,0.34915E-01_JPRB,0.41400E-01_JPRB,0.46104E-01_JPRB,0.49014E-01_JPRB, & |
1768 |
|
✗ |
& 0.49952E-01_JPRB,0.48370E-01_JPRB,0.43932E-01_JPRB,0.39569E-01_JPRB /) |
1769 |
|
|
KA(:, 2, 5, 9) = (/ & |
1770 |
|
|
& 0.29434E-01_JPRB,0.35588E-01_JPRB,0.41893E-01_JPRB,0.46437E-01_JPRB,0.49144E-01_JPRB, & |
1771 |
|
✗ |
& 0.49919E-01_JPRB,0.48254E-01_JPRB,0.43775E-01_JPRB,0.39548E-01_JPRB /) |
1772 |
|
|
KA(:, 3, 5, 9) = (/ & |
1773 |
|
|
& 0.30340E-01_JPRB,0.36236E-01_JPRB,0.42373E-01_JPRB,0.46769E-01_JPRB,0.49255E-01_JPRB, & |
1774 |
|
✗ |
& 0.49873E-01_JPRB,0.48133E-01_JPRB,0.43667E-01_JPRB,0.39610E-01_JPRB /) |
1775 |
|
|
KA(:, 4, 5, 9) = (/ & |
1776 |
|
|
& 0.31178E-01_JPRB,0.36810E-01_JPRB,0.42835E-01_JPRB,0.47061E-01_JPRB,0.49370E-01_JPRB, & |
1777 |
|
✗ |
& 0.49827E-01_JPRB,0.48071E-01_JPRB,0.43623E-01_JPRB,0.39779E-01_JPRB /) |
1778 |
|
|
KA(:, 5, 5, 9) = (/ & |
1779 |
|
|
& 0.31999E-01_JPRB,0.37346E-01_JPRB,0.43284E-01_JPRB,0.47361E-01_JPRB,0.49516E-01_JPRB, & |
1780 |
|
✗ |
& 0.49857E-01_JPRB,0.48088E-01_JPRB,0.43666E-01_JPRB,0.40037E-01_JPRB /) |
1781 |
|
|
KA(:, 1, 6, 9) = (/ & |
1782 |
|
|
& 0.25421E-01_JPRB,0.32626E-01_JPRB,0.39116E-01_JPRB,0.43609E-01_JPRB,0.46371E-01_JPRB, & |
1783 |
|
✗ |
& 0.47186E-01_JPRB,0.45634E-01_JPRB,0.41276E-01_JPRB,0.35722E-01_JPRB /) |
1784 |
|
|
KA(:, 2, 6, 9) = (/ & |
1785 |
|
|
& 0.26347E-01_JPRB,0.33315E-01_JPRB,0.39629E-01_JPRB,0.44004E-01_JPRB,0.46570E-01_JPRB, & |
1786 |
|
✗ |
& 0.47251E-01_JPRB,0.45602E-01_JPRB,0.41217E-01_JPRB,0.35770E-01_JPRB /) |
1787 |
|
|
KA(:, 3, 6, 9) = (/ & |
1788 |
|
|
& 0.27211E-01_JPRB,0.33965E-01_JPRB,0.40142E-01_JPRB,0.44371E-01_JPRB,0.46737E-01_JPRB, & |
1789 |
|
✗ |
& 0.47271E-01_JPRB,0.45579E-01_JPRB,0.41184E-01_JPRB,0.35883E-01_JPRB /) |
1790 |
|
|
KA(:, 4, 6, 9) = (/ & |
1791 |
|
|
& 0.28013E-01_JPRB,0.34546E-01_JPRB,0.40641E-01_JPRB,0.44704E-01_JPRB,0.46903E-01_JPRB, & |
1792 |
|
✗ |
& 0.47305E-01_JPRB,0.45608E-01_JPRB,0.41201E-01_JPRB,0.36071E-01_JPRB /) |
1793 |
|
|
KA(:, 5, 6, 9) = (/ & |
1794 |
|
|
& 0.28777E-01_JPRB,0.35080E-01_JPRB,0.41083E-01_JPRB,0.45018E-01_JPRB,0.47083E-01_JPRB, & |
1795 |
|
✗ |
& 0.47404E-01_JPRB,0.45685E-01_JPRB,0.41273E-01_JPRB,0.36328E-01_JPRB /) |
1796 |
|
|
KA(:, 1, 7, 9) = (/ & |
1797 |
|
|
& 0.22628E-01_JPRB,0.30290E-01_JPRB,0.36520E-01_JPRB,0.40736E-01_JPRB,0.43195E-01_JPRB, & |
1798 |
|
✗ |
& 0.43894E-01_JPRB,0.42478E-01_JPRB,0.38357E-01_JPRB,0.31858E-01_JPRB /) |
1799 |
|
|
KA(:, 2, 7, 9) = (/ & |
1800 |
|
|
& 0.23496E-01_JPRB,0.30981E-01_JPRB,0.37071E-01_JPRB,0.41159E-01_JPRB,0.43459E-01_JPRB, & |
1801 |
|
✗ |
& 0.44039E-01_JPRB,0.42534E-01_JPRB,0.38366E-01_JPRB,0.31954E-01_JPRB /) |
1802 |
|
|
KA(:, 3, 7, 9) = (/ & |
1803 |
|
|
& 0.24311E-01_JPRB,0.31616E-01_JPRB,0.37614E-01_JPRB,0.41552E-01_JPRB,0.43690E-01_JPRB, & |
1804 |
|
✗ |
& 0.44135E-01_JPRB,0.42598E-01_JPRB,0.38398E-01_JPRB,0.32112E-01_JPRB /) |
1805 |
|
|
KA(:, 4, 7, 9) = (/ & |
1806 |
|
|
& 0.25081E-01_JPRB,0.32194E-01_JPRB,0.38124E-01_JPRB,0.41906E-01_JPRB,0.43917E-01_JPRB, & |
1807 |
|
✗ |
& 0.44249E-01_JPRB,0.42700E-01_JPRB,0.38476E-01_JPRB,0.32312E-01_JPRB /) |
1808 |
|
|
KA(:, 5, 7, 9) = (/ & |
1809 |
|
|
& 0.25796E-01_JPRB,0.32737E-01_JPRB,0.38583E-01_JPRB,0.42251E-01_JPRB,0.44147E-01_JPRB, & |
1810 |
|
✗ |
& 0.44425E-01_JPRB,0.42840E-01_JPRB,0.38587E-01_JPRB,0.32545E-01_JPRB /) |
1811 |
|
|
KA(:, 1, 8, 9) = (/ & |
1812 |
|
|
& 0.20122E-01_JPRB,0.27995E-01_JPRB,0.33719E-01_JPRB,0.37485E-01_JPRB,0.39621E-01_JPRB, & |
1813 |
|
✗ |
& 0.40226E-01_JPRB,0.38971E-01_JPRB,0.35214E-01_JPRB,0.28110E-01_JPRB /) |
1814 |
|
|
KA(:, 2, 8, 9) = (/ & |
1815 |
|
|
& 0.20930E-01_JPRB,0.28671E-01_JPRB,0.34304E-01_JPRB,0.37966E-01_JPRB,0.39957E-01_JPRB, & |
1816 |
|
✗ |
& 0.40447E-01_JPRB,0.39124E-01_JPRB,0.35304E-01_JPRB,0.28246E-01_JPRB /) |
1817 |
|
|
KA(:, 3, 8, 9) = (/ & |
1818 |
|
|
& 0.21692E-01_JPRB,0.29291E-01_JPRB,0.34870E-01_JPRB,0.38392E-01_JPRB,0.40254E-01_JPRB, & |
1819 |
|
✗ |
& 0.40624E-01_JPRB,0.39266E-01_JPRB,0.35403E-01_JPRB,0.28424E-01_JPRB /) |
1820 |
|
|
KA(:, 4, 8, 9) = (/ & |
1821 |
|
|
& 0.22396E-01_JPRB,0.29880E-01_JPRB,0.35388E-01_JPRB,0.38779E-01_JPRB,0.40528E-01_JPRB, & |
1822 |
|
✗ |
& 0.40815E-01_JPRB,0.39436E-01_JPRB,0.35538E-01_JPRB,0.28597E-01_JPRB /) |
1823 |
|
|
KA(:, 5, 8, 9) = (/ & |
1824 |
|
|
& 0.23064E-01_JPRB,0.30402E-01_JPRB,0.35848E-01_JPRB,0.39151E-01_JPRB,0.40824E-01_JPRB, & |
1825 |
|
✗ |
& 0.41057E-01_JPRB,0.39639E-01_JPRB,0.35669E-01_JPRB,0.28823E-01_JPRB /) |
1826 |
|
|
KA(:, 1, 9, 9) = (/ & |
1827 |
|
|
& 0.17909E-01_JPRB,0.25709E-01_JPRB,0.30840E-01_JPRB,0.34036E-01_JPRB,0.35851E-01_JPRB, & |
1828 |
|
✗ |
& 0.36360E-01_JPRB,0.35282E-01_JPRB,0.31947E-01_JPRB,0.24003E-01_JPRB /) |
1829 |
|
|
KA(:, 2, 9, 9) = (/ & |
1830 |
|
|
& 0.18652E-01_JPRB,0.26369E-01_JPRB,0.31431E-01_JPRB,0.34542E-01_JPRB,0.36244E-01_JPRB, & |
1831 |
|
✗ |
& 0.36648E-01_JPRB,0.35513E-01_JPRB,0.32109E-01_JPRB,0.24164E-01_JPRB /) |
1832 |
|
|
KA(:, 3, 9, 9) = (/ & |
1833 |
|
|
& 0.19344E-01_JPRB,0.26986E-01_JPRB,0.31997E-01_JPRB,0.35005E-01_JPRB,0.36599E-01_JPRB, & |
1834 |
|
✗ |
& 0.36904E-01_JPRB,0.35718E-01_JPRB,0.32277E-01_JPRB,0.24318E-01_JPRB /) |
1835 |
|
|
KA(:, 4, 9, 9) = (/ & |
1836 |
|
|
& 0.19991E-01_JPRB,0.27565E-01_JPRB,0.32506E-01_JPRB,0.35425E-01_JPRB,0.36934E-01_JPRB, & |
1837 |
|
✗ |
& 0.37163E-01_JPRB,0.35949E-01_JPRB,0.32440E-01_JPRB,0.24470E-01_JPRB /) |
1838 |
|
|
KA(:, 5, 9, 9) = (/ & |
1839 |
|
|
& 0.20615E-01_JPRB,0.28069E-01_JPRB,0.32961E-01_JPRB,0.35817E-01_JPRB,0.37281E-01_JPRB, & |
1840 |
|
✗ |
& 0.37462E-01_JPRB,0.36191E-01_JPRB,0.32591E-01_JPRB,0.24688E-01_JPRB /) |
1841 |
|
|
KA(:, 1,10, 9) = (/ & |
1842 |
|
|
& 0.16038E-01_JPRB,0.23520E-01_JPRB,0.27944E-01_JPRB,0.30612E-01_JPRB,0.32108E-01_JPRB, & |
1843 |
|
✗ |
& 0.32531E-01_JPRB,0.31594E-01_JPRB,0.28710E-01_JPRB,0.19040E-01_JPRB /) |
1844 |
|
|
KA(:, 2,10, 9) = (/ & |
1845 |
|
|
& 0.16702E-01_JPRB,0.24155E-01_JPRB,0.28537E-01_JPRB,0.31140E-01_JPRB,0.32544E-01_JPRB, & |
1846 |
|
✗ |
& 0.32858E-01_JPRB,0.31863E-01_JPRB,0.28938E-01_JPRB,0.19154E-01_JPRB /) |
1847 |
|
|
KA(:, 3,10, 9) = (/ & |
1848 |
|
|
& 0.17329E-01_JPRB,0.24747E-01_JPRB,0.29094E-01_JPRB,0.31618E-01_JPRB,0.32949E-01_JPRB, & |
1849 |
|
✗ |
& 0.33160E-01_JPRB,0.32119E-01_JPRB,0.29151E-01_JPRB,0.19214E-01_JPRB /) |
1850 |
|
|
KA(:, 4,10, 9) = (/ & |
1851 |
|
|
& 0.17922E-01_JPRB,0.25302E-01_JPRB,0.29595E-01_JPRB,0.32058E-01_JPRB,0.33330E-01_JPRB, & |
1852 |
|
✗ |
& 0.33472E-01_JPRB,0.32385E-01_JPRB,0.29320E-01_JPRB,0.19269E-01_JPRB /) |
1853 |
|
|
|
1854 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART6',1,ZHOOK_HANDLE) |
1855 |
|
✗ |
END SUBROUTINE PART6 |
1856 |
|
|
|
1857 |
|
|
|
1858 |
|
✗ |
SUBROUTINE PART7 |
1859 |
|
|
|
1860 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1861 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART7',0,ZHOOK_HANDLE) |
1862 |
|
|
|
1863 |
|
|
|
1864 |
|
|
KA(:, 5,10, 9) = (/ & |
1865 |
|
|
& 0.18489E-01_JPRB,0.25799E-01_JPRB,0.30045E-01_JPRB,0.32466E-01_JPRB,0.33700E-01_JPRB, & |
1866 |
|
✗ |
& 0.33812E-01_JPRB,0.32629E-01_JPRB,0.29481E-01_JPRB,0.19405E-01_JPRB /) |
1867 |
|
|
KA(:, 1,11, 9) = (/ & |
1868 |
|
|
& 0.14687E-01_JPRB,0.21702E-01_JPRB,0.25384E-01_JPRB,0.27570E-01_JPRB,0.28760E-01_JPRB, & |
1869 |
|
✗ |
& 0.29017E-01_JPRB,0.28178E-01_JPRB,0.25716E-01_JPRB,0.20195E-01_JPRB /) |
1870 |
|
|
KA(:, 2,11, 9) = (/ & |
1871 |
|
|
& 0.15274E-01_JPRB,0.22296E-01_JPRB,0.25944E-01_JPRB,0.28087E-01_JPRB,0.29202E-01_JPRB, & |
1872 |
|
✗ |
& 0.29352E-01_JPRB,0.28471E-01_JPRB,0.25960E-01_JPRB,0.20265E-01_JPRB /) |
1873 |
|
|
KA(:, 3,11, 9) = (/ & |
1874 |
|
|
& 0.15835E-01_JPRB,0.22836E-01_JPRB,0.26465E-01_JPRB,0.28550E-01_JPRB,0.29611E-01_JPRB, & |
1875 |
|
✗ |
& 0.29694E-01_JPRB,0.28754E-01_JPRB,0.26152E-01_JPRB,0.20296E-01_JPRB /) |
1876 |
|
|
KA(:, 4,11, 9) = (/ & |
1877 |
|
|
& 0.16357E-01_JPRB,0.23338E-01_JPRB,0.26927E-01_JPRB,0.28982E-01_JPRB,0.29998E-01_JPRB, & |
1878 |
|
✗ |
& 0.30045E-01_JPRB,0.29008E-01_JPRB,0.26312E-01_JPRB,0.20131E-01_JPRB /) |
1879 |
|
|
KA(:, 5,11, 9) = (/ & |
1880 |
|
|
& 0.16879E-01_JPRB,0.23791E-01_JPRB,0.27359E-01_JPRB,0.29394E-01_JPRB,0.30387E-01_JPRB, & |
1881 |
|
✗ |
& 0.30372E-01_JPRB,0.29268E-01_JPRB,0.26507E-01_JPRB,0.20180E-01_JPRB /) |
1882 |
|
|
KA(:, 1,12, 9) = (/ & |
1883 |
|
|
& 0.13435E-01_JPRB,0.19917E-01_JPRB,0.22947E-01_JPRB,0.24741E-01_JPRB,0.25656E-01_JPRB, & |
1884 |
|
✗ |
& 0.25762E-01_JPRB,0.25010E-01_JPRB,0.22879E-01_JPRB,0.21935E-01_JPRB /) |
1885 |
|
|
KA(:, 2,12, 9) = (/ & |
1886 |
|
|
& 0.13973E-01_JPRB,0.20460E-01_JPRB,0.23475E-01_JPRB,0.25221E-01_JPRB,0.26084E-01_JPRB, & |
1887 |
|
✗ |
& 0.26126E-01_JPRB,0.25297E-01_JPRB,0.23091E-01_JPRB,0.22096E-01_JPRB /) |
1888 |
|
|
KA(:, 3,12, 9) = (/ & |
1889 |
|
|
& 0.14481E-01_JPRB,0.20956E-01_JPRB,0.23951E-01_JPRB,0.25665E-01_JPRB,0.26486E-01_JPRB, & |
1890 |
|
✗ |
& 0.26478E-01_JPRB,0.25558E-01_JPRB,0.23263E-01_JPRB,0.22257E-01_JPRB /) |
1891 |
|
|
KA(:, 4,12, 9) = (/ & |
1892 |
|
|
& 0.14966E-01_JPRB,0.21408E-01_JPRB,0.24388E-01_JPRB,0.26079E-01_JPRB,0.26872E-01_JPRB, & |
1893 |
|
✗ |
& 0.26802E-01_JPRB,0.25814E-01_JPRB,0.23444E-01_JPRB,0.22244E-01_JPRB /) |
1894 |
|
|
KA(:, 5,12, 9) = (/ & |
1895 |
|
|
& 0.15448E-01_JPRB,0.21834E-01_JPRB,0.24813E-01_JPRB,0.26492E-01_JPRB,0.27230E-01_JPRB, & |
1896 |
|
✗ |
& 0.27128E-01_JPRB,0.26103E-01_JPRB,0.23676E-01_JPRB,0.22318E-01_JPRB /) |
1897 |
|
|
KA(:, 1,13, 9) = (/ & |
1898 |
|
|
& 0.12253E-01_JPRB,0.18169E-01_JPRB,0.20712E-01_JPRB,0.22143E-01_JPRB,0.22829E-01_JPRB, & |
1899 |
|
✗ |
& 0.22840E-01_JPRB,0.22092E-01_JPRB,0.20210E-01_JPRB,0.22350E-01_JPRB /) |
1900 |
|
|
KA(:, 2,13, 9) = (/ & |
1901 |
|
|
& 0.12752E-01_JPRB,0.18675E-01_JPRB,0.21188E-01_JPRB,0.22590E-01_JPRB,0.23242E-01_JPRB, & |
1902 |
|
✗ |
& 0.23184E-01_JPRB,0.22356E-01_JPRB,0.20395E-01_JPRB,0.22569E-01_JPRB /) |
1903 |
|
|
KA(:, 3,13, 9) = (/ & |
1904 |
|
|
& 0.13220E-01_JPRB,0.19134E-01_JPRB,0.21627E-01_JPRB,0.23007E-01_JPRB,0.23621E-01_JPRB, & |
1905 |
|
✗ |
& 0.23502E-01_JPRB,0.22612E-01_JPRB,0.20571E-01_JPRB,0.22750E-01_JPRB /) |
1906 |
|
|
KA(:, 4,13, 9) = (/ & |
1907 |
|
|
& 0.13675E-01_JPRB,0.19566E-01_JPRB,0.22044E-01_JPRB,0.23405E-01_JPRB,0.23969E-01_JPRB, & |
1908 |
|
✗ |
& 0.23813E-01_JPRB,0.22875E-01_JPRB,0.20780E-01_JPRB,0.22726E-01_JPRB /) |
1909 |
|
|
KA(:, 5,13, 9) = (/ & |
1910 |
|
|
& 0.14122E-01_JPRB,0.19976E-01_JPRB,0.22454E-01_JPRB,0.23786E-01_JPRB,0.24318E-01_JPRB, & |
1911 |
|
✗ |
& 0.24140E-01_JPRB,0.23183E-01_JPRB,0.21041E-01_JPRB,0.22784E-01_JPRB /) |
1912 |
|
|
KA(:, 1, 1,10) = (/ & |
1913 |
|
|
& 0.14776E+00_JPRB,0.13250E+00_JPRB,0.11877E+00_JPRB,0.11907E+00_JPRB,0.11538E+00_JPRB, & |
1914 |
|
✗ |
& 0.11234E+00_JPRB,0.10926E+00_JPRB,0.11039E+00_JPRB,0.12102E+00_JPRB /) |
1915 |
|
|
KA(:, 2, 1,10) = (/ & |
1916 |
|
|
& 0.14758E+00_JPRB,0.13180E+00_JPRB,0.11760E+00_JPRB,0.11720E+00_JPRB,0.11379E+00_JPRB, & |
1917 |
|
✗ |
& 0.11206E+00_JPRB,0.10856E+00_JPRB,0.11029E+00_JPRB,0.12093E+00_JPRB /) |
1918 |
|
|
KA(:, 3, 1,10) = (/ & |
1919 |
|
|
& 0.14691E+00_JPRB,0.13078E+00_JPRB,0.11629E+00_JPRB,0.11563E+00_JPRB,0.11248E+00_JPRB, & |
1920 |
|
✗ |
& 0.11149E+00_JPRB,0.10785E+00_JPRB,0.11040E+00_JPRB,0.12104E+00_JPRB /) |
1921 |
|
|
KA(:, 4, 1,10) = (/ & |
1922 |
|
|
& 0.14609E+00_JPRB,0.12985E+00_JPRB,0.11503E+00_JPRB,0.11426E+00_JPRB,0.11150E+00_JPRB, & |
1923 |
|
✗ |
& 0.11061E+00_JPRB,0.10739E+00_JPRB,0.11031E+00_JPRB,0.12092E+00_JPRB /) |
1924 |
|
|
KA(:, 5, 1,10) = (/ & |
1925 |
|
|
& 0.14529E+00_JPRB,0.12911E+00_JPRB,0.11448E+00_JPRB,0.11310E+00_JPRB,0.11058E+00_JPRB, & |
1926 |
|
✗ |
& 0.10959E+00_JPRB,0.10721E+00_JPRB,0.11007E+00_JPRB,0.12050E+00_JPRB /) |
1927 |
|
|
KA(:, 1, 2,10) = (/ & |
1928 |
|
|
& 0.14616E+00_JPRB,0.13131E+00_JPRB,0.12350E+00_JPRB,0.12510E+00_JPRB,0.11934E+00_JPRB, & |
1929 |
|
✗ |
& 0.11762E+00_JPRB,0.11417E+00_JPRB,0.11460E+00_JPRB,0.12626E+00_JPRB /) |
1930 |
|
|
KA(:, 2, 2,10) = (/ & |
1931 |
|
|
& 0.14607E+00_JPRB,0.13063E+00_JPRB,0.12202E+00_JPRB,0.12312E+00_JPRB,0.11789E+00_JPRB, & |
1932 |
|
✗ |
& 0.11742E+00_JPRB,0.11363E+00_JPRB,0.11470E+00_JPRB,0.12636E+00_JPRB /) |
1933 |
|
|
KA(:, 3, 2,10) = (/ & |
1934 |
|
|
& 0.14577E+00_JPRB,0.12991E+00_JPRB,0.12074E+00_JPRB,0.12132E+00_JPRB,0.11671E+00_JPRB, & |
1935 |
|
✗ |
& 0.11676E+00_JPRB,0.11334E+00_JPRB,0.11448E+00_JPRB,0.12602E+00_JPRB /) |
1936 |
|
|
KA(:, 4, 2,10) = (/ & |
1937 |
|
|
& 0.14549E+00_JPRB,0.12948E+00_JPRB,0.11982E+00_JPRB,0.11971E+00_JPRB,0.11561E+00_JPRB, & |
1938 |
|
✗ |
& 0.11583E+00_JPRB,0.11311E+00_JPRB,0.11380E+00_JPRB,0.12515E+00_JPRB /) |
1939 |
|
|
KA(:, 5, 2,10) = (/ & |
1940 |
|
|
& 0.14518E+00_JPRB,0.12921E+00_JPRB,0.11930E+00_JPRB,0.11856E+00_JPRB,0.11453E+00_JPRB, & |
1941 |
|
✗ |
& 0.11499E+00_JPRB,0.11278E+00_JPRB,0.11303E+00_JPRB,0.12425E+00_JPRB /) |
1942 |
|
|
KA(:, 1, 3,10) = (/ & |
1943 |
|
|
& 0.14318E+00_JPRB,0.12893E+00_JPRB,0.12918E+00_JPRB,0.12942E+00_JPRB,0.12491E+00_JPRB, & |
1944 |
|
✗ |
& 0.12238E+00_JPRB,0.11842E+00_JPRB,0.11706E+00_JPRB,0.12892E+00_JPRB /) |
1945 |
|
|
KA(:, 2, 3,10) = (/ & |
1946 |
|
|
& 0.14362E+00_JPRB,0.12877E+00_JPRB,0.12794E+00_JPRB,0.12738E+00_JPRB,0.12367E+00_JPRB, & |
1947 |
|
✗ |
& 0.12214E+00_JPRB,0.11818E+00_JPRB,0.11730E+00_JPRB,0.12892E+00_JPRB /) |
1948 |
|
|
KA(:, 3, 3,10) = (/ & |
1949 |
|
|
& 0.14392E+00_JPRB,0.12859E+00_JPRB,0.12673E+00_JPRB,0.12555E+00_JPRB,0.12238E+00_JPRB, & |
1950 |
|
✗ |
& 0.12154E+00_JPRB,0.11804E+00_JPRB,0.11693E+00_JPRB,0.12825E+00_JPRB /) |
1951 |
|
|
KA(:, 4, 3,10) = (/ & |
1952 |
|
|
& 0.14418E+00_JPRB,0.12858E+00_JPRB,0.12588E+00_JPRB,0.12406E+00_JPRB,0.12111E+00_JPRB, & |
1953 |
|
✗ |
& 0.12100E+00_JPRB,0.11768E+00_JPRB,0.11605E+00_JPRB,0.12723E+00_JPRB /) |
1954 |
|
|
KA(:, 5, 3,10) = (/ & |
1955 |
|
|
& 0.14433E+00_JPRB,0.12868E+00_JPRB,0.12520E+00_JPRB,0.12307E+00_JPRB,0.11981E+00_JPRB, & |
1956 |
|
✗ |
& 0.12050E+00_JPRB,0.11702E+00_JPRB,0.11519E+00_JPRB,0.12642E+00_JPRB /) |
1957 |
|
|
KA(:, 1, 4,10) = (/ & |
1958 |
|
|
& 0.13900E+00_JPRB,0.12627E+00_JPRB,0.13262E+00_JPRB,0.13246E+00_JPRB,0.13018E+00_JPRB, & |
1959 |
|
✗ |
& 0.12656E+00_JPRB,0.12207E+00_JPRB,0.11856E+00_JPRB,0.12927E+00_JPRB /) |
1960 |
|