Line |
Branch |
Exec |
Source |
1 |
|
|
!OCL SCALAR |
2 |
|
|
!pgi$r opt=0 |
3 |
|
✗ |
SUBROUTINE SRTM_KGB22 |
4 |
|
|
|
5 |
|
|
! Originally by J.Delamere, Atmospheric & Environmental Research. |
6 |
|
|
! Revision: 2.4 |
7 |
|
|
! BAND 16: 7700-8050 cm-1 (low - H2O,O2; high - O2) |
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 YOESRTA22, 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_KGB22',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_KGB22',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_KGB22:PART1',0,ZHOOK_HANDLE) |
57 |
|
|
|
58 |
|
|
|
59 |
|
|
SFLUXREF(:, 1) = (/ & |
60 |
|
|
& 3.71641_JPRB ,3.63190_JPRB ,3.44795_JPRB ,3.17936_JPRB , & |
61 |
|
|
& 2.86071_JPRB ,2.48490_JPRB ,2.02471_JPRB ,1.52475_JPRB , & |
62 |
|
|
& 1.03811_JPRB ,0.113272_JPRB ,9.37115E-02_JPRB,7.38969E-02_JPRB, & |
63 |
|
✗ |
& 5.44713E-02_JPRB,3.45905E-02_JPRB,1.30293E-02_JPRB,1.84198E-03_JPRB /) |
64 |
|
|
SFLUXREF(:, 2) = (/ & |
65 |
|
|
& 3.73933_JPRB ,3.60360_JPRB ,3.43370_JPRB ,3.19749_JPRB , & |
66 |
|
|
& 2.87747_JPRB ,2.47926_JPRB ,2.02175_JPRB ,1.52010_JPRB , & |
67 |
|
|
& 1.03612_JPRB ,0.113265_JPRB ,9.37145E-02_JPRB,7.38951E-02_JPRB, & |
68 |
|
✗ |
& 5.44714E-02_JPRB,3.45906E-02_JPRB,1.30293E-02_JPRB,1.84198E-03_JPRB /) |
69 |
|
|
SFLUXREF(:, 3) = (/ & |
70 |
|
|
& 3.73889_JPRB ,3.60279_JPRB ,3.43404_JPRB ,3.20560_JPRB , & |
71 |
|
|
& 2.87367_JPRB ,2.47515_JPRB ,2.02412_JPRB ,1.52315_JPRB , & |
72 |
|
|
& 1.03146_JPRB ,0.113272_JPRB ,9.36707E-02_JPRB,7.39080E-02_JPRB, & |
73 |
|
✗ |
& 5.44598E-02_JPRB,3.45906E-02_JPRB,1.30293E-02_JPRB,1.84198E-03_JPRB /) |
74 |
|
|
SFLUXREF(:, 4) = (/ & |
75 |
|
|
& 3.73801_JPRB ,3.60530_JPRB ,3.43659_JPRB ,3.20640_JPRB , & |
76 |
|
|
& 2.87039_JPRB ,2.47330_JPRB ,2.02428_JPRB ,1.52509_JPRB , & |
77 |
|
|
& 1.03037_JPRB ,0.112553_JPRB ,9.35352E-02_JPRB,7.39675E-02_JPRB, & |
78 |
|
✗ |
& 5.43951E-02_JPRB,3.45669E-02_JPRB,1.30292E-02_JPRB,1.84198E-03_JPRB /) |
79 |
|
|
SFLUXREF(:, 5) = (/ & |
80 |
|
|
& 3.73809_JPRB ,3.60996_JPRB ,3.43602_JPRB ,3.20364_JPRB , & |
81 |
|
|
& 2.87005_JPRB ,2.47343_JPRB ,2.02353_JPRB ,1.52617_JPRB , & |
82 |
|
|
& 1.03138_JPRB ,0.111172_JPRB ,9.29885E-02_JPRB,7.35034E-02_JPRB, & |
83 |
|
✗ |
& 5.42427E-02_JPRB,3.45732E-02_JPRB,1.30169E-02_JPRB,1.84550E-03_JPRB /) |
84 |
|
|
SFLUXREF(:, 6) = (/ & |
85 |
|
|
& 3.73872_JPRB ,3.62054_JPRB ,3.42934_JPRB ,3.20110_JPRB , & |
86 |
|
|
& 2.86886_JPRB ,2.47379_JPRB ,2.02237_JPRB ,1.52754_JPRB , & |
87 |
|
|
& 1.03228_JPRB ,0.111597_JPRB ,9.12252E-02_JPRB,7.33115E-02_JPRB, & |
88 |
|
✗ |
& 5.35600E-02_JPRB,3.45187E-02_JPRB,1.30184E-02_JPRB,1.84551E-03_JPRB /) |
89 |
|
|
SFLUXREF(:, 7) = (/ & |
90 |
|
|
& 3.73969_JPRB ,3.65461_JPRB ,3.40646_JPRB ,3.19082_JPRB , & |
91 |
|
|
& 2.86919_JPRB ,2.47289_JPRB ,2.02312_JPRB ,1.52629_JPRB , & |
92 |
|
|
& 1.03329_JPRB ,0.111611_JPRB ,9.16275E-02_JPRB,7.14731E-02_JPRB, & |
93 |
|
✗ |
& 5.31771E-02_JPRB,3.44980E-02_JPRB,1.30190E-02_JPRB,1.84551E-03_JPRB /) |
94 |
|
|
SFLUXREF(:, 8) = (/ & |
95 |
|
|
& 3.73995_JPRB ,3.65348_JPRB ,3.43707_JPRB ,3.16351_JPRB , & |
96 |
|
|
& 2.87003_JPRB ,2.47392_JPRB ,2.02114_JPRB ,1.52548_JPRB , & |
97 |
|
|
& 1.03306_JPRB ,0.111088_JPRB ,9.12422E-02_JPRB,7.11146E-02_JPRB, & |
98 |
|
✗ |
& 5.31333E-02_JPRB,3.45302E-02_JPRB,1.30209E-02_JPRB,1.84554E-03_JPRB /) |
99 |
|
|
SFLUXREF(:, 9) = (/ & |
100 |
|
|
& 3.73788_JPRB ,3.65004_JPRB ,3.46938_JPRB ,3.15236_JPRB , & |
101 |
|
|
& 2.86381_JPRB ,2.47393_JPRB ,2.01715_JPRB ,1.52134_JPRB , & |
102 |
|
|
& 1.03163_JPRB ,0.111259_JPRB ,9.12948E-02_JPRB,7.09999E-02_JPRB, & |
103 |
|
✗ |
& 5.31792E-02_JPRB,3.44955E-02_JPRB,1.30189E-02_JPRB,1.84551E-03_JPRB /) |
104 |
|
|
|
105 |
|
|
! Rayleigh extinction coefficient at v = 8000 cm-1. |
106 |
|
✗ |
RAYL = 1.54E-08_JPRB |
107 |
|
|
|
108 |
|
✗ |
STRRAT = 0.022708_JPRB |
109 |
|
|
|
110 |
|
✗ |
LAYREFFR = 2 |
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.14658E-08_JPRB,0.32044E-07_JPRB,0.36289E-07_JPRB,0.38717E-07_JPRB,0.40590E-07_JPRB, & |
133 |
|
✗ |
& 0.43330E-07_JPRB,0.46916E-07_JPRB,0.56519E-07_JPRB,0.42446E-07_JPRB /) |
134 |
|
|
KA(:, 2, 1, 1) = (/ & |
135 |
|
|
& 0.17883E-08_JPRB,0.36129E-07_JPRB,0.40724E-07_JPRB,0.43498E-07_JPRB,0.45371E-07_JPRB, & |
136 |
|
✗ |
& 0.47093E-07_JPRB,0.51195E-07_JPRB,0.58562E-07_JPRB,0.44474E-07_JPRB /) |
137 |
|
|
KA(:, 3, 1, 1) = (/ & |
138 |
|
|
& 0.21286E-08_JPRB,0.46092E-07_JPRB,0.53991E-07_JPRB,0.59439E-07_JPRB,0.63497E-07_JPRB, & |
139 |
|
✗ |
& 0.66730E-07_JPRB,0.70296E-07_JPRB,0.83990E-07_JPRB,0.65058E-07_JPRB /) |
140 |
|
|
KA(:, 4, 1, 1) = (/ & |
141 |
|
|
& 0.24816E-08_JPRB,0.43399E-07_JPRB,0.49167E-07_JPRB,0.52969E-07_JPRB,0.55586E-07_JPRB, & |
142 |
|
✗ |
& 0.57260E-07_JPRB,0.58809E-07_JPRB,0.64046E-07_JPRB,0.48780E-07_JPRB /) |
143 |
|
|
KA(:, 5, 1, 1) = (/ & |
144 |
|
|
& 0.28409E-08_JPRB,0.46683E-07_JPRB,0.53128E-07_JPRB,0.57526E-07_JPRB,0.60605E-07_JPRB, & |
145 |
|
✗ |
& 0.62715E-07_JPRB,0.64284E-07_JPRB,0.67579E-07_JPRB,0.52346E-07_JPRB /) |
146 |
|
|
KA(:, 1, 2, 1) = (/ & |
147 |
|
|
& 0.10965E-08_JPRB,0.24934E-07_JPRB,0.28268E-07_JPRB,0.30156E-07_JPRB,0.31820E-07_JPRB, & |
148 |
|
✗ |
& 0.34498E-07_JPRB,0.36563E-07_JPRB,0.46609E-07_JPRB,0.30202E-07_JPRB /) |
149 |
|
|
KA(:, 2, 2, 1) = (/ & |
150 |
|
|
& 0.13538E-08_JPRB,0.28338E-07_JPRB,0.31923E-07_JPRB,0.34048E-07_JPRB,0.35529E-07_JPRB, & |
151 |
|
✗ |
& 0.37136E-07_JPRB,0.41583E-07_JPRB,0.46831E-07_JPRB,0.32817E-07_JPRB /) |
152 |
|
|
KA(:, 3, 2, 1) = (/ & |
153 |
|
|
& 0.16260E-08_JPRB,0.36648E-07_JPRB,0.42882E-07_JPRB,0.47128E-07_JPRB,0.50288E-07_JPRB, & |
154 |
|
✗ |
& 0.52851E-07_JPRB,0.56093E-07_JPRB,0.70511E-07_JPRB,0.48182E-07_JPRB /) |
155 |
|
|
KA(:, 4, 2, 1) = (/ & |
156 |
|
|
& 0.19102E-08_JPRB,0.39471E-07_JPRB,0.46225E-07_JPRB,0.50974E-07_JPRB,0.54565E-07_JPRB, & |
157 |
|
✗ |
& 0.57380E-07_JPRB,0.60079E-07_JPRB,0.67707E-07_JPRB,0.50168E-07_JPRB /) |
158 |
|
|
KA(:, 5, 2, 1) = (/ & |
159 |
|
|
& 0.22030E-08_JPRB,0.37203E-07_JPRB,0.42234E-07_JPRB,0.45622E-07_JPRB,0.47990E-07_JPRB, & |
160 |
|
✗ |
& 0.49546E-07_JPRB,0.50777E-07_JPRB,0.53867E-07_JPRB,0.39769E-07_JPRB /) |
161 |
|
|
KA(:, 1, 3, 1) = (/ & |
162 |
|
|
& 0.77844E-09_JPRB,0.18777E-07_JPRB,0.21347E-07_JPRB,0.22946E-07_JPRB,0.24368E-07_JPRB, & |
163 |
|
✗ |
& 0.25870E-07_JPRB,0.28084E-07_JPRB,0.39197E-07_JPRB,0.20196E-07_JPRB /) |
164 |
|
|
KA(:, 2, 3, 1) = (/ & |
165 |
|
|
& 0.97891E-09_JPRB,0.21591E-07_JPRB,0.24379E-07_JPRB,0.25974E-07_JPRB,0.27213E-07_JPRB, & |
166 |
|
✗ |
& 0.29039E-07_JPRB,0.31487E-07_JPRB,0.37725E-07_JPRB,0.23228E-07_JPRB /) |
167 |
|
|
KA(:, 3, 3, 1) = (/ & |
168 |
|
|
& 0.11949E-08_JPRB,0.24305E-07_JPRB,0.27342E-07_JPRB,0.29177E-07_JPRB,0.30428E-07_JPRB, & |
169 |
|
✗ |
& 0.31562E-07_JPRB,0.34299E-07_JPRB,0.39267E-07_JPRB,0.23943E-07_JPRB /) |
170 |
|
|
KA(:, 4, 3, 1) = (/ & |
171 |
|
|
& 0.14225E-08_JPRB,0.30991E-07_JPRB,0.36244E-07_JPRB,0.39880E-07_JPRB,0.42596E-07_JPRB, & |
172 |
|
✗ |
& 0.44752E-07_JPRB,0.47132E-07_JPRB,0.56253E-07_JPRB,0.37250E-07_JPRB /) |
173 |
|
|
KA(:, 5, 3, 1) = (/ & |
174 |
|
|
& 0.16586E-08_JPRB,0.29152E-07_JPRB,0.32988E-07_JPRB,0.35508E-07_JPRB,0.37264E-07_JPRB, & |
175 |
|
✗ |
& 0.38387E-07_JPRB,0.39417E-07_JPRB,0.42936E-07_JPRB,0.29439E-07_JPRB /) |
176 |
|
|
KA(:, 1, 4, 1) = (/ & |
177 |
|
|
& 0.53935E-09_JPRB,0.13922E-07_JPRB,0.15779E-07_JPRB,0.16979E-07_JPRB,0.18157E-07_JPRB, & |
178 |
|
✗ |
& 0.19199E-07_JPRB,0.22168E-07_JPRB,0.31060E-07_JPRB,0.13772E-07_JPRB /) |
179 |
|
|
KA(:, 2, 4, 1) = (/ & |
180 |
|
|
& 0.69404E-09_JPRB,0.16220E-07_JPRB,0.18381E-07_JPRB,0.19646E-07_JPRB,0.20841E-07_JPRB, & |
181 |
|
✗ |
& 0.22407E-07_JPRB,0.23846E-07_JPRB,0.31992E-07_JPRB,0.15532E-07_JPRB /) |
182 |
|
|
KA(:, 3, 4, 1) = (/ & |
183 |
|
|
& 0.86327E-09_JPRB,0.18514E-07_JPRB,0.20845E-07_JPRB,0.22209E-07_JPRB,0.23196E-07_JPRB, & |
184 |
|
✗ |
& 0.24396E-07_JPRB,0.27026E-07_JPRB,0.31067E-07_JPRB,0.17116E-07_JPRB /) |
185 |
|
|
KA(:, 4, 4, 1) = (/ & |
186 |
|
|
& 0.10436E-08_JPRB,0.20666E-07_JPRB,0.23248E-07_JPRB,0.24835E-07_JPRB,0.25904E-07_JPRB, & |
187 |
|
✗ |
& 0.26757E-07_JPRB,0.28384E-07_JPRB,0.33085E-07_JPRB,0.19320E-07_JPRB /) |
188 |
|
|
KA(:, 5, 4, 1) = (/ & |
189 |
|
|
& 0.12327E-08_JPRB,0.26056E-07_JPRB,0.30481E-07_JPRB,0.33580E-07_JPRB,0.35908E-07_JPRB, & |
190 |
|
✗ |
& 0.37744E-07_JPRB,0.39586E-07_JPRB,0.45434E-07_JPRB,0.29787E-07_JPRB /) |
191 |
|
|
KA(:, 1, 5, 1) = (/ & |
192 |
|
|
& 0.36905E-09_JPRB,0.10245E-07_JPRB,0.11596E-07_JPRB,0.12576E-07_JPRB,0.13293E-07_JPRB, & |
193 |
|
✗ |
& 0.14477E-07_JPRB,0.18355E-07_JPRB,0.25395E-07_JPRB,0.95950E-08_JPRB /) |
194 |
|
|
KA(:, 2, 5, 1) = (/ & |
195 |
|
|
& 0.48708E-09_JPRB,0.12119E-07_JPRB,0.13746E-07_JPRB,0.14791E-07_JPRB,0.15718E-07_JPRB, & |
196 |
|
✗ |
& 0.16646E-07_JPRB,0.18396E-07_JPRB,0.25737E-07_JPRB,0.10793E-07_JPRB /) |
197 |
|
|
KA(:, 3, 5, 1) = (/ & |
198 |
|
|
& 0.61847E-09_JPRB,0.13998E-07_JPRB,0.15813E-07_JPRB,0.16851E-07_JPRB,0.17722E-07_JPRB, & |
199 |
|
✗ |
& 0.19232E-07_JPRB,0.20414E-07_JPRB,0.25223E-07_JPRB,0.12354E-07_JPRB /) |
200 |
|
|
KA(:, 4, 5, 1) = (/ & |
201 |
|
|
& 0.76052E-09_JPRB,0.15846E-07_JPRB,0.17816E-07_JPRB,0.18991E-07_JPRB,0.19806E-07_JPRB, & |
202 |
|
✗ |
& 0.20628E-07_JPRB,0.23016E-07_JPRB,0.25874E-07_JPRB,0.14269E-07_JPRB /) |
203 |
|
|
KA(:, 5, 5, 1) = (/ & |
204 |
|
|
& 0.91109E-09_JPRB,0.20382E-07_JPRB,0.23823E-07_JPRB,0.26180E-07_JPRB,0.27929E-07_JPRB, & |
205 |
|
✗ |
& 0.29345E-07_JPRB,0.31039E-07_JPRB,0.38471E-07_JPRB,0.22626E-07_JPRB /) |
206 |
|
|
KA(:, 1, 6, 1) = (/ & |
207 |
|
|
& 0.24637E-09_JPRB,0.74144E-08_JPRB,0.83997E-08_JPRB,0.90789E-08_JPRB,0.97769E-08_JPRB, & |
208 |
|
✗ |
& 0.11308E-07_JPRB,0.14223E-07_JPRB,0.20837E-07_JPRB,0.66398E-08_JPRB /) |
209 |
|
|
KA(:, 2, 6, 1) = (/ & |
210 |
|
|
& 0.33527E-09_JPRB,0.89450E-08_JPRB,0.10119E-07_JPRB,0.10892E-07_JPRB,0.11613E-07_JPRB, & |
211 |
|
✗ |
& 0.12382E-07_JPRB,0.14900E-07_JPRB,0.20638E-07_JPRB,0.76422E-08_JPRB /) |
212 |
|
|
KA(:, 3, 6, 1) = (/ & |
213 |
|
|
& 0.43587E-09_JPRB,0.10479E-07_JPRB,0.11902E-07_JPRB,0.12737E-07_JPRB,0.13564E-07_JPRB, & |
214 |
|
✗ |
& 0.14416E-07_JPRB,0.15545E-07_JPRB,0.21677E-07_JPRB,0.89455E-08_JPRB /) |
215 |
|
|
KA(:, 4, 6, 1) = (/ & |
216 |
|
|
& 0.54672E-09_JPRB,0.12017E-07_JPRB,0.13540E-07_JPRB,0.14423E-07_JPRB,0.15090E-07_JPRB, & |
217 |
|
✗ |
& 0.16030E-07_JPRB,0.17496E-07_JPRB,0.20678E-07_JPRB,0.10490E-07_JPRB /) |
218 |
|
|
KA(:, 5, 6, 1) = (/ & |
219 |
|
|
& 0.66579E-09_JPRB,0.13493E-07_JPRB,0.15163E-07_JPRB,0.16178E-07_JPRB,0.16873E-07_JPRB, & |
220 |
|
✗ |
& 0.17474E-07_JPRB,0.18852E-07_JPRB,0.21699E-07_JPRB,0.12216E-07_JPRB /) |
221 |
|
|
KA(:, 1, 7, 1) = (/ & |
222 |
|
|
& 0.16149E-09_JPRB,0.53201E-08_JPRB,0.60079E-08_JPRB,0.65349E-08_JPRB,0.72837E-08_JPRB, & |
223 |
|
✗ |
& 0.90792E-08_JPRB,0.11028E-07_JPRB,0.15917E-07_JPRB,0.45574E-08_JPRB /) |
224 |
|
|
KA(:, 2, 7, 1) = (/ & |
225 |
|
|
& 0.22765E-09_JPRB,0.65457E-08_JPRB,0.74143E-08_JPRB,0.80126E-08_JPRB,0.85152E-08_JPRB, & |
226 |
|
✗ |
& 0.94934E-08_JPRB,0.12210E-07_JPRB,0.16917E-07_JPRB,0.54301E-08_JPRB /) |
227 |
|
|
KA(:, 3, 7, 1) = (/ & |
228 |
|
|
& 0.30418E-09_JPRB,0.77971E-08_JPRB,0.88287E-08_JPRB,0.94927E-08_JPRB,0.10154E-07_JPRB, & |
229 |
|
✗ |
& 0.10712E-07_JPRB,0.12099E-07_JPRB,0.16996E-07_JPRB,0.64594E-08_JPRB /) |
230 |
|
|
KA(:, 4, 7, 1) = (/ & |
231 |
|
|
& 0.38990E-09_JPRB,0.90563E-08_JPRB,0.10243E-07_JPRB,0.10928E-07_JPRB,0.11554E-07_JPRB, & |
232 |
|
✗ |
& 0.12512E-07_JPRB,0.13254E-07_JPRB,0.17320E-07_JPRB,0.76835E-08_JPRB /) |
233 |
|
|
KA(:, 5, 7, 1) = (/ & |
234 |
|
|
& 0.48334E-09_JPRB,0.10307E-07_JPRB,0.11588E-07_JPRB,0.12345E-07_JPRB,0.12884E-07_JPRB, & |
235 |
|
✗ |
& 0.13512E-07_JPRB,0.15051E-07_JPRB,0.17108E-07_JPRB,0.90662E-08_JPRB /) |
236 |
|
|
KA(:, 1, 8, 1) = (/ & |
237 |
|
|
& 0.10442E-09_JPRB,0.37895E-08_JPRB,0.42781E-08_JPRB,0.47285E-08_JPRB,0.55672E-08_JPRB, & |
238 |
|
✗ |
& 0.67246E-08_JPRB,0.87615E-08_JPRB,0.12496E-07_JPRB,0.31063E-08_JPRB /) |
239 |
|
|
KA(:, 2, 8, 1) = (/ & |
240 |
|
|
& 0.15294E-09_JPRB,0.47545E-08_JPRB,0.53771E-08_JPRB,0.58176E-08_JPRB,0.63249E-08_JPRB, & |
241 |
|
✗ |
& 0.74935E-08_JPRB,0.93024E-08_JPRB,0.13484E-07_JPRB,0.38514E-08_JPRB /) |
242 |
|
|
KA(:, 3, 8, 1) = (/ & |
243 |
|
|
& 0.21056E-09_JPRB,0.57727E-08_JPRB,0.65270E-08_JPRB,0.70416E-08_JPRB,0.74786E-08_JPRB, & |
244 |
|
✗ |
& 0.80475E-08_JPRB,0.10012E-07_JPRB,0.13784E-07_JPRB,0.46496E-08_JPRB /) |
245 |
|
|
KA(:, 4, 8, 1) = (/ & |
246 |
|
|
& 0.27636E-09_JPRB,0.67987E-08_JPRB,0.77111E-08_JPRB,0.82983E-08_JPRB,0.87947E-08_JPRB, & |
247 |
|
✗ |
& 0.93313E-08_JPRB,0.10204E-07_JPRB,0.14244E-07_JPRB,0.56141E-08_JPRB /) |
248 |
|
|
KA(:, 5, 8, 1) = (/ & |
249 |
|
|
& 0.34924E-09_JPRB,0.78297E-08_JPRB,0.88319E-08_JPRB,0.94055E-08_JPRB,0.98667E-08_JPRB, & |
250 |
|
✗ |
& 0.10620E-07_JPRB,0.11396E-07_JPRB,0.13825E-07_JPRB,0.67139E-08_JPRB /) |
251 |
|
|
KA(:, 1, 9, 1) = (/ & |
252 |
|
|
& 0.66385E-10_JPRB,0.26743E-08_JPRB,0.30313E-08_JPRB,0.34595E-08_JPRB,0.42156E-08_JPRB, & |
253 |
|
✗ |
& 0.50940E-08_JPRB,0.66728E-08_JPRB,0.10021E-07_JPRB,0.20965E-08_JPRB /) |
254 |
|
|
KA(:, 2, 9, 1) = (/ & |
255 |
|
|
& 0.10109E-09_JPRB,0.34278E-08_JPRB,0.38685E-08_JPRB,0.42217E-08_JPRB,0.47673E-08_JPRB, & |
256 |
|
✗ |
& 0.59120E-08_JPRB,0.72992E-08_JPRB,0.10438E-07_JPRB,0.27321E-08_JPRB /) |
257 |
|
|
KA(:, 3, 9, 1) = (/ & |
258 |
|
|
& 0.14405E-09_JPRB,0.42386E-08_JPRB,0.48029E-08_JPRB,0.51840E-08_JPRB,0.55416E-08_JPRB, & |
259 |
|
✗ |
& 0.62759E-08_JPRB,0.79851E-08_JPRB,0.11314E-07_JPRB,0.33332E-08_JPRB /) |
260 |
|
|
KA(:, 4, 9, 1) = (/ & |
261 |
|
|
& 0.19414E-09_JPRB,0.50774E-08_JPRB,0.57440E-08_JPRB,0.61764E-08_JPRB,0.66005E-08_JPRB, & |
262 |
|
✗ |
& 0.69887E-08_JPRB,0.81552E-08_JPRB,0.11319E-07_JPRB,0.40828E-08_JPRB /) |
263 |
|
|
KA(:, 5, 9, 1) = (/ & |
264 |
|
|
& 0.25056E-09_JPRB,0.59198E-08_JPRB,0.67025E-08_JPRB,0.71627E-08_JPRB,0.76155E-08_JPRB, & |
265 |
|
✗ |
& 0.81557E-08_JPRB,0.87035E-08_JPRB,0.11788E-07_JPRB,0.49512E-08_JPRB /) |
266 |
|
|
KA(:, 1,10, 1) = (/ & |
267 |
|
|
& 0.43147E-10_JPRB,0.19136E-08_JPRB,0.21883E-08_JPRB,0.26153E-08_JPRB,0.31055E-08_JPRB, & |
268 |
|
✗ |
& 0.39720E-08_JPRB,0.51107E-08_JPRB,0.84498E-08_JPRB,0.15100E-08_JPRB /) |
269 |
|
|
KA(:, 2,10, 1) = (/ & |
270 |
|
|
& 0.68069E-10_JPRB,0.25012E-08_JPRB,0.28230E-08_JPRB,0.31278E-08_JPRB,0.37084E-08_JPRB, & |
271 |
|
✗ |
& 0.44577E-08_JPRB,0.58316E-08_JPRB,0.82732E-08_JPRB,0.20294E-08_JPRB /) |
272 |
|
|
KA(:, 3,10, 1) = (/ & |
273 |
|
|
& 0.10013E-09_JPRB,0.31445E-08_JPRB,0.35530E-08_JPRB,0.38466E-08_JPRB,0.41961E-08_JPRB, & |
274 |
|
✗ |
& 0.50063E-08_JPRB,0.61960E-08_JPRB,0.89421E-08_JPRB,0.24447E-08_JPRB /) |
275 |
|
|
KA(:, 4,10, 1) = (/ & |
276 |
|
|
& 0.13837E-09_JPRB,0.38258E-08_JPRB,0.43236E-08_JPRB,0.46732E-08_JPRB,0.49545E-08_JPRB, & |
277 |
|
✗ |
& 0.53447E-08_JPRB,0.67172E-08_JPRB,0.92217E-08_JPRB,0.30274E-08_JPRB /) |
278 |
|
|
KA(:, 5,10, 1) = (/ & |
279 |
|
|
& 0.18212E-09_JPRB,0.45123E-08_JPRB,0.51146E-08_JPRB,0.55026E-08_JPRB,0.58368E-08_JPRB, & |
280 |
|
✗ |
& 0.61896E-08_JPRB,0.67974E-08_JPRB,0.94910E-08_JPRB,0.36975E-08_JPRB /) |
281 |
|
|
KA(:, 1,11, 1) = (/ & |
282 |
|
|
& 0.35238E-10_JPRB,0.15650E-08_JPRB,0.17900E-08_JPRB,0.21398E-08_JPRB,0.25395E-08_JPRB, & |
283 |
|
✗ |
& 0.32442E-08_JPRB,0.41684E-08_JPRB,0.68456E-08_JPRB,0.12890E-08_JPRB /) |
284 |
|
|
KA(:, 2,11, 1) = (/ & |
285 |
|
|
& 0.55588E-10_JPRB,0.20451E-08_JPRB,0.23079E-08_JPRB,0.25570E-08_JPRB,0.30342E-08_JPRB, & |
286 |
|
✗ |
& 0.36465E-08_JPRB,0.47717E-08_JPRB,0.67353E-08_JPRB,0.16499E-08_JPRB /) |
287 |
|
|
KA(:, 3,11, 1) = (/ & |
288 |
|
|
& 0.81825E-10_JPRB,0.25719E-08_JPRB,0.29058E-08_JPRB,0.31458E-08_JPRB,0.34324E-08_JPRB, & |
289 |
|
✗ |
& 0.40982E-08_JPRB,0.50669E-08_JPRB,0.73083E-08_JPRB,0.20031E-08_JPRB /) |
290 |
|
|
KA(:, 4,11, 1) = (/ & |
291 |
|
|
& 0.11311E-09_JPRB,0.31293E-08_JPRB,0.35365E-08_JPRB,0.38229E-08_JPRB,0.40518E-08_JPRB, & |
292 |
|
✗ |
& 0.43730E-08_JPRB,0.54993E-08_JPRB,0.75470E-08_JPRB,0.24754E-08_JPRB /) |
293 |
|
|
KA(:, 5,11, 1) = (/ & |
294 |
|
|
& 0.14891E-09_JPRB,0.36915E-08_JPRB,0.41839E-08_JPRB,0.45010E-08_JPRB,0.47744E-08_JPRB, & |
295 |
|
✗ |
& 0.50622E-08_JPRB,0.55621E-08_JPRB,0.77689E-08_JPRB,0.30237E-08_JPRB /) |
296 |
|
|
KA(:, 1,12, 1) = (/ & |
297 |
|
|
& 0.28851E-10_JPRB,0.12816E-08_JPRB,0.14656E-08_JPRB,0.17508E-08_JPRB,0.20791E-08_JPRB, & |
298 |
|
✗ |
& 0.26542E-08_JPRB,0.34061E-08_JPRB,0.55940E-08_JPRB,0.10876E-08_JPRB /) |
299 |
|
|
KA(:, 2,12, 1) = (/ & |
300 |
|
|
& 0.45511E-10_JPRB,0.16747E-08_JPRB,0.18898E-08_JPRB,0.20935E-08_JPRB,0.24841E-08_JPRB, & |
301 |
|
✗ |
& 0.29844E-08_JPRB,0.39040E-08_JPRB,0.54988E-08_JPRB,0.13569E-08_JPRB /) |
302 |
|
|
KA(:, 3,12, 1) = (/ & |
303 |
|
|
& 0.66972E-10_JPRB,0.21053E-08_JPRB,0.23788E-08_JPRB,0.25750E-08_JPRB,0.28091E-08_JPRB, & |
304 |
|
✗ |
& 0.33541E-08_JPRB,0.41474E-08_JPRB,0.59783E-08_JPRB,0.16488E-08_JPRB /) |
305 |
|
|
KA(:, 4,12, 1) = (/ & |
306 |
|
|
& 0.92606E-10_JPRB,0.25620E-08_JPRB,0.28952E-08_JPRB,0.31304E-08_JPRB,0.33162E-08_JPRB, & |
307 |
|
✗ |
& 0.35801E-08_JPRB,0.45003E-08_JPRB,0.61789E-08_JPRB,0.20293E-08_JPRB /) |
308 |
|
|
KA(:, 5,12, 1) = (/ & |
309 |
|
|
& 0.12192E-09_JPRB,0.30226E-08_JPRB,0.34255E-08_JPRB,0.36843E-08_JPRB,0.39084E-08_JPRB, & |
310 |
|
✗ |
& 0.41445E-08_JPRB,0.45524E-08_JPRB,0.63605E-08_JPRB,0.24756E-08_JPRB /) |
311 |
|
|
KA(:, 1,13, 1) = (/ & |
312 |
|
|
& 0.23621E-10_JPRB,0.10494E-08_JPRB,0.11996E-08_JPRB,0.14331E-08_JPRB,0.17023E-08_JPRB, & |
313 |
|
✗ |
& 0.21711E-08_JPRB,0.27844E-08_JPRB,0.45532E-08_JPRB,0.89489E-09_JPRB /) |
314 |
|
|
KA(:, 2,13, 1) = (/ & |
315 |
|
|
& 0.37261E-10_JPRB,0.13712E-08_JPRB,0.15471E-08_JPRB,0.17138E-08_JPRB,0.20333E-08_JPRB, & |
316 |
|
✗ |
& 0.24433E-08_JPRB,0.31958E-08_JPRB,0.44925E-08_JPRB,0.11124E-08_JPRB /) |
317 |
|
|
KA(:, 3,13, 1) = (/ & |
318 |
|
|
& 0.54831E-10_JPRB,0.17238E-08_JPRB,0.19475E-08_JPRB,0.21082E-08_JPRB,0.23003E-08_JPRB, & |
319 |
|
✗ |
& 0.27446E-08_JPRB,0.33959E-08_JPRB,0.48947E-08_JPRB,0.13514E-08_JPRB /) |
320 |
|
|
KA(:, 4,13, 1) = (/ & |
321 |
|
|
& 0.75799E-10_JPRB,0.20971E-08_JPRB,0.23698E-08_JPRB,0.25624E-08_JPRB,0.27143E-08_JPRB, & |
322 |
|
✗ |
& 0.29304E-08_JPRB,0.36822E-08_JPRB,0.50589E-08_JPRB,0.16628E-08_JPRB /) |
323 |
|
|
KA(:, 5,13, 1) = (/ & |
324 |
|
|
& 0.99820E-10_JPRB,0.24745E-08_JPRB,0.28041E-08_JPRB,0.30159E-08_JPRB,0.31995E-08_JPRB, & |
325 |
|
✗ |
& 0.33924E-08_JPRB,0.37279E-08_JPRB,0.52074E-08_JPRB,0.20270E-08_JPRB /) |
326 |
|
|
KA(:, 1, 1, 2) = (/ & |
327 |
|
|
& 0.13785E-07_JPRB,0.24738E-06_JPRB,0.32984E-06_JPRB,0.38970E-06_JPRB,0.43737E-06_JPRB, & |
328 |
|
✗ |
& 0.50889E-06_JPRB,0.56985E-06_JPRB,0.52821E-06_JPRB,0.22857E-06_JPRB /) |
329 |
|
|
KA(:, 2, 1, 2) = (/ & |
330 |
|
|
& 0.15768E-07_JPRB,0.27583E-06_JPRB,0.36371E-06_JPRB,0.42333E-06_JPRB,0.46175E-06_JPRB, & |
331 |
|
✗ |
& 0.50608E-06_JPRB,0.57108E-06_JPRB,0.57199E-06_JPRB,0.21992E-06_JPRB /) |
332 |
|
|
KA(:, 3, 1, 2) = (/ & |
333 |
|
|
& 0.17740E-07_JPRB,0.31295E-06_JPRB,0.41668E-06_JPRB,0.48111E-06_JPRB,0.52105E-06_JPRB, & |
334 |
|
✗ |
& 0.56257E-06_JPRB,0.61638E-06_JPRB,0.64253E-06_JPRB,0.25630E-06_JPRB /) |
335 |
|
|
KA(:, 4, 1, 2) = (/ & |
336 |
|
|
& 0.19676E-07_JPRB,0.33378E-06_JPRB,0.43874E-06_JPRB,0.50021E-06_JPRB,0.53506E-06_JPRB, & |
337 |
|
✗ |
& 0.56909E-06_JPRB,0.60800E-06_JPRB,0.63155E-06_JPRB,0.24206E-06_JPRB /) |
338 |
|
|
KA(:, 5, 1, 2) = (/ & |
339 |
|
|
& 0.21537E-07_JPRB,0.36160E-06_JPRB,0.47596E-06_JPRB,0.54056E-06_JPRB,0.57557E-06_JPRB, & |
340 |
|
✗ |
& 0.60002E-06_JPRB,0.61606E-06_JPRB,0.61827E-06_JPRB,0.25207E-06_JPRB /) |
341 |
|
|
KA(:, 1, 2, 2) = (/ & |
342 |
|
|
& 0.10621E-07_JPRB,0.19636E-06_JPRB,0.26336E-06_JPRB,0.31062E-06_JPRB,0.35012E-06_JPRB, & |
343 |
|
✗ |
& 0.41219E-06_JPRB,0.46827E-06_JPRB,0.42345E-06_JPRB,0.16044E-06_JPRB /) |
344 |
|
|
KA(:, 2, 2, 2) = (/ & |
345 |
|
|
& 0.12238E-07_JPRB,0.21970E-06_JPRB,0.28920E-06_JPRB,0.33755E-06_JPRB,0.37073E-06_JPRB, & |
346 |
|
✗ |
& 0.41004E-06_JPRB,0.46315E-06_JPRB,0.45777E-06_JPRB,0.15877E-06_JPRB /) |
347 |
|
|
KA(:, 3, 2, 2) = (/ & |
348 |
|
|
& 0.13863E-07_JPRB,0.24955E-06_JPRB,0.33252E-06_JPRB,0.38359E-06_JPRB,0.41679E-06_JPRB, & |
349 |
|
✗ |
& 0.45237E-06_JPRB,0.50277E-06_JPRB,0.51752E-06_JPRB,0.18617E-06_JPRB /) |
350 |
|
|
|
351 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB22: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_KGB22:PART2',0,ZHOOK_HANDLE) |
359 |
|
|
|
360 |
|
|
|
361 |
|
|
KA(:, 4, 2, 2) = (/ & |
362 |
|
|
& 0.15467E-07_JPRB,0.27294E-06_JPRB,0.36292E-06_JPRB,0.41560E-06_JPRB,0.44818E-06_JPRB, & |
363 |
|
✗ |
& 0.47909E-06_JPRB,0.51811E-06_JPRB,0.54528E-06_JPRB,0.19311E-06_JPRB /) |
364 |
|
|
KA(:, 5, 2, 2) = (/ & |
365 |
|
|
& 0.17013E-07_JPRB,0.28946E-06_JPRB,0.38040E-06_JPRB,0.43177E-06_JPRB,0.46055E-06_JPRB, & |
366 |
|
✗ |
& 0.48627E-06_JPRB,0.50036E-06_JPRB,0.50711E-06_JPRB,0.19056E-06_JPRB /) |
367 |
|
|
KA(:, 1, 3, 2) = (/ & |
368 |
|
|
& 0.79041E-08_JPRB,0.15193E-06_JPRB,0.20367E-06_JPRB,0.24255E-06_JPRB,0.27584E-06_JPRB, & |
369 |
|
✗ |
& 0.33106E-06_JPRB,0.39018E-06_JPRB,0.33367E-06_JPRB,0.10147E-06_JPRB /) |
370 |
|
|
KA(:, 2, 3, 2) = (/ & |
371 |
|
|
& 0.92256E-08_JPRB,0.17005E-06_JPRB,0.22457E-06_JPRB,0.26442E-06_JPRB,0.29755E-06_JPRB, & |
372 |
|
✗ |
& 0.33937E-06_JPRB,0.38659E-06_JPRB,0.36019E-06_JPRB,0.10982E-06_JPRB /) |
373 |
|
|
KA(:, 3, 3, 2) = (/ & |
374 |
|
|
& 0.10548E-07_JPRB,0.18874E-06_JPRB,0.24827E-06_JPRB,0.28648E-06_JPRB,0.31109E-06_JPRB, & |
375 |
|
✗ |
& 0.33996E-06_JPRB,0.38319E-06_JPRB,0.38934E-06_JPRB,0.11953E-06_JPRB /) |
376 |
|
|
KA(:, 4, 3, 2) = (/ & |
377 |
|
|
& 0.11869E-07_JPRB,0.21314E-06_JPRB,0.28402E-06_JPRB,0.32565E-06_JPRB,0.35249E-06_JPRB, & |
378 |
|
✗ |
& 0.38039E-06_JPRB,0.41637E-06_JPRB,0.43423E-06_JPRB,0.13779E-06_JPRB /) |
379 |
|
|
KA(:, 5, 3, 2) = (/ & |
380 |
|
|
& 0.13170E-07_JPRB,0.22682E-06_JPRB,0.29805E-06_JPRB,0.33849E-06_JPRB,0.36193E-06_JPRB, & |
381 |
|
✗ |
& 0.38387E-06_JPRB,0.41078E-06_JPRB,0.42298E-06_JPRB,0.13819E-06_JPRB /) |
382 |
|
|
KA(:, 1, 4, 2) = (/ & |
383 |
|
|
& 0.57872E-08_JPRB,0.11704E-06_JPRB,0.15599E-06_JPRB,0.19092E-06_JPRB,0.22043E-06_JPRB, & |
384 |
|
✗ |
& 0.26778E-06_JPRB,0.30128E-06_JPRB,0.25769E-06_JPRB,0.68111E-07_JPRB /) |
385 |
|
|
KA(:, 2, 4, 2) = (/ & |
386 |
|
|
& 0.68505E-08_JPRB,0.13037E-06_JPRB,0.17389E-06_JPRB,0.20556E-06_JPRB,0.23194E-06_JPRB, & |
387 |
|
✗ |
& 0.27485E-06_JPRB,0.31447E-06_JPRB,0.28139E-06_JPRB,0.78259E-07_JPRB /) |
388 |
|
|
KA(:, 3, 4, 2) = (/ & |
389 |
|
|
& 0.79353E-08_JPRB,0.14574E-06_JPRB,0.19135E-06_JPRB,0.22328E-06_JPRB,0.24623E-06_JPRB, & |
390 |
|
✗ |
& 0.27497E-06_JPRB,0.31125E-06_JPRB,0.30440E-06_JPRB,0.85397E-07_JPRB /) |
391 |
|
|
KA(:, 4, 4, 2) = (/ & |
392 |
|
|
& 0.90207E-08_JPRB,0.16075E-06_JPRB,0.21140E-06_JPRB,0.24210E-06_JPRB,0.26199E-06_JPRB, & |
393 |
|
✗ |
& 0.28412E-06_JPRB,0.31832E-06_JPRB,0.32424E-06_JPRB,0.93374E-07_JPRB /) |
394 |
|
|
KA(:, 5, 4, 2) = (/ & |
395 |
|
|
& 0.10099E-07_JPRB,0.18068E-06_JPRB,0.24072E-06_JPRB,0.27515E-06_JPRB,0.29704E-06_JPRB, & |
396 |
|
✗ |
& 0.31830E-06_JPRB,0.34575E-06_JPRB,0.36301E-06_JPRB,0.10959E-06_JPRB /) |
397 |
|
|
KA(:, 1, 5, 2) = (/ & |
398 |
|
|
& 0.42071E-08_JPRB,0.88799E-07_JPRB,0.11974E-06_JPRB,0.15503E-06_JPRB,0.18473E-06_JPRB, & |
399 |
|
✗ |
& 0.21750E-06_JPRB,0.23111E-06_JPRB,0.19568E-06_JPRB,0.47645E-07_JPRB /) |
400 |
|
|
KA(:, 2, 5, 2) = (/ & |
401 |
|
|
& 0.50589E-08_JPRB,0.10003E-06_JPRB,0.13353E-06_JPRB,0.15994E-06_JPRB,0.18265E-06_JPRB, & |
402 |
|
✗ |
& 0.22030E-06_JPRB,0.25851E-06_JPRB,0.22196E-06_JPRB,0.56400E-07_JPRB /) |
403 |
|
|
KA(:, 3, 5, 2) = (/ & |
404 |
|
|
& 0.59363E-08_JPRB,0.11183E-06_JPRB,0.14743E-06_JPRB,0.17446E-06_JPRB,0.19617E-06_JPRB, & |
405 |
|
✗ |
& 0.22887E-06_JPRB,0.25813E-06_JPRB,0.23893E-06_JPRB,0.62471E-07_JPRB /) |
406 |
|
|
KA(:, 4, 5, 2) = (/ & |
407 |
|
|
& 0.68265E-08_JPRB,0.12408E-06_JPRB,0.16316E-06_JPRB,0.18879E-06_JPRB,0.20540E-06_JPRB, & |
408 |
|
✗ |
& 0.22681E-06_JPRB,0.25640E-06_JPRB,0.25817E-06_JPRB,0.69233E-07_JPRB /) |
409 |
|
|
KA(:, 5, 5, 2) = (/ & |
410 |
|
|
& 0.77164E-08_JPRB,0.14022E-06_JPRB,0.18715E-06_JPRB,0.21470E-06_JPRB,0.23265E-06_JPRB, & |
411 |
|
✗ |
& 0.25223E-06_JPRB,0.27783E-06_JPRB,0.28837E-06_JPRB,0.82855E-07_JPRB /) |
412 |
|
|
KA(:, 1, 6, 2) = (/ & |
413 |
|
|
& 0.30108E-08_JPRB,0.66997E-07_JPRB,0.92811E-07_JPRB,0.12074E-06_JPRB,0.15295E-06_JPRB, & |
414 |
|
✗ |
& 0.17839E-06_JPRB,0.17246E-06_JPRB,0.14892E-06_JPRB,0.33739E-07_JPRB /) |
415 |
|
|
KA(:, 2, 6, 2) = (/ & |
416 |
|
|
& 0.36900E-08_JPRB,0.76605E-07_JPRB,0.10196E-06_JPRB,0.12672E-06_JPRB,0.14857E-06_JPRB, & |
417 |
|
✗ |
& 0.17805E-06_JPRB,0.19825E-06_JPRB,0.16899E-06_JPRB,0.40438E-07_JPRB /) |
418 |
|
|
KA(:, 3, 6, 2) = (/ & |
419 |
|
|
& 0.43974E-08_JPRB,0.85358E-07_JPRB,0.11411E-06_JPRB,0.13507E-06_JPRB,0.15283E-06_JPRB, & |
420 |
|
✗ |
& 0.18257E-06_JPRB,0.21172E-06_JPRB,0.18597E-06_JPRB,0.46134E-07_JPRB /) |
421 |
|
|
KA(:, 4, 6, 2) = (/ & |
422 |
|
|
& 0.51213E-08_JPRB,0.95538E-07_JPRB,0.12544E-06_JPRB,0.14691E-06_JPRB,0.16455E-06_JPRB, & |
423 |
|
✗ |
& 0.18481E-06_JPRB,0.20979E-06_JPRB,0.20070E-06_JPRB,0.51618E-07_JPRB /) |
424 |
|
|
KA(:, 5, 6, 2) = (/ & |
425 |
|
|
& 0.58500E-08_JPRB,0.10543E-06_JPRB,0.13870E-06_JPRB,0.15918E-06_JPRB,0.17259E-06_JPRB, & |
426 |
|
✗ |
& 0.18830E-06_JPRB,0.21165E-06_JPRB,0.21507E-06_JPRB,0.58184E-07_JPRB /) |
427 |
|
|
KA(:, 1, 7, 2) = (/ & |
428 |
|
|
& 0.21343E-08_JPRB,0.50731E-07_JPRB,0.73677E-07_JPRB,0.95876E-07_JPRB,0.12180E-06_JPRB, & |
429 |
|
✗ |
& 0.14539E-06_JPRB,0.12792E-06_JPRB,0.11548E-06_JPRB,0.24049E-07_JPRB /) |
430 |
|
|
KA(:, 2, 7, 2) = (/ & |
431 |
|
|
& 0.26695E-08_JPRB,0.57886E-07_JPRB,0.78431E-07_JPRB,0.10179E-06_JPRB,0.12404E-06_JPRB, & |
432 |
|
✗ |
& 0.14498E-06_JPRB,0.15075E-06_JPRB,0.12789E-06_JPRB,0.28929E-07_JPRB /) |
433 |
|
|
KA(:, 3, 7, 2) = (/ & |
434 |
|
|
& 0.32350E-08_JPRB,0.65356E-07_JPRB,0.87120E-07_JPRB,0.10537E-06_JPRB,0.12108E-06_JPRB, & |
435 |
|
✗ |
& 0.14722E-06_JPRB,0.16980E-06_JPRB,0.14529E-06_JPRB,0.34426E-07_JPRB /) |
436 |
|
|
KA(:, 4, 7, 2) = (/ & |
437 |
|
|
& 0.38202E-08_JPRB,0.73009E-07_JPRB,0.96634E-07_JPRB,0.11454E-06_JPRB,0.12893E-06_JPRB, & |
438 |
|
✗ |
& 0.15239E-06_JPRB,0.17280E-06_JPRB,0.15699E-06_JPRB,0.38936E-07_JPRB /) |
439 |
|
|
KA(:, 5, 7, 2) = (/ & |
440 |
|
|
& 0.44151E-08_JPRB,0.81203E-07_JPRB,0.10676E-06_JPRB,0.12425E-06_JPRB,0.13576E-06_JPRB, & |
441 |
|
✗ |
& 0.15119E-06_JPRB,0.17122E-06_JPRB,0.16974E-06_JPRB,0.43692E-07_JPRB /) |
442 |
|
|
KA(:, 1, 8, 2) = (/ & |
443 |
|
|
& 0.15010E-08_JPRB,0.38595E-07_JPRB,0.58295E-07_JPRB,0.77729E-07_JPRB,0.98683E-07_JPRB, & |
444 |
|
✗ |
& 0.10992E-06_JPRB,0.95145E-07_JPRB,0.92252E-07_JPRB,0.17319E-07_JPRB /) |
445 |
|
|
KA(:, 2, 8, 2) = (/ & |
446 |
|
|
& 0.19201E-08_JPRB,0.43791E-07_JPRB,0.61750E-07_JPRB,0.79921E-07_JPRB,0.10136E-06_JPRB, & |
447 |
|
✗ |
& 0.11894E-06_JPRB,0.11276E-06_JPRB,0.97846E-07_JPRB,0.20720E-07_JPRB /) |
448 |
|
|
KA(:, 3, 8, 2) = (/ & |
449 |
|
|
& 0.23693E-08_JPRB,0.50071E-07_JPRB,0.66873E-07_JPRB,0.85063E-07_JPRB,0.10052E-06_JPRB, & |
450 |
|
✗ |
& 0.11892E-06_JPRB,0.13009E-06_JPRB,0.11045E-06_JPRB,0.25527E-07_JPRB /) |
451 |
|
|
KA(:, 4, 8, 2) = (/ & |
452 |
|
|
& 0.28395E-08_JPRB,0.55947E-07_JPRB,0.74757E-07_JPRB,0.88934E-07_JPRB,0.10114E-06_JPRB, & |
453 |
|
✗ |
& 0.12142E-06_JPRB,0.14341E-06_JPRB,0.12281E-06_JPRB,0.28938E-07_JPRB /) |
454 |
|
|
KA(:, 5, 8, 2) = (/ & |
455 |
|
|
& 0.33227E-08_JPRB,0.62620E-07_JPRB,0.82343E-07_JPRB,0.96807E-07_JPRB,0.10922E-06_JPRB, & |
456 |
|
✗ |
& 0.12542E-06_JPRB,0.14247E-06_JPRB,0.13252E-06_JPRB,0.32804E-07_JPRB /) |
457 |
|
|
KA(:, 1, 9, 2) = (/ & |
458 |
|
|
& 0.10437E-08_JPRB,0.30107E-07_JPRB,0.47694E-07_JPRB,0.63218E-07_JPRB,0.80199E-07_JPRB, & |
459 |
|
✗ |
& 0.81465E-07_JPRB,0.70748E-07_JPRB,0.72461E-07_JPRB,0.12620E-07_JPRB /) |
460 |
|
|
KA(:, 2, 9, 2) = (/ & |
461 |
|
|
& 0.13691E-08_JPRB,0.33315E-07_JPRB,0.48674E-07_JPRB,0.63756E-07_JPRB,0.81165E-07_JPRB, & |
462 |
|
✗ |
& 0.96892E-07_JPRB,0.83814E-07_JPRB,0.76311E-07_JPRB,0.14799E-07_JPRB /) |
463 |
|
|
KA(:, 3, 9, 2) = (/ & |
464 |
|
|
& 0.17229E-08_JPRB,0.37985E-07_JPRB,0.51777E-07_JPRB,0.67272E-07_JPRB,0.83770E-07_JPRB, & |
465 |
|
✗ |
& 0.97220E-07_JPRB,0.98951E-07_JPRB,0.84136E-07_JPRB,0.18369E-07_JPRB /) |
466 |
|
|
KA(:, 4, 9, 2) = (/ & |
467 |
|
|
& 0.20990E-08_JPRB,0.43091E-07_JPRB,0.57320E-07_JPRB,0.69933E-07_JPRB,0.81214E-07_JPRB, & |
468 |
|
✗ |
& 0.98518E-07_JPRB,0.11188E-06_JPRB,0.95453E-07_JPRB,0.21724E-07_JPRB /) |
469 |
|
|
KA(:, 5, 9, 2) = (/ & |
470 |
|
|
& 0.24895E-08_JPRB,0.48030E-07_JPRB,0.63808E-07_JPRB,0.75595E-07_JPRB,0.85237E-07_JPRB, & |
471 |
|
✗ |
& 0.10122E-06_JPRB,0.11598E-06_JPRB,0.10350E-06_JPRB,0.24792E-07_JPRB /) |
472 |
|
|
KA(:, 1,10, 2) = (/ & |
473 |
|
|
& 0.73565E-09_JPRB,0.23201E-07_JPRB,0.38192E-07_JPRB,0.51890E-07_JPRB,0.66677E-07_JPRB, & |
474 |
|
✗ |
& 0.60941E-07_JPRB,0.53794E-07_JPRB,0.57060E-07_JPRB,0.95538E-08_JPRB /) |
475 |
|
|
KA(:, 2,10, 2) = (/ & |
476 |
|
|
& 0.98838E-09_JPRB,0.25706E-07_JPRB,0.38945E-07_JPRB,0.51950E-07_JPRB,0.65881E-07_JPRB, & |
477 |
|
✗ |
& 0.73501E-07_JPRB,0.63459E-07_JPRB,0.61276E-07_JPRB,0.10909E-07_JPRB /) |
478 |
|
|
KA(:, 3,10, 2) = (/ & |
479 |
|
|
& 0.12675E-08_JPRB,0.29153E-07_JPRB,0.41180E-07_JPRB,0.53354E-07_JPRB,0.67729E-07_JPRB, & |
480 |
|
✗ |
& 0.79616E-07_JPRB,0.75117E-07_JPRB,0.65122E-07_JPRB,0.13531E-07_JPRB /) |
481 |
|
|
KA(:, 4,10, 2) = (/ & |
482 |
|
|
& 0.15675E-08_JPRB,0.33329E-07_JPRB,0.44560E-07_JPRB,0.57066E-07_JPRB,0.67627E-07_JPRB, & |
483 |
|
✗ |
& 0.79638E-07_JPRB,0.86678E-07_JPRB,0.73448E-07_JPRB,0.16804E-07_JPRB /) |
484 |
|
|
KA(:, 5,10, 2) = (/ & |
485 |
|
|
& 0.18817E-08_JPRB,0.37257E-07_JPRB,0.49746E-07_JPRB,0.59306E-07_JPRB,0.67554E-07_JPRB, & |
486 |
|
✗ |
& 0.81218E-07_JPRB,0.96337E-07_JPRB,0.82154E-07_JPRB,0.18958E-07_JPRB /) |
487 |
|
|
KA(:, 1,11, 2) = (/ & |
488 |
|
|
& 0.60140E-09_JPRB,0.19007E-07_JPRB,0.31253E-07_JPRB,0.42433E-07_JPRB,0.54566E-07_JPRB, & |
489 |
|
✗ |
& 0.50044E-07_JPRB,0.44177E-07_JPRB,0.46695E-07_JPRB,0.77009E-08_JPRB /) |
490 |
|
|
KA(:, 2,11, 2) = (/ & |
491 |
|
|
& 0.80782E-09_JPRB,0.21033E-07_JPRB,0.31865E-07_JPRB,0.42505E-07_JPRB,0.53930E-07_JPRB, & |
492 |
|
✗ |
& 0.60271E-07_JPRB,0.51969E-07_JPRB,0.49836E-07_JPRB,0.88971E-08_JPRB /) |
493 |
|
|
KA(:, 3,11, 2) = (/ & |
494 |
|
|
& 0.10365E-08_JPRB,0.23860E-07_JPRB,0.33711E-07_JPRB,0.43668E-07_JPRB,0.55447E-07_JPRB, & |
495 |
|
✗ |
& 0.65129E-07_JPRB,0.61514E-07_JPRB,0.53242E-07_JPRB,0.11044E-07_JPRB /) |
496 |
|
|
KA(:, 4,11, 2) = (/ & |
497 |
|
|
& 0.12819E-08_JPRB,0.27278E-07_JPRB,0.36477E-07_JPRB,0.46671E-07_JPRB,0.55334E-07_JPRB, & |
498 |
|
✗ |
& 0.65191E-07_JPRB,0.70955E-07_JPRB,0.60123E-07_JPRB,0.13732E-07_JPRB /) |
499 |
|
|
KA(:, 5,11, 2) = (/ & |
500 |
|
|
& 0.15394E-08_JPRB,0.30488E-07_JPRB,0.40723E-07_JPRB,0.48551E-07_JPRB,0.55301E-07_JPRB, & |
501 |
|
✗ |
& 0.66490E-07_JPRB,0.78877E-07_JPRB,0.67264E-07_JPRB,0.15488E-07_JPRB /) |
502 |
|
|
KA(:, 1,12, 2) = (/ & |
503 |
|
|
& 0.49234E-09_JPRB,0.15554E-07_JPRB,0.25575E-07_JPRB,0.34616E-07_JPRB,0.44615E-07_JPRB, & |
504 |
|
✗ |
& 0.41056E-07_JPRB,0.36097E-07_JPRB,0.38091E-07_JPRB,0.62448E-08_JPRB /) |
505 |
|
|
KA(:, 2,12, 2) = (/ & |
506 |
|
|
& 0.66141E-09_JPRB,0.17225E-07_JPRB,0.26080E-07_JPRB,0.34787E-07_JPRB,0.44118E-07_JPRB, & |
507 |
|
✗ |
& 0.49432E-07_JPRB,0.42531E-07_JPRB,0.40718E-07_JPRB,0.72624E-08_JPRB /) |
508 |
|
|
KA(:, 3,12, 2) = (/ & |
509 |
|
|
& 0.84839E-09_JPRB,0.19539E-07_JPRB,0.27604E-07_JPRB,0.35754E-07_JPRB,0.45370E-07_JPRB, & |
510 |
|
✗ |
& 0.53306E-07_JPRB,0.50418E-07_JPRB,0.43565E-07_JPRB,0.90256E-08_JPRB /) |
511 |
|
|
KA(:, 4,12, 2) = (/ & |
512 |
|
|
& 0.10495E-08_JPRB,0.22342E-07_JPRB,0.29867E-07_JPRB,0.38196E-07_JPRB,0.45322E-07_JPRB, & |
513 |
|
✗ |
& 0.53368E-07_JPRB,0.58112E-07_JPRB,0.49244E-07_JPRB,0.11197E-07_JPRB /) |
514 |
|
|
KA(:, 5,12, 2) = (/ & |
515 |
|
|
& 0.12604E-08_JPRB,0.24969E-07_JPRB,0.33348E-07_JPRB,0.39742E-07_JPRB,0.45269E-07_JPRB, & |
516 |
|
✗ |
& 0.54454E-07_JPRB,0.64580E-07_JPRB,0.55079E-07_JPRB,0.12657E-07_JPRB /) |
517 |
|
|
KA(:, 1,13, 2) = (/ & |
518 |
|
|
& 0.40306E-09_JPRB,0.12738E-07_JPRB,0.20936E-07_JPRB,0.28312E-07_JPRB,0.36505E-07_JPRB, & |
519 |
|
✗ |
& 0.33674E-07_JPRB,0.29525E-07_JPRB,0.31139E-07_JPRB,0.51040E-08_JPRB /) |
520 |
|
|
KA(:, 2,13, 2) = (/ & |
521 |
|
|
& 0.54151E-09_JPRB,0.14106E-07_JPRB,0.21346E-07_JPRB,0.28471E-07_JPRB,0.36139E-07_JPRB, & |
522 |
|
✗ |
& 0.40516E-07_JPRB,0.34830E-07_JPRB,0.33325E-07_JPRB,0.59425E-08_JPRB /) |
523 |
|
|
KA(:, 3,13, 2) = (/ & |
524 |
|
|
& 0.69468E-09_JPRB,0.15999E-07_JPRB,0.22600E-07_JPRB,0.29268E-07_JPRB,0.37150E-07_JPRB, & |
525 |
|
✗ |
& 0.43635E-07_JPRB,0.41297E-07_JPRB,0.35646E-07_JPRB,0.73862E-08_JPRB /) |
526 |
|
|
KA(:, 4,13, 2) = (/ & |
527 |
|
|
& 0.85913E-09_JPRB,0.18290E-07_JPRB,0.24452E-07_JPRB,0.31282E-07_JPRB,0.37096E-07_JPRB, & |
528 |
|
✗ |
& 0.43709E-07_JPRB,0.47585E-07_JPRB,0.40319E-07_JPRB,0.91581E-08_JPRB /) |
529 |
|
|
KA(:, 5,13, 2) = (/ & |
530 |
|
|
& 0.10319E-08_JPRB,0.20440E-07_JPRB,0.27299E-07_JPRB,0.32532E-07_JPRB,0.37047E-07_JPRB, & |
531 |
|
✗ |
& 0.44575E-07_JPRB,0.52880E-07_JPRB,0.45086E-07_JPRB,0.10367E-07_JPRB /) |
532 |
|
|
KA(:, 1, 1, 3) = (/ & |
533 |
|
|
& 0.77542E-07_JPRB,0.72331E-06_JPRB,0.98561E-06_JPRB,0.11860E-05_JPRB,0.13497E-05_JPRB, & |
534 |
|
✗ |
& 0.13448E-05_JPRB,0.13214E-05_JPRB,0.14401E-05_JPRB,0.51217E-06_JPRB /) |
535 |
|
|
KA(:, 2, 1, 3) = (/ & |
536 |
|
|
& 0.83965E-07_JPRB,0.81202E-06_JPRB,0.11096E-05_JPRB,0.13150E-05_JPRB,0.14966E-05_JPRB, & |
537 |
|
✗ |
& 0.14837E-05_JPRB,0.13715E-05_JPRB,0.14446E-05_JPRB,0.53558E-06_JPRB /) |
538 |
|
|
KA(:, 3, 1, 3) = (/ & |
539 |
|
|
& 0.89893E-07_JPRB,0.91147E-06_JPRB,0.12494E-05_JPRB,0.14817E-05_JPRB,0.16581E-05_JPRB, & |
540 |
|
✗ |
& 0.16379E-05_JPRB,0.14913E-05_JPRB,0.13540E-05_JPRB,0.57527E-06_JPRB /) |
541 |
|
|
KA(:, 4, 1, 3) = (/ & |
542 |
|
|
& 0.95336E-07_JPRB,0.98977E-06_JPRB,0.13580E-05_JPRB,0.16044E-05_JPRB,0.17602E-05_JPRB, & |
543 |
|
✗ |
& 0.17289E-05_JPRB,0.15601E-05_JPRB,0.13435E-05_JPRB,0.60153E-06_JPRB /) |
544 |
|
|
KA(:, 5, 1, 3) = (/ & |
545 |
|
|
& 0.10024E-06_JPRB,0.10817E-05_JPRB,0.14820E-05_JPRB,0.17354E-05_JPRB,0.18806E-05_JPRB, & |
546 |
|
✗ |
& 0.18468E-05_JPRB,0.16817E-05_JPRB,0.14550E-05_JPRB,0.63092E-06_JPRB /) |
547 |
|
|
KA(:, 1, 2, 3) = (/ & |
548 |
|
|
& 0.61222E-07_JPRB,0.57382E-06_JPRB,0.78272E-06_JPRB,0.94950E-06_JPRB,0.10796E-05_JPRB, & |
549 |
|
✗ |
& 0.10829E-05_JPRB,0.10794E-05_JPRB,0.12292E-05_JPRB,0.35440E-06_JPRB /) |
550 |
|
|
KA(:, 2, 2, 3) = (/ & |
551 |
|
|
& 0.66652E-07_JPRB,0.64604E-06_JPRB,0.88511E-06_JPRB,0.10523E-05_JPRB,0.12028E-05_JPRB, & |
552 |
|
✗ |
& 0.11924E-05_JPRB,0.11103E-05_JPRB,0.11987E-05_JPRB,0.38232E-06_JPRB /) |
553 |
|
|
KA(:, 3, 2, 3) = (/ & |
554 |
|
|
& 0.71672E-07_JPRB,0.73084E-06_JPRB,0.10012E-05_JPRB,0.11880E-05_JPRB,0.13384E-05_JPRB, & |
555 |
|
✗ |
& 0.13220E-05_JPRB,0.12030E-05_JPRB,0.11381E-05_JPRB,0.43262E-06_JPRB /) |
556 |
|
|
KA(:, 4, 2, 3) = (/ & |
557 |
|
|
& 0.76301E-07_JPRB,0.80259E-06_JPRB,0.11033E-05_JPRB,0.13071E-05_JPRB,0.14343E-05_JPRB, & |
558 |
|
✗ |
& 0.14171E-05_JPRB,0.12785E-05_JPRB,0.11080E-05_JPRB,0.46030E-06_JPRB /) |
559 |
|
|
KA(:, 5, 2, 3) = (/ & |
560 |
|
|
& 0.80500E-07_JPRB,0.87105E-06_JPRB,0.11939E-05_JPRB,0.14005E-05_JPRB,0.15153E-05_JPRB, & |
561 |
|
✗ |
& 0.14864E-05_JPRB,0.13529E-05_JPRB,0.11688E-05_JPRB,0.48117E-06_JPRB /) |
562 |
|
|
KA(:, 1, 3, 3) = (/ & |
563 |
|
|
& 0.47304E-07_JPRB,0.44051E-06_JPRB,0.60584E-06_JPRB,0.74769E-06_JPRB,0.84468E-06_JPRB, & |
564 |
|
✗ |
& 0.85077E-06_JPRB,0.85665E-06_JPRB,0.10494E-05_JPRB,0.24668E-06_JPRB /) |
565 |
|
|
KA(:, 2, 3, 3) = (/ & |
566 |
|
|
& 0.51943E-07_JPRB,0.50181E-06_JPRB,0.68762E-06_JPRB,0.82034E-06_JPRB,0.93657E-06_JPRB, & |
567 |
|
✗ |
& 0.92789E-06_JPRB,0.88766E-06_JPRB,0.99297E-06_JPRB,0.26836E-06_JPRB /) |
568 |
|
|
KA(:, 3, 3, 3) = (/ & |
569 |
|
|
& 0.56252E-07_JPRB,0.56363E-06_JPRB,0.77259E-06_JPRB,0.91469E-06_JPRB,0.10403E-05_JPRB, & |
570 |
|
✗ |
& 0.10243E-05_JPRB,0.93713E-06_JPRB,0.99098E-06_JPRB,0.29882E-06_JPRB /) |
571 |
|
|
KA(:, 4, 3, 3) = (/ & |
572 |
|
|
& 0.60224E-07_JPRB,0.63130E-06_JPRB,0.86724E-06_JPRB,0.10288E-05_JPRB,0.11344E-05_JPRB, & |
573 |
|
✗ |
& 0.11222E-05_JPRB,0.10162E-05_JPRB,0.91320E-06_JPRB,0.33854E-06_JPRB /) |
574 |
|
|
KA(:, 5, 3, 3) = (/ & |
575 |
|
|
& 0.63868E-07_JPRB,0.68673E-06_JPRB,0.94084E-06_JPRB,0.11069E-05_JPRB,0.12001E-05_JPRB, & |
576 |
|
✗ |
& 0.11819E-05_JPRB,0.10625E-05_JPRB,0.91639E-06_JPRB,0.36042E-06_JPRB /) |
577 |
|
|
KA(:, 1, 4, 3) = (/ & |
578 |
|
|
& 0.36151E-07_JPRB,0.33292E-06_JPRB,0.46957E-06_JPRB,0.57176E-06_JPRB,0.64965E-06_JPRB, & |
579 |
|
✗ |
& 0.66578E-06_JPRB,0.71030E-06_JPRB,0.90686E-06_JPRB,0.17407E-06_JPRB /) |
580 |
|
|
KA(:, 2, 4, 3) = (/ & |
581 |
|
|
& 0.40107E-07_JPRB,0.38424E-06_JPRB,0.52571E-06_JPRB,0.63554E-06_JPRB,0.72553E-06_JPRB, & |
582 |
|
✗ |
& 0.72856E-06_JPRB,0.72697E-06_JPRB,0.84339E-06_JPRB,0.19253E-06_JPRB /) |
583 |
|
|
KA(:, 3, 4, 3) = (/ & |
584 |
|
|
& 0.43816E-07_JPRB,0.43401E-06_JPRB,0.59546E-06_JPRB,0.70644E-06_JPRB,0.80752E-06_JPRB, & |
585 |
|
✗ |
& 0.79519E-06_JPRB,0.74520E-06_JPRB,0.81506E-06_JPRB,0.21830E-06_JPRB /) |
586 |
|
|
KA(:, 4, 4, 3) = (/ & |
587 |
|
|
& 0.47242E-07_JPRB,0.48695E-06_JPRB,0.66577E-06_JPRB,0.78531E-06_JPRB,0.87970E-06_JPRB, & |
588 |
|
✗ |
& 0.86799E-06_JPRB,0.78705E-06_JPRB,0.76812E-06_JPRB,0.24161E-06_JPRB /) |
589 |
|
|
KA(:, 5, 4, 3) = (/ & |
590 |
|
|
& 0.50394E-07_JPRB,0.54183E-06_JPRB,0.74240E-06_JPRB,0.87572E-06_JPRB,0.95669E-06_JPRB, & |
591 |
|
✗ |
& 0.94640E-06_JPRB,0.85379E-06_JPRB,0.74722E-06_JPRB,0.28102E-06_JPRB /) |
592 |
|
|
KA(:, 1, 5, 3) = (/ & |
593 |
|
|
& 0.27462E-07_JPRB,0.25134E-06_JPRB,0.35698E-06_JPRB,0.43146E-06_JPRB,0.48552E-06_JPRB, & |
594 |
|
✗ |
& 0.53177E-06_JPRB,0.62976E-06_JPRB,0.75904E-06_JPRB,0.12452E-06_JPRB /) |
595 |
|
|
KA(:, 2, 5, 3) = (/ & |
596 |
|
|
& 0.30835E-07_JPRB,0.29261E-06_JPRB,0.40164E-06_JPRB,0.49701E-06_JPRB,0.56250E-06_JPRB, & |
597 |
|
✗ |
& 0.56722E-06_JPRB,0.57761E-06_JPRB,0.72004E-06_JPRB,0.13996E-06_JPRB /) |
598 |
|
|
KA(:, 3, 5, 3) = (/ & |
599 |
|
|
& 0.33997E-07_JPRB,0.33394E-06_JPRB,0.45684E-06_JPRB,0.54380E-06_JPRB,0.62140E-06_JPRB, & |
600 |
|
✗ |
& 0.61241E-06_JPRB,0.60037E-06_JPRB,0.67265E-06_JPRB,0.16106E-06_JPRB /) |
601 |
|
|
KA(:, 4, 5, 3) = (/ & |
602 |
|
|
& 0.36946E-07_JPRB,0.37590E-06_JPRB,0.51390E-06_JPRB,0.60628E-06_JPRB,0.69027E-06_JPRB, & |
603 |
|
✗ |
& 0.67692E-06_JPRB,0.62237E-06_JPRB,0.67035E-06_JPRB,0.18128E-06_JPRB /) |
604 |
|
|
KA(:, 5, 5, 3) = (/ & |
605 |
|
|
& 0.39670E-07_JPRB,0.42211E-06_JPRB,0.57710E-06_JPRB,0.68190E-06_JPRB,0.75209E-06_JPRB, & |
606 |
|
✗ |
& 0.74450E-06_JPRB,0.67496E-06_JPRB,0.61709E-06_JPRB,0.21416E-06_JPRB /) |
607 |
|
|
KA(:, 1, 6, 3) = (/ & |
608 |
|
|
& 0.20602E-07_JPRB,0.18703E-06_JPRB,0.26972E-06_JPRB,0.33456E-06_JPRB,0.36532E-06_JPRB, & |
609 |
|
✗ |
& 0.42767E-06_JPRB,0.56721E-06_JPRB,0.66482E-06_JPRB,0.87936E-07_JPRB /) |
610 |
|
|
KA(:, 2, 6, 3) = (/ & |
611 |
|
|
& 0.23484E-07_JPRB,0.21971E-06_JPRB,0.30953E-06_JPRB,0.37643E-06_JPRB,0.42627E-06_JPRB, & |
612 |
|
✗ |
& 0.44517E-06_JPRB,0.48560E-06_JPRB,0.61604E-06_JPRB,0.10185E-06_JPRB /) |
613 |
|
|
KA(:, 3, 6, 3) = (/ & |
614 |
|
|
& 0.26181E-07_JPRB,0.25382E-06_JPRB,0.34607E-06_JPRB,0.41971E-06_JPRB,0.47851E-06_JPRB, & |
615 |
|
✗ |
& 0.48129E-06_JPRB,0.48156E-06_JPRB,0.56916E-06_JPRB,0.11864E-06_JPRB /) |
616 |
|
|
KA(:, 4, 6, 3) = (/ & |
617 |
|
|
& 0.28705E-07_JPRB,0.28735E-06_JPRB,0.39181E-06_JPRB,0.46499E-06_JPRB,0.52971E-06_JPRB, & |
618 |
|
✗ |
& 0.52262E-06_JPRB,0.49397E-06_JPRB,0.54792E-06_JPRB,0.13605E-06_JPRB /) |
619 |
|
|
KA(:, 5, 6, 3) = (/ & |
620 |
|
|
& 0.31065E-07_JPRB,0.32265E-06_JPRB,0.43948E-06_JPRB,0.51712E-06_JPRB,0.58131E-06_JPRB, & |
621 |
|
✗ |
& 0.57275E-06_JPRB,0.52154E-06_JPRB,0.53300E-06_JPRB,0.15326E-06_JPRB /) |
622 |
|
|
KA(:, 1, 7, 3) = (/ & |
623 |
|
|
& 0.15315E-07_JPRB,0.13867E-06_JPRB,0.20497E-06_JPRB,0.25791E-06_JPRB,0.28251E-06_JPRB, & |
624 |
|
✗ |
& 0.36209E-06_JPRB,0.48615E-06_JPRB,0.57617E-06_JPRB,0.62083E-07_JPRB /) |
625 |
|
|
KA(:, 2, 7, 3) = (/ & |
626 |
|
|
& 0.17770E-07_JPRB,0.16467E-06_JPRB,0.23430E-06_JPRB,0.28445E-06_JPRB,0.31749E-06_JPRB, & |
627 |
|
✗ |
& 0.35373E-06_JPRB,0.43530E-06_JPRB,0.51750E-06_JPRB,0.74598E-07_JPRB /) |
628 |
|
|
KA(:, 3, 7, 3) = (/ & |
629 |
|
|
& 0.20071E-07_JPRB,0.19194E-06_JPRB,0.26349E-06_JPRB,0.32575E-06_JPRB,0.37090E-06_JPRB, & |
630 |
|
✗ |
& 0.37391E-06_JPRB,0.38838E-06_JPRB,0.49613E-06_JPRB,0.88392E-07_JPRB /) |
631 |
|
|
KA(:, 4, 7, 3) = (/ & |
632 |
|
|
& 0.22230E-07_JPRB,0.21953E-06_JPRB,0.29840E-06_JPRB,0.35680E-06_JPRB,0.40841E-06_JPRB, & |
633 |
|
✗ |
& 0.40516E-06_JPRB,0.40513E-06_JPRB,0.45518E-06_JPRB,0.10149E-06_JPRB /) |
634 |
|
|
KA(:, 5, 7, 3) = (/ & |
635 |
|
|
& 0.24244E-07_JPRB,0.24730E-06_JPRB,0.33583E-06_JPRB,0.39740E-06_JPRB,0.45364E-06_JPRB, & |
636 |
|
✗ |
& 0.44496E-06_JPRB,0.41471E-06_JPRB,0.45022E-06_JPRB,0.11554E-06_JPRB /) |
637 |
|
|
KA(:, 1, 8, 3) = (/ & |
638 |
|
|
& 0.11318E-07_JPRB,0.10309E-06_JPRB,0.15679E-06_JPRB,0.19765E-06_JPRB,0.22300E-06_JPRB, & |
639 |
|
✗ |
& 0.30242E-06_JPRB,0.40824E-06_JPRB,0.49442E-06_JPRB,0.44061E-07_JPRB /) |
640 |
|
|
KA(:, 2, 8, 3) = (/ & |
641 |
|
|
& 0.13358E-07_JPRB,0.12273E-06_JPRB,0.17705E-06_JPRB,0.22062E-06_JPRB,0.24115E-06_JPRB, & |
642 |
|
✗ |
& 0.28999E-06_JPRB,0.39012E-06_JPRB,0.45451E-06_JPRB,0.54847E-07_JPRB /) |
643 |
|
|
KA(:, 3, 8, 3) = (/ & |
644 |
|
|
& 0.15323E-07_JPRB,0.14448E-06_JPRB,0.20316E-06_JPRB,0.24566E-06_JPRB,0.27787E-06_JPRB, & |
645 |
|
✗ |
& 0.29655E-06_JPRB,0.33237E-06_JPRB,0.41480E-06_JPRB,0.64157E-07_JPRB /) |
646 |
|
|
KA(:, 4, 8, 3) = (/ & |
647 |
|
|
& 0.17158E-07_JPRB,0.16673E-06_JPRB,0.22673E-06_JPRB,0.27760E-06_JPRB,0.31491E-06_JPRB, & |
648 |
|
✗ |
& 0.31778E-06_JPRB,0.31818E-06_JPRB,0.38422E-06_JPRB,0.75698E-07_JPRB /) |
649 |
|
|
|
650 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB22: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_KGB22:PART3',0,ZHOOK_HANDLE) |
658 |
|
|
|
659 |
|
|
|
660 |
|
|
KA(:, 5, 8, 3) = (/ & |
661 |
|
|
& 0.18880E-07_JPRB,0.18905E-06_JPRB,0.25711E-06_JPRB,0.30558E-06_JPRB,0.34820E-06_JPRB, & |
662 |
|
✗ |
& 0.34226E-06_JPRB,0.32757E-06_JPRB,0.36903E-06_JPRB,0.87559E-07_JPRB /) |
663 |
|
|
KA(:, 1, 9, 3) = (/ & |
664 |
|
|
& 0.83060E-08_JPRB,0.76710E-07_JPRB,0.11565E-06_JPRB,0.14764E-06_JPRB,0.17329E-06_JPRB, & |
665 |
|
✗ |
& 0.25783E-06_JPRB,0.35957E-06_JPRB,0.41243E-06_JPRB,0.31797E-07_JPRB /) |
666 |
|
|
KA(:, 2, 9, 3) = (/ & |
667 |
|
|
& 0.99651E-08_JPRB,0.91242E-07_JPRB,0.13632E-06_JPRB,0.17065E-06_JPRB,0.18967E-06_JPRB, & |
668 |
|
✗ |
& 0.24393E-06_JPRB,0.32914E-06_JPRB,0.39160E-06_JPRB,0.39225E-07_JPRB /) |
669 |
|
|
KA(:, 3, 9, 3) = (/ & |
670 |
|
|
& 0.11621E-07_JPRB,0.10845E-06_JPRB,0.15426E-06_JPRB,0.18813E-06_JPRB,0.20803E-06_JPRB, & |
671 |
|
✗ |
& 0.23565E-06_JPRB,0.29600E-06_JPRB,0.35083E-06_JPRB,0.47417E-07_JPRB /) |
672 |
|
|
KA(:, 4, 9, 3) = (/ & |
673 |
|
|
& 0.13182E-07_JPRB,0.12617E-06_JPRB,0.17363E-06_JPRB,0.21434E-06_JPRB,0.24338E-06_JPRB, & |
674 |
|
✗ |
& 0.24767E-06_JPRB,0.26174E-06_JPRB,0.33967E-06_JPRB,0.56851E-07_JPRB /) |
675 |
|
|
KA(:, 5, 9, 3) = (/ & |
676 |
|
|
& 0.14647E-07_JPRB,0.14462E-06_JPRB,0.19609E-06_JPRB,0.23554E-06_JPRB,0.26966E-06_JPRB, & |
677 |
|
✗ |
& 0.27000E-06_JPRB,0.26860E-06_JPRB,0.30941E-06_JPRB,0.65848E-07_JPRB /) |
678 |
|
|
KA(:, 1,10, 3) = (/ & |
679 |
|
|
& 0.61513E-08_JPRB,0.59201E-07_JPRB,0.89564E-07_JPRB,0.11096E-06_JPRB,0.13963E-06_JPRB, & |
680 |
|
✗ |
& 0.22868E-06_JPRB,0.30519E-06_JPRB,0.34949E-06_JPRB,0.23910E-07_JPRB /) |
681 |
|
|
KA(:, 2,10, 3) = (/ & |
682 |
|
|
& 0.74969E-08_JPRB,0.68921E-07_JPRB,0.10513E-06_JPRB,0.13256E-06_JPRB,0.14959E-06_JPRB, & |
683 |
|
✗ |
& 0.20339E-06_JPRB,0.27500E-06_JPRB,0.33281E-06_JPRB,0.28611E-07_JPRB /) |
684 |
|
|
KA(:, 3,10, 3) = (/ & |
685 |
|
|
& 0.88625E-08_JPRB,0.82016E-07_JPRB,0.11818E-06_JPRB,0.14725E-06_JPRB,0.16097E-06_JPRB, & |
686 |
|
✗ |
& 0.19608E-06_JPRB,0.26185E-06_JPRB,0.30530E-06_JPRB,0.35935E-07_JPRB /) |
687 |
|
|
KA(:, 4,10, 3) = (/ & |
688 |
|
|
& 0.10184E-07_JPRB,0.96432E-07_JPRB,0.13542E-06_JPRB,0.16348E-06_JPRB,0.18477E-06_JPRB, & |
689 |
|
✗ |
& 0.19886E-06_JPRB,0.22449E-06_JPRB,0.27787E-06_JPRB,0.42133E-07_JPRB /) |
690 |
|
|
KA(:, 5,10, 3) = (/ & |
691 |
|
|
& 0.11421E-07_JPRB,0.11117E-06_JPRB,0.15107E-06_JPRB,0.18528E-06_JPRB,0.21005E-06_JPRB, & |
692 |
|
✗ |
& 0.21209E-06_JPRB,0.21257E-06_JPRB,0.25796E-06_JPRB,0.49988E-07_JPRB /) |
693 |
|
|
KA(:, 1,11, 3) = (/ & |
694 |
|
|
& 0.50310E-08_JPRB,0.48563E-07_JPRB,0.73473E-07_JPRB,0.91094E-07_JPRB,0.11455E-06_JPRB, & |
695 |
|
✗ |
& 0.18734E-06_JPRB,0.24995E-06_JPRB,0.28620E-06_JPRB,0.19440E-07_JPRB /) |
696 |
|
|
KA(:, 2,11, 3) = (/ & |
697 |
|
|
& 0.61304E-08_JPRB,0.56532E-07_JPRB,0.86340E-07_JPRB,0.10878E-06_JPRB,0.12244E-06_JPRB, & |
698 |
|
✗ |
& 0.16646E-06_JPRB,0.22541E-06_JPRB,0.27316E-06_JPRB,0.23338E-07_JPRB /) |
699 |
|
|
KA(:, 3,11, 3) = (/ & |
700 |
|
|
& 0.72491E-08_JPRB,0.67226E-07_JPRB,0.96798E-07_JPRB,0.12061E-06_JPRB,0.13181E-06_JPRB, & |
701 |
|
✗ |
& 0.16043E-06_JPRB,0.21436E-06_JPRB,0.24928E-06_JPRB,0.29352E-07_JPRB /) |
702 |
|
|
KA(:, 4,11, 3) = (/ & |
703 |
|
|
& 0.83326E-08_JPRB,0.78998E-07_JPRB,0.11085E-06_JPRB,0.13391E-06_JPRB,0.15135E-06_JPRB, & |
704 |
|
✗ |
& 0.16281E-06_JPRB,0.18360E-06_JPRB,0.22741E-06_JPRB,0.34425E-07_JPRB /) |
705 |
|
|
KA(:, 5,11, 3) = (/ & |
706 |
|
|
& 0.93458E-08_JPRB,0.91055E-07_JPRB,0.12364E-06_JPRB,0.15181E-06_JPRB,0.17196E-06_JPRB, & |
707 |
|
✗ |
& 0.17367E-06_JPRB,0.17400E-06_JPRB,0.21108E-06_JPRB,0.40855E-07_JPRB /) |
708 |
|
|
KA(:, 1,12, 3) = (/ & |
709 |
|
|
& 0.41189E-08_JPRB,0.39856E-07_JPRB,0.60140E-07_JPRB,0.74963E-07_JPRB,0.94012E-07_JPRB, & |
710 |
|
✗ |
& 0.15333E-06_JPRB,0.20441E-06_JPRB,0.23474E-06_JPRB,0.15853E-07_JPRB /) |
711 |
|
|
KA(:, 2,12, 3) = (/ & |
712 |
|
|
& 0.50193E-08_JPRB,0.46348E-07_JPRB,0.70855E-07_JPRB,0.89301E-07_JPRB,0.10040E-06_JPRB, & |
713 |
|
✗ |
& 0.13626E-06_JPRB,0.18429E-06_JPRB,0.22399E-06_JPRB,0.19078E-07_JPRB /) |
714 |
|
|
KA(:, 3,12, 3) = (/ & |
715 |
|
|
& 0.59344E-08_JPRB,0.55100E-07_JPRB,0.79255E-07_JPRB,0.98783E-07_JPRB,0.10799E-06_JPRB, & |
716 |
|
✗ |
& 0.13125E-06_JPRB,0.17544E-06_JPRB,0.20357E-06_JPRB,0.24013E-07_JPRB /) |
717 |
|
|
KA(:, 4,12, 3) = (/ & |
718 |
|
|
& 0.68228E-08_JPRB,0.64743E-07_JPRB,0.90843E-07_JPRB,0.10971E-06_JPRB,0.12396E-06_JPRB, & |
719 |
|
✗ |
& 0.13321E-06_JPRB,0.15026E-06_JPRB,0.18611E-06_JPRB,0.28198E-07_JPRB /) |
720 |
|
|
KA(:, 5,12, 3) = (/ & |
721 |
|
|
& 0.76512E-08_JPRB,0.74591E-07_JPRB,0.10123E-06_JPRB,0.12433E-06_JPRB,0.14085E-06_JPRB, & |
722 |
|
✗ |
& 0.14222E-06_JPRB,0.14246E-06_JPRB,0.17276E-06_JPRB,0.33441E-07_JPRB /) |
723 |
|
|
KA(:, 1,13, 3) = (/ & |
724 |
|
|
& 0.33724E-08_JPRB,0.32680E-07_JPRB,0.49222E-07_JPRB,0.61513E-07_JPRB,0.77133E-07_JPRB, & |
725 |
|
✗ |
& 0.12555E-06_JPRB,0.16713E-06_JPRB,0.19233E-06_JPRB,0.12966E-07_JPRB /) |
726 |
|
|
KA(:, 2,13, 3) = (/ & |
727 |
|
|
& 0.41100E-08_JPRB,0.37987E-07_JPRB,0.58121E-07_JPRB,0.73233E-07_JPRB,0.82218E-07_JPRB, & |
728 |
|
✗ |
& 0.11156E-06_JPRB,0.15077E-06_JPRB,0.18269E-06_JPRB,0.15614E-07_JPRB /) |
729 |
|
|
KA(:, 3,13, 3) = (/ & |
730 |
|
|
& 0.48589E-08_JPRB,0.45157E-07_JPRB,0.64912E-07_JPRB,0.80902E-07_JPRB,0.88466E-07_JPRB, & |
731 |
|
✗ |
& 0.10747E-06_JPRB,0.14360E-06_JPRB,0.16616E-06_JPRB,0.19653E-07_JPRB /) |
732 |
|
|
KA(:, 4,13, 3) = (/ & |
733 |
|
|
& 0.55845E-08_JPRB,0.53032E-07_JPRB,0.74357E-07_JPRB,0.89835E-07_JPRB,0.10150E-06_JPRB, & |
734 |
|
✗ |
& 0.10902E-06_JPRB,0.12309E-06_JPRB,0.15231E-06_JPRB,0.23083E-07_JPRB /) |
735 |
|
|
KA(:, 5,13, 3) = (/ & |
736 |
|
|
& 0.62642E-08_JPRB,0.61086E-07_JPRB,0.82886E-07_JPRB,0.10172E-06_JPRB,0.11529E-06_JPRB, & |
737 |
|
✗ |
& 0.11645E-06_JPRB,0.11667E-06_JPRB,0.14140E-06_JPRB,0.27368E-07_JPRB /) |
738 |
|
|
KA(:, 1, 1, 4) = (/ & |
739 |
|
|
& 0.38523E-06_JPRB,0.18405E-05_JPRB,0.24561E-05_JPRB,0.26688E-05_JPRB,0.26627E-05_JPRB, & |
740 |
|
✗ |
& 0.26678E-05_JPRB,0.26221E-05_JPRB,0.23434E-05_JPRB,0.10243E-05_JPRB /) |
741 |
|
|
KA(:, 2, 1, 4) = (/ & |
742 |
|
|
& 0.41258E-06_JPRB,0.20340E-05_JPRB,0.26799E-05_JPRB,0.29289E-05_JPRB,0.29138E-05_JPRB, & |
743 |
|
✗ |
& 0.29293E-05_JPRB,0.29106E-05_JPRB,0.25138E-05_JPRB,0.11179E-05_JPRB /) |
744 |
|
|
KA(:, 3, 1, 4) = (/ & |
745 |
|
|
& 0.43826E-06_JPRB,0.22391E-05_JPRB,0.29055E-05_JPRB,0.31733E-05_JPRB,0.31848E-05_JPRB, & |
746 |
|
✗ |
& 0.32210E-05_JPRB,0.31726E-05_JPRB,0.29277E-05_JPRB,0.13122E-05_JPRB /) |
747 |
|
|
KA(:, 4, 1, 4) = (/ & |
748 |
|
|
& 0.46214E-06_JPRB,0.24098E-05_JPRB,0.30735E-05_JPRB,0.33543E-05_JPRB,0.34157E-05_JPRB, & |
749 |
|
✗ |
& 0.34436E-05_JPRB,0.34008E-05_JPRB,0.32157E-05_JPRB,0.14111E-05_JPRB /) |
750 |
|
|
KA(:, 5, 1, 4) = (/ & |
751 |
|
|
& 0.48360E-06_JPRB,0.25684E-05_JPRB,0.32470E-05_JPRB,0.35527E-05_JPRB,0.36650E-05_JPRB, & |
752 |
|
✗ |
& 0.37054E-05_JPRB,0.36463E-05_JPRB,0.35130E-05_JPRB,0.16128E-05_JPRB /) |
753 |
|
|
KA(:, 1, 2, 4) = (/ & |
754 |
|
|
& 0.30632E-06_JPRB,0.14811E-05_JPRB,0.19813E-05_JPRB,0.21525E-05_JPRB,0.21480E-05_JPRB, & |
755 |
|
✗ |
& 0.21651E-05_JPRB,0.21352E-05_JPRB,0.19097E-05_JPRB,0.76078E-06_JPRB /) |
756 |
|
|
KA(:, 2, 2, 4) = (/ & |
757 |
|
|
& 0.32924E-06_JPRB,0.16454E-05_JPRB,0.21736E-05_JPRB,0.23701E-05_JPRB,0.23496E-05_JPRB, & |
758 |
|
✗ |
& 0.23721E-05_JPRB,0.23664E-05_JPRB,0.20501E-05_JPRB,0.85884E-06_JPRB /) |
759 |
|
|
KA(:, 3, 2, 4) = (/ & |
760 |
|
|
& 0.35084E-06_JPRB,0.18164E-05_JPRB,0.23625E-05_JPRB,0.25754E-05_JPRB,0.25799E-05_JPRB, & |
761 |
|
✗ |
& 0.26089E-05_JPRB,0.25758E-05_JPRB,0.23569E-05_JPRB,0.98156E-06_JPRB /) |
762 |
|
|
KA(:, 4, 2, 4) = (/ & |
763 |
|
|
& 0.37092E-06_JPRB,0.19724E-05_JPRB,0.25182E-05_JPRB,0.27461E-05_JPRB,0.27987E-05_JPRB, & |
764 |
|
✗ |
& 0.28122E-05_JPRB,0.27766E-05_JPRB,0.26535E-05_JPRB,0.11297E-05_JPRB /) |
765 |
|
|
KA(:, 5, 2, 4) = (/ & |
766 |
|
|
& 0.38936E-06_JPRB,0.20952E-05_JPRB,0.26519E-05_JPRB,0.29005E-05_JPRB,0.29889E-05_JPRB, & |
767 |
|
✗ |
& 0.30120E-05_JPRB,0.29564E-05_JPRB,0.28641E-05_JPRB,0.12488E-05_JPRB /) |
768 |
|
|
KA(:, 1, 3, 4) = (/ & |
769 |
|
|
& 0.23924E-06_JPRB,0.11590E-05_JPRB,0.15536E-05_JPRB,0.16834E-05_JPRB,0.16891E-05_JPRB, & |
770 |
|
✗ |
& 0.17668E-05_JPRB,0.16904E-05_JPRB,0.15951E-05_JPRB,0.52632E-06_JPRB /) |
771 |
|
|
KA(:, 2, 3, 4) = (/ & |
772 |
|
|
& 0.25864E-06_JPRB,0.12971E-05_JPRB,0.17221E-05_JPRB,0.18731E-05_JPRB,0.18563E-05_JPRB, & |
773 |
|
✗ |
& 0.18804E-05_JPRB,0.18628E-05_JPRB,0.16576E-05_JPRB,0.62738E-06_JPRB /) |
774 |
|
|
KA(:, 3, 3, 4) = (/ & |
775 |
|
|
& 0.27696E-06_JPRB,0.14325E-05_JPRB,0.18710E-05_JPRB,0.20345E-05_JPRB,0.20276E-05_JPRB, & |
776 |
|
✗ |
& 0.20548E-05_JPRB,0.20259E-05_JPRB,0.17837E-05_JPRB,0.70461E-06_JPRB /) |
777 |
|
|
KA(:, 4, 3, 4) = (/ & |
778 |
|
|
& 0.29413E-06_JPRB,0.15757E-05_JPRB,0.20191E-05_JPRB,0.22050E-05_JPRB,0.22319E-05_JPRB, & |
779 |
|
✗ |
& 0.22354E-05_JPRB,0.22195E-05_JPRB,0.20885E-05_JPRB,0.84521E-06_JPRB /) |
780 |
|
|
KA(:, 5, 3, 4) = (/ & |
781 |
|
|
& 0.31013E-06_JPRB,0.16829E-05_JPRB,0.21333E-05_JPRB,0.23274E-05_JPRB,0.23871E-05_JPRB, & |
782 |
|
✗ |
& 0.23939E-05_JPRB,0.23475E-05_JPRB,0.22805E-05_JPRB,0.93762E-06_JPRB /) |
783 |
|
|
KA(:, 1, 4, 4) = (/ & |
784 |
|
|
& 0.18537E-06_JPRB,0.89469E-06_JPRB,0.11953E-05_JPRB,0.13099E-05_JPRB,0.13271E-05_JPRB, & |
785 |
|
✗ |
& 0.13910E-05_JPRB,0.13233E-05_JPRB,0.12842E-05_JPRB,0.37595E-06_JPRB /) |
786 |
|
|
KA(:, 2, 4, 4) = (/ & |
787 |
|
|
& 0.20178E-06_JPRB,0.10096E-05_JPRB,0.13476E-05_JPRB,0.14636E-05_JPRB,0.14567E-05_JPRB, & |
788 |
|
✗ |
& 0.14730E-05_JPRB,0.14642E-05_JPRB,0.13131E-05_JPRB,0.45273E-06_JPRB /) |
789 |
|
|
KA(:, 3, 4, 4) = (/ & |
790 |
|
|
& 0.21732E-06_JPRB,0.11251E-05_JPRB,0.14779E-05_JPRB,0.16107E-05_JPRB,0.15945E-05_JPRB, & |
791 |
|
✗ |
& 0.16194E-05_JPRB,0.16016E-05_JPRB,0.14026E-05_JPRB,0.52023E-06_JPRB /) |
792 |
|
|
KA(:, 4, 4, 4) = (/ & |
793 |
|
|
& 0.23198E-06_JPRB,0.12348E-05_JPRB,0.15955E-05_JPRB,0.17391E-05_JPRB,0.17432E-05_JPRB, & |
794 |
|
✗ |
& 0.17515E-05_JPRB,0.17226E-05_JPRB,0.15707E-05_JPRB,0.60921E-06_JPRB /) |
795 |
|
|
KA(:, 5, 4, 4) = (/ & |
796 |
|
|
& 0.24566E-06_JPRB,0.13471E-05_JPRB,0.17138E-05_JPRB,0.18677E-05_JPRB,0.19071E-05_JPRB, & |
797 |
|
✗ |
& 0.19021E-05_JPRB,0.18647E-05_JPRB,0.18054E-05_JPRB,0.72437E-06_JPRB /) |
798 |
|
|
KA(:, 1, 5, 4) = (/ & |
799 |
|
|
& 0.14315E-06_JPRB,0.68654E-06_JPRB,0.91703E-06_JPRB,0.10136E-05_JPRB,0.10640E-05_JPRB, & |
800 |
|
✗ |
& 0.10899E-05_JPRB,0.10066E-05_JPRB,0.10387E-05_JPRB,0.27115E-06_JPRB /) |
801 |
|
|
KA(:, 2, 5, 4) = (/ & |
802 |
|
|
& 0.15693E-06_JPRB,0.78124E-06_JPRB,0.10460E-05_JPRB,0.11319E-05_JPRB,0.11350E-05_JPRB, & |
803 |
|
✗ |
& 0.11836E-05_JPRB,0.11463E-05_JPRB,0.10954E-05_JPRB,0.33462E-06_JPRB /) |
804 |
|
|
KA(:, 3, 5, 4) = (/ & |
805 |
|
|
& 0.17013E-06_JPRB,0.87619E-06_JPRB,0.11607E-05_JPRB,0.12633E-05_JPRB,0.12502E-05_JPRB, & |
806 |
|
✗ |
& 0.12683E-05_JPRB,0.12476E-05_JPRB,0.11184E-05_JPRB,0.38421E-06_JPRB /) |
807 |
|
|
KA(:, 4, 5, 4) = (/ & |
808 |
|
|
& 0.18255E-06_JPRB,0.96990E-06_JPRB,0.12617E-05_JPRB,0.13726E-05_JPRB,0.13641E-05_JPRB, & |
809 |
|
✗ |
& 0.13787E-05_JPRB,0.13521E-05_JPRB,0.11952E-05_JPRB,0.45446E-06_JPRB /) |
810 |
|
|
KA(:, 5, 5, 4) = (/ & |
811 |
|
|
& 0.19427E-06_JPRB,0.10668E-05_JPRB,0.13642E-05_JPRB,0.14869E-05_JPRB,0.15021E-05_JPRB, & |
812 |
|
✗ |
& 0.14945E-05_JPRB,0.14801E-05_JPRB,0.13920E-05_JPRB,0.54371E-06_JPRB /) |
813 |
|
|
KA(:, 1, 6, 4) = (/ & |
814 |
|
|
& 0.10978E-06_JPRB,0.52395E-06_JPRB,0.69476E-06_JPRB,0.76850E-06_JPRB,0.83675E-06_JPRB, & |
815 |
|
✗ |
& 0.86491E-06_JPRB,0.77625E-06_JPRB,0.85871E-06_JPRB,0.19533E-06_JPRB /) |
816 |
|
|
KA(:, 2, 6, 4) = (/ & |
817 |
|
|
& 0.12132E-06_JPRB,0.59825E-06_JPRB,0.79672E-06_JPRB,0.87685E-06_JPRB,0.88945E-06_JPRB, & |
818 |
|
✗ |
& 0.93176E-06_JPRB,0.88241E-06_JPRB,0.87959E-06_JPRB,0.24185E-06_JPRB /) |
819 |
|
|
KA(:, 3, 6, 4) = (/ & |
820 |
|
|
& 0.13245E-06_JPRB,0.67730E-06_JPRB,0.90458E-06_JPRB,0.97978E-06_JPRB,0.97457E-06_JPRB, & |
821 |
|
✗ |
& 0.98659E-06_JPRB,0.98199E-06_JPRB,0.88654E-06_JPRB,0.28188E-06_JPRB /) |
822 |
|
|
KA(:, 4, 6, 4) = (/ & |
823 |
|
|
& 0.14304E-06_JPRB,0.75520E-06_JPRB,0.99285E-06_JPRB,0.10803E-05_JPRB,0.10647E-05_JPRB, & |
824 |
|
✗ |
& 0.10764E-05_JPRB,0.10623E-05_JPRB,0.93315E-06_JPRB,0.33738E-06_JPRB /) |
825 |
|
|
KA(:, 5, 6, 4) = (/ & |
826 |
|
|
& 0.15298E-06_JPRB,0.83133E-06_JPRB,0.10714E-05_JPRB,0.11654E-05_JPRB,0.11612E-05_JPRB, & |
827 |
|
✗ |
& 0.11628E-05_JPRB,0.11409E-05_JPRB,0.10211E-05_JPRB,0.39343E-06_JPRB /) |
828 |
|
|
KA(:, 1, 7, 4) = (/ & |
829 |
|
|
& 0.83795E-07_JPRB,0.39583E-06_JPRB,0.52221E-06_JPRB,0.57623E-06_JPRB,0.66801E-06_JPRB, & |
830 |
|
✗ |
& 0.68350E-06_JPRB,0.61427E-06_JPRB,0.74508E-06_JPRB,0.14027E-06_JPRB /) |
831 |
|
|
KA(:, 2, 7, 4) = (/ & |
832 |
|
|
& 0.93456E-07_JPRB,0.45651E-06_JPRB,0.60707E-06_JPRB,0.67267E-06_JPRB,0.70886E-06_JPRB, & |
833 |
|
✗ |
& 0.72875E-06_JPRB,0.66655E-06_JPRB,0.70837E-06_JPRB,0.17333E-06_JPRB /) |
834 |
|
|
KA(:, 3, 7, 4) = (/ & |
835 |
|
|
& 0.10278E-06_JPRB,0.52065E-06_JPRB,0.69548E-06_JPRB,0.75346E-06_JPRB,0.75243E-06_JPRB, & |
836 |
|
✗ |
& 0.79752E-06_JPRB,0.76130E-06_JPRB,0.73768E-06_JPRB,0.20746E-06_JPRB /) |
837 |
|
|
KA(:, 4, 7, 4) = (/ & |
838 |
|
|
& 0.11172E-06_JPRB,0.58539E-06_JPRB,0.77614E-06_JPRB,0.84147E-06_JPRB,0.82956E-06_JPRB, & |
839 |
|
✗ |
& 0.83892E-06_JPRB,0.81830E-06_JPRB,0.74649E-06_JPRB,0.24711E-06_JPRB /) |
840 |
|
|
KA(:, 5, 7, 4) = (/ & |
841 |
|
|
& 0.12020E-06_JPRB,0.64890E-06_JPRB,0.84430E-06_JPRB,0.91375E-06_JPRB,0.90365E-06_JPRB, & |
842 |
|
✗ |
& 0.91211E-06_JPRB,0.89073E-06_JPRB,0.78796E-06_JPRB,0.29290E-06_JPRB /) |
843 |
|
|
KA(:, 1, 8, 4) = (/ & |
844 |
|
|
& 0.63771E-07_JPRB,0.29724E-06_JPRB,0.38901E-06_JPRB,0.42952E-06_JPRB,0.53569E-06_JPRB, & |
845 |
|
✗ |
& 0.52739E-06_JPRB,0.51421E-06_JPRB,0.65416E-06_JPRB,0.10106E-06_JPRB /) |
846 |
|
|
KA(:, 2, 8, 4) = (/ & |
847 |
|
|
& 0.71835E-07_JPRB,0.34855E-06_JPRB,0.45895E-06_JPRB,0.50927E-06_JPRB,0.55878E-06_JPRB, & |
848 |
|
✗ |
& 0.57413E-06_JPRB,0.51386E-06_JPRB,0.58703E-06_JPRB,0.12396E-06_JPRB /) |
849 |
|
|
KA(:, 3, 8, 4) = (/ & |
850 |
|
|
& 0.79626E-07_JPRB,0.39836E-06_JPRB,0.52930E-06_JPRB,0.58238E-06_JPRB,0.59321E-06_JPRB, & |
851 |
|
✗ |
& 0.61917E-06_JPRB,0.58275E-06_JPRB,0.59574E-06_JPRB,0.15556E-06_JPRB /) |
852 |
|
|
KA(:, 4, 8, 4) = (/ & |
853 |
|
|
& 0.87141E-07_JPRB,0.45236E-06_JPRB,0.60287E-06_JPRB,0.64978E-06_JPRB,0.64621E-06_JPRB, & |
854 |
|
✗ |
& 0.65548E-06_JPRB,0.65037E-06_JPRB,0.59243E-06_JPRB,0.18170E-06_JPRB /) |
855 |
|
|
KA(:, 5, 8, 4) = (/ & |
856 |
|
|
& 0.94308E-07_JPRB,0.50478E-06_JPRB,0.66216E-06_JPRB,0.71791E-06_JPRB,0.70542E-06_JPRB, & |
857 |
|
✗ |
& 0.71265E-06_JPRB,0.70440E-06_JPRB,0.61750E-06_JPRB,0.21806E-06_JPRB /) |
858 |
|
|
KA(:, 1, 9, 4) = (/ & |
859 |
|
|
& 0.48334E-07_JPRB,0.22150E-06_JPRB,0.29066E-06_JPRB,0.32650E-06_JPRB,0.41774E-06_JPRB, & |
860 |
|
✗ |
& 0.40737E-06_JPRB,0.44502E-06_JPRB,0.56524E-06_JPRB,0.72879E-07_JPRB /) |
861 |
|
|
KA(:, 2, 9, 4) = (/ & |
862 |
|
|
& 0.54994E-07_JPRB,0.26340E-06_JPRB,0.34441E-06_JPRB,0.38160E-06_JPRB,0.44410E-06_JPRB, & |
863 |
|
✗ |
& 0.45746E-06_JPRB,0.41390E-06_JPRB,0.50482E-06_JPRB,0.89924E-07_JPRB /) |
864 |
|
|
KA(:, 3, 9, 4) = (/ & |
865 |
|
|
& 0.61501E-07_JPRB,0.30416E-06_JPRB,0.40299E-06_JPRB,0.44693E-06_JPRB,0.47253E-06_JPRB, & |
866 |
|
✗ |
& 0.48623E-06_JPRB,0.44624E-06_JPRB,0.47646E-06_JPRB,0.11220E-06_JPRB /) |
867 |
|
|
KA(:, 4, 9, 4) = (/ & |
868 |
|
|
& 0.67792E-07_JPRB,0.34758E-06_JPRB,0.46191E-06_JPRB,0.50102E-06_JPRB,0.50055E-06_JPRB, & |
869 |
|
✗ |
& 0.52975E-06_JPRB,0.50335E-06_JPRB,0.48665E-06_JPRB,0.13456E-06_JPRB /) |
870 |
|
|
KA(:, 5, 9, 4) = (/ & |
871 |
|
|
& 0.73830E-07_JPRB,0.39095E-06_JPRB,0.51738E-06_JPRB,0.55894E-06_JPRB,0.55048E-06_JPRB, & |
872 |
|
✗ |
& 0.55492E-06_JPRB,0.54317E-06_JPRB,0.49144E-06_JPRB,0.16088E-06_JPRB /) |
873 |
|
|
KA(:, 1,10, 4) = (/ & |
874 |
|
|
& 0.36931E-07_JPRB,0.16614E-06_JPRB,0.21895E-06_JPRB,0.26116E-06_JPRB,0.33023E-06_JPRB, & |
875 |
|
✗ |
& 0.31438E-06_JPRB,0.35810E-06_JPRB,0.46819E-06_JPRB,0.53649E-07_JPRB /) |
876 |
|
|
KA(:, 2,10, 4) = (/ & |
877 |
|
|
& 0.42386E-07_JPRB,0.20028E-06_JPRB,0.26120E-06_JPRB,0.28858E-06_JPRB,0.36090E-06_JPRB, & |
878 |
|
✗ |
& 0.35506E-06_JPRB,0.34639E-06_JPRB,0.43640E-06_JPRB,0.66551E-07_JPRB /) |
879 |
|
|
KA(:, 3,10, 4) = (/ & |
880 |
|
|
& 0.47801E-07_JPRB,0.23474E-06_JPRB,0.30842E-06_JPRB,0.34242E-06_JPRB,0.37552E-06_JPRB, & |
881 |
|
✗ |
& 0.38348E-06_JPRB,0.34637E-06_JPRB,0.39519E-06_JPRB,0.81897E-07_JPRB /) |
882 |
|
|
KA(:, 4,10, 4) = (/ & |
883 |
|
|
& 0.53030E-07_JPRB,0.26856E-06_JPRB,0.35532E-06_JPRB,0.39019E-06_JPRB,0.39727E-06_JPRB, & |
884 |
|
✗ |
& 0.41391E-06_JPRB,0.38815E-06_JPRB,0.39845E-06_JPRB,0.10316E-06_JPRB /) |
885 |
|
|
KA(:, 5,10, 4) = (/ & |
886 |
|
|
& 0.58073E-07_JPRB,0.30468E-06_JPRB,0.40415E-06_JPRB,0.43508E-06_JPRB,0.43212E-06_JPRB, & |
887 |
|
✗ |
& 0.43860E-06_JPRB,0.43462E-06_JPRB,0.39513E-06_JPRB,0.12065E-06_JPRB /) |
888 |
|
|
KA(:, 1,11, 4) = (/ & |
889 |
|
|
& 0.30210E-07_JPRB,0.13672E-06_JPRB,0.18028E-06_JPRB,0.21388E-06_JPRB,0.27067E-06_JPRB, & |
890 |
|
✗ |
& 0.25748E-06_JPRB,0.29347E-06_JPRB,0.38486E-06_JPRB,0.43992E-07_JPRB /) |
891 |
|
|
KA(:, 2,11, 4) = (/ & |
892 |
|
|
& 0.34676E-07_JPRB,0.16480E-06_JPRB,0.21447E-06_JPRB,0.23703E-06_JPRB,0.29658E-06_JPRB, & |
893 |
|
✗ |
& 0.29189E-06_JPRB,0.28346E-06_JPRB,0.35425E-06_JPRB,0.54558E-07_JPRB /) |
894 |
|
|
KA(:, 3,11, 4) = (/ & |
895 |
|
|
& 0.39112E-07_JPRB,0.19301E-06_JPRB,0.25343E-06_JPRB,0.28112E-06_JPRB,0.30767E-06_JPRB, & |
896 |
|
✗ |
& 0.31424E-06_JPRB,0.28354E-06_JPRB,0.32323E-06_JPRB,0.67060E-07_JPRB /) |
897 |
|
|
KA(:, 4,11, 4) = (/ & |
898 |
|
|
& 0.43392E-07_JPRB,0.22069E-06_JPRB,0.29158E-06_JPRB,0.31987E-06_JPRB,0.32514E-06_JPRB, & |
899 |
|
✗ |
& 0.33920E-06_JPRB,0.31782E-06_JPRB,0.32572E-06_JPRB,0.84444E-07_JPRB /) |
900 |
|
|
KA(:, 5,11, 4) = (/ & |
901 |
|
|
& 0.47520E-07_JPRB,0.25011E-06_JPRB,0.33134E-06_JPRB,0.35641E-06_JPRB,0.35390E-06_JPRB, & |
902 |
|
✗ |
& 0.35921E-06_JPRB,0.35594E-06_JPRB,0.32298E-06_JPRB,0.98845E-07_JPRB /) |
903 |
|
|
KA(:, 1,12, 4) = (/ & |
904 |
|
|
& 0.24733E-07_JPRB,0.11230E-06_JPRB,0.14856E-06_JPRB,0.17472E-06_JPRB,0.22197E-06_JPRB, & |
905 |
|
✗ |
& 0.21118E-06_JPRB,0.24122E-06_JPRB,0.31477E-06_JPRB,0.36119E-07_JPRB /) |
906 |
|
|
KA(:, 2,12, 4) = (/ & |
907 |
|
|
& 0.28389E-07_JPRB,0.13551E-06_JPRB,0.17612E-06_JPRB,0.19468E-06_JPRB,0.24363E-06_JPRB, & |
908 |
|
✗ |
& 0.23963E-06_JPRB,0.23290E-06_JPRB,0.28830E-06_JPRB,0.44709E-07_JPRB /) |
909 |
|
|
KA(:, 3,12, 4) = (/ & |
910 |
|
|
& 0.32017E-07_JPRB,0.15859E-06_JPRB,0.20791E-06_JPRB,0.23074E-06_JPRB,0.25230E-06_JPRB, & |
911 |
|
✗ |
& 0.25771E-06_JPRB,0.23238E-06_JPRB,0.26334E-06_JPRB,0.54941E-07_JPRB /) |
912 |
|
|
KA(:, 4,12, 4) = (/ & |
913 |
|
|
& 0.35526E-07_JPRB,0.18123E-06_JPRB,0.23912E-06_JPRB,0.26228E-06_JPRB,0.26637E-06_JPRB, & |
914 |
|
✗ |
& 0.27804E-06_JPRB,0.26039E-06_JPRB,0.26652E-06_JPRB,0.69162E-07_JPRB /) |
915 |
|
|
KA(:, 5,12, 4) = (/ & |
916 |
|
|
& 0.38912E-07_JPRB,0.20524E-06_JPRB,0.27165E-06_JPRB,0.29207E-06_JPRB,0.28991E-06_JPRB, & |
917 |
|
✗ |
& 0.29419E-06_JPRB,0.29154E-06_JPRB,0.26412E-06_JPRB,0.80995E-07_JPRB /) |
918 |
|
|
KA(:, 1,13, 4) = (/ & |
919 |
|
|
& 0.20250E-07_JPRB,0.92231E-07_JPRB,0.12203E-06_JPRB,0.14275E-06_JPRB,0.18179E-06_JPRB, & |
920 |
|
✗ |
& 0.17279E-06_JPRB,0.19796E-06_JPRB,0.25817E-06_JPRB,0.29574E-07_JPRB /) |
921 |
|
|
KA(:, 2,13, 4) = (/ & |
922 |
|
|
& 0.23243E-07_JPRB,0.11133E-06_JPRB,0.14442E-06_JPRB,0.15980E-06_JPRB,0.20001E-06_JPRB, & |
923 |
|
✗ |
& 0.19638E-06_JPRB,0.19075E-06_JPRB,0.23541E-06_JPRB,0.36618E-07_JPRB /) |
924 |
|
|
KA(:, 3,13, 4) = (/ & |
925 |
|
|
& 0.26215E-07_JPRB,0.13018E-06_JPRB,0.17053E-06_JPRB,0.18925E-06_JPRB,0.20654E-06_JPRB, & |
926 |
|
✗ |
& 0.21104E-06_JPRB,0.19040E-06_JPRB,0.21495E-06_JPRB,0.44987E-07_JPRB /) |
927 |
|
|
KA(:, 4,13, 4) = (/ & |
928 |
|
|
& 0.29082E-07_JPRB,0.14865E-06_JPRB,0.19601E-06_JPRB,0.21490E-06_JPRB,0.21820E-06_JPRB, & |
929 |
|
✗ |
& 0.22779E-06_JPRB,0.21313E-06_JPRB,0.21809E-06_JPRB,0.56635E-07_JPRB /) |
930 |
|
|
KA(:, 5,13, 4) = (/ & |
931 |
|
|
& 0.31856E-07_JPRB,0.16826E-06_JPRB,0.22260E-06_JPRB,0.23930E-06_JPRB,0.23753E-06_JPRB, & |
932 |
|
✗ |
& 0.24098E-06_JPRB,0.23875E-06_JPRB,0.21605E-06_JPRB,0.66316E-07_JPRB /) |
933 |
|
|
KA(:, 1, 1, 5) = (/ & |
934 |
|
|
& 0.17059E-05_JPRB,0.38862E-05_JPRB,0.46330E-05_JPRB,0.51258E-05_JPRB,0.53516E-05_JPRB, & |
935 |
|
✗ |
& 0.52890E-05_JPRB,0.49050E-05_JPRB,0.49561E-05_JPRB,0.24914E-05_JPRB /) |
936 |
|
|
KA(:, 2, 1, 5) = (/ & |
937 |
|
|
& 0.17702E-05_JPRB,0.41613E-05_JPRB,0.49979E-05_JPRB,0.55352E-05_JPRB,0.58535E-05_JPRB, & |
938 |
|
✗ |
& 0.58620E-05_JPRB,0.55540E-05_JPRB,0.53944E-05_JPRB,0.30111E-05_JPRB /) |
939 |
|
|
KA(:, 3, 1, 5) = (/ & |
940 |
|
|
& 0.18268E-05_JPRB,0.44218E-05_JPRB,0.53631E-05_JPRB,0.59894E-05_JPRB,0.63892E-05_JPRB, & |
941 |
|
✗ |
& 0.64888E-05_JPRB,0.63488E-05_JPRB,0.59957E-05_JPRB,0.35253E-05_JPRB /) |
942 |
|
|
KA(:, 4, 1, 5) = (/ & |
943 |
|
|
& 0.18763E-05_JPRB,0.46467E-05_JPRB,0.56969E-05_JPRB,0.64112E-05_JPRB,0.68701E-05_JPRB, & |
944 |
|
✗ |
& 0.70687E-05_JPRB,0.69575E-05_JPRB,0.65330E-05_JPRB,0.40117E-05_JPRB /) |
945 |
|
|
KA(:, 5, 1, 5) = (/ & |
946 |
|
|
& 0.19168E-05_JPRB,0.48702E-05_JPRB,0.60413E-05_JPRB,0.68595E-05_JPRB,0.73828E-05_JPRB, & |
947 |
|
✗ |
& 0.76555E-05_JPRB,0.76620E-05_JPRB,0.72236E-05_JPRB,0.44814E-05_JPRB /) |
948 |
|
|
KA(:, 1, 2, 5) = (/ & |
949 |
|
|
& 0.13807E-05_JPRB,0.32052E-05_JPRB,0.37981E-05_JPRB,0.41868E-05_JPRB,0.43666E-05_JPRB, & |
950 |
|
✗ |
& 0.42966E-05_JPRB,0.39397E-05_JPRB,0.40523E-05_JPRB,0.19972E-05_JPRB /) |
951 |
|
|
|
952 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB22: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_KGB22:PART4',0,ZHOOK_HANDLE) |
960 |
|
|
|
961 |
|
|
|
962 |
|
|
KA(:, 2, 2, 5) = (/ & |
963 |
|
|
& 0.14355E-05_JPRB,0.34375E-05_JPRB,0.40968E-05_JPRB,0.45345E-05_JPRB,0.47869E-05_JPRB, & |
964 |
|
✗ |
& 0.47900E-05_JPRB,0.45121E-05_JPRB,0.44176E-05_JPRB,0.23759E-05_JPRB /) |
965 |
|
|
KA(:, 3, 2, 5) = (/ & |
966 |
|
|
& 0.14839E-05_JPRB,0.36628E-05_JPRB,0.44128E-05_JPRB,0.49223E-05_JPRB,0.52399E-05_JPRB, & |
967 |
|
✗ |
& 0.53302E-05_JPRB,0.51982E-05_JPRB,0.49130E-05_JPRB,0.28052E-05_JPRB /) |
968 |
|
|
KA(:, 4, 2, 5) = (/ & |
969 |
|
|
& 0.15261E-05_JPRB,0.38551E-05_JPRB,0.47116E-05_JPRB,0.52947E-05_JPRB,0.56758E-05_JPRB, & |
970 |
|
✗ |
& 0.58601E-05_JPRB,0.57606E-05_JPRB,0.54224E-05_JPRB,0.31665E-05_JPRB /) |
971 |
|
|
KA(:, 5, 2, 5) = (/ & |
972 |
|
|
& 0.15621E-05_JPRB,0.40345E-05_JPRB,0.49797E-05_JPRB,0.56344E-05_JPRB,0.60672E-05_JPRB, & |
973 |
|
✗ |
& 0.63079E-05_JPRB,0.63076E-05_JPRB,0.59671E-05_JPRB,0.35368E-05_JPRB /) |
974 |
|
|
KA(:, 1, 3, 5) = (/ & |
975 |
|
|
& 0.11048E-05_JPRB,0.25908E-05_JPRB,0.30458E-05_JPRB,0.33480E-05_JPRB,0.34767E-05_JPRB, & |
976 |
|
✗ |
& 0.33444E-05_JPRB,0.30982E-05_JPRB,0.31520E-05_JPRB,0.14943E-05_JPRB /) |
977 |
|
|
KA(:, 2, 3, 5) = (/ & |
978 |
|
|
& 0.11526E-05_JPRB,0.27857E-05_JPRB,0.32915E-05_JPRB,0.36364E-05_JPRB,0.38272E-05_JPRB, & |
979 |
|
✗ |
& 0.38169E-05_JPRB,0.35492E-05_JPRB,0.35141E-05_JPRB,0.17575E-05_JPRB /) |
980 |
|
|
KA(:, 3, 3, 5) = (/ & |
981 |
|
|
& 0.11948E-05_JPRB,0.29688E-05_JPRB,0.35427E-05_JPRB,0.39401E-05_JPRB,0.41747E-05_JPRB, & |
982 |
|
✗ |
& 0.42239E-05_JPRB,0.40766E-05_JPRB,0.39111E-05_JPRB,0.20688E-05_JPRB /) |
983 |
|
|
KA(:, 4, 3, 5) = (/ & |
984 |
|
|
& 0.12319E-05_JPRB,0.31426E-05_JPRB,0.38135E-05_JPRB,0.42625E-05_JPRB,0.45635E-05_JPRB, & |
985 |
|
✗ |
& 0.47062E-05_JPRB,0.46027E-05_JPRB,0.43389E-05_JPRB,0.23873E-05_JPRB /) |
986 |
|
|
KA(:, 5, 3, 5) = (/ & |
987 |
|
|
& 0.12642E-05_JPRB,0.32923E-05_JPRB,0.40402E-05_JPRB,0.45497E-05_JPRB,0.48934E-05_JPRB, & |
988 |
|
✗ |
& 0.50814E-05_JPRB,0.50577E-05_JPRB,0.47614E-05_JPRB,0.26860E-05_JPRB /) |
989 |
|
|
KA(:, 1, 4, 5) = (/ & |
990 |
|
|
& 0.87810E-06_JPRB,0.20726E-05_JPRB,0.24188E-05_JPRB,0.26498E-05_JPRB,0.27201E-05_JPRB, & |
991 |
|
✗ |
& 0.25966E-05_JPRB,0.24215E-05_JPRB,0.25596E-05_JPRB,0.10910E-05_JPRB /) |
992 |
|
|
KA(:, 2, 4, 5) = (/ & |
993 |
|
|
& 0.92113E-06_JPRB,0.22378E-05_JPRB,0.26243E-05_JPRB,0.28859E-05_JPRB,0.30228E-05_JPRB, & |
994 |
|
✗ |
& 0.29855E-05_JPRB,0.27257E-05_JPRB,0.28497E-05_JPRB,0.12952E-05_JPRB /) |
995 |
|
|
KA(:, 3, 4, 5) = (/ & |
996 |
|
|
& 0.95847E-06_JPRB,0.23927E-05_JPRB,0.28323E-05_JPRB,0.31308E-05_JPRB,0.33238E-05_JPRB, & |
997 |
|
✗ |
& 0.33287E-05_JPRB,0.31597E-05_JPRB,0.31032E-05_JPRB,0.15368E-05_JPRB /) |
998 |
|
|
KA(:, 4, 4, 5) = (/ & |
999 |
|
|
& 0.99115E-06_JPRB,0.25350E-05_JPRB,0.30423E-05_JPRB,0.33883E-05_JPRB,0.36085E-05_JPRB, & |
1000 |
|
✗ |
& 0.36829E-05_JPRB,0.35850E-05_JPRB,0.33993E-05_JPRB,0.17502E-05_JPRB /) |
1001 |
|
|
KA(:, 5, 4, 5) = (/ & |
1002 |
|
|
& 0.10199E-05_JPRB,0.26768E-05_JPRB,0.32656E-05_JPRB,0.36641E-05_JPRB,0.39303E-05_JPRB, & |
1003 |
|
✗ |
& 0.40820E-05_JPRB,0.40444E-05_JPRB,0.38038E-05_JPRB,0.20588E-05_JPRB /) |
1004 |
|
|
KA(:, 1, 5, 5) = (/ & |
1005 |
|
|
& 0.69521E-06_JPRB,0.16480E-05_JPRB,0.19136E-05_JPRB,0.20758E-05_JPRB,0.21053E-05_JPRB, & |
1006 |
|
✗ |
& 0.19983E-05_JPRB,0.19384E-05_JPRB,0.21119E-05_JPRB,0.79759E-06_JPRB /) |
1007 |
|
|
KA(:, 2, 5, 5) = (/ & |
1008 |
|
|
& 0.73399E-06_JPRB,0.17885E-05_JPRB,0.20863E-05_JPRB,0.22802E-05_JPRB,0.23681E-05_JPRB, & |
1009 |
|
✗ |
& 0.23078E-05_JPRB,0.21093E-05_JPRB,0.21684E-05_JPRB,0.95048E-06_JPRB /) |
1010 |
|
|
KA(:, 3, 5, 5) = (/ & |
1011 |
|
|
& 0.76704E-06_JPRB,0.19210E-05_JPRB,0.22551E-05_JPRB,0.24823E-05_JPRB,0.26201E-05_JPRB, & |
1012 |
|
✗ |
& 0.26181E-05_JPRB,0.24369E-05_JPRB,0.24387E-05_JPRB,0.11396E-05_JPRB /) |
1013 |
|
|
KA(:, 4, 5, 5) = (/ & |
1014 |
|
|
& 0.79598E-06_JPRB,0.20422E-05_JPRB,0.24305E-05_JPRB,0.26936E-05_JPRB,0.28610E-05_JPRB, & |
1015 |
|
✗ |
& 0.28938E-05_JPRB,0.28032E-05_JPRB,0.26848E-05_JPRB,0.13054E-05_JPRB /) |
1016 |
|
|
KA(:, 5, 5, 5) = (/ & |
1017 |
|
|
& 0.82146E-06_JPRB,0.21630E-05_JPRB,0.26149E-05_JPRB,0.29202E-05_JPRB,0.31281E-05_JPRB, & |
1018 |
|
✗ |
& 0.32364E-05_JPRB,0.31639E-05_JPRB,0.29903E-05_JPRB,0.15503E-05_JPRB /) |
1019 |
|
|
KA(:, 1, 6, 5) = (/ & |
1020 |
|
|
& 0.54790E-06_JPRB,0.12968E-05_JPRB,0.14998E-05_JPRB,0.16199E-05_JPRB,0.16168E-05_JPRB, & |
1021 |
|
✗ |
& 0.15151E-05_JPRB,0.14932E-05_JPRB,0.16380E-05_JPRB,0.58437E-06_JPRB /) |
1022 |
|
|
KA(:, 2, 6, 5) = (/ & |
1023 |
|
|
& 0.58180E-06_JPRB,0.14204E-05_JPRB,0.16474E-05_JPRB,0.17877E-05_JPRB,0.18382E-05_JPRB, & |
1024 |
|
✗ |
& 0.17645E-05_JPRB,0.16359E-05_JPRB,0.17414E-05_JPRB,0.70191E-06_JPRB /) |
1025 |
|
|
KA(:, 3, 6, 5) = (/ & |
1026 |
|
|
& 0.61169E-06_JPRB,0.15332E-05_JPRB,0.17837E-05_JPRB,0.19554E-05_JPRB,0.20462E-05_JPRB, & |
1027 |
|
✗ |
& 0.20343E-05_JPRB,0.18483E-05_JPRB,0.19670E-05_JPRB,0.83824E-06_JPRB /) |
1028 |
|
|
KA(:, 4, 6, 5) = (/ & |
1029 |
|
|
& 0.63729E-06_JPRB,0.16375E-05_JPRB,0.19280E-05_JPRB,0.21247E-05_JPRB,0.22559E-05_JPRB, & |
1030 |
|
✗ |
& 0.22588E-05_JPRB,0.21468E-05_JPRB,0.21190E-05_JPRB,0.96829E-06_JPRB /) |
1031 |
|
|
KA(:, 5, 6, 5) = (/ & |
1032 |
|
|
& 0.65987E-06_JPRB,0.17326E-05_JPRB,0.20710E-05_JPRB,0.23017E-05_JPRB,0.24525E-05_JPRB, & |
1033 |
|
✗ |
& 0.25042E-05_JPRB,0.24377E-05_JPRB,0.23029E-05_JPRB,0.11330E-05_JPRB /) |
1034 |
|
|
KA(:, 1, 7, 5) = (/ & |
1035 |
|
|
& 0.43067E-06_JPRB,0.10147E-05_JPRB,0.11663E-05_JPRB,0.12622E-05_JPRB,0.12316E-05_JPRB, & |
1036 |
|
✗ |
& 0.11186E-05_JPRB,0.12227E-05_JPRB,0.12153E-05_JPRB,0.41960E-06_JPRB /) |
1037 |
|
|
KA(:, 2, 7, 5) = (/ & |
1038 |
|
|
& 0.45965E-06_JPRB,0.11216E-05_JPRB,0.12929E-05_JPRB,0.13935E-05_JPRB,0.14129E-05_JPRB, & |
1039 |
|
✗ |
& 0.13426E-05_JPRB,0.12944E-05_JPRB,0.14463E-05_JPRB,0.51416E-06_JPRB /) |
1040 |
|
|
KA(:, 3, 7, 5) = (/ & |
1041 |
|
|
& 0.48636E-06_JPRB,0.12186E-05_JPRB,0.14109E-05_JPRB,0.15331E-05_JPRB,0.15936E-05_JPRB, & |
1042 |
|
✗ |
& 0.15473E-05_JPRB,0.14164E-05_JPRB,0.14707E-05_JPRB,0.61314E-06_JPRB /) |
1043 |
|
|
KA(:, 4, 7, 5) = (/ & |
1044 |
|
|
& 0.50928E-06_JPRB,0.13071E-05_JPRB,0.15237E-05_JPRB,0.16740E-05_JPRB,0.17644E-05_JPRB, & |
1045 |
|
✗ |
& 0.17562E-05_JPRB,0.16373E-05_JPRB,0.16431E-05_JPRB,0.72862E-06_JPRB /) |
1046 |
|
|
KA(:, 5, 7, 5) = (/ & |
1047 |
|
|
& 0.52919E-06_JPRB,0.13890E-05_JPRB,0.16443E-05_JPRB,0.18186E-05_JPRB,0.19296E-05_JPRB, & |
1048 |
|
✗ |
& 0.19451E-05_JPRB,0.18786E-05_JPRB,0.17942E-05_JPRB,0.84235E-06_JPRB /) |
1049 |
|
|
KA(:, 1, 8, 5) = (/ & |
1050 |
|
|
& 0.33792E-06_JPRB,0.78856E-06_JPRB,0.90464E-06_JPRB,0.98317E-06_JPRB,0.92848E-06_JPRB, & |
1051 |
|
✗ |
& 0.86387E-06_JPRB,0.95438E-06_JPRB,0.90887E-06_JPRB,0.29529E-06_JPRB /) |
1052 |
|
|
KA(:, 2, 8, 5) = (/ & |
1053 |
|
|
& 0.36263E-06_JPRB,0.88071E-06_JPRB,0.10121E-05_JPRB,0.10878E-05_JPRB,0.10817E-05_JPRB, & |
1054 |
|
✗ |
& 0.10133E-05_JPRB,0.10031E-05_JPRB,0.11161E-05_JPRB,0.37413E-06_JPRB /) |
1055 |
|
|
KA(:, 3, 8, 5) = (/ & |
1056 |
|
|
& 0.38563E-06_JPRB,0.96560E-06_JPRB,0.11116E-05_JPRB,0.12011E-05_JPRB,0.12324E-05_JPRB, & |
1057 |
|
✗ |
& 0.11848E-05_JPRB,0.10927E-05_JPRB,0.11776E-05_JPRB,0.44987E-06_JPRB /) |
1058 |
|
|
KA(:, 4, 8, 5) = (/ & |
1059 |
|
|
& 0.40622E-06_JPRB,0.10407E-05_JPRB,0.12047E-05_JPRB,0.13138E-05_JPRB,0.13745E-05_JPRB, & |
1060 |
|
✗ |
& 0.13598E-05_JPRB,0.12356E-05_JPRB,0.13203E-05_JPRB,0.54288E-06_JPRB /) |
1061 |
|
|
KA(:, 5, 8, 5) = (/ & |
1062 |
|
|
& 0.42386E-06_JPRB,0.11111E-05_JPRB,0.13019E-05_JPRB,0.14302E-05_JPRB,0.15146E-05_JPRB, & |
1063 |
|
✗ |
& 0.15112E-05_JPRB,0.14255E-05_JPRB,0.14090E-05_JPRB,0.62729E-06_JPRB /) |
1064 |
|
|
KA(:, 1, 9, 5) = (/ & |
1065 |
|
|
& 0.26432E-06_JPRB,0.60726E-06_JPRB,0.70036E-06_JPRB,0.76229E-06_JPRB,0.71577E-06_JPRB, & |
1066 |
|
✗ |
& 0.69749E-06_JPRB,0.70164E-06_JPRB,0.72668E-06_JPRB,0.20659E-06_JPRB /) |
1067 |
|
|
KA(:, 2, 9, 5) = (/ & |
1068 |
|
|
& 0.28549E-06_JPRB,0.68848E-06_JPRB,0.78705E-06_JPRB,0.84862E-06_JPRB,0.82241E-06_JPRB, & |
1069 |
|
✗ |
& 0.74707E-06_JPRB,0.82519E-06_JPRB,0.82938E-06_JPRB,0.27449E-06_JPRB /) |
1070 |
|
|
KA(:, 3, 9, 5) = (/ & |
1071 |
|
|
& 0.30511E-06_JPRB,0.76168E-06_JPRB,0.87199E-06_JPRB,0.93359E-06_JPRB,0.94531E-06_JPRB, & |
1072 |
|
✗ |
& 0.89794E-06_JPRB,0.85947E-06_JPRB,0.97111E-06_JPRB,0.33410E-06_JPRB /) |
1073 |
|
|
KA(:, 4, 9, 5) = (/ & |
1074 |
|
|
& 0.32329E-06_JPRB,0.82660E-06_JPRB,0.95163E-06_JPRB,0.10287E-05_JPRB,0.10680E-05_JPRB, & |
1075 |
|
✗ |
& 0.10381E-05_JPRB,0.94558E-06_JPRB,0.98374E-06_JPRB,0.39896E-06_JPRB /) |
1076 |
|
|
KA(:, 5, 9, 5) = (/ & |
1077 |
|
|
& 0.33897E-06_JPRB,0.88614E-06_JPRB,0.10276E-05_JPRB,0.11239E-05_JPRB,0.11817E-05_JPRB, & |
1078 |
|
✗ |
& 0.11723E-05_JPRB,0.10892E-05_JPRB,0.10943E-05_JPRB,0.47438E-06_JPRB /) |
1079 |
|
|
KA(:, 1,10, 5) = (/ & |
1080 |
|
|
& 0.20748E-06_JPRB,0.47023E-06_JPRB,0.54165E-06_JPRB,0.58159E-06_JPRB,0.54422E-06_JPRB, & |
1081 |
|
✗ |
& 0.55116E-06_JPRB,0.57712E-06_JPRB,0.60571E-06_JPRB,0.14752E-06_JPRB /) |
1082 |
|
|
KA(:, 2,10, 5) = (/ & |
1083 |
|
|
& 0.22561E-06_JPRB,0.54027E-06_JPRB,0.61555E-06_JPRB,0.66550E-06_JPRB,0.62550E-06_JPRB, & |
1084 |
|
✗ |
& 0.58306E-06_JPRB,0.64781E-06_JPRB,0.63365E-06_JPRB,0.19821E-06_JPRB /) |
1085 |
|
|
KA(:, 3,10, 5) = (/ & |
1086 |
|
|
& 0.24219E-06_JPRB,0.60251E-06_JPRB,0.68703E-06_JPRB,0.73412E-06_JPRB,0.72965E-06_JPRB, & |
1087 |
|
✗ |
& 0.68255E-06_JPRB,0.67291E-06_JPRB,0.76422E-06_JPRB,0.24874E-06_JPRB /) |
1088 |
|
|
KA(:, 4,10, 5) = (/ & |
1089 |
|
|
& 0.25766E-06_JPRB,0.65861E-06_JPRB,0.75375E-06_JPRB,0.81214E-06_JPRB,0.83171E-06_JPRB, & |
1090 |
|
✗ |
& 0.80129E-06_JPRB,0.73385E-06_JPRB,0.78864E-06_JPRB,0.29867E-06_JPRB /) |
1091 |
|
|
KA(:, 5,10, 5) = (/ & |
1092 |
|
|
& 0.27157E-06_JPRB,0.70870E-06_JPRB,0.81638E-06_JPRB,0.88593E-06_JPRB,0.92651E-06_JPRB, & |
1093 |
|
✗ |
& 0.91449E-06_JPRB,0.83048E-06_JPRB,0.88651E-06_JPRB,0.36087E-06_JPRB /) |
1094 |
|
|
KA(:, 1,11, 5) = (/ & |
1095 |
|
|
& 0.16984E-06_JPRB,0.38981E-06_JPRB,0.44742E-06_JPRB,0.48022E-06_JPRB,0.44950E-06_JPRB, & |
1096 |
|
✗ |
& 0.45173E-06_JPRB,0.47333E-06_JPRB,0.50203E-06_JPRB,0.12166E-06_JPRB /) |
1097 |
|
|
KA(:, 2,11, 5) = (/ & |
1098 |
|
|
& 0.18466E-06_JPRB,0.44753E-06_JPRB,0.50754E-06_JPRB,0.54744E-06_JPRB,0.51342E-06_JPRB, & |
1099 |
|
✗ |
& 0.47893E-06_JPRB,0.53296E-06_JPRB,0.51992E-06_JPRB,0.16283E-06_JPRB /) |
1100 |
|
|
KA(:, 3,11, 5) = (/ & |
1101 |
|
|
& 0.19826E-06_JPRB,0.49803E-06_JPRB,0.56578E-06_JPRB,0.60333E-06_JPRB,0.60031E-06_JPRB, & |
1102 |
|
✗ |
& 0.56085E-06_JPRB,0.55152E-06_JPRB,0.63442E-06_JPRB,0.20412E-06_JPRB /) |
1103 |
|
|
KA(:, 4,11, 5) = (/ & |
1104 |
|
|
& 0.21087E-06_JPRB,0.54349E-06_JPRB,0.62058E-06_JPRB,0.66722E-06_JPRB,0.68339E-06_JPRB, & |
1105 |
|
✗ |
& 0.65819E-06_JPRB,0.60140E-06_JPRB,0.64555E-06_JPRB,0.24501E-06_JPRB /) |
1106 |
|
|
KA(:, 5,11, 5) = (/ & |
1107 |
|
|
& 0.22228E-06_JPRB,0.58430E-06_JPRB,0.67139E-06_JPRB,0.72733E-06_JPRB,0.76067E-06_JPRB, & |
1108 |
|
✗ |
& 0.75025E-06_JPRB,0.68133E-06_JPRB,0.72307E-06_JPRB,0.29566E-06_JPRB /) |
1109 |
|
|
KA(:, 1,12, 5) = (/ & |
1110 |
|
|
& 0.13908E-06_JPRB,0.32322E-06_JPRB,0.36926E-06_JPRB,0.39668E-06_JPRB,0.37094E-06_JPRB, & |
1111 |
|
✗ |
& 0.37104E-06_JPRB,0.38736E-06_JPRB,0.41059E-06_JPRB,0.10018E-06_JPRB /) |
1112 |
|
|
KA(:, 2,12, 5) = (/ & |
1113 |
|
|
& 0.15119E-06_JPRB,0.37037E-06_JPRB,0.41804E-06_JPRB,0.44988E-06_JPRB,0.42138E-06_JPRB, & |
1114 |
|
✗ |
& 0.39334E-06_JPRB,0.43800E-06_JPRB,0.42649E-06_JPRB,0.13384E-06_JPRB /) |
1115 |
|
|
KA(:, 3,12, 5) = (/ & |
1116 |
|
|
& 0.16232E-06_JPRB,0.41107E-06_JPRB,0.46554E-06_JPRB,0.49568E-06_JPRB,0.49349E-06_JPRB, & |
1117 |
|
✗ |
& 0.46062E-06_JPRB,0.45205E-06_JPRB,0.52165E-06_JPRB,0.16749E-06_JPRB /) |
1118 |
|
|
KA(:, 4,12, 5) = (/ & |
1119 |
|
|
& 0.17268E-06_JPRB,0.44802E-06_JPRB,0.51028E-06_JPRB,0.54757E-06_JPRB,0.56096E-06_JPRB, & |
1120 |
|
✗ |
& 0.54041E-06_JPRB,0.49303E-06_JPRB,0.52723E-06_JPRB,0.20095E-06_JPRB /) |
1121 |
|
|
KA(:, 5,12, 5) = (/ & |
1122 |
|
|
& 0.18199E-06_JPRB,0.48092E-06_JPRB,0.55149E-06_JPRB,0.59694E-06_JPRB,0.62405E-06_JPRB, & |
1123 |
|
✗ |
& 0.61534E-06_JPRB,0.55851E-06_JPRB,0.58926E-06_JPRB,0.24228E-06_JPRB /) |
1124 |
|
|
KA(:, 1,13, 5) = (/ & |
1125 |
|
|
& 0.11387E-06_JPRB,0.26741E-06_JPRB,0.30441E-06_JPRB,0.32687E-06_JPRB,0.30479E-06_JPRB, & |
1126 |
|
✗ |
& 0.30477E-06_JPRB,0.31768E-06_JPRB,0.33316E-06_JPRB,0.82090E-07_JPRB /) |
1127 |
|
|
KA(:, 2,13, 5) = (/ & |
1128 |
|
|
& 0.12381E-06_JPRB,0.30579E-06_JPRB,0.34391E-06_JPRB,0.36935E-06_JPRB,0.34578E-06_JPRB, & |
1129 |
|
✗ |
& 0.32317E-06_JPRB,0.35995E-06_JPRB,0.35099E-06_JPRB,0.10981E-06_JPRB /) |
1130 |
|
|
KA(:, 3,13, 5) = (/ & |
1131 |
|
|
& 0.13290E-06_JPRB,0.33871E-06_JPRB,0.38265E-06_JPRB,0.40672E-06_JPRB,0.40511E-06_JPRB, & |
1132 |
|
✗ |
& 0.37796E-06_JPRB,0.36986E-06_JPRB,0.42813E-06_JPRB,0.13721E-06_JPRB /) |
1133 |
|
|
KA(:, 4,13, 5) = (/ & |
1134 |
|
|
& 0.14135E-06_JPRB,0.36878E-06_JPRB,0.41898E-06_JPRB,0.44916E-06_JPRB,0.46012E-06_JPRB, & |
1135 |
|
✗ |
& 0.44348E-06_JPRB,0.40383E-06_JPRB,0.43087E-06_JPRB,0.16460E-06_JPRB /) |
1136 |
|
|
KA(:, 5,13, 5) = (/ & |
1137 |
|
|
& 0.14898E-06_JPRB,0.39524E-06_JPRB,0.45245E-06_JPRB,0.48939E-06_JPRB,0.51148E-06_JPRB, & |
1138 |
|
✗ |
& 0.50420E-06_JPRB,0.45753E-06_JPRB,0.48088E-06_JPRB,0.19843E-06_JPRB /) |
1139 |
|
|
KA(:, 1, 1, 6) = (/ & |
1140 |
|
|
& 0.49835E-05_JPRB,0.73512E-05_JPRB,0.88016E-05_JPRB,0.97115E-05_JPRB,0.10342E-04_JPRB, & |
1141 |
|
✗ |
& 0.10688E-04_JPRB,0.10747E-04_JPRB,0.97587E-05_JPRB,0.57353E-05_JPRB /) |
1142 |
|
|
KA(:, 2, 1, 6) = (/ & |
1143 |
|
|
& 0.49823E-05_JPRB,0.77944E-05_JPRB,0.95403E-05_JPRB,0.10739E-04_JPRB,0.11522E-04_JPRB, & |
1144 |
|
✗ |
& 0.11974E-04_JPRB,0.12019E-04_JPRB,0.11200E-04_JPRB,0.69362E-05_JPRB /) |
1145 |
|
|
KA(:, 3, 1, 6) = (/ & |
1146 |
|
|
& 0.49638E-05_JPRB,0.82513E-05_JPRB,0.10343E-04_JPRB,0.11836E-04_JPRB,0.12804E-04_JPRB, & |
1147 |
|
✗ |
& 0.13375E-04_JPRB,0.13427E-04_JPRB,0.12807E-04_JPRB,0.83325E-05_JPRB /) |
1148 |
|
|
KA(:, 4, 1, 6) = (/ & |
1149 |
|
|
& 0.49300E-05_JPRB,0.87230E-05_JPRB,0.11131E-04_JPRB,0.12834E-04_JPRB,0.13980E-04_JPRB, & |
1150 |
|
✗ |
& 0.14660E-04_JPRB,0.14790E-04_JPRB,0.14186E-04_JPRB,0.94893E-05_JPRB /) |
1151 |
|
|
KA(:, 5, 1, 6) = (/ & |
1152 |
|
|
& 0.48886E-05_JPRB,0.92046E-05_JPRB,0.11933E-04_JPRB,0.13885E-04_JPRB,0.15255E-04_JPRB, & |
1153 |
|
✗ |
& 0.16071E-04_JPRB,0.16239E-04_JPRB,0.15605E-04_JPRB,0.10917E-04_JPRB /) |
1154 |
|
|
KA(:, 1, 2, 6) = (/ & |
1155 |
|
|
& 0.41174E-05_JPRB,0.62362E-05_JPRB,0.73897E-05_JPRB,0.81161E-05_JPRB,0.86061E-05_JPRB, & |
1156 |
|
✗ |
& 0.88364E-05_JPRB,0.89272E-05_JPRB,0.81534E-05_JPRB,0.45187E-05_JPRB /) |
1157 |
|
|
KA(:, 2, 2, 6) = (/ & |
1158 |
|
|
& 0.41154E-05_JPRB,0.66112E-05_JPRB,0.80274E-05_JPRB,0.90030E-05_JPRB,0.96264E-05_JPRB, & |
1159 |
|
✗ |
& 0.99529E-05_JPRB,0.10004E-04_JPRB,0.93836E-05_JPRB,0.55300E-05_JPRB /) |
1160 |
|
|
KA(:, 3, 2, 6) = (/ & |
1161 |
|
|
& 0.40999E-05_JPRB,0.69972E-05_JPRB,0.87232E-05_JPRB,0.99464E-05_JPRB,0.10738E-04_JPRB, & |
1162 |
|
✗ |
& 0.11186E-04_JPRB,0.11235E-04_JPRB,0.10760E-04_JPRB,0.66656E-05_JPRB /) |
1163 |
|
|
KA(:, 4, 2, 6) = (/ & |
1164 |
|
|
& 0.40728E-05_JPRB,0.73933E-05_JPRB,0.94032E-05_JPRB,0.10842E-04_JPRB,0.11807E-04_JPRB, & |
1165 |
|
✗ |
& 0.12371E-04_JPRB,0.12495E-04_JPRB,0.12016E-04_JPRB,0.78073E-05_JPRB /) |
1166 |
|
|
KA(:, 5, 2, 6) = (/ & |
1167 |
|
|
& 0.40371E-05_JPRB,0.77954E-05_JPRB,0.10060E-04_JPRB,0.11710E-04_JPRB,0.12855E-04_JPRB, & |
1168 |
|
✗ |
& 0.13529E-04_JPRB,0.13658E-04_JPRB,0.13169E-04_JPRB,0.88462E-05_JPRB /) |
1169 |
|
|
KA(:, 1, 3, 6) = (/ & |
1170 |
|
|
& 0.33911E-05_JPRB,0.51807E-05_JPRB,0.60524E-05_JPRB,0.65745E-05_JPRB,0.69209E-05_JPRB, & |
1171 |
|
✗ |
& 0.70496E-05_JPRB,0.71376E-05_JPRB,0.64864E-05_JPRB,0.34232E-05_JPRB /) |
1172 |
|
|
KA(:, 2, 3, 6) = (/ & |
1173 |
|
|
& 0.33916E-05_JPRB,0.54910E-05_JPRB,0.65875E-05_JPRB,0.73243E-05_JPRB,0.77878E-05_JPRB, & |
1174 |
|
✗ |
& 0.79847E-05_JPRB,0.80332E-05_JPRB,0.75309E-05_JPRB,0.42228E-05_JPRB /) |
1175 |
|
|
KA(:, 3, 3, 6) = (/ & |
1176 |
|
|
& 0.33813E-05_JPRB,0.58057E-05_JPRB,0.71503E-05_JPRB,0.80869E-05_JPRB,0.86798E-05_JPRB, & |
1177 |
|
✗ |
& 0.89845E-05_JPRB,0.90042E-05_JPRB,0.85938E-05_JPRB,0.50519E-05_JPRB /) |
1178 |
|
|
KA(:, 4, 3, 6) = (/ & |
1179 |
|
|
& 0.33618E-05_JPRB,0.61503E-05_JPRB,0.77470E-05_JPRB,0.88947E-05_JPRB,0.96421E-05_JPRB, & |
1180 |
|
✗ |
& 0.10056E-04_JPRB,0.10131E-04_JPRB,0.97836E-05_JPRB,0.60817E-05_JPRB /) |
1181 |
|
|
KA(:, 5, 3, 6) = (/ & |
1182 |
|
|
& 0.33346E-05_JPRB,0.64834E-05_JPRB,0.82992E-05_JPRB,0.96266E-05_JPRB,0.10527E-04_JPRB, & |
1183 |
|
✗ |
& 0.11042E-04_JPRB,0.11154E-04_JPRB,0.10788E-04_JPRB,0.69208E-05_JPRB /) |
1184 |
|
|
KA(:, 1, 4, 6) = (/ & |
1185 |
|
|
& 0.27862E-05_JPRB,0.42534E-05_JPRB,0.48987E-05_JPRB,0.52435E-05_JPRB,0.54733E-05_JPRB, & |
1186 |
|
✗ |
& 0.55364E-05_JPRB,0.55872E-05_JPRB,0.49226E-05_JPRB,0.25436E-05_JPRB /) |
1187 |
|
|
KA(:, 2, 4, 6) = (/ & |
1188 |
|
|
& 0.27893E-05_JPRB,0.45093E-05_JPRB,0.53394E-05_JPRB,0.58691E-05_JPRB,0.61855E-05_JPRB, & |
1189 |
|
✗ |
& 0.63070E-05_JPRB,0.63399E-05_JPRB,0.58599E-05_JPRB,0.31726E-05_JPRB /) |
1190 |
|
|
KA(:, 3, 4, 6) = (/ & |
1191 |
|
|
& 0.27843E-05_JPRB,0.47714E-05_JPRB,0.58075E-05_JPRB,0.65048E-05_JPRB,0.69158E-05_JPRB, & |
1192 |
|
✗ |
& 0.71341E-05_JPRB,0.71529E-05_JPRB,0.67578E-05_JPRB,0.38485E-05_JPRB /) |
1193 |
|
|
KA(:, 4, 4, 6) = (/ & |
1194 |
|
|
& 0.27713E-05_JPRB,0.50491E-05_JPRB,0.62824E-05_JPRB,0.71451E-05_JPRB,0.76931E-05_JPRB, & |
1195 |
|
✗ |
& 0.79968E-05_JPRB,0.80403E-05_JPRB,0.77391E-05_JPRB,0.46093E-05_JPRB /) |
1196 |
|
|
KA(:, 5, 4, 6) = (/ & |
1197 |
|
|
& 0.27517E-05_JPRB,0.53526E-05_JPRB,0.67897E-05_JPRB,0.78357E-05_JPRB,0.85357E-05_JPRB, & |
1198 |
|
✗ |
& 0.89260E-05_JPRB,0.90160E-05_JPRB,0.87287E-05_JPRB,0.54226E-05_JPRB /) |
1199 |
|
|
KA(:, 1, 5, 6) = (/ & |
1200 |
|
|
& 0.22852E-05_JPRB,0.34704E-05_JPRB,0.39351E-05_JPRB,0.41626E-05_JPRB,0.42797E-05_JPRB, & |
1201 |
|
✗ |
& 0.43078E-05_JPRB,0.42289E-05_JPRB,0.36572E-05_JPRB,0.18725E-05_JPRB /) |
1202 |
|
|
KA(:, 2, 5, 6) = (/ & |
1203 |
|
|
& 0.22904E-05_JPRB,0.36828E-05_JPRB,0.42969E-05_JPRB,0.46636E-05_JPRB,0.48818E-05_JPRB, & |
1204 |
|
✗ |
& 0.49227E-05_JPRB,0.49640E-05_JPRB,0.45776E-05_JPRB,0.23620E-05_JPRB /) |
1205 |
|
|
KA(:, 3, 5, 6) = (/ & |
1206 |
|
|
& 0.22883E-05_JPRB,0.38995E-05_JPRB,0.46830E-05_JPRB,0.51887E-05_JPRB,0.54814E-05_JPRB, & |
1207 |
|
✗ |
& 0.56039E-05_JPRB,0.56350E-05_JPRB,0.52624E-05_JPRB,0.29139E-05_JPRB /) |
1208 |
|
|
KA(:, 4, 5, 6) = (/ & |
1209 |
|
|
& 0.22808E-05_JPRB,0.41317E-05_JPRB,0.50763E-05_JPRB,0.57196E-05_JPRB,0.61208E-05_JPRB, & |
1210 |
|
✗ |
& 0.63389E-05_JPRB,0.63549E-05_JPRB,0.60859E-05_JPRB,0.35219E-05_JPRB /) |
1211 |
|
|
KA(:, 5, 5, 6) = (/ & |
1212 |
|
|
& 0.22671E-05_JPRB,0.43851E-05_JPRB,0.54991E-05_JPRB,0.62948E-05_JPRB,0.68249E-05_JPRB, & |
1213 |
|
✗ |
& 0.71098E-05_JPRB,0.71755E-05_JPRB,0.69558E-05_JPRB,0.41900E-05_JPRB /) |
1214 |
|
|
KA(:, 1, 6, 6) = (/ & |
1215 |
|
|
& 0.18699E-05_JPRB,0.28114E-05_JPRB,0.31400E-05_JPRB,0.32683E-05_JPRB,0.33153E-05_JPRB, & |
1216 |
|
✗ |
& 0.33008E-05_JPRB,0.31920E-05_JPRB,0.27860E-05_JPRB,0.13420E-05_JPRB /) |
1217 |
|
|
KA(:, 2, 6, 6) = (/ & |
1218 |
|
|
& 0.18773E-05_JPRB,0.29859E-05_JPRB,0.34309E-05_JPRB,0.36695E-05_JPRB,0.38007E-05_JPRB, & |
1219 |
|
✗ |
& 0.38091E-05_JPRB,0.38180E-05_JPRB,0.34314E-05_JPRB,0.17179E-05_JPRB /) |
1220 |
|
|
KA(:, 3, 6, 6) = (/ & |
1221 |
|
|
& 0.18783E-05_JPRB,0.31642E-05_JPRB,0.37448E-05_JPRB,0.40997E-05_JPRB,0.43019E-05_JPRB, & |
1222 |
|
✗ |
& 0.43546E-05_JPRB,0.43740E-05_JPRB,0.40084E-05_JPRB,0.21605E-05_JPRB /) |
1223 |
|
|
KA(:, 4, 6, 6) = (/ & |
1224 |
|
|
& 0.18743E-05_JPRB,0.33566E-05_JPRB,0.40684E-05_JPRB,0.45371E-05_JPRB,0.48151E-05_JPRB, & |
1225 |
|
✗ |
& 0.49624E-05_JPRB,0.49624E-05_JPRB,0.47228E-05_JPRB,0.26431E-05_JPRB /) |
1226 |
|
|
KA(:, 5, 6, 6) = (/ & |
1227 |
|
|
& 0.18657E-05_JPRB,0.35541E-05_JPRB,0.43955E-05_JPRB,0.49826E-05_JPRB,0.53649E-05_JPRB, & |
1228 |
|
✗ |
& 0.55694E-05_JPRB,0.55990E-05_JPRB,0.54328E-05_JPRB,0.31359E-05_JPRB /) |
1229 |
|
|
KA(:, 1, 7, 6) = (/ & |
1230 |
|
|
& 0.15270E-05_JPRB,0.22681E-05_JPRB,0.24953E-05_JPRB,0.25538E-05_JPRB,0.25397E-05_JPRB, & |
1231 |
|
✗ |
& 0.25315E-05_JPRB,0.23299E-05_JPRB,0.21035E-05_JPRB,0.95748E-06_JPRB /) |
1232 |
|
|
KA(:, 2, 7, 6) = (/ & |
1233 |
|
|
& 0.15365E-05_JPRB,0.24113E-05_JPRB,0.27304E-05_JPRB,0.28767E-05_JPRB,0.29339E-05_JPRB, & |
1234 |
|
✗ |
& 0.29290E-05_JPRB,0.28728E-05_JPRB,0.24852E-05_JPRB,0.12383E-05_JPRB /) |
1235 |
|
|
KA(:, 3, 7, 6) = (/ & |
1236 |
|
|
& 0.15398E-05_JPRB,0.25576E-05_JPRB,0.29821E-05_JPRB,0.32226E-05_JPRB,0.33508E-05_JPRB, & |
1237 |
|
✗ |
& 0.33584E-05_JPRB,0.33733E-05_JPRB,0.31044E-05_JPRB,0.15900E-05_JPRB /) |
1238 |
|
|
KA(:, 4, 7, 6) = (/ & |
1239 |
|
|
& 0.15385E-05_JPRB,0.27150E-05_JPRB,0.32458E-05_JPRB,0.35802E-05_JPRB,0.37697E-05_JPRB, & |
1240 |
|
✗ |
& 0.38500E-05_JPRB,0.38510E-05_JPRB,0.36169E-05_JPRB,0.19605E-05_JPRB /) |
1241 |
|
|
KA(:, 5, 7, 6) = (/ & |
1242 |
|
|
& 0.15336E-05_JPRB,0.28792E-05_JPRB,0.35139E-05_JPRB,0.39460E-05_JPRB,0.42149E-05_JPRB, & |
1243 |
|
✗ |
& 0.43622E-05_JPRB,0.43664E-05_JPRB,0.42187E-05_JPRB,0.23523E-05_JPRB /) |
1244 |
|
|
KA(:, 1, 8, 6) = (/ & |
1245 |
|
|
& 0.12444E-05_JPRB,0.18266E-05_JPRB,0.19784E-05_JPRB,0.19900E-05_JPRB,0.19390E-05_JPRB, & |
1246 |
|
✗ |
& 0.19235E-05_JPRB,0.17231E-05_JPRB,0.16995E-05_JPRB,0.68590E-06_JPRB /) |
1247 |
|
|
KA(:, 2, 8, 6) = (/ & |
1248 |
|
|
& 0.12557E-05_JPRB,0.19427E-05_JPRB,0.21667E-05_JPRB,0.22465E-05_JPRB,0.22625E-05_JPRB, & |
1249 |
|
✗ |
& 0.22377E-05_JPRB,0.21596E-05_JPRB,0.18759E-05_JPRB,0.89490E-06_JPRB /) |
1250 |
|
|
KA(:, 3, 8, 6) = (/ & |
1251 |
|
|
& 0.12608E-05_JPRB,0.20627E-05_JPRB,0.23694E-05_JPRB,0.25224E-05_JPRB,0.25961E-05_JPRB, & |
1252 |
|
✗ |
& 0.25892E-05_JPRB,0.25887E-05_JPRB,0.23400E-05_JPRB,0.11490E-05_JPRB /) |
1253 |
|
|
|
1254 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB22: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_KGB22:PART5',0,ZHOOK_HANDLE) |
1262 |
|
|
|
1263 |
|
|
|
1264 |
|
|
KA(:, 4, 8, 6) = (/ & |
1265 |
|
|
& 0.12616E-05_JPRB,0.21916E-05_JPRB,0.25816E-05_JPRB,0.28156E-05_JPRB,0.29418E-05_JPRB, & |
1266 |
|
✗ |
& 0.29759E-05_JPRB,0.29788E-05_JPRB,0.27379E-05_JPRB,0.14416E-05_JPRB /) |
1267 |
|
|
KA(:, 5, 8, 6) = (/ & |
1268 |
|
|
& 0.12590E-05_JPRB,0.23261E-05_JPRB,0.28013E-05_JPRB,0.31131E-05_JPRB,0.32990E-05_JPRB, & |
1269 |
|
✗ |
& 0.33976E-05_JPRB,0.33946E-05_JPRB,0.32600E-05_JPRB,0.17529E-05_JPRB /) |
1270 |
|
|
KA(:, 1, 9, 6) = (/ & |
1271 |
|
|
& 0.10123E-05_JPRB,0.14681E-05_JPRB,0.15612E-05_JPRB,0.15411E-05_JPRB,0.14778E-05_JPRB, & |
1272 |
|
✗ |
& 0.14343E-05_JPRB,0.12992E-05_JPRB,0.13172E-05_JPRB,0.49290E-06_JPRB /) |
1273 |
|
|
KA(:, 2, 9, 6) = (/ & |
1274 |
|
|
& 0.10245E-05_JPRB,0.15617E-05_JPRB,0.17149E-05_JPRB,0.17499E-05_JPRB,0.17312E-05_JPRB, & |
1275 |
|
✗ |
& 0.17144E-05_JPRB,0.15772E-05_JPRB,0.14382E-05_JPRB,0.63132E-06_JPRB /) |
1276 |
|
|
KA(:, 3, 9, 6) = (/ & |
1277 |
|
|
& 0.10311E-05_JPRB,0.16600E-05_JPRB,0.18786E-05_JPRB,0.19738E-05_JPRB,0.20017E-05_JPRB, & |
1278 |
|
✗ |
& 0.19859E-05_JPRB,0.19416E-05_JPRB,0.17139E-05_JPRB,0.82278E-06_JPRB /) |
1279 |
|
|
KA(:, 4, 9, 6) = (/ & |
1280 |
|
|
& 0.10334E-05_JPRB,0.17639E-05_JPRB,0.20493E-05_JPRB,0.22069E-05_JPRB,0.22845E-05_JPRB, & |
1281 |
|
✗ |
& 0.22769E-05_JPRB,0.22855E-05_JPRB,0.21115E-05_JPRB,0.10531E-05_JPRB /) |
1282 |
|
|
KA(:, 5, 9, 6) = (/ & |
1283 |
|
|
& 0.10328E-05_JPRB,0.18738E-05_JPRB,0.22265E-05_JPRB,0.24495E-05_JPRB,0.25737E-05_JPRB, & |
1284 |
|
✗ |
& 0.26232E-05_JPRB,0.26173E-05_JPRB,0.24699E-05_JPRB,0.12950E-05_JPRB /) |
1285 |
|
|
KA(:, 1,10, 6) = (/ & |
1286 |
|
|
& 0.82261E-06_JPRB,0.11811E-05_JPRB,0.12403E-05_JPRB,0.12060E-05_JPRB,0.11493E-05_JPRB, & |
1287 |
|
✗ |
& 0.10907E-05_JPRB,0.98035E-06_JPRB,0.10980E-05_JPRB,0.37316E-06_JPRB /) |
1288 |
|
|
KA(:, 2,10, 6) = (/ & |
1289 |
|
|
& 0.83528E-06_JPRB,0.12595E-05_JPRB,0.13646E-05_JPRB,0.13745E-05_JPRB,0.13365E-05_JPRB, & |
1290 |
|
✗ |
& 0.13172E-05_JPRB,0.11846E-05_JPRB,0.11491E-05_JPRB,0.46158E-06_JPRB /) |
1291 |
|
|
KA(:, 3,10, 6) = (/ & |
1292 |
|
|
& 0.84255E-06_JPRB,0.13392E-05_JPRB,0.14968E-05_JPRB,0.15528E-05_JPRB,0.15573E-05_JPRB, & |
1293 |
|
✗ |
& 0.15339E-05_JPRB,0.14802E-05_JPRB,0.12811E-05_JPRB,0.60300E-06_JPRB /) |
1294 |
|
|
KA(:, 4,10, 6) = (/ & |
1295 |
|
|
& 0.84587E-06_JPRB,0.14245E-05_JPRB,0.16355E-05_JPRB,0.17381E-05_JPRB,0.17835E-05_JPRB, & |
1296 |
|
✗ |
& 0.17693E-05_JPRB,0.17683E-05_JPRB,0.16097E-05_JPRB,0.77730E-06_JPRB /) |
1297 |
|
|
KA(:, 5,10, 6) = (/ & |
1298 |
|
|
& 0.84627E-06_JPRB,0.15137E-05_JPRB,0.17779E-05_JPRB,0.19378E-05_JPRB,0.20192E-05_JPRB, & |
1299 |
|
✗ |
& 0.20387E-05_JPRB,0.20340E-05_JPRB,0.18636E-05_JPRB,0.96863E-06_JPRB /) |
1300 |
|
|
KA(:, 1,11, 6) = (/ & |
1301 |
|
|
& 0.67388E-06_JPRB,0.97942E-06_JPRB,0.10286E-05_JPRB,0.10023E-05_JPRB,0.95317E-06_JPRB, & |
1302 |
|
✗ |
& 0.90847E-06_JPRB,0.81776E-06_JPRB,0.89345E-06_JPRB,0.30408E-06_JPRB /) |
1303 |
|
|
KA(:, 2,11, 6) = (/ & |
1304 |
|
|
& 0.68407E-06_JPRB,0.10438E-05_JPRB,0.11334E-05_JPRB,0.11425E-05_JPRB,0.11096E-05_JPRB, & |
1305 |
|
✗ |
& 0.10886E-05_JPRB,0.98240E-06_JPRB,0.94798E-06_JPRB,0.38086E-06_JPRB /) |
1306 |
|
|
KA(:, 3,11, 6) = (/ & |
1307 |
|
|
& 0.69000E-06_JPRB,0.11106E-05_JPRB,0.12435E-05_JPRB,0.12890E-05_JPRB,0.12895E-05_JPRB, & |
1308 |
|
✗ |
& 0.12679E-05_JPRB,0.12202E-05_JPRB,0.10522E-05_JPRB,0.49623E-06_JPRB /) |
1309 |
|
|
KA(:, 4,11, 6) = (/ & |
1310 |
|
|
& 0.69276E-06_JPRB,0.11824E-05_JPRB,0.13564E-05_JPRB,0.14402E-05_JPRB,0.14763E-05_JPRB, & |
1311 |
|
✗ |
& 0.14628E-05_JPRB,0.14599E-05_JPRB,0.13328E-05_JPRB,0.63979E-06_JPRB /) |
1312 |
|
|
KA(:, 5,11, 6) = (/ & |
1313 |
|
|
& 0.69302E-06_JPRB,0.12555E-05_JPRB,0.14740E-05_JPRB,0.16049E-05_JPRB,0.16694E-05_JPRB, & |
1314 |
|
✗ |
& 0.16839E-05_JPRB,0.16772E-05_JPRB,0.15421E-05_JPRB,0.79514E-06_JPRB /) |
1315 |
|
|
KA(:, 1,12, 6) = (/ & |
1316 |
|
|
& 0.55214E-06_JPRB,0.81079E-06_JPRB,0.85249E-06_JPRB,0.83175E-06_JPRB,0.78783E-06_JPRB, & |
1317 |
|
✗ |
& 0.75281E-06_JPRB,0.67567E-06_JPRB,0.74075E-06_JPRB,0.24910E-06_JPRB /) |
1318 |
|
|
KA(:, 2,12, 6) = (/ & |
1319 |
|
|
& 0.56029E-06_JPRB,0.86391E-06_JPRB,0.94032E-06_JPRB,0.94758E-06_JPRB,0.91883E-06_JPRB, & |
1320 |
|
✗ |
& 0.89834E-06_JPRB,0.81189E-06_JPRB,0.77883E-06_JPRB,0.31399E-06_JPRB /) |
1321 |
|
|
KA(:, 3,12, 6) = (/ & |
1322 |
|
|
& 0.56504E-06_JPRB,0.92066E-06_JPRB,0.10308E-05_JPRB,0.10667E-05_JPRB,0.10655E-05_JPRB, & |
1323 |
|
✗ |
& 0.10460E-05_JPRB,0.10067E-05_JPRB,0.87150E-06_JPRB,0.40815E-06_JPRB /) |
1324 |
|
|
KA(:, 4,12, 6) = (/ & |
1325 |
|
|
& 0.56721E-06_JPRB,0.97985E-06_JPRB,0.11224E-05_JPRB,0.11915E-05_JPRB,0.12197E-05_JPRB, & |
1326 |
|
✗ |
& 0.12063E-05_JPRB,0.12014E-05_JPRB,0.10950E-05_JPRB,0.52630E-06_JPRB /) |
1327 |
|
|
KA(:, 5,12, 6) = (/ & |
1328 |
|
|
& 0.56742E-06_JPRB,0.10399E-05_JPRB,0.12195E-05_JPRB,0.13255E-05_JPRB,0.13771E-05_JPRB, & |
1329 |
|
✗ |
& 0.13876E-05_JPRB,0.13807E-05_JPRB,0.12724E-05_JPRB,0.65264E-06_JPRB /) |
1330 |
|
|
KA(:, 1,13, 6) = (/ & |
1331 |
|
|
& 0.45223E-06_JPRB,0.67006E-06_JPRB,0.70582E-06_JPRB,0.68873E-06_JPRB,0.65038E-06_JPRB, & |
1332 |
|
✗ |
& 0.62084E-06_JPRB,0.55442E-06_JPRB,0.60996E-06_JPRB,0.20428E-06_JPRB /) |
1333 |
|
|
KA(:, 2,13, 6) = (/ & |
1334 |
|
|
& 0.45880E-06_JPRB,0.71490E-06_JPRB,0.77859E-06_JPRB,0.78376E-06_JPRB,0.75834E-06_JPRB, & |
1335 |
|
✗ |
& 0.73987E-06_JPRB,0.66959E-06_JPRB,0.63711E-06_JPRB,0.25817E-06_JPRB /) |
1336 |
|
|
KA(:, 3,13, 6) = (/ & |
1337 |
|
|
& 0.46276E-06_JPRB,0.76231E-06_JPRB,0.85214E-06_JPRB,0.88098E-06_JPRB,0.87867E-06_JPRB, & |
1338 |
|
✗ |
& 0.86188E-06_JPRB,0.83033E-06_JPRB,0.72166E-06_JPRB,0.33548E-06_JPRB /) |
1339 |
|
|
KA(:, 4,13, 6) = (/ & |
1340 |
|
|
& 0.46442E-06_JPRB,0.81043E-06_JPRB,0.92714E-06_JPRB,0.98329E-06_JPRB,0.10050E-05_JPRB, & |
1341 |
|
✗ |
& 0.99247E-06_JPRB,0.98770E-06_JPRB,0.89931E-06_JPRB,0.43220E-06_JPRB /) |
1342 |
|
|
KA(:, 5,13, 6) = (/ & |
1343 |
|
|
& 0.46456E-06_JPRB,0.86048E-06_JPRB,0.10065E-05_JPRB,0.10920E-05_JPRB,0.11333E-05_JPRB, & |
1344 |
|
✗ |
& 0.11411E-05_JPRB,0.11342E-05_JPRB,0.10473E-05_JPRB,0.53527E-06_JPRB /) |
1345 |
|
|
KA(:, 1, 1, 7) = (/ & |
1346 |
|
|
& 0.12335E-04_JPRB,0.15987E-04_JPRB,0.18565E-04_JPRB,0.20406E-04_JPRB,0.21636E-04_JPRB, & |
1347 |
|
✗ |
& 0.22077E-04_JPRB,0.21364E-04_JPRB,0.19544E-04_JPRB,0.14733E-04_JPRB /) |
1348 |
|
|
KA(:, 2, 1, 7) = (/ & |
1349 |
|
|
& 0.12351E-04_JPRB,0.17014E-04_JPRB,0.20216E-04_JPRB,0.22480E-04_JPRB,0.24098E-04_JPRB, & |
1350 |
|
✗ |
& 0.24791E-04_JPRB,0.24379E-04_JPRB,0.22600E-04_JPRB,0.17292E-04_JPRB /) |
1351 |
|
|
KA(:, 3, 1, 7) = (/ & |
1352 |
|
|
& 0.12364E-04_JPRB,0.18152E-04_JPRB,0.21907E-04_JPRB,0.24643E-04_JPRB,0.26659E-04_JPRB, & |
1353 |
|
✗ |
& 0.27630E-04_JPRB,0.27512E-04_JPRB,0.25730E-04_JPRB,0.20236E-04_JPRB /) |
1354 |
|
|
KA(:, 4, 1, 7) = (/ & |
1355 |
|
|
& 0.12365E-04_JPRB,0.19320E-04_JPRB,0.23679E-04_JPRB,0.26885E-04_JPRB,0.29225E-04_JPRB, & |
1356 |
|
✗ |
& 0.30430E-04_JPRB,0.30461E-04_JPRB,0.28726E-04_JPRB,0.23208E-04_JPRB /) |
1357 |
|
|
KA(:, 5, 1, 7) = (/ & |
1358 |
|
|
& 0.12355E-04_JPRB,0.20495E-04_JPRB,0.25505E-04_JPRB,0.29189E-04_JPRB,0.31816E-04_JPRB, & |
1359 |
|
✗ |
& 0.33308E-04_JPRB,0.33478E-04_JPRB,0.31898E-04_JPRB,0.26469E-04_JPRB /) |
1360 |
|
|
KA(:, 1, 2, 7) = (/ & |
1361 |
|
|
& 0.10350E-04_JPRB,0.13753E-04_JPRB,0.16101E-04_JPRB,0.17726E-04_JPRB,0.18733E-04_JPRB, & |
1362 |
|
✗ |
& 0.19034E-04_JPRB,0.18319E-04_JPRB,0.16594E-04_JPRB,0.11961E-04_JPRB /) |
1363 |
|
|
KA(:, 2, 2, 7) = (/ & |
1364 |
|
|
& 0.10365E-04_JPRB,0.14706E-04_JPRB,0.17542E-04_JPRB,0.19561E-04_JPRB,0.20895E-04_JPRB, & |
1365 |
|
✗ |
& 0.21420E-04_JPRB,0.21012E-04_JPRB,0.19409E-04_JPRB,0.14130E-04_JPRB /) |
1366 |
|
|
KA(:, 3, 2, 7) = (/ & |
1367 |
|
|
& 0.10364E-04_JPRB,0.15733E-04_JPRB,0.19081E-04_JPRB,0.21505E-04_JPRB,0.23181E-04_JPRB, & |
1368 |
|
✗ |
& 0.23958E-04_JPRB,0.23844E-04_JPRB,0.22334E-04_JPRB,0.16750E-04_JPRB /) |
1369 |
|
|
KA(:, 4, 2, 7) = (/ & |
1370 |
|
|
& 0.10354E-04_JPRB,0.16759E-04_JPRB,0.20670E-04_JPRB,0.23471E-04_JPRB,0.25440E-04_JPRB, & |
1371 |
|
✗ |
& 0.26474E-04_JPRB,0.26560E-04_JPRB,0.25188E-04_JPRB,0.19386E-04_JPRB /) |
1372 |
|
|
KA(:, 5, 2, 7) = (/ & |
1373 |
|
|
& 0.10329E-04_JPRB,0.17823E-04_JPRB,0.22292E-04_JPRB,0.25488E-04_JPRB,0.27703E-04_JPRB, & |
1374 |
|
✗ |
& 0.28957E-04_JPRB,0.29205E-04_JPRB,0.27936E-04_JPRB,0.22026E-04_JPRB /) |
1375 |
|
|
KA(:, 1, 3, 7) = (/ & |
1376 |
|
|
& 0.86408E-05_JPRB,0.11607E-04_JPRB,0.13624E-04_JPRB,0.14928E-04_JPRB,0.15622E-04_JPRB, & |
1377 |
|
✗ |
& 0.15768E-04_JPRB,0.15034E-04_JPRB,0.13540E-04_JPRB,0.91950E-05_JPRB /) |
1378 |
|
|
KA(:, 2, 3, 7) = (/ & |
1379 |
|
|
& 0.86478E-05_JPRB,0.12463E-04_JPRB,0.14889E-04_JPRB,0.16508E-04_JPRB,0.17482E-04_JPRB, & |
1380 |
|
✗ |
& 0.17819E-04_JPRB,0.17439E-04_JPRB,0.15994E-04_JPRB,0.11026E-04_JPRB /) |
1381 |
|
|
KA(:, 3, 3, 7) = (/ & |
1382 |
|
|
& 0.86444E-05_JPRB,0.13354E-04_JPRB,0.16234E-04_JPRB,0.18159E-04_JPRB,0.19394E-04_JPRB, & |
1383 |
|
✗ |
& 0.19962E-04_JPRB,0.19837E-04_JPRB,0.18485E-04_JPRB,0.13087E-04_JPRB /) |
1384 |
|
|
KA(:, 4, 3, 7) = (/ & |
1385 |
|
|
& 0.86273E-05_JPRB,0.14262E-04_JPRB,0.17647E-04_JPRB,0.19921E-04_JPRB,0.21457E-04_JPRB, & |
1386 |
|
✗ |
& 0.22290E-04_JPRB,0.22338E-04_JPRB,0.21203E-04_JPRB,0.15397E-04_JPRB /) |
1387 |
|
|
KA(:, 5, 3, 7) = (/ & |
1388 |
|
|
& 0.85960E-05_JPRB,0.15200E-04_JPRB,0.19031E-04_JPRB,0.21649E-04_JPRB,0.23415E-04_JPRB, & |
1389 |
|
✗ |
& 0.24453E-04_JPRB,0.24660E-04_JPRB,0.23666E-04_JPRB,0.17582E-04_JPRB /) |
1390 |
|
|
KA(:, 1, 4, 7) = (/ & |
1391 |
|
|
& 0.71803E-05_JPRB,0.97101E-05_JPRB,0.11373E-04_JPRB,0.12321E-04_JPRB,0.12789E-04_JPRB, & |
1392 |
|
✗ |
& 0.12803E-04_JPRB,0.12062E-04_JPRB,0.10784E-04_JPRB,0.69624E-05_JPRB /) |
1393 |
|
|
KA(:, 2, 4, 7) = (/ & |
1394 |
|
|
& 0.71855E-05_JPRB,0.10459E-04_JPRB,0.12456E-04_JPRB,0.13673E-04_JPRB,0.14371E-04_JPRB, & |
1395 |
|
✗ |
& 0.14569E-04_JPRB,0.14153E-04_JPRB,0.12788E-04_JPRB,0.84564E-05_JPRB /) |
1396 |
|
|
KA(:, 3, 4, 7) = (/ & |
1397 |
|
|
& 0.71795E-05_JPRB,0.11229E-04_JPRB,0.13608E-04_JPRB,0.15091E-04_JPRB,0.16013E-04_JPRB, & |
1398 |
|
✗ |
& 0.16409E-04_JPRB,0.16232E-04_JPRB,0.15085E-04_JPRB,0.10120E-04_JPRB /) |
1399 |
|
|
KA(:, 4, 4, 7) = (/ & |
1400 |
|
|
& 0.71584E-05_JPRB,0.12023E-04_JPRB,0.14800E-04_JPRB,0.16568E-04_JPRB,0.17732E-04_JPRB, & |
1401 |
|
✗ |
& 0.18336E-04_JPRB,0.18317E-04_JPRB,0.17347E-04_JPRB,0.11917E-04_JPRB /) |
1402 |
|
|
KA(:, 5, 4, 7) = (/ & |
1403 |
|
|
& 0.71267E-05_JPRB,0.12845E-04_JPRB,0.16058E-04_JPRB,0.18162E-04_JPRB,0.19580E-04_JPRB, & |
1404 |
|
✗ |
& 0.20399E-04_JPRB,0.20543E-04_JPRB,0.19767E-04_JPRB,0.13958E-04_JPRB /) |
1405 |
|
|
KA(:, 1, 5, 7) = (/ & |
1406 |
|
|
& 0.59442E-05_JPRB,0.80861E-05_JPRB,0.93878E-05_JPRB,0.10066E-04_JPRB,0.10362E-04_JPRB, & |
1407 |
|
✗ |
& 0.10281E-04_JPRB,0.95734E-05_JPRB,0.84778E-05_JPRB,0.52204E-05_JPRB /) |
1408 |
|
|
KA(:, 2, 5, 7) = (/ & |
1409 |
|
|
& 0.59498E-05_JPRB,0.87281E-05_JPRB,0.10301E-04_JPRB,0.11210E-04_JPRB,0.11702E-04_JPRB, & |
1410 |
|
✗ |
& 0.11782E-04_JPRB,0.11315E-04_JPRB,0.10068E-04_JPRB,0.64302E-05_JPRB /) |
1411 |
|
|
KA(:, 3, 5, 7) = (/ & |
1412 |
|
|
& 0.59430E-05_JPRB,0.93925E-05_JPRB,0.11277E-04_JPRB,0.12419E-04_JPRB,0.13099E-04_JPRB, & |
1413 |
|
✗ |
& 0.13351E-04_JPRB,0.13104E-04_JPRB,0.12095E-04_JPRB,0.77633E-05_JPRB /) |
1414 |
|
|
KA(:, 4, 5, 7) = (/ & |
1415 |
|
|
& 0.59217E-05_JPRB,0.10078E-04_JPRB,0.12288E-04_JPRB,0.13686E-04_JPRB,0.14573E-04_JPRB, & |
1416 |
|
✗ |
& 0.14994E-04_JPRB,0.14908E-04_JPRB,0.14023E-04_JPRB,0.92337E-05_JPRB /) |
1417 |
|
|
KA(:, 5, 5, 7) = (/ & |
1418 |
|
|
& 0.58935E-05_JPRB,0.10789E-04_JPRB,0.13390E-04_JPRB,0.15066E-04_JPRB,0.16172E-04_JPRB, & |
1419 |
|
✗ |
& 0.16788E-04_JPRB,0.16832E-04_JPRB,0.16140E-04_JPRB,0.10913E-04_JPRB /) |
1420 |
|
|
KA(:, 1, 6, 7) = (/ & |
1421 |
|
|
& 0.49077E-05_JPRB,0.66672E-05_JPRB,0.76412E-05_JPRB,0.81181E-05_JPRB,0.82831E-05_JPRB, & |
1422 |
|
✗ |
& 0.81137E-05_JPRB,0.74381E-05_JPRB,0.64600E-05_JPRB,0.38540E-05_JPRB /) |
1423 |
|
|
KA(:, 2, 6, 7) = (/ & |
1424 |
|
|
& 0.49136E-05_JPRB,0.72093E-05_JPRB,0.84100E-05_JPRB,0.90761E-05_JPRB,0.94026E-05_JPRB, & |
1425 |
|
✗ |
& 0.93849E-05_JPRB,0.88761E-05_JPRB,0.77852E-05_JPRB,0.48097E-05_JPRB /) |
1426 |
|
|
KA(:, 3, 6, 7) = (/ & |
1427 |
|
|
& 0.49088E-05_JPRB,0.77732E-05_JPRB,0.92304E-05_JPRB,0.10089E-04_JPRB,0.10581E-04_JPRB, & |
1428 |
|
✗ |
& 0.10707E-04_JPRB,0.10412E-04_JPRB,0.94217E-05_JPRB,0.58741E-05_JPRB /) |
1429 |
|
|
KA(:, 4, 6, 7) = (/ & |
1430 |
|
|
& 0.48919E-05_JPRB,0.83551E-05_JPRB,0.10086E-04_JPRB,0.11166E-04_JPRB,0.11831E-04_JPRB, & |
1431 |
|
✗ |
& 0.12095E-04_JPRB,0.11941E-04_JPRB,0.11106E-04_JPRB,0.70559E-05_JPRB /) |
1432 |
|
|
KA(:, 5, 6, 7) = (/ & |
1433 |
|
|
& 0.48652E-05_JPRB,0.89412E-05_JPRB,0.10983E-04_JPRB,0.12289E-04_JPRB,0.13118E-04_JPRB, & |
1434 |
|
✗ |
& 0.13538E-04_JPRB,0.13477E-04_JPRB,0.12811E-04_JPRB,0.83378E-05_JPRB /) |
1435 |
|
|
KA(:, 1, 7, 7) = (/ & |
1436 |
|
|
& 0.40428E-05_JPRB,0.54588E-05_JPRB,0.61687E-05_JPRB,0.64926E-05_JPRB,0.65568E-05_JPRB, & |
1437 |
|
✗ |
& 0.63259E-05_JPRB,0.56948E-05_JPRB,0.49607E-05_JPRB,0.28237E-05_JPRB /) |
1438 |
|
|
KA(:, 2, 7, 7) = (/ & |
1439 |
|
|
& 0.40484E-05_JPRB,0.59019E-05_JPRB,0.68052E-05_JPRB,0.72891E-05_JPRB,0.74881E-05_JPRB, & |
1440 |
|
✗ |
& 0.73951E-05_JPRB,0.68736E-05_JPRB,0.59771E-05_JPRB,0.35700E-05_JPRB /) |
1441 |
|
|
KA(:, 3, 7, 7) = (/ & |
1442 |
|
|
& 0.40443E-05_JPRB,0.63719E-05_JPRB,0.74936E-05_JPRB,0.81309E-05_JPRB,0.84699E-05_JPRB, & |
1443 |
|
✗ |
& 0.84975E-05_JPRB,0.81643E-05_JPRB,0.72224E-05_JPRB,0.43995E-05_JPRB /) |
1444 |
|
|
KA(:, 4, 7, 7) = (/ & |
1445 |
|
|
& 0.40304E-05_JPRB,0.68636E-05_JPRB,0.82100E-05_JPRB,0.90329E-05_JPRB,0.95142E-05_JPRB, & |
1446 |
|
✗ |
& 0.96616E-05_JPRB,0.94576E-05_JPRB,0.86932E-05_JPRB,0.53385E-05_JPRB /) |
1447 |
|
|
KA(:, 5, 7, 7) = (/ & |
1448 |
|
|
& 0.40097E-05_JPRB,0.73587E-05_JPRB,0.89665E-05_JPRB,0.99825E-05_JPRB,0.10592E-04_JPRB, & |
1449 |
|
✗ |
& 0.10860E-04_JPRB,0.10751E-04_JPRB,0.10114E-04_JPRB,0.63905E-05_JPRB /) |
1450 |
|
|
KA(:, 1, 8, 7) = (/ & |
1451 |
|
|
& 0.33247E-05_JPRB,0.44437E-05_JPRB,0.49476E-05_JPRB,0.51623E-05_JPRB,0.51521E-05_JPRB, & |
1452 |
|
✗ |
& 0.48927E-05_JPRB,0.43130E-05_JPRB,0.36508E-05_JPRB,0.20433E-05_JPRB /) |
1453 |
|
|
KA(:, 2, 8, 7) = (/ & |
1454 |
|
|
& 0.33302E-05_JPRB,0.48035E-05_JPRB,0.54757E-05_JPRB,0.58129E-05_JPRB,0.59219E-05_JPRB, & |
1455 |
|
✗ |
& 0.57796E-05_JPRB,0.52788E-05_JPRB,0.45081E-05_JPRB,0.26233E-05_JPRB /) |
1456 |
|
|
KA(:, 3, 8, 7) = (/ & |
1457 |
|
|
& 0.33275E-05_JPRB,0.51944E-05_JPRB,0.60436E-05_JPRB,0.65119E-05_JPRB,0.67329E-05_JPRB, & |
1458 |
|
✗ |
& 0.66992E-05_JPRB,0.63336E-05_JPRB,0.54989E-05_JPRB,0.32839E-05_JPRB /) |
1459 |
|
|
KA(:, 4, 8, 7) = (/ & |
1460 |
|
|
& 0.33167E-05_JPRB,0.56042E-05_JPRB,0.66425E-05_JPRB,0.72606E-05_JPRB,0.75965E-05_JPRB, & |
1461 |
|
✗ |
& 0.76619E-05_JPRB,0.74319E-05_JPRB,0.66922E-05_JPRB,0.40228E-05_JPRB /) |
1462 |
|
|
KA(:, 5, 8, 7) = (/ & |
1463 |
|
|
& 0.33014E-05_JPRB,0.60212E-05_JPRB,0.72748E-05_JPRB,0.80496E-05_JPRB,0.84940E-05_JPRB, & |
1464 |
|
✗ |
& 0.86532E-05_JPRB,0.85181E-05_JPRB,0.78992E-05_JPRB,0.48672E-05_JPRB /) |
1465 |
|
|
KA(:, 1, 9, 7) = (/ & |
1466 |
|
|
& 0.27310E-05_JPRB,0.35992E-05_JPRB,0.39468E-05_JPRB,0.40831E-05_JPRB,0.40161E-05_JPRB, & |
1467 |
|
✗ |
& 0.37266E-05_JPRB,0.32070E-05_JPRB,0.27591E-05_JPRB,0.14628E-05_JPRB /) |
1468 |
|
|
KA(:, 2, 9, 7) = (/ & |
1469 |
|
|
& 0.27361E-05_JPRB,0.38904E-05_JPRB,0.43781E-05_JPRB,0.46075E-05_JPRB,0.46475E-05_JPRB, & |
1470 |
|
✗ |
& 0.44710E-05_JPRB,0.39993E-05_JPRB,0.33922E-05_JPRB,0.19203E-05_JPRB /) |
1471 |
|
|
KA(:, 3, 9, 7) = (/ & |
1472 |
|
|
& 0.27349E-05_JPRB,0.42103E-05_JPRB,0.48448E-05_JPRB,0.51814E-05_JPRB,0.53150E-05_JPRB, & |
1473 |
|
✗ |
& 0.52403E-05_JPRB,0.48712E-05_JPRB,0.41669E-05_JPRB,0.24268E-05_JPRB /) |
1474 |
|
|
KA(:, 4, 9, 7) = (/ & |
1475 |
|
|
& 0.27270E-05_JPRB,0.45504E-05_JPRB,0.53414E-05_JPRB,0.57970E-05_JPRB,0.60255E-05_JPRB, & |
1476 |
|
✗ |
& 0.60359E-05_JPRB,0.57915E-05_JPRB,0.51016E-05_JPRB,0.30070E-05_JPRB /) |
1477 |
|
|
KA(:, 5, 9, 7) = (/ & |
1478 |
|
|
& 0.27146E-05_JPRB,0.48994E-05_JPRB,0.58660E-05_JPRB,0.64467E-05_JPRB,0.67684E-05_JPRB, & |
1479 |
|
✗ |
& 0.68529E-05_JPRB,0.66981E-05_JPRB,0.61431E-05_JPRB,0.36677E-05_JPRB /) |
1480 |
|
|
KA(:, 1,10, 7) = (/ & |
1481 |
|
|
& 0.22419E-05_JPRB,0.29237E-05_JPRB,0.31619E-05_JPRB,0.32419E-05_JPRB,0.31445E-05_JPRB, & |
1482 |
|
✗ |
& 0.28618E-05_JPRB,0.23945E-05_JPRB,0.20454E-05_JPRB,0.10493E-05_JPRB /) |
1483 |
|
|
KA(:, 2,10, 7) = (/ & |
1484 |
|
|
& 0.22458E-05_JPRB,0.31578E-05_JPRB,0.35134E-05_JPRB,0.36703E-05_JPRB,0.36665E-05_JPRB, & |
1485 |
|
✗ |
& 0.34835E-05_JPRB,0.30593E-05_JPRB,0.25559E-05_JPRB,0.14125E-05_JPRB /) |
1486 |
|
|
KA(:, 3,10, 7) = (/ & |
1487 |
|
|
& 0.22450E-05_JPRB,0.34192E-05_JPRB,0.38967E-05_JPRB,0.41378E-05_JPRB,0.42160E-05_JPRB, & |
1488 |
|
✗ |
& 0.41184E-05_JPRB,0.37724E-05_JPRB,0.31954E-05_JPRB,0.18099E-05_JPRB /) |
1489 |
|
|
KA(:, 4,10, 7) = (/ & |
1490 |
|
|
& 0.22393E-05_JPRB,0.36988E-05_JPRB,0.43039E-05_JPRB,0.46449E-05_JPRB,0.48027E-05_JPRB, & |
1491 |
|
✗ |
& 0.47756E-05_JPRB,0.45281E-05_JPRB,0.39284E-05_JPRB,0.22652E-05_JPRB /) |
1492 |
|
|
KA(:, 5,10, 7) = (/ & |
1493 |
|
|
& 0.22295E-05_JPRB,0.39888E-05_JPRB,0.47391E-05_JPRB,0.51827E-05_JPRB,0.54135E-05_JPRB, & |
1494 |
|
✗ |
& 0.54517E-05_JPRB,0.52919E-05_JPRB,0.47894E-05_JPRB,0.27859E-05_JPRB /) |
1495 |
|
|
KA(:, 1,11, 7) = (/ & |
1496 |
|
|
& 0.18412E-05_JPRB,0.24512E-05_JPRB,0.26550E-05_JPRB,0.27210E-05_JPRB,0.26438E-05_JPRB, & |
1497 |
|
✗ |
& 0.24068E-05_JPRB,0.20134E-05_JPRB,0.16980E-05_JPRB,0.87310E-06_JPRB /) |
1498 |
|
|
KA(:, 2,11, 7) = (/ & |
1499 |
|
|
& 0.18429E-05_JPRB,0.26525E-05_JPRB,0.29507E-05_JPRB,0.30835E-05_JPRB,0.30829E-05_JPRB, & |
1500 |
|
✗ |
& 0.29354E-05_JPRB,0.25810E-05_JPRB,0.21539E-05_JPRB,0.11715E-05_JPRB /) |
1501 |
|
|
KA(:, 3,11, 7) = (/ & |
1502 |
|
|
& 0.18405E-05_JPRB,0.28725E-05_JPRB,0.32735E-05_JPRB,0.34815E-05_JPRB,0.35507E-05_JPRB, & |
1503 |
|
✗ |
& 0.34733E-05_JPRB,0.31901E-05_JPRB,0.26957E-05_JPRB,0.15018E-05_JPRB /) |
1504 |
|
|
KA(:, 4,11, 7) = (/ & |
1505 |
|
|
& 0.18348E-05_JPRB,0.31060E-05_JPRB,0.36191E-05_JPRB,0.39123E-05_JPRB,0.40426E-05_JPRB, & |
1506 |
|
✗ |
& 0.40206E-05_JPRB,0.38184E-05_JPRB,0.33125E-05_JPRB,0.18804E-05_JPRB /) |
1507 |
|
|
KA(:, 5,11, 7) = (/ & |
1508 |
|
|
& 0.18263E-05_JPRB,0.33539E-05_JPRB,0.39862E-05_JPRB,0.43590E-05_JPRB,0.45516E-05_JPRB, & |
1509 |
|
✗ |
& 0.45841E-05_JPRB,0.44525E-05_JPRB,0.40371E-05_JPRB,0.23130E-05_JPRB /) |
1510 |
|
|
KA(:, 1,12, 7) = (/ & |
1511 |
|
|
& 0.15111E-05_JPRB,0.20512E-05_JPRB,0.22220E-05_JPRB,0.22783E-05_JPRB,0.22181E-05_JPRB, & |
1512 |
|
✗ |
& 0.20219E-05_JPRB,0.16992E-05_JPRB,0.14085E-05_JPRB,0.72438E-06_JPRB /) |
1513 |
|
|
KA(:, 2,12, 7) = (/ & |
1514 |
|
|
& 0.15111E-05_JPRB,0.22209E-05_JPRB,0.24719E-05_JPRB,0.25841E-05_JPRB,0.25877E-05_JPRB, & |
1515 |
|
✗ |
& 0.24700E-05_JPRB,0.21742E-05_JPRB,0.18087E-05_JPRB,0.96963E-06_JPRB /) |
1516 |
|
|
KA(:, 3,12, 7) = (/ & |
1517 |
|
|
& 0.15082E-05_JPRB,0.24051E-05_JPRB,0.27419E-05_JPRB,0.29223E-05_JPRB,0.29832E-05_JPRB, & |
1518 |
|
✗ |
& 0.29201E-05_JPRB,0.26833E-05_JPRB,0.22609E-05_JPRB,0.12444E-05_JPRB /) |
1519 |
|
|
KA(:, 4,12, 7) = (/ & |
1520 |
|
|
& 0.15029E-05_JPRB,0.26018E-05_JPRB,0.30364E-05_JPRB,0.32843E-05_JPRB,0.33933E-05_JPRB, & |
1521 |
|
✗ |
& 0.33730E-05_JPRB,0.32057E-05_JPRB,0.27875E-05_JPRB,0.15571E-05_JPRB /) |
1522 |
|
|
KA(:, 5,12, 7) = (/ & |
1523 |
|
|
& 0.14954E-05_JPRB,0.28127E-05_JPRB,0.33443E-05_JPRB,0.36551E-05_JPRB,0.38145E-05_JPRB, & |
1524 |
|
✗ |
& 0.38425E-05_JPRB,0.37317E-05_JPRB,0.33866E-05_JPRB,0.19133E-05_JPRB /) |
1525 |
|
|
KA(:, 1,13, 7) = (/ & |
1526 |
|
|
& 0.12390E-05_JPRB,0.17127E-05_JPRB,0.18553E-05_JPRB,0.19025E-05_JPRB,0.18568E-05_JPRB, & |
1527 |
|
✗ |
& 0.16968E-05_JPRB,0.14297E-05_JPRB,0.11813E-05_JPRB,0.59950E-06_JPRB /) |
1528 |
|
|
KA(:, 2,13, 7) = (/ & |
1529 |
|
|
& 0.12381E-05_JPRB,0.18537E-05_JPRB,0.20641E-05_JPRB,0.21603E-05_JPRB,0.21689E-05_JPRB, & |
1530 |
|
✗ |
& 0.20712E-05_JPRB,0.18216E-05_JPRB,0.15132E-05_JPRB,0.80096E-06_JPRB /) |
1531 |
|
|
KA(:, 3,13, 7) = (/ & |
1532 |
|
|
& 0.12352E-05_JPRB,0.20080E-05_JPRB,0.22929E-05_JPRB,0.24467E-05_JPRB,0.24992E-05_JPRB, & |
1533 |
|
✗ |
& 0.24434E-05_JPRB,0.22447E-05_JPRB,0.18839E-05_JPRB,0.10290E-05_JPRB /) |
1534 |
|
|
KA(:, 4,13, 7) = (/ & |
1535 |
|
|
& 0.12307E-05_JPRB,0.21754E-05_JPRB,0.25409E-05_JPRB,0.27489E-05_JPRB,0.28366E-05_JPRB, & |
1536 |
|
✗ |
& 0.28171E-05_JPRB,0.26776E-05_JPRB,0.23303E-05_JPRB,0.12853E-05_JPRB /) |
1537 |
|
|
KA(:, 5,13, 7) = (/ & |
1538 |
|
|
& 0.12246E-05_JPRB,0.23532E-05_JPRB,0.27977E-05_JPRB,0.30556E-05_JPRB,0.31857E-05_JPRB, & |
1539 |
|
✗ |
& 0.32077E-05_JPRB,0.31127E-05_JPRB,0.28260E-05_JPRB,0.15788E-05_JPRB /) |
1540 |
|
|
KA(:, 1, 1, 8) = (/ & |
1541 |
|
|
& 0.43566E-04_JPRB,0.45402E-04_JPRB,0.48829E-04_JPRB,0.50194E-04_JPRB,0.49978E-04_JPRB, & |
1542 |
|
✗ |
& 0.48581E-04_JPRB,0.45902E-04_JPRB,0.40781E-04_JPRB,0.34170E-04_JPRB /) |
1543 |
|
|
KA(:, 2, 1, 8) = (/ & |
1544 |
|
|
& 0.43974E-04_JPRB,0.47415E-04_JPRB,0.52012E-04_JPRB,0.54325E-04_JPRB,0.54921E-04_JPRB, & |
1545 |
|
✗ |
& 0.53975E-04_JPRB,0.51279E-04_JPRB,0.46650E-04_JPRB,0.40945E-04_JPRB /) |
1546 |
|
|
KA(:, 3, 1, 8) = (/ & |
1547 |
|
|
& 0.44333E-04_JPRB,0.49545E-04_JPRB,0.55453E-04_JPRB,0.58909E-04_JPRB,0.60094E-04_JPRB, & |
1548 |
|
✗ |
& 0.59376E-04_JPRB,0.56940E-04_JPRB,0.52843E-04_JPRB,0.48266E-04_JPRB /) |
1549 |
|
|
KA(:, 4, 1, 8) = (/ & |
1550 |
|
|
& 0.44647E-04_JPRB,0.51771E-04_JPRB,0.59155E-04_JPRB,0.63607E-04_JPRB,0.65306E-04_JPRB, & |
1551 |
|
✗ |
& 0.64935E-04_JPRB,0.62961E-04_JPRB,0.59262E-04_JPRB,0.55812E-04_JPRB /) |
1552 |
|
|
|
1553 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB22: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_KGB22:PART6',0,ZHOOK_HANDLE) |
1561 |
|
|
|
1562 |
|
|
|
1563 |
|
|
KA(:, 5, 1, 8) = (/ & |
1564 |
|
|
& 0.44938E-04_JPRB,0.54202E-04_JPRB,0.63063E-04_JPRB,0.68229E-04_JPRB,0.70615E-04_JPRB, & |
1565 |
|
✗ |
& 0.70683E-04_JPRB,0.69315E-04_JPRB,0.65992E-04_JPRB,0.63855E-04_JPRB /) |
1566 |
|
|
KA(:, 1, 2, 8) = (/ & |
1567 |
|
|
& 0.37849E-04_JPRB,0.40606E-04_JPRB,0.43836E-04_JPRB,0.45171E-04_JPRB,0.45318E-04_JPRB, & |
1568 |
|
✗ |
& 0.44251E-04_JPRB,0.41853E-04_JPRB,0.37247E-04_JPRB,0.29303E-04_JPRB /) |
1569 |
|
|
KA(:, 2, 2, 8) = (/ & |
1570 |
|
|
& 0.38202E-04_JPRB,0.42545E-04_JPRB,0.46901E-04_JPRB,0.49156E-04_JPRB,0.50002E-04_JPRB, & |
1571 |
|
✗ |
& 0.49256E-04_JPRB,0.46845E-04_JPRB,0.42755E-04_JPRB,0.35187E-04_JPRB /) |
1572 |
|
|
KA(:, 3, 2, 8) = (/ & |
1573 |
|
|
& 0.38525E-04_JPRB,0.44570E-04_JPRB,0.50219E-04_JPRB,0.53465E-04_JPRB,0.54833E-04_JPRB, & |
1574 |
|
✗ |
& 0.54348E-04_JPRB,0.52176E-04_JPRB,0.48578E-04_JPRB,0.41697E-04_JPRB /) |
1575 |
|
|
KA(:, 4, 2, 8) = (/ & |
1576 |
|
|
& 0.38828E-04_JPRB,0.46787E-04_JPRB,0.53767E-04_JPRB,0.57818E-04_JPRB,0.59705E-04_JPRB, & |
1577 |
|
✗ |
& 0.59611E-04_JPRB,0.57787E-04_JPRB,0.54523E-04_JPRB,0.48350E-04_JPRB /) |
1578 |
|
|
KA(:, 5, 2, 8) = (/ & |
1579 |
|
|
& 0.39076E-04_JPRB,0.49105E-04_JPRB,0.57380E-04_JPRB,0.62144E-04_JPRB,0.64743E-04_JPRB, & |
1580 |
|
✗ |
& 0.65049E-04_JPRB,0.63700E-04_JPRB,0.60747E-04_JPRB,0.55348E-04_JPRB /) |
1581 |
|
|
KA(:, 1, 3, 8) = (/ & |
1582 |
|
|
& 0.32392E-04_JPRB,0.35504E-04_JPRB,0.38232E-04_JPRB,0.39483E-04_JPRB,0.39809E-04_JPRB, & |
1583 |
|
✗ |
& 0.39031E-04_JPRB,0.36901E-04_JPRB,0.32585E-04_JPRB,0.23735E-04_JPRB /) |
1584 |
|
|
KA(:, 2, 3, 8) = (/ & |
1585 |
|
|
& 0.32715E-04_JPRB,0.37303E-04_JPRB,0.41039E-04_JPRB,0.43202E-04_JPRB,0.44102E-04_JPRB, & |
1586 |
|
✗ |
& 0.43582E-04_JPRB,0.41484E-04_JPRB,0.37593E-04_JPRB,0.28689E-04_JPRB /) |
1587 |
|
|
KA(:, 3, 3, 8) = (/ & |
1588 |
|
|
& 0.33011E-04_JPRB,0.39216E-04_JPRB,0.44127E-04_JPRB,0.47180E-04_JPRB,0.48515E-04_JPRB, & |
1589 |
|
✗ |
& 0.48269E-04_JPRB,0.46352E-04_JPRB,0.42866E-04_JPRB,0.34062E-04_JPRB /) |
1590 |
|
|
KA(:, 4, 3, 8) = (/ & |
1591 |
|
|
& 0.33271E-04_JPRB,0.41283E-04_JPRB,0.47451E-04_JPRB,0.51158E-04_JPRB,0.53031E-04_JPRB, & |
1592 |
|
✗ |
& 0.53191E-04_JPRB,0.51599E-04_JPRB,0.48489E-04_JPRB,0.40122E-04_JPRB /) |
1593 |
|
|
KA(:, 5, 3, 8) = (/ & |
1594 |
|
|
& 0.33495E-04_JPRB,0.43439E-04_JPRB,0.50779E-04_JPRB,0.55143E-04_JPRB,0.57687E-04_JPRB, & |
1595 |
|
✗ |
& 0.58208E-04_JPRB,0.56935E-04_JPRB,0.54138E-04_JPRB,0.46109E-04_JPRB /) |
1596 |
|
|
KA(:, 1, 4, 8) = (/ & |
1597 |
|
|
& 0.27415E-04_JPRB,0.30543E-04_JPRB,0.32764E-04_JPRB,0.33940E-04_JPRB,0.34340E-04_JPRB, & |
1598 |
|
✗ |
& 0.33775E-04_JPRB,0.31812E-04_JPRB,0.27722E-04_JPRB,0.18770E-04_JPRB /) |
1599 |
|
|
KA(:, 2, 4, 8) = (/ & |
1600 |
|
|
& 0.27715E-04_JPRB,0.32169E-04_JPRB,0.35304E-04_JPRB,0.37332E-04_JPRB,0.38224E-04_JPRB, & |
1601 |
|
✗ |
& 0.37868E-04_JPRB,0.35986E-04_JPRB,0.32265E-04_JPRB,0.22928E-04_JPRB /) |
1602 |
|
|
KA(:, 3, 4, 8) = (/ & |
1603 |
|
|
& 0.27982E-04_JPRB,0.33932E-04_JPRB,0.38141E-04_JPRB,0.40925E-04_JPRB,0.42223E-04_JPRB, & |
1604 |
|
✗ |
& 0.42122E-04_JPRB,0.40409E-04_JPRB,0.37026E-04_JPRB,0.27474E-04_JPRB /) |
1605 |
|
|
KA(:, 4, 4, 8) = (/ & |
1606 |
|
|
& 0.28215E-04_JPRB,0.35808E-04_JPRB,0.41184E-04_JPRB,0.44532E-04_JPRB,0.46320E-04_JPRB, & |
1607 |
|
✗ |
& 0.46554E-04_JPRB,0.45091E-04_JPRB,0.41998E-04_JPRB,0.32462E-04_JPRB /) |
1608 |
|
|
KA(:, 5, 4, 8) = (/ & |
1609 |
|
|
& 0.28437E-04_JPRB,0.37809E-04_JPRB,0.44202E-04_JPRB,0.48199E-04_JPRB,0.50577E-04_JPRB, & |
1610 |
|
✗ |
& 0.51211E-04_JPRB,0.50186E-04_JPRB,0.47427E-04_JPRB,0.38088E-04_JPRB /) |
1611 |
|
|
KA(:, 1, 5, 8) = (/ & |
1612 |
|
|
& 0.23010E-04_JPRB,0.25978E-04_JPRB,0.27838E-04_JPRB,0.28899E-04_JPRB,0.29286E-04_JPRB, & |
1613 |
|
✗ |
& 0.28721E-04_JPRB,0.26945E-04_JPRB,0.23196E-04_JPRB,0.14687E-04_JPRB /) |
1614 |
|
|
KA(:, 2, 5, 8) = (/ & |
1615 |
|
|
& 0.23283E-04_JPRB,0.27434E-04_JPRB,0.30115E-04_JPRB,0.31931E-04_JPRB,0.32743E-04_JPRB, & |
1616 |
|
✗ |
& 0.32398E-04_JPRB,0.30674E-04_JPRB,0.27269E-04_JPRB,0.18140E-04_JPRB /) |
1617 |
|
|
KA(:, 3, 5, 8) = (/ & |
1618 |
|
|
& 0.23522E-04_JPRB,0.29002E-04_JPRB,0.32686E-04_JPRB,0.35125E-04_JPRB,0.36325E-04_JPRB, & |
1619 |
|
✗ |
& 0.36232E-04_JPRB,0.34626E-04_JPRB,0.31511E-04_JPRB,0.21987E-04_JPRB /) |
1620 |
|
|
KA(:, 4, 5, 8) = (/ & |
1621 |
|
|
& 0.23738E-04_JPRB,0.30687E-04_JPRB,0.35404E-04_JPRB,0.38366E-04_JPRB,0.40013E-04_JPRB, & |
1622 |
|
✗ |
& 0.40198E-04_JPRB,0.38830E-04_JPRB,0.35973E-04_JPRB,0.26236E-04_JPRB /) |
1623 |
|
|
KA(:, 5, 5, 8) = (/ & |
1624 |
|
|
& 0.23936E-04_JPRB,0.32534E-04_JPRB,0.38093E-04_JPRB,0.41748E-04_JPRB,0.43875E-04_JPRB, & |
1625 |
|
✗ |
& 0.44440E-04_JPRB,0.43519E-04_JPRB,0.40954E-04_JPRB,0.31086E-04_JPRB /) |
1626 |
|
|
KA(:, 1, 6, 8) = (/ & |
1627 |
|
|
& 0.19172E-04_JPRB,0.21867E-04_JPRB,0.23409E-04_JPRB,0.24321E-04_JPRB,0.24529E-04_JPRB, & |
1628 |
|
✗ |
& 0.23927E-04_JPRB,0.22333E-04_JPRB,0.18955E-04_JPRB,0.11218E-04_JPRB /) |
1629 |
|
|
KA(:, 2, 6, 8) = (/ & |
1630 |
|
|
& 0.19419E-04_JPRB,0.23150E-04_JPRB,0.25412E-04_JPRB,0.26974E-04_JPRB,0.27574E-04_JPRB, & |
1631 |
|
✗ |
& 0.27129E-04_JPRB,0.25625E-04_JPRB,0.22590E-04_JPRB,0.14082E-04_JPRB /) |
1632 |
|
|
KA(:, 3, 6, 8) = (/ & |
1633 |
|
|
& 0.19636E-04_JPRB,0.24533E-04_JPRB,0.27708E-04_JPRB,0.29785E-04_JPRB,0.30733E-04_JPRB, & |
1634 |
|
✗ |
& 0.30517E-04_JPRB,0.29114E-04_JPRB,0.26329E-04_JPRB,0.17293E-04_JPRB /) |
1635 |
|
|
KA(:, 4, 6, 8) = (/ & |
1636 |
|
|
& 0.19836E-04_JPRB,0.26054E-04_JPRB,0.30093E-04_JPRB,0.32660E-04_JPRB,0.34002E-04_JPRB, & |
1637 |
|
✗ |
& 0.34049E-04_JPRB,0.32819E-04_JPRB,0.30271E-04_JPRB,0.20869E-04_JPRB /) |
1638 |
|
|
KA(:, 5, 6, 8) = (/ & |
1639 |
|
|
& 0.20002E-04_JPRB,0.27734E-04_JPRB,0.32461E-04_JPRB,0.35638E-04_JPRB,0.37355E-04_JPRB, & |
1640 |
|
✗ |
& 0.37686E-04_JPRB,0.36788E-04_JPRB,0.34519E-04_JPRB,0.24769E-04_JPRB /) |
1641 |
|
|
KA(:, 1, 7, 8) = (/ & |
1642 |
|
|
& 0.15886E-04_JPRB,0.18280E-04_JPRB,0.19557E-04_JPRB,0.20235E-04_JPRB,0.20297E-04_JPRB, & |
1643 |
|
✗ |
& 0.19642E-04_JPRB,0.18202E-04_JPRB,0.15130E-04_JPRB,0.84335E-05_JPRB /) |
1644 |
|
|
KA(:, 2, 7, 8) = (/ & |
1645 |
|
|
& 0.16105E-04_JPRB,0.19408E-04_JPRB,0.21322E-04_JPRB,0.22532E-04_JPRB,0.22888E-04_JPRB, & |
1646 |
|
✗ |
& 0.22409E-04_JPRB,0.21064E-04_JPRB,0.18396E-04_JPRB,0.10766E-04_JPRB /) |
1647 |
|
|
KA(:, 3, 7, 8) = (/ & |
1648 |
|
|
& 0.16304E-04_JPRB,0.20629E-04_JPRB,0.23329E-04_JPRB,0.24999E-04_JPRB,0.25612E-04_JPRB, & |
1649 |
|
✗ |
& 0.25350E-04_JPRB,0.24115E-04_JPRB,0.21685E-04_JPRB,0.13408E-04_JPRB /) |
1650 |
|
|
KA(:, 4, 7, 8) = (/ & |
1651 |
|
|
& 0.16482E-04_JPRB,0.21985E-04_JPRB,0.25409E-04_JPRB,0.27506E-04_JPRB,0.28475E-04_JPRB, & |
1652 |
|
✗ |
& 0.28447E-04_JPRB,0.27347E-04_JPRB,0.25116E-04_JPRB,0.16377E-04_JPRB /) |
1653 |
|
|
KA(:, 5, 7, 8) = (/ & |
1654 |
|
|
& 0.16621E-04_JPRB,0.23483E-04_JPRB,0.27507E-04_JPRB,0.30111E-04_JPRB,0.31449E-04_JPRB, & |
1655 |
|
✗ |
& 0.31651E-04_JPRB,0.30823E-04_JPRB,0.28853E-04_JPRB,0.19647E-04_JPRB /) |
1656 |
|
|
KA(:, 1, 8, 8) = (/ & |
1657 |
|
|
& 0.13104E-04_JPRB,0.15202E-04_JPRB,0.16227E-04_JPRB,0.16675E-04_JPRB,0.16618E-04_JPRB, & |
1658 |
|
✗ |
& 0.15949E-04_JPRB,0.14642E-04_JPRB,0.11862E-04_JPRB,0.62741E-05_JPRB /) |
1659 |
|
|
KA(:, 2, 8, 8) = (/ & |
1660 |
|
|
& 0.13296E-04_JPRB,0.16183E-04_JPRB,0.17762E-04_JPRB,0.18645E-04_JPRB,0.18799E-04_JPRB, & |
1661 |
|
✗ |
& 0.18302E-04_JPRB,0.17108E-04_JPRB,0.14749E-04_JPRB,0.81431E-05_JPRB /) |
1662 |
|
|
KA(:, 3, 8, 8) = (/ & |
1663 |
|
|
& 0.13475E-04_JPRB,0.17250E-04_JPRB,0.19501E-04_JPRB,0.20748E-04_JPRB,0.21144E-04_JPRB, & |
1664 |
|
✗ |
& 0.20825E-04_JPRB,0.19726E-04_JPRB,0.17623E-04_JPRB,0.10291E-04_JPRB /) |
1665 |
|
|
KA(:, 4, 8, 8) = (/ & |
1666 |
|
|
& 0.13631E-04_JPRB,0.18462E-04_JPRB,0.21319E-04_JPRB,0.22916E-04_JPRB,0.23622E-04_JPRB, & |
1667 |
|
✗ |
& 0.23509E-04_JPRB,0.22509E-04_JPRB,0.20604E-04_JPRB,0.12727E-04_JPRB /) |
1668 |
|
|
KA(:, 5, 8, 8) = (/ & |
1669 |
|
|
& 0.13752E-04_JPRB,0.19773E-04_JPRB,0.23162E-04_JPRB,0.25182E-04_JPRB,0.26210E-04_JPRB, & |
1670 |
|
✗ |
& 0.26298E-04_JPRB,0.25526E-04_JPRB,0.23837E-04_JPRB,0.15433E-04_JPRB /) |
1671 |
|
|
KA(:, 1, 9, 8) = (/ & |
1672 |
|
|
& 0.10771E-04_JPRB,0.12580E-04_JPRB,0.13349E-04_JPRB,0.13617E-04_JPRB,0.13459E-04_JPRB, & |
1673 |
|
✗ |
& 0.12816E-04_JPRB,0.11635E-04_JPRB,0.90636E-05_JPRB,0.45849E-05_JPRB /) |
1674 |
|
|
KA(:, 2, 9, 8) = (/ & |
1675 |
|
|
& 0.10937E-04_JPRB,0.13431E-04_JPRB,0.14667E-04_JPRB,0.15270E-04_JPRB,0.15289E-04_JPRB, & |
1676 |
|
✗ |
& 0.14786E-04_JPRB,0.13720E-04_JPRB,0.11614E-04_JPRB,0.60707E-05_JPRB /) |
1677 |
|
|
KA(:, 3, 9, 8) = (/ & |
1678 |
|
|
& 0.11095E-04_JPRB,0.14367E-04_JPRB,0.16153E-04_JPRB,0.17055E-04_JPRB,0.17287E-04_JPRB, & |
1679 |
|
✗ |
& 0.16925E-04_JPRB,0.15948E-04_JPRB,0.14098E-04_JPRB,0.78037E-05_JPRB /) |
1680 |
|
|
KA(:, 4, 9, 8) = (/ & |
1681 |
|
|
& 0.11230E-04_JPRB,0.15436E-04_JPRB,0.17715E-04_JPRB,0.18921E-04_JPRB,0.19404E-04_JPRB, & |
1682 |
|
✗ |
& 0.19208E-04_JPRB,0.18318E-04_JPRB,0.16668E-04_JPRB,0.97810E-05_JPRB /) |
1683 |
|
|
KA(:, 5, 9, 8) = (/ & |
1684 |
|
|
& 0.11337E-04_JPRB,0.16572E-04_JPRB,0.19310E-04_JPRB,0.20882E-04_JPRB,0.21623E-04_JPRB, & |
1685 |
|
✗ |
& 0.21621E-04_JPRB,0.20902E-04_JPRB,0.19439E-04_JPRB,0.11994E-04_JPRB /) |
1686 |
|
|
KA(:, 1,10, 8) = (/ & |
1687 |
|
|
& 0.88397E-05_JPRB,0.10407E-04_JPRB,0.10992E-04_JPRB,0.11130E-04_JPRB,0.10914E-04_JPRB, & |
1688 |
|
✗ |
& 0.10319E-04_JPRB,0.92746E-05_JPRB,0.69230E-05_JPRB,0.33878E-05_JPRB /) |
1689 |
|
|
KA(:, 2,10, 8) = (/ & |
1690 |
|
|
& 0.89820E-05_JPRB,0.11148E-04_JPRB,0.12114E-04_JPRB,0.12509E-04_JPRB,0.12455E-04_JPRB, & |
1691 |
|
✗ |
& 0.11973E-04_JPRB,0.11026E-04_JPRB,0.91303E-05_JPRB,0.45777E-05_JPRB /) |
1692 |
|
|
KA(:, 3,10, 8) = (/ & |
1693 |
|
|
& 0.91201E-05_JPRB,0.11975E-04_JPRB,0.13369E-04_JPRB,0.14032E-04_JPRB,0.14150E-04_JPRB, & |
1694 |
|
✗ |
& 0.13774E-04_JPRB,0.12899E-04_JPRB,0.11289E-04_JPRB,0.59718E-05_JPRB /) |
1695 |
|
|
KA(:, 4,10, 8) = (/ & |
1696 |
|
|
& 0.92338E-05_JPRB,0.12910E-04_JPRB,0.14708E-04_JPRB,0.15633E-04_JPRB,0.15947E-04_JPRB, & |
1697 |
|
✗ |
& 0.15711E-04_JPRB,0.14916E-04_JPRB,0.13483E-04_JPRB,0.75778E-05_JPRB /) |
1698 |
|
|
KA(:, 5,10, 8) = (/ & |
1699 |
|
|
& 0.93270E-05_JPRB,0.13899E-04_JPRB,0.16089E-04_JPRB,0.17313E-04_JPRB,0.17838E-04_JPRB, & |
1700 |
|
✗ |
& 0.17779E-04_JPRB,0.17126E-04_JPRB,0.15852E-04_JPRB,0.93849E-05_JPRB /) |
1701 |
|
|
KA(:, 1,11, 8) = (/ & |
1702 |
|
|
& 0.72957E-05_JPRB,0.88518E-05_JPRB,0.94180E-05_JPRB,0.95477E-05_JPRB,0.93627E-05_JPRB, & |
1703 |
|
✗ |
& 0.88681E-05_JPRB,0.79846E-05_JPRB,0.60665E-05_JPRB,0.28938E-05_JPRB /) |
1704 |
|
|
KA(:, 2,11, 8) = (/ & |
1705 |
|
|
& 0.74164E-05_JPRB,0.95244E-05_JPRB,0.10413E-04_JPRB,0.10760E-04_JPRB,0.10725E-04_JPRB, & |
1706 |
|
✗ |
& 0.10300E-04_JPRB,0.94914E-05_JPRB,0.79265E-05_JPRB,0.39145E-05_JPRB /) |
1707 |
|
|
KA(:, 3,11, 8) = (/ & |
1708 |
|
|
& 0.75267E-05_JPRB,0.10290E-04_JPRB,0.11516E-04_JPRB,0.12091E-04_JPRB,0.12186E-04_JPRB, & |
1709 |
|
✗ |
& 0.11866E-04_JPRB,0.11116E-04_JPRB,0.97843E-05_JPRB,0.51152E-05_JPRB /) |
1710 |
|
|
KA(:, 4,11, 8) = (/ & |
1711 |
|
|
& 0.76165E-05_JPRB,0.11127E-04_JPRB,0.12682E-04_JPRB,0.13483E-04_JPRB,0.13746E-04_JPRB, & |
1712 |
|
✗ |
& 0.13546E-04_JPRB,0.12885E-04_JPRB,0.11704E-04_JPRB,0.64876E-05_JPRB /) |
1713 |
|
|
KA(:, 5,11, 8) = (/ & |
1714 |
|
|
& 0.76866E-05_JPRB,0.11972E-04_JPRB,0.13896E-04_JPRB,0.14938E-04_JPRB,0.15405E-04_JPRB, & |
1715 |
|
✗ |
& 0.15374E-04_JPRB,0.14838E-04_JPRB,0.13790E-04_JPRB,0.80319E-05_JPRB /) |
1716 |
|
|
KA(:, 1,12, 8) = (/ & |
1717 |
|
|
& 0.60137E-05_JPRB,0.75193E-05_JPRB,0.80348E-05_JPRB,0.81538E-05_JPRB,0.80064E-05_JPRB, & |
1718 |
|
✗ |
& 0.75822E-05_JPRB,0.68354E-05_JPRB,0.52502E-05_JPRB,0.24674E-05_JPRB /) |
1719 |
|
|
KA(:, 2,12, 8) = (/ & |
1720 |
|
|
& 0.61150E-05_JPRB,0.81325E-05_JPRB,0.89089E-05_JPRB,0.92208E-05_JPRB,0.91831E-05_JPRB, & |
1721 |
|
✗ |
& 0.88171E-05_JPRB,0.81283E-05_JPRB,0.68396E-05_JPRB,0.33429E-05_JPRB /) |
1722 |
|
|
KA(:, 3,12, 8) = (/ & |
1723 |
|
|
& 0.62020E-05_JPRB,0.88113E-05_JPRB,0.98818E-05_JPRB,0.10369E-04_JPRB,0.10440E-04_JPRB, & |
1724 |
|
✗ |
& 0.10164E-04_JPRB,0.95355E-05_JPRB,0.84372E-05_JPRB,0.43683E-05_JPRB /) |
1725 |
|
|
KA(:, 4,12, 8) = (/ & |
1726 |
|
|
& 0.62729E-05_JPRB,0.95382E-05_JPRB,0.10890E-04_JPRB,0.11569E-04_JPRB,0.11793E-04_JPRB, & |
1727 |
|
✗ |
& 0.11630E-04_JPRB,0.11082E-04_JPRB,0.10108E-04_JPRB,0.55358E-05_JPRB /) |
1728 |
|
|
KA(:, 5,12, 8) = (/ & |
1729 |
|
|
& 0.63199E-05_JPRB,0.10271E-04_JPRB,0.11934E-04_JPRB,0.12838E-04_JPRB,0.13254E-04_JPRB, & |
1730 |
|
✗ |
& 0.13231E-04_JPRB,0.12796E-04_JPRB,0.11934E-04_JPRB,0.68492E-05_JPRB /) |
1731 |
|
|
KA(:, 1,13, 8) = (/ & |
1732 |
|
|
& 0.49517E-05_JPRB,0.63774E-05_JPRB,0.68261E-05_JPRB,0.69411E-05_JPRB,0.68151E-05_JPRB, & |
1733 |
|
✗ |
& 0.64513E-05_JPRB,0.58220E-05_JPRB,0.45056E-05_JPRB,0.20980E-05_JPRB /) |
1734 |
|
|
KA(:, 2,13, 8) = (/ & |
1735 |
|
|
& 0.50331E-05_JPRB,0.69207E-05_JPRB,0.75990E-05_JPRB,0.78660E-05_JPRB,0.78231E-05_JPRB, & |
1736 |
|
✗ |
& 0.75119E-05_JPRB,0.69333E-05_JPRB,0.58688E-05_JPRB,0.28426E-05_JPRB /) |
1737 |
|
|
KA(:, 3,13, 8) = (/ & |
1738 |
|
|
& 0.51036E-05_JPRB,0.75155E-05_JPRB,0.84393E-05_JPRB,0.88490E-05_JPRB,0.89047E-05_JPRB, & |
1739 |
|
✗ |
& 0.86720E-05_JPRB,0.81449E-05_JPRB,0.72410E-05_JPRB,0.37114E-05_JPRB /) |
1740 |
|
|
KA(:, 4,13, 8) = (/ & |
1741 |
|
|
& 0.51548E-05_JPRB,0.81445E-05_JPRB,0.93105E-05_JPRB,0.98793E-05_JPRB,0.10078E-04_JPRB, & |
1742 |
|
✗ |
& 0.99535E-05_JPRB,0.94951E-05_JPRB,0.86973E-05_JPRB,0.47002E-05_JPRB /) |
1743 |
|
|
KA(:, 5,13, 8) = (/ & |
1744 |
|
|
& 0.51867E-05_JPRB,0.87857E-05_JPRB,0.10211E-04_JPRB,0.10992E-04_JPRB,0.11352E-04_JPRB, & |
1745 |
|
✗ |
& 0.11351E-04_JPRB,0.10990E-04_JPRB,0.10277E-04_JPRB,0.58153E-05_JPRB /) |
1746 |
|
|
KA(:, 1, 1, 9) = (/ & |
1747 |
|
|
& 0.18292E-03_JPRB,0.16357E-03_JPRB,0.15341E-03_JPRB,0.14585E-03_JPRB,0.13797E-03_JPRB, & |
1748 |
|
✗ |
& 0.12826E-03_JPRB,0.11477E-03_JPRB,0.99322E-04_JPRB,0.99311E-04_JPRB /) |
1749 |
|
|
KA(:, 2, 1, 9) = (/ & |
1750 |
|
|
& 0.18277E-03_JPRB,0.16502E-03_JPRB,0.15805E-03_JPRB,0.15290E-03_JPRB,0.14696E-03_JPRB, & |
1751 |
|
✗ |
& 0.13850E-03_JPRB,0.12664E-03_JPRB,0.11419E-03_JPRB,0.11887E-03_JPRB /) |
1752 |
|
|
KA(:, 3, 1, 9) = (/ & |
1753 |
|
|
& 0.18261E-03_JPRB,0.16694E-03_JPRB,0.16322E-03_JPRB,0.16061E-03_JPRB,0.15658E-03_JPRB, & |
1754 |
|
✗ |
& 0.14997E-03_JPRB,0.14010E-03_JPRB,0.13154E-03_JPRB,0.14123E-03_JPRB /) |
1755 |
|
|
KA(:, 4, 1, 9) = (/ & |
1756 |
|
|
& 0.18244E-03_JPRB,0.16952E-03_JPRB,0.16897E-03_JPRB,0.16909E-03_JPRB,0.16740E-03_JPRB, & |
1757 |
|
✗ |
& 0.16268E-03_JPRB,0.15556E-03_JPRB,0.15163E-03_JPRB,0.16610E-03_JPRB /) |
1758 |
|
|
KA(:, 5, 1, 9) = (/ & |
1759 |
|
|
& 0.18218E-03_JPRB,0.17247E-03_JPRB,0.17521E-03_JPRB,0.17844E-03_JPRB,0.17911E-03_JPRB, & |
1760 |
|
✗ |
& 0.17696E-03_JPRB,0.17241E-03_JPRB,0.17370E-03_JPRB,0.19290E-03_JPRB /) |
1761 |
|
|
KA(:, 1, 2, 9) = (/ & |
1762 |
|
|
& 0.17473E-03_JPRB,0.15735E-03_JPRB,0.14910E-03_JPRB,0.14227E-03_JPRB,0.13471E-03_JPRB, & |
1763 |
|
✗ |
& 0.12515E-03_JPRB,0.11200E-03_JPRB,0.94986E-04_JPRB,0.89520E-04_JPRB /) |
1764 |
|
|
KA(:, 2, 2, 9) = (/ & |
1765 |
|
|
& 0.17467E-03_JPRB,0.15907E-03_JPRB,0.15401E-03_JPRB,0.14953E-03_JPRB,0.14402E-03_JPRB, & |
1766 |
|
✗ |
& 0.13581E-03_JPRB,0.12401E-03_JPRB,0.10893E-03_JPRB,0.10811E-03_JPRB /) |
1767 |
|
|
KA(:, 3, 2, 9) = (/ & |
1768 |
|
|
& 0.17463E-03_JPRB,0.16142E-03_JPRB,0.15942E-03_JPRB,0.15773E-03_JPRB,0.15417E-03_JPRB, & |
1769 |
|
✗ |
& 0.14769E-03_JPRB,0.13747E-03_JPRB,0.12528E-03_JPRB,0.12924E-03_JPRB /) |
1770 |
|
|
KA(:, 4, 2, 9) = (/ & |
1771 |
|
|
& 0.17449E-03_JPRB,0.16426E-03_JPRB,0.16549E-03_JPRB,0.16671E-03_JPRB,0.16541E-03_JPRB, & |
1772 |
|
✗ |
& 0.16085E-03_JPRB,0.15263E-03_JPRB,0.14389E-03_JPRB,0.15270E-03_JPRB /) |
1773 |
|
|
KA(:, 5, 2, 9) = (/ & |
1774 |
|
|
& 0.17439E-03_JPRB,0.16753E-03_JPRB,0.17238E-03_JPRB,0.17658E-03_JPRB,0.17759E-03_JPRB, & |
1775 |
|
✗ |
& 0.17537E-03_JPRB,0.16910E-03_JPRB,0.16442E-03_JPRB,0.17796E-03_JPRB /) |
1776 |
|
|
KA(:, 1, 3, 9) = (/ & |
1777 |
|
|
& 0.16429E-03_JPRB,0.14895E-03_JPRB,0.14201E-03_JPRB,0.13557E-03_JPRB,0.12797E-03_JPRB, & |
1778 |
|
✗ |
& 0.11829E-03_JPRB,0.10548E-03_JPRB,0.88188E-04_JPRB,0.77280E-04_JPRB /) |
1779 |
|
|
KA(:, 2, 3, 9) = (/ & |
1780 |
|
|
& 0.16436E-03_JPRB,0.15092E-03_JPRB,0.14708E-03_JPRB,0.14277E-03_JPRB,0.13731E-03_JPRB, & |
1781 |
|
✗ |
& 0.12899E-03_JPRB,0.11719E-03_JPRB,0.10108E-03_JPRB,0.94071E-04_JPRB /) |
1782 |
|
|
KA(:, 3, 3, 9) = (/ & |
1783 |
|
|
& 0.16438E-03_JPRB,0.15344E-03_JPRB,0.15259E-03_JPRB,0.15105E-03_JPRB,0.14760E-03_JPRB, & |
1784 |
|
✗ |
& 0.14078E-03_JPRB,0.13037E-03_JPRB,0.11602E-03_JPRB,0.11331E-03_JPRB /) |
1785 |
|
|
KA(:, 4, 3, 9) = (/ & |
1786 |
|
|
& 0.16440E-03_JPRB,0.15651E-03_JPRB,0.15877E-03_JPRB,0.16021E-03_JPRB,0.15883E-03_JPRB, & |
1787 |
|
✗ |
& 0.15394E-03_JPRB,0.14519E-03_JPRB,0.13303E-03_JPRB,0.13463E-03_JPRB /) |
1788 |
|
|
KA(:, 5, 3, 9) = (/ & |
1789 |
|
|
& 0.16444E-03_JPRB,0.16001E-03_JPRB,0.16595E-03_JPRB,0.17023E-03_JPRB,0.17105E-03_JPRB, & |
1790 |
|
✗ |
& 0.16855E-03_JPRB,0.16116E-03_JPRB,0.15159E-03_JPRB,0.15764E-03_JPRB /) |
1791 |
|
|
KA(:, 1, 4, 9) = (/ & |
1792 |
|
|
& 0.15195E-03_JPRB,0.13883E-03_JPRB,0.13294E-03_JPRB,0.12699E-03_JPRB,0.11928E-03_JPRB, & |
1793 |
|
✗ |
& 0.10948E-03_JPRB,0.97355E-04_JPRB,0.80985E-04_JPRB,0.65303E-04_JPRB /) |
1794 |
|
|
KA(:, 2, 4, 9) = (/ & |
1795 |
|
|
& 0.15212E-03_JPRB,0.14097E-03_JPRB,0.13802E-03_JPRB,0.13404E-03_JPRB,0.12836E-03_JPRB, & |
1796 |
|
✗ |
& 0.11996E-03_JPRB,0.10855E-03_JPRB,0.92884E-04_JPRB,0.80285E-04_JPRB /) |
1797 |
|
|
KA(:, 3, 4, 9) = (/ & |
1798 |
|
|
& 0.15229E-03_JPRB,0.14364E-03_JPRB,0.14356E-03_JPRB,0.14222E-03_JPRB,0.13844E-03_JPRB, & |
1799 |
|
✗ |
& 0.13147E-03_JPRB,0.12124E-03_JPRB,0.10661E-03_JPRB,0.97473E-04_JPRB /) |
1800 |
|
|
KA(:, 4, 4, 9) = (/ & |
1801 |
|
|
& 0.15247E-03_JPRB,0.14694E-03_JPRB,0.14987E-03_JPRB,0.15132E-03_JPRB,0.14947E-03_JPRB, & |
1802 |
|
✗ |
& 0.14428E-03_JPRB,0.13562E-03_JPRB,0.12218E-03_JPRB,0.11647E-03_JPRB /) |
1803 |
|
|
KA(:, 5, 4, 9) = (/ & |
1804 |
|
|
& 0.15268E-03_JPRB,0.15064E-03_JPRB,0.15719E-03_JPRB,0.16126E-03_JPRB,0.16162E-03_JPRB, & |
1805 |
|
✗ |
& 0.15869E-03_JPRB,0.15101E-03_JPRB,0.13904E-03_JPRB,0.13733E-03_JPRB /) |
1806 |
|
|
KA(:, 1, 5, 9) = (/ & |
1807 |
|
|
& 0.13846E-03_JPRB,0.12761E-03_JPRB,0.12265E-03_JPRB,0.11713E-03_JPRB,0.10945E-03_JPRB, & |
1808 |
|
✗ |
& 0.10011E-03_JPRB,0.88713E-04_JPRB,0.73647E-04_JPRB,0.54834E-04_JPRB /) |
1809 |
|
|
KA(:, 2, 5, 9) = (/ & |
1810 |
|
|
& 0.13872E-03_JPRB,0.12987E-03_JPRB,0.12766E-03_JPRB,0.12392E-03_JPRB,0.11814E-03_JPRB, & |
1811 |
|
✗ |
& 0.11013E-03_JPRB,0.99375E-04_JPRB,0.84759E-04_JPRB,0.68007E-04_JPRB /) |
1812 |
|
|
KA(:, 3, 5, 9) = (/ & |
1813 |
|
|
& 0.13899E-03_JPRB,0.13272E-03_JPRB,0.13319E-03_JPRB,0.13187E-03_JPRB,0.12795E-03_JPRB, & |
1814 |
|
✗ |
& 0.12108E-03_JPRB,0.11145E-03_JPRB,0.97499E-04_JPRB,0.83096E-04_JPRB /) |
1815 |
|
|
KA(:, 4, 5, 9) = (/ & |
1816 |
|
|
& 0.13930E-03_JPRB,0.13617E-03_JPRB,0.13955E-03_JPRB,0.14081E-03_JPRB,0.13862E-03_JPRB, & |
1817 |
|
✗ |
& 0.13340E-03_JPRB,0.12522E-03_JPRB,0.11183E-03_JPRB,0.99891E-04_JPRB /) |
1818 |
|
|
KA(:, 5, 5, 9) = (/ & |
1819 |
|
|
& 0.13961E-03_JPRB,0.13997E-03_JPRB,0.14692E-03_JPRB,0.15049E-03_JPRB,0.15045E-03_JPRB, & |
1820 |
|
✗ |
& 0.14736E-03_JPRB,0.14024E-03_JPRB,0.12733E-03_JPRB,0.11865E-03_JPRB /) |
1821 |
|
|
KA(:, 1, 6, 9) = (/ & |
1822 |
|
|
& 0.12419E-03_JPRB,0.11551E-03_JPRB,0.11132E-03_JPRB,0.10604E-03_JPRB,0.98912E-04_JPRB, & |
1823 |
|
✗ |
& 0.90174E-04_JPRB,0.79553E-04_JPRB,0.65781E-04_JPRB,0.45228E-04_JPRB /) |
1824 |
|
|
KA(:, 2, 6, 9) = (/ & |
1825 |
|
|
& 0.12454E-03_JPRB,0.11786E-03_JPRB,0.11619E-03_JPRB,0.11259E-03_JPRB,0.10704E-03_JPRB, & |
1826 |
|
✗ |
& 0.99552E-04_JPRB,0.89546E-04_JPRB,0.76061E-04_JPRB,0.56748E-04_JPRB /) |
1827 |
|
|
KA(:, 3, 6, 9) = (/ & |
1828 |
|
|
& 0.12490E-03_JPRB,0.12081E-03_JPRB,0.12161E-03_JPRB,0.12024E-03_JPRB,0.11632E-03_JPRB, & |
1829 |
|
✗ |
& 0.10988E-03_JPRB,0.10081E-03_JPRB,0.87950E-04_JPRB,0.69901E-04_JPRB /) |
1830 |
|
|
KA(:, 4, 6, 9) = (/ & |
1831 |
|
|
& 0.12528E-03_JPRB,0.12425E-03_JPRB,0.12796E-03_JPRB,0.12887E-03_JPRB,0.12649E-03_JPRB, & |
1832 |
|
✗ |
& 0.12150E-03_JPRB,0.11381E-03_JPRB,0.10130E-03_JPRB,0.84575E-04_JPRB /) |
1833 |
|
|
KA(:, 5, 6, 9) = (/ & |
1834 |
|
|
& 0.12568E-03_JPRB,0.12811E-03_JPRB,0.13519E-03_JPRB,0.13816E-03_JPRB,0.13780E-03_JPRB, & |
1835 |
|
✗ |
& 0.13476E-03_JPRB,0.12819E-03_JPRB,0.11553E-03_JPRB,0.10091E-03_JPRB /) |
1836 |
|
|
KA(:, 1, 7, 9) = (/ & |
1837 |
|
|
& 0.10978E-03_JPRB,0.10308E-03_JPRB,0.99508E-04_JPRB,0.94571E-04_JPRB,0.88120E-04_JPRB, & |
1838 |
|
✗ |
& 0.80226E-04_JPRB,0.70492E-04_JPRB,0.57993E-04_JPRB,0.36699E-04_JPRB /) |
1839 |
|
|
KA(:, 2, 7, 9) = (/ & |
1840 |
|
|
& 0.11018E-03_JPRB,0.10544E-03_JPRB,0.10415E-03_JPRB,0.10080E-03_JPRB,0.95769E-04_JPRB, & |
1841 |
|
✗ |
& 0.88865E-04_JPRB,0.79698E-04_JPRB,0.67450E-04_JPRB,0.46683E-04_JPRB /) |
1842 |
|
|
KA(:, 3, 7, 9) = (/ & |
1843 |
|
|
& 0.11058E-03_JPRB,0.10837E-03_JPRB,0.10936E-03_JPRB,0.10807E-03_JPRB,0.10453E-03_JPRB, & |
1844 |
|
✗ |
& 0.98497E-04_JPRB,0.90104E-04_JPRB,0.78443E-04_JPRB,0.58212E-04_JPRB /) |
1845 |
|
|
KA(:, 4, 7, 9) = (/ & |
1846 |
|
|
& 0.11104E-03_JPRB,0.11179E-03_JPRB,0.11551E-03_JPRB,0.11629E-03_JPRB,0.11409E-03_JPRB, & |
1847 |
|
✗ |
& 0.10934E-03_JPRB,0.10217E-03_JPRB,0.90913E-04_JPRB,0.71131E-04_JPRB /) |
1848 |
|
|
KA(:, 5, 7, 9) = (/ & |
1849 |
|
|
& 0.11149E-03_JPRB,0.11560E-03_JPRB,0.12257E-03_JPRB,0.12521E-03_JPRB,0.12472E-03_JPRB, & |
1850 |
|
✗ |
& 0.12180E-03_JPRB,0.11572E-03_JPRB,0.10421E-03_JPRB,0.85542E-04_JPRB /) |
1851 |
|
|
KA(:, 1, 8, 9) = (/ & |
1852 |
|
|
& 0.95759E-04_JPRB,0.90773E-04_JPRB,0.87806E-04_JPRB,0.83290E-04_JPRB,0.77515E-04_JPRB, & |
1853 |
|
✗ |
& 0.70528E-04_JPRB,0.61795E-04_JPRB,0.50465E-04_JPRB,0.29380E-04_JPRB /) |
1854 |
|
|
|
1855 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB22: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_KGB22:PART7',0,ZHOOK_HANDLE) |
1863 |
|
|
|
1864 |
|
|
|
1865 |
|
|
KA(:, 2, 8, 9) = (/ & |
1866 |
|
|
& 0.96189E-04_JPRB,0.93120E-04_JPRB,0.92132E-04_JPRB,0.89103E-04_JPRB,0.84653E-04_JPRB, & |
1867 |
|
✗ |
& 0.78456E-04_JPRB,0.70159E-04_JPRB,0.59177E-04_JPRB,0.37867E-04_JPRB /) |
1868 |
|
|
KA(:, 3, 8, 9) = (/ & |
1869 |
|
|
& 0.96665E-04_JPRB,0.96018E-04_JPRB,0.97008E-04_JPRB,0.95975E-04_JPRB,0.92760E-04_JPRB, & |
1870 |
|
✗ |
& 0.87379E-04_JPRB,0.79687E-04_JPRB,0.69248E-04_JPRB,0.47855E-04_JPRB /) |
1871 |
|
|
KA(:, 4, 8, 9) = (/ & |
1872 |
|
|
& 0.97168E-04_JPRB,0.99322E-04_JPRB,0.10289E-03_JPRB,0.10373E-03_JPRB,0.10169E-03_JPRB, & |
1873 |
|
✗ |
& 0.97397E-04_JPRB,0.90796E-04_JPRB,0.80805E-04_JPRB,0.59240E-04_JPRB /) |
1874 |
|
|
KA(:, 5, 8, 9) = (/ & |
1875 |
|
|
& 0.97641E-04_JPRB,0.10302E-03_JPRB,0.10967E-03_JPRB,0.11218E-03_JPRB,0.11166E-03_JPRB, & |
1876 |
|
✗ |
& 0.10896E-03_JPRB,0.10343E-03_JPRB,0.93210E-04_JPRB,0.71998E-04_JPRB /) |
1877 |
|
|
KA(:, 1, 9, 9) = (/ & |
1878 |
|
|
& 0.82482E-04_JPRB,0.78941E-04_JPRB,0.76398E-04_JPRB,0.72429E-04_JPRB,0.67369E-04_JPRB, & |
1879 |
|
✗ |
& 0.61188E-04_JPRB,0.53486E-04_JPRB,0.43219E-04_JPRB,0.23144E-04_JPRB /) |
1880 |
|
|
KA(:, 2, 9, 9) = (/ & |
1881 |
|
|
& 0.82941E-04_JPRB,0.81194E-04_JPRB,0.80391E-04_JPRB,0.77783E-04_JPRB,0.73924E-04_JPRB, & |
1882 |
|
✗ |
& 0.68383E-04_JPRB,0.61055E-04_JPRB,0.51145E-04_JPRB,0.30235E-04_JPRB /) |
1883 |
|
|
KA(:, 3, 9, 9) = (/ & |
1884 |
|
|
& 0.83462E-04_JPRB,0.83998E-04_JPRB,0.84977E-04_JPRB,0.84161E-04_JPRB,0.81323E-04_JPRB, & |
1885 |
|
✗ |
& 0.76538E-04_JPRB,0.69739E-04_JPRB,0.60350E-04_JPRB,0.38714E-04_JPRB /) |
1886 |
|
|
KA(:, 4, 9, 9) = (/ & |
1887 |
|
|
& 0.83976E-04_JPRB,0.87153E-04_JPRB,0.90583E-04_JPRB,0.91413E-04_JPRB,0.89589E-04_JPRB, & |
1888 |
|
✗ |
& 0.85741E-04_JPRB,0.79900E-04_JPRB,0.70947E-04_JPRB,0.48553E-04_JPRB /) |
1889 |
|
|
KA(:, 5, 9, 9) = (/ & |
1890 |
|
|
& 0.84461E-04_JPRB,0.90734E-04_JPRB,0.96938E-04_JPRB,0.99296E-04_JPRB,0.98864E-04_JPRB, & |
1891 |
|
✗ |
& 0.96399E-04_JPRB,0.91511E-04_JPRB,0.82490E-04_JPRB,0.59777E-04_JPRB /) |
1892 |
|
|
KA(:, 1,10, 9) = (/ & |
1893 |
|
|
& 0.70371E-04_JPRB,0.68110E-04_JPRB,0.65986E-04_JPRB,0.62636E-04_JPRB,0.58303E-04_JPRB, & |
1894 |
|
✗ |
& 0.52961E-04_JPRB,0.46122E-04_JPRB,0.37036E-04_JPRB,0.18341E-04_JPRB /) |
1895 |
|
|
KA(:, 2,10, 9) = (/ & |
1896 |
|
|
& 0.70853E-04_JPRB,0.70288E-04_JPRB,0.69669E-04_JPRB,0.67543E-04_JPRB,0.64271E-04_JPRB, & |
1897 |
|
✗ |
& 0.59496E-04_JPRB,0.53052E-04_JPRB,0.44224E-04_JPRB,0.24306E-04_JPRB /) |
1898 |
|
|
KA(:, 3,10, 9) = (/ & |
1899 |
|
|
& 0.71373E-04_JPRB,0.72956E-04_JPRB,0.74034E-04_JPRB,0.73423E-04_JPRB,0.71076E-04_JPRB, & |
1900 |
|
✗ |
& 0.66934E-04_JPRB,0.61048E-04_JPRB,0.52623E-04_JPRB,0.31537E-04_JPRB /) |
1901 |
|
|
KA(:, 4,10, 9) = (/ & |
1902 |
|
|
& 0.71862E-04_JPRB,0.75946E-04_JPRB,0.79283E-04_JPRB,0.80149E-04_JPRB,0.78712E-04_JPRB, & |
1903 |
|
✗ |
& 0.75412E-04_JPRB,0.70399E-04_JPRB,0.62323E-04_JPRB,0.40041E-04_JPRB /) |
1904 |
|
|
KA(:, 5,10, 9) = (/ & |
1905 |
|
|
& 0.72376E-04_JPRB,0.79405E-04_JPRB,0.85220E-04_JPRB,0.87544E-04_JPRB,0.87332E-04_JPRB, & |
1906 |
|
✗ |
& 0.85268E-04_JPRB,0.81104E-04_JPRB,0.73085E-04_JPRB,0.49845E-04_JPRB /) |
1907 |
|
|
KA(:, 1,11, 9) = (/ & |
1908 |
|
|
& 0.59776E-04_JPRB,0.59155E-04_JPRB,0.57996E-04_JPRB,0.55642E-04_JPRB,0.52323E-04_JPRB, & |
1909 |
|
✗ |
& 0.47930E-04_JPRB,0.42036E-04_JPRB,0.34179E-04_JPRB,0.16514E-04_JPRB /) |
1910 |
|
|
KA(:, 2,11, 9) = (/ & |
1911 |
|
|
& 0.60275E-04_JPRB,0.61436E-04_JPRB,0.61654E-04_JPRB,0.60490E-04_JPRB,0.58055E-04_JPRB, & |
1912 |
|
✗ |
& 0.54242E-04_JPRB,0.48750E-04_JPRB,0.41144E-04_JPRB,0.21987E-04_JPRB /) |
1913 |
|
|
KA(:, 3,11, 9) = (/ & |
1914 |
|
|
& 0.60746E-04_JPRB,0.64075E-04_JPRB,0.66078E-04_JPRB,0.66233E-04_JPRB,0.64629E-04_JPRB, & |
1915 |
|
✗ |
& 0.61455E-04_JPRB,0.56611E-04_JPRB,0.49290E-04_JPRB,0.28648E-04_JPRB /) |
1916 |
|
|
KA(:, 4,11, 9) = (/ & |
1917 |
|
|
& 0.61244E-04_JPRB,0.67066E-04_JPRB,0.71217E-04_JPRB,0.72696E-04_JPRB,0.72050E-04_JPRB, & |
1918 |
|
✗ |
& 0.69816E-04_JPRB,0.65797E-04_JPRB,0.58590E-04_JPRB,0.36515E-04_JPRB /) |
1919 |
|
|
KA(:, 5,11, 9) = (/ & |
1920 |
|
|
& 0.61769E-04_JPRB,0.70693E-04_JPRB,0.76979E-04_JPRB,0.79872E-04_JPRB,0.80561E-04_JPRB, & |
1921 |
|
✗ |
& 0.79478E-04_JPRB,0.76089E-04_JPRB,0.68898E-04_JPRB,0.45628E-04_JPRB /) |
1922 |
|
|
KA(:, 1,12, 9) = (/ & |
1923 |
|
|
& 0.50518E-04_JPRB,0.51187E-04_JPRB,0.50822E-04_JPRB,0.49284E-04_JPRB,0.46769E-04_JPRB, & |
1924 |
|
✗ |
& 0.43097E-04_JPRB,0.38110E-04_JPRB,0.31379E-04_JPRB,0.14783E-04_JPRB /) |
1925 |
|
|
KA(:, 2,12, 9) = (/ & |
1926 |
|
|
& 0.50964E-04_JPRB,0.53463E-04_JPRB,0.54457E-04_JPRB,0.54020E-04_JPRB,0.52266E-04_JPRB, & |
1927 |
|
✗ |
& 0.49174E-04_JPRB,0.44595E-04_JPRB,0.38042E-04_JPRB,0.19796E-04_JPRB /) |
1928 |
|
|
KA(:, 3,12, 9) = (/ & |
1929 |
|
|
& 0.51421E-04_JPRB,0.56033E-04_JPRB,0.58762E-04_JPRB,0.59481E-04_JPRB,0.58578E-04_JPRB, & |
1930 |
|
✗ |
& 0.56207E-04_JPRB,0.52260E-04_JPRB,0.45820E-04_JPRB,0.25919E-04_JPRB /) |
1931 |
|
|
KA(:, 4,12, 9) = (/ & |
1932 |
|
|
& 0.51920E-04_JPRB,0.59121E-04_JPRB,0.63731E-04_JPRB,0.65674E-04_JPRB,0.65806E-04_JPRB, & |
1933 |
|
✗ |
& 0.64464E-04_JPRB,0.61120E-04_JPRB,0.54677E-04_JPRB,0.33164E-04_JPRB /) |
1934 |
|
|
KA(:, 5,12, 9) = (/ & |
1935 |
|
|
& 0.52396E-04_JPRB,0.62780E-04_JPRB,0.69274E-04_JPRB,0.72637E-04_JPRB,0.74145E-04_JPRB, & |
1936 |
|
✗ |
& 0.73831E-04_JPRB,0.71039E-04_JPRB,0.64514E-04_JPRB,0.41597E-04_JPRB /) |
1937 |
|
|
KA(:, 1,13, 9) = (/ & |
1938 |
|
|
& 0.42486E-04_JPRB,0.44174E-04_JPRB,0.44463E-04_JPRB,0.43555E-04_JPRB,0.41568E-04_JPRB, & |
1939 |
|
✗ |
& 0.38563E-04_JPRB,0.34384E-04_JPRB,0.28625E-04_JPRB,0.13171E-04_JPRB /) |
1940 |
|
|
KA(:, 2,13, 9) = (/ & |
1941 |
|
|
& 0.42904E-04_JPRB,0.46376E-04_JPRB,0.47979E-04_JPRB,0.48065E-04_JPRB,0.46867E-04_JPRB, & |
1942 |
|
✗ |
& 0.44391E-04_JPRB,0.40615E-04_JPRB,0.34938E-04_JPRB,0.17746E-04_JPRB /) |
1943 |
|
|
KA(:, 3,13, 9) = (/ & |
1944 |
|
|
& 0.43349E-04_JPRB,0.48965E-04_JPRB,0.52137E-04_JPRB,0.53262E-04_JPRB,0.52962E-04_JPRB, & |
1945 |
|
✗ |
& 0.51246E-04_JPRB,0.47996E-04_JPRB,0.42282E-04_JPRB,0.23342E-04_JPRB /) |
1946 |
|
|
KA(:, 4,13, 9) = (/ & |
1947 |
|
|
& 0.43790E-04_JPRB,0.52076E-04_JPRB,0.56889E-04_JPRB,0.59186E-04_JPRB,0.60002E-04_JPRB, & |
1948 |
|
✗ |
& 0.59254E-04_JPRB,0.56460E-04_JPRB,0.50705E-04_JPRB,0.29999E-04_JPRB /) |
1949 |
|
|
KA(:, 5,13, 9) = (/ & |
1950 |
|
|
& 0.44254E-04_JPRB,0.55629E-04_JPRB,0.62209E-04_JPRB,0.65993E-04_JPRB,0.68105E-04_JPRB, & |
1951 |
|
✗ |
& 0.68270E-04_JPRB,0.65941E-04_JPRB,0.60145E-04_JPRB,0.37728E-04_JPRB /) |
1952 |
|
|
KA(:, 1, 1,10) = (/ & |
1953 |
|
|
& 0.42864E-03_JPRB,0.37538E-03_JPRB,0.32907E-03_JPRB,0.29701E-03_JPRB,0.26399E-03_JPRB, & |
1954 |
|
✗ |
& 0.23587E-03_JPRB,0.21519E-03_JPRB,0.20736E-03_JPRB,0.23690E-03_JPRB /) |
1955 |
|
|
KA(:, 2, 1,10) = (/ & |
1956 |
|
|
& 0.42770E-03_JPRB,0.37463E-03_JPRB,0.33468E-03_JPRB,0.30443E-03_JPRB,0.27635E-03_JPRB, & |
1957 |
|
✗ |
& 0.25424E-03_JPRB,0.24068E-03_JPRB,0.24289E-03_JPRB,0.27885E-03_JPRB /) |
1958 |
|
|
KA(:, 3, 1,10) = (/ & |
1959 |
|
|
& 0.42742E-03_JPRB,0.37444E-03_JPRB,0.34109E-03_JPRB,0.31378E-03_JPRB,0.29265E-03_JPRB, & |
1960 |
|
✗ |
& 0.27618E-03_JPRB,0.26729E-03_JPRB,0.27967E-03_JPRB,0.32090E-03_JPRB /) |
1961 |
|
|
KA(:, 4, 1,10) = (/ & |
1962 |
|
|
& 0.42756E-03_JPRB,0.37461E-03_JPRB,0.34714E-03_JPRB,0.32647E-03_JPRB,0.30721E-03_JPRB, & |
1963 |
|