GCC Code Coverage Report


Directory: ./
File: rad/rrtm_kgb4.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 5026 5026 100.0%
Branches: 9740 9818 99.2%

Line Branch Exec Source
1 !OCL SCALAR
2 !pgi$r opt=0
3 1 SUBROUTINE RRTM_KGB4
4
5 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
6 ! BAND 4: 630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
7 ! Reformatted for F90 by JJMorcrette, ECMWF
8 ! R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
9
10 ! ------------------------------------------------------------------
11
12 USE PARKIND1 ,ONLY : JPRB
13 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
14
15 USE YOERRTO4 , ONLY : KAO ,KBO ,SELFREFO ,FRACREFAO ,FRACREFBO
16 USE YOERRTA4 , ONLY : STRRAT1 ,STRRAT2
17
18 ! ------------------------------------------------------------------
19
20 IMPLICIT NONE
21 REAL(KIND=JPRB) :: ZHOOK_HANDLE
22
23
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4',0,ZHOOK_HANDLE)
24
25 1 CALL PART1
26 1 CALL PART2
27 1 CALL PART3
28 1 CALL PART4
29 1 CALL PART5
30 1 CALL PART6
31 1 CALL PART7
32 1 CALL PART8
33 1 CALL PART9
34 1 CALL PART10
35 1 CALL PART11
36 1 CALL PART12
37 1 CALL PART13
38 1 CALL PART14
39 1 CALL PART15
40 1 CALL PART16
41 1 CALL PART17
42 1 CALL PART18
43 1 CALL PART19
44 1 CALL PART20
45 1 CALL PART21
46 1 CALL PART22
47 1 CALL PART23
48 1 CALL PART24
49 1 CALL PART25
50 1 CALL PART26
51 1 CALL PART27
52 1 CALL PART28
53 1 CALL PART29
54 1 CALL PART30
55 1 CALL PART31
56 1 CALL PART32
57 1 CALL PART33
58 1 CALL PART34
59 1 CALL PART35
60 1 CALL PART36
61 1 CALL PART37
62 1 CALL PART38
63
64
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4',1,ZHOOK_HANDLE)
65
66 ! -----------------------------------------------------------------
67
68 CONTAINS
69
70
71 1 SUBROUTINE PART1
72
73 REAL(KIND=JPRB) :: ZHOOK_HANDLE
74
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART1',0,ZHOOK_HANDLE)
75
76
77 1 STRRAT1 = 850.577_JPRB
78 1 STRRAT2 = 35.7416_JPRB
79
80 ! ------------------------------------------------------------------
81
82 ! The array KAO contains absorption coefs for each of the 16 g-intervals
83 ! for a range of pressure levels > ~100mb, temperatures, and ratios
84 ! of water vapor to CO2. The first index in the array, JS, runs
85 ! from 1 to 9 and corresponds to different water vapor to CO2 ratios,
86 ! as expressed through the binary species parameter eta, defined as
87 ! eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
88 ! line strength in the band of co2 to that of h2o. For instance,
89 ! JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.
90 ! The 2nd index in the array, JT, which runs from 1 to 5, corresponds
91 ! to different temperatures. More specifically, JT = 3 means that the
92 ! data are for the reference temperature TREF for this pressure
93 ! level, JT = 2 refers to the temperature TREF-15,
94 ! JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
95 ! is for TREF+30. The third index, JP, runs from 1 to 13 and refers
96 ! to the reference pressure level (e.g. JP = 1 is for a
97 ! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16,
98 ! and tells us which g-interval the absorption coefficients are for.
99
100 KAO( :, 1, 1, 1) = (/&
101 & 6.6520E-04_JPRB,9.3651E-04_JPRB,1.4195E-03_JPRB,1.7255E-03_JPRB,1.7636E-03_JPRB,1.9179E-03_JPRB,&
102
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2204E-03_JPRB,6.6521E-04_JPRB,2.9560E-04_JPRB/)
103 KAO( :, 2, 1, 1) = (/&
104 & 7.2624E-04_JPRB,1.0466E-03_JPRB,1.3888E-03_JPRB,1.7096E-03_JPRB,1.7897E-03_JPRB,1.8561E-03_JPRB,&
105
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1300E-03_JPRB,7.2624E-04_JPRB,3.1103E-04_JPRB/)
106 KAO( :, 3, 1, 1) = (/&
107 & 7.8383E-04_JPRB,1.1584E-03_JPRB,1.4071E-03_JPRB,1.6420E-03_JPRB,1.7160E-03_JPRB,1.8518E-03_JPRB,&
108
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8802E-03_JPRB,7.8382E-04_JPRB,3.3914E-04_JPRB/)
109 KAO( :, 4, 1, 1) = (/&
110 & 8.3828E-04_JPRB,1.2570E-03_JPRB,1.4277E-03_JPRB,1.5406E-03_JPRB,1.6601E-03_JPRB,1.7661E-03_JPRB,&
111
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9135E-03_JPRB,8.3828E-04_JPRB,3.4976E-04_JPRB/)
112 KAO( :, 5, 1, 1) = (/&
113 & 8.9042E-04_JPRB,1.3363E-03_JPRB,1.4623E-03_JPRB,1.4949E-03_JPRB,1.5948E-03_JPRB,1.7209E-03_JPRB,&
114
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8800E-03_JPRB,8.9042E-04_JPRB,3.6339E-04_JPRB/)
115 KAO( :, 1, 2, 1) = (/&
116 & 5.6062E-04_JPRB,7.7127E-04_JPRB,1.2084E-03_JPRB,1.4307E-03_JPRB,1.4610E-03_JPRB,1.6052E-03_JPRB,&
117
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8465E-03_JPRB,5.6064E-04_JPRB,2.2622E-04_JPRB/)
118 KAO( :, 2, 2, 1) = (/&
119 & 6.1375E-04_JPRB,8.6380E-04_JPRB,1.1701E-03_JPRB,1.4336E-03_JPRB,1.4895E-03_JPRB,1.5756E-03_JPRB,&
120
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7789E-03_JPRB,6.1375E-04_JPRB,2.4137E-04_JPRB/)
121 KAO( :, 3, 2, 1) = (/&
122 & 6.6443E-04_JPRB,9.5953E-04_JPRB,1.1781E-03_JPRB,1.4158E-03_JPRB,1.4693E-03_JPRB,1.5606E-03_JPRB,&
123
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5694E-03_JPRB,6.6443E-04_JPRB,2.6320E-04_JPRB/)
124 KAO( :, 4, 2, 1) = (/&
125 & 7.1315E-04_JPRB,1.0478E-03_JPRB,1.1975E-03_JPRB,1.3128E-03_JPRB,1.4207E-03_JPRB,1.5299E-03_JPRB,&
126
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6204E-03_JPRB,7.1315E-04_JPRB,2.6697E-04_JPRB/)
127 KAO( :, 5, 2, 1) = (/&
128 & 7.6110E-04_JPRB,1.1196E-03_JPRB,1.2294E-03_JPRB,1.2636E-03_JPRB,1.3416E-03_JPRB,1.4292E-03_JPRB,&
129
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6103E-03_JPRB,7.6110E-04_JPRB,2.8176E-04_JPRB/)
130 KAO( :, 1, 3, 1) = (/&
131 & 4.5610E-04_JPRB,6.1532E-04_JPRB,1.0634E-03_JPRB,1.1828E-03_JPRB,1.2321E-03_JPRB,1.3407E-03_JPRB,&
132
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5585E-03_JPRB,4.5610E-04_JPRB,1.7188E-04_JPRB/)
133 KAO( :, 2, 3, 1) = (/&
134 & 5.0238E-04_JPRB,6.9021E-04_JPRB,9.8179E-04_JPRB,1.2124E-03_JPRB,1.2375E-03_JPRB,1.3359E-03_JPRB,&
135
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5396E-03_JPRB,5.0238E-04_JPRB,1.8492E-04_JPRB/)
136 KAO( :, 3, 3, 1) = (/&
137 & 5.4735E-04_JPRB,7.7249E-04_JPRB,9.8402E-04_JPRB,1.2068E-03_JPRB,1.2546E-03_JPRB,1.2975E-03_JPRB,&
138
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4283E-03_JPRB,5.4735E-04_JPRB,1.9939E-04_JPRB/)
139 KAO( :, 4, 3, 1) = (/&
140 & 5.9112E-04_JPRB,8.5275E-04_JPRB,9.9833E-04_JPRB,1.1432E-03_JPRB,1.2143E-03_JPRB,1.3053E-03_JPRB,&
141
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3316E-03_JPRB,5.9111E-04_JPRB,2.0334E-04_JPRB/)
142 KAO( :, 5, 3, 1) = (/&
143 & 6.3422E-04_JPRB,9.1933E-04_JPRB,1.0199E-03_JPRB,1.0852E-03_JPRB,1.1540E-03_JPRB,1.2145E-03_JPRB,&
144
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3760E-03_JPRB,6.3422E-04_JPRB,2.1583E-04_JPRB/)
145 KAO( :, 1, 4, 1) = (/&
146 & 3.6423E-04_JPRB,4.8714E-04_JPRB,9.4139E-04_JPRB,9.6507E-04_JPRB,9.9104E-04_JPRB,1.0740E-03_JPRB,&
147
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2797E-03_JPRB,3.6423E-04_JPRB,1.3905E-04_JPRB/)
148 KAO( :, 2, 4, 1) = (/&
149 & 4.0448E-04_JPRB,5.4353E-04_JPRB,8.4041E-04_JPRB,9.9900E-04_JPRB,1.0270E-03_JPRB,1.1129E-03_JPRB,&
150
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2594E-03_JPRB,4.0448E-04_JPRB,1.4875E-04_JPRB/)
151 KAO( :, 3, 4, 1) = (/&
152 & 4.4401E-04_JPRB,6.1201E-04_JPRB,8.1748E-04_JPRB,1.0205E-03_JPRB,1.0406E-03_JPRB,1.0943E-03_JPRB,&
153
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2249E-03_JPRB,4.4401E-04_JPRB,1.5559E-04_JPRB/)
154 KAO( :, 4, 4, 1) = (/&
155 & 4.8291E-04_JPRB,6.8107E-04_JPRB,8.2218E-04_JPRB,9.9576E-04_JPRB,1.0515E-03_JPRB,1.1006E-03_JPRB,&
156
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1252E-03_JPRB,4.8291E-04_JPRB,1.6190E-04_JPRB/)
157 KAO( :, 5, 4, 1) = (/&
158 & 5.2123E-04_JPRB,7.4343E-04_JPRB,8.4151E-04_JPRB,9.3019E-04_JPRB,1.0130E-03_JPRB,1.0785E-03_JPRB,&
159
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1439E-03_JPRB,5.2123E-04_JPRB,1.7165E-04_JPRB/)
160 KAO( :, 1, 5, 1) = (/&
161 & 2.8763E-04_JPRB,3.8654E-04_JPRB,7.7838E-04_JPRB,7.8467E-04_JPRB,8.0817E-04_JPRB,8.9938E-04_JPRB,&
162
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0676E-03_JPRB,2.8763E-04_JPRB,1.2485E-04_JPRB/)
163 KAO( :, 2, 5, 1) = (/&
164 & 3.2269E-04_JPRB,4.2830E-04_JPRB,7.4590E-04_JPRB,8.1887E-04_JPRB,8.5674E-04_JPRB,9.1744E-04_JPRB,&
165
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0598E-03_JPRB,3.2269E-04_JPRB,1.2888E-04_JPRB/)
166 KAO( :, 3, 5, 1) = (/&
167 & 3.5710E-04_JPRB,4.8150E-04_JPRB,6.8301E-04_JPRB,8.4014E-04_JPRB,8.5447E-04_JPRB,9.4082E-04_JPRB,&
168
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0595E-03_JPRB,3.5710E-04_JPRB,1.3287E-04_JPRB/)
169 KAO( :, 4, 5, 1) = (/&
170 & 3.9114E-04_JPRB,5.4044E-04_JPRB,6.7913E-04_JPRB,8.5598E-04_JPRB,8.6451E-04_JPRB,8.9768E-04_JPRB,&
171
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0160E-03_JPRB,3.9114E-04_JPRB,1.3801E-04_JPRB/)
172 KAO( :, 5, 5, 1) = (/&
173 & 4.2493E-04_JPRB,5.9616E-04_JPRB,6.9081E-04_JPRB,8.1432E-04_JPRB,8.7086E-04_JPRB,9.0230E-04_JPRB,&
174
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.2751E-04_JPRB,4.2493E-04_JPRB,1.4524E-04_JPRB/)
175 KAO( :, 1, 6, 1) = (/&
176 & 2.2397E-04_JPRB,3.0352E-04_JPRB,6.2893E-04_JPRB,6.2633E-04_JPRB,6.5793E-04_JPRB,7.3403E-04_JPRB,&
177
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4350E-04_JPRB,2.2397E-04_JPRB,1.2107E-04_JPRB/)
178 KAO( :, 2, 6, 1) = (/&
179 & 2.5420E-04_JPRB,3.3557E-04_JPRB,6.5797E-04_JPRB,6.6891E-04_JPRB,6.8491E-04_JPRB,7.4023E-04_JPRB,&
180
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.5687E-04_JPRB,2.5420E-04_JPRB,1.2280E-04_JPRB/)
181 KAO( :, 3, 6, 1) = (/&
182 & 2.8396E-04_JPRB,3.7655E-04_JPRB,5.9102E-04_JPRB,6.9033E-04_JPRB,7.1783E-04_JPRB,7.6667E-04_JPRB,&
183
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6376E-04_JPRB,2.8396E-04_JPRB,1.2577E-04_JPRB/)
184 KAO( :, 4, 6, 1) = (/&
185 & 3.1350E-04_JPRB,4.2404E-04_JPRB,5.6109E-04_JPRB,7.1632E-04_JPRB,7.2169E-04_JPRB,7.5902E-04_JPRB,&
186
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.5063E-04_JPRB,3.1350E-04_JPRB,1.3038E-04_JPRB/)
187 KAO( :, 5, 6, 1) = (/&
188 & 3.4283E-04_JPRB,4.7259E-04_JPRB,5.6315E-04_JPRB,6.9669E-04_JPRB,7.3767E-04_JPRB,7.6266E-04_JPRB,&
189
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.1179E-04_JPRB,3.4283E-04_JPRB,1.3594E-04_JPRB/)
190 KAO( :, 1, 7, 1) = (/&
191 & 1.7269E-04_JPRB,2.3971E-04_JPRB,5.0297E-04_JPRB,4.9860E-04_JPRB,5.2471E-04_JPRB,5.7932E-04_JPRB,&
192
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.8439E-04_JPRB,1.7269E-04_JPRB,1.2386E-04_JPRB/)
193 KAO( :, 2, 7, 1) = (/&
194 & 1.9843E-04_JPRB,2.6259E-04_JPRB,5.3532E-04_JPRB,5.3729E-04_JPRB,5.5606E-04_JPRB,6.0939E-04_JPRB,&
195
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1230E-04_JPRB,1.9843E-04_JPRB,1.2615E-04_JPRB/)
196 KAO( :, 3, 7, 1) = (/&
197 & 2.2393E-04_JPRB,2.9362E-04_JPRB,5.3350E-04_JPRB,5.6384E-04_JPRB,5.8750E-04_JPRB,6.2580E-04_JPRB,&
198
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.2255E-04_JPRB,2.2393E-04_JPRB,1.3021E-04_JPRB/)
199 KAO( :, 4, 7, 1) = (/&
200 & 2.4925E-04_JPRB,3.3156E-04_JPRB,4.6934E-04_JPRB,5.8250E-04_JPRB,5.9359E-04_JPRB,6.5453E-04_JPRB,&
201
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.2305E-04_JPRB,2.4925E-04_JPRB,1.3523E-04_JPRB/)
202 KAO( :, 5, 7, 1) = (/&
203 & 2.7472E-04_JPRB,3.7184E-04_JPRB,4.6283E-04_JPRB,5.9977E-04_JPRB,6.0303E-04_JPRB,6.2094E-04_JPRB,&
204
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0629E-04_JPRB,2.7472E-04_JPRB,1.4126E-04_JPRB/)
205 KAO( :, 1, 8, 1) = (/&
206 & 1.3221E-04_JPRB,1.9199E-04_JPRB,3.9770E-04_JPRB,3.9939E-04_JPRB,4.1807E-04_JPRB,4.5731E-04_JPRB,&
207
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.2988E-04_JPRB,1.3221E-04_JPRB,1.4509E-04_JPRB/)
208 KAO( :, 2, 8, 1) = (/&
209 & 1.5393E-04_JPRB,2.0559E-04_JPRB,4.3250E-04_JPRB,4.2908E-04_JPRB,4.4968E-04_JPRB,4.9581E-04_JPRB,&
210
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.6885E-04_JPRB,1.5393E-04_JPRB,1.5038E-04_JPRB/)
211 KAO( :, 3, 8, 1) = (/&
212 & 1.7558E-04_JPRB,2.2912E-04_JPRB,4.5525E-04_JPRB,4.5996E-04_JPRB,4.7140E-04_JPRB,5.1385E-04_JPRB,&
213
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9033E-04_JPRB,1.7558E-04_JPRB,1.5764E-04_JPRB/)
214 KAO( :, 4, 8, 1) = (/&
215 & 1.9711E-04_JPRB,2.5824E-04_JPRB,4.0990E-04_JPRB,4.7600E-04_JPRB,4.9383E-04_JPRB,5.2727E-04_JPRB,&
216
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9173E-04_JPRB,1.9711E-04_JPRB,1.6674E-04_JPRB/)
217 KAO( :, 5, 8, 1) = (/&
218 & 2.1892E-04_JPRB,2.9157E-04_JPRB,3.8268E-04_JPRB,4.9451E-04_JPRB,4.9883E-04_JPRB,5.2700E-04_JPRB,&
219
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9438E-04_JPRB,2.1892E-04_JPRB,1.7746E-04_JPRB/)
220 KAO( :, 1, 9, 1) = (/&
221 & 1.0035E-04_JPRB,1.5952E-04_JPRB,3.1293E-04_JPRB,3.1348E-04_JPRB,3.2666E-04_JPRB,3.7028E-04_JPRB,&
222
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1425E-04_JPRB,1.0035E-04_JPRB,2.6669E-04_JPRB/)
223 KAO( :, 2, 9, 1) = (/&
224 & 1.1858E-04_JPRB,1.6346E-04_JPRB,3.4529E-04_JPRB,3.4165E-04_JPRB,3.5657E-04_JPRB,3.9289E-04_JPRB,&
225
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.5949E-04_JPRB,1.1858E-04_JPRB,2.9076E-04_JPRB/)
226 KAO( :, 3, 9, 1) = (/&
227 & 1.3693E-04_JPRB,1.7866E-04_JPRB,3.6700E-04_JPRB,3.7083E-04_JPRB,3.8336E-04_JPRB,4.1668E-04_JPRB,&
228
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8180E-04_JPRB,1.3693E-04_JPRB,3.1567E-04_JPRB/)
229 KAO( :, 4, 9, 1) = (/&
230 & 1.5518E-04_JPRB,2.0111E-04_JPRB,3.6635E-04_JPRB,3.8855E-04_JPRB,4.0471E-04_JPRB,4.3043E-04_JPRB,&
231
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.9285E-04_JPRB,1.5518E-04_JPRB,3.4209E-04_JPRB/)
232 KAO( :, 5, 9, 1) = (/&
233 & 1.7362E-04_JPRB,2.2754E-04_JPRB,3.2201E-04_JPRB,4.0291E-04_JPRB,4.1258E-04_JPRB,4.4913E-04_JPRB,&
234
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.9613E-04_JPRB,1.7362E-04_JPRB,3.6921E-04_JPRB/)
235 KAO( :, 1,10, 1) = (/&
236 & 7.6756E-05_JPRB,1.3962E-04_JPRB,2.4767E-04_JPRB,2.4912E-04_JPRB,2.5968E-04_JPRB,2.8653E-04_JPRB,&
237
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2992E-04_JPRB,7.6756E-05_JPRB,9.2332E-04_JPRB/)
238 KAO( :, 2,10, 1) = (/&
239 & 9.1972E-05_JPRB,1.3177E-04_JPRB,2.7498E-04_JPRB,2.7460E-04_JPRB,2.8768E-04_JPRB,3.1486E-04_JPRB,&
240
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6117E-04_JPRB,9.1972E-05_JPRB,1.0290E-03_JPRB/)
241 KAO( :, 3,10, 1) = (/&
242 & 1.0747E-04_JPRB,1.4129E-04_JPRB,2.9762E-04_JPRB,2.9728E-04_JPRB,3.1080E-04_JPRB,3.3927E-04_JPRB,&
243
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8542E-04_JPRB,1.0747E-04_JPRB,1.1258E-03_JPRB/)
244 KAO( :, 4,10, 1) = (/&
245 & 1.2295E-04_JPRB,1.5843E-04_JPRB,3.0850E-04_JPRB,3.1535E-04_JPRB,3.2529E-04_JPRB,3.5387E-04_JPRB,&
246
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0422E-04_JPRB,1.2295E-04_JPRB,1.2119E-03_JPRB/)
247 KAO( :, 5,10, 1) = (/&
248 & 1.3850E-04_JPRB,1.7919E-04_JPRB,2.7969E-04_JPRB,3.2918E-04_JPRB,3.4141E-04_JPRB,3.6383E-04_JPRB,&
249
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0592E-04_JPRB,1.3850E-04_JPRB,1.2885E-03_JPRB/)
250 KAO( :, 1,11, 1) = (/&
251 & 6.4262E-05_JPRB,1.1488E-04_JPRB,2.0652E-04_JPRB,2.0693E-04_JPRB,2.1515E-04_JPRB,2.3759E-04_JPRB,&
252
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7074E-04_JPRB,6.4262E-05_JPRB,1.7436E-03_JPRB/)
253 KAO( :, 2,11, 1) = (/&
254 & 7.7063E-05_JPRB,1.0910E-04_JPRB,2.2893E-04_JPRB,2.2837E-04_JPRB,2.3880E-04_JPRB,2.5987E-04_JPRB,&
255
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0065E-04_JPRB,7.7062E-05_JPRB,1.9352E-03_JPRB/)
256 KAO( :, 3,11, 1) = (/&
257 & 9.0126E-05_JPRB,1.1759E-04_JPRB,2.4677E-04_JPRB,2.4752E-04_JPRB,2.5932E-04_JPRB,2.8168E-04_JPRB,&
258
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2064E-04_JPRB,9.0126E-05_JPRB,2.1015E-03_JPRB/)
259 KAO( :, 4,11, 1) = (/&
260 & 1.0318E-04_JPRB,1.3204E-04_JPRB,2.5349E-04_JPRB,2.6117E-04_JPRB,2.7047E-04_JPRB,2.9445E-04_JPRB,&
261
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3354E-04_JPRB,1.0318E-04_JPRB,2.2375E-03_JPRB/)
262 KAO( :, 5,11, 1) = (/&
263 & 1.1625E-04_JPRB,1.4979E-04_JPRB,2.3047E-04_JPRB,2.7288E-04_JPRB,2.8316E-04_JPRB,3.0222E-04_JPRB,&
264
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3717E-04_JPRB,1.1625E-04_JPRB,2.3499E-03_JPRB/)
265 KAO( :, 1,12, 1) = (/&
266 & 5.3838E-05_JPRB,9.4472E-05_JPRB,1.7221E-04_JPRB,1.7229E-04_JPRB,1.7912E-04_JPRB,1.9811E-04_JPRB,&
267
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2298E-04_JPRB,5.3838E-05_JPRB,2.2190E-03_JPRB/)
268 KAO( :, 2,12, 1) = (/&
269 & 6.4583E-05_JPRB,9.0416E-05_JPRB,1.9070E-04_JPRB,1.8997E-04_JPRB,1.9851E-04_JPRB,2.1621E-04_JPRB,&
270
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4883E-04_JPRB,6.4583E-05_JPRB,2.4508E-03_JPRB/)
271 KAO( :, 3,12, 1) = (/&
272 & 7.5579E-05_JPRB,9.8146E-05_JPRB,2.0479E-04_JPRB,2.0556E-04_JPRB,2.1508E-04_JPRB,2.3475E-04_JPRB,&
273
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6564E-04_JPRB,7.5579E-05_JPRB,2.6460E-03_JPRB/)
274 KAO( :, 4,12, 1) = (/&
275 & 8.6531E-05_JPRB,1.1008E-04_JPRB,2.0887E-04_JPRB,2.1630E-04_JPRB,2.2430E-04_JPRB,2.4416E-04_JPRB,&
276
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7688E-04_JPRB,8.6531E-05_JPRB,2.8013E-03_JPRB/)
277 KAO( :, 5,12, 1) = (/&
278 & 9.7427E-05_JPRB,1.2490E-04_JPRB,1.8859E-04_JPRB,2.2596E-04_JPRB,2.3336E-04_JPRB,2.5057E-04_JPRB,&
279
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7888E-04_JPRB,9.7427E-05_JPRB,2.9236E-03_JPRB/)
280 KAO( :, 1,13, 1) = (/&
281 & 4.5099E-05_JPRB,7.7513E-05_JPRB,1.4325E-04_JPRB,1.4387E-04_JPRB,1.4900E-04_JPRB,1.6404E-04_JPRB,&
282
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8470E-04_JPRB,4.5100E-05_JPRB,2.3136E-03_JPRB/)
283 KAO( :, 2,13, 1) = (/&
284 & 5.4137E-05_JPRB,7.5163E-05_JPRB,1.5870E-04_JPRB,1.5797E-04_JPRB,1.6505E-04_JPRB,1.7934E-04_JPRB,&
285
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0687E-04_JPRB,5.4137E-05_JPRB,2.5403E-03_JPRB/)
286 KAO( :, 3,13, 1) = (/&
287 & 6.3329E-05_JPRB,8.1727E-05_JPRB,1.6965E-04_JPRB,1.7063E-04_JPRB,1.7871E-04_JPRB,1.9512E-04_JPRB,&
288
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2035E-04_JPRB,6.3329E-05_JPRB,2.7282E-03_JPRB/)
289 KAO( :, 4,13, 1) = (/&
290 & 7.2450E-05_JPRB,9.1778E-05_JPRB,1.7219E-04_JPRB,1.7914E-04_JPRB,1.8635E-04_JPRB,2.0203E-04_JPRB,&
291
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2943E-04_JPRB,7.2450E-05_JPRB,2.8788E-03_JPRB/)
292 KAO( :, 5,13, 1) = (/&
293 & 8.1530E-05_JPRB,1.0397E-04_JPRB,1.5476E-04_JPRB,1.8739E-04_JPRB,1.9322E-04_JPRB,2.0819E-04_JPRB,&
294
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3071E-04_JPRB,8.1530E-05_JPRB,2.9950E-03_JPRB/)
295 KAO( :, 1, 1, 2) = (/&
296 & 1.5260E-03_JPRB,1.7595E-03_JPRB,1.6480E-03_JPRB,2.2258E-03_JPRB,2.8344E-03_JPRB,3.1469E-03_JPRB,&
297
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6918E-03_JPRB,1.5260E-03_JPRB,4.9914E-04_JPRB/)
298 KAO( :, 2, 1, 2) = (/&
299 & 1.5826E-03_JPRB,1.8212E-03_JPRB,1.7561E-03_JPRB,1.9980E-03_JPRB,2.4681E-03_JPRB,2.9684E-03_JPRB,&
300
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2872E-03_JPRB,1.5826E-03_JPRB,4.6415E-04_JPRB/)
301 KAO( :, 3, 1, 2) = (/&
302 & 1.6227E-03_JPRB,1.8571E-03_JPRB,1.8350E-03_JPRB,1.9032E-03_JPRB,2.3046E-03_JPRB,2.7220E-03_JPRB,&
303
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3030E-03_JPRB,1.6227E-03_JPRB,4.6231E-04_JPRB/)
304 KAO( :, 4, 1, 2) = (/&
305 & 1.6627E-03_JPRB,1.9016E-03_JPRB,1.9450E-03_JPRB,1.9945E-03_JPRB,2.2414E-03_JPRB,2.5327E-03_JPRB,&
306
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8363E-03_JPRB,1.6627E-03_JPRB,4.9516E-04_JPRB/)
307 KAO( :, 5, 1, 2) = (/&
308 & 1.6942E-03_JPRB,1.9567E-03_JPRB,2.0282E-03_JPRB,2.1178E-03_JPRB,2.1837E-03_JPRB,2.3289E-03_JPRB,&
309
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6951E-03_JPRB,1.6942E-03_JPRB,5.5604E-04_JPRB/)
310 KAO( :, 1, 2, 2) = (/&
311 & 1.2957E-03_JPRB,1.4736E-03_JPRB,1.3696E-03_JPRB,1.9219E-03_JPRB,2.4448E-03_JPRB,2.7185E-03_JPRB,&
312
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0973E-03_JPRB,1.2957E-03_JPRB,3.5777E-04_JPRB/)
313 KAO( :, 2, 2, 2) = (/&
314 & 1.3520E-03_JPRB,1.5352E-03_JPRB,1.4594E-03_JPRB,1.7363E-03_JPRB,2.1608E-03_JPRB,2.5931E-03_JPRB,&
315
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9477E-03_JPRB,1.3520E-03_JPRB,3.5334E-04_JPRB/)
316 KAO( :, 3, 2, 2) = (/&
317 & 1.3955E-03_JPRB,1.5728E-03_JPRB,1.5388E-03_JPRB,1.5910E-03_JPRB,1.9652E-03_JPRB,2.3965E-03_JPRB,&
318
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8214E-03_JPRB,1.3955E-03_JPRB,3.5208E-04_JPRB/)
319 KAO( :, 4, 2, 2) = (/&
320 & 1.4306E-03_JPRB,1.6119E-03_JPRB,1.6289E-03_JPRB,1.6668E-03_JPRB,1.8749E-03_JPRB,2.1515E-03_JPRB,&
321
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5798E-03_JPRB,1.4306E-03_JPRB,3.8903E-04_JPRB/)
322 KAO( :, 5, 2, 2) = (/&
323 & 1.4618E-03_JPRB,1.6648E-03_JPRB,1.7112E-03_JPRB,1.7696E-03_JPRB,1.8658E-03_JPRB,2.0390E-03_JPRB,&
324
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2630E-03_JPRB,1.4618E-03_JPRB,4.3501E-04_JPRB/)
325 KAO( :, 1, 3, 2) = (/&
326 & 1.0941E-03_JPRB,1.2249E-03_JPRB,1.1110E-03_JPRB,1.6978E-03_JPRB,2.0757E-03_JPRB,2.3977E-03_JPRB,&
327
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5385E-03_JPRB,1.0941E-03_JPRB,2.5435E-04_JPRB/)
328 KAO( :, 2, 3, 2) = (/&
329 & 1.1496E-03_JPRB,1.2893E-03_JPRB,1.2094E-03_JPRB,1.5400E-03_JPRB,1.9037E-03_JPRB,2.2282E-03_JPRB,&
330
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6108E-03_JPRB,1.1496E-03_JPRB,2.5844E-04_JPRB/)
331 KAO( :, 3, 3, 2) = (/&
332 & 1.1926E-03_JPRB,1.3278E-03_JPRB,1.2717E-03_JPRB,1.3590E-03_JPRB,1.7088E-03_JPRB,2.1812E-03_JPRB,&
333
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3392E-03_JPRB,1.1926E-03_JPRB,2.6804E-04_JPRB/)
334 KAO( :, 4, 3, 2) = (/&
335 & 1.2267E-03_JPRB,1.3589E-03_JPRB,1.3473E-03_JPRB,1.3690E-03_JPRB,1.6042E-03_JPRB,1.9290E-03_JPRB,&
336
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3507E-03_JPRB,1.2267E-03_JPRB,3.0065E-04_JPRB/)
337 KAO( :, 5, 3, 2) = (/&
338 & 1.2554E-03_JPRB,1.4034E-03_JPRB,1.4269E-03_JPRB,1.4462E-03_JPRB,1.5803E-03_JPRB,1.7891E-03_JPRB,&
339
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9934E-03_JPRB,1.2554E-03_JPRB,3.3529E-04_JPRB/)
340 KAO( :, 1, 4, 2) = (/&
341 & 9.2228E-04_JPRB,1.0144E-03_JPRB,8.9155E-04_JPRB,1.5523E-03_JPRB,1.8182E-03_JPRB,2.0790E-03_JPRB,&
342
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1019E-03_JPRB,9.2229E-04_JPRB,1.9739E-04_JPRB/)
343 KAO( :, 2, 4, 2) = (/&
344 & 9.7173E-04_JPRB,1.0764E-03_JPRB,9.9094E-04_JPRB,1.3563E-03_JPRB,1.7130E-03_JPRB,1.9182E-03_JPRB,&
345
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1666E-03_JPRB,9.7173E-04_JPRB,1.9900E-04_JPRB/)
346 KAO( :, 3, 4, 2) = (/&
347 & 1.0138E-03_JPRB,1.1151E-03_JPRB,1.0445E-03_JPRB,1.2251E-03_JPRB,1.5369E-03_JPRB,1.8521E-03_JPRB,&
348
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1013E-03_JPRB,1.0138E-03_JPRB,2.1276E-04_JPRB/)
349 KAO( :, 4, 4, 2) = (/&
350 & 1.0473E-03_JPRB,1.1460E-03_JPRB,1.1161E-03_JPRB,1.1284E-03_JPRB,1.3578E-03_JPRB,1.6754E-03_JPRB,&
351
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0077E-03_JPRB,1.0473E-03_JPRB,2.3595E-04_JPRB/)
352 KAO( :, 5, 4, 2) = (/&
353 & 1.0726E-03_JPRB,1.1805E-03_JPRB,1.1814E-03_JPRB,1.1848E-03_JPRB,1.3479E-03_JPRB,1.5615E-03_JPRB,&
354
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8994E-03_JPRB,1.0726E-03_JPRB,2.6165E-04_JPRB/)
355 KAO( :, 1, 5, 2) = (/&
356 & 7.6690E-04_JPRB,8.2765E-04_JPRB,7.8062E-04_JPRB,1.3867E-03_JPRB,1.5867E-03_JPRB,1.6936E-03_JPRB,&
357
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7521E-03_JPRB,7.6690E-04_JPRB,1.6280E-04_JPRB/)
358 KAO( :, 2, 5, 2) = (/&
359 & 8.1285E-04_JPRB,8.8774E-04_JPRB,7.8341E-04_JPRB,1.1988E-03_JPRB,1.4770E-03_JPRB,1.6719E-03_JPRB,&
360
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7693E-03_JPRB,8.1285E-04_JPRB,1.6768E-04_JPRB/)
361 KAO( :, 3, 5, 2) = (/&
362 & 8.5183E-04_JPRB,9.2930E-04_JPRB,8.6098E-04_JPRB,1.1035E-03_JPRB,1.3517E-03_JPRB,1.5871E-03_JPRB,&
363
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8468E-03_JPRB,8.5182E-04_JPRB,1.7918E-04_JPRB/)
364 KAO( :, 4, 5, 2) = (/&
365 & 8.8381E-04_JPRB,9.6005E-04_JPRB,9.1547E-04_JPRB,9.4610E-04_JPRB,1.2396E-03_JPRB,1.5757E-03_JPRB,&
366
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 1.6719E-03_JPRB,8.8381E-04_JPRB,1.9528E-04_JPRB/)
367
368
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART1',1,ZHOOK_HANDLE)
369 1 END SUBROUTINE PART1
370
371
372 1 SUBROUTINE PART2
373
374 REAL(KIND=JPRB) :: ZHOOK_HANDLE
375
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART2',0,ZHOOK_HANDLE)
376
377
378 KAO( :, 5, 5, 2) = (/&
379 & 9.0780E-04_JPRB,9.9038E-04_JPRB,9.7867E-04_JPRB,9.6385E-04_JPRB,1.1363E-03_JPRB,1.3750E-03_JPRB,&
380
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6759E-03_JPRB,9.0780E-04_JPRB,2.1430E-04_JPRB/)
381 KAO( :, 1, 6, 2) = (/&
382 & 6.2795E-04_JPRB,6.6838E-04_JPRB,7.3561E-04_JPRB,1.2263E-03_JPRB,1.3683E-03_JPRB,1.4046E-03_JPRB,&
383
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5094E-03_JPRB,6.2795E-04_JPRB,1.5216E-04_JPRB/)
384 KAO( :, 2, 6, 2) = (/&
385 & 6.7183E-04_JPRB,7.2288E-04_JPRB,6.1801E-04_JPRB,1.0919E-03_JPRB,1.2712E-03_JPRB,1.4757E-03_JPRB,&
386
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4814E-03_JPRB,6.7183E-04_JPRB,1.5894E-04_JPRB/)
387 KAO( :, 3, 6, 2) = (/&
388 & 7.0773E-04_JPRB,7.6513E-04_JPRB,6.8912E-04_JPRB,9.6974E-04_JPRB,1.1945E-03_JPRB,1.3671E-03_JPRB,&
389
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5170E-03_JPRB,7.0773E-04_JPRB,1.6897E-04_JPRB/)
390 KAO( :, 4, 6, 2) = (/&
391 & 7.3816E-04_JPRB,7.9782E-04_JPRB,7.4473E-04_JPRB,8.7065E-04_JPRB,1.1028E-03_JPRB,1.3310E-03_JPRB,&
392
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4982E-03_JPRB,7.3816E-04_JPRB,1.8083E-04_JPRB/)
393 KAO( :, 5, 6, 2) = (/&
394 & 7.6173E-04_JPRB,8.2557E-04_JPRB,8.0696E-04_JPRB,7.9653E-04_JPRB,9.7171E-04_JPRB,1.2001E-03_JPRB,&
395
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4350E-03_JPRB,7.6173E-04_JPRB,1.9544E-04_JPRB/)
396 KAO( :, 1, 7, 2) = (/&
397 & 5.0891E-04_JPRB,5.3280E-04_JPRB,7.2820E-04_JPRB,1.0600E-03_JPRB,1.1897E-03_JPRB,1.2028E-03_JPRB,&
398
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2645E-03_JPRB,5.0891E-04_JPRB,1.6819E-04_JPRB/)
399 KAO( :, 2, 7, 2) = (/&
400 & 5.5019E-04_JPRB,5.8559E-04_JPRB,5.5050E-04_JPRB,9.8189E-04_JPRB,1.1133E-03_JPRB,1.1994E-03_JPRB,&
401
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2177E-03_JPRB,5.5019E-04_JPRB,1.7740E-04_JPRB/)
402 KAO( :, 3, 7, 2) = (/&
403 & 5.8438E-04_JPRB,6.2588E-04_JPRB,5.2192E-04_JPRB,8.6875E-04_JPRB,1.0399E-03_JPRB,1.1761E-03_JPRB,&
404
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2214E-03_JPRB,5.8438E-04_JPRB,1.8897E-04_JPRB/)
405 KAO( :, 4, 7, 2) = (/&
406 & 6.1239E-04_JPRB,6.5682E-04_JPRB,6.0713E-04_JPRB,7.7808E-04_JPRB,9.7331E-04_JPRB,1.1140E-03_JPRB,&
407
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3014E-03_JPRB,6.1239E-04_JPRB,2.0290E-04_JPRB/)
408 KAO( :, 5, 7, 2) = (/&
409 & 6.3467E-04_JPRB,6.8419E-04_JPRB,6.5295E-04_JPRB,6.7554E-04_JPRB,8.8119E-04_JPRB,1.1133E-03_JPRB,&
410
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2053E-03_JPRB,6.3467E-04_JPRB,2.1872E-04_JPRB/)
411 KAO( :, 1, 8, 2) = (/&
412 & 4.0935E-04_JPRB,4.1885E-04_JPRB,6.7101E-04_JPRB,9.1256E-04_JPRB,1.0194E-03_JPRB,1.0135E-03_JPRB,&
413
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0819E-03_JPRB,4.0935E-04_JPRB,2.1824E-04_JPRB/)
414 KAO( :, 2, 8, 2) = (/&
415 & 4.4692E-04_JPRB,4.7118E-04_JPRB,5.1659E-04_JPRB,8.5913E-04_JPRB,9.6357E-04_JPRB,9.8846E-04_JPRB,&
416
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0429E-03_JPRB,4.4692E-04_JPRB,2.3690E-04_JPRB/)
417 KAO( :, 3, 8, 2) = (/&
418 & 4.7903E-04_JPRB,5.0921E-04_JPRB,4.2513E-04_JPRB,7.7866E-04_JPRB,8.9423E-04_JPRB,1.0205E-03_JPRB,&
419
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0213E-03_JPRB,4.7903E-04_JPRB,2.5819E-04_JPRB/)
420 KAO( :, 4, 8, 2) = (/&
421 & 5.0519E-04_JPRB,5.3873E-04_JPRB,4.7470E-04_JPRB,6.8242E-04_JPRB,8.4925E-04_JPRB,9.6082E-04_JPRB,&
422
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0565E-03_JPRB,5.0519E-04_JPRB,2.8169E-04_JPRB/)
423 KAO( :, 5, 8, 2) = (/&
424 & 5.2646E-04_JPRB,5.6355E-04_JPRB,5.3173E-04_JPRB,6.2134E-04_JPRB,7.8503E-04_JPRB,9.3706E-04_JPRB,&
425
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0322E-03_JPRB,5.2647E-04_JPRB,3.0574E-04_JPRB/)
426 KAO( :, 1, 9, 2) = (/&
427 & 3.2639E-04_JPRB,3.2062E-04_JPRB,6.1707E-04_JPRB,7.9540E-04_JPRB,8.4564E-04_JPRB,8.5817E-04_JPRB,&
428
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.0723E-04_JPRB,3.2639E-04_JPRB,5.5545E-04_JPRB/)
429 KAO( :, 2, 9, 2) = (/&
430 & 3.6012E-04_JPRB,3.7319E-04_JPRB,5.0226E-04_JPRB,7.4254E-04_JPRB,8.4023E-04_JPRB,8.3301E-04_JPRB,&
431
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.5728E-04_JPRB,3.6012E-04_JPRB,6.1165E-04_JPRB/)
432 KAO( :, 3, 9, 2) = (/&
433 & 3.8987E-04_JPRB,4.1225E-04_JPRB,3.7907E-04_JPRB,6.8530E-04_JPRB,7.7881E-04_JPRB,8.3778E-04_JPRB,&
434
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4817E-04_JPRB,3.8987E-04_JPRB,6.6653E-04_JPRB/)
435 KAO( :, 4, 9, 2) = (/&
436 & 4.1424E-04_JPRB,4.3910E-04_JPRB,3.6051E-04_JPRB,6.1000E-04_JPRB,7.2902E-04_JPRB,8.1999E-04_JPRB,&
437
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4396E-04_JPRB,4.1424E-04_JPRB,7.1819E-04_JPRB/)
438 KAO( :, 5, 9, 2) = (/&
439 & 4.3431E-04_JPRB,4.6239E-04_JPRB,4.2288E-04_JPRB,5.4880E-04_JPRB,6.8867E-04_JPRB,7.7866E-04_JPRB,&
440
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.9097E-04_JPRB,4.3431E-04_JPRB,7.7202E-04_JPRB/)
441 KAO( :, 1,10, 2) = (/&
442 & 2.6062E-04_JPRB,2.4097E-04_JPRB,5.6760E-04_JPRB,6.7838E-04_JPRB,7.0839E-04_JPRB,7.4582E-04_JPRB,&
443
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.5583E-04_JPRB,2.6062E-04_JPRB,2.5277E-03_JPRB/)
444 KAO( :, 2,10, 2) = (/&
445 & 2.9023E-04_JPRB,2.9545E-04_JPRB,4.5173E-04_JPRB,6.2994E-04_JPRB,7.1727E-04_JPRB,7.0001E-04_JPRB,&
446
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.3420E-04_JPRB,2.9022E-04_JPRB,2.7784E-03_JPRB/)
447 KAO( :, 3,10, 2) = (/&
448 & 3.1702E-04_JPRB,3.3294E-04_JPRB,3.4527E-04_JPRB,5.9793E-04_JPRB,6.6774E-04_JPRB,6.9352E-04_JPRB,&
449
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1312E-04_JPRB,3.1702E-04_JPRB,3.0145E-03_JPRB/)
450 KAO( :, 4,10, 2) = (/&
451 & 3.3919E-04_JPRB,3.5815E-04_JPRB,2.9459E-04_JPRB,5.3609E-04_JPRB,6.2952E-04_JPRB,7.0029E-04_JPRB,&
452
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9972E-04_JPRB,3.3919E-04_JPRB,3.2222E-03_JPRB/)
453 KAO( :, 5,10, 2) = (/&
454 & 3.5768E-04_JPRB,3.7923E-04_JPRB,3.2874E-04_JPRB,4.7549E-04_JPRB,5.9483E-04_JPRB,6.7311E-04_JPRB,&
455
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.3613E-04_JPRB,3.5768E-04_JPRB,3.4035E-03_JPRB/)
456 KAO( :, 1,11, 2) = (/&
457 & 2.1907E-04_JPRB,2.0328E-04_JPRB,4.6419E-04_JPRB,5.6297E-04_JPRB,5.8907E-04_JPRB,6.1155E-04_JPRB,&
458
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.1013E-04_JPRB,2.1907E-04_JPRB,5.1242E-03_JPRB/)
459 KAO( :, 2,11, 2) = (/&
460 & 2.4410E-04_JPRB,2.4843E-04_JPRB,3.7130E-04_JPRB,5.2284E-04_JPRB,5.9762E-04_JPRB,5.8585E-04_JPRB,&
461
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.0135E-04_JPRB,2.4411E-04_JPRB,5.5864E-03_JPRB/)
462 KAO( :, 3,11, 2) = (/&
463 & 2.6625E-04_JPRB,2.7930E-04_JPRB,2.8189E-04_JPRB,4.9405E-04_JPRB,5.5402E-04_JPRB,5.7720E-04_JPRB,&
464
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8571E-04_JPRB,2.6625E-04_JPRB,6.0066E-03_JPRB/)
465 KAO( :, 4,11, 2) = (/&
466 & 2.8487E-04_JPRB,3.0018E-04_JPRB,2.4472E-04_JPRB,4.4200E-04_JPRB,5.2652E-04_JPRB,5.8248E-04_JPRB,&
467
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7961E-04_JPRB,2.8487E-04_JPRB,6.3763E-03_JPRB/)
468 KAO( :, 5,11, 2) = (/&
469 & 3.0010E-04_JPRB,3.1719E-04_JPRB,2.7311E-04_JPRB,3.9201E-04_JPRB,4.9427E-04_JPRB,5.6306E-04_JPRB,&
470
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.1631E-04_JPRB,3.0010E-04_JPRB,6.6804E-03_JPRB/)
471 KAO( :, 1,12, 2) = (/&
472 & 1.8394E-04_JPRB,1.7118E-04_JPRB,3.7730E-04_JPRB,4.6792E-04_JPRB,4.8975E-04_JPRB,4.9917E-04_JPRB,&
473
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0397E-04_JPRB,1.8394E-04_JPRB,6.7953E-03_JPRB/)
474 KAO( :, 2,12, 2) = (/&
475 & 2.0488E-04_JPRB,2.0891E-04_JPRB,3.0355E-04_JPRB,4.3536E-04_JPRB,4.9195E-04_JPRB,4.8369E-04_JPRB,&
476
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.9615E-04_JPRB,2.0488E-04_JPRB,7.3722E-03_JPRB/)
477 KAO( :, 3,12, 2) = (/&
478 & 2.2338E-04_JPRB,2.3370E-04_JPRB,2.2853E-04_JPRB,4.0848E-04_JPRB,4.6057E-04_JPRB,4.8139E-04_JPRB,&
479
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8293E-04_JPRB,2.2338E-04_JPRB,7.8888E-03_JPRB/)
480 KAO( :, 4,12, 2) = (/&
481 & 2.3905E-04_JPRB,2.5126E-04_JPRB,2.0156E-04_JPRB,3.6557E-04_JPRB,4.3992E-04_JPRB,4.8195E-04_JPRB,&
482
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8526E-04_JPRB,2.3905E-04_JPRB,8.3181E-03_JPRB/)
483 KAO( :, 5,12, 2) = (/&
484 & 2.5129E-04_JPRB,2.6467E-04_JPRB,2.2905E-04_JPRB,3.2273E-04_JPRB,4.1230E-04_JPRB,4.6630E-04_JPRB,&
485
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1248E-04_JPRB,2.5129E-04_JPRB,8.6386E-03_JPRB/)
486 KAO( :, 1,13, 2) = (/&
487 & 1.5430E-04_JPRB,1.4442E-04_JPRB,3.0805E-04_JPRB,3.8950E-04_JPRB,4.0767E-04_JPRB,4.1179E-04_JPRB,&
488
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1330E-04_JPRB,1.5430E-04_JPRB,7.3053E-03_JPRB/)
489 KAO( :, 2,13, 2) = (/&
490 & 1.7179E-04_JPRB,1.7510E-04_JPRB,2.4818E-04_JPRB,3.6198E-04_JPRB,4.0625E-04_JPRB,3.9974E-04_JPRB,&
491
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1166E-04_JPRB,1.7179E-04_JPRB,7.9022E-03_JPRB/)
492 KAO( :, 3,13, 2) = (/&
493 & 1.8741E-04_JPRB,1.9575E-04_JPRB,1.8604E-04_JPRB,3.3670E-04_JPRB,3.8272E-04_JPRB,4.0145E-04_JPRB,&
494
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0060E-04_JPRB,1.8741E-04_JPRB,8.4145E-03_JPRB/)
495 KAO( :, 4,13, 2) = (/&
496 & 2.0031E-04_JPRB,2.0975E-04_JPRB,1.6656E-04_JPRB,3.0379E-04_JPRB,3.6769E-04_JPRB,4.0078E-04_JPRB,&
497
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0187E-04_JPRB,2.0032E-04_JPRB,8.8018E-03_JPRB/)
498 KAO( :, 5,13, 2) = (/&
499 & 2.1018E-04_JPRB,2.2076E-04_JPRB,1.9159E-04_JPRB,2.6448E-04_JPRB,3.4432E-04_JPRB,3.8512E-04_JPRB,&
500
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2420E-04_JPRB,2.1018E-04_JPRB,9.0680E-03_JPRB/)
501 KAO( :, 1, 1, 3) = (/&
502 & 2.3465E-03_JPRB,2.4031E-03_JPRB,2.2597E-03_JPRB,2.1524E-03_JPRB,2.8276E-03_JPRB,3.5761E-03_JPRB,&
503
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3079E-03_JPRB,2.3465E-03_JPRB,5.1471E-04_JPRB/)
504 KAO( :, 2, 1, 3) = (/&
505 & 2.3042E-03_JPRB,2.4485E-03_JPRB,2.4199E-03_JPRB,2.2938E-03_JPRB,2.9847E-03_JPRB,3.1952E-03_JPRB,&
506
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1667E-03_JPRB,2.3042E-03_JPRB,6.2319E-04_JPRB/)
507 KAO( :, 3, 1, 3) = (/&
508 & 2.2700E-03_JPRB,2.4966E-03_JPRB,2.5862E-03_JPRB,2.6511E-03_JPRB,2.8738E-03_JPRB,2.9164E-03_JPRB,&
509
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6118E-03_JPRB,2.2700E-03_JPRB,7.4229E-04_JPRB/)
510 KAO( :, 4, 1, 3) = (/&
511 & 2.2509E-03_JPRB,2.5573E-03_JPRB,2.7581E-03_JPRB,2.9718E-03_JPRB,3.0657E-03_JPRB,3.3376E-03_JPRB,&
512
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1600E-03_JPRB,2.2509E-03_JPRB,8.5977E-04_JPRB/)
513 KAO( :, 5, 1, 3) = (/&
514 & 2.2422E-03_JPRB,2.6355E-03_JPRB,2.9552E-03_JPRB,3.2531E-03_JPRB,3.4296E-03_JPRB,3.4558E-03_JPRB,&
515
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2808E-03_JPRB,2.2422E-03_JPRB,9.9766E-04_JPRB/)
516 KAO( :, 1, 2, 3) = (/&
517 & 2.0157E-03_JPRB,2.0510E-03_JPRB,1.8851E-03_JPRB,1.8206E-03_JPRB,2.4343E-03_JPRB,2.9704E-03_JPRB,&
518
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8311E-03_JPRB,2.0157E-03_JPRB,4.1396E-04_JPRB/)
519 KAO( :, 2, 2, 3) = (/&
520 & 1.9815E-03_JPRB,2.0886E-03_JPRB,2.0439E-03_JPRB,1.8938E-03_JPRB,2.5204E-03_JPRB,2.7128E-03_JPRB,&
521
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3350E-03_JPRB,1.9815E-03_JPRB,4.8039E-04_JPRB/)
522 KAO( :, 3, 2, 3) = (/&
523 & 1.9576E-03_JPRB,2.1326E-03_JPRB,2.1790E-03_JPRB,2.1795E-03_JPRB,2.4882E-03_JPRB,2.4941E-03_JPRB,&
524
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2109E-03_JPRB,1.9575E-03_JPRB,5.7955E-04_JPRB/)
525 KAO( :, 4, 2, 3) = (/&
526 & 1.9481E-03_JPRB,2.1829E-03_JPRB,2.3235E-03_JPRB,2.4676E-03_JPRB,2.6097E-03_JPRB,2.8349E-03_JPRB,&
527
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5868E-03_JPRB,1.9481E-03_JPRB,6.6714E-04_JPRB/)
528 KAO( :, 5, 2, 3) = (/&
529 & 1.9507E-03_JPRB,2.2521E-03_JPRB,2.4912E-03_JPRB,2.7356E-03_JPRB,2.8987E-03_JPRB,2.9418E-03_JPRB,&
530
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7830E-03_JPRB,1.9507E-03_JPRB,7.7523E-04_JPRB/)
531 KAO( :, 1, 3, 3) = (/&
532 & 1.7285E-03_JPRB,1.7377E-03_JPRB,1.5305E-03_JPRB,1.6757E-03_JPRB,2.1680E-03_JPRB,2.5609E-03_JPRB,&
533
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3887E-03_JPRB,1.7285E-03_JPRB,3.2280E-04_JPRB/)
534 KAO( :, 2, 3, 3) = (/&
535 & 1.7015E-03_JPRB,1.7653E-03_JPRB,1.6878E-03_JPRB,1.5112E-03_JPRB,2.1719E-03_JPRB,2.4083E-03_JPRB,&
536
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8061E-03_JPRB,1.7015E-03_JPRB,3.7412E-04_JPRB/)
537 KAO( :, 3, 3, 3) = (/&
538 & 1.6851E-03_JPRB,1.8101E-03_JPRB,1.8073E-03_JPRB,1.7539E-03_JPRB,2.2398E-03_JPRB,2.1112E-03_JPRB,&
539
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7333E-03_JPRB,1.6851E-03_JPRB,4.3157E-04_JPRB/)
540 KAO( :, 4, 3, 3) = (/&
541 & 1.6786E-03_JPRB,1.8567E-03_JPRB,1.9291E-03_JPRB,1.9927E-03_JPRB,2.1347E-03_JPRB,2.2693E-03_JPRB,&
542
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2801E-03_JPRB,1.6786E-03_JPRB,5.0448E-04_JPRB/)
543 KAO( :, 5, 3, 3) = (/&
544 & 1.6877E-03_JPRB,1.9156E-03_JPRB,2.0710E-03_JPRB,2.2420E-03_JPRB,2.3625E-03_JPRB,2.5310E-03_JPRB,&
545
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3182E-03_JPRB,1.6877E-03_JPRB,5.8583E-04_JPRB/)
546 KAO( :, 1, 4, 3) = (/&
547 & 1.4834E-03_JPRB,1.4711E-03_JPRB,1.2522E-03_JPRB,1.4479E-03_JPRB,1.9854E-03_JPRB,2.2569E-03_JPRB,&
548
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9775E-03_JPRB,1.4834E-03_JPRB,2.5081E-04_JPRB/)
549 KAO( :, 2, 4, 3) = (/&
550 & 1.4601E-03_JPRB,1.4870E-03_JPRB,1.3690E-03_JPRB,1.2662E-03_JPRB,1.8060E-03_JPRB,2.0826E-03_JPRB,&
551
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4977E-03_JPRB,1.4601E-03_JPRB,2.9277E-04_JPRB/)
552 KAO( :, 3, 4, 3) = (/&
553 & 1.4467E-03_JPRB,1.5271E-03_JPRB,1.4979E-03_JPRB,1.3500E-03_JPRB,1.8497E-03_JPRB,1.9610E-03_JPRB,&
554
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2907E-03_JPRB,1.4467E-03_JPRB,3.3271E-04_JPRB/)
555 KAO( :, 4, 4, 3) = (/&
556 & 1.4432E-03_JPRB,1.5714E-03_JPRB,1.5969E-03_JPRB,1.5937E-03_JPRB,1.7902E-03_JPRB,1.9320E-03_JPRB,&
557
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2420E-03_JPRB,1.4432E-03_JPRB,3.8467E-04_JPRB/)
558 KAO( :, 5, 4, 3) = (/&
559 & 1.4550E-03_JPRB,1.6236E-03_JPRB,1.7127E-03_JPRB,1.8068E-03_JPRB,1.8486E-03_JPRB,2.1176E-03_JPRB,&
560
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8018E-03_JPRB,1.4551E-03_JPRB,4.4551E-04_JPRB/)
561 KAO( :, 1, 5, 3) = (/&
562 & 1.2773E-03_JPRB,1.2497E-03_JPRB,1.0064E-03_JPRB,1.2506E-03_JPRB,1.7352E-03_JPRB,2.1064E-03_JPRB,&
563
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5188E-03_JPRB,1.2773E-03_JPRB,2.1025E-04_JPRB/)
564 KAO( :, 2, 5, 3) = (/&
565 & 1.2595E-03_JPRB,1.2634E-03_JPRB,1.1147E-03_JPRB,1.1296E-03_JPRB,1.5824E-03_JPRB,1.8075E-03_JPRB,&
566
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2978E-03_JPRB,1.2595E-03_JPRB,2.3601E-04_JPRB/)
567 KAO( :, 3, 5, 3) = (/&
568 & 1.2471E-03_JPRB,1.2907E-03_JPRB,1.2226E-03_JPRB,1.0559E-03_JPRB,1.5556E-03_JPRB,1.7264E-03_JPRB,&
569
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8319E-03_JPRB,1.2471E-03_JPRB,2.6674E-04_JPRB/)
570 KAO( :, 4, 5, 3) = (/&
571 & 1.2460E-03_JPRB,1.3277E-03_JPRB,1.3232E-03_JPRB,1.2839E-03_JPRB,1.5266E-03_JPRB,1.5639E-03_JPRB,&
572
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9030E-03_JPRB,1.2460E-03_JPRB,3.0491E-04_JPRB/)
573 KAO( :, 5, 5, 3) = (/&
574 & 1.2575E-03_JPRB,1.3721E-03_JPRB,1.4143E-03_JPRB,1.4453E-03_JPRB,1.5006E-03_JPRB,1.7674E-03_JPRB,&
575
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7436E-03_JPRB,1.2575E-03_JPRB,3.5060E-04_JPRB/)
576 KAO( :, 1, 6, 3) = (/&
577 & 1.0958E-03_JPRB,1.0595E-03_JPRB,7.7664E-04_JPRB,1.1085E-03_JPRB,1.5393E-03_JPRB,1.9338E-03_JPRB,&
578
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1934E-03_JPRB,1.0958E-03_JPRB,1.9645E-04_JPRB/)
579 KAO( :, 2, 6, 3) = (/&
580 & 1.0816E-03_JPRB,1.0727E-03_JPRB,9.0695E-04_JPRB,1.0023E-03_JPRB,1.4434E-03_JPRB,1.5856E-03_JPRB,&
581
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0291E-03_JPRB,1.0816E-03_JPRB,2.1208E-04_JPRB/)
582 KAO( :, 3, 6, 3) = (/&
583 & 1.0710E-03_JPRB,1.0888E-03_JPRB,9.9129E-04_JPRB,8.7443E-04_JPRB,1.3179E-03_JPRB,1.5033E-03_JPRB,&
584
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7077E-03_JPRB,1.0710E-03_JPRB,2.3481E-04_JPRB/)
585 KAO( :, 4, 6, 3) = (/&
586 & 1.0708E-03_JPRB,1.1186E-03_JPRB,1.0874E-03_JPRB,9.5969E-04_JPRB,1.2671E-03_JPRB,1.4010E-03_JPRB,&
587
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5917E-03_JPRB,1.0708E-03_JPRB,2.6339E-04_JPRB/)
588 KAO( :, 5, 6, 3) = (/&
589 & 1.0806E-03_JPRB,1.1572E-03_JPRB,1.1631E-03_JPRB,1.1545E-03_JPRB,1.2485E-03_JPRB,1.4294E-03_JPRB,&
590
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6004E-03_JPRB,1.0806E-03_JPRB,2.9803E-04_JPRB/)
591 KAO( :, 1, 7, 3) = (/&
592 & 9.3348E-04_JPRB,8.9092E-04_JPRB,5.7161E-04_JPRB,1.0208E-03_JPRB,1.3784E-03_JPRB,1.7037E-03_JPRB,&
593
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8935E-03_JPRB,9.3348E-04_JPRB,2.1146E-04_JPRB/)
594 KAO( :, 2, 7, 3) = (/&
595 & 9.2171E-04_JPRB,9.0329E-04_JPRB,7.1477E-04_JPRB,8.4903E-04_JPRB,1.2778E-03_JPRB,1.4945E-03_JPRB,&
596
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7270E-03_JPRB,9.2171E-04_JPRB,2.3005E-04_JPRB/)
597 KAO( :, 3, 7, 3) = (/&
598 & 9.1419E-04_JPRB,9.1920E-04_JPRB,8.1160E-04_JPRB,7.6435E-04_JPRB,1.1213E-03_JPRB,1.3301E-03_JPRB,&
599
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6214E-03_JPRB,9.1419E-04_JPRB,2.5234E-04_JPRB/)
600 KAO( :, 4, 7, 3) = (/&
601 & 9.1402E-04_JPRB,9.3968E-04_JPRB,8.8126E-04_JPRB,7.5287E-04_JPRB,1.0570E-03_JPRB,1.2475E-03_JPRB,&
602
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2998E-03_JPRB,9.1402E-04_JPRB,2.7815E-04_JPRB/)
603 KAO( :, 5, 7, 3) = (/&
604 & 9.2290E-04_JPRB,9.7254E-04_JPRB,9.5644E-04_JPRB,8.9479E-04_JPRB,1.0508E-03_JPRB,1.1268E-03_JPRB,&
605
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3501E-03_JPRB,9.2290E-04_JPRB,3.0806E-04_JPRB/)
606 KAO( :, 1, 8, 3) = (/&
607 & 7.8900E-04_JPRB,7.4488E-04_JPRB,4.6218E-04_JPRB,9.6318E-04_JPRB,1.2372E-03_JPRB,1.5237E-03_JPRB,&
608
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6722E-03_JPRB,7.8900E-04_JPRB,3.0765E-04_JPRB/)
609 KAO( :, 2, 8, 3) = (/&
610 & 7.8043E-04_JPRB,7.5428E-04_JPRB,5.4366E-04_JPRB,7.5909E-04_JPRB,1.0879E-03_JPRB,1.3550E-03_JPRB,&
611
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4794E-03_JPRB,7.8043E-04_JPRB,3.3864E-04_JPRB/)
612 KAO( :, 3, 8, 3) = (/&
613 & 7.7466E-04_JPRB,7.6980E-04_JPRB,6.4963E-04_JPRB,7.0009E-04_JPRB,9.7649E-04_JPRB,1.1689E-03_JPRB,&
614
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4326E-03_JPRB,7.7466E-04_JPRB,3.7286E-04_JPRB/)
615 KAO( :, 4, 8, 3) = (/&
616 & 7.7506E-04_JPRB,7.8870E-04_JPRB,7.1575E-04_JPRB,6.1864E-04_JPRB,8.9565E-04_JPRB,1.0708E-03_JPRB,&
617
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2387E-03_JPRB,7.7506E-04_JPRB,4.1070E-04_JPRB/)
618 KAO( :, 5, 8, 3) = (/&
619 & 7.8287E-04_JPRB,8.1561E-04_JPRB,7.7836E-04_JPRB,6.6838E-04_JPRB,8.8453E-04_JPRB,9.5158E-04_JPRB,&
620
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1620E-03_JPRB,7.8287E-04_JPRB,4.5222E-04_JPRB/)
621 KAO( :, 1, 9, 3) = (/&
622 & 6.6353E-04_JPRB,6.2207E-04_JPRB,4.1497E-04_JPRB,8.5325E-04_JPRB,1.1545E-03_JPRB,1.3202E-03_JPRB,&
623
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4543E-03_JPRB,6.6353E-04_JPRB,9.2255E-04_JPRB/)
624 KAO( :, 2, 9, 3) = (/&
625 & 6.5824E-04_JPRB,6.2786E-04_JPRB,3.9339E-04_JPRB,7.1164E-04_JPRB,9.5910E-04_JPRB,1.2248E-03_JPRB,&
626
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2834E-03_JPRB,6.5824E-04_JPRB,1.0047E-03_JPRB/)
627 KAO( :, 3, 9, 3) = (/&
628 & 6.5331E-04_JPRB,6.3921E-04_JPRB,5.1016E-04_JPRB,5.9654E-04_JPRB,8.7596E-04_JPRB,1.0857E-03_JPRB,&
629
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2145E-03_JPRB,6.5331E-04_JPRB,1.0900E-03_JPRB/)
630 KAO( :, 4, 9, 3) = (/&
631 & 6.5413E-04_JPRB,6.5950E-04_JPRB,5.8244E-04_JPRB,5.3974E-04_JPRB,7.9259E-04_JPRB,9.3024E-04_JPRB,&
632
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1600E-03_JPRB,6.5413E-04_JPRB,1.1801E-03_JPRB/)
633 KAO( :, 5, 9, 3) = (/&
634 & 6.6022E-04_JPRB,6.8110E-04_JPRB,6.3639E-04_JPRB,5.2716E-04_JPRB,7.2311E-04_JPRB,8.5016E-04_JPRB,&
635
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.6256E-04_JPRB,6.6022E-04_JPRB,1.2684E-03_JPRB/)
636 KAO( :, 1,10, 3) = (/&
637 & 5.5537E-04_JPRB,5.1658E-04_JPRB,3.5969E-04_JPRB,7.5778E-04_JPRB,1.0268E-03_JPRB,1.1188E-03_JPRB,&
638
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2385E-03_JPRB,5.5537E-04_JPRB,4.6647E-03_JPRB/)
639 KAO( :, 2,10, 3) = (/&
640 & 5.5299E-04_JPRB,5.2259E-04_JPRB,3.1728E-04_JPRB,6.5526E-04_JPRB,8.4363E-04_JPRB,1.0738E-03_JPRB,&
641
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0790E-03_JPRB,5.5299E-04_JPRB,4.9960E-03_JPRB/)
642 KAO( :, 3,10, 3) = (/&
643 & 5.4881E-04_JPRB,5.3065E-04_JPRB,3.9373E-04_JPRB,5.2361E-04_JPRB,7.6014E-04_JPRB,9.4697E-04_JPRB,&
644
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0409E-03_JPRB,5.4881E-04_JPRB,5.3035E-03_JPRB/)
645 KAO( :, 4,10, 3) = (/&
646 & 5.5010E-04_JPRB,5.4878E-04_JPRB,4.7038E-04_JPRB,4.9342E-04_JPRB,6.7583E-04_JPRB,8.0683E-04_JPRB,&
647
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0299E-03_JPRB,5.5010E-04_JPRB,5.6055E-03_JPRB/)
648 KAO( :, 5,10, 3) = (/&
649 & 5.5598E-04_JPRB,5.6871E-04_JPRB,5.2247E-04_JPRB,4.3615E-04_JPRB,6.1815E-04_JPRB,7.4431E-04_JPRB,&
650
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6008E-04_JPRB,5.5598E-04_JPRB,5.8866E-03_JPRB/)
651 KAO( :, 1,11, 3) = (/&
652 & 4.6383E-04_JPRB,4.3181E-04_JPRB,2.9311E-04_JPRB,6.2613E-04_JPRB,8.4464E-04_JPRB,9.4332E-04_JPRB,&
653
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0276E-03_JPRB,4.6383E-04_JPRB,9.7820E-03_JPRB/)
654 KAO( :, 2,11, 3) = (/&
655 & 4.6171E-04_JPRB,4.3648E-04_JPRB,2.6562E-04_JPRB,5.3382E-04_JPRB,6.9685E-04_JPRB,9.0179E-04_JPRB,&
656
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.0128E-04_JPRB,4.6171E-04_JPRB,1.0398E-02_JPRB/)
657 KAO( :, 3,11, 3) = (/&
658 & 4.5971E-04_JPRB,4.4491E-04_JPRB,3.3508E-04_JPRB,4.3267E-04_JPRB,6.3864E-04_JPRB,7.7944E-04_JPRB,&
659
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.8922E-04_JPRB,4.5971E-04_JPRB,1.0944E-02_JPRB/)
660 KAO( :, 4,11, 3) = (/&
661 & 4.6259E-04_JPRB,4.6298E-04_JPRB,4.0175E-04_JPRB,4.0894E-04_JPRB,5.5874E-04_JPRB,6.6574E-04_JPRB,&
662
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6378E-04_JPRB,4.6259E-04_JPRB,1.1452E-02_JPRB/)
663 KAO( :, 5,11, 3) = (/&
664 & 4.6974E-04_JPRB,4.8223E-04_JPRB,4.4819E-04_JPRB,3.7104E-04_JPRB,5.1007E-04_JPRB,6.1091E-04_JPRB,&
665
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9095E-04_JPRB,4.6974E-04_JPRB,1.1916E-02_JPRB/)
666 KAO( :, 1,12, 3) = (/&
667 & 3.8677E-04_JPRB,3.6035E-04_JPRB,2.4184E-04_JPRB,5.1647E-04_JPRB,6.9945E-04_JPRB,8.0460E-04_JPRB,&
668
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 8.3717E-04_JPRB,3.8677E-04_JPRB,1.3274E-02_JPRB/)
669
670
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART2',1,ZHOOK_HANDLE)
671 1 END SUBROUTINE PART2
672
673
674 1 SUBROUTINE PART3
675
676 REAL(KIND=JPRB) :: ZHOOK_HANDLE
677
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART3',0,ZHOOK_HANDLE)
678
679
680 KAO( :, 2,12, 3) = (/&
681 & 3.8521E-04_JPRB,3.6402E-04_JPRB,2.2242E-04_JPRB,4.3447E-04_JPRB,5.8110E-04_JPRB,7.4047E-04_JPRB,&
682
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.6321E-04_JPRB,3.8521E-04_JPRB,1.4068E-02_JPRB/)
683 KAO( :, 3,12, 3) = (/&
684 & 3.8458E-04_JPRB,3.7296E-04_JPRB,2.8696E-04_JPRB,3.5751E-04_JPRB,5.2960E-04_JPRB,6.4366E-04_JPRB,&
685
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.5179E-04_JPRB,3.8458E-04_JPRB,1.4758E-02_JPRB/)
686 KAO( :, 4,12, 3) = (/&
687 & 3.8810E-04_JPRB,3.8944E-04_JPRB,3.4377E-04_JPRB,3.3355E-04_JPRB,4.6692E-04_JPRB,5.5746E-04_JPRB,&
688
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0895E-04_JPRB,3.8810E-04_JPRB,1.5376E-02_JPRB/)
689 KAO( :, 5,12, 3) = (/&
690 & 3.9595E-04_JPRB,4.0863E-04_JPRB,3.8125E-04_JPRB,3.1202E-04_JPRB,4.2678E-04_JPRB,5.1131E-04_JPRB,&
691
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7489E-04_JPRB,3.9595E-04_JPRB,1.5941E-02_JPRB/)
692 KAO( :, 1,13, 3) = (/&
693 & 3.2194E-04_JPRB,2.9976E-04_JPRB,1.9852E-04_JPRB,4.2567E-04_JPRB,5.7525E-04_JPRB,6.7061E-04_JPRB,&
694
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9907E-04_JPRB,3.2194E-04_JPRB,1.4565E-02_JPRB/)
695 KAO( :, 2,13, 3) = (/&
696 & 3.2103E-04_JPRB,3.0342E-04_JPRB,1.8519E-04_JPRB,3.5157E-04_JPRB,4.8791E-04_JPRB,6.1939E-04_JPRB,&
697
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.5160E-04_JPRB,3.2103E-04_JPRB,1.5395E-02_JPRB/)
698 KAO( :, 3,13, 3) = (/&
699 & 3.2113E-04_JPRB,3.1205E-04_JPRB,2.4410E-04_JPRB,2.9571E-04_JPRB,4.4082E-04_JPRB,5.2957E-04_JPRB,&
700
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.2741E-04_JPRB,3.2112E-04_JPRB,1.6107E-02_JPRB/)
701 KAO( :, 4,13, 3) = (/&
702 & 3.2542E-04_JPRB,3.2754E-04_JPRB,2.9103E-04_JPRB,2.6678E-04_JPRB,3.8858E-04_JPRB,4.6663E-04_JPRB,&
703
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7700E-04_JPRB,3.2542E-04_JPRB,1.6764E-02_JPRB/)
704 KAO( :, 5,13, 3) = (/&
705 & 3.3271E-04_JPRB,3.4522E-04_JPRB,3.2313E-04_JPRB,2.6306E-04_JPRB,3.5325E-04_JPRB,4.2786E-04_JPRB,&
706
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7758E-04_JPRB,3.3271E-04_JPRB,1.7329E-02_JPRB/)
707 KAO( :, 1, 1, 4) = (/&
708 & 3.2539E-03_JPRB,3.4940E-03_JPRB,3.4388E-03_JPRB,3.0659E-03_JPRB,3.4522E-03_JPRB,4.1188E-03_JPRB,&
709
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1472E-03_JPRB,3.2539E-03_JPRB,9.9646E-04_JPRB/)
710 KAO( :, 2, 1, 4) = (/&
711 & 3.2363E-03_JPRB,3.6045E-03_JPRB,3.7021E-03_JPRB,3.5901E-03_JPRB,3.1463E-03_JPRB,4.3360E-03_JPRB,&
712
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0838E-03_JPRB,3.2363E-03_JPRB,1.0956E-03_JPRB/)
713 KAO( :, 3, 1, 4) = (/&
714 & 3.2334E-03_JPRB,3.7700E-03_JPRB,3.9602E-03_JPRB,3.9629E-03_JPRB,3.8081E-03_JPRB,4.2925E-03_JPRB,&
715
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1219E-03_JPRB,3.2334E-03_JPRB,1.3007E-03_JPRB/)
716 KAO( :, 4, 1, 4) = (/&
717 & 3.2490E-03_JPRB,3.9748E-03_JPRB,4.2071E-03_JPRB,4.2935E-03_JPRB,4.3164E-03_JPRB,4.2604E-03_JPRB,&
718
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.6033E-03_JPRB,3.2490E-03_JPRB,1.5944E-03_JPRB/)
719 KAO( :, 5, 1, 4) = (/&
720 & 3.2698E-03_JPRB,4.1740E-03_JPRB,4.4497E-03_JPRB,4.6155E-03_JPRB,4.8047E-03_JPRB,5.1537E-03_JPRB,&
721
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.5559E-03_JPRB,3.2698E-03_JPRB,1.9119E-03_JPRB/)
722 KAO( :, 1, 2, 4) = (/&
723 & 2.8229E-03_JPRB,2.9984E-03_JPRB,2.9248E-03_JPRB,2.5710E-03_JPRB,2.9591E-03_JPRB,3.5685E-03_JPRB,&
724
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3471E-03_JPRB,2.8229E-03_JPRB,7.1037E-04_JPRB/)
725 KAO( :, 2, 2, 4) = (/&
726 & 2.8182E-03_JPRB,3.1079E-03_JPRB,3.1510E-03_JPRB,3.0220E-03_JPRB,2.6456E-03_JPRB,3.5065E-03_JPRB,&
727
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5091E-03_JPRB,2.8182E-03_JPRB,8.2941E-04_JPRB/)
728 KAO( :, 3, 2, 4) = (/&
729 & 2.8273E-03_JPRB,3.2641E-03_JPRB,3.3991E-03_JPRB,3.3882E-03_JPRB,3.1076E-03_JPRB,3.6339E-03_JPRB,&
730
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1453E-03_JPRB,2.8273E-03_JPRB,9.9329E-04_JPRB/)
731 KAO( :, 4, 2, 4) = (/&
732 & 2.8479E-03_JPRB,3.4537E-03_JPRB,3.6378E-03_JPRB,3.6922E-03_JPRB,3.5902E-03_JPRB,3.4985E-03_JPRB,&
733
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8079E-03_JPRB,2.8479E-03_JPRB,1.2207E-03_JPRB/)
734 KAO( :, 5, 2, 4) = (/&
735 & 2.8762E-03_JPRB,3.6435E-03_JPRB,3.8640E-03_JPRB,3.9829E-03_JPRB,4.0196E-03_JPRB,4.2137E-03_JPRB,&
736
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.6057E-03_JPRB,2.8762E-03_JPRB,1.4645E-03_JPRB/)
737 KAO( :, 1, 3, 4) = (/&
738 & 2.4480E-03_JPRB,2.5503E-03_JPRB,2.4276E-03_JPRB,1.9299E-03_JPRB,2.4394E-03_JPRB,2.9600E-03_JPRB,&
739
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0819E-03_JPRB,2.4480E-03_JPRB,5.1310E-04_JPRB/)
740 KAO( :, 2, 3, 4) = (/&
741 & 2.4484E-03_JPRB,2.6489E-03_JPRB,2.6249E-03_JPRB,2.4613E-03_JPRB,2.1891E-03_JPRB,2.8113E-03_JPRB,&
742
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9085E-03_JPRB,2.4484E-03_JPRB,6.0695E-04_JPRB/)
743 KAO( :, 3, 3, 4) = (/&
744 & 2.4631E-03_JPRB,2.7817E-03_JPRB,2.8578E-03_JPRB,2.8021E-03_JPRB,2.3361E-03_JPRB,3.1956E-03_JPRB,&
745
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2912E-03_JPRB,2.4631E-03_JPRB,7.4313E-04_JPRB/)
746 KAO( :, 4, 3, 4) = (/&
747 & 2.4843E-03_JPRB,2.9440E-03_JPRB,3.0734E-03_JPRB,3.0947E-03_JPRB,2.9596E-03_JPRB,2.9621E-03_JPRB,&
748
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8254E-03_JPRB,2.4843E-03_JPRB,8.9831E-04_JPRB/)
749 KAO( :, 5, 3, 4) = (/&
750 & 2.5152E-03_JPRB,3.1190E-03_JPRB,3.2801E-03_JPRB,3.3527E-03_JPRB,3.3374E-03_JPRB,3.2653E-03_JPRB,&
751
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7266E-03_JPRB,2.5152E-03_JPRB,1.0797E-03_JPRB/)
752 KAO( :, 1, 4, 4) = (/&
753 & 2.1250E-03_JPRB,2.1670E-03_JPRB,1.9990E-03_JPRB,1.5199E-03_JPRB,1.9962E-03_JPRB,2.4995E-03_JPRB,&
754
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9024E-03_JPRB,2.1250E-03_JPRB,3.7531E-04_JPRB/)
755 KAO( :, 2, 4, 4) = (/&
756 & 2.1204E-03_JPRB,2.2489E-03_JPRB,2.1700E-03_JPRB,1.9399E-03_JPRB,1.9963E-03_JPRB,2.4266E-03_JPRB,&
757
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6000E-03_JPRB,2.1204E-03_JPRB,4.4756E-04_JPRB/)
758 KAO( :, 3, 4, 4) = (/&
759 & 2.1413E-03_JPRB,2.3587E-03_JPRB,2.3627E-03_JPRB,2.2544E-03_JPRB,1.9195E-03_JPRB,2.4658E-03_JPRB,&
760
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5172E-03_JPRB,2.1413E-03_JPRB,5.4705E-04_JPRB/)
761 KAO( :, 4, 4, 4) = (/&
762 & 2.1654E-03_JPRB,2.4980E-03_JPRB,2.5663E-03_JPRB,2.5373E-03_JPRB,2.3728E-03_JPRB,2.4769E-03_JPRB,&
763
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8318E-03_JPRB,2.1654E-03_JPRB,6.6125E-04_JPRB/)
764 KAO( :, 5, 4, 4) = (/&
765 & 2.1913E-03_JPRB,2.6456E-03_JPRB,2.7536E-03_JPRB,2.7816E-03_JPRB,2.7405E-03_JPRB,2.5702E-03_JPRB,&
766
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2605E-03_JPRB,2.1913E-03_JPRB,7.9714E-04_JPRB/)
767 KAO( :, 1, 5, 4) = (/&
768 & 1.8265E-03_JPRB,1.8381E-03_JPRB,1.6457E-03_JPRB,1.2486E-03_JPRB,1.7229E-03_JPRB,2.0547E-03_JPRB,&
769
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6848E-03_JPRB,1.8265E-03_JPRB,2.8596E-04_JPRB/)
770 KAO( :, 2, 5, 4) = (/&
771 & 1.8274E-03_JPRB,1.9048E-03_JPRB,1.7983E-03_JPRB,1.4752E-03_JPRB,1.7469E-03_JPRB,2.1116E-03_JPRB,&
772
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1134E-03_JPRB,1.8274E-03_JPRB,3.4190E-04_JPRB/)
773 KAO( :, 3, 5, 4) = (/&
774 & 1.8508E-03_JPRB,2.0003E-03_JPRB,1.9620E-03_JPRB,1.8188E-03_JPRB,1.6077E-03_JPRB,1.9516E-03_JPRB,&
775
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1073E-03_JPRB,1.8508E-03_JPRB,4.1292E-04_JPRB/)
776 KAO( :, 4, 5, 4) = (/&
777 & 1.8793E-03_JPRB,2.1182E-03_JPRB,2.1350E-03_JPRB,2.0517E-03_JPRB,1.8087E-03_JPRB,2.2071E-03_JPRB,&
778
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2714E-03_JPRB,1.8793E-03_JPRB,4.9789E-04_JPRB/)
779 KAO( :, 5, 5, 4) = (/&
780 & 1.9065E-03_JPRB,2.2435E-03_JPRB,2.3053E-03_JPRB,2.2926E-03_JPRB,2.2224E-03_JPRB,2.0829E-03_JPRB,&
781
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5565E-03_JPRB,1.9065E-03_JPRB,5.9975E-04_JPRB/)
782 KAO( :, 1, 6, 4) = (/&
783 & 1.5738E-03_JPRB,1.5536E-03_JPRB,1.3462E-03_JPRB,1.0905E-03_JPRB,1.5345E-03_JPRB,1.8378E-03_JPRB,&
784
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3696E-03_JPRB,1.5738E-03_JPRB,2.4570E-04_JPRB/)
785 KAO( :, 2, 6, 4) = (/&
786 & 1.5785E-03_JPRB,1.6102E-03_JPRB,1.4864E-03_JPRB,1.0878E-03_JPRB,1.4533E-03_JPRB,1.8096E-03_JPRB,&
787
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9208E-03_JPRB,1.5785E-03_JPRB,2.8650E-04_JPRB/)
788 KAO( :, 3, 6, 4) = (/&
789 & 1.5938E-03_JPRB,1.6886E-03_JPRB,1.6242E-03_JPRB,1.4329E-03_JPRB,1.3971E-03_JPRB,1.6588E-03_JPRB,&
790
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7977E-03_JPRB,1.5938E-03_JPRB,3.3646E-04_JPRB/)
791 KAO( :, 4, 6, 4) = (/&
792 & 1.6207E-03_JPRB,1.7903E-03_JPRB,1.7740E-03_JPRB,1.6609E-03_JPRB,1.4090E-03_JPRB,1.7880E-03_JPRB,&
793
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8264E-03_JPRB,1.6207E-03_JPRB,3.9927E-04_JPRB/)
794 KAO( :, 5, 6, 4) = (/&
795 & 1.6514E-03_JPRB,1.8945E-03_JPRB,1.9189E-03_JPRB,1.8707E-03_JPRB,1.7309E-03_JPRB,1.7651E-03_JPRB,&
796
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8956E-03_JPRB,1.6514E-03_JPRB,4.7341E-04_JPRB/)
797 KAO( :, 1, 7, 4) = (/&
798 & 1.3566E-03_JPRB,1.3176E-03_JPRB,1.0800E-03_JPRB,9.9879E-04_JPRB,1.3645E-03_JPRB,1.6716E-03_JPRB,&
799
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0138E-03_JPRB,1.3566E-03_JPRB,2.7117E-04_JPRB/)
800 KAO( :, 2, 7, 4) = (/&
801 & 1.3616E-03_JPRB,1.3614E-03_JPRB,1.2294E-03_JPRB,8.6943E-04_JPRB,1.2441E-03_JPRB,1.4557E-03_JPRB,&
802
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7627E-03_JPRB,1.3616E-03_JPRB,3.0497E-04_JPRB/)
803 KAO( :, 3, 7, 4) = (/&
804 & 1.3738E-03_JPRB,1.4251E-03_JPRB,1.3424E-03_JPRB,1.0748E-03_JPRB,1.3239E-03_JPRB,1.4948E-03_JPRB,&
805
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4893E-03_JPRB,1.3738E-03_JPRB,3.4547E-04_JPRB/)
806 KAO( :, 4, 7, 4) = (/&
807 & 1.3909E-03_JPRB,1.5062E-03_JPRB,1.4675E-03_JPRB,1.3314E-03_JPRB,1.1299E-03_JPRB,1.4256E-03_JPRB,&
808
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5101E-03_JPRB,1.3909E-03_JPRB,3.9363E-04_JPRB/)
809 KAO( :, 5, 7, 4) = (/&
810 & 1.4214E-03_JPRB,1.5939E-03_JPRB,1.5929E-03_JPRB,1.5159E-03_JPRB,1.3044E-03_JPRB,1.5546E-03_JPRB,&
811
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5847E-03_JPRB,1.4214E-03_JPRB,4.4999E-04_JPRB/)
812 KAO( :, 1, 8, 4) = (/&
813 & 1.1638E-03_JPRB,1.1139E-03_JPRB,8.4796E-04_JPRB,8.4668E-04_JPRB,1.2396E-03_JPRB,1.5094E-03_JPRB,&
814
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6975E-03_JPRB,1.1638E-03_JPRB,4.3052E-04_JPRB/)
815 KAO( :, 2, 8, 4) = (/&
816 & 1.1671E-03_JPRB,1.1491E-03_JPRB,9.9702E-04_JPRB,7.1894E-04_JPRB,1.1157E-03_JPRB,1.2835E-03_JPRB,&
817
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5171E-03_JPRB,1.1671E-03_JPRB,4.7244E-04_JPRB/)
818 KAO( :, 3, 8, 4) = (/&
819 & 1.1763E-03_JPRB,1.1971E-03_JPRB,1.1061E-03_JPRB,7.5625E-04_JPRB,1.0948E-03_JPRB,1.3227E-03_JPRB,&
820
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3243E-03_JPRB,1.1763E-03_JPRB,5.1908E-04_JPRB/)
821 KAO( :, 4, 8, 4) = (/&
822 & 1.1882E-03_JPRB,1.2582E-03_JPRB,1.2081E-03_JPRB,1.0410E-03_JPRB,9.4931E-04_JPRB,1.2112E-03_JPRB,&
823
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2350E-03_JPRB,1.1882E-03_JPRB,5.7242E-04_JPRB/)
824 KAO( :, 5, 8, 4) = (/&
825 & 1.2141E-03_JPRB,1.3322E-03_JPRB,1.3142E-03_JPRB,1.2208E-03_JPRB,9.8671E-04_JPRB,1.3128E-03_JPRB,&
826
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3456E-03_JPRB,1.2141E-03_JPRB,6.3120E-04_JPRB/)
827 KAO( :, 1, 9, 4) = (/&
828 & 9.9337E-04_JPRB,9.3743E-04_JPRB,6.1970E-04_JPRB,7.5456E-04_JPRB,1.1089E-03_JPRB,1.3407E-03_JPRB,&
829
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5068E-03_JPRB,9.9337E-04_JPRB,1.4422E-03_JPRB/)
830 KAO( :, 2, 9, 4) = (/&
831 & 9.9471E-04_JPRB,9.6601E-04_JPRB,8.0263E-04_JPRB,6.4260E-04_JPRB,9.9035E-04_JPRB,1.1710E-03_JPRB,&
832
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3289E-03_JPRB,9.9471E-04_JPRB,1.5498E-03_JPRB/)
833 KAO( :, 3, 9, 4) = (/&
834 & 1.0028E-03_JPRB,1.0037E-03_JPRB,9.0388E-04_JPRB,5.9394E-04_JPRB,8.7485E-04_JPRB,1.0779E-03_JPRB,&
835
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1968E-03_JPRB,1.0028E-03_JPRB,1.6632E-03_JPRB/)
836 KAO( :, 4, 9, 4) = (/&
837 & 1.0138E-03_JPRB,1.0500E-03_JPRB,9.8794E-04_JPRB,7.6322E-04_JPRB,8.5312E-04_JPRB,1.1047E-03_JPRB,&
838
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0664E-03_JPRB,1.0138E-03_JPRB,1.7764E-03_JPRB/)
839 KAO( :, 5, 9, 4) = (/&
840 & 1.0324E-03_JPRB,1.1072E-03_JPRB,1.0751E-03_JPRB,9.6755E-04_JPRB,7.9829E-04_JPRB,1.0354E-03_JPRB,&
841
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1339E-03_JPRB,1.0324E-03_JPRB,1.8836E-03_JPRB/)
842 KAO( :, 1,10, 4) = (/&
843 & 8.4390E-04_JPRB,7.8883E-04_JPRB,4.5496E-04_JPRB,6.3978E-04_JPRB,9.7062E-04_JPRB,1.1888E-03_JPRB,&
844
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3025E-03_JPRB,8.4390E-04_JPRB,7.7978E-03_JPRB/)
845 KAO( :, 2,10, 4) = (/&
846 & 8.4417E-04_JPRB,8.1047E-04_JPRB,6.4039E-04_JPRB,5.5867E-04_JPRB,8.6775E-04_JPRB,1.0100E-03_JPRB,&
847
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1972E-03_JPRB,8.4417E-04_JPRB,8.1651E-03_JPRB/)
848 KAO( :, 3,10, 4) = (/&
849 & 8.5209E-04_JPRB,8.4218E-04_JPRB,7.3701E-04_JPRB,4.8053E-04_JPRB,7.5503E-04_JPRB,9.4507E-04_JPRB,&
850
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0394E-03_JPRB,8.5209E-04_JPRB,8.5320E-03_JPRB/)
851 KAO( :, 4,10, 4) = (/&
852 & 8.6243E-04_JPRB,8.7871E-04_JPRB,8.1378E-04_JPRB,5.4794E-04_JPRB,7.5693E-04_JPRB,9.4093E-04_JPRB,&
853
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.0694E-04_JPRB,8.6243E-04_JPRB,8.8886E-03_JPRB/)
854 KAO( :, 5,10, 4) = (/&
855 & 8.7838E-04_JPRB,9.2500E-04_JPRB,8.8544E-04_JPRB,7.6044E-04_JPRB,6.4236E-04_JPRB,8.2354E-04_JPRB,&
856
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.4540E-04_JPRB,8.7839E-04_JPRB,9.2325E-03_JPRB/)
857 KAO( :, 1,11, 4) = (/&
858 & 7.1140E-04_JPRB,6.6686E-04_JPRB,3.9659E-04_JPRB,5.3128E-04_JPRB,8.2390E-04_JPRB,9.6334E-04_JPRB,&
859
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0535E-03_JPRB,7.1140E-04_JPRB,1.6752E-02_JPRB/)
860 KAO( :, 2,11, 4) = (/&
861 & 7.1470E-04_JPRB,6.8928E-04_JPRB,5.4857E-04_JPRB,4.7790E-04_JPRB,7.0017E-04_JPRB,8.4578E-04_JPRB,&
862
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.6239E-04_JPRB,7.1470E-04_JPRB,1.7467E-02_JPRB/)
863 KAO( :, 3,11, 4) = (/&
864 & 7.2406E-04_JPRB,7.1829E-04_JPRB,6.3252E-04_JPRB,4.0136E-04_JPRB,6.0473E-04_JPRB,8.1229E-04_JPRB,&
865
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6413E-04_JPRB,7.2406E-04_JPRB,1.8154E-02_JPRB/)
866 KAO( :, 4,11, 4) = (/&
867 & 7.3750E-04_JPRB,7.5088E-04_JPRB,6.9603E-04_JPRB,4.8007E-04_JPRB,6.2834E-04_JPRB,7.5345E-04_JPRB,&
868
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.8530E-04_JPRB,7.3750E-04_JPRB,1.8779E-02_JPRB/)
869 KAO( :, 5,11, 4) = (/&
870 & 7.5575E-04_JPRB,7.9367E-04_JPRB,7.5606E-04_JPRB,6.5213E-04_JPRB,5.4718E-04_JPRB,7.0193E-04_JPRB,&
871
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.3404E-04_JPRB,7.5575E-04_JPRB,1.9352E-02_JPRB/)
872 KAO( :, 1,12, 4) = (/&
873 & 5.9829E-04_JPRB,5.6157E-04_JPRB,3.4347E-04_JPRB,4.4145E-04_JPRB,6.8008E-04_JPRB,7.8397E-04_JPRB,&
874
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.5127E-04_JPRB,5.9830E-04_JPRB,2.3223E-02_JPRB/)
875 KAO( :, 2,12, 4) = (/&
876 & 6.0344E-04_JPRB,5.8387E-04_JPRB,4.6957E-04_JPRB,3.9737E-04_JPRB,5.7696E-04_JPRB,7.2078E-04_JPRB,&
877
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.8930E-04_JPRB,6.0344E-04_JPRB,2.4171E-02_JPRB/)
878 KAO( :, 3,12, 4) = (/&
879 & 6.1383E-04_JPRB,6.1057E-04_JPRB,5.4014E-04_JPRB,3.4306E-04_JPRB,5.0450E-04_JPRB,6.7941E-04_JPRB,&
880
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.3306E-04_JPRB,6.1383E-04_JPRB,2.5042E-02_JPRB/)
881 KAO( :, 4,12, 4) = (/&
882 & 6.2909E-04_JPRB,6.4187E-04_JPRB,5.9443E-04_JPRB,4.2049E-04_JPRB,5.1244E-04_JPRB,6.1921E-04_JPRB,&
883
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.8115E-04_JPRB,6.2909E-04_JPRB,2.5830E-02_JPRB/)
884 KAO( :, 5,12, 4) = (/&
885 & 6.5010E-04_JPRB,6.8123E-04_JPRB,6.4805E-04_JPRB,5.6243E-04_JPRB,4.5555E-04_JPRB,5.8069E-04_JPRB,&
886
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9766E-04_JPRB,6.5010E-04_JPRB,2.6537E-02_JPRB/)
887 KAO( :, 1,13, 4) = (/&
888 & 5.0269E-04_JPRB,4.7309E-04_JPRB,2.9722E-04_JPRB,3.6029E-04_JPRB,5.5327E-04_JPRB,6.7267E-04_JPRB,&
889
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9641E-04_JPRB,5.0269E-04_JPRB,2.5949E-02_JPRB/)
890 KAO( :, 2,13, 4) = (/&
891 & 5.0863E-04_JPRB,4.9324E-04_JPRB,4.0227E-04_JPRB,3.2512E-04_JPRB,4.7435E-04_JPRB,5.7218E-04_JPRB,&
892
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.4965E-04_JPRB,5.0863E-04_JPRB,2.6966E-02_JPRB/)
893 KAO( :, 3,13, 4) = (/&
894 & 5.1998E-04_JPRB,5.1754E-04_JPRB,4.6042E-04_JPRB,2.9200E-04_JPRB,4.1919E-04_JPRB,5.5920E-04_JPRB,&
895
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.2355E-04_JPRB,5.1997E-04_JPRB,2.7905E-02_JPRB/)
896 KAO( :, 4,13, 4) = (/&
897 & 5.3565E-04_JPRB,5.4724E-04_JPRB,5.0865E-04_JPRB,3.7273E-04_JPRB,4.1799E-04_JPRB,5.1125E-04_JPRB,&
898
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.5790E-04_JPRB,5.3565E-04_JPRB,2.8735E-02_JPRB/)
899 KAO( :, 5,13, 4) = (/&
900 & 5.5698E-04_JPRB,5.8373E-04_JPRB,5.5557E-04_JPRB,4.8519E-04_JPRB,3.8080E-04_JPRB,4.8575E-04_JPRB,&
901
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9866E-04_JPRB,5.5698E-04_JPRB,2.9481E-02_JPRB/)
902 KAO( :, 1, 1, 5) = (/&
903 & 5.1773E-03_JPRB,5.5179E-03_JPRB,5.4794E-03_JPRB,5.0590E-03_JPRB,3.8870E-03_JPRB,4.6296E-03_JPRB,&
904
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9241E-03_JPRB,5.1773E-03_JPRB,1.5277E-03_JPRB/)
905 KAO( :, 2, 1, 5) = (/&
906 & 5.2034E-03_JPRB,5.6993E-03_JPRB,5.7195E-03_JPRB,5.6065E-03_JPRB,5.1571E-03_JPRB,4.6383E-03_JPRB,&
907
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9998E-03_JPRB,5.2034E-03_JPRB,2.0327E-03_JPRB/)
908 KAO( :, 3, 1, 5) = (/&
909 & 5.2523E-03_JPRB,5.8787E-03_JPRB,6.0084E-03_JPRB,6.0684E-03_JPRB,6.0397E-03_JPRB,6.1073E-03_JPRB,&
910
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9208E-03_JPRB,5.2523E-03_JPRB,2.5125E-03_JPRB/)
911 KAO( :, 4, 1, 5) = (/&
912 & 5.3054E-03_JPRB,6.0746E-03_JPRB,6.3010E-03_JPRB,6.5205E-03_JPRB,6.8111E-03_JPRB,7.3269E-03_JPRB,&
913
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.5915E-03_JPRB,5.3054E-03_JPRB,3.0259E-03_JPRB/)
914 KAO( :, 5, 1, 5) = (/&
915 & 5.3679E-03_JPRB,6.2880E-03_JPRB,6.5896E-03_JPRB,6.9769E-03_JPRB,7.5426E-03_JPRB,8.2616E-03_JPRB,&
916
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.5734E-03_JPRB,5.3679E-03_JPRB,3.5988E-03_JPRB/)
917 KAO( :, 1, 2, 5) = (/&
918 & 4.6050E-03_JPRB,4.8904E-03_JPRB,4.7826E-03_JPRB,4.2812E-03_JPRB,3.0961E-03_JPRB,4.0066E-03_JPRB,&
919
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0115E-03_JPRB,4.6050E-03_JPRB,1.1833E-03_JPRB/)
920 KAO( :, 2, 2, 5) = (/&
921 & 4.6546E-03_JPRB,5.0669E-03_JPRB,5.0153E-03_JPRB,4.8028E-03_JPRB,4.2371E-03_JPRB,3.8571E-03_JPRB,&
922
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7082E-03_JPRB,4.6545E-03_JPRB,1.5250E-03_JPRB/)
923 KAO( :, 3, 2, 5) = (/&
924 & 4.7163E-03_JPRB,5.2445E-03_JPRB,5.2818E-03_JPRB,5.2193E-03_JPRB,5.0401E-03_JPRB,4.8158E-03_JPRB,&
925
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8111E-03_JPRB,4.7163E-03_JPRB,1.8851E-03_JPRB/)
926 KAO( :, 4, 2, 5) = (/&
927 & 4.7840E-03_JPRB,5.4375E-03_JPRB,5.5428E-03_JPRB,5.6145E-03_JPRB,5.7557E-03_JPRB,6.0979E-03_JPRB,&
928
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.0650E-03_JPRB,4.7840E-03_JPRB,2.2872E-03_JPRB/)
929 KAO( :, 5, 2, 5) = (/&
930 & 4.8541E-03_JPRB,5.6350E-03_JPRB,5.8029E-03_JPRB,5.9983E-03_JPRB,6.3916E-03_JPRB,6.9220E-03_JPRB,&
931
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.8417E-03_JPRB,4.8542E-03_JPRB,2.7410E-03_JPRB/)
932 KAO( :, 1, 3, 5) = (/&
933 & 4.0566E-03_JPRB,4.2666E-03_JPRB,4.1136E-03_JPRB,3.4902E-03_JPRB,2.4320E-03_JPRB,3.7448E-03_JPRB,&
934
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0596E-03_JPRB,4.0566E-03_JPRB,8.5537E-04_JPRB/)
935 KAO( :, 2, 3, 5) = (/&
936 & 4.1192E-03_JPRB,4.4343E-03_JPRB,4.3374E-03_JPRB,4.0126E-03_JPRB,3.2863E-03_JPRB,3.1710E-03_JPRB,&
937
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.6913E-03_JPRB,4.1192E-03_JPRB,1.0912E-03_JPRB/)
938 KAO( :, 3, 3, 5) = (/&
939 & 4.1883E-03_JPRB,4.6068E-03_JPRB,4.5710E-03_JPRB,4.4080E-03_JPRB,4.0587E-03_JPRB,3.3970E-03_JPRB,&
940
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0950E-03_JPRB,4.1883E-03_JPRB,1.3564E-03_JPRB/)
941 KAO( :, 4, 3, 5) = (/&
942 & 4.2607E-03_JPRB,4.7874E-03_JPRB,4.8302E-03_JPRB,4.7600E-03_JPRB,4.6789E-03_JPRB,4.6803E-03_JPRB,&
943
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.6046E-03_JPRB,4.2607E-03_JPRB,1.6587E-03_JPRB/)
944 KAO( :, 5, 3, 5) = (/&
945 & 4.3291E-03_JPRB,4.9729E-03_JPRB,5.0821E-03_JPRB,5.1132E-03_JPRB,5.2389E-03_JPRB,5.5501E-03_JPRB,&
946
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.1453E-03_JPRB,4.3291E-03_JPRB,2.0123E-03_JPRB/)
947 KAO( :, 1, 4, 5) = (/&
948 & 3.5459E-03_JPRB,3.6825E-03_JPRB,3.4932E-03_JPRB,2.7637E-03_JPRB,1.9201E-03_JPRB,3.0460E-03_JPRB,&
949
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2749E-03_JPRB,3.5459E-03_JPRB,6.1561E-04_JPRB/)
950 KAO( :, 2, 4, 5) = (/&
951 & 3.6061E-03_JPRB,3.8362E-03_JPRB,3.7182E-03_JPRB,3.3223E-03_JPRB,2.3497E-03_JPRB,2.6627E-03_JPRB,&
952
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6845E-03_JPRB,3.6061E-03_JPRB,7.8011E-04_JPRB/)
953 KAO( :, 3, 4, 5) = (/&
954 & 3.6751E-03_JPRB,4.0009E-03_JPRB,3.9352E-03_JPRB,3.7212E-03_JPRB,3.1586E-03_JPRB,2.6599E-03_JPRB,&
955
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9284E-03_JPRB,3.6751E-03_JPRB,9.7541E-04_JPRB/)
956 KAO( :, 4, 4, 5) = (/&
957 & 3.7472E-03_JPRB,4.1657E-03_JPRB,4.1547E-03_JPRB,4.0471E-03_JPRB,3.7579E-03_JPRB,3.4987E-03_JPRB,&
958
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4684E-03_JPRB,3.7472E-03_JPRB,1.2060E-03_JPRB/)
959 KAO( :, 5, 4, 5) = (/&
960 & 3.8173E-03_JPRB,4.3392E-03_JPRB,4.3926E-03_JPRB,4.3575E-03_JPRB,4.2919E-03_JPRB,4.2730E-03_JPRB,&
961
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3662E-03_JPRB,3.8173E-03_JPRB,1.4743E-03_JPRB/)
962 KAO( :, 1, 5, 5) = (/&
963 & 3.0911E-03_JPRB,3.1547E-03_JPRB,2.9517E-03_JPRB,2.1585E-03_JPRB,1.7089E-03_JPRB,2.5065E-03_JPRB,&
964
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6736E-03_JPRB,3.0911E-03_JPRB,4.5259E-04_JPRB/)
965 KAO( :, 2, 5, 5) = (/&
966 & 3.1432E-03_JPRB,3.2952E-03_JPRB,3.1535E-03_JPRB,2.7144E-03_JPRB,1.7305E-03_JPRB,2.3740E-03_JPRB,&
967
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 2.9171E-03_JPRB,3.1432E-03_JPRB,5.6940E-04_JPRB/)
968
969
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART3',1,ZHOOK_HANDLE)
970 1 END SUBROUTINE PART3
971
972
973 1 SUBROUTINE PART4
974
975 REAL(KIND=JPRB) :: ZHOOK_HANDLE
976
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART4',0,ZHOOK_HANDLE)
977
978
979 KAO( :, 3, 5, 5) = (/&
980 & 3.2011E-03_JPRB,3.4418E-03_JPRB,3.3526E-03_JPRB,3.0998E-03_JPRB,2.4424E-03_JPRB,2.1728E-03_JPRB,&
981
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3563E-03_JPRB,3.2011E-03_JPRB,7.1313E-04_JPRB/)
982 KAO( :, 4, 5, 5) = (/&
983 & 3.2691E-03_JPRB,3.5925E-03_JPRB,3.5476E-03_JPRB,3.4130E-03_JPRB,3.0304E-03_JPRB,2.4542E-03_JPRB,&
984
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7853E-03_JPRB,3.2691E-03_JPRB,8.8641E-04_JPRB/)
985 KAO( :, 5, 5, 5) = (/&
986 & 3.3413E-03_JPRB,3.7507E-03_JPRB,3.7512E-03_JPRB,3.6954E-03_JPRB,3.5144E-03_JPRB,3.3039E-03_JPRB,&
987
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1174E-03_JPRB,3.3413E-03_JPRB,1.0913E-03_JPRB/)
988 KAO( :, 1, 6, 5) = (/&
989 & 2.6814E-03_JPRB,2.6940E-03_JPRB,2.4706E-03_JPRB,1.6241E-03_JPRB,1.5796E-03_JPRB,1.9986E-03_JPRB,&
990
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3111E-03_JPRB,2.6814E-03_JPRB,3.5673E-04_JPRB/)
991 KAO( :, 2, 6, 5) = (/&
992 & 2.7286E-03_JPRB,2.8170E-03_JPRB,2.6566E-03_JPRB,2.1953E-03_JPRB,1.3951E-03_JPRB,2.0187E-03_JPRB,&
993
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3167E-03_JPRB,2.7286E-03_JPRB,4.3928E-04_JPRB/)
994 KAO( :, 3, 6, 5) = (/&
995 & 2.7784E-03_JPRB,2.9396E-03_JPRB,2.8323E-03_JPRB,2.5431E-03_JPRB,1.8045E-03_JPRB,1.8580E-03_JPRB,&
996
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5230E-03_JPRB,2.7784E-03_JPRB,5.4225E-04_JPRB/)
997 KAO( :, 4, 6, 5) = (/&
998 & 2.8457E-03_JPRB,3.0707E-03_JPRB,3.0040E-03_JPRB,2.8313E-03_JPRB,2.4304E-03_JPRB,1.8757E-03_JPRB,&
999
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4280E-03_JPRB,2.8457E-03_JPRB,6.6880E-04_JPRB/)
1000 KAO( :, 5, 6, 5) = (/&
1001 & 2.9149E-03_JPRB,3.2145E-03_JPRB,3.1791E-03_JPRB,3.0927E-03_JPRB,2.8718E-03_JPRB,2.5020E-03_JPRB,&
1002
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4114E-03_JPRB,2.9149E-03_JPRB,8.2090E-04_JPRB/)
1003 KAO( :, 1, 7, 5) = (/&
1004 & 2.3167E-03_JPRB,2.2952E-03_JPRB,2.0696E-03_JPRB,1.1773E-03_JPRB,1.4001E-03_JPRB,1.6742E-03_JPRB,&
1005
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1113E-03_JPRB,2.3167E-03_JPRB,3.6556E-04_JPRB/)
1006 KAO( :, 2, 7, 5) = (/&
1007 & 2.3617E-03_JPRB,2.3995E-03_JPRB,2.2278E-03_JPRB,1.7561E-03_JPRB,1.2221E-03_JPRB,1.7039E-03_JPRB,&
1008
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9252E-03_JPRB,2.3617E-03_JPRB,4.2264E-04_JPRB/)
1009 KAO( :, 3, 7, 5) = (/&
1010 & 2.4125E-03_JPRB,2.5066E-03_JPRB,2.3818E-03_JPRB,2.0804E-03_JPRB,1.2642E-03_JPRB,1.6328E-03_JPRB,&
1011
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0160E-03_JPRB,2.4124E-03_JPRB,4.9466E-04_JPRB/)
1012 KAO( :, 4, 7, 5) = (/&
1013 & 2.4726E-03_JPRB,2.6189E-03_JPRB,2.5346E-03_JPRB,2.3337E-03_JPRB,1.9285E-03_JPRB,1.5396E-03_JPRB,&
1014
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2851E-03_JPRB,2.4726E-03_JPRB,5.8211E-04_JPRB/)
1015 KAO( :, 5, 7, 5) = (/&
1016 & 2.5348E-03_JPRB,2.7473E-03_JPRB,2.6870E-03_JPRB,2.5696E-03_JPRB,2.3235E-03_JPRB,1.8153E-03_JPRB,&
1017
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9526E-03_JPRB,2.5348E-03_JPRB,6.8811E-04_JPRB/)
1018 KAO( :, 1, 8, 5) = (/&
1019 & 1.9955E-03_JPRB,1.9488E-03_JPRB,1.7343E-03_JPRB,8.5576E-04_JPRB,1.2169E-03_JPRB,1.3982E-03_JPRB,&
1020
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8806E-03_JPRB,1.9955E-03_JPRB,5.8425E-04_JPRB/)
1021 KAO( :, 2, 8, 5) = (/&
1022 & 2.0363E-03_JPRB,2.0385E-03_JPRB,1.8715E-03_JPRB,1.3678E-03_JPRB,1.1488E-03_JPRB,1.3583E-03_JPRB,&
1023
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6630E-03_JPRB,2.0363E-03_JPRB,6.4943E-04_JPRB/)
1024 KAO( :, 3, 8, 5) = (/&
1025 & 2.0848E-03_JPRB,2.1355E-03_JPRB,2.0016E-03_JPRB,1.7099E-03_JPRB,1.0490E-03_JPRB,1.3612E-03_JPRB,&
1026
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5304E-03_JPRB,2.0848E-03_JPRB,7.2039E-04_JPRB/)
1027 KAO( :, 4, 8, 5) = (/&
1028 & 2.1402E-03_JPRB,2.2347E-03_JPRB,2.1377E-03_JPRB,1.9281E-03_JPRB,1.4576E-03_JPRB,1.3615E-03_JPRB,&
1029
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7494E-03_JPRB,2.1402E-03_JPRB,7.9144E-04_JPRB/)
1030 KAO( :, 5, 8, 5) = (/&
1031 & 2.1918E-03_JPRB,2.3439E-03_JPRB,2.2739E-03_JPRB,2.1323E-03_JPRB,1.8701E-03_JPRB,1.4117E-03_JPRB,&
1032
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6694E-03_JPRB,2.1918E-03_JPRB,8.7428E-04_JPRB/)
1033 KAO( :, 1, 9, 5) = (/&
1034 & 1.7089E-03_JPRB,1.6461E-03_JPRB,1.4363E-03_JPRB,6.6011E-04_JPRB,1.0235E-03_JPRB,1.2576E-03_JPRB,&
1035
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6021E-03_JPRB,1.7089E-03_JPRB,2.1905E-03_JPRB/)
1036 KAO( :, 2, 9, 5) = (/&
1037 & 1.7449E-03_JPRB,1.7240E-03_JPRB,1.5611E-03_JPRB,9.5939E-04_JPRB,1.0171E-03_JPRB,1.0930E-03_JPRB,&
1038
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4980E-03_JPRB,1.7449E-03_JPRB,2.3032E-03_JPRB/)
1039 KAO( :, 3, 9, 5) = (/&
1040 & 1.7892E-03_JPRB,1.8095E-03_JPRB,1.6779E-03_JPRB,1.3700E-03_JPRB,8.8733E-04_JPRB,1.1976E-03_JPRB,&
1041
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2362E-03_JPRB,1.7892E-03_JPRB,2.4285E-03_JPRB/)
1042 KAO( :, 4, 9, 5) = (/&
1043 & 1.8369E-03_JPRB,1.8975E-03_JPRB,1.7975E-03_JPRB,1.5888E-03_JPRB,1.0202E-03_JPRB,1.1883E-03_JPRB,&
1044
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3430E-03_JPRB,1.8369E-03_JPRB,2.5680E-03_JPRB/)
1045 KAO( :, 5, 9, 5) = (/&
1046 & 1.8812E-03_JPRB,1.9874E-03_JPRB,1.9123E-03_JPRB,1.7614E-03_JPRB,1.4649E-03_JPRB,1.1491E-03_JPRB,&
1047
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5713E-03_JPRB,1.8812E-03_JPRB,2.7221E-03_JPRB/)
1048 KAO( :, 1,10, 5) = (/&
1049 & 1.4572E-03_JPRB,1.3868E-03_JPRB,1.1826E-03_JPRB,6.2346E-04_JPRB,8.6762E-04_JPRB,1.0836E-03_JPRB,&
1050
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3348E-03_JPRB,1.4572E-03_JPRB,1.2658E-02_JPRB/)
1051 KAO( :, 2,10, 5) = (/&
1052 & 1.4886E-03_JPRB,1.4531E-03_JPRB,1.3004E-03_JPRB,6.9239E-04_JPRB,8.6868E-04_JPRB,9.6168E-04_JPRB,&
1053
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2569E-03_JPRB,1.4886E-03_JPRB,1.3059E-02_JPRB/)
1054 KAO( :, 3,10, 5) = (/&
1055 & 1.5264E-03_JPRB,1.5274E-03_JPRB,1.4051E-03_JPRB,1.0747E-03_JPRB,7.7218E-04_JPRB,9.7410E-04_JPRB,&
1056
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0859E-03_JPRB,1.5264E-03_JPRB,1.3449E-02_JPRB/)
1057 KAO( :, 4,10, 5) = (/&
1058 & 1.5664E-03_JPRB,1.6018E-03_JPRB,1.5021E-03_JPRB,1.3016E-03_JPRB,7.5442E-04_JPRB,1.0421E-03_JPRB,&
1059
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0986E-03_JPRB,1.5664E-03_JPRB,1.3823E-02_JPRB/)
1060 KAO( :, 5,10, 5) = (/&
1061 & 1.6039E-03_JPRB,1.6782E-03_JPRB,1.6029E-03_JPRB,1.4558E-03_JPRB,1.1428E-03_JPRB,9.8459E-04_JPRB,&
1062
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2311E-03_JPRB,1.6039E-03_JPRB,1.4197E-02_JPRB/)
1063 KAO( :, 1,11, 5) = (/&
1064 & 1.2517E-03_JPRB,1.1909E-03_JPRB,1.0253E-03_JPRB,4.8905E-04_JPRB,7.3597E-04_JPRB,9.0427E-04_JPRB,&
1065
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2588E-03_JPRB,1.2517E-03_JPRB,2.8270E-02_JPRB/)
1066 KAO( :, 2,11, 5) = (/&
1067 & 1.2817E-03_JPRB,1.2489E-03_JPRB,1.1208E-03_JPRB,6.0287E-04_JPRB,7.2254E-04_JPRB,8.2946E-04_JPRB,&
1068
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0205E-03_JPRB,1.2817E-03_JPRB,2.9032E-02_JPRB/)
1069 KAO( :, 3,11, 5) = (/&
1070 & 1.3127E-03_JPRB,1.3112E-03_JPRB,1.2059E-03_JPRB,9.4181E-04_JPRB,6.2131E-04_JPRB,8.6171E-04_JPRB,&
1071
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.9101E-04_JPRB,1.3127E-03_JPRB,2.9698E-02_JPRB/)
1072 KAO( :, 4,11, 5) = (/&
1073 & 1.3452E-03_JPRB,1.3741E-03_JPRB,1.2883E-03_JPRB,1.1215E-03_JPRB,6.5766E-04_JPRB,8.7354E-04_JPRB,&
1074
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.3021E-04_JPRB,1.3452E-03_JPRB,3.0336E-02_JPRB/)
1075 KAO( :, 5,11, 5) = (/&
1076 & 1.3753E-03_JPRB,1.4371E-03_JPRB,1.3746E-03_JPRB,1.2547E-03_JPRB,9.9517E-04_JPRB,7.9857E-04_JPRB,&
1077
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0959E-03_JPRB,1.3753E-03_JPRB,3.0956E-02_JPRB/)
1078 KAO( :, 1,12, 5) = (/&
1079 & 1.0733E-03_JPRB,1.0215E-03_JPRB,8.8454E-04_JPRB,3.9006E-04_JPRB,6.2359E-04_JPRB,7.4085E-04_JPRB,&
1080
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0395E-03_JPRB,1.0733E-03_JPRB,4.0158E-02_JPRB/)
1081 KAO( :, 2,12, 5) = (/&
1082 & 1.0987E-03_JPRB,1.0703E-03_JPRB,9.6221E-04_JPRB,5.3528E-04_JPRB,5.8115E-04_JPRB,7.1438E-04_JPRB,&
1083
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.3203E-04_JPRB,1.0987E-03_JPRB,4.1196E-02_JPRB/)
1084 KAO( :, 3,12, 5) = (/&
1085 & 1.1257E-03_JPRB,1.1222E-03_JPRB,1.0309E-03_JPRB,8.1291E-04_JPRB,4.9033E-04_JPRB,7.2341E-04_JPRB,&
1086
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.5536E-04_JPRB,1.1257E-03_JPRB,4.2149E-02_JPRB/)
1087 KAO( :, 4,12, 5) = (/&
1088 & 1.1520E-03_JPRB,1.1737E-03_JPRB,1.0999E-03_JPRB,9.6654E-04_JPRB,5.7890E-04_JPRB,6.9991E-04_JPRB,&
1089
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.9257E-04_JPRB,1.1520E-03_JPRB,4.3060E-02_JPRB/)
1090 KAO( :, 5,12, 5) = (/&
1091 & 1.1770E-03_JPRB,1.2266E-03_JPRB,1.1727E-03_JPRB,1.0746E-03_JPRB,8.6506E-04_JPRB,6.5737E-04_JPRB,&
1092
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.1851E-04_JPRB,1.1770E-03_JPRB,4.3899E-02_JPRB/)
1093 KAO( :, 1,13, 5) = (/&
1094 & 9.1723E-04_JPRB,8.7340E-04_JPRB,7.5855E-04_JPRB,3.3160E-04_JPRB,5.1898E-04_JPRB,6.0675E-04_JPRB,&
1095
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.3666E-04_JPRB,9.1723E-04_JPRB,4.5805E-02_JPRB/)
1096 KAO( :, 2,13, 5) = (/&
1097 & 9.3894E-04_JPRB,9.1416E-04_JPRB,8.2179E-04_JPRB,4.8369E-04_JPRB,4.6977E-04_JPRB,6.3046E-04_JPRB,&
1098
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9917E-04_JPRB,9.3894E-04_JPRB,4.7104E-02_JPRB/)
1099 KAO( :, 3,13, 5) = (/&
1100 & 9.6174E-04_JPRB,9.5729E-04_JPRB,8.7932E-04_JPRB,7.0453E-04_JPRB,4.0162E-04_JPRB,5.9248E-04_JPRB,&
1101
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.3372E-04_JPRB,9.6174E-04_JPRB,4.8249E-02_JPRB/)
1102 KAO( :, 4,13, 5) = (/&
1103 & 9.8438E-04_JPRB,1.0004E-03_JPRB,9.3575E-04_JPRB,8.2536E-04_JPRB,5.0557E-04_JPRB,5.5685E-04_JPRB,&
1104
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.8082E-04_JPRB,9.8438E-04_JPRB,4.9296E-02_JPRB/)
1105 KAO( :, 5,13, 5) = (/&
1106 & 1.0080E-03_JPRB,1.0464E-03_JPRB,9.9862E-04_JPRB,9.1769E-04_JPRB,7.4911E-04_JPRB,5.5133E-04_JPRB,&
1107
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.2141E-04_JPRB,1.0080E-03_JPRB,5.0236E-02_JPRB/)
1108 KAO( :, 1, 1, 6) = (/&
1109 & 8.5333E-03_JPRB,9.0798E-03_JPRB,9.1539E-03_JPRB,8.9379E-03_JPRB,8.0082E-03_JPRB,5.5783E-03_JPRB,&
1110
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.6117E-03_JPRB,8.5333E-03_JPRB,2.8261E-03_JPRB/)
1111 KAO( :, 2, 1, 6) = (/&
1112 & 8.4109E-03_JPRB,9.3459E-03_JPRB,9.6624E-03_JPRB,9.7547E-03_JPRB,9.5796E-03_JPRB,8.4027E-03_JPRB,&
1113
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.4961E-03_JPRB,8.4109E-03_JPRB,3.5780E-03_JPRB/)
1114 KAO( :, 3, 1, 6) = (/&
1115 & 8.3030E-03_JPRB,9.6326E-03_JPRB,1.0206E-02_JPRB,1.0614E-02_JPRB,1.0858E-02_JPRB,1.0462E-02_JPRB,&
1116
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.8456E-03_JPRB,8.3030E-03_JPRB,4.4090E-03_JPRB/)
1117 KAO( :, 4, 1, 6) = (/&
1118 & 8.2237E-03_JPRB,9.8958E-03_JPRB,1.0796E-02_JPRB,1.1545E-02_JPRB,1.2099E-02_JPRB,1.2369E-02_JPRB,&
1119
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2077E-02_JPRB,8.2237E-03_JPRB,5.3050E-03_JPRB/)
1120 KAO( :, 5, 1, 6) = (/&
1121 & 8.1599E-03_JPRB,1.0181E-02_JPRB,1.1469E-02_JPRB,1.2490E-02_JPRB,1.3377E-02_JPRB,1.4165E-02_JPRB,&
1122
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4318E-02_JPRB,8.1599E-03_JPRB,6.2987E-03_JPRB/)
1123 KAO( :, 1, 2, 6) = (/&
1124 & 7.7094E-03_JPRB,8.1495E-03_JPRB,8.1817E-03_JPRB,7.9690E-03_JPRB,7.0574E-03_JPRB,4.6583E-03_JPRB,&
1125
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9458E-03_JPRB,7.7094E-03_JPRB,2.1253E-03_JPRB/)
1126 KAO( :, 2, 2, 6) = (/&
1127 & 7.6098E-03_JPRB,8.3857E-03_JPRB,8.6188E-03_JPRB,8.6202E-03_JPRB,8.3668E-03_JPRB,7.2354E-03_JPRB,&
1128
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.4614E-03_JPRB,7.6098E-03_JPRB,2.6911E-03_JPRB/)
1129 KAO( :, 3, 2, 6) = (/&
1130 & 7.5380E-03_JPRB,8.6324E-03_JPRB,9.0696E-03_JPRB,9.3578E-03_JPRB,9.5323E-03_JPRB,9.1344E-03_JPRB,&
1131
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4099E-03_JPRB,7.5380E-03_JPRB,3.3283E-03_JPRB/)
1132 KAO( :, 4, 2, 6) = (/&
1133 & 7.4926E-03_JPRB,8.8750E-03_JPRB,9.5781E-03_JPRB,1.0164E-02_JPRB,1.0603E-02_JPRB,1.0755E-02_JPRB,&
1134
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0378E-02_JPRB,7.4926E-03_JPRB,4.0288E-03_JPRB/)
1135 KAO( :, 5, 2, 6) = (/&
1136 & 7.4775E-03_JPRB,9.1627E-03_JPRB,1.0156E-02_JPRB,1.0982E-02_JPRB,1.1695E-02_JPRB,1.2352E-02_JPRB,&
1137
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2667E-02_JPRB,7.4775E-03_JPRB,4.8116E-03_JPRB/)
1138 KAO( :, 1, 3, 6) = (/&
1139 & 6.9121E-03_JPRB,7.2188E-03_JPRB,7.1796E-03_JPRB,6.8889E-03_JPRB,5.8502E-03_JPRB,3.2278E-03_JPRB,&
1140
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.9879E-03_JPRB,6.9121E-03_JPRB,1.5160E-03_JPRB/)
1141 KAO( :, 2, 3, 6) = (/&
1142 & 6.8480E-03_JPRB,7.4276E-03_JPRB,7.5203E-03_JPRB,7.4048E-03_JPRB,7.0014E-03_JPRB,5.7055E-03_JPRB,&
1143
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3384E-03_JPRB,6.8480E-03_JPRB,1.9279E-03_JPRB/)
1144 KAO( :, 3, 3, 6) = (/&
1145 & 6.8135E-03_JPRB,7.6493E-03_JPRB,7.8976E-03_JPRB,8.0141E-03_JPRB,8.0170E-03_JPRB,7.5441E-03_JPRB,&
1146
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.5174E-03_JPRB,6.8135E-03_JPRB,2.4028E-03_JPRB/)
1147 KAO( :, 4, 3, 6) = (/&
1148 & 6.8122E-03_JPRB,7.8956E-03_JPRB,8.3131E-03_JPRB,8.6965E-03_JPRB,8.9952E-03_JPRB,8.9752E-03_JPRB,&
1149
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4882E-03_JPRB,6.8122E-03_JPRB,2.9375E-03_JPRB/)
1150 KAO( :, 5, 3, 6) = (/&
1151 & 6.8492E-03_JPRB,8.1657E-03_JPRB,8.7936E-03_JPRB,9.3904E-03_JPRB,9.9168E-03_JPRB,1.0345E-02_JPRB,&
1152
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0484E-02_JPRB,6.8492E-03_JPRB,3.5390E-03_JPRB/)
1153 KAO( :, 1, 4, 6) = (/&
1154 & 6.1397E-03_JPRB,6.3324E-03_JPRB,6.2269E-03_JPRB,5.8666E-03_JPRB,4.6601E-03_JPRB,2.6335E-03_JPRB,&
1155
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3502E-03_JPRB,6.1397E-03_JPRB,1.0676E-03_JPRB/)
1156 KAO( :, 2, 4, 6) = (/&
1157 & 6.1071E-03_JPRB,6.5281E-03_JPRB,6.5061E-03_JPRB,6.2987E-03_JPRB,5.7315E-03_JPRB,4.2122E-03_JPRB,&
1158
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5243E-03_JPRB,6.1071E-03_JPRB,1.3674E-03_JPRB/)
1159 KAO( :, 3, 4, 6) = (/&
1160 & 6.1173E-03_JPRB,6.7424E-03_JPRB,6.8351E-03_JPRB,6.7928E-03_JPRB,6.6355E-03_JPRB,6.0084E-03_JPRB,&
1161
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4111E-03_JPRB,6.1173E-03_JPRB,1.7216E-03_JPRB/)
1162 KAO( :, 4, 4, 6) = (/&
1163 & 6.1616E-03_JPRB,6.9850E-03_JPRB,7.2018E-03_JPRB,7.3533E-03_JPRB,7.4639E-03_JPRB,7.3054E-03_JPRB,&
1164
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.7355E-03_JPRB,6.1616E-03_JPRB,2.1295E-03_JPRB/)
1165 KAO( :, 5, 4, 6) = (/&
1166 & 6.2327E-03_JPRB,7.2498E-03_JPRB,7.6166E-03_JPRB,7.9404E-03_JPRB,8.2799E-03_JPRB,8.5196E-03_JPRB,&
1167
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4780E-03_JPRB,6.2327E-03_JPRB,2.5893E-03_JPRB/)
1168 KAO( :, 1, 5, 6) = (/&
1169 & 5.4116E-03_JPRB,5.5054E-03_JPRB,5.3551E-03_JPRB,4.9387E-03_JPRB,3.4030E-03_JPRB,2.3925E-03_JPRB,&
1170
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5026E-03_JPRB,5.4116E-03_JPRB,7.5991E-04_JPRB/)
1171 KAO( :, 2, 5, 6) = (/&
1172 & 5.4112E-03_JPRB,5.7013E-03_JPRB,5.6024E-03_JPRB,5.3215E-03_JPRB,4.5735E-03_JPRB,2.7843E-03_JPRB,&
1173
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3021E-03_JPRB,5.4112E-03_JPRB,9.7889E-04_JPRB/)
1174 KAO( :, 3, 5, 6) = (/&
1175 & 5.4571E-03_JPRB,5.9124E-03_JPRB,5.8939E-03_JPRB,5.7468E-03_JPRB,5.4242E-03_JPRB,4.5784E-03_JPRB,&
1176
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1711E-03_JPRB,5.4571E-03_JPRB,1.2420E-03_JPRB/)
1177 KAO( :, 4, 5, 6) = (/&
1178 & 5.5303E-03_JPRB,6.1539E-03_JPRB,6.2322E-03_JPRB,6.2166E-03_JPRB,6.1395E-03_JPRB,5.8002E-03_JPRB,&
1179
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0694E-03_JPRB,5.5303E-03_JPRB,1.5508E-03_JPRB/)
1180 KAO( :, 5, 5, 6) = (/&
1181 & 5.6126E-03_JPRB,6.4231E-03_JPRB,6.6120E-03_JPRB,6.7193E-03_JPRB,6.8307E-03_JPRB,6.8747E-03_JPRB,&
1182
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.7129E-03_JPRB,5.6126E-03_JPRB,1.9069E-03_JPRB/)
1183 KAO( :, 1, 6, 6) = (/&
1184 & 4.7396E-03_JPRB,4.7463E-03_JPRB,4.5518E-03_JPRB,4.0433E-03_JPRB,2.2638E-03_JPRB,2.3141E-03_JPRB,&
1185
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8805E-03_JPRB,4.7396E-03_JPRB,5.6698E-04_JPRB/)
1186 KAO( :, 2, 6, 6) = (/&
1187 & 4.7673E-03_JPRB,4.9357E-03_JPRB,4.7801E-03_JPRB,4.4457E-03_JPRB,3.5304E-03_JPRB,1.8920E-03_JPRB,&
1188
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9747E-03_JPRB,4.7673E-03_JPRB,7.2146E-04_JPRB/)
1189 KAO( :, 3, 6, 6) = (/&
1190 & 4.8326E-03_JPRB,5.1460E-03_JPRB,5.0538E-03_JPRB,4.8362E-03_JPRB,4.3455E-03_JPRB,3.2638E-03_JPRB,&
1191
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4492E-03_JPRB,4.8326E-03_JPRB,9.1393E-04_JPRB/)
1192 KAO( :, 4, 6, 6) = (/&
1193 & 4.9138E-03_JPRB,5.3898E-03_JPRB,5.3670E-03_JPRB,5.2448E-03_JPRB,5.0135E-03_JPRB,4.4890E-03_JPRB,&
1194
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4781E-03_JPRB,4.9137E-03_JPRB,1.1441E-03_JPRB/)
1195 KAO( :, 5, 6, 6) = (/&
1196 & 5.0007E-03_JPRB,5.6605E-03_JPRB,5.7246E-03_JPRB,5.6834E-03_JPRB,5.6159E-03_JPRB,5.4449E-03_JPRB,&
1197
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0343E-03_JPRB,5.0007E-03_JPRB,1.4139E-03_JPRB/)
1198 KAO( :, 1, 7, 6) = (/&
1199 & 4.1378E-03_JPRB,4.0754E-03_JPRB,3.8389E-03_JPRB,3.2475E-03_JPRB,1.4857E-03_JPRB,2.1025E-03_JPRB,&
1200
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2984E-03_JPRB,4.1378E-03_JPRB,5.2481E-04_JPRB/)
1201 KAO( :, 2, 7, 6) = (/&
1202 & 4.1822E-03_JPRB,4.2521E-03_JPRB,4.0570E-03_JPRB,3.6688E-03_JPRB,2.5306E-03_JPRB,1.4831E-03_JPRB,&
1203
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6067E-03_JPRB,4.1822E-03_JPRB,6.3111E-04_JPRB/)
1204 KAO( :, 3, 7, 6) = (/&
1205 & 4.2509E-03_JPRB,4.4583E-03_JPRB,4.3081E-03_JPRB,4.0486E-03_JPRB,3.4473E-03_JPRB,2.1091E-03_JPRB,&
1206
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9768E-03_JPRB,4.2509E-03_JPRB,7.6397E-04_JPRB/)
1207 KAO( :, 4, 7, 6) = (/&
1208 & 4.3334E-03_JPRB,4.6876E-03_JPRB,4.6037E-03_JPRB,4.4308E-03_JPRB,4.0651E-03_JPRB,3.3647E-03_JPRB,&
1209
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1587E-03_JPRB,4.3334E-03_JPRB,9.2876E-04_JPRB/)
1210 KAO( :, 5, 7, 6) = (/&
1211 & 4.4225E-03_JPRB,4.9342E-03_JPRB,4.9410E-03_JPRB,4.8191E-03_JPRB,4.6280E-03_JPRB,4.2870E-03_JPRB,&
1212
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6120E-03_JPRB,4.4226E-03_JPRB,1.1252E-03_JPRB/)
1213 KAO( :, 1, 8, 6) = (/&
1214 & 3.6094E-03_JPRB,3.5033E-03_JPRB,3.2400E-03_JPRB,2.6287E-03_JPRB,9.9863E-04_JPRB,1.7500E-03_JPRB,&
1215
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8960E-03_JPRB,3.6094E-03_JPRB,8.2600E-04_JPRB/)
1216 KAO( :, 2, 8, 6) = (/&
1217 & 3.6637E-03_JPRB,3.6642E-03_JPRB,3.4430E-03_JPRB,3.0211E-03_JPRB,1.7119E-03_JPRB,1.3558E-03_JPRB,&
1218
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1462E-03_JPRB,3.6637E-03_JPRB,9.0812E-04_JPRB/)
1219 KAO( :, 3, 8, 6) = (/&
1220 & 3.7354E-03_JPRB,3.8451E-03_JPRB,3.6742E-03_JPRB,3.3691E-03_JPRB,2.6819E-03_JPRB,1.3910E-03_JPRB,&
1221
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9474E-03_JPRB,3.7354E-03_JPRB,1.0101E-03_JPRB/)
1222 KAO( :, 4, 8, 6) = (/&
1223 & 3.8119E-03_JPRB,4.0509E-03_JPRB,3.9304E-03_JPRB,3.7228E-03_JPRB,3.3248E-03_JPRB,2.3768E-03_JPRB,&
1224
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6650E-03_JPRB,3.8120E-03_JPRB,1.1353E-03_JPRB/)
1225 KAO( :, 5, 8, 6) = (/&
1226 & 3.8974E-03_JPRB,4.2692E-03_JPRB,4.2189E-03_JPRB,4.0809E-03_JPRB,3.8147E-03_JPRB,3.3186E-03_JPRB,&
1227
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4419E-03_JPRB,3.8974E-03_JPRB,1.2742E-03_JPRB/)
1228 KAO( :, 1, 9, 6) = (/&
1229 & 3.1509E-03_JPRB,3.0135E-03_JPRB,2.7414E-03_JPRB,2.0848E-03_JPRB,8.0225E-04_JPRB,1.3860E-03_JPRB,&
1230
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6095E-03_JPRB,3.1509E-03_JPRB,3.2874E-03_JPRB/)
1231 KAO( :, 2, 9, 6) = (/&
1232 & 3.2069E-03_JPRB,3.1552E-03_JPRB,2.9300E-03_JPRB,2.5120E-03_JPRB,1.1882E-03_JPRB,1.2244E-03_JPRB,&
1233
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8134E-03_JPRB,3.2069E-03_JPRB,3.4426E-03_JPRB/)
1234 KAO( :, 3, 9, 6) = (/&
1235 & 3.2779E-03_JPRB,3.3142E-03_JPRB,3.1292E-03_JPRB,2.8177E-03_JPRB,2.0556E-03_JPRB,1.0032E-03_JPRB,&
1236
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7964E-03_JPRB,3.2779E-03_JPRB,3.6002E-03_JPRB/)
1237 KAO( :, 4, 9, 6) = (/&
1238 & 3.3512E-03_JPRB,3.4918E-03_JPRB,3.3477E-03_JPRB,3.1214E-03_JPRB,2.7090E-03_JPRB,1.5625E-03_JPRB,&
1239
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3565E-03_JPRB,3.3512E-03_JPRB,3.7586E-03_JPRB/)
1240 KAO( :, 5, 9, 6) = (/&
1241 & 3.4301E-03_JPRB,3.6852E-03_JPRB,3.5951E-03_JPRB,3.4314E-03_JPRB,3.1547E-03_JPRB,2.5504E-03_JPRB,&
1242
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5207E-03_JPRB,3.4301E-03_JPRB,3.9312E-03_JPRB/)
1243 KAO( :, 1,10, 6) = (/&
1244 & 2.7434E-03_JPRB,2.5990E-03_JPRB,2.3418E-03_JPRB,1.5988E-03_JPRB,7.7035E-04_JPRB,1.2159E-03_JPRB,&
1245
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3978E-03_JPRB,2.7434E-03_JPRB,2.0046E-02_JPRB/)
1246 KAO( :, 2,10, 6) = (/&
1247 & 2.7987E-03_JPRB,2.7245E-03_JPRB,2.5022E-03_JPRB,2.1126E-03_JPRB,8.9708E-04_JPRB,1.0763E-03_JPRB,&
1248
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5093E-03_JPRB,2.7987E-03_JPRB,2.0516E-02_JPRB/)
1249 KAO( :, 3,10, 6) = (/&
1250 & 2.8639E-03_JPRB,2.8623E-03_JPRB,2.6825E-03_JPRB,2.3837E-03_JPRB,1.5791E-03_JPRB,8.7614E-04_JPRB,&
1251
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4149E-03_JPRB,2.8639E-03_JPRB,2.0938E-02_JPRB/)
1252 KAO( :, 4,10, 6) = (/&
1253 & 2.9341E-03_JPRB,3.0198E-03_JPRB,2.8777E-03_JPRB,2.6425E-03_JPRB,2.2095E-03_JPRB,1.1197E-03_JPRB,&
1254
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2062E-03_JPRB,2.9342E-03_JPRB,2.1345E-02_JPRB/)
1255 KAO( :, 5,10, 6) = (/&
1256 & 3.0129E-03_JPRB,3.1899E-03_JPRB,3.0825E-03_JPRB,2.9045E-03_JPRB,2.6201E-03_JPRB,1.9654E-03_JPRB,&
1257
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1926E-03_JPRB,3.0129E-03_JPRB,2.1744E-02_JPRB/)
1258 KAO( :, 1,11, 6) = (/&
1259 & 2.3930E-03_JPRB,2.2760E-03_JPRB,2.0475E-03_JPRB,1.4917E-03_JPRB,6.1519E-04_JPRB,9.5739E-04_JPRB,&
1260
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2117E-03_JPRB,2.3930E-03_JPRB,4.6010E-02_JPRB/)
1261 KAO( :, 2,11, 6) = (/&
1262 & 2.4495E-03_JPRB,2.3897E-03_JPRB,2.1964E-03_JPRB,1.8774E-03_JPRB,8.8795E-04_JPRB,8.5785E-04_JPRB,&
1263
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2212E-03_JPRB,2.4495E-03_JPRB,4.7118E-02_JPRB/)
1264 KAO( :, 3,11, 6) = (/&
1265 & 2.5108E-03_JPRB,2.5149E-03_JPRB,2.3607E-03_JPRB,2.1179E-03_JPRB,1.5063E-03_JPRB,7.2487E-04_JPRB,&
1266
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1617E-03_JPRB,2.5108E-03_JPRB,4.8044E-02_JPRB/)
1267 KAO( :, 4,11, 6) = (/&
1268 & 2.5797E-03_JPRB,2.6613E-03_JPRB,2.5391E-03_JPRB,2.3353E-03_JPRB,1.9791E-03_JPRB,1.1049E-03_JPRB,&
1269
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 9.4883E-04_JPRB,2.5797E-03_JPRB,4.8805E-02_JPRB/)
1270
1271
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART4',1,ZHOOK_HANDLE)
1272 1 END SUBROUTINE PART4
1273
1274
1275 1 SUBROUTINE PART5
1276
1277 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1278
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART5',0,ZHOOK_HANDLE)
1279
1280
1281 KAO( :, 5,11, 6) = (/&
1282 & 2.6499E-03_JPRB,2.8182E-03_JPRB,2.7229E-03_JPRB,2.5580E-03_JPRB,2.3142E-03_JPRB,1.8079E-03_JPRB,&
1283
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0035E-03_JPRB,2.6499E-03_JPRB,4.9391E-02_JPRB/)
1284 KAO( :, 1,12, 6) = (/&
1285 & 2.0746E-03_JPRB,1.9783E-03_JPRB,1.7801E-03_JPRB,1.3556E-03_JPRB,4.8267E-04_JPRB,8.1463E-04_JPRB,&
1286
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0185E-03_JPRB,2.0746E-03_JPRB,6.7547E-02_JPRB/)
1287 KAO( :, 2,12, 6) = (/&
1288 & 2.1273E-03_JPRB,2.0770E-03_JPRB,1.9105E-03_JPRB,1.6481E-03_JPRB,8.3724E-04_JPRB,7.1683E-04_JPRB,&
1289
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0103E-03_JPRB,2.1273E-03_JPRB,6.9266E-02_JPRB/)
1290 KAO( :, 3,12, 6) = (/&
1291 & 2.1844E-03_JPRB,2.1915E-03_JPRB,2.0594E-03_JPRB,1.8587E-03_JPRB,1.3892E-03_JPRB,6.4751E-04_JPRB,&
1292
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.5728E-04_JPRB,2.1844E-03_JPRB,7.0619E-02_JPRB/)
1293 KAO( :, 4,12, 6) = (/&
1294 & 2.2441E-03_JPRB,2.3226E-03_JPRB,2.2206E-03_JPRB,2.0453E-03_JPRB,1.7491E-03_JPRB,1.0405E-03_JPRB,&
1295
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.8138E-04_JPRB,2.2441E-03_JPRB,7.1602E-02_JPRB/)
1296 KAO( :, 5,12, 6) = (/&
1297 & 2.3050E-03_JPRB,2.4598E-03_JPRB,2.3822E-03_JPRB,2.2381E-03_JPRB,2.0304E-03_JPRB,1.6325E-03_JPRB,&
1298
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.2438E-04_JPRB,2.3050E-03_JPRB,7.2303E-02_JPRB/)
1299 KAO( :, 1,13, 6) = (/&
1300 & 1.7883E-03_JPRB,1.7065E-03_JPRB,1.5374E-03_JPRB,1.2007E-03_JPRB,4.3025E-04_JPRB,6.7590E-04_JPRB,&
1301
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.1885E-04_JPRB,1.7883E-03_JPRB,7.9860E-02_JPRB/)
1302 KAO( :, 2,13, 6) = (/&
1303 & 1.8363E-03_JPRB,1.7948E-03_JPRB,1.6528E-03_JPRB,1.4324E-03_JPRB,7.6774E-04_JPRB,6.2246E-04_JPRB,&
1304
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.1329E-04_JPRB,1.8363E-03_JPRB,8.1807E-02_JPRB/)
1305 KAO( :, 3,13, 6) = (/&
1306 & 1.8869E-03_JPRB,1.8960E-03_JPRB,1.7818E-03_JPRB,1.6095E-03_JPRB,1.2397E-03_JPRB,5.6950E-04_JPRB,&
1307
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.2318E-04_JPRB,1.8869E-03_JPRB,8.3291E-02_JPRB/)
1308 KAO( :, 4,13, 6) = (/&
1309 & 1.9378E-03_JPRB,2.0074E-03_JPRB,1.9206E-03_JPRB,1.7755E-03_JPRB,1.5322E-03_JPRB,9.5845E-04_JPRB,&
1310
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9708E-04_JPRB,1.9378E-03_JPRB,8.4416E-02_JPRB/)
1311 KAO( :, 5,13, 6) = (/&
1312 & 1.9900E-03_JPRB,2.1258E-03_JPRB,2.0644E-03_JPRB,1.9405E-03_JPRB,1.7651E-03_JPRB,1.4419E-03_JPRB,&
1313
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.3688E-04_JPRB,1.9900E-03_JPRB,8.5292E-02_JPRB/)
1314 KAO( :, 1, 1, 7) = (/&
1315 & 1.6473E-02_JPRB,1.6639E-02_JPRB,1.6620E-02_JPRB,1.6044E-02_JPRB,1.5024E-02_JPRB,1.3187E-02_JPRB,&
1316
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.6213E-03_JPRB,1.6473E-02_JPRB,5.9369E-03_JPRB/)
1317 KAO( :, 2, 1, 7) = (/&
1318 & 1.6283E-02_JPRB,1.7319E-02_JPRB,1.7601E-02_JPRB,1.7371E-02_JPRB,1.6714E-02_JPRB,1.5606E-02_JPRB,&
1319
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2675E-02_JPRB,1.6283E-02_JPRB,7.5309E-03_JPRB/)
1320 KAO( :, 3, 1, 7) = (/&
1321 & 1.6044E-02_JPRB,1.7939E-02_JPRB,1.8616E-02_JPRB,1.8736E-02_JPRB,1.8509E-02_JPRB,1.7932E-02_JPRB,&
1322
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6316E-02_JPRB,1.6044E-02_JPRB,9.3034E-03_JPRB/)
1323 KAO( :, 4, 1, 7) = (/&
1324 & 1.5780E-02_JPRB,1.8566E-02_JPRB,1.9707E-02_JPRB,2.0218E-02_JPRB,2.0468E-02_JPRB,2.0392E-02_JPRB,&
1325
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0221E-02_JPRB,1.5780E-02_JPRB,1.1241E-02_JPRB/)
1326 KAO( :, 5, 1, 7) = (/&
1327 & 1.5514E-02_JPRB,1.9239E-02_JPRB,2.0866E-02_JPRB,2.1848E-02_JPRB,2.2518E-02_JPRB,2.2938E-02_JPRB,&
1328
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4338E-02_JPRB,1.5514E-02_JPRB,1.3369E-02_JPRB/)
1329 KAO( :, 1, 2, 7) = (/&
1330 & 1.5534E-02_JPRB,1.5698E-02_JPRB,1.5655E-02_JPRB,1.5068E-02_JPRB,1.4135E-02_JPRB,1.2270E-02_JPRB,&
1331
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.4181E-03_JPRB,1.5534E-02_JPRB,4.4640E-03_JPRB/)
1332 KAO( :, 2, 2, 7) = (/&
1333 & 1.5342E-02_JPRB,1.6324E-02_JPRB,1.6590E-02_JPRB,1.6353E-02_JPRB,1.5831E-02_JPRB,1.4815E-02_JPRB,&
1334
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2543E-02_JPRB,1.5342E-02_JPRB,5.6970E-03_JPRB/)
1335 KAO( :, 3, 2, 7) = (/&
1336 & 1.5098E-02_JPRB,1.6904E-02_JPRB,1.7545E-02_JPRB,1.7691E-02_JPRB,1.7497E-02_JPRB,1.7085E-02_JPRB,&
1337
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5776E-02_JPRB,1.5098E-02_JPRB,7.0876E-03_JPRB/)
1338 KAO( :, 4, 2, 7) = (/&
1339 & 1.4834E-02_JPRB,1.7491E-02_JPRB,1.8583E-02_JPRB,1.9136E-02_JPRB,1.9381E-02_JPRB,1.9396E-02_JPRB,&
1340
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8919E-02_JPRB,1.4834E-02_JPRB,8.6392E-03_JPRB/)
1341 KAO( :, 5, 2, 7) = (/&
1342 & 1.4582E-02_JPRB,1.8087E-02_JPRB,1.9710E-02_JPRB,2.0699E-02_JPRB,2.1415E-02_JPRB,2.1844E-02_JPRB,&
1343
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2101E-02_JPRB,1.4582E-02_JPRB,1.0344E-02_JPRB/)
1344 KAO( :, 1, 3, 7) = (/&
1345 & 1.4379E-02_JPRB,1.4400E-02_JPRB,1.4273E-02_JPRB,1.3714E-02_JPRB,1.2774E-02_JPRB,1.0758E-02_JPRB,&
1346
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9221E-03_JPRB,1.4379E-02_JPRB,3.1627E-03_JPRB/)
1347 KAO( :, 2, 3, 7) = (/&
1348 & 1.4181E-02_JPRB,1.4962E-02_JPRB,1.5204E-02_JPRB,1.4906E-02_JPRB,1.4357E-02_JPRB,1.3275E-02_JPRB,&
1349
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0750E-02_JPRB,1.4181E-02_JPRB,4.0720E-03_JPRB/)
1350 KAO( :, 3, 3, 7) = (/&
1351 & 1.3955E-02_JPRB,1.5485E-02_JPRB,1.6078E-02_JPRB,1.6124E-02_JPRB,1.5928E-02_JPRB,1.5419E-02_JPRB,&
1352
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4145E-02_JPRB,1.3955E-02_JPRB,5.1227E-03_JPRB/)
1353 KAO( :, 4, 3, 7) = (/&
1354 & 1.3715E-02_JPRB,1.6019E-02_JPRB,1.7011E-02_JPRB,1.7443E-02_JPRB,1.7601E-02_JPRB,1.7599E-02_JPRB,&
1355
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7151E-02_JPRB,1.3715E-02_JPRB,6.3251E-03_JPRB/)
1356 KAO( :, 5, 3, 7) = (/&
1357 & 1.3488E-02_JPRB,1.6566E-02_JPRB,1.8015E-02_JPRB,1.8885E-02_JPRB,1.9466E-02_JPRB,1.9880E-02_JPRB,&
1358
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9891E-02_JPRB,1.3488E-02_JPRB,7.6362E-03_JPRB/)
1359 KAO( :, 1, 4, 7) = (/&
1360 & 1.3100E-02_JPRB,1.2948E-02_JPRB,1.2709E-02_JPRB,1.2152E-02_JPRB,1.1211E-02_JPRB,8.9540E-03_JPRB,&
1361
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9235E-03_JPRB,1.3100E-02_JPRB,2.2077E-03_JPRB/)
1362 KAO( :, 2, 4, 7) = (/&
1363 & 1.2922E-02_JPRB,1.3421E-02_JPRB,1.3563E-02_JPRB,1.3273E-02_JPRB,1.2687E-02_JPRB,1.1465E-02_JPRB,&
1364
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.5932E-03_JPRB,1.2922E-02_JPRB,2.8908E-03_JPRB/)
1365 KAO( :, 3, 4, 7) = (/&
1366 & 1.2710E-02_JPRB,1.3886E-02_JPRB,1.4373E-02_JPRB,1.4371E-02_JPRB,1.4080E-02_JPRB,1.3407E-02_JPRB,&
1367
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1985E-02_JPRB,1.2710E-02_JPRB,3.6760E-03_JPRB/)
1368 KAO( :, 4, 4, 7) = (/&
1369 & 1.2510E-02_JPRB,1.4373E-02_JPRB,1.5200E-02_JPRB,1.5503E-02_JPRB,1.5542E-02_JPRB,1.5364E-02_JPRB,&
1370
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4835E-02_JPRB,1.2510E-02_JPRB,4.5891E-03_JPRB/)
1371 KAO( :, 5, 4, 7) = (/&
1372 & 1.2325E-02_JPRB,1.4885E-02_JPRB,1.6099E-02_JPRB,1.6758E-02_JPRB,1.7169E-02_JPRB,1.7435E-02_JPRB,&
1373
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7471E-02_JPRB,1.2325E-02_JPRB,5.6179E-03_JPRB/)
1374 KAO( :, 1, 5, 7) = (/&
1375 & 1.1785E-02_JPRB,1.1507E-02_JPRB,1.1168E-02_JPRB,1.0600E-02_JPRB,9.6507E-03_JPRB,6.9414E-03_JPRB,&
1376
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9345E-03_JPRB,1.1785E-02_JPRB,1.5496E-03_JPRB/)
1377 KAO( :, 2, 5, 7) = (/&
1378 & 1.1618E-02_JPRB,1.1886E-02_JPRB,1.1906E-02_JPRB,1.1601E-02_JPRB,1.1008E-02_JPRB,9.7482E-03_JPRB,&
1379
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.3716E-03_JPRB,1.1618E-02_JPRB,2.0513E-03_JPRB/)
1380 KAO( :, 3, 5, 7) = (/&
1381 & 1.1447E-02_JPRB,1.2288E-02_JPRB,1.2620E-02_JPRB,1.2540E-02_JPRB,1.2196E-02_JPRB,1.1475E-02_JPRB,&
1382
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.8448E-03_JPRB,1.1447E-02_JPRB,2.6474E-03_JPRB/)
1383 KAO( :, 4, 5, 7) = (/&
1384 & 1.1293E-02_JPRB,1.2719E-02_JPRB,1.3350E-02_JPRB,1.3509E-02_JPRB,1.3472E-02_JPRB,1.3207E-02_JPRB,&
1385
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2517E-02_JPRB,1.1293E-02_JPRB,3.3414E-03_JPRB/)
1386 KAO( :, 5, 5, 7) = (/&
1387 & 1.1183E-02_JPRB,1.3178E-02_JPRB,1.4123E-02_JPRB,1.4583E-02_JPRB,1.4883E-02_JPRB,1.5015E-02_JPRB,&
1388
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4926E-02_JPRB,1.1183E-02_JPRB,4.1312E-03_JPRB/)
1389 KAO( :, 1, 6, 7) = (/&
1390 & 1.0487E-02_JPRB,1.0124E-02_JPRB,9.7249E-03_JPRB,9.1457E-03_JPRB,8.1285E-03_JPRB,4.8996E-03_JPRB,&
1391
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9678E-03_JPRB,1.0487E-02_JPRB,1.0937E-03_JPRB/)
1392 KAO( :, 2, 6, 7) = (/&
1393 & 1.0349E-02_JPRB,1.0437E-02_JPRB,1.0332E-02_JPRB,9.9754E-03_JPRB,9.2866E-03_JPRB,7.9160E-03_JPRB,&
1394
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3878E-03_JPRB,1.0349E-02_JPRB,1.4598E-03_JPRB/)
1395 KAO( :, 3, 6, 7) = (/&
1396 & 1.0220E-02_JPRB,1.0784E-02_JPRB,1.0929E-02_JPRB,1.0753E-02_JPRB,1.0353E-02_JPRB,9.5432E-03_JPRB,&
1397
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.8232E-03_JPRB,1.0220E-02_JPRB,1.9008E-03_JPRB/)
1398 KAO( :, 4, 6, 7) = (/&
1399 & 1.0135E-02_JPRB,1.1143E-02_JPRB,1.1530E-02_JPRB,1.1576E-02_JPRB,1.1439E-02_JPRB,1.1088E-02_JPRB,&
1400
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0277E-02_JPRB,1.0135E-02_JPRB,2.4221E-03_JPRB/)
1401 KAO( :, 5, 6, 7) = (/&
1402 & 1.0102E-02_JPRB,1.1554E-02_JPRB,1.2194E-02_JPRB,1.2480E-02_JPRB,1.2652E-02_JPRB,1.2678E-02_JPRB,&
1403
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2494E-02_JPRB,1.0102E-02_JPRB,3.0257E-03_JPRB/)
1404 KAO( :, 1, 7, 7) = (/&
1405 & 9.2309E-03_JPRB,8.8319E-03_JPRB,8.3968E-03_JPRB,7.7952E-03_JPRB,6.7475E-03_JPRB,3.2870E-03_JPRB,&
1406
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9179E-03_JPRB,9.2309E-03_JPRB,8.9645E-04_JPRB/)
1407 KAO( :, 2, 7, 7) = (/&
1408 & 9.1242E-03_JPRB,9.0932E-03_JPRB,8.9046E-03_JPRB,8.4994E-03_JPRB,7.7737E-03_JPRB,6.2095E-03_JPRB,&
1409
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8211E-03_JPRB,9.1242E-03_JPRB,1.1346E-03_JPRB/)
1410 KAO( :, 3, 7, 7) = (/&
1411 & 9.0499E-03_JPRB,9.3880E-03_JPRB,9.3912E-03_JPRB,9.1437E-03_JPRB,8.6640E-03_JPRB,7.8059E-03_JPRB,&
1412
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8358E-03_JPRB,9.0499E-03_JPRB,1.4379E-03_JPRB/)
1413 KAO( :, 4, 7, 7) = (/&
1414 & 9.0319E-03_JPRB,9.7281E-03_JPRB,9.8888E-03_JPRB,9.8240E-03_JPRB,9.6043E-03_JPRB,9.1535E-03_JPRB,&
1415
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.2625E-03_JPRB,9.0319E-03_JPRB,1.8162E-03_JPRB/)
1416 KAO( :, 5, 7, 7) = (/&
1417 & 9.0677E-03_JPRB,1.0114E-02_JPRB,1.0453E-02_JPRB,1.0590E-02_JPRB,1.0614E-02_JPRB,1.0515E-02_JPRB,&
1418
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0212E-02_JPRB,9.0678E-03_JPRB,2.2700E-03_JPRB/)
1419 KAO( :, 1, 8, 7) = (/&
1420 & 8.0750E-03_JPRB,7.6623E-03_JPRB,7.2138E-03_JPRB,6.5975E-03_JPRB,5.4257E-03_JPRB,2.2723E-03_JPRB,&
1421
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6249E-03_JPRB,8.0750E-03_JPRB,1.2831E-03_JPRB/)
1422 KAO( :, 2, 8, 7) = (/&
1423 & 7.9997E-03_JPRB,7.8793E-03_JPRB,7.6227E-03_JPRB,7.1817E-03_JPRB,6.4216E-03_JPRB,4.5366E-03_JPRB,&
1424
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9736E-03_JPRB,7.9997E-03_JPRB,1.4497E-03_JPRB/)
1425 KAO( :, 3, 8, 7) = (/&
1426 & 7.9739E-03_JPRB,8.1496E-03_JPRB,8.0220E-03_JPRB,7.7220E-03_JPRB,7.1874E-03_JPRB,6.2455E-03_JPRB,&
1427
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8530E-03_JPRB,7.9739E-03_JPRB,1.6552E-03_JPRB/)
1428 KAO( :, 4, 8, 7) = (/&
1429 & 8.0128E-03_JPRB,8.4694E-03_JPRB,8.4614E-03_JPRB,8.2951E-03_JPRB,7.9668E-03_JPRB,7.4368E-03_JPRB,&
1430
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.3444E-03_JPRB,8.0128E-03_JPRB,1.8965E-03_JPRB/)
1431 KAO( :, 5, 8, 7) = (/&
1432 & 8.1136E-03_JPRB,8.8341E-03_JPRB,8.9710E-03_JPRB,8.9459E-03_JPRB,8.8203E-03_JPRB,8.6006E-03_JPRB,&
1433
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.1402E-03_JPRB,8.1136E-03_JPRB,2.1909E-03_JPRB/)
1434 KAO( :, 1, 9, 7) = (/&
1435 & 7.0296E-03_JPRB,6.6308E-03_JPRB,6.1804E-03_JPRB,5.5360E-03_JPRB,4.1437E-03_JPRB,1.5632E-03_JPRB,&
1436
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4348E-03_JPRB,7.0296E-03_JPRB,5.0746E-03_JPRB/)
1437 KAO( :, 2, 9, 7) = (/&
1438 & 6.9891E-03_JPRB,6.8154E-03_JPRB,6.5047E-03_JPRB,6.0126E-03_JPRB,5.1664E-03_JPRB,3.1309E-03_JPRB,&
1439
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3440E-03_JPRB,6.9891E-03_JPRB,5.2575E-03_JPRB/)
1440 KAO( :, 3, 9, 7) = (/&
1441 & 7.0047E-03_JPRB,7.0682E-03_JPRB,6.8401E-03_JPRB,6.4671E-03_JPRB,5.8881E-03_JPRB,4.8032E-03_JPRB,&
1442
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4408E-03_JPRB,7.0047E-03_JPRB,5.4725E-03_JPRB/)
1443 KAO( :, 4, 9, 7) = (/&
1444 & 7.0937E-03_JPRB,7.3642E-03_JPRB,7.2266E-03_JPRB,6.9602E-03_JPRB,6.5505E-03_JPRB,5.9472E-03_JPRB,&
1445
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.6225E-03_JPRB,7.0937E-03_JPRB,5.7075E-03_JPRB/)
1446 KAO( :, 5, 9, 7) = (/&
1447 & 7.2359E-03_JPRB,7.7189E-03_JPRB,7.6898E-03_JPRB,7.5393E-03_JPRB,7.2796E-03_JPRB,6.9540E-03_JPRB,&
1448
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.3115E-03_JPRB,7.2359E-03_JPRB,5.9395E-03_JPRB/)
1449 KAO( :, 1,10, 7) = (/&
1450 & 6.0824E-03_JPRB,5.7201E-03_JPRB,5.2950E-03_JPRB,4.6533E-03_JPRB,3.1243E-03_JPRB,1.0849E-03_JPRB,&
1451
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3514E-03_JPRB,6.0824E-03_JPRB,3.2036E-02_JPRB/)
1452 KAO( :, 2,10, 7) = (/&
1453 & 6.0816E-03_JPRB,5.8999E-03_JPRB,5.5711E-03_JPRB,5.0543E-03_JPRB,4.1674E-03_JPRB,2.1951E-03_JPRB,&
1454
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1513E-03_JPRB,6.0816E-03_JPRB,3.2646E-02_JPRB/)
1455 KAO( :, 3,10, 7) = (/&
1456 & 6.1454E-03_JPRB,6.1496E-03_JPRB,5.8546E-03_JPRB,5.4437E-03_JPRB,4.8180E-03_JPRB,3.6424E-03_JPRB,&
1457
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7330E-03_JPRB,6.1454E-03_JPRB,3.3079E-02_JPRB/)
1458 KAO( :, 4,10, 7) = (/&
1459 & 6.2758E-03_JPRB,6.4382E-03_JPRB,6.1991E-03_JPRB,5.8783E-03_JPRB,5.4350E-03_JPRB,4.7237E-03_JPRB,&
1460
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2810E-03_JPRB,6.2757E-03_JPRB,3.3401E-02_JPRB/)
1461 KAO( :, 5,10, 7) = (/&
1462 & 6.4344E-03_JPRB,6.7774E-03_JPRB,6.6295E-03_JPRB,6.3941E-03_JPRB,6.0678E-03_JPRB,5.6397E-03_JPRB,&
1463
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8978E-03_JPRB,6.4344E-03_JPRB,3.3652E-02_JPRB/)
1464 KAO( :, 1,11, 7) = (/&
1465 & 5.2811E-03_JPRB,5.0055E-03_JPRB,4.6335E-03_JPRB,4.0757E-03_JPRB,2.8727E-03_JPRB,1.0865E-03_JPRB,&
1466
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0171E-03_JPRB,5.2811E-03_JPRB,7.6840E-02_JPRB/)
1467 KAO( :, 2,11, 7) = (/&
1468 & 5.3409E-03_JPRB,5.2140E-03_JPRB,4.8806E-03_JPRB,4.4140E-03_JPRB,3.6622E-03_JPRB,2.0302E-03_JPRB,&
1469
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.1811E-04_JPRB,5.3409E-03_JPRB,7.7870E-02_JPRB/)
1470 KAO( :, 3,11, 7) = (/&
1471 & 5.4674E-03_JPRB,5.4758E-03_JPRB,5.1638E-03_JPRB,4.7679E-03_JPRB,4.2203E-03_JPRB,3.2247E-03_JPRB,&
1472
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5980E-03_JPRB,5.4674E-03_JPRB,7.8594E-02_JPRB/)
1473 KAO( :, 4,11, 7) = (/&
1474 & 5.6175E-03_JPRB,5.7677E-03_JPRB,5.5092E-03_JPRB,5.1897E-03_JPRB,4.7728E-03_JPRB,4.1267E-03_JPRB,&
1475
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9888E-03_JPRB,5.6175E-03_JPRB,7.8959E-02_JPRB/)
1476 KAO( :, 5,11, 7) = (/&
1477 & 5.7848E-03_JPRB,6.0885E-03_JPRB,5.9189E-03_JPRB,5.6782E-03_JPRB,5.3431E-03_JPRB,4.9223E-03_JPRB,&
1478
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2500E-03_JPRB,5.7848E-03_JPRB,7.9148E-02_JPRB/)
1479 KAO( :, 1,12, 7) = (/&
1480 & 4.6406E-03_JPRB,4.4264E-03_JPRB,4.0750E-03_JPRB,3.5822E-03_JPRB,2.6510E-03_JPRB,1.0132E-03_JPRB,&
1481
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.2156E-04_JPRB,4.6406E-03_JPRB,1.1768E-01_JPRB/)
1482 KAO( :, 2,12, 7) = (/&
1483 & 4.7513E-03_JPRB,4.6501E-03_JPRB,4.3133E-03_JPRB,3.8811E-03_JPRB,3.2507E-03_JPRB,1.8501E-03_JPRB,&
1484
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.3924E-04_JPRB,4.7513E-03_JPRB,1.1892E-01_JPRB/)
1485 KAO( :, 3,12, 7) = (/&
1486 & 4.8892E-03_JPRB,4.8966E-03_JPRB,4.5920E-03_JPRB,4.2162E-03_JPRB,3.7357E-03_JPRB,2.9015E-03_JPRB,&
1487
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4402E-03_JPRB,4.8892E-03_JPRB,1.1988E-01_JPRB/)
1488 KAO( :, 4,12, 7) = (/&
1489 & 5.0434E-03_JPRB,5.1649E-03_JPRB,4.9117E-03_JPRB,4.6087E-03_JPRB,4.2340E-03_JPRB,3.6743E-03_JPRB,&
1490
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6652E-03_JPRB,5.0434E-03_JPRB,1.2040E-01_JPRB/)
1491 KAO( :, 5,12, 7) = (/&
1492 & 5.1943E-03_JPRB,5.4604E-03_JPRB,5.2859E-03_JPRB,5.0532E-03_JPRB,4.7466E-03_JPRB,4.3367E-03_JPRB,&
1493
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6758E-03_JPRB,5.1943E-03_JPRB,1.2066E-01_JPRB/)
1494 KAO( :, 1,13, 7) = (/&
1495 & 4.1040E-03_JPRB,3.9320E-03_JPRB,3.6016E-03_JPRB,3.1660E-03_JPRB,2.4198E-03_JPRB,9.6006E-04_JPRB,&
1496
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.4336E-04_JPRB,4.1040E-03_JPRB,1.4478E-01_JPRB/)
1497 KAO( :, 2,13, 7) = (/&
1498 & 4.2232E-03_JPRB,4.1425E-03_JPRB,3.8331E-03_JPRB,3.4407E-03_JPRB,2.9046E-03_JPRB,1.6979E-03_JPRB,&
1499
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.7921E-04_JPRB,4.2232E-03_JPRB,1.4623E-01_JPRB/)
1500 KAO( :, 3,13, 7) = (/&
1501 & 4.3611E-03_JPRB,4.3698E-03_JPRB,4.0899E-03_JPRB,3.7461E-03_JPRB,3.3273E-03_JPRB,2.6603E-03_JPRB,&
1502
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2963E-03_JPRB,4.3611E-03_JPRB,1.4748E-01_JPRB/)
1503 KAO( :, 4,13, 7) = (/&
1504 & 4.4992E-03_JPRB,4.6148E-03_JPRB,4.3841E-03_JPRB,4.0963E-03_JPRB,3.7570E-03_JPRB,3.2859E-03_JPRB,&
1505
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3687E-03_JPRB,4.4992E-03_JPRB,1.4817E-01_JPRB/)
1506 KAO( :, 5,13, 7) = (/&
1507 & 4.6327E-03_JPRB,4.8729E-03_JPRB,4.7086E-03_JPRB,4.4884E-03_JPRB,4.2102E-03_JPRB,3.8391E-03_JPRB,&
1508
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2592E-03_JPRB,4.6327E-03_JPRB,1.4848E-01_JPRB/)
1509 KAO( :, 1, 1, 8) = (/&
1510 & 3.2446E-02_JPRB,3.0961E-02_JPRB,2.9943E-02_JPRB,2.8814E-02_JPRB,2.6701E-02_JPRB,2.3826E-02_JPRB,&
1511
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0786E-02_JPRB,3.2446E-02_JPRB,1.5676E-02_JPRB/)
1512 KAO( :, 2, 1, 8) = (/&
1513 & 3.2527E-02_JPRB,3.1848E-02_JPRB,3.1994E-02_JPRB,3.1175E-02_JPRB,2.9719E-02_JPRB,2.8532E-02_JPRB,&
1514
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8157E-02_JPRB,3.2527E-02_JPRB,2.0060E-02_JPRB/)
1515 KAO( :, 3, 1, 8) = (/&
1516 & 3.2555E-02_JPRB,3.3035E-02_JPRB,3.4009E-02_JPRB,3.3632E-02_JPRB,3.3098E-02_JPRB,3.4035E-02_JPRB,&
1517
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6093E-02_JPRB,3.2555E-02_JPRB,2.5319E-02_JPRB/)
1518 KAO( :, 4, 1, 8) = (/&
1519 & 3.2520E-02_JPRB,3.4424E-02_JPRB,3.5893E-02_JPRB,3.6221E-02_JPRB,3.7173E-02_JPRB,4.0037E-02_JPRB,&
1520
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3790E-02_JPRB,3.2520E-02_JPRB,3.1444E-02_JPRB/)
1521 KAO( :, 5, 1, 8) = (/&
1522 & 3.2436E-02_JPRB,3.5761E-02_JPRB,3.7828E-02_JPRB,3.9167E-02_JPRB,4.2081E-02_JPRB,4.6777E-02_JPRB,&
1523
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1699E-02_JPRB,3.2436E-02_JPRB,3.8339E-02_JPRB/)
1524 KAO( :, 1, 2, 8) = (/&
1525 & 3.3259E-02_JPRB,3.1637E-02_JPRB,3.0502E-02_JPRB,2.9322E-02_JPRB,2.7192E-02_JPRB,2.4045E-02_JPRB,&
1526
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9418E-02_JPRB,3.3259E-02_JPRB,1.2401E-02_JPRB/)
1527 KAO( :, 2, 2, 8) = (/&
1528 & 3.3309E-02_JPRB,3.2542E-02_JPRB,3.2579E-02_JPRB,3.1869E-02_JPRB,3.0109E-02_JPRB,2.7900E-02_JPRB,&
1529
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5530E-02_JPRB,3.3309E-02_JPRB,1.5971E-02_JPRB/)
1530 KAO( :, 3, 2, 8) = (/&
1531 & 3.3352E-02_JPRB,3.3755E-02_JPRB,3.4718E-02_JPRB,3.4392E-02_JPRB,3.3246E-02_JPRB,3.2250E-02_JPRB,&
1532
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2349E-02_JPRB,3.3352E-02_JPRB,2.0278E-02_JPRB/)
1533 KAO( :, 4, 2, 8) = (/&
1534 & 3.3330E-02_JPRB,3.5174E-02_JPRB,3.6737E-02_JPRB,3.6916E-02_JPRB,3.6641E-02_JPRB,3.7274E-02_JPRB,&
1535
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9441E-02_JPRB,3.3330E-02_JPRB,2.5234E-02_JPRB/)
1536 KAO( :, 5, 2, 8) = (/&
1537 & 3.3226E-02_JPRB,3.6569E-02_JPRB,3.8777E-02_JPRB,3.9713E-02_JPRB,4.0596E-02_JPRB,4.2979E-02_JPRB,&
1538
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7032E-02_JPRB,3.3226E-02_JPRB,3.0759E-02_JPRB/)
1539 KAO( :, 1, 3, 8) = (/&
1540 & 3.3391E-02_JPRB,3.1594E-02_JPRB,3.0176E-02_JPRB,2.8739E-02_JPRB,2.6633E-02_JPRB,2.3336E-02_JPRB,&
1541
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8177E-02_JPRB,3.3391E-02_JPRB,9.1438E-03_JPRB/)
1542 KAO( :, 2, 3, 8) = (/&
1543 & 3.3463E-02_JPRB,3.2445E-02_JPRB,3.2154E-02_JPRB,3.1362E-02_JPRB,2.9626E-02_JPRB,2.6963E-02_JPRB,&
1544
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3198E-02_JPRB,3.3463E-02_JPRB,1.1964E-02_JPRB/)
1545 KAO( :, 3, 3, 8) = (/&
1546 & 3.3507E-02_JPRB,3.3666E-02_JPRB,3.4348E-02_JPRB,3.4020E-02_JPRB,3.2664E-02_JPRB,3.0729E-02_JPRB,&
1547
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8675E-02_JPRB,3.3507E-02_JPRB,1.5312E-02_JPRB/)
1548 KAO( :, 4, 3, 8) = (/&
1549 & 3.3484E-02_JPRB,3.5076E-02_JPRB,3.6460E-02_JPRB,3.6685E-02_JPRB,3.5851E-02_JPRB,3.4760E-02_JPRB,&
1550
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4446E-02_JPRB,3.3484E-02_JPRB,1.9144E-02_JPRB/)
1551 KAO( :, 5, 3, 8) = (/&
1552 & 3.3365E-02_JPRB,3.6491E-02_JPRB,3.8546E-02_JPRB,3.9400E-02_JPRB,3.9309E-02_JPRB,3.9340E-02_JPRB,&
1553
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1039E-02_JPRB,3.3365E-02_JPRB,2.3426E-02_JPRB/)
1554 KAO( :, 1, 4, 8) = (/&
1555 & 3.2823E-02_JPRB,3.0856E-02_JPRB,2.9216E-02_JPRB,2.7536E-02_JPRB,2.5263E-02_JPRB,2.2005E-02_JPRB,&
1556
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7126E-02_JPRB,3.2823E-02_JPRB,6.4847E-03_JPRB/)
1557 KAO( :, 2, 4, 8) = (/&
1558 & 3.2916E-02_JPRB,3.1703E-02_JPRB,3.1081E-02_JPRB,3.0059E-02_JPRB,2.8252E-02_JPRB,2.5566E-02_JPRB,&
1559
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1643E-02_JPRB,3.2916E-02_JPRB,8.6411E-03_JPRB/)
1560 KAO( :, 3, 4, 8) = (/&
1561 & 3.2942E-02_JPRB,3.2855E-02_JPRB,3.3172E-02_JPRB,3.2679E-02_JPRB,3.1442E-02_JPRB,2.9283E-02_JPRB,&
1562
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6180E-02_JPRB,3.2942E-02_JPRB,1.1256E-02_JPRB/)
1563 KAO( :, 4, 4, 8) = (/&
1564 & 3.2895E-02_JPRB,3.4207E-02_JPRB,3.5261E-02_JPRB,3.5386E-02_JPRB,3.4683E-02_JPRB,3.2992E-02_JPRB,&
1565
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0830E-02_JPRB,3.2895E-02_JPRB,1.4266E-02_JPRB/)
1566 KAO( :, 5, 4, 8) = (/&
1567 & 3.2791E-02_JPRB,3.5598E-02_JPRB,3.7342E-02_JPRB,3.8144E-02_JPRB,3.7958E-02_JPRB,3.6915E-02_JPRB,&
1568
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6060E-02_JPRB,3.2791E-02_JPRB,1.7623E-02_JPRB/)
1569 KAO( :, 1, 5, 8) = (/&
1570 & 3.1527E-02_JPRB,2.9441E-02_JPRB,2.7666E-02_JPRB,2.5800E-02_JPRB,2.3517E-02_JPRB,2.0290E-02_JPRB,&
1571
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 1.5284E-02_JPRB,3.1527E-02_JPRB,4.5483E-03_JPRB/)
1572
1573
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART5',1,ZHOOK_HANDLE)
1574 1 END SUBROUTINE PART5
1575
1576
1577 1 SUBROUTINE PART6
1578
1579 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1580
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART6',0,ZHOOK_HANDLE)
1581
1582
1583 KAO( :, 2, 5, 8) = (/&
1584 & 3.1627E-02_JPRB,3.0253E-02_JPRB,2.9410E-02_JPRB,2.8191E-02_JPRB,2.6385E-02_JPRB,2.3754E-02_JPRB,&
1585
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9782E-02_JPRB,3.1627E-02_JPRB,6.1662E-03_JPRB/)
1586 KAO( :, 3, 5, 8) = (/&
1587 & 3.1653E-02_JPRB,3.1374E-02_JPRB,3.1394E-02_JPRB,3.0704E-02_JPRB,2.9499E-02_JPRB,2.7410E-02_JPRB,&
1588
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4207E-02_JPRB,3.1653E-02_JPRB,8.1447E-03_JPRB/)
1589 KAO( :, 4, 5, 8) = (/&
1590 & 3.1587E-02_JPRB,3.2681E-02_JPRB,3.3373E-02_JPRB,3.3364E-02_JPRB,3.2711E-02_JPRB,3.1061E-02_JPRB,&
1591
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8366E-02_JPRB,3.1587E-02_JPRB,1.0460E-02_JPRB/)
1592 KAO( :, 5, 5, 8) = (/&
1593 & 3.1459E-02_JPRB,3.4035E-02_JPRB,3.5391E-02_JPRB,3.6063E-02_JPRB,3.5941E-02_JPRB,3.4747E-02_JPRB,&
1594
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2643E-02_JPRB,3.1459E-02_JPRB,1.3095E-02_JPRB/)
1595 KAO( :, 1, 6, 8) = (/&
1596 & 2.9690E-02_JPRB,2.7513E-02_JPRB,2.5633E-02_JPRB,2.3605E-02_JPRB,2.1298E-02_JPRB,1.8147E-02_JPRB,&
1597
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3146E-02_JPRB,2.9690E-02_JPRB,3.1369E-03_JPRB/)
1598 KAO( :, 2, 6, 8) = (/&
1599 & 2.9770E-02_JPRB,2.8288E-02_JPRB,2.7183E-02_JPRB,2.5789E-02_JPRB,2.4036E-02_JPRB,2.1561E-02_JPRB,&
1600
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7543E-02_JPRB,2.9770E-02_JPRB,4.3187E-03_JPRB/)
1601 KAO( :, 3, 6, 8) = (/&
1602 & 2.9783E-02_JPRB,2.9294E-02_JPRB,2.9045E-02_JPRB,2.8192E-02_JPRB,2.6960E-02_JPRB,2.5034E-02_JPRB,&
1603
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1858E-02_JPRB,2.9783E-02_JPRB,5.7867E-03_JPRB/)
1604 KAO( :, 4, 6, 8) = (/&
1605 & 2.9692E-02_JPRB,3.0523E-02_JPRB,3.0946E-02_JPRB,3.0715E-02_JPRB,3.0007E-02_JPRB,2.8497E-02_JPRB,&
1606
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5800E-02_JPRB,2.9692E-02_JPRB,7.5502E-03_JPRB/)
1607 KAO( :, 5, 6, 8) = (/&
1608 & 2.9534E-02_JPRB,3.1783E-02_JPRB,3.2869E-02_JPRB,3.3262E-02_JPRB,3.3064E-02_JPRB,3.1999E-02_JPRB,&
1609
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9755E-02_JPRB,2.9534E-02_JPRB,9.5800E-03_JPRB/)
1610 KAO( :, 1, 7, 8) = (/&
1611 & 2.7399E-02_JPRB,2.5219E-02_JPRB,2.3318E-02_JPRB,2.1250E-02_JPRB,1.8905E-02_JPRB,1.5866E-02_JPRB,&
1612
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0211E-02_JPRB,2.7399E-02_JPRB,2.2133E-03_JPRB/)
1613 KAO( :, 2, 7, 8) = (/&
1614 & 2.7465E-02_JPRB,2.5918E-02_JPRB,2.4664E-02_JPRB,2.3195E-02_JPRB,2.1415E-02_JPRB,1.9044E-02_JPRB,&
1615
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5287E-02_JPRB,2.7465E-02_JPRB,3.0581E-03_JPRB/)
1616 KAO( :, 3, 7, 8) = (/&
1617 & 2.7467E-02_JPRB,2.6847E-02_JPRB,2.6363E-02_JPRB,2.5381E-02_JPRB,2.4103E-02_JPRB,2.2261E-02_JPRB,&
1618
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9298E-02_JPRB,2.7467E-02_JPRB,4.1379E-03_JPRB/)
1619 KAO( :, 4, 7, 8) = (/&
1620 & 2.7377E-02_JPRB,2.7967E-02_JPRB,2.8113E-02_JPRB,2.7721E-02_JPRB,2.6897E-02_JPRB,2.5513E-02_JPRB,&
1621
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3011E-02_JPRB,2.7377E-02_JPRB,5.4434E-03_JPRB/)
1622 KAO( :, 5, 7, 8) = (/&
1623 & 2.7205E-02_JPRB,2.9095E-02_JPRB,2.9889E-02_JPRB,3.0064E-02_JPRB,2.9735E-02_JPRB,2.8823E-02_JPRB,&
1624
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6785E-02_JPRB,2.7205E-02_JPRB,6.9886E-03_JPRB/)
1625 KAO( :, 1, 8, 8) = (/&
1626 & 2.4838E-02_JPRB,2.2730E-02_JPRB,2.0879E-02_JPRB,1.8847E-02_JPRB,1.6562E-02_JPRB,1.3598E-02_JPRB,&
1627
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.9263E-03_JPRB,2.4838E-02_JPRB,2.3197E-03_JPRB/)
1628 KAO( :, 2, 8, 8) = (/&
1629 & 2.4890E-02_JPRB,2.3360E-02_JPRB,2.2033E-02_JPRB,2.0523E-02_JPRB,1.8797E-02_JPRB,1.6567E-02_JPRB,&
1630
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2790E-02_JPRB,2.4890E-02_JPRB,2.7806E-03_JPRB/)
1631 KAO( :, 3, 8, 8) = (/&
1632 & 2.4862E-02_JPRB,2.4160E-02_JPRB,2.3528E-02_JPRB,2.2491E-02_JPRB,2.1199E-02_JPRB,1.9477E-02_JPRB,&
1633
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6802E-02_JPRB,2.4862E-02_JPRB,3.4079E-03_JPRB/)
1634 KAO( :, 4, 8, 8) = (/&
1635 & 2.4775E-02_JPRB,2.5154E-02_JPRB,2.5100E-02_JPRB,2.4578E-02_JPRB,2.3711E-02_JPRB,2.2381E-02_JPRB,&
1636
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0219E-02_JPRB,2.4775E-02_JPRB,4.2580E-03_JPRB/)
1637 KAO( :, 5, 8, 8) = (/&
1638 & 2.4622E-02_JPRB,2.6148E-02_JPRB,2.6699E-02_JPRB,2.6671E-02_JPRB,2.6294E-02_JPRB,2.5372E-02_JPRB,&
1639
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3589E-02_JPRB,2.4622E-02_JPRB,5.3361E-03_JPRB/)
1640 KAO( :, 1, 9, 8) = (/&
1641 & 2.2221E-02_JPRB,2.0209E-02_JPRB,1.8418E-02_JPRB,1.6497E-02_JPRB,1.4362E-02_JPRB,1.1452E-02_JPRB,&
1642
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8464E-03_JPRB,2.2221E-02_JPRB,8.1045E-03_JPRB/)
1643 KAO( :, 2, 9, 8) = (/&
1644 & 2.2228E-02_JPRB,2.0738E-02_JPRB,1.9399E-02_JPRB,1.7929E-02_JPRB,1.6274E-02_JPRB,1.4180E-02_JPRB,&
1645
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0256E-02_JPRB,2.2228E-02_JPRB,8.4976E-03_JPRB/)
1646 KAO( :, 3, 9, 8) = (/&
1647 & 2.2181E-02_JPRB,2.1419E-02_JPRB,2.0685E-02_JPRB,1.9636E-02_JPRB,1.8370E-02_JPRB,1.6740E-02_JPRB,&
1648
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4221E-02_JPRB,2.2181E-02_JPRB,8.9064E-03_JPRB/)
1649 KAO( :, 4, 9, 8) = (/&
1650 & 2.2077E-02_JPRB,2.2259E-02_JPRB,2.2053E-02_JPRB,2.1452E-02_JPRB,2.0561E-02_JPRB,1.9271E-02_JPRB,&
1651
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7337E-02_JPRB,2.2077E-02_JPRB,9.3666E-03_JPRB/)
1652 KAO( :, 5, 9, 8) = (/&
1653 & 2.1959E-02_JPRB,2.3140E-02_JPRB,2.3450E-02_JPRB,2.3281E-02_JPRB,2.2789E-02_JPRB,2.1856E-02_JPRB,&
1654
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0328E-02_JPRB,2.1959E-02_JPRB,9.8960E-03_JPRB/)
1655 KAO( :, 1,10, 8) = (/&
1656 & 1.9665E-02_JPRB,1.7813E-02_JPRB,1.6135E-02_JPRB,1.4379E-02_JPRB,1.2423E-02_JPRB,9.6194E-03_JPRB,&
1657
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3665E-03_JPRB,1.9665E-02_JPRB,5.0859E-02_JPRB/)
1658 KAO( :, 2,10, 8) = (/&
1659 & 1.9655E-02_JPRB,1.8254E-02_JPRB,1.6961E-02_JPRB,1.5587E-02_JPRB,1.4053E-02_JPRB,1.2088E-02_JPRB,&
1660
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.1382E-03_JPRB,1.9655E-02_JPRB,5.1465E-02_JPRB/)
1661 KAO( :, 3,10, 8) = (/&
1662 & 1.9577E-02_JPRB,1.8805E-02_JPRB,1.8054E-02_JPRB,1.7058E-02_JPRB,1.5850E-02_JPRB,1.4336E-02_JPRB,&
1663
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1950E-02_JPRB,1.9577E-02_JPRB,5.1955E-02_JPRB/)
1664 KAO( :, 4,10, 8) = (/&
1665 & 1.9473E-02_JPRB,1.9523E-02_JPRB,1.9227E-02_JPRB,1.8591E-02_JPRB,1.7700E-02_JPRB,1.6478E-02_JPRB,&
1666
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4693E-02_JPRB,1.9473E-02_JPRB,5.2354E-02_JPRB/)
1667 KAO( :, 5,10, 8) = (/&
1668 & 1.9405E-02_JPRB,2.0288E-02_JPRB,2.0423E-02_JPRB,2.0132E-02_JPRB,1.9564E-02_JPRB,1.8691E-02_JPRB,&
1669
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7347E-02_JPRB,1.9405E-02_JPRB,5.2682E-02_JPRB/)
1670 KAO( :, 1,11, 8) = (/&
1671 & 1.7199E-02_JPRB,1.5692E-02_JPRB,1.4307E-02_JPRB,1.2861E-02_JPRB,1.1262E-02_JPRB,9.0316E-03_JPRB,&
1672
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4212E-03_JPRB,1.7199E-02_JPRB,1.2641E-01_JPRB/)
1673 KAO( :, 2,11, 8) = (/&
1674 & 1.7139E-02_JPRB,1.6089E-02_JPRB,1.5094E-02_JPRB,1.3995E-02_JPRB,1.2699E-02_JPRB,1.1063E-02_JPRB,&
1675
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.1294E-03_JPRB,1.7139E-02_JPRB,1.2630E-01_JPRB/)
1676 KAO( :, 3,11, 8) = (/&
1677 & 1.7062E-02_JPRB,1.6616E-02_JPRB,