Line |
Branch |
Exec |
Source |
1 |
|
|
!OCL SCALAR |
2 |
|
|
!pgi$r opt=0 |
3 |
|
✗ |
SUBROUTINE SRTM_KGB28 |
4 |
|
|
|
5 |
|
|
! Originally by J.Delamere, Atmospheric & Environmental Research. |
6 |
|
|
! Revision: 2.4 |
7 |
|
|
! BAND 28: 38000-50000 cm-1 (low - O3,O2; high - O3,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 YOESRTA28, ONLY : KA, KB, 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_KGB28',0,ZHOOK_HANDLE) |
27 |
|
|
|
28 |
|
✗ |
CALL PART1 |
29 |
|
✗ |
CALL PART2 |
30 |
|
✗ |
CALL PART3 |
31 |
|
✗ |
CALL PART4 |
32 |
|
✗ |
CALL PART5 |
33 |
|
✗ |
CALL PART6 |
34 |
|
✗ |
CALL PART7 |
35 |
|
✗ |
CALL PART8 |
36 |
|
✗ |
CALL PART9 |
37 |
|
✗ |
CALL PART10 |
38 |
|
✗ |
CALL PART11 |
39 |
|
✗ |
CALL PART12 |
40 |
|
✗ |
CALL PART13 |
41 |
|
✗ |
CALL PART14 |
42 |
|
✗ |
CALL PART15 |
43 |
|
✗ |
CALL PART16 |
44 |
|
✗ |
CALL PART17 |
45 |
|
✗ |
CALL PART18 |
46 |
|
✗ |
CALL PART19 |
47 |
|
✗ |
CALL PART20 |
48 |
|
✗ |
CALL PART21 |
49 |
|
✗ |
CALL PART22 |
50 |
|
✗ |
CALL PART23 |
51 |
|
✗ |
CALL PART24 |
52 |
|
✗ |
CALL PART25 |
53 |
|
✗ |
CALL PART26 |
54 |
|
✗ |
CALL PART27 |
55 |
|
✗ |
CALL PART28 |
56 |
|
✗ |
CALL PART29 |
57 |
|
✗ |
CALL PART30 |
58 |
|
✗ |
CALL PART31 |
59 |
|
✗ |
CALL PART32 |
60 |
|
✗ |
CALL PART33 |
61 |
|
✗ |
CALL PART34 |
62 |
|
✗ |
CALL PART35 |
63 |
|
✗ |
CALL PART36 |
64 |
|
✗ |
CALL PART37 |
65 |
|
|
|
66 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28',1,ZHOOK_HANDLE) |
67 |
|
|
|
68 |
|
|
! ----------------------------------------------------------------- |
69 |
|
|
|
70 |
|
|
CONTAINS |
71 |
|
|
|
72 |
|
|
|
73 |
|
✗ |
SUBROUTINE PART1 |
74 |
|
|
|
75 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
76 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART1',0,ZHOOK_HANDLE) |
77 |
|
|
|
78 |
|
|
|
79 |
|
|
SFLUXREF(:,1) = (/ & |
80 |
|
|
& 1.06156_JPRB , 0.599910_JPRB , 0.422462_JPRB , 0.400077_JPRB , & |
81 |
|
|
& 0.282221_JPRB , 0.187893_JPRB , 6.77357E-02_JPRB, 3.04572E-02_JPRB, & |
82 |
|
|
& 2.00442E-02_JPRB, 2.30786E-03_JPRB, 2.08824E-03_JPRB, 1.42604E-03_JPRB, & |
83 |
|
✗ |
& 9.67384E-04_JPRB, 6.35362E-04_JPRB, 1.47727E-04_JPRB, 6.87639E-06_JPRB /) |
84 |
|
|
SFLUXREF(:,2) = (/ & |
85 |
|
|
& 1.07598_JPRB , 0.585099_JPRB , 0.422852_JPRB , 0.400077_JPRB , & |
86 |
|
|
& 0.282221_JPRB , 0.187893_JPRB , 6.69686E-02_JPRB, 3.09070E-02_JPRB, & |
87 |
|
|
& 2.02400E-02_JPRB, 2.47760E-03_JPRB, 1.89411E-03_JPRB, 1.41122E-03_JPRB, & |
88 |
|
✗ |
& 1.12449E-03_JPRB, 5.73505E-04_JPRB, 2.04160E-04_JPRB, 1.58371E-05_JPRB /) |
89 |
|
|
SFLUXREF(:,3) = (/ & |
90 |
|
|
& 0.461647_JPRB , 0.406113_JPRB , 0.332506_JPRB , 0.307508_JPRB , & |
91 |
|
|
& 0.211167_JPRB , 0.235457_JPRB , 0.495886_JPRB , 0.363921_JPRB , & |
92 |
|
|
& 0.192700_JPRB , 2.04678E-02_JPRB, 1.55407E-02_JPRB, 1.03882E-02_JPRB, & |
93 |
|
✗ |
& 1.10778E-02_JPRB, 1.00504E-02_JPRB, 4.93497E-03_JPRB, 5.73410E-04_JPRB /) |
94 |
|
|
SFLUXREF(:,4) = (/ & |
95 |
|
|
& 0.132669_JPRB , 0.175058_JPRB , 0.359263_JPRB , 0.388142_JPRB , & |
96 |
|
|
& 0.350359_JPRB , 0.475892_JPRB , 0.489593_JPRB , 0.408437_JPRB , & |
97 |
|
|
& 0.221049_JPRB , 1.94514E-02_JPRB, 1.54848E-02_JPRB, 1.44999E-02_JPRB, & |
98 |
|
✗ |
& 1.44568E-02_JPRB, 1.00527E-02_JPRB, 4.95897E-03_JPRB, 5.73327E-04_JPRB /) |
99 |
|
|
SFLUXREF(:,5) = (/ & |
100 |
|
|
& 7.54800E-02_JPRB, 0.232246_JPRB , 0.359263_JPRB , 0.388142_JPRB , & |
101 |
|
|
& 0.350359_JPRB , 0.426317_JPRB , 0.493485_JPRB , 0.432016_JPRB , & |
102 |
|
|
& 0.239203_JPRB , 1.74951E-02_JPRB, 1.74477E-02_JPRB, 1.83566E-02_JPRB, & |
103 |
|
✗ |
& 1.44818E-02_JPRB, 1.01048E-02_JPRB, 4.97487E-03_JPRB, 5.66831E-04_JPRB /) |
104 |
|
|
|
105 |
|
|
! Rayleigh extinction coefficient at v = ????? cm-1. |
106 |
|
✗ |
RAYL = 2.02E-05_JPRB |
107 |
|
|
|
108 |
|
✗ |
STRRAT = 6.67029E-07_JPRB |
109 |
|
|
|
110 |
|
✗ |
LAYREFFR = 58 |
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.46447E+02_JPRB,0.18001E+03_JPRB,0.31338E+03_JPRB,0.44652E+03_JPRB,0.54636E+03_JPRB, & |
133 |
|
✗ |
& 0.54173E+03_JPRB,0.45707E+03_JPRB,0.27363E+03_JPRB,0.35000E+02_JPRB /) |
134 |
|
|
KA(:, 2, 1, 1) = (/ & |
135 |
|
|
& 0.45270E+02_JPRB,0.17886E+03_JPRB,0.31225E+03_JPRB,0.44541E+03_JPRB,0.54177E+03_JPRB, & |
136 |
|
✗ |
& 0.53436E+03_JPRB,0.44932E+03_JPRB,0.26748E+03_JPRB,0.35000E+02_JPRB /) |
137 |
|
|
KA(:, 3, 1, 1) = (/ & |
138 |
|
|
& 0.44214E+02_JPRB,0.17776E+03_JPRB,0.31115E+03_JPRB,0.44427E+03_JPRB,0.53733E+03_JPRB, & |
139 |
|
✗ |
& 0.52756E+03_JPRB,0.44224E+03_JPRB,0.26195E+03_JPRB,0.35000E+02_JPRB /) |
140 |
|
|
KA(:, 4, 1, 1) = (/ & |
141 |
|
|
& 0.43259E+02_JPRB,0.17673E+03_JPRB,0.31005E+03_JPRB,0.44305E+03_JPRB,0.53298E+03_JPRB, & |
142 |
|
✗ |
& 0.52129E+03_JPRB,0.43574E+03_JPRB,0.25696E+03_JPRB,0.35000E+02_JPRB /) |
143 |
|
|
KA(:, 5, 1, 1) = (/ & |
144 |
|
|
& 0.42393E+02_JPRB,0.17575E+03_JPRB,0.30896E+03_JPRB,0.44173E+03_JPRB,0.52883E+03_JPRB, & |
145 |
|
✗ |
& 0.51548E+03_JPRB,0.42976E+03_JPRB,0.25242E+03_JPRB,0.35000E+02_JPRB /) |
146 |
|
|
KA(:, 1, 2, 1) = (/ & |
147 |
|
|
& 0.42908E+02_JPRB,0.17695E+03_JPRB,0.31077E+03_JPRB,0.44434E+03_JPRB,0.53161E+03_JPRB, & |
148 |
|
✗ |
& 0.51895E+03_JPRB,0.43332E+03_JPRB,0.25512E+03_JPRB,0.35000E+02_JPRB /) |
149 |
|
|
KA(:, 2, 2, 1) = (/ & |
150 |
|
|
& 0.41899E+02_JPRB,0.17596E+03_JPRB,0.30980E+03_JPRB,0.44336E+03_JPRB,0.52686E+03_JPRB, & |
151 |
|
✗ |
& 0.51213E+03_JPRB,0.42632E+03_JPRB,0.24984E+03_JPRB,0.35000E+02_JPRB /) |
152 |
|
|
KA(:, 3, 2, 1) = (/ & |
153 |
|
|
& 0.40995E+02_JPRB,0.17502E+03_JPRB,0.30884E+03_JPRB,0.44232E+03_JPRB,0.52230E+03_JPRB, & |
154 |
|
✗ |
& 0.50592E+03_JPRB,0.41995E+03_JPRB,0.24511E+03_JPRB,0.35000E+02_JPRB /) |
155 |
|
|
KA(:, 4, 2, 1) = (/ & |
156 |
|
|
& 0.40181E+02_JPRB,0.17412E+03_JPRB,0.30788E+03_JPRB,0.44119E+03_JPRB,0.51785E+03_JPRB, & |
157 |
|
✗ |
& 0.50025E+03_JPRB,0.41414E+03_JPRB,0.24085E+03_JPRB,0.35000E+02_JPRB /) |
158 |
|
|
KA(:, 5, 2, 1) = (/ & |
159 |
|
|
& 0.39443E+02_JPRB,0.17326E+03_JPRB,0.30691E+03_JPRB,0.43992E+03_JPRB,0.51364E+03_JPRB, & |
160 |
|
✗ |
& 0.49503E+03_JPRB,0.40882E+03_JPRB,0.23699E+03_JPRB,0.35000E+02_JPRB /) |
161 |
|
|
KA(:, 1, 3, 1) = (/ & |
162 |
|
|
& 0.40126E+02_JPRB,0.17457E+03_JPRB,0.30876E+03_JPRB,0.44248E+03_JPRB,0.51755E+03_JPRB, & |
163 |
|
✗ |
& 0.49986E+03_JPRB,0.41375E+03_JPRB,0.24056E+03_JPRB,0.35000E+02_JPRB /) |
164 |
|
|
KA(:, 2, 3, 1) = (/ & |
165 |
|
|
& 0.39240E+02_JPRB,0.17370E+03_JPRB,0.30792E+03_JPRB,0.44146E+03_JPRB,0.51254E+03_JPRB, & |
166 |
|
✗ |
& 0.49358E+03_JPRB,0.40735E+03_JPRB,0.23593E+03_JPRB,0.35000E+02_JPRB /) |
167 |
|
|
KA(:, 3, 3, 1) = (/ & |
168 |
|
|
& 0.38450E+02_JPRB,0.17288E+03_JPRB,0.30708E+03_JPRB,0.44031E+03_JPRB,0.50793E+03_JPRB, & |
169 |
|
✗ |
& 0.48786E+03_JPRB,0.40155E+03_JPRB,0.23179E+03_JPRB,0.35000E+02_JPRB /) |
170 |
|
|
KA(:, 4, 3, 1) = (/ & |
171 |
|
|
& 0.37740E+02_JPRB,0.17210E+03_JPRB,0.30624E+03_JPRB,0.43908E+03_JPRB,0.50368E+03_JPRB, & |
172 |
|
✗ |
& 0.48264E+03_JPRB,0.39629E+03_JPRB,0.22808E+03_JPRB,0.35000E+02_JPRB /) |
173 |
|
|
KA(:, 5, 3, 1) = (/ & |
174 |
|
|
& 0.37099E+02_JPRB,0.17134E+03_JPRB,0.30539E+03_JPRB,0.43781E+03_JPRB,0.49975E+03_JPRB, & |
175 |
|
✗ |
& 0.47787E+03_JPRB,0.39149E+03_JPRB,0.22473E+03_JPRB,0.35000E+02_JPRB /) |
176 |
|
|
KA(:, 1, 4, 1) = (/ & |
177 |
|
|
& 0.37818E+02_JPRB,0.17258E+03_JPRB,0.30708E+03_JPRB,0.43967E+03_JPRB,0.50412E+03_JPRB, & |
178 |
|
✗ |
& 0.48321E+03_JPRB,0.39687E+03_JPRB,0.22848E+03_JPRB,0.35000E+02_JPRB /) |
179 |
|
|
KA(:, 2, 4, 1) = (/ & |
180 |
|
|
& 0.37034E+02_JPRB,0.17183E+03_JPRB,0.30636E+03_JPRB,0.43833E+03_JPRB,0.49935E+03_JPRB, & |
181 |
|
✗ |
& 0.47738E+03_JPRB,0.39100E+03_JPRB,0.22439E+03_JPRB,0.35000E+02_JPRB /) |
182 |
|
|
KA(:, 3, 4, 1) = (/ & |
183 |
|
|
& 0.36338E+02_JPRB,0.17111E+03_JPRB,0.30564E+03_JPRB,0.43700E+03_JPRB,0.49496E+03_JPRB, & |
184 |
|
✗ |
& 0.47212E+03_JPRB,0.38572E+03_JPRB,0.22075E+03_JPRB,0.35000E+02_JPRB /) |
185 |
|
|
KA(:, 4, 4, 1) = (/ & |
186 |
|
|
& 0.35716E+02_JPRB,0.17043E+03_JPRB,0.30491E+03_JPRB,0.43569E+03_JPRB,0.49094E+03_JPRB, & |
187 |
|
✗ |
& 0.46732E+03_JPRB,0.38094E+03_JPRB,0.21749E+03_JPRB,0.35000E+02_JPRB /) |
188 |
|
|
KA(:, 5, 4, 1) = (/ & |
189 |
|
|
& 0.35156E+02_JPRB,0.16977E+03_JPRB,0.30416E+03_JPRB,0.43437E+03_JPRB,0.48726E+03_JPRB, & |
190 |
|
✗ |
& 0.46294E+03_JPRB,0.37660E+03_JPRB,0.21456E+03_JPRB,0.35000E+02_JPRB /) |
191 |
|
|
KA(:, 1, 5, 1) = (/ & |
192 |
|
|
& 0.35857E+02_JPRB,0.17089E+03_JPRB,0.30563E+03_JPRB,0.43619E+03_JPRB,0.49186E+03_JPRB, & |
193 |
|
✗ |
& 0.46841E+03_JPRB,0.38202E+03_JPRB,0.21822E+03_JPRB,0.35000E+02_JPRB /) |
194 |
|
|
KA(:, 2, 5, 1) = (/ & |
195 |
|
|
& 0.35163E+02_JPRB,0.17023E+03_JPRB,0.30502E+03_JPRB,0.43478E+03_JPRB,0.48731E+03_JPRB, & |
196 |
|
✗ |
& 0.46300E+03_JPRB,0.37666E+03_JPRB,0.21460E+03_JPRB,0.35000E+02_JPRB /) |
197 |
|
|
KA(:, 3, 5, 1) = (/ & |
198 |
|
|
& 0.34550E+02_JPRB,0.16961E+03_JPRB,0.30441E+03_JPRB,0.43332E+03_JPRB,0.48321E+03_JPRB, & |
199 |
|
✗ |
& 0.45813E+03_JPRB,0.37186E+03_JPRB,0.21139E+03_JPRB,0.35000E+02_JPRB /) |
200 |
|
|
KA(:, 4, 5, 1) = (/ & |
201 |
|
|
& 0.34004E+02_JPRB,0.16902E+03_JPRB,0.30378E+03_JPRB,0.43194E+03_JPRB,0.47950E+03_JPRB, & |
202 |
|
✗ |
& 0.45375E+03_JPRB,0.36755E+03_JPRB,0.20853E+03_JPRB,0.35000E+02_JPRB /) |
203 |
|
|
KA(:, 5, 5, 1) = (/ & |
204 |
|
|
& 0.33514E+02_JPRB,0.16844E+03_JPRB,0.30312E+03_JPRB,0.43058E+03_JPRB,0.47611E+03_JPRB, & |
205 |
|
✗ |
& 0.44977E+03_JPRB,0.36365E+03_JPRB,0.20597E+03_JPRB,0.35000E+02_JPRB /) |
206 |
|
|
KA(:, 1, 6, 1) = (/ & |
207 |
|
|
& 0.34212E+02_JPRB,0.16946E+03_JPRB,0.30440E+03_JPRB,0.43247E+03_JPRB,0.48092E+03_JPRB, & |
208 |
|
✗ |
& 0.45542E+03_JPRB,0.36920E+03_JPRB,0.20962E+03_JPRB,0.35000E+02_JPRB /) |
209 |
|
|
KA(:, 2, 6, 1) = (/ & |
210 |
|
|
& 0.33595E+02_JPRB,0.16889E+03_JPRB,0.30389E+03_JPRB,0.43093E+03_JPRB,0.47667E+03_JPRB, & |
211 |
|
✗ |
& 0.45043E+03_JPRB,0.36430E+03_JPRB,0.20639E+03_JPRB,0.35000E+02_JPRB /) |
212 |
|
|
KA(:, 3, 6, 1) = (/ & |
213 |
|
|
& 0.33052E+02_JPRB,0.16835E+03_JPRB,0.30337E+03_JPRB,0.42946E+03_JPRB,0.47287E+03_JPRB, & |
214 |
|
✗ |
& 0.44599E+03_JPRB,0.35993E+03_JPRB,0.20355E+03_JPRB,0.35000E+02_JPRB /) |
215 |
|
|
KA(:, 4, 6, 1) = (/ & |
216 |
|
|
& 0.32571E+02_JPRB,0.16784E+03_JPRB,0.30283E+03_JPRB,0.42807E+03_JPRB,0.46947E+03_JPRB, & |
217 |
|
✗ |
& 0.44201E+03_JPRB,0.35602E+03_JPRB,0.20103E+03_JPRB,0.35000E+02_JPRB /) |
218 |
|
|
KA(:, 5, 6, 1) = (/ & |
219 |
|
|
& 0.32141E+02_JPRB,0.16733E+03_JPRB,0.30227E+03_JPRB,0.42674E+03_JPRB,0.46640E+03_JPRB, & |
220 |
|
✗ |
& 0.43842E+03_JPRB,0.35250E+03_JPRB,0.19879E+03_JPRB,0.35000E+02_JPRB /) |
221 |
|
|
KA(:, 1, 7, 1) = (/ & |
222 |
|
|
& 0.32812E+02_JPRB,0.16823E+03_JPRB,0.30334E+03_JPRB,0.42859E+03_JPRB,0.47118E+03_JPRB, & |
223 |
|
✗ |
& 0.44401E+03_JPRB,0.35799E+03_JPRB,0.20230E+03_JPRB,0.35000E+02_JPRB /) |
224 |
|
|
KA(:, 2, 7, 1) = (/ & |
225 |
|
|
& 0.32263E+02_JPRB,0.16774E+03_JPRB,0.30291E+03_JPRB,0.42708E+03_JPRB,0.46727E+03_JPRB, & |
226 |
|
✗ |
& 0.43944E+03_JPRB,0.35350E+03_JPRB,0.19942E+03_JPRB,0.35000E+02_JPRB /) |
227 |
|
|
KA(:, 3, 7, 1) = (/ & |
228 |
|
|
& 0.31782E+02_JPRB,0.16728E+03_JPRB,0.30248E+03_JPRB,0.42558E+03_JPRB,0.46381E+03_JPRB, & |
229 |
|
✗ |
& 0.43539E+03_JPRB,0.34954E+03_JPRB,0.19691E+03_JPRB,0.35000E+02_JPRB /) |
230 |
|
|
KA(:, 4, 7, 1) = (/ & |
231 |
|
|
& 0.31357E+02_JPRB,0.16683E+03_JPRB,0.30203E+03_JPRB,0.42413E+03_JPRB,0.46069E+03_JPRB, & |
232 |
|
✗ |
& 0.43177E+03_JPRB,0.34599E+03_JPRB,0.19468E+03_JPRB,0.35000E+02_JPRB /) |
233 |
|
|
KA(:, 5, 7, 1) = (/ & |
234 |
|
|
& 0.30980E+02_JPRB,0.16640E+03_JPRB,0.30154E+03_JPRB,0.42276E+03_JPRB,0.45787E+03_JPRB, & |
235 |
|
✗ |
& 0.42852E+03_JPRB,0.34280E+03_JPRB,0.19271E+03_JPRB,0.35000E+02_JPRB /) |
236 |
|
|
KA(:, 1, 8, 1) = (/ & |
237 |
|
|
& 0.31614E+02_JPRB,0.16716E+03_JPRB,0.30239E+03_JPRB,0.42473E+03_JPRB,0.46259E+03_JPRB, & |
238 |
|
✗ |
& 0.43397E+03_JPRB,0.34814E+03_JPRB,0.19603E+03_JPRB,0.35000E+02_JPRB /) |
239 |
|
|
KA(:, 2, 8, 1) = (/ & |
240 |
|
|
& 0.31125E+02_JPRB,0.16674E+03_JPRB,0.30206E+03_JPRB,0.42311E+03_JPRB,0.45896E+03_JPRB, & |
241 |
|
✗ |
& 0.42978E+03_JPRB,0.34403E+03_JPRB,0.19347E+03_JPRB,0.35000E+02_JPRB /) |
242 |
|
|
KA(:, 3, 8, 1) = (/ & |
243 |
|
|
& 0.30699E+02_JPRB,0.16635E+03_JPRB,0.30170E+03_JPRB,0.42163E+03_JPRB,0.45573E+03_JPRB, & |
244 |
|
✗ |
& 0.42608E+03_JPRB,0.34039E+03_JPRB,0.19124E+03_JPRB,0.35000E+02_JPRB /) |
245 |
|
|
KA(:, 4, 8, 1) = (/ & |
246 |
|
|
& 0.30325E+02_JPRB,0.16597E+03_JPRB,0.30133E+03_JPRB,0.42027E+03_JPRB,0.45286E+03_JPRB, & |
247 |
|
✗ |
& 0.42281E+03_JPRB,0.33716E+03_JPRB,0.18928E+03_JPRB,0.35000E+02_JPRB /) |
248 |
|
|
KA(:, 5, 8, 1) = (/ & |
249 |
|
|
& 0.29993E+02_JPRB,0.16559E+03_JPRB,0.30092E+03_JPRB,0.41901E+03_JPRB,0.45030E+03_JPRB, & |
250 |
|
✗ |
& 0.41988E+03_JPRB,0.33427E+03_JPRB,0.18755E+03_JPRB,0.35000E+02_JPRB /) |
251 |
|
|
KA(:, 1, 9, 1) = (/ & |
252 |
|
|
& 0.30594E+02_JPRB,0.16624E+03_JPRB,0.30156E+03_JPRB,0.42087E+03_JPRB,0.45493E+03_JPRB, & |
253 |
|
✗ |
& 0.42517E+03_JPRB,0.33949E+03_JPRB,0.19069E+03_JPRB,0.35000E+02_JPRB /) |
254 |
|
|
KA(:, 2, 9, 1) = (/ & |
255 |
|
|
& 0.30158E+02_JPRB,0.16589E+03_JPRB,0.30131E+03_JPRB,0.41937E+03_JPRB,0.45157E+03_JPRB, & |
256 |
|
✗ |
& 0.42134E+03_JPRB,0.33570E+03_JPRB,0.18841E+03_JPRB,0.35000E+02_JPRB /) |
257 |
|
|
KA(:, 3, 9, 1) = (/ & |
258 |
|
|
& 0.29780E+02_JPRB,0.16556E+03_JPRB,0.30103E+03_JPRB,0.41800E+03_JPRB,0.44864E+03_JPRB, & |
259 |
|
✗ |
& 0.41799E+03_JPRB,0.33239E+03_JPRB,0.18643E+03_JPRB,0.35000E+02_JPRB /) |
260 |
|
|
KA(:, 4, 9, 1) = (/ & |
261 |
|
|
& 0.29450E+02_JPRB,0.16523E+03_JPRB,0.30072E+03_JPRB,0.41674E+03_JPRB,0.44606E+03_JPRB, & |
262 |
|
✗ |
& 0.41504E+03_JPRB,0.32946E+03_JPRB,0.18471E+03_JPRB,0.35000E+02_JPRB /) |
263 |
|
|
KA(:, 5, 9, 1) = (/ & |
264 |
|
|
& 0.29159E+02_JPRB,0.16491E+03_JPRB,0.30039E+03_JPRB,0.41557E+03_JPRB,0.44377E+03_JPRB, & |
265 |
|
✗ |
& 0.41242E+03_JPRB,0.32686E+03_JPRB,0.18318E+03_JPRB,0.35000E+02_JPRB /) |
266 |
|
|
KA(:, 1,10, 1) = (/ & |
267 |
|
|
& 0.29691E+02_JPRB,0.16541E+03_JPRB,0.30081E+03_JPRB,0.41722E+03_JPRB,0.44795E+03_JPRB, & |
268 |
|
✗ |
& 0.41720E+03_JPRB,0.33160E+03_JPRB,0.18597E+03_JPRB,0.35000E+02_JPRB /) |
269 |
|
|
KA(:, 2,10, 1) = (/ & |
270 |
|
|
& 0.29307E+02_JPRB,0.16512E+03_JPRB,0.30063E+03_JPRB,0.41581E+03_JPRB,0.44493E+03_JPRB, & |
271 |
|
✗ |
& 0.41375E+03_JPRB,0.32818E+03_JPRB,0.18396E+03_JPRB,0.35000E+02_JPRB /) |
272 |
|
|
KA(:, 3,10, 1) = (/ & |
273 |
|
|
& 0.28975E+02_JPRB,0.16485E+03_JPRB,0.30042E+03_JPRB,0.41454E+03_JPRB,0.44231E+03_JPRB, & |
274 |
|
✗ |
& 0.41076E+03_JPRB,0.32520E+03_JPRB,0.18222E+03_JPRB,0.35000E+02_JPRB /) |
275 |
|
|
KA(:, 4,10, 1) = (/ & |
276 |
|
|
& 0.28687E+02_JPRB,0.16458E+03_JPRB,0.30018E+03_JPRB,0.41340E+03_JPRB,0.44002E+03_JPRB, & |
277 |
|
✗ |
& 0.40814E+03_JPRB,0.32259E+03_JPRB,0.18071E+03_JPRB,0.35000E+02_JPRB /) |
278 |
|
|
KA(:, 5,10, 1) = (/ & |
279 |
|
|
& 0.28434E+02_JPRB,0.16431E+03_JPRB,0.29989E+03_JPRB,0.41235E+03_JPRB,0.43799E+03_JPRB, & |
280 |
|
✗ |
& 0.40583E+03_JPRB,0.32028E+03_JPRB,0.17939E+03_JPRB,0.35000E+02_JPRB /) |
281 |
|
|
KA(:, 1,11, 1) = (/ & |
282 |
|
|
& 0.28760E+02_JPRB,0.16459E+03_JPRB,0.30010E+03_JPRB,0.41321E+03_JPRB,0.44060E+03_JPRB, & |
283 |
|
✗ |
& 0.40880E+03_JPRB,0.32325E+03_JPRB,0.18109E+03_JPRB,0.35000E+02_JPRB /) |
284 |
|
|
KA(:, 2,11, 1) = (/ & |
285 |
|
|
& 0.28444E+02_JPRB,0.16436E+03_JPRB,0.29997E+03_JPRB,0.41200E+03_JPRB,0.43807E+03_JPRB, & |
286 |
|
✗ |
& 0.40592E+03_JPRB,0.32038E+03_JPRB,0.17944E+03_JPRB,0.35000E+02_JPRB /) |
287 |
|
|
KA(:, 3,11, 1) = (/ & |
288 |
|
|
& 0.28173E+02_JPRB,0.16414E+03_JPRB,0.29981E+03_JPRB,0.41092E+03_JPRB,0.43587E+03_JPRB, & |
289 |
|
✗ |
& 0.40342E+03_JPRB,0.31788E+03_JPRB,0.17802E+03_JPRB,0.35000E+02_JPRB /) |
290 |
|
|
KA(:, 4,11, 1) = (/ & |
291 |
|
|
& 0.27937E+02_JPRB,0.16392E+03_JPRB,0.29960E+03_JPRB,0.40994E+03_JPRB,0.43395E+03_JPRB, & |
292 |
|
✗ |
& 0.40124E+03_JPRB,0.31570E+03_JPRB,0.17679E+03_JPRB,0.35000E+02_JPRB /) |
293 |
|
|
KA(:, 5,11, 1) = (/ & |
294 |
|
|
& 0.27730E+02_JPRB,0.16369E+03_JPRB,0.29936E+03_JPRB,0.40905E+03_JPRB,0.43224E+03_JPRB, & |
295 |
|
✗ |
& 0.39931E+03_JPRB,0.31377E+03_JPRB,0.17571E+03_JPRB,0.35000E+02_JPRB /) |
296 |
|
|
KA(:, 1,12, 1) = (/ & |
297 |
|
|
& 0.27995E+02_JPRB,0.16391E+03_JPRB,0.29951E+03_JPRB,0.40970E+03_JPRB,0.43443E+03_JPRB, & |
298 |
|
✗ |
& 0.40178E+03_JPRB,0.31624E+03_JPRB,0.17709E+03_JPRB,0.35000E+02_JPRB /) |
299 |
|
|
KA(:, 2,12, 1) = (/ & |
300 |
|
|
& 0.27737E+02_JPRB,0.16374E+03_JPRB,0.29943E+03_JPRB,0.40869E+03_JPRB,0.43230E+03_JPRB, & |
301 |
|
✗ |
& 0.39938E+03_JPRB,0.31384E+03_JPRB,0.17574E+03_JPRB,0.35000E+02_JPRB /) |
302 |
|
|
KA(:, 3,12, 1) = (/ & |
303 |
|
|
& 0.27515E+02_JPRB,0.16356E+03_JPRB,0.29930E+03_JPRB,0.40779E+03_JPRB,0.43046E+03_JPRB, & |
304 |
|
✗ |
& 0.39730E+03_JPRB,0.31176E+03_JPRB,0.17458E+03_JPRB,0.35000E+02_JPRB /) |
305 |
|
|
KA(:, 4,12, 1) = (/ & |
306 |
|
|
& 0.27322E+02_JPRB,0.16338E+03_JPRB,0.29913E+03_JPRB,0.40697E+03_JPRB,0.42883E+03_JPRB, & |
307 |
|
✗ |
& 0.39548E+03_JPRB,0.30994E+03_JPRB,0.17357E+03_JPRB,0.35000E+02_JPRB /) |
308 |
|
|
KA(:, 5,12, 1) = (/ & |
309 |
|
|
& 0.27152E+02_JPRB,0.16318E+03_JPRB,0.29892E+03_JPRB,0.40622E+03_JPRB,0.42740E+03_JPRB, & |
310 |
|
✗ |
& 0.39387E+03_JPRB,0.30834E+03_JPRB,0.17268E+03_JPRB,0.35000E+02_JPRB /) |
311 |
|
|
KA(:, 1,13, 1) = (/ & |
312 |
|
|
& 0.27369E+02_JPRB,0.16336E+03_JPRB,0.29903E+03_JPRB,0.40671E+03_JPRB,0.42924E+03_JPRB, & |
313 |
|
✗ |
& 0.39593E+03_JPRB,0.31039E+03_JPRB,0.17382E+03_JPRB,0.35000E+02_JPRB /) |
314 |
|
|
KA(:, 2,13, 1) = (/ & |
315 |
|
|
& 0.27158E+02_JPRB,0.16323E+03_JPRB,0.29898E+03_JPRB,0.40587E+03_JPRB,0.42745E+03_JPRB, & |
316 |
|
✗ |
& 0.39393E+03_JPRB,0.30840E+03_JPRB,0.17271E+03_JPRB,0.35000E+02_JPRB /) |
317 |
|
|
KA(:, 3,13, 1) = (/ & |
318 |
|
|
& 0.26976E+02_JPRB,0.16309E+03_JPRB,0.29889E+03_JPRB,0.40513E+03_JPRB,0.42590E+03_JPRB, & |
319 |
|
✗ |
& 0.39221E+03_JPRB,0.30667E+03_JPRB,0.17176E+03_JPRB,0.35000E+02_JPRB /) |
320 |
|
|
KA(:, 4,13, 1) = (/ & |
321 |
|
|
& 0.26818E+02_JPRB,0.16293E+03_JPRB,0.29875E+03_JPRB,0.40445E+03_JPRB,0.42455E+03_JPRB, & |
322 |
|
✗ |
& 0.39070E+03_JPRB,0.30516E+03_JPRB,0.17093E+03_JPRB,0.35000E+02_JPRB /) |
323 |
|
|
KA(:, 5,13, 1) = (/ & |
324 |
|
|
& 0.26679E+02_JPRB,0.16276E+03_JPRB,0.29855E+03_JPRB,0.40381E+03_JPRB,0.42335E+03_JPRB, & |
325 |
|
✗ |
& 0.38937E+03_JPRB,0.30384E+03_JPRB,0.17021E+03_JPRB,0.35000E+02_JPRB /) |
326 |
|
|
KA(:, 1, 1, 2) = (/ & |
327 |
|
|
& 0.17271E+03_JPRB,0.27646E+03_JPRB,0.38039E+03_JPRB,0.48420E+03_JPRB,0.56932E+03_JPRB, & |
328 |
|
✗ |
& 0.57534E+03_JPRB,0.47873E+03_JPRB,0.28147E+03_JPRB,0.71840E+02_JPRB /) |
329 |
|
|
KA(:, 2, 1, 2) = (/ & |
330 |
|
|
& 0.16834E+03_JPRB,0.27246E+03_JPRB,0.37678E+03_JPRB,0.48091E+03_JPRB,0.56471E+03_JPRB, & |
331 |
|
✗ |
& 0.56734E+03_JPRB,0.47005E+03_JPRB,0.27593E+03_JPRB,0.71840E+02_JPRB /) |
332 |
|
|
KA(:, 3, 1, 2) = (/ & |
333 |
|
|
& 0.16441E+03_JPRB,0.26883E+03_JPRB,0.37341E+03_JPRB,0.47777E+03_JPRB,0.56037E+03_JPRB, & |
334 |
|
✗ |
& 0.56003E+03_JPRB,0.46210E+03_JPRB,0.27096E+03_JPRB,0.71840E+02_JPRB /) |
335 |
|
|
KA(:, 4, 1, 2) = (/ & |
336 |
|
|
& 0.16086E+03_JPRB,0.26548E+03_JPRB,0.37025E+03_JPRB,0.47479E+03_JPRB,0.55629E+03_JPRB, & |
337 |
|
✗ |
& 0.55327E+03_JPRB,0.45481E+03_JPRB,0.26647E+03_JPRB,0.71840E+02_JPRB /) |
338 |
|
|
KA(:, 5, 1, 2) = (/ & |
339 |
|
|
& 0.15764E+03_JPRB,0.26237E+03_JPRB,0.36725E+03_JPRB,0.47195E+03_JPRB,0.55235E+03_JPRB, & |
340 |
|
✗ |
& 0.54701E+03_JPRB,0.44810E+03_JPRB,0.26239E+03_JPRB,0.71840E+02_JPRB /) |
341 |
|
|
KA(:, 1, 2, 2) = (/ & |
342 |
|
|
& 0.15955E+03_JPRB,0.26500E+03_JPRB,0.37067E+03_JPRB,0.47595E+03_JPRB,0.55480E+03_JPRB, & |
343 |
|
✗ |
& 0.55074E+03_JPRB,0.45210E+03_JPRB,0.26482E+03_JPRB,0.71840E+02_JPRB /) |
344 |
|
|
KA(:, 2, 2, 2) = (/ & |
345 |
|
|
& 0.15580E+03_JPRB,0.26157E+03_JPRB,0.36756E+03_JPRB,0.47303E+03_JPRB,0.55028E+03_JPRB, & |
346 |
|
✗ |
& 0.54339E+03_JPRB,0.44423E+03_JPRB,0.26007E+03_JPRB,0.71840E+02_JPRB /) |
347 |
|
|
KA(:, 3, 2, 2) = (/ & |
348 |
|
|
& 0.15244E+03_JPRB,0.25844E+03_JPRB,0.36465E+03_JPRB,0.47023E+03_JPRB,0.54619E+03_JPRB, & |
349 |
|
✗ |
& 0.53664E+03_JPRB,0.43708E+03_JPRB,0.25581E+03_JPRB,0.71840E+02_JPRB /) |
350 |
|
|
KA(:, 4, 2, 2) = (/ & |
351 |
|
|
& 0.14941E+03_JPRB,0.25556E+03_JPRB,0.36191E+03_JPRB,0.46753E+03_JPRB,0.54253E+03_JPRB, & |
352 |
|
✗ |
& 0.53041E+03_JPRB,0.43052E+03_JPRB,0.25198E+03_JPRB,0.71840E+02_JPRB /) |
353 |
|
|
KA(:, 5, 2, 2) = (/ & |
354 |
|
|
& 0.14667E+03_JPRB,0.25289E+03_JPRB,0.35930E+03_JPRB,0.46494E+03_JPRB,0.53908E+03_JPRB, & |
355 |
|
✗ |
& 0.52470E+03_JPRB,0.42448E+03_JPRB,0.24851E+03_JPRB,0.71840E+02_JPRB /) |
356 |
|
|
KA(:, 1, 3, 2) = (/ & |
357 |
|
|
& 0.14921E+03_JPRB,0.25601E+03_JPRB,0.36308E+03_JPRB,0.46872E+03_JPRB,0.54234E+03_JPRB, & |
358 |
|
✗ |
& 0.52999E+03_JPRB,0.43007E+03_JPRB,0.25172E+03_JPRB,0.71840E+02_JPRB /) |
359 |
|
|
KA(:, 2, 3, 2) = (/ & |
360 |
|
|
& 0.14591E+03_JPRB,0.25301E+03_JPRB,0.36036E+03_JPRB,0.46599E+03_JPRB,0.53834E+03_JPRB, & |
361 |
|
✗ |
& 0.52313E+03_JPRB,0.42280E+03_JPRB,0.24755E+03_JPRB,0.71840E+02_JPRB /) |
362 |
|
|
KA(:, 3, 3, 2) = (/ & |
363 |
|
|
& 0.14297E+03_JPRB,0.25028E+03_JPRB,0.35782E+03_JPRB,0.46350E+03_JPRB,0.53459E+03_JPRB, & |
364 |
|
✗ |
& 0.51696E+03_JPRB,0.41619E+03_JPRB,0.24383E+03_JPRB,0.71840E+02_JPRB /) |
365 |
|
|
KA(:, 4, 3, 2) = (/ & |
366 |
|
|
& 0.14033E+03_JPRB,0.24777E+03_JPRB,0.35542E+03_JPRB,0.46116E+03_JPRB,0.53100E+03_JPRB, & |
367 |
|
✗ |
& 0.51122E+03_JPRB,0.41016E+03_JPRB,0.24049E+03_JPRB,0.71840E+02_JPRB /) |
368 |
|
|
|
369 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART1',1,ZHOOK_HANDLE) |
370 |
|
✗ |
END SUBROUTINE PART1 |
371 |
|
|
|
372 |
|
|
|
373 |
|
✗ |
SUBROUTINE PART2 |
374 |
|
|
|
375 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
376 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART2',0,ZHOOK_HANDLE) |
377 |
|
|
|
378 |
|
|
|
379 |
|
|
KA(:, 5, 3, 2) = (/ & |
380 |
|
|
& 0.13795E+03_JPRB,0.24544E+03_JPRB,0.35313E+03_JPRB,0.45882E+03_JPRB,0.52751E+03_JPRB, & |
381 |
|
✗ |
& 0.50591E+03_JPRB,0.40463E+03_JPRB,0.23747E+03_JPRB,0.71840E+02_JPRB /) |
382 |
|
|
KA(:, 1, 4, 2) = (/ & |
383 |
|
|
& 0.14062E+03_JPRB,0.24856E+03_JPRB,0.35678E+03_JPRB,0.46260E+03_JPRB,0.53137E+03_JPRB, & |
384 |
|
✗ |
& 0.51186E+03_JPRB,0.41082E+03_JPRB,0.24086E+03_JPRB,0.71840E+02_JPRB /) |
385 |
|
|
KA(:, 2, 4, 2) = (/ & |
386 |
|
|
& 0.13771E+03_JPRB,0.24592E+03_JPRB,0.35440E+03_JPRB,0.46020E+03_JPRB,0.52732E+03_JPRB, & |
387 |
|
✗ |
& 0.50537E+03_JPRB,0.40407E+03_JPRB,0.23717E+03_JPRB,0.71840E+02_JPRB /) |
388 |
|
|
KA(:, 3, 4, 2) = (/ & |
389 |
|
|
& 0.13512E+03_JPRB,0.24353E+03_JPRB,0.35219E+03_JPRB,0.45796E+03_JPRB,0.52348E+03_JPRB, & |
390 |
|
✗ |
& 0.49954E+03_JPRB,0.39798E+03_JPRB,0.23389E+03_JPRB,0.71840E+02_JPRB /) |
391 |
|
|
KA(:, 4, 4, 2) = (/ & |
392 |
|
|
& 0.13281E+03_JPRB,0.24133E+03_JPRB,0.35008E+03_JPRB,0.45583E+03_JPRB,0.51985E+03_JPRB, & |
393 |
|
✗ |
& 0.49431E+03_JPRB,0.39246E+03_JPRB,0.23096E+03_JPRB,0.71840E+02_JPRB /) |
394 |
|
|
KA(:, 5, 4, 2) = (/ & |
395 |
|
|
& 0.13073E+03_JPRB,0.23928E+03_JPRB,0.34807E+03_JPRB,0.45378E+03_JPRB,0.51643E+03_JPRB, & |
396 |
|
✗ |
& 0.48957E+03_JPRB,0.38745E+03_JPRB,0.22833E+03_JPRB,0.71840E+02_JPRB /) |
397 |
|
|
KA(:, 1, 5, 2) = (/ & |
398 |
|
|
& 0.13333E+03_JPRB,0.24222E+03_JPRB,0.35141E+03_JPRB,0.45702E+03_JPRB,0.52057E+03_JPRB, & |
399 |
|
✗ |
& 0.49550E+03_JPRB,0.39372E+03_JPRB,0.23163E+03_JPRB,0.71840E+02_JPRB /) |
400 |
|
|
KA(:, 2, 5, 2) = (/ & |
401 |
|
|
& 0.13075E+03_JPRB,0.23990E+03_JPRB,0.34934E+03_JPRB,0.45476E+03_JPRB,0.51651E+03_JPRB, & |
402 |
|
✗ |
& 0.48963E+03_JPRB,0.38752E+03_JPRB,0.22836E+03_JPRB,0.71840E+02_JPRB /) |
403 |
|
|
KA(:, 3, 5, 2) = (/ & |
404 |
|
|
& 0.12847E+03_JPRB,0.23780E+03_JPRB,0.34741E+03_JPRB,0.45266E+03_JPRB,0.51271E+03_JPRB, & |
405 |
|
✗ |
& 0.48438E+03_JPRB,0.38196E+03_JPRB,0.22548E+03_JPRB,0.71840E+02_JPRB /) |
406 |
|
|
KA(:, 4, 5, 2) = (/ & |
407 |
|
|
& 0.12644E+03_JPRB,0.23588E+03_JPRB,0.34557E+03_JPRB,0.45066E+03_JPRB,0.50911E+03_JPRB, & |
408 |
|
✗ |
& 0.47962E+03_JPRB,0.37696E+03_JPRB,0.22291E+03_JPRB,0.71840E+02_JPRB /) |
409 |
|
|
KA(:, 5, 5, 2) = (/ & |
410 |
|
|
& 0.12462E+03_JPRB,0.23409E+03_JPRB,0.34381E+03_JPRB,0.44874E+03_JPRB,0.50570E+03_JPRB, & |
411 |
|
✗ |
& 0.47526E+03_JPRB,0.37245E+03_JPRB,0.22060E+03_JPRB,0.71840E+02_JPRB /) |
412 |
|
|
KA(:, 1, 6, 2) = (/ & |
413 |
|
|
& 0.12722E+03_JPRB,0.23690E+03_JPRB,0.34688E+03_JPRB,0.45177E+03_JPRB,0.51032E+03_JPRB, & |
414 |
|
✗ |
& 0.48144E+03_JPRB,0.37887E+03_JPRB,0.22389E+03_JPRB,0.71840E+02_JPRB /) |
415 |
|
|
KA(:, 2, 6, 2) = (/ & |
416 |
|
|
& 0.12492E+03_JPRB,0.23485E+03_JPRB,0.34508E+03_JPRB,0.44967E+03_JPRB,0.50620E+03_JPRB, & |
417 |
|
✗ |
& 0.47598E+03_JPRB,0.37319E+03_JPRB,0.22098E+03_JPRB,0.71840E+02_JPRB /) |
418 |
|
|
KA(:, 3, 6, 2) = (/ & |
419 |
|
|
& 0.12290E+03_JPRB,0.23301E+03_JPRB,0.34340E+03_JPRB,0.44769E+03_JPRB,0.50242E+03_JPRB, & |
420 |
|
✗ |
& 0.47108E+03_JPRB,0.36815E+03_JPRB,0.21843E+03_JPRB,0.71840E+02_JPRB /) |
421 |
|
|
KA(:, 4, 6, 2) = (/ & |
422 |
|
|
& 0.12111E+03_JPRB,0.23132E+03_JPRB,0.34180E+03_JPRB,0.44582E+03_JPRB,0.49894E+03_JPRB, & |
423 |
|
✗ |
& 0.46668E+03_JPRB,0.36363E+03_JPRB,0.21616E+03_JPRB,0.71840E+02_JPRB /) |
424 |
|
|
KA(:, 5, 6, 2) = (/ & |
425 |
|
|
& 0.11952E+03_JPRB,0.22976E+03_JPRB,0.34026E+03_JPRB,0.44407E+03_JPRB,0.49574E+03_JPRB, & |
426 |
|
✗ |
& 0.46270E+03_JPRB,0.35956E+03_JPRB,0.21414E+03_JPRB,0.71840E+02_JPRB /) |
427 |
|
|
KA(:, 1, 7, 2) = (/ & |
428 |
|
|
& 0.12201E+03_JPRB,0.23235E+03_JPRB,0.34300E+03_JPRB,0.44700E+03_JPRB,0.50054E+03_JPRB, & |
429 |
|
✗ |
& 0.46889E+03_JPRB,0.36590E+03_JPRB,0.21730E+03_JPRB,0.71840E+02_JPRB /) |
430 |
|
|
KA(:, 2, 7, 2) = (/ & |
431 |
|
|
& 0.11997E+03_JPRB,0.23055E+03_JPRB,0.34145E+03_JPRB,0.44492E+03_JPRB,0.49657E+03_JPRB, & |
432 |
|
✗ |
& 0.46383E+03_JPRB,0.36071E+03_JPRB,0.21471E+03_JPRB,0.71840E+02_JPRB /) |
433 |
|
|
KA(:, 3, 7, 2) = (/ & |
434 |
|
|
& 0.11818E+03_JPRB,0.22894E+03_JPRB,0.33999E+03_JPRB,0.44309E+03_JPRB,0.49292E+03_JPRB, & |
435 |
|
✗ |
& 0.45934E+03_JPRB,0.35613E+03_JPRB,0.21245E+03_JPRB,0.71840E+02_JPRB /) |
436 |
|
|
KA(:, 4, 7, 2) = (/ & |
437 |
|
|
& 0.11660E+03_JPRB,0.22746E+03_JPRB,0.33859E+03_JPRB,0.44146E+03_JPRB,0.48959E+03_JPRB, & |
438 |
|
✗ |
& 0.45533E+03_JPRB,0.35208E+03_JPRB,0.21045E+03_JPRB,0.71840E+02_JPRB /) |
439 |
|
|
KA(:, 5, 7, 2) = (/ & |
440 |
|
|
& 0.11520E+03_JPRB,0.22609E+03_JPRB,0.33724E+03_JPRB,0.43996E+03_JPRB,0.48657E+03_JPRB, & |
441 |
|
✗ |
& 0.45175E+03_JPRB,0.34847E+03_JPRB,0.20867E+03_JPRB,0.71840E+02_JPRB /) |
442 |
|
|
KA(:, 1, 8, 2) = (/ & |
443 |
|
|
& 0.11756E+03_JPRB,0.22844E+03_JPRB,0.33965E+03_JPRB,0.44261E+03_JPRB,0.49147E+03_JPRB, & |
444 |
|
✗ |
& 0.45776E+03_JPRB,0.35454E+03_JPRB,0.21166E+03_JPRB,0.71840E+02_JPRB /) |
445 |
|
|
KA(:, 2, 8, 2) = (/ & |
446 |
|
|
& 0.11574E+03_JPRB,0.22687E+03_JPRB,0.33830E+03_JPRB,0.44082E+03_JPRB,0.48767E+03_JPRB, & |
447 |
|
✗ |
& 0.45313E+03_JPRB,0.34986E+03_JPRB,0.20936E+03_JPRB,0.71840E+02_JPRB /) |
448 |
|
|
KA(:, 3, 8, 2) = (/ & |
449 |
|
|
& 0.11415E+03_JPRB,0.22546E+03_JPRB,0.33704E+03_JPRB,0.43915E+03_JPRB,0.48429E+03_JPRB, & |
450 |
|
✗ |
& 0.44908E+03_JPRB,0.34579E+03_JPRB,0.20735E+03_JPRB,0.71840E+02_JPRB /) |
451 |
|
|
KA(:, 4, 8, 2) = (/ & |
452 |
|
|
& 0.11276E+03_JPRB,0.22417E+03_JPRB,0.33584E+03_JPRB,0.43758E+03_JPRB,0.48126E+03_JPRB, & |
453 |
|
✗ |
& 0.44549E+03_JPRB,0.34220E+03_JPRB,0.20559E+03_JPRB,0.71840E+02_JPRB /) |
454 |
|
|
KA(:, 5, 8, 2) = (/ & |
455 |
|
|
& 0.11153E+03_JPRB,0.22298E+03_JPRB,0.33466E+03_JPRB,0.43617E+03_JPRB,0.47855E+03_JPRB, & |
456 |
|
✗ |
& 0.44228E+03_JPRB,0.33902E+03_JPRB,0.20403E+03_JPRB,0.71840E+02_JPRB /) |
457 |
|
|
KA(:, 1, 9, 2) = (/ & |
458 |
|
|
& 0.11376E+03_JPRB,0.22510E+03_JPRB,0.33674E+03_JPRB,0.43882E+03_JPRB,0.48336E+03_JPRB, & |
459 |
|
✗ |
& 0.44807E+03_JPRB,0.34479E+03_JPRB,0.20686E+03_JPRB,0.71840E+02_JPRB /) |
460 |
|
|
KA(:, 2, 9, 2) = (/ & |
461 |
|
|
& 0.11214E+03_JPRB,0.22372E+03_JPRB,0.33559E+03_JPRB,0.43706E+03_JPRB,0.47989E+03_JPRB, & |
462 |
|
✗ |
& 0.44388E+03_JPRB,0.34060E+03_JPRB,0.20480E+03_JPRB,0.71840E+02_JPRB /) |
463 |
|
|
KA(:, 3, 9, 2) = (/ & |
464 |
|
|
& 0.11074E+03_JPRB,0.22250E+03_JPRB,0.33451E+03_JPRB,0.43547E+03_JPRB,0.47679E+03_JPRB, & |
465 |
|
✗ |
& 0.44020E+03_JPRB,0.33697E+03_JPRB,0.20303E+03_JPRB,0.71840E+02_JPRB /) |
466 |
|
|
KA(:, 4, 9, 2) = (/ & |
467 |
|
|
& 0.10951E+03_JPRB,0.22138E+03_JPRB,0.33348E+03_JPRB,0.43404E+03_JPRB,0.47404E+03_JPRB, & |
468 |
|
✗ |
& 0.43694E+03_JPRB,0.33379E+03_JPRB,0.20147E+03_JPRB,0.71840E+02_JPRB /) |
469 |
|
|
KA(:, 5, 9, 2) = (/ & |
470 |
|
|
& 0.10843E+03_JPRB,0.22034E+03_JPRB,0.33246E+03_JPRB,0.43277E+03_JPRB,0.47159E+03_JPRB, & |
471 |
|
✗ |
& 0.43405E+03_JPRB,0.33096E+03_JPRB,0.20010E+03_JPRB,0.71840E+02_JPRB /) |
472 |
|
|
KA(:, 1,10, 2) = (/ & |
473 |
|
|
& 0.11041E+03_JPRB,0.22214E+03_JPRB,0.33414E+03_JPRB,0.43517E+03_JPRB,0.47604E+03_JPRB, & |
474 |
|
✗ |
& 0.43932E+03_JPRB,0.33611E+03_JPRB,0.20261E+03_JPRB,0.71840E+02_JPRB /) |
475 |
|
|
KA(:, 2,10, 2) = (/ & |
476 |
|
|
& 0.10898E+03_JPRB,0.22095E+03_JPRB,0.33317E+03_JPRB,0.43358E+03_JPRB,0.47283E+03_JPRB, & |
477 |
|
✗ |
& 0.43552E+03_JPRB,0.33239E+03_JPRB,0.20080E+03_JPRB,0.71840E+02_JPRB /) |
478 |
|
|
KA(:, 3,10, 2) = (/ & |
479 |
|
|
& 0.10774E+03_JPRB,0.21989E+03_JPRB,0.33226E+03_JPRB,0.43213E+03_JPRB,0.47002E+03_JPRB, & |
480 |
|
✗ |
& 0.43222E+03_JPRB,0.32917E+03_JPRB,0.19924E+03_JPRB,0.71840E+02_JPRB /) |
481 |
|
|
KA(:, 4,10, 2) = (/ & |
482 |
|
|
& 0.10667E+03_JPRB,0.21893E+03_JPRB,0.33139E+03_JPRB,0.43083E+03_JPRB,0.46753E+03_JPRB, & |
483 |
|
✗ |
& 0.42932E+03_JPRB,0.32634E+03_JPRB,0.19788E+03_JPRB,0.71840E+02_JPRB /) |
484 |
|
|
KA(:, 5,10, 2) = (/ & |
485 |
|
|
& 0.10573E+03_JPRB,0.21803E+03_JPRB,0.33053E+03_JPRB,0.42965E+03_JPRB,0.46532E+03_JPRB, & |
486 |
|
✗ |
& 0.42677E+03_JPRB,0.32386E+03_JPRB,0.19669E+03_JPRB,0.71840E+02_JPRB /) |
487 |
|
|
KA(:, 1,11, 2) = (/ & |
488 |
|
|
& 0.10694E+03_JPRB,0.21911E+03_JPRB,0.33152E+03_JPRB,0.43127E+03_JPRB,0.46816E+03_JPRB, & |
489 |
|
✗ |
& 0.43005E+03_JPRB,0.32706E+03_JPRB,0.19822E+03_JPRB,0.71840E+02_JPRB /) |
490 |
|
|
KA(:, 2,11, 2) = (/ & |
491 |
|
|
& 0.10577E+03_JPRB,0.21815E+03_JPRB,0.33074E+03_JPRB,0.42984E+03_JPRB,0.46541E+03_JPRB, & |
492 |
|
✗ |
& 0.42687E+03_JPRB,0.32396E+03_JPRB,0.19674E+03_JPRB,0.71840E+02_JPRB /) |
493 |
|
|
KA(:, 3,11, 2) = (/ & |
494 |
|
|
& 0.10476E+03_JPRB,0.21728E+03_JPRB,0.33000E+03_JPRB,0.42855E+03_JPRB,0.46301E+03_JPRB, & |
495 |
|
✗ |
& 0.42411E+03_JPRB,0.32130E+03_JPRB,0.19546E+03_JPRB,0.71840E+02_JPRB /) |
496 |
|
|
KA(:, 4,11, 2) = (/ & |
497 |
|
|
& 0.10388E+03_JPRB,0.21649E+03_JPRB,0.32928E+03_JPRB,0.42741E+03_JPRB,0.46089E+03_JPRB, & |
498 |
|
✗ |
& 0.42169E+03_JPRB,0.31897E+03_JPRB,0.19435E+03_JPRB,0.71840E+02_JPRB /) |
499 |
|
|
KA(:, 5,11, 2) = (/ & |
500 |
|
|
& 0.10311E+03_JPRB,0.21575E+03_JPRB,0.32855E+03_JPRB,0.42639E+03_JPRB,0.45902E+03_JPRB, & |
501 |
|
✗ |
& 0.41954E+03_JPRB,0.31692E+03_JPRB,0.19338E+03_JPRB,0.71840E+02_JPRB /) |
502 |
|
|
KA(:, 1,12, 2) = (/ & |
503 |
|
|
& 0.10410E+03_JPRB,0.21663E+03_JPRB,0.32937E+03_JPRB,0.42778E+03_JPRB,0.46141E+03_JPRB, & |
504 |
|
✗ |
& 0.42229E+03_JPRB,0.31955E+03_JPRB,0.19463E+03_JPRB,0.71840E+02_JPRB /) |
505 |
|
|
KA(:, 2,12, 2) = (/ & |
506 |
|
|
& 0.10314E+03_JPRB,0.21585E+03_JPRB,0.32875E+03_JPRB,0.42654E+03_JPRB,0.45909E+03_JPRB, & |
507 |
|
✗ |
& 0.41961E+03_JPRB,0.31700E+03_JPRB,0.19341E+03_JPRB,0.71840E+02_JPRB /) |
508 |
|
|
KA(:, 3,12, 2) = (/ & |
509 |
|
|
& 0.10231E+03_JPRB,0.21515E+03_JPRB,0.32815E+03_JPRB,0.42544E+03_JPRB,0.45707E+03_JPRB, & |
510 |
|
✗ |
& 0.41729E+03_JPRB,0.31480E+03_JPRB,0.19236E+03_JPRB,0.71840E+02_JPRB /) |
511 |
|
|
KA(:, 4,12, 2) = (/ & |
512 |
|
|
& 0.10159E+03_JPRB,0.21449E+03_JPRB,0.32754E+03_JPRB,0.42445E+03_JPRB,0.45532E+03_JPRB, & |
513 |
|
✗ |
& 0.41526E+03_JPRB,0.31288E+03_JPRB,0.19145E+03_JPRB,0.71840E+02_JPRB /) |
514 |
|
|
KA(:, 5,12, 2) = (/ & |
515 |
|
|
& 0.10096E+03_JPRB,0.21387E+03_JPRB,0.32692E+03_JPRB,0.42356E+03_JPRB,0.45377E+03_JPRB, & |
516 |
|
✗ |
& 0.41347E+03_JPRB,0.31119E+03_JPRB,0.19066E+03_JPRB,0.71840E+02_JPRB /) |
517 |
|
|
KA(:, 1,13, 2) = (/ & |
518 |
|
|
& 0.10177E+03_JPRB,0.21460E+03_JPRB,0.32761E+03_JPRB,0.42475E+03_JPRB,0.45575E+03_JPRB, & |
519 |
|
✗ |
& 0.41576E+03_JPRB,0.31335E+03_JPRB,0.19168E+03_JPRB,0.71840E+02_JPRB /) |
520 |
|
|
KA(:, 2,13, 2) = (/ & |
521 |
|
|
& 0.10099E+03_JPRB,0.21397E+03_JPRB,0.32712E+03_JPRB,0.42368E+03_JPRB,0.45383E+03_JPRB, & |
522 |
|
✗ |
& 0.41353E+03_JPRB,0.31125E+03_JPRB,0.19068E+03_JPRB,0.71840E+02_JPRB /) |
523 |
|
|
KA(:, 3,13, 2) = (/ & |
524 |
|
|
& 0.10031E+03_JPRB,0.21340E+03_JPRB,0.32663E+03_JPRB,0.42272E+03_JPRB,0.45216E+03_JPRB, & |
525 |
|
✗ |
& 0.41160E+03_JPRB,0.30943E+03_JPRB,0.18983E+03_JPRB,0.71840E+02_JPRB /) |
526 |
|
|
KA(:, 4,13, 2) = (/ & |
527 |
|
|
& 0.99720E+02_JPRB,0.21286E+03_JPRB,0.32612E+03_JPRB,0.42187E+03_JPRB,0.45071E+03_JPRB, & |
528 |
|
✗ |
& 0.40991E+03_JPRB,0.30785E+03_JPRB,0.18908E+03_JPRB,0.71840E+02_JPRB /) |
529 |
|
|
KA(:, 5,13, 2) = (/ & |
530 |
|
|
& 0.99204E+02_JPRB,0.21233E+03_JPRB,0.32558E+03_JPRB,0.42112E+03_JPRB,0.44942E+03_JPRB, & |
531 |
|
✗ |
& 0.40842E+03_JPRB,0.30646E+03_JPRB,0.18843E+03_JPRB,0.71840E+02_JPRB /) |
532 |
|
|
KA(:, 1, 1, 3) = (/ & |
533 |
|
|
& 0.44909E+03_JPRB,0.47445E+03_JPRB,0.49981E+03_JPRB,0.52556E+03_JPRB,0.59352E+03_JPRB, & |
534 |
|
✗ |
& 0.63011E+03_JPRB,0.50440E+03_JPRB,0.31793E+03_JPRB,0.17829E+03_JPRB /) |
535 |
|
|
KA(:, 2, 1, 3) = (/ & |
536 |
|
|
& 0.43771E+03_JPRB,0.46449E+03_JPRB,0.49128E+03_JPRB,0.51852E+03_JPRB,0.58982E+03_JPRB, & |
537 |
|
✗ |
& 0.62155E+03_JPRB,0.49364E+03_JPRB,0.31383E+03_JPRB,0.17829E+03_JPRB /) |
538 |
|
|
KA(:, 3, 1, 3) = (/ & |
539 |
|
|
& 0.42749E+03_JPRB,0.45555E+03_JPRB,0.48362E+03_JPRB,0.51220E+03_JPRB,0.58623E+03_JPRB, & |
540 |
|
✗ |
& 0.61324E+03_JPRB,0.48379E+03_JPRB,0.31014E+03_JPRB,0.17829E+03_JPRB /) |
541 |
|
|
KA(:, 4, 1, 3) = (/ & |
542 |
|
|
& 0.41826E+03_JPRB,0.44748E+03_JPRB,0.47670E+03_JPRB,0.50650E+03_JPRB,0.58281E+03_JPRB, & |
543 |
|
✗ |
& 0.60555E+03_JPRB,0.47483E+03_JPRB,0.30681E+03_JPRB,0.17829E+03_JPRB /) |
544 |
|
|
KA(:, 5, 1, 3) = (/ & |
545 |
|
|
& 0.40989E+03_JPRB,0.44015E+03_JPRB,0.47042E+03_JPRB,0.50132E+03_JPRB,0.57944E+03_JPRB, & |
546 |
|
✗ |
& 0.59846E+03_JPRB,0.46657E+03_JPRB,0.30379E+03_JPRB,0.17829E+03_JPRB /) |
547 |
|
|
KA(:, 1, 2, 3) = (/ & |
548 |
|
|
& 0.41487E+03_JPRB,0.44451E+03_JPRB,0.47415E+03_JPRB,0.50447E+03_JPRB,0.58410E+03_JPRB, & |
549 |
|
✗ |
& 0.60269E+03_JPRB,0.47150E+03_JPRB,0.30559E+03_JPRB,0.17829E+03_JPRB /) |
550 |
|
|
KA(:, 2, 2, 3) = (/ & |
551 |
|
|
& 0.40511E+03_JPRB,0.43597E+03_JPRB,0.46683E+03_JPRB,0.49854E+03_JPRB,0.58056E+03_JPRB, & |
552 |
|
✗ |
& 0.59434E+03_JPRB,0.46181E+03_JPRB,0.30207E+03_JPRB,0.17829E+03_JPRB /) |
553 |
|
|
KA(:, 3, 2, 3) = (/ & |
554 |
|
|
& 0.39637E+03_JPRB,0.42832E+03_JPRB,0.46028E+03_JPRB,0.49326E+03_JPRB,0.57701E+03_JPRB, & |
555 |
|
✗ |
& 0.58648E+03_JPRB,0.45298E+03_JPRB,0.29892E+03_JPRB,0.17829E+03_JPRB /) |
556 |
|
|
KA(:, 4, 2, 3) = (/ & |
557 |
|
|
& 0.38850E+03_JPRB,0.42143E+03_JPRB,0.45437E+03_JPRB,0.48855E+03_JPRB,0.57350E+03_JPRB, & |
558 |
|
✗ |
& 0.57914E+03_JPRB,0.44500E+03_JPRB,0.29608E+03_JPRB,0.17829E+03_JPRB /) |
559 |
|
|
KA(:, 5, 2, 3) = (/ & |
560 |
|
|
& 0.38136E+03_JPRB,0.41519E+03_JPRB,0.44902E+03_JPRB,0.48433E+03_JPRB,0.57004E+03_JPRB, & |
561 |
|
✗ |
& 0.57245E+03_JPRB,0.43774E+03_JPRB,0.29351E+03_JPRB,0.17829E+03_JPRB /) |
562 |
|
|
KA(:, 1, 3, 3) = (/ & |
563 |
|
|
& 0.38797E+03_JPRB,0.42097E+03_JPRB,0.45397E+03_JPRB,0.48897E+03_JPRB,0.57508E+03_JPRB, & |
564 |
|
✗ |
& 0.57865E+03_JPRB,0.44446E+03_JPRB,0.29589E+03_JPRB,0.17829E+03_JPRB /) |
565 |
|
|
KA(:, 2, 3, 3) = (/ & |
566 |
|
|
& 0.37940E+03_JPRB,0.41348E+03_JPRB,0.44755E+03_JPRB,0.48416E+03_JPRB,0.57138E+03_JPRB, & |
567 |
|
✗ |
& 0.57059E+03_JPRB,0.43573E+03_JPRB,0.29280E+03_JPRB,0.17829E+03_JPRB /) |
568 |
|
|
KA(:, 3, 3, 3) = (/ & |
569 |
|
|
& 0.37176E+03_JPRB,0.40679E+03_JPRB,0.44182E+03_JPRB,0.47985E+03_JPRB,0.56781E+03_JPRB, & |
570 |
|
✗ |
& 0.56324E+03_JPRB,0.42791E+03_JPRB,0.29005E+03_JPRB,0.17829E+03_JPRB /) |
571 |
|
|
KA(:, 4, 3, 3) = (/ & |
572 |
|
|
& 0.36490E+03_JPRB,0.40078E+03_JPRB,0.43667E+03_JPRB,0.47599E+03_JPRB,0.56436E+03_JPRB, & |
573 |
|
✗ |
& 0.55656E+03_JPRB,0.42088E+03_JPRB,0.28757E+03_JPRB,0.17829E+03_JPRB /) |
574 |
|
|
KA(:, 5, 3, 3) = (/ & |
575 |
|
|
& 0.35870E+03_JPRB,0.39536E+03_JPRB,0.43202E+03_JPRB,0.47253E+03_JPRB,0.56109E+03_JPRB, & |
576 |
|
✗ |
& 0.55041E+03_JPRB,0.41448E+03_JPRB,0.28534E+03_JPRB,0.17829E+03_JPRB /) |
577 |
|
|
KA(:, 1, 4, 3) = (/ & |
578 |
|
|
& 0.36565E+03_JPRB,0.40144E+03_JPRB,0.43723E+03_JPRB,0.47759E+03_JPRB,0.56581E+03_JPRB, & |
579 |
|
✗ |
& 0.55729E+03_JPRB,0.42164E+03_JPRB,0.28784E+03_JPRB,0.17829E+03_JPRB /) |
580 |
|
|
KA(:, 2, 4, 3) = (/ & |
581 |
|
|
& 0.35808E+03_JPRB,0.39482E+03_JPRB,0.43155E+03_JPRB,0.47386E+03_JPRB,0.56215E+03_JPRB, & |
582 |
|
✗ |
& 0.54978E+03_JPRB,0.41381E+03_JPRB,0.28511E+03_JPRB,0.17829E+03_JPRB /) |
583 |
|
|
KA(:, 3, 4, 3) = (/ & |
584 |
|
|
& 0.35135E+03_JPRB,0.38893E+03_JPRB,0.42651E+03_JPRB,0.47052E+03_JPRB,0.55875E+03_JPRB, & |
585 |
|
✗ |
& 0.54295E+03_JPRB,0.40683E+03_JPRB,0.28269E+03_JPRB,0.17829E+03_JPRB /) |
586 |
|
|
KA(:, 4, 4, 3) = (/ & |
587 |
|
|
& 0.34533E+03_JPRB,0.38366E+03_JPRB,0.42199E+03_JPRB,0.46746E+03_JPRB,0.55555E+03_JPRB, & |
588 |
|
✗ |
& 0.53669E+03_JPRB,0.40055E+03_JPRB,0.28052E+03_JPRB,0.17829E+03_JPRB /) |
589 |
|
|
KA(:, 5, 4, 3) = (/ & |
590 |
|
|
& 0.33991E+03_JPRB,0.37892E+03_JPRB,0.41793E+03_JPRB,0.46467E+03_JPRB,0.55244E+03_JPRB, & |
591 |
|
✗ |
& 0.53093E+03_JPRB,0.39488E+03_JPRB,0.27856E+03_JPRB,0.17829E+03_JPRB /) |
592 |
|
|
KA(:, 1, 5, 3) = (/ & |
593 |
|
|
& 0.34669E+03_JPRB,0.38485E+03_JPRB,0.42301E+03_JPRB,0.46943E+03_JPRB,0.55667E+03_JPRB, & |
594 |
|
✗ |
& 0.53812E+03_JPRB,0.40197E+03_JPRB,0.28101E+03_JPRB,0.17829E+03_JPRB /) |
595 |
|
|
KA(:, 2, 5, 3) = (/ & |
596 |
|
|
& 0.33999E+03_JPRB,0.37899E+03_JPRB,0.41799E+03_JPRB,0.46662E+03_JPRB,0.55311E+03_JPRB, & |
597 |
|
✗ |
& 0.53101E+03_JPRB,0.39496E+03_JPRB,0.27859E+03_JPRB,0.17829E+03_JPRB /) |
598 |
|
|
KA(:, 3, 5, 3) = (/ & |
599 |
|
|
& 0.33406E+03_JPRB,0.37380E+03_JPRB,0.41354E+03_JPRB,0.46416E+03_JPRB,0.54976E+03_JPRB, & |
600 |
|
✗ |
& 0.52459E+03_JPRB,0.38873E+03_JPRB,0.27645E+03_JPRB,0.17829E+03_JPRB /) |
601 |
|
|
KA(:, 4, 5, 3) = (/ & |
602 |
|
|
& 0.32878E+03_JPRB,0.36918E+03_JPRB,0.40958E+03_JPRB,0.46185E+03_JPRB,0.54671E+03_JPRB, & |
603 |
|
✗ |
& 0.51881E+03_JPRB,0.38326E+03_JPRB,0.27455E+03_JPRB,0.17829E+03_JPRB /) |
604 |
|
|
KA(:, 5, 5, 3) = (/ & |
605 |
|
|
& 0.32404E+03_JPRB,0.36503E+03_JPRB,0.40603E+03_JPRB,0.45969E+03_JPRB,0.54395E+03_JPRB, & |
606 |
|
✗ |
& 0.51356E+03_JPRB,0.37844E+03_JPRB,0.27284E+03_JPRB,0.17829E+03_JPRB /) |
607 |
|
|
KA(:, 1, 6, 3) = (/ & |
608 |
|
|
& 0.33079E+03_JPRB,0.37094E+03_JPRB,0.41109E+03_JPRB,0.46395E+03_JPRB,0.54790E+03_JPRB, & |
609 |
|
✗ |
& 0.52101E+03_JPRB,0.38534E+03_JPRB,0.27527E+03_JPRB,0.17829E+03_JPRB /) |
610 |
|
|
KA(:, 2, 6, 3) = (/ & |
611 |
|
|
& 0.32482E+03_JPRB,0.36572E+03_JPRB,0.40662E+03_JPRB,0.46188E+03_JPRB,0.54448E+03_JPRB, & |
612 |
|
✗ |
& 0.51443E+03_JPRB,0.37923E+03_JPRB,0.27312E+03_JPRB,0.17829E+03_JPRB /) |
613 |
|
|
KA(:, 3, 6, 3) = (/ & |
614 |
|
|
& 0.31958E+03_JPRB,0.36113E+03_JPRB,0.40268E+03_JPRB,0.45998E+03_JPRB,0.54143E+03_JPRB, & |
615 |
|
✗ |
& 0.50857E+03_JPRB,0.37397E+03_JPRB,0.27123E+03_JPRB,0.17829E+03_JPRB /) |
616 |
|
|
KA(:, 4, 6, 3) = (/ & |
617 |
|
|
& 0.31492E+03_JPRB,0.35705E+03_JPRB,0.39919E+03_JPRB,0.45816E+03_JPRB,0.53866E+03_JPRB, & |
618 |
|
✗ |
& 0.50335E+03_JPRB,0.36939E+03_JPRB,0.26955E+03_JPRB,0.17829E+03_JPRB /) |
619 |
|
|
KA(:, 5, 6, 3) = (/ & |
620 |
|
|
& 0.31076E+03_JPRB,0.35342E+03_JPRB,0.39607E+03_JPRB,0.45638E+03_JPRB,0.53611E+03_JPRB, & |
621 |
|
✗ |
& 0.49868E+03_JPRB,0.36537E+03_JPRB,0.26805E+03_JPRB,0.17829E+03_JPRB /) |
622 |
|
|
KA(:, 1, 7, 3) = (/ & |
623 |
|
|
& 0.31725E+03_JPRB,0.35910E+03_JPRB,0.40094E+03_JPRB,0.45992E+03_JPRB,0.53978E+03_JPRB, & |
624 |
|
✗ |
& 0.50597E+03_JPRB,0.37168E+03_JPRB,0.27039E+03_JPRB,0.17829E+03_JPRB /) |
625 |
|
|
KA(:, 2, 7, 3) = (/ & |
626 |
|
|
& 0.31194E+03_JPRB,0.35445E+03_JPRB,0.39695E+03_JPRB,0.45835E+03_JPRB,0.53664E+03_JPRB, & |
627 |
|
✗ |
& 0.50000E+03_JPRB,0.36650E+03_JPRB,0.26848E+03_JPRB,0.17829E+03_JPRB /) |
628 |
|
|
KA(:, 3, 7, 3) = (/ & |
629 |
|
|
& 0.30729E+03_JPRB,0.35038E+03_JPRB,0.39347E+03_JPRB,0.45686E+03_JPRB,0.53383E+03_JPRB, & |
630 |
|
✗ |
& 0.49465E+03_JPRB,0.36205E+03_JPRB,0.26680E+03_JPRB,0.17829E+03_JPRB /) |
631 |
|
|
KA(:, 4, 7, 3) = (/ & |
632 |
|
|
& 0.30318E+03_JPRB,0.34679E+03_JPRB,0.39040E+03_JPRB,0.45536E+03_JPRB,0.53125E+03_JPRB, & |
633 |
|
✗ |
& 0.48979E+03_JPRB,0.35818E+03_JPRB,0.26532E+03_JPRB,0.17829E+03_JPRB /) |
634 |
|
|
KA(:, 5, 7, 3) = (/ & |
635 |
|
|
& 0.29953E+03_JPRB,0.34359E+03_JPRB,0.38767E+03_JPRB,0.45383E+03_JPRB,0.52882E+03_JPRB, & |
636 |
|
✗ |
& 0.48543E+03_JPRB,0.35479E+03_JPRB,0.26401E+03_JPRB,0.17829E+03_JPRB /) |
637 |
|
|
KA(:, 1, 8, 3) = (/ & |
638 |
|
|
& 0.30567E+03_JPRB,0.34896E+03_JPRB,0.39226E+03_JPRB,0.45673E+03_JPRB,0.53243E+03_JPRB, & |
639 |
|
✗ |
& 0.49274E+03_JPRB,0.36052E+03_JPRB,0.26622E+03_JPRB,0.17829E+03_JPRB /) |
640 |
|
|
KA(:, 2, 8, 3) = (/ & |
641 |
|
|
& 0.30094E+03_JPRB,0.34482E+03_JPRB,0.38872E+03_JPRB,0.45541E+03_JPRB,0.52945E+03_JPRB, & |
642 |
|
✗ |
& 0.48711E+03_JPRB,0.35609E+03_JPRB,0.26451E+03_JPRB,0.17829E+03_JPRB /) |
643 |
|
|
KA(:, 3, 8, 3) = (/ & |
644 |
|
|
& 0.29682E+03_JPRB,0.34122E+03_JPRB,0.38564E+03_JPRB,0.45413E+03_JPRB,0.52674E+03_JPRB, & |
645 |
|
✗ |
& 0.48217E+03_JPRB,0.35231E+03_JPRB,0.26303E+03_JPRB,0.17829E+03_JPRB /) |
646 |
|
|
KA(:, 4, 8, 3) = (/ & |
647 |
|
|
& 0.29320E+03_JPRB,0.33805E+03_JPRB,0.38294E+03_JPRB,0.45285E+03_JPRB,0.52426E+03_JPRB, & |
648 |
|
✗ |
& 0.47779E+03_JPRB,0.34904E+03_JPRB,0.26172E+03_JPRB,0.17829E+03_JPRB /) |
649 |
|
|
KA(:, 5, 8, 3) = (/ & |
650 |
|
|
& 0.29000E+03_JPRB,0.33525E+03_JPRB,0.38055E+03_JPRB,0.45152E+03_JPRB,0.52191E+03_JPRB, & |
651 |
|
✗ |
& 0.47388E+03_JPRB,0.34618E+03_JPRB,0.26057E+03_JPRB,0.17829E+03_JPRB /) |
652 |
|
|
KA(:, 1, 9, 3) = (/ & |
653 |
|
|
& 0.29581E+03_JPRB,0.34033E+03_JPRB,0.38489E+03_JPRB,0.45387E+03_JPRB,0.52555E+03_JPRB, & |
654 |
|
✗ |
& 0.48095E+03_JPRB,0.35139E+03_JPRB,0.26266E+03_JPRB,0.17829E+03_JPRB /) |
655 |
|
|
KA(:, 2, 9, 3) = (/ & |
656 |
|
|
& 0.29159E+03_JPRB,0.33664E+03_JPRB,0.38173E+03_JPRB,0.45277E+03_JPRB,0.52268E+03_JPRB, & |
657 |
|
✗ |
& 0.47582E+03_JPRB,0.34759E+03_JPRB,0.26114E+03_JPRB,0.17829E+03_JPRB /) |
658 |
|
|
KA(:, 3, 9, 3) = (/ & |
659 |
|
|
& 0.28794E+03_JPRB,0.33344E+03_JPRB,0.37901E+03_JPRB,0.45167E+03_JPRB,0.52008E+03_JPRB, & |
660 |
|
✗ |
& 0.47135E+03_JPRB,0.34436E+03_JPRB,0.25982E+03_JPRB,0.17829E+03_JPRB /) |
661 |
|
|
KA(:, 4, 9, 3) = (/ & |
662 |
|
|
& 0.28475E+03_JPRB,0.33065E+03_JPRB,0.37663E+03_JPRB,0.45055E+03_JPRB,0.51765E+03_JPRB, & |
663 |
|
✗ |
& 0.46738E+03_JPRB,0.34157E+03_JPRB,0.25867E+03_JPRB,0.17829E+03_JPRB /) |
664 |
|
|
KA(:, 5, 9, 3) = (/ & |
665 |
|
|
& 0.28193E+03_JPRB,0.32819E+03_JPRB,0.37453E+03_JPRB,0.44937E+03_JPRB,0.51538E+03_JPRB, & |
666 |
|
✗ |
& 0.46382E+03_JPRB,0.33916E+03_JPRB,0.25766E+03_JPRB,0.17829E+03_JPRB /) |
667 |
|
|
KA(:, 1,10, 3) = (/ & |
668 |
|
|
& 0.28708E+03_JPRB,0.33269E+03_JPRB,0.37836E+03_JPRB,0.45121E+03_JPRB,0.51885E+03_JPRB, & |
669 |
|
✗ |
& 0.47029E+03_JPRB,0.34361E+03_JPRB,0.25951E+03_JPRB,0.17829E+03_JPRB /) |
670 |
|
|
|
671 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART2',1,ZHOOK_HANDLE) |
672 |
|
✗ |
END SUBROUTINE PART2 |
673 |
|
|
|
674 |
|
|
|
675 |
|
✗ |
SUBROUTINE PART3 |
676 |
|
|
|
677 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
678 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART3',0,ZHOOK_HANDLE) |
679 |
|
|
|
680 |
|
|
|
681 |
|
|
KA(:, 2,10, 3) = (/ & |
682 |
|
|
& 0.28336E+03_JPRB,0.32944E+03_JPRB,0.37559E+03_JPRB,0.45027E+03_JPRB,0.51611E+03_JPRB, & |
683 |
|
✗ |
& 0.46563E+03_JPRB,0.34037E+03_JPRB,0.25817E+03_JPRB,0.17829E+03_JPRB /) |
684 |
|
|
KA(:, 3,10, 3) = (/ & |
685 |
|
|
& 0.28016E+03_JPRB,0.32664E+03_JPRB,0.37320E+03_JPRB,0.44932E+03_JPRB,0.51361E+03_JPRB, & |
686 |
|
✗ |
& 0.46153E+03_JPRB,0.33765E+03_JPRB,0.25702E+03_JPRB,0.17829E+03_JPRB /) |
687 |
|
|
KA(:, 4,10, 3) = (/ & |
688 |
|
|
& 0.27737E+03_JPRB,0.32420E+03_JPRB,0.37112E+03_JPRB,0.44835E+03_JPRB,0.51133E+03_JPRB, & |
689 |
|
✗ |
& 0.45793E+03_JPRB,0.33532E+03_JPRB,0.25601E+03_JPRB,0.17829E+03_JPRB /) |
690 |
|
|
KA(:, 5,10, 3) = (/ & |
691 |
|
|
& 0.27492E+03_JPRB,0.32206E+03_JPRB,0.36930E+03_JPRB,0.44735E+03_JPRB,0.50922E+03_JPRB, & |
692 |
|
✗ |
& 0.45473E+03_JPRB,0.33330E+03_JPRB,0.25513E+03_JPRB,0.17829E+03_JPRB /) |
693 |
|
|
KA(:, 1,11, 3) = (/ & |
694 |
|
|
& 0.27807E+03_JPRB,0.32481E+03_JPRB,0.37164E+03_JPRB,0.44842E+03_JPRB,0.51141E+03_JPRB, & |
695 |
|
✗ |
& 0.45884E+03_JPRB,0.33590E+03_JPRB,0.25627E+03_JPRB,0.17829E+03_JPRB /) |
696 |
|
|
KA(:, 2,11, 3) = (/ & |
697 |
|
|
& 0.27502E+03_JPRB,0.32214E+03_JPRB,0.36937E+03_JPRB,0.44764E+03_JPRB,0.50894E+03_JPRB, & |
698 |
|
✗ |
& 0.45486E+03_JPRB,0.33338E+03_JPRB,0.25517E+03_JPRB,0.17829E+03_JPRB /) |
699 |
|
|
KA(:, 3,11, 3) = (/ & |
700 |
|
|
& 0.27240E+03_JPRB,0.31985E+03_JPRB,0.36742E+03_JPRB,0.44685E+03_JPRB,0.50671E+03_JPRB, & |
701 |
|
✗ |
& 0.45139E+03_JPRB,0.33123E+03_JPRB,0.25422E+03_JPRB,0.17829E+03_JPRB /) |
702 |
|
|
KA(:, 4,11, 3) = (/ & |
703 |
|
|
& 0.27012E+03_JPRB,0.31785E+03_JPRB,0.36572E+03_JPRB,0.44602E+03_JPRB,0.50464E+03_JPRB, & |
704 |
|
✗ |
& 0.44836E+03_JPRB,0.32939E+03_JPRB,0.25340E+03_JPRB,0.17829E+03_JPRB /) |
705 |
|
|
KA(:, 5,11, 3) = (/ & |
706 |
|
|
& 0.26811E+03_JPRB,0.31610E+03_JPRB,0.36422E+03_JPRB,0.44514E+03_JPRB,0.50273E+03_JPRB, & |
707 |
|
✗ |
& 0.44569E+03_JPRB,0.32779E+03_JPRB,0.25268E+03_JPRB,0.17829E+03_JPRB /) |
708 |
|
|
KA(:, 1,12, 3) = (/ & |
709 |
|
|
& 0.27068E+03_JPRB,0.31834E+03_JPRB,0.36613E+03_JPRB,0.44605E+03_JPRB,0.50476E+03_JPRB, & |
710 |
|
✗ |
& 0.44911E+03_JPRB,0.32983E+03_JPRB,0.25360E+03_JPRB,0.17829E+03_JPRB /) |
711 |
|
|
KA(:, 2,12, 3) = (/ & |
712 |
|
|
& 0.26818E+03_JPRB,0.31616E+03_JPRB,0.36428E+03_JPRB,0.44539E+03_JPRB,0.50255E+03_JPRB, & |
713 |
|
✗ |
& 0.44579E+03_JPRB,0.32784E+03_JPRB,0.25270E+03_JPRB,0.17829E+03_JPRB /) |
714 |
|
|
KA(:, 3,12, 3) = (/ & |
715 |
|
|
& 0.26603E+03_JPRB,0.31428E+03_JPRB,0.36268E+03_JPRB,0.44471E+03_JPRB,0.50054E+03_JPRB, & |
716 |
|
✗ |
& 0.44293E+03_JPRB,0.32614E+03_JPRB,0.25193E+03_JPRB,0.17829E+03_JPRB /) |
717 |
|
|
KA(:, 4,12, 3) = (/ & |
718 |
|
|
& 0.26417E+03_JPRB,0.31264E+03_JPRB,0.36129E+03_JPRB,0.44399E+03_JPRB,0.49874E+03_JPRB, & |
719 |
|
✗ |
& 0.44043E+03_JPRB,0.32468E+03_JPRB,0.25125E+03_JPRB,0.17829E+03_JPRB /) |
720 |
|
|
KA(:, 5,12, 3) = (/ & |
721 |
|
|
& 0.26252E+03_JPRB,0.31121E+03_JPRB,0.36005E+03_JPRB,0.44322E+03_JPRB,0.49710E+03_JPRB, & |
722 |
|
✗ |
& 0.43824E+03_JPRB,0.32341E+03_JPRB,0.25066E+03_JPRB,0.17829E+03_JPRB /) |
723 |
|
|
KA(:, 1,13, 3) = (/ & |
724 |
|
|
& 0.26463E+03_JPRB,0.31305E+03_JPRB,0.36163E+03_JPRB,0.44400E+03_JPRB,0.49889E+03_JPRB, & |
725 |
|
✗ |
& 0.44105E+03_JPRB,0.32504E+03_JPRB,0.25142E+03_JPRB,0.17829E+03_JPRB /) |
726 |
|
|
KA(:, 2,13, 3) = (/ & |
727 |
|
|
& 0.26258E+03_JPRB,0.31126E+03_JPRB,0.36010E+03_JPRB,0.44348E+03_JPRB,0.49698E+03_JPRB, & |
728 |
|
✗ |
& 0.43831E+03_JPRB,0.32345E+03_JPRB,0.25068E+03_JPRB,0.17829E+03_JPRB /) |
729 |
|
|
KA(:, 3,13, 3) = (/ & |
730 |
|
|
& 0.26082E+03_JPRB,0.30972E+03_JPRB,0.35880E+03_JPRB,0.44291E+03_JPRB,0.49519E+03_JPRB, & |
731 |
|
✗ |
& 0.43595E+03_JPRB,0.32210E+03_JPRB,0.25005E+03_JPRB,0.17829E+03_JPRB /) |
732 |
|
|
KA(:, 4,13, 3) = (/ & |
733 |
|
|
& 0.25929E+03_JPRB,0.30838E+03_JPRB,0.35766E+03_JPRB,0.44229E+03_JPRB,0.49360E+03_JPRB, & |
734 |
|
✗ |
& 0.43388E+03_JPRB,0.32093E+03_JPRB,0.24950E+03_JPRB,0.17829E+03_JPRB /) |
735 |
|
|
KA(:, 5,13, 3) = (/ & |
736 |
|
|
& 0.25795E+03_JPRB,0.30721E+03_JPRB,0.35666E+03_JPRB,0.44160E+03_JPRB,0.49217E+03_JPRB, & |
737 |
|
✗ |
& 0.43204E+03_JPRB,0.31991E+03_JPRB,0.24901E+03_JPRB,0.17829E+03_JPRB /) |
738 |
|
|
KA(:, 1, 1, 4) = (/ & |
739 |
|
|
& 0.86913E+03_JPRB,0.80389E+03_JPRB,0.73864E+03_JPRB,0.67339E+03_JPRB,0.62239E+03_JPRB, & |
740 |
|
✗ |
& 0.67741E+03_JPRB,0.51596E+03_JPRB,0.43641E+03_JPRB,0.38437E+03_JPRB /) |
741 |
|
|
KA(:, 2, 1, 4) = (/ & |
742 |
|
|
& 0.84711E+03_JPRB,0.78462E+03_JPRB,0.72212E+03_JPRB,0.65963E+03_JPRB,0.61530E+03_JPRB, & |
743 |
|
✗ |
& 0.66963E+03_JPRB,0.50564E+03_JPRB,0.43387E+03_JPRB,0.38437E+03_JPRB /) |
744 |
|
|
KA(:, 3, 1, 4) = (/ & |
745 |
|
|
& 0.82734E+03_JPRB,0.76731E+03_JPRB,0.70729E+03_JPRB,0.64727E+03_JPRB,0.60932E+03_JPRB, & |
746 |
|
✗ |
& 0.66251E+03_JPRB,0.49688E+03_JPRB,0.43160E+03_JPRB,0.38437E+03_JPRB /) |
747 |
|
|
KA(:, 4, 1, 4) = (/ & |
748 |
|
|
& 0.80948E+03_JPRB,0.75169E+03_JPRB,0.69390E+03_JPRB,0.63611E+03_JPRB,0.60420E+03_JPRB, & |
749 |
|
✗ |
& 0.65531E+03_JPRB,0.48930E+03_JPRB,0.42954E+03_JPRB,0.38437E+03_JPRB /) |
750 |
|
|
KA(:, 5, 1, 4) = (/ & |
751 |
|
|
& 0.79327E+03_JPRB,0.73751E+03_JPRB,0.68174E+03_JPRB,0.62598E+03_JPRB,0.59980E+03_JPRB, & |
752 |
|
✗ |
& 0.64776E+03_JPRB,0.48275E+03_JPRB,0.42767E+03_JPRB,0.38437E+03_JPRB /) |
753 |
|
|
KA(:, 1, 2, 4) = (/ & |
754 |
|
|
& 0.80291E+03_JPRB,0.74594E+03_JPRB,0.68897E+03_JPRB,0.63200E+03_JPRB,0.60547E+03_JPRB, & |
755 |
|
✗ |
& 0.65273E+03_JPRB,0.48660E+03_JPRB,0.42878E+03_JPRB,0.38437E+03_JPRB /) |
756 |
|
|
KA(:, 2, 2, 4) = (/ & |
757 |
|
|
& 0.78403E+03_JPRB,0.72942E+03_JPRB,0.67481E+03_JPRB,0.62020E+03_JPRB,0.60133E+03_JPRB, & |
758 |
|
✗ |
& 0.64384E+03_JPRB,0.47915E+03_JPRB,0.42661E+03_JPRB,0.38437E+03_JPRB /) |
759 |
|
|
KA(:, 3, 2, 4) = (/ & |
760 |
|
|
& 0.76711E+03_JPRB,0.71462E+03_JPRB,0.66212E+03_JPRB,0.60962E+03_JPRB,0.59788E+03_JPRB, & |
761 |
|
✗ |
& 0.63506E+03_JPRB,0.47284E+03_JPRB,0.42466E+03_JPRB,0.38437E+03_JPRB /) |
762 |
|
|
KA(:, 4, 2, 4) = (/ & |
763 |
|
|
& 0.75187E+03_JPRB,0.70128E+03_JPRB,0.65069E+03_JPRB,0.60010E+03_JPRB,0.59472E+03_JPRB, & |
764 |
|
✗ |
& 0.62679E+03_JPRB,0.46742E+03_JPRB,0.42291E+03_JPRB,0.38437E+03_JPRB /) |
765 |
|
|
KA(:, 5, 2, 4) = (/ & |
766 |
|
|
& 0.73807E+03_JPRB,0.68920E+03_JPRB,0.64034E+03_JPRB,0.59147E+03_JPRB,0.59165E+03_JPRB, & |
767 |
|
✗ |
& 0.61864E+03_JPRB,0.46272E+03_JPRB,0.42132E+03_JPRB,0.38437E+03_JPRB /) |
768 |
|
|
KA(:, 1, 3, 4) = (/ & |
769 |
|
|
& 0.75084E+03_JPRB,0.70038E+03_JPRB,0.64992E+03_JPRB,0.59946E+03_JPRB,0.59732E+03_JPRB, & |
770 |
|
✗ |
& 0.62621E+03_JPRB,0.46707E+03_JPRB,0.42279E+03_JPRB,0.38437E+03_JPRB /) |
771 |
|
|
KA(:, 2, 3, 4) = (/ & |
772 |
|
|
& 0.73427E+03_JPRB,0.68588E+03_JPRB,0.63749E+03_JPRB,0.58910E+03_JPRB,0.59435E+03_JPRB, & |
773 |
|
✗ |
& 0.61627E+03_JPRB,0.46147E+03_JPRB,0.42088E+03_JPRB,0.38437E+03_JPRB /) |
774 |
|
|
KA(:, 3, 3, 4) = (/ & |
775 |
|
|
& 0.71948E+03_JPRB,0.67294E+03_JPRB,0.62640E+03_JPRB,0.57986E+03_JPRB,0.59145E+03_JPRB, & |
776 |
|
✗ |
& 0.60690E+03_JPRB,0.45675E+03_JPRB,0.41918E+03_JPRB,0.38437E+03_JPRB /) |
777 |
|
|
KA(:, 4, 3, 4) = (/ & |
778 |
|
|
& 0.70620E+03_JPRB,0.66132E+03_JPRB,0.61644E+03_JPRB,0.57156E+03_JPRB,0.58863E+03_JPRB, & |
779 |
|
✗ |
& 0.59842E+03_JPRB,0.45269E+03_JPRB,0.41765E+03_JPRB,0.38437E+03_JPRB /) |
780 |
|
|
KA(:, 5, 3, 4) = (/ & |
781 |
|
|
& 0.69421E+03_JPRB,0.65083E+03_JPRB,0.60744E+03_JPRB,0.56406E+03_JPRB,0.58580E+03_JPRB, & |
782 |
|
✗ |
& 0.59032E+03_JPRB,0.44923E+03_JPRB,0.41627E+03_JPRB,0.38437E+03_JPRB /) |
783 |
|
|
KA(:, 1, 4, 4) = (/ & |
784 |
|
|
& 0.70765E+03_JPRB,0.66259E+03_JPRB,0.61753E+03_JPRB,0.57246E+03_JPRB,0.59114E+03_JPRB, & |
785 |
|
✗ |
& 0.59936E+03_JPRB,0.45313E+03_JPRB,0.41781E+03_JPRB,0.38437E+03_JPRB /) |
786 |
|
|
KA(:, 2, 4, 4) = (/ & |
787 |
|
|
& 0.69300E+03_JPRB,0.64977E+03_JPRB,0.60654E+03_JPRB,0.56330E+03_JPRB,0.58834E+03_JPRB, & |
788 |
|
✗ |
& 0.58949E+03_JPRB,0.44892E+03_JPRB,0.41613E+03_JPRB,0.38437E+03_JPRB /) |
789 |
|
|
KA(:, 3, 4, 4) = (/ & |
790 |
|
|
& 0.67997E+03_JPRB,0.63837E+03_JPRB,0.59677E+03_JPRB,0.55516E+03_JPRB,0.58563E+03_JPRB, & |
791 |
|
✗ |
& 0.58057E+03_JPRB,0.44538E+03_JPRB,0.41463E+03_JPRB,0.38437E+03_JPRB /) |
792 |
|
|
KA(:, 4, 4, 4) = (/ & |
793 |
|
|
& 0.66833E+03_JPRB,0.62818E+03_JPRB,0.58803E+03_JPRB,0.54788E+03_JPRB,0.58292E+03_JPRB, & |
794 |
|
✗ |
& 0.57257E+03_JPRB,0.44238E+03_JPRB,0.41329E+03_JPRB,0.38437E+03_JPRB /) |
795 |
|
|
KA(:, 5, 4, 4) = (/ & |
796 |
|
|
& 0.65784E+03_JPRB,0.61901E+03_JPRB,0.58017E+03_JPRB,0.54133E+03_JPRB,0.58031E+03_JPRB, & |
797 |
|
✗ |
& 0.56522E+03_JPRB,0.43982E+03_JPRB,0.41208E+03_JPRB,0.38437E+03_JPRB /) |
798 |
|
|
KA(:, 1, 5, 4) = (/ & |
799 |
|
|
& 0.67096E+03_JPRB,0.63048E+03_JPRB,0.59001E+03_JPRB,0.54953E+03_JPRB,0.58521E+03_JPRB, & |
800 |
|
✗ |
& 0.57438E+03_JPRB,0.44304E+03_JPRB,0.41359E+03_JPRB,0.38437E+03_JPRB /) |
801 |
|
|
KA(:, 2, 5, 4) = (/ & |
802 |
|
|
& 0.65799E+03_JPRB,0.61913E+03_JPRB,0.58028E+03_JPRB,0.54142E+03_JPRB,0.58256E+03_JPRB, & |
803 |
|
✗ |
& 0.56532E+03_JPRB,0.43984E+03_JPRB,0.41210E+03_JPRB,0.38437E+03_JPRB /) |
804 |
|
|
KA(:, 3, 5, 4) = (/ & |
805 |
|
|
& 0.64651E+03_JPRB,0.60909E+03_JPRB,0.57167E+03_JPRB,0.53427E+03_JPRB,0.57997E+03_JPRB, & |
806 |
|
✗ |
& 0.55705E+03_JPRB,0.43718E+03_JPRB,0.41077E+03_JPRB,0.38437E+03_JPRB /) |
807 |
|
|
KA(:, 4, 5, 4) = (/ & |
808 |
|
|
& 0.63629E+03_JPRB,0.60015E+03_JPRB,0.56401E+03_JPRB,0.52793E+03_JPRB,0.57742E+03_JPRB, & |
809 |
|
✗ |
& 0.54959E+03_JPRB,0.43482E+03_JPRB,0.40960E+03_JPRB,0.38437E+03_JPRB /) |
810 |
|
|
KA(:, 5, 5, 4) = (/ & |
811 |
|
|
& 0.62713E+03_JPRB,0.59213E+03_JPRB,0.55713E+03_JPRB,0.52227E+03_JPRB,0.57480E+03_JPRB, & |
812 |
|
✗ |
& 0.54282E+03_JPRB,0.43271E+03_JPRB,0.40854E+03_JPRB,0.38437E+03_JPRB /) |
813 |
|
|
KA(:, 1, 6, 4) = (/ & |
814 |
|
|
& 0.64019E+03_JPRB,0.60356E+03_JPRB,0.56693E+03_JPRB,0.53034E+03_JPRB,0.57955E+03_JPRB, & |
815 |
|
✗ |
& 0.55244E+03_JPRB,0.43572E+03_JPRB,0.41005E+03_JPRB,0.38437E+03_JPRB /) |
816 |
|
|
KA(:, 2, 6, 4) = (/ & |
817 |
|
|
& 0.62864E+03_JPRB,0.59346E+03_JPRB,0.55827E+03_JPRB,0.52321E+03_JPRB,0.57700E+03_JPRB, & |
818 |
|
✗ |
& 0.54395E+03_JPRB,0.43306E+03_JPRB,0.40872E+03_JPRB,0.38437E+03_JPRB /) |
819 |
|
|
KA(:, 3, 6, 4) = (/ & |
820 |
|
|
& 0.61849E+03_JPRB,0.58457E+03_JPRB,0.55065E+03_JPRB,0.51703E+03_JPRB,0.57439E+03_JPRB, & |
821 |
|
✗ |
& 0.53634E+03_JPRB,0.43072E+03_JPRB,0.40755E+03_JPRB,0.38437E+03_JPRB /) |
822 |
|
|
KA(:, 4, 6, 4) = (/ & |
823 |
|
|
& 0.60948E+03_JPRB,0.57669E+03_JPRB,0.54390E+03_JPRB,0.51158E+03_JPRB,0.57170E+03_JPRB, & |
824 |
|
✗ |
& 0.52946E+03_JPRB,0.42865E+03_JPRB,0.40651E+03_JPRB,0.38437E+03_JPRB /) |
825 |
|
|
KA(:, 5, 6, 4) = (/ & |
826 |
|
|
& 0.60143E+03_JPRB,0.56965E+03_JPRB,0.53786E+03_JPRB,0.50675E+03_JPRB,0.56897E+03_JPRB, & |
827 |
|
✗ |
& 0.52321E+03_JPRB,0.42679E+03_JPRB,0.40558E+03_JPRB,0.38437E+03_JPRB /) |
828 |
|
|
KA(:, 1, 7, 4) = (/ & |
829 |
|
|
& 0.61399E+03_JPRB,0.58064E+03_JPRB,0.54728E+03_JPRB,0.51440E+03_JPRB,0.57380E+03_JPRB, & |
830 |
|
✗ |
& 0.53292E+03_JPRB,0.42969E+03_JPRB,0.40703E+03_JPRB,0.38437E+03_JPRB /) |
831 |
|
|
KA(:, 2, 7, 4) = (/ & |
832 |
|
|
& 0.60371E+03_JPRB,0.57164E+03_JPRB,0.53957E+03_JPRB,0.50828E+03_JPRB,0.57103E+03_JPRB, & |
833 |
|
✗ |
& 0.52498E+03_JPRB,0.42732E+03_JPRB,0.40585E+03_JPRB,0.38437E+03_JPRB /) |
834 |
|
|
KA(:, 3, 7, 4) = (/ & |
835 |
|
|
& 0.59471E+03_JPRB,0.56376E+03_JPRB,0.53282E+03_JPRB,0.50302E+03_JPRB,0.56836E+03_JPRB, & |
836 |
|
✗ |
& 0.51802E+03_JPRB,0.42525E+03_JPRB,0.40481E+03_JPRB,0.38437E+03_JPRB /) |
837 |
|
|
KA(:, 4, 7, 4) = (/ & |
838 |
|
|
& 0.58676E+03_JPRB,0.55681E+03_JPRB,0.52686E+03_JPRB,0.49842E+03_JPRB,0.56580E+03_JPRB, & |
839 |
|
✗ |
& 0.51197E+03_JPRB,0.42342E+03_JPRB,0.40389E+03_JPRB,0.38437E+03_JPRB /) |
840 |
|
|
KA(:, 5, 7, 4) = (/ & |
841 |
|
|
& 0.57970E+03_JPRB,0.55063E+03_JPRB,0.52156E+03_JPRB,0.49437E+03_JPRB,0.56333E+03_JPRB, & |
842 |
|
✗ |
& 0.50656E+03_JPRB,0.42179E+03_JPRB,0.40308E+03_JPRB,0.38437E+03_JPRB /) |
843 |
|
|
KA(:, 1, 8, 4) = (/ & |
844 |
|
|
& 0.59158E+03_JPRB,0.56102E+03_JPRB,0.53047E+03_JPRB,0.50136E+03_JPRB,0.56762E+03_JPRB, & |
845 |
|
✗ |
& 0.51564E+03_JPRB,0.42452E+03_JPRB,0.40445E+03_JPRB,0.38437E+03_JPRB /) |
846 |
|
|
KA(:, 2, 8, 4) = (/ & |
847 |
|
|
& 0.58242E+03_JPRB,0.55301E+03_JPRB,0.52360E+03_JPRB,0.49623E+03_JPRB,0.56499E+03_JPRB, & |
848 |
|
✗ |
& 0.50866E+03_JPRB,0.42242E+03_JPRB,0.40339E+03_JPRB,0.38437E+03_JPRB /) |
849 |
|
|
KA(:, 3, 8, 4) = (/ & |
850 |
|
|
& 0.57445E+03_JPRB,0.54604E+03_JPRB,0.51762E+03_JPRB,0.49188E+03_JPRB,0.56245E+03_JPRB, & |
851 |
|
✗ |
& 0.50238E+03_JPRB,0.42058E+03_JPRB,0.40248E+03_JPRB,0.38437E+03_JPRB /) |
852 |
|
|
KA(:, 4, 8, 4) = (/ & |
853 |
|
|
& 0.56745E+03_JPRB,0.53991E+03_JPRB,0.51237E+03_JPRB,0.48811E+03_JPRB,0.55998E+03_JPRB, & |
854 |
|
✗ |
& 0.49675E+03_JPRB,0.41897E+03_JPRB,0.40167E+03_JPRB,0.38437E+03_JPRB /) |
855 |
|
|
KA(:, 5, 8, 4) = (/ & |
856 |
|
|
& 0.56125E+03_JPRB,0.53448E+03_JPRB,0.50772E+03_JPRB,0.48477E+03_JPRB,0.55757E+03_JPRB, & |
857 |
|
✗ |
& 0.49178E+03_JPRB,0.41754E+03_JPRB,0.40096E+03_JPRB,0.38437E+03_JPRB /) |
858 |
|
|
KA(:, 1, 9, 4) = (/ & |
859 |
|
|
& 0.57249E+03_JPRB,0.54432E+03_JPRB,0.51615E+03_JPRB,0.49103E+03_JPRB,0.56159E+03_JPRB, & |
860 |
|
✗ |
& 0.50080E+03_JPRB,0.42013E+03_JPRB,0.40225E+03_JPRB,0.38437E+03_JPRB /) |
861 |
|
|
KA(:, 2, 9, 4) = (/ & |
862 |
|
|
& 0.56432E+03_JPRB,0.53718E+03_JPRB,0.51003E+03_JPRB,0.48678E+03_JPRB,0.55899E+03_JPRB, & |
863 |
|
✗ |
& 0.49424E+03_JPRB,0.41825E+03_JPRB,0.40131E+03_JPRB,0.38437E+03_JPRB /) |
864 |
|
|
KA(:, 3, 9, 4) = (/ & |
865 |
|
|
& 0.55726E+03_JPRB,0.53099E+03_JPRB,0.50473E+03_JPRB,0.48321E+03_JPRB,0.55650E+03_JPRB, & |
866 |
|
✗ |
& 0.48858E+03_JPRB,0.41662E+03_JPRB,0.40050E+03_JPRB,0.38437E+03_JPRB /) |
867 |
|
|
KA(:, 4, 9, 4) = (/ & |
868 |
|
|
& 0.55108E+03_JPRB,0.52559E+03_JPRB,0.50010E+03_JPRB,0.48011E+03_JPRB,0.55416E+03_JPRB, & |
869 |
|
✗ |
& 0.48367E+03_JPRB,0.41520E+03_JPRB,0.39978E+03_JPRB,0.38437E+03_JPRB /) |
870 |
|
|
KA(:, 5, 9, 4) = (/ & |
871 |
|
|
& 0.54564E+03_JPRB,0.52083E+03_JPRB,0.49601E+03_JPRB,0.47737E+03_JPRB,0.55194E+03_JPRB, & |
872 |
|
✗ |
& 0.47938E+03_JPRB,0.41394E+03_JPRB,0.39916E+03_JPRB,0.38437E+03_JPRB /) |
873 |
|
|
KA(:, 1,10, 4) = (/ & |
874 |
|
|
& 0.55559E+03_JPRB,0.52954E+03_JPRB,0.50348E+03_JPRB,0.48256E+03_JPRB,0.55544E+03_JPRB, & |
875 |
|
✗ |
& 0.48725E+03_JPRB,0.41624E+03_JPRB,0.40030E+03_JPRB,0.38437E+03_JPRB /) |
876 |
|
|
KA(:, 2,10, 4) = (/ & |
877 |
|
|
& 0.54839E+03_JPRB,0.52324E+03_JPRB,0.49808E+03_JPRB,0.47910E+03_JPRB,0.55295E+03_JPRB, & |
878 |
|
✗ |
& 0.48155E+03_JPRB,0.41458E+03_JPRB,0.39948E+03_JPRB,0.38437E+03_JPRB /) |
879 |
|
|
KA(:, 3,10, 4) = (/ & |
880 |
|
|
& 0.54220E+03_JPRB,0.51781E+03_JPRB,0.49343E+03_JPRB,0.47621E+03_JPRB,0.55067E+03_JPRB, & |
881 |
|
✗ |
& 0.47667E+03_JPRB,0.41315E+03_JPRB,0.39876E+03_JPRB,0.38437E+03_JPRB /) |
882 |
|
|
KA(:, 4,10, 4) = (/ & |
883 |
|
|
& 0.53680E+03_JPRB,0.51310E+03_JPRB,0.48939E+03_JPRB,0.47371E+03_JPRB,0.54855E+03_JPRB, & |
884 |
|
✗ |
& 0.47238E+03_JPRB,0.41191E+03_JPRB,0.39814E+03_JPRB,0.38437E+03_JPRB /) |
885 |
|
|
KA(:, 5,10, 4) = (/ & |
886 |
|
|
& 0.53207E+03_JPRB,0.50895E+03_JPRB,0.48584E+03_JPRB,0.47148E+03_JPRB,0.54655E+03_JPRB, & |
887 |
|
✗ |
& 0.46857E+03_JPRB,0.41082E+03_JPRB,0.39760E+03_JPRB,0.38437E+03_JPRB /) |
888 |
|
|
KA(:, 1,11, 4) = (/ & |
889 |
|
|
& 0.53816E+03_JPRB,0.51428E+03_JPRB,0.49041E+03_JPRB,0.47455E+03_JPRB,0.54857E+03_JPRB, & |
890 |
|
✗ |
& 0.47346E+03_JPRB,0.41222E+03_JPRB,0.39830E+03_JPRB,0.38437E+03_JPRB /) |
891 |
|
|
KA(:, 2,11, 4) = (/ & |
892 |
|
|
& 0.53226E+03_JPRB,0.50912E+03_JPRB,0.48598E+03_JPRB,0.47200E+03_JPRB,0.54640E+03_JPRB, & |
893 |
|
✗ |
& 0.46874E+03_JPRB,0.41086E+03_JPRB,0.39762E+03_JPRB,0.38437E+03_JPRB /) |
894 |
|
|
KA(:, 3,11, 4) = (/ & |
895 |
|
|
& 0.52718E+03_JPRB,0.50468E+03_JPRB,0.48217E+03_JPRB,0.46982E+03_JPRB,0.54436E+03_JPRB, & |
896 |
|
✗ |
& 0.46486E+03_JPRB,0.40969E+03_JPRB,0.39703E+03_JPRB,0.38437E+03_JPRB /) |
897 |
|
|
KA(:, 4,11, 4) = (/ & |
898 |
|
|
& 0.52277E+03_JPRB,0.50081E+03_JPRB,0.47886E+03_JPRB,0.46790E+03_JPRB,0.54248E+03_JPRB, & |
899 |
|
✗ |
& 0.46109E+03_JPRB,0.40868E+03_JPRB,0.39652E+03_JPRB,0.38437E+03_JPRB /) |
900 |
|
|
KA(:, 5,11, 4) = (/ & |
901 |
|
|
& 0.51889E+03_JPRB,0.49742E+03_JPRB,0.47595E+03_JPRB,0.46618E+03_JPRB,0.54076E+03_JPRB, & |
902 |
|
✗ |
& 0.45793E+03_JPRB,0.40778E+03_JPRB,0.39608E+03_JPRB,0.38437E+03_JPRB /) |
903 |
|
|
KA(:, 1,12, 4) = (/ & |
904 |
|
|
& 0.52385E+03_JPRB,0.50177E+03_JPRB,0.47968E+03_JPRB,0.46863E+03_JPRB,0.54244E+03_JPRB, & |
905 |
|
✗ |
& 0.46202E+03_JPRB,0.40893E+03_JPRB,0.39665E+03_JPRB,0.38437E+03_JPRB /) |
906 |
|
|
KA(:, 2,12, 4) = (/ & |
907 |
|
|
& 0.51902E+03_JPRB,0.49754E+03_JPRB,0.47606E+03_JPRB,0.46673E+03_JPRB,0.54050E+03_JPRB, & |
908 |
|
✗ |
& 0.45805E+03_JPRB,0.40782E+03_JPRB,0.39609E+03_JPRB,0.38437E+03_JPRB /) |
909 |
|
|
KA(:, 3,12, 4) = (/ & |
910 |
|
|
& 0.51487E+03_JPRB,0.49390E+03_JPRB,0.47294E+03_JPRB,0.46509E+03_JPRB,0.53868E+03_JPRB, & |
911 |
|
✗ |
& 0.45465E+03_JPRB,0.40686E+03_JPRB,0.39561E+03_JPRB,0.38437E+03_JPRB /) |
912 |
|
|
KA(:, 4,12, 4) = (/ & |
913 |
|
|
& 0.51125E+03_JPRB,0.49074E+03_JPRB,0.47022E+03_JPRB,0.46362E+03_JPRB,0.53703E+03_JPRB, & |
914 |
|
✗ |
& 0.45171E+03_JPRB,0.40602E+03_JPRB,0.39520E+03_JPRB,0.38437E+03_JPRB /) |
915 |
|
|
KA(:, 5,12, 4) = (/ & |
916 |
|
|
& 0.50807E+03_JPRB,0.48796E+03_JPRB,0.46784E+03_JPRB,0.46227E+03_JPRB,0.53558E+03_JPRB, & |
917 |
|
✗ |
& 0.44916E+03_JPRB,0.40529E+03_JPRB,0.39483E+03_JPRB,0.38437E+03_JPRB /) |
918 |
|
|
KA(:, 1,13, 4) = (/ & |
919 |
|
|
& 0.51214E+03_JPRB,0.49152E+03_JPRB,0.47089E+03_JPRB,0.46425E+03_JPRB,0.53698E+03_JPRB, & |
920 |
|
✗ |
& 0.45243E+03_JPRB,0.40623E+03_JPRB,0.39530E+03_JPRB,0.38437E+03_JPRB /) |
921 |
|
|
KA(:, 2,13, 4) = (/ & |
922 |
|
|
& 0.50819E+03_JPRB,0.48806E+03_JPRB,0.46793E+03_JPRB,0.46281E+03_JPRB,0.53522E+03_JPRB, & |
923 |
|
✗ |
& 0.44925E+03_JPRB,0.40532E+03_JPRB,0.39485E+03_JPRB,0.38437E+03_JPRB /) |
924 |
|
|
KA(:, 3,13, 4) = (/ & |
925 |
|
|
& 0.50478E+03_JPRB,0.48508E+03_JPRB,0.46537E+03_JPRB,0.46157E+03_JPRB,0.53378E+03_JPRB, & |
926 |
|
✗ |
& 0.44654E+03_JPRB,0.40453E+03_JPRB,0.39445E+03_JPRB,0.38437E+03_JPRB /) |
927 |
|
|
KA(:, 4,13, 4) = (/ & |
928 |
|
|
& 0.50182E+03_JPRB,0.48249E+03_JPRB,0.46315E+03_JPRB,0.46044E+03_JPRB,0.53251E+03_JPRB, & |
929 |
|
✗ |
& 0.44422E+03_JPRB,0.40385E+03_JPRB,0.39411E+03_JPRB,0.38437E+03_JPRB /) |
930 |
|
|
KA(:, 5,13, 4) = (/ & |
931 |
|
|
& 0.49922E+03_JPRB,0.48021E+03_JPRB,0.46120E+03_JPRB,0.45936E+03_JPRB,0.53137E+03_JPRB, & |
932 |
|
✗ |
& 0.44221E+03_JPRB,0.40325E+03_JPRB,0.39381E+03_JPRB,0.38437E+03_JPRB /) |
933 |
|
|
KA(:, 1, 1, 5) = (/ & |
934 |
|
|
& 0.13243E+04_JPRB,0.11799E+04_JPRB,0.10354E+04_JPRB,0.89093E+03_JPRB,0.74647E+03_JPRB, & |
935 |
|
✗ |
& 0.71044E+03_JPRB,0.61021E+03_JPRB,0.64069E+03_JPRB,0.67118E+03_JPRB /) |
936 |
|
|
KA(:, 2, 1, 5) = (/ & |
937 |
|
|
& 0.12908E+04_JPRB,0.11505E+04_JPRB,0.10102E+04_JPRB,0.86996E+03_JPRB,0.72969E+03_JPRB, & |
938 |
|
✗ |
& 0.70292E+03_JPRB,0.60750E+03_JPRB,0.63934E+03_JPRB,0.67118E+03_JPRB /) |
939 |
|
|
KA(:, 3, 1, 5) = (/ & |
940 |
|
|
& 0.12606E+04_JPRB,0.11241E+04_JPRB,0.98763E+03_JPRB,0.85113E+03_JPRB,0.71463E+03_JPRB, & |
941 |
|
✗ |
& 0.69451E+03_JPRB,0.60507E+03_JPRB,0.63812E+03_JPRB,0.67118E+03_JPRB /) |
942 |
|
|
KA(:, 4, 1, 5) = (/ & |
943 |
|
|
& 0.12334E+04_JPRB,0.11003E+04_JPRB,0.96722E+03_JPRB,0.83412E+03_JPRB,0.70102E+03_JPRB, & |
944 |
|
✗ |
& 0.68564E+03_JPRB,0.60287E+03_JPRB,0.63703E+03_JPRB,0.67118E+03_JPRB /) |
945 |
|
|
KA(:, 5, 1, 5) = (/ & |
946 |
|
|
& 0.12087E+04_JPRB,0.10787E+04_JPRB,0.94870E+03_JPRB,0.81869E+03_JPRB,0.68867E+03_JPRB, & |
947 |
|
✗ |
& 0.67724E+03_JPRB,0.60088E+03_JPRB,0.63603E+03_JPRB,0.67118E+03_JPRB /) |
948 |
|
|
KA(:, 1, 2, 5) = (/ & |
949 |
|
|
& 0.12234E+04_JPRB,0.10916E+04_JPRB,0.95972E+03_JPRB,0.82787E+03_JPRB,0.69602E+03_JPRB, & |
950 |
|
✗ |
& 0.68345E+03_JPRB,0.60207E+03_JPRB,0.63662E+03_JPRB,0.67118E+03_JPRB /) |
951 |
|
|
KA(:, 2, 2, 5) = (/ & |
952 |
|
|
& 0.11946E+04_JPRB,0.10664E+04_JPRB,0.93814E+03_JPRB,0.80988E+03_JPRB,0.68163E+03_JPRB, & |
953 |
|
✗ |
& 0.67225E+03_JPRB,0.59975E+03_JPRB,0.63546E+03_JPRB,0.67118E+03_JPRB /) |
954 |
|
|
KA(:, 3, 2, 5) = (/ & |
955 |
|
|
& 0.11689E+04_JPRB,0.10438E+04_JPRB,0.91881E+03_JPRB,0.79377E+03_JPRB,0.66882E+03_JPRB, & |
956 |
|
✗ |
& 0.66165E+03_JPRB,0.59767E+03_JPRB,0.63442E+03_JPRB,0.67118E+03_JPRB /) |
957 |
|
|
KA(:, 4, 2, 5) = (/ & |
958 |
|
|
& 0.11456E+04_JPRB,0.10235E+04_JPRB,0.90139E+03_JPRB,0.77926E+03_JPRB,0.65759E+03_JPRB, & |
959 |
|
✗ |
& 0.65058E+03_JPRB,0.59579E+03_JPRB,0.63348E+03_JPRB,0.67118E+03_JPRB /) |
960 |
|
|
KA(:, 5, 2, 5) = (/ & |
961 |
|
|
& 0.11246E+04_JPRB,0.10051E+04_JPRB,0.88561E+03_JPRB,0.76611E+03_JPRB,0.64778E+03_JPRB, & |
962 |
|
✗ |
& 0.64016E+03_JPRB,0.59410E+03_JPRB,0.63264E+03_JPRB,0.67118E+03_JPRB /) |
963 |
|
|
KA(:, 1, 3, 5) = (/ & |
964 |
|
|
& 0.11441E+04_JPRB,0.10221E+04_JPRB,0.90021E+03_JPRB,0.77828E+03_JPRB,0.65728E+03_JPRB, & |
965 |
|
✗ |
& 0.64981E+03_JPRB,0.59567E+03_JPRB,0.63342E+03_JPRB,0.67118E+03_JPRB /) |
966 |
|
|
KA(:, 2, 3, 5) = (/ & |
967 |
|
|
& 0.11188E+04_JPRB,0.10001E+04_JPRB,0.88128E+03_JPRB,0.76250E+03_JPRB,0.64582E+03_JPRB, & |
968 |
|
✗ |
& 0.63739E+03_JPRB,0.59363E+03_JPRB,0.63240E+03_JPRB,0.67118E+03_JPRB /) |
969 |
|
|
KA(:, 3, 3, 5) = (/ & |
970 |
|
|
& 0.10963E+04_JPRB,0.98033E+03_JPRB,0.86437E+03_JPRB,0.74841E+03_JPRB,0.63611E+03_JPRB, & |
971 |
|
✗ |
& 0.62581E+03_JPRB,0.59181E+03_JPRB,0.63149E+03_JPRB,0.67118E+03_JPRB /) |
972 |
|
|
|
973 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART3',1,ZHOOK_HANDLE) |
974 |
|
✗ |
END SUBROUTINE PART3 |
975 |
|
|
|
976 |
|
|
|
977 |
|
✗ |
SUBROUTINE PART4 |
978 |
|
|
|
979 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
980 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART4',0,ZHOOK_HANDLE) |
981 |
|
|
|
982 |
|
|
|
983 |
|
|
KA(:, 4, 3, 5) = (/ & |
984 |
|
|
& 0.10761E+04_JPRB,0.96263E+03_JPRB,0.84920E+03_JPRB,0.73577E+03_JPRB,0.62780E+03_JPRB, & |
985 |
|
✗ |
& 0.61513E+03_JPRB,0.59018E+03_JPRB,0.63068E+03_JPRB,0.67118E+03_JPRB /) |
986 |
|
|
KA(:, 5, 3, 5) = (/ & |
987 |
|
|
& 0.10578E+04_JPRB,0.94664E+03_JPRB,0.83549E+03_JPRB,0.72435E+03_JPRB,0.62066E+03_JPRB, & |
988 |
|
✗ |
& 0.60588E+03_JPRB,0.58871E+03_JPRB,0.62994E+03_JPRB,0.67118E+03_JPRB /) |
989 |
|
|
KA(:, 1, 4, 5) = (/ & |
990 |
|
|
& 0.10783E+04_JPRB,0.96456E+03_JPRB,0.85086E+03_JPRB,0.73715E+03_JPRB,0.62971E+03_JPRB, & |
991 |
|
✗ |
& 0.61628E+03_JPRB,0.59036E+03_JPRB,0.63077E+03_JPRB,0.67118E+03_JPRB /) |
992 |
|
|
KA(:, 2, 4, 5) = (/ & |
993 |
|
|
& 0.10559E+04_JPRB,0.94502E+03_JPRB,0.83411E+03_JPRB,0.72319E+03_JPRB,0.62145E+03_JPRB, & |
994 |
|
✗ |
& 0.60490E+03_JPRB,0.58856E+03_JPRB,0.62987E+03_JPRB,0.67118E+03_JPRB /) |
995 |
|
|
KA(:, 3, 4, 5) = (/ & |
996 |
|
|
& 0.10361E+04_JPRB,0.92766E+03_JPRB,0.81923E+03_JPRB,0.71079E+03_JPRB,0.61457E+03_JPRB, & |
997 |
|
✗ |
& 0.59452E+03_JPRB,0.58696E+03_JPRB,0.62907E+03_JPRB,0.67118E+03_JPRB /) |
998 |
|
|
KA(:, 4, 4, 5) = (/ & |
999 |
|
|
& 0.10183E+04_JPRB,0.91213E+03_JPRB,0.80591E+03_JPRB,0.69970E+03_JPRB,0.60876E+03_JPRB, & |
1000 |
|
✗ |
& 0.58559E+03_JPRB,0.58552E+03_JPRB,0.62835E+03_JPRB,0.67118E+03_JPRB /) |
1001 |
|
|
KA(:, 5, 4, 5) = (/ & |
1002 |
|
|
& 0.10024E+04_JPRB,0.89816E+03_JPRB,0.79394E+03_JPRB,0.68972E+03_JPRB,0.60374E+03_JPRB, & |
1003 |
|
✗ |
& 0.57800E+03_JPRB,0.58424E+03_JPRB,0.62771E+03_JPRB,0.67118E+03_JPRB /) |
1004 |
|
|
KA(:, 1, 5, 5) = (/ & |
1005 |
|
|
& 0.10224E+04_JPRB,0.91564E+03_JPRB,0.80892E+03_JPRB,0.70221E+03_JPRB,0.61144E+03_JPRB, & |
1006 |
|
✗ |
& 0.58757E+03_JPRB,0.58585E+03_JPRB,0.62851E+03_JPRB,0.67118E+03_JPRB /) |
1007 |
|
|
KA(:, 2, 5, 5) = (/ & |
1008 |
|
|
& 0.10026E+04_JPRB,0.89835E+03_JPRB,0.79410E+03_JPRB,0.68985E+03_JPRB,0.60588E+03_JPRB, & |
1009 |
|
✗ |
& 0.57810E+03_JPRB,0.58425E+03_JPRB,0.62772E+03_JPRB,0.67118E+03_JPRB /) |
1010 |
|
|
KA(:, 3, 5, 5) = (/ & |
1011 |
|
|
& 0.98511E+03_JPRB,0.88305E+03_JPRB,0.78099E+03_JPRB,0.67893E+03_JPRB,0.60138E+03_JPRB, & |
1012 |
|
✗ |
& 0.57034E+03_JPRB,0.58284E+03_JPRB,0.62701E+03_JPRB,0.67118E+03_JPRB /) |
1013 |
|
|
KA(:, 4, 5, 5) = (/ & |
1014 |
|
|
& 0.96954E+03_JPRB,0.86942E+03_JPRB,0.76931E+03_JPRB,0.66919E+03_JPRB,0.59759E+03_JPRB, & |
1015 |
|
✗ |
& 0.56378E+03_JPRB,0.58159E+03_JPRB,0.62638E+03_JPRB,0.67118E+03_JPRB /) |
1016 |
|
|
KA(:, 5, 5, 5) = (/ & |
1017 |
|
|
& 0.95557E+03_JPRB,0.85720E+03_JPRB,0.75883E+03_JPRB,0.66046E+03_JPRB,0.59436E+03_JPRB, & |
1018 |
|
✗ |
& 0.55823E+03_JPRB,0.58046E+03_JPRB,0.62582E+03_JPRB,0.67118E+03_JPRB /) |
1019 |
|
|
KA(:, 1, 6, 5) = (/ & |
1020 |
|
|
& 0.97547E+03_JPRB,0.87461E+03_JPRB,0.77376E+03_JPRB,0.67290E+03_JPRB,0.60045E+03_JPRB, & |
1021 |
|
✗ |
& 0.56624E+03_JPRB,0.58207E+03_JPRB,0.62662E+03_JPRB,0.67118E+03_JPRB /) |
1022 |
|
|
KA(:, 2, 6, 5) = (/ & |
1023 |
|
|
& 0.95788E+03_JPRB,0.85922E+03_JPRB,0.76057E+03_JPRB,0.66191E+03_JPRB,0.59710E+03_JPRB, & |
1024 |
|
✗ |
& 0.55912E+03_JPRB,0.58065E+03_JPRB,0.62591E+03_JPRB,0.67118E+03_JPRB /) |
1025 |
|
|
KA(:, 3, 6, 5) = (/ & |
1026 |
|
|
& 0.94241E+03_JPRB,0.84568E+03_JPRB,0.74896E+03_JPRB,0.65223E+03_JPRB,0.59434E+03_JPRB, & |
1027 |
|
✗ |
& 0.55328E+03_JPRB,0.57940E+03_JPRB,0.62529E+03_JPRB,0.67118E+03_JPRB /) |
1028 |
|
|
KA(:, 4, 6, 5) = (/ & |
1029 |
|
|
& 0.92868E+03_JPRB,0.83367E+03_JPRB,0.73866E+03_JPRB,0.64365E+03_JPRB,0.59182E+03_JPRB, & |
1030 |
|
✗ |
& 0.54839E+03_JPRB,0.57829E+03_JPRB,0.62473E+03_JPRB,0.67118E+03_JPRB /) |
1031 |
|
|
KA(:, 5, 6, 5) = (/ & |
1032 |
|
|
& 0.91642E+03_JPRB,0.82295E+03_JPRB,0.72947E+03_JPRB,0.63599E+03_JPRB,0.58948E+03_JPRB, & |
1033 |
|
✗ |
& 0.54428E+03_JPRB,0.57730E+03_JPRB,0.62424E+03_JPRB,0.67118E+03_JPRB /) |
1034 |
|
|
KA(:, 1, 7, 5) = (/ & |
1035 |
|
|
& 0.93556E+03_JPRB,0.83969E+03_JPRB,0.74382E+03_JPRB,0.64795E+03_JPRB,0.59420E+03_JPRB, & |
1036 |
|
✗ |
& 0.55081E+03_JPRB,0.57885E+03_JPRB,0.62501E+03_JPRB,0.67118E+03_JPRB /) |
1037 |
|
|
KA(:, 2, 7, 5) = (/ & |
1038 |
|
|
& 0.91989E+03_JPRB,0.82598E+03_JPRB,0.73207E+03_JPRB,0.63816E+03_JPRB,0.59179E+03_JPRB, & |
1039 |
|
✗ |
& 0.54542E+03_JPRB,0.57758E+03_JPRB,0.62438E+03_JPRB,0.67118E+03_JPRB /) |
1040 |
|
|
KA(:, 3, 7, 5) = (/ & |
1041 |
|
|
& 0.90618E+03_JPRB,0.81398E+03_JPRB,0.72179E+03_JPRB,0.62959E+03_JPRB,0.58955E+03_JPRB, & |
1042 |
|
✗ |
& 0.54102E+03_JPRB,0.57648E+03_JPRB,0.62383E+03_JPRB,0.67118E+03_JPRB /) |
1043 |
|
|
KA(:, 4, 7, 5) = (/ & |
1044 |
|
|
& 0.89407E+03_JPRB,0.80339E+03_JPRB,0.71271E+03_JPRB,0.62202E+03_JPRB,0.58737E+03_JPRB, & |
1045 |
|
✗ |
& 0.53729E+03_JPRB,0.57550E+03_JPRB,0.62334E+03_JPRB,0.67118E+03_JPRB /) |
1046 |
|
|
KA(:, 5, 7, 5) = (/ & |
1047 |
|
|
& 0.88331E+03_JPRB,0.79397E+03_JPRB,0.70463E+03_JPRB,0.61530E+03_JPRB,0.58524E+03_JPRB, & |
1048 |
|
✗ |
& 0.53413E+03_JPRB,0.57463E+03_JPRB,0.62290E+03_JPRB,0.67118E+03_JPRB /) |
1049 |
|
|
KA(:, 1, 8, 5) = (/ & |
1050 |
|
|
& 0.90140E+03_JPRB,0.80981E+03_JPRB,0.71821E+03_JPRB,0.62661E+03_JPRB,0.58941E+03_JPRB, & |
1051 |
|
✗ |
& 0.53953E+03_JPRB,0.57609E+03_JPRB,0.62363E+03_JPRB,0.67118E+03_JPRB /) |
1052 |
|
|
KA(:, 2, 8, 5) = (/ & |
1053 |
|
|
& 0.88745E+03_JPRB,0.79760E+03_JPRB,0.70774E+03_JPRB,0.61789E+03_JPRB,0.58727E+03_JPRB, & |
1054 |
|
✗ |
& 0.53533E+03_JPRB,0.57497E+03_JPRB,0.62307E+03_JPRB,0.67118E+03_JPRB /) |
1055 |
|
|
KA(:, 3, 8, 5) = (/ & |
1056 |
|
|
& 0.87531E+03_JPRB,0.78697E+03_JPRB,0.69863E+03_JPRB,0.61030E+03_JPRB,0.58522E+03_JPRB, & |
1057 |
|
✗ |
& 0.53203E+03_JPRB,0.57399E+03_JPRB,0.62258E+03_JPRB,0.67118E+03_JPRB /) |
1058 |
|
|
KA(:, 4, 8, 5) = (/ & |
1059 |
|
|
& 0.86464E+03_JPRB,0.77763E+03_JPRB,0.69063E+03_JPRB,0.60363E+03_JPRB,0.58317E+03_JPRB, & |
1060 |
|
✗ |
& 0.52938E+03_JPRB,0.57313E+03_JPRB,0.62215E+03_JPRB,0.67118E+03_JPRB /) |
1061 |
|
|
KA(:, 5, 8, 5) = (/ & |
1062 |
|
|
& 0.85519E+03_JPRB,0.76937E+03_JPRB,0.68354E+03_JPRB,0.59772E+03_JPRB,0.58120E+03_JPRB, & |
1063 |
|
✗ |
& 0.52712E+03_JPRB,0.57236E+03_JPRB,0.62177E+03_JPRB,0.67118E+03_JPRB /) |
1064 |
|
|
KA(:, 1, 9, 5) = (/ & |
1065 |
|
|
& 0.87232E+03_JPRB,0.78435E+03_JPRB,0.69639E+03_JPRB,0.60843E+03_JPRB,0.58508E+03_JPRB, & |
1066 |
|
✗ |
& 0.53128E+03_JPRB,0.57375E+03_JPRB,0.62246E+03_JPRB,0.67118E+03_JPRB /) |
1067 |
|
|
KA(:, 2, 9, 5) = (/ & |
1068 |
|
|
& 0.85988E+03_JPRB,0.77347E+03_JPRB,0.68706E+03_JPRB,0.60065E+03_JPRB,0.58302E+03_JPRB, & |
1069 |
|
✗ |
& 0.52823E+03_JPRB,0.57274E+03_JPRB,0.62196E+03_JPRB,0.67118E+03_JPRB /) |
1070 |
|
|
KA(:, 3, 9, 5) = (/ & |
1071 |
|
|
& 0.84911E+03_JPRB,0.76405E+03_JPRB,0.67898E+03_JPRB,0.59392E+03_JPRB,0.58102E+03_JPRB, & |
1072 |
|
✗ |
& 0.52572E+03_JPRB,0.57187E+03_JPRB,0.62153E+03_JPRB,0.67118E+03_JPRB /) |
1073 |
|
|
KA(:, 4, 9, 5) = (/ & |
1074 |
|
|
& 0.83970E+03_JPRB,0.75581E+03_JPRB,0.67193E+03_JPRB,0.58804E+03_JPRB,0.57906E+03_JPRB, & |
1075 |
|
✗ |
& 0.52364E+03_JPRB,0.57111E+03_JPRB,0.62115E+03_JPRB,0.67118E+03_JPRB /) |
1076 |
|
|
KA(:, 5, 9, 5) = (/ & |
1077 |
|
|
& 0.83140E+03_JPRB,0.74855E+03_JPRB,0.66571E+03_JPRB,0.58286E+03_JPRB,0.57713E+03_JPRB, & |
1078 |
|
✗ |
& 0.52190E+03_JPRB,0.57045E+03_JPRB,0.62081E+03_JPRB,0.67118E+03_JPRB /) |
1079 |
|
|
KA(:, 1,10, 5) = (/ & |
1080 |
|
|
& 0.84657E+03_JPRB,0.76183E+03_JPRB,0.67708E+03_JPRB,0.59234E+03_JPRB,0.58061E+03_JPRB, & |
1081 |
|
✗ |
& 0.52515E+03_JPRB,0.57167E+03_JPRB,0.62142E+03_JPRB,0.67118E+03_JPRB /) |
1082 |
|
|
KA(:, 2,10, 5) = (/ & |
1083 |
|
|
& 0.83560E+03_JPRB,0.75223E+03_JPRB,0.66886E+03_JPRB,0.58548E+03_JPRB,0.57865E+03_JPRB, & |
1084 |
|
✗ |
& 0.52276E+03_JPRB,0.57078E+03_JPRB,0.62098E+03_JPRB,0.67118E+03_JPRB /) |
1085 |
|
|
KA(:, 3,10, 5) = (/ & |
1086 |
|
|
& 0.82616E+03_JPRB,0.74397E+03_JPRB,0.66177E+03_JPRB,0.57958E+03_JPRB,0.57663E+03_JPRB, & |
1087 |
|
✗ |
& 0.52085E+03_JPRB,0.57002E+03_JPRB,0.62060E+03_JPRB,0.67118E+03_JPRB /) |
1088 |
|
|
KA(:, 4,10, 5) = (/ & |
1089 |
|
|
& 0.81794E+03_JPRB,0.73678E+03_JPRB,0.65561E+03_JPRB,0.57444E+03_JPRB,0.57466E+03_JPRB, & |
1090 |
|
✗ |
& 0.51933E+03_JPRB,0.56936E+03_JPRB,0.62027E+03_JPRB,0.67118E+03_JPRB /) |
1091 |
|
|
KA(:, 5,10, 5) = (/ & |
1092 |
|
|
& 0.81073E+03_JPRB,0.73047E+03_JPRB,0.65020E+03_JPRB,0.56994E+03_JPRB,0.57276E+03_JPRB, & |
1093 |
|
✗ |
& 0.51811E+03_JPRB,0.56878E+03_JPRB,0.61998E+03_JPRB,0.67118E+03_JPRB /) |
1094 |
|
|
KA(:, 1,11, 5) = (/ & |
1095 |
|
|
& 0.82001E+03_JPRB,0.73859E+03_JPRB,0.65716E+03_JPRB,0.57574E+03_JPRB,0.57531E+03_JPRB, & |
1096 |
|
✗ |
& 0.51970E+03_JPRB,0.56953E+03_JPRB,0.62035E+03_JPRB,0.67118E+03_JPRB /) |
1097 |
|
|
KA(:, 2,11, 5) = (/ & |
1098 |
|
|
& 0.81102E+03_JPRB,0.73072E+03_JPRB,0.65042E+03_JPRB,0.57012E+03_JPRB,0.57326E+03_JPRB, & |
1099 |
|
✗ |
& 0.51814E+03_JPRB,0.56880E+03_JPRB,0.61999E+03_JPRB,0.67118E+03_JPRB /) |
1100 |
|
|
KA(:, 3,11, 5) = (/ & |
1101 |
|
|
& 0.80328E+03_JPRB,0.72395E+03_JPRB,0.64462E+03_JPRB,0.56528E+03_JPRB,0.57135E+03_JPRB, & |
1102 |
|
✗ |
& 0.51670E+03_JPRB,0.56818E+03_JPRB,0.61968E+03_JPRB,0.67118E+03_JPRB /) |
1103 |
|
|
KA(:, 4,11, 5) = (/ & |
1104 |
|
|
& 0.79655E+03_JPRB,0.71806E+03_JPRB,0.63957E+03_JPRB,0.56108E+03_JPRB,0.56956E+03_JPRB, & |
1105 |
|
✗ |
& 0.51595E+03_JPRB,0.56763E+03_JPRB,0.61941E+03_JPRB,0.67118E+03_JPRB /) |
1106 |
|
|
KA(:, 5,11, 5) = (/ & |
1107 |
|
|
& 0.79064E+03_JPRB,0.71289E+03_JPRB,0.63514E+03_JPRB,0.55738E+03_JPRB,0.56781E+03_JPRB, & |
1108 |
|
✗ |
& 0.51517E+03_JPRB,0.56716E+03_JPRB,0.61917E+03_JPRB,0.67118E+03_JPRB /) |
1109 |
|
|
KA(:, 1,12, 5) = (/ & |
1110 |
|
|
& 0.79821E+03_JPRB,0.71951E+03_JPRB,0.64081E+03_JPRB,0.56211E+03_JPRB,0.57002E+03_JPRB, & |
1111 |
|
✗ |
& 0.51613E+03_JPRB,0.56777E+03_JPRB,0.61947E+03_JPRB,0.67118E+03_JPRB /) |
1112 |
|
|
KA(:, 2,12, 5) = (/ & |
1113 |
|
|
& 0.79085E+03_JPRB,0.71307E+03_JPRB,0.63529E+03_JPRB,0.55751E+03_JPRB,0.56813E+03_JPRB, & |
1114 |
|
✗ |
& 0.51519E+03_JPRB,0.56717E+03_JPRB,0.61918E+03_JPRB,0.67118E+03_JPRB /) |
1115 |
|
|
KA(:, 3,12, 5) = (/ & |
1116 |
|
|
& 0.78452E+03_JPRB,0.70753E+03_JPRB,0.63054E+03_JPRB,0.55355E+03_JPRB,0.56648E+03_JPRB, & |
1117 |
|
✗ |
& 0.51441E+03_JPRB,0.56666E+03_JPRB,0.61892E+03_JPRB,0.67118E+03_JPRB /) |
1118 |
|
|
KA(:, 4,12, 5) = (/ & |
1119 |
|
|
& 0.77901E+03_JPRB,0.70271E+03_JPRB,0.62641E+03_JPRB,0.55011E+03_JPRB,0.56489E+03_JPRB, & |
1120 |
|
✗ |
& 0.51374E+03_JPRB,0.56622E+03_JPRB,0.61870E+03_JPRB,0.67118E+03_JPRB /) |
1121 |
|
|
KA(:, 5,12, 5) = (/ & |
1122 |
|
|
& 0.77417E+03_JPRB,0.69847E+03_JPRB,0.62278E+03_JPRB,0.54708E+03_JPRB,0.56325E+03_JPRB, & |
1123 |
|
✗ |
& 0.51315E+03_JPRB,0.56583E+03_JPRB,0.61850E+03_JPRB,0.67118E+03_JPRB /) |
1124 |
|
|
KA(:, 1,13, 5) = (/ & |
1125 |
|
|
& 0.78036E+03_JPRB,0.70389E+03_JPRB,0.62743E+03_JPRB,0.55096E+03_JPRB,0.56495E+03_JPRB, & |
1126 |
|
✗ |
& 0.51390E+03_JPRB,0.56633E+03_JPRB,0.61875E+03_JPRB,0.67118E+03_JPRB /) |
1127 |
|
|
KA(:, 2,13, 5) = (/ & |
1128 |
|
|
& 0.77434E+03_JPRB,0.69862E+03_JPRB,0.62291E+03_JPRB,0.54719E+03_JPRB,0.56343E+03_JPRB, & |
1129 |
|
✗ |
& 0.51318E+03_JPRB,0.56584E+03_JPRB,0.61851E+03_JPRB,0.67118E+03_JPRB /) |
1130 |
|
|
KA(:, 3,13, 5) = (/ & |
1131 |
|
|
& 0.76915E+03_JPRB,0.69408E+03_JPRB,0.61902E+03_JPRB,0.54395E+03_JPRB,0.56189E+03_JPRB, & |
1132 |
|
✗ |
& 0.51255E+03_JPRB,0.56542E+03_JPRB,0.61830E+03_JPRB,0.67118E+03_JPRB /) |
1133 |
|
|
KA(:, 4,13, 5) = (/ & |
1134 |
|
|
& 0.76464E+03_JPRB,0.69014E+03_JPRB,0.61563E+03_JPRB,0.54113E+03_JPRB,0.56027E+03_JPRB, & |
1135 |
|
✗ |
& 0.51200E+03_JPRB,0.56506E+03_JPRB,0.61812E+03_JPRB,0.67118E+03_JPRB /) |
1136 |
|
|
KA(:, 5,13, 5) = (/ & |
1137 |
|
|
& 0.76068E+03_JPRB,0.68667E+03_JPRB,0.61266E+03_JPRB,0.53865E+03_JPRB,0.55865E+03_JPRB, & |
1138 |
|
✗ |
& 0.51152E+03_JPRB,0.56474E+03_JPRB,0.61796E+03_JPRB,0.67118E+03_JPRB /) |
1139 |
|
|
KA(:, 1, 1, 6) = (/ & |
1140 |
|
|
& 0.16832E+04_JPRB,0.14832E+04_JPRB,0.12833E+04_JPRB,0.10834E+04_JPRB,0.88343E+03_JPRB, & |
1141 |
|
✗ |
& 0.73047E+03_JPRB,0.75923E+03_JPRB,0.85568E+03_JPRB,0.94989E+03_JPRB /) |
1142 |
|
|
KA(:, 2, 1, 6) = (/ & |
1143 |
|
|
& 0.16405E+04_JPRB,0.14459E+04_JPRB,0.12513E+04_JPRB,0.10567E+04_JPRB,0.86211E+03_JPRB, & |
1144 |
|
✗ |
& 0.72257E+03_JPRB,0.75791E+03_JPRB,0.85457E+03_JPRB,0.94915E+03_JPRB /) |
1145 |
|
|
KA(:, 3, 1, 6) = (/ & |
1146 |
|
|
& 0.16022E+04_JPRB,0.14124E+04_JPRB,0.12226E+04_JPRB,0.10328E+04_JPRB,0.84296E+03_JPRB, & |
1147 |
|
✗ |
& 0.71182E+03_JPRB,0.75643E+03_JPRB,0.85315E+03_JPRB,0.94805E+03_JPRB /) |
1148 |
|
|
KA(:, 4, 1, 6) = (/ & |
1149 |
|
|
& 0.15677E+04_JPRB,0.13822E+04_JPRB,0.11967E+04_JPRB,0.10112E+04_JPRB,0.82566E+03_JPRB, & |
1150 |
|
✗ |
& 0.70003E+03_JPRB,0.75475E+03_JPRB,0.85145E+03_JPRB,0.94659E+03_JPRB /) |
1151 |
|
|
KA(:, 5, 1, 6) = (/ & |
1152 |
|
|
& 0.15363E+04_JPRB,0.13547E+04_JPRB,0.11731E+04_JPRB,0.99155E+03_JPRB,0.80997E+03_JPRB, & |
1153 |
|
✗ |
& 0.68802E+03_JPRB,0.75277E+03_JPRB,0.84941E+03_JPRB,0.94478E+03_JPRB /) |
1154 |
|
|
KA(:, 1, 2, 6) = (/ & |
1155 |
|
|
& 0.15549E+04_JPRB,0.13710E+04_JPRB,0.11871E+04_JPRB,0.10032E+04_JPRB,0.81930E+03_JPRB, & |
1156 |
|
✗ |
& 0.69644E+03_JPRB,0.75599E+03_JPRB,0.85402E+03_JPRB,0.95009E+03_JPRB /) |
1157 |
|
|
KA(:, 2, 2, 6) = (/ & |
1158 |
|
|
& 0.15184E+04_JPRB,0.13390E+04_JPRB,0.11597E+04_JPRB,0.98036E+03_JPRB,0.80102E+03_JPRB, & |
1159 |
|
✗ |
& 0.68214E+03_JPRB,0.75486E+03_JPRB,0.85308E+03_JPRB,0.94950E+03_JPRB /) |
1160 |
|
|
KA(:, 3, 2, 6) = (/ & |
1161 |
|
|
& 0.14856E+04_JPRB,0.13104E+04_JPRB,0.11351E+04_JPRB,0.95988E+03_JPRB,0.78464E+03_JPRB, & |
1162 |
|
✗ |
& 0.67032E+03_JPRB,0.75359E+03_JPRB,0.85186E+03_JPRB,0.94855E+03_JPRB /) |
1163 |
|
|
KA(:, 4, 2, 6) = (/ & |
1164 |
|
|
& 0.14561E+04_JPRB,0.12845E+04_JPRB,0.11130E+04_JPRB,0.94143E+03_JPRB,0.76988E+03_JPRB, & |
1165 |
|
✗ |
& 0.66240E+03_JPRB,0.75215E+03_JPRB,0.85037E+03_JPRB,0.94724E+03_JPRB /) |
1166 |
|
|
KA(:, 5, 2, 6) = (/ & |
1167 |
|
|
& 0.14294E+04_JPRB,0.12611E+04_JPRB,0.10929E+04_JPRB,0.92472E+03_JPRB,0.75651E+03_JPRB, & |
1168 |
|
✗ |
& 0.65660E+03_JPRB,0.75042E+03_JPRB,0.84857E+03_JPRB,0.94557E+03_JPRB /) |
1169 |
|
|
KA(:, 1, 3, 6) = (/ & |
1170 |
|
|
& 0.14541E+04_JPRB,0.12828E+04_JPRB,0.11115E+04_JPRB,0.94019E+03_JPRB,0.76889E+03_JPRB, & |
1171 |
|
✗ |
& 0.66226E+03_JPRB,0.75340E+03_JPRB,0.85268E+03_JPRB,0.95029E+03_JPRB /) |
1172 |
|
|
KA(:, 2, 3, 6) = (/ & |
1173 |
|
|
& 0.14220E+04_JPRB,0.12547E+04_JPRB,0.10874E+04_JPRB,0.92013E+03_JPRB,0.75284E+03_JPRB, & |
1174 |
|
✗ |
& 0.65611E+03_JPRB,0.75249E+03_JPRB,0.85200E+03_JPRB,0.94990E+03_JPRB /) |
1175 |
|
|
KA(:, 3, 3, 6) = (/ & |
1176 |
|
|
& 0.13934E+04_JPRB,0.12297E+04_JPRB,0.10659E+04_JPRB,0.90223E+03_JPRB,0.73852E+03_JPRB, & |
1177 |
|
✗ |
& 0.65222E+03_JPRB,0.75143E+03_JPRB,0.85101E+03_JPRB,0.94916E+03_JPRB /) |
1178 |
|
|
KA(:, 4, 3, 6) = (/ & |
1179 |
|
|
& 0.13676E+04_JPRB,0.12071E+04_JPRB,0.10467E+04_JPRB,0.88615E+03_JPRB,0.72566E+03_JPRB, & |
1180 |
|
✗ |
& 0.64945E+03_JPRB,0.75024E+03_JPRB,0.84977E+03_JPRB,0.94807E+03_JPRB /) |
1181 |
|
|
KA(:, 5, 3, 6) = (/ & |
1182 |
|
|
& 0.13444E+04_JPRB,0.11868E+04_JPRB,0.10292E+04_JPRB,0.87164E+03_JPRB,0.71405E+03_JPRB, & |
1183 |
|
✗ |
& 0.64733E+03_JPRB,0.74880E+03_JPRB,0.84822E+03_JPRB,0.94662E+03_JPRB /) |
1184 |
|
|
KA(:, 1, 4, 6) = (/ & |
1185 |
|
|
& 0.13705E+04_JPRB,0.12096E+04_JPRB,0.10488E+04_JPRB,0.88791E+03_JPRB,0.72707E+03_JPRB, & |
1186 |
|
✗ |
& 0.64976E+03_JPRB,0.75119E+03_JPRB,0.85151E+03_JPRB,0.95037E+03_JPRB /) |
1187 |
|
|
KA(:, 2, 4, 6) = (/ & |
1188 |
|
|
& 0.13421E+04_JPRB,0.11848E+04_JPRB,0.10275E+04_JPRB,0.87017E+03_JPRB,0.71287E+03_JPRB, & |
1189 |
|
✗ |
& 0.64785E+03_JPRB,0.75047E+03_JPRB,0.85104E+03_JPRB,0.95019E+03_JPRB /) |
1190 |
|
|
KA(:, 3, 4, 6) = (/ & |
1191 |
|
|
& 0.13169E+04_JPRB,0.11627E+04_JPRB,0.10086E+04_JPRB,0.85441E+03_JPRB,0.70026E+03_JPRB, & |
1192 |
|
✗ |
& 0.64696E+03_JPRB,0.74964E+03_JPRB,0.85031E+03_JPRB,0.94968E+03_JPRB /) |
1193 |
|
|
KA(:, 4, 4, 6) = (/ & |
1194 |
|
|
& 0.12943E+04_JPRB,0.11430E+04_JPRB,0.99164E+03_JPRB,0.84031E+03_JPRB,0.68898E+03_JPRB, & |
1195 |
|
✗ |
& 0.64601E+03_JPRB,0.74865E+03_JPRB,0.84930E+03_JPRB,0.94882E+03_JPRB /) |
1196 |
|
|
KA(:, 5, 4, 6) = (/ & |
1197 |
|
|
& 0.12740E+04_JPRB,0.11252E+04_JPRB,0.97642E+03_JPRB,0.82763E+03_JPRB,0.67884E+03_JPRB, & |
1198 |
|
✗ |
& 0.64496E+03_JPRB,0.74747E+03_JPRB,0.84802E+03_JPRB,0.94760E+03_JPRB /) |
1199 |
|
|
KA(:, 1, 5, 6) = (/ & |
1200 |
|
|
& 0.12994E+04_JPRB,0.11474E+04_JPRB,0.99546E+03_JPRB,0.84350E+03_JPRB,0.69153E+03_JPRB, & |
1201 |
|
✗ |
& 0.64599E+03_JPRB,0.74922E+03_JPRB,0.85040E+03_JPRB,0.95032E+03_JPRB /) |
1202 |
|
|
KA(:, 2, 5, 6) = (/ & |
1203 |
|
|
& 0.12743E+04_JPRB,0.11254E+04_JPRB,0.97662E+03_JPRB,0.82780E+03_JPRB,0.67897E+03_JPRB, & |
1204 |
|
✗ |
& 0.64529E+03_JPRB,0.74869E+03_JPRB,0.85015E+03_JPRB,0.95034E+03_JPRB /) |
1205 |
|
|
KA(:, 3, 5, 6) = (/ & |
1206 |
|
|
& 0.12521E+04_JPRB,0.11060E+04_JPRB,0.95996E+03_JPRB,0.81391E+03_JPRB,0.66786E+03_JPRB, & |
1207 |
|
✗ |
& 0.64458E+03_JPRB,0.74805E+03_JPRB,0.84965E+03_JPRB,0.95004E+03_JPRB /) |
1208 |
|
|
KA(:, 4, 5, 6) = (/ & |
1209 |
|
|
& 0.12323E+04_JPRB,0.10887E+04_JPRB,0.94511E+03_JPRB,0.80154E+03_JPRB,0.65797E+03_JPRB, & |
1210 |
|
✗ |
& 0.64380E+03_JPRB,0.74727E+03_JPRB,0.84886E+03_JPRB,0.94940E+03_JPRB /) |
1211 |
|
|
KA(:, 5, 5, 6) = (/ & |
1212 |
|
|
& 0.12145E+04_JPRB,0.10732E+04_JPRB,0.93180E+03_JPRB,0.79045E+03_JPRB,0.64909E+03_JPRB, & |
1213 |
|
✗ |
& 0.64294E+03_JPRB,0.74629E+03_JPRB,0.84781E+03_JPRB,0.94841E+03_JPRB /) |
1214 |
|
|
KA(:, 1, 6, 6) = (/ & |
1215 |
|
|
& 0.12398E+04_JPRB,0.10953E+04_JPRB,0.95077E+03_JPRB,0.80625E+03_JPRB,0.66174E+03_JPRB, & |
1216 |
|
✗ |
& 0.64362E+03_JPRB,0.74747E+03_JPRB,0.84935E+03_JPRB,0.95014E+03_JPRB /) |
1217 |
|
|
KA(:, 2, 6, 6) = (/ & |
1218 |
|
|
& 0.12174E+04_JPRB,0.10757E+04_JPRB,0.93400E+03_JPRB,0.79228E+03_JPRB,0.65056E+03_JPRB, & |
1219 |
|
✗ |
& 0.64308E+03_JPRB,0.74712E+03_JPRB,0.84932E+03_JPRB,0.95036E+03_JPRB /) |
1220 |
|
|
KA(:, 3, 6, 6) = (/ & |
1221 |
|
|
& 0.11978E+04_JPRB,0.10585E+04_JPRB,0.91925E+03_JPRB,0.77999E+03_JPRB,0.64087E+03_JPRB, & |
1222 |
|
✗ |
& 0.64253E+03_JPRB,0.74666E+03_JPRB,0.84902E+03_JPRB,0.95027E+03_JPRB /) |
1223 |
|
|
KA(:, 4, 6, 6) = (/ & |
1224 |
|
|
& 0.11803E+04_JPRB,0.10432E+04_JPRB,0.90616E+03_JPRB,0.76908E+03_JPRB,0.63262E+03_JPRB, & |
1225 |
|
✗ |
& 0.64192E+03_JPRB,0.74606E+03_JPRB,0.84847E+03_JPRB,0.94985E+03_JPRB /) |
1226 |
|
|
KA(:, 5, 6, 6) = (/ & |
1227 |
|
|
& 0.11647E+04_JPRB,0.10296E+04_JPRB,0.89448E+03_JPRB,0.75935E+03_JPRB,0.62549E+03_JPRB, & |
1228 |
|
✗ |
& 0.64122E+03_JPRB,0.74529E+03_JPRB,0.84763E+03_JPRB,0.94909E+03_JPRB /) |
1229 |
|
|
KA(:, 1, 7, 6) = (/ & |
1230 |
|
|
& 0.11891E+04_JPRB,0.10509E+04_JPRB,0.91272E+03_JPRB,0.77455E+03_JPRB,0.63693E+03_JPRB, & |
1231 |
|
✗ |
& 0.64154E+03_JPRB,0.74584E+03_JPRB,0.84830E+03_JPRB,0.94975E+03_JPRB /) |
1232 |
|
|
KA(:, 2, 7, 6) = (/ & |
1233 |
|
|
& 0.11692E+04_JPRB,0.10335E+04_JPRB,0.89779E+03_JPRB,0.76210E+03_JPRB,0.62795E+03_JPRB, & |
1234 |
|
✗ |
& 0.64115E+03_JPRB,0.74575E+03_JPRB,0.84848E+03_JPRB,0.95025E+03_JPRB /) |
1235 |
|
|
KA(:, 3, 7, 6) = (/ & |
1236 |
|
|
& 0.11517E+04_JPRB,0.10182E+04_JPRB,0.88471E+03_JPRB,0.75121E+03_JPRB,0.62051E+03_JPRB, & |
1237 |
|
✗ |
& 0.64074E+03_JPRB,0.74542E+03_JPRB,0.84840E+03_JPRB,0.95037E+03_JPRB /) |
1238 |
|
|
KA(:, 4, 7, 6) = (/ & |
1239 |
|
|
& 0.11363E+04_JPRB,0.10048E+04_JPRB,0.87317E+03_JPRB,0.74159E+03_JPRB,0.61432E+03_JPRB, & |
1240 |
|
✗ |
& 0.64028E+03_JPRB,0.74499E+03_JPRB,0.84806E+03_JPRB,0.95015E+03_JPRB /) |
1241 |
|
|
KA(:, 5, 7, 6) = (/ & |
1242 |
|
|
& 0.11227E+04_JPRB,0.99279E+03_JPRB,0.86291E+03_JPRB,0.73304E+03_JPRB,0.60908E+03_JPRB, & |
1243 |
|
✗ |
& 0.63974E+03_JPRB,0.74440E+03_JPRB,0.84744E+03_JPRB,0.94961E+03_JPRB /) |
1244 |
|
|
KA(:, 1, 8, 6) = (/ & |
1245 |
|
|
& 0.11457E+04_JPRB,0.10129E+04_JPRB,0.88017E+03_JPRB,0.74742E+03_JPRB,0.61848E+03_JPRB, & |
1246 |
|
✗ |
& 0.63968E+03_JPRB,0.74433E+03_JPRB,0.84725E+03_JPRB,0.94927E+03_JPRB /) |
1247 |
|
|
KA(:, 2, 8, 6) = (/ & |
1248 |
|
|
& 0.11279E+04_JPRB,0.99740E+03_JPRB,0.86687E+03_JPRB,0.73633E+03_JPRB,0.61183E+03_JPRB, & |
1249 |
|
✗ |
& 0.63944E+03_JPRB,0.74439E+03_JPRB,0.84765E+03_JPRB,0.94999E+03_JPRB /) |
1250 |
|
|
KA(:, 3, 8, 6) = (/ & |
1251 |
|
|
& 0.11125E+04_JPRB,0.98389E+03_JPRB,0.85529E+03_JPRB,0.72668E+03_JPRB,0.60652E+03_JPRB, & |
1252 |
|
✗ |
& 0.63917E+03_JPRB,0.74428E+03_JPRB,0.84777E+03_JPRB,0.95034E+03_JPRB /) |
1253 |
|
|
KA(:, 4, 8, 6) = (/ & |
1254 |
|
|
& 0.10989E+04_JPRB,0.97202E+03_JPRB,0.84512E+03_JPRB,0.71821E+03_JPRB,0.60224E+03_JPRB, & |
1255 |
|
✗ |
& 0.63885E+03_JPRB,0.74401E+03_JPRB,0.84763E+03_JPRB,0.95032E+03_JPRB /) |
1256 |
|
|
KA(:, 5, 8, 6) = (/ & |
1257 |
|
|
& 0.10869E+04_JPRB,0.96152E+03_JPRB,0.83611E+03_JPRB,0.71070E+03_JPRB,0.59867E+03_JPRB, & |
1258 |
|
✗ |
& 0.63844E+03_JPRB,0.74359E+03_JPRB,0.84721E+03_JPRB,0.94997E+03_JPRB /) |
1259 |
|
|
KA(:, 1, 9, 6) = (/ & |
1260 |
|
|
& 0.11087E+04_JPRB,0.98057E+03_JPRB,0.85244E+03_JPRB,0.72431E+03_JPRB,0.60583E+03_JPRB, & |
1261 |
|
✗ |
& 0.63802E+03_JPRB,0.74290E+03_JPRB,0.84619E+03_JPRB,0.94868E+03_JPRB /) |
1262 |
|
|
KA(:, 2, 9, 6) = (/ & |
1263 |
|
|
& 0.10929E+04_JPRB,0.96673E+03_JPRB,0.84058E+03_JPRB,0.71443E+03_JPRB,0.60128E+03_JPRB, & |
1264 |
|
✗ |
& 0.63792E+03_JPRB,0.74318E+03_JPRB,0.84681E+03_JPRB,0.94962E+03_JPRB /) |
1265 |
|
|
KA(:, 3, 9, 6) = (/ & |
1266 |
|
|
& 0.10792E+04_JPRB,0.95475E+03_JPRB,0.83031E+03_JPRB,0.70587E+03_JPRB,0.59784E+03_JPRB, & |
1267 |
|
✗ |
& 0.63778E+03_JPRB,0.74323E+03_JPRB,0.84713E+03_JPRB,0.95019E+03_JPRB /) |
1268 |
|
|
KA(:, 4, 9, 6) = (/ & |
1269 |
|
|
& 0.10672E+04_JPRB,0.94429E+03_JPRB,0.82134E+03_JPRB,0.69840E+03_JPRB,0.59517E+03_JPRB, & |
1270 |
|
✗ |
& 0.63759E+03_JPRB,0.74313E+03_JPRB,0.84718E+03_JPRB,0.95037E+03_JPRB /) |
1271 |
|
|
|
1272 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART4',1,ZHOOK_HANDLE) |
1273 |
|
✗ |
END SUBROUTINE PART4 |
1274 |
|
|
|
1275 |
|
|
|
1276 |
|
✗ |
SUBROUTINE PART5 |
1277 |
|
|
|
1278 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1279 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART5',0,ZHOOK_HANDLE) |
1280 |
|
|
|
1281 |
|
|
|
1282 |
|
|
KA(:, 5, 9, 6) = (/ & |
1283 |
|
|
& 0.10567E+04_JPRB,0.93506E+03_JPRB,0.81344E+03_JPRB,0.69181E+03_JPRB,0.59278E+03_JPRB, & |
1284 |
|
✗ |
& 0.63730E+03_JPRB,0.74285E+03_JPRB,0.84695E+03_JPRB,0.95021E+03_JPRB /) |
1285 |
|
|
KA(:, 1,10, 6) = (/ & |
1286 |
|
|
& 0.10760E+04_JPRB,0.95193E+03_JPRB,0.82790E+03_JPRB,0.70386E+03_JPRB,0.59768E+03_JPRB, & |
1287 |
|
✗ |
& 0.63651E+03_JPRB,0.74157E+03_JPRB,0.84519E+03_JPRB,0.94809E+03_JPRB /) |
1288 |
|
|
KA(:, 2,10, 6) = (/ & |
1289 |
|
|
& 0.10620E+04_JPRB,0.93974E+03_JPRB,0.81744E+03_JPRB,0.69515E+03_JPRB,0.59477E+03_JPRB, & |
1290 |
|
✗ |
& 0.63656E+03_JPRB,0.74203E+03_JPRB,0.84600E+03_JPRB,0.94921E+03_JPRB /) |
1291 |
|
|
KA(:, 3,10, 6) = (/ & |
1292 |
|
|
& 0.10500E+04_JPRB,0.92923E+03_JPRB,0.80844E+03_JPRB,0.68764E+03_JPRB,0.59242E+03_JPRB, & |
1293 |
|
✗ |
& 0.63654E+03_JPRB,0.74226E+03_JPRB,0.84650E+03_JPRB,0.94996E+03_JPRB /) |
1294 |
|
|
KA(:, 4,10, 6) = (/ & |
1295 |
|
|
& 0.10396E+04_JPRB,0.92010E+03_JPRB,0.80061E+03_JPRB,0.68112E+03_JPRB,0.59042E+03_JPRB, & |
1296 |
|
✗ |
& 0.63645E+03_JPRB,0.74230E+03_JPRB,0.84672E+03_JPRB,0.95033E+03_JPRB /) |
1297 |
|
|
KA(:, 5,10, 6) = (/ & |
1298 |
|
|
& 0.10304E+04_JPRB,0.91207E+03_JPRB,0.79373E+03_JPRB,0.67539E+03_JPRB,0.58849E+03_JPRB, & |
1299 |
|
✗ |
& 0.63628E+03_JPRB,0.74216E+03_JPRB,0.84665E+03_JPRB,0.95033E+03_JPRB /) |
1300 |
|
|
KA(:, 1,11, 6) = (/ & |
1301 |
|
|
& 0.10422E+04_JPRB,0.92239E+03_JPRB,0.80258E+03_JPRB,0.68276E+03_JPRB,0.59118E+03_JPRB, & |
1302 |
|
✗ |
& 0.63525E+03_JPRB,0.74065E+03_JPRB,0.84470E+03_JPRB,0.94808E+03_JPRB /) |
1303 |
|
|
KA(:, 2,11, 6) = (/ & |
1304 |
|
|
& 0.10308E+04_JPRB,0.91240E+03_JPRB,0.79401E+03_JPRB,0.67562E+03_JPRB,0.58920E+03_JPRB, & |
1305 |
|
✗ |
& 0.63540E+03_JPRB,0.74118E+03_JPRB,0.84554E+03_JPRB,0.94920E+03_JPRB /) |
1306 |
|
|
KA(:, 3,11, 6) = (/ & |
1307 |
|
|
& 0.10210E+04_JPRB,0.90379E+03_JPRB,0.78663E+03_JPRB,0.66947E+03_JPRB,0.58737E+03_JPRB, & |
1308 |
|
✗ |
& 0.63545E+03_JPRB,0.74147E+03_JPRB,0.84609E+03_JPRB,0.94995E+03_JPRB /) |
1309 |
|
|
KA(:, 4,11, 6) = (/ & |
1310 |
|
|
& 0.10124E+04_JPRB,0.89631E+03_JPRB,0.78022E+03_JPRB,0.66413E+03_JPRB,0.58569E+03_JPRB, & |
1311 |
|
✗ |
& 0.63543E+03_JPRB,0.74156E+03_JPRB,0.84634E+03_JPRB,0.95033E+03_JPRB /) |
1312 |
|
|
KA(:, 5,11, 6) = (/ & |
1313 |
|
|
& 0.10049E+04_JPRB,0.88974E+03_JPRB,0.77458E+03_JPRB,0.65943E+03_JPRB,0.58398E+03_JPRB, & |
1314 |
|
✗ |
& 0.63532E+03_JPRB,0.74146E+03_JPRB,0.84628E+03_JPRB,0.95033E+03_JPRB /) |
1315 |
|
|
KA(:, 1,12, 6) = (/ & |
1316 |
|
|
& 0.10145E+04_JPRB,0.89815E+03_JPRB,0.78180E+03_JPRB,0.66544E+03_JPRB,0.58616E+03_JPRB, & |
1317 |
|
✗ |
& 0.63421E+03_JPRB,0.73990E+03_JPRB,0.84430E+03_JPRB,0.94808E+03_JPRB /) |
1318 |
|
|
KA(:, 2,12, 6) = (/ & |
1319 |
|
|
& 0.10052E+04_JPRB,0.88997E+03_JPRB,0.77478E+03_JPRB,0.65960E+03_JPRB,0.58451E+03_JPRB, & |
1320 |
|
✗ |
& 0.63444E+03_JPRB,0.74048E+03_JPRB,0.84518E+03_JPRB,0.94921E+03_JPRB /) |
1321 |
|
|
KA(:, 3,12, 6) = (/ & |
1322 |
|
|
& 0.99710E+03_JPRB,0.88292E+03_JPRB,0.76874E+03_JPRB,0.65457E+03_JPRB,0.58265E+03_JPRB, & |
1323 |
|
✗ |
& 0.63457E+03_JPRB,0.74082E+03_JPRB,0.84574E+03_JPRB,0.94995E+03_JPRB /) |
1324 |
|
|
KA(:, 4,12, 6) = (/ & |
1325 |
|
|
& 0.99010E+03_JPRB,0.87679E+03_JPRB,0.76349E+03_JPRB,0.65019E+03_JPRB,0.58054E+03_JPRB, & |
1326 |
|
✗ |
& 0.63460E+03_JPRB,0.74095E+03_JPRB,0.84600E+03_JPRB,0.95033E+03_JPRB /) |
1327 |
|
|
KA(:, 5,12, 6) = (/ & |
1328 |
|
|
& 0.98395E+03_JPRB,0.87141E+03_JPRB,0.75888E+03_JPRB,0.64634E+03_JPRB,0.57844E+03_JPRB, & |
1329 |
|
✗ |
& 0.63453E+03_JPRB,0.74089E+03_JPRB,0.84598E+03_JPRB,0.95033E+03_JPRB /) |
1330 |
|
|
KA(:, 1,13, 6) = (/ & |
1331 |
|
|
& 0.99182E+03_JPRB,0.87830E+03_JPRB,0.76478E+03_JPRB,0.65127E+03_JPRB,0.58122E+03_JPRB, & |
1332 |
|
✗ |
& 0.63336E+03_JPRB,0.73928E+03_JPRB,0.84397E+03_JPRB,0.94808E+03_JPRB /) |
1333 |
|
|
KA(:, 2,13, 6) = (/ & |
1334 |
|
|
& 0.98416E+03_JPRB,0.87160E+03_JPRB,0.75904E+03_JPRB,0.64648E+03_JPRB,0.57888E+03_JPRB, & |
1335 |
|
✗ |
& 0.63366E+03_JPRB,0.73991E+03_JPRB,0.84487E+03_JPRB,0.94921E+03_JPRB /) |
1336 |
|
|
KA(:, 3,13, 6) = (/ & |
1337 |
|
|
& 0.97757E+03_JPRB,0.86583E+03_JPRB,0.75410E+03_JPRB,0.64236E+03_JPRB,0.57650E+03_JPRB, & |
1338 |
|
✗ |
& 0.63384E+03_JPRB,0.74029E+03_JPRB,0.84546E+03_JPRB,0.94996E+03_JPRB /) |
1339 |
|
|
KA(:, 4,13, 6) = (/ & |
1340 |
|
|
& 0.97184E+03_JPRB,0.86082E+03_JPRB,0.74980E+03_JPRB,0.63878E+03_JPRB,0.57428E+03_JPRB, & |
1341 |
|
✗ |
& 0.63391E+03_JPRB,0.74045E+03_JPRB,0.84574E+03_JPRB,0.95033E+03_JPRB /) |
1342 |
|
|
KA(:, 5,13, 6) = (/ & |
1343 |
|
|
& 0.96680E+03_JPRB,0.85641E+03_JPRB,0.74602E+03_JPRB,0.63563E+03_JPRB,0.57218E+03_JPRB, & |
1344 |
|
✗ |
& 0.63388E+03_JPRB,0.74043E+03_JPRB,0.84574E+03_JPRB,0.95033E+03_JPRB /) |
1345 |
|
|
KA(:, 1, 1, 7) = (/ & |
1346 |
|
|
& 0.18845E+04_JPRB,0.16548E+04_JPRB,0.14251E+04_JPRB,0.11953E+04_JPRB,0.96557E+03_JPRB, & |
1347 |
|
✗ |
& 0.74301E+03_JPRB,0.82697E+03_JPRB,0.94964E+03_JPRB,0.10740E+04_JPRB /) |
1348 |
|
|
KA(:, 2, 1, 7) = (/ & |
1349 |
|
|
& 0.18367E+04_JPRB,0.16130E+04_JPRB,0.13892E+04_JPRB,0.11655E+04_JPRB,0.94169E+03_JPRB, & |
1350 |
|
✗ |
& 0.73101E+03_JPRB,0.82533E+03_JPRB,0.94833E+03_JPRB,0.10730E+04_JPRB /) |
1351 |
|
|
KA(:, 3, 1, 7) = (/ & |
1352 |
|
|
& 0.17938E+04_JPRB,0.15755E+04_JPRB,0.13571E+04_JPRB,0.11387E+04_JPRB,0.92025E+03_JPRB, & |
1353 |
|
✗ |
& 0.71894E+03_JPRB,0.82353E+03_JPRB,0.94679E+03_JPRB,0.10715E+04_JPRB /) |
1354 |
|
|
KA(:, 4, 1, 7) = (/ & |
1355 |
|
|
& 0.17551E+04_JPRB,0.15416E+04_JPRB,0.13280E+04_JPRB,0.11145E+04_JPRB,0.90089E+03_JPRB, & |
1356 |
|
✗ |
& 0.70691E+03_JPRB,0.82149E+03_JPRB,0.94487E+03_JPRB,0.10696E+04_JPRB /) |
1357 |
|
|
KA(:, 5, 1, 7) = (/ & |
1358 |
|
|
& 0.17200E+04_JPRB,0.15108E+04_JPRB,0.13017E+04_JPRB,0.10925E+04_JPRB,0.88332E+03_JPRB, & |
1359 |
|
✗ |
& 0.69946E+03_JPRB,0.81920E+03_JPRB,0.94260E+03_JPRB,0.10672E+04_JPRB /) |
1360 |
|
|
KA(:, 1, 2, 7) = (/ & |
1361 |
|
|
& 0.17409E+04_JPRB,0.15291E+04_JPRB,0.13174E+04_JPRB,0.11056E+04_JPRB,0.89377E+03_JPRB, & |
1362 |
|
✗ |
& 0.70556E+03_JPRB,0.82545E+03_JPRB,0.94918E+03_JPRB,0.10743E+04_JPRB /) |
1363 |
|
|
KA(:, 2, 2, 7) = (/ & |
1364 |
|
|
& 0.16999E+04_JPRB,0.14933E+04_JPRB,0.12867E+04_JPRB,0.10800E+04_JPRB,0.87329E+03_JPRB, & |
1365 |
|
✗ |
& 0.70177E+03_JPRB,0.82404E+03_JPRB,0.94806E+03_JPRB,0.10734E+04_JPRB /) |
1366 |
|
|
KA(:, 3, 2, 7) = (/ & |
1367 |
|
|
& 0.16632E+04_JPRB,0.14612E+04_JPRB,0.12591E+04_JPRB,0.10571E+04_JPRB,0.85495E+03_JPRB, & |
1368 |
|
✗ |
& 0.69985E+03_JPRB,0.82245E+03_JPRB,0.94668E+03_JPRB,0.10721E+04_JPRB /) |
1369 |
|
|
KA(:, 4, 2, 7) = (/ & |
1370 |
|
|
& 0.16302E+04_JPRB,0.14323E+04_JPRB,0.12344E+04_JPRB,0.10364E+04_JPRB,0.83842E+03_JPRB, & |
1371 |
|
✗ |
& 0.69778E+03_JPRB,0.82061E+03_JPRB,0.94495E+03_JPRB,0.10705E+04_JPRB /) |
1372 |
|
|
KA(:, 5, 2, 7) = (/ & |
1373 |
|
|
& 0.16003E+04_JPRB,0.14061E+04_JPRB,0.12119E+04_JPRB,0.10177E+04_JPRB,0.82345E+03_JPRB, & |
1374 |
|
✗ |
& 0.69549E+03_JPRB,0.81853E+03_JPRB,0.94286E+03_JPRB,0.10683E+04_JPRB /) |
1375 |
|
|
KA(:, 1, 3, 7) = (/ & |
1376 |
|
|
& 0.16280E+04_JPRB,0.14303E+04_JPRB,0.12327E+04_JPRB,0.10350E+04_JPRB,0.83731E+03_JPRB, & |
1377 |
|
✗ |
& 0.70164E+03_JPRB,0.82440E+03_JPRB,0.94900E+03_JPRB,0.10748E+04_JPRB /) |
1378 |
|
|
KA(:, 2, 3, 7) = (/ & |
1379 |
|
|
& 0.15920E+04_JPRB,0.13989E+04_JPRB,0.12057E+04_JPRB,0.10126E+04_JPRB,0.81934E+03_JPRB, & |
1380 |
|
✗ |
& 0.70016E+03_JPRB,0.82323E+03_JPRB,0.94804E+03_JPRB,0.10740E+04_JPRB /) |
1381 |
|
|
KA(:, 3, 3, 7) = (/ & |
1382 |
|
|
& 0.15600E+04_JPRB,0.13708E+04_JPRB,0.11817E+04_JPRB,0.99252E+03_JPRB,0.80330E+03_JPRB, & |
1383 |
|
✗ |
& 0.69850E+03_JPRB,0.82187E+03_JPRB,0.94688E+03_JPRB,0.10730E+04_JPRB /) |
1384 |
|
|
KA(:, 4, 3, 7) = (/ & |
1385 |
|
|
& 0.15312E+04_JPRB,0.13457E+04_JPRB,0.11601E+04_JPRB,0.97452E+03_JPRB,0.78890E+03_JPRB, & |
1386 |
|
✗ |
& 0.69669E+03_JPRB,0.82029E+03_JPRB,0.94542E+03_JPRB,0.10716E+04_JPRB /) |
1387 |
|
|
KA(:, 5, 3, 7) = (/ & |
1388 |
|
|
& 0.15052E+04_JPRB,0.13229E+04_JPRB,0.11406E+04_JPRB,0.95827E+03_JPRB,0.77590E+03_JPRB, & |
1389 |
|
✗ |
& 0.69468E+03_JPRB,0.81844E+03_JPRB,0.94358E+03_JPRB,0.10697E+04_JPRB /) |
1390 |
|
|
KA(:, 1, 4, 7) = (/ & |
1391 |
|
|
& 0.15343E+04_JPRB,0.13484E+04_JPRB,0.11625E+04_JPRB,0.97650E+03_JPRB,0.79047E+03_JPRB, & |
1392 |
|
✗ |
& 0.70005E+03_JPRB,0.82352E+03_JPRB,0.94883E+03_JPRB,0.10751E+04_JPRB /) |
1393 |
|
|
KA(:, 2, 4, 7) = (/ & |
1394 |
|
|
& 0.15026E+04_JPRB,0.13206E+04_JPRB,0.11386E+04_JPRB,0.95663E+03_JPRB,0.77458E+03_JPRB, & |
1395 |
|
✗ |
& 0.69884E+03_JPRB,0.82260E+03_JPRB,0.94808E+03_JPRB,0.10745E+04_JPRB /) |
1396 |
|
|
KA(:, 3, 4, 7) = (/ & |
1397 |
|
|
& 0.14743E+04_JPRB,0.12959E+04_JPRB,0.11175E+04_JPRB,0.93898E+03_JPRB,0.76046E+03_JPRB, & |
1398 |
|
✗ |
& 0.69743E+03_JPRB,0.82145E+03_JPRB,0.94711E+03_JPRB,0.10737E+04_JPRB /) |
1399 |
|
|
KA(:, 4, 4, 7) = (/ & |
1400 |
|
|
& 0.14491E+04_JPRB,0.12738E+04_JPRB,0.10985E+04_JPRB,0.92319E+03_JPRB,0.74783E+03_JPRB, & |
1401 |
|
✗ |
& 0.69586E+03_JPRB,0.82010E+03_JPRB,0.94588E+03_JPRB,0.10725E+04_JPRB /) |
1402 |
|
|
KA(:, 5, 4, 7) = (/ & |
1403 |
|
|
& 0.14263E+04_JPRB,0.12539E+04_JPRB,0.10815E+04_JPRB,0.90900E+03_JPRB,0.73646E+03_JPRB, & |
1404 |
|
✗ |
& 0.69412E+03_JPRB,0.81852E+03_JPRB,0.94430E+03_JPRB,0.10710E+04_JPRB /) |
1405 |
|
|
KA(:, 1, 5, 7) = (/ & |
1406 |
|
|
& 0.14548E+04_JPRB,0.12788E+04_JPRB,0.11028E+04_JPRB,0.92676E+03_JPRB,0.75068E+03_JPRB, & |
1407 |
|
✗ |
& 0.69862E+03_JPRB,0.82271E+03_JPRB,0.94860E+03_JPRB,0.10753E+04_JPRB /) |
1408 |
|
|
KA(:, 2, 5, 7) = (/ & |
1409 |
|
|
& 0.14266E+04_JPRB,0.12542E+04_JPRB,0.10817E+04_JPRB,0.90918E+03_JPRB,0.73662E+03_JPRB, & |
1410 |
|
✗ |
& 0.69765E+03_JPRB,0.82202E+03_JPRB,0.94804E+03_JPRB,0.10749E+04_JPRB /) |
1411 |
|
|
KA(:, 3, 5, 7) = (/ & |
1412 |
|
|
& 0.14018E+04_JPRB,0.12324E+04_JPRB,0.10630E+04_JPRB,0.89363E+03_JPRB,0.72418E+03_JPRB, & |
1413 |
|
✗ |
& 0.69649E+03_JPRB,0.82110E+03_JPRB,0.94729E+03_JPRB,0.10743E+04_JPRB /) |
1414 |
|
|
KA(:, 4, 5, 7) = (/ & |
1415 |
|
|
& 0.13796E+04_JPRB,0.12130E+04_JPRB,0.10464E+04_JPRB,0.87978E+03_JPRB,0.71309E+03_JPRB, & |
1416 |
|
✗ |
& 0.69515E+03_JPRB,0.81992E+03_JPRB,0.94623E+03_JPRB,0.10733E+04_JPRB /) |
1417 |
|
|
KA(:, 5, 5, 7) = (/ & |
1418 |
|
|
& 0.13597E+04_JPRB,0.11956E+04_JPRB,0.10315E+04_JPRB,0.86737E+03_JPRB,0.70315E+03_JPRB, & |
1419 |
|
✗ |
& 0.69363E+03_JPRB,0.81858E+03_JPRB,0.94492E+03_JPRB,0.10720E+04_JPRB /) |
1420 |
|
|
KA(:, 1, 6, 7) = (/ & |
1421 |
|
|
& 0.13881E+04_JPRB,0.12204E+04_JPRB,0.10528E+04_JPRB,0.88506E+03_JPRB,0.71732E+03_JPRB, & |
1422 |
|
✗ |
& 0.69732E+03_JPRB,0.82195E+03_JPRB,0.94833E+03_JPRB,0.10753E+04_JPRB /) |
1423 |
|
|
KA(:, 2, 6, 7) = (/ & |
1424 |
|
|
& 0.13630E+04_JPRB,0.11985E+04_JPRB,0.10340E+04_JPRB,0.86942E+03_JPRB,0.70480E+03_JPRB, & |
1425 |
|
✗ |
& 0.69661E+03_JPRB,0.82150E+03_JPRB,0.94796E+03_JPRB,0.10752E+04_JPRB /) |
1426 |
|
|
KA(:, 3, 6, 7) = (/ & |
1427 |
|
|
& 0.13410E+04_JPRB,0.11792E+04_JPRB,0.10175E+04_JPRB,0.85565E+03_JPRB,0.69378E+03_JPRB, & |
1428 |
|
✗ |
& 0.69568E+03_JPRB,0.82079E+03_JPRB,0.94739E+03_JPRB,0.10747E+04_JPRB /) |
1429 |
|
|
KA(:, 4, 6, 7) = (/ & |
1430 |
|
|
& 0.13215E+04_JPRB,0.11622E+04_JPRB,0.10028E+04_JPRB,0.84344E+03_JPRB,0.68401E+03_JPRB, & |
1431 |
|
✗ |
& 0.69456E+03_JPRB,0.81984E+03_JPRB,0.94655E+03_JPRB,0.10740E+04_JPRB /) |
1432 |
|
|
KA(:, 5, 6, 7) = (/ & |
1433 |
|
|
& 0.13040E+04_JPRB,0.11469E+04_JPRB,0.98973E+03_JPRB,0.83254E+03_JPRB,0.67529E+03_JPRB, & |
1434 |
|
✗ |
& 0.69326E+03_JPRB,0.81868E+03_JPRB,0.94544E+03_JPRB,0.10729E+04_JPRB /) |
1435 |
|
|
KA(:, 1, 7, 7) = (/ & |
1436 |
|
|
& 0.13313E+04_JPRB,0.11707E+04_JPRB,0.10101E+04_JPRB,0.84956E+03_JPRB,0.68891E+03_JPRB, & |
1437 |
|
✗ |
& 0.69611E+03_JPRB,0.82122E+03_JPRB,0.94800E+03_JPRB,0.10754E+04_JPRB /) |
1438 |
|
|
KA(:, 2, 7, 7) = (/ & |
1439 |
|
|
& 0.13090E+04_JPRB,0.11512E+04_JPRB,0.99343E+03_JPRB,0.83562E+03_JPRB,0.67776E+03_JPRB, & |
1440 |
|
✗ |
& 0.69564E+03_JPRB,0.82091E+03_JPRB,0.94785E+03_JPRB,0.10753E+04_JPRB /) |
1441 |
|
|
KA(:, 3, 7, 7) = (/ & |
1442 |
|
|
& 0.12894E+04_JPRB,0.11341E+04_JPRB,0.97879E+03_JPRB,0.82342E+03_JPRB,0.66800E+03_JPRB, & |
1443 |
|
✗ |
& 0.69494E+03_JPRB,0.82048E+03_JPRB,0.94742E+03_JPRB,0.10750E+04_JPRB /) |
1444 |
|
|
KA(:, 4, 7, 7) = (/ & |
1445 |
|
|
& 0.12722E+04_JPRB,0.11191E+04_JPRB,0.96587E+03_JPRB,0.81266E+03_JPRB,0.65938E+03_JPRB, & |
1446 |
|
✗ |
& 0.69403E+03_JPRB,0.81973E+03_JPRB,0.94677E+03_JPRB,0.10745E+04_JPRB /) |
1447 |
|
|
KA(:, 5, 7, 7) = (/ & |
1448 |
|
|
& 0.12569E+04_JPRB,0.11057E+04_JPRB,0.95438E+03_JPRB,0.80308E+03_JPRB,0.65172E+03_JPRB, & |
1449 |
|
✗ |
& 0.69293E+03_JPRB,0.81874E+03_JPRB,0.94587E+03_JPRB,0.10736E+04_JPRB /) |
1450 |
|
|
KA(:, 1, 8, 7) = (/ & |
1451 |
|
|
& 0.12827E+04_JPRB,0.11282E+04_JPRB,0.97371E+03_JPRB,0.81918E+03_JPRB,0.66460E+03_JPRB, & |
1452 |
|
✗ |
& 0.69497E+03_JPRB,0.82050E+03_JPRB,0.94762E+03_JPRB,0.10753E+04_JPRB /) |
1453 |
|
|
KA(:, 2, 8, 7) = (/ & |
1454 |
|
|
& 0.12628E+04_JPRB,0.11108E+04_JPRB,0.95881E+03_JPRB,0.80678E+03_JPRB,0.65467E+03_JPRB, & |
1455 |
|
✗ |
& 0.69473E+03_JPRB,0.82044E+03_JPRB,0.94765E+03_JPRB,0.10754E+04_JPRB /) |
1456 |
|
|
KA(:, 3, 8, 7) = (/ & |
1457 |
|
|
& 0.12455E+04_JPRB,0.10957E+04_JPRB,0.94585E+03_JPRB,0.79597E+03_JPRB,0.64602E+03_JPRB, & |
1458 |
|
✗ |
& 0.69425E+03_JPRB,0.82014E+03_JPRB,0.94746E+03_JPRB,0.10752E+04_JPRB /) |
1459 |
|
|
KA(:, 4, 8, 7) = (/ & |
1460 |
|
|
& 0.12303E+04_JPRB,0.10824E+04_JPRB,0.93446E+03_JPRB,0.78648E+03_JPRB,0.63843E+03_JPRB, & |
1461 |
|
✗ |
& 0.69354E+03_JPRB,0.81959E+03_JPRB,0.94691E+03_JPRB,0.10748E+04_JPRB /) |
1462 |
|
|
KA(:, 5, 8, 7) = (/ & |
1463 |
|
|
& 0.12169E+04_JPRB,0.10706E+04_JPRB,0.92437E+03_JPRB,0.77807E+03_JPRB,0.63171E+03_JPRB, & |
1464 |
|
✗ |
& 0.69262E+03_JPRB,0.81878E+03_JPRB,0.94618E+03_JPRB,0.10741E+04_JPRB /) |
1465 |
|
|
KA(:, 1, 9, 7) = (/ & |
1466 |
|
|
& 0.12413E+04_JPRB,0.10920E+04_JPRB,0.94266E+03_JPRB,0.79331E+03_JPRB,0.64390E+03_JPRB, & |
1467 |
|
✗ |
& 0.69387E+03_JPRB,0.81977E+03_JPRB,0.94713E+03_JPRB,0.10750E+04_JPRB /) |
1468 |
|
|
KA(:, 2, 9, 7) = (/ & |
1469 |
|
|
& 0.12236E+04_JPRB,0.10765E+04_JPRB,0.92938E+03_JPRB,0.78225E+03_JPRB,0.63504E+03_JPRB, & |
1470 |
|
✗ |
& 0.69385E+03_JPRB,0.81989E+03_JPRB,0.94741E+03_JPRB,0.10753E+04_JPRB /) |
1471 |
|
|
KA(:, 3, 9, 7) = (/ & |
1472 |
|
|
& 0.12082E+04_JPRB,0.10631E+04_JPRB,0.91789E+03_JPRB,0.77267E+03_JPRB,0.62738E+03_JPRB, & |
1473 |
|
✗ |
& 0.69359E+03_JPRB,0.81979E+03_JPRB,0.94732E+03_JPRB,0.10754E+04_JPRB /) |
1474 |
|
|
KA(:, 4, 9, 7) = (/ & |
1475 |
|
|
& 0.11949E+04_JPRB,0.10514E+04_JPRB,0.90785E+03_JPRB,0.76430E+03_JPRB,0.62068E+03_JPRB, & |
1476 |
|
✗ |
& 0.69307E+03_JPRB,0.81942E+03_JPRB,0.94698E+03_JPRB,0.10751E+04_JPRB /) |
1477 |
|
|
KA(:, 5, 9, 7) = (/ & |
1478 |
|
|
& 0.11831E+04_JPRB,0.10410E+04_JPRB,0.89899E+03_JPRB,0.75692E+03_JPRB,0.61500E+03_JPRB, & |
1479 |
|
✗ |
& 0.69235E+03_JPRB,0.81879E+03_JPRB,0.94641E+03_JPRB,0.10746E+04_JPRB /) |
1480 |
|
|
KA(:, 1,10, 7) = (/ & |
1481 |
|
|
& 0.12046E+04_JPRB,0.10599E+04_JPRB,0.91518E+03_JPRB,0.77041E+03_JPRB,0.62557E+03_JPRB, & |
1482 |
|
✗ |
& 0.69285E+03_JPRB,0.81909E+03_JPRB,0.94663E+03_JPRB,0.10746E+04_JPRB /) |
1483 |
|
|
KA(:, 2,10, 7) = (/ & |
1484 |
|
|
& 0.11890E+04_JPRB,0.10463E+04_JPRB,0.90347E+03_JPRB,0.76066E+03_JPRB,0.61799E+03_JPRB, & |
1485 |
|
✗ |
& 0.69301E+03_JPRB,0.81937E+03_JPRB,0.94709E+03_JPRB,0.10752E+04_JPRB /) |
1486 |
|
|
KA(:, 3,10, 7) = (/ & |
1487 |
|
|
& 0.11756E+04_JPRB,0.10345E+04_JPRB,0.89339E+03_JPRB,0.75225E+03_JPRB,0.61189E+03_JPRB, & |
1488 |
|
✗ |
& 0.69293E+03_JPRB,0.81942E+03_JPRB,0.94719E+03_JPRB,0.10754E+04_JPRB /) |
1489 |
|
|
KA(:, 4,10, 7) = (/ & |
1490 |
|
|
& 0.11639E+04_JPRB,0.10243E+04_JPRB,0.88463E+03_JPRB,0.74495E+03_JPRB,0.60683E+03_JPRB, & |
1491 |
|
✗ |
& 0.69260E+03_JPRB,0.81922E+03_JPRB,0.94698E+03_JPRB,0.10753E+04_JPRB /) |
1492 |
|
|
KA(:, 5,10, 7) = (/ & |
1493 |
|
|
& 0.11536E+04_JPRB,0.10153E+04_JPRB,0.87693E+03_JPRB,0.73853E+03_JPRB,0.60268E+03_JPRB, & |
1494 |
|
✗ |
& 0.69203E+03_JPRB,0.81871E+03_JPRB,0.94653E+03_JPRB,0.10749E+04_JPRB /) |
1495 |
|
|
KA(:, 1,11, 7) = (/ & |
1496 |
|
|
& 0.11668E+04_JPRB,0.10268E+04_JPRB,0.88684E+03_JPRB,0.74678E+03_JPRB,0.60837E+03_JPRB, & |
1497 |
|
✗ |
& 0.69208E+03_JPRB,0.81864E+03_JPRB,0.94642E+03_JPRB,0.10746E+04_JPRB /) |
1498 |
|
|
KA(:, 2,11, 7) = (/ & |
1499 |
|
|
& 0.11540E+04_JPRB,0.10157E+04_JPRB,0.87724E+03_JPRB,0.73879E+03_JPRB,0.60335E+03_JPRB, & |
1500 |
|
✗ |
& 0.69229E+03_JPRB,0.81896E+03_JPRB,0.94691E+03_JPRB,0.10752E+04_JPRB /) |
1501 |
|
|
KA(:, 3,11, 7) = (/ & |
1502 |
|
|
& 0.11430E+04_JPRB,0.10060E+04_JPRB,0.86898E+03_JPRB,0.73191E+03_JPRB,0.59939E+03_JPRB, & |
1503 |
|
✗ |
& 0.69226E+03_JPRB,0.81904E+03_JPRB,0.94700E+03_JPRB,0.10754E+04_JPRB /) |
1504 |
|
|
KA(:, 4,11, 7) = (/ & |
1505 |
|
|
& 0.11335E+04_JPRB,0.99764E+03_JPRB,0.86180E+03_JPRB,0.72592E+03_JPRB,0.59585E+03_JPRB, & |
1506 |
|
✗ |
& 0.69198E+03_JPRB,0.81884E+03_JPRB,0.94679E+03_JPRB,0.10753E+04_JPRB /) |
1507 |
|
|
KA(:, 5,11, 7) = (/ & |
1508 |
|
|
& 0.11251E+04_JPRB,0.99028E+03_JPRB,0.85549E+03_JPRB,0.72067E+03_JPRB,0.59286E+03_JPRB, & |
1509 |
|
✗ |
& 0.69146E+03_JPRB,0.81839E+03_JPRB,0.94639E+03_JPRB,0.10749E+04_JPRB /) |
1510 |
|
|
KA(:, 1,12, 7) = (/ & |
1511 |
|
|
& 0.11358E+04_JPRB,0.99970E+03_JPRB,0.86357E+03_JPRB,0.72739E+03_JPRB,0.59707E+03_JPRB, & |
1512 |
|
✗ |
& 0.69145E+03_JPRB,0.81829E+03_JPRB,0.94626E+03_JPRB,0.10746E+04_JPRB /) |
1513 |
|
|
KA(:, 2,12, 7) = (/ & |
1514 |
|
|
& 0.11253E+04_JPRB,0.99054E+03_JPRB,0.85571E+03_JPRB,0.72085E+03_JPRB,0.59339E+03_JPRB, & |
1515 |
|
✗ |
& 0.69172E+03_JPRB,0.81863E+03_JPRB,0.94675E+03_JPRB,0.10752E+04_JPRB /) |
1516 |
|
|
KA(:, 3,12, 7) = (/ & |
1517 |
|
|
& 0.11163E+04_JPRB,0.98265E+03_JPRB,0.84895E+03_JPRB,0.71521E+03_JPRB,0.59030E+03_JPRB, & |
1518 |
|
✗ |
& 0.69172E+03_JPRB,0.81873E+03_JPRB,0.94686E+03_JPRB,0.10754E+04_JPRB /) |
1519 |
|
|
KA(:, 4,12, 7) = (/ & |
1520 |
|
|
& 0.11085E+04_JPRB,0.97579E+03_JPRB,0.84307E+03_JPRB,0.71031E+03_JPRB,0.58782E+03_JPRB, & |
1521 |
|
✗ |
& 0.69148E+03_JPRB,0.81855E+03_JPRB,0.94672E+03_JPRB,0.10753E+04_JPRB /) |
1522 |
|
|
KA(:, 5,12, 7) = (/ & |
1523 |
|
|
& 0.11016E+04_JPRB,0.96977E+03_JPRB,0.83790E+03_JPRB,0.70601E+03_JPRB,0.58538E+03_JPRB, & |
1524 |
|
✗ |
& 0.69099E+03_JPRB,0.81812E+03_JPRB,0.94628E+03_JPRB,0.10749E+04_JPRB /) |
1525 |
|
|
KA(:, 1,13, 7) = (/ & |
1526 |
|
|
& 0.11104E+04_JPRB,0.97748E+03_JPRB,0.84452E+03_JPRB,0.71152E+03_JPRB,0.58852E+03_JPRB, & |
1527 |
|
✗ |
& 0.69093E+03_JPRB,0.81799E+03_JPRB,0.94612E+03_JPRB,0.10746E+04_JPRB /) |
1528 |
|
|
KA(:, 2,13, 7) = (/ & |
1529 |
|
|
& 0.11018E+04_JPRB,0.96998E+03_JPRB,0.83809E+03_JPRB,0.70616E+03_JPRB,0.58570E+03_JPRB, & |
1530 |
|
✗ |
& 0.69123E+03_JPRB,0.81841E+03_JPRB,0.94664E+03_JPRB,0.10752E+04_JPRB /) |
1531 |
|
|
KA(:, 3,13, 7) = (/ & |
1532 |
|
|
& 0.10945E+04_JPRB,0.96352E+03_JPRB,0.83255E+03_JPRB,0.70155E+03_JPRB,0.58307E+03_JPRB, & |
1533 |
|
✗ |
& 0.69128E+03_JPRB,0.81849E+03_JPRB,0.94675E+03_JPRB,0.10754E+04_JPRB /) |
1534 |
|
|
KA(:, 4,13, 7) = (/ & |
1535 |
|
|
& 0.10880E+04_JPRB,0.95790E+03_JPRB,0.82774E+03_JPRB,0.69753E+03_JPRB,0.58045E+03_JPRB, & |
1536 |
|
✗ |
& 0.69107E+03_JPRB,0.81832E+03_JPRB,0.94657E+03_JPRB,0.10753E+04_JPRB /) |
1537 |
|
|
KA(:, 5,13, 7) = (/ & |
1538 |
|
|
& 0.10824E+04_JPRB,0.95297E+03_JPRB,0.82351E+03_JPRB,0.69401E+03_JPRB,0.57806E+03_JPRB, & |
1539 |
|
✗ |
& 0.69061E+03_JPRB,0.81788E+03_JPRB,0.94614E+03_JPRB,0.10749E+04_JPRB /) |
1540 |
|
|
KA(:, 1, 1, 8) = (/ & |
1541 |
|
|
& 0.19433E+04_JPRB,0.17047E+04_JPRB,0.14661E+04_JPRB,0.12275E+04_JPRB,0.98902E+03_JPRB, & |
1542 |
|
✗ |
& 0.75120E+03_JPRB,0.85754E+03_JPRB,0.98845E+03_JPRB,0.11206E+04_JPRB /) |
1543 |
|
|
KA(:, 2, 1, 8) = (/ & |
1544 |
|
|
& 0.18941E+04_JPRB,0.16616E+04_JPRB,0.14292E+04_JPRB,0.11968E+04_JPRB,0.96439E+03_JPRB, & |
1545 |
|
✗ |
& 0.73548E+03_JPRB,0.85594E+03_JPRB,0.98707E+03_JPRB,0.11193E+04_JPRB /) |
1546 |
|
|
KA(:, 3, 1, 8) = (/ & |
1547 |
|
|
& 0.18499E+04_JPRB,0.16229E+04_JPRB,0.13960E+04_JPRB,0.11691E+04_JPRB,0.94229E+03_JPRB, & |
1548 |
|
✗ |
& 0.72448E+03_JPRB,0.85413E+03_JPRB,0.98549E+03_JPRB,0.11177E+04_JPRB /) |
1549 |
|
|
KA(:, 4, 1, 8) = (/ & |
1550 |
|
|
& 0.18099E+04_JPRB,0.15880E+04_JPRB,0.13661E+04_JPRB,0.11442E+04_JPRB,0.92233E+03_JPRB, & |
1551 |
|
✗ |
& 0.72225E+03_JPRB,0.85214E+03_JPRB,0.98373E+03_JPRB,0.11158E+04_JPRB /) |
1552 |
|
|
KA(:, 5, 1, 8) = (/ & |
1553 |
|
|
& 0.17737E+04_JPRB,0.15563E+04_JPRB,0.13389E+04_JPRB,0.11215E+04_JPRB,0.90421E+03_JPRB, & |
1554 |
|
✗ |
& 0.72001E+03_JPRB,0.85005E+03_JPRB,0.98175E+03_JPRB,0.11138E+04_JPRB /) |
1555 |
|
|
KA(:, 1, 2, 8) = (/ & |
1556 |
|
|
& 0.17953E+04_JPRB,0.15751E+04_JPRB,0.13551E+04_JPRB,0.11350E+04_JPRB,0.91499E+03_JPRB, & |
1557 |
|
✗ |
& 0.72569E+03_JPRB,0.85649E+03_JPRB,0.98821E+03_JPRB,0.11210E+04_JPRB /) |
1558 |
|
|
KA(:, 2, 2, 8) = (/ & |
1559 |
|
|
& 0.17530E+04_JPRB,0.15382E+04_JPRB,0.13234E+04_JPRB,0.11086E+04_JPRB,0.89388E+03_JPRB, & |
1560 |
|
✗ |
& 0.72424E+03_JPRB,0.85509E+03_JPRB,0.98698E+03_JPRB,0.11198E+04_JPRB /) |
1561 |
|
|
KA(:, 3, 2, 8) = (/ & |
1562 |
|
|
& 0.17152E+04_JPRB,0.15051E+04_JPRB,0.12950E+04_JPRB,0.10850E+04_JPRB,0.87497E+03_JPRB, & |
1563 |
|
✗ |
& 0.72267E+03_JPRB,0.85348E+03_JPRB,0.98553E+03_JPRB,0.11184E+04_JPRB /) |
1564 |
|
|
KA(:, 4, 2, 8) = (/ & |
1565 |
|
|
& 0.16811E+04_JPRB,0.14753E+04_JPRB,0.12695E+04_JPRB,0.10637E+04_JPRB,0.85793E+03_JPRB, & |
1566 |
|
✗ |
& 0.72084E+03_JPRB,0.85163E+03_JPRB,0.98389E+03_JPRB,0.11166E+04_JPRB /) |
1567 |
|
|
KA(:, 5, 2, 8) = (/ & |
1568 |
|
|
& 0.16502E+04_JPRB,0.14483E+04_JPRB,0.12463E+04_JPRB,0.10444E+04_JPRB,0.84250E+03_JPRB, & |
1569 |
|
✗ |
& 0.71877E+03_JPRB,0.84969E+03_JPRB,0.98204E+03_JPRB,0.11147E+04_JPRB /) |
1570 |
|
|
KA(:, 1, 3, 8) = (/ & |
1571 |
|
|
& 0.16788E+04_JPRB,0.14733E+04_JPRB,0.12678E+04_JPRB,0.10623E+04_JPRB,0.85679E+03_JPRB, & |
1572 |
|
✗ |
& 0.72434E+03_JPRB,0.85588E+03_JPRB,0.98822E+03_JPRB,0.11216E+04_JPRB /) |
1573 |
|
|
|
1574 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART5',1,ZHOOK_HANDLE) |
1575 |
|
✗ |
END SUBROUTINE PART5 |
1576 |
|
|
|
1577 |
|
|
|
1578 |
|
✗ |
SUBROUTINE PART6 |
1579 |
|
|
|
1580 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1581 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART6',0,ZHOOK_HANDLE) |
1582 |
|
|
|
1583 |
|
|
|
1584 |
|
|
KA(:, 2, 3, 8) = (/ & |
1585 |
|
|
& 0.16418E+04_JPRB,0.14409E+04_JPRB,0.12400E+04_JPRB,0.10391E+04_JPRB,0.83827E+03_JPRB, & |
1586 |
|
✗ |
& 0.72306E+03_JPRB,0.85466E+03_JPRB,0.98716E+03_JPRB,0.11206E+04_JPRB /) |
1587 |
|
|
KA(:, 3, 3, 8) = (/ & |
1588 |
|
|
& 0.16087E+04_JPRB,0.14119E+04_JPRB,0.12152E+04_JPRB,0.10184E+04_JPRB,0.82172E+03_JPRB, & |
1589 |
|
✗ |
& 0.72165E+03_JPRB,0.85327E+03_JPRB,0.98590E+03_JPRB,0.11193E+04_JPRB /) |
1590 |
|
|
KA(:, 4, 3, 8) = (/ & |
1591 |
|
|
& 0.15790E+04_JPRB,0.13859E+04_JPRB,0.11929E+04_JPRB,0.99988E+03_JPRB,0.80688E+03_JPRB, & |
1592 |
|
✗ |
& 0.72007E+03_JPRB,0.85161E+03_JPRB,0.98438E+03_JPRB,0.11177E+04_JPRB /) |
1593 |
|
|
KA(:, 5, 3, 8) = (/ & |
1594 |
|
|
& 0.15522E+04_JPRB,0.13625E+04_JPRB,0.11728E+04_JPRB,0.98311E+03_JPRB,0.79349E+03_JPRB, & |
1595 |
|
✗ |
& 0.71824E+03_JPRB,0.84982E+03_JPRB,0.98270E+03_JPRB,0.11159E+04_JPRB /) |
1596 |
|
|
KA(:, 1, 4, 8) = (/ & |
1597 |
|
|
& 0.15823E+04_JPRB,0.13888E+04_JPRB,0.11953E+04_JPRB,0.10019E+04_JPRB,0.80851E+03_JPRB, & |
1598 |
|
✗ |
& 0.72326E+03_JPRB,0.85540E+03_JPRB,0.98823E+03_JPRB,0.11221E+04_JPRB /) |
1599 |
|
|
KA(:, 2, 4, 8) = (/ & |
1600 |
|
|
& 0.15495E+04_JPRB,0.13601E+04_JPRB,0.11708E+04_JPRB,0.98142E+03_JPRB,0.79213E+03_JPRB, & |
1601 |
|
✗ |
& 0.72214E+03_JPRB,0.85436E+03_JPRB,0.98737E+03_JPRB,0.11213E+04_JPRB /) |
1602 |
|
|
KA(:, 3, 4, 8) = (/ & |
1603 |
|
|
& 0.15204E+04_JPRB,0.13346E+04_JPRB,0.11489E+04_JPRB,0.96322E+03_JPRB,0.77758E+03_JPRB, & |
1604 |
|
✗ |
& 0.72091E+03_JPRB,0.85317E+03_JPRB,0.98628E+03_JPRB,0.11202E+04_JPRB /) |
1605 |
|
|
KA(:, 4, 4, 8) = (/ & |
1606 |
|
|
& 0.14943E+04_JPRB,0.13118E+04_JPRB,0.11294E+04_JPRB,0.94694E+03_JPRB,0.76455E+03_JPRB, & |
1607 |
|
✗ |
& 0.71952E+03_JPRB,0.85175E+03_JPRB,0.98496E+03_JPRB,0.11188E+04_JPRB /) |
1608 |
|
|
KA(:, 5, 4, 8) = (/ & |
1609 |
|
|
& 0.14709E+04_JPRB,0.12913E+04_JPRB,0.11118E+04_JPRB,0.93229E+03_JPRB,0.75284E+03_JPRB, & |
1610 |
|
✗ |
& 0.71792E+03_JPRB,0.85010E+03_JPRB,0.98342E+03_JPRB,0.11171E+04_JPRB /) |
1611 |
|
|
KA(:, 1, 5, 8) = (/ & |
1612 |
|
|
& 0.15002E+04_JPRB,0.13170E+04_JPRB,0.11338E+04_JPRB,0.95063E+03_JPRB,0.76749E+03_JPRB, & |
1613 |
|
✗ |
& 0.72234E+03_JPRB,0.85495E+03_JPRB,0.98821E+03_JPRB,0.11224E+04_JPRB /) |
1614 |
|
|
KA(:, 2, 5, 8) = (/ & |
1615 |
|
|
& 0.14712E+04_JPRB,0.12916E+04_JPRB,0.11120E+04_JPRB,0.93250E+03_JPRB,0.75300E+03_JPRB, & |
1616 |
|
✗ |
& 0.72139E+03_JPRB,0.85409E+03_JPRB,0.98753E+03_JPRB,0.11218E+04_JPRB /) |
1617 |
|
|
KA(:, 3, 5, 8) = (/ & |
1618 |
|
|
& 0.14456E+04_JPRB,0.12692E+04_JPRB,0.10928E+04_JPRB,0.91647E+03_JPRB,0.74017E+03_JPRB, & |
1619 |
|
✗ |
& 0.72031E+03_JPRB,0.85307E+03_JPRB,0.98657E+03_JPRB,0.11209E+04_JPRB /) |
1620 |
|
|
KA(:, 4, 5, 8) = (/ & |
1621 |
|
|
& 0.14227E+04_JPRB,0.12492E+04_JPRB,0.10757E+04_JPRB,0.90219E+03_JPRB,0.72875E+03_JPRB, & |
1622 |
|
✗ |
& 0.71909E+03_JPRB,0.85186E+03_JPRB,0.98546E+03_JPRB,0.11197E+04_JPRB /) |
1623 |
|
|
KA(:, 5, 5, 8) = (/ & |
1624 |
|
|
& 0.14022E+04_JPRB,0.12312E+04_JPRB,0.10603E+04_JPRB,0.88937E+03_JPRB,0.71851E+03_JPRB, & |
1625 |
|
✗ |
& 0.71769E+03_JPRB,0.85037E+03_JPRB,0.98406E+03_JPRB,0.11182E+04_JPRB /) |
1626 |
|
|
KA(:, 1, 6, 8) = (/ & |
1627 |
|
|
& 0.14314E+04_JPRB,0.12568E+04_JPRB,0.10822E+04_JPRB,0.90763E+03_JPRB,0.73310E+03_JPRB, & |
1628 |
|
✗ |
& 0.72155E+03_JPRB,0.85452E+03_JPRB,0.98813E+03_JPRB,0.11226E+04_JPRB /) |
1629 |
|
|
KA(:, 2, 6, 8) = (/ & |
1630 |
|
|
& 0.14056E+04_JPRB,0.12342E+04_JPRB,0.10628E+04_JPRB,0.89150E+03_JPRB,0.72020E+03_JPRB, & |
1631 |
|
✗ |
& 0.72077E+03_JPRB,0.85386E+03_JPRB,0.98765E+03_JPRB,0.11222E+04_JPRB /) |
1632 |
|
|
KA(:, 3, 6, 8) = (/ & |
1633 |
|
|
& 0.13829E+04_JPRB,0.12143E+04_JPRB,0.10458E+04_JPRB,0.87730E+03_JPRB,0.70887E+03_JPRB, & |
1634 |
|
✗ |
& 0.71986E+03_JPRB,0.85300E+03_JPRB,0.98688E+03_JPRB,0.11215E+04_JPRB /) |
1635 |
|
|
KA(:, 4, 6, 8) = (/ & |
1636 |
|
|
& 0.13627E+04_JPRB,0.11967E+04_JPRB,0.10307E+04_JPRB,0.86473E+03_JPRB,0.69880E+03_JPRB, & |
1637 |
|
✗ |
& 0.71879E+03_JPRB,0.85197E+03_JPRB,0.98590E+03_JPRB,0.11205E+04_JPRB /) |
1638 |
|
|
KA(:, 5, 6, 8) = (/ & |
1639 |
|
|
& 0.13448E+04_JPRB,0.11810E+04_JPRB,0.10172E+04_JPRB,0.85348E+03_JPRB,0.68979E+03_JPRB, & |
1640 |
|
✗ |
& 0.71757E+03_JPRB,0.85073E+03_JPRB,0.98469E+03_JPRB,0.11192E+04_JPRB /) |
1641 |
|
|
KA(:, 1, 7, 8) = (/ & |
1642 |
|
|
& 0.13728E+04_JPRB,0.12055E+04_JPRB,0.10383E+04_JPRB,0.87102E+03_JPRB,0.70382E+03_JPRB, & |
1643 |
|
✗ |
& 0.72081E+03_JPRB,0.85410E+03_JPRB,0.98799E+03_JPRB,0.11227E+04_JPRB /) |
1644 |
|
|
KA(:, 2, 7, 8) = (/ & |
1645 |
|
|
& 0.13499E+04_JPRB,0.11854E+04_JPRB,0.10210E+04_JPRB,0.85666E+03_JPRB,0.69233E+03_JPRB, & |
1646 |
|
✗ |
& 0.72022E+03_JPRB,0.85362E+03_JPRB,0.98768E+03_JPRB,0.11225E+04_JPRB /) |
1647 |
|
|
KA(:, 3, 7, 8) = (/ & |
1648 |
|
|
& 0.13297E+04_JPRB,0.11678E+04_JPRB,0.10059E+04_JPRB,0.84408E+03_JPRB,0.68228E+03_JPRB, & |
1649 |
|
✗ |
& 0.71945E+03_JPRB,0.85293E+03_JPRB,0.98711E+03_JPRB,0.11220E+04_JPRB /) |
1650 |
|
|
KA(:, 4, 7, 8) = (/ & |
1651 |
|
|
& 0.13120E+04_JPRB,0.11523E+04_JPRB,0.99261E+03_JPRB,0.83298E+03_JPRB,0.67339E+03_JPRB, & |
1652 |
|
✗ |
& 0.71854E+03_JPRB,0.85205E+03_JPRB,0.98632E+03_JPRB,0.11212E+04_JPRB /) |
1653 |
|
|
KA(:, 5, 7, 8) = (/ & |
1654 |
|
|
& 0.12962E+04_JPRB,0.11384E+04_JPRB,0.98077E+03_JPRB,0.82312E+03_JPRB,0.66550E+03_JPRB, & |
1655 |
|
✗ |
& 0.71746E+03_JPRB,0.85098E+03_JPRB,0.98523E+03_JPRB,0.11200E+04_JPRB /) |
1656 |
|
|
KA(:, 1, 8, 8) = (/ & |
1657 |
|
|
& 0.13227E+04_JPRB,0.11617E+04_JPRB,0.10007E+04_JPRB,0.83971E+03_JPRB,0.67877E+03_JPRB, & |
1658 |
|
✗ |
& 0.72007E+03_JPRB,0.85366E+03_JPRB,0.98779E+03_JPRB,0.11227E+04_JPRB /) |
1659 |
|
|
KA(:, 2, 8, 8) = (/ & |
1660 |
|
|
& 0.13022E+04_JPRB,0.11438E+04_JPRB,0.98533E+03_JPRB,0.82690E+03_JPRB,0.66854E+03_JPRB, & |
1661 |
|
✗ |
& 0.71969E+03_JPRB,0.85334E+03_JPRB,0.98763E+03_JPRB,0.11227E+04_JPRB /) |
1662 |
|
|
KA(:, 3, 8, 8) = (/ & |
1663 |
|
|
& 0.12844E+04_JPRB,0.11282E+04_JPRB,0.97196E+03_JPRB,0.81577E+03_JPRB,0.65963E+03_JPRB, & |
1664 |
|
✗ |
& 0.71908E+03_JPRB,0.85283E+03_JPRB,0.98717E+03_JPRB,0.11223E+04_JPRB /) |
1665 |
|
|
KA(:, 4, 8, 8) = (/ & |
1666 |
|
|
& 0.12688E+04_JPRB,0.11145E+04_JPRB,0.96023E+03_JPRB,0.80599E+03_JPRB,0.65182E+03_JPRB, & |
1667 |
|
✗ |
& 0.71830E+03_JPRB,0.85210E+03_JPRB,0.98659E+03_JPRB,0.11217E+04_JPRB /) |
1668 |
|
|
KA(:, 5, 8, 8) = (/ & |
1669 |
|
|
& 0.12549E+04_JPRB,0.11024E+04_JPRB,0.94982E+03_JPRB,0.79733E+03_JPRB,0.64488E+03_JPRB, & |
1670 |
|
✗ |
& 0.71736E+03_JPRB,0.85118E+03_JPRB,0.98569E+03_JPRB,0.11208E+04_JPRB /) |
1671 |
|
|
KA(:, 1, 9, 8) = (/ & |
1672 |
|
|
& 0.12800E+04_JPRB,0.11244E+04_JPRB,0.96868E+03_JPRB,0.81302E+03_JPRB,0.65744E+03_JPRB, & |
1673 |
|
✗ |
& 0.71936E+03_JPRB,0.85323E+03_JPRB,0.98761E+03_JPRB,0.11226E+04_JPRB /) |
1674 |
|
|
KA(:, 2, 9, 8) = (/ & |
1675 |
|
|
& 0.12618E+04_JPRB,0.11084E+04_JPRB,0.95498E+03_JPRB,0.80161E+03_JPRB,0.64832E+03_JPRB, & |
1676 |
|
✗ |
& 0.71916E+03_JPRB,0.85306E+03_JPRB,0.98751E+03_JPRB,0.11227E+04_JPRB /) |
1677 |
|
|
KA(:, 3, 9, 8) = (/ & |
1678 |
|
|
& 0.12460E+04_JPRB,0.10945E+04_JPRB,0.94313E+03_JPRB,0.79175E+03_JPRB,0.64042E+03_JPRB, & |
1679 |
|
✗ |
& 0.71874E+03_JPRB,0.85269E+03_JPRB,0.98731E+03_JPRB,0.11226E+04_JPRB /) |
1680 |
|
|
KA(:, 4, 9, 8) = (/ & |
1681 |
|
|
& 0.12322E+04_JPRB,0.10825E+04_JPRB,0.93277E+03_JPRB,0.78311E+03_JPRB,0.63351E+03_JPRB, & |
1682 |
|
✗ |
& 0.71809E+03_JPRB,0.85213E+03_JPRB,0.98681E+03_JPRB,0.11221E+04_JPRB /) |
1683 |
|
|
KA(:, 5, 9, 8) = (/ & |
1684 |
|
|
& 0.12200E+04_JPRB,0.10718E+04_JPRB,0.92365E+03_JPRB,0.77552E+03_JPRB,0.62743E+03_JPRB, & |
1685 |
|
✗ |
& 0.71728E+03_JPRB,0.85134E+03_JPRB,0.98607E+03_JPRB,0.11214E+04_JPRB /) |
1686 |
|
|
KA(:, 1,10, 8) = (/ & |
1687 |
|
|
& 0.12423E+04_JPRB,0.10913E+04_JPRB,0.94034E+03_JPRB,0.78942E+03_JPRB,0.63856E+03_JPRB, & |
1688 |
|
✗ |
& 0.71867E+03_JPRB,0.85279E+03_JPRB,0.98738E+03_JPRB,0.11225E+04_JPRB /) |
1689 |
|
|
KA(:, 2,10, 8) = (/ & |
1690 |
|
|
& 0.12262E+04_JPRB,0.10772E+04_JPRB,0.92827E+03_JPRB,0.77936E+03_JPRB,0.63052E+03_JPRB, & |
1691 |
|
✗ |
& 0.71863E+03_JPRB,0.85274E+03_JPRB,0.98738E+03_JPRB,0.11227E+04_JPRB /) |
1692 |
|
|
KA(:, 3,10, 8) = (/ & |
1693 |
|
|
& 0.12123E+04_JPRB,0.10651E+04_JPRB,0.91788E+03_JPRB,0.77071E+03_JPRB,0.62359E+03_JPRB, & |
1694 |
|
✗ |
& 0.71835E+03_JPRB,0.85251E+03_JPRB,0.98725E+03_JPRB,0.11227E+04_JPRB /) |
1695 |
|
|
KA(:, 4,10, 8) = (/ & |
1696 |
|
|
& 0.12002E+04_JPRB,0.10545E+04_JPRB,0.90884E+03_JPRB,0.76317E+03_JPRB,0.61756E+03_JPRB, & |
1697 |
|
✗ |
& 0.71785E+03_JPRB,0.85203E+03_JPRB,0.98691E+03_JPRB,0.11224E+04_JPRB /) |
1698 |
|
|
KA(:, 5,10, 8) = (/ & |
1699 |
|
|
& 0.11897E+04_JPRB,0.10453E+04_JPRB,0.90090E+03_JPRB,0.75655E+03_JPRB,0.61227E+03_JPRB, & |
1700 |
|
✗ |
& 0.71716E+03_JPRB,0.85141E+03_JPRB,0.98631E+03_JPRB,0.11218E+04_JPRB /) |
1701 |
|
|
KA(:, 1,11, 8) = (/ & |
1702 |
|
|
& 0.12033E+04_JPRB,0.10572E+04_JPRB,0.91110E+03_JPRB,0.76506E+03_JPRB,0.61908E+03_JPRB, & |
1703 |
|
✗ |
& 0.71809E+03_JPRB,0.85242E+03_JPRB,0.98721E+03_JPRB,0.11225E+04_JPRB /) |
1704 |
|
|
KA(:, 2,11, 8) = (/ & |
1705 |
|
|
& 0.11901E+04_JPRB,0.10456E+04_JPRB,0.90123E+03_JPRB,0.75682E+03_JPRB,0.61248E+03_JPRB, & |
1706 |
|
✗ |
& 0.71809E+03_JPRB,0.85240E+03_JPRB,0.98723E+03_JPRB,0.11226E+04_JPRB /) |
1707 |
|
|
KA(:, 3,11, 8) = (/ & |
1708 |
|
|
& 0.11788E+04_JPRB,0.10357E+04_JPRB,0.89271E+03_JPRB,0.74972E+03_JPRB,0.60692E+03_JPRB, & |
1709 |
|
✗ |
& 0.71785E+03_JPRB,0.85217E+03_JPRB,0.98712E+03_JPRB,0.11227E+04_JPRB /) |
1710 |
|
|
KA(:, 4,11, 8) = (/ & |
1711 |
|
|
& 0.11689E+04_JPRB,0.10271E+04_JPRB,0.88529E+03_JPRB,0.74355E+03_JPRB,0.60253E+03_JPRB, & |
1712 |
|
✗ |
& 0.71738E+03_JPRB,0.85177E+03_JPRB,0.98681E+03_JPRB,0.11224E+04_JPRB /) |
1713 |
|
|
KA(:, 5,11, 8) = (/ & |
1714 |
|
|
& 0.11602E+04_JPRB,0.10195E+04_JPRB,0.87880E+03_JPRB,0.73813E+03_JPRB,0.59855E+03_JPRB, & |
1715 |
|
✗ |
& 0.71672E+03_JPRB,0.85114E+03_JPRB,0.98618E+03_JPRB,0.11218E+04_JPRB /) |
1716 |
|
|
KA(:, 1,12, 8) = (/ & |
1717 |
|
|
& 0.11713E+04_JPRB,0.10292E+04_JPRB,0.88712E+03_JPRB,0.74507E+03_JPRB,0.60379E+03_JPRB, & |
1718 |
|
✗ |
& 0.71766E+03_JPRB,0.85212E+03_JPRB,0.98706E+03_JPRB,0.11225E+04_JPRB /) |
1719 |
|
|
KA(:, 2,12, 8) = (/ & |
1720 |
|
|
& 0.11605E+04_JPRB,0.10197E+04_JPRB,0.87902E+03_JPRB,0.73833E+03_JPRB,0.59891E+03_JPRB, & |
1721 |
|
✗ |
& 0.71764E+03_JPRB,0.85212E+03_JPRB,0.98710E+03_JPRB,0.11227E+04_JPRB /) |
1722 |
|
|
KA(:, 3,12, 8) = (/ & |
1723 |
|
|
& 0.11512E+04_JPRB,0.10116E+04_JPRB,0.87205E+03_JPRB,0.73251E+03_JPRB,0.59502E+03_JPRB, & |
1724 |
|
✗ |
& 0.71744E+03_JPRB,0.85192E+03_JPRB,0.98700E+03_JPRB,0.11227E+04_JPRB /) |
1725 |
|
|
KA(:, 4,12, 8) = (/ & |
1726 |
|
|
& 0.11431E+04_JPRB,0.10045E+04_JPRB,0.86598E+03_JPRB,0.72746E+03_JPRB,0.59151E+03_JPRB, & |
1727 |
|
✗ |
& 0.71699E+03_JPRB,0.85153E+03_JPRB,0.98663E+03_JPRB,0.11224E+04_JPRB /) |
1728 |
|
|
KA(:, 5,12, 8) = (/ & |
1729 |
|
|
& 0.11360E+04_JPRB,0.99832E+03_JPRB,0.86067E+03_JPRB,0.72302E+03_JPRB,0.58868E+03_JPRB, & |
1730 |
|
✗ |
& 0.71636E+03_JPRB,0.85092E+03_JPRB,0.98606E+03_JPRB,0.11218E+04_JPRB /) |
1731 |
|
|
KA(:, 1,13, 8) = (/ & |
1732 |
|
|
& 0.11451E+04_JPRB,0.10063E+04_JPRB,0.86748E+03_JPRB,0.72871E+03_JPRB,0.59258E+03_JPRB, & |
1733 |
|
✗ |
& 0.71726E+03_JPRB,0.85187E+03_JPRB,0.98696E+03_JPRB,0.11225E+04_JPRB /) |
1734 |
|
|
KA(:, 2,13, 8) = (/ & |
1735 |
|
|
& 0.11363E+04_JPRB,0.99855E+03_JPRB,0.86085E+03_JPRB,0.72320E+03_JPRB,0.58896E+03_JPRB, & |
1736 |
|
✗ |
& 0.71729E+03_JPRB,0.85183E+03_JPRB,0.98699E+03_JPRB,0.11227E+04_JPRB /) |
1737 |
|
|
KA(:, 3,13, 8) = (/ & |
1738 |
|
|
& 0.11287E+04_JPRB,0.99189E+03_JPRB,0.85515E+03_JPRB,0.71842E+03_JPRB,0.58585E+03_JPRB, & |
1739 |
|
✗ |
& 0.71710E+03_JPRB,0.85169E+03_JPRB,0.98691E+03_JPRB,0.11227E+04_JPRB /) |
1740 |
|
|
KA(:, 4,13, 8) = (/ & |
1741 |
|
|
& 0.11220E+04_JPRB,0.98609E+03_JPRB,0.85017E+03_JPRB,0.71429E+03_JPRB,0.58380E+03_JPRB, & |
1742 |
|
✗ |
& 0.71668E+03_JPRB,0.85133E+03_JPRB,0.98660E+03_JPRB,0.11224E+04_JPRB /) |
1743 |
|
|
KA(:, 5,13, 8) = (/ & |
1744 |
|
|
& 0.11162E+04_JPRB,0.98101E+03_JPRB,0.84582E+03_JPRB,0.71065E+03_JPRB,0.58234E+03_JPRB, & |
1745 |
|
✗ |
& 0.71606E+03_JPRB,0.85074E+03_JPRB,0.98601E+03_JPRB,0.11218E+04_JPRB /) |
1746 |
|
|
KA(:, 1, 1, 9) = (/ & |
1747 |
|
|
& 0.19571E+04_JPRB,0.17167E+04_JPRB,0.14761E+04_JPRB,0.12357E+04_JPRB,0.99528E+03_JPRB, & |
1748 |
|
✗ |
& 0.75488E+03_JPRB,0.87315E+03_JPRB,0.10086E+04_JPRB,0.11441E+04_JPRB /) |
1749 |
|
|
KA(:, 2, 1, 9) = (/ & |
1750 |
|
|
& 0.19076E+04_JPRB,0.16733E+04_JPRB,0.14390E+04_JPRB,0.12047E+04_JPRB,0.97044E+03_JPRB, & |
1751 |
|
✗ |
& 0.73841E+03_JPRB,0.87146E+03_JPRB,0.10070E+04_JPRB,0.11425E+04_JPRB /) |
1752 |
|
|
KA(:, 3, 1, 9) = (/ & |
1753 |
|
|
& 0.18630E+04_JPRB,0.16343E+04_JPRB,0.14056E+04_JPRB,0.11769E+04_JPRB,0.94822E+03_JPRB, & |
1754 |
|
✗ |
& 0.73460E+03_JPRB,0.86967E+03_JPRB,0.10052E+04_JPRB,0.11407E+04_JPRB /) |
1755 |
|
|
KA(:, 4, 1, 9) = (/ & |
1756 |
|
|
& 0.18229E+04_JPRB,0.15991E+04_JPRB,0.13754E+04_JPRB,0.11517E+04_JPRB,0.92811E+03_JPRB, & |
1757 |
|
✗ |
& 0.73269E+03_JPRB,0.86788E+03_JPRB,0.10033E+04_JPRB,0.11387E+04_JPRB /) |
1758 |
|
|
KA(:, 5, 1, 9) = (/ & |
1759 |
|
|
& 0.17864E+04_JPRB,0.15672E+04_JPRB,0.13481E+04_JPRB,0.11289E+04_JPRB,0.90984E+03_JPRB, & |
1760 |
|
✗ |
& 0.73091E+03_JPRB,0.86616E+03_JPRB,0.10016E+04_JPRB,0.11368E+04_JPRB /) |
1761 |
|
|
KA(:, 1, 2, 9) = (/ & |
1762 |
|
|
& 0.18080E+04_JPRB,0.15862E+04_JPRB,0.13643E+04_JPRB,0.11425E+04_JPRB,0.92072E+03_JPRB, & |
1763 |
|
✗ |
& 0.73694E+03_JPRB,0.87246E+03_JPRB,0.10086E+04_JPRB,0.11448E+04_JPRB /) |
1764 |
|
|
KA(:, 2, 2, 9) = (/ & |
1765 |
|
|
& 0.17655E+04_JPRB,0.15491E+04_JPRB,0.13324E+04_JPRB,0.11159E+04_JPRB,0.89943E+03_JPRB, & |
1766 |
|
✗ |
& 0.73525E+03_JPRB,0.87092E+03_JPRB,0.10070E+04_JPRB,0.11432E+04_JPRB /) |
1767 |
|
|
KA(:, 3, 2, 9) = (/ & |
1768 |
|
|
& 0.17274E+04_JPRB,0.15157E+04_JPRB,0.13039E+04_JPRB,0.10921E+04_JPRB,0.88039E+03_JPRB, & |
1769 |
|
✗ |
& 0.73343E+03_JPRB,0.86922E+03_JPRB,0.10053E+04_JPRB,0.11415E+04_JPRB /) |
1770 |
|
|
KA(:, 4, 2, 9) = (/ & |
1771 |
|
|
& 0.16931E+04_JPRB,0.14856E+04_JPRB,0.12781E+04_JPRB,0.10706E+04_JPRB,0.86326E+03_JPRB, & |
1772 |
|
✗ |
& 0.73166E+03_JPRB,0.86752E+03_JPRB,0.10036E+04_JPRB,0.11395E+04_JPRB /) |
1773 |
|
|
KA(:, 5, 2, 9) = (/ & |
1774 |
|
|
& 0.16621E+04_JPRB,0.14584E+04_JPRB,0.12549E+04_JPRB,0.10512E+04_JPRB,0.84768E+03_JPRB, & |
1775 |
|
✗ |
& 0.73000E+03_JPRB,0.86583E+03_JPRB,0.10018E+04_JPRB,0.11376E+04_JPRB /) |
1776 |
|
|
KA(:, 1, 3, 9) = (/ & |
1777 |
|
|
& 0.16908E+04_JPRB,0.14837E+04_JPRB,0.12764E+04_JPRB,0.10692E+04_JPRB,0.86209E+03_JPRB, & |
1778 |
|
✗ |
& 0.73591E+03_JPRB,0.87213E+03_JPRB,0.10088E+04_JPRB,0.11456E+04_JPRB /) |
1779 |
|
|
KA(:, 2, 3, 9) = (/ & |
1780 |
|
|
& 0.16535E+04_JPRB,0.14509E+04_JPRB,0.12484E+04_JPRB,0.10459E+04_JPRB,0.84339E+03_JPRB, & |
1781 |
|
✗ |
& 0.73450E+03_JPRB,0.87080E+03_JPRB,0.10075E+04_JPRB,0.11442E+04_JPRB /) |
1782 |
|
|
KA(:, 3, 3, 9) = (/ & |
1783 |
|
|
& 0.16202E+04_JPRB,0.14218E+04_JPRB,0.12234E+04_JPRB,0.10251E+04_JPRB,0.82680E+03_JPRB, & |
1784 |
|
✗ |
& 0.73291E+03_JPRB,0.86926E+03_JPRB,0.10059E+04_JPRB,0.11426E+04_JPRB /) |
1785 |
|
|
KA(:, 4, 3, 9) = (/ & |
1786 |
|
|
& 0.15902E+04_JPRB,0.13956E+04_JPRB,0.12011E+04_JPRB,0.10064E+04_JPRB,0.81183E+03_JPRB, & |
1787 |
|
✗ |
& 0.73120E+03_JPRB,0.86761E+03_JPRB,0.10042E+04_JPRB,0.11407E+04_JPRB /) |
1788 |
|
|
KA(:, 5, 3, 9) = (/ & |
1789 |
|
|
& 0.15632E+04_JPRB,0.13720E+04_JPRB,0.11808E+04_JPRB,0.98952E+03_JPRB,0.79832E+03_JPRB, & |
1790 |
|
✗ |
& 0.72957E+03_JPRB,0.86594E+03_JPRB,0.10024E+04_JPRB,0.11387E+04_JPRB /) |
1791 |
|
|
KA(:, 1, 4, 9) = (/ & |
1792 |
|
|
& 0.15935E+04_JPRB,0.13985E+04_JPRB,0.12035E+04_JPRB,0.10084E+04_JPRB,0.81344E+03_JPRB, & |
1793 |
|
✗ |
& 0.73513E+03_JPRB,0.87195E+03_JPRB,0.10092E+04_JPRB,0.11463E+04_JPRB /) |
1794 |
|
|
KA(:, 2, 4, 9) = (/ & |
1795 |
|
|
& 0.15605E+04_JPRB,0.13697E+04_JPRB,0.11787E+04_JPRB,0.98782E+03_JPRB,0.79694E+03_JPRB, & |
1796 |
|
✗ |
& 0.73394E+03_JPRB,0.87080E+03_JPRB,0.10079E+04_JPRB,0.11451E+04_JPRB /) |
1797 |
|
|
KA(:, 3, 4, 9) = (/ & |
1798 |
|
|
& 0.15313E+04_JPRB,0.13439E+04_JPRB,0.11567E+04_JPRB,0.96950E+03_JPRB,0.78229E+03_JPRB, & |
1799 |
|
✗ |
& 0.73257E+03_JPRB,0.86942E+03_JPRB,0.10065E+04_JPRB,0.11436E+04_JPRB /) |
1800 |
|
|
KA(:, 4, 4, 9) = (/ & |
1801 |
|
|
& 0.15050E+04_JPRB,0.13210E+04_JPRB,0.11371E+04_JPRB,0.95308E+03_JPRB,0.76922E+03_JPRB, & |
1802 |
|
✗ |
& 0.73104E+03_JPRB,0.86787E+03_JPRB,0.10049E+04_JPRB,0.11419E+04_JPRB /) |
1803 |
|
|
KA(:, 5, 4, 9) = (/ & |
1804 |
|
|
& 0.14814E+04_JPRB,0.13003E+04_JPRB,0.11193E+04_JPRB,0.93833E+03_JPRB,0.75745E+03_JPRB, & |
1805 |
|
✗ |
& 0.72946E+03_JPRB,0.86622E+03_JPRB,0.10032E+04_JPRB,0.11400E+04_JPRB /) |
1806 |
|
|
KA(:, 1, 5, 9) = (/ & |
1807 |
|
|
& 0.15109E+04_JPRB,0.13262E+04_JPRB,0.11415E+04_JPRB,0.95685E+03_JPRB,0.77217E+03_JPRB, & |
1808 |
|
✗ |
& 0.73443E+03_JPRB,0.87177E+03_JPRB,0.10094E+04_JPRB,0.11470E+04_JPRB /) |
1809 |
|
|
KA(:, 2, 5, 9) = (/ & |
1810 |
|
|
& 0.14817E+04_JPRB,0.13007E+04_JPRB,0.11196E+04_JPRB,0.93852E+03_JPRB,0.75755E+03_JPRB, & |
1811 |
|
✗ |
& 0.73343E+03_JPRB,0.87078E+03_JPRB,0.10083E+04_JPRB,0.11459E+04_JPRB /) |
1812 |
|
|
KA(:, 3, 5, 9) = (/ & |
1813 |
|
|
& 0.14559E+04_JPRB,0.12780E+04_JPRB,0.11003E+04_JPRB,0.92240E+03_JPRB,0.74463E+03_JPRB, & |
1814 |
|
✗ |
& 0.73229E+03_JPRB,0.86958E+03_JPRB,0.10071E+04_JPRB,0.11446E+04_JPRB /) |
1815 |
|
|
KA(:, 4, 5, 9) = (/ & |
1816 |
|
|
& 0.14329E+04_JPRB,0.12579E+04_JPRB,0.10829E+04_JPRB,0.90802E+03_JPRB,0.73310E+03_JPRB, & |
1817 |
|
✗ |
& 0.73095E+03_JPRB,0.86817E+03_JPRB,0.10056E+04_JPRB,0.11430E+04_JPRB /) |
1818 |
|
|
KA(:, 5, 5, 9) = (/ & |
1819 |
|
|
& 0.14122E+04_JPRB,0.12398E+04_JPRB,0.10675E+04_JPRB,0.89511E+03_JPRB,0.72281E+03_JPRB, & |
1820 |
|
✗ |
& 0.72946E+03_JPRB,0.86664E+03_JPRB,0.10039E+04_JPRB,0.11412E+04_JPRB /) |
1821 |
|
|
KA(:, 1, 6, 9) = (/ & |
1822 |
|
|
& 0.14417E+04_JPRB,0.12655E+04_JPRB,0.10896E+04_JPRB,0.91348E+03_JPRB,0.73747E+03_JPRB, & |
1823 |
|
✗ |
& 0.73386E+03_JPRB,0.87165E+03_JPRB,0.10096E+04_JPRB,0.11475E+04_JPRB /) |
1824 |
|
|
KA(:, 2, 6, 9) = (/ & |
1825 |
|
|
& 0.14156E+04_JPRB,0.12429E+04_JPRB,0.10700E+04_JPRB,0.89725E+03_JPRB,0.72457E+03_JPRB, & |
1826 |
|
✗ |
& 0.73304E+03_JPRB,0.87078E+03_JPRB,0.10087E+04_JPRB,0.11466E+04_JPRB /) |
1827 |
|
|
KA(:, 3, 6, 9) = (/ & |
1828 |
|
|
& 0.13928E+04_JPRB,0.12228E+04_JPRB,0.10529E+04_JPRB,0.88300E+03_JPRB,0.71308E+03_JPRB, & |
1829 |
|
✗ |
& 0.73207E+03_JPRB,0.86977E+03_JPRB,0.10076E+04_JPRB,0.11455E+04_JPRB /) |
1830 |
|
|
KA(:, 4, 6, 9) = (/ & |
1831 |
|
|
& 0.13725E+04_JPRB,0.12051E+04_JPRB,0.10377E+04_JPRB,0.87029E+03_JPRB,0.70290E+03_JPRB, & |
1832 |
|
✗ |
& 0.73093E+03_JPRB,0.86853E+03_JPRB,0.10063E+04_JPRB,0.11441E+04_JPRB /) |
1833 |
|
|
KA(:, 5, 6, 9) = (/ & |
1834 |
|
|
& 0.13544E+04_JPRB,0.11892E+04_JPRB,0.10241E+04_JPRB,0.85897E+03_JPRB,0.69390E+03_JPRB, & |
1835 |
|
✗ |
& 0.72961E+03_JPRB,0.86706E+03_JPRB,0.10048E+04_JPRB,0.11424E+04_JPRB /) |
1836 |
|
|
KA(:, 1, 7, 9) = (/ & |
1837 |
|
|
& 0.13826E+04_JPRB,0.12140E+04_JPRB,0.10453E+04_JPRB,0.87664E+03_JPRB,0.70803E+03_JPRB, & |
1838 |
|
✗ |
& 0.73339E+03_JPRB,0.87155E+03_JPRB,0.10098E+04_JPRB,0.11480E+04_JPRB /) |
1839 |
|
|
KA(:, 2, 7, 9) = (/ & |
1840 |
|
|
& 0.13594E+04_JPRB,0.11937E+04_JPRB,0.10279E+04_JPRB,0.86216E+03_JPRB,0.69645E+03_JPRB, & |
1841 |
|
✗ |
& 0.73269E+03_JPRB,0.87079E+03_JPRB,0.10090E+04_JPRB,0.11472E+04_JPRB /) |
1842 |
|
|
KA(:, 3, 7, 9) = (/ & |
1843 |
|
|
& 0.13392E+04_JPRB,0.11759E+04_JPRB,0.10127E+04_JPRB,0.84953E+03_JPRB,0.68632E+03_JPRB, & |
1844 |
|
✗ |
& 0.73188E+03_JPRB,0.86990E+03_JPRB,0.10081E+04_JPRB,0.11462E+04_JPRB /) |
1845 |
|
|
KA(:, 4, 7, 9) = (/ & |
1846 |
|
|
& 0.13213E+04_JPRB,0.11603E+04_JPRB,0.99928E+03_JPRB,0.83829E+03_JPRB,0.67737E+03_JPRB, & |
1847 |
|
✗ |
& 0.73090E+03_JPRB,0.86884E+03_JPRB,0.10069E+04_JPRB,0.11450E+04_JPRB /) |
1848 |
|
|
KA(:, 5, 7, 9) = (/ & |
1849 |
|
|
& 0.13054E+04_JPRB,0.11464E+04_JPRB,0.98739E+03_JPRB,0.82837E+03_JPRB,0.66946E+03_JPRB, & |
1850 |
|
✗ |
& 0.72975E+03_JPRB,0.86756E+03_JPRB,0.10055E+04_JPRB,0.11435E+04_JPRB /) |
1851 |
|
|
KA(:, 1, 8, 9) = (/ & |
1852 |
|
|
& 0.13322E+04_JPRB,0.11698E+04_JPRB,0.10074E+04_JPRB,0.84511E+03_JPRB,0.68280E+03_JPRB, & |
1853 |
|
✗ |
& 0.73302E+03_JPRB,0.87145E+03_JPRB,0.10099E+04_JPRB,0.11483E+04_JPRB /) |
1854 |
|
|
KA(:, 2, 8, 9) = (/ & |
1855 |
|
|
& 0.13116E+04_JPRB,0.11517E+04_JPRB,0.99199E+03_JPRB,0.83221E+03_JPRB,0.67250E+03_JPRB, & |
1856 |
|
✗ |
& 0.73244E+03_JPRB,0.87079E+03_JPRB,0.10093E+04_JPRB,0.11477E+04_JPRB /) |
1857 |
|
|
KA(:, 3, 8, 9) = (/ & |
1858 |
|
|
& 0.12937E+04_JPRB,0.11360E+04_JPRB,0.97848E+03_JPRB,0.82097E+03_JPRB,0.66349E+03_JPRB, & |
1859 |
|
✗ |
& 0.73170E+03_JPRB,0.87002E+03_JPRB,0.10085E+04_JPRB,0.11469E+04_JPRB /) |
1860 |
|
|
KA(:, 4, 8, 9) = (/ & |
1861 |
|
|
& 0.12778E+04_JPRB,0.11223E+04_JPRB,0.96666E+03_JPRB,0.81113E+03_JPRB,0.65562E+03_JPRB, & |
1862 |
|
✗ |
& 0.73087E+03_JPRB,0.86909E+03_JPRB,0.10075E+04_JPRB,0.11458E+04_JPRB /) |
1863 |
|
|
KA(:, 5, 8, 9) = (/ & |
1864 |
|
|
& 0.12639E+04_JPRB,0.11101E+04_JPRB,0.95620E+03_JPRB,0.80244E+03_JPRB,0.64865E+03_JPRB, & |
1865 |
|
✗ |
& 0.72985E+03_JPRB,0.86796E+03_JPRB,0.10062E+04_JPRB,0.11444E+04_JPRB /) |
1866 |
|
|
KA(:, 1, 9, 9) = (/ & |
1867 |
|
|
& 0.12892E+04_JPRB,0.11322E+04_JPRB,0.97520E+03_JPRB,0.81821E+03_JPRB,0.66134E+03_JPRB, & |
1868 |
|
✗ |
& 0.73274E+03_JPRB,0.87135E+03_JPRB,0.10099E+04_JPRB,0.11485E+04_JPRB /) |
1869 |
|
|
KA(:, 2, 9, 9) = (/ & |
1870 |
|
|
& 0.12708E+04_JPRB,0.11161E+04_JPRB,0.96140E+03_JPRB,0.80674E+03_JPRB,0.65213E+03_JPRB, & |
1871 |
|
✗ |
& 0.73213E+03_JPRB,0.87079E+03_JPRB,0.10095E+04_JPRB,0.11481E+04_JPRB /) |
1872 |
|
|
KA(:, 3, 9, 9) = (/ & |
1873 |
|
|
& 0.12548E+04_JPRB,0.11022E+04_JPRB,0.94949E+03_JPRB,0.79681E+03_JPRB,0.64421E+03_JPRB, & |
1874 |
|
✗ |
& 0.73152E+03_JPRB,0.87011E+03_JPRB,0.10088E+04_JPRB,0.11474E+04_JPRB /) |
1875 |
|
|
|
1876 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART6',1,ZHOOK_HANDLE) |
1877 |
|
✗ |
END SUBROUTINE PART6 |
1878 |
|
|
|
1879 |
|
|
|
1880 |
|
✗ |
SUBROUTINE PART7 |
1881 |
|
|
|
1882 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1883 |
|
✗ |
IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART7',0,ZHOOK_HANDLE) |
1884 |
|
|
|
1885 |
|
|
|
1886 |
|
|
KA(:, 4, 9, 9) = (/ & |
1887 |
|
|
& 0.12410E+04_JPRB,0.10900E+04_JPRB,0.93905E+03_JPRB,0.78808E+03_JPRB,0.63726E+03_JPRB, & |
1888 |
|
✗ |
& 0.73083E+03_JPRB,0.86928E+03_JPRB,0.10079E+04_JPRB,0.11464E+04_JPRB /) |
1889 |
|
|
KA(:, 5, 9, 9) = (/ & |
1890 |
|
|
& 0.12287E+04_JPRB,0.10793E+04_JPRB,0.92981E+03_JPRB,0.78042E+03_JPRB,0.63106E+03_JPRB, & |
1891 |
|
✗ |
& 0.72995E+03_JPRB,0.86831E+03_JPRB,0.10068E+04_JPRB,0.11452E+04_JPRB /) |
1892 |
|
|
KA(:, 1,10, 9) = (/ & |
1893 |
|
|
& 0.12511E+04_JPRB,0.10989E+04_JPRB,0.94665E+03_JPRB,0.79449E+03_JPRB,0.64227E+03_JPRB, & |
1894 |
|
✗ |
& 0.73248E+03_JPRB,0.87121E+03_JPRB,0.10099E+04_JPRB,0.11487E+04_JPRB /) |
1895 |
|
|
KA(:, 2,10, 9) = (/ & |
1896 |
|
|
& 0.12350E+04_JPRB,0.10848E+04_JPRB,0.93449E+03_JPRB,0.78435E+03_JPRB,0.63416E+03_JPRB, & |
1897 |
|
✗ |
& 0.73188E+03_JPRB,0.87073E+03_JPRB,0.10095E+04_JPRB,0.11483E+04_JPRB /) |
1898 |
|
|
KA(:, 3,10, 9) = (/ & |
1899 |
|
|
& 0.12209E+04_JPRB,0.10725E+04_JPRB,0.92407E+03_JPRB,0.77565E+03_JPRB,0.62724E+03_JPRB, & |
1900 |
|
✗ |
& 0.73132E+03_JPRB,0.87012E+03_JPRB,0.10091E+04_JPRB,0.11477E+04_JPRB /) |
1901 |
|
|
KA(:, 4,10, 9) = (/ & |
1902 |
|
|
& 0.12088E+04_JPRB,0.10618E+04_JPRB,0.91493E+03_JPRB,0.76801E+03_JPRB,0.62113E+03_JPRB, & |
1903 |
|
✗ |
& 0.73072E+03_JPRB,0.86943E+03_JPRB,0.10082E+04_JPRB,0.11469E+04_JPRB /) |
1904 |
|
|
KA(:, 5,10, 9) = (/ & |
1905 |
|
|
& 0.11981E+04_JPRB,0.10526E+04_JPRB,0.90691E+03_JPRB,0.76134E+03_JPRB,0.61583E+03_JPRB, & |
1906 |
|
✗ |
& 0.72997E+03_JPRB,0.86853E+03_JPRB,0.10072E+04_JPRB,0.11458E+04_JPRB /) |
1907 |
|
|
KA(:, 1,11, 9) = (/ & |
1908 |
|
|
& 0.12119E+04_JPRB,0.10646E+04_JPRB,0.91723E+03_JPRB,0.76995E+03_JPRB,0.62265E+03_JPRB, & |
1909 |
|
✗ |
& 0.73201E+03_JPRB,0.87093E+03_JPRB,0.10098E+04_JPRB,0.11487E+04_JPRB /) |
1910 |
|
|
KA(:, 2,11, 9) = (/ & |
1911 |
|
|
& 0.11986E+04_JPRB,0.10529E+04_JPRB,0.90727E+03_JPRB,0.76161E+03_JPRB,0.61603E+03_JPRB, & |
1912 |
|
✗ |
& 0.73147E+03_JPRB,0.87046E+03_JPRB,0.10094E+04_JPRB,0.11483E+04_JPRB /) |
1913 |
|
|
KA(:, 3,11, 9) = (/ & |
1914 |
|
|
& 0.11871E+04_JPRB,0.10429E+04_JPRB,0.89865E+03_JPRB,0.75449E+03_JPRB,0.61031E+03_JPRB, & |
1915 |
|
✗ |
& 0.73094E+03_JPRB,0.86988E+03_JPRB,0.10088E+04_JPRB,0.11477E+04_JPRB /) |
1916 |
|
|
KA(:, 4,11, 9) = (/ & |
1917 |
|
|
& 0.11772E+04_JPRB,0.10342E+04_JPRB,0.89122E+03_JPRB,0.74824E+03_JPRB,0.60537E+03_JPRB, & |
1918 |
|
✗ |
& 0.73035E+03_JPRB,0.86918E+03_JPRB,0.10081E+04_JPRB,0.11469E+04_JPRB /) |
1919 |
|
|
KA(:, 5,11, 9) = (/ & |
1920 |
|
|
& 0.11684E+04_JPRB,0.10265E+04_JPRB,0.88467E+03_JPRB,0.74278E+03_JPRB,0.60127E+03_JPRB, & |
1921 |
|
✗ |
& 0.72963E+03_JPRB,0.86831E+03_JPRB,0.10071E+04_JPRB,0.11458E+04_JPRB /) |
1922 |
|
|
KA(:, 1,12, 9) = (/ & |
1923 |
|
|
& 0.11796E+04_JPRB,0.10363E+04_JPRB,0.89308E+03_JPRB,0.74980E+03_JPRB,0.60664E+03_JPRB, & |
1924 |
|
✗ |
& 0.73158E+03_JPRB,0.87066E+03_JPRB,0.10097E+04_JPRB,0.11487E+04_JPRB /) |
1925 |
|
|
KA(:, 2,12, 9) = (/ & |
1926 |
|
|
& 0.11688E+04_JPRB,0.10268E+04_JPRB,0.88492E+03_JPRB,0.74297E+03_JPRB,0.60173E+03_JPRB, & |
1927 |
|
✗ |
& 0.73111E+03_JPRB,0.87023E+03_JPRB,0.10093E+04_JPRB,0.11483E+04_JPRB /) |
1928 |
|
|
KA(:, 3,12, 9) = (/ & |
1929 |
|
|
& 0.11594E+04_JPRB,0.10186E+04_JPRB,0.87787E+03_JPRB,0.73715E+03_JPRB,0.59711E+03_JPRB, & |
1930 |
|
✗ |
& 0.73061E+03_JPRB,0.86968E+03_JPRB,0.10088E+04_JPRB,0.11478E+04_JPRB /) |
1931 |
|
|
KA(:, 4,12, 9) = (/ & |
1932 |
|
|
& 0.11512E+04_JPRB,0.10115E+04_JPRB,0.87180E+03_JPRB,0.73203E+03_JPRB,0.59373E+03_JPRB, & |
1933 |
|
✗ |
& 0.73004E+03_JPRB,0.86900E+03_JPRB,0.10080E+04_JPRB,0.11469E+04_JPRB /) |
1934 |
|
|
KA(:, 5,12, 9) = (/ & |
1935 |
|
|
& 0.11441E+04_JPRB,0.10053E+04_JPRB,0.86640E+03_JPRB,0.72756E+03_JPRB,0.59149E+03_JPRB, & |
1936 |
|
✗ |
& 0.72934E+03_JPRB,0.86813E+03_JPRB,0.10070E+04_JPRB,0.11458E+04_JPRB /) |
1937 |
|
|
KA(:, 1,13, 9) = (/ & |
1938 |
|
|
& 0.11533E+04_JPRB,0.10132E+04_JPRB,0.87330E+03_JPRB,0.73334E+03_JPRB,0.59476E+03_JPRB, & |
1939 |
|
✗ |
& 0.73130E+03_JPRB,0.87046E+03_JPRB,0.10096E+04_JPRB,0.11487E+04_JPRB /) |
1940 |
|
|
KA(:, 2,13, 9) = (/ & |
1941 |
|
|
& 0.11444E+04_JPRB,0.10055E+04_JPRB,0.86659E+03_JPRB,0.72770E+03_JPRB,0.59240E+03_JPRB, & |
1942 |
|
✗ |
& 0.73084E+03_JPRB,0.87005E+03_JPRB,0.10092E+04_JPRB,0.11483E+04_JPRB /) |
1943 |
|
|
KA(:, 3,13, 9) = (/ & |
1944 |
|
|
& 0.11367E+04_JPRB,0.99882E+03_JPRB,0.86084E+03_JPRB,0.72297E+03_JPRB,0.59186E+03_JPRB, & |
1945 |
|
✗ |
& 0.73036E+03_JPRB,0.86950E+03_JPRB,0.10087E+04_JPRB,0.11478E+04_JPRB /) |
1946 |
|
|
KA(:, 4,13, 9) = (/ & |
1947 |
|
|
& 0.11300E+04_JPRB,0.99294E+03_JPRB,0.85585E+03_JPRB,0.71880E+03_JPRB,0.59143E+03_JPRB, & |
1948 |
|
✗ |
& 0.72979E+03_JPRB,0.86883E+03_JPRB,0.10079E+04_JPRB,0.11469E+04_JPRB /) |
1949 |
|
|
KA(:, 5,13, 9) = (/ & |
1950 |
|
|
& 0.11242E+04_JPRB,0.98788E+03_JPRB,0.85146E+03_JPRB,0.71512E+03_JPRB,0.59082E+03_JPRB, & |
1951 |
|
✗ |
& 0.72910E+03_JPRB,0.86797E+03_JPRB,0.10069E+04_JPRB,0.11459E+04_JPRB /) |
1952 |
|
|
KA(:, 1, 1,10) = (/ & |
1953 |
|
|
& 0.19609E+04_JPRB,0.17196E+04_JPRB,0.14787E+04_JPRB,0.12373E+04_JPRB,0.99636E+03_JPRB, & |
1954 |
|
✗ |
& 0.75577E+03_JPRB,0.88158E+03_JPRB,0.10175E+04_JPRB,0.11538E+04_JPRB /) |
1955 |
|
|
KA(:, 2, 1,10) = (/ & |
1956 |
|
|
& 0.19102E+04_JPRB,0.16765E+04_JPRB,0.14403E+04_JPRB,0.12063E+04_JPRB,0.97232E+03_JPRB, & |
1957 |
|
✗ |
& 0.74406E+03_JPRB,0.87986E+03_JPRB,0.10152E+04_JPRB,0.11513E+04_JPRB /) |
1958 |
|
|
KA(:, 3, 1,10) = (/ & |
1959 |
|
|
& 0.18658E+04_JPRB,0.16364E+04_JPRB,0.14075E+04_JPRB,0.11783E+04_JPRB,0.94916E+03_JPRB, & |
1960 |
|
✗ |
& 0.74249E+03_JPRB,0.87815E+03_JPRB,0.10135E+04_JPRB,0.11491E+04_JPRB /) |
1961 |
|
|
KA(:, 4, 1,10) = (/ & |
1962 |
|
|
& 0.18250E+04_JPRB,0.16014E+04_JPRB,0.13778E+04_JPRB,0.11533E+04_JPRB,0.92945E+03_JPRB, & |
1963 |
|
✗ |
& 0.74050E+03_JPRB,0.87640E+03_JPRB,0.10114E+04_JPRB,0.11477E+04_JPRB /) |
1964 |
|
|
KA(:, 5, 1,10) = (/ & |
1965 |
|
|
& 0.17888E+04_JPRB,0.15692E+04_JPRB,0.13504E+04_JPRB,0.11313E+04_JPRB,0.91134E+03_JPRB, & |
1966 |
|
✗ |
& 0.73837E+03_JPRB,0.87432E+03_JPRB,0.10096E+04_JPRB,0.11467E+04_JPRB /) |
1967 |
|
|
KA(:, 1, 2,10) = (/ & |
1968 |
|
|
& 0.18108E+04_JPRB,0.15879E+04_JPRB,0.13673E+04_JPRB,0.11437E+04_JPRB,0.92213E+03_JPRB, & |
1969 |
|
✗ |
& 0.74428E+03_JPRB,0.88077E+03_JPRB,0.10175E+04_JPRB,0.11547E+04_JPRB /) |
1970 |
|
|
KA(:, 2, 2,10) = (/ |