Directory:  ./ 

File:  rad/rrtm_kgb3.f90 
Date:  20220111 19:19:34 
Exec  Total  Coverage  

Lines:  5032  5032  100.0% 
Branches:  9740  9818  99.2% 
Line  Branch  Exec  Source 

1  1  SUBROUTINE RRTM_KGB3  
2  
3  ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.  
4  ! BAND 3: 500630 cm1 (low  H2O,CO2; high  H2O,CO2)  
5  ! Reformatted for F90 by JJMorcrette, ECMWF  
6  ! R. Elkhatib 12102005 Split for faster and more robust compilation.  
7  
8  !   
9  
10  USE PARKIND1 ,ONLY : JPRB  
11  USE YOMHOOK ,ONLY : LHOOK, DR_HOOK  
12  
13  USE YOERRTO3 , ONLY : KAO ,KBO ,SELFREFO ,FRACREFAO ,&  
14  & FRACREFBO ,FORREFO ,ABSN2OAO ,ABSN2OBO  
15  USE YOERRTA3 , ONLY : ETAREF ,H2OREF ,&  
16  & N2OREF ,CO2REF ,STRRAT  
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_KGB3',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_KGB3',1,ZHOOK_HANDLE) 
65  
66  !   
67  
68  CONTAINS  
69  
70  1  SUBROUTINE PART1  
71  
72  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
73 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART1',0,ZHOOK_HANDLE) 
74  
75  
76  FORREFO( :) = (/&  
77  & 1.76842E04_JPRB, 1.77913E04_JPRB, 1.25186E04_JPRB, 1.07912E04_JPRB,&  
78  & 1.05217E04_JPRB, 7.48726E05_JPRB, 1.11701E04_JPRB, 7.68921E05_JPRB,&  
79  & 9.87242E05_JPRB, 9.85711E05_JPRB, 6.16557E05_JPRB,1.61291E05_JPRB,&  
80  1  & 1.26794E04_JPRB,1.19011E04_JPRB,2.67814E04_JPRB, 6.95005E05_JPRB/)  
81  
82  ABSN2OAO( :) = (/&  
83  & 1.50387E01_JPRB,2.91407E01_JPRB,6.28803E01_JPRB,9.65619E01_JPRB,&  
84  & 1.15054E00_JPRB,2.23424E00_JPRB,1.83392E00_JPRB,1.39033E00_JPRB,&  
85  & 4.28457E01_JPRB,2.73502E01_JPRB,1.84307E01_JPRB,1.61325E01_JPRB,&  
86  1  & 7.66314E02_JPRB,1.33862E01_JPRB,6.71196E07_JPRB,1.59293E06_JPRB/)  
87  
88  ABSN2OBO( :) = (/&  
89  & 9.37044E05_JPRB,1.23318E03_JPRB,7.91720E03_JPRB,5.33005E02_JPRB,&  
90  & 1.72343E01_JPRB,4.29571E01_JPRB,1.01288E+00_JPRB,3.83863E+00_JPRB,&  
91  & 1.15312E+01_JPRB,1.08383E+00_JPRB,2.24847E+00_JPRB,1.51268E+00_JPRB,&  
92  1  & 3.33177E01_JPRB,7.82102E01_JPRB,3.44631E01_JPRB,1.61039E03_JPRB/)  
93  
94  ETAREF( :) = (/&  
95  1  & 0.0_JPRB,0.125_JPRB,0.25_JPRB,0.375_JPRB,0.5_JPRB,0.625_JPRB,0.75_JPRB,0.875_JPRB,0.9875_JPRB,1.0_JPRB/)  
96  
97  H2OREF( :) = (/&  
98  & 1.87599E02_JPRB,1.22233E02_JPRB,5.89086E03_JPRB,2.76753E03_JPRB,1.40651E03_JPRB, &  
99  & 7.59698E04_JPRB,3.88758E04_JPRB,1.65422E04_JPRB,3.71895E05_JPRB,7.47648E06_JPRB, &  
100  & 4.30818E06_JPRB,3.33194E06_JPRB,3.20393E06_JPRB,3.16186E06_JPRB,3.25235E06_JPRB, &  
101  & 3.42258E06_JPRB,3.62884E06_JPRB,3.91482E06_JPRB,4.14875E06_JPRB,4.30810E06_JPRB,&  
102  & 4.44204E06_JPRB,4.57783E06_JPRB,4.70865E06_JPRB,4.79432E06_JPRB,4.86971E06_JPRB, &  
103  & 4.92603E06_JPRB,4.96688E06_JPRB,4.99628E06_JPRB,5.05266E06_JPRB,5.12658E06_JPRB, &  
104  & 5.25028E06_JPRB,5.35708E06_JPRB,5.45085E06_JPRB,5.48304E06_JPRB,5.50000E06_JPRB, &  
105  & 5.50000E06_JPRB,5.45359E06_JPRB,5.40468E06_JPRB,5.35576E06_JPRB,5.25327E06_JPRB,&  
106  & 5.14362E06_JPRB,5.03396E06_JPRB,4.87662E06_JPRB,4.69787E06_JPRB,4.51911E06_JPRB, &  
107  & 4.33600E06_JPRB,4.14416E06_JPRB,3.95232E06_JPRB,3.76048E06_JPRB,3.57217E06_JPRB, &  
108  & 3.38549E06_JPRB,3.19881E06_JPRB,3.01212E06_JPRB,2.82621E06_JPRB,2.64068E06_JPRB, &  
109  1  & 2.45515E06_JPRB,2.26962E06_JPRB,2.08659E06_JPRB,1.93029E06_JPRB/)  
110  
111  N2OREF( :) = (/&  
112  & 3.20000E07_JPRB,3.20000E07_JPRB,3.20000E07_JPRB,3.20000E07_JPRB,3.20000E07_JPRB,&  
113  & 3.19652E07_JPRB,3.15324E07_JPRB,3.03830E07_JPRB,2.94221E07_JPRB,2.84953E07_JPRB,&  
114  & 2.76714E07_JPRB,2.64709E07_JPRB,2.42847E07_JPRB,2.09547E07_JPRB,1.71945E07_JPRB,&  
115  & 1.37491E07_JPRB,1.13319E07_JPRB,1.00354E07_JPRB,9.12812E08_JPRB,8.54633E08_JPRB,&  
116  & 8.03631E08_JPRB,7.33718E08_JPRB,6.59754E08_JPRB,5.60386E08_JPRB,4.70901E08_JPRB,&  
117  & 3.99774E08_JPRB,3.29786E08_JPRB,2.60642E08_JPRB,2.10663E08_JPRB,1.65918E08_JPRB,&  
118  & 1.30167E08_JPRB,1.00900E08_JPRB,7.62490E09_JPRB,6.11592E09_JPRB,4.66725E09_JPRB,&  
119  & 3.28574E09_JPRB,2.84838E09_JPRB,2.46198E09_JPRB,2.07557E09_JPRB,1.85507E09_JPRB,&  
120  & 1.65675E09_JPRB,1.45843E09_JPRB,1.31948E09_JPRB,1.20716E09_JPRB,1.09485E09_JPRB,&  
121  & 9.97803E10_JPRB,9.31260E10_JPRB,8.64721E10_JPRB,7.98181E10_JPRB,7.51380E10_JPRB,&  
122  & 7.13670E10_JPRB,6.75960E10_JPRB,6.38250E10_JPRB,6.09811E10_JPRB,5.85998E10_JPRB,&  
123  1  & 5.62185E10_JPRB,5.38371E10_JPRB,5.15183E10_JPRB,4.98660E10_JPRB/)  
124  
125  CO2REF( :) = (/&  
126  & 3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,&  
127  & 3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,&  
128  & 3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,&  
129  & 3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,&  
130  & 3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,&  
131  & 3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,&  
132  & 3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,&  
133  & 3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,&  
134  & 3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,&  
135  & 3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,&  
136  & 3.55000E04_JPRB,3.55000E04_JPRB,3.55000E04_JPRB,&  
137  & 3.5470873E04_JPRB, 3.5427220E04_JPRB, 3.5383567E04_JPRB,&  
138  1  & 3.5339911E04_JPRB, 3.5282588E04_JPRB, 3.5079606E04_JPRB/)  
139  
140  1  STRRAT = 1.19268_JPRB  
141  
142  !   
143  
144  ! The array KAO contains absorption coefs for each of the 16 gintervals  
145  ! for a range of pressure levels > ~100mb, temperatures, and ratios  
146  ! of water vapor to CO2. The first index in the array, JS, runs  
147  ! from 1 to 10, and corresponds to different water vapor to CO2 ratios,  
148  ! as expressed through the binary species parameter eta, defined as  
149  ! eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated  
150  ! line strength in the band of co2 to that of h2o. For instance,  
151  ! JS=1 refers to dry air (eta = 0), JS = 10 corresponds to eta = 1.0.  
152  ! The 2nd index in the array, JT, which runs from 1 to 5, corresponds  
153  ! to different temperatures. More specifically, JT = 3 means that the  
154  ! data are for the reference temperature TREF for this pressure  
155  ! level, JT = 2 refers to the temperature  
156  ! TREF15, JT = 1 is for TREF30, JT = 4 is for TREF+15, and JT = 5  
157  ! is for TREF+30. The third index, JP, runs from 1 to 13 and refers  
158  ! to the reference pressure level (e.g. JP = 1 is for a  
159  ! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16,  
160  ! and tells us which ginterval the absorption coefficients are for.  
161  
162  KAO( :, 1, 1, 1) = (/&  
163  & 1.3905E05_JPRB,5.5491E04_JPRB,9.4069E04_JPRB,1.2683E03_JPRB,1.5758E03_JPRB,1.8657E03_JPRB,&  
164 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.1271E03_JPRB,2.3310E03_JPRB,2.2238E03_JPRB,1.2098E03_JPRB/) 
165  KAO( :, 2, 1, 1) = (/&  
166  & 1.8718E05_JPRB,6.2254E04_JPRB,1.0419E03_JPRB,1.3944E03_JPRB,1.7096E03_JPRB,2.0070E03_JPRB,&  
167 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.2783E03_JPRB,2.4921E03_JPRB,2.4893E03_JPRB,1.3329E03_JPRB/) 
168  KAO( :, 3, 1, 1) = (/&  
169  & 2.5277E05_JPRB,7.0791E04_JPRB,1.1679E03_JPRB,1.5540E03_JPRB,1.8826E03_JPRB,2.1855E03_JPRB,&  
170 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.4637E03_JPRB,2.6836E03_JPRB,2.4870E03_JPRB,1.4683E03_JPRB/) 
171  KAO( :, 4, 1, 1) = (/&  
172  & 3.3974E05_JPRB,8.1479E04_JPRB,1.3277E03_JPRB,1.7495E03_JPRB,2.1019E03_JPRB,2.4115E03_JPRB,&  
173 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.6955E03_JPRB,2.9144E03_JPRB,2.6786E03_JPRB,1.5835E03_JPRB/) 
174  KAO( :, 5, 1, 1) = (/&  
175  & 4.5018E05_JPRB,9.4621E04_JPRB,1.5225E03_JPRB,1.9888E03_JPRB,2.3735E03_JPRB,2.6924E03_JPRB,&  
176 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.9767E03_JPRB,3.1904E03_JPRB,2.9199E03_JPRB,1.7196E03_JPRB/) 
177  KAO( :, 1, 2, 1) = (/&  
178  & 1.0592E05_JPRB,4.4499E04_JPRB,7.6480E04_JPRB,1.0361E03_JPRB,1.2851E03_JPRB,1.5183E03_JPRB,&  
179 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7260E03_JPRB,1.8861E03_JPRB,1.7869E03_JPRB,9.5189E04_JPRB/) 
180  KAO( :, 2, 2, 1) = (/&  
181  & 1.4233E05_JPRB,4.9754E04_JPRB,8.4386E04_JPRB,1.1364E03_JPRB,1.3930E03_JPRB,1.6308E03_JPRB,&  
182 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.8450E03_JPRB,2.0088E03_JPRB,1.9843E03_JPRB,1.0406E03_JPRB/) 
183  KAO( :, 3, 2, 1) = (/&  
184  & 1.9306E05_JPRB,5.6436E04_JPRB,9.4285E04_JPRB,1.2611E03_JPRB,1.5318E03_JPRB,1.7753E03_JPRB,&  
185 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9931E03_JPRB,2.1588E03_JPRB,2.0128E03_JPRB,1.1498E03_JPRB/) 
186  KAO( :, 4, 2, 1) = (/&  
187  & 2.6119E05_JPRB,6.4842E04_JPRB,1.0680E03_JPRB,1.4147E03_JPRB,1.7071E03_JPRB,1.9567E03_JPRB,&  
188 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.1789E03_JPRB,2.3401E03_JPRB,2.1538E03_JPRB,1.2358E03_JPRB/) 
189  KAO( :, 5, 2, 1) = (/&  
190  & 3.4871E05_JPRB,7.5256E04_JPRB,1.2221E03_JPRB,1.6045E03_JPRB,1.9204E03_JPRB,2.1824E03_JPRB,&  
191 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.4047E03_JPRB,2.5599E03_JPRB,2.3558E03_JPRB,1.3458E03_JPRB/) 
192  KAO( :, 1, 3, 1) = (/&  
193  & 7.6650E06_JPRB,3.4947E04_JPRB,6.0867E04_JPRB,8.3119E04_JPRB,1.0323E03_JPRB,1.2185E03_JPRB,&  
194 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3830E03_JPRB,1.5087E03_JPRB,1.4187E03_JPRB,7.5325E04_JPRB/) 
195  KAO( :, 2, 3, 1) = (/&  
196  & 1.0208E05_JPRB,3.8799E04_JPRB,6.6727E04_JPRB,9.0569E04_JPRB,1.1140E03_JPRB,1.3039E03_JPRB,&  
197 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4728E03_JPRB,1.5994E03_JPRB,1.5541E03_JPRB,8.1826E04_JPRB/) 
198  KAO( :, 3, 3, 1) = (/&  
199  & 1.3852E05_JPRB,4.3745E04_JPRB,7.4132E04_JPRB,9.9801E04_JPRB,1.2192E03_JPRB,1.4137E03_JPRB,&  
200 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5849E03_JPRB,1.7123E03_JPRB,1.6593E03_JPRB,8.9528E04_JPRB/) 
201  KAO( :, 4, 3, 1) = (/&  
202  & 1.8873E05_JPRB,5.0084E04_JPRB,8.3488E04_JPRB,1.1136E03_JPRB,1.3505E03_JPRB,1.5529E03_JPRB,&  
203 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7249E03_JPRB,1.8487E03_JPRB,1.7141E03_JPRB,9.6472E04_JPRB/) 
204  KAO( :, 5, 3, 1) = (/&  
205  & 2.5412E05_JPRB,5.7989E04_JPRB,9.5083E04_JPRB,1.2577E03_JPRB,1.5110E03_JPRB,1.7265E03_JPRB,&  
206 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9001E03_JPRB,2.0154E03_JPRB,1.8592E03_JPRB,1.0514E03_JPRB/) 
207  KAO( :, 1, 4, 1) = (/&  
208  & 5.5327E06_JPRB,2.7370E04_JPRB,4.8202E04_JPRB,6.6293E04_JPRB,8.2705E04_JPRB,9.7621E04_JPRB,&  
209 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1071E03_JPRB,1.2149E03_JPRB,1.1365E03_JPRB,6.2235E04_JPRB/) 
210  KAO( :, 2, 4, 1) = (/&  
211  & 7.2381E06_JPRB,3.0138E04_JPRB,5.2416E04_JPRB,7.1697E04_JPRB,8.8620E04_JPRB,1.0391E03_JPRB,&  
212 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1730E03_JPRB,1.2726E03_JPRB,1.2113E03_JPRB,6.7320E04_JPRB/) 
213  KAO( :, 3, 4, 1) = (/&  
214  & 9.7698E06_JPRB,3.3721E04_JPRB,5.7856E04_JPRB,7.8512E04_JPRB,9.6459E04_JPRB,1.1210E03_JPRB,&  
215 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2565E03_JPRB,1.3549E03_JPRB,1.3452E03_JPRB,7.2416E04_JPRB/) 
216  KAO( :, 4, 4, 1) = (/&  
217  & 1.3344E05_JPRB,3.8381E04_JPRB,6.4739E04_JPRB,8.7038E04_JPRB,1.0615E03_JPRB,1.2252E03_JPRB,&  
218 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3612E03_JPRB,1.4576E03_JPRB,1.3655E03_JPRB,7.8325E04_JPRB/) 
219  KAO( :, 5, 4, 1) = (/&  
220  & 1.8090E05_JPRB,4.4258E04_JPRB,7.3288E04_JPRB,9.7754E04_JPRB,1.1813E03_JPRB,1.3549E03_JPRB,&  
221 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4926E03_JPRB,1.5822E03_JPRB,1.4607E03_JPRB,8.5221E04_JPRB/) 
222  KAO( :, 1, 5, 1) = (/&  
223  & 4.0810E06_JPRB,2.1551E04_JPRB,3.8283E04_JPRB,5.2940E04_JPRB,6.6368E04_JPRB,7.8503E04_JPRB,&  
224 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.8897E04_JPRB,9.7870E04_JPRB,9.2885E04_JPRB,5.3112E04_JPRB/) 
225  KAO( :, 2, 5, 1) = (/&  
226  & 5.1916E06_JPRB,2.3507E04_JPRB,4.1271E04_JPRB,5.6826E04_JPRB,7.0568E04_JPRB,8.2971E04_JPRB,&  
227 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.3695E04_JPRB,1.0168E03_JPRB,9.5220E04_JPRB,5.6840E04_JPRB/) 
228  KAO( :, 3, 5, 1) = (/&  
229  & 6.9159E06_JPRB,2.6088E04_JPRB,4.5208E04_JPRB,6.1797E04_JPRB,7.6301E04_JPRB,8.8979E04_JPRB,&  
230 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.9853E04_JPRB,1.0759E03_JPRB,1.0389E03_JPRB,6.0777E04_JPRB/) 
231  KAO( :, 4, 5, 1) = (/&  
232  & 9.4196E06_JPRB,2.9480E04_JPRB,5.0274E04_JPRB,6.8088E04_JPRB,8.3550E04_JPRB,9.6746E04_JPRB,&  
233 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0764E03_JPRB,1.1522E03_JPRB,1.1313E03_JPRB,6.5577E04_JPRB/) 
234  KAO( :, 5, 5, 1) = (/&  
235  & 1.2823E05_JPRB,3.3834E04_JPRB,5.6555E04_JPRB,7.6000E04_JPRB,9.2459E04_JPRB,1.0640E03_JPRB,&  
236 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1745E03_JPRB,1.2456E03_JPRB,1.1599E03_JPRB,7.1205E04_JPRB/) 
237  KAO( :, 1, 6, 1) = (/&  
238  & 3.0745E06_JPRB,1.7028E04_JPRB,3.0467E04_JPRB,4.2351E04_JPRB,5.3324E04_JPRB,6.3166E04_JPRB,&  
239 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.1362E04_JPRB,7.7595E04_JPRB,7.2555E04_JPRB,4.6766E04_JPRB/) 
240  KAO( :, 2, 6, 1) = (/&  
241  & 3.7467E06_JPRB,1.8364E04_JPRB,3.2533E04_JPRB,4.4992E04_JPRB,5.6174E04_JPRB,6.6289E04_JPRB,&  
242 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.4918E04_JPRB,8.1992E04_JPRB,7.7217E04_JPRB,4.9540E04_JPRB/) 
243  KAO( :, 3, 6, 1) = (/&  
244  & 4.8844E06_JPRB,2.0189E04_JPRB,3.5318E04_JPRB,4.8611E04_JPRB,6.0248E04_JPRB,7.0548E04_JPRB,&  
245 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.9343E04_JPRB,8.5556E04_JPRB,8.1719E04_JPRB,5.2871E04_JPRB/) 
246  KAO( :, 4, 6, 1) = (/&  
247  & 6.5875E06_JPRB,2.2623E04_JPRB,3.8987E04_JPRB,5.3174E04_JPRB,6.5615E04_JPRB,7.6255E04_JPRB,&  
248 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.5105E04_JPRB,9.1164E04_JPRB,9.0776E04_JPRB,5.6738E04_JPRB/) 
249  KAO( :, 5, 6, 1) = (/&  
250  & 8.9782E06_JPRB,2.5797E04_JPRB,4.3574E04_JPRB,5.8945E04_JPRB,7.2180E04_JPRB,8.3401E04_JPRB,&  
251 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.2288E04_JPRB,9.8059E04_JPRB,9.2715E04_JPRB,6.1340E04_JPRB/) 
252  KAO( :, 1, 7, 1) = (/&  
253  & 2.3852E06_JPRB,1.3537E04_JPRB,2.4376E04_JPRB,3.4046E04_JPRB,4.2953E04_JPRB,5.0877E04_JPRB,&  
254 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.7353E04_JPRB,6.1192E04_JPRB,5.7270E04_JPRB,4.3319E04_JPRB/) 
255  KAO( :, 2, 7, 1) = (/&  
256  & 2.7620E06_JPRB,1.4429E04_JPRB,2.5761E04_JPRB,3.5752E04_JPRB,4.4861E04_JPRB,5.3102E04_JPRB,&  
257 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.9966E04_JPRB,6.5817E04_JPRB,6.2541E04_JPRB,4.5750E04_JPRB/) 
258  KAO( :, 3, 7, 1) = (/&  
259  & 3.4880E06_JPRB,1.5701E04_JPRB,2.7701E04_JPRB,3.8344E04_JPRB,4.7691E04_JPRB,5.6092E04_JPRB,&  
260 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.3220E04_JPRB,6.8391E04_JPRB,6.4333E04_JPRB,4.8664E04_JPRB/) 
261  KAO( :, 4, 7, 1) = (/&  
262  & 4.6192E06_JPRB,1.7428E04_JPRB,3.0330E04_JPRB,4.1640E04_JPRB,5.1608E04_JPRB,6.0192E04_JPRB,&  
263 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.7387E04_JPRB,7.2302E04_JPRB,7.0029E04_JPRB,5.2115E04_JPRB/) 
264  KAO( :, 5, 7, 1) = (/&  
265  & 6.2659E06_JPRB,1.9723E04_JPRB,3.3668E04_JPRB,4.5828E04_JPRB,5.6442E04_JPRB,6.5465E04_JPRB,&  
266 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.2699E04_JPRB,7.7405E04_JPRB,7.7413E04_JPRB,5.6002E04_JPRB/) 
267  KAO( :, 1, 8, 1) = (/&  
268  & 1.9015E06_JPRB,1.0820E04_JPRB,1.9592E04_JPRB,2.7484E04_JPRB,3.4688E04_JPRB,4.0988E04_JPRB,&  
269 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.6037E04_JPRB,4.8747E04_JPRB,4.5723E04_JPRB,4.3074E04_JPRB/) 
270  KAO( :, 2, 8, 1) = (/&  
271  & 2.0897E06_JPRB,1.1410E04_JPRB,2.0489E04_JPRB,2.8543E04_JPRB,3.5954E04_JPRB,4.2599E04_JPRB,&  
272 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.8075E04_JPRB,5.2102E04_JPRB,4.8940E04_JPRB,4.6091E04_JPRB/) 
273  KAO( :, 3, 8, 1) = (/&  
274  & 2.5320E06_JPRB,1.2277E04_JPRB,2.1834E04_JPRB,3.0321E04_JPRB,3.7874E04_JPRB,4.4717E04_JPRB,&  
275 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.0489E04_JPRB,5.5180E04_JPRB,5.2338E04_JPRB,4.9080E04_JPRB/) 
276  KAO( :, 4, 8, 1) = (/&  
277  & 3.2727E06_JPRB,1.3498E04_JPRB,2.3690E04_JPRB,3.2720E04_JPRB,4.0672E04_JPRB,4.7636E04_JPRB,&  
278 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.3491E04_JPRB,5.7561E04_JPRB,5.5051E04_JPRB,5.1978E04_JPRB/) 
279  KAO( :, 5, 8, 1) = (/&  
280  & 4.3856E06_JPRB,1.5147E04_JPRB,2.6111E04_JPRB,3.5765E04_JPRB,4.4264E04_JPRB,5.1502E04_JPRB,&  
281 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.7382E04_JPRB,6.1302E04_JPRB,6.1438E04_JPRB,5.4976E04_JPRB/) 
282  KAO( :, 1, 9, 1) = (/&  
283  & 1.5482E06_JPRB,8.7052E05_JPRB,1.5839E04_JPRB,2.2300E04_JPRB,2.8105E04_JPRB,3.3090E04_JPRB,&  
284 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.6936E04_JPRB,3.8992E04_JPRB,3.6561E04_JPRB,5.0307E04_JPRB/) 
285  KAO( :, 2, 9, 1) = (/&  
286  & 1.6233E06_JPRB,9.0800E05_JPRB,1.6386E04_JPRB,2.2916E04_JPRB,2.8933E04_JPRB,3.4270E04_JPRB,&  
287 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.8603E04_JPRB,4.1137E04_JPRB,3.8679E04_JPRB,5.3034E04_JPRB/) 
288  KAO( :, 3, 9, 1) = (/&  
289  & 1.8727E06_JPRB,9.6605E05_JPRB,1.7299E04_JPRB,2.4068E04_JPRB,3.0216E04_JPRB,3.5768E04_JPRB,&  
290 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.0386E04_JPRB,4.4306E04_JPRB,4.2523E04_JPRB,5.5823E04_JPRB/) 
291  KAO( :, 4, 9, 1) = (/&  
292  & 2.3460E06_JPRB,1.0514E04_JPRB,1.8594E04_JPRB,2.5798E04_JPRB,3.2158E04_JPRB,3.7830E04_JPRB,&  
293 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.2604E04_JPRB,4.6061E04_JPRB,4.3830E04_JPRB,5.8904E04_JPRB/) 
294  KAO( :, 5, 9, 1) = (/&  
295  & 3.0835E06_JPRB,1.1691E04_JPRB,2.0336E04_JPRB,2.8015E04_JPRB,3.4814E04_JPRB,4.0638E04_JPRB,&  
296 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.5421E04_JPRB,4.8658E04_JPRB,4.7615E04_JPRB,6.2435E04_JPRB/) 
297  KAO( :, 1,10, 1) = (/&  
298  & 1.2799E06_JPRB,7.0646E05_JPRB,1.2898E04_JPRB,1.8180E04_JPRB,2.2870E04_JPRB,2.6728E04_JPRB,&  
299 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.9678E04_JPRB,3.1565E04_JPRB,2.9877E04_JPRB,5.6519E04_JPRB/) 
300  KAO( :, 2,10, 1) = (/&  
301  & 1.2987E06_JPRB,7.2906E05_JPRB,1.3215E04_JPRB,1.8535E04_JPRB,2.3421E04_JPRB,2.7695E04_JPRB,&  
302 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.1130E04_JPRB,3.2886E04_JPRB,3.1021E04_JPRB,5.8706E04_JPRB/) 
303  KAO( :, 3,10, 1) = (/&  
304  & 1.4353E06_JPRB,7.6915E05_JPRB,1.3835E04_JPRB,1.9290E04_JPRB,2.4295E04_JPRB,2.8803E04_JPRB,&  
305 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.2514E04_JPRB,3.5354E04_JPRB,3.3578E04_JPRB,6.1412E04_JPRB/) 
306  KAO( :, 4,10, 1) = (/&  
307  & 1.7387E06_JPRB,8.2894E05_JPRB,1.4759E04_JPRB,2.0528E04_JPRB,2.5663E04_JPRB,3.0293E04_JPRB,&  
308 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.4175E04_JPRB,3.7216E04_JPRB,3.5751E04_JPRB,6.4985E04_JPRB/) 
309  KAO( :, 5,10, 1) = (/&  
310  & 2.2343E06_JPRB,9.1469E05_JPRB,1.6022E04_JPRB,2.2168E04_JPRB,2.7630E04_JPRB,3.2346E04_JPRB,&  
311 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.6268E04_JPRB,3.8938E04_JPRB,3.7492E04_JPRB,6.9583E04_JPRB/) 
312  KAO( :, 1,11, 1) = (/&  
313  & 1.0543E06_JPRB,5.7983E05_JPRB,1.0582E04_JPRB,1.4919E04_JPRB,1.8791E04_JPRB,2.2000E04_JPRB,&  
314 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.4433E04_JPRB,2.5995E04_JPRB,2.4592E04_JPRB,5.0307E04_JPRB/) 
315  KAO( :, 2,11, 1) = (/&  
316  & 1.0726E06_JPRB,5.9907E05_JPRB,1.0858E04_JPRB,1.5223E04_JPRB,1.9244E04_JPRB,2.2775E04_JPRB,&  
317 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.5610E04_JPRB,2.7046E04_JPRB,2.5615E04_JPRB,5.1588E04_JPRB/) 
318  KAO( :, 3,11, 1) = (/&  
319  & 1.1894E06_JPRB,6.3212E05_JPRB,1.1383E04_JPRB,1.5870E04_JPRB,1.9979E04_JPRB,2.3693E04_JPRB,&  
320 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.6747E04_JPRB,2.9154E04_JPRB,2.7919E04_JPRB,5.3855E04_JPRB/) 
321  KAO( :, 4,11, 1) = (/&  
322  & 1.4390E06_JPRB,6.8258E05_JPRB,1.2145E04_JPRB,1.6906E04_JPRB,2.1138E04_JPRB,2.4948E04_JPRB,&  
323 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.8136E04_JPRB,3.0581E04_JPRB,2.9553E04_JPRB,5.7296E04_JPRB/) 
324  KAO( :, 5,11, 1) = (/&  
325  & 1.8470E06_JPRB,7.5489E05_JPRB,1.3202E04_JPRB,1.8257E04_JPRB,2.2782E04_JPRB,2.6681E04_JPRB,&  
326 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.9892E04_JPRB,3.2058E04_JPRB,3.1052E04_JPRB,6.1818E04_JPRB/) 
327  KAO( :, 1,12, 1) = (/&  
328  & 8.6798E07_JPRB,4.7553E05_JPRB,8.6730E05_JPRB,1.2226E04_JPRB,1.5413E04_JPRB,1.8085E04_JPRB,&  
329 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.0088E04_JPRB,2.1368E04_JPRB,2.0252E04_JPRB,4.1925E04_JPRB/) 
330  KAO( :, 2,12, 1) = (/&  
331  & 8.8495E07_JPRB,4.9183E05_JPRB,8.9118E05_JPRB,1.2490E04_JPRB,1.5790E04_JPRB,1.8699E04_JPRB,&  
332 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.1049E04_JPRB,2.2231E04_JPRB,2.1170E04_JPRB,4.2911E04_JPRB/) 
333  KAO( :, 3,12, 1) = (/&  
334  & 9.8325E07_JPRB,5.1925E05_JPRB,9.3547E05_JPRB,1.3044E04_JPRB,1.6413E04_JPRB,1.9471E04_JPRB,&  
335 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.1986E04_JPRB,2.4001E04_JPRB,2.3209E04_JPRB,4.4871E04_JPRB/) 
336  KAO( :, 4,12, 1) = (/&  
337  & 1.1889E06_JPRB,5.6183E05_JPRB,9.9863E05_JPRB,1.3905E04_JPRB,1.7391E04_JPRB,2.0522E04_JPRB,&  
338 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.3142E04_JPRB,2.5135E04_JPRB,2.4267E04_JPRB,4.7818E04_JPRB/) 
339  KAO( :, 5,12, 1) = (/&  
340  & 1.5235E06_JPRB,6.2281E05_JPRB,1.0874E04_JPRB,1.5023E04_JPRB,1.8755E04_JPRB,2.1980E04_JPRB,&  
341 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.4617E04_JPRB,2.6379E04_JPRB,2.5784E04_JPRB,5.1708E04_JPRB/) 
342  KAO( :, 1,13, 1) = (/&  
343  & 7.1418E07_JPRB,3.8921E05_JPRB,7.0891E05_JPRB,9.9889E05_JPRB,1.2597E04_JPRB,1.4799E04_JPRB,&  
344 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.6453E04_JPRB,1.7513E04_JPRB,1.6667E04_JPRB,3.4309E04_JPRB/) 
345  KAO( :, 2,13, 1) = (/&  
346  & 7.2895E07_JPRB,4.0284E05_JPRB,7.2945E05_JPRB,1.0221E04_JPRB,1.2923E04_JPRB,1.5309E04_JPRB,&  
347 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7258E04_JPRB,1.8229E04_JPRB,1.7386E04_JPRB,3.5109E04_JPRB/) 
348  KAO( :, 3,13, 1) = (/&  
349  & 8.1079E07_JPRB,4.2576E05_JPRB,7.6659E05_JPRB,1.0692E04_JPRB,1.3449E04_JPRB,1.5961E04_JPRB,&  
350 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.8026E04_JPRB,1.9704E04_JPRB,1.9240E04_JPRB,3.6700E04_JPRB/) 
351  KAO( :, 4,13, 1) = (/&  
352  & 9.8001E07_JPRB,4.6149E05_JPRB,8.1932E05_JPRB,1.1406E04_JPRB,1.4271E04_JPRB,1.6841E04_JPRB,&  
353 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.8992E04_JPRB,2.0617E04_JPRB,1.9928E04_JPRB,3.9092E04_JPRB/) 
354  KAO( :, 5,13, 1) = (/&  
355  & 1.2528E06_JPRB,5.1280E05_JPRB,8.9359E05_JPRB,1.2338E04_JPRB,1.5401E04_JPRB,1.8056E04_JPRB,&  
356 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.0225E04_JPRB,2.1672E04_JPRB,2.1360E04_JPRB,4.2252E04_JPRB/) 
357  KAO( :, 1, 1, 2) = (/&  
358  & 6.1207E05_JPRB,1.0978E03_JPRB,1.7611E03_JPRB,2.3638E03_JPRB,2.9057E03_JPRB,3.3651E03_JPRB,&  
359 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.7137E03_JPRB,3.8383E03_JPRB,3.2297E03_JPRB,2.4264E03_JPRB/) 
360  KAO( :, 2, 1, 2) = (/&  
361  & 8.5058E05_JPRB,1.3292E03_JPRB,2.0750E03_JPRB,2.7338E03_JPRB,3.3403E03_JPRB,3.8629E03_JPRB,&  
362 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.2579E03_JPRB,4.3337E03_JPRB,3.4101E03_JPRB,2.6736E03_JPRB/) 
363  KAO( :, 3, 1, 2) = (/&  
364  & 1.1682E04_JPRB,1.6162E03_JPRB,2.4689E03_JPRB,3.1946E03_JPRB,3.8719E03_JPRB,4.4552E03_JPRB,&  
365 
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.

11  & 4.9076E03_JPRB,4.9335E03_JPRB,3.9022E03_JPRB,2.9247E03_JPRB/) 
366  
367 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART1',1,ZHOOK_HANDLE) 
368  1  END SUBROUTINE PART1  
369  
370  
371  1  SUBROUTINE PART2  
372  
373  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
374 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART2',0,ZHOOK_HANDLE) 
375  
376  
377  KAO( :, 4, 1, 2) = (/&  
378  & 1.5789E04_JPRB,1.9668E03_JPRB,2.9480E03_JPRB,3.7669E03_JPRB,4.5171E03_JPRB,5.1682E03_JPRB,&  
379 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.6653E03_JPRB,5.6499E03_JPRB,4.0652E03_JPRB,3.1515E03_JPRB/) 
380  KAO( :, 5, 1, 2) = (/&  
381  & 2.0990E04_JPRB,2.3887E03_JPRB,3.5299E03_JPRB,4.4565E03_JPRB,5.2844E03_JPRB,6.0076E03_JPRB,&  
382 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.5551E03_JPRB,6.4764E03_JPRB,4.4385E03_JPRB,3.4538E03_JPRB/) 
383  KAO( :, 1, 2, 2) = (/&  
384  & 4.6541E05_JPRB,8.8674E04_JPRB,1.4099E03_JPRB,1.8864E03_JPRB,2.3180E03_JPRB,2.6798E03_JPRB,&  
385 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.9613E03_JPRB,3.0615E03_JPRB,2.6597E03_JPRB,1.8872E03_JPRB/) 
386  KAO( :, 2, 2, 2) = (/&  
387  & 6.5339E05_JPRB,1.0747E03_JPRB,1.6670E03_JPRB,2.1855E03_JPRB,2.6622E03_JPRB,3.0710E03_JPRB,&  
388 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.3862E03_JPRB,3.4584E03_JPRB,2.7852E03_JPRB,2.0782E03_JPRB/) 
389  KAO( :, 3, 2, 2) = (/&  
390  & 9.0589E05_JPRB,1.3082E03_JPRB,1.9947E03_JPRB,2.5634E03_JPRB,3.0860E03_JPRB,3.5379E03_JPRB,&  
391 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.8975E03_JPRB,3.9366E03_JPRB,3.1668E03_JPRB,2.2590E03_JPRB/) 
392  KAO( :, 4, 2, 2) = (/&  
393  & 1.2385E04_JPRB,1.5968E03_JPRB,2.3941E03_JPRB,3.0350E03_JPRB,3.6067E03_JPRB,4.1057E03_JPRB,&  
394 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.4942E03_JPRB,4.5107E03_JPRB,3.2782E03_JPRB,2.4504E03_JPRB/) 
395  KAO( :, 5, 2, 2) = (/&  
396  & 1.6667E04_JPRB,1.9480E03_JPRB,2.8786E03_JPRB,3.6064E03_JPRB,4.2370E03_JPRB,4.7805E03_JPRB,&  
397 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.2024E03_JPRB,5.1677E03_JPRB,3.5425E03_JPRB,2.6975E03_JPRB/) 
398  KAO( :, 1, 3, 2) = (/&  
399  & 3.2922E05_JPRB,6.8654E04_JPRB,1.0970E03_JPRB,1.4654E03_JPRB,1.8051E03_JPRB,2.0847E03_JPRB,&  
400 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.3088E03_JPRB,2.3837E03_JPRB,2.1265E03_JPRB,1.4540E03_JPRB/) 
401  KAO( :, 2, 3, 2) = (/&  
402  & 4.6583E05_JPRB,8.3015E04_JPRB,1.2948E03_JPRB,1.6958E03_JPRB,2.0663E03_JPRB,2.3792E03_JPRB,&  
403 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.6229E03_JPRB,2.6951E03_JPRB,2.2518E03_JPRB,1.5969E03_JPRB/) 
404  KAO( :, 3, 3, 2) = (/&  
405  & 6.5410E05_JPRB,1.0114E03_JPRB,1.5518E03_JPRB,1.9919E03_JPRB,2.3944E03_JPRB,2.7366E03_JPRB,&  
406 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.0098E03_JPRB,3.0595E03_JPRB,2.4530E03_JPRB,1.7299E03_JPRB/) 
407  KAO( :, 4, 3, 2) = (/&  
408  & 9.0734E05_JPRB,1.2366E03_JPRB,1.8688E03_JPRB,2.3652E03_JPRB,2.8005E03_JPRB,3.1725E03_JPRB,&  
409 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.4706E03_JPRB,3.5000E03_JPRB,2.6641E03_JPRB,1.8912E03_JPRB/) 
410  KAO( :, 5, 3, 2) = (/&  
411  & 1.2407E04_JPRB,1.5126E03_JPRB,2.2510E03_JPRB,2.8211E03_JPRB,3.2989E03_JPRB,3.7001E03_JPRB,&  
412 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.0161E03_JPRB,4.0075E03_JPRB,2.7798E03_JPRB,2.0796E03_JPRB/) 
413  KAO( :, 1, 4, 2) = (/&  
414  & 2.2778E05_JPRB,5.2510E04_JPRB,8.4888E04_JPRB,1.1352E03_JPRB,1.3979E03_JPRB,1.6168E03_JPRB,&  
415 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7964E03_JPRB,1.8331E03_JPRB,1.7837E03_JPRB,1.1723E03_JPRB/) 
416  KAO( :, 2, 4, 2) = (/&  
417  & 3.2363E05_JPRB,6.3086E04_JPRB,9.9709E04_JPRB,1.3073E03_JPRB,1.5943E03_JPRB,1.8366E03_JPRB,&  
418 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.0244E03_JPRB,2.0875E03_JPRB,1.8124E03_JPRB,1.2732E03_JPRB/) 
419  KAO( :, 3, 4, 2) = (/&  
420  & 4.5962E05_JPRB,7.6788E04_JPRB,1.1912E03_JPRB,1.5347E03_JPRB,1.8433E03_JPRB,2.1077E03_JPRB,&  
421 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.3135E03_JPRB,2.3586E03_JPRB,1.8966E03_JPRB,1.3806E03_JPRB/) 
422  KAO( :, 4, 4, 2) = (/&  
423  & 6.4739E05_JPRB,9.3992E04_JPRB,1.4352E03_JPRB,1.8248E03_JPRB,2.1580E03_JPRB,2.4403E03_JPRB,&  
424 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.6639E03_JPRB,2.6893E03_JPRB,2.1413E03_JPRB,1.4999E03_JPRB/) 
425  KAO( :, 5, 4, 2) = (/&  
426  & 9.0009E05_JPRB,1.1535E03_JPRB,1.7330E03_JPRB,2.1811E03_JPRB,2.5487E03_JPRB,2.8464E03_JPRB,&  
427 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.0813E03_JPRB,3.0811E03_JPRB,2.2013E03_JPRB,1.6370E03_JPRB/) 
428  KAO( :, 1, 5, 2) = (/&  
429  & 1.5792E05_JPRB,4.0148E04_JPRB,6.5831E04_JPRB,8.8434E04_JPRB,1.0869E03_JPRB,1.2568E03_JPRB,&  
430 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4030E03_JPRB,1.4157E03_JPRB,1.3790E03_JPRB,9.9471E04_JPRB/) 
431  KAO( :, 2, 5, 2) = (/&  
432  & 2.2397E05_JPRB,4.7887E04_JPRB,7.6705E04_JPRB,1.0113E03_JPRB,1.2329E03_JPRB,1.4202E03_JPRB,&  
433 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5687E03_JPRB,1.6184E03_JPRB,1.4582E03_JPRB,1.0698E03_JPRB/) 
434  KAO( :, 3, 5, 2) = (/&  
435  & 3.2096E05_JPRB,5.8078E04_JPRB,9.1183E04_JPRB,1.1823E03_JPRB,1.4221E03_JPRB,1.6260E03_JPRB,&  
436 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7823E03_JPRB,1.8208E03_JPRB,1.5493E03_JPRB,1.1486E03_JPRB/) 
437  KAO( :, 4, 5, 2) = (/&  
438  & 4.5840E05_JPRB,7.1160E04_JPRB,1.0969E03_JPRB,1.4034E03_JPRB,1.6628E03_JPRB,1.8804E03_JPRB,&  
439 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.0470E03_JPRB,2.0686E03_JPRB,1.6540E03_JPRB,1.2365E03_JPRB/) 
440  KAO( :, 5, 5, 2) = (/&  
441  & 6.4822E05_JPRB,8.7496E04_JPRB,1.3269E03_JPRB,1.6793E03_JPRB,1.9658E03_JPRB,2.1946E03_JPRB,&  
442 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.3671E03_JPRB,2.3677E03_JPRB,1.7812E03_JPRB,1.3376E03_JPRB/) 
443  KAO( :, 1, 6, 2) = (/&  
444  & 1.0902E05_JPRB,3.0605E04_JPRB,5.1028E04_JPRB,6.8853E04_JPRB,8.4488E04_JPRB,9.7840E04_JPRB,&  
445 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0974E03_JPRB,1.1101E03_JPRB,1.0645E03_JPRB,8.6648E04_JPRB/) 
446  KAO( :, 2, 6, 2) = (/&  
447  & 1.5301E05_JPRB,3.6130E04_JPRB,5.8719E04_JPRB,7.8079E04_JPRB,9.5252E04_JPRB,1.0959E03_JPRB,&  
448 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2152E03_JPRB,1.2397E03_JPRB,1.2046E03_JPRB,9.1885E04_JPRB/) 
449  KAO( :, 3, 6, 2) = (/&  
450  & 2.2016E05_JPRB,4.3548E04_JPRB,6.9267E04_JPRB,9.0511E04_JPRB,1.0924E03_JPRB,1.2498E03_JPRB,&  
451 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3720E03_JPRB,1.4053E03_JPRB,1.2319E03_JPRB,9.7396E04_JPRB/) 
452  KAO( :, 4, 6, 2) = (/&  
453  & 3.1830E05_JPRB,5.3317E04_JPRB,8.3063E04_JPRB,1.0698E03_JPRB,1.2734E03_JPRB,1.4418E03_JPRB,&  
454 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5687E03_JPRB,1.5881E03_JPRB,1.2775E03_JPRB,1.0399E03_JPRB/) 
455  KAO( :, 5, 6, 2) = (/&  
456  & 4.5738E05_JPRB,6.5696E04_JPRB,1.0039E03_JPRB,1.2790E03_JPRB,1.5021E03_JPRB,1.6812E03_JPRB,&  
457 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.8119E03_JPRB,1.8117E03_JPRB,1.4274E03_JPRB,1.1156E03_JPRB/) 
458  KAO( :, 1, 7, 2) = (/&  
459  & 7.6369E06_JPRB,2.3409E04_JPRB,3.9662E04_JPRB,5.3736E04_JPRB,6.5954E04_JPRB,7.6628E04_JPRB,&  
460 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.6324E04_JPRB,8.8119E04_JPRB,8.6194E04_JPRB,7.9079E04_JPRB/) 
461  KAO( :, 2, 7, 2) = (/&  
462  & 1.0494E05_JPRB,2.7293E04_JPRB,4.5033E04_JPRB,6.0419E04_JPRB,7.3771E04_JPRB,8.4846E04_JPRB,&  
463 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.4512E04_JPRB,9.5497E04_JPRB,9.2999E04_JPRB,8.2387E04_JPRB/) 
464  KAO( :, 3, 7, 2) = (/&  
465  & 1.5059E05_JPRB,3.2612E04_JPRB,5.2570E04_JPRB,6.9285E04_JPRB,8.4056E04_JPRB,9.6214E04_JPRB,&  
466 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0579E03_JPRB,1.0868E03_JPRB,9.8600E04_JPRB,8.6421E04_JPRB/) 
467  KAO( :, 4, 7, 2) = (/&  
468  & 2.1973E05_JPRB,3.9766E04_JPRB,6.2716E04_JPRB,8.1307E04_JPRB,9.7314E04_JPRB,1.1062E03_JPRB,&  
469 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2052E03_JPRB,1.2224E03_JPRB,1.0473E03_JPRB,9.1386E04_JPRB/) 
470  KAO( :, 5, 7, 2) = (/&  
471  & 3.2024E05_JPRB,4.9023E04_JPRB,7.5693E04_JPRB,9.6942E04_JPRB,1.1441E03_JPRB,1.2861E03_JPRB,&  
472 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3873E03_JPRB,1.3904E03_JPRB,1.0995E03_JPRB,9.7409E04_JPRB/) 
473  KAO( :, 1, 8, 2) = (/&  
474  & 5.4819E06_JPRB,1.8022E04_JPRB,3.0951E04_JPRB,4.2109E04_JPRB,5.1765E04_JPRB,6.0434E04_JPRB,&  
475 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.7966E04_JPRB,7.0414E04_JPRB,7.0729E04_JPRB,7.6543E04_JPRB/) 
476  KAO( :, 2, 8, 2) = (/&  
477  & 7.2946E06_JPRB,2.0689E04_JPRB,3.4673E04_JPRB,4.6841E04_JPRB,5.7263E04_JPRB,6.6046E04_JPRB,&  
478 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.3949E04_JPRB,7.4887E04_JPRB,7.2137E04_JPRB,7.8512E04_JPRB/) 
479  KAO( :, 3, 8, 2) = (/&  
480  & 1.0351E05_JPRB,2.4457E04_JPRB,3.9988E04_JPRB,5.3188E04_JPRB,6.4791E04_JPRB,7.4247E04_JPRB,&  
481 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.1941E04_JPRB,8.3495E04_JPRB,8.1545E04_JPRB,8.2107E04_JPRB/) 
482  KAO( :, 4, 8, 2) = (/&  
483  & 1.5156E05_JPRB,2.9629E04_JPRB,4.7365E04_JPRB,6.1873E04_JPRB,7.4454E04_JPRB,8.4958E04_JPRB,&  
484 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.2854E04_JPRB,9.4393E04_JPRB,8.3940E04_JPRB,8.7281E04_JPRB/) 
485  KAO( :, 5, 8, 2) = (/&  
486  & 2.2361E05_JPRB,3.6482E04_JPRB,5.6983E04_JPRB,7.3407E04_JPRB,8.7045E04_JPRB,9.8366E04_JPRB,&  
487 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0651E03_JPRB,1.0698E03_JPRB,8.6698E04_JPRB,9.3613E04_JPRB/) 
488  KAO( :, 1, 9, 2) = (/&  
489  & 4.0452E06_JPRB,1.4017E04_JPRB,2.4329E04_JPRB,3.3218E04_JPRB,4.0925E04_JPRB,4.8103E04_JPRB,&  
490 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.3918E04_JPRB,5.6100E04_JPRB,5.6501E04_JPRB,8.0970E04_JPRB/) 
491  KAO( :, 2, 9, 2) = (/&  
492  & 5.1567E06_JPRB,1.5795E04_JPRB,2.6863E04_JPRB,3.6500E04_JPRB,4.4688E04_JPRB,5.1756E04_JPRB,&  
493 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.8306E04_JPRB,5.9423E04_JPRB,5.8894E04_JPRB,8.6646E04_JPRB/) 
494  KAO( :, 3, 9, 2) = (/&  
495  & 7.1657E06_JPRB,1.8427E04_JPRB,3.0563E04_JPRB,4.1026E04_JPRB,5.0076E04_JPRB,5.7510E04_JPRB,&  
496 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.3796E04_JPRB,6.4416E04_JPRB,6.2814E04_JPRB,9.4589E04_JPRB/) 
497  KAO( :, 4, 9, 2) = (/&  
498  & 1.0454E05_JPRB,2.2117E04_JPRB,3.5855E04_JPRB,4.7222E04_JPRB,5.7137E04_JPRB,6.5350E04_JPRB,&  
499 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.1676E04_JPRB,7.3182E04_JPRB,6.7180E04_JPRB,1.0445E03_JPRB/) 
500  KAO( :, 5, 9, 2) = (/&  
501  & 1.5554E05_JPRB,2.7129E04_JPRB,4.2902E04_JPRB,5.5622E04_JPRB,6.6296E04_JPRB,7.5220E04_JPRB,&  
502 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.1926E04_JPRB,8.2534E04_JPRB,7.1317E04_JPRB,1.1567E03_JPRB/) 
503  KAO( :, 1,10, 2) = (/&  
504  & 3.1057E06_JPRB,1.1083E04_JPRB,1.9379E04_JPRB,2.6511E04_JPRB,3.2793E04_JPRB,3.8622E04_JPRB,&  
505 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.3071E04_JPRB,4.4441E04_JPRB,4.5952E04_JPRB,8.8174E04_JPRB/) 
506  KAO( :, 2,10, 2) = (/&  
507  & 3.7991E06_JPRB,1.2283E04_JPRB,2.1113E04_JPRB,2.8821E04_JPRB,3.5348E04_JPRB,4.1112E04_JPRB,&  
508 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.6174E04_JPRB,4.7717E04_JPRB,4.8657E04_JPRB,9.8685E04_JPRB/) 
509  KAO( :, 3,10, 2) = (/&  
510  & 5.1499E06_JPRB,1.4143E04_JPRB,2.3734E04_JPRB,3.2100E04_JPRB,3.9236E04_JPRB,4.5145E04_JPRB,&  
511 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.0315E04_JPRB,5.0792E04_JPRB,4.9406E04_JPRB,1.1242E03_JPRB/) 
512  KAO( :, 4,10, 2) = (/&  
513  & 7.4528E06_JPRB,1.6827E04_JPRB,2.7574E04_JPRB,3.6613E04_JPRB,4.4442E04_JPRB,5.0912E04_JPRB,&  
514 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.6026E04_JPRB,5.7140E04_JPRB,5.5681E04_JPRB,1.2935E03_JPRB/) 
515  KAO( :, 5,10, 2) = (/&  
516  & 1.1134E05_JPRB,2.0532E04_JPRB,3.2832E04_JPRB,4.2825E04_JPRB,5.1275E04_JPRB,5.8331E04_JPRB,&  
517 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.3709E04_JPRB,6.4447E04_JPRB,5.7554E04_JPRB,1.4892E03_JPRB/) 
518  KAO( :, 1,11, 2) = (/&  
519  & 2.5793E06_JPRB,9.1386E05_JPRB,1.5991E04_JPRB,2.1914E04_JPRB,2.7076E04_JPRB,3.1821E04_JPRB,&  
520 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.5500E04_JPRB,3.6871E04_JPRB,3.7899E04_JPRB,8.3339E04_JPRB/) 
521  KAO( :, 2,11, 2) = (/&  
522  & 3.1932E06_JPRB,1.0152E04_JPRB,1.7439E04_JPRB,2.3840E04_JPRB,2.9253E04_JPRB,3.3975E04_JPRB,&  
523 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.8122E04_JPRB,3.9384E04_JPRB,4.0567E04_JPRB,9.5074E04_JPRB/) 
524  KAO( :, 3,11, 2) = (/&  
525  & 4.3709E06_JPRB,1.1728E04_JPRB,1.9656E04_JPRB,2.6595E04_JPRB,3.2495E04_JPRB,3.7366E04_JPRB,&  
526 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.1570E04_JPRB,4.1965E04_JPRB,4.1122E04_JPRB,1.0992E03_JPRB/) 
527  KAO( :, 4,11, 2) = (/&  
528  & 6.3954E06_JPRB,1.4000E04_JPRB,2.2922E04_JPRB,3.0419E04_JPRB,3.6879E04_JPRB,4.2168E04_JPRB,&  
529 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.6345E04_JPRB,4.7319E04_JPRB,4.5954E04_JPRB,1.2804E03_JPRB/) 
530  KAO( :, 5,11, 2) = (/&  
531  & 9.6174E06_JPRB,1.7120E04_JPRB,2.7357E04_JPRB,3.5711E04_JPRB,4.2654E04_JPRB,4.8415E04_JPRB,&  
532 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.2775E04_JPRB,5.3321E04_JPRB,4.7537E04_JPRB,1.4946E03_JPRB/) 
533  KAO( :, 1,12, 2) = (/&  
534  & 2.1449E06_JPRB,7.5185E05_JPRB,1.3159E04_JPRB,1.8068E04_JPRB,2.2335E04_JPRB,2.6198E04_JPRB,&  
535 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.9235E04_JPRB,3.0350E04_JPRB,3.1256E04_JPRB,7.2986E04_JPRB/) 
536  KAO( :, 2,12, 2) = (/&  
537  & 2.6849E06_JPRB,8.3739E05_JPRB,1.4370E04_JPRB,1.9666E04_JPRB,2.4153E04_JPRB,2.8046E04_JPRB,&  
538 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.1445E04_JPRB,3.2440E04_JPRB,3.3814E04_JPRB,8.3896E04_JPRB/) 
539  KAO( :, 3,12, 2) = (/&  
540  & 3.7120E06_JPRB,9.7072E05_JPRB,1.6242E04_JPRB,2.1974E04_JPRB,2.6866E04_JPRB,3.0880E04_JPRB,&  
541 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.4296E04_JPRB,3.4655E04_JPRB,3.4183E04_JPRB,9.7914E04_JPRB/) 
542  KAO( :, 4,12, 2) = (/&  
543  & 5.4750E06_JPRB,1.1621E04_JPRB,1.9012E04_JPRB,2.5210E04_JPRB,3.0547E04_JPRB,3.4901E04_JPRB,&  
544 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.8299E04_JPRB,3.9098E04_JPRB,3.8045E04_JPRB,1.1499E03_JPRB/) 
545  KAO( :, 5,12, 2) = (/&  
546  & 8.2703E06_JPRB,1.4241E04_JPRB,2.2731E04_JPRB,2.9701E04_JPRB,3.5442E04_JPRB,4.0147E04_JPRB,&  
547 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.3679E04_JPRB,4.4039E04_JPRB,3.9154E04_JPRB,1.3496E03_JPRB/) 
548  KAO( :, 1,13, 2) = (/&  
549  & 1.7830E06_JPRB,6.1545E05_JPRB,1.0776E04_JPRB,1.4816E04_JPRB,1.8346E04_JPRB,2.1518E04_JPRB,&  
550 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.4003E04_JPRB,2.4920E04_JPRB,2.5855E04_JPRB,6.0483E04_JPRB/) 
551  KAO( :, 2,13, 2) = (/&  
552  & 2.2523E06_JPRB,6.8708E05_JPRB,1.1787E04_JPRB,1.6139E04_JPRB,1.9846E04_JPRB,2.3065E04_JPRB,&  
553 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.5831E04_JPRB,2.6663E04_JPRB,2.8115E04_JPRB,6.9533E04_JPRB/) 
554  KAO( :, 3,13, 2) = (/&  
555  & 3.1394E06_JPRB,7.9894E05_JPRB,1.3357E04_JPRB,1.8071E04_JPRB,2.2106E04_JPRB,2.5423E04_JPRB,&  
556 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.8211E04_JPRB,2.8541E04_JPRB,2.8437E04_JPRB,8.1181E04_JPRB/) 
557  KAO( :, 4,13, 2) = (/&  
558  & 4.6431E06_JPRB,9.5872E05_JPRB,1.5677E04_JPRB,2.0791E04_JPRB,2.5190E04_JPRB,2.8785E04_JPRB,&  
559 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.1567E04_JPRB,3.2214E04_JPRB,3.1077E04_JPRB,9.5374E04_JPRB/) 
560  KAO( :, 5,13, 2) = (/&  
561  & 7.0293E06_JPRB,1.1782E04_JPRB,1.8782E04_JPRB,2.4556E04_JPRB,2.9310E04_JPRB,3.3172E04_JPRB,&  
562 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.6069E04_JPRB,3.6276E04_JPRB,3.2321E04_JPRB,1.1190E03_JPRB/) 
563  KAO( :, 1, 1, 3) = (/&  
564  & 3.1395E04_JPRB,2.3358E03_JPRB,3.6695E03_JPRB,4.7583E03_JPRB,5.6300E03_JPRB,6.3084E03_JPRB,&  
565 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.4459E03_JPRB,5.6476E03_JPRB,4.3114E03_JPRB,3.5359E03_JPRB/) 
566  KAO( :, 2, 1, 3) = (/&  
567  & 4.4041E04_JPRB,2.8550E03_JPRB,4.4288E03_JPRB,5.7337E03_JPRB,6.7703E03_JPRB,7.4874E03_JPRB,&  
568 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.5852E03_JPRB,6.6048E03_JPRB,4.4609E03_JPRB,3.7307E03_JPRB/) 
569  KAO( :, 3, 1, 3) = (/&  
570  & 6.0889E04_JPRB,3.4990E03_JPRB,5.3318E03_JPRB,6.8783E03_JPRB,8.0899E03_JPRB,8.8562E03_JPRB,&  
571 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.8659E03_JPRB,7.6998E03_JPRB,5.0834E03_JPRB,4.1606E03_JPRB/) 
572  KAO( :, 4, 1, 3) = (/&  
573  & 8.2945E04_JPRB,4.2967E03_JPRB,6.4106E03_JPRB,8.2013E03_JPRB,9.6038E03_JPRB,1.0382E02_JPRB,&  
574 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0298E02_JPRB,8.9419E03_JPRB,6.1506E03_JPRB,4.8030E03_JPRB/) 
575  KAO( :, 5, 1, 3) = (/&  
576  & 1.1111E03_JPRB,5.2640E03_JPRB,7.6785E03_JPRB,9.7243E03_JPRB,1.1313E02_JPRB,1.2073E02_JPRB,&  
577 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1918E02_JPRB,1.0340E02_JPRB,7.2231E03_JPRB,5.5559E03_JPRB/) 
578  KAO( :, 1, 2, 3) = (/&  
579  & 2.5786E04_JPRB,1.8689E03_JPRB,2.9171E03_JPRB,3.7655E03_JPRB,4.4557E03_JPRB,4.9851E03_JPRB,&  
580 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.0877E03_JPRB,4.4987E03_JPRB,3.5624E03_JPRB,2.7823E03_JPRB/) 
581  KAO( :, 2, 2, 3) = (/&  
582  & 3.6518E04_JPRB,2.2982E03_JPRB,3.5229E03_JPRB,4.5348E03_JPRB,5.3627E03_JPRB,5.9413E03_JPRB,&  
583 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.0131E03_JPRB,5.2796E03_JPRB,3.6528E03_JPRB,2.9862E03_JPRB/) 
584  KAO( :, 3, 2, 3) = (/&  
585  & 5.0963E04_JPRB,2.8326E03_JPRB,4.2490E03_JPRB,5.4478E03_JPRB,6.4291E03_JPRB,7.0522E03_JPRB,&  
586 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.0637E03_JPRB,6.1794E03_JPRB,4.0832E03_JPRB,3.3326E03_JPRB/) 
587  KAO( :, 4, 2, 3) = (/&  
588  & 7.0041E04_JPRB,3.4946E03_JPRB,5.1315E03_JPRB,6.5181E03_JPRB,7.6574E03_JPRB,8.3039E03_JPRB,&  
589 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.2501E03_JPRB,7.2013E03_JPRB,4.9579E03_JPRB,3.8182E03_JPRB/) 
590  KAO( :, 5, 2, 3) = (/&  
591  & 9.4509E04_JPRB,4.3042E03_JPRB,6.1780E03_JPRB,7.7645E03_JPRB,9.0552E03_JPRB,9.6970E03_JPRB,&  
592 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.5937E03_JPRB,8.3644E03_JPRB,5.8475E03_JPRB,4.3744E03_JPRB/) 
593  KAO( :, 1, 3, 3) = (/&  
594  & 1.9379E04_JPRB,1.4316E03_JPRB,2.2324E03_JPRB,2.8735E03_JPRB,3.3970E03_JPRB,3.8041E03_JPRB,&  
595 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.8802E03_JPRB,3.4669E03_JPRB,2.9119E03_JPRB,2.1744E03_JPRB/) 
596  KAO( :, 2, 3, 3) = (/&  
597  & 2.7770E04_JPRB,1.7674E03_JPRB,2.7001E03_JPRB,3.4577E03_JPRB,4.0882E03_JPRB,4.5451E03_JPRB,&  
598 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.6130E03_JPRB,4.0692E03_JPRB,2.9379E03_JPRB,2.3588E03_JPRB/) 
599  KAO( :, 3, 3, 3) = (/&  
600  & 3.9251E04_JPRB,2.1938E03_JPRB,3.2645E03_JPRB,4.1604E03_JPRB,4.9099E03_JPRB,5.4125E03_JPRB,&  
601 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.4492E03_JPRB,4.7846E03_JPRB,3.2003E03_JPRB,2.6346E03_JPRB/) 
602  KAO( :, 4, 3, 3) = (/&  
603  & 5.4605E04_JPRB,2.7278E03_JPRB,3.9609E03_JPRB,4.9977E03_JPRB,5.8740E03_JPRB,6.4067E03_JPRB,&  
604 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.4003E03_JPRB,5.6054E03_JPRB,3.7732E03_JPRB,2.9860E03_JPRB/) 
605  KAO( :, 5, 3, 3) = (/&  
606  & 7.4466E04_JPRB,3.3848E03_JPRB,4.8045E03_JPRB,5.9823E03_JPRB,6.9787E03_JPRB,7.5209E03_JPRB,&  
607 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.4708E03_JPRB,6.5433E03_JPRB,4.5620E03_JPRB,3.3966E03_JPRB/) 
608  KAO( :, 1, 4, 3) = (/&  
609  & 1.4015E04_JPRB,1.0813E03_JPRB,1.6854E03_JPRB,2.1729E03_JPRB,2.5709E03_JPRB,2.8772E03_JPRB,&  
610 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.9317E03_JPRB,2.6451E03_JPRB,2.2657E03_JPRB,1.7383E03_JPRB/) 
611  KAO( :, 2, 4, 3) = (/&  
612  & 2.0311E04_JPRB,1.3407E03_JPRB,2.0417E03_JPRB,2.6162E03_JPRB,3.0900E03_JPRB,3.4371E03_JPRB,&  
613 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.4970E03_JPRB,3.1030E03_JPRB,2.4331E03_JPRB,1.8807E03_JPRB/) 
614  KAO( :, 3, 4, 3) = (/&  
615  & 2.9086E04_JPRB,1.6740E03_JPRB,2.4810E03_JPRB,3.1478E03_JPRB,3.7091E03_JPRB,4.1012E03_JPRB,&  
616 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.1503E03_JPRB,3.6669E03_JPRB,2.5193E03_JPRB,2.0853E03_JPRB/) 
617  KAO( :, 4, 4, 3) = (/&  
618  & 4.1019E04_JPRB,2.0975E03_JPRB,3.0276E03_JPRB,3.7932E03_JPRB,4.4503E03_JPRB,4.8736E03_JPRB,&  
619 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.8948E03_JPRB,4.3129E03_JPRB,2.8422E03_JPRB,2.3481E03_JPRB/) 
620  KAO( :, 5, 4, 3) = (/&  
621  & 5.6658E04_JPRB,2.6213E03_JPRB,3.6972E03_JPRB,4.5663E03_JPRB,5.3124E03_JPRB,5.7564E03_JPRB,&  
622 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.7449E03_JPRB,5.0602E03_JPRB,3.4831E03_JPRB,2.6607E03_JPRB/) 
623  KAO( :, 1, 5, 3) = (/&  
624  & 1.0005E04_JPRB,8.1751E04_JPRB,1.2728E03_JPRB,1.6409E03_JPRB,1.9492E03_JPRB,2.1828E03_JPRB,&  
625 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.2210E03_JPRB,2.0236E03_JPRB,1.7728E03_JPRB,1.4477E03_JPRB/) 
626  KAO( :, 2, 5, 3) = (/&  
627  & 1.4628E04_JPRB,1.0154E03_JPRB,1.5439E03_JPRB,1.9778E03_JPRB,2.3404E03_JPRB,2.6065E03_JPRB,&  
628 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.6499E03_JPRB,2.3648E03_JPRB,1.9853E03_JPRB,1.5598E03_JPRB/) 
629  KAO( :, 3, 5, 3) = (/&  
630  & 2.1213E04_JPRB,1.2737E03_JPRB,1.8830E03_JPRB,2.3878E03_JPRB,2.8089E03_JPRB,3.1116E03_JPRB,&  
631 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.1584E03_JPRB,2.8055E03_JPRB,1.9979E03_JPRB,1.7165E03_JPRB/) 
632  KAO( :, 4, 5, 3) = (/&  
633  & 3.0316E04_JPRB,1.6037E03_JPRB,2.3102E03_JPRB,2.8890E03_JPRB,3.3732E03_JPRB,3.7052E03_JPRB,&  
634 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.7386E03_JPRB,3.3128E03_JPRB,2.1889E03_JPRB,1.9135E03_JPRB/) 
635  KAO( :, 5, 5, 3) = (/&  
636  & 4.2437E04_JPRB,2.0170E03_JPRB,2.8415E03_JPRB,3.4970E03_JPRB,4.0448E03_JPRB,4.3946E03_JPRB,&  
637 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.4054E03_JPRB,3.8956E03_JPRB,2.6089E03_JPRB,2.1456E03_JPRB/) 
638  KAO( :, 1, 6, 3) = (/&  
639  & 6.9848E05_JPRB,6.1344E04_JPRB,9.5427E04_JPRB,1.2333E03_JPRB,1.4696E03_JPRB,1.6459E03_JPRB,&  
640 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.6778E03_JPRB,1.5491E03_JPRB,1.4340E03_JPRB,1.2155E03_JPRB/) 
641  KAO( :, 2, 6, 3) = (/&  
642  & 1.0287E04_JPRB,7.6231E04_JPRB,1.1596E03_JPRB,1.4875E03_JPRB,1.7602E03_JPRB,1.9644E03_JPRB,&  
643 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9987E03_JPRB,1.8015E03_JPRB,1.5475E03_JPRB,1.3106E03_JPRB/) 
644  KAO( :, 3, 6, 3) = (/&  
645  & 1.5064E04_JPRB,9.5897E04_JPRB,1.4184E03_JPRB,1.7997E03_JPRB,2.1174E03_JPRB,2.3481E03_JPRB,&  
646 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.3855E03_JPRB,2.1239E03_JPRB,1.6664E03_JPRB,1.4397E03_JPRB/) 
647  KAO( :, 4, 6, 3) = (/&  
648  & 2.1812E04_JPRB,1.2102E03_JPRB,1.7485E03_JPRB,2.1875E03_JPRB,2.5486E03_JPRB,2.8028E03_JPRB,&  
649 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.8356E03_JPRB,2.5206E03_JPRB,1.7195E03_JPRB,1.5934E03_JPRB/) 
650  KAO( :, 5, 6, 3) = (/&  
651  & 3.0969E04_JPRB,1.5273E03_JPRB,2.1634E03_JPRB,2.6620E03_JPRB,3.0695E03_JPRB,3.3380E03_JPRB,&  
652 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.3515E03_JPRB,2.9746E03_JPRB,1.9515E03_JPRB,1.7778E03_JPRB/) 
653  KAO( :, 1, 7, 3) = (/&  
654  & 4.8221E05_JPRB,4.6010E04_JPRB,7.1481E04_JPRB,9.2859E04_JPRB,1.1100E03_JPRB,1.2408E03_JPRB,&  
655 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2683E03_JPRB,1.1941E03_JPRB,1.1654E03_JPRB,1.0618E03_JPRB/) 
656  KAO( :, 2, 7, 3) = (/&  
657  & 7.1316E05_JPRB,5.6993E04_JPRB,8.6994E04_JPRB,1.1165E03_JPRB,1.3220E03_JPRB,1.4781E03_JPRB,&  
658 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5050E03_JPRB,1.3757E03_JPRB,1.2140E03_JPRB,1.1427E03_JPRB/) 
659  KAO( :, 3, 7, 3) = (/&  
660  & 1.0540E04_JPRB,7.1740E04_JPRB,1.0671E03_JPRB,1.3546E03_JPRB,1.5921E03_JPRB,1.7675E03_JPRB,&  
661 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7993E03_JPRB,1.6085E03_JPRB,1.3409E03_JPRB,1.2460E03_JPRB/) 
662  KAO( :, 4, 7, 3) = (/&  
663  & 1.5421E04_JPRB,9.0675E04_JPRB,1.3194E03_JPRB,1.6531E03_JPRB,1.9239E03_JPRB,2.1163E03_JPRB,&  
664 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.1446E03_JPRB,1.9118E03_JPRB,1.3549E03_JPRB,1.3702E03_JPRB/) 
665  KAO( :, 5, 7, 3) = (/&  
666  & 2.2207E04_JPRB,1.1485E03_JPRB,1.6379E03_JPRB,2.0236E03_JPRB,2.3292E03_JPRB,2.5319E03_JPRB,&  
667 
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.

11  & 2.5452E03_JPRB,2.2618E03_JPRB,1.4884E03_JPRB,1.5202E03_JPRB/) 
668  
669 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART2',1,ZHOOK_HANDLE) 
670  1  END SUBROUTINE PART2  
671  
672  
673  1  SUBROUTINE PART3  
674  
675  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
676 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART3',0,ZHOOK_HANDLE) 
677  
678  
679  KAO( :, 1, 8, 3) = (/&  
680  & 3.3024E05_JPRB,3.4530E04_JPRB,5.3688E04_JPRB,7.0115E04_JPRB,8.4229E04_JPRB,9.3889E04_JPRB,&  
681 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.6725E04_JPRB,9.1694E04_JPRB,9.1670E04_JPRB,1.0135E03_JPRB/) 
682  KAO( :, 2, 8, 3) = (/&  
683  & 4.8867E05_JPRB,4.2560E04_JPRB,6.5145E04_JPRB,8.3778E04_JPRB,9.9544E04_JPRB,1.1134E03_JPRB,&  
684 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1345E03_JPRB,1.0538E03_JPRB,9.7113E04_JPRB,1.0857E03_JPRB/) 
685  KAO( :, 3, 8, 3) = (/&  
686  & 7.2825E05_JPRB,5.3471E04_JPRB,8.0022E04_JPRB,1.0181E03_JPRB,1.1967E03_JPRB,1.3302E03_JPRB,&  
687 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3547E03_JPRB,1.2266E03_JPRB,1.0446E03_JPRB,1.1774E03_JPRB/) 
688  KAO( :, 4, 8, 3) = (/&  
689  & 1.0774E04_JPRB,6.7652E04_JPRB,9.9081E04_JPRB,1.2458E03_JPRB,1.4508E03_JPRB,1.5976E03_JPRB,&  
690 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.6199E03_JPRB,1.4510E03_JPRB,1.1389E03_JPRB,1.2913E03_JPRB/) 
691  KAO( :, 5, 8, 3) = (/&  
692  & 1.5712E04_JPRB,8.5893E04_JPRB,1.2330E03_JPRB,1.5318E03_JPRB,1.7648E03_JPRB,1.9188E03_JPRB,&  
693 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9298E03_JPRB,1.7197E03_JPRB,1.1585E03_JPRB,1.4301E03_JPRB/) 
694  KAO( :, 1, 9, 3) = (/&  
695  & 2.2694E05_JPRB,2.5964E04_JPRB,4.0587E04_JPRB,5.3244E04_JPRB,6.4307E04_JPRB,7.1486E04_JPRB,&  
696 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.4240E04_JPRB,7.1164E04_JPRB,7.2273E04_JPRB,1.2493E03_JPRB/) 
697  KAO( :, 2, 9, 3) = (/&  
698  & 3.3403E05_JPRB,3.1851E04_JPRB,4.8826E04_JPRB,6.2982E04_JPRB,7.5282E04_JPRB,8.4067E04_JPRB,&  
699 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.5777E04_JPRB,8.1055E04_JPRB,7.8048E04_JPRB,1.3812E03_JPRB/) 
700  KAO( :, 3, 9, 3) = (/&  
701  & 5.0028E05_JPRB,3.9826E04_JPRB,5.9931E04_JPRB,7.6424E04_JPRB,9.0031E04_JPRB,1.0018E03_JPRB,&  
702 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0201E03_JPRB,9.3771E04_JPRB,8.2897E04_JPRB,1.5248E03_JPRB/) 
703  KAO( :, 4, 9, 3) = (/&  
704  & 7.4767E05_JPRB,5.0392E04_JPRB,7.4141E04_JPRB,9.3676E04_JPRB,1.0930E03_JPRB,1.2050E03_JPRB,&  
705 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2228E03_JPRB,1.0983E03_JPRB,9.0134E04_JPRB,1.6871E03_JPRB/) 
706  KAO( :, 5, 9, 3) = (/&  
707  & 1.1035E04_JPRB,6.4097E04_JPRB,9.2434E04_JPRB,1.1532E03_JPRB,1.3334E03_JPRB,1.4526E03_JPRB,&  
708 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4614E03_JPRB,1.3054E03_JPRB,9.1810E04_JPRB,1.8727E03_JPRB/) 
709  KAO( :, 1,10, 3) = (/&  
710  & 1.6131E05_JPRB,1.9889E04_JPRB,3.1275E04_JPRB,4.1228E04_JPRB,4.9839E04_JPRB,5.5623E04_JPRB,&  
711 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.8253E04_JPRB,5.6343E04_JPRB,5.6050E04_JPRB,1.5889E03_JPRB/) 
712  KAO( :, 2,10, 3) = (/&  
713  & 2.3548E05_JPRB,2.4279E04_JPRB,3.7289E04_JPRB,4.8222E04_JPRB,5.7912E04_JPRB,6.4486E04_JPRB,&  
714 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.6265E04_JPRB,6.3391E04_JPRB,6.2287E04_JPRB,1.8970E03_JPRB/) 
715  KAO( :, 3,10, 3) = (/&  
716  & 3.5345E05_JPRB,3.0213E04_JPRB,4.5662E04_JPRB,5.8302E04_JPRB,6.8872E04_JPRB,7.6652E04_JPRB,&  
717 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.8037E04_JPRB,7.2531E04_JPRB,6.6020E04_JPRB,2.2611E03_JPRB/) 
718  KAO( :, 4,10, 3) = (/&  
719  & 5.3207E05_JPRB,3.8181E04_JPRB,5.6403E04_JPRB,7.1428E04_JPRB,8.3596E04_JPRB,9.2165E04_JPRB,&  
720 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.3562E04_JPRB,8.4502E04_JPRB,7.1249E04_JPRB,2.6676E03_JPRB/) 
721  KAO( :, 5,10, 3) = (/&  
722  & 7.9349E05_JPRB,4.8668E04_JPRB,7.0365E04_JPRB,8.7954E04_JPRB,1.0204E03_JPRB,1.1145E03_JPRB,&  
723 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1232E03_JPRB,1.0045E03_JPRB,7.7476E04_JPRB,3.1110E03_JPRB/) 
724  KAO( :, 1,11, 3) = (/&  
725  & 1.3601E05_JPRB,1.6644E04_JPRB,2.6059E04_JPRB,3.4190E04_JPRB,4.1323E04_JPRB,4.6098E04_JPRB,&  
726 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.8236E04_JPRB,4.6602E04_JPRB,4.6408E04_JPRB,1.7060E03_JPRB/) 
727  KAO( :, 2,11, 3) = (/&  
728  & 2.0015E05_JPRB,2.0390E04_JPRB,3.1274E04_JPRB,4.0248E04_JPRB,4.8157E04_JPRB,5.3553E04_JPRB,&  
729 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.5000E04_JPRB,5.2592E04_JPRB,5.1327E04_JPRB,2.0930E03_JPRB/) 
730  KAO( :, 3,11, 3) = (/&  
731  & 3.0229E05_JPRB,2.5493E04_JPRB,3.8325E04_JPRB,4.8838E04_JPRB,5.7590E04_JPRB,6.3868E04_JPRB,&  
732 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.4952E04_JPRB,6.0329E04_JPRB,5.4354E04_JPRB,2.5341E03_JPRB/) 
733  KAO( :, 4,11, 3) = (/&  
734  & 4.5728E05_JPRB,3.2357E04_JPRB,4.7513E04_JPRB,5.9900E04_JPRB,7.0032E04_JPRB,7.7052E04_JPRB,&  
735 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.8160E04_JPRB,7.0364E04_JPRB,5.8867E04_JPRB,3.0110E03_JPRB/) 
736  KAO( :, 5,11, 3) = (/&  
737  & 6.8471E05_JPRB,4.1453E04_JPRB,5.9518E04_JPRB,7.3943E04_JPRB,8.5586E04_JPRB,9.3243E04_JPRB,&  
738 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.3985E04_JPRB,8.3888E04_JPRB,6.4004E04_JPRB,3.5144E03_JPRB/) 
739  KAO( :, 1,12, 3) = (/&  
740  & 1.1390E05_JPRB,1.3855E04_JPRB,2.1705E04_JPRB,2.8356E04_JPRB,3.4198E04_JPRB,3.8125E04_JPRB,&  
741 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.9897E04_JPRB,3.8701E04_JPRB,3.8428E04_JPRB,1.6202E03_JPRB/) 
742  KAO( :, 2,12, 3) = (/&  
743  & 1.6895E05_JPRB,1.7033E04_JPRB,2.6132E04_JPRB,3.3574E04_JPRB,4.0033E04_JPRB,4.4440E04_JPRB,&  
744 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.5547E04_JPRB,4.3453E04_JPRB,4.1795E04_JPRB,2.0056E03_JPRB/) 
745  KAO( :, 3,12, 3) = (/&  
746  & 2.5697E05_JPRB,2.1399E04_JPRB,3.2079E04_JPRB,4.0794E04_JPRB,4.8080E04_JPRB,5.3172E04_JPRB,&  
747 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.4015E04_JPRB,5.0131E04_JPRB,4.5062E04_JPRB,2.4356E03_JPRB/) 
748  KAO( :, 4,12, 3) = (/&  
749  & 3.9098E05_JPRB,2.7301E04_JPRB,3.9923E04_JPRB,5.0137E04_JPRB,5.8487E04_JPRB,6.4185E04_JPRB,&  
750 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.5190E04_JPRB,5.8598E04_JPRB,4.9100E04_JPRB,2.8992E03_JPRB/) 
751  KAO( :, 5,12, 3) = (/&  
752  & 5.8880E05_JPRB,3.5135E04_JPRB,5.0233E04_JPRB,6.2054E04_JPRB,7.1596E04_JPRB,7.7742E04_JPRB,&  
753 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.8406E04_JPRB,7.0089E04_JPRB,5.2975E04_JPRB,3.3853E03_JPRB/) 
754  KAO( :, 1,13, 3) = (/&  
755  & 9.3589E06_JPRB,1.1404E04_JPRB,1.7929E04_JPRB,2.3424E04_JPRB,2.8177E04_JPRB,3.1382E04_JPRB,&  
756 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.2887E04_JPRB,3.1939E04_JPRB,3.1782E04_JPRB,1.3712E03_JPRB/) 
757  KAO( :, 2,13, 3) = (/&  
758  & 1.3997E05_JPRB,1.4070E04_JPRB,2.1638E04_JPRB,2.7822E04_JPRB,3.3131E04_JPRB,3.6740E04_JPRB,&  
759 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.7618E04_JPRB,3.5875E04_JPRB,3.4257E04_JPRB,1.6948E03_JPRB/) 
760  KAO( :, 3,13, 3) = (/&  
761  & 2.1467E05_JPRB,1.7760E04_JPRB,2.6657E04_JPRB,3.3860E04_JPRB,3.9863E04_JPRB,4.4020E04_JPRB,&  
762 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.4774E04_JPRB,4.1503E04_JPRB,3.7387E04_JPRB,2.0555E03_JPRB/) 
763  KAO( :, 4,13, 3) = (/&  
764  & 3.2939E05_JPRB,2.2791E04_JPRB,3.3320E04_JPRB,4.1728E04_JPRB,4.8576E04_JPRB,5.3169E04_JPRB,&  
765 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.4072E04_JPRB,4.8718E04_JPRB,4.1358E04_JPRB,2.4418E03_JPRB/) 
766  KAO( :, 5,13, 3) = (/&  
767  & 5.0038E05_JPRB,2.9443E04_JPRB,4.2080E04_JPRB,5.1807E04_JPRB,5.9619E04_JPRB,6.4532E04_JPRB,&  
768 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.5035E04_JPRB,5.8360E04_JPRB,4.3228E04_JPRB,2.8426E03_JPRB/) 
769  KAO( :, 1, 1, 4) = (/&  
770  & 1.3959E03_JPRB,5.9922E03_JPRB,8.2316E03_JPRB,9.8059E03_JPRB,1.0613E02_JPRB,1.0620E02_JPRB,&  
771 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0007E02_JPRB,8.7254E03_JPRB,5.9465E03_JPRB,5.3438E03_JPRB/) 
772  KAO( :, 2, 1, 4) = (/&  
773  & 1.8497E03_JPRB,7.5460E03_JPRB,1.0203E02_JPRB,1.1955E02_JPRB,1.2786E02_JPRB,1.2712E02_JPRB,&  
774 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1856E02_JPRB,1.0291E02_JPRB,7.1447E03_JPRB,6.1713E03_JPRB/) 
775  KAO( :, 3, 1, 4) = (/&  
776  & 2.4455E03_JPRB,9.3977E03_JPRB,1.2548E02_JPRB,1.4434E02_JPRB,1.5252E02_JPRB,1.5095E02_JPRB,&  
777 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3989E02_JPRB,1.2066E02_JPRB,8.3510E03_JPRB,7.1167E03_JPRB/) 
778  KAO( :, 4, 1, 4) = (/&  
779  & 3.2093E03_JPRB,1.1523E02_JPRB,1.5232E02_JPRB,1.7235E02_JPRB,1.8051E02_JPRB,1.7818E02_JPRB,&  
780 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.6407E02_JPRB,1.4008E02_JPRB,9.7059E03_JPRB,8.2637E03_JPRB/) 
781  KAO( :, 5, 1, 4) = (/&  
782  & 4.1640E03_JPRB,1.3947E02_JPRB,1.8138E02_JPRB,2.0353E02_JPRB,2.1133E02_JPRB,2.0847E02_JPRB,&  
783 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9064E02_JPRB,1.6182E02_JPRB,1.1218E02_JPRB,9.5219E03_JPRB/) 
784  KAO( :, 1, 2, 4) = (/&  
785  & 1.1784E03_JPRB,4.8259E03_JPRB,6.5824E03_JPRB,7.8076E03_JPRB,8.3997E03_JPRB,8.4013E03_JPRB,&  
786 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.9589E03_JPRB,6.9035E03_JPRB,4.7972E03_JPRB,4.1536E03_JPRB/) 
787  KAO( :, 2, 2, 4) = (/&  
788  & 1.5660E03_JPRB,6.0867E03_JPRB,8.2146E03_JPRB,9.5892E03_JPRB,1.0197E02_JPRB,1.0118E02_JPRB,&  
789 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.4816E03_JPRB,8.1710E03_JPRB,5.7311E03_JPRB,4.7856E03_JPRB/) 
790  KAO( :, 3, 2, 4) = (/&  
791  & 2.0771E03_JPRB,7.6156E03_JPRB,1.0151E02_JPRB,1.1655E02_JPRB,1.2244E02_JPRB,1.2103E02_JPRB,&  
792 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1249E02_JPRB,9.6217E03_JPRB,6.7053E03_JPRB,5.5268E03_JPRB/) 
793  KAO( :, 4, 2, 4) = (/&  
794  & 2.7371E03_JPRB,9.3986E03_JPRB,1.2362E02_JPRB,1.3996E02_JPRB,1.4573E02_JPRB,1.4394E02_JPRB,&  
795 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3273E02_JPRB,1.1249E02_JPRB,7.8082E03_JPRB,6.4145E03_JPRB/) 
796  KAO( :, 5, 2, 4) = (/&  
797  & 3.5707E03_JPRB,1.1441E02_JPRB,1.4782E02_JPRB,1.6569E02_JPRB,1.7185E02_JPRB,1.6953E02_JPRB,&  
798 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5517E02_JPRB,1.3078E02_JPRB,9.0555E03_JPRB,7.4094E03_JPRB/) 
799  KAO( :, 1, 3, 4) = (/&  
800  & 9.3612E04_JPRB,3.7181E03_JPRB,5.0390E03_JPRB,5.9502E03_JPRB,6.3679E03_JPRB,6.3786E03_JPRB,&  
801 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.0698E03_JPRB,5.2727E03_JPRB,3.7120E03_JPRB,3.2201E03_JPRB/) 
802  KAO( :, 2, 3, 4) = (/&  
803  & 1.2490E03_JPRB,4.6957E03_JPRB,6.3176E03_JPRB,7.3745E03_JPRB,7.7966E03_JPRB,7.7361E03_JPRB,&  
804 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.2751E03_JPRB,6.2746E03_JPRB,4.4490E03_JPRB,3.6844E03_JPRB/) 
805  KAO( :, 3, 3, 4) = (/&  
806  & 1.6672E03_JPRB,5.9017E03_JPRB,7.8487E03_JPRB,9.0223E03_JPRB,9.4573E03_JPRB,9.3283E03_JPRB,&  
807 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.6995E03_JPRB,7.4301E03_JPRB,5.1895E03_JPRB,4.2405E03_JPRB/) 
808  KAO( :, 4, 3, 4) = (/&  
809  & 2.2134E03_JPRB,7.3371E03_JPRB,9.6281E03_JPRB,1.0911E02_JPRB,1.1346E02_JPRB,1.1187E02_JPRB,&  
810 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0343E02_JPRB,8.7520E03_JPRB,6.1061E03_JPRB,4.8883E03_JPRB/) 
811  KAO( :, 5, 3, 4) = (/&  
812  & 2.9080E03_JPRB,9.0078E03_JPRB,1.1596E02_JPRB,1.2990E02_JPRB,1.3474E02_JPRB,1.3306E02_JPRB,&  
813 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2200E02_JPRB,1.0250E02_JPRB,7.0746E03_JPRB,5.6394E03_JPRB/) 
814  KAO( :, 1, 4, 4) = (/&  
815  & 7.2899E04_JPRB,2.8358E03_JPRB,3.8166E03_JPRB,4.4649E03_JPRB,4.7605E03_JPRB,4.7776E03_JPRB,&  
816 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.5645E03_JPRB,3.9905E03_JPRB,2.8172E03_JPRB,2.5259E03_JPRB/) 
817  KAO( :, 2, 4, 4) = (/&  
818  & 9.7562E04_JPRB,3.5858E03_JPRB,4.8000E03_JPRB,5.5643E03_JPRB,5.8729E03_JPRB,5.8345E03_JPRB,&  
819 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.5106E03_JPRB,4.7660E03_JPRB,3.3369E03_JPRB,2.8747E03_JPRB/) 
820  KAO( :, 3, 4, 4) = (/&  
821  & 1.3110E03_JPRB,4.5252E03_JPRB,5.9861E03_JPRB,6.8654E03_JPRB,7.1912E03_JPRB,7.0898E03_JPRB,&  
822 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.6257E03_JPRB,5.6788E03_JPRB,3.9467E03_JPRB,3.3017E03_JPRB/) 
823  KAO( :, 4, 4, 4) = (/&  
824  & 1.7535E03_JPRB,5.6592E03_JPRB,7.3895E03_JPRB,8.3600E03_JPRB,8.7028E03_JPRB,8.5726E03_JPRB,&  
825 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.9544E03_JPRB,6.7413E03_JPRB,4.7023E03_JPRB,3.7920E03_JPRB/) 
826  KAO( :, 5, 4, 4) = (/&  
827  & 2.3234E03_JPRB,7.0001E03_JPRB,8.9795E03_JPRB,1.0033E02_JPRB,1.0407E02_JPRB,1.0269E02_JPRB,&  
828 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.4690E03_JPRB,7.9455E03_JPRB,5.4450E03_JPRB,4.3729E03_JPRB/) 
829  KAO( :, 1, 5, 4) = (/&  
830  & 5.6650E04_JPRB,2.1549E03_JPRB,2.8964E03_JPRB,3.3619E03_JPRB,3.5664E03_JPRB,3.5841E03_JPRB,&  
831 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.4323E03_JPRB,3.0201E03_JPRB,2.2575E03_JPRB,2.0547E03_JPRB/) 
832  KAO( :, 2, 5, 4) = (/&  
833  & 7.5923E04_JPRB,2.7449E03_JPRB,3.6494E03_JPRB,4.2010E03_JPRB,4.4180E03_JPRB,4.3953E03_JPRB,&  
834 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.1675E03_JPRB,3.6219E03_JPRB,2.5473E03_JPRB,2.3046E03_JPRB/) 
835  KAO( :, 3, 5, 4) = (/&  
836  & 1.0253E03_JPRB,3.4834E03_JPRB,4.5686E03_JPRB,5.2069E03_JPRB,5.4481E03_JPRB,5.3758E03_JPRB,&  
837 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.0408E03_JPRB,4.3359E03_JPRB,3.0162E03_JPRB,2.6195E03_JPRB/) 
838  KAO( :, 4, 5, 4) = (/&  
839  & 1.3801E03_JPRB,4.3804E03_JPRB,5.6725E03_JPRB,6.3841E03_JPRB,6.6485E03_JPRB,6.5457E03_JPRB,&  
840 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.0914E03_JPRB,5.1828E03_JPRB,3.5636E03_JPRB,2.9971E03_JPRB/) 
841  KAO( :, 5, 5, 4) = (/&  
842  & 1.8434E03_JPRB,5.4391E03_JPRB,6.9434E03_JPRB,7.7307E03_JPRB,8.0143E03_JPRB,7.8901E03_JPRB,&  
843 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.3072E03_JPRB,6.1548E03_JPRB,4.1784E03_JPRB,3.4508E03_JPRB/) 
844  KAO( :, 1, 6, 4) = (/&  
845  & 4.3479E04_JPRB,1.6105E03_JPRB,2.1624E03_JPRB,2.5048E03_JPRB,2.6629E03_JPRB,2.6833E03_JPRB,&  
846 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.5738E03_JPRB,2.2737E03_JPRB,1.8606E03_JPRB,1.7234E03_JPRB/) 
847  KAO( :, 2, 6, 4) = (/&  
848  & 5.8233E04_JPRB,2.0650E03_JPRB,2.7444E03_JPRB,3.1464E03_JPRB,3.3112E03_JPRB,3.2967E03_JPRB,&  
849 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.1292E03_JPRB,2.7330E03_JPRB,1.9142E03_JPRB,1.9183E03_JPRB/) 
850  KAO( :, 3, 6, 4) = (/&  
851  & 7.8843E04_JPRB,2.6457E03_JPRB,3.4646E03_JPRB,3.9221E03_JPRB,4.0954E03_JPRB,4.0443E03_JPRB,&  
852 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.8065E03_JPRB,3.2872E03_JPRB,2.2472E03_JPRB,2.1603E03_JPRB/) 
853  KAO( :, 4, 6, 4) = (/&  
854  & 1.0676E03_JPRB,3.3599E03_JPRB,4.3294E03_JPRB,4.8406E03_JPRB,5.0306E03_JPRB,4.9525E03_JPRB,&  
855 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.6235E03_JPRB,3.9530E03_JPRB,2.6778E03_JPRB,2.4636E03_JPRB/) 
856  KAO( :, 5, 6, 4) = (/&  
857  & 1.4360E03_JPRB,4.2028E03_JPRB,5.3355E03_JPRB,5.9075E03_JPRB,6.1148E03_JPRB,6.0070E03_JPRB,&  
858 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.5779E03_JPRB,4.7305E03_JPRB,3.1938E03_JPRB,2.8201E03_JPRB/) 
859  KAO( :, 1, 7, 4) = (/&  
860  & 3.3066E04_JPRB,1.1921E03_JPRB,1.5997E03_JPRB,1.8508E03_JPRB,1.9750E03_JPRB,2.0065E03_JPRB,&  
861 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9362E03_JPRB,1.7121E03_JPRB,1.5102E03_JPRB,1.4755E03_JPRB/) 
862  KAO( :, 2, 7, 4) = (/&  
863  & 4.4251E04_JPRB,1.5399E03_JPRB,2.0431E03_JPRB,2.3386E03_JPRB,2.4693E03_JPRB,2.4731E03_JPRB,&  
864 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.3559E03_JPRB,2.0619E03_JPRB,1.5167E03_JPRB,1.6278E03_JPRB/) 
865  KAO( :, 3, 7, 4) = (/&  
866  & 5.9954E04_JPRB,1.9895E03_JPRB,2.5996E03_JPRB,2.9389E03_JPRB,3.0769E03_JPRB,3.0449E03_JPRB,&  
867 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.8696E03_JPRB,2.4854E03_JPRB,1.7100E03_JPRB,1.8261E03_JPRB/) 
868  KAO( :, 4, 7, 4) = (/&  
869  & 8.1539E04_JPRB,2.5548E03_JPRB,3.2831E03_JPRB,3.6604E03_JPRB,3.8004E03_JPRB,3.7406E03_JPRB,&  
870 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.5004E03_JPRB,3.0009E03_JPRB,2.0185E03_JPRB,2.0723E03_JPRB/) 
871  KAO( :, 5, 7, 4) = (/&  
872  & 1.1035E03_JPRB,3.2299E03_JPRB,4.0851E03_JPRB,4.5054E03_JPRB,4.6506E03_JPRB,4.5636E03_JPRB,&  
873 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.2458E03_JPRB,3.6170E03_JPRB,2.4150E03_JPRB,2.3689E03_JPRB/) 
874  KAO( :, 1, 8, 4) = (/&  
875  & 2.4824E04_JPRB,8.7576E04_JPRB,1.1750E03_JPRB,1.3620E03_JPRB,1.4591E03_JPRB,1.4944E03_JPRB,&  
876 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4530E03_JPRB,1.3016E03_JPRB,1.2362E03_JPRB,1.3815E03_JPRB/) 
877  KAO( :, 2, 8, 4) = (/&  
878  & 3.3230E04_JPRB,1.1390E03_JPRB,1.5103E03_JPRB,1.7306E03_JPRB,1.8323E03_JPRB,1.8454E03_JPRB,&  
879 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7715E03_JPRB,1.5588E03_JPRB,1.2567E03_JPRB,1.5241E03_JPRB/) 
880  KAO( :, 3, 8, 4) = (/&  
881  & 4.5036E04_JPRB,1.4833E03_JPRB,1.9397E03_JPRB,2.1911E03_JPRB,2.2984E03_JPRB,2.2843E03_JPRB,&  
882 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.1644E03_JPRB,1.8786E03_JPRB,1.3010E03_JPRB,1.7047E03_JPRB/) 
883  KAO( :, 4, 8, 4) = (/&  
884  & 6.1425E04_JPRB,1.9258E03_JPRB,2.4736E03_JPRB,2.7526E03_JPRB,2.8618E03_JPRB,2.8208E03_JPRB,&  
885 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.6474E03_JPRB,2.2738E03_JPRB,1.4977E03_JPRB,1.9231E03_JPRB/) 
886  KAO( :, 5, 8, 4) = (/&  
887  & 8.3579E04_JPRB,2.4677E03_JPRB,3.1100E03_JPRB,3.4209E03_JPRB,3.5321E03_JPRB,3.4664E03_JPRB,&  
888 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.2302E03_JPRB,2.7529E03_JPRB,1.8211E03_JPRB,2.1802E03_JPRB/) 
889  KAO( :, 1, 9, 4) = (/&  
890  & 1.8648E04_JPRB,6.4213E04_JPRB,8.6248E04_JPRB,1.0018E03_JPRB,1.0759E03_JPRB,1.1114E03_JPRB,&  
891 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0893E03_JPRB,9.9064E04_JPRB,9.8753E04_JPRB,1.8775E03_JPRB/) 
892  KAO( :, 2, 9, 4) = (/&  
893  & 2.4931E04_JPRB,8.3843E04_JPRB,1.1135E03_JPRB,1.2777E03_JPRB,1.3549E03_JPRB,1.3735E03_JPRB,&  
894 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3267E03_JPRB,1.1784E03_JPRB,1.0225E03_JPRB,2.0725E03_JPRB/) 
895  KAO( :, 3, 9, 4) = (/&  
896  & 3.3739E04_JPRB,1.0997E03_JPRB,1.4388E03_JPRB,1.6275E03_JPRB,1.7095E03_JPRB,1.7064E03_JPRB,&  
897 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.6276E03_JPRB,1.4244E03_JPRB,1.0196E03_JPRB,2.3196E03_JPRB/) 
898  KAO( :, 4, 9, 4) = (/&  
899  & 4.6000E04_JPRB,1.4414E03_JPRB,1.8531E03_JPRB,2.0634E03_JPRB,2.1453E03_JPRB,2.1162E03_JPRB,&  
900 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9970E03_JPRB,1.7248E03_JPRB,1.1677E03_JPRB,2.6078E03_JPRB/) 
901  KAO( :, 5, 9, 4) = (/&  
902  & 6.2819E04_JPRB,1.8702E03_JPRB,2.3574E03_JPRB,2.5903E03_JPRB,2.6704E03_JPRB,2.6214E03_JPRB,&  
903 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.4477E03_JPRB,2.0914E03_JPRB,1.3608E03_JPRB,2.9294E03_JPRB/) 
904  KAO( :, 1,10, 4) = (/&  
905  & 1.4307E04_JPRB,4.7989E04_JPRB,6.4527E04_JPRB,7.5154E04_JPRB,8.0960E04_JPRB,8.4090E04_JPRB,&  
906 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.3086E04_JPRB,7.6874E04_JPRB,8.2863E04_JPRB,3.6347E03_JPRB/) 
907  KAO( :, 2,10, 4) = (/&  
908  & 1.9105E04_JPRB,6.2858E04_JPRB,8.3500E04_JPRB,9.5991E04_JPRB,1.0185E03_JPRB,1.0393E03_JPRB,&  
909 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0095E03_JPRB,9.0118E04_JPRB,8.3114E04_JPRB,4.2294E03_JPRB/) 
910  KAO( :, 3,10, 4) = (/&  
911  & 2.5819E04_JPRB,8.2975E04_JPRB,1.0848E03_JPRB,1.2290E03_JPRB,1.2908E03_JPRB,1.2943E03_JPRB,&  
912 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2407E03_JPRB,1.0947E03_JPRB,8.4507E04_JPRB,4.7942E03_JPRB/) 
913  KAO( :, 4,10, 4) = (/&  
914  & 3.5175E04_JPRB,1.0966E03_JPRB,1.4090E03_JPRB,1.5695E03_JPRB,1.6301E03_JPRB,1.6125E03_JPRB,&  
915 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5271E03_JPRB,1.3244E03_JPRB,8.9574E04_JPRB,5.3326E03_JPRB/) 
916  KAO( :, 5,10, 4) = (/&  
917  & 4.8140E04_JPRB,1.4355E03_JPRB,1.8096E03_JPRB,1.9894E03_JPRB,2.0475E03_JPRB,2.0080E03_JPRB,&  
918 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.8768E03_JPRB,1.6118E03_JPRB,1.0323E03_JPRB,5.8712E03_JPRB/) 
919  KAO( :, 1,11, 4) = (/&  
920  & 1.2480E04_JPRB,4.0651E04_JPRB,5.4317E04_JPRB,6.3057E04_JPRB,6.7711E04_JPRB,7.0124E04_JPRB,&  
921 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.9230E04_JPRB,6.3637E04_JPRB,6.7480E04_JPRB,4.4748E03_JPRB/) 
922  KAO( :, 2,11, 4) = (/&  
923  & 1.6789E04_JPRB,5.3657E04_JPRB,7.0675E04_JPRB,8.0798E04_JPRB,8.5575E04_JPRB,8.7116E04_JPRB,&  
924 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.4422E04_JPRB,7.5306E04_JPRB,6.8219E04_JPRB,5.2484E03_JPRB/) 
925  KAO( :, 3,11, 4) = (/&  
926  & 2.2748E04_JPRB,7.1324E04_JPRB,9.2430E04_JPRB,1.0391E03_JPRB,1.0880E03_JPRB,1.0885E03_JPRB,&  
927 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0414E03_JPRB,9.1761E04_JPRB,6.9310E04_JPRB,5.9997E03_JPRB/) 
928  KAO( :, 4,11, 4) = (/&  
929  & 3.1100E04_JPRB,9.4662E04_JPRB,1.2062E03_JPRB,1.3345E03_JPRB,1.3806E03_JPRB,1.3616E03_JPRB,&  
930 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2842E03_JPRB,1.1132E03_JPRB,7.5183E04_JPRB,6.7275E03_JPRB/) 
931  KAO( :, 5,11, 4) = (/&  
932  & 4.2632E04_JPRB,1.2375E03_JPRB,1.5507E03_JPRB,1.6996E03_JPRB,1.7428E03_JPRB,1.7046E03_JPRB,&  
933 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5835E03_JPRB,1.3580E03_JPRB,8.6852E04_JPRB,7.4572E03_JPRB/) 
934  KAO( :, 1,12, 4) = (/&  
935  & 1.0738E04_JPRB,3.4370E04_JPRB,4.5561E04_JPRB,5.2712E04_JPRB,5.6512E04_JPRB,5.8418E04_JPRB,&  
936 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.7608E04_JPRB,5.2824E04_JPRB,5.5584E04_JPRB,4.5229E03_JPRB/) 
937  KAO( :, 2,12, 4) = (/&  
938  & 1.4509E04_JPRB,4.5719E04_JPRB,5.9628E04_JPRB,6.7809E04_JPRB,7.1697E04_JPRB,7.2848E04_JPRB,&  
939 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.0565E04_JPRB,6.2997E04_JPRB,5.6436E04_JPRB,5.3156E03_JPRB/) 
940  KAO( :, 3,12, 4) = (/&  
941  & 1.9783E04_JPRB,6.1167E04_JPRB,7.8481E04_JPRB,8.7764E04_JPRB,9.1476E04_JPRB,9.1298E04_JPRB,&  
942 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.7252E04_JPRB,7.6652E04_JPRB,5.7011E04_JPRB,6.0757E03_JPRB/) 
943  KAO( :, 4,12, 4) = (/&  
944  & 2.7192E04_JPRB,8.1173E04_JPRB,1.0265E03_JPRB,1.1333E03_JPRB,1.1680E03_JPRB,1.1490E03_JPRB,&  
945 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0784E03_JPRB,9.3361E04_JPRB,6.2718E04_JPRB,6.8113E03_JPRB/) 
946  KAO( :, 5,12, 4) = (/&  
947  & 3.7397E04_JPRB,1.0598E03_JPRB,1.3197E03_JPRB,1.4449E03_JPRB,1.4799E03_JPRB,1.4465E03_JPRB,&  
948 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3362E03_JPRB,1.1407E03_JPRB,7.2415E04_JPRB,7.5425E03_JPRB/) 
949  KAO( :, 1,13, 4) = (/&  
950  & 8.9292E05_JPRB,2.8719E04_JPRB,3.7864E04_JPRB,4.3694E04_JPRB,4.6878E04_JPRB,4.8461E04_JPRB,&  
951 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.7788E04_JPRB,4.3842E04_JPRB,4.5719E04_JPRB,3.8416E03_JPRB/) 
952  KAO( :, 2,13, 4) = (/&  
953  & 1.2149E04_JPRB,3.8537E04_JPRB,4.9918E04_JPRB,5.6557E04_JPRB,5.9698E04_JPRB,6.0549E04_JPRB,&  
954 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.8708E04_JPRB,5.2472E04_JPRB,4.6787E04_JPRB,4.4931E03_JPRB/) 
955  KAO( :, 3,13, 4) = (/&  
956  & 1.6719E04_JPRB,5.1756E04_JPRB,6.6044E04_JPRB,7.3666E04_JPRB,7.6591E04_JPRB,7.6260E04_JPRB,&  
957 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.2753E04_JPRB,6.3867E04_JPRB,4.6954E04_JPRB,5.0961E03_JPRB/) 
958  KAO( :, 4,13, 4) = (/&  
959  & 2.3161E04_JPRB,6.8759E04_JPRB,8.6435E04_JPRB,9.5388E04_JPRB,9.8295E04_JPRB,9.6568E04_JPRB,&  
960 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.0300E04_JPRB,7.7979E04_JPRB,5.2227E04_JPRB,5.6855E03_JPRB/) 
961  KAO( :, 5,13, 4) = (/&  
962  & 3.2057E04_JPRB,8.9923E04_JPRB,1.1130E03_JPRB,1.2171E03_JPRB,1.2465E03_JPRB,1.2193E03_JPRB,&  
963 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1245E03_JPRB,9.5521E04_JPRB,6.0646E04_JPRB,6.2875E03_JPRB/) 
964  KAO( :, 1, 1, 5) = (/&  
965  & 7.8581E03_JPRB,1.6359E02_JPRB,1.8747E02_JPRB,1.9104E02_JPRB,1.8493E02_JPRB,1.7453E02_JPRB,&  
966 
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.

11  & 1.6124E02_JPRB,1.4436E02_JPRB,9.9634E03_JPRB,9.0266E03_JPRB/) 
967  
968 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART3',1,ZHOOK_HANDLE) 
969  1  END SUBROUTINE PART3  
970  
971  
972  1  SUBROUTINE PART4  
973  
974  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
975 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART4',0,ZHOOK_HANDLE) 
976  
977  
978  KAO( :, 2, 1, 5) = (/&  
979  & 1.0248E02_JPRB,1.9930E02_JPRB,2.2543E02_JPRB,2.2901E02_JPRB,2.2187E02_JPRB,2.0954E02_JPRB,&  
980 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9379E02_JPRB,1.7194E02_JPRB,1.1961E02_JPRB,1.0706E02_JPRB/) 
981  KAO( :, 3, 1, 5) = (/&  
982  & 1.3096E02_JPRB,2.3888E02_JPRB,2.6739E02_JPRB,2.7195E02_JPRB,2.6433E02_JPRB,2.4936E02_JPRB,&  
983 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.3046E02_JPRB,2.0295E02_JPRB,1.4106E02_JPRB,1.2544E02_JPRB/) 
984  KAO( :, 4, 1, 5) = (/&  
985  & 1.6338E02_JPRB,2.8329E02_JPRB,3.1500E02_JPRB,3.2047E02_JPRB,3.1151E02_JPRB,2.9395E02_JPRB,&  
986 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.7258E02_JPRB,2.3909E02_JPRB,1.6479E02_JPRB,1.4541E02_JPRB/) 
987  KAO( :, 5, 1, 5) = (/&  
988  & 1.9905E02_JPRB,3.3267E02_JPRB,3.6925E02_JPRB,3.7523E02_JPRB,3.6460E02_JPRB,3.4480E02_JPRB,&  
989 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.1939E02_JPRB,2.7924E02_JPRB,1.9096E02_JPRB,1.6820E02_JPRB/) 
990  KAO( :, 1, 2, 5) = (/&  
991  & 6.5000E03_JPRB,1.3210E02_JPRB,1.5017E02_JPRB,1.5338E02_JPRB,1.4894E02_JPRB,1.4046E02_JPRB,&  
992 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2886E02_JPRB,1.1485E02_JPRB,7.8396E03_JPRB,6.9835E03_JPRB/) 
993  KAO( :, 2, 2, 5) = (/&  
994  & 8.5060E03_JPRB,1.6246E02_JPRB,1.8196E02_JPRB,1.8546E02_JPRB,1.7999E02_JPRB,1.6962E02_JPRB,&  
995 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5570E02_JPRB,1.3759E02_JPRB,9.5004E03_JPRB,8.2524E03_JPRB/) 
996  KAO( :, 3, 2, 5) = (/&  
997  & 1.0895E02_JPRB,1.9629E02_JPRB,2.1801E02_JPRB,2.2202E02_JPRB,2.1571E02_JPRB,2.0287E02_JPRB,&  
998 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.8619E02_JPRB,1.6336E02_JPRB,1.1311E02_JPRB,9.6763E03_JPRB/) 
999  KAO( :, 4, 2, 5) = (/&  
1000  & 1.3634E02_JPRB,2.3467E02_JPRB,2.5938E02_JPRB,2.6385E02_JPRB,2.5626E02_JPRB,2.4039E02_JPRB,&  
1001 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.2108E02_JPRB,1.9320E02_JPRB,1.3277E02_JPRB,1.1254E02_JPRB/) 
1002  KAO( :, 5, 2, 5) = (/&  
1003  & 1.6643E02_JPRB,2.7789E02_JPRB,3.0666E02_JPRB,3.1149E02_JPRB,3.0178E02_JPRB,2.8317E02_JPRB,&  
1004 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.6023E02_JPRB,2.2644E02_JPRB,1.5438E02_JPRB,1.3058E02_JPRB/) 
1005  KAO( :, 1, 3, 5) = (/&  
1006  & 5.1068E03_JPRB,1.0155E02_JPRB,1.1485E02_JPRB,1.1770E02_JPRB,1.1484E02_JPRB,1.0823E02_JPRB,&  
1007 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.8623E03_JPRB,8.7594E03_JPRB,5.9958E03_JPRB,5.2611E03_JPRB/) 
1008  KAO( :, 2, 3, 5) = (/&  
1009  & 6.6835E03_JPRB,1.2640E02_JPRB,1.4084E02_JPRB,1.4382E02_JPRB,1.4023E02_JPRB,1.3192E02_JPRB,&  
1010 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2012E02_JPRB,1.0560E02_JPRB,7.2917E03_JPRB,6.1864E03_JPRB/) 
1011  KAO( :, 3, 3, 5) = (/&  
1012  & 8.6033E03_JPRB,1.5444E02_JPRB,1.7069E02_JPRB,1.7437E02_JPRB,1.6940E02_JPRB,1.5900E02_JPRB,&  
1013 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4464E02_JPRB,1.2619E02_JPRB,8.8116E03_JPRB,7.2531E03_JPRB/) 
1014  KAO( :, 4, 3, 5) = (/&  
1015  & 1.0832E02_JPRB,1.8665E02_JPRB,2.0521E02_JPRB,2.0939E02_JPRB,2.0314E02_JPRB,1.9000E02_JPRB,&  
1016 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7289E02_JPRB,1.5015E02_JPRB,1.0355E02_JPRB,8.4725E03_JPRB/) 
1017  KAO( :, 5, 3, 5) = (/&  
1018  & 1.3328E02_JPRB,2.2307E02_JPRB,2.4508E02_JPRB,2.4967E02_JPRB,2.4135E02_JPRB,2.2494E02_JPRB,&  
1019 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.0482E02_JPRB,1.7714E02_JPRB,1.2161E02_JPRB,9.8543E03_JPRB/) 
1020  KAO( :, 1, 4, 5) = (/&  
1021  & 3.9695E03_JPRB,7.6818E03_JPRB,8.6331E03_JPRB,8.8728E03_JPRB,8.6847E03_JPRB,8.1743E03_JPRB,&  
1022 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.4171E03_JPRB,6.5733E03_JPRB,4.6756E03_JPRB,4.0395E03_JPRB/) 
1023  KAO( :, 2, 4, 5) = (/&  
1024  & 5.1871E03_JPRB,9.6669E03_JPRB,1.0730E02_JPRB,1.0984E02_JPRB,1.0727E02_JPRB,1.0079E02_JPRB,&  
1025 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.1130E03_JPRB,7.9640E03_JPRB,5.5230E03_JPRB,4.7457E03_JPRB/) 
1026  KAO( :, 3, 4, 5) = (/&  
1027  & 6.6872E03_JPRB,1.1936E02_JPRB,1.3150E02_JPRB,1.3447E02_JPRB,1.3090E02_JPRB,1.2266E02_JPRB,&  
1028 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1082E02_JPRB,9.5819E03_JPRB,6.7239E03_JPRB,5.5582E03_JPRB/) 
1029  KAO( :, 4, 4, 5) = (/&  
1030  & 8.4686E03_JPRB,1.4558E02_JPRB,1.5982E02_JPRB,1.6346E02_JPRB,1.5841E02_JPRB,1.4783E02_JPRB,&  
1031 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3331E02_JPRB,1.1473E02_JPRB,7.9455E03_JPRB,6.5009E03_JPRB/) 
1032  KAO( :, 5, 4, 5) = (/&  
1033  & 1.0530E02_JPRB,1.7532E02_JPRB,1.9245E02_JPRB,1.9697E02_JPRB,1.9021E02_JPRB,1.7663E02_JPRB,&  
1034 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5910E02_JPRB,1.3642E02_JPRB,9.4173E03_JPRB,7.5638E03_JPRB/) 
1035  KAO( :, 1, 5, 5) = (/&  
1036  & 3.1180E03_JPRB,5.8209E03_JPRB,6.4854E03_JPRB,6.6644E03_JPRB,6.5380E03_JPRB,6.1410E03_JPRB,&  
1037 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.5609E03_JPRB,4.9182E03_JPRB,3.5969E03_JPRB,3.1582E03_JPRB/) 
1038  KAO( :, 2, 5, 5) = (/&  
1039  & 4.0549E03_JPRB,7.3757E03_JPRB,8.1520E03_JPRB,8.3497E03_JPRB,8.1550E03_JPRB,7.6434E03_JPRB,&  
1040 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.8934E03_JPRB,5.9840E03_JPRB,4.1290E03_JPRB,3.6940E03_JPRB/) 
1041  KAO( :, 3, 5, 5) = (/&  
1042  & 5.2180E03_JPRB,9.1787E03_JPRB,1.0116E02_JPRB,1.0335E02_JPRB,1.0048E02_JPRB,9.4058E03_JPRB,&  
1043 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.4592E03_JPRB,7.2447E03_JPRB,5.0478E03_JPRB,4.3308E03_JPRB/) 
1044  KAO( :, 4, 5, 5) = (/&  
1045  & 6.6347E03_JPRB,1.1285E02_JPRB,1.2392E02_JPRB,1.2680E02_JPRB,1.2274E02_JPRB,1.1447E02_JPRB,&  
1046 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0271E02_JPRB,8.7310E03_JPRB,6.0849E03_JPRB,5.0691E03_JPRB/) 
1047  KAO( :, 5, 5, 5) = (/&  
1048  & 8.3131E03_JPRB,1.3706E02_JPRB,1.5023E02_JPRB,1.5394E02_JPRB,1.4880E02_JPRB,1.3810E02_JPRB,&  
1049 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2359E02_JPRB,1.0459E02_JPRB,7.2538E03_JPRB,5.9083E03_JPRB/) 
1050  KAO( :, 1, 6, 5) = (/&  
1051  & 2.4113E03_JPRB,4.4035E03_JPRB,4.8584E03_JPRB,4.9702E03_JPRB,4.8652E03_JPRB,4.5631E03_JPRB,&  
1052 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.1282E03_JPRB,3.6475E03_JPRB,2.6495E03_JPRB,2.6380E03_JPRB/) 
1053  KAO( :, 2, 6, 5) = (/&  
1054  & 3.1417E03_JPRB,5.6041E03_JPRB,6.1552E03_JPRB,6.2788E03_JPRB,6.1209E03_JPRB,5.7279E03_JPRB,&  
1055 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.1621E03_JPRB,4.4647E03_JPRB,3.1333E03_JPRB,3.0490E03_JPRB/) 
1056  KAO( :, 3, 6, 5) = (/&  
1057  & 4.0523E03_JPRB,7.0107E03_JPRB,7.6974E03_JPRB,7.8556E03_JPRB,7.6249E03_JPRB,7.1228E03_JPRB,&  
1058 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.3982E03_JPRB,5.4412E03_JPRB,3.7354E03_JPRB,3.5351E03_JPRB/) 
1059  KAO( :, 4, 6, 5) = (/&  
1060  & 5.1735E03_JPRB,8.6714E03_JPRB,9.5046E03_JPRB,9.7062E03_JPRB,9.3937E03_JPRB,8.7514E03_JPRB,&  
1061 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.8427E03_JPRB,6.5998E03_JPRB,4.6231E03_JPRB,4.0931E03_JPRB/) 
1062  KAO( :, 5, 6, 5) = (/&  
1063  & 6.5266E03_JPRB,1.0615E02_JPRB,1.1603E02_JPRB,1.1862E02_JPRB,1.1470E02_JPRB,1.0665E02_JPRB,&  
1064 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.5307E03_JPRB,7.9589E03_JPRB,5.4908E03_JPRB,4.7354E03_JPRB/) 
1065  KAO( :, 1, 7, 5) = (/&  
1066  & 1.8313E03_JPRB,3.2981E03_JPRB,3.6334E03_JPRB,3.7067E03_JPRB,3.6201E03_JPRB,3.3912E03_JPRB,&  
1067 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.0679E03_JPRB,2.7066E03_JPRB,2.0241E03_JPRB,2.2554E03_JPRB/) 
1068  KAO( :, 2, 7, 5) = (/&  
1069  & 2.3976E03_JPRB,4.2444E03_JPRB,4.6442E03_JPRB,4.7217E03_JPRB,4.5915E03_JPRB,4.2847E03_JPRB,&  
1070 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.8546E03_JPRB,3.3328E03_JPRB,2.4081E03_JPRB,2.5954E03_JPRB/) 
1071  KAO( :, 3, 7, 5) = (/&  
1072  & 3.1184E03_JPRB,5.3559E03_JPRB,5.8460E03_JPRB,5.9451E03_JPRB,5.7583E03_JPRB,5.3717E03_JPRB,&  
1073 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.8180E03_JPRB,4.0888E03_JPRB,2.7879E03_JPRB,3.0032E03_JPRB/) 
1074  KAO( :, 4, 7, 5) = (/&  
1075  & 4.0216E03_JPRB,6.6605E03_JPRB,7.2700E03_JPRB,7.4007E03_JPRB,7.1549E03_JPRB,6.6561E03_JPRB,&  
1076 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.9599E03_JPRB,4.9929E03_JPRB,3.4384E03_JPRB,3.4860E03_JPRB/) 
1077  KAO( :, 5, 7, 5) = (/&  
1078  & 5.1206E03_JPRB,8.2127E03_JPRB,8.9364E03_JPRB,9.0944E03_JPRB,8.7960E03_JPRB,8.1717E03_JPRB,&  
1079 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.3059E03_JPRB,6.0651E03_JPRB,4.1362E03_JPRB,4.0383E03_JPRB/) 
1080  KAO( :, 1, 8, 5) = (/&  
1081  & 1.3678E03_JPRB,2.4344E03_JPRB,2.6771E03_JPRB,2.7314E03_JPRB,2.6764E03_JPRB,2.5199E03_JPRB,&  
1082 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.2892E03_JPRB,2.0146E03_JPRB,1.5158E03_JPRB,2.0717E03_JPRB/) 
1083  KAO( :, 2, 8, 5) = (/&  
1084  & 1.7986E03_JPRB,3.1721E03_JPRB,3.4698E03_JPRB,3.5325E03_JPRB,3.4383E03_JPRB,3.2125E03_JPRB,&  
1085 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.8853E03_JPRB,2.4940E03_JPRB,1.7790E03_JPRB,2.3653E03_JPRB/) 
1086  KAO( :, 3, 8, 5) = (/&  
1087  & 2.3644E03_JPRB,4.0587E03_JPRB,4.4194E03_JPRB,4.4912E03_JPRB,4.3505E03_JPRB,4.0574E03_JPRB,&  
1088 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.6294E03_JPRB,3.0753E03_JPRB,2.0908E03_JPRB,2.7075E03_JPRB/) 
1089  KAO( :, 4, 8, 5) = (/&  
1090  & 3.0885E03_JPRB,5.1052E03_JPRB,5.5511E03_JPRB,5.6359E03_JPRB,5.4460E03_JPRB,5.0617E03_JPRB,&  
1091 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.5202E03_JPRB,3.7834E03_JPRB,2.5293E03_JPRB,3.1178E03_JPRB/) 
1092  KAO( :, 5, 8, 5) = (/&  
1093  & 3.9843E03_JPRB,6.3521E03_JPRB,6.8780E03_JPRB,6.9729E03_JPRB,6.7374E03_JPRB,6.2484E03_JPRB,&  
1094 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.5746E03_JPRB,4.6304E03_JPRB,3.1216E03_JPRB,3.5944E03_JPRB/) 
1095  KAO( :, 1, 9, 5) = (/&  
1096  & 1.0180E03_JPRB,1.7808E03_JPRB,1.9513E03_JPRB,1.9917E03_JPRB,1.9571E03_JPRB,1.8568E03_JPRB,&  
1097 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7034E03_JPRB,1.5143E03_JPRB,1.2324E03_JPRB,2.9566E03_JPRB/) 
1098  KAO( :, 2, 9, 5) = (/&  
1099  & 1.3409E03_JPRB,2.3491E03_JPRB,2.5644E03_JPRB,2.6103E03_JPRB,2.5515E03_JPRB,2.3969E03_JPRB,&  
1100 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.1596E03_JPRB,1.8679E03_JPRB,1.3632E03_JPRB,3.3317E03_JPRB/) 
1101  KAO( :, 3, 9, 5) = (/&  
1102  & 1.7770E03_JPRB,3.0450E03_JPRB,3.3094E03_JPRB,3.3641E03_JPRB,3.2693E03_JPRB,3.0590E03_JPRB,&  
1103 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.7358E03_JPRB,2.3083E03_JPRB,1.6204E03_JPRB,3.7464E03_JPRB/) 
1104  KAO( :, 4, 9, 5) = (/&  
1105  & 2.3520E03_JPRB,3.8805E03_JPRB,4.2090E03_JPRB,4.2722E03_JPRB,4.1362E03_JPRB,3.8521E03_JPRB,&  
1106 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.4256E03_JPRB,2.8568E03_JPRB,1.8732E03_JPRB,4.2061E03_JPRB/) 
1107  KAO( :, 5, 9, 5) = (/&  
1108  & 3.0729E03_JPRB,4.8855E03_JPRB,5.2770E03_JPRB,5.3379E03_JPRB,5.1589E03_JPRB,4.7790E03_JPRB,&  
1109 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.2478E03_JPRB,3.5241E03_JPRB,2.3400E03_JPRB,4.7374E03_JPRB/) 
1110  KAO( :, 1,10, 5) = (/&  
1111  & 7.7253E04_JPRB,1.3219E03_JPRB,1.4421E03_JPRB,1.4740E03_JPRB,1.4539E03_JPRB,1.3876E03_JPRB,&  
1112 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2853E03_JPRB,1.1567E03_JPRB,1.0022E03_JPRB,6.8847E03_JPRB/) 
1113  KAO( :, 2,10, 5) = (/&  
1114  & 1.0173E03_JPRB,1.7625E03_JPRB,1.9200E03_JPRB,1.9559E03_JPRB,1.9175E03_JPRB,1.8087E03_JPRB,&  
1115 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.6367E03_JPRB,1.4242E03_JPRB,1.0394E03_JPRB,7.5328E03_JPRB/) 
1116  KAO( :, 3,10, 5) = (/&  
1117  & 1.3564E03_JPRB,2.3122E03_JPRB,2.5093E03_JPRB,2.5497E03_JPRB,2.4848E03_JPRB,2.3312E03_JPRB,&  
1118 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.0902E03_JPRB,1.7668E03_JPRB,1.2230E03_JPRB,8.3126E03_JPRB/) 
1119  KAO( :, 4,10, 5) = (/&  
1120  & 1.8134E03_JPRB,2.9832E03_JPRB,3.2264E03_JPRB,3.2755E03_JPRB,3.1788E03_JPRB,2.9672E03_JPRB,&  
1121 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.6373E03_JPRB,2.1956E03_JPRB,1.4206E03_JPRB,9.1949E03_JPRB/) 
1122  KAO( :, 5,10, 5) = (/&  
1123  & 2.3982E03_JPRB,3.8024E03_JPRB,4.0921E03_JPRB,4.1370E03_JPRB,4.0025E03_JPRB,3.7132E03_JPRB,&  
1124 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.2913E03_JPRB,2.7187E03_JPRB,1.7437E03_JPRB,1.0174E02_JPRB/) 
1125  KAO( :, 1,11, 5) = (/&  
1126  & 6.6311E04_JPRB,1.1233E03_JPRB,1.2219E03_JPRB,1.2485E03_JPRB,1.2298E03_JPRB,1.1731E03_JPRB,&  
1127 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0818E03_JPRB,9.6812E04_JPRB,8.2277E04_JPRB,9.1151E03_JPRB/) 
1128  KAO( :, 2,11, 5) = (/&  
1129  & 8.7961E04_JPRB,1.5044E03_JPRB,1.6329E03_JPRB,1.6631E03_JPRB,1.6279E03_JPRB,1.5346E03_JPRB,&  
1130 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3878E03_JPRB,1.1990E03_JPRB,8.6844E04_JPRB,9.9636E03_JPRB/) 
1131  KAO( :, 3,11, 5) = (/&  
1132  & 1.1836E03_JPRB,1.9811E03_JPRB,2.1444E03_JPRB,2.1783E03_JPRB,2.1211E03_JPRB,1.9859E03_JPRB,&  
1133 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7780E03_JPRB,1.4952E03_JPRB,1.0190E03_JPRB,1.0941E02_JPRB/) 
1134  KAO( :, 4,11, 5) = (/&  
1135  & 1.5905E03_JPRB,2.5713E03_JPRB,2.7694E03_JPRB,2.8087E03_JPRB,2.7235E03_JPRB,2.5357E03_JPRB,&  
1136 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.2512E03_JPRB,1.8676E03_JPRB,1.1718E03_JPRB,1.2060E02_JPRB/) 
1137  KAO( :, 5,11, 5) = (/&  
1138  & 2.1118E03_JPRB,3.3009E03_JPRB,3.5298E03_JPRB,3.5548E03_JPRB,3.4369E03_JPRB,3.1821E03_JPRB,&  
1139 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.8194E03_JPRB,2.3141E03_JPRB,1.4442E03_JPRB,1.3285E02_JPRB/) 
1140  KAO( :, 1,12, 5) = (/&  
1141  & 5.6477E04_JPRB,9.5054E04_JPRB,1.0327E03_JPRB,1.0546E03_JPRB,1.0374E03_JPRB,9.8870E04_JPRB,&  
1142 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.0992E04_JPRB,8.0701E04_JPRB,6.7076E04_JPRB,9.4607E03_JPRB/) 
1143  KAO( :, 2,12, 5) = (/&  
1144  & 7.5728E04_JPRB,1.2785E03_JPRB,1.3875E03_JPRB,1.4113E03_JPRB,1.3782E03_JPRB,1.2986E03_JPRB,&  
1145 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1731E03_JPRB,1.0074E03_JPRB,7.2589E04_JPRB,1.0331E02_JPRB/) 
1146  KAO( :, 3,12, 5) = (/&  
1147  & 1.0261E03_JPRB,1.6921E03_JPRB,1.8295E03_JPRB,1.8570E03_JPRB,1.8051E03_JPRB,1.6888E03_JPRB,&  
1148 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5086E03_JPRB,1.2626E03_JPRB,8.4339E04_JPRB,1.1368E02_JPRB/) 
1149  KAO( :, 4,12, 5) = (/&  
1150  & 1.3869E03_JPRB,2.2095E03_JPRB,2.3736E03_JPRB,2.4008E03_JPRB,2.3247E03_JPRB,2.1615E03_JPRB,&  
1151 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9167E03_JPRB,1.5821E03_JPRB,9.6809E04_JPRB,1.2545E02_JPRB/) 
1152  KAO( :, 5,12, 5) = (/&  
1153  & 1.8434E03_JPRB,2.8588E03_JPRB,3.0424E03_JPRB,3.0524E03_JPRB,2.9442E03_JPRB,2.7194E03_JPRB,&  
1154 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.4068E03_JPRB,1.9656E03_JPRB,1.2057E03_JPRB,1.3846E02_JPRB/) 
1155  KAO( :, 1,13, 5) = (/&  
1156  & 4.7278E04_JPRB,7.9552E04_JPRB,8.6502E04_JPRB,8.8337E04_JPRB,8.6881E04_JPRB,8.2802E04_JPRB,&  
1157 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.6164E04_JPRB,6.7146E04_JPRB,5.4706E04_JPRB,7.8912E03_JPRB/) 
1158  KAO( :, 2,13, 5) = (/&  
1159  & 6.4178E04_JPRB,1.0759E03_JPRB,1.1686E03_JPRB,1.1883E03_JPRB,1.1601E03_JPRB,1.0935E03_JPRB,&  
1160 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.8725E04_JPRB,8.4294E04_JPRB,6.0294E04_JPRB,8.6805E03_JPRB/) 
1161  KAO( :, 3,13, 5) = (/&  
1162  & 8.7757E04_JPRB,1.4325E03_JPRB,1.5486E03_JPRB,1.5698E03_JPRB,1.5267E03_JPRB,1.4283E03_JPRB,&  
1163 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2744E03_JPRB,1.0604E03_JPRB,6.9497E04_JPRB,9.6337E03_JPRB/) 
1164  KAO( :, 4,13, 5) = (/&  
1165  & 1.1912E03_JPRB,1.8857E03_JPRB,2.0225E03_JPRB,2.0388E03_JPRB,1.9725E03_JPRB,1.8334E03_JPRB,&  
1166 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.6247E03_JPRB,1.3326E03_JPRB,8.0026E04_JPRB,1.0694E02_JPRB/) 
1167  KAO( :, 5,13, 5) = (/&  
1168  & 1.5846E03_JPRB,2.4545E03_JPRB,2.6070E03_JPRB,2.6093E03_JPRB,2.5111E03_JPRB,2.3151E03_JPRB,&  
1169 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.0441E03_JPRB,1.6606E03_JPRB,1.0091E03_JPRB,1.1828E02_JPRB/) 
1170  KAO( :, 1, 1, 6) = (/&  
1171  & 2.7778E02_JPRB,3.3405E02_JPRB,3.5267E02_JPRB,3.6006E02_JPRB,3.5898E02_JPRB,3.4553E02_JPRB,&  
1172 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.1100E02_JPRB,2.5014E02_JPRB,1.8094E02_JPRB,1.6794E02_JPRB/) 
1173  KAO( :, 2, 1, 6) = (/&  
1174  & 3.3366E02_JPRB,4.0235E02_JPRB,4.2608E02_JPRB,4.3370E02_JPRB,4.2914E02_JPRB,4.1247E02_JPRB,&  
1175 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.7064E02_JPRB,2.9946E02_JPRB,2.1940E02_JPRB,2.0091E02_JPRB/) 
1176  KAO( :, 3, 1, 6) = (/&  
1177  & 3.9476E02_JPRB,4.7919E02_JPRB,5.0670E02_JPRB,5.1321E02_JPRB,5.0664E02_JPRB,4.8610E02_JPRB,&  
1178 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.3793E02_JPRB,3.5486E02_JPRB,2.6228E02_JPRB,2.3816E02_JPRB/) 
1179  KAO( :, 4, 1, 6) = (/&  
1180  & 4.6165E02_JPRB,5.6406E02_JPRB,5.9353E02_JPRB,6.0117E02_JPRB,5.9468E02_JPRB,5.6918E02_JPRB,&  
1181 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.1329E02_JPRB,4.1643E02_JPRB,3.1155E02_JPRB,2.8224E02_JPRB/) 
1182  KAO( :, 5, 1, 6) = (/&  
1183  & 5.3590E02_JPRB,6.5676E02_JPRB,6.8956E02_JPRB,6.9882E02_JPRB,6.9299E02_JPRB,6.6139E02_JPRB,&  
1184 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.9733E02_JPRB,4.8638E02_JPRB,3.6701E02_JPRB,3.3219E02_JPRB/) 
1185  KAO( :, 1, 2, 6) = (/&  
1186  & 2.2559E02_JPRB,2.7654E02_JPRB,2.9015E02_JPRB,2.9337E02_JPRB,2.9078E02_JPRB,2.7937E02_JPRB,&  
1187 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.5189E02_JPRB,2.0404E02_JPRB,1.4144E02_JPRB,1.2909E02_JPRB/) 
1188  KAO( :, 2, 2, 6) = (/&  
1189  & 2.7361E02_JPRB,3.3523E02_JPRB,3.5340E02_JPRB,3.5540E02_JPRB,3.5037E02_JPRB,3.3575E02_JPRB,&  
1190 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.0234E02_JPRB,2.4558E02_JPRB,1.7358E02_JPRB,1.5458E02_JPRB/) 
1191  KAO( :, 3, 2, 6) = (/&  
1192  & 3.2702E02_JPRB,4.0222E02_JPRB,4.2266E02_JPRB,4.2370E02_JPRB,4.1690E02_JPRB,3.9887E02_JPRB,&  
1193 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.5945E02_JPRB,2.9242E02_JPRB,2.0872E02_JPRB,1.8389E02_JPRB/) 
1194  KAO( :, 4, 2, 6) = (/&  
1195  & 3.8698E02_JPRB,4.7703E02_JPRB,4.9874E02_JPRB,5.0037E02_JPRB,4.9234E02_JPRB,4.7000E02_JPRB,&  
1196 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.2355E02_JPRB,3.4462E02_JPRB,2.4936E02_JPRB,2.1874E02_JPRB/) 
1197  KAO( :, 5, 2, 6) = (/&  
1198  & 4.5406E02_JPRB,5.5864E02_JPRB,5.8250E02_JPRB,5.8611E02_JPRB,5.7701E02_JPRB,5.4940E02_JPRB,&  
1199 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.9541E02_JPRB,4.0425E02_JPRB,2.9498E02_JPRB,2.5824E02_JPRB/) 
1200  KAO( :, 1, 3, 6) = (/&  
1201  & 1.7492E02_JPRB,2.1787E02_JPRB,2.2652E02_JPRB,2.2750E02_JPRB,2.2453E02_JPRB,2.1534E02_JPRB,&  
1202 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9495E02_JPRB,1.5819E02_JPRB,1.0602E02_JPRB,9.5365E03_JPRB/) 
1203  KAO( :, 2, 3, 6) = (/&  
1204  & 2.1519E02_JPRB,2.6731E02_JPRB,2.7902E02_JPRB,2.7864E02_JPRB,2.7355E02_JPRB,2.6151E02_JPRB,&  
1205 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.3624E02_JPRB,1.9184E02_JPRB,1.3144E02_JPRB,1.1427E02_JPRB/) 
1206  KAO( :, 3, 3, 6) = (/&  
1207  & 2.6104E02_JPRB,3.2391E02_JPRB,3.3736E02_JPRB,3.3545E02_JPRB,3.2846E02_JPRB,3.1374E02_JPRB,&  
1208 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.8297E02_JPRB,2.2996E02_JPRB,1.5964E02_JPRB,1.3632E02_JPRB/) 
1209  KAO( :, 4, 3, 6) = (/&  
1210  & 3.1327E02_JPRB,3.8767E02_JPRB,4.0227E02_JPRB,3.9993E02_JPRB,3.9114E02_JPRB,3.7263E02_JPRB,&  
1211 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.3562E02_JPRB,2.7293E02_JPRB,1.9234E02_JPRB,1.6283E02_JPRB/) 
1212  KAO( :, 5, 3, 6) = (/&  
1213  & 3.7182E02_JPRB,4.5791E02_JPRB,4.7452E02_JPRB,4.7270E02_JPRB,4.6211E02_JPRB,4.3900E02_JPRB,&  
1214 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.9502E02_JPRB,3.2188E02_JPRB,2.2900E02_JPRB,1.9326E02_JPRB/) 
1215  KAO( :, 1, 4, 6) = (/&  
1216  & 1.3291E02_JPRB,1.6678E02_JPRB,1.7275E02_JPRB,1.7278E02_JPRB,1.6993E02_JPRB,1.6286E02_JPRB,&  
1217 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4822E02_JPRB,1.1990E02_JPRB,7.7579E03_JPRB,7.1488E03_JPRB/) 
1218  KAO( :, 2, 4, 6) = (/&  
1219  & 1.6630E02_JPRB,2.0815E02_JPRB,2.1568E02_JPRB,2.1440E02_JPRB,2.0973E02_JPRB,2.0006E02_JPRB,&  
1220 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.8126E02_JPRB,1.4654E02_JPRB,9.8329E03_JPRB,8.5205E03_JPRB/) 
1221  KAO( :, 3, 4, 6) = (/&  
1222  & 2.0444E02_JPRB,2.5553E02_JPRB,2.6397E02_JPRB,2.6132E02_JPRB,2.5471E02_JPRB,2.4223E02_JPRB,&  
1223 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.1910E02_JPRB,1.7722E02_JPRB,1.2155E02_JPRB,1.0148E02_JPRB/) 
1224  KAO( :, 4, 4, 6) = (/&  
1225  & 2.4887E02_JPRB,3.0959E02_JPRB,3.1847E02_JPRB,3.1469E02_JPRB,3.0641E02_JPRB,2.9051E02_JPRB,&  
1226 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.6190E02_JPRB,2.1212E02_JPRB,1.4767E02_JPRB,1.2110E02_JPRB/) 
1227  KAO( :, 5, 4, 6) = (/&  
1228  & 2.9912E02_JPRB,3.7010E02_JPRB,3.8031E02_JPRB,3.7546E02_JPRB,3.6509E02_JPRB,3.4523E02_JPRB,&  
1229 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.1009E02_JPRB,2.5164E02_JPRB,1.7705E02_JPRB,1.4427E02_JPRB/) 
1230  KAO( :, 1, 5, 6) = (/&  
1231  & 1.0066E02_JPRB,1.2668E02_JPRB,1.3071E02_JPRB,1.3029E02_JPRB,1.2765E02_JPRB,1.2217E02_JPRB,&  
1232 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1148E02_JPRB,9.0021E03_JPRB,5.7587E03_JPRB,5.4209E03_JPRB/) 
1233  KAO( :, 2, 5, 6) = (/&  
1234  & 1.2757E02_JPRB,1.6015E02_JPRB,1.6544E02_JPRB,1.6397E02_JPRB,1.5990E02_JPRB,1.5234E02_JPRB,&  
1235 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3789E02_JPRB,1.1105E02_JPRB,7.3967E03_JPRB,6.5046E03_JPRB/) 
1236  KAO( :, 3, 5, 6) = (/&  
1237  & 1.5901E02_JPRB,1.9963E02_JPRB,2.0508E02_JPRB,2.0254E02_JPRB,1.9682E02_JPRB,1.8644E02_JPRB,&  
1238 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.6821E02_JPRB,1.3552E02_JPRB,9.2356E03_JPRB,7.7811E03_JPRB/) 
1239  KAO( :, 4, 5, 6) = (/&  
1240  & 1.9596E02_JPRB,2.4499E02_JPRB,2.5082E02_JPRB,2.4696E02_JPRB,2.3936E02_JPRB,2.2580E02_JPRB,&  
1241 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.0269E02_JPRB,1.6344E02_JPRB,1.1321E02_JPRB,9.3163E03_JPRB/) 
1242  KAO( :, 5, 5, 6) = (/&  
1243  & 2.3830E02_JPRB,2.9650E02_JPRB,3.0334E02_JPRB,2.9811E02_JPRB,2.8792E02_JPRB,2.7070E02_JPRB,&  
1244 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.4166E02_JPRB,1.9536E02_JPRB,1.3665E02_JPRB,1.1111E02_JPRB/) 
1245  KAO( :, 1, 6, 6) = (/&  
1246  & 7.6087E03_JPRB,9.4951E03_JPRB,9.7649E03_JPRB,9.6943E03_JPRB,9.4691E03_JPRB,9.0311E03_JPRB,&  
1247 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.2249E03_JPRB,6.6528E03_JPRB,4.3378E03_JPRB,4.2627E03_JPRB/) 
1248  KAO( :, 2, 6, 6) = (/&  
1249  & 9.7029E03_JPRB,1.2146E02_JPRB,1.2495E02_JPRB,1.2394E02_JPRB,1.2047E02_JPRB,1.1438E02_JPRB,&  
1250 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0329E02_JPRB,8.2946E03_JPRB,5.4267E03_JPRB,5.0549E03_JPRB/) 
1251  KAO( :, 3, 6, 6) = (/&  
1252  & 1.2241E02_JPRB,1.5353E02_JPRB,1.5729E02_JPRB,1.5534E02_JPRB,1.5039E02_JPRB,1.4188E02_JPRB,&  
1253 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2727E02_JPRB,1.0218E02_JPRB,6.8803E03_JPRB,6.0223E03_JPRB/) 
1254  KAO( :, 4, 6, 6) = (/&  
1255  & 1.5222E02_JPRB,1.9088E02_JPRB,1.9504E02_JPRB,1.9213E02_JPRB,1.8550E02_JPRB,1.7379E02_JPRB,&  
1256 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5483E02_JPRB,1.2434E02_JPRB,8.5170E03_JPRB,7.2084E03_JPRB/) 
1257  KAO( :, 5, 6, 6) = (/&  
1258  & 1.8677E02_JPRB,2.3384E02_JPRB,2.3892E02_JPRB,2.3510E02_JPRB,2.2581E02_JPRB,2.1034E02_JPRB,&  
1259 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.8630E02_JPRB,1.4980E02_JPRB,1.0415E02_JPRB,8.6059E03_JPRB/) 
1260  KAO( :, 1, 7, 6) = (/&  
1261  & 5.7827E03_JPRB,7.1313E03_JPRB,7.2802E03_JPRB,7.2045E03_JPRB,6.9954E03_JPRB,6.6269E03_JPRB,&  
1262 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.0097E03_JPRB,4.8731E03_JPRB,3.1264E03_JPRB,3.7137E03_JPRB/) 
1263  KAO( :, 2, 7, 6) = (/&  
1264  & 7.4084E03_JPRB,9.1887E03_JPRB,9.4000E03_JPRB,9.3096E03_JPRB,9.0304E03_JPRB,8.5190E03_JPRB,&  
1265 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.6733E03_JPRB,6.1525E03_JPRB,3.9263E03_JPRB,4.3944E03_JPRB/) 
1266  KAO( :, 3, 7, 6) = (/&  
1267  & 9.4040E03_JPRB,1.1717E02_JPRB,1.1976E02_JPRB,1.1835E02_JPRB,1.1434E02_JPRB,1.0726E02_JPRB,&  
1268 
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.

11  & 9.5804E03_JPRB,7.6627E03_JPRB,5.0656E03_JPRB,5.1961E03_JPRB/) 
1269  
1270 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART4',1,ZHOOK_HANDLE) 
1271  1  END SUBROUTINE PART4  
1272  
1273  
1274  1  SUBROUTINE PART5  
1275  
1276  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
1277 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART5',0,ZHOOK_HANDLE) 
1278  
1279  
1280  KAO( :, 4, 7, 6) = (/&  
1281  & 1.1772E02_JPRB,1.4730E02_JPRB,1.5048E02_JPRB,1.4854E02_JPRB,1.4302E02_JPRB,1.3320E02_JPRB,&  
1282 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1779E02_JPRB,9.4074E03_JPRB,6.3725E03_JPRB,6.1249E03_JPRB/) 
1283  KAO( :, 5, 7, 6) = (/&  
1284  & 1.4533E02_JPRB,1.8234E02_JPRB,1.8652E02_JPRB,1.8417E02_JPRB,1.7654E02_JPRB,1.6319E02_JPRB,&  
1285 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4317E02_JPRB,1.1422E02_JPRB,7.8881E03_JPRB,7.1931E03_JPRB/) 
1286  KAO( :, 1, 8, 6) = (/&  
1287  & 4.3473E03_JPRB,5.3530E03_JPRB,5.4453E03_JPRB,5.3772E03_JPRB,5.1866E03_JPRB,4.8647E03_JPRB,&  
1288 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.3808E03_JPRB,3.5559E03_JPRB,2.4173E03_JPRB,3.5108E03_JPRB/) 
1289  KAO( :, 2, 8, 6) = (/&  
1290  & 5.6534E03_JPRB,6.9608E03_JPRB,7.0942E03_JPRB,6.9933E03_JPRB,6.7489E03_JPRB,6.3330E03_JPRB,&  
1291 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.6745E03_JPRB,4.5520E03_JPRB,2.9081E03_JPRB,4.1180E03_JPRB/) 
1292  KAO( :, 3, 8, 6) = (/&  
1293  & 7.2231E03_JPRB,8.9492E03_JPRB,9.1155E03_JPRB,8.9772E03_JPRB,8.6519E03_JPRB,8.0865E03_JPRB,&  
1294 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.1842E03_JPRB,5.7298E03_JPRB,3.7126E03_JPRB,4.8510E03_JPRB/) 
1295  KAO( :, 4, 8, 6) = (/&  
1296  & 9.0980E03_JPRB,1.1325E02_JPRB,1.1554E02_JPRB,1.1402E02_JPRB,1.0960E02_JPRB,1.0182E02_JPRB,&  
1297 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.9521E03_JPRB,7.1103E03_JPRB,4.7399E03_JPRB,5.6880E03_JPRB/) 
1298  KAO( :, 5, 8, 6) = (/&  
1299  & 1.1302E02_JPRB,1.4121E02_JPRB,1.4457E02_JPRB,1.4302E02_JPRB,1.3709E02_JPRB,1.2644E02_JPRB,&  
1300 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1007E02_JPRB,8.6993E03_JPRB,5.9281E03_JPRB,6.6436E03_JPRB/) 
1301  KAO( :, 1, 9, 6) = (/&  
1302  & 3.2166E03_JPRB,3.9635E03_JPRB,4.0421E03_JPRB,3.9936E03_JPRB,3.8441E03_JPRB,3.5923E03_JPRB,&  
1303 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.2097E03_JPRB,2.5886E03_JPRB,1.7693E03_JPRB,5.0615E03_JPRB/) 
1304  KAO( :, 2, 9, 6) = (/&  
1305  & 4.2551E03_JPRB,5.2496E03_JPRB,5.3431E03_JPRB,5.2633E03_JPRB,5.0543E03_JPRB,4.7090E03_JPRB,&  
1306 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.1979E03_JPRB,3.3556E03_JPRB,2.0811E03_JPRB,5.7517E03_JPRB/) 
1307  KAO( :, 3, 9, 6) = (/&  
1308  & 5.5178E03_JPRB,6.8310E03_JPRB,6.9481E03_JPRB,6.8181E03_JPRB,6.5340E03_JPRB,6.0733E03_JPRB,&  
1309 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.3775E03_JPRB,4.2779E03_JPRB,2.6744E03_JPRB,6.5436E03_JPRB/) 
1310  KAO( :, 4, 9, 6) = (/&  
1311  & 7.0233E03_JPRB,8.7120E03_JPRB,8.8693E03_JPRB,8.7209E03_JPRB,8.3514E03_JPRB,7.7376E03_JPRB,&  
1312 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.7992E03_JPRB,5.3653E03_JPRB,3.4836E03_JPRB,7.4458E03_JPRB/) 
1313  KAO( :, 5, 9, 6) = (/&  
1314  & 8.7908E03_JPRB,1.0935E02_JPRB,1.1156E02_JPRB,1.1011E02_JPRB,1.0551E02_JPRB,9.7377E03_JPRB,&  
1315 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.4643E03_JPRB,6.6157E03_JPRB,4.4105E03_JPRB,8.4131E03_JPRB/) 
1316  KAO( :, 1,10, 6) = (/&  
1317  & 2.4036E03_JPRB,2.9626E03_JPRB,3.0270E03_JPRB,2.9891E03_JPRB,2.8783E03_JPRB,2.6966E03_JPRB,&  
1318 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.4167E03_JPRB,1.9384E03_JPRB,1.2950E03_JPRB,1.2580E02_JPRB/) 
1319  KAO( :, 2,10, 6) = (/&  
1320  & 3.2304E03_JPRB,3.9936E03_JPRB,4.0696E03_JPRB,4.0063E03_JPRB,3.8441E03_JPRB,3.5817E03_JPRB,&  
1321 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.1841E03_JPRB,2.5258E03_JPRB,1.6318E03_JPRB,1.3867E02_JPRB/) 
1322  KAO( :, 3,10, 6) = (/&  
1323  & 4.2450E03_JPRB,5.2713E03_JPRB,5.3717E03_JPRB,5.2683E03_JPRB,5.0339E03_JPRB,4.6625E03_JPRB,&  
1324 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.1091E03_JPRB,3.2509E03_JPRB,2.0065E03_JPRB,1.5204E02_JPRB/) 
1325  KAO( :, 4,10, 6) = (/&  
1326  & 5.4744E03_JPRB,6.8064E03_JPRB,6.9238E03_JPRB,6.7912E03_JPRB,6.4905E03_JPRB,5.9838E03_JPRB,&  
1327 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.2439E03_JPRB,4.1188E03_JPRB,2.6002E03_JPRB,1.6652E02_JPRB/) 
1328  KAO( :, 5,10, 6) = (/&  
1329  & 6.9353E03_JPRB,8.6079E03_JPRB,8.7635E03_JPRB,8.6181E03_JPRB,8.2349E03_JPRB,7.5886E03_JPRB,&  
1330 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.5994E03_JPRB,5.1192E03_JPRB,3.3239E03_JPRB,1.8251E02_JPRB/) 
1331  KAO( :, 1,11, 6) = (/&  
1332  & 2.0648E03_JPRB,2.5481E03_JPRB,2.6000E03_JPRB,2.5607E03_JPRB,2.4630E03_JPRB,2.3069E03_JPRB,&  
1333 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.0692E03_JPRB,1.6562E03_JPRB,1.0860E03_JPRB,1.7049E02_JPRB/) 
1334  KAO( :, 2,11, 6) = (/&  
1335  & 2.7859E03_JPRB,3.4547E03_JPRB,3.5237E03_JPRB,3.4594E03_JPRB,3.3142E03_JPRB,3.0841E03_JPRB,&  
1336 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.7345E03_JPRB,2.1584E03_JPRB,1.3341E03_JPRB,1.8747E02_JPRB/) 
1337  KAO( :, 3,11, 6) = (/&  
1338  & 3.6773E03_JPRB,4.5764E03_JPRB,4.6633E03_JPRB,4.5751E03_JPRB,4.3721E03_JPRB,4.0405E03_JPRB,&  
1339 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.5419E03_JPRB,2.7771E03_JPRB,1.6730E03_JPRB,2.0460E02_JPRB/) 
1340  KAO( :, 4,11, 6) = (/&  
1341  & 4.7645E03_JPRB,5.9262E03_JPRB,6.0301E03_JPRB,5.9104E03_JPRB,5.6462E03_JPRB,5.2017E03_JPRB,&  
1342 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.5306E03_JPRB,3.5163E03_JPRB,2.1775E03_JPRB,2.2225E02_JPRB/) 
1343  KAO( :, 5,11, 6) = (/&  
1344  & 6.0673E03_JPRB,7.5194E03_JPRB,7.6592E03_JPRB,7.5146E03_JPRB,7.1608E03_JPRB,6.5750E03_JPRB,&  
1345 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.6954E03_JPRB,4.3877E03_JPRB,2.7878E03_JPRB,2.4112E02_JPRB/) 
1346  KAO( :, 1,12, 6) = (/&  
1347  & 1.7649E03_JPRB,2.1840E03_JPRB,2.2273E03_JPRB,2.1894E03_JPRB,2.1029E03_JPRB,1.9647E03_JPRB,&  
1348 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7570E03_JPRB,1.4092E03_JPRB,9.0612E04_JPRB,1.8116E02_JPRB/) 
1349  KAO( :, 2,12, 6) = (/&  
1350  & 2.3911E03_JPRB,2.9721E03_JPRB,3.0306E03_JPRB,2.9776E03_JPRB,2.8514E03_JPRB,2.6450E03_JPRB,&  
1351 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.3351E03_JPRB,1.8424E03_JPRB,1.0968E03_JPRB,1.9929E02_JPRB/) 
1352  KAO( :, 3,12, 6) = (/&  
1353  & 3.1732E03_JPRB,3.9503E03_JPRB,4.0215E03_JPRB,3.9440E03_JPRB,3.7721E03_JPRB,3.4863E03_JPRB,&  
1354 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.0465E03_JPRB,2.3738E03_JPRB,1.3931E03_JPRB,2.1707E02_JPRB/) 
1355  KAO( :, 4,12, 6) = (/&  
1356  & 4.1329E03_JPRB,5.1374E03_JPRB,5.2226E03_JPRB,5.1161E03_JPRB,4.8827E03_JPRB,4.4950E03_JPRB,&  
1357 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.9019E03_JPRB,3.0106E03_JPRB,1.8199E03_JPRB,2.3542E02_JPRB/) 
1358  KAO( :, 5,12, 6) = (/&  
1359  & 5.2972E03_JPRB,6.5406E03_JPRB,6.6636E03_JPRB,6.5319E03_JPRB,6.2060E03_JPRB,5.6779E03_JPRB,&  
1360 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.9006E03_JPRB,3.7653E03_JPRB,2.3340E03_JPRB,2.5478E02_JPRB/) 
1361  KAO( :, 1,13, 6) = (/&  
1362  & 1.4917E03_JPRB,1.8531E03_JPRB,1.8920E03_JPRB,1.8620E03_JPRB,1.7861E03_JPRB,1.6617E03_JPRB,&  
1363 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4788E03_JPRB,1.1873E03_JPRB,7.5550E04_JPRB,1.5444E02_JPRB/) 
1364  KAO( :, 2,13, 6) = (/&  
1365  & 2.0333E03_JPRB,2.5348E03_JPRB,2.5838E03_JPRB,2.5408E03_JPRB,2.4328E03_JPRB,2.2514E03_JPRB,&  
1366 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9783E03_JPRB,1.5611E03_JPRB,9.0187E04_JPRB,1.7015E02_JPRB/) 
1367  KAO( :, 3,13, 6) = (/&  
1368  & 2.7153E03_JPRB,3.3873E03_JPRB,3.4439E03_JPRB,3.3763E03_JPRB,3.2264E03_JPRB,2.9750E03_JPRB,&  
1369 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.5932E03_JPRB,2.0239E03_JPRB,1.1597E03_JPRB,1.8564E02_JPRB/) 
1370  KAO( :, 4,13, 6) = (/&  
1371  & 3.5625E03_JPRB,4.4244E03_JPRB,4.4971E03_JPRB,4.4025E03_JPRB,4.1909E03_JPRB,3.8436E03_JPRB,&  
1372 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.3277E03_JPRB,2.5719E03_JPRB,1.5159E03_JPRB,2.0176E02_JPRB/) 
1373  KAO( :, 5,13, 6) = (/&  
1374  & 4.5915E03_JPRB,5.6599E03_JPRB,5.7629E03_JPRB,5.6406E03_JPRB,5.3423E03_JPRB,4.8700E03_JPRB,&  
1375 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.1907E03_JPRB,3.2171E03_JPRB,1.9497E03_JPRB,2.1913E02_JPRB/) 
1376  KAO( :, 1, 1, 7) = (/&  
1377  & 6.4013E02_JPRB,7.3559E02_JPRB,7.8016E02_JPRB,7.8110E02_JPRB,7.4963E02_JPRB,6.8933E02_JPRB,&  
1378 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.0750E02_JPRB,4.8875E02_JPRB,3.9308E02_JPRB,3.6560E02_JPRB/) 
1379  KAO( :, 2, 1, 7) = (/&  
1380  & 7.6363E02_JPRB,8.7960E02_JPRB,9.3559E02_JPRB,9.3979E02_JPRB,9.0734E02_JPRB,8.3349E02_JPRB,&  
1381 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.3192E02_JPRB,5.8774E02_JPRB,4.7441E02_JPRB,4.4036E02_JPRB/) 
1382  KAO( :, 3, 1, 7) = (/&  
1383  & 8.9758E02_JPRB,1.0331E01_JPRB,1.1051E01_JPRB,1.1169E01_JPRB,1.0769E01_JPRB,9.8679E02_JPRB,&  
1384 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.6726E02_JPRB,6.9819E02_JPRB,5.6655E02_JPRB,5.2675E02_JPRB/) 
1385  KAO( :, 4, 1, 7) = (/&  
1386  & 1.0433E01_JPRB,1.2008E01_JPRB,1.2928E01_JPRB,1.3105E01_JPRB,1.2576E01_JPRB,1.1544E01_JPRB,&  
1387 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0166E01_JPRB,8.2241E02_JPRB,6.7142E02_JPRB,6.2520E02_JPRB/) 
1388  KAO( :, 5, 1, 7) = (/&  
1389  & 1.2001E01_JPRB,1.3824E01_JPRB,1.4932E01_JPRB,1.5158E01_JPRB,1.4526E01_JPRB,1.3374E01_JPRB,&  
1390 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1804E01_JPRB,9.5951E02_JPRB,7.9016E02_JPRB,7.3734E02_JPRB/) 
1391  KAO( :, 1, 2, 7) = (/&  
1392  & 5.2968E02_JPRB,6.2116E02_JPRB,6.5835E02_JPRB,6.6044E02_JPRB,6.3294E02_JPRB,5.8161E02_JPRB,&  
1393 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.1176E02_JPRB,4.1393E02_JPRB,3.1133E02_JPRB,2.8255E02_JPRB/) 
1394  KAO( :, 2, 2, 7) = (/&  
1395  & 6.3728E02_JPRB,7.4899E02_JPRB,7.9536E02_JPRB,8.0057E02_JPRB,7.7101E02_JPRB,7.0839E02_JPRB,&  
1396 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.2175E02_JPRB,5.0108E02_JPRB,3.7798E02_JPRB,3.4182E02_JPRB/) 
1397  KAO( :, 3, 2, 7) = (/&  
1398  & 7.5532E02_JPRB,8.8572E02_JPRB,9.4648E02_JPRB,9.5700E02_JPRB,9.1973E02_JPRB,8.4443E02_JPRB,&  
1399 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.4085E02_JPRB,5.9918E02_JPRB,4.5429E02_JPRB,4.1069E02_JPRB/) 
1400  KAO( :, 4, 2, 7) = (/&  
1401  & 8.8404E02_JPRB,1.0356E01_JPRB,1.1124E01_JPRB,1.1259E01_JPRB,1.0798E01_JPRB,9.9246E02_JPRB,&  
1402 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.7373E02_JPRB,7.0993E02_JPRB,5.4110E02_JPRB,4.8926E02_JPRB/) 
1403  KAO( :, 5, 2, 7) = (/&  
1404  & 1.0235E01_JPRB,1.2010E01_JPRB,1.2926E01_JPRB,1.3064E01_JPRB,1.2537E01_JPRB,1.1556E01_JPRB,&  
1405 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0208E01_JPRB,8.3206E02_JPRB,6.4030E02_JPRB,5.7947E02_JPRB/) 
1406  KAO( :, 1, 3, 7) = (/&  
1407  & 4.1735E02_JPRB,4.9803E02_JPRB,5.2741E02_JPRB,5.2657E02_JPRB,5.0249E02_JPRB,4.6113E02_JPRB,&  
1408 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.0588E02_JPRB,3.2986E02_JPRB,2.3522E02_JPRB,2.0886E02_JPRB/) 
1409  KAO( :, 2, 3, 7) = (/&  
1410  & 5.0841E02_JPRB,6.0757E02_JPRB,6.4389E02_JPRB,6.4564E02_JPRB,6.1844E02_JPRB,5.6795E02_JPRB,&  
1411 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.9854E02_JPRB,4.0407E02_JPRB,2.8855E02_JPRB,2.5442E02_JPRB/) 
1412  KAO( :, 3, 3, 7) = (/&  
1413  & 6.0889E02_JPRB,7.2603E02_JPRB,7.7334E02_JPRB,7.7876E02_JPRB,7.4574E02_JPRB,6.8388E02_JPRB,&  
1414 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.0037E02_JPRB,4.8827E02_JPRB,3.5004E02_JPRB,3.0751E02_JPRB/) 
1415  KAO( :, 4, 3, 7) = (/&  
1416  & 7.1992E02_JPRB,8.5675E02_JPRB,9.1634E02_JPRB,9.2233E02_JPRB,8.8356E02_JPRB,8.1063E02_JPRB,&  
1417 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.1397E02_JPRB,5.8371E02_JPRB,4.1972E02_JPRB,3.6821E02_JPRB/) 
1418  KAO( :, 5, 3, 7) = (/&  
1419  & 8.4144E02_JPRB,1.0019E01_JPRB,1.0713E01_JPRB,1.0774E01_JPRB,1.0345E01_JPRB,9.5140E02_JPRB,&  
1420 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.4076E02_JPRB,6.8896E02_JPRB,4.9944E02_JPRB,4.3832E02_JPRB/) 
1421  KAO( :, 1, 4, 7) = (/&  
1422  & 3.2154E02_JPRB,3.8970E02_JPRB,4.1150E02_JPRB,4.0802E02_JPRB,3.8734E02_JPRB,3.5463E02_JPRB,&  
1423 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.1189E02_JPRB,2.5441E02_JPRB,1.7426E02_JPRB,1.5348E02_JPRB/) 
1424  KAO( :, 2, 4, 7) = (/&  
1425  & 3.9739E02_JPRB,4.8115E02_JPRB,5.0846E02_JPRB,5.0567E02_JPRB,4.8188E02_JPRB,4.4146E02_JPRB,&  
1426 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.8765E02_JPRB,3.1629E02_JPRB,2.1722E02_JPRB,1.8824E02_JPRB/) 
1427  KAO( :, 3, 4, 7) = (/&  
1428  & 4.8232E02_JPRB,5.8202E02_JPRB,6.1786E02_JPRB,6.1691E02_JPRB,5.8769E02_JPRB,5.3800E02_JPRB,&  
1429 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.7237E02_JPRB,3.8627E02_JPRB,2.6596E02_JPRB,2.2906E02_JPRB/) 
1430  KAO( :, 4, 4, 7) = (/&  
1431  & 5.7693E02_JPRB,6.9403E02_JPRB,7.3912E02_JPRB,7.3801E02_JPRB,7.0370E02_JPRB,6.4487E02_JPRB,&  
1432 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.6733E02_JPRB,4.6604E02_JPRB,3.2157E02_JPRB,2.7582E02_JPRB/) 
1433  KAO( :, 5, 4, 7) = (/&  
1434  & 6.8162E02_JPRB,8.1910E02_JPRB,8.6943E02_JPRB,8.6947E02_JPRB,8.3116E02_JPRB,7.6355E02_JPRB,&  
1435 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.7389E02_JPRB,5.5474E02_JPRB,3.8506E02_JPRB,3.2984E02_JPRB/) 
1436  KAO( :, 1, 5, 7) = (/&  
1437  & 2.4543E02_JPRB,3.0114E02_JPRB,3.1564E02_JPRB,3.1114E02_JPRB,2.9453E02_JPRB,2.6887E02_JPRB,&  
1438 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.3575E02_JPRB,1.9323E02_JPRB,1.2795E02_JPRB,1.1691E02_JPRB/) 
1439  KAO( :, 2, 5, 7) = (/&  
1440  & 3.0843E02_JPRB,3.7719E02_JPRB,3.9540E02_JPRB,3.9065E02_JPRB,3.7079E02_JPRB,3.3845E02_JPRB,&  
1441 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.9679E02_JPRB,2.4367E02_JPRB,1.6282E02_JPRB,1.4283E02_JPRB/) 
1442  KAO( :, 3, 5, 7) = (/&  
1443  & 3.7989E02_JPRB,4.6141E02_JPRB,4.8601E02_JPRB,4.8164E02_JPRB,4.5691E02_JPRB,4.1697E02_JPRB,&  
1444 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.6599E02_JPRB,3.0110E02_JPRB,2.0230E02_JPRB,1.7316E02_JPRB/) 
1445  KAO( :, 4, 5, 7) = (/&  
1446  & 4.5997E02_JPRB,5.5639E02_JPRB,5.8738E02_JPRB,5.8217E02_JPRB,5.5293E02_JPRB,5.0551E02_JPRB,&  
1447 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.4474E02_JPRB,3.6675E02_JPRB,2.4679E02_JPRB,2.0824E02_JPRB/) 
1448  KAO( :, 5, 5, 7) = (/&  
1449  & 5.4980E02_JPRB,6.6335E02_JPRB,6.9689E02_JPRB,6.9220E02_JPRB,6.5934E02_JPRB,6.0477E02_JPRB,&  
1450 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.3356E02_JPRB,4.4023E02_JPRB,2.9735E02_JPRB,2.4925E02_JPRB/) 
1451  KAO( :, 1, 6, 7) = (/&  
1452  & 1.8426E02_JPRB,2.2761E02_JPRB,2.3641E02_JPRB,2.3226E02_JPRB,2.1929E02_JPRB,1.9968E02_JPRB,&  
1453 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7467E02_JPRB,1.4347E02_JPRB,9.1807E03_JPRB,8.8441E03_JPRB/) 
1454  KAO( :, 2, 6, 7) = (/&  
1455  & 2.3578E02_JPRB,2.9032E02_JPRB,3.0133E02_JPRB,2.9606E02_JPRB,2.7996E02_JPRB,2.5495E02_JPRB,&  
1456 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.2298E02_JPRB,1.8363E02_JPRB,1.2129E02_JPRB,1.0950E02_JPRB/) 
1457  KAO( :, 3, 6, 7) = (/&  
1458  & 2.9507E02_JPRB,3.6047E02_JPRB,3.7508E02_JPRB,3.6913E02_JPRB,3.4886E02_JPRB,3.1786E02_JPRB,&  
1459 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.7844E02_JPRB,2.2965E02_JPRB,1.5292E02_JPRB,1.3409E02_JPRB/) 
1460  KAO( :, 4, 6, 7) = (/&  
1461  & 3.6266E02_JPRB,4.4015E02_JPRB,4.5865E02_JPRB,4.5103E02_JPRB,4.2675E02_JPRB,3.8982E02_JPRB,&  
1462 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.4261E02_JPRB,2.8279E02_JPRB,1.8853E02_JPRB,1.6214E02_JPRB/) 
1463  KAO( :, 5, 6, 7) = (/&  
1464  & 4.3984E02_JPRB,5.3041E02_JPRB,5.5017E02_JPRB,5.4129E02_JPRB,5.1429E02_JPRB,4.7161E02_JPRB,&  
1465 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.1564E02_JPRB,3.4270E02_JPRB,2.2882E02_JPRB,1.9446E02_JPRB/) 
1466  KAO( :, 1, 7, 7) = (/&  
1467  & 1.3764E02_JPRB,1.6980E02_JPRB,1.7488E02_JPRB,1.7108E02_JPRB,1.6106E02_JPRB,1.4660E02_JPRB,&  
1468 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2811E02_JPRB,1.0508E02_JPRB,6.5858E03_JPRB,7.3979E03_JPRB/) 
1469  KAO( :, 2, 7, 7) = (/&  
1470  & 1.7905E02_JPRB,2.2049E02_JPRB,2.2708E02_JPRB,2.2213E02_JPRB,2.0912E02_JPRB,1.9015E02_JPRB,&  
1471 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.6594E02_JPRB,1.3616E02_JPRB,8.9925E03_JPRB,8.9127E03_JPRB/) 
1472  KAO( :, 3, 7, 7) = (/&  
1473  & 2.2781E02_JPRB,2.7834E02_JPRB,2.8707E02_JPRB,2.8089E02_JPRB,2.6436E02_JPRB,2.4036E02_JPRB,&  
1474 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.1001E02_JPRB,1.7243E02_JPRB,1.1550E02_JPRB,1.0727E02_JPRB/) 
1475  KAO( :, 4, 7, 7) = (/&  
1476  & 2.8466E02_JPRB,3.4473E02_JPRB,3.5499E02_JPRB,3.4681E02_JPRB,3.2695E02_JPRB,2.9803E02_JPRB,&  
1477 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.6138E02_JPRB,2.1504E02_JPRB,1.4432E02_JPRB,1.2888E02_JPRB/) 
1478  KAO( :, 5, 7, 7) = (/&  
1479  & 3.5087E02_JPRB,4.2091E02_JPRB,4.3096E02_JPRB,4.2057E02_JPRB,3.9781E02_JPRB,3.6456E02_JPRB,&  
1480 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.2089E02_JPRB,2.6356E02_JPRB,1.7665E02_JPRB,1.5419E02_JPRB/) 
1481  KAO( :, 1, 8, 7) = (/&  
1482  & 1.0353E02_JPRB,1.2614E02_JPRB,1.2882E02_JPRB,1.2507E02_JPRB,1.1737E02_JPRB,1.0675E02_JPRB,&  
1483 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.3093E03_JPRB,7.6257E03_JPRB,4.6116E03_JPRB,7.3615E03_JPRB/) 
1484  KAO( :, 2, 8, 7) = (/&  
1485  & 1.3587E02_JPRB,1.6625E02_JPRB,1.6988E02_JPRB,1.6539E02_JPRB,1.5521E02_JPRB,1.4075E02_JPRB,&  
1486 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2252E02_JPRB,1.0008E02_JPRB,6.5742E03_JPRB,8.8183E03_JPRB/) 
1487  KAO( :, 3, 8, 7) = (/&  
1488  & 1.7551E02_JPRB,2.1310E02_JPRB,2.1821E02_JPRB,2.1262E02_JPRB,1.9937E02_JPRB,1.8066E02_JPRB,&  
1489 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5721E02_JPRB,1.2839E02_JPRB,8.6653E03_JPRB,1.0458E02_JPRB/) 
1490  KAO( :, 4, 8, 7) = (/&  
1491  & 2.2265E02_JPRB,2.6814E02_JPRB,2.7357E02_JPRB,2.6600E02_JPRB,2.4976E02_JPRB,2.2670E02_JPRB,&  
1492 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9796E02_JPRB,1.6193E02_JPRB,1.0979E02_JPRB,1.2332E02_JPRB/) 
1493  KAO( :, 5, 8, 7) = (/&  
1494  & 2.7862E02_JPRB,3.3218E02_JPRB,3.3662E02_JPRB,3.2634E02_JPRB,3.0703E02_JPRB,2.8021E02_JPRB,&  
1495 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.4581E02_JPRB,2.0102E02_JPRB,1.3589E02_JPRB,1.4413E02_JPRB/) 
1496  KAO( :, 1, 9, 7) = (/&  
1497  & 7.8781E03_JPRB,9.4357E03_JPRB,9.5082E03_JPRB,9.1567E03_JPRB,8.5455E03_JPRB,7.7115E03_JPRB,&  
1498 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.6987E03_JPRB,5.4668E03_JPRB,3.2375E03_JPRB,1.0690E02_JPRB/) 
1499  KAO( :, 2, 9, 7) = (/&  
1500  & 1.0378E02_JPRB,1.2532E02_JPRB,1.2692E02_JPRB,1.2260E02_JPRB,1.1450E02_JPRB,1.0342E02_JPRB,&  
1501 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.9582E03_JPRB,7.2956E03_JPRB,4.7236E03_JPRB,1.2330E02_JPRB/) 
1502  KAO( :, 3, 9, 7) = (/&  
1503  & 1.3495E02_JPRB,1.6270E02_JPRB,1.6516E02_JPRB,1.6000E02_JPRB,1.4955E02_JPRB,1.3485E02_JPRB,&  
1504 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1675E02_JPRB,9.4744E03_JPRB,6.3929E03_JPRB,1.4160E02_JPRB/) 
1505  KAO( :, 4, 9, 7) = (/&  
1506  & 1.7315E02_JPRB,2.0761E02_JPRB,2.1026E02_JPRB,2.0326E02_JPRB,1.9009E02_JPRB,1.7164E02_JPRB,&  
1507 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4884E02_JPRB,1.2091E02_JPRB,8.2532E03_JPRB,1.6229E02_JPRB/) 
1508  KAO( :, 5, 9, 7) = (/&  
1509  & 2.1950E02_JPRB,2.6079E02_JPRB,2.6242E02_JPRB,2.5301E02_JPRB,2.3645E02_JPRB,2.1443E02_JPRB,&  
1510 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.8684E02_JPRB,1.5203E02_JPRB,1.0361E02_JPRB,1.8623E02_JPRB/) 
1511  KAO( :, 1,10, 7) = (/&  
1512  & 6.0912E03_JPRB,7.2618E03_JPRB,7.2497E03_JPRB,6.9368E03_JPRB,6.4251E03_JPRB,5.7381E03_JPRB,&  
1513 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.9224E03_JPRB,3.9870E03_JPRB,2.3279E03_JPRB,2.4406E02_JPRB/) 
1514  KAO( :, 2,10, 7) = (/&  
1515  & 8.1237E03_JPRB,9.7061E03_JPRB,9.7375E03_JPRB,9.3388E03_JPRB,8.6591E03_JPRB,7.7505E03_JPRB,&  
1516 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.6642E03_JPRB,5.3997E03_JPRB,3.3513E03_JPRB,2.6559E02_JPRB/) 
1517  KAO( :, 3,10, 7) = (/&  
1518  & 1.0643E02_JPRB,1.2680E02_JPRB,1.2767E02_JPRB,1.2292E02_JPRB,1.1416E02_JPRB,1.0235E02_JPRB,&  
1519 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.8042E03_JPRB,7.1077E03_JPRB,4.7423E03_JPRB,2.9166E02_JPRB/) 
1520  KAO( :, 4,10, 7) = (/&  
1521  & 1.3745E02_JPRB,1.6327E02_JPRB,1.6432E02_JPRB,1.5803E02_JPRB,1.4680E02_JPRB,1.3196E02_JPRB,&  
1522 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1368E02_JPRB,9.1591E03_JPRB,6.2576E03_JPRB,3.2140E02_JPRB/) 
1523  KAO( :, 5,10, 7) = (/&  
1524  & 1.7515E02_JPRB,2.0726E02_JPRB,2.0778E02_JPRB,1.9936E02_JPRB,1.8503E02_JPRB,1.6679E02_JPRB,&  
1525 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4419E02_JPRB,1.1642E02_JPRB,7.9656E03_JPRB,3.5445E02_JPRB/) 
1526  KAO( :, 1,11, 7) = (/&  
1527  & 5.3549E03_JPRB,6.3816E03_JPRB,6.3660E03_JPRB,6.0840E03_JPRB,5.6156E03_JPRB,4.9825E03_JPRB,&  
1528 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.2303E03_JPRB,3.3795E03_JPRB,1.9749E03_JPRB,3.2367E02_JPRB/) 
1529  KAO( :, 2,11, 7) = (/&  
1530  & 7.2013E03_JPRB,8.5604E03_JPRB,8.5532E03_JPRB,8.1763E03_JPRB,7.5421E03_JPRB,6.6997E03_JPRB,&  
1531 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.7065E03_JPRB,4.5729E03_JPRB,2.8632E03_JPRB,3.5196E02_JPRB/) 
1532  KAO( :, 3,11, 7) = (/&  
1533  & 9.5022E03_JPRB,1.1202E02_JPRB,1.1204E02_JPRB,1.0716E02_JPRB,9.9000E03_JPRB,8.8230E03_JPRB,&  
1534 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.5394E03_JPRB,6.0331E03_JPRB,4.0236E03_JPRB,3.8638E02_JPRB/) 
1535  KAO( :, 4,11, 7) = (/&  
1536  & 1.2288E02_JPRB,1.4432E02_JPRB,1.4424E02_JPRB,1.3791E02_JPRB,1.2735E02_JPRB,1.1387E02_JPRB,&  
1537 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.7608E03_JPRB,7.8103E03_JPRB,5.3234E03_JPRB,4.2507E02_JPRB/) 
1538  KAO( :, 5,11, 7) = (/&  
1539  & 1.5567E02_JPRB,1.8295E02_JPRB,1.8261E02_JPRB,1.7460E02_JPRB,1.6145E02_JPRB,1.4469E02_JPRB,&  
1540 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.2448E02_JPRB,9.9477E03_JPRB,6.7800E03_JPRB,4.6703E02_JPRB/) 
1541  KAO( :, 1,12, 7) = (/&  
1542  & 4.6610E03_JPRB,5.5454E03_JPRB,5.5315E03_JPRB,5.2838E03_JPRB,4.8759E03_JPRB,4.3254E03_JPRB,&  
1543 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.6583E03_JPRB,2.8821E03_JPRB,1.6681E03_JPRB,3.4347E02_JPRB/) 
1544  KAO( :, 2,12, 7) = (/&  
1545  & 6.3285E03_JPRB,7.4864E03_JPRB,7.4682E03_JPRB,7.1266E03_JPRB,6.5590E03_JPRB,5.8111E03_JPRB,&  
1546 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.9232E03_JPRB,3.8901E03_JPRB,2.4263E03_JPRB,3.7723E02_JPRB/) 
1547  KAO( :, 3,12, 7) = (/&  
1548  & 8.4114E03_JPRB,9.8725E03_JPRB,9.8303E03_JPRB,9.3562E03_JPRB,8.6044E03_JPRB,7.6370E03_JPRB,&  
1549 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 6.4946E03_JPRB,5.1447E03_JPRB,3.4144E03_JPRB,4.1645E02_JPRB/) 
1550  KAO( :, 4,12, 7) = (/&  
1551  & 1.0877E02_JPRB,1.2730E02_JPRB,1.2662E02_JPRB,1.2056E02_JPRB,1.1093E02_JPRB,9.8741E03_JPRB,&  
1552 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 8.4352E03_JPRB,6.6865E03_JPRB,4.5146E03_JPRB,4.5836E02_JPRB/) 
1553  KAO( :, 5,12, 7) = (/&  
1554  & 1.3747E02_JPRB,1.6074E02_JPRB,1.5983E02_JPRB,1.5257E02_JPRB,1.4098E02_JPRB,1.2612E02_JPRB,&  
1555 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0799E02_JPRB,8.5347E03_JPRB,5.7461E03_JPRB,5.0295E02_JPRB/) 
1556  KAO( :, 1,13, 7) = (/&  
1557  & 4.0079E03_JPRB,4.7560E03_JPRB,4.7417E03_JPRB,4.5251E03_JPRB,4.1763E03_JPRB,3.7162E03_JPRB,&  
1558 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.1488E03_JPRB,2.4610E03_JPRB,1.3983E03_JPRB,2.9797E02_JPRB/) 
1559  KAO( :, 2,13, 7) = (/&  
1560  & 5.4975E03_JPRB,6.4791E03_JPRB,6.4467E03_JPRB,6.1399E03_JPRB,5.6502E03_JPRB,5.0140E03_JPRB,&  
1561 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.2451E03_JPRB,3.3175E03_JPRB,2.0465E03_JPRB,3.3074E02_JPRB/) 
1562  KAO( :, 3,13, 7) = (/&  
1563  & 7.3173E03_JPRB,8.5913E03_JPRB,8.5377E03_JPRB,8.1192E03_JPRB,7.4539E03_JPRB,6.6075E03_JPRB,&  
1564 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 5.6063E03_JPRB,4.3940E03_JPRB,2.8772E03_JPRB,3.6709E02_JPRB/) 
1565  KAO( :, 4,13, 7) = (/&  
1566  & 9.4743E03_JPRB,1.1090E02_JPRB,1.1002E02_JPRB,1.0468E02_JPRB,9.6356E03_JPRB,8.5792E03_JPRB,&  
1567 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.2993E03_JPRB,5.7314E03_JPRB,3.8025E03_JPRB,4.0547E02_JPRB/) 
1568  KAO( :, 5,13, 7) = (/&  
1569  & 1.2013E02_JPRB,1.3994E02_JPRB,1.3879E02_JPRB,1.3228E02_JPRB,1.2234E02_JPRB,1.0964E02_JPRB,&  
1570 
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.

11  & 9.3662E03_JPRB,7.3363E03_JPRB,4.8412E03_JPRB,4.4593E02_JPRB/) 
1571  
1572 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART5',1,ZHOOK_HANDLE) 
1573  1  END SUBROUTINE PART5  
1574  
1575  
1576  1  SUBROUTINE PART6  
1577  
1578  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
1579 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART6',0,ZHOOK_HANDLE) 
1580  
1581  
1582  KAO( :, 1, 1, 8) = (/&  
1583  & 1.6043E01_JPRB,1.5955E01_JPRB,1.5744E01_JPRB,1.5203E01_JPRB,1.4391E01_JPRB,1.3266E01_JPRB,&  
1584 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1826E01_JPRB,1.0647E01_JPRB,1.0371E01_JPRB,1.0144E01_JPRB/) 
1585  KAO( :, 2, 1, 8) = (/&  
1586  & 1.9219E01_JPRB,1.9200E01_JPRB,1.8944E01_JPRB,1.8309E01_JPRB,1.7324E01_JPRB,1.6054E01_JPRB,&  
1587 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.4443E01_JPRB,1.3095E01_JPRB,1.2672E01_JPRB,1.2410E01_JPRB/) 
1588  KAO( :, 3, 1, 8) = (/&  
1589  & 2.2629E01_JPRB,2.2700E01_JPRB,2.2424E01_JPRB,2.1719E01_JPRB,2.0625E01_JPRB,1.9280E01_JPRB,&  
1590 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.7410E01_JPRB,1.5851E01_JPRB,1.5238E01_JPRB,1.4924E01_JPRB/) 
1591  KAO( :, 4, 1, 8) = (/&  
1592  & 2.6302E01_JPRB,2.6487E01_JPRB,2.6214E01_JPRB,2.5470E01_JPRB,2.4371E01_JPRB,2.2882E01_JPRB,&  
1593 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.0692E01_JPRB,1.8914E01_JPRB,1.8098E01_JPRB,1.7748E01_JPRB/) 
1594  KAO( :, 5, 1, 8) = (/&  
1595  & 3.0195E01_JPRB,3.0538E01_JPRB,3.0299E01_JPRB,2.9584E01_JPRB,2.8471E01_JPRB,2.6793E01_JPRB,&  
1596 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.4285E01_JPRB,2.2301E01_JPRB,2.1336E01_JPRB,2.0952E01_JPRB/) 
1597  KAO( :, 1, 2, 8) = (/&  
1598  & 1.3846E01_JPRB,1.4022E01_JPRB,1.4003E01_JPRB,1.3582E01_JPRB,1.2900E01_JPRB,1.1965E01_JPRB,&  
1599 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.0668E01_JPRB,9.1059E02_JPRB,8.5585E02_JPRB,8.1636E02_JPRB/) 
1600  KAO( :, 2, 2, 8) = (/&  
1601  & 1.6715E01_JPRB,1.6985E01_JPRB,1.6971E01_JPRB,1.6484E01_JPRB,1.5668E01_JPRB,1.4564E01_JPRB,&  
1602 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3093E01_JPRB,1.1285E01_JPRB,1.0555E01_JPRB,1.0079E01_JPRB/) 
1603  KAO( :, 3, 2, 8) = (/&  
1604  & 1.9803E01_JPRB,2.0244E01_JPRB,2.0211E01_JPRB,1.9690E01_JPRB,1.8801E01_JPRB,1.7558E01_JPRB,&  
1605 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.5851E01_JPRB,1.3719E01_JPRB,1.2761E01_JPRB,1.2193E01_JPRB/) 
1606  KAO( :, 4, 2, 8) = (/&  
1607  & 2.3133E01_JPRB,2.3777E01_JPRB,2.3782E01_JPRB,2.3254E01_JPRB,2.2351E01_JPRB,2.0946E01_JPRB,&  
1608 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.8890E01_JPRB,1.6397E01_JPRB,1.5196E01_JPRB,1.4557E01_JPRB/) 
1609  KAO( :, 5, 2, 8) = (/&  
1610  & 2.6711E01_JPRB,2.7542E01_JPRB,2.7668E01_JPRB,2.7185E01_JPRB,2.6232E01_JPRB,2.4621E01_JPRB,&  
1611 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 2.2197E01_JPRB,1.9371E01_JPRB,1.7953E01_JPRB,1.7231E01_JPRB/) 
1612  KAO( :, 1, 3, 8) = (/&  
1613  & 1.1272E01_JPRB,1.1648E01_JPRB,1.1742E01_JPRB,1.1452E01_JPRB,1.0929E01_JPRB,1.0158E01_JPRB,&  
1614 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.0376E02_JPRB,7.4637E02_JPRB,6.6429E02_JPRB,6.1506E02_JPRB/) 
1615  KAO( :, 2, 3, 8) = (/&  
1616  & 1.3749E01_JPRB,1.4273E01_JPRB,1.4386E01_JPRB,1.4052E01_JPRB,1.3417E01_JPRB,1.2510E01_JPRB,&  
1617 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1193E01_JPRB,9.3361E02_JPRB,8.2893E02_JPRB,7.6819E02_JPRB/) 
1618  KAO( :, 3, 3, 8) = (/&  
1619  & 1.6469E01_JPRB,1.7179E01_JPRB,1.7314E01_JPRB,1.6944E01_JPRB,1.6261E01_JPRB,1.5216E01_JPRB,&  
1620 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3674E01_JPRB,1.1431E01_JPRB,1.0110E01_JPRB,9.3702E02_JPRB/) 
1621  KAO( :, 4, 3, 8) = (/&  
1622  & 1.9422E01_JPRB,2.0356E01_JPRB,2.0555E01_JPRB,2.0203E01_JPRB,1.9491E01_JPRB,1.8285E01_JPRB,&  
1623 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.6414E01_JPRB,1.3754E01_JPRB,1.2151E01_JPRB,1.1286E01_JPRB/) 
1624  KAO( :, 5, 3, 8) = (/&  
1625  & 2.2623E01_JPRB,2.3781E01_JPRB,2.4116E01_JPRB,2.3829E01_JPRB,2.3049E01_JPRB,2.1610E01_JPRB,&  
1626 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.9397E01_JPRB,1.6347E01_JPRB,1.4442E01_JPRB,1.3449E01_JPRB/) 
1627  KAO( :, 1, 4, 8) = (/&  
1628  & 8.9051E02_JPRB,9.4148E02_JPRB,9.5376E02_JPRB,9.3490E02_JPRB,8.9564E02_JPRB,8.3123E02_JPRB,&  
1629 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 7.3825E02_JPRB,6.0440E02_JPRB,5.0018E02_JPRB,4.5241E02_JPRB/) 
1630  KAO( :, 2, 4, 8) = (/&  
1631  & 1.0984E01_JPRB,1.1667E01_JPRB,1.1837E01_JPRB,1.1624E01_JPRB,1.1142E01_JPRB,1.0383E01_JPRB,&  
1632 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 9.2686E02_JPRB,7.6384E02_JPRB,6.3307E02_JPRB,5.7158E02_JPRB/) 
1633  KAO( :, 3, 4, 8) = (/&  
1634  & 1.3321E01_JPRB,1.4188E01_JPRB,1.4403E01_JPRB,1.4173E01_JPRB,1.3641E01_JPRB,1.2779E01_JPRB,&  
1635 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.1439E01_JPRB,9.4375E02_JPRB,7.8066E02_JPRB,7.0497E02_JPRB/) 
1636  KAO( :, 4, 4, 8) = (/&  
1637  & 1.5891E01_JPRB,1.6984E01_JPRB,1.7265E01_JPRB,1.7069E01_JPRB,1.6497E01_JPRB,1.5505E01_JPRB,&  
1638 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.3862E01_JPRB,1.1439E01_JPRB,9.4690E02_JPRB,8.5635E02_JPRB/) 
1639  KAO( :, 5, 4, 8) = (/&  
1640  & 1.8690E01_JPRB,2.0031E01_JPRB,2.0459E01_JPRB,2.0306E01_JPRB,1.9673E01_JPRB,1.8463E01_JPRB,&  
1641 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 1.6524E01_JPRB,1.3669E01_JPRB,1.1330E01_JPRB,1.0289E01_JPRB/) 
1642  KAO( :, 1, 5, 8) = (/&  
1643  & 6.9203E02_JPRB,7.4779E02_JPRB,7.5983E02_JPRB,7.4840E02_JPRB,7.1567E02_JPRB,6.6398E02_JPRB,&  
1644 
2/2✓ Branch 0 taken 1 