GCC Code Coverage Report


Directory: ./
File: rad/srtm_kgb24.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 1935 0.0%
Branches: 0 3756 0.0%

Line Branch Exec Source
1 !OCL SCALAR
2 !pgi$r opt=0
3 SUBROUTINE SRTM_KGB24
4
5 ! Originally by J.Delamere, Atmospheric & Environmental Research.
6 ! Revision: 2.4
7 ! BAND 24: 12850-16000 cm-1 (low - H2O,O2; high - O2)
8 ! Reformatted for F90 by JJMorcrette, ECMWF
9 ! R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
10
11 ! ------------------------------------------------------------------
12
13 USE PARKIND1 ,ONLY : JPRB
14 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
15
16 USE YOESRTA24, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYLA, RAYLB &
17 & , ABSO3A, ABSO3B, STRRAT, LAYREFFR
18
19 ! ------------------------------------------------------------------
20
21 IMPLICIT NONE
22
23 ! KURUCZ
24 REAL(KIND=JPRB) :: ZHOOK_HANDLE
25
26 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24',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_KGB24',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_KGB24:PART1',0,ZHOOK_HANDLE)
57
58
59 SFLUXREF(:,1) = (/ &
60 & 34.3610_JPRB , 33.1240_JPRB, 31.3948_JPRB, 28.7248_JPRB, &
61 & 24.7884_JPRB , 21.4892_JPRB, 17.3972_JPRB, 13.7928_JPRB, &
62 & 9.54462_JPRB , 1.05002_JPRB,0.867332_JPRB,0.685753_JPRB, &
63 & 0.504718_JPRB,0.323112_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)
64 SFLUXREF(:,2) = (/ &
65 & 34.2367_JPRB , 32.4327_JPRB, 30.0863_JPRB, 28.2085_JPRB, &
66 & 25.6533_JPRB , 22.3412_JPRB, 18.3112_JPRB, 13.8521_JPRB, &
67 & 9.51035_JPRB , 1.04138_JPRB,0.863493_JPRB,0.682790_JPRB, &
68 & 0.504721_JPRB,0.323102_JPRB,0.122193_JPRB, 1.70288E-02_JPRB /)
69 SFLUXREF(:,3) = (/ &
70 & 34.1883_JPRB , 32.2479_JPRB, 30.2650_JPRB, 28.2914_JPRB, &
71 & 25.6626_JPRB , 22.3163_JPRB, 18.3327_JPRB, 13.8508_JPRB, &
72 & 9.49190_JPRB , 1.03672_JPRB,0.858272_JPRB,0.681485_JPRB, &
73 & 0.501363_JPRB,0.323110_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)
74 SFLUXREF(:,4) = (/ &
75 & 34.1365_JPRB , 32.2316_JPRB, 30.3325_JPRB, 28.3305_JPRB, &
76 & 25.6420_JPRB , 22.3223_JPRB, 18.3411_JPRB, 13.8471_JPRB, &
77 & 9.47492_JPRB , 1.03376_JPRB,0.855380_JPRB,0.679085_JPRB, &
78 & 0.497998_JPRB,0.323053_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)
79 SFLUXREF(:,5) = (/ &
80 & 34.0460_JPRB , 32.2795_JPRB, 30.4147_JPRB, 28.3123_JPRB, &
81 & 25.6438_JPRB , 22.3238_JPRB, 18.3441_JPRB, 13.8528_JPRB, &
82 & 9.45222_JPRB , 1.03058_JPRB,0.854037_JPRB,0.675554_JPRB, &
83 & 0.498344_JPRB,0.320072_JPRB,0.122193_JPRB, 1.70288E-02_JPRB /)
84 SFLUXREF(:,6) = (/ &
85 & 33.9909_JPRB , 32.3127_JPRB, 30.4854_JPRB, 28.3005_JPRB, &
86 & 25.6310_JPRB , 22.3294_JPRB, 18.3459_JPRB, 13.8488_JPRB, &
87 & 9.43336_JPRB , 1.02901_JPRB,0.852728_JPRB,0.672322_JPRB, &
88 & 0.498056_JPRB,0.317753_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)
89 SFLUXREF(:,7) = (/ &
90 & 33.9225_JPRB , 32.4097_JPRB, 30.5125_JPRB, 28.2810_JPRB, &
91 & 25.6387_JPRB , 22.3080_JPRB, 18.3715_JPRB, 13.8248_JPRB, &
92 & 9.41834_JPRB , 1.02735_JPRB,0.850807_JPRB,0.671379_JPRB, &
93 & 0.496975_JPRB,0.317158_JPRB,0.119297_JPRB, 1.70207E-02_JPRB /)
94 SFLUXREF(:,8) = (/ &
95 & 33.8940_JPRB , 32.4951_JPRB, 30.5494_JPRB, 28.2788_JPRB, &
96 & 25.5975_JPRB , 22.3225_JPRB, 18.3358_JPRB, 13.8199_JPRB, &
97 & 9.40283_JPRB , 1.02751_JPRB,0.850729_JPRB,0.670152_JPRB, &
98 & 0.494294_JPRB,0.315829_JPRB,0.116195_JPRB, 1.64138E-02_JPRB /)
99 SFLUXREF(:,9) = (/ &
100 & 34.6501_JPRB , 32.6690_JPRB, 30.2872_JPRB, 28.0955_JPRB, &
101 & 25.4662_JPRB , 22.1446_JPRB, 18.2754_JPRB, 13.7573_JPRB, &
102 & 9.36645_JPRB , 1.02356_JPRB,0.847154_JPRB,0.668519_JPRB, &
103 & 0.489186_JPRB,0.313790_JPRB,0.117074_JPRB, 1.60943E-02_JPRB /)
104
105 ! Rayleigh extinction coefficient at all v
106 RAYLA(:,1) = (/ &
107 & 1.28405E-07_JPRB,1.45501E-07_JPRB,1.67272E-07_JPRB,1.94856E-07_JPRB, &
108 & 2.15248E-07_JPRB,2.34920E-07_JPRB,2.48558E-07_JPRB,1.80004E-07_JPRB, &
109 & 1.46504E-07_JPRB,1.31355E-07_JPRB,1.33562E-07_JPRB,1.35618E-07_JPRB, &
110 & 1.22412E-07_JPRB,1.19842E-07_JPRB,1.19924E-07_JPRB,1.20264E-07_JPRB /)
111 RAYLA(:,2) = (/ &
112 & 1.41622E-07_JPRB,1.93436E-07_JPRB,2.25057E-07_JPRB,2.01025E-07_JPRB, &
113 & 1.85138E-07_JPRB,1.72672E-07_JPRB,1.64771E-07_JPRB,1.59312E-07_JPRB, &
114 & 1.44961E-07_JPRB,1.37448E-07_JPRB,1.37506E-07_JPRB,1.38081E-07_JPRB, &
115 & 1.22432E-07_JPRB,1.19844E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)
116 RAYLA(:,3) = (/ &
117 & 1.45382E-07_JPRB,1.97020E-07_JPRB,2.22781E-07_JPRB,1.96062E-07_JPRB, &
118 & 1.83495E-07_JPRB,1.72495E-07_JPRB,1.64910E-07_JPRB,1.58797E-07_JPRB, &
119 & 1.46208E-07_JPRB,1.42274E-07_JPRB,1.40445E-07_JPRB,1.39496E-07_JPRB, &
120 & 1.26940E-07_JPRB,1.19844E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)
121 RAYLA(:,4) = (/ &
122 & 1.48247E-07_JPRB,1.99958E-07_JPRB,2.18048E-07_JPRB,1.93896E-07_JPRB, &
123 & 1.83125E-07_JPRB,1.73244E-07_JPRB,1.64320E-07_JPRB,1.58298E-07_JPRB, &
124 & 1.48428E-07_JPRB,1.44769E-07_JPRB,1.43704E-07_JPRB,1.38498E-07_JPRB, &
125 & 1.31732E-07_JPRB,1.22299E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)
126 RAYLA(:,5) = (/ &
127 & 1.51343E-07_JPRB,1.99621E-07_JPRB,2.14563E-07_JPRB,1.93824E-07_JPRB, &
128 & 1.82992E-07_JPRB,1.73143E-07_JPRB,1.64587E-07_JPRB,1.57355E-07_JPRB, &
129 & 1.51198E-07_JPRB,1.46373E-07_JPRB,1.45438E-07_JPRB,1.38095E-07_JPRB, &
130 & 1.35026E-07_JPRB,1.27504E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)
131 RAYLA(:,6) = (/ &
132 & 1.54462E-07_JPRB,1.97610E-07_JPRB,2.11992E-07_JPRB,1.93831E-07_JPRB, &
133 & 1.83900E-07_JPRB,1.73125E-07_JPRB,1.64093E-07_JPRB,1.57651E-07_JPRB, &
134 & 1.53158E-07_JPRB,1.46843E-07_JPRB,1.44733E-07_JPRB,1.40611E-07_JPRB, &
135 & 1.37320E-07_JPRB,1.33932E-07_JPRB,1.20423E-07_JPRB,1.20287E-07_JPRB /)
136 RAYLA(:,7) = (/ &
137 & 1.59068E-07_JPRB,1.92757E-07_JPRB,2.09865E-07_JPRB,1.95132E-07_JPRB, &
138 & 1.83641E-07_JPRB,1.73778E-07_JPRB,1.63215E-07_JPRB,1.59462E-07_JPRB, &
139 & 1.54331E-07_JPRB,1.46177E-07_JPRB,1.45819E-07_JPRB,1.43177E-07_JPRB, &
140 & 1.39797E-07_JPRB,1.36780E-07_JPRB,1.33385E-07_JPRB,1.20287E-07_JPRB /)
141 RAYLA(:,8) = (/ &
142 & 1.62066E-07_JPRB,1.87529E-07_JPRB,2.07191E-07_JPRB,1.97788E-07_JPRB, &
143 & 1.84920E-07_JPRB,1.72951E-07_JPRB,1.65450E-07_JPRB,1.60344E-07_JPRB, &
144 & 1.54403E-07_JPRB,1.47679E-07_JPRB,1.47287E-07_JPRB,1.44951E-07_JPRB, &
145 & 1.42517E-07_JPRB,1.41107E-07_JPRB,1.48688E-07_JPRB,1.51127E-07_JPRB /)
146 RAYLA(:,9) = (/ &
147 & 1.19177E-07_JPRB,1.86522E-07_JPRB,2.20324E-07_JPRB,2.13543E-07_JPRB, &
148 & 1.92198E-07_JPRB,1.81641E-07_JPRB,1.70092E-07_JPRB,1.65072E-07_JPRB, &
149 & 1.59804E-07_JPRB,1.56745E-07_JPRB,1.51235E-07_JPRB,1.51400E-07_JPRB, &
150 & 1.49635E-07_JPRB,1.48056E-07_JPRB,1.49046E-07_JPRB,1.51010E-07_JPRB /)
151
152 RAYLB = (/ &
153 & 1.23766E-07_JPRB,1.40524E-07_JPRB,1.61610E-07_JPRB,1.83232E-07_JPRB, &
154 & 2.02951E-07_JPRB,2.21367E-07_JPRB,2.38367E-07_JPRB,2.53019E-07_JPRB, &
155 & 2.12202E-07_JPRB,1.36977E-07_JPRB,1.39118E-07_JPRB,1.37097E-07_JPRB, &
156 & 1.33223E-07_JPRB,1.38695E-07_JPRB,1.19868E-07_JPRB,1.20062E-07_JPRB /)
157
158 ABSO3A = (/ &
159 & 8.03067E-02_JPRB,0.180926_JPRB ,0.227484_JPRB ,0.168015_JPRB , &
160 & 0.138284_JPRB ,0.114537_JPRB ,9.50114E-02_JPRB,8.06816E-02_JPRB, &
161 & 6.76406E-02_JPRB,5.69802E-02_JPRB,5.63283E-02_JPRB,4.57592E-02_JPRB, &
162 & 4.21862E-02_JPRB,3.47949E-02_JPRB,2.65731E-02_JPRB,2.67628E-02_JPRB /)
163
164 ABSO3B = (/ &
165 & 2.94848E-02_JPRB,4.33642E-02_JPRB,6.70197E-02_JPRB,0.104990_JPRB , &
166 & 0.156180_JPRB ,0.214638_JPRB ,0.266281_JPRB ,0.317941_JPRB , &
167 & 0.355327_JPRB ,0.371241_JPRB ,0.374396_JPRB ,0.326847_JPRB , &
168 & 0.126497_JPRB ,6.95264E-02_JPRB,2.58175E-02_JPRB,2.52862E-02_JPRB /)
169
170 STRRAT = 0.124692_JPRB
171
172 LAYREFFR = 1
173
174 ! ------------------------------------------------------------------
175
176 ! The array KA contains absorption coefs at the 16 chosen g-values
177 ! for a range of pressure levels> ~100mb, temperatures, and binary
178 ! species parameters (see taumol.f for definition). The first
179 ! index in the array, JS, runs from 1 to 9, and corresponds to
180 ! different values of the binary species parameter. For instance,
181 ! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8,
182 ! JS = 3 corresponds to the parameter value 2/8, etc. The second index
183 ! in the array, JT, which runs from 1 to 5, corresponds to different
184 ! temperatures. More specifically, JT = 3 means that the data are for
185 ! the reference temperature TREF for this pressure level, JT = 2 refers
186 ! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
187 ! is for TREF+30. The third index, JP, runs from 1 to 13 and refers
188 ! to the JPth reference pressure level (see taumol.f for these levels
189 ! in mb). The fourth index, IG, goes from 1 to 16, and indicates
190 ! which g-interval the absorption coefficients are for.
191 ! -----------------------------------------------------------------
192
193 KA(:, 1, 1, 1) = (/ &
194 & 0.73110E-09_JPRB,0.95257E-08_JPRB,0.84454E-08_JPRB,0.69367E-08_JPRB,0.55267E-08_JPRB, &
195 & 0.41107E-08_JPRB,0.32800E-08_JPRB,0.33548E-08_JPRB,0.22111E-08_JPRB /)
196 KA(:, 2, 1, 1) = (/ &
197 & 0.71850E-09_JPRB,0.98856E-08_JPRB,0.88084E-08_JPRB,0.72442E-08_JPRB,0.57586E-08_JPRB, &
198 & 0.43475E-08_JPRB,0.34021E-08_JPRB,0.32425E-08_JPRB,0.21911E-08_JPRB /)
199 KA(:, 3, 1, 1) = (/ &
200 & 0.57048E-09_JPRB,0.11944E-07_JPRB,0.10693E-07_JPRB,0.91787E-08_JPRB,0.75423E-08_JPRB, &
201 & 0.56949E-08_JPRB,0.43124E-08_JPRB,0.42335E-08_JPRB,0.57788E-08_JPRB /)
202 KA(:, 4, 1, 1) = (/ &
203 & 0.45283E-09_JPRB,0.10517E-07_JPRB,0.93142E-08_JPRB,0.77267E-08_JPRB,0.61927E-08_JPRB, &
204 & 0.47485E-08_JPRB,0.34557E-08_JPRB,0.32691E-08_JPRB,0.21836E-08_JPRB /)
205 KA(:, 5, 1, 1) = (/ &
206 & 0.40037E-09_JPRB,0.10599E-07_JPRB,0.93529E-08_JPRB,0.78411E-08_JPRB,0.63421E-08_JPRB, &
207 & 0.49082E-08_JPRB,0.36312E-08_JPRB,0.32874E-08_JPRB,0.21861E-08_JPRB /)
208 KA(:, 1, 2, 1) = (/ &
209 & 0.77671E-09_JPRB,0.11163E-07_JPRB,0.95032E-08_JPRB,0.79805E-08_JPRB,0.60721E-08_JPRB, &
210 & 0.45440E-08_JPRB,0.31263E-08_JPRB,0.28631E-08_JPRB,0.19430E-08_JPRB /)
211 KA(:, 2, 2, 1) = (/ &
212 & 0.85527E-09_JPRB,0.11271E-07_JPRB,0.97269E-08_JPRB,0.82280E-08_JPRB,0.62706E-08_JPRB, &
213 & 0.47926E-08_JPRB,0.32802E-08_JPRB,0.28152E-08_JPRB,0.19155E-08_JPRB /)
214 KA(:, 3, 2, 1) = (/ &
215 & 0.85773E-09_JPRB,0.13292E-07_JPRB,0.11943E-07_JPRB,0.10177E-07_JPRB,0.81637E-08_JPRB, &
216 & 0.62054E-08_JPRB,0.44045E-08_JPRB,0.35504E-08_JPRB,0.48274E-08_JPRB /)
217 KA(:, 4, 2, 1) = (/ &
218 & 0.76956E-09_JPRB,0.13343E-07_JPRB,0.12140E-07_JPRB,0.10403E-07_JPRB,0.83916E-08_JPRB, &
219 & 0.64414E-08_JPRB,0.46212E-08_JPRB,0.36611E-08_JPRB,0.46523E-08_JPRB /)
220 KA(:, 5, 2, 1) = (/ &
221 & 0.53187E-09_JPRB,0.11759E-07_JPRB,0.10564E-07_JPRB,0.89416E-08_JPRB,0.69566E-08_JPRB, &
222 & 0.54336E-08_JPRB,0.36797E-08_JPRB,0.28238E-08_JPRB,0.18838E-08_JPRB /)
223 KA(:, 1, 3, 1) = (/ &
224 & 0.99065E-09_JPRB,0.13223E-07_JPRB,0.11222E-07_JPRB,0.94282E-08_JPRB,0.74664E-08_JPRB, &
225 & 0.54084E-08_JPRB,0.35205E-08_JPRB,0.24806E-08_JPRB,0.20205E-08_JPRB /)
226 KA(:, 2, 3, 1) = (/ &
227 & 0.98793E-09_JPRB,0.13673E-07_JPRB,0.11444E-07_JPRB,0.96735E-08_JPRB,0.76364E-08_JPRB, &
228 & 0.55809E-08_JPRB,0.37259E-08_JPRB,0.25419E-08_JPRB,0.20086E-08_JPRB /)
229 KA(:, 3, 3, 1) = (/ &
230 & 0.10274E-08_JPRB,0.14243E-07_JPRB,0.12051E-07_JPRB,0.10168E-07_JPRB,0.80110E-08_JPRB, &
231 & 0.59129E-08_JPRB,0.38720E-08_JPRB,0.26806E-08_JPRB,0.19959E-08_JPRB /)
232 KA(:, 4, 3, 1) = (/ &
233 & 0.10879E-08_JPRB,0.15991E-07_JPRB,0.14290E-07_JPRB,0.12193E-07_JPRB,0.99943E-08_JPRB, &
234 & 0.76411E-08_JPRB,0.49949E-08_JPRB,0.32117E-08_JPRB,0.45196E-08_JPRB /)
235 KA(:, 5, 3, 1) = (/ &
236 & 0.10733E-08_JPRB,0.14460E-07_JPRB,0.12483E-07_JPRB,0.10703E-07_JPRB,0.84924E-08_JPRB, &
237 & 0.62896E-08_JPRB,0.42753E-08_JPRB,0.27408E-08_JPRB,0.19679E-08_JPRB /)
238 KA(:, 1, 4, 1) = (/ &
239 & 0.11948E-08_JPRB,0.15804E-07_JPRB,0.13423E-07_JPRB,0.10964E-07_JPRB,0.86345E-08_JPRB, &
240 & 0.61421E-08_JPRB,0.39130E-08_JPRB,0.24271E-08_JPRB,0.26282E-08_JPRB /)
241 KA(:, 2, 4, 1) = (/ &
242 & 0.12796E-08_JPRB,0.16985E-07_JPRB,0.14121E-07_JPRB,0.11784E-07_JPRB,0.93415E-08_JPRB, &
243 & 0.67310E-08_JPRB,0.43124E-08_JPRB,0.25170E-08_JPRB,0.26033E-08_JPRB /)
244 KA(:, 3, 4, 1) = (/ &
245 & 0.12903E-08_JPRB,0.17863E-07_JPRB,0.14703E-07_JPRB,0.12387E-07_JPRB,0.99243E-08_JPRB, &
246 & 0.72283E-08_JPRB,0.46892E-08_JPRB,0.26092E-08_JPRB,0.25739E-08_JPRB /)
247 KA(:, 4, 4, 1) = (/ &
248 & 0.13030E-08_JPRB,0.17982E-07_JPRB,0.14488E-07_JPRB,0.12389E-07_JPRB,0.10284E-07_JPRB, &
249 & 0.76192E-08_JPRB,0.50049E-08_JPRB,0.27184E-08_JPRB,0.25450E-08_JPRB /)
250 KA(:, 5, 4, 1) = (/ &
251 & 0.13295E-08_JPRB,0.20084E-07_JPRB,0.17213E-07_JPRB,0.15086E-07_JPRB,0.12255E-07_JPRB, &
252 & 0.93192E-08_JPRB,0.61747E-08_JPRB,0.34151E-08_JPRB,0.50409E-08_JPRB /)
253 KA(:, 1, 5, 1) = (/ &
254 & 0.14930E-08_JPRB,0.19740E-07_JPRB,0.16353E-07_JPRB,0.13382E-07_JPRB,0.10370E-07_JPRB, &
255 & 0.76167E-08_JPRB,0.46913E-08_JPRB,0.23740E-08_JPRB,0.37254E-08_JPRB /)
256 KA(:, 2, 5, 1) = (/ &
257 & 0.15750E-08_JPRB,0.20826E-07_JPRB,0.17352E-07_JPRB,0.14080E-07_JPRB,0.11109E-07_JPRB, &
258 & 0.82293E-08_JPRB,0.51142E-08_JPRB,0.25900E-08_JPRB,0.36977E-08_JPRB /)
259 KA(:, 3, 5, 1) = (/ &
260 & 0.16427E-08_JPRB,0.22313E-07_JPRB,0.18005E-07_JPRB,0.14545E-07_JPRB,0.11545E-07_JPRB, &
261 & 0.85987E-08_JPRB,0.53849E-08_JPRB,0.27523E-08_JPRB,0.36628E-08_JPRB /)
262 KA(:, 4, 5, 1) = (/ &
263 & 0.17106E-08_JPRB,0.23821E-07_JPRB,0.18882E-07_JPRB,0.15226E-07_JPRB,0.12313E-07_JPRB, &
264 & 0.92367E-08_JPRB,0.58646E-08_JPRB,0.29020E-08_JPRB,0.36336E-08_JPRB /)
265 KA(:, 5, 5, 1) = (/ &
266 & 0.17465E-08_JPRB,0.26750E-07_JPRB,0.22103E-07_JPRB,0.18690E-07_JPRB,0.15320E-07_JPRB, &
267 & 0.11508E-07_JPRB,0.77281E-08_JPRB,0.34929E-08_JPRB,0.69801E-08_JPRB /)
268 KA(:, 1, 6, 1) = (/ &
269 & 0.17561E-08_JPRB,0.17298E-07_JPRB,0.18888E-07_JPRB,0.16164E-07_JPRB,0.12676E-07_JPRB, &
270 & 0.91128E-08_JPRB,0.57292E-08_JPRB,0.25945E-08_JPRB,0.52718E-08_JPRB /)
271 KA(:, 2, 6, 1) = (/ &
272 & 0.19997E-08_JPRB,0.20866E-07_JPRB,0.20612E-07_JPRB,0.17467E-07_JPRB,0.13431E-07_JPRB, &
273 & 0.96178E-08_JPRB,0.60009E-08_JPRB,0.28959E-08_JPRB,0.52609E-08_JPRB /)
274 KA(:, 3, 6, 1) = (/ &
275 & 0.21808E-08_JPRB,0.24689E-07_JPRB,0.22590E-07_JPRB,0.18672E-07_JPRB,0.14573E-07_JPRB, &
276 & 0.10599E-07_JPRB,0.66802E-08_JPRB,0.31104E-08_JPRB,0.52649E-08_JPRB /)
277 KA(:, 4, 6, 1) = (/ &
278 & 0.22321E-08_JPRB,0.28043E-07_JPRB,0.23802E-07_JPRB,0.19473E-07_JPRB,0.15182E-07_JPRB, &
279 & 0.11372E-07_JPRB,0.73223E-08_JPRB,0.34820E-08_JPRB,0.52977E-08_JPRB /)
280 KA(:, 5, 6, 1) = (/ &
281 & 0.23033E-08_JPRB,0.30784E-07_JPRB,0.25188E-07_JPRB,0.20376E-07_JPRB,0.16019E-07_JPRB, &
282 & 0.12009E-07_JPRB,0.77933E-08_JPRB,0.37322E-08_JPRB,0.52777E-08_JPRB /)
283 KA(:, 1, 7, 1) = (/ &
284 & 0.22679E-08_JPRB,0.13507E-07_JPRB,0.20320E-07_JPRB,0.19549E-07_JPRB,0.15905E-07_JPRB, &
285 & 0.11277E-07_JPRB,0.68710E-08_JPRB,0.29328E-08_JPRB,0.79703E-08_JPRB /)
286 KA(:, 2, 7, 1) = (/ &
287 & 0.25718E-08_JPRB,0.16957E-07_JPRB,0.24375E-07_JPRB,0.21175E-07_JPRB,0.17080E-07_JPRB, &
288 & 0.12233E-07_JPRB,0.77114E-08_JPRB,0.34113E-08_JPRB,0.79963E-08_JPRB /)
289 KA(:, 3, 7, 1) = (/ &
290 & 0.27598E-08_JPRB,0.19896E-07_JPRB,0.28092E-07_JPRB,0.23059E-07_JPRB,0.18272E-07_JPRB, &
291 & 0.13117E-07_JPRB,0.84449E-08_JPRB,0.37817E-08_JPRB,0.79824E-08_JPRB /)
292 KA(:, 4, 7, 1) = (/ &
293 & 0.28979E-08_JPRB,0.22997E-07_JPRB,0.29556E-07_JPRB,0.24211E-07_JPRB,0.19134E-07_JPRB, &
294 & 0.13799E-07_JPRB,0.90980E-08_JPRB,0.41849E-08_JPRB,0.79622E-08_JPRB /)
295 KA(:, 5, 7, 1) = (/ &
296 & 0.31158E-08_JPRB,0.26193E-07_JPRB,0.32426E-07_JPRB,0.25685E-07_JPRB,0.19970E-07_JPRB, &
297 & 0.14504E-07_JPRB,0.96379E-08_JPRB,0.45034E-08_JPRB,0.78914E-08_JPRB /)
298 KA(:, 1, 8, 1) = (/ &
299 & 0.27286E-08_JPRB,0.10085E-07_JPRB,0.15014E-07_JPRB,0.19090E-07_JPRB,0.19831E-07_JPRB, &
300 & 0.15054E-07_JPRB,0.91059E-08_JPRB,0.39324E-08_JPRB,0.14155E-07_JPRB /)
301 KA(:, 2, 8, 1) = (/ &
302 & 0.30146E-08_JPRB,0.12680E-07_JPRB,0.19259E-07_JPRB,0.23896E-07_JPRB,0.21584E-07_JPRB, &
303 & 0.16217E-07_JPRB,0.99712E-08_JPRB,0.44108E-08_JPRB,0.14243E-07_JPRB /)
304 KA(:, 3, 8, 1) = (/ &
305 & 0.35571E-08_JPRB,0.15989E-07_JPRB,0.23328E-07_JPRB,0.28003E-07_JPRB,0.22999E-07_JPRB, &
306 & 0.17316E-07_JPRB,0.10856E-07_JPRB,0.49279E-08_JPRB,0.13770E-07_JPRB /)
307 KA(:, 4, 8, 1) = (/ &
308 & 0.40065E-08_JPRB,0.19481E-07_JPRB,0.27247E-07_JPRB,0.30922E-07_JPRB,0.24592E-07_JPRB, &
309 & 0.18005E-07_JPRB,0.11331E-07_JPRB,0.53242E-08_JPRB,0.13758E-07_JPRB /)
310 KA(:, 5, 8, 1) = (/ &
311 & 0.44047E-08_JPRB,0.23368E-07_JPRB,0.31337E-07_JPRB,0.33478E-07_JPRB,0.26467E-07_JPRB, &
312 & 0.19093E-07_JPRB,0.12194E-07_JPRB,0.56088E-08_JPRB,0.13665E-07_JPRB /)
313 KA(:, 1, 9, 1) = (/ &
314 & 0.32692E-08_JPRB,0.79127E-08_JPRB,0.11108E-07_JPRB,0.13962E-07_JPRB,0.15949E-07_JPRB, &
315 & 0.18125E-07_JPRB,0.12367E-07_JPRB,0.53666E-08_JPRB,0.28048E-07_JPRB /)
316 KA(:, 2, 9, 1) = (/ &
317 & 0.39872E-08_JPRB,0.10056E-07_JPRB,0.14185E-07_JPRB,0.17838E-07_JPRB,0.20262E-07_JPRB, &
318 & 0.19824E-07_JPRB,0.13459E-07_JPRB,0.59111E-08_JPRB,0.29491E-07_JPRB /)
319 KA(:, 3, 9, 1) = (/ &
320 & 0.46117E-08_JPRB,0.12472E-07_JPRB,0.17902E-07_JPRB,0.22130E-07_JPRB,0.25362E-07_JPRB, &
321 & 0.21745E-07_JPRB,0.14226E-07_JPRB,0.62741E-08_JPRB,0.30373E-07_JPRB /)
322 KA(:, 4, 9, 1) = (/ &
323 & 0.52024E-08_JPRB,0.15275E-07_JPRB,0.21923E-07_JPRB,0.27295E-07_JPRB,0.30210E-07_JPRB, &
324 & 0.23240E-07_JPRB,0.15087E-07_JPRB,0.66869E-08_JPRB,0.31196E-07_JPRB /)
325 KA(:, 5, 9, 1) = (/ &
326 & 0.56198E-08_JPRB,0.17975E-07_JPRB,0.26684E-07_JPRB,0.30762E-07_JPRB,0.34012E-07_JPRB, &
327 & 0.25509E-07_JPRB,0.16208E-07_JPRB,0.72951E-08_JPRB,0.31583E-07_JPRB /)
328 KA(:, 1,10, 1) = (/ &
329 & 0.48178E-08_JPRB,0.70531E-08_JPRB,0.93321E-08_JPRB,0.10834E-07_JPRB,0.12386E-07_JPRB, &
330 & 0.13718E-07_JPRB,0.14795E-07_JPRB,0.73464E-08_JPRB,0.35934E-07_JPRB /)
331 KA(:, 2,10, 1) = (/ &
332 & 0.55752E-08_JPRB,0.86985E-08_JPRB,0.11492E-07_JPRB,0.13823E-07_JPRB,0.15291E-07_JPRB, &
333 & 0.17278E-07_JPRB,0.18153E-07_JPRB,0.81439E-08_JPRB,0.37177E-07_JPRB /)
334 KA(:, 3,10, 1) = (/ &
335 & 0.63274E-08_JPRB,0.10735E-07_JPRB,0.13985E-07_JPRB,0.17136E-07_JPRB,0.19303E-07_JPRB, &
336 & 0.20940E-07_JPRB,0.20044E-07_JPRB,0.88008E-08_JPRB,0.38431E-07_JPRB /)
337 KA(:, 4,10, 1) = (/ &
338 & 0.70007E-08_JPRB,0.12858E-07_JPRB,0.17195E-07_JPRB,0.20946E-07_JPRB,0.23543E-07_JPRB, &
339 & 0.25732E-07_JPRB,0.21748E-07_JPRB,0.95846E-08_JPRB,0.39768E-07_JPRB /)
340 KA(:, 5,10, 1) = (/ &
341 & 0.75858E-08_JPRB,0.15576E-07_JPRB,0.20803E-07_JPRB,0.25331E-07_JPRB,0.28222E-07_JPRB, &
342 & 0.30974E-07_JPRB,0.23346E-07_JPRB,0.10532E-07_JPRB,0.41126E-07_JPRB /)
343 KA(:, 1,11, 1) = (/ &
344 & 0.71066E-08_JPRB,0.91105E-08_JPRB,0.91823E-08_JPRB,0.10078E-07_JPRB,0.11080E-07_JPRB, &
345 & 0.11808E-07_JPRB,0.12592E-07_JPRB,0.10585E-07_JPRB,0.36646E-07_JPRB /)
346 KA(:, 2,11, 1) = (/ &
347 & 0.75651E-08_JPRB,0.10196E-07_JPRB,0.11288E-07_JPRB,0.12341E-07_JPRB,0.13264E-07_JPRB, &
348 & 0.14635E-07_JPRB,0.15304E-07_JPRB,0.12113E-07_JPRB,0.37821E-07_JPRB /)
349
350 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART1',1,ZHOOK_HANDLE)
351 END SUBROUTINE PART1
352
353
354 SUBROUTINE PART2
355
356 REAL(KIND=JPRB) :: ZHOOK_HANDLE
357 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART2',0,ZHOOK_HANDLE)
358
359
360 KA(:, 3,11, 1) = (/ &
361 & 0.84521E-08_JPRB,0.11641E-07_JPRB,0.13494E-07_JPRB,0.15134E-07_JPRB,0.16494E-07_JPRB, &
362 & 0.17667E-07_JPRB,0.18637E-07_JPRB,0.13998E-07_JPRB,0.39151E-07_JPRB /)
363 KA(:, 4,11, 1) = (/ &
364 & 0.96535E-08_JPRB,0.13091E-07_JPRB,0.16210E-07_JPRB,0.18132E-07_JPRB,0.20108E-07_JPRB, &
365 & 0.21506E-07_JPRB,0.22578E-07_JPRB,0.15372E-07_JPRB,0.40534E-07_JPRB /)
366 KA(:, 5,11, 1) = (/ &
367 & 0.10866E-07_JPRB,0.15259E-07_JPRB,0.19222E-07_JPRB,0.21816E-07_JPRB,0.23808E-07_JPRB, &
368 & 0.25779E-07_JPRB,0.26640E-07_JPRB,0.16560E-07_JPRB,0.41783E-07_JPRB /)
369 KA(:, 1,12, 1) = (/ &
370 & 0.80834E-08_JPRB,0.10420E-07_JPRB,0.92387E-08_JPRB,0.95448E-08_JPRB,0.10004E-07_JPRB, &
371 & 0.10210E-07_JPRB,0.10715E-07_JPRB,0.12956E-07_JPRB,0.37307E-07_JPRB /)
372 KA(:, 2,12, 1) = (/ &
373 & 0.93300E-08_JPRB,0.11721E-07_JPRB,0.10935E-07_JPRB,0.11240E-07_JPRB,0.12099E-07_JPRB, &
374 & 0.12529E-07_JPRB,0.12978E-07_JPRB,0.14968E-07_JPRB,0.38619E-07_JPRB /)
375 KA(:, 3,12, 1) = (/ &
376 & 0.10509E-07_JPRB,0.12830E-07_JPRB,0.12793E-07_JPRB,0.13649E-07_JPRB,0.14634E-07_JPRB, &
377 & 0.15024E-07_JPRB,0.15635E-07_JPRB,0.17087E-07_JPRB,0.40001E-07_JPRB /)
378 KA(:, 4,12, 1) = (/ &
379 & 0.11973E-07_JPRB,0.14173E-07_JPRB,0.14811E-07_JPRB,0.16236E-07_JPRB,0.17652E-07_JPRB, &
380 & 0.18139E-07_JPRB,0.18897E-07_JPRB,0.19167E-07_JPRB,0.41426E-07_JPRB /)
381 KA(:, 5,12, 1) = (/ &
382 & 0.13412E-07_JPRB,0.16145E-07_JPRB,0.17438E-07_JPRB,0.18946E-07_JPRB,0.20873E-07_JPRB, &
383 & 0.21649E-07_JPRB,0.22446E-07_JPRB,0.20222E-07_JPRB,0.42866E-07_JPRB /)
384 KA(:, 1,13, 1) = (/ &
385 & 0.96752E-08_JPRB,0.12525E-07_JPRB,0.10944E-07_JPRB,0.96402E-08_JPRB,0.92613E-08_JPRB, &
386 & 0.89183E-08_JPRB,0.91757E-08_JPRB,0.10962E-07_JPRB,0.37700E-07_JPRB /)
387 KA(:, 2,13, 1) = (/ &
388 & 0.10573E-07_JPRB,0.14013E-07_JPRB,0.12095E-07_JPRB,0.11243E-07_JPRB,0.11108E-07_JPRB, &
389 & 0.10880E-07_JPRB,0.11099E-07_JPRB,0.12700E-07_JPRB,0.39054E-07_JPRB /)
390 KA(:, 3,13, 1) = (/ &
391 & 0.12096E-07_JPRB,0.15476E-07_JPRB,0.13719E-07_JPRB,0.13357E-07_JPRB,0.13060E-07_JPRB, &
392 & 0.13122E-07_JPRB,0.13232E-07_JPRB,0.14320E-07_JPRB,0.40767E-07_JPRB /)
393 KA(:, 4,13, 1) = (/ &
394 & 0.13461E-07_JPRB,0.16674E-07_JPRB,0.15454E-07_JPRB,0.15611E-07_JPRB,0.15616E-07_JPRB, &
395 & 0.15505E-07_JPRB,0.16233E-07_JPRB,0.16510E-07_JPRB,0.42192E-07_JPRB /)
396 KA(:, 5,13, 1) = (/ &
397 & 0.14863E-07_JPRB,0.17307E-07_JPRB,0.17245E-07_JPRB,0.18041E-07_JPRB,0.18314E-07_JPRB, &
398 & 0.18445E-07_JPRB,0.19222E-07_JPRB,0.18635E-07_JPRB,0.43353E-07_JPRB /)
399 KA(:, 1, 1, 2) = (/ &
400 & 0.11698E-08_JPRB,0.30848E-07_JPRB,0.36454E-07_JPRB,0.38710E-07_JPRB,0.45901E-07_JPRB, &
401 & 0.55227E-07_JPRB,0.66976E-07_JPRB,0.88407E-07_JPRB,0.23422E-07_JPRB /)
402 KA(:, 2, 1, 2) = (/ &
403 & 0.11855E-08_JPRB,0.31924E-07_JPRB,0.37139E-07_JPRB,0.40576E-07_JPRB,0.48515E-07_JPRB, &
404 & 0.57453E-07_JPRB,0.68267E-07_JPRB,0.87661E-07_JPRB,0.23548E-07_JPRB /)
405 KA(:, 3, 1, 2) = (/ &
406 & 0.14595E-08_JPRB,0.39594E-07_JPRB,0.49562E-07_JPRB,0.62806E-07_JPRB,0.77187E-07_JPRB, &
407 & 0.93412E-07_JPRB,0.11204E-06_JPRB,0.13944E-06_JPRB,0.36327E-07_JPRB /)
408 KA(:, 4, 1, 2) = (/ &
409 & 0.16033E-08_JPRB,0.32903E-07_JPRB,0.39616E-07_JPRB,0.43600E-07_JPRB,0.51878E-07_JPRB, &
410 & 0.61189E-07_JPRB,0.71838E-07_JPRB,0.88579E-07_JPRB,0.23754E-07_JPRB /)
411 KA(:, 5, 1, 2) = (/ &
412 & 0.16713E-08_JPRB,0.33816E-07_JPRB,0.40271E-07_JPRB,0.44761E-07_JPRB,0.53112E-07_JPRB, &
413 & 0.62817E-07_JPRB,0.73214E-07_JPRB,0.89918E-07_JPRB,0.23712E-07_JPRB /)
414 KA(:, 1, 2, 2) = (/ &
415 & 0.14413E-08_JPRB,0.29542E-07_JPRB,0.33672E-07_JPRB,0.38233E-07_JPRB,0.38429E-07_JPRB, &
416 & 0.45175E-07_JPRB,0.55138E-07_JPRB,0.73579E-07_JPRB,0.25050E-07_JPRB /)
417 KA(:, 2, 2, 2) = (/ &
418 & 0.13819E-08_JPRB,0.33839E-07_JPRB,0.35660E-07_JPRB,0.39637E-07_JPRB,0.40862E-07_JPRB, &
419 & 0.47496E-07_JPRB,0.56716E-07_JPRB,0.72256E-07_JPRB,0.25722E-07_JPRB /)
420 KA(:, 3, 2, 2) = (/ &
421 & 0.14034E-08_JPRB,0.38888E-07_JPRB,0.49224E-07_JPRB,0.54694E-07_JPRB,0.64529E-07_JPRB, &
422 & 0.76758E-07_JPRB,0.91615E-07_JPRB,0.11521E-06_JPRB,0.39473E-07_JPRB /)
423 KA(:, 4, 2, 2) = (/ &
424 & 0.15427E-08_JPRB,0.40736E-07_JPRB,0.49562E-07_JPRB,0.55626E-07_JPRB,0.65520E-07_JPRB, &
425 & 0.77421E-07_JPRB,0.92434E-07_JPRB,0.11487E-06_JPRB,0.39089E-07_JPRB /)
426 KA(:, 5, 2, 2) = (/ &
427 & 0.19146E-08_JPRB,0.37020E-07_JPRB,0.37998E-07_JPRB,0.40828E-07_JPRB,0.46417E-07_JPRB, &
428 & 0.52511E-07_JPRB,0.60306E-07_JPRB,0.73583E-07_JPRB,0.26882E-07_JPRB /)
429 KA(:, 1, 3, 2) = (/ &
430 & 0.16720E-08_JPRB,0.23360E-07_JPRB,0.34106E-07_JPRB,0.35883E-07_JPRB,0.37371E-07_JPRB, &
431 & 0.37719E-07_JPRB,0.44564E-07_JPRB,0.59521E-07_JPRB,0.60171E-07_JPRB /)
432 KA(:, 2, 3, 2) = (/ &
433 & 0.17699E-08_JPRB,0.26546E-07_JPRB,0.36000E-07_JPRB,0.36846E-07_JPRB,0.38381E-07_JPRB, &
434 & 0.39667E-07_JPRB,0.46368E-07_JPRB,0.60306E-07_JPRB,0.60604E-07_JPRB /)
435 KA(:, 3, 3, 2) = (/ &
436 & 0.18009E-08_JPRB,0.29450E-07_JPRB,0.37614E-07_JPRB,0.38630E-07_JPRB,0.39041E-07_JPRB, &
437 & 0.41600E-07_JPRB,0.48142E-07_JPRB,0.59638E-07_JPRB,0.61274E-07_JPRB /)
438 KA(:, 4, 3, 2) = (/ &
439 & 0.18222E-08_JPRB,0.39219E-07_JPRB,0.48109E-07_JPRB,0.53485E-07_JPRB,0.57150E-07_JPRB, &
440 & 0.64444E-07_JPRB,0.75574E-07_JPRB,0.94813E-07_JPRB,0.76759E-07_JPRB /)
441 KA(:, 5, 3, 2) = (/ &
442 & 0.18210E-08_JPRB,0.34020E-07_JPRB,0.40366E-07_JPRB,0.41710E-07_JPRB,0.42164E-07_JPRB, &
443 & 0.45001E-07_JPRB,0.49878E-07_JPRB,0.60009E-07_JPRB,0.61481E-07_JPRB /)
444 KA(:, 1, 4, 2) = (/ &
445 & 0.21152E-08_JPRB,0.23706E-07_JPRB,0.29784E-07_JPRB,0.35302E-07_JPRB,0.35282E-07_JPRB, &
446 & 0.34361E-07_JPRB,0.35938E-07_JPRB,0.47065E-07_JPRB,0.17050E-06_JPRB /)
447 KA(:, 2, 4, 2) = (/ &
448 & 0.22014E-08_JPRB,0.24318E-07_JPRB,0.33239E-07_JPRB,0.37390E-07_JPRB,0.36975E-07_JPRB, &
449 & 0.35774E-07_JPRB,0.38207E-07_JPRB,0.49025E-07_JPRB,0.17312E-06_JPRB /)
450 KA(:, 3, 4, 2) = (/ &
451 & 0.21940E-08_JPRB,0.26005E-07_JPRB,0.37067E-07_JPRB,0.38353E-07_JPRB,0.38894E-07_JPRB, &
452 & 0.37527E-07_JPRB,0.40105E-07_JPRB,0.50082E-07_JPRB,0.17777E-06_JPRB /)
453 KA(:, 4, 4, 2) = (/ &
454 & 0.23140E-08_JPRB,0.28378E-07_JPRB,0.41743E-07_JPRB,0.40523E-07_JPRB,0.40492E-07_JPRB, &
455 & 0.38652E-07_JPRB,0.40876E-07_JPRB,0.49640E-07_JPRB,0.18336E-06_JPRB /)
456 KA(:, 5, 4, 2) = (/ &
457 & 0.23213E-08_JPRB,0.34154E-07_JPRB,0.50461E-07_JPRB,0.52357E-07_JPRB,0.54187E-07_JPRB, &
458 & 0.57113E-07_JPRB,0.62843E-07_JPRB,0.77605E-07_JPRB,0.21695E-06_JPRB /)
459 KA(:, 1, 5, 2) = (/ &
460 & 0.26738E-08_JPRB,0.26329E-07_JPRB,0.23971E-07_JPRB,0.31112E-07_JPRB,0.35671E-07_JPRB, &
461 & 0.34087E-07_JPRB,0.29799E-07_JPRB,0.37789E-07_JPRB,0.52514E-06_JPRB /)
462 KA(:, 2, 5, 2) = (/ &
463 & 0.25455E-08_JPRB,0.28564E-07_JPRB,0.26376E-07_JPRB,0.34876E-07_JPRB,0.38195E-07_JPRB, &
464 & 0.36126E-07_JPRB,0.31889E-07_JPRB,0.38787E-07_JPRB,0.53894E-06_JPRB /)
465 KA(:, 3, 5, 2) = (/ &
466 & 0.27955E-08_JPRB,0.30168E-07_JPRB,0.29598E-07_JPRB,0.39256E-07_JPRB,0.39488E-07_JPRB, &
467 & 0.38121E-07_JPRB,0.34110E-07_JPRB,0.40225E-07_JPRB,0.55617E-06_JPRB /)
468 KA(:, 4, 5, 2) = (/ &
469 & 0.30518E-08_JPRB,0.31696E-07_JPRB,0.32642E-07_JPRB,0.43581E-07_JPRB,0.40810E-07_JPRB, &
470 & 0.38887E-07_JPRB,0.35568E-07_JPRB,0.41837E-07_JPRB,0.57141E-06_JPRB /)
471 KA(:, 5, 5, 2) = (/ &
472 & 0.29545E-08_JPRB,0.34626E-07_JPRB,0.42873E-07_JPRB,0.52742E-07_JPRB,0.53043E-07_JPRB, &
473 & 0.52428E-07_JPRB,0.54304E-07_JPRB,0.64247E-07_JPRB,0.63906E-06_JPRB /)
474 KA(:, 1, 6, 2) = (/ &
475 & 0.30127E-08_JPRB,0.42606E-07_JPRB,0.28980E-07_JPRB,0.24923E-07_JPRB,0.29265E-07_JPRB, &
476 & 0.34534E-07_JPRB,0.31090E-07_JPRB,0.30814E-07_JPRB,0.12844E-05_JPRB /)
477 KA(:, 2, 6, 2) = (/ &
478 & 0.33504E-08_JPRB,0.42102E-07_JPRB,0.30491E-07_JPRB,0.27666E-07_JPRB,0.33477E-07_JPRB, &
479 & 0.35643E-07_JPRB,0.33324E-07_JPRB,0.31448E-07_JPRB,0.13231E-05_JPRB /)
480 KA(:, 3, 6, 2) = (/ &
481 & 0.37714E-08_JPRB,0.40516E-07_JPRB,0.32080E-07_JPRB,0.30623E-07_JPRB,0.37391E-07_JPRB, &
482 & 0.37255E-07_JPRB,0.35144E-07_JPRB,0.32296E-07_JPRB,0.13598E-05_JPRB /)
483 KA(:, 4, 6, 2) = (/ &
484 & 0.40809E-08_JPRB,0.41419E-07_JPRB,0.33638E-07_JPRB,0.33756E-07_JPRB,0.41072E-07_JPRB, &
485 & 0.38814E-07_JPRB,0.36264E-07_JPRB,0.33664E-07_JPRB,0.13955E-05_JPRB /)
486 KA(:, 5, 6, 2) = (/ &
487 & 0.38112E-08_JPRB,0.42764E-07_JPRB,0.35694E-07_JPRB,0.36747E-07_JPRB,0.45193E-07_JPRB, &
488 & 0.40460E-07_JPRB,0.37371E-07_JPRB,0.35107E-07_JPRB,0.14282E-05_JPRB /)
489 KA(:, 1, 7, 2) = (/ &
490 & 0.36577E-08_JPRB,0.64857E-07_JPRB,0.37268E-07_JPRB,0.28977E-07_JPRB,0.24480E-07_JPRB, &
491 & 0.26864E-07_JPRB,0.30486E-07_JPRB,0.25122E-07_JPRB,0.20521E-05_JPRB /)
492 KA(:, 2, 7, 2) = (/ &
493 & 0.39427E-08_JPRB,0.65731E-07_JPRB,0.37248E-07_JPRB,0.30585E-07_JPRB,0.26773E-07_JPRB, &
494 & 0.30114E-07_JPRB,0.31576E-07_JPRB,0.26187E-07_JPRB,0.21480E-05_JPRB /)
495 KA(:, 3, 7, 2) = (/ &
496 & 0.43811E-08_JPRB,0.66809E-07_JPRB,0.38170E-07_JPRB,0.32043E-07_JPRB,0.28837E-07_JPRB, &
497 & 0.34005E-07_JPRB,0.32765E-07_JPRB,0.27322E-07_JPRB,0.22122E-05_JPRB /)
498 KA(:, 4, 7, 2) = (/ &
499 & 0.46591E-08_JPRB,0.68244E-07_JPRB,0.41020E-07_JPRB,0.34183E-07_JPRB,0.31347E-07_JPRB, &
500 & 0.37946E-07_JPRB,0.34473E-07_JPRB,0.28264E-07_JPRB,0.22876E-05_JPRB /)
501 KA(:, 5, 7, 2) = (/ &
502 & 0.51635E-08_JPRB,0.69768E-07_JPRB,0.42241E-07_JPRB,0.36125E-07_JPRB,0.34689E-07_JPRB, &
503 & 0.41422E-07_JPRB,0.36208E-07_JPRB,0.29319E-07_JPRB,0.23528E-05_JPRB /)
504 KA(:, 1, 8, 2) = (/ &
505 & 0.48063E-08_JPRB,0.99492E-07_JPRB,0.67977E-07_JPRB,0.40583E-07_JPRB,0.27462E-07_JPRB, &
506 & 0.23261E-07_JPRB,0.24790E-07_JPRB,0.24175E-07_JPRB,0.34404E-05_JPRB /)
507 KA(:, 2, 8, 2) = (/ &
508 & 0.46794E-08_JPRB,0.10207E-06_JPRB,0.68838E-07_JPRB,0.41170E-07_JPRB,0.30068E-07_JPRB, &
509 & 0.24536E-07_JPRB,0.27696E-07_JPRB,0.25318E-07_JPRB,0.35579E-05_JPRB /)
510 KA(:, 3, 8, 2) = (/ &
511 & 0.51560E-08_JPRB,0.10436E-06_JPRB,0.69782E-07_JPRB,0.42105E-07_JPRB,0.32065E-07_JPRB, &
512 & 0.26776E-07_JPRB,0.30613E-07_JPRB,0.26859E-07_JPRB,0.36807E-05_JPRB /)
513 KA(:, 4, 8, 2) = (/ &
514 & 0.59944E-08_JPRB,0.10484E-06_JPRB,0.71027E-07_JPRB,0.44319E-07_JPRB,0.34843E-07_JPRB, &
515 & 0.29788E-07_JPRB,0.33876E-07_JPRB,0.28922E-07_JPRB,0.37740E-05_JPRB /)
516 KA(:, 5, 8, 2) = (/ &
517 & 0.64682E-08_JPRB,0.10541E-06_JPRB,0.71736E-07_JPRB,0.46124E-07_JPRB,0.36934E-07_JPRB, &
518 & 0.32173E-07_JPRB,0.36502E-07_JPRB,0.30991E-07_JPRB,0.38805E-05_JPRB /)
519 KA(:, 1, 9, 2) = (/ &
520 & 0.56433E-08_JPRB,0.13757E-06_JPRB,0.10641E-06_JPRB,0.72870E-07_JPRB,0.43453E-07_JPRB, &
521 & 0.25530E-07_JPRB,0.19778E-07_JPRB,0.25383E-07_JPRB,0.95912E-05_JPRB /)
522 KA(:, 2, 9, 2) = (/ &
523 & 0.61882E-08_JPRB,0.14041E-06_JPRB,0.11046E-06_JPRB,0.75424E-07_JPRB,0.44204E-07_JPRB, &
524 & 0.28513E-07_JPRB,0.22344E-07_JPRB,0.27258E-07_JPRB,0.98257E-05_JPRB /)
525 KA(:, 3, 9, 2) = (/ &
526 & 0.68724E-08_JPRB,0.14355E-06_JPRB,0.11272E-06_JPRB,0.76977E-07_JPRB,0.44934E-07_JPRB, &
527 & 0.30972E-07_JPRB,0.24609E-07_JPRB,0.29074E-07_JPRB,0.10035E-04_JPRB /)
528 KA(:, 4, 9, 2) = (/ &
529 & 0.75288E-08_JPRB,0.14628E-06_JPRB,0.11397E-06_JPRB,0.77508E-07_JPRB,0.45913E-07_JPRB, &
530 & 0.33498E-07_JPRB,0.27308E-07_JPRB,0.31237E-07_JPRB,0.10206E-04_JPRB /)
531 KA(:, 5, 9, 2) = (/ &
532 & 0.82361E-08_JPRB,0.14989E-06_JPRB,0.11575E-06_JPRB,0.78052E-07_JPRB,0.47282E-07_JPRB, &
533 & 0.34986E-07_JPRB,0.29571E-07_JPRB,0.31933E-07_JPRB,0.10332E-04_JPRB /)
534 KA(:, 1,10, 2) = (/ &
535 & 0.80705E-08_JPRB,0.18916E-06_JPRB,0.16332E-06_JPRB,0.12182E-06_JPRB,0.80167E-07_JPRB, &
536 & 0.44659E-07_JPRB,0.24027E-07_JPRB,0.20514E-07_JPRB,0.18076E-04_JPRB /)
537 KA(:, 2,10, 2) = (/ &
538 & 0.86522E-08_JPRB,0.19825E-06_JPRB,0.16839E-06_JPRB,0.12817E-06_JPRB,0.85984E-07_JPRB, &
539 & 0.48117E-07_JPRB,0.24937E-07_JPRB,0.22855E-07_JPRB,0.18392E-04_JPRB /)
540 KA(:, 3,10, 2) = (/ &
541 & 0.93838E-08_JPRB,0.20474E-06_JPRB,0.17472E-06_JPRB,0.13185E-06_JPRB,0.89897E-07_JPRB, &
542 & 0.50484E-07_JPRB,0.27069E-07_JPRB,0.24729E-07_JPRB,0.18827E-04_JPRB /)
543 KA(:, 4,10, 2) = (/ &
544 & 0.10442E-07_JPRB,0.21110E-06_JPRB,0.17958E-06_JPRB,0.13546E-06_JPRB,0.92462E-07_JPRB, &
545 & 0.51368E-07_JPRB,0.29958E-07_JPRB,0.26382E-07_JPRB,0.19325E-04_JPRB /)
546 KA(:, 5,10, 2) = (/ &
547 & 0.11203E-07_JPRB,0.21676E-06_JPRB,0.18359E-06_JPRB,0.14012E-06_JPRB,0.94090E-07_JPRB, &
548 & 0.51431E-07_JPRB,0.32637E-07_JPRB,0.27900E-07_JPRB,0.19654E-04_JPRB /)
549 KA(:, 1,11, 2) = (/ &
550 & 0.10898E-07_JPRB,0.20490E-06_JPRB,0.23352E-06_JPRB,0.18592E-06_JPRB,0.13108E-06_JPRB, &
551 & 0.82594E-07_JPRB,0.41478E-07_JPRB,0.20359E-07_JPRB,0.24656E-04_JPRB /)
552 KA(:, 2,11, 2) = (/ &
553 & 0.12100E-07_JPRB,0.21595E-06_JPRB,0.24259E-06_JPRB,0.19598E-06_JPRB,0.14307E-06_JPRB, &
554 & 0.90287E-07_JPRB,0.44897E-07_JPRB,0.21400E-07_JPRB,0.25439E-04_JPRB /)
555 KA(:, 3,11, 2) = (/ &
556 & 0.12997E-07_JPRB,0.22559E-06_JPRB,0.25028E-06_JPRB,0.20624E-06_JPRB,0.15074E-06_JPRB, &
557 & 0.95763E-07_JPRB,0.46972E-07_JPRB,0.22656E-07_JPRB,0.26128E-04_JPRB /)
558 KA(:, 4,11, 2) = (/ &
559 & 0.12774E-07_JPRB,0.23494E-06_JPRB,0.26130E-06_JPRB,0.21398E-06_JPRB,0.15730E-06_JPRB, &
560 & 0.98985E-07_JPRB,0.48309E-07_JPRB,0.24026E-07_JPRB,0.26834E-04_JPRB /)
561 KA(:, 5,11, 2) = (/ &
562 & 0.13184E-07_JPRB,0.24219E-06_JPRB,0.26811E-06_JPRB,0.22059E-06_JPRB,0.16314E-06_JPRB, &
563 & 0.10271E-06_JPRB,0.49802E-07_JPRB,0.25441E-07_JPRB,0.27644E-04_JPRB /)
564 KA(:, 1,12, 2) = (/ &
565 & 0.11394E-07_JPRB,0.19172E-06_JPRB,0.27076E-06_JPRB,0.23579E-06_JPRB,0.17648E-06_JPRB, &
566 & 0.11366E-06_JPRB,0.56463E-07_JPRB,0.20869E-07_JPRB,0.27151E-04_JPRB /)
567 KA(:, 2,12, 2) = (/ &
568 & 0.12908E-07_JPRB,0.20309E-06_JPRB,0.28462E-06_JPRB,0.24753E-06_JPRB,0.18719E-06_JPRB, &
569 & 0.12033E-06_JPRB,0.60157E-07_JPRB,0.21646E-07_JPRB,0.27962E-04_JPRB /)
570 KA(:, 3,12, 2) = (/ &
571 & 0.13752E-07_JPRB,0.21619E-06_JPRB,0.29476E-06_JPRB,0.25594E-06_JPRB,0.19641E-06_JPRB, &
572 & 0.12734E-06_JPRB,0.64272E-07_JPRB,0.22557E-07_JPRB,0.28912E-04_JPRB /)
573 KA(:, 4,12, 2) = (/ &
574 & 0.14906E-07_JPRB,0.22665E-06_JPRB,0.30298E-06_JPRB,0.26272E-06_JPRB,0.20331E-06_JPRB, &
575 & 0.13316E-06_JPRB,0.68243E-07_JPRB,0.23417E-07_JPRB,0.29816E-04_JPRB /)
576 KA(:, 5,12, 2) = (/ &
577 & 0.15969E-07_JPRB,0.23477E-06_JPRB,0.31068E-06_JPRB,0.27029E-06_JPRB,0.20850E-06_JPRB, &
578 & 0.13902E-06_JPRB,0.71857E-07_JPRB,0.25264E-07_JPRB,0.30765E-04_JPRB /)
579 KA(:, 1,13, 2) = (/ &
580 & 0.13593E-07_JPRB,0.19801E-06_JPRB,0.26490E-06_JPRB,0.27826E-06_JPRB,0.22531E-06_JPRB, &
581 & 0.15112E-06_JPRB,0.78691E-07_JPRB,0.27273E-07_JPRB,0.28055E-04_JPRB /)
582 KA(:, 2,13, 2) = (/ &
583 & 0.15426E-07_JPRB,0.20839E-06_JPRB,0.27732E-06_JPRB,0.28785E-06_JPRB,0.23371E-06_JPRB, &
584 & 0.16027E-06_JPRB,0.86131E-07_JPRB,0.29011E-07_JPRB,0.29165E-04_JPRB /)
585 KA(:, 3,13, 2) = (/ &
586 & 0.16638E-07_JPRB,0.21808E-06_JPRB,0.28896E-06_JPRB,0.29666E-06_JPRB,0.24201E-06_JPRB, &
587 & 0.16845E-06_JPRB,0.91791E-07_JPRB,0.30670E-07_JPRB,0.30372E-04_JPRB /)
588 KA(:, 4,13, 2) = (/ &
589 & 0.17929E-07_JPRB,0.22577E-06_JPRB,0.29798E-06_JPRB,0.30533E-06_JPRB,0.24895E-06_JPRB, &
590 & 0.17573E-06_JPRB,0.96085E-07_JPRB,0.31360E-07_JPRB,0.31437E-04_JPRB /)
591 KA(:, 5,13, 2) = (/ &
592 & 0.18861E-07_JPRB,0.23397E-06_JPRB,0.30715E-06_JPRB,0.31382E-06_JPRB,0.25665E-06_JPRB, &
593 & 0.18246E-06_JPRB,0.10017E-06_JPRB,0.32454E-07_JPRB,0.32266E-04_JPRB /)
594 KA(:, 1, 1, 3) = (/ &
595 & 0.39751E-08_JPRB,0.10094E-06_JPRB,0.20247E-06_JPRB,0.30028E-06_JPRB,0.39102E-06_JPRB, &
596 & 0.48711E-06_JPRB,0.59106E-06_JPRB,0.72709E-06_JPRB,0.20885E-06_JPRB /)
597 KA(:, 2, 1, 3) = (/ &
598 & 0.43080E-08_JPRB,0.10546E-06_JPRB,0.20982E-06_JPRB,0.31135E-06_JPRB,0.40303E-06_JPRB, &
599 & 0.49632E-06_JPRB,0.59855E-06_JPRB,0.74477E-06_JPRB,0.21012E-06_JPRB /)
600 KA(:, 3, 1, 3) = (/ &
601 & 0.42986E-08_JPRB,0.15269E-06_JPRB,0.29890E-06_JPRB,0.43493E-06_JPRB,0.56429E-06_JPRB, &
602 & 0.69336E-06_JPRB,0.83181E-06_JPRB,0.10423E-05_JPRB,0.36557E-06_JPRB /)
603 KA(:, 4, 1, 3) = (/ &
604 & 0.43554E-08_JPRB,0.11271E-06_JPRB,0.22069E-06_JPRB,0.32651E-06_JPRB,0.42391E-06_JPRB, &
605 & 0.51393E-06_JPRB,0.61294E-06_JPRB,0.75229E-06_JPRB,0.20945E-06_JPRB /)
606 KA(:, 5, 1, 3) = (/ &
607 & 0.45047E-08_JPRB,0.11576E-06_JPRB,0.22657E-06_JPRB,0.33173E-06_JPRB,0.43142E-06_JPRB, &
608 & 0.52151E-06_JPRB,0.61871E-06_JPRB,0.74980E-06_JPRB,0.20891E-06_JPRB /)
609 KA(:, 1, 2, 3) = (/ &
610 & 0.46065E-08_JPRB,0.81519E-07_JPRB,0.15960E-06_JPRB,0.23610E-06_JPRB,0.31656E-06_JPRB, &
611 & 0.39839E-06_JPRB,0.48591E-06_JPRB,0.60182E-06_JPRB,0.18230E-06_JPRB /)
612 KA(:, 2, 2, 3) = (/ &
613 & 0.46837E-08_JPRB,0.82106E-07_JPRB,0.16429E-06_JPRB,0.24471E-06_JPRB,0.32626E-06_JPRB, &
614 & 0.40531E-06_JPRB,0.49330E-06_JPRB,0.61810E-06_JPRB,0.18355E-06_JPRB /)
615 KA(:, 3, 2, 3) = (/ &
616 & 0.50163E-08_JPRB,0.12328E-06_JPRB,0.23602E-06_JPRB,0.35332E-06_JPRB,0.46387E-06_JPRB, &
617 & 0.57515E-06_JPRB,0.69445E-06_JPRB,0.88167E-06_JPRB,0.30546E-06_JPRB /)
618 KA(:, 4, 2, 3) = (/ &
619 & 0.49809E-08_JPRB,0.12454E-06_JPRB,0.23839E-06_JPRB,0.35429E-06_JPRB,0.46515E-06_JPRB, &
620 & 0.57491E-06_JPRB,0.69031E-06_JPRB,0.86630E-06_JPRB,0.29807E-06_JPRB /)
621 KA(:, 5, 2, 3) = (/ &
622 & 0.51988E-08_JPRB,0.91291E-07_JPRB,0.17869E-06_JPRB,0.26485E-06_JPRB,0.34907E-06_JPRB, &
623 & 0.42509E-06_JPRB,0.50894E-06_JPRB,0.62361E-06_JPRB,0.18234E-06_JPRB /)
624 KA(:, 1, 3, 3) = (/ &
625 & 0.51916E-08_JPRB,0.88867E-07_JPRB,0.12220E-06_JPRB,0.18411E-06_JPRB,0.24720E-06_JPRB, &
626 & 0.32303E-06_JPRB,0.39526E-06_JPRB,0.49595E-06_JPRB,0.27125E-06_JPRB /)
627 KA(:, 2, 3, 3) = (/ &
628 & 0.56319E-08_JPRB,0.87189E-07_JPRB,0.12678E-06_JPRB,0.19176E-06_JPRB,0.25624E-06_JPRB, &
629 & 0.32740E-06_JPRB,0.40564E-06_JPRB,0.50601E-06_JPRB,0.28010E-06_JPRB /)
630 KA(:, 3, 3, 3) = (/ &
631 & 0.59026E-08_JPRB,0.86017E-07_JPRB,0.13043E-06_JPRB,0.19649E-06_JPRB,0.26497E-06_JPRB, &
632 & 0.33305E-06_JPRB,0.40679E-06_JPRB,0.51963E-06_JPRB,0.28660E-06_JPRB /)
633 KA(:, 4, 3, 3) = (/ &
634 & 0.59909E-08_JPRB,0.10759E-06_JPRB,0.18790E-06_JPRB,0.28104E-06_JPRB,0.37702E-06_JPRB, &
635 & 0.47222E-06_JPRB,0.57322E-06_JPRB,0.72906E-06_JPRB,0.37657E-06_JPRB /)
636 KA(:, 5, 3, 3) = (/ &
637 & 0.64422E-08_JPRB,0.89472E-07_JPRB,0.13687E-06_JPRB,0.20453E-06_JPRB,0.27802E-06_JPRB, &
638 & 0.34266E-06_JPRB,0.41565E-06_JPRB,0.51746E-06_JPRB,0.29675E-06_JPRB /)
639 KA(:, 1, 4, 3) = (/ &
640 & 0.62298E-08_JPRB,0.99509E-07_JPRB,0.10306E-06_JPRB,0.14232E-06_JPRB,0.19390E-06_JPRB, &
641 & 0.25435E-06_JPRB,0.31764E-06_JPRB,0.40578E-06_JPRB,0.49031E-06_JPRB /)
642 KA(:, 2, 4, 3) = (/ &
643 & 0.68419E-08_JPRB,0.10415E-06_JPRB,0.10349E-06_JPRB,0.14672E-06_JPRB,0.19860E-06_JPRB, &
644 & 0.26012E-06_JPRB,0.32720E-06_JPRB,0.41327E-06_JPRB,0.51522E-06_JPRB /)
645 KA(:, 3, 4, 3) = (/ &
646 & 0.71418E-08_JPRB,0.10626E-06_JPRB,0.10522E-06_JPRB,0.15175E-06_JPRB,0.20471E-06_JPRB, &
647 & 0.26435E-06_JPRB,0.33148E-06_JPRB,0.42294E-06_JPRB,0.53456E-06_JPRB /)
648 KA(:, 4, 4, 3) = (/ &
649 & 0.72470E-08_JPRB,0.10891E-06_JPRB,0.10648E-06_JPRB,0.15457E-06_JPRB,0.21007E-06_JPRB, &
650 & 0.26937E-06_JPRB,0.33376E-06_JPRB,0.42939E-06_JPRB,0.55207E-06_JPRB /)
651
652 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART2',1,ZHOOK_HANDLE)
653 END SUBROUTINE PART2
654
655
656 SUBROUTINE PART3
657
658 REAL(KIND=JPRB) :: ZHOOK_HANDLE
659 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART3',0,ZHOOK_HANDLE)
660
661
662 KA(:, 5, 4, 3) = (/ &
663 & 0.77585E-08_JPRB,0.12954E-06_JPRB,0.14999E-06_JPRB,0.22224E-06_JPRB,0.29994E-06_JPRB, &
664 & 0.38053E-06_JPRB,0.47027E-06_JPRB,0.60032E-06_JPRB,0.76592E-06_JPRB /)
665 KA(:, 1, 5, 3) = (/ &
666 & 0.68852E-08_JPRB,0.11288E-06_JPRB,0.11969E-06_JPRB,0.11689E-06_JPRB,0.14994E-06_JPRB, &
667 & 0.19637E-06_JPRB,0.25309E-06_JPRB,0.33018E-06_JPRB,0.84551E-06_JPRB /)
668 KA(:, 2, 5, 3) = (/ &
669 & 0.75119E-08_JPRB,0.11838E-06_JPRB,0.12255E-06_JPRB,0.11926E-06_JPRB,0.15341E-06_JPRB, &
670 & 0.20169E-06_JPRB,0.26231E-06_JPRB,0.33745E-06_JPRB,0.85714E-06_JPRB /)
671 KA(:, 3, 5, 3) = (/ &
672 & 0.84416E-08_JPRB,0.12128E-06_JPRB,0.12324E-06_JPRB,0.12015E-06_JPRB,0.15812E-06_JPRB, &
673 & 0.20463E-06_JPRB,0.26808E-06_JPRB,0.34461E-06_JPRB,0.86734E-06_JPRB /)
674 KA(:, 4, 5, 3) = (/ &
675 & 0.92293E-08_JPRB,0.12493E-06_JPRB,0.12330E-06_JPRB,0.12093E-06_JPRB,0.16146E-06_JPRB, &
676 & 0.20899E-06_JPRB,0.26904E-06_JPRB,0.35101E-06_JPRB,0.88204E-06_JPRB /)
677 KA(:, 5, 5, 3) = (/ &
678 & 0.10279E-07_JPRB,0.14631E-06_JPRB,0.14078E-06_JPRB,0.17511E-06_JPRB,0.23546E-06_JPRB, &
679 & 0.30442E-06_JPRB,0.38374E-06_JPRB,0.50000E-06_JPRB,0.10431E-05_JPRB /)
680 KA(:, 1, 6, 3) = (/ &
681 & 0.51921E-08_JPRB,0.14437E-06_JPRB,0.12917E-06_JPRB,0.11673E-06_JPRB,0.12444E-06_JPRB, &
682 & 0.14966E-06_JPRB,0.19338E-06_JPRB,0.26674E-06_JPRB,0.16987E-05_JPRB /)
683 KA(:, 2, 6, 3) = (/ &
684 & 0.69052E-08_JPRB,0.14822E-06_JPRB,0.13564E-06_JPRB,0.12080E-06_JPRB,0.12884E-06_JPRB, &
685 & 0.15616E-06_JPRB,0.20083E-06_JPRB,0.27373E-06_JPRB,0.17147E-05_JPRB /)
686 KA(:, 3, 6, 3) = (/ &
687 & 0.93932E-08_JPRB,0.15309E-06_JPRB,0.13785E-06_JPRB,0.12361E-06_JPRB,0.12904E-06_JPRB, &
688 & 0.16004E-06_JPRB,0.20790E-06_JPRB,0.27928E-06_JPRB,0.17384E-05_JPRB /)
689 KA(:, 4, 6, 3) = (/ &
690 & 0.10364E-07_JPRB,0.15577E-06_JPRB,0.14281E-06_JPRB,0.12445E-06_JPRB,0.13032E-06_JPRB, &
691 & 0.16178E-06_JPRB,0.21225E-06_JPRB,0.28499E-06_JPRB,0.17733E-05_JPRB /)
692 KA(:, 5, 6, 3) = (/ &
693 & 0.10950E-07_JPRB,0.15768E-06_JPRB,0.14728E-06_JPRB,0.12674E-06_JPRB,0.12961E-06_JPRB, &
694 & 0.16455E-06_JPRB,0.21080E-06_JPRB,0.28744E-06_JPRB,0.17869E-05_JPRB /)
695 KA(:, 1, 7, 3) = (/ &
696 & 0.51527E-08_JPRB,0.13331E-06_JPRB,0.15220E-06_JPRB,0.13781E-06_JPRB,0.11791E-06_JPRB, &
697 & 0.12291E-06_JPRB,0.14839E-06_JPRB,0.21430E-06_JPRB,0.45802E-05_JPRB /)
698 KA(:, 2, 7, 3) = (/ &
699 & 0.52409E-08_JPRB,0.14109E-06_JPRB,0.15809E-06_JPRB,0.14393E-06_JPRB,0.12362E-06_JPRB, &
700 & 0.12831E-06_JPRB,0.15572E-06_JPRB,0.22059E-06_JPRB,0.46088E-05_JPRB /)
701 KA(:, 3, 7, 3) = (/ &
702 & 0.66901E-08_JPRB,0.14833E-06_JPRB,0.16524E-06_JPRB,0.14893E-06_JPRB,0.12670E-06_JPRB, &
703 & 0.13152E-06_JPRB,0.16110E-06_JPRB,0.22404E-06_JPRB,0.46200E-05_JPRB /)
704 KA(:, 4, 7, 3) = (/ &
705 & 0.90836E-08_JPRB,0.15267E-06_JPRB,0.17113E-06_JPRB,0.15541E-06_JPRB,0.12966E-06_JPRB, &
706 & 0.13240E-06_JPRB,0.16410E-06_JPRB,0.22868E-06_JPRB,0.45999E-05_JPRB /)
707 KA(:, 5, 7, 3) = (/ &
708 & 0.11721E-07_JPRB,0.15605E-06_JPRB,0.17580E-06_JPRB,0.16064E-06_JPRB,0.13194E-06_JPRB, &
709 & 0.13127E-06_JPRB,0.16676E-06_JPRB,0.23245E-06_JPRB,0.46103E-05_JPRB /)
710 KA(:, 1, 8, 3) = (/ &
711 & 0.53770E-08_JPRB,0.12906E-06_JPRB,0.19117E-06_JPRB,0.16928E-06_JPRB,0.14454E-06_JPRB, &
712 & 0.11318E-06_JPRB,0.12091E-06_JPRB,0.16771E-06_JPRB,0.10838E-04_JPRB /)
713 KA(:, 2, 8, 3) = (/ &
714 & 0.71217E-08_JPRB,0.13171E-06_JPRB,0.20115E-06_JPRB,0.17525E-06_JPRB,0.15189E-06_JPRB, &
715 & 0.11980E-06_JPRB,0.12589E-06_JPRB,0.17247E-06_JPRB,0.10844E-04_JPRB /)
716 KA(:, 3, 8, 3) = (/ &
717 & 0.76051E-08_JPRB,0.13463E-06_JPRB,0.20837E-06_JPRB,0.18092E-06_JPRB,0.15831E-06_JPRB, &
718 & 0.12491E-06_JPRB,0.12782E-06_JPRB,0.17568E-06_JPRB,0.10855E-04_JPRB /)
719 KA(:, 4, 8, 3) = (/ &
720 & 0.87276E-08_JPRB,0.14002E-06_JPRB,0.21488E-06_JPRB,0.18616E-06_JPRB,0.16272E-06_JPRB, &
721 & 0.12991E-06_JPRB,0.13139E-06_JPRB,0.17775E-06_JPRB,0.10873E-04_JPRB /)
722 KA(:, 5, 8, 3) = (/ &
723 & 0.98102E-08_JPRB,0.14390E-06_JPRB,0.21715E-06_JPRB,0.19383E-06_JPRB,0.16843E-06_JPRB, &
724 & 0.13102E-06_JPRB,0.13320E-06_JPRB,0.18001E-06_JPRB,0.10883E-04_JPRB /)
725 KA(:, 1, 9, 3) = (/ &
726 & 0.78846E-08_JPRB,0.14921E-06_JPRB,0.16266E-06_JPRB,0.21810E-06_JPRB,0.17257E-06_JPRB, &
727 & 0.13914E-06_JPRB,0.10621E-06_JPRB,0.13009E-06_JPRB,0.22193E-04_JPRB /)
728 KA(:, 2, 9, 3) = (/ &
729 & 0.87670E-08_JPRB,0.15667E-06_JPRB,0.17179E-06_JPRB,0.22870E-06_JPRB,0.18453E-06_JPRB, &
730 & 0.14806E-06_JPRB,0.11198E-06_JPRB,0.13228E-06_JPRB,0.22470E-04_JPRB /)
731 KA(:, 3, 9, 3) = (/ &
732 & 0.94042E-08_JPRB,0.16331E-06_JPRB,0.17929E-06_JPRB,0.23732E-06_JPRB,0.19309E-06_JPRB, &
733 & 0.15669E-06_JPRB,0.11769E-06_JPRB,0.13462E-06_JPRB,0.22759E-04_JPRB /)
734 KA(:, 4, 9, 3) = (/ &
735 & 0.10052E-07_JPRB,0.16738E-06_JPRB,0.18654E-06_JPRB,0.24428E-06_JPRB,0.19714E-06_JPRB, &
736 & 0.16469E-06_JPRB,0.12194E-06_JPRB,0.13694E-06_JPRB,0.23037E-04_JPRB /)
737 KA(:, 5, 9, 3) = (/ &
738 & 0.99609E-08_JPRB,0.16974E-06_JPRB,0.19096E-06_JPRB,0.25212E-06_JPRB,0.20604E-06_JPRB, &
739 & 0.17005E-06_JPRB,0.12529E-06_JPRB,0.13965E-06_JPRB,0.23331E-04_JPRB /)
740 KA(:, 1,10, 3) = (/ &
741 & 0.10600E-07_JPRB,0.19194E-06_JPRB,0.19694E-06_JPRB,0.19228E-06_JPRB,0.23306E-06_JPRB, &
742 & 0.18017E-06_JPRB,0.13563E-06_JPRB,0.11106E-06_JPRB,0.57833E-04_JPRB /)
743 KA(:, 2,10, 3) = (/ &
744 & 0.11513E-07_JPRB,0.19670E-06_JPRB,0.20600E-06_JPRB,0.20153E-06_JPRB,0.24712E-06_JPRB, &
745 & 0.19420E-06_JPRB,0.14374E-06_JPRB,0.11223E-06_JPRB,0.59252E-04_JPRB /)
746 KA(:, 3,10, 3) = (/ &
747 & 0.12267E-07_JPRB,0.20052E-06_JPRB,0.21125E-06_JPRB,0.21502E-06_JPRB,0.25879E-06_JPRB, &
748 & 0.20809E-06_JPRB,0.15257E-06_JPRB,0.11412E-06_JPRB,0.60474E-04_JPRB /)
749 KA(:, 4,10, 3) = (/ &
750 & 0.11377E-07_JPRB,0.20485E-06_JPRB,0.21479E-06_JPRB,0.22527E-06_JPRB,0.26884E-06_JPRB, &
751 & 0.21723E-06_JPRB,0.15872E-06_JPRB,0.11733E-06_JPRB,0.61380E-04_JPRB /)
752 KA(:, 5,10, 3) = (/ &
753 & 0.12141E-07_JPRB,0.20611E-06_JPRB,0.22439E-06_JPRB,0.22986E-06_JPRB,0.27411E-06_JPRB, &
754 & 0.22402E-06_JPRB,0.16342E-06_JPRB,0.11916E-06_JPRB,0.62353E-04_JPRB /)
755 KA(:, 1,11, 3) = (/ &
756 & 0.12251E-07_JPRB,0.29022E-06_JPRB,0.24496E-06_JPRB,0.24059E-06_JPRB,0.21631E-06_JPRB, &
757 & 0.23923E-06_JPRB,0.16597E-06_JPRB,0.10842E-06_JPRB,0.80074E-04_JPRB /)
758 KA(:, 2,11, 3) = (/ &
759 & 0.12224E-07_JPRB,0.29680E-06_JPRB,0.25368E-06_JPRB,0.24691E-06_JPRB,0.22294E-06_JPRB, &
760 & 0.24912E-06_JPRB,0.17747E-06_JPRB,0.10969E-06_JPRB,0.81125E-04_JPRB /)
761 KA(:, 3,11, 3) = (/ &
762 & 0.14264E-07_JPRB,0.29886E-06_JPRB,0.26040E-06_JPRB,0.25256E-06_JPRB,0.23184E-06_JPRB, &
763 & 0.25957E-06_JPRB,0.18845E-06_JPRB,0.11123E-06_JPRB,0.82960E-04_JPRB /)
764 KA(:, 4,11, 3) = (/ &
765 & 0.16608E-07_JPRB,0.30056E-06_JPRB,0.26198E-06_JPRB,0.25724E-06_JPRB,0.23897E-06_JPRB, &
766 & 0.26977E-06_JPRB,0.19716E-06_JPRB,0.11521E-06_JPRB,0.84911E-04_JPRB /)
767 KA(:, 5,11, 3) = (/ &
768 & 0.18982E-07_JPRB,0.30200E-06_JPRB,0.26559E-06_JPRB,0.26090E-06_JPRB,0.24427E-06_JPRB, &
769 & 0.27763E-06_JPRB,0.20825E-06_JPRB,0.11858E-06_JPRB,0.86586E-04_JPRB /)
770 KA(:, 1,12, 3) = (/ &
771 & 0.16186E-07_JPRB,0.36864E-06_JPRB,0.27735E-06_JPRB,0.24475E-06_JPRB,0.23659E-06_JPRB, &
772 & 0.20178E-06_JPRB,0.20651E-06_JPRB,0.11504E-06_JPRB,0.90323E-04_JPRB /)
773 KA(:, 2,12, 3) = (/ &
774 & 0.16900E-07_JPRB,0.36903E-06_JPRB,0.27865E-06_JPRB,0.25015E-06_JPRB,0.24279E-06_JPRB, &
775 & 0.21379E-06_JPRB,0.22149E-06_JPRB,0.12739E-06_JPRB,0.92788E-04_JPRB /)
776 KA(:, 3,12, 3) = (/ &
777 & 0.18900E-07_JPRB,0.36546E-06_JPRB,0.28369E-06_JPRB,0.25919E-06_JPRB,0.24650E-06_JPRB, &
778 & 0.22349E-06_JPRB,0.23741E-06_JPRB,0.13455E-06_JPRB,0.94381E-04_JPRB /)
779 KA(:, 4,12, 3) = (/ &
780 & 0.24666E-07_JPRB,0.36289E-06_JPRB,0.28992E-06_JPRB,0.26755E-06_JPRB,0.25261E-06_JPRB, &
781 & 0.23012E-06_JPRB,0.24862E-06_JPRB,0.14012E-06_JPRB,0.95689E-04_JPRB /)
782 KA(:, 5,12, 3) = (/ &
783 & 0.28047E-07_JPRB,0.36144E-06_JPRB,0.29439E-06_JPRB,0.27280E-06_JPRB,0.25910E-06_JPRB, &
784 & 0.23527E-06_JPRB,0.25804E-06_JPRB,0.14441E-06_JPRB,0.97273E-04_JPRB /)
785 KA(:, 1,13, 3) = (/ &
786 & 0.27099E-07_JPRB,0.42452E-06_JPRB,0.36469E-06_JPRB,0.28012E-06_JPRB,0.24206E-06_JPRB, &
787 & 0.21452E-06_JPRB,0.19737E-06_JPRB,0.12552E-06_JPRB,0.93221E-04_JPRB /)
788 KA(:, 2,13, 3) = (/ &
789 & 0.30641E-07_JPRB,0.42348E-06_JPRB,0.36821E-06_JPRB,0.29049E-06_JPRB,0.25191E-06_JPRB, &
790 & 0.22447E-06_JPRB,0.20459E-06_JPRB,0.13174E-06_JPRB,0.95326E-04_JPRB /)
791 KA(:, 3,13, 3) = (/ &
792 & 0.31538E-07_JPRB,0.42218E-06_JPRB,0.36978E-06_JPRB,0.29801E-06_JPRB,0.26042E-06_JPRB, &
793 & 0.23413E-06_JPRB,0.21354E-06_JPRB,0.13999E-06_JPRB,0.97244E-04_JPRB /)
794 KA(:, 4,13, 3) = (/ &
795 & 0.33087E-07_JPRB,0.42233E-06_JPRB,0.36980E-06_JPRB,0.30223E-06_JPRB,0.26697E-06_JPRB, &
796 & 0.24077E-06_JPRB,0.22289E-06_JPRB,0.14849E-06_JPRB,0.99282E-04_JPRB /)
797 KA(:, 5,13, 3) = (/ &
798 & 0.35771E-07_JPRB,0.42124E-06_JPRB,0.36949E-06_JPRB,0.30814E-06_JPRB,0.27423E-06_JPRB, &
799 & 0.24510E-06_JPRB,0.22998E-06_JPRB,0.15431E-06_JPRB,0.10189E-03_JPRB /)
800 KA(:, 1, 1, 4) = (/ &
801 & 0.60599E-08_JPRB,0.49839E-06_JPRB,0.90796E-06_JPRB,0.12825E-05_JPRB,0.16387E-05_JPRB, &
802 & 0.20000E-05_JPRB,0.24097E-05_JPRB,0.30198E-05_JPRB,0.14012E-05_JPRB /)
803 KA(:, 2, 1, 4) = (/ &
804 & 0.57361E-08_JPRB,0.51373E-06_JPRB,0.93344E-06_JPRB,0.13150E-05_JPRB,0.16776E-05_JPRB, &
805 & 0.20412E-05_JPRB,0.24476E-05_JPRB,0.30155E-05_JPRB,0.14079E-05_JPRB /)
806 KA(:, 3, 1, 4) = (/ &
807 & 0.61895E-08_JPRB,0.64074E-06_JPRB,0.11706E-05_JPRB,0.16523E-05_JPRB,0.21138E-05_JPRB, &
808 & 0.25765E-05_JPRB,0.30714E-05_JPRB,0.37148E-05_JPRB,0.20046E-05_JPRB /)
809 KA(:, 4, 1, 4) = (/ &
810 & 0.63590E-08_JPRB,0.53918E-06_JPRB,0.97233E-06_JPRB,0.13614E-05_JPRB,0.17274E-05_JPRB, &
811 & 0.21018E-05_JPRB,0.24992E-05_JPRB,0.30391E-05_JPRB,0.14106E-05_JPRB /)
812 KA(:, 5, 1, 4) = (/ &
813 & 0.66907E-08_JPRB,0.54769E-06_JPRB,0.98459E-06_JPRB,0.13756E-05_JPRB,0.17428E-05_JPRB, &
814 & 0.21216E-05_JPRB,0.25190E-05_JPRB,0.30528E-05_JPRB,0.14057E-05_JPRB /)
815 KA(:, 1, 2, 4) = (/ &
816 & 0.63247E-08_JPRB,0.40976E-06_JPRB,0.75743E-06_JPRB,0.10729E-05_JPRB,0.13776E-05_JPRB, &
817 & 0.16847E-05_JPRB,0.20386E-05_JPRB,0.25923E-05_JPRB,0.11016E-05_JPRB /)
818 KA(:, 2, 2, 4) = (/ &
819 & 0.71971E-08_JPRB,0.42277E-06_JPRB,0.77866E-06_JPRB,0.11006E-05_JPRB,0.14075E-05_JPRB, &
820 & 0.17208E-05_JPRB,0.20689E-05_JPRB,0.25842E-05_JPRB,0.11093E-05_JPRB /)
821 KA(:, 3, 2, 4) = (/ &
822 & 0.68862E-08_JPRB,0.54111E-06_JPRB,0.99924E-06_JPRB,0.14135E-05_JPRB,0.18137E-05_JPRB, &
823 & 0.22190E-05_JPRB,0.26613E-05_JPRB,0.32636E-05_JPRB,0.16377E-05_JPRB /)
824 KA(:, 4, 2, 4) = (/ &
825 & 0.74570E-08_JPRB,0.54374E-06_JPRB,0.10016E-05_JPRB,0.14142E-05_JPRB,0.18118E-05_JPRB, &
826 & 0.22093E-05_JPRB,0.26451E-05_JPRB,0.32306E-05_JPRB,0.16062E-05_JPRB /)
827 KA(:, 5, 2, 4) = (/ &
828 & 0.76975E-08_JPRB,0.44890E-06_JPRB,0.82016E-06_JPRB,0.11488E-05_JPRB,0.14591E-05_JPRB, &
829 & 0.17814E-05_JPRB,0.21241E-05_JPRB,0.26089E-05_JPRB,0.11145E-05_JPRB /)
830 KA(:, 1, 3, 4) = (/ &
831 & 0.83656E-08_JPRB,0.31311E-06_JPRB,0.61949E-06_JPRB,0.88176E-06_JPRB,0.11379E-05_JPRB, &
832 & 0.13977E-05_JPRB,0.17043E-05_JPRB,0.22078E-05_JPRB,0.73836E-06_JPRB /)
833 KA(:, 2, 3, 4) = (/ &
834 & 0.85171E-08_JPRB,0.32573E-06_JPRB,0.63573E-06_JPRB,0.90517E-06_JPRB,0.11641E-05_JPRB, &
835 & 0.14286E-05_JPRB,0.17247E-05_JPRB,0.21938E-05_JPRB,0.74285E-06_JPRB /)
836 KA(:, 3, 3, 4) = (/ &
837 & 0.78702E-08_JPRB,0.33673E-06_JPRB,0.64948E-06_JPRB,0.92347E-06_JPRB,0.11844E-05_JPRB, &
838 & 0.14525E-05_JPRB,0.17473E-05_JPRB,0.21823E-05_JPRB,0.74417E-06_JPRB /)
839 KA(:, 4, 3, 4) = (/ &
840 & 0.88135E-08_JPRB,0.44484E-06_JPRB,0.84006E-06_JPRB,0.11924E-05_JPRB,0.15326E-05_JPRB, &
841 & 0.18766E-05_JPRB,0.22592E-05_JPRB,0.27980E-05_JPRB,0.11629E-05_JPRB /)
842 KA(:, 5, 3, 4) = (/ &
843 & 0.83594E-08_JPRB,0.34852E-06_JPRB,0.67171E-06_JPRB,0.94786E-06_JPRB,0.12080E-05_JPRB, &
844 & 0.14818E-05_JPRB,0.17721E-05_JPRB,0.22017E-05_JPRB,0.74162E-06_JPRB /)
845 KA(:, 1, 4, 4) = (/ &
846 & 0.82233E-08_JPRB,0.22714E-06_JPRB,0.49574E-06_JPRB,0.71618E-06_JPRB,0.92897E-06_JPRB, &
847 & 0.11522E-05_JPRB,0.14150E-05_JPRB,0.18749E-05_JPRB,0.10829E-05_JPRB /)
848 KA(:, 2, 4, 4) = (/ &
849 & 0.90906E-08_JPRB,0.23281E-06_JPRB,0.51082E-06_JPRB,0.73615E-06_JPRB,0.95322E-06_JPRB, &
850 & 0.11749E-05_JPRB,0.14287E-05_JPRB,0.18456E-05_JPRB,0.10964E-05_JPRB /)
851 KA(:, 3, 4, 4) = (/ &
852 & 0.10403E-07_JPRB,0.23873E-06_JPRB,0.52083E-06_JPRB,0.75142E-06_JPRB,0.97057E-06_JPRB, &
853 & 0.11959E-05_JPRB,0.14456E-05_JPRB,0.18299E-05_JPRB,0.11024E-05_JPRB /)
854 KA(:, 4, 4, 4) = (/ &
855 & 0.11681E-07_JPRB,0.24287E-06_JPRB,0.52982E-06_JPRB,0.76518E-06_JPRB,0.98418E-06_JPRB, &
856 & 0.12105E-05_JPRB,0.14593E-05_JPRB,0.18314E-05_JPRB,0.11002E-05_JPRB /)
857 KA(:, 5, 4, 4) = (/ &
858 & 0.11781E-07_JPRB,0.32919E-06_JPRB,0.69041E-06_JPRB,0.99008E-06_JPRB,0.12781E-05_JPRB, &
859 & 0.15684E-05_JPRB,0.18900E-05_JPRB,0.23626E-05_JPRB,0.11507E-05_JPRB /)
860 KA(:, 1, 5, 4) = (/ &
861 & 0.10746E-07_JPRB,0.16960E-06_JPRB,0.36271E-06_JPRB,0.57393E-06_JPRB,0.75088E-06_JPRB, &
862 & 0.94078E-06_JPRB,0.11700E-05_JPRB,0.15610E-05_JPRB,0.23060E-05_JPRB /)
863 KA(:, 2, 5, 4) = (/ &
864 & 0.12322E-07_JPRB,0.17145E-06_JPRB,0.37466E-06_JPRB,0.58975E-06_JPRB,0.77156E-06_JPRB, &
865 & 0.96051E-06_JPRB,0.11773E-05_JPRB,0.15431E-05_JPRB,0.23550E-05_JPRB /)
866 KA(:, 3, 5, 4) = (/ &
867 & 0.12362E-07_JPRB,0.17491E-06_JPRB,0.38517E-06_JPRB,0.60273E-06_JPRB,0.78779E-06_JPRB, &
868 & 0.97831E-06_JPRB,0.11895E-05_JPRB,0.15264E-05_JPRB,0.23946E-05_JPRB /)
869 KA(:, 4, 5, 4) = (/ &
870 & 0.11932E-07_JPRB,0.17603E-06_JPRB,0.39310E-06_JPRB,0.61276E-06_JPRB,0.80198E-06_JPRB, &
871 & 0.99168E-06_JPRB,0.12014E-05_JPRB,0.15209E-05_JPRB,0.24122E-05_JPRB /)
872 KA(:, 5, 5, 4) = (/ &
873 & 0.12827E-07_JPRB,0.23797E-06_JPRB,0.54915E-06_JPRB,0.81314E-06_JPRB,0.10605E-05_JPRB, &
874 & 0.13079E-05_JPRB,0.15848E-05_JPRB,0.19982E-05_JPRB,0.26265E-05_JPRB /)
875 KA(:, 1, 6, 4) = (/ &
876 & 0.16887E-07_JPRB,0.16918E-06_JPRB,0.26182E-06_JPRB,0.43955E-06_JPRB,0.59876E-06_JPRB, &
877 & 0.76220E-06_JPRB,0.96205E-06_JPRB,0.12977E-05_JPRB,0.30196E-05_JPRB /)
878 KA(:, 2, 6, 4) = (/ &
879 & 0.16463E-07_JPRB,0.17256E-06_JPRB,0.26723E-06_JPRB,0.45266E-06_JPRB,0.61330E-06_JPRB, &
880 & 0.77949E-06_JPRB,0.96881E-06_JPRB,0.12938E-05_JPRB,0.31027E-05_JPRB /)
881 KA(:, 3, 6, 4) = (/ &
882 & 0.14297E-07_JPRB,0.17174E-06_JPRB,0.27626E-06_JPRB,0.46141E-06_JPRB,0.62873E-06_JPRB, &
883 & 0.79335E-06_JPRB,0.97523E-06_JPRB,0.12716E-05_JPRB,0.31487E-05_JPRB /)
884 KA(:, 4, 6, 4) = (/ &
885 & 0.15984E-07_JPRB,0.17093E-06_JPRB,0.27951E-06_JPRB,0.46972E-06_JPRB,0.64062E-06_JPRB, &
886 & 0.80616E-06_JPRB,0.98183E-06_JPRB,0.12602E-05_JPRB,0.31591E-05_JPRB /)
887 KA(:, 5, 6, 4) = (/ &
888 & 0.17832E-07_JPRB,0.17197E-06_JPRB,0.28124E-06_JPRB,0.47610E-06_JPRB,0.64900E-06_JPRB, &
889 & 0.81537E-06_JPRB,0.99403E-06_JPRB,0.12613E-05_JPRB,0.32001E-05_JPRB /)
890 KA(:, 1, 7, 4) = (/ &
891 & 0.19543E-07_JPRB,0.20424E-06_JPRB,0.20827E-06_JPRB,0.30613E-06_JPRB,0.46038E-06_JPRB, &
892 & 0.61052E-06_JPRB,0.78796E-06_JPRB,0.10769E-05_JPRB,0.53495E-05_JPRB /)
893 KA(:, 2, 7, 4) = (/ &
894 & 0.21943E-07_JPRB,0.20486E-06_JPRB,0.21292E-06_JPRB,0.31650E-06_JPRB,0.47369E-06_JPRB, &
895 & 0.62546E-06_JPRB,0.78997E-06_JPRB,0.10696E-05_JPRB,0.53612E-05_JPRB /)
896 KA(:, 3, 7, 4) = (/ &
897 & 0.23096E-07_JPRB,0.20519E-06_JPRB,0.21260E-06_JPRB,0.32419E-06_JPRB,0.48522E-06_JPRB, &
898 & 0.63494E-06_JPRB,0.79556E-06_JPRB,0.10562E-05_JPRB,0.54125E-05_JPRB /)
899 KA(:, 4, 7, 4) = (/ &
900 & 0.23811E-07_JPRB,0.20761E-06_JPRB,0.21334E-06_JPRB,0.32752E-06_JPRB,0.49467E-06_JPRB, &
901 & 0.64456E-06_JPRB,0.80411E-06_JPRB,0.10435E-05_JPRB,0.54920E-05_JPRB /)
902 KA(:, 5, 7, 4) = (/ &
903 & 0.23502E-07_JPRB,0.20918E-06_JPRB,0.21430E-06_JPRB,0.32878E-06_JPRB,0.50037E-06_JPRB, &
904 & 0.65413E-06_JPRB,0.80879E-06_JPRB,0.10409E-05_JPRB,0.55076E-05_JPRB /)
905 KA(:, 1, 8, 4) = (/ &
906 & 0.28818E-07_JPRB,0.26386E-06_JPRB,0.23322E-06_JPRB,0.23394E-06_JPRB,0.31766E-06_JPRB, &
907 & 0.47372E-06_JPRB,0.64268E-06_JPRB,0.89272E-06_JPRB,0.10691E-04_JPRB /)
908 KA(:, 2, 8, 4) = (/ &
909 & 0.30094E-07_JPRB,0.27235E-06_JPRB,0.23524E-06_JPRB,0.24245E-06_JPRB,0.32636E-06_JPRB, &
910 & 0.48411E-06_JPRB,0.63773E-06_JPRB,0.88040E-06_JPRB,0.10770E-04_JPRB /)
911 KA(:, 3, 8, 4) = (/ &
912 & 0.32474E-07_JPRB,0.27799E-06_JPRB,0.23717E-06_JPRB,0.24789E-06_JPRB,0.33554E-06_JPRB, &
913 & 0.49304E-06_JPRB,0.64255E-06_JPRB,0.87788E-06_JPRB,0.10799E-04_JPRB /)
914 KA(:, 4, 8, 4) = (/ &
915 & 0.33631E-07_JPRB,0.28020E-06_JPRB,0.23819E-06_JPRB,0.25000E-06_JPRB,0.34187E-06_JPRB, &
916 & 0.49874E-06_JPRB,0.64803E-06_JPRB,0.86373E-06_JPRB,0.10824E-04_JPRB /)
917 KA(:, 5, 8, 4) = (/ &
918 & 0.34597E-07_JPRB,0.28107E-06_JPRB,0.24266E-06_JPRB,0.24933E-06_JPRB,0.34607E-06_JPRB, &
919 & 0.50692E-06_JPRB,0.65081E-06_JPRB,0.85686E-06_JPRB,0.10819E-04_JPRB /)
920 KA(:, 1, 9, 4) = (/ &
921 & 0.37049E-07_JPRB,0.33070E-06_JPRB,0.32147E-06_JPRB,0.25828E-06_JPRB,0.24460E-06_JPRB, &
922 & 0.33057E-06_JPRB,0.51182E-06_JPRB,0.72970E-06_JPRB,0.32667E-04_JPRB /)
923 KA(:, 2, 9, 4) = (/ &
924 & 0.39634E-07_JPRB,0.34282E-06_JPRB,0.32875E-06_JPRB,0.26785E-06_JPRB,0.25757E-06_JPRB, &
925 & 0.33579E-06_JPRB,0.50462E-06_JPRB,0.72240E-06_JPRB,0.32638E-04_JPRB /)
926 KA(:, 3, 9, 4) = (/ &
927 & 0.42012E-07_JPRB,0.34998E-06_JPRB,0.33495E-06_JPRB,0.27514E-06_JPRB,0.26581E-06_JPRB, &
928 & 0.33988E-06_JPRB,0.50360E-06_JPRB,0.72105E-06_JPRB,0.32828E-04_JPRB /)
929 KA(:, 4, 9, 4) = (/ &
930 & 0.43216E-07_JPRB,0.35061E-06_JPRB,0.33953E-06_JPRB,0.28140E-06_JPRB,0.27172E-06_JPRB, &
931 & 0.34266E-06_JPRB,0.50914E-06_JPRB,0.70829E-06_JPRB,0.32970E-04_JPRB /)
932 KA(:, 5, 9, 4) = (/ &
933 & 0.43838E-07_JPRB,0.35447E-06_JPRB,0.34674E-06_JPRB,0.28252E-06_JPRB,0.27122E-06_JPRB, &
934 & 0.34740E-06_JPRB,0.51058E-06_JPRB,0.70194E-06_JPRB,0.33023E-04_JPRB /)
935 KA(:, 1,10, 4) = (/ &
936 & 0.46492E-07_JPRB,0.34673E-06_JPRB,0.43959E-06_JPRB,0.39620E-06_JPRB,0.30969E-06_JPRB, &
937 & 0.25359E-06_JPRB,0.35579E-06_JPRB,0.58999E-06_JPRB,0.75308E-04_JPRB /)
938 KA(:, 2,10, 4) = (/ &
939 & 0.51642E-07_JPRB,0.35814E-06_JPRB,0.45251E-06_JPRB,0.40694E-06_JPRB,0.31643E-06_JPRB, &
940 & 0.25658E-06_JPRB,0.34700E-06_JPRB,0.58340E-06_JPRB,0.75445E-04_JPRB /)
941 KA(:, 3,10, 4) = (/ &
942 & 0.55139E-07_JPRB,0.36959E-06_JPRB,0.46273E-06_JPRB,0.41592E-06_JPRB,0.32168E-06_JPRB, &
943 & 0.26320E-06_JPRB,0.34598E-06_JPRB,0.57972E-06_JPRB,0.75796E-04_JPRB /)
944 KA(:, 4,10, 4) = (/ &
945 & 0.58094E-07_JPRB,0.37731E-06_JPRB,0.47160E-06_JPRB,0.41969E-06_JPRB,0.32536E-06_JPRB, &
946 & 0.27186E-06_JPRB,0.34692E-06_JPRB,0.57173E-06_JPRB,0.76680E-04_JPRB /)
947 KA(:, 5,10, 4) = (/ &
948 & 0.62665E-07_JPRB,0.38529E-06_JPRB,0.47122E-06_JPRB,0.42322E-06_JPRB,0.32990E-06_JPRB, &
949 & 0.28125E-06_JPRB,0.34920E-06_JPRB,0.56204E-06_JPRB,0.77515E-04_JPRB /)
950
951 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART3',1,ZHOOK_HANDLE)
952 END SUBROUTINE PART3
953
954
955 SUBROUTINE PART4
956
957 REAL(KIND=JPRB) :: ZHOOK_HANDLE
958 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART4',0,ZHOOK_HANDLE)
959
960
961 KA(:, 1,11, 4) = (/ &
962 & 0.71997E-07_JPRB,0.39039E-06_JPRB,0.48930E-06_JPRB,0.52037E-06_JPRB,0.44835E-06_JPRB, &
963 & 0.32920E-06_JPRB,0.25424E-06_JPRB,0.45719E-06_JPRB,0.97599E-04_JPRB /)
964 KA(:, 2,11, 4) = (/ &
965 & 0.84174E-07_JPRB,0.39220E-06_JPRB,0.49753E-06_JPRB,0.53466E-06_JPRB,0.46035E-06_JPRB, &
966 & 0.34028E-06_JPRB,0.25580E-06_JPRB,0.44804E-06_JPRB,0.98017E-04_JPRB /)
967 KA(:, 3,11, 4) = (/ &
968 & 0.88241E-07_JPRB,0.39809E-06_JPRB,0.50514E-06_JPRB,0.54464E-06_JPRB,0.47069E-06_JPRB, &
969 & 0.34919E-06_JPRB,0.25830E-06_JPRB,0.44783E-06_JPRB,0.97609E-04_JPRB /)
970 KA(:, 4,11, 4) = (/ &
971 & 0.93462E-07_JPRB,0.40271E-06_JPRB,0.51216E-06_JPRB,0.55531E-06_JPRB,0.48178E-06_JPRB, &
972 & 0.35530E-06_JPRB,0.26505E-06_JPRB,0.43524E-06_JPRB,0.97099E-04_JPRB /)
973 KA(:, 5,11, 4) = (/ &
974 & 0.96966E-07_JPRB,0.40660E-06_JPRB,0.51682E-06_JPRB,0.56367E-06_JPRB,0.48662E-06_JPRB, &
975 & 0.35706E-06_JPRB,0.26903E-06_JPRB,0.42986E-06_JPRB,0.97653E-04_JPRB /)
976 KA(:, 1,12, 4) = (/ &
977 & 0.99102E-07_JPRB,0.42179E-06_JPRB,0.46920E-06_JPRB,0.54974E-06_JPRB,0.50699E-06_JPRB, &
978 & 0.41543E-06_JPRB,0.26692E-06_JPRB,0.34287E-06_JPRB,0.10692E-03_JPRB /)
979 KA(:, 2,12, 4) = (/ &
980 & 0.10220E-06_JPRB,0.42343E-06_JPRB,0.48263E-06_JPRB,0.56179E-06_JPRB,0.52088E-06_JPRB, &
981 & 0.42826E-06_JPRB,0.27416E-06_JPRB,0.32165E-06_JPRB,0.10849E-03_JPRB /)
982 KA(:, 3,12, 4) = (/ &
983 & 0.10736E-06_JPRB,0.42994E-06_JPRB,0.49237E-06_JPRB,0.56848E-06_JPRB,0.53837E-06_JPRB, &
984 & 0.43862E-06_JPRB,0.28070E-06_JPRB,0.31402E-06_JPRB,0.10890E-03_JPRB /)
985 KA(:, 4,12, 4) = (/ &
986 & 0.10535E-06_JPRB,0.42853E-06_JPRB,0.49830E-06_JPRB,0.57259E-06_JPRB,0.55337E-06_JPRB, &
987 & 0.45117E-06_JPRB,0.28964E-06_JPRB,0.30229E-06_JPRB,0.11005E-03_JPRB /)
988 KA(:, 5,12, 4) = (/ &
989 & 0.10635E-06_JPRB,0.42826E-06_JPRB,0.50038E-06_JPRB,0.57688E-06_JPRB,0.56182E-06_JPRB, &
990 & 0.45862E-06_JPRB,0.29473E-06_JPRB,0.29904E-06_JPRB,0.11056E-03_JPRB /)
991 KA(:, 1,13, 4) = (/ &
992 & 0.11521E-06_JPRB,0.43118E-06_JPRB,0.49222E-06_JPRB,0.52624E-06_JPRB,0.55771E-06_JPRB, &
993 & 0.47186E-06_JPRB,0.32691E-06_JPRB,0.24833E-06_JPRB,0.10886E-03_JPRB /)
994 KA(:, 2,13, 4) = (/ &
995 & 0.11730E-06_JPRB,0.43904E-06_JPRB,0.49350E-06_JPRB,0.54164E-06_JPRB,0.56845E-06_JPRB, &
996 & 0.49098E-06_JPRB,0.34261E-06_JPRB,0.23938E-06_JPRB,0.11077E-03_JPRB /)
997 KA(:, 3,13, 4) = (/ &
998 & 0.11952E-06_JPRB,0.44327E-06_JPRB,0.50284E-06_JPRB,0.55816E-06_JPRB,0.58198E-06_JPRB, &
999 & 0.50372E-06_JPRB,0.35861E-06_JPRB,0.22850E-06_JPRB,0.11296E-03_JPRB /)
1000 KA(:, 4,13, 4) = (/ &
1001 & 0.11965E-06_JPRB,0.44664E-06_JPRB,0.51058E-06_JPRB,0.56661E-06_JPRB,0.59093E-06_JPRB, &
1002 & 0.51146E-06_JPRB,0.36596E-06_JPRB,0.22349E-06_JPRB,0.11560E-03_JPRB /)
1003 KA(:, 5,13, 4) = (/ &
1004 & 0.12171E-06_JPRB,0.45566E-06_JPRB,0.52364E-06_JPRB,0.57439E-06_JPRB,0.59010E-06_JPRB, &
1005 & 0.52011E-06_JPRB,0.37200E-06_JPRB,0.22417E-06_JPRB,0.11598E-03_JPRB /)
1006 KA(:, 1, 1, 5) = (/ &
1007 & 0.64393E-08_JPRB,0.14477E-05_JPRB,0.26383E-05_JPRB,0.37578E-05_JPRB,0.48497E-05_JPRB, &
1008 & 0.58771E-05_JPRB,0.69748E-05_JPRB,0.83337E-05_JPRB,0.52972E-05_JPRB /)
1009 KA(:, 2, 1, 5) = (/ &
1010 & 0.74788E-08_JPRB,0.14813E-05_JPRB,0.26820E-05_JPRB,0.38123E-05_JPRB,0.49043E-05_JPRB, &
1011 & 0.59719E-05_JPRB,0.70794E-05_JPRB,0.84777E-05_JPRB,0.53686E-05_JPRB /)
1012 KA(:, 3, 1, 5) = (/ &
1013 & 0.70698E-08_JPRB,0.17381E-05_JPRB,0.31521E-05_JPRB,0.44815E-05_JPRB,0.57370E-05_JPRB, &
1014 & 0.69696E-05_JPRB,0.82426E-05_JPRB,0.98195E-05_JPRB,0.67445E-05_JPRB /)
1015 KA(:, 4, 1, 5) = (/ &
1016 & 0.75728E-08_JPRB,0.15363E-05_JPRB,0.27544E-05_JPRB,0.38956E-05_JPRB,0.49855E-05_JPRB, &
1017 & 0.60556E-05_JPRB,0.72284E-05_JPRB,0.86770E-05_JPRB,0.54442E-05_JPRB /)
1018 KA(:, 5, 1, 5) = (/ &
1019 & 0.72646E-08_JPRB,0.15573E-05_JPRB,0.27840E-05_JPRB,0.39266E-05_JPRB,0.50091E-05_JPRB, &
1020 & 0.60781E-05_JPRB,0.72327E-05_JPRB,0.87344E-05_JPRB,0.54537E-05_JPRB /)
1021 KA(:, 1, 2, 5) = (/ &
1022 & 0.91682E-08_JPRB,0.12471E-05_JPRB,0.22727E-05_JPRB,0.32462E-05_JPRB,0.42007E-05_JPRB, &
1023 & 0.51012E-05_JPRB,0.60761E-05_JPRB,0.73379E-05_JPRB,0.44448E-05_JPRB /)
1024 KA(:, 2, 2, 5) = (/ &
1025 & 0.78841E-08_JPRB,0.12745E-05_JPRB,0.23098E-05_JPRB,0.32938E-05_JPRB,0.42384E-05_JPRB, &
1026 & 0.51817E-05_JPRB,0.61658E-05_JPRB,0.74615E-05_JPRB,0.44925E-05_JPRB /)
1027 KA(:, 3, 2, 5) = (/ &
1028 & 0.88457E-08_JPRB,0.15305E-05_JPRB,0.27824E-05_JPRB,0.39573E-05_JPRB,0.50820E-05_JPRB, &
1029 & 0.61863E-05_JPRB,0.73547E-05_JPRB,0.88186E-05_JPRB,0.58192E-05_JPRB /)
1030 KA(:, 4, 2, 5) = (/ &
1031 & 0.81699E-08_JPRB,0.15379E-05_JPRB,0.27884E-05_JPRB,0.39554E-05_JPRB,0.50640E-05_JPRB, &
1032 & 0.61598E-05_JPRB,0.73260E-05_JPRB,0.88047E-05_JPRB,0.57596E-05_JPRB /)
1033 KA(:, 5, 2, 5) = (/ &
1034 & 0.81267E-08_JPRB,0.13345E-05_JPRB,0.23941E-05_JPRB,0.33760E-05_JPRB,0.43121E-05_JPRB, &
1035 & 0.52406E-05_JPRB,0.62663E-05_JPRB,0.76657E-05_JPRB,0.45393E-05_JPRB /)
1036 KA(:, 1, 3, 5) = (/ &
1037 & 0.91717E-08_JPRB,0.10541E-05_JPRB,0.19313E-05_JPRB,0.27682E-05_JPRB,0.35915E-05_JPRB, &
1038 & 0.43666E-05_JPRB,0.52222E-05_JPRB,0.63759E-05_JPRB,0.36110E-05_JPRB /)
1039 KA(:, 2, 3, 5) = (/ &
1040 & 0.10331E-07_JPRB,0.10789E-05_JPRB,0.19645E-05_JPRB,0.28075E-05_JPRB,0.36240E-05_JPRB, &
1041 & 0.44392E-05_JPRB,0.52990E-05_JPRB,0.64883E-05_JPRB,0.36530E-05_JPRB /)
1042 KA(:, 3, 3, 5) = (/ &
1043 & 0.12324E-07_JPRB,0.10988E-05_JPRB,0.19944E-05_JPRB,0.28363E-05_JPRB,0.36532E-05_JPRB, &
1044 & 0.44650E-05_JPRB,0.53622E-05_JPRB,0.65761E-05_JPRB,0.36791E-05_JPRB /)
1045 KA(:, 4, 3, 5) = (/ &
1046 & 0.11596E-07_JPRB,0.13389E-05_JPRB,0.24365E-05_JPRB,0.34597E-05_JPRB,0.44354E-05_JPRB, &
1047 & 0.54167E-05_JPRB,0.64681E-05_JPRB,0.78697E-05_JPRB,0.48568E-05_JPRB /)
1048 KA(:, 5, 3, 5) = (/ &
1049 & 0.11476E-07_JPRB,0.11282E-05_JPRB,0.20370E-05_JPRB,0.28768E-05_JPRB,0.36785E-05_JPRB, &
1050 & 0.44764E-05_JPRB,0.53828E-05_JPRB,0.66660E-05_JPRB,0.36841E-05_JPRB /)
1051 KA(:, 1, 4, 5) = (/ &
1052 & 0.12942E-07_JPRB,0.87057E-06_JPRB,0.16185E-05_JPRB,0.23328E-05_JPRB,0.30327E-05_JPRB, &
1053 & 0.36939E-05_JPRB,0.44351E-05_JPRB,0.54720E-05_JPRB,0.21271E-05_JPRB /)
1054 KA(:, 2, 4, 5) = (/ &
1055 & 0.12911E-07_JPRB,0.89351E-06_JPRB,0.16491E-05_JPRB,0.23657E-05_JPRB,0.30660E-05_JPRB, &
1056 & 0.37589E-05_JPRB,0.45049E-05_JPRB,0.55808E-05_JPRB,0.21315E-05_JPRB /)
1057 KA(:, 3, 4, 5) = (/ &
1058 & 0.11919E-07_JPRB,0.91285E-06_JPRB,0.16762E-05_JPRB,0.23907E-05_JPRB,0.30911E-05_JPRB, &
1059 & 0.37889E-05_JPRB,0.45584E-05_JPRB,0.56554E-05_JPRB,0.21302E-05_JPRB /)
1060 KA(:, 4, 4, 5) = (/ &
1061 & 0.12644E-07_JPRB,0.92680E-06_JPRB,0.16966E-05_JPRB,0.24115E-05_JPRB,0.31023E-05_JPRB, &
1062 & 0.37973E-05_JPRB,0.46002E-05_JPRB,0.57029E-05_JPRB,0.21090E-05_JPRB /)
1063 KA(:, 5, 4, 5) = (/ &
1064 & 0.14252E-07_JPRB,0.11501E-05_JPRB,0.21042E-05_JPRB,0.29827E-05_JPRB,0.38200E-05_JPRB, &
1065 & 0.46680E-05_JPRB,0.55977E-05_JPRB,0.69211E-05_JPRB,0.32123E-05_JPRB /)
1066 KA(:, 1, 5, 5) = (/ &
1067 & 0.14457E-07_JPRB,0.68848E-06_JPRB,0.13403E-05_JPRB,0.19448E-05_JPRB,0.25364E-05_JPRB, &
1068 & 0.30956E-05_JPRB,0.37236E-05_JPRB,0.46561E-05_JPRB,0.23476E-05_JPRB /)
1069 KA(:, 2, 5, 5) = (/ &
1070 & 0.13664E-07_JPRB,0.70724E-06_JPRB,0.13666E-05_JPRB,0.19744E-05_JPRB,0.25701E-05_JPRB, &
1071 & 0.31515E-05_JPRB,0.37903E-05_JPRB,0.47386E-05_JPRB,0.23292E-05_JPRB /)
1072 KA(:, 3, 5, 5) = (/ &
1073 & 0.16363E-07_JPRB,0.72382E-06_JPRB,0.13894E-05_JPRB,0.19966E-05_JPRB,0.25908E-05_JPRB, &
1074 & 0.31942E-05_JPRB,0.38380E-05_JPRB,0.48063E-05_JPRB,0.23210E-05_JPRB /)
1075 KA(:, 4, 5, 5) = (/ &
1076 & 0.18854E-07_JPRB,0.73645E-06_JPRB,0.14075E-05_JPRB,0.20143E-05_JPRB,0.25995E-05_JPRB, &
1077 & 0.31924E-05_JPRB,0.38751E-05_JPRB,0.48509E-05_JPRB,0.23084E-05_JPRB /)
1078 KA(:, 5, 5, 5) = (/ &
1079 & 0.19502E-07_JPRB,0.95711E-06_JPRB,0.17948E-05_JPRB,0.25536E-05_JPRB,0.32756E-05_JPRB, &
1080 & 0.40127E-05_JPRB,0.48356E-05_JPRB,0.60502E-05_JPRB,0.26522E-05_JPRB /)
1081 KA(:, 1, 6, 5) = (/ &
1082 & 0.20265E-07_JPRB,0.45716E-06_JPRB,0.10840E-05_JPRB,0.16034E-05_JPRB,0.20999E-05_JPRB, &
1083 & 0.25681E-05_JPRB,0.30977E-05_JPRB,0.39107E-05_JPRB,0.52450E-05_JPRB /)
1084 KA(:, 2, 6, 5) = (/ &
1085 & 0.21598E-07_JPRB,0.47132E-06_JPRB,0.11079E-05_JPRB,0.16263E-05_JPRB,0.21396E-05_JPRB, &
1086 & 0.26164E-05_JPRB,0.31577E-05_JPRB,0.39701E-05_JPRB,0.52182E-05_JPRB /)
1087 KA(:, 3, 6, 5) = (/ &
1088 & 0.24575E-07_JPRB,0.48601E-06_JPRB,0.11257E-05_JPRB,0.16486E-05_JPRB,0.21513E-05_JPRB, &
1089 & 0.26585E-05_JPRB,0.32022E-05_JPRB,0.40354E-05_JPRB,0.51968E-05_JPRB /)
1090 KA(:, 4, 6, 5) = (/ &
1091 & 0.24397E-07_JPRB,0.49804E-06_JPRB,0.11416E-05_JPRB,0.16645E-05_JPRB,0.21605E-05_JPRB, &
1092 & 0.26639E-05_JPRB,0.32353E-05_JPRB,0.40822E-05_JPRB,0.51575E-05_JPRB /)
1093 KA(:, 5, 6, 5) = (/ &
1094 & 0.24456E-07_JPRB,0.50499E-06_JPRB,0.11522E-05_JPRB,0.16738E-05_JPRB,0.21632E-05_JPRB, &
1095 & 0.26629E-05_JPRB,0.32463E-05_JPRB,0.41051E-05_JPRB,0.51085E-05_JPRB /)
1096 KA(:, 1, 7, 5) = (/ &
1097 & 0.28039E-07_JPRB,0.29800E-06_JPRB,0.81783E-06_JPRB,0.13008E-05_JPRB,0.17226E-05_JPRB, &
1098 & 0.21163E-05_JPRB,0.25578E-05_JPRB,0.32519E-05_JPRB,0.82307E-05_JPRB /)
1099 KA(:, 2, 7, 5) = (/ &
1100 & 0.29388E-07_JPRB,0.30492E-06_JPRB,0.83771E-06_JPRB,0.13192E-05_JPRB,0.17591E-05_JPRB, &
1101 & 0.21563E-05_JPRB,0.26128E-05_JPRB,0.33130E-05_JPRB,0.81908E-05_JPRB /)
1102 KA(:, 3, 7, 5) = (/ &
1103 & 0.29556E-07_JPRB,0.30866E-06_JPRB,0.85444E-06_JPRB,0.13376E-05_JPRB,0.17722E-05_JPRB, &
1104 & 0.21943E-05_JPRB,0.26541E-05_JPRB,0.33584E-05_JPRB,0.81819E-05_JPRB /)
1105 KA(:, 4, 7, 5) = (/ &
1106 & 0.26709E-07_JPRB,0.30951E-06_JPRB,0.86739E-06_JPRB,0.13505E-05_JPRB,0.17805E-05_JPRB, &
1107 & 0.22093E-05_JPRB,0.26812E-05_JPRB,0.34009E-05_JPRB,0.81017E-05_JPRB /)
1108 KA(:, 5, 7, 5) = (/ &
1109 & 0.27877E-07_JPRB,0.31158E-06_JPRB,0.87645E-06_JPRB,0.13597E-05_JPRB,0.17817E-05_JPRB, &
1110 & 0.22083E-05_JPRB,0.26996E-05_JPRB,0.34240E-05_JPRB,0.80774E-05_JPRB /)
1111 KA(:, 1, 8, 5) = (/ &
1112 & 0.34498E-07_JPRB,0.30504E-06_JPRB,0.50025E-06_JPRB,0.99104E-06_JPRB,0.13907E-05_JPRB, &
1113 & 0.17284E-05_JPRB,0.20950E-05_JPRB,0.26875E-05_JPRB,0.12492E-04_JPRB /)
1114 KA(:, 2, 8, 5) = (/ &
1115 & 0.34468E-07_JPRB,0.31253E-06_JPRB,0.51376E-06_JPRB,0.10029E-05_JPRB,0.14233E-05_JPRB, &
1116 & 0.17665E-05_JPRB,0.21486E-05_JPRB,0.27439E-05_JPRB,0.12811E-04_JPRB /)
1117 KA(:, 3, 8, 5) = (/ &
1118 & 0.33481E-07_JPRB,0.31885E-06_JPRB,0.52532E-06_JPRB,0.10176E-05_JPRB,0.14361E-05_JPRB, &
1119 & 0.18000E-05_JPRB,0.21864E-05_JPRB,0.27713E-05_JPRB,0.12979E-04_JPRB /)
1120 KA(:, 4, 8, 5) = (/ &
1121 & 0.35023E-07_JPRB,0.32212E-06_JPRB,0.53171E-06_JPRB,0.10292E-05_JPRB,0.14414E-05_JPRB, &
1122 & 0.18222E-05_JPRB,0.22113E-05_JPRB,0.28111E-05_JPRB,0.13061E-04_JPRB /)
1123 KA(:, 5, 8, 5) = (/ &
1124 & 0.38480E-07_JPRB,0.32386E-06_JPRB,0.53818E-06_JPRB,0.10355E-05_JPRB,0.14400E-05_JPRB, &
1125 & 0.18162E-05_JPRB,0.22298E-05_JPRB,0.28367E-05_JPRB,0.13100E-04_JPRB /)
1126 KA(:, 1, 9, 5) = (/ &
1127 & 0.41152E-07_JPRB,0.31870E-06_JPRB,0.36402E-06_JPRB,0.61613E-06_JPRB,0.10619E-05_JPRB, &
1128 & 0.13940E-05_JPRB,0.17098E-05_JPRB,0.22173E-05_JPRB,0.27198E-04_JPRB /)
1129 KA(:, 2, 9, 5) = (/ &
1130 & 0.47020E-07_JPRB,0.31765E-06_JPRB,0.37312E-06_JPRB,0.61961E-06_JPRB,0.10763E-05_JPRB, &
1131 & 0.14273E-05_JPRB,0.17555E-05_JPRB,0.22573E-05_JPRB,0.28218E-04_JPRB /)
1132 KA(:, 3, 9, 5) = (/ &
1133 & 0.48171E-07_JPRB,0.31526E-06_JPRB,0.38468E-06_JPRB,0.62540E-06_JPRB,0.10803E-05_JPRB, &
1134 & 0.14543E-05_JPRB,0.17919E-05_JPRB,0.22822E-05_JPRB,0.28600E-04_JPRB /)
1135 KA(:, 4, 9, 5) = (/ &
1136 & 0.52826E-07_JPRB,0.32481E-06_JPRB,0.38733E-06_JPRB,0.62721E-06_JPRB,0.10854E-05_JPRB, &
1137 & 0.14750E-05_JPRB,0.18124E-05_JPRB,0.23140E-05_JPRB,0.29051E-04_JPRB /)
1138 KA(:, 5, 9, 5) = (/ &
1139 & 0.56456E-07_JPRB,0.32727E-06_JPRB,0.38424E-06_JPRB,0.63178E-06_JPRB,0.10853E-05_JPRB, &
1140 & 0.14692E-05_JPRB,0.18309E-05_JPRB,0.23369E-05_JPRB,0.29958E-04_JPRB /)
1141 KA(:, 1,10, 5) = (/ &
1142 & 0.62033E-07_JPRB,0.45418E-06_JPRB,0.43247E-06_JPRB,0.44775E-06_JPRB,0.62834E-06_JPRB, &
1143 & 0.10534E-05_JPRB,0.13865E-05_JPRB,0.18301E-05_JPRB,0.47779E-04_JPRB /)
1144 KA(:, 2,10, 5) = (/ &
1145 & 0.66259E-07_JPRB,0.45321E-06_JPRB,0.43983E-06_JPRB,0.45223E-06_JPRB,0.63440E-06_JPRB, &
1146 & 0.10746E-05_JPRB,0.14253E-05_JPRB,0.18534E-05_JPRB,0.48468E-04_JPRB /)
1147 KA(:, 3,10, 5) = (/ &
1148 & 0.78966E-07_JPRB,0.45246E-06_JPRB,0.44780E-06_JPRB,0.45868E-06_JPRB,0.63026E-06_JPRB, &
1149 & 0.10842E-05_JPRB,0.14519E-05_JPRB,0.18794E-05_JPRB,0.49251E-04_JPRB /)
1150 KA(:, 4,10, 5) = (/ &
1151 & 0.87881E-07_JPRB,0.44642E-06_JPRB,0.45426E-06_JPRB,0.46583E-06_JPRB,0.63116E-06_JPRB, &
1152 & 0.10925E-05_JPRB,0.14710E-05_JPRB,0.18965E-05_JPRB,0.49742E-04_JPRB /)
1153 KA(:, 5,10, 5) = (/ &
1154 & 0.92572E-07_JPRB,0.44310E-06_JPRB,0.45326E-06_JPRB,0.47005E-06_JPRB,0.63094E-06_JPRB, &
1155 & 0.10763E-05_JPRB,0.14843E-05_JPRB,0.19214E-05_JPRB,0.50457E-04_JPRB /)
1156 KA(:, 1,11, 5) = (/ &
1157 & 0.10522E-06_JPRB,0.58600E-06_JPRB,0.57473E-06_JPRB,0.52150E-06_JPRB,0.51202E-06_JPRB, &
1158 & 0.62383E-06_JPRB,0.10987E-05_JPRB,0.15032E-05_JPRB,0.50557E-04_JPRB /)
1159 KA(:, 2,11, 5) = (/ &
1160 & 0.98332E-07_JPRB,0.58669E-06_JPRB,0.57910E-06_JPRB,0.52997E-06_JPRB,0.52591E-06_JPRB, &
1161 & 0.62992E-06_JPRB,0.11144E-05_JPRB,0.15271E-05_JPRB,0.52915E-04_JPRB /)
1162 KA(:, 3,11, 5) = (/ &
1163 & 0.10383E-06_JPRB,0.58976E-06_JPRB,0.58650E-06_JPRB,0.53573E-06_JPRB,0.53394E-06_JPRB, &
1164 & 0.63743E-06_JPRB,0.11251E-05_JPRB,0.15415E-05_JPRB,0.55206E-04_JPRB /)
1165 KA(:, 4,11, 5) = (/ &
1166 & 0.10626E-06_JPRB,0.58622E-06_JPRB,0.58747E-06_JPRB,0.53868E-06_JPRB,0.53891E-06_JPRB, &
1167 & 0.62645E-06_JPRB,0.11296E-05_JPRB,0.15628E-05_JPRB,0.58020E-04_JPRB /)
1168 KA(:, 5,11, 5) = (/ &
1169 & 0.10795E-06_JPRB,0.57800E-06_JPRB,0.58664E-06_JPRB,0.53883E-06_JPRB,0.54784E-06_JPRB, &
1170 & 0.62145E-06_JPRB,0.11279E-05_JPRB,0.15782E-05_JPRB,0.60369E-04_JPRB /)
1171 KA(:, 1,12, 5) = (/ &
1172 & 0.11905E-06_JPRB,0.60759E-06_JPRB,0.68611E-06_JPRB,0.59318E-06_JPRB,0.53805E-06_JPRB, &
1173 & 0.44962E-06_JPRB,0.74828E-06_JPRB,0.12279E-05_JPRB,0.57098E-04_JPRB /)
1174 KA(:, 2,12, 5) = (/ &
1175 & 0.12660E-06_JPRB,0.61695E-06_JPRB,0.68094E-06_JPRB,0.60079E-06_JPRB,0.55064E-06_JPRB, &
1176 & 0.44953E-06_JPRB,0.74858E-06_JPRB,0.12489E-05_JPRB,0.55969E-04_JPRB /)
1177 KA(:, 3,12, 5) = (/ &
1178 & 0.12824E-06_JPRB,0.61561E-06_JPRB,0.67586E-06_JPRB,0.61662E-06_JPRB,0.55533E-06_JPRB, &
1179 & 0.46796E-06_JPRB,0.74406E-06_JPRB,0.12615E-05_JPRB,0.57249E-04_JPRB /)
1180 KA(:, 4,12, 5) = (/ &
1181 & 0.12834E-06_JPRB,0.62554E-06_JPRB,0.67923E-06_JPRB,0.62343E-06_JPRB,0.55964E-06_JPRB, &
1182 & 0.48091E-06_JPRB,0.73622E-06_JPRB,0.12795E-05_JPRB,0.58462E-04_JPRB /)
1183 KA(:, 5,12, 5) = (/ &
1184 & 0.13022E-06_JPRB,0.63206E-06_JPRB,0.68726E-06_JPRB,0.62663E-06_JPRB,0.56231E-06_JPRB, &
1185 & 0.48008E-06_JPRB,0.72942E-06_JPRB,0.12885E-05_JPRB,0.57642E-04_JPRB /)
1186 KA(:, 1,13, 5) = (/ &
1187 & 0.15325E-06_JPRB,0.60909E-06_JPRB,0.76952E-06_JPRB,0.71232E-06_JPRB,0.57983E-06_JPRB, &
1188 & 0.50489E-06_JPRB,0.48627E-06_JPRB,0.99183E-06_JPRB,0.58778E-04_JPRB /)
1189 KA(:, 2,13, 5) = (/ &
1190 & 0.15519E-06_JPRB,0.62152E-06_JPRB,0.78639E-06_JPRB,0.71888E-06_JPRB,0.59866E-06_JPRB, &
1191 & 0.50930E-06_JPRB,0.48247E-06_JPRB,0.10069E-05_JPRB,0.57959E-04_JPRB /)
1192 KA(:, 3,13, 5) = (/ &
1193 & 0.17242E-06_JPRB,0.64099E-06_JPRB,0.78686E-06_JPRB,0.71502E-06_JPRB,0.60678E-06_JPRB, &
1194 & 0.51633E-06_JPRB,0.47220E-06_JPRB,0.10180E-05_JPRB,0.56844E-04_JPRB /)
1195 KA(:, 4,13, 5) = (/ &
1196 & 0.18585E-06_JPRB,0.65002E-06_JPRB,0.78368E-06_JPRB,0.71421E-06_JPRB,0.61538E-06_JPRB, &
1197 & 0.52650E-06_JPRB,0.46857E-06_JPRB,0.10263E-05_JPRB,0.55757E-04_JPRB /)
1198 KA(:, 5,13, 5) = (/ &
1199 & 0.19235E-06_JPRB,0.64166E-06_JPRB,0.76203E-06_JPRB,0.70622E-06_JPRB,0.61837E-06_JPRB, &
1200 & 0.53042E-06_JPRB,0.45529E-06_JPRB,0.10275E-05_JPRB,0.55475E-04_JPRB /)
1201 KA(:, 1, 1, 6) = (/ &
1202 & 0.95617E-08_JPRB,0.36774E-05_JPRB,0.65849E-05_JPRB,0.92221E-05_JPRB,0.11700E-04_JPRB, &
1203 & 0.14161E-04_JPRB,0.16732E-04_JPRB,0.20350E-04_JPRB,0.14554E-04_JPRB /)
1204 KA(:, 2, 1, 6) = (/ &
1205 & 0.93327E-08_JPRB,0.37537E-05_JPRB,0.66916E-05_JPRB,0.93495E-05_JPRB,0.11842E-04_JPRB, &
1206 & 0.14289E-04_JPRB,0.16848E-04_JPRB,0.20318E-04_JPRB,0.14747E-04_JPRB /)
1207 KA(:, 3, 1, 6) = (/ &
1208 & 0.98298E-08_JPRB,0.41944E-05_JPRB,0.75022E-05_JPRB,0.10503E-04_JPRB,0.13381E-04_JPRB, &
1209 & 0.16104E-04_JPRB,0.19004E-04_JPRB,0.22601E-04_JPRB,0.17337E-04_JPRB /)
1210 KA(:, 4, 1, 6) = (/ &
1211 & 0.92318E-08_JPRB,0.38872E-05_JPRB,0.68816E-05_JPRB,0.95784E-05_JPRB,0.12112E-04_JPRB, &
1212 & 0.14510E-04_JPRB,0.17052E-04_JPRB,0.20522E-04_JPRB,0.14967E-04_JPRB /)
1213 KA(:, 5, 1, 6) = (/ &
1214 & 0.98053E-08_JPRB,0.39438E-05_JPRB,0.69574E-05_JPRB,0.96665E-05_JPRB,0.12218E-04_JPRB, &
1215 & 0.14607E-04_JPRB,0.17135E-04_JPRB,0.20557E-04_JPRB,0.15005E-04_JPRB /)
1216 KA(:, 1, 2, 6) = (/ &
1217 & 0.99669E-08_JPRB,0.32456E-05_JPRB,0.58216E-05_JPRB,0.81575E-05_JPRB,0.10349E-04_JPRB, &
1218 & 0.12573E-04_JPRB,0.14901E-04_JPRB,0.18163E-04_JPRB,0.12615E-04_JPRB /)
1219 KA(:, 2, 2, 6) = (/ &
1220 & 0.12231E-07_JPRB,0.33138E-05_JPRB,0.59221E-05_JPRB,0.82752E-05_JPRB,0.10501E-04_JPRB, &
1221 & 0.12666E-04_JPRB,0.15004E-04_JPRB,0.18147E-04_JPRB,0.12797E-04_JPRB /)
1222 KA(:, 3, 2, 6) = (/ &
1223 & 0.10745E-07_JPRB,0.37581E-05_JPRB,0.67327E-05_JPRB,0.94426E-05_JPRB,0.12044E-04_JPRB, &
1224 & 0.14533E-04_JPRB,0.17181E-04_JPRB,0.20503E-04_JPRB,0.15464E-04_JPRB /)
1225 KA(:, 4, 2, 6) = (/ &
1226 & 0.11723E-07_JPRB,0.37897E-05_JPRB,0.67581E-05_JPRB,0.94584E-05_JPRB,0.12035E-04_JPRB, &
1227 & 0.14508E-04_JPRB,0.17115E-04_JPRB,0.20450E-04_JPRB,0.15378E-04_JPRB /)
1228 KA(:, 5, 2, 6) = (/ &
1229 & 0.10775E-07_JPRB,0.34864E-05_JPRB,0.61478E-05_JPRB,0.85479E-05_JPRB,0.10823E-04_JPRB, &
1230 & 0.12985E-04_JPRB,0.15273E-04_JPRB,0.18381E-04_JPRB,0.12972E-04_JPRB /)
1231 KA(:, 1, 3, 6) = (/ &
1232 & 0.12159E-07_JPRB,0.28311E-05_JPRB,0.50923E-05_JPRB,0.71433E-05_JPRB,0.90735E-05_JPRB, &
1233 & 0.11042E-04_JPRB,0.13160E-04_JPRB,0.16141E-04_JPRB,0.10790E-04_JPRB /)
1234 KA(:, 2, 3, 6) = (/ &
1235 & 0.11403E-07_JPRB,0.28950E-05_JPRB,0.51829E-05_JPRB,0.72481E-05_JPRB,0.92149E-05_JPRB, &
1236 & 0.11135E-04_JPRB,0.13267E-04_JPRB,0.16084E-04_JPRB,0.10912E-04_JPRB /)
1237 KA(:, 3, 3, 6) = (/ &
1238 & 0.12436E-07_JPRB,0.29531E-05_JPRB,0.52642E-05_JPRB,0.73461E-05_JPRB,0.93337E-05_JPRB, &
1239 & 0.11250E-04_JPRB,0.13358E-04_JPRB,0.16208E-04_JPRB,0.10995E-04_JPRB /)
1240 KA(:, 4, 3, 6) = (/ &
1241 & 0.14856E-07_JPRB,0.33723E-05_JPRB,0.60342E-05_JPRB,0.84579E-05_JPRB,0.10776E-04_JPRB, &
1242 & 0.13025E-04_JPRB,0.15434E-04_JPRB,0.18466E-04_JPRB,0.13550E-04_JPRB /)
1243 KA(:, 5, 3, 6) = (/ &
1244 & 0.16537E-07_JPRB,0.30506E-05_JPRB,0.53821E-05_JPRB,0.74897E-05_JPRB,0.94861E-05_JPRB, &
1245 & 0.11421E-04_JPRB,0.13503E-04_JPRB,0.16308E-04_JPRB,0.11045E-04_JPRB /)
1246 KA(:, 1, 4, 6) = (/ &
1247 & 0.13114E-07_JPRB,0.24467E-05_JPRB,0.44159E-05_JPRB,0.61941E-05_JPRB,0.78845E-05_JPRB, &
1248 & 0.96031E-05_JPRB,0.11513E-04_JPRB,0.14234E-04_JPRB,0.89642E-05_JPRB /)
1249 KA(:, 2, 4, 6) = (/ &
1250 & 0.15028E-07_JPRB,0.25040E-05_JPRB,0.44954E-05_JPRB,0.62931E-05_JPRB,0.80050E-05_JPRB, &
1251 & 0.97056E-05_JPRB,0.11618E-04_JPRB,0.14175E-04_JPRB,0.90802E-05_JPRB /)
1252
1253 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART4',1,ZHOOK_HANDLE)
1254 END SUBROUTINE PART4
1255
1256
1257 SUBROUTINE PART5
1258
1259 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1260 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART5',0,ZHOOK_HANDLE)
1261
1262
1263 KA(:, 3, 4, 6) = (/ &
1264 & 0.18213E-07_JPRB,0.25556E-05_JPRB,0.45678E-05_JPRB,0.63789E-05_JPRB,0.81071E-05_JPRB, &
1265 & 0.98077E-05_JPRB,0.11694E-04_JPRB,0.14301E-04_JPRB,0.91538E-05_JPRB /)
1266 KA(:, 4, 4, 6) = (/ &
1267 & 0.19097E-07_JPRB,0.26037E-05_JPRB,0.46288E-05_JPRB,0.64476E-05_JPRB,0.81897E-05_JPRB, &
1268 & 0.98941E-05_JPRB,0.11740E-04_JPRB,0.14344E-04_JPRB,0.91968E-05_JPRB /)
1269 KA(:, 5, 4, 6) = (/ &
1270 & 0.18014E-07_JPRB,0.29993E-05_JPRB,0.53622E-05_JPRB,0.75209E-05_JPRB,0.95686E-05_JPRB, &
1271 & 0.11571E-04_JPRB,0.13783E-04_JPRB,0.16522E-04_JPRB,0.11644E-04_JPRB /)
1272 KA(:, 1, 5, 6) = (/ &
1273 & 0.21237E-07_JPRB,0.20921E-05_JPRB,0.37961E-05_JPRB,0.53264E-05_JPRB,0.67905E-05_JPRB, &
1274 & 0.82846E-05_JPRB,0.99803E-05_JPRB,0.12512E-04_JPRB,0.44075E-05_JPRB /)
1275 KA(:, 2, 5, 6) = (/ &
1276 & 0.23885E-07_JPRB,0.21444E-05_JPRB,0.38676E-05_JPRB,0.54146E-05_JPRB,0.68931E-05_JPRB, &
1277 & 0.83832E-05_JPRB,0.10077E-04_JPRB,0.12417E-04_JPRB,0.44982E-05_JPRB /)
1278 KA(:, 3, 5, 6) = (/ &
1279 & 0.20851E-07_JPRB,0.21906E-05_JPRB,0.39301E-05_JPRB,0.54900E-05_JPRB,0.69833E-05_JPRB, &
1280 & 0.84513E-05_JPRB,0.10145E-04_JPRB,0.12513E-04_JPRB,0.45299E-05_JPRB /)
1281 KA(:, 4, 5, 6) = (/ &
1282 & 0.22487E-07_JPRB,0.22322E-05_JPRB,0.39843E-05_JPRB,0.55506E-05_JPRB,0.70502E-05_JPRB, &
1283 & 0.85357E-05_JPRB,0.10189E-04_JPRB,0.12546E-04_JPRB,0.45220E-05_JPRB /)
1284 KA(:, 5, 5, 6) = (/ &
1285 & 0.23015E-07_JPRB,0.26442E-05_JPRB,0.47363E-05_JPRB,0.66520E-05_JPRB,0.84676E-05_JPRB, &
1286 & 0.10272E-04_JPRB,0.12268E-04_JPRB,0.14801E-04_JPRB,0.72945E-05_JPRB /)
1287 KA(:, 1, 6, 6) = (/ &
1288 & 0.22693E-07_JPRB,0.17592E-05_JPRB,0.32289E-05_JPRB,0.45327E-05_JPRB,0.57876E-05_JPRB, &
1289 & 0.70822E-05_JPRB,0.85643E-05_JPRB,0.10966E-04_JPRB,0.53375E-05_JPRB /)
1290 KA(:, 2, 6, 6) = (/ &
1291 & 0.22407E-07_JPRB,0.18081E-05_JPRB,0.32912E-05_JPRB,0.46136E-05_JPRB,0.58716E-05_JPRB, &
1292 & 0.71710E-05_JPRB,0.86530E-05_JPRB,0.10805E-04_JPRB,0.53845E-05_JPRB /)
1293 KA(:, 3, 6, 6) = (/ &
1294 & 0.22705E-07_JPRB,0.18504E-05_JPRB,0.33475E-05_JPRB,0.46786E-05_JPRB,0.59585E-05_JPRB, &
1295 & 0.72252E-05_JPRB,0.87123E-05_JPRB,0.10876E-04_JPRB,0.53808E-05_JPRB /)
1296 KA(:, 4, 6, 6) = (/ &
1297 & 0.23941E-07_JPRB,0.18862E-05_JPRB,0.33938E-05_JPRB,0.47325E-05_JPRB,0.60159E-05_JPRB, &
1298 & 0.72910E-05_JPRB,0.87573E-05_JPRB,0.10893E-04_JPRB,0.53357E-05_JPRB /)
1299 KA(:, 5, 6, 6) = (/ &
1300 & 0.27004E-07_JPRB,0.19136E-05_JPRB,0.34294E-05_JPRB,0.47766E-05_JPRB,0.60573E-05_JPRB, &
1301 & 0.73309E-05_JPRB,0.87892E-05_JPRB,0.10892E-04_JPRB,0.52484E-05_JPRB /)
1302 KA(:, 1, 7, 6) = (/ &
1303 & 0.27131E-07_JPRB,0.14236E-05_JPRB,0.27128E-05_JPRB,0.38203E-05_JPRB,0.48870E-05_JPRB, &
1304 & 0.59983E-05_JPRB,0.72827E-05_JPRB,0.94729E-05_JPRB,0.86942E-05_JPRB /)
1305 KA(:, 2, 7, 6) = (/ &
1306 & 0.26214E-07_JPRB,0.14673E-05_JPRB,0.27677E-05_JPRB,0.38940E-05_JPRB,0.49627E-05_JPRB, &
1307 & 0.60727E-05_JPRB,0.73587E-05_JPRB,0.93332E-05_JPRB,0.87651E-05_JPRB /)
1308 KA(:, 3, 7, 6) = (/ &
1309 & 0.29249E-07_JPRB,0.15085E-05_JPRB,0.28175E-05_JPRB,0.39503E-05_JPRB,0.50362E-05_JPRB, &
1310 & 0.61230E-05_JPRB,0.74095E-05_JPRB,0.93608E-05_JPRB,0.87497E-05_JPRB /)
1311 KA(:, 4, 7, 6) = (/ &
1312 & 0.35846E-07_JPRB,0.15423E-05_JPRB,0.28570E-05_JPRB,0.39988E-05_JPRB,0.50875E-05_JPRB, &
1313 & 0.61709E-05_JPRB,0.74491E-05_JPRB,0.93691E-05_JPRB,0.88300E-05_JPRB /)
1314 KA(:, 5, 7, 6) = (/ &
1315 & 0.36255E-07_JPRB,0.15665E-05_JPRB,0.28868E-05_JPRB,0.40378E-05_JPRB,0.51248E-05_JPRB, &
1316 & 0.62083E-05_JPRB,0.74689E-05_JPRB,0.93597E-05_JPRB,0.88065E-05_JPRB /)
1317 KA(:, 1, 8, 6) = (/ &
1318 & 0.37619E-07_JPRB,0.92017E-06_JPRB,0.22295E-05_JPRB,0.31821E-05_JPRB,0.40883E-05_JPRB, &
1319 & 0.50331E-05_JPRB,0.61447E-05_JPRB,0.80461E-05_JPRB,0.15512E-04_JPRB /)
1320 KA(:, 2, 8, 6) = (/ &
1321 & 0.43015E-07_JPRB,0.95048E-06_JPRB,0.22782E-05_JPRB,0.32493E-05_JPRB,0.41585E-05_JPRB, &
1322 & 0.50968E-05_JPRB,0.61995E-05_JPRB,0.80232E-05_JPRB,0.15472E-04_JPRB /)
1323 KA(:, 3, 8, 6) = (/ &
1324 & 0.47635E-07_JPRB,0.97934E-06_JPRB,0.23207E-05_JPRB,0.33002E-05_JPRB,0.42181E-05_JPRB, &
1325 & 0.51430E-05_JPRB,0.62468E-05_JPRB,0.79821E-05_JPRB,0.15652E-04_JPRB /)
1326 KA(:, 4, 8, 6) = (/ &
1327 & 0.48140E-07_JPRB,0.10026E-05_JPRB,0.23582E-05_JPRB,0.33416E-05_JPRB,0.42650E-05_JPRB, &
1328 & 0.51734E-05_JPRB,0.62779E-05_JPRB,0.79833E-05_JPRB,0.15762E-04_JPRB /)
1329 KA(:, 5, 8, 6) = (/ &
1330 & 0.45231E-07_JPRB,0.10212E-05_JPRB,0.23819E-05_JPRB,0.33754E-05_JPRB,0.42991E-05_JPRB, &
1331 & 0.52146E-05_JPRB,0.62945E-05_JPRB,0.79701E-05_JPRB,0.15840E-04_JPRB /)
1332 KA(:, 1, 9, 6) = (/ &
1333 & 0.48601E-07_JPRB,0.49350E-06_JPRB,0.16585E-05_JPRB,0.26009E-05_JPRB,0.33796E-05_JPRB, &
1334 & 0.41888E-05_JPRB,0.51434E-05_JPRB,0.67867E-05_JPRB,0.26875E-04_JPRB /)
1335 KA(:, 2, 9, 6) = (/ &
1336 & 0.49825E-07_JPRB,0.51680E-06_JPRB,0.16935E-05_JPRB,0.26607E-05_JPRB,0.34457E-05_JPRB, &
1337 & 0.42434E-05_JPRB,0.51839E-05_JPRB,0.68587E-05_JPRB,0.27475E-04_JPRB /)
1338 KA(:, 3, 9, 6) = (/ &
1339 & 0.52843E-07_JPRB,0.53573E-06_JPRB,0.17199E-05_JPRB,0.27038E-05_JPRB,0.35027E-05_JPRB, &
1340 & 0.42858E-05_JPRB,0.52233E-05_JPRB,0.67410E-05_JPRB,0.28097E-04_JPRB /)
1341 KA(:, 4, 9, 6) = (/ &
1342 & 0.49841E-07_JPRB,0.54248E-06_JPRB,0.17493E-05_JPRB,0.27418E-05_JPRB,0.35427E-05_JPRB, &
1343 & 0.43127E-05_JPRB,0.52517E-05_JPRB,0.67418E-05_JPRB,0.28632E-04_JPRB /)
1344 KA(:, 5, 9, 6) = (/ &
1345 & 0.50649E-07_JPRB,0.54940E-06_JPRB,0.17700E-05_JPRB,0.27695E-05_JPRB,0.35712E-05_JPRB, &
1346 & 0.43482E-05_JPRB,0.52645E-05_JPRB,0.67282E-05_JPRB,0.28662E-04_JPRB /)
1347 KA(:, 1,10, 6) = (/ &
1348 & 0.82685E-07_JPRB,0.54022E-06_JPRB,0.87761E-06_JPRB,0.18752E-05_JPRB,0.27293E-05_JPRB, &
1349 & 0.34506E-05_JPRB,0.42821E-05_JPRB,0.56501E-05_JPRB,0.44067E-04_JPRB /)
1350 KA(:, 2,10, 6) = (/ &
1351 & 0.87011E-07_JPRB,0.54017E-06_JPRB,0.89732E-06_JPRB,0.19208E-05_JPRB,0.27945E-05_JPRB, &
1352 & 0.35005E-05_JPRB,0.43124E-05_JPRB,0.57881E-05_JPRB,0.45858E-04_JPRB /)
1353 KA(:, 3,10, 6) = (/ &
1354 & 0.79909E-07_JPRB,0.55355E-06_JPRB,0.90995E-06_JPRB,0.19451E-05_JPRB,0.28460E-05_JPRB, &
1355 & 0.35425E-05_JPRB,0.43438E-05_JPRB,0.56593E-05_JPRB,0.45805E-04_JPRB /)
1356 KA(:, 4,10, 6) = (/ &
1357 & 0.75533E-07_JPRB,0.55705E-06_JPRB,0.92147E-06_JPRB,0.19661E-05_JPRB,0.28785E-05_JPRB, &
1358 & 0.35628E-05_JPRB,0.43635E-05_JPRB,0.56526E-05_JPRB,0.46295E-04_JPRB /)
1359 KA(:, 5,10, 6) = (/ &
1360 & 0.76631E-07_JPRB,0.55159E-06_JPRB,0.93362E-06_JPRB,0.19832E-05_JPRB,0.29003E-05_JPRB, &
1361 & 0.35965E-05_JPRB,0.43731E-05_JPRB,0.56385E-05_JPRB,0.46720E-04_JPRB /)
1362 KA(:, 1,11, 6) = (/ &
1363 & 0.11164E-06_JPRB,0.57710E-06_JPRB,0.71279E-06_JPRB,0.10003E-05_JPRB,0.19253E-05_JPRB, &
1364 & 0.28027E-05_JPRB,0.35523E-05_JPRB,0.47607E-05_JPRB,0.51144E-04_JPRB /)
1365 KA(:, 2,11, 6) = (/ &
1366 & 0.11484E-06_JPRB,0.58649E-06_JPRB,0.71918E-06_JPRB,0.10167E-05_JPRB,0.19538E-05_JPRB, &
1367 & 0.28431E-05_JPRB,0.35713E-05_JPRB,0.48333E-05_JPRB,0.49887E-04_JPRB /)
1368 KA(:, 3,11, 6) = (/ &
1369 & 0.11442E-06_JPRB,0.58483E-06_JPRB,0.70503E-06_JPRB,0.10320E-05_JPRB,0.19684E-05_JPRB, &
1370 & 0.28674E-05_JPRB,0.35911E-05_JPRB,0.47191E-05_JPRB,0.50222E-04_JPRB /)
1371 KA(:, 4,11, 6) = (/ &
1372 & 0.11737E-06_JPRB,0.58895E-06_JPRB,0.70242E-06_JPRB,0.10442E-05_JPRB,0.19738E-05_JPRB, &
1373 & 0.28962E-05_JPRB,0.36035E-05_JPRB,0.47045E-05_JPRB,0.48754E-04_JPRB /)
1374 KA(:, 5,11, 6) = (/ &
1375 & 0.12314E-06_JPRB,0.59299E-06_JPRB,0.70874E-06_JPRB,0.10470E-05_JPRB,0.19736E-05_JPRB, &
1376 & 0.29100E-05_JPRB,0.36075E-05_JPRB,0.46813E-05_JPRB,0.45986E-04_JPRB /)
1377 KA(:, 1,12, 6) = (/ &
1378 & 0.14446E-06_JPRB,0.57459E-06_JPRB,0.72800E-06_JPRB,0.69912E-06_JPRB,0.11693E-05_JPRB, &
1379 & 0.21457E-05_JPRB,0.29151E-05_JPRB,0.39683E-05_JPRB,0.42970E-04_JPRB /)
1380 KA(:, 2,12, 6) = (/ &
1381 & 0.14738E-06_JPRB,0.58568E-06_JPRB,0.75374E-06_JPRB,0.69814E-06_JPRB,0.11797E-05_JPRB, &
1382 & 0.21759E-05_JPRB,0.29287E-05_JPRB,0.39942E-05_JPRB,0.41434E-04_JPRB /)
1383 KA(:, 3,12, 6) = (/ &
1384 & 0.15006E-06_JPRB,0.60144E-06_JPRB,0.75420E-06_JPRB,0.70559E-06_JPRB,0.11849E-05_JPRB, &
1385 & 0.21718E-05_JPRB,0.29383E-05_JPRB,0.39185E-05_JPRB,0.42909E-04_JPRB /)
1386 KA(:, 4,12, 6) = (/ &
1387 & 0.15745E-06_JPRB,0.60776E-06_JPRB,0.75984E-06_JPRB,0.71270E-06_JPRB,0.11804E-05_JPRB, &
1388 & 0.21578E-05_JPRB,0.29477E-05_JPRB,0.38939E-05_JPRB,0.41761E-04_JPRB /)
1389 KA(:, 5,12, 6) = (/ &
1390 & 0.16583E-06_JPRB,0.62207E-06_JPRB,0.74591E-06_JPRB,0.69746E-06_JPRB,0.11751E-05_JPRB, &
1391 & 0.21552E-05_JPRB,0.29514E-05_JPRB,0.38695E-05_JPRB,0.45252E-04_JPRB /)
1392 KA(:, 1,13, 6) = (/ &
1393 & 0.18492E-06_JPRB,0.65841E-06_JPRB,0.74904E-06_JPRB,0.82698E-06_JPRB,0.69790E-06_JPRB, &
1394 & 0.13356E-05_JPRB,0.23333E-05_JPRB,0.33010E-05_JPRB,0.43502E-04_JPRB /)
1395 KA(:, 2,13, 6) = (/ &
1396 & 0.18447E-06_JPRB,0.66115E-06_JPRB,0.74200E-06_JPRB,0.80748E-06_JPRB,0.68676E-06_JPRB, &
1397 & 0.13419E-05_JPRB,0.23369E-05_JPRB,0.32873E-05_JPRB,0.44908E-04_JPRB /)
1398 KA(:, 3,13, 6) = (/ &
1399 & 0.20107E-06_JPRB,0.65387E-06_JPRB,0.73155E-06_JPRB,0.79291E-06_JPRB,0.67848E-06_JPRB, &
1400 & 0.13368E-05_JPRB,0.23434E-05_JPRB,0.32337E-05_JPRB,0.47417E-04_JPRB /)
1401 KA(:, 4,13, 6) = (/ &
1402 & 0.20493E-06_JPRB,0.66191E-06_JPRB,0.72707E-06_JPRB,0.79839E-06_JPRB,0.67208E-06_JPRB, &
1403 & 0.13273E-05_JPRB,0.23466E-05_JPRB,0.32075E-05_JPRB,0.48703E-04_JPRB /)
1404 KA(:, 5,13, 6) = (/ &
1405 & 0.20003E-06_JPRB,0.66753E-06_JPRB,0.73390E-06_JPRB,0.79794E-06_JPRB,0.66936E-06_JPRB, &
1406 & 0.13150E-05_JPRB,0.23558E-05_JPRB,0.31828E-05_JPRB,0.50012E-04_JPRB /)
1407 KA(:, 1, 1, 7) = (/ &
1408 & 0.45955E-07_JPRB,0.96988E-05_JPRB,0.16766E-04_JPRB,0.23073E-04_JPRB,0.28829E-04_JPRB, &
1409 & 0.34350E-04_JPRB,0.39744E-04_JPRB,0.45071E-04_JPRB,0.36783E-04_JPRB /)
1410 KA(:, 2, 1, 7) = (/ &
1411 & 0.57268E-07_JPRB,0.98413E-05_JPRB,0.16970E-04_JPRB,0.23311E-04_JPRB,0.29149E-04_JPRB, &
1412 & 0.34726E-04_JPRB,0.40229E-04_JPRB,0.45682E-04_JPRB,0.37190E-04_JPRB /)
1413 KA(:, 3, 1, 7) = (/ &
1414 & 0.70060E-07_JPRB,0.10517E-04_JPRB,0.18168E-04_JPRB,0.24965E-04_JPRB,0.31264E-04_JPRB, &
1415 & 0.37439E-04_JPRB,0.43299E-04_JPRB,0.49335E-04_JPRB,0.41254E-04_JPRB /)
1416 KA(:, 4, 1, 7) = (/ &
1417 & 0.84370E-07_JPRB,0.10120E-04_JPRB,0.17302E-04_JPRB,0.23633E-04_JPRB,0.29544E-04_JPRB, &
1418 & 0.35368E-04_JPRB,0.40885E-04_JPRB,0.46535E-04_JPRB,0.37819E-04_JPRB /)
1419 KA(:, 5, 1, 7) = (/ &
1420 & 0.97346E-07_JPRB,0.10254E-04_JPRB,0.17458E-04_JPRB,0.23773E-04_JPRB,0.29672E-04_JPRB, &
1421 & 0.35542E-04_JPRB,0.41140E-04_JPRB,0.46864E-04_JPRB,0.38054E-04_JPRB /)
1422 KA(:, 1, 2, 7) = (/ &
1423 & 0.27937E-07_JPRB,0.87332E-05_JPRB,0.15102E-04_JPRB,0.20785E-04_JPRB,0.26002E-04_JPRB, &
1424 & 0.30993E-04_JPRB,0.35918E-04_JPRB,0.41124E-04_JPRB,0.32692E-04_JPRB /)
1425 KA(:, 2, 2, 7) = (/ &
1426 & 0.34502E-07_JPRB,0.88655E-05_JPRB,0.15279E-04_JPRB,0.20992E-04_JPRB,0.26281E-04_JPRB, &
1427 & 0.31393E-04_JPRB,0.36363E-04_JPRB,0.41768E-04_JPRB,0.33047E-04_JPRB /)
1428 KA(:, 3, 2, 7) = (/ &
1429 & 0.45243E-07_JPRB,0.95567E-05_JPRB,0.16535E-04_JPRB,0.22740E-04_JPRB,0.28503E-04_JPRB, &
1430 & 0.34161E-04_JPRB,0.39521E-04_JPRB,0.45509E-04_JPRB,0.37184E-04_JPRB /)
1431 KA(:, 4, 2, 7) = (/ &
1432 & 0.56029E-07_JPRB,0.96404E-05_JPRB,0.16599E-04_JPRB,0.22759E-04_JPRB,0.28526E-04_JPRB, &
1433 & 0.34207E-04_JPRB,0.39586E-04_JPRB,0.45601E-04_JPRB,0.37152E-04_JPRB /)
1434 KA(:, 5, 2, 7) = (/ &
1435 & 0.67453E-07_JPRB,0.92372E-05_JPRB,0.15744E-04_JPRB,0.21435E-04_JPRB,0.26769E-04_JPRB, &
1436 & 0.32085E-04_JPRB,0.37228E-04_JPRB,0.42908E-04_JPRB,0.33841E-04_JPRB /)
1437 KA(:, 1, 3, 7) = (/ &
1438 & 0.21909E-07_JPRB,0.77821E-05_JPRB,0.13457E-04_JPRB,0.18525E-04_JPRB,0.23194E-04_JPRB, &
1439 & 0.27662E-04_JPRB,0.32086E-04_JPRB,0.37089E-04_JPRB,0.28700E-04_JPRB /)
1440 KA(:, 2, 3, 7) = (/ &
1441 & 0.25816E-07_JPRB,0.78998E-05_JPRB,0.13627E-04_JPRB,0.18723E-04_JPRB,0.23459E-04_JPRB, &
1442 & 0.28049E-04_JPRB,0.32494E-04_JPRB,0.37775E-04_JPRB,0.29060E-04_JPRB /)
1443 KA(:, 3, 3, 7) = (/ &
1444 & 0.28009E-07_JPRB,0.80177E-05_JPRB,0.13778E-04_JPRB,0.18883E-04_JPRB,0.23652E-04_JPRB, &
1445 & 0.28348E-04_JPRB,0.32831E-04_JPRB,0.38183E-04_JPRB,0.29363E-04_JPRB /)
1446 KA(:, 4, 3, 7) = (/ &
1447 & 0.32250E-07_JPRB,0.87000E-05_JPRB,0.14997E-04_JPRB,0.20591E-04_JPRB,0.25858E-04_JPRB, &
1448 & 0.30984E-04_JPRB,0.35855E-04_JPRB,0.41716E-04_JPRB,0.33352E-04_JPRB /)
1449 KA(:, 5, 3, 7) = (/ &
1450 & 0.38565E-07_JPRB,0.82442E-05_JPRB,0.14048E-04_JPRB,0.19147E-04_JPRB,0.23963E-04_JPRB, &
1451 & 0.28712E-04_JPRB,0.33322E-04_JPRB,0.38841E-04_JPRB,0.29827E-04_JPRB /)
1452 KA(:, 1, 4, 7) = (/ &
1453 & 0.27845E-07_JPRB,0.68782E-05_JPRB,0.11887E-04_JPRB,0.16370E-04_JPRB,0.20522E-04_JPRB, &
1454 & 0.24507E-04_JPRB,0.28445E-04_JPRB,0.33146E-04_JPRB,0.25091E-04_JPRB /)
1455 KA(:, 2, 4, 7) = (/ &
1456 & 0.30162E-07_JPRB,0.69860E-05_JPRB,0.12053E-04_JPRB,0.16569E-04_JPRB,0.20786E-04_JPRB, &
1457 & 0.24863E-04_JPRB,0.28833E-04_JPRB,0.33823E-04_JPRB,0.25439E-04_JPRB /)
1458 KA(:, 3, 4, 7) = (/ &
1459 & 0.31547E-07_JPRB,0.70934E-05_JPRB,0.12196E-04_JPRB,0.16734E-04_JPRB,0.20984E-04_JPRB, &
1460 & 0.25140E-04_JPRB,0.29167E-04_JPRB,0.34188E-04_JPRB,0.25743E-04_JPRB /)
1461 KA(:, 4, 4, 7) = (/ &
1462 & 0.30733E-07_JPRB,0.72009E-05_JPRB,0.12319E-04_JPRB,0.16870E-04_JPRB,0.21150E-04_JPRB, &
1463 & 0.25350E-04_JPRB,0.29432E-04_JPRB,0.34551E-04_JPRB,0.26011E-04_JPRB /)
1464 KA(:, 5, 4, 7) = (/ &
1465 & 0.33104E-07_JPRB,0.78742E-05_JPRB,0.13511E-04_JPRB,0.18536E-04_JPRB,0.23314E-04_JPRB, &
1466 & 0.27934E-04_JPRB,0.32284E-04_JPRB,0.37983E-04_JPRB,0.29911E-04_JPRB /)
1467 KA(:, 1, 5, 7) = (/ &
1468 & 0.31453E-07_JPRB,0.60344E-05_JPRB,0.10431E-04_JPRB,0.14360E-04_JPRB,0.18025E-04_JPRB, &
1469 & 0.21556E-04_JPRB,0.25057E-04_JPRB,0.29352E-04_JPRB,0.21244E-04_JPRB /)
1470 KA(:, 2, 5, 7) = (/ &
1471 & 0.32645E-07_JPRB,0.61373E-05_JPRB,0.10589E-04_JPRB,0.14561E-04_JPRB,0.18288E-04_JPRB, &
1472 & 0.21896E-04_JPRB,0.25427E-04_JPRB,0.30041E-04_JPRB,0.21582E-04_JPRB /)
1473 KA(:, 3, 5, 7) = (/ &
1474 & 0.36285E-07_JPRB,0.62371E-05_JPRB,0.10724E-04_JPRB,0.14730E-04_JPRB,0.18494E-04_JPRB, &
1475 & 0.22175E-04_JPRB,0.25749E-04_JPRB,0.30401E-04_JPRB,0.21875E-04_JPRB /)
1476 KA(:, 4, 5, 7) = (/ &
1477 & 0.35840E-07_JPRB,0.63361E-05_JPRB,0.10841E-04_JPRB,0.14872E-04_JPRB,0.18672E-04_JPRB, &
1478 & 0.22386E-04_JPRB,0.26001E-04_JPRB,0.30772E-04_JPRB,0.22136E-04_JPRB /)
1479 KA(:, 5, 5, 7) = (/ &
1480 & 0.34391E-07_JPRB,0.70384E-05_JPRB,0.12100E-04_JPRB,0.16639E-04_JPRB,0.20967E-04_JPRB, &
1481 & 0.25106E-04_JPRB,0.29033E-04_JPRB,0.34382E-04_JPRB,0.26458E-04_JPRB /)
1482 KA(:, 1, 6, 7) = (/ &
1483 & 0.38317E-07_JPRB,0.52554E-05_JPRB,0.90847E-05_JPRB,0.12506E-04_JPRB,0.15706E-04_JPRB, &
1484 & 0.18802E-04_JPRB,0.21926E-04_JPRB,0.25721E-04_JPRB,0.82786E-05_JPRB /)
1485 KA(:, 2, 6, 7) = (/ &
1486 & 0.42993E-07_JPRB,0.53521E-05_JPRB,0.92425E-05_JPRB,0.12708E-04_JPRB,0.15965E-04_JPRB, &
1487 & 0.19131E-04_JPRB,0.22269E-04_JPRB,0.26449E-04_JPRB,0.85145E-05_JPRB /)
1488 KA(:, 3, 6, 7) = (/ &
1489 & 0.43612E-07_JPRB,0.54474E-05_JPRB,0.93707E-05_JPRB,0.12875E-04_JPRB,0.16176E-04_JPRB, &
1490 & 0.19407E-04_JPRB,0.22575E-04_JPRB,0.26830E-04_JPRB,0.87594E-05_JPRB /)
1491 KA(:, 4, 6, 7) = (/ &
1492 & 0.42757E-07_JPRB,0.55405E-05_JPRB,0.94823E-05_JPRB,0.13019E-04_JPRB,0.16363E-04_JPRB, &
1493 & 0.19625E-04_JPRB,0.22815E-04_JPRB,0.27200E-04_JPRB,0.90170E-05_JPRB /)
1494 KA(:, 5, 6, 7) = (/ &
1495 & 0.43664E-07_JPRB,0.56274E-05_JPRB,0.95923E-05_JPRB,0.13140E-04_JPRB,0.16520E-04_JPRB, &
1496 & 0.19797E-04_JPRB,0.22995E-04_JPRB,0.27528E-04_JPRB,0.91836E-05_JPRB /)
1497 KA(:, 1, 7, 7) = (/ &
1498 & 0.39995E-07_JPRB,0.45414E-05_JPRB,0.78502E-05_JPRB,0.10801E-04_JPRB,0.13562E-04_JPRB, &
1499 & 0.16248E-04_JPRB,0.19009E-04_JPRB,0.22439E-04_JPRB,0.93804E-05_JPRB /)
1500 KA(:, 2, 7, 7) = (/ &
1501 & 0.43614E-07_JPRB,0.46331E-05_JPRB,0.80059E-05_JPRB,0.11000E-04_JPRB,0.13813E-04_JPRB, &
1502 & 0.16577E-04_JPRB,0.19346E-04_JPRB,0.23103E-04_JPRB,0.95334E-05_JPRB /)
1503 KA(:, 3, 7, 7) = (/ &
1504 & 0.45687E-07_JPRB,0.47201E-05_JPRB,0.81316E-05_JPRB,0.11167E-04_JPRB,0.14031E-04_JPRB, &
1505 & 0.16844E-04_JPRB,0.19646E-04_JPRB,0.23513E-04_JPRB,0.96503E-05_JPRB /)
1506 KA(:, 4, 7, 7) = (/ &
1507 & 0.48386E-07_JPRB,0.48081E-05_JPRB,0.82413E-05_JPRB,0.11310E-04_JPRB,0.14223E-04_JPRB, &
1508 & 0.17063E-04_JPRB,0.19885E-04_JPRB,0.23881E-04_JPRB,0.95360E-05_JPRB /)
1509 KA(:, 5, 7, 7) = (/ &
1510 & 0.54287E-07_JPRB,0.48899E-05_JPRB,0.83473E-05_JPRB,0.11434E-04_JPRB,0.14383E-04_JPRB, &
1511 & 0.17240E-04_JPRB,0.20064E-04_JPRB,0.24201E-04_JPRB,0.94267E-05_JPRB /)
1512 KA(:, 1, 8, 7) = (/ &
1513 & 0.45720E-07_JPRB,0.38685E-05_JPRB,0.67269E-05_JPRB,0.92537E-05_JPRB,0.11613E-04_JPRB, &
1514 & 0.13930E-04_JPRB,0.16333E-04_JPRB,0.19500E-04_JPRB,0.15537E-04_JPRB /)
1515 KA(:, 2, 8, 7) = (/ &
1516 & 0.46817E-07_JPRB,0.39568E-05_JPRB,0.68775E-05_JPRB,0.94493E-05_JPRB,0.11857E-04_JPRB, &
1517 & 0.14250E-04_JPRB,0.16679E-04_JPRB,0.19983E-04_JPRB,0.15822E-04_JPRB /)
1518 KA(:, 3, 8, 7) = (/ &
1519 & 0.48700E-07_JPRB,0.40362E-05_JPRB,0.70012E-05_JPRB,0.96148E-05_JPRB,0.12076E-04_JPRB, &
1520 & 0.14508E-04_JPRB,0.16969E-04_JPRB,0.20440E-04_JPRB,0.15878E-04_JPRB /)
1521 KA(:, 4, 8, 7) = (/ &
1522 & 0.54460E-07_JPRB,0.41199E-05_JPRB,0.71098E-05_JPRB,0.97580E-05_JPRB,0.12268E-04_JPRB, &
1523 & 0.14725E-04_JPRB,0.17206E-04_JPRB,0.20805E-04_JPRB,0.16014E-04_JPRB /)
1524 KA(:, 5, 8, 7) = (/ &
1525 & 0.59565E-07_JPRB,0.42000E-05_JPRB,0.72128E-05_JPRB,0.98789E-05_JPRB,0.12424E-04_JPRB, &
1526 & 0.14896E-04_JPRB,0.17382E-04_JPRB,0.21113E-04_JPRB,0.15894E-04_JPRB /)
1527 KA(:, 1, 9, 7) = (/ &
1528 & 0.60502E-07_JPRB,0.31758E-05_JPRB,0.57011E-05_JPRB,0.78602E-05_JPRB,0.98646E-05_JPRB, &
1529 & 0.11842E-04_JPRB,0.13914E-04_JPRB,0.16812E-04_JPRB,0.32738E-04_JPRB /)
1530 KA(:, 2, 9, 7) = (/ &
1531 & 0.61920E-07_JPRB,0.32583E-05_JPRB,0.58474E-05_JPRB,0.80501E-05_JPRB,0.10097E-04_JPRB, &
1532 & 0.12150E-04_JPRB,0.14260E-04_JPRB,0.17128E-04_JPRB,0.32707E-04_JPRB /)
1533 KA(:, 3, 9, 7) = (/ &
1534 & 0.66102E-07_JPRB,0.33410E-05_JPRB,0.59686E-05_JPRB,0.82148E-05_JPRB,0.10310E-04_JPRB, &
1535 & 0.12398E-04_JPRB,0.14542E-04_JPRB,0.17650E-04_JPRB,0.33629E-04_JPRB /)
1536 KA(:, 4, 9, 7) = (/ &
1537 & 0.86168E-07_JPRB,0.34261E-05_JPRB,0.60763E-05_JPRB,0.83539E-05_JPRB,0.10496E-04_JPRB, &
1538 & 0.12604E-04_JPRB,0.14773E-04_JPRB,0.17994E-04_JPRB,0.33878E-04_JPRB /)
1539 KA(:, 5, 9, 7) = (/ &
1540 & 0.91586E-07_JPRB,0.35057E-05_JPRB,0.61764E-05_JPRB,0.84703E-05_JPRB,0.10646E-04_JPRB, &
1541 & 0.12765E-04_JPRB,0.14939E-04_JPRB,0.18282E-04_JPRB,0.33645E-04_JPRB /)
1542 KA(:, 1,10, 7) = (/ &
1543 & 0.96997E-07_JPRB,0.19211E-05_JPRB,0.47098E-05_JPRB,0.66155E-05_JPRB,0.83225E-05_JPRB, &
1544 & 0.10005E-04_JPRB,0.11773E-04_JPRB,0.14404E-04_JPRB,0.53631E-04_JPRB /)
1545 KA(:, 2,10, 7) = (/ &
1546 & 0.96064E-07_JPRB,0.20141E-05_JPRB,0.48491E-05_JPRB,0.67941E-05_JPRB,0.85382E-05_JPRB, &
1547 & 0.10290E-04_JPRB,0.12102E-04_JPRB,0.14626E-04_JPRB,0.54289E-04_JPRB /)
1548 KA(:, 3,10, 7) = (/ &
1549 & 0.10431E-06_JPRB,0.20834E-05_JPRB,0.49690E-05_JPRB,0.69520E-05_JPRB,0.87398E-05_JPRB, &
1550 & 0.10520E-04_JPRB,0.12369E-04_JPRB,0.15124E-04_JPRB,0.55603E-04_JPRB /)
1551 KA(:, 4,10, 7) = (/ &
1552 & 0.11432E-06_JPRB,0.21653E-05_JPRB,0.50755E-05_JPRB,0.70852E-05_JPRB,0.89148E-05_JPRB, &
1553 & 0.10714E-04_JPRB,0.12591E-04_JPRB,0.15457E-04_JPRB,0.56630E-04_JPRB /)
1554
1555 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART5',1,ZHOOK_HANDLE)
1556 END SUBROUTINE PART5
1557
1558
1559 SUBROUTINE PART6
1560
1561 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1562 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART6',0,ZHOOK_HANDLE)
1563
1564
1565 KA(:, 5,10, 7) = (/ &
1566 & 0.11074E-06_JPRB,0.22480E-05_JPRB,0.51732E-05_JPRB,0.71951E-05_JPRB,0.90530E-05_JPRB, &
1567 & 0.10860E-04_JPRB,0.12745E-04_JPRB,0.15721E-04_JPRB,0.54963E-04_JPRB /)
1568 KA(:, 1,11, 7) = (/ &
1569 & 0.15854E-06_JPRB,0.91297E-06_JPRB,0.32555E-05_JPRB,0.55113E-05_JPRB,0.70464E-05_JPRB, &
1570 & 0.85121E-05_JPRB,0.10027E-04_JPRB,0.12303E-04_JPRB,0.52607E-04_JPRB /)
1571 KA(:, 2,11, 7) = (/ &
1572 & 0.16751E-06_JPRB,0.96634E-06_JPRB,0.33790E-05_JPRB,0.56722E-05_JPRB,0.72351E-05_JPRB, &
1573 & 0.87519E-05_JPRB,0.10311E-04_JPRB,0.12547E-04_JPRB,0.52883E-04_JPRB /)
1574 KA(:, 3,11, 7) = (/ &
1575 & 0.16741E-06_JPRB,0.10318E-05_JPRB,0.35064E-05_JPRB,0.58058E-05_JPRB,0.74099E-05_JPRB, &
1576 & 0.89413E-05_JPRB,0.10546E-04_JPRB,0.12998E-04_JPRB,0.52407E-04_JPRB /)
1577 KA(:, 4,11, 7) = (/ &
1578 & 0.16708E-06_JPRB,0.10925E-05_JPRB,0.36064E-05_JPRB,0.59145E-05_JPRB,0.75531E-05_JPRB, &
1579 & 0.90996E-05_JPRB,0.10715E-04_JPRB,0.13285E-04_JPRB,0.53203E-04_JPRB /)
1580 KA(:, 5,11, 7) = (/ &
1581 & 0.16578E-06_JPRB,0.11490E-05_JPRB,0.36852E-05_JPRB,0.60104E-05_JPRB,0.76652E-05_JPRB, &
1582 & 0.92182E-05_JPRB,0.10838E-04_JPRB,0.13496E-04_JPRB,0.54467E-04_JPRB /)
1583 KA(:, 1,12, 7) = (/ &
1584 & 0.17287E-06_JPRB,0.67222E-06_JPRB,0.20177E-05_JPRB,0.42045E-05_JPRB,0.58863E-05_JPRB, &
1585 & 0.71911E-05_JPRB,0.84904E-05_JPRB,0.10467E-04_JPRB,0.53824E-04_JPRB /)
1586 KA(:, 2,12, 7) = (/ &
1587 & 0.17534E-06_JPRB,0.66930E-06_JPRB,0.20902E-05_JPRB,0.43510E-05_JPRB,0.60518E-05_JPRB, &
1588 & 0.73834E-05_JPRB,0.87285E-05_JPRB,0.10723E-04_JPRB,0.57713E-04_JPRB /)
1589 KA(:, 3,12, 7) = (/ &
1590 & 0.19862E-06_JPRB,0.69271E-06_JPRB,0.21807E-05_JPRB,0.44473E-05_JPRB,0.61938E-05_JPRB, &
1591 & 0.75395E-05_JPRB,0.89230E-05_JPRB,0.11082E-04_JPRB,0.58727E-04_JPRB /)
1592 KA(:, 4,12, 7) = (/ &
1593 & 0.20481E-06_JPRB,0.70155E-06_JPRB,0.22437E-05_JPRB,0.45330E-05_JPRB,0.63072E-05_JPRB, &
1594 & 0.76639E-05_JPRB,0.90515E-05_JPRB,0.11316E-04_JPRB,0.62478E-04_JPRB /)
1595 KA(:, 5,12, 7) = (/ &
1596 & 0.22362E-06_JPRB,0.66686E-06_JPRB,0.23107E-05_JPRB,0.46277E-05_JPRB,0.64004E-05_JPRB, &
1597 & 0.77560E-05_JPRB,0.91460E-05_JPRB,0.11480E-04_JPRB,0.61459E-04_JPRB /)
1598 KA(:, 1,13, 7) = (/ &
1599 & 0.24394E-06_JPRB,0.78850E-06_JPRB,0.10005E-05_JPRB,0.25869E-05_JPRB,0.46671E-05_JPRB, &
1600 & 0.60110E-05_JPRB,0.71462E-05_JPRB,0.88357E-05_JPRB,0.59707E-04_JPRB /)
1601 KA(:, 2,13, 7) = (/ &
1602 & 0.25387E-06_JPRB,0.77656E-06_JPRB,0.10565E-05_JPRB,0.27093E-05_JPRB,0.48105E-05_JPRB, &
1603 & 0.61610E-05_JPRB,0.73436E-05_JPRB,0.90989E-05_JPRB,0.60151E-04_JPRB /)
1604 KA(:, 3,13, 7) = (/ &
1605 & 0.22260E-06_JPRB,0.76604E-06_JPRB,0.11188E-05_JPRB,0.28168E-05_JPRB,0.49259E-05_JPRB, &
1606 & 0.62864E-05_JPRB,0.74912E-05_JPRB,0.93777E-05_JPRB,0.58560E-04_JPRB /)
1607 KA(:, 4,13, 7) = (/ &
1608 & 0.22499E-06_JPRB,0.75979E-06_JPRB,0.11746E-05_JPRB,0.28869E-05_JPRB,0.50154E-05_JPRB, &
1609 & 0.63819E-05_JPRB,0.75933E-05_JPRB,0.95633E-05_JPRB,0.61656E-04_JPRB /)
1610 KA(:, 5,13, 7) = (/ &
1611 & 0.22527E-06_JPRB,0.74699E-06_JPRB,0.12195E-05_JPRB,0.29526E-05_JPRB,0.50915E-05_JPRB, &
1612 & 0.64528E-05_JPRB,0.76669E-05_JPRB,0.96909E-05_JPRB,0.60588E-04_JPRB /)
1613 KA(:, 1, 1, 8) = (/ &
1614 & 0.29788E-05_JPRB,0.29380E-04_JPRB,0.47103E-04_JPRB,0.62484E-04_JPRB,0.75923E-04_JPRB, &
1615 & 0.86945E-04_JPRB,0.96459E-04_JPRB,0.10727E-03_JPRB,0.95715E-04_JPRB /)
1616 KA(:, 2, 1, 8) = (/ &
1617 & 0.31829E-05_JPRB,0.29542E-04_JPRB,0.47406E-04_JPRB,0.62987E-04_JPRB,0.76500E-04_JPRB, &
1618 & 0.87575E-04_JPRB,0.97244E-04_JPRB,0.10847E-03_JPRB,0.96769E-04_JPRB /)
1619 KA(:, 3, 1, 8) = (/ &
1620 & 0.34017E-05_JPRB,0.30451E-04_JPRB,0.49181E-04_JPRB,0.65673E-04_JPRB,0.79848E-04_JPRB, &
1621 & 0.91475E-04_JPRB,0.10206E-03_JPRB,0.11418E-03_JPRB,0.10339E-03_JPRB /)
1622 KA(:, 4, 1, 8) = (/ &
1623 & 0.36204E-05_JPRB,0.29858E-04_JPRB,0.47964E-04_JPRB,0.63849E-04_JPRB,0.77416E-04_JPRB, &
1624 & 0.88495E-04_JPRB,0.98624E-04_JPRB,0.11030E-03_JPRB,0.98665E-04_JPRB /)
1625 KA(:, 5, 1, 8) = (/ &
1626 & 0.38336E-05_JPRB,0.30032E-04_JPRB,0.48176E-04_JPRB,0.64174E-04_JPRB,0.77743E-04_JPRB, &
1627 & 0.88899E-04_JPRB,0.99219E-04_JPRB,0.11117E-03_JPRB,0.99410E-04_JPRB /)
1628 KA(:, 1, 2, 8) = (/ &
1629 & 0.24422E-05_JPRB,0.27039E-04_JPRB,0.43472E-04_JPRB,0.57657E-04_JPRB,0.69985E-04_JPRB, &
1630 & 0.80297E-04_JPRB,0.89716E-04_JPRB,0.10091E-03_JPRB,0.87814E-04_JPRB /)
1631 KA(:, 2, 2, 8) = (/ &
1632 & 0.26194E-05_JPRB,0.27224E-04_JPRB,0.43834E-04_JPRB,0.58227E-04_JPRB,0.70564E-04_JPRB, &
1633 & 0.80899E-04_JPRB,0.90555E-04_JPRB,0.10201E-03_JPRB,0.88900E-04_JPRB /)
1634 KA(:, 3, 2, 8) = (/ &
1635 & 0.28026E-05_JPRB,0.28185E-04_JPRB,0.45675E-04_JPRB,0.60941E-04_JPRB,0.73932E-04_JPRB, &
1636 & 0.84933E-04_JPRB,0.95539E-04_JPRB,0.10795E-03_JPRB,0.95932E-04_JPRB /)
1637 KA(:, 4, 2, 8) = (/ &
1638 & 0.29807E-05_JPRB,0.28297E-04_JPRB,0.45818E-04_JPRB,0.61151E-04_JPRB,0.74119E-04_JPRB, &
1639 & 0.85132E-04_JPRB,0.95905E-04_JPRB,0.10857E-03_JPRB,0.96316E-04_JPRB /)
1640 KA(:, 5, 2, 8) = (/ &
1641 & 0.31559E-05_JPRB,0.27777E-04_JPRB,0.44649E-04_JPRB,0.59431E-04_JPRB,0.71821E-04_JPRB, &
1642 & 0.82324E-04_JPRB,0.92537E-04_JPRB,0.10487E-03_JPRB,0.91446E-04_JPRB /)
1643 KA(:, 1, 3, 8) = (/ &
1644 & 0.19527E-05_JPRB,0.24728E-04_JPRB,0.39864E-04_JPRB,0.52777E-04_JPRB,0.63893E-04_JPRB, &
1645 & 0.73441E-04_JPRB,0.82582E-04_JPRB,0.93968E-04_JPRB,0.79571E-04_JPRB /)
1646 KA(:, 2, 3, 8) = (/ &
1647 & 0.21028E-05_JPRB,0.24948E-04_JPRB,0.40273E-04_JPRB,0.53366E-04_JPRB,0.64472E-04_JPRB, &
1648 & 0.74070E-04_JPRB,0.83496E-04_JPRB,0.95166E-04_JPRB,0.80711E-04_JPRB /)
1649 KA(:, 3, 3, 8) = (/ &
1650 & 0.22571E-05_JPRB,0.25146E-04_JPRB,0.40613E-04_JPRB,0.53873E-04_JPRB,0.64998E-04_JPRB, &
1651 & 0.74638E-04_JPRB,0.84298E-04_JPRB,0.96249E-04_JPRB,0.81670E-04_JPRB /)
1652 KA(:, 4, 3, 8) = (/ &
1653 & 0.24052E-05_JPRB,0.26082E-04_JPRB,0.42367E-04_JPRB,0.56407E-04_JPRB,0.68204E-04_JPRB, &
1654 & 0.78600E-04_JPRB,0.89199E-04_JPRB,0.10217E-03_JPRB,0.88502E-04_JPRB /)
1655 KA(:, 5, 3, 8) = (/ &
1656 & 0.25493E-05_JPRB,0.25521E-04_JPRB,0.41156E-04_JPRB,0.54597E-04_JPRB,0.65795E-04_JPRB, &
1657 & 0.75610E-04_JPRB,0.85600E-04_JPRB,0.98234E-04_JPRB,0.83132E-04_JPRB /)
1658 KA(:, 1, 4, 8) = (/ &
1659 & 0.15249E-05_JPRB,0.22458E-04_JPRB,0.36230E-04_JPRB,0.47832E-04_JPRB,0.57788E-04_JPRB, &
1660 & 0.66572E-04_JPRB,0.75267E-04_JPRB,0.86613E-04_JPRB,0.71765E-04_JPRB /)
1661 KA(:, 2, 4, 8) = (/ &
1662 & 0.16472E-05_JPRB,0.22706E-04_JPRB,0.36674E-04_JPRB,0.48420E-04_JPRB,0.58373E-04_JPRB, &
1663 & 0.67233E-04_JPRB,0.76205E-04_JPRB,0.87918E-04_JPRB,0.72872E-04_JPRB /)
1664 KA(:, 3, 4, 8) = (/ &
1665 & 0.17727E-05_JPRB,0.22924E-04_JPRB,0.37041E-04_JPRB,0.48925E-04_JPRB,0.58917E-04_JPRB, &
1666 & 0.67822E-04_JPRB,0.77056E-04_JPRB,0.89127E-04_JPRB,0.73812E-04_JPRB /)
1667 KA(:, 4, 4, 8) = (/ &
1668 & 0.18979E-05_JPRB,0.23116E-04_JPRB,0.37363E-04_JPRB,0.49353E-04_JPRB,0.59386E-04_JPRB, &
1669 & 0.68373E-04_JPRB,0.77816E-04_JPRB,0.90208E-04_JPRB,0.74597E-04_JPRB /)
1670 KA(:, 5, 4, 8) = (/ &
1671 & 0.20187E-05_JPRB,0.24032E-04_JPRB,0.39090E-04_JPRB,0.51784E-04_JPRB,0.62486E-04_JPRB, &
1672 & 0.72274E-04_JPRB,0.82652E-04_JPRB,0.95944E-04_JPRB,0.81360E-04_JPRB /)
1673 KA(:, 1, 5, 8) = (/ &
1674 & 0.11616E-05_JPRB,0.20230E-04_JPRB,0.32593E-04_JPRB,0.43015E-04_JPRB,0.51913E-04_JPRB, &
1675 & 0.59885E-04_JPRB,0.68041E-04_JPRB,0.79091E-04_JPRB,0.64237E-04_JPRB /)
1676 KA(:, 2, 5, 8) = (/ &
1677 & 0.12634E-05_JPRB,0.20493E-04_JPRB,0.33052E-04_JPRB,0.43575E-04_JPRB,0.52485E-04_JPRB, &
1678 & 0.60579E-04_JPRB,0.68993E-04_JPRB,0.80447E-04_JPRB,0.65308E-04_JPRB /)
1679 KA(:, 3, 5, 8) = (/ &
1680 & 0.13665E-05_JPRB,0.20722E-04_JPRB,0.33449E-04_JPRB,0.44078E-04_JPRB,0.53031E-04_JPRB, &
1681 & 0.61206E-04_JPRB,0.69878E-04_JPRB,0.81712E-04_JPRB,0.66219E-04_JPRB /)
1682 KA(:, 4, 5, 8) = (/ &
1683 & 0.14654E-05_JPRB,0.20926E-04_JPRB,0.33806E-04_JPRB,0.44507E-04_JPRB,0.53511E-04_JPRB, &
1684 & 0.61775E-04_JPRB,0.70644E-04_JPRB,0.82800E-04_JPRB,0.67010E-04_JPRB /)
1685 KA(:, 5, 5, 8) = (/ &
1686 & 0.15654E-05_JPRB,0.21919E-04_JPRB,0.35683E-04_JPRB,0.47135E-04_JPRB,0.56892E-04_JPRB, &
1687 & 0.66014E-04_JPRB,0.75901E-04_JPRB,0.88948E-04_JPRB,0.74367E-04_JPRB /)
1688 KA(:, 1, 6, 8) = (/ &
1689 & 0.85477E-06_JPRB,0.18056E-04_JPRB,0.29058E-04_JPRB,0.38374E-04_JPRB,0.46318E-04_JPRB, &
1690 & 0.53503E-04_JPRB,0.60983E-04_JPRB,0.71567E-04_JPRB,0.55220E-04_JPRB /)
1691 KA(:, 2, 6, 8) = (/ &
1692 & 0.93399E-06_JPRB,0.18333E-04_JPRB,0.29518E-04_JPRB,0.38924E-04_JPRB,0.46903E-04_JPRB, &
1693 & 0.54228E-04_JPRB,0.61990E-04_JPRB,0.72960E-04_JPRB,0.56327E-04_JPRB /)
1694 KA(:, 3, 6, 8) = (/ &
1695 & 0.10173E-05_JPRB,0.18568E-04_JPRB,0.29940E-04_JPRB,0.39430E-04_JPRB,0.47457E-04_JPRB, &
1696 & 0.54891E-04_JPRB,0.62912E-04_JPRB,0.74219E-04_JPRB,0.57262E-04_JPRB /)
1697 KA(:, 4, 6, 8) = (/ &
1698 & 0.10990E-05_JPRB,0.18773E-04_JPRB,0.30321E-04_JPRB,0.39858E-04_JPRB,0.47937E-04_JPRB, &
1699 & 0.55463E-04_JPRB,0.63685E-04_JPRB,0.75339E-04_JPRB,0.58060E-04_JPRB /)
1700 KA(:, 5, 6, 8) = (/ &
1701 & 0.11736E-05_JPRB,0.18980E-04_JPRB,0.30632E-04_JPRB,0.40210E-04_JPRB,0.48338E-04_JPRB, &
1702 & 0.55952E-04_JPRB,0.64349E-04_JPRB,0.76243E-04_JPRB,0.58787E-04_JPRB /)
1703 KA(:, 1, 7, 8) = (/ &
1704 & 0.60315E-06_JPRB,0.15982E-04_JPRB,0.25725E-04_JPRB,0.33991E-04_JPRB,0.41066E-04_JPRB, &
1705 & 0.47516E-04_JPRB,0.54302E-04_JPRB,0.64196E-04_JPRB,0.19175E-04_JPRB /)
1706 KA(:, 2, 7, 8) = (/ &
1707 & 0.66792E-06_JPRB,0.16270E-04_JPRB,0.26184E-04_JPRB,0.34534E-04_JPRB,0.41673E-04_JPRB, &
1708 & 0.48253E-04_JPRB,0.55322E-04_JPRB,0.65617E-04_JPRB,0.20214E-04_JPRB /)
1709 KA(:, 3, 7, 8) = (/ &
1710 & 0.72908E-06_JPRB,0.16517E-04_JPRB,0.26616E-04_JPRB,0.35037E-04_JPRB,0.42229E-04_JPRB, &
1711 & 0.48924E-04_JPRB,0.56239E-04_JPRB,0.66903E-04_JPRB,0.21171E-04_JPRB /)
1712 KA(:, 4, 7, 8) = (/ &
1713 & 0.78570E-06_JPRB,0.16735E-04_JPRB,0.27002E-04_JPRB,0.35463E-04_JPRB,0.42700E-04_JPRB, &
1714 & 0.49504E-04_JPRB,0.57015E-04_JPRB,0.68011E-04_JPRB,0.22118E-04_JPRB /)
1715 KA(:, 5, 7, 8) = (/ &
1716 & 0.83832E-06_JPRB,0.16948E-04_JPRB,0.27325E-04_JPRB,0.35815E-04_JPRB,0.43102E-04_JPRB, &
1717 & 0.50003E-04_JPRB,0.57693E-04_JPRB,0.68917E-04_JPRB,0.22989E-04_JPRB /)
1718 KA(:, 1, 8, 8) = (/ &
1719 & 0.37835E-06_JPRB,0.14042E-04_JPRB,0.22619E-04_JPRB,0.29906E-04_JPRB,0.36184E-04_JPRB, &
1720 & 0.41943E-04_JPRB,0.48058E-04_JPRB,0.57159E-04_JPRB,0.15030E-04_JPRB /)
1721 KA(:, 2, 8, 8) = (/ &
1722 & 0.42400E-06_JPRB,0.14336E-04_JPRB,0.23076E-04_JPRB,0.30441E-04_JPRB,0.36790E-04_JPRB, &
1723 & 0.42677E-04_JPRB,0.49055E-04_JPRB,0.58574E-04_JPRB,0.15267E-04_JPRB /)
1724 KA(:, 3, 8, 8) = (/ &
1725 & 0.47003E-06_JPRB,0.14598E-04_JPRB,0.23503E-04_JPRB,0.30926E-04_JPRB,0.37338E-04_JPRB, &
1726 & 0.43345E-04_JPRB,0.49944E-04_JPRB,0.59871E-04_JPRB,0.15168E-04_JPRB /)
1727 KA(:, 4, 8, 8) = (/ &
1728 & 0.50983E-06_JPRB,0.14832E-04_JPRB,0.23887E-04_JPRB,0.31342E-04_JPRB,0.37806E-04_JPRB, &
1729 & 0.43932E-04_JPRB,0.50714E-04_JPRB,0.60954E-04_JPRB,0.15479E-04_JPRB /)
1730 KA(:, 5, 8, 8) = (/ &
1731 & 0.55238E-06_JPRB,0.15050E-04_JPRB,0.24211E-04_JPRB,0.31698E-04_JPRB,0.38215E-04_JPRB, &
1732 & 0.44447E-04_JPRB,0.51404E-04_JPRB,0.61843E-04_JPRB,0.15864E-04_JPRB /)
1733 KA(:, 1, 9, 8) = (/ &
1734 & 0.20614E-06_JPRB,0.12247E-04_JPRB,0.19755E-04_JPRB,0.26136E-04_JPRB,0.31671E-04_JPRB, &
1735 & 0.36795E-04_JPRB,0.42267E-04_JPRB,0.50480E-04_JPRB,0.31415E-04_JPRB /)
1736 KA(:, 2, 9, 8) = (/ &
1737 & 0.22820E-06_JPRB,0.12543E-04_JPRB,0.20203E-04_JPRB,0.26660E-04_JPRB,0.32273E-04_JPRB, &
1738 & 0.37518E-04_JPRB,0.43228E-04_JPRB,0.51895E-04_JPRB,0.32257E-04_JPRB /)
1739 KA(:, 3, 9, 8) = (/ &
1740 & 0.25381E-06_JPRB,0.12814E-04_JPRB,0.20621E-04_JPRB,0.27129E-04_JPRB,0.32814E-04_JPRB, &
1741 & 0.38186E-04_JPRB,0.44095E-04_JPRB,0.53151E-04_JPRB,0.31766E-04_JPRB /)
1742 KA(:, 4, 9, 8) = (/ &
1743 & 0.26266E-06_JPRB,0.13056E-04_JPRB,0.20991E-04_JPRB,0.27538E-04_JPRB,0.33285E-04_JPRB, &
1744 & 0.38781E-04_JPRB,0.44859E-04_JPRB,0.54214E-04_JPRB,0.32184E-04_JPRB /)
1745 KA(:, 5, 9, 8) = (/ &
1746 & 0.28878E-06_JPRB,0.13277E-04_JPRB,0.21308E-04_JPRB,0.27899E-04_JPRB,0.33704E-04_JPRB, &
1747 & 0.39313E-04_JPRB,0.45556E-04_JPRB,0.55111E-04_JPRB,0.32436E-04_JPRB /)
1748 KA(:, 1,10, 8) = (/ &
1749 & 0.12421E-06_JPRB,0.10598E-04_JPRB,0.17170E-04_JPRB,0.22745E-04_JPRB,0.27597E-04_JPRB, &
1750 & 0.32129E-04_JPRB,0.37024E-04_JPRB,0.44410E-04_JPRB,0.36288E-04_JPRB /)
1751 KA(:, 2,10, 8) = (/ &
1752 & 0.11833E-06_JPRB,0.10888E-04_JPRB,0.17606E-04_JPRB,0.23251E-04_JPRB,0.28191E-04_JPRB, &
1753 & 0.32843E-04_JPRB,0.37957E-04_JPRB,0.45757E-04_JPRB,0.36706E-04_JPRB /)
1754 KA(:, 3,10, 8) = (/ &
1755 & 0.11564E-06_JPRB,0.11153E-04_JPRB,0.18009E-04_JPRB,0.23706E-04_JPRB,0.28726E-04_JPRB, &
1756 & 0.33507E-04_JPRB,0.38804E-04_JPRB,0.46971E-04_JPRB,0.39285E-04_JPRB /)
1757 KA(:, 4,10, 8) = (/ &
1758 & 0.11888E-06_JPRB,0.11400E-04_JPRB,0.18364E-04_JPRB,0.24104E-04_JPRB,0.29196E-04_JPRB, &
1759 & 0.34101E-04_JPRB,0.39555E-04_JPRB,0.47996E-04_JPRB,0.37765E-04_JPRB /)
1760 KA(:, 5,10, 8) = (/ &
1761 & 0.13250E-06_JPRB,0.11625E-04_JPRB,0.18671E-04_JPRB,0.24463E-04_JPRB,0.29622E-04_JPRB, &
1762 & 0.34646E-04_JPRB,0.40249E-04_JPRB,0.48876E-04_JPRB,0.41184E-04_JPRB /)
1763 KA(:, 1,11, 8) = (/ &
1764 & 0.17958E-06_JPRB,0.90757E-05_JPRB,0.15007E-04_JPRB,0.19889E-04_JPRB,0.24154E-04_JPRB, &
1765 & 0.28187E-04_JPRB,0.32636E-04_JPRB,0.39437E-04_JPRB,0.34162E-04_JPRB /)
1766 KA(:, 2,11, 8) = (/ &
1767 & 0.18139E-06_JPRB,0.93666E-05_JPRB,0.15418E-04_JPRB,0.20361E-04_JPRB,0.24716E-04_JPRB, &
1768 & 0.28864E-04_JPRB,0.33507E-04_JPRB,0.40680E-04_JPRB,0.35787E-04_JPRB /)
1769 KA(:, 3,11, 8) = (/ &
1770 & 0.18275E-06_JPRB,0.96291E-05_JPRB,0.15787E-04_JPRB,0.20786E-04_JPRB,0.25221E-04_JPRB, &
1771 & 0.29495E-04_JPRB,0.34295E-04_JPRB,0.41765E-04_JPRB,0.33878E-04_JPRB /)
1772 KA(:, 4,11, 8) = (/ &
1773 & 0.18574E-06_JPRB,0.98743E-05_JPRB,0.16117E-04_JPRB,0.21165E-04_JPRB,0.25673E-04_JPRB, &
1774 & 0.30069E-04_JPRB,0.35015E-04_JPRB,0.42686E-04_JPRB,0.32841E-04_JPRB /)
1775 KA(:, 5,11, 8) = (/ &
1776 & 0.20082E-06_JPRB,0.10102E-04_JPRB,0.16409E-04_JPRB,0.21512E-04_JPRB,0.26096E-04_JPRB, &
1777 & 0.30600E-04_JPRB,0.35678E-04_JPRB,0.43526E-04_JPRB,0.33904E-04_JPRB /)
1778 KA(:, 1,12, 8) = (/ &
1779 & 0.23860E-06_JPRB,0.72127E-05_JPRB,0.13015E-04_JPRB,0.17297E-04_JPRB,0.21033E-04_JPRB, &
1780 & 0.24600E-04_JPRB,0.28604E-04_JPRB,0.34818E-04_JPRB,0.40933E-04_JPRB /)
1781 KA(:, 2,12, 8) = (/ &
1782 & 0.23391E-06_JPRB,0.75352E-05_JPRB,0.13408E-04_JPRB,0.17740E-04_JPRB,0.21564E-04_JPRB, &
1783 & 0.25251E-04_JPRB,0.29426E-04_JPRB,0.35947E-04_JPRB,0.39399E-04_JPRB /)
1784 KA(:, 3,12, 8) = (/ &
1785 & 0.24701E-06_JPRB,0.78057E-05_JPRB,0.13760E-04_JPRB,0.18144E-04_JPRB,0.22045E-04_JPRB, &
1786 & 0.25844E-04_JPRB,0.30162E-04_JPRB,0.36924E-04_JPRB,0.38294E-04_JPRB /)
1787 KA(:, 4,12, 8) = (/ &
1788 & 0.26761E-06_JPRB,0.80774E-05_JPRB,0.14071E-04_JPRB,0.18509E-04_JPRB,0.22485E-04_JPRB, &
1789 & 0.26399E-04_JPRB,0.30850E-04_JPRB,0.37793E-04_JPRB,0.37310E-04_JPRB /)
1790 KA(:, 5,12, 8) = (/ &
1791 & 0.23665E-06_JPRB,0.83711E-05_JPRB,0.14360E-04_JPRB,0.18850E-04_JPRB,0.22903E-04_JPRB, &
1792 & 0.26918E-04_JPRB,0.31485E-04_JPRB,0.38601E-04_JPRB,0.34593E-04_JPRB /)
1793 KA(:, 1,13, 8) = (/ &
1794 & 0.27521E-06_JPRB,0.50755E-05_JPRB,0.11059E-04_JPRB,0.14942E-04_JPRB,0.18221E-04_JPRB, &
1795 & 0.21366E-04_JPRB,0.24941E-04_JPRB,0.30569E-04_JPRB,0.35909E-04_JPRB /)
1796 KA(:, 2,13, 8) = (/ &
1797 & 0.25317E-06_JPRB,0.53749E-05_JPRB,0.11450E-04_JPRB,0.15364E-04_JPRB,0.18725E-04_JPRB, &
1798 & 0.21982E-04_JPRB,0.25707E-04_JPRB,0.31598E-04_JPRB,0.37411E-04_JPRB /)
1799 KA(:, 3,13, 8) = (/ &
1800 & 0.23895E-06_JPRB,0.56684E-05_JPRB,0.11800E-04_JPRB,0.15745E-04_JPRB,0.19182E-04_JPRB, &
1801 & 0.22548E-04_JPRB,0.26403E-04_JPRB,0.32490E-04_JPRB,0.35715E-04_JPRB /)
1802 KA(:, 4,13, 8) = (/ &
1803 & 0.23323E-06_JPRB,0.59219E-05_JPRB,0.12110E-04_JPRB,0.16104E-04_JPRB,0.19621E-04_JPRB, &
1804 & 0.23090E-04_JPRB,0.27069E-04_JPRB,0.33309E-04_JPRB,0.26489E-04_JPRB /)
1805 KA(:, 5,13, 8) = (/ &
1806 & 0.23115E-06_JPRB,0.61949E-05_JPRB,0.12408E-04_JPRB,0.16438E-04_JPRB,0.20031E-04_JPRB, &
1807 & 0.23602E-04_JPRB,0.27683E-04_JPRB,0.34068E-04_JPRB,0.26612E-04_JPRB /)
1808 KA(:, 1, 1, 9) = (/ &
1809 & 0.91507E-04_JPRB,0.14710E-03_JPRB,0.19128E-03_JPRB,0.22605E-03_JPRB,0.25532E-03_JPRB, &
1810 & 0.28077E-03_JPRB,0.30345E-03_JPRB,0.32646E-03_JPRB,0.30807E-03_JPRB /)
1811 KA(:, 2, 1, 9) = (/ &
1812 & 0.91242E-04_JPRB,0.14642E-03_JPRB,0.19074E-03_JPRB,0.22564E-03_JPRB,0.25500E-03_JPRB, &
1813 & 0.28086E-03_JPRB,0.30369E-03_JPRB,0.32690E-03_JPRB,0.30957E-03_JPRB /)
1814 KA(:, 3, 1, 9) = (/ &
1815 & 0.90877E-04_JPRB,0.14692E-03_JPRB,0.19251E-03_JPRB,0.22869E-03_JPRB,0.25946E-03_JPRB, &
1816 & 0.28682E-03_JPRB,0.31087E-03_JPRB,0.33538E-03_JPRB,0.32011E-03_JPRB /)
1817 KA(:, 4, 1, 9) = (/ &
1818 & 0.90459E-04_JPRB,0.14494E-03_JPRB,0.18943E-03_JPRB,0.22459E-03_JPRB,0.25465E-03_JPRB, &
1819 & 0.28114E-03_JPRB,0.30414E-03_JPRB,0.32755E-03_JPRB,0.31196E-03_JPRB /)
1820 KA(:, 5, 1, 9) = (/ &
1821 & 0.89993E-04_JPRB,0.14416E-03_JPRB,0.18875E-03_JPRB,0.22408E-03_JPRB,0.25453E-03_JPRB, &
1822 & 0.28137E-03_JPRB,0.30449E-03_JPRB,0.32780E-03_JPRB,0.31307E-03_JPRB /)
1823 KA(:, 1, 2, 9) = (/ &
1824 & 0.77262E-04_JPRB,0.13432E-03_JPRB,0.17769E-03_JPRB,0.21240E-03_JPRB,0.24204E-03_JPRB, &
1825 & 0.26866E-03_JPRB,0.29235E-03_JPRB,0.31628E-03_JPRB,0.29582E-03_JPRB /)
1826 KA(:, 2, 2, 9) = (/ &
1827 & 0.77061E-04_JPRB,0.13375E-03_JPRB,0.17727E-03_JPRB,0.21210E-03_JPRB,0.24206E-03_JPRB, &
1828 & 0.26905E-03_JPRB,0.29288E-03_JPRB,0.31707E-03_JPRB,0.29754E-03_JPRB /)
1829 KA(:, 3, 2, 9) = (/ &
1830 & 0.76803E-04_JPRB,0.13443E-03_JPRB,0.17926E-03_JPRB,0.21557E-03_JPRB,0.24713E-03_JPRB, &
1831 & 0.27557E-03_JPRB,0.30072E-03_JPRB,0.32610E-03_JPRB,0.30880E-03_JPRB /)
1832 KA(:, 4, 2, 9) = (/ &
1833 & 0.76502E-04_JPRB,0.13372E-03_JPRB,0.17855E-03_JPRB,0.21503E-03_JPRB,0.24689E-03_JPRB, &
1834 & 0.27560E-03_JPRB,0.30084E-03_JPRB,0.32601E-03_JPRB,0.30963E-03_JPRB /)
1835 KA(:, 5, 2, 9) = (/ &
1836 & 0.76149E-04_JPRB,0.13198E-03_JPRB,0.17568E-03_JPRB,0.21133E-03_JPRB,0.24254E-03_JPRB, &
1837 & 0.27051E-03_JPRB,0.29485E-03_JPRB,0.31890E-03_JPRB,0.30223E-03_JPRB /)
1838 KA(:, 1, 3, 9) = (/ &
1839 & 0.65103E-04_JPRB,0.12258E-03_JPRB,0.16452E-03_JPRB,0.19865E-03_JPRB,0.22866E-03_JPRB, &
1840 & 0.25591E-03_JPRB,0.28055E-03_JPRB,0.30511E-03_JPRB,0.28178E-03_JPRB /)
1841 KA(:, 2, 3, 9) = (/ &
1842 & 0.64961E-04_JPRB,0.12216E-03_JPRB,0.16424E-03_JPRB,0.19863E-03_JPRB,0.22903E-03_JPRB, &
1843 & 0.25664E-03_JPRB,0.28152E-03_JPRB,0.30626E-03_JPRB,0.28379E-03_JPRB /)
1844 KA(:, 3, 3, 9) = (/ &
1845 & 0.64796E-04_JPRB,0.12170E-03_JPRB,0.16393E-03_JPRB,0.19861E-03_JPRB,0.22948E-03_JPRB, &
1846 & 0.25740E-03_JPRB,0.28253E-03_JPRB,0.30727E-03_JPRB,0.28578E-03_JPRB /)
1847 KA(:, 4, 3, 9) = (/ &
1848 & 0.64583E-04_JPRB,0.12248E-03_JPRB,0.16600E-03_JPRB,0.20227E-03_JPRB,0.23481E-03_JPRB, &
1849 & 0.26421E-03_JPRB,0.29055E-03_JPRB,0.31636E-03_JPRB,0.29736E-03_JPRB /)
1850 KA(:, 5, 3, 9) = (/ &
1851 & 0.64341E-04_JPRB,0.12081E-03_JPRB,0.16325E-03_JPRB,0.19869E-03_JPRB,0.23043E-03_JPRB, &
1852 & 0.25903E-03_JPRB,0.28445E-03_JPRB,0.30920E-03_JPRB,0.28976E-03_JPRB /)
1853
1854 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART6',1,ZHOOK_HANDLE)
1855 END SUBROUTINE PART6
1856
1857
1858 SUBROUTINE PART7
1859
1860 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1861 IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART7',0,ZHOOK_HANDLE)
1862
1863
1864 KA(:, 1, 4, 9) = (/ &
1865 & 0.54784E-04_JPRB,0.11174E-03_JPRB,0.15188E-03_JPRB,0.18523E-03_JPRB,0.21503E-03_JPRB, &
1866 & 0.24239E-03_JPRB,0.26770E-03_JPRB,0.29311E-03_JPRB,0.26685E-03_JPRB /)
1867 KA(:, 2, 4, 9) = (/ &
1868 & 0.54700E-04_JPRB,0.11144E-03_JPRB,0.15177E-03_JPRB,0.18550E-03_JPRB,0.21578E-03_JPRB, &
1869 & 0.24348E-03_JPRB,0.26903E-03_JPRB,0.29466E-03_JPRB,0.26928E-03_JPRB /)
1870 KA(:, 3, 4, 9) = (/ &
1871 & 0.54592E-04_JPRB,0.11111E-03_JPRB,0.15167E-03_JPRB,0.18578E-03_JPRB,0.21655E-03_JPRB, &
1872 & 0.24456E-03_JPRB,0.27029E-03_JPRB,0.29609E-03_JPRB,0.27162E-03_JPRB /)
1873 KA(:, 4, 4, 9) = (/ &
1874 & 0.54457E-04_JPRB,0.11078E-03_JPRB,0.15152E-03_JPRB,0.18607E-03_JPRB,0.21728E-03_JPRB, &
1875 & 0.24565E-03_JPRB,0.27151E-03_JPRB,0.29746E-03_JPRB,0.27399E-03_JPRB /)
1876 KA(:, 5, 4, 9) = (/ &
1877 & 0.54312E-04_JPRB,0.11162E-03_JPRB,0.15369E-03_JPRB,0.18993E-03_JPRB,0.22281E-03_JPRB, &
1878 & 0.25263E-03_JPRB,0.27972E-03_JPRB,0.30664E-03_JPRB,0.28593E-03_JPRB /)
1879 KA(:, 1, 5, 9) = (/ &
1880 & 0.46088E-04_JPRB,0.10164E-03_JPRB,0.13985E-03_JPRB,0.17192E-03_JPRB,0.20105E-03_JPRB, &
1881 & 0.22810E-03_JPRB,0.25365E-03_JPRB,0.28019E-03_JPRB,0.25169E-03_JPRB /)
1882 KA(:, 2, 5, 9) = (/ &
1883 & 0.46037E-04_JPRB,0.10150E-03_JPRB,0.13996E-03_JPRB,0.17251E-03_JPRB,0.20208E-03_JPRB, &
1884 & 0.22949E-03_JPRB,0.25532E-03_JPRB,0.28211E-03_JPRB,0.25438E-03_JPRB /)
1885 KA(:, 3, 5, 9) = (/ &
1886 & 0.45971E-04_JPRB,0.10129E-03_JPRB,0.14008E-03_JPRB,0.17302E-03_JPRB,0.20310E-03_JPRB, &
1887 & 0.23085E-03_JPRB,0.25690E-03_JPRB,0.28385E-03_JPRB,0.25702E-03_JPRB /)
1888 KA(:, 4, 5, 9) = (/ &
1889 & 0.45890E-04_JPRB,0.10111E-03_JPRB,0.14015E-03_JPRB,0.17355E-03_JPRB,0.20405E-03_JPRB, &
1890 & 0.23221E-03_JPRB,0.25843E-03_JPRB,0.28547E-03_JPRB,0.25970E-03_JPRB /)
1891 KA(:, 5, 5, 9) = (/ &
1892 & 0.45808E-04_JPRB,0.10210E-03_JPRB,0.14263E-03_JPRB,0.17783E-03_JPRB,0.21010E-03_JPRB, &
1893 & 0.23994E-03_JPRB,0.26750E-03_JPRB,0.29545E-03_JPRB,0.27288E-03_JPRB /)
1894 KA(:, 1, 6, 9) = (/ &
1895 & 0.38759E-04_JPRB,0.92287E-04_JPRB,0.12830E-03_JPRB,0.15873E-03_JPRB,0.18673E-03_JPRB, &
1896 & 0.21305E-03_JPRB,0.23858E-03_JPRB,0.26603E-03_JPRB,0.23576E-03_JPRB /)
1897 KA(:, 2, 6, 9) = (/ &
1898 & 0.38742E-04_JPRB,0.92285E-04_JPRB,0.12860E-03_JPRB,0.15956E-03_JPRB,0.18804E-03_JPRB, &
1899 & 0.21479E-03_JPRB,0.24061E-03_JPRB,0.26833E-03_JPRB,0.23876E-03_JPRB /)
1900 KA(:, 3, 6, 9) = (/ &
1901 & 0.38716E-04_JPRB,0.92248E-04_JPRB,0.12890E-03_JPRB,0.16031E-03_JPRB,0.18934E-03_JPRB, &
1902 & 0.21647E-03_JPRB,0.24252E-03_JPRB,0.27042E-03_JPRB,0.24167E-03_JPRB /)
1903 KA(:, 4, 6, 9) = (/ &
1904 & 0.38672E-04_JPRB,0.92189E-04_JPRB,0.12914E-03_JPRB,0.16108E-03_JPRB,0.19055E-03_JPRB, &
1905 & 0.21815E-03_JPRB,0.24441E-03_JPRB,0.27232E-03_JPRB,0.24468E-03_JPRB /)
1906 KA(:, 5, 6, 9) = (/ &
1907 & 0.38631E-04_JPRB,0.92110E-04_JPRB,0.12940E-03_JPRB,0.16181E-03_JPRB,0.19180E-03_JPRB, &
1908 & 0.21982E-03_JPRB,0.24634E-03_JPRB,0.27420E-03_JPRB,0.24778E-03_JPRB /)
1909 KA(:, 1, 7, 9) = (/ &
1910 & 0.32524E-04_JPRB,0.83578E-04_JPRB,0.11715E-03_JPRB,0.14581E-03_JPRB,0.17242E-03_JPRB, &
1911 & 0.19778E-03_JPRB,0.22289E-03_JPRB,0.25099E-03_JPRB,0.21544E-03_JPRB /)
1912 KA(:, 2, 7, 9) = (/ &
1913 & 0.32544E-04_JPRB,0.83724E-04_JPRB,0.11765E-03_JPRB,0.14685E-03_JPRB,0.17402E-03_JPRB, &
1914 & 0.19984E-03_JPRB,0.22531E-03_JPRB,0.25360E-03_JPRB,0.21897E-03_JPRB /)
1915 KA(:, 3, 7, 9) = (/ &
1916 & 0.32541E-04_JPRB,0.83837E-04_JPRB,0.11812E-03_JPRB,0.14785E-03_JPRB,0.17560E-03_JPRB, &
1917 & 0.20184E-03_JPRB,0.22764E-03_JPRB,0.25604E-03_JPRB,0.22234E-03_JPRB /)
1918 KA(:, 4, 7, 9) = (/ &
1919 & 0.32522E-04_JPRB,0.83911E-04_JPRB,0.11855E-03_JPRB,0.14886E-03_JPRB,0.17710E-03_JPRB, &
1920 & 0.20381E-03_JPRB,0.22989E-03_JPRB,0.25831E-03_JPRB,0.22586E-03_JPRB /)
1921 KA(:, 5, 7, 9) = (/ &
1922 & 0.32511E-04_JPRB,0.83972E-04_JPRB,0.11899E-03_JPRB,0.14985E-03_JPRB,0.17863E-03_JPRB, &
1923 & 0.20577E-03_JPRB,0.23212E-03_JPRB,0.26056E-03_JPRB,0.22930E-03_JPRB /)
1924 KA(:, 1, 8, 9) = (/ &
1925 & 0.27162E-04_JPRB,0.75477E-04_JPRB,0.10657E-03_JPRB,0.13337E-03_JPRB,0.15848E-03_JPRB, &
1926 & 0.18267E-03_JPRB,0.20707E-03_JPRB,0.23532E-03_JPRB,0.10685E-03_JPRB /)
1927 KA(:, 2, 8, 9) = (/ &
1928 & 0.27219E-04_JPRB,0.75747E-04_JPRB,0.10724E-03_JPRB,0.13464E-03_JPRB,0.16036E-03_JPRB, &
1929 & 0.18507E-03_JPRB,0.20988E-03_JPRB,0.23834E-03_JPRB,0.11049E-03_JPRB /)
1930 KA(:, 3, 8, 9) = (/ &
1931 & 0.27240E-04_JPRB,0.75981E-04_JPRB,0.10788E-03_JPRB,0.13591E-03_JPRB,0.16217E-03_JPRB, &
1932 & 0.18731E-03_JPRB,0.21250E-03_JPRB,0.24115E-03_JPRB,0.11463E-03_JPRB /)
1933 KA(:, 4, 8, 9) = (/ &
1934 & 0.27241E-04_JPRB,0.76175E-04_JPRB,0.10851E-03_JPRB,0.13715E-03_JPRB,0.16392E-03_JPRB, &
1935 & 0.18952E-03_JPRB,0.21504E-03_JPRB,0.24375E-03_JPRB,0.11830E-03_JPRB /)
1936 KA(:, 5, 8, 9) = (/ &
1937 & 0.27254E-04_JPRB,0.76338E-04_JPRB,0.10913E-03_JPRB,0.13836E-03_JPRB,0.16569E-03_JPRB, &
1938 & 0.19172E-03_JPRB,0.21755E-03_JPRB,0.24638E-03_JPRB,0.12227E-03_JPRB /)
1939 KA(:, 1, 9, 9) = (/ &
1940 & 0.22546E-04_JPRB,0.67903E-04_JPRB,0.96628E-04_JPRB,0.12150E-03_JPRB,0.14489E-03_JPRB, &
1941 & 0.16757E-03_JPRB,0.19095E-03_JPRB,0.21913E-03_JPRB,0.25626E-04_JPRB /)
1942 KA(:, 2, 9, 9) = (/ &
1943 & 0.22635E-04_JPRB,0.68268E-04_JPRB,0.97460E-04_JPRB,0.12301E-03_JPRB,0.14702E-03_JPRB, &
1944 & 0.17028E-03_JPRB,0.19411E-03_JPRB,0.22260E-03_JPRB,0.25839E-04_JPRB /)
1945 KA(:, 3, 9, 9) = (/ &
1946 & 0.22685E-04_JPRB,0.68616E-04_JPRB,0.98277E-04_JPRB,0.12450E-03_JPRB,0.14909E-03_JPRB, &
1947 & 0.17284E-03_JPRB,0.19709E-03_JPRB,0.22578E-03_JPRB,0.27443E-04_JPRB /)
1948 KA(:, 4, 9, 9) = (/ &
1949 & 0.22709E-04_JPRB,0.68929E-04_JPRB,0.99095E-04_JPRB,0.12593E-03_JPRB,0.15108E-03_JPRB, &
1950 & 0.17530E-03_JPRB,0.19995E-03_JPRB,0.22878E-03_JPRB,0.28531E-04_JPRB /)
1951 KA(:, 5, 9, 9) = (/ &
1952 & 0.22740E-04_JPRB,0.69227E-04_JPRB,0.99896E-04_JPRB,0.12734E-03_JPRB,0.15306E-03_JPRB, &
1953 & 0.17777E-03_JPRB,0.20277E-03_JPRB,0.23170E-03_JPRB,0.28894E-04_JPRB /)
1954 KA(:, 1,10, 9) = (/ &
1955 & 0.18403E-04_JPRB,0.60856E-04_JPRB,0.87340E-04_JPRB,0.11017E-03_JPRB,0.13174E-03_JPRB, &
1956 & 0.15284E-03_JPRB,0.17492E-03_JPRB,0.20267E-03_JPRB,0.31931E-04_JPRB /)
1957 KA(:, 2,10, 9) = (/ &
1958 & 0.18527E-04_JPRB,0.61329E-04_JPRB,0.88371E-04_JPRB,0.11191E-03_JPRB,0.13412E-03_JPRB, &
1959 & 0.15579E-03_JPRB,0.17838E-03_JPRB,0.20650E-03_JPRB,0.29084E-04_JPRB /)
1960 KA(:, 3,10, 9) = (/ &
1961 & 0.18600E-04_JPRB,0.61796E-04_JPRB,0.89354E-04_JPRB,0.11363E-03_JPRB,0.13643E-03_JPRB, &
1962 & 0.15861E-03_JPRB,0.18170E-03_JPRB,0.21009E-03_JPRB,0.27893E-04_JPRB /)
1963 KA(:, 4,10, 9) = (/ &
1964 & 0.18642E-04_JPRB,0.62226E-04_JPRB,0.90339E-04_JPRB,0.11526E-03_JPRB,0.13867E-03_JPRB, &
1965 & 0.16137E-03_JPRB,0.18486E-03_JPRB,0.21346E-03_JPRB,0.33895E-04_JPRB /)
1966 KA(:, 5,10, 9) = (/ &