Line |
Branch |
Exec |
Source |
1 |
|
|
!OCL SCALAR |
2 |
|
|
!pgi$r opt=0 |
3 |
|
✗ |
SUBROUTINE SRTM_KGB18 |
4 |
|
|
|
5 |
|
|
! Originally by J.Delamere, Atmospheric & Environmental Research. |
6 |
|
|
! Revision: 2.4 |
7 |
|
|
! BAND 18: 4000-4650 cm-1 (low - H2O,CH4; high - CH4) |
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 YOESRTA18, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT & |
17 |
|
|
& , LAYREFFR |
18 |
|
|
|
19 |
|
|
! ------------------------------------------------------------------ |
20 |
|
|
|
21 |
|
|
IMPLICIT NONE |
22 |
|
|
|
23 |
|
|
! KURUCZ |
24 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
25 |
|
|
|
26 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18',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_KGB18',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_KGB18:PART1',0,ZHOOK_HANDLE) |
57 |
|
|
|
58 |
|
|
|
59 |
|
|
SFLUXREF(:,1) = (/ & |
60 |
|
|
& 3.65840_JPRB , 3.54375_JPRB , 3.34481_JPRB , 3.10534_JPRB , & |
61 |
|
|
& 2.79879_JPRB , 2.42841_JPRB , 1.98748_JPRB , 1.49377_JPRB , & |
62 |
|
|
& 1.00196_JPRB , 0.108342_JPRB , 8.95099E-02_JPRB, 7.05199E-02_JPRB, & |
63 |
|
✗ |
& 5.16432E-02_JPRB, 3.27635E-02_JPRB, 1.25133E-02_JPRB, 1.73001E-03_JPRB /) |
64 |
|
|
SFLUXREF(:,2) = (/ & |
65 |
|
|
& 3.86372_JPRB , 3.48521_JPRB , 3.30790_JPRB , 3.08103_JPRB , & |
66 |
|
|
& 2.77552_JPRB , 2.40722_JPRB , 1.97307_JPRB , 1.48023_JPRB , & |
67 |
|
|
& 0.993055_JPRB , 0.107691_JPRB , 8.84430E-02_JPRB, 6.99354E-02_JPRB, & |
68 |
|
✗ |
& 5.07881E-02_JPRB, 3.24121E-02_JPRB, 1.19442E-02_JPRB, 1.57612E-03_JPRB /) |
69 |
|
|
SFLUXREF(:,3) = (/ & |
70 |
|
|
& 3.90370_JPRB , 3.50657_JPRB , 3.30629_JPRB , 3.06046_JPRB , & |
71 |
|
|
& 2.76982_JPRB , 2.39907_JPRB , 1.96358_JPRB , 1.47458_JPRB , & |
72 |
|
|
& 0.988475_JPRB , 0.106698_JPRB , 8.75242E-02_JPRB, 6.85898E-02_JPRB, & |
73 |
|
✗ |
& 5.04798E-02_JPRB, 3.13718E-02_JPRB, 1.09533E-02_JPRB, 1.57612E-03_JPRB /) |
74 |
|
|
SFLUXREF(:,4) = (/ & |
75 |
|
|
& 3.93165_JPRB , 3.52058_JPRB , 3.31346_JPRB , 3.04944_JPRB , & |
76 |
|
|
& 2.76074_JPRB , 2.39433_JPRB , 1.95556_JPRB , 1.46712_JPRB , & |
77 |
|
|
& 0.984056_JPRB , 0.105885_JPRB , 8.73062E-02_JPRB, 6.84054E-02_JPRB, & |
78 |
|
✗ |
& 4.87443E-02_JPRB, 2.99295E-02_JPRB, 1.09533E-02_JPRB, 1.57612E-03_JPRB /) |
79 |
|
|
SFLUXREF(:,5) = (/ & |
80 |
|
|
& 3.94082_JPRB , 3.55221_JPRB , 3.31863_JPRB , 3.04730_JPRB , & |
81 |
|
|
& 2.74918_JPRB , 2.38328_JPRB , 1.95212_JPRB , 1.45889_JPRB , & |
82 |
|
|
& 0.978888_JPRB , 0.105102_JPRB , 8.65732E-02_JPRB, 6.74563E-02_JPRB, & |
83 |
|
✗ |
& 4.76592E-02_JPRB, 2.91017E-02_JPRB, 1.09533E-02_JPRB, 1.57612E-03_JPRB /) |
84 |
|
|
SFLUXREF(:,6) = (/ & |
85 |
|
|
& 3.94198_JPRB , 3.58743_JPRB , 3.32106_JPRB , 3.05866_JPRB , & |
86 |
|
|
& 2.74115_JPRB , 2.36939_JPRB , 1.94305_JPRB , 1.45180_JPRB , & |
87 |
|
|
& 0.971784_JPRB , 1.04045E-01_JPRB, 8.53731E-02_JPRB, 6.60654E-02_JPRB, & |
88 |
|
✗ |
& 4.63228E-02_JPRB, 2.91016E-02_JPRB, 1.09552E-02_JPRB, 1.57612E-03_JPRB /) |
89 |
|
|
SFLUXREF(:,7) = (/ & |
90 |
|
|
& 3.93596_JPRB , 3.63366_JPRB , 3.33144_JPRB , 3.06252_JPRB , & |
91 |
|
|
& 2.74054_JPRB , 2.35492_JPRB , 1.92769_JPRB , 1.44300_JPRB , & |
92 |
|
|
& 0.961809_JPRB , 1.02867E-01_JPRB, 8.34164E-02_JPRB, 6.41005E-02_JPRB, & |
93 |
|
✗ |
& 4.61826E-02_JPRB, 2.91006E-02_JPRB, 1.09553E-02_JPRB, 1.57612E-03_JPRB /) |
94 |
|
|
SFLUXREF(:,8) = (/ & |
95 |
|
|
& 3.92520_JPRB , 3.69078_JPRB , 3.35656_JPRB , 3.07055_JPRB , & |
96 |
|
|
& 2.73862_JPRB , 2.34430_JPRB , 1.90187_JPRB , 1.42242_JPRB , & |
97 |
|
|
& 0.946676_JPRB , 9.96302E-02_JPRB, 8.14421E-02_JPRB, 6.38622E-02_JPRB, & |
98 |
|
✗ |
& 4.61794E-02_JPRB, 2.91017E-02_JPRB, 1.09553E-02_JPRB, 1.57612E-03_JPRB /) |
99 |
|
|
SFLUXREF(:,9) = (/ & |
100 |
|
|
& 3.80721_JPRB , 3.74437_JPRB , 3.50205_JPRB , 3.18009_JPRB , & |
101 |
|
|
& 2.75757_JPRB , 2.29188_JPRB , 1.84382_JPRB , 1.35694_JPRB , & |
102 |
|
|
& 0.914040_JPRB , 9.86811E-02_JPRB, 8.14321E-02_JPRB, 6.38541E-02_JPRB, & |
103 |
|
✗ |
& 4.61795E-02_JPRB, 2.90960E-02_JPRB, 1.09613E-02_JPRB, 1.57612E-03_JPRB /) |
104 |
|
|
|
105 |
|
|
! Rayleigh extinction coefficient at v = 4325 cm-1. |
106 |
|
✗ |
RAYL = 1.39E-09_JPRB |
107 |
|
|
|
108 |
|
✗ |
STRRAT = 38.9589_JPRB |
109 |
|
|
|
110 |
|
✗ |
LAYREFFR = 6 |
111 |
|
|
|
112 |
|
|
! ------------------------------------------------------------------ |
113 |
|
|
|
114 |
|
|
! The array KA contains absorption coefs at the 16 chosen g-values |
115 |
|
|
! for a range of pressure levels> ~100mb, temperatures, and binary |
116 |
|
|
! species parameters (see taumol.f for definition). The first |
117 |
|
|
! index in the array, JS, runs from 1 to 9, and corresponds to |
118 |
|
|
! different values of the binary species parameter. For instance, |
119 |
|
|
! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, |
120 |
|
|
! JS = 3 corresponds to the parameter value 2/8, etc. The second index |
121 |
|
|
! in the array, JT, which runs from 1 to 5, corresponds to different |
122 |
|
|
! temperatures. More specifically, JT = 3 means that the data are for |
123 |
|
|
! the reference temperature TREF for this pressure level, JT = 2 refers |
124 |
|
|
! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 |
125 |
|
|
! is for TREF+30. The third index, JP, runs from 1 to 13 and refers |
126 |
|
|
! to the JPth reference pressure level (see taumol.f for these levels |
127 |
|
|
! in mb). The fourth index, IG, goes from 1 to 16, and indicates |
128 |
|
|
! which g-interval the absorption coefficients are for. |
129 |
|
|
! ----------------------------------------------------------------- |
130 |
|
|
|
131 |
|
|
KA(:, 1, 1, 1) = (/ & |
132 |
|
|
& 0.14813E-04_JPRB,0.39842E-04_JPRB,0.43362E-04_JPRB,0.43095E-04_JPRB,0.39811E-04_JPRB, & |
133 |
|
✗ |
& 0.34994E-04_JPRB,0.28984E-04_JPRB,0.20609E-04_JPRB,0.18845E-05_JPRB /) |
134 |
|
|
KA(:, 2, 1, 1) = (/ & |
135 |
|
|
& 0.14432E-04_JPRB,0.38749E-04_JPRB,0.42119E-04_JPRB,0.41834E-04_JPRB,0.38900E-04_JPRB, & |
136 |
|
✗ |
& 0.34365E-04_JPRB,0.28571E-04_JPRB,0.20503E-04_JPRB,0.14715E-05_JPRB /) |
137 |
|
|
KA(:, 3, 1, 1) = (/ & |
138 |
|
|
& 0.13969E-04_JPRB,0.37666E-04_JPRB,0.40942E-04_JPRB,0.40703E-04_JPRB,0.37982E-04_JPRB, & |
139 |
|
✗ |
& 0.33731E-04_JPRB,0.28158E-04_JPRB,0.20351E-04_JPRB,0.10842E-05_JPRB /) |
140 |
|
|
KA(:, 4, 1, 1) = (/ & |
141 |
|
|
& 0.13367E-04_JPRB,0.36605E-04_JPRB,0.39729E-04_JPRB,0.39529E-04_JPRB,0.37033E-04_JPRB, & |
142 |
|
✗ |
& 0.33096E-04_JPRB,0.27690E-04_JPRB,0.20154E-04_JPRB,0.78702E-06_JPRB /) |
143 |
|
|
KA(:, 5, 1, 1) = (/ & |
144 |
|
|
& 0.12765E-04_JPRB,0.35584E-04_JPRB,0.38536E-04_JPRB,0.38361E-04_JPRB,0.36073E-04_JPRB, & |
145 |
|
✗ |
& 0.32384E-04_JPRB,0.27242E-04_JPRB,0.19932E-04_JPRB,0.58296E-06_JPRB /) |
146 |
|
|
KA(:, 1, 2, 1) = (/ & |
147 |
|
|
& 0.12299E-04_JPRB,0.34179E-04_JPRB,0.37405E-04_JPRB,0.37535E-04_JPRB,0.34714E-04_JPRB, & |
148 |
|
✗ |
& 0.30335E-04_JPRB,0.24892E-04_JPRB,0.17524E-04_JPRB,0.13301E-05_JPRB /) |
149 |
|
|
KA(:, 2, 2, 1) = (/ & |
150 |
|
|
& 0.12064E-04_JPRB,0.33225E-04_JPRB,0.36357E-04_JPRB,0.36512E-04_JPRB,0.33870E-04_JPRB, & |
151 |
|
✗ |
& 0.29789E-04_JPRB,0.24578E-04_JPRB,0.17435E-04_JPRB,0.10217E-05_JPRB /) |
152 |
|
|
KA(:, 3, 2, 1) = (/ & |
153 |
|
|
& 0.11697E-04_JPRB,0.32301E-04_JPRB,0.35316E-04_JPRB,0.35481E-04_JPRB,0.33049E-04_JPRB, & |
154 |
|
✗ |
& 0.29226E-04_JPRB,0.24233E-04_JPRB,0.17304E-04_JPRB,0.72152E-06_JPRB /) |
155 |
|
|
KA(:, 4, 2, 1) = (/ & |
156 |
|
|
& 0.11209E-04_JPRB,0.31395E-04_JPRB,0.34263E-04_JPRB,0.34436E-04_JPRB,0.32173E-04_JPRB, & |
157 |
|
✗ |
& 0.28610E-04_JPRB,0.23847E-04_JPRB,0.17161E-04_JPRB,0.51787E-06_JPRB /) |
158 |
|
|
KA(:, 5, 2, 1) = (/ & |
159 |
|
|
& 0.10706E-04_JPRB,0.30496E-04_JPRB,0.33311E-04_JPRB,0.33396E-04_JPRB,0.31295E-04_JPRB, & |
160 |
|
✗ |
& 0.28002E-04_JPRB,0.23445E-04_JPRB,0.16971E-04_JPRB,0.40230E-06_JPRB /) |
161 |
|
|
KA(:, 1, 3, 1) = (/ & |
162 |
|
|
& 0.10271E-04_JPRB,0.29273E-04_JPRB,0.32049E-04_JPRB,0.32365E-04_JPRB,0.29857E-04_JPRB, & |
163 |
|
✗ |
& 0.26171E-04_JPRB,0.21352E-04_JPRB,0.14814E-04_JPRB,0.80470E-06_JPRB /) |
164 |
|
|
KA(:, 2, 3, 1) = (/ & |
165 |
|
|
& 0.10058E-04_JPRB,0.28458E-04_JPRB,0.31196E-04_JPRB,0.31440E-04_JPRB,0.29133E-04_JPRB, & |
166 |
|
✗ |
& 0.25640E-04_JPRB,0.21056E-04_JPRB,0.14756E-04_JPRB,0.53010E-06_JPRB /) |
167 |
|
|
KA(:, 3, 3, 1) = (/ & |
168 |
|
|
& 0.98172E-05_JPRB,0.27651E-04_JPRB,0.30352E-04_JPRB,0.30609E-04_JPRB,0.28396E-04_JPRB, & |
169 |
|
✗ |
& 0.25110E-04_JPRB,0.20730E-04_JPRB,0.14655E-04_JPRB,0.38652E-06_JPRB /) |
170 |
|
|
KA(:, 4, 3, 1) = (/ & |
171 |
|
|
& 0.94577E-05_JPRB,0.26874E-04_JPRB,0.29475E-04_JPRB,0.29749E-04_JPRB,0.27669E-04_JPRB, & |
172 |
|
✗ |
& 0.24553E-04_JPRB,0.20400E-04_JPRB,0.14536E-04_JPRB,0.33236E-06_JPRB /) |
173 |
|
|
KA(:, 5, 3, 1) = (/ & |
174 |
|
|
& 0.90508E-05_JPRB,0.26128E-04_JPRB,0.28631E-04_JPRB,0.28834E-04_JPRB,0.26952E-04_JPRB, & |
175 |
|
✗ |
& 0.24015E-04_JPRB,0.20045E-04_JPRB,0.14382E-04_JPRB,0.30659E-06_JPRB /) |
176 |
|
|
KA(:, 1, 4, 1) = (/ & |
177 |
|
|
& 0.86081E-05_JPRB,0.24897E-04_JPRB,0.27317E-04_JPRB,0.27632E-04_JPRB,0.25465E-04_JPRB, & |
178 |
|
✗ |
& 0.22328E-04_JPRB,0.18112E-04_JPRB,0.12468E-04_JPRB,0.39286E-06_JPRB /) |
179 |
|
|
KA(:, 2, 4, 1) = (/ & |
180 |
|
|
& 0.83793E-05_JPRB,0.24273E-04_JPRB,0.26590E-04_JPRB,0.26865E-04_JPRB,0.24876E-04_JPRB, & |
181 |
|
✗ |
& 0.21867E-04_JPRB,0.17849E-04_JPRB,0.12420E-04_JPRB,0.32266E-06_JPRB /) |
182 |
|
|
KA(:, 3, 4, 1) = (/ & |
183 |
|
|
& 0.82296E-05_JPRB,0.23584E-04_JPRB,0.25869E-04_JPRB,0.26155E-04_JPRB,0.24255E-04_JPRB, & |
184 |
|
✗ |
& 0.21403E-04_JPRB,0.17579E-04_JPRB,0.12338E-04_JPRB,0.30775E-06_JPRB /) |
185 |
|
|
KA(:, 4, 4, 1) = (/ & |
186 |
|
|
& 0.79731E-05_JPRB,0.22915E-04_JPRB,0.25166E-04_JPRB,0.25435E-04_JPRB,0.23627E-04_JPRB, & |
187 |
|
✗ |
& 0.20917E-04_JPRB,0.17282E-04_JPRB,0.12242E-04_JPRB,0.30418E-06_JPRB /) |
188 |
|
|
KA(:, 5, 4, 1) = (/ & |
189 |
|
|
& 0.76553E-05_JPRB,0.22259E-04_JPRB,0.24440E-04_JPRB,0.24673E-04_JPRB,0.23003E-04_JPRB, & |
190 |
|
✗ |
& 0.20437E-04_JPRB,0.16984E-04_JPRB,0.12112E-04_JPRB,0.30638E-06_JPRB /) |
191 |
|
|
KA(:, 1, 5, 1) = (/ & |
192 |
|
|
& 0.72259E-05_JPRB,0.21089E-04_JPRB,0.23177E-04_JPRB,0.23419E-04_JPRB,0.21584E-04_JPRB, & |
193 |
|
✗ |
& 0.18926E-04_JPRB,0.15251E-04_JPRB,0.10417E-04_JPRB,0.25170E-06_JPRB /) |
194 |
|
|
KA(:, 2, 5, 1) = (/ & |
195 |
|
|
& 0.70215E-05_JPRB,0.20567E-04_JPRB,0.22541E-04_JPRB,0.22788E-04_JPRB,0.21102E-04_JPRB, & |
196 |
|
✗ |
& 0.18526E-04_JPRB,0.15049E-04_JPRB,0.10379E-04_JPRB,0.25958E-06_JPRB /) |
197 |
|
|
KA(:, 3, 5, 1) = (/ & |
198 |
|
|
& 0.68490E-05_JPRB,0.20018E-04_JPRB,0.21938E-04_JPRB,0.22206E-04_JPRB,0.20579E-04_JPRB, & |
199 |
|
✗ |
& 0.18139E-04_JPRB,0.14806E-04_JPRB,0.10313E-04_JPRB,0.26666E-06_JPRB /) |
200 |
|
|
KA(:, 4, 5, 1) = (/ & |
201 |
|
|
& 0.66973E-05_JPRB,0.19444E-04_JPRB,0.21340E-04_JPRB,0.21615E-04_JPRB,0.20070E-04_JPRB, & |
202 |
|
✗ |
& 0.17728E-04_JPRB,0.14554E-04_JPRB,0.10239E-04_JPRB,0.28589E-06_JPRB /) |
203 |
|
|
KA(:, 5, 5, 1) = (/ & |
204 |
|
|
& 0.64808E-05_JPRB,0.18883E-04_JPRB,0.20738E-04_JPRB,0.20994E-04_JPRB,0.19546E-04_JPRB, & |
205 |
|
✗ |
& 0.17304E-04_JPRB,0.14306E-04_JPRB,0.10148E-04_JPRB,0.30886E-06_JPRB /) |
206 |
|
|
KA(:, 1, 6, 1) = (/ & |
207 |
|
|
& 0.60727E-05_JPRB,0.17794E-04_JPRB,0.19609E-04_JPRB,0.19769E-04_JPRB,0.18228E-04_JPRB, & |
208 |
|
✗ |
& 0.15946E-04_JPRB,0.12793E-04_JPRB,0.86559E-05_JPRB,0.18559E-06_JPRB /) |
209 |
|
|
KA(:, 2, 6, 1) = (/ & |
210 |
|
|
& 0.58949E-05_JPRB,0.17390E-04_JPRB,0.19059E-04_JPRB,0.19244E-04_JPRB,0.17820E-04_JPRB, & |
211 |
|
✗ |
& 0.15647E-04_JPRB,0.12626E-04_JPRB,0.86354E-05_JPRB,0.19544E-06_JPRB /) |
212 |
|
|
KA(:, 3, 6, 1) = (/ & |
213 |
|
|
& 0.57268E-05_JPRB,0.16935E-04_JPRB,0.18564E-04_JPRB,0.18724E-04_JPRB,0.17402E-04_JPRB, & |
214 |
|
✗ |
& 0.15304E-04_JPRB,0.12433E-04_JPRB,0.85882E-05_JPRB,0.22033E-06_JPRB /) |
215 |
|
|
KA(:, 4, 6, 1) = (/ & |
216 |
|
|
& 0.56243E-05_JPRB,0.16459E-04_JPRB,0.18054E-04_JPRB,0.18263E-04_JPRB,0.16984E-04_JPRB, & |
217 |
|
✗ |
& 0.14971E-04_JPRB,0.12215E-04_JPRB,0.85268E-05_JPRB,0.25072E-06_JPRB /) |
218 |
|
|
KA(:, 5, 6, 1) = (/ & |
219 |
|
|
& 0.54584E-05_JPRB,0.15984E-04_JPRB,0.17548E-04_JPRB,0.17773E-04_JPRB,0.16551E-04_JPRB, & |
220 |
|
✗ |
& 0.14601E-04_JPRB,0.12004E-04_JPRB,0.84568E-05_JPRB,0.28110E-06_JPRB /) |
221 |
|
|
KA(:, 1, 7, 1) = (/ & |
222 |
|
|
& 0.50624E-05_JPRB,0.14963E-04_JPRB,0.16482E-04_JPRB,0.16611E-04_JPRB,0.15339E-04_JPRB, & |
223 |
|
✗ |
& 0.13333E-04_JPRB,0.10656E-04_JPRB,0.71570E-05_JPRB,0.13453E-06_JPRB /) |
224 |
|
|
KA(:, 2, 7, 1) = (/ & |
225 |
|
|
& 0.49428E-05_JPRB,0.14636E-04_JPRB,0.16040E-04_JPRB,0.16181E-04_JPRB,0.14992E-04_JPRB, & |
226 |
|
✗ |
& 0.13144E-04_JPRB,0.10533E-04_JPRB,0.71532E-05_JPRB,0.15620E-06_JPRB /) |
227 |
|
|
KA(:, 3, 7, 1) = (/ & |
228 |
|
|
& 0.47955E-05_JPRB,0.14256E-04_JPRB,0.15611E-04_JPRB,0.15735E-04_JPRB,0.14643E-04_JPRB, & |
229 |
|
✗ |
& 0.12865E-04_JPRB,0.10390E-04_JPRB,0.71248E-05_JPRB,0.18571E-06_JPRB /) |
230 |
|
|
KA(:, 4, 7, 1) = (/ & |
231 |
|
|
& 0.46743E-05_JPRB,0.13876E-04_JPRB,0.15213E-04_JPRB,0.15342E-04_JPRB,0.14293E-04_JPRB, & |
232 |
|
✗ |
& 0.12576E-04_JPRB,0.10215E-04_JPRB,0.70735E-05_JPRB,0.21382E-06_JPRB /) |
233 |
|
|
KA(:, 5, 7, 1) = (/ & |
234 |
|
|
& 0.45708E-05_JPRB,0.13473E-04_JPRB,0.14782E-04_JPRB,0.14947E-04_JPRB,0.13933E-04_JPRB, & |
235 |
|
✗ |
& 0.12274E-04_JPRB,0.10036E-04_JPRB,0.70177E-05_JPRB,0.24419E-06_JPRB /) |
236 |
|
|
KA(:, 1, 8, 1) = (/ & |
237 |
|
|
& 0.42289E-05_JPRB,0.12528E-04_JPRB,0.13817E-04_JPRB,0.13922E-04_JPRB,0.12867E-04_JPRB, & |
238 |
|
✗ |
& 0.11126E-04_JPRB,0.88468E-05_JPRB,0.59010E-05_JPRB,0.10600E-06_JPRB /) |
239 |
|
|
KA(:, 2, 8, 1) = (/ & |
240 |
|
|
& 0.41319E-05_JPRB,0.12286E-04_JPRB,0.13480E-04_JPRB,0.13582E-04_JPRB,0.12584E-04_JPRB, & |
241 |
|
✗ |
& 0.10973E-04_JPRB,0.87644E-05_JPRB,0.59049E-05_JPRB,0.12951E-06_JPRB /) |
242 |
|
|
KA(:, 3, 8, 1) = (/ & |
243 |
|
|
& 0.40317E-05_JPRB,0.11996E-04_JPRB,0.13116E-04_JPRB,0.13206E-04_JPRB,0.12295E-04_JPRB, & |
244 |
|
✗ |
& 0.10786E-04_JPRB,0.86537E-05_JPRB,0.58898E-05_JPRB,0.15731E-06_JPRB /) |
245 |
|
|
KA(:, 4, 8, 1) = (/ & |
246 |
|
|
& 0.39107E-05_JPRB,0.11666E-04_JPRB,0.12771E-04_JPRB,0.12870E-04_JPRB,0.12010E-04_JPRB, & |
247 |
|
✗ |
& 0.10546E-04_JPRB,0.85244E-05_JPRB,0.58536E-05_JPRB,0.18716E-06_JPRB /) |
248 |
|
|
KA(:, 5, 8, 1) = (/ & |
249 |
|
|
& 0.38384E-05_JPRB,0.11346E-04_JPRB,0.12435E-04_JPRB,0.12549E-04_JPRB,0.11706E-04_JPRB, & |
250 |
|
✗ |
& 0.10289E-04_JPRB,0.83756E-05_JPRB,0.58104E-05_JPRB,0.21679E-06_JPRB /) |
251 |
|
|
KA(:, 1, 9, 1) = (/ & |
252 |
|
|
& 0.35240E-05_JPRB,0.10418E-04_JPRB,0.11558E-04_JPRB,0.11687E-04_JPRB,0.10748E-04_JPRB, & |
253 |
|
✗ |
& 0.92305E-05_JPRB,0.73198E-05_JPRB,0.48514E-05_JPRB,0.10176E-06_JPRB /) |
254 |
|
|
KA(:, 2, 9, 1) = (/ & |
255 |
|
|
& 0.34478E-05_JPRB,0.10296E-04_JPRB,0.11296E-04_JPRB,0.11369E-04_JPRB,0.10532E-04_JPRB, & |
256 |
|
✗ |
& 0.91375E-05_JPRB,0.72737E-05_JPRB,0.48639E-05_JPRB,0.12695E-06_JPRB /) |
257 |
|
|
KA(:, 3, 9, 1) = (/ & |
258 |
|
|
& 0.33718E-05_JPRB,0.10068E-04_JPRB,0.10996E-04_JPRB,0.11063E-04_JPRB,0.10290E-04_JPRB, & |
259 |
|
✗ |
& 0.89957E-05_JPRB,0.71844E-05_JPRB,0.48583E-05_JPRB,0.15482E-06_JPRB /) |
260 |
|
|
KA(:, 4, 9, 1) = (/ & |
261 |
|
|
& 0.32801E-05_JPRB,0.97990E-05_JPRB,0.10712E-04_JPRB,0.10762E-04_JPRB,0.10056E-04_JPRB, & |
262 |
|
✗ |
& 0.88255E-05_JPRB,0.70907E-05_JPRB,0.48364E-05_JPRB,0.18123E-06_JPRB /) |
263 |
|
|
KA(:, 5, 9, 1) = (/ & |
264 |
|
|
& 0.31960E-05_JPRB,0.95350E-05_JPRB,0.10427E-04_JPRB,0.10501E-04_JPRB,0.98056E-05_JPRB, & |
265 |
|
✗ |
& 0.86157E-05_JPRB,0.69723E-05_JPRB,0.48010E-05_JPRB,0.20738E-06_JPRB /) |
266 |
|
|
KA(:, 1,10, 1) = (/ & |
267 |
|
|
& 0.29197E-05_JPRB,0.86183E-05_JPRB,0.96100E-05_JPRB,0.97448E-05_JPRB,0.89187E-05_JPRB, & |
268 |
|
✗ |
& 0.76354E-05_JPRB,0.60318E-05_JPRB,0.39733E-05_JPRB,0.10310E-06_JPRB /) |
269 |
|
|
KA(:, 2,10, 1) = (/ & |
270 |
|
|
& 0.28677E-05_JPRB,0.85565E-05_JPRB,0.94191E-05_JPRB,0.94682E-05_JPRB,0.87653E-05_JPRB, & |
271 |
|
✗ |
& 0.75725E-05_JPRB,0.60089E-05_JPRB,0.39956E-05_JPRB,0.12951E-06_JPRB /) |
272 |
|
|
KA(:, 3,10, 1) = (/ & |
273 |
|
|
& 0.28036E-05_JPRB,0.84121E-05_JPRB,0.91902E-05_JPRB,0.92251E-05_JPRB,0.85811E-05_JPRB, & |
274 |
|
✗ |
& 0.74653E-05_JPRB,0.59452E-05_JPRB,0.39967E-05_JPRB,0.15684E-06_JPRB /) |
275 |
|
|
KA(:, 4,10, 1) = (/ & |
276 |
|
|
& 0.27420E-05_JPRB,0.82035E-05_JPRB,0.89440E-05_JPRB,0.89748E-05_JPRB,0.83817E-05_JPRB, & |
277 |
|
✗ |
& 0.73422E-05_JPRB,0.58725E-05_JPRB,0.39844E-05_JPRB,0.18564E-06_JPRB /) |
278 |
|
|
KA(:, 5,10, 1) = (/ & |
279 |
|
|
& 0.26596E-05_JPRB,0.79739E-05_JPRB,0.87074E-05_JPRB,0.87508E-05_JPRB,0.81784E-05_JPRB, & |
280 |
|
✗ |
& 0.71781E-05_JPRB,0.57815E-05_JPRB,0.39569E-05_JPRB,0.21476E-06_JPRB /) |
281 |
|
|
KA(:, 1,11, 1) = (/ & |
282 |
|
|
& 0.23988E-05_JPRB,0.71135E-05_JPRB,0.79121E-05_JPRB,0.80118E-05_JPRB,0.73370E-05_JPRB, & |
283 |
|
✗ |
& 0.62844E-05_JPRB,0.49610E-05_JPRB,0.32641E-05_JPRB,0.91697E-07_JPRB /) |
284 |
|
|
KA(:, 2,11, 1) = (/ & |
285 |
|
|
& 0.23552E-05_JPRB,0.70587E-05_JPRB,0.77519E-05_JPRB,0.77821E-05_JPRB,0.72113E-05_JPRB, & |
286 |
|
✗ |
& 0.62297E-05_JPRB,0.49407E-05_JPRB,0.32815E-05_JPRB,0.11307E-06_JPRB /) |
287 |
|
|
KA(:, 3,11, 1) = (/ & |
288 |
|
|
& 0.23046E-05_JPRB,0.69367E-05_JPRB,0.75662E-05_JPRB,0.75790E-05_JPRB,0.70631E-05_JPRB, & |
289 |
|
✗ |
& 0.61409E-05_JPRB,0.48867E-05_JPRB,0.32812E-05_JPRB,0.13715E-06_JPRB /) |
290 |
|
|
KA(:, 4,11, 1) = (/ & |
291 |
|
|
& 0.22557E-05_JPRB,0.67632E-05_JPRB,0.73640E-05_JPRB,0.73772E-05_JPRB,0.68972E-05_JPRB, & |
292 |
|
✗ |
& 0.60381E-05_JPRB,0.48254E-05_JPRB,0.32705E-05_JPRB,0.16436E-06_JPRB /) |
293 |
|
|
KA(:, 5,11, 1) = (/ & |
294 |
|
|
& 0.21899E-05_JPRB,0.65748E-05_JPRB,0.71695E-05_JPRB,0.71946E-05_JPRB,0.67295E-05_JPRB, & |
295 |
|
✗ |
& 0.59022E-05_JPRB,0.47488E-05_JPRB,0.32476E-05_JPRB,0.19025E-06_JPRB /) |
296 |
|
|
KA(:, 1,12, 1) = (/ & |
297 |
|
|
& 0.19699E-05_JPRB,0.58670E-05_JPRB,0.65075E-05_JPRB,0.65808E-05_JPRB,0.60300E-05_JPRB, & |
298 |
|
✗ |
& 0.51665E-05_JPRB,0.40749E-05_JPRB,0.26788E-05_JPRB,0.77100E-07_JPRB /) |
299 |
|
|
KA(:, 2,12, 1) = (/ & |
300 |
|
|
& 0.19348E-05_JPRB,0.58146E-05_JPRB,0.63730E-05_JPRB,0.63891E-05_JPRB,0.59260E-05_JPRB, & |
301 |
|
✗ |
& 0.51196E-05_JPRB,0.40577E-05_JPRB,0.26926E-05_JPRB,0.95693E-07_JPRB /) |
302 |
|
|
KA(:, 3,12, 1) = (/ & |
303 |
|
|
& 0.18947E-05_JPRB,0.57134E-05_JPRB,0.62207E-05_JPRB,0.62238E-05_JPRB,0.58090E-05_JPRB, & |
304 |
|
✗ |
& 0.50459E-05_JPRB,0.40113E-05_JPRB,0.26916E-05_JPRB,0.11572E-06_JPRB /) |
305 |
|
|
KA(:, 4,12, 1) = (/ & |
306 |
|
|
& 0.18552E-05_JPRB,0.55709E-05_JPRB,0.60522E-05_JPRB,0.60611E-05_JPRB,0.56693E-05_JPRB, & |
307 |
|
✗ |
& 0.49594E-05_JPRB,0.39606E-05_JPRB,0.26824E-05_JPRB,0.13797E-06_JPRB /) |
308 |
|
|
KA(:, 5,12, 1) = (/ & |
309 |
|
|
& 0.18040E-05_JPRB,0.54137E-05_JPRB,0.58935E-05_JPRB,0.59096E-05_JPRB,0.55294E-05_JPRB, & |
310 |
|
✗ |
& 0.48443E-05_JPRB,0.38977E-05_JPRB,0.26633E-05_JPRB,0.15884E-06_JPRB /) |
311 |
|
|
KA(:, 1,13, 1) = (/ & |
312 |
|
|
& 0.16167E-05_JPRB,0.48272E-05_JPRB,0.53475E-05_JPRB,0.53983E-05_JPRB,0.49503E-05_JPRB, & |
313 |
|
✗ |
& 0.42413E-05_JPRB,0.33431E-05_JPRB,0.21956E-05_JPRB,0.61381E-07_JPRB /) |
314 |
|
|
KA(:, 2,13, 1) = (/ & |
315 |
|
|
& 0.15895E-05_JPRB,0.47809E-05_JPRB,0.52342E-05_JPRB,0.52409E-05_JPRB,0.48652E-05_JPRB, & |
316 |
|
✗ |
& 0.42021E-05_JPRB,0.33263E-05_JPRB,0.22072E-05_JPRB,0.76382E-07_JPRB /) |
317 |
|
|
KA(:, 3,13, 1) = (/ & |
318 |
|
|
& 0.15582E-05_JPRB,0.46982E-05_JPRB,0.51055E-05_JPRB,0.51058E-05_JPRB,0.47716E-05_JPRB, & |
319 |
|
✗ |
& 0.41406E-05_JPRB,0.32886E-05_JPRB,0.22058E-05_JPRB,0.93083E-07_JPRB /) |
320 |
|
|
KA(:, 4,13, 1) = (/ & |
321 |
|
|
& 0.15242E-05_JPRB,0.45831E-05_JPRB,0.49696E-05_JPRB,0.49735E-05_JPRB,0.46534E-05_JPRB, & |
322 |
|
✗ |
& 0.40678E-05_JPRB,0.32469E-05_JPRB,0.21969E-05_JPRB,0.11211E-06_JPRB /) |
323 |
|
|
KA(:, 5,13, 1) = (/ & |
324 |
|
|
& 0.14859E-05_JPRB,0.44492E-05_JPRB,0.48392E-05_JPRB,0.48479E-05_JPRB,0.45378E-05_JPRB, & |
325 |
|
✗ |
& 0.39689E-05_JPRB,0.31933E-05_JPRB,0.21813E-05_JPRB,0.12970E-06_JPRB /) |
326 |
|
|
KA(:, 1, 1, 2) = (/ & |
327 |
|
|
& 0.10138E-03_JPRB,0.20456E-03_JPRB,0.22117E-03_JPRB,0.21948E-03_JPRB,0.20805E-03_JPRB, & |
328 |
|
✗ |
& 0.18373E-03_JPRB,0.14999E-03_JPRB,0.95382E-04_JPRB,0.33213E-05_JPRB /) |
329 |
|
|
KA(:, 2, 1, 2) = (/ & |
330 |
|
|
& 0.10141E-03_JPRB,0.20889E-03_JPRB,0.22456E-03_JPRB,0.22223E-03_JPRB,0.20912E-03_JPRB, & |
331 |
|
✗ |
& 0.18467E-03_JPRB,0.15060E-03_JPRB,0.95713E-04_JPRB,0.28479E-05_JPRB /) |
332 |
|
|
KA(:, 3, 1, 2) = (/ & |
333 |
|
|
& 0.10125E-03_JPRB,0.21223E-03_JPRB,0.22712E-03_JPRB,0.22388E-03_JPRB,0.20983E-03_JPRB, & |
334 |
|
✗ |
& 0.18513E-03_JPRB,0.15100E-03_JPRB,0.95881E-04_JPRB,0.26338E-05_JPRB /) |
335 |
|
|
KA(:, 4, 1, 2) = (/ & |
336 |
|
|
& 0.10105E-03_JPRB,0.21442E-03_JPRB,0.22863E-03_JPRB,0.22421E-03_JPRB,0.21046E-03_JPRB, & |
337 |
|
✗ |
& 0.18540E-03_JPRB,0.15060E-03_JPRB,0.95798E-04_JPRB,0.27638E-05_JPRB /) |
338 |
|
|
KA(:, 5, 1, 2) = (/ & |
339 |
|
|
& 0.10040E-03_JPRB,0.21612E-03_JPRB,0.22899E-03_JPRB,0.22416E-03_JPRB,0.21046E-03_JPRB, & |
340 |
|
✗ |
& 0.18570E-03_JPRB,0.15001E-03_JPRB,0.95569E-04_JPRB,0.29313E-05_JPRB /) |
341 |
|
|
KA(:, 1, 2, 2) = (/ & |
342 |
|
|
& 0.89639E-04_JPRB,0.17797E-03_JPRB,0.19284E-03_JPRB,0.18986E-03_JPRB,0.17824E-03_JPRB, & |
343 |
|
✗ |
& 0.15789E-03_JPRB,0.12906E-03_JPRB,0.83524E-04_JPRB,0.23926E-05_JPRB /) |
344 |
|
|
KA(:, 2, 2, 2) = (/ & |
345 |
|
|
& 0.89499E-04_JPRB,0.18144E-03_JPRB,0.19563E-03_JPRB,0.19227E-03_JPRB,0.17941E-03_JPRB, & |
346 |
|
✗ |
& 0.15844E-03_JPRB,0.12961E-03_JPRB,0.83632E-04_JPRB,0.21969E-05_JPRB /) |
347 |
|
|
KA(:, 3, 2, 2) = (/ & |
348 |
|
|
& 0.89411E-04_JPRB,0.18401E-03_JPRB,0.19753E-03_JPRB,0.19350E-03_JPRB,0.17999E-03_JPRB, & |
349 |
|
✗ |
& 0.15883E-03_JPRB,0.12989E-03_JPRB,0.83577E-04_JPRB,0.23158E-05_JPRB /) |
350 |
|
|
|
351 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART1',1,ZHOOK_HANDLE) |
352 |
|
✗ |
END SUBROUTINE PART1 |
353 |
|
|
|
354 |
|
|
|
355 |
|
✗ |
SUBROUTINE PART2 |
356 |
|
|
|
357 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
358 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART2',0,ZHOOK_HANDLE) |
359 |
|
|
|
360 |
|
|
|
361 |
|
|
KA(:, 4, 2, 2) = (/ & |
362 |
|
|
& 0.88841E-04_JPRB,0.18541E-03_JPRB,0.19872E-03_JPRB,0.19398E-03_JPRB,0.18053E-03_JPRB, & |
363 |
|
✗ |
& 0.15907E-03_JPRB,0.12972E-03_JPRB,0.83396E-04_JPRB,0.23760E-05_JPRB /) |
364 |
|
|
KA(:, 5, 2, 2) = (/ & |
365 |
|
|
& 0.87949E-04_JPRB,0.18659E-03_JPRB,0.19902E-03_JPRB,0.19407E-03_JPRB,0.18073E-03_JPRB, & |
366 |
|
✗ |
& 0.15910E-03_JPRB,0.12937E-03_JPRB,0.83120E-04_JPRB,0.25247E-05_JPRB /) |
367 |
|
|
KA(:, 1, 3, 2) = (/ & |
368 |
|
|
& 0.77466E-04_JPRB,0.15264E-03_JPRB,0.16704E-03_JPRB,0.16342E-03_JPRB,0.15300E-03_JPRB, & |
369 |
|
✗ |
& 0.13499E-03_JPRB,0.11007E-03_JPRB,0.71881E-04_JPRB,0.17839E-05_JPRB /) |
370 |
|
|
KA(:, 2, 3, 2) = (/ & |
371 |
|
|
& 0.77483E-04_JPRB,0.15611E-03_JPRB,0.16950E-03_JPRB,0.16551E-03_JPRB,0.15408E-03_JPRB, & |
372 |
|
✗ |
& 0.13580E-03_JPRB,0.11055E-03_JPRB,0.72020E-04_JPRB,0.18564E-05_JPRB /) |
373 |
|
|
KA(:, 3, 3, 2) = (/ & |
374 |
|
|
& 0.77142E-04_JPRB,0.15867E-03_JPRB,0.17112E-03_JPRB,0.16672E-03_JPRB,0.15481E-03_JPRB, & |
375 |
|
✗ |
& 0.13616E-03_JPRB,0.11077E-03_JPRB,0.71922E-04_JPRB,0.20228E-05_JPRB /) |
376 |
|
|
KA(:, 4, 3, 2) = (/ & |
377 |
|
|
& 0.76460E-04_JPRB,0.16058E-03_JPRB,0.17186E-03_JPRB,0.16717E-03_JPRB,0.15519E-03_JPRB, & |
378 |
|
✗ |
& 0.13641E-03_JPRB,0.11060E-03_JPRB,0.71775E-04_JPRB,0.21717E-05_JPRB /) |
379 |
|
|
KA(:, 5, 3, 2) = (/ & |
380 |
|
|
& 0.75510E-04_JPRB,0.16158E-03_JPRB,0.17210E-03_JPRB,0.16730E-03_JPRB,0.15521E-03_JPRB, & |
381 |
|
✗ |
& 0.13649E-03_JPRB,0.11022E-03_JPRB,0.71516E-04_JPRB,0.23140E-05_JPRB /) |
382 |
|
|
KA(:, 1, 4, 2) = (/ & |
383 |
|
|
& 0.65931E-04_JPRB,0.12940E-03_JPRB,0.14295E-03_JPRB,0.14005E-03_JPRB,0.13095E-03_JPRB, & |
384 |
|
✗ |
& 0.11494E-03_JPRB,0.93656E-04_JPRB,0.61167E-04_JPRB,0.17094E-05_JPRB /) |
385 |
|
|
KA(:, 2, 4, 2) = (/ & |
386 |
|
|
& 0.66090E-04_JPRB,0.13269E-03_JPRB,0.14542E-03_JPRB,0.14233E-03_JPRB,0.13201E-03_JPRB, & |
387 |
|
✗ |
& 0.11558E-03_JPRB,0.93975E-04_JPRB,0.61436E-04_JPRB,0.18527E-05_JPRB /) |
388 |
|
|
KA(:, 3, 4, 2) = (/ & |
389 |
|
|
& 0.65630E-04_JPRB,0.13532E-03_JPRB,0.14717E-03_JPRB,0.14364E-03_JPRB,0.13266E-03_JPRB, & |
390 |
|
✗ |
& 0.11604E-03_JPRB,0.94126E-04_JPRB,0.61467E-04_JPRB,0.19576E-05_JPRB /) |
391 |
|
|
KA(:, 4, 4, 2) = (/ & |
392 |
|
|
& 0.64971E-04_JPRB,0.13708E-03_JPRB,0.14818E-03_JPRB,0.14427E-03_JPRB,0.13304E-03_JPRB, & |
393 |
|
✗ |
& 0.11616E-03_JPRB,0.94152E-04_JPRB,0.61334E-04_JPRB,0.20614E-05_JPRB /) |
394 |
|
|
KA(:, 5, 4, 2) = (/ & |
395 |
|
|
& 0.64122E-04_JPRB,0.13834E-03_JPRB,0.14864E-03_JPRB,0.14451E-03_JPRB,0.13312E-03_JPRB, & |
396 |
|
✗ |
& 0.11638E-03_JPRB,0.93955E-04_JPRB,0.61162E-04_JPRB,0.21640E-05_JPRB /) |
397 |
|
|
KA(:, 1, 5, 2) = (/ & |
398 |
|
|
& 0.55594E-04_JPRB,0.10830E-03_JPRB,0.12068E-03_JPRB,0.11865E-03_JPRB,0.11127E-03_JPRB, & |
399 |
|
✗ |
& 0.97925E-04_JPRB,0.79208E-04_JPRB,0.51842E-04_JPRB,0.15954E-05_JPRB /) |
400 |
|
|
KA(:, 2, 5, 2) = (/ & |
401 |
|
|
& 0.55669E-04_JPRB,0.11117E-03_JPRB,0.12299E-03_JPRB,0.12091E-03_JPRB,0.11248E-03_JPRB, & |
402 |
|
✗ |
& 0.98643E-04_JPRB,0.79433E-04_JPRB,0.52127E-04_JPRB,0.16966E-05_JPRB /) |
403 |
|
|
KA(:, 3, 5, 2) = (/ & |
404 |
|
|
& 0.55430E-04_JPRB,0.11345E-03_JPRB,0.12478E-03_JPRB,0.12235E-03_JPRB,0.11332E-03_JPRB, & |
405 |
|
✗ |
& 0.99117E-04_JPRB,0.79823E-04_JPRB,0.52286E-04_JPRB,0.18304E-05_JPRB /) |
406 |
|
|
KA(:, 4, 5, 2) = (/ & |
407 |
|
|
& 0.54800E-04_JPRB,0.11543E-03_JPRB,0.12601E-03_JPRB,0.12304E-03_JPRB,0.11389E-03_JPRB, & |
408 |
|
✗ |
& 0.99346E-04_JPRB,0.79935E-04_JPRB,0.52275E-04_JPRB,0.19479E-05_JPRB /) |
409 |
|
|
KA(:, 5, 5, 2) = (/ & |
410 |
|
|
& 0.54027E-04_JPRB,0.11665E-03_JPRB,0.12660E-03_JPRB,0.12339E-03_JPRB,0.11410E-03_JPRB, & |
411 |
|
✗ |
& 0.99535E-04_JPRB,0.79840E-04_JPRB,0.52168E-04_JPRB,0.20583E-05_JPRB /) |
412 |
|
|
KA(:, 1, 6, 2) = (/ & |
413 |
|
|
& 0.46500E-04_JPRB,0.89887E-04_JPRB,0.10048E-03_JPRB,0.99161E-04_JPRB,0.93136E-04_JPRB, & |
414 |
|
✗ |
& 0.82279E-04_JPRB,0.66872E-04_JPRB,0.43617E-04_JPRB,0.14730E-05_JPRB /) |
415 |
|
|
KA(:, 2, 6, 2) = (/ & |
416 |
|
|
& 0.46632E-04_JPRB,0.92444E-04_JPRB,0.10271E-03_JPRB,0.10123E-03_JPRB,0.94559E-04_JPRB, & |
417 |
|
✗ |
& 0.83135E-04_JPRB,0.67204E-04_JPRB,0.44046E-04_JPRB,0.16215E-05_JPRB /) |
418 |
|
|
KA(:, 3, 6, 2) = (/ & |
419 |
|
|
& 0.46490E-04_JPRB,0.94415E-04_JPRB,0.10446E-03_JPRB,0.10269E-03_JPRB,0.95387E-04_JPRB, & |
420 |
|
✗ |
& 0.83676E-04_JPRB,0.67579E-04_JPRB,0.44279E-04_JPRB,0.17358E-05_JPRB /) |
421 |
|
|
KA(:, 4, 6, 2) = (/ & |
422 |
|
|
& 0.46004E-04_JPRB,0.96190E-04_JPRB,0.10570E-03_JPRB,0.10346E-03_JPRB,0.95883E-04_JPRB, & |
423 |
|
✗ |
& 0.84038E-04_JPRB,0.67753E-04_JPRB,0.44348E-04_JPRB,0.18096E-05_JPRB /) |
424 |
|
|
KA(:, 5, 6, 2) = (/ & |
425 |
|
|
& 0.45362E-04_JPRB,0.97511E-04_JPRB,0.10645E-03_JPRB,0.10384E-03_JPRB,0.96197E-04_JPRB, & |
426 |
|
✗ |
& 0.84347E-04_JPRB,0.67758E-04_JPRB,0.44305E-04_JPRB,0.18882E-05_JPRB /) |
427 |
|
|
KA(:, 1, 7, 2) = (/ & |
428 |
|
|
& 0.38597E-04_JPRB,0.74019E-04_JPRB,0.82882E-04_JPRB,0.81807E-04_JPRB,0.76936E-04_JPRB, & |
429 |
|
✗ |
& 0.68278E-04_JPRB,0.55744E-04_JPRB,0.36507E-04_JPRB,0.13400E-05_JPRB /) |
430 |
|
|
KA(:, 2, 7, 2) = (/ & |
431 |
|
|
& 0.38728E-04_JPRB,0.76353E-04_JPRB,0.85030E-04_JPRB,0.83822E-04_JPRB,0.78523E-04_JPRB, & |
432 |
|
✗ |
& 0.69221E-04_JPRB,0.56199E-04_JPRB,0.36932E-04_JPRB,0.14766E-05_JPRB /) |
433 |
|
|
KA(:, 3, 7, 2) = (/ & |
434 |
|
|
& 0.38688E-04_JPRB,0.78164E-04_JPRB,0.86691E-04_JPRB,0.85269E-04_JPRB,0.79424E-04_JPRB, & |
435 |
|
✗ |
& 0.69849E-04_JPRB,0.56507E-04_JPRB,0.37211E-04_JPRB,0.16077E-05_JPRB /) |
436 |
|
|
KA(:, 4, 7, 2) = (/ & |
437 |
|
|
& 0.38399E-04_JPRB,0.79654E-04_JPRB,0.87882E-04_JPRB,0.86145E-04_JPRB,0.79917E-04_JPRB, & |
438 |
|
✗ |
& 0.70214E-04_JPRB,0.56698E-04_JPRB,0.37302E-04_JPRB,0.17365E-05_JPRB /) |
439 |
|
|
KA(:, 5, 7, 2) = (/ & |
440 |
|
|
& 0.37899E-04_JPRB,0.81012E-04_JPRB,0.88706E-04_JPRB,0.86589E-04_JPRB,0.80259E-04_JPRB, & |
441 |
|
✗ |
& 0.70429E-04_JPRB,0.56810E-04_JPRB,0.37287E-04_JPRB,0.18595E-05_JPRB /) |
442 |
|
|
KA(:, 1, 8, 2) = (/ & |
443 |
|
|
& 0.31959E-04_JPRB,0.60671E-04_JPRB,0.67963E-04_JPRB,0.67053E-04_JPRB,0.63057E-04_JPRB, & |
444 |
|
✗ |
& 0.56287E-04_JPRB,0.46187E-04_JPRB,0.30298E-04_JPRB,0.12071E-05_JPRB /) |
445 |
|
|
KA(:, 2, 8, 2) = (/ & |
446 |
|
|
& 0.32062E-04_JPRB,0.62753E-04_JPRB,0.69892E-04_JPRB,0.68941E-04_JPRB,0.64624E-04_JPRB, & |
447 |
|
✗ |
& 0.57187E-04_JPRB,0.46566E-04_JPRB,0.30687E-04_JPRB,0.13582E-05_JPRB /) |
448 |
|
|
KA(:, 3, 8, 2) = (/ & |
449 |
|
|
& 0.32098E-04_JPRB,0.64435E-04_JPRB,0.71423E-04_JPRB,0.70359E-04_JPRB,0.65646E-04_JPRB, & |
450 |
|
✗ |
& 0.57882E-04_JPRB,0.46897E-04_JPRB,0.30993E-04_JPRB,0.15217E-05_JPRB /) |
451 |
|
|
KA(:, 4, 8, 2) = (/ & |
452 |
|
|
& 0.31956E-04_JPRB,0.65758E-04_JPRB,0.72650E-04_JPRB,0.71275E-04_JPRB,0.66275E-04_JPRB, & |
453 |
|
✗ |
& 0.58298E-04_JPRB,0.47100E-04_JPRB,0.31079E-04_JPRB,0.16794E-05_JPRB /) |
454 |
|
|
KA(:, 5, 8, 2) = (/ & |
455 |
|
|
& 0.31584E-04_JPRB,0.66916E-04_JPRB,0.73502E-04_JPRB,0.71819E-04_JPRB,0.66611E-04_JPRB, & |
456 |
|
✗ |
& 0.58505E-04_JPRB,0.47243E-04_JPRB,0.31088E-04_JPRB,0.18250E-05_JPRB /) |
457 |
|
|
KA(:, 1, 9, 2) = (/ & |
458 |
|
|
& 0.26355E-04_JPRB,0.49472E-04_JPRB,0.55415E-04_JPRB,0.54584E-04_JPRB,0.51361E-04_JPRB, & |
459 |
|
✗ |
& 0.46135E-04_JPRB,0.38027E-04_JPRB,0.24983E-04_JPRB,0.13549E-05_JPRB /) |
460 |
|
|
KA(:, 2, 9, 2) = (/ & |
461 |
|
|
& 0.26472E-04_JPRB,0.51302E-04_JPRB,0.57165E-04_JPRB,0.56417E-04_JPRB,0.52936E-04_JPRB, & |
462 |
|
✗ |
& 0.47048E-04_JPRB,0.38417E-04_JPRB,0.25347E-04_JPRB,0.14941E-05_JPRB /) |
463 |
|
|
KA(:, 3, 9, 2) = (/ & |
464 |
|
|
& 0.26545E-04_JPRB,0.52866E-04_JPRB,0.58563E-04_JPRB,0.57776E-04_JPRB,0.53988E-04_JPRB, & |
465 |
|
✗ |
& 0.47706E-04_JPRB,0.38739E-04_JPRB,0.25638E-04_JPRB,0.16563E-05_JPRB /) |
466 |
|
|
KA(:, 4, 9, 2) = (/ & |
467 |
|
|
& 0.26469E-04_JPRB,0.54105E-04_JPRB,0.59749E-04_JPRB,0.58746E-04_JPRB,0.54668E-04_JPRB, & |
468 |
|
✗ |
& 0.48161E-04_JPRB,0.38970E-04_JPRB,0.25744E-04_JPRB,0.18262E-05_JPRB /) |
469 |
|
|
KA(:, 5, 9, 2) = (/ & |
470 |
|
|
& 0.26248E-04_JPRB,0.55079E-04_JPRB,0.60619E-04_JPRB,0.59317E-04_JPRB,0.55099E-04_JPRB, & |
471 |
|
✗ |
& 0.48435E-04_JPRB,0.39115E-04_JPRB,0.25778E-04_JPRB,0.20238E-05_JPRB /) |
472 |
|
|
KA(:, 1,10, 2) = (/ & |
473 |
|
|
& 0.21631E-04_JPRB,0.40297E-04_JPRB,0.45170E-04_JPRB,0.44298E-04_JPRB,0.41876E-04_JPRB, & |
474 |
|
✗ |
& 0.37690E-04_JPRB,0.31212E-04_JPRB,0.20552E-04_JPRB,0.16328E-05_JPRB /) |
475 |
|
|
KA(:, 2,10, 2) = (/ & |
476 |
|
|
& 0.21814E-04_JPRB,0.41896E-04_JPRB,0.46681E-04_JPRB,0.46065E-04_JPRB,0.43227E-04_JPRB, & |
477 |
|
✗ |
& 0.38608E-04_JPRB,0.31614E-04_JPRB,0.20857E-04_JPRB,0.18610E-05_JPRB /) |
478 |
|
|
KA(:, 3,10, 2) = (/ & |
479 |
|
|
& 0.21864E-04_JPRB,0.43247E-04_JPRB,0.47945E-04_JPRB,0.47327E-04_JPRB,0.44273E-04_JPRB, & |
480 |
|
✗ |
& 0.39201E-04_JPRB,0.31894E-04_JPRB,0.21119E-04_JPRB,0.20775E-05_JPRB /) |
481 |
|
|
KA(:, 4,10, 2) = (/ & |
482 |
|
|
& 0.21835E-04_JPRB,0.44386E-04_JPRB,0.48986E-04_JPRB,0.48228E-04_JPRB,0.44916E-04_JPRB, & |
483 |
|
✗ |
& 0.39637E-04_JPRB,0.32093E-04_JPRB,0.21228E-04_JPRB,0.22541E-05_JPRB /) |
484 |
|
|
KA(:, 5,10, 2) = (/ & |
485 |
|
|
& 0.21728E-04_JPRB,0.45263E-04_JPRB,0.49804E-04_JPRB,0.48818E-04_JPRB,0.45409E-04_JPRB, & |
486 |
|
✗ |
& 0.39950E-04_JPRB,0.32269E-04_JPRB,0.21290E-04_JPRB,0.24525E-05_JPRB /) |
487 |
|
|
KA(:, 1,11, 2) = (/ & |
488 |
|
|
& 0.17823E-04_JPRB,0.33378E-04_JPRB,0.37337E-04_JPRB,0.36619E-04_JPRB,0.34598E-04_JPRB, & |
489 |
|
✗ |
& 0.31113E-04_JPRB,0.25761E-04_JPRB,0.16956E-04_JPRB,0.15042E-05_JPRB /) |
490 |
|
|
KA(:, 2,11, 2) = (/ & |
491 |
|
|
& 0.17970E-04_JPRB,0.34679E-04_JPRB,0.38589E-04_JPRB,0.38065E-04_JPRB,0.35695E-04_JPRB, & |
492 |
|
✗ |
& 0.31869E-04_JPRB,0.26044E-04_JPRB,0.17214E-04_JPRB,0.16847E-05_JPRB /) |
493 |
|
|
KA(:, 3,11, 2) = (/ & |
494 |
|
|
& 0.17997E-04_JPRB,0.35791E-04_JPRB,0.39619E-04_JPRB,0.39097E-04_JPRB,0.36539E-04_JPRB, & |
495 |
|
✗ |
& 0.32374E-04_JPRB,0.26298E-04_JPRB,0.17428E-04_JPRB,0.18887E-05_JPRB /) |
496 |
|
|
KA(:, 4,11, 2) = (/ & |
497 |
|
|
& 0.17967E-04_JPRB,0.36717E-04_JPRB,0.40463E-04_JPRB,0.39821E-04_JPRB,0.37071E-04_JPRB, & |
498 |
|
✗ |
& 0.32716E-04_JPRB,0.26461E-04_JPRB,0.17496E-04_JPRB,0.20546E-05_JPRB /) |
499 |
|
|
KA(:, 5,11, 2) = (/ & |
500 |
|
|
& 0.17868E-04_JPRB,0.37423E-04_JPRB,0.41124E-04_JPRB,0.40304E-04_JPRB,0.37473E-04_JPRB, & |
501 |
|
✗ |
& 0.32971E-04_JPRB,0.26612E-04_JPRB,0.17532E-04_JPRB,0.22240E-05_JPRB /) |
502 |
|
|
KA(:, 1,12, 2) = (/ & |
503 |
|
|
& 0.14665E-04_JPRB,0.27605E-04_JPRB,0.30811E-04_JPRB,0.30250E-04_JPRB,0.28525E-04_JPRB, & |
504 |
|
✗ |
& 0.25644E-04_JPRB,0.21186E-04_JPRB,0.13955E-04_JPRB,0.12588E-05_JPRB /) |
505 |
|
|
KA(:, 2,12, 2) = (/ & |
506 |
|
|
& 0.14775E-04_JPRB,0.28655E-04_JPRB,0.31851E-04_JPRB,0.31408E-04_JPRB,0.29418E-04_JPRB, & |
507 |
|
✗ |
& 0.26261E-04_JPRB,0.21430E-04_JPRB,0.14172E-04_JPRB,0.14181E-05_JPRB /) |
508 |
|
|
KA(:, 3,12, 2) = (/ & |
509 |
|
|
& 0.14799E-04_JPRB,0.29571E-04_JPRB,0.32687E-04_JPRB,0.32242E-04_JPRB,0.30093E-04_JPRB, & |
510 |
|
✗ |
& 0.26683E-04_JPRB,0.21636E-04_JPRB,0.14338E-04_JPRB,0.15619E-05_JPRB /) |
511 |
|
|
KA(:, 4,12, 2) = (/ & |
512 |
|
|
& 0.14777E-04_JPRB,0.30325E-04_JPRB,0.33371E-04_JPRB,0.32826E-04_JPRB,0.30553E-04_JPRB, & |
513 |
|
✗ |
& 0.26945E-04_JPRB,0.21775E-04_JPRB,0.14380E-04_JPRB,0.16917E-05_JPRB /) |
514 |
|
|
KA(:, 5,12, 2) = (/ & |
515 |
|
|
& 0.14685E-04_JPRB,0.30904E-04_JPRB,0.33907E-04_JPRB,0.33214E-04_JPRB,0.30875E-04_JPRB, & |
516 |
|
✗ |
& 0.27158E-04_JPRB,0.21883E-04_JPRB,0.14414E-04_JPRB,0.18423E-05_JPRB /) |
517 |
|
|
KA(:, 1,13, 2) = (/ & |
518 |
|
|
& 0.12044E-04_JPRB,0.22772E-04_JPRB,0.25375E-04_JPRB,0.24926E-04_JPRB,0.23458E-04_JPRB, & |
519 |
|
✗ |
& 0.21059E-04_JPRB,0.17387E-04_JPRB,0.11457E-04_JPRB,0.99122E-06_JPRB /) |
520 |
|
|
KA(:, 2,13, 2) = (/ & |
521 |
|
|
& 0.12128E-04_JPRB,0.23637E-04_JPRB,0.26249E-04_JPRB,0.25842E-04_JPRB,0.24187E-04_JPRB, & |
522 |
|
✗ |
& 0.21582E-04_JPRB,0.17590E-04_JPRB,0.11636E-04_JPRB,0.11037E-05_JPRB /) |
523 |
|
|
KA(:, 3,13, 2) = (/ & |
524 |
|
|
& 0.12152E-04_JPRB,0.24386E-04_JPRB,0.26910E-04_JPRB,0.26531E-04_JPRB,0.24731E-04_JPRB, & |
525 |
|
✗ |
& 0.21923E-04_JPRB,0.17760E-04_JPRB,0.11755E-04_JPRB,0.12026E-05_JPRB /) |
526 |
|
|
KA(:, 4,13, 2) = (/ & |
527 |
|
|
& 0.12130E-04_JPRB,0.24996E-04_JPRB,0.27464E-04_JPRB,0.27006E-04_JPRB,0.25113E-04_JPRB, & |
528 |
|
✗ |
& 0.22138E-04_JPRB,0.17874E-04_JPRB,0.11797E-04_JPRB,0.13028E-05_JPRB /) |
529 |
|
|
KA(:, 5,13, 2) = (/ & |
530 |
|
|
& 0.12050E-04_JPRB,0.25474E-04_JPRB,0.27895E-04_JPRB,0.27297E-04_JPRB,0.25373E-04_JPRB, & |
531 |
|
✗ |
& 0.22302E-04_JPRB,0.17948E-04_JPRB,0.11817E-04_JPRB,0.14010E-05_JPRB /) |
532 |
|
|
KA(:, 1, 1, 3) = (/ & |
533 |
|
|
& 0.36823E-03_JPRB,0.49613E-03_JPRB,0.51817E-03_JPRB,0.50538E-03_JPRB,0.45711E-03_JPRB, & |
534 |
|
✗ |
& 0.39605E-03_JPRB,0.31486E-03_JPRB,0.21474E-03_JPRB,0.10932E-04_JPRB /) |
535 |
|
|
KA(:, 2, 1, 3) = (/ & |
536 |
|
|
& 0.37008E-03_JPRB,0.50778E-03_JPRB,0.53361E-03_JPRB,0.51778E-03_JPRB,0.46995E-03_JPRB, & |
537 |
|
✗ |
& 0.40629E-03_JPRB,0.32309E-03_JPRB,0.21878E-03_JPRB,0.11421E-04_JPRB /) |
538 |
|
|
KA(:, 3, 1, 3) = (/ & |
539 |
|
|
& 0.36989E-03_JPRB,0.51812E-03_JPRB,0.54699E-03_JPRB,0.52922E-03_JPRB,0.48036E-03_JPRB, & |
540 |
|
✗ |
& 0.41559E-03_JPRB,0.32965E-03_JPRB,0.22226E-03_JPRB,0.12395E-04_JPRB /) |
541 |
|
|
KA(:, 4, 1, 3) = (/ & |
542 |
|
|
& 0.36721E-03_JPRB,0.52763E-03_JPRB,0.55746E-03_JPRB,0.53957E-03_JPRB,0.48891E-03_JPRB, & |
543 |
|
✗ |
& 0.42313E-03_JPRB,0.33545E-03_JPRB,0.22588E-03_JPRB,0.13515E-04_JPRB /) |
544 |
|
|
KA(:, 5, 1, 3) = (/ & |
545 |
|
|
& 0.36313E-03_JPRB,0.53652E-03_JPRB,0.56680E-03_JPRB,0.54791E-03_JPRB,0.49664E-03_JPRB, & |
546 |
|
✗ |
& 0.42907E-03_JPRB,0.34043E-03_JPRB,0.22916E-03_JPRB,0.14734E-04_JPRB /) |
547 |
|
|
KA(:, 1, 2, 3) = (/ & |
548 |
|
|
& 0.32411E-03_JPRB,0.42815E-03_JPRB,0.44725E-03_JPRB,0.43813E-03_JPRB,0.40150E-03_JPRB, & |
549 |
|
✗ |
& 0.34871E-03_JPRB,0.27912E-03_JPRB,0.18929E-03_JPRB,0.80741E-05_JPRB /) |
550 |
|
|
KA(:, 2, 2, 3) = (/ & |
551 |
|
|
& 0.32567E-03_JPRB,0.43786E-03_JPRB,0.46069E-03_JPRB,0.45027E-03_JPRB,0.41319E-03_JPRB, & |
552 |
|
✗ |
& 0.35819E-03_JPRB,0.28635E-03_JPRB,0.19325E-03_JPRB,0.87340E-05_JPRB /) |
553 |
|
|
KA(:, 3, 2, 3) = (/ & |
554 |
|
|
& 0.32429E-03_JPRB,0.44638E-03_JPRB,0.47228E-03_JPRB,0.46074E-03_JPRB,0.42272E-03_JPRB, & |
555 |
|
✗ |
& 0.36602E-03_JPRB,0.29201E-03_JPRB,0.19653E-03_JPRB,0.96110E-05_JPRB /) |
556 |
|
|
KA(:, 4, 2, 3) = (/ & |
557 |
|
|
& 0.32137E-03_JPRB,0.45531E-03_JPRB,0.48142E-03_JPRB,0.46951E-03_JPRB,0.42996E-03_JPRB, & |
558 |
|
✗ |
& 0.37250E-03_JPRB,0.29709E-03_JPRB,0.19974E-03_JPRB,0.10697E-04_JPRB /) |
559 |
|
|
KA(:, 5, 2, 3) = (/ & |
560 |
|
|
& 0.31776E-03_JPRB,0.46207E-03_JPRB,0.48880E-03_JPRB,0.47659E-03_JPRB,0.43551E-03_JPRB, & |
561 |
|
✗ |
& 0.37776E-03_JPRB,0.30138E-03_JPRB,0.20274E-03_JPRB,0.11704E-04_JPRB /) |
562 |
|
|
KA(:, 1, 3, 3) = (/ & |
563 |
|
|
& 0.28488E-03_JPRB,0.36767E-03_JPRB,0.38081E-03_JPRB,0.37438E-03_JPRB,0.34525E-03_JPRB, & |
564 |
|
✗ |
& 0.30150E-03_JPRB,0.24332E-03_JPRB,0.16415E-03_JPRB,0.63970E-05_JPRB /) |
565 |
|
|
KA(:, 2, 3, 3) = (/ & |
566 |
|
|
& 0.28539E-03_JPRB,0.37509E-03_JPRB,0.39196E-03_JPRB,0.38510E-03_JPRB,0.35566E-03_JPRB, & |
567 |
|
✗ |
& 0.30998E-03_JPRB,0.24963E-03_JPRB,0.16766E-03_JPRB,0.72006E-05_JPRB /) |
568 |
|
|
KA(:, 3, 3, 3) = (/ & |
569 |
|
|
& 0.28397E-03_JPRB,0.38215E-03_JPRB,0.40156E-03_JPRB,0.39428E-03_JPRB,0.36418E-03_JPRB, & |
570 |
|
✗ |
& 0.31727E-03_JPRB,0.25446E-03_JPRB,0.17107E-03_JPRB,0.79574E-05_JPRB /) |
571 |
|
|
KA(:, 4, 3, 3) = (/ & |
572 |
|
|
& 0.28134E-03_JPRB,0.38867E-03_JPRB,0.40959E-03_JPRB,0.40230E-03_JPRB,0.37093E-03_JPRB, & |
573 |
|
✗ |
& 0.32301E-03_JPRB,0.25898E-03_JPRB,0.17447E-03_JPRB,0.87131E-05_JPRB /) |
574 |
|
|
KA(:, 5, 3, 3) = (/ & |
575 |
|
|
& 0.27886E-03_JPRB,0.39360E-03_JPRB,0.41642E-03_JPRB,0.40852E-03_JPRB,0.37609E-03_JPRB, & |
576 |
|
✗ |
& 0.32740E-03_JPRB,0.26312E-03_JPRB,0.17737E-03_JPRB,0.94704E-05_JPRB /) |
577 |
|
|
KA(:, 1, 4, 3) = (/ & |
578 |
|
|
& 0.24923E-03_JPRB,0.31555E-03_JPRB,0.32423E-03_JPRB,0.31731E-03_JPRB,0.29410E-03_JPRB, & |
579 |
|
✗ |
& 0.25671E-03_JPRB,0.20762E-03_JPRB,0.14074E-03_JPRB,0.55877E-05_JPRB /) |
580 |
|
|
KA(:, 2, 4, 3) = (/ & |
581 |
|
|
& 0.24977E-03_JPRB,0.32120E-03_JPRB,0.33372E-03_JPRB,0.32657E-03_JPRB,0.30295E-03_JPRB, & |
582 |
|
✗ |
& 0.26472E-03_JPRB,0.21303E-03_JPRB,0.14396E-03_JPRB,0.61575E-05_JPRB /) |
583 |
|
|
KA(:, 3, 4, 3) = (/ & |
584 |
|
|
& 0.24865E-03_JPRB,0.32668E-03_JPRB,0.34180E-03_JPRB,0.33446E-03_JPRB,0.31033E-03_JPRB, & |
585 |
|
✗ |
& 0.27144E-03_JPRB,0.21777E-03_JPRB,0.14714E-03_JPRB,0.67916E-05_JPRB /) |
586 |
|
|
KA(:, 4, 4, 3) = (/ & |
587 |
|
|
& 0.24709E-03_JPRB,0.33133E-03_JPRB,0.34841E-03_JPRB,0.34134E-03_JPRB,0.31600E-03_JPRB, & |
588 |
|
✗ |
& 0.27647E-03_JPRB,0.22179E-03_JPRB,0.15016E-03_JPRB,0.74653E-05_JPRB /) |
589 |
|
|
KA(:, 5, 4, 3) = (/ & |
590 |
|
|
& 0.24455E-03_JPRB,0.33491E-03_JPRB,0.35388E-03_JPRB,0.34708E-03_JPRB,0.32069E-03_JPRB, & |
591 |
|
✗ |
& 0.28005E-03_JPRB,0.22522E-03_JPRB,0.15242E-03_JPRB,0.81619E-05_JPRB /) |
592 |
|
|
KA(:, 1, 5, 3) = (/ & |
593 |
|
|
& 0.21526E-03_JPRB,0.27115E-03_JPRB,0.27505E-03_JPRB,0.26802E-03_JPRB,0.24968E-03_JPRB, & |
594 |
|
✗ |
& 0.21690E-03_JPRB,0.17481E-03_JPRB,0.11906E-03_JPRB,0.50850E-05_JPRB /) |
595 |
|
|
KA(:, 2, 5, 3) = (/ & |
596 |
|
|
& 0.21611E-03_JPRB,0.27621E-03_JPRB,0.28298E-03_JPRB,0.27620E-03_JPRB,0.25722E-03_JPRB, & |
597 |
|
✗ |
& 0.22411E-03_JPRB,0.18004E-03_JPRB,0.12197E-03_JPRB,0.55738E-05_JPRB /) |
598 |
|
|
KA(:, 3, 5, 3) = (/ & |
599 |
|
|
& 0.21583E-03_JPRB,0.28060E-03_JPRB,0.28955E-03_JPRB,0.28282E-03_JPRB,0.26346E-03_JPRB, & |
600 |
|
✗ |
& 0.23005E-03_JPRB,0.18415E-03_JPRB,0.12451E-03_JPRB,0.60864E-05_JPRB /) |
601 |
|
|
KA(:, 4, 5, 3) = (/ & |
602 |
|
|
& 0.21446E-03_JPRB,0.28363E-03_JPRB,0.29469E-03_JPRB,0.28896E-03_JPRB,0.26860E-03_JPRB, & |
603 |
|
✗ |
& 0.23435E-03_JPRB,0.18768E-03_JPRB,0.12690E-03_JPRB,0.66417E-05_JPRB /) |
604 |
|
|
KA(:, 5, 5, 3) = (/ & |
605 |
|
|
& 0.21217E-03_JPRB,0.28626E-03_JPRB,0.29929E-03_JPRB,0.29370E-03_JPRB,0.27250E-03_JPRB, & |
606 |
|
✗ |
& 0.23763E-03_JPRB,0.19073E-03_JPRB,0.12909E-03_JPRB,0.72122E-05_JPRB /) |
607 |
|
|
KA(:, 1, 6, 3) = (/ & |
608 |
|
|
& 0.18262E-03_JPRB,0.23112E-03_JPRB,0.23388E-03_JPRB,0.22681E-03_JPRB,0.21062E-03_JPRB, & |
609 |
|
✗ |
& 0.18196E-03_JPRB,0.14634E-03_JPRB,0.99707E-04_JPRB,0.48078E-05_JPRB /) |
610 |
|
|
KA(:, 2, 6, 3) = (/ & |
611 |
|
|
& 0.18393E-03_JPRB,0.23591E-03_JPRB,0.24094E-03_JPRB,0.23364E-03_JPRB,0.21663E-03_JPRB, & |
612 |
|
✗ |
& 0.18814E-03_JPRB,0.15114E-03_JPRB,0.10205E-03_JPRB,0.52252E-05_JPRB /) |
613 |
|
|
KA(:, 3, 6, 3) = (/ & |
614 |
|
|
& 0.18379E-03_JPRB,0.23984E-03_JPRB,0.24676E-03_JPRB,0.23956E-03_JPRB,0.22221E-03_JPRB, & |
615 |
|
✗ |
& 0.19356E-03_JPRB,0.15489E-03_JPRB,0.10434E-03_JPRB,0.56405E-05_JPRB /) |
616 |
|
|
KA(:, 4, 6, 3) = (/ & |
617 |
|
|
& 0.18270E-03_JPRB,0.24258E-03_JPRB,0.25102E-03_JPRB,0.24458E-03_JPRB,0.22685E-03_JPRB, & |
618 |
|
✗ |
& 0.19771E-03_JPRB,0.15805E-03_JPRB,0.10655E-03_JPRB,0.60728E-05_JPRB /) |
619 |
|
|
KA(:, 5, 6, 3) = (/ & |
620 |
|
|
& 0.18067E-03_JPRB,0.24446E-03_JPRB,0.25467E-03_JPRB,0.24894E-03_JPRB,0.23051E-03_JPRB, & |
621 |
|
✗ |
& 0.20056E-03_JPRB,0.16088E-03_JPRB,0.10844E-03_JPRB,0.65160E-05_JPRB /) |
622 |
|
|
KA(:, 1, 7, 3) = (/ & |
623 |
|
|
& 0.15269E-03_JPRB,0.19407E-03_JPRB,0.19640E-03_JPRB,0.19073E-03_JPRB,0.17715E-03_JPRB, & |
624 |
|
✗ |
& 0.15224E-03_JPRB,0.12181E-03_JPRB,0.83302E-04_JPRB,0.45185E-05_JPRB /) |
625 |
|
|
KA(:, 2, 7, 3) = (/ & |
626 |
|
|
& 0.15450E-03_JPRB,0.19834E-03_JPRB,0.20246E-03_JPRB,0.19675E-03_JPRB,0.18242E-03_JPRB, & |
627 |
|
✗ |
& 0.15776E-03_JPRB,0.12610E-03_JPRB,0.85306E-04_JPRB,0.49315E-05_JPRB /) |
628 |
|
|
KA(:, 3, 7, 3) = (/ & |
629 |
|
|
& 0.15459E-03_JPRB,0.20178E-03_JPRB,0.20759E-03_JPRB,0.20176E-03_JPRB,0.18737E-03_JPRB, & |
630 |
|
✗ |
& 0.16233E-03_JPRB,0.12951E-03_JPRB,0.87417E-04_JPRB,0.53491E-05_JPRB /) |
631 |
|
|
KA(:, 4, 7, 3) = (/ & |
632 |
|
|
& 0.15368E-03_JPRB,0.20410E-03_JPRB,0.21160E-03_JPRB,0.20623E-03_JPRB,0.19161E-03_JPRB, & |
633 |
|
✗ |
& 0.16603E-03_JPRB,0.13246E-03_JPRB,0.89237E-04_JPRB,0.57562E-05_JPRB /) |
634 |
|
|
KA(:, 5, 7, 3) = (/ & |
635 |
|
|
& 0.15207E-03_JPRB,0.20567E-03_JPRB,0.21458E-03_JPRB,0.20991E-03_JPRB,0.19525E-03_JPRB, & |
636 |
|
✗ |
& 0.16906E-03_JPRB,0.13481E-03_JPRB,0.90932E-04_JPRB,0.61659E-05_JPRB /) |
637 |
|
|
KA(:, 1, 8, 3) = (/ & |
638 |
|
|
& 0.12672E-03_JPRB,0.16159E-03_JPRB,0.16329E-03_JPRB,0.15821E-03_JPRB,0.14746E-03_JPRB, & |
639 |
|
✗ |
& 0.12624E-03_JPRB,0.10116E-03_JPRB,0.69306E-04_JPRB,0.46652E-05_JPRB /) |
640 |
|
|
KA(:, 2, 8, 3) = (/ & |
641 |
|
|
& 0.12853E-03_JPRB,0.16539E-03_JPRB,0.16859E-03_JPRB,0.16359E-03_JPRB,0.15208E-03_JPRB, & |
642 |
|
✗ |
& 0.13120E-03_JPRB,0.10513E-03_JPRB,0.71005E-04_JPRB,0.51392E-05_JPRB /) |
643 |
|
|
KA(:, 3, 8, 3) = (/ & |
644 |
|
|
& 0.12901E-03_JPRB,0.16841E-03_JPRB,0.17301E-03_JPRB,0.16813E-03_JPRB,0.15614E-03_JPRB, & |
645 |
|
✗ |
& 0.13532E-03_JPRB,0.10829E-03_JPRB,0.72863E-04_JPRB,0.55244E-05_JPRB /) |
646 |
|
|
KA(:, 4, 8, 3) = (/ & |
647 |
|
|
& 0.12833E-03_JPRB,0.17058E-03_JPRB,0.17652E-03_JPRB,0.17184E-03_JPRB,0.15971E-03_JPRB, & |
648 |
|
✗ |
& 0.13867E-03_JPRB,0.11087E-03_JPRB,0.74475E-04_JPRB,0.58193E-05_JPRB /) |
649 |
|
|
|
650 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART2',1,ZHOOK_HANDLE) |
651 |
|
✗ |
END SUBROUTINE PART2 |
652 |
|
|
|
653 |
|
|
|
654 |
|
✗ |
SUBROUTINE PART3 |
655 |
|
|
|
656 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
657 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART3',0,ZHOOK_HANDLE) |
658 |
|
|
|
659 |
|
|
|
660 |
|
|
KA(:, 5, 8, 3) = (/ & |
661 |
|
|
& 0.12715E-03_JPRB,0.17197E-03_JPRB,0.17918E-03_JPRB,0.17513E-03_JPRB,0.16292E-03_JPRB, & |
662 |
|
✗ |
& 0.14144E-03_JPRB,0.11301E-03_JPRB,0.75965E-04_JPRB,0.61705E-05_JPRB /) |
663 |
|
|
KA(:, 1, 9, 3) = (/ & |
664 |
|
|
& 0.10428E-03_JPRB,0.13348E-03_JPRB,0.13462E-03_JPRB,0.12995E-03_JPRB,0.12158E-03_JPRB, & |
665 |
|
✗ |
& 0.10379E-03_JPRB,0.83005E-04_JPRB,0.57371E-04_JPRB,0.55965E-05_JPRB /) |
666 |
|
|
KA(:, 2, 9, 3) = (/ & |
667 |
|
|
& 0.10619E-03_JPRB,0.13710E-03_JPRB,0.13932E-03_JPRB,0.13469E-03_JPRB,0.12538E-03_JPRB, & |
668 |
|
✗ |
& 0.10800E-03_JPRB,0.86632E-04_JPRB,0.58954E-04_JPRB,0.61961E-05_JPRB /) |
669 |
|
|
KA(:, 3, 9, 3) = (/ & |
670 |
|
|
& 0.10690E-03_JPRB,0.13978E-03_JPRB,0.14315E-03_JPRB,0.13877E-03_JPRB,0.12885E-03_JPRB, & |
671 |
|
✗ |
& 0.11169E-03_JPRB,0.89643E-04_JPRB,0.60568E-04_JPRB,0.68526E-05_JPRB /) |
672 |
|
|
KA(:, 4, 9, 3) = (/ & |
673 |
|
|
& 0.10668E-03_JPRB,0.14178E-03_JPRB,0.14626E-03_JPRB,0.14213E-03_JPRB,0.13207E-03_JPRB, & |
674 |
|
✗ |
& 0.11468E-03_JPRB,0.91984E-04_JPRB,0.62070E-04_JPRB,0.75122E-05_JPRB /) |
675 |
|
|
KA(:, 5, 9, 3) = (/ & |
676 |
|
|
& 0.10582E-03_JPRB,0.14316E-03_JPRB,0.14873E-03_JPRB,0.14501E-03_JPRB,0.13471E-03_JPRB, & |
677 |
|
✗ |
& 0.11704E-03_JPRB,0.93876E-04_JPRB,0.63388E-04_JPRB,0.80761E-05_JPRB /) |
678 |
|
|
KA(:, 1,10, 3) = (/ & |
679 |
|
|
& 0.85476E-04_JPRB,0.10982E-03_JPRB,0.11034E-03_JPRB,0.10643E-03_JPRB,0.99702E-04_JPRB, & |
680 |
|
✗ |
& 0.84967E-04_JPRB,0.68008E-04_JPRB,0.47229E-04_JPRB,0.66145E-05_JPRB /) |
681 |
|
|
KA(:, 2,10, 3) = (/ & |
682 |
|
|
& 0.87242E-04_JPRB,0.11322E-03_JPRB,0.11463E-03_JPRB,0.11045E-03_JPRB,0.10293E-03_JPRB, & |
683 |
|
✗ |
& 0.88580E-04_JPRB,0.71113E-04_JPRB,0.48631E-04_JPRB,0.75452E-05_JPRB /) |
684 |
|
|
KA(:, 3,10, 3) = (/ & |
685 |
|
|
& 0.88111E-04_JPRB,0.11563E-03_JPRB,0.11792E-03_JPRB,0.11404E-03_JPRB,0.10587E-03_JPRB, & |
686 |
|
✗ |
& 0.91877E-04_JPRB,0.73790E-04_JPRB,0.50044E-04_JPRB,0.84881E-05_JPRB /) |
687 |
|
|
KA(:, 4,10, 3) = (/ & |
688 |
|
|
& 0.88200E-04_JPRB,0.11743E-03_JPRB,0.12065E-03_JPRB,0.11708E-03_JPRB,0.10870E-03_JPRB, & |
689 |
|
✗ |
& 0.94480E-04_JPRB,0.75897E-04_JPRB,0.51384E-04_JPRB,0.95136E-05_JPRB /) |
690 |
|
|
KA(:, 5,10, 3) = (/ & |
691 |
|
|
& 0.87583E-04_JPRB,0.11871E-03_JPRB,0.12292E-03_JPRB,0.11954E-03_JPRB,0.11103E-03_JPRB, & |
692 |
|
✗ |
& 0.96523E-04_JPRB,0.77526E-04_JPRB,0.52518E-04_JPRB,0.10532E-04_JPRB /) |
693 |
|
|
KA(:, 1,11, 3) = (/ & |
694 |
|
|
& 0.70556E-04_JPRB,0.91428E-04_JPRB,0.91867E-04_JPRB,0.88463E-04_JPRB,0.82846E-04_JPRB, & |
695 |
|
✗ |
& 0.70774E-04_JPRB,0.56632E-04_JPRB,0.39167E-04_JPRB,0.61872E-05_JPRB /) |
696 |
|
|
KA(:, 2,11, 3) = (/ & |
697 |
|
|
& 0.71933E-04_JPRB,0.94182E-04_JPRB,0.95269E-04_JPRB,0.91646E-04_JPRB,0.85383E-04_JPRB, & |
698 |
|
✗ |
& 0.73738E-04_JPRB,0.59219E-04_JPRB,0.40474E-04_JPRB,0.69965E-05_JPRB /) |
699 |
|
|
KA(:, 3,11, 3) = (/ & |
700 |
|
|
& 0.72567E-04_JPRB,0.96098E-04_JPRB,0.97927E-04_JPRB,0.94606E-04_JPRB,0.87837E-04_JPRB, & |
701 |
|
✗ |
& 0.76370E-04_JPRB,0.61326E-04_JPRB,0.41633E-04_JPRB,0.78235E-05_JPRB /) |
702 |
|
|
KA(:, 4,11, 3) = (/ & |
703 |
|
|
& 0.72529E-04_JPRB,0.97532E-04_JPRB,0.10011E-03_JPRB,0.97076E-04_JPRB,0.90134E-04_JPRB, & |
704 |
|
✗ |
& 0.78428E-04_JPRB,0.63016E-04_JPRB,0.42754E-04_JPRB,0.87904E-05_JPRB /) |
705 |
|
|
KA(:, 5,11, 3) = (/ & |
706 |
|
|
& 0.71990E-04_JPRB,0.98552E-04_JPRB,0.10193E-03_JPRB,0.99080E-04_JPRB,0.92091E-04_JPRB, & |
707 |
|
✗ |
& 0.80068E-04_JPRB,0.64349E-04_JPRB,0.43674E-04_JPRB,0.98011E-05_JPRB /) |
708 |
|
|
KA(:, 1,12, 3) = (/ & |
709 |
|
|
& 0.58072E-04_JPRB,0.75815E-04_JPRB,0.76168E-04_JPRB,0.73252E-04_JPRB,0.68521E-04_JPRB, & |
710 |
|
✗ |
& 0.58748E-04_JPRB,0.47029E-04_JPRB,0.32430E-04_JPRB,0.51838E-05_JPRB /) |
711 |
|
|
KA(:, 2,12, 3) = (/ & |
712 |
|
|
& 0.59149E-04_JPRB,0.78005E-04_JPRB,0.78889E-04_JPRB,0.75853E-04_JPRB,0.70691E-04_JPRB, & |
713 |
|
✗ |
& 0.61160E-04_JPRB,0.49105E-04_JPRB,0.33572E-04_JPRB,0.58669E-05_JPRB /) |
714 |
|
|
KA(:, 3,12, 3) = (/ & |
715 |
|
|
& 0.59615E-04_JPRB,0.79572E-04_JPRB,0.81043E-04_JPRB,0.78301E-04_JPRB,0.72716E-04_JPRB, & |
716 |
|
✗ |
& 0.63265E-04_JPRB,0.50777E-04_JPRB,0.34506E-04_JPRB,0.66464E-05_JPRB /) |
717 |
|
|
KA(:, 4,12, 3) = (/ & |
718 |
|
|
& 0.59506E-04_JPRB,0.80712E-04_JPRB,0.82811E-04_JPRB,0.80321E-04_JPRB,0.74571E-04_JPRB, & |
719 |
|
✗ |
& 0.64935E-04_JPRB,0.52165E-04_JPRB,0.35447E-04_JPRB,0.74412E-05_JPRB /) |
720 |
|
|
KA(:, 5,12, 3) = (/ & |
721 |
|
|
& 0.59067E-04_JPRB,0.81520E-04_JPRB,0.84288E-04_JPRB,0.81977E-04_JPRB,0.76172E-04_JPRB, & |
722 |
|
✗ |
& 0.66259E-04_JPRB,0.53281E-04_JPRB,0.36178E-04_JPRB,0.82465E-05_JPRB /) |
723 |
|
|
KA(:, 1,13, 3) = (/ & |
724 |
|
|
& 0.47640E-04_JPRB,0.62583E-04_JPRB,0.62887E-04_JPRB,0.60485E-04_JPRB,0.56559E-04_JPRB, & |
725 |
|
✗ |
& 0.48624E-04_JPRB,0.38904E-04_JPRB,0.26773E-04_JPRB,0.40582E-05_JPRB /) |
726 |
|
|
KA(:, 2,13, 3) = (/ & |
727 |
|
|
& 0.48498E-04_JPRB,0.64379E-04_JPRB,0.65087E-04_JPRB,0.62641E-04_JPRB,0.58377E-04_JPRB, & |
728 |
|
✗ |
& 0.50572E-04_JPRB,0.40566E-04_JPRB,0.27717E-04_JPRB,0.46616E-05_JPRB /) |
729 |
|
|
KA(:, 3,13, 3) = (/ & |
730 |
|
|
& 0.48844E-04_JPRB,0.65656E-04_JPRB,0.66851E-04_JPRB,0.64628E-04_JPRB,0.60042E-04_JPRB, & |
731 |
|
✗ |
& 0.52254E-04_JPRB,0.41917E-04_JPRB,0.28510E-04_JPRB,0.53204E-05_JPRB /) |
732 |
|
|
KA(:, 4,13, 3) = (/ & |
733 |
|
|
& 0.48722E-04_JPRB,0.66574E-04_JPRB,0.68303E-04_JPRB,0.66300E-04_JPRB,0.61547E-04_JPRB, & |
734 |
|
✗ |
& 0.53614E-04_JPRB,0.43058E-04_JPRB,0.29254E-04_JPRB,0.59442E-05_JPRB /) |
735 |
|
|
KA(:, 5,13, 3) = (/ & |
736 |
|
|
& 0.48355E-04_JPRB,0.67217E-04_JPRB,0.69511E-04_JPRB,0.67651E-04_JPRB,0.62864E-04_JPRB, & |
737 |
|
✗ |
& 0.54712E-04_JPRB,0.43998E-04_JPRB,0.29875E-04_JPRB,0.66436E-05_JPRB /) |
738 |
|
|
KA(:, 1, 1, 4) = (/ & |
739 |
|
|
& 0.85387E-03_JPRB,0.97268E-03_JPRB,0.95201E-03_JPRB,0.89226E-03_JPRB,0.81465E-03_JPRB, & |
740 |
|
✗ |
& 0.69707E-03_JPRB,0.54829E-03_JPRB,0.35882E-03_JPRB,0.37920E-04_JPRB /) |
741 |
|
|
KA(:, 2, 1, 4) = (/ & |
742 |
|
|
& 0.85496E-03_JPRB,0.98746E-03_JPRB,0.97188E-03_JPRB,0.91775E-03_JPRB,0.83529E-03_JPRB, & |
743 |
|
✗ |
& 0.71649E-03_JPRB,0.56376E-03_JPRB,0.37061E-03_JPRB,0.43155E-04_JPRB /) |
744 |
|
|
KA(:, 3, 1, 4) = (/ & |
745 |
|
|
& 0.85154E-03_JPRB,0.99908E-03_JPRB,0.98969E-03_JPRB,0.94014E-03_JPRB,0.85604E-03_JPRB, & |
746 |
|
✗ |
& 0.73379E-03_JPRB,0.57832E-03_JPRB,0.38183E-03_JPRB,0.48702E-04_JPRB /) |
747 |
|
|
KA(:, 4, 1, 4) = (/ & |
748 |
|
|
& 0.84606E-03_JPRB,0.10090E-02_JPRB,0.10068E-02_JPRB,0.95944E-03_JPRB,0.87434E-03_JPRB, & |
749 |
|
✗ |
& 0.74975E-03_JPRB,0.59243E-03_JPRB,0.39188E-03_JPRB,0.54022E-04_JPRB /) |
750 |
|
|
KA(:, 5, 1, 4) = (/ & |
751 |
|
|
& 0.84061E-03_JPRB,0.10171E-02_JPRB,0.10218E-02_JPRB,0.97684E-03_JPRB,0.88906E-03_JPRB, & |
752 |
|
✗ |
& 0.76345E-03_JPRB,0.60471E-03_JPRB,0.40180E-03_JPRB,0.59778E-04_JPRB /) |
753 |
|
|
KA(:, 1, 2, 4) = (/ & |
754 |
|
|
& 0.76106E-03_JPRB,0.86763E-03_JPRB,0.84620E-03_JPRB,0.79337E-03_JPRB,0.72368E-03_JPRB, & |
755 |
|
✗ |
& 0.62633E-03_JPRB,0.49168E-03_JPRB,0.32346E-03_JPRB,0.31322E-04_JPRB /) |
756 |
|
|
KA(:, 2, 2, 4) = (/ & |
757 |
|
|
& 0.76153E-03_JPRB,0.88148E-03_JPRB,0.86349E-03_JPRB,0.81559E-03_JPRB,0.74480E-03_JPRB, & |
758 |
|
✗ |
& 0.64448E-03_JPRB,0.50635E-03_JPRB,0.33430E-03_JPRB,0.35566E-04_JPRB /) |
759 |
|
|
KA(:, 3, 2, 4) = (/ & |
760 |
|
|
& 0.75977E-03_JPRB,0.89195E-03_JPRB,0.87871E-03_JPRB,0.83605E-03_JPRB,0.76286E-03_JPRB, & |
761 |
|
✗ |
& 0.66127E-03_JPRB,0.51959E-03_JPRB,0.34472E-03_JPRB,0.39705E-04_JPRB /) |
762 |
|
|
KA(:, 4, 2, 4) = (/ & |
763 |
|
|
& 0.75771E-03_JPRB,0.89987E-03_JPRB,0.89406E-03_JPRB,0.85530E-03_JPRB,0.78123E-03_JPRB, & |
764 |
|
✗ |
& 0.67612E-03_JPRB,0.53221E-03_JPRB,0.35447E-03_JPRB,0.44266E-04_JPRB /) |
765 |
|
|
KA(:, 5, 2, 4) = (/ & |
766 |
|
|
& 0.75289E-03_JPRB,0.90657E-03_JPRB,0.90771E-03_JPRB,0.87200E-03_JPRB,0.79715E-03_JPRB, & |
767 |
|
✗ |
& 0.68926E-03_JPRB,0.54382E-03_JPRB,0.36372E-03_JPRB,0.48708E-04_JPRB /) |
768 |
|
|
KA(:, 1, 3, 4) = (/ & |
769 |
|
|
& 0.66893E-03_JPRB,0.76246E-03_JPRB,0.74334E-03_JPRB,0.69752E-03_JPRB,0.63501E-03_JPRB, & |
770 |
|
✗ |
& 0.55362E-03_JPRB,0.43455E-03_JPRB,0.28843E-03_JPRB,0.24260E-04_JPRB /) |
771 |
|
|
KA(:, 2, 3, 4) = (/ & |
772 |
|
|
& 0.67118E-03_JPRB,0.77588E-03_JPRB,0.75944E-03_JPRB,0.71710E-03_JPRB,0.65461E-03_JPRB, & |
773 |
|
✗ |
& 0.57122E-03_JPRB,0.44991E-03_JPRB,0.29906E-03_JPRB,0.27434E-04_JPRB /) |
774 |
|
|
KA(:, 3, 3, 4) = (/ & |
775 |
|
|
& 0.67218E-03_JPRB,0.78505E-03_JPRB,0.77328E-03_JPRB,0.73497E-03_JPRB,0.67286E-03_JPRB, & |
776 |
|
✗ |
& 0.58718E-03_JPRB,0.46375E-03_JPRB,0.30933E-03_JPRB,0.30808E-04_JPRB /) |
777 |
|
|
KA(:, 4, 3, 4) = (/ & |
778 |
|
|
& 0.67058E-03_JPRB,0.79242E-03_JPRB,0.78627E-03_JPRB,0.75181E-03_JPRB,0.68946E-03_JPRB, & |
779 |
|
✗ |
& 0.60183E-03_JPRB,0.47532E-03_JPRB,0.31743E-03_JPRB,0.34324E-04_JPRB /) |
780 |
|
|
KA(:, 5, 3, 4) = (/ & |
781 |
|
|
& 0.66467E-03_JPRB,0.79822E-03_JPRB,0.79776E-03_JPRB,0.76779E-03_JPRB,0.70481E-03_JPRB, & |
782 |
|
✗ |
& 0.61510E-03_JPRB,0.48553E-03_JPRB,0.32526E-03_JPRB,0.37905E-04_JPRB /) |
783 |
|
|
KA(:, 1, 4, 4) = (/ & |
784 |
|
|
& 0.58297E-03_JPRB,0.66020E-03_JPRB,0.64337E-03_JPRB,0.60610E-03_JPRB,0.55222E-03_JPRB, & |
785 |
|
✗ |
& 0.48338E-03_JPRB,0.38154E-03_JPRB,0.25537E-03_JPRB,0.20054E-04_JPRB /) |
786 |
|
|
KA(:, 2, 4, 4) = (/ & |
787 |
|
|
& 0.58616E-03_JPRB,0.67311E-03_JPRB,0.65764E-03_JPRB,0.62362E-03_JPRB,0.56996E-03_JPRB, & |
788 |
|
✗ |
& 0.49939E-03_JPRB,0.39657E-03_JPRB,0.26418E-03_JPRB,0.22457E-04_JPRB /) |
789 |
|
|
KA(:, 3, 4, 4) = (/ & |
790 |
|
|
& 0.58719E-03_JPRB,0.68291E-03_JPRB,0.67014E-03_JPRB,0.63926E-03_JPRB,0.58703E-03_JPRB, & |
791 |
|
✗ |
& 0.51453E-03_JPRB,0.40976E-03_JPRB,0.27280E-03_JPRB,0.24974E-04_JPRB /) |
792 |
|
|
KA(:, 4, 4, 4) = (/ & |
793 |
|
|
& 0.58451E-03_JPRB,0.68925E-03_JPRB,0.68144E-03_JPRB,0.65410E-03_JPRB,0.60312E-03_JPRB, & |
794 |
|
✗ |
& 0.52903E-03_JPRB,0.42147E-03_JPRB,0.28096E-03_JPRB,0.27613E-04_JPRB /) |
795 |
|
|
KA(:, 5, 4, 4) = (/ & |
796 |
|
|
& 0.57885E-03_JPRB,0.69369E-03_JPRB,0.69153E-03_JPRB,0.66725E-03_JPRB,0.61666E-03_JPRB, & |
797 |
|
✗ |
& 0.54114E-03_JPRB,0.43123E-03_JPRB,0.28907E-03_JPRB,0.30243E-04_JPRB /) |
798 |
|
|
KA(:, 1, 5, 4) = (/ & |
799 |
|
|
& 0.50639E-03_JPRB,0.56897E-03_JPRB,0.55412E-03_JPRB,0.52127E-03_JPRB,0.47341E-03_JPRB, & |
800 |
|
✗ |
& 0.41669E-03_JPRB,0.33293E-03_JPRB,0.22215E-03_JPRB,0.17057E-04_JPRB /) |
801 |
|
|
KA(:, 2, 5, 4) = (/ & |
802 |
|
|
& 0.51065E-03_JPRB,0.58111E-03_JPRB,0.56740E-03_JPRB,0.53642E-03_JPRB,0.48970E-03_JPRB, & |
803 |
|
✗ |
& 0.43166E-03_JPRB,0.34671E-03_JPRB,0.23111E-03_JPRB,0.19191E-04_JPRB /) |
804 |
|
|
KA(:, 3, 5, 4) = (/ & |
805 |
|
|
& 0.51131E-03_JPRB,0.58923E-03_JPRB,0.57802E-03_JPRB,0.54989E-03_JPRB,0.50519E-03_JPRB, & |
806 |
|
✗ |
& 0.44520E-03_JPRB,0.35867E-03_JPRB,0.23955E-03_JPRB,0.21238E-04_JPRB /) |
807 |
|
|
KA(:, 4, 5, 4) = (/ & |
808 |
|
|
& 0.50888E-03_JPRB,0.59432E-03_JPRB,0.58700E-03_JPRB,0.56238E-03_JPRB,0.51899E-03_JPRB, & |
809 |
|
✗ |
& 0.45787E-03_JPRB,0.36960E-03_JPRB,0.24733E-03_JPRB,0.23442E-04_JPRB /) |
810 |
|
|
KA(:, 5, 5, 4) = (/ & |
811 |
|
|
& 0.50411E-03_JPRB,0.59804E-03_JPRB,0.59497E-03_JPRB,0.57342E-03_JPRB,0.53158E-03_JPRB, & |
812 |
|
✗ |
& 0.46924E-03_JPRB,0.37886E-03_JPRB,0.25450E-03_JPRB,0.25756E-04_JPRB /) |
813 |
|
|
KA(:, 1, 6, 4) = (/ & |
814 |
|
|
& 0.43673E-03_JPRB,0.48782E-03_JPRB,0.47499E-03_JPRB,0.44629E-03_JPRB,0.40354E-03_JPRB, & |
815 |
|
✗ |
& 0.35457E-03_JPRB,0.28605E-03_JPRB,0.19086E-03_JPRB,0.14702E-04_JPRB /) |
816 |
|
|
KA(:, 2, 6, 4) = (/ & |
817 |
|
|
& 0.44102E-03_JPRB,0.49831E-03_JPRB,0.48639E-03_JPRB,0.45943E-03_JPRB,0.41879E-03_JPRB, & |
818 |
|
✗ |
& 0.36808E-03_JPRB,0.29802E-03_JPRB,0.19985E-03_JPRB,0.16471E-04_JPRB /) |
819 |
|
|
KA(:, 3, 6, 4) = (/ & |
820 |
|
|
& 0.44221E-03_JPRB,0.50518E-03_JPRB,0.49538E-03_JPRB,0.47075E-03_JPRB,0.43183E-03_JPRB, & |
821 |
|
✗ |
& 0.37995E-03_JPRB,0.30882E-03_JPRB,0.20763E-03_JPRB,0.18420E-04_JPRB /) |
822 |
|
|
KA(:, 4, 6, 4) = (/ & |
823 |
|
|
& 0.44017E-03_JPRB,0.50994E-03_JPRB,0.50323E-03_JPRB,0.48141E-03_JPRB,0.44360E-03_JPRB, & |
824 |
|
✗ |
& 0.39116E-03_JPRB,0.31844E-03_JPRB,0.21460E-03_JPRB,0.20473E-04_JPRB /) |
825 |
|
|
KA(:, 5, 6, 4) = (/ & |
826 |
|
|
& 0.43656E-03_JPRB,0.51249E-03_JPRB,0.51000E-03_JPRB,0.49068E-03_JPRB,0.45425E-03_JPRB, & |
827 |
|
✗ |
& 0.40107E-03_JPRB,0.32653E-03_JPRB,0.22109E-03_JPRB,0.22600E-04_JPRB /) |
828 |
|
|
KA(:, 1, 7, 4) = (/ & |
829 |
|
|
& 0.37627E-03_JPRB,0.41525E-03_JPRB,0.40365E-03_JPRB,0.37923E-03_JPRB,0.34257E-03_JPRB, & |
830 |
|
✗ |
& 0.30147E-03_JPRB,0.24324E-03_JPRB,0.16094E-03_JPRB,0.13400E-04_JPRB /) |
831 |
|
|
KA(:, 2, 7, 4) = (/ & |
832 |
|
|
& 0.38051E-03_JPRB,0.42489E-03_JPRB,0.41400E-03_JPRB,0.39067E-03_JPRB,0.35555E-03_JPRB, & |
833 |
|
✗ |
& 0.31257E-03_JPRB,0.25353E-03_JPRB,0.16947E-03_JPRB,0.14905E-04_JPRB /) |
834 |
|
|
KA(:, 3, 7, 4) = (/ & |
835 |
|
|
& 0.38196E-03_JPRB,0.43154E-03_JPRB,0.42169E-03_JPRB,0.40035E-03_JPRB,0.36703E-03_JPRB, & |
836 |
|
✗ |
& 0.32311E-03_JPRB,0.26291E-03_JPRB,0.17672E-03_JPRB,0.16566E-04_JPRB /) |
837 |
|
|
KA(:, 4, 7, 4) = (/ & |
838 |
|
|
& 0.38108E-03_JPRB,0.43587E-03_JPRB,0.42809E-03_JPRB,0.40890E-03_JPRB,0.37694E-03_JPRB, & |
839 |
|
✗ |
& 0.33246E-03_JPRB,0.27094E-03_JPRB,0.18305E-03_JPRB,0.18352E-04_JPRB /) |
840 |
|
|
KA(:, 5, 7, 4) = (/ & |
841 |
|
|
& 0.37854E-03_JPRB,0.43889E-03_JPRB,0.43402E-03_JPRB,0.41697E-03_JPRB,0.38532E-03_JPRB, & |
842 |
|
✗ |
& 0.34074E-03_JPRB,0.27816E-03_JPRB,0.18873E-03_JPRB,0.20220E-04_JPRB /) |
843 |
|
|
KA(:, 1, 8, 4) = (/ & |
844 |
|
|
& 0.31968E-03_JPRB,0.35301E-03_JPRB,0.34310E-03_JPRB,0.32206E-03_JPRB,0.28904E-03_JPRB, & |
845 |
|
✗ |
& 0.25356E-03_JPRB,0.20523E-03_JPRB,0.13432E-03_JPRB,0.13548E-04_JPRB /) |
846 |
|
|
KA(:, 2, 8, 4) = (/ & |
847 |
|
|
& 0.32386E-03_JPRB,0.36229E-03_JPRB,0.35288E-03_JPRB,0.33214E-03_JPRB,0.30033E-03_JPRB, & |
848 |
|
✗ |
& 0.26345E-03_JPRB,0.21374E-03_JPRB,0.14198E-03_JPRB,0.14966E-04_JPRB /) |
849 |
|
|
KA(:, 3, 8, 4) = (/ & |
850 |
|
|
& 0.32521E-03_JPRB,0.36848E-03_JPRB,0.35986E-03_JPRB,0.34056E-03_JPRB,0.31042E-03_JPRB, & |
851 |
|
✗ |
& 0.27222E-03_JPRB,0.22115E-03_JPRB,0.14841E-03_JPRB,0.16278E-04_JPRB /) |
852 |
|
|
KA(:, 4, 8, 4) = (/ & |
853 |
|
|
& 0.32527E-03_JPRB,0.37258E-03_JPRB,0.36553E-03_JPRB,0.34811E-03_JPRB,0.31916E-03_JPRB, & |
854 |
|
✗ |
& 0.28034E-03_JPRB,0.22837E-03_JPRB,0.15443E-03_JPRB,0.17614E-04_JPRB /) |
855 |
|
|
KA(:, 5, 8, 4) = (/ & |
856 |
|
|
& 0.32272E-03_JPRB,0.37533E-03_JPRB,0.37025E-03_JPRB,0.35438E-03_JPRB,0.32632E-03_JPRB, & |
857 |
|
✗ |
& 0.28740E-03_JPRB,0.23484E-03_JPRB,0.15952E-03_JPRB,0.19075E-04_JPRB /) |
858 |
|
|
KA(:, 1, 9, 4) = (/ & |
859 |
|
|
& 0.26794E-03_JPRB,0.29655E-03_JPRB,0.28851E-03_JPRB,0.27155E-03_JPRB,0.24290E-03_JPRB, & |
860 |
|
✗ |
& 0.21182E-03_JPRB,0.17187E-03_JPRB,0.11158E-03_JPRB,0.16893E-04_JPRB /) |
861 |
|
|
KA(:, 2, 9, 4) = (/ & |
862 |
|
|
& 0.27215E-03_JPRB,0.30477E-03_JPRB,0.29765E-03_JPRB,0.28075E-03_JPRB,0.25336E-03_JPRB, & |
863 |
|
✗ |
& 0.22120E-03_JPRB,0.17858E-03_JPRB,0.11794E-03_JPRB,0.18576E-04_JPRB /) |
864 |
|
|
KA(:, 3, 9, 4) = (/ & |
865 |
|
|
& 0.27400E-03_JPRB,0.31061E-03_JPRB,0.30447E-03_JPRB,0.28836E-03_JPRB,0.26224E-03_JPRB, & |
866 |
|
✗ |
& 0.22886E-03_JPRB,0.18474E-03_JPRB,0.12372E-03_JPRB,0.20056E-04_JPRB /) |
867 |
|
|
KA(:, 4, 9, 4) = (/ & |
868 |
|
|
& 0.27385E-03_JPRB,0.31424E-03_JPRB,0.30923E-03_JPRB,0.29477E-03_JPRB,0.26977E-03_JPRB, & |
869 |
|
✗ |
& 0.23554E-03_JPRB,0.19093E-03_JPRB,0.12884E-03_JPRB,0.21321E-04_JPRB /) |
870 |
|
|
KA(:, 5, 9, 4) = (/ & |
871 |
|
|
& 0.27196E-03_JPRB,0.31647E-03_JPRB,0.31308E-03_JPRB,0.30006E-03_JPRB,0.27604E-03_JPRB, & |
872 |
|
✗ |
& 0.24191E-03_JPRB,0.19649E-03_JPRB,0.13352E-03_JPRB,0.22611E-04_JPRB /) |
873 |
|
|
KA(:, 1,10, 4) = (/ & |
874 |
|
|
& 0.22255E-03_JPRB,0.24716E-03_JPRB,0.24087E-03_JPRB,0.22672E-03_JPRB,0.20216E-03_JPRB, & |
875 |
|
✗ |
& 0.17582E-03_JPRB,0.14339E-03_JPRB,0.92528E-04_JPRB,0.22471E-04_JPRB /) |
876 |
|
|
KA(:, 2,10, 4) = (/ & |
877 |
|
|
& 0.22663E-03_JPRB,0.25429E-03_JPRB,0.24908E-03_JPRB,0.23506E-03_JPRB,0.21167E-03_JPRB, & |
878 |
|
✗ |
& 0.18377E-03_JPRB,0.14910E-03_JPRB,0.97972E-04_JPRB,0.24536E-04_JPRB /) |
879 |
|
|
KA(:, 3,10, 4) = (/ & |
880 |
|
|
& 0.22867E-03_JPRB,0.25963E-03_JPRB,0.25532E-03_JPRB,0.24169E-03_JPRB,0.21923E-03_JPRB, & |
881 |
|
✗ |
& 0.19067E-03_JPRB,0.15458E-03_JPRB,0.10293E-03_JPRB,0.26453E-04_JPRB /) |
882 |
|
|
KA(:, 4,10, 4) = (/ & |
883 |
|
|
& 0.22853E-03_JPRB,0.26273E-03_JPRB,0.25960E-03_JPRB,0.24704E-03_JPRB,0.22549E-03_JPRB, & |
884 |
|
✗ |
& 0.19679E-03_JPRB,0.15968E-03_JPRB,0.10728E-03_JPRB,0.28383E-04_JPRB /) |
885 |
|
|
KA(:, 5,10, 4) = (/ & |
886 |
|
|
& 0.22704E-03_JPRB,0.26469E-03_JPRB,0.26259E-03_JPRB,0.25141E-03_JPRB,0.23080E-03_JPRB, & |
887 |
|
✗ |
& 0.20216E-03_JPRB,0.16433E-03_JPRB,0.11116E-03_JPRB,0.30111E-04_JPRB /) |
888 |
|
|
KA(:, 1,11, 4) = (/ & |
889 |
|
|
& 0.18570E-03_JPRB,0.20791E-03_JPRB,0.20310E-03_JPRB,0.19106E-03_JPRB,0.17066E-03_JPRB, & |
890 |
|
✗ |
& 0.14797E-03_JPRB,0.12097E-03_JPRB,0.78704E-04_JPRB,0.20720E-04_JPRB /) |
891 |
|
|
KA(:, 2,11, 4) = (/ & |
892 |
|
|
& 0.18868E-03_JPRB,0.21356E-03_JPRB,0.20969E-03_JPRB,0.19807E-03_JPRB,0.17821E-03_JPRB, & |
893 |
|
✗ |
& 0.15434E-03_JPRB,0.12584E-03_JPRB,0.83179E-04_JPRB,0.23268E-04_JPRB /) |
894 |
|
|
KA(:, 3,11, 4) = (/ & |
895 |
|
|
& 0.18972E-03_JPRB,0.21732E-03_JPRB,0.21447E-03_JPRB,0.20305E-03_JPRB,0.18416E-03_JPRB, & |
896 |
|
✗ |
& 0.15993E-03_JPRB,0.13006E-03_JPRB,0.87134E-04_JPRB,0.25781E-04_JPRB /) |
897 |
|
|
KA(:, 4,11, 4) = (/ & |
898 |
|
|
& 0.18929E-03_JPRB,0.21955E-03_JPRB,0.21771E-03_JPRB,0.20711E-03_JPRB,0.18907E-03_JPRB, & |
899 |
|
✗ |
& 0.16493E-03_JPRB,0.13420E-03_JPRB,0.90699E-04_JPRB,0.28181E-04_JPRB /) |
900 |
|
|
KA(:, 5,11, 4) = (/ & |
901 |
|
|
& 0.18766E-03_JPRB,0.22095E-03_JPRB,0.21987E-03_JPRB,0.21045E-03_JPRB,0.19312E-03_JPRB, & |
902 |
|
✗ |
& 0.16934E-03_JPRB,0.13812E-03_JPRB,0.93840E-04_JPRB,0.30489E-04_JPRB /) |
903 |
|
|
KA(:, 1,12, 4) = (/ & |
904 |
|
|
& 0.15409E-03_JPRB,0.17399E-03_JPRB,0.17010E-03_JPRB,0.16002E-03_JPRB,0.14311E-03_JPRB, & |
905 |
|
✗ |
& 0.12376E-03_JPRB,0.10121E-03_JPRB,0.66428E-04_JPRB,0.17813E-04_JPRB /) |
906 |
|
|
KA(:, 2,12, 4) = (/ & |
907 |
|
|
& 0.15599E-03_JPRB,0.17831E-03_JPRB,0.17521E-03_JPRB,0.16554E-03_JPRB,0.14890E-03_JPRB, & |
908 |
|
✗ |
& 0.12881E-03_JPRB,0.10527E-03_JPRB,0.69964E-04_JPRB,0.19918E-04_JPRB /) |
909 |
|
|
KA(:, 3,12, 4) = (/ & |
910 |
|
|
& 0.15661E-03_JPRB,0.18119E-03_JPRB,0.17892E-03_JPRB,0.16934E-03_JPRB,0.15365E-03_JPRB, & |
911 |
|
✗ |
& 0.13338E-03_JPRB,0.10864E-03_JPRB,0.73142E-04_JPRB,0.22121E-04_JPRB /) |
912 |
|
|
KA(:, 4,12, 4) = (/ & |
913 |
|
|
& 0.15608E-03_JPRB,0.18293E-03_JPRB,0.18145E-03_JPRB,0.17254E-03_JPRB,0.15743E-03_JPRB, & |
914 |
|
✗ |
& 0.13747E-03_JPRB,0.11209E-03_JPRB,0.75971E-04_JPRB,0.24425E-04_JPRB /) |
915 |
|
|
KA(:, 5,12, 4) = (/ & |
916 |
|
|
& 0.15453E-03_JPRB,0.18383E-03_JPRB,0.18309E-03_JPRB,0.17510E-03_JPRB,0.16067E-03_JPRB, & |
917 |
|
✗ |
& 0.14102E-03_JPRB,0.11529E-03_JPRB,0.78607E-04_JPRB,0.26791E-04_JPRB /) |
918 |
|
|
KA(:, 1,13, 4) = (/ & |
919 |
|
|
& 0.12705E-03_JPRB,0.14485E-03_JPRB,0.14155E-03_JPRB,0.13312E-03_JPRB,0.11914E-03_JPRB, & |
920 |
|
✗ |
& 0.10299E-03_JPRB,0.84416E-04_JPRB,0.55598E-04_JPRB,0.14429E-04_JPRB /) |
921 |
|
|
KA(:, 2,13, 4) = (/ & |
922 |
|
|
& 0.12843E-03_JPRB,0.14822E-03_JPRB,0.14555E-03_JPRB,0.13748E-03_JPRB,0.12377E-03_JPRB, & |
923 |
|
✗ |
& 0.10702E-03_JPRB,0.87520E-04_JPRB,0.58405E-04_JPRB,0.16147E-04_JPRB /) |
924 |
|
|
KA(:, 3,13, 4) = (/ & |
925 |
|
|
& 0.12875E-03_JPRB,0.15043E-03_JPRB,0.14850E-03_JPRB,0.14053E-03_JPRB,0.12752E-03_JPRB, & |
926 |
|
✗ |
& 0.11081E-03_JPRB,0.90348E-04_JPRB,0.60934E-04_JPRB,0.17992E-04_JPRB /) |
927 |
|
|
KA(:, 4,13, 4) = (/ & |
928 |
|
|
& 0.12822E-03_JPRB,0.15175E-03_JPRB,0.15049E-03_JPRB,0.14301E-03_JPRB,0.13059E-03_JPRB, & |
929 |
|
✗ |
& 0.11413E-03_JPRB,0.93171E-04_JPRB,0.63296E-04_JPRB,0.19888E-04_JPRB /) |
930 |
|
|
KA(:, 5,13, 4) = (/ & |
931 |
|
|
& 0.12684E-03_JPRB,0.15239E-03_JPRB,0.15179E-03_JPRB,0.14511E-03_JPRB,0.13320E-03_JPRB, & |
932 |
|
✗ |
& 0.11702E-03_JPRB,0.95786E-04_JPRB,0.65468E-04_JPRB,0.21706E-04_JPRB /) |
933 |
|
|
KA(:, 1, 1, 5) = (/ & |
934 |
|
|
& 0.16451E-02_JPRB,0.17375E-02_JPRB,0.16665E-02_JPRB,0.15396E-02_JPRB,0.13696E-02_JPRB, & |
935 |
|
✗ |
& 0.11731E-02_JPRB,0.92753E-03_JPRB,0.61159E-03_JPRB,0.14680E-03_JPRB /) |
936 |
|
|
KA(:, 2, 1, 5) = (/ & |
937 |
|
|
& 0.16450E-02_JPRB,0.17591E-02_JPRB,0.16954E-02_JPRB,0.15711E-02_JPRB,0.14087E-02_JPRB, & |
938 |
|
✗ |
& 0.12092E-02_JPRB,0.95859E-03_JPRB,0.63308E-03_JPRB,0.16131E-03_JPRB /) |
939 |
|
|
KA(:, 3, 1, 5) = (/ & |
940 |
|
|
& 0.16396E-02_JPRB,0.17762E-02_JPRB,0.17200E-02_JPRB,0.16012E-02_JPRB,0.14448E-02_JPRB, & |
941 |
|
✗ |
& 0.12424E-02_JPRB,0.98862E-03_JPRB,0.65400E-03_JPRB,0.17365E-03_JPRB /) |
942 |
|
|
KA(:, 4, 1, 5) = (/ & |
943 |
|
|
& 0.16299E-02_JPRB,0.17875E-02_JPRB,0.17415E-02_JPRB,0.16313E-02_JPRB,0.14788E-02_JPRB, & |
944 |
|
✗ |
& 0.12751E-02_JPRB,0.10161E-02_JPRB,0.67524E-03_JPRB,0.18499E-03_JPRB /) |
945 |
|
|
KA(:, 5, 1, 5) = (/ & |
946 |
|
|
& 0.16127E-02_JPRB,0.17946E-02_JPRB,0.17629E-02_JPRB,0.16594E-02_JPRB,0.15119E-02_JPRB, & |
947 |
|
✗ |
& 0.13059E-02_JPRB,0.10419E-02_JPRB,0.69511E-03_JPRB,0.19999E-03_JPRB /) |
948 |
|
|
KA(:, 1, 2, 5) = (/ & |
949 |
|
|
& 0.15084E-02_JPRB,0.15931E-02_JPRB,0.15186E-02_JPRB,0.13958E-02_JPRB,0.12369E-02_JPRB, & |
950 |
|
✗ |
& 0.10500E-02_JPRB,0.83688E-03_JPRB,0.55465E-03_JPRB,0.11914E-03_JPRB /) |
951 |
|
|
|
952 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART3',1,ZHOOK_HANDLE) |
953 |
|
✗ |
END SUBROUTINE PART3 |
954 |
|
|
|
955 |
|
|
|
956 |
|
✗ |
SUBROUTINE PART4 |
957 |
|
|
|
958 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
959 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART4',0,ZHOOK_HANDLE) |
960 |
|
|
|
961 |
|
|
|
962 |
|
|
KA(:, 2, 2, 5) = (/ & |
963 |
|
|
& 0.15115E-02_JPRB,0.16146E-02_JPRB,0.15457E-02_JPRB,0.14241E-02_JPRB,0.12724E-02_JPRB, & |
964 |
|
✗ |
& 0.10844E-02_JPRB,0.86669E-03_JPRB,0.57603E-03_JPRB,0.13037E-03_JPRB /) |
965 |
|
|
KA(:, 3, 2, 5) = (/ & |
966 |
|
|
& 0.15084E-02_JPRB,0.16309E-02_JPRB,0.15669E-02_JPRB,0.14522E-02_JPRB,0.13074E-02_JPRB, & |
967 |
|
✗ |
& 0.11181E-02_JPRB,0.89787E-03_JPRB,0.59657E-03_JPRB,0.13918E-03_JPRB /) |
968 |
|
|
KA(:, 4, 2, 5) = (/ & |
969 |
|
|
& 0.14965E-02_JPRB,0.16419E-02_JPRB,0.15861E-02_JPRB,0.14781E-02_JPRB,0.13385E-02_JPRB, & |
970 |
|
✗ |
& 0.11507E-02_JPRB,0.92569E-03_JPRB,0.61596E-03_JPRB,0.15053E-03_JPRB /) |
971 |
|
|
KA(:, 5, 2, 5) = (/ & |
972 |
|
|
& 0.14804E-02_JPRB,0.16493E-02_JPRB,0.16042E-02_JPRB,0.15021E-02_JPRB,0.13704E-02_JPRB, & |
973 |
|
✗ |
& 0.11804E-02_JPRB,0.95044E-03_JPRB,0.63472E-03_JPRB,0.16410E-03_JPRB /) |
974 |
|
|
KA(:, 1, 3, 5) = (/ & |
975 |
|
|
& 0.13707E-02_JPRB,0.14436E-02_JPRB,0.13706E-02_JPRB,0.12561E-02_JPRB,0.11093E-02_JPRB, & |
976 |
|
✗ |
& 0.93534E-03_JPRB,0.74505E-03_JPRB,0.49303E-03_JPRB,0.93388E-04_JPRB /) |
977 |
|
|
KA(:, 2, 3, 5) = (/ & |
978 |
|
|
& 0.13760E-02_JPRB,0.14666E-02_JPRB,0.13986E-02_JPRB,0.12850E-02_JPRB,0.11416E-02_JPRB, & |
979 |
|
✗ |
& 0.96700E-03_JPRB,0.77192E-03_JPRB,0.51430E-03_JPRB,0.10062E-03_JPRB /) |
980 |
|
|
KA(:, 3, 3, 5) = (/ & |
981 |
|
|
& 0.13732E-02_JPRB,0.14839E-02_JPRB,0.14208E-02_JPRB,0.13112E-02_JPRB,0.11718E-02_JPRB, & |
982 |
|
✗ |
& 0.99814E-03_JPRB,0.79899E-03_JPRB,0.53404E-03_JPRB,0.10964E-03_JPRB /) |
983 |
|
|
KA(:, 4, 3, 5) = (/ & |
984 |
|
|
& 0.13644E-02_JPRB,0.14939E-02_JPRB,0.14404E-02_JPRB,0.13346E-02_JPRB,0.12002E-02_JPRB, & |
985 |
|
✗ |
& 0.10295E-02_JPRB,0.82532E-03_JPRB,0.55285E-03_JPRB,0.12023E-03_JPRB /) |
986 |
|
|
KA(:, 5, 3, 5) = (/ & |
987 |
|
|
& 0.13512E-02_JPRB,0.15024E-02_JPRB,0.14568E-02_JPRB,0.13559E-02_JPRB,0.12266E-02_JPRB, & |
988 |
|
✗ |
& 0.10592E-02_JPRB,0.85085E-03_JPRB,0.57058E-03_JPRB,0.13064E-03_JPRB /) |
989 |
|
|
KA(:, 1, 4, 5) = (/ & |
990 |
|
|
& 0.12336E-02_JPRB,0.12968E-02_JPRB,0.12255E-02_JPRB,0.11189E-02_JPRB,0.98785E-03_JPRB, & |
991 |
|
✗ |
& 0.83184E-03_JPRB,0.66033E-03_JPRB,0.43467E-03_JPRB,0.70047E-04_JPRB /) |
992 |
|
|
KA(:, 2, 4, 5) = (/ & |
993 |
|
|
& 0.12419E-02_JPRB,0.13192E-02_JPRB,0.12543E-02_JPRB,0.11482E-02_JPRB,0.10189E-02_JPRB, & |
994 |
|
✗ |
& 0.86315E-03_JPRB,0.68559E-03_JPRB,0.45559E-03_JPRB,0.76629E-04_JPRB /) |
995 |
|
|
KA(:, 3, 4, 5) = (/ & |
996 |
|
|
& 0.12416E-02_JPRB,0.13349E-02_JPRB,0.12771E-02_JPRB,0.11745E-02_JPRB,0.10469E-02_JPRB, & |
997 |
|
✗ |
& 0.89182E-03_JPRB,0.71110E-03_JPRB,0.47551E-03_JPRB,0.84761E-04_JPRB /) |
998 |
|
|
KA(:, 4, 4, 5) = (/ & |
999 |
|
|
& 0.12342E-02_JPRB,0.13470E-02_JPRB,0.12958E-02_JPRB,0.11964E-02_JPRB,0.10726E-02_JPRB, & |
1000 |
|
✗ |
& 0.91965E-03_JPRB,0.73487E-03_JPRB,0.49419E-03_JPRB,0.93979E-04_JPRB /) |
1001 |
|
|
KA(:, 5, 4, 5) = (/ & |
1002 |
|
|
& 0.12238E-02_JPRB,0.13566E-02_JPRB,0.13110E-02_JPRB,0.12168E-02_JPRB,0.10976E-02_JPRB, & |
1003 |
|
✗ |
& 0.94731E-03_JPRB,0.75866E-03_JPRB,0.51080E-03_JPRB,0.10249E-03_JPRB /) |
1004 |
|
|
KA(:, 1, 5, 5) = (/ & |
1005 |
|
|
& 0.10970E-02_JPRB,0.11491E-02_JPRB,0.10850E-02_JPRB,0.99037E-03_JPRB,0.87478E-03_JPRB, & |
1006 |
|
✗ |
& 0.73644E-03_JPRB,0.58168E-03_JPRB,0.38673E-03_JPRB,0.55328E-04_JPRB /) |
1007 |
|
|
KA(:, 2, 5, 5) = (/ & |
1008 |
|
|
& 0.11051E-02_JPRB,0.11716E-02_JPRB,0.11129E-02_JPRB,0.10196E-02_JPRB,0.90431E-03_JPRB, & |
1009 |
|
✗ |
& 0.76445E-03_JPRB,0.60553E-03_JPRB,0.40600E-03_JPRB,0.61413E-04_JPRB /) |
1010 |
|
|
KA(:, 3, 5, 5) = (/ & |
1011 |
|
|
& 0.11053E-02_JPRB,0.11877E-02_JPRB,0.11365E-02_JPRB,0.10446E-02_JPRB,0.92981E-03_JPRB, & |
1012 |
|
✗ |
& 0.79114E-03_JPRB,0.62919E-03_JPRB,0.42419E-03_JPRB,0.68340E-04_JPRB /) |
1013 |
|
|
KA(:, 4, 5, 5) = (/ & |
1014 |
|
|
& 0.11000E-02_JPRB,0.12008E-02_JPRB,0.11557E-02_JPRB,0.10648E-02_JPRB,0.95310E-03_JPRB, & |
1015 |
|
✗ |
& 0.81721E-03_JPRB,0.65273E-03_JPRB,0.44128E-03_JPRB,0.75425E-04_JPRB /) |
1016 |
|
|
KA(:, 5, 5, 5) = (/ & |
1017 |
|
|
& 0.10930E-02_JPRB,0.12101E-02_JPRB,0.11704E-02_JPRB,0.10855E-02_JPRB,0.97521E-03_JPRB, & |
1018 |
|
✗ |
& 0.84232E-03_JPRB,0.67516E-03_JPRB,0.45733E-03_JPRB,0.82112E-04_JPRB /) |
1019 |
|
|
KA(:, 1, 6, 5) = (/ & |
1020 |
|
|
& 0.96254E-03_JPRB,0.10041E-02_JPRB,0.94496E-03_JPRB,0.86305E-03_JPRB,0.76515E-03_JPRB, & |
1021 |
|
✗ |
& 0.64666E-03_JPRB,0.50949E-03_JPRB,0.34237E-03_JPRB,0.45743E-04_JPRB /) |
1022 |
|
|
KA(:, 2, 6, 5) = (/ & |
1023 |
|
|
& 0.97168E-03_JPRB,0.10257E-02_JPRB,0.97306E-03_JPRB,0.89241E-03_JPRB,0.79300E-03_JPRB, & |
1024 |
|
✗ |
& 0.67315E-03_JPRB,0.53212E-03_JPRB,0.35953E-03_JPRB,0.50936E-04_JPRB /) |
1025 |
|
|
KA(:, 3, 6, 5) = (/ & |
1026 |
|
|
& 0.97307E-03_JPRB,0.10417E-02_JPRB,0.99540E-03_JPRB,0.91663E-03_JPRB,0.81739E-03_JPRB, & |
1027 |
|
✗ |
& 0.69764E-03_JPRB,0.55388E-03_JPRB,0.37625E-03_JPRB,0.56704E-04_JPRB /) |
1028 |
|
|
KA(:, 4, 6, 5) = (/ & |
1029 |
|
|
& 0.97112E-03_JPRB,0.10538E-02_JPRB,0.10130E-02_JPRB,0.93600E-03_JPRB,0.83875E-03_JPRB, & |
1030 |
|
✗ |
& 0.72048E-03_JPRB,0.57540E-03_JPRB,0.39219E-03_JPRB,0.62214E-04_JPRB /) |
1031 |
|
|
KA(:, 5, 6, 5) = (/ & |
1032 |
|
|
& 0.96524E-03_JPRB,0.10634E-02_JPRB,0.10272E-02_JPRB,0.95339E-03_JPRB,0.85814E-03_JPRB, & |
1033 |
|
✗ |
& 0.74256E-03_JPRB,0.59649E-03_JPRB,0.40723E-03_JPRB,0.68154E-04_JPRB /) |
1034 |
|
|
KA(:, 1, 7, 5) = (/ & |
1035 |
|
|
& 0.83977E-03_JPRB,0.87150E-03_JPRB,0.81798E-03_JPRB,0.74510E-03_JPRB,0.66073E-03_JPRB, & |
1036 |
|
✗ |
& 0.55889E-03_JPRB,0.44038E-03_JPRB,0.30023E-03_JPRB,0.39438E-04_JPRB /) |
1037 |
|
|
KA(:, 2, 7, 5) = (/ & |
1038 |
|
|
& 0.84860E-03_JPRB,0.89183E-03_JPRB,0.84311E-03_JPRB,0.77202E-03_JPRB,0.68677E-03_JPRB, & |
1039 |
|
✗ |
& 0.58412E-03_JPRB,0.46261E-03_JPRB,0.31513E-03_JPRB,0.44026E-04_JPRB /) |
1040 |
|
|
KA(:, 3, 7, 5) = (/ & |
1041 |
|
|
& 0.85156E-03_JPRB,0.90640E-03_JPRB,0.86357E-03_JPRB,0.79472E-03_JPRB,0.70843E-03_JPRB, & |
1042 |
|
✗ |
& 0.60616E-03_JPRB,0.48333E-03_JPRB,0.32962E-03_JPRB,0.48169E-04_JPRB /) |
1043 |
|
|
KA(:, 4, 7, 5) = (/ & |
1044 |
|
|
& 0.84996E-03_JPRB,0.91804E-03_JPRB,0.88000E-03_JPRB,0.81332E-03_JPRB,0.72741E-03_JPRB, & |
1045 |
|
✗ |
& 0.62668E-03_JPRB,0.50295E-03_JPRB,0.34425E-03_JPRB,0.52632E-04_JPRB /) |
1046 |
|
|
KA(:, 5, 7, 5) = (/ & |
1047 |
|
|
& 0.84411E-03_JPRB,0.92502E-03_JPRB,0.89195E-03_JPRB,0.82771E-03_JPRB,0.74479E-03_JPRB, & |
1048 |
|
✗ |
& 0.64630E-03_JPRB,0.52177E-03_JPRB,0.35838E-03_JPRB,0.57490E-04_JPRB /) |
1049 |
|
|
KA(:, 1, 8, 5) = (/ & |
1050 |
|
|
& 0.72566E-03_JPRB,0.75029E-03_JPRB,0.70410E-03_JPRB,0.64085E-03_JPRB,0.56881E-03_JPRB, & |
1051 |
|
✗ |
& 0.48163E-03_JPRB,0.37585E-03_JPRB,0.26029E-03_JPRB,0.35173E-04_JPRB /) |
1052 |
|
|
KA(:, 2, 8, 5) = (/ & |
1053 |
|
|
& 0.73526E-03_JPRB,0.76878E-03_JPRB,0.72724E-03_JPRB,0.66569E-03_JPRB,0.59239E-03_JPRB, & |
1054 |
|
✗ |
& 0.50357E-03_JPRB,0.39670E-03_JPRB,0.27234E-03_JPRB,0.38442E-04_JPRB /) |
1055 |
|
|
KA(:, 3, 8, 5) = (/ & |
1056 |
|
|
& 0.73942E-03_JPRB,0.78240E-03_JPRB,0.74617E-03_JPRB,0.68580E-03_JPRB,0.61175E-03_JPRB, & |
1057 |
|
✗ |
& 0.52308E-03_JPRB,0.41633E-03_JPRB,0.28548E-03_JPRB,0.42620E-04_JPRB /) |
1058 |
|
|
KA(:, 4, 8, 5) = (/ & |
1059 |
|
|
& 0.73787E-03_JPRB,0.79331E-03_JPRB,0.76108E-03_JPRB,0.70193E-03_JPRB,0.62821E-03_JPRB, & |
1060 |
|
✗ |
& 0.54092E-03_JPRB,0.43381E-03_JPRB,0.29821E-03_JPRB,0.47013E-04_JPRB /) |
1061 |
|
|
KA(:, 5, 8, 5) = (/ & |
1062 |
|
|
& 0.73365E-03_JPRB,0.79895E-03_JPRB,0.77125E-03_JPRB,0.71463E-03_JPRB,0.64295E-03_JPRB, & |
1063 |
|
✗ |
& 0.55753E-03_JPRB,0.45033E-03_JPRB,0.31091E-03_JPRB,0.51519E-04_JPRB /) |
1064 |
|
|
KA(:, 1, 9, 5) = (/ & |
1065 |
|
|
& 0.62112E-03_JPRB,0.63900E-03_JPRB,0.60071E-03_JPRB,0.54641E-03_JPRB,0.48585E-03_JPRB, & |
1066 |
|
✗ |
& 0.41219E-03_JPRB,0.31988E-03_JPRB,0.22088E-03_JPRB,0.39225E-04_JPRB /) |
1067 |
|
|
KA(:, 2, 9, 5) = (/ & |
1068 |
|
|
& 0.63089E-03_JPRB,0.65678E-03_JPRB,0.62144E-03_JPRB,0.56855E-03_JPRB,0.50663E-03_JPRB, & |
1069 |
|
✗ |
& 0.43158E-03_JPRB,0.33912E-03_JPRB,0.23261E-03_JPRB,0.43145E-04_JPRB /) |
1070 |
|
|
KA(:, 3, 9, 5) = (/ & |
1071 |
|
|
& 0.63630E-03_JPRB,0.67023E-03_JPRB,0.63841E-03_JPRB,0.58635E-03_JPRB,0.52398E-03_JPRB, & |
1072 |
|
✗ |
& 0.44876E-03_JPRB,0.35619E-03_JPRB,0.24341E-03_JPRB,0.47182E-04_JPRB /) |
1073 |
|
|
KA(:, 4, 9, 5) = (/ & |
1074 |
|
|
& 0.63678E-03_JPRB,0.68001E-03_JPRB,0.65143E-03_JPRB,0.60045E-03_JPRB,0.53807E-03_JPRB, & |
1075 |
|
✗ |
& 0.46446E-03_JPRB,0.37160E-03_JPRB,0.25517E-03_JPRB,0.51310E-04_JPRB /) |
1076 |
|
|
KA(:, 5, 9, 5) = (/ & |
1077 |
|
|
& 0.63384E-03_JPRB,0.68558E-03_JPRB,0.66049E-03_JPRB,0.61133E-03_JPRB,0.55067E-03_JPRB, & |
1078 |
|
✗ |
& 0.47828E-03_JPRB,0.38622E-03_JPRB,0.26607E-03_JPRB,0.55652E-04_JPRB /) |
1079 |
|
|
KA(:, 1,10, 5) = (/ & |
1080 |
|
|
& 0.52818E-03_JPRB,0.54302E-03_JPRB,0.51109E-03_JPRB,0.46524E-03_JPRB,0.41303E-03_JPRB, & |
1081 |
|
✗ |
& 0.35089E-03_JPRB,0.27050E-03_JPRB,0.18719E-03_JPRB,0.51897E-04_JPRB /) |
1082 |
|
|
KA(:, 2,10, 5) = (/ & |
1083 |
|
|
& 0.53874E-03_JPRB,0.56000E-03_JPRB,0.52974E-03_JPRB,0.48429E-03_JPRB,0.43151E-03_JPRB, & |
1084 |
|
✗ |
& 0.36826E-03_JPRB,0.28749E-03_JPRB,0.19624E-03_JPRB,0.57480E-04_JPRB /) |
1085 |
|
|
KA(:, 3,10, 5) = (/ & |
1086 |
|
|
& 0.54407E-03_JPRB,0.57298E-03_JPRB,0.54499E-03_JPRB,0.50007E-03_JPRB,0.44685E-03_JPRB, & |
1087 |
|
✗ |
& 0.38282E-03_JPRB,0.30218E-03_JPRB,0.20623E-03_JPRB,0.63250E-04_JPRB /) |
1088 |
|
|
KA(:, 4,10, 5) = (/ & |
1089 |
|
|
& 0.54510E-03_JPRB,0.58221E-03_JPRB,0.55605E-03_JPRB,0.51259E-03_JPRB,0.45923E-03_JPRB, & |
1090 |
|
✗ |
& 0.39550E-03_JPRB,0.31547E-03_JPRB,0.21632E-03_JPRB,0.68339E-04_JPRB /) |
1091 |
|
|
KA(:, 5,10, 5) = (/ & |
1092 |
|
|
& 0.54335E-03_JPRB,0.58744E-03_JPRB,0.56412E-03_JPRB,0.52185E-03_JPRB,0.47008E-03_JPRB, & |
1093 |
|
✗ |
& 0.40728E-03_JPRB,0.32798E-03_JPRB,0.22618E-03_JPRB,0.72964E-04_JPRB /) |
1094 |
|
|
KA(:, 1,11, 5) = (/ & |
1095 |
|
|
& 0.44901E-03_JPRB,0.46427E-03_JPRB,0.43915E-03_JPRB,0.40187E-03_JPRB,0.35719E-03_JPRB, & |
1096 |
|
✗ |
& 0.30380E-03_JPRB,0.23427E-03_JPRB,0.15956E-03_JPRB,0.52228E-04_JPRB /) |
1097 |
|
|
KA(:, 2,11, 5) = (/ & |
1098 |
|
|
& 0.45685E-03_JPRB,0.47845E-03_JPRB,0.45475E-03_JPRB,0.41772E-03_JPRB,0.37275E-03_JPRB, & |
1099 |
|
✗ |
& 0.31798E-03_JPRB,0.24772E-03_JPRB,0.16817E-03_JPRB,0.56979E-04_JPRB /) |
1100 |
|
|
KA(:, 3,11, 5) = (/ & |
1101 |
|
|
& 0.46005E-03_JPRB,0.48879E-03_JPRB,0.46665E-03_JPRB,0.43038E-03_JPRB,0.38526E-03_JPRB, & |
1102 |
|
✗ |
& 0.32982E-03_JPRB,0.25983E-03_JPRB,0.17707E-03_JPRB,0.61788E-04_JPRB /) |
1103 |
|
|
KA(:, 4,11, 5) = (/ & |
1104 |
|
|
& 0.46029E-03_JPRB,0.49540E-03_JPRB,0.47547E-03_JPRB,0.44015E-03_JPRB,0.39539E-03_JPRB, & |
1105 |
|
✗ |
& 0.34025E-03_JPRB,0.27087E-03_JPRB,0.18596E-03_JPRB,0.66537E-04_JPRB /) |
1106 |
|
|
KA(:, 5,11, 5) = (/ & |
1107 |
|
|
& 0.45760E-03_JPRB,0.49879E-03_JPRB,0.48175E-03_JPRB,0.44812E-03_JPRB,0.40429E-03_JPRB, & |
1108 |
|
✗ |
& 0.34971E-03_JPRB,0.28105E-03_JPRB,0.19422E-03_JPRB,0.70982E-04_JPRB /) |
1109 |
|
|
KA(:, 1,12, 5) = (/ & |
1110 |
|
|
& 0.37789E-03_JPRB,0.39359E-03_JPRB,0.37439E-03_JPRB,0.34335E-03_JPRB,0.30516E-03_JPRB, & |
1111 |
|
✗ |
& 0.25987E-03_JPRB,0.20136E-03_JPRB,0.13616E-03_JPRB,0.47471E-04_JPRB /) |
1112 |
|
|
KA(:, 2,12, 5) = (/ & |
1113 |
|
|
& 0.38345E-03_JPRB,0.40460E-03_JPRB,0.38678E-03_JPRB,0.35616E-03_JPRB,0.31793E-03_JPRB, & |
1114 |
|
✗ |
& 0.27155E-03_JPRB,0.21219E-03_JPRB,0.14366E-03_JPRB,0.51576E-04_JPRB /) |
1115 |
|
|
KA(:, 3,12, 5) = (/ & |
1116 |
|
|
& 0.38556E-03_JPRB,0.41241E-03_JPRB,0.39583E-03_JPRB,0.36622E-03_JPRB,0.32808E-03_JPRB, & |
1117 |
|
✗ |
& 0.28132E-03_JPRB,0.22259E-03_JPRB,0.15133E-03_JPRB,0.55529E-04_JPRB /) |
1118 |
|
|
KA(:, 4,12, 5) = (/ & |
1119 |
|
|
& 0.38464E-03_JPRB,0.41687E-03_JPRB,0.40247E-03_JPRB,0.37394E-03_JPRB,0.33650E-03_JPRB, & |
1120 |
|
✗ |
& 0.28994E-03_JPRB,0.23157E-03_JPRB,0.15870E-03_JPRB,0.59557E-04_JPRB /) |
1121 |
|
|
KA(:, 5,12, 5) = (/ & |
1122 |
|
|
& 0.38119E-03_JPRB,0.41880E-03_JPRB,0.40725E-03_JPRB,0.38009E-03_JPRB,0.34354E-03_JPRB, & |
1123 |
|
✗ |
& 0.29781E-03_JPRB,0.23974E-03_JPRB,0.16572E-03_JPRB,0.63195E-04_JPRB /) |
1124 |
|
|
KA(:, 1,13, 5) = (/ & |
1125 |
|
|
& 0.31518E-03_JPRB,0.33080E-03_JPRB,0.31644E-03_JPRB,0.29051E-03_JPRB,0.25824E-03_JPRB, & |
1126 |
|
✗ |
& 0.21997E-03_JPRB,0.17074E-03_JPRB,0.11585E-03_JPRB,0.39419E-04_JPRB /) |
1127 |
|
|
KA(:, 2,13, 5) = (/ & |
1128 |
|
|
& 0.31945E-03_JPRB,0.33947E-03_JPRB,0.32620E-03_JPRB,0.30064E-03_JPRB,0.26839E-03_JPRB, & |
1129 |
|
✗ |
& 0.22968E-03_JPRB,0.17999E-03_JPRB,0.12241E-03_JPRB,0.42717E-04_JPRB /) |
1130 |
|
|
KA(:, 3,13, 5) = (/ & |
1131 |
|
|
& 0.32042E-03_JPRB,0.34518E-03_JPRB,0.33311E-03_JPRB,0.30844E-03_JPRB,0.27653E-03_JPRB, & |
1132 |
|
✗ |
& 0.23733E-03_JPRB,0.18840E-03_JPRB,0.12892E-03_JPRB,0.45799E-04_JPRB /) |
1133 |
|
|
KA(:, 4,13, 5) = (/ & |
1134 |
|
|
& 0.31877E-03_JPRB,0.34829E-03_JPRB,0.33813E-03_JPRB,0.31466E-03_JPRB,0.28316E-03_JPRB, & |
1135 |
|
✗ |
& 0.24429E-03_JPRB,0.19577E-03_JPRB,0.13500E-03_JPRB,0.49095E-04_JPRB /) |
1136 |
|
|
KA(:, 5,13, 5) = (/ & |
1137 |
|
|
& 0.31533E-03_JPRB,0.34943E-03_JPRB,0.34164E-03_JPRB,0.31953E-03_JPRB,0.28883E-03_JPRB, & |
1138 |
|
✗ |
& 0.25064E-03_JPRB,0.20247E-03_JPRB,0.14079E-03_JPRB,0.52225E-04_JPRB /) |
1139 |
|
|
KA(:, 1, 1, 6) = (/ & |
1140 |
|
|
& 0.30073E-02_JPRB,0.30215E-02_JPRB,0.28549E-02_JPRB,0.26145E-02_JPRB,0.23223E-02_JPRB, & |
1141 |
|
✗ |
& 0.19698E-02_JPRB,0.15631E-02_JPRB,0.10671E-02_JPRB,0.34349E-03_JPRB /) |
1142 |
|
|
KA(:, 2, 1, 6) = (/ & |
1143 |
|
|
& 0.30045E-02_JPRB,0.30464E-02_JPRB,0.29000E-02_JPRB,0.26682E-02_JPRB,0.23795E-02_JPRB, & |
1144 |
|
✗ |
& 0.20320E-02_JPRB,0.16241E-02_JPRB,0.11180E-02_JPRB,0.37241E-03_JPRB /) |
1145 |
|
|
KA(:, 3, 1, 6) = (/ & |
1146 |
|
|
& 0.29924E-02_JPRB,0.30694E-02_JPRB,0.29376E-02_JPRB,0.27170E-02_JPRB,0.24327E-02_JPRB, & |
1147 |
|
✗ |
& 0.20955E-02_JPRB,0.16828E-02_JPRB,0.11692E-02_JPRB,0.41183E-03_JPRB /) |
1148 |
|
|
KA(:, 4, 1, 6) = (/ & |
1149 |
|
|
& 0.29732E-02_JPRB,0.30875E-02_JPRB,0.29723E-02_JPRB,0.27617E-02_JPRB,0.24862E-02_JPRB, & |
1150 |
|
✗ |
& 0.21555E-02_JPRB,0.17426E-02_JPRB,0.12186E-02_JPRB,0.45672E-03_JPRB /) |
1151 |
|
|
KA(:, 5, 1, 6) = (/ & |
1152 |
|
|
& 0.29511E-02_JPRB,0.31004E-02_JPRB,0.30014E-02_JPRB,0.28043E-02_JPRB,0.25375E-02_JPRB, & |
1153 |
|
✗ |
& 0.22174E-02_JPRB,0.18018E-02_JPRB,0.12656E-02_JPRB,0.49848E-03_JPRB /) |
1154 |
|
|
KA(:, 1, 2, 6) = (/ & |
1155 |
|
|
& 0.28011E-02_JPRB,0.28061E-02_JPRB,0.26513E-02_JPRB,0.24171E-02_JPRB,0.21391E-02_JPRB, & |
1156 |
|
✗ |
& 0.18145E-02_JPRB,0.14290E-02_JPRB,0.97808E-03_JPRB,0.28283E-03_JPRB /) |
1157 |
|
|
KA(:, 2, 2, 6) = (/ & |
1158 |
|
|
& 0.28038E-02_JPRB,0.28333E-02_JPRB,0.26971E-02_JPRB,0.24708E-02_JPRB,0.21906E-02_JPRB, & |
1159 |
|
✗ |
& 0.18715E-02_JPRB,0.14859E-02_JPRB,0.10236E-02_JPRB,0.31088E-03_JPRB /) |
1160 |
|
|
KA(:, 3, 2, 6) = (/ & |
1161 |
|
|
& 0.27978E-02_JPRB,0.28587E-02_JPRB,0.27386E-02_JPRB,0.25159E-02_JPRB,0.22406E-02_JPRB, & |
1162 |
|
✗ |
& 0.19256E-02_JPRB,0.15398E-02_JPRB,0.10695E-02_JPRB,0.34605E-03_JPRB /) |
1163 |
|
|
KA(:, 4, 2, 6) = (/ & |
1164 |
|
|
& 0.27864E-02_JPRB,0.28782E-02_JPRB,0.27737E-02_JPRB,0.25561E-02_JPRB,0.22888E-02_JPRB, & |
1165 |
|
✗ |
& 0.19778E-02_JPRB,0.15963E-02_JPRB,0.11144E-02_JPRB,0.38043E-03_JPRB /) |
1166 |
|
|
KA(:, 5, 2, 6) = (/ & |
1167 |
|
|
& 0.27682E-02_JPRB,0.28941E-02_JPRB,0.28027E-02_JPRB,0.25952E-02_JPRB,0.23337E-02_JPRB, & |
1168 |
|
✗ |
& 0.20308E-02_JPRB,0.16518E-02_JPRB,0.11583E-02_JPRB,0.41249E-03_JPRB /) |
1169 |
|
|
KA(:, 1, 3, 6) = (/ & |
1170 |
|
|
& 0.26013E-02_JPRB,0.25925E-02_JPRB,0.24368E-02_JPRB,0.22059E-02_JPRB,0.19447E-02_JPRB, & |
1171 |
|
✗ |
& 0.16443E-02_JPRB,0.12895E-02_JPRB,0.88356E-03_JPRB,0.22980E-03_JPRB /) |
1172 |
|
|
KA(:, 2, 3, 6) = (/ & |
1173 |
|
|
& 0.26118E-02_JPRB,0.26228E-02_JPRB,0.24826E-02_JPRB,0.22596E-02_JPRB,0.19971E-02_JPRB, & |
1174 |
|
✗ |
& 0.16971E-02_JPRB,0.13425E-02_JPRB,0.92292E-03_JPRB,0.25666E-03_JPRB /) |
1175 |
|
|
KA(:, 3, 3, 6) = (/ & |
1176 |
|
|
& 0.26121E-02_JPRB,0.26511E-02_JPRB,0.25221E-02_JPRB,0.23045E-02_JPRB,0.20442E-02_JPRB, & |
1177 |
|
✗ |
& 0.17465E-02_JPRB,0.13937E-02_JPRB,0.96423E-03_JPRB,0.28307E-03_JPRB /) |
1178 |
|
|
KA(:, 4, 3, 6) = (/ & |
1179 |
|
|
& 0.26050E-02_JPRB,0.26757E-02_JPRB,0.25536E-02_JPRB,0.23446E-02_JPRB,0.20883E-02_JPRB, & |
1180 |
|
✗ |
& 0.17925E-02_JPRB,0.14453E-02_JPRB,0.10074E-02_JPRB,0.30818E-03_JPRB /) |
1181 |
|
|
KA(:, 5, 3, 6) = (/ & |
1182 |
|
|
& 0.25933E-02_JPRB,0.26944E-02_JPRB,0.25823E-02_JPRB,0.23794E-02_JPRB,0.21318E-02_JPRB, & |
1183 |
|
✗ |
& 0.18378E-02_JPRB,0.14965E-02_JPRB,0.10492E-02_JPRB,0.33812E-03_JPRB /) |
1184 |
|
|
KA(:, 1, 4, 6) = (/ & |
1185 |
|
|
& 0.24078E-02_JPRB,0.23894E-02_JPRB,0.22370E-02_JPRB,0.20125E-02_JPRB,0.17599E-02_JPRB, & |
1186 |
|
✗ |
& 0.14763E-02_JPRB,0.11554E-02_JPRB,0.78494E-03_JPRB,0.18813E-03_JPRB /) |
1187 |
|
|
KA(:, 2, 4, 6) = (/ & |
1188 |
|
|
& 0.24225E-02_JPRB,0.24253E-02_JPRB,0.22813E-02_JPRB,0.20638E-02_JPRB,0.18093E-02_JPRB, & |
1189 |
|
✗ |
& 0.15251E-02_JPRB,0.12031E-02_JPRB,0.82373E-03_JPRB,0.21030E-03_JPRB /) |
1190 |
|
|
KA(:, 3, 4, 6) = (/ & |
1191 |
|
|
& 0.24294E-02_JPRB,0.24564E-02_JPRB,0.23198E-02_JPRB,0.21085E-02_JPRB,0.18532E-02_JPRB, & |
1192 |
|
✗ |
& 0.15708E-02_JPRB,0.12482E-02_JPRB,0.86229E-03_JPRB,0.23129E-03_JPRB /) |
1193 |
|
|
KA(:, 4, 4, 6) = (/ & |
1194 |
|
|
& 0.24309E-02_JPRB,0.24808E-02_JPRB,0.23546E-02_JPRB,0.21467E-02_JPRB,0.18923E-02_JPRB, & |
1195 |
|
✗ |
& 0.16129E-02_JPRB,0.12944E-02_JPRB,0.90119E-03_JPRB,0.25224E-03_JPRB /) |
1196 |
|
|
KA(:, 5, 4, 6) = (/ & |
1197 |
|
|
& 0.24223E-02_JPRB,0.24983E-02_JPRB,0.23839E-02_JPRB,0.21783E-02_JPRB,0.19305E-02_JPRB, & |
1198 |
|
✗ |
& 0.16540E-02_JPRB,0.13401E-02_JPRB,0.94049E-03_JPRB,0.27779E-03_JPRB /) |
1199 |
|
|
KA(:, 1, 5, 6) = (/ & |
1200 |
|
|
& 0.22071E-02_JPRB,0.21851E-02_JPRB,0.20436E-02_JPRB,0.18357E-02_JPRB,0.15952E-02_JPRB, & |
1201 |
|
✗ |
& 0.13304E-02_JPRB,0.10307E-02_JPRB,0.69163E-03_JPRB,0.14983E-03_JPRB /) |
1202 |
|
|
KA(:, 2, 5, 6) = (/ & |
1203 |
|
|
& 0.22284E-02_JPRB,0.22243E-02_JPRB,0.20887E-02_JPRB,0.18839E-02_JPRB,0.16450E-02_JPRB, & |
1204 |
|
✗ |
& 0.13762E-02_JPRB,0.10736E-02_JPRB,0.72602E-03_JPRB,0.16732E-03_JPRB /) |
1205 |
|
|
KA(:, 3, 5, 6) = (/ & |
1206 |
|
|
& 0.22426E-02_JPRB,0.22593E-02_JPRB,0.21270E-02_JPRB,0.19281E-02_JPRB,0.16889E-02_JPRB, & |
1207 |
|
✗ |
& 0.14169E-02_JPRB,0.11148E-02_JPRB,0.76201E-03_JPRB,0.18420E-03_JPRB /) |
1208 |
|
|
KA(:, 4, 5, 6) = (/ & |
1209 |
|
|
& 0.22476E-02_JPRB,0.22863E-02_JPRB,0.21609E-02_JPRB,0.19676E-02_JPRB,0.17258E-02_JPRB, & |
1210 |
|
✗ |
& 0.14525E-02_JPRB,0.11537E-02_JPRB,0.79815E-03_JPRB,0.20325E-03_JPRB /) |
1211 |
|
|
KA(:, 5, 5, 6) = (/ & |
1212 |
|
|
& 0.22399E-02_JPRB,0.23048E-02_JPRB,0.21912E-02_JPRB,0.19974E-02_JPRB,0.17586E-02_JPRB, & |
1213 |
|
✗ |
& 0.14880E-02_JPRB,0.11934E-02_JPRB,0.83564E-03_JPRB,0.22470E-03_JPRB /) |
1214 |
|
|
KA(:, 1, 6, 6) = (/ & |
1215 |
|
|
& 0.20075E-02_JPRB,0.19795E-02_JPRB,0.18447E-02_JPRB,0.16541E-02_JPRB,0.14341E-02_JPRB, & |
1216 |
|
✗ |
& 0.11951E-02_JPRB,0.92238E-03_JPRB,0.60660E-03_JPRB,0.12381E-03_JPRB /) |
1217 |
|
|
KA(:, 2, 6, 6) = (/ & |
1218 |
|
|
& 0.20344E-02_JPRB,0.20227E-02_JPRB,0.18912E-02_JPRB,0.17028E-02_JPRB,0.14828E-02_JPRB, & |
1219 |
|
✗ |
& 0.12404E-02_JPRB,0.96234E-03_JPRB,0.63833E-03_JPRB,0.13822E-03_JPRB /) |
1220 |
|
|
KA(:, 3, 6, 6) = (/ & |
1221 |
|
|
& 0.20513E-02_JPRB,0.20598E-02_JPRB,0.19311E-02_JPRB,0.17466E-02_JPRB,0.15267E-02_JPRB, & |
1222 |
|
✗ |
& 0.12805E-02_JPRB,0.99815E-03_JPRB,0.66987E-03_JPRB,0.15138E-03_JPRB /) |
1223 |
|
|
KA(:, 4, 6, 6) = (/ & |
1224 |
|
|
& 0.20576E-02_JPRB,0.20878E-02_JPRB,0.19661E-02_JPRB,0.17857E-02_JPRB,0.15647E-02_JPRB, & |
1225 |
|
✗ |
& 0.13147E-02_JPRB,0.10319E-02_JPRB,0.70266E-03_JPRB,0.16753E-03_JPRB /) |
1226 |
|
|
KA(:, 5, 6, 6) = (/ & |
1227 |
|
|
& 0.20521E-02_JPRB,0.21067E-02_JPRB,0.19938E-02_JPRB,0.18157E-02_JPRB,0.15969E-02_JPRB, & |
1228 |
|
✗ |
& 0.13475E-02_JPRB,0.10644E-02_JPRB,0.73524E-03_JPRB,0.18430E-03_JPRB /) |
1229 |
|
|
KA(:, 1, 7, 6) = (/ & |
1230 |
|
|
& 0.17951E-02_JPRB,0.17708E-02_JPRB,0.16476E-02_JPRB,0.14764E-02_JPRB,0.12769E-02_JPRB, & |
1231 |
|
✗ |
& 0.10613E-02_JPRB,0.82141E-03_JPRB,0.53387E-03_JPRB,0.10356E-03_JPRB /) |
1232 |
|
|
KA(:, 2, 7, 6) = (/ & |
1233 |
|
|
& 0.18257E-02_JPRB,0.18161E-02_JPRB,0.16970E-02_JPRB,0.15264E-02_JPRB,0.13250E-02_JPRB, & |
1234 |
|
✗ |
& 0.11052E-02_JPRB,0.85771E-03_JPRB,0.56341E-03_JPRB,0.11419E-03_JPRB /) |
1235 |
|
|
KA(:, 3, 7, 6) = (/ & |
1236 |
|
|
& 0.18457E-02_JPRB,0.18541E-02_JPRB,0.17382E-02_JPRB,0.15700E-02_JPRB,0.13685E-02_JPRB, & |
1237 |
|
✗ |
& 0.11444E-02_JPRB,0.89062E-03_JPRB,0.59265E-03_JPRB,0.12737E-03_JPRB /) |
1238 |
|
|
KA(:, 4, 7, 6) = (/ & |
1239 |
|
|
& 0.18534E-02_JPRB,0.18833E-02_JPRB,0.17713E-02_JPRB,0.16066E-02_JPRB,0.14063E-02_JPRB, & |
1240 |
|
✗ |
& 0.11787E-02_JPRB,0.92220E-03_JPRB,0.62067E-03_JPRB,0.14148E-03_JPRB /) |
1241 |
|
|
KA(:, 5, 7, 6) = (/ & |
1242 |
|
|
& 0.18508E-02_JPRB,0.19025E-02_JPRB,0.17986E-02_JPRB,0.16377E-02_JPRB,0.14382E-02_JPRB, & |
1243 |
|
✗ |
& 0.12095E-02_JPRB,0.95313E-03_JPRB,0.64883E-03_JPRB,0.15624E-03_JPRB /) |
1244 |
|
|
KA(:, 1, 8, 6) = (/ & |
1245 |
|
|
& 0.15853E-02_JPRB,0.15606E-02_JPRB,0.14491E-02_JPRB,0.13005E-02_JPRB,0.11253E-02_JPRB, & |
1246 |
|
✗ |
& 0.93388E-03_JPRB,0.72631E-03_JPRB,0.46832E-03_JPRB,0.90402E-04_JPRB /) |
1247 |
|
|
KA(:, 2, 8, 6) = (/ & |
1248 |
|
|
& 0.16191E-02_JPRB,0.16074E-02_JPRB,0.14980E-02_JPRB,0.13497E-02_JPRB,0.11730E-02_JPRB, & |
1249 |
|
✗ |
& 0.97691E-03_JPRB,0.76027E-03_JPRB,0.49835E-03_JPRB,0.10124E-03_JPRB /) |
1250 |
|
|
KA(:, 3, 8, 6) = (/ & |
1251 |
|
|
& 0.16393E-02_JPRB,0.16464E-02_JPRB,0.15392E-02_JPRB,0.13927E-02_JPRB,0.12147E-02_JPRB, & |
1252 |
|
✗ |
& 0.10153E-02_JPRB,0.79129E-03_JPRB,0.52537E-03_JPRB,0.11276E-03_JPRB /) |
1253 |
|
|
|
1254 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART4',1,ZHOOK_HANDLE) |
1255 |
|
✗ |
END SUBROUTINE PART4 |
1256 |
|
|
|
1257 |
|
|
|
1258 |
|
✗ |
SUBROUTINE PART5 |
1259 |
|
|
|
1260 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1261 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART5',0,ZHOOK_HANDLE) |
1262 |
|
|
|
1263 |
|
|
|
1264 |
|
|
KA(:, 4, 8, 6) = (/ & |
1265 |
|
|
& 0.16487E-02_JPRB,0.16729E-02_JPRB,0.15721E-02_JPRB,0.14286E-02_JPRB,0.12504E-02_JPRB, & |
1266 |
|
✗ |
& 0.10480E-02_JPRB,0.82072E-03_JPRB,0.55187E-03_JPRB,0.12515E-03_JPRB /) |
1267 |
|
|
KA(:, 5, 8, 6) = (/ & |
1268 |
|
|
& 0.16472E-02_JPRB,0.16924E-02_JPRB,0.15977E-02_JPRB,0.14588E-02_JPRB,0.12817E-02_JPRB, & |
1269 |
|
✗ |
& 0.10777E-02_JPRB,0.84873E-03_JPRB,0.57800E-03_JPRB,0.13784E-03_JPRB /) |
1270 |
|
|
KA(:, 1, 9, 6) = (/ & |
1271 |
|
|
& 0.13936E-02_JPRB,0.13674E-02_JPRB,0.12635E-02_JPRB,0.11331E-02_JPRB,0.97871E-03_JPRB, & |
1272 |
|
✗ |
& 0.81331E-03_JPRB,0.63480E-03_JPRB,0.40910E-03_JPRB,0.92222E-04_JPRB /) |
1273 |
|
|
KA(:, 2, 9, 6) = (/ & |
1274 |
|
|
& 0.14271E-02_JPRB,0.14126E-02_JPRB,0.13114E-02_JPRB,0.11804E-02_JPRB,0.10248E-02_JPRB, & |
1275 |
|
✗ |
& 0.85405E-03_JPRB,0.66828E-03_JPRB,0.43677E-03_JPRB,0.10207E-03_JPRB /) |
1276 |
|
|
KA(:, 3, 9, 6) = (/ & |
1277 |
|
|
& 0.14461E-02_JPRB,0.14478E-02_JPRB,0.13500E-02_JPRB,0.12219E-02_JPRB,0.10647E-02_JPRB, & |
1278 |
|
✗ |
& 0.89058E-03_JPRB,0.69816E-03_JPRB,0.46305E-03_JPRB,0.11262E-03_JPRB /) |
1279 |
|
|
KA(:, 4, 9, 6) = (/ & |
1280 |
|
|
& 0.14547E-02_JPRB,0.14726E-02_JPRB,0.13807E-02_JPRB,0.12557E-02_JPRB,0.10996E-02_JPRB, & |
1281 |
|
✗ |
& 0.92247E-03_JPRB,0.72520E-03_JPRB,0.48654E-03_JPRB,0.12376E-03_JPRB /) |
1282 |
|
|
KA(:, 5, 9, 6) = (/ & |
1283 |
|
|
& 0.14563E-02_JPRB,0.14902E-02_JPRB,0.14046E-02_JPRB,0.12841E-02_JPRB,0.11288E-02_JPRB, & |
1284 |
|
✗ |
& 0.95105E-03_JPRB,0.75065E-03_JPRB,0.51065E-03_JPRB,0.13556E-03_JPRB /) |
1285 |
|
|
KA(:, 1,10, 6) = (/ & |
1286 |
|
|
& 0.12161E-02_JPRB,0.11928E-02_JPRB,0.11004E-02_JPRB,0.98725E-03_JPRB,0.85318E-03_JPRB, & |
1287 |
|
✗ |
& 0.70775E-03_JPRB,0.55081E-03_JPRB,0.35481E-03_JPRB,0.12422E-03_JPRB /) |
1288 |
|
|
KA(:, 2,10, 6) = (/ & |
1289 |
|
|
& 0.12463E-02_JPRB,0.12352E-02_JPRB,0.11444E-02_JPRB,0.10316E-02_JPRB,0.89480E-03_JPRB, & |
1290 |
|
✗ |
& 0.74560E-03_JPRB,0.58282E-03_JPRB,0.38195E-03_JPRB,0.13273E-03_JPRB /) |
1291 |
|
|
KA(:, 3,10, 6) = (/ & |
1292 |
|
|
& 0.12646E-02_JPRB,0.12662E-02_JPRB,0.11796E-02_JPRB,0.10687E-02_JPRB,0.93096E-03_JPRB, & |
1293 |
|
✗ |
& 0.77883E-03_JPRB,0.61138E-03_JPRB,0.40526E-03_JPRB,0.14193E-03_JPRB /) |
1294 |
|
|
KA(:, 4,10, 6) = (/ & |
1295 |
|
|
& 0.12733E-02_JPRB,0.12880E-02_JPRB,0.12074E-02_JPRB,0.10979E-02_JPRB,0.96169E-03_JPRB, & |
1296 |
|
✗ |
& 0.80809E-03_JPRB,0.63689E-03_JPRB,0.42724E-03_JPRB,0.15291E-03_JPRB /) |
1297 |
|
|
KA(:, 5,10, 6) = (/ & |
1298 |
|
|
& 0.12740E-02_JPRB,0.13044E-02_JPRB,0.12293E-02_JPRB,0.11231E-02_JPRB,0.98752E-03_JPRB, & |
1299 |
|
✗ |
& 0.83380E-03_JPRB,0.66030E-03_JPRB,0.44847E-03_JPRB,0.16460E-03_JPRB /) |
1300 |
|
|
KA(:, 1,11, 6) = (/ & |
1301 |
|
|
& 0.10656E-02_JPRB,0.10497E-02_JPRB,0.96881E-03_JPRB,0.87108E-03_JPRB,0.75627E-03_JPRB, & |
1302 |
|
✗ |
& 0.62893E-03_JPRB,0.48955E-03_JPRB,0.31741E-03_JPRB,0.13016E-03_JPRB /) |
1303 |
|
|
KA(:, 2,11, 6) = (/ & |
1304 |
|
|
& 0.10879E-02_JPRB,0.10821E-02_JPRB,0.10046E-02_JPRB,0.90804E-03_JPRB,0.79130E-03_JPRB, & |
1305 |
|
✗ |
& 0.66235E-03_JPRB,0.51807E-03_JPRB,0.34003E-03_JPRB,0.13779E-03_JPRB /) |
1306 |
|
|
KA(:, 3,11, 6) = (/ & |
1307 |
|
|
& 0.11001E-02_JPRB,0.11057E-02_JPRB,0.10327E-02_JPRB,0.93770E-03_JPRB,0.82120E-03_JPRB, & |
1308 |
|
✗ |
& 0.69087E-03_JPRB,0.54346E-03_JPRB,0.36047E-03_JPRB,0.14411E-03_JPRB /) |
1309 |
|
|
KA(:, 4,11, 6) = (/ & |
1310 |
|
|
& 0.11047E-02_JPRB,0.11226E-02_JPRB,0.10548E-02_JPRB,0.96212E-03_JPRB,0.84667E-03_JPRB, & |
1311 |
|
✗ |
& 0.71575E-03_JPRB,0.56548E-03_JPRB,0.37954E-03_JPRB,0.15311E-03_JPRB /) |
1312 |
|
|
KA(:, 5,11, 6) = (/ & |
1313 |
|
|
& 0.11028E-02_JPRB,0.11345E-02_JPRB,0.10715E-02_JPRB,0.98143E-03_JPRB,0.86845E-03_JPRB, & |
1314 |
|
✗ |
& 0.73791E-03_JPRB,0.58600E-03_JPRB,0.39874E-03_JPRB,0.16257E-03_JPRB /) |
1315 |
|
|
KA(:, 1,12, 6) = (/ & |
1316 |
|
|
& 0.92541E-03_JPRB,0.91485E-03_JPRB,0.84575E-03_JPRB,0.76287E-03_JPRB,0.66530E-03_JPRB, & |
1317 |
|
✗ |
& 0.55435E-03_JPRB,0.43055E-03_JPRB,0.28106E-03_JPRB,0.11779E-03_JPRB /) |
1318 |
|
|
KA(:, 2,12, 6) = (/ & |
1319 |
|
|
& 0.94153E-03_JPRB,0.94015E-03_JPRB,0.87425E-03_JPRB,0.79221E-03_JPRB,0.69422E-03_JPRB, & |
1320 |
|
✗ |
& 0.58249E-03_JPRB,0.45555E-03_JPRB,0.30043E-03_JPRB,0.12541E-03_JPRB /) |
1321 |
|
|
KA(:, 3,12, 6) = (/ & |
1322 |
|
|
& 0.95043E-03_JPRB,0.95859E-03_JPRB,0.89645E-03_JPRB,0.81618E-03_JPRB,0.71892E-03_JPRB, & |
1323 |
|
✗ |
& 0.60660E-03_JPRB,0.47691E-03_JPRB,0.31810E-03_JPRB,0.13086E-03_JPRB /) |
1324 |
|
|
KA(:, 4,12, 6) = (/ & |
1325 |
|
|
& 0.95300E-03_JPRB,0.97180E-03_JPRB,0.91414E-03_JPRB,0.83540E-03_JPRB,0.73965E-03_JPRB, & |
1326 |
|
✗ |
& 0.62755E-03_JPRB,0.49627E-03_JPRB,0.33494E-03_JPRB,0.13792E-03_JPRB /) |
1327 |
|
|
KA(:, 5,12, 6) = (/ & |
1328 |
|
|
& 0.94924E-03_JPRB,0.98033E-03_JPRB,0.92629E-03_JPRB,0.85073E-03_JPRB,0.75722E-03_JPRB, & |
1329 |
|
✗ |
& 0.64562E-03_JPRB,0.51410E-03_JPRB,0.35114E-03_JPRB,0.14650E-03_JPRB /) |
1330 |
|
|
KA(:, 1,13, 6) = (/ & |
1331 |
|
|
& 0.79344E-03_JPRB,0.78971E-03_JPRB,0.73267E-03_JPRB,0.66405E-03_JPRB,0.58083E-03_JPRB, & |
1332 |
|
✗ |
& 0.48392E-03_JPRB,0.37549E-03_JPRB,0.24569E-03_JPRB,0.97034E-04_JPRB /) |
1333 |
|
|
KA(:, 2,13, 6) = (/ & |
1334 |
|
|
& 0.80574E-03_JPRB,0.81004E-03_JPRB,0.75547E-03_JPRB,0.68809E-03_JPRB,0.60484E-03_JPRB, & |
1335 |
|
✗ |
& 0.50707E-03_JPRB,0.39618E-03_JPRB,0.26227E-03_JPRB,0.10267E-03_JPRB /) |
1336 |
|
|
KA(:, 3,13, 6) = (/ & |
1337 |
|
|
& 0.81227E-03_JPRB,0.82486E-03_JPRB,0.77408E-03_JPRB,0.70758E-03_JPRB,0.62511E-03_JPRB, & |
1338 |
|
✗ |
& 0.52731E-03_JPRB,0.41439E-03_JPRB,0.27759E-03_JPRB,0.10742E-03_JPRB /) |
1339 |
|
|
KA(:, 4,13, 6) = (/ & |
1340 |
|
|
& 0.81298E-03_JPRB,0.83538E-03_JPRB,0.78743E-03_JPRB,0.72262E-03_JPRB,0.64193E-03_JPRB, & |
1341 |
|
✗ |
& 0.54449E-03_JPRB,0.43080E-03_JPRB,0.29211E-03_JPRB,0.11325E-03_JPRB /) |
1342 |
|
|
KA(:, 5,13, 6) = (/ & |
1343 |
|
|
& 0.80893E-03_JPRB,0.84184E-03_JPRB,0.79706E-03_JPRB,0.73516E-03_JPRB,0.65638E-03_JPRB, & |
1344 |
|
✗ |
& 0.55984E-03_JPRB,0.44607E-03_JPRB,0.30621E-03_JPRB,0.12059E-03_JPRB /) |
1345 |
|
|
KA(:, 1, 1, 7) = (/ & |
1346 |
|
|
& 0.54732E-02_JPRB,0.53034E-02_JPRB,0.49969E-02_JPRB,0.45431E-02_JPRB,0.40134E-02_JPRB, & |
1347 |
|
✗ |
& 0.34010E-02_JPRB,0.26972E-02_JPRB,0.18637E-02_JPRB,0.96692E-03_JPRB /) |
1348 |
|
|
KA(:, 2, 1, 7) = (/ & |
1349 |
|
|
& 0.54607E-02_JPRB,0.53367E-02_JPRB,0.50546E-02_JPRB,0.46321E-02_JPRB,0.41099E-02_JPRB, & |
1350 |
|
✗ |
& 0.34970E-02_JPRB,0.27999E-02_JPRB,0.19729E-02_JPRB,0.11063E-02_JPRB /) |
1351 |
|
|
KA(:, 3, 1, 7) = (/ & |
1352 |
|
|
& 0.54405E-02_JPRB,0.53637E-02_JPRB,0.51145E-02_JPRB,0.47117E-02_JPRB,0.41981E-02_JPRB, & |
1353 |
|
✗ |
& 0.35927E-02_JPRB,0.29070E-02_JPRB,0.20850E-02_JPRB,0.12360E-02_JPRB /) |
1354 |
|
|
KA(:, 4, 1, 7) = (/ & |
1355 |
|
|
& 0.54052E-02_JPRB,0.53858E-02_JPRB,0.51679E-02_JPRB,0.47829E-02_JPRB,0.42844E-02_JPRB, & |
1356 |
|
✗ |
& 0.36942E-02_JPRB,0.30161E-02_JPRB,0.22030E-02_JPRB,0.13785E-02_JPRB /) |
1357 |
|
|
KA(:, 5, 1, 7) = (/ & |
1358 |
|
|
& 0.53549E-02_JPRB,0.54029E-02_JPRB,0.52131E-02_JPRB,0.48529E-02_JPRB,0.43733E-02_JPRB, & |
1359 |
|
✗ |
& 0.37946E-02_JPRB,0.31262E-02_JPRB,0.23268E-02_JPRB,0.15336E-02_JPRB /) |
1360 |
|
|
KA(:, 1, 2, 7) = (/ & |
1361 |
|
|
& 0.52482E-02_JPRB,0.50940E-02_JPRB,0.47786E-02_JPRB,0.43454E-02_JPRB,0.38186E-02_JPRB, & |
1362 |
|
✗ |
& 0.32129E-02_JPRB,0.25325E-02_JPRB,0.17227E-02_JPRB,0.80430E-03_JPRB /) |
1363 |
|
|
KA(:, 2, 2, 7) = (/ & |
1364 |
|
|
& 0.52403E-02_JPRB,0.51313E-02_JPRB,0.48370E-02_JPRB,0.44315E-02_JPRB,0.39109E-02_JPRB, & |
1365 |
|
✗ |
& 0.33052E-02_JPRB,0.26254E-02_JPRB,0.18226E-02_JPRB,0.90614E-03_JPRB /) |
1366 |
|
|
KA(:, 3, 2, 7) = (/ & |
1367 |
|
|
& 0.52188E-02_JPRB,0.51614E-02_JPRB,0.48948E-02_JPRB,0.45073E-02_JPRB,0.39963E-02_JPRB, & |
1368 |
|
✗ |
& 0.33961E-02_JPRB,0.27198E-02_JPRB,0.19222E-02_JPRB,0.10146E-02_JPRB /) |
1369 |
|
|
KA(:, 4, 2, 7) = (/ & |
1370 |
|
|
& 0.51826E-02_JPRB,0.51837E-02_JPRB,0.49460E-02_JPRB,0.45770E-02_JPRB,0.40791E-02_JPRB, & |
1371 |
|
✗ |
& 0.34891E-02_JPRB,0.28146E-02_JPRB,0.20278E-02_JPRB,0.11325E-02_JPRB /) |
1372 |
|
|
KA(:, 5, 2, 7) = (/ & |
1373 |
|
|
& 0.51359E-02_JPRB,0.51960E-02_JPRB,0.49902E-02_JPRB,0.46430E-02_JPRB,0.41602E-02_JPRB, & |
1374 |
|
✗ |
& 0.35811E-02_JPRB,0.29127E-02_JPRB,0.21431E-02_JPRB,0.12633E-02_JPRB /) |
1375 |
|
|
KA(:, 1, 3, 7) = (/ & |
1376 |
|
|
& 0.49876E-02_JPRB,0.48388E-02_JPRB,0.45133E-02_JPRB,0.40992E-02_JPRB,0.35901E-02_JPRB, & |
1377 |
|
✗ |
& 0.30030E-02_JPRB,0.23527E-02_JPRB,0.15765E-02_JPRB,0.64714E-03_JPRB /) |
1378 |
|
|
KA(:, 2, 3, 7) = (/ & |
1379 |
|
|
& 0.49850E-02_JPRB,0.48808E-02_JPRB,0.45736E-02_JPRB,0.41821E-02_JPRB,0.36790E-02_JPRB, & |
1380 |
|
✗ |
& 0.30941E-02_JPRB,0.24388E-02_JPRB,0.16655E-02_JPRB,0.72927E-03_JPRB /) |
1381 |
|
|
KA(:, 3, 3, 7) = (/ & |
1382 |
|
|
& 0.49660E-02_JPRB,0.49117E-02_JPRB,0.46346E-02_JPRB,0.42593E-02_JPRB,0.37631E-02_JPRB, & |
1383 |
|
✗ |
& 0.31820E-02_JPRB,0.25243E-02_JPRB,0.17543E-02_JPRB,0.81771E-03_JPRB /) |
1384 |
|
|
KA(:, 4, 3, 7) = (/ & |
1385 |
|
|
& 0.49361E-02_JPRB,0.49307E-02_JPRB,0.46909E-02_JPRB,0.43285E-02_JPRB,0.38459E-02_JPRB, & |
1386 |
|
✗ |
& 0.32679E-02_JPRB,0.26083E-02_JPRB,0.18450E-02_JPRB,0.91578E-03_JPRB /) |
1387 |
|
|
KA(:, 5, 3, 7) = (/ & |
1388 |
|
|
& 0.48943E-02_JPRB,0.49413E-02_JPRB,0.47366E-02_JPRB,0.43959E-02_JPRB,0.39239E-02_JPRB, & |
1389 |
|
✗ |
& 0.33496E-02_JPRB,0.26941E-02_JPRB,0.19416E-02_JPRB,0.10197E-02_JPRB /) |
1390 |
|
|
KA(:, 1, 4, 7) = (/ & |
1391 |
|
|
& 0.46848E-02_JPRB,0.45423E-02_JPRB,0.42109E-02_JPRB,0.38147E-02_JPRB,0.33318E-02_JPRB, & |
1392 |
|
✗ |
& 0.27806E-02_JPRB,0.21628E-02_JPRB,0.14435E-02_JPRB,0.52019E-03_JPRB /) |
1393 |
|
|
KA(:, 2, 4, 7) = (/ & |
1394 |
|
|
& 0.46885E-02_JPRB,0.45846E-02_JPRB,0.42767E-02_JPRB,0.38967E-02_JPRB,0.34228E-02_JPRB, & |
1395 |
|
✗ |
& 0.28698E-02_JPRB,0.22469E-02_JPRB,0.15180E-02_JPRB,0.58537E-03_JPRB /) |
1396 |
|
|
KA(:, 3, 4, 7) = (/ & |
1397 |
|
|
& 0.46784E-02_JPRB,0.46158E-02_JPRB,0.43389E-02_JPRB,0.39718E-02_JPRB,0.35088E-02_JPRB, & |
1398 |
|
✗ |
& 0.29561E-02_JPRB,0.23285E-02_JPRB,0.15932E-02_JPRB,0.65783E-03_JPRB /) |
1399 |
|
|
KA(:, 4, 4, 7) = (/ & |
1400 |
|
|
& 0.46546E-02_JPRB,0.46379E-02_JPRB,0.43907E-02_JPRB,0.40421E-02_JPRB,0.35928E-02_JPRB, & |
1401 |
|
✗ |
& 0.30394E-02_JPRB,0.24053E-02_JPRB,0.16703E-02_JPRB,0.73788E-03_JPRB /) |
1402 |
|
|
KA(:, 5, 4, 7) = (/ & |
1403 |
|
|
& 0.46218E-02_JPRB,0.46560E-02_JPRB,0.44359E-02_JPRB,0.41109E-02_JPRB,0.36691E-02_JPRB, & |
1404 |
|
✗ |
& 0.31156E-02_JPRB,0.24821E-02_JPRB,0.17515E-02_JPRB,0.82261E-03_JPRB /) |
1405 |
|
|
KA(:, 1, 5, 7) = (/ & |
1406 |
|
|
& 0.43680E-02_JPRB,0.42271E-02_JPRB,0.38928E-02_JPRB,0.35080E-02_JPRB,0.30576E-02_JPRB, & |
1407 |
|
✗ |
& 0.25405E-02_JPRB,0.19725E-02_JPRB,0.13117E-02_JPRB,0.42455E-03_JPRB /) |
1408 |
|
|
KA(:, 2, 5, 7) = (/ & |
1409 |
|
|
& 0.43836E-02_JPRB,0.42742E-02_JPRB,0.39603E-02_JPRB,0.35901E-02_JPRB,0.31440E-02_JPRB, & |
1410 |
|
✗ |
& 0.26294E-02_JPRB,0.20540E-02_JPRB,0.13812E-02_JPRB,0.47676E-03_JPRB /) |
1411 |
|
|
KA(:, 3, 5, 7) = (/ & |
1412 |
|
|
& 0.43831E-02_JPRB,0.43074E-02_JPRB,0.40201E-02_JPRB,0.36636E-02_JPRB,0.32261E-02_JPRB, & |
1413 |
|
✗ |
& 0.27164E-02_JPRB,0.21330E-02_JPRB,0.14464E-02_JPRB,0.53568E-03_JPRB /) |
1414 |
|
|
KA(:, 4, 5, 7) = (/ & |
1415 |
|
|
& 0.43690E-02_JPRB,0.43343E-02_JPRB,0.40742E-02_JPRB,0.37289E-02_JPRB,0.33089E-02_JPRB, & |
1416 |
|
✗ |
& 0.28017E-02_JPRB,0.22054E-02_JPRB,0.15130E-02_JPRB,0.59880E-03_JPRB /) |
1417 |
|
|
KA(:, 5, 5, 7) = (/ & |
1418 |
|
|
& 0.43473E-02_JPRB,0.43575E-02_JPRB,0.41195E-02_JPRB,0.37951E-02_JPRB,0.33885E-02_JPRB, & |
1419 |
|
✗ |
& 0.28774E-02_JPRB,0.22767E-02_JPRB,0.15816E-02_JPRB,0.66710E-03_JPRB /) |
1420 |
|
|
KA(:, 1, 6, 7) = (/ & |
1421 |
|
|
& 0.40714E-02_JPRB,0.39122E-02_JPRB,0.35777E-02_JPRB,0.32091E-02_JPRB,0.27872E-02_JPRB, & |
1422 |
|
✗ |
& 0.22994E-02_JPRB,0.17735E-02_JPRB,0.11790E-02_JPRB,0.33561E-03_JPRB /) |
1423 |
|
|
KA(:, 2, 6, 7) = (/ & |
1424 |
|
|
& 0.40973E-02_JPRB,0.39625E-02_JPRB,0.36472E-02_JPRB,0.32877E-02_JPRB,0.28694E-02_JPRB, & |
1425 |
|
✗ |
& 0.23826E-02_JPRB,0.18515E-02_JPRB,0.12426E-02_JPRB,0.37756E-03_JPRB /) |
1426 |
|
|
KA(:, 3, 6, 7) = (/ & |
1427 |
|
|
& 0.41108E-02_JPRB,0.40033E-02_JPRB,0.37116E-02_JPRB,0.33595E-02_JPRB,0.29464E-02_JPRB, & |
1428 |
|
✗ |
& 0.24646E-02_JPRB,0.19290E-02_JPRB,0.13037E-02_JPRB,0.42584E-03_JPRB /) |
1429 |
|
|
KA(:, 4, 6, 7) = (/ & |
1430 |
|
|
& 0.41078E-02_JPRB,0.40382E-02_JPRB,0.37677E-02_JPRB,0.34232E-02_JPRB,0.30216E-02_JPRB, & |
1431 |
|
✗ |
& 0.25463E-02_JPRB,0.20016E-02_JPRB,0.13624E-02_JPRB,0.47733E-03_JPRB /) |
1432 |
|
|
KA(:, 5, 6, 7) = (/ & |
1433 |
|
|
& 0.40964E-02_JPRB,0.40666E-02_JPRB,0.38151E-02_JPRB,0.34890E-02_JPRB,0.30973E-02_JPRB, & |
1434 |
|
✗ |
& 0.26200E-02_JPRB,0.20705E-02_JPRB,0.14239E-02_JPRB,0.53330E-03_JPRB /) |
1435 |
|
|
KA(:, 1, 7, 7) = (/ & |
1436 |
|
|
& 0.37806E-02_JPRB,0.36256E-02_JPRB,0.32982E-02_JPRB,0.29389E-02_JPRB,0.25345E-02_JPRB, & |
1437 |
|
✗ |
& 0.20760E-02_JPRB,0.15879E-02_JPRB,0.10489E-02_JPRB,0.28018E-03_JPRB /) |
1438 |
|
|
KA(:, 2, 7, 7) = (/ & |
1439 |
|
|
& 0.38204E-02_JPRB,0.36872E-02_JPRB,0.33713E-02_JPRB,0.30154E-02_JPRB,0.26103E-02_JPRB, & |
1440 |
|
✗ |
& 0.21557E-02_JPRB,0.16619E-02_JPRB,0.11071E-02_JPRB,0.31519E-03_JPRB /) |
1441 |
|
|
KA(:, 3, 7, 7) = (/ & |
1442 |
|
|
& 0.38460E-02_JPRB,0.37374E-02_JPRB,0.34369E-02_JPRB,0.30817E-02_JPRB,0.26834E-02_JPRB, & |
1443 |
|
✗ |
& 0.22319E-02_JPRB,0.17344E-02_JPRB,0.11636E-02_JPRB,0.35270E-03_JPRB /) |
1444 |
|
|
KA(:, 4, 7, 7) = (/ & |
1445 |
|
|
& 0.38578E-02_JPRB,0.37771E-02_JPRB,0.34946E-02_JPRB,0.31444E-02_JPRB,0.27541E-02_JPRB, & |
1446 |
|
✗ |
& 0.23067E-02_JPRB,0.18034E-02_JPRB,0.12192E-02_JPRB,0.39298E-03_JPRB /) |
1447 |
|
|
KA(:, 5, 7, 7) = (/ & |
1448 |
|
|
& 0.38608E-02_JPRB,0.38134E-02_JPRB,0.35421E-02_JPRB,0.32035E-02_JPRB,0.28239E-02_JPRB, & |
1449 |
|
✗ |
& 0.23777E-02_JPRB,0.18670E-02_JPRB,0.12748E-02_JPRB,0.43632E-03_JPRB /) |
1450 |
|
|
KA(:, 1, 8, 7) = (/ & |
1451 |
|
|
& 0.34769E-02_JPRB,0.33291E-02_JPRB,0.30196E-02_JPRB,0.26781E-02_JPRB,0.23024E-02_JPRB, & |
1452 |
|
✗ |
& 0.18824E-02_JPRB,0.14244E-02_JPRB,0.92897E-03_JPRB,0.24101E-03_JPRB /) |
1453 |
|
|
KA(:, 2, 8, 7) = (/ & |
1454 |
|
|
& 0.35239E-02_JPRB,0.33972E-02_JPRB,0.30964E-02_JPRB,0.27587E-02_JPRB,0.23816E-02_JPRB, & |
1455 |
|
✗ |
& 0.19578E-02_JPRB,0.14914E-02_JPRB,0.98181E-03_JPRB,0.27130E-03_JPRB /) |
1456 |
|
|
KA(:, 3, 8, 7) = (/ & |
1457 |
|
|
& 0.35607E-02_JPRB,0.34526E-02_JPRB,0.31656E-02_JPRB,0.28309E-02_JPRB,0.24544E-02_JPRB, & |
1458 |
|
✗ |
& 0.20284E-02_JPRB,0.15562E-02_JPRB,0.10333E-02_JPRB,0.30255E-03_JPRB /) |
1459 |
|
|
KA(:, 4, 8, 7) = (/ & |
1460 |
|
|
& 0.35844E-02_JPRB,0.35023E-02_JPRB,0.32271E-02_JPRB,0.28968E-02_JPRB,0.25226E-02_JPRB, & |
1461 |
|
✗ |
& 0.20957E-02_JPRB,0.16188E-02_JPRB,0.10830E-02_JPRB,0.33737E-03_JPRB /) |
1462 |
|
|
KA(:, 5, 8, 7) = (/ & |
1463 |
|
|
& 0.35961E-02_JPRB,0.35446E-02_JPRB,0.32825E-02_JPRB,0.29568E-02_JPRB,0.25866E-02_JPRB, & |
1464 |
|
✗ |
& 0.21594E-02_JPRB,0.16782E-02_JPRB,0.11324E-02_JPRB,0.37448E-03_JPRB /) |
1465 |
|
|
KA(:, 1, 9, 7) = (/ & |
1466 |
|
|
& 0.31490E-02_JPRB,0.30162E-02_JPRB,0.27350E-02_JPRB,0.24183E-02_JPRB,0.20753E-02_JPRB, & |
1467 |
|
✗ |
& 0.16954E-02_JPRB,0.12750E-02_JPRB,0.82561E-03_JPRB,0.24776E-03_JPRB /) |
1468 |
|
|
KA(:, 2, 9, 7) = (/ & |
1469 |
|
|
& 0.32098E-02_JPRB,0.30913E-02_JPRB,0.28147E-02_JPRB,0.25006E-02_JPRB,0.21544E-02_JPRB, & |
1470 |
|
✗ |
& 0.17699E-02_JPRB,0.13387E-02_JPRB,0.87243E-03_JPRB,0.27735E-03_JPRB /) |
1471 |
|
|
KA(:, 3, 9, 7) = (/ & |
1472 |
|
|
& 0.32582E-02_JPRB,0.31563E-02_JPRB,0.28883E-02_JPRB,0.25742E-02_JPRB,0.22278E-02_JPRB, & |
1473 |
|
✗ |
& 0.18394E-02_JPRB,0.14003E-02_JPRB,0.91830E-03_JPRB,0.30712E-03_JPRB /) |
1474 |
|
|
KA(:, 4, 9, 7) = (/ & |
1475 |
|
|
& 0.32928E-02_JPRB,0.32146E-02_JPRB,0.29543E-02_JPRB,0.26421E-02_JPRB,0.22954E-02_JPRB, & |
1476 |
|
✗ |
& 0.19038E-02_JPRB,0.14592E-02_JPRB,0.96296E-03_JPRB,0.33982E-03_JPRB /) |
1477 |
|
|
KA(:, 5, 9, 7) = (/ & |
1478 |
|
|
& 0.33113E-02_JPRB,0.32637E-02_JPRB,0.30129E-02_JPRB,0.27034E-02_JPRB,0.23582E-02_JPRB, & |
1479 |
|
✗ |
& 0.19652E-02_JPRB,0.15140E-02_JPRB,0.10071E-02_JPRB,0.37422E-03_JPRB /) |
1480 |
|
|
KA(:, 1,10, 7) = (/ & |
1481 |
|
|
& 0.28236E-02_JPRB,0.26993E-02_JPRB,0.24463E-02_JPRB,0.21584E-02_JPRB,0.18515E-02_JPRB, & |
1482 |
|
✗ |
& 0.15144E-02_JPRB,0.11396E-02_JPRB,0.73456E-03_JPRB,0.30599E-03_JPRB /) |
1483 |
|
|
KA(:, 2,10, 7) = (/ & |
1484 |
|
|
& 0.28929E-02_JPRB,0.27796E-02_JPRB,0.25302E-02_JPRB,0.22416E-02_JPRB,0.19311E-02_JPRB, & |
1485 |
|
✗ |
& 0.15864E-02_JPRB,0.12002E-02_JPRB,0.77955E-03_JPRB,0.32947E-03_JPRB /) |
1486 |
|
|
KA(:, 3,10, 7) = (/ & |
1487 |
|
|
& 0.29497E-02_JPRB,0.28523E-02_JPRB,0.26078E-02_JPRB,0.23174E-02_JPRB,0.20043E-02_JPRB, & |
1488 |
|
✗ |
& 0.16542E-02_JPRB,0.12577E-02_JPRB,0.82291E-03_JPRB,0.35529E-03_JPRB /) |
1489 |
|
|
KA(:, 4,10, 7) = (/ & |
1490 |
|
|
& 0.29901E-02_JPRB,0.29165E-02_JPRB,0.26763E-02_JPRB,0.23877E-02_JPRB,0.20731E-02_JPRB, & |
1491 |
|
✗ |
& 0.17177E-02_JPRB,0.13124E-02_JPRB,0.86431E-03_JPRB,0.38167E-03_JPRB /) |
1492 |
|
|
KA(:, 5,10, 7) = (/ & |
1493 |
|
|
& 0.30139E-02_JPRB,0.29672E-02_JPRB,0.27348E-02_JPRB,0.24509E-02_JPRB,0.21349E-02_JPRB, & |
1494 |
|
✗ |
& 0.17760E-02_JPRB,0.13646E-02_JPRB,0.90496E-03_JPRB,0.40993E-03_JPRB /) |
1495 |
|
|
KA(:, 1,11, 7) = (/ & |
1496 |
|
|
& 0.25422E-02_JPRB,0.24347E-02_JPRB,0.22108E-02_JPRB,0.19505E-02_JPRB,0.16727E-02_JPRB, & |
1497 |
|
✗ |
& 0.13714E-02_JPRB,0.10368E-02_JPRB,0.66936E-03_JPRB,0.31350E-03_JPRB /) |
1498 |
|
|
KA(:, 2,11, 7) = (/ & |
1499 |
|
|
& 0.26126E-02_JPRB,0.25184E-02_JPRB,0.22944E-02_JPRB,0.20307E-02_JPRB,0.17483E-02_JPRB, & |
1500 |
|
✗ |
& 0.14377E-02_JPRB,0.10928E-02_JPRB,0.71181E-03_JPRB,0.33782E-03_JPRB /) |
1501 |
|
|
KA(:, 3,11, 7) = (/ & |
1502 |
|
|
& 0.26690E-02_JPRB,0.25901E-02_JPRB,0.23690E-02_JPRB,0.21043E-02_JPRB,0.18188E-02_JPRB, & |
1503 |
|
✗ |
& 0.15016E-02_JPRB,0.11462E-02_JPRB,0.75188E-03_JPRB,0.35774E-03_JPRB /) |
1504 |
|
|
KA(:, 4,11, 7) = (/ & |
1505 |
|
|
& 0.27048E-02_JPRB,0.26504E-02_JPRB,0.24329E-02_JPRB,0.21704E-02_JPRB,0.18832E-02_JPRB, & |
1506 |
|
✗ |
& 0.15599E-02_JPRB,0.11973E-02_JPRB,0.79054E-03_JPRB,0.37720E-03_JPRB /) |
1507 |
|
|
KA(:, 5,11, 7) = (/ & |
1508 |
|
|
& 0.27241E-02_JPRB,0.26964E-02_JPRB,0.24876E-02_JPRB,0.22289E-02_JPRB,0.19396E-02_JPRB, & |
1509 |
|
✗ |
& 0.16131E-02_JPRB,0.12459E-02_JPRB,0.82843E-03_JPRB,0.39980E-03_JPRB /) |
1510 |
|
|
KA(:, 1,12, 7) = (/ & |
1511 |
|
|
& 0.22863E-02_JPRB,0.21916E-02_JPRB,0.19903E-02_JPRB,0.17560E-02_JPRB,0.15053E-02_JPRB, & |
1512 |
|
✗ |
& 0.12361E-02_JPRB,0.93929E-03_JPRB,0.60469E-03_JPRB,0.28176E-03_JPRB /) |
1513 |
|
|
KA(:, 2,12, 7) = (/ & |
1514 |
|
|
& 0.23519E-02_JPRB,0.22705E-02_JPRB,0.20691E-02_JPRB,0.18315E-02_JPRB,0.15760E-02_JPRB, & |
1515 |
|
✗ |
& 0.12985E-02_JPRB,0.99139E-03_JPRB,0.64462E-03_JPRB,0.30471E-03_JPRB /) |
1516 |
|
|
KA(:, 3,12, 7) = (/ & |
1517 |
|
|
& 0.23974E-02_JPRB,0.23352E-02_JPRB,0.21377E-02_JPRB,0.19000E-02_JPRB,0.16408E-02_JPRB, & |
1518 |
|
✗ |
& 0.13574E-02_JPRB,0.10412E-02_JPRB,0.68214E-03_JPRB,0.32553E-03_JPRB /) |
1519 |
|
|
KA(:, 4,12, 7) = (/ & |
1520 |
|
|
& 0.24260E-02_JPRB,0.23879E-02_JPRB,0.21943E-02_JPRB,0.19602E-02_JPRB,0.16992E-02_JPRB, & |
1521 |
|
✗ |
& 0.14109E-02_JPRB,0.10885E-02_JPRB,0.71852E-03_JPRB,0.34169E-03_JPRB /) |
1522 |
|
|
KA(:, 5,12, 7) = (/ & |
1523 |
|
|
& 0.24412E-02_JPRB,0.24274E-02_JPRB,0.22422E-02_JPRB,0.20116E-02_JPRB,0.17502E-02_JPRB, & |
1524 |
|
✗ |
& 0.14591E-02_JPRB,0.11336E-02_JPRB,0.75474E-03_JPRB,0.36020E-03_JPRB /) |
1525 |
|
|
KA(:, 1,13, 7) = (/ & |
1526 |
|
|
& 0.20393E-02_JPRB,0.19603E-02_JPRB,0.17821E-02_JPRB,0.15739E-02_JPRB,0.13509E-02_JPRB, & |
1527 |
|
✗ |
& 0.11133E-02_JPRB,0.84826E-03_JPRB,0.54289E-03_JPRB,0.23248E-03_JPRB /) |
1528 |
|
|
KA(:, 2,13, 7) = (/ & |
1529 |
|
|
& 0.20953E-02_JPRB,0.20307E-02_JPRB,0.18542E-02_JPRB,0.16433E-02_JPRB,0.14162E-02_JPRB, & |
1530 |
|
✗ |
& 0.11712E-02_JPRB,0.89683E-03_JPRB,0.57958E-03_JPRB,0.25095E-03_JPRB /) |
1531 |
|
|
KA(:, 3,13, 7) = (/ & |
1532 |
|
|
& 0.21323E-02_JPRB,0.20881E-02_JPRB,0.19144E-02_JPRB,0.17046E-02_JPRB,0.14742E-02_JPRB, & |
1533 |
|
✗ |
& 0.12241E-02_JPRB,0.94271E-03_JPRB,0.61480E-03_JPRB,0.26566E-03_JPRB /) |
1534 |
|
|
KA(:, 4,13, 7) = (/ & |
1535 |
|
|
& 0.21562E-02_JPRB,0.21324E-02_JPRB,0.19654E-02_JPRB,0.17578E-02_JPRB,0.15256E-02_JPRB, & |
1536 |
|
✗ |
& 0.12715E-02_JPRB,0.98599E-03_JPRB,0.64941E-03_JPRB,0.28144E-03_JPRB /) |
1537 |
|
|
KA(:, 5,13, 7) = (/ & |
1538 |
|
|
& 0.21687E-02_JPRB,0.21674E-02_JPRB,0.20081E-02_JPRB,0.18029E-02_JPRB,0.15712E-02_JPRB, & |
1539 |
|
✗ |
& 0.13148E-02_JPRB,0.10270E-02_JPRB,0.68370E-03_JPRB,0.29755E-03_JPRB /) |
1540 |
|
|
KA(:, 1, 1, 8) = (/ & |
1541 |
|
|
& 0.10084E-01_JPRB,0.95278E-02_JPRB,0.88730E-02_JPRB,0.81189E-02_JPRB,0.71873E-02_JPRB, & |
1542 |
|
✗ |
& 0.61505E-02_JPRB,0.50159E-02_JPRB,0.37383E-02_JPRB,0.30410E-02_JPRB /) |
1543 |
|
|
KA(:, 2, 1, 8) = (/ & |
1544 |
|
|
& 0.10011E-01_JPRB,0.95195E-02_JPRB,0.89419E-02_JPRB,0.82272E-02_JPRB,0.73508E-02_JPRB, & |
1545 |
|
✗ |
& 0.63699E-02_JPRB,0.52392E-02_JPRB,0.39784E-02_JPRB,0.34237E-02_JPRB /) |
1546 |
|
|
KA(:, 3, 1, 8) = (/ & |
1547 |
|
|
& 0.99285E-02_JPRB,0.95060E-02_JPRB,0.90107E-02_JPRB,0.83435E-02_JPRB,0.75299E-02_JPRB, & |
1548 |
|
✗ |
& 0.65814E-02_JPRB,0.54661E-02_JPRB,0.42490E-02_JPRB,0.38569E-02_JPRB /) |
1549 |
|
|
KA(:, 4, 1, 8) = (/ & |
1550 |
|
|
& 0.98396E-02_JPRB,0.95039E-02_JPRB,0.90786E-02_JPRB,0.84657E-02_JPRB,0.77142E-02_JPRB, & |
1551 |
|
✗ |
& 0.67908E-02_JPRB,0.57132E-02_JPRB,0.45510E-02_JPRB,0.43277E-02_JPRB /) |
1552 |
|
|
|
1553 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART5',1,ZHOOK_HANDLE) |
1554 |
|
✗ |
END SUBROUTINE PART5 |
1555 |
|
|
|
1556 |
|
|
|
1557 |
|
✗ |
SUBROUTINE PART6 |
1558 |
|
|
|
1559 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1560 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART6',0,ZHOOK_HANDLE) |
1561 |
|
|
|
1562 |
|
|
|
1563 |
|
|
KA(:, 5, 1, 8) = (/ & |
1564 |
|
|
& 0.97470E-02_JPRB,0.95073E-02_JPRB,0.91451E-02_JPRB,0.85961E-02_JPRB,0.78983E-02_JPRB, & |
1565 |
|
✗ |
& 0.70134E-02_JPRB,0.59878E-02_JPRB,0.48898E-02_JPRB,0.48367E-02_JPRB /) |
1566 |
|
|
KA(:, 1, 2, 8) = (/ & |
1567 |
|
|
& 0.10032E-01_JPRB,0.95001E-02_JPRB,0.88015E-02_JPRB,0.80012E-02_JPRB,0.70675E-02_JPRB, & |
1568 |
|
✗ |
& 0.59994E-02_JPRB,0.48088E-02_JPRB,0.34803E-02_JPRB,0.24973E-02_JPRB /) |
1569 |
|
|
KA(:, 2, 2, 8) = (/ & |
1570 |
|
|
& 0.99727E-02_JPRB,0.94952E-02_JPRB,0.88708E-02_JPRB,0.81052E-02_JPRB,0.72227E-02_JPRB, & |
1571 |
|
✗ |
& 0.61975E-02_JPRB,0.50149E-02_JPRB,0.36876E-02_JPRB,0.28262E-02_JPRB /) |
1572 |
|
|
KA(:, 3, 2, 8) = (/ & |
1573 |
|
|
& 0.99020E-02_JPRB,0.94876E-02_JPRB,0.89395E-02_JPRB,0.82200E-02_JPRB,0.73884E-02_JPRB, & |
1574 |
|
✗ |
& 0.63917E-02_JPRB,0.52241E-02_JPRB,0.39189E-02_JPRB,0.31881E-02_JPRB /) |
1575 |
|
|
KA(:, 4, 2, 8) = (/ & |
1576 |
|
|
& 0.98208E-02_JPRB,0.94907E-02_JPRB,0.90072E-02_JPRB,0.83409E-02_JPRB,0.75534E-02_JPRB, & |
1577 |
|
✗ |
& 0.65848E-02_JPRB,0.54476E-02_JPRB,0.41701E-02_JPRB,0.35802E-02_JPRB /) |
1578 |
|
|
KA(:, 5, 2, 8) = (/ & |
1579 |
|
|
& 0.97350E-02_JPRB,0.95036E-02_JPRB,0.90758E-02_JPRB,0.84664E-02_JPRB,0.77179E-02_JPRB, & |
1580 |
|
✗ |
& 0.67885E-02_JPRB,0.56906E-02_JPRB,0.44399E-02_JPRB,0.40032E-02_JPRB /) |
1581 |
|
|
KA(:, 1, 3, 8) = (/ & |
1582 |
|
|
& 0.99249E-02_JPRB,0.94002E-02_JPRB,0.86731E-02_JPRB,0.78226E-02_JPRB,0.68627E-02_JPRB, & |
1583 |
|
✗ |
& 0.57870E-02_JPRB,0.45641E-02_JPRB,0.32036E-02_JPRB,0.20068E-02_JPRB /) |
1584 |
|
|
KA(:, 2, 3, 8) = (/ & |
1585 |
|
|
& 0.98781E-02_JPRB,0.94039E-02_JPRB,0.87415E-02_JPRB,0.79225E-02_JPRB,0.70078E-02_JPRB, & |
1586 |
|
✗ |
& 0.59682E-02_JPRB,0.47504E-02_JPRB,0.33906E-02_JPRB,0.22741E-02_JPRB /) |
1587 |
|
|
KA(:, 3, 3, 8) = (/ & |
1588 |
|
|
& 0.98245E-02_JPRB,0.94056E-02_JPRB,0.88077E-02_JPRB,0.80290E-02_JPRB,0.71634E-02_JPRB, & |
1589 |
|
✗ |
& 0.61455E-02_JPRB,0.49439E-02_JPRB,0.35923E-02_JPRB,0.25675E-02_JPRB /) |
1590 |
|
|
KA(:, 4, 3, 8) = (/ & |
1591 |
|
|
& 0.97585E-02_JPRB,0.94181E-02_JPRB,0.88723E-02_JPRB,0.81452E-02_JPRB,0.73134E-02_JPRB, & |
1592 |
|
✗ |
& 0.63196E-02_JPRB,0.51498E-02_JPRB,0.38082E-02_JPRB,0.28828E-02_JPRB /) |
1593 |
|
|
KA(:, 5, 3, 8) = (/ & |
1594 |
|
|
& 0.96800E-02_JPRB,0.94346E-02_JPRB,0.89400E-02_JPRB,0.82650E-02_JPRB,0.74596E-02_JPRB, & |
1595 |
|
✗ |
& 0.65093E-02_JPRB,0.53613E-02_JPRB,0.40378E-02_JPRB,0.32210E-02_JPRB /) |
1596 |
|
|
KA(:, 1, 4, 8) = (/ & |
1597 |
|
|
& 0.97390E-02_JPRB,0.92223E-02_JPRB,0.84805E-02_JPRB,0.75962E-02_JPRB,0.66183E-02_JPRB, & |
1598 |
|
✗ |
& 0.55421E-02_JPRB,0.43153E-02_JPRB,0.29439E-02_JPRB,0.16096E-02_JPRB /) |
1599 |
|
|
KA(:, 2, 4, 8) = (/ & |
1600 |
|
|
& 0.97149E-02_JPRB,0.92440E-02_JPRB,0.85515E-02_JPRB,0.76965E-02_JPRB,0.67525E-02_JPRB, & |
1601 |
|
✗ |
& 0.57037E-02_JPRB,0.44852E-02_JPRB,0.31152E-02_JPRB,0.18298E-02_JPRB /) |
1602 |
|
|
KA(:, 3, 4, 8) = (/ & |
1603 |
|
|
& 0.96772E-02_JPRB,0.92607E-02_JPRB,0.86210E-02_JPRB,0.78004E-02_JPRB,0.68947E-02_JPRB, & |
1604 |
|
✗ |
& 0.58626E-02_JPRB,0.46601E-02_JPRB,0.32973E-02_JPRB,0.20675E-02_JPRB /) |
1605 |
|
|
KA(:, 4, 4, 8) = (/ & |
1606 |
|
|
& 0.96222E-02_JPRB,0.92823E-02_JPRB,0.86884E-02_JPRB,0.79077E-02_JPRB,0.70317E-02_JPRB, & |
1607 |
|
✗ |
& 0.60213E-02_JPRB,0.48471E-02_JPRB,0.34874E-02_JPRB,0.23199E-02_JPRB /) |
1608 |
|
|
KA(:, 5, 4, 8) = (/ & |
1609 |
|
|
& 0.95548E-02_JPRB,0.93032E-02_JPRB,0.87544E-02_JPRB,0.80177E-02_JPRB,0.71673E-02_JPRB, & |
1610 |
|
✗ |
& 0.61924E-02_JPRB,0.50398E-02_JPRB,0.36845E-02_JPRB,0.25914E-02_JPRB /) |
1611 |
|
|
KA(:, 1, 5, 8) = (/ & |
1612 |
|
|
& 0.94682E-02_JPRB,0.89654E-02_JPRB,0.82210E-02_JPRB,0.73222E-02_JPRB,0.63403E-02_JPRB, & |
1613 |
|
✗ |
& 0.52735E-02_JPRB,0.40692E-02_JPRB,0.27114E-02_JPRB,0.12929E-02_JPRB /) |
1614 |
|
|
KA(:, 2, 5, 8) = (/ & |
1615 |
|
|
& 0.94609E-02_JPRB,0.90053E-02_JPRB,0.83016E-02_JPRB,0.74278E-02_JPRB,0.64685E-02_JPRB, & |
1616 |
|
✗ |
& 0.54213E-02_JPRB,0.42231E-02_JPRB,0.28638E-02_JPRB,0.14728E-02_JPRB /) |
1617 |
|
|
KA(:, 3, 5, 8) = (/ & |
1618 |
|
|
& 0.94353E-02_JPRB,0.90391E-02_JPRB,0.83802E-02_JPRB,0.75305E-02_JPRB,0.66027E-02_JPRB, & |
1619 |
|
✗ |
& 0.55646E-02_JPRB,0.43790E-02_JPRB,0.30279E-02_JPRB,0.16663E-02_JPRB /) |
1620 |
|
|
KA(:, 4, 5, 8) = (/ & |
1621 |
|
|
& 0.93989E-02_JPRB,0.90684E-02_JPRB,0.84481E-02_JPRB,0.76404E-02_JPRB,0.67294E-02_JPRB, & |
1622 |
|
✗ |
& 0.57082E-02_JPRB,0.45495E-02_JPRB,0.31980E-02_JPRB,0.18711E-02_JPRB /) |
1623 |
|
|
KA(:, 5, 5, 8) = (/ & |
1624 |
|
|
& 0.93472E-02_JPRB,0.90926E-02_JPRB,0.85136E-02_JPRB,0.77442E-02_JPRB,0.68542E-02_JPRB, & |
1625 |
|
✗ |
& 0.58646E-02_JPRB,0.47259E-02_JPRB,0.33701E-02_JPRB,0.20921E-02_JPRB /) |
1626 |
|
|
KA(:, 1, 6, 8) = (/ & |
1627 |
|
|
& 0.90687E-02_JPRB,0.86083E-02_JPRB,0.78842E-02_JPRB,0.69920E-02_JPRB,0.60171E-02_JPRB, & |
1628 |
|
✗ |
& 0.49784E-02_JPRB,0.38163E-02_JPRB,0.24892E-02_JPRB,0.10375E-02_JPRB /) |
1629 |
|
|
KA(:, 2, 6, 8) = (/ & |
1630 |
|
|
& 0.90845E-02_JPRB,0.86742E-02_JPRB,0.79759E-02_JPRB,0.71037E-02_JPRB,0.61494E-02_JPRB, & |
1631 |
|
✗ |
& 0.51176E-02_JPRB,0.39577E-02_JPRB,0.26285E-02_JPRB,0.11848E-02_JPRB /) |
1632 |
|
|
KA(:, 3, 6, 8) = (/ & |
1633 |
|
|
& 0.90836E-02_JPRB,0.87225E-02_JPRB,0.80580E-02_JPRB,0.72119E-02_JPRB,0.62799E-02_JPRB, & |
1634 |
|
✗ |
& 0.52546E-02_JPRB,0.41006E-02_JPRB,0.27750E-02_JPRB,0.13422E-02_JPRB /) |
1635 |
|
|
KA(:, 4, 6, 8) = (/ & |
1636 |
|
|
& 0.90655E-02_JPRB,0.87611E-02_JPRB,0.81305E-02_JPRB,0.73221E-02_JPRB,0.64054E-02_JPRB, & |
1637 |
|
✗ |
& 0.53892E-02_JPRB,0.42503E-02_JPRB,0.29301E-02_JPRB,0.15078E-02_JPRB /) |
1638 |
|
|
KA(:, 5, 6, 8) = (/ & |
1639 |
|
|
& 0.90286E-02_JPRB,0.87944E-02_JPRB,0.82022E-02_JPRB,0.74247E-02_JPRB,0.65248E-02_JPRB, & |
1640 |
|
✗ |
& 0.55305E-02_JPRB,0.44113E-02_JPRB,0.30838E-02_JPRB,0.16859E-02_JPRB /) |
1641 |
|
|
KA(:, 1, 7, 8) = (/ & |
1642 |
|
|
& 0.85850E-02_JPRB,0.81350E-02_JPRB,0.74326E-02_JPRB,0.65794E-02_JPRB,0.56482E-02_JPRB, & |
1643 |
|
✗ |
& 0.46582E-02_JPRB,0.35544E-02_JPRB,0.22844E-02_JPRB,0.80765E-03_JPRB /) |
1644 |
|
|
KA(:, 2, 7, 8) = (/ & |
1645 |
|
|
& 0.86250E-02_JPRB,0.82179E-02_JPRB,0.75359E-02_JPRB,0.67022E-02_JPRB,0.57899E-02_JPRB, & |
1646 |
|
✗ |
& 0.47962E-02_JPRB,0.36869E-02_JPRB,0.24122E-02_JPRB,0.92682E-03_JPRB /) |
1647 |
|
|
KA(:, 3, 7, 8) = (/ & |
1648 |
|
|
& 0.86440E-02_JPRB,0.82839E-02_JPRB,0.76315E-02_JPRB,0.68246E-02_JPRB,0.59218E-02_JPRB, & |
1649 |
|
✗ |
& 0.49298E-02_JPRB,0.38219E-02_JPRB,0.25431E-02_JPRB,0.10538E-02_JPRB /) |
1650 |
|
|
KA(:, 4, 7, 8) = (/ & |
1651 |
|
|
& 0.86410E-02_JPRB,0.83371E-02_JPRB,0.77195E-02_JPRB,0.69421E-02_JPRB,0.60483E-02_JPRB, & |
1652 |
|
✗ |
& 0.50620E-02_JPRB,0.39587E-02_JPRB,0.26818E-02_JPRB,0.11890E-02_JPRB /) |
1653 |
|
|
KA(:, 5, 7, 8) = (/ & |
1654 |
|
|
& 0.86213E-02_JPRB,0.83816E-02_JPRB,0.78035E-02_JPRB,0.70537E-02_JPRB,0.61695E-02_JPRB, & |
1655 |
|
✗ |
& 0.51947E-02_JPRB,0.41038E-02_JPRB,0.28206E-02_JPRB,0.13358E-02_JPRB /) |
1656 |
|
|
KA(:, 1, 8, 8) = (/ & |
1657 |
|
|
& 0.80690E-02_JPRB,0.76260E-02_JPRB,0.69398E-02_JPRB,0.61270E-02_JPRB,0.52372E-02_JPRB, & |
1658 |
|
✗ |
& 0.42965E-02_JPRB,0.32695E-02_JPRB,0.20922E-02_JPRB,0.69791E-03_JPRB /) |
1659 |
|
|
KA(:, 2, 8, 8) = (/ & |
1660 |
|
|
& 0.81346E-02_JPRB,0.77325E-02_JPRB,0.70609E-02_JPRB,0.62554E-02_JPRB,0.53744E-02_JPRB, & |
1661 |
|
✗ |
& 0.44362E-02_JPRB,0.34019E-02_JPRB,0.22104E-02_JPRB,0.78609E-03_JPRB /) |
1662 |
|
|
KA(:, 3, 8, 8) = (/ & |
1663 |
|
|
& 0.81749E-02_JPRB,0.78188E-02_JPRB,0.71688E-02_JPRB,0.63791E-02_JPRB,0.55086E-02_JPRB, & |
1664 |
|
✗ |
& 0.45702E-02_JPRB,0.35360E-02_JPRB,0.23302E-02_JPRB,0.88068E-03_JPRB /) |
1665 |
|
|
KA(:, 4, 8, 8) = (/ & |
1666 |
|
|
& 0.81959E-02_JPRB,0.78839E-02_JPRB,0.72650E-02_JPRB,0.64997E-02_JPRB,0.56387E-02_JPRB, & |
1667 |
|
✗ |
& 0.47059E-02_JPRB,0.36681E-02_JPRB,0.24532E-02_JPRB,0.97840E-03_JPRB /) |
1668 |
|
|
KA(:, 5, 8, 8) = (/ & |
1669 |
|
|
& 0.81937E-02_JPRB,0.79411E-02_JPRB,0.73546E-02_JPRB,0.66134E-02_JPRB,0.57649E-02_JPRB, & |
1670 |
|
✗ |
& 0.48383E-02_JPRB,0.38022E-02_JPRB,0.25773E-02_JPRB,0.10847E-02_JPRB /) |
1671 |
|
|
KA(:, 1, 9, 8) = (/ & |
1672 |
|
|
& 0.75182E-02_JPRB,0.70907E-02_JPRB,0.64287E-02_JPRB,0.56605E-02_JPRB,0.48216E-02_JPRB, & |
1673 |
|
✗ |
& 0.39323E-02_JPRB,0.29776E-02_JPRB,0.18987E-02_JPRB,0.67472E-03_JPRB /) |
1674 |
|
|
KA(:, 2, 9, 8) = (/ & |
1675 |
|
|
& 0.76076E-02_JPRB,0.72195E-02_JPRB,0.65653E-02_JPRB,0.58009E-02_JPRB,0.49640E-02_JPRB, & |
1676 |
|
✗ |
& 0.40692E-02_JPRB,0.31049E-02_JPRB,0.20098E-02_JPRB,0.74914E-03_JPRB /) |
1677 |
|
|
KA(:, 3, 9, 8) = (/ & |
1678 |
|
|
& 0.76735E-02_JPRB,0.73227E-02_JPRB,0.66862E-02_JPRB,0.59346E-02_JPRB,0.51012E-02_JPRB, & |
1679 |
|
✗ |
& 0.42015E-02_JPRB,0.32328E-02_JPRB,0.21222E-02_JPRB,0.83367E-03_JPRB /) |
1680 |
|
|
KA(:, 4, 9, 8) = (/ & |
1681 |
|
|
& 0.77132E-02_JPRB,0.74045E-02_JPRB,0.67969E-02_JPRB,0.60620E-02_JPRB,0.52309E-02_JPRB, & |
1682 |
|
✗ |
& 0.43347E-02_JPRB,0.33599E-02_JPRB,0.22355E-02_JPRB,0.91964E-03_JPRB /) |
1683 |
|
|
KA(:, 5, 9, 8) = (/ & |
1684 |
|
|
& 0.77286E-02_JPRB,0.74752E-02_JPRB,0.68965E-02_JPRB,0.61793E-02_JPRB,0.53584E-02_JPRB, & |
1685 |
|
✗ |
& 0.44621E-02_JPRB,0.34884E-02_JPRB,0.23497E-02_JPRB,0.10114E-02_JPRB /) |
1686 |
|
|
KA(:, 1,10, 8) = (/ & |
1687 |
|
|
& 0.70149E-02_JPRB,0.65825E-02_JPRB,0.59329E-02_JPRB,0.52017E-02_JPRB,0.44219E-02_JPRB, & |
1688 |
|
✗ |
& 0.35899E-02_JPRB,0.27069E-02_JPRB,0.17187E-02_JPRB,0.74519E-03_JPRB /) |
1689 |
|
|
KA(:, 2,10, 8) = (/ & |
1690 |
|
|
& 0.71248E-02_JPRB,0.67269E-02_JPRB,0.60810E-02_JPRB,0.53515E-02_JPRB,0.45670E-02_JPRB, & |
1691 |
|
✗ |
& 0.37282E-02_JPRB,0.28313E-02_JPRB,0.18204E-02_JPRB,0.83494E-03_JPRB /) |
1692 |
|
|
KA(:, 3,10, 8) = (/ & |
1693 |
|
|
& 0.72044E-02_JPRB,0.68394E-02_JPRB,0.62076E-02_JPRB,0.54929E-02_JPRB,0.47097E-02_JPRB, & |
1694 |
|
✗ |
& 0.38613E-02_JPRB,0.29540E-02_JPRB,0.19235E-02_JPRB,0.93279E-03_JPRB /) |
1695 |
|
|
KA(:, 4,10, 8) = (/ & |
1696 |
|
|
& 0.72597E-02_JPRB,0.69309E-02_JPRB,0.63267E-02_JPRB,0.56269E-02_JPRB,0.48423E-02_JPRB, & |
1697 |
|
✗ |
& 0.39913E-02_JPRB,0.30764E-02_JPRB,0.20273E-02_JPRB,0.10348E-02_JPRB /) |
1698 |
|
|
KA(:, 5,10, 8) = (/ & |
1699 |
|
|
& 0.72955E-02_JPRB,0.70104E-02_JPRB,0.64378E-02_JPRB,0.57479E-02_JPRB,0.49695E-02_JPRB, & |
1700 |
|
✗ |
& 0.41180E-02_JPRB,0.31960E-02_JPRB,0.21324E-02_JPRB,0.11387E-02_JPRB /) |
1701 |
|
|
KA(:, 1,11, 8) = (/ & |
1702 |
|
|
& 0.65628E-02_JPRB,0.61735E-02_JPRB,0.55551E-02_JPRB,0.48677E-02_JPRB,0.41265E-02_JPRB, & |
1703 |
|
✗ |
& 0.33334E-02_JPRB,0.25028E-02_JPRB,0.15938E-02_JPRB,0.74406E-03_JPRB /) |
1704 |
|
|
KA(:, 2,11, 8) = (/ & |
1705 |
|
|
& 0.66786E-02_JPRB,0.63151E-02_JPRB,0.57025E-02_JPRB,0.50172E-02_JPRB,0.42702E-02_JPRB, & |
1706 |
|
✗ |
& 0.34674E-02_JPRB,0.26229E-02_JPRB,0.16875E-02_JPRB,0.82711E-03_JPRB /) |
1707 |
|
|
KA(:, 3,11, 8) = (/ & |
1708 |
|
|
& 0.67664E-02_JPRB,0.64350E-02_JPRB,0.58347E-02_JPRB,0.51562E-02_JPRB,0.44059E-02_JPRB, & |
1709 |
|
✗ |
& 0.35945E-02_JPRB,0.27422E-02_JPRB,0.17822E-02_JPRB,0.92379E-03_JPRB /) |
1710 |
|
|
KA(:, 4,11, 8) = (/ & |
1711 |
|
|
& 0.68381E-02_JPRB,0.65357E-02_JPRB,0.59597E-02_JPRB,0.52850E-02_JPRB,0.45292E-02_JPRB, & |
1712 |
|
✗ |
& 0.37195E-02_JPRB,0.28585E-02_JPRB,0.18773E-02_JPRB,0.10214E-02_JPRB /) |
1713 |
|
|
KA(:, 5,11, 8) = (/ & |
1714 |
|
|
& 0.68910E-02_JPRB,0.66274E-02_JPRB,0.60702E-02_JPRB,0.54014E-02_JPRB,0.46503E-02_JPRB, & |
1715 |
|
✗ |
& 0.38396E-02_JPRB,0.29707E-02_JPRB,0.19733E-02_JPRB,0.11179E-02_JPRB /) |
1716 |
|
|
KA(:, 1,12, 8) = (/ & |
1717 |
|
|
& 0.60794E-02_JPRB,0.57316E-02_JPRB,0.51563E-02_JPRB,0.45236E-02_JPRB,0.38371E-02_JPRB, & |
1718 |
|
✗ |
& 0.31013E-02_JPRB,0.23239E-02_JPRB,0.14745E-02_JPRB,0.70212E-03_JPRB /) |
1719 |
|
|
KA(:, 2,12, 8) = (/ & |
1720 |
|
|
& 0.62026E-02_JPRB,0.58782E-02_JPRB,0.53110E-02_JPRB,0.46778E-02_JPRB,0.39838E-02_JPRB, & |
1721 |
|
✗ |
& 0.32334E-02_JPRB,0.24368E-02_JPRB,0.15615E-02_JPRB,0.77146E-03_JPRB /) |
1722 |
|
|
KA(:, 3,12, 8) = (/ & |
1723 |
|
|
& 0.63087E-02_JPRB,0.60102E-02_JPRB,0.54544E-02_JPRB,0.48220E-02_JPRB,0.41191E-02_JPRB, & |
1724 |
|
✗ |
& 0.33562E-02_JPRB,0.25462E-02_JPRB,0.16493E-02_JPRB,0.85116E-03_JPRB /) |
1725 |
|
|
KA(:, 4,12, 8) = (/ & |
1726 |
|
|
& 0.63948E-02_JPRB,0.61265E-02_JPRB,0.55863E-02_JPRB,0.49541E-02_JPRB,0.42453E-02_JPRB, & |
1727 |
|
✗ |
& 0.34753E-02_JPRB,0.26508E-02_JPRB,0.17372E-02_JPRB,0.93862E-03_JPRB /) |
1728 |
|
|
KA(:, 5,12, 8) = (/ & |
1729 |
|
|
& 0.64607E-02_JPRB,0.62309E-02_JPRB,0.57052E-02_JPRB,0.50757E-02_JPRB,0.43660E-02_JPRB, & |
1730 |
|
✗ |
& 0.35907E-02_JPRB,0.27548E-02_JPRB,0.18249E-02_JPRB,0.10221E-02_JPRB /) |
1731 |
|
|
KA(:, 1,13, 8) = (/ & |
1732 |
|
|
& 0.55937E-02_JPRB,0.52793E-02_JPRB,0.47517E-02_JPRB,0.41692E-02_JPRB,0.35394E-02_JPRB, & |
1733 |
|
✗ |
& 0.28625E-02_JPRB,0.21454E-02_JPRB,0.13668E-02_JPRB,0.61956E-03_JPRB /) |
1734 |
|
|
KA(:, 2,13, 8) = (/ & |
1735 |
|
|
& 0.57319E-02_JPRB,0.54374E-02_JPRB,0.49129E-02_JPRB,0.43258E-02_JPRB,0.36843E-02_JPRB, & |
1736 |
|
✗ |
& 0.29907E-02_JPRB,0.22551E-02_JPRB,0.14474E-02_JPRB,0.68007E-03_JPRB /) |
1737 |
|
|
KA(:, 3,13, 8) = (/ & |
1738 |
|
|
& 0.58515E-02_JPRB,0.55788E-02_JPRB,0.50622E-02_JPRB,0.44734E-02_JPRB,0.38194E-02_JPRB, & |
1739 |
|
✗ |
& 0.31146E-02_JPRB,0.23600E-02_JPRB,0.15267E-02_JPRB,0.75016E-03_JPRB /) |
1740 |
|
|
KA(:, 4,13, 8) = (/ & |
1741 |
|
|
& 0.59483E-02_JPRB,0.57068E-02_JPRB,0.51995E-02_JPRB,0.46068E-02_JPRB,0.39501E-02_JPRB, & |
1742 |
|
✗ |
& 0.32357E-02_JPRB,0.24610E-02_JPRB,0.16061E-02_JPRB,0.82038E-03_JPRB /) |
1743 |
|
|
KA(:, 5,13, 8) = (/ & |
1744 |
|
|
& 0.60233E-02_JPRB,0.58195E-02_JPRB,0.53236E-02_JPRB,0.47349E-02_JPRB,0.40732E-02_JPRB, & |
1745 |
|
✗ |
& 0.33509E-02_JPRB,0.25596E-02_JPRB,0.16868E-02_JPRB,0.89122E-03_JPRB /) |
1746 |
|
|
KA(:, 1, 1, 9) = (/ & |
1747 |
|
|
& 0.19771E-01_JPRB,0.18370E-01_JPRB,0.17356E-01_JPRB,0.16079E-01_JPRB,0.14680E-01_JPRB, & |
1748 |
|
✗ |
& 0.13282E-01_JPRB,0.11980E-01_JPRB,0.11582E-01_JPRB,0.12985E-01_JPRB /) |
1749 |
|
|
KA(:, 2, 1, 9) = (/ & |
1750 |
|
|
& 0.19636E-01_JPRB,0.18337E-01_JPRB,0.17425E-01_JPRB,0.16276E-01_JPRB,0.15036E-01_JPRB, & |
1751 |
|
✗ |
& 0.13800E-01_JPRB,0.12788E-01_JPRB,0.12799E-01_JPRB,0.14491E-01_JPRB /) |
1752 |
|
|
KA(:, 3, 1, 9) = (/ & |
1753 |
|
|
& 0.19487E-01_JPRB,0.18291E-01_JPRB,0.17516E-01_JPRB,0.16543E-01_JPRB,0.15458E-01_JPRB, & |
1754 |
|
✗ |
& 0.14398E-01_JPRB,0.13717E-01_JPRB,0.14121E-01_JPRB,0.16094E-01_JPRB /) |
1755 |
|
|
KA(:, 4, 1, 9) = (/ & |
1756 |
|
|
& 0.19329E-01_JPRB,0.18244E-01_JPRB,0.17665E-01_JPRB,0.16858E-01_JPRB,0.15921E-01_JPRB, & |
1757 |
|
✗ |
& 0.15082E-01_JPRB,0.14738E-01_JPRB,0.15534E-01_JPRB,0.17796E-01_JPRB /) |
1758 |
|
|
KA(:, 5, 1, 9) = (/ & |
1759 |
|
|
& 0.19162E-01_JPRB,0.18208E-01_JPRB,0.17862E-01_JPRB,0.17203E-01_JPRB,0.16407E-01_JPRB, & |
1760 |
|
✗ |
& 0.15804E-01_JPRB,0.15831E-01_JPRB,0.17016E-01_JPRB,0.19554E-01_JPRB /) |
1761 |
|
|
KA(:, 1, 2, 9) = (/ & |
1762 |
|
|
& 0.20491E-01_JPRB,0.19041E-01_JPRB,0.17931E-01_JPRB,0.16490E-01_JPRB,0.14871E-01_JPRB, & |
1763 |
|
✗ |
& 0.13204E-01_JPRB,0.11551E-01_JPRB,0.10493E-01_JPRB,0.11370E-01_JPRB /) |
1764 |
|
|
KA(:, 2, 2, 9) = (/ & |
1765 |
|
|
& 0.20351E-01_JPRB,0.19021E-01_JPRB,0.18003E-01_JPRB,0.16688E-01_JPRB,0.15207E-01_JPRB, & |
1766 |
|
✗ |
& 0.13674E-01_JPRB,0.12228E-01_JPRB,0.11542E-01_JPRB,0.12722E-01_JPRB /) |
1767 |
|
|
KA(:, 3, 2, 9) = (/ & |
1768 |
|
|
& 0.20205E-01_JPRB,0.18987E-01_JPRB,0.18097E-01_JPRB,0.16946E-01_JPRB,0.15590E-01_JPRB, & |
1769 |
|
✗ |
& 0.14204E-01_JPRB,0.13003E-01_JPRB,0.12703E-01_JPRB,0.14170E-01_JPRB /) |
1770 |
|
|
KA(:, 4, 2, 9) = (/ & |
1771 |
|
|
& 0.20054E-01_JPRB,0.18946E-01_JPRB,0.18241E-01_JPRB,0.17244E-01_JPRB,0.16012E-01_JPRB, & |
1772 |
|
✗ |
& 0.14800E-01_JPRB,0.13862E-01_JPRB,0.13953E-01_JPRB,0.15702E-01_JPRB /) |
1773 |
|
|
KA(:, 5, 2, 9) = (/ & |
1774 |
|
|
& 0.19890E-01_JPRB,0.18914E-01_JPRB,0.18431E-01_JPRB,0.17568E-01_JPRB,0.16464E-01_JPRB, & |
1775 |
|
✗ |
& 0.15445E-01_JPRB,0.14813E-01_JPRB,0.15302E-01_JPRB,0.17318E-01_JPRB /) |
1776 |
|
|
KA(:, 1, 3, 9) = (/ & |
1777 |
|
|
& 0.21143E-01_JPRB,0.19662E-01_JPRB,0.18419E-01_JPRB,0.16811E-01_JPRB,0.15005E-01_JPRB, & |
1778 |
|
✗ |
& 0.13075E-01_JPRB,0.11094E-01_JPRB,0.93893E-02_JPRB,0.95682E-02_JPRB /) |
1779 |
|
|
KA(:, 2, 3, 9) = (/ & |
1780 |
|
|
& 0.21021E-01_JPRB,0.19658E-01_JPRB,0.18498E-01_JPRB,0.17007E-01_JPRB,0.15312E-01_JPRB, & |
1781 |
|
✗ |
& 0.13491E-01_JPRB,0.11661E-01_JPRB,0.10256E-01_JPRB,0.10742E-01_JPRB /) |
1782 |
|
|
KA(:, 3, 3, 9) = (/ & |
1783 |
|
|
& 0.20887E-01_JPRB,0.19635E-01_JPRB,0.18594E-01_JPRB,0.17251E-01_JPRB,0.15669E-01_JPRB, & |
1784 |
|
✗ |
& 0.13959E-01_JPRB,0.12304E-01_JPRB,0.11227E-01_JPRB,0.12012E-01_JPRB /) |
1785 |
|
|
KA(:, 4, 3, 9) = (/ & |
1786 |
|
|
& 0.20742E-01_JPRB,0.19603E-01_JPRB,0.18727E-01_JPRB,0.17530E-01_JPRB,0.16058E-01_JPRB, & |
1787 |
|
✗ |
& 0.14485E-01_JPRB,0.13015E-01_JPRB,0.12294E-01_JPRB,0.13375E-01_JPRB /) |
1788 |
|
|
KA(:, 5, 3, 9) = (/ & |
1789 |
|
|
& 0.20582E-01_JPRB,0.19578E-01_JPRB,0.18903E-01_JPRB,0.17831E-01_JPRB,0.16483E-01_JPRB, & |
1790 |
|
✗ |
& 0.15047E-01_JPRB,0.13818E-01_JPRB,0.13471E-01_JPRB,0.14836E-01_JPRB /) |
1791 |
|
|
KA(:, 1, 4, 9) = (/ & |
1792 |
|
|
& 0.21726E-01_JPRB,0.20199E-01_JPRB,0.18812E-01_JPRB,0.17047E-01_JPRB,0.15080E-01_JPRB, & |
1793 |
|
✗ |
& 0.12938E-01_JPRB,0.10693E-01_JPRB,0.84650E-02_JPRB,0.79270E-02_JPRB /) |
1794 |
|
|
KA(:, 2, 4, 9) = (/ & |
1795 |
|
|
& 0.21624E-01_JPRB,0.20213E-01_JPRB,0.18897E-01_JPRB,0.17238E-01_JPRB,0.15368E-01_JPRB, & |
1796 |
|
✗ |
& 0.13326E-01_JPRB,0.11175E-01_JPRB,0.91656E-02_JPRB,0.89409E-02_JPRB /) |
1797 |
|
|
KA(:, 3, 4, 9) = (/ & |
1798 |
|
|
& 0.21502E-01_JPRB,0.20207E-01_JPRB,0.18990E-01_JPRB,0.17468E-01_JPRB,0.15708E-01_JPRB, & |
1799 |
|
✗ |
& 0.13755E-01_JPRB,0.11721E-01_JPRB,0.99561E-02_JPRB,0.10044E-01_JPRB /) |
1800 |
|
|
KA(:, 4, 4, 9) = (/ & |
1801 |
|
|
& 0.21364E-01_JPRB,0.20186E-01_JPRB,0.19114E-01_JPRB,0.17747E-01_JPRB,0.16075E-01_JPRB, & |
1802 |
|
✗ |
& 0.14230E-01_JPRB,0.12327E-01_JPRB,0.10844E-01_JPRB,0.11238E-01_JPRB /) |
1803 |
|
|
KA(:, 5, 4, 9) = (/ & |
1804 |
|
|
& 0.21208E-01_JPRB,0.20165E-01_JPRB,0.19280E-01_JPRB,0.18035E-01_JPRB,0.16477E-01_JPRB, & |
1805 |
|
✗ |
& 0.14734E-01_JPRB,0.13004E-01_JPRB,0.11837E-01_JPRB,0.12527E-01_JPRB /) |
1806 |
|
|
KA(:, 1, 5, 9) = (/ & |
1807 |
|
|
& 0.22212E-01_JPRB,0.20643E-01_JPRB,0.19101E-01_JPRB,0.17193E-01_JPRB,0.15094E-01_JPRB, & |
1808 |
|
✗ |
& 0.12790E-01_JPRB,0.10344E-01_JPRB,0.77661E-02_JPRB,0.65292E-02_JPRB /) |
1809 |
|
|
KA(:, 2, 5, 9) = (/ & |
1810 |
|
|
& 0.22131E-01_JPRB,0.20679E-01_JPRB,0.19192E-01_JPRB,0.17388E-01_JPRB,0.15373E-01_JPRB, & |
1811 |
|
✗ |
& 0.13156E-01_JPRB,0.10779E-01_JPRB,0.83326E-02_JPRB,0.74004E-02_JPRB /) |
1812 |
|
|
KA(:, 3, 5, 9) = (/ & |
1813 |
|
|
& 0.22024E-01_JPRB,0.20689E-01_JPRB,0.19289E-01_JPRB,0.17614E-01_JPRB,0.15701E-01_JPRB, & |
1814 |
|
✗ |
& 0.13560E-01_JPRB,0.11259E-01_JPRB,0.89716E-02_JPRB,0.83509E-02_JPRB /) |
1815 |
|
|
KA(:, 4, 5, 9) = (/ & |
1816 |
|
|
& 0.21891E-01_JPRB,0.20674E-01_JPRB,0.19419E-01_JPRB,0.17880E-01_JPRB,0.16055E-01_JPRB, & |
1817 |
|
✗ |
& 0.14002E-01_JPRB,0.11784E-01_JPRB,0.96942E-02_JPRB,0.93863E-02_JPRB /) |
1818 |
|
|
KA(:, 5, 5, 9) = (/ & |
1819 |
|
|
& 0.21733E-01_JPRB,0.20659E-01_JPRB,0.19581E-01_JPRB,0.18166E-01_JPRB,0.16436E-01_JPRB, & |
1820 |
|
✗ |
& 0.14467E-01_JPRB,0.12356E-01_JPRB,0.10508E-01_JPRB,0.10499E-01_JPRB /) |
1821 |
|
|
KA(:, 1, 6, 9) = (/ & |
1822 |
|
|
& 0.22561E-01_JPRB,0.20963E-01_JPRB,0.19278E-01_JPRB,0.17248E-01_JPRB,0.15027E-01_JPRB, & |
1823 |
|
✗ |
& 0.12605E-01_JPRB,0.99913E-02_JPRB,0.71998E-02_JPRB,0.53191E-02_JPRB /) |
1824 |
|
|
KA(:, 2, 6, 9) = (/ & |
1825 |
|
|
& 0.22505E-01_JPRB,0.21027E-01_JPRB,0.19391E-01_JPRB,0.17451E-01_JPRB,0.15296E-01_JPRB, & |
1826 |
|
✗ |
& 0.12947E-01_JPRB,0.10394E-01_JPRB,0.76719E-02_JPRB,0.60628E-02_JPRB /) |
1827 |
|
|
KA(:, 3, 6, 9) = (/ & |
1828 |
|
|
& 0.22407E-01_JPRB,0.21057E-01_JPRB,0.19505E-01_JPRB,0.17673E-01_JPRB,0.15617E-01_JPRB, & |
1829 |
|
✗ |
& 0.13330E-01_JPRB,0.10834E-01_JPRB,0.82004E-02_JPRB,0.68698E-02_JPRB /) |
1830 |
|
|
KA(:, 4, 6, 9) = (/ & |
1831 |
|
|
& 0.22287E-01_JPRB,0.21061E-01_JPRB,0.19636E-01_JPRB,0.17933E-01_JPRB,0.15963E-01_JPRB, & |
1832 |
|
✗ |
& 0.13742E-01_JPRB,0.11312E-01_JPRB,0.87854E-02_JPRB,0.77488E-02_JPRB /) |
1833 |
|
|
KA(:, 5, 6, 9) = (/ & |
1834 |
|
|
& 0.22148E-01_JPRB,0.21053E-01_JPRB,0.19794E-01_JPRB,0.18212E-01_JPRB,0.16329E-01_JPRB, & |
1835 |
|
✗ |
& 0.14180E-01_JPRB,0.11816E-01_JPRB,0.94417E-02_JPRB,0.86993E-02_JPRB /) |
1836 |
|
|
KA(:, 1, 7, 9) = (/ & |
1837 |
|
|
& 0.22745E-01_JPRB,0.21135E-01_JPRB,0.19327E-01_JPRB,0.17197E-01_JPRB,0.14893E-01_JPRB, & |
1838 |
|
✗ |
& 0.12374E-01_JPRB,0.96536E-02_JPRB,0.67256E-02_JPRB,0.43127E-02_JPRB /) |
1839 |
|
|
KA(:, 2, 7, 9) = (/ & |
1840 |
|
|
& 0.22707E-01_JPRB,0.21230E-01_JPRB,0.19474E-01_JPRB,0.17423E-01_JPRB,0.15162E-01_JPRB, & |
1841 |
|
✗ |
& 0.12700E-01_JPRB,0.10030E-01_JPRB,0.71370E-02_JPRB,0.49389E-02_JPRB /) |
1842 |
|
|
KA(:, 3, 7, 9) = (/ & |
1843 |
|
|
& 0.22632E-01_JPRB,0.21281E-01_JPRB,0.19608E-01_JPRB,0.17649E-01_JPRB,0.15471E-01_JPRB, & |
1844 |
|
✗ |
& 0.13070E-01_JPRB,0.10436E-01_JPRB,0.75822E-02_JPRB,0.56174E-02_JPRB /) |
1845 |
|
|
KA(:, 4, 7, 9) = (/ & |
1846 |
|
|
& 0.22537E-01_JPRB,0.21307E-01_JPRB,0.19744E-01_JPRB,0.17903E-01_JPRB,0.15813E-01_JPRB, & |
1847 |
|
✗ |
& 0.13461E-01_JPRB,0.10872E-01_JPRB,0.80682E-02_JPRB,0.63562E-02_JPRB /) |
1848 |
|
|
KA(:, 5, 7, 9) = (/ & |
1849 |
|
|
& 0.22420E-01_JPRB,0.21314E-01_JPRB,0.19904E-01_JPRB,0.18182E-01_JPRB,0.16160E-01_JPRB, & |
1850 |
|
✗ |
& 0.13874E-01_JPRB,0.11331E-01_JPRB,0.86088E-02_JPRB,0.71565E-02_JPRB /) |
1851 |
|
|
KA(:, 1, 8, 9) = (/ & |
1852 |
|
|
& 0.22742E-01_JPRB,0.21141E-01_JPRB,0.19244E-01_JPRB,0.17036E-01_JPRB,0.14667E-01_JPRB, & |
1853 |
|
✗ |
& 0.12093E-01_JPRB,0.93194E-02_JPRB,0.63016E-02_JPRB,0.33604E-02_JPRB /) |
1854 |
|
|
|
1855 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART6',1,ZHOOK_HANDLE) |
1856 |
|
✗ |
END SUBROUTINE PART6 |
1857 |
|
|
|
1858 |
|
|
|
1859 |
|
✗ |
SUBROUTINE PART7 |
1860 |
|
|
|
1861 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1862 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART7',0,ZHOOK_HANDLE) |
1863 |
|
|
|
1864 |
|
|
|
1865 |
|
|
KA(:, 2, 8, 9) = (/ & |
1866 |
|
|
& 0.22738E-01_JPRB,0.21267E-01_JPRB,0.19420E-01_JPRB,0.17289E-01_JPRB,0.14951E-01_JPRB, & |
1867 |
|
✗ |
& 0.12414E-01_JPRB,0.96717E-02_JPRB,0.66654E-02_JPRB,0.38903E-02_JPRB /) |
1868 |
|
|
KA(:, 3, 8, 9) = (/ & |
1869 |
|
|
& 0.22699E-01_JPRB,0.21347E-01_JPRB,0.19574E-01_JPRB,0.17525E-01_JPRB,0.15260E-01_JPRB, & |
1870 |
|
✗ |
& 0.12775E-01_JPRB,0.10048E-01_JPRB,0.70608E-02_JPRB,0.44626E-02_JPRB /) |
1871 |
|
|
KA(:, 4, 8, 9) = (/ & |
1872 |
|
|
& 0.22634E-01_JPRB,0.21402E-01_JPRB,0.19725E-01_JPRB,0.17775E-01_JPRB,0.15596E-01_JPRB, & |
1873 |
|
✗ |
& 0.13150E-01_JPRB,0.10455E-01_JPRB,0.74847E-02_JPRB,0.50904E-02_JPRB /) |
1874 |
|
|
KA(:, 5, 8, 9) = (/ & |
1875 |
|
|
& 0.22550E-01_JPRB,0.21432E-01_JPRB,0.19888E-01_JPRB,0.18059E-01_JPRB,0.15936E-01_JPRB, & |
1876 |
|
✗ |
& 0.13540E-01_JPRB,0.10879E-01_JPRB,0.79454E-02_JPRB,0.57754E-02_JPRB /) |
1877 |
|
|
KA(:, 1, 9, 9) = (/ & |
1878 |
|
|
& 0.22571E-01_JPRB,0.20980E-01_JPRB,0.19017E-01_JPRB,0.16764E-01_JPRB,0.14350E-01_JPRB, & |
1879 |
|
✗ |
& 0.11743E-01_JPRB,0.89583E-02_JPRB,0.59107E-02_JPRB,0.27753E-02_JPRB /) |
1880 |
|
|
KA(:, 2, 9, 9) = (/ & |
1881 |
|
|
& 0.22607E-01_JPRB,0.21147E-01_JPRB,0.19231E-01_JPRB,0.17040E-01_JPRB,0.14648E-01_JPRB, & |
1882 |
|
✗ |
& 0.12069E-01_JPRB,0.92988E-02_JPRB,0.62425E-02_JPRB,0.31527E-02_JPRB /) |
1883 |
|
|
KA(:, 3, 9, 9) = (/ & |
1884 |
|
|
& 0.22609E-01_JPRB,0.21268E-01_JPRB,0.19413E-01_JPRB,0.17284E-01_JPRB,0.14954E-01_JPRB, & |
1885 |
|
✗ |
& 0.12424E-01_JPRB,0.96568E-02_JPRB,0.66010E-02_JPRB,0.35387E-02_JPRB /) |
1886 |
|
|
KA(:, 4, 9, 9) = (/ & |
1887 |
|
|
& 0.22589E-01_JPRB,0.21355E-01_JPRB,0.19582E-01_JPRB,0.17535E-01_JPRB,0.15285E-01_JPRB, & |
1888 |
|
✗ |
& 0.12790E-01_JPRB,0.10038E-01_JPRB,0.69765E-02_JPRB,0.39766E-02_JPRB /) |
1889 |
|
|
KA(:, 5, 9, 9) = (/ & |
1890 |
|
|
& 0.22546E-01_JPRB,0.21413E-01_JPRB,0.19758E-01_JPRB,0.17821E-01_JPRB,0.15622E-01_JPRB, & |
1891 |
|
✗ |
& 0.13166E-01_JPRB,0.10432E-01_JPRB,0.73821E-02_JPRB,0.44450E-02_JPRB /) |
1892 |
|
|
KA(:, 1,10, 9) = (/ & |
1893 |
|
|
& 0.22137E-01_JPRB,0.20618E-01_JPRB,0.18650E-01_JPRB,0.16403E-01_JPRB,0.13972E-01_JPRB, & |
1894 |
|
✗ |
& 0.11364E-01_JPRB,0.85848E-02_JPRB,0.55632E-02_JPRB,0.31593E-02_JPRB /) |
1895 |
|
|
KA(:, 2,10, 9) = (/ & |
1896 |
|
|
& 0.22231E-01_JPRB,0.20835E-01_JPRB,0.18905E-01_JPRB,0.16706E-01_JPRB,0.14289E-01_JPRB, & |
1897 |
|
✗ |
& 0.11695E-01_JPRB,0.89167E-02_JPRB,0.58739E-02_JPRB,0.35325E-02_JPRB /) |
1898 |
|
|
KA(:, 3,10, 9) = (/ & |
1899 |
|
|
& 0.22295E-01_JPRB,0.21010E-01_JPRB,0.19131E-01_JPRB,0.16972E-01_JPRB,0.14595E-01_JPRB, & |
1900 |
|
✗ |
& 0.12040E-01_JPRB,0.92665E-02_JPRB,0.62059E-02_JPRB,0.39315E-02_JPRB /) |
1901 |
|
|
KA(:, 4,10, 9) = (/ & |
1902 |
|
|
& 0.22331E-01_JPRB,0.21144E-01_JPRB,0.19334E-01_JPRB,0.17233E-01_JPRB,0.14916E-01_JPRB, & |
1903 |
|
✗ |
& 0.12396E-01_JPRB,0.96355E-02_JPRB,0.65507E-02_JPRB,0.43409E-02_JPRB /) |
1904 |
|
|
KA(:, 5,10, 9) = (/ & |
1905 |
|
|
& 0.22332E-01_JPRB,0.21248E-01_JPRB,0.19527E-01_JPRB,0.17517E-01_JPRB,0.15252E-01_JPRB, & |
1906 |
|
✗ |
& 0.12765E-01_JPRB,0.10012E-01_JPRB,0.69176E-02_JPRB,0.47851E-02_JPRB /) |
1907 |
|
|
KA(:, 1,11, 9) = (/ & |
1908 |
|
|
& 0.21611E-01_JPRB,0.20177E-01_JPRB,0.18220E-01_JPRB,0.16014E-01_JPRB,0.13625E-01_JPRB, & |
1909 |
|
✗ |
& 0.11072E-01_JPRB,0.83376E-02_JPRB,0.53526E-02_JPRB,0.32967E-02_JPRB /) |
1910 |
|
|
KA(:, 2,11, 9) = (/ & |
1911 |
|
|
& 0.21754E-01_JPRB,0.20431E-01_JPRB,0.18507E-01_JPRB,0.16333E-01_JPRB,0.13954E-01_JPRB, & |
1912 |
|
✗ |
& 0.11415E-01_JPRB,0.86702E-02_JPRB,0.56558E-02_JPRB,0.36779E-02_JPRB /) |
1913 |
|
|
KA(:, 3,11, 9) = (/ & |
1914 |
|
|
& 0.21862E-01_JPRB,0.20634E-01_JPRB,0.18769E-01_JPRB,0.16624E-01_JPRB,0.14280E-01_JPRB, & |
1915 |
|
✗ |
& 0.11762E-01_JPRB,0.90145E-02_JPRB,0.59759E-02_JPRB,0.40891E-02_JPRB /) |
1916 |
|
|
KA(:, 4,11, 9) = (/ & |
1917 |
|
|
& 0.21929E-01_JPRB,0.20796E-01_JPRB,0.18995E-01_JPRB,0.16914E-01_JPRB,0.14621E-01_JPRB, & |
1918 |
|
✗ |
& 0.12122E-01_JPRB,0.93752E-02_JPRB,0.63026E-02_JPRB,0.45492E-02_JPRB /) |
1919 |
|
|
KA(:, 5,11, 9) = (/ & |
1920 |
|
|
& 0.21956E-01_JPRB,0.20925E-01_JPRB,0.19222E-01_JPRB,0.17218E-01_JPRB,0.14974E-01_JPRB, & |
1921 |
|
✗ |
& 0.12492E-01_JPRB,0.97406E-02_JPRB,0.66508E-02_JPRB,0.50324E-02_JPRB /) |
1922 |
|
|
KA(:, 1,12, 9) = (/ & |
1923 |
|
|
& 0.20989E-01_JPRB,0.19649E-01_JPRB,0.17719E-01_JPRB,0.15554E-01_JPRB,0.13207E-01_JPRB, & |
1924 |
|
✗ |
& 0.10709E-01_JPRB,0.80423E-02_JPRB,0.51308E-02_JPRB,0.32152E-02_JPRB /) |
1925 |
|
|
KA(:, 2,12, 9) = (/ & |
1926 |
|
|
& 0.21187E-01_JPRB,0.19941E-01_JPRB,0.18042E-01_JPRB,0.15892E-01_JPRB,0.13549E-01_JPRB, & |
1927 |
|
✗ |
& 0.11055E-01_JPRB,0.83766E-02_JPRB,0.54250E-02_JPRB,0.35851E-02_JPRB /) |
1928 |
|
|
KA(:, 3,12, 9) = (/ & |
1929 |
|
|
& 0.21336E-01_JPRB,0.20173E-01_JPRB,0.18327E-01_JPRB,0.16203E-01_JPRB,0.13894E-01_JPRB, & |
1930 |
|
✗ |
& 0.11411E-01_JPRB,0.87228E-02_JPRB,0.57329E-02_JPRB,0.40006E-02_JPRB /) |
1931 |
|
|
KA(:, 4,12, 9) = (/ & |
1932 |
|
|
& 0.21440E-01_JPRB,0.20364E-01_JPRB,0.18584E-01_JPRB,0.16516E-01_JPRB,0.14243E-01_JPRB, & |
1933 |
|
✗ |
& 0.11781E-01_JPRB,0.90825E-02_JPRB,0.60483E-02_JPRB,0.44327E-02_JPRB /) |
1934 |
|
|
KA(:, 5,12, 9) = (/ & |
1935 |
|
|
& 0.21509E-01_JPRB,0.20531E-01_JPRB,0.18841E-01_JPRB,0.16838E-01_JPRB,0.14607E-01_JPRB, & |
1936 |
|
✗ |
& 0.12155E-01_JPRB,0.94413E-02_JPRB,0.63798E-02_JPRB,0.48628E-02_JPRB /) |
1937 |
|
|
KA(:, 1,13, 9) = (/ & |
1938 |
|
|
& 0.20300E-01_JPRB,0.19036E-01_JPRB,0.17142E-01_JPRB,0.15033E-01_JPRB,0.12745E-01_JPRB, & |
1939 |
|
✗ |
& 0.10318E-01_JPRB,0.77330E-02_JPRB,0.48977E-02_JPRB,0.29186E-02_JPRB /) |
1940 |
|
|
KA(:, 2,13, 9) = (/ & |
1941 |
|
|
& 0.20539E-01_JPRB,0.19361E-01_JPRB,0.17504E-01_JPRB,0.15398E-01_JPRB,0.13114E-01_JPRB, & |
1942 |
|
✗ |
& 0.10679E-01_JPRB,0.80651E-02_JPRB,0.51844E-02_JPRB,0.32743E-02_JPRB /) |
1943 |
|
|
KA(:, 3,13, 9) = (/ & |
1944 |
|
|
& 0.20734E-01_JPRB,0.19633E-01_JPRB,0.17821E-01_JPRB,0.15739E-01_JPRB,0.13481E-01_JPRB, & |
1945 |
|
✗ |
& 0.11044E-01_JPRB,0.84099E-02_JPRB,0.54812E-02_JPRB,0.36601E-02_JPRB /) |
1946 |
|
|
KA(:, 4,13, 9) = (/ & |
1947 |
|
|
& 0.20892E-01_JPRB,0.19871E-01_JPRB,0.18120E-01_JPRB,0.16090E-01_JPRB,0.13847E-01_JPRB, & |
1948 |
|
✗ |
& 0.11415E-01_JPRB,0.87615E-02_JPRB,0.57863E-02_JPRB,0.40403E-02_JPRB /) |
1949 |
|
|
KA(:, 5,13, 9) = (/ & |
1950 |
|
|
& 0.21016E-01_JPRB,0.20092E-01_JPRB,0.18420E-01_JPRB,0.16433E-01_JPRB,0.14220E-01_JPRB, & |
1951 |
|
✗ |
& 0.11787E-01_JPRB,0.91177E-02_JPRB,0.61020E-02_JPRB,0.44775E-02_JPRB /) |
1952 |
|
|
KA(:, 1, 1,10) = (/ & |
1953 |
|
|
& 0.32077E-01_JPRB,0.29717E-01_JPRB,0.27957E-01_JPRB,0.27088E-01_JPRB,0.26148E-01_JPRB, & |
1954 |
|
✗ |
& 0.25463E-01_JPRB,0.27887E-01_JPRB,0.32409E-01_JPRB,0.37623E-01_JPRB /) |
1955 |
|
|
KA(:, 2, 1,10) = (/ & |
1956 |
|
|
& 0.31656E-01_JPRB,0.29512E-01_JPRB,0.28047E-01_JPRB,0.27317E-01_JPRB,0.26667E-01_JPRB, & |
1957 |
|
✗ |
& 0.26788E-01_JPRB,0.30344E-01_JPRB,0.35248E-01_JPRB,0.40533E-01_JPRB /) |
1958 |
|
|
KA(:, 3, 1,10) = (/ & |
1959 |
|
|
& 0.31222E-01_JPRB,0.29398E-01_JPRB,0.28183E-01_JPRB,0.27633E-01_JPRB,0.27598E-01_JPRB, & |
1960 |
|
✗ |
& 0.28788E-01_JPRB,0.33344E-01_JPRB,0.38694E-01_JPRB,0.44458E-01_JPRB /) |
1961 |
|
|
KA(:, 4, 1,10) = (/ & |
1962 |
|
|
& 0.30838E-01_JPRB,0.29185E-01_JPRB,0.28219E-01_JPRB,0.28269E-01_JPRB,0.28900E-01_JPRB, & |