GCC Code Coverage Report


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

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