GCC Code Coverage Report


Directory: ./
File: rad/srtm_kgb19.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 1924 0.0%
Branches: 0 3738 0.0%

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